[Home] [Help]
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;
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 (
15: X_ROWID in out NOCOPY VARCHAR2,
20: X_MAPPING_REQUIRED in VARCHAR2,
21: X_PROGRAM_INSTALLED in VARCHAR2,
22: X_MODE in VARCHAR2
23: ) is
24: cursor C is select ROWID from PSA_IMPLEMENTATION_ALL
25: where PSA_FEATURE = X_PSA_FEATURE
26: and ORG_ID = X_ORG_ID;
27: X_LAST_UPDATE_DATE DATE;
28: X_LAST_UPDATED_BY NUMBER;
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,
60: STATUS,
61: ORG_ID,
62: ALLOCATION_METHOD,
108: STATUS,
109: ALLOCATION_METHOD,
110: MAPPING_REQUIRED,
111: PROGRAM_INSTALLED
112: from PSA_IMPLEMENTATION_ALL
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;
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,
196: ALLOCATION_METHOD = X_ALLOCATION_METHOD,
197: MAPPING_REQUIRED = X_MAPPING_REQUIRED,
198: PROGRAM_INSTALLED = X_PROGRAM_INSTALLED,
216: X_MAPPING_REQUIRED in VARCHAR2,
217: X_PROGRAM_INSTALLED in VARCHAR2,
218: X_MODE in VARCHAR2
219: ) is
220: cursor c1 is select rowid from PSA_IMPLEMENTATION_ALL
221: where PSA_FEATURE = X_PSA_FEATURE
222: and ORG_ID = X_ORG_ID
223: ;
224: dummy c1%rowtype;
260: X_PSA_FEATURE in VARCHAR2,
261: X_ORG_ID in NUMBER
262: ) is
263: begin
264: delete from PSA_IMPLEMENTATION_ALL
265: where PSA_FEATURE = X_PSA_FEATURE
266: and ORG_ID = X_ORG_ID;
267: if (sql%notfound) then
268: raise no_data_found;
268: raise no_data_found;
269: end if;
270: end DELETE_ROW;
271:
272: end PSA_IMPLEMENTATION_ALL_PKG;