APSKAMN8.m

APSKAMN8 ;IHS/ANMC/SFB/MRS - COMPLETE PRINTOUT [ 09/28/94  1:05 PM ]

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

 ;===>PRINTS THE FINAL RESULTS

PRINT I APSKPTIN=0 D NOINFO^APSKAMN Q

 S %ZIS="PQ" D ^%ZIS G END:POP,QUE:$D(IO("Q"))

 D EN

 D ^%ZISC

 Q

QUE K IO("Q"),ZTSAVE

 F %="APSK*" S ZTSAVE(%)=""

 S ZTRTN="EN^APSKAMN8",ZTDESC="PRINT AMINOGLYCOSIDE KINETICS"

 D ^%ZTLOAD K ZTSK D ^%ZISC

 Q

EN U IO

 W !!,?14,"AMINOGLYCOSIDE KINETICS FINAL REPORT" W !!

 F APSKA=1:1:65 W "-"

 W !!

 F APSK=1:1:22 W "*"

 W " CONFIDENTIAL PATIENT INFORMATION "

 F APSK=1:1:22 W "*"

 W !,"Printed by: ",$P(^VA(200,DUZ,0),U)

 W !!,"FINAL RECOMMENDATION"

 W !,"--------------------"

 W !,APSKK3," MG/HR GIVEN OVER ",APSKT0," HOUR EVERY ",APSKT3," HOURS WILL PRODUCE:"

 W !,"    ",$J(APSKC4,3,2)," MCG/ML MAXIMUM"

 W !,"    ",$J(APSKC5,3,2)," MCG/ML MINIMUM"

 W !!!,"FINAL RESULTS"

 W !,"-------------"

 W !!,"NAME:",?6,APSKNAME,?40,"DOSING WT:",APSKWT," KG"

 W !,"DATE OF ANALYSIS: ",APSKDATE,?40,"CHART NUMBER: ",APSKCHRT

 I APSKM="2" G SKIP4

 W !!,"TEST DOSE: ",APSKD," MG IV FROM ",APSKZ(1)," TO ",APSKZ(2)," O'CLOCK"

 W !

 W !,"SERUM LEVELS",?17,"TIME",?32,"HOURS POST INF.",?53,"CONC.(MCG/ML)"

 W !,"PRE LEVEL",?17,APSKZ(13),?34,$J(APSKH(13),2,2)," (PRE-INF.)",?56,APSKC(13)

 W !,"POST #1",?17,APSKZ(3),?34,$J(APSKH(3),2,2),?56,APSKC(3)

 ;===>THE NEXT LINE IS PRINTED IF THIS WAS A PEAK/TROUGH CHECK

 I APSKSE="1" W !,"EXTRAP.",?17,APSKZ(4),?34,$J(APSKH(4),2,2),?56,APSKC(4)

 I APSKSE="1" G SKIP3

 W !,"POST #2",?17,APSKZ(4),?34,$J(APSKH(4),2,2),?56,APSKC(4)

 I APSKS(1)=2 G SKIP3

 W !,"POST #3",?17,APSKZ(5),?34,$J(APSKH(5),2,2),?56,APSKC(5)

 I APSKS(1)=3 G SKIP3

 W !,"POST #4",?17,APSKZ(6),?34,$J(APSKH(6),2,2),?56,APSKC(6)

 I APSKS(1)=4 G SKIP3

 W !,"POST #5",?17,APSKZ(7),?34,$J(APSKH(7),2,2),?56,APSKC(7)

 I APSKS(1)=5 G SKIP3

SKIP3 W !!,"COEFFICIENT OF DETERMINATION:",?35,$J(APSKR2,2,2)

 W !,"EXTRAPOLATED PEAK CONC.: ",?35,$J(APSKC1,2,2)," MCG/ML"

SKIP4 W !!,"HALF-LIFE:",?35,$J(APSKT1,2,2)," HOURS"

 W !,"ELIMINATION RATE CONSTANT:",?35,$J(APSKK1,2,2)," HR-1"

 W !,"VOLUME OF DISTRIBUTION:",?35,$J(APSKV1,3,2)," LITERS ( ",$J(APSKV2,2,2),"L/KG)"

 W !,"CLEARANCE:",?35,$J(1000*APSKK1*(APSKV1/APSKWT),2,2)," ML/HR-KG"

 W !! F APSKLINE=1:1:40 W "_"

 W !! F APSKLINE=1:1:40 W "_"

 W !! F APSKLINE=1:1:40 W "_"

 W !! F APSKLINE=1:1:40 W "_"

 W !!,?20 F APSKLINE=1:1:20 W "_"

 I $D(IOST),$E(IOST,1,2)="C-" D ENDIT

 Q

ENDIT K DIR S DIR(0)="E"

 D ^DIR G END:$D(DIRUT)

 K DIR

 W @IOF

END Q

APSKAMN8  ;IHS/ANMC/SFB/MRS - COMPLETE PRINTOUT [ 09/28/94  1:05 PM ]

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

 +2       ;===>PRINTS THE FINAL RESULTS

PRINT      IF APSKPTIN=0

               DO NOINFO^APSKAMN

               QUIT 

 +1        SET %ZIS="PQ"

           DO ^%ZIS

           IF POP

               GOTO END

           IF $DATA(IO("Q"))

               GOTO QUE

 +2        DO EN

 +3        DO ^%ZISC

 +4        QUIT 

QUE        KILL IO("Q"),ZTSAVE

 +1        FOR %="APSK*"

               SET ZTSAVE(%)=""

 +2        SET ZTRTN="EN^APSKAMN8"

           SET ZTDESC="PRINT AMINOGLYCOSIDE KINETICS"

 +3        DO ^%ZTLOAD

           KILL ZTSK

           DO ^%ZISC

 +4        QUIT 

EN         USE IO

 +1        WRITE !!,?14,"AMINOGLYCOSIDE KINETICS FINAL REPORT"

           WRITE !!

 +2        FOR APSKA=1:1:65

               WRITE "-"

 +3        WRITE !!

 +4        FOR APSK=1:1:22

               WRITE "*"

 +5        WRITE " CONFIDENTIAL PATIENT INFORMATION "

 +6        FOR APSK=1:1:22

               WRITE "*"

 +7        WRITE !,"Printed by: ",$PIECE(^VA(200,DUZ,0),U)

 +8        WRITE !!,"FINAL RECOMMENDATION"

 +9        WRITE !,"--------------------"

 +10       WRITE !,APSKK3," MG/HR GIVEN OVER ",APSKT0," HOUR EVERY ",APSKT3," HOURS WILL PRODUCE:"

 +11       WRITE !,"    ",$JUSTIFY(APSKC4,3,2)," MCG/ML MAXIMUM"

 +12       WRITE !,"    ",$JUSTIFY(APSKC5,3,2)," MCG/ML MINIMUM"

 +13       WRITE !!!,"FINAL RESULTS"

 +14       WRITE !,"-------------"

 +15       WRITE !!,"NAME:",?6,APSKNAME,?40,"DOSING WT:",APSKWT," KG"

 +16       WRITE !,"DATE OF ANALYSIS: ",APSKDATE,?40,"CHART NUMBER: ",APSKCHRT

 +17       IF APSKM="2"

               GOTO SKIP4

 +18       WRITE !!,"TEST DOSE: ",APSKD," MG IV FROM ",APSKZ(1)," TO ",APSKZ(2)," O'CLOCK"

 +19       WRITE !

 +20       WRITE !,"SERUM LEVELS",?17,"TIME",?32,"HOURS POST INF.",?53,"CONC.(MCG/ML)"

 +21       WRITE !,"PRE LEVEL",?17,APSKZ(13),?34,$JUSTIFY(APSKH(13),2,2)," (PRE-INF.)",?56,APSKC(13)

 +22       WRITE !,"POST #1",?17,APSKZ(3),?34,$JUSTIFY(APSKH(3),2,2),?56,APSKC(3)

 +23      ;===>THE NEXT LINE IS PRINTED IF THIS WAS A PEAK/TROUGH CHECK

 +24       IF APSKSE="1"

               WRITE !,"EXTRAP.",?17,APSKZ(4),?34,$JUSTIFY(APSKH(4),2,2),?56,APSKC(4)

 +25       IF APSKSE="1"

               GOTO SKIP3

 +26       WRITE !,"POST #2",?17,APSKZ(4),?34,$JUSTIFY(APSKH(4),2,2),?56,APSKC(4)

 +27       IF APSKS(1)=2

               GOTO SKIP3

 +28       WRITE !,"POST #3",?17,APSKZ(5),?34,$JUSTIFY(APSKH(5),2,2),?56,APSKC(5)

 +29       IF APSKS(1)=3

               GOTO SKIP3

 +30       WRITE !,"POST #4",?17,APSKZ(6),?34,$JUSTIFY(APSKH(6),2,2),?56,APSKC(6)

 +31       IF APSKS(1)=4

               GOTO SKIP3

 +32       WRITE !,"POST #5",?17,APSKZ(7),?34,$JUSTIFY(APSKH(7),2,2),?56,APSKC(7)

 +33       IF APSKS(1)=5

               GOTO SKIP3

SKIP3      WRITE !!,"COEFFICIENT OF DETERMINATION:",?35,$JUSTIFY(APSKR2,2,2)

 +1        WRITE !,"EXTRAPOLATED PEAK CONC.: ",?35,$JUSTIFY(APSKC1,2,2)," MCG/ML"

SKIP4      WRITE !!,"HALF-LIFE:",?35,$JUSTIFY(APSKT1,2,2)," HOURS"

 +1        WRITE !,"ELIMINATION RATE CONSTANT:",?35,$JUSTIFY(APSKK1,2,2)," HR-1"

 +2        WRITE !,"VOLUME OF DISTRIBUTION:",?35,$JUSTIFY(APSKV1,3,2)," LITERS ( ",$JUSTIFY(APSKV2,2,2),"L/KG)"

 +3        WRITE !,"CLEARANCE:",?35,$JUSTIFY(1000*APSKK1*(APSKV1/APSKWT),2,2)," ML/HR-KG"

 +4        WRITE !!

           FOR APSKLINE=1:1:40

               WRITE "_"

 +5        WRITE !!

           FOR APSKLINE=1:1:40

               WRITE "_"

 +6        WRITE !!

           FOR APSKLINE=1:1:40

               WRITE "_"

 +7        WRITE !!

           FOR APSKLINE=1:1:40

               WRITE "_"

 +8        WRITE !!,?20

           FOR APSKLINE=1:1:20

               WRITE "_"

 +9        IF $DATA(IOST)

               IF $EXTRACT(IOST,1,2)="C-"

                   DO ENDIT

 +10       QUIT 

ENDIT      KILL DIR

           SET DIR(0)="E"

 +1        DO ^DIR

           IF $DATA(DIRUT)

               GOTO END

 +2        KILL DIR

 +3        WRITE @IOF

END        QUIT