> *TMN 06/21/2011 - remove claim records if a Prefill so we don't have duplicate claim records > IF Thisform.p_FormType = 3 && Prefill only! > DELETE ALL ; > FOR (ALLTRIM(STR(rx_claim.rx_no)) = ALLTRIM(STR(rx.rx_no))) ; > AND (ALLTRIM(STR(rx_claim.refill_no)) = ALLTRIM(STR(rx.refill_no))) ; > AND rx_claim.statuscode = -1 IN rx_claim > Thisform.m_save(.T.,"rx_claim") > ENDIF > *TMN 06/21/2011 > >>
IF Thisform.p_FormType = 3 && Prefill only! DELETE FROM rx_claim; WHERE rx_claim.rx_no = rx.rx_no AND; && WHY ALLTRIM(STR(????))???? rx_claim.refill_no = rx.refill_no AND; rx_claim.statuscode = -1 ENDIF