Routine: IBTRHLI3

Information

IBTRHLI3 ;ALB/JWS - Receive and store 278 Response message ;05-JUN-2014

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