PSNMEDG ;BIR/DMA - REQUEST A MED GUIDE ; 12 Feb 2010 8:27 AM
;;4.0; NATIONAL DRUG FILE;**108,263**; 30 Oct 98;Build 15
;
N DIC,Y W !
;
F S DIC=50.68,DIC(0)="AEQM" D ^DIC Q:Y<0 W ! D
. D EN^PSNFDAMG(+Y) W !
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSNMEDG 231 printed Dec 13, 2024@02:24:17 Page 2
PSNMEDG ;BIR/DMA - REQUEST A MED GUIDE ; 12 Feb 2010 8:27 AM
+1 ;;4.0; NATIONAL DRUG FILE;**108,263**; 30 Oct 98;Build 15
+2 ;
+3 NEW DIC,Y
WRITE !
+4 ;
+5 FOR
SET DIC=50.68
SET DIC(0)="AEQM"
DO ^DIC
if Y<0
QUIT
WRITE !
Begin DoDot:1
+6 DO EN^PSNFDAMG(+Y)
WRITE !
End DoDot:1
+7 ;
+8 QUIT
