IF MESSAGEBOX (...) <> 4 && Better yet, use a constant instead of 4>I'm running out of memory on this after about 200 records. Should I add oxClient = NULL after the DO WHILE? What would be the best approach? I'm assuming that this is what is causing the memory error, but I'm not positive.
>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