>>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 >>ELSE >> MESSAGEBOX(translatewrd("Cannot create EZ e-Script text file"),16,translatewrd("EZ e-Script Create File")) >>ENDIF >>>>