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

Package: VA FileMan

Routine: DIARA


Information

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

Source Information

Source file <DIARA.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 7 ^DIAC  (ASK,Q)^DIARB  (FILE,UPDATE)^DIARU  ^DIE  ^DIK  EN1^DIP  ^DIR  

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

Package Total Caller Graph
VA FileMan 2 DIAR  DIAX  

Entry Points

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

External References

Name Field # of Occurrence
^DIAC ENTD+7
ASK^DIARB ENTC+6
Q^DIARB Q
FILE^DIARU ENTD+3, ENTC+1, OUT+1
UPDATE^DIARU D0+1, UNLK
^DIE OUT+4
^DIK D0+4, ENTC+6, ENTC+7
EN1^DIP OUT+11
^DIR ENTD+2, ENTD+6, ENTC+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
Routine Call
  • DIE
  • Line Location:
    • OUT+4
Routine Call
  • DIR
  • Line Location:
    • ENTD+2
    • ENTD+6
    • ENTC+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( ENTD+4, ENTD+9
^DIAR(1.11 - [#1.11] D0+1, D0+3, ENTC+6, OUT+8
^DIBT - [#.401] D0, D0+2!, ENTC+5
^DIC - [#1] ENTD+5, ENTD+7, ENTC+6, OUT+7

Label References

Name Line Occurrences
@( OUT+3
D0 D0+3, D0+4, E
Q ENTD+3, D0+1, ENTC+1, ENTC+8, OUT+1, OUT+13
UNLK ENTD+6, ENTD+7, ENTC+4, ENTC+6, OUT+4, OUT+12

Naked Globals

Name Field # of Occurrence
^( OUT+8
^("D" D0+1!
^("EX" D0+1!
^(0 ENTD+9, D0+2, D0+3*, OUT+7
^(1 OUT+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ENTD+7, D*, OUT+8*, OUT+9*, OUT+10
>> BY OUT+6*
DA D0*, D0+1, D0+2, ENTC+6*, ENTC+7*, OUT+4*, OUT+6!
>> DHD OUT+7*
>> DIAC ENTD+7*
>> DIAR OUT+3, OUT+4, OUT+5, OUT+6, OUT+12, UNLK*
DIARC ENTD+3, D0+1, D0+3, ENTC+1, ENTC+6, ENTC+7, OUT+1!, OUT+4, OUT+8
>> DIARD OUT+2*
>> DIARF ENTD+4, ENTD+5, ENTD+7, ENTD+9, D0+4, OUT+7
>> DIARF2 D0+4, OUT+8, OUT+9, OUT+10
>> DIARI OUT+6*
DIARP OUT+4!
>> DIARS ENTD+9*, D
>> DIARS(0 D0+2*, D0+3, D0+4
>> DIARST ENTC+6
>> DIARU D0, D0+2, ENTC+5, OUT+6
>> DIAX ENTD+1, ENTC+1, ENTC+2, ENTC+6, OUT+5, OUT+7, 3
>> DIAXFNO ENTC+6
>> DIAXNRB ENTC+6*
>> DIC D0+2, ENTC+5, OUT+7*
>> DIC("A" ENTC+1*
DIE OUT+4*, OUT+6!
DIFG OUT+9!, OUT+10
DIFG( OUT+8*, OUT+9, OUT+10*
>> DIFILE ENTD+7*
>> DIK D0+2*, ENTC+6*, ENTC+7*
DIOEND OUT+5!*
>> DIOVRD ENTC+6*
DIR ENTD+2!, ENTD+5!
DIR("??" ENTC+3*
DIR("A" ENTD+2*, ENTD+5*, ENTC+2*
DIR("B" ENTD+2*, ENTD+5*, ENTC+2*
DIR(0 ENTD+2*, ENTD+5*, ENTC+2*
>> DISTOP OUT+5*
DR OUT+4*, OUT+6!
>> DTOUT ENTD+2, ENTD+6, ENTC+4, ENTC+6, OUT+4
>> DUOUT ENTD+2, ENTD+6, ENTC+4, ENTC+6
FLDS OUT+1!, OUT+4*
>> FR OUT+5*
>> I ENTD+9*, D*, ENTC+5*
>> K ENTD+9*
>> L OUT+5*
POP OUT+12, Q!
>> TO OUT+5*
U ENTD+5, ENTD+7, ENTD+9, D0+1, D0+3, D0+4, D, OUT+7
>> X ENTD+9*, D0+4*, D*
>> Y ENTD+2, ENTD+6, D0+3*, D0+4*, D, ENTC+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All