| 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
|
| COMPONENT/ENTRY POINT |
| 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.
|
|
|