Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  Used in RPC
Print Page as PDF
Routine: XUSBSE1

Package: Kernel

Routine: XUSBSE1


Information

XUSBSE1 ;ISF/JLI,ISD/HGW - MODIFICATIONS FOR BSE ;03/24/2020

Source Information

Source file <XUSBSE1.m>

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

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

Used in RPC

RPC Name Call Tags
XUS SET VISITOR SETVISIT
XUS GET VISITOR GETVISIT
XUS BSE TOKEN BSETOKEN
Info |  Source |  Entry Points |  Interaction Calls |  Used in RPC