>DEFINE CLASS EMPS_Out_Class AS SESSION OLEPUBLIC > > oSock = NULL > > PROCEDURE INIT > > THIS.oSock = CREATEOBJECT("MSWinsock.Winsock.1") > > ENDPROC > > > PROCEDURE ConnectionRequest > > *** ActiveX Control Event *** > LPARAMETERS requestid > > #DEFINE sckClosed 0 > > If This.Object.State <> sckClosed > This.Object.Close > ENDif > > *!* Accept the request with the requestID > *!* parameter. > This.Object.Accept(requestID) > > ENDPROC > > > PROCEDURE DataArrival > > *** ActiveX Control Event *** > LPARAMETERS bytestotal > > strData = SPACE(256) && Define string to pass to GetData > > This.Object.GetData(@strData) > ThisForm.txtOutput.Value = strData > > * Testing code to parse HL7 billing data from Medinotes Client to EM tables > Send_HL7_Demographic_Data(strData) > > * Convert_HL7_Billing_Data(FILETOSTR("c:\HL7_IN\HL7BB.tmp")) > > * STRTOFILE(strData,"c:\HL7_IN\HL7_Data_From_Service.txt",.T.) > > ENDPROC > >ENDDEFINE >