Print Page as PDF
DBIA2533 ICR (2533)

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
ID XUSER
COMPONENT/ENTRY POINT
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