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

Package: Utilities

Routine: AUCDIC


Information

AUCDIC ; CLEAN UP ^DIC AND ^DD [ 06/13/87 9:46 AM ]

Source Information

Source file <AUCDIC.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Utilities 3 ^AUCDIC2  ^AUCDIC3  ^AUCDICD  
Uncategorized 2 EN1^%AUDSET  EN1^%AURESID  

Entry Points

Name Comments DBIA/ICR reference
BEGIN
LO
NOTES ; This routine cleans up ^DIC and ^DD by a range of
; dictionary numbers. All files in ^DIC within the range
; of dictionary numbers are checked for the following:
; They must have a NAME in ^DIC.
; The NAME in ^DIC must match the NAME in ^DD.
; The NAME must exist in ^DIC("B" with the correct number,
; and that number cannot occur more than once in ^DIC("B".
; They must have a data global specified in ^DIC.
; The data global must be in the correct form.
; The data global must exist.
; The data global must have a 0th node.
; The NAME and NUMBER in the data global must match ^DIC.
; The data globals 0th node must be consistent with
; the data (Exact count not checked).
; They must have valid entries in ^DD as follows:
; The ^DD entry must have a .01 field.
; All "SB" pointers must point to existing sub-files.
; All sub-files must point back to correct parent.
; All "TRB" entries must exist.
; All "PT" entries must exist.
; All "ACOMP" entries must exist.
HI
EOJ ;
BCHK ;

External References

Name Field # of Occurrence
EN1^%AUDSET HI+2, HI+6
EN1^%AURESID HI+8
^AUCDIC2 HI+4
^AUCDIC3 HI+7
^AUCDICD HI+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This routine cleans up ^DIC and ^DD by a range of dictionary numbers."
  • Line Location: BEGIN+1
Function Call: READ
  • Prompt: "Enter low number of range: "
  • Formatting: !!
  • Timeout: AUCDLO'=+AUCDLO
  • Variable: AUCDLO G
  • Line Location: LO+0
Function Call: READ
  • Prompt: "Enter high number of range: "
  • Formatting: !
  • Timeout: AUCDHI=""
  • Variable: AUCDHI S
  • Line Location: HI+0
Function Call: WRITE
  • Prompt: !!,"*** Don't mess with files less than 2!! ***",*7
  • Line Location: HI+1
Function Call: WRITE
  • Prompt: !!,"No dictionaries were selected!"
  • Line Location: HI+3
Function Call: WRITE
  • Prompt: !!,"Now confirming ^DIC(""B"")"
  • Line Location: HI+9
Function Call: WRITE
  • Prompt: "."
  • Line Location: HI+10
Function Call: WRITE
  • Prompt: "."
  • Line Location: HI+11
Function Call: WRITE
  • Prompt: "|"
  • Line Location: HI+11
Function Call: WRITE
  • Prompt: "|"
  • Line Location: BCHK+1
Function Call: WRITE
  • Prompt: "|"
  • Line Location: BCHK+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] HI+11, BCHK+1, BCHK+2
^DIC("B" HI+10, HI+11, BCHK+1!, BCHK+2!
^UTILITY("AUDSET" HI+3, EOJ+2!

Label References

Name Line Occurrences
BCHK HI+10
EOJ LO, HI, HI+1, HI+3, HI+12

Naked Globals

Name Field # of Occurrence
^( HI+11*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AUCDFILE HI+10*, HI+11*, BCHK+1, BCHK+2, EOJ+1!
AUCDHI HI*, HI+2, HI+6, HI+8, HI+10, HI+11, EOJ+1!
AUCDL HI+10*, HI+11*, EOJ+1!
AUCDLO LO*, HI, HI+1, HI+2, HI+6, HI+8, HI+10, HI+11, EOJ+1!
AUCDNDIC HI+11*, EOJ+1!
AUCDUCI EOJ+1!
AUCDX HI+10*, BCHK+1, BCHK+2, EOJ+1!
>> AUDSHI HI+2*, HI+6*
>> AUDSLO HI+2*, HI+6*
>> AURHI HI+8*
>> AURLO HI+8*
U BEGIN*, HI+11, BCHK+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All