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

Package: Kernel

Routine: XUDIV


Information

XUDIV ; jch ; 12 Mar 99 11:02; check, setup, or switch DUZ(2)

Source Information

Source file <XUDIV.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 DATE^XQ1  H^XUS  $$^XUSEC  
Lab Service 1 $$^LRUTWE  
VA Fileman 1 ^DIC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Generic Interface System 1 INHUT7  

Entry Points

Name Comments DBIA/ICR reference
RESET ;
ASK1 ;
SWTCH ;Change divisions
CHK ; check node for input template XUADDEDITUSER
ALWBL ; called from XUSMGR to find user allowable divisions, set up array XUDIV for USER INQUIRY display
SNGL ; Site parameter switch off, set duz(2) and go on your merry way
DUZ ; put allowable divisions in DUZ(2,x), DUZ(2)=current division number signed onto
; If no Divisions entered in USER file, all divisions allowed ; If divisions entered in USER file, only those divisions allowed
ASK ;
XQTSK ;Set up DUZ(2) array for tasked jobs, it may not be set to the right div - entry point from XQ1

External References

Name Field # of Occurrence
^DIC ASK1+1
$$^LRUTWE SWTCH+5, SWTCH+9
DATE^XQ1 DUZ+3
H^XUS DUZ+10, DUZ+13, ASK1+7
$$^XUSEC ASK1+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Contact site manager; you must have an active allowable division to sign on."_$C(7),!
  • Line Location: DUZ+10
Function Call: WRITE
  • Prompt: !!,"You may avoid the next prompt by entering a DEFAULT DIVISION for yourself after invoking the EDIT USER CHARACTERISTICS option."
  • Line Location: DUZ+12
Function Call: WRITE
  • Prompt: !!,"You have no assigned division - an entry is mandatory to continue."_$C(7),!
  • Line Location: DUZ+13
Function Call: WRITE
  • Prompt: !,"You have no division file defined",!
  • Line Location: SWTCH+1
Function Call: WRITE
  • Prompt: !,"This is the only Division you may currently access.",!!
  • Line Location: SWTCH+4
Function Call: WRITE
  • Prompt: !!,"Switching divisions has been turned off while you are performing these tasks."_$C(7),!,XQNOSW,!
  • Line Location: SWTCH+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASK1+1
Function Call: WRITE
  • Prompt: !,"You are now signed onto Division: "_$P(Y,U,2),".",!
  • Line Location: ASK1+2
Function Call: WRITE
  • Prompt: "But your divisional access is restricted prior to the ",$P(X,U,3),!
  • Line Location: ASK1+4
Function Call: WRITE
  • Prompt: !,"No change - you are still in Division: "_$P(DUZ(2),U,3)_".",!
  • Line Location: ASK1+6
Function Call: WRITE
  • Prompt: !!,"You have not selected a division - an entry is mandatory to continue."_$C(7),!
  • Line Location: ASK1+7
Function Call: WRITE
  • Prompt: !,"The default division is no longer valid - please correct."_$C(7)
  • Line Location: CHK+2
Routine Call
  • DIC
  • Line Location:
    • ASK1+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] XUDIV+4, DUZ+5, DUZ+7, SWTCH+1, ALWBL+2, ALWBL+4, XQTSK+2, XQTSK+4, RESET+3
^DIC(3 - [#3] DUZ+3, DUZ+4, DUZ+7, ALWBL+1, ALWBL+4, XQTSK+1, XQTSK+4, CHK+1, CHK+2
^ZUTL("XQ" ASK1+3*, ASK1+4

Label References

Name Line Occurrences
ASK DUZ+13, SWTCH+8
ASK1 ASK1+7
RESET XQTSK+1
SNGL DUZ+9, DUZ+11

Naked Globals

Name Field # of Occurrence
^( DUZ+5, ASK1+4
^("T" ASK1+4*
^(0 DUZ+5, DUZ+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A DUZ+2~
>> DA CHK+1, CHK+2
>> DG("0;16" CHK+1
DIC ASK+1!*, ASK1+2!, ASK1+6!
DIC("A" ASK+1*
DIC("S" ASK+1*
DIC(0 ASK+1*
>> DIJC SWTCH+2
>> DIJKT SWTCH+2
>> DIJTT SWTCH+2
DT SWTCH+2
DTIME SWTCH+2
>> DTOUT ASK1+7
DUZ DUZ+3, DUZ+4, DUZ+7, SWTCH+2, XQTSK+1, XQTSK+4
DUZ("AG" DUZ+9
DUZ(2 XUDIV+4*, DUZ+4!, DUZ+5*, DUZ+7*, DUZ+8*, DUZ+10, DUZ+12, DUZ+14*, SNGL+1*, SNGL+2*
, SWTCH+3, SWTCH+4, ASK1+3*, ASK1+6, ASK1+7, XQTSK+1!, XQTSK+2*, XQTSK+4*, RESET+1, RESET+2*
, RESET+3*, RESET+4
>> DWAP SWTCH+2
>> DWK SWTCH+2
>> DWXY SWTCH+2
>> DWXYXY SWTCH+2
>> I DUZ+5*, DUZ+7*, ASK1+4*, ALWBL+2*, ALWBL+4*, XQTSK+2*, XQTSK+4*
IO SWTCH+2
>> IOBS SWTCH+2
IOF SWTCH+2
IOM SWTCH+2
ION SWTCH+2
>> IOS SWTCH+2
IOSL SWTCH+2
>> IOSR SWTCH+2
IOST SWTCH+2
>> IOT SWTCH+2
>> IOX SWTCH+2
>> IOXY SWTCH+2
>> IOY SWTCH+2
>> LRWE SWTCH+2, SWTCH+5*, SWTCH+9*
>> POP SWTCH+2
U DUZ+8, DUZ+9, DUZ+14, SNGL+2, SWTCH+2, SWTCH+3, SWTCH+4, ASK1+2, ASK1+3, ASK1+4
, ASK1+6, ASK1+7, ALWBL+2, ALWBL+4, RESET+1, RESET+2, RESET+3, CHK+1
>> X ASK1+4*, ASK1+7, CHK+1*, CHK+2
XQCNT ASK+1!*, ASK1+5!, ASK1+7*
>> XQD ALWBL+1, ALWBL+4
>> XQNOPE SWTCH+9, ASK1+6*
>> XQNOSW SWTCH+2, SWTCH+5, SWTCH+7
>> XQT RESET+1, RESET+2, RESET+3
>> XQTDIV RESET+2*, RESET+4*
XUDIV DUZ+4*, DUZ+5*, DUZ+7*, DUZ+8, DUZ+11, DUZ+14, DUZ+15!, SNGL+1!, SNGL+2!, ALWBL+1!
, XQTSK+1*, XQTSK+2*, XQTSK+4*, RESET+1*, RESET+2!, RESET+3, RESET+4!
XUDIV( ALWBL+2*, ALWBL+4*
Y DUZ+2~, DUZ+13, SNGL+1*, SNGL+2, ASK1+2, ASK1+3, ASK1+5, CHK+2*
>> Z(0 DUZ+3*, DUZ+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All