IBCE837K ;EDE/JWS - ACK FOR 837 FHIR TRANSMISSION ;8/6/18 10:48am
Source file <IBCE837K.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 |
|---|---|---|
| GET(RESULT,ARG) | ;RPC - EDIACKCLAIMS; ack queue posting
|
|
| R | ; setup return JSON
; create JSON structured message |
|
| EMAIL(IBIEN,IBTXTEST,IBBATCH) | ; Send an email message to MCT mail group - to emulate existing functionality
|
|
| EMAILX | ;
|
|
| CLR | ; JWS;8/25/25;IB*2.0*770v41;clear out "AC" index as already transmitted
|
| Name | Field # of Occurrence |
|---|---|
| DTNOLF^DICRW | GET+5 |
| ^DIE | GET+22, CLR+4 |
| CLEAN^DILF | EMAILX+2 |
| $$GET1^DIQ | GET+29, EMAIL+3, EMAIL+4, EMAIL+5 |
| UPD^IBCE837A | GET+30 |
| FINISH^IBCE837I | R+5 |
| SETSUB^IBCE837I | GET+33 |
| $$FT^IBCEF | GET+27 |
| $$LAST364^IBCEF4 | GET+15 |
| $$TEST^IBCEF4 | GET+27 |
| $$HTE^XLFDT | GET+28 |
| ENCODE^XLFJSONE | R+4 |
| SENDMSG^XMXAPI | EMAIL+23 |
| $$PROD^XUPROD | GET+27 |
| RPC Name | Call Tags |
|---|---|
| IBTAS 837 ACK | GET |
| FileNo | Call Tags |
|---|---|
| ^IBE(350.9 - [#350.9] | GET1^DIQ |
| ^IBA(364 - [#364] | Classic Fileman Calls, GET1^DIQ |
| ^DGCR(399 - [#399] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBA(364 - [#364] | GET+19, GET+20, GET+21, GET+22, GET+25, GET+27, GET+35, GET+38, GET+39, GET+40 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARG | GET~ |
| ARG("IEN399" | GET+7 |
| ARG("RES" | GET+11 |
| D0 | CLR+1~ |
| DA | GET+22*, CLR+1~, CLR+2* |
| DIC | CLR+1~ |
| DIE | GET+22*, GET+31!, CLR+1~, CLR+3* |
| DR | GET+22*, CLR+1~, CLR+3* |
| DUZ | GET+2~, EMAIL+2*, EMAIL+23, EMAILX+3* |
| I | GET+37~, GET+38* |
| IB364 | GET+2~, GET+15*, GET+18, GET+19, GET+23*, GET+25*, GET+27, GET+29, GET+33, GET+35 , CLR+2 |
| IBBATCH | GET+2~, GET+29*, GET+30, GET+44, EMAIL~, EMAIL+12 |
| IBBATCHN | EMAIL+1~ |
| IBBILL | GET+2~, GET+30 |
| IBBILL( | GET+27* |
| IBBTYP | GET+2~, GET+27*, GET+28, GET+30 |
| IBCLAIM | EMAIL+1~, EMAIL+3*, EMAIL+12 |
| IBDESC | GET+2~, GET+28*, GET+30 |
| IBEQ | EMAIL+1~, EMAIL+8*, EMAIL+9, EMAIL+12, EMAIL+13, EMAIL+21 |
| IBIEN | GET+2~, GET+7*, GET+15, GET+20, GET+25, GET+27, GET+38, GET+39, GET+44, R+2 , EMAIL~, EMAIL+3, EMAIL+9, EMAIL+12 |
| IBLQ | EMAIL+1~, EMAIL+5*, EMAIL+8 |
| IBRES | GET+2~, GET+11*, GET+13 |
| IBTEST | GET+2~, GET+27* |
| IBTQ | EMAIL+1~, EMAIL+4*, EMAIL+8 |
| IBTXTEST | GET+2~, GET+27*, GET+28, GET+44, EMAIL~, EMAIL+8 |
| MSG | EMAIL+1~ |
| MSG(1 | EMAIL+12* |
| MSG(2 | EMAIL+13* |
| MSG(3 | EMAIL+14* |
| ODUZ | EMAIL+1~, EMAIL+2*, EMAILX+3 |
| OK | GET+20~*, GET+23*, GET+24 |
| RES | GET+2~, GET+13*, GET+46*, R+3 |
| RES("ien" | R+2* |
| RES("status" | R+3* |
| RESULT | GET~, GET+3! |
| SUBJ | EMAIL+1~, EMAIL+9*, EMAIL+23 |
| U | GET+27 |
| X | EMAIL+1~ |
| X1 | GET+20~*, GET+21, GET+22, GET+23, GET+25*, GET+37~, GET+38*, GET+39 |
| X2 | GET+37~, GET+39*, GET+40 |
| XMINSTR | EMAIL+1~, EMAIL+23 |
| XMINSTR("FROM" | EMAIL+22* |
| XMTO | EMAIL+1~, EMAIL+23 |
| XMTO("G." | EMAIL+21* |
| XMTO("G.CLAIMS4US" | EMAIL+20* |
