1: package body PSA_MF_ADJ_DIST_ALL_PKG AS
2: /* $Header: PSAMFAHB.pls 120.5 2006/09/13 12:20:08 agovil ship $ */
3:
4: --===========================FND_LOG.START=====================================
5: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
6: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
8: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
1: package body PSA_MF_ADJ_DIST_ALL_PKG AS
2: /* $Header: PSAMFAHB.pls 120.5 2006/09/13 12:20:08 agovil ship $ */
3:
4: --===========================FND_LOG.START=====================================
5: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
6: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
8: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
2: /* $Header: PSAMFAHB.pls 120.5 2006/09/13 12:20:08 agovil ship $ */
3:
4: --===========================FND_LOG.START=====================================
5: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
6: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
8: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
10: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
3:
4: --===========================FND_LOG.START=====================================
5: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
6: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
8: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
10: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
11: g_path VARCHAR2(50) := 'PSA.PLSQL.PSAMFAHB.PSA_MF_ADJ_DIST_ALL_PKG.';
4: --===========================FND_LOG.START=====================================
5: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
6: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
8: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
10: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
11: g_path VARCHAR2(50) := 'PSA.PLSQL.PSAMFAHB.PSA_MF_ADJ_DIST_ALL_PKG.';
12: --===========================FND_LOG.END=======================================
5: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
6: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
8: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
10: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
11: g_path VARCHAR2(50) := 'PSA.PLSQL.PSAMFAHB.PSA_MF_ADJ_DIST_ALL_PKG.';
12: --===========================FND_LOG.END=======================================
13:
6: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
8: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
10: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
11: g_path VARCHAR2(50) := 'PSA.PLSQL.PSAMFAHB.PSA_MF_ADJ_DIST_ALL_PKG.';
12: --===========================FND_LOG.END=======================================
13:
14: procedure INSERT_ROW (
8: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
10: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
11: g_path VARCHAR2(50) := 'PSA.PLSQL.PSAMFAHB.PSA_MF_ADJ_DIST_ALL_PKG.';
12: --===========================FND_LOG.END=======================================
13:
14: procedure INSERT_ROW (
15: X_ROWID in out NOCOPY VARCHAR2,
16: X_ADJUSTMENT_ID in NUMBER,
45: and CUST_TRX_LINE_GL_DIST_ID = X_CUST_TRX_LINE_GL_DIST_ID;
46: X_LAST_UPDATE_DATE DATE;
47: X_LAST_UPDATED_BY NUMBER;
48: X_LAST_UPDATE_LOGIN NUMBER;
49: -- ========================= FND LOG ===========================
50: l_full_path VARCHAR2(100) := g_path || 'INSERT_ROW';
51: -- ========================= FND LOG ===========================
52: begin
53: X_LAST_UPDATE_DATE := SYSDATE;
47: X_LAST_UPDATED_BY NUMBER;
48: X_LAST_UPDATE_LOGIN NUMBER;
49: -- ========================= FND LOG ===========================
50: l_full_path VARCHAR2(100) := g_path || 'INSERT_ROW';
51: -- ========================= FND LOG ===========================
52: begin
53: X_LAST_UPDATE_DATE := SYSDATE;
54: if(X_MODE = 'I') then
55: X_LAST_UPDATED_BY := 1;
64: X_LAST_UPDATE_LOGIN := -1;
65: end if;
66: else
67: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
68: -- ========================= FND LOG ===========================
69: psa_utils.debug_other_msg(g_error_level,l_full_path,FALSE);
70: -- ========================= FND LOG ===========================
71: app_exception.raise_exception;
72: end if;
66: else
67: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
68: -- ========================= FND LOG ===========================
69: psa_utils.debug_other_msg(g_error_level,l_full_path,FALSE);
70: -- ========================= FND LOG ===========================
71: app_exception.raise_exception;
72: end if;
73: insert into PSA_MF_ADJ_DIST_ALL (
74: ADJUSTMENT_ID,
199: where ADJUSTMENT_ID = X_ADJUSTMENT_ID
200: and CUST_TRX_LINE_GL_DIST_ID = X_CUST_TRX_LINE_GL_DIST_ID
201: for update of ADJUSTMENT_ID nowait;
202: tlinfo c1%rowtype;
203: -- ========================= FND LOG ===========================
204: l_full_path VARCHAR2(100) := g_path || 'LOCK_ROW';
205: -- ========================= FND LOG ===========================
206:
207: begin
201: for update of ADJUSTMENT_ID nowait;
202: tlinfo c1%rowtype;
203: -- ========================= FND LOG ===========================
204: l_full_path VARCHAR2(100) := g_path || 'LOCK_ROW';
205: -- ========================= FND LOG ===========================
206:
207: begin
208: open c1;
209: fetch c1 into tlinfo;
208: open c1;
209: fetch c1 into tlinfo;
210: if (c1%notfound) then
211: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
212: -- ========================= FND LOG ===========================
213: psa_utils.debug_other_msg(g_error_level,l_full_path,FALSE);
214: -- ========================= FND LOG ===========================
215: app_exception.raise_exception;
216: close c1;
210: if (c1%notfound) then
211: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
212: -- ========================= FND LOG ===========================
213: psa_utils.debug_other_msg(g_error_level,l_full_path,FALSE);
214: -- ========================= FND LOG ===========================
215: app_exception.raise_exception;
216: close c1;
217: return;
218: end if;
284: ) then
285: null;
286: else
287: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
288: -- ========================= FND LOG ===========================
289: psa_utils.debug_other_msg(g_error_level,l_full_path,FALSE);
290: -- ========================= FND LOG ===========================
291: app_exception.raise_exception;
292: end if;
286: else
287: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
288: -- ========================= FND LOG ===========================
289: psa_utils.debug_other_msg(g_error_level,l_full_path,FALSE);
290: -- ========================= FND LOG ===========================
291: app_exception.raise_exception;
292: end if;
293: return;
294: end LOCK_ROW;
323: ) is
324: X_LAST_UPDATE_DATE DATE;
325: X_LAST_UPDATED_BY NUMBER;
326: X_LAST_UPDATE_LOGIN NUMBER;
327: -- ========================= FND LOG ===========================
328: l_full_path VARCHAR2(100) := g_path || 'UPDATE_ROW';
329: -- ========================= FND LOG ===========================
330: begin
331: X_LAST_UPDATE_DATE := SYSDATE;
325: X_LAST_UPDATED_BY NUMBER;
326: X_LAST_UPDATE_LOGIN NUMBER;
327: -- ========================= FND LOG ===========================
328: l_full_path VARCHAR2(100) := g_path || 'UPDATE_ROW';
329: -- ========================= FND LOG ===========================
330: begin
331: X_LAST_UPDATE_DATE := SYSDATE;
332: if(X_MODE = 'I') then
333: X_LAST_UPDATED_BY := 1;
342: X_LAST_UPDATE_LOGIN := -1;
343: end if;
344: else
345: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
346: -- ========================= FND LOG ===========================
347: psa_utils.debug_other_msg(g_error_level,l_full_path,FALSE);
348: -- ========================= FND LOG ===========================
349: app_exception.raise_exception;
350: end if;
344: else
345: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
346: -- ========================= FND LOG ===========================
347: psa_utils.debug_other_msg(g_error_level,l_full_path,FALSE);
348: -- ========================= FND LOG ===========================
349: app_exception.raise_exception;
350: end if;
351: update PSA_MF_ADJ_DIST_ALL set
352: MF_ADJUSTMENT_CCID = X_MF_ADJUSTMENT_CCID,