Routine: XOBSCAV1

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Caller Graph
Entry Points
External References
Label References
Local Variables
Marked Items

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

Customize PDF page

Package: VistALink Security

Routine: XOBSCAV1

Call Graph Total: 12

Caller Graph Total: 1