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