PRCPOPPP ;WISC/RFJ/DWA-move item from prim to seco to patient ;27 Sep 93
Source file <PRCPOPPP.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PRCP(445 - [#445] | SALE+14, INVPT+11, INVPT+12, INVPT+26* |
| ^PRCP(445.1 - [#445.1] | INVPT+15 |
| ^PRCP(445.3 - [#445.3] | SALE+24 |
| Name | Line Occurrences |
|---|---|
| INVPT | SALE+25, RECEIPT+15, RECEIPT+32 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| COST | RECEIPT+26~, RECEIPT+27*, RECEIPT+28, RECEIPT+35 |
| COSTCNTR | SALE+12~, SALE+14*, SALE+15 |
| DT | INVPT+15, INVPT+25 |
| ITEMDA | SALE~, SALE+18, SALE+25, RECEIPT~, RECEIPT+12, RECEIPT+15, RECEIPT+23, RECEIPT+32, RECEIPT+35, INVPT~ , INVPT+12, INVPT+15, INVPT+26, INVPT+29, INVPT+30, INVPT+35 |
| ITEMDATA | INVPT+10~, INVPT+12*, INVPT+18*, INVPT+19*, INVPT+20*, INVPT+23*, INVPT+24*, INVPT+25*, INVPT+26 |
| PRCPINPT | INVPT~, INVPT+11, INVPT+12, INVPT+15, INVPT+26, INVPT+29, INVPT+30, INVPT+35 |
| PRCPOPPP | SALE~, SALE+25, RECEIPT~, RECEIPT+15, RECEIPT+32, INVPT~, INVPT+35 |
| PRCPOPPP("DUEIN" | RECEIPT+29!, INVPT+30 |
| PRCPOPPP("DUEOUT" | INVPT+29 |
| PRCPOPPP("INVVAL" | SALE+15, SALE+18, RECEIPT+23, RECEIPT+27, RECEIPT+28*, INVPT+11*, INVPT+20, INVPT+34 |
| PRCPOPPP("NOINVPT" | SALE+21 |
| PRCPOPPP("ORDERDA" | SALE+24 |
| PRCPOPPP("OTHERPT" | SALE+15, RECEIPT+29! |
| PRCPOPPP("PRCPPTDA" | RECEIPT+18 |
| PRCPOPPP("QTY" | SALE+18, RECEIPT+12, RECEIPT+23, RECEIPT+27, RECEIPT+28*, INVPT+11*, INVPT+19 |
| PRCPOPPP("REASON" | RECEIPT+31* |
| PRCPOPPP("SELVAL" | RECEIPT+28*, INVPT+34* |
| PRCPPRIM | SALE~, SALE+14, SALE+15, SALE+18, SALE+25 |
| >> PRCPPTDA | RECEIPT+30, RECEIPT+35 |
| PRCPSECO | RECEIPT~, RECEIPT+12, RECEIPT+15, RECEIPT+23, RECEIPT+32 |
| QTY | RECEIPT+26~, RECEIPT+27*, RECEIPT+28, RECEIPT+35 |
| QUANTITY | INVPT+10~, INVPT+23*, INVPT+24 |
| TRANORDR | SALE~, SALE+25, RECEIPT~, RECEIPT+15, RECEIPT+32, INVPT~, INVPT+35 |
| TRANTYPE | INVPT~, INVPT+25, INVPT+35 |
| TYPE | SALE+12~, SALE+24*, SALE+25 |
| Y | RECEIPT+26~, RECEIPT+30*, RECEIPT+31 |
