[Home] [Help]
1: package body PA_PERF_TRANSACTIONS_PKG as
2: /* $Header: PAPEEXTB.pls 120.1 2005/08/19 16:38:45 mwasowic noship $ */
3:
4: procedure INSERT_ROW (
5: X_ROWID in out NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
34: X_LAST_UPDATE_DATE in DATE ,
35: X_LAST_UPDATED_BY in NUMBER ,
36: X_LAST_UPDATE_LOGIN in NUMBER
37: ) is
38: cursor C is select ROWID from PA_PERF_TRANSACTIONS
39: where PERF_TXN_ID = X_PERF_TXN_ID
40: ;
41: begin
42: insert into PA_PERF_TRANSACTIONS (
38: cursor C is select ROWID from PA_PERF_TRANSACTIONS
39: where PERF_TXN_ID = X_PERF_TXN_ID
40: ;
41: begin
42: insert into PA_PERF_TRANSACTIONS (
43: PERF_TXN_ID,
44: PERF_TXN_OBJ_TYPE,
45: PERF_TXN_OBJ_ID,
46: OBJECT_RULE_ID,
122: Resource_Busy EXCEPTION;
123: Invalid_Rec_Change EXCEPTION;
124: PRAGMA exception_init(Resource_Busy,-00054);
125: l_rec_ver_no NUMBER;
126: g_module_name VARCHAR2(100) := 'pa.plsql.PA_PERF_TRANSACTIONS_PKG';
127: l_debug_mode VARCHAR2(1);
128:
129: l_debug_level2 CONSTANT NUMBER := 2;
130: l_debug_level3 CONSTANT NUMBER := 3;
163: pa_debug.reset_curr_function;
164: END IF;
165:
166: select record_version_number into l_rec_ver_no
167: from pa_perf_transactions
168: where perf_txn_id = X_PERF_TXN_ID
169: for update nowait;
170:
171: if(X_RECORD_VERSION_NUMBER <> l_rec_ver_no) then
229: X_LAST_UPDATED_BY in NUMBER ,
230: X_LAST_UPDATE_LOGIN in NUMBER
231: ) is
232: begin
233: update PA_PERF_TRANSACTIONS set
234: PERF_TXN_ID = X_PERF_TXN_ID,
235: PERF_TXN_OBJ_TYPE = X_PERF_TXN_OBJ_TYPE,
236: PERF_TXN_OBJ_ID = X_PERF_TXN_OBJ_ID,
237: OBJECT_RULE_ID = X_OBJECT_RULE_ID,
271: procedure DELETE_ROW (
272: X_PERF_TXN_ID in NUMBER
273: ) is
274: begin
275: delete from PA_PERF_TRANSACTIONS
276: where PERF_TXN_ID = X_PERF_TXN_ID;
277:
278: if (sql%notfound) then
279: raise no_data_found;
281:
282: end DELETE_ROW;
283:
284:
285: end PA_PERF_TRANSACTIONS_PKG;