PRCVPOU ;WOIFO/AS-SEND PO AMENDMENT TO DYNAMED ; 01/24/05
Source file <PRCVPOU.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 |
|---|---|---|
| ENT(PRCHPO,PRCHAM) | ;
|
|
| E22 | ;Line Item Delete
|
|
| E23 | ;Line Item Edit
; If delivery date changed, send all items, Quit |
|
| E31 | ; Change Vendor
; Send new vendor only ; New vendor already in 442 ; No need to find it elsewhere |
|
| E32 | ; Replace PO Number
; Send new PO number information including DynaMed Doc ID |
|
| E34 | ; Authority Edit
|
|
| HEADER | ;
; Get PO header information |
|
| ITEM | ;
|
|
| ALLITEM | ;
; If header level amendment, send all items to DynaMed ; 1. Collect all deleted item |
|
| SEND | ;
; Do not send if no item collected |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PRC(442 - [#442] | ENT+7, E22+2, E22+4, E22+5, E22+15, E23+6, E23+8, E23+9, E32+2, E34+4 , E34+7, HEADER+6, ALLITEM+4, ALLITEM+6, ALLITEM+8, ALLITEM+9, ALLITEM+12 |
| ^TMP("ASU442A" | SEND+3* |
| ^TMP("PRCV442A" | E22+1!, E22+10, E22+12, E23+18, E23+21, HEADER+4*, HEADER+6*, ALLITEM+3!, ALLITEM+14, ALLITEM+16 , SEND+2, SEND+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ALL | ENT+1~, E23+2*, E31+4*, E32+5*, E34+5*, E34+9*, ALLITEM+14 |
| AMD | ENT+1~, ALLITEM+4*, ALLITEM+6, ALLITEM+8, ALLITEM+9 |
| AMEND | ENT+1~, ENT+2*, ENT+7*, ENT+8 |
| CHG | ENT+1~, E22+3*, E22+4*, E22+5, E23+7*, E23+8*, E23+9, ALLITEM+7*, ALLITEM+8*, ALLITEM+9 |
| DA | ENT+1~, ENT+2* |
| DIC | ENT+1~, ENT+2* |
| DIQ | ENT+1~, ENT+2* |
| DIQ(0 | ENT+2* |
| DONE | ENT+1~, ENT+4*, E23+21*, E31+5*, E34+1 |
| DR | ENT+1~, ENT+2* |
| EXT | ENT+1~, ENT+4*, ENT+5*, ENT+6*, E23+2, E34+4, ITEM+1 |
| FLD | ENT+1~, E22+1*, E22+2*, E22+4, E23+4*, E23+6*, E23+8, ALLITEM+5*, ALLITEM+6*, ALLITEM+8 |
| ITM | ENT+1~, E22+5*, E22+6, E22+10, E23+9*, E23+11, E23+14*, E23+15*, E23+18, ITEM+1 , ALLITEM+9*, ALLITEM+10, ALLITEM+12*, ALLITEM+13, ALLITEM+14 |
| NPO | ENT+1~, E32+2*, E32+3, E32+4 |
| NXT | ENT+1~, ENT+8*, ENT+9 |
| >> PRCFA("DLVDATE" | E23+2, E34+4 |
| PRCHAM | ENT~, ENT+7, E22+2, E22+4, E22+5, E22+15, E23+6, E23+8, E23+9, E34+4 , E34+7, HEADER+6 |
| PRCHPO | ENT~, ENT+2, ENT+4, ENT+5, ENT+6, ENT+7, E22+1, E22+2, E22+4, E22+5 , E22+10, E22+12, E22+15, E23+6, E23+8, E23+9, E23+18, E23+21, E32+2, E32+4* , E34+4, E34+7, HEADER+2, HEADER+4, HEADER+6, ITEM+1, ALLITEM+3, ALLITEM+4, ALLITEM+6, ALLITEM+8 , ALLITEM+9, ALLITEM+12, ALLITEM+14, ALLITEM+16, SEND+2, SEND+4 |
| PRCV | ENT+1~ |
| PRCV("DEL" | E22+1!, E22+6*, E23+11, ALLITEM+3!, ALLITEM+10*, ALLITEM+13 |
| PRCV("EDT" | E23+4!, E23+11*, E23+15 |
| PRCVP | ENT+1~ |
| PRCVP(442 | ENT+4, ENT+5, ENT+6 |
| Name | Field # of Occurrence |
|---|---|
| $T(@NXT | ENT+9 |