[Home] [Help]
1: PACKAGE BODY AHL_WARRANTY_ENTITLEMENTS_PKG AS
2: /* $Header: AHLLENTB.pls 120.0.12020000.2 2012/12/06 22:30:45 sareepar ship $ */
3:
4: PROCEDURE Insert_Row (
5: x_row_id IN OUT NOCOPY VARCHAR2,
41: ) IS
42:
43: CURSOR c IS
44: SELECT ROWID
45: FROM ahl_warranty_entitlements
46: WHERE warranty_entitlement_id = x_warranty_entitlement_id;
47:
48: BEGIN
49: INSERT INTO ahl_warranty_entitlements (
45: FROM ahl_warranty_entitlements
46: WHERE warranty_entitlement_id = x_warranty_entitlement_id;
47:
48: BEGIN
49: INSERT INTO ahl_warranty_entitlements (
50: warranty_entitlement_id,
51: object_version_number,
52: warranty_contract_id,
53: old_warranty_contract_id,
192: attribute12,
193: attribute13,
194: attribute14,
195: attribute15
196: FROM ahl_warranty_entitlements
197: WHERE warranty_entitlement_id = x_warranty_entitlement_id
198: FOR UPDATE OF warranty_entitlement_id NOWAIT;
199:
200: recinfo c%ROWTYPE;
310: x_last_updated_by IN NUMBER,
311: x_last_update_login IN NUMBER
312: ) IS
313: BEGIN
314: UPDATE ahl_warranty_entitlements SET
315: object_version_number = x_object_version_number,
316: warranty_contract_id = x_warranty_contract_id,
317: old_warranty_contract_id = x_old_warranty_contract_id,
318: entitlement_status_code = x_entitlement_status_code,
354: PROCEDURE Delete_Row (
355: x_warranty_entitlement_id IN NUMBER
356: ) IS
357: BEGIN
358: DELETE FROM ahl_warranty_entitlements
359: WHERE warranty_entitlement_id = x_warranty_entitlement_id;
360:
361: IF (SQL%NOTFOUND) THEN
362: RAISE NO_DATA_FOUND;
362: RAISE NO_DATA_FOUND;
363: END IF;
364: END Delete_Row;
365:
366: END AHL_WARRANTY_ENTITLEMENTS_PKG;