APSKAMN.m

APSKAMN ;IHS/ANMC/SFB MRS - MENU ENTRY & EXIT ACTIONS ; [ 09/28/94  11:00 AM ]

 ;;1.0;Aminoglycoside Kinetics;;OCT 31,1994

 K DIR

 S DIR(0)="E"

 D ^DIR

 G END:$D(DIRUT) K DIR

 ;

NOINFO ;EP - NO PATIENT INFORMATION

 W @IOF

 K DIR

 S DIR("A")="Please press return key."

 S DIR("A",1)="You must run New Patient option first in order to Procede!"

 S DIR(0)="E" D ^DIR

 G END:$D(DIRUT) K DIR

END Q

APSKAMN   ;IHS/ANMC/SFB MRS - MENU ENTRY & EXIT ACTIONS ; [ 09/28/94  11:00 AM ]

 +1       ;;1.0;Aminoglycoside Kinetics;;OCT 31,1994

 +2        KILL DIR

 +3        SET DIR(0)="E"

 +4        DO ^DIR

 +5        IF $DATA(DIRUT)

               GOTO END

           KILL DIR

 +6       ;

NOINFO    ;EP - NO PATIENT INFORMATION

 +1        WRITE @IOF

 +2        KILL DIR

 +3        SET DIR("A")="Please press return key."

 +4        SET DIR("A",1)="You must run New Patient option first in order to Procede!"

 +5        SET DIR(0)="E"

           DO ^DIR

 +6        IF $DATA(DIRUT)

               GOTO END

           KILL DIR

END        QUIT