>> >>********************************************************** >>DEFINE CLASS EMPS_Class AS SESSION OLEPUBLIC >> >> IMPLEMENTS DMSWinsockControlEvents IN "c:\windows\system32\mswinsck.ocx" >> >> oSock = NULL >> >> >> ********************************************************** >> PROCEDURE DMSWinsockControlEvents_Error(NUMBER AS INTEGER, DESCRIPTION AS STRING, ; > Scode AS NUMBER, SOURCE AS STRING, HelpFile AS STRING, ; > HELPCONTEXT AS NUMBER, CancelDisplay AS LOGICAL) AS VOID ; > HELPSTRING "Error occurred" >> * add user code here >> >> ENDPROC >> >> >> ********************************************************** >> PROCEDURE DMSWinsockControlEvents_DataArrival(bytesTotal AS NUMBER) AS VOID ; > HELPSTRING "Occurs when data has been received from the remote computer" >> >> * strData = SPACE(256) && Define string to pass to GetData >> >>* JJ - TESTING ONLY >>STRTOFILE('DataArrival: ' + DTOS(DATE()) + +CHR(10) + CHR(13),'c:\fmsrun\logfile.log',1) >> >> THIS.oSock.OBJECT.GETDATA(@strData) >> >> lnStart = SECONDS() >> DO WHILE THIS.oSock.State = 6 AND SECONDS() - lnStart <= 5 >> DOEVENTS >> ENDDO >> >> IF THIS.oSock.State = 7 >> * Testing code to parse HL7 billing data from ; > Medinotes Client to EM tables >> =Convert_HL7_Billing_Data(strData) >> ENDIF >> >> ENDPROC >[ snip snip ] >>ENDPROC >>******************************************************************************* >>