DBIA909-B    ICR (1050)

The laboratory LMIP reports require that workload data be collected based on
Facility Treating Specialty #45.7 and Specialty #42.4. We determine this
information by looking at the ordering location.
We are asking permission to read the these files to obtain .01 field and the
field #6 CDR ACCOUNT field for certain reports.

The logic uses the ^SC(X,42) to determine if the location is a ward. If it is
the n use the Facility Treating specialty pointers to navigate to the data.
See DBIA909-A & DBIA909-C.

The laboratory package also needs to access the ACTIVE status of the entries
in the SPECIALTY file (#42.4).  This will be done using direct access via the
"ADATE" cross reference of the EFFECTIVE DATE multiple field and extracting
the data from the 0-node of the EFFECTIVE DATE multiple. The call will be to
ACTV^LRJSDX with the ien of the entry in file 42.4 and optionally an 'as of'
date passed into it.