PRCOEDI ;WISC/DJM-IFCAP EDI ENTRY ROUTINE ; 7/21/99 11:24am
Source file <PRCOEDI.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 |
|---|---|---|
| V | ;;5.1;IFCAP;;Oct 20, 2000
|
|
| NEW | ||
| EXIT | ||
| VDEC(VALUE,LENGTH) | ;
; EXTRINSIC FUNCTION TO CONVERT NUMBER WITH DECIMAL INTO VIRTUAL ; DECIMAL. |
|
| EXIT1 | ||
| ENTER(ENTRY,TRANS,XMZ,VENDOR,SENDER,POINTER,RFQ,TXT) | ;
|
|
| STOP | ||
| UPDATE | ; COME HERE TO UPDATE AN EXISTING RECORD IN FILE 443.75.
|
| Name | Field # of Occurrence |
|---|---|
| ^%DT | ENTER+69, UPDATE+5 |
| EN^DDIOL | NEW+46 |
| UPDATE^DIE | ENTER+60, ENTER+81, UPDATE+8 |
| BI^PRCOE1 | NEW+29 |
| ST^PRCOE1 | NEW+31 |
| VE^PRCOE1 | NEW+30 |
| IT^PRCOE2 | NEW+34 |
| CO^PRCOE3 | NEW+35 |
| HE^PRCOE3 | NEW+28 |
| MI^PRCOE3 | NEW+32 |
| AC^PRCOE4 | NEW+33 |
| ENTER^PRCOEDI | NEW+62 |
| TRANSMIT^PRCPSMCS | NEW+47 |
| $$NET^XMRENT | ENTER+67, UPDATE+3 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PRC(411 - [#411] | NEW+38 |
| ^PRC(440 - [#440] | NEW+41, NEW+61 |
| ^PRC(442 - [#442] | NEW+8, NEW+16, NEW+18, NEW+23, NEW+25*, NEW+37, NEW+45, NEW+49*, NEW+62 |
| ^PRC(443.75 - [#443.75] | ENTER+38, ENTER+43, ENTER+48, ENTER+54, ENTER+57, ENTER+62, ENTER+66, ENTER+82, UPDATE+7, UPDATE+9 |
| ^TMP($J | NEW+21!, EXIT+1! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %DT | ENTER+68*, UPDATE+4* |
| A | NEW~, NEW+8*, NEW+9, NEW+10, NEW+14, NEW+29, NEW+31, NEW+33, NEW+43, NEW+55 |
| A1 | NEW~, NEW+18*, NEW+19, NEW+20, NEW+30, NEW+31, NEW+33, NEW+40, NEW+58, NEW+60 |
| A12 | NEW~, NEW+23*, NEW+24, NEW+25* |
| AMEND | NEW~, NEW+6*, NEW+7*, NEW+9, NEW+15, NEW+19, NEW+24, NEW+25, NEW+41, NEW+45 , NEW+46, NEW+50, EXIT |
| CSDA | NEW~ |
| DT | NEW+11, NEW+12 |
| ENTRY | ENTER~, ENTER+38, ENTER+43, ENTER+48, ENTER+71 |
| I | ENTER+31~, ENTER+54* |
| IEN | NEW~, NEW+37*, NEW+38, ENTER+31~, ENTER+32*, ENTER+37, ENTER+38*, ENTER+39, ENTER+42, ENTER+43* , ENTER+44, ENTER+47, ENTER+48*, ENTER+49, UPDATE+1, UPDATE+7, UPDATE+9 |
| LENGTH | VDEC~, VDEC+12*, VDEC+13, VDEC+14, VDEC+15 |
| MO | NEW~, NEW+12*, NEW+13 |
| POINTER | ENTER~, ENTER+78, ENTER+79 |
| PRC | NEW~, ENTER+31~ |
| PRC("FY" | NEW+13* |
| PRC("SITE" | NEW+10*, NEW+37, NEW+42 |
| PRC(1 | ENTER+58*, ENTER+70*, ENTER+71*, ENTER+72*, ENTER+73*, ENTER+74*, ENTER+75*, ENTER+76*, ENTER+77*, ENTER+78* , ENTER+79*, ENTER+80*, UPDATE+1*, UPDATE+2*, UPDATE+6* |
| PRC(2 | ENTER+59*, ENTER+61 |
| PRCDA | ENTER+31~, ENTER+61*, ENTER+66, ENTER+80, ENTER+82 |
| PRCFA | NEW~ |
| PRCFASYS | NEW~ |
| PRCNO | ENTER+31~, ENTER+56!, ENTER+57*, ENTER+58 |
| >> PRCOPODA | NEW+3, NEW+5, NEW+7, NEW+28 |
| PRCOUT | EXIT+1! |
| PRCPXMZ | NEW~ |
| PRCPXMZ( | NEW+49, NEW+57 |
| PRCPXMZ(0 | NEW+48 |
| PTSW | NEW~, NEW+38*, NEW+44, NEW+45 |
| RECORD | NEW~, NEW+16*, NEW+17 |
| REQUEST | NEW+1~, NEW+15, NEW+17* |
| RFQ | ENTER~, ENTER+43, ENTER+76 |
| SENDER | ENTER~, ENTER+75 |
| SERVICE | NEW+1~, NEW+14*, NEW+15, NEW+16 |
| TEST | NEW+1~ |
| TOTAL | NEW+1~, NEW+34*, NEW+35 |
| TRANS | ENTER~, ENTER+37, ENTER+38, ENTER+42, ENTER+43, ENTER+47, ENTER+48, ENTER+72, ENTER+76, ENTER+78 , ENTER+79 |
| TXT | ENTER~, ENTER+48, ENTER+77 |
| U | NEW+10, NEW+14, NEW+17, NEW+20, NEW+24, NEW+25, NEW+37, NEW+38, NEW+40, NEW+41 , NEW+43, NEW+45, NEW+49, NEW+55, NEW+58, NEW+60, NEW+61, NEW+62, ENTER+67, UPDATE+3 |
| V1 | NEW+1~, NEW+41*, VDEC+9~, VDEC+10*, VDEC+11*, EXIT1 |
| V2 | NEW+1~, NEW+39*, NEW+41*, NEW+45, NEW+62, VDEC+9~, VDEC+10*, VDEC+11*, VDEC+12*, VDEC+13* , VDEC+14*, VDEC+15*, EXIT1 |
| V3 | NEW+1~, NEW+43*, NEW+47, NEW+57*, NEW+62 |
| V4 | NEW+1~, NEW+44*, NEW+45*, NEW+47, NEW+61*, NEW+62 |
| V5 | NEW+1~, NEW+58*, NEW+62 |
| V6 | NEW+1~, NEW+59*, NEW+62 |
| VALUE | VDEC~, VDEC+10, VDEC+11 |
| VAR1 | NEW+1~, NEW+3*, NEW+8, NEW+16, NEW+18, NEW+23, NEW+25, NEW+29, NEW+31, NEW+32 , NEW+33, NEW+34, NEW+35, NEW+37, NEW+45, NEW+49, NEW+59, NEW+62 |
| VAR2 | NEW+1~, NEW+22*, NEW+28, NEW+29, NEW+30, NEW+31, NEW+32, NEW+33, NEW+34, NEW+35 , EXIT |
| VAR3 | NEW+1~, NEW+60*, NEW+61 |
| VEN | NEW+1~, NEW+40*, NEW+41 |
| VENDOR | ENTER~, ENTER+38, ENTER+43, ENTER+48, ENTER+73 |
| W1 | NEW+2~, NEW+42*, NEW+47, NEW+55*, NEW+62 |
| W2 | NEW+2~, NEW+4*, NEW+5*, NEW+9, NEW+15, NEW+19, NEW+20, NEW+46, NEW+47, NEW+56* , NEW+62, EXIT |
| >> X | ENTER+67*, UPDATE+3* |
| XMZ | NEW+2~, NEW+48*, NEW+49, NEW+57, ENTER~, ENTER+67, ENTER+74, UPDATE+2, UPDATE+3 |
| >> Y | ENTER+70, UPDATE+6 |
| YR | NEW+2~, NEW+11*, NEW+13 |