1: PACKAGE BODY FA_INS_POLICIES_PKG AS
2: /* $Header: faxinspb.pls 120.3 2005/07/25 10:00:56 yyoon ship $ */
3:
4:
5: PROCEDURE Get_Calculation_Method (X_Vendor_id NUMBER,
79: X_Attribute20 VARCHAR2,
80: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) IS
81:
82:
83: CURSOR C IS SELECT rowid FROM fa_ins_policies
84: WHERE asset_policy_id = X_Asset_policy_id
85: AND policy_number = X_Policy_number
86: AND asset_id = X_Asset_id;
87:
126: );
127:
128: END IF;
129:
130: INSERT INTO fa_ins_policies
131: (
132: asset_policy_id,
133: asset_id,
134: book_type_code,
264: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) IS
265:
266: CURSOR C IS
267: SELECT *
268: FROM fa_ins_policies
269: WHERE rowid = X_Rowid
270: FOR UPDATE OF policy_number NOWAIT;
271:
272: recinfo C%ROWTYPE;
427: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) IS
428:
429: BEGIN
430:
431: UPDATE fa_ins_policies
432: SET
433: asset_policy_id = X_Asset_policy_id,
434: asset_id = X_Asset_id,
435: book_type_code = X_Book_type_code,
480: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) IS
481:
482: BEGIN
483:
484: DELETE FROM fa_ins_policies
485: WHERE rowid = X_Rowid;
486:
487: IF (SQL%NOTFOUND) THEN
488: RAISE NO_DATA_FOUND;
489: END IF;
490:
491: END Delete_Row;
492:
493: END FA_INS_POLICIES_PKG;