Jay

Thanks for the note. I've got quite a bit of experience in the "Normal" hl7 process. By normal I mean receiving ADT messages and sending charge messages (DFT/FT1). I've been using a product by Symphonia create the TCP/IP layer. This current project is a little different since it is receiving information about their materials file. Their product (Mckesson PMM) creates an actual file of HL7 messages (not just one) for any inserts/updates/deletes that occur over a period of time. At scheduled intervals will connect to a remove server (me) via tcp and sends the whole file filled with HL7 messages. They connect OK to my current listener, but it seems like my listener just gets the first message in the file. So that "canned" part i'm looking for is a way to duplicate sending that file, while I figure out how to get my side to read the whole file and not just the first message.

Any thought you might have would be great.

PROCEDURE NewMessage
LPARAMETERS CONNECTION
***********************************************************
* This event fires when we receive a message
* from the remote system
***********************************************************
ltNowDate=DTOC(DATE())
gnMessages=gnMessages+1
*****************************************************************
* Get the message from the connection object into a string
* varaible, and save it as a file
*****************************************************************
WAIT [Reading Incoming....] WINDOW nowait
dataReceived = CONNECTION.readmessage
* Update MessageWindow
IF VARTYPE(cthmainvlist)=[O]	
	cthmainvlist.edit1.VALUE = datareceived
	cthmainvlist.label7.caption=[Last Msg: ]+TRANSFORM(DATETIME())
	cthmainvlist.REFRESH()
ENDIF 	
=STRTOFILE(datareceived+CHR(10)+CHR(13),"msglog.log",1)
DO Processmessage WITH datareceived