[Home] [Help]
86: BEGIN
87:
88: x_return_status := FND_API.G_RET_STS_SUCCESS;
89: x_msg_count := 0;
90: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
91:
92: IF l_debug_mode = 'Y' THEN
93: PA_DEBUG.set_curr_function(p_function => 'Add_Workplan_Impact', p_debug_mode => l_debug_mode);
94: END IF;
89: x_msg_count := 0;
90: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
91:
92: IF l_debug_mode = 'Y' THEN
93: PA_DEBUG.set_curr_function(p_function => 'Add_Workplan_Impact', p_debug_mode => l_debug_mode);
94: END IF;
95:
96: --initializing the message stack.
97: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list, FND_API.G_TRUE)) THEN
102: savepoint ADD_WORKPLAN_IMPACT_SVPT;
103: END IF;
104:
105: IF l_debug_mode = 'Y' THEN
106: pa_debug.write(l_module_name, 'Start of Add Workplan Impact', l_debug_level3);
107: END IF;
108:
109: /*validating the CI_ID for null value*/
110: if p_ci_id is null or p_ci_id = G_PA_MISS_NUM then
110: if p_ci_id is null or p_ci_id = G_PA_MISS_NUM then
111: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
112: p_msg_name => 'PA_CI_MISS_CI_ID');
113: if l_debug_mode = 'Y' then
114: pa_debug.g_err_stage:= 'The ci_id is null';
115: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
116: end if;
117: raise FND_API.G_EXC_ERROR;
118: end if;
111: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
112: p_msg_name => 'PA_CI_MISS_CI_ID');
113: if l_debug_mode = 'Y' then
114: pa_debug.g_err_stage:= 'The ci_id is null';
115: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
116: end if;
117: raise FND_API.G_EXC_ERROR;
118: end if;
119:
120: /*Calling the private API
121: This update_impacts will do all the necessary validations and call
122: other procedure to insert the details*/
123: if l_debug_mode = 'Y' then
124: pa_debug.g_err_stage:= 'Before Calling the Private API PA_CONTROL_API_PVT.update_impacts';
125: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
126: end if;
127:
128:
121: This update_impacts will do all the necessary validations and call
122: other procedure to insert the details*/
123: if l_debug_mode = 'Y' then
124: pa_debug.g_err_stage:= 'Before Calling the Private API PA_CONTROL_API_PVT.update_impacts';
125: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
126: end if;
127:
128:
129: PA_CONTROL_API_PVT.update_impacts(
144: COMMIT;
145: END IF;
146: --Reset the stack
147: if l_debug_mode = 'Y' then
148: Pa_Debug.reset_curr_function;
149: end if;
150:
151: Exception
152: when FND_API.G_EXC_ERROR then
172: end if;
173:
174: --Reset the stack
175: if l_debug_mode = 'Y' then
176: Pa_Debug.reset_curr_function;
177: end if;
178:
179: when others then
180:
188: p_procedure_name => 'Add_Workplan_Impact',
189: p_error_text => x_msg_data);
190: x_msg_count := FND_MSG_PUB.count_msg;
191: if l_debug_mode = 'Y' then
192: pa_debug.reset_err_stack;
193: end if;
194:
195: End Add_Workplan_Impact;
196:
218: BEGIN
219:
220: x_return_status := FND_API.G_RET_STS_SUCCESS;
221: x_msg_count := 0;
222: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
223:
224: IF l_debug_mode = 'Y' THEN
225: PA_DEBUG.set_curr_function(p_function => 'Add_Staffing_Impact', p_debug_mode => l_debug_mode);
226: END IF;
221: x_msg_count := 0;
222: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
223:
224: IF l_debug_mode = 'Y' THEN
225: PA_DEBUG.set_curr_function(p_function => 'Add_Staffing_Impact', p_debug_mode => l_debug_mode);
226: END IF;
227:
228: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list, FND_API.G_TRUE)) THEN
229: FND_MSG_PUB.initialize;
233: savepoint ADD_STAFFING_IMPACT_SVPT;
234: END IF;
235:
236: IF l_debug_mode = 'Y' THEN
237: pa_debug.write(l_module_name, 'Start of Add Staffing Impact', l_debug_level3);
238: END IF;
239:
240: /*validating the CI_ID for null value*/
241: if p_ci_id is null or p_ci_id = G_PA_MISS_NUM then
241: if p_ci_id is null or p_ci_id = G_PA_MISS_NUM then
242: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
243: p_msg_name => 'PA_CI_MISS_CI_ID');
244: if l_debug_mode = 'Y' then
245: pa_debug.g_err_stage:= 'The ci_id is null';
246: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
247: end if;
248: raise FND_API.G_EXC_ERROR;
249: end if;
242: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
243: p_msg_name => 'PA_CI_MISS_CI_ID');
244: if l_debug_mode = 'Y' then
245: pa_debug.g_err_stage:= 'The ci_id is null';
246: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
247: end if;
248: raise FND_API.G_EXC_ERROR;
249: end if;
250:
251: /*Calling the private API
252: This update_impacts will do all the necessary validations and call
253: other procedure to insert the details*/
254: if l_debug_mode = 'Y' then
255: pa_debug.g_err_stage:= 'Before Calling the Private API PA_CONTROL_API_PVT.update_impacts';
256: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
257: end if;
258: PA_CONTROL_API_PVT.update_impacts(
259: p_ci_id => p_ci_id,
252: This update_impacts will do all the necessary validations and call
253: other procedure to insert the details*/
254: if l_debug_mode = 'Y' then
255: pa_debug.g_err_stage:= 'Before Calling the Private API PA_CONTROL_API_PVT.update_impacts';
256: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
257: end if;
258: PA_CONTROL_API_PVT.update_impacts(
259: p_ci_id => p_ci_id,
260: x_ci_impact_id => x_impact_id,
273: COMMIT;
274: END IF;
275: --Reset the stack
276: if l_debug_mode = 'Y' then
277: Pa_Debug.reset_curr_function;
278: end if;
279:
280: Exception
281: when FND_API.G_EXC_ERROR then
301: x_msg_count := l_msg_count;
302: end if;
303: --Reset the stack
304: if l_debug_mode = 'Y' then
305: Pa_Debug.reset_curr_function;
306: end if;
307:
308: when others then
309: x_return_status := fnd_api.g_ret_sts_unexp_error;
315: p_procedure_name => 'Add_Staffing_Impact',
316: p_error_text => x_msg_data);
317: x_msg_count := FND_MSG_PUB.count_msg;
318: if l_debug_mode = 'Y' then
319: pa_debug.reset_err_stack;
320: end if;
321:
322: End Add_Staffing_Impact;
323:
346: BEGIN
347:
348: x_return_status := FND_API.G_RET_STS_SUCCESS;
349: x_msg_count := 0;
350: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
351:
352: IF l_debug_mode = 'Y' THEN
353: PA_DEBUG.set_curr_function(p_function => 'Add_Contract_Impact', p_debug_mode => l_debug_mode);
354: END IF;
349: x_msg_count := 0;
350: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
351:
352: IF l_debug_mode = 'Y' THEN
353: PA_DEBUG.set_curr_function(p_function => 'Add_Contract_Impact', p_debug_mode => l_debug_mode);
354: END IF;
355:
356: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list, FND_API.G_TRUE)) THEN
357: FND_MSG_PUB.initialize;
361: savepoint ADD_CONTRACT_IMPACT_SVPT;
362: END IF;
363:
364: IF l_debug_mode = 'Y' THEN
365: pa_debug.write(l_module_name, 'Start of Add Contract Impact', l_debug_level3);
366: END IF;
367:
368: /*validating the CI_ID for null value*/
369: if p_ci_id is null or p_ci_id = G_PA_MISS_NUM then
369: if p_ci_id is null or p_ci_id = G_PA_MISS_NUM then
370: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
371: p_msg_name => 'PA_CI_MISS_CI_ID');
372: if l_debug_mode = 'Y' then
373: pa_debug.g_err_stage:= 'The ci_id is null';
374: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
375: end if;
376: raise FND_API.G_EXC_ERROR;
377: end if;
370: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
371: p_msg_name => 'PA_CI_MISS_CI_ID');
372: if l_debug_mode = 'Y' then
373: pa_debug.g_err_stage:= 'The ci_id is null';
374: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
375: end if;
376: raise FND_API.G_EXC_ERROR;
377: end if;
378:
379: /*Calling the private API
380: This update_impacts will do all the necessary validations and call
381: other procedure to insert the details*/
382: if l_debug_mode = 'Y' then
383: pa_debug.g_err_stage:= 'Before Calling the Private API PA_CONTROL_API_PVT.update_impacts';
384: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
385: end if;
386:
387: PA_CONTROL_API_PVT.update_impacts(
380: This update_impacts will do all the necessary validations and call
381: other procedure to insert the details*/
382: if l_debug_mode = 'Y' then
383: pa_debug.g_err_stage:= 'Before Calling the Private API PA_CONTROL_API_PVT.update_impacts';
384: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
385: end if;
386:
387: PA_CONTROL_API_PVT.update_impacts(
388: p_ci_id => p_ci_id,
402: COMMIT;
403: END IF;
404: --Reset the stack
405: if l_debug_mode = 'Y' then
406: Pa_Debug.reset_curr_function;
407: end if;
408: Exception
409: when FND_API.G_EXC_ERROR then
410:
428: x_msg_count := l_msg_count;
429: end if;
430: --Reset the stack
431: if l_debug_mode = 'Y' then
432: Pa_Debug.reset_curr_function;
433: end if;
434:
435: when others then
436: x_return_status := fnd_api.g_ret_sts_unexp_error;
443: p_procedure_name => 'Add_Contract_Impact',
444: p_error_text => x_msg_data);
445: x_msg_count := FND_MSG_PUB.count_msg;
446: if l_debug_mode = 'Y' then
447: pa_debug.reset_err_stack;
448: end if;
449: End Add_Contract_Impact;
450:
451: /*Procedure to add Other impact*/
471: BEGIN
472:
473: x_return_status := FND_API.G_RET_STS_SUCCESS;
474: x_msg_count := 0;
475: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
476:
477: IF l_debug_mode = 'Y' THEN
478: PA_DEBUG.set_curr_function(p_function => 'Add_Other_Impact', p_debug_mode => l_debug_mode);
479: END IF;
474: x_msg_count := 0;
475: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
476:
477: IF l_debug_mode = 'Y' THEN
478: PA_DEBUG.set_curr_function(p_function => 'Add_Other_Impact', p_debug_mode => l_debug_mode);
479: END IF;
480:
481: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list, FND_API.G_TRUE)) THEN
482: FND_MSG_PUB.initialize;
486: savepoint ADD_OTHER_IMPACT_SVPT;
487: END IF;
488:
489: IF l_debug_mode = 'Y' THEN
490: pa_debug.write(l_module_name, 'Start of Add Other Impact', l_debug_level3);
491: END IF;
492:
493: /*validating the CI_ID for null value*/
494: if p_ci_id is null or p_ci_id = G_PA_MISS_NUM then
494: if p_ci_id is null or p_ci_id = G_PA_MISS_NUM then
495: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
496: p_msg_name => 'PA_CI_MISS_CI_ID');
497: if l_debug_mode = 'Y' then
498: pa_debug.g_err_stage:= 'The ci_id is null';
499: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
500: end if;
501: raise FND_API.G_EXC_ERROR;
502: end if;
495: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
496: p_msg_name => 'PA_CI_MISS_CI_ID');
497: if l_debug_mode = 'Y' then
498: pa_debug.g_err_stage:= 'The ci_id is null';
499: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
500: end if;
501: raise FND_API.G_EXC_ERROR;
502: end if;
503:
504: /*Calling the private API
505: This update_impacts will do all the necessary validations and call
506: other procedure to insert the details*/
507: if l_debug_mode = 'Y' then
508: pa_debug.g_err_stage:= 'Before Calling the Private API PA_CONTROL_API_PVT.update_impacts';
509: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
510: end if;
511:
512: PA_CONTROL_API_PVT.update_impacts(
505: This update_impacts will do all the necessary validations and call
506: other procedure to insert the details*/
507: if l_debug_mode = 'Y' then
508: pa_debug.g_err_stage:= 'Before Calling the Private API PA_CONTROL_API_PVT.update_impacts';
509: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
510: end if;
511:
512: PA_CONTROL_API_PVT.update_impacts(
513: p_ci_id => p_ci_id,
527: COMMIT;
528: END IF;
529: --Reset the stack
530: if l_debug_mode = 'Y' then
531: Pa_Debug.reset_curr_function;
532: end if;
533: Exception
534: when FND_API.G_EXC_ERROR then
535:
553: x_msg_count := l_msg_count;
554: end if;
555: --Reset the stack
556: if l_debug_mode = 'Y' then
557: Pa_Debug.reset_curr_function;
558: end if;
559:
560: when others then
561: x_return_status := fnd_api.g_ret_sts_unexp_error;
569: p_error_text => x_msg_data);
570: x_msg_count := FND_MSG_PUB.count_msg;
571:
572: if l_debug_mode = 'Y' then
573: pa_debug.reset_err_stack;
574: end if;
575: End Add_Other_Impact;
576:
577: /*Procedure to add Supplier impact ,
612:
613: BEGIN
614: x_return_status := FND_API.G_RET_STS_SUCCESS;
615: x_msg_count := 0;
616: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
617:
618: IF l_debug_mode = 'Y' THEN
619: PA_DEBUG.set_curr_function(p_function => 'Add_Supplier_Impact', p_debug_mode => l_debug_mode);
620: END IF;
615: x_msg_count := 0;
616: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
617:
618: IF l_debug_mode = 'Y' THEN
619: PA_DEBUG.set_curr_function(p_function => 'Add_Supplier_Impact', p_debug_mode => l_debug_mode);
620: END IF;
621:
622: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list, FND_API.G_TRUE)) THEN
623: FND_MSG_PUB.initialize;
627: savepoint ADD_SUPPLIER_IMPACT_SVPT;
628: END IF;
629:
630: IF l_debug_mode = 'Y' THEN
631: pa_debug.write(l_module_name, 'Start of Add_Supplier_Impact', l_debug_level3);
632: END IF;
633:
634: /*validating the CI_ID for null value*/
635: if p_ci_id is null or p_ci_id = G_PA_MISS_NUM then
635: if p_ci_id is null or p_ci_id = G_PA_MISS_NUM then
636: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
637: p_msg_name => 'PA_CI_MISS_CI_ID');
638: if l_debug_mode = 'Y' then
639: pa_debug.g_err_stage:= 'The ci_id is null';
640: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
641: end if;
642: raise FND_API.G_EXC_ERROR;
643: end if;
636: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
637: p_msg_name => 'PA_CI_MISS_CI_ID');
638: if l_debug_mode = 'Y' then
639: pa_debug.g_err_stage:= 'The ci_id is null';
640: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
641: end if;
642: raise FND_API.G_EXC_ERROR;
643: end if;
644: if l_debug_mode = 'Y' then
641: end if;
642: raise FND_API.G_EXC_ERROR;
643: end if;
644: if l_debug_mode = 'Y' then
645: pa_debug.g_err_stage:= 'Before Calling the Private API PA_CONTROL_API_PVT.update_impacts';
646: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
647: end if;
648: /*Calling the private API
649: This update_impacts will do all the necessary validations and call
642: raise FND_API.G_EXC_ERROR;
643: end if;
644: if l_debug_mode = 'Y' then
645: pa_debug.g_err_stage:= 'Before Calling the Private API PA_CONTROL_API_PVT.update_impacts';
646: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
647: end if;
648: /*Calling the private API
649: This update_impacts will do all the necessary validations and call
650: other procedure to insert the details*/
661: );
662:
663: /* Adding the details of suppliers.*/
664: if l_debug_mode = 'Y' then
665: pa_debug.g_err_stage:= 'Created the supplier impact and calling the supplier details API.';
666: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
667: end if;
668: /*Calling the supplier details API add Supplier details procedure.
669: If any of the details did not get inserted successfully then roll back
662:
663: /* Adding the details of suppliers.*/
664: if l_debug_mode = 'Y' then
665: pa_debug.g_err_stage:= 'Created the supplier impact and calling the supplier details API.';
666: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
667: end if;
668: /*Calling the supplier details API add Supplier details procedure.
669: If any of the details did not get inserted successfully then roll back
670: them including the impact.*/
686: COMMIT;
687: END IF;
688: --Reset the stack
689: if l_debug_mode = 'Y' then
690: Pa_Debug.reset_curr_function;
691: end if;
692:
693: Exception
694: when FND_API.G_EXC_ERROR then
717: end if;
718:
719: --Reset the stack
720: if l_debug_mode = 'Y' then
721: Pa_Debug.reset_curr_function;
722: end if;
723:
724: when others then
725:
733: p_error_text => x_msg_data);
734: x_msg_count := FND_MSG_PUB.count_msg;
735: --Reset the stack
736: if l_debug_mode = 'Y' then
737: Pa_Debug.reset_curr_function;
738: end if;
739: End Add_Supplier_Impact;
740:
741:
763: BEGIN
764:
765: x_return_status := FND_API.G_RET_STS_SUCCESS;
766: x_msg_count := 0;
767: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
768:
769: IF l_debug_mode = 'Y' THEN
770: PA_DEBUG.set_curr_function(p_function => 'Update_Workplan_Impact', p_debug_mode => l_debug_mode);
771: END IF;
766: x_msg_count := 0;
767: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
768:
769: IF l_debug_mode = 'Y' THEN
770: PA_DEBUG.set_curr_function(p_function => 'Update_Workplan_Impact', p_debug_mode => l_debug_mode);
771: END IF;
772:
773: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list, FND_API.G_TRUE)) THEN
774: FND_MSG_PUB.initialize;
778: savepoint UPDATE_WORKPLAN_IMPACT_SVPT;
779: END IF;
780:
781: IF l_debug_mode = 'Y' THEN
782: pa_debug.write(l_module_name, 'Start of Update_Workplan_Impact', l_debug_level3);
783: END IF;
784:
785: /*validating the CI_ID for null value*/
786: if p_ci_id is null or p_ci_id = G_PA_MISS_NUM then
786: if p_ci_id is null or p_ci_id = G_PA_MISS_NUM then
787: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
788: p_msg_name => 'PA_CI_MISS_CI_ID');
789: if l_debug_mode = 'Y' then
790: pa_debug.g_err_stage:= 'The ci_id is null';
791: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
792: end if;
793: raise FND_API.G_EXC_ERROR;
794: end if;
787: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
788: p_msg_name => 'PA_CI_MISS_CI_ID');
789: if l_debug_mode = 'Y' then
790: pa_debug.g_err_stage:= 'The ci_id is null';
791: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
792: end if;
793: raise FND_API.G_EXC_ERROR;
794: end if;
795:
797: /*Calling the private API
798: This update_impacts will do all the necessary validations and call
799: other procedure to insert the details*/
800: if l_debug_mode = 'Y' then
801: pa_debug.g_err_stage:= 'Before Calling the Private API PA_CONTROL_API_PVT.update_impacts';
802: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
803: end if;
804:
805: PA_CONTROL_API_PVT.update_impacts(
798: This update_impacts will do all the necessary validations and call
799: other procedure to insert the details*/
800: if l_debug_mode = 'Y' then
801: pa_debug.g_err_stage:= 'Before Calling the Private API PA_CONTROL_API_PVT.update_impacts';
802: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
803: end if;
804:
805: PA_CONTROL_API_PVT.update_impacts(
806: p_ci_id => p_ci_id ,
818: COMMIT;
819: END IF;
820: --Reset the stack
821: if l_debug_mode = 'Y' then
822: Pa_Debug.reset_curr_function;
823: end if;
824:
825: Exception
826: when FND_API.G_EXC_ERROR then
847: end if;
848:
849: --Reset the stack
850: if l_debug_mode = 'Y' then
851: Pa_Debug.reset_curr_function;
852: end if;
853:
854: when others then
855:
865: p_error_text => x_msg_data);
866: x_msg_count := FND_MSG_PUB.count_msg;
867: --Reset the stack
868: if l_debug_mode = 'Y' then
869: Pa_Debug.reset_curr_function;
870: end if;
871:
872: End Update_Workplan_Impact;
873:
895: BEGIN
896:
897: x_return_status := FND_API.G_RET_STS_SUCCESS;
898: x_msg_count := 0;
899: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
900:
901: IF l_debug_mode = 'Y' THEN
902: PA_DEBUG.set_curr_function(p_function => 'Update_Staffing_Impact', p_debug_mode => l_debug_mode);
903: END IF;
898: x_msg_count := 0;
899: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
900:
901: IF l_debug_mode = 'Y' THEN
902: PA_DEBUG.set_curr_function(p_function => 'Update_Staffing_Impact', p_debug_mode => l_debug_mode);
903: END IF;
904:
905: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list, FND_API.G_TRUE)) THEN
906: FND_MSG_PUB.initialize;
910: savepoint UPDATE_STAFFING_IMPACT_SVPT;
911: END IF;
912:
913: IF l_debug_mode = 'Y' THEN
914: pa_debug.write(l_module_name, 'Start of Update_Staffing_Impact', l_debug_level3);
915: END IF;
916:
917: /*validating the CI_ID for null value*/
918: if p_ci_id is null or p_ci_id = G_PA_MISS_NUM then
918: if p_ci_id is null or p_ci_id = G_PA_MISS_NUM then
919: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
920: p_msg_name => 'PA_CI_MISS_CI_ID');
921: if l_debug_mode = 'Y' then
922: pa_debug.g_err_stage:= 'The ci_id is null';
923: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
924: end if;
925: raise FND_API.G_EXC_ERROR;
926: end if;
919: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
920: p_msg_name => 'PA_CI_MISS_CI_ID');
921: if l_debug_mode = 'Y' then
922: pa_debug.g_err_stage:= 'The ci_id is null';
923: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
924: end if;
925: raise FND_API.G_EXC_ERROR;
926: end if;
927:
930: /*Calling the private API
931: This update_impacts will do all the necessary validations and call
932: other procedure to insert the details*/
933: if l_debug_mode = 'Y' then
934: pa_debug.g_err_stage:= 'Before Calling the Private API PA_CONTROL_API_PVT.update_impacts';
935: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
936: end if;
937:
938: PA_CONTROL_API_PVT.update_impacts(
931: This update_impacts will do all the necessary validations and call
932: other procedure to insert the details*/
933: if l_debug_mode = 'Y' then
934: pa_debug.g_err_stage:= 'Before Calling the Private API PA_CONTROL_API_PVT.update_impacts';
935: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
936: end if;
937:
938: PA_CONTROL_API_PVT.update_impacts(
939: p_ci_id => p_ci_id ,
951: COMMIT;
952: END IF;
953: --Reset the stack
954: if l_debug_mode = 'Y' then
955: Pa_Debug.reset_curr_function;
956: end if;
957:
958: Exception
959: when FND_API.G_EXC_ERROR then
980: end if;
981:
982: --Reset the stack
983: if l_debug_mode = 'Y' then
984: Pa_Debug.reset_curr_function;
985: end if;
986:
987: when others then
988:
998: p_error_text => x_msg_data);
999: x_msg_count := FND_MSG_PUB.count_msg;
1000: --Reset the stack
1001: if l_debug_mode = 'Y' then
1002: Pa_Debug.reset_curr_function;
1003: end if;
1004:
1005: End Update_Staffing_Impact;
1006:
1029: BEGIN
1030:
1031: x_return_status := FND_API.G_RET_STS_SUCCESS;
1032: x_msg_count := 0;
1033: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
1034:
1035: IF l_debug_mode = 'Y' THEN
1036: PA_DEBUG.set_curr_function(p_function => 'Update_Contract_Impact', p_debug_mode => l_debug_mode);
1037: END IF;
1032: x_msg_count := 0;
1033: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
1034:
1035: IF l_debug_mode = 'Y' THEN
1036: PA_DEBUG.set_curr_function(p_function => 'Update_Contract_Impact', p_debug_mode => l_debug_mode);
1037: END IF;
1038:
1039: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list, FND_API.G_TRUE)) THEN
1040: FND_MSG_PUB.initialize;
1044: savepoint UPDATE_CONTRACT_IMPACT_SVPT;
1045: END IF;
1046:
1047: IF l_debug_mode = 'Y' THEN
1048: pa_debug.write(l_module_name, 'Start of Update_Contract_Impact', l_debug_level3);
1049: END IF;
1050:
1051: /*validating the CI_ID for null value*/
1052: if p_ci_id is null or p_ci_id = G_PA_MISS_NUM then
1052: if p_ci_id is null or p_ci_id = G_PA_MISS_NUM then
1053: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1054: p_msg_name => 'PA_CI_MISS_CI_ID');
1055: if l_debug_mode = 'Y' then
1056: pa_debug.g_err_stage:= 'The ci_id is null';
1057: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1058: end if;
1059: raise FND_API.G_EXC_ERROR;
1060: end if;
1053: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1054: p_msg_name => 'PA_CI_MISS_CI_ID');
1055: if l_debug_mode = 'Y' then
1056: pa_debug.g_err_stage:= 'The ci_id is null';
1057: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1058: end if;
1059: raise FND_API.G_EXC_ERROR;
1060: end if;
1061:
1063: /*Calling the private API
1064: This update_impacts will do all the necessary validations and call
1065: other procedure to insert the details*/
1066: if l_debug_mode = 'Y' then
1067: pa_debug.g_err_stage:= 'Before Calling the Private API PA_CONTROL_API_PVT.update_impacts';
1068: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1069: end if;
1070:
1071: PA_CONTROL_API_PVT.update_impacts(
1064: This update_impacts will do all the necessary validations and call
1065: other procedure to insert the details*/
1066: if l_debug_mode = 'Y' then
1067: pa_debug.g_err_stage:= 'Before Calling the Private API PA_CONTROL_API_PVT.update_impacts';
1068: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1069: end if;
1070:
1071: PA_CONTROL_API_PVT.update_impacts(
1072: p_ci_id => p_ci_id ,
1084: COMMIT;
1085: END IF;
1086: --Reset the stack
1087: if l_debug_mode = 'Y' then
1088: Pa_Debug.reset_curr_function;
1089: end if;
1090:
1091: Exception
1092: when FND_API.G_EXC_ERROR then
1113: end if;
1114:
1115: --Reset the stack
1116: if l_debug_mode = 'Y' then
1117: Pa_Debug.reset_curr_function;
1118: end if;
1119:
1120: when others then
1121:
1130: p_error_text => x_msg_data);
1131: x_msg_count := FND_MSG_PUB.count_msg;
1132: --Reset the stack
1133: if l_debug_mode = 'Y' then
1134: Pa_Debug.reset_curr_function;
1135: end if;
1136:
1137: End Update_Contract_Impact;
1138:
1161: BEGIN
1162:
1163: x_return_status := FND_API.G_RET_STS_SUCCESS;
1164: x_msg_count := 0;
1165: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
1166:
1167: IF l_debug_mode = 'Y' THEN
1168: PA_DEBUG.set_curr_function(p_function => 'Update_Other_Impact', p_debug_mode => l_debug_mode);
1169: END IF;
1164: x_msg_count := 0;
1165: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
1166:
1167: IF l_debug_mode = 'Y' THEN
1168: PA_DEBUG.set_curr_function(p_function => 'Update_Other_Impact', p_debug_mode => l_debug_mode);
1169: END IF;
1170:
1171: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list, FND_API.G_TRUE)) THEN
1172: FND_MSG_PUB.initialize;
1176: savepoint UPDATE_OTHER_IMPACT_SVPT;
1177: END IF;
1178:
1179: IF l_debug_mode = 'Y' THEN
1180: pa_debug.write(l_module_name, 'Start of Update_Other_Impact', l_debug_level3);
1181: END IF;
1182:
1183: /*validating the CI_ID for null value*/
1184: if p_ci_id is null or p_ci_id = G_PA_MISS_NUM then
1184: if p_ci_id is null or p_ci_id = G_PA_MISS_NUM then
1185: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1186: p_msg_name => 'PA_CI_MISS_CI_ID');
1187: if l_debug_mode = 'Y' then
1188: pa_debug.g_err_stage:= 'The ci_id is null';
1189: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1190: end if;
1191: raise FND_API.G_EXC_ERROR;
1192: end if;
1185: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1186: p_msg_name => 'PA_CI_MISS_CI_ID');
1187: if l_debug_mode = 'Y' then
1188: pa_debug.g_err_stage:= 'The ci_id is null';
1189: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1190: end if;
1191: raise FND_API.G_EXC_ERROR;
1192: end if;
1193:
1196: /*Calling the private API
1197: This update_impacts will do all the necessary validations and call
1198: other procedure to insert the details*/
1199: if l_debug_mode = 'Y' then
1200: pa_debug.g_err_stage:= 'Before Calling the Private API PA_CONTROL_API_PVT.update_impacts';
1201: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1202: end if;
1203:
1204: PA_CONTROL_API_PVT.update_impacts(
1197: This update_impacts will do all the necessary validations and call
1198: other procedure to insert the details*/
1199: if l_debug_mode = 'Y' then
1200: pa_debug.g_err_stage:= 'Before Calling the Private API PA_CONTROL_API_PVT.update_impacts';
1201: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1202: end if;
1203:
1204: PA_CONTROL_API_PVT.update_impacts(
1205: p_ci_id => p_ci_id ,
1217: COMMIT;
1218: END IF;
1219: --Reset the stack
1220: if l_debug_mode = 'Y' then
1221: Pa_Debug.reset_curr_function;
1222: end if;
1223:
1224: Exception
1225: when FND_API.G_EXC_ERROR then
1246: end if;
1247:
1248: --Reset the stack
1249: if l_debug_mode = 'Y' then
1250: Pa_Debug.reset_curr_function;
1251: end if;
1252:
1253: when others then
1254:
1264: p_error_text => x_msg_data);
1265: x_msg_count := FND_MSG_PUB.count_msg;
1266: --Reset the stack
1267: if l_debug_mode = 'Y' then
1268: Pa_Debug.reset_curr_function;
1269: end if;
1270: End Update_Other_Impact;
1271:
1272: Procedure Update_Supplier_Impact (
1292: BEGIN
1293:
1294: x_return_status := FND_API.G_RET_STS_SUCCESS;
1295: x_msg_count := 0;
1296: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
1297:
1298: IF l_debug_mode = 'Y' THEN
1299: PA_DEBUG.set_curr_function(p_function => 'Update_Supplier_Impact', p_debug_mode => l_debug_mode);
1300: END IF;
1295: x_msg_count := 0;
1296: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
1297:
1298: IF l_debug_mode = 'Y' THEN
1299: PA_DEBUG.set_curr_function(p_function => 'Update_Supplier_Impact', p_debug_mode => l_debug_mode);
1300: END IF;
1301:
1302: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list, FND_API.G_TRUE)) THEN
1303: FND_MSG_PUB.initialize;
1307: savepoint UPDATE_SUPPLIER_IMPACT_SVPT;
1308: END IF;
1309:
1310: IF l_debug_mode = 'Y' THEN
1311: pa_debug.write(l_module_name, 'Start of Update_Supplier_Impact', l_debug_level3);
1312: END IF;
1313:
1314: /*validating the CI_ID for null value*/
1315: if p_ci_id is null or p_ci_id = G_PA_MISS_NUM then
1315: if p_ci_id is null or p_ci_id = G_PA_MISS_NUM then
1316: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1317: p_msg_name => 'PA_CI_MISS_CI_ID');
1318: if l_debug_mode = 'Y' then
1319: pa_debug.g_err_stage:= 'The ci_id is null';
1320: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1321: end if;
1322: raise FND_API.G_EXC_ERROR;
1323: end if;
1316: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1317: p_msg_name => 'PA_CI_MISS_CI_ID');
1318: if l_debug_mode = 'Y' then
1319: pa_debug.g_err_stage:= 'The ci_id is null';
1320: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1321: end if;
1322: raise FND_API.G_EXC_ERROR;
1323: end if;
1324:
1326: /*Calling the private API
1327: This update_impacts will do all the necessary validations and call
1328: other procedure to insert the details*/
1329: if l_debug_mode = 'Y' then
1330: pa_debug.g_err_stage:= 'Before Calling the Private API PA_CONTROL_API_PVT.update_impacts';
1331: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1332: end if;
1333: PA_CONTROL_API_PVT.update_impacts(
1334: p_ci_id => p_ci_id ,
1327: This update_impacts will do all the necessary validations and call
1328: other procedure to insert the details*/
1329: if l_debug_mode = 'Y' then
1330: pa_debug.g_err_stage:= 'Before Calling the Private API PA_CONTROL_API_PVT.update_impacts';
1331: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1332: end if;
1333: PA_CONTROL_API_PVT.update_impacts(
1334: p_ci_id => p_ci_id ,
1335: p_impact_type_code => l_impact_type_code,
1346: COMMIT;
1347: END IF;
1348: --Reset the stack
1349: if l_debug_mode = 'Y' then
1350: Pa_Debug.reset_curr_function;
1351: end if;
1352:
1353: Exception
1354: when FND_API.G_EXC_ERROR then
1375: end if;
1376:
1377: --Reset the stack
1378: if l_debug_mode = 'Y' then
1379: Pa_Debug.reset_curr_function;
1380: end if;
1381:
1382: when others then
1383:
1392: p_error_text => x_msg_data);
1393: x_msg_count := FND_MSG_PUB.count_msg;
1394: --Reset the stack
1395: if l_debug_mode = 'Y' then
1396: Pa_Debug.reset_curr_function;
1397: end if;
1398:
1399: END Update_Supplier_Impact;
1400:
1436: WHERE ci_id = c_ci_id;
1437:
1438: BEGIN
1439: -- Initialize the Error Stack.
1440: PA_DEBUG.Init_Err_Stack ('PA_CONTROL_API_PUB.Delete_Supplier_Impact_Details');
1441:
1442: -- Initialize the Return Status to Success.
1443: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
1444: x_Msg_Count := 0;
1483: PA_UTILS.add_Message( p_app_short_name => 'PA'
1484: ,p_msg_name => 'PA_CI_NO_UPDATE_ACCESS');
1485: x_return_status := FND_API.G_RET_STS_ERROR;
1486: if l_debug_mode = 'Y' then
1487: pa_debug.g_err_stage:= 'the CI_ID does not have the update access';
1488: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1489: end if;
1490: raise FND_API.G_EXC_ERROR ;
1491: end if;
1484: ,p_msg_name => 'PA_CI_NO_UPDATE_ACCESS');
1485: x_return_status := FND_API.G_RET_STS_ERROR;
1486: if l_debug_mode = 'Y' then
1487: pa_debug.g_err_stage:= 'the CI_ID does not have the update access';
1488: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1489: end if;
1490: raise FND_API.G_EXC_ERROR ;
1491: end if;
1492:
1496: if c_get_status%notfound then
1497: PA_UTILS.Add_Message( p_app_short_name => 'PA'
1498: ,p_msg_name =>'PA_CI_INV_CI_ID');
1499: if l_debug_mode = 'Y' then
1500: pa_debug.g_err_stage:= 'the ci_id is invalid';
1501: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1502: end if;
1503: x_return_status := FND_API.G_RET_STS_ERROR;
1504: close c_get_status;
1497: PA_UTILS.Add_Message( p_app_short_name => 'PA'
1498: ,p_msg_name =>'PA_CI_INV_CI_ID');
1499: if l_debug_mode = 'Y' then
1500: pa_debug.g_err_stage:= 'the ci_id is invalid';
1501: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1502: end if;
1503: x_return_status := FND_API.G_RET_STS_ERROR;
1504: close c_get_status;
1505: raise FND_API.G_EXC_ERROR ;
1513: END IF;
1514:
1515:
1516: IF l_debug_mode = 'Y' THEN
1517: pa_debug.write(l_module_name, 'After call to pa_control_items_utils.CheckCIActionAllowed', l_debug_level3);
1518: END IF;
1519:
1520:
1521: if X_RETURN_STATUS = FND_API.g_Ret_Sts_Success then
1527: COMMIT;
1528: END IF;
1529: --Reset the stack
1530: if l_debug_mode = 'Y' then
1531: Pa_Debug.reset_curr_function;
1532: end if;
1533: Exception
1534: when FND_API.G_EXC_ERROR then
1535:
1553: x_msg_count := l_msg_count;
1554: end if;
1555: --Reset the stack
1556: if l_debug_mode = 'Y' then
1557: Pa_Debug.reset_curr_function;
1558: end if;
1559:
1560: when others then
1561: x_return_status := fnd_api.g_ret_sts_unexp_error;
1568: p_procedure_name => 'Delete_Supplier_Impact_Details',
1569: p_error_text => x_msg_data);
1570: x_msg_count := FND_MSG_PUB.count_msg;
1571: if l_debug_mode = 'Y' then
1572: pa_debug.reset_err_stack;
1573: end if;
1574: End Delete_Supplier_Impact_Details;
1575:
1576:
1739:
1740:
1741: Begin
1742: x_return_status := FND_API.G_RET_STS_SUCCESS;
1743: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
1744: IF l_debug_mode = 'Y' THEN
1745: PA_DEBUG.set_curr_function(p_function => 'UPDATE_PROGRESS', p_debug_mode => l_debug_mode);
1746: END IF;
1747:
1741: Begin
1742: x_return_status := FND_API.G_RET_STS_SUCCESS;
1743: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
1744: IF l_debug_mode = 'Y' THEN
1745: PA_DEBUG.set_curr_function(p_function => 'UPDATE_PROGRESS', p_debug_mode => l_debug_mode);
1746: END IF;
1747:
1748: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list, FND_API.G_TRUE)) THEN
1749: FND_MSG_PUB.initialize;
1753: savepoint UPDATE_PROGRESS_SVPT;
1754: END IF;
1755:
1756: IF l_debug_mode = 'Y' THEN
1757: pa_debug.write(l_module_name, 'Start of Update Progress ', l_debug_level3);
1758: END IF;
1759:
1760: x_msg_count := 0;
1761:
1762: if p_ci_id is null or p_ci_id = G_PA_MISS_NUM then
1763: PA_UTILS.Add_Message( p_app_short_name => 'PA'
1764: ,p_msg_name => 'PA_CI_MISS_CI_ID');
1765: if l_debug_mode = 'Y' then
1766: pa_debug.g_err_stage:= 'the ci_id is null';
1767: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1768: end if;
1769: x_return_status := FND_API.G_RET_STS_ERROR;
1770: --raise FND_API.G_EXC_ERROR;
1763: PA_UTILS.Add_Message( p_app_short_name => 'PA'
1764: ,p_msg_name => 'PA_CI_MISS_CI_ID');
1765: if l_debug_mode = 'Y' then
1766: pa_debug.g_err_stage:= 'the ci_id is null';
1767: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1768: end if;
1769: x_return_status := FND_API.G_RET_STS_ERROR;
1770: --raise FND_API.G_EXC_ERROR;
1771: l_ci_id_error_flag := 'Y';
1776:
1777: PA_UTILS.Add_Message( p_app_short_name => 'PA'
1778: ,p_msg_name => 'PA_CI_INV_CI_ID');
1779: if l_debug_mode = 'Y' then
1780: pa_debug.g_err_stage:= 'the ci_id is invalid';
1781: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1782: end if;
1783: x_return_status := FND_API.G_RET_STS_ERROR;
1784: close c_get_control_item_data;
1777: PA_UTILS.Add_Message( p_app_short_name => 'PA'
1778: ,p_msg_name => 'PA_CI_INV_CI_ID');
1779: if l_debug_mode = 'Y' then
1780: pa_debug.g_err_stage:= 'the ci_id is invalid';
1781: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1782: end if;
1783: x_return_status := FND_API.G_RET_STS_ERROR;
1784: close c_get_control_item_data;
1785: --raise FND_API.G_EXC_ERROR;
1855: PA_UTILS.add_Message( p_app_short_name => 'PA'
1856: ,p_msg_name => 'PA_CI_NO_UPDATE_ACCESS');
1857: x_return_status := FND_API.G_RET_STS_ERROR;
1858: if l_debug_mode = 'Y' then
1859: pa_debug.g_err_stage:= 'the CI_ID does not have the update access';
1860: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1861: end if;
1862: --raise FND_API.G_EXC_ERROR ;
1863:
1856: ,p_msg_name => 'PA_CI_NO_UPDATE_ACCESS');
1857: x_return_status := FND_API.G_RET_STS_ERROR;
1858: if l_debug_mode = 'Y' then
1859: pa_debug.g_err_stage:= 'the CI_ID does not have the update access';
1860: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1861: end if;
1862: --raise FND_API.G_EXC_ERROR ;
1863:
1864: end if;
1888: PA_UTILS.add_Message( p_app_short_name => 'PA'
1889: ,p_msg_name => 'PA_CI_NO_ALLOW_UPDATE');
1890: x_return_status := FND_API.G_RET_STS_ERROR;
1891: if l_debug_mode = 'Y' then
1892: pa_debug.g_err_stage:= 'the CI_ID does not have the update access for the current status';
1893: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1894: end if;
1895: -- raise FND_API.G_EXC_ERROR ;
1896: end if;
1889: ,p_msg_name => 'PA_CI_NO_ALLOW_UPDATE');
1890: x_return_status := FND_API.G_RET_STS_ERROR;
1891: if l_debug_mode = 'Y' then
1892: pa_debug.g_err_stage:= 'the CI_ID does not have the update access for the current status';
1893: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1894: end if;
1895: -- raise FND_API.G_EXC_ERROR ;
1896: end if;
1897:
1977:
1978: l_stmnt := l_sel_clause || l_from_clause || l_where || l_where1;
1979:
1980: IF l_debug_mode = 'Y' THEN
1981: pa_debug.write(l_module_name, l_stmnt, l_debug_level3);
1982: END IF;
1983:
1984: l_cursor := dbms_sql.open_cursor;
1985:
2036: PA_UTILS.add_Message( p_app_short_name => 'PA'
2037: ,p_msg_name => 'PA_CI_INV_PRG_CODE');
2038: x_return_status := FND_API.G_RET_STS_ERROR;
2039: if l_debug_mode = 'Y' then
2040: pa_debug.g_err_stage:= 'Invalid progress Code is passed';
2041: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2042: end if;
2043: close c_check_Progress_code;
2044: else
2037: ,p_msg_name => 'PA_CI_INV_PRG_CODE');
2038: x_return_status := FND_API.G_RET_STS_ERROR;
2039: if l_debug_mode = 'Y' then
2040: pa_debug.g_err_stage:= 'Invalid progress Code is passed';
2041: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2042: end if;
2043: close c_check_Progress_code;
2044: else
2045: l_progress_status_code := p_progress_status_code;
2048: elsif p_progress_status_code is null then
2049: PA_UTILS.add_Message( p_app_short_name => 'PA'
2050: ,p_msg_name => 'PA_PROGRESS_STATUS_NULL');
2051: if l_debug_mode = 'Y' then
2052: pa_debug.g_err_stage:= 'Progress Code is null';
2053: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2054: end if;
2055: x_return_status := FND_API.G_RET_STS_ERROR;
2056: end if;
2049: PA_UTILS.add_Message( p_app_short_name => 'PA'
2050: ,p_msg_name => 'PA_PROGRESS_STATUS_NULL');
2051: if l_debug_mode = 'Y' then
2052: pa_debug.g_err_stage:= 'Progress Code is null';
2053: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2054: end if;
2055: x_return_status := FND_API.G_RET_STS_ERROR;
2056: end if;
2057:
2062: PA_UTILS.add_Message( p_app_short_name => 'PA'
2063: ,p_msg_name => 'PA_CI_RESOLUTION_INV');
2064: x_return_status := FND_API.G_RET_STS_ERROR;
2065: if l_debug_mode = 'Y' then
2066: pa_debug.g_err_stage:= 'the Resolution Code is invalid';
2067: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2068: end if;
2069: close c_get_resolution_codes;
2070: --raise FND_API.G_EXC_ERROR ;
2063: ,p_msg_name => 'PA_CI_RESOLUTION_INV');
2064: x_return_status := FND_API.G_RET_STS_ERROR;
2065: if l_debug_mode = 'Y' then
2066: pa_debug.g_err_stage:= 'the Resolution Code is invalid';
2067: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2068: end if;
2069: close c_get_resolution_codes;
2070: --raise FND_API.G_EXC_ERROR ;
2071: else
2094: l_curr_status_code <> l_ci_status_code AND
2095: l_to_status_flag = 'Y' and x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
2096:
2097: IF l_debug_mode = 'Y' THEN
2098: pa_debug.write(l_module_name, 'Before call to PA_CONTROL_ITEMS_UTILS.ChangeCIStatusValidate', l_debug_level3);
2099: END IF;
2100:
2101: PA_CONTROL_ITEMS_UTILS.ChangeCIStatusValidate (
2102: p_init_msg_list => p_init_msg_list
2120: In case of CR/CO, if Auto Approve on Submission is enabled and while changing the status to submitted,
2121: then the new status would be the success status code defined for the workflow */
2122:
2123: IF l_debug_mode = 'Y' THEN
2124: pa_debug.write(l_module_name, 'after call to PA_CONTROL_ITEMS_UTILS.ChangeCIStatusValidate: x_return_status = '||x_return_status, l_debug_level3);
2125: pa_debug.write(l_module_name, 'after call to PA_CONTROL_ITEMS_UTILS.ChangeCIStatusValidate: l_ci_status_code = '||l_ci_status_code, l_debug_level3);
2126: END IF;
2127:
2128: IF x_return_status = 'S' THEN
2121: then the new status would be the success status code defined for the workflow */
2122:
2123: IF l_debug_mode = 'Y' THEN
2124: pa_debug.write(l_module_name, 'after call to PA_CONTROL_ITEMS_UTILS.ChangeCIStatusValidate: x_return_status = '||x_return_status, l_debug_level3);
2125: pa_debug.write(l_module_name, 'after call to PA_CONTROL_ITEMS_UTILS.ChangeCIStatusValidate: l_ci_status_code = '||l_ci_status_code, l_debug_level3);
2126: END IF;
2127:
2128: IF x_return_status = 'S' THEN
2129: l_status_change_flag := 'Y';
2129: l_status_change_flag := 'Y';
2130: END IF;
2131:
2132: IF l_debug_mode = 'Y' THEN
2133: pa_debug.write(l_module_name, 'after call to PA_CONTROL_ITEMS_UTILS.ChangeCIStatusValidate: l_status_change_flag = '||l_status_change_flag, l_debug_level3);
2134: END IF;
2135:
2136:
2137:
2169:
2170: END IF;
2171:
2172: if l_debug_mode = 'Y' then
2173: pa_debug.g_err_stage:= 'Before caliing the PA_CONTROL_ITEMS_PKG.UPDATE_ROW procedure';
2174: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2175: end if;
2176:
2177:
2170: END IF;
2171:
2172: if l_debug_mode = 'Y' then
2173: pa_debug.g_err_stage:= 'Before caliing the PA_CONTROL_ITEMS_PKG.UPDATE_ROW procedure';
2174: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2175: end if;
2176:
2177:
2178: if x_return_status = FND_API.G_RET_STS_SUCCESS then
2238:
2239: IF (l_status_change_flag = 'Y' AND l_validate_only <> fnd_api.g_true AND x_return_status = 'S') THEN
2240:
2241: IF l_debug_mode = 'Y' THEN
2242: pa_debug.write(l_module_name, 'before call to PA_CONTROL_ITEMS_UTILS.ADD_STATUS_CHANGE_COMMENT', l_debug_level3);
2243: END IF;
2244:
2245: /* call the insert table handlers of pa_obj_status_changes and pa_ci_comments here */
2246:
2255: ,x_msg_count => x_msg_count
2256: ,x_msg_data => x_msg_data );
2257:
2258: IF l_debug_mode = 'Y' THEN
2259: pa_debug.write(l_module_name, 'after call to PA_CONTROL_ITEMS_UTILS.ADD_STATUS_CHANGE_COMMENT', l_debug_level3);
2260: END IF;
2261:
2262: PA_CONTROL_ITEMS_UTILS.PostChangeCIStatus (
2263: p_init_msg_list
2275: ,x_msg_data );
2276:
2277:
2278: IF l_debug_mode = 'Y' THEN
2279: pa_debug.write(l_module_name, 'after call to PA_CONTROL_ITEMS_UTILS.PostChangeCIStatus', l_debug_level3);
2280: END IF;
2281:
2282: END IF;
2283:
2290: raise FND_API.G_EXC_ERROR;
2291: END IF;
2292: --Reset the stack
2293: if l_debug_mode = 'Y' then
2294: Pa_Debug.reset_curr_function;
2295: end if;
2296:
2297: Exception
2298: when FND_API.G_EXC_ERROR then
2318: end if;
2319:
2320: --Reset the stack
2321: if l_debug_mode = 'Y' then
2322: Pa_Debug.reset_curr_function;
2323: end if;
2324:
2325: when others then
2326: x_return_status := fnd_api.g_ret_sts_unexp_error;
2333: p_error_text => x_msg_data);
2334: x_msg_count := FND_MSG_PUB.count_msg;
2335: --Reset the stack
2336: if l_debug_mode = 'Y' then
2337: Pa_Debug.reset_curr_function;
2338: end if;
2339:
2340: end Update_Progress;
2341:
2474: -- initialize the return status to success
2475: x_return_status := fnd_api.g_ret_sts_success;
2476: x_msg_count := 0;
2477:
2478: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
2479: l_module_name := 'create_issue' || g_module_name;
2480:
2481: if l_debug_mode = 'Y' then
2482: pa_debug.set_curr_function(p_function => 'pa_control_api_pub.create_issue', p_debug_mode => l_debug_mode);
2478: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
2479: l_module_name := 'create_issue' || g_module_name;
2480:
2481: if l_debug_mode = 'Y' then
2482: pa_debug.set_curr_function(p_function => 'pa_control_api_pub.create_issue', p_debug_mode => l_debug_mode);
2483: end if;
2484:
2485: if fnd_api.to_boolean(nvl(p_init_msg_list, fnd_api.g_true)) then
2486: fnd_msg_pub.initialize;
2490: savepoint create_issue;
2491: end if;
2492:
2493: if l_debug_mode = 'Y' then
2494: pa_debug.write(l_module_name, 'start of create_issue', l_debug_level3);
2495: end if;
2496:
2497: --handle the miss_char and null values
2498: if(p_project_id is null or p_project_id = G_PA_MISS_NUM) then
2790: end if;
2791:
2792:
2793: if l_debug_mode = 'Y' then
2794: pa_debug.g_err_stage:= 'calling check_create_ci_allowed';
2795: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2796: end if;
2797:
2798: PA_CONTROL_API_PVT.check_create_ci_allowed(
2791:
2792:
2793: if l_debug_mode = 'Y' then
2794: pa_debug.g_err_stage:= 'calling check_create_ci_allowed';
2795: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2796: end if;
2797:
2798: PA_CONTROL_API_PVT.check_create_ci_allowed(
2799: p_project_id => l_project_id
2809: ,x_msg_data => x_msg_data
2810: );
2811:
2812: if l_debug_mode = 'Y' then
2813: pa_debug.g_err_stage:= 'After calling check_create_ciallowed';
2814: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2815: end if;
2816: /*Need to get the details on p_api_version_number, p_orig_system_code and p_orig_system_code and write the code which uses these */
2817: /*p_orig_system_code and p_orig_system_reference will be passsed by users
2810: );
2811:
2812: if l_debug_mode = 'Y' then
2813: pa_debug.g_err_stage:= 'After calling check_create_ciallowed';
2814: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2815: end if;
2816: /*Need to get the details on p_api_version_number, p_orig_system_code and p_orig_system_code and write the code which uses these */
2817: /*p_orig_system_code and p_orig_system_reference will be passsed by users
2818: and What ever user gives those will get inserted in the table as it is. */
2816: /*Need to get the details on p_api_version_number, p_orig_system_code and p_orig_system_code and write the code which uses these */
2817: /*p_orig_system_code and p_orig_system_reference will be passsed by users
2818: and What ever user gives those will get inserted in the table as it is. */
2819: if l_debug_mode = 'Y' then
2820: pa_debug.g_err_stage:= 'about to call validate_param_and_create';
2821: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2822: end if;
2823:
2824: PA_CONTROL_API_PVT.validate_param_and_create(
2817: /*p_orig_system_code and p_orig_system_reference will be passsed by users
2818: and What ever user gives those will get inserted in the table as it is. */
2819: if l_debug_mode = 'Y' then
2820: pa_debug.g_err_stage:= 'about to call validate_param_and_create';
2821: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2822: end if;
2823:
2824: PA_CONTROL_API_PVT.validate_param_and_create(
2825: p_orig_system_code => p_orig_system_code
2881: ,x_msg_data => x_msg_data
2882: );
2883:
2884: if l_debug_mode = 'Y' then
2885: pa_debug.g_err_stage:= 'after calling validate_param_and_create';
2886: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2887: end if;
2888:
2889: if (p_commit = fnd_api.g_true and x_return_status = fnd_api.g_ret_sts_success)
2882: );
2883:
2884: if l_debug_mode = 'Y' then
2885: pa_debug.g_err_stage:= 'after calling validate_param_and_create';
2886: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2887: end if;
2888:
2889: if (p_commit = fnd_api.g_true and x_return_status = fnd_api.g_ret_sts_success)
2890: then
2888:
2889: if (p_commit = fnd_api.g_true and x_return_status = fnd_api.g_ret_sts_success)
2890: then
2891: if l_debug_mode = 'Y' then
2892: pa_debug.g_err_stage := 'about to do a commit';
2893: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2894: end if;
2895: commit;
2896: end if;
2889: if (p_commit = fnd_api.g_true and x_return_status = fnd_api.g_ret_sts_success)
2890: then
2891: if l_debug_mode = 'Y' then
2892: pa_debug.g_err_stage := 'about to do a commit';
2893: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2894: end if;
2895: commit;
2896: end if;
2897:
2896: end if;
2897:
2898: --rest the stack;
2899: if l_debug_mode = 'Y' then
2900: pa_debug.reset_curr_function;
2901: end if;
2902:
2903: EXCEPTION
2904: when fnd_api.g_exc_unexpected_error then
2917: x_ci_number := null;
2918:
2919: --rest the stack;
2920: if l_debug_mode = 'Y' then
2921: pa_debug.reset_curr_function;
2922: end if;
2923:
2924:
2925: when fnd_api.g_exc_error then
2949: x_ci_number := null;
2950:
2951: --Reset the stack
2952: if l_debug_mode = 'Y' then
2953: pa_debug.reset_curr_function;
2954: end if;
2955:
2956: when others then
2957:
2971: x_ci_number := null;
2972:
2973: --Reset the stack
2974: if l_debug_mode = 'Y' then
2975: pa_debug.reset_curr_function;
2976: end if;
2977:
2978: END CREATE_ISSUE;
2979:
3109: -- initialize the return status to success
3110: x_return_status := fnd_api.g_ret_sts_success;
3111: x_msg_count := 0;
3112:
3113: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
3114: l_module_name := 'create_change_request' || g_module_name;
3115:
3116: if l_debug_mode = 'Y' then
3117: pa_debug.set_curr_function(p_function => 'pa_control_api_pub.create_change_request', p_debug_mode => l_debug_mode);
3113: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
3114: l_module_name := 'create_change_request' || g_module_name;
3115:
3116: if l_debug_mode = 'Y' then
3117: pa_debug.set_curr_function(p_function => 'pa_control_api_pub.create_change_request', p_debug_mode => l_debug_mode);
3118: end if;
3119:
3120: if fnd_api.to_boolean(nvl(p_init_msg_list, fnd_api.g_true)) then
3121: fnd_msg_pub.initialize;
3125: savepoint create_change_request;
3126: end if;
3127:
3128: if l_debug_mode = 'Y' then
3129: pa_debug.write(l_module_name, 'start of create_change_request', l_debug_level3);
3130: end if;
3131:
3132: --handle the miss_char and null values
3133: if(p_project_id is null or p_project_id = G_PA_MISS_NUM) then
3425: end if;
3426:
3427:
3428: if l_debug_mode = 'Y' then
3429: pa_debug.g_err_stage:= 'calling check_create_ci_allowed';
3430: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3431: end if;
3432:
3433: PA_CONTROL_API_PVT.check_create_ci_allowed(
3426:
3427:
3428: if l_debug_mode = 'Y' then
3429: pa_debug.g_err_stage:= 'calling check_create_ci_allowed';
3430: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3431: end if;
3432:
3433: PA_CONTROL_API_PVT.check_create_ci_allowed(
3434: p_project_id => l_project_id
3444: ,x_msg_data => x_msg_data
3445: );
3446:
3447: if l_debug_mode = 'Y' then
3448: pa_debug.g_err_stage:= 'After calling check_create_ci_allowed';
3449: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3450: end if;
3451: /*Need to get the details on p_api_version_number, p_orig_system_code and p_orig_system_code and write the code which uses these */
3452: /*p_orig_system_code and p_orig_system_reference will be passsed by users
3445: );
3446:
3447: if l_debug_mode = 'Y' then
3448: pa_debug.g_err_stage:= 'After calling check_create_ci_allowed';
3449: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3450: end if;
3451: /*Need to get the details on p_api_version_number, p_orig_system_code and p_orig_system_code and write the code which uses these */
3452: /*p_orig_system_code and p_orig_system_reference will be passsed by users
3453: and What ever user gives those will get inserted in the table as it is. */
3451: /*Need to get the details on p_api_version_number, p_orig_system_code and p_orig_system_code and write the code which uses these */
3452: /*p_orig_system_code and p_orig_system_reference will be passsed by users
3453: and What ever user gives those will get inserted in the table as it is. */
3454: if l_debug_mode = 'Y' then
3455: pa_debug.g_err_stage:= 'about to call validate_param_and_create';
3456: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3457: end if;
3458:
3459: PA_CONTROL_API_PVT.validate_param_and_create(
3452: /*p_orig_system_code and p_orig_system_reference will be passsed by users
3453: and What ever user gives those will get inserted in the table as it is. */
3454: if l_debug_mode = 'Y' then
3455: pa_debug.g_err_stage:= 'about to call validate_param_and_create';
3456: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3457: end if;
3458:
3459: PA_CONTROL_API_PVT.validate_param_and_create(
3460: p_orig_system_code => p_orig_system_code
3516: ,x_msg_data => x_msg_data
3517: );
3518:
3519: if l_debug_mode = 'Y' then
3520: pa_debug.g_err_stage:= 'after calling validate_param_and_create';
3521: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3522: end if;
3523:
3524: if (p_commit = fnd_api.g_true and x_return_status = fnd_api.g_ret_sts_success)
3517: );
3518:
3519: if l_debug_mode = 'Y' then
3520: pa_debug.g_err_stage:= 'after calling validate_param_and_create';
3521: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3522: end if;
3523:
3524: if (p_commit = fnd_api.g_true and x_return_status = fnd_api.g_ret_sts_success)
3525: then
3523:
3524: if (p_commit = fnd_api.g_true and x_return_status = fnd_api.g_ret_sts_success)
3525: then
3526: if l_debug_mode = 'Y' then
3527: pa_debug.g_err_stage := 'about to do a commit';
3528: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3529: end if;
3530: commit;
3531: end if;
3524: if (p_commit = fnd_api.g_true and x_return_status = fnd_api.g_ret_sts_success)
3525: then
3526: if l_debug_mode = 'Y' then
3527: pa_debug.g_err_stage := 'about to do a commit';
3528: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3529: end if;
3530: commit;
3531: end if;
3532:
3531: end if;
3532:
3533: --rest the stack;
3534: if l_debug_mode = 'Y' then
3535: pa_debug.reset_curr_function;
3536: end if;
3537:
3538: EXCEPTION
3539: when fnd_api.g_exc_unexpected_error then
3552: x_ci_number := null;
3553:
3554: --rest the stack;
3555: if l_debug_mode = 'Y' then
3556: pa_debug.reset_curr_function;
3557: end if;
3558:
3559:
3560: when fnd_api.g_exc_error then
3584: x_ci_number := null;
3585:
3586: --Reset the stack
3587: if l_debug_mode = 'Y' then
3588: pa_debug.reset_curr_function;
3589: end if;
3590:
3591: when others then
3592:
3606: x_ci_number := null;
3607:
3608: --Reset the stack
3609: if l_debug_mode = 'Y' then
3610: pa_debug.reset_curr_function;
3611: end if;
3612:
3613: END CREATE_CHANGE_REQUEST;
3614:
3744: -- initialize the return status to success
3745: x_return_status := fnd_api.g_ret_sts_success;
3746: x_msg_count := 0;
3747:
3748: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
3749: l_module_name := 'create_change_order' || g_module_name;
3750:
3751: if l_debug_mode = 'Y' then
3752: pa_debug.set_curr_function(p_function => 'pa_control_api_pub.create_change_order', p_debug_mode => l_debug_mode);
3748: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
3749: l_module_name := 'create_change_order' || g_module_name;
3750:
3751: if l_debug_mode = 'Y' then
3752: pa_debug.set_curr_function(p_function => 'pa_control_api_pub.create_change_order', p_debug_mode => l_debug_mode);
3753: end if;
3754:
3755: if fnd_api.to_boolean(nvl(p_init_msg_list, fnd_api.g_true)) then
3756: fnd_msg_pub.initialize;
3760: savepoint create_change_order;
3761: end if;
3762:
3763: if l_debug_mode = 'Y' then
3764: pa_debug.write(l_module_name, 'start of create_change_order', l_debug_level3);
3765: end if;
3766:
3767: --handle the miss_char and null values
3768: if(p_project_id is null or p_project_id = G_PA_MISS_NUM) then
4060: end if;
4061:
4062:
4063: if l_debug_mode = 'Y' then
4064: pa_debug.g_err_stage:= 'calling check_create_ci_allowed';
4065: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4066: end if;
4067:
4068: PA_CONTROL_API_PVT.check_create_ci_allowed(
4061:
4062:
4063: if l_debug_mode = 'Y' then
4064: pa_debug.g_err_stage:= 'calling check_create_ci_allowed';
4065: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4066: end if;
4067:
4068: PA_CONTROL_API_PVT.check_create_ci_allowed(
4069: p_project_id => l_project_id
4079: ,x_msg_data => x_msg_data
4080: );
4081:
4082: if l_debug_mode = 'Y' then
4083: pa_debug.g_err_stage:= 'After calling check_create_ci_allowed';
4084: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4085: end if;
4086: /*p_orig_system_code and p_orig_system_reference will be passsed by users
4087: and What ever user gives those will get inserted in the table as it is. */
4080: );
4081:
4082: if l_debug_mode = 'Y' then
4083: pa_debug.g_err_stage:= 'After calling check_create_ci_allowed';
4084: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4085: end if;
4086: /*p_orig_system_code and p_orig_system_reference will be passsed by users
4087: and What ever user gives those will get inserted in the table as it is. */
4088:
4086: /*p_orig_system_code and p_orig_system_reference will be passsed by users
4087: and What ever user gives those will get inserted in the table as it is. */
4088:
4089: if l_debug_mode = 'Y' then
4090: pa_debug.g_err_stage:= 'about to call validate_param_and_create';
4091: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4092: end if;
4093:
4094: PA_CONTROL_API_PVT.validate_param_and_create(
4087: and What ever user gives those will get inserted in the table as it is. */
4088:
4089: if l_debug_mode = 'Y' then
4090: pa_debug.g_err_stage:= 'about to call validate_param_and_create';
4091: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4092: end if;
4093:
4094: PA_CONTROL_API_PVT.validate_param_and_create(
4095: p_orig_system_code => p_orig_system_code
4151: ,x_msg_data => x_msg_data
4152: );
4153:
4154: if l_debug_mode = 'Y' then
4155: pa_debug.g_err_stage:= 'after calling validate_param_and_create';
4156: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4157: end if;
4158:
4159: if (p_commit = fnd_api.g_true and x_return_status = fnd_api.g_ret_sts_success)
4152: );
4153:
4154: if l_debug_mode = 'Y' then
4155: pa_debug.g_err_stage:= 'after calling validate_param_and_create';
4156: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4157: end if;
4158:
4159: if (p_commit = fnd_api.g_true and x_return_status = fnd_api.g_ret_sts_success)
4160: then
4158:
4159: if (p_commit = fnd_api.g_true and x_return_status = fnd_api.g_ret_sts_success)
4160: then
4161: if l_debug_mode = 'Y' then
4162: pa_debug.g_err_stage := 'about to do a commit';
4163: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4164: end if;
4165: commit;
4166: end if;
4159: if (p_commit = fnd_api.g_true and x_return_status = fnd_api.g_ret_sts_success)
4160: then
4161: if l_debug_mode = 'Y' then
4162: pa_debug.g_err_stage := 'about to do a commit';
4163: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4164: end if;
4165: commit;
4166: end if;
4167:
4166: end if;
4167:
4168: --rest the stack;
4169: if l_debug_mode = 'Y' then
4170: pa_debug.reset_curr_function;
4171: end if;
4172:
4173: EXCEPTION
4174: when fnd_api.g_exc_unexpected_error then
4187: x_ci_number := null;
4188:
4189: --rest the stack;
4190: if l_debug_mode = 'Y' then
4191: pa_debug.reset_curr_function;
4192: end if;
4193:
4194:
4195: when fnd_api.g_exc_error then
4219: x_ci_number := null;
4220:
4221: --Reset the stack
4222: if l_debug_mode = 'Y' then
4223: pa_debug.reset_curr_function;
4224: end if;
4225:
4226: when others then
4227:
4241: x_ci_number := null;
4242:
4243: --Reset the stack
4244: if l_debug_mode = 'Y' then
4245: pa_debug.reset_curr_function;
4246: end if;
4247:
4248: END CREATE_CHANGE_ORDER;
4249:
4276: -- initialize the return status to success
4277: x_return_status := fnd_api.g_ret_sts_success;
4278: x_msg_count := 0;
4279:
4280: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
4281: l_module_name := 'create_action' || g_module_name;
4282:
4283: if l_debug_mode = 'Y' then
4284: pa_debug.set_curr_function(p_function => 'pa_control_api_pub.create_action', p_debug_mode => l_debug_mode);
4280: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
4281: l_module_name := 'create_action' || g_module_name;
4282:
4283: if l_debug_mode = 'Y' then
4284: pa_debug.set_curr_function(p_function => 'pa_control_api_pub.create_action', p_debug_mode => l_debug_mode);
4285: end if;
4286:
4287: if fnd_api.to_boolean(nvl(p_init_msg_list, fnd_api.g_true)) then
4288: fnd_msg_pub.initialize;
4292: savepoint create_action;
4293: end if;
4294:
4295: if l_debug_mode = 'Y' then
4296: pa_debug.write(l_module_name, 'start of create_action', l_debug_level3);
4297: end if;
4298:
4299: --handling the g_pa_miss_xxx for p_ci_id
4300: if(p_ci_id is null or p_ci_id = G_PA_MISS_NUM) then
4303: l_ci_id := p_ci_id;
4304: end if;
4305:
4306: if l_debug_mode = 'Y' then
4307: pa_debug.g_err_stage:= 'Calling check_create_action_allow';
4308: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4309: end if;
4310:
4311: PA_CONTROL_API_PVT.check_create_action_allow(
4304: end if;
4305:
4306: if l_debug_mode = 'Y' then
4307: pa_debug.g_err_stage:= 'Calling check_create_action_allow';
4308: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4309: end if;
4310:
4311: PA_CONTROL_API_PVT.check_create_action_allow(
4312: p_ci_id => l_ci_id
4316: ,x_msg_data => x_msg_data
4317: );
4318:
4319: if l_debug_mode = 'Y' then
4320: pa_debug.g_err_stage:= 'Calling validate_action_attributes';
4321: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4322: end if;
4323:
4324: /*Passing the l_ci_id here which was validated in check_create_action_allow*/
4317: );
4318:
4319: if l_debug_mode = 'Y' then
4320: pa_debug.g_err_stage:= 'Calling validate_action_attributes';
4321: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4322: end if;
4323:
4324: /*Passing the l_ci_id here which was validated in check_create_action_allow*/
4325: PA_CONTROL_API_PVT.validate_action_attributes(
4332: ,x_msg_data => x_msg_data
4333: );
4334:
4335: if l_debug_mode = 'Y' then
4336: pa_debug.g_err_stage:= 'Calling PA_CONTROL_API_PVT.create_action';
4337: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4338: end if;
4339:
4340: /*Passing the l_ci_id here which was validated in check_create_action_allow*/
4333: );
4334:
4335: if l_debug_mode = 'Y' then
4336: pa_debug.g_err_stage:= 'Calling PA_CONTROL_API_PVT.create_action';
4337: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4338: end if;
4339:
4340: /*Passing the l_ci_id here which was validated in check_create_action_allow*/
4341: PA_CONTROL_API_PVT.create_action(
4349:
4350: if (p_commit = fnd_api.g_true and x_return_status = fnd_api.g_ret_sts_success)
4351: then
4352: if l_debug_mode = 'Y' then
4353: pa_debug.g_err_stage := 'about to do a commit';
4354: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4355: end if;
4356: commit;
4357: end if;
4350: if (p_commit = fnd_api.g_true and x_return_status = fnd_api.g_ret_sts_success)
4351: then
4352: if l_debug_mode = 'Y' then
4353: pa_debug.g_err_stage := 'about to do a commit';
4354: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4355: end if;
4356: commit;
4357: end if;
4358:
4357: end if;
4358:
4359: --rest the stack;
4360: if l_debug_mode = 'Y' then
4361: pa_debug.reset_curr_function;
4362: end if;
4363:
4364: Exception
4365: when fnd_api.g_exc_error then
4396:
4397:
4398: --rest the stack;
4399: if l_debug_mode = 'Y' then
4400: pa_debug.reset_curr_function;
4401: end if;
4402: when others then
4403:
4404: x_return_status := fnd_api.g_ret_sts_unexp_error;
4422: x_action_tbl(i).action_number := null;
4423: end loop;
4424: --rest the stack;
4425: if l_debug_mode = 'Y' then
4426: pa_debug.reset_curr_function;
4427: end if;
4428: END CREATE_ACTION;
4429:
4430:
4498: -- initialize the return status to success
4499: x_return_status := fnd_api.g_ret_sts_success;
4500: x_msg_count := 0;
4501:
4502: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
4503: l_module_name := 'take_action' || g_module_name;
4504:
4505: if l_debug_mode = 'Y' then
4506: pa_debug.set_curr_function(p_function => 'pa_control_api_pub.take_action', p_debug_mode => l_debug_mode);
4502: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
4503: l_module_name := 'take_action' || g_module_name;
4504:
4505: if l_debug_mode = 'Y' then
4506: pa_debug.set_curr_function(p_function => 'pa_control_api_pub.take_action', p_debug_mode => l_debug_mode);
4507: end if;
4508:
4509: if fnd_api.to_boolean(nvl(p_init_msg_list, fnd_api.g_true)) then
4510: fnd_msg_pub.initialize;
4514: savepoint take_action;
4515: end if;
4516:
4517: if l_debug_mode = 'Y' then
4518: pa_debug.write(l_module_name, 'start of take_action', l_debug_level3);
4519: end if;
4520:
4521: --Get the party_id for the logged in user
4522: l_user_id := fnd_global.user_id;
4541: if l_party_id is null then
4542: pa_utils.add_message(p_app_short_name => 'PA',
4543: p_msg_name => 'PA_CI_ACTION_NO_ACCESS');
4544: if (l_debug_mode = 'Y') then
4545: pa_debug.g_err_stage := 'Apps Initialization is not been done';
4546: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4547: end if;
4548: raise fnd_api.g_exc_error;
4549: elsif( l_assignee_id is not null and (l_assignee_id <> l_party_id) ) then
4542: pa_utils.add_message(p_app_short_name => 'PA',
4543: p_msg_name => 'PA_CI_ACTION_NO_ACCESS');
4544: if (l_debug_mode = 'Y') then
4545: pa_debug.g_err_stage := 'Apps Initialization is not been done';
4546: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4547: end if;
4548: raise fnd_api.g_exc_error;
4549: elsif( l_assignee_id is not null and (l_assignee_id <> l_party_id) ) then
4550: /*user doesnt have privilige to update the action*/
4550: /*user doesnt have privilige to update the action*/
4551: pa_utils.add_message(p_app_short_name => 'PA',
4552: p_msg_name => 'PA_CI_ACTION_NO_ACCESS');
4553: if (l_debug_mode = 'Y') then
4554: pa_debug.g_err_stage := 'user doesnt have access to update the action';
4555: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4556: end if;
4557: raise fnd_api.g_exc_error;
4558: end if;
4551: pa_utils.add_message(p_app_short_name => 'PA',
4552: p_msg_name => 'PA_CI_ACTION_NO_ACCESS');
4553: if (l_debug_mode = 'Y') then
4554: pa_debug.g_err_stage := 'user doesnt have access to update the action';
4555: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4556: end if;
4557: raise fnd_api.g_exc_error;
4558: end if;
4559:
4560: if( p_close_action_flag = 'Y' and p_reassign_action_flag = 'Y') then
4561: pa_utils.add_message(p_app_short_name => 'PA',
4562: p_msg_name => 'PA_CI_BOTH_REASSGN_CLSE');
4563: if (l_debug_mode = 'Y') then
4564: pa_debug.g_err_stage := 'you cannot both close and reassign the action.';
4565: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4566: end if;
4567: raise fnd_api.g_exc_error;
4568: end if;-- if( p_close_action_flag := 'Y' and p_reassign_action_flag := 'Y') then
4561: pa_utils.add_message(p_app_short_name => 'PA',
4562: p_msg_name => 'PA_CI_BOTH_REASSGN_CLSE');
4563: if (l_debug_mode = 'Y') then
4564: pa_debug.g_err_stage := 'you cannot both close and reassign the action.';
4565: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4566: end if;
4567: raise fnd_api.g_exc_error;
4568: end if;-- if( p_close_action_flag := 'Y' and p_reassign_action_flag := 'Y') then
4569:
4571: if (p_close_action_flag <> 'N' and p_close_action_flag <> 'Y' and p_close_action_flag <> G_PA_MISS_CHAR) then
4572: pa_utils.add_message(p_app_short_name => 'PA',
4573: p_msg_name => 'PA_CI_INV_CLS_ACT_FLG');
4574: if (l_debug_mode = 'Y') then
4575: pa_debug.g_err_stage := 'Invalid value for close action flag';
4576: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4577: end if;
4578: raise fnd_api.g_exc_error;
4579: end if;
4572: pa_utils.add_message(p_app_short_name => 'PA',
4573: p_msg_name => 'PA_CI_INV_CLS_ACT_FLG');
4574: if (l_debug_mode = 'Y') then
4575: pa_debug.g_err_stage := 'Invalid value for close action flag';
4576: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4577: end if;
4578: raise fnd_api.g_exc_error;
4579: end if;
4580:
4583: p_reassign_action_flag <> G_PA_MISS_CHAR ) then
4584: pa_utils.add_message(p_app_short_name => 'PA',
4585: p_msg_name => 'PA_CI_INV_REASSGN_ACT_FLG');
4586: if (l_debug_mode = 'Y') then
4587: pa_debug.g_err_stage := 'Invalid value for reassign action flag';
4588: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4589: end if;
4590: raise fnd_api.g_exc_error;
4591: end if;
4584: pa_utils.add_message(p_app_short_name => 'PA',
4585: p_msg_name => 'PA_CI_INV_REASSGN_ACT_FLG');
4586: if (l_debug_mode = 'Y') then
4587: pa_debug.g_err_stage := 'Invalid value for reassign action flag';
4588: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4589: end if;
4590: raise fnd_api.g_exc_error;
4591: end if;
4592:
4611: if get_action_attrs_rec.status_code <> 'CI_ACTION_OPEN' then
4612: pa_utils.add_message(p_app_short_name => 'PA',
4613: p_msg_name => 'PA_CI_CLS_OPEN_ACT');
4614: if (l_debug_mode = 'Y') then
4615: pa_debug.g_err_stage := 'only open actions can be closed';
4616: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4617: end if;
4618: x_return_status := FND_API.G_RET_STS_ERROR;
4619: raise FND_API.G_EXC_ERROR;
4612: pa_utils.add_message(p_app_short_name => 'PA',
4613: p_msg_name => 'PA_CI_CLS_OPEN_ACT');
4614: if (l_debug_mode = 'Y') then
4615: pa_debug.g_err_stage := 'only open actions can be closed';
4616: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4617: end if;
4618: x_return_status := FND_API.G_RET_STS_ERROR;
4619: raise FND_API.G_EXC_ERROR;
4620: end if;
4625: if(p_sign_off_flag <> 'N' and p_sign_off_flag <> 'Y') then
4626: pa_utils.add_message(p_app_short_name => 'PA',
4627: p_msg_name => 'PA_CI_INV_SIGN_OFF_FLAG');
4628: if (l_debug_mode = 'Y') then
4629: pa_debug.g_err_stage := 'sign off flag can either be Y or N';
4630: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4631: end if;
4632: else
4633: l_sign_off_flag := p_sign_off_flag;
4626: pa_utils.add_message(p_app_short_name => 'PA',
4627: p_msg_name => 'PA_CI_INV_SIGN_OFF_FLAG');
4628: if (l_debug_mode = 'Y') then
4629: pa_debug.g_err_stage := 'sign off flag can either be Y or N';
4630: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4631: end if;
4632: else
4633: l_sign_off_flag := p_sign_off_flag;
4634: end if;
4659: );
4660:
4661: if(x_return_status <> FND_API.G_RET_STS_SUCCESS) then
4662: if (l_debug_mode = 'Y') then
4663: pa_debug.g_err_stage := 'error occured while closing the action';
4664: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4665: end if;
4666: raise fnd_api.g_exc_unexpected_error;
4667: end if;
4660:
4661: if(x_return_status <> FND_API.G_RET_STS_SUCCESS) then
4662: if (l_debug_mode = 'Y') then
4663: pa_debug.g_err_stage := 'error occured while closing the action';
4664: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4665: end if;
4666: raise fnd_api.g_exc_unexpected_error;
4667: end if;
4668:
4686: end if;
4687:
4688: if(x_return_status <> FND_API.G_RET_STS_SUCCESS) then
4689: if (l_debug_mode = 'Y') then
4690: pa_debug.g_err_stage := 'error occurred while closing the notification';
4691: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4692: end if;
4693: raise fnd_api.g_exc_unexpected_error;
4694: end if;
4687:
4688: if(x_return_status <> FND_API.G_RET_STS_SUCCESS) then
4689: if (l_debug_mode = 'Y') then
4690: pa_debug.g_err_stage := 'error occurred while closing the notification';
4691: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4692: end if;
4693: raise fnd_api.g_exc_unexpected_error;
4694: end if;
4695:
4705: if get_action_attrs_rec.status_code <> 'CI_ACTION_OPEN' then
4706: pa_utils.add_message(p_app_short_name => 'PA',
4707: p_msg_name => 'PA_CI_REASSGN_OPEN_ACT');
4708: if (l_debug_mode = 'Y') then
4709: pa_debug.g_err_stage := 'only open actions can be reassigned';
4710: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4711: end if;
4712: x_return_status := FND_API.G_RET_STS_ERROR;
4713: raise FND_API.G_EXC_ERROR;
4706: pa_utils.add_message(p_app_short_name => 'PA',
4707: p_msg_name => 'PA_CI_REASSGN_OPEN_ACT');
4708: if (l_debug_mode = 'Y') then
4709: pa_debug.g_err_stage := 'only open actions can be reassigned';
4710: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4711: end if;
4712: x_return_status := FND_API.G_RET_STS_ERROR;
4713: raise FND_API.G_EXC_ERROR;
4714: end if;
4720: if(p_sign_off_flag <> 'N' and p_sign_off_flag <> 'Y') then
4721: pa_utils.add_message(p_app_short_name => 'PA',
4722: p_msg_name => 'PA_CI_INV_SIGN_OFF_FLAG');
4723: if (l_debug_mode = 'Y') then
4724: pa_debug.g_err_stage := 'sign off flag can either be Y or N';
4725: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4726: end if;
4727: else
4728: l_sign_off_flag := p_sign_off_flag;
4721: pa_utils.add_message(p_app_short_name => 'PA',
4722: p_msg_name => 'PA_CI_INV_SIGN_OFF_FLAG');
4723: if (l_debug_mode = 'Y') then
4724: pa_debug.g_err_stage := 'sign off flag can either be Y or N';
4725: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4726: end if;
4727: else
4728: l_sign_off_flag := p_sign_off_flag;
4729: end if;
4774: );
4775:
4776: if(x_return_status <> fnd_api.g_ret_sts_success) then
4777: if (l_debug_mode = 'Y') then
4778: pa_debug.g_err_stage := 'error occured while validating the assignee id';
4779: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4780: end if;
4781: raise fnd_api.g_exc_error;
4782: end if;
4775:
4776: if(x_return_status <> fnd_api.g_ret_sts_success) then
4777: if (l_debug_mode = 'Y') then
4778: pa_debug.g_err_stage := 'error occured while validating the assignee id';
4779: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4780: end if;
4781: raise fnd_api.g_exc_error;
4782: end if;
4783:
4803: );
4804:
4805: if(x_return_status <> FND_API.G_RET_STS_SUCCESS) then
4806: if (l_debug_mode = 'Y') then
4807: pa_debug.g_err_stage := 'error occured while reassigning the action';
4808: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4809: end if;
4810: raise fnd_api.g_exc_unexpected_error;
4811: end if;
4804:
4805: if(x_return_status <> FND_API.G_RET_STS_SUCCESS) then
4806: if (l_debug_mode = 'Y') then
4807: pa_debug.g_err_stage := 'error occured while reassigning the action';
4808: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4809: end if;
4810: raise fnd_api.g_exc_unexpected_error;
4811: end if;
4812:
4830: end if;
4831:
4832: if(x_return_status <> FND_API.G_RET_STS_SUCCESS) then
4833: if (l_debug_mode = 'Y') then
4834: pa_debug.g_err_stage := 'error occurred while closing the notification';
4835: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4836: end if;
4837: raise fnd_api.g_exc_unexpected_error;
4838: end if;
4831:
4832: if(x_return_status <> FND_API.G_RET_STS_SUCCESS) then
4833: if (l_debug_mode = 'Y') then
4834: pa_debug.g_err_stage := 'error occurred while closing the notification';
4835: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4836: end if;
4837: raise fnd_api.g_exc_unexpected_error;
4838: end if;
4839:
4869: );
4870:
4871: if(x_return_status <> FND_API.G_RET_STS_SUCCESS) then
4872: if (l_debug_mode = 'Y') then
4873: pa_debug.g_err_stage := 'error occured while adding the response';
4874: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4875: end if;
4876: raise fnd_api.g_exc_unexpected_error;
4877: end if;
4870:
4871: if(x_return_status <> FND_API.G_RET_STS_SUCCESS) then
4872: if (l_debug_mode = 'Y') then
4873: pa_debug.g_err_stage := 'error occured while adding the response';
4874: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4875: end if;
4876: raise fnd_api.g_exc_unexpected_error;
4877: end if;
4878:
4896: end if;
4897:
4898: if(x_return_status <> FND_API.G_RET_STS_SUCCESS) then
4899: if (l_debug_mode = 'Y') then
4900: pa_debug.g_err_stage := 'error occurred while closing the notification';
4901: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4902: end if;
4903: raise fnd_api.g_exc_unexpected_error;
4904: end if;
4897:
4898: if(x_return_status <> FND_API.G_RET_STS_SUCCESS) then
4899: if (l_debug_mode = 'Y') then
4900: pa_debug.g_err_stage := 'error occurred while closing the notification';
4901: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4902: end if;
4903: raise fnd_api.g_exc_unexpected_error;
4904: end if;
4905: end if;-- if(l_perform_action is not null and l_perform_action = 'O') then
4910:
4911: if (p_commit = fnd_api.g_true and x_return_status = fnd_api.g_ret_sts_success)
4912: then
4913: if l_debug_mode = 'Y' then
4914: pa_debug.g_err_stage := 'about to do a commit';
4915: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4916: end if;
4917: commit;
4918: end if;
4911: if (p_commit = fnd_api.g_true and x_return_status = fnd_api.g_ret_sts_success)
4912: then
4913: if l_debug_mode = 'Y' then
4914: pa_debug.g_err_stage := 'about to do a commit';
4915: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4916: end if;
4917: commit;
4918: end if;
4919:
4918: end if;
4919:
4920: --rest the stack;
4921: if l_debug_mode = 'Y' then
4922: pa_debug.reset_curr_function;
4923: end if;
4924:
4925:
4926: Exception
4951: /*no inout variables to initialize to their initial values*/
4952:
4953: --reset the error stack;
4954: if l_debug_mode = 'Y' then
4955: pa_debug.reset_curr_function;
4956: end if;
4957:
4958: when fnd_api.g_exc_unexpected_error then
4959: --do a rollback;
4972: /*no inout variables to initialize to their initial values*/
4973:
4974: --reset the error stack;
4975: if l_debug_mode = 'Y' then
4976: pa_debug.reset_curr_function;
4977: end if;
4978:
4979: when others then
4980: --do a rollback;
4993: /*no inout variables to initialize to their initial values*/
4994:
4995: --reset the error stack;
4996: if l_debug_mode = 'Y' then
4997: pa_debug.reset_curr_function;
4998: end if;
4999:
5000: end TAKE_ACTION;
5001:
5041:
5042: x_return_status := FND_API.G_RET_STS_SUCCESS;
5043: x_msg_count := 0;
5044:
5045: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
5046:
5047: IF l_debug_mode = 'Y' THEN
5048: PA_DEBUG.set_curr_function(p_function => 'Cancel_Action', p_debug_mode => l_debug_mode);
5049: END IF;
5044:
5045: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
5046:
5047: IF l_debug_mode = 'Y' THEN
5048: PA_DEBUG.set_curr_function(p_function => 'Cancel_Action', p_debug_mode => l_debug_mode);
5049: END IF;
5050:
5051: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list, FND_API.G_TRUE)) THEN
5052: FND_MSG_PUB.initialize;
5056: savepoint CANCEL_ACTION_SVPT;
5057: END IF;
5058:
5059: IF l_debug_mode = 'Y' THEN
5060: pa_debug.write(l_module_name, 'Start of Cancel_Action', l_debug_level3);
5061: END IF;
5062:
5063: --Get the user_id for the logged in user
5064: l_user_id := fnd_global.user_id;
5066:
5067: /*Calling the procedure in PA_CONTROL_API_PVT.validate_priv_and_action to validate the
5068: P_ci_id and action_id and action number. and it returns the action_id*/
5069: if (l_debug_mode = 'Y') then
5070: pa_debug.g_err_stage := 'Before calling the PA_CONTROL_API_PVT.validate_priv_and_action';
5071: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5072: end if;
5073: PA_CONTROL_API_PVT.validate_priv_and_action(
5074: p_ci_id => p_ci_id
5067: /*Calling the procedure in PA_CONTROL_API_PVT.validate_priv_and_action to validate the
5068: P_ci_id and action_id and action number. and it returns the action_id*/
5069: if (l_debug_mode = 'Y') then
5070: pa_debug.g_err_stage := 'Before calling the PA_CONTROL_API_PVT.validate_priv_and_action';
5071: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5072: end if;
5073: PA_CONTROL_API_PVT.validate_priv_and_action(
5074: p_ci_id => p_ci_id
5075: ,p_action_id => p_action_id
5089: if c_get_ci_id%notfound then
5090: pa_utils.add_message(p_app_short_name => 'PA',
5091: p_msg_name => 'PA_CI_INV_ACT_ID');
5092: if (l_debug_mode = 'Y') then
5093: pa_debug.g_err_stage := 'invalid action_id passed';
5094: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5095: end if;
5096: x_return_status := FND_API.G_RET_STS_ERROR;
5097: close c_get_ci_id;
5090: pa_utils.add_message(p_app_short_name => 'PA',
5091: p_msg_name => 'PA_CI_INV_ACT_ID');
5092: if (l_debug_mode = 'Y') then
5093: pa_debug.g_err_stage := 'invalid action_id passed';
5094: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5095: end if;
5096: x_return_status := FND_API.G_RET_STS_ERROR;
5097: close c_get_ci_id;
5098: raise FND_API.G_EXC_ERROR;
5102: if l_created_by <> l_user_id then
5103: pa_utils.add_message(p_app_short_name => 'PA',
5104: p_msg_name => 'PA_CI_ACTION_NO_ACCESS');
5105: if (l_debug_mode = 'Y') then
5106: pa_debug.g_err_stage := 'invalid action_id passed';
5107: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5108: end if;
5109: x_return_status := FND_API.G_RET_STS_ERROR;
5110:
5103: pa_utils.add_message(p_app_short_name => 'PA',
5104: p_msg_name => 'PA_CI_ACTION_NO_ACCESS');
5105: if (l_debug_mode = 'Y') then
5106: pa_debug.g_err_stage := 'invalid action_id passed';
5107: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5108: end if;
5109: x_return_status := FND_API.G_RET_STS_ERROR;
5110:
5111: raise FND_API.G_EXC_ERROR;
5113: if l_status_code <> 'CI_ACTION_OPEN' then
5114: pa_utils.add_message(p_app_short_name => 'PA',
5115: p_msg_name => 'PA_CI_CANCEL_OPEN_ACTION');
5116: if (l_debug_mode = 'Y') then
5117: pa_debug.g_err_stage := 'Only open actions can be cancelled';
5118: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5119: end if;
5120: x_return_status := FND_API.G_RET_STS_ERROR;
5121: raise FND_API.G_EXC_ERROR;
5114: pa_utils.add_message(p_app_short_name => 'PA',
5115: p_msg_name => 'PA_CI_CANCEL_OPEN_ACTION');
5116: if (l_debug_mode = 'Y') then
5117: pa_debug.g_err_stage := 'Only open actions can be cancelled';
5118: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5119: end if;
5120: x_return_status := FND_API.G_RET_STS_ERROR;
5121: raise FND_API.G_EXC_ERROR;
5122: end if;
5132: PA_UTILS.add_Message( p_app_short_name => 'PA'
5133: ,p_msg_name => 'PA_CI_NO_UPDATE_ACCESS');
5134: x_return_status := FND_API.G_RET_STS_ERROR;
5135: if l_debug_mode = 'Y' then
5136: pa_debug.g_err_stage:= 'Does not have the update access';
5137: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5138: end if;
5139: raise FND_API.G_EXC_ERROR;
5140: end if;
5133: ,p_msg_name => 'PA_CI_NO_UPDATE_ACCESS');
5134: x_return_status := FND_API.G_RET_STS_ERROR;
5135: if l_debug_mode = 'Y' then
5136: pa_debug.g_err_stage:= 'Does not have the update access';
5137: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5138: end if;
5139: raise FND_API.G_EXC_ERROR;
5140: end if;
5141:
5142: --------------------------------------------------------------
5143: /*Need to chck for the open notification details cancelling*/
5144: -------------------------------------------------------------
5145: if l_debug_mode = 'Y' then
5146: pa_debug.g_err_stage:= 'Before calling the pa_ci_actions_pvt.cancel_ci_action';
5147: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5148: end if;
5149:
5150: if x_return_status = FND_API.G_RET_STS_SUCCESS THEN
5143: /*Need to chck for the open notification details cancelling*/
5144: -------------------------------------------------------------
5145: if l_debug_mode = 'Y' then
5146: pa_debug.g_err_stage:= 'Before calling the pa_ci_actions_pvt.cancel_ci_action';
5147: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5148: end if;
5149:
5150: if x_return_status = FND_API.G_RET_STS_SUCCESS THEN
5151:
5169: raise FND_API.G_EXC_ERROR;
5170: END IF;
5171: --Reset the stack
5172: if l_debug_mode = 'Y' then
5173: Pa_Debug.reset_curr_function;
5174: end if;
5175:
5176: EXCEPTION
5177: WHEN FND_API.G_EXC_ERROR THEN
5197: end if;
5198:
5199: --Reset the stack
5200: if l_debug_mode = 'Y' then
5201: Pa_Debug.reset_curr_function;
5202: end if;
5203:
5204: when others then
5205:
5216: p_error_text => x_msg_data);
5217: x_msg_count := FND_MSG_PUB.count_msg;
5218: --Reset the stack
5219: if l_debug_mode = 'Y' then
5220: Pa_Debug.reset_curr_function;
5221: end if;
5222:
5223: end Cancel_Action;
5224:
5250: l_Issue VARCHAR2(30) := 'ISSUE';
5251: -- End: Local Variables.
5252: BEGIN
5253:
5254: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
5255:
5256: IF l_debug_mode = 'Y' THEN
5257: PA_DEBUG.set_curr_function(p_function => 'Delete_Issue', p_debug_mode => l_debug_mode);
5258: END IF;
5253:
5254: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
5255:
5256: IF l_debug_mode = 'Y' THEN
5257: PA_DEBUG.set_curr_function(p_function => 'Delete_Issue', p_debug_mode => l_debug_mode);
5258: END IF;
5259:
5260: -- Clear the Global PL/SQL Message table.
5261: IF FND_API.TO_BOOLEAN(nvl(p_Init_Msg_List, FND_API.G_TRUE)) THEN
5266: savepoint DELETE_ISSUE_SVPT;
5267: END IF;
5268:
5269: IF l_debug_mode = 'Y' THEN
5270: pa_debug.write(l_module_name, 'Start of Delete_Issue', l_debug_level3);
5271: END IF;
5272: -- Initialize the Error Stack.
5273: -- PA_DEBUG.Init_Err_Stack ('PA_CONTROL_API_PUB.Delete_Issue');
5274:
5269: IF l_debug_mode = 'Y' THEN
5270: pa_debug.write(l_module_name, 'Start of Delete_Issue', l_debug_level3);
5271: END IF;
5272: -- Initialize the Error Stack.
5273: -- PA_DEBUG.Init_Err_Stack ('PA_CONTROL_API_PUB.Delete_Issue');
5274:
5275: -- Initialize the Return Status to Success.
5276: x_Return_Status := FND_API.g_Ret_Sts_Success;
5277: x_Msg_Count := 0;
5290: p_App_Short_Name => 'PA'
5291: , p_Msg_Name => 'PA_CI_INV_CI_ID');
5292: -- Raise the Error.
5293: if l_debug_mode = 'Y' then
5294: pa_debug.g_err_stage:= 'Invalid API Use';
5295: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5296: end if;
5297: RAISE FND_API.G_EXC_ERROR;
5298: END IF;
5291: , p_Msg_Name => 'PA_CI_INV_CI_ID');
5292: -- Raise the Error.
5293: if l_debug_mode = 'Y' then
5294: pa_debug.g_err_stage:= 'Invalid API Use';
5295: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5296: end if;
5297: RAISE FND_API.G_EXC_ERROR;
5298: END IF;
5299: CLOSE Get_CI_Type_Class_Code;
5316: END IF;
5317:
5318: -- Reset the Error Stack.
5319: if l_debug_mode = 'Y' then
5320: Pa_Debug.reset_curr_function;
5321: end if;
5322:
5323: -- If any Exception then catch it.
5324: EXCEPTION
5347: END IF;
5348:
5349: --Reset the stack
5350: if l_debug_mode = 'Y' then
5351: Pa_Debug.reset_curr_function;
5352: end if;
5353:
5354: WHEN OTHERS THEN
5355: -- Set the Return Status as Error.
5372: );
5373:
5374: --Reset the stack
5375: if l_debug_mode = 'Y' then
5376: Pa_Debug.reset_curr_function;
5377: end if;
5378: END Delete_Issue;
5379:
5380: /*
5402: l_CiTypeClassCode VARCHAR2(30);
5403: l_ChangeRequest VARCHAR2(30) := 'CHANGE_REQUEST';
5404: -- End: Local Variables.
5405: BEGIN
5406: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
5407:
5408: IF l_debug_mode = 'Y' THEN
5409: PA_DEBUG.set_curr_function(p_function => 'Delete_Change_Request', p_debug_mode => l_debug_mode);
5410: END IF;
5405: BEGIN
5406: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
5407:
5408: IF l_debug_mode = 'Y' THEN
5409: PA_DEBUG.set_curr_function(p_function => 'Delete_Change_Request', p_debug_mode => l_debug_mode);
5410: END IF;
5411:
5412: -- Clear the Global PL/SQL Message table.
5413: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list, FND_API.G_TRUE)) THEN
5418: savepoint DELETE_CR_SVPT;
5419: END IF;
5420:
5421: IF l_debug_mode = 'Y' THEN
5422: pa_debug.write(l_module_name, 'Start of Delete_Change_Request', l_debug_level3);
5423: END IF;
5424:
5425: -- Initialize the Error Stack.
5426: --PA_DEBUG.Init_Err_Stack ('PA_CONTROL_API_PUB.Delete_Change_Request');
5422: pa_debug.write(l_module_name, 'Start of Delete_Change_Request', l_debug_level3);
5423: END IF;
5424:
5425: -- Initialize the Error Stack.
5426: --PA_DEBUG.Init_Err_Stack ('PA_CONTROL_API_PUB.Delete_Change_Request');
5427:
5428: -- Initialize the Return Status to Success.
5429: x_Return_Status := FND_API.g_Ret_Sts_Success;
5430: x_Msg_Count := 0;
5442: PA_UTILS.Add_Message (
5443: p_App_Short_Name => 'PA'
5444: , p_Msg_Name => 'PA_CI_INV_CI_ID');
5445: if l_debug_mode = 'Y' then
5446: pa_debug.g_err_stage:= 'Invalid API Use';
5447: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5448: end if;
5449: -- Raise the Error.
5450: RAISE FND_API.G_EXC_ERROR;
5443: p_App_Short_Name => 'PA'
5444: , p_Msg_Name => 'PA_CI_INV_CI_ID');
5445: if l_debug_mode = 'Y' then
5446: pa_debug.g_err_stage:= 'Invalid API Use';
5447: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5448: end if;
5449: -- Raise the Error.
5450: RAISE FND_API.G_EXC_ERROR;
5451: END IF;
5471:
5472:
5473: --Reset the stack
5474: if l_debug_mode = 'Y' then
5475: Pa_Debug.reset_curr_function;
5476: end if;
5477:
5478: -- If any Exception then catch it.
5479: EXCEPTION
5504:
5505:
5506: --Reset the stack
5507: if l_debug_mode = 'Y' then
5508: Pa_Debug.reset_curr_function;
5509: end if;
5510:
5511: WHEN OTHERS THEN
5512: -- Set the Return Status as Error.
5529: );
5530:
5531: -- Reset the Error Stack.
5532: if l_debug_mode = 'Y' then
5533: Pa_Debug.reset_curr_function;
5534: end if;
5535: END Delete_Change_Request;
5536:
5537: /*
5559: l_CiTypeClassCode VARCHAR2(30);
5560: l_ChangeOrder VARCHAR2(30) := 'CHANGE_ORDER';
5561: -- End: Local Variables.
5562: BEGIN
5563: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
5564:
5565: IF l_debug_mode = 'Y' THEN
5566: PA_DEBUG.set_curr_function(p_function => 'Delete_Change_Order', p_debug_mode => l_debug_mode);
5567: END IF;
5562: BEGIN
5563: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
5564:
5565: IF l_debug_mode = 'Y' THEN
5566: PA_DEBUG.set_curr_function(p_function => 'Delete_Change_Order', p_debug_mode => l_debug_mode);
5567: END IF;
5568:
5569: -- Clear the Global PL/SQL Message table.
5570: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list, FND_API.G_TRUE)) THEN
5575: savepoint DELETE_CO_SVPT;
5576: END IF;
5577:
5578: IF l_debug_mode = 'Y' THEN
5579: pa_debug.write(l_module_name, 'Start of Delete_Change_Order', l_debug_level3);
5580: END IF;
5581: -- Initialize the Error Stack.
5582: --PA_DEBUG.Init_Err_Stack ('PA_CONTROL_API_PUB.Delete_Change_Order');
5583:
5578: IF l_debug_mode = 'Y' THEN
5579: pa_debug.write(l_module_name, 'Start of Delete_Change_Order', l_debug_level3);
5580: END IF;
5581: -- Initialize the Error Stack.
5582: --PA_DEBUG.Init_Err_Stack ('PA_CONTROL_API_PUB.Delete_Change_Order');
5583:
5584: -- Initialize the Return Status to Success.
5585: x_Return_Status := FND_API.g_Ret_Sts_Success;
5586: x_Msg_Count := 0;
5597: PA_UTILS.Add_Message (
5598: p_App_Short_Name => 'PA'
5599: , p_Msg_Name => 'PA_CI_INV_CI_ID');
5600: if l_debug_mode = 'Y' then
5601: pa_debug.g_err_stage:= 'Invalid API Use';
5602: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5603: end if;
5604: -- Raise an Error.
5605: RAISE FND_API.G_EXC_ERROR;
5598: p_App_Short_Name => 'PA'
5599: , p_Msg_Name => 'PA_CI_INV_CI_ID');
5600: if l_debug_mode = 'Y' then
5601: pa_debug.g_err_stage:= 'Invalid API Use';
5602: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5603: end if;
5604: -- Raise an Error.
5605: RAISE FND_API.G_EXC_ERROR;
5606: END IF;
5624: END IF;
5625:
5626: -- Reset the Error Stack.
5627: if l_debug_mode = 'Y' then
5628: Pa_Debug.reset_curr_function;
5629: end if;
5630:
5631: -- If any Exception then catch it.
5632: EXCEPTION
5656: END IF;
5657:
5658: -- Reset the Error Stack.
5659: if l_debug_mode = 'Y' then
5660: Pa_Debug.reset_curr_function;
5661: end if;
5662:
5663: WHEN OTHERS THEN
5664: -- Set the Return Status as Error.
5681: );
5682:
5683: -- Reset the Error Stack.
5684: if l_debug_mode = 'Y' then
5685: Pa_Debug.reset_curr_function;
5686: end if;
5687: END Delete_Change_Order;
5688:
5689:
5721: l_Msg_Data VARCHAR2(2000);
5722: l_Msg_Index_Out NUMBER;
5723: -- End: Local Variables.
5724: BEGIN
5725: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
5726:
5727: IF l_debug_mode = 'Y' THEN
5728: PA_DEBUG.set_curr_function(p_function => 'Add_Comments', p_debug_mode => l_debug_mode);
5729: END IF;
5724: BEGIN
5725: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
5726:
5727: IF l_debug_mode = 'Y' THEN
5728: PA_DEBUG.set_curr_function(p_function => 'Add_Comments', p_debug_mode => l_debug_mode);
5729: END IF;
5730:
5731: -- Clear the Global PL/SQL Message table.
5732: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list, FND_API.G_TRUE)) THEN
5733: FND_MSG_PUB.initialize;
5734: END IF;
5735:
5736: IF l_debug_mode = 'Y' THEN
5737: pa_debug.write(l_module_name, 'Start of Add_Comments', l_debug_level3);
5738: END IF;
5739:
5740: -- Set the SavePoint if we have been requested to Commit the Data.
5741: IF (p_Commit = FND_API.G_TRUE) THEN
5755: p_App_Short_Name => 'PA'
5756: , p_Msg_Name => 'PA_CI_MISS_CI_ID'
5757: );
5758: if l_debug_mode = 'Y' then
5759: pa_debug.g_err_stage:= 'CI_ID is not passed';
5760: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5761: end if;
5762: -- Raise the Invalid Argument exception.
5763: RAISE FND_API.G_EXC_ERROR;
5756: , p_Msg_Name => 'PA_CI_MISS_CI_ID'
5757: );
5758: if l_debug_mode = 'Y' then
5759: pa_debug.g_err_stage:= 'CI_ID is not passed';
5760: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5761: end if;
5762: -- Raise the Invalid Argument exception.
5763: RAISE FND_API.G_EXC_ERROR;
5764: END IF;
5776: p_App_Short_Name => 'PA'
5777: , p_Msg_Name => 'PA_CI_INV_CI_ID'
5778: );
5779: if l_debug_mode = 'Y' then
5780: pa_debug.g_err_stage:= 'CI_ID is invalid';
5781: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5782: end if;
5783: -- Raise the Invalid Argument exception.
5784: RAISE FND_API.G_EXC_ERROR;
5777: , p_Msg_Name => 'PA_CI_INV_CI_ID'
5778: );
5779: if l_debug_mode = 'Y' then
5780: pa_debug.g_err_stage:= 'CI_ID is invalid';
5781: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5782: end if;
5783: -- Raise the Invalid Argument exception.
5784: RAISE FND_API.G_EXC_ERROR;
5785: END IF;
5791: -- If NO_DATA_FOUND then report Error.
5792: IF (Get_CI_Data%NOTFOUND) THEN
5793: -- Code to Report Error and Return.
5794: if l_debug_mode = 'Y' then
5795: pa_debug.g_err_stage:= 'CI_ID is invalid, No data founc in Get_CI_Data Cursor';
5796: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5797: end if;
5798: CLOSE Get_CI_Data;
5799: RAISE FND_API.G_EXC_ERROR;
5792: IF (Get_CI_Data%NOTFOUND) THEN
5793: -- Code to Report Error and Return.
5794: if l_debug_mode = 'Y' then
5795: pa_debug.g_err_stage:= 'CI_ID is invalid, No data founc in Get_CI_Data Cursor';
5796: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5797: end if;
5798: CLOSE Get_CI_Data;
5799: RAISE FND_API.G_EXC_ERROR;
5800: END IF;
5807: -- he would be able to see the Control Item on the UI.
5808: IF (PA_CI_SECURITY_PKG.Check_View_Access (p_Ci_Id, l_ProjectId, l_StatusCode, l_CiTypeClassCode) = 'T') THEN
5809: -- For each Comment in the passed in array, insert it.
5810: if l_debug_mode = 'Y' then
5811: pa_debug.g_err_stage:= 'Before Calling PA_CI_ACTIONS_PUB.Add_CI_Comment in a for loop';
5812: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5813: end if;
5814: FOR i IN 1..p_Comments_Tbl.COUNT LOOP
5815: PA_CI_ACTIONS_PUB.Add_CI_Comment (
5808: IF (PA_CI_SECURITY_PKG.Check_View_Access (p_Ci_Id, l_ProjectId, l_StatusCode, l_CiTypeClassCode) = 'T') THEN
5809: -- For each Comment in the passed in array, insert it.
5810: if l_debug_mode = 'Y' then
5811: pa_debug.g_err_stage:= 'Before Calling PA_CI_ACTIONS_PUB.Add_CI_Comment in a for loop';
5812: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5813: end if;
5814: FOR i IN 1..p_Comments_Tbl.COUNT LOOP
5815: PA_CI_ACTIONS_PUB.Add_CI_Comment (
5816: p_Api_Version => p_Api_Version_Number
5852: END IF;
5853:
5854: -- Reset the Error Stack.
5855: if l_debug_mode = 'Y' then
5856: Pa_Debug.reset_curr_function;
5857: end if;
5858:
5859: -- If any Exception then catch it.
5860: EXCEPTION
5885: END IF;
5886:
5887: -- Reset the Error Stack.
5888: if l_debug_mode = 'Y' then
5889: Pa_Debug.reset_curr_function;
5890: end if;
5891:
5892: WHEN OTHERS THEN
5893: -- Rollback.
5911: );
5912:
5913: -- Reset the Error Stack.
5914: if l_debug_mode = 'Y' then
5915: Pa_Debug.reset_curr_function;
5916: end if;
5917: END Add_Comments;
5918:
5919:
5955: l_UpdateAccess VARCHAR2(1);
5956: l_UpdateAllowed VARCHAR2(1);
5957: -- End: Local Variables.
5958: BEGIN
5959: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
5960:
5961: IF l_debug_mode = 'Y' THEN
5962: PA_DEBUG.set_curr_function(p_function => 'Add_Related_Items', p_debug_mode => l_debug_mode);
5963: END IF;
5958: BEGIN
5959: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
5960:
5961: IF l_debug_mode = 'Y' THEN
5962: PA_DEBUG.set_curr_function(p_function => 'Add_Related_Items', p_debug_mode => l_debug_mode);
5963: END IF;
5964:
5965: -- Clear the Global PL/SQL Message table.
5966: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list, FND_API.G_TRUE)) THEN
5967: FND_MSG_PUB.initialize;
5968: END IF;
5969:
5970: IF l_debug_mode = 'Y' THEN
5971: pa_debug.write(l_module_name, 'Start of Add_Related_Items', l_debug_level3);
5972: END IF;
5973: -- Initialize the Error Stack.
5974: --PA_DEBUG.Init_Err_Stack ('PA_CONTROL_API_PUB.Add_Related_Items');
5975:
5970: IF l_debug_mode = 'Y' THEN
5971: pa_debug.write(l_module_name, 'Start of Add_Related_Items', l_debug_level3);
5972: END IF;
5973: -- Initialize the Error Stack.
5974: --PA_DEBUG.Init_Err_Stack ('PA_CONTROL_API_PUB.Add_Related_Items');
5975:
5976: -- Set the SavePoint if we have been requested to Commit the Data.
5977: IF (p_Commit = FND_API.G_TRUE) THEN
5978: SAVEPOINT ADD_RELATED_ITEMS_SVPT;
5992: p_App_Short_Name => 'PA'
5993: , p_Msg_Name => 'PA_CI_MISS_CI_ID'
5994: );
5995: if l_debug_mode = 'Y' then
5996: pa_debug.g_err_stage:= 'CI_ID is not passed';
5997: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5998: end if;
5999: -- Raise the Invalid Argument exception.
6000: RAISE FND_API.G_EXC_ERROR;
5993: , p_Msg_Name => 'PA_CI_MISS_CI_ID'
5994: );
5995: if l_debug_mode = 'Y' then
5996: pa_debug.g_err_stage:= 'CI_ID is not passed';
5997: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5998: end if;
5999: -- Raise the Invalid Argument exception.
6000: RAISE FND_API.G_EXC_ERROR;
6001: END IF;
6013: p_App_Short_Name => 'PA'
6014: , p_Msg_Name => 'PA_CI_INV_CI_ID'
6015: );
6016: if l_debug_mode = 'Y' then
6017: pa_debug.g_err_stage:= 'CI_ID is Invalid';
6018: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6019: end if;
6020: -- Raise the Invalid Argument exception.
6021: RAISE FND_API.G_EXC_ERROR;
6014: , p_Msg_Name => 'PA_CI_INV_CI_ID'
6015: );
6016: if l_debug_mode = 'Y' then
6017: pa_debug.g_err_stage:= 'CI_ID is Invalid';
6018: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6019: end if;
6020: -- Raise the Invalid Argument exception.
6021: RAISE FND_API.G_EXC_ERROR;
6022: END IF;
6066: , p_Token1 => 'NUMBER'
6067: , p_Value1 => i
6068: );
6069: if l_debug_mode = 'Y' then
6070: pa_debug.g_err_stage:= 'Invalid Related_Item ['||i||']';
6071: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6072: end if;
6073: -- Set the Error Occured flag.
6074: l_AnyError := 'Y';
6067: , p_Value1 => i
6068: );
6069: if l_debug_mode = 'Y' then
6070: pa_debug.g_err_stage:= 'Invalid Related_Item ['||i||']';
6071: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6072: end if;
6073: -- Set the Error Occured flag.
6074: l_AnyError := 'Y';
6075: ELSE
6075: ELSE
6076: -- Close the Cursor.
6077: CLOSE Check_Valid_CI;
6078: if l_debug_mode = 'Y' then
6079: pa_debug.g_err_stage:= 'Before Calling PA_CONTROL_ITEMS_PVT.Add_Related_Item for the related item ['||i||']';
6080: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6081: end if;
6082: -- Call our API for insertion.
6083: PA_CONTROL_ITEMS_PVT.Add_Related_Item (
6076: -- Close the Cursor.
6077: CLOSE Check_Valid_CI;
6078: if l_debug_mode = 'Y' then
6079: pa_debug.g_err_stage:= 'Before Calling PA_CONTROL_ITEMS_PVT.Add_Related_Item for the related item ['||i||']';
6080: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6081: end if;
6082: -- Call our API for insertion.
6083: PA_CONTROL_ITEMS_PVT.Add_Related_Item (
6084: p_Api_Version => p_Api_Version_Number
6114: p_App_Short_Name => 'PA'
6115: , p_Msg_Name => 'PA_CI_UPDATE_NOT_ALLOWED'
6116: );
6117: if l_debug_mode = 'Y' then
6118: pa_debug.g_err_stage:= 'User does not have the privilege to update this Control Item.';
6119: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6120: end if;
6121: END IF;
6122:
6115: , p_Msg_Name => 'PA_CI_UPDATE_NOT_ALLOWED'
6116: );
6117: if l_debug_mode = 'Y' then
6118: pa_debug.g_err_stage:= 'User does not have the privilege to update this Control Item.';
6119: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6120: end if;
6121: END IF;
6122:
6123: -- Check if update was denied by Status Control or not.
6128: p_App_Short_Name => 'PA'
6129: , p_Msg_Name => 'PA_CI_NO_ALLOW_UPDATE'
6130: );
6131: if l_debug_mode = 'Y' then
6132: pa_debug.g_err_stage:= 'This Control Item cannot be updated in its present status.';
6133: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6134: end if;
6135: END IF;
6136:
6129: , p_Msg_Name => 'PA_CI_NO_ALLOW_UPDATE'
6130: );
6131: if l_debug_mode = 'Y' then
6132: pa_debug.g_err_stage:= 'This Control Item cannot be updated in its present status.';
6133: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6134: end if;
6135: END IF;
6136:
6137: -- Raise the Invalid Argument exception.
6147: p_App_Short_Name => 'PA'
6148: , p_Msg_Name => 'PA_CI_APPROVAL_WORKFLOW'
6149: );
6150: if l_debug_mode = 'Y' then
6151: pa_debug.g_err_stage:= 'Ci_Id has Workflow attached.';
6152: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6153: end if;
6154: -- Raise the Invalid Argument exception.
6155: RAISE FND_API.G_EXC_ERROR;
6148: , p_Msg_Name => 'PA_CI_APPROVAL_WORKFLOW'
6149: );
6150: if l_debug_mode = 'Y' then
6151: pa_debug.g_err_stage:= 'Ci_Id has Workflow attached.';
6152: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6153: end if;
6154: -- Raise the Invalid Argument exception.
6155: RAISE FND_API.G_EXC_ERROR;
6156: END IF;
6162: END IF;
6163:
6164: -- Reset the Error Stack.
6165: if l_debug_mode = 'Y' then
6166: Pa_Debug.reset_curr_function;
6167: end if;
6168:
6169: -- If any Exception then catch it.
6170: EXCEPTION
6195: END IF;
6196:
6197: -- Reset the Error Stack.
6198: if l_debug_mode = 'Y' then
6199: Pa_Debug.reset_curr_function;
6200: end if;
6201:
6202: WHEN OTHERS THEN
6203: -- Rollback.
6221: );
6222:
6223: -- Reset the Error Stack.
6224: if l_debug_mode = 'Y' then
6225: Pa_Debug.reset_curr_function;
6226: end if;
6227: END Add_Related_Items;
6228:
6229: /*
6261: l_Msg_Data VARCHAR2(2000);
6262: l_Msg_Index_Out NUMBER;
6263: -- End: Local Variables.
6264: BEGIN
6265: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
6266:
6267: IF l_debug_mode = 'Y' THEN
6268: PA_DEBUG.set_curr_function(p_function => 'Delete_Related_Item', p_debug_mode => l_debug_mode);
6269: END IF;
6264: BEGIN
6265: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
6266:
6267: IF l_debug_mode = 'Y' THEN
6268: PA_DEBUG.set_curr_function(p_function => 'Delete_Related_Item', p_debug_mode => l_debug_mode);
6269: END IF;
6270:
6271: -- Clear the Global PL/SQL Message table.
6272: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list, FND_API.G_TRUE)) THEN
6279: END IF;
6280:
6281:
6282: IF l_debug_mode = 'Y' THEN
6283: pa_debug.write(l_module_name, 'Start of Delete_Related_Item', l_debug_level3);
6284: END IF;
6285: -- Initialize the Error Stack.
6286: --PA_DEBUG.Init_Err_Stack ('PA_CONTROL_API_PUB.Delete_Related_Item');
6287:
6282: IF l_debug_mode = 'Y' THEN
6283: pa_debug.write(l_module_name, 'Start of Delete_Related_Item', l_debug_level3);
6284: END IF;
6285: -- Initialize the Error Stack.
6286: --PA_DEBUG.Init_Err_Stack ('PA_CONTROL_API_PUB.Delete_Related_Item');
6287:
6288: -- Initialize the Return Status to Success.
6289: x_Return_Status := FND_API.g_Ret_Sts_Success;
6290: x_Msg_Count := 0;
6298: p_App_Short_Name => 'PA'
6299: , p_Msg_Name => 'PA_CI_MISS_CI_ID'
6300: );
6301: if l_debug_mode = 'Y' then
6302: pa_debug.g_err_stage:= 'CI_ID or TO_CI_ID is not passed';
6303: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6304: end if;
6305: -- Raise the Invalid Argument exception.
6306: RAISE FND_API.G_EXC_ERROR;
6299: , p_Msg_Name => 'PA_CI_MISS_CI_ID'
6300: );
6301: if l_debug_mode = 'Y' then
6302: pa_debug.g_err_stage:= 'CI_ID or TO_CI_ID is not passed';
6303: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6304: end if;
6305: -- Raise the Invalid Argument exception.
6306: RAISE FND_API.G_EXC_ERROR;
6307: END IF;
6319: p_App_Short_Name => 'PA'
6320: , p_Msg_Name => 'PA_CI_INV_CI_ID'
6321: );
6322: if l_debug_mode = 'Y' then
6323: pa_debug.g_err_stage:= 'CI_ID is Invalid';
6324: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6325: end if;
6326: -- Raise the Invalid Argument exception.
6327: RAISE FND_API.G_EXC_ERROR;
6320: , p_Msg_Name => 'PA_CI_INV_CI_ID'
6321: );
6322: if l_debug_mode = 'Y' then
6323: pa_debug.g_err_stage:= 'CI_ID is Invalid';
6324: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6325: end if;
6326: -- Raise the Invalid Argument exception.
6327: RAISE FND_API.G_EXC_ERROR;
6328: END IF;
6341: p_App_Short_Name => 'PA'
6342: , p_Msg_Name => 'PA_CI_INV_CI_ID'
6343: );
6344: if l_debug_mode = 'Y' then
6345: pa_debug.g_err_stage:= 'TO_CI_ID is Invalid';
6346: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6347: end if;
6348: -- Raise the Invalid Argument exception.
6349: RAISE FND_API.G_EXC_ERROR;
6342: , p_Msg_Name => 'PA_CI_INV_CI_ID'
6343: );
6344: if l_debug_mode = 'Y' then
6345: pa_debug.g_err_stage:= 'TO_CI_ID is Invalid';
6346: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6347: end if;
6348: -- Raise the Invalid Argument exception.
6349: RAISE FND_API.G_EXC_ERROR;
6350: END IF;
6376: l_UpdateAllowed := PA_CONTROL_ITEMS_UTILS.CheckCIActionAllowed ('CONTROL_ITEM', l_StatusCode, 'CONTROL_ITEM_ALLOW_UPDATE', p_Ci_Id);
6377: l_UpdateAccess := PA_CI_SECURITY_PKG.Check_Update_Access (p_Ci_Id);
6378: IF (l_UpdateAllowed = 'Y' AND l_UpdateAccess = 'T') THEN
6379: if l_debug_mode = 'Y' then
6380: pa_debug.g_err_stage:= 'Before Calling PA_CONTROL_ITEMS_PVT.Delete_Related_Item';
6381: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6382: end if;
6383: -- Call our procedure to Delete the Item.
6384: PA_CONTROL_ITEMS_PVT.Delete_Related_Item (
6377: l_UpdateAccess := PA_CI_SECURITY_PKG.Check_Update_Access (p_Ci_Id);
6378: IF (l_UpdateAllowed = 'Y' AND l_UpdateAccess = 'T') THEN
6379: if l_debug_mode = 'Y' then
6380: pa_debug.g_err_stage:= 'Before Calling PA_CONTROL_ITEMS_PVT.Delete_Related_Item';
6381: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6382: end if;
6383: -- Call our procedure to Delete the Item.
6384: PA_CONTROL_ITEMS_PVT.Delete_Related_Item (
6385: p_Api_Version => p_Api_Version_Number
6401: p_App_Short_Name => 'PA'
6402: , p_Msg_Name => 'PA_CI_UPDATE_NOT_ALLOWED'
6403: );
6404: if l_debug_mode = 'Y' then
6405: pa_debug.g_err_stage:= 'User does not have the privilege to update this Control Item.';
6406: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6407: end if;
6408: END IF;
6409:
6402: , p_Msg_Name => 'PA_CI_UPDATE_NOT_ALLOWED'
6403: );
6404: if l_debug_mode = 'Y' then
6405: pa_debug.g_err_stage:= 'User does not have the privilege to update this Control Item.';
6406: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6407: end if;
6408: END IF;
6409:
6410: -- Check if update was denied by Status Control or not.
6415: p_App_Short_Name => 'PA'
6416: , p_Msg_Name => 'PA_CI_NO_ALLOW_UPDATE'
6417: );
6418: if l_debug_mode = 'Y' then
6419: pa_debug.g_err_stage:= 'This Control Item cannot be updated in its present status.';
6420: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6421: end if;
6422: END IF;
6423:
6416: , p_Msg_Name => 'PA_CI_NO_ALLOW_UPDATE'
6417: );
6418: if l_debug_mode = 'Y' then
6419: pa_debug.g_err_stage:= 'This Control Item cannot be updated in its present status.';
6420: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6421: end if;
6422: END IF;
6423:
6424: -- Raise the Invalid Argument exception.
6434: p_App_Short_Name => 'PA'
6435: , p_Msg_Name => 'PA_CI_APPROVAL_WORKFLOW'
6436: );
6437: if l_debug_mode = 'Y' then
6438: pa_debug.g_err_stage:= 'CI_ID has WorkFlow Attached';
6439: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6440: end if;
6441: -- Raise the Invalid Argument exception.
6442: RAISE FND_API.G_EXC_ERROR;
6435: , p_Msg_Name => 'PA_CI_APPROVAL_WORKFLOW'
6436: );
6437: if l_debug_mode = 'Y' then
6438: pa_debug.g_err_stage:= 'CI_ID has WorkFlow Attached';
6439: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6440: end if;
6441: -- Raise the Invalid Argument exception.
6442: RAISE FND_API.G_EXC_ERROR;
6443: END IF;
6449: END IF;
6450:
6451: -- Reset the Error Stack.
6452: if l_debug_mode = 'Y' then
6453: Pa_Debug.reset_curr_function;
6454: end if;
6455:
6456: -- If any Exception then catch it.
6457: EXCEPTION
6482: END IF;
6483:
6484: -- Reset the Error Stack.
6485: if l_debug_mode = 'Y' then
6486: Pa_Debug.reset_curr_function;
6487: end if;
6488:
6489: WHEN OTHERS THEN
6490: -- Set the Return Status as Error.
6508: );
6509:
6510: -- Reset the Error Stack.
6511: if l_debug_mode = 'Y' then
6512: Pa_Debug.reset_curr_function;
6513: end if;
6514: END Delete_Related_Item;
6515:
6516:
6770: BEGIN
6771:
6772: x_return_status := FND_API.G_RET_STS_SUCCESS;
6773:
6774: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.login_id, 275, null, null), 'N');
6775:
6776: IF l_debug_mode = 'Y' THEN
6777: PA_DEBUG.set_curr_function(p_function => 'UPDATE_ISSUE', p_debug_mode => l_debug_mode);
6778: END IF;
6773:
6774: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.login_id, 275, null, null), 'N');
6775:
6776: IF l_debug_mode = 'Y' THEN
6777: PA_DEBUG.set_curr_function(p_function => 'UPDATE_ISSUE', p_debug_mode => l_debug_mode);
6778: END IF;
6779:
6780: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list, FND_API.G_TRUE)) THEN
6781: FND_MSG_PUB.initialize;
6785: savepoint UPDATE_ISSUE_SVPT;
6786: END IF;
6787:
6788: IF l_debug_mode = 'Y' THEN
6789: pa_debug.write(l_module, 'Start of Update Issue', l_debug_level3);
6790: END IF;
6791:
6792: OPEN curr_row;
6793: FETCH curr_row INTO cp;
6857: if l_ci_type_class_code <> l_class_code then
6858: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
6859: p_msg_name => 'PA_CI_INV_API_USE');
6860: if l_debug_mode = 'Y' then
6861: pa_debug.g_err_stage:= 'wrong usage of the api for the control item type';
6862: pa_debug.write(l_module,pa_debug.g_err_stage,l_debug_level3);
6863: end if;
6864: RAISE FND_API.G_EXC_ERROR;
6865: end if;
6858: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
6859: p_msg_name => 'PA_CI_INV_API_USE');
6860: if l_debug_mode = 'Y' then
6861: pa_debug.g_err_stage:= 'wrong usage of the api for the control item type';
6862: pa_debug.write(l_module,pa_debug.g_err_stage,l_debug_level3);
6863: end if;
6864: RAISE FND_API.G_EXC_ERROR;
6865: end if;
6866:
6880:
6881: END IF;
6882:
6883: IF l_debug_mode = 'Y' THEN
6884: pa_debug.write(l_module, 'After call to pa_ci_security_pkg.check_update_access', l_debug_level3);
6885: END IF;
6886:
6887: /* Check for the status control: check whether the action CONTROL_ITEM_ALLOW_UPDATE is allowed on the current status of the issue. */
6888:
6896: END IF;
6897:
6898:
6899: IF l_debug_mode = 'Y' THEN
6900: pa_debug.write(l_module, 'After call to pa_control_items_utils.CheckCIActionAllowed', l_debug_level3);
6901: END IF;
6902:
6903: /* The control item will not be updateable if the current status has approval workflow attached. */
6904:
6912:
6913: END IF;
6914:
6915: IF l_debug_mode = 'Y' THEN
6916: pa_debug.write(l_module, 'After checking for submitted status', l_debug_level3);
6917: END IF;
6918:
6919:
6920: IF p_ci_status_code = G_PA_MISS_CHAR THEN
6977:
6978: l_stmnt := l_sel_clause || l_from_clause || l_where || l_where1;
6979:
6980: IF l_debug_mode = 'Y' THEN
6981: pa_debug.write(l_module, l_stmnt , l_debug_level3);
6982: END IF;
6983:
6984: l_cursor := dbms_sql.open_cursor;
6985:
7007: end if;
7008: END IF;
7009:
7010: IF l_debug_mode = 'Y' THEN
7011: pa_debug.write(l_module, 'After validating p_ci_status_code', l_debug_level3);
7012: END IF;
7013:
7014: IF dbms_sql.is_open(l_cursor) THEN
7015: dbms_sql.close_cursor(l_cursor);
7506: l_curr_status_code <> l_ci_status_code AND
7507: l_to_status_flag = 'Y') THEN
7508:
7509: IF l_debug_mode = 'Y' THEN
7510: pa_debug.write(l_module, 'Before call to PA_CONTROL_ITEMS_UTILS.ChangeCIStatusValidate', l_debug_level3);
7511: END IF;
7512:
7513: PA_CONTROL_ITEMS_UTILS.ChangeCIStatusValidate (
7514: p_init_msg_list => p_init_msg_list
7532: In case of CR/CO, if Auto Approve on Submission is enabled and while changing the status to submitted,
7533: then the new status would be the success status code defined for the workflow */
7534:
7535: IF l_debug_mode = 'Y' THEN
7536: pa_debug.write(l_module, 'after call to PA_CONTROL_ITEMS_UTILS.ChangeCIStatusValidate: x_return_status = '||x_return_status, l_debug_level3);
7537: pa_debug.write(l_module, 'after call to PA_CONTROL_ITEMS_UTILS.ChangeCIStatusValidate: l_ci_status_code = '||l_ci_status_code, l_debug_level3);
7538: END IF;
7539:
7540: IF x_return_status = 'S' THEN
7533: then the new status would be the success status code defined for the workflow */
7534:
7535: IF l_debug_mode = 'Y' THEN
7536: pa_debug.write(l_module, 'after call to PA_CONTROL_ITEMS_UTILS.ChangeCIStatusValidate: x_return_status = '||x_return_status, l_debug_level3);
7537: pa_debug.write(l_module, 'after call to PA_CONTROL_ITEMS_UTILS.ChangeCIStatusValidate: l_ci_status_code = '||l_ci_status_code, l_debug_level3);
7538: END IF;
7539:
7540: IF x_return_status = 'S' THEN
7541: l_status_change_flag := 'Y';
7541: l_status_change_flag := 'Y';
7542: END IF;
7543:
7544: IF l_debug_mode = 'Y' THEN
7545: pa_debug.write(l_module, 'after call to PA_CONTROL_ITEMS_UTILS.ChangeCIStatusValidate: l_status_change_flag = '||l_status_change_flag, l_debug_level3);
7546: END IF;
7547:
7548: IF (l_resolution_req IS NOT NULL AND l_resolution_req = 'Y') THEN
7549: IF (PA_CONTROL_ITEMS_UTILS.checkhasresolution(p_ci_id) <> 'Y' ) THEN
7582:
7583: IF (l_validate_only <> fnd_api.g_true AND x_return_status = 'S') THEN
7584:
7585: IF l_debug_mode = 'Y' THEN
7586: pa_debug.write(l_module, 'before call to PA_CONTROL_ITEMS_PUB.UPDATE_CONTROL_ITEM', l_debug_level3);
7587: END IF;
7588:
7589: PA_CONTROL_ITEMS_PUB.UPDATE_CONTROL_ITEM (
7590: p_api_version => 1.0
7648: ,x_msg_data => x_msg_data
7649: );
7650:
7651: IF l_debug_mode = 'Y' THEN
7652: pa_debug.write(l_module, 'after call to PA_CONTROL_ITEMS_PUB.UPDATE_CONTROL_ITEM : x_return_status = '||x_return_status, l_debug_level3);
7653: END IF;
7654:
7655: END IF;
7656:
7656:
7657: IF (l_status_change_flag = 'Y' AND l_validate_only <> fnd_api.g_true AND x_return_status = 'S') THEN
7658:
7659: IF l_debug_mode = 'Y' THEN
7660: pa_debug.write(l_module, 'before call to PA_CONTROL_ITEMS_UTILS.ADD_STATUS_CHANGE_COMMENT', l_debug_level3);
7661: END IF;
7662:
7663: /* call the insert table handlers of pa_obj_status_changes and pa_ci_comments here */
7664:
7673: ,x_msg_count => x_msg_count
7674: ,x_msg_data => x_msg_data );
7675:
7676: IF l_debug_mode = 'Y' THEN
7677: pa_debug.write(l_module, 'after call to PA_CONTROL_ITEMS_UTILS.ADD_STATUS_CHANGE_COMMENT', l_debug_level3);
7678: END IF;
7679:
7680: PA_CONTROL_ITEMS_UTILS.PostChangeCIStatus (
7681: p_init_msg_list
7693: ,x_msg_data );
7694:
7695:
7696: IF l_debug_mode = 'Y' THEN
7697: pa_debug.write(l_module, 'after call to PA_CONTROL_ITEMS_UTILS.PostChangeCIStatus', l_debug_level3);
7698: END IF;
7699:
7700: END IF;
7701:
7702:
7703: IF (p_commit = FND_API.G_TRUE AND x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
7704:
7705: IF l_debug_mode = 'Y' THEN
7706: pa_debug.write(l_module, 'Before Commit', l_debug_level3);
7707: END IF;
7708:
7709: COMMIT;
7710:
7711: END IF;
7712:
7713: --Reset the stack
7714: if l_debug_mode = 'Y' then
7715: Pa_Debug.reset_curr_function;
7716: end if;
7717:
7718:
7719: EXCEPTION
7719: EXCEPTION
7720:
7721: WHEN FND_API.G_EXC_ERROR THEN
7722: IF l_debug_mode = 'Y' THEN
7723: pa_debug.write(l_module, 'in FND_API.G_EXC_ERROR exception', l_debug_level3);
7724: END IF;
7725: x_return_status := FND_API.G_RET_STS_ERROR;
7726: l_msg_count := FND_MSG_PUB.count_msg;
7727:
7744: x_msg_count := l_msg_count;
7745: END IF;
7746:
7747: IF l_debug_mode = 'Y' THEN
7748: Pa_Debug.reset_curr_function;
7749: END IF;
7750:
7751:
7752: WHEN OTHERS THEN
7750:
7751:
7752: WHEN OTHERS THEN
7753: IF l_debug_mode = 'Y' THEN
7754: pa_debug.write(l_module, 'in OTHERS exception', l_debug_level3);
7755: END IF;
7756: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7757: x_msg_data := substr(SQLERRM,1,240);
7758:
7767:
7768: x_msg_count := FND_MSG_PUB.count_msg;
7769:
7770: IF l_debug_mode = 'Y' THEN
7771: PA_DEBUG.reset_curr_function;
7772: END IF;
7773:
7774: -- RAISE;
7775:
8030: BEGIN
8031:
8032: x_return_status := FND_API.G_RET_STS_SUCCESS;
8033:
8034: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.login_id, 275, null, null), 'N');
8035:
8036: IF l_debug_mode = 'Y' THEN
8037: PA_DEBUG.set_curr_function(p_function => 'UPDATE_CHANGE_REQUEST', p_debug_mode => l_debug_mode);
8038: END IF;
8033:
8034: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.login_id, 275, null, null), 'N');
8035:
8036: IF l_debug_mode = 'Y' THEN
8037: PA_DEBUG.set_curr_function(p_function => 'UPDATE_CHANGE_REQUEST', p_debug_mode => l_debug_mode);
8038: END IF;
8039:
8040: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list, FND_API.G_TRUE)) THEN
8041: FND_MSG_PUB.initialize;
8045: savepoint UPDATE_CR_SVPT;
8046: END IF;
8047:
8048: IF l_debug_mode = 'Y' THEN
8049: pa_debug.write(l_module, 'Start of Update Change Request', l_debug_level3);
8050: END IF;
8051:
8052: OPEN curr_row;
8053: FETCH curr_row INTO cp;
8118: if l_ci_type_class_code <> l_class_code then
8119: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
8120: p_msg_name => 'PA_CI_INV_API_USE');
8121: if l_debug_mode = 'Y' then
8122: pa_debug.g_err_stage:= 'wrong usage of the api for the control item type';
8123: pa_debug.write(l_module,pa_debug.g_err_stage,l_debug_level3);
8124: end if;
8125: RAISE FND_API.G_EXC_ERROR;
8126: end if;
8119: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
8120: p_msg_name => 'PA_CI_INV_API_USE');
8121: if l_debug_mode = 'Y' then
8122: pa_debug.g_err_stage:= 'wrong usage of the api for the control item type';
8123: pa_debug.write(l_module,pa_debug.g_err_stage,l_debug_level3);
8124: end if;
8125: RAISE FND_API.G_EXC_ERROR;
8126: end if;
8127:
8141:
8142: END IF;
8143:
8144: IF l_debug_mode = 'Y' THEN
8145: pa_debug.write(l_module, 'After call to pa_ci_security_pkg.check_update_access', l_debug_level3);
8146: END IF;
8147:
8148: /* Check for the status control: check whether the action CONTROL_ITEM_ALLOW_UPDATE is allowed on the current status of the issue. */
8149:
8157: END IF;
8158:
8159:
8160: IF l_debug_mode = 'Y' THEN
8161: pa_debug.write(l_module, 'After call to pa_control_items_utils.CheckCIActionAllowed', l_debug_level3);
8162: END IF;
8163:
8164: /* The control item will not be updateable if the current status has approval workflow attached. */
8165:
8174:
8175: END IF;
8176:
8177: IF l_debug_mode = 'Y' THEN
8178: pa_debug.write(l_module, 'After checking for submitted status', l_debug_level3);
8179: END IF;
8180:
8181:
8182: IF p_ci_status_code = G_PA_MISS_CHAR THEN
8232:
8233: l_stmnt := l_sel_clause || l_from_clause || l_where || l_where1;
8234:
8235: IF l_debug_mode = 'Y' THEN
8236: pa_debug.write(l_module, l_stmnt, l_debug_level3);
8237: END IF;
8238:
8239: l_cursor := dbms_sql.open_cursor;
8240:
8763: l_curr_status_code <> l_ci_status_code AND
8764: l_to_status_flag = 'Y') THEN
8765:
8766: IF l_debug_mode = 'Y' THEN
8767: pa_debug.write(l_module, 'before call to ChangeCIStatusValidate', l_debug_level3);
8768: END IF;
8769:
8770: PA_CONTROL_ITEMS_UTILS.ChangeCIStatusValidate (
8771: p_init_msg_list => p_init_msg_list
8789: In case of CR/CO, if Auto Approve on Submission is enabled and while changing the status to submitted,
8790: then the new status would be the success status code defined for the workflow */
8791:
8792: IF l_debug_mode = 'Y' THEN
8793: pa_debug.write(l_module, 'After call to ChangeCIStatusValidate : x_return_status = '||x_return_status, l_debug_level3);
8794: pa_debug.write(l_module, 'After call to ChangeCIStatusValidate : l_ci_status_code = '||l_ci_status_code, l_debug_level3);
8795: END IF;
8796:
8797: IF x_return_status = 'S' THEN
8790: then the new status would be the success status code defined for the workflow */
8791:
8792: IF l_debug_mode = 'Y' THEN
8793: pa_debug.write(l_module, 'After call to ChangeCIStatusValidate : x_return_status = '||x_return_status, l_debug_level3);
8794: pa_debug.write(l_module, 'After call to ChangeCIStatusValidate : l_ci_status_code = '||l_ci_status_code, l_debug_level3);
8795: END IF;
8796:
8797: IF x_return_status = 'S' THEN
8798: l_status_change_flag := 'Y';
8798: l_status_change_flag := 'Y';
8799: END IF;
8800:
8801: IF l_debug_mode = 'Y' THEN
8802: pa_debug.write(l_module, 'After call to ChangeCIStatusValidate :l_status_change_flag = '||l_status_change_flag, l_debug_level3);
8803: END IF;
8804:
8805: IF (l_resolution_req IS NOT NULL AND l_resolution_req = 'Y') THEN
8806: IF (PA_CONTROL_ITEMS_UTILS.checkhasresolution(p_ci_id) <> 'Y' ) THEN
8839:
8840: IF (l_validate_only <> fnd_api.g_true AND x_return_status = 'S') THEN
8841:
8842: IF l_debug_mode = 'Y' THEN
8843: pa_debug.write(l_module, 'before call to PA_CONTROL_ITEMS_PUB.UPDATE_CONTROL_ITEM', l_debug_level3);
8844: END IF;
8845:
8846: PA_CONTROL_ITEMS_PUB.UPDATE_CONTROL_ITEM (
8847: p_api_version => 1.0
8905: ,x_msg_data => x_msg_data
8906: );
8907:
8908: IF l_debug_mode = 'Y' THEN
8909: pa_debug.write(l_module, 'after call to PA_CONTROL_ITEMS_PUB.UPDATE_CONTROL_ITEM : x_return_status = '||x_return_status, l_debug_level3);
8910: END IF;
8911:
8912: END IF;
8913:
8915:
8916: /* call the insert table handlers of pa_obj_status_changes and pa_ci_comments here */
8917:
8918: IF l_debug_mode = 'Y' THEN
8919: pa_debug.write(l_module, 'before call to PA_CONTROL_ITEMS_UTILS.ADD_STATUS_CHANGE_COMMENT', l_debug_level3);
8920: END IF;
8921:
8922: PA_CONTROL_ITEMS_UTILS.ADD_STATUS_CHANGE_COMMENT( p_object_type => 'PA_CI_TYPES'
8923: ,p_object_id => p_ci_id
8931: ,x_msg_data => x_msg_data );
8932:
8933:
8934: IF l_debug_mode = 'Y' THEN
8935: pa_debug.write(l_module, 'After call to PA_CONTROL_ITEMS_UTILS.ADD_STATUS_CHANGE_COMMENT', l_debug_level3);
8936: END IF;
8937:
8938: PA_CONTROL_ITEMS_UTILS.PostChangeCIStatus (
8939: p_init_msg_list
8951: ,x_msg_data );
8952:
8953:
8954: IF l_debug_mode = 'Y' THEN
8955: pa_debug.write(l_module, 'After call to PA_CONTROL_ITEMS_UTILS.PostChangeCIStatus', l_debug_level3);
8956: END IF;
8957:
8958: END IF;
8959:
8960:
8961: IF (p_commit = FND_API.G_TRUE AND x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
8962:
8963: IF l_debug_mode = 'Y' THEN
8964: pa_debug.write(l_module, 'Before Commit', l_debug_level3);
8965: END IF;
8966:
8967: COMMIT;
8968:
8969: END IF;
8970:
8971: --Reset the stack
8972: if l_debug_mode = 'Y' then
8973: Pa_Debug.reset_curr_function;
8974: end if;
8975:
8976: EXCEPTION
8977:
8976: EXCEPTION
8977:
8978: WHEN FND_API.G_EXC_ERROR THEN
8979: IF l_debug_mode = 'Y' THEN
8980: pa_debug.write(l_module, 'in FND_API.G_EXC_ERROR exception', l_debug_level3);
8981: END IF;
8982: x_return_status := FND_API.G_RET_STS_ERROR;
8983: l_msg_count := FND_MSG_PUB.count_msg;
8984:
9001: x_msg_count := l_msg_count;
9002: END IF;
9003:
9004: IF l_debug_mode = 'Y' THEN
9005: Pa_Debug.reset_curr_function;
9006: END IF;
9007:
9008:
9009: WHEN OTHERS THEN
9007:
9008:
9009: WHEN OTHERS THEN
9010: IF l_debug_mode = 'Y' THEN
9011: pa_debug.write(l_module, 'in OTHERS exception', l_debug_level3);
9012: END IF;
9013: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9014: x_msg_data := substr(SQLERRM,1,240);
9015:
9024:
9025: x_msg_count := FND_MSG_PUB.count_msg;
9026:
9027: IF l_debug_mode = 'Y' THEN
9028: PA_DEBUG.reset_curr_function;
9029: END IF;
9030:
9031: -- RAISE;
9032:
9287: BEGIN
9288:
9289: x_return_status := FND_API.G_RET_STS_SUCCESS;
9290:
9291: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.login_id, 275, null, null), 'N');
9292:
9293: IF l_debug_mode = 'Y' THEN
9294: PA_DEBUG.set_curr_function(p_function => 'UPDATE_CHANGE_ORDER', p_debug_mode => l_debug_mode);
9295: END IF;
9290:
9291: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.login_id, 275, null, null), 'N');
9292:
9293: IF l_debug_mode = 'Y' THEN
9294: PA_DEBUG.set_curr_function(p_function => 'UPDATE_CHANGE_ORDER', p_debug_mode => l_debug_mode);
9295: END IF;
9296:
9297: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list, FND_API.G_TRUE)) THEN
9298: FND_MSG_PUB.initialize;
9302: savepoint UPDATE_CO_SVPT;
9303: END IF;
9304:
9305: IF l_debug_mode = 'Y' THEN
9306: pa_debug.write(l_module, 'Start of Update Chaneg Order', l_debug_level3);
9307: END IF;
9308:
9309: OPEN curr_row;
9310: FETCH curr_row INTO cp;
9375: if l_ci_type_class_code <> l_class_code then
9376: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9377: p_msg_name => 'PA_CI_INV_API_USE');
9378: if l_debug_mode = 'Y' then
9379: pa_debug.g_err_stage:= 'wrong usage of the api for the control item type';
9380: pa_debug.write(l_module,pa_debug.g_err_stage,l_debug_level3);
9381: end if;
9382: RAISE FND_API.G_EXC_ERROR;
9383: end if;
9376: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9377: p_msg_name => 'PA_CI_INV_API_USE');
9378: if l_debug_mode = 'Y' then
9379: pa_debug.g_err_stage:= 'wrong usage of the api for the control item type';
9380: pa_debug.write(l_module,pa_debug.g_err_stage,l_debug_level3);
9381: end if;
9382: RAISE FND_API.G_EXC_ERROR;
9383: end if;
9384:
9397:
9398: END IF;
9399:
9400: IF l_debug_mode = 'Y' THEN
9401: pa_debug.write(l_module, 'After call to pa_ci_security_pkg.check_update_access', l_debug_level3);
9402: END IF;
9403:
9404: /* Check for the status control: check whether the action CONTROL_ITEM_ALLOW_UPDATE is allowed on the current status of the issue. */
9405:
9413: END IF;
9414:
9415:
9416: IF l_debug_mode = 'Y' THEN
9417: pa_debug.write(l_module, 'After call to pa_control_items_utils.CheckCIActionAllowed', l_debug_level3);
9418: END IF;
9419:
9420: /* The control item will not be updateable if the current status has approval workflow attached. */
9421:
9430:
9431: END IF;
9432:
9433: IF l_debug_mode = 'Y' THEN
9434: pa_debug.write(l_module, 'After checking for submitted status', l_debug_level3);
9435: END IF;
9436:
9437:
9438: IF p_ci_status_code = G_PA_MISS_CHAR THEN
9489:
9490: l_stmnt := l_sel_clause || l_from_clause || l_where || l_where1;
9491:
9492: IF l_debug_mode = 'Y' THEN
9493: pa_debug.write(l_module, l_stmnt, l_debug_level3);
9494: END IF;
9495:
9496: l_cursor := dbms_sql.open_cursor;
9497:
10021: l_curr_status_code <> l_ci_status_code AND
10022: l_to_status_flag = 'Y') THEN
10023:
10024: IF l_debug_mode = 'Y' THEN
10025: pa_debug.write(l_module, 'before call to ChangeCIStatusValidate', l_debug_level3);
10026: END IF;
10027:
10028: PA_CONTROL_ITEMS_UTILS.ChangeCIStatusValidate (
10029: p_init_msg_list => p_init_msg_list
10047: In case of CR/CO, if Auto Approve on Submission is enabled and while changing the status to submitted,
10048: then the new status would be the success status code defined for the workflow */
10049:
10050: IF l_debug_mode = 'Y' THEN
10051: pa_debug.write(l_module, 'After call to ChangeCIStatusValidate : x_return_status = '||x_return_status, l_debug_level3);
10052: pa_debug.write(l_module, 'After call to ChangeCIStatusValidate : l_ci_status_code = '||l_ci_status_code, l_debug_level3);
10053: END IF;
10054:
10055: IF x_return_status = 'S' THEN
10048: then the new status would be the success status code defined for the workflow */
10049:
10050: IF l_debug_mode = 'Y' THEN
10051: pa_debug.write(l_module, 'After call to ChangeCIStatusValidate : x_return_status = '||x_return_status, l_debug_level3);
10052: pa_debug.write(l_module, 'After call to ChangeCIStatusValidate : l_ci_status_code = '||l_ci_status_code, l_debug_level3);
10053: END IF;
10054:
10055: IF x_return_status = 'S' THEN
10056: l_status_change_flag := 'Y';
10056: l_status_change_flag := 'Y';
10057: END IF;
10058:
10059: IF l_debug_mode = 'Y' THEN
10060: pa_debug.write(l_module, 'After call to ChangeCIStatusValidate : l_status_change_flag = '||l_status_change_flag, l_debug_level3);
10061: END IF;
10062:
10063: IF (l_resolution_req IS NOT NULL AND l_resolution_req = 'Y') THEN
10064: IF (PA_CONTROL_ITEMS_UTILS.checkhasresolution(p_ci_id) <> 'Y' ) THEN
10097:
10098: IF (l_validate_only <> fnd_api.g_true AND x_return_status = 'S') THEN
10099:
10100: IF l_debug_mode = 'Y' THEN
10101: pa_debug.write(l_module, 'before call to PA_CONTROL_ITEMS_PUB.UPDATE_CONTROL_ITEM', l_debug_level3);
10102: END IF;
10103:
10104: PA_CONTROL_ITEMS_PUB.UPDATE_CONTROL_ITEM (
10105: p_api_version => 1.0
10163: ,x_msg_data => x_msg_data
10164: );
10165:
10166: IF l_debug_mode = 'Y' THEN
10167: pa_debug.write(l_module, 'after call to PA_CONTROL_ITEMS_PUB.UPDATE_CONTROL_ITEM : x_return_status = '||x_return_status, l_debug_level3);
10168: END IF;
10169:
10170: END IF;
10171:
10173:
10174: /* call the insert table handlers of pa_obj_status_changes and pa_ci_comments here */
10175:
10176: IF l_debug_mode = 'Y' THEN
10177: pa_debug.write(l_module, 'before call to PA_CONTROL_ITEMS_UTILS.ADD_STATUS_CHANGE_COMMENT', l_debug_level3);
10178: END IF;
10179:
10180: PA_CONTROL_ITEMS_UTILS.ADD_STATUS_CHANGE_COMMENT( p_object_type => 'PA_CI_TYPES'
10181: ,p_object_id => p_ci_id
10189: ,x_msg_data => x_msg_data );
10190:
10191:
10192: IF l_debug_mode = 'Y' THEN
10193: pa_debug.write(l_module, 'After call to PA_CONTROL_ITEMS_UTILS.ADD_STATUS_CHANGE_COMMENT', l_debug_level3);
10194: END IF;
10195:
10196: PA_CONTROL_ITEMS_UTILS.PostChangeCIStatus (
10197: p_init_msg_list
10209: ,x_msg_data );
10210:
10211:
10212: IF l_debug_mode = 'Y' THEN
10213: pa_debug.write(l_module, 'After call to PA_CONTROL_ITEMS_UTILS.PostChangeCIStatus', l_debug_level3);
10214: END IF;
10215:
10216: END IF;
10217:
10218:
10219: IF (p_commit = FND_API.G_TRUE AND x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
10220:
10221: IF l_debug_mode = 'Y' THEN
10222: pa_debug.write(l_module, 'Before Commit', l_debug_level3);
10223: END IF;
10224:
10225: COMMIT;
10226:
10227: END IF;
10228:
10229: --Reset the stack
10230: if l_debug_mode = 'Y' then
10231: Pa_Debug.reset_curr_function;
10232: end if;
10233:
10234:
10235: EXCEPTION
10235: EXCEPTION
10236:
10237: WHEN FND_API.G_EXC_ERROR THEN
10238: IF l_debug_mode = 'Y' THEN
10239: pa_debug.write(l_module, 'in FND_API.G_EXC_ERROR exception', l_debug_level3);
10240: END IF;
10241: x_return_status := FND_API.G_RET_STS_ERROR;
10242: l_msg_count := FND_MSG_PUB.count_msg;
10243:
10260: x_msg_count := l_msg_count;
10261: END IF;
10262:
10263: IF l_debug_mode = 'Y' THEN
10264: Pa_Debug.reset_curr_function;
10265: END IF;
10266:
10267:
10268: WHEN OTHERS THEN
10266:
10267:
10268: WHEN OTHERS THEN
10269: IF l_debug_mode = 'Y' THEN
10270: pa_debug.write(l_module, 'in OTHERS exception', l_debug_level3);
10271: END IF;
10272: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10273: x_msg_data := substr(SQLERRM,1,240);
10274:
10283:
10284: x_msg_count := FND_MSG_PUB.count_msg;
10285:
10286: IF l_debug_mode = 'Y' THEN
10287: PA_DEBUG.reset_curr_function;
10288: END IF;
10289:
10290: -- RAISE;
10291: