IBTRHLI3 ;ALB/JWS - Receive and store 278 Response message ;05-JUN-2014
Source file <IBTRHLI3.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 |
|---|---|---|
| ZTP(IBSEG,RESIEN,ERROR,SLIEN) | ; Process ZTP Subscriber date seg (X12 DTP segs)
; Input: ; IBSEG,RESIEN,SLIEN |
|
| ZTP1 | ;
|
|
| RXE(IBSEG,RESIEN,ERROR) | ;RXE Pharmacy/Treatment Encoded Order seg
; Input: ; IBSEG,RESIEN |
|
| ZHS(IBSEG,RESIEN,ERROR,SLIEN) | ; ZHS Healthcare services delivery seg
; Input: ; IBSEG,RESIEN,SLIEN |
|
| CTD(IBSEG,RESIEN,ERROR,PEIEN,SLIEN,SLPIEN) | ; CTD Contact Data seg
; Input: ; IBSEG,RESIEN,PEIEN,SLIEN,SLPIEN |
|
| NK1(IBSEG,RESIEN,ERROR,PEIEN) | ;NK1 Next of Kin seg
; Input: ; IBSEG,RESIEN,PEIEN |
|
| PSL(IBSEG,RESIEN,ERROR,SLIEN) | ;PSL Product/Service Line Item seg
; Input: ; IBSEG,RESIEN,SLIEN |
|
| PSL2(TYPE) | ;
|
|
| PSL3(TYPE) | ;
; this is being created here due to file SCREENing on field 356.2216, 1.01 needs 1.12 set 1st |
|
| CODE(TYPE,CODE) | ; obtain Variable Procedure Code pointer
|
|
| NTE(IBSEG,RESIEN,ERROR) | ;NTE Notes seg
; Input: ; IBSEG,RESIEN |
|
| DG1(IBSEG,RESIEN,ERROR,SLIEN) | ;
; Input: ; IBSEG,RESIEN,SLIEN |
|
| CODE1(TYPE,CODE) | ; obtain Variable Procedure Code pointer
|
|
| RXA(IBSEG,RESIEN,ERROR) | ;RXA Pharmacy/Treatment Admin seg
; Input: ; IBSEG,RESIEN |
|
| FNDCT(DFN,EVNTDT,RESIEN) | ; find matching CT entry in file 356
; DFN - file 2 ien ; EVNTDT - event date from 356.22/.07 ; RESIEN - ien of the response in file 356.22 |
| Name | Field # of Occurrence |
|---|---|
| $$FIND1^DIC | CODE+5, CODE+8, CODE1+4, CODE1+8, CODE1+11, CODE1+16 |
| FILE^DIE | PSL2+10, PSL2+18, PSL3+4, DG1+18, DG1+29 |
| WP^DIE | NTE+10, NTE+16 |
| SLCHECK^IBTRHLI1 | ZTP+8, PSL+8, PSL+23, PSL+38, DG1+8 |
| ERR^IBTRHLI2 | PSL2+11, PSL2+19, PSL3+5, NTE+11, NTE+17, DG1+19, DG1+30 |
| UP^IBTRHLI2 | ZTP+7, ZTP1+2, RXE+17, ZHS+7, ZHS+27, CTD+7, CTD+19, NK1+24, PSL+7, PSL+22 , PSL+37, PSL+55, PSL+64, PSL+71, DG1+12, DG1+24, RXA+12 |
| FileNo | Call Tags |
|---|---|
| ^IBT(356.22 - [#356.22] | WP^DIE |
| 356.2216 | WP^DIE |
| ^ICD9 - [#80] | FIND1^DIC |
| ^ICD0 - [#80.1] | FIND1^DIC |
| ^ICD - [#80.2] | FIND1^DIC |
| ^ICPT - [#81] | FIND1^DIC |
| ^LAB(95.3 - [#95.3] | FIND1^DIC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBT(356 - [#356] | FNDCT+13, FNDCT+15 |
| ^IBT(356.22 - [#356.22] | PSL+73, FNDCT+11 |
| Name | Line Occurrences |
|---|---|
| $$CODE | PSL2+6, PSL2+13 |
| $$CODE1 | DG1+15, DG1+26 |
| PSL2 | PSL+7, PSL+22, PSL+37 |
| PSL3 | PSL+8, PSL+23, PSL+38 |
| ZTP1 | ZTP+14, ZTP+15, ZTP+16, ZTP+17, ZTP+18, ZTP+19, ZTP+20, ZTP+21, ZTP+22 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CODE | CODE~, CODE+5, CODE+8, CODE1~, CODE1+4, CODE1+7*, CODE1+8, CODE1+10*, CODE1+11, CODE1+14 , CODE1+15*, CODE1+16 |
| CT | ZHS+6~, PSL+6~, PSL+73*, DG1+6~ |
| CTIEN | FNDCT+7~, FNDCT+13*, FNDCT+15* |
| DFN | FNDCT~, FNDCT+9, FNDCT+13, FNDCT+15 |
| EDT | FNDCT+7~, FNDCT+10*, FNDCT+13, FNDCT+15 |
| ERROR | ZTP~, RXE~, ZHS~, CTD~, NK1~, PSL~, PSL2+2, PSL2+9!, PSL2+11, PSL2+17! , PSL2+19, PSL3+2!, PSL3+5, NTE~, NTE+11, NTE+17, DG1~, DG1+17!, DG1+19, DG1+28! , DG1+30, RXA~ |
| EVNTDT | FNDCT~, FNDCT+9, FNDCT+10 |
| EVTYPE | FNDCT+7~, FNDCT+12*, FNDCT+13, FNDCT+15* |
| FLD | ZTP+6~, ZTP+14*, ZTP+15*, ZTP+16*, ZTP+17*, ZTP+18*, ZTP+19*, ZTP+20*, ZTP+21*, ZTP+22* , ZTP1+1 |
| >> HLCMP | ZTP+9, ZTP+10, ZTP+11, ZTP+12, ZTP+22, ZTP1+1, RXE+8, RXE+9, RXE+11, RXE+12 , RXE+13, RXE+15, RXE+16, CTD+11, CTD+12, CTD+13, CTD+14, CTD+15, CTD+16, CTD+17 , CTD+23, CTD+24, CTD+25, CTD+26, CTD+27, CTD+28, CTD+29, NK1+10, NK1+11, NK1+12 , NK1+13, NK1+14, NK1+15, NK1+16, NK1+17, NK1+18, NK1+19, NK1+20, NK1+21, NK1+22 , NK1+23, PSL+9, PSL+10, PSL+11, PSL+12, PSL+13, PSL+18, PSL+25, PSL+26, PSL+27 , PSL+28, PSL+29, PSL+33, PSL+39, PSL+40, PSL+41, PSL+42, PSL+43, PSL+47, PSL+49 , PSL+50, PSL+51, PSL+52, PSL+53, PSL+57, PSL+58, PSL+59, PSL+60, PSL+61, PSL+62 , PSL+66, PSL+68, PSL+69, PSL+74, PSL+76, PSL+77, PSL2+4, PSL2+5, PSL2+6, PSL2+8 , PSL2+12, PSL2+13, PSL2+16, DG1+15, DG1+26 |
| >> HLREP | RXE+8, RXE+9, CTD+12, CTD+13, CTD+14, CTD+15, CTD+16, CTD+17, CTD+24, CTD+25 , CTD+26, CTD+27, CTD+28, CTD+29, RXA+10, RXA+11 |
| >> HLSCMP | RXE+12, NK1+10 |
| IBFDA | ZTP+6~, RXE+6~, ZHS+6~, NK1+6~, PSL+6~, NTE+6~, DG1+6~, RXA+6~ |
| IBFDA( | ZTP+9*, ZTP+10*, ZTP+11*, ZTP+12*, ZTP+22*, ZTP1+1*, RXE+8*, RXE+9*, RXE+10*, RXE+11* , RXE+12*, RXE+13*, RXE+14*, RXE+15*, RXE+16*, ZHS+9*, ZHS+10*, ZHS+11*, ZHS+12*, ZHS+13* , ZHS+14*, ZHS+15*, ZHS+16*, ZHS+19*, ZHS+20*, ZHS+21*, ZHS+22*, ZHS+23*, ZHS+24*, ZHS+25* , ZHS+26*, CTD+9*, CTD+10*, CTD+11*, CTD+12*, CTD+13*, CTD+14*, CTD+15*, CTD+16*, CTD+17* , CTD+21*, CTD+22*, CTD+23*, CTD+24*, CTD+25*, CTD+26*, CTD+27*, CTD+28*, CTD+29*, NK1+8* , NK1+9*, NK1+10*, NK1+11*, NK1+12*, NK1+13*, NK1+14*, NK1+15*, NK1+16*, NK1+17*, NK1+18* , NK1+19*, NK1+20*, NK1+21*, NK1+22*, NK1+23*, PSL+9*, PSL+10*, PSL+11*, PSL+12*, PSL+13* , PSL+14*, PSL+16*, PSL+18*, PSL+19*, PSL+20*, PSL+24*, PSL+25*, PSL+26*, PSL+27*, PSL+28* , PSL+29*, PSL+30*, PSL+32*, PSL+33*, PSL+34*, PSL+35*, PSL+39*, PSL+40*, PSL+41*, PSL+42* , PSL+43*, PSL+44*, PSL+46*, PSL+47*, PSL+48*, PSL+49*, PSL+50*, PSL+51*, PSL+52*, PSL+53* , PSL+57*, PSL+58*, PSL+59*, PSL+60*, PSL+61*, PSL+62*, PSL+66*, PSL+67*, PSL+68*, PSL+69* , PSL+74*, PSL+75*, PSL+76*, PSL+77*, PSL2+5*, PSL2+7*, PSL2+8*, PSL2+14*, PSL2+16*, PSL3+3* , DG1+10*, DG1+11*, DG1+16*, DG1+22*, DG1+23*, DG1+27*, RXA+8*, RXA+9*, RXA+10*, RXA+11* |
| IBFDA(1 | NTE+9*, NTE+15* |
| IBSEG | ZTP~, RXE~, ZHS~, CTD~, NK1~, PSL~, NTE~, DG1~, RXA~ |
| IBSEG(1 | RXE+12, RXE+13, ZHS+7, CTD+7, CTD+19, PSL+7, PSL+22, PSL+37, PSL+55, PSL+64 , PSL+71, PSL2+11, PSL2+19, PSL3+5, DG1+10, RXA+8 |
| IBSEG(11 | DG1+7 |
| IBSEG(12 | PSL+18, PSL+33, PSL+47, PSL2+8 |
| IBSEG(13 | PSL+34 |
| IBSEG(14 | RXE+8, RXE+9 |
| IBSEG(15 | PSL+16, PSL+32, PSL+46 |
| IBSEG(16 | RXE+14 |
| IBSEG(17 | PSL+24, PSL+48, DG1+11, DG1+15, DG1+22, DG1+26 |
| IBSEG(19 | RXE+11, PSL+66, PSL+68, PSL+69, PSL+74, PSL+76, PSL+77 |
| IBSEG(2 | ZTP+9, ZTP+10, ZTP+11, ZTP+12, ZTP+14, ZTP+15, ZTP+16, ZTP+17, ZTP+18, ZTP+19 , ZTP+20, ZTP+21, ZTP+22, ZHS+9, ZHS+19, CTD+11, CTD+23, NK1+10, NK1+11, NK1+12 , NK1+13, NK1+14, RXA+9 |
| IBSEG(20 | PSL+67, PSL+75 |
| IBSEG(23 | RXE+10 |
| IBSEG(29 | RXE+15 |
| IBSEG(3 | ZTP+9, ZTP+10, ZTP+11, ZTP+12, ZTP+22, ZTP1+1, ZHS+10, ZHS+20, NTE+9, NTE+15 , DG1+15, DG1+26 |
| IBSEG(31 | RXE+16 |
| IBSEG(33 | PSL+49, PSL+50, PSL+51, PSL+52, PSL+53, PSL+58, PSL+59, PSL+60, PSL+61, PSL+62 |
| IBSEG(4 | ZTP+7, ZHS+11, ZHS+21, NK1+17, NK1+18, NK1+19, NK1+20, NK1+21, NK1+22, NK1+23 , NTE+7, NTE+13 |
| IBSEG(47 | PSL+19 |
| IBSEG(48 | PSL+20, PSL+35 |
| IBSEG(5 | ZHS+12, ZHS+22, CTD+12, CTD+13, CTD+14, CTD+15, CTD+16, CTD+17, CTD+24, CTD+25 , CTD+26, CTD+27, CTD+28, CTD+29, DG1+23 |
| IBSEG(6 | ZHS+13, ZHS+23 |
| IBSEG(7 | ZHS+14, ZHS+24, NK1+15, NK1+16, PSL+9, PSL+25, PSL+39, PSL+57, PSL2+4, PSL2+5 , PSL2+6, PSL2+12, PSL2+13, PSL2+16 |
| IBSEG(8 | ZHS+15, ZHS+25, PSL+10, PSL+11, PSL+12, PSL+13, PSL+26, PSL+27, PSL+28, PSL+29 , PSL+40, PSL+41, PSL+42, PSL+43 |
| IBSEG(9 | ZHS+16, ZHS+26, PSL+14, PSL+30, PSL+44, RXA+10, RXA+11 |
| INPAT | FNDCT+7~, FNDCT+11*, FNDCT+12, FNDCT+15 |
| LEV | ZTP+6~, ZTP+13*, RXE+6~, RXE+7*, RXE+8, RXE+9, RXE+10, RXE+11, RXE+12, RXE+13 , RXE+14, RXE+15, RXE+16, ZHS+6~, ZHS+8*, ZHS+9, ZHS+10, ZHS+11, ZHS+12, ZHS+13 , ZHS+14, ZHS+15, ZHS+16, ZHS+18*, ZHS+19, ZHS+20, ZHS+21, ZHS+22, ZHS+23, ZHS+24 , ZHS+25, ZHS+26, CTD+6~, CTD+8*, CTD+9, CTD+10, CTD+11, CTD+12, CTD+13, CTD+14 , CTD+15, CTD+16, CTD+17, CTD+20*, CTD+21, CTD+22, CTD+23, CTD+24, CTD+25, CTD+26 , CTD+27, CTD+28, CTD+29, NK1+6~, NK1+7*, NK1+8, NK1+9, NK1+10, NK1+11, NK1+12 , NK1+13, NK1+14, NK1+15, NK1+16, NK1+17, NK1+18, NK1+19, NK1+20, NK1+21, NK1+22 , NK1+23, PSL+6~, PSL+56*, PSL+57, PSL+58, PSL+59, PSL+60, PSL+61, PSL+62, PSL+65* , PSL+66, PSL+67, PSL+68, PSL+69, PSL+72*, PSL+74, PSL+75, PSL+76, PSL+77, CODE+1* , NTE+6~, NTE+8*, NTE+10, NTE+14*, NTE+16, DG1+6~, DG1+9*, DG1+10, DG1+11, DG1+21* , DG1+22, DG1+23, RXA+6~, RXA+7*, RXA+8, RXA+9, RXA+10, RXA+11 |
| LEV1 | ZTP+6~, ZTP+9, ZTP+10, ZTP+11, ZTP+12, PSL+6~, PSL+9, PSL+10, PSL+11, PSL+12 , PSL+13, PSL+14, PSL+16, PSL+18, PSL+19, PSL+20, PSL+24, PSL+25, PSL+26, PSL+27 , PSL+28, PSL+29, PSL+30, PSL+32, PSL+33, PSL+34, PSL+35, PSL+39, PSL+40, PSL+41 , PSL+42, PSL+43, PSL+44, PSL+46, PSL+47, PSL+48, PSL+49, PSL+50, PSL+51, PSL+52 , PSL+53, PSL2+5, PSL2+7, PSL2+8, PSL2+14, PSL2+16, PSL3+3, DG1+6~ |
| LEV2 | DG1+6~, DG1+14*, DG1+16, DG1+25*, DG1+27 |
| PEIEN | CTD~, CTD+8, NK1~, NK1+7 |
| PTR | PSL2+1~, PSL2+6*, PSL2+7, PSL2+13*, PSL2+14, CODE+2~, CODE+3*, CODE+5*, CODE+6*, CODE+7 , CODE+8*, CODE+9*, CODE+10, DG1+6~, DG1+15*, DG1+16, DG1+26*, DG1+27, CODE1+1~, CODE1+2* , CODE1+4*, CODE1+5*, CODE1+8*, CODE1+11*, CODE1+12*, CODE1+16*, CODE1+17*, CODE1+18 |
| RES | FNDCT+7~, FNDCT+8*, FNDCT+13*, FNDCT+15*, FNDCT+17 |
| RESIEN | ZTP~, ZTP+13, ZTP+22, ZTP1+1, RXE~, RXE+7, ZHS~, ZHS+8, ZHS+18, CTD~ , CTD+8, CTD+20, NK1~, NK1+7, PSL~, PSL+56, PSL+65, PSL+72, PSL+73, CODE+1 , NTE~, NTE+8, NTE+14, DG1~, DG1+9, DG1+14, DG1+21, DG1+25, RXA~, RXA+7 , FNDCT~, FNDCT+9, FNDCT+11 |
| RIEN | ZTP+6~, RXE+6~, ZHS+6~, CTD+6~, NK1+6~, PSL+6~, NTE+6~, DG1+6~, RXA+6~ |
| RIEN(2 | CODE+1, DG1+25 |
| RIEN(3 | DG1+13, DG1+14 |
| SCRN | CODE+2~, CODE+3*, CODE+5, CODE+8, CODE1+1~, CODE1+2*, CODE1+4, CODE1+8, CODE1+11, CODE1+16 |
| SLIEN | ZTP~, ZHS~, ZHS+8, CTD~, CTD+20, PSL~, PSL+56, PSL+65, CODE+1*, NTE+14 , DG1~, DG1+9 |
| SLPIEN | CTD~, CTD+20 |
| STOPFLG | FNDCT+7~, FNDCT+12*, FNDCT+13* |
| TYPE | PSL2~, PSL2+8, PSL3~, PSL3+3, CODE~, CODE+4, CODE+7, CODE1~, CODE1+3, CODE1+6 |
| U | FNDCT+11 |
