APSKAMN4.m

APSKAMN4 ;IHS/ANMC/SFB/MRS - CALC MIN & MAX SERUM CONC.,DOSING INTERVALS & RATE; [ 09/28/94  10:51 AM ]

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

 ;

DOSING ;EP - USER ENTER'S MINIMUM AND MAXIMUM SERUM CONCENTRATIONS

 W @IOF

MIN ;EP

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

 S DIR("A")="desired MINIMUM serum concentration in MCG/ML"

 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),MIN:Y=-1 K DIR

 S APSKC2=Y

 I ($L(APSKC2))=2&(APSKC2[".") S APSKC2=APSKC2=0_APSKC2

MAX ;EP - User enter's Max serum concentration

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

 S DIR("A")="desired MAXIMUM serum concentration in MCG/ML"

 S DIR("?")="Required response. Enter '^' to exit"

 D ^DIR G END:$D(DTOUT),END:$D(DUOUT),MAX:Y=-1 K DIR

 S APSKC3=Y

 I APSKC3<APSKC2 D ERROR1 G MAX

 ;

INFUSTM ;===>ENTER INFUSION TIME IN HOURS

 ;===>CALCULATES 'EXACT' DOSING INTERVAL AND 'EXACT' INFUSION RATE

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

 S DIR("A")="recommended infusion time in HOURS (T')"

 S DIR("?")="Required response. Enter '^' to exit"

 D ^DIR G END:$D(DTOUT),END:$D(DUOUT),INFUSTM:Y=-1 K DIR S APSKT0=Y

 S APSKXX=(APSKC2/APSKC3) D LN^APSKAMN6

 S APSKT2=((-APSKLNN)/APSKK1)+APSKT0

 S APSKT2=$P(100*APSKT2+.5,".",1)/100

 W !!!,"To maintain the ratio of MAX to MIN serum conc. that you"

 W !,"have specified, the EXACT dosing interval would be ",APSKT2," hours"

DI W !!! K DIR S DIR(0)="N"

 S DIR("A")="Please enter a clinically acceptable dosing interval (in hrs)"

 S DIR("?")="Required response. Enter '^' to exit"

 D ^DIR G END:$D(DTOUT),END:$D(DUOUT),DI:Y=-1 K DIR S APSKT3=Y

 S APSKXX=(-APSKK1*APSKT3) D EXP^APSKAMN6 S APSKEE1=1-APSKEE

 S APSKXX=(-APSKK1*APSKT0) D EXP^APSKAMN6 S APSKEE2=1-APSKEE

 S APSKK2A=APSKK1*APSKV1*APSKC3*(APSKEE1/APSKEE2)

 S APSKK2=$P(100*APSKK2A+.5,".",1)/100

 W !!,"Assuming ",APSKT3," hour dosing, the EXACT infusion rate to produce"

 W !,"peak serum levels of ",APSKC3," mcg/ml is ",APSKK2," mg/hour given"

 W !,"over a ",APSKT0," hour period."

IR K DIR W !!! S DIR(0)="N"

 S DIR("A")="Please enter a clinically acceptable infusion rate (in mg/hr)"

 S DIR("?")="Required response. Enter '^' to exit"

 D ^DIR G END:$D(DTOUT),END:$D(DUOUT),IR:Y=-1 K DIR S APSKK3=Y

 G LOOP^APSKAMN5

ERROR1 W !!

 W !,"The Maximum serum concentration you entered is less"

 W !,"than the Minimum serum concentration.  Please enter"

 W !,"a new Maximum serum concentration",!!

 Q

 ;

END Q

APSKAMN4  ;IHS/ANMC/SFB/MRS - CALC MIN & MAX SERUM CONC.,DOSING INTERVALS & RATE; [ 09/28/94  10:51 AM ]

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

 +2       ;

DOSING    ;EP - USER ENTER'S MINIMUM AND MAXIMUM SERUM CONCENTRATIONS

 +1        WRITE @IOF

MIN       ;EP

 +1        KILL DIR

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

 +2        SET DIR("A")="desired MINIMUM serum concentration in MCG/ML"

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

 +4        DO ^DIR

           IF $DATA(DTOUT)

               GOTO END

           IF $DATA(DUOUT)

               GOTO END

           IF Y=-1

               GOTO MIN

           KILL DIR

 +5        SET APSKC2=Y

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

               SET APSKC2=APSKC2=0_APSKC2

MAX       ;EP - User enter's Max serum concentration

 +1        KILL DIR

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

           WRITE !!

 +2        SET DIR("A")="desired MAXIMUM serum concentration in MCG/ML"

 +3        SET DIR("?")="Required response. Enter '^' to exit"

 +4        DO ^DIR

           IF $DATA(DTOUT)

               GOTO END

           IF $DATA(DUOUT)

               GOTO END

           IF Y=-1

               GOTO MAX

           KILL DIR

 +5        SET APSKC3=Y

 +6        IF APSKC3<APSKC2

               DO ERROR1

               GOTO MAX

 +7       ;

INFUSTM   ;===>ENTER INFUSION TIME IN HOURS

 +1       ;===>CALCULATES 'EXACT' DOSING INTERVAL AND 'EXACT' INFUSION RATE

 +2        KILL DIR

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

           WRITE !!

 +3        SET DIR("A")="recommended infusion time in HOURS (T')"

 +4        SET DIR("?")="Required response. Enter '^' to exit"

 +5        DO ^DIR

           IF $DATA(DTOUT)

               GOTO END

           IF $DATA(DUOUT)

               GOTO END

           IF Y=-1

               GOTO INFUSTM

           KILL DIR

           SET APSKT0=Y

 +6        SET APSKXX=(APSKC2/APSKC3)

           DO LN^APSKAMN6

 +7        SET APSKT2=((-APSKLNN)/APSKK1)+APSKT0

 +8        SET APSKT2=$PIECE(100*APSKT2+.5,".",1)/100

 +9        WRITE !!!,"To maintain the ratio of MAX to MIN serum conc. that you"

 +10       WRITE !,"have specified, the EXACT dosing interval would be ",APSKT2," hours"

DI         WRITE !!!

           KILL DIR

           SET DIR(0)="N"

 +1        SET DIR("A")="Please enter a clinically acceptable dosing interval (in hrs)"

 +2        SET DIR("?")="Required response. Enter '^' to exit"

 +3        DO ^DIR

           IF $DATA(DTOUT)

               GOTO END

           IF $DATA(DUOUT)

               GOTO END

           IF Y=-1

               GOTO DI

           KILL DIR

           SET APSKT3=Y

 +4        SET APSKXX=(-APSKK1*APSKT3)

           DO EXP^APSKAMN6

           SET APSKEE1=1-APSKEE

 +5        SET APSKXX=(-APSKK1*APSKT0)

           DO EXP^APSKAMN6

           SET APSKEE2=1-APSKEE

 +6        SET APSKK2A=APSKK1*APSKV1*APSKC3*(APSKEE1/APSKEE2)

 +7        SET APSKK2=$PIECE(100*APSKK2A+.5,".",1)/100

 +8        WRITE !!,"Assuming ",APSKT3," hour dosing, the EXACT infusion rate to produce"

 +9        WRITE !,"peak serum levels of ",APSKC3," mcg/ml is ",APSKK2," mg/hour given"

 +10       WRITE !,"over a ",APSKT0," hour period."

IR         KILL DIR

           WRITE !!!

           SET DIR(0)="N"

 +1        SET DIR("A")="Please enter a clinically acceptable infusion rate (in mg/hr)"

 +2        SET DIR("?")="Required response. Enter '^' to exit"

 +3        DO ^DIR

           IF $DATA(DTOUT)

               GOTO END

           IF $DATA(DUOUT)

               GOTO END

           IF Y=-1

               GOTO IR

           KILL DIR

           SET APSKK3=Y

 +4        GOTO LOOP^APSKAMN5

ERROR1     WRITE !!

 +1        WRITE !,"The Maximum serum concentration you entered is less"

 +2        WRITE !,"than the Minimum serum concentration.  Please enter"

 +3        WRITE !,"a new Maximum serum concentration",!!

 +4        QUIT 

 +5       ;

END        QUIT