IBCESRV1 ;ALB/TMP - Server interface to IB from Austin ;03/05/96
Source file <IBCESRV1.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 |
|---|---|---|
| PERROR(IBERR,IBTDA,IBEMG,IBXMZ) | ; Process Errors - Send bulletin to mail group
; IBERR = Error text array ; IBTDA = Message File Entry # array ; IBEMG = name of the mail group to which these errors should be sent ; IBXMZ = the internal entry # of the mailman message (file 3.9) |
|
| EMFORM(CT,IBERR,IBXM,IBXMZ) | ;
; INPUT: ; CT = the number of lines previously populated in error message ; IBERR = the array of errors |
|
| ERROR | ;
|
|
| EXTERR(IBERR,IBTDA,IBE) | ; Put error into error array
|
|
| ERRUPD(IBGBL,IBERR) | ; Set up global array to hold message data
|
|
| DKILL(IBXMZ) | ; Delete server mail message from postmaster mailbox
|
|
| TRTN(IBTDA) | ; Process incoming EDI message
; IBTDA = internal entry # of message (file 364.2) ; This procedure is called from ADD^IBCESRV with variable IBRTN holding the TAG^ROUTINE to be invoked |
|
| TRADEL(X) | ; Process to delete message from temporary message holding file
|
| FileNo | Call Tags |
|---|---|
| ^IBA(364.2 - [#364.2] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | EMFORM+33 |
| ^IBA(364 - [#364] | EMFORM+33 |
| ^IBA(364.1 - [#364.1] | EMFORM+31 |
| ^IBA(364.2 - [#364.2] | EMFORM+10, EMFORM+48, EMFORM+51 |
| ^IBE(364.3 - [#364.3] | EMFORM+15 |
| ^TMP("IB-HOLD" | EMFORM+46, EMFORM+47, EMFORM+48 |
| ^TMP("IBERR" | EMFORM+18, EMFORM+20, EMFORM+41, EMFORM+43, EMFORM+44, EMFORM+48, ERRUPD+4!, ERRUPD+7*, ERRUPD+8*, ERRUPD+9* , ERRUPD+14*, ERRUPD+17*, ERRUPD+18*, ERRUPD+20, ERRUPD+21, ERRUPD+22, ERRUPD+25*, ERRUPD+29* |
| ^TMP("IBMSG" | EMFORM+47 |
| Name | Line Occurrences |
|---|---|
| @( | TRTN+4 |
| EMFORM | PERROR+19 |
| Name | Field # of Occurrence |
|---|---|
| ^( | EMFORM+44, EMFORM+51 |
| ^("BATCH" | ERRUPD+20* |
| ^("BILL" | ERRUPD+21* |
| ^("TEXT" | EMFORM+41 |
| ^("TYPE" | ERRUPD+22* |
| ^(0 | EMFORM+51 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BATCH | EMFORM+8~, EMFORM+15*, EMFORM+20*, EMFORM+31 |
| BILL | EMFORM+8~, EMFORM+15*, EMFORM+20*, EMFORM+33 |
| CT | PERROR+5~, PERROR+7*, PERROR+9*, PERROR+19, EMFORM~, EMFORM+22*, EMFORM+23, EMFORM+25*, EMFORM+26*, EMFORM+28* , EMFORM+29, EMFORM+31*, EMFORM+33*, EMFORM+35*, EMFORM+36, EMFORM+38*, EMFORM+40*, EMFORM+41*, EMFORM+43*, EMFORM+44* , EMFORM+47*, EMFORM+48*, EMFORM+51*, ERRUPD+2~, ERRUPD+5*, ERRUPD+17*, ERRUPD+18*, ERRUPD+25*, ERRUPD+29* |
| DA | TRADEL+2~* |
| DIK | TRADEL+2~* |
| IBA | TRTN+3~ |
| IBB | TRTN+3~ |
| >> IBD("SUBJ" | ERRUPD+9 |
| >> IBDATE | ERRUPD+7 |
| IBE | EXTERR~, EXTERR+2*, EXTERR+3*, ERRUPD+2~, ERRUPD+13*, ERRUPD+14, ERRUPD+16*, ERRUPD+17 |
| IBE("DIERR" | EXTERR+3 |
| IBEMG | PERROR~, PERROR+9, PERROR+11, PERROR+12*, PERROR+14*, PERROR+16 |
| IBERR | PERROR~, PERROR+19, EMFORM~, EMFORM+40, EXTERR~, EXTERR+2*, ERRUPD~, ERRUPD+11, ERRUPD+12, TRTN+3~ |
| IBERR( | EMFORM+43, ERRUPD+16, ERRUPD+18 |
| IBGBL | ERRUPD~, ERRUPD+5, ERRUPD+19, ERRUPD+24, ERRUPD+27, ERRUPD+28, TRTN+3~ |
| >> IBRTN | TRTN+4 |
| IBTDA | PERROR~, EMFORM+10*, EMFORM+35, EMFORM+48, EMFORM+50, EMFORM+51, EXTERR~, EXTERR+2, TRTN~ |
| IBTDA( | EMFORM+36, EXTERR+2* |
| IBTDA("" | EMFORM+10 |
| IBTXN1 | ERRUPD+2~, ERRUPD+5*, ERRUPD+8, ERRUPD+19*, ERRUPD+22 |
| IBXM | PERROR+5~, PERROR+19, EMFORM~ |
| IBXM( | PERROR+9*, EMFORM+23*, EMFORM+26*, EMFORM+29*, EMFORM+31*, EMFORM+33*, EMFORM+35*, EMFORM+36*, EMFORM+38*, EMFORM+40* , EMFORM+41*, EMFORM+43*, EMFORM+44*, EMFORM+47*, EMFORM+48*, EMFORM+51* |
| IBXMZ | PERROR~, PERROR+19, EMFORM~, EMFORM+38, DKILL~, DKILL+2 |
| IBZ | EXTERR+1~, EXTERR+3* |
| Q | EXTERR+1~, EXTERR+3* |
| TDATE | EMFORM+8~, EMFORM+13*, EMFORM+18*, EMFORM+26 |
| TDATE1 | EMFORM+8~, EMFORM+14*, EMFORM+19*, EMFORM+29 |
| THDR | EMFORM+8~, EMFORM+10*, EMFORM+12, EMFORM+13, EMFORM+14, EMFORM+15, EMFORM+17 |
| TTIME | EMFORM+8~, EMFORM+13*, EMFORM+18*, EMFORM+26 |
| TTIME1 | EMFORM+8~, EMFORM+14*, EMFORM+19*, EMFORM+29 |
| TTYP | EMFORM+8~, EMFORM+15*, EMFORM+20*, EMFORM+23 |
| U | EMFORM+13, EMFORM+14, EMFORM+15, EMFORM+23, EMFORM+31, EMFORM+33, ERRUPD+8, ERRUPD+22 |
| X | TRADEL~, TRADEL+2 |
| XMB | PERROR+5~ |
| XMBODY | PERROR+5~, PERROR+22*, PERROR+23 |
| XMDUZ | PERROR+5~, PERROR+21*, PERROR+23 |
| XMERR | PERROR+5~ |
| XMFULL | PERROR+5~ |
| XMINSTR | PERROR+5~ |
| XMSUBJ | PERROR+5~, PERROR+22*, PERROR+23 |
| XMTO | PERROR+5~, PERROR+23 |
| XMTO( | PERROR+9*, PERROR+18 |
| XMTO("I:" | PERROR+16* |
| XMTO("I:G.IB | EDI" , PERROR+18* |
| XMTYPE | PERROR+5~ |
| XMZ | PERROR+5~, PERROR+23 |
| Y | TRADEL+2~ |
| Z | EMFORM+8~, EMFORM+36*, EMFORM+43*, EMFORM+44*, EMFORM+46*, EMFORM+47, EMFORM+51*, ERRUPD+2~, ERRUPD+12*, ERRUPD+16* , ERRUPD+18, ERRUPD+19, ERRUPD+24 |
| Z0 | EMFORM+8~, EMFORM+36*, EMFORM+43*, ERRUPD+2~, ERRUPD+16*, ERRUPD+18, ERRUPD+19, ERRUPD+20, ERRUPD+21, ERRUPD+24 |
| Z1 | EMFORM+8~, ERRUPD+2~, ERRUPD+23*, ERRUPD+24* |
| Z11 | ERRUPD+2~, ERRUPD+18*, ERRUPD+20, ERRUPD+21 |
| Z2 | ERRUPD+2~, ERRUPD+24*, ERRUPD+28* |
| Z3 | ERRUPD+2~, ERRUPD+24*, ERRUPD+25, ERRUPD+28*, ERRUPD+29 |
| Name | Field # of Occurrence |
|---|---|
| $T(@Z | ERRUPD+13 |
| $T(ERROR+2 | PERROR+9 |
| $T(ERROR+IBE | ERRUPD+17 |
