IF !DIRECTORY(gcPath + "\Surescripts") MKDIR gcPath + "\Surescripts" ENDIF lcPath = gcPath + "\Surescripts\" lcFile = lcPath + PADL(ALLTRIM(ss_io.message_ref),7,"0") + PADL(ALLTRIM(ss_io.refill_no),2,"0") + ".REQ" lnHandle = FCREATE(lcFile) IF lnHandle > 0 *TMN 03/16/09 *TMT 04/19/13 Modified for v10.6 FWRITE(lnHandle,lcText,5979) && Uses FWRITE instead of FPUTS cuz no LF CR are needed *FWRITE(lnHandle,lcText,5416) && Uses FWRITE instead of FPUTS cuz no LF CR are needed *FWRITE(lnHandle,lcText,5259) && Uses FWRITE instead of FPUTS cuz no LF CR are needed *TMN 03/16/09 FCLOSE(lnHandle) *!* lcEXE = gcPath + "\WssPost.exe" + " " + ALLTRIM(interface.ss_ip) + ":" + ALLTRIM(STR(interface.ss_port)) + " " + ALLTRIM(pharmacy_config.nabp) + " " + lcFile *!* RUN /N2 &lcEXE *TMT 04/26/13 Change from RUN to ShellExecute because the 10.6 was throwing an exception error when 4.2 did not.... *!* lcEXE = gcPath + "\WssPost.exe" + " " + ALLTRIM(interface.ss_ip) + ":" + ALLTRIM(STR(interface.ss_port)) + " " + ALLTRIM(pharmacy_config.nabp) + " " + lcFile *!* RUN /N2 &lcEXE DECLARE LONG ShellExecute in "shell32.dll" long hwnd, string lpszOp, ; string lpszFile, string lpszParams, ; string lpszDir, long nShowCmd lcEXE = gcPath + "\WssPost.exe" lcParms = ALLTRIM(interface.ss_ip) + ":" + ALLTRIM(STR(interface.ss_port)) + " " + ALLTRIM(pharmacy_config.nabp) + " " + lcFile ShellExecute(0,"open",lcExe,lcParms,lcPath,7) ELSE MESSAGEBOX(translatewrd("Cannot create EZ e-Script text file"),16,translatewrd("EZ e-Script Create File")) ENDIF.... and I got the SAME ERROR result !!!