Routine: APSKAMN5

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
IHS Changes To Pharmacy	2	NOINFO^APSKAMN EXP^APSKAMN6
VA Fileman	1	^DIR

Package	Total	Caller Graph
IHS Changes To Pharmacy	1	APSKAMN4

Entry Points

External References

Name	Field # of Occurrence
^%ZIS	FINALR
^%ZISC	FINALR+2, QUE2+4, EN2+15
^%ZTLOAD	QUE2+3
NOINFO^APSKAMN	LOOP+5, REPEAT+1
EXP^APSKAMN6	LOOP+6, LOOP+8, LOOP+11
^DIR	LOOP+23, SKIP2+2, SKIP2+7, REPEAT2+5, REPEAT2+8, REPEAT+4, REPEAT+7, HDR

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,APSKK3," mg/hr given over ",APSKT0," hour every ",APSKT3," hours will produce:" Line Location: LOOP+17
Function Call: WRITE	Prompt: !," ",$J(APSKC4,3,2)," mcg per ml MAXIMUM serum concentrations" Line Location: LOOP+18
Function Call: WRITE	Prompt: !," ",$J(APSKC5,3,2)," mcg per ml MINIMUM serum concentrations" Line Location: LOOP+19
Function Call: WRITE	Prompt: !! Line Location: LOOP+20
Function Call: WRITE	Prompt: !! Line Location: SKIP2+5
Function Call: WRITE	Prompt: !! Line Location: REPEAT2+3
Function Call: WRITE	Prompt: ! Line Location: REPEAT2+5
Function Call: WRITE	Prompt: ! Line Location: REPEAT+4
Function Call: WRITE	Prompt: @IOF Line Location: HDR1+0
Function Call: WRITE	Prompt: ! Line Location: HDR2+2
Function Call: WRITE	Prompt: "*" Line Location: HDR2+2
Function Call: WRITE	Prompt: " CONFIDENTIAL PATIENT INFORMATION " Line Location: HDR2+3
Function Call: WRITE	Prompt: "*" Line Location: HDR2+4
Function Call: WRITE	Prompt: !,"Printed by: ",$P(^VA(200,DUZ,0),U),?(IOM-10),"PAGE: ",$J(APSKPAGE,3) Line Location: HDR2+5
Function Call: WRITE	Prompt: !!!,"THIS IS INTENDED TO BE ONLY A WORKSHEET. IT SHOULD BE SHREDDED WHEN YOU ARE" Line Location: HDR2+6
Function Call: WRITE	Prompt: !,"FINISHED." Line Location: HDR2+7
Function Call: WRITE	Prompt: !!!,"NAME:",?6,APSKNAME,?34,"DOSING WT:",APSKWT," KG" Line Location: HDR2+8
Function Call: WRITE	Prompt: !,"DATE OF ANALYSIS: ",APSKDATE,?34,"CHART NUMBER: ",APSKCHRT Line Location: HDR2+9
Function Call: WRITE	Prompt: !!?15,"AMINOGLYCOSIDE KINETICS WORKSHEET" Line Location: HDR2+10
Function Call: WRITE	Prompt: !?15,"---------------------------------" Line Location: HDR2+11
Function Call: WRITE	Prompt: !!,"POSSIBLE OPTIONS" Line Location: HDR2+12
Function Call: WRITE	Prompt: !,"----------------",! Line Location: HDR2+13
Routine Call	DIR Line Location: LOOP+23 SKIP2+2 SKIP2+7 REPEAT2+5 REPEAT2+8 REPEAT+4 REPEAT+7 HDR
Routine Call	%ZIS Line Location: FINALR

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^VA(200 - [#200]	HDR2+5

Label References

Name	Line Occurrences
@(	EN2+1
APSKREM	EN2+13
EN2	FINALR+1
END	LOOP+23, SKIP2+2, SKIP2+7, REPEAT2+5, REPEAT2+8, REPEAT+4, REPEAT+7, FINALR, HDR
FINALR	LOOP+16, SKIP2+10
HDR	EN2+14, HDR2+1
HDR1	EN2+7
LOOP	REPEAT2+10, REPEAT+10
QUE2	FINALR
REPEAT	SKIP2+4
SB	LOOP+16, LOOP+24

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	QUE2+1*
>> %ZIS	FINALR*
>> APSK	HDR2+2, HDR2+4
>> APSK(	EN2+2, EN2+3, SB+1*, APSKREM!
>> APSKC4	LOOP+10, LOOP+12, LOOP+13, LOOP+14, LOOP+18, EN2+5, EN2+9, SB+1
>> APSKC4A	LOOP+7*, LOOP+10
>> APSKC4B	LOOP+9*, LOOP+10
>> APSKC5	LOOP+12, LOOP+15, LOOP+19, EN2+6*, EN2+10, SB+1
>> APSKCC	SKIP2+7*, SKIP2+10
>> APSKCHRT	HDR2+9
>> APSKCLR	APSKREM*
>> APSKCNT	EN2, EN2+12, EN2+14, HDR+1, APSKREM
>> APSKDATE	HDR2+9
>> APSKEE	LOOP+7, LOOP+9, LOOP+12
>> APSKFIN	LOOP+16, REPEAT2+9*
>> APSKK1	LOOP+6, LOOP+8, LOOP+9, LOOP+11
>> APSKK3	LOOP+7, LOOP+17, REPEAT2+5, REPEAT+4, EN2+4*, EN2+8, SB+1
>> APSKN0	EN2, EN2+2, EN2+3
>> APSKNAME	HDR2+8
>> APSKND	EN2+3*, EN2+4, EN2+5, EN2+6
>> APSKNP	EN2+13
>> APSKPAGE	EN2, HDR2, HDR2+5
>> APSKPTIN	LOOP+5, REPEAT+1
>> APSKQ	SKIP2+2*, SKIP2+4
>> APSKSS	HDR+1, SB*, SB+1
>> APSKT0	LOOP+6, LOOP+11, LOOP+17, EN2+4*, EN2+8, SB+1
>> APSKT3	LOOP+8, LOOP+11, LOOP+17, REPEAT2+8, REPEAT+7, EN2+5*, EN2+8, SB+1
>> APSKV1	LOOP+9
>> APSKWT	HDR2+8
>> APSKXX	LOOP+6, LOOP+8, LOOP+11*
DIR	LOOP+21!, SKIP2!, SKIP2+5!, REPEAT2+3!, REPEAT2+6!, REPEAT+2!, REPEAT+5!, HDR!
DIR("A"	LOOP+22, SKIP2+1, SKIP2+6, REPEAT2+4, REPEAT2+7, REPEAT+3, REPEAT+6*
DIR("B"	LOOP+21, SKIP2
DIR(0	LOOP+21, SKIP2, SKIP2+5, REPEAT2+3, REPEAT2+6, REPEAT+2, REPEAT+5, HDR
>> DIRUT	LOOP+23, SKIP2+2, SKIP2+7, REPEAT2+5, REPEAT2+8, REPEAT+4, REPEAT+7, HDR
DUZ	HDR2+5
IO	EN2+1
IO("Q"	FINALR, QUE2!
IOF	HDR1
IOM	HDR2+5
IOSL	EN2+7, EN2+14, HDR2+1
IOST	EN2+1, HDR, HDR2+1
>> POP	FINALR
U	HDR2+5
>> Y	LOOP+24, SKIP2+2, SKIP2+7, REPEAT2+5, REPEAT2+8, REPEAT+4, REPEAT+7
>> ZTDESC	QUE2+2*
>> ZTRTN	QUE2+2*
ZTSAVE	QUE2!
ZTSAVE(	QUE2+1*
ZTSK	QUE2+3!

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSKAMN5

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
REPEAT	;EP
HDR2
HDR
HDR1
APSKREM
SKIP2
EN2
QUE2
END
SB
REPEAT2	;===>USER ENTERS RECOMMENDED DOSE AND INTERVAL
FINALR
LOOP	;EP