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 |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: XOBSCAV1

Package: VistALink Security

Routine: XOBSCAV1


Information

XOBSCAV1 ;; kec/oak - VistaLink Access/Verify Security ; [6/28/06 2:26pm]

Source Information

Source file <XOBSCAV1.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Kernel 7 $$GETPEER^%ZOSV  $$PROD^XUPROD  $$AUTOXWB^XUS1B  $$AVHLPTXT^XUS2  $$CPCHK^XUSAP  ($$POST,INTRO,LOGOUT,NOW,SETUP,VALIDAV)^XUSRB  (DIVGET,DIVSET)^XUSRB2  
VistALink 2 ($$CHARCHK,$$GETRATE)^XOBVLIB  DUZSV^XOBVSYSI  
VistALink Security 2 ($$ADDDIVS,$$FAILURE,$$LOGGEDON,$$PARTIAL,$$POSTTXT,$$SUCCESS,ERROR,FSERVER,MSGLGON,MSGLGOUT,MSGSELDV,MSGSETUP,MSGTAG,PARTTAG,RESTYPE,SCHLGON,SCHPARTS,SCHSETUP,SCHSIMPL,SENDSEC)^XOBSCAV  GETINTRO^XOBSCAV2  
VA Fileman 1 $$EZBLD^DIALOG  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
VistALink 1 XOBVLL  

Entry Points

Name Comments DBIA/ICR reference
PRODMISM() ; returns 1 if production mismatch, 0 if not
ISCPROXY() ; c/proxy check
; returns 1 if c/proxy user, 0 if not
STRPSUFF(XOBSTAT) ; strip alpha suffix from sta# e.g. AAC "200M"
LOGCVC ; response if need to change vc
SENDITXT ; Do Setup and send Intro Text
DIVSLCT1 ; success
LOGOUT ; logout
DIVSLCT ; select division
CLEAN ; logout
LOGFIN ; check the divisions, finish login now
LOGOK ; response if everything's looking good
STATMISM() ; return 1 if primary station mismatch, 0 if not
LOGON ; process login request
LOGSELDV(XOBDIVS) ; response if need to select division
LOGBADCD ; response if bad a/v code pair
DIVSLCT0(XOBTEXT) ; send

External References

Name Field # of Occurrence
$$GETPEER^%ZOSV SENDITXT+13
$$EZBLD^DIALOG SENDITXT+5, SENDITXT+9, LOGON+4, LOGON+14, LOGON+16, LOGON+26, LOGON+27, ISCPROXY+6
$$ADDDIVS^XOBSCAV LOGSELDV+4
$$FAILURE^XOBSCAV LOGBADCD+3, DIVSLCT0+3
$$LOGGEDON^XOBSCAV LOGON+3
$$PARTIAL^XOBSCAV LOGCVC+5, LOGSELDV+5
$$POSTTXT^XOBSCAV LOGCVC+2, LOGSELDV+3, LOGOK+2
$$SUCCESS^XOBSCAV SENDITXT+47, LOGOK+3, LOGOUT+6, DIVSLCT1+2
ERROR^XOBSCAV SENDITXT+5, SENDITXT+9, LOGON+4, LOGON+14, LOGON+16, LOGON+26, LOGON+27, ISCPROXY+6
FSERVER^XOBSCAV SENDITXT+5, SENDITXT+9, LOGON+4, LOGON+14, LOGON+16, LOGON+26, LOGON+27, ISCPROXY+6
MSGLGON^XOBSCAV LOGBADCD+3, LOGCVC+5, LOGSELDV+5, LOGOK+3
MSGLGOUT^XOBSCAV LOGOUT+6
MSGSELDV^XOBSCAV DIVSLCT0+3, DIVSLCT1+2
MSGSETUP^XOBSCAV SENDITXT+47
MSGTAG^XOBSCAV LOGBADCD+2, LOGCVC+4, DIVSLCT0+2
PARTTAG^XOBSCAV LOGCVC+3
RESTYPE^XOBSCAV SENDITXT+47, LOGBADCD+3, LOGCVC+5, LOGSELDV+5, LOGOK+3, LOGOUT+6, DIVSLCT0+3, DIVSLCT1+2
SCHLGON^XOBSCAV LOGOK+3
SCHPARTS^XOBSCAV LOGCVC+5, LOGSELDV+5
SCHSETUP^XOBSCAV SENDITXT+47
SCHSIMPL^XOBSCAV LOGBADCD+3, LOGOUT+6, DIVSLCT0+3, DIVSLCT1+2
SENDSEC^XOBSCAV SENDITXT+47, LOGBADCD+3, LOGCVC+5, LOGSELDV+5, LOGOK+3, LOGOUT+6, DIVSLCT0+3, DIVSLCT1+2
GETINTRO^XOBSCAV2 SENDITXT+45
$$CHARCHK^XOBVLIB SENDITXT+5, SENDITXT+9, SENDITXT+39, SENDITXT+43, LOGON+4, LOGON+14, LOGON+16, LOGON+26, LOGON+27, LOGBADCD+2
, LOGCVC+3, LOGCVC+4, DIVSLCT0+2, ISCPROXY+6
$$GETRATE^XOBVLIB SENDITXT+43
DUZSV^XOBVSYSI LOGFIN+4, DIVSLCT+6
$$PROD^XUPROD SENDITXT+4, PRODMISM+3
$$AUTOXWB^XUS1B SENDITXT+24
$$AVHLPTXT^XUS2 LOGCVC+3
$$CPCHK^XUSAP ISCPROXY+4
$$POST^XUSRB SENDITXT+25
INTRO^XUSRB SENDITXT+35
LOGOUT^XUSRB CLEAN+1
NOW^XUSRB SENDITXT+25
SETUP^XUSRB SENDITXT+19, SENDITXT+22
VALIDAV^XUSRB LOGON+9
DIVGET^XUSRB2 LOGFIN+1
DIVSET^XUSRB2 DIVSLCT+3

Label References

Name Line Occurrences
$$ISCPROXY LOGON+33
$$PRODMISM SENDITXT+3
$$STATMISM SENDITXT+7
$$STRPSUFF STATMISM+4
CLEAN LOGOUT+3
DIVSLCT0 DIVSLCT+2, DIVSLCT+7
DIVSLCT1 DIVSLCT+5
LOGBADCD LOGON+17
LOGCVC LOGON+20, LOGON+30
LOGFIN SENDITXT+29, LOGON+36
LOGOK LOGFIN+3
LOGSELDV LOGFIN+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DUZ SENDITXT+20, SENDITXT+24*!, SENDITXT+25!, SENDITXT+27, LOGON+6!, LOGFIN+1, LOGFIN+4, DIVSLCT+2, DIVSLCT+6
U ISCPROXY+6
XOBAC LOGON+1~
XOBCCMSK SENDITXT+1~
XOBCPCHK ISCPROXY+2~, ISCPROXY+4*, ISCPROXY+5, ISCPROXY+6
>> XOBDATA("CLIENTISPRODUCTION" SENDITXT+4, PRODMISM+2
>> XOBDATA("CLIENTPRIMARYSTATION" SENDITXT+8, STATMISM+4
>> XOBDATA("XOB SECAV" , LOGON+9, LOGON+30, DIVSLCT+3
XOBDIVS LOGSELDV~, LOGSELDV+4
XOBI SENDITXT+1~
XOBITINF SENDITXT+1~, SENDITXT+35
XOBLINE LOGCVC+1~, LOGCVC+2*, LOGCVC+3, LOGCVC+4, LOGSELDV+2~, LOGSELDV+3*, LOGSELDV+4*, LOGOK+1~, LOGOK+2*
XOBMSG SENDITXT+1~, SENDITXT+47, LOGBADCD+1~, LOGBADCD+3, LOGCVC+1~, LOGCVC+2, LOGCVC+5, LOGSELDV+2~, LOGSELDV+3, LOGSELDV+4
, LOGSELDV+5, LOGOK+1~, LOGOK+2, LOGOK+3, LOGOUT+5~, LOGOUT+6, DIVSLCT0+1~, DIVSLCT0+3, DIVSLCT1+1~, DIVSLCT1+2
XOBMSG( LOGCVC+3*, LOGCVC+4*
XOBMSG(1 SENDITXT+39*, SENDITXT+43*, LOGBADCD+2*, DIVSLCT0+2*
>> XOBNULL SENDITXT+15, LOGON+7, LOGOUT+1
XOBOK ISCPROXY+2~, ISCPROXY+3*, ISCPROXY+5*, ISCPROXY+7
>> XOBPORT SENDITXT+28, SENDITXT+37, LOGON+10, LOGOUT+4
XOBPROD SENDITXT+1~, PRODMISM+2*, PRODMISM+3
>> XOBR SENDITXT+5, SENDITXT+9, SENDITXT+47, LOGON+4, LOGON+14, LOGON+16, LOGON+26, LOGON+27, LOGBADCD+3, LOGCVC+5
, LOGSELDV+5, LOGOK+3, LOGOUT+6, DIVSLCT0+3, DIVSLCT1+2, ISCPROXY+6
XOBRET LOGON+1~, LOGON+9, LOGCVC+2, LOGSELDV+3, LOGOK+2, DIVSLCT+1~, DIVSLCT+3, DIVSLCT+4
XOBRET(0 LOGON+13, LOGON+20, LOGON+22, ISCPROXY+4
XOBRET(1 LOGON+13, LOGON+20
XOBRET(2 LOGON+13, LOGON+20
XOBRET(3 LOGON+14, LOGON+16, LOGON+24, LOGBADCD+2, LOGCVC+4
XOBRET(5 SENDITXT+29*
XOBRETDV LOGON+1~, LOGFIN+1~, LOGFIN+6
XOBRETDV(0 LOGFIN+2
XOBSPAR SENDITXT+4~, SENDITXT+5, SENDITXT+8~, SENDITXT+9, LOGON+23~, LOGON+26, LOGON+27
XOBSPAR(1 SENDITXT+4*, SENDITXT+8*, LOGON+24*, LOGON+26
XOBSPAR(2 SENDITXT+4*, SENDITXT+8*
XOBSTAT STATMISM+2~, STATMISM+4*, STATMISM+6, STRPSUFF~, STRPSUFF+1*, STRPSUFF+3*, STRPSUFF+4
XOBSTINF SENDITXT+1~, SENDITXT+19, SENDITXT+22
XOBSTINF(0 SENDITXT+39
XOBSTINF(1 SENDITXT+43
XOBSTINF(2 SENDITXT+43
XOBSTINF(3 SENDITXT+43
XOBSTINF(4 SENDITXT+43
>> XOBSYS("ENV" SENDITXT+18, LOGON+14, LOGON+33, PRODMISM+1, STATMISM+1
>> XOBSYS("PRIMA RY STATION#" , SENDITXT+8, STATMISM+6
XOBTEXT DIVSLCT0~, DIVSLCT0+2
XOBTMP SENDITXT+1~
XOBTMP1 SENDITXT+1~
XOBVC LOGON+1~
>> XUMSG SENDITXT+25*
>> XWBTIP SENDITXT+13*
XWBVER SENDITXT+21*, SENDITXT+31!

Marked Items

Name Field # of Occurrence
$T(FSERVER^XOBSCAV SENDITXT+5, SENDITXT+9, LOGON+4, LOGON+14, LOGON+16, LOGON+26, LOGON+27, ISCPROXY+6
$T(MSGLGON^XOBSCAV LOGBADCD+3, LOGCVC+5, LOGSELDV+5, LOGOK+3
$T(MSGLGOUT^XOBSCAV LOGOUT+6
$T(MSGSELDV^XOBSCAV DIVSLCT0+3, DIVSLCT1+2
$T(MSGSETUP^XOBSCAV SENDITXT+47
$T(MSGTAG^XOBSCAV LOGBADCD+2, LOGCVC+4, DIVSLCT0+2
$T(PARTTAG^XOBSCAV LOGCVC+3
$T(RESTYPE^XOBSCAV SENDITXT+47, LOGBADCD+3, LOGCVC+5, LOGSELDV+5, LOGOK+3, LOGOUT+6, DIVSLCT0+3, DIVSLCT1+2
$T(SCHLGON^XOBSCAV LOGOK+3
$T(SCHPARTS^XOBSCAV LOGCVC+5, LOGSELDV+5
$T(SCHSETUP^XOBSCAV SENDITXT+47
$T(SCHSIMPL^XOBSCAV LOGBADCD+3, LOGOUT+6, DIVSLCT0+3, DIVSLCT1+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Label References |  Local Variables |  Marked Items |  All