1: PACKAGE BODY FA_INS_MST_POLS_PKG AS
2: /* $Header: faxinsmb.pls 120.4 2009/03/27 03:19:41 bridgway ship $ */
3:
4:
5: PROCEDURE Lock_Row( X_Rowid VARCHAR2,
11: , p_log_level_rec IN FA_API_TYPES.log_level_rec_type) IS
12:
13: CURSOR C IS
14: SELECT *
15: FROM fa_ins_mst_pols
16: WHERE rowid = X_Rowid
17: FOR UPDATE OF policy_number NOWAIT;
18:
19: recinfo C%ROWTYPE;
64: , p_log_level_rec IN FA_API_TYPES.log_level_rec_type) IS
65:
66: BEGIN
67:
68: UPDATE fa_ins_mst_pols
69: SET
70: asset_policy_id = X_Asset_policy_id,
71: policy_number = X_Policy_number,
72: vendor_site_id = X_Vendor_site_id,
103:
104: OPEN C;
105: FETCH C INTO dummy;
106: IF C%NOTFOUND THEN
107: DELETE FROM fa_ins_mst_pols
108: WHERE asset_policy_id = X_asset_policy_id;
109:
110: IF (SQL%NOTFOUND) THEN
111: RAISE NO_DATA_FOUND;
131: commit;
132:
133: END Delete_Row;
134:
135: END FA_INS_MST_POLS_PKG;