DBIA2533 ICR (2533)

Name

Value

NUMBER

2533

IA #

2533

DATE CREATED

1998/09/08

CUSTODIAL PACKAGE

KERNEL

CUSTODIAL ISC

San Francisco

USAGE

Controlled Subscription

TYPE

Routine

DBIC APPROVAL STATUS

APPROVED

ROUTINE

XUSER

NAME

DBIA2533

GENERAL DESCRIPTION

DSS has permission to use the Kernel function
DIV4^XUSER according to the following:

XUSER   New file 200 API for DSS.
The call is S X=$$DIV4^XUSER(.ZZ[,duz])

Input: The first parameter is a local variable that
is passed by reference.
The second is an optional IEN to the New Person file.
If not passed it defaults to the current DUZ.

Output: Returns a 1 if the user has a Division entry
in the New Person file, else returns 0.
If it returns a 1 then the first parameter is an array
of IEN's for file 4 that have been assigned to the user.

STATUS

Active

DURATION

Till Otherwise Agreed

XUSER

COMPONENT/ENTRY POINT

COMPONENT DESCRIPTION

DIV4

Receives two parameters, the first is an Array name
passed by reference and the second is an optional DUZ.

DIV4^XUSER returns 1 to indicate that the array of pointers to the Institution
file has been defined and 0 to indicate that the array of pointers to the
Institution file has NOT been defined.


The array will be defined and left in the applications partition if the user
indicated by the value of the DUZ received has divisions defined in the
respective New Person file entry.  The format is ARRAY([^DIC(4 IEN]).

DUZ is an optional parameter.  If DUZ is not passed as a parameter, the
function will default to the value of DUZ in the application's partition.

An example of the function's use is:  S X=$$DIV4^XUSER(.ZZ,duz)

SUBSCRIBING PACKAGE

SUBSCRIBING PACKAGE	ISC	SUBSCRIBING DETAILS
DSS - DECISION SUPPORT SYSTEM EXTRACTS	Albany	Request permission for use of this function from the Kernel development team.
ORDER ENTRY/RESULTS REPORTING
VA CERTIFIED COMPONENTS - DSSI
LAB SERVICE
OUTPATIENT PHARMACY
VISTA INTEGRATION ADAPTOR
MYHEALTHEVET
ADVANCED PROSTHETICS ACQ TOOL		Added 10/3/24 effective with patch DSSO2.08 to support the determination of which Divisions the user is assigned to.
ABOVE PAR		Added 10/3/24 effective with patch DSIY1.56 to support the determination of which Divisions the user is assigned to.