Routine: LRARLMW1

Package	Total	Call Graph
VA Fileman	4	EXTRACT^DIAXU FILE^DICN DT^DIO2 ^DIR
Lab Service	3	RESULT^LRARREP FILE^LRARU (CLN,COMP,MRK,TASK,UPDATE)^LRARU1
Kernel	2	^%ZIS ^%ZTLOAD

Package	Total	Caller Graph
Lab Service	1	LRAR ARCHIVE 67.9

Entry Points

Name	Comments	DBIA/ICR reference
DIAXU
LAAF	;UPDATE ENTRY TO LAB ARCHIVAL ACTIVITY FILE
RDY
QUEUE	;QUEUE MOVING OF DATA TO DESTINATION FILE
START	;ARCHIVING BEGINS
EXIT
ERROR
EXTRACT	;Call to extractor

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"Archiving LAB MONTHLY WORKLOADS file" Line Location: EXTRACT+3
Function Call: WRITE	Prompt: !?5,"Beginning date: " Line Location: EXTRACT+4
Function Call: WRITE	Prompt: !?5,"Ending date: " Line Location: EXTRACT+5
Function Call: WRITE	Prompt: !,$C(7),"I cannot find an archival activity for file 67.9 with the correct archival status." Line Location: ERROR+0
Routine Call	DIR Line Location: RDY
Routine Call	%ZIS Line Location: QUEUE+1

FileNo	Call Tags
^LRO(67.9 - [#67.9]	EXTRACT^DIAXU

Name	Line Occurrences (* Changed, ! Killed)
^DIBT(	LRARLMW1+8!, LRARLMW1+11*
^DIBT("B"	LRARLMW1+8
^LAB(95.11 - [#95.11]	LRARLMW1+4, EXTRACT+2
^LRO(67.9 - [#67.9]	LRARLMW1+11

Name	Line Occurrences
ERROR	LRARLMW1+4
EXIT	LRARLMW1+4, RDY+1, QUEUE+2, QUEUE+3, ERROR+1

Name	Field # of Occurrence
^(1	EXTRACT+2

Name	Field # of Occurrence
>> %ZIS	QUEUE+1*
>> %ZIS("A"	QUEUE+1*
>> %ZIS("B"	QUEUE+1*
DIAXF	EXIT!
DIAXGR	EXIT!
DIAXSCR	EXIT!
DIAXST	EXIT!
DIAXT	EXIT!
DIC	LRARLMW1+9*, EXIT!
DIC("DR"	LRARLMW1+9*
DIC(0	LRARLMW1+9*
DIR	RDY!, EXIT!
DIR("A"	RDY*
DIR("B"	RDY*
DIR(0	RDY*
DIRUT	RDY+1, EXIT!
DTOUT	EXIT!
DUOUT	EXIT!
IO	QUEUE+3, START+1
IO("Q"	QUEUE+3
LRAI	LRARLMW1+11*, EXIT!
LRAINST	LRARLMW1+10, LRARLMW1+11, EXIT!
LRANUM	LRARLMW1+8, LRARLMW1+9, LRARLMW1+11, EXIT!
LRAR	LRARLMW1+4, LRARLMW1+6, LAAF+1*, EXIT!
LRARC	LRARLMW1+4*, EXTRACT+2, DIAXU+1, LAAF+4, EXIT!
>> LRARID	LAAF+4*
LRART	LRARLMW1+4*, EXIT!
LRBD	START+2*, DIAXU, EXIT!
LRDAT	EXIT!
LRED	START+2*, DIAXU, EXIT!
>> LRIND	DIAXU+1
>> LRIND(	START+3*
LRINST	EXIT!
LRPBD	EXTRACT+2*, EXTRACT+4, START+2, EXIT!
LRPED	EXTRACT+2*, EXTRACT+5, START+2, EXIT!
LRSCR	DIAXU+1, EXIT!
LRSCR(	DIAXU*
>> POP	QUEUE+2
U	LRARLMW1+9, EXTRACT+2
X	LRARLMW1+9*, EXIT!
X1	EXIT!
X2	EXIT!
Y	LRARLMW1+9, EXTRACT+4, EXTRACT+5, RDY+1, EXIT!
>> ZTDESC	QUEUE+3*
>> ZTIO	QUEUE+3*
>> ZTRTN	QUEUE+3*
>> ZTSAVE("LR*"	QUEUE+3*
>> ZTSK	QUEUE+3