- 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 Feb 18, 2025@23:50:35 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
