APSKAMN7.m

APSKAMN7 ;IHS/ANMC/SFB/MRS - RECIEVES POST INFUSIONS [ 09/28/94  10:52 AM ]

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

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

 D ^ZIS

POST ;EP - POST INFUSION SAMPLES

 W @IOF

 I APSKPTIN=0 D NOINFO^APSKAMN Q

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

 S DIR("A")="How many post infusion samples do you have"

 D ^DIR G END:$D(DIRUT) S APSKS(1)=Y

 ;===>USER INPUTS THE TIME AND CONCENTRATION OF EACH

 ;===>ONE OF THE POST INFUSION SAMPLES.

POST1 W !! K %DT S %DT="AER",%DT("A")="Time of first sample: "

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

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

 S APSKZ3T=Y

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

 I APSKZ1T=APSKZ3T W !,"First and Start times are the same." D SAMETM G POST1

 I APSKZ2T=APSKZ3T W !,"First and End times are the same." D SAMETM G POST1

 I APSKZ13T=APSKZ3T W !,"First and PRE LEVEL times are the same." D SAMETM G POST1

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

 S DIR("A")="Conc of first sample"

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

 D ^DIR G END:$D(DTOUT),END:$D(DUOUT) G POST1:Y=""

 S APSKC(3)=Y

 I ($L(APSKC(3))=2)&(APSKC(3)[".") S APSKC(3)=APSKC(3)

POST2 W !! K %DT S %DT="AER",%DT("A")="Time of second sample: "

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

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

 S APSKZ4T=Y

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

 I APSKZ1T=APSKZ4T W !,"Second and Start times are the same." D SAMETM G POST2

 I APSKZ2T=APSKZ4T W !,"Second and End times are the same." D SAMETM G POST2

 I APSKZ3T=APSKZ4T W !,"First and Second times are the same." D SAMETM G POST2

 I APSKZ13T=APSKZ4T W !,"Second and PRE LEVEL times are the same." D SAMETM G POST2

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

 S DIR("A")="Conc of second sample"

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

 D ^DIR G END:$D(DTOUT),END:$D(DUOUT) G POST2:Y=""

 S APSKC(4)=Y

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

 I APSKS(1)=2 G CALC^APSKAMN2

POST3 W !! K %DT S %DT="AER",%DT("A")="Time of third sample: "

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

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

 S APSKZ5T=Y

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

 I APSKZ1T=APSKZ5T W !,"Third and Start times are the same." D SAMETM G POST3

 I APSKZ2T=APSKZ5T W !,"Third and End times are the same." D SAMETM G POST3

 I APSKZ3T=APSKZ5T W !,"Third and First times are the same." D SAMETM G POST3

 I APSKZ4T=APSKZ5T W !,"Third and Second times are the same." D SAMETM G POST3

 I APSKZ13T=APSKZ5T W !,"Third and PRE LEVEL times are the same." D SAMETM G POST3

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

 S DIR("A")="Conc of third sample"

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

 D ^DIR G END:$D(DTOUT),END:$D(DUOUT) G POST3:Y=""

 S APSKC(5)=Y

 I ($L(APSKC(5))=2)&(APSKC(5)[".") S APSKC(5)=APSKC(5)

 I APSKS(1)=3 G CALC^APSKAMN2

POST4 W !! K %DT S %DT="AER",%DT("A")="Time of fourth sample: "

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

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

 S APSKZ6T=Y

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

 I APSKZ1T=APSKZ6T W !,"Fourth and Start times are the same." D SAMETM G POST4

 I APSKZ2T=APSKZ6T W !,"Fourth and End times are the same." D SAMETM G POST4

 I APSKZ3T=APSKZ6T W !,"Fourth and First times are the same." D SAMETM G POST4

 I APSKZ4T=APSKZ6T W !,"Fourth and Second times are the same." D SAMETM G POST4

 I APSKZ5T=APSKZ6T W !,"Fourth and Third times are the same." D SAMETM G POST4

 I APSKZ13T=APSKZ6T W !,"Fourth and PRE LEVEL times are the same." D SAMETM G POST4

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

 S DIR("A")="Conc of fourth sample"

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

 D ^DIR G END:$D(DTOUT),END:$D(DUOUT) G POST4:Y=""

 S APSKC(6)=Y

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

 I APSKS(1)=4 G CALC^APSKAMN2

POST5 W !! K %DT S %DT="AER",%DT("A")="Time of fifth sample: "

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

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

 S APSKZ7T=Y

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

 I APSKZ1T=APSKZ7T W !,"Fifth and Start times are the same." D SAMETM G POST5

 I APSKZ2T=APSKZ7T W !,"Fifth and End times are the same." D SAMETM G POST5

 I APSKZ3T=APSKZ7T W !,"Fifth and First times are the same." D SAMETM G POST5

 I APSKZ4T=APSKZ7T W !,"Fifth and Second times are the same." D SAMETM G POST5

 I APSKZ5T=APSKZ7T W !,"Fifth and Third times are the same." D SAMETM G POST5

 I APSKZ6T=APSKZ7T W !,"Fifth and Fourth times are the same." D SAMETM G POST5

 I APSKZ13T=APSKZ7T W !,"Fifth and PRE LEVEL times are the same." D SAMETM G POST5

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

 S DIR("A")="Conc of fifth sample"

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

 D ^DIR G END:$D(DTOUT),END:$D(DUOUT) G POST5:Y=""

 S APSKC(7)=Y

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

 I APSKS(1)=5 G CALC^APSKAMN2

 ;

SAMETM ;EP

 W !,"Please enter a different time or '^' to exit"

END Q

APSKAMN7  ;IHS/ANMC/SFB/MRS - RECIEVES POST INFUSIONS [ 09/28/94  10:52 AM ]

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

 +2        SET IOP=ION

           SET %ZIS("B")=""

 +3        DO ^ZIS

POST      ;EP - POST INFUSION SAMPLES

 +1        WRITE @IOF

 +2        IF APSKPTIN=0

               DO NOINFO^APSKAMN

               QUIT 

 +3        KILL DIR

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

           WRITE !

 +4        SET DIR("A")="How many post infusion samples do you have"

 +5        DO ^DIR

           IF $DATA(DIRUT)

               GOTO END

           SET APSKS(1)=Y

 +6       ;===>USER INPUTS THE TIME AND CONCENTRATION OF EACH

 +7       ;===>ONE OF THE POST INFUSION SAMPLES.

POST1      WRITE !!

           KILL %DT

           SET %DT="AER"

           SET %DT("A")="Time of first sample: "

 +1        DO ^%DT

           IF $DATA(DTOUT)

               GOTO END

           IF X="^"

               GOTO END

           XECUTE ^DD("DD")

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

               DO RR^APSKAMN0

               GOTO POST1

 +3        SET APSKZ3T=Y

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

 +5        IF APSKZ1T=APSKZ3T

               WRITE !,"First and Start times are the same."

               DO SAMETM

               GOTO POST1

 +6        IF APSKZ2T=APSKZ3T

               WRITE !,"First and End times are the same."

               DO SAMETM

               GOTO POST1

 +7        IF APSKZ13T=APSKZ3T

               WRITE !,"First and PRE LEVEL times are the same."

               DO SAMETM

               GOTO POST1

 +8        KILL DIR

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

           WRITE !

 +9        SET DIR("A")="Conc of first sample"

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

 +11       DO ^DIR

           IF $DATA(DTOUT)

               GOTO END

           IF $DATA(DUOUT)

               GOTO END

           IF Y=""

               GOTO POST1

 +12       SET APSKC(3)=Y

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

               SET APSKC(3)=APSKC(3)

POST2      WRITE !!

           KILL %DT

           SET %DT="AER"

           SET %DT("A")="Time of second sample: "

 +1        DO ^%DT

           IF $DATA(DTOUT)

               GOTO END

           IF X="^"

               GOTO END

           XECUTE ^DD("DD")

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

               DO RR^APSKAMN0

               GOTO POST2

 +3        SET APSKZ4T=Y

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

 +5        IF APSKZ1T=APSKZ4T

               WRITE !,"Second and Start times are the same."

               DO SAMETM

               GOTO POST2

 +6        IF APSKZ2T=APSKZ4T

               WRITE !,"Second and End times are the same."

               DO SAMETM

               GOTO POST2

 +7        IF APSKZ3T=APSKZ4T

               WRITE !,"First and Second times are the same."

               DO SAMETM

               GOTO POST2

 +8        IF APSKZ13T=APSKZ4T

               WRITE !,"Second and PRE LEVEL times are the same."

               DO SAMETM

               GOTO POST2

 +9        KILL DIR

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

           WRITE !

 +10       SET DIR("A")="Conc of second sample"

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

 +12       DO ^DIR

           IF $DATA(DTOUT)

               GOTO END

           IF $DATA(DUOUT)

               GOTO END

           IF Y=""

               GOTO POST2

 +13       SET APSKC(4)=Y

 +14       IF ($LENGTH(APSKC(4))=2)&(APSKC(4)[".")

               SET APSKC(4)=0_APSKC(4)

 +15       IF APSKS(1)=2

               GOTO CALC^APSKAMN2

POST3      WRITE !!

           KILL %DT

           SET %DT="AER"

           SET %DT("A")="Time of third sample: "

 +1        DO ^%DT

           IF $DATA(DTOUT)

               GOTO END

           IF X="^"

               GOTO END

           XECUTE ^DD("DD")

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

               DO RR^APSKAMN0

               GOTO POST3

 +3        SET APSKZ5T=Y

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

 +5        IF APSKZ1T=APSKZ5T

               WRITE !,"Third and Start times are the same."

               DO SAMETM

               GOTO POST3

 +6        IF APSKZ2T=APSKZ5T

               WRITE !,"Third and End times are the same."

               DO SAMETM

               GOTO POST3

 +7        IF APSKZ3T=APSKZ5T

               WRITE !,"Third and First times are the same."

               DO SAMETM

               GOTO POST3

 +8        IF APSKZ4T=APSKZ5T

               WRITE !,"Third and Second times are the same."

               DO SAMETM

               GOTO POST3

 +9        IF APSKZ13T=APSKZ5T

               WRITE !,"Third and PRE LEVEL times are the same."

               DO SAMETM

               GOTO POST3

 +10       KILL DIR

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

           WRITE !

 +11       SET DIR("A")="Conc of third sample"

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

 +13       DO ^DIR

           IF $DATA(DTOUT)

               GOTO END

           IF $DATA(DUOUT)

               GOTO END

           IF Y=""

               GOTO POST3

 +14       SET APSKC(5)=Y

 +15       IF ($LENGTH(APSKC(5))=2)&(APSKC(5)[".")

               SET APSKC(5)=APSKC(5)

 +16       IF APSKS(1)=3

               GOTO CALC^APSKAMN2

POST4      WRITE !!

           KILL %DT

           SET %DT="AER"

           SET %DT("A")="Time of fourth sample: "

 +1        DO ^%DT

           IF $DATA(DTOUT)

               GOTO END

           IF X="^"

               GOTO END

           XECUTE ^DD("DD")

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

               DO RR^APSKAMN0

               GOTO POST4

 +3        SET APSKZ6T=Y

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

 +5        IF APSKZ1T=APSKZ6T

               WRITE !,"Fourth and Start times are the same."

               DO SAMETM

               GOTO POST4

 +6        IF APSKZ2T=APSKZ6T

               WRITE !,"Fourth and End times are the same."

               DO SAMETM

               GOTO POST4

 +7        IF APSKZ3T=APSKZ6T

               WRITE !,"Fourth and First times are the same."

               DO SAMETM

               GOTO POST4

 +8        IF APSKZ4T=APSKZ6T

               WRITE !,"Fourth and Second times are the same."

               DO SAMETM

               GOTO POST4

 +9        IF APSKZ5T=APSKZ6T

               WRITE !,"Fourth and Third times are the same."

               DO SAMETM

               GOTO POST4

 +10       IF APSKZ13T=APSKZ6T

               WRITE !,"Fourth and PRE LEVEL times are the same."

               DO SAMETM

               GOTO POST4

 +11       KILL DIR

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

           WRITE !

 +12       SET DIR("A")="Conc of fourth sample"

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

 +14       DO ^DIR

           IF $DATA(DTOUT)

               GOTO END

           IF $DATA(DUOUT)

               GOTO END

           IF Y=""

               GOTO POST4

 +15       SET APSKC(6)=Y

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

               SET APSKC(6)=0_APSKC(6)

 +17       IF APSKS(1)=4

               GOTO CALC^APSKAMN2

POST5      WRITE !!

           KILL %DT

           SET %DT="AER"

           SET %DT("A")="Time of fifth sample: "

 +1        DO ^%DT

           IF $DATA(DTOUT)

               GOTO END

           IF X="^"

               GOTO END

           XECUTE ^DD("DD")

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

               DO RR^APSKAMN0

               GOTO POST2

 +3        SET APSKZ7T=Y

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

 +5        IF APSKZ1T=APSKZ7T

               WRITE !,"Fifth and Start times are the same."

               DO SAMETM

               GOTO POST5

 +6        IF APSKZ2T=APSKZ7T

               WRITE !,"Fifth and End times are the same."

               DO SAMETM

               GOTO POST5

 +7        IF APSKZ3T=APSKZ7T

               WRITE !,"Fifth and First times are the same."

               DO SAMETM

               GOTO POST5

 +8        IF APSKZ4T=APSKZ7T

               WRITE !,"Fifth and Second times are the same."

               DO SAMETM

               GOTO POST5

 +9        IF APSKZ5T=APSKZ7T

               WRITE !,"Fifth and Third times are the same."

               DO SAMETM

               GOTO POST5

 +10       IF APSKZ6T=APSKZ7T

               WRITE !,"Fifth and Fourth times are the same."

               DO SAMETM

               GOTO POST5

 +11       IF APSKZ13T=APSKZ7T

               WRITE !,"Fifth and PRE LEVEL times are the same."

               DO SAMETM

               GOTO POST5

 +12       KILL DIR

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

           WRITE !

 +13       SET DIR("A")="Conc of fifth sample"

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

 +15       DO ^DIR

           IF $DATA(DTOUT)

               GOTO END

           IF $DATA(DUOUT)

               GOTO END

           IF Y=""

               GOTO POST5

 +16       SET APSKC(7)=Y

 +17       IF ($LENGTH(APSKC(7))=2)&(APSKC(7)[".")

               SET APSKC(7)=0_APSKC(7)

 +18       IF APSKS(1)=5

               GOTO CALC^APSKAMN2

 +19      ;

SAMETM    ;EP

 +1        WRITE !,"Please enter a different time or '^' to exit"

END        QUIT