DBIA2194 ICR (2194)

Name

Value

NUMBER

2194

IA #

2194

DATE CREATED

1997/10/22

CUSTODIAL PACKAGE

INPATIENT MEDICATIONS

CUSTODIAL ISC

Birmingham

USAGE

Private

TYPE

Routine

ROUTINE

PSGPLF

NAME

DBIA2194

GENERAL DESCRIPTION

Drug Accountability/Inventory Interface is requesting
an integration agreement with Inpatient Medications to insert a line of code
in routine PSGPLF. This code is used to collect Unit Dose dispensing, returns,
extras, & pre-exchange needs.

Existing Code at FILE+9
-----------------------
S $P(ND,"^",2+PS)=$P(ND,"^",2+PS)+Y,$P(ND,"^",3+PS)=$P(ND,"^",3+PS)+COSD
1,1,D2,1,D3,0) G:Z OS

Inserted Code at FILE+9:FILE+12
------------------------------
S $P(ND,"^",2+PS)=$P(ND,"^",2+PS)+PSGY,$P(ND,"^",3+PS)=$P(ND,"^",3+PS)
+COST,^PS(57.6,D0,1,D1,1,D2,1,D3,0)=ND L -^PS(57.6,D0,1,D1,1,D2,1,D3,0)
I +$$VERSION^XPDUTL("DRUG ACCOUNTABILITY")'<3.0 D
.I $D(^%ZOSF("TEST")) S X="PSAPSI5" X ^%ZOSF("TEST") K X I  S PSGRTN=
"PSGPLF" D EN^PSAPSI5 K PSGRTN
G:PSGZ OS

STATUS

Pending

DURATION

Till Otherwise Agreed

PSGPLF

COMPONENT/ENTRY POINT

COMPONENT DESCRIPTION

VARIABLES

FILE+9:FILE+12

FILE+9 is broken before G:PSGZ OS. The inserted code
is executed only if Drug Accountability/Inventory V. 3.0 or greater is
installed. If so, a check for the existence of routine PSAPSI5 is made. If the
routine is on the system EN^PSAPSI5 is executed. G:PSGZ OS is places at
FILE+12.

Inserted Code at FILE+9:FILE+12
------------------------------
S $P(ND,"^",2+PS)=$P(ND,"^",2+PS)+PSGY,$P(ND,"^",3+PS)=$P(ND,"^",3+PS)
+COST,^PS(57.6,D0,1,D1,1,D2,1,D3,0)=ND L -^PS(57.6,D0,1,D1,1,D2,1,D3,0)
I +$$VERSION^XPDUTL("DRUG ACCOUNTABILITY")'<3.0 D
.I $D(^%ZOSF("TEST")) S X="PSAPSI5" X ^%ZOSF("TEST") K X I  S PSGRTN=
"PSGPLF" D EN^PSAPSI5 K PSGRTN
G:PSGZ OS

VARIABLES	TYPE	VARIABLES DESCRIPTION
D3	Input	D3 is the drug internal entry number in the DRUG file (#50). It is passed from PSGPLF to PSAPSI5. It is used to determine if the drug is stored in the pharmacy location. If so, D3 is stored in the ^XTMP("PSAPL") global along with its dispensing data.
D1	Input	D1 is the ward's internal entry number in the WARD LOCATION file (#42). It is passed from PSGPLF to PSAPSI5. It is used to determine if the ward is assigned to the pharmacy location.
D0	Input	D0 is the file date of the pick list. It is stored in the ^XTMP("PSAPL") global.
Y	Input	Y is the number of dispense units. It is stored in the ^XTMP("PSAPL") global.

SUBSCRIBING PACKAGE

SUBSCRIBING PACKAGE	ISC
DRUG ACCOUNTABILITY	Birmingham