PSN120P.m

PSN120P ;BIR/DMA-FIX CROSS REFERENCES ; 02 May 2006  12:43 PM

 ;;4.0; NATIONAL DRUG FILE;**120**; 30 Oct 98

 ;

 N X

 S X="^PS(56,""AE"")" F  S X=$Q(@X) Q:$QS(X,2)'="AE"  I '$D(^PS(56,$QS(X,5),0)) K @X

 S X="^PS(56,""AI1"")" F  S X=$Q(@X) Q:$QS(X,2)'="AI1"  I '$D(^PS(56,$QS(X,4),0)) K @X

 S X="^PS(56,""AI2"")" F  S X=$Q(@X) Q:$QS(X,2)'="AI2"  I '$D(^PS(56,$QS(X,4),0)) K @X

 S X="^PS(56,""APD"")" F  S X=$Q(@X) Q:$QS(X,2)'="APD"  I '$D(^PS(56,$QS(X,5),0)) K @X

 K X Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSN120P   478     printed  Apr 09, 2024@21:22:05                                                                                                                                                                                                      Page 2

PSN120P   ;BIR/DMA-FIX CROSS REFERENCES ; 02 May 2006  12:43 PM

 +1       ;;4.0; NATIONAL DRUG FILE;**120**; 30 Oct 98

 +2       ;

 +3        NEW X

 +4        SET X="^PS(56,""AE"")"

           FOR 

               SET X=$QUERY(@X)

               if $QSUBSCRIPT(X,2)'="AE"

                   QUIT 

               IF '$DATA(^PS(56,$QSUBSCRIPT(X,5),0))

                   KILL @X

 +5        SET X="^PS(56,""AI1"")"

           FOR 

               SET X=$QUERY(@X)

               if $QSUBSCRIPT(X,2)'="AI1"

                   QUIT 

               IF '$DATA(^PS(56,$QSUBSCRIPT(X,4),0))

                   KILL @X

 +6        SET X="^PS(56,""AI2"")"

           FOR 

               SET X=$QUERY(@X)

               if $QSUBSCRIPT(X,2)'="AI2"

                   QUIT 

               IF '$DATA(^PS(56,$QSUBSCRIPT(X,4),0))

                   KILL @X

 +7        SET X="^PS(56,""APD"")"

           FOR 

               SET X=$QUERY(@X)

               if $QSUBSCRIPT(X,2)'="APD"

                   QUIT 

               IF '$DATA(^PS(56,$QSUBSCRIPT(X,5),0))

                   KILL @X

 +8        KILL X

           QUIT