XOBSRA ;MJK/ESD/ALB - VistALink Reauthentication Code ; 05/22/2003 07:00
Source file <XOBSRA.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 11 | $$UP^XLFSTR ($$ACTIVE,$$IEN)^XUAF4 DUZ^XUP $$IEN^XUPS (XOPT,XUVOL)^XUS SAVE^XUS1 $$PROHIBIT^XUS1A $$APFIND^XUSAP $$ACTIVE^XUSER ($$INHIB1,$$VCVALID,SETUP)^XUSRB (DIVGET,DIVSET)^XUSRB2 |
| VistALink Security | 3 | $$STRPSUFF^XOBSCAV1 KILL^XOBSRA1 (AV,CCOW)^XOBSRAKJ |
| VA FileMan | 1 | $$GET1^DIQ |
| VistALink | 1 | SAML^XOBVSAML |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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
|
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | NOACCESS+10 |
| $$UP^XLFSTR | SETUPDUZ+17 |
| $$STRPSUFF^XOBSCAV1 | SITECHK+5 |
| KILL^XOBSRA1 | SETUPDUZ+6, INIT+7 |
| AV^XOBSRAKJ | AV+5 |
| CCOW^XOBSRAKJ | CCOW+6 |
| SAML^XOBVSAML | SAML+5 |
| $$ACTIVE^XUAF4 | SITECHK+10 |
| $$IEN^XUAF4 | SITECHK+8 |
| DUZ^XUP | DUZENV+27 |
| $$IEN^XUPS | VPID+6 |
| XOPT^XUS | VCHG+8 |
| XUVOL^XUS | LOGINH+8 |
| SAVE^XUS1 | FINAL+2 |
| $$PROHIBIT^XUS1A | NOACCESS+12 |
| $$APFIND^XUSAP | APPPROXY+7 |
| $$ACTIVE^XUSER | ACTUSR+7 |
| $$INHIB1^XUSRB | LOGINH+11 |
| $$VCVALID^XUSRB | VCHG+11 |
| SETUP^XUSRB | SAML+4 |
| DIVGET^XUSRB2 | DUZENV+33 |
| DIVSET^XUSRB2 | DUZENV+43 |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("XY" | SOCKET+2 |
| ^TMP( | INIT+4! |
| ^TMP("DUZ_XUS" | SAML+11!, GETDUZ+3!, GETDUZ+8* |
| ^UTILITY( | INIT+4! |
| ^VA(200 - [#200] | SECID+5, SECID+6 |
| ^XTMP("SAML CHECK" | SECID+3*, SECID+4 |
| ^XUTL("XQ" | INIT+5! |
| Name | Line Occurrences |
|---|---|
| $$DUZENV | SETUPDUZ+24 |
| $$GETERR | ACTUSR+11 |
| $$LOGINH | SETUPDUZ+13 |
| $$SITECHK | DUZENV+21 |
| @( | SETUPDUZ+19 |
| ACTUSR | DUZ+9, VPID+15, NOACCESS+6 |
| FINAL | SAML+9, SAML+10, SUDQ+2 |
| GETDUZ | SAML+8 |
| INIT | SETUPDUZ+10 |
| NULL | SETUPDUZ+8 |
| SECID | GETDUZ+10 |
| SOCKET | SETUPDUZ+14, SETUPDUZ+27 |
| SUDQ | SETUPDUZ+6, SETUPDUZ+14 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DOC | GETDUZ+1~ |
| DUZ | SAML+9*, SAML+10*, DUZENV+8!, DUZENV+11*, DUZENV+27, DUZENV+33, DUZENV+49!, DUZENV+50*, VCHG+4~, VCHG+5* , VCHG+12, GETDUZ+10, GETDUZ+11, SECID~, SECID+2*, SECID+6* |
| DUZ(2 | DUZENV+37 |
| >> DX | SOCKET+2* |
| >> DY | SOCKET+2* |
| I | VCHG+4~, GETDUZ+1~, GETDUZ+5*, GETDUZ+8 |
| IEND | GETDUZ+1~, GETDUZ+4*, GETDUZ+5, GETDUZ+6, GETDUZ+7*, GETDUZ+8 |
| IO | INIT+3* |
| IO(0 | INIT+3* |
| ISTART | GETDUZ+1~, GETDUZ+6*, GETDUZ+8 |
| ISTOP | GETDUZ+1~, GETDUZ+4*, GETDUZ+5 |
| >> RTN | SAML+5 |
| >> RTN(0 | SAML+6 |
| >> RTN(3 | SAML+7 |
| SAML | SAML+3*, SAML+5, SAML+8, SAML+11!, GETDUZ~, GETDUZ+4, GETDUZ+8, GETDUZ+10, SECID~, SECID+3 |
| SECID | SECID+1~, SECID+4*, SECID+6 |
| SECIDL | SECID+1~, SECID+2*, SECID+5*, SECID+6 |
| U | SETUPDUZ+21, VPID+9, APPPROXY+7, APPPROXY+10, DUZENV+18, DUZENV+23, DUZENV+40, DUZENV+44, NOACCESS+13, VCHG+12 , GETERR+7, GETERR+10, GETERR+12, GETDUZ+11 |
| VCHG | VCHG+4~, VCHG+5*, VCHG+12*, VCHG+13 |
| VPID | VPID+1~, VPID+5*, VPID+6, VPID+9 |
| X | LOGINH+5~ |
| XOBACT | GETERR~, GETERR+4*, GETERR+7, GETERR+10 |
| XOBACTIV | ACTUSR+2~, ACTUSR+3*, ACTUSR+7*, ACTUSR+8, ACTUSR+11 |
| XOBANAME | APPPROXY+2~, APPPROXY+4*, APPPROXY+7, APPPROXY+10 |
| XOBAPFND | APPPROXY+2~, APPPROXY+7*, APPPROXY+10 |
| XOBCONN | GETERR~, GETERR+4*, GETERR+11*, GETERR+12 |
| XOBCTYPE | DUZ+2~, DUZ+3*, DUZ+9, VPID+1~, VPID+3*, VPID+9, VPID+15, APPPROXY+2~, APPPROXY+3*, ACTUSR~ , ACTUSR+4*, ACTUSR+11 |
| >> XOBDATA("XOB | RPC" , SAML+3, SETUPDUZ+6, SETUPDUZ+17, DUZ+4, VPID+5, APPPROXY+4, DUZENV+12 |
| XOBDIV | DUZENV+4~, DUZENV+33 |
| XOBDIV(0 | DUZENV+36 |
| XOBDIVEX | DUZENV+4~, DUZENV+5* |
| XOBDIVRQ | DUZENV+4~ |
| XOBDIVRQ("IEN" | DUZENV+21*, DUZENV+22, DUZENV+23, DUZENV+24!, DUZENV+37, DUZENV+43 |
| XOBDIVRQ("STATIONNUMBER" | DUZENV+12*, DUZENV+17, DUZENV+21, DUZENV+23, DUZENV+40, DUZENV+44 |
| XOBDUZ | DUZENV~, DUZENV+11, DUZENV+18, DUZENV+23, DUZENV+40, DUZENV+44 |
| XOBDUZSV | DUZENV+4~, DUZENV+8*, DUZENV+50 |
| XOBDVARY | DUZENV+4~ |
| XOBERR | SAML~, SAML+7*, SAML+8, SAML+9, SAML+10*, SETUPDUZ+2~, SETUPDUZ+3*, SETUPDUZ+13*, SETUPDUZ+14, SETUPDUZ+21* , SETUPDUZ+24*, SUDQ+2, SUDQ+3, AV~, AV+5, DUZ~, DUZ+9, VPID~, VPID+9*, VPID+15 , APPPROXY~, APPPROXY+10*, CCOW~, CCOW+6, ACTUSR~, ACTUSR+11*, DUZENV+4~, DUZENV+5*, DUZENV+18*, DUZENV+23* , DUZENV+40*, DUZENV+44*, DUZENV+53, NOACCESS+2~, NOACCESS+3*, NOACCESS+6, NOACCESS+9, NOACCESS+13*, NOACCESS+14, GETERR+2~ , GETERR+3*, GETERR+7*, GETERR+12*, GETERR+13, GETDUZ~, GETDUZ+10, GETDUZ+11*, GETDUZ+13, SECID~, SECID+7 |
| XOBI | DUZENV+4~ |
| XOBID | SAML~, SAML+2*, SAML+6*, SAML+10*, SAML+12, SETUPDUZ+2~, SETUPDUZ+3*, SETUPDUZ+24, AV~, AV+5 , DUZ~, DUZ+4*, DUZ+9, VPID~, VPID+2*, VPID+6*, VPID+8, VPID+10*, VPID+15, APPPROXY~ , APPPROXY+3*, APPPROXY+7*, APPPROXY+9, APPPROXY+10*, CCOW~, CCOW+6, ACTUSR~, ACTUSR+4*, ACTUSR+7, ACTUSR+11 , ACTUSR+12*, NOACCESS~, NOACCESS+6, NOACCESS+10, NOACCESS+13, VCHG~, VCHG+5, GETERR~, GETERR+4*, GETERR+7 , GETERR+12 |
| XOBNOACC | NOACCESS+2~, NOACCESS+3*, NOACCESS+12*, NOACCESS+13 |
| >> XOBNULL | NULL+1, SOCKET+2 |
| XOBOK | SAML+9, SAML+10, DUZENV+4~, DUZENV+5*, DUZENV+30*, DUZENV+37*, DUZENV+43, DUZENV+46, DUZENV+53 |
| >> XOBPORT | SOCKET+4 |
| XOBRANGE | NOACCESS+2~, NOACCESS+10*, NOACCESS+11, NOACCESS+12 |
| XOBSTATN | SITECHK~, SITECHK+5, SITECHK+7, SITECHK+8, SITECHK+9, SITECHK+10 |
| XOBSTIEN | SITECHK+4~, SITECHK+8*, SITECHK+9, SITECHK+10, SITECHK+11 |
| XOBSTRIP | SITECHK+4~, SITECHK+5*, SITECHK+7 |
| >> XOBSYS("PRIMA | RY STATION#" , SITECHK+7 |
| XOBTYPE | SETUPDUZ+2~, SETUPDUZ+17*, SETUPDUZ+18, SETUPDUZ+19, SETUPDUZ+21, SETUPDUZ+24, VPID+9, DUZENV~, DUZENV+18, DUZENV+23 , DUZENV+30, DUZENV+40, DUZENV+44 |
| XOPT | VCHG+4~ |
| XQVOL | LOGINH+5~ |
| XQY | FINAL+7! |
| XQY0 | FINAL+7! |
| XUCI | LOGINH+5~ |
| XUENV | LOGINH+5~ |
| XUVOL | LOGINH+5~ |
| Y | LOGINH+5~ |
