Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: PSNMEDG

PSNMEDG.m

Go to the documentation of this file.

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 !

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSNMEDG   231     printed  Apr 09, 2024@21:23: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