Routine: XB

Call Graph

Call Graph Total: 14

Package	Total	Call Graph
IHS VA Utilities	7	^XB1 $$DIR^XBDIR ^XBKSET ^XBKTMP EN^XBNEW EN^XBRPTL EN^XBVK
Kernel	4	^%ZIS $$VERSION^%ZOSF $$UP^XLFSTR $$VERSION^XPDUTL
IHS VA %Utilities	2	$$Z^ZIBNSSV $$RSEL^ZIBRSEL
Toolkit	1	2^%XUCI

Package

Total

Call Graph

IHS VA Utilities

^XB1 $$DIR^XBDIR ^XBKSET ^XBKTMP EN^XBNEW EN^XBRPTL EN^XBVK

Kernel

^%ZIS $$VERSION^%ZOSF $$UP^XLFSTR $$VERSION^XPDUTL

IHS VA %Utilities

$$Z^ZIBNSSV $$RSEL^ZIBRSEL

Toolkit

2^%XUCI

Package	Total	Caller Graph
IHS VA %Utilities	7	ZIBCLU ZIBDR ZIBFIND ZIBGCHR ZIBRPRTD ZIBVCHV ZIBVSS
IHS Release Of Information	1	BRNACT
IHS VA Utilities	1	XBTM

Package

Total

Caller Graph

IHS VA %Utilities

ZIBCLU ZIBDR ZIBFIND ZIBGCHR ZIBRPRTD ZIBVCHV ZIBVSS

IHS Release Of Information

BRNACT

IHS VA Utilities

XBTM

Entry Points

Name	Comments	DBIA/ICR reference
RECURSE	;
PATS()	;Display patches installed for XB.
PAUSE	;EP
LETTERS	;
OPTION	;
MENU	;
RCHK	;EP - Check Existence of Routine in X
OSNO	;EP
LIST	; List menu options.
START	;
CALL	;
TRAP	; ERROR TRAP
EOJ	;
CHECK	; CHECK XB OPTION ROUTINES (EXECUTED FROM ^XB MENU OPTION)
HELP	;

External References

Name	Field # of Occurrence
2^%XUCI	RCHK+3, RCHK+8
^%ZIS	CALL+2
$$VERSION^%ZOSF	CHECK+11
^XB1	HELP+11, LIST+4, LIST+5, OPTION+1, CHECK+2, CHECK+3
$$DIR^XBDIR	PAUSE+3, OSNO+2
^XBKSET	START+5
^XBKTMP	EOJ+1
EN^XBNEW	OPTION+8
EN^XBRPTL	HELP+18
EN^XBVK	EOJ+1
$$UP^XLFSTR	LIST+6, LETTERS+2
$$VERSION^XPDUTL	LIST+3
$$Z^ZIBNSSV	TRAP+1
$$RSEL^ZIBRSEL	HELP+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Missing ^%ZOSF nodes!",! Line Location: START+1
Function Call: WRITE	Prompt: !!,"Choose: " Line Location: MENU+2
Function Call: WRITE	Prompt: *7 Line Location: MENU+9
Function Call: WRITE	Prompt: !!,"To get help on a non-menu option enter '?n' where n is the option number.",! Line Location: HELP+5
Function Call: WRITE	Prompt: !!,"No help available. Routine ^XBRPTL not in UCI.",! Line Location: HELP+9
Function Call: WRITE	Prompt: !!,"No help available for menus." Line Location: HELP+12
Function Call: WRITE	Prompt: !!,"No help available for executable code :",!,"[",$E(XBX,2,99),"]." Line Location: HELP+13
Function Call: WRITE	Prompt: !!,"No help available. Routine ^",XBX," not in ",$S($E(XBX)="%":"MGR",1:"UCI"),".",! Line Location: HELP+16
Function Call: WRITE	Prompt: *7 Line Location: HELP+21
Function Call: WRITE	Prompt: !!?5,$P($T(XB+1),";",4)," v ",$$VERSION^XPDUTL("XB") Line Location: LIST+3
Function Call: WRITE	Prompt: !!?5,$P($T(@XBLBL^XB1),";;",2),! Line Location: LIST+4
Function Call: WRITE	Prompt: !,XBI,?5,XBX," ",$S($D(XBH):$S(XBY:"[menu]",1:XBY),1:$S(XBY:"[menu]",1:"")) Line Location: LIST+8
Function Call: WRITE	Prompt: ! Line Location: LETTERS+6
Function Call: WRITE	Prompt: !,I," ",$P(XBC(I),"^",2) Line Location: LETTERS+9
Function Call: WRITE	Prompt: !!,"Which one? " Line Location: LETTERS+10
Function Call: WRITE	Prompt: " ",$P(XBC(XBY),"^",2) Line Location: LETTERS+12
Function Call: WRITE	Prompt: *7 Line Location: LETTERS+13
Function Call: WRITE	Prompt: ! Line Location: OPTION+3
Function Call: WRITE	Prompt: "Routine ",X," not in ",$S($E(X)="%":"MGR!",1:"UCI!") Line Location: OPTION+5
Function Call: WRITE	Prompt: !,"Maximum menu depth exceeded." Line Location: RECURSE+1
Function Call: WRITE	Prompt: ! Line Location: RECURSE+3
Function Call: WRITE	Prompt: ! Line Location: RECURSE+6
Function Call: WRITE	Prompt: !!,"The following error has occurred: ",$$Z^ZIBNSSV("ERROR"),! Line Location: TRAP+1
Function Call: WRITE	Prompt: !,"Patch ",$$PATS," is the highest XB/ZIB patch installed." Line Location: CHECK+1
Function Call: WRITE	Prompt: !,"All options seem to be ok.",! Line Location: CHECK+8
Function Call: WRITE	Prompt: !,"The following routines are not in this UCI:" Line Location: CHECK+9
Function Call: WRITE	Prompt: !?3,X Line Location: CHECK+9
Function Call: WRITE	Prompt: !,"The following ZIB* routines must be moved to MGR as % routines:" Line Location: CHECK+10
Function Call: WRITE	Prompt: !?3,X Line Location: CHECK+10
Function Call: WRITE	Prompt: !,"The following % routines are not in ",$S($$VERSION^%ZOSF(1)["Cache":"this Namespace",1:"MGR"),":" Line Location: CHECK+11
Function Call: WRITE	Prompt: !?3,X Line Location: CHECK+11
Function Call: WRITE	Prompt: !,"The following options have invalid routine names:" Line Location: CHECK+12
Function Call: WRITE	Prompt: !?3,XBII(4,X) Line Location: CHECK+12
Function Call: WRITE	Prompt: ! Line Location: CHECK+13
Function Call: WRITE	Prompt: $C(7),!,"Sorry...",!,"Operating System '",$P(^%ZOSF("OS"),"^",1),"' is not supported." Line Location: OSNO+1
Routine Call	%ZIS Line Location: CALL+2

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("OS"	RCHK+3, RCHK+8, OSNO+1
^%ZOSF("TEST"	START+1, RCHK+5
^%ZOSF("TRAP"	START+1, OPTION+6
^%ZOSF("UCI"	RCHK+3
^DIC(9.4 - [#9.4]	PATS+2, PATS+4, PATS+7
^UTILITY($J	HELP+10!, HELP+19!, EOJ+2!

Name	Line Occurrences
$$PATS	CHECK+1
EOJ	START+4, START+11
HELP	MENU+5
LETTERS	MENU+7
LIST	MENU+1, HELP+3
MENU	START+10, RECURSE+4
OPTION	MENU+8
PAUSE	MENU+8, HELP+6, HELP+8, TRAP+2
RCHK	START+3, START+7, HELP+15, OPTION+5, CHECK+5
RECURSE	OPTION+2

Name	Field # of Occurrence
^(	PATS+7
^(0	PATS+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	HELP+17, PATS+7
>> %UCI	RCHK+3, RCHK+8
DIRUT	EOJ+3!
DTIME	MENU+3, LETTERS+11
DTOUT	EOJ+3!
DUOUT	PAUSE+4, EOJ+3!
I	LETTERS+9, PATS+1~, PATS+2, PATS+3, PATS+4, PATS+7
IO	PAUSE+1
IO(0	PAUSE+1
>> IOP	CALL+1*
IOST	PAUSE+2
P	PATS+1~, PATS+6, PATS+7, PATS+8
V	PATS+1~, PATS+4*, PATS+5, PATS+7
X	START+2, START+6, HELP+14, LIST+6, LIST+7, LETTERS+4, LETTERS+5, OPTION+5, OPTION+6, CHECK+2* , CHECK+3, CHECK+4, CHECK+6, CHECK+9, CHECK+10, CHECK+11, CHECK+12, RCHK+1, RCHK+4, RCHK+10* , EOJ+4!
XBC	LETTERS+1!, LETTERS+4, LETTERS+5, LETTERS+7, LETTERS+8, LETTERS+9
XBC(	LETTERS+5*, LETTERS+9, LETTERS+12
XBC(1	LETTERS+8
>> XBFAIL	START+4, START+8, HELP+16, OPTION+5, CHECK+6, RCHK+6*, RCHK+9
XBH	HELP+2*, HELP+4!, LIST+8
>> XBI	MENU+8, HELP+8, LIST+5*, LIST+7, LIST+8
XBII	CHECK+2*, CHECK+3, CHECK+8!, CHECK+14!
XBII(	CHECK+6*
XBII(0	CHECK+8
XBII(1	CHECK+9
XBII(2	CHECK+10
XBII(3	CHECK+11
XBII(4	CHECK+3*, CHECK+12
>> XBLBL	START+9, RECURSE+1, RECURSE+2, RECURSE+5*
>> XBNH	START+8*, HELP+9
>> XBP	MENU+8, OPTION+1, TRAP+2
>> XBQ	START+9, START+10, MENU+6, RECURSE+1, RECURSE+4, RECURSE+5, PAUSE+4*
>> XBRTN	RCHK+1*, RCHK+3, RCHK+4, RCHK+8, RCHK+9, RCHK+10
XBTBL	LIST+1!
XBTBL(	LIST+7*, LETTERS+3, LETTERS+5
>> XBUCI	RCHK+3*, RCHK+8
>> XBX	HELP+11, HELP+12, HELP+13, HELP+14, HELP+16, HELP+17, LIST+5, LIST+6, LIST+7, LIST+8 , OPTION+1, OPTION+2, OPTION+4, OPTION+5, CALL+3, RECURSE+2
>> XBY	MENU+3, MENU+4, MENU+5, MENU+6, MENU+7, MENU+8, HELP+1, HELP+8, LIST+5, LIST+8 , LETTERS+2, LETTERS+3, LETTERS+4, LETTERS+5, LETTERS+7, LETTERS+8, LETTERS+11, LETTERS+12, LETTERS+14*
XUSLNT	RCHK+1*, RCHK+11!
Y	PAUSE+3*, RCHK+3, EOJ+4!

Customize PDF page

Package: IHS VA Utilities

Routine: XB

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items

Name	Field # of Occurrence
$T(	PATS+4
$T(@XBLBL+XBI^XB1	LIST+5
$T(@XBLBL+XBY^XB1	HELP+11, OPTION+1
$T(@XBLBL^XB1	LIST+4
$T(M+XBII^XB1	CHECK+2, CHECK+3
$T(XB+1	LIST+3