Routine: PSJMUTL

Information

PSJMUTL ;BIR/MV-UTLILITY USE FOR QUEUING... ;25 Nov 98 / 9:13 AM

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC (,$$S)^%ZTLOAD
Adverse Reaction Tracking	1	^GMRADPT
Inpatient Medications	1	NAME^PSIVUTL
Order Entry Results Reporting	1	($$HAVEHDR,GET,HAVEHDR)^ORRDI1
VA Fileman	1	^DIR

Package

Total

Call Graph

Kernel

^%ZIS ^%ZISC (,$$S)^%ZTLOAD

Adverse Reaction Tracking

^GMRADPT

Inpatient Medications

NAME^PSIVUTL

Order Entry Results Reporting

($$HAVEHDR,GET,HAVEHDR)^ORRDI1

VA Fileman

^DIR

Package	Total	Caller Graph
Inpatient Medications	14	PSGCAPP0 PSGEUDD PSGEUDP PSGMAR1 PSGMIV PSGMMAR1 PSGMMIV PSJ0186 PSJHEAD PSJLMUTL PSJMDWS PSJMIV PSJMPRTU PSJUTL
Outpatient Pharmacy	1	PSOQ0236

Package

Total

Caller Graph

Inpatient Medications

PSGCAPP0 PSGEUDD PSGEUDP PSGMAR1 PSGMIV PSGMMAR1 PSGMMIV PSJ0186
PSJHEAD PSJLMUTL PSJMDWS PSJMIV PSJMPRTU PSJUTL

Outpatient Pharmacy

PSOQ0236

Entry Points

Name	Comments	DBIA/ICR reference
SORT	;*** Set up the allergies and adv. reactions arrays.
RAD	;
SELDEV()	;* Ask for device type for report to output to *
SETARRAY	;*** Concatenate allergies and adv. reaction together into display len.
SETSORTQ(XDESC,XSAVE,ZTRTN)
NAMENEED(DRGX,LEN,NEED)
REMOTE2	;
EXIT	;
PRTCHK(PGCT)	;
CALLEN	;*** Calculate the total length for allergy and adv.reaction arrays.
SETPRTQ(XDESC,XSAVE,ZTRTN)
GETGMRA	;
EXITDEV	;
ATS(REG,EXP,LN)	;	ICR #5058 Status: Active Usage: Private

Name	Field # of Occurrence
^%ZIS	SELDEV+3, SETPRTQ+5
^%ZISC	EXITDEV+3, EXIT+4
^%ZTLOAD	SETSORTQ+6, SETPRTQ+5
$$S^%ZTLOAD	PRTCHK+2
^DIR	EXITDEV+1, PRTCHK+1, PRTCHK+3
^GMRADPT	GETGMRA+6
$$HAVEHDR^ORRDI1	RAD+2
GET^ORRDI1	RAD+5
HAVEHDR^ORRDI1	RAD+1
NAME^PSIVUTL	NAMENEED+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !," No device selected or Report printed " Line Location: SELDEV+3
Function Call: WRITE	Prompt: ! Line Location: EXITDEV+1
Function Call: WRITE	Prompt: !!?20,"...Report stopped at user request..." Line Location: PRTCHK+3
Routine Call	DIR Line Location: EXITDEV+1 PRTCHK+1 PRTCHK+3
Routine Call	%ZIS Line Location: SELDEV+3 SETPRTQ+5

Name	Line Occurrences (* Changed, ! Killed)
^PS(52.7 - [#52.7]	NAMENEED+5
^TMP("PSJALL"	REMOTE2+1, REMOTE2+2
^TMP($J	RAD+6!, RAD+10*, RAD+11
^XTMP("ORRDI"	RAD+4, RAD+7, RAD+8

Name	Line Occurrences
EXIT	SELDEV+3
REMOTE2	RAD+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EXIT+1!
%H	EXIT+1!
%I	EXIT+1!
%ZIS	SELDEV+1!, SELDEV+2, SETPRTQ+2, EXIT+1!
%ZIS("A"	SELDEV+2*
%ZIS("B"	SELDEV+2*
A	RAD+6~, RAD+8, RAD+14
ADR	GETGMRA+1~
ADR(	SORT+5*, SETARRAY+5
ADRCT	GETGMRA+1~, GETGMRA+3, SORT+5, CALLEN+4, CALLEN+5, SETARRAY+5, SETARRAY+6
ALG	GETGMRA+1~
ALG(	SORT+4*, SETARRAY+3
ALGCT	GETGMRA+1~, GETGMRA+3, SORT+4, CALLEN+2, CALLEN+5, SETARRAY+3, SETARRAY+4
>> DFN	GETGMRA+4, GETGMRA+5, GETGMRA+6, RAD+5, RAD+7, RAD+8
DIR	EXITDEV+1!, PRTCHK+1!, PRTCHK+3!
DIR("A"	EXITDEV+1, PRTCHK+3
DIR(0	EXITDEV+1, PRTCHK+1, PRTCHK+3*
>> DRG(	NAMENEED+5
DRGX	NAMENEED~, NAMENEED+5
EXP	ATS~, CALLEN+6, CALLEN+7
FILE	RAD+6~, RAD+8*, RAD+9
GMRA	GETGMRA+1~, GETGMRA+6*
GMRAL	GETGMRA+1~, GETGMRA+7, GETGMRA+8, GETGMRA+9
GMRAL(	SORT+1, SORT+2
GMRANKA	GETGMRA+1~
GMRAOTH	GETGMRA+1~
I	SETSORTQ+1~, SETSORTQ+5, SETPRTQ+1~, SETPRTQ+4, REMOTE2+2*
IO("DOC"	SETSORTQ+4
IO("Q"	SELDEV+1!, SETSORTQ+2!
IOF	EXIT+2
ION	SETSORTQ+3
IOP	SELDEV+1!, SETPRTQ+2, EXITDEV+3, EXIT+4*
IOST	EXITDEV+1, PRTCHK+1, EXIT+2, GETGMRA+8, GETGMRA+9, CALLEN+1, CALLEN+2, CALLEN+3, CALLEN+4
LEN	GETGMRA+1~, CALLEN+6, CALLEN+7, SETARRAY+1, SETARRAY+3, SETARRAY+5, SETARRAY+7, NAMENEED~, NAMENEED+5, RAD+6~ , RAD+7, RAD+12, RAD+13
LN	ATS~, CALLEN+6, CALLEN+7
NAME	GETGMRA+1~, SORT+1*, SORT+3, SORT+4, SORT+5, SORT+6, NAMENEED+5
NAME(2	NAMENEED+5
NEED	NAMENEED~, NAMENEED+4, NAMENEED+5
PGCT	PRTCHK~, PRTCHK+1
POP	SELDEV+1!, SELDEV+3
PSGADR	GETGMRA+2!, GETGMRA+3, GETGMRA+8, GETGMRA+9, SORT+5, CALLEN+4*, CALLEN+6, CALLEN+7
PSGADR(	SETARRAY+5, SETARRAY+6
PSGADR(1	GETGMRA+3, GETGMRA+8, GETGMRA+9, CALLEN+4
PSGALG	GETGMRA+2!, GETGMRA+3, GETGMRA+8, GETGMRA+9, SORT+4, CALLEN+2*, CALLEN+6, CALLEN+7
PSGALG(	SETARRAY+3, SETARRAY+4
PSGALG(1	GETGMRA+3, GETGMRA+8, GETGMRA+9, CALLEN+2
>> PSGIO	SETSORTQ+3*, SETPRTQ+2
>> PSGIODOC	SETSORTQ+4*, SETPRTQ+3
>> PSGP	GETGMRA+4, GETGMRA+5*, GETGMRA+6
>> PSGRALG	RAD+3, RAD+7, RAD+12, RAD+13*, RAD+14, REMOTE2+2
>> PSGRALG(	RAD+12, RAD+13, RAD+14*, REMOTE2+2
>> PSGRALG(1	RAD+3, RAD+7, REMOTE2+1
PSGVADR	GETGMRA+2!, GETGMRA+3, GETGMRA+8, GETGMRA+9, SORT+6, CALLEN+3*, CALLEN+6, CALLEN+7
PSGVADR(	SETARRAY+7, SETARRAY+8
PSGVADR(1	GETGMRA+3, GETGMRA+8, GETGMRA+9, CALLEN+3
PSGVALG	GETGMRA+2!, GETGMRA+3, GETGMRA+8, GETGMRA+9, SORT+3, CALLEN+1*, CALLEN+6, CALLEN+7
PSGVALG(	SETARRAY+1, SETARRAY+2
PSGVALG(1	GETGMRA+3, GETGMRA+8, GETGMRA+9, CALLEN+1
>> PSJGMRAL	GETGMRA+7*
>> PSJLN	REMOTE2+1, REMOTE2+2
>> PSJSTOP	SELDEV+3, SELDEV+4, EXITDEV+1, PRTCHK+1, PRTCHK+2*, PRTCHK+3, PRTCHK+4
>> PSJWHERE	GETGMRA+7
REAC	RAD+6~, RAD+8, RAD+10, RAD+11, RAD+12, RAD+13
REG	ATS~, CALLEN+6, CALLEN+7
S1	RAD+6~, RAD+7*, RAD+8
SORT	GETGMRA+1~, SORT+2*, SORT+3, SORT+4, SORT+5, SORT+6
TYPE	GETGMRA+1~, SORT+1*, SORT+3, SORT+4, SORT+5, SORT+6
U	SORT+1, SORT+2, NAMENEED+5
VADR	GETGMRA+1~
VADR(	SORT+6*, SETARRAY+7
VADRCT	GETGMRA+1~, GETGMRA+3, SORT+6, CALLEN+3, CALLEN+5, SETARRAY+7, SETARRAY+8
VALG	GETGMRA+1~
VALG(	SORT+3*, SETARRAY+1
VALGCT	GETGMRA+1~, GETGMRA+3, SORT+3, CALLEN+1, CALLEN+5, SETARRAY+1, SETARRAY+2
VERIFIED	GETGMRA+1~, SORT+1*, SORT+3, SORT+4, SORT+5, SORT+6
X	SETSORTQ+1~, SETSORTQ+5, SETPRTQ+1~, SETPRTQ+4, GETGMRA+1~, SORT+1, SORT+2, SETARRAY+1, SETARRAY+3, SETARRAY+5 , SETARRAY+7, NAMENEED+5
XDESC	SETSORTQ~, SETSORTQ+3, SETPRTQ~, SETPRTQ+2
XSAVE	SETSORTQ~, SETSORTQ+5, SETPRTQ~, SETPRTQ+4
Y	PRTCHK+1, GETGMRA+1~, SETARRAY+1, SETARRAY+2, SETARRAY+3, SETARRAY+4, SETARRAY+5, SETARRAY+6, SETARRAY+7, SETARRAY+8
>> ZSTOP	PRTCHK+2*
ZTDESC	SETSORTQ+3, SETPRTQ+2, EXIT+1!
ZTDTH	SETSORTQ+2!, SETPRTQ+2*, EXIT+1!
ZTIO	SETSORTQ+3, SETPRTQ+2, SETPRTQ+3*, EXIT+1!
>> ZTQUEUED	EXITDEV+2, PRTCHK+2, EXIT+3
>> ZTREQ	EXITDEV+2, EXIT+3
ZTRTN	SETSORTQ~, SETPRTQ~, EXIT+1!
ZTSAVE	SETSORTQ+2!, EXIT+1!
ZTSAVE(	SETSORTQ+5, SETPRTQ+4
ZTSK	SETSORTQ+2!

Customize PDF page

Package: Inpatient Medications

Routine: PSJMUTL

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 15

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items