54: ,p_attribute13 IN pa_task_types.attribute13%TYPE := NULL
55: ,p_attribute14 IN pa_task_types.attribute14%TYPE := NULL
56: ,p_attribute15 IN pa_task_types.attribute15%TYPE := NULL
57: ,p_api_version IN NUMBER := 1.0
58: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
59: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
60: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
61: ,p_object_type IN pa_task_types.object_type%TYPE := 'PA_TASKS' -- 3279978 : Added Object Type and Progress Rollup Method
62: ,p_wf_item_type IN pa_task_types.wf_item_type%TYPE :=NULL
55: ,p_attribute14 IN pa_task_types.attribute14%TYPE := NULL
56: ,p_attribute15 IN pa_task_types.attribute15%TYPE := NULL
57: ,p_api_version IN NUMBER := 1.0
58: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
59: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
60: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
61: ,p_object_type IN pa_task_types.object_type%TYPE := 'PA_TASKS' -- 3279978 : Added Object Type and Progress Rollup Method
62: ,p_wf_item_type IN pa_task_types.wf_item_type%TYPE :=NULL
63: ,p_wf_process IN pa_task_types.wf_process%TYPE :=NULL
56: ,p_attribute15 IN pa_task_types.attribute15%TYPE := NULL
57: ,p_api_version IN NUMBER := 1.0
58: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
59: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
60: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
61: ,p_object_type IN pa_task_types.object_type%TYPE := 'PA_TASKS' -- 3279978 : Added Object Type and Progress Rollup Method
62: ,p_wf_item_type IN pa_task_types.wf_item_type%TYPE :=NULL
63: ,p_wf_process IN pa_task_types.wf_process%TYPE :=NULL
64: ,p_wf_lead_days IN pa_task_types.wf_start_lead_days%TYPE :=NULL
84: -- Initialize the Error Stack
85: PA_DEBUG.init_err_stack('PA_task_type_PUB.Create_Task_Type');
86:
87: -- Initialize the return status to success
88: x_return_status := FND_API.G_RET_STS_SUCCESS;
89:
90: --Clear the global PL/SQL message table
91: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
92: FND_MSG_PUB.initialize;
87: -- Initialize the return status to success
88: x_return_status := FND_API.G_RET_STS_SUCCESS;
89:
90: --Clear the global PL/SQL message table
91: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
92: FND_MSG_PUB.initialize;
93: END IF;
94:
95: -- Issue API savepoint if the transaction is to be committed
92: FND_MSG_PUB.initialize;
93: END IF;
94:
95: -- Issue API savepoint if the transaction is to be committed
96: IF p_commit = FND_API.G_TRUE THEN
97: SAVEPOINT CREATE_TASK_TYPE_PUB;
98: END IF;
99:
100: --Log Message
121: p_check_id_flag => 'Y',
122: x_pagelayout_id => l_task_prog_entry_page_id,
123: x_return_status => x_return_status,
124: x_error_message_code => l_error_message_code);
125: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
126: RAISE l_pagelayout_name_invalid;
127: END IF;
128:
129: -- Validate progress attributes.
158: If nvl(p_wf_lead_days,0)<0 then
159: Raise l_invalid_lead_day_exc ;
160: end if ;
161:
162: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
163: --Log Message
164: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_TASK_TYPES_PUB.Create_Task_Type.begin'
165: ,x_msg => 'calling create_Task_Type pvt'
166: ,x_log_level => 5);
211: END IF;
212:
213: x_msg_count := FND_MSG_PUB.Count_Msg;
214: IF x_msg_count = 1 THEN
215: pa_interface_utils_pub.get_messages ( p_encoded => FND_API.G_TRUE
216: ,p_msg_index => 1
217: ,p_data => x_msg_data
218: ,p_msg_index_out => l_msg_index_out
219: );
223: PA_DEBUG.Reset_Err_Stack;
224: -- If any errors exist then set the x_return_status to 'E'
225:
226: IF x_msg_count > 0 THEN
227: x_return_status := FND_API.G_RET_STS_ERROR;
228: END IF;
229:
230: -- Commit if the flag is set and there is no error
231: IF p_commit = FND_API.G_TRUE AND x_msg_count = 0 THEN
227: x_return_status := FND_API.G_RET_STS_ERROR;
228: END IF;
229:
230: -- Commit if the flag is set and there is no error
231: IF p_commit = FND_API.G_TRUE AND x_msg_count = 0 THEN
232: COMMIT;
233: END IF;
234:
235: EXCEPTION
234:
235: EXCEPTION
236: WHEN l_task_type_not_unique THEN
237: PA_UTILS.add_message('PA','PA_TASK_TYPE_NOT_UNIQUE');
238: x_return_status := FND_API.G_RET_STS_ERROR;
239: x_msg_data := 'PA_TASK_TYPE_NOT_UNIQUE';
240: x_msg_count := FND_MSG_PUB.Count_Msg;
241: IF x_msg_count = 1 THEN
242: pa_interface_utils_pub.get_messages
239: x_msg_data := 'PA_TASK_TYPE_NOT_UNIQUE';
240: x_msg_count := FND_MSG_PUB.Count_Msg;
241: IF x_msg_count = 1 THEN
242: pa_interface_utils_pub.get_messages
243: (p_encoded => FND_API.G_TRUE,
244: p_msg_index => 1,
245: p_msg_count => x_msg_count,
246: p_msg_data => x_msg_data,
247: --p_data => x_msg_data, --Bug: 4537865
252: --Bug: 4537865
253: END IF;
254: WHEN l_task_type_invalid_dates THEN
255: PA_UTILS.add_message('PA','PA_TT_INVALID_DATES');
256: x_return_status := FND_API.G_RET_STS_ERROR;
257: x_msg_data := 'PA_TT_INVALID_DATES';
258: x_msg_count := FND_MSG_PUB.Count_Msg;
259: IF x_msg_count = 1 THEN
260: pa_interface_utils_pub.get_messages
257: x_msg_data := 'PA_TT_INVALID_DATES';
258: x_msg_count := FND_MSG_PUB.Count_Msg;
259: IF x_msg_count = 1 THEN
260: pa_interface_utils_pub.get_messages
261: (p_encoded => FND_API.G_TRUE,
262: p_msg_index => 1,
263: p_msg_count => x_msg_count,
264: p_msg_data => x_msg_data,
265: --p_data => x_msg_data, --Bug: 4537865
270: --Bug: 4537865
271: END IF;
272: WHEN l_pagelayout_name_invalid THEN
273: PA_UTILS.add_message('PA',l_error_message_code);
274: x_return_status := FND_API.G_RET_STS_ERROR;
275: x_msg_data := l_error_message_code;
276: x_msg_count := FND_MSG_PUB.Count_Msg;
277: IF x_msg_count = 1 THEN
278: pa_interface_utils_pub.get_messages
275: x_msg_data := l_error_message_code;
276: x_msg_count := FND_MSG_PUB.Count_Msg;
277: IF x_msg_count = 1 THEN
278: pa_interface_utils_pub.get_messages
279: (p_encoded => FND_API.G_TRUE,
280: p_msg_index => 1,
281: p_msg_count => x_msg_count,
282: p_msg_data => x_msg_data,
283: --p_data => x_msg_data, --Bug: 4537865
288: --Bug: 4537865
289: END IF;
290: WHEN l_invalid_lead_day_exc THEN
291: PA_UTILS.add_message('PA','PA_INVALID_LEAD_DAYS');
292: x_return_status := FND_API.G_RET_STS_ERROR;
293: x_msg_data := l_error_message_code;
294: x_msg_count := FND_MSG_PUB.Count_Msg;
295: IF x_msg_count = 1 THEN
296: pa_interface_utils_pub.get_messages
293: x_msg_data := l_error_message_code;
294: x_msg_count := FND_MSG_PUB.Count_Msg;
295: IF x_msg_count = 1 THEN
296: pa_interface_utils_pub.get_messages
297: (p_encoded => FND_API.G_TRUE,
298: p_msg_index => 1,
299: p_msg_count => x_msg_count,
300: p_msg_data => x_msg_data,
301: --p_data => x_msg_data, --Bug: 4537865
305: x_msg_data := l_new_msg_data;
306: --Bug: 4537865
307: END IF;
308: WHEN OTHERS THEN
309: IF p_commit = FND_API.G_TRUE THEN
310: ROLLBACK TO CREATE_TASK_TYPE_PUB;
311: END IF;
312:
313: -- Set the excetption Message and the stack
313: -- Set the excetption Message and the stack
314: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_TASK_TYPES_PUB.Create_Task_Type'
315: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
316: --
317: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
318: RAISE;
319:
320: END Create_Task_Type;
321:
358: ,p_attribute14 IN pa_task_types.attribute14%TYPE := NULL
359: ,p_attribute15 IN pa_task_types.attribute15%TYPE := NULL
360: ,p_object_type IN pa_task_types.object_type%TYPE := 'PA_TASKS' -- 3279978 : Added Object Type and Progress Rollup Method
361: ,p_api_version IN NUMBER := 1.0
362: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
363: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
364: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
365: ,p_wf_item_type IN pa_task_types.wf_item_type%TYPE :=NULL
366: ,p_wf_process IN pa_task_types.wf_process%TYPE :=NULL
359: ,p_attribute15 IN pa_task_types.attribute15%TYPE := NULL
360: ,p_object_type IN pa_task_types.object_type%TYPE := 'PA_TASKS' -- 3279978 : Added Object Type and Progress Rollup Method
361: ,p_api_version IN NUMBER := 1.0
362: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
363: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
364: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
365: ,p_wf_item_type IN pa_task_types.wf_item_type%TYPE :=NULL
366: ,p_wf_process IN pa_task_types.wf_process%TYPE :=NULL
367: ,p_wf_lead_days IN pa_task_types.wf_start_lead_days%TYPE :=NULL
360: ,p_object_type IN pa_task_types.object_type%TYPE := 'PA_TASKS' -- 3279978 : Added Object Type and Progress Rollup Method
361: ,p_api_version IN NUMBER := 1.0
362: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
363: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
364: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
365: ,p_wf_item_type IN pa_task_types.wf_item_type%TYPE :=NULL
366: ,p_wf_process IN pa_task_types.wf_process%TYPE :=NULL
367: ,p_wf_lead_days IN pa_task_types.wf_start_lead_days%TYPE :=NULL
368: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
394: -- Initialize the Error Stack
395: PA_DEBUG.init_err_stack('PA_TASK_TYPES_PUB.Update_Task_Type');
396:
397: -- Initialize the return status to success
398: x_return_status := FND_API.G_RET_STS_SUCCESS;
399:
400: --Clear the global PL/SQL message table
401: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
402: FND_MSG_PUB.initialize;
397: -- Initialize the return status to success
398: x_return_status := FND_API.G_RET_STS_SUCCESS;
399:
400: --Clear the global PL/SQL message table
401: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
402: FND_MSG_PUB.initialize;
403: END IF;
404:
405: -- Issue API savepoint if the transaction is to be committed
402: FND_MSG_PUB.initialize;
403: END IF;
404:
405: -- Issue API savepoint if the transaction is to be committed
406: IF p_commit = FND_API.G_TRUE THEN
407: SAVEPOINT UPDATE_TASK_TYPE_PUB;
408: END IF;
409:
410: --Log Message
443: p_check_id_flag => 'Y',
444: x_pagelayout_id => l_task_prog_entry_page_id,
445: x_return_status => x_return_status,
446: x_error_message_code => l_error_message_code);
447: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
448: RAISE l_pagelayout_name_invalid;
449: END IF;
450:
451: -- Validate progress attributes.
501: If nvl(p_wf_lead_days,0)<0 then
502: Raise l_invalid_lead_day_exc ;
503: end if ;
504:
505: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
506: --Log Message
507: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_TASK_TYPES_PUB.Update_Task_Type.begin'
508: ,x_msg => 'calling Update_Task_Type pvt'
509: ,x_log_level => 5);
554: END IF;
555:
556: x_msg_count := FND_MSG_PUB.Count_Msg;
557: IF x_msg_count = 1 THEN
558: pa_interface_utils_pub.get_messages ( p_encoded => FND_API.G_TRUE
559: ,p_msg_index => 1
560: ,p_data => x_msg_data
561: ,p_msg_index_out => l_msg_index_out
562: );
566: PA_DEBUG.Reset_Err_Stack;
567: -- If any errors exist then set the x_return_status to 'E'
568:
569: IF x_msg_count > 0 THEN
570: x_return_status := FND_API.G_RET_STS_ERROR;
571: END IF;
572:
573: -- Commit if the flag is set and there is no error
574: IF p_commit = FND_API.G_TRUE AND x_msg_count = 0 THEN
570: x_return_status := FND_API.G_RET_STS_ERROR;
571: END IF;
572:
573: -- Commit if the flag is set and there is no error
574: IF p_commit = FND_API.G_TRUE AND x_msg_count = 0 THEN
575: COMMIT;
576: END IF;
577:
578: EXCEPTION
577:
578: EXCEPTION
579: WHEN l_task_type_not_unique THEN
580: PA_UTILS.add_message('PA','PA_TASK_TYPE_NOT_UNIQUE');
581: x_return_status := FND_API.G_RET_STS_ERROR;
582: x_msg_data := 'PA_TASK_TYPE_NOT_UNIQUE';
583: x_msg_count := FND_MSG_PUB.Count_Msg;
584: IF x_msg_count = 1 THEN
585: pa_interface_utils_pub.get_messages
582: x_msg_data := 'PA_TASK_TYPE_NOT_UNIQUE';
583: x_msg_count := FND_MSG_PUB.Count_Msg;
584: IF x_msg_count = 1 THEN
585: pa_interface_utils_pub.get_messages
586: (p_encoded => FND_API.G_TRUE,
587: p_msg_index => 1,
588: p_msg_count => x_msg_count,
589: p_msg_data => x_msg_data,
590: --p_data => x_msg_data, * Bug: 4537865
595: --Bug: 4537865
596: END IF;
597: WHEN l_task_type_invalid_dates THEN
598: PA_UTILS.add_message('PA','PA_TT_INVALID_DATES');
599: x_return_status := FND_API.G_RET_STS_ERROR;
600: x_msg_data := 'PA_TT_INVALID_DATES';
601: x_msg_count := FND_MSG_PUB.Count_Msg;
602: IF x_msg_count = 1 THEN
603: pa_interface_utils_pub.get_messages
600: x_msg_data := 'PA_TT_INVALID_DATES';
601: x_msg_count := FND_MSG_PUB.Count_Msg;
602: IF x_msg_count = 1 THEN
603: pa_interface_utils_pub.get_messages
604: (p_encoded => FND_API.G_TRUE,
605: p_msg_index => 1,
606: p_msg_count => x_msg_count,
607: p_msg_data => x_msg_data,
608: --p_data => x_msg_data, --Bug: 4537865
613: --Bug: 4537865
614: END IF;
615: WHEN l_upd_upg_task_type_error THEN
616: PA_UTILS.add_message('PA','PA_UPD_UPG_TASK_TYPE_ERROR');
617: x_return_status := FND_API.G_RET_STS_ERROR;
618: x_msg_data := 'PA_UPD_UPG_TASK_TYPE_ERROR';
619: x_msg_count := FND_MSG_PUB.Count_Msg;
620: IF x_msg_count = 1 THEN
621: pa_interface_utils_pub.get_messages
618: x_msg_data := 'PA_UPD_UPG_TASK_TYPE_ERROR';
619: x_msg_count := FND_MSG_PUB.Count_Msg;
620: IF x_msg_count = 1 THEN
621: pa_interface_utils_pub.get_messages
622: (p_encoded => FND_API.G_TRUE,
623: p_msg_index => 1,
624: p_msg_count => x_msg_count,
625: p_msg_data => x_msg_data,
626: --p_data => x_msg_data, --Bug: 4537865
631: --Bug: 4537865
632: END IF;
633: WHEN l_pagelayout_name_invalid THEN
634: PA_UTILS.add_message('PA',l_error_message_code);
635: x_return_status := FND_API.G_RET_STS_ERROR;
636: x_msg_data := l_error_message_code;
637: x_msg_count := FND_MSG_PUB.Count_Msg;
638: IF x_msg_count = 1 THEN
639: pa_interface_utils_pub.get_messages
636: x_msg_data := l_error_message_code;
637: x_msg_count := FND_MSG_PUB.Count_Msg;
638: IF x_msg_count = 1 THEN
639: pa_interface_utils_pub.get_messages
640: (p_encoded => FND_API.G_TRUE,
641: p_msg_index => 1,
642: p_msg_count => x_msg_count,
643: p_msg_data => x_msg_data,
644: --p_data => x_msg_data, --Bug: 4537865
649: --Bug: 4537865
650: END IF;
651: WHEN l_prog_entry_enable_error THEN
652: PA_UTILS.add_message('PA','PA_PROG_ENTRY_ENABLE_ERROR');
653: x_return_status := FND_API.G_RET_STS_ERROR;
654: x_msg_data := 'PA_PROG_ENTRY_ENABLE_FLAG_ERROR';
655: x_msg_count := FND_MSG_PUB.Count_Msg;
656: IF x_msg_count = 1 THEN
657: pa_interface_utils_pub.get_messages
654: x_msg_data := 'PA_PROG_ENTRY_ENABLE_FLAG_ERROR';
655: x_msg_count := FND_MSG_PUB.Count_Msg;
656: IF x_msg_count = 1 THEN
657: pa_interface_utils_pub.get_messages
658: (p_encoded => FND_API.G_TRUE,
659: p_msg_index => 1,
660: p_msg_count => x_msg_count,
661: p_msg_data => x_msg_data,
662: --p_data => x_msg_data, --Bug: 4537865
667: --Bug: 4537865
668: END IF;
669: WHEN l_prog_entry_req_error THEN
670: PA_UTILS.add_message('PA','PA_PROG_ENTRY_REQ_ERROR');
671: x_return_status := FND_API.G_RET_STS_ERROR;
672: x_msg_data := 'PA_TASK_TYPE_NOT_UNIQUE';
673: x_msg_count := FND_MSG_PUB.Count_Msg;
674: IF x_msg_count = 1 THEN
675: pa_interface_utils_pub.get_messages
672: x_msg_data := 'PA_TASK_TYPE_NOT_UNIQUE';
673: x_msg_count := FND_MSG_PUB.Count_Msg;
674: IF x_msg_count = 1 THEN
675: pa_interface_utils_pub.get_messages
676: (p_encoded => FND_API.G_TRUE,
677: p_msg_index => 1,
678: p_msg_count => x_msg_count,
679: p_msg_data => x_msg_data,
680: --p_data => x_msg_data, --Bug: 4537865
685: --Bug: 4537865
686: END IF;
687: WHEN l_wq_enable_error THEN
688: PA_UTILS.add_message('PA','PA_WQ_ENABLE_ERROR');
689: x_return_status := FND_API.G_RET_STS_ERROR;
690: x_msg_data := 'PA_WQ_ENABLE_ERROR';
691: x_msg_count := FND_MSG_PUB.Count_Msg;
692: IF x_msg_count = 1 THEN
693: pa_interface_utils_pub.get_messages
690: x_msg_data := 'PA_WQ_ENABLE_ERROR';
691: x_msg_count := FND_MSG_PUB.Count_Msg;
692: IF x_msg_count = 1 THEN
693: pa_interface_utils_pub.get_messages
694: (p_encoded => FND_API.G_TRUE,
695: p_msg_index => 1,
696: p_msg_count => x_msg_count,
697: p_msg_data => x_msg_data,
698: --p_data => x_msg_data, --Bug: 4537865
703: --Bug: 4537865
704: END IF;
705: WHEN l_remain_effort_enable_error THEN
706: PA_UTILS.add_message('PA','PA_REMAIN_EFFORT_ENABLE_ERROR');
707: x_return_status := FND_API.G_RET_STS_ERROR;
708: x_msg_data := 'PA_REMAIN_EFFORT_ENABLE_ERROR';
709: x_msg_count := FND_MSG_PUB.Count_Msg;
710: IF x_msg_count = 1 THEN
711: pa_interface_utils_pub.get_messages
708: x_msg_data := 'PA_REMAIN_EFFORT_ENABLE_ERROR';
709: x_msg_count := FND_MSG_PUB.Count_Msg;
710: IF x_msg_count = 1 THEN
711: pa_interface_utils_pub.get_messages
712: (p_encoded => FND_API.G_TRUE,
713: p_msg_index => 1,
714: p_msg_count => x_msg_count,
715: p_msg_data => x_msg_data,
716: --p_data => x_msg_data, --Bug: 4537865
721: --Bug: 4537865
722: END IF;
723: WHEN l_percent_comp_enable_error THEN
724: PA_UTILS.add_message('PA','PA_PERCENT_COMP_ENABLE_ERROR');
725: x_return_status := FND_API.G_RET_STS_ERROR;
726: x_msg_data := 'PA_PERCENT_COMP_ENABLE_ERROR';
727: x_msg_count := FND_MSG_PUB.Count_Msg;
728: IF x_msg_count = 1 THEN
729: pa_interface_utils_pub.get_messages
726: x_msg_data := 'PA_PERCENT_COMP_ENABLE_ERROR';
727: x_msg_count := FND_MSG_PUB.Count_Msg;
728: IF x_msg_count = 1 THEN
729: pa_interface_utils_pub.get_messages
730: (p_encoded => FND_API.G_TRUE,
731: p_msg_index => 1,
732: p_msg_count => x_msg_count,
733: p_msg_data => x_msg_data,
734: --p_data => x_msg_data, --Bug: 4537865
739: --Bug: 4537865
740: END IF;
741: WHEN l_invalid_lead_day_exc THEN
742: PA_UTILS.add_message('PA','PA_INVALID_LEAD_DAYS');
743: x_return_status := FND_API.G_RET_STS_ERROR;
744: x_msg_data := l_error_message_code;
745: x_msg_count := FND_MSG_PUB.Count_Msg;
746: IF x_msg_count = 1 THEN
747: pa_interface_utils_pub.get_messages
744: x_msg_data := l_error_message_code;
745: x_msg_count := FND_MSG_PUB.Count_Msg;
746: IF x_msg_count = 1 THEN
747: pa_interface_utils_pub.get_messages
748: (p_encoded => FND_API.G_TRUE,
749: p_msg_index => 1,
750: p_msg_count => x_msg_count,
751: p_msg_data => x_msg_data,
752: --p_data => x_msg_data, --Bug: 4537865
756: x_msg_data := l_new_msg_data;
757: --Bug: 4537865
758: END IF;
759: WHEN OTHERS THEN
760: IF p_commit = FND_API.G_TRUE THEN
761: ROLLBACK TO UPDATE_TASK_TYPE_PUB;
762: END IF;
763: -- Set the excetption Message and the stack
764: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_TASK_TYPES_PUB.Update_Task_Type'
763: -- Set the excetption Message and the stack
764: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_TASK_TYPES_PUB.Update_Task_Type'
765: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
766: --
767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
768: RAISE;
769:
770: END Update_Task_Type;
771:
772:
773: PROCEDURE Delete_Task_Type
774: (p_Task_Type_id IN pa_task_types.Task_Type_id%TYPE := NULL
775: ,p_api_version IN NUMBER := 1.0
776: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
777: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
778: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
779: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
780: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
773: PROCEDURE Delete_Task_Type
774: (p_Task_Type_id IN pa_task_types.Task_Type_id%TYPE := NULL
775: ,p_api_version IN NUMBER := 1.0
776: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
777: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
778: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
779: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
780: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
781: ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
774: (p_Task_Type_id IN pa_task_types.Task_Type_id%TYPE := NULL
775: ,p_api_version IN NUMBER := 1.0
776: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
777: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
778: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
779: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
780: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
781: ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
782: )
792: -- Initialize the Error Stack
793: PA_DEBUG.init_err_stack('PA_task_types_PUB.Delete_Task_Type');
794:
795: -- Initialize the return status to success
796: x_return_status := FND_API.G_RET_STS_SUCCESS;
797:
798: --Clear the global PL/SQL message table
799: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
800: FND_MSG_PUB.initialize;
795: -- Initialize the return status to success
796: x_return_status := FND_API.G_RET_STS_SUCCESS;
797:
798: --Clear the global PL/SQL message table
799: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
800: FND_MSG_PUB.initialize;
801: END IF;
802:
803: -- Issue API savepoint if the transaction is to be committed
800: FND_MSG_PUB.initialize;
801: END IF;
802:
803: -- Issue API savepoint if the transaction is to be committed
804: IF p_commit = FND_API.G_TRUE THEN
805: SAVEPOINT DELETE_TASK_TYPE_PUB;
806: END IF;
807:
808: --Log Message
824: IF PA_PROJ_ELEMENTS_UTILS.is_task_type_used(p_task_type_id) = 'Y' THEN
825: RAISE l_delete_task_type_error;
826: END IF;
827:
828: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
829: PA_TASK_TYPE_PVT.Delete_Task_Type
830: (p_task_type_id => p_task_type_id
831: ,x_return_status => x_return_status
832: ,x_msg_count => x_msg_count
834: END IF;
835:
836: x_msg_count := FND_MSG_PUB.Count_Msg;
837: IF x_msg_count = 1 THEN
838: pa_interface_utils_pub.get_messages ( p_encoded => FND_API.G_TRUE
839: ,p_msg_index => 1
840: ,p_data => x_msg_data
841: ,p_msg_index_out => l_msg_index_out
842: );
846: PA_DEBUG.Reset_Err_Stack;
847: -- If any errors exist then set the x_return_status to 'E'
848:
849: IF x_msg_count > 0 THEN
850: x_return_status := FND_API.G_RET_STS_ERROR;
851: END IF;
852:
853: -- Commit if the flag is set and there is no error
854: IF p_commit = FND_API.G_TRUE AND x_msg_count = 0 THEN
850: x_return_status := FND_API.G_RET_STS_ERROR;
851: END IF;
852:
853: -- Commit if the flag is set and there is no error
854: IF p_commit = FND_API.G_TRUE AND x_msg_count = 0 THEN
855: COMMIT;
856: END IF;
857:
858: EXCEPTION
857:
858: EXCEPTION
859: WHEN l_del_upg_task_type_error THEN
860: PA_UTILS.add_message('PA','PA_DEL_UPG_TASK_TYPE_ERROR');
861: x_return_status := FND_API.G_RET_STS_ERROR;
862: x_msg_data := 'PA_DELETE_TASK_TYPE_ERROR';
863: x_msg_count := FND_MSG_PUB.Count_Msg;
864: IF x_msg_count = 1 THEN
865: pa_interface_utils_pub.get_messages
862: x_msg_data := 'PA_DELETE_TASK_TYPE_ERROR';
863: x_msg_count := FND_MSG_PUB.Count_Msg;
864: IF x_msg_count = 1 THEN
865: pa_interface_utils_pub.get_messages
866: (p_encoded => FND_API.G_TRUE,
867: p_msg_index => 1,
868: p_msg_count => x_msg_count,
869: p_msg_data => x_msg_data,
870: --p_data => x_msg_data, --Bug: 4537865
875: --Bug: 4537865
876: END IF;
877: WHEN l_delete_task_type_error THEN
878: PA_UTILS.add_message('PA','PA_DELETE_TASK_TYPE_ERROR');
879: x_return_status := FND_API.G_RET_STS_ERROR;
880: x_msg_data := 'PA_DELETE_TASK_TYPE_ERROR';
881: x_msg_count := FND_MSG_PUB.Count_Msg;
882: IF x_msg_count = 1 THEN
883: pa_interface_utils_pub.get_messages
880: x_msg_data := 'PA_DELETE_TASK_TYPE_ERROR';
881: x_msg_count := FND_MSG_PUB.Count_Msg;
882: IF x_msg_count = 1 THEN
883: pa_interface_utils_pub.get_messages
884: (p_encoded => FND_API.G_TRUE,
885: p_msg_index => 1,
886: p_msg_count => x_msg_count,
887: p_msg_data => x_msg_data,
888: --p_data => x_msg_data, --Bug: 4537865
892: x_msg_data := l_new_msg_data;
893: --Bug: 4537865
894: END IF;
895: WHEN OTHERS THEN
896: IF p_commit = FND_API.G_TRUE THEN
897: ROLLBACK TO Delete_TASK_TYPE_PUB;
898: END IF;
899:
900: -- Set the exception Message and the stack
899:
900: -- Set the exception Message and the stack
901: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_TASK_TYPES_PUB.Delete_Task_Type'
902: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
903: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
904: RAISE;
905:
906: END Delete_Task_Type;
907:
930: --28-Dec-2003 avaithia Created
931:
932: PROCEDURE CREATE_DELIVERABLE_TYPE
933: (p_api_version IN NUMBER := 1.0
934: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
935: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
936: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
937: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
938: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
931:
932: PROCEDURE CREATE_DELIVERABLE_TYPE
933: (p_api_version IN NUMBER := 1.0
934: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
935: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
936: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
937: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
938: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
939: ,p_debug_mode IN VARCHAR2 := 'N'
932: PROCEDURE CREATE_DELIVERABLE_TYPE
933: (p_api_version IN NUMBER := 1.0
934: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
935: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
936: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
937: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
938: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
939: ,p_debug_mode IN VARCHAR2 := 'N'
940: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
933: (p_api_version IN NUMBER := 1.0
934: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
935: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
936: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
937: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
938: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
939: ,p_debug_mode IN VARCHAR2 := 'N'
940: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
941: ,p_deliverable_type_name IN PA_TASK_TYPES.TASK_TYPE%TYPE
967:
968: BEGIN
969:
970: x_msg_count := 0;
971: x_return_status := FND_API.G_RET_STS_SUCCESS;
972: l_debug_mode := p_debug_mode;
973:
974: IF l_debug_mode = 'Y'
975: THEN
1004: PA_DEBUG.WRITE(g_module_name,'p_record_version_number'||':'||p_record_version_number,
1005: l_debug_level3);
1006: END IF;
1007:
1008: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE))
1009: THEN
1010: FND_MSG_PUB.initialize;
1011: END IF;
1012:
1009: THEN
1010: FND_MSG_PUB.initialize;
1011: END IF;
1012:
1013: IF (p_commit = FND_API.G_TRUE)
1014: THEN
1015: savepoint CREATE_DELIVERABLE_TYPE_PUB;
1016: END IF;
1017:
1038: END IF;
1039:
1040: PA_TASK_TYPE_PVT.CREATE_DELIVERABLE_TYPE
1041: (p_api_version => p_api_version
1042: ,p_init_msg_list => FND_API.G_FALSE
1043: ,p_commit => p_commit
1044: ,p_validate_only => p_validate_only
1045: ,p_validation_level => p_validation_level
1046: ,p_calling_module => p_calling_module
1060: ,x_msg_count => x_msg_count
1061: ,x_msg_data => x_msg_data
1062: );
1063:
1064: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
1065: THEN
1066: RAISE FND_API.G_EXC_ERROR;
1067: END IF;
1068:
1062: );
1063:
1064: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
1065: THEN
1066: RAISE FND_API.G_EXC_ERROR;
1067: END IF;
1068:
1069: IF (p_commit = FND_API.G_TRUE)
1070: THEN
1065: THEN
1066: RAISE FND_API.G_EXC_ERROR;
1067: END IF;
1068:
1069: IF (p_commit = FND_API.G_TRUE)
1070: THEN
1071: COMMIT;
1072: END IF;
1073:
1080:
1081:
1082: EXCEPTION
1083:
1084: WHEN FND_API.G_EXC_ERROR THEN
1085:
1086: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1087: l_msg_count := Fnd_Msg_Pub.count_msg;
1088:
1082: EXCEPTION
1083:
1084: WHEN FND_API.G_EXC_ERROR THEN
1085:
1086: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1087: l_msg_count := Fnd_Msg_Pub.count_msg;
1088:
1089: IF p_commit = FND_API.G_TRUE
1090: THEN
1085:
1086: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1087: l_msg_count := Fnd_Msg_Pub.count_msg;
1088:
1089: IF p_commit = FND_API.G_TRUE
1090: THEN
1091: ROLLBACK TO CREATE_DELIVERABLE_TYPE_PUB;
1092: END IF;
1093:
1093:
1094: IF l_msg_count = 1 AND x_msg_data IS NULL
1095: THEN
1096: Pa_Interface_Utils_Pub.get_messages
1097: ( p_encoded => Fnd_Api.G_TRUE
1098: , p_msg_index => 1
1099: , p_msg_count => l_msg_count
1100: , p_msg_data => l_msg_data
1101: , p_data => l_data
1112: END IF;
1113:
1114: WHEN PA_DLV_INV_PARAM_EXC THEN
1115:
1116: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1117: x_msg_count := 1;
1118: x_msg_data := 'PA_INV_PARAM_PASSED';
1119:
1120: IF p_commit = FND_API.G_TRUE
1116: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1117: x_msg_count := 1;
1118: x_msg_data := 'PA_INV_PARAM_PASSED';
1119:
1120: IF p_commit = FND_API.G_TRUE
1121: THEN
1122: ROLLBACK TO CREATE_DELIVERABLE_TYPE_PUB;
1123: END IF;
1124:
1137: RAISE;
1138:
1139: WHEN OTHERS THEN
1140:
1141: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1142: x_msg_count := 1;
1143: x_msg_data := SQLERRM;
1144:
1145: IF p_commit = FND_API.G_TRUE
1141: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1142: x_msg_count := 1;
1143: x_msg_data := SQLERRM;
1144:
1145: IF p_commit = FND_API.G_TRUE
1146: THEN
1147: ROLLBACK TO CREATE_DELIVERABLE_TYPE_PUB;
1148: END IF;
1149:
1189: --P_deliverable_type_id PA_TASK_TYPES.TASK_TYPE_ID%TPE N
1190: --28-Dec-2003 avaithia Created
1191: PROCEDURE UPDATE_DELIVERABLE_TYPE
1192: (p_api_version IN NUMBER := 1.0
1193: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1194: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1195: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1196: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1197: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1190: --28-Dec-2003 avaithia Created
1191: PROCEDURE UPDATE_DELIVERABLE_TYPE
1192: (p_api_version IN NUMBER := 1.0
1193: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1194: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1195: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1196: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1197: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1198: ,p_debug_mode IN VARCHAR2 := 'N'
1191: PROCEDURE UPDATE_DELIVERABLE_TYPE
1192: (p_api_version IN NUMBER := 1.0
1193: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1194: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1195: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1196: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1197: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1198: ,p_debug_mode IN VARCHAR2 := 'N'
1199: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1192: (p_api_version IN NUMBER := 1.0
1193: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1194: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1195: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1196: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1197: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1198: ,p_debug_mode IN VARCHAR2 := 'N'
1199: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1200: ,p_deliverable_type_name IN PA_TASK_TYPES.TASK_TYPE%TYPE
1228:
1229: BEGIN
1230:
1231: x_msg_count := 0;
1232: x_return_status := FND_API.G_RET_STS_SUCCESS;
1233: l_debug_mode := p_debug_mode;
1234:
1235: IF l_debug_mode = 'Y'
1236: THEN
1264: l_debug_level3);
1265: PA_DEBUG.WRITE(g_module_name,'rec_ver_num is '||p_record_version_number,l_debug_level3);
1266: END IF;
1267:
1268: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE))
1269: THEN
1270: FND_MSG_PUB.initialize;
1271: END IF;
1272:
1269: THEN
1270: FND_MSG_PUB.initialize;
1271: END IF;
1272:
1273: IF (p_commit = FND_API.G_TRUE)
1274: THEN
1275: savepoint UPDATE_DELIVERABLE_TYPE_PUB;
1276: END IF;
1277:
1302:
1303: EXCEPTION
1304:
1305: WHEN TIMEOUT_ON_RESOURCE THEN
1306: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1307: x_msg_count := 1;
1308: x_msg_data :='PA_XC_ROW_ALREADY_LOCKED';
1309:
1310: IF p_commit = FND_API.G_TRUE THEN
1306: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1307: x_msg_count := 1;
1308: x_msg_data :='PA_XC_ROW_ALREADY_LOCKED';
1309:
1310: IF p_commit = FND_API.G_TRUE THEN
1311: ROLLBACK TO UPDATE_DELIVERABLE_TYPE_PUB;
1312: END IF;
1313:
1314: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
1324: RAISE;
1325:
1326:
1327: WHEN NO_DATA_FOUND THEN
1328: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1329: x_msg_count := 1;
1330: x_msg_data :='PA_XC_RECORD_CHANGED';
1331:
1332: IF p_commit = FND_API.G_TRUE
1328: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1329: x_msg_count := 1;
1330: x_msg_data :='PA_XC_RECORD_CHANGED';
1331:
1332: IF p_commit = FND_API.G_TRUE
1333: THEN
1334: ROLLBACK TO UPDATE_DELIVERABLE_TYPE_PUB;
1335: END IF;
1336:
1347: RAISE;
1348:
1349: WHEN OTHERS THEN
1350: IF SQLCODE = -54 then
1351: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1352: x_msg_count := 1;
1353: x_msg_data :='PA_XC_ROW_ALREADY_LOCKED';
1354:
1355: IF p_commit = FND_API.G_TRUE
1351: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1352: x_msg_count := 1;
1353: x_msg_data :='PA_XC_ROW_ALREADY_LOCKED';
1354:
1355: IF p_commit = FND_API.G_TRUE
1356: THEN
1357: ROLLBACK TO UPDATE_DELIVERABLE_TYPE_PUB;
1358: END IF;
1359:
1380:
1381: IF l_msg_count > 0
1382: THEN
1383: x_msg_count :=l_msg_count;
1384: x_return_status := FND_API.G_RET_STS_ERROR;
1385: END IF;
1386:
1387: --Before placing call to the API check for the return status
1388: --If it is Error,then raise it.
1386:
1387: --Before placing call to the API check for the return status
1388: --If it is Error,then raise it.
1389:
1390: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
1391: THEN
1392: RAISE FND_API.G_EXC_ERROR;
1393: END IF;
1394: --Place a call to PA_TASK_TYPE_PVT.UPDATE_DELIVERABLE_TYPE
1388: --If it is Error,then raise it.
1389:
1390: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
1391: THEN
1392: RAISE FND_API.G_EXC_ERROR;
1393: END IF;
1394: --Place a call to PA_TASK_TYPE_PVT.UPDATE_DELIVERABLE_TYPE
1395: IF l_debug_mode = 'Y'
1396: THEN
1400: END IF;
1401:
1402: PA_TASK_TYPE_PVT.UPDATE_DELIVERABLE_TYPE
1403: (p_api_version => p_api_version
1404: ,p_init_msg_list => FND_API.G_FALSE
1405: ,p_commit => p_commit
1406: ,p_validate_only => p_validate_only
1407: ,p_validation_level => p_validation_level
1408: ,p_calling_module => p_calling_module
1430: END IF;
1431:
1432: --After returning from the API check for the return status
1433:
1434: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
1435: THEN
1436: RAISE FND_API.G_EXC_ERROR;
1437: END IF;
1438:
1432: --After returning from the API check for the return status
1433:
1434: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
1435: THEN
1436: RAISE FND_API.G_EXC_ERROR;
1437: END IF;
1438:
1439: IF (p_commit = FND_API.G_TRUE)
1440: THEN
1435: THEN
1436: RAISE FND_API.G_EXC_ERROR;
1437: END IF;
1438:
1439: IF (p_commit = FND_API.G_TRUE)
1440: THEN
1441: COMMIT;
1442: END IF;
1443:
1450:
1451:
1452: EXCEPTION
1453:
1454: WHEN FND_API.G_EXC_ERROR THEN
1455:
1456: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1457: l_msg_count := Fnd_Msg_Pub.count_msg;
1458:
1452: EXCEPTION
1453:
1454: WHEN FND_API.G_EXC_ERROR THEN
1455:
1456: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1457: l_msg_count := Fnd_Msg_Pub.count_msg;
1458:
1459: IF p_commit = FND_API.G_TRUE THEN
1460: ROLLBACK TO UPDATE_DELIVERABLE_TYPE_PUB;
1455:
1456: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1457: l_msg_count := Fnd_Msg_Pub.count_msg;
1458:
1459: IF p_commit = FND_API.G_TRUE THEN
1460: ROLLBACK TO UPDATE_DELIVERABLE_TYPE_PUB;
1461: END IF;
1462:
1463: IF l_msg_count = 1 AND x_msg_data IS NULL
1462:
1463: IF l_msg_count = 1 AND x_msg_data IS NULL
1464: THEN
1465: Pa_Interface_Utils_Pub.get_messages
1466: ( p_encoded => Fnd_Api.G_TRUE
1467: , p_msg_index => 1
1468: , p_msg_count => l_msg_count
1469: , p_msg_data => l_msg_data
1470: , p_data => l_data
1479: END IF;
1480:
1481: WHEN PA_DLV_INV_PARAM_EXC THEN
1482:
1483: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1484: x_msg_count := 1;
1485: x_msg_data := 'PA_INV_PARAM_PASSED';
1486:
1487: IF p_commit = FND_API.G_TRUE
1483: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1484: x_msg_count := 1;
1485: x_msg_data := 'PA_INV_PARAM_PASSED';
1486:
1487: IF p_commit = FND_API.G_TRUE
1488: THEN
1489: ROLLBACK TO UPDATE_DELIVERABLE_TYPE_PUB;
1490: END IF;
1491:
1504: RAISE;
1505:
1506: WHEN OTHERS THEN
1507:
1508: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1509: x_msg_count := 1;
1510: x_msg_data := SQLERRM;
1511:
1512: IF p_commit = FND_API.G_TRUE
1508: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1509: x_msg_count := 1;
1510: x_msg_data := SQLERRM;
1511:
1512: IF p_commit = FND_API.G_TRUE
1513: THEN
1514: ROLLBACK TO UPDATE_DELIVERABLE_TYPE_PUB;
1515: END IF;
1516:
1547: --28-Dec-2003 avaithia Created
1548:
1549: PROCEDURE DELETE_DELIVERABLE_TYPE
1550: (p_api_version IN NUMBER := 1.0
1551: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1552: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1553: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1554: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1555: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1548:
1549: PROCEDURE DELETE_DELIVERABLE_TYPE
1550: (p_api_version IN NUMBER := 1.0
1551: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1552: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1553: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1554: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1555: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1556: ,p_debug_mode IN VARCHAR2 := 'N'
1549: PROCEDURE DELETE_DELIVERABLE_TYPE
1550: (p_api_version IN NUMBER := 1.0
1551: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1552: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1553: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1554: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1555: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1556: ,p_debug_mode IN VARCHAR2 := 'N'
1557: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1550: (p_api_version IN NUMBER := 1.0
1551: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1552: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1553: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1554: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1555: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1556: ,p_debug_mode IN VARCHAR2 := 'N'
1557: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1558: ,p_deliverable_type_id IN PA_TASK_TYPES.TASK_TYPE_ID%TYPE
1576:
1577: BEGIN
1578:
1579: x_msg_count := 0;
1580: x_return_status := FND_API.G_RET_STS_SUCCESS;
1581: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
1582:
1583: IF l_debug_mode = 'Y'
1584: THEN
1596: PA_DEBUG.WRITE(g_module_name,'p_record_version_number'||':'||p_record_version_number,
1597: l_debug_level3);
1598: END IF;
1599:
1600: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE))
1601: THEN
1602: FND_MSG_PUB.initialize;
1603: END IF;
1604:
1601: THEN
1602: FND_MSG_PUB.initialize;
1603: END IF;
1604:
1605: IF (p_commit = FND_API.G_TRUE)
1606: THEN
1607: savepoint DELETE_DELIVERABLE_TYPE_PUB;
1608: END IF;
1609:
1636: l_debug_level3);
1637: END IF;
1638: PA_TASK_TYPE_PVT.DELETE_DELIVERABLE_TYPE
1639: (p_api_version => p_api_version
1640: ,p_init_msg_list => FND_API.G_FALSE
1641: ,p_commit => p_commit
1642: ,p_validate_only => p_validate_only
1643: ,p_validation_level => p_validation_level
1644: ,p_calling_module => p_calling_module
1655: Pa_Debug.g_err_stage:= 'After coming from PA_TASK_TYPE_PVT.DELETE_DELIVERABLE_TYPE';
1656: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
1657: l_debug_level3);
1658: END IF;
1659: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
1660: THEN
1661: RAISE FND_API.G_EXC_ERROR;
1662: END IF;
1663:
1657: l_debug_level3);
1658: END IF;
1659: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
1660: THEN
1661: RAISE FND_API.G_EXC_ERROR;
1662: END IF;
1663:
1664: IF (p_commit = FND_API.G_TRUE)
1665: THEN
1660: THEN
1661: RAISE FND_API.G_EXC_ERROR;
1662: END IF;
1663:
1664: IF (p_commit = FND_API.G_TRUE)
1665: THEN
1666: COMMIT;
1667: END IF;
1668:
1677: EXCEPTION
1678:
1679: WHEN l_delete_delv_type_error THEN -- Added for bug 4775641
1680: PA_UTILS.add_message('PA','PA_DELETE_DELIV_TYPE_ERROR');
1681: x_return_status := FND_API.G_RET_STS_ERROR;
1682: x_msg_data := 'PA_DELETE_DELIV_TYPE_ERROR';
1683: x_msg_count := FND_MSG_PUB.Count_Msg;
1684: IF x_msg_count = 1 THEN
1685: pa_interface_utils_pub.get_messages
1682: x_msg_data := 'PA_DELETE_DELIV_TYPE_ERROR';
1683: x_msg_count := FND_MSG_PUB.Count_Msg;
1684: IF x_msg_count = 1 THEN
1685: pa_interface_utils_pub.get_messages
1686: (p_encoded => FND_API.G_TRUE,
1687: p_msg_index => 1,
1688: p_msg_count => x_msg_count,
1689: p_msg_data => x_msg_data,
1690: p_data => x_msg_data,
1690: p_data => x_msg_data,
1691: p_msg_index_out => l_msg_index_out );
1692: END IF;
1693:
1694: WHEN FND_API.G_EXC_ERROR THEN
1695:
1696: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1697: l_msg_count := Fnd_Msg_Pub.count_msg;
1698:
1692: END IF;
1693:
1694: WHEN FND_API.G_EXC_ERROR THEN
1695:
1696: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1697: l_msg_count := Fnd_Msg_Pub.count_msg;
1698:
1699: IF p_commit = FND_API.G_TRUE
1700: THEN
1695:
1696: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1697: l_msg_count := Fnd_Msg_Pub.count_msg;
1698:
1699: IF p_commit = FND_API.G_TRUE
1700: THEN
1701: ROLLBACK TO DELETE_DELIVERABLE_TYPE_PUB;
1702: END IF;
1703:
1703:
1704: IF l_msg_count = 1 AND x_msg_data IS NULL
1705: THEN
1706: Pa_Interface_Utils_Pub.get_messages
1707: ( p_encoded => Fnd_Api.G_TRUE
1708: , p_msg_index => 1
1709: , p_msg_count => l_msg_count
1710: , p_msg_data => l_msg_data
1711: , p_data => l_data
1722: END IF;
1723:
1724: WHEN PA_DLV_INV_PARAM_EXC THEN
1725:
1726: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1727: x_msg_count := 1;
1728: x_msg_data := 'PA_INV_PARAM_PASSED';
1729:
1730: IF p_commit = FND_API.G_TRUE
1726: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1727: x_msg_count := 1;
1728: x_msg_data := 'PA_INV_PARAM_PASSED';
1729:
1730: IF p_commit = FND_API.G_TRUE
1731: THEN
1732: ROLLBACK TO DELETE_DELIVERABLE_TYPE_PUB;
1733: END IF;
1734:
1747: RAISE;
1748:
1749: WHEN OTHERS THEN
1750:
1751: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1752: x_msg_count := 1;
1753: x_msg_data := SQLERRM;
1754:
1755: IF p_commit = FND_API.G_TRUE
1751: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1752: x_msg_count := 1;
1753: x_msg_data := SQLERRM;
1754:
1755: IF p_commit = FND_API.G_TRUE
1756: THEN
1757: ROLLBACK TO DELETE_DELIVERABLE_TYPE_PUB;
1758: END IF;
1759:
1796: --28-Dec-2003 avaithia Created
1797:
1798: PROCEDURE CR_UP_DELIVERABLE_TYPE
1799: (p_api_version IN NUMBER := 1.0
1800: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1801: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1802: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1803: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1804: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1797:
1798: PROCEDURE CR_UP_DELIVERABLE_TYPE
1799: (p_api_version IN NUMBER := 1.0
1800: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1801: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1802: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1803: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1804: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1805: ,p_debug_mode IN VARCHAR2 := 'N'
1798: PROCEDURE CR_UP_DELIVERABLE_TYPE
1799: (p_api_version IN NUMBER := 1.0
1800: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1801: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1802: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1803: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1804: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1805: ,p_debug_mode IN VARCHAR2 := 'N'
1806: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1799: (p_api_version IN NUMBER := 1.0
1800: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1801: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1802: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1803: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1804: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1805: ,p_debug_mode IN VARCHAR2 := 'N'
1806: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1807: ,p_deliverable_type_name IN PA_TASK_TYPES.TASK_TYPE%TYPE
1834:
1835: BEGIN
1836:
1837: x_msg_count := 0;
1838: x_return_status := FND_API.G_RET_STS_SUCCESS;
1839: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
1840:
1841: IF l_debug_mode = 'Y' THEN
1842: PA_DEBUG.set_curr_function( p_function => 'CR_UP_DELIVERABLE_TYPE',
1842: PA_DEBUG.set_curr_function( p_function => 'CR_UP_DELIVERABLE_TYPE',
1843: p_debug_mode => l_debug_mode );
1844: END IF;
1845:
1846: IF (p_commit = FND_API.G_TRUE)
1847: THEN
1848: savepoint CR_UP_DELIVERABLE_TYPE;
1849: END IF;
1850:
1878: l_debug_level3);
1879:
1880: END IF;
1881:
1882: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE))
1883: THEN
1884: FND_MSG_PUB.initialize;
1885: END IF;
1886:
1883: THEN
1884: FND_MSG_PUB.initialize;
1885: END IF;
1886:
1887: IF (p_commit = FND_API.G_TRUE)
1888: THEN
1889: savepoint CR_UP_DELIVERABLE_TYPE;
1890: END IF;
1891:
1914: IF (p_insert_or_update = 'INSERT')
1915: THEN
1916: PA_TASK_TYPE_PUB.CREATE_DELIVERABLE_TYPE
1917: (p_api_version => p_api_version
1918: ,p_init_msg_list => FND_API.G_FALSE
1919: ,p_commit => p_commit
1920: ,p_validate_only => p_validate_only
1921: ,p_validation_level => p_validation_level
1922: ,p_calling_module => p_calling_module
1938: );
1939: ELSE
1940: PA_TASK_TYPE_PUB.UPDATE_DELIVERABLE_TYPE
1941: (p_api_version => p_api_version
1942: ,p_init_msg_list => FND_API.G_FALSE
1943: ,p_commit => p_commit
1944: ,p_validate_only => p_validate_only
1945: ,p_validation_level => p_validation_level
1946: ,p_calling_module => p_calling_module
1961: ,x_msg_data => x_msg_data
1962: );
1963: END IF;
1964:
1965: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
1966: THEN
1967: RAISE FND_API.G_EXC_ERROR;
1968: END IF;
1969:
1963: END IF;
1964:
1965: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
1966: THEN
1967: RAISE FND_API.G_EXC_ERROR;
1968: END IF;
1969:
1970: EXCEPTION
1971: WHEN FND_API.G_EXC_ERROR THEN
1967: RAISE FND_API.G_EXC_ERROR;
1968: END IF;
1969:
1970: EXCEPTION
1971: WHEN FND_API.G_EXC_ERROR THEN
1972:
1973: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1974: l_msg_count := Fnd_Msg_Pub.count_msg;
1975:
1969:
1970: EXCEPTION
1971: WHEN FND_API.G_EXC_ERROR THEN
1972:
1973: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1974: l_msg_count := Fnd_Msg_Pub.count_msg;
1975:
1976: IF p_commit = FND_API.G_TRUE
1977: THEN
1972:
1973: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1974: l_msg_count := Fnd_Msg_Pub.count_msg;
1975:
1976: IF p_commit = FND_API.G_TRUE
1977: THEN
1978: ROLLBACK TO CR_UP_DELIVERABLE_TYPE;
1979: END IF;
1980:
1980:
1981: IF l_msg_count = 1 AND x_msg_data IS NULL
1982: THEN
1983: Pa_Interface_Utils_Pub.get_messages
1984: ( p_encoded => Fnd_Api.G_TRUE
1985: , p_msg_index => 1
1986: , p_msg_count => l_msg_count
1987: , p_msg_data => l_msg_data
1988: , p_data => l_data
1999: END IF;
2000:
2001: WHEN PA_DLV_INV_PARAM_EXC THEN
2002:
2003: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2004: x_msg_count := 1;
2005: x_msg_data := 'PA_INV_PARAM_PASSED';
2006:
2007: IF p_commit = FND_API.G_TRUE
2003: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2004: x_msg_count := 1;
2005: x_msg_data := 'PA_INV_PARAM_PASSED';
2006:
2007: IF p_commit = FND_API.G_TRUE
2008: THEN
2009: ROLLBACK TO CR_UP_DELIVERABLE_TYPE;
2010: END IF;
2011:
2024: RAISE;
2025:
2026: WHEN OTHERS THEN
2027:
2028: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2029: x_msg_count := 1;
2030: x_msg_data := SQLERRM;
2031:
2032: IF p_commit = FND_API.G_TRUE
2028: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2029: x_msg_count := 1;
2030: x_msg_data := SQLERRM;
2031:
2032: IF p_commit = FND_API.G_TRUE
2033: THEN
2034: ROLLBACK TO CR_UP_DELIVERABLE_TYPE;
2035: END IF;
2036: