Routine: LRARWKD1

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 64.1

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 IN BACKGROUND
START	;ARCHIVING BEGINS
EXIT
ERROR
EXTRACT	;Call to extractor

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"Archiving WKLD DATA 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 64.1 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(64.1 - [#64.1]	EXTRACT^DIAXU

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

Name	Line Occurrences
ERROR	LRARWKD1+4
EXIT	LRARWKD1+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*
DIC	LRARWKD1+9*, EXIT!
DIC("DR"	LRARWKD1+9*
DIC(0	LRARWKD1+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	LRARWKD1+11*, EXIT!
LRAINST	LRARWKD1+10, LRARWKD1+11, EXIT!
LRANUM	LRARWKD1+8, LRARWKD1+9, LRARWKD1+11, EXIT!
LRAR	LRARWKD1+4, LRARWKD1+6, LAAF+1*, EXIT!
LRARC	LRARWKD1+4*, EXTRACT+2, DIAXU+1, LAAF+4, EXIT!
>> LRARID	LAAF+4*
LRART	LRARWKD1+4*, EXIT!
>> LRBD	START+2*, DIAXU
LRDAT	EXIT!
>> LRED	START+2*, DIAXU
LRIND	DIAXU+1, EXIT!
LRIND(	START+3*
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	LRARWKD1+9, EXTRACT+2
X	LRARWKD1+9*, EXIT!
Y	LRARWKD1+9, EXTRACT+4, EXTRACT+5, RDY+1, EXIT!
>> ZTDESC	QUEUE+3*
>> ZTIO	QUEUE+3*
>> ZTRTN	QUEUE+3*
>> ZTSAVE("LR*"	QUEUE+3*
>> ZTSK	QUEUE+3