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

Package: Kernel

Routine: XUS3A


Information

XUS3A ;SF-ISC/STAFF - CHANGE UCI'S ; 2/4/03 9:51am

Source Information

Source file <XUS3A.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 2 $$PROGMODE^%ZOSV  C^XUSCLEAN  
Toolkit 1 GO^%XUCI  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Electronic Health Modernization 1 EHM-01850  
Kernel 1 XU SWITCH UCI  

Entry Points

Name Comments DBIA/ICR reference
SWITCH ;Allow users that have the UCI field in there NP file to switch UCI's.
UCI
SAME
BAD
NXT ;Here we go.
SHOW
PM

External References

Name Field # of Occurrence
GO^%XUCI NXT+3
$$PROGMODE^%ZOSV SWITCH+2
^DIR UCI+2
C^XUSCLEAN NXT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Switch UCI's option.",!
  • Line Location: SWITCH+1
Function Call: WRITE
  • Prompt: !,$C(7),"No switching UCI's in Programmer Mode."
  • Line Location: SWITCH+2
Function Call: WRITE
  • Prompt: !,"Sorry but you do not have any UCI's that you are allowed to"
  • Line Location: SWITCH+4
Function Call: WRITE
  • Prompt: !,"switch to."
  • Line Location: SWITCH+5
Function Call: WRITE
  • Prompt: !,"UCI not found!"
  • Line Location: BAD+0
Function Call: WRITE
  • Prompt: !
  • Line Location: SHOW+0
Function Call: WRITE
  • Prompt: !,"Enter ^ to return to your current menu, or select from:"
  • Line Location: SHOW+1
Function Call: WRITE
  • Prompt: !,?5
  • Line Location: SHOW+3
Function Call: WRITE
  • Prompt: I
  • Line Location: SHOW+4
Function Call: WRITE
  • Prompt: ?10,X
  • Line Location: SHOW+5
Function Call: WRITE
  • Prompt: " -- Not currently a valid UCI!",$C(7)
  • Line Location: SHOW+5
Routine Call
  • DIR
  • Line Location:
    • UCI+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF( PM
^%ZOSF("UCICHECK" SAME+1, SHOW+5
^TMP($J NXT+1!
^UTILITY($J NXT+1!
^VA(200 - [#200] SWITCH+3, UCI+3, SAME+2, SHOW, SHOW+2, SHOW+3
^XUTL("XQ" NXT+1!
^XUTL($J NXT+1!

Label References

Name Line Occurrences
BAD SAME+1
NXT SAME+2
PM SAME+1, SAME+3, SHOW+5
SHOW BAD
UCI BAD

Naked Globals

Name Field # of Occurrence
^( SAME+2
^(0 UCI+3
^(201 SHOW

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % SAME+5*
%UCI SWITCH+7~, SAME+1*, SAME+3
DA SAME+2*, NXT+3!
DEF SWITCH+7~, SWITCH+8*, UCI+5, SAME+4
DIR SWITCH+7~, UCI+2!
DIR("?" UCI+1*
DIR("??" UCI*
DIR("A" UCI*
DIR(0 UCI*
>> DTOUT UCI+2
>> DUOUT UCI+2
DUZ SWITCH+3, UCI+3, SAME+2, SHOW, SHOW+2, SHOW+3
>> GO SAME+2, SAME+3*, SAME+5*
>> I SHOW*, SHOW+2*, SHOW+3, SHOW+4
PGM SWITCH+7~, UCI+4*, UCI+5*, SAME+5
U UCI+3, SAME+3, SHOW+3
>> UC UCI+3*, SHOW*, SHOW+3*, SHOW+4, SHOW+6
X SWITCH+7~, UCI+2, UCI+4*, SAME, SAME+1, SAME+3*, SHOW*, SHOW+3*, SHOW+5, PM*
>> XUA SAME+3*, SAME+4*, SAME+5
Y SWITCH+7~, UCI+3*, UCI+4, SAME+1, SAME+2*, SAME+3, SHOW+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All