1: PACKAGE BODY IGI_BUD_JOURNAL_BATCHES_PKG as
2: -- $Header: igibudgb.pls 120.5 2007/09/12 10:34:12 pshivara ship $
3:
4: --Bug 3199481
5:
31: X_Last_Updated_By NUMBER,
32: X_Last_Update_Login NUMBER
33: ) IS
34:
35: CURSOR C IS SELECT rowid FROM IGI_BUD_JOURNAL_BATCHES
36: WHERE be_batch_id = X_Be_Batch_Id;
37: CURSOR C2 IS SELECT gl_interface_control_s.nextval FROM sys.dual;
38:
39: BEGIN
42: FETCH C2 INTO X_Be_Batch_Id;
43: CLOSE C2;
44: end if;
45:
46: INSERT INTO IGI_BUD_JOURNAL_BATCHES(
47: be_batch_id,
48: fiscal_year,
49: name,
50: set_of_books_id,
100: X_Date_Completed DATE
101: ) IS
102: CURSOR C IS
103: SELECT *
104: FROM IGI_BUD_JOURNAL_BATCHES
105: WHERE rowid = X_Rowid
106: FOR UPDATE of Be_Batch_Id NOWAIT;
107: Recinfo C%ROWTYPE;
108:
172: X_Last_Update_Login NUMBER,
173: X_REQUEST_ID NUMBER -- bug 5982297
174: ) IS
175: BEGIN
176: UPDATE IGI_BUD_JOURNAL_BATCHES
177: SET
178: be_batch_id = X_Be_Batch_Id,
179: fiscal_year = X_Fiscal_Year,
180: name = X_Name,
204: from igi_bud_journal_headers h
205: where h.be_batch_id = X_Be_Batch_Id;
206:
207: BEGIN
208: DELETE FROM IGI_BUD_JOURNAL_BATCHES
209: WHERE rowid = X_Rowid;
210:
211: for header in related_headers loop
212: igi_bud_journal_headers_pkg.delete_row(header.row_id,
218: end if;
219: END Delete_Row;
220:
221:
222: END IGI_BUD_JOURNAL_BATCHES_PKG;