APSKAMN1.m

APSKAMN1 ;IHS/ANMC/SFB/MRS - REGRESSION ANALYSIS CALC[ 09/28/94  11:16 AM ]

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

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

 D ^%ZIS

 ;

CHOICE2 ;EP - CHOOSE REGRESSION OR DOSING USING ASSUMED PARAMETERS

 W !!

 K DIR S DIR(0)="S^1:REGRESSION ANALYSIS;2:DOSING USING ASSUMED PARAMETERS"

 S DIR("A")="ENTER '1' or '2' "

 D ^DIR G END:$D(DIRUT) K DIR S APSKM=Y

 ;===>CONTROL PASSED TO THE NOREG SECTION OF APSKAMN5

 ;===>IF NO REGRESSION ANALYSIS IS PERFORMED

 I APSKM="2" G NOREG^APSKAMN9

 W @IOF

 W !,"     SERUM SAMPLES MUST BE OBTAINED WITHIN A 24 HR PERIOD ! "

 W !!,"     The following are examples of valid time inputs: "

 W !!,"07:00  07AM   7AM  715AM  19:00  07PM  7PM  715PM"

 W !,"For additional information, enter '?' at any prompt that request"

 W !,"the time."

 W !!

 ;

START1 ;EP-INFUSION START TIME

 W !! K %DT S %DT="AER",%DT("A")="Time at START of infusion: "

 D ^%DT G END:$D(DTOUT),END:X="^"

 I (Y=-1)!(X="") D RR^APSKAMN0 G START1

 X ^DD("DD")

 S APSKZ1T=Y

 S APSKZ(1)=$P(Y,"@",2)

 ;

END1 ;===>INFUSION END TIME

 W !! K %DT S %DT="AER",%DT("A")="Time at END of infusion: "

 D ^%DT G END:$D(DTOUT),END:X="^"

 I (Y=-1)!(X="") D RR^APSKAMN0 G END1

 X ^DD("DD")

 S APSKZ2T=Y

 S APSKZ(2)=$P(Y,"@",2)

 I APSKZ1T=APSKZ2T W !,"End time and Start time are the same. Please enter a new End time or enter '^' to quit. "  G END1

 I APSKZ2T<APSKZ1T W !,"End time is before Start time.  Please enter a new End time or enter '^' to quit. " G END1

 W !!

 ;===>AMOUNT INFUSED

TD K DIR S DIR(0)="N"

 S DIR("A")="Total DOSE infused (in mg.)"

 D ^DIR G END:$D(DTOUT),END:X="^"

 I Y="" D RR^APSKAMN0 G TD

 S APSKD=Y

 W @IOF

PL K DIR S DIR(0)="Y"

 S DIR("A")="Do you have a measurable PRE LEVEL <Y/N>"

 D ^DIR G END:$D(DIRUT)

 I Y="" D RR^APSKAMN0 G PL

 S APSKPL=Y

 I APSKPL="0" G POST^APSKAMN7

 ;

PRELEVEL W !! K %DT S %DT="AER" S %DT("A")="Time of PRE LEVEL: "

 D ^%DT G END:$D(DTOUT),END:X="^" X ^DD("DD")

 I (Y=-1)!(X="") D RR^APSKAMN0 G PRELEVEL

 S APSKZ13T=Y

 S APSKZ(13)=$P(Y,"@",2)

 I APSKZ1T=APSKZ13T W !,"PreLevel time and Start time are the same. Please enter a new PreLevel time or enter '^' to quit. "  G PRELEVEL

 I APSKZ2T=APSKZ13T W !,"PreLevel time and End time are the same. Please enter a new PreLevel time or enter '^' to quit. "  G PRELEVEL

CPL K DIR S DIR(0)="N^.1:10:1" W !

 S DIR("A")="Concentration of PRE LEVEL (mcg/ml)"

 S DIR("?")="To enter 0.1 - 0.9, do not enter the '0'. Ex. .1, .2, etc."

 D ^DIR G END:$D(DIRUT)

 I Y="" D RR^APSKAMN0 G CPL

 S APSKC(13)=Y

 I ($L(APSKC(13))=2)&(APSKC(13)[".") S APSKC(13)=0_APSKC(13)

 K DIR S DIR(0)="Y",DIR("B")="YES"

 S DIR("A")="Is this data from a peak/trough check <Y/N>"

 D ^DIR G END:$D(DIRUT) K DIR S APSKSE=Y

 I APSKSE="0" G POST^APSKAMN7

 ;

POSTLEVL W !! K %DT

 S %DT="AER",%DT("A")="Time of POST LEVEL: "

 D ^%DT G END:$D(DTOUT),END:$D(DUOUT) X ^DD("DD")

 I (Y=-1)!(X="") D RR^APSKAMN0 G POSTLEVL

 S APSKZ3T=Y

 S APSKZ(3)=$P(Y,"@",2)

 ;

 I APSKZ1T=APSKZ3T W !,"POST LEVEL time and Start time are the same. Please enter a new POST LEVEL time or enter '^' to quit. "  G POSTLEVL

 I APSKZ2T=APSKZ3T W !,"POST LEVEL time and End time are the same. Please enter a new POST LEVEL time or enter '^' to quit. "  G POSTLEVL

 ;

COMPL K DIR S DIR(0)="N^.1:10:1"

 S DIR("A")="Concentration of POST LEVEL (mcg/ml)"

 S DIR("?")="To enter 0.1 - 0.9, do not enter the '0'. Ex. .1, .2, etc."

 D ^DIR G END:$D(DIRUT),COMPL:Y="" K DIR S APSKC(3)=Y

 ;

INFUSION W !! K %DT S %DT="AER",%DT("A")="Time at end of previous infusion: "

 D ^%DT G END:$D(DTOUT),END:X="^" X ^DD("DD")

 I (Y=-1)!(X="") D RR^APSKAMN0 G INFUSION

 S APSKZ14T=Y

 S APSKZ(14)=$P(Y,"@",2)

 I APSKZ1T=APSKZ14T W !,"Previous infusion time and Start time are the same. Please enter a new infusion time or enter '^' to quit. "  G INFUSION

 I APSKZ2T=APSKZ14T W !,"Previous infusion time and End time are the same. Please enter a new infusion time or enter '^' to quit. "  G INFUSION

 I APSKZ3T=APSKZ14T W !,"Previous infusion time and POST LEVEL time are the same. Please enter a new infusion time or enter '^' to quit. "  G INFUSION

 G CVTIME^APSKAMN2

 ;

END Q

APSKAMN1  ;IHS/ANMC/SFB/MRS - REGRESSION ANALYSIS CALC[ 09/28/94  11:16 AM ]

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

 +2        SET IOP=ION

           SET %ZIS("B")=""

 +3        DO ^%ZIS

 +4       ;

CHOICE2   ;EP - CHOOSE REGRESSION OR DOSING USING ASSUMED PARAMETERS

 +1        WRITE !!

 +2        KILL DIR

           SET DIR(0)="S^1:REGRESSION ANALYSIS;2:DOSING USING ASSUMED PARAMETERS"

 +3        SET DIR("A")="ENTER '1' or '2' "

 +4        DO ^DIR

           IF $DATA(DIRUT)

               GOTO END

           KILL DIR

           SET APSKM=Y

 +5       ;===>CONTROL PASSED TO THE NOREG SECTION OF APSKAMN5

 +6       ;===>IF NO REGRESSION ANALYSIS IS PERFORMED

 +7        IF APSKM="2"

               GOTO NOREG^APSKAMN9

 +8        WRITE @IOF

 +9        WRITE !,"     SERUM SAMPLES MUST BE OBTAINED WITHIN A 24 HR PERIOD ! "

 +10       WRITE !!,"     The following are examples of valid time inputs: "

 +11       WRITE !!,"07:00  07AM   7AM  715AM  19:00  07PM  7PM  715PM"

 +12       WRITE !,"For additional information, enter '?' at any prompt that request"

 +13       WRITE !,"the time."

 +14       WRITE !!

 +15      ;

START1    ;EP-INFUSION START TIME

 +1        WRITE !!

           KILL %DT

           SET %DT="AER"

           SET %DT("A")="Time at START of infusion: "

 +2        DO ^%DT

           IF $DATA(DTOUT)

               GOTO END

           IF X="^"

               GOTO END

 +3        IF (Y=-1)!(X="")

               DO RR^APSKAMN0

               GOTO START1

 +4        XECUTE ^DD("DD")

 +5        SET APSKZ1T=Y

 +6        SET APSKZ(1)=$PIECE(Y,"@",2)

 +7       ;

END1      ;===>INFUSION END TIME

 +1        WRITE !!

           KILL %DT

           SET %DT="AER"

           SET %DT("A")="Time at END of infusion: "

 +2        DO ^%DT

           IF $DATA(DTOUT)

               GOTO END

           IF X="^"

               GOTO END

 +3        IF (Y=-1)!(X="")

               DO RR^APSKAMN0

               GOTO END1

 +4        XECUTE ^DD("DD")

 +5        SET APSKZ2T=Y

 +6        SET APSKZ(2)=$PIECE(Y,"@",2)

 +7        IF APSKZ1T=APSKZ2T

               WRITE !,"End time and Start time are the same. Please enter a new End time or enter '^' to quit. "

               GOTO END1

 +8        IF APSKZ2T<APSKZ1T

               WRITE !,"End time is before Start time.  Please enter a new End time or enter '^' to quit. "

               GOTO END1

 +9        WRITE !!

 +10      ;===>AMOUNT INFUSED

TD         KILL DIR

           SET DIR(0)="N"

 +1        SET DIR("A")="Total DOSE infused (in mg.)"

 +2        DO ^DIR

           IF $DATA(DTOUT)

               GOTO END

           IF X="^"

               GOTO END

 +3        IF Y=""

               DO RR^APSKAMN0

               GOTO TD

 +4        SET APSKD=Y

 +5        WRITE @IOF

PL         KILL DIR

           SET DIR(0)="Y"

 +1        SET DIR("A")="Do you have a measurable PRE LEVEL <Y/N>"

 +2        DO ^DIR

           IF $DATA(DIRUT)

               GOTO END

 +3        IF Y=""

               DO RR^APSKAMN0

               GOTO PL

 +4        SET APSKPL=Y

 +5        IF APSKPL="0"

               GOTO POST^APSKAMN7

 +6       ;

PRELEVEL   WRITE !!

           KILL %DT

           SET %DT="AER"

           SET %DT("A")="Time of PRE LEVEL: "

 +1        DO ^%DT

           IF $DATA(DTOUT)

               GOTO END

           IF X="^"

               GOTO END

           XECUTE ^DD("DD")

 +2        IF (Y=-1)!(X="")

               DO RR^APSKAMN0

               GOTO PRELEVEL

 +3        SET APSKZ13T=Y

 +4        SET APSKZ(13)=$PIECE(Y,"@",2)

 +5        IF APSKZ1T=APSKZ13T

               WRITE !,"PreLevel time and Start time are the same. Please enter a new PreLevel time or enter '^' to quit. "

               GOTO PRELEVEL

 +6        IF APSKZ2T=APSKZ13T

               WRITE !,"PreLevel time and End time are the same. Please enter a new PreLevel time or enter '^' to quit. "

               GOTO PRELEVEL

CPL        KILL DIR

           SET DIR(0)="N^.1:10:1"

           WRITE !

 +1        SET DIR("A")="Concentration of PRE LEVEL (mcg/ml)"

 +2        SET DIR("?")="To enter 0.1 - 0.9, do not enter the '0'. Ex. .1, .2, etc."

 +3        DO ^DIR

           IF $DATA(DIRUT)

               GOTO END

 +4        IF Y=""

               DO RR^APSKAMN0

               GOTO CPL

 +5        SET APSKC(13)=Y

 +6        IF ($LENGTH(APSKC(13))=2)&(APSKC(13)[".")

               SET APSKC(13)=0_APSKC(13)

 +7        KILL DIR

           SET DIR(0)="Y"

           SET DIR("B")="YES"

 +8        SET DIR("A")="Is this data from a peak/trough check <Y/N>"

 +9        DO ^DIR

           IF $DATA(DIRUT)

               GOTO END

           KILL DIR

           SET APSKSE=Y

 +10       IF APSKSE="0"

               GOTO POST^APSKAMN7

 +11      ;

POSTLEVL   WRITE !!

           KILL %DT

 +1        SET %DT="AER"

           SET %DT("A")="Time of POST LEVEL: "

 +2        DO ^%DT

           IF $DATA(DTOUT)

               GOTO END

           IF $DATA(DUOUT)

               GOTO END

           XECUTE ^DD("DD")

 +3        IF (Y=-1)!(X="")

               DO RR^APSKAMN0

               GOTO POSTLEVL

 +4        SET APSKZ3T=Y

 +5        SET APSKZ(3)=$PIECE(Y,"@",2)

 +6       ;

 +7        IF APSKZ1T=APSKZ3T

               WRITE !,"POST LEVEL time and Start time are the same. Please enter a new POST LEVEL time or enter '^' to quit. "

               GOTO POSTLEVL

 +8        IF APSKZ2T=APSKZ3T

               WRITE !,"POST LEVEL time and End time are the same. Please enter a new POST LEVEL time or enter '^' to quit. "

               GOTO POSTLEVL

 +9       ;

COMPL      KILL DIR

           SET DIR(0)="N^.1:10:1"

 +1        SET DIR("A")="Concentration of POST LEVEL (mcg/ml)"

 +2        SET DIR("?")="To enter 0.1 - 0.9, do not enter the '0'. Ex. .1, .2, etc."

 +3        DO ^DIR

           IF $DATA(DIRUT)

               GOTO END

           IF Y=""

               GOTO COMPL

           KILL DIR

           SET APSKC(3)=Y

 +4       ;

INFUSION   WRITE !!

           KILL %DT

           SET %DT="AER"

           SET %DT("A")="Time at end of previous infusion: "

 +1        DO ^%DT

           IF $DATA(DTOUT)

               GOTO END

           IF X="^"

               GOTO END

           XECUTE ^DD("DD")

 +2        IF (Y=-1)!(X="")

               DO RR^APSKAMN0

               GOTO INFUSION

 +3        SET APSKZ14T=Y

 +4        SET APSKZ(14)=$PIECE(Y,"@",2)

 +5        IF APSKZ1T=APSKZ14T

               WRITE !,"Previous infusion time and Start time are the same. Please enter a new infusion time or enter '^' to quit. "

               GOTO INFUSION

 +6        IF APSKZ2T=APSKZ14T

               WRITE !,"Previous infusion time and End time are the same. Please enter a new infusion time or enter '^' to quit. "

               GOTO INFUSION

 +7        IF APSKZ3T=APSKZ14T

               WRITE !,"Previous infusion time and POST LEVEL time are the same. Please enter a new infusion time or enter '^' to quit. "

               GOTO INFUSION

 +8        GOTO CVTIME^APSKAMN2

 +9       ;

END        QUIT