95: l_debug_level4 CONSTANT NUMBER := 4;
96: l_debug_level5 CONSTANT NUMBER := 5;
97: BEGIN
98:
99: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
100:
101: IF l_debug_mode = 'Y' THEN
102: pa_debug.set_curr_function( p_function => 'PERF_RULES',
103: p_debug_mode => l_debug_mode );
98:
99: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
100:
101: IF l_debug_mode = 'Y' THEN
102: pa_debug.set_curr_function( p_function => 'PERF_RULES',
103: p_debug_mode => l_debug_mode );
104: END IF;
105:
106:
104: END IF;
105:
106:
107: IF l_debug_mode = 'Y' THEN
108: pa_debug.g_err_stage:= 'Validating input parameters';
109: pa_debug.write(g_module_name,pa_debug.g_err_stage,
110: l_debug_level3);
111: END IF;
112:
105:
106:
107: IF l_debug_mode = 'Y' THEN
108: pa_debug.g_err_stage:= 'Validating input parameters';
109: pa_debug.write(g_module_name,pa_debug.g_err_stage,
110: l_debug_level3);
111: END IF;
112:
113: IF l_debug_mode = 'Y' THEN
110: l_debug_level3);
111: END IF;
112:
113: IF l_debug_mode = 'Y' THEN
114: pa_debug.g_err_stage:= 'X_RULE_ID = '|| X_RULE_ID;
115: pa_debug.write(g_module_name,pa_debug.g_err_stage,
116: l_debug_level5);
117: pa_debug.g_err_stage:= 'X_RECORD_VERSION_NUMBER = '|| X_RECORD_VERSION_NUMBER;
118: pa_debug.write(g_module_name,pa_debug.g_err_stage,
111: END IF;
112:
113: IF l_debug_mode = 'Y' THEN
114: pa_debug.g_err_stage:= 'X_RULE_ID = '|| X_RULE_ID;
115: pa_debug.write(g_module_name,pa_debug.g_err_stage,
116: l_debug_level5);
117: pa_debug.g_err_stage:= 'X_RECORD_VERSION_NUMBER = '|| X_RECORD_VERSION_NUMBER;
118: pa_debug.write(g_module_name,pa_debug.g_err_stage,
119: l_debug_level5);
113: IF l_debug_mode = 'Y' THEN
114: pa_debug.g_err_stage:= 'X_RULE_ID = '|| X_RULE_ID;
115: pa_debug.write(g_module_name,pa_debug.g_err_stage,
116: l_debug_level5);
117: pa_debug.g_err_stage:= 'X_RECORD_VERSION_NUMBER = '|| X_RECORD_VERSION_NUMBER;
118: pa_debug.write(g_module_name,pa_debug.g_err_stage,
119: l_debug_level5);
120:
121: END IF;
114: pa_debug.g_err_stage:= 'X_RULE_ID = '|| X_RULE_ID;
115: pa_debug.write(g_module_name,pa_debug.g_err_stage,
116: l_debug_level5);
117: pa_debug.g_err_stage:= 'X_RECORD_VERSION_NUMBER = '|| X_RECORD_VERSION_NUMBER;
118: pa_debug.write(g_module_name,pa_debug.g_err_stage,
119: l_debug_level5);
120:
121: END IF;
122:
120:
121: END IF;
122:
123: IF l_debug_mode = 'Y' THEN
124: pa_debug.g_err_stage:= 'in lock row method,ABOUT TO EXECUTE QUERY';
125: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level3);
126: pa_debug.reset_curr_function;
127: END IF;
128:
121: END IF;
122:
123: IF l_debug_mode = 'Y' THEN
124: pa_debug.g_err_stage:= 'in lock row method,ABOUT TO EXECUTE QUERY';
125: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level3);
126: pa_debug.reset_curr_function;
127: END IF;
128:
129: select record_version_number into l_rec_ver_no
122:
123: IF l_debug_mode = 'Y' THEN
124: pa_debug.g_err_stage:= 'in lock row method,ABOUT TO EXECUTE QUERY';
125: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level3);
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
135: raise Invalid_Rec_Change;
136: end if;
137:
138: IF l_debug_mode = 'Y' THEN
139: pa_debug.g_err_stage:= 'in lock row method,query executed';
140: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level3);
141: pa_debug.reset_curr_function;
142: END IF;
143: EXCEPTION
136: end if;
137:
138: IF l_debug_mode = 'Y' THEN
139: pa_debug.g_err_stage:= 'in lock row method,query executed';
140: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level3);
141: pa_debug.reset_curr_function;
142: END IF;
143: EXCEPTION
144: when NO_DATA_FOUND then
137:
138: IF l_debug_mode = 'Y' THEN
139: pa_debug.g_err_stage:= 'in lock row method,query executed';
140: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level3);
141: pa_debug.reset_curr_function;
142: END IF;
143: EXCEPTION
144: when NO_DATA_FOUND then
145: PA_UTILS.ADD_MESSAGE