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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: XUESSO1

Package: Kernel

Routine: XUESSO1


Information

XUESSO1 ;SEA/LUKE Single Sign-on Utilities ;03/08/16 08:16

Source Information

Source file <XUESSO1.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 7 ($$FMTE,$$HTFM)^XLFDT  $$UP^XLFSTR  ($$IEN,$$NS)^XUAF4  $$SECMATCH^XUESSO2  $$PROD^XUPROD  DUZ^XUS1A  $$ACTIVE^XUSER  
VA FileMan 3 FILE^DICN  (CHK,UPDATE)^DIE  ^DIK  
MailMan 1 ^XMB  

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 3 XUESSO2  XUESSO3  XUSBSE1  
Registration 2 DGROHLS  DGROHLU  
Clinical Information Resource Network 1 RGTKPOC  
RPC Broker 1 XWB2HL7  

Entry Points

Name Comments DBIA/ICR reference
GET(INDUZ) ;Gather identifying data from user's home site.
PH() ; Try for a phone number or pager
SPECIAL(SN) ;INTRINSIC. Special Manila RO site
; Returns 1 if SN is "358"
PUT(DATIN) ;;Setup data from authenticating site GET() at receiving site
TALL(DUZ) ;INTRINSIC. Test for existing user or adds a new one
; ZEXCEPT: NAME,NEWDUZ,PHONE,RMTDUZ,SITE,SITENUM,SSN,XSSN,TODAY,SECID,NETWORK ;global variables within this routine
; ZEXCEPT: DIC ;turn off DIC(0) for ^XUA4A7 (work around)
SET(NEWDUZ) ;INTRINSIC. Set the user up to go
; ZEXCEPT: RMTDUZ,SITENUM ;global variables within this routine
ADDU ;SR. Add a new name to the New Person File
; ZEXCEPT: FDR,NAME,NEWDUZ,NEWREC ;global variables within this routine
ADDS ;SR. Add a SSN to the New Person File
; ZEXCEPT: FDR,NEWDUZ,SSN,SITENUM ;global variables within this routine
ADDI ;SR. Add SSO attributes to the New Person File
; ZEXCEPT: FDR,NEWDUZ,SECID ;global variables within this routine
ADDN ;SR. Update the NAME in the New Person File
; ZEXCEPT: FDR,NEWDUZ,NAME,RMTDUZ,SITENUM ;global variables within this routine
ADDA ;SR. Add a new Alias to file 200.04
; ZEXCEPT: FDR,NEWDUZ ;global variables within this routine
ADDW ;SR. Add NETWORK USERNAME to the New Person File
; ZEXCEPT: FDR,NEWDUZ,NETWORK ;global variables within this routine
VISM ;SR. Create a multiple for this site number in the VISITED FROM file
; ZEXCEPT: FDR,NEWDUZ,RMTDUZ,SITE,SITENUM,TODAY ;global variables within this routine
UPDT ;SR. Update all data fields
; Sets: NEWDUZ=0 if failed to complete update
; ZEXCEPT: FDR,NAME,NEWDUZ,SITE,SITENUM,PHONE,TODAY,DATIN,NEWREC ;global variables within this routine
BULL(NAME,NEWDUZ,SITE,SITENUM,RMTDUZ,PHONE,TODAY) ;INTRINSIC. Send local bulletin if user added
; Returns: 0 if failed to send bulletin, 1 if success
; ZEXCEPT: XTMUNIT ;set for unit testing
SSNCHECK(SSN) ;INTRINSIC. Check for valid SSN
; Input: SSN in format "nnnnnnnnn" or "nnn-nn-nnnn"
; Returns: 0 if SSN is invalid, 1 if success
; Valid SSN range 001-01-0001 to 899-99-9999 with exceptions (rule as of 2011)
; Valid Individual Taxpayer Identification Number range 900-01-0001 to 999-99-9999 with exceptions (rule as of 1966)

External References

Name Field # of Occurrence
FILE^DICN ADDU+5
CHK^DIE PUT+20, PUT+21
UPDATE^DIE UPDT+9
^DIK UPDT+12
$$FMTE^XLFDT BULL+7
$$HTFM^XLFDT PUT+9
$$UP^XLFSTR TALL+38
^XMB BULL+10
$$IEN^XUAF4 PUT+24
$$NS^XUAF4 GET+19
$$SECMATCH^XUESSO2 TALL+8
$$PROD^XUPROD SSNCHECK+6
DUZ^XUS1A SET+6
$$ACTIVE^XUSER GET+14, TALL+22

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("DIERR" PUT+10!, TALL+66, UPDT+10
^VA(200 - [#200] GET+9, GET+12, GET+22, GET+31, GET+32, PH+3, PUT+28, PUT+29, TALL+9, TALL+11
, TALL+15, TALL+18, TALL+19, TALL+22, TALL+24, TALL+26, TALL+31, TALL+33, TALL+39, TALL+41
, TALL+42, TALL+47, TALL+49, TALL+69, ADDS+4, ADDI+5, ADDI+6, ADDI+7, ADDI+8, ADDN+3
ADDN+4, ADDA+3, ADDW+3, UPDT+5
^XTV(8989.3 - [#8989.3] ADDI+6, ADDI+7

Label References

Name Line Occurrences
$$BULL TALL+68
$$PH GET+28
$$SET PUT+30
$$SPECIAL GET+23, TALL+15, TALL+30, ADDS+3
$$SSNCHECK GET+26, TALL+15, ADDS+5
$$TALL PUT+29
ADDA TALL+62
ADDI TALL+25, TALL+33, TALL+48, TALL+63
ADDN TALL+22
ADDS TALL+46, TALL+62
ADDU TALL+60
ADDW TALL+10, TALL+25, TALL+33, TALL+48, TALL+63
UPDT TALL+10, TALL+25, TALL+33, TALL+48, TALL+64
VISM TALL+9, TALL+24, TALL+47, TALL+64

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% GET+6~, GET+11*, GET+12*, GET+13*, PH+1~, PH+2*, PH+5*, PH+6*, PH+7*, PH+8*
, PH+9*, PH+10*, PH+11*
DA ADDU+2~, UPDT+11~, UPDT+12*
DATIN PUT~, PUT+12, PUT+13, PUT+14, PUT+15
DD ADDU+2~
DIC ADDU+2~, ADDU+4*
DIC(0 TALL+58*, ADDU+4*
DIK UPDT+11~, UPDT+12*
DO ADDU+2~
DT GET+13, PUT+9*, TALL+55
DUZ GET+7, GET+9, GET+12, GET+14, GET+22, GET+29, GET+31, GET+32, PH+3, PUT+29
, TALL~, SET+5*
DUZ("AUTHENTICATION" PUT+8*
DUZ("LOA" PUT+6*
DUZ("REMAPP" TALL+55
DUZ("VISITOR" SET+5*
DUZ(0 TALL+4*, TALL+11*, TALL+26*, TALL+33*, TALL+49*, TALL+69*
DUZ(2 GET+8, GET+19
FDQ UPDT+3~
>> FDR( ADDA+5*, VISM+4*, VISM+5*, VISM+6*, VISM+7*, UPDT+4, UPDT+6*, UPDT+7*, UPDT+8*
>> FDR(200 ADDS+7*, ADDI+5*, ADDI+6*, ADDI+7*, ADDI+8*, ADDN+6*, ADDW+6*
FLAG TALL+3~, TALL+4*, TALL+11*, TALL+13, TALL+26*, TALL+28, TALL+33*, TALL+35, TALL+49*, TALL+51
, TALL+68*
IEN ADDS+2~, ADDS+6*, ADDS+7, ADDI+2~, ADDI+4*, ADDI+5, ADDI+6, ADDI+7, ADDI+8, ADDN+2~
ADDN+5*, ADDN+6, ADDA+2~, ADDA+4*, ADDA+5, ADDW+2~, ADDW+5*, ADDW+6, VISM+2~, VISM+3*
VISM+4, VISM+5, VISM+6, VISM+7, UPDT+3~, UPDT+4*, UPDT+5*, UPDT+6, UPDT+7, UPDT+8
UPDT+9!
INDUZ GET~
N GET+6~, GET+9*, GET+10, GET+11, GET+13, GET+16
NAME GET+6~, GET+16*, GET+17, GET+29, PUT+5~, PUT+12*, PUT+17, TALL+22, TALL+38*, TALL+39
, TALL+41, TALL+68, ADDU+4, ADDN+3, ADDN+6, BULL~, BULL+4, BULL+8
NETWORK GET+6~, PUT+5~, PUT+15*, ADDW+4, ADDW+6
NEWDUZ PUT+5~, PUT+9*, PUT+30, TALL+8*, TALL+9, TALL+11, TALL+17*, TALL+18, TALL+20*, TALL+23
, TALL+24, TALL+26, TALL+31*, TALL+32, TALL+33, TALL+40*, TALL+41, TALL+44*, TALL+45, TALL+47
, TALL+49, TALL+61, TALL+65, TALL+68, TALL+69, SET~, SET+3, SET+5, ADDU+3*, ADDU+6*
ADDS+6, ADDI+4, ADDI+5, ADDI+6, ADDI+7, ADDI+8, ADDN+3, ADDN+4, ADDN+5, ADDA+3
ADDA+4, ADDW+3, ADDW+5, VISM+3, UPDT+5, UPDT+12, UPDT+13*, BULL~, BULL+4, BULL+8
NEWREC TALL+3~, ADDU+4*, UPDT+12
PHONE GET+6~, GET+28*, GET+30, PUT+5~, PUT+13*, TALL+68, UPDT+7, BULL~, BULL+5, BULL+9
RMTDUZ PUT+5~, PUT+13*, PUT+22, TALL+22, TALL+31, TALL+68, SET+5, ADDN+4, VISM+6, BULL~
, BULL+5, BULL+9
SECID PUT+5~, PUT+14*, TALL+7, TALL+8, ADDI+3, ADDI+5, ADDI+8
SITE GET+6~, GET+19*, GET+20, GET+23, GET+29, PUT+5~, PUT+12*, PUT+19, PUT+21, TALL+68
VISM+5, UPDT+8, BULL~, BULL+4, BULL+8
SITENUM PUT+5~, PUT+13*, PUT+19, PUT+20, PUT+24, TALL+9, TALL+15, TALL+22, TALL+24, TALL+30
, TALL+31, TALL+47, TALL+68, SET+5, ADDS+3, ADDN+4, VISM+4, UPDT+5, BULL~, BULL+4
, BULL+9
SN SPECIAL~, SPECIAL+2
SSN GET+6~, GET+22*, GET+23*, GET+24, GET+25, GET+26, GET+29, PUT+5~, PUT+12*, PUT+18
, TALL+15, TALL+18, TALL+43, ADDS+4, ADDS+5, ADDS+7, SSNCHECK~, SSNCHECK+7
TODAY PUT+5~, PUT+9*, TALL+68, VISM+7, UPDT+6, BULL~, BULL+5, BULL+7
U GET+11, GET+12, GET+13, GET+14, GET+16, GET+20, GET+22, GET+29, GET+30, GET+31
, GET+32, PH+5, PH+6, PH+7, PH+8, PH+9, PH+10, PH+11, PUT+9*, PUT+12
, PUT+13, PUT+14, PUT+15, PUT+20, PUT+21, TALL+11, TALL+19, TALL+26, TALL+33, TALL+42
, TALL+49, TALL+69, SET+5*, ADDI+5, ADDI+6, ADDI+7, ADDI+8, ADDN+3
X GET+6~, GET+29*, GET+30*, GET+31*, GET+32*, GET+34, PH+1~, PH+3*, PH+4, PH+5
, PH+6, PH+7, PH+8, PH+9, PH+10, PH+11, ADDU+2~, ADDU+4*, SSNCHECK+5~, SSNCHECK+7*
, SSNCHECK+8, SSNCHECK+9, SSNCHECK+10, SSNCHECK+11, SSNCHECK+12, SSNCHECK+13, SSNCHECK+14, SSNCHECK+15
XMB BULL+3~, BULL+6*
XMB(1 BULL+7*
XMB(2 BULL+8*
XMB(3 BULL+8*
XMB(4 BULL+8*
XMB(5 BULL+9*
XMB(6 BULL+9*
XMB(7 BULL+9*
XOPT SET+4~
XSITEIEN PUT+5~, PUT+24*
XT PUT+5~, PUT+20, PUT+21, PUT+29*, PUT+30
>> XTMUNIT BULL+10
XUEAUSER TALL+16~
XUEIEN TALL+16~, TALL+17*, TALL+18*, TALL+19, TALL+20, TALL+22, TALL+37~, TALL+40*, TALL+41*, TALL+42
, TALL+44
XUENAME TALL+19~*, TALL+22
XUESSN TALL+37~, TALL+42*, TALL+43
XUIAM TALL+3~, TALL+5*
XUMF PUT+5~, PUT+20*
XUSER SET+4~
Y ADDU+2~, ADDU+6, UPDT+11~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All