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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: AUKD2

Package: Utilities

Routine: AUKD2


Information

AUKD2 ; CHECK DICTIONARY NAMES AND DATA GLOBALS [ 04/07/88 2:37 PM ]

Source Information

Source file <AUKD2.m>

Entry Points

Name Comments DBIA/ICR reference
DICB ; CHECK DIC("B"
GNMCHK2 ; DATA GLOBAL MISMATCH
GNMCHK ; CHECK DATA GLOBAL NAME AGAINST ^DIC
NAMESET ;
GCHK ; CHECK DATA GLOBAL
AUKDNC ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Now checking dictionary names and data globals."
  • Line Location: AUKD2+3
Function Call: WRITE
  • Prompt: !,?5,"Checking ",AUKDFILE
  • Line Location: AUKD2+3
Function Call: WRITE
  • Prompt: !,*7,?10,"Not in ^DIC or ^DD. Removing from ^UTILITY(""AUDSET"")."
  • Line Location: AUKDNC+1
Function Call: WRITE
  • Prompt: !,*7,?10,"Data global for ",AUKDFILE," is a % global. Removing from ^UTILITY(""AUDSET"")."
  • Line Location: AUKDNC+4
Function Call: WRITE
  • Prompt: !,?10,"No name in ^DD. Using name in ^DIC."
  • Line Location: AUKDNC+8
Function Call: WRITE
  • Prompt: !,?10,"No name in ^DIC. Using name in ^DD."
  • Line Location: AUKDNC+9
Function Call: WRITE
  • Prompt: !,?10,"No name in ^DIC or ^DD. Using name in data global."
  • Line Location: AUKDNC+10
Function Call: WRITE
  • Prompt: !,?10,"Name in ^DIC and ^DD differ. Using name in ^DIC."
  • Line Location: AUKDNC+11
Function Call: WRITE
  • Prompt: !,?10,"Unable to deduce name. Searching DIC(""B"")."
  • Line Location: AUKDNC+12
Function Call: WRITE
  • Prompt: !,?10,"Unable to deduce name. Setting to 'NO NAME'"
  • Line Location: AUKDNC+14
Function Call: WRITE
  • Prompt: !,?10,"File ",AUKDFILE," has no data global specified in ^DIC."
  • Line Location: GCHK+3
Function Call: WRITE
  • Prompt: !,?10,"File ",AUKDFILE," data global=",AUKDG," is invalid."
  • Line Location: GCHK+4
Function Call: WRITE
  • Prompt: !,?10,"Data global ",AUKDG," does not exist!"
  • Line Location: GCHK+7
Function Call: WRITE
  • Prompt: !,?10,"File ",AUKDFILE," data global has entries but no 0th node.",!,?12,"If global not being deleted, piece 3 and 4 must be reset!",!,?12,"Creating 0th node."
  • Line Location: GCHK+11
Function Call: WRITE
  • Prompt: !,?12,"Multiple entries were found in ^DIC(""B""). Selecting first name",!,?12," found. All other names will be removed."
  • Line Location: DICB+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DICB+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DICB+5
Function Call: WRITE
  • Prompt: !,?12,"Deleting ^DIC(""B"",""",AUKDNTBL(AUKDX),""",",AUKDFILE,")"
  • Line Location: DICB+6
Function Call: WRITE
  • Prompt: !
  • Line Location: DICB+7
Function Call: WRITE
  • Prompt: !,?12,"Setting names to '",AUKDNTBL(AUKDANS),"'"
  • Line Location: NAMESET+1
Function Call: WRITE
  • Prompt: !,?10,"Data global name and/or number do not match ^DIC. Data global will",!,?12,"not be deleted!! "
  • Line Location: GNMCHK2+1
Function Call: WRITE
  • Prompt: $E(AUKDX,1,47)
  • Line Location: GNMCHK2+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("UCI" AUKD2+2
^DD( AUKDNC+1, AUKDNC+5, AUKDNC+8*, AUKDNC+10*, AUKDNC+11!*, AUKDNC+14*, NAMESET+2!, NAMESET+3*
^DIC - [#1] AUKDNC+1, AUKDNC+2, AUKDNC+9*, AUKDNC+10*, AUKDNC+14*, GCHK+2, NAMESET+3*
^DIC("B" DICB+1, DICB+6!
^UTILITY("AUDSET" AUKD2+3, AUKDNC+1!, AUKDNC+4!, GCHK+3*, GCHK+4*, GCHK+5*, GCHK+7*, GNMCHK2+1*

Label References

Name Line Occurrences
AUKDNC AUKD2+3
DICB AUKDNC+12
GCHK AUKDNC+3
GNMCHK AUKDNC+7, AUKDNC+8, AUKDNC+9, AUKDNC+11, AUKDNC+13, AUKDNC+15
GNMCHK2 GNMCHK+2
NAMESET DICB+3, DICB+5

Naked Globals

Name Field # of Occurrence
^( DICB+1
^("GL" GCHK+2
^("UCI" AUKD2+2
^(0 AUKDNC+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AUKDANS AUKD2+4!, DICB+3*, DICB+5*, NAMESET+1, NAMESET+3
AUKDC AUKD2+4!, DICB+1*, DICB+2, DICB+3
>> AUKDFILE AUKD2+3*, AUKDNC+1, AUKDNC+2, AUKDNC+4, AUKDNC+5, AUKDNC+6, AUKDNC+8, AUKDNC+9, AUKDNC+10, AUKDNC+11
, AUKDNC+14, GCHK+2, GCHK+3, GCHK+4, GCHK+5, GCHK+7, GCHK+11, DICB+1, DICB+6, NAMESET+2
, NAMESET+3, GNMCHK+2, GNMCHK2+1
AUKDG AUKD2+4!, AUKDNC+4, GCHK+2*, GCHK+3, GCHK+4, GCHK+5*, GCHK+6, GCHK+7, GCHK+8, GNMCHK+3
, GNMCHK2+1
AUKDGG AUKD2+4!, GCHK+2*, GCHK+4, GNMCHK+1
AUKDGNM AUKD2+4!, AUKDNC+6, AUKDNC+10, GCHK+1*, GCHK+10*, GNMCHK+2, GNMCHK+3
AUKDGNR AUKD2+4!, AUKDNC+6, AUKDNC+10, GCHK+1*, GCHK+10*, GNMCHK+2, GNMCHK+3
>> AUKDL AUKD2+3*, DICB+1*, DICB+6*
AUKDNDD AUKD2+4!, AUKDNC+5*, AUKDNC+6, AUKDNC+7, AUKDNC+8*, AUKDNC+9, AUKDNC+10*, AUKDNC+11*, AUKDNC+14*, NAMESET+3*
AUKDNDIC AUKD2+4!, AUKDNC+2*, AUKDNC+6, AUKDNC+7, AUKDNC+8, AUKDNC+9*, AUKDNC+10*, AUKDNC+11, AUKDNC+13, AUKDNC+14*
, NAMESET+3*, GNMCHK+2, GNMCHK+3
AUKDNTBL AUKD2+4!, DICB+1!, DICB+3!, DICB+8!
AUKDNTBL( DICB+1*, DICB+5!, DICB+6, NAMESET+1, NAMESET+3
>> AUKDUCI AUKD2+2*, GCHK+5
AUKDX AUKD2+4!, GCHK+6*, GCHK+7, GCHK+9*, GCHK+10, GCHK+11, DICB+1*, DICB+6*, GNMCHK+3*, GNMCHK2+1*
AUKDY AUKD2+4!, GCHK+8*, GCHK+9, GCHK+10, GCHK+11
U AUKDNC+2, AUKDNC+9, AUKDNC+10, AUKDNC+14, GCHK+3, GCHK+4, GCHK+5, GCHK+7, GCHK+10, GCHK+11
, NAMESET+3, GNMCHK+3, GNMCHK2+1
>> Y AUKD2+2*
Info |  Source |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All