Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points
Print Page as PDF
Routine: XUESSO1

Package: Kernel

Routine: XUESSO1


Information

XUESSO1 ;SEA/LUKE - Single Sign-on Utilities ; Apr 08, 2022@13:58

Source Information

Source file <XUESSO1.m>

Entry Points

Name Comments DBIA/ICR reference
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
    SPECIAL(SN) ;INTRINSIC. Special Manila RO site
    ; Returns 1 if SN is "358"
    PUT(DATIN) ;;Setup data from authenticating site GET() at receiving site
  • ICR #4342
    • Status: Active
    • Usage: Controlled Subscription
    TALL(XUDUZ) ;INTRINSIC. Test for existing user or adds a new one
    ; p771 replace parameter DUZ with XUDUZ to not hide DUZ nodes being used in function
    ; 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)
    FIND
    ADD ;We didn't find anybody under SecID,SSN,VISITED FROM, or NAME so we add a new user
    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)
    MPISECID(NETNAME) ; Return SECID from MPI
    ; Called from $$TALL
    Info |  Source |  Entry Points