SCAN oxClient = NEWOBJECT( 'EMPS_Client_Class', 'EMPS_PROCS.prg','', 'MEDINOTES' ) oxClient.SETUP() *start the loop to send the message. DO WHILE !oxClient.ProcessData("Medinotes","HL7","Demographics",RptData.ptpn) IF !4 = MESSAGEBOX("Unable to send patient data to Medinotes." + CHR(13); + "received the folowing error during data tranmission." + CHR(13); + oxClient.errorMsg, 5 + 48, 'Data transmission error') EXIT ENDIF ENDDO ENDSCAN