Routine: LRARU1

Package	Total	Call Graph
VA Fileman	2	NOW^%DTC ^DIE
Kernel	1	STAT^%ZTLOAD
Lab Service	1	(DEV,FILE)^LRARU

Package

Total

Call Graph

VA Fileman

NOW^%DTC ^DIE

Kernel

STAT^%ZTLOAD

Lab Service

(DEV,FILE)^LRARU

Package	Total	Caller Graph
Lab Service	11	LRAR WRITE MEDIA 64.19999 LRAR WRITE MEDIA 67.99999 LRARLMW LRARLMW1 LRARPLM LRARPW LRARREP LRARU LRARVER LRARWKD LRARWKD1

Package

Total

Caller Graph

Lab Service

LRAR WRITE MEDIA 64.19999 LRAR WRITE MEDIA 67.99999 LRARLMW LRARLMW1 LRARPLM LRARPW LRARREP LRARU
LRARVER LRARWKD LRARWKD1

Entry Points

Name	Comments	DBIA/ICR reference
CLN
TASK	;SET ARCHIVE TASK NUMBER FIELD
SAVESEL	;SAVE SELECTION CRITERIA IN LAB ARCHIVAL ACTIVITY FILE
COMP	;ARCHIVING ACTION COMPLETED
UPDATE	;UPDATE LAB ARCHIVAL ACTIVITY FILE
WRITE	;WRITE DATA TO OFF-LINE MEDIA
EXIT
MRK	;SET FIELDS TO LOCK OUT OTHER USERS DURING ARCHIVING ACTIVITY

Name	Field # of Occurrence
NOW^%DTC	MRK+1
STAT^%ZTLOAD	WRITE+13
^DIE	UPDATE+8, COMP+3, SAVESEL+4, MRK+2, TASK+2
DEV^LRARU	WRITE+15, WRITE+19
FILE^LRARU	WRITE+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"The site manager should determine the method of data storage of the" Line Location: WRITE+2
Function Call: WRITE	Prompt: !,"Archived Wkld Data File 64.19999" Line Location: WRITE+3
Function Call: WRITE	Prompt: !,"Archived Blood Inventory File 65.9999" Line Location: WRITE+4
Function Call: WRITE	Prompt: !,"Archived Lab Monthly Workloads 67.99999" Line Location: WRITE+5
Function Call: WRITE	Prompt: !!,$C(7),"I cannot find an archival activity for this file in the archived status." Line Location: WRITE+7
Function Call: WRITE	Prompt: !!,$C(7),"I cannot find an archival activity for this file in the selected status either." Line Location: WRITE+9
Function Call: WRITE	Prompt: !,ZTSK," IS ",ZTSK(2) Line Location: WRITE+16
Function Call: WRITE	Prompt: !!,$C(7),"The archiving task must finish before you write data to off-line media!" Line Location: WRITE+17
Function Call: WRITE	Prompt: !!,$C(7),"Please check for errors. The archiving task abnormally ended!" Line Location: WRITE+18
Routine Call	DIE Line Location: UPDATE+8 COMP+3 SAVESEL+4 MRK+2 TASK+2

FileNo	Call Tags
^LAB(95.11 - [#95.11]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^LAB(95.11 - [#95.11]	WRITE+6, WRITE+8, WRITE+12
^VA(200 - [#200]	UPDATE+3, UPDATE+4, MRK+1

Name	Line Occurrences
CLN	EXIT+1
EXIT	WRITE+10, WRITE+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	MRK+1
%DT	CLN!
%ZIS	CLN!
BY	CLN!
C	CLN!
D0	CLN!
DA	UPDATE+5, COMP+2, COMP+4!, SAVESEL+2, SAVESEL+5!, MRK+1, TASK+1*, EXIT!, CLN!
DD	CLN!
DHD	CLN!
DIAXF	CLN!
DIAXGR	CLN!
DIAXSCR	CLN!
DIAXST	CLN!
DIAXT	CLN!
DIC	EXIT!, CLN!
DIE	UPDATE+5, COMP+2, COMP+4!, SAVESEL+2, SAVESEL+5!, MRK+1, TASK+1*, EXIT!, CLN!
DIK	CLN!
DINUM	CLN!
DIQ	CLN!
DIR	EXIT!, CLN!
DIRUT	CLN!
DIWF	CLN+1!
DIWL	CLN+1!
DIWR	CLN+1!
DLAYGO	CLN+1!
DO	CLN+1!
DR	UPDATE+3, UPDATE+4, UPDATE+6, UPDATE+7, COMP+2, COMP+4!, SAVESEL+4, SAVESEL+5!, MRK+1, TASK+1 , EXIT!, CLN+1!
DT	UPDATE+3, UPDATE+4
DTOUT	EXIT!, CLN+1!
DUOUT	EXIT!, CLN+1!
DUZ	UPDATE+3, UPDATE+4, MRK+1
END	CLN+1!
ERR	CLN+1!
FLDS	CLN+1!
FR	CLN+1!
L	CLN+1!
LRADATE	CLN+1!
LRADIV	CLN+1!
LRADIVN	CLN+1!
LRAI	CLN+1!
LRAIEN	CLN+1!
LRAIFN	CLN+1!
LRAINST	CLN+2!
LRAJ	CLN+2!
LRAK	CLN+2!
LRANUM	CLN+2!
LRAR	UPDATE+3, UPDATE+4, UPDATE+6, UPDATE+7, MRK+1, WRITE+6*, EXIT!, CLN+2!
LRARC	UPDATE+5, COMP+2, SAVESEL+2, MRK+1, TASK+1, WRITE+6, WRITE+8, WRITE+10, WRITE+12, EXIT! , CLN+2!
LRARCEX	CLN+2!
LRARCX	CLN+2!
LRARF	CLN+2!
LRARFL	CLN+2!
LRARFL1	WRITE+15*, EXIT!, CLN+2!
LRARI	CLN+2!
LRARID	CLN+2!
LRARN	CLN+2!
LRARNRB	CLN+2!
LRARP	CLN+2!
LRARST	CLN+3!
LRART	WRITE+3, WRITE+4, WRITE+5, WRITE+6, WRITE+8, EXIT!, CLN+3!
LRARU	CLN+3!
LRARX	CLN+3!
LRBD	CLN+3!
LRDAT	CLN+3!
LRED	CLN+3!
LRID	CLN+3!
LRIFN	CLN+3!
LRINST	CLN+3!
LRPBD	SAVESEL+3, CLN+3!
LRPED	SAVESEL+3, CLN+3!
LRSCR	CLN+3!
PAGE	CLN+3!
POP	CLN+3!
TO	CLN+3!
U	WRITE+12
X	SAVESEL+2, SAVESEL+3, SAVESEL+4, SAVESEL+5!, CLN+3!
X1	CLN+3!
X2	CLN+3!
Y	CLN+3!
Z	CLN+3!
ZTDESC	CLN+3!
ZTDTH	CLN+4!
ZTIO	CLN+4!
ZTRTN	CLN+4!
ZTSAVE	CLN+4!
ZTSK	TASK+1, WRITE+12*, WRITE+13, WRITE+16, WRITE+19, CLN+4!
ZTSK(0	WRITE+14
ZTSK(1	WRITE+14, WRITE+16, WRITE+18
ZTSK(2	WRITE+16

Customize PDF page

Package: Lab Service

Routine: LRARU1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: