DBA Data[Home] [Help]

APPS.PA_PERF_OBJECT_RULES_PVT dependencies on PA_PERF_OBJECT_RULES

Line 1: PACKAGE BODY PA_PERF_OBJECT_RULES_PVT AS

1: PACKAGE BODY PA_PERF_OBJECT_RULES_PVT AS
2: /* $Header: PAPEORVB.pls 120.1 2005/08/19 16:39:14 mwasowic noship $ */
3:
4: g_module_name VARCHAR2(100) := 'pa.plsql.pa_perf_object_rules_pvt';
5:

Line 4: g_module_name VARCHAR2(100) := 'pa.plsql.pa_perf_object_rules_pvt';

1: PACKAGE BODY PA_PERF_OBJECT_RULES_PVT AS
2: /* $Header: PAPEORVB.pls 120.1 2005/08/19 16:39:14 mwasowic noship $ */
3:
4: g_module_name VARCHAR2(100) := 'pa.plsql.pa_perf_object_rules_pvt';
5:
6: /*==================================================================
7: PROCEDURE
8: create_rule_object

Line 10: This procedure inserts a row into the pa_perf_object_rules table.

6: /*==================================================================
7: PROCEDURE
8: create_rule_object
9: PURPOSE
10: This procedure inserts a row into the pa_perf_object_rules table.
11: ==================================================================*/
12:
13:
14: PROCEDURE create_rule_object(

Line 44: PA_DEBUG.init_err_stack('PA_PERF_OBJECT_RULES_PVT.create_rule_object');

40:
41: BEGIN
42:
43: -- Initialize the Error Stack
44: PA_DEBUG.init_err_stack('PA_PERF_OBJECT_RULES_PVT.create_rule_object');
45: x_msg_count := 0;
46: x_msg_data := NULL;
47: x_return_status := FND_API.G_RET_STS_SUCCESS;
48: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');

Line 51: pa_debug.set_curr_function( p_function => 'PA_PERF_OBJECT_RULES_PVT.create_rule_object',

47: x_return_status := FND_API.G_RET_STS_SUCCESS;
48: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
49:
50: IF l_debug_mode = 'Y' THEN
51: pa_debug.set_curr_function( p_function => 'PA_PERF_OBJECT_RULES_PVT.create_rule_object',
52: p_debug_mode => l_debug_mode );
53: END IF;
54:
55: IF l_debug_mode = 'Y' THEN

Line 56: pa_debug.g_err_stage:= 'Entered PA_PERF_OBJECT_RULES_PVT.create_rule_object';

52: p_debug_mode => l_debug_mode );
53: END IF;
54:
55: IF l_debug_mode = 'Y' THEN
56: pa_debug.g_err_stage:= 'Entered PA_PERF_OBJECT_RULES_PVT.create_rule_object';
57: pa_debug.write(g_module_name,pa_debug.g_err_stage,
58: l_debug_level3);
59: END IF;
60:

Line 72: FROM pa_perf_object_rules

68: dummy number;
69: BEGIN
70: SELECT object_rule_id
71: INTO dummy
72: FROM pa_perf_object_rules
73: WHERE object_id = P_OBJECT_ID
74: AND rule_id = P_RULE_ID;
75:
76: RETURN;

Line 94: FROM PA_PERF_OBJECT_RULES_V objrule

90: FROM PA_PERF_RULES_V perfrule
91: WHERE perfrule.rule_id = P_RULE_ID
92: AND (perfrule.measure_name,perfrule.period_type) in (
93: SELECT objrule.measure_name,objrule.period_type
94: FROM PA_PERF_OBJECT_RULES_V objrule
95: WHERE objrule.object_id = P_OBJECT_ID ) ;
96: PA_UTILS.ADD_MESSAGE
97: ( p_app_short_name => 'PA',
98: p_msg_name => 'PA_EXCP_PROJ_DUP_MEASURE_CAL');

Line 116: FROM PA_PERF_OBJECT_RULES_V objrule

112: FROM PA_PERF_RULES_v perfrule
113: WHERE perfrule.rule_id = P_RULE_ID
114: AND perfrule.measure_name in (
115: SELECT objrule.measure_name
116: FROM PA_PERF_OBJECT_RULES_V objrule
117: WHERE objrule.object_id = P_OBJECT_ID ) ;
118: PA_UTILS.ADD_MESSAGE
119: ( p_app_short_name => 'PA',
120: p_msg_name => 'PA_EXCP_PROJ_RULE_DUP_MEASURE');

Line 129: PA_PERF_OBJECT_RULES_PKG.insert_row(

125: NULL;
126: END;
127: */
128:
129: PA_PERF_OBJECT_RULES_PKG.insert_row(
130: X_ROWID => l_rowid,
131: X_OBJECT_RULE_ID => P_OBJECT_RULE_ID,
132: X_OBJECT_TYPE => P_OBJECT_TYPE,
133: X_OBJECT_ID => P_OBJECT_ID,

Line 146: pa_debug.g_err_stage:= 'Exiting PA_PERF_OBJECT_RULES_PVT.create_rule_object';

142:
143: -- Check for business rules violations
144:
145: IF l_debug_mode = 'Y' THEN
146: pa_debug.g_err_stage:= 'Exiting PA_PERF_OBJECT_RULES_PVT.create_rule_object';
147: pa_debug.write(g_module_name,pa_debug.g_err_stage,
148: l_debug_level3);
149: pa_debug.reset_curr_function;
150: END IF;

Line 163: p_pkg_name => 'PA_PERF_OBJECT_RULES_PVT'

159: x_msg_count := 1;
160: x_msg_data := SQLERRM;
161:
162: FND_MSG_PUB.add_exc_msg(
163: p_pkg_name => 'PA_PERF_OBJECT_RULES_PVT'
164: ,p_procedure_name => 'CREATE_RULE_OBJECT'
165: ,p_error_text => x_msg_data);
166:
167: IF l_debug_mode = 'Y' THEN

Line 180: This procedure updates a row in the pa_perf_object_rules table.

176: /*==================================================================
177: PROCEDURE
178: update_rule_object
179: PURPOSE
180: This procedure updates a row in the pa_perf_object_rules table.
181: ==================================================================*/
182:
183: PROCEDURE update_rule_object(
184: P_OBJECT_RULE_ID IN NUMBER,

Line 214: PA_DEBUG.init_err_stack('PA_PERF_OBJECT_RULES_PVT.update_rule_object');

210: BEGIN
211:
212: savepoint sp;
213: -- Initialize the Error Stack
214: PA_DEBUG.init_err_stack('PA_PERF_OBJECT_RULES_PVT.update_rule_object');
215: x_msg_count := 0;
216: x_msg_data := NULL;
217:
218: -- Initialize the return status to success

Line 222: pa_debug.set_curr_function( p_function => 'PA_PERF_OBJECT_RULES_PVT.update_rule_object',

218: -- Initialize the return status to success
219: x_return_status := FND_API.G_RET_STS_SUCCESS;
220: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
221: IF l_debug_mode = 'Y' THEN
222: pa_debug.set_curr_function( p_function => 'PA_PERF_OBJECT_RULES_PVT.update_rule_object',
223: p_debug_mode => l_debug_mode );
224: END IF;
225:
226: IF l_debug_mode = 'Y' THEN

Line 227: pa_debug.g_err_stage:= 'Entered PA_PERF_OBJECT_RULES_PVT.update_rule_object';

223: p_debug_mode => l_debug_mode );
224: END IF;
225:
226: IF l_debug_mode = 'Y' THEN
227: pa_debug.g_err_stage:= 'Entered PA_PERF_OBJECT_RULES_PVT.update_rule_object';
228: pa_debug.write(g_module_name,pa_debug.g_err_stage,
229: l_debug_level3);
230:
231: pa_debug.g_err_stage:= 'P_OBJECT_RULE_ID = '|| P_OBJECT_RULE_ID;

Line 252: PA_PERF_OBJECT_RULES_PKG.LOCK_ROW

248: pa_debug.write(g_module_name,pa_debug.g_err_stage,
249: l_debug_level3);
250: END IF;
251:
252: PA_PERF_OBJECT_RULES_PKG.LOCK_ROW
253: (X_OBJECT_RULE_ID => P_OBJECT_RULE_ID,
254: X_RECORD_VERSION_NUMBER => P_RECORD_VERSION_NUMBER ) ;
255:
256: IF l_debug_mode = 'Y' THEN

Line 274: PA_PERF_OBJECT_RULES_PKG.UPDATE_ROW(

270: pa_debug.write(g_module_name,pa_debug.g_err_stage,
271: l_debug_level3);
272: END IF;
273:
274: PA_PERF_OBJECT_RULES_PKG.UPDATE_ROW(
275: X_OBJECT_RULE_ID => P_OBJECT_RULE_ID,
276: X_OBJECT_TYPE => P_OBJECT_TYPE,
277: X_OBJECT_ID => P_OBJECT_ID,
278: X_RULE_ID => P_RULE_ID,

Line 285: pa_debug.g_err_stage:= 'Exiting PA_PERF_OBJECT_RULES_PVT.update_rule_object';

281: X_LAST_UPDATED_BY => P_LAST_UPDATED_BY,
282: X_LAST_UPDATE_LOGIN => P_LAST_UPDATE_LOGIN );
283:
284: IF l_debug_mode = 'Y' THEN
285: pa_debug.g_err_stage:= 'Exiting PA_PERF_OBJECT_RULES_PVT.update_rule_object';
286: pa_debug.write(g_module_name,pa_debug.g_err_stage,
287: l_debug_level3);
288: pa_debug.reset_curr_function;
289: END IF;

Line 326: p_pkg_name => 'PA_PERF_OBJECT_RULES_PVT'

322: x_msg_count := 1;
323: x_msg_data := substr(SQLERRM,1,240);
324: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
325: FND_MSG_PUB.add_exc_msg (
326: p_pkg_name => 'PA_PERF_OBJECT_RULES_PVT'
327: , p_procedure_name => PA_DEBUG.G_Err_Stack
328: , p_error_text => substr(SQLERRM,1,240));
329:
330: rollback to sp;

Line 339: This procedure deletes a row from the pa_perf_object_rules table.

335: /*==================================================================
336: PROCEDURE
337: delete_rule_object
338: PURPOSE
339: This procedure deletes a row from the pa_perf_object_rules table.
340: ==================================================================*/
341:
342: PROCEDURE delete_rule_object (
343: P_OBJECT_RULE_ID IN NUMBER,

Line 367: PA_DEBUG.init_err_stack('PA_PERF_OBJECT_RULES_PVT.Delete_Rule_object');

363: savepoint sp;
364:
365:
366: -- Initialize the Error Stack
367: PA_DEBUG.init_err_stack('PA_PERF_OBJECT_RULES_PVT.Delete_Rule_object');
368: x_msg_count := 0;
369: x_msg_data := NULL;
370:
371: -- Initialize the return status to success

Line 375: pa_debug.set_curr_function( p_function => 'PA_PERF_OBJECT_RULES_PVT.Delete_Rule_object',

371: -- Initialize the return status to success
372: x_return_status := FND_API.G_RET_STS_SUCCESS;
373:
374: IF l_debug_mode = 'Y' THEN
375: pa_debug.set_curr_function( p_function => 'PA_PERF_OBJECT_RULES_PVT.Delete_Rule_object',
376: p_debug_mode => l_debug_mode );
377: END IF;
378:
379: IF l_debug_mode = 'Y' THEN

Line 380: pa_debug.g_err_stage:= 'Entered PA_PERF_OBJECT_RULES_PVT.Delete_Rule_object';

376: p_debug_mode => l_debug_mode );
377: END IF;
378:
379: IF l_debug_mode = 'Y' THEN
380: pa_debug.g_err_stage:= 'Entered PA_PERF_OBJECT_RULES_PVT.Delete_Rule_object';
381: pa_debug.write(g_module_name,pa_debug.g_err_stage,
382: l_debug_level3);
383: pa_debug.g_err_stage:= 'P_OBJECT_RULE_ID = '|| P_OBJECT_RULE_ID;
384: pa_debug.write(g_module_name,pa_debug.g_err_stage,

Line 397: FROM PA_PERF_OBJECT_RULES

393: SELECT RULE_NAME
394: INTO X_RULE_NAME
395: FROM PA_PERF_RULES
396: WHERE RULE_ID=(SELECT RULE_ID
397: FROM PA_PERF_OBJECT_RULES
398: WHERE OBJECT_RULE_ID=P_OBJECT_RULE_ID);
399: EXCEPTION
400: WHEN NO_DATA_FOUND THEN
401: NULL;

Line 404: PA_PERF_OBJECT_RULES_PKG.LOCK_ROW

400: WHEN NO_DATA_FOUND THEN
401: NULL;
402: END;
403:
404: PA_PERF_OBJECT_RULES_PKG.LOCK_ROW
405: (
406: X_OBJECT_RULE_ID => P_OBJECT_RULE_ID,
407: X_RECORD_VERSION_NUMBER => P_RECORD_VERSION_NUMBER
408: );

Line 422: PA_PERF_OBJECT_RULES_PKG.DELETE_ROW

418: l_debug_level3);
419: END IF;
420:
421: -- Delete Role
422: PA_PERF_OBJECT_RULES_PKG.DELETE_ROW
423: (X_OBJECT_RULE_ID => P_OBJECT_RULE_ID);
424:
425: IF l_debug_mode = 'Y' THEN
426: pa_debug.g_err_stage:= 'Exiting PA_PERF_OBJECT_RULES_PVT.Delete_Rule_object';

Line 426: pa_debug.g_err_stage:= 'Exiting PA_PERF_OBJECT_RULES_PVT.Delete_Rule_object';

422: PA_PERF_OBJECT_RULES_PKG.DELETE_ROW
423: (X_OBJECT_RULE_ID => P_OBJECT_RULE_ID);
424:
425: IF l_debug_mode = 'Y' THEN
426: pa_debug.g_err_stage:= 'Exiting PA_PERF_OBJECT_RULES_PVT.Delete_Rule_object';
427: pa_debug.write(g_module_name,pa_debug.g_err_stage,
428: l_debug_level3);
429: pa_debug.reset_curr_function;
430: END IF;

Line 467: ( p_pkg_name => 'PA_PERF_OBJECT_RULES_PVT'

463: x_msg_count := 1;
464: x_msg_data := substr(SQLERRM,1,240);
465: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
466: FND_MSG_PUB.add_exc_msg
467: ( p_pkg_name => 'PA_PERF_OBJECT_RULES_PVT'
468: , p_procedure_name => PA_DEBUG.G_Err_Stack
469: , p_error_text => substr(SQLERRM,1,240));
470:
471: rollback to sp;

Line 486: FROM PA_PERF_OBJECT_RULES_V objrule

482: IS
483: CURSOR RULES_IN_ERROR IS
484: SELECT objrule.measure_name,objrule.period_type,count(*),
485: objrule.measure_id --Added for the bug# 3639474
486: FROM PA_PERF_OBJECT_RULES_V objrule
487: WHERE objrule.object_id = P_OBJECT_ID
488: AND objrule.rule_type='PERF_RULE'
489: GROUP BY objrule.measure_name,objrule.period_type, objrule.measure_id
490: HAVING count(*) >1;

Line 494: FROM PA_PERF_OBJECT_RULES_V objrule

490: HAVING count(*) >1;
491:
492: CURSOR RULE_NAMES_IN_ERROR (l_measure_id IN NUMBER ,l_period_type IN VARCHAR2 ) IS --Changed the parameter l_measure_name VARCHAR2 to l_measure_id NUMBER for bug# 3639474
493: SELECT objrule.RULE_NAME
494: FROM PA_PERF_OBJECT_RULES_V objrule
495: WHERE objrule.object_id = P_OBJECT_ID
496: --AND objrule.measure_name = l_measure_name --commented for the bug# 3639474
497: AND objrule.measure_id = l_measure_id --Added for the bug# 3639474
498: AND objrule.period_type =l_period_type;

Line 503: FROM PA_PERF_OBJECT_RULES_V objrule

499:
500: CURSOR RULES_IN_WARNING IS
501: SELECT objrule.measure_name,count(*),
502: objrule.measure_id ----Added for the bug# 3639474
503: FROM PA_PERF_OBJECT_RULES_V objrule
504: WHERE objrule.object_id = P_OBJECT_ID
505: AND objrule.rule_type='PERF_RULE'
506: AND EXISTS (select 1 from PA_PERF_OBJECT_RULES rule
507: where rule.record_version_number = 1 -- Changed hardcoded value from 2 to 1

Line 506: AND EXISTS (select 1 from PA_PERF_OBJECT_RULES rule

502: objrule.measure_id ----Added for the bug# 3639474
503: FROM PA_PERF_OBJECT_RULES_V objrule
504: WHERE objrule.object_id = P_OBJECT_ID
505: AND objrule.rule_type='PERF_RULE'
506: AND EXISTS (select 1 from PA_PERF_OBJECT_RULES rule
507: where rule.record_version_number = 1 -- Changed hardcoded value from 2 to 1
508: and rule.rule_id in (select rule_id from PA_PERF_OBJECT_RULES_V objrule1
509: where objrule1.rule_id = rule.rule_id
510: and objrule1.measure_name=objrule.measure_name)

Line 508: and rule.rule_id in (select rule_id from PA_PERF_OBJECT_RULES_V objrule1

504: WHERE objrule.object_id = P_OBJECT_ID
505: AND objrule.rule_type='PERF_RULE'
506: AND EXISTS (select 1 from PA_PERF_OBJECT_RULES rule
507: where rule.record_version_number = 1 -- Changed hardcoded value from 2 to 1
508: and rule.rule_id in (select rule_id from PA_PERF_OBJECT_RULES_V objrule1
509: where objrule1.rule_id = rule.rule_id
510: and objrule1.measure_name=objrule.measure_name)
511: and rule.object_id=P_OBJECT_ID)
512: GROUP BY objrule.measure_name, objrule.measure_id

Line 517: FROM PA_PERF_OBJECT_RULES_V objrule

513: HAVING count(*) >1;
514:
515: CURSOR RULE_NAMES_IN_WARNING (l_measure_id IN NUMBER ) IS --Changed the parameter l_measure_name VARCHAR2 to l_measure_id NUMBER for bug# 3639474
516: SELECT objrule.RULE_NAME
517: FROM PA_PERF_OBJECT_RULES_V objrule
518: WHERE objrule.object_id = P_OBJECT_ID
519: --AND objrule.measure_name = l_measure_name; --commented for the bug# 3639474
520: AND objrule.measure_id = l_measure_id; --Added for the bug# 3639474
521:

Line 628: UPDATE PA_PERF_OBJECT_RULES

624: p_value1 =>l_message_code);
625: END IF ;
626: /* New rows are created with record_version_number=2 .Update them back to 1 */
627:
628: UPDATE PA_PERF_OBJECT_RULES
629: SET RECORD_VERSION_NUMBER = 1
630: WHERE RECORD_VERSION_NUMBER =2;
631:
632: END VALIDATE_RULE_OBJECT;

Line 634: END PA_PERF_OBJECT_RULES_PVT;

630: WHERE RECORD_VERSION_NUMBER =2;
631:
632: END VALIDATE_RULE_OBJECT;
633:
634: END PA_PERF_OBJECT_RULES_PVT;