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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DIARU

Package: VA FileMan

Routine: DIARU


Information

DIARU ;SFISC/TKW-ARCHIVING FUNCTIONS (CONT) ;2/18/93 5:21 AM

Source Information

Source file <DIARU.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 5 NOW^%DTC  ^DIC  ^DIE  ^DIK  Y^DIQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
VA FileMan 6 DIAR  DIARA  DIARB  DIAX  DIAXU  DIO4  

Entry Points

Name Comments DBIA/ICR reference
ER4
ER5
ER6
ER1
ER2
ER3
UPDATE ;UPDATE ARCHIVING FILE (DJ=#ITEMS SELECTED) called w/in DIO4
FILE ;LOOKUP ARCHIVING ACTIVITY
MRK ;SET FIELDS TO LOCK OUT OTHER USERS DURING ARCHIVING ACTIVITY
MSG

External References

Name Field # of Occurrence
NOW^%DTC UPDATE+1, MRK+1
^DIC FILE+2
^DIE UPDATE+9, MRK+1
^DIK FILE+12
Y^DIQ ER1+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),"No selection template used for this ARCHIVING ACTIVITY--CANCEL it!"
  • Line Location: FILE+5
Function Call: WRITE
  • Prompt: !!,$C(7),"This data has already been moved to the destination file!",!,"PURGE data or CANCEL this extract activity."
  • Line Location: FILE+8
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: $S($D(^VA(200,+$P(DIARX,U,16),0)):1,1:$D(^DIC(3,+$P(DIARX,U,16),0)))
  • Line Location: ER1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ER1+1
Function Call: WRITE
  • Prompt: !!,$C(7),"Data has already been moved to the destination file.",!,"List cannot be edited."
  • Line Location: ER2+0
Function Call: WRITE
  • Prompt: !!,$C(7),"This data has already been archived to "_$S(DIARST=4:"temporary",1:"permanent")_" storage"
  • Line Location: ER2+1
Function Call: WRITE
  • Prompt: " and purged"
  • Condition for execution: DIARST>5
  • Line Location: ER2+1
Function Call: WRITE
  • Prompt: ".",!
  • Line Location: ER2+1
Function Call: WRITE
  • Prompt: "List cannot be edited after data has been archived!"
  • Condition for execution: DIAR=2
  • Line Location: ER2+1
Function Call: WRITE
  • Prompt: !!,$C(7),"Cannot write to permanent storage until data has been written",!,"to temporary storage!!"
  • Line Location: ER3+0
Function Call: WRITE
  • Prompt: !!,$C(7),$S(DIARST>6:"Data ALREADY purged",$D(DIAX):"Data has NOT YET been moved to the destination file",1:"Data has NOT YET been archived to PERMANENT storage"),"!",!
  • 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),"Source File is missing!",!,"I AM DELETING THIS ",$S($D(DIAX):"EXTRACT",1:"ARCHIVING")," ACTIVITY!"
  • Line Location: ER6+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
Routine Call
  • DIE
  • Line Location:
    • UPDATE+9
    • MRK+1
Routine Call
  • DIC
  • Line Location:
    • FILE+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" ER1+1
^DD(1.11 ER1+1
^DIAR(1.11 - [#1.11] FILE+11
^DIC - [#1] FILE+12
^DIC(3 ER1+1
^VA(200 - [#200] UPDATE+4, UPDATE+6, UPDATE+8, ER1+1

Label References

Name Line Occurrences
ER1 FILE+3
ER2 FILE+6
ER3 FILE+7
ER4 FILE+9
ER5 FILE+10
ER6 FILE+12
MRK FILE+12
MSG FILE+10

Naked Globals

Name Field # of Occurrence
^(0 ER1+1
^(1 FILE+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % UPDATE+5, MRK+1
>> C ER1+1*
>> DA UPDATE+1*, UPDATE+9*, FILE+12*, MRK+1*
>> DIAR UPDATE+1, UPDATE+2, UPDATE+4, UPDATE+5, UPDATE+6, UPDATE+8, FILE+5, FILE+6, FILE+7, FILE+8
, FILE+9, FILE+10, FILE+12, MRK+1, ER2+1
DIARC UPDATE+1, UPDATE+9, FILE+4*, FILE+5!, FILE+6!, FILE+7!, FILE+8!, FILE+9!, FILE+10!, FILE+12!
, MRK+1
>> DIARF FILE+4*, FILE+11, FILE+12
>> DIARF2 FILE+11*
>> DIARP FILE+4*
>> DIARST FILE+4*, FILE+6, FILE+7, FILE+8, FILE+9, FILE+10, ER2+1, ER4
>> DIARU FILE+4*, FILE+5
>> DIARX FILE+12*, ER1+1*
>> DIAX FILE+1, FILE+4, FILE+9, ER2, ER4, ER6
>> DIAXFNO FILE+4*
DIC FILE+1!*, FILE+12*
DIC("A" FILE+1*
DIC("S" FILE+1*
DIC(0 FILE+1*
DIE UPDATE+1~*, MRK+1*
DIK FILE+12*!
>> DJ UPDATE+4
>> DR UPDATE+9*, MRK+1*
DT UPDATE+4, UPDATE+6, UPDATE+8
>> DTOUT FILE+2
>> DUOUT FILE+2
DUZ UPDATE+4, UPDATE+6, UPDATE+8, MRK+1
>> DV UPDATE+9*
U FILE+3, FILE+4, ER1+1
>> X UPDATE+1*, UPDATE+2*, UPDATE+3*, UPDATE+4*, UPDATE+5*, UPDATE+6*, UPDATE+8*, UPDATE+9
>> Y FILE+2, FILE+4, FILE+11, ER1+1*
>> Y(0 FILE+3, FILE+4, FILE+12*, ER1+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All