USRLM ; SLC/JER - User Class Membership functions and proc's ; 11/25/09
Source file <USRLM.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
ISA(USER,CLASS,ERR,USRDT) | ; Boolean - Is USER a Member of CLASS?
|
|
ISAX | ||
ISAWM(USER,CLASS) | ; Boolean - Is USER a Member of CLASS, with message.
|
|
CURRENT(MEMBER,USRDT) | ; Boolean - Is Membership current?
|
|
ISTERM(USER,ERR) | ;Return true if USER (DUZ or IEN in file 200) has a termination date
; and that date is less than the current date and time. |
|
ISTERMX | ;
|
|
RESIZE(LONG,SHORT,SHRINK) | ; Resizes list area
|
|
TERM | ;USR actions to be taken when a user is terminated. Invoked by
|
|
WHOIS(MEMBER,CLASS,NAME01) | ; Given a Class, set array of CURRENT members. Used in CANDEL.
; CLASS is pointer to file 8930 ; MEMBER is name of array (local or global) in which members are ; returned in alphabetical order by name ; NAME01 is optional. If NAME01>0 use .01 Class Name in returned data. |
|
WHOIS2(MEMBER,USRCLASS,NAME01) | ;Given a Class, return list of CURRENT members
; Uses WHOISTMP^USRLM1 (and XREF ACU) ; USRCLASS is pointer to file 8930 ; MEMBER is name of array (local or global) in which members are ; returned in alphabetical order by name - indexed by number ; i.e. @MEMBER@(1 ...n) ; @member@(0) = ien of8930^usr class name^count of members ; @member@(1..n)= ; 1 2 3 4 5 6 7 8 ; p200^p8930.3^classname^effectdate^inactdate^username^title^mailcode ; Note: For pieces 2,4 & 5 - Only one of potentially many is returned ; NAME01 is optional. If NAME01>0 use .01 Class Name in returned data. |
|
WHATIS(USER,CLASS,NAME01) | ; Given a User, set array of classes USER belongs to
; USER is pointer to file 200 ; CLASS is name of the array (local or global) to be set. ; Array is set in alpha order ; by name(display name or class name)in uppercase. Numeric indicator is appended to name ; to accomodate multiple memberships over time in the same class. ; ARRAY(Uppername_indicator)=UserClassIEN^MembershipIEN^name^EffectDt^ExpireDt ; NAME01 is optional. If NAME01>0 use .01 Class Name ; Otherwise, use Display Name |
|
CLNAME(CLASS,NAME01) | ; Given a class, return the Display Name or
; NAME01 is optional. If NAME01>0 use .01 Class Name in returned data. |
|
PUT(USER,CLASS) | ; Make user a member of a given class
|
|
SUBCLASS(DA,CLASS) | ; Evaluate whether a given USER CLASS is a DESCENDENT
; of another class ; Receives DA = record # of possible subclass in 8930, and ; CLASS = record # of possible descendent class in 8930 |
|
CANDEL(USRCLDA,NAME01) | ; Evaluate whether user can delete a class. Can't find where it's used.
; NAME01 is optional. If NAME01>0 use .01 Class Name in returned data. |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | FIND1^DIC, GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^TMP("USRWHATIS" | WHATIS+10!, WHATIS+22*, WHATIS+23, WHATIS+25, WHATIS+28, WHATIS+30, WHATIS+32, WHATIS+35! |
^TMP("USRWHO" | WHOIS2+16, WHOIS2+17, WHOIS2+19, WHOIS2+20, WHOIS2+22! |
^USR(8930 - [#8930] | ISA+2, ISA+6, ISA+18, ISA+19, CLNAME+3, SUBCLASS+5, SUBCLASS+6, SUBCLASS+7 |
^USR(8930.3 - [#8930.3] | ISA+10, ISA+13, CURRENT+3, CURRENT+4, TERM+6, TERM+7, TERM+9*, WHATIS+12, WHATIS+14, WHATIS+16 , WHATIS+17 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CLASS | ISA~, ISA+2, ISA+6*, ISA+7, ISA+10, ISA+13, ISA+18, ISA+19, ISAWM~, ISAWM+1 , WHOIS~, WHOIS+5, WHATIS~, WHATIS+32, WHATIS+34, CLNAME~, CLNAME+3, PUT~, PUT+3, SUBCLASS~ , SUBCLASS+6*, SUBCLASS+8, SUBCLASS+9 |
CLASSCNT | WHATIS+9~, WHATIS+11*, WHATIS+33*, WHATIS+34 |
CLASSNM | WHATIS+9~, WHATIS+20*, WHATIS+21 |
DA | PUT+1~, PUT+3*, SUBCLASS~, SUBCLASS+5*, SUBCLASS+7 |
DIC | PUT+1~, PUT+2*, PUT+3 |
DIC(0 | PUT+2* |
DIE | PUT+1~, PUT+3* |
DLAYGO | PUT+1~, PUT+2* |
DR | PUT+1~, PUT+3* |
DT | CURRENT+2, TERM+4, WHATIS+16, WHATIS+18, WHATIS+19, PUT+3 |
EFFCTV | WHOIS2+13~, WHATIS+9~, WHATIS+16*, WHATIS+18, WHATIS+19, WHATIS+21, WHATIS+22, WHATIS+27*, WHATIS+28*, WHATIS+30 , WHATIS+32 |
EFFCTV1 | WHATIS+9~, WHATIS+15*, WHATIS+16*, WHATIS+22 |
ERR | ISA~, ISA+5*, ISA+7*, ISTERM~, ISTERM+6* |
ERR("DIERR" | ISTERM+5 |
EXPIRES | WHOIS2+13~, WHATIS+9~, WHATIS+17*, WHATIS+18, WHATIS+21, WHATIS+22, WHATIS+29*, WHATIS+30*, WHATIS+32 |
GROUP | WHATIS+9~, WHATIS+11*, WHATIS+12*, WHATIS+14, WHATIS+20, WHATIS+21 |
HUSH | ISTERM+2~, ISTERM+7*, ISTERM+8 |
IENS | ISTERM+2~, ISTERM+4* |
IND | TERM+3~, TERM+5*, TERM+6*, TERM+7, TERM+9, WHATIS+9~, WHATIS+11*, WHATIS+31*, WHATIS+32 |
LONG | RESIZE~, RESIZE+1 |
MEMBER | CURRENT~, CURRENT+3, CURRENT+4, WHOIS~, WHOIS+5, WHOIS2~, WHOIS2+19, WHOIS2+20, WHOIS2+21* |
NAME01 | WHOIS~, WHOIS+5, WHOIS2~, WHOIS2+14, WHATIS~, WHATIS+11*, WHATIS+20, CLNAME~, CLNAME+4, CANDEL~ , CANDEL+3, CANDEL+4 |
NOW | TERM+3~, TERM+4*, TERM+8, TERM+9 |
OLDTERM | TERM+3~, TERM+7*, TERM+8 |
SHORT | RESIZE~, RESIZE+1 |
SHRINK | RESIZE~, RESIZE+1 |
TERM | ISTERM+2~, ISTERM+3*, ISTERM+9*, ISTERMX+1 |
TERMDATE | ISTERM+2~, ISTERM+3*, ISTERM+4*, ISTERM+9 |
TMPDATA | WHATIS+9~, WHATIS+21*, WHATIS+22 |
U | CURRENT+3, CURRENT+4, TERM+7, TERM+9, WHOIS2+21, WHATIS+16, WHATIS+17, WHATIS+21, WHATIS+34, CLNAME+4 , CANDEL+4 |
UPCLASNM | WHATIS+9~, WHATIS+20*, WHATIS+22, WHATIS+24*, WHATIS+25*, WHATIS+28, WHATIS+30, WHATIS+32 |
USER | ISA~, ISA+4*, ISA+5, ISA+10, ISA+13, ISA+20, ISAWM~, ISAWM+1, ISTERM~, ISTERM+4 , ISTERM+8, WHOIS2+13~, WHOIS2+17*, WHOIS2+19, WHATIS~, WHATIS+12, WHATIS+14, WHATIS+34, PUT~, PUT+2 |
USRBM | RESIZE+1~*, RESIZE+2, RESIZE+3 |
USRCLASS | WHOIS2~, WHOIS2+14 |
USRCLDA | CANDEL~, CANDEL+3, CANDEL+4 |
USRCUR | WHATIS+9~, WHATIS+15*, WHATIS+18*, WHATIS+19*, WHATIS+22, WHATIS+26*, WHATIS+28, WHATIS+30, WHATIS+32 |
USRDA | WHOIS2+13~, WHATIS+9~, WHATIS+13*, WHATIS+14*, WHATIS+16, WHATIS+17, WHATIS+21 |
USRDT | ISA~, ISA+14, ISA+20, CURRENT~, CURRENT+2*, CURRENT+5 |
USRERR | ISA+4! |
USRI | ISA+1~, ISA+17*, ISA+18*, ISA+19, WHOIS2+13~, SUBCLASS+4~*, SUBCLASS+7*, SUBCLASS+8, SUBCLASS+9 |
USRIN | CURRENT+1~, CURRENT+3*, CURRENT+5 |
USRMDA | ISA+11~, ISA+12*, ISA+13*, ISA+14 |
USRMLST | CANDEL+2~ |
USRMLST(0 | CANDEL+4 |
USRNDX | WHOIS2+13~, WHOIS2+15*, WHOIS2+18*, WHOIS2+19, WHOIS2+21 |
USRNM | WHOIS2+13~, WHOIS2+15*, WHOIS2+16*, WHOIS2+17 |
USROUT | CURRENT+1~, CURRENT+4*, CURRENT+5 |
USRREC | CLNAME+2~, CLNAME+3*, CLNAME+4 |
USRSUB | ISA+19~*, ISA+20 |
USRY | ISA+1~, ISA+2*, ISA+9*, ISA+13, ISA+14*, ISA+15, ISA+18, ISA+20*, ISAX, CURRENT+1~ , CURRENT+5*, CURRENT+6*, CURRENT+7, CLNAME+2~, SUBCLASS+4~*, SUBCLASS+7, SUBCLASS+8*, SUBCLASS+9*, SUBCLASS+10, CANDEL+2~* , CANDEL+4*, CANDEL+5 |
>> VALM("BM" | RESIZE+2, RESIZE+3* |
>> VALM("LINES" | RESIZE+3* |
>> VALM("TM" | RESIZE+3 |
>> VALMBCK | RESIZE+2* |
>> VALMCC | RESIZE+4 |
>> VALMMENU | RESIZE+1 |
X | PUT+1~, PUT+2* |
>> XUIFN | TERM+6 |
Y | PUT+1~, PUT+2, PUT+3 |