Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRARREP

Package: Lab Service

Routine: LRARREP


Information

LRARREP ; IHS/DIR/AAB - PRINT REPORT OF ARCHIVAL ACTIVITY 6/95 ; [ 07/22/2002 1:08 PM ]

Source Information

Source file <LRARREP.m>

Call Graph

Call Graph Total: 8

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  

Caller Graph

Caller Graph Total: 3

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

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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!

Label References

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

Naked Globals

Name Field # of Occurrence
^( REC, ERR+2

Local Variables

Legend:

>> 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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All