67: l_debug_level4 CONSTANT NUMBER := 4;
68: l_debug_level5 CONSTANT NUMBER := 5;
69: BEGIN
70:
71: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
72:
73: IF l_debug_mode = 'Y' THEN
74: pa_debug.set_curr_function( p_function => 'PERF_OBJECT_RULES',
75: p_debug_mode => l_debug_mode );
70:
71: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
72:
73: IF l_debug_mode = 'Y' THEN
74: pa_debug.set_curr_function( p_function => 'PERF_OBJECT_RULES',
75: p_debug_mode => l_debug_mode );
76: END IF;
77:
78:
76: END IF;
77:
78:
79: IF l_debug_mode = 'Y' THEN
80: pa_debug.g_err_stage:= 'Validating input parameters';
81: pa_debug.write(g_module_name,pa_debug.g_err_stage,
82: l_debug_level3);
83: END IF;
84:
77:
78:
79: IF l_debug_mode = 'Y' THEN
80: pa_debug.g_err_stage:= 'Validating input parameters';
81: pa_debug.write(g_module_name,pa_debug.g_err_stage,
82: l_debug_level3);
83: END IF;
84:
85: IF l_debug_mode = 'Y' THEN
82: l_debug_level3);
83: END IF;
84:
85: IF l_debug_mode = 'Y' THEN
86: pa_debug.g_err_stage:= 'X_OBJECT_RULE_ID = '|| X_OBJECT_RULE_ID;
87: pa_debug.write(g_module_name,pa_debug.g_err_stage,
88: l_debug_level5);
89: pa_debug.g_err_stage:= 'X_RECORD_VERSION_NUMBER = '|| X_RECORD_VERSION_NUMBER;
90: pa_debug.write(g_module_name,pa_debug.g_err_stage,
83: END IF;
84:
85: IF l_debug_mode = 'Y' THEN
86: pa_debug.g_err_stage:= 'X_OBJECT_RULE_ID = '|| X_OBJECT_RULE_ID;
87: pa_debug.write(g_module_name,pa_debug.g_err_stage,
88: l_debug_level5);
89: pa_debug.g_err_stage:= 'X_RECORD_VERSION_NUMBER = '|| X_RECORD_VERSION_NUMBER;
90: pa_debug.write(g_module_name,pa_debug.g_err_stage,
91: l_debug_level5);
85: IF l_debug_mode = 'Y' THEN
86: pa_debug.g_err_stage:= 'X_OBJECT_RULE_ID = '|| X_OBJECT_RULE_ID;
87: pa_debug.write(g_module_name,pa_debug.g_err_stage,
88: l_debug_level5);
89: pa_debug.g_err_stage:= 'X_RECORD_VERSION_NUMBER = '|| X_RECORD_VERSION_NUMBER;
90: pa_debug.write(g_module_name,pa_debug.g_err_stage,
91: l_debug_level5);
92:
93: END IF;
86: pa_debug.g_err_stage:= 'X_OBJECT_RULE_ID = '|| X_OBJECT_RULE_ID;
87: pa_debug.write(g_module_name,pa_debug.g_err_stage,
88: l_debug_level5);
89: pa_debug.g_err_stage:= 'X_RECORD_VERSION_NUMBER = '|| X_RECORD_VERSION_NUMBER;
90: pa_debug.write(g_module_name,pa_debug.g_err_stage,
91: l_debug_level5);
92:
93: END IF;
94:
92:
93: END IF;
94:
95: IF l_debug_mode = 'Y' THEN
96: pa_debug.g_err_stage:= 'in lock row method,ABOUT TO EXECUTE QUERY';
97: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level3);
98: pa_debug.reset_curr_function;
99: END IF;
100:
93: END IF;
94:
95: IF l_debug_mode = 'Y' THEN
96: pa_debug.g_err_stage:= 'in lock row method,ABOUT TO EXECUTE QUERY';
97: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level3);
98: pa_debug.reset_curr_function;
99: END IF;
100:
101: select record_version_number into l_rec_ver_no
94:
95: IF l_debug_mode = 'Y' THEN
96: pa_debug.g_err_stage:= 'in lock row method,ABOUT TO EXECUTE QUERY';
97: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level3);
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
107: raise Invalid_Rec_Change;
108: end if;
109:
110: IF l_debug_mode = 'Y' THEN
111: pa_debug.g_err_stage:= 'in lock row method,query executed';
112: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level3);
113: pa_debug.reset_curr_function;
114: END IF;
115: EXCEPTION
108: end if;
109:
110: IF l_debug_mode = 'Y' THEN
111: pa_debug.g_err_stage:= 'in lock row method,query executed';
112: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level3);
113: pa_debug.reset_curr_function;
114: END IF;
115: EXCEPTION
116: when NO_DATA_FOUND then
109:
110: IF l_debug_mode = 'Y' THEN
111: pa_debug.g_err_stage:= 'in lock row method,query executed';
112: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level3);
113: pa_debug.reset_curr_function;
114: END IF;
115: EXCEPTION
116: when NO_DATA_FOUND then
117: PA_UTILS.ADD_MESSAGE