Routine: LRARLMW

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 67.99999 LRAR SELECT ENTRIES 67.9

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: !,"LAB MONTHLY WORKLOADS file (67.9)." 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: !,"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: "??",!?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 Lab Monthly Workloads 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+11
Function Call: WRITE	Prompt: !!,$C(7),"I cannot find an archival activity for file 67.9 that has the correct archival status." Line Location: ERROR+0
Routine Call	DIR Line Location: ASKPRT DELETE+1 ASKCLR

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

Name	Line Occurrences (* Changed, ! Killed)
^LAB(95.11 - [#95.11]	ASKCLR+2
^LAR(67.99999 - [#67.99999]	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	LRARLMW+3, BEGDT+1, ENDDT+1, ASKCLR+1, ASKCLR+2, ASKCLR+12, 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	EXIT!, DELETE+4*
DIR	ASKPRT!, EXIT!, DELETE!, ASKCLR!
DIR("A"	ASKPRT, DELETE, ASKCLR*
DIR("B"	ASKPRT, DELETE, ASKCLR*
DIR(0	ASKPRT, DELETE, ASKCLR*
DIRUT	ASKPRT+1, EXIT!, DELETE+2, ASKCLR+1
DTOUT	EXIT!
DUOUT	EXIT!
FR	PRT+1*, EXIT!
L	PRT+1*, EXIT!
LRAI	EXIT!
LRAINST	EXIT!
LRANUM	EXIT!
LRAR	LRARLMW+4, EXIT!, ASKCLR+2, ASKCLR+9*
LRARC	EXIT!, DELETE+4, ASKCLR+2*
LRARF	EXIT!
LRARFL	LRARLMW+3, BEGDT+1, ENDDT+1, EXIT!, DELETE, DELETE+2*
LRARI	EXIT!, ASKCLR+6*
LRARP	EXIT!
LRARST	EXIT!
LRART	LRARLMW+3, EXIT!, ASKCLR+2
LRARU	EXIT!
LRARX	EXIT!, ASKCLR+6*
LRBD	BEGDT+2*, ENDDT+2, PRT+1, EXIT!
LRED	ENDDT+2*, PRT+1, EXIT!
LRPBD	BEGDT+2*, EXIT!
LRPED	ENDDT+2*, EXIT!
TO	PRT+1*, EXIT!
Y	BEGDT+1, BEGDT+2, ENDDT+1, ENDDT+2, ASKPRT+1, EXIT!, DELETE+2, ASKCLR+1

Information

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