Routine: IBCNEUT2

Information

IBCNEUT2 ;DAOU/DAC - eIV MISC. UTILITIES ;06-JUN-2002

Name	Comments	DBIA/ICR reference
SAVETQ(IEN,TDT)	; Update service date in TQ record
SST(IEN,STAT)	; Set the Transmission Queue Status ; Input parameters ; IEN = Internal entry number for the record ; STAT= Status IEN
RSP(IEN,STAT)	; Set the Response File Status ; Input parameters ; IEN = Internal entry number for the record ; STAT= Status IEN
BUFF(BUFF,BNG)	; Set error symbol into Buffer File ; Input Parameter ; BUFF = Buffer internal entry number ; BNG = Buffer Symbol IEN
BADMSG(EXT,QUERY)	; Checks to see if the msg is allowed ; IB*713 Introduced this tag, checks for foreign characters as defined ; in FOREIGN^IBCNINSU. If foreign characters are encountered, some ; times the msg can't be created/sent via HL7. Other times, if you ; clear out the field with the foreign character you can still send ; the message. (Watch for the STOP variable.) ; This could be expanded in the future to check other scenarios that ; should stop the transmissions.
BADMSGX	;Exit BADMSG