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

Package: IHS VA Utilities

Routine: XBKD2


Information

XBKD2 ; IHS/ADC/GTH - CHECK DICTIONARY NAMES AND DATA GLOBALS ; [ 10/29/2002 7:42 AM ]

Source Information

Source file <XBKD2.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
Kernel 1 $$VERSION^%ZOSV  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS VA Utilities 1 XBKD  

Entry Points

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

External References

Name Field # of Occurrence
$$VERSION^%ZOSV START+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Now checking dictionary names and data globals."
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !?5,"Checking ",XBKDFILE
  • Line Location: START+7
Function Call: WRITE
  • Prompt: !,*7,?10,"Not in ^DIC or ^DD. Removing from ^UTILITY(""XBDSET"")."
  • Line Location: XBKDNC+1
Function Call: WRITE
  • Prompt: !,*7,?10,"Data global for ",XBKDFILE," is a % global. Removing from ^UTILITY(""XBDSET"")."
  • Line Location: XBKDNC+4
Function Call: WRITE
  • Prompt: !?10,"No name in ^DD. Using name in ^DIC."
  • Line Location: XBKDNC+8
Function Call: WRITE
  • Prompt: !?10,"No name in ^DIC. Using name in ^DD."
  • Line Location: XBKDNC+9
Function Call: WRITE
  • Prompt: !?10,"No name in ^DIC or ^DD. Using name in data global."
  • Line Location: XBKDNC+10
Function Call: WRITE
  • Prompt: !?10,"Name in ^DIC and ^DD differ. Using name in ^DIC."
  • Line Location: XBKDNC+11
Function Call: WRITE
  • Prompt: !?10,"Unable to deduce name. Searching DIC(""B"")."
  • Line Location: XBKDNC+12
Function Call: WRITE
  • Prompt: !?10,"Unable to deduce name. Setting to 'NO NAME'"
  • Line Location: XBKDNC+15
Function Call: WRITE
  • Prompt: !?10,"File ",XBKDFILE," has no data global specified in ^DIC."
  • Line Location: GCHK+4
Function Call: WRITE
  • Prompt: !?10,"File ",XBKDFILE," data global=",XBKDG," is invalid."
  • Line Location: GCHK+5
Function Call: WRITE
  • Prompt: !?10,"Data global ",XBKDG," does not exist!"
  • Line Location: GCHK+8
Function Call: WRITE
  • Prompt: !?10,"File ",XBKDFILE," 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+12
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+6
Function Call: WRITE
  • Prompt: !
  • Line Location: DICB+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DICB+11
Function Call: WRITE
  • Prompt: !?12,"Deleting ^DIC(""B"",""",XBKDNTBL(XBKDX),""",",XBKDFILE,")"
  • Line Location: DICB+13
Function Call: WRITE
  • Prompt: !
  • Line Location: DICB+14
Function Call: WRITE
  • Prompt: !?12,"Setting names to '",XBKDNTBL(XBKDANS),"'"
  • 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(XBKDX,1,47)
  • Line Location: GNMCHK2+3

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
DICB XBKDNC+13
GCHK XBKDNC+3
GNMCHK XBKDNC+7, XBKDNC+8, XBKDNC+9, XBKDNC+11, XBKDNC+14, XBKDNC+17
GNMCHK2 GNMCHK+2
NAMESET DICB+5, DICB+9
XBKDNC START+7

Naked Globals

Name Field # of Occurrence
^( DICB+3
^("UCI" START+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
U XBKDNC+2, XBKDNC+9, XBKDNC+10, XBKDNC+16, GCHK+4, GCHK+5, GCHK+6, GCHK+8, GCHK+11, GCHK+12
, NAMESET+3, GNMCHK+4, GNMCHK2+2
XBKDANS START+8!, DICB+5*, DICB+8*, DICB+10, NAMESET+1, NAMESET+3
XBKDC START+8!, DICB+2*, DICB+3*, DICB+4, DICB+5
>> XBKDFILE START+6*, START+7*, XBKDNC+1, XBKDNC+2, XBKDNC+4, XBKDNC+5, XBKDNC+6, XBKDNC+8, XBKDNC+9, XBKDNC+10
, XBKDNC+11, XBKDNC+16, GCHK+2, GCHK+4, GCHK+5, GCHK+6, GCHK+8, GCHK+12, DICB+3, DICB+13
, NAMESET+2, NAMESET+3, GNMCHK+2, GNMCHK2+2
XBKDG START+8!, XBKDNC+4, GCHK+2*, GCHK+3, GCHK+4, GCHK+5, GCHK+6*, GCHK+7, GCHK+8, GCHK+9
, GNMCHK+3, GNMCHK2+2
XBKDGG START+8!, GCHK+2*, GCHK+3*, GCHK+5, GNMCHK+1
XBKDGNM START+8!, XBKDNC+6, XBKDNC+10, GCHK+1*, GCHK+11*, GNMCHK+2, GNMCHK+4
XBKDGNR START+8!, XBKDNC+6, XBKDNC+10, GCHK+1*, GCHK+11*, GNMCHK+2, GNMCHK+4
>> XBKDL START+7*, DICB+3*, DICB+13*
XBKDNDD START+8!, XBKDNC+5*, XBKDNC+6, XBKDNC+7, XBKDNC+8*, XBKDNC+9, XBKDNC+10*, XBKDNC+11*, XBKDNC+16*, NAMESET+3*
XBKDNDIC START+8!, XBKDNC+2*, XBKDNC+6, XBKDNC+7, XBKDNC+8, XBKDNC+9*, XBKDNC+10*, XBKDNC+11, XBKDNC+14, XBKDNC+16*
, NAMESET+3*, GNMCHK+2, GNMCHK+4
XBKDNTBL START+8!, DICB+1!, DICB+5!, DICB+15!
XBKDNTBL( DICB+3*, DICB+10!, DICB+13, NAMESET+1, NAMESET+3
>> XBKDUCI START+1*, START+4*, GCHK+6
XBKDX START+8!, GCHK+7*, GCHK+8, GCHK+10*, GCHK+11, GCHK+12, DICB+2*, DICB+3*, DICB+12*, DICB+13*
, GNMCHK+3*, GNMCHK+4*, GNMCHK2+2*, GNMCHK2+3
XBKDY START+8!, GCHK+9*, GCHK+10, GCHK+11, GCHK+12
>> Y START+1*, START+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All