Routine: IBCNIUH1

Information

IBCNIUH1 ;AITC/TAZ - IIU RECEIVE AND PROCESS INSURANCE TRANSMISSIONS ; 04/06/21 12:46p.m.

Name	Comments	DBIA/ICR reference
REC	;Receive data from remote system
RECX	;
RECEIVE	;Entry Point
GETSTAT	;Get the RECEIVER STATUS (365.19,2.01) by performing various checks
GETSTATQ	;
FILEBUF	;File IIU data file #365.19 into the Buffer file #355.33
STATI	;If the IIU ENABLED field is off, set RECEIVER STATUS to "I" IIU ENABLED IS OFF
STATR	;If the RECEIVE IIU DATA is off, set RECEIVER STATUS to "R" RECEIVE IIU DATA IS OFF
STATV	;If the last event date is greater then the site parameter IIU RECENT VISIT DAYS, ; set RECEIVER STATUS to "V" VISITED TOO LONG AGO
STATVQ	;
STATD	;Check for Duplicate IIU entry, if found set RECEIVER STATUS to "D" DUPLICATE
STATE	;If a error occurs during the creation of the entry into the IIU file (365.19),
STATB	;If a error occurs during the creation of the entry into the Buffer file (355.33),
FILESTAT	;File STATUS in File #365.19
DECHL7(STR,HL)	;Decode HL7 characters
LP	;Continue to loop through the string until all instances of encoding is decoded then exit.
DECHL7Q	; Exit
SPAR	;Segment Parsing (logic from SPAR^IBCNEHLU)
LP1

HL7 Protocol Name	Call Tags
IBCNIU PIN/I07 EVENT	REC
IBCNIU PIN/I07 SUB	REC