[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:
3173: FND_MSG_PUB.initialize;
3174: END IF;
3175:
3176: IF p_debug_mode = 'Y' THEN
3177: PA_DEBUG.set_curr_function( p_function => l_api_name,
3178: p_debug_mode => p_debug_mode );
3179: pa_debug.g_err_stage:= 'Inside '||l_api_name;
3180: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
3181: END IF;
3175:
3176: IF p_debug_mode = 'Y' THEN
3177: PA_DEBUG.set_curr_function( p_function => l_api_name,
3178: p_debug_mode => p_debug_mode );
3179: pa_debug.g_err_stage:= 'Inside '||l_api_name;
3180: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
3181: END IF;
3182:
3183: -- Set API return status to success
3176: IF p_debug_mode = 'Y' THEN
3177: PA_DEBUG.set_curr_function( p_function => l_api_name,
3178: p_debug_mode => p_debug_mode );
3179: pa_debug.g_err_stage:= 'Inside '||l_api_name;
3180: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
3181: END IF;
3182:
3183: -- Set API return status to success
3184: x_return_status := FND_API.G_RET_STS_SUCCESS;
3223: );
3224:
3225:
3226: IF p_debug_mode = 'Y' THEN
3227: pa_debug.write(g_module_name,'Entering the loop fetched values obj id ['||l_object_id||']vers id['||l_object_version_id||']',3) ;
3228: 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) ;
3229: pa_debug.write(g_module_name,'org id ['||l_org_id||']PFC['|| l_projfunc_currency_code||']item dlv['||l_item_dlv||']',3) ;
3230: END IF;
3231:
3224:
3225:
3226: IF p_debug_mode = 'Y' THEN
3227: pa_debug.write(g_module_name,'Entering the loop fetched values obj id ['||l_object_id||']vers id['||l_object_version_id||']',3) ;
3228: 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) ;
3229: pa_debug.write(g_module_name,'org id ['||l_org_id||']PFC['|| l_projfunc_currency_code||']item dlv['||l_item_dlv||']',3) ;
3230: END IF;
3231:
3232: -- 3651542 Added below code to retrieve default owner and date in create mode
3225:
3226: IF p_debug_mode = 'Y' THEN
3227: pa_debug.write(g_module_name,'Entering the loop fetched values obj id ['||l_object_id||']vers id['||l_object_version_id||']',3) ;
3228: 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) ;
3229: pa_debug.write(g_module_name,'org id ['||l_org_id||']PFC['|| l_projfunc_currency_code||']item dlv['||l_item_dlv||']',3) ;
3230: END IF;
3231:
3232: -- 3651542 Added below code to retrieve default owner and date in create mode
3233: -- Assumption : defaulting will done for 'PROJECT' only , for AMG task flow is not
3652:
3653: END LOOP;
3654:
3655: IF p_debug_mode = 'Y' THEN
3656: pa_debug.write(g_module_name,'Populated action PLSQL table, calling api for bulk insert',3) ;
3657: END IF;
3658:
3659: -- Invoke the API to create dlvr actions in bulk.
3660:
3706: ,x_msg_count => x_msg_count
3707: ,x_msg_data => x_msg_data);
3708:
3709: IF p_debug_mode = 'Y' THEN
3710: pa_debug.write(g_module_name,'Returned from Pa_Actions_Pub.CR_UP_DLV_ACTIONS_IN_BULK ['||x_return_status||']',5);
3711: END IF;
3712:
3713: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3714: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3753:
3754: END IF; --p_insert_or_update = 'INSERT'
3755:
3756: IF p_debug_mode = 'Y' THEN
3757: pa_debug.write(g_module_name,'Derived action id ['||l_action_id||']for reference['||p_action_in_tbl(i_actn).pm_action_reference||
3758: ']status['||x_return_status||']',5);
3759: END IF;
3760:
3761: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3764: RAISE FND_API.G_EXC_ERROR;
3765: END IF;
3766:
3767: IF p_debug_mode = 'Y' THEN
3768: pa_debug.write(g_module_name,'Should we update OKE attributes? '||l_update_oke_yn);
3769: END IF;
3770:
3771: -- bug 7385017 skkoppul - Update only in case of changes to OKE attributes
3772: IF l_update_oke_yn = 'Y' THEN
3897:
3898: END IF; -- l_action= g_create
3899:
3900: IF p_debug_mode = 'Y' THEN
3901: pa_debug.write(g_module_name,'Populated OKE Procurement PLSQL table',3) ;
3902: END IF;
3903:
3904: -- 3729250, In update mode, if function is not passed, p_action_in_tbl(i_actn).function_code value is G_PA_MISS_CHAR
3905: -- and so below condition was failing and oke data was not getting updated
4006:
4007: /* INSPECTION_REQ_FLAG Varchar2(1),*/
4008:
4009: IF p_debug_mode = 'Y' THEN
4010: pa_debug.write(g_module_name,'Populated OKE Shipping PLSQL table',3) ;
4011: END IF;
4012:
4013: -- 3729250, In update mode, if function is not passed, p_action_in_tbl(i_actn).function_code value is G_PA_MISS_CHAR
4014: -- and so below condition was failing and oke data was not getting updated
4047: CLOSE C_org_name;
4048: END IF;
4049:
4050: IF p_debug_mode = 'Y' THEN
4051: pa_debug.write(g_module_name,'Organization name derived ['||l_organization_name||']',3) ;
4052: END IF;
4053:
4054:
4055: -- Populating the Billing Event PLSQL table
4090: l_event_in_tbl(i_bill).p_context := 'D' ;-- to be passed as 'D' for deliverable action event
4091: l_event_in_tbl(i_bill).p_record_version_number := 1 ;
4092:
4093: IF p_debug_mode = 'Y' THEN
4094: pa_debug.write(g_module_name,'Populated Billing PLSQL table',3) ;
4095: END IF;
4096: ELSE
4097: i_none := i_none + 1;
4098:
4096: ELSE
4097: i_none := i_none + 1;
4098:
4099: IF p_debug_mode = 'Y' THEN
4100: pa_debug.write(g_module_name,'Function code is NONE',3) ;
4101: END IF;
4102: END IF;
4103:
4104: END IF;
4106:
4107: END LOOP; -- i_act is not null
4108:
4109: IF p_debug_mode = 'Y' THEN
4110: pa_debug.write(g_module_name,'action processed ['||i_actn||']bill['||i_bill||']proc['||i_proc||']ship['||i_ship||']none['||i_none||']',5);
4111: END IF;
4112:
4113: -- Invoke the API to create records in OKE tables
4114: IF ( i_ship > 0) THEN
4153: , x_msg_count => x_msg_count
4154: );
4155:
4156: IF p_debug_mode = 'Y' THEN
4157: pa_debug.write(g_module_name,'Returned from oke_amg_grp.manage_dlv_action for shipping action ['||x_return_status||']',5);
4158: END IF;
4159:
4160: i_ship1 := l_dlv_ship_action_tbl.next(i_ship1);
4161:
4210: , x_msg_count => x_msg_count
4211: );
4212:
4213: IF p_debug_mode = 'Y' THEN
4214: pa_debug.write(g_module_name,'Returned from oke_amg_grp.manage_dlv_action for proc action ['||x_return_status||']',5);
4215: END IF;
4216:
4217: i_proc1 := l_dlv_req_action_tbl.next(i_proc1);
4218:
4236: ,p_return_status => x_return_status
4237: );
4238:
4239: IF p_debug_mode = 'Y' THEN
4240: pa_debug.write(g_module_name,'Returned from Pa_Event_Pub.create_event for billing action ['||x_return_status||']',5);
4241: END IF;
4242:
4243: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4260: , p_return_status => x_return_status
4261: );
4262:
4263: IF p_debug_mode = 'Y' THEN
4264: pa_debug.write(g_module_name,'Returned from Pa_Event_Pub.update_event for billing action ['||x_return_status||']',5);
4265: END IF;
4266:
4267: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4268: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4273: END IF; -- p_insert_or_update values
4274: END IF; -- i_bill > 0
4275:
4276: IF p_debug_mode = 'Y' THEN
4277: pa_debug.reset_curr_function;
4278: pa_debug.write(g_module_name,l_api_name||': Exiting without error',5);
4279: END IF;
4280:
4281: EXCEPTION
4274: END IF; -- i_bill > 0
4275:
4276: IF p_debug_mode = 'Y' THEN
4277: pa_debug.reset_curr_function;
4278: pa_debug.write(g_module_name,l_api_name||': Exiting without error',5);
4279: END IF;
4280:
4281: EXCEPTION
4282: WHEN FND_API.G_EXC_ERROR THEN
4303:
4304: END IF;
4305:
4306: IF p_debug_mode = 'Y' THEN
4307: pa_debug.reset_curr_function;
4308: pa_debug.write(g_module_name,l_api_name||': Inside G_EXC_ERROR exception',5);
4309: END IF;
4310:
4311: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4304: END IF;
4305:
4306: IF p_debug_mode = 'Y' THEN
4307: pa_debug.reset_curr_function;
4308: pa_debug.write(g_module_name,l_api_name||': Inside G_EXC_ERROR exception',5);
4309: END IF;
4310:
4311: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4312: IF (p_commit = FND_API.G_TRUE) THEN
4332:
4333: END IF;
4334:
4335: IF p_debug_mode = 'Y' THEN
4336: pa_debug.reset_curr_function;
4337: pa_debug.write(g_module_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
4338: END IF;
4339:
4340: WHEN OTHERS THEN
4333: END IF;
4334:
4335: IF p_debug_mode = 'Y' THEN
4336: pa_debug.reset_curr_function;
4337: pa_debug.write(g_module_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
4338: END IF;
4339:
4340: WHEN OTHERS THEN
4341: IF (p_commit = FND_API.G_TRUE) THEN
4345: x_msg_count := 1;
4346: x_msg_data := SQLERRM;
4347:
4348: IF p_debug_mode = 'Y' THEN
4349: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
4350: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
4351: pa_debug.reset_curr_function;
4352: END IF;
4353:
4346: x_msg_data := SQLERRM;
4347:
4348: IF p_debug_mode = 'Y' THEN
4349: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
4350: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
4351: pa_debug.reset_curr_function;
4352: END IF;
4353:
4354:
4347:
4348: IF p_debug_mode = 'Y' THEN
4349: pa_debug.g_err_stage:=l_api_name||': Unexpected Error'||SQLERRM;
4350: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
4351: pa_debug.reset_curr_function;
4352: END IF;
4353:
4354:
4355: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4412:
4413: BEGIN
4414:
4415: -- Set the error stack.
4416: pa_debug.set_err_stack('PA_ACTIONS_PUB.RUN_ACTION_CONC_PROCESS');
4417:
4418: -- Get the Debug mode into local variable and set it to 'Y'if its NULL
4419: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
4420:
4415: -- Set the error stack.
4416: pa_debug.set_err_stack('PA_ACTIONS_PUB.RUN_ACTION_CONC_PROCESS');
4417:
4418: -- Get the Debug mode into local variable and set it to 'Y'if its NULL
4419: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
4420:
4421: l_request_id := FND_GLOBAL.CONC_REQUEST_ID;
4422: retcode := '0';
4423: errbuf := NULL;
4423: errbuf := NULL;
4424:
4425: -- Initialize the return status to success
4426: l_return_status := FND_API.G_RET_STS_SUCCESS;
4427: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4428:
4429: IF l_debug_mode = 'Y' THEN
4430: pa_debug.set_curr_function( p_function => 'RUN_ACTION_CONC_PROCESS',
4431: p_debug_mode => l_debug_mode );
4426: l_return_status := FND_API.G_RET_STS_SUCCESS;
4427: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4428:
4429: IF l_debug_mode = 'Y' THEN
4430: pa_debug.set_curr_function( p_function => 'RUN_ACTION_CONC_PROCESS',
4431: p_debug_mode => l_debug_mode );
4432: pa_debug.g_err_stage:= 'Entering RUN_ACTION_CONC_PROCESS : ' || l_request_id;
4433: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4434: END IF;
4428:
4429: IF l_debug_mode = 'Y' THEN
4430: pa_debug.set_curr_function( p_function => 'RUN_ACTION_CONC_PROCESS',
4431: p_debug_mode => l_debug_mode );
4432: pa_debug.g_err_stage:= 'Entering RUN_ACTION_CONC_PROCESS : ' || l_request_id;
4433: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4434: END IF;
4435:
4436: --Printing Input Parameters
4429: IF l_debug_mode = 'Y' THEN
4430: pa_debug.set_curr_function( p_function => 'RUN_ACTION_CONC_PROCESS',
4431: p_debug_mode => l_debug_mode );
4432: pa_debug.g_err_stage:= 'Entering RUN_ACTION_CONC_PROCESS : ' || l_request_id;
4433: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4434: END IF;
4435:
4436: --Printing Input Parameters
4437:
4435:
4436: --Printing Input Parameters
4437:
4438: IF l_debug_mode = 'Y' THEN
4439: pa_debug.g_err_stage:= 'RUN_ACTION_CONC_PROCESS : Function is :' || p_function ;
4440: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4441: pa_debug.g_err_stage:= 'RUN_ACTION_CONC_PROCESS : Project Number From is :' || p_project_number_from ;
4442: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4443: pa_debug.g_err_stage:= 'RUN_ACTION_CONC_PROCESS : Project Number To is :' || p_project_number_to ;
4436: --Printing Input Parameters
4437:
4438: IF l_debug_mode = 'Y' THEN
4439: pa_debug.g_err_stage:= 'RUN_ACTION_CONC_PROCESS : Function is :' || p_function ;
4440: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4441: pa_debug.g_err_stage:= 'RUN_ACTION_CONC_PROCESS : Project Number From is :' || p_project_number_from ;
4442: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4443: pa_debug.g_err_stage:= 'RUN_ACTION_CONC_PROCESS : Project Number To is :' || p_project_number_to ;
4444: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4437:
4438: IF l_debug_mode = 'Y' THEN
4439: pa_debug.g_err_stage:= 'RUN_ACTION_CONC_PROCESS : Function is :' || p_function ;
4440: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4441: pa_debug.g_err_stage:= 'RUN_ACTION_CONC_PROCESS : Project Number From is :' || p_project_number_from ;
4442: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4443: pa_debug.g_err_stage:= 'RUN_ACTION_CONC_PROCESS : Project Number To is :' || p_project_number_to ;
4444: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4445: END IF;
4438: IF l_debug_mode = 'Y' THEN
4439: pa_debug.g_err_stage:= 'RUN_ACTION_CONC_PROCESS : Function is :' || p_function ;
4440: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4441: pa_debug.g_err_stage:= 'RUN_ACTION_CONC_PROCESS : Project Number From is :' || p_project_number_from ;
4442: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4443: pa_debug.g_err_stage:= 'RUN_ACTION_CONC_PROCESS : Project Number To is :' || p_project_number_to ;
4444: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4445: END IF;
4446:
4439: pa_debug.g_err_stage:= 'RUN_ACTION_CONC_PROCESS : Function is :' || p_function ;
4440: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4441: pa_debug.g_err_stage:= 'RUN_ACTION_CONC_PROCESS : Project Number From is :' || p_project_number_from ;
4442: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4443: pa_debug.g_err_stage:= 'RUN_ACTION_CONC_PROCESS : Project Number To is :' || p_project_number_to ;
4444: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4445: END IF;
4446:
4447: --Valid Parameter Validations
4440: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4441: pa_debug.g_err_stage:= 'RUN_ACTION_CONC_PROCESS : Project Number From is :' || p_project_number_from ;
4442: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4443: pa_debug.g_err_stage:= 'RUN_ACTION_CONC_PROCESS : Project Number To is :' || p_project_number_to ;
4444: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4445: END IF;
4446:
4447: --Valid Parameter Validations
4448: IF ( (p_project_number_from IS NOT NULL) OR (p_project_number_to IS NOT NULL) ) THEN
4451: FETCH c_valid_project_number_entry INTO l_valid ;
4452:
4453: IF c_valid_project_number_entry%NOTFOUND THEN
4454: IF l_debug_mode = 'Y' THEN
4455: pa_debug.g_err_stage:= 'RUN_ACTION_CONC_PROCESS : Invalid value entered for Project Number From';
4456: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4457: END IF;
4458: l_return_status := FND_API.G_RET_STS_ERROR;
4459: PA_UTILS.ADD_MESSAGE
4452:
4453: IF c_valid_project_number_entry%NOTFOUND THEN
4454: IF l_debug_mode = 'Y' THEN
4455: pa_debug.g_err_stage:= 'RUN_ACTION_CONC_PROCESS : Invalid value entered for Project Number From';
4456: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4457: END IF;
4458: l_return_status := FND_API.G_RET_STS_ERROR;
4459: PA_UTILS.ADD_MESSAGE
4460: (p_app_short_name => 'PA',
4467: FETCH c_valid_project_number_entry INTO l_valid ;
4468:
4469: IF c_valid_project_number_entry%NOTFOUND THEN
4470: IF l_debug_mode = 'Y' THEN
4471: pa_debug.g_err_stage:= 'RUN_ACTION_CONC_PROCESS : Invalid value entered for Project Number To' ;
4472: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4473: END IF;
4474: l_return_status := FND_API.G_RET_STS_ERROR;
4475: PA_UTILS.ADD_MESSAGE
4468:
4469: IF c_valid_project_number_entry%NOTFOUND THEN
4470: IF l_debug_mode = 'Y' THEN
4471: pa_debug.g_err_stage:= 'RUN_ACTION_CONC_PROCESS : Invalid value entered for Project Number To' ;
4472: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4473: END IF;
4474: l_return_status := FND_API.G_RET_STS_ERROR;
4475: PA_UTILS.ADD_MESSAGE
4476: (p_app_short_name => 'PA',
4483:
4484: --Business Rule Validations
4485: IF (p_function IS NULL) THEN
4486: IF l_debug_mode = 'Y' THEN
4487: pa_debug.g_err_stage:= 'Mandatory parameter to this API : Function is NULL';
4488: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4489: END IF;
4490: l_return_status := FND_API.G_RET_STS_ERROR;
4491: PA_UTILS.ADD_MESSAGE
4484: --Business Rule Validations
4485: IF (p_function IS NULL) THEN
4486: IF l_debug_mode = 'Y' THEN
4487: pa_debug.g_err_stage:= 'Mandatory parameter to this API : Function is NULL';
4488: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4489: END IF;
4490: l_return_status := FND_API.G_RET_STS_ERROR;
4491: PA_UTILS.ADD_MESSAGE
4492: (p_app_short_name => 'PA',
4494: RAISE Invalid_Arg_Exc_Dlv;
4495: END IF;
4496:
4497: IF l_debug_mode = 'Y' THEN
4498: pa_debug.g_err_stage := 'Before doing cursor operation';
4499: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4500: END IF;
4501:
4502: OPEN c_project_id_range ;
4495: END IF;
4496:
4497: IF l_debug_mode = 'Y' THEN
4498: pa_debug.g_err_stage := 'Before doing cursor operation';
4499: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4500: END IF;
4501:
4502: OPEN c_project_id_range ;
4503: FETCH c_project_id_range BULK COLLECT INTO l_project_id_tbl ;
4503: FETCH c_project_id_range BULK COLLECT INTO l_project_id_tbl ;
4504: CLOSE c_project_id_range;
4505:
4506: IF l_debug_mode = 'Y' THEN
4507: pa_debug.g_err_stage := 'After fetching the project id range into local table';
4508: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4509: END IF;
4510:
4511: IF(NVL(l_project_id_tbl.LAST,0) > 0) THEN
4504: CLOSE c_project_id_range;
4505:
4506: IF l_debug_mode = 'Y' THEN
4507: pa_debug.g_err_stage := 'After fetching the project id range into local table';
4508: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4509: END IF;
4510:
4511: IF(NVL(l_project_id_tbl.LAST,0) > 0) THEN
4512:
4510:
4511: IF(NVL(l_project_id_tbl.LAST,0) > 0) THEN
4512:
4513: IF l_debug_mode = 'Y' THEN
4514: pa_debug.g_err_stage := 'Project Id table is not empty';
4515: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4516: END IF;
4517:
4518: FOR l_count IN l_project_id_tbl.FIRST..l_project_id_tbl.LAST LOOP
4511: IF(NVL(l_project_id_tbl.LAST,0) > 0) THEN
4512:
4513: IF l_debug_mode = 'Y' THEN
4514: pa_debug.g_err_stage := 'Project Id table is not empty';
4515: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4516: END IF;
4517:
4518: FOR l_count IN l_project_id_tbl.FIRST..l_project_id_tbl.LAST LOOP
4519:
4538: ,X_MSG_COUNT => l_msg_count
4539: ,X_MSG_DATA => l_msg_data
4540: );
4541: IF l_debug_mode = 'Y' THEN
4542: pa_debug.g_err_stage := 'OKE_DELIVERABLE_UTILS_PUB.BATCH_MDS returned status :' || l_return_status ;
4543: pa_debug.g_err_stage := pa_debug.g_err_stage || ' for project id '||l_project_id_tbl(l_count) ;
4544: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4545: END IF;
4546:
4539: ,X_MSG_DATA => l_msg_data
4540: );
4541: IF l_debug_mode = 'Y' THEN
4542: pa_debug.g_err_stage := 'OKE_DELIVERABLE_UTILS_PUB.BATCH_MDS returned status :' || l_return_status ;
4543: pa_debug.g_err_stage := pa_debug.g_err_stage || ' for project id '||l_project_id_tbl(l_count) ;
4544: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4545: END IF;
4546:
4547: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4540: );
4541: IF l_debug_mode = 'Y' THEN
4542: pa_debug.g_err_stage := 'OKE_DELIVERABLE_UTILS_PUB.BATCH_MDS returned status :' || l_return_status ;
4543: pa_debug.g_err_stage := pa_debug.g_err_stage || ' for project id '||l_project_id_tbl(l_count) ;
4544: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4545: END IF;
4546:
4547: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4548: RAISE Invalid_Arg_Exc_Dlv ;
4556: ,X_MSG_COUNT => l_msg_count
4557: ,X_MSG_DATA => l_msg_data
4558: );
4559: IF l_debug_mode = 'Y' THEN
4560: pa_debug.g_err_stage := 'OKE_DELIVERABLE_UTILS_PUB.BATCH_REQ returned status :' || l_return_status;
4561: pa_debug.g_err_stage := pa_debug.g_err_stage || ' for project id '||l_project_id_tbl(l_count) ;
4562: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4563: END IF;
4564:
4557: ,X_MSG_DATA => l_msg_data
4558: );
4559: IF l_debug_mode = 'Y' THEN
4560: pa_debug.g_err_stage := 'OKE_DELIVERABLE_UTILS_PUB.BATCH_REQ returned status :' || l_return_status;
4561: pa_debug.g_err_stage := pa_debug.g_err_stage || ' for project id '||l_project_id_tbl(l_count) ;
4562: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4563: END IF;
4564:
4565: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4558: );
4559: IF l_debug_mode = 'Y' THEN
4560: pa_debug.g_err_stage := 'OKE_DELIVERABLE_UTILS_PUB.BATCH_REQ returned status :' || l_return_status;
4561: pa_debug.g_err_stage := pa_debug.g_err_stage || ' for project id '||l_project_id_tbl(l_count) ;
4562: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4563: END IF;
4564:
4565: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4566: RAISE Invalid_Arg_Exc_Dlv ;
4575: ,X_MSG_COUNT => l_msg_count
4576: ,X_MSG_DATA => l_msg_data
4577: );
4578: IF l_debug_mode = 'Y' THEN
4579: pa_debug.g_err_stage := 'OKE_DELIVERABLE_UTILS_PUB.BATCH_MDS returned status :' || l_return_status;
4580: pa_debug.g_err_stage := pa_debug.g_err_stage || ' for project id '||l_project_id_tbl(l_count) ;
4581: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4582: END IF;
4583:
4576: ,X_MSG_DATA => l_msg_data
4577: );
4578: IF l_debug_mode = 'Y' THEN
4579: pa_debug.g_err_stage := 'OKE_DELIVERABLE_UTILS_PUB.BATCH_MDS returned status :' || l_return_status;
4580: pa_debug.g_err_stage := pa_debug.g_err_stage || ' for project id '||l_project_id_tbl(l_count) ;
4581: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4582: END IF;
4583:
4584: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4577: );
4578: IF l_debug_mode = 'Y' THEN
4579: pa_debug.g_err_stage := 'OKE_DELIVERABLE_UTILS_PUB.BATCH_MDS returned status :' || l_return_status;
4580: pa_debug.g_err_stage := pa_debug.g_err_stage || ' for project id '||l_project_id_tbl(l_count) ;
4581: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4582: END IF;
4583:
4584: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4585: RAISE Invalid_Arg_Exc_Dlv ;
4592: ,X_MSG_COUNT => l_msg_count
4593: ,X_MSG_DATA => l_msg_data
4594: );
4595: IF l_debug_mode = 'Y' THEN
4596: pa_debug.g_err_stage := 'OKE_DELIVERABLE_UTILS_PUB.BATCH_REQ returned status :' || l_return_status;
4597: pa_debug.g_err_stage := pa_debug.g_err_stage || ' for project id '||l_project_id_tbl(l_count) ;
4598: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4599: END IF;
4600:
4593: ,X_MSG_DATA => l_msg_data
4594: );
4595: IF l_debug_mode = 'Y' THEN
4596: pa_debug.g_err_stage := 'OKE_DELIVERABLE_UTILS_PUB.BATCH_REQ returned status :' || l_return_status;
4597: pa_debug.g_err_stage := pa_debug.g_err_stage || ' for project id '||l_project_id_tbl(l_count) ;
4598: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4599: END IF;
4600:
4601: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4594: );
4595: IF l_debug_mode = 'Y' THEN
4596: pa_debug.g_err_stage := 'OKE_DELIVERABLE_UTILS_PUB.BATCH_REQ returned status :' || l_return_status;
4597: pa_debug.g_err_stage := pa_debug.g_err_stage || ' for project id '||l_project_id_tbl(l_count) ;
4598: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4599: END IF;
4600:
4601: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4602: RAISE Invalid_Arg_Exc_Dlv ;
4607: END IF;
4608:
4609: END LOOP;
4610: IF l_debug_mode = 'Y' THEN
4611: pa_debug.g_err_stage := 'After Calling OKE API for all the actions (passed project id)';
4612: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4613: END IF;
4614:
4615: ELSE
4608:
4609: END LOOP;
4610: IF l_debug_mode = 'Y' THEN
4611: pa_debug.g_err_stage := 'After Calling OKE API for all the actions (passed project id)';
4612: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4613: END IF;
4614:
4615: ELSE
4616:
4614:
4615: ELSE
4616:
4617: IF l_debug_mode = 'Y' THEN
4618: pa_debug.g_err_stage := 'Here,No Project Id range is entered';
4619: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4620: END IF;
4621:
4622: IF p_function = 'DEMAND' THEN
4615: ELSE
4616:
4617: IF l_debug_mode = 'Y' THEN
4618: pa_debug.g_err_stage := 'Here,No Project Id range is entered';
4619: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4620: END IF;
4621:
4622: IF p_function = 'DEMAND' THEN
4623:
4621:
4622: IF p_function = 'DEMAND' THEN
4623:
4624: IF l_debug_mode = 'Y' THEN
4625: pa_debug.g_err_stage := 'Selected Option is Initiate Demand(project_id is null)';
4626: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4627: END IF;
4628:
4629: OKE_DELIVERABLE_UTILS_PUB.BATCH_MDS(
4622: IF p_function = 'DEMAND' THEN
4623:
4624: IF l_debug_mode = 'Y' THEN
4625: pa_debug.g_err_stage := 'Selected Option is Initiate Demand(project_id is null)';
4626: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4627: END IF;
4628:
4629: OKE_DELIVERABLE_UTILS_PUB.BATCH_MDS(
4630: P_PROJECT_ID => null
4634: ,X_MSG_COUNT => l_msg_count
4635: ,X_MSG_DATA => l_msg_data
4636: );
4637: IF l_debug_mode = 'Y' THEN
4638: pa_debug.g_err_stage := 'OKE_DELIVERABLE_UTILS_PUB.BATCH_MDS returned status :' || l_return_status;
4639: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4640: END IF;
4641:
4642: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4635: ,X_MSG_DATA => l_msg_data
4636: );
4637: IF l_debug_mode = 'Y' THEN
4638: pa_debug.g_err_stage := 'OKE_DELIVERABLE_UTILS_PUB.BATCH_MDS returned status :' || l_return_status;
4639: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4640: END IF;
4641:
4642: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4643: RAISE Invalid_Arg_Exc_Dlv ;
4645:
4646: ELSIF p_function = 'PROCUREMENT' THEN
4647:
4648: IF l_debug_mode = 'Y' THEN
4649: pa_debug.g_err_stage := 'Selected Option is Initiate Procurement(project_id is null)';
4650: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4651: END IF;
4652: OKE_DELIVERABLE_UTILS_PUB.BATCH_REQ(
4653: P_PROJECT_ID => null
4646: ELSIF p_function = 'PROCUREMENT' THEN
4647:
4648: IF l_debug_mode = 'Y' THEN
4649: pa_debug.g_err_stage := 'Selected Option is Initiate Procurement(project_id is null)';
4650: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4651: END IF;
4652: OKE_DELIVERABLE_UTILS_PUB.BATCH_REQ(
4653: P_PROJECT_ID => null
4654: ,P_Task_ID => null
4657: ,X_MSG_COUNT => l_msg_count
4658: ,X_MSG_DATA => l_msg_data
4659: );
4660: IF l_debug_mode = 'Y' THEN
4661: pa_debug.g_err_stage := 'OKE_DELIVERABLE_UTILS_PUB.BATCH_REQ returned status :' || l_return_status;
4662: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4663: END IF;
4664:
4665:
4658: ,X_MSG_DATA => l_msg_data
4659: );
4660: IF l_debug_mode = 'Y' THEN
4661: pa_debug.g_err_stage := 'OKE_DELIVERABLE_UTILS_PUB.BATCH_REQ returned status :' || l_return_status;
4662: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4663: END IF;
4664:
4665:
4666: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4668: END IF ;
4669: ELSIF p_function = 'BOTH' THEN
4670:
4671: IF l_debug_mode = 'Y' THEN
4672: pa_debug.g_err_stage := 'Selected Option is All(project_id is null)';
4673: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4674: END IF;
4675:
4676: OKE_DELIVERABLE_UTILS_PUB.BATCH_MDS(
4669: ELSIF p_function = 'BOTH' THEN
4670:
4671: IF l_debug_mode = 'Y' THEN
4672: pa_debug.g_err_stage := 'Selected Option is All(project_id is null)';
4673: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4674: END IF;
4675:
4676: OKE_DELIVERABLE_UTILS_PUB.BATCH_MDS(
4677: P_PROJECT_ID => null
4681: ,X_MSG_COUNT => l_msg_count
4682: ,X_MSG_DATA => l_msg_data
4683: );
4684: IF l_debug_mode = 'Y' THEN
4685: pa_debug.g_err_stage := 'OKE_DELIVERABLE_UTILS_PUB.BATCH_MDS returned status :' || l_return_status;
4686: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4687: END IF;
4688:
4689: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4682: ,X_MSG_DATA => l_msg_data
4683: );
4684: IF l_debug_mode = 'Y' THEN
4685: pa_debug.g_err_stage := 'OKE_DELIVERABLE_UTILS_PUB.BATCH_MDS returned status :' || l_return_status;
4686: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4687: END IF;
4688:
4689: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4690: RAISE Invalid_Arg_Exc_Dlv ;
4699: ,X_MSG_DATA => l_msg_data
4700: );
4701:
4702: IF l_debug_mode = 'Y' THEN
4703: pa_debug.g_err_stage := 'OKE_DELIVERABLE_UTILS_PUB.BATCH_REQ returned status :' || l_return_status;
4704: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4705: END IF;
4706:
4707: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4700: );
4701:
4702: IF l_debug_mode = 'Y' THEN
4703: pa_debug.g_err_stage := 'OKE_DELIVERABLE_UTILS_PUB.BATCH_REQ returned status :' || l_return_status;
4704: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4705: END IF;
4706:
4707: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4708: RAISE Invalid_Arg_Exc_Dlv ;
4711:
4712: END IF;
4713:
4714: IF l_debug_mode = 'Y' THEN
4715: pa_debug.g_err_stage:= 'Exiting RUN_ACTION_CONC_PROCESS';
4716: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4717: pa_debug.reset_err_stack;
4718: pa_debug.reset_curr_function; --Added for bug 4945876
4719: END IF;
4712: END IF;
4713:
4714: IF l_debug_mode = 'Y' THEN
4715: pa_debug.g_err_stage:= 'Exiting RUN_ACTION_CONC_PROCESS';
4716: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4717: pa_debug.reset_err_stack;
4718: pa_debug.reset_curr_function; --Added for bug 4945876
4719: END IF;
4720:
4713:
4714: IF l_debug_mode = 'Y' THEN
4715: pa_debug.g_err_stage:= 'Exiting RUN_ACTION_CONC_PROCESS';
4716: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4717: pa_debug.reset_err_stack;
4718: pa_debug.reset_curr_function; --Added for bug 4945876
4719: END IF;
4720:
4721: EXCEPTION
4714: IF l_debug_mode = 'Y' THEN
4715: pa_debug.g_err_stage:= 'Exiting RUN_ACTION_CONC_PROCESS';
4716: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4717: pa_debug.reset_err_stack;
4718: pa_debug.reset_curr_function; --Added for bug 4945876
4719: END IF;
4720:
4721: EXCEPTION
4722:
4725: l_msg_count := FND_MSG_PUB.count_msg;
4726: retcode := '-1';
4727:
4728: IF l_debug_mode = 'Y' THEN
4729: pa_debug.g_err_stage := 'Inside Invalid Argument exception of RUN_ACTION_CONC_PROCESS';
4730: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4731: END IF;
4732:
4733: IF c_project_id_range%ISOPEN THEN
4726: retcode := '-1';
4727:
4728: IF l_debug_mode = 'Y' THEN
4729: pa_debug.g_err_stage := 'Inside Invalid Argument exception of RUN_ACTION_CONC_PROCESS';
4730: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4731: END IF;
4732:
4733: IF c_project_id_range%ISOPEN THEN
4734: CLOSE c_project_id_range ;
4753: errbuf := l_data;
4754: END IF;
4755:
4756: IF l_debug_mode = 'Y' THEN
4757: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_Stack);
4758: pa_debug.reset_err_stack;
4759: pa_debug.reset_curr_function; --Added for bug 4945876
4760: END IF ;
4761: 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 */
4754: END IF;
4755:
4756: IF l_debug_mode = 'Y' THEN
4757: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_Stack);
4758: pa_debug.reset_err_stack;
4759: pa_debug.reset_curr_function; --Added for bug 4945876
4760: END IF ;
4761: 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 */
4762:
4755:
4756: IF l_debug_mode = 'Y' THEN
4757: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_Stack);
4758: pa_debug.reset_err_stack;
4759: pa_debug.reset_curr_function; --Added for bug 4945876
4760: END IF ;
4761: 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 */
4762:
4763: WHEN OTHERS THEN
4781: ,p_procedure_name => 'RUN_ACTION_CONC_PROCESS'
4782: ,p_error_text => errbuf);
4783:
4784: IF l_debug_mode = 'Y' THEN
4785: pa_debug.g_err_stage:='Unexpected Error'||errbuf;
4786: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4787: pa_debug.reset_err_stack;
4788: pa_debug.reset_curr_function; --Added for bug 4945876
4789: END IF;
4782: ,p_error_text => errbuf);
4783:
4784: IF l_debug_mode = 'Y' THEN
4785: pa_debug.g_err_stage:='Unexpected Error'||errbuf;
4786: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4787: pa_debug.reset_err_stack;
4788: pa_debug.reset_curr_function; --Added for bug 4945876
4789: END IF;
4790:
4783:
4784: IF l_debug_mode = 'Y' THEN
4785: pa_debug.g_err_stage:='Unexpected Error'||errbuf;
4786: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4787: pa_debug.reset_err_stack;
4788: pa_debug.reset_curr_function; --Added for bug 4945876
4789: END IF;
4790:
4791: RAISE;
4784: IF l_debug_mode = 'Y' THEN
4785: pa_debug.g_err_stage:='Unexpected Error'||errbuf;
4786: pa_debug.write_file('RUN_ACTION_CONC_PROCESS :' || pa_debug.g_err_stage);
4787: pa_debug.reset_err_stack;
4788: pa_debug.reset_curr_function; --Added for bug 4945876
4789: END IF;
4790:
4791: RAISE;
4792: END RUN_ACTION_CONC_PROCESS ;
4954: -- if validations are successful, call UPDATE_DLV_ACTIONS_IN_BULK api
4955:
4956: x_msg_count := 0;
4957: x_return_status := FND_API.G_RET_STS_SUCCESS;
4958: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
4959:
4960: IF l_debug_mode = 'Y' THEN
4961: PA_DEBUG.set_curr_function( p_function => 'UPD_DLV_ACTIONS_IN_BULK_TM',
4962: p_debug_mode => l_debug_mode );
4957: x_return_status := FND_API.G_RET_STS_SUCCESS;
4958: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
4959:
4960: IF l_debug_mode = 'Y' THEN
4961: PA_DEBUG.set_curr_function( p_function => 'UPD_DLV_ACTIONS_IN_BULK_TM',
4962: p_debug_mode => l_debug_mode );
4963: pa_debug.g_err_stage:= 'Inside UPD_DLV_ACTIONS_IN_BULK_TM ';
4964: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
4965: END IF;
4959:
4960: IF l_debug_mode = 'Y' THEN
4961: PA_DEBUG.set_curr_function( p_function => 'UPD_DLV_ACTIONS_IN_BULK_TM',
4962: p_debug_mode => l_debug_mode );
4963: pa_debug.g_err_stage:= 'Inside UPD_DLV_ACTIONS_IN_BULK_TM ';
4964: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
4965: END IF;
4966:
4967: IF l_debug_mode = 'Y' THEN
4960: IF l_debug_mode = 'Y' THEN
4961: PA_DEBUG.set_curr_function( p_function => 'UPD_DLV_ACTIONS_IN_BULK_TM',
4962: p_debug_mode => l_debug_mode );
4963: pa_debug.g_err_stage:= 'Inside UPD_DLV_ACTIONS_IN_BULK_TM ';
4964: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
4965: END IF;
4966:
4967: IF l_debug_mode = 'Y' THEN
4968: pa_debug.g_err_stage:= 'Printing Input parameters';
4964: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
4965: END IF;
4966:
4967: IF l_debug_mode = 'Y' THEN
4968: pa_debug.g_err_stage:= 'Printing Input parameters';
4969: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
4970: pa_debug.write(g_module_name,'p_insert_or_update'||':'||p_insert_or_update,3) ;
4971: END IF;
4972:
4965: END IF;
4966:
4967: IF l_debug_mode = 'Y' THEN
4968: pa_debug.g_err_stage:= 'Printing Input parameters';
4969: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
4970: pa_debug.write(g_module_name,'p_insert_or_update'||':'||p_insert_or_update,3) ;
4971: END IF;
4972:
4973: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
4966:
4967: IF l_debug_mode = 'Y' THEN
4968: pa_debug.g_err_stage:= 'Printing Input parameters';
4969: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
4970: pa_debug.write(g_module_name,'p_insert_or_update'||':'||p_insert_or_update,3) ;
4971: END IF;
4972:
4973: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
4974: FND_MSG_PUB.initialize;
4980:
4981: -- Call the validation API. It will
4982: -- perform all the validation.
4983: IF l_debug_mode = 'Y' THEN
4984: pa_debug.g_err_stage:= 'Calling PA_ACTIONS_PUB.VALIDATE_ACTIONS';
4985: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
4986: END IF ;
4987:
4988: l_name_tbl.extend;
4981: -- Call the validation API. It will
4982: -- perform all the validation.
4983: IF l_debug_mode = 'Y' THEN
4984: pa_debug.g_err_stage:= 'Calling PA_ACTIONS_PUB.VALIDATE_ACTIONS';
4985: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
4986: END IF ;
4987:
4988: l_name_tbl.extend;
4989: l_completed_flag_tbl.extend;
4999:
5000: l_count:= 0;
5001:
5002: IF l_debug_mode = 'Y' THEN
5003: pa_debug.write(g_module_name,'No of actions ' || p_name_tbl.last,3) ;
5004: END IF ;
5005:
5006: IF nvl(p_name_tbl.last,0) >= 1 THEN -- Only if something is fetched
5007:
5009:
5010: FOR i in p_name_tbl.FIRST .. p_name_tbl.LAST LOOP
5011:
5012: IF l_debug_mode = 'Y' THEN
5013: pa_debug.write(g_module_name,'i ' || i,3) ;
5014: END IF ;
5015:
5016: l_name_tbl(l_count) := p_name_tbl(i);
5017:
5028: l_object_version_id := p_object_version_id_tbl(i);
5029: l_project_id := p_project_id_tbl(i);
5030:
5031: IF l_debug_mode = 'Y' THEN
5032: pa_debug.write(g_module_name,' validating action p_element_version_id_tbl ' || p_element_version_id_tbl(i) ,3) ;
5033: pa_debug.write(g_module_name,' validating action ( version id ) ' || l_element_version_id_tbl(l_count) ,3) ;
5034: END IF ;
5035:
5036: PA_ACTIONS_PUB.VALIDATE_ACTIONS
5029: l_project_id := p_project_id_tbl(i);
5030:
5031: IF l_debug_mode = 'Y' THEN
5032: pa_debug.write(g_module_name,' validating action p_element_version_id_tbl ' || p_element_version_id_tbl(i) ,3) ;
5033: pa_debug.write(g_module_name,' validating action ( version id ) ' || l_element_version_id_tbl(l_count) ,3) ;
5034: END IF ;
5035:
5036: PA_ACTIONS_PUB.VALIDATE_ACTIONS
5037: ( p_init_msg_list => FND_API.G_FALSE
5081:
5082: FOR i in p_name_tbl.FIRST .. p_name_tbl.LAST LOOP
5083:
5084: IF l_debug_mode = 'Y' THEN
5085: pa_debug.g_err_stage:= 'Update Operation';
5086: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5087: END IF;
5088:
5089: j_upd:=j_upd+1 ;
5082: FOR i in p_name_tbl.FIRST .. p_name_tbl.LAST LOOP
5083:
5084: IF l_debug_mode = 'Y' THEN
5085: pa_debug.g_err_stage:= 'Update Operation';
5086: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5087: END IF;
5088:
5089: j_upd:=j_upd+1 ;
5090:
5157: -- Call Update API to perform the update operation
5158: IF j_upd > 0 THEN
5159:
5160: IF l_debug_mode = 'Y' THEN
5161: pa_debug.g_err_stage:= 'Call UPDATE_DLV_ACTIONS_IN_BULK ';
5162: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5163: END IF;
5164:
5165: PA_ACTIONS_PUB.UPDATE_DLV_ACTIONS_IN_BULK
5158: IF j_upd > 0 THEN
5159:
5160: IF l_debug_mode = 'Y' THEN
5161: pa_debug.g_err_stage:= 'Call UPDATE_DLV_ACTIONS_IN_BULK ';
5162: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5163: END IF;
5164:
5165: PA_ACTIONS_PUB.UPDATE_DLV_ACTIONS_IN_BULK
5166: (p_api_version => p_api_version
5223:
5224: END IF ; -- Only if something is fetched
5225:
5226: IF l_debug_mode = 'Y' THEN
5227: pa_debug.g_err_stage:= 'Exiting UPD_DLV_ACTIONS_IN_BULK_TM' ;
5228: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5229: pa_debug.reset_curr_function;
5230: END IF;
5231:
5224: END IF ; -- Only if something is fetched
5225:
5226: IF l_debug_mode = 'Y' THEN
5227: pa_debug.g_err_stage:= 'Exiting UPD_DLV_ACTIONS_IN_BULK_TM' ;
5228: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5229: pa_debug.reset_curr_function;
5230: END IF;
5231:
5232: EXCEPTION
5225:
5226: IF l_debug_mode = 'Y' THEN
5227: pa_debug.g_err_stage:= 'Exiting UPD_DLV_ACTIONS_IN_BULK_TM' ;
5228: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5229: pa_debug.reset_curr_function;
5230: END IF;
5231:
5232: EXCEPTION
5233: WHEN Invalid_Arg_Exc_Dlv THEN
5238: ROLLBACK TO CR_UP_DLV_ACTIONS_SP;
5239: END IF ;
5240:
5241: IF l_debug_mode = 'Y' THEN
5242: pa_debug.g_err_stage := 'inside invalid arg exception of UPD_DLV_ACTIONS_IN_BULK_TM';
5243: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
5244: END IF;
5245:
5246: IF l_msg_count = 1 THEN
5239: END IF ;
5240:
5241: IF l_debug_mode = 'Y' THEN
5242: pa_debug.g_err_stage := 'inside invalid arg exception of UPD_DLV_ACTIONS_IN_BULK_TM';
5243: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
5244: END IF;
5245:
5246: IF l_msg_count = 1 THEN
5247: PA_INTERFACE_UTILS_PUB.get_messages
5256: ELSE
5257: x_msg_count := l_msg_count;
5258: END IF;
5259: IF l_debug_mode = 'Y' THEN
5260: pa_debug.reset_curr_function;
5261: END IF ;
5262: RETURN;
5263: WHEN OTHERS THEN
5264: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5272: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_ACTIONS_PUB'
5273: ,p_procedure_name => 'UPD_DLV_ACTIONS_IN_BULK_TM');
5274:
5275: IF p_debug_mode = 'Y' THEN
5276: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
5277: pa_debug.write(g_module_name,'UPD_DLV_ACTIONS_IN_BULK_TM: '|| pa_debug.g_err_stage,5);
5278: pa_debug.reset_curr_function;
5279: END IF;
5280: RAISE;
5273: ,p_procedure_name => 'UPD_DLV_ACTIONS_IN_BULK_TM');
5274:
5275: IF p_debug_mode = 'Y' THEN
5276: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
5277: pa_debug.write(g_module_name,'UPD_DLV_ACTIONS_IN_BULK_TM: '|| pa_debug.g_err_stage,5);
5278: pa_debug.reset_curr_function;
5279: END IF;
5280: RAISE;
5281: END UPD_DLV_ACTIONS_IN_BULK_TM ;
5274:
5275: IF p_debug_mode = 'Y' THEN
5276: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
5277: pa_debug.write(g_module_name,'UPD_DLV_ACTIONS_IN_BULK_TM: '|| pa_debug.g_err_stage,5);
5278: pa_debug.reset_curr_function;
5279: END IF;
5280: RAISE;
5281: END UPD_DLV_ACTIONS_IN_BULK_TM ;
5282:
5344: BEGIN
5345:
5346: x_msg_count := 0;
5347: x_return_status := FND_API.G_RET_STS_SUCCESS;
5348: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
5349:
5350: IF l_debug_mode = 'Y' THEN
5351: pa_debug.g_err_stage:= 'Entering RUN_ACTION_CONC_PROCESS_WRP';
5352: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5347: x_return_status := FND_API.G_RET_STS_SUCCESS;
5348: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
5349:
5350: IF l_debug_mode = 'Y' THEN
5351: pa_debug.g_err_stage:= 'Entering RUN_ACTION_CONC_PROCESS_WRP';
5352: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5353:
5354: pa_debug.set_curr_function( p_function => 'RUN_ACTION_CONC_PROCESS_WRP',
5355: p_debug_mode => l_debug_mode );
5348: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
5349:
5350: IF l_debug_mode = 'Y' THEN
5351: pa_debug.g_err_stage:= 'Entering RUN_ACTION_CONC_PROCESS_WRP';
5352: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5353:
5354: pa_debug.set_curr_function( p_function => 'RUN_ACTION_CONC_PROCESS_WRP',
5355: p_debug_mode => l_debug_mode );
5356: END IF;
5350: IF l_debug_mode = 'Y' THEN
5351: pa_debug.g_err_stage:= 'Entering RUN_ACTION_CONC_PROCESS_WRP';
5352: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5353:
5354: pa_debug.set_curr_function( p_function => 'RUN_ACTION_CONC_PROCESS_WRP',
5355: p_debug_mode => l_debug_mode );
5356: END IF;
5357:
5358: -- Initialise Message Stack
5367:
5368: --Printing Input Parameters
5369:
5370: IF l_debug_mode = 'Y' THEN
5371: pa_debug.g_err_stage:= 'The Project Id is :' || p_project_id ;
5372: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5373: END IF ;
5374:
5375: -- Validate Input parameters
5368: --Printing Input Parameters
5369:
5370: IF l_debug_mode = 'Y' THEN
5371: pa_debug.g_err_stage:= 'The Project Id is :' || p_project_id ;
5372: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5373: END IF ;
5374:
5375: -- Validate Input parameters
5376: IF l_debug_mode = 'Y' THEN
5373: END IF ;
5374:
5375: -- Validate Input parameters
5376: IF l_debug_mode = 'Y' THEN
5377: pa_debug.g_err_stage:= 'Validating Input parameters';
5378: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5379: END IF;
5380:
5381: IF p_project_id IS NULL THEN
5374:
5375: -- Validate Input parameters
5376: IF l_debug_mode = 'Y' THEN
5377: pa_debug.g_err_stage:= 'Validating Input parameters';
5378: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5379: END IF;
5380:
5381: IF p_project_id IS NULL THEN
5382: IF l_debug_mode = 'Y' THEN
5379: END IF;
5380:
5381: IF p_project_id IS NULL THEN
5382: IF l_debug_mode = 'Y' THEN
5383: pa_debug.g_err_stage:= 'Mandatory parameter to this API : Project ID is NULL';
5384: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5385: END IF;
5386: l_return_status := FND_API.G_RET_STS_ERROR;
5387: PA_UTILS.ADD_MESSAGE
5380:
5381: IF p_project_id IS NULL THEN
5382: IF l_debug_mode = 'Y' THEN
5383: pa_debug.g_err_stage:= 'Mandatory parameter to this API : Project ID is NULL';
5384: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5385: END IF;
5386: l_return_status := FND_API.G_RET_STS_ERROR;
5387: PA_UTILS.ADD_MESSAGE
5388: (p_app_short_name => 'PA',
5391: END IF;
5392:
5393: --Check for valid project id passed
5394: IF l_debug_mode = 'Y' THEN
5395: pa_debug.g_err_stage := 'Before doing cursor operation';
5396: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5397: END IF;
5398:
5399: -- 3671408 project_number is passed directly to the api
5392:
5393: --Check for valid project id passed
5394: IF l_debug_mode = 'Y' THEN
5395: pa_debug.g_err_stage := 'Before doing cursor operation';
5396: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5397: END IF;
5398:
5399: -- 3671408 project_number is passed directly to the api
5400: -- removed below code to retrieve and validate project_number
5403: FETCH c_project_number_from INTO l_project_number;
5404:
5405: IF c_project_number_from%NOTFOUND THEN
5406: IF l_debug_mode = 'Y' THEN
5407: pa_debug.g_err_stage:= 'No Project Number returned for the passed Project ID ';
5408: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5409: END IF;
5410: l_return_status := FND_API.G_RET_STS_ERROR;
5411: PA_UTILS.ADD_MESSAGE
5404:
5405: IF c_project_number_from%NOTFOUND THEN
5406: IF l_debug_mode = 'Y' THEN
5407: pa_debug.g_err_stage:= 'No Project Number returned for the passed Project ID ';
5408: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5409: END IF;
5410: l_return_status := FND_API.G_RET_STS_ERROR;
5411: PA_UTILS.ADD_MESSAGE
5412: (p_app_short_name => 'PA',
5420: -- 3671408 added below code to validate project_number
5421:
5422: IF p_project_number IS NULL THEN
5423: IF l_debug_mode = 'Y' THEN
5424: pa_debug.g_err_stage:= 'No Project Number returned for the passed Project ID ';
5425: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5426: END IF;
5427: l_return_status := FND_API.G_RET_STS_ERROR;
5428: PA_UTILS.ADD_MESSAGE
5421:
5422: IF p_project_number IS NULL THEN
5423: IF l_debug_mode = 'Y' THEN
5424: pa_debug.g_err_stage:= 'No Project Number returned for the passed Project ID ';
5425: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5426: END IF;
5427: l_return_status := FND_API.G_RET_STS_ERROR;
5428: PA_UTILS.ADD_MESSAGE
5429: (p_app_short_name => 'PA',
5433:
5434: -- 3671408 end
5435:
5436: IF l_debug_mode = 'Y' THEN
5437: pa_debug.g_err_stage := 'After doing cursor operation - Valid Project Number ';
5438: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5439: END IF;
5440:
5441: -- If the new project status has not been committed into Database,this cursor will fail
5434: -- 3671408 end
5435:
5436: IF l_debug_mode = 'Y' THEN
5437: pa_debug.g_err_stage := 'After doing cursor operation - Valid Project Number ';
5438: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5439: END IF;
5440:
5441: -- If the new project status has not been committed into Database,this cursor will fail
5442: -- This is due to the Autonomous Transaction definition.So,commented the following code
5447: FETCH c_project_sys_status_code into l_status_code ;
5448: CLOSE c_project_sys_status_code;
5449: IF nvl(l_status_code,'-99') <> 'APPROVED' THEN
5450: IF l_debug_mode = 'Y' THEN
5451: pa_debug.g_err_stage := 'The Project Status is not approved .So,No need to invoke concurrent process ';
5452: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5453: END IF;
5454: RETURN;
5455: END IF ;
5448: CLOSE c_project_sys_status_code;
5449: IF nvl(l_status_code,'-99') <> 'APPROVED' THEN
5450: IF l_debug_mode = 'Y' THEN
5451: pa_debug.g_err_stage := 'The Project Status is not approved .So,No need to invoke concurrent process ';
5452: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5453: END IF;
5454: RETURN;
5455: END IF ;
5456: */
5466: argument2 => p_project_number, -- 3671408 changed parameter value to passed IN parameter
5467: argument3 => NULL
5468: );
5469: IF l_debug_mode = 'Y' THEN
5470: pa_debug.g_err_stage:= 'Request id is '||l_request_id;
5471: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5472: END IF;
5473:
5474: -- Throw an error if the request could not be submitted.
5467: argument3 => NULL
5468: );
5469: IF l_debug_mode = 'Y' THEN
5470: pa_debug.g_err_stage:= 'Request id is '||l_request_id;
5471: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5472: END IF;
5473:
5474: -- Throw an error if the request could not be submitted.
5475: IF l_request_id = 0 THEN
5481:
5482: COMMIT ;
5483:
5484: IF l_debug_mode = 'Y' THEN
5485: pa_debug.g_err_stage:= 'Exiting RUN_ACTION_CONC_PROCESS_WRP ' ;
5486: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5487: pa_debug.reset_curr_function; --Added for bug 4945876
5488: END IF;
5489: EXCEPTION
5482: COMMIT ;
5483:
5484: IF l_debug_mode = 'Y' THEN
5485: pa_debug.g_err_stage:= 'Exiting RUN_ACTION_CONC_PROCESS_WRP ' ;
5486: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5487: pa_debug.reset_curr_function; --Added for bug 4945876
5488: END IF;
5489: EXCEPTION
5490: WHEN Invalid_Arg_Exc_Dlv THEN
5483:
5484: IF l_debug_mode = 'Y' THEN
5485: pa_debug.g_err_stage:= 'Exiting RUN_ACTION_CONC_PROCESS_WRP ' ;
5486: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
5487: pa_debug.reset_curr_function; --Added for bug 4945876
5488: END IF;
5489: EXCEPTION
5490: WHEN Invalid_Arg_Exc_Dlv THEN
5491: x_return_status := FND_API.G_RET_STS_ERROR;
5507: ROLLBACK TO RUN_ACTION_CONC_PROCESS_WRP_SP;
5508: END IF ;
5509:
5510: IF l_debug_mode = 'Y' THEN
5511: pa_debug.g_err_stage := 'Inside Invalid arg exception of RUN_ACTION_CONC_PROCESS_WRP';
5512: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
5513: END IF;
5514:
5515: IF l_msg_count = 1 THEN
5508: END IF ;
5509:
5510: IF l_debug_mode = 'Y' THEN
5511: pa_debug.g_err_stage := 'Inside Invalid arg exception of RUN_ACTION_CONC_PROCESS_WRP';
5512: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
5513: END IF;
5514:
5515: IF l_msg_count = 1 THEN
5516: PA_INTERFACE_UTILS_PUB.get_messages
5523: x_msg_data := l_data;
5524: x_msg_count := l_msg_count;
5525: END IF;
5526: IF l_debug_mode = 'Y' THEN
5527: pa_debug.reset_curr_function;
5528: END IF ;
5529: RETURN;
5530: WHEN OTHERS THEN
5531: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5552: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_ACTIONS_PUB'
5553: ,p_procedure_name => 'RUN_ACTION_CONC_PROCESS_WRP');
5554:
5555: IF p_debug_mode = 'Y' THEN
5556: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
5557: pa_debug.write(g_module_name, pa_debug.g_err_stage,5);
5558: pa_debug.reset_curr_function;
5559: END IF;
5560: RAISE;
5553: ,p_procedure_name => 'RUN_ACTION_CONC_PROCESS_WRP');
5554:
5555: IF p_debug_mode = 'Y' THEN
5556: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
5557: pa_debug.write(g_module_name, pa_debug.g_err_stage,5);
5558: pa_debug.reset_curr_function;
5559: END IF;
5560: RAISE;
5561: END RUN_ACTION_CONC_PROCESS_WRP ;
5554:
5555: IF p_debug_mode = 'Y' THEN
5556: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
5557: pa_debug.write(g_module_name, pa_debug.g_err_stage,5);
5558: pa_debug.reset_curr_function;
5559: END IF;
5560: RAISE;
5561: END RUN_ACTION_CONC_PROCESS_WRP ;
5562: