Routine: LRCAPTS

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Lab Service	3	^LRCAPMR EN^LRCAPTS1 $$WKLDNAME^LRCAPU
VA Fileman	1	YN^DICN

Package	Total	Caller Graph
Lab Service	1	LRCAPTS

Entry Points

Name	Comments	DBIA/ICR reference
LOAD	;
EN	; ; GET THE PARAMETERS
CC	;
TOP	;
PRN	; PRINT THE REPORT
TS
PTFTS	;Get the PTF treating speciality name.
TM	;
QUE	;
CLEAN	;
GTIN	;
SUM	; DO SUMMATION IN UTILITY

External References

Name	Field # of Occurrence
^%ZIS	TS+4
^%ZISC	CLEAN+9
^%ZTLOAD	LOAD+2
YN^DICN	TS
^LRCAPMR	TS+1
EN^LRCAPTS1	PRN+1
$$WKLDNAME^LRCAPU	TM+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?10,"Would you like the report in PTF Treating Speciality " Line Location: TS+0
Function Call: WRITE	Prompt: !,"Device is busy Try later",! Line Location: TS+4
Routine Call	%ZIS Line Location: TS+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	GTIN+2
^DIC(42.4 - [#42.4]	PTFTS+1
^DIC(45.7 - [#45.7]	QUE+3, TM+1, TM+10, PTFTS+1
^LAB(69.9 - [#69.9]	QUE+3
^LAM - [#64]	CC+1, CC+2, TM+5, TM+8, TM+9
^LRO(64.1 - [#64.1]	SUM+2, CC+3, TM+1, GTIN+1
^SC - [#44]	PTFTS+1
^TMP($J	QUE+1!, SUM+3*, CLEAN+1!, TM+13, TM+14, TM+16, TM+17

Label References

Name	Line Occurrences
CC	SUM+2
CLEAN	TS, TS+1, TS+2, TS+3, TS+4, QUE+2
GTIN	QUE+2, CLEAN+5
LOAD	TS+3
PTFTS	TM+10
TM	CC+3
TOP	CLEAN+5
TS	TS

Naked Globals

Name	Field # of Occurrence
^(	TM+13, TM+14
^(0	QUE+3, TM+1, TM+16, TM+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	TS*
%DT	CLEAN+7!
%ZIS	CLEAN+7!
DIC	CLEAN+1!
DIR	CLEAN+7!
DIRUT	CLEAN+7!
DUOUT	CLEAN+8!
DX	CLEAN+4!
DY	CLEAN+4!
IO	TS+4, TS+5
IO("Q"	TS+3
IO(0	TS+4
ION	TS+4, LOAD+1
>> IOP	TS+4*
IOST	SUM+2
LRAA	TS!, CLEAN+8!
LRAA(	TM+3
LRAA(0	TM+3
LRAACK	CLEAN+8!, TM+3*
LRANS	CLEAN+2!
LRCAPN	CLEAN+3!, TM+9*, TM+13, TM+14
LRCC	SUM+2*, CLEAN+2!, CC+1, CC+2, CC+3, TM+1, TM+5, TM+8, TM+9
LRCCN	CLEAN+2!, TM+8*, TM+13, TM+14
>> LRCCX	CC+2*
LRCDT	SUM+2*, CLEAN+2!, CC+3, TM+1
LRCDTB	SUM+2, CLEAN+6!
LRCDTE	SUM+2, CLEAN+6!
LRCTM	CLEAN+2!, CC+3*, TM+1
LRCTMB	CLEAN+6!, CC+3
LRCTME	CLEAN+6!, CC+3
LRCTSX	QUE+3*, CLEAN+8!, TM+12
LRCW	CLEAN+2!
LRDT1	CLEAN+6!
LRDT2	CLEAN+6!
LREND	TS, TS+1, TS+2, QUE+2*, CLEAN+5, CLEAN+7!
LRFILE	CLEAN+8!, TM+2*, TM+10, TM+11
LRFIRST	CLEAN+2!, CC+3, TM+5
LRGT	SUM+1, SUM+3, CLEAN+2!, TM+15
LRGTU	SUM+1, SUM+3, CLEAN+3!, TM+15
LRIN	TS+1, QUE+2, SUM+2, CLEAN+5, CLEAN+6!, CC+3, TM+1, GTIN+1*, GTIN+2
LRINN	CLEAN+6!, GTIN+2*
LRLAB	CLEAN+6!
LRLOOP	TS, QUE+2, CLEAN+5, CLEAN+6!
LRNDFN	QUE+2*, CLEAN+6!, TM+8, TM+9, TM+10, GTIN+2
LRPAGE	TOP+1*, CLEAN+3!
LRPTF	TS*, CLEAN+7!, TM+10
LRQC	CLEAN+2!
LRRPT	CLEAN+2!
LRST	CLEAN+2!
LRSTD	CLEAN+2!
LRSTU	CLEAN+3!
LRSUMM	TS*, CLEAN+7!
LRTC	CLEAN+3!
LRTRN	CLEAN+3!
LRTS	CLEAN+3!, TM+1*, TM+10
LRTSN	CLEAN+3!, TM+1, TM+10, TM+11, TM+12, TM+13, TM+14, TM+16, TM+17, PTFTS+1*
LRUC	SUM+1, CLEAN+3!, TM+1, TM+4*, TM+6, TM+13, TM+14, TM+15, TM+16, TM+17
LRUW	CLEAN+3!, TM+5*, TM+6, TM+13, TM+14
LRWC	SUM+1, CLEAN+3!, TM+6, TM+13, TM+14, TM+15, TM+16, TM+17
LRX	CLEAN+3!, TM+1, TM+2, TM+3, TM+10, TM+13, PTFTS+1
LRX1	CLEAN+4!, TM+13, TM+16
LRX2	CLEAN+4!, TM+13, TM+16
>> POP	TS+4
U	QUE+3, CC+2, TM+1, TM+2, TM+3, TM+5, TM+10, PTFTS+1
X	CLEAN+3!
Y	CLEAN+3!
Y1	CLEAN+7!
Y2	CLEAN+7!
ZTDESC	CLEAN+7!, LOAD+1*
ZTIO	CLEAN+7!, LOAD+1*
>> ZTQUEUED	QUE+1, CLEAN+9
>> ZTREQ	QUE+1*
ZTRTN	CLEAN+7!, LOAD+1*
ZTSAVE	CLEAN+7!
ZTSAVE("LR*"	LOAD+2*
ZTSK	CLEAN+8!

Customize PDF page

Package: Lab Service

Routine: LRCAPTS

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: