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) |
|
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+7 |
FILE^DIE | SETCNTXT+20, GETCNTXT+13, GETCNTXT+26 |
UPDATE^DIE | UPDU+17, SETCNTXT+12, SETCNTXT+15, SETREMAP+4 |
^DIK | CLEAN+5 |
$$GET1^DIQ | SETCNTXT+3 |
$$HTFM^XLFDT | FINDUSER+6 |
$$FORMAT^XLFNAME7 | ADDUSER+19 |
$$LOW^XLFSTR | FINDUSER+11, FINDUSER+12, ADDUSER+16, ADDUSER+17, UPDU+6, UPDU+7, UPDU+12, UPDU+13, GETCNTXT+16, GETCNTXT+20 , GETCNTXT+23 |
$$TITLE^XLFSTR | FINDUSER+10, ADDUSER+15, UPDU+5 |
$$UP^XLFSTR | FINDUSER+17, ADDUSER+21, UPDU+8 |
$$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) |
---|---|
^TMP("DIERR" | ADDU+2!, UPDU+2!, UPDU+19 |
^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+5, ADDU+9, UPDU+5, UPDU+6, UPDU+7, UPDU+8, UPDU+9, UPDU+10, UPDU+11 , UPDU+12, UPDU+13, SETCNTXT+9 |
^XWB(8994.5 - [#8994.5] | SETCNTXT+4 |
Name | Line Occurrences |
---|---|
$$ADDS | UPDU+11 |
$$ADDU | ADDUSER+23 |
$$AOIUID | TALL+46 |
$$AUTH | ADDUSER+6 |
$$GETCNTXT | SETCNTXT+2 |
$$SECMATCH | TALL+14 |
$$SETCNTXT | UPDU+14 |
$$TALL | FINDUSER+19 |
$$UPDU | TALL+20, TALL+31, TALL+42, TALL+54, ADDUSER+25 |
CLEAN | ADDUSER+26 |
SETREMAP | ADDUSER+28 |
>> | 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+3*, UPDU+1~ |
DIC(0 | ADDU+3*, UPDU+3* |
DIK | CLEAN+5!* |
DO | ADDU+1~ |
DT | FINDUSER+5~, FINDUSER+6* |
DUZ("LOA" | TALL+5, ADDUSER+7 |
DUZ("REMAPP" | ADDUSER+28, SETCNTXT+3* |
DUZ(0 | ADDU+6*, ADDU+8*, UPDU+16*, UPDU+18*, CLEAN+3*, CLEAN+6* |
DUZZERO | ADDU+1~, ADDU+6*, ADDU+8, UPDU+1~, UPDU+16*, UPDU+18, CLEAN+2~, CLEAN+3*, CLEAN+6 |
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+8*, ADDUSER+18, ADDUSER+20*, ADDUSER+25*, ADDUSER+26, UPDU+1~, UPDU+3* , UPDU+11*, UPDU+14*, UPDU+20, ADDS+1~, ADDS+2*, ADDS+5 |
FDR | UPDU+1~, UPDU+11, UPDU+17, 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+12*, UPDU+13*, ADDS+4*, SETREMAP+4* |
IEN | FINDUSER+5~, UPDU+1~, UPDU+4*, UPDU+5, UPDU+6, UPDU+7, UPDU+8, UPDU+9, UPDU+10, UPDU+12 , UPDU+13, UPDU+17!, 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+23*, ADDUSER+24, ADDUSER+25, ADDUSER+26, ADDUSER+27 , ADDUSER+28, ADDUSER+29, UPDU~, UPDU+4, UPDU+5, UPDU+6, UPDU+7, UPDU+8, UPDU+9, UPDU+10 , UPDU+11, UPDU+12, UPDU+13, UPDU+14, UPDU+21, 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 |
REMAPP | SETREMAP~, SETREMAP+4 |
SECID | TALL+1~, TALL+8*, TALL+13, TALL+14, SECMATCH~, SECMATCH+2, SECMATCH+5, SECMATCH+7 |
SID | ADDUSER+5~, ADDUSER+19* |
SSN | TALL+1~, TALL+10*, TALL+35, TALL+36, ADDS~, ADDS+3, ADDS+4 |
TODAY | FINDUSER+5~, FINDUSER+6* |
U | FINDUSER+6*, SECMATCH+7, UPNMATCH+7, AOIUID+7, NETMAIL+11, NETMAIL+12, UPDU+5, UPDU+6, UPDU+7, UPDU+8 , UPDU+9, UPDU+10, UPDU+11, UPDU+12, UPDU+13, 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+3*, 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+25, UPDU~ |
XATR(1 | FINDUSER+10*, ADDUSER+10, ADDUSER+15*, UPDU+5 |
XATR(10 | UPDU+12 |
XATR(11 | UPDU+13 |
XATR(2 | FINDUSER+8, FINDUSER+11*, TALL+6, ADDUSER+11, ADDUSER+16*, UPDU+6 |
XATR(3 | FINDUSER+8, FINDUSER+12*, TALL+7, ADDUSER+12, ADDUSER+17*, UPDU+7 |
XATR(4 | ADDUSER+13, ADDUSER+18, ADDUSER+19*, ADDUSER+20, ADDUSER+23 |
XATR(5 | UPDU+14 |
XATR(6 | FINDUSER+17*, ADDUSER+21*, UPDU+8 |
XATR(7 | FINDUSER+8, FINDUSER+18*, TALL+8, ADDUSER+22*, UPDU+9 |
XATR(8 | FINDUSER+8, TALL+9, UPDU+10 |
XATR(9 | FINDUSER+8, TALL+10, UPDU+11 |
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+3 |
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+10, 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* |