1: package body PSA_IMPLEMENTATION_ALL_PKG as
2: /* $Header: PSAIMPLB.pls 120.5 2006/09/13 12:05:59 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_IMPLEMENTATION_ALL_PKG as
2: /* $Header: PSAIMPLB.pls 120.5 2006/09/13 12:05:59 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: PSAIMPLB.pls 120.5 2006/09/13 12:05:59 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.PSAIMPLB.PSA_IMPLEMENTATION_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.PSAIMPLB.PSA_IMPLEMENTATION_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.PSAIMPLB.PSA_IMPLEMENTATION_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.PSAIMPLB.PSA_IMPLEMENTATION_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.PSAIMPLB.PSA_IMPLEMENTATION_ALL_PKG.';
12: --===========================FND_LOG.END=======================================
13:
14: procedure INSERT_ROW (
15: X_ROWID in out NOCOPY VARCHAR2,
16: X_PSA_FEATURE in VARCHAR2,
27: X_LAST_UPDATE_DATE DATE;
28: X_LAST_UPDATED_BY NUMBER;
29: X_LAST_UPDATE_LOGIN NUMBER;
30: l_rowid NUMBER;
31: -- ======================== FND LOG ======================
32: l_full_path VARCHAR2(100) := g_path || 'INSERT_ROW';
33: -- ======================== FND LOG ======================
34: begin
35:
29: X_LAST_UPDATE_LOGIN NUMBER;
30: l_rowid NUMBER;
31: -- ======================== FND LOG ======================
32: l_full_path VARCHAR2(100) := g_path || 'INSERT_ROW';
33: -- ======================== FND LOG ======================
34: begin
35:
36: l_rowid := X_ROWID;
37:
49: X_LAST_UPDATE_LOGIN := -1;
50: end if;
51: else
52: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
53: -- ========================= FND LOG ===========================
54: psa_utils.debug_other_msg(g_error_level,l_full_path,FALSE);
55: -- ========================= FND LOG ===========================
56: app_exception.raise_exception;
57: end if;
51: else
52: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
53: -- ========================= FND LOG ===========================
54: psa_utils.debug_other_msg(g_error_level,l_full_path,FALSE);
55: -- ========================= FND LOG ===========================
56: app_exception.raise_exception;
57: end if;
58: insert into PSA_IMPLEMENTATION_ALL (
59: PSA_FEATURE,
113: where PSA_FEATURE = X_PSA_FEATURE
114: and ORG_ID = X_ORG_ID
115: for update of PSA_FEATURE nowait;
116: tlinfo c1%rowtype;
117: -- ========================= FND LOG ===========================
118: l_full_path VARCHAR2(100) := g_path || 'LOCK_ROW';
119: -- ========================= FND LOG ===========================
120: begin
121: open c1;
115: for update of PSA_FEATURE nowait;
116: tlinfo c1%rowtype;
117: -- ========================= FND LOG ===========================
118: l_full_path VARCHAR2(100) := g_path || 'LOCK_ROW';
119: -- ========================= FND LOG ===========================
120: begin
121: open c1;
122: fetch c1 into tlinfo;
123: if (c1%notfound) then
121: open c1;
122: fetch c1 into tlinfo;
123: if (c1%notfound) then
124: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
125: -- ========================= FND LOG ===========================
126: psa_utils.debug_other_msg(g_error_level,l_full_path,FALSE);
127: -- ========================= FND LOG ===========================
128: app_exception.raise_exception;
129: close c1;
123: if (c1%notfound) then
124: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
125: -- ========================= FND LOG ===========================
126: psa_utils.debug_other_msg(g_error_level,l_full_path,FALSE);
127: -- ========================= FND LOG ===========================
128: app_exception.raise_exception;
129: close c1;
130: return;
131: end if;
146: ) then
147: null;
148: else
149: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
150: -- ========================= FND LOG ===========================
151: psa_utils.debug_other_msg(g_error_level,l_full_path,FALSE);
152: -- ========================= FND LOG ===========================
153: app_exception.raise_exception;
154: end if;
148: else
149: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
150: -- ========================= FND LOG ===========================
151: psa_utils.debug_other_msg(g_error_level,l_full_path,FALSE);
152: -- ========================= FND LOG ===========================
153: app_exception.raise_exception;
154: end if;
155: return;
156: end LOCK_ROW;
166: ) is
167: X_LAST_UPDATE_DATE DATE;
168: X_LAST_UPDATED_BY NUMBER;
169: X_LAST_UPDATE_LOGIN NUMBER;
170: -- ========================= FND LOG ===========================
171: l_full_path VARCHAR2(100) := g_path || 'UPDATE_ROW';
172: -- ========================= FND LOG ===========================
173: begin
174: X_LAST_UPDATE_DATE := SYSDATE;
168: X_LAST_UPDATED_BY NUMBER;
169: X_LAST_UPDATE_LOGIN NUMBER;
170: -- ========================= FND LOG ===========================
171: l_full_path VARCHAR2(100) := g_path || 'UPDATE_ROW';
172: -- ========================= FND LOG ===========================
173: begin
174: X_LAST_UPDATE_DATE := SYSDATE;
175: if(X_MODE = 'I') then
176: X_LAST_UPDATED_BY := 1;
185: X_LAST_UPDATE_LOGIN := -1;
186: end if;
187: else
188: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
189: -- ========================= FND LOG ===========================
190: psa_utils.debug_other_msg(g_error_level,l_full_path,FALSE);
191: -- ========================= FND LOG ===========================
192: app_exception.raise_exception;
193: end if;
187: else
188: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
189: -- ========================= FND LOG ===========================
190: psa_utils.debug_other_msg(g_error_level,l_full_path,FALSE);
191: -- ========================= FND LOG ===========================
192: app_exception.raise_exception;
193: end if;
194: update PSA_IMPLEMENTATION_ALL set
195: STATUS = X_STATUS,