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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: LRARPLM

Package: Lab Service

Routine: LRARPLM


Information

LRARPLM ; IHS/DIR/AAB - PURGE LAB MONTHLY WORKLOADS (67.9) ; [ 07/22/2002 1:11 PM ]

Source Information

Source file <LRARPLM.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Lab Service 2 FILE^LRARU  (CLN,COMP,MRK,UPDATE)^LRARU1  
VA Fileman 2 ^DIK  ^DIR  
Kernel 1 ^%ZTLOAD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRAR PURGE 67.9  

Entry Points

Name Comments DBIA/ICR reference
DOIT ;Deleting dates in 67.9
OKAY ;Ask if okay to delete
MAKE ;Ask if backup tape made
QUEUE ;queue purge
START ;
EXIT
ERROR
END
CHECK ;Ask if checked backup tape

External References

Name Field # of Occurrence
^%ZTLOAD QUEUE+1
^DIK DOIT+4
^DIR MAKE+1, CHECK+1, OKAY+1
FILE^LRARU START+2
CLN^LRARU1 EXIT+1
COMP^LRARU1 MAKE+2, MAKE+3, CHECK+2, CHECK+3, OKAY+2, END+1
MRK^LRARU1 START+4
UPDATE^LRARU1 END+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!!
  • Line Location: MAKE+1
Function Call: WRITE
  • Prompt: !!!!,$C(7),"Make a backup of the ARCHIVED LAB MONTHLY WORKLOADS file before purging!"
  • Line Location: MAKE+3
Function Call: WRITE
  • Prompt: !!!!
  • Line Location: CHECK+1
Function Call: WRITE
  • Prompt: !!!!,$C(7),"Check the backup before purging!"
  • Line Location: CHECK+3
Function Call: WRITE
  • Prompt: !!!!
  • Line Location: OKAY+1
Function Call: WRITE
  • Prompt: !!!!,"No purging done."
  • Line Location: OKAY+2
Function Call: WRITE
  • Prompt: !!!!,"DONE."
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !!,"I will now CLEAR out the Archived Lab Monthly Workloads global."
  • Line Location: END+3
Function Call: WRITE
  • Prompt: !!,">>> DONE <<<"
  • Line Location: END+6
Function Call: WRITE
  • Prompt: !!,$C(7),"I cannot find an active archival activity for file 67.9!"
  • Line Location: ERROR+0
Routine Call
  • DIR
  • Line Location:
    • MAKE+1
    • CHECK+1
    • OKAY+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(95.11 - [#95.11] START+2, DOIT+2, END+7!
^LAR(67.99999 - [#67.99999] END+4!, END+5*

Label References

Name Line Occurrences
ERROR START+2
EXIT START+2, MAKE+2, MAKE+3, CHECK+2, CHECK+3, OKAY+2, QUEUE+1, ERROR+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA DOIT+3*, EXIT!
DA(1 DOIT+3*, DOIT+4
DA(2 DOIT+3*, DOIT+4
DIK DOIT+4*, EXIT!
DIR MAKE+1!, CHECK+1!, OKAY+1!, EXIT!
DIR("A" MAKE+1*, CHECK+1*, OKAY+1*
DIR(0 MAKE+1*, CHECK+1*, OKAY+1*
DIRUT MAKE+2, CHECK+2, OKAY+2, END+2, EXIT!
LRADATE EXIT!
LRADIV EXIT!
LRADIVN EXIT!
LRAI DOIT+2*, EXIT!
LRAIEN DOIT+1*, DOIT+2*, DOIT+3, EXIT!
LRAINST EXIT!
LRAJ EXIT!
LRAK EXIT!
LRAR START+2*, START+4*, END+2*, EXIT!
LRARC START+2*, DOIT+2, END+7, EXIT!
LRARF EXIT!
LRARI END+4*, EXIT!
LRARP EXIT!
LRARST EXIT!
LRART START+2*, EXIT!
LRARU EXIT!
LRARX END+4*, EXIT!
Y MAKE+3, CHECK+3, OKAY+2, EXIT!
>> ZTDESC QUEUE+1*
>> ZTIO QUEUE+1*
>> ZTREQ END+8*
>> ZTRTN QUEUE+1*
>> ZTSAVE("LR*" QUEUE+1*
>> ZTSK QUEUE+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All