132: l_debug_level5 CONSTANT NUMBER := 5;
133: BEGIN
134:
135:
136: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
137:
138: IF l_debug_mode = 'Y' THEN
139: pa_debug.set_curr_function( p_function => 'PERF_TRANSACTIONS',
140: p_debug_mode => l_debug_mode );
135:
136: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
137:
138: IF l_debug_mode = 'Y' THEN
139: pa_debug.set_curr_function( p_function => 'PERF_TRANSACTIONS',
140: p_debug_mode => l_debug_mode );
141: END IF;
142:
143:
141: END IF;
142:
143:
144: IF l_debug_mode = 'Y' THEN
145: pa_debug.g_err_stage:= 'Validating input parameters';
146: pa_debug.write(g_module_name,pa_debug.g_err_stage,
147: l_debug_level3);
148: END IF;
149:
142:
143:
144: IF l_debug_mode = 'Y' THEN
145: pa_debug.g_err_stage:= 'Validating input parameters';
146: pa_debug.write(g_module_name,pa_debug.g_err_stage,
147: l_debug_level3);
148: END IF;
149:
150: IF l_debug_mode = 'Y' THEN
147: l_debug_level3);
148: END IF;
149:
150: IF l_debug_mode = 'Y' THEN
151: pa_debug.g_err_stage:= 'X_PERF_TXN_ID = '|| X_PERF_TXN_ID;
152: pa_debug.write(g_module_name,pa_debug.g_err_stage,
153: l_debug_level5);
154: pa_debug.g_err_stage:= 'X_RECORD_VERSION_NUMBER = '|| X_RECORD_VERSION_NUMBER;
155: pa_debug.write(g_module_name,pa_debug.g_err_stage,
148: END IF;
149:
150: IF l_debug_mode = 'Y' THEN
151: pa_debug.g_err_stage:= 'X_PERF_TXN_ID = '|| X_PERF_TXN_ID;
152: pa_debug.write(g_module_name,pa_debug.g_err_stage,
153: l_debug_level5);
154: pa_debug.g_err_stage:= 'X_RECORD_VERSION_NUMBER = '|| X_RECORD_VERSION_NUMBER;
155: pa_debug.write(g_module_name,pa_debug.g_err_stage,
156: l_debug_level5);
150: IF l_debug_mode = 'Y' THEN
151: pa_debug.g_err_stage:= 'X_PERF_TXN_ID = '|| X_PERF_TXN_ID;
152: pa_debug.write(g_module_name,pa_debug.g_err_stage,
153: l_debug_level5);
154: pa_debug.g_err_stage:= 'X_RECORD_VERSION_NUMBER = '|| X_RECORD_VERSION_NUMBER;
155: pa_debug.write(g_module_name,pa_debug.g_err_stage,
156: l_debug_level5);
157:
158: END IF;
151: pa_debug.g_err_stage:= 'X_PERF_TXN_ID = '|| X_PERF_TXN_ID;
152: pa_debug.write(g_module_name,pa_debug.g_err_stage,
153: l_debug_level5);
154: pa_debug.g_err_stage:= 'X_RECORD_VERSION_NUMBER = '|| X_RECORD_VERSION_NUMBER;
155: pa_debug.write(g_module_name,pa_debug.g_err_stage,
156: l_debug_level5);
157:
158: END IF;
159:
157:
158: END IF;
159:
160: IF l_debug_mode = 'Y' THEN
161: pa_debug.g_err_stage:= 'in lock row method,about to execute query';
162: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level3);
163: pa_debug.reset_curr_function;
164: END IF;
165:
158: END IF;
159:
160: IF l_debug_mode = 'Y' THEN
161: pa_debug.g_err_stage:= 'in lock row method,about to execute query';
162: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level3);
163: pa_debug.reset_curr_function;
164: END IF;
165:
166: select record_version_number into l_rec_ver_no
159:
160: IF l_debug_mode = 'Y' THEN
161: pa_debug.g_err_stage:= 'in lock row method,about to execute query';
162: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level3);
163: pa_debug.reset_curr_function;
164: END IF;
165:
166: select record_version_number into l_rec_ver_no
167: from pa_perf_transactions
172: raise Invalid_Rec_Change;
173: end if;
174:
175: IF l_debug_mode = 'Y' THEN
176: pa_debug.g_err_stage:= 'in lock row method,query executed';
177: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level3);
178: pa_debug.reset_curr_function;
179: END IF;
180: EXCEPTION
173: end if;
174:
175: IF l_debug_mode = 'Y' THEN
176: pa_debug.g_err_stage:= 'in lock row method,query executed';
177: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level3);
178: pa_debug.reset_curr_function;
179: END IF;
180: EXCEPTION
181: when NO_DATA_FOUND then
174:
175: IF l_debug_mode = 'Y' THEN
176: pa_debug.g_err_stage:= 'in lock row method,query executed';
177: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level3);
178: pa_debug.reset_curr_function;
179: END IF;
180: EXCEPTION
181: when NO_DATA_FOUND then
182: PA_UTILS.ADD_MESSAGE