- 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
