PRCPOPPP ;WISC/RFJ/DWA-move item from prim to seco to patient ;27 Sep 93
Source file <PRCPOPPP.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SALE(PRCPPRIM,ITEMDA,TRANORDR,PRCPOPPP) | ; post item for primary sale
; tranordr=transaction register # ; prcpoppp("qty") = qty to sale (include minus for sale) ; prcpoppp("invval") = inv value sold (include minus for sale) ; prcpoppp("orderda")= ien of ordernumber in 445.3 (used for type) ; prcpoppp("otherpt") = inv pt sold to ; prcpoppp("dueout") = dueout qty to add (- to subtract) ; prcpoppp("reason") = 0:reason for transaction register ; prcpoppp("noinvpt") = set to 1 to prevent from updating invpt ; locks to inventory pt prcpprim need to be applied before entry |
|
| RECEIPT(PRCPSECO,ITEMDA,TRANORDR,PRCPOPPP) | ; receive items
; tranordr=transaction register # ; prcpoppp("qty") = qty to receive ; prcpoppp("invval") = inv value received ; prcpoppp("otherpt") = inv pt received from ; prcpoppp("duein") = duein qty to add (- to subtract) ; prcpoppp("reason") = 0:reason for transaction register ; for patient distributions: ; prcpoppp("prcpptda") = ptr to file 446.1 (patient distribution) ; locks to inventory pt prcpseco need to be applied before entry |
|
| INVPT(PRCPINPT,ITEMDA,TRANTYPE,TRANORDR,PRCPOPPP) | ; update inventory point data
; trantype=type of transaction; tranordr=transaction register # ; prcpoppp("qty") = qty to add to inventory point ; prcpoppp("invval") = value to add to inventory point ; prcpoppp("otherpt") = inv pt sold to (for transaction register) ; prcpoppp("dueout") = qty to add to dueout ; prcpoppp("duein") = qty to add to duein ; prcpoppp("reason") = 0:reason for transaction register ; locks to inventory pt prcpinpt need to be applied before entry |
