APSKAMN9.m

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