Routine: PSIVAMIS

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Inpatient Medications	2	ENIVKV^PSGSETU TM^PSIVDCR1
VA Fileman	1	NOW^%DTC

Entry Points

External References

Name	Field # of Occurrence
NOW^%DTC	H
^%ZIS	PRTQUE+1
^%ZISC	W
^%ZTLOAD	PRTQUE+1
ENIVKV^PSGSETU	K
TM^PSIVDCR1	W+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: S Line Location: PRTQUE+0
Function Call: WRITE	Prompt: U Line Location: W+0
Function Call: WRITE	Prompt: !!,"IV ROOM ",$P(^PS(59.5,IV,0),U) Line Location: W+1
Function Call: WRITE	Prompt: !!?56,"================",!?5,"*TOTAL FOR IV ROOM: ",$P(^PS(59.5,IV,0),U),?54,$J(IVTOT,18,4),! Line Location: W+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: H+0
Function Call: WRITE	Prompt: !!!?31,"IV AMIS REPORT",?65,"Page No. ",PGCNT,!,?20,"FROM " Line Location: H+0
Function Call: WRITE	Prompt: Y," THROUGH " Line Location: H+0
Function Call: WRITE	Prompt: Y," THROUGH " Line Location: H+0
Function Call: WRITE	Prompt: Y," THROUGH " Line Location: H+0
Function Call: WRITE	Prompt: !!,?36,"TOTAL",?63,"AVERAGE",!,?5,"TYPE",?34,"DISPENSED (BAGS)",?64,"COST" Line Location: H+1
Function Call: WRITE	Prompt: !! Line Location: H+2
Function Call: WRITE	Prompt: "=" Line Location: H+2
Function Call: WRITE	Prompt: !,?30,"_____________",?57,"_______________" Line Location: WDTOT+0
Function Call: WRITE	Prompt: !,?5,"TOTAL FOR WARD" Line Location: WDTOT+1
Function Call: WRITE	Prompt: !?5 Line Location: PRTLN+0
Function Call: WRITE	Prompt: "*" Condition for execution: $D(PR) Line Location: PRTLN+0
Function Call: WRITE	Prompt: $S(TYP="P":"Piggyback",TYP="A":"Admixture",TYP="H":"Hyperal",TYP="C":"Chemotherapy",1:"Syringe") Line Location: PRTLN+0
Function Call: WRITE	Prompt: ?35,$J(DISP,8,0),?60,$J(TUC,12,4) Line Location: PRTLN1+0
Function Call: WRITE	Prompt: !!,PERRY Line Location: IV+0
Routine Call	%ZIS Line Location: PRTQUE+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	H
^DIC(42 - [#42]	TYPE+2, TYPE+3, SETEM+1, SETEM+2
^PS(50.8 - [#50.8]	ENQ, DRUG, DRUG+1, WARD, TYPE, TYPE+1, TYPE+2, GETEM, GETEM+1
^PS(59.5 - [#59.5]	W+1
^UTILITY($J	ENQ!, W, W+1, K!, TYPE+2, TYPE+3, WRT2, WRT2+1, IV, SETEM+1 , SETEM+2

Label References

Name	Line Occurrences
COMPTE	WRT2+1
CTOT	W+1
DRUG	ENQ
GETEM	DRUG
H	W, W+1, WDTOT+1, IV
HERE	COMPTE, COMPTE+1
IV	W+1
K	PRTQUE+1, W
PRTLN	W+1, WRT2+1
PRTLN1	WRT2+1, WDTOT+1
SETEM	GETEM, GETEM+1
TYPE	WARD
W	PRTQUE
WARD	DRUG+1
WRT2	IV

Naked Globals

Name	Field # of Occurrence
^(	DRUG+1, WARD, TYPE+2, WRT2+1, SETEM+1
^("R"	GETEM+1
^(0	DRUG+1, TYPE+2, TYPE+3, GETEM, SETEM+1, SETEM+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	PRTQUE+1*
>> C	HERE+1*
CNT	K!
CNT(	SETEM*, SETEM+1
CNTNDE	K!, GETEM, GETEM+1, SETEM
COST	TYPE+1*, TYPE+2, TYPE+3!
D	K!
>> DA	TYPE*, TYPE+1, TYPE+2
DAT	ENQ*, K!, DRUG, DRUG+1, WARD, TYPE, TYPE+1, TYPE+2, GETEM, GETEM+1
DISP	K!, WDTOT+1, COMPTE, COMPTE+1, HERE, HERE+2, CTOT+1*, PRTLN1
DRG	K!, DRUG+1*, WARD, TYPE, TYPE+1, TYPE+2
DRGCOST	K!, DRUG+1*, TYPE+1
DS	K!, WDTOT+1*
>> G	PRTQUE*
>> I6	PRTQUE, PRTQUE+1
>> I7	ENQ, H
>> I8	ENQ, H
IO	W
IOF	W, H
>> IOP	PRTQUE+1*
IOSL	WDTOT+1, IV
IOST	W
IV	ENQ, W+1, K!, DRUG, DRUG+1, WARD, TYPE, TYPE+1, TYPE+2, TYPE+3 , WRT2, WRT2+1, IV, GETEM, GETEM+1, SETEM+1, SETEM+2
IVTOT	W+1, K!, WDTOT+1
JJ	K!, IV*
LN	K!, H+2*
LO	K!, TYPE+2, TYPE+3, HERE+1, HERE+2, SETEM+1, SETEM+2
PERRY	K!, WRT2, WRT2+1, IV*
PGCNT	W, K!, H
PR	W+1*, PRTLN!
TOT	W+1!
TOT(	HERE+1, HERE+2*, CTOT, CTOT+1
TOTNDE	K!, WRT2*, COMPTE
TUC	K!, WDTOT+1, COMPTE, COMPTE+1, CTOT, PRTLN1
TYP	W+1, K!, WARD, TYPE, TYPE+2, TYPE+3, WRT2+1*, COMPTE, COMPTE+1, HERE , HERE+1, HERE+2, PRTLN, CTOT, CTOT+1
U	W+1, DRUG+1, TYPE+1, TYPE+2, TYPE+3, COMPTE, COMPTE+1, HERE, HERE+1, HERE+2 , CTOT, CTOT+1, SETEM, SETEM+1, SETEM+2
WARD	K!, DRUG*, GETEM, GETEM+1, SETEM+1, SETEM+2
WCOST	K!, WDTOT+1, HERE*, IV!
>> WD	WARD*, TYPE, TYPE+1, TYPE+2, TYPE+3
WDISP	K!, WDTOT+1, HERE*, IV!
WUNITS	K!, HERE*, IV!
>> X	H, GETEM, GETEM+1, SETEM+1, SETEM+2
>> Y	H*
>> ZTDESC	PRTQUE+1*
>> ZTDTH	PRTQUE*
>> ZTIO	PRTQUE*
>> ZTQUEUED	K
>> ZTREQ	K*
>> ZTRTN	PRTQUE*
>> ZTSAVE(	PRTQUE*
>> ZTSAVE("^UTILITY($J,"	PRTQUE*
ZZ	K!, SETEM, SETEM+1
ZZ(	WRT2+1*, COMPTE, COMPTE+1, HERE, HERE+1

Customize PDF page

Package: Inpatient Medications

Routine: PSIVAMIS

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: