Print Page as PDF
DBIA922 ICR (922)

DBIA922    ICR (922)

Name Value
NUMBER 922
IA # 922
FILE NUMBER 55
GLOBAL ROOT PS(55
DATE CREATED 1994/07/27
CUSTODIAL PACKAGE PHARMACY DATA MANAGEMENT
CUSTODIAL ISC Birmingham
USAGE Private
TYPE File
NAME DBIA922
ORIGINAL NUMBER 922
GENERAL DESCRIPTION
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 VHA OI SDD PHARM
REENG 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.
GLOBAL REFERENCE
GLOBAL REFERENCE FIELD NUMBER
PS(55,dfn,'IV',x,'AD',y,0)
FIELD NUMBER ACCESS FIELD NAME LOCATION
.01 Direct Global Read & w/Fileman ADDITIVE 0;1
PS(55,dfn,5,x,1,y,0)
FIELD NUMBER ACCESS FIELD NAME LOCATION
.01 Direct Global Read & w/Fileman DRUG 0;1
STATUS Retired
DURATION Till Otherwise Agreed
EXPIRATION DATE 2006/12/31
ID PS(55
SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE ISC
LAB SERVICE Dallas
MAIL MESSAGE 11333992