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 ;12/02/14 13:29

Source Information

Source file <XUSBSE1.m>

Call Graph

Call Graph Total: 24

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  

Caller Graph

Caller Graph Total: 2

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
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