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: LRARU

Package: Lab Service

Routine: LRARU


Information

LRARU ;DALISC/CKA - LAB ARCHIVING MISC. ;4/19/95

Source Information

Source file <LRARU.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 7 NOW^%DTC  ^DIC  FILE^DICN  ^DIE  ^DIK  Y^DIQ  ^DIR  
Lab Service 2 FILE^LRARU  (CLN,COMP,MRK)^LRARU1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 10

Package Total Caller Graph
Lab Service 10 LRAR CANCEL ARCHIVAL ACTIVITY  LRAR DELETE ARCHIVED ENTRIES  LRARLMW  LRARLMW1  LRARPLM  LRARPW  LRARU  LRARU1  
LRARWKD  LRARWKD1  

Entry Points

Name Comments DBIA/ICR reference
NEW ;SET UP INITIAL ARCHIVAL ACTIVITY
FILE ;LOOKUP LAB ARCHIVING ACTIVITY
CHECK ;Check LAB ARCHIVAL ACTIVITY FILE
ENTC ;CANCEL
ER1
ER3
ER4
ER5
MSG
ASK
KILL
AWD
ALMW
ABI
DEV ;ASK ARCHIVE DEVICE LABEL AND STORE IN ARCHIVAL ACTIVITY FILE
DEL ;DELETE ARCHIVED FILE ENTRIES AFTER ARCHIVAL ACTIVITY IS CANCELED
EXIT

External References

Name Field # of Occurrence
NOW^%DTC NEW+3
^DIC FILE+5
FILE^DICN NEW+8
^DIE DEV+4
^DIK ENTC+6
Y^DIQ ER1+1
^DIR ENTC+4, ASK+3, DEV+1, DEL+3
FILE^LRARU ENTC+1
CLN^LRARU1 EXIT+1
COMP^LRARU1 ENTC+8
MRK^LRARU1 ENTC+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!!,$C(7),"There is an outstanding archival activity."
  • Line Location: CHECK+3
Function Call: WRITE
  • Prompt: !,"Please finish or cancel this activity before you begin another."
  • Line Location: CHECK+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: CHECK+5
Function Call: WRITE
  • Prompt: !!,">>> DONE <<<"
  • Line Location: ENTC+9
Function Call: WRITE
  • Prompt: $C(7),!!!,"The following Archival Activity is in progress--no access allowed!",!
  • Line Location: ER1+0
Function Call: WRITE
  • Prompt: Y_" STARTED: "
  • Line Location: ER1+1
Function Call: WRITE
  • Prompt: Y_" BY: "
  • Line Location: ER1+1
Function Call: WRITE
  • Prompt: $P(^(0),U,1)
  • Condition for execution: $D(^VA(200,+$P(LRARX,U,15),0))
  • Line Location: ER1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ER1+1
Function Call: WRITE
  • Prompt: !!,$C(7),"This activity has already been "_$P($P($P(^DD(95.11,7,0),U,3),";",LRARST),":",2),"!"
  • Line Location: ER3+0
Function Call: WRITE
  • Prompt: !!,$C(7),"Data ALREADY purged!",!
  • Line Location: ER4+0
Function Call: WRITE
  • Prompt: !!,$C(7),"Cannot cancel archiving record after archiving has been complete--this now",!,"acts as your history!!"
  • Line Location: ER5+0
Function Call: WRITE
  • Prompt: !!,$C(7),"Just a reminder--you have already archived these records to permanent storage.",!,"You probably won't want to save the sequential storage media since you",!,"are cancelling this archiving activity!!",!
  • Line Location: MSG+0
Function Call: WRITE
  • Prompt: !!,$C(7),"This archival activity has already updated the archived file.",!
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"I will now CLEAR out the global."
  • Line Location: KILL+0
Function Call: WRITE
  • Prompt: $C(7),!!,"No data in file.",!
  • Line Location: DEL+7
Function Call: WRITE
  • Prompt: !!!!,$C(7),"There is an outstanding archival activity."
  • Line Location: DEL+11
Function Call: WRITE
  • Prompt: !!,"This option is for use only after the archival activity is canceled.",!
  • Line Location: DEL+14
Function Call: WRITE
  • Prompt: !!,"Done."
  • Line Location: DEL+17
Routine Call
  • DIC
  • Line Location:
    • FILE+5
Routine Call
  • DIE
  • Line Location:
    • DEV+4
Routine Call
  • DIR
  • Line Location:
    • ENTC+4
    • ASK+3
    • DEV+1
    • DEL+3

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" ER1+1
^DD(95.11 ER1+1, ER3
^LAB(95.11 - [#95.11] NEW+4, CHECK+1, CHECK+2, DEL+9, DEL+10
^LAR( DEL+7
^LAR(64.19999 - [#64.19999] ENTC+7, AWD!, AWD+1*
^LAR(67.99999 - [#67.99999] ENTC+7, ALMW!, ALMW+1*
^LRD(65.9999 ENTC+7, ABI!, ABI+1*
^VA(200 - [#200] NEW+5, ER1+1

Label References

Name Line Occurrences
ABI KILL+1
ALMW KILL+1
ASK ENTC+7
AWD KILL+1
ER1 FILE+6
ER3 FILE+8
ER4 FILE+9
ER5 FILE+10
EXIT ENTC+1, ENTC+4, ENTC+7, ENTC+10, DEV+2, DEV+5, DEL+4, DEL+6, DEL+7, DEL+14
KILL ENTC+7, DEL+16
MSG FILE+10

Naked Globals

Name Field # of Occurrence
^( NEW+4
^(0 ER1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % NEW+5
>> C ER1+1*
D0 EXIT!
DA ENTC+6*, DEV+3*, EXIT!
DD NEW+7!
DIC NEW+7*, NEW+8!, FILE+1*, FILE+5!, EXIT!
DIC("A" FILE+3*, ENTC+1*
DIC("DR" NEW+6*
DIC("S" FILE+2*
DIC(0 NEW+7*, FILE+3*, FILE+4*
DIE DEV+3*, EXIT!
DIK ENTC+6*, EXIT!
DINUM NEW+6*, NEW+8!
DIR DEV+2!, DEL+3!, EXIT!
DIR("??" ENTC+3*, ASK+2*
DIR("A" ENTC+2*, ASK+1*, DEL+2*
DIR("B" ENTC+2*, ASK+1*
DIR(0 ENTC+2*, ASK+1*, DEV+1*, DEL+1*
>> DIRUT DEL+4
DLAYGO NEW+7*, NEW+8!
DO NEW+7!
DR NEW+8!, DEV+3*, EXIT!
DT NEW+5
DTOUT FILE+5, ENTC+4, ENTC+7, DEV+2, EXIT!
DUOUT FILE+5, ENTC+4, ENTC+7, DEV+2, EXIT!
DUZ NEW+5
LRAR NEW+5, FILE+3, FILE+4, FILE+8, FILE+9, FILE+10, ENTC+1*, EXIT!
LRARC NEW+8*, FILE+4, FILE+5!, FILE+6!, FILE+7*, FILE+8!, FILE+9!, FILE+10!, CHECK+2*, ENTC+1
, ENTC+6, DEV+3, DEL+10*, EXIT!
LRARF FILE+7*, ENTC+7, KILL+1, DEL+15*, EXIT!
>> LRARFL CHECK+6*, DEL+8*, DEL+12*, DEL+14
>> LRARFL1 FILE+2
LRARI AWD*, ALMW*, ABI*, EXIT!
LRARNRB ENTC+7*, ASK+3*, EXIT!
LRARP FILE+7*, EXIT!
LRARST FILE+7*, FILE+8, FILE+9, FILE+10, CHECK+2*, CHECK+7!, ER3*, DEL+10*, DEL+13!, EXIT!
>> LRART NEW+5, CHECK+1, CHECK+2, DEL+5*, DEL+6, DEL+7, DEL+9, DEL+10, DEL+15
LRARU FILE+7*, EXIT!
LRARX ER1+1*, AWD*, ALMW*, ABI*, EXIT!
U NEW+4, FILE+6, FILE+7, CHECK+2, ENTC+7, ER1+1, ER3, DEL+7, DEL+10
X NEW+4*, NEW+6, NEW+8!, FILE+4*, CHECK+2*, CHECK+7!, DEL+10*, DEL+13!
Y NEW+8, FILE+5, FILE+7, ENTC+4, ER1+1*, ASK+3, DEV+2, DEV+3, DEL+4, DEL+5
, EXIT!
Y(0 FILE+6, FILE+7, ER1+1
Z NEW+5*, NEW+6, NEW+8!
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