Will try this out.

Thanks!

>
>Hi Tommy:
>
>To catch this problem, you could do something like this, and the next time it occurs, you surely have the information that causes it.
>All you want to do is a proper testing inline:
>
>

>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
>
>   * In-line test code
>   IF OCCURS("^^|", lcText) <> 3 THEN
>      ERROR "Invalid format! - Tecnical info: lcText=[" + lcText + "], diagnosis_code=[" + diagnosis_code + "]" ;
>         + ", diagnosis_code_qualifier=[" + diagnosis_code_qualifier + "]" ; 
>         + ", recno=" + TRANSFORM(RECNO("diagnoses")) + "]"
>   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
>
>