|DBIC APPROVAL STATUS
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.
||Till Otherwise Agreed
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)
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.
||AT THE REQUEST OF
||WITH CONCURRENCE OF