[Home] [Help]
1: package body PA_PERF_RULES_PKG as
2: /* $Header: PAPERLTB.pls 120.1 2005/08/19 16:39:34 mwasowic noship $ */
3:
4: procedure INSERT_ROW (
5: X_ROWID in out NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
22: X_LAST_UPDATE_DATE in DATE ,
23: X_LAST_UPDATED_BY in NUMBER ,
24: X_LAST_UPDATE_LOGIN in NUMBER
25: ) is
26: cursor C is select ROWID from PA_PERF_RULES
27: where RULE_ID = X_RULE_ID
28: ;
29: begin
30: insert into PA_PERF_RULES (
26: cursor C is select ROWID from PA_PERF_RULES
27: where RULE_ID = X_RULE_ID
28: ;
29: begin
30: insert into PA_PERF_RULES (
31: RULE_ID,
32: RULE_NAME,
33: RULE_DESCRIPTION,
34: RULE_TYPE,
86: Resource_Busy EXCEPTION;
87: Invalid_Rec_Change EXCEPTION;
88: PRAGMA exception_init(Resource_Busy,-00054);
89: l_rec_ver_no NUMBER;
90: g_module_name VARCHAR2(100) := 'pa.plsql.PA_PERF_RULES';
91: l_debug_mode VARCHAR2(1);
92:
93: l_debug_level2 CONSTANT NUMBER := 2;
94: l_debug_level3 CONSTANT NUMBER := 3;
126: pa_debug.reset_curr_function;
127: END IF;
128:
129: select record_version_number into l_rec_ver_no
130: from pa_perf_rules
131: where rule_id = X_RULE_ID
132: for update nowait;
133:
134: if(X_RECORD_VERSION_NUMBER <> l_rec_ver_no) then
180: X_LAST_UPDATED_BY in NUMBER ,
181: X_LAST_UPDATE_LOGIN in NUMBER
182: ) is
183: begin
184: update PA_PERF_RULES set
185: RULE_NAME = X_RULE_NAME,
186: RULE_DESCRIPTION = X_RULE_DESCRIPTION,
187: RULE_TYPE = X_RULE_TYPE,
188: KPA_CODE = X_KPA_CODE,
210: procedure DELETE_ROW (
211: X_RULE_ID in NUMBER
212: ) is
213: begin
214: delete from PA_PERF_RULES
215: where RULE_ID = X_RULE_ID;
216:
217: if (sql%notfound) then
218: raise no_data_found;
220:
221: end DELETE_ROW;
222:
223:
224: end PA_PERF_RULES_PKG;