APPS.IGI_RPI_UPDATE_HDR_PKG dependencies on IGI_RPI_UPDATE_HDR

Line 1: PACKAGE BODY IGI_RPI_UPDATE_HDR_PKG as

1: PACKAGE BODY IGI_RPI_UPDATE_HDR_PKG as
2: --- $Header: igiruphb.pls 120.4.12000000.1 2007/08/31 05:53:59 mbremkum ship $
3:
4: l_debug_level number:=FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5:

Line 33: CURSOR C IS SELECT rowid FROM igi_rpi_update_hdr

29: X_Last_Update_Date DATE,
30: X_Last_Update_Login NUMBER,
31: X_Incr_Decr_Flag VARCHAR2
32: ) IS
33: CURSOR C IS SELECT rowid FROM igi_rpi_update_hdr
34: WHERE run_id = X_run_id;
35:
36: BEGIN
37:

Line 39: INSERT INTO igi_rpi_update_hdr (

35:
36: BEGIN
37:
38:
39: INSERT INTO igi_rpi_update_hdr (
40: run_id,
41: org_id,
42: item_id_from,
43: item_id_to,

Line 100: FROM igi_rpi_update_hdr

96: X_Incr_decr_flag VARCHAR2
97: ) IS
98: CURSOR C IS
99: SELECT *
100: FROM igi_rpi_update_hdr
101: WHERE rowid = X_Rowid
102: FOR UPDATE of run_id NOWAIT;
103: Recinfo C%ROWTYPE;
104: BEGIN

Line 112: FND_LOG.MESSAGE(l_unexp_level,'igi.plsql.igi_rpi_update_hdr_pkg.lock_row.Msg1',FALSE);

108: CLOSE C;
109: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
110: --Bug 3199481 (start)
111: If (l_unexp_level >= l_debug_level) then
112: FND_LOG.MESSAGE(l_unexp_level,'igi.plsql.igi_rpi_update_hdr_pkg.lock_row.Msg1',FALSE);
113: End if;
114: --Bug 3199481 (end)
115: APP_EXCEPTION.Raise_Exception;
116: end if;

Line 141: FND_LOG.MESSAGE(l_unexp_level,'igi.plsql.igi_rpi_update_hdr_pkg.lock_row.Msg2',FALSE);

137: else
138: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
139: --Bug 3199481 (start)
140: If (l_unexp_level >= l_debug_level) then
141: FND_LOG.MESSAGE(l_unexp_level,'igi.plsql.igi_rpi_update_hdr_pkg.lock_row.Msg2',FALSE);
142: End if;
143: --Bug 3199481 (end)
144: APP_EXCEPTION.Raise_Exception;
145: end if;

Line 165: UPDATE igi_rpi_update_hdr

161: X_Last_Update_Login NUMBER,
162: X_Incr_Decr_Flag VARCHAR2
163: ) IS
164: BEGIN
165: UPDATE igi_rpi_update_hdr
166: SET
167: run_id = X_run_id,
168: item_id_from = X_item_id_from,
169: item_id_to = X_item_id_to,

Line 189: DELETE FROM igi_rpi_update_hdr

185: END Update_Row;
186:
187: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
188: BEGIN
189: DELETE FROM igi_rpi_update_hdr
190: WHERE rowid = X_Rowid;
191:
192: if (SQL%NOTFOUND) then
193: Raise NO_DATA_FOUND;

Line 198: END IGI_RPI_UPDATE_HDR_PKG;

194: end if;
195: END Delete_Row;
196:
197:
198: END IGI_RPI_UPDATE_HDR_PKG;