Routine: LRARWKD

Package	Total	Call Graph
VA Fileman	5	^%DT DT^DICRW ^DIK EN1^DIP ^DIR
Lab Service	2	(CHECK,FILE,NEW)^LRARU (CLN,COMP,MRK,SAVESEL,UPDATE)^LRARU1

Package

Total

Call Graph

^%DT DT^DICRW ^DIK EN1^DIP ^DIR

(CHECK,FILE,NEW)^LRARU (CLN,COMP,MRK,SAVESEL,UPDATE)^LRARU1

Package	Total	Caller Graph
Lab Service	2	LRAR CLEAR 64.19999 LRAR SELECT ENTRIES 64.1

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"First enter a date range selection to archive the" Line Location: DATE+2
Function Call: WRITE	Prompt: !,"WKLD DATA file (64.1)." Line Location: DATE+3
Function Call: WRITE	Prompt: !!,"** Date Range Selection **",! Line Location: BEGDT+0
Function Call: WRITE	Prompt: ! Line Location: ENDDT+0
Function Call: WRITE	Prompt: ! Line Location: ENDDT+2
Function Call: WRITE	Prompt: "??",!?5,"Ending date must not be on or before beginning date" Line Location: HELP+0
Function Call: WRITE	Prompt: !!,"This will clear the data from the Archived Wkld Data file." Line Location: CLEAR+2
Function Call: WRITE	Prompt: !!,"I will now CLEAR out the global." Line Location: ASKCLR+5
Function Call: WRITE	Prompt: !!,">>> DONE <<<" Line Location: ASKCLR+8
Function Call: WRITE	Prompt: !,"You must enter a beginning and ending date." Line Location: DELETE+2
Function Call: WRITE	Prompt: !!,"Now deleting this archival activity..." Line Location: DELETE+3
Function Call: WRITE	Prompt: !!,">>> DONE <<<" Line Location: DELETE+4
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: ASKPRT ASKCLR DELETE+1

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

Name	Line Occurrences (* Changed, ! Killed)
^LAB(95.11 - [#95.11]	ASKCLR+2
^LAR(64.19999 - [#64.19999]	ASKCLR+6!, ASKCLR+7*

Name	Line Occurrences
BEGDT	BEGDT+1
COMP	ASKPRT+1
DATE	HELP
DELETE	BEGDT+1, ENDDT+1
ENDDT	ENDDT+1
ERROR	ASKCLR+2
EXIT	LRARWKD+3, BEGDT+1, ENDDT+1, ASKCLR+1, ASKCLR+2, ERROR+1
HELP	ENDDT+2

Name	Field # of Occurrence
>> %DT	BEGDT, ENDDT
>> %DT("A"	BEGDT, ENDDT
>> %DT(0	BEGDT*
BY	PRT+1*, EXIT!
DA	EXIT!, DELETE+4*
DIC	PRT+1*, EXIT!
>> DIK	DELETE+4*
DIR	EXIT!, ASKCLR!, DELETE!
DIR("A"	ASKPRT, ASKCLR, DELETE*
DIR("B"	ASKPRT, ASKCLR, DELETE*
DIR(0	ASKPRT, ASKCLR, DELETE*
DIRUT	ASKPRT+1, EXIT!, ASKCLR+1, DELETE+2
DTOUT	EXIT!
DUOUT	EXIT!
FR	PRT+1*, EXIT!
L	PRT+1*, EXIT!
LRAR	LRARWKD+4, EXIT!, ASKCLR+2, ASKCLR+10*
LRARC	EXIT!, ASKCLR+2*, DELETE+4
LRARFL	LRARWKD+3, BEGDT+1, ENDDT+1, EXIT!, DELETE, DELETE+2*
LRARI	EXIT!, ASKCLR+6*
LRART	LRARWKD+3, EXIT!, ASKCLR+2
LRARX	EXIT!, ASKCLR+6*
LRBD	BEGDT+2*, ENDDT+2, EXIT!
LRED	ENDDT+2*, EXIT!
LRPBD	BEGDT+2*, PRT+1, EXIT!
LRPED	ENDDT+2*, PRT+1, EXIT!
TO	PRT+1*, EXIT!
Y	BEGDT+1, BEGDT+2, ENDDT+1, ENDDT+2, ASKPRT+1, EXIT!, ASKCLR+1, DELETE+2

Information

Name	Comments	DBIA/ICR reference
ASKPRT
ENDDT
HELP
COMP	;ARCHIVING ACTION COMPLETED
CLEAR	;REMOVE DATA FROM ARCHIVED WKLD DATA FILE
PRT	;EN1^DIP CALL
EXIT
ERROR
DATE	;Called from LR ARCHIVE 64.1 option
ASKCLR
BEGDT
DELETE