PSN168P.m

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 ---PSN168P   644     printed  Apr 09, 2024@21:19:02                                                                                                                                                                                                      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