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 |