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 |  Marked Items |  All
Print Page as PDF
Routine: XB

Package: IHS VA Utilities

Routine: XB


Information

XB ; IHS/ADC/GTH - UTILITY MENU ; [ 04/28/2003 9:38 AM ]

Source Information

Source file <XB.m>

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  

Caller Graph

Caller Graph Total: 9

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  

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

Global Variables Directly Accessed

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!

Label References

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

Naked Globals

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!

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All