PRCHJR03 ;OI&T/LKG - PROCESS 2237 RETURN OR CANCEL FROM ECMS CONT. ;7/10/13 12:07
Source file <PRCHJR03.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 |
|---|---|---|
| LOGOMN | ;Log incoming OMN^O07 message
|
|
| LOGORN | ;Log Ack ORN^O08
|
|
| XECMSIDS(PRCIEN) | ;Removes eCMS identifiers
|
|
| ECMSRETN(PRCDA) | ;Processes eCMS return of 2237 already returned by IFCAP
; Ordering Officer or PPM Accountable Officer ; Input parameter PRCDA contains the IEN of the 2237 entry in ; file #410. ; This extrinsic function returns '0' if error or '1' if successful. ; As the 2237 was already returned, e-signatures were already stripped, ; dollars were already uncommitted and due-ins were already reversed. |
| FileNo | Call Tags |
|---|---|
| ^PRCS(410 - [#410] | WP^DIE |
| Name | Field # of Occurrence |
|---|---|
| ^("MIDDLENAME" | LOGOMN+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | XECMSIDS+5~ |
| PRCCNT | LOGORN+7~*, LOGORN+9* |
| PRCDA | ECMSRETN~, ECMSRETN+7, ECMSRETN+8 |
| PRCDATA | XECMSIDS+5~, XECMSIDS+7!, XECMSIDS+12!, ECMSRETN+8~, ECMSRETN+10!, ECMSRETN+12!, ECMSRETN+16! |
| PRCDATA( | XECMSIDS+10* |
| PRCDATA(1 | ECMSRETN+13* |
| PRCDATA(2 | ECMSRETN+14* |
| PRCDATA(410 | XECMSIDS+6*, ECMSRETN+9* |
| PRCDATA(443 | ECMSRETN+11* |
| PRCERR | XECMSIDS+5~, XECMSIDS+7!, XECMSIDS+11, XECMSIDS+12!, ECMSRETN+8~, ECMSRETN+10!, ECMSRETN+12!, ECMSRETN+16! |
| PRCERROR | XECMSIDS+5~, XECMSIDS+6*, XECMSIDS+7*, XECMSIDS+11*, XECMSIDS+13, ECMSRETN+8~*, ECMSRETN+10*, ECMSRETN+12*, ECMSRETN+16*, ECMSRETN+17 |
| PRCHJDA | XECMSIDS+5~, XECMSIDS+6*, XECMSIDS+10 |
| >> PRCHJERR | LOGORN+6 |
| >> PRCHJERR( | LOGORN+8, LOGORN+9 |
| >> PRCHJIND | LOGOMN+2, LOGOMN+3, LOGOMN+5, LOGOMN+6, LOGOMN+8, LOGOMN+9, LOGOMN+10, LOGOMN+11, LOGORN+2, LOGORN+3 , LOGORN+4, LOGORN+5, ECMSRETN+13, ECMSRETN+14 |
| >> PRCHJMDT | LOGOMN+4 |
| >> PRCHJMID | LOGOMN+4 |
| >> PRCHJNOW | LOGORN+4 |
| PRCI | LOGORN+7~*, LOGORN+8*, LOGORN+9, XECMSIDS+5~, XECMSIDS+8*, XECMSIDS+9*, XECMSIDS+10 |
| PRCIEN | XECMSIDS~, XECMSIDS+4, XECMSIDS+6, XECMSIDS+9, ECMSRETN+8~*, ECMSRETN+9, ECMSRETN+11, ECMSRETN+15 |
| PRCVAR1 | LOGOMN+1~, LOGOMN+2*, LOGOMN+12, LOGORN+1~, LOGORN+2*, LOGORN+10 |
| PRCVAR2 | LOGOMN+1~, LOGOMN+2*, LOGOMN+12, LOGORN+1~, LOGORN+2*, LOGORN+10 |
| PRCVAR3 | LOGOMN+1~, LOGOMN+3*, LOGOMN+12, LOGORN+1~, LOGORN+3*, LOGORN+10 |
| PRCVAR4 | LOGOMN+1~, LOGOMN+12, LOGORN+1~, LOGORN+10 |
| PRCVAR4("ECMSCM" | LOGOMN+11* |
| PRCVAR4("ECMSDT" | LOGOMN+9* |
| PRCVAR4("ECMSEM" | LOGOMN+8* |
| PRCVAR4("ECMSPH" | LOGOMN+8* |
| PRCVAR4("ECMSRN" | LOGOMN+10* |
| PRCVAR4("ECMSU" | LOGOMN+6*, LOGOMN+7* |
| PRCVAR4("ERROR" | LOGORN+9* |
| PRCVAR4("MSGDT" | LOGOMN+4*, LOGORN+4* |
| PRCVAR4("MSGID" | LOGOMN+4* |
| PRCVAR4("STN" | LOGOMN+5*, LOGORN+4* |
| PRCVAR4("SUBSTN" | LOGOMN+5*, LOGORN+5* |
| PRCVAR5 | LOGOMN+1~, LOGOMN+12, LOGORN+1~, LOGORN+10 |
| X | LOGOMN+1~ |
| Y | LOGOMN+1~ |
