APSKENT.m

APSKENT ;IHS/SFB/MRS - MENU ENTRY ACTION [ 09/28/94  11:13 AM ]

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

 ;

 ;EP - Entry actions for APSKMENU

S W @IOF

 D ^XBCLS W !?22 F APSK=1:1:35 W "*"

B W !?22,"*",?56,"*",!?22,"*      INDIAN HEALTH SERVICE      *"

 W !?22,"*     AMINOGLYCOSIDE KINETICS     *"

 W !?22,"*           VERSION 1.0           *"

 W !?22,"*",?56,"*",!?22 F APSK=1:1:35 W "*"

 ;

 I '$D(DUZ(2))!('$D(DUZ(0))) W !!,"YOU MUST SIGN ON PROPERLY THROUGH THE KERNEL TO USE AMINOGLYCOSIDE KINETICS!" S APSKQUIT=1 G XQUIT

 S X=$S($D(^DIC(4,DUZ(2),0))#2:$P(^(0),U),1:"") W !!?80-$L(X)\2,X

 I X="" W !!,"INVALID FACILITY; NOTIFY YOUR SITE MANAGER!" S APSKQUIT=""

 ;

SETUP ;INITIALZE VARIABLES

 S IOP="HOME" S %ZIS("B")="" D ^%ZIS S APSKDSV=600,DTIME=APSKDSV

 S (APSKWT,APSKHT,APSKSE,APSKLBWC,APSKC,APSKD,APSKE,APSKM)=0

 S (APSKQ,APSKPK,APSKXX,APSKHEAD,APSKFIN,APSKPTIN)=0

XQUIT W ! K APSK,X,Y

APSKENT   ;IHS/SFB/MRS - MENU ENTRY ACTION [ 09/28/94  11:13 AM ]

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

 +2       ;

 +3       ;EP - Entry actions for APSKMENU

S          WRITE @IOF

 +1        DO ^XBCLS

           WRITE !?22

           FOR APSK=1:1:35

               WRITE "*"

B          WRITE !?22,"*",?56,"*",!?22,"*      INDIAN HEALTH SERVICE      *"

 +1        WRITE !?22,"*     AMINOGLYCOSIDE KINETICS     *"

 +2        WRITE !?22,"*           VERSION 1.0           *"

 +3        WRITE !?22,"*",?56,"*",!?22

           FOR APSK=1:1:35

               WRITE "*"

 +4       ;

 +5        IF '$DATA(DUZ(2))!('$DATA(DUZ(0)))

               WRITE !!,"YOU MUST SIGN ON PROPERLY THROUGH THE KERNEL TO USE AMINOGLYCOSIDE KINETICS!"

               SET APSKQUIT=1

               GOTO XQUIT

 +6        SET X=$SELECT($DATA(^DIC(4,DUZ(2),0))#2:$PIECE(^(0),U),1:"")

           WRITE !!?80-$LENGTH(X)\2,X

 +7        IF X=""

               WRITE !!,"INVALID FACILITY; NOTIFY YOUR SITE MANAGER!"

               SET APSKQUIT=""

 +8       ;

SETUP     ;INITIALZE VARIABLES

 +1        SET IOP="HOME"

           SET %ZIS("B")=""

           DO ^%ZIS

           SET APSKDSV=600

           SET DTIME=APSKDSV

 +2        SET (APSKWT,APSKHT,APSKSE,APSKLBWC,APSKC,APSKD,APSKE,APSKM)=0

 +3        SET (APSKQ,APSKPK,APSKXX,APSKHEAD,APSKFIN,APSKPTIN)=0

XQUIT      WRITE !

           KILL APSK,X,Y