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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DI14POST

Package: VA FileMan

Routine: DI14POST


Information

DI14POST ;OAK/RSD Post Install for patch 14

Source Information

Source file <DI14POST.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 2 $$FMADD^XLFDT  ($$OSNUM,MOVE)^ZTMGRSET  
VA FileMan 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
EN ;find all sub data dictionaries and check zero node name
REC(X,Y,Z) ;record action X, global ref. Y, new value for set Z
EXEC ;execute the changes found
RESTORE ;restore the old values in ^XTMP("DI14")

External References

Name Field # of Occurrence
^DIR EN+10, EN+26
$$FMADD^XLFDT EN+15
$$OSNUM^ZTMGRSET DI14POST+4
MOVE^ZTMGRSET DI14POST+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This will check your account for bad ^DD(file #,0) nodes. It will look"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"for multiples that don't have the field name as the 1st piece of the node."
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"It will display its results and ask you if you want to make the changes."
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,"This will take 5 to 10 minutes."
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !!,"You already have bad nodes identified in the ^XTMP(""DI14"") global."
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,"If you proceed this data will be overwritten."
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !!,"Do you want to run the check?"
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !,".."
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+22
Function Call: WRITE
  • Prompt: !,"No bad nodes",!
  • Line Location: EN+23
Function Call: WRITE
  • Prompt: !,$P(X,U,2)
  • Line Location: EN+24
Function Call: WRITE
  • Prompt: !!,J," bad node(s) found. Do you want to repair?"
  • Line Location: EN+25
Function Call: WRITE
  • Prompt: !!,"Done",!
  • Line Location: EN+28
Function Call: WRITE
  • Prompt: !!,"Backup Global, ^XTMP(""DI14""), doesn't exists !!"
  • Line Location: EXEC+1
Function Call: WRITE
  • Prompt: !!,"Backup Global, ^XTMP(""DI14""), doesn't exists !!"
  • Line Location: RESTORE+1
Routine Call
  • DIR
  • Line Location:
    • EN+10
    • EN+26

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( DI14POST+8*, DI14POST+9*, EN+17, EN+19, EN+20
^DIC - [#1] EN+18
^XTMP("DI14" EN+6, EN+12!, EN+15*, EN+22, EN+24, REC+3, REC+4*, EXEC+1, EXEC+4, EXEC+5
, RESTORE+1, RESTORE+4, RESTORE+5

Label References

Name Line Occurrences
EXEC EN+28
REC EN+20

Naked Globals

Name Field # of Occurrence
^("C" REC+3*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%D DI14POST+3~, DI14POST+4*
%S DI14POST+3~, DI14POST+4*
C REC+2~, REC+3*, REC+4
DIR EN+1~
DIR("B" EN+10*, EN+26*
DIR(0 EN+10*, EN+26*
DT EN+15
I EN+1~, EN+15*, EN+17*, EN+18, EN+19, EN+20, EN+24*, EXEC+2~, EXEC+3*, EXEC+4*
, EXEC+5, RESTORE+2~, RESTORE+3*, RESTORE+4*, RESTORE+5
J EN+1~, EN+17*, EN+20*, EN+22*, EN+23, EN+24, EN+25
K EN+1~, EN+19*, EN+20
SCR DI14POST+3~, DI14POST+4*
U EN+15, EN+17, EN+20, EN+24, EXEC+5, EXEC+6, RESTORE+5, RESTORE+7
X EN+1~, EN+24*, REC~, REC+4, EXEC+2~, EXEC+5*, EXEC+6, RESTORE+2~, RESTORE+5*, RESTORE+7
Y EN+1~, EN+11, EN+27, REC~, REC+4, EXEC+2~, EXEC+5*, EXEC+6, RESTORE+2~, RESTORE+5*
, RESTORE+7
Z REC~, REC+4
ZTOS DI14POST+3~, DI14POST+4*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All