APSKAMN3.m

APSKAMN3 ;IHS/ANMC/SFB/MRS - DISPLAYS OUTPUT[ 09/28/94  10:51 AM ]

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

 S IOP=ION S %ZIS("B")="" D ^%ZIS

OUTPUT ;EP - DISPLAY OF RESULTS

 W @IOF

 W !!,"The duration of the infusion (T') = ",APSKT0," hours"

 W !!,"The infusion rate (K0) = ",$J(APSKK0,5,1)," mg per hours"

 W !!,"The coefficient of determination (R^2) = ",$J(APSKR2,2,2)

 W !!,"The extrapolated peak serum conc. (Cp0) = ",$J(APSKC1,2,2)," mcg/ml"

 W !!,"The elimination rate constant (Kd) = ",$J(APSKK1,2,3)," hr-1"

 W !!,"Therefore the half-life = ",$J(APSKT1,2,2)," hours"

 W !!,"The volume of distribution = ",$J(APSKV1,2,2)

 W " liters ",$J(APSKV2,2,2),"L/Kg"

 W !!!,"Do you wish to:"

 W !,"       (1) continue with dosage determination or"

 W !,"       (2) repeat the regression analysis? "

 ;===>IF USER CONTINUES WITH DOSAGE DETERMINATION, CONTROL IS

 ;===>PASSED TO DOSING FOUND IN THE APSKAMN4 ROUTINE.

 ;===>OTHERWISE, THE BEGINNING MENU IS DISPLAYED

 K DIR S DIR(0)="N^1:2" W !

 S DIR("A")="CHOOSE ONE (By Number)"

 D ^DIR G END:$D(DIRUT) K DIR

 S APSKB=Y

 I APSKB=2 D INITIAL

 S APSKX=$S(APSKB=1:"DOSING^APSKAMN4",APSKB=2:"CHOICE2^APSKAMN1",1:"")

 G @APSKX

 ;

INITIAL ;EP

 F APSKX1=1:1:16 S (APSKT(APSKX1),APSKH(APSKX1),APSKC(APSKX1),APSKZ(APSKX1),APSKS(APSKX1))=0

 S (APSKSE,APSKC,APSKD,APSKM,APSKPK)=0

END Q

APSKAMN3  ;IHS/ANMC/SFB/MRS - DISPLAYS OUTPUT[ 09/28/94  10:51 AM ]

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

 +2        SET IOP=ION

           SET %ZIS("B")=""

           DO ^%ZIS

OUTPUT    ;EP - DISPLAY OF RESULTS

 +1        WRITE @IOF

 +2        WRITE !!,"The duration of the infusion (T') = ",APSKT0," hours"

 +3        WRITE !!,"The infusion rate (K0) = ",$JUSTIFY(APSKK0,5,1)," mg per hours"

 +4        WRITE !!,"The coefficient of determination (R^2) = ",$JUSTIFY(APSKR2,2,2)

 +5        WRITE !!,"The extrapolated peak serum conc. (Cp0) = ",$JUSTIFY(APSKC1,2,2)," mcg/ml"

 +6        WRITE !!,"The elimination rate constant (Kd) = ",$JUSTIFY(APSKK1,2,3)," hr-1"

 +7        WRITE !!,"Therefore the half-life = ",$JUSTIFY(APSKT1,2,2)," hours"

 +8        WRITE !!,"The volume of distribution = ",$JUSTIFY(APSKV1,2,2)

 +9        WRITE " liters ",$JUSTIFY(APSKV2,2,2),"L/Kg"

 +10       WRITE !!!,"Do you wish to:"

 +11       WRITE !,"       (1) continue with dosage determination or"

 +12       WRITE !,"       (2) repeat the regression analysis? "

 +13      ;===>IF USER CONTINUES WITH DOSAGE DETERMINATION, CONTROL IS

 +14      ;===>PASSED TO DOSING FOUND IN THE APSKAMN4 ROUTINE.

 +15      ;===>OTHERWISE, THE BEGINNING MENU IS DISPLAYED

 +16       KILL DIR

           SET DIR(0)="N^1:2"

           WRITE !

 +17       SET DIR("A")="CHOOSE ONE (By Number)"

 +18       DO ^DIR

           IF $DATA(DIRUT)

               GOTO END

           KILL DIR

 +19       SET APSKB=Y

 +20       IF APSKB=2

               DO INITIAL

 +21       SET APSKX=$SELECT(APSKB=1:"DOSING^APSKAMN4",APSKB=2:"CHOICE2^APSKAMN1",1:"")

 +22       GOTO @APSKX

 +23      ;

INITIAL   ;EP

 +1        FOR APSKX1=1:1:16

               SET (APSKT(APSKX1),APSKH(APSKX1),APSKC(APSKX1),APSKZ(APSKX1),APSKS(APSKX1))=0

 +2        SET (APSKSE,APSKC,APSKD,APSKM,APSKPK)=0

END        QUIT