Routine: APSKAMN4

Information

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

Package	Total	Call Graph
IHS Changes To Pharmacy	2	LOOP^APSKAMN5 (EXP,LN)^APSKAMN6
VA Fileman	1	^DIR

Package	Total	Caller Graph
IHS Changes To Pharmacy	1	APSKAMN9

Name	Comments	DBIA/ICR reference
ERROR1
IR
END
INFUSTM	;===>ENTER INFUSION TIME IN HOURS
MIN	;EP
MAX	;EP - User enter's Max serum concentration
DI
DOSING	;EP - USER ENTER'S MINIMUM AND MAXIMUM SERUM CONCENTRATIONS

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: DOSING+1
Function Call: WRITE	Prompt: !! Line Location: MAX+1
Function Call: WRITE	Prompt: !! Line Location: INFUSTM+2
Function Call: WRITE	Prompt: !!!,"To maintain the ratio of MAX to MIN serum conc. that you" Line Location: INFUSTM+9
Function Call: WRITE	Prompt: !,"have specified, the EXACT dosing interval would be ",APSKT2," hours" Line Location: INFUSTM+10
Function Call: WRITE	Prompt: !!! Line Location: DI+0
Function Call: WRITE	Prompt: !!,"Assuming ",APSKT3," hour dosing, the EXACT infusion rate to produce" Line Location: DI+8
Function Call: WRITE	Prompt: !,"peak serum levels of ",APSKC3," mcg/ml is ",APSKK2," mg/hour given" Line Location: DI+9
Function Call: WRITE	Prompt: !,"over a ",APSKT0," hour period." Line Location: DI+10
Function Call: WRITE	Prompt: !!! Line Location: IR+0
Function Call: WRITE	Prompt: !! Line Location: ERROR1+0
Function Call: WRITE	Prompt: !,"The Maximum serum concentration you entered is less" Line Location: ERROR1+1
Function Call: WRITE	Prompt: !,"than the Minimum serum concentration. Please enter" Line Location: ERROR1+2
Function Call: WRITE	Prompt: !,"a new Maximum serum concentration",!! Line Location: ERROR1+3
Routine Call	DIR Line Location: MIN+4 MAX+4 INFUSTM+5 DI+3 IR+3

Name	Field # of Occurrence
>> APSKC2	MIN+5, MIN+6, MAX+6, INFUSTM+6
>> APSKC3	MAX+5*, MAX+6, INFUSTM+6, DI+6, DI+9
>> APSKEE	DI+4, DI+5
>> APSKEE1	DI+4*, DI+6
>> APSKEE2	DI+5*, DI+6
>> APSKK1	INFUSTM+7, DI+4, DI+5, DI+6
>> APSKK2	DI+7*, DI+9
>> APSKK2A	DI+6*, DI+7
>> APSKK3	IR+3*
>> APSKLNN	INFUSTM+7
>> APSKT0	INFUSTM+5*, INFUSTM+7, DI+5, DI+10
>> APSKT2	INFUSTM+7, INFUSTM+8, INFUSTM+10
>> APSKT3	DI+3*, DI+4, DI+8
>> APSKV1	DI+6
>> APSKXX	INFUSTM+6, DI+4, DI+5*
DIR	MIN+1!, MIN+4!, MAX+1!, MAX+4!, INFUSTM+2!, INFUSTM+5!, DI!, DI+3!, IR!, IR+3!
DIR("?"	MIN+3, MAX+3, INFUSTM+4, DI+2, IR+2*
DIR("A"	MIN+2, MAX+2, INFUSTM+3, DI+1, IR+1*
DIR(0	MIN+1, MAX+1, INFUSTM+2, DI, IR*
>> DTOUT	MIN+4, MAX+4, INFUSTM+5, DI+3, IR+3
>> DUOUT	MIN+4, MAX+4, INFUSTM+5, DI+3, IR+3
IOF	DOSING+1
>> Y	MIN+4, MIN+5, MAX+4, MAX+5, INFUSTM+5, DI+3, IR+3