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 ---[H[J[2J[HPSN120P 478 printed Nov 22, 2024@17:26:39 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
