Routine: XUDIV

Information

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

Source file <XUDIV.m>

Package	Total	Caller Graph
IHS Generic Interface System	1	INHUT7

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

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

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

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