8:
9: BEGIN
10:
11: DELETE FROM OKL_FEES_TL T
12: WHERE NOT EXISTS (SELECT NULL FROM OKL_FEES_B B WHERE B.ID =T.ID);
13:
14: UPDATE OKL_FEES_TL T
15: SET (SHORT_DESCRIPTION,
16: DESCRIPTION,
539: BEGIN
540:
541: l_prog_name := G_PKG_NAME||'.insert_row (B)';
542:
543: INSERT INTO okl_fees_b (
544: id
545: ,object_version_number
546: ,attribute_category
547: ,attribute1
968: PRAGMA EXCEPTION_INIT (E_Resource_Busy, -00054);
969:
970: CURSOR lock_csr IS
971: SELECT OBJECT_VERSION_NUMBER
972: FROM OKL_FEES_B
973: WHERE ID = p_fee_rec.id
974: AND OBJECT_VERSION_NUMBER = p_fee_rec.object_version_number
975: FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
976:
975: FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
976:
977: CURSOR lchk_csr IS
978: SELECT OBJECT_VERSION_NUMBER
979: FROM OKL_FEES_B
980: WHERE ID = p_fee_rec.id;
981:
982: l_object_version_number NUMBER;
983: lc_object_version_number NUMBER;
1079: ELSIF l_return_status = G_RET_STS_ERROR THEN
1080: RAISE OKL_API.G_EXCEPTION_ERROR;
1081: END IF;
1082:
1083: UPDATE okl_fees_b
1084: SET
1085: object_version_number = p_fee_rec.object_version_number+1
1086: ,attribute_category = p_fee_rec.attribute_category
1087: ,attribute1 = p_fee_rec.attribute1
1605: BEGIN
1606:
1607: l_prog_name := G_PKG_NAME||'.delete_row (V)';
1608:
1609: DELETE FROM OKL_FEES_B WHERE id = p_id;
1610: DELETE FROM OKL_FEES_TL WHERE id = p_id;
1611:
1612: x_return_status := G_RET_STS_SUCCESS;
1613: