Routine: XUSBSE1

Package	Total	Call Graph
Kernel	13	APPERROR^%ZTER ($$DT,$$HADD,$$NOW)^XLFDT $$VALIDATE^XLFIPV $$ADDRESS^XLFNSLK ($$ACTIVE,$$LKUP,$$NS,$$PRNT,$$TF)^XUAF4 ($$GET,$$PUT)^XUESSO1 $$GETCNTXT^XUESSO2 $$DTIME^XUP $$USERTYPE^XUSAP ($$POST1,EN1)^XUSBSE2 $$ACTIVE^XUSER ($$DECRYP,$$ENCRYP)^XUSRB1 $$HANDLE^XUSRB4
RPC Broker	8	LOG^XWBDLOG CLOSE^XWBM2MC (CLEARP,CLOSE,SETPARAM)^XWBM2MEZ $$OPEN^XWBRL PARSE^XWBRPC REQUEST^XWBRPCC $$CALLBSE^XWBTCPM2 $$EXECUTE^XWBVLC
VA FileMan	3	($$FIND1,FIND,LIST)^DIC (FILE,UPDATE)^DIE $$GET1^DIQ
Toolkit	1	$$GET^XPAR

Package	Total	Caller Graph
Kernel	5	XUESSO4 XUS BSE TOKEN XUS GET VISITOR XUS SET VISITOR XUSRB
Imaging	1	MAGS2BSE
RPC Broker	1	XWBTCPM2

Entry Points

Name	Comments	DBIA/ICR reference
SETVISIT(RES)	; RPC. XUS SET VISITOR - ICR #5501
GETVISIT(RES,TOKEN)	; RPC. XUS GET VISITOR - ICR #5532
MDWS(XWBUSRNM)	; Intrinsic. Old CAPRI code, currently used by MDWS: Disable with system parameter XU522. ; Return 1 if a valid user, else 0.
CHKUSER(INPUTSTR)	; Extrinsic. Determines if a BSE sign-on is valid - called from XUSRB ; INPUTSTR - input - String of characters from client ; return value - 1 if a valid user and application, else 0 ; ZEXCEPT: DTIME - Kernel exemption
BSEUSER(ENTRY,TOKEN,STR)	; Intrinsic. Returns internal entry number for authenticated user ; ENTRY - input - internal entry number in REMOTE APPLICATION file ; TOKEN - input - token from authenticating site ; STR - input - remainder of input string (station #^TCP/IP port for station-based authentication) ; returns - IEN for authenticated user, or 0 if not authenticated ; ZEXCEPT: XWBSEC - Kernel exemption, contains error message returned to GUI application
XWB(SERVER,PORT,TOKEN)	; Special Broker service
M2M(SERVER,PORT,TOKEN)	; M2M Broker
M2MEXIT	;
HOME(TOKEN,RAD,BSE)	; Call home station for token. ; input TOKEN - token to identify user to authenticating server ; input RAD - Zero node of application data from REMOTE APPLICATION file (#8994.5) ; input BSE - Station #^TCP/IP port ; returns - string of demographic characteristics or "-1^error message"
IPFLOC(STN)	;Get the address from the station number from HL LOGICAL LINK file (#870) ; input STN - station number ; returns - IP address or null
SITESVC(STN)	;Get IP from the stn# from VISTASITESERVICE ; input STN - station number ; returns - IP address or null
WEBADDRS(STNNUM)	;
SETUP(XUDEMOG,XUCONTXT)	; Setup user as visitor, add context option ; input XUDEMOG - string of demographic characteristics ; input XUCONTXT - context option to be given to user ; return value = internal entry number for user, or 0
SETCNTXT(XOPT)	;
STNTEST	; tests station#-to-IP conversion (IPFLOC,WEBADDRS) used by HOME station#-based callback
LOGERR(XUSETXT)	; log an error in error trap for failed login attempts ; p595 ; XUSETXT is the error subject line $ZE ; The function returns 0 if the error was screened, and 1 if an error was trapped
BSETOKEN(RET,XPHRASE)	; RPC. XUS BSE TOKEN - IA #6695

External References

Name	Field # of Occurrence
APPERROR^%ZTER	MDWS+8, LOGERR+9
$$FIND1^DIC	MDWS+11, MDWS+15, SETCNTXT+3, SETCNTXT+15
FIND^DIC	IPFLOC+6, WEBADDRS+2, STNTEST+6, BSETOKEN+23
LIST^DIC	STNTEST+9
FILE^DIE	SETCNTXT+18
UPDATE^DIE	SETCNTXT+9, SETCNTXT+12
$$GET1^DIQ	CHKUSER+14
$$DT^XLFDT	BSEUSER+11
$$HADD^XLFDT	BSEUSER+12
$$NOW^XLFDT	BSEUSER+12, BSEUSER+17, BSEUSER+32
$$VALIDATE^XLFIPV	IPFLOC+12, IPFLOC+17
$$ADDRESS^XLFNSLK	IPFLOC+13, IPFLOC+18, SITESVC+7
$$GET^XPAR	MDWS+7
$$ACTIVE^XUAF4	HOME+13
$$LKUP^XUAF4	HOME+11
$$NS^XUAF4	BSETOKEN+16
$$PRNT^XUAF4	HOME+16, IPFLOC+4, SITESVC+5
$$TF^XUAF4	STNTEST+13
$$GET^XUESSO1	SETVISIT+5
$$PUT^XUESSO1	MDWS+13, BSEUSER+14, SETUP+4
$$GETCNTXT^XUESSO2	CHKUSER+11, BSETOKEN+10
$$DTIME^XUP	MDWS+17, CHKUSER+18
$$USERTYPE^XUSAP	MDWS+19
$$POST1^XUSBSE2	BSEUSER+24
EN1^XUSBSE2	WEBADDRS+4, BSETOKEN+25
$$ACTIVE^XUSER	SETVISIT+3
$$DECRYP^XUSRB1	GETVISIT+10, CHKUSER+10
$$ENCRYP^XUSRB1	SETVISIT+5, BSETOKEN+31
$$HANDLE^XUSRB4	SETVISIT+4
LOG^XWBDLOG	HOME+6, HOME+21, HOME+23
CLOSE^XWBM2MC	BSEUSER+25
CLEARP^XWBM2MEZ	M2M+9
CLOSE^XWBM2MEZ	M2MEXIT+1
SETPARAM^XWBM2MEZ	M2M+10
$$OPEN^XWBRL	M2M+7
PARSE^XWBRPC	M2M+18
REQUEST^XWBRPCC	M2M+14
$$CALLBSE^XWBTCPM2	XWB+2, HOME+22
$$EXECUTE^XWBVLC	M2M+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Broker Security Enhancement (BSE) Station Number-to-IP conversion test (for BSE" Line Location: STNTEST+2
Function Call: WRITE	Prompt: !,"callbacks to home system). Note: It is not necessarily wrong if results differ" Line Location: STNTEST+3
Function Call: WRITE	Prompt: !,"or are blank. 2 methods' results are listed: HL LOGICAL LINK/VISTASITESERVICE" Line Location: STNTEST+4
Function Call: WRITE	Prompt: !!," local VISTASITESERVICE server:",!," ",$G(XUSBSE("DILIST","ID",1,1)),"",! Line Location: STNTEST+7
Function Call: WRITE	Prompt: !,XUSSTN,?8,"(",$P(XUSLSTV,U,2),"): " Line Location: STNTEST+16
Function Call: WRITE	Prompt: $S($L(XUSIP1):XUSIP1,1:"blank"),"/",$S($L(XUSIP2):XUSIP2,1:"blank") Line Location: STNTEST+16
Function Call: WRITE	Prompt: " *DIFFERENT*" Line Location: STNTEST+17
Routine Call	DIC Line Location: MDWS+11 MDWS+15 SETCNTXT+3 SETCNTXT+15
Routine Call	DIC Line Location: IPFLOC+6 WEBADDRS+2 STNTEST+6 BSETOKEN+23
Routine Call	DIC Line Location: STNTEST+9
Routine Call	DIE Line Location: SETCNTXT+18
Routine Call	DIE Line Location: SETCNTXT+9 SETCNTXT+12

Used in RPC

RPC Name	Call Tags
XUS SET VISITOR	SETVISIT
XUS GET VISITOR	GETVISIT
XUS BSE TOKEN	BSETOKEN

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("XUSBSE1"	CHKUSER+9!, M2M+12
^TMP($J	STNTEST+8!, STNTEST+9, STNTEST+10, STNTEST+11, STNTEST+18!
^VA(200 - [#200]	SETCNTXT+6
^XTMP(	SETVISIT+5, SETVISIT+6, SETVISIT+7, GETVISIT+8, GETVISIT+9!, GETVISIT+10, GETVISIT+11
^XTMP("XUSBSE1"	BSEUSER+9, BSEUSER+10, BSEUSER+11!, BSEUSER+12!, BSEUSER+17, BSEUSER+32, HOME+17, IPFLOC+20, SITESVC+8, BSETOKEN+19 , BSETOKEN+28*
^XUTL("XQ"	BSEUSER+16, SETCNTXT+13
^XWB(8994.5 - [#8994.5]	BSEUSER+20, BSEUSER+30

Label References

Name	Line Occurrences
$$BSEUSER	CHKUSER+17
$$HOME	BSEUSER+22
$$IPFLOC	HOME+18, STNTEST+14
$$LOGERR	GETVISIT+7, GETVISIT+12, CHKUSER+7, CHKUSER+12, CHKUSER+19, SETCNTXT+3
$$M2M	BSEUSER+25
$$MDWS	CHKUSER+6
$$SETUP	BSEUSER+31
$$SITESVC	HOME+19, STNTEST+14
$$WEBADDRS	SITESVC+6
$$XWB	BSEUSER+23
M2MEXIT	M2M+15, M2M+17
SETCNTXT	MDWS+16, SETUP+6
SETVISIT	BSETOKEN+13

Naked Globals

Name	Field # of Occurrence
^(	BSEUSER+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADD	IPFLOC+3~, IPFLOC+8, IPFLOC+11, IPFLOC+12, IPFLOC+13, IPFLOC+16*, IPFLOC+17, IPFLOC+18
ARRAY	BSEUSER+6~, BSEUSER+24
BSE	HOME~, HOME+6, HOME+9
DEMOGSTR	M2M+1~, M2M+2*
DEMOSTR	XWB+1~
DNSADD	SITESVC+3~, SITESVC+6*, SITESVC+7
DTIME	MDWS+17, CHKUSER+18
DUZ	SETVISIT+3, SETVISIT+5, MDWS+17, MDWS+19, CHKUSER+18, BSEUSER+15, SETUP+5, SETUP+7, SETCNTXT+6, SETCNTXT+8 , SETCNTXT+11, SETCNTXT+15, SETCNTXT+17
DUZ("AUTHENTICATION"	MDWS+10, CHKUSER+13
DUZ("LOA"	MDWS+10, CHKUSER+13, SETCNTXT+4
DUZ("REMAPP"	MDWS+12, CHKUSER+14, LOGERR+5
DUZ(0	MDWS+18*
DUZ(2	BSETOKEN+15, BSETOKEN+16
ENTRY	BSEUSER~, BSEUSER+20, BSEUSER+30
I	IPFLOC+3~, IPFLOC+8, IPFLOC+9, IPFLOC+11, IPFLOC+16, WEBADDRS+1~, WEBADDRS+5, BSETOKEN+22~, BSETOKEN+26
INPUTSTR	CHKUSER~, CHKUSER+6, CHKUSER+7, CHKUSER+8*, CHKUSER+10
IO	XWB+1~
IP	HOME+5~, HOME+14, HOME+18, HOME+19, HOME+20, HOME+21, HOME+22, IPFLOC+3~, IPFLOC+8, IPFLOC+9 , IPFLOC+11, IPFLOC+12, IPFLOC+13, IPFLOC+16, IPFLOC+17, IPFLOC+18, IPFLOC+20, IPFLOC+21, SITESVC+3~, SITESVC+4* , SITESVC+7*, SITESVC+8, SITESVC+9, WEBADDRS+1~, BSETOKEN+22~
O	SETVISIT+2~, GETVISIT+5~, GETVISIT+6*
OPT	SETCNTXT+1~, SETCNTXT+15*, SETCNTXT+16, SETCNTXT+17
POP	WEBADDRS+1~, BSETOKEN+22~
PORT	XWB~, XWB+2, M2M~, M2M+4, HOME+5~, HOME+9*, HOME+21, HOME+22, HOME+24
RAD	HOME~, HOME+7
RES	SETVISIT~, SETVISIT+3, SETVISIT+8, GETVISIT~, GETVISIT+6, GETVISIT+10, GETVISIT+12
RESULTS	WEBADDRS+1~, WEBADDRS+4, BSETOKEN+22~, BSETOKEN+25
RESULTS(	WEBADDRS+5, BSETOKEN+26
RET	IPFLOC+3~, BSETOKEN~, BSETOKEN+9, BSETOKEN+11, BSETOKEN+14, BSETOKEN+15, BSETOKEN+18, BSETOKEN+29, BSETOKEN+31*
RETRNVAL	M2M+1~, M2M+15, M2M+17, M2M+19*, M2MEXIT+2
SERVER	XWB~, XWB+2, M2M~, M2M+4
STN	HOME+5~, HOME+9*, HOME+11, HOME+13, HOME+16, HOME+20, HOME+22, HOME+24, IPFLOC~, IPFLOC+4 , SITESVC~, SITESVC+5
STNIEN	HOME+5~, HOME+11*, HOME+13
STNNUM	WEBADDRS~, WEBADDRS+4
STNPRNT	HOME+5~, HOME+16, HOME+17, HOME+18, HOME+19, IPFLOC+3~, IPFLOC+4, IPFLOC+6, IPFLOC+20, SITESVC+3~ , SITESVC+5*, SITESVC+6, SITESVC+8
STR	BSEUSER~, BSEUSER+22
TOKEN	SETVISIT+2~, SETVISIT+4*, SETVISIT+5, SETVISIT+6, SETVISIT+7, SETVISIT+8, GETVISIT~, GETVISIT+7, GETVISIT+8, GETVISIT+9 , GETVISIT+10, GETVISIT+11, BSEUSER~, BSEUSER+9, BSEUSER+10, BSEUSER+11, BSEUSER+12, BSEUSER+17, BSEUSER+22, BSEUSER+23 , BSEUSER+24, BSEUSER+25, BSEUSER+32, XWB~, XWB+2, M2M~, M2M+10, HOME~, HOME+22
U	SETVISIT+3, MDWS+13, CHKUSER+8, CHKUSER+11, CHKUSER+14, CHKUSER+15, CHKUSER+16, BSEUSER+11, BSEUSER+12, BSEUSER+13 , BSEUSER+16, BSEUSER+22, BSEUSER+23, BSEUSER+24, BSEUSER+25, BSEUSER+30, HOME+7, HOME+9, HOME+16, IPFLOC+4 , SITESVC+5, STNTEST+12, STNTEST+13, STNTEST+16, LOGERR+5, LOGERR+6, BSETOKEN+17
URL	WEBADDRS+1~, WEBADDRS+3, WEBADDRS+4, BSETOKEN+22~, BSETOKEN+24, BSETOKEN+25
X	SETVISIT+2~, SETVISIT+3, GETVISIT+5~, GETVISIT+7, GETVISIT+12, CHKUSER+4~, CHKUSER+7, CHKUSER+12, CHKUSER+19, BSEUSER+6~ , HOME+5~, WEBADDRS+1~, WEBADDRS+5, WEBADDRS+6, SETCNTXT+1~, SETCNTXT+3, BSETOKEN+22~, BSETOKEN+26*, BSETOKEN+27, BSETOKEN+28
XAPP	MDWS+6~, MDWS+11, MDWS+12, BSETOKEN+7~, BSETOKEN+8, BSETOKEN+9, BSETOKEN+10, BSETOKEN+11, BSETOKEN+12, BSETOKEN+30
XARR	SETCNTXT+8~, SETCNTXT+11!, SETCNTXT+17!
XARR(	SETCNTXT+8, SETCNTXT+11, SETCNTXT+17*
XCNT	BSEUSER+6~, BSEUSER+20*
XOPT	SETCNTXT~, SETCNTXT+2, SETCNTXT+6, SETCNTXT+11
XOPTION	MDWS+6~, MDWS+15*, MDWS+16
XPHRASE	BSETOKEN~, BSETOKEN+8, BSETOKEN+10, BSETOKEN+12
XPORT	BSETOKEN+7~, BSETOKEN+19, BSETOKEN+20, BSETOKEN+27, BSETOKEN+28, BSETOKEN+29, BSETOKEN+30
XSTA	BSETOKEN+7~, BSETOKEN+16*, BSETOKEN+17, BSETOKEN+18
XSTATION	BSETOKEN+7~, BSETOKEN+17*, BSETOKEN+25, BSETOKEN+30
XSTRING	BSETOKEN+7~, BSETOKEN+30*, BSETOKEN+31
XTOKEN	BSETOKEN+7~, BSETOKEN+13, BSETOKEN+14, BSETOKEN+30
XUCACHE	BSEUSER+6~, BSEUSER+10, BSEUSER+11, BSEUSER+12, BSEUSER+13, BSEUSER+16, HOME+17
XUCODE	CHKUSER+4~, CHKUSER+10*, CHKUSER+11, CHKUSER+15, CHKUSER+16
XUCONTXT	BSEUSER+6~, BSEUSER+7, BSEUSER+16, BSEUSER+17, BSEUSER+18, BSEUSER+30, BSEUSER+31, BSEUSER+32, SETUP~, SETUP+6 , SETCNTXT+1~, SETCNTXT+2, SETCNTXT+3, SETCNTXT+8, SETCNTXT+13, SETCNTXT+15
XUDEMOG	BSEUSER+6~, BSEUSER+7, BSEUSER+13, BSEUSER+14, BSEUSER+17, BSEUSER+20, BSEUSER+22, BSEUSER+23, BSEUSER+24, BSEUSER+25 , BSEUSER+28, BSEUSER+29, BSEUSER+31, BSEUSER+32, SETUP~, SETUP+4, LOGERR+6
XUENTRY	CHKUSER+4~, CHKUSER+11, CHKUSER+12, CHKUSER+14, CHKUSER+17, CHKUSER+19, CHKUSER+20
XUESSO	HOME+5~, HOME+9, HOME+11, HOME+13, HOME+20, HOME+22, HOME+23, HOME+24, HOME+25*, HOME+26
XUIEN	BSEUSER+6~, BSEUSER+7, BSEUSER+15, BSEUSER+17, BSEUSER+18, BSEUSER+31*, BSEUSER+32, BSEUSER+33
XUSAPP	LOGERR+3~, LOGERR+5*, LOGERR+8
XUSBSARR	M2M+1~
XUSBSARR(1	M2M+19
XUSBSE	IPFLOC+3~, WEBADDRS+1~, STNTEST+1~, BSETOKEN+22~
XUSBSE("DILIST"	IPFLOC+7, IPFLOC+9, IPFLOC+11, IPFLOC+16, WEBADDRS+3, STNTEST+7, BSETOKEN+24
XUSETXT	LOGERR~, LOGERR+8*, LOGERR+9
XUSIP1	STNTEST+1~, STNTEST+14*, STNTEST+15, STNTEST+16, STNTEST+17
XUSIP2	STNTEST+1~, STNTEST+14*, STNTEST+15, STNTEST+16, STNTEST+17
XUSLSTI	STNTEST+1~, STNTEST+10*, STNTEST+11
XUSLSTV	STNTEST+1~, STNTEST+11*, STNTEST+12, STNTEST+13, STNTEST+16
XUSSTN	STNTEST+1~, STNTEST+13*, STNTEST+14, STNTEST+16
XUSTR	CHKUSER+4~, CHKUSER+16*, CHKUSER+17
XUTOKEN	CHKUSER+4~, CHKUSER+15*, CHKUSER+17
XVAL	MDWS+6~, MDWS+13, MDWS+14, MDWS+20, BSEUSER+6~, BSEUSER+20, BSEUSER+22, BSEUSER+23, BSEUSER+24, BSEUSER+25
XVAL522	MDWS+6~, MDWS+7*, MDWS+8, MDWS+9
XWBCRLFL	M2M+1~, M2M+13*, M2M+15
>> XWBDEBUG	HOME+6, HOME+21, HOME+23
XWBNULL	M2M+3~
XWBPARMS	M2M+3~, M2M+7, M2M+14, M2M+17, M2M+18
XWBPARMS("ADDRESS"	M2M+4*
XWBPARMS("PORT"	M2M+4*
XWBPARMS("RESULTS"	M2M+12*
XWBPARMS("RETRIES"	M2M+5*
XWBPARMS("URI"	M2M+8, M2M+11
XWBRBUF	XWB+1~
>> XWBSEC	BSEUSER+28*, LOGERR+7
XWBSTAT	M2M+3~
XWBTDEV	XWB+1~, M2M+3~
XWBUSRNM	MDWS~, MDWS+13

Customize PDF page

Package: Kernel

Routine: XUSBSE1

Information

Source Information

Call Graph

Call Graph Total: 25

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

Used in RPC

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: