DBIA922    ICR (922)

This agreement will be retired on 12/31/2006. Please do
not add any additional code that utilizes this Integration Agreement. APIs
have been created that can be used in place of any code needing to make use of
this agreement. These APIs were released with patch PSS*1*101. Documentation
information can be found in the patch description. In addition, any code that
currently utilizes this Integration Agreement must be converted to use the new
API's. If any part of this Integration Agreement cannot be satisfied with the
APIs, please contact the PRE development team mail group at EMAIL GROUP
DEV using Microsoft Outlook.


All fields and x-refs in file 55 have global read access by the subscribing
packages.

This DBIA retirement only applies to non-pharmacy packages. Pharmacy packages
are still allowed to utilize this agreement past the expiration date of
December 31, 2006

Read only access to the following nodes in the Pharmacy Patient file #55.

All these references are found in routines LRBLPE1 and LRBLPH.

^PS(55,DFN,"IV",X,"AD",Y,0)

K ^TMP($J) F X=0:0 S X=$O(^PS(55,DFN,"IV",X)) Q:'X!(R[U)  F Y=0:0
S Y=$O(^PS(55,DFN,"IV",X,"AD",Y)) Q:'Y!(R[U)  S ^TMP($J,+^(Y,0))=""

^PS(55,DFN,5,X,1,Y,0)

K ^TMP($J) F X=0:0 S X=$O(^PS(55,DFN,5,X)) Q:'X!(R[U)  F Y=0:0
S Y=$O(^PS(55,DFN,X,1,Y)) Q:'Y!(R[U)  S ^TMP($J,+^(Y,0)=""

NOTE: Inpatient Medication allows direct access to the Inpatient Medication
data, with the understanding that this structure may change in Inpatient Meds
version 5.0. If a change is necessary, Lab will need to supply a patch to call
an Inpatient utility to provide this data rather than directly accessing the
global.