95: BEGIN
96:
97: x_return_status := FND_API.G_RET_STS_SUCCESS;
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 => 'UPDATE_ROW',
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 => 'UPDATE_ROW',
103: p_debug_mode => l_debug_mode );
104: END IF;
105: IF l_debug_mode = 'Y' THEN
106: pa_debug.g_err_stage:= 'Entering UPDATE_ROW ';
102: pa_debug.set_curr_function( p_function => 'UPDATE_ROW',
103: p_debug_mode => l_debug_mode );
104: END IF;
105: IF l_debug_mode = 'Y' THEN
106: pa_debug.g_err_stage:= 'Entering UPDATE_ROW ';
107: pa_debug.write(l_module_name,pa_debug.g_err_stage,
108: l_debug_level3);
109: END IF;
110:
103: p_debug_mode => l_debug_mode );
104: END IF;
105: IF l_debug_mode = 'Y' THEN
106: pa_debug.g_err_stage:= 'Entering UPDATE_ROW ';
107: pa_debug.write(l_module_name,pa_debug.g_err_stage,
108: l_debug_level3);
109: END IF;
110:
111: IF l_debug_mode = 'Y' THEN
108: l_debug_level3);
109: END IF;
110:
111: IF l_debug_mode = 'Y' THEN
112: pa_debug.g_err_stage:= 'The Co Impl Id : ' || p_pt_co_impl_statuses_id;
113: pa_debug.write(l_module_name,pa_debug.g_err_stage,
114: l_debug_level3);
115: END IF;
116:
109: END IF;
110:
111: IF l_debug_mode = 'Y' THEN
112: pa_debug.g_err_stage:= 'The Co Impl Id : ' || p_pt_co_impl_statuses_id;
113: pa_debug.write(l_module_name,pa_debug.g_err_stage,
114: l_debug_level3);
115: END IF;
116:
117: IF p_pt_co_impl_statuses_id IS NOT NULL THEN
118:
119: IF p_lock_row = 'Y' THEN
120: /* Calling Lock_Row */
121: IF l_debug_mode = 'Y' THEN
122: pa_debug.g_err_stage:= 'Calling Lock_Row when p_pt_co_impl_statuses_id is not null';
123: pa_debug.write(l_module_name,pa_debug.g_err_stage,
124: l_debug_level3);
125: END IF;
126:
119: IF p_lock_row = 'Y' THEN
120: /* Calling Lock_Row */
121: IF l_debug_mode = 'Y' THEN
122: pa_debug.g_err_stage:= 'Calling Lock_Row when p_pt_co_impl_statuses_id is not null';
123: pa_debug.write(l_module_name,pa_debug.g_err_stage,
124: l_debug_level3);
125: END IF;
126:
127: Lock_Row(p_row_id => null,
136: x_msg_data => l_msg_data);
137:
138: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
139: IF l_debug_mode = 'Y' THEN
140: pa_debug.g_err_stage:= 'Error in Lock_Row';
141: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
142: END IF;
143: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
144: END IF;
137:
138: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
139: IF l_debug_mode = 'Y' THEN
140: pa_debug.g_err_stage:= 'Error in Lock_Row';
141: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
142: END IF;
143: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
144: END IF;
145: END IF;
144: END IF;
145: END IF;
146:
147: IF l_debug_mode = 'Y' THEN
148: pa_debug.g_err_stage:= 'Updating with p_pt_co_impl_statuses_id';
149: pa_debug.write(l_module_name,pa_debug.g_err_stage,
150: l_debug_level3);
151: END IF;
152:
145: END IF;
146:
147: IF l_debug_mode = 'Y' THEN
148: pa_debug.g_err_stage:= 'Updating with p_pt_co_impl_statuses_id';
149: pa_debug.write(l_module_name,pa_debug.g_err_stage,
150: l_debug_level3);
151: END IF;
152:
153: UPDATE PA_PT_CO_IMPL_STATUSES
173: ELSE
174: IF p_lock_row = 'Y' THEN
175: /* Calling Lock_Row */
176: IF l_debug_mode = 'Y' THEN
177: pa_debug.g_err_stage:= 'Calling Lock_Row when p_pt_co_impl_statuses_id is null';
178: pa_debug.write(l_module_name,pa_debug.g_err_stage,
179: l_debug_level3);
180: END IF;
181:
174: IF p_lock_row = 'Y' THEN
175: /* Calling Lock_Row */
176: IF l_debug_mode = 'Y' THEN
177: pa_debug.g_err_stage:= 'Calling Lock_Row when p_pt_co_impl_statuses_id is null';
178: pa_debug.write(l_module_name,pa_debug.g_err_stage,
179: l_debug_level3);
180: END IF;
181:
182: Lock_Row(p_row_id => null,
191: x_msg_data => l_msg_data);
192:
193: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
194: IF l_debug_mode = 'Y' THEN
195: pa_debug.g_err_stage:= 'Error in Lock_Row';
196: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
197: END IF;
198: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
199: END IF;
192:
193: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
194: IF l_debug_mode = 'Y' THEN
195: pa_debug.g_err_stage:= 'Error in Lock_Row';
196: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
197: END IF;
198: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
199: END IF;
200: END IF;
199: END IF;
200: END IF;
201:
202: IF l_debug_mode = 'Y' THEN
203: pa_debug.g_err_stage:= 'Updating without p_pt_co_impl_statuses_id';
204: pa_debug.write(l_module_name,pa_debug.g_err_stage,
205: l_debug_level3);
206: END IF;
207:
200: END IF;
201:
202: IF l_debug_mode = 'Y' THEN
203: pa_debug.g_err_stage:= 'Updating without p_pt_co_impl_statuses_id';
204: pa_debug.write(l_module_name,pa_debug.g_err_stage,
205: l_debug_level3);
206: END IF;
207:
208: UPDATE PA_PT_CO_IMPL_STATUSES
238: x_return_status := FND_API.G_RET_STS_ERROR;
239: END IF;
240:
241: IF l_debug_mode = 'Y' THEN
242: pa_debug.reset_curr_function;
243: END IF;
244:
245: l_msg_count := FND_MSG_PUB.count_msg;
246:
261: RETURN;
262: END IF;
263:
264: IF l_debug_mode = 'Y' THEN
265: pa_debug.g_err_stage:= 'Leaving UPDATE_ROW ';
266: pa_debug.write(l_module_name,pa_debug.g_err_stage,
267: l_debug_level3);
268: END IF;
269:
262: END IF;
263:
264: IF l_debug_mode = 'Y' THEN
265: pa_debug.g_err_stage:= 'Leaving UPDATE_ROW ';
266: pa_debug.write(l_module_name,pa_debug.g_err_stage,
267: l_debug_level3);
268: END IF;
269:
270: EXCEPTION
271: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
272: x_return_status := FND_API.G_RET_STS_ERROR;
273:
274: IF l_debug_mode = 'Y' THEN
275: pa_debug.reset_curr_function;
276: END IF;
277:
278: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_PT_CO_IMPL_STATUSES_PKG' ,
279: p_procedure_name => 'Update_Row');
318: IF p_pt_co_impl_statuses_id IS NOT NULL THEN
319: IF p_lock_row = 'Y' THEN
320: /* Calling Lock_Row */
321: IF l_debug_mode = 'Y' THEN
322: pa_debug.g_err_stage:= 'Calling Lock_Row when p_pt_co_impl_statuses_id is not null';
323: pa_debug.write(l_module_name,pa_debug.g_err_stage,
324: l_debug_level3);
325: END IF;
326:
319: IF p_lock_row = 'Y' THEN
320: /* Calling Lock_Row */
321: IF l_debug_mode = 'Y' THEN
322: pa_debug.g_err_stage:= 'Calling Lock_Row when p_pt_co_impl_statuses_id is not null';
323: pa_debug.write(l_module_name,pa_debug.g_err_stage,
324: l_debug_level3);
325: END IF;
326:
327: Lock_Row(p_row_id => null,
336: x_msg_data => l_msg_data);
337:
338: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
339: IF l_debug_mode = 'Y' THEN
340: pa_debug.g_err_stage:= 'Error in Lock_Row';
341: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
342: END IF;
343: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
344: END IF;
337:
338: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
339: IF l_debug_mode = 'Y' THEN
340: pa_debug.g_err_stage:= 'Error in Lock_Row';
341: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
342: END IF;
343: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
344: END IF;
345: END IF;
344: END IF;
345: END IF;
346:
347: IF l_debug_mode = 'Y' THEN
348: pa_debug.g_err_stage:= 'Calling Delte_Row ';
349: pa_debug.write(l_module_name,pa_debug.g_err_stage,
350: l_debug_level3);
351: END IF;
352:
345: END IF;
346:
347: IF l_debug_mode = 'Y' THEN
348: pa_debug.g_err_stage:= 'Calling Delte_Row ';
349: pa_debug.write(l_module_name,pa_debug.g_err_stage,
350: l_debug_level3);
351: END IF;
352:
353: DELETE
354: FROM pa_pt_co_impl_statuses
355: WHERE pt_co_impl_statuses_id = p_pt_co_impl_statuses_id;
356:
357: IF l_debug_mode = 'Y' THEN
358: pa_debug.g_err_stage:= 'Row Deleted';
359: pa_debug.write(l_module_name,pa_debug.g_err_stage,
360: l_debug_level3);
361: END IF;
362:
355: WHERE pt_co_impl_statuses_id = p_pt_co_impl_statuses_id;
356:
357: IF l_debug_mode = 'Y' THEN
358: pa_debug.g_err_stage:= 'Row Deleted';
359: pa_debug.write(l_module_name,pa_debug.g_err_stage,
360: l_debug_level3);
361: END IF;
362:
363: ELSE
363: ELSE
364: IF p_lock_row = 'Y' THEN
365: /* Calling Lock_Row */
366: IF l_debug_mode = 'Y' THEN
367: pa_debug.g_err_stage:= 'Calling Lock_Row when p_pt_co_impl_statuses_id is null';
368: pa_debug.write(l_module_name,pa_debug.g_err_stage,
369: l_debug_level3);
370: END IF;
371:
364: IF p_lock_row = 'Y' THEN
365: /* Calling Lock_Row */
366: IF l_debug_mode = 'Y' THEN
367: pa_debug.g_err_stage:= 'Calling Lock_Row when p_pt_co_impl_statuses_id is null';
368: pa_debug.write(l_module_name,pa_debug.g_err_stage,
369: l_debug_level3);
370: END IF;
371:
372: Lock_Row(p_row_id => null,
381: x_msg_data => l_msg_data);
382:
383: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
384: IF l_debug_mode = 'Y' THEN
385: pa_debug.g_err_stage:= 'Error in Lock_Row';
386: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
387: END IF;
388: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
389: END IF;
382:
383: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
384: IF l_debug_mode = 'Y' THEN
385: pa_debug.g_err_stage:= 'Error in Lock_Row';
386: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
387: END IF;
388: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
389: END IF;
390: END IF;
389: END IF;
390: END IF;
391:
392: IF l_debug_mode = 'Y' THEN
393: pa_debug.g_err_stage:= 'Calling Delte_Row ';
394: pa_debug.write(l_module_name,pa_debug.g_err_stage,
395: l_debug_level3);
396: END IF;
397:
390: END IF;
391:
392: IF l_debug_mode = 'Y' THEN
393: pa_debug.g_err_stage:= 'Calling Delte_Row ';
394: pa_debug.write(l_module_name,pa_debug.g_err_stage,
395: l_debug_level3);
396: END IF;
397:
398: DELETE
404: Nvl(p_version_type,version_type))
405: AND status_code = Nvl (p_status_code, status_code);
406:
407: IF l_debug_mode = 'Y' THEN
408: pa_debug.g_err_stage:= 'Row Deleted';
409: pa_debug.write(l_module_name,pa_debug.g_err_stage,
410: l_debug_level3);
411: END IF;
412: END IF;
405: AND status_code = Nvl (p_status_code, status_code);
406:
407: IF l_debug_mode = 'Y' THEN
408: pa_debug.g_err_stage:= 'Row Deleted';
409: pa_debug.write(l_module_name,pa_debug.g_err_stage,
410: l_debug_level3);
411: END IF;
412: END IF;
413:
468: x_return_status := FND_API.G_RET_STS_SUCCESS;
469:
470: IF p_pt_co_impl_statuses_id IS NOT NULL THEN
471: IF l_debug_mode = 'Y' THEN
472: pa_debug.g_err_stage:= 'Lockin Row when p_pt_co_impl_statuses_id is not null';
473: pa_debug.write(l_module_name,pa_debug.g_err_stage,
474: l_debug_level3);
475: END IF;
476:
469:
470: IF p_pt_co_impl_statuses_id IS NOT NULL THEN
471: IF l_debug_mode = 'Y' THEN
472: pa_debug.g_err_stage:= 'Lockin Row when p_pt_co_impl_statuses_id is not null';
473: pa_debug.write(l_module_name,pa_debug.g_err_stage,
474: l_debug_level3);
475: END IF;
476:
477: SELECT ROWID
481: AND record_version_number = Nvl(p_record_version_number, record_version_number)
482: FOR UPDATE NOWAIT;
483:
484: IF l_debug_mode = 'Y' THEN
485: pa_debug.g_err_stage:= 'Row Locked when p_pt_co_impl_statuses_id is not null';
486: pa_debug.write(l_module_name,pa_debug.g_err_stage,
487: l_debug_level3);
488: END IF;
489: ELSE
482: FOR UPDATE NOWAIT;
483:
484: IF l_debug_mode = 'Y' THEN
485: pa_debug.g_err_stage:= 'Row Locked when p_pt_co_impl_statuses_id is not null';
486: pa_debug.write(l_module_name,pa_debug.g_err_stage,
487: l_debug_level3);
488: END IF;
489: ELSE
490: IF l_debug_mode = 'Y' THEN
487: l_debug_level3);
488: END IF;
489: ELSE
490: IF l_debug_mode = 'Y' THEN
491: pa_debug.g_err_stage:= 'Locking Row when p_pt_co_impl_statuses_id is null';
492: pa_debug.write(l_module_name,pa_debug.g_err_stage,
493: l_debug_level3);
494: END IF;
495:
488: END IF;
489: ELSE
490: IF l_debug_mode = 'Y' THEN
491: pa_debug.g_err_stage:= 'Locking Row when p_pt_co_impl_statuses_id is null';
492: pa_debug.write(l_module_name,pa_debug.g_err_stage,
493: l_debug_level3);
494: END IF;
495:
496: OPEN lock_rows_crs;