Routine: LRARU

Package	Total	Call Graph
VA Fileman	7	NOW^%DTC ^DIC FILE^DICN ^DIE ^DIK Y^DIQ ^DIR
Lab Service	2	FILE^LRARU (CLN,COMP,MRK)^LRARU1

Package

Total

Call Graph

VA Fileman

NOW^%DTC ^DIC FILE^DICN ^DIE ^DIK Y^DIQ ^DIR

Lab Service

FILE^LRARU (CLN,COMP,MRK)^LRARU1

Package	Total	Caller Graph
Lab Service	10	LRAR CANCEL ARCHIVAL ACTIVITY LRAR DELETE ARCHIVED ENTRIES LRARLMW LRARLMW1 LRARPLM LRARPW LRARU LRARU1 LRARWKD LRARWKD1

Package

Total

Caller Graph

Lab Service

LRAR CANCEL ARCHIVAL ACTIVITY LRAR DELETE ARCHIVED ENTRIES LRARLMW LRARLMW1 LRARPLM LRARPW LRARU LRARU1
LRARWKD LRARWKD1

Entry Points

Name	Field # of Occurrence
NOW^%DTC	NEW+3
^DIC	FILE+5
FILE^DICN	NEW+8
^DIE	DEV+4
^DIK	ENTC+6
Y^DIQ	ER1+1
^DIR	ENTC+4, ASK+3, DEV+1, DEL+3
FILE^LRARU	ENTC+1
CLN^LRARU1	EXIT+1
COMP^LRARU1	ENTC+8
MRK^LRARU1	ENTC+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!!,$C(7),"There is an outstanding archival activity." Line Location: CHECK+3
Function Call: WRITE	Prompt: !,"Please finish or cancel this activity before you begin another." Line Location: CHECK+4
Function Call: WRITE	Prompt: !! Line Location: CHECK+5
Function Call: WRITE	Prompt: !!,">>> DONE <<<" Line Location: ENTC+9
Function Call: WRITE	Prompt: $C(7),!!!,"The following Archival Activity is in progress--no access allowed!",! Line Location: ER1+0
Function Call: WRITE	Prompt: Y_" STARTED: " Line Location: ER1+1
Function Call: WRITE	Prompt: Y_" BY: " Line Location: ER1+1
Function Call: WRITE	Prompt: $P(^(0),U,1) Condition for execution: $D(^VA(200,+$P(LRARX,U,15),0)) Line Location: ER1+1
Function Call: WRITE	Prompt: ! Line Location: ER1+1
Function Call: WRITE	Prompt: !!,$C(7),"This activity has already been "_$P($P($P(^DD(95.11,7,0),U,3),";",LRARST),":",2),"!" Line Location: ER3+0
Function Call: WRITE	Prompt: !!,$C(7),"Data ALREADY purged!",! Line Location: ER4+0
Function Call: WRITE	Prompt: !!,$C(7),"Cannot cancel archiving record after archiving has been complete--this now",!,"acts as your history!!" Line Location: ER5+0
Function Call: WRITE	Prompt: !!,$C(7),"Just a reminder--you have already archived these records to permanent storage.",!,"You probably won't want to save the sequential storage media since you",!,"are cancelling this archiving activity!!",! Line Location: MSG+0
Function Call: WRITE	Prompt: !!,$C(7),"This archival activity has already updated the archived file.",! Line Location: ASK+0
Function Call: WRITE	Prompt: !!,"I will now CLEAR out the global." Line Location: KILL+0
Function Call: WRITE	Prompt: $C(7),!!,"No data in file.",! Line Location: DEL+7
Function Call: WRITE	Prompt: !!!!,$C(7),"There is an outstanding archival activity." Line Location: DEL+11
Function Call: WRITE	Prompt: !!,"This option is for use only after the archival activity is canceled.",! Line Location: DEL+14
Function Call: WRITE	Prompt: !!,"Done." Line Location: DEL+17
Routine Call	DIE Line Location: DEV+4
Routine Call	DIC Line Location: FILE+5
Routine Call	DIR Line Location: ENTC+4 ASK+3 DEV+1 DEL+3

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	ER1+1
^DD(95.11	ER1+1, ER3
^LAB(95.11 - [#95.11]	NEW+4, CHECK+1, CHECK+2, DEL+9, DEL+10
^LAR(	DEL+7
^LAR(64.19999 - [#64.19999]	ENTC+7, AWD!, AWD+1*
^LAR(67.99999 - [#67.99999]	ENTC+7, ALMW!, ALMW+1*
^LRD(65.9999	ENTC+7, ABI!, ABI+1*
^VA(200 - [#200]	NEW+5, ER1+1

Name	Line Occurrences
ABI	KILL+1
ALMW	KILL+1
ASK	ENTC+7
AWD	KILL+1
ER1	FILE+6
ER3	FILE+8
ER4	FILE+9
ER5	FILE+10
EXIT	ENTC+1, ENTC+4, ENTC+7, ENTC+10, DEV+2, DEV+5, DEL+4, DEL+6, DEL+7, DEL+14
KILL	ENTC+7, DEL+16
MSG	FILE+10

Name	Field # of Occurrence
^(	NEW+4
^(0	ER1+1

Local Variables

Name	Field # of Occurrence
>> %	NEW+5
>> C	ER1+1*
D0	EXIT!
DA	ENTC+6, DEV+3, EXIT!
DD	NEW+7!
DIC	NEW+7, NEW+8!, FILE+1, FILE+5!, EXIT!
DIC("A"	FILE+3, ENTC+1
DIC("DR"	NEW+6*
DIC("S"	FILE+2*
DIC(0	NEW+7, FILE+3, FILE+4*
DIE	DEV+3*, EXIT!
DIK	ENTC+6*, EXIT!
DINUM	NEW+6*, NEW+8!
DIR	DEV+2!, DEL+3!, EXIT!
DIR("??"	ENTC+3, ASK+2
DIR("A"	ENTC+2, ASK+1, DEL+2*
DIR("B"	ENTC+2, ASK+1
DIR(0	ENTC+2, ASK+1, DEV+1, DEL+1
>> DIRUT	DEL+4
DLAYGO	NEW+7*, NEW+8!
DO	NEW+7!
DR	NEW+8!, DEV+3*, EXIT!
DT	NEW+5
DTOUT	FILE+5, ENTC+4, ENTC+7, DEV+2, EXIT!
DUOUT	FILE+5, ENTC+4, ENTC+7, DEV+2, EXIT!
DUZ	NEW+5
LRAR	NEW+5, FILE+3, FILE+4, FILE+8, FILE+9, FILE+10, ENTC+1*, EXIT!
LRARC	NEW+8, FILE+4, FILE+5!, FILE+6!, FILE+7, FILE+8!, FILE+9!, FILE+10!, CHECK+2, ENTC+1 , ENTC+6, DEV+3, DEL+10, EXIT!
LRARF	FILE+7, ENTC+7, KILL+1, DEL+15, EXIT!
>> LRARFL	CHECK+6, DEL+8, DEL+12*, DEL+14
>> LRARFL1	FILE+2
LRARI	AWD, ALMW, ABI*, EXIT!
LRARNRB	ENTC+7, ASK+3, EXIT!
LRARP	FILE+7*, EXIT!
LRARST	FILE+7, FILE+8, FILE+9, FILE+10, CHECK+2, CHECK+7!, ER3, DEL+10, DEL+13!, EXIT!
>> LRART	NEW+5, CHECK+1, CHECK+2, DEL+5*, DEL+6, DEL+7, DEL+9, DEL+10, DEL+15
LRARU	FILE+7*, EXIT!
LRARX	ER1+1, AWD, ALMW, ABI, EXIT!
U	NEW+4, FILE+6, FILE+7, CHECK+2, ENTC+7, ER1+1, ER3, DEL+7, DEL+10
X	NEW+4, NEW+6, NEW+8!, FILE+4, CHECK+2, CHECK+7!, DEL+10, DEL+13!
Y	NEW+8, FILE+5, FILE+7, ENTC+4, ER1+1*, ASK+3, DEV+2, DEV+3, DEL+4, DEL+5 , EXIT!
Y(0	FILE+6, FILE+7, ER1+1
Z	NEW+5*, NEW+6, NEW+8!

Customize PDF page

Package: Lab Service

Routine: LRARU

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
ER4
ER5
ENTC	;CANCEL
ER1
ER3
ABI
EXIT
DEV	;ASK ARCHIVE DEVICE LABEL AND STORE IN ARCHIVAL ACTIVITY FILE
ASK
DEL	;DELETE ARCHIVED FILE ENTRIES AFTER ARCHIVAL ACTIVITY IS CANCELED
ALMW
KILL
FILE	;LOOKUP LAB ARCHIVING ACTIVITY
MSG
NEW	;SET UP INITIAL ARCHIVAL ACTIVITY
AWD
CHECK	;Check LAB ARCHIVAL ACTIVITY FILE

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed