1: PACKAGE BODY IGI_RPI_ITEMS_PKG AS
2: --- $Header: igiritmb.pls 120.3.12000000.1 2007/08/31 05:52:44 mbremkum ship $
3:
4: l_debug_level number:=FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5:
35: l_Item_Id NUMBER;
36: l_Row_ID VARCHAR(30);
37:
38: CURSOR Cursor_Row_ID IS SELECT rowid
39: FROM igi_rpi_items
40: WHERE item_id = X_Item_Id;
41:
42: CURSOR Cursor_Item_id IS SELECT igi_rpi_items_s.nextval FROM sys.dual;
43:
38: CURSOR Cursor_Row_ID IS SELECT rowid
39: FROM igi_rpi_items
40: WHERE item_id = X_Item_Id;
41:
42: CURSOR Cursor_Item_id IS SELECT igi_rpi_items_s.nextval FROM sys.dual;
43:
44: BEGIN
45: IF (X_Item_Id is NULL)
46: THEN
54:
55: Close Cursor_Item_id;
56: END IF;
57:
58: LOCK TABLE igi_rpi_items IN SHARE UPDATE MODE;
59: IF (X_Item_Id is NOT NULL)
60: THEN
61: INSERT INTO igi_rpi_items( item_id
62: , set_of_books_id
57:
58: LOCK TABLE igi_rpi_items IN SHARE UPDATE MODE;
59: IF (X_Item_Id is NOT NULL)
60: THEN
61: INSERT INTO igi_rpi_items( item_id
62: , set_of_books_id
63: , item_code
64: , price
65: , price_effective_date
115: WHEN app_exceptions.application_exception THEN RAISE;
116: WHEN OTHERS THEN
117: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
118: fnd_message.set_token('PROCEDURE',
119: 'IGI_RPI_ITEMS_PKG.Insert_Row');
120: -- bug 3199481, start block
121: IF (l_unexp_level >= l_debug_level) THEN
122: FND_MESSAGE.SET_NAME('IGI', 'IGI_LOGGING_UNEXP_ERROR');
123: FND_MESSAGE.SET_TOKEN('CODE', sqlcode);
122: FND_MESSAGE.SET_NAME('IGI', 'IGI_LOGGING_UNEXP_ERROR');
123: FND_MESSAGE.SET_TOKEN('CODE', sqlcode);
124: FND_MESSAGE.SET_TOKEN('MSG', sqlerrm);
125:
126: FND_LOG.MESSAGE(l_unexp_level, 'igi.plsql.igi_rpi_items_pkg.insert_row.Msg1',TRUE);
127: END IF;
128: -- bug 3199481, end block
129: RAISE;
130:
150: , X_Enabled_Flag IN VARCHAR2 )
151: IS
152: BEGIN
153:
154: LOCK TABLE igi_rpi_items IN SHARE UPDATE MODE;
155:
156: UPDATE igi_rpi_items
157: SET item_code = X_Item_Code
158: , price = X_Price
152: BEGIN
153:
154: LOCK TABLE igi_rpi_items IN SHARE UPDATE MODE;
155:
156: UPDATE igi_rpi_items
157: SET item_code = X_Item_Code
158: , price = X_Price
159: , price_effective_date = X_Price_Effective_Date
160: , unit_of_measure = X_Unit_Of_Measure
177: WHEN app_exceptions.application_exception THEN RAISE;
178: WHEN OTHERS THEN
179: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
180: fnd_message.set_token('PROCEDURE',
181: 'IGI_RPI_ITEMS_PKG.Update_Row');
182: -- bug 3199481, start block
183: IF (l_unexp_level >= l_debug_level) THEN
184: FND_MESSAGE.SET_NAME('IGI', 'IGI_LOGGING_UNEXP_ERROR');
185: FND_MESSAGE.SET_TOKEN('CODE', sqlcode);
184: FND_MESSAGE.SET_NAME('IGI', 'IGI_LOGGING_UNEXP_ERROR');
185: FND_MESSAGE.SET_TOKEN('CODE', sqlcode);
186: FND_MESSAGE.SET_TOKEN('MSG', sqlerrm);
187:
188: FND_LOG.MESSAGE(l_unexp_level, 'igi.plsql.igi_rpi_items_pkg.update_row.Msg1',TRUE);
189: END IF;
190: -- bug 3199481, end block
191: RAISE;
192:
195:
196: PROCEDURE Delete_Row(X_Item_Id NUMBER)
197: IS
198: BEGIN
199: DELETE FROM igi_rpi_items
200: WHERE Item_Id = X_Item_Id;
201:
202: IF (SQL%NOTFOUND)
203: THEN
205: END IF;
206:
207: END Delete_Row;
208:
209: END IGI_RPI_ITEMS_PKG;