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

Package: Kernel

Routine: XULMUI


Information

XULMUI ;IRMFO-ALB/CJM/SWO/RGG - KERNEL LOCK MANAGER ;10/24/2012

Source Information

Source file <XULMUI.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 5 ($$LJ,$$RJ,$$UP)^XLFSTR  $$GETLOCKS^XULM  GETREFS^XULMLD  ($$PAUSE,PAUSE)^XULMU  $$KCHK^XUSRB  
List Manager 4 EN^VALM  (CLEAR,FULL)^VALM1  (CLEAN,CNTRL)^VALM10  RE^VALM4  
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: 8

Package Total Caller Graph
Kernel 8 XULM DISPLAY SYSTEM LOCKS  XULM GO TO  XULM LOCK MANAGER  XULM REFRESH LOCKS  XULM SELECT LOCK  XULM SELECT NODE  XULM SORT/SCREEN LOCKS  ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
REFRESH ;
BYLOCK ; display user locks sorted by lock
SYSTEM ; display system locks sorted by lock
GOTO ;Jumps to a location on the screen
BYUSER ; display list sorted by user
BYPAT ; display list sorted by Patient
SLCTFILE() ;Select a file reference to screen locks by
BYFILE(FILE) ; Display locks that have a computable references to a particular file
ASKWHERE(TOPIC) ;Asks the user where to jump to.
NEWENTRY(LOCK,NODE,COL1,W1,COL2,W2,COL3,W3,COL4,W4) ;
GETID(LOCK,NODE,FILE) ;gets first ID for sorting purposes.
ADDLINE(LINE) ;
ADD(LINE) ;
EXIT ; -- exit code
SELECT ;
SLCTNODE ;
LJ(STRING,LEN) ;
RJ(STRING,LEN) ;
I() ;
HELP ; -- help code
HDR(COL1,W1,COL2,W2,COL3,W3,COL4,W4) ;
OPTIONS ;Give options for how the lock list should be displayed.
LAST8(STRING) ;
HLPTEXT ;;
ENDHELP ;;END

External References

Name Field # of Occurrence
^DIR SLCTFILE+17, ASKWHERE+6, SELECT+11, SLCTNODE+14, OPTIONS+17
EN^VALM SELECT+19
CLEAR^VALM1 EXIT+2, HELP+2
FULL^VALM1 SLCTFILE+1, SLCTNODE+5, OPTIONS+2
CLEAN^VALM10 BYLOCK+5, SYSTEM+8, BYUSER+7, BYPAT+7, BYFILE+6, EXIT+1
CNTRL^VALM10 NEWENTRY+7
RE^VALM4 HELP+10
$$LJ^XLFSTR LJ+1
$$RJ^XLFSTR RJ+1
$$UP^XLFSTR ASKWHERE+8
$$GETLOCKS^XULM REFRESH+2
GETREFS^XULMLD GETID+8
$$PAUSE^XULMU HELP+5
PAUSE^XULMU SLCTFILE+11, HELP+9
$$KCHK^XUSRB SYSTEM+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!!!,?10,"***You are not authorized to view SYSTEM LOCKS***"
  • Line Location: SYSTEM+3
Function Call: WRITE
  • Prompt: !
  • Line Location: SLCTFILE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SLCTFILE+12
Function Call: WRITE
  • Prompt: !!,"Are you looking for a specific "_TOPIC_"?"
  • Line Location: ASKWHERE+2
Function Call: WRITE
  • Prompt: !,"If so, enter the "_TOPIC_", or the first few letters of "_TOPIC_"."
  • Line Location: ASKWHERE+3
Function Call: WRITE
  • Prompt: !!,"You can display locks from all the nodes or a single node."
  • Line Location: SLCTNODE+6
Function Call: WRITE
  • Prompt: !,$P(LINE,";",3,9)
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !!!
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: !,$P(LINE,";",3,9)
  • Line Location: HELP+7
Routine Call
  • DIR
  • Line Location:
    • SLCTFILE+17
    • ASKWHERE+6
    • SELECT+11
    • SLCTNODE+14
    • OPTIONS+17
Routine Call
  • VALM
  • Line Location:
    • SELECT+19

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] SLCTFILE+6, BYFILE+8

Label References

Name Line Occurrences
$$ASKWHERE GOTO+1
$$GETID BYLOCK+14, BYUSER+17, BYPAT+14, BYFILE+15
$$I NEWENTRY+6, ADD+1
$$LAST8 BYLOCK+7, BYLOCK+14, SYSTEM+10, SYSTEM+17, BYUSER+8, BYUSER+17, BYPAT+9, BYPAT+23, BYFILE+22
$$LJ SLCTFILE+10, NEWENTRY+6, HDR+1
$$RJ NEWENTRY+6
$$SLCTFILE OPTIONS+24
@( REFRESH+4, SLCTNODE+18
ADD ADDLINE+3
BYFILE OPTIONS+25
BYLOCK OPTIONS+21
BYPAT REFRESH+5, OPTIONS+19
BYUSER OPTIONS+20
HDR BYLOCK+8, SYSTEM+11, BYUSER+4, BYPAT+4, BYFILE+7
NEWENTRY BYLOCK+14, SYSTEM+17, BYUSER+17, BYPAT+23, BYFILE+22
REFRESH SELECT+20

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
COL1 NEWENTRY~, NEWENTRY+2*, NEWENTRY+6, NEWENTRY+8, NEWENTRY+9, HDR~, HDR+1
COL2 NEWENTRY~, NEWENTRY+3*, NEWENTRY+6, HDR~, HDR+1
COL3 NEWENTRY~, NEWENTRY+4*, NEWENTRY+5*, NEWENTRY+6, HDR~, HDR+1
COL4 NEWENTRY~, NEWENTRY+5, NEWENTRY+6, HDR~, HDR+1
COUNT HELP+1~, HELP+3*, HELP+7*
DIR ASKWHERE+1~, SELECT+1~, SLCTNODE+1~, OPTIONS+1~
DIR("?" SLCTFILE+16*, SELECT+10*, SLCTNODE+12*, OPTIONS+7*, OPTIONS+8*, OPTIONS+9*, OPTIONS+10*, OPTIONS+11*, OPTIONS+12*, OPTIONS+13*
, OPTIONS+14*, OPTIONS+15*, OPTIONS+16*
DIR("A" SLCTFILE+14*, ASKWHERE+4*, SELECT+9*, SLCTNODE+7*, SLCTNODE+9*, SLCTNODE+11*, OPTIONS+4*
DIR("B" SLCTFILE+15*, SLCTNODE+13*, OPTIONS+6*
DIR(0 SLCTFILE+13*, ASKWHERE+5*, SELECT+8*, SLCTNODE+10*, OPTIONS+3*
DIRUT ASKWHERE+1~, ASKWHERE+7
END SELECT+1~, SELECT+4*, SELECT+5*, SELECT+6, SELECT+8
FID BYFILE+4~, BYFILE+15*, BYFILE+16*, BYFILE+17*, BYFILE+19, BYFILE+21, BYFILE+22
FILE SLCTFILE+3~, SLCTFILE+4*, SLCTFILE+5*, SLCTFILE+6, SLCTFILE+9, SLCTFILE+10, BYFILE~, BYFILE+2, BYFILE+3, BYFILE+8
, BYFILE+13, BYFILE+15, GETID~, GETID+5, GETID+6, GETID+9, OPTIONS+23~, OPTIONS+24*, OPTIONS+25
FILES SLCTFILE+3~, GETID+2~, GETID+8
FILES( SLCTFILE+9*, SLCTFILE+19, GETID+5*, GETID+6, GETID+9
GOTO ASKWHERE+1~, ASKWHERE+11*, ASKWHERE+12*, ASKWHERE+13, ASKWHERE+14
I SLCTFILE+3~, SLCTFILE+4*, SLCTFILE+8*, SLCTFILE+9, SLCTFILE+10, SLCTFILE+11, SLCTFILE+13, SLCTFILE+15, SLCTNODE+7*
ID GETID+2~
>> IDX REFRESH+1, BYUSER+11, BYUSER+13, BYUSER+16, BYPAT+8, BYPAT+15, BYPAT+17, BYPAT+19, BYPAT+22, SLCTFILE+5
, BYFILE+9, BYFILE+13, BYFILE+15, BYFILE+17, BYFILE+19, BYFILE+21
IOF HELP+6
>> IOINHI NEWENTRY+7
>> IOINORM NEWENTRY+7
LEN LJ~, LJ+1, RJ~, RJ+1, LAST8+2~, LAST8+3*, LAST8+4
LIN ADDLINE+1~, ADDLINE+2*
LINE ADDLINE~, ADDLINE+2, ADDLINE+3, ADD~, ADD+1, HELP+1~, HELP+3*, HELP+7*
LOCK BYLOCK+1~, BYLOCK+9*, BYLOCK+10*, BYLOCK+13, BYLOCK+14, SYSTEM+1~, SYSTEM+12*, SYSTEM+13*, SYSTEM+16, SYSTEM+17
, BYUSER+1~, BYUSER+12*, BYUSER+13*, BYUSER+16, BYUSER+17, BYPAT+1~, BYPAT+10*, BYPAT+11*, BYPAT+13, BYPAT+14
, BYPAT+15, BYPAT+18*, BYPAT+19*, BYPAT+22, BYPAT+23, BYFILE+1~, BYFILE+12*, BYFILE+13*, BYFILE+15, BYFILE+18*
, BYFILE+19*, BYFILE+21, BYFILE+22, NEWENTRY~, NEWENTRY+10, GETID~, GETID+3, GETID+5, GETID+7
>> LOCKS REFRESH+1, BYLOCK+10, BYLOCK+13, BYLOCK+14, SYSTEM+13, SYSTEM+16, SYSTEM+17, BYUSER+16, BYUSER+17, BYPAT+11
, BYPAT+13, BYPAT+23, BYFILE+22, GETID+3, GETID+5, GETID+7
NAME SLCTFILE+3~, SLCTFILE+6*, SLCTFILE+7, SLCTFILE+10
NODE BYLOCK+11~, BYLOCK+12*, BYLOCK+13*, BYLOCK+14, SYSTEM+14~, SYSTEM+15*, SYSTEM+16*, SYSTEM+17, BYUSER+14~, BYUSER+15*
, BYUSER+16*, BYUSER+17, BYPAT+12*, BYPAT+13*, BYPAT+14, BYPAT+15, BYPAT+20~, BYPAT+21*, BYPAT+22*, BYPAT+23
, BYFILE+14~*, BYFILE+15*, BYFILE+20~*, BYFILE+21*, BYFILE+22, NEWENTRY~, NEWENTRY+10, GETID~, GETID+3, GETID+5
, GETID+7, SLCTNODE+1~, SLCTNODE+3*, SLCTNODE+4*
NODE( SLCTNODE+4*, SLCTNODE+7, SLCTNODE+17
NODE(0 SLCTNODE+2*, SLCTNODE+4*, SLCTNODE+7, SLCTNODE+8*, SLCTNODE+9, SLCTNODE+10, SLCTNODE+17
NODE(1 SLCTNODE+2*
PAT BYPAT+1~, BYPAT+14*, BYPAT+15, BYPAT+16*, BYPAT+17*, BYPAT+19, BYPAT+22, BYPAT+23
RESPONSE ASKWHERE+1~
START SELECT+1~, SELECT+2*, SELECT+3*, SELECT+6, SELECT+8
STRING LJ~, LJ+1, RJ~, RJ+1, LAST8~, LAST8+1, LAST8+3, LAST8+4
TEMP NEWENTRY+1~, NEWENTRY+8*, NEWENTRY+9
TEMPLATE GETID+2~, GETID+3*, GETID+4, GETID+8
TOPIC ASKWHERE~, ASKWHERE+2, ASKWHERE+3, ASKWHERE+4, ASKWHERE+7, ASKWHERE+8
USER BYUSER+1~, BYUSER+9*, BYUSER+11*, BYUSER+13, BYUSER+16, BYPAT+1~, BYFILE+1~
>> VALMAR ASKWHERE+11, ASKWHERE+12, ASKWHERE+14, NEWENTRY+6, NEWENTRY+8, NEWENTRY+9, NEWENTRY+10, ADD+1, SELECT+2, SELECT+3
, SELECT+4, SELECT+15
>> VALMBCK BYLOCK+16*, SYSTEM+4*, SYSTEM+19*, GOTO+2*, BYUSER+18*, BYPAT+24*, BYFILE+23*, SELECT+21*, SLCTNODE+19*, OPTIONS+26*
>> VALMBG BYLOCK+6*, SYSTEM+9*, GOTO+1*, BYUSER+6*, BYPAT+6*, BYFILE+11*, ASKWHERE+7, ASKWHERE+14*, ASKWHERE+15*, ASKWHERE+16
, SELECT+2, SELECT+3, SELECT+4
>> VALMCAP HDR+1*
>> VALMCNT BYLOCK+4*, SYSTEM+7*, BYUSER+5*, BYPAT+5*, BYFILE+10*, NEWENTRY+6, NEWENTRY+7, NEWENTRY+9, NEWENTRY+10, SELECT+3
, SELECT+5, I+1*, I+2
>> VALMSG BYLOCK+7*, SYSTEM+10*, BYUSER+8*, BYPAT+9*, BYFILE+8*
VARS GETID+2~, GETID+7*, GETID+8
W1 NEWENTRY~, NEWENTRY+6, HDR~, HDR+1
W2 NEWENTRY~, NEWENTRY+6, HDR~, HDR+1
W3 NEWENTRY~, NEWENTRY+6, HDR~, HDR+1
W4 NEWENTRY~, NEWENTRY+6, HDR~, HDR+1
WHERETO ASKWHERE+1~, ASKWHERE+9*, ASKWHERE+10, ASKWHERE+11, ASKWHERE+12
X SELECT+14~, SELECT+15*, SELECT+16, SELECT+17
XULMEXIT SELECT+1~, SELECT+20, SELECT+21
XULMLOCK SELECT+1~, SELECT+17*
XULMNODE SELECT+1~, SELECT+16*
>> XUPARMS REFRESH+2
>> XUPARMS("KILL" SELECT+18*, SELECT+20!
>> XUPARMS("LAST ACTION" , REFRESH+3, REFRESH+4, BYLOCK+3*, SYSTEM+5*, BYUSER+2*, BYPAT+2*, BYFILE+2*, SLCTNODE+18
>> XUPARMS("NODES" LAST8+1
>> XUPARMS("REPO RTING NODES" , SLCTNODE+4
>> XUPARMS("SELE CTED NODE" , BYLOCK+7, BYLOCK+13, SYSTEM+10, SYSTEM+16, BYUSER+8, BYUSER+16, BYPAT+9, BYPAT+13, BYPAT+22
, BYFILE+15, BYFILE+21, SLCTNODE+16!, SLCTNODE+17*
XUTOPIC BYLOCK+1~, BYLOCK+2*, SYSTEM+6*, GOTO+1, BYUSER+3*, BYPAT+3*, BYFILE+5*
Y SLCTFILE+19, ASKWHERE+1~, ASKWHERE+7, ASKWHERE+8*, ASKWHERE+9, SELECT+1~, SELECT+6*, SELECT+13, SELECT+15, SLCTNODE+15
, SLCTNODE+16, SLCTNODE+17, OPTIONS+19, OPTIONS+20, OPTIONS+21, OPTIONS+22

Marked Items

Name Field # of Occurrence
$T(HLPTEXT+COUNT HELP+3, HELP+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All