APPS.PA_PERF_OBJECT_RULES_PKG dependencies on PA_PERF_OBJECT_RULES

Line 1: package body PA_PERF_OBJECT_RULES_PKG as

1: package body PA_PERF_OBJECT_RULES_PKG as
2: /* $Header: PAPEORTB.pls 120.1 2005/08/19 16:39:06 mwasowic noship $ */
3:
4: procedure INSERT_ROW (
5: X_ROWID in out NOCOPY VARCHAR2, --File.Sql.39 bug 4440895

Line 17: cursor C is select ROWID from PA_PERF_OBJECT_RULES

13: X_LAST_UPDATE_DATE in DATE,
14: X_LAST_UPDATED_BY in NUMBER,
15: X_LAST_UPDATE_LOGIN in NUMBER
16: ) is
17: cursor C is select ROWID from PA_PERF_OBJECT_RULES
18: where OBJECT_RULE_ID = X_OBJECT_RULE_ID
19: ;
20: begin
21: insert into PA_PERF_OBJECT_RULES (

Line 21: insert into PA_PERF_OBJECT_RULES (

17: cursor C is select ROWID from PA_PERF_OBJECT_RULES
18: where OBJECT_RULE_ID = X_OBJECT_RULE_ID
19: ;
20: begin
21: insert into PA_PERF_OBJECT_RULES (
22: OBJECT_RULE_ID,
23: OBJECT_TYPE,
24: OBJECT_ID,
25: RULE_ID,

Line 62: g_module_name VARCHAR2(100) := 'pa.plsql.PA_PERF_OBJECT_RULES';

58: Resource_Busy EXCEPTION;
59: Invalid_Rec_Change EXCEPTION;
60: PRAGMA exception_init(Resource_Busy,-00054);
61: l_rec_ver_no NUMBER;
62: g_module_name VARCHAR2(100) := 'pa.plsql.PA_PERF_OBJECT_RULES';
63: l_debug_mode VARCHAR2(1);
64:
65: l_debug_level2 CONSTANT NUMBER := 2;
66: l_debug_level3 CONSTANT NUMBER := 3;

Line 102: from pa_perf_object_rules

98: pa_debug.reset_curr_function;
99: END IF;
100:
101: select record_version_number into l_rec_ver_no
102: from pa_perf_object_rules
103: where object_rule_id = X_OBJECT_RULE_ID
104: for update nowait;
105:
106: if(X_RECORD_VERSION_NUMBER <> l_rec_ver_no) then

Line 146: update PA_PERF_OBJECT_RULES set

142: X_LAST_UPDATED_BY in NUMBER ,
143: X_LAST_UPDATE_LOGIN in NUMBER
144: ) is
145: begin
146: update PA_PERF_OBJECT_RULES set
147: OBJECT_TYPE = X_OBJECT_TYPE,
148: OBJECT_ID = X_OBJECT_ID,
149: RULE_ID = X_RULE_ID,
150: OBJECT_RULE_ID = X_OBJECT_RULE_ID,

Line 167: delete from PA_PERF_OBJECT_RULES

163: procedure DELETE_ROW (
164: X_OBJECT_RULE_ID in NUMBER
165: ) is
166: begin
167: delete from PA_PERF_OBJECT_RULES
168: where OBJECT_RULE_ID = X_OBJECT_RULE_ID;
169:
170: if (sql%notfound) then
171: raise no_data_found;

Line 177: end PA_PERF_OBJECT_RULES_PKG;

173:
174: end DELETE_ROW;
175:
176:
177: end PA_PERF_OBJECT_RULES_PKG;