[Home] [Help]
133: BEGIN
134:
135: x_msg_count := 0;
136: x_return_status := FND_API.G_RET_STS_SUCCESS;
137: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
138:
139: IF l_debug_mode = 'Y' THEN
140: PA_DEBUG.set_curr_function( p_function => 'CR_DLV_ACTIONS_IN_BULK'
141: ,p_debug_mode => l_debug_mode );
136: x_return_status := FND_API.G_RET_STS_SUCCESS;
137: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
138:
139: IF l_debug_mode = 'Y' THEN
140: PA_DEBUG.set_curr_function( p_function => 'CR_DLV_ACTIONS_IN_BULK'
141: ,p_debug_mode => l_debug_mode );
142: pa_debug.g_err_stage:= 'Inside CREATE_DLV_ACTIONS_IN_BULK ';
143: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
144: END IF;
138:
139: IF l_debug_mode = 'Y' THEN
140: PA_DEBUG.set_curr_function( p_function => 'CR_DLV_ACTIONS_IN_BULK'
141: ,p_debug_mode => l_debug_mode );
142: pa_debug.g_err_stage:= 'Inside CREATE_DLV_ACTIONS_IN_BULK ';
143: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
144: END IF;
145:
146: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
139: IF l_debug_mode = 'Y' THEN
140: PA_DEBUG.set_curr_function( p_function => 'CR_DLV_ACTIONS_IN_BULK'
141: ,p_debug_mode => l_debug_mode );
142: pa_debug.g_err_stage:= 'Inside CREATE_DLV_ACTIONS_IN_BULK ';
143: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
144: END IF;
145:
146: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
147: FND_MSG_PUB.initialize;
155: -- to avoid unnecessary API call.
156: IF nvl(p_name_tbl.LAST,0)> 0 THEN
157:
158: IF l_debug_mode = 'Y' THEN
159: pa_debug.write(g_module_name,'Before Calling PA_ACTIONS_PVT.CREATE_DLV_ACTIONS_IN_BULK' ,3);
160: END IF;
161: PA_ACTIONS_PVT.CREATE_DLV_ACTIONS_IN_BULK
162: (p_api_version => p_api_version
163: ,p_init_msg_list => FND_API.G_FALSE
206: ,x_msg_data => x_msg_data
207: ) ;
208: END IF ;
209: IF l_debug_mode = 'Y' THEN
210: pa_debug.write(g_module_name,'x_return_status is ' || x_return_status,3);
211: END IF ;
212:
213: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
214: RAISE Invalid_Arg_Exc_Dlv ;
214: RAISE Invalid_Arg_Exc_Dlv ;
215: END IF ;
216:
217: IF l_debug_mode = 'Y' THEN
218: pa_debug.g_err_stage:= 'Exiting PA_ACTIONS_PUB.CREATE_DLV_ACTIONS_IN_BULK' ;
219: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
220: pa_debug.reset_curr_function;
221: END IF;
222:
215: END IF ;
216:
217: IF l_debug_mode = 'Y' THEN
218: pa_debug.g_err_stage:= 'Exiting PA_ACTIONS_PUB.CREATE_DLV_ACTIONS_IN_BULK' ;
219: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
220: pa_debug.reset_curr_function;
221: END IF;
222:
223: EXCEPTION
216:
217: IF l_debug_mode = 'Y' THEN
218: pa_debug.g_err_stage:= 'Exiting PA_ACTIONS_PUB.CREATE_DLV_ACTIONS_IN_BULK' ;
219: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
220: pa_debug.reset_curr_function;
221: END IF;
222:
223: EXCEPTION
224: WHEN Invalid_Arg_Exc_Dlv THEN
229: ROLLBACK TO CR_DLV_ACTIONS_SP;
230: END IF ;
231:
232: IF l_debug_mode = 'Y' THEN
233: pa_debug.g_err_stage := 'inside invalid arg exception of CR_DLV_ACTIONS_IN_BULK';
234: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
235: END IF;
236:
237: IF l_msg_count = 1 THEN
230: END IF ;
231:
232: IF l_debug_mode = 'Y' THEN
233: pa_debug.g_err_stage := 'inside invalid arg exception of CR_DLV_ACTIONS_IN_BULK';
234: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
235: END IF;
236:
237: IF l_msg_count = 1 THEN
238: PA_INTERFACE_UTILS_PUB.get_messages
247: ELSE
248: x_msg_count := l_msg_count;
249: END IF;
250: IF l_debug_mode = 'Y' THEN
251: pa_debug.reset_curr_function;
252: END IF ;
253: RETURN;
254: WHEN OTHERS THEN
255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
263: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_ACTIONS_PUB'
264: ,p_procedure_name => 'CREATE_DLV_ACTIONS_IN_BULK');
265:
266: IF p_debug_mode = 'Y' THEN
267: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
268: pa_debug.write(g_module_name, pa_debug.g_err_stage,5);
269: pa_debug.reset_curr_function;
270: END IF;
271: RAISE;
264: ,p_procedure_name => 'CREATE_DLV_ACTIONS_IN_BULK');
265:
266: IF p_debug_mode = 'Y' THEN
267: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
268: pa_debug.write(g_module_name, pa_debug.g_err_stage,5);
269: pa_debug.reset_curr_function;
270: END IF;
271: RAISE;
272: END CREATE_DLV_ACTIONS_IN_BULK ;
265:
266: IF p_debug_mode = 'Y' THEN
267: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
268: pa_debug.write(g_module_name, pa_debug.g_err_stage,5);
269: pa_debug.reset_curr_function;
270: END IF;
271: RAISE;
272: END CREATE_DLV_ACTIONS_IN_BULK ;
273:
380: BEGIN
381:
382: x_msg_count := 0;
383: x_return_status := FND_API.G_RET_STS_SUCCESS;
384: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
385:
386: IF l_debug_mode = 'Y' THEN
387: PA_DEBUG.set_curr_function( p_function => 'UPDADTE_DLV_ACTIONS_IN_BULK'
388: ,p_debug_mode => l_debug_mode );
383: x_return_status := FND_API.G_RET_STS_SUCCESS;
384: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
385:
386: IF l_debug_mode = 'Y' THEN
387: PA_DEBUG.set_curr_function( p_function => 'UPDADTE_DLV_ACTIONS_IN_BULK'
388: ,p_debug_mode => l_debug_mode );
389: pa_debug.g_err_stage:= 'Inside UPDATE_DLV_ACTIONS_IN_BULK ';
390: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
391: END IF;
385:
386: IF l_debug_mode = 'Y' THEN
387: PA_DEBUG.set_curr_function( p_function => 'UPDADTE_DLV_ACTIONS_IN_BULK'
388: ,p_debug_mode => l_debug_mode );
389: pa_debug.g_err_stage:= 'Inside UPDATE_DLV_ACTIONS_IN_BULK ';
390: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
391: END IF;
392:
393: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
386: IF l_debug_mode = 'Y' THEN
387: PA_DEBUG.set_curr_function( p_function => 'UPDADTE_DLV_ACTIONS_IN_BULK'
388: ,p_debug_mode => l_debug_mode );
389: pa_debug.g_err_stage:= 'Inside UPDATE_DLV_ACTIONS_IN_BULK ';
390: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
391: END IF;
392:
393: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
394: FND_MSG_PUB.initialize;
455: RAISE Invalid_Arg_Exc_Dlv ;
456: END IF ;
457:
458: IF l_debug_mode = 'Y' THEN
459: pa_debug.g_err_stage:= 'Exiting UPDATE_DLV_ACTIONS_IN_BULK' ;
460: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
461: pa_debug.reset_curr_function;
462: END IF;
463:
456: END IF ;
457:
458: IF l_debug_mode = 'Y' THEN
459: pa_debug.g_err_stage:= 'Exiting UPDATE_DLV_ACTIONS_IN_BULK' ;
460: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
461: pa_debug.reset_curr_function;
462: END IF;
463:
464: EXCEPTION
457:
458: IF l_debug_mode = 'Y' THEN
459: pa_debug.g_err_stage:= 'Exiting UPDATE_DLV_ACTIONS_IN_BULK' ;
460: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
461: pa_debug.reset_curr_function;
462: END IF;
463:
464: EXCEPTION
465: WHEN Invalid_Arg_Exc_Dlv THEN
470: ROLLBACK TO UP_DLV_ACTIONS_SP;
471: END IF ;
472:
473: IF l_debug_mode = 'Y' THEN
474: pa_debug.g_err_stage := 'inside invalid arg exception of UPDATE_DLV_ACTIONS_IN_BULK';
475: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
476: END IF;
477:
478: IF l_msg_count = 1 THEN
471: END IF ;
472:
473: IF l_debug_mode = 'Y' THEN
474: pa_debug.g_err_stage := 'inside invalid arg exception of UPDATE_DLV_ACTIONS_IN_BULK';
475: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
476: END IF;
477:
478: IF l_msg_count = 1 THEN
479: PA_INTERFACE_UTILS_PUB.get_messages
488: ELSE
489: x_msg_count := l_msg_count;
490: END IF;
491: IF l_debug_mode = 'Y' THEN
492: pa_debug.reset_curr_function;
493: END IF ;
494: RETURN;
495: WHEN OTHERS THEN
496: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
504: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_ACTIONS_PUB'
505: ,p_procedure_name => 'UPDATE_DLV_ACTIONS_IN_BULK');
506:
507: IF p_debug_mode = 'Y' THEN
508: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
509: pa_debug.write('UPDATE_DLV_ACTIONS_IN_BULK: ' || g_module_name,pa_debug.g_err_stage,5);
510: pa_debug.reset_curr_function;
511: END IF;
512: RAISE;
505: ,p_procedure_name => 'UPDATE_DLV_ACTIONS_IN_BULK');
506:
507: IF p_debug_mode = 'Y' THEN
508: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
509: pa_debug.write('UPDATE_DLV_ACTIONS_IN_BULK: ' || g_module_name,pa_debug.g_err_stage,5);
510: pa_debug.reset_curr_function;
511: END IF;
512: RAISE;
513: END UPDATE_DLV_ACTIONS_IN_BULK ;
506:
507: IF p_debug_mode = 'Y' THEN
508: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
509: pa_debug.write('UPDATE_DLV_ACTIONS_IN_BULK: ' || g_module_name,pa_debug.g_err_stage,5);
510: pa_debug.reset_curr_function;
511: END IF;
512: RAISE;
513: END UPDATE_DLV_ACTIONS_IN_BULK ;
514:
563: l_msg_index_out NUMBER;
564: BEGIN
565: x_msg_count := 0;
566: x_return_status := FND_API.G_RET_STS_SUCCESS;
567: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
568:
569: IF l_debug_mode = 'Y' THEN
570: PA_DEBUG.set_curr_function( p_function => 'DELETE_DLV_ACTIONS_IN_BULK',
571: p_debug_mode => l_debug_mode );
566: x_return_status := FND_API.G_RET_STS_SUCCESS;
567: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
568:
569: IF l_debug_mode = 'Y' THEN
570: PA_DEBUG.set_curr_function( p_function => 'DELETE_DLV_ACTIONS_IN_BULK',
571: p_debug_mode => l_debug_mode );
572: pa_debug.g_err_stage:= 'Inside DELETE_DLV_ACTIONS_IN_BULK ';
573: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
574: END IF;
568:
569: IF l_debug_mode = 'Y' THEN
570: PA_DEBUG.set_curr_function( p_function => 'DELETE_DLV_ACTIONS_IN_BULK',
571: p_debug_mode => l_debug_mode );
572: pa_debug.g_err_stage:= 'Inside DELETE_DLV_ACTIONS_IN_BULK ';
573: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
574: END IF;
575:
576:
569: IF l_debug_mode = 'Y' THEN
570: PA_DEBUG.set_curr_function( p_function => 'DELETE_DLV_ACTIONS_IN_BULK',
571: p_debug_mode => l_debug_mode );
572: pa_debug.g_err_stage:= 'Inside DELETE_DLV_ACTIONS_IN_BULK ';
573: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
574: END IF;
575:
576:
577: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
582: savepoint DEL_DLV_ACTIONS_SP ;
583: END IF;
584:
585: IF l_debug_mode = 'Y' THEN
586: pa_debug.g_err_stage:= 'Validating Input parameters';
587: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
588: END IF;
589:
590: PA_ACTIONS_PVT.DELETE_DLV_ACTIONS_IN_BULK
583: END IF;
584:
585: IF l_debug_mode = 'Y' THEN
586: pa_debug.g_err_stage:= 'Validating Input parameters';
587: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
588: END IF;
589:
590: PA_ACTIONS_PVT.DELETE_DLV_ACTIONS_IN_BULK
591: (p_api_version => p_api_version
610: RAISE Invalid_Arg_Exc_Dlv ;
611: END IF ;
612:
613: IF l_debug_mode = 'Y' THEN --Added for bug 4945876
614: pa_debug.reset_curr_function;
615: END IF ;
616:
617: EXCEPTION
618: WHEN Invalid_Arg_Exc_Dlv THEN
623: ROLLBACK TO DEL_DLV_ACTIONS_SP;
624: END IF ;
625:
626: IF l_debug_mode = 'Y' THEN
627: pa_debug.g_err_stage := 'inside invalid arg exception of CR_UP_DLV_ACTIONS_IN_BULK';
628: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
629: END IF;
630:
631: IF l_msg_count = 1 THEN
624: END IF ;
625:
626: IF l_debug_mode = 'Y' THEN
627: pa_debug.g_err_stage := 'inside invalid arg exception of CR_UP_DLV_ACTIONS_IN_BULK';
628: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
629: END IF;
630:
631: IF l_msg_count = 1 THEN
632: PA_INTERFACE_UTILS_PUB.get_messages
641: ELSE
642: x_msg_count := l_msg_count;
643: END IF;
644: IF l_debug_mode = 'Y' THEN
645: pa_debug.reset_curr_function;
646: END IF ;
647: RETURN;
648: WHEN OTHERS THEN
649: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
657: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_ACTIONS_PUB'
658: ,p_procedure_name => 'DELETE_DLV_ACTIONS_IN_BULK');
659:
660: IF p_debug_mode = 'Y' THEN
661: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
662: pa_debug.write('DELETE_DLV_ACTIONS_IN_BULK: ' || g_module_name,pa_debug.g_err_stage,5);
663: pa_debug.reset_curr_function;
664: END IF;
665: RAISE;
658: ,p_procedure_name => 'DELETE_DLV_ACTIONS_IN_BULK');
659:
660: IF p_debug_mode = 'Y' THEN
661: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
662: pa_debug.write('DELETE_DLV_ACTIONS_IN_BULK: ' || g_module_name,pa_debug.g_err_stage,5);
663: pa_debug.reset_curr_function;
664: END IF;
665: RAISE;
666: END DELETE_DLV_ACTIONS_IN_BULK ;
659:
660: IF p_debug_mode = 'Y' THEN
661: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
662: pa_debug.write('DELETE_DLV_ACTIONS_IN_BULK: ' || g_module_name,pa_debug.g_err_stage,5);
663: pa_debug.reset_curr_function;
664: END IF;
665: RAISE;
666: END DELETE_DLV_ACTIONS_IN_BULK ;
667:
853: BEGIN
854:
855: x_msg_count := 0;
856: x_return_status := FND_API.G_RET_STS_SUCCESS;
857: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
858:
859: IF l_debug_mode = 'Y' THEN
860: PA_DEBUG.set_curr_function( p_function => 'CR_UP_DLV_ACTIONS_IN_BULK',
861: p_debug_mode => l_debug_mode );
856: x_return_status := FND_API.G_RET_STS_SUCCESS;
857: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
858:
859: IF l_debug_mode = 'Y' THEN
860: PA_DEBUG.set_curr_function( p_function => 'CR_UP_DLV_ACTIONS_IN_BULK',
861: p_debug_mode => l_debug_mode );
862: pa_debug.g_err_stage:= 'Inside CR_UP_DLV_ACTIONS_IN_BULK ';
863: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
864: END IF;
858:
859: IF l_debug_mode = 'Y' THEN
860: PA_DEBUG.set_curr_function( p_function => 'CR_UP_DLV_ACTIONS_IN_BULK',
861: p_debug_mode => l_debug_mode );
862: pa_debug.g_err_stage:= 'Inside CR_UP_DLV_ACTIONS_IN_BULK ';
863: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
864: END IF;
865:
866: IF l_debug_mode = 'Y' THEN
859: IF l_debug_mode = 'Y' THEN
860: PA_DEBUG.set_curr_function( p_function => 'CR_UP_DLV_ACTIONS_IN_BULK',
861: p_debug_mode => l_debug_mode );
862: pa_debug.g_err_stage:= 'Inside CR_UP_DLV_ACTIONS_IN_BULK ';
863: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
864: END IF;
865:
866: IF l_debug_mode = 'Y' THEN
867: pa_debug.g_err_stage:= 'Printing Input parameters';
863: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
864: END IF;
865:
866: IF l_debug_mode = 'Y' THEN
867: pa_debug.g_err_stage:= 'Printing Input parameters';
868: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
869: pa_debug.write(g_module_name,'p_object_id'||':'||p_object_id,3) ;
870: pa_debug.write(g_module_name,'p_object_type'||':'||p_object_type,3) ;
871: pa_debug.write(g_module_name,'p_insert_or_update'||':'||p_insert_or_update,3) ;
864: END IF;
865:
866: IF l_debug_mode = 'Y' THEN
867: pa_debug.g_err_stage:= 'Printing Input parameters';
868: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
869: pa_debug.write(g_module_name,'p_object_id'||':'||p_object_id,3) ;
870: pa_debug.write(g_module_name,'p_object_type'||':'||p_object_type,3) ;
871: pa_debug.write(g_module_name,'p_insert_or_update'||':'||p_insert_or_update,3) ;
872: END IF;
865:
866: IF l_debug_mode = 'Y' THEN
867: pa_debug.g_err_stage:= 'Printing Input parameters';
868: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
869: pa_debug.write(g_module_name,'p_object_id'||':'||p_object_id,3) ;
870: pa_debug.write(g_module_name,'p_object_type'||':'||p_object_type,3) ;
871: pa_debug.write(g_module_name,'p_insert_or_update'||':'||p_insert_or_update,3) ;
872: END IF;
873:
866: IF l_debug_mode = 'Y' THEN
867: pa_debug.g_err_stage:= 'Printing Input parameters';
868: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
869: pa_debug.write(g_module_name,'p_object_id'||':'||p_object_id,3) ;
870: pa_debug.write(g_module_name,'p_object_type'||':'||p_object_type,3) ;
871: pa_debug.write(g_module_name,'p_insert_or_update'||':'||p_insert_or_update,3) ;
872: END IF;
873:
874: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
867: pa_debug.g_err_stage:= 'Printing Input parameters';
868: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
869: pa_debug.write(g_module_name,'p_object_id'||':'||p_object_id,3) ;
870: pa_debug.write(g_module_name,'p_object_type'||':'||p_object_type,3) ;
871: pa_debug.write(g_module_name,'p_insert_or_update'||':'||p_insert_or_update,3) ;
872: END IF;
873:
874: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
875: FND_MSG_PUB.initialize;
879: savepoint CR_UP_DLV_ACTIONS_SP ;
880: END IF;
881:
882: IF l_debug_mode = 'Y' THEN
883: pa_debug.g_err_stage:= 'Validating Input parameters';
884: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
885: END IF;
886:
887: IF p_insert_or_update IS NULL
880: END IF;
881:
882: IF l_debug_mode = 'Y' THEN
883: pa_debug.g_err_stage:= 'Validating Input parameters';
884: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
885: END IF;
886:
887: IF p_insert_or_update IS NULL
888: THEN
886:
887: IF p_insert_or_update IS NULL
888: THEN
889: IF l_debug_mode = 'Y' THEN
890: pa_debug.g_err_stage:= 'INVALID INPUT PARAMETER';
891: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
892: END IF;
893:
894: x_return_status := FND_API.G_RET_STS_ERROR;
887: IF p_insert_or_update IS NULL
888: THEN
889: IF l_debug_mode = 'Y' THEN
890: pa_debug.g_err_stage:= 'INVALID INPUT PARAMETER';
891: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
892: END IF;
893:
894: x_return_status := FND_API.G_RET_STS_ERROR;
895: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
900:
901: -- Call the validation API. It will
902: -- perform all the validation.
903: IF l_debug_mode = 'Y' THEN
904: pa_debug.g_err_stage:= 'Calling PA_ACTIONS_PUB.VALIDATE_ACTIONS';
905: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
906: END IF ;
907:
908: -- Bug 3651563 ,If p_calling_module is nt passed ,
901: -- Call the validation API. It will
902: -- perform all the validation.
903: IF l_debug_mode = 'Y' THEN
904: pa_debug.g_err_stage:= 'Calling PA_ACTIONS_PUB.VALIDATE_ACTIONS';
905: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
906: END IF ;
907:
908: -- Bug 3651563 ,If p_calling_module is nt passed ,
909: -- Whatever validation is done in this API specific to AMG Flow will not get fired
965:
966: IF nvl(p_user_action_tbl(i),g_insert) = g_insert THEN
967:
968: IF l_debug_mode = 'Y' THEN
969: pa_debug.g_err_stage:= 'Insert Operation';
970: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
971: END IF;
972:
973: j_ins:=j_ins+1 ;
966: IF nvl(p_user_action_tbl(i),g_insert) = g_insert THEN
967:
968: IF l_debug_mode = 'Y' THEN
969: pa_debug.g_err_stage:= 'Insert Operation';
970: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
971: END IF;
972:
973: j_ins:=j_ins+1 ;
974:
1008: l_ins_element_id_tbl(j_ins) := p_proj_element_id_tbl(i) ;
1009: l_ins_element_ver_id_tbl(j_ins) := p_element_version_id_tbl(i) ;
1010:
1011: IF p_debug_mode = 'Y' THEN
1012: pa_debug.write(g_module_name,'Tracking vers id ['||p_element_version_id_tbl(i)||'] elem id['||p_proj_element_id_tbl(i) ,3) ;
1013: END IF;
1014:
1015: l_ins_rec_ver_num_id_tbl(j_ins) := p_record_version_number_tbl(i) ;
1016: l_ins_name_tbl(j_ins) := p_name_tbl(i) ;
1042:
1043: ELSIF nvl(p_user_action_tbl(i),g_insert) = g_modified THEN
1044:
1045: IF l_debug_mode = 'Y' THEN
1046: pa_debug.g_err_stage:= 'Update Operation';
1047: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1048: END IF;
1049:
1050: j_upd:=j_upd+1 ;
1043: ELSIF nvl(p_user_action_tbl(i),g_insert) = g_modified THEN
1044:
1045: IF l_debug_mode = 'Y' THEN
1046: pa_debug.g_err_stage:= 'Update Operation';
1047: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1048: END IF;
1049:
1050: j_upd:=j_upd+1 ;
1051:
1133:
1134: ELSIF nvl(p_user_action_tbl(i),g_insert) = g_delete THEN
1135:
1136: IF l_debug_mode = 'Y' THEN
1137: pa_debug.g_err_stage:= 'Delete Operation';
1138: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1139: END IF;
1140:
1141: j_del:=j_del+1 ;
1134: ELSIF nvl(p_user_action_tbl(i),g_insert) = g_delete THEN
1135:
1136: IF l_debug_mode = 'Y' THEN
1137: pa_debug.g_err_stage:= 'Delete Operation';
1138: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1139: END IF;
1140:
1141: j_del:=j_del+1 ;
1142:
1170: -- Call Delete API to perform the delete operation
1171: IF j_del > 0 THEN
1172:
1173: IF l_debug_mode = 'Y' THEN
1174: pa_debug.g_err_stage:= 'Call DELETE_DLV_ACTIONS_IN_BULK ';
1175: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1176: END IF;
1177:
1178: PA_ACTIONS_PUB.DELETE_DLV_ACTIONS_IN_BULK
1171: IF j_del > 0 THEN
1172:
1173: IF l_debug_mode = 'Y' THEN
1174: pa_debug.g_err_stage:= 'Call DELETE_DLV_ACTIONS_IN_BULK ';
1175: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1176: END IF;
1177:
1178: PA_ACTIONS_PUB.DELETE_DLV_ACTIONS_IN_BULK
1179: (p_api_version => p_api_version
1203: -- Call Update API to perform the delete operation
1204: IF j_upd > 0 THEN
1205:
1206: IF l_debug_mode = 'Y' THEN
1207: pa_debug.g_err_stage:= 'Call UPDATE_DLV_ACTIONS_IN_BULK ';
1208: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1209: END IF;
1210:
1211: PA_ACTIONS_PUB.UPDATE_DLV_ACTIONS_IN_BULK
1204: IF j_upd > 0 THEN
1205:
1206: IF l_debug_mode = 'Y' THEN
1207: pa_debug.g_err_stage:= 'Call UPDATE_DLV_ACTIONS_IN_BULK ';
1208: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1209: END IF;
1210:
1211: PA_ACTIONS_PUB.UPDATE_DLV_ACTIONS_IN_BULK
1212: (p_api_version => p_api_version
1265: -- Call Insert API to perform the Insert operation
1266: IF j_ins > 0 THEN
1267:
1268: IF l_debug_mode = 'Y' THEN
1269: pa_debug.g_err_stage:= 'Call CREATE_DLV_ACTIONS_IN_BULK ';
1270: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1271: END IF;
1272:
1273: PA_ACTIONS_PUB.CREATE_DLV_ACTIONS_IN_BULK
1266: IF j_ins > 0 THEN
1267:
1268: IF l_debug_mode = 'Y' THEN
1269: pa_debug.g_err_stage:= 'Call CREATE_DLV_ACTIONS_IN_BULK ';
1270: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1271: END IF;
1272:
1273: PA_ACTIONS_PUB.CREATE_DLV_ACTIONS_IN_BULK
1274: (p_api_version => p_api_version
1318: ,x_msg_data => x_msg_data
1319: ) ;
1320:
1321: IF l_debug_mode = 'Y' THEN
1322: pa_debug.write(g_module_name,' return from PA_ACTIONS_PUB.CREATE_DLV_ACTIONS_IN_BULK ['||x_return_status||']',3);
1323: END IF;
1324:
1325: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1326: RAISE Invalid_Arg_Exc_Dlv ;
1330:
1331: END IF ; -- Only if something is fetched
1332:
1333: IF l_debug_mode = 'Y' THEN
1334: pa_debug.g_err_stage:= 'Exiting CR_UP_DLV_ACTIONS_IN_BULK' ;
1335: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1336: pa_debug.reset_curr_function;
1337: END IF;
1338:
1331: END IF ; -- Only if something is fetched
1332:
1333: IF l_debug_mode = 'Y' THEN
1334: pa_debug.g_err_stage:= 'Exiting CR_UP_DLV_ACTIONS_IN_BULK' ;
1335: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1336: pa_debug.reset_curr_function;
1337: END IF;
1338:
1339: EXCEPTION
1332:
1333: IF l_debug_mode = 'Y' THEN
1334: pa_debug.g_err_stage:= 'Exiting CR_UP_DLV_ACTIONS_IN_BULK' ;
1335: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1336: pa_debug.reset_curr_function;
1337: END IF;
1338:
1339: EXCEPTION
1340: WHEN Invalid_Arg_Exc_Dlv THEN
1345: ROLLBACK TO CR_UP_DLV_ACTIONS_SP;
1346: END IF ;
1347:
1348: IF l_debug_mode = 'Y' THEN
1349: pa_debug.g_err_stage := 'inside invalid arg exception of CR_UP_DLV_ACTIONS_IN_BULK';
1350: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1351: END IF;
1352:
1353: IF l_msg_count = 1 THEN
1346: END IF ;
1347:
1348: IF l_debug_mode = 'Y' THEN
1349: pa_debug.g_err_stage := 'inside invalid arg exception of CR_UP_DLV_ACTIONS_IN_BULK';
1350: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1351: END IF;
1352:
1353: IF l_msg_count = 1 THEN
1354: PA_INTERFACE_UTILS_PUB.get_messages
1363: ELSE
1364: x_msg_count := l_msg_count;
1365: END IF;
1366: IF l_debug_mode = 'Y' THEN
1367: pa_debug.reset_curr_function;
1368: END IF ;
1369: IF l_debug_mode = 'Y' THEN
1370: pa_debug.g_err_stage := 'Leaving CR_UP_DLV_ACTIONS_IN_BULK with return status ' || x_return_status ;
1371: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1366: IF l_debug_mode = 'Y' THEN
1367: pa_debug.reset_curr_function;
1368: END IF ;
1369: IF l_debug_mode = 'Y' THEN
1370: pa_debug.g_err_stage := 'Leaving CR_UP_DLV_ACTIONS_IN_BULK with return status ' || x_return_status ;
1371: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1372: END IF;
1373: RETURN;
1374: WHEN OTHERS THEN
1367: pa_debug.reset_curr_function;
1368: END IF ;
1369: IF l_debug_mode = 'Y' THEN
1370: pa_debug.g_err_stage := 'Leaving CR_UP_DLV_ACTIONS_IN_BULK with return status ' || x_return_status ;
1371: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1372: END IF;
1373: RETURN;
1374: WHEN OTHERS THEN
1375: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1383: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_ACTIONS_PUB'
1384: ,p_procedure_name => 'CR_UP_DLV_ACTIONS_IN_BULK');
1385:
1386: IF p_debug_mode = 'Y' THEN
1387: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
1388: pa_debug.write(g_module_name,'CR_UP_DLV_ACTIONS_IN_BULK: '|| pa_debug.g_err_stage,5);
1389: pa_debug.reset_curr_function;
1390: END IF;
1391: RAISE;
1384: ,p_procedure_name => 'CR_UP_DLV_ACTIONS_IN_BULK');
1385:
1386: IF p_debug_mode = 'Y' THEN
1387: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
1388: pa_debug.write(g_module_name,'CR_UP_DLV_ACTIONS_IN_BULK: '|| pa_debug.g_err_stage,5);
1389: pa_debug.reset_curr_function;
1390: END IF;
1391: RAISE;
1392: END CR_UP_DLV_ACTIONS_IN_BULK ;
1385:
1386: IF p_debug_mode = 'Y' THEN
1387: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
1388: pa_debug.write(g_module_name,'CR_UP_DLV_ACTIONS_IN_BULK: '|| pa_debug.g_err_stage,5);
1389: pa_debug.reset_curr_function;
1390: END IF;
1391: RAISE;
1392: END CR_UP_DLV_ACTIONS_IN_BULK ;
1393:
1551:
1552: BEGIN
1553: x_msg_count := 0;
1554: x_return_status := FND_API.G_RET_STS_SUCCESS;
1555: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
1556:
1557: IF l_debug_mode = 'Y' THEN
1558: PA_DEBUG.set_curr_function( p_function => 'CR_UP_DLV_ACTIONS_IN_BULK',
1559: p_debug_mode => l_debug_mode );
1554: x_return_status := FND_API.G_RET_STS_SUCCESS;
1555: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
1556:
1557: IF l_debug_mode = 'Y' THEN
1558: PA_DEBUG.set_curr_function( p_function => 'CR_UP_DLV_ACTIONS_IN_BULK',
1559: p_debug_mode => l_debug_mode );
1560: pa_debug.g_err_stage:= 'Inside VALIDATE_ACTIONS ';
1561: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
1562: END IF;
1556:
1557: IF l_debug_mode = 'Y' THEN
1558: PA_DEBUG.set_curr_function( p_function => 'CR_UP_DLV_ACTIONS_IN_BULK',
1559: p_debug_mode => l_debug_mode );
1560: pa_debug.g_err_stage:= 'Inside VALIDATE_ACTIONS ';
1561: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
1562: END IF;
1563:
1564: IF l_debug_mode = 'Y' THEN
1557: IF l_debug_mode = 'Y' THEN
1558: PA_DEBUG.set_curr_function( p_function => 'CR_UP_DLV_ACTIONS_IN_BULK',
1559: p_debug_mode => l_debug_mode );
1560: pa_debug.g_err_stage:= 'Inside VALIDATE_ACTIONS ';
1561: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
1562: END IF;
1563:
1564: IF l_debug_mode = 'Y' THEN
1565: pa_debug.g_err_stage:= 'Printing Input parameters';
1561: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
1562: END IF;
1563:
1564: IF l_debug_mode = 'Y' THEN
1565: pa_debug.g_err_stage:= 'Printing Input parameters';
1566: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
1567: pa_debug.write(g_module_name,'p_object_type'||':'||p_object_type,3) ;
1568: END IF;
1569:
1562: END IF;
1563:
1564: IF l_debug_mode = 'Y' THEN
1565: pa_debug.g_err_stage:= 'Printing Input parameters';
1566: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
1567: pa_debug.write(g_module_name,'p_object_type'||':'||p_object_type,3) ;
1568: END IF;
1569:
1570: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
1563:
1564: IF l_debug_mode = 'Y' THEN
1565: pa_debug.g_err_stage:= 'Printing Input parameters';
1566: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
1567: pa_debug.write(g_module_name,'p_object_type'||':'||p_object_type,3) ;
1568: END IF;
1569:
1570: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
1571: FND_MSG_PUB.initialize;
1595: -- Do the locking part here in update and delete mode
1596:
1597: -- Validate action name.
1598: IF l_debug_mode = 'Y' THEN
1599: pa_debug.g_err_stage:= 'No of records fetched'||p_name_tbl.LAST;
1600: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
1601: END IF ;
1602:
1603: IF nvl(p_name_tbl.LAST,0)>0 THEN
1596:
1597: -- Validate action name.
1598: IF l_debug_mode = 'Y' THEN
1599: pa_debug.g_err_stage:= 'No of records fetched'||p_name_tbl.LAST;
1600: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
1601: END IF ;
1602:
1603: IF nvl(p_name_tbl.LAST,0)>0 THEN
1604: FOR i IN p_name_tbl.FIRST..p_name_tbl.LAST LOOP
1618: END LOOP ;
1619: END LOOP ;
1620:
1621: IF l_debug_mode = 'Y' THEN
1622: pa_debug.g_err_stage:='The error message content is :' || l_err_message;
1623: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
1624: END IF ;
1625: END IF ;
1626:
1619: END LOOP ;
1620:
1621: IF l_debug_mode = 'Y' THEN
1622: pa_debug.g_err_stage:='The error message content is :' || l_err_message;
1623: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
1624: END IF ;
1625: END IF ;
1626:
1627:
1625: END IF ;
1626:
1627:
1628: IF l_debug_mode = 'Y' THEN
1629: pa_debug.g_err_stage:= 'After Name Validation ';
1630: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
1631: END IF ;
1632:
1633:
1626:
1627:
1628: IF l_debug_mode = 'Y' THEN
1629: pa_debug.g_err_stage:= 'After Name Validation ';
1630: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
1631: END IF ;
1632:
1633:
1634: -- 1. Validate completed check box. If Completed Check Box is
1653: -- Following validation is required only in context of deliverables.
1654: IF nvl(p_object_type,g_deliverables) = g_deliverables THEN
1655:
1656: IF l_debug_mode = 'Y' THEN
1657: pa_debug.g_err_stage:= '@@@Calling Context is Deliverables #######()' ;
1658: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
1659: END IF ;
1660:
1661: -- For all the records do the validation in loop .
1654: IF nvl(p_object_type,g_deliverables) = g_deliverables THEN
1655:
1656: IF l_debug_mode = 'Y' THEN
1657: pa_debug.g_err_stage:= '@@@Calling Context is Deliverables #######()' ;
1658: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
1659: END IF ;
1660:
1661: -- For all the records do the validation in loop .
1662: FOR i IN p_element_version_id_tbl.FIRST..p_element_version_id_tbl.LAST LOOP
2044:
2045: l_existing_count := nvl(l_name_tbl.LAST,0) ;
2046:
2047: IF l_debug_mode = 'Y' THEN
2048: pa_debug.g_err_stage:= 'No of records already existing are ' || l_existing_count;
2049: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2050: END IF;
2051:
2052: END IF;
2045: l_existing_count := nvl(l_name_tbl.LAST,0) ;
2046:
2047: IF l_debug_mode = 'Y' THEN
2048: pa_debug.g_err_stage:= 'No of records already existing are ' || l_existing_count;
2049: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2050: END IF;
2051:
2052: END IF;
2053:
2086:
2087:
2088: -- Fetch Deliverable Name and Project Name for tokens
2089: IF l_debug_mode = 'Y' THEN
2090: Pa_Debug.WRITE(g_module_name, 'proj id ['||p_project_id||'] dlvr id ['||p_deliverable_id||']',l_debug_level3);
2091: END IF;
2092:
2093: SELECT element_Number INTO l_deliverable_number
2094: FROM pa_Proj_elements
2099: FROM Pa_Projects_All
2100: WHERE project_id = p_project_id;
2101:
2102: IF l_debug_mode = 'Y' THEN
2103: Pa_Debug.WRITE(g_module_name, 'token values proj ['||l_Project_Number||'] deliverable ['||l_deliverable_Number||']',l_debug_level3);
2104: END IF;
2105:
2106: -- Validate Carrying Out Org Id - valid value
2107: IF p_carrying_out_org_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
2120: ,x_return_status => x_return_status
2121: ,x_error_msg_code => l_msg_data);
2122:
2123: IF l_debug_mode = 'Y' THEN
2124: Pa_Debug.WRITE(g_module_name,' validating carrying out org ['||l_carrying_out_org_id||']status['||x_return_status||']', l_debug_level3);
2125: END IF;
2126: -- added for bug: 4537865
2127: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
2128: l_carrying_out_org_id := l_new_carrying_out_org_id ;
2171: -- * added for bug 4537865
2172: ,x_return_status => x_return_status
2173: ,x_error_msg_code => l_msg_data );
2174: IF l_debug_mode = 'Y' THEN
2175: Pa_Debug.WRITE(g_module_name,' validated owner id ['||l_action_owner_id||']status['||x_return_status||']' , l_debug_level3);
2176: END IF;
2177:
2178: -- added for bug 4537865
2179: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
2211:
2212: l_function_code_valid := Pa_Deliverable_Utils.Is_Function_Code_Valid(l_function_code);
2213:
2214: IF l_debug_mode = 'Y' THEN
2215: Pa_Debug.WRITE(g_module_name,'function code '||l_Function_code||'] validity ['||l_function_code_valid||']' , l_debug_level3);
2216: END IF;
2217:
2218: IF l_function_code_valid IS NULL OR l_function_code_valid = 'N' THEN
2219: l_err_message := FND_MESSAGE.GET_STRING('PA','ACTION_FUNC_CODE_INVALID') ;
2305: x_return_status := FND_API.G_RET_STS_ERROR;
2306: END IF ;
2307:
2308: IF l_debug_mode = 'Y' THEN
2309: pa_debug.g_err_stage:='Exiting Validate Actions ';
2310: pa_debug.write('VALIDATE_ACTIONS: ' || g_module_name,pa_debug.g_err_stage,5);
2311: pa_debug.reset_curr_function;
2312: END IF;
2313:
2306: END IF ;
2307:
2308: IF l_debug_mode = 'Y' THEN
2309: pa_debug.g_err_stage:='Exiting Validate Actions ';
2310: pa_debug.write('VALIDATE_ACTIONS: ' || g_module_name,pa_debug.g_err_stage,5);
2311: pa_debug.reset_curr_function;
2312: END IF;
2313:
2314: EXCEPTION
2307:
2308: IF l_debug_mode = 'Y' THEN
2309: pa_debug.g_err_stage:='Exiting Validate Actions ';
2310: pa_debug.write('VALIDATE_ACTIONS: ' || g_module_name,pa_debug.g_err_stage,5);
2311: pa_debug.reset_curr_function;
2312: END IF;
2313:
2314: EXCEPTION
2315: WHEN Invalid_Arg_Exc_Dlv THEN
2316: x_return_status := FND_API.G_RET_STS_ERROR;
2317: l_msg_count := FND_MSG_PUB.count_msg;
2318:
2319: IF l_debug_mode = 'Y' THEN
2320: pa_debug.g_err_stage := 'inside invalid arg exception of VALIDATE_ACTIONS';
2321: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
2322: END IF;
2323:
2324: IF l_msg_count = 1 THEN
2317: l_msg_count := FND_MSG_PUB.count_msg;
2318:
2319: IF l_debug_mode = 'Y' THEN
2320: pa_debug.g_err_stage := 'inside invalid arg exception of VALIDATE_ACTIONS';
2321: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
2322: END IF;
2323:
2324: IF l_msg_count = 1 THEN
2325: PA_INTERFACE_UTILS_PUB.get_messages
2334: ELSE
2335: x_msg_count := l_msg_count;
2336: END IF;
2337: IF l_debug_mode = 'Y' THEN
2338: pa_debug.reset_curr_function;
2339: END IF ;
2340: RETURN;
2341: WHEN OTHERS THEN
2342: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2346: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_ACTIONS_PUB'
2347: ,p_procedure_name => 'VALIDATE_ACTIONS');
2348:
2349: IF p_debug_mode = 'Y' THEN
2350: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
2351: pa_debug.write('VALIDATE_ACTIONS: ' || g_module_name,pa_debug.g_err_stage,5);
2352: pa_debug.reset_curr_function;
2353: END IF;
2354: RAISE;
2347: ,p_procedure_name => 'VALIDATE_ACTIONS');
2348:
2349: IF p_debug_mode = 'Y' THEN
2350: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
2351: pa_debug.write('VALIDATE_ACTIONS: ' || g_module_name,pa_debug.g_err_stage,5);
2352: pa_debug.reset_curr_function;
2353: END IF;
2354: RAISE;
2355:
2348:
2349: IF p_debug_mode = 'Y' THEN
2350: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
2351: pa_debug.write('VALIDATE_ACTIONS: ' || g_module_name,pa_debug.g_err_stage,5);
2352: pa_debug.reset_curr_function;
2353: END IF;
2354: RAISE;
2355:
2356: END VALIDATE_ACTIONS;
2418: BEGIN
2419:
2420: x_msg_count := 0;
2421: x_return_status := FND_API.G_RET_STS_SUCCESS;
2422: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
2423:
2424: IF l_debug_mode = 'Y' THEN
2425: PA_DEBUG.set_curr_function( p_function => 'DELETE_DLV_ACTION',
2426: p_debug_mode => l_debug_mode );
2421: x_return_status := FND_API.G_RET_STS_SUCCESS;
2422: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
2423:
2424: IF l_debug_mode = 'Y' THEN
2425: PA_DEBUG.set_curr_function( p_function => 'DELETE_DLV_ACTION',
2426: p_debug_mode => l_debug_mode );
2427: pa_debug.g_err_stage:= 'Inside DELETE_DLV_ACTIONS ';
2428: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2429: END IF;
2423:
2424: IF l_debug_mode = 'Y' THEN
2425: PA_DEBUG.set_curr_function( p_function => 'DELETE_DLV_ACTION',
2426: p_debug_mode => l_debug_mode );
2427: pa_debug.g_err_stage:= 'Inside DELETE_DLV_ACTIONS ';
2428: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2429: END IF;
2430:
2431: IF l_debug_mode = 'Y' THEN
2424: IF l_debug_mode = 'Y' THEN
2425: PA_DEBUG.set_curr_function( p_function => 'DELETE_DLV_ACTION',
2426: p_debug_mode => l_debug_mode );
2427: pa_debug.g_err_stage:= 'Inside DELETE_DLV_ACTIONS ';
2428: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2429: END IF;
2430:
2431: IF l_debug_mode = 'Y' THEN
2432: pa_debug.g_err_stage:= 'Printing Input parameters';
2428: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2429: END IF;
2430:
2431: IF l_debug_mode = 'Y' THEN
2432: pa_debug.g_err_stage:= 'Printing Input parameters';
2433: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2434: pa_debug.write(g_module_name,'p_action_id'||':'||p_action_id,3) ;
2435: pa_debug.write(g_module_name,'p_action_ver_id'||':'||p_action_ver_id,3) ;
2436: pa_debug.write(g_module_name,'p_dlv_element_id'||':'||p_dlv_element_id,3) ;
2429: END IF;
2430:
2431: IF l_debug_mode = 'Y' THEN
2432: pa_debug.g_err_stage:= 'Printing Input parameters';
2433: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2434: pa_debug.write(g_module_name,'p_action_id'||':'||p_action_id,3) ;
2435: pa_debug.write(g_module_name,'p_action_ver_id'||':'||p_action_ver_id,3) ;
2436: pa_debug.write(g_module_name,'p_dlv_element_id'||':'||p_dlv_element_id,3) ;
2437: pa_debug.write(g_module_name,'p_dlv_version_id'||':'||p_dlv_version_id,3) ;
2430:
2431: IF l_debug_mode = 'Y' THEN
2432: pa_debug.g_err_stage:= 'Printing Input parameters';
2433: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2434: pa_debug.write(g_module_name,'p_action_id'||':'||p_action_id,3) ;
2435: pa_debug.write(g_module_name,'p_action_ver_id'||':'||p_action_ver_id,3) ;
2436: pa_debug.write(g_module_name,'p_dlv_element_id'||':'||p_dlv_element_id,3) ;
2437: pa_debug.write(g_module_name,'p_dlv_version_id'||':'||p_dlv_version_id,3) ;
2438: pa_debug.write(g_module_name,'p_function_code'||':'||p_function_code,3) ;
2431: IF l_debug_mode = 'Y' THEN
2432: pa_debug.g_err_stage:= 'Printing Input parameters';
2433: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2434: pa_debug.write(g_module_name,'p_action_id'||':'||p_action_id,3) ;
2435: pa_debug.write(g_module_name,'p_action_ver_id'||':'||p_action_ver_id,3) ;
2436: pa_debug.write(g_module_name,'p_dlv_element_id'||':'||p_dlv_element_id,3) ;
2437: pa_debug.write(g_module_name,'p_dlv_version_id'||':'||p_dlv_version_id,3) ;
2438: pa_debug.write(g_module_name,'p_function_code'||':'||p_function_code,3) ;
2439: pa_debug.write(g_module_name,'p_project_id'||':'||p_project_id,3) ;
2432: pa_debug.g_err_stage:= 'Printing Input parameters';
2433: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2434: pa_debug.write(g_module_name,'p_action_id'||':'||p_action_id,3) ;
2435: pa_debug.write(g_module_name,'p_action_ver_id'||':'||p_action_ver_id,3) ;
2436: pa_debug.write(g_module_name,'p_dlv_element_id'||':'||p_dlv_element_id,3) ;
2437: pa_debug.write(g_module_name,'p_dlv_version_id'||':'||p_dlv_version_id,3) ;
2438: pa_debug.write(g_module_name,'p_function_code'||':'||p_function_code,3) ;
2439: pa_debug.write(g_module_name,'p_project_id'||':'||p_project_id,3) ;
2440: END IF;
2433: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2434: pa_debug.write(g_module_name,'p_action_id'||':'||p_action_id,3) ;
2435: pa_debug.write(g_module_name,'p_action_ver_id'||':'||p_action_ver_id,3) ;
2436: pa_debug.write(g_module_name,'p_dlv_element_id'||':'||p_dlv_element_id,3) ;
2437: pa_debug.write(g_module_name,'p_dlv_version_id'||':'||p_dlv_version_id,3) ;
2438: pa_debug.write(g_module_name,'p_function_code'||':'||p_function_code,3) ;
2439: pa_debug.write(g_module_name,'p_project_id'||':'||p_project_id,3) ;
2440: END IF;
2441:
2434: pa_debug.write(g_module_name,'p_action_id'||':'||p_action_id,3) ;
2435: pa_debug.write(g_module_name,'p_action_ver_id'||':'||p_action_ver_id,3) ;
2436: pa_debug.write(g_module_name,'p_dlv_element_id'||':'||p_dlv_element_id,3) ;
2437: pa_debug.write(g_module_name,'p_dlv_version_id'||':'||p_dlv_version_id,3) ;
2438: pa_debug.write(g_module_name,'p_function_code'||':'||p_function_code,3) ;
2439: pa_debug.write(g_module_name,'p_project_id'||':'||p_project_id,3) ;
2440: END IF;
2441:
2442: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
2435: pa_debug.write(g_module_name,'p_action_ver_id'||':'||p_action_ver_id,3) ;
2436: pa_debug.write(g_module_name,'p_dlv_element_id'||':'||p_dlv_element_id,3) ;
2437: pa_debug.write(g_module_name,'p_dlv_version_id'||':'||p_dlv_version_id,3) ;
2438: pa_debug.write(g_module_name,'p_function_code'||':'||p_function_code,3) ;
2439: pa_debug.write(g_module_name,'p_project_id'||':'||p_project_id,3) ;
2440: END IF;
2441:
2442: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
2443: FND_MSG_PUB.initialize;
2447: savepoint DELETE_DLV_ACTIONS_SP ;
2448: END IF;
2449:
2450: IF l_debug_mode = 'Y' THEN
2451: pa_debug.g_err_stage:= 'Validating Input parameters';
2452: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
2453: END IF;
2454:
2455: -- 3769024 , if p_action_id ( i.e proj_element_id ) is null and action element_version id is not null
2448: END IF;
2449:
2450: IF l_debug_mode = 'Y' THEN
2451: pa_debug.g_err_stage:= 'Validating Input parameters';
2452: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
2453: END IF;
2454:
2455: -- 3769024 , if p_action_id ( i.e proj_element_id ) is null and action element_version id is not null
2456: -- derive proj_element_id from proj_element_id
2475: (p_dlv_element_id IS NULL OR p_dlv_version_id IS NULL) OR
2476: (p_function_code IS NULL OR p_project_id IS NULL ))
2477: THEN
2478: IF l_debug_mode = 'Y' THEN
2479: pa_debug.g_err_stage:= 'INVALID INPUT PARAMETER';
2480: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
2481: END IF;
2482:
2483: x_return_status := FND_API.G_RET_STS_ERROR;
2476: (p_function_code IS NULL OR p_project_id IS NULL ))
2477: THEN
2478: IF l_debug_mode = 'Y' THEN
2479: pa_debug.g_err_stage:= 'INVALID INPUT PARAMETER';
2480: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
2481: END IF;
2482:
2483: x_return_status := FND_API.G_RET_STS_ERROR;
2484: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
2510: RAISE Invalid_Arg_Exc_Dlv ;
2511: END IF ;
2512:
2513: IF l_debug_mode = 'Y' THEN
2514: pa_debug.g_err_stage:= 'Exiting DELETE_DLV_ACTION' ;
2515: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
2516: pa_debug.reset_curr_function;
2517: END IF;
2518:
2511: END IF ;
2512:
2513: IF l_debug_mode = 'Y' THEN
2514: pa_debug.g_err_stage:= 'Exiting DELETE_DLV_ACTION' ;
2515: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
2516: pa_debug.reset_curr_function;
2517: END IF;
2518:
2519: EXCEPTION
2512:
2513: IF l_debug_mode = 'Y' THEN
2514: pa_debug.g_err_stage:= 'Exiting DELETE_DLV_ACTION' ;
2515: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
2516: pa_debug.reset_curr_function;
2517: END IF;
2518:
2519: EXCEPTION
2520: WHEN Invalid_Arg_Exc_Dlv THEN
2525: ROLLBACK TO DELETE_DLV_ACTIONS_SP;
2526: END IF ;
2527:
2528: IF l_debug_mode = 'Y' THEN
2529: pa_debug.g_err_stage := 'inside invalid arg exception of DELETE_DLV_ACTIONS';
2530: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
2531: END IF;
2532:
2533: IF l_msg_count = 1 THEN
2526: END IF ;
2527:
2528: IF l_debug_mode = 'Y' THEN
2529: pa_debug.g_err_stage := 'inside invalid arg exception of DELETE_DLV_ACTIONS';
2530: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
2531: END IF;
2532:
2533: IF l_msg_count = 1 THEN
2534: PA_INTERFACE_UTILS_PUB.get_messages
2543: ELSE
2544: x_msg_count := l_msg_count;
2545: END IF;
2546: IF l_debug_mode = 'Y' THEN
2547: pa_debug.reset_curr_function;
2548: END IF ;
2549: RETURN;
2550: WHEN OTHERS THEN
2551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2559: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_ACTIONS_PUB'
2560: ,p_procedure_name => 'DELETE_DLV_ACTION');
2561:
2562: IF p_debug_mode = 'Y' THEN
2563: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
2564: pa_debug.write('DELETE_DLV_ACTION: ' || g_module_name,pa_debug.g_err_stage,5);
2565: pa_debug.reset_curr_function;
2566: END IF;
2567: RAISE;
2560: ,p_procedure_name => 'DELETE_DLV_ACTION');
2561:
2562: IF p_debug_mode = 'Y' THEN
2563: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
2564: pa_debug.write('DELETE_DLV_ACTION: ' || g_module_name,pa_debug.g_err_stage,5);
2565: pa_debug.reset_curr_function;
2566: END IF;
2567: RAISE;
2568: END DELETE_DLV_ACTION ;
2561:
2562: IF p_debug_mode = 'Y' THEN
2563: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
2564: pa_debug.write('DELETE_DLV_ACTION: ' || g_module_name,pa_debug.g_err_stage,5);
2565: pa_debug.reset_curr_function;
2566: END IF;
2567: RAISE;
2568: END DELETE_DLV_ACTION ;
2569:
2629: BEGIN
2630:
2631: x_msg_count := 0;
2632: x_return_status := FND_API.G_RET_STS_SUCCESS;
2633: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
2634:
2635: IF l_debug_mode = 'Y' THEN
2636: PA_DEBUG.set_curr_function( p_function => 'COPY_ACTIONS',
2637: p_debug_mode => l_debug_mode );
2632: x_return_status := FND_API.G_RET_STS_SUCCESS;
2633: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
2634:
2635: IF l_debug_mode = 'Y' THEN
2636: PA_DEBUG.set_curr_function( p_function => 'COPY_ACTIONS',
2637: p_debug_mode => l_debug_mode );
2638: pa_debug.g_err_stage:= 'Inside COPY_ACTIONS ';
2639: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2640: END IF;
2634:
2635: IF l_debug_mode = 'Y' THEN
2636: PA_DEBUG.set_curr_function( p_function => 'COPY_ACTIONS',
2637: p_debug_mode => l_debug_mode );
2638: pa_debug.g_err_stage:= 'Inside COPY_ACTIONS ';
2639: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2640: END IF;
2641:
2642: IF l_debug_mode = 'Y' THEN
2635: IF l_debug_mode = 'Y' THEN
2636: PA_DEBUG.set_curr_function( p_function => 'COPY_ACTIONS',
2637: p_debug_mode => l_debug_mode );
2638: pa_debug.g_err_stage:= 'Inside COPY_ACTIONS ';
2639: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2640: END IF;
2641:
2642: IF l_debug_mode = 'Y' THEN
2643: pa_debug.g_err_stage:= 'Printing Input parameters';
2639: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2640: END IF;
2641:
2642: IF l_debug_mode = 'Y' THEN
2643: pa_debug.g_err_stage:= 'Printing Input parameters';
2644: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2645: pa_debug.write(g_module_name,'p_source_object_id '||':'||p_source_object_id ,3) ;
2646: pa_debug.write(g_module_name,'p_source_object_type'||':'||p_source_object_type,3) ;
2647: pa_debug.write(g_module_name,'p_target_object_id '||':'||p_target_object_id ,3) ;
2640: END IF;
2641:
2642: IF l_debug_mode = 'Y' THEN
2643: pa_debug.g_err_stage:= 'Printing Input parameters';
2644: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2645: pa_debug.write(g_module_name,'p_source_object_id '||':'||p_source_object_id ,3) ;
2646: pa_debug.write(g_module_name,'p_source_object_type'||':'||p_source_object_type,3) ;
2647: pa_debug.write(g_module_name,'p_target_object_id '||':'||p_target_object_id ,3) ;
2648: pa_debug.write(g_module_name,'p_target_object_type'||':'||p_target_object_type,3) ;
2641:
2642: IF l_debug_mode = 'Y' THEN
2643: pa_debug.g_err_stage:= 'Printing Input parameters';
2644: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2645: pa_debug.write(g_module_name,'p_source_object_id '||':'||p_source_object_id ,3) ;
2646: pa_debug.write(g_module_name,'p_source_object_type'||':'||p_source_object_type,3) ;
2647: pa_debug.write(g_module_name,'p_target_object_id '||':'||p_target_object_id ,3) ;
2648: pa_debug.write(g_module_name,'p_target_object_type'||':'||p_target_object_type,3) ;
2649: END IF;
2642: IF l_debug_mode = 'Y' THEN
2643: pa_debug.g_err_stage:= 'Printing Input parameters';
2644: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2645: pa_debug.write(g_module_name,'p_source_object_id '||':'||p_source_object_id ,3) ;
2646: pa_debug.write(g_module_name,'p_source_object_type'||':'||p_source_object_type,3) ;
2647: pa_debug.write(g_module_name,'p_target_object_id '||':'||p_target_object_id ,3) ;
2648: pa_debug.write(g_module_name,'p_target_object_type'||':'||p_target_object_type,3) ;
2649: END IF;
2650:
2643: pa_debug.g_err_stage:= 'Printing Input parameters';
2644: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2645: pa_debug.write(g_module_name,'p_source_object_id '||':'||p_source_object_id ,3) ;
2646: pa_debug.write(g_module_name,'p_source_object_type'||':'||p_source_object_type,3) ;
2647: pa_debug.write(g_module_name,'p_target_object_id '||':'||p_target_object_id ,3) ;
2648: pa_debug.write(g_module_name,'p_target_object_type'||':'||p_target_object_type,3) ;
2649: END IF;
2650:
2651: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
2644: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2645: pa_debug.write(g_module_name,'p_source_object_id '||':'||p_source_object_id ,3) ;
2646: pa_debug.write(g_module_name,'p_source_object_type'||':'||p_source_object_type,3) ;
2647: pa_debug.write(g_module_name,'p_target_object_id '||':'||p_target_object_id ,3) ;
2648: pa_debug.write(g_module_name,'p_target_object_type'||':'||p_target_object_type,3) ;
2649: END IF;
2650:
2651: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
2652: FND_MSG_PUB.initialize;
2656: savepoint COPY_ACTIONS_SP ;
2657: END IF;
2658:
2659: IF l_debug_mode = 'Y' THEN
2660: pa_debug.g_err_stage:= 'Validating Input parameters';
2661: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
2662: END IF;
2663:
2664: IF (p_source_object_id IS NULL OR p_source_object_type IS NULL
2657: END IF;
2658:
2659: IF l_debug_mode = 'Y' THEN
2660: pa_debug.g_err_stage:= 'Validating Input parameters';
2661: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
2662: END IF;
2663:
2664: IF (p_source_object_id IS NULL OR p_source_object_type IS NULL
2665: OR p_target_object_id IS NULL OR p_target_object_type IS NULL )
2664: IF (p_source_object_id IS NULL OR p_source_object_type IS NULL
2665: OR p_target_object_id IS NULL OR p_target_object_type IS NULL )
2666: THEN
2667: IF l_debug_mode = 'Y' THEN
2668: pa_debug.g_err_stage:= 'INVALID INPUT PARAMETER';
2669: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
2670: END IF;
2671:
2672: x_return_status := FND_API.G_RET_STS_ERROR;
2665: OR p_target_object_id IS NULL OR p_target_object_type IS NULL )
2666: THEN
2667: IF l_debug_mode = 'Y' THEN
2668: pa_debug.g_err_stage:= 'INVALID INPUT PARAMETER';
2669: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
2670: END IF;
2671:
2672: x_return_status := FND_API.G_RET_STS_ERROR;
2673: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
2706: RAISE Invalid_Arg_Exc_Dlv ;
2707: END IF ;
2708:
2709: IF l_debug_mode = 'Y' THEN
2710: pa_debug.g_err_stage:= 'Exiting COPY_ACTIONS' ;
2711: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
2712: pa_debug.reset_curr_function;
2713: END IF;
2714:
2707: END IF ;
2708:
2709: IF l_debug_mode = 'Y' THEN
2710: pa_debug.g_err_stage:= 'Exiting COPY_ACTIONS' ;
2711: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
2712: pa_debug.reset_curr_function;
2713: END IF;
2714:
2715: EXCEPTION
2708:
2709: IF l_debug_mode = 'Y' THEN
2710: pa_debug.g_err_stage:= 'Exiting COPY_ACTIONS' ;
2711: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
2712: pa_debug.reset_curr_function;
2713: END IF;
2714:
2715: EXCEPTION
2716: WHEN Invalid_Arg_Exc_Dlv THEN
2721: ROLLBACK TO COPY_ACTIONS_SP;
2722: END IF ;
2723:
2724: IF l_debug_mode = 'Y' THEN
2725: pa_debug.g_err_stage := 'inside invalid arg exception of COPY_ACTIONS';
2726: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
2727: END IF;
2728:
2729: IF l_msg_count = 1 THEN
2722: END IF ;
2723:
2724: IF l_debug_mode = 'Y' THEN
2725: pa_debug.g_err_stage := 'inside invalid arg exception of COPY_ACTIONS';
2726: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
2727: END IF;
2728:
2729: IF l_msg_count = 1 THEN
2730: PA_INTERFACE_UTILS_PUB.get_messages
2739: ELSE
2740: x_msg_count := l_msg_count;
2741: END IF;
2742: IF l_debug_mode = 'Y' THEN
2743: pa_debug.reset_curr_function;
2744: END IF ;
2745: RETURN;
2746: WHEN OTHERS THEN
2747: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2755: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_ACTIONS_PUB'
2756: ,p_procedure_name => 'COPY_ACTIONS');
2757:
2758: IF p_debug_mode = 'Y' THEN
2759: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
2760: pa_debug.write('COPY_ACTIONS: ' || g_module_name,pa_debug.g_err_stage,5);
2761: pa_debug.reset_curr_function;
2762: END IF;
2763: RAISE;
2756: ,p_procedure_name => 'COPY_ACTIONS');
2757:
2758: IF p_debug_mode = 'Y' THEN
2759: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
2760: pa_debug.write('COPY_ACTIONS: ' || g_module_name,pa_debug.g_err_stage,5);
2761: pa_debug.reset_curr_function;
2762: END IF;
2763: RAISE;
2764: END COPY_ACTIONS ;
2757:
2758: IF p_debug_mode = 'Y' THEN
2759: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
2760: pa_debug.write('COPY_ACTIONS: ' || g_module_name,pa_debug.g_err_stage,5);
2761: pa_debug.reset_curr_function;
2762: END IF;
2763: RAISE;
2764: END COPY_ACTIONS ;
2765:
3174: FND_MSG_PUB.initialize;
3175: END IF;
3176:
3177: IF p_debug_mode = 'Y' THEN
3178: PA_DEBUG.set_curr_function( p_function => l_api_name,
3179: p_debug_mode => p_debug_mode );
3180: pa_debug.g_err_stage:= 'Inside '||l_api_name;
3181: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
3182: END IF;
3176:
3177: IF p_debug_mode = 'Y' THEN
3178: PA_DEBUG.set_curr_function( p_function => l_api_name,
3179: p_debug_mode => p_debug_mode );
3180: pa_debug.g_err_stage:= 'Inside '||l_api_name;
3181: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
3182: END IF;
3183:
3184: -- Set API return status to success
3177: IF p_debug_mode = 'Y' THEN
3178: PA_DEBUG.set_curr_function( p_function => l_api_name,
3179: p_debug_mode => p_debug_mode );
3180: pa_debug.g_err_stage:= 'Inside '||l_api_name;
3181: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
3182: END IF;
3183:
3184: -- Set API return status to success
3185: x_return_status := FND_API.G_RET_STS_SUCCESS;
3224: );
3225:
3226:
3227: IF p_debug_mode = 'Y' THEN
3228: pa_debug.write(g_module_name,'Entering the loop fetched values obj id ['||l_object_id||']vers id['||l_object_version_id||']',3) ;
3229: pa_debug.write(g_module_name,'carry out org id ['||l_carrying_out_organization_id||']proj num['|| l_project_number||']dlvr num['||l_deliverable_number||']',3) ;
3230: pa_debug.write(g_module_name,'org id ['||l_org_id||']PFC['|| l_projfunc_currency_code||']item dlv['||l_item_dlv||']',3) ;
3231: END IF;
3232:
3225:
3226:
3227: IF p_debug_mode = 'Y' THEN
3228: pa_debug.write(g_module_name,'Entering the loop fetched values obj id ['||l_object_id||']vers id['||l_object_version_id||']',3) ;
3229: pa_debug.write(g_module_name,'carry out org id ['||l_carrying_out_organization_id||']proj num['|| l_project_number||']dlvr num['||l_deliverable_number||']',3) ;
3230: pa_debug.write(g_module_name,'org id ['||l_org_id||']PFC['|| l_projfunc_currency_code||']item dlv['||l_item_dlv||']',3) ;
3231: END IF;
3232:
3233: -- 3651542 Added below code to retrieve default owner and date in create mode
3226:
3227: IF p_debug_mode = 'Y' THEN
3228: pa_debug.write(g_module_name,'Entering the loop fetched values obj id ['||l_object_id||']vers id['||l_object_version_id||']',3) ;
3229: pa_debug.write(g_module_name,'carry out org id ['||l_carrying_out_organization_id||']proj num['|| l_project_number||']dlvr num['||l_deliverable_number||']',3) ;
3230: pa_debug.write(g_module_name,'org id ['||l_org_id||']PFC['|| l_projfunc_currency_code||']item dlv['||l_item_dlv||']',3) ;
3231: END IF;
3232:
3233: -- 3651542 Added below code to retrieve default owner and date in create mode
3234: -- Assumption : defaulting will done for 'PROJECT' only , for AMG task flow is not
3653:
3654: END LOOP;
3655:
3656: IF p_debug_mode = 'Y' THEN
3657: pa_debug.write(g_module_name,'Populated action PLSQL table, calling api for bulk insert',3) ;
3658: END IF;
3659:
3660: -- Invoke the API to create dlvr actions in bulk.
3661:
3707: ,x_msg_count => x_msg_count
3708: ,x_msg_data => x_msg_data);
3709:
3710: IF p_debug_mode = 'Y' THEN
3711: pa_debug.write(g_module_name,'Returned from Pa_Actions_Pub.CR_UP_DLV_ACTIONS_IN_BULK ['||x_return_status||']',5);
3712: END IF;
3713:
3714: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3715: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3758:
3759: END IF; --p_insert_or_update = 'INSERT'
3760:
3761: IF p_debug_mode = 'Y' THEN
3762: pa_debug.write(g_module_name,'Derived action id ['||l_action_id||']for reference['||p_action_in_tbl(i_actn).pm_action_reference||
3763: ']status['||x_return_status||']',5);
3764: END IF;
3765:
3766: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3769: RAISE FND_API.G_EXC_ERROR;
3770: END IF;
3771:
3772: IF p_debug_mode = 'Y' THEN
3773: pa_debug.write(g_module_name,'Should we update OKE attributes? '||l_update_oke_yn);
3774: END IF;
3775:
3776: -- bug 7385017 skkoppul - Update only in case of changes to OKE attributes
3777: -- Bug 7759051 - l_update_oke_yn should demarcate the code only for OKE procurement and shipping and *not* billing action
3906:
3907: END IF; -- l_action= g_create
3908:
3909: IF p_debug_mode = 'Y' THEN
3910: pa_debug.write(g_module_name,'Populated OKE Procurement PLSQL table',3) ;
3911: END IF;
3912:
3913: END IF; -- Bug 7759051 (For OKE Procurement)
3914:
4020:
4021: /* INSPECTION_REQ_FLAG Varchar2(1),*/
4022:
4023: IF p_debug_mode = 'Y' THEN
4024: pa_debug.write(g_module_name,'Populated OKE Shipping PLSQL table',3) ;
4025: END IF;
4026:
4027: END IF; -- Bug 7759051 (For OKE Shipping)
4028:
4063: CLOSE C_org_name;
4064: END IF;
4065:
4066: IF p_debug_mode = 'Y' THEN
4067: pa_debug.write(g_module_name,'Organization name derived ['||l_organization_name||']',3) ;
4068: END IF;
4069:
4070: -- Bug 7759051
4071: IF ((l_action <> g_create) AND
4155: l_event_in_tbl(i_bill).p_context := 'D' ;-- to be passed as 'D' for deliverable action event
4156: l_event_in_tbl(i_bill).p_record_version_number := 1 ;
4157:
4158: IF p_debug_mode = 'Y' THEN
4159: pa_debug.write(g_module_name,'Populated Billing PLSQL table',3) ;
4160: END IF;
4161:
4162: END IF; -- Bug 7759051 (For Billing events)
4163:
4164: ELSE
4165: i_none := i_none + 1;
4166:
4167: IF p_debug_mode = 'Y' THEN
4168: pa_debug.write(g_module_name,'Function code is NONE',3) ;
4169: END IF;
4170: END IF;
4171:
4172: -- Bug 7759051 - Reduced the scope to only OKE Procurement and Shipping
4175:
4176: END LOOP; -- i_act is not null
4177:
4178: IF p_debug_mode = 'Y' THEN
4179: pa_debug.write(g_module_name,'action processed ['||i_actn||']bill['||i_bill||']proc['||i_proc||']ship['||i_ship||']none['||i_none||']',5);
4180: END IF;
4181:
4182: -- Invoke the API to create records in OKE tables
4183: IF ( i_ship > 0) THEN
4222: , x_msg_count => x_msg_count
4223: );
4224:
4225: IF p_debug_mode = 'Y' THEN
4226: pa_debug.write(g_module_name,'Returned from oke_amg_grp.manage_dlv_action for shipping action ['||x_return_status||']',5);
4227: END IF;
4228:
4229: i_ship1 := l_dlv_ship_action_tbl.next(i_ship1);
4230:
4279: , x_msg_count => x_msg_count
4280: );
4281:
4282: IF p_debug_mode = 'Y' THEN
4283: pa_debug.write(g_module_name,'Returned from oke_amg_grp.manage_dlv_action for proc action ['||x_return_status||']',5);
4284: END IF;
4285:
4286: i_proc1 := l_dlv_req_action_tbl.next(i_proc1);
4287:
4305: ,p_return_status => x_return_status
4306: );
4307:
4308: IF p_debug_mode = 'Y' THEN
4309: pa_debug.write(g_module_name,'Returned from Pa_Event_Pub.create_event for billing action ['||x_return_status||']',5);
4310: END IF;
4311:
4312: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4313: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4329: , p_return_status => x_return_status
4330: );
4331:
4332: IF p_debug_mode = 'Y' THEN
4333: pa_debug.write(g_module_name,'Returned from Pa_Event_Pub.update_event for billing action ['||x_return_status||']',5);
4334: END IF;
4335:
4336: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4337: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4342: END IF; -- p_insert_or_update values
4343: END IF; -- i_bill > 0
4344:
4345: IF p_debug_mode = 'Y' THEN
4346: pa_debug.reset_curr_function;
4347: pa_debug.write(g_module_name,l_api_name||': Exiting without error',5);
4348: END IF;
4349:
4350: EXCEPTION
4343: END IF; -- i_bill > 0
4344:
4345: IF p_debug_mode = 'Y' THEN
4346: pa_debug.reset_curr_function;
4347: pa_debug.write(g_module_name,l_api_name||': Exiting without error',5);
4348: END IF;
4349:
4350: EXCEPTION
4351: WHEN FND_API.G_EXC_ERROR THEN
4372:
4373: END IF;
4374:
4375: IF p_debug_mode = 'Y' THEN
4376: pa_debug.reset_curr_function;
4377: pa_debug.write(g_module_name,l_api_name||': Inside G_EXC_ERROR exception',5);
4378: END IF;
4379:
4380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4373: END IF;
4374:
4375: IF p_debug_mode = 'Y' THEN
4376: pa_debug.reset_curr_function;
4377: pa_debug.write(g_module_name,l_api_name||': Inside G_EXC_ERROR exception',5);
4378: END IF;
4379:
4380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4381: IF (p_commit = FND_API.G_TRUE) THEN
4401:
4402: END IF;
4403:
4404: IF p_debug_mode = 'Y' THEN
4405: pa_debug.reset_curr_function;
4406: pa_debug.write(g_module_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
4407: END IF;
4408:
4409: WHEN OTHERS THEN
4402: END IF;
4403:
4404: IF p_debug_mode = 'Y' THEN
4405: pa_debug.reset_curr_function;
4406: pa_debug.write(g_module_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
4407: END IF;
4408:
4409: WHEN OTHERS THEN
4410: IF (p_commit = FND_API.G_TRUE) THEN
4414: x_msg_count := 1;
4415: x_msg_data := SQLERRM;
4416:
4417: IF p_debug_mode = 'Y' THEN
4418: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
4419: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
4420: pa_debug.reset_curr_function;
4421: END IF;
4422:
4415: x_msg_data := SQLERRM;
4416:
4417: IF p_debug_mode = 'Y' THEN
4418: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
4419: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
4420: pa_debug.reset_curr_function;
4421: END IF;
4422:
4423:
4416:
4417: IF p_debug_mode = 'Y' THEN
4418: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
4419: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
4420: pa_debug.reset_curr_function;
4421: END IF;
4422:
4423:
4424: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4481:
4482: BEGIN
4483:
4484: -- Set the error stack.
4485: pa_debug.set_err_stack('PA_ACTIONS_PUB.RUN_ACTION_CONC_PROCESS');
4486:
4487: -- Get the Debug mode into local variable and set it to 'Y'if its NULL
4488: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
4489:
4484: -- Set the error stack.
4485: pa_debug.set_err_stack('PA_ACTIONS_PUB.RUN_ACTION_CONC_PROCESS');
4486:
4487: -- Get the Debug mode into local variable and set it to 'Y'if its NULL
4488: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
4489:
4490: l_request_id := FND_GLOBAL.CONC_REQUEST_ID;
4491: retcode := '0';
4492: errbuf := NULL;
4492: errbuf := NULL;
4493:
4494: -- Initialize the return status to success
4495: l_return_status := FND_API.G_RET_STS_SUCCESS;
4496: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4497:
4498: IF l_debug_mode = 'Y' THEN
4499: pa_debug.set_curr_function( p_function => 'RUN_ACTION_CONC_PROCESS',
4500: p_debug_mode => l_debug_mode );
4495: l_return_status := FND_API.G_RET_STS_SUCCESS;
4496: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4497:
4498: IF l_debug_mode = 'Y' THEN
4499: pa_debug.set_curr_function( p_function => 'RUN_ACTION_CONC_PROCESS',
4500: p_debug_mode => l_debug_mode );
4501: pa_debug.g_err_stage:= 'Entering RUN_ACTION_CONC_PROCESS : ' || l_request_id;
4502: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4503: END IF;
4497:
4498: IF l_debug_mode = 'Y' THEN
4499: pa_debug.set_curr_function( p_function => 'RUN_ACTION_CONC_PROCESS',
4500: p_debug_mode => l_debug_mode );
4501: pa_debug.g_err_stage:= 'Entering RUN_ACTION_CONC_PROCESS : ' || l_request_id;
4502: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4503: END IF;
4504:
4505: --Printing Input Parameters
4498: IF l_debug_mode = 'Y' THEN
4499: pa_debug.set_curr_function( p_function => 'RUN_ACTION_CONC_PROCESS',
4500: p_debug_mode => l_debug_mode );
4501: pa_debug.g_err_stage:= 'Entering RUN_ACTION_CONC_PROCESS : ' || l_request_id;
4502: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4503: END IF;
4504:
4505: --Printing Input Parameters
4506:
4504:
4505: --Printing Input Parameters
4506:
4507: IF l_debug_mode = 'Y' THEN
4508: pa_debug.g_err_stage:= 'RUN_ACTION_CONC_PROCESS : Function is :' || p_function ;
4509: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4510: pa_debug.g_err_stage:= 'RUN_ACTION_CONC_PROCESS : Project Number From is :' || p_project_number_from ;
4511: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4512: pa_debug.g_err_stage:= 'RUN_ACTION_CONC_PROCESS : Project Number To is :' || p_project_number_to ;
4505: --Printing Input Parameters
4506:
4507: IF l_debug_mode = 'Y' THEN
4508: pa_debug.g_err_stage:= 'RUN_ACTION_CONC_PROCESS : Function is :' || p_function ;
4509: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4510: pa_debug.g_err_stage:= 'RUN_ACTION_CONC_PROCESS : Project Number From is :' || p_project_number_from ;
4511: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4512: pa_debug.g_err_stage:= 'RUN_ACTION_CONC_PROCESS : Project Number To is :' || p_project_number_to ;
4513: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4506:
4507: IF l_debug_mode = 'Y' THEN
4508: pa_debug.g_err_stage:= 'RUN_ACTION_CONC_PROCESS : Function is :' || p_function ;
4509: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4510: pa_debug.g_err_stage:= 'RUN_ACTION_CONC_PROCESS : Project Number From is :' || p_project_number_from ;
4511: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4512: pa_debug.g_err_stage:= 'RUN_ACTION_CONC_PROCESS : Project Number To is :' || p_project_number_to ;
4513: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4514: END IF;
4507: IF l_debug_mode = 'Y' THEN
4508: pa_debug.g_err_stage:= 'RUN_ACTION_CONC_PROCESS : Function is :' || p_function ;
4509: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4510: pa_debug.g_err_stage:= 'RUN_ACTION_CONC_PROCESS : Project Number From is :' || p_project_number_from ;
4511: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4512: pa_debug.g_err_stage:= 'RUN_ACTION_CONC_PROCESS : Project Number To is :' || p_project_number_to ;
4513: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4514: END IF;
4515:
4508: pa_debug.g_err_stage:= 'RUN_ACTION_CONC_PROCESS : Function is :' || p_function ;
4509: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4510: pa_debug.g_err_stage:= 'RUN_ACTION_CONC_PROCESS : Project Number From is :' || p_project_number_from ;
4511: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4512: pa_debug.g_err_stage:= 'RUN_ACTION_CONC_PROCESS : Project Number To is :' || p_project_number_to ;
4513: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4514: END IF;
4515:
4516: --Valid Parameter Validations
4509: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4510: pa_debug.g_err_stage:= 'RUN_ACTION_CONC_PROCESS : Project Number From is :' || p_project_number_from ;
4511: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4512: pa_debug.g_err_stage:= 'RUN_ACTION_CONC_PROCESS : Project Number To is :' || p_project_number_to ;
4513: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4514: END IF;
4515:
4516: --Valid Parameter Validations
4517: IF ( (p_project_number_from IS NOT NULL) OR (p_project_number_to IS NOT NULL) ) THEN
4520: FETCH c_valid_project_number_entry INTO l_valid ;
4521:
4522: IF c_valid_project_number_entry%NOTFOUND THEN
4523: IF l_debug_mode = 'Y' THEN
4524: pa_debug.g_err_stage:= 'RUN_ACTION_CONC_PROCESS : Invalid value entered for Project Number From';
4525: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4526: END IF;
4527: l_return_status := FND_API.G_RET_STS_ERROR;
4528: PA_UTILS.ADD_MESSAGE
4521:
4522: IF c_valid_project_number_entry%NOTFOUND THEN
4523: IF l_debug_mode = 'Y' THEN
4524: pa_debug.g_err_stage:= 'RUN_ACTION_CONC_PROCESS : Invalid value entered for Project Number From';
4525: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4526: END IF;
4527: l_return_status := FND_API.G_RET_STS_ERROR;
4528: PA_UTILS.ADD_MESSAGE
4529: (p_app_short_name => 'PA',
4536: FETCH c_valid_project_number_entry INTO l_valid ;
4537:
4538: IF c_valid_project_number_entry%NOTFOUND THEN
4539: IF l_debug_mode = 'Y' THEN
4540: pa_debug.g_err_stage:= 'RUN_ACTION_CONC_PROCESS : Invalid value entered for Project Number To' ;
4541: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4542: END IF;
4543: l_return_status := FND_API.G_RET_STS_ERROR;
4544: PA_UTILS.ADD_MESSAGE
4537:
4538: IF c_valid_project_number_entry%NOTFOUND THEN
4539: IF l_debug_mode = 'Y' THEN
4540: pa_debug.g_err_stage:= 'RUN_ACTION_CONC_PROCESS : Invalid value entered for Project Number To' ;
4541: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4542: END IF;
4543: l_return_status := FND_API.G_RET_STS_ERROR;
4544: PA_UTILS.ADD_MESSAGE
4545: (p_app_short_name => 'PA',
4552:
4553: --Business Rule Validations
4554: IF (p_function IS NULL) THEN
4555: IF l_debug_mode = 'Y' THEN
4556: pa_debug.g_err_stage:= 'Mandatory parameter to this API : Function is NULL';
4557: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4558: END IF;
4559: l_return_status := FND_API.G_RET_STS_ERROR;
4560: PA_UTILS.ADD_MESSAGE
4553: --Business Rule Validations
4554: IF (p_function IS NULL) THEN
4555: IF l_debug_mode = 'Y' THEN
4556: pa_debug.g_err_stage:= 'Mandatory parameter to this API : Function is NULL';
4557: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4558: END IF;
4559: l_return_status := FND_API.G_RET_STS_ERROR;
4560: PA_UTILS.ADD_MESSAGE
4561: (p_app_short_name => 'PA',
4563: RAISE Invalid_Arg_Exc_Dlv;
4564: END IF;
4565:
4566: IF l_debug_mode = 'Y' THEN
4567: pa_debug.g_err_stage := 'Before doing cursor operation';
4568: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4569: END IF;
4570:
4571: OPEN c_project_id_range ;
4564: END IF;
4565:
4566: IF l_debug_mode = 'Y' THEN
4567: pa_debug.g_err_stage := 'Before doing cursor operation';
4568: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4569: END IF;
4570:
4571: OPEN c_project_id_range ;
4572: FETCH c_project_id_range BULK COLLECT INTO l_project_id_tbl ;
4572: FETCH c_project_id_range BULK COLLECT INTO l_project_id_tbl ;
4573: CLOSE c_project_id_range;
4574:
4575: IF l_debug_mode = 'Y' THEN
4576: pa_debug.g_err_stage := 'After fetching the project id range into local table';
4577: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4578: END IF;
4579:
4580: IF(NVL(l_project_id_tbl.LAST,0) > 0) THEN
4573: CLOSE c_project_id_range;
4574:
4575: IF l_debug_mode = 'Y' THEN
4576: pa_debug.g_err_stage := 'After fetching the project id range into local table';
4577: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4578: END IF;
4579:
4580: IF(NVL(l_project_id_tbl.LAST,0) > 0) THEN
4581:
4579:
4580: IF(NVL(l_project_id_tbl.LAST,0) > 0) THEN
4581:
4582: IF l_debug_mode = 'Y' THEN
4583: pa_debug.g_err_stage := 'Project Id table is not empty';
4584: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4585: END IF;
4586:
4587: FOR l_count IN l_project_id_tbl.FIRST..l_project_id_tbl.LAST LOOP
4580: IF(NVL(l_project_id_tbl.LAST,0) > 0) THEN
4581:
4582: IF l_debug_mode = 'Y' THEN
4583: pa_debug.g_err_stage := 'Project Id table is not empty';
4584: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4585: END IF;
4586:
4587: FOR l_count IN l_project_id_tbl.FIRST..l_project_id_tbl.LAST LOOP
4588:
4607: ,X_MSG_COUNT => l_msg_count
4608: ,X_MSG_DATA => l_msg_data
4609: );
4610: IF l_debug_mode = 'Y' THEN
4611: pa_debug.g_err_stage := 'OKE_DELIVERABLE_UTILS_PUB.BATCH_MDS returned status :' || l_return_status ;
4612: pa_debug.g_err_stage := pa_debug.g_err_stage || ' for project id '||l_project_id_tbl(l_count) ;
4613: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4614: END IF;
4615:
4608: ,X_MSG_DATA => l_msg_data
4609: );
4610: IF l_debug_mode = 'Y' THEN
4611: pa_debug.g_err_stage := 'OKE_DELIVERABLE_UTILS_PUB.BATCH_MDS returned status :' || l_return_status ;
4612: pa_debug.g_err_stage := pa_debug.g_err_stage || ' for project id '||l_project_id_tbl(l_count) ;
4613: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4614: END IF;
4615:
4616: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4609: );
4610: IF l_debug_mode = 'Y' THEN
4611: pa_debug.g_err_stage := 'OKE_DELIVERABLE_UTILS_PUB.BATCH_MDS returned status :' || l_return_status ;
4612: pa_debug.g_err_stage := pa_debug.g_err_stage || ' for project id '||l_project_id_tbl(l_count) ;
4613: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4614: END IF;
4615:
4616: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4617: RAISE Invalid_Arg_Exc_Dlv ;
4625: ,X_MSG_COUNT => l_msg_count
4626: ,X_MSG_DATA => l_msg_data
4627: );
4628: IF l_debug_mode = 'Y' THEN
4629: pa_debug.g_err_stage := 'OKE_DELIVERABLE_UTILS_PUB.BATCH_REQ returned status :' || l_return_status;
4630: pa_debug.g_err_stage := pa_debug.g_err_stage || ' for project id '||l_project_id_tbl(l_count) ;
4631: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4632: END IF;
4633:
4626: ,X_MSG_DATA => l_msg_data
4627: );
4628: IF l_debug_mode = 'Y' THEN
4629: pa_debug.g_err_stage := 'OKE_DELIVERABLE_UTILS_PUB.BATCH_REQ returned status :' || l_return_status;
4630: pa_debug.g_err_stage := pa_debug.g_err_stage || ' for project id '||l_project_id_tbl(l_count) ;
4631: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4632: END IF;
4633:
4634: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4627: );
4628: IF l_debug_mode = 'Y' THEN
4629: pa_debug.g_err_stage := 'OKE_DELIVERABLE_UTILS_PUB.BATCH_REQ returned status :' || l_return_status;
4630: pa_debug.g_err_stage := pa_debug.g_err_stage || ' for project id '||l_project_id_tbl(l_count) ;
4631: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4632: END IF;
4633:
4634: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4635: RAISE Invalid_Arg_Exc_Dlv ;
4644: ,X_MSG_COUNT => l_msg_count
4645: ,X_MSG_DATA => l_msg_data
4646: );
4647: IF l_debug_mode = 'Y' THEN
4648: pa_debug.g_err_stage := 'OKE_DELIVERABLE_UTILS_PUB.BATCH_MDS returned status :' || l_return_status;
4649: pa_debug.g_err_stage := pa_debug.g_err_stage || ' for project id '||l_project_id_tbl(l_count) ;
4650: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4651: END IF;
4652:
4645: ,X_MSG_DATA => l_msg_data
4646: );
4647: IF l_debug_mode = 'Y' THEN
4648: pa_debug.g_err_stage := 'OKE_DELIVERABLE_UTILS_PUB.BATCH_MDS returned status :' || l_return_status;
4649: pa_debug.g_err_stage := pa_debug.g_err_stage || ' for project id '||l_project_id_tbl(l_count) ;
4650: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4651: END IF;
4652:
4653: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4646: );
4647: IF l_debug_mode = 'Y' THEN
4648: pa_debug.g_err_stage := 'OKE_DELIVERABLE_UTILS_PUB.BATCH_MDS returned status :' || l_return_status;
4649: pa_debug.g_err_stage := pa_debug.g_err_stage || ' for project id '||l_project_id_tbl(l_count) ;
4650: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4651: END IF;
4652:
4653: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4654: RAISE Invalid_Arg_Exc_Dlv ;
4661: ,X_MSG_COUNT => l_msg_count
4662: ,X_MSG_DATA => l_msg_data
4663: );
4664: IF l_debug_mode = 'Y' THEN
4665: pa_debug.g_err_stage := 'OKE_DELIVERABLE_UTILS_PUB.BATCH_REQ returned status :' || l_return_status;
4666: pa_debug.g_err_stage := pa_debug.g_err_stage || ' for project id '||l_project_id_tbl(l_count) ;
4667: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4668: END IF;
4669:
4662: ,X_MSG_DATA => l_msg_data
4663: );
4664: IF l_debug_mode = 'Y' THEN
4665: pa_debug.g_err_stage := 'OKE_DELIVERABLE_UTILS_PUB.BATCH_REQ returned status :' || l_return_status;
4666: pa_debug.g_err_stage := pa_debug.g_err_stage || ' for project id '||l_project_id_tbl(l_count) ;
4667: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4668: END IF;
4669:
4670: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4663: );
4664: IF l_debug_mode = 'Y' THEN
4665: pa_debug.g_err_stage := 'OKE_DELIVERABLE_UTILS_PUB.BATCH_REQ returned status :' || l_return_status;
4666: pa_debug.g_err_stage := pa_debug.g_err_stage || ' for project id '||l_project_id_tbl(l_count) ;
4667: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4668: END IF;
4669:
4670: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4671: RAISE Invalid_Arg_Exc_Dlv ;
4676: END IF;
4677:
4678: END LOOP;
4679: IF l_debug_mode = 'Y' THEN
4680: pa_debug.g_err_stage := 'After Calling OKE API for all the actions (passed project id)';
4681: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4682: END IF;
4683:
4684: ELSE
4677:
4678: END LOOP;
4679: IF l_debug_mode = 'Y' THEN
4680: pa_debug.g_err_stage := 'After Calling OKE API for all the actions (passed project id)';
4681: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4682: END IF;
4683:
4684: ELSE
4685:
4683:
4684: ELSE
4685:
4686: IF l_debug_mode = 'Y' THEN
4687: pa_debug.g_err_stage := 'Here,No Project Id range is entered';
4688: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4689: END IF;
4690:
4691: IF p_function = 'DEMAND' THEN
4684: ELSE
4685:
4686: IF l_debug_mode = 'Y' THEN
4687: pa_debug.g_err_stage := 'Here,No Project Id range is entered';
4688: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4689: END IF;
4690:
4691: IF p_function = 'DEMAND' THEN
4692:
4690:
4691: IF p_function = 'DEMAND' THEN
4692:
4693: IF l_debug_mode = 'Y' THEN
4694: pa_debug.g_err_stage := 'Selected Option is Initiate Demand(project_id is null)';
4695: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4696: END IF;
4697:
4698: OKE_DELIVERABLE_UTILS_PUB.BATCH_MDS(
4691: IF p_function = 'DEMAND' THEN
4692:
4693: IF l_debug_mode = 'Y' THEN
4694: pa_debug.g_err_stage := 'Selected Option is Initiate Demand(project_id is null)';
4695: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4696: END IF;
4697:
4698: OKE_DELIVERABLE_UTILS_PUB.BATCH_MDS(
4699: P_PROJECT_ID => null
4703: ,X_MSG_COUNT => l_msg_count
4704: ,X_MSG_DATA => l_msg_data
4705: );
4706: IF l_debug_mode = 'Y' THEN
4707: pa_debug.g_err_stage := 'OKE_DELIVERABLE_UTILS_PUB.BATCH_MDS returned status :' || l_return_status;
4708: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4709: END IF;
4710:
4711: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4704: ,X_MSG_DATA => l_msg_data
4705: );
4706: IF l_debug_mode = 'Y' THEN
4707: pa_debug.g_err_stage := 'OKE_DELIVERABLE_UTILS_PUB.BATCH_MDS returned status :' || l_return_status;
4708: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4709: END IF;
4710:
4711: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4712: RAISE Invalid_Arg_Exc_Dlv ;
4714:
4715: ELSIF p_function = 'PROCUREMENT' THEN
4716:
4717: IF l_debug_mode = 'Y' THEN
4718: pa_debug.g_err_stage := 'Selected Option is Initiate Procurement(project_id is null)';
4719: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4720: END IF;
4721: OKE_DELIVERABLE_UTILS_PUB.BATCH_REQ(
4722: P_PROJECT_ID => null
4715: ELSIF p_function = 'PROCUREMENT' THEN
4716:
4717: IF l_debug_mode = 'Y' THEN
4718: pa_debug.g_err_stage := 'Selected Option is Initiate Procurement(project_id is null)';
4719: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4720: END IF;
4721: OKE_DELIVERABLE_UTILS_PUB.BATCH_REQ(
4722: P_PROJECT_ID => null
4723: ,P_Task_ID => null
4726: ,X_MSG_COUNT => l_msg_count
4727: ,X_MSG_DATA => l_msg_data
4728: );
4729: IF l_debug_mode = 'Y' THEN
4730: pa_debug.g_err_stage := 'OKE_DELIVERABLE_UTILS_PUB.BATCH_REQ returned status :' || l_return_status;
4731: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4732: END IF;
4733:
4734:
4727: ,X_MSG_DATA => l_msg_data
4728: );
4729: IF l_debug_mode = 'Y' THEN
4730: pa_debug.g_err_stage := 'OKE_DELIVERABLE_UTILS_PUB.BATCH_REQ returned status :' || l_return_status;
4731: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4732: END IF;
4733:
4734:
4735: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4737: END IF ;
4738: ELSIF p_function = 'BOTH' THEN
4739:
4740: IF l_debug_mode = 'Y' THEN
4741: pa_debug.g_err_stage := 'Selected Option is All(project_id is null)';
4742: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4743: END IF;
4744:
4745: OKE_DELIVERABLE_UTILS_PUB.BATCH_MDS(
4738: ELSIF p_function = 'BOTH' THEN
4739:
4740: IF l_debug_mode = 'Y' THEN
4741: pa_debug.g_err_stage := 'Selected Option is All(project_id is null)';
4742: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4743: END IF;
4744:
4745: OKE_DELIVERABLE_UTILS_PUB.BATCH_MDS(
4746: P_PROJECT_ID => null
4750: ,X_MSG_COUNT => l_msg_count
4751: ,X_MSG_DATA => l_msg_data
4752: );
4753: IF l_debug_mode = 'Y' THEN
4754: pa_debug.g_err_stage := 'OKE_DELIVERABLE_UTILS_PUB.BATCH_MDS returned status :' || l_return_status;
4755: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4756: END IF;
4757:
4758: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4751: ,X_MSG_DATA => l_msg_data
4752: );
4753: IF l_debug_mode = 'Y' THEN
4754: pa_debug.g_err_stage := 'OKE_DELIVERABLE_UTILS_PUB.BATCH_MDS returned status :' || l_return_status;
4755: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4756: END IF;
4757:
4758: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4759: RAISE Invalid_Arg_Exc_Dlv ;
4768: ,X_MSG_DATA => l_msg_data
4769: );
4770:
4771: IF l_debug_mode = 'Y' THEN
4772: pa_debug.g_err_stage := 'OKE_DELIVERABLE_UTILS_PUB.BATCH_REQ returned status :' || l_return_status;
4773: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4774: END IF;
4775:
4776: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4769: );
4770:
4771: IF l_debug_mode = 'Y' THEN
4772: pa_debug.g_err_stage := 'OKE_DELIVERABLE_UTILS_PUB.BATCH_REQ returned status :' || l_return_status;
4773: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4774: END IF;
4775:
4776: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4777: RAISE Invalid_Arg_Exc_Dlv ;
4780:
4781: END IF;
4782:
4783: IF l_debug_mode = 'Y' THEN
4784: pa_debug.g_err_stage:= 'Exiting RUN_ACTION_CONC_PROCESS';
4785: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4786: pa_debug.reset_err_stack;
4787: pa_debug.reset_curr_function; --Added for bug 4945876
4788: END IF;
4781: END IF;
4782:
4783: IF l_debug_mode = 'Y' THEN
4784: pa_debug.g_err_stage:= 'Exiting RUN_ACTION_CONC_PROCESS';
4785: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4786: pa_debug.reset_err_stack;
4787: pa_debug.reset_curr_function; --Added for bug 4945876
4788: END IF;
4789:
4782:
4783: IF l_debug_mode = 'Y' THEN
4784: pa_debug.g_err_stage:= 'Exiting RUN_ACTION_CONC_PROCESS';
4785: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4786: pa_debug.reset_err_stack;
4787: pa_debug.reset_curr_function; --Added for bug 4945876
4788: END IF;
4789:
4790: EXCEPTION
4783: IF l_debug_mode = 'Y' THEN
4784: pa_debug.g_err_stage:= 'Exiting RUN_ACTION_CONC_PROCESS';
4785: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4786: pa_debug.reset_err_stack;
4787: pa_debug.reset_curr_function; --Added for bug 4945876
4788: END IF;
4789:
4790: EXCEPTION
4791:
4794: l_msg_count := FND_MSG_PUB.count_msg;
4795: retcode := '-1';
4796:
4797: IF l_debug_mode = 'Y' THEN
4798: pa_debug.g_err_stage := 'Inside Invalid Argument exception of RUN_ACTION_CONC_PROCESS';
4799: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4800: END IF;
4801:
4802: IF c_project_id_range%ISOPEN THEN
4795: retcode := '-1';
4796:
4797: IF l_debug_mode = 'Y' THEN
4798: pa_debug.g_err_stage := 'Inside Invalid Argument exception of RUN_ACTION_CONC_PROCESS';
4799: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4800: END IF;
4801:
4802: IF c_project_id_range%ISOPEN THEN
4803: CLOSE c_project_id_range ;
4822: errbuf := l_data;
4823: END IF;
4824:
4825: IF l_debug_mode = 'Y' THEN
4826: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_Stack);
4827: pa_debug.reset_err_stack;
4828: pa_debug.reset_curr_function; --Added for bug 4945876
4829: END IF ;
4830: RAISE; /* Will have to raise since called as part of conc request .After Reports is built for the C.P no need for this raise */
4823: END IF;
4824:
4825: IF l_debug_mode = 'Y' THEN
4826: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_Stack);
4827: pa_debug.reset_err_stack;
4828: pa_debug.reset_curr_function; --Added for bug 4945876
4829: END IF ;
4830: RAISE; /* Will have to raise since called as part of conc request .After Reports is built for the C.P no need for this raise */
4831:
4824:
4825: IF l_debug_mode = 'Y' THEN
4826: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_Stack);
4827: pa_debug.reset_err_stack;
4828: pa_debug.reset_curr_function; --Added for bug 4945876
4829: END IF ;
4830: RAISE; /* Will have to raise since called as part of conc request .After Reports is built for the C.P no need for this raise */
4831:
4832: WHEN OTHERS THEN
4850: ,p_procedure_name => 'RUN_ACTION_CONC_PROCESS'
4851: ,p_error_text => errbuf);
4852:
4853: IF l_debug_mode = 'Y' THEN
4854: pa_debug.g_err_stage:='Unexpected Error'||errbuf;
4855: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4856: pa_debug.reset_err_stack;
4857: pa_debug.reset_curr_function; --Added for bug 4945876
4858: END IF;
4851: ,p_error_text => errbuf);
4852:
4853: IF l_debug_mode = 'Y' THEN
4854: pa_debug.g_err_stage:='Unexpected Error'||errbuf;
4855: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4856: pa_debug.reset_err_stack;
4857: pa_debug.reset_curr_function; --Added for bug 4945876
4858: END IF;
4859:
4852:
4853: IF l_debug_mode = 'Y' THEN
4854: pa_debug.g_err_stage:='Unexpected Error'||errbuf;
4855: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4856: pa_debug.reset_err_stack;
4857: pa_debug.reset_curr_function; --Added for bug 4945876
4858: END IF;
4859:
4860: RAISE;
4853: IF l_debug_mode = 'Y' THEN
4854: pa_debug.g_err_stage:='Unexpected Error'||errbuf;
4855: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4856: pa_debug.reset_err_stack;
4857: pa_debug.reset_curr_function; --Added for bug 4945876
4858: END IF;
4859:
4860: RAISE;
4861: END RUN_ACTION_CONC_PROCESS ;
5023: -- if validations are successful, call UPDATE_DLV_ACTIONS_IN_BULK api
5024:
5025: x_msg_count := 0;
5026: x_return_status := FND_API.G_RET_STS_SUCCESS;
5027: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
5028:
5029: IF l_debug_mode = 'Y' THEN
5030: PA_DEBUG.set_curr_function( p_function => 'UPD_DLV_ACTIONS_IN_BULK_TM',
5031: p_debug_mode => l_debug_mode );
5026: x_return_status := FND_API.G_RET_STS_SUCCESS;
5027: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
5028:
5029: IF l_debug_mode = 'Y' THEN
5030: PA_DEBUG.set_curr_function( p_function => 'UPD_DLV_ACTIONS_IN_BULK_TM',
5031: p_debug_mode => l_debug_mode );
5032: pa_debug.g_err_stage:= 'Inside UPD_DLV_ACTIONS_IN_BULK_TM ';
5033: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
5034: END IF;
5028:
5029: IF l_debug_mode = 'Y' THEN
5030: PA_DEBUG.set_curr_function( p_function => 'UPD_DLV_ACTIONS_IN_BULK_TM',
5031: p_debug_mode => l_debug_mode );
5032: pa_debug.g_err_stage:= 'Inside UPD_DLV_ACTIONS_IN_BULK_TM ';
5033: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
5034: END IF;
5035:
5036: IF l_debug_mode = 'Y' THEN
5029: IF l_debug_mode = 'Y' THEN
5030: PA_DEBUG.set_curr_function( p_function => 'UPD_DLV_ACTIONS_IN_BULK_TM',
5031: p_debug_mode => l_debug_mode );
5032: pa_debug.g_err_stage:= 'Inside UPD_DLV_ACTIONS_IN_BULK_TM ';
5033: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
5034: END IF;
5035:
5036: IF l_debug_mode = 'Y' THEN
5037: pa_debug.g_err_stage:= 'Printing Input parameters';
5033: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
5034: END IF;
5035:
5036: IF l_debug_mode = 'Y' THEN
5037: pa_debug.g_err_stage:= 'Printing Input parameters';
5038: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
5039: pa_debug.write(g_module_name,'p_insert_or_update'||':'||p_insert_or_update,3) ;
5040: END IF;
5041:
5034: END IF;
5035:
5036: IF l_debug_mode = 'Y' THEN
5037: pa_debug.g_err_stage:= 'Printing Input parameters';
5038: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
5039: pa_debug.write(g_module_name,'p_insert_or_update'||':'||p_insert_or_update,3) ;
5040: END IF;
5041:
5042: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
5035:
5036: IF l_debug_mode = 'Y' THEN
5037: pa_debug.g_err_stage:= 'Printing Input parameters';
5038: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
5039: pa_debug.write(g_module_name,'p_insert_or_update'||':'||p_insert_or_update,3) ;
5040: END IF;
5041:
5042: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
5043: FND_MSG_PUB.initialize;
5049:
5050: -- Call the validation API. It will
5051: -- perform all the validation.
5052: IF l_debug_mode = 'Y' THEN
5053: pa_debug.g_err_stage:= 'Calling PA_ACTIONS_PUB.VALIDATE_ACTIONS';
5054: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
5055: END IF ;
5056:
5057: l_name_tbl.extend;
5050: -- Call the validation API. It will
5051: -- perform all the validation.
5052: IF l_debug_mode = 'Y' THEN
5053: pa_debug.g_err_stage:= 'Calling PA_ACTIONS_PUB.VALIDATE_ACTIONS';
5054: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
5055: END IF ;
5056:
5057: l_name_tbl.extend;
5058: l_completed_flag_tbl.extend;
5068:
5069: l_count:= 0;
5070:
5071: IF l_debug_mode = 'Y' THEN
5072: pa_debug.write(g_module_name,'No of actions ' || p_name_tbl.last,3) ;
5073: END IF ;
5074:
5075: IF nvl(p_name_tbl.last,0) >= 1 THEN -- Only if something is fetched
5076:
5078:
5079: FOR i in p_name_tbl.FIRST .. p_name_tbl.LAST LOOP
5080:
5081: IF l_debug_mode = 'Y' THEN
5082: pa_debug.write(g_module_name,'i ' || i,3) ;
5083: END IF ;
5084:
5085: l_name_tbl(l_count) := p_name_tbl(i);
5086:
5097: l_object_version_id := p_object_version_id_tbl(i);
5098: l_project_id := p_project_id_tbl(i);
5099:
5100: IF l_debug_mode = 'Y' THEN
5101: pa_debug.write(g_module_name,' validating action p_element_version_id_tbl ' || p_element_version_id_tbl(i) ,3) ;
5102: pa_debug.write(g_module_name,' validating action ( version id ) ' || l_element_version_id_tbl(l_count) ,3) ;
5103: END IF ;
5104:
5105: PA_ACTIONS_PUB.VALIDATE_ACTIONS
5098: l_project_id := p_project_id_tbl(i);
5099:
5100: IF l_debug_mode = 'Y' THEN
5101: pa_debug.write(g_module_name,' validating action p_element_version_id_tbl ' || p_element_version_id_tbl(i) ,3) ;
5102: pa_debug.write(g_module_name,' validating action ( version id ) ' || l_element_version_id_tbl(l_count) ,3) ;
5103: END IF ;
5104:
5105: PA_ACTIONS_PUB.VALIDATE_ACTIONS
5106: ( p_init_msg_list => FND_API.G_FALSE
5150:
5151: FOR i in p_name_tbl.FIRST .. p_name_tbl.LAST LOOP
5152:
5153: IF l_debug_mode = 'Y' THEN
5154: pa_debug.g_err_stage:= 'Update Operation';
5155: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5156: END IF;
5157:
5158: j_upd:=j_upd+1 ;
5151: FOR i in p_name_tbl.FIRST .. p_name_tbl.LAST LOOP
5152:
5153: IF l_debug_mode = 'Y' THEN
5154: pa_debug.g_err_stage:= 'Update Operation';
5155: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5156: END IF;
5157:
5158: j_upd:=j_upd+1 ;
5159:
5226: -- Call Update API to perform the update operation
5227: IF j_upd > 0 THEN
5228:
5229: IF l_debug_mode = 'Y' THEN
5230: pa_debug.g_err_stage:= 'Call UPDATE_DLV_ACTIONS_IN_BULK ';
5231: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5232: END IF;
5233:
5234: PA_ACTIONS_PUB.UPDATE_DLV_ACTIONS_IN_BULK
5227: IF j_upd > 0 THEN
5228:
5229: IF l_debug_mode = 'Y' THEN
5230: pa_debug.g_err_stage:= 'Call UPDATE_DLV_ACTIONS_IN_BULK ';
5231: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5232: END IF;
5233:
5234: PA_ACTIONS_PUB.UPDATE_DLV_ACTIONS_IN_BULK
5235: (p_api_version => p_api_version
5292:
5293: END IF ; -- Only if something is fetched
5294:
5295: IF l_debug_mode = 'Y' THEN
5296: pa_debug.g_err_stage:= 'Exiting UPD_DLV_ACTIONS_IN_BULK_TM' ;
5297: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5298: pa_debug.reset_curr_function;
5299: END IF;
5300:
5293: END IF ; -- Only if something is fetched
5294:
5295: IF l_debug_mode = 'Y' THEN
5296: pa_debug.g_err_stage:= 'Exiting UPD_DLV_ACTIONS_IN_BULK_TM' ;
5297: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5298: pa_debug.reset_curr_function;
5299: END IF;
5300:
5301: EXCEPTION
5294:
5295: IF l_debug_mode = 'Y' THEN
5296: pa_debug.g_err_stage:= 'Exiting UPD_DLV_ACTIONS_IN_BULK_TM' ;
5297: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5298: pa_debug.reset_curr_function;
5299: END IF;
5300:
5301: EXCEPTION
5302: WHEN Invalid_Arg_Exc_Dlv THEN
5307: ROLLBACK TO CR_UP_DLV_ACTIONS_SP;
5308: END IF ;
5309:
5310: IF l_debug_mode = 'Y' THEN
5311: pa_debug.g_err_stage := 'inside invalid arg exception of UPD_DLV_ACTIONS_IN_BULK_TM';
5312: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
5313: END IF;
5314:
5315: IF l_msg_count = 1 THEN
5308: END IF ;
5309:
5310: IF l_debug_mode = 'Y' THEN
5311: pa_debug.g_err_stage := 'inside invalid arg exception of UPD_DLV_ACTIONS_IN_BULK_TM';
5312: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
5313: END IF;
5314:
5315: IF l_msg_count = 1 THEN
5316: PA_INTERFACE_UTILS_PUB.get_messages
5325: ELSE
5326: x_msg_count := l_msg_count;
5327: END IF;
5328: IF l_debug_mode = 'Y' THEN
5329: pa_debug.reset_curr_function;
5330: END IF ;
5331: RETURN;
5332: WHEN OTHERS THEN
5333: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5341: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_ACTIONS_PUB'
5342: ,p_procedure_name => 'UPD_DLV_ACTIONS_IN_BULK_TM');
5343:
5344: IF p_debug_mode = 'Y' THEN
5345: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
5346: pa_debug.write(g_module_name,'UPD_DLV_ACTIONS_IN_BULK_TM: '|| pa_debug.g_err_stage,5);
5347: pa_debug.reset_curr_function;
5348: END IF;
5349: RAISE;
5342: ,p_procedure_name => 'UPD_DLV_ACTIONS_IN_BULK_TM');
5343:
5344: IF p_debug_mode = 'Y' THEN
5345: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
5346: pa_debug.write(g_module_name,'UPD_DLV_ACTIONS_IN_BULK_TM: '|| pa_debug.g_err_stage,5);
5347: pa_debug.reset_curr_function;
5348: END IF;
5349: RAISE;
5350: END UPD_DLV_ACTIONS_IN_BULK_TM ;
5343:
5344: IF p_debug_mode = 'Y' THEN
5345: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
5346: pa_debug.write(g_module_name,'UPD_DLV_ACTIONS_IN_BULK_TM: '|| pa_debug.g_err_stage,5);
5347: pa_debug.reset_curr_function;
5348: END IF;
5349: RAISE;
5350: END UPD_DLV_ACTIONS_IN_BULK_TM ;
5351:
5413: BEGIN
5414:
5415: x_msg_count := 0;
5416: x_return_status := FND_API.G_RET_STS_SUCCESS;
5417: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
5418:
5419: IF l_debug_mode = 'Y' THEN
5420: pa_debug.g_err_stage:= 'Entering RUN_ACTION_CONC_PROCESS_WRP';
5421: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5416: x_return_status := FND_API.G_RET_STS_SUCCESS;
5417: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
5418:
5419: IF l_debug_mode = 'Y' THEN
5420: pa_debug.g_err_stage:= 'Entering RUN_ACTION_CONC_PROCESS_WRP';
5421: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5422:
5423: pa_debug.set_curr_function( p_function => 'RUN_ACTION_CONC_PROCESS_WRP',
5424: p_debug_mode => l_debug_mode );
5417: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
5418:
5419: IF l_debug_mode = 'Y' THEN
5420: pa_debug.g_err_stage:= 'Entering RUN_ACTION_CONC_PROCESS_WRP';
5421: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5422:
5423: pa_debug.set_curr_function( p_function => 'RUN_ACTION_CONC_PROCESS_WRP',
5424: p_debug_mode => l_debug_mode );
5425: END IF;
5419: IF l_debug_mode = 'Y' THEN
5420: pa_debug.g_err_stage:= 'Entering RUN_ACTION_CONC_PROCESS_WRP';
5421: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5422:
5423: pa_debug.set_curr_function( p_function => 'RUN_ACTION_CONC_PROCESS_WRP',
5424: p_debug_mode => l_debug_mode );
5425: END IF;
5426:
5427: -- Initialise Message Stack
5436:
5437: --Printing Input Parameters
5438:
5439: IF l_debug_mode = 'Y' THEN
5440: pa_debug.g_err_stage:= 'The Project Id is :' || p_project_id ;
5441: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5442: END IF ;
5443:
5444: -- Validate Input parameters
5437: --Printing Input Parameters
5438:
5439: IF l_debug_mode = 'Y' THEN
5440: pa_debug.g_err_stage:= 'The Project Id is :' || p_project_id ;
5441: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5442: END IF ;
5443:
5444: -- Validate Input parameters
5445: IF l_debug_mode = 'Y' THEN
5442: END IF ;
5443:
5444: -- Validate Input parameters
5445: IF l_debug_mode = 'Y' THEN
5446: pa_debug.g_err_stage:= 'Validating Input parameters';
5447: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5448: END IF;
5449:
5450: IF p_project_id IS NULL THEN
5443:
5444: -- Validate Input parameters
5445: IF l_debug_mode = 'Y' THEN
5446: pa_debug.g_err_stage:= 'Validating Input parameters';
5447: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5448: END IF;
5449:
5450: IF p_project_id IS NULL THEN
5451: IF l_debug_mode = 'Y' THEN
5448: END IF;
5449:
5450: IF p_project_id IS NULL THEN
5451: IF l_debug_mode = 'Y' THEN
5452: pa_debug.g_err_stage:= 'Mandatory parameter to this API : Project ID is NULL';
5453: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5454: END IF;
5455: l_return_status := FND_API.G_RET_STS_ERROR;
5456: PA_UTILS.ADD_MESSAGE
5449:
5450: IF p_project_id IS NULL THEN
5451: IF l_debug_mode = 'Y' THEN
5452: pa_debug.g_err_stage:= 'Mandatory parameter to this API : Project ID is NULL';
5453: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5454: END IF;
5455: l_return_status := FND_API.G_RET_STS_ERROR;
5456: PA_UTILS.ADD_MESSAGE
5457: (p_app_short_name => 'PA',
5460: END IF;
5461:
5462: --Check for valid project id passed
5463: IF l_debug_mode = 'Y' THEN
5464: pa_debug.g_err_stage := 'Before doing cursor operation';
5465: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5466: END IF;
5467:
5468: -- 3671408 project_number is passed directly to the api
5461:
5462: --Check for valid project id passed
5463: IF l_debug_mode = 'Y' THEN
5464: pa_debug.g_err_stage := 'Before doing cursor operation';
5465: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5466: END IF;
5467:
5468: -- 3671408 project_number is passed directly to the api
5469: -- removed below code to retrieve and validate project_number
5472: FETCH c_project_number_from INTO l_project_number;
5473:
5474: IF c_project_number_from%NOTFOUND THEN
5475: IF l_debug_mode = 'Y' THEN
5476: pa_debug.g_err_stage:= 'No Project Number returned for the passed Project ID ';
5477: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5478: END IF;
5479: l_return_status := FND_API.G_RET_STS_ERROR;
5480: PA_UTILS.ADD_MESSAGE
5473:
5474: IF c_project_number_from%NOTFOUND THEN
5475: IF l_debug_mode = 'Y' THEN
5476: pa_debug.g_err_stage:= 'No Project Number returned for the passed Project ID ';
5477: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5478: END IF;
5479: l_return_status := FND_API.G_RET_STS_ERROR;
5480: PA_UTILS.ADD_MESSAGE
5481: (p_app_short_name => 'PA',
5489: -- 3671408 added below code to validate project_number
5490:
5491: IF p_project_number IS NULL THEN
5492: IF l_debug_mode = 'Y' THEN
5493: pa_debug.g_err_stage:= 'No Project Number returned for the passed Project ID ';
5494: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5495: END IF;
5496: l_return_status := FND_API.G_RET_STS_ERROR;
5497: PA_UTILS.ADD_MESSAGE
5490:
5491: IF p_project_number IS NULL THEN
5492: IF l_debug_mode = 'Y' THEN
5493: pa_debug.g_err_stage:= 'No Project Number returned for the passed Project ID ';
5494: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5495: END IF;
5496: l_return_status := FND_API.G_RET_STS_ERROR;
5497: PA_UTILS.ADD_MESSAGE
5498: (p_app_short_name => 'PA',
5502:
5503: -- 3671408 end
5504:
5505: IF l_debug_mode = 'Y' THEN
5506: pa_debug.g_err_stage := 'After doing cursor operation - Valid Project Number ';
5507: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5508: END IF;
5509:
5510: -- If the new project status has not been committed into Database,this cursor will fail
5503: -- 3671408 end
5504:
5505: IF l_debug_mode = 'Y' THEN
5506: pa_debug.g_err_stage := 'After doing cursor operation - Valid Project Number ';
5507: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5508: END IF;
5509:
5510: -- If the new project status has not been committed into Database,this cursor will fail
5511: -- This is due to the Autonomous Transaction definition.So,commented the following code
5516: FETCH c_project_sys_status_code into l_status_code ;
5517: CLOSE c_project_sys_status_code;
5518: IF nvl(l_status_code,'-99') <> 'APPROVED' THEN
5519: IF l_debug_mode = 'Y' THEN
5520: pa_debug.g_err_stage := 'The Project Status is not approved .So,No need to invoke concurrent process ';
5521: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5522: END IF;
5523: RETURN;
5524: END IF ;
5517: CLOSE c_project_sys_status_code;
5518: IF nvl(l_status_code,'-99') <> 'APPROVED' THEN
5519: IF l_debug_mode = 'Y' THEN
5520: pa_debug.g_err_stage := 'The Project Status is not approved .So,No need to invoke concurrent process ';
5521: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5522: END IF;
5523: RETURN;
5524: END IF ;
5525: */
5535: argument2 => p_project_number, -- 3671408 changed parameter value to passed IN parameter
5536: argument3 => NULL
5537: );
5538: IF l_debug_mode = 'Y' THEN
5539: pa_debug.g_err_stage:= 'Request id is '||l_request_id;
5540: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5541: END IF;
5542:
5543: -- Throw an error if the request could not be submitted.
5536: argument3 => NULL
5537: );
5538: IF l_debug_mode = 'Y' THEN
5539: pa_debug.g_err_stage:= 'Request id is '||l_request_id;
5540: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5541: END IF;
5542:
5543: -- Throw an error if the request could not be submitted.
5544: IF l_request_id = 0 THEN
5550:
5551: COMMIT ;
5552:
5553: IF l_debug_mode = 'Y' THEN
5554: pa_debug.g_err_stage:= 'Exiting RUN_ACTION_CONC_PROCESS_WRP ' ;
5555: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5556: pa_debug.reset_curr_function; --Added for bug 4945876
5557: END IF;
5558: EXCEPTION
5551: COMMIT ;
5552:
5553: IF l_debug_mode = 'Y' THEN
5554: pa_debug.g_err_stage:= 'Exiting RUN_ACTION_CONC_PROCESS_WRP ' ;
5555: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5556: pa_debug.reset_curr_function; --Added for bug 4945876
5557: END IF;
5558: EXCEPTION
5559: WHEN Invalid_Arg_Exc_Dlv THEN
5552:
5553: IF l_debug_mode = 'Y' THEN
5554: pa_debug.g_err_stage:= 'Exiting RUN_ACTION_CONC_PROCESS_WRP ' ;
5555: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5556: pa_debug.reset_curr_function; --Added for bug 4945876
5557: END IF;
5558: EXCEPTION
5559: WHEN Invalid_Arg_Exc_Dlv THEN
5560: x_return_status := FND_API.G_RET_STS_ERROR;
5576: ROLLBACK TO RUN_ACTION_CONC_PROCESS_WRP_SP;
5577: END IF ;
5578:
5579: IF l_debug_mode = 'Y' THEN
5580: pa_debug.g_err_stage := 'Inside Invalid arg exception of RUN_ACTION_CONC_PROCESS_WRP';
5581: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
5582: END IF;
5583:
5584: IF l_msg_count = 1 THEN
5577: END IF ;
5578:
5579: IF l_debug_mode = 'Y' THEN
5580: pa_debug.g_err_stage := 'Inside Invalid arg exception of RUN_ACTION_CONC_PROCESS_WRP';
5581: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
5582: END IF;
5583:
5584: IF l_msg_count = 1 THEN
5585: PA_INTERFACE_UTILS_PUB.get_messages
5592: x_msg_data := l_data;
5593: x_msg_count := l_msg_count;
5594: END IF;
5595: IF l_debug_mode = 'Y' THEN
5596: pa_debug.reset_curr_function;
5597: END IF ;
5598: RETURN;
5599: WHEN OTHERS THEN
5600: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5621: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_ACTIONS_PUB'
5622: ,p_procedure_name => 'RUN_ACTION_CONC_PROCESS_WRP');
5623:
5624: IF p_debug_mode = 'Y' THEN
5625: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
5626: pa_debug.write(g_module_name, pa_debug.g_err_stage,5);
5627: pa_debug.reset_curr_function;
5628: END IF;
5629: RAISE;
5622: ,p_procedure_name => 'RUN_ACTION_CONC_PROCESS_WRP');
5623:
5624: IF p_debug_mode = 'Y' THEN
5625: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
5626: pa_debug.write(g_module_name, pa_debug.g_err_stage,5);
5627: pa_debug.reset_curr_function;
5628: END IF;
5629: RAISE;
5630: END RUN_ACTION_CONC_PROCESS_WRP ;
5623:
5624: IF p_debug_mode = 'Y' THEN
5625: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
5626: pa_debug.write(g_module_name, pa_debug.g_err_stage,5);
5627: pa_debug.reset_curr_function;
5628: END IF;
5629: RAISE;
5630: END RUN_ACTION_CONC_PROCESS_WRP ;
5631: