DSIC ACTIVE USER LIST

TITLEVALUE
NAMEDSIC ACTIVE USER LIST
DESCRIPTIONThis will return a list of active users matching the lookup value. You
can pass in additional screening logic if so desired, such as security
keys.

It is the programmers responsibility to ensure that the total length of
the date returned in each return value does not exceed 250 characters.
TAGLIST
ROUTINEDSICDUZ
INPUT PARAMETERSSEQUENCE NUMBER1
INPUT PARAMETERVAL
DESCRIPTIONThis is the lookup value to find matches in file 200
PARAMETER TYPELITERAL
REQUIREDYES
MAXIMUM DATA LENGTH50

INPUT PARAMETERSSEQUENCE NUMBER2
INPUT PARAMETERSCR
DESCRIPTIONThis RPC will return a list of active users. You may wish additional
screening to occur. For example, return all active users matching SMITH
who also own a particular security key. Acceptable format of SCR():
SCR(n) = KEY^
SCR(n) = PARM^^
SCR(n) = M^^
PARAMETER TYPELIST
REQUIREDNO
MAXIMUM DATA LENGTH250

RETURN VALUE TYPEGLOBAL ARRAY
RETURN PARAMETER DESCRIPTIONData will be returned in ^TMP("DSIC",$J,"DILIST",n,0).

If a successful find for the lookup value, then return the following data:
^TMP("DSIC",$J,"DILIST",n,0) = p1^p2^p3^...^p8 for n=1,2,3,4,...
for the GUI, you will have List[n] := p1^p2^...^p8 for n=0,1,2,3,...
where
p1 = ien p5 = first m last p9 = division
p2 = name (.01 field) p6 = initials
p3 = sig block printed name p7 = title
p4 - sig block title p8 = service

If problems are encountered, then return
^TMP("DSIC",$J,"DILIST",1,0) = -1^message
If additional messages are provided then they will be at
^TMP("DSIC",$J,"DILIST",n,0) = message for n=2,3,4,5,...

If $Piece(List[0],"^",1) := -1 then there were problems, else the lookup
was successful.
AVAILABILITYAGREEMENT
INACTIVE
CLIENT MANAGER
WORD WRAP ONTRUE
VERSION
SUPPRESS RDV USER SETUP
APP PROXY ALLOWED