XOBSRA ;MJK/ESD/ALB - VistALink Reauthentication Code ; 05/22/2003 07:00
Source file <XOBSRA.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SAML(XOBID,XOBERR) | ; rtw ADDED FOR XOBS*1.6*6
|
|
| 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
|
|
| 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) |
|
| GETDUZ(SAML,XOBERR) | ; if new SAML user is disusered give the DUZ to complete the return information
|
|
| SECID(SAML,XOBERR,DUZ) | ;TO CHECK IF a SECID exists in the UCI
|
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
