Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: LRARREP

Package: Lab Service

Routine: LRARREP


Information

LRARREP ;DALISC/CKA - PRINT REPORT OF ARCHIVAL ACTIVITY;6/95

Source Information

Source file <LRARREP.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;Entry point to print an archival activity report.
AAR
Q
START ; BEGINS THE PRINT OF THIS ARCHIVE REPORT
NUM
FILE
DF
STAT
SD
SEL
ARD
ARC
TASK
PD
PUR
ADL
BEG
EDT
RESULT
ERROR
FIL ;
REC
ERR
END
EXIT
HDR ;PRINT HEADING

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
  • Variable: X
  • Timeout: DTIME
  • 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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(95.11 - [#95.11] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call