[Home] [Help]
1: package body PA_PERF_THRESHOLDS_PKG as
2: /* $Header: PAPETHTB.pls 120.1 2005/08/19 16:39:58 mwasowic noship $ */
3:
4: procedure INSERT_ROW (
5: X_ROWID in out NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
18: X_LAST_UPDATE_DATE in DATE ,
19: X_LAST_UPDATED_BY in NUMBER ,
20: X_LAST_UPDATE_LOGIN in NUMBER
21: ) is
22: cursor C is select ROWID from PA_PERF_THRESHOLDS
23: where THRESHOLD_ID = X_THRESHOLD_ID
24: ;
25: begin
26: insert into PA_PERF_THRESHOLDS (
22: cursor C is select ROWID from PA_PERF_THRESHOLDS
23: where THRESHOLD_ID = X_THRESHOLD_ID
24: ;
25: begin
26: insert into PA_PERF_THRESHOLDS (
27: THRESHOLD_ID,
28: RULE_TYPE,
29: THRES_OBJ_ID,
30: FROM_VALUE,
74: Resource_Busy EXCEPTION;
75: Invalid_Rec_Change EXCEPTION;
76: PRAGMA exception_init(Resource_Busy,-00054);
77: l_rec_ver_no NUMBER;
78: g_module_name VARCHAR2(100) := 'pa.plsql.PA_PERF_THRESHOLDS';
79: l_debug_mode VARCHAR2(1);
80:
81: l_debug_level2 CONSTANT NUMBER := 2;
82: l_debug_level3 CONSTANT NUMBER := 3;
114: pa_debug.reset_curr_function;
115: END IF;
116:
117: select record_version_number into l_rec_ver_no
118: from pa_perf_thresholds
119: where threshold_id = X_THRESHOLD_ID
120: for update nowait;
121:
122: if(X_RECORD_VERSION_NUMBER <> l_rec_ver_no) then
163: X_LAST_UPDATED_BY in NUMBER,
164: X_LAST_UPDATE_LOGIN in NUMBER
165: ) is
166: begin
167: update PA_PERF_THRESHOLDS set
168: RULE_TYPE = X_RULE_TYPE,
169: THRES_OBJ_ID = X_THRES_OBJ_ID,
170: FROM_VALUE = X_FROM_VALUE,
171: TO_VALUE = X_TO_VALUE,
189: procedure DELETE_ROW (
190: X_THRESHOLD_ID in NUMBER
191: ) is
192: begin
193: delete from PA_PERF_THRESHOLDS
194: where THRESHOLD_ID = X_THRESHOLD_ID;
195:
196: if (sql%notfound) then
197: raise no_data_found;
199:
200: end DELETE_ROW;
201:
202:
203: end PA_PERF_THRESHOLDS_PKG;