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

Entry Points

Name Comments DBIA/ICR reference
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
ER1
ER2
ER3
ER4
ER5
ER6
MSG

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
Info |  Source |  Entry Points |  Interaction Calls