Routine: XUSBSE1

Package	Total	Call Graph
Kernel	12	APPERROR^%ZTER ($$DT,$$HADD,$$HDIFF,$$NOW)^XLFDT $$VALIDATE^XLFIPV $$ADDRESS^XLFNSLK ($$ACTIVE,$$LKUP,$$PRNT,$$TF)^XUAF4 ($$GET,$$PUT)^XUESSO1 $$DTIME^XUP ($$POST1,EN1)^XUSBSE2 $$ACTIVE^XUSER $$EN^XUSHSH ($$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	1	XUSRB
RPC Broker	1	XWBTCPM2

Entry Points

Name	Comments	DBIA/ICR reference
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
SETCNTXT(XOPT)	;
OLDCAPRI(XWBUSRNM)	; Intrinsic. The old CAPRI code, disable with system parameter XU522. ; Return 1 if a valid user, else 0. ; ZEXCEPT: DTIME - Kernel exemption
IPFLOC(STN)	;Get the address from the station number from HL LOGICAL LINK file (#870) ; input STN - station number ; returns - IP address or null
M2M(SERVER,PORT,TOKEN)	; M2M Broker
M2MEXIT	;
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
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"
STNTEST	; tests station#-to-IP conversion (IPFLOC,WEBADDRS) used by HOME station#-based callback
XWB(SERVER,PORT,TOKEN)	; Special Broker service
SETVISIT(RES)	; .RPC "XUS SET VISITOR"
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
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
WEBADDRS(STNNUM)	;
GETVISIT(RES,TOKEN)	; .RPC "XUS GET VISITOR"
SITESVC(STN)	;Get IP from the stn# from VISTASITESERVICE ; input STN - station number ; returns - IP address or null

External References

Name	Field # of Occurrence
APPERROR^%ZTER	OLDCAPRI+5, LOGERR+10
$$FIND1^DIC	OLDCAPRI+9, CHKUSER+11, SETCNTXT+3, SETCNTXT+14
FIND^DIC	IPFLOC+6, WEBADDRS+2, STNTEST+6
LIST^DIC	STNTEST+9
FILE^DIE	SETCNTXT+17
UPDATE^DIE	SETCNTXT+8, SETCNTXT+11
$$GET1^DIQ	CHKUSER+13
$$DT^XLFDT	BSEUSER+11
$$HADD^XLFDT	BSEUSER+12
$$HDIFF^XLFDT	HOME+18
$$NOW^XLFDT	BSEUSER+12, BSEUSER+17, BSEUSER+33
$$VALIDATE^XLFIPV	IPFLOC+12, IPFLOC+17
$$ADDRESS^XLFNSLK	IPFLOC+13, IPFLOC+18, SITESVC+7
$$GET^XPAR	OLDCAPRI+4
$$ACTIVE^XUAF4	HOME+13
$$LKUP^XUAF4	HOME+11
$$PRNT^XUAF4	HOME+16, IPFLOC+4, SITESVC+5
$$TF^XUAF4	STNTEST+13
$$GET^XUESSO1	SETVISIT+5
$$PUT^XUESSO1	OLDCAPRI+7, BSEUSER+14, SETUP+4
$$DTIME^XUP	OLDCAPRI+10, CHKUSER+17
$$POST1^XUSBSE2	BSEUSER+24
EN1^XUSBSE2	WEBADDRS+4
$$ACTIVE^XUSER	SETVISIT+3
$$EN^XUSHSH	CHKUSER+10
$$DECRYP^XUSRB1	GETVISIT+10, CHKUSER+9, CHKUSER+14, CHKUSER+15
$$ENCRYP^XUSRB1	SETVISIT+5
$$HANDLE^XUSRB4	SETVISIT+4
LOG^XWBDLOG	HOME+6, HOME+22, HOME+24
CLOSE^XWBM2MC	BSEUSER+22
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+23
$$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: STNTEST+9
Routine Call	DIE Line Location: SETCNTXT+8 SETCNTXT+11
Routine Call	DIC Line Location: IPFLOC+6 WEBADDRS+2 STNTEST+6
Routine Call	DIC Line Location: OLDCAPRI+9 CHKUSER+11 SETCNTXT+3 SETCNTXT+14
Routine Call	DIE Line Location: SETCNTXT+17

Used in RPC

RPC Name	Call Tags
XUS SET VISITOR	SETVISIT
XUS GET VISITOR	GETVISIT

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("XUSBSE1"	CHKUSER+8!, M2M+12
^TMP($J	STNTEST+8!, STNTEST+9, STNTEST+10, STNTEST+11, STNTEST+18!
^VA(200 - [#200]	SETCNTXT+5
^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+33, HOME+17, IPFLOC+20, SITESVC+8
^XUTL("XQ"	BSEUSER+16, SETCNTXT+12
^XWB(8994.5 - [#8994.5]	BSEUSER+20, BSEUSER+30

Label References

Name	Line Occurrences
$$BSEUSER	CHKUSER+16
$$HOME	BSEUSER+25
$$IPFLOC	HOME+19, STNTEST+14
$$LOGERR	GETVISIT+7, GETVISIT+12, CHKUSER+6, CHKUSER+12, CHKUSER+18, BSEUSER+32, SETCNTXT+3
$$M2M	BSEUSER+22
$$OLDCAPRI	CHKUSER+5
$$SETUP	BSEUSER+31
$$SITESVC	HOME+20, STNTEST+14
$$WEBADDRS	SITESVC+6
$$XWB	BSEUSER+23
M2MEXIT	M2M+15, M2M+17
SETCNTXT	OLDCAPRI+10, SETUP+6

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	OLDCAPRI+10, CHKUSER+17
DUZ	SETVISIT+3, SETVISIT+5, OLDCAPRI+10, CHKUSER+17, BSEUSER+15, SETUP+5, SETUP+7, SETCNTXT+5, SETCNTXT+7, SETCNTXT+10 , SETCNTXT+14, SETCNTXT+16
DUZ("REMAPP"	OLDCAPRI+10, CHKUSER+13, LOGERR+6
DUZ(0	OLDCAPRI+10*
ENTRY	BSEUSER~, BSEUSER+20, BSEUSER+30
I	IPFLOC+3~, IPFLOC+8, IPFLOC+9, IPFLOC+11, IPFLOC+16, WEBADDRS+1~, WEBADDRS+5*
INPUTSTR	CHKUSER~, CHKUSER+5, CHKUSER+6, CHKUSER+7*, CHKUSER+9, CHKUSER+14, CHKUSER+15
IO	XWB+1~
IP	HOME+5~, HOME+14, HOME+18, HOME+19, HOME+20, HOME+21, HOME+22, HOME+23, 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~
O	SETVISIT+2~, GETVISIT+5~, GETVISIT+6*
OPT	SETCNTXT+1~, SETCNTXT+14*, SETCNTXT+15, SETCNTXT+16
POP	WEBADDRS+1~
PORT	XWB~, XWB+2, M2M~, M2M+4, HOME+5~, HOME+9*, HOME+22, HOME+23, HOME+25
RAD	HOME~, HOME+7
RES	SETVISIT~, SETVISIT+3, SETVISIT+8, GETVISIT~, GETVISIT+6, GETVISIT+10, GETVISIT+12
RESULTS	WEBADDRS+1~, WEBADDRS+4
RESULTS(	WEBADDRS+5
RET	IPFLOC+3~
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+21, HOME+23, HOME+25, 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+19, HOME+20, IPFLOC+3~, IPFLOC+4, IPFLOC+6, IPFLOC+20, SITESVC+3~ , SITESVC+5*, SITESVC+6, SITESVC+8
STR	BSEUSER~, BSEUSER+25
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+33, XWB~, XWB+2, M2M~, M2M+10, HOME~, HOME+23
U	SETVISIT+3, OLDCAPRI+7, CHKUSER+7, CHKUSER+10, CHKUSER+13, CHKUSER+14, CHKUSER+15, BSEUSER+11, BSEUSER+12, BSEUSER+13 , BSEUSER+16, BSEUSER+22, BSEUSER+23, BSEUSER+24, BSEUSER+25, BSEUSER+30, HOME+7, HOME+9, HOME+16, HOME+18 , IPFLOC+4, SITESVC+5, STNTEST+12, STNTEST+13, STNTEST+16, LOGERR+6, LOGERR+7
URL	WEBADDRS+1~, WEBADDRS+3*, WEBADDRS+4
X	SETVISIT+2~, SETVISIT+3, GETVISIT+5~, GETVISIT+7, GETVISIT+12, CHKUSER+4~, CHKUSER+6, CHKUSER+12, CHKUSER+18, BSEUSER+6~ , BSEUSER+32, HOME+5~, WEBADDRS+1~, WEBADDRS+5, WEBADDRS+6, SETCNTXT+1~, SETCNTXT+3*
XARR	SETCNTXT+7~, SETCNTXT+10!, SETCNTXT+16!
XARR(	SETCNTXT+7, SETCNTXT+10, SETCNTXT+16*
XCNT	BSEUSER+6~, BSEUSER+20*
XOPT	SETCNTXT~, SETCNTXT+2, SETCNTXT+5
XOPTION	OLDCAPRI+3~, OLDCAPRI+9*, OLDCAPRI+10
XUCACHE	BSEUSER+6~, BSEUSER+10, BSEUSER+11, BSEUSER+12, BSEUSER+13, BSEUSER+16, HOME+5~, HOME+17, HOME+18
XUCODE	CHKUSER+4~, CHKUSER+9, CHKUSER+10, CHKUSER+11
XUCONTXT	BSEUSER+6~, BSEUSER+7, BSEUSER+16, BSEUSER+17, BSEUSER+18, BSEUSER+30, BSEUSER+31, BSEUSER+33, SETUP~, SETUP+6 , SETCNTXT+1~, SETCNTXT+2, SETCNTXT+3, SETCNTXT+7, SETCNTXT+10, SETCNTXT+12, SETCNTXT+14
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+33, SETUP~, SETUP+4, LOGERR+7
XUENTRY	CHKUSER+4~, CHKUSER+11, CHKUSER+12, CHKUSER+13, CHKUSER+16, CHKUSER+18, CHKUSER+19
XUESSO	HOME+5~, HOME+9, HOME+11, HOME+13, HOME+21, HOME+23, HOME+24, HOME+25, HOME+26*, HOME+27
XUIEN	BSEUSER+6~, BSEUSER+7, BSEUSER+15, BSEUSER+17, BSEUSER+18, BSEUSER+31*, BSEUSER+32, BSEUSER+33, BSEUSER+34
XUSAPP	LOGERR+3~, LOGERR+6*, LOGERR+9
XUSBSARR	M2M+1~
XUSBSARR(1	M2M+19
XUSBSE	IPFLOC+3~, WEBADDRS+1~, STNTEST+1~
XUSBSE("DILIST"	IPFLOC+7, IPFLOC+9, IPFLOC+11, IPFLOC+16, WEBADDRS+3, STNTEST+7
XUSETXT	LOGERR~, LOGERR+9*, LOGERR+10
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+15*, CHKUSER+16
XUTOKEN	CHKUSER+4~, CHKUSER+14*, CHKUSER+16
XVAL	OLDCAPRI+3~, OLDCAPRI+7, OLDCAPRI+8, OLDCAPRI+11, BSEUSER+6~, BSEUSER+20, BSEUSER+22, BSEUSER+23, BSEUSER+24, BSEUSER+25
XVAL522	OLDCAPRI+3~, OLDCAPRI+4*, OLDCAPRI+5, OLDCAPRI+6
XWBCRLFL	M2M+1~, M2M+13*, M2M+15
>> XWBDEBUG	HOME+6, HOME+22, HOME+24
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+8
XWBSTAT	M2M+3~
XWBTDEV	XWB+1~, M2M+3~
XWBUSRNM	OLDCAPRI~, OLDCAPRI+7

Customize PDF page

Package: Kernel

Routine: XUSBSE1

Information

Source Information

Call Graph

Call Graph Total: 24

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Used in RPC

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: