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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: USRLM

Package: Authorization Subscription

Routine: USRLM


Information

USRLM ; SLC/JER - User Class Membership functions and proc's ; 11/25/09

Source Information

Source file <USRLM.m>

Entry Points

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.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Already a member of this class"
  • Line Location: ISAWM+2
Function Call: WRITE
  • Prompt: !,"Warning: bad data. ",+USER," does not exist in file 200!"
  • Line Location: ISTERM+8
Function Call: WRITE
  • Prompt: " There are members of the class ",$$CLNAME(USRCLDA,+$G(NAME01))
  • Line Location: CANDEL+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] FIND1^DIC,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call