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

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

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
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)
ADDW ;SR. Add NETWORK USERNAME to the New Person File
; ZEXCEPT: FDR,NEWDUZ,NETWORK ;global variables within this routine
SPECIAL(SN) ;INTRINSIC. Special Manila RO site
; Returns 1 if SN is "358"
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
ADDS ;SR. Add a SSN to the New Person File
; ZEXCEPT: FDR,NEWDUZ,SSN,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
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)
SET(NEWDUZ) ;INTRINSIC. Set the user up to go
; ZEXCEPT: RMTDUZ,SITENUM ;global variables within this routine
PUT(DATIN) ;;Setup data from authenticating site GET() at receiving site
  • ICR #4342
    • Status: Active
    • Usage: Controlled Subscription
    GET(INDUZ) ;Gather identifying data from user's home site.
  • ICR #4342
    • Status: Active
    • Usage: Controlled Subscription
    PH() ; Try for a phone number or pager
    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
    ADDA ;SR. Add a new Alias to file 200.04
    ; ZEXCEPT: FDR,NEWDUZ ;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
    ADDI ;SR. Add SSO attributes to the New Person File
    ; ZEXCEPT: FDR,NEWDUZ,SECID ;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

    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