- APSKAMN9 ;IHS/ANMC/SFB/MRS - CALC WITHOUT REGRESSION ANALY[ 09/28/94 10:54 AM ]
- ;;1.0;Aminoglycoside Kinetics;;OCT 31,1994
- S IOP=ION S %ZIS("B")=""
- D ^%ZIS
- NOREG ;EP - DETERMINES DOSE AND INTERVAL WITHOUT A REGRESSION ANALYSIS.
- I APSKPTIN=0 D NOINFO^APSKAMN Q
- S APSKM=2
- W @IOF
- W !,"Please enter known or estimated parameters:"
- K DIR S DIR(0)="N" W !!
- S DIR("A")="Infusion rate (k0) in mg/hr"
- D ^DIR G END:$D(DIRUT) S APSKK0=Y
- K DIR S DIR(0)="N" W !!
- S DIR("A")="Length of infusion (T') in hr"
- D ^DIR G END:$D(DIRUT) S APSKT0=Y
- K DIR S DIR(0)="N^.1:5:1" W !!
- S DIR("?")="To enter 0.1 - 0.9, do not enter the '0'. Ex. .1, .2, etc."
- S DIR("A")="Elimination rate constant (Kd) in hr-1"
- D ^DIR G END:$D(DIRUT)
- S APSKK1=Y
- I ($L(APSKK1)=2)&(APSKK1[".") S APSKK1=0_APSKK1
- K DIR S DIR(0)="N" W !!
- S DIR("A")="TOTAL volume of distribution (Vd) in liters"
- D ^DIR G END:$D(DIRUT) S APSKV1=Y
- S APSKK1=$P(APSKK1*100+.5,".",1)/100
- S APSKT1=0.693/APSKK1
- S APSKV2=APSKV1/APSKWT
- S APSKT1=$P(100*APSKT1+.5,".",1)/100
- S APSKV2=$P(100*APSKV2+.5,".",1)/100
- G DOSING^APSKAMN4
- ;
- END Q
- APSKAMN9 ;IHS/ANMC/SFB/MRS - CALC WITHOUT REGRESSION ANALY[ 09/28/94 10:54 AM ]
- +1 ;;1.0;Aminoglycoside Kinetics;;OCT 31,1994
- +2 SET IOP=ION
- SET %ZIS("B")=""
- +3 DO ^%ZIS
- NOREG ;EP - DETERMINES DOSE AND INTERVAL WITHOUT A REGRESSION ANALYSIS.
- +1 IF APSKPTIN=0
- DO NOINFO^APSKAMN
- QUIT
- +2 SET APSKM=2
- +3 WRITE @IOF
- +4 WRITE !,"Please enter known or estimated parameters:"
- +5 KILL DIR
- SET DIR(0)="N"
- WRITE !!
- +6 SET DIR("A")="Infusion rate (k0) in mg/hr"
- +7 DO ^DIR
- IF $DATA(DIRUT)
- GOTO END
- SET APSKK0=Y
- +8 KILL DIR
- SET DIR(0)="N"
- WRITE !!
- +9 SET DIR("A")="Length of infusion (T') in hr"
- +10 DO ^DIR
- IF $DATA(DIRUT)
- GOTO END
- SET APSKT0=Y
- +11 KILL DIR
- SET DIR(0)="N^.1:5:1"
- WRITE !!
- +12 SET DIR("?")="To enter 0.1 - 0.9, do not enter the '0'. Ex. .1, .2, etc."
- +13 SET DIR("A")="Elimination rate constant (Kd) in hr-1"
- +14 DO ^DIR
- IF $DATA(DIRUT)
- GOTO END
- +15 SET APSKK1=Y
- +16 IF ($LENGTH(APSKK1)=2)&(APSKK1[".")
- SET APSKK1=0_APSKK1
- +17 KILL DIR
- SET DIR(0)="N"
- WRITE !!
- +18 SET DIR("A")="TOTAL volume of distribution (Vd) in liters"
- +19 DO ^DIR
- IF $DATA(DIRUT)
- GOTO END
- SET APSKV1=Y
- +20 SET APSKK1=$PIECE(APSKK1*100+.5,".",1)/100
- +21 SET APSKT1=0.693/APSKK1
- +22 SET APSKV2=APSKV1/APSKWT
- +23 SET APSKT1=$PIECE(100*APSKT1+.5,".",1)/100
- +24 SET APSKV2=$PIECE(100*APSKV2+.5,".",1)/100
- +25 GOTO DOSING^APSKAMN4
- +26 ;
- END QUIT
