8:
9: BEGIN
10:
11: DELETE FROM OKL_INSURANCE_ESTIMATES_TL T
12: WHERE NOT EXISTS (SELECT NULL FROM OKL_INSURANCE_ESTIMATES_B B WHERE B.ID =T.ID);
13:
14: UPDATE OKL_INSURANCE_ESTIMATES_TL T
15: SET (SHORT_DESCRIPTION,
16: DESCRIPTION,
401: BEGIN
402:
403: l_prog_name := G_PKG_NAME||'.insert_row (B)';
404:
405: INSERT INTO okl_insurance_estimates_b (
406: id
407: ,object_version_number
408: ,attribute_category
409: ,attribute1
796: PRAGMA EXCEPTION_INIT (E_Resource_Busy, -00054);
797:
798: CURSOR lock_csr IS
799: SELECT OBJECT_VERSION_NUMBER
800: FROM OKL_INSURANCE_ESTIMATES_B
801: WHERE ID = p_que_rec.id
802: AND OBJECT_VERSION_NUMBER = p_que_rec.object_version_number
803: FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
804:
803: FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
804:
805: CURSOR lchk_csr IS
806: SELECT OBJECT_VERSION_NUMBER
807: FROM OKL_INSURANCE_ESTIMATES_B
808: WHERE ID = p_que_rec.id;
809:
810: l_object_version_number NUMBER;
811: lc_object_version_number NUMBER;
907: ELSIF l_return_status = G_RET_STS_ERROR THEN
908: RAISE OKL_API.G_EXCEPTION_ERROR;
909: END IF;
910:
911: UPDATE okl_insurance_estimates_b
912: SET
913: object_version_number = p_que_rec.object_version_number+1
914: ,attribute_category = p_que_rec.attribute_category
915: ,attribute1 = p_que_rec.attribute1
1367: BEGIN
1368:
1369: l_prog_name := G_PKG_NAME||'.delete_row (V)';
1370:
1371: DELETE FROM OKL_INSURANCE_ESTIMATES_B WHERE id = p_id;
1372: DELETE FROM OKL_INSURANCE_ESTIMATES_TL WHERE id = p_id;
1373:
1374: x_return_status := G_RET_STS_SUCCESS;
1375: