Routine: XBKD2

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

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

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*

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

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

Customize PDF page

Package: IHS VA Utilities

Routine: XBKD2

Information

Source Information

Call Graph

Call Graph Total: 1

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

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