1: package body PSA_MF_TRX_DIST_ALL_PKG AS
2: /* $Header: PSAMFTDB.pls 120.5 2006/09/13 13:51:32 agovil ship $ */
3: --===========================FND_LOG.START=====================================
4: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
5: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
6: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
7: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
1: package body PSA_MF_TRX_DIST_ALL_PKG AS
2: /* $Header: PSAMFTDB.pls 120.5 2006/09/13 13:51:32 agovil ship $ */
3: --===========================FND_LOG.START=====================================
4: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
5: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
6: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
7: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
1: package body PSA_MF_TRX_DIST_ALL_PKG AS
2: /* $Header: PSAMFTDB.pls 120.5 2006/09/13 13:51:32 agovil ship $ */
3: --===========================FND_LOG.START=====================================
4: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
5: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
6: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
7: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
9: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
2: /* $Header: PSAMFTDB.pls 120.5 2006/09/13 13:51:32 agovil ship $ */
3: --===========================FND_LOG.START=====================================
4: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
5: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
6: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
7: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
9: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
10: g_path VARCHAR2(50) := 'PSA.PLSQL.PSAMFTDB.PSA_MF_TRX_DIST_ALL_PKG.';
3: --===========================FND_LOG.START=====================================
4: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
5: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
6: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
7: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
9: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
10: g_path VARCHAR2(50) := 'PSA.PLSQL.PSAMFTDB.PSA_MF_TRX_DIST_ALL_PKG.';
11: --===========================FND_LOG.END=======================================
4: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
5: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
6: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
7: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
9: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
10: g_path VARCHAR2(50) := 'PSA.PLSQL.PSAMFTDB.PSA_MF_TRX_DIST_ALL_PKG.';
11: --===========================FND_LOG.END=======================================
12:
5: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
6: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
7: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
9: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
10: g_path VARCHAR2(50) := 'PSA.PLSQL.PSAMFTDB.PSA_MF_TRX_DIST_ALL_PKG.';
11: --===========================FND_LOG.END=======================================
12:
13: procedure INSERT_ROW (
7: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
9: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
10: g_path VARCHAR2(50) := 'PSA.PLSQL.PSAMFTDB.PSA_MF_TRX_DIST_ALL_PKG.';
11: --===========================FND_LOG.END=======================================
12:
13: procedure INSERT_ROW (
14: X_ROWID in out NOCOPY VARCHAR2,
15: X_CUST_TRX_LINE_GL_DIST_ID in NUMBER,
38: where CUST_TRX_LINE_GL_DIST_ID = X_CUST_TRX_LINE_GL_DIST_ID;
39: X_LAST_UPDATE_DATE DATE;
40: X_LAST_UPDATED_BY NUMBER;
41: X_LAST_UPDATE_LOGIN NUMBER;
42: -- ========================= FND LOG ===========================
43: l_full_path VARCHAR2(100) := g_path || 'INSERT_ROW';
44: -- ========================= FND LOG ===========================
45: begin
46: X_LAST_UPDATE_DATE := SYSDATE;
40: X_LAST_UPDATED_BY NUMBER;
41: X_LAST_UPDATE_LOGIN NUMBER;
42: -- ========================= FND LOG ===========================
43: l_full_path VARCHAR2(100) := g_path || 'INSERT_ROW';
44: -- ========================= FND LOG ===========================
45: begin
46: X_LAST_UPDATE_DATE := SYSDATE;
47: if(X_MODE = 'I') then
48: X_LAST_UPDATED_BY := 1;
57: X_LAST_UPDATE_LOGIN := -1;
58: end if;
59: else
60: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
61: -- ========================= FND LOG ===========================
62: psa_utils.debug_other_msg(g_error_level,l_full_path,FALSE);
63: -- ========================= FND LOG ===========================
64: app_exception.raise_exception;
65: end if;
59: else
60: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
61: -- ========================= FND LOG ===========================
62: psa_utils.debug_other_msg(g_error_level,l_full_path,FALSE);
63: -- ========================= FND LOG ===========================
64: app_exception.raise_exception;
65: end if;
66: insert into PSA_MF_TRX_DIST_ALL (
67: CUST_TRX_LINE_GL_DIST_ID,
172: from PSA_MF_TRX_DIST_ALL
173: where CUST_TRX_LINE_GL_DIST_ID = X_CUST_TRX_LINE_GL_DIST_ID
174: for update of CUST_TRX_LINE_GL_DIST_ID nowait;
175: tlinfo c1%rowtype;
176: -- ========================= FND LOG ===========================
177: l_full_path VARCHAR2(100) := g_path || 'LOCK_ROW';
178: -- ========================= FND LOG ===========================
179: begin
180: open c1;
174: for update of CUST_TRX_LINE_GL_DIST_ID nowait;
175: tlinfo c1%rowtype;
176: -- ========================= FND LOG ===========================
177: l_full_path VARCHAR2(100) := g_path || 'LOCK_ROW';
178: -- ========================= FND LOG ===========================
179: begin
180: open c1;
181: fetch c1 into tlinfo;
182: if (c1%notfound) then
180: open c1;
181: fetch c1 into tlinfo;
182: if (c1%notfound) then
183: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
184: -- ========================= FND LOG ===========================
185: psa_utils.debug_other_msg(g_error_level,l_full_path,FALSE);
186: -- ========================= FND LOG ===========================
187: app_exception.raise_exception;
188: close c1;
182: if (c1%notfound) then
183: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
184: -- ========================= FND LOG ===========================
185: psa_utils.debug_other_msg(g_error_level,l_full_path,FALSE);
186: -- ========================= FND LOG ===========================
187: app_exception.raise_exception;
188: close c1;
189: return;
190: end if;
248: ) then
249: null;
250: else
251: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
252: -- ========================= FND LOG ===========================
253: psa_utils.debug_other_msg(g_error_level,l_full_path,FALSE);
254: -- ========================= FND LOG ===========================
255: app_exception.raise_exception;
256: end if;
250: else
251: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
252: -- ========================= FND LOG ===========================
253: psa_utils.debug_other_msg(g_error_level,l_full_path,FALSE);
254: -- ========================= FND LOG ===========================
255: app_exception.raise_exception;
256: end if;
257: return;
258: end LOCK_ROW;
282: ) is
283: X_LAST_UPDATE_DATE DATE;
284: X_LAST_UPDATED_BY NUMBER;
285: X_LAST_UPDATE_LOGIN NUMBER;
286: -- ========================= FND LOG ===========================
287: l_full_path VARCHAR2(100) := g_path || 'UPDATE_ROW';
288: -- ========================= FND LOG ===========================
289: begin
290: X_LAST_UPDATE_DATE := SYSDATE;
284: X_LAST_UPDATED_BY NUMBER;
285: X_LAST_UPDATE_LOGIN NUMBER;
286: -- ========================= FND LOG ===========================
287: l_full_path VARCHAR2(100) := g_path || 'UPDATE_ROW';
288: -- ========================= FND LOG ===========================
289: begin
290: X_LAST_UPDATE_DATE := SYSDATE;
291: if(X_MODE = 'I') then
292: X_LAST_UPDATED_BY := 1;
301: X_LAST_UPDATE_LOGIN := -1;
302: end if;
303: else
304: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
305: -- ========================= FND LOG ===========================
306: psa_utils.debug_other_msg(g_error_level,l_full_path,FALSE);
307: -- ========================= FND LOG ===========================
308: app_exception.raise_exception;
309: end if;
303: else
304: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
305: -- ========================= FND LOG ===========================
306: psa_utils.debug_other_msg(g_error_level,l_full_path,FALSE);
307: -- ========================= FND LOG ===========================
308: app_exception.raise_exception;
309: end if;
310: update PSA_MF_TRX_DIST_ALL set
311: MF_RECEIVABLES_CCID = X_MF_RECEIVABLES_CCID,