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

Package: VA FileMan

Routine: DIARA


Information

DIARA ;SFISC/TKW,WISC/CAP-ARCHIVING FUNCTIONS (CONT) ;22SEP2004

Source Information

Source file <DIARA.m>

Entry Points

Name Comments DBIA/ICR reference
ENTD ; PURGE
D0
D
E
ENTC ;CANCEL
OUT ;USED TO PRINT LISTING OR TO WRITE TO TEMP.STORAGE
UNLK
Q
3
4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),"The records about to be purged should not be 'pointed to' by other records to",!,"maintain database integrity."
  • Line Location: ENTD+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ENTD+5
Function Call: WRITE
  • Prompt: !,$C(7),"Sorry, you cannot purge this archival activity!",!,"You do not have DELETE access to ",$P(^DIC(DIARF,0),U),"."
  • Line Location: ENTD+7
Function Call: WRITE
  • Prompt: !!,"The entries will be deleted in INTERNAL NUMBER order."
  • Line Location: ENTD+8
Function Call: WRITE
  • Prompt: !!,"<< ",$P(^DIAR(1.11,DIARC,0),U,7)," ENTRIES PURGED >>"
  • Line Location: D0+1
Function Call: WRITE
  • Prompt: !!,">>> DONE <<<"
  • Line Location: ENTC+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: OUT+2
Function Call: WRITE
  • Prompt: "Enter regular Print Template name or fields you wish to see printed on this",!,"report of entries to be "_$S($D(DIAX):"extracted.",1:"archived.")
  • Line Location: 3+0
Function Call: WRITE
  • Prompt: "You MUST enter a FILEGRAM template name. This FILEGRAM template will be used",!,"to actually build the archive message."
  • Line Location: 4+0
Info |  Source |  Entry Points |  Interaction Calls