> >********************************************************** >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 >******************************************************************************* >