XOBSRA ;mjk,esd/alb - VistALink Reauthentication Code ; 05/22/2003 07:00
Source file <XOBSRA.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SETUPDUZ() | ; -- get DUZ context and division
|
|
| SUDQ | ;
|
|
| NULL | ; switch to null device
|
|
| SOCKET | ; -- switch back to socket device
; -- empty write buffer of null device |
|
| AV(XOBID,XOBERR) | ; -- AV (SSO/UC KAAJEE) reauth type
|
|
| DUZ(XOBID,XOBERR) | ; -- DUZ reauth type
|
|
| VPID(XOBID,XOBERR) | ; -- VPID reauth type
|
|
| APPPROXY(XOBID,XOBERR) | ; -- application proxy reauth type
|
|
| CCOW(XOBID,XOBERR) | ; -- CCOW reauth type
; ; Very few checks performed here; assume heavier duty checks done by application when originally ; authenticated and created Kernel CCOW token. User would need to be reauthenticated (and perform ; heavier-duty checks) upon Kernel CCOW token expiration. |
|
| ACTUSR(XOBID,XOBERR,XOBCTYPE) | ; -- user active status check & error processing
|
|
| DUZENV(XOBDUZ,XOBTYPE) | ; -- build DUZ and check division
|
|
| LOGINH() | ; -- Check if system is currently allowing logins
; Return: ; 181004 : if logins are disabled ; 0 : if logins are allowed |
|
| NOACCESS(XOBID) | ; -- Determine if user is allowed access via user active status & prohibited times checks
|
|
| VCHG(XOBID) | ; -- Check if verify code needs to be changed
; Return: ; 182303^XOBID : if verify code is undefined or expired ; 0 : verify code is current |
|
| INIT | ; -- VL-specific or general partition setup before reauthentication process starts
|
|
| FINAL | ; -- Final setup needed after a re-authentication is performed successfully.
; -- Save DUZ and IO variables in ^XUTL("XQ",$JOB) |
|
| GETERR(XOBACT,XOBID,XOBCONN) | ;-- Get appropriate DIALOG file error
|
|
| SITECHK(XOBSTATN) | ; check if valid division for this site
; input: station# ; output: IEN of station# in institution file (if valid for this site) ; 0^error message (if not valid for this site) |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
