Routine: IBCNIUHL

Information

IBCNIUHL ;AITC/TAZ - IIU PROCESS SEND INSURANCE TRANSMISSIONS ; 04/06/21 12:46p.m.

Name	Comments	DBIA/ICR reference
NIGHT	;Main Entry Point for Nightly Process
NIGHTQ	; Exit Night Processing
RT(IIUIEN)	; Real Time IIU Processing
RT1	; entry tag for BUFFER^IBCNIUHL that we had to job off, this will correctly ; update the values in the DATA array
RTQ	;Exit Real-Time IIU transmission
INIT	; Initialization for HL7
BLD(DATA)	; Build the PIN_I07 record. ; Input: ; DATA - Data Array of all variables for the record from IIU (#365.19), PAYER (#365.12), ; and INSURANCE TYPE (#2.312) files
BLDQ	;
ENCHL7(STR)	; Encode HL7 escape seqs in data fields
ENCHL7Q	;
SCRUB(Z)	; remove all punctuation from the string and convert lowercase to uppercase
SCRUBX	;
BUFFER(IIUIEN)	;
BUFFERQ	;Exit