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 Dec 13, 2024@02:17:21 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
