XUESSO1 ;SEA/LUKE - Single Sign-on Utilities ; Apr 08, 2022@13:58
Source file <XUESSO1.m>
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(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 |