1: PACKAGE BODY FA_TRX_REFERENCES_PKG as
2: /* $Header: faxitrb.pls 120.5 2009/03/27 08:59:02 bridgway ship $ */
3:
4: PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
5: X_Trx_Reference_Id IN OUT NOCOPY NUMBER,
30: X_Return_Status OUT NOCOPY BOOLEAN,
31: X_Calling_Fn VARCHAR2
32: , p_log_level_rec IN FA_API_TYPES.log_level_rec_type) IS
33:
34: CURSOR C IS SELECT rowid FROM fa_trx_references
35: WHERE trx_reference_id = X_Trx_Reference_Id;
36:
37: CURSOR C2 IS SELECT fa_trx_references_s.nextval FROM dual;
38:
33:
34: CURSOR C IS SELECT rowid FROM fa_trx_references
35: WHERE trx_reference_id = X_Trx_Reference_Id;
36:
37: CURSOR C2 IS SELECT fa_trx_references_s.nextval FROM dual;
38:
39: BEGIN
40: if (X_Trx_Reference_Id is NULL) then
41: OPEN C2;
42: FETCH C2 INTO X_Trx_Reference_Id;
43: CLOSE C2;
44: end if;
45:
46: INSERT INTO fa_trx_references(
47: trx_reference_id,
48: book_type_code,
49: src_asset_id,
50: src_transaction_header_id,
109:
110: exception
111: when others then
112: FA_SRVR_MSG.Add_SQL_Error(
113: CALLING_FN => 'FA_TRX_REFERENCES_PKG.Insert_Row', p_log_level_rec => p_log_level_rec);
114: X_Return_Status := FALSE;
115: raise;
116:
117: END Insert_Row;
127:
128: */
129:
130:
131: END FA_TRX_REFERENCES_PKG;