Routine: LRARCPTS

Information

LRARCPTS ;DALISC/CKA - ARCHIVED TREATING SPECIALTY WORKLOAD REPORT; 5/30/95:

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Lab Service	3	^LRARCMR EN^LRARCTS1 ($$WKLDCODE,$$WKLDNAME,KILLALL)^LRARCU
VA FileMan	1	YN^DICN

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Lab Service	1	LRARCPTS

Entry Points

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

Name	Field # of Occurrence
^%ZIS	TS+4
^%ZISC	CLEAN+7
^%ZTLOAD	LOAD+2
YN^DICN	TS
^LRARCMR	TS+1
EN^LRARCTS1	PRN+1
$$WKLDCODE^LRARCU	CC+4
$$WKLDNAME^LRARCU	CC+5, TM+12
KILLALL^LRARCU	CLEAN+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?10,"Would you like the report in PTF Treating Specialty " Line Location: TS+0
Function Call: WRITE	Prompt: !,"Device is busy Try later",! Line Location: TS+4
Function Call: WRITE	Prompt: !!,$C(7),"This file does not have an archival activity with the status of archived." Line Location: ERROR+0
Function Call: WRITE	Prompt: !,"Therefore this file may be incomplete if archiving is still in progress." Line Location: ERROR+1
Function Call: WRITE	Prompt: !! Line Location: ERROR+2
Routine Call	%ZIS Line Location: TS+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42.4 - [#42.4]	PTFTS+1
^DIC(45.7 - [#45.7]	QUE+3, PTFTS+1
^LAB(69.9 - [#69.9]	QUE+3
^LAB(95.11 - [#95.11]	EN+2
^LAM - [#64]	CC+6, CC+7, TM+8, TM+11, TM+12
^LAR(64.19999 - [#64.19999]	SUM+2, SUM+3, SUM+5, CC+1, CC+2, CC+9, TM+1, GTIN+1, GTIN+2
^SC - [#44]	PTFTS+1
^TMP($J	QUE+1!, SUM+6*, CLEAN+1!, TM+15, TM+16, TM+18, TM+19

Label References

Name	Line Occurrences
CC	SUM+5
CLEAN	TS, TS+1, TS+2, TS+3, TS+4, QUE+2
ERROR	EN+3
GTIN	QUE+2, CLEAN+5
LOAD	TS+3
TM	CC+9
TOP	CLEAN+5
TS	TS

Naked Globals

Name	Field # of Occurrence
^(	TM+15, TM+16
^(0	QUE+3, TM+1, TM+18, TM+19
^(1	TM+1
^(2	TM+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	TS*
DIC	CLEAN+1!
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+4
LRAA	TS!
LRAA("@"	TM+2
>> LRAACK	TM+2, TM+3, TM+4, TM+5, TM+6
>> LRAAX(	TM+3, TM+4, TM+5
LRANS	CLEAN+2!
>> LRARC	EN+2*, EN+3
>> LRART	EN+2*
>> LRCAPIFN	CC+5, CC+6, CC+7, TM+8, TM+11, TM+12
LRCAPN	CLEAN+3!, TM+12*, TM+15, TM+16
>> LRCAPNAM	CC+5*
>> LRCAPNUM	CC+4*
LRCC	SUM+5*, CLEAN+2!, CC+1
LRCCN	CLEAN+2!, CC+1*, CC+2, CC+9, TM+1
>> LRCCNX	TM+11*, TM+15, TM+16
>> LRCCX	CC+7*
LRCCZ	CLEAN+2!, CC+2, CC+3, CC+4
LRCDT	SUM+2*, SUM+3, CLEAN+2!
>> LRCDTB	SUM+2
>> LRCDTE	SUM+2
LRCDTN	SUM+3*, SUM+5, CLEAN+2!, CC+1, CC+2, CC+9, TM+1
LRCTM	CLEAN+2!, CC+8, CC+9
>> LRCTMB	CC+8
>> LRCTME	CC+9
>> LRCTMN	CC+9*, TM+1
>> LRCTSX	QUE+3*, TM+14
LRCW	CLEAN+2!
>> LREND	TS, TS+1, TS+2, QUE+2*, CLEAN+5
LRFIRST	CLEAN+2!, CC+8, TM+8
LRGT	SUM+1, SUM+6, CLEAN+2!, TM+17
LRGTU	SUM+1, SUM+6, CLEAN+3!, TM+17
>> LRIN	TS+1, QUE+2, SUM+2, SUM+3, SUM+5, CLEAN+5, CC+1, CC+2, CC+9, TM+1 , GTIN+1*, GTIN+2
>> LRINN	GTIN+2*
>> LRLOOP	TS, QUE+2, CLEAN+5
>> LRNDFN	QUE+2*, TM+11, TM+12, TM+13, GTIN+2
LRPAGE	TOP+1*, CLEAN+3!
>> LRPTF	TS*
LRQC	CLEAN+2!
LRRPT	CLEAN+2!
LRST	CLEAN+2!
LRSTD	CLEAN+2!
LRSTU	CLEAN+3!
>> LRSUMM	TS*
LRTC	CLEAN+3!
LRTRN	CLEAN+3!
LRTS	CLEAN+3!
LRTSN	CLEAN+3!, TM+1, TM+13, TM+14, TM+15, TM+16, TM+18, TM+19, PTFTS+1
LRUC	SUM+1, CLEAN+3!, TM+1, TM+7*, TM+9, TM+15, TM+16, TM+17, TM+18, TM+19
LRUW	CLEAN+3!, TM+8*, TM+9, TM+15, TM+16
LRWC	SUM+1, CLEAN+3!, TM+9, TM+15, TM+16, TM+17, TM+18, TM+19
LRX	CLEAN+3!, TM+1, TM+3, TM+4, TM+15, PTFTS+1
LRX1	CLEAN+4!, TM+1*, TM+13
LRX2	CLEAN+4!, TM+1*, TM+5
>> LRXX1	TM+15, TM+18
>> LRXX2	TM+15, TM+18
>> POP	TS+4
U	QUE+3, CC+2, CC+7, TM+3, TM+4, TM+5, TM+8, TM+13, PTFTS+1
X	CLEAN+3!
Y	CLEAN+3!
>> ZTDESC	LOAD+1*
>> ZTIO	LOAD+1*
>> ZTQUEUED	QUE+1, CLEAN+7
>> ZTREQ	QUE+1*
>> ZTRTN	LOAD+1*
>> ZTSAVE("LR*"	LOAD+2*

Customize PDF page

Package: Lab Service