XUESSO2 ;ISD/HGW - Enhanced Single Sign-On Utilities ; Apr 19, 2022@14:57
Source file <XUESSO2.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FINDUSER(XATR) | ;Function. Find user using minimum attributes for user identification
; Input: XATR = Array containing user attributes (see above). ; Return: Fail = "-1^Error Message" ; Success = IEN of NEW PERSON file (#200) entry (Note: this routine will NOT set DUZ to the identified IEN) |
|
| TALL(XATR) | ;Function. Find an existing user.
|
|
| ADDUSER(XATR) | ;Function. Add user using minimum attributes for user identification
; Input: XATR = Array containing user attributes (see above). ; Return: Fail = "-1^Error Message" ; Success = IEN of NEW PERSON file (#200) entry (Note: this routine will NOT set DUZ to the identified IEN) |
|
| CANADD(REMLN) | ; Function P759 CEP
; P759 CEP ; CALLED BY XUESSO2 AND XUESS01 ; Input: REMLN = DUZ("REMAPP") (if defined) RA_IEN ^ RA_NAME ; Output: 1 if allowed to add users or field is blank ; 0 if not found or not allowed to add users |
|
| SECMATCH(SECID) | ;Function. Find match for SECID.
|
|
| UPNMATCH(ADUPN) | ;Function. Find match for ADUPN.
|
|
| AOIUID(OID,UID) | ;Function. Find match for OID+UID cross-reference.
|
|
| NETMAIL(NETNAME,MAIL) | ;Function. Find match for NETWORK USERNAME and EMAIL ADDRESS
|
|
| ADDU(XUNAME) | ;Function. Add a new name to the NPF
|
|
| UPDU(XATR,NEWDUZ) | ;Function. Update user in the NPF
|
|
| ADDS(FDR,NEWDUZ,SSN) | ;Function. Add a SSN to the NPF
|
|
| CLEAN(Y) | ;Subroutine. Clean up (delete) incomplete record in NPF
; ZEXCEPT: DA,DIK |
|
| SETCNTXT(NEWDUZ,XAPHRASE) | ;Function. Assign Context Option to user Secondary Menu Options
|
|
| GETCNTXT(XAPHRASE) | ;Function. Identify the REMOTE APPLICATION
|
|
| AUTH() | ;Function. Check if calling routine is authorized
; ^XUESSO2 does not address the security issue of user authentication, so a restriction is placed on the calling routine. |
|
| SETREMAP(USER,REMAPP) | ; user created by remote application
|
| Name | Field # of Occurrence |
|---|---|
| $$FIND1^DIC | SETCNTXT+7, SETCNTXT+17, GETCNTXT+4, GETCNTXT+8, GETCNTXT+17, GETCNTXT+21 |
| FILE^DICN | ADDU+8 |
| FILE^DIE | SETCNTXT+20, GETCNTXT+13, GETCNTXT+26 |
| UPDATE^DIE | UPDU+31, SETCNTXT+12, SETCNTXT+15, SETREMAP+4 |
| ^DIK | CLEAN+5 |
| $$GET1^DIQ | SETCNTXT+3 |
| $$HL7TFM^XLFDT | UPDU+17 |
| $$HTFM^XLFDT | FINDUSER+6 |
| $$FORMAT^XLFNAME7 | ADDUSER+22 |
| $$LOW^XLFSTR | FINDUSER+11, FINDUSER+12, ADDUSER+19, ADDUSER+20, UPDU+6, UPDU+7, UPDU+13, UPDU+14, GETCNTXT+16, GETCNTXT+20 , GETCNTXT+23 |
| $$TITLE^XLFSTR | FINDUSER+10, ADDUSER+18, UPDU+5 |
| $$UP^XLFSTR | FINDUSER+17, ADDUSER+24, UPDU+8, UPDU+19, UPDU+20, UPDU+21, UPDU+22 |
| $$SSNCHECK^XUESSO1 | ADDS+3 |
| $$EN^XUSHSH | GETCNTXT+7, GETCNTXT+20 |
| $$SHAHASH^XUSHSH | GETCNTXT+3, GETCNTXT+10, GETCNTXT+16, GETCNTXT+23 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(5 - [#5] | UPDU+24 |
| ^TMP("DIERR" | ADDU+2!, UPDU+2!, UPDU+33 |
| ^VA(200 - [#200] | TALL+25, TALL+36, SECMATCH+5, SECMATCH+7, UPNMATCH+5, UPNMATCH+7, AOIUID+5, AOIUID+7, NETMAIL+7, NETMAIL+11 , NETMAIL+12, ADDU+6, ADDU+10, UPDU+5, UPDU+6, UPDU+7, UPDU+8, UPDU+9, UPDU+10, UPDU+12 , UPDU+13, UPDU+14, UPDU+16, UPDU+17, UPDU+19, UPDU+20, UPDU+21, UPDU+22, UPDU+25, UPDU+26 , SETCNTXT+9 |
| ^XWB(8994.5 - [#8994.5] | CANADD+9, SETCNTXT+4 |
| Name | Line Occurrences |
|---|---|
| $$ADDS | UPDU+12 |
| $$ADDU | ADDUSER+26 |
| $$AOIUID | TALL+46 |
| $$AUTH | ADDUSER+6 |
| $$CANADD | ADDUSER+10 |
| $$GETCNTXT | SETCNTXT+2 |
| $$SECMATCH | TALL+14 |
| $$SETCNTXT | UPDU+28 |
| $$TALL | FINDUSER+19 |
| $$UPDU | TALL+20, TALL+31, TALL+42, TALL+54, ADDUSER+28 |
| CLEAN | ADDUSER+29 |
| SETREMAP | ADDUSER+31 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADUPN | UPNMATCH~, UPNMATCH+2, UPNMATCH+3, UPNMATCH+5, UPNMATCH+7 |
| AOIUID | TALL+1~ |
| DA | ADDU+1~, CLEAN+5!* |
| DD | ADDU+1~ |
| DIC | FINDUSER+5~, ADDU+1~, ADDU+4*, UPDU+1~ |
| DIC(0 | ADDU+4*, UPDU+3* |
| DIK | CLEAN+5!* |
| DO | ADDU+1~ |
| DT | FINDUSER+5~, FINDUSER+6* |
| DUZ("LOA" | TALL+5, ADDUSER+7 |
| DUZ("REMAPP" | ADDUSER+8, ADDUSER+9, ADDUSER+10, ADDUSER+31, SETCNTXT+3* |
| DUZ(0 | ADDU+7*, ADDU+9*, UPDU+30*, UPDU+32*, CLEAN+3*, CLEAN+6* |
| DUZZERO | ADDU+1~, ADDU+7*, ADDU+9, UPDU+1~, UPDU+30*, UPDU+32, CLEAN+2~, CLEAN+3*, CLEAN+6 |
| ENTRY | CANADD+6~, CANADD+8*, CANADD+9 |
| ERRMSG | FINDUSER+5~, FINDUSER+6*, TALL+1~, TALL+11*, TALL+13, TALL+20*, TALL+24, TALL+31*, TALL+35, TALL+42* , TALL+46, TALL+54*, ADDUSER+5~, ADDUSER+11*, ADDUSER+21, ADDUSER+23*, ADDUSER+28*, ADDUSER+29, UPDU+1~, UPDU+3* , UPDU+12*, UPDU+28*, UPDU+34, ADDS+1~, ADDS+2*, ADDS+5 |
| FDR | UPDU+1~, UPDU+12, UPDU+31, ADDS~, GETCNTXT+11~, GETCNTXT+24~, SETREMAP+1~ |
| FDR( | GETCNTXT+12*, GETCNTXT+25* |
| FDR(200 | UPDU+5*, UPDU+6*, UPDU+7*, UPDU+8*, UPDU+9*, UPDU+10*, UPDU+13*, UPDU+14*, UPDU+16*, UPDU+17* , UPDU+19*, UPDU+20*, UPDU+21*, UPDU+22*, UPDU+25*, UPDU+26*, ADDS+4*, SETREMAP+4* |
| IEN | FINDUSER+5~, UPDU+1~, UPDU+4*, UPDU+5, UPDU+6, UPDU+7, UPDU+8, UPDU+9, UPDU+10, UPDU+13 , UPDU+14, UPDU+16, UPDU+17, UPDU+19, UPDU+20, UPDU+21, UPDU+22, UPDU+25, UPDU+26, UPDU+31! , ADDS+1~, ADDS+2*, ADDS+4, SETREMAP+1~, SETREMAP+3*, SETREMAP+4! |
| L1 | NETMAIL+1~, NETMAIL+3*, NETMAIL+4, NETMAIL+11 |
| L2 | NETMAIL+1~, NETMAIL+3*, NETMAIL+4, NETMAIL+12 |
| NETMAIL~, NETMAIL+2*, NETMAIL+3, NETMAIL+12 | |
| N | NETMAIL+1~, NETMAIL+5*, NETMAIL+8*, NETMAIL+9 |
| NETNAME | NETMAIL~, NETMAIL+2*, NETMAIL+3, NETMAIL+11 |
| NEWDUZ | TALL+1~, TALL+11*, TALL+19*, TALL+20, TALL+22, TALL+30*, TALL+31, TALL+33, TALL+41*, TALL+42 , TALL+44, TALL+53*, TALL+54, TALL+56, ADDUSER+5~, ADDUSER+26*, ADDUSER+27, ADDUSER+28, ADDUSER+29, ADDUSER+30 , ADDUSER+31, ADDUSER+32, UPDU~, UPDU+4, UPDU+5, UPDU+6, UPDU+7, UPDU+8, UPDU+9, UPDU+10 , UPDU+12, UPDU+13, UPDU+14, UPDU+16, UPDU+17, UPDU+19, UPDU+20, UPDU+21, UPDU+22, UPDU+25 , UPDU+26, UPDU+28, UPDU+35, ADDS~, ADDS+2, SETCNTXT~, SETCNTXT+9, SETCNTXT+11, SETCNTXT+14, SETCNTXT+17 , SETCNTXT+19 |
| NPI | TALL+1~, TALL+9*, TALL+24, TALL+25 |
| OID | TALL+1~, TALL+6*, TALL+46, AOIUID~, AOIUID+2, AOIUID+3, AOIUID+7 |
| OPT | SETCNTXT+1~, SETCNTXT+17*, SETCNTXT+18, SETCNTXT+19 |
| RAIEN | ADDUSER+5~, ADDUSER+8* |
| RANM | ADDUSER+5~, ADDUSER+9*, ADDUSER+10 |
| REMAPP | SETREMAP~, SETREMAP+4 |
| REMLN | CANADD~, CANADD+7, CANADD+8 |
| SECID | TALL+1~, TALL+8*, TALL+13, TALL+14, SECMATCH~, SECMATCH+2, SECMATCH+5, SECMATCH+7 |
| SID | ADDUSER+5~, ADDUSER+22* |
| SSN | TALL+1~, TALL+10*, TALL+35, TALL+36, ADDS~, ADDS+3, ADDS+4 |
| TODAY | FINDUSER+5~, FINDUSER+6* |
| U | FINDUSER+6*, ADDUSER+8, ADDUSER+9, CANADD+8, CANADD+10, SECMATCH+7, UPNMATCH+7, AOIUID+7, NETMAIL+11, NETMAIL+12 , UPDU+5, UPDU+6, UPDU+7, UPDU+8, UPDU+9, UPDU+10, UPDU+12, UPDU+13, UPDU+14, UPDU+16 , UPDU+17, UPDU+19, UPDU+20, UPDU+21, UPDU+22, UPDU+25, UPDU+26, SETCNTXT+3, SETCNTXT+4 |
| UID | TALL+1~, TALL+7*, TALL+46, AOIUID~, AOIUID+2, AOIUID+3, AOIUID+7 |
| USER | SETREMAP~, SETREMAP+2, SETREMAP+3 |
| W | UPNMATCH+1~, UPNMATCH+3*, AOIUID+1~, AOIUID+3*, AOIUID+5 |
| X | TALL+1~, TALL+3*, TALL+4, AOIUID+1~, AOIUID+3*, AOIUID+5, ADDU+1~, ADDU+4*, SETCNTXT+1~, AUTH+2~ , AUTH+4*, AUTH+5 |
| XAPHRASE | SETCNTXT~, SETCNTXT+2, GETCNTXT~, GETCNTXT+3, GETCNTXT+7, GETCNTXT+10, GETCNTXT+16, GETCNTXT+20, GETCNTXT+23 |
| XARR | SETCNTXT+11~, SETCNTXT+14!, SETCNTXT+19! |
| XARR( | SETCNTXT+11*, SETCNTXT+14*, SETCNTXT+19* |
| XATR | FINDUSER~, FINDUSER+19, TALL~, TALL+20, TALL+31, TALL+42, TALL+54, ADDUSER~, ADDUSER+28, UPDU~ |
| XATR(1 | FINDUSER+10*, ADDUSER+13, ADDUSER+18*, UPDU+5 |
| XATR(10 | UPDU+13 |
| XATR(11 | UPDU+14 |
| XATR(12 | UPDU+16 |
| XATR(13 | UPDU+17 |
| XATR(14 | UPDU+19 |
| XATR(15 | UPDU+20 |
| XATR(16 | UPDU+21 |
| XATR(17 | UPDU+22 |
| XATR(18 | UPDU+23, UPDU+24 |
| XATR(19 | UPDU+26 |
| XATR(2 | FINDUSER+8, FINDUSER+11*, TALL+6, ADDUSER+14, ADDUSER+19*, UPDU+6 |
| XATR(3 | FINDUSER+8, FINDUSER+12*, TALL+7, ADDUSER+15, ADDUSER+20*, UPDU+7 |
| XATR(4 | ADDUSER+16, ADDUSER+21, ADDUSER+22*, ADDUSER+23, ADDUSER+26 |
| XATR(5 | UPDU+28 |
| XATR(6 | FINDUSER+17*, ADDUSER+24*, UPDU+8 |
| XATR(7 | FINDUSER+8, FINDUSER+18*, TALL+8, ADDUSER+25*, UPDU+9 |
| XATR(8 | FINDUSER+8, TALL+9, UPDU+10 |
| XATR(9 | FINDUSER+8, TALL+10, UPDU+12 |
| XOPT | SETCNTXT+1~, SETCNTXT+4*, SETCNTXT+5, SETCNTXT+6, SETCNTXT+9 |
| XUCODE | UPDU+1~, GETCNTXT+1~, GETCNTXT+3*, GETCNTXT+4, GETCNTXT+7*, GETCNTXT+8, GETCNTXT+10*, GETCNTXT+12, GETCNTXT+16*, GETCNTXT+17 , GETCNTXT+20*, GETCNTXT+21, GETCNTXT+23*, GETCNTXT+25 |
| XUCONTXT | SETCNTXT+1~, SETCNTXT+6*, SETCNTXT+7, SETCNTXT+11, SETCNTXT+14, SETCNTXT+17 |
| XUENTRY | UPDU+1~, SETCNTXT+1~, SETCNTXT+2*, SETCNTXT+3, SETCNTXT+4, GETCNTXT+1~, GETCNTXT+4*, GETCNTXT+6, GETCNTXT+8*, GETCNTXT+9 , GETCNTXT+12, GETCNTXT+15, GETCNTXT+17*, GETCNTXT+19, GETCNTXT+21*, GETCNTXT+22, GETCNTXT+25, GETCNTXT+27, GETCNTXT+28 |
| XUNAME | FINDUSER+5~, ADDU~, ADDU+4 |
| XURAAUTH | CANADD+6~, CANADD+9*, CANADD+10 |
| XURACADD | CANADD+6~, CANADD+10*, CANADD+11 |
| XUSTATE | UPDU+24~*, UPDU+25 |
| Y | TALL+1~, TALL+3*, TALL+11*, TALL+14*, TALL+19, TALL+25*, TALL+30, TALL+36*, TALL+41, TALL+46* , TALL+53, SECMATCH+1~, SECMATCH+3*, SECMATCH+4, SECMATCH+5*, SECMATCH+6, SECMATCH+7*, UPNMATCH+1~, UPNMATCH+3*, UPNMATCH+4 , UPNMATCH+5*, UPNMATCH+6, UPNMATCH+7*, AOIUID+1~, AOIUID+3*, AOIUID+4, AOIUID+5*, AOIUID+6, AOIUID+7*, NETMAIL+1~ , NETMAIL+5*, NETMAIL+6, NETMAIL+7*, NETMAIL+10, NETMAIL+11*, NETMAIL+12*, ADDU+1~, ADDU+11, CLEAN~, CLEAN+4 , CLEAN+5 |
| Z | TALL+1~, TALL+3*, SECMATCH+1~, SECMATCH+3*, SECMATCH+7*, SECMATCH+8, UPNMATCH+1~, UPNMATCH+3*, UPNMATCH+7*, UPNMATCH+8 , AOIUID+1~, AOIUID+3*, AOIUID+7*, AOIUID+8, NETMAIL+1~, NETMAIL+5*, NETMAIL+11*, NETMAIL+12*, NETMAIL+13, AUTH+2~ , AUTH+4* |