- PSN168P ;BIR/DMA-REMOVE AMASTERVUID CROSS REFERENCES ; 29 Feb 2008 1:10 PM
- ;;4.0; NATIONAL DRUG FILE;**168**; 30 Oct 98;Build 8
- ;
- N FILE,SPEC,X,Y
- S SPEC("{pending directive #}")="2005-044"
- F FILE=50.416,50.6,50.605,50.68 S X="^DIC("_FILE_",""%D"")" F S X=$Q(@X) Q:X'["%D" S Y=@X I Y["{" S Y=$$REPLACE^XLFSTR(Y,.SPEC),@X=Y
- F FILE=50.416,50.605,50.6,50.68 D DELIX^DDMOD(FILE,99.98,1)
- F FILE=50.416,50.605 S X="^PS("_FILE_","_"""AMASTERVUID"")" F S X=$Q(@X) Q:X'["AMASTERVUID" I $QL(X)'=5 K @X
- F FILE=50.6,50.68 S X="^PSNDF("_FILE_","_"""AMASTERVUID"")" F S X=$Q(@X) Q:X'["AMASTERVUID" I $QL(X)'=5 K @X
- K FILE,SPEC,X,Y Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSN168P 644 printed Feb 18, 2025@23:43:31 Page 2
- PSN168P ;BIR/DMA-REMOVE AMASTERVUID CROSS REFERENCES ; 29 Feb 2008 1:10 PM
- +1 ;;4.0; NATIONAL DRUG FILE;**168**; 30 Oct 98;Build 8
- +2 ;
- +3 NEW FILE,SPEC,X,Y
- +4 SET SPEC("{pending directive #}")="2005-044"
- +5 FOR FILE=50.416,50.6,50.605,50.68
- SET X="^DIC("_FILE_",""%D"")"
- FOR
- SET X=$QUERY(@X)
- if X'["%D"
- QUIT
- SET Y=@X
- IF Y["{"
- SET Y=$$REPLACE^XLFSTR(Y,.SPEC)
- SET @X=Y
- +6 FOR FILE=50.416,50.605,50.6,50.68
- DO DELIX^DDMOD(FILE,99.98,1)
- +7 FOR FILE=50.416,50.605
- SET X="^PS("_FILE_","_"""AMASTERVUID"")"
- FOR
- SET X=$QUERY(@X)
- if X'["AMASTERVUID"
- QUIT
- IF $QLENGTH(X)'=5
- KILL @X
- +8 FOR FILE=50.6,50.68
- SET X="^PSNDF("_FILE_","_"""AMASTERVUID"")"
- FOR
- SET X=$QUERY(@X)
- if X'["AMASTERVUID"
- QUIT
- IF $QLENGTH(X)'=5
- KILL @X
- +9 KILL FILE,SPEC,X,Y
- QUIT