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