Routine: LRCAPAM5

Package	Total	Call Graph
Lab Service	4	^LRCAPAM6 (BMPSUM,INITSUM)^LRCAPAM7 $$WKLDNAME^LRCAPU $$INSN^LRU
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	^DIC WAIT^DICD ^DIR

Package	Total	Caller Graph
Lab Service	1	LRCAPAM5

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
DETSUM	;
ZTLOAD	;
REPTYP	;
MONTHS	;
DATTYP	;
EXIT	;
T1	;
INST	;
DEVICE	;
QUE	;
DIV	;
LKUP	;

External References

Name	Field # of Occurrence
^%ZIS	DEVICE+1
^%ZISC	EXIT+1
^%ZTLOAD	ZTLOAD+3
^DIC	DIV+5, MONTHS+5
WAIT^DICD	DEVICE+2
^DIR	DATTYP+12, REPTYP+5, DETSUM+4
^LRCAPAM6	QUE+15
BMPSUM^LRCAPAM7	QUE+8, QUE+12
INITSUM^LRCAPAM7	QUE+4
$$WKLDNAME^LRCAPU	QUE+9
$$INSN^LRU	INST+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?10,"I am sorry, there is no primary institution defined in ^XMB(1,1,""XUS"") ",!," Aborted " Line Location: INST+1
Function Call: WRITE	Prompt: !!?5,"Nothing Selected " Line Location: MONTHS+6
Routine Call	DIC Line Location: DIV+5 MONTHS+5
Routine Call	DIR Line Location: DATTYP+12 REPTYP+5 DETSUM+4
Routine Call	%ZIS Line Location: DEVICE+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	DIV+3
^DIC(42.4 - [#42.4]	LKUP+1
^LAM("C"	QUE+8
^LRO(67.9 - [#67.9]	QUE+6, QUE+7, QUE+8, QUE+14
^TMP($J	QUE+1!, QUE+5, QUE+6*, QUE+13, EXIT+7!, T1+1, T1+2, LKUP+7, LKUP+8, LKUP+9 , LKUP+10

Label References

Name	Line Occurrences
EXIT	INST+1, DIV+5, MONTHS+6, DATTYP+12, REPTYP+5, DETSUM+1, DEVICE+1, ZTLOAD+3
LKUP	T1+1
T1	QUE+14
ZTLOAD	DEVICE+1

Naked Globals

Name	Field # of Occurrence
^(	QUE+6, QUE+14, T1+1, T1+2, LKUP+8, LKUP+10
^(0	QUE+5, QUE+13
^(2	QUE+7
^(3	LKUP+7*
^(5	LKUP+9*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEVICE+1*, EXIT+2!
DA	MONTHS+1!, MONTHS+2*, MONTHS+3, EXIT+2!
DA(1	MONTHS+2*, MONTHS+3
DIC	DIV+1!, DIV+4, MONTHS+1!, MONTHS+3, EXIT+2!
DIC("A"	DIV+2, MONTHS+4
DIC("B"	DIV+3*
DIC(0	DIV+4, MONTHS+2
DIR	DATTYP+1!, REPTYP+1!, DETSUM+3!, EXIT+5!
DIR("?"	DATTYP+5, DATTYP+6, DATTYP+7, DATTYP+8, DATTYP+9, DATTYP+10, DATTYP+11*
DIR("A"	DATTYP+3, REPTYP+3
DIR("B"	DATTYP+4, REPTYP+4
DIR(0	DATTYP+2, REPTYP+1, REPTYP+2, DETSUM+3
DIRUT	EXIT+5!
DTOUT	DATTYP+12, REPTYP+5, DETSUM+5, EXIT+5!
DUOUT	DATTYP+12, REPTYP+5, DETSUM+5, EXIT+5!
DUZ(2	DIV+3
I	QUE+13*, EXIT+2!
IO	QUE+1
IO("Q"	DEVICE+1
ION	ZTLOAD+1
LR	EXIT+2!
LRBS	EXIT+2!, EXIT+4!, LKUP+6*, LKUP+10
LRCAP	QUE+3, QUE+6, QUE+7, QUE+8, QUE+14, EXIT+2!
LRCAPAM5	EXIT+6!
LRCAPFLG	EXIT+6!
LRCAPIFN	QUE+8*, EXIT+4!
LRCAPNAM	EXIT+4!
LRCAPNUM	EXIT+4!
LRCAPT	EXIT+3!
LRCAPTOT	EXIT+3!
LRCC	QUE+9*, EXIT+2!
LRCCN	QUE+9*, QUE+10, QUE+13, EXIT+2!, T1+1
LRCDR	EXIT+5!, LKUP+1*, LKUP+2
LRDA	INST+1!, DIV+5*, MONTHS+2, QUE+6, QUE+7, QUE+8, QUE+14, EXIT+2!
LRDA(1	INST+1*, MONTHS+2, QUE+6, QUE+7, QUE+8, QUE+14
LRDTYP	DATTYP+13*, REPTYP+2, QUE+11, EXIT+5!
>> LREND	DETSUM+1, DETSUM+5*
LRERR	QUE+2, QUE+10, EXIT+7!
LRFIRST	EXIT+5!
LRGTOT	EXIT+3!
LRHD0	DATTYP+13*, EXIT+6!
LRLINE	EXIT+2!
LRMT	QUE+2, QUE+3, QUE+5, QUE+6, QUE+7, QUE+8, QUE+13, QUE+14, EXIT+2!, T1+1 , T1+2, LKUP+7, LKUP+8, LKUP+9, LKUP+10
LRMTP	EXIT+4!
LRN	QUE+7*, QUE+8, QUE+9, QUE+13, EXIT+2!
LRN1	QUE+14*, EXIT+3!, T1+1, T1+2, T1+3, LKUP+1, LKUP+7, LKUP+8, LKUP+9, LKUP+10
LRN2	QUE+7*, QUE+11, EXIT+6!
LRPG	EXIT+4!
>> LRRPT	DETSUM+6*
LRRPTM	INST+1!, EXIT+2!
LRRPTM(	MONTHS+5*, QUE+3
LRRPTM(0	MONTHS+6
LRRTYP	REPTYP+5*, DETSUM+1, EXIT+6!
>> LRSB	LKUP+5*
LRSV	EXIT+3!, LKUP+3, LKUP+4, LKUP+5, LKUP+8
LRTOT	EXIT+3!
LRTOT1	QUE+5, QUE+6, QUE+13, EXIT+3!
LRTRE	EXIT+4!
LRTRE1	EXIT+4!
LRTRE1T	EXIT+4!
LRTREAT	QUE+6, QUE+14, EXIT+3!
LRTRET	EXIT+4!
LRTRN	EXIT+3!, T1+1, T1+2, LKUP+2*, LKUP+3, LKUP+6
LRTSTOT	QUE+3, EXIT+6!, T1+3
N	QUE+13*, EXIT+3!
N0	EXIT+3!
NODE	EXIT+3!, LKUP+1*, LKUP+2, LKUP+3, LKUP+6
>> POP	DEVICE+1
U	DIV+3, QUE+5, QUE+6, QUE+8, QUE+9, QUE+13, T1+1, T1+2, T1+3, LKUP+1 , LKUP+2, LKUP+3, LKUP+6, LKUP+7, LKUP+8, LKUP+9, LKUP+10
X	DETSUM+3!, DETSUM+6
Y	DIV+5, MONTHS+5, DATTYP+13, REPTYP+5, DETSUM+3!, EXIT+3!
ZTDESC	EXIT+5!, ZTLOAD+1*
ZTIO	EXIT+5!, ZTLOAD+1*
>> ZTQUEUED	QUE+2
>> ZTREQ	QUE+2*
ZTRTN	EXIT+5!, ZTLOAD+1*
ZTSAVE	EXIT+5!
ZTSAVE("LR*"	ZTLOAD+2*
ZTSAVE("LRDA*"	ZTLOAD+2*
ZTSK	ZTLOAD+3!

Customize PDF page

Package: Lab Service

Routine: LRCAPAM5

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: