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 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
DBA Comments
12/29/15-MM:  The State Prescription Monitoring Program (SPMP)
Enhancement Project requested to add Outpatient Pharmacy to ICR #2533 for
PSO*7*451.  The patch will be using supported ICR #10060 for FileMan read
access to the New Person (#200) file fields needed for their patch and will
use the API in ICR #2533 to obtains all Divisions for a user as recommended by
Herlan.  He also recommend they use supported ICR #2171 for Institution (#4)
file data ($$WHAT~XUAF4) rather than global reads to DIC(4.

7/21/16-MM:  VIA added as a subscriber to ICR #2533 for VIAB*1.0*7.

3/27/17-MM:  Added MHV as a subscriber to ICR #2533 for MHV*1*29.  MHV Secure
Messaging project is  enhancing its Provider lookup interface to retrieve
from VistA  among other field values.
MAIL MESSAGE 27823643
DATE/TIME EDITED
DATE/TIME EDITED ACTION AT THE REQUEST OF WITH CONCURRENCE OF
2015/12/29 10:09 SUBSCRIBER ADDED ANWER,MOHAMED WESTRA,HERLAN
2016/07/21 11:45 SUBSCRIBER ADDED MORRISON,JENNIFER WESTRA,HERLAN
2017/03/27 11:37 SUBSCRIBER ADDED BUCIMAN,LIANA DIMICELI,RON
Generated from JAN 24, 2019@ IA Listing Descriptions