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 |  Interaction Calls |  Used in RPC |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: XUSBSE1

Package: Kernel

Routine: XUSBSE1


Information

XUSBSE1 ;ISF/JLI,ISD/HGW - MODIFICATIONS FOR BSE ;01/25/17 7:52

Source Information

Source file <XUSBSE1.m>

Call Graph

Call Graph

Call Graph Total: 25

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 7

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
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+11, 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Used in RPC |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All