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

Package: Lab Service

Routine: LRARU


Information

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

Source Information

Source file <LRARU.m>

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

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

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