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 ;LUKE/SEA Single Sign-on utilities;02/11/10 14:57;08/18/09 14:29

Source Information

Source file <XUESSO1.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 5 ($$FMTE,$$HTFM)^XLFDT  $$UP^XLFSTR  $$NS^XUAF4  ($$IEN,$$VPID)^XUPS  DUZ^XUS1A  
VA Fileman 4 MSG^DIALOG  FILE^DICN  (CHK,UPDATE)^DIE  ^DIK  
MailMan 2 ^XMB  ^XMD  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Registration 2 DGROHLS  DGROHLU  
Kernel 1 XUSBSE1  
RPC Broker 1 XWB2HL7  

Entry Points

Name Comments DBIA/ICR reference
TALL(DUZ) ;Test for existing user or adds a new one
UPDT ;Update the LAST VISIT field
SPECIAL(SN) ;Special Manila RO site
G4
BOMB ;Insufficient information to allow visiting
ADDU ;Add a new name to the New Person File
SET(NEWDUZ) ;Set the user up to go
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
    ADDA ;Add a new Alias to file 200.04
    BULL ;Set up the bulletin and fire it off, Let MM see if bulletin is there
    FAIL ;Send bulletin if fail to add user.
    ADDS ;Add a SSN to the file
    VISM ;Create a multiple for this site number in the VISTED FROM file
    NEWU ;We didn't find anybody under SSN or NAME so we add a new user

    External References

    Name Field # of Occurrence
    MSG^DIALOG FAIL+3
    FILE^DICN ADDU+3
    CHK^DIE PUT+14, PUT+15
    UPDATE^DIE UPDT+6
    ^DIK UPDT+10
    $$FMTE^XLFDT BULL+3
    $$HTFM^XLFDT PUT+4
    $$UP^XLFSTR TALL+27
    ^XMB BULL+6
    ^XMD FAIL+8
    $$NS^XUAF4 GET+14
    $$IEN^XUPS TALL+5
    $$VPID^XUPS G4+1
    DUZ^XUS1A SET+4

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^TMP("DIERR" PUT+5!, NEWU+13, UPDT+7
    ^VA(200 - [#200] GET+6, GET+9, GET+17, PH+3, PUT+19, PUT+20, TALL+6, TALL+11, TALL+12, TALL+13
    , TALL+19, TALL+28, TALL+30, TALL+31, TALL+34, TALL+37, TALL+38, ADDA+1, UPDT+2

    Label References

    Name Line Occurrences
    $$PH G4
    $$SET PUT+21
    $$SPECIAL GET+18, TALL+11, TALL+18, ADDS+1
    $$TALL PUT+20
    ADDA NEWU+9
    ADDS TALL+37, NEWU+9
    ADDU NEWU+5
    BOMB GET+3, GET+4, GET+7, GET+8, GET+9, GET+10, GET+12, GET+15, GET+19, GET+21
    , GET+23
    BULL NEWU+15
    FAIL UPDT+9
    G4 GET+18
    UPDT TALL+7, TALL+14, TALL+21, TALL+39, NEWU+11
    VISM TALL+6, TALL+13, TALL+38, NEWU+11

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % GET+2~, GET+8*, GET+9*, GET+10*, PH+1~, PH+2*, PH+6*, PH+7*, PH+8*, PH+9*
    , PH+10*, PH+11*, PH+12*, TALL+29~, TALL+34*, TALL+35
    %T PUT+2~, PUT+14, PUT+15, PUT+20*, PUT+21
    DA ADDU+1~, UPDT+8~, UPDT+10*
    DATIN PUT~, PUT+7, PUT+8, PUT+9, FAIL+5
    DD ADDU+1~
    DIC PUT+2~, ADDU+1~, ADDU+2*
    DIC(0 NEWU+2*, ADDU+2*
    DIK UPDT+8~, UPDT+10*
    DO ADDU+1~
    DT GET+10, PUT+4*
    DUZ GET+3, GET+6, GET+9, GET+17, G4+1, G4+2, PH+3, PUT+20, TALL~, SET+3*
    DUZ("VISITOR" SET+3*
    DUZ(0 TALL+2*
    DUZ(2 GET+4, GET+14
    FDR PUT+2~
    FDR( UPDT+1, UPDT+3*
    FDR("200.04" ADDA+3*
    FDR("200.06" VISM+2*, VISM+4*, VISM+5*, VISM+6*, UPDT+5*
    FDR(200 ADDS+3*
    FLAG TALL+1~, TALL+2*, TALL+7*, TALL+9, TALL+15*, TALL+18, TALL+21*, TALL+23, TALL+27*, TALL+39*
    , TALL+41
    I FAIL+1~, FAIL+5*, FAIL+6*
    IEN PUT+2~, ADDS+2*, ADDS+3, ADDA+2*, ADDA+3, VISM+1*, VISM+2, VISM+4, VISM+5, VISM+6
    , UPDT+1*, UPDT+2*, UPDT+3, UPDT+5, UPDT+6!
    INDUZ GET~
    N GET+2~, GET+6*, GET+7, GET+8, GET+10, GET+11
    NAME GET+2~, GET+11*, GET+12, G4+2, PUT+3~, PUT+7*, PUT+11, TALL+27*, TALL+28, TALL+30
    , TALL+31, ADDU+2, BULL+4, FAIL+4
    NEWDUZ PUT+2~, PUT+4*, PUT+21, TALL+5*, TALL+6, TALL+12*, TALL+13, TALL+19*, TALL+20, TALL+30*
    , TALL+31, TALL+34, TALL+37, TALL+38, NEWU+7, NEWU+15, SET~, SET+1, SET+3, ADDU+4*
    , ADDS+2, ADDA+1, ADDA+2, VISM+1, UPDT+2, UPDT+10, UPDT+11*, BULL+4
    NEWREC TALL+1~, ADDU+2*, UPDT+10
    PHONE GET+2~, G4*, G4+3, PUT+3~, PUT+8*, UPDT+5, BULL+5
    RMTDUZ PUT+3~, PUT+8*, PUT+16, TALL+19, SET+3, VISM+5, BULL+5
    SITE GET+2~, GET+14*, GET+15, GET+18, G4+2, PUT+3~, PUT+7*, PUT+13, PUT+15, VISM+4
    , BULL+4, FAIL+4
    SITENUM PUT+3~, PUT+8*, PUT+13, PUT+14, TALL+6, TALL+11, TALL+13, TALL+18, TALL+19, TALL+38
    , SET+3, ADDS+1, VISM+2, UPDT+2, BULL+5
    SN SPECIAL~, SPECIAL+1
    SSN GET+2~, GET+17*, GET+18*, GET+19, GET+21, GET+23, G4+2, PUT+3~, PUT+7*, PUT+12
    , TALL+11, TALL+12, TALL+35, ADDS+3
    TODAY PUT+2~, PUT+4*, VISM+6, UPDT+3, BULL+3
    U GET+8, GET+9, GET+10, GET+11, GET+15, GET+17, G4+2, G4+3, G4+4, PH+6
    , PH+7, PH+8, PH+9, PH+10, PH+11, PH+12, PUT+4*, PUT+7, PUT+8, PUT+9
    , PUT+14, PUT+15, TALL+34, TALL+37, SET+3*
    USER PUT+2~, TALL+29~
    USER2 TALL+29~, TALL+31*, TALL+32
    VPID GET+2~, G4+1*, G4+4, PUT+3~, PUT+9*, TALL+4, TALL+5
    X GET+2~, G4+2*, G4+3*, G4+4*, G4+6, BOMB+1*, BOMB+2, PH+1~, PH+3*, PH+4
    , PH+6, PH+7, PH+8, PH+9, PH+10, PH+11, PH+12, PUT+2~, ADDU+1~, ADDU+2*
    XMB BULL+1~, BULL+2*
    XMB(1 BULL+3*
    XMB(2 BULL+4*
    XMB(3 BULL+4*
    XMB(4 BULL+4*
    XMB(5 BULL+5*
    XMB(6 BULL+5*
    XMB(7 BULL+5*
    XMMG FAIL+1~
    XMSUB FAIL+1~, FAIL+2*
    XMTEXT FAIL+1~, FAIL+3, FAIL+7*
    XMTEXT( FAIL+6
    XMY FAIL+1~
    XMY("G.XUSVISITFAIL@FO-OAKLAND.MED.VA.GOV" FAIL+7*
    XMZ FAIL+1~
    XOPT SET+2~
    XUMF PUT+3~, PUT+14*
    XUSER SET+2~
    XUTEXT FAIL+1~, FAIL+5*, FAIL+6*
    XUTEXT( FAIL+6*
    XUTEXT(1 FAIL+4*
    XUTEXT(2 FAIL+5*
    XUTEXT(3 FAIL+5*
    Y ADDU+1~, ADDU+4
    ZTQUEUED FAIL+1~, FAIL+2*
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All