Routine: LRARREP

Package	Total	Call Graph
VA Fileman	4	NOW^%DTC ^DIC DT^DICRW EN^DIQ1
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
Lab Service	1	CLN^LRARU1

Package	Total	Caller Graph
Lab Service	3	LRAR ARCHIVAL ACTIVITY REPORT LRARLMW1 LRARWKD1

Entry Points

External References

Name	Field # of Occurrence
NOW^%DTC	HDR+4
^%ZIS	Q
HOME^%ZIS	Q+1
^%ZISC	END+1
^%ZTLOAD	Q+1
^DIC	AAR+1
DT^DICRW	EN+1
EN^DIQ1	START+2
CLN^LRARU1	EXIT+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"RECORD DOESN'T EXIST!" Line Location: START+2
Function Call: WRITE	Prompt: !,"ARCHIVE NUMBER: ",$G(^UTILITY("DIQ1",$J,95.11,DA,.01,"E")) Line Location: NUM+0
Function Call: WRITE	Prompt: !,"FILE: ",$G(^UTILITY("DIQ1",$J,95.11,DA,1,"E")) Line Location: FILE+0
Function Call: WRITE	Prompt: !,"DESTINATION FILE: ",$G(^UTILITY("DIQ1",$J,95.11,DA,15,"E")) Line Location: DF+0
Function Call: WRITE	Prompt: !,"ARCHIVAL STATUS: ",$G(^UTILITY("DIQ1",$J,95.11,DA,7,"E")) Line Location: STAT+0
Function Call: WRITE	Prompt: !,"SELECT DATE: ",$G(^UTILITY("DIQ1",$J,95.11,DA,4,"E")) Line Location: SD+0
Function Call: WRITE	Prompt: !,"SELECTOR: ",$G(^UTILITY("DIQ1",$J,95.11,DA,7.5,"E")) Line Location: SEL+0
Function Call: WRITE	Prompt: !,"ARCHIVE DATE: ",$G(^UTILITY("DIQ1",$J,95.11,DA,9,"E")) Line Location: ARD+0
Function Call: WRITE	Prompt: !,"ARCHIVER: ",$G(^UTILITY("DIQ1",$J,95.11,DA,5,"E")) Line Location: ARC+0
Function Call: WRITE	Prompt: !,"ARCHIVE TASK NUMBER: ",$G(^UTILITY("DIQ1",$J,95.11,DA,18,"E")) Line Location: TASK+0
Function Call: WRITE	Prompt: !,"PURGE DATE: ",$G(^UTILITY("DIQ1",$J,95.11,DA,10,"E")) Line Location: PD+0
Function Call: WRITE	Prompt: !,"PURGER: ",$G(^UTILITY("DIQ1",$J,95.11,DA,8,"E")) Line Location: PUR+0
Function Call: WRITE	Prompt: !,"ARCHIVE DEVICE LABEL: ",$G(^UTILITY("DIQ1",$J,95.11,DA,16,"E")) Line Location: ADL+0
Function Call: WRITE	Prompt: !,"BEGINNING DATE: ",$G(^UTILITY("DIQ1",$J,95.11,DA,19,"E")) Line Location: BEG+0
Function Call: WRITE	Prompt: !,"ENDING DATE: ",$G(^UTILITY("DIQ1",$J,95.11,DA,20,"E")) Line Location: EDT+0
Function Call: WRITE	Prompt: !!,"NO RESULTS" Line Location: RESULT+0
Function Call: WRITE	Prompt: !!,"THE FOLLOWING RECORDS IN THE FILE WERE NOT MOVED BECAUSE OF ONE OR MORE ERRORS:",! Line Location: ERROR+0
Function Call: WRITE	Prompt: !!,"* PLEASE KEEP THIS FOR FUTURE REFERENCE *" Line Location: ERROR+2
Function Call: WRITE	Prompt: !!,LINE Line Location: REC+2
Function Call: WRITE	Prompt: !?5,$G(^(Z)) Line Location: ERR+2
Function Call: WRITE	Prompt: @IOF Line Location: END+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: HDR+1
Function Call: WRITE	Prompt: @IOF,!?25,"ARCHIVAL ACTIVITY REPORT",?(IOM-10),"Page ",$J(PAGE,3) Line Location: HDR+2
Function Call: WRITE	Prompt: !!?61,"Date/Time Printed" Line Location: HDR+3
Function Call: WRITE	Prompt: !?61,$P(Y,":",1,2) Line Location: HDR+4
Function Call: WRITE	Prompt: !! Line Location: HDR+5
Routine Call	%ZIS Line Location: Q+1
Routine Call	DIC Line Location: AAR+1
Routine Call	%ZIS Line Location: Q

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	HDR+4
^LAB(95.11 - [#95.11]	RESULT, FIL+2, REC, ERR+2
^UTILITY("DIQ1"	START+1!, START+2, NUM, FILE, DF, STAT, SD, SEL, ARD, ARC , TASK, PD, PUR, ADL, BEG, EDT, EXIT+1!

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	HDR+4
%ZIS	Q*, EXIT!
A	REC+2~, ERR
B	REC+2~, ERR*, ERR+2
DA	START+2*, NUM, FILE, DF, STAT, SD, SEL, ARD, ARC, TASK , PD, PUR, ADL, BEG, EDT, EXIT!
DIC	AAR, START+2, EXIT!
DIC(0	AAR*
DIQ	EXIT!
DIQ(0	START+2*
DIR	EXIT!
DIRUT	EXIT!
DIWF	EXIT!
DIWL	EXIT!
DIWR	EXIT!
DR	START+2*, EXIT!
DTIME	HDR+1
>> DTOUT	AAR+2
>> DUOUT	AAR+2
END	START+1, ERROR+1, FIL+3, REC+3, ERR+3, EXIT!, HDR+1*
ERR	REC*, ERR, EXIT!
FILE	ERROR+1~, FIL+2, REC
IO	Q
IO("Q"	Q
IOF	END, HDR+2
IOM	HDR+2
IOSL	ERR+2
IOST	END, HDR+1
LINE	ERROR+1~, FIL+1, REC+1, REC+2*
LRARID	AAR+3*, START+2, RESULT, FIL+2, REC, ERR+2, EXIT!
PAGE	START+1, ERROR+1, EXIT!, HDR+2*
>> POP	Q
REC	ERROR+1~, REC, REC+1
X	EXIT!, HDR+1*
Y	AAR+2, AAR+3, EXIT!, HDR+4*
Z	ERR+1~, ERR+2
ZTDESC	Q+1*, EXIT!
ZTRTN	Q+1*, EXIT!
ZTSAVE	EXIT!
ZTSAVE("LRAR*"	Q+1*

Customize PDF page

Package: Lab Service

Routine: LRARREP

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 3

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
STAT
HDR	;PRINT HEADING
ERR
DF
BEG
FILE
AAR
REC
TASK
NUM
PD
EXIT
SEL
EN	;Entry point to print an archival activity report.
END
Q
START	; BEGINS THE PRINT OF THIS ARCHIVE REPORT
RESULT
ERROR
ADL
FIL	;
ARC
ARD
EDT
PUR
SD

Name	Line Occurrences
END	ERROR+3
ERR	REC+2, ERR+4
EXIT	AAR+2, Q, Q+1, START+1, START+2
FIL	ERROR+1, FIL+4
HDR	START+1, ERR+2
REC	FIL+2, REC+4
START	Q