2297: ---------------------------------------------------------------------
2298: -- PROCEDURE: cleanup_claims
2299: --
2300: -- PURPOSE:
2301: -- This procedure purges records from ozf_claims_all and ozf_claim_lines_all tables
2302: -- for a given claim_id.
2303: --
2304: -- PARAMETERS:
2305: -- IN:
2322: END IF;
2323: x_return_status := FND_API.G_RET_STS_SUCCESS;
2324:
2325: delete from ozf_claims_all where claim_id = p_claim_id;
2326: delete from ozf_claim_lines_all where claim_id = p_claim_id;
2327:
2328: EXCEPTION
2329: WHEN OTHERS THEN
2330: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2938: ---------------------------------------------------------------------
2939: -- PROCEDURE: Purge_Claim
2940: --
2941: -- PURPOSE:
2942: -- This procedure deletes processed records from ozf_claims_int_all, ozf_claim_lines_all table.
2943: --
2944: -- PARAMETERS:
2945: --
2946: -- OUT: