1: PACKAGE BODY FA_INS_LINES_PKG AS
2: /* $Header: faxinslb.pls 120.4 2009/03/27 03:16:31 bridgway ship $ */
3:
4: PROCEDURE Insert_Row( X_Rowid IN OUT NOCOPY VARCHAR2,
5: X_Asset_policy_id NUMBER,
37: X_Attribute19 VARCHAR2,
38: X_Attribute20 VARCHAR2
39: , p_log_level_rec IN FA_API_TYPES.log_level_rec_type) IS
40:
41: CURSOR C IS SELECT rowid FROM fa_ins_lines
42: WHERE asset_policy_id = X_Asset_policy_id;
43:
44: BEGIN
45: INSERT INTO fa_ins_lines
41: CURSOR C IS SELECT rowid FROM fa_ins_lines
42: WHERE asset_policy_id = X_Asset_policy_id;
43:
44: BEGIN
45: INSERT INTO fa_ins_lines
46: (
47: asset_policy_id,
48: vendor_id,
49: policy_number,
171: , p_log_level_rec IN FA_API_TYPES.log_level_rec_type) IS
172:
173: CURSOR C IS
174: SELECT *
175: FROM fa_ins_lines
176: WHERE rowid = X_Rowid
177: FOR UPDATE OF vendor_id NOWAIT;
178:
179: recinfo C%ROWTYPE;
317: , p_log_level_rec IN FA_API_TYPES.log_level_rec_type) IS
318:
319: BEGIN
320:
321: UPDATE fa_ins_lines
322: SET
323: asset_policy_id = X_Asset_policy_id,
324: vendor_id = X_vendor_id,
325: policy_number = X_policy_number,
366: PROCEDURE Delete_Row( X_Rowid VARCHAR2, p_log_level_rec IN FA_API_TYPES.log_level_rec_type) IS
367:
368: BEGIN
369:
370: DELETE FROM fa_ins_lines
371: WHERE rowid = X_Rowid;
372:
373: IF (SQL%NOTFOUND) THEN
374: RAISE NO_DATA_FOUND;
375: END IF;
376:
377: END Delete_Row;
378:
379: END FA_INS_LINES_PKG;