Routine: XUS

Information

XUS ;SFISC/STAFF - SIGNON ; 3/6/19 5:15pm

Source file <XUS.m>

Name	Comments	DBIA/ICR reference
RESTART	;
A	;
B	;
PGM	;
OK	;
CHK()	;Check that option exists and LOCK
LC	;
UP(%)	;
FAC	;Failed access
NO	;Tell why didn't get on
H	;Exit point for all applications	ICR #10044 Status: Active Usage: Supported
C	;CLOSE
ON	;
ASKAV(PRE)	;Ask and return Access;Verify code, Turn off echo before calling
ACCEPT(TO)	;Read A/V and echo '*' char. (p702 Modified to accept IAM STS token)	ICR #5510 Status: Pending Usage: Supported
CHECKAV(X1)	;Check A/V code return DUZ or Zero. (Called from XUSRB for A/V code sign-on)
LBAV	;Log Bad AV
USER(IX)	;Build XUSER
XUVOL	;Setup XUENV, XUCI,XQVOL,XUVOL,XUOSVER	ICR #4762 Status: Active Usage: Controlled Subscription
XOPT	;Setup initial XOPT	ICR #4762 Status: Active Usage: Controlled Subscription
SET1(FLAG)	;Setup parameters (also called from XUSRB)
SET2()	;EF. Return error code (also called from XUSRB)
UVALID()	;EF. Is it valid for this user to sign on?
DEVPAS()	;EF. Ask device password
SAML(X)	;IF. Validate SAML token. (p702)

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: XUS+8
Function Call: WRITE	Prompt: !!,"Volume set: ",$P(XUENV,U,4)," UCI: ",XUCI," Device: ",$I Line Location: XUS+10
Function Call: WRITE	Prompt: " (",IO("ZIO"),")" Condition for execution: $S('$D(IO("ZIO")):0,1:$I'=IO("ZIO")) Line Location: XUS+10
Function Call: WRITE	Prompt: ! Line Location: XUS+10
Function Call: WRITE	Prompt: !!,">> Auto Sign-on: ",$P(XUSER(0),U)," <<<",! Line Location: A+10
Function Call: WRITE	Prompt: !,PRE,XUSTMP(51) Line Location: ASKAV+2
Function Call: WRITE	Prompt: !,PRE,XUSTMP(52) Line Location: ASKAV+7
Function Call: READ	Prompt: "" Variable: *C Timeout: TO Line Location: ACCEPT+4
Function Call: WRITE	Prompt: $C(8,32,8) Line Location: ACCEPT+6
Function Call: WRITE	Prompt: *42 Line Location: ACCEPT+7
Function Call: WRITE	Prompt: !!,"Please wait. Authenticating user credentials." Line Location: ACCEPT+10
Function Call: READ	Variable: B#200 Timeout: 5 Line Location: ACCEPT+12
Function Call: WRITE	Prompt: "." Line Location: ACCEPT+12
Function Call: WRITE	Prompt: "." Line Location: ACCEPT+13
Function Call: READ	Variable: X Timeout: 60 Line Location: DEVPAS+1
Function Call: WRITE	Prompt: !,"DEVICE PASSWORD: " Line Location: DEVPAS+1