SET CENTURY ON SET DATE TO YMD lcText = lcText + "^" + STRTRAN(ALLTRIM(TTOC(rx.filled_date + rx.days_supply)),"/","-") + "^|" SET DATE TO AMERICAN SET CENTURY OFF * Price Override (Not supported) (position 39) lcText = lcText + "^^|" * Diagnoses (Code and Qualifier) (position 40 - 41) IF USED("diagnoses") IF THIS.m_seek(ALLTRIM(STR(rx.rx_no)) + ALLTRIM(STR(refill_no)),"diagnoses","fullrx",1) lcText = lcText + "^" + ALLTRIM(diagnoses.diagnosis_code) + "^|" lcText = lcText + "^" + ALLTRIM(diagnoses.diagnosis_code_qualifier) + "^|" ELSE lcText = lcText + "^^|" lcText = lcText + "^^|" ENDIF ELSE lcText = lcText + "^^|" lcText = lcText + "^^|" ENDIF * Facts and Comparisions Disease Code (Not supported) (position 42) lcText = lcText + "^^|" * Date Written (position 43) * 04/06/07 STB per Matt Bergmann - Changed format to include dashes and time SET CENTURY ON SET DATE TO YMD lcText = lcText + "^" + STRTRAN(ALLTRIM(TTOC(rx.written_date)),"/","-") + "^|" SET DATE TO AMERICAN SET CENTURY OFFany ideas ???