[Home] [Help]
6: -- Pre-reqs : None
7: -- Return Value : N/A
8: -- Parameters
9: -- p_api_version IN NUMBER := 1.0
10: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
11: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
12: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
13: -- p_validation_level IN VARCHAR2 := 100
14: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
7: -- Return Value : N/A
8: -- Parameters
9: -- p_api_version IN NUMBER := 1.0
10: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
11: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
12: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
13: -- p_validation_level IN VARCHAR2 := 100
14: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
15: -- p_debug_mode IN VARCHAR2 := 'N'
8: -- Parameters
9: -- p_api_version IN NUMBER := 1.0
10: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
11: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
12: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
13: -- p_validation_level IN VARCHAR2 := 100
14: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
15: -- p_debug_mode IN VARCHAR2 := 'N'
16: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
43:
44: procedure Create_Relationship
45: (
46: p_api_version IN NUMBER := 1.0
47: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
48: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
49: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
50: ,p_validation_level IN VARCHAR2 := 100
51: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
44: procedure Create_Relationship
45: (
46: p_api_version IN NUMBER := 1.0
47: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
48: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
49: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
50: ,p_validation_level IN VARCHAR2 := 100
51: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
52: ,p_debug_mode IN VARCHAR2 := 'N'
45: (
46: p_api_version IN NUMBER := 1.0
47: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
48: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
49: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
50: ,p_validation_level IN VARCHAR2 := 100
51: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
52: ,p_debug_mode IN VARCHAR2 := 'N'
53: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
162: IF (p_debug_mode = 'Y') THEN
163: pa_debug.debug('PA_RELATIONSHIP_PVT.CREATE_RELATIONSHIP begin');
164: END IF;
165:
166: IF (p_commit = FND_API.G_TRUE) THEN
167: savepoint create_relationship_pvt;
168: END IF;
169:
170: IF (p_debug_mode = 'Y') THEN
224: CLOSE Get_latest_Pub_Ver;
225: --dbms_output.put_line('no latest pub version, error');
226: PA_UTILS.ADD_MESSAGE('PA','PA_PS_NO_PUB_VER_EXIST');
227: x_msg_data := 'PA_PS_NO_PUB_VER_EXIST';
228: RAISE FND_API.G_EXC_ERROR;
229: END IF;
230: l_id_to := l_lastest_pub_ver_id;
231: l_type_to := 'PA_STRUCTURES';
232: CLOSE Get_latest_Pub_Ver;
235: --Check if user entered Structure Name and Structure Version Name
236: If (p_structure_id_to = NULL) THEN
237: PA_UTILS.ADD_MESSAGE('PA','PA_PS_STRUC_NAME_REQ');
238: x_msg_data := 'PA_PS_STRUC_NAME_REQ';
239: RAISE FND_API.G_EXC_ERROR;
240: END IF;
241:
242: --Check if selected structure type matches the structure
243: OPEN Is_Struc_Type_Valid(p_structure_type, p_structure_id_to);
245: IF Is_Struc_Type_Valid%NOTFOUND THEN
246: CLOSE Is_Struc_Type_Valid;
247: PA_UTILS.ADD_MESSAGE('PA','PA_PS_STRUC_TYPE_ID_ERR');
248: x_msg_data := 'PA_PS_STRUC_TYPE_ID_ERR';
249: RAISE FND_API.G_EXC_ERROR;
250: END IF;
251: CLOSE Is_Struc_Type_Valid;
252:
253: IF (p_structure_version_id_to = NULL) THEN
252:
253: IF (p_structure_version_id_to = NULL) THEN
254: PA_UTILS.ADD_MESSAGE('PA','PA_PS_STRUC_VER_NAME_REQ');
255: x_msg_data := 'PA_PS_STRUC_VER_NAME_REQ';
256: RAISE FND_API.G_EXC_ERROR;
257: END IF;
258:
259: IF (p_task_version_id_to IS NULL) THEN
260: l_id_to := p_structure_version_id_to;
290: IF Is_Struc_Type_Valid%NOTFOUND THEN
291: CLOSE Is_Struc_Type_Valid;
292: PA_UTILS.ADD_MESSAGE('PA','PA_PS_STRUC_TYPE_ID_ERR');
293: x_msg_data := 'PA_PS_STRUC_TYPE_ID_ERR';
294: RAISE FND_API.G_EXC_ERROR;
295: END IF;
296: CLOSE Is_Struc_Type_Valid;
297:
298: --Set the from id
315: ,l_error_message_code);
316:
317: --dbms_output.put_line('check create linke done, return '||l_return_status);
318: --Modified. When creating links, always create a subtask
319: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
320:
321: IF (p_debug_mode = 'Y') THEN
322: pa_debug.debug('need to create new sub task');
323: END IF;
362:
363: --need to create a task under the from side.
364: --dbms_output.put_line('Pid = '||p_project_id_from||', l_struc_id = '||l_structure_id||', l_element_id = '||l_element_id||'number(name) = '||substr(l_task_name_number,0,25)||'('||substr(l_task_name_number,0,240)||')');
365: PA_TASK_PUB1.CREATE_TASK
366: ( p_validate_only => FND_API.G_FALSE
367: ,p_object_type => 'PA_TASKS'
368: ,p_project_id => p_project_id_from
369: ,p_structure_id => l_structure_id
370: ,p_ref_task_id => l_element_id
385: If (p_debug_mode = 'Y') THEN
386: pa_debug.debug('new task id => '||l_task_id);
387: END IF;
388:
389: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
390:
391: x_msg_count := FND_MSG_PUB.count_msg;
392: if x_msg_count = 1 then
393: pa_interface_utils_pub.get_messages
390:
391: x_msg_count := FND_MSG_PUB.count_msg;
392: if x_msg_count = 1 then
393: pa_interface_utils_pub.get_messages
394: (p_encoded => FND_API.G_TRUE,
395: p_msg_index => 1,
396: p_msg_count => l_msg_count,
397: p_msg_data => l_msg_data,
398: p_data => l_data,
398: p_data => l_data,
399: p_msg_index_out => l_msg_index_out);
400: x_msg_data := l_data;
401: end if;
402: RAISE FND_API.G_EXC_ERROR;
403: end if;
404:
405: --CREATE_TASK_VERSION
406: l_peer_or_sub := 'SUB';
409: pa_debug.debug('Create peer or sub => '||l_peer_or_sub);
410: END IF;
411:
412: PA_TASK_PUB1.CREATE_TASK_VERSION
413: ( p_validate_only => FND_API.G_FALSE
414: ,p_ref_task_version_id => l_id_from
415: ,p_peer_or_sub => l_peer_or_sub
416: ,p_task_id => l_task_id
417: ,x_task_version_id => l_task_version_id
423: pa_debug.debug('new task version id => '||l_task_version_id);
424: END IF;
425:
426:
427: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
428:
429: x_msg_count := FND_MSG_PUB.count_msg;
430: if x_msg_count = 1 then
431: pa_interface_utils_pub.get_messages
428:
429: x_msg_count := FND_MSG_PUB.count_msg;
430: if x_msg_count = 1 then
431: pa_interface_utils_pub.get_messages
432: (p_encoded => FND_API.G_TRUE,
433: p_msg_index => 1,
434: p_msg_count => l_msg_count,
435: p_msg_data => l_msg_data,
436: p_data => l_data,
436: p_data => l_data,
437: p_msg_index_out => l_msg_index_out);
438: x_msg_data := l_data;
439: end if;
440: RAISE FND_API.G_EXC_ERROR;
441: end if;
442:
443: if PA_PROJECT_STRUCTURE_UTILS.GET_STRUC_TYPE_FOR_VERSION(p_structure_version_id_from, 'WORKPLAN') = 'Y' then
444: PA_TASK_PUB1.CREATE_SCHEDULE_VERSION
441: end if;
442:
443: if PA_PROJECT_STRUCTURE_UTILS.GET_STRUC_TYPE_FOR_VERSION(p_structure_version_id_from, 'WORKPLAN') = 'Y' then
444: PA_TASK_PUB1.CREATE_SCHEDULE_VERSION
445: ( p_validate_only => FND_API.G_FALSE
446: ,p_element_version_id => l_task_version_id
447: ,p_scheduled_start_date => l_scheduled_start_date
448: ,p_scheduled_end_date => l_scheduled_finish_date
449: ,x_pev_schedule_id => l_pev_schedule_id
454: If (p_debug_mode = 'Y') THEN
455: pa_debug.debug('new workplan attr for task => '||l_pev_schedule_id);
456: END IF;
457:
458: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
459: x_msg_count := FND_MSG_PUB.count_msg;
460: if x_msg_count = 1 then
461: pa_interface_utils_pub.get_messages
462: (p_encoded => FND_API.G_TRUE,
458: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
459: x_msg_count := FND_MSG_PUB.count_msg;
460: if x_msg_count = 1 then
461: pa_interface_utils_pub.get_messages
462: (p_encoded => FND_API.G_TRUE,
463: p_msg_index => 1,
464: p_msg_count => l_msg_count,
465: p_msg_data => l_msg_data,
466: p_data => l_data,
466: p_data => l_data,
467: p_msg_index_out => l_msg_index_out);
468: x_msg_data := l_data;
469: end if;
470: RAISE FND_API.G_EXC_ERROR;
471: end if;
472: END IF;
473:
474: --Assign new task as the linking object
503: --end FPM changes bug 3301192
504: );
505:
506: -- 4537865
507: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
508: RAISE FND_API.G_EXC_ERROR;
509: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
510: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
511: END IF;
504: );
505:
506: -- 4537865
507: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
508: RAISE FND_API.G_EXC_ERROR;
509: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
510: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
511: END IF;
512: -- End : 4537865
505:
506: -- 4537865
507: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
508: RAISE FND_API.G_EXC_ERROR;
509: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
510: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
511: END IF;
512: -- End : 4537865
513:
506: -- 4537865
507: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
508: RAISE FND_API.G_EXC_ERROR;
509: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
510: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
511: END IF;
512: -- End : 4537865
513:
514: ELSE
513:
514: ELSE
515: PA_UTILS.ADD_MESSAGE('PA',l_error_message_code);
516: x_msg_data := l_error_message_code;
517: RAISE FND_API.G_EXC_ERROR;
518: END IF;
519:
520: ELSIF p_relationship_type = 'S' THEN
521: --create relationship for task
575: --end FPM changes bug 3301192
576: );
577:
578: -- 4537865
579: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
580: RAISE FND_API.G_EXC_ERROR;
581: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
582: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
583: END IF;
576: );
577:
578: -- 4537865
579: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
580: RAISE FND_API.G_EXC_ERROR;
581: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
582: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
583: END IF;
584: -- End : 4537865
577:
578: -- 4537865
579: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
580: RAISE FND_API.G_EXC_ERROR;
581: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
582: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
583: END IF;
584: -- End : 4537865
585:
578: -- 4537865
579: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
580: RAISE FND_API.G_EXC_ERROR;
581: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
582: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
583: END IF;
584: -- End : 4537865
585:
586: -- Begin add rtarway FP.M development
628: , p_status_code => null
629: );
630:
631: -- 4537865
632: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
633: RAISE FND_API.G_EXC_ERROR;
634: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
635: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
636: END IF;
629: );
630:
631: -- 4537865
632: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
633: RAISE FND_API.G_EXC_ERROR;
634: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
635: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
636: END IF;
637: -- End 4537865
630:
631: -- 4537865
632: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
633: RAISE FND_API.G_EXC_ERROR;
634: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
635: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
636: END IF;
637: -- End 4537865
638:
631: -- 4537865
632: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
633: RAISE FND_API.G_EXC_ERROR;
634: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
635: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
636: END IF;
637: -- End 4537865
638:
639: -- End add rtarway FP.M development
643: pa_debug.debug('PA_RELATIONSHIP_PVT.CREATE_RELATIONSHIP end');
644: END IF;
645:
646: EXCEPTION
647: WHEN FND_API.G_EXC_ERROR THEN
648: IF (p_commit = FND_API.G_TRUE) THEN
649: ROLLBACK to create_relationship_pvt;
650: END IF;
651: x_msg_count := FND_MSG_PUB.count_msg;
644: END IF;
645:
646: EXCEPTION
647: WHEN FND_API.G_EXC_ERROR THEN
648: IF (p_commit = FND_API.G_TRUE) THEN
649: ROLLBACK to create_relationship_pvt;
650: END IF;
651: x_msg_count := FND_MSG_PUB.count_msg;
652: x_return_status := FND_API.G_RET_STS_ERROR;
648: IF (p_commit = FND_API.G_TRUE) THEN
649: ROLLBACK to create_relationship_pvt;
650: END IF;
651: x_msg_count := FND_MSG_PUB.count_msg;
652: x_return_status := FND_API.G_RET_STS_ERROR;
653: WHEN OTHERS THEN
654: IF (p_commit = FND_API.G_TRUE) THEN
655: ROLLBACK to create_relationship_pvt;
656: END IF;
650: END IF;
651: x_msg_count := FND_MSG_PUB.count_msg;
652: x_return_status := FND_API.G_RET_STS_ERROR;
653: WHEN OTHERS THEN
654: IF (p_commit = FND_API.G_TRUE) THEN
655: ROLLBACK to create_relationship_pvt;
656: END IF;
657: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
658: x_msg_count := FND_MSG_PUB.count_msg;
653: WHEN OTHERS THEN
654: IF (p_commit = FND_API.G_TRUE) THEN
655: ROLLBACK to create_relationship_pvt;
656: END IF;
657: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
658: x_msg_count := FND_MSG_PUB.count_msg;
659: --put message
660: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
661: p_procedure_name => 'Create_Relationship',
668: -- Pre-reqs : None
669: -- Return Value : N/A
670: -- Parameters
671: -- p_api_version IN NUMBER := 1.0
672: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
673: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
674: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
675: -- p_validation_level IN VARCHAR2 := 100
676: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
669: -- Return Value : N/A
670: -- Parameters
671: -- p_api_version IN NUMBER := 1.0
672: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
673: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
674: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
675: -- p_validation_level IN VARCHAR2 := 100
676: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
677: -- p_debug_mode IN VARCHAR2 := 'N'
670: -- Parameters
671: -- p_api_version IN NUMBER := 1.0
672: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
673: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
674: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
675: -- p_validation_level IN VARCHAR2 := 100
676: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
677: -- p_debug_mode IN VARCHAR2 := 'N'
678: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
703:
704: procedure Update_Relationship
705: (
706: p_api_version IN NUMBER := 1.0
707: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
708: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
709: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
710: ,p_validation_level IN VARCHAR2 := 100
711: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
704: procedure Update_Relationship
705: (
706: p_api_version IN NUMBER := 1.0
707: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
708: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
709: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
710: ,p_validation_level IN VARCHAR2 := 100
711: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
712: ,p_debug_mode IN VARCHAR2 := 'N'
705: (
706: p_api_version IN NUMBER := 1.0
707: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
708: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
709: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
710: ,p_validation_level IN VARCHAR2 := 100
711: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
712: ,p_debug_mode IN VARCHAR2 := 'N'
713: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
741: IF (p_debug_mode = 'Y') THEN
742: pa_debug.debug('PA_RELATIONSHIP_PVT.UPDATE_RELATIONSHIP begin');
743: END IF;
744:
745: IF (p_commit = FND_API.G_TRUE) THEN
746: savepoint update_relationship_pvt;
747: END IF;
748:
749: IF (p_debug_mode = 'Y') THEN
792: ,x_return_status => x_return_status
793: );
794:
795: -- 4537865
796: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
797: RAISE FND_API.G_EXC_ERROR;
798: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
799: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- To go to WHEN OTHERS Block
800: END IF;
793: );
794:
795: -- 4537865
796: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
797: RAISE FND_API.G_EXC_ERROR;
798: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
799: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- To go to WHEN OTHERS Block
800: END IF;
801: -- End 4537865
794:
795: -- 4537865
796: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
797: RAISE FND_API.G_EXC_ERROR;
798: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
799: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- To go to WHEN OTHERS Block
800: END IF;
801: -- End 4537865
802:
795: -- 4537865
796: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
797: RAISE FND_API.G_EXC_ERROR;
798: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
799: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- To go to WHEN OTHERS Block
800: END IF;
801: -- End 4537865
802:
803: PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW(
829: --end FPM changes bug 3301192
830: );
831:
832: -- 4537865
833: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
834: RAISE FND_API.G_EXC_ERROR;
835: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
836: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- To go to WHEN OTHERS Block
837: END IF;
830: );
831:
832: -- 4537865
833: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
834: RAISE FND_API.G_EXC_ERROR;
835: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
836: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- To go to WHEN OTHERS Block
837: END IF;
838: -- End 4537865
831:
832: -- 4537865
833: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
834: RAISE FND_API.G_EXC_ERROR;
835: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
836: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- To go to WHEN OTHERS Block
837: END IF;
838: -- End 4537865
839:
832: -- 4537865
833: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
834: RAISE FND_API.G_EXC_ERROR;
835: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
836: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- To go to WHEN OTHERS Block
837: END IF;
838: -- End 4537865
839:
840: EXCEPTION
837: END IF;
838: -- End 4537865
839:
840: EXCEPTION
841: WHEN FND_API.G_EXC_ERROR THEN
842: IF (p_commit = FND_API.G_TRUE) THEN
843: ROLLBACK to update_relationship_pvt;
844: END IF;
845: x_msg_count := FND_MSG_PUB.count_msg;
838: -- End 4537865
839:
840: EXCEPTION
841: WHEN FND_API.G_EXC_ERROR THEN
842: IF (p_commit = FND_API.G_TRUE) THEN
843: ROLLBACK to update_relationship_pvt;
844: END IF;
845: x_msg_count := FND_MSG_PUB.count_msg;
846: x_return_status := FND_API.G_RET_STS_ERROR;
842: IF (p_commit = FND_API.G_TRUE) THEN
843: ROLLBACK to update_relationship_pvt;
844: END IF;
845: x_msg_count := FND_MSG_PUB.count_msg;
846: x_return_status := FND_API.G_RET_STS_ERROR;
847: WHEN OTHERS THEN
848: IF (p_commit = FND_API.G_TRUE) THEN
849: ROLLBACK to update_relationship_pvt;
850: END IF;
844: END IF;
845: x_msg_count := FND_MSG_PUB.count_msg;
846: x_return_status := FND_API.G_RET_STS_ERROR;
847: WHEN OTHERS THEN
848: IF (p_commit = FND_API.G_TRUE) THEN
849: ROLLBACK to update_relationship_pvt;
850: END IF;
851: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
852: x_msg_count := FND_MSG_PUB.count_msg;
847: WHEN OTHERS THEN
848: IF (p_commit = FND_API.G_TRUE) THEN
849: ROLLBACK to update_relationship_pvt;
850: END IF;
851: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
852: x_msg_count := FND_MSG_PUB.count_msg;
853: --put message
854: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIPS_PVT',
855: p_procedure_name => 'Update_relationship',
864: -- Pre-reqs : None
865: -- Return Value : N/A
866: -- Parameters
867: -- p_api_version IN NUMBER := 1.0
868: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
869: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
870: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
871: -- p_validation_level IN VARCHAR2 := 100
872: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
865: -- Return Value : N/A
866: -- Parameters
867: -- p_api_version IN NUMBER := 1.0
868: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
869: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
870: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
871: -- p_validation_level IN VARCHAR2 := 100
872: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
873: -- p_debug_mode IN VARCHAR2 := 'N'
866: -- Parameters
867: -- p_api_version IN NUMBER := 1.0
868: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
869: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
870: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
871: -- p_validation_level IN VARCHAR2 := 100
872: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
873: -- p_debug_mode IN VARCHAR2 := 'N'
874: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
887:
888: procedure Delete_Relationship
889: (
890: p_api_version IN NUMBER := 1.0
891: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
892: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
893: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
894: ,p_validation_level IN VARCHAR2 := 100
895: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
888: procedure Delete_Relationship
889: (
890: p_api_version IN NUMBER := 1.0
891: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
892: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
893: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
894: ,p_validation_level IN VARCHAR2 := 100
895: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
896: ,p_debug_mode IN VARCHAR2 := 'N'
889: (
890: p_api_version IN NUMBER := 1.0
891: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
892: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
893: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
894: ,p_validation_level IN VARCHAR2 := 100
895: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
896: ,p_debug_mode IN VARCHAR2 := 'N'
897: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
919: IF (p_debug_mode = 'Y') THEN
920: pa_debug.debug('PA_RELATIONSHIP_PVT.DELETE_RELATIONSHIP begin');
921: END IF;
922:
923: IF (p_commit = FND_API.G_TRUE) THEN
924: savepoint delete_relationship_pvt;
925: END IF;
926:
927: IF (p_debug_mode = 'Y') THEN
951: ,x_return_status => x_return_status
952: );
953:
954: -- 4537865
955: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
956: RAISE FND_API.G_EXC_ERROR;
957: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
958: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- To go to WHEN OTHERS Block
959: END IF;
952: );
953:
954: -- 4537865
955: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
956: RAISE FND_API.G_EXC_ERROR;
957: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
958: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- To go to WHEN OTHERS Block
959: END IF;
960: -- End 4537865
953:
954: -- 4537865
955: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
956: RAISE FND_API.G_EXC_ERROR;
957: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
958: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- To go to WHEN OTHERS Block
959: END IF;
960: -- End 4537865
961:
954: -- 4537865
955: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
956: RAISE FND_API.G_EXC_ERROR;
957: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
958: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- To go to WHEN OTHERS Block
959: END IF;
960: -- End 4537865
961:
962: If (l_link_task_ver.relationship_type = 'L') THEN
974: x_msg_count => l_msg_count,
975: x_msg_data => l_msg_data);
976: END IF;
977:
978: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
979: x_msg_count := FND_MSG_PUB.count_msg;
980: IF x_msg_count = 1 then
981: pa_interface_utils_pub.get_messages
982: (p_encoded => FND_API.G_TRUE,
978: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
979: x_msg_count := FND_MSG_PUB.count_msg;
980: IF x_msg_count = 1 then
981: pa_interface_utils_pub.get_messages
982: (p_encoded => FND_API.G_TRUE,
983: p_msg_index => 1,
984: p_msg_count => l_msg_count,
985: p_msg_data => l_msg_data,
986: p_data => l_data,
986: p_data => l_data,
987: p_msg_index_out => l_msg_index_out);
988: x_msg_data := l_data;
989: END IF;
990: raise FND_API.G_EXC_ERROR;
991: END IF;
992:
993: IF (p_debug_mode = 'Y') THEN
994: pa_debug.debug('PA_RELATIONSHIP_PVT.DELETE_RELATIONSHIP end');
993: IF (p_debug_mode = 'Y') THEN
994: pa_debug.debug('PA_RELATIONSHIP_PVT.DELETE_RELATIONSHIP end');
995: END IF;
996: EXCEPTION
997: WHEN FND_API.G_EXC_ERROR THEN
998: IF (p_commit = FND_API.G_TRUE) THEN
999: ROLLBACK to delete_relationship_pvt;
1000: END IF;
1001: x_msg_count := FND_MSG_PUB.count_msg;
994: pa_debug.debug('PA_RELATIONSHIP_PVT.DELETE_RELATIONSHIP end');
995: END IF;
996: EXCEPTION
997: WHEN FND_API.G_EXC_ERROR THEN
998: IF (p_commit = FND_API.G_TRUE) THEN
999: ROLLBACK to delete_relationship_pvt;
1000: END IF;
1001: x_msg_count := FND_MSG_PUB.count_msg;
1002: x_return_status := FND_API.G_RET_STS_ERROR;
998: IF (p_commit = FND_API.G_TRUE) THEN
999: ROLLBACK to delete_relationship_pvt;
1000: END IF;
1001: x_msg_count := FND_MSG_PUB.count_msg;
1002: x_return_status := FND_API.G_RET_STS_ERROR;
1003: WHEN OTHERS THEN
1004: IF (p_commit = FND_API.G_TRUE) THEN
1005: ROLLBACK to delete_relationship_pvt;
1006: END IF;
1000: END IF;
1001: x_msg_count := FND_MSG_PUB.count_msg;
1002: x_return_status := FND_API.G_RET_STS_ERROR;
1003: WHEN OTHERS THEN
1004: IF (p_commit = FND_API.G_TRUE) THEN
1005: ROLLBACK to delete_relationship_pvt;
1006: END IF;
1007: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1008: x_msg_count := FND_MSG_PUB.count_msg;
1003: WHEN OTHERS THEN
1004: IF (p_commit = FND_API.G_TRUE) THEN
1005: ROLLBACK to delete_relationship_pvt;
1006: END IF;
1007: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1008: x_msg_count := FND_MSG_PUB.count_msg;
1009: --put message
1010: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIPS_PVT',
1011: p_procedure_name => 'Delete_relationship',
1018: -- Pre-reqs : None
1019: -- Return Value : N/A
1020: -- Parameters
1021: -- p_api_version IN NUMBER := 1.0
1022: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1023: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1024: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1025: -- p_validation_level IN VARCHAR2 := 100
1026: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1019: -- Return Value : N/A
1020: -- Parameters
1021: -- p_api_version IN NUMBER := 1.0
1022: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1023: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1024: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1025: -- p_validation_level IN VARCHAR2 := 100
1026: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1027: -- p_debug_mode IN VARCHAR2 := 'N'
1020: -- Parameters
1021: -- p_api_version IN NUMBER := 1.0
1022: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1023: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1024: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1025: -- p_validation_level IN VARCHAR2 := 100
1026: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1027: -- p_debug_mode IN VARCHAR2 := 'N'
1028: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1046:
1047: procedure Create_dependency
1048: (
1049: p_api_version IN NUMBER := 1.0
1050: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1051: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1052: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1053: ,p_validation_level IN VARCHAR2 := 100
1054: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1047: procedure Create_dependency
1048: (
1049: p_api_version IN NUMBER := 1.0
1050: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1051: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1052: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1053: ,p_validation_level IN VARCHAR2 := 100
1054: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1055: ,p_debug_mode IN VARCHAR2 := 'N'
1048: (
1049: p_api_version IN NUMBER := 1.0
1050: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1051: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1052: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1053: ,p_validation_level IN VARCHAR2 := 100
1054: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1055: ,p_debug_mode IN VARCHAR2 := 'N'
1056: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1150: IF (p_debug_mode = 'Y') THEN
1151: pa_debug.debug('PA_RELATIONSHIP_PVT.CREATE_DEPENDENCY begin');
1152: END IF;
1153:
1154: IF (p_commit = FND_API.G_TRUE) THEN
1155: savepoint create_dependency_pvt;
1156: END IF;
1157:
1158: IF p_calling_module = 'SELF_SERVICE' THEN
1176: FETCH is_summary_task into l_cnt;
1177: CLOSE is_summary_task;
1178: /* If single row is returned */
1179: IF NVL(l_cnt,0) <> 0 THEN
1180: x_return_status := FND_API.G_RET_STS_ERROR;
1181: x_msg_count := 1;
1182: x_msg_data := 'PA_PS_NO_DEP_ON_SUMM';
1183: PA_UTILS.add_message('PA', 'PA_PS_NO_DEP_ON_SUMM');
1184: raise FND_API.G_EXC_ERROR;
1180: x_return_status := FND_API.G_RET_STS_ERROR;
1181: x_msg_count := 1;
1182: x_msg_data := 'PA_PS_NO_DEP_ON_SUMM';
1183: PA_UTILS.add_message('PA', 'PA_PS_NO_DEP_ON_SUMM');
1184: raise FND_API.G_EXC_ERROR;
1185: END IF;
1186: END;
1187: END IF;
1188:
1195: FETCH IS_SUMMARY_TASK into l_cnt;
1196: close is_summary_task;
1197: /* If single row is returned */
1198: IF NVL(l_cnt,0) <> 0 THEN
1199: x_return_status := FND_API.G_RET_STS_ERROR;
1200: x_msg_count := 1;
1201: x_msg_data := 'PA_PS_NO_DEP_ON_SUMM';
1202: PA_UTILS.add_message('PA', 'PA_PS_NO_DEP_ON_SUMM');
1203: raise FND_API.G_EXC_ERROR;
1199: x_return_status := FND_API.G_RET_STS_ERROR;
1200: x_msg_count := 1;
1201: x_msg_data := 'PA_PS_NO_DEP_ON_SUMM';
1202: PA_UTILS.add_message('PA', 'PA_PS_NO_DEP_ON_SUMM');
1203: raise FND_API.G_EXC_ERROR;
1204: END IF;
1205: END;
1206: END IF;
1207:
1229: ,x_msg_count => l_msg_count
1230: ,x_msg_data => l_msg_data
1231: );
1232:
1233: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1234: x_msg_count := FND_MSG_PUB.count_msg;
1235: IF x_msg_count = 1 then
1236: pa_interface_utils_pub.get_messages
1237: (p_encoded => FND_API.G_TRUE,
1233: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1234: x_msg_count := FND_MSG_PUB.count_msg;
1235: IF x_msg_count = 1 then
1236: pa_interface_utils_pub.get_messages
1237: (p_encoded => FND_API.G_TRUE,
1238: p_msg_index => 1,
1239: p_msg_count => l_msg_count,
1240: p_msg_data => l_msg_data,
1241: p_data => l_data,
1241: p_data => l_data,
1242: p_msg_index_out => l_msg_index_out);
1243: x_msg_data := l_data;
1244: END IF;
1245: raise FND_API.G_EXC_ERROR;
1246: END IF;
1247: END;
1248: END IF;
1249:
1273: ,p_comments => p_comments
1274: ,p_status_code => null /* not applicable for intra dependency */
1275: );
1276:
1277: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1278: x_msg_count := FND_MSG_PUB.count_msg;
1279: IF x_msg_count = 1 then
1280: pa_interface_utils_pub.get_messages
1281: (p_encoded => FND_API.G_TRUE,
1277: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1278: x_msg_count := FND_MSG_PUB.count_msg;
1279: IF x_msg_count = 1 then
1280: pa_interface_utils_pub.get_messages
1281: (p_encoded => FND_API.G_TRUE,
1282: p_msg_index => 1,
1283: p_msg_count => l_msg_count,
1284: p_msg_data => l_msg_data,
1285: p_data => l_data,
1285: p_data => l_data,
1286: p_msg_index_out => l_msg_index_out);
1287: x_msg_data := l_data;
1288: END IF;
1289: raise FND_API.G_EXC_ERROR;
1290: END IF;
1291:
1292: ELSE
1293:
1302: ,x_msg_count => l_msg_count
1303: ,x_msg_data => l_msg_data
1304: );
1305:
1306: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1307: x_msg_count := FND_MSG_PUB.count_msg;
1308: IF x_msg_count = 1 then
1309: pa_interface_utils_pub.get_messages
1310: (p_encoded => FND_API.G_TRUE,
1306: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1307: x_msg_count := FND_MSG_PUB.count_msg;
1308: IF x_msg_count = 1 then
1309: pa_interface_utils_pub.get_messages
1310: (p_encoded => FND_API.G_TRUE,
1311: p_msg_index => 1,
1312: p_msg_count => l_msg_count,
1313: p_msg_data => l_msg_data,
1314: p_data => l_data,
1314: p_data => l_data,
1315: p_msg_index_out => l_msg_index_out);
1316: x_msg_data := l_data;
1317: END IF;
1318: raise FND_API.G_EXC_ERROR;
1319: END IF;
1320: END;
1321:
1322: l_src_proj_ve := PA_PROJ_TASK_STRUC_PUB.IS_WP_VERSIONING_ENABLED(p_src_proj_id);
1378: ,p_comments => p_comments
1379: ,p_status_code => l_status_code
1380: );
1381:
1382: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1383: x_msg_count := FND_MSG_PUB.count_msg;
1384: IF x_msg_count = 1 then
1385: pa_interface_utils_pub.get_messages
1386: (p_encoded => FND_API.G_TRUE,
1382: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1383: x_msg_count := FND_MSG_PUB.count_msg;
1384: IF x_msg_count = 1 then
1385: pa_interface_utils_pub.get_messages
1386: (p_encoded => FND_API.G_TRUE,
1387: p_msg_index => 1,
1388: p_msg_count => l_msg_count,
1389: p_msg_data => l_msg_data,
1390: p_data => l_data,
1390: p_data => l_data,
1391: p_msg_index_out => l_msg_index_out);
1392: x_msg_data := l_data;
1393: END IF;
1394: raise FND_API.G_EXC_ERROR;
1395: END IF;
1396:
1397: END LOOP;
1398:
1397: END LOOP;
1398:
1399: END IF;
1400:
1401: x_return_status := FND_API.G_RET_STS_SUCCESS;
1402:
1403: IF (p_commit = FND_API.G_TRUE) THEN
1404: COMMIT;
1405: END IF;
1399: END IF;
1400:
1401: x_return_status := FND_API.G_RET_STS_SUCCESS;
1402:
1403: IF (p_commit = FND_API.G_TRUE) THEN
1404: COMMIT;
1405: END IF;
1406:
1407: IF (p_debug_mode = 'Y') THEN
1408: pa_debug.debug('PA_RELATIONSHIP_PVT.CREATE_DEPENDENCY END');
1409: END IF;
1410:
1411: EXCEPTION
1412: when FND_API.G_EXC_ERROR then
1413: if p_commit = FND_API.G_TRUE then
1414: rollback to create_dependency_pvt;
1415: end if;
1416: x_return_status := FND_API.G_RET_STS_ERROR;
1409: END IF;
1410:
1411: EXCEPTION
1412: when FND_API.G_EXC_ERROR then
1413: if p_commit = FND_API.G_TRUE then
1414: rollback to create_dependency_pvt;
1415: end if;
1416: x_return_status := FND_API.G_RET_STS_ERROR;
1417: when FND_API.G_EXC_UNEXPECTED_ERROR then
1412: when FND_API.G_EXC_ERROR then
1413: if p_commit = FND_API.G_TRUE then
1414: rollback to create_dependency_pvt;
1415: end if;
1416: x_return_status := FND_API.G_RET_STS_ERROR;
1417: when FND_API.G_EXC_UNEXPECTED_ERROR then
1418: if p_commit = FND_API.G_TRUE then
1419: rollback to create_dependency_pvt;
1420: end if;
1413: if p_commit = FND_API.G_TRUE then
1414: rollback to create_dependency_pvt;
1415: end if;
1416: x_return_status := FND_API.G_RET_STS_ERROR;
1417: when FND_API.G_EXC_UNEXPECTED_ERROR then
1418: if p_commit = FND_API.G_TRUE then
1419: rollback to create_dependency_pvt;
1420: end if;
1421: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1414: rollback to create_dependency_pvt;
1415: end if;
1416: x_return_status := FND_API.G_RET_STS_ERROR;
1417: when FND_API.G_EXC_UNEXPECTED_ERROR then
1418: if p_commit = FND_API.G_TRUE then
1419: rollback to create_dependency_pvt;
1420: end if;
1421: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1422: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
1417: when FND_API.G_EXC_UNEXPECTED_ERROR then
1418: if p_commit = FND_API.G_TRUE then
1419: rollback to create_dependency_pvt;
1420: end if;
1421: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1422: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
1423: p_procedure_name => 'CREATE_DEPENDENCY',
1424: p_error_text => SUBSTRB(SQLERRM,1,240));
1425: when OTHERS then
1422: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
1423: p_procedure_name => 'CREATE_DEPENDENCY',
1424: p_error_text => SUBSTRB(SQLERRM,1,240));
1425: when OTHERS then
1426: if p_commit = FND_API.G_TRUE then
1427: rollback to create_dependency_pvt;
1428: end if;
1429: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1430: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
1425: when OTHERS then
1426: if p_commit = FND_API.G_TRUE then
1427: rollback to create_dependency_pvt;
1428: end if;
1429: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1430: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
1431: p_procedure_name => 'CREATE_DEPENDENCY',
1432: p_error_text => SUBSTRB(SQLERRM,1,240));
1433: raise;
1438: -- Pre-reqs : None
1439: -- Return Value : N/A
1440: -- Parameters
1441: -- p_api_version IN NUMBER := 1.0
1442: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1443: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1444: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1445: -- p_validation_level IN VARCHAR2 := 100
1446: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1439: -- Return Value : N/A
1440: -- Parameters
1441: -- p_api_version IN NUMBER := 1.0
1442: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1443: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1444: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1445: -- p_validation_level IN VARCHAR2 := 100
1446: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1447: -- p_debug_mode IN VARCHAR2 := 'N'
1440: -- Parameters
1441: -- p_api_version IN NUMBER := 1.0
1442: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1443: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1444: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1445: -- p_validation_level IN VARCHAR2 := 100
1446: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1447: -- p_debug_mode IN VARCHAR2 := 'N'
1448: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1464:
1465: procedure Update_dependency
1466: (
1467: p_api_version IN NUMBER := 1.0
1468: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1469: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1470: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1471: ,p_validation_level IN VARCHAR2 := 100
1472: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1465: procedure Update_dependency
1466: (
1467: p_api_version IN NUMBER := 1.0
1468: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1469: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1470: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1471: ,p_validation_level IN VARCHAR2 := 100
1472: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1473: ,p_debug_mode IN VARCHAR2 := 'N'
1466: (
1467: p_api_version IN NUMBER := 1.0
1468: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1469: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1470: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1471: ,p_validation_level IN VARCHAR2 := 100
1472: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1473: ,p_debug_mode IN VARCHAR2 := 'N'
1474: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1509: IF (p_debug_mode = 'Y') THEN
1510: pa_debug.debug('PA_RELATIONSHIP_PVT.UPDATE_DEPENDENCY begin');
1511: END IF;
1512:
1513: IF (p_commit = FND_API.G_TRUE) THEN
1514: savepoint update_dependency_pvt;
1515: END IF;
1516:
1517: FOR l_obj_rel_rec IN cur_obj_rel LOOP
1552: ,p_record_version_number => p_record_version_number
1553: ,x_return_status => l_return_status
1554: );
1555:
1556: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1557: x_msg_count := FND_MSG_PUB.count_msg;
1558: IF x_msg_count = 1 then
1559: pa_interface_utils_pub.get_messages
1560: (p_encoded => FND_API.G_TRUE,
1556: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1557: x_msg_count := FND_MSG_PUB.count_msg;
1558: IF x_msg_count = 1 then
1559: pa_interface_utils_pub.get_messages
1560: (p_encoded => FND_API.G_TRUE,
1561: p_msg_index => 1,
1562: p_msg_count => l_msg_count,
1563: p_msg_data => l_msg_data,
1564: p_data => l_data,
1564: p_data => l_data,
1565: p_msg_index_out => l_msg_index_out);
1566: x_msg_data := l_data;
1567: END IF;
1568: raise FND_API.G_EXC_ERROR;
1569: END IF;
1570:
1571: END LOOP;
1572:
1569: END IF;
1570:
1571: END LOOP;
1572:
1573: x_return_status := FND_API.G_RET_STS_SUCCESS;
1574:
1575: IF (p_commit = FND_API.G_TRUE) THEN
1576: COMMIT;
1577: END IF;
1571: END LOOP;
1572:
1573: x_return_status := FND_API.G_RET_STS_SUCCESS;
1574:
1575: IF (p_commit = FND_API.G_TRUE) THEN
1576: COMMIT;
1577: END IF;
1578:
1579: IF (p_debug_mode = 'Y') THEN
1580: pa_debug.debug('PA_RELATIONSHIP_PVT.UPDATE_DEPENDENCY END');
1581: END IF;
1582:
1583: EXCEPTION
1584: when FND_API.G_EXC_ERROR then
1585: if p_commit = FND_API.G_TRUE then
1586: rollback to update_dependency_pvt;
1587: end if;
1588: x_return_status := FND_API.G_RET_STS_ERROR;
1581: END IF;
1582:
1583: EXCEPTION
1584: when FND_API.G_EXC_ERROR then
1585: if p_commit = FND_API.G_TRUE then
1586: rollback to update_dependency_pvt;
1587: end if;
1588: x_return_status := FND_API.G_RET_STS_ERROR;
1589: when FND_API.G_EXC_UNEXPECTED_ERROR then
1584: when FND_API.G_EXC_ERROR then
1585: if p_commit = FND_API.G_TRUE then
1586: rollback to update_dependency_pvt;
1587: end if;
1588: x_return_status := FND_API.G_RET_STS_ERROR;
1589: when FND_API.G_EXC_UNEXPECTED_ERROR then
1590: if p_commit = FND_API.G_TRUE then
1591: rollback to update_dependency_pvt;
1592: end if;
1585: if p_commit = FND_API.G_TRUE then
1586: rollback to update_dependency_pvt;
1587: end if;
1588: x_return_status := FND_API.G_RET_STS_ERROR;
1589: when FND_API.G_EXC_UNEXPECTED_ERROR then
1590: if p_commit = FND_API.G_TRUE then
1591: rollback to update_dependency_pvt;
1592: end if;
1593: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1586: rollback to update_dependency_pvt;
1587: end if;
1588: x_return_status := FND_API.G_RET_STS_ERROR;
1589: when FND_API.G_EXC_UNEXPECTED_ERROR then
1590: if p_commit = FND_API.G_TRUE then
1591: rollback to update_dependency_pvt;
1592: end if;
1593: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1594: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
1589: when FND_API.G_EXC_UNEXPECTED_ERROR then
1590: if p_commit = FND_API.G_TRUE then
1591: rollback to update_dependency_pvt;
1592: end if;
1593: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1594: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
1595: p_procedure_name => 'UPDATE_DEPENDENCY',
1596: p_error_text => SUBSTRB(SQLERRM,1,240));
1597: when OTHERS then
1594: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
1595: p_procedure_name => 'UPDATE_DEPENDENCY',
1596: p_error_text => SUBSTRB(SQLERRM,1,240));
1597: when OTHERS then
1598: if p_commit = FND_API.G_TRUE then
1599: rollback to update_dependency_pvt;
1600: end if;
1601: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1602: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
1597: when OTHERS then
1598: if p_commit = FND_API.G_TRUE then
1599: rollback to update_dependency_pvt;
1600: end if;
1601: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1602: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
1603: p_procedure_name => 'UPDATE_DEPENDENCY',
1604: p_error_text => SUBSTRB(SQLERRM,1,240));
1605: raise;
1610: -- Pre-reqs : None
1611: -- Return Value : N/A
1612: -- Parameters
1613: -- p_api_version IN NUMBER := 1.0
1614: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1615: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1616: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1617: -- p_validation_level IN VARCHAR2 := 100
1618: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1611: -- Return Value : N/A
1612: -- Parameters
1613: -- p_api_version IN NUMBER := 1.0
1614: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1615: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1616: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1617: -- p_validation_level IN VARCHAR2 := 100
1618: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1619: -- p_debug_mode IN VARCHAR2 := 'N'
1612: -- Parameters
1613: -- p_api_version IN NUMBER := 1.0
1614: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1615: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1616: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1617: -- p_validation_level IN VARCHAR2 := 100
1618: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1619: -- p_debug_mode IN VARCHAR2 := 'N'
1620: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1632:
1633: procedure Delete_Dependency
1634: (
1635: p_api_version IN NUMBER := 1.0
1636: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1637: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1638: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1639: ,p_validation_level IN VARCHAR2 := 100
1640: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1633: procedure Delete_Dependency
1634: (
1635: p_api_version IN NUMBER := 1.0
1636: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1637: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1638: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1639: ,p_validation_level IN VARCHAR2 := 100
1640: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1641: ,p_debug_mode IN VARCHAR2 := 'N'
1634: (
1635: p_api_version IN NUMBER := 1.0
1636: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1637: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1638: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1639: ,p_validation_level IN VARCHAR2 := 100
1640: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1641: ,p_debug_mode IN VARCHAR2 := 'N'
1642: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1693: IF (p_debug_mode = 'Y') THEN
1694: pa_debug.debug('PA_RELATIONSHIP_PVT.DELETE_DEPENDENCY begin');
1695: END IF;
1696:
1697: IF (p_commit = FND_API.G_TRUE) THEN
1698: savepoint delete_dependency_pvt;
1699: END IF;
1700:
1701: --delete record from object relationships table.
1711: -- if the sturcture ver is published then the process should not allow to delete dependency
1712: IF PA_WORKPLAN_ATTR_UTILS.CHECK_WP_VERSIONING_ENABLED(l_project_id) = 'Y' THEN
1713: IF PA_PROJECT_STRUCTURE_UTILS.Check_Struc_Ver_Published(l_project_id,l_struc_ver_id) = 'Y' THEN
1714: PA_UTILS.ADD_MESSAGE('PA','PA_DEL_DEP_FOR_PUB_STR');
1715: RAISE FND_API.G_EXC_ERROR;
1716: END IF;
1717: END IF;
1718: --
1719: PA_OBJECT_RELATIONSHIPS_PKG.DELETE_ROW (
1733: ,p_record_version_number => cur_obj_rel_rec.record_version_number
1734: ,p_pm_product_code => null
1735: ,x_return_status => l_return_status );
1736:
1737: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1738: x_msg_count := FND_MSG_PUB.count_msg;
1739: IF x_msg_count = 1 then
1740: pa_interface_utils_pub.get_messages
1741: (p_encoded => FND_API.G_TRUE,
1737: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1738: x_msg_count := FND_MSG_PUB.count_msg;
1739: IF x_msg_count = 1 then
1740: pa_interface_utils_pub.get_messages
1741: (p_encoded => FND_API.G_TRUE,
1742: p_msg_index => 1,
1743: p_msg_count => l_msg_count,
1744: p_msg_data => l_msg_data,
1745: p_data => l_data,
1745: p_data => l_data,
1746: p_msg_index_out => l_msg_index_out);
1747: x_msg_data := l_data;
1748: END IF;
1749: raise FND_API.G_EXC_ERROR;
1750: END IF;
1751:
1752: END LOOP;
1753:
1750: END IF;
1751:
1752: END LOOP;
1753:
1754: x_return_status := FND_API.G_RET_STS_SUCCESS;
1755:
1756: IF (p_commit = FND_API.G_TRUE) THEN
1757: COMMIT;
1758: END IF;
1752: END LOOP;
1753:
1754: x_return_status := FND_API.G_RET_STS_SUCCESS;
1755:
1756: IF (p_commit = FND_API.G_TRUE) THEN
1757: COMMIT;
1758: END IF;
1759:
1760: IF (p_debug_mode = 'Y') THEN
1760: IF (p_debug_mode = 'Y') THEN
1761: pa_debug.debug('PA_RELATIONSHIP_PVT.DELETE_DEPENDENCY END');
1762: END IF;
1763: EXCEPTION
1764: when FND_API.G_EXC_ERROR then
1765: if p_commit = FND_API.G_TRUE then
1766: rollback to delete_dependency_pvt;
1767: end if;
1768: x_return_status := FND_API.G_RET_STS_ERROR;
1761: pa_debug.debug('PA_RELATIONSHIP_PVT.DELETE_DEPENDENCY END');
1762: END IF;
1763: EXCEPTION
1764: when FND_API.G_EXC_ERROR then
1765: if p_commit = FND_API.G_TRUE then
1766: rollback to delete_dependency_pvt;
1767: end if;
1768: x_return_status := FND_API.G_RET_STS_ERROR;
1769: when FND_API.G_EXC_UNEXPECTED_ERROR then
1764: when FND_API.G_EXC_ERROR then
1765: if p_commit = FND_API.G_TRUE then
1766: rollback to delete_dependency_pvt;
1767: end if;
1768: x_return_status := FND_API.G_RET_STS_ERROR;
1769: when FND_API.G_EXC_UNEXPECTED_ERROR then
1770: if p_commit = FND_API.G_TRUE then
1771: rollback to delete_dependency_pvt;
1772: end if;
1765: if p_commit = FND_API.G_TRUE then
1766: rollback to delete_dependency_pvt;
1767: end if;
1768: x_return_status := FND_API.G_RET_STS_ERROR;
1769: when FND_API.G_EXC_UNEXPECTED_ERROR then
1770: if p_commit = FND_API.G_TRUE then
1771: rollback to delete_dependency_pvt;
1772: end if;
1773: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1766: rollback to delete_dependency_pvt;
1767: end if;
1768: x_return_status := FND_API.G_RET_STS_ERROR;
1769: when FND_API.G_EXC_UNEXPECTED_ERROR then
1770: if p_commit = FND_API.G_TRUE then
1771: rollback to delete_dependency_pvt;
1772: end if;
1773: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1774: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
1769: when FND_API.G_EXC_UNEXPECTED_ERROR then
1770: if p_commit = FND_API.G_TRUE then
1771: rollback to delete_dependency_pvt;
1772: end if;
1773: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1774: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
1775: p_procedure_name => 'DELETE_DEPENDENCY',
1776: p_error_text => SUBSTRB(SQLERRM,1,240));
1777: when OTHERS then
1774: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
1775: p_procedure_name => 'DELETE_DEPENDENCY',
1776: p_error_text => SUBSTRB(SQLERRM,1,240));
1777: when OTHERS then
1778: if p_commit = FND_API.G_TRUE then
1779: rollback to delete_dependency_pvt;
1780: end if;
1781: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1782: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
1777: when OTHERS then
1778: if p_commit = FND_API.G_TRUE then
1779: rollback to delete_dependency_pvt;
1780: end if;
1781: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1782: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
1783: p_procedure_name => 'DELETE_DEPENDENCY',
1784: p_error_text => SUBSTRB(SQLERRM,1,240));
1785: raise;
2301: ,x_msg_count => x_msg_count
2302: ,x_msg_data => x_msg_data
2303: );
2304:
2305: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2306: x_msg_count := FND_MSG_PUB.count_msg;
2307: IF x_msg_count = 1 then
2308: pa_interface_utils_pub.get_messages
2309: (p_encoded => FND_API.G_TRUE,
2305: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2306: x_msg_count := FND_MSG_PUB.count_msg;
2307: IF x_msg_count = 1 then
2308: pa_interface_utils_pub.get_messages
2309: (p_encoded => FND_API.G_TRUE,
2310: p_msg_index => 1,
2311: p_msg_count => x_msg_count,
2312: p_msg_data => x_msg_data,
2313: p_data => l_data,
2313: p_data => l_data,
2314: p_msg_index_out => l_msg_index_out);
2315: x_msg_data := l_data;
2316: END IF;
2317: raise FND_API.G_EXC_ERROR;
2318: END IF;
2319: END IF; --if found
2320: End Loop;
2321:
2345: ,x_msg_count => x_msg_count
2346: ,x_msg_data => x_msg_data
2347: );
2348:
2349: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2350: x_msg_count := FND_MSG_PUB.count_msg;
2351: IF x_msg_count = 1 then
2352: pa_interface_utils_pub.get_messages
2353: (p_encoded => FND_API.G_TRUE,
2349: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2350: x_msg_count := FND_MSG_PUB.count_msg;
2351: IF x_msg_count = 1 then
2352: pa_interface_utils_pub.get_messages
2353: (p_encoded => FND_API.G_TRUE,
2354: p_msg_index => 1,
2355: p_msg_count => x_msg_count,
2356: p_msg_data => x_msg_data,
2357: p_data => l_data,
2358: p_msg_index_out => l_msg_index_out);
2359: x_msg_data := l_data;
2360: END IF;
2361: close get_struc_dependency;
2362: raise FND_API.G_EXC_ERROR;
2363: END IF;
2364: END Loop;
2365: close get_struc_dependency;
2366: END IF;
2366: END IF;
2367: --end bug 4019845
2368: */
2369:
2370: x_return_status := FND_API.G_RET_STS_SUCCESS;
2371:
2372: EXCEPTION -- 4537865
2373: WHEN FND_API.G_EXC_ERROR THEN
2374: x_msg_count := FND_MSG_PUB.count_msg;
2369:
2370: x_return_status := FND_API.G_RET_STS_SUCCESS;
2371:
2372: EXCEPTION -- 4537865
2373: WHEN FND_API.G_EXC_ERROR THEN
2374: x_msg_count := FND_MSG_PUB.count_msg;
2375: x_return_status := FND_API.G_RET_STS_ERROR;
2376: WHEN OTHERS THEN
2377: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2371:
2372: EXCEPTION -- 4537865
2373: WHEN FND_API.G_EXC_ERROR THEN
2374: x_msg_count := FND_MSG_PUB.count_msg;
2375: x_return_status := FND_API.G_RET_STS_ERROR;
2376: WHEN OTHERS THEN
2377: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2378: x_msg_count := FND_MSG_PUB.count_msg;
2379: --put message
2373: WHEN FND_API.G_EXC_ERROR THEN
2374: x_msg_count := FND_MSG_PUB.count_msg;
2375: x_return_status := FND_API.G_RET_STS_ERROR;
2376: WHEN OTHERS THEN
2377: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2378: x_msg_count := FND_MSG_PUB.count_msg;
2379: --put message
2380: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIPS_PVT',
2381: p_procedure_name => 'Copy_Intra_Dependency',
2451: ,x_msg_count => x_msg_count
2452: ,x_msg_data => x_msg_data
2453: );
2454:
2455: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2456: x_msg_count := FND_MSG_PUB.count_msg;
2457: IF x_msg_count = 1 then
2458: pa_interface_utils_pub.get_messages
2459: (p_encoded => FND_API.G_TRUE,
2455: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2456: x_msg_count := FND_MSG_PUB.count_msg;
2457: IF x_msg_count = 1 then
2458: pa_interface_utils_pub.get_messages
2459: (p_encoded => FND_API.G_TRUE,
2460: p_msg_index => 1,
2461: p_msg_count => x_msg_count,
2462: p_msg_data => x_msg_data,
2463: p_data => l_data,
2463: p_data => l_data,
2464: p_msg_index_out => l_msg_index_out);
2465: x_msg_data := l_data;
2466: END IF;
2467: raise FND_API.G_EXC_ERROR;
2468: END IF;
2469: End If;
2470: End Loop;
2471: -- End of Looping thru destination IDs
2542: ,x_msg_count => x_msg_count
2543: ,x_msg_data => x_msg_data
2544: );
2545: -- 4537865 : This is wrong.Check shud be made against x_return_status :
2546: -- IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2547: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2548: x_msg_count := FND_MSG_PUB.count_msg;
2549: IF x_msg_count = 1 then
2550: pa_interface_utils_pub.get_messages
2543: ,x_msg_data => x_msg_data
2544: );
2545: -- 4537865 : This is wrong.Check shud be made against x_return_status :
2546: -- IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2547: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2548: x_msg_count := FND_MSG_PUB.count_msg;
2549: IF x_msg_count = 1 then
2550: pa_interface_utils_pub.get_messages
2551: (p_encoded => FND_API.G_TRUE,
2547: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2548: x_msg_count := FND_MSG_PUB.count_msg;
2549: IF x_msg_count = 1 then
2550: pa_interface_utils_pub.get_messages
2551: (p_encoded => FND_API.G_TRUE,
2552: p_msg_index => 1,
2553: p_msg_count => x_msg_count,
2554: p_msg_data => x_msg_data,
2555: p_data => l_data,
2555: p_data => l_data,
2556: p_msg_index_out => l_msg_index_out);
2557: x_msg_data := l_data;
2558: END IF;
2559: raise FND_API.G_EXC_ERROR;
2560: END IF;
2561: END IF; --if found
2562: End Loop;
2563: -- End of Looping thru successor IDs
2561: END IF; --if found
2562: End Loop;
2563: -- End of Looping thru successor IDs
2564: --
2565: x_return_status := FND_API.G_RET_STS_SUCCESS;
2566: --
2567: EXCEPTION -- 4537865
2568: WHEN FND_API.G_EXC_ERROR THEN
2569: x_msg_count := FND_MSG_PUB.count_msg;
2564: --
2565: x_return_status := FND_API.G_RET_STS_SUCCESS;
2566: --
2567: EXCEPTION -- 4537865
2568: WHEN FND_API.G_EXC_ERROR THEN
2569: x_msg_count := FND_MSG_PUB.count_msg;
2570: x_return_status := FND_API.G_RET_STS_ERROR;
2571: WHEN OTHERS THEN
2572: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2566: --
2567: EXCEPTION -- 4537865
2568: WHEN FND_API.G_EXC_ERROR THEN
2569: x_msg_count := FND_MSG_PUB.count_msg;
2570: x_return_status := FND_API.G_RET_STS_ERROR;
2571: WHEN OTHERS THEN
2572: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2573: x_msg_count := FND_MSG_PUB.count_msg;
2574: --put message
2568: WHEN FND_API.G_EXC_ERROR THEN
2569: x_msg_count := FND_MSG_PUB.count_msg;
2570: x_return_status := FND_API.G_RET_STS_ERROR;
2571: WHEN OTHERS THEN
2572: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2573: x_msg_count := FND_MSG_PUB.count_msg;
2574: --put message
2575: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIPS_PVT',
2576: p_procedure_name => 'Copy_Inter_Project_Dependency',
2750: ,x_return_status => x_return_status
2751: ,x_msg_count => x_msg_count
2752: ,x_msg_data => x_msg_data
2753: );
2754: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2755: x_msg_count := FND_MSG_PUB.count_msg;
2756: IF x_msg_count = 1 then
2757: pa_interface_utils_pub.get_messages
2758: (p_encoded => FND_API.G_TRUE,
2754: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2755: x_msg_count := FND_MSG_PUB.count_msg;
2756: IF x_msg_count = 1 then
2757: pa_interface_utils_pub.get_messages
2758: (p_encoded => FND_API.G_TRUE,
2759: p_msg_index => 1,
2760: p_msg_count => x_msg_count,
2761: p_msg_data => x_msg_data,
2762: p_data => l_data,
2763: p_msg_index_out => l_msg_index_out);
2764: x_msg_data := l_data;
2765: END IF;
2766: Close Check_Prev_Ver_Exists;
2767: Raise FND_API.G_EXC_ERROR;
2768: END IF;
2769: END LOOP;
2770: Close Check_Prev_Ver_Exists;
2771: End If;
2816: -- ,x_msg_count => x_msg_count
2817: -- ,x_msg_data => x_msg_data
2818: );
2819:
2820: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2821: x_msg_count := FND_MSG_PUB.count_msg;
2822: /* IF x_msg_count = 1 then
2823: pa_interface_utils_pub.get_messages
2824: (p_encoded => FND_API.G_TRUE,
2820: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2821: x_msg_count := FND_MSG_PUB.count_msg;
2822: /* IF x_msg_count = 1 then
2823: pa_interface_utils_pub.get_messages
2824: (p_encoded => FND_API.G_TRUE,
2825: p_msg_index => 1,
2826: p_msg_count => x_msg_count,
2827: p_msg_data => x_msg_data,
2828: p_data => l_data,
2829: p_msg_index_out => l_msg_index_out);
2830: x_msg_data := l_data;
2831: END IF; */
2832: Close Create_Proj_Depend;
2833: Raise FND_API.G_EXC_ERROR;
2834: END IF;
2835: END LOOP;
2836: Close Create_Proj_Depend;
2837: --------------------------------- End of Step 2
2895: -- ,x_msg_count => x_msg_count
2896: -- ,x_msg_data => x_msg_data
2897: );
2898:
2899: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2900: x_msg_count := FND_MSG_PUB.count_msg;
2901: /* IF x_msg_count = 1 then
2902: pa_interface_utils_pub.get_messages
2903: (p_encoded => FND_API.G_TRUE,
2899: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2900: x_msg_count := FND_MSG_PUB.count_msg;
2901: /* IF x_msg_count = 1 then
2902: pa_interface_utils_pub.get_messages
2903: (p_encoded => FND_API.G_TRUE,
2904: p_msg_index => 1,
2905: p_msg_count => x_msg_count,
2906: p_msg_data => x_msg_data,
2907: p_data => l_data,
2908: p_msg_index_out => l_msg_index_out);
2909: x_msg_data := l_data;
2910: END IF; */
2911: Close Update_Publ_Ver;
2912: Raise FND_API.G_EXC_ERROR;
2913: END IF;
2914:
2915: /*
2916: PA_RELATIONSHIP_PVT.Delete_Relationship (
2920: ,x_msg_count => x_msg_count
2921: ,x_msg_data => x_msg_data
2922: );
2923:
2924: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2925: x_msg_count := FND_MSG_PUB.count_msg;
2926: Close Update_Publ_Ver;
2927: Raise FND_API.G_EXC_ERROR;
2928: END IF;
2923:
2924: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2925: x_msg_count := FND_MSG_PUB.count_msg;
2926: Close Update_Publ_Ver;
2927: Raise FND_API.G_EXC_ERROR;
2928: END IF;
2929: */
2930:
2931: END LOOP;
2946: ,x_msg_count => x_msg_count
2947: ,x_msg_data => x_msg_data
2948: );
2949:
2950: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2951: x_msg_count := FND_MSG_PUB.count_msg;
2952: IF x_msg_count = 1 Then
2953: pa_interface_utils_pub.get_messages
2954: (p_encoded => FND_API.G_TRUE,
2950: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2951: x_msg_count := FND_MSG_PUB.count_msg;
2952: IF x_msg_count = 1 Then
2953: pa_interface_utils_pub.get_messages
2954: (p_encoded => FND_API.G_TRUE,
2955: p_msg_index => 1,
2956: p_msg_count => x_msg_count,
2957: p_msg_data => x_msg_data,
2958: p_data => l_data,
2958: p_data => l_data,
2959: p_msg_index_out => l_msg_index_out);
2960: x_msg_data := l_data;
2961: END IF;
2962: Raise FND_API.G_EXC_ERROR;
2963: END IF;
2964: End Loop;
2965: Close Delete_Publ_Ver;
2966: */
2964: End Loop;
2965: Close Delete_Publ_Ver;
2966: */
2967: EXCEPTION -- 4537865
2968: WHEN FND_API.G_EXC_ERROR THEN
2969: x_msg_count := FND_MSG_PUB.count_msg;
2970: x_return_status := FND_API.G_RET_STS_ERROR;
2971: WHEN OTHERS THEN
2972: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2966: */
2967: EXCEPTION -- 4537865
2968: WHEN FND_API.G_EXC_ERROR THEN
2969: x_msg_count := FND_MSG_PUB.count_msg;
2970: x_return_status := FND_API.G_RET_STS_ERROR;
2971: WHEN OTHERS THEN
2972: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2973: x_msg_count := FND_MSG_PUB.count_msg;
2974: --put message
2968: WHEN FND_API.G_EXC_ERROR THEN
2969: x_msg_count := FND_MSG_PUB.count_msg;
2970: x_return_status := FND_API.G_RET_STS_ERROR;
2971: WHEN OTHERS THEN
2972: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2973: x_msg_count := FND_MSG_PUB.count_msg;
2974: --put message
2975: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIPS_PVT',
2976: p_procedure_name => 'Copy_Intra_Dependency',
2978: RAISE;
2979:
2980: End Publish_Inter_Proj_Dep;
2981: --
2982: PROCEDURE Insert_Subproject_Association( p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2983: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2984: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2985: ,p_validation_level IN VARCHAR2 := 100
2986: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2979:
2980: End Publish_Inter_Proj_Dep;
2981: --
2982: PROCEDURE Insert_Subproject_Association( p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2983: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2984: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2985: ,p_validation_level IN VARCHAR2 := 100
2986: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2987: ,p_debug_mode IN VARCHAR2 := 'N'
2980: End Publish_Inter_Proj_Dep;
2981: --
2982: PROCEDURE Insert_Subproject_Association( p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2983: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2984: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2985: ,p_validation_level IN VARCHAR2 := 100
2986: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2987: ,p_debug_mode IN VARCHAR2 := 'N'
2988: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3046: IF (p_debug_mode = 'Y') THEN
3047: pa_debug.debug('PA_RELATIONSHIP_PVT.Insert_Subproject_Association begin');
3048: END IF;
3049: --
3050: IF (p_commit = FND_API.G_TRUE) THEN
3051: savepoint Insert_Subproject_Association;
3052: END IF;
3053: --
3054: IF (p_debug_mode = 'Y') THEN
3060: END IF;
3061: --
3062: /* Creating linking task in the pa_proj_elements table*/
3063: PA_TASK_PUB1.CREATE_TASK
3064: ( p_validate_only => FND_API.G_FALSE
3065: ,p_object_type => 'PA_TASKS'
3066: ,p_project_id => p_src_proj_id
3067: ,p_structure_id => p_src_struc_elem_id --Proj_element_id of the parent structure
3068: ,p_ref_task_id => p_src_task_elem_id --proj_element_id of the ref task
3076: ,x_task_id => x_lnk_task_elem_id
3077: ,x_return_status => x_return_status
3078: ,x_msg_count => x_msg_count
3079: ,x_msg_data => x_msg_data);
3080: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3081: x_msg_count := FND_MSG_PUB.count_msg;
3082: IF x_msg_count = 1 THEN
3083: pa_interface_utils_pub.get_messages
3084: (p_encoded => FND_API.G_TRUE,
3080: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3081: x_msg_count := FND_MSG_PUB.count_msg;
3082: IF x_msg_count = 1 THEN
3083: pa_interface_utils_pub.get_messages
3084: (p_encoded => FND_API.G_TRUE,
3085: p_msg_index => 1,
3086: p_msg_count => x_msg_count,
3087: p_msg_data => x_msg_data,
3088: p_data => l_data,
3088: p_data => l_data,
3089: p_msg_index_out => l_msg_index_out);
3090: x_msg_data := l_data;
3091: END IF;
3092: RAISE FND_API.G_EXC_ERROR;
3093: END IF;
3094: --
3095: --Added the following code
3096: -- Modified from substr(x_lnk_task_elem_id,-1,1) to x_lnk_task_elem_id for bug #4480013
3097: UPDATE PA_PROJ_ELEMENTS
3098: SET ELEMENT_NUMBER = substr(p_lnk_task_name_number,0,25)||x_lnk_task_elem_id
3099: WHERE PROJ_ELEMENT_ID = x_lnk_task_elem_id;
3100: IF SQL%NOTFOUND THEN
3101: x_return_status:=FND_API.G_RET_STS_ERROR;
3102: END IF;
3103: --
3104: IF (p_debug_mode = 'Y') THEN
3105: pa_debug.debug('After Call To PA_TASK_PUB1.CREATE_TASK Return Status => '||x_return_status);
3111: /* Creating linking task in the pa_proj_element_versions and pa_object_relationships table */
3112: /* This API call create task in pa_proj_element_versions and creates relationship between */
3113: /* linking task and its parent task in the pa_object_relationships table */
3114: PA_TASK_PUB1.CREATE_TASK_VERSION
3115: ( p_validate_only => FND_API.G_FALSE
3116: ,p_validation_level => 0
3117: ,p_ref_task_version_id => p_src_task_elem_ver_id
3118: ,p_peer_or_sub => 'SUB'
3119: ,p_task_id => x_lnk_task_elem_id
3120: ,x_task_version_id => x_lnk_task_elem_ver_id
3121: ,x_return_status => x_return_status
3122: ,x_msg_count => x_msg_count
3123: ,x_msg_data => x_msg_data);
3124: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3125: x_msg_count := FND_MSG_PUB.count_msg;
3126: IF x_msg_count = 1 THEN
3127: pa_interface_utils_pub.get_messages
3128: (p_encoded => FND_API.G_TRUE,
3124: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3125: x_msg_count := FND_MSG_PUB.count_msg;
3126: IF x_msg_count = 1 THEN
3127: pa_interface_utils_pub.get_messages
3128: (p_encoded => FND_API.G_TRUE,
3129: p_msg_index => 1,
3130: p_msg_count => x_msg_count,
3131: p_msg_data => x_msg_data,
3132: p_data => l_data,
3132: p_data => l_data,
3133: p_msg_index_out => l_msg_index_out);
3134: x_msg_data := l_data;
3135: END IF;
3136: RAISE FND_API.G_EXC_ERROR;
3137: END IF;
3138: --
3139: IF (p_debug_mode = 'Y') THEN
3140: pa_debug.debug('After Call To PA_TASK_PUB1.CREATE_TASK_VERSION Return Status => '||x_return_status);
3200:
3201: /* Create recrod into work pa_proj_elem_ver_schedule table for workplan structure only*/
3202: IF p_src_struc_wp_or_fin = 'WORKPLAN' THEN
3203: PA_TASK_PUB1.Create_Schedule_Version
3204: ( p_validate_only =>FND_API.G_FALSE
3205: ,p_element_version_id =>x_lnk_task_elem_ver_id --task version of linking task
3206: ,p_scheduled_start_date =>l_scheduled_start_date
3207: ,p_scheduled_end_date =>l_scheduled_finish_date
3208: ,x_pev_schedule_id =>x_pev_schedule_id
3213: IF (p_debug_mode = 'Y') THEN
3214: pa_debug.debug('new workplan attr for task after call to PA_TASK_PUB1.Create_Schedule_Version=> '||x_pev_schedule_id);
3215: END IF;
3216: --
3217: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3218: x_msg_count := FND_MSG_PUB.count_msg;
3219: IF x_msg_count = 1 THEN
3220: pa_interface_utils_pub.get_messages
3221: (p_encoded => FND_API.G_TRUE,
3217: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3218: x_msg_count := FND_MSG_PUB.count_msg;
3219: IF x_msg_count = 1 THEN
3220: pa_interface_utils_pub.get_messages
3221: (p_encoded => FND_API.G_TRUE,
3222: p_msg_index => 1,
3223: p_msg_count => x_msg_count,
3224: p_msg_data => x_msg_data,
3225: p_data => l_data,
3225: p_data => l_data,
3226: p_msg_index_out => l_msg_index_out);
3227: x_msg_data := l_data;
3228: END IF;
3229: RAISE FND_API.G_EXC_ERROR;
3230: END IF;
3231: END IF;
3232: --
3233: IF (p_debug_mode = 'Y') THEN
3265: -- ,p_comments => null
3266: ,p_comments => p_comment --Bug No 3668113
3267: ,p_status_code => null
3268: );
3269: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3270: x_msg_count := FND_MSG_PUB.count_msg;
3271: IF x_msg_count = 1 THEN
3272: pa_interface_utils_pub.get_messages
3273: (p_encoded => FND_API.G_TRUE,
3269: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3270: x_msg_count := FND_MSG_PUB.count_msg;
3271: IF x_msg_count = 1 THEN
3272: pa_interface_utils_pub.get_messages
3273: (p_encoded => FND_API.G_TRUE,
3274: p_msg_index => 1,
3275: p_msg_count => x_msg_count,
3276: p_msg_data => x_msg_data,
3277: p_data => l_data,
3277: p_data => l_data,
3278: p_msg_index_out => l_msg_index_out);
3279: x_msg_data := l_data;
3280: END IF;
3281: RAISE FND_API.G_EXC_ERROR;
3282: END IF;
3283: --
3284: /* 4541039
3285: --bug 4238036
3302: x_msg_count => x_msg_count,
3303: x_msg_data => x_msg_data
3304: );
3305:
3306: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3307: x_msg_count := FND_MSG_PUB.count_msg;
3308: IF x_msg_count = 1 THEN
3309: pa_interface_utils_pub.get_messages
3310: (p_encoded => FND_API.G_TRUE,
3306: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3307: x_msg_count := FND_MSG_PUB.count_msg;
3308: IF x_msg_count = 1 THEN
3309: pa_interface_utils_pub.get_messages
3310: (p_encoded => FND_API.G_TRUE,
3311: p_msg_index => 1,
3312: p_msg_count => x_msg_count,
3313: p_msg_data => x_msg_data,
3314: p_data => l_data,
3314: p_data => l_data,
3315: p_msg_index_out => l_msg_index_out);
3316: x_msg_data := l_data;
3317: END IF;
3318: RAISE FND_API.G_EXC_ERROR;
3319: END IF;
3320: --bug 4296915
3321: END IF;
3322: CLOSE check_child_pub;
3346:
3347: -- Bug # 4329284.
3348:
3349: PA_UTILS.ADD_MESSAGE('PA','PA_CRT_SUBPROJ_VAL_FAIL','PROJ',l_proj_name,'PROG',l_prog_name); -- Bug # 4329284.
3350: RAISE FND_API.G_EXC_ERROR;
3351: END IF;
3352: IF (p_debug_mode = 'Y') THEN
3353: pa_debug.debug('Return Status PA_RELATIONSHIP_PUB.UPDATE_PROGRAM_GROUPS=> '||l_upd_prog_grp_status);
3354: END IF;
3356: EXCEPTION
3357:
3358: -- Begin fix for Bug # 4485908.
3359:
3360: WHEN FND_API.G_EXC_ERROR THEN
3361:
3362: RAISE FND_API.G_EXC_ERROR;
3363:
3364: -- End fix for Bug # 4485908.
3358: -- Begin fix for Bug # 4485908.
3359:
3360: WHEN FND_API.G_EXC_ERROR THEN
3361:
3362: RAISE FND_API.G_EXC_ERROR;
3363:
3364: -- End fix for Bug # 4485908.
3365:
3366: WHEN OTHERS THEN
3366: WHEN OTHERS THEN
3367: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
3368: p_procedure_name => 'Insert_Subproject_Association',
3369: p_error_text => SUBSTRB('PA_RELATIONSHIP_PUB.UPDATE_PROGRAM_GROUPS:'||SQLERRM,1,240));
3370: RAISE FND_API.G_EXC_ERROR;
3371: END;
3372: --
3373: IF (p_debug_mode = 'Y') THEN
3374: pa_debug.debug('After Call To PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Return Status => '||x_return_status);
3373: IF (p_debug_mode = 'Y') THEN
3374: pa_debug.debug('After Call To PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Return Status => '||x_return_status);
3375: END IF;
3376: --
3377: x_return_status := FND_API.G_RET_STS_SUCCESS;
3378: --
3379: IF (p_commit = FND_API.G_TRUE) THEN
3380: COMMIT;
3381: END IF;
3375: END IF;
3376: --
3377: x_return_status := FND_API.G_RET_STS_SUCCESS;
3378: --
3379: IF (p_commit = FND_API.G_TRUE) THEN
3380: COMMIT;
3381: END IF;
3382: --
3383: IF (p_debug_mode = 'Y') THEN
3384: pa_debug.debug('PA_RELATIONSHIP_PVT.Insert_Subproject_Association END');
3385: END IF;
3386: --
3387: EXCEPTION
3388: WHEN FND_API.G_EXC_ERROR THEN
3389: IF (p_commit = FND_API.G_TRUE) THEN
3390: ROLLBACK to Insert_Subproject_Association;
3391: END IF;
3392: -- RESET OUT PARAMS 4537865
3385: END IF;
3386: --
3387: EXCEPTION
3388: WHEN FND_API.G_EXC_ERROR THEN
3389: IF (p_commit = FND_API.G_TRUE) THEN
3390: ROLLBACK to Insert_Subproject_Association;
3391: END IF;
3392: -- RESET OUT PARAMS 4537865
3393: x_lnk_task_elem_id := NULL ;
3395: x_object_relationship_id := NULL ;
3396: x_pev_schedule_id := NULL;
3397:
3398: x_msg_count := FND_MSG_PUB.count_msg;
3399: x_return_status := FND_API.G_RET_STS_ERROR;
3400: WHEN OTHERS THEN
3401: IF (p_commit = FND_API.G_TRUE) THEN
3402: ROLLBACK to Insert_Subproject_Association;
3403: END IF;
3397:
3398: x_msg_count := FND_MSG_PUB.count_msg;
3399: x_return_status := FND_API.G_RET_STS_ERROR;
3400: WHEN OTHERS THEN
3401: IF (p_commit = FND_API.G_TRUE) THEN
3402: ROLLBACK to Insert_Subproject_Association;
3403: END IF;
3404: -- RESET OUT PARAMS 4537865
3405: x_lnk_task_elem_id := NULL ;
3406: x_lnk_task_elem_ver_id := NULL ;
3407: x_object_relationship_id := NULL ;
3408: x_pev_schedule_id := NULL;
3409:
3410: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3411: x_msg_count := FND_MSG_PUB.count_msg;
3412: --put message
3413: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
3414: p_procedure_name => 'Insert_Subproject_Association',
3423: -- Pre-reqs : None
3424: -- Return Value : N/A
3425: -- Parameters
3426: -- p_api_version IN NUMBER :=1.0
3427: -- p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
3428: -- p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
3429: -- p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
3430: -- p_calling_module IN VARCHAR2 :='SELF_SERVICE'
3431: -- p_commit IN VARCHAR2 :=FND_API.G_FALSE
3424: -- Return Value : N/A
3425: -- Parameters
3426: -- p_api_version IN NUMBER :=1.0
3427: -- p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
3428: -- p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
3429: -- p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
3430: -- p_calling_module IN VARCHAR2 :='SELF_SERVICE'
3431: -- p_commit IN VARCHAR2 :=FND_API.G_FALSE
3432: -- p_debug_mode IN VARCHAR2 :='N'
3425: -- Parameters
3426: -- p_api_version IN NUMBER :=1.0
3427: -- p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
3428: -- p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
3429: -- p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
3430: -- p_calling_module IN VARCHAR2 :='SELF_SERVICE'
3431: -- p_commit IN VARCHAR2 :=FND_API.G_FALSE
3432: -- p_debug_mode IN VARCHAR2 :='N'
3433: -- p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3427: -- p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
3428: -- p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
3429: -- p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
3430: -- p_calling_module IN VARCHAR2 :='SELF_SERVICE'
3431: -- p_commit IN VARCHAR2 :=FND_API.G_FALSE
3432: -- p_debug_mode IN VARCHAR2 :='N'
3433: -- p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3434: -- p_src_proj_id IN pa_projects_all.project_id%type
3435: -- p_task_ver_id IN pa_proj_element_versions.element_version_id%type
3450: -- 03-DEC-2008 rkartha Bug#7427161: Modified the declaration of l_task_name with PA_PROJ_ELEMENTS.NAME%TYPE
3451: -- so as to avoid the numeric or value error.
3452: --
3453: Procedure Create_Subproject_Association(p_api_version IN NUMBER :=1.0,
3454: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
3455: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
3456: -- p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
3457: p_validation_level IN VARCHAR2 := 100,
3458: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
3451: -- so as to avoid the numeric or value error.
3452: --
3453: Procedure Create_Subproject_Association(p_api_version IN NUMBER :=1.0,
3454: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
3455: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
3456: -- p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
3457: p_validation_level IN VARCHAR2 := 100,
3458: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
3459: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
3452: --
3453: Procedure Create_Subproject_Association(p_api_version IN NUMBER :=1.0,
3454: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
3455: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
3456: -- p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
3457: p_validation_level IN VARCHAR2 := 100,
3458: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
3459: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
3460: p_debug_mode IN VARCHAR2 :='N',
3455: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
3456: -- p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
3457: p_validation_level IN VARCHAR2 := 100,
3458: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
3459: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
3460: p_debug_mode IN VARCHAR2 :='N',
3461: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
3462: p_src_proj_id IN pa_projects_all.project_id%type,
3463: p_task_ver_id IN pa_proj_element_versions.element_version_id%type,
3552: IF (p_debug_mode = 'Y') THEN
3553: pa_debug.debug('PA_RELATIONSHIP_PVT.Create_Subproject_Association begin');
3554: END IF;
3555: --
3556: IF (p_commit = FND_API.G_TRUE) THEN
3557: savepoint Create_Subproject_Ass_pvt;
3558: END IF;
3559: --
3560: IF (p_debug_mode = 'Y') THEN
3649: --Bug 3912783:
3650: IF (PA_RELATIONSHIP_UTILS.Check_proj_currency_identical(p_src_proj_id,p_dest_proj_id) = 'N') THEN
3651: -- PA_UTILS.ADD_MESSAGE('PA','PA_PS_LINK_DIFF_PRJ_CURR','PROJ',l_proj_name,'TASK',l_task_name,'PROG',l_prog_name); -- Bug # 4329284.
3652: PA_UTILS.ADD_MESSAGE('PA','PA_PS_LINK_DIFF_PRJ_CURR','PROJ',l_proj_name,'PROG',l_prog_name); -- Bug # 4871876.
3653: RAISE FND_API.G_EXC_ERROR;
3654: END IF;
3655: --end bug 3912783
3656:
3657: --
3749: l_time_phase2 := PA_FIN_PLAN_UTILS.Get_wp_bv_time_phase(l_dest_wp_str_ver_id);
3750: IF (l_time_phase1 <> l_time_phase2) THEN
3751: -- PA_UTILS.ADD_MESSAGE('PA','PA_PS_LINK_DIFF_TIME_PHASE','PROJ',l_proj_name,'TASK',l_task_name,'PROG',l_prog_name); -- Bug # 4329284.
3752: PA_UTILS.ADD_MESSAGE('PA','PA_PS_LINK_DIFF_TIME_PHASE','PROJ',l_proj_name,'PROG',l_prog_name); -- Bug # 4871876.
3753: RAISE FND_API.G_EXC_ERROR;
3754: END IF;
3755: END IF;
3756: END IF;
3757: --end bug 4272730
3772: IF l_src_period_duration.pa_period_set_name <> l_dest_period_duration.pa_period_set_name OR
3773: l_src_period_duration.pa_period_type <> l_dest_period_duration.pa_period_type
3774: THEN
3775: PA_UTILS.ADD_MESSAGE('PA','PA_PS_LINK_DIFF_PA_CAL','PROJ',l_proj_name,'PROG',l_prog_name); -- Bug # 4329284.
3776: RAISE FND_API.G_EXC_ERROR;
3777: END IF;
3778:
3779: ELSIF l_time_phase1 = 'G' AND l_time_phase2 = 'G'
3780: THEN
3781: IF l_src_period_duration.gl_period_set_name <> l_dest_period_duration.gl_period_set_name OR
3782: l_src_period_duration.accounted_period_type <> l_dest_period_duration.accounted_period_type
3783: THEN
3784: PA_UTILS.ADD_MESSAGE('PA','PA_PS_LINK_DIFF_GL_CAL','PROJ',l_proj_name,'PROG',l_prog_name); -- Bug # 4329284.
3785: RAISE FND_API.G_EXC_ERROR;
3786: END IF;
3787: END IF;
3788: END IF;
3789: --end bug 4297370
3822: PA_UTILS.ADD_MESSAGE('PA','PA_CRT_SUBPROJ_VAL_FAIL','PROJ',l_proj_name,'PROG',l_prog_name); -- Bug # 4329284.
3823:
3824: end if; -- Fix for Bug # 4256435.
3825:
3826: RAISE FND_API.G_EXC_ERROR;
3827: END IF;
3828: END IF;
3829: --end bug 3983361
3830: */
3833: IF l_src_str_wp_enable_fl = 'Y' AND l_dest_wp_str_ver_id IS NOT NULL THEN
3834: l_create_relationship_ok := PA_RELATIONSHIP_UTILS.CREATE_SUB_PROJ_ASSO_OK(p_task_ver_id,p_dest_proj_id,'WORKPLAN');
3835: IF l_create_relationship_ok = 'N' THEN
3836: PA_UTILS.ADD_MESSAGE('PA','PA_CRT_SUBPROJ_VAL_FAIL','PROJ',l_proj_name,'PROG',l_prog_name); -- Bug # 4329284.
3837: RAISE FND_API.G_EXC_ERROR;
3838: END IF;
3839: END IF;
3840:
3841: IF l_src_str_fin_enable_fl = 'Y' AND l_dest_fin_str_ver_id IS NOT NULL AND l_src_task_financial_flag='Y' THEN
3841: IF l_src_str_fin_enable_fl = 'Y' AND l_dest_fin_str_ver_id IS NOT NULL AND l_src_task_financial_flag='Y' THEN
3842: l_create_relationship_ok := PA_RELATIONSHIP_UTILS.CREATE_SUB_PROJ_ASSO_OK(p_task_ver_id,p_dest_proj_id,'FINANCIAL');
3843: IF l_create_relationship_ok = 'N' THEN
3844: PA_UTILS.ADD_MESSAGE('PA','PA_CRT_SUBPROJ_VAL_FAIL','PROJ',l_proj_name,'PROG',l_prog_name); -- Bug # 4329284.
3845: RAISE FND_API.G_EXC_ERROR;
3846: END IF;
3847: END IF;
3848: -- 4473103 : End
3849:
3860: /* --bug 3983361
3861: IF p_validation_level > 0 THEN
3862: IF PA_RELATIONSHIP_UTILS.CREATE_SUB_PROJ_ASSO_OK(p_task_ver_id,p_dest_proj_id) = 'N' THEN --SMukka
3863: PA_UTILS.ADD_MESSAGE('PA','PA_CRT_SUBPROJ_VAL_FAIL','PROJ',l_proj_name,'PROG',l_prog_name); -- Bug # 4329284.
3864: RAISE FND_API.G_EXC_ERROR;
3865: END IF;
3866: END IF;
3867: */
3868: IF (p_debug_mode = 'Y') THEN
3897: ,x_msg_count => x_msg_count
3898: ,x_msg_data => x_msg_data
3899: );
3900: --
3901: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3902: x_msg_count := FND_MSG_PUB.count_msg;
3903: IF x_msg_count = 1 then
3904: pa_interface_utils_pub.get_messages
3905: (p_encoded => FND_API.G_TRUE,
3901: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3902: x_msg_count := FND_MSG_PUB.count_msg;
3903: IF x_msg_count = 1 then
3904: pa_interface_utils_pub.get_messages
3905: (p_encoded => FND_API.G_TRUE,
3906: p_msg_index => 1,
3907: p_msg_count => x_msg_count,
3908: p_msg_data => x_msg_data,
3909: p_data => l_data,
3909: p_data => l_data,
3910: p_msg_index_out => l_msg_index_out);
3911: x_msg_data := l_data;
3912: END IF;
3913: raise FND_API.G_EXC_ERROR;
3914: END IF;
3915: --
3916: /* For Financial */
3917: -- IF l_src_task_financial_flag='Y' THEN --No need to check for fully shared project
3927: /* --bug 3983361
3928: IF p_validation_level > 0 THEN
3929: IF PA_RELATIONSHIP_UTILS.CREATE_SUB_PROJ_ASSO_OK(p_task_ver_id,p_dest_proj_id, 'FINANCIAL') = 'N' THEN --SMukka
3930: PA_UTILS.ADD_MESSAGE('PA','PA_CRT_SUBPROJ_VAL_FAIL','PROJ',l_proj_name,'PROG',l_prog_name); -- Bug # 4329284.
3931: RAISE FND_API.G_EXC_ERROR;
3932: END IF;
3933: END IF;
3934: */
3935: IF (p_debug_mode = 'Y') THEN
3965: ,x_msg_count => x_msg_count
3966: ,x_msg_data => x_msg_data
3967: );
3968: --
3969: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3970: x_msg_count := FND_MSG_PUB.count_msg;
3971: IF x_msg_count = 1 then
3972: pa_interface_utils_pub.get_messages
3973: (p_encoded => FND_API.G_TRUE,
3969: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3970: x_msg_count := FND_MSG_PUB.count_msg;
3971: IF x_msg_count = 1 then
3972: pa_interface_utils_pub.get_messages
3973: (p_encoded => FND_API.G_TRUE,
3974: p_msg_index => 1,
3975: p_msg_count => x_msg_count,
3976: p_msg_data => x_msg_data,
3977: p_data => l_data,
3977: p_data => l_data,
3978: p_msg_index_out => l_msg_index_out);
3979: x_msg_data := l_data;
3980: END IF;
3981: raise FND_API.G_EXC_ERROR;
3982: END IF;
3983: --
3984: --END IF; --financial task flag is Y
3985: ELSE
3994: /* --bug 3983361
3995: IF p_validation_level > 0 THEN
3996: IF PA_RELATIONSHIP_UTILS.CREATE_SUB_PROJ_ASSO_OK(p_task_ver_id,p_dest_proj_id) = 'N' THEN --SMukka
3997: PA_UTILS.ADD_MESSAGE('PA','PA_CRT_SUBPROJ_VAL_FAIL','PROJ',l_proj_name,'PROG',l_prog_name); -- Bug # 4329284.
3998: RAISE FND_API.G_EXC_ERROR;
3999: END IF;
4000: END IF;
4001: */
4002: IF (p_debug_mode = 'Y') THEN
4032: ,x_msg_count => x_msg_count
4033: ,x_msg_data => x_msg_data
4034: );
4035: --
4036: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4037: x_msg_count := FND_MSG_PUB.count_msg;
4038: IF x_msg_count = 1 then
4039: pa_interface_utils_pub.get_messages
4040: (p_encoded => FND_API.G_TRUE,
4036: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4037: x_msg_count := FND_MSG_PUB.count_msg;
4038: IF x_msg_count = 1 then
4039: pa_interface_utils_pub.get_messages
4040: (p_encoded => FND_API.G_TRUE,
4041: p_msg_index => 1,
4042: p_msg_count => x_msg_count,
4043: p_msg_data => x_msg_data,
4044: p_data => l_data,
4044: p_data => l_data,
4045: p_msg_index_out => l_msg_index_out);
4046: x_msg_data := l_data;
4047: END IF;
4048: raise FND_API.G_EXC_ERROR;
4049: END IF;
4050: --
4051: END IF; --l_dest_wp_str_ver_id is not null and l_src_str_wp_enable_fl is Y
4052: IF l_dest_fin_str_ver_id IS NOT NULL AND
4063: /* --bug 3983361
4064: IF p_validation_level > 0 THEN
4065: IF PA_RELATIONSHIP_UTILS.CREATE_SUB_PROJ_ASSO_OK(p_task_ver_id,p_dest_proj_id, 'FINANCIAL') = 'N' THEN --SMukka
4066: PA_UTILS.ADD_MESSAGE('PA','PA_CRT_SUBPROJ_VAL_FAIL','PROJ',l_proj_name,'PROG',l_prog_name); -- Bug # 4329284.
4067: RAISE FND_API.G_EXC_ERROR;
4068: END IF;
4069: END IF;
4070: */
4071: IF (p_debug_mode = 'Y') THEN
4100: ,x_return_status => x_return_status
4101: ,x_msg_count => x_msg_count
4102: ,x_msg_data => x_msg_data
4103: );
4104: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4105: x_msg_count := FND_MSG_PUB.count_msg;
4106: IF x_msg_count = 1 then
4107: pa_interface_utils_pub.get_messages
4108: (p_encoded => FND_API.G_TRUE,
4104: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4105: x_msg_count := FND_MSG_PUB.count_msg;
4106: IF x_msg_count = 1 then
4107: pa_interface_utils_pub.get_messages
4108: (p_encoded => FND_API.G_TRUE,
4109: p_msg_index => 1,
4110: p_msg_count => x_msg_count,
4111: p_msg_data => x_msg_data,
4112: p_data => l_data,
4112: p_data => l_data,
4113: p_msg_index_out => l_msg_index_out);
4114: x_msg_data := l_data;
4115: END IF;
4116: raise FND_API.G_EXC_ERROR;
4117: END IF;
4118: END IF; --l_dest_fin_str_ver_id is not null and l_src_task_fin_flag is Y and l_src_str_fin_enable_fl is y
4119: END IF; --src and dest project sharing code are SHARE_FULL
4120: --
4124: pa_debug.debug('After call to ISPA Object_Relationship_Id => '||x_object_relationship_id);
4125: pa_debug.debug('After call to ISPA WP Attr schedule Id => '||l_pev_schedule_id);
4126: END IF;
4127: --
4128: IF (p_commit = FND_API.G_TRUE) THEN
4129: COMMIT;
4130: END IF;
4131: --
4132:
4216: ,x_return_status => x_return_status
4217: ,x_msg_count => x_msg_count
4218: ,x_msg_data => x_msg_data);
4219:
4220: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
4221: x_msg_count := FND_MSG_PUB.count_msg;
4222: IF x_msg_count = 1 then
4223: pa_interface_utils_pub.get_messages
4224: (p_encoded => FND_API.G_TRUE,
4220: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
4221: x_msg_count := FND_MSG_PUB.count_msg;
4222: IF x_msg_count = 1 then
4223: pa_interface_utils_pub.get_messages
4224: (p_encoded => FND_API.G_TRUE,
4225: p_msg_index => 1,
4226: p_msg_count => x_msg_count,
4227: p_msg_data => x_msg_data,
4228: p_data => l_data,
4228: p_data => l_data,
4229: p_msg_index_out => l_msg_index_out);
4230: x_msg_data := l_data;
4231: END IF;
4232: raise FND_API.G_EXC_ERROR;
4233: end if;
4234:
4235: END IF;
4236: --bug 4370533 --Issue #3
4234:
4235: END IF;
4236: --bug 4370533 --Issue #3
4237:
4238: x_return_status := FND_API.G_RET_STS_SUCCESS;
4239: --
4240: IF (p_debug_mode = 'Y') THEN
4241: pa_debug.debug('PA_RELATIONSHIP_PVT.Create_Subproject_Association end');
4242: END IF;
4241: pa_debug.debug('PA_RELATIONSHIP_PVT.Create_Subproject_Association end');
4242: END IF;
4243: --
4244: EXCEPTION
4245: WHEN FND_API.G_EXC_ERROR THEN
4246: IF (p_commit = FND_API.G_TRUE) THEN
4247: ROLLBACK to Create_Subproject_Ass_pvt;
4248: END IF;
4249: x_msg_count := FND_MSG_PUB.count_msg;
4242: END IF;
4243: --
4244: EXCEPTION
4245: WHEN FND_API.G_EXC_ERROR THEN
4246: IF (p_commit = FND_API.G_TRUE) THEN
4247: ROLLBACK to Create_Subproject_Ass_pvt;
4248: END IF;
4249: x_msg_count := FND_MSG_PUB.count_msg;
4250: x_return_status := FND_API.G_RET_STS_ERROR;
4246: IF (p_commit = FND_API.G_TRUE) THEN
4247: ROLLBACK to Create_Subproject_Ass_pvt;
4248: END IF;
4249: x_msg_count := FND_MSG_PUB.count_msg;
4250: x_return_status := FND_API.G_RET_STS_ERROR;
4251: WHEN OTHERS THEN
4252: IF (p_commit = FND_API.G_TRUE) THEN
4253: ROLLBACK to Create_Subproject_Ass_pvt;
4254: END IF;
4248: END IF;
4249: x_msg_count := FND_MSG_PUB.count_msg;
4250: x_return_status := FND_API.G_RET_STS_ERROR;
4251: WHEN OTHERS THEN
4252: IF (p_commit = FND_API.G_TRUE) THEN
4253: ROLLBACK to Create_Subproject_Ass_pvt;
4254: END IF;
4255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4256: x_msg_count := FND_MSG_PUB.count_msg;
4251: WHEN OTHERS THEN
4252: IF (p_commit = FND_API.G_TRUE) THEN
4253: ROLLBACK to Create_Subproject_Ass_pvt;
4254: END IF;
4255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4256: x_msg_count := FND_MSG_PUB.count_msg;
4257: --put message
4258: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
4259: p_procedure_name => 'Create_Subproject_Association',
4268: -- Pre-reqs : None
4269: -- Return Value : N/A
4270: -- Parameters
4271: -- p_api_version IN NUMBER := 1.0
4272: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
4273: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
4274: -- p_validation_level IN VARCHAR2 := 100
4275: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
4276: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4269: -- Return Value : N/A
4270: -- Parameters
4271: -- p_api_version IN NUMBER := 1.0
4272: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
4273: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
4274: -- p_validation_level IN VARCHAR2 := 100
4275: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
4276: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4277: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
4273: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
4274: -- p_validation_level IN VARCHAR2 := 100
4275: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
4276: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4277: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
4278: -- p_debug_mode IN VARCHAR2 := 'N'
4279: -- p_object_relationship_id IN NUMBER
4280: -- p_record_version_number IN NUMBER
4281: -- p_comment IN VARCHAR2
4291: -- FPM bug 3450684
4292: --
4293: --
4294: Procedure Update_Subproject_Association(p_api_version IN NUMBER := 1.0,
4295: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
4296: p_validate_only IN VARCHAR2 := FND_API.G_TRUE,
4297: p_validation_level IN VARCHAR2 := 100,
4298: p_calling_module IN VARCHAR2 := 'SELF_SERVICE',
4299: p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
4292: --
4293: --
4294: Procedure Update_Subproject_Association(p_api_version IN NUMBER := 1.0,
4295: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
4296: p_validate_only IN VARCHAR2 := FND_API.G_TRUE,
4297: p_validation_level IN VARCHAR2 := 100,
4298: p_calling_module IN VARCHAR2 := 'SELF_SERVICE',
4299: p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
4300: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4296: p_validate_only IN VARCHAR2 := FND_API.G_TRUE,
4297: p_validation_level IN VARCHAR2 := 100,
4298: p_calling_module IN VARCHAR2 := 'SELF_SERVICE',
4299: p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
4300: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4301: p_debug_mode IN VARCHAR2 := 'N',
4302: p_object_relationship_id IN NUMBER,
4303: p_record_version_number IN NUMBER,
4304: p_comment IN VARCHAR2,
4334: IF (p_debug_mode = 'Y') THEN
4335: pa_debug.debug('PA_RELATIONSHIPS_PVT1.UPDATE_SUBPROJECT_ASSOCIATION Begin');
4336: END IF;
4337: --
4338: IF (p_commit = FND_API.G_TRUE) THEN
4339: savepoint update_subproject_ass_pvt;
4340: END IF;
4341: --
4342: IF (p_debug_mode = 'Y') THEN
4355: WHERE object_relationship_id = l_cur_obj_rel_rec.object_relationship_id -- p_object_relationship_id
4356: and record_version_number = l_cur_obj_rel_rec.record_version_number;
4357: IF SQL%NOTFOUND THEN
4358: fnd_message.set_name('PA','PA_RECORD_CHANGED');
4359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4360: RAISE FND_API.G_EXC_ERROR;
4361: END IF;
4362:
4363: end loop;
4356: and record_version_number = l_cur_obj_rel_rec.record_version_number;
4357: IF SQL%NOTFOUND THEN
4358: fnd_message.set_name('PA','PA_RECORD_CHANGED');
4359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4360: RAISE FND_API.G_EXC_ERROR;
4361: END IF;
4362:
4363: end loop;
4364:
4363: end loop;
4364:
4365: -- Bug # 5072032.
4366: --
4367: x_return_status := FND_API.G_RET_STS_SUCCESS;
4368: --
4369: IF (p_commit = FND_API.G_TRUE) THEN
4370: COMMIT;
4371: END IF;
4365: -- Bug # 5072032.
4366: --
4367: x_return_status := FND_API.G_RET_STS_SUCCESS;
4368: --
4369: IF (p_commit = FND_API.G_TRUE) THEN
4370: COMMIT;
4371: END IF;
4372: --
4373: IF (p_debug_mode = 'Y') THEN
4378: pa_debug.debug('PA_RELATIONSHIPS_PVT1.UPDATE_SUBPROJECT_ASSOCIATION END');
4379: END IF;
4380: --
4381: EXCEPTION
4382: WHEN FND_API.G_EXC_ERROR THEN
4383: IF (p_commit = FND_API.G_TRUE) THEN
4384: ROLLBACK to update_subproject_ass_pvt;
4385: END IF;
4386: x_msg_count := FND_MSG_PUB.count_msg;
4379: END IF;
4380: --
4381: EXCEPTION
4382: WHEN FND_API.G_EXC_ERROR THEN
4383: IF (p_commit = FND_API.G_TRUE) THEN
4384: ROLLBACK to update_subproject_ass_pvt;
4385: END IF;
4386: x_msg_count := FND_MSG_PUB.count_msg;
4387: x_return_status := FND_API.G_RET_STS_ERROR;
4383: IF (p_commit = FND_API.G_TRUE) THEN
4384: ROLLBACK to update_subproject_ass_pvt;
4385: END IF;
4386: x_msg_count := FND_MSG_PUB.count_msg;
4387: x_return_status := FND_API.G_RET_STS_ERROR;
4388: WHEN OTHERS THEN
4389: IF (p_commit = FND_API.G_TRUE) THEN
4390: ROLLBACK TO update_subproject_ass_pvt;
4391: END IF;
4385: END IF;
4386: x_msg_count := FND_MSG_PUB.count_msg;
4387: x_return_status := FND_API.G_RET_STS_ERROR;
4388: WHEN OTHERS THEN
4389: IF (p_commit = FND_API.G_TRUE) THEN
4390: ROLLBACK TO update_subproject_ass_pvt;
4391: END IF;
4392: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4393: FND_MSG_PUB.add_exc_msg(
4388: WHEN OTHERS THEN
4389: IF (p_commit = FND_API.G_TRUE) THEN
4390: ROLLBACK TO update_subproject_ass_pvt;
4391: END IF;
4392: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4393: FND_MSG_PUB.add_exc_msg(
4394: p_pkg_name => 'PA_RELATIONSHIPS_PVT1',
4395: p_procedure_name => 'update_subproject_association',
4396: p_error_text => SUBSTRB(SQLERRM,1,240));
4404: -- Type : Private Procedure
4405: -- Pre-reqs : None
4406: -- Return Value : N/A
4407: -- Parameters
4408: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
4409: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
4410: -- p_validation_level IN VARCHAR2 := 100
4411: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
4412: -- p_debug_mode IN VARCHAR2 := 'N'
4405: -- Pre-reqs : None
4406: -- Return Value : N/A
4407: -- Parameters
4408: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
4409: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
4410: -- p_validation_level IN VARCHAR2 := 100
4411: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
4412: -- p_debug_mode IN VARCHAR2 := 'N'
4413: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4424: --
4425: -- FPM bug 3450684
4426: --
4427: --
4428: PROCEDURE Delete_SubProject_Association(p_commit IN VARCHAR2 := FND_API.G_FALSE,
4429: p_validate_only IN VARCHAR2 := FND_API.G_TRUE,
4430: p_validation_level IN VARCHAR2 := 100,
4431: p_calling_module IN VARCHAR2 := 'SELF_SERVICE',
4432: p_debug_mode IN VARCHAR2 := 'N',
4425: -- FPM bug 3450684
4426: --
4427: --
4428: PROCEDURE Delete_SubProject_Association(p_commit IN VARCHAR2 := FND_API.G_FALSE,
4429: p_validate_only IN VARCHAR2 := FND_API.G_TRUE,
4430: p_validation_level IN VARCHAR2 := 100,
4431: p_calling_module IN VARCHAR2 := 'SELF_SERVICE',
4432: p_debug_mode IN VARCHAR2 := 'N',
4433: p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
4532: IF (p_debug_mode = 'Y') THEN
4533: pa_debug.debug('PA_RELATIONSHIP_PVT.Delete_SubProject_Association begin');
4534: END IF;
4535: --
4536: IF (p_commit = FND_API.G_TRUE) THEN
4537: savepoint delete_subproject_ass_pvt;
4538: END IF;
4539: --
4540: IF (p_debug_mode = 'Y') THEN
4547: IF get_lnk_obj_rel_attr%NOTFOUND THEN
4548: CLOSE get_lnk_obj_rel_attr;
4549: PA_UTILS.ADD_MESSAGE('PA','PA_NO_RECORD_VERSION_NUMBER');
4550: x_msg_data := 'PA_NO_RECORD_VERSION_NUMBER';
4551: RAISE FND_API.G_EXC_ERROR;
4552: END IF;
4553: --
4554: IF (p_debug_mode = 'Y') THEN
4555: pa_debug.debug('src lnk task ver id value for pass obj rel id=> '||get_lnk_obj_rel_attr_rec.object_id_from1);
4571: IF get_src_task_ver_id%NOTFOUND THEN
4572: CLOSE get_src_task_ver_id;
4573: PA_UTILS.ADD_MESSAGE('PA','PA_NO_RECORD_VERSION_NUMBER');
4574: x_msg_data := 'PA_NO_RECORD_VERSION_NUMBER';
4575: RAISE FND_API.G_EXC_ERROR;
4576: END IF;
4577: --
4578: IF (p_debug_mode = 'Y') THEN
4579: pa_debug.debug('the value of src task ver id for passed lnk task ver id=> '||get_src_task_ver_id_rec.object_id_from1);
4614: l_upd_prog_grp_status:=PA_RELATIONSHIP_PUB.UPDATE_PROGRAM_GROUPS(get_lnk_info_rec.lnk_obj_rel_id,
4615: 'DROP');
4616: IF l_upd_prog_grp_status < 0 THEN
4617: PA_UTILS.ADD_MESSAGE('PA','PA_DEL_SUBPROJ_VAL_FAIL');
4618: RAISE FND_API.G_EXC_ERROR;
4619: END IF;
4620: IF (p_debug_mode = 'Y') THEN
4621: pa_debug.debug('Return Status PA_RELATIONSHIP_PUB.UPDATE_PROGRAM_GROUPS=> '||l_upd_prog_grp_status);
4622: END IF;
4623: EXCEPTION
4624:
4625: -- Begin fix for Bug # 4485908.
4626:
4627: WHEN FND_API.G_EXC_ERROR THEN
4628:
4629: RAISE FND_API.G_EXC_ERROR;
4630:
4631: -- End fix for Bug # 4485908.
4625: -- Begin fix for Bug # 4485908.
4626:
4627: WHEN FND_API.G_EXC_ERROR THEN
4628:
4629: RAISE FND_API.G_EXC_ERROR;
4630:
4631: -- End fix for Bug # 4485908.
4632:
4633: WHEN OTHERS THEN
4633: WHEN OTHERS THEN
4634: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
4635: p_procedure_name => 'Delete_SubProject_Association',
4636: p_error_text => SUBSTRB('PA_RELATIONSHIP_PUB.UPDATE_PROGRAM_GROUPS:'||SQLERRM,1,240));
4637: RAISE FND_API.G_EXC_ERROR;
4638: END;
4639: --
4640:
4641: --PA_RELATIONSHIP_PUB.Delete_Relationship(porb.object_relationship_id);--table handler
4657: ,p_pm_product_code => NULL
4658: ,x_return_status => x_return_status
4659: );
4660: --
4661: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4662: x_msg_count := FND_MSG_PUB.count_msg;
4663: IF x_msg_count = 1 then
4664: pa_interface_utils_pub.get_messages
4665: (p_encoded => FND_API.G_TRUE,
4661: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4662: x_msg_count := FND_MSG_PUB.count_msg;
4663: IF x_msg_count = 1 then
4664: pa_interface_utils_pub.get_messages
4665: (p_encoded => FND_API.G_TRUE,
4666: p_msg_index => 1,
4667: p_msg_count => x_msg_count,
4668: p_msg_data => x_msg_data,
4669: p_data => l_data,
4669: p_data => l_data,
4670: p_msg_index_out => l_msg_index_out);
4671: x_msg_data := l_data;
4672: END IF;
4673: raise FND_API.G_EXC_ERROR;
4674: END IF;
4675: --
4676: IF (p_debug_mode = 'Y') THEN
4677: pa_debug.debug('Return status after call to PA_OBJECT_RELATIONSHIPS_PKG.DELETE_ROW=> '||x_return_status);
4683: IF get_rec_ver_num%NOTFOUND THEN
4684: CLOSE get_rec_ver_num;
4685: PA_UTILS.ADD_MESSAGE('PA','PA_NO_RECORD_VERSION_NUMBER');
4686: x_msg_data := 'PA_NO_RECORD_VERSION_NUMBER';
4687: RAISE FND_API.G_EXC_ERROR;
4688: END IF;
4689: --
4690: PA_TASK_PUB1.DELETE_TASK_VERSION(p_commit => 'N',
4691: p_debug_mode => p_debug_mode,
4694: x_return_status => x_return_status,
4695: x_msg_count => x_msg_count,
4696: x_msg_data => x_msg_data);
4697: --
4698: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4699: x_msg_count := FND_MSG_PUB.count_msg;
4700: IF x_msg_count = 1 then
4701: pa_interface_utils_pub.get_messages
4702: (p_encoded => FND_API.G_TRUE,
4698: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4699: x_msg_count := FND_MSG_PUB.count_msg;
4700: IF x_msg_count = 1 then
4701: pa_interface_utils_pub.get_messages
4702: (p_encoded => FND_API.G_TRUE,
4703: p_msg_index => 1,
4704: p_msg_count => x_msg_count,
4705: p_msg_data => x_msg_data,
4706: p_data => l_data,
4706: p_data => l_data,
4707: p_msg_index_out => l_msg_index_out);
4708: x_msg_data := l_data;
4709: END IF;
4710: raise FND_API.G_EXC_ERROR;
4711: END IF;
4712: --
4713: IF (p_debug_mode = 'Y') THEN
4714: pa_debug.debug('Return status after call to PA_TASK_PUB1.DELETE_TASK_VERSION=> '||x_return_status);
4742: , x_return_status => x_return_status
4743: , x_msg_count => x_msg_count
4744: , x_msg_data => x_msg_data);
4745:
4746: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
4747:
4748: x_msg_count := FND_MSG_PUB.count_msg;
4749:
4750: if x_msg_count = 1 then
4749:
4750: if x_msg_count = 1 then
4751:
4752: pa_interface_utils_pub.get_messages
4753: (p_encoded => FND_API.G_TRUE
4754: , p_msg_index => 1
4755: , p_msg_count => x_msg_count
4756: , p_msg_data => x_msg_data
4757: , p_data => l_data
4760: x_msg_data := l_data;
4761:
4762: end if;
4763:
4764: raise FND_API.G_EXC_ERROR;
4765:
4766: end if;
4767:
4768: end if;
4792: ,x_return_status => x_return_status
4793: ,x_msg_count => x_msg_count
4794: ,x_msg_data => x_msg_data);
4795:
4796: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
4797: x_msg_count := FND_MSG_PUB.count_msg;
4798: IF x_msg_count = 1 then
4799: pa_interface_utils_pub.get_messages
4800: (p_encoded => FND_API.G_TRUE,
4796: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
4797: x_msg_count := FND_MSG_PUB.count_msg;
4798: IF x_msg_count = 1 then
4799: pa_interface_utils_pub.get_messages
4800: (p_encoded => FND_API.G_TRUE,
4801: p_msg_index => 1,
4802: p_msg_count => x_msg_count,
4803: p_msg_data => x_msg_data,
4804: p_data => l_data,
4804: p_data => l_data,
4805: p_msg_index_out => l_msg_index_out);
4806: x_msg_data := l_data;
4807: END IF;
4808: raise FND_API.G_EXC_ERROR;
4809: end if;
4810: END IF;
4811: --bug 4370533 --Issue #3
4812:
4810: END IF;
4811: --bug 4370533 --Issue #3
4812:
4813:
4814: x_return_status := FND_API.G_RET_STS_SUCCESS;
4815: --
4816: IF (p_commit = FND_API.G_TRUE) THEN
4817: COMMIT;
4818: END IF;
4812:
4813:
4814: x_return_status := FND_API.G_RET_STS_SUCCESS;
4815: --
4816: IF (p_commit = FND_API.G_TRUE) THEN
4817: COMMIT;
4818: END IF;
4819: --
4820: IF (p_debug_mode = 'Y') THEN
4825: pa_debug.debug('PA_RELATIONSHIP_PVT.Delete_SubProject_Association end');
4826: END IF;
4827: --
4828: EXCEPTION
4829: WHEN FND_API.G_EXC_ERROR THEN
4830: IF (p_commit = FND_API.G_TRUE) THEN
4831: ROLLBACK to delete_subproject_ass_pvt;
4832: END IF;
4833: x_msg_count := FND_MSG_PUB.count_msg;
4826: END IF;
4827: --
4828: EXCEPTION
4829: WHEN FND_API.G_EXC_ERROR THEN
4830: IF (p_commit = FND_API.G_TRUE) THEN
4831: ROLLBACK to delete_subproject_ass_pvt;
4832: END IF;
4833: x_msg_count := FND_MSG_PUB.count_msg;
4834: x_return_status := FND_API.G_RET_STS_ERROR;
4830: IF (p_commit = FND_API.G_TRUE) THEN
4831: ROLLBACK to delete_subproject_ass_pvt;
4832: END IF;
4833: x_msg_count := FND_MSG_PUB.count_msg;
4834: x_return_status := FND_API.G_RET_STS_ERROR;
4835: WHEN OTHERS THEN
4836: IF (p_commit = FND_API.G_TRUE) THEN
4837: ROLLBACK to delete_subproject_ass_pvt;
4838: END IF;
4832: END IF;
4833: x_msg_count := FND_MSG_PUB.count_msg;
4834: x_return_status := FND_API.G_RET_STS_ERROR;
4835: WHEN OTHERS THEN
4836: IF (p_commit = FND_API.G_TRUE) THEN
4837: ROLLBACK to delete_subproject_ass_pvt;
4838: END IF;
4839: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4840: x_msg_count := FND_MSG_PUB.count_msg;
4835: WHEN OTHERS THEN
4836: IF (p_commit = FND_API.G_TRUE) THEN
4837: ROLLBACK to delete_subproject_ass_pvt;
4838: END IF;
4839: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4840: x_msg_count := FND_MSG_PUB.count_msg;
4841: --put message
4842: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIPS_PVT',
4843: p_procedure_name => 'Delete_SubProject_Association',
4854: --
4855: -- FPM bug 3450684
4856: --
4857: --
4858: Procedure Copy_OG_Lnk_For_Subproj_Ass(p_validate_only IN VARCHAR2 := FND_API.G_TRUE,
4859: p_validation_level IN VARCHAR2 := 100,
4860: p_calling_module IN VARCHAR2 := 'SELF_SERVICE',
4861: p_debug_mode IN VARCHAR2 := 'N',
4862: p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
4859: p_validation_level IN VARCHAR2 := 100,
4860: p_calling_module IN VARCHAR2 := 'SELF_SERVICE',
4861: p_debug_mode IN VARCHAR2 := 'N',
4862: p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
4863: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4864: p_src_str_version_id IN NUMBER,
4865: p_dest_str_version_id IN NUMBER,
4866: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
4867: x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
4926: IF (p_debug_mode = 'Y') THEN
4927: pa_debug.debug('PA_RELATIONSHIP_PVT.Copy_OG_Lnk_For_Subproj_Ass begin');
4928: END IF;
4929: --
4930: IF (p_commit = FND_API.G_TRUE) THEN
4931: savepoint Copy_OG_Lnk_For_Subproj_Ass;
4932: END IF;
4933: --
4934: IF (p_debug_mode = 'Y') THEN
5003: ,p_status_code => null
5004: );
5005:
5006: -- 4537865
5007: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
5008: RAISE FND_API.G_EXC_ERROR;
5009: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
5010: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- To go to WHEN OTHERS Block
5011: END IF;
5004: );
5005:
5006: -- 4537865
5007: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
5008: RAISE FND_API.G_EXC_ERROR;
5009: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
5010: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- To go to WHEN OTHERS Block
5011: END IF;
5012: -- End 4537865
5005:
5006: -- 4537865
5007: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
5008: RAISE FND_API.G_EXC_ERROR;
5009: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
5010: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- To go to WHEN OTHERS Block
5011: END IF;
5012: -- End 4537865
5013:
5006: -- 4537865
5007: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
5008: RAISE FND_API.G_EXC_ERROR;
5009: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
5010: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- To go to WHEN OTHERS Block
5011: END IF;
5012: -- End 4537865
5013:
5014: IF (p_debug_mode = 'Y') THEN
5022: l_upd_prog_grp_status:=PA_RELATIONSHIP_PUB.UPDATE_PROGRAM_GROUPS(l_object_relationship_id,
5023: 'ADD');
5024: IF l_upd_prog_grp_status < 0 THEN
5025: PA_UTILS.ADD_MESSAGE('PA','PA_CP_SUBPROJ_VAL_FAIL');
5026: RAISE FND_API.G_EXC_ERROR;
5027: END IF;
5028: IF (p_debug_mode = 'Y') THEN
5029: pa_debug.debug('Return Status PA_RELATIONSHIP_PUB.UPDATE_PROGRAM_GROUPS=> '||l_upd_prog_grp_status);
5030: END IF;
5031: EXCEPTION
5032:
5033: -- Begin fix for Bug # 4485908.
5034:
5035: WHEN FND_API.G_EXC_ERROR THEN
5036:
5037: RAISE FND_API.G_EXC_ERROR;
5038:
5039: -- End fix for Bug # 4485908.
5033: -- Begin fix for Bug # 4485908.
5034:
5035: WHEN FND_API.G_EXC_ERROR THEN
5036:
5037: RAISE FND_API.G_EXC_ERROR;
5038:
5039: -- End fix for Bug # 4485908.
5040:
5041: WHEN OTHERS THEN
5041: WHEN OTHERS THEN
5042: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
5043: p_procedure_name => 'Copy_OG_Lnk_For_Subproj_Ass',
5044: p_error_text => SUBSTRB('PA_RELATIONSHIP_PUB.UPDATE_PROGRAM_GROUPS:'||SQLERRM,1,240));
5045: RAISE FND_API.G_EXC_ERROR;
5046: END;
5047: END IF;
5048: --
5049: END LOOP; --end loop for get_going_out_lnk_info cursor
5050: CLOSE get_going_out_lnk_info;
5051: END LOOP; --end loop for get_linking_task_info cursor
5052: CLOSE get_linking_task_info;
5053: --
5054: IF (p_commit = FND_API.G_TRUE) THEN
5055: COMMIT;
5056: END IF;
5057: --
5058: IF (p_debug_mode = 'Y') THEN
5063: pa_debug.debug('PA_RELATIONSHIP_PVT.Copy_OG_Lnk_For_Subproj_Ass end');
5064: END IF;
5065: --
5066: EXCEPTION
5067: WHEN FND_API.G_EXC_ERROR THEN
5068: IF (p_commit = FND_API.G_TRUE) THEN
5069: ROLLBACK to Copy_OG_Lnk_For_Subproj_Ass;
5070: END IF;
5071: x_msg_count := FND_MSG_PUB.count_msg;
5064: END IF;
5065: --
5066: EXCEPTION
5067: WHEN FND_API.G_EXC_ERROR THEN
5068: IF (p_commit = FND_API.G_TRUE) THEN
5069: ROLLBACK to Copy_OG_Lnk_For_Subproj_Ass;
5070: END IF;
5071: x_msg_count := FND_MSG_PUB.count_msg;
5072: x_return_status := FND_API.G_RET_STS_ERROR;
5068: IF (p_commit = FND_API.G_TRUE) THEN
5069: ROLLBACK to Copy_OG_Lnk_For_Subproj_Ass;
5070: END IF;
5071: x_msg_count := FND_MSG_PUB.count_msg;
5072: x_return_status := FND_API.G_RET_STS_ERROR;
5073: WHEN OTHERS THEN
5074: IF (p_commit = FND_API.G_TRUE) THEN
5075: ROLLBACK to Copy_OG_Lnk_For_Subproj_Ass;
5076: END IF;
5070: END IF;
5071: x_msg_count := FND_MSG_PUB.count_msg;
5072: x_return_status := FND_API.G_RET_STS_ERROR;
5073: WHEN OTHERS THEN
5074: IF (p_commit = FND_API.G_TRUE) THEN
5075: ROLLBACK to Copy_OG_Lnk_For_Subproj_Ass;
5076: END IF;
5077: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5078: x_msg_count := FND_MSG_PUB.count_msg;
5073: WHEN OTHERS THEN
5074: IF (p_commit = FND_API.G_TRUE) THEN
5075: ROLLBACK to Copy_OG_Lnk_For_Subproj_Ass;
5076: END IF;
5077: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5078: x_msg_count := FND_MSG_PUB.count_msg;
5079: --put message
5080: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIPS_PVT',
5081: p_procedure_name => 'Copy_OG_Lnk_For_Subproj_Ass',
5092: --
5093: -- FPM bug 3450684
5094: --
5095: --
5096: PROCEDURE Move_CI_Lnk_For_subproj_step2(p_commit IN VARCHAR2 := FND_API.G_FALSE,
5097: p_validate_only IN VARCHAR2 := FND_API.G_TRUE,
5098: p_validation_level IN VARCHAR2 := 100,
5099: p_calling_module IN VARCHAR2 := 'SELF_SERVICE',
5100: p_debug_mode IN VARCHAR2 := 'N',
5093: -- FPM bug 3450684
5094: --
5095: --
5096: PROCEDURE Move_CI_Lnk_For_subproj_step2(p_commit IN VARCHAR2 := FND_API.G_FALSE,
5097: p_validate_only IN VARCHAR2 := FND_API.G_TRUE,
5098: p_validation_level IN VARCHAR2 := 100,
5099: p_calling_module IN VARCHAR2 := 'SELF_SERVICE',
5100: p_debug_mode IN VARCHAR2 := 'N',
5101: p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
5186: IF (p_debug_mode = 'Y') THEN
5187: pa_debug.debug('PA_RELATIONSHIP_PVT.Move_CI_Lnk_For_subproj_step2 begin');
5188: END IF;
5189: --
5190: IF (p_commit = FND_API.G_TRUE) THEN
5191: savepoint Move_CI_Lnk_For_subproj_step2;
5192: END IF;
5193:
5194: x_return_status := FND_API.G_RET_STS_SUCCESS; -- 4537865
5190: IF (p_commit = FND_API.G_TRUE) THEN
5191: savepoint Move_CI_Lnk_For_subproj_step2;
5192: END IF;
5193:
5194: x_return_status := FND_API.G_RET_STS_SUCCESS; -- 4537865
5195: --
5196: /* IF (p_debug_mode = 'Y') THEN
5197: pa_debug.debug('Deleting the object_relationships_id => ');
5198: END IF;*/
5253: ,p_comments => null
5254: ,p_status_code => null
5255: );
5256: -- 4537865
5257: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
5258: RAISE FND_API.G_EXC_ERROR;
5259: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
5260: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- To go to WHEN OTHERS Block
5261: END IF;
5254: ,p_status_code => null
5255: );
5256: -- 4537865
5257: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
5258: RAISE FND_API.G_EXC_ERROR;
5259: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
5260: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- To go to WHEN OTHERS Block
5261: END IF;
5262: -- End 4537865
5255: );
5256: -- 4537865
5257: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
5258: RAISE FND_API.G_EXC_ERROR;
5259: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
5260: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- To go to WHEN OTHERS Block
5261: END IF;
5262: -- End 4537865
5263: --
5256: -- 4537865
5257: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
5258: RAISE FND_API.G_EXC_ERROR;
5259: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
5260: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- To go to WHEN OTHERS Block
5261: END IF;
5262: -- End 4537865
5263: --
5264: --Bug No 3450684
5280:
5281: -- Bug # 4329284.
5282:
5283: PA_UTILS.ADD_MESSAGE('PA','PA_CRT_SUBPROJ_VAL_FAIL','PROJ',l_proj_name,'PROG',l_prog_name); -- Bug # 4329284.
5284: RAISE FND_API.G_EXC_ERROR;
5285: END IF;
5286: IF (p_debug_mode = 'Y') THEN
5287: pa_debug.debug('Return Status PA_RELATIONSHIP_PUB.UPDATE_PROGRAM_GROUPS=> '||l_upd_prog_grp_status);
5288: END IF;
5289: EXCEPTION
5290:
5291: -- Begin fix for Bug # 4485908.
5292:
5293: WHEN FND_API.G_EXC_ERROR THEN
5294:
5295: RAISE FND_API.G_EXC_ERROR;
5296:
5297: -- End fix for Bug # 4485908.
5291: -- Begin fix for Bug # 4485908.
5292:
5293: WHEN FND_API.G_EXC_ERROR THEN
5294:
5295: RAISE FND_API.G_EXC_ERROR;
5296:
5297: -- End fix for Bug # 4485908.
5298:
5299: WHEN OTHERS THEN
5299: WHEN OTHERS THEN
5300: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
5301: p_procedure_name => 'Insert_Subproject_Association',
5302: p_error_text => SUBSTRB('PA_RELATIONSHIP_PUB.UPDATE_PROGRAM_GROUPS:'||SQLERRM,1,240));
5303: RAISE FND_API.G_EXC_ERROR;
5304: END;
5305:
5306: BEGIN
5307: l_upd_prog_grp_status:=0;
5308: l_upd_prog_grp_status:=PA_RELATIONSHIP_PUB.UPDATE_PROGRAM_GROUPS(get_coming_in_lnk_info_rec.object_relationship_id,
5309: 'DROP');
5310: IF l_upd_prog_grp_status < 0 THEN
5311: PA_UTILS.ADD_MESSAGE('PA','PA_MV_DEL_SUBPROJ_VAL_FAIL');
5312: RAISE FND_API.G_EXC_ERROR;
5313: END IF;
5314: IF (p_debug_mode = 'Y') THEN
5315: pa_debug.debug('Return Status PA_RELATIONSHIP_PUB.UPDATE_PROGRAM_GROUPS=> '||l_upd_prog_grp_status);
5316: END IF;
5317: EXCEPTION
5318:
5319: -- Begin fix for Bug # 4485908.
5320:
5321: WHEN FND_API.G_EXC_ERROR THEN
5322:
5323: RAISE FND_API.G_EXC_ERROR;
5324:
5325: -- End fix for Bug # 4485908.
5319: -- Begin fix for Bug # 4485908.
5320:
5321: WHEN FND_API.G_EXC_ERROR THEN
5322:
5323: RAISE FND_API.G_EXC_ERROR;
5324:
5325: -- End fix for Bug # 4485908.
5326:
5327: WHEN OTHERS THEN
5327: WHEN OTHERS THEN
5328: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
5329: p_procedure_name => 'Move_CI_Lnk_For_subproj_step2',
5330: p_error_text => SUBSTRB('PA_RELATIONSHIP_PUB.UPDATE_PROGRAM_GROUPS:'||SQLERRM,1,240));
5331: RAISE FND_API.G_EXC_ERROR;
5332: END;
5333: --
5334: PA_OBJECT_RELATIONSHIPS_PKG.DELETE_ROW(
5335: p_object_relationship_id => get_coming_in_lnk_info_rec.object_relationship_id
5349: ,p_pm_product_code => NULL
5350: ,x_return_status => x_return_status
5351: );
5352: -- 4537865
5353: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
5354: RAISE FND_API.G_EXC_ERROR;
5355: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
5356: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- To go to WHEN OTHERS Block
5357: END IF;
5350: ,x_return_status => x_return_status
5351: );
5352: -- 4537865
5353: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
5354: RAISE FND_API.G_EXC_ERROR;
5355: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
5356: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- To go to WHEN OTHERS Block
5357: END IF;
5358: -- End 4537865
5351: );
5352: -- 4537865
5353: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
5354: RAISE FND_API.G_EXC_ERROR;
5355: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
5356: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- To go to WHEN OTHERS Block
5357: END IF;
5358: -- End 4537865
5359: --
5352: -- 4537865
5353: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
5354: RAISE FND_API.G_EXC_ERROR;
5355: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
5356: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- To go to WHEN OTHERS Block
5357: END IF;
5358: -- End 4537865
5359: --
5360: END IF; --End of move_link is Y
5360: END IF; --End of move_link is Y
5361: END LOOP; --end loop get_coming_in_lnk_info cursor
5362: CLOSE get_coming_in_lnk_info;
5363: --
5364: IF (p_commit = FND_API.G_TRUE) THEN
5365: COMMIT;
5366: END IF;
5367: --
5368: IF (p_debug_mode = 'Y') THEN
5373: pa_debug.debug('PA_RELATIONSHIP_PVT.Move_CI_Lnk_For_subproj_step2 end');
5374: END IF;
5375: --
5376: EXCEPTION
5377: WHEN FND_API.G_EXC_ERROR THEN
5378: IF (p_commit = FND_API.G_TRUE) THEN
5379: ROLLBACK to Move_CI_Lnk_For_subproj_step2;
5380: END IF;
5381: x_msg_count := FND_MSG_PUB.count_msg;
5374: END IF;
5375: --
5376: EXCEPTION
5377: WHEN FND_API.G_EXC_ERROR THEN
5378: IF (p_commit = FND_API.G_TRUE) THEN
5379: ROLLBACK to Move_CI_Lnk_For_subproj_step2;
5380: END IF;
5381: x_msg_count := FND_MSG_PUB.count_msg;
5382: x_return_status := FND_API.G_RET_STS_ERROR;
5378: IF (p_commit = FND_API.G_TRUE) THEN
5379: ROLLBACK to Move_CI_Lnk_For_subproj_step2;
5380: END IF;
5381: x_msg_count := FND_MSG_PUB.count_msg;
5382: x_return_status := FND_API.G_RET_STS_ERROR;
5383: WHEN OTHERS THEN
5384: IF (p_commit = FND_API.G_TRUE) THEN
5385: ROLLBACK to Move_CI_Lnk_For_subproj_step2;
5386: END IF;
5380: END IF;
5381: x_msg_count := FND_MSG_PUB.count_msg;
5382: x_return_status := FND_API.G_RET_STS_ERROR;
5383: WHEN OTHERS THEN
5384: IF (p_commit = FND_API.G_TRUE) THEN
5385: ROLLBACK to Move_CI_Lnk_For_subproj_step2;
5386: END IF;
5387: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5388: x_msg_count := FND_MSG_PUB.count_msg;
5383: WHEN OTHERS THEN
5384: IF (p_commit = FND_API.G_TRUE) THEN
5385: ROLLBACK to Move_CI_Lnk_For_subproj_step2;
5386: END IF;
5387: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5388: x_msg_count := FND_MSG_PUB.count_msg;
5389: --put message
5390: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIPS_PVT',
5391: p_procedure_name => 'Move_CI_Lnk_For_subproj_step2',
5403: -- FPM bug 3450684
5404: --
5405: --
5406: PROCEDURE Move_CI_Lnk_For_subproj_step1(p_api_version IN NUMBER :=1.0,
5407: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
5408: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
5409: -- p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
5410: p_validation_level IN VARCHAR2 := 100,
5411: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
5404: --
5405: --
5406: PROCEDURE Move_CI_Lnk_For_subproj_step1(p_api_version IN NUMBER :=1.0,
5407: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
5408: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
5409: -- p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
5410: p_validation_level IN VARCHAR2 := 100,
5411: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
5412: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
5405: --
5406: PROCEDURE Move_CI_Lnk_For_subproj_step1(p_api_version IN NUMBER :=1.0,
5407: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
5408: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
5409: -- p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
5410: p_validation_level IN VARCHAR2 := 100,
5411: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
5412: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
5413: p_debug_mode IN VARCHAR2 :='N',
5408: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
5409: -- p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
5410: p_validation_level IN VARCHAR2 := 100,
5411: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
5412: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
5413: p_debug_mode IN VARCHAR2 :='N',
5414: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
5415: p_src_str_version_id IN NUMBER,
5416: p_pub_str_version_id IN NUMBER, --published str, which is destination
5424: IF (p_debug_mode = 'Y') THEN
5425: pa_debug.debug('PA_RELATIONSHIP_PVT.Move_CI_Lnk_For_subproj_step1 begin');
5426: END IF;
5427: --
5428: IF (p_commit = FND_API.G_TRUE) THEN
5429: savepoint Move_CI_Lnk_For_subproj_step1;
5430: END IF;
5431: --
5432: /* IF (p_debug_mode = 'Y') THEN
5451: x_msg_count => x_msg_count,
5452: x_msg_data => x_msg_data
5453: );
5454: -- 4537865
5455: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
5456: RAISE FND_API.G_EXC_ERROR;
5457: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
5458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- To go to WHEN OTHERS Block
5459: END IF;
5452: x_msg_data => x_msg_data
5453: );
5454: -- 4537865
5455: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
5456: RAISE FND_API.G_EXC_ERROR;
5457: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
5458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- To go to WHEN OTHERS Block
5459: END IF;
5460: -- End 4537865
5453: );
5454: -- 4537865
5455: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
5456: RAISE FND_API.G_EXC_ERROR;
5457: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
5458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- To go to WHEN OTHERS Block
5459: END IF;
5460: -- End 4537865
5461:
5454: -- 4537865
5455: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
5456: RAISE FND_API.G_EXC_ERROR;
5457: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
5458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- To go to WHEN OTHERS Block
5459: END IF;
5460: -- End 4537865
5461:
5462: END IF;
5460: -- End 4537865
5461:
5462: END IF;
5463: --
5464: IF (p_commit = FND_API.G_TRUE) THEN
5465: COMMIT;
5466: END IF;
5467: --
5468: IF (p_debug_mode = 'Y') THEN
5473: pa_debug.debug('PA_RELATIONSHIP_PVT.Move_CI_Lnk_For_subproj_step1 end');
5474: END IF;
5475: --
5476: EXCEPTION
5477: WHEN FND_API.G_EXC_ERROR THEN
5478: IF (p_commit = FND_API.G_TRUE) THEN
5479: ROLLBACK to Move_CI_Lnk_For_subproj_step1;
5480: END IF;
5481: x_msg_count := FND_MSG_PUB.count_msg;
5474: END IF;
5475: --
5476: EXCEPTION
5477: WHEN FND_API.G_EXC_ERROR THEN
5478: IF (p_commit = FND_API.G_TRUE) THEN
5479: ROLLBACK to Move_CI_Lnk_For_subproj_step1;
5480: END IF;
5481: x_msg_count := FND_MSG_PUB.count_msg;
5482: x_return_status := FND_API.G_RET_STS_ERROR;
5478: IF (p_commit = FND_API.G_TRUE) THEN
5479: ROLLBACK to Move_CI_Lnk_For_subproj_step1;
5480: END IF;
5481: x_msg_count := FND_MSG_PUB.count_msg;
5482: x_return_status := FND_API.G_RET_STS_ERROR;
5483: WHEN OTHERS THEN
5484: IF (p_commit = FND_API.G_TRUE) THEN
5485: ROLLBACK to Move_CI_Lnk_For_subproj_step1;
5486: END IF;
5480: END IF;
5481: x_msg_count := FND_MSG_PUB.count_msg;
5482: x_return_status := FND_API.G_RET_STS_ERROR;
5483: WHEN OTHERS THEN
5484: IF (p_commit = FND_API.G_TRUE) THEN
5485: ROLLBACK to Move_CI_Lnk_For_subproj_step1;
5486: END IF;
5487: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5488: x_msg_count := FND_MSG_PUB.count_msg;
5483: WHEN OTHERS THEN
5484: IF (p_commit = FND_API.G_TRUE) THEN
5485: ROLLBACK to Move_CI_Lnk_For_subproj_step1;
5486: END IF;
5487: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5488: x_msg_count := FND_MSG_PUB.count_msg;
5489: --put message
5490: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIPS_PVT',
5491: p_procedure_name => 'Move_CI_Lnk_For_subproj_step1',
5500: -- Pre-reqs : None
5501: -- Return Value : N/A
5502: -- Parameters
5503: -- p_api_version IN NUMBER := 1.0
5504: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
5505: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
5506: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
5507: -- p_validation_level IN VARCHAR2 := 100
5508: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
5501: -- Return Value : N/A
5502: -- Parameters
5503: -- p_api_version IN NUMBER := 1.0
5504: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
5505: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
5506: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
5507: -- p_validation_level IN VARCHAR2 := 100
5508: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
5509: -- p_debug_mode IN VARCHAR2 := 'N'
5502: -- Parameters
5503: -- p_api_version IN NUMBER := 1.0
5504: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
5505: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
5506: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
5507: -- p_validation_level IN VARCHAR2 := 100
5508: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
5509: -- p_debug_mode IN VARCHAR2 := 'N'
5510: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
5526:
5527: procedure UPDATE_PARENT_WBS_FLAG_DIRTY
5528: (
5529: p_api_version IN NUMBER := 1.0
5530: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
5531: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5532: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
5533: ,p_validation_level IN VARCHAR2 := 100
5534: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
5527: procedure UPDATE_PARENT_WBS_FLAG_DIRTY
5528: (
5529: p_api_version IN NUMBER := 1.0
5530: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
5531: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5532: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
5533: ,p_validation_level IN VARCHAR2 := 100
5534: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
5535: ,p_debug_mode IN VARCHAR2 := 'N'
5528: (
5529: p_api_version IN NUMBER := 1.0
5530: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
5531: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5532: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
5533: ,p_validation_level IN VARCHAR2 := 100
5534: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
5535: ,p_debug_mode IN VARCHAR2 := 'N'
5536: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
5568: IF (p_debug_mode = 'Y') THEN
5569: pa_debug.debug('PA_RELATIONSHIP_PVT.UPDATE_DEPENDENCY begin');
5570: END IF;
5571:
5572: IF (p_commit = FND_API.G_TRUE) THEN
5573: savepoint UPDATE_PARENT_WBS_FLAG_DIRTY;
5574: END IF;
5575:
5576: x_return_status := FND_API.G_RET_STS_SUCCESS;
5572: IF (p_commit = FND_API.G_TRUE) THEN
5573: savepoint UPDATE_PARENT_WBS_FLAG_DIRTY;
5574: END IF;
5575:
5576: x_return_status := FND_API.G_RET_STS_SUCCESS;
5577:
5578: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
5579:
5580: IF l_debug_mode = 'Y' THEN
5597: IF l_debug_mode = 'Y' THEN
5598: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.UPDATE_PARENT_WBS_FLAG_DIRTY', x_Msg => 'Completed', x_Log_Level=> 3);
5599: END IF;
5600:
5601: IF (p_commit = FND_API.G_TRUE) THEN
5602: COMMIT;
5603: END IF;
5604:
5605: IF (p_debug_mode = 'Y') THEN
5607: END IF;
5608:
5609:
5610: EXCEPTION
5611: when FND_API.G_EXC_ERROR then
5612: if p_commit = FND_API.G_TRUE then
5613: rollback to UPDATE_PARENT_WBS_FLAG_DIRTY;
5614: end if;
5615: x_return_status := FND_API.G_RET_STS_ERROR;
5608:
5609:
5610: EXCEPTION
5611: when FND_API.G_EXC_ERROR then
5612: if p_commit = FND_API.G_TRUE then
5613: rollback to UPDATE_PARENT_WBS_FLAG_DIRTY;
5614: end if;
5615: x_return_status := FND_API.G_RET_STS_ERROR;
5616: when FND_API.G_EXC_UNEXPECTED_ERROR then
5611: when FND_API.G_EXC_ERROR then
5612: if p_commit = FND_API.G_TRUE then
5613: rollback to UPDATE_PARENT_WBS_FLAG_DIRTY;
5614: end if;
5615: x_return_status := FND_API.G_RET_STS_ERROR;
5616: when FND_API.G_EXC_UNEXPECTED_ERROR then
5617: if p_commit = FND_API.G_TRUE then
5618: rollback to UPDATE_PARENT_WBS_FLAG_DIRTY;
5619: end if;
5612: if p_commit = FND_API.G_TRUE then
5613: rollback to UPDATE_PARENT_WBS_FLAG_DIRTY;
5614: end if;
5615: x_return_status := FND_API.G_RET_STS_ERROR;
5616: when FND_API.G_EXC_UNEXPECTED_ERROR then
5617: if p_commit = FND_API.G_TRUE then
5618: rollback to UPDATE_PARENT_WBS_FLAG_DIRTY;
5619: end if;
5620: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5613: rollback to UPDATE_PARENT_WBS_FLAG_DIRTY;
5614: end if;
5615: x_return_status := FND_API.G_RET_STS_ERROR;
5616: when FND_API.G_EXC_UNEXPECTED_ERROR then
5617: if p_commit = FND_API.G_TRUE then
5618: rollback to UPDATE_PARENT_WBS_FLAG_DIRTY;
5619: end if;
5620: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5621: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
5616: when FND_API.G_EXC_UNEXPECTED_ERROR then
5617: if p_commit = FND_API.G_TRUE then
5618: rollback to UPDATE_PARENT_WBS_FLAG_DIRTY;
5619: end if;
5620: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5621: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
5622: p_procedure_name => 'UPDATE_PARENT_WBS_FLAG_DIRTY',
5623: p_error_text => SUBSTRB(SQLERRM,1,240));
5624: when OTHERS then
5621: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
5622: p_procedure_name => 'UPDATE_PARENT_WBS_FLAG_DIRTY',
5623: p_error_text => SUBSTRB(SQLERRM,1,240));
5624: when OTHERS then
5625: if p_commit = FND_API.G_TRUE then
5626: rollback to UPDATE_PARENT_WBS_FLAG_DIRTY;
5627: end if;
5628: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5629: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
5624: when OTHERS then
5625: if p_commit = FND_API.G_TRUE then
5626: rollback to UPDATE_PARENT_WBS_FLAG_DIRTY;
5627: end if;
5628: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5629: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
5630: p_procedure_name => 'UPDATE_PARENT_WBS_FLAG_DIRTY',
5631: p_error_text => SUBSTRB(SQLERRM,1,240));
5632: raise;