1: PACKAGE BODY IGI_ITR_CHARGE_LINES_AUDIT_PKG as
2: -- $Header: igiitrqb.pls 120.5.12000000.1 2007/09/12 10:32:25 mbremkum ship $
3: --
4:
5: l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
45: X_Last_Updated_By NUMBER
46: ) IS
47: /*
48: CURSOR C IS SELECT rowid
49: FROM igi_itr_charge_lines_audit
50: WHERE it_service_line_id = X_It_Service_Line_Id;
51: */
52:
53:
53:
54: BEGIN
55:
56:
57: INSERT INTO igi_itr_charge_lines_audit(
58: it_service_line_id,
59: it_header_id,
60: it_line_num,
61: set_of_books_id,
166:
167:
168: CURSOR C IS
169: SELECT *
170: FROM igi_itr_charge_lines_audit
171: WHERE it_service_line_id = X_It_Service_Line_Id
172: AND reversal_flag = 'N'
173: FOR UPDATE of it_service_line_id NOWAIT;
174:
182: IF (C%NOTFOUND) THEN
183: CLOSE C;
184: fnd_message.set_name('FND','FORM_RECORD_DELETED');
185: IF( l_excep_level >= l_debug_level) THEN
186: FND_LOG.MESSAGE(l_excep_level,'igi.plsql.igiitrqb.IGI_ITR_CHARGE_LINES_AUDIT_PKG.lock_row.msg1', FALSE);
187: END IF;
188: app_exception.raise_exception;
189: END IF;
190: CLOSE C;
275: return;
276: ELSE
277: fnd_message.set_name('FND','FORM_RECORD_CHANGED');
278: IF( l_excep_level >= l_debug_level) THEN
279: FND_LOG.MESSAGE(l_excep_level,'igi.plsql.igiitrqb.IGI_ITR_CHARGE_LINES_AUDIT_PKG.lock_row.msg2', FALSE);
280: END IF;
281: APP_EXCEPTION.raise_exception;
282: END IF;
283:
319: X_Last_Updated_By NUMBER
320: ) IS
321: BEGIN
322:
323: UPDATE igi_itr_charge_lines_audit
324: SET
325: it_service_line_id = X_It_Service_Line_Id,
326: it_header_id = X_It_Header_Id,
327: it_line_num = X_It_Line_Num,
362: END Update_Row;
363:
364:
365:
366: END IGI_ITR_CHARGE_LINES_AUDIT_PKG;