Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: XOBSRA

Package: VistALink Security

Routine: XOBSRA


Information

XOBSRA ;mjk,esd/alb - VistALink Reauthentication Code ; 05/22/2003 07:00

Source Information

Source file <XOBSRA.m>

Call Graph

Call Graph

Call Graph Total: 15

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)^XUSRB  (DIVGET,DIVSET)^XUSRB2  
VistALink Security 3 $$STRPSUFF^XOBSCAV1  KILL^XOBSRA1  (AV,CCOW)^XOBSRAKJ  
VA FileMan 1 $$GET1^DIQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
VistALink 1 XOBVRPC  
VistALink Security 1 XOBSRAKJ  

Entry Points

Name Comments DBIA/ICR reference
AV(XOBID,XOBERR) ; -- AV (SSO/UC KAAJEE) reauth type
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
APPPROXY(XOBID,XOBERR) ; -- application proxy reauth type
DUZ(XOBID,XOBERR) ; -- DUZ reauth type
GETERR(XOBACT,XOBID,XOBCONN) ;-- Get appropriate DIALOG file error
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.
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)
SETUPDUZ() ; -- get DUZ context and division
VPID(XOBID,XOBERR) ; -- VPID reauth type
NOACCESS(XOBID) ; -- Determine if user is allowed access via user active status & prohibited times checks
DUZENV(XOBDUZ,XOBTYPE) ; -- build DUZ and check division
INIT ; -- VL-specific or general partition setup before reauthentication process starts
SUDQ ;
LOGINH() ; -- Check if system is currently allowing logins
; Return:
; 181004 : if logins are disabled
; 0 : if logins are allowed
NULL ; switch to null device
ACTUSR(XOBID,XOBERR,XOBCTYPE) ; -- user active status check & error processing
FINAL ; -- Final setup needed after a re-authentication is performed successfully.
; -- Save DUZ and IO variables in ^XUTL("XQ",$JOB)
SOCKET ; -- switch back to socket device
; -- empty write buffer of null device

External References

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
$$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
DIVGET^XUSRB2 DUZENV+33
DIVSET^XUSRB2 DUZENV+43

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("XY" SOCKET+2
^TMP( INIT+4!
^UTILITY( INIT+4!
^XUTL("XQ" INIT+5!

Label References

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 SUDQ+2
INIT SETUPDUZ+10
NULL SETUPDUZ+8
SOCKET SETUPDUZ+14, SETUPDUZ+27
SUDQ SETUPDUZ+6, SETUPDUZ+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DUZ DUZENV+8!, DUZENV+11*, DUZENV+27, DUZENV+33, DUZENV+49!, DUZENV+50*, VCHG+4~, VCHG+5*, VCHG+12
DUZ(2 DUZENV+37
>> DX SOCKET+2*
>> DY SOCKET+2*
I VCHG+4~
IO INIT+3*
IO(0 INIT+3*
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
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" , 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 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
XOBI DUZENV+4~
XOBID 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 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~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All