| GENERAL DESCRIPTION |
Drug Accountability, V2.0, has established agreement
with IFCAP to make the following calls:
IFCAP inventory provides a Primary Inventory Point with the SPECIAL INVENTORY
POINT TYPE = "D" for Drug Accountability, the ability to update a Drug
Accountability Location with all receiving activity. IFCAP has added two new
fields to the INVENTORY ITEM multiple in the GENERIC INVENTORY file (#445),
the DISPENSING UNIT and DISPENSING UNIT CONV FACTOR.
Each item that a Primary Inventory Point receives, the IFCAP routines
PRCPPOL1, PRCPWPL4, PRCPWPP3, and PRCPUUIW call EN^PSAGIP to update drug
accountability. It is here that Drug Accountability is called (EN^PSAGIP)
passing the Primary Inventory Point, the item, the quantity*dispensing unit
conv factor, the PO#, the CP transaction #, the inventory transaction #, and
the total price and in some cases the NDC. Drug Accountability adds each item
received to a temporary global. After the receipt is processed, the IFCAP
routines PRCPAWI1, PRCPPOL1, PRCPWPL5, and PRCPWPP3 call EX^PSAGIP to complete
the drug accountability update. At this time a task is started, looping
through the temporary global and either updating the Drug Accountability
Location or building and sending a mailman message listing those items that
could not be updated and why. In version 2.0 of Drug Accountability the cost
center screen on the Primary Inventory pointer in the DRUG ACCOUNTABILITY
STATS file (#58.8) has been replaced with the "D" for special inventory type.
Also the IFCAP security variable, PRCPPRIV is used to enable this pointer.
^DD(58.8445,.01,0) = PRIMARY INVENTORY POINT(S)^M*P445'X ^PRCP(445,^0;1^S
PRCPPRIV=1,DIC("S")="I $P(^(0),U,20)=""D""" D ^DIC K DIC S DIC=DIE,X=+Y K
PRCPPRIV K:Y<0 X S:$D(X) DINUM=X
Wherever available, calls to IFCAP extrinsics have replaced Drug
Accountability version 1.0 look-ups to ^PRC globals. The IFCAP inventory
routine PRCPUX1 is called extensively throughout the Drug Accountability
package at the following line tags:
UNITVAL(V1,V2,V3) ; unit per issue for values passed as follows
; v1=packaging multiple, v2=units da,
; v3=delimiter;
UNITCODE(V1) ; get 2 character unit code from file 420.5
; for entry v1;
NSN(V1) ; return nsn for item v1;
DESCR(V1,V2) ; description from inventory point or item
; master file for item v2 and inventory point
; v1;
INVNAME(V1) ; inventory point name for inventory point v1;
VENNAME(V1) ; return vendor name for da;global (445 or
; 440).
|