Routine: APSKAMN8

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

Name	Field # of Occurrence
^%ZIS	PRINT+1
^%ZISC	PRINT+3, QUE+3
^%ZTLOAD	QUE+3
NOINFO^APSKAMN	PRINT
^DIR	ENDIT+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?14,"AMINOGLYCOSIDE KINETICS FINAL REPORT" Line Location: EN+1
Function Call: WRITE	Prompt: !! Line Location: EN+1
Function Call: WRITE	Prompt: "-" Line Location: EN+2
Function Call: WRITE	Prompt: !! Line Location: EN+3
Function Call: WRITE	Prompt: "*" Line Location: EN+4
Function Call: WRITE	Prompt: " CONFIDENTIAL PATIENT INFORMATION " Line Location: EN+5
Function Call: WRITE	Prompt: "*" Line Location: EN+6
Function Call: WRITE	Prompt: !,"Printed by: ",$P(^VA(200,DUZ,0),U) Line Location: EN+7
Function Call: WRITE	Prompt: !!,"FINAL RECOMMENDATION" Line Location: EN+8
Function Call: WRITE	Prompt: !,"--------------------" Line Location: EN+9
Function Call: WRITE	Prompt: !,APSKK3," MG/HR GIVEN OVER ",APSKT0," HOUR EVERY ",APSKT3," HOURS WILL PRODUCE:" Line Location: EN+10
Function Call: WRITE	Prompt: !," ",$J(APSKC4,3,2)," MCG/ML MAXIMUM" Line Location: EN+11
Function Call: WRITE	Prompt: !," ",$J(APSKC5,3,2)," MCG/ML MINIMUM" Line Location: EN+12
Function Call: WRITE	Prompt: !!!,"FINAL RESULTS" Line Location: EN+13
Function Call: WRITE	Prompt: !,"-------------" Line Location: EN+14
Function Call: WRITE	Prompt: !!,"NAME:",?6,APSKNAME,?40,"DOSING WT:",APSKWT," KG" Line Location: EN+15
Function Call: WRITE	Prompt: !,"DATE OF ANALYSIS: ",APSKDATE,?40,"CHART NUMBER: ",APSKCHRT Line Location: EN+16
Function Call: WRITE	Prompt: !!,"TEST DOSE: ",APSKD," MG IV FROM ",APSKZ(1)," TO ",APSKZ(2)," O'CLOCK" Line Location: EN+18
Function Call: WRITE	Prompt: ! Line Location: EN+19
Function Call: WRITE	Prompt: !,"SERUM LEVELS",?17,"TIME",?32,"HOURS POST INF.",?53,"CONC.(MCG/ML)" Line Location: EN+20
Function Call: WRITE	Prompt: !,"PRE LEVEL",?17,APSKZ(13),?34,$J(APSKH(13),2,2)," (PRE-INF.)",?56,APSKC(13) Line Location: EN+21
Function Call: WRITE	Prompt: !,"POST #1",?17,APSKZ(3),?34,$J(APSKH(3),2,2),?56,APSKC(3) Line Location: EN+22
Function Call: WRITE	Prompt: !,"EXTRAP.",?17,APSKZ(4),?34,$J(APSKH(4),2,2),?56,APSKC(4) Line Location: EN+24
Function Call: WRITE	Prompt: !,"POST #2",?17,APSKZ(4),?34,$J(APSKH(4),2,2),?56,APSKC(4) Line Location: EN+26
Function Call: WRITE	Prompt: !,"POST #3",?17,APSKZ(5),?34,$J(APSKH(5),2,2),?56,APSKC(5) Line Location: EN+28
Function Call: WRITE	Prompt: !,"POST #4",?17,APSKZ(6),?34,$J(APSKH(6),2,2),?56,APSKC(6) Line Location: EN+30
Function Call: WRITE	Prompt: !,"POST #5",?17,APSKZ(7),?34,$J(APSKH(7),2,2),?56,APSKC(7) Line Location: EN+32
Function Call: WRITE	Prompt: !!,"COEFFICIENT OF DETERMINATION:",?35,$J(APSKR2,2,2) Line Location: SKIP3+0
Function Call: WRITE	Prompt: !,"EXTRAPOLATED PEAK CONC.: ",?35,$J(APSKC1,2,2)," MCG/ML" Line Location: SKIP3+1
Function Call: WRITE	Prompt: !!,"HALF-LIFE:",?35,$J(APSKT1,2,2)," HOURS" Line Location: SKIP4+0
Function Call: WRITE	Prompt: !,"ELIMINATION RATE CONSTANT:",?35,$J(APSKK1,2,2)," HR-1" Line Location: SKIP4+1
Function Call: WRITE	Prompt: !,"VOLUME OF DISTRIBUTION:",?35,$J(APSKV1,3,2)," LITERS ( ",$J(APSKV2,2,2),"L/KG)" Line Location: SKIP4+2
Function Call: WRITE	Prompt: !,"CLEARANCE:",?35,$J(1000APSKK1(APSKV1/APSKWT),2,2)," ML/HR-KG" Line Location: SKIP4+3
Function Call: WRITE	Prompt: !! Line Location: SKIP4+4
Function Call: WRITE	Prompt: "_" Line Location: SKIP4+4
Function Call: WRITE	Prompt: !! Line Location: SKIP4+5
Function Call: WRITE	Prompt: "_" Line Location: SKIP4+5
Function Call: WRITE	Prompt: !! Line Location: SKIP4+6
Function Call: WRITE	Prompt: "_" Line Location: SKIP4+6
Function Call: WRITE	Prompt: !! Line Location: SKIP4+7
Function Call: WRITE	Prompt: "_" Line Location: SKIP4+7
Function Call: WRITE	Prompt: !!,?20 Line Location: SKIP4+8
Function Call: WRITE	Prompt: "_" Line Location: SKIP4+8
Function Call: WRITE	Prompt: @IOF Line Location: ENDIT+3
Routine Call	DIR Line Location: ENDIT+1
Routine Call	%ZIS Line Location: PRINT+1

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

Name	Line Occurrences
EN	PRINT+2
END	PRINT+1, ENDIT+1
ENDIT	SKIP4+9
QUE	PRINT+1
SKIP3	EN+25, EN+27, EN+29, EN+31, EN+33
SKIP4	EN+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	QUE+1*
>> %ZIS	PRINT+1*
>> APSK	EN+4, EN+6
>> APSKA	EN+2*
>> APSKC(13	EN+21
>> APSKC(3	EN+22
>> APSKC(4	EN+24, EN+26
>> APSKC(5	EN+28
>> APSKC(6	EN+30
>> APSKC(7	EN+32
>> APSKC1	SKIP3+1
>> APSKC4	EN+11
>> APSKC5	EN+12
>> APSKCHRT	EN+16
>> APSKD	EN+18
>> APSKDATE	EN+16
>> APSKH(13	EN+21
>> APSKH(3	EN+22
>> APSKH(4	EN+24, EN+26
>> APSKH(5	EN+28
>> APSKH(6	EN+30
>> APSKH(7	EN+32
>> APSKK1	SKIP4+1, SKIP4+3
>> APSKK3	EN+10
>> APSKLINE	SKIP4+4, SKIP4+5, SKIP4+6, SKIP4+7, SKIP4+8*
>> APSKM	EN+17
>> APSKNAME	EN+15
>> APSKPTIN	PRINT
>> APSKR2	SKIP3
>> APSKS(1	EN+27, EN+29, EN+31, EN+33
>> APSKSE	EN+24, EN+25
>> APSKT0	EN+10
>> APSKT1	SKIP4
>> APSKT3	EN+10
>> APSKV1	SKIP4+2, SKIP4+3
>> APSKV2	SKIP4+2
>> APSKWT	EN+15, SKIP4+3
>> APSKZ(1	EN+18
>> APSKZ(13	EN+21
>> APSKZ(2	EN+18
>> APSKZ(3	EN+22
>> APSKZ(4	EN+24, EN+26
>> APSKZ(5	EN+28
>> APSKZ(6	EN+30
>> APSKZ(7	EN+32
DIR	ENDIT!, ENDIT+2!
DIR(0	ENDIT*
>> DIRUT	ENDIT+1
DUZ	EN+7
IO	EN
IO("Q"	PRINT+1, QUE!
IOF	ENDIT+3
IOST	SKIP4+9
>> POP	PRINT+1
U	EN+7
>> ZTDESC	QUE+2*
>> ZTRTN	QUE+2*
ZTSAVE	QUE!
ZTSAVE(	QUE+1*
ZTSK	QUE+3!

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSKAMN8

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: