[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: --Bug8427713 : WHEN CONVERTING DATA FROM MSP, THE INCORRECT PRED_STRING VALUE IS LOADED
1177: FETCH is_summary_task into l_cnt;
1178: CLOSE is_summary_task;
1179: /* If single row is returned */
1180: IF NVL(l_cnt,0) <> 0 THEN
1181: x_return_status := FND_API.G_RET_STS_ERROR;
1182: x_msg_count := 1;
1183: x_msg_data := 'PA_PS_NO_DEP_ON_SUMM';
1184: PA_UTILS.add_message('PA', 'PA_PS_NO_DEP_ON_SUMM');
1185: raise FND_API.G_EXC_ERROR;
1181: x_return_status := FND_API.G_RET_STS_ERROR;
1182: x_msg_count := 1;
1183: x_msg_data := 'PA_PS_NO_DEP_ON_SUMM';
1184: PA_UTILS.add_message('PA', 'PA_PS_NO_DEP_ON_SUMM');
1185: raise FND_API.G_EXC_ERROR;
1186: END IF;
1187: END;
1188: END IF;
1189:
1196: FETCH IS_SUMMARY_TASK into l_cnt;
1197: close is_summary_task;
1198: /* If single row is returned */
1199: IF NVL(l_cnt,0) <> 0 THEN
1200: x_return_status := FND_API.G_RET_STS_ERROR;
1201: x_msg_count := 1;
1202: x_msg_data := 'PA_PS_NO_DEP_ON_SUMM';
1203: PA_UTILS.add_message('PA', 'PA_PS_NO_DEP_ON_SUMM');
1204: raise FND_API.G_EXC_ERROR;
1200: x_return_status := FND_API.G_RET_STS_ERROR;
1201: x_msg_count := 1;
1202: x_msg_data := 'PA_PS_NO_DEP_ON_SUMM';
1203: PA_UTILS.add_message('PA', 'PA_PS_NO_DEP_ON_SUMM');
1204: raise FND_API.G_EXC_ERROR;
1205: END IF;
1206: END;
1207: END IF;
1208:
1230: ,x_msg_count => l_msg_count
1231: ,x_msg_data => l_msg_data
1232: );
1233:
1234: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1235: x_msg_count := FND_MSG_PUB.count_msg;
1236: IF x_msg_count = 1 then
1237: pa_interface_utils_pub.get_messages
1238: (p_encoded => FND_API.G_TRUE,
1234: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1235: x_msg_count := FND_MSG_PUB.count_msg;
1236: IF x_msg_count = 1 then
1237: pa_interface_utils_pub.get_messages
1238: (p_encoded => FND_API.G_TRUE,
1239: p_msg_index => 1,
1240: p_msg_count => l_msg_count,
1241: p_msg_data => l_msg_data,
1242: p_data => l_data,
1242: p_data => l_data,
1243: p_msg_index_out => l_msg_index_out);
1244: x_msg_data := l_data;
1245: END IF;
1246: raise FND_API.G_EXC_ERROR;
1247: END IF;
1248: END;
1249: END IF;
1250:
1274: ,p_comments => p_comments
1275: ,p_status_code => null /* not applicable for intra dependency */
1276: );
1277:
1278: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1279: x_msg_count := FND_MSG_PUB.count_msg;
1280: IF x_msg_count = 1 then
1281: pa_interface_utils_pub.get_messages
1282: (p_encoded => FND_API.G_TRUE,
1278: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1279: x_msg_count := FND_MSG_PUB.count_msg;
1280: IF x_msg_count = 1 then
1281: pa_interface_utils_pub.get_messages
1282: (p_encoded => FND_API.G_TRUE,
1283: p_msg_index => 1,
1284: p_msg_count => l_msg_count,
1285: p_msg_data => l_msg_data,
1286: p_data => l_data,
1286: p_data => l_data,
1287: p_msg_index_out => l_msg_index_out);
1288: x_msg_data := l_data;
1289: END IF;
1290: raise FND_API.G_EXC_ERROR;
1291: END IF;
1292:
1293: ELSE
1294:
1303: ,x_msg_count => l_msg_count
1304: ,x_msg_data => l_msg_data
1305: );
1306:
1307: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1308: x_msg_count := FND_MSG_PUB.count_msg;
1309: IF x_msg_count = 1 then
1310: pa_interface_utils_pub.get_messages
1311: (p_encoded => FND_API.G_TRUE,
1307: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1308: x_msg_count := FND_MSG_PUB.count_msg;
1309: IF x_msg_count = 1 then
1310: pa_interface_utils_pub.get_messages
1311: (p_encoded => FND_API.G_TRUE,
1312: p_msg_index => 1,
1313: p_msg_count => l_msg_count,
1314: p_msg_data => l_msg_data,
1315: p_data => l_data,
1315: p_data => l_data,
1316: p_msg_index_out => l_msg_index_out);
1317: x_msg_data := l_data;
1318: END IF;
1319: raise FND_API.G_EXC_ERROR;
1320: END IF;
1321: END;
1322:
1323: l_src_proj_ve := PA_PROJ_TASK_STRUC_PUB.IS_WP_VERSIONING_ENABLED(p_src_proj_id);
1379: ,p_comments => p_comments
1380: ,p_status_code => l_status_code
1381: );
1382:
1383: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1384: x_msg_count := FND_MSG_PUB.count_msg;
1385: IF x_msg_count = 1 then
1386: pa_interface_utils_pub.get_messages
1387: (p_encoded => FND_API.G_TRUE,
1383: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1384: x_msg_count := FND_MSG_PUB.count_msg;
1385: IF x_msg_count = 1 then
1386: pa_interface_utils_pub.get_messages
1387: (p_encoded => FND_API.G_TRUE,
1388: p_msg_index => 1,
1389: p_msg_count => l_msg_count,
1390: p_msg_data => l_msg_data,
1391: p_data => l_data,
1391: p_data => l_data,
1392: p_msg_index_out => l_msg_index_out);
1393: x_msg_data := l_data;
1394: END IF;
1395: raise FND_API.G_EXC_ERROR;
1396: END IF;
1397:
1398: END LOOP;
1399:
1398: END LOOP;
1399:
1400: END IF;
1401:
1402: x_return_status := FND_API.G_RET_STS_SUCCESS;
1403:
1404: IF (p_commit = FND_API.G_TRUE) THEN
1405: COMMIT;
1406: END IF;
1400: END IF;
1401:
1402: x_return_status := FND_API.G_RET_STS_SUCCESS;
1403:
1404: IF (p_commit = FND_API.G_TRUE) THEN
1405: COMMIT;
1406: END IF;
1407:
1408: IF (p_debug_mode = 'Y') THEN
1409: pa_debug.debug('PA_RELATIONSHIP_PVT.CREATE_DEPENDENCY END');
1410: END IF;
1411:
1412: EXCEPTION
1413: when FND_API.G_EXC_ERROR then
1414: if p_commit = FND_API.G_TRUE then
1415: rollback to create_dependency_pvt;
1416: end if;
1417: x_return_status := FND_API.G_RET_STS_ERROR;
1410: END IF;
1411:
1412: EXCEPTION
1413: when FND_API.G_EXC_ERROR then
1414: if p_commit = FND_API.G_TRUE then
1415: rollback to create_dependency_pvt;
1416: end if;
1417: x_return_status := FND_API.G_RET_STS_ERROR;
1418: when FND_API.G_EXC_UNEXPECTED_ERROR then
1413: when FND_API.G_EXC_ERROR then
1414: if p_commit = FND_API.G_TRUE then
1415: rollback to create_dependency_pvt;
1416: end if;
1417: x_return_status := FND_API.G_RET_STS_ERROR;
1418: when FND_API.G_EXC_UNEXPECTED_ERROR then
1419: if p_commit = FND_API.G_TRUE then
1420: rollback to create_dependency_pvt;
1421: end if;
1414: if p_commit = FND_API.G_TRUE then
1415: rollback to create_dependency_pvt;
1416: end if;
1417: x_return_status := FND_API.G_RET_STS_ERROR;
1418: when FND_API.G_EXC_UNEXPECTED_ERROR then
1419: if p_commit = FND_API.G_TRUE then
1420: rollback to create_dependency_pvt;
1421: end if;
1422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1415: rollback to create_dependency_pvt;
1416: end if;
1417: x_return_status := FND_API.G_RET_STS_ERROR;
1418: when FND_API.G_EXC_UNEXPECTED_ERROR then
1419: if p_commit = FND_API.G_TRUE then
1420: rollback to create_dependency_pvt;
1421: end if;
1422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1423: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
1418: when FND_API.G_EXC_UNEXPECTED_ERROR then
1419: if p_commit = FND_API.G_TRUE then
1420: rollback to create_dependency_pvt;
1421: end if;
1422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1423: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
1424: p_procedure_name => 'CREATE_DEPENDENCY',
1425: p_error_text => SUBSTRB(SQLERRM,1,240));
1426: when OTHERS then
1423: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
1424: p_procedure_name => 'CREATE_DEPENDENCY',
1425: p_error_text => SUBSTRB(SQLERRM,1,240));
1426: when OTHERS then
1427: if p_commit = FND_API.G_TRUE then
1428: rollback to create_dependency_pvt;
1429: end if;
1430: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1431: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
1426: when OTHERS then
1427: if p_commit = FND_API.G_TRUE then
1428: rollback to create_dependency_pvt;
1429: end if;
1430: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1431: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
1432: p_procedure_name => 'CREATE_DEPENDENCY',
1433: p_error_text => SUBSTRB(SQLERRM,1,240));
1434: raise;
1439: -- Pre-reqs : None
1440: -- Return Value : N/A
1441: -- Parameters
1442: -- p_api_version IN NUMBER := 1.0
1443: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1444: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1445: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1446: -- p_validation_level IN VARCHAR2 := 100
1447: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1440: -- Return Value : N/A
1441: -- Parameters
1442: -- p_api_version IN NUMBER := 1.0
1443: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1444: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1445: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1446: -- p_validation_level IN VARCHAR2 := 100
1447: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1448: -- p_debug_mode IN VARCHAR2 := 'N'
1441: -- Parameters
1442: -- p_api_version IN NUMBER := 1.0
1443: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1444: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1445: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1446: -- p_validation_level IN VARCHAR2 := 100
1447: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1448: -- p_debug_mode IN VARCHAR2 := 'N'
1449: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1465:
1466: procedure Update_dependency
1467: (
1468: p_api_version IN NUMBER := 1.0
1469: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1470: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1471: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1472: ,p_validation_level IN VARCHAR2 := 100
1473: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1466: procedure Update_dependency
1467: (
1468: p_api_version IN NUMBER := 1.0
1469: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1470: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1471: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1472: ,p_validation_level IN VARCHAR2 := 100
1473: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1474: ,p_debug_mode IN VARCHAR2 := 'N'
1467: (
1468: p_api_version IN NUMBER := 1.0
1469: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1470: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1471: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1472: ,p_validation_level IN VARCHAR2 := 100
1473: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1474: ,p_debug_mode IN VARCHAR2 := 'N'
1475: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1510: IF (p_debug_mode = 'Y') THEN
1511: pa_debug.debug('PA_RELATIONSHIP_PVT.UPDATE_DEPENDENCY begin');
1512: END IF;
1513:
1514: IF (p_commit = FND_API.G_TRUE) THEN
1515: savepoint update_dependency_pvt;
1516: END IF;
1517:
1518: FOR l_obj_rel_rec IN cur_obj_rel LOOP
1554: ,p_record_version_number => p_record_version_number
1555: ,x_return_status => l_return_status
1556: );
1557:
1558: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1559: x_msg_count := FND_MSG_PUB.count_msg;
1560: IF x_msg_count = 1 then
1561: pa_interface_utils_pub.get_messages
1562: (p_encoded => FND_API.G_TRUE,
1558: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1559: x_msg_count := FND_MSG_PUB.count_msg;
1560: IF x_msg_count = 1 then
1561: pa_interface_utils_pub.get_messages
1562: (p_encoded => FND_API.G_TRUE,
1563: p_msg_index => 1,
1564: p_msg_count => l_msg_count,
1565: p_msg_data => l_msg_data,
1566: p_data => l_data,
1566: p_data => l_data,
1567: p_msg_index_out => l_msg_index_out);
1568: x_msg_data := l_data;
1569: END IF;
1570: raise FND_API.G_EXC_ERROR;
1571: END IF;
1572:
1573: END LOOP;
1574:
1571: END IF;
1572:
1573: END LOOP;
1574:
1575: x_return_status := FND_API.G_RET_STS_SUCCESS;
1576:
1577: IF (p_commit = FND_API.G_TRUE) THEN
1578: COMMIT;
1579: END IF;
1573: END LOOP;
1574:
1575: x_return_status := FND_API.G_RET_STS_SUCCESS;
1576:
1577: IF (p_commit = FND_API.G_TRUE) THEN
1578: COMMIT;
1579: END IF;
1580:
1581: IF (p_debug_mode = 'Y') THEN
1582: pa_debug.debug('PA_RELATIONSHIP_PVT.UPDATE_DEPENDENCY END');
1583: END IF;
1584:
1585: EXCEPTION
1586: when FND_API.G_EXC_ERROR then
1587: if p_commit = FND_API.G_TRUE then
1588: rollback to update_dependency_pvt;
1589: end if;
1590: x_return_status := FND_API.G_RET_STS_ERROR;
1583: END IF;
1584:
1585: EXCEPTION
1586: when FND_API.G_EXC_ERROR then
1587: if p_commit = FND_API.G_TRUE then
1588: rollback to update_dependency_pvt;
1589: end if;
1590: x_return_status := FND_API.G_RET_STS_ERROR;
1591: when FND_API.G_EXC_UNEXPECTED_ERROR then
1586: when FND_API.G_EXC_ERROR then
1587: if p_commit = FND_API.G_TRUE then
1588: rollback to update_dependency_pvt;
1589: end if;
1590: x_return_status := FND_API.G_RET_STS_ERROR;
1591: when FND_API.G_EXC_UNEXPECTED_ERROR then
1592: if p_commit = FND_API.G_TRUE then
1593: rollback to update_dependency_pvt;
1594: end if;
1587: if p_commit = FND_API.G_TRUE then
1588: rollback to update_dependency_pvt;
1589: end if;
1590: x_return_status := FND_API.G_RET_STS_ERROR;
1591: when FND_API.G_EXC_UNEXPECTED_ERROR then
1592: if p_commit = FND_API.G_TRUE then
1593: rollback to update_dependency_pvt;
1594: end if;
1595: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1588: rollback to update_dependency_pvt;
1589: end if;
1590: x_return_status := FND_API.G_RET_STS_ERROR;
1591: when FND_API.G_EXC_UNEXPECTED_ERROR then
1592: if p_commit = FND_API.G_TRUE then
1593: rollback to update_dependency_pvt;
1594: end if;
1595: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1596: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
1591: when FND_API.G_EXC_UNEXPECTED_ERROR then
1592: if p_commit = FND_API.G_TRUE then
1593: rollback to update_dependency_pvt;
1594: end if;
1595: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1596: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
1597: p_procedure_name => 'UPDATE_DEPENDENCY',
1598: p_error_text => SUBSTRB(SQLERRM,1,240));
1599: when OTHERS then
1596: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
1597: p_procedure_name => 'UPDATE_DEPENDENCY',
1598: p_error_text => SUBSTRB(SQLERRM,1,240));
1599: when OTHERS then
1600: if p_commit = FND_API.G_TRUE then
1601: rollback to update_dependency_pvt;
1602: end if;
1603: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1604: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
1599: when OTHERS then
1600: if p_commit = FND_API.G_TRUE then
1601: rollback to update_dependency_pvt;
1602: end if;
1603: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1604: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
1605: p_procedure_name => 'UPDATE_DEPENDENCY',
1606: p_error_text => SUBSTRB(SQLERRM,1,240));
1607: raise;
1612: -- Pre-reqs : None
1613: -- Return Value : N/A
1614: -- Parameters
1615: -- p_api_version IN NUMBER := 1.0
1616: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1617: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1618: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1619: -- p_validation_level IN VARCHAR2 := 100
1620: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1613: -- Return Value : N/A
1614: -- Parameters
1615: -- p_api_version IN NUMBER := 1.0
1616: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1617: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1618: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1619: -- p_validation_level IN VARCHAR2 := 100
1620: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1621: -- p_debug_mode IN VARCHAR2 := 'N'
1614: -- Parameters
1615: -- p_api_version IN NUMBER := 1.0
1616: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1617: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1618: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1619: -- p_validation_level IN VARCHAR2 := 100
1620: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1621: -- p_debug_mode IN VARCHAR2 := 'N'
1622: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1634:
1635: procedure Delete_Dependency
1636: (
1637: p_api_version IN NUMBER := 1.0
1638: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1639: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1640: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1641: ,p_validation_level IN VARCHAR2 := 100
1642: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1635: procedure Delete_Dependency
1636: (
1637: p_api_version IN NUMBER := 1.0
1638: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1639: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1640: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1641: ,p_validation_level IN VARCHAR2 := 100
1642: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1643: ,p_debug_mode IN VARCHAR2 := 'N'
1636: (
1637: p_api_version IN NUMBER := 1.0
1638: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1639: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1640: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1641: ,p_validation_level IN VARCHAR2 := 100
1642: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1643: ,p_debug_mode IN VARCHAR2 := 'N'
1644: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1695: IF (p_debug_mode = 'Y') THEN
1696: pa_debug.debug('PA_RELATIONSHIP_PVT.DELETE_DEPENDENCY begin');
1697: END IF;
1698:
1699: IF (p_commit = FND_API.G_TRUE) THEN
1700: savepoint delete_dependency_pvt;
1701: END IF;
1702:
1703: --delete record from object relationships table.
1713: -- if the sturcture ver is published then the process should not allow to delete dependency
1714: IF PA_WORKPLAN_ATTR_UTILS.CHECK_WP_VERSIONING_ENABLED(l_project_id) = 'Y' THEN
1715: IF PA_PROJECT_STRUCTURE_UTILS.Check_Struc_Ver_Published(l_project_id,l_struc_ver_id) = 'Y' THEN
1716: PA_UTILS.ADD_MESSAGE('PA','PA_DEL_DEP_FOR_PUB_STR');
1717: RAISE FND_API.G_EXC_ERROR;
1718: END IF;
1719: END IF;
1720: --
1721: PA_OBJECT_RELATIONSHIPS_PKG.DELETE_ROW (
1735: ,p_record_version_number => cur_obj_rel_rec.record_version_number
1736: ,p_pm_product_code => null
1737: ,x_return_status => l_return_status );
1738:
1739: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1740: x_msg_count := FND_MSG_PUB.count_msg;
1741: IF x_msg_count = 1 then
1742: pa_interface_utils_pub.get_messages
1743: (p_encoded => FND_API.G_TRUE,
1739: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1740: x_msg_count := FND_MSG_PUB.count_msg;
1741: IF x_msg_count = 1 then
1742: pa_interface_utils_pub.get_messages
1743: (p_encoded => FND_API.G_TRUE,
1744: p_msg_index => 1,
1745: p_msg_count => l_msg_count,
1746: p_msg_data => l_msg_data,
1747: p_data => l_data,
1747: p_data => l_data,
1748: p_msg_index_out => l_msg_index_out);
1749: x_msg_data := l_data;
1750: END IF;
1751: raise FND_API.G_EXC_ERROR;
1752: END IF;
1753:
1754: END LOOP;
1755:
1752: END IF;
1753:
1754: END LOOP;
1755:
1756: x_return_status := FND_API.G_RET_STS_SUCCESS;
1757:
1758: IF (p_commit = FND_API.G_TRUE) THEN
1759: COMMIT;
1760: END IF;
1754: END LOOP;
1755:
1756: x_return_status := FND_API.G_RET_STS_SUCCESS;
1757:
1758: IF (p_commit = FND_API.G_TRUE) THEN
1759: COMMIT;
1760: END IF;
1761:
1762: IF (p_debug_mode = 'Y') THEN
1762: IF (p_debug_mode = 'Y') THEN
1763: pa_debug.debug('PA_RELATIONSHIP_PVT.DELETE_DEPENDENCY END');
1764: END IF;
1765: EXCEPTION
1766: when FND_API.G_EXC_ERROR then
1767: if p_commit = FND_API.G_TRUE then
1768: rollback to delete_dependency_pvt;
1769: end if;
1770: x_return_status := FND_API.G_RET_STS_ERROR;
1763: pa_debug.debug('PA_RELATIONSHIP_PVT.DELETE_DEPENDENCY END');
1764: END IF;
1765: EXCEPTION
1766: when FND_API.G_EXC_ERROR then
1767: if p_commit = FND_API.G_TRUE then
1768: rollback to delete_dependency_pvt;
1769: end if;
1770: x_return_status := FND_API.G_RET_STS_ERROR;
1771: when FND_API.G_EXC_UNEXPECTED_ERROR then
1766: when FND_API.G_EXC_ERROR then
1767: if p_commit = FND_API.G_TRUE then
1768: rollback to delete_dependency_pvt;
1769: end if;
1770: x_return_status := FND_API.G_RET_STS_ERROR;
1771: when FND_API.G_EXC_UNEXPECTED_ERROR then
1772: if p_commit = FND_API.G_TRUE then
1773: rollback to delete_dependency_pvt;
1774: end if;
1767: if p_commit = FND_API.G_TRUE then
1768: rollback to delete_dependency_pvt;
1769: end if;
1770: x_return_status := FND_API.G_RET_STS_ERROR;
1771: when FND_API.G_EXC_UNEXPECTED_ERROR then
1772: if p_commit = FND_API.G_TRUE then
1773: rollback to delete_dependency_pvt;
1774: end if;
1775: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1768: rollback to delete_dependency_pvt;
1769: end if;
1770: x_return_status := FND_API.G_RET_STS_ERROR;
1771: when FND_API.G_EXC_UNEXPECTED_ERROR then
1772: if p_commit = FND_API.G_TRUE then
1773: rollback to delete_dependency_pvt;
1774: end if;
1775: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1776: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
1771: when FND_API.G_EXC_UNEXPECTED_ERROR then
1772: if p_commit = FND_API.G_TRUE then
1773: rollback to delete_dependency_pvt;
1774: end if;
1775: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1776: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
1777: p_procedure_name => 'DELETE_DEPENDENCY',
1778: p_error_text => SUBSTRB(SQLERRM,1,240));
1779: when OTHERS then
1776: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
1777: p_procedure_name => 'DELETE_DEPENDENCY',
1778: p_error_text => SUBSTRB(SQLERRM,1,240));
1779: when OTHERS then
1780: if p_commit = FND_API.G_TRUE then
1781: rollback to delete_dependency_pvt;
1782: end if;
1783: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1784: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
1779: when OTHERS then
1780: if p_commit = FND_API.G_TRUE then
1781: rollback to delete_dependency_pvt;
1782: end if;
1783: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1784: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
1785: p_procedure_name => 'DELETE_DEPENDENCY',
1786: p_error_text => SUBSTRB(SQLERRM,1,240));
1787: raise;
2309: ,x_msg_count => x_msg_count
2310: ,x_msg_data => x_msg_data
2311: );
2312:
2313: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2314: x_msg_count := FND_MSG_PUB.count_msg;
2315: IF x_msg_count = 1 then
2316: pa_interface_utils_pub.get_messages
2317: (p_encoded => FND_API.G_TRUE,
2313: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2314: x_msg_count := FND_MSG_PUB.count_msg;
2315: IF x_msg_count = 1 then
2316: pa_interface_utils_pub.get_messages
2317: (p_encoded => FND_API.G_TRUE,
2318: p_msg_index => 1,
2319: p_msg_count => x_msg_count,
2320: p_msg_data => x_msg_data,
2321: p_data => l_data,
2321: p_data => l_data,
2322: p_msg_index_out => l_msg_index_out);
2323: x_msg_data := l_data;
2324: END IF;
2325: raise FND_API.G_EXC_ERROR;
2326: END IF;
2327: END IF; --if found
2328: End Loop;
2329:
2353: ,x_msg_count => x_msg_count
2354: ,x_msg_data => x_msg_data
2355: );
2356:
2357: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2358: x_msg_count := FND_MSG_PUB.count_msg;
2359: IF x_msg_count = 1 then
2360: pa_interface_utils_pub.get_messages
2361: (p_encoded => FND_API.G_TRUE,
2357: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2358: x_msg_count := FND_MSG_PUB.count_msg;
2359: IF x_msg_count = 1 then
2360: pa_interface_utils_pub.get_messages
2361: (p_encoded => FND_API.G_TRUE,
2362: p_msg_index => 1,
2363: p_msg_count => x_msg_count,
2364: p_msg_data => x_msg_data,
2365: p_data => l_data,
2366: p_msg_index_out => l_msg_index_out);
2367: x_msg_data := l_data;
2368: END IF;
2369: close get_struc_dependency;
2370: raise FND_API.G_EXC_ERROR;
2371: END IF;
2372: END Loop;
2373: close get_struc_dependency;
2374: END IF;
2374: END IF;
2375: --end bug 4019845
2376: */
2377:
2378: x_return_status := FND_API.G_RET_STS_SUCCESS;
2379:
2380: EXCEPTION -- 4537865
2381: WHEN FND_API.G_EXC_ERROR THEN
2382: x_msg_count := FND_MSG_PUB.count_msg;
2377:
2378: x_return_status := FND_API.G_RET_STS_SUCCESS;
2379:
2380: EXCEPTION -- 4537865
2381: WHEN FND_API.G_EXC_ERROR THEN
2382: x_msg_count := FND_MSG_PUB.count_msg;
2383: x_return_status := FND_API.G_RET_STS_ERROR;
2384: WHEN OTHERS THEN
2385: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2379:
2380: EXCEPTION -- 4537865
2381: WHEN FND_API.G_EXC_ERROR THEN
2382: x_msg_count := FND_MSG_PUB.count_msg;
2383: x_return_status := FND_API.G_RET_STS_ERROR;
2384: WHEN OTHERS THEN
2385: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2386: x_msg_count := FND_MSG_PUB.count_msg;
2387: --put message
2381: WHEN FND_API.G_EXC_ERROR THEN
2382: x_msg_count := FND_MSG_PUB.count_msg;
2383: x_return_status := FND_API.G_RET_STS_ERROR;
2384: WHEN OTHERS THEN
2385: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2386: x_msg_count := FND_MSG_PUB.count_msg;
2387: --put message
2388: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIPS_PVT',
2389: p_procedure_name => 'Copy_Intra_Dependency',
2459: ,x_msg_count => x_msg_count
2460: ,x_msg_data => x_msg_data
2461: );
2462:
2463: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2464: x_msg_count := FND_MSG_PUB.count_msg;
2465: IF x_msg_count = 1 then
2466: pa_interface_utils_pub.get_messages
2467: (p_encoded => FND_API.G_TRUE,
2463: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2464: x_msg_count := FND_MSG_PUB.count_msg;
2465: IF x_msg_count = 1 then
2466: pa_interface_utils_pub.get_messages
2467: (p_encoded => FND_API.G_TRUE,
2468: p_msg_index => 1,
2469: p_msg_count => x_msg_count,
2470: p_msg_data => x_msg_data,
2471: p_data => l_data,
2471: p_data => l_data,
2472: p_msg_index_out => l_msg_index_out);
2473: x_msg_data := l_data;
2474: END IF;
2475: raise FND_API.G_EXC_ERROR;
2476: END IF;
2477: End If;
2478: End Loop;
2479: -- End of Looping thru destination IDs
2550: ,x_msg_count => x_msg_count
2551: ,x_msg_data => x_msg_data
2552: );
2553: -- 4537865 : This is wrong.Check shud be made against x_return_status :
2554: -- IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2555: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2556: x_msg_count := FND_MSG_PUB.count_msg;
2557: IF x_msg_count = 1 then
2558: pa_interface_utils_pub.get_messages
2551: ,x_msg_data => x_msg_data
2552: );
2553: -- 4537865 : This is wrong.Check shud be made against x_return_status :
2554: -- IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2555: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2556: x_msg_count := FND_MSG_PUB.count_msg;
2557: IF x_msg_count = 1 then
2558: pa_interface_utils_pub.get_messages
2559: (p_encoded => FND_API.G_TRUE,
2555: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2556: x_msg_count := FND_MSG_PUB.count_msg;
2557: IF x_msg_count = 1 then
2558: pa_interface_utils_pub.get_messages
2559: (p_encoded => FND_API.G_TRUE,
2560: p_msg_index => 1,
2561: p_msg_count => x_msg_count,
2562: p_msg_data => x_msg_data,
2563: p_data => l_data,
2563: p_data => l_data,
2564: p_msg_index_out => l_msg_index_out);
2565: x_msg_data := l_data;
2566: END IF;
2567: raise FND_API.G_EXC_ERROR;
2568: END IF;
2569: END IF; --if found
2570: End Loop;
2571: -- End of Looping thru successor IDs
2569: END IF; --if found
2570: End Loop;
2571: -- End of Looping thru successor IDs
2572: --
2573: x_return_status := FND_API.G_RET_STS_SUCCESS;
2574: --
2575: EXCEPTION -- 4537865
2576: WHEN FND_API.G_EXC_ERROR THEN
2577: x_msg_count := FND_MSG_PUB.count_msg;
2572: --
2573: x_return_status := FND_API.G_RET_STS_SUCCESS;
2574: --
2575: EXCEPTION -- 4537865
2576: WHEN FND_API.G_EXC_ERROR THEN
2577: x_msg_count := FND_MSG_PUB.count_msg;
2578: x_return_status := FND_API.G_RET_STS_ERROR;
2579: WHEN OTHERS THEN
2580: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2574: --
2575: EXCEPTION -- 4537865
2576: WHEN FND_API.G_EXC_ERROR THEN
2577: x_msg_count := FND_MSG_PUB.count_msg;
2578: x_return_status := FND_API.G_RET_STS_ERROR;
2579: WHEN OTHERS THEN
2580: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2581: x_msg_count := FND_MSG_PUB.count_msg;
2582: --put message
2576: WHEN FND_API.G_EXC_ERROR THEN
2577: x_msg_count := FND_MSG_PUB.count_msg;
2578: x_return_status := FND_API.G_RET_STS_ERROR;
2579: WHEN OTHERS THEN
2580: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2581: x_msg_count := FND_MSG_PUB.count_msg;
2582: --put message
2583: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIPS_PVT',
2584: p_procedure_name => 'Copy_Inter_Project_Dependency',
2762: ,x_return_status => x_return_status
2763: ,x_msg_count => x_msg_count
2764: ,x_msg_data => x_msg_data
2765: );
2766: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2767: x_msg_count := FND_MSG_PUB.count_msg;
2768: IF x_msg_count = 1 then
2769: pa_interface_utils_pub.get_messages
2770: (p_encoded => FND_API.G_TRUE,
2766: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2767: x_msg_count := FND_MSG_PUB.count_msg;
2768: IF x_msg_count = 1 then
2769: pa_interface_utils_pub.get_messages
2770: (p_encoded => FND_API.G_TRUE,
2771: p_msg_index => 1,
2772: p_msg_count => x_msg_count,
2773: p_msg_data => x_msg_data,
2774: p_data => l_data,
2775: p_msg_index_out => l_msg_index_out);
2776: x_msg_data := l_data;
2777: END IF;
2778: Close Check_Prev_Ver_Exists;
2779: Raise FND_API.G_EXC_ERROR;
2780: END IF;
2781: END LOOP;
2782: Close Check_Prev_Ver_Exists;
2783: End If;
2828: -- ,x_msg_count => x_msg_count
2829: -- ,x_msg_data => x_msg_data
2830: );
2831:
2832: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2833: x_msg_count := FND_MSG_PUB.count_msg;
2834: /* IF x_msg_count = 1 then
2835: pa_interface_utils_pub.get_messages
2836: (p_encoded => FND_API.G_TRUE,
2832: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2833: x_msg_count := FND_MSG_PUB.count_msg;
2834: /* IF x_msg_count = 1 then
2835: pa_interface_utils_pub.get_messages
2836: (p_encoded => FND_API.G_TRUE,
2837: p_msg_index => 1,
2838: p_msg_count => x_msg_count,
2839: p_msg_data => x_msg_data,
2840: p_data => l_data,
2841: p_msg_index_out => l_msg_index_out);
2842: x_msg_data := l_data;
2843: END IF; */
2844: Close Create_Proj_Depend;
2845: Raise FND_API.G_EXC_ERROR;
2846: END IF;
2847: END LOOP;
2848: Close Create_Proj_Depend;
2849: --------------------------------- End of Step 2
2907: -- ,x_msg_count => x_msg_count
2908: -- ,x_msg_data => x_msg_data
2909: );
2910:
2911: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2912: x_msg_count := FND_MSG_PUB.count_msg;
2913: /* IF x_msg_count = 1 then
2914: pa_interface_utils_pub.get_messages
2915: (p_encoded => FND_API.G_TRUE,
2911: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2912: x_msg_count := FND_MSG_PUB.count_msg;
2913: /* IF x_msg_count = 1 then
2914: pa_interface_utils_pub.get_messages
2915: (p_encoded => FND_API.G_TRUE,
2916: p_msg_index => 1,
2917: p_msg_count => x_msg_count,
2918: p_msg_data => x_msg_data,
2919: p_data => l_data,
2920: p_msg_index_out => l_msg_index_out);
2921: x_msg_data := l_data;
2922: END IF; */
2923: Close Update_Publ_Ver;
2924: Raise FND_API.G_EXC_ERROR;
2925: END IF;
2926:
2927: /*
2928: PA_RELATIONSHIP_PVT.Delete_Relationship (
2932: ,x_msg_count => x_msg_count
2933: ,x_msg_data => x_msg_data
2934: );
2935:
2936: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2937: x_msg_count := FND_MSG_PUB.count_msg;
2938: Close Update_Publ_Ver;
2939: Raise FND_API.G_EXC_ERROR;
2940: END IF;
2935:
2936: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2937: x_msg_count := FND_MSG_PUB.count_msg;
2938: Close Update_Publ_Ver;
2939: Raise FND_API.G_EXC_ERROR;
2940: END IF;
2941: */
2942:
2943: END LOOP;
2958: ,x_msg_count => x_msg_count
2959: ,x_msg_data => x_msg_data
2960: );
2961:
2962: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2963: x_msg_count := FND_MSG_PUB.count_msg;
2964: IF x_msg_count = 1 Then
2965: pa_interface_utils_pub.get_messages
2966: (p_encoded => FND_API.G_TRUE,
2962: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2963: x_msg_count := FND_MSG_PUB.count_msg;
2964: IF x_msg_count = 1 Then
2965: pa_interface_utils_pub.get_messages
2966: (p_encoded => FND_API.G_TRUE,
2967: p_msg_index => 1,
2968: p_msg_count => x_msg_count,
2969: p_msg_data => x_msg_data,
2970: p_data => l_data,
2970: p_data => l_data,
2971: p_msg_index_out => l_msg_index_out);
2972: x_msg_data := l_data;
2973: END IF;
2974: Raise FND_API.G_EXC_ERROR;
2975: END IF;
2976: End Loop;
2977: Close Delete_Publ_Ver;
2978: */
2976: End Loop;
2977: Close Delete_Publ_Ver;
2978: */
2979: EXCEPTION -- 4537865
2980: WHEN FND_API.G_EXC_ERROR THEN
2981: x_msg_count := FND_MSG_PUB.count_msg;
2982: x_return_status := FND_API.G_RET_STS_ERROR;
2983: WHEN OTHERS THEN
2984: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2978: */
2979: EXCEPTION -- 4537865
2980: WHEN FND_API.G_EXC_ERROR THEN
2981: x_msg_count := FND_MSG_PUB.count_msg;
2982: x_return_status := FND_API.G_RET_STS_ERROR;
2983: WHEN OTHERS THEN
2984: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2985: x_msg_count := FND_MSG_PUB.count_msg;
2986: --put message
2980: WHEN FND_API.G_EXC_ERROR THEN
2981: x_msg_count := FND_MSG_PUB.count_msg;
2982: x_return_status := FND_API.G_RET_STS_ERROR;
2983: WHEN OTHERS THEN
2984: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2985: x_msg_count := FND_MSG_PUB.count_msg;
2986: --put message
2987: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIPS_PVT',
2988: p_procedure_name => 'Copy_Intra_Dependency',
2990: RAISE;
2991:
2992: End Publish_Inter_Proj_Dep;
2993: --
2994: PROCEDURE Insert_Subproject_Association( p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2995: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2996: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2997: ,p_validation_level IN VARCHAR2 := 100
2998: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2991:
2992: End Publish_Inter_Proj_Dep;
2993: --
2994: PROCEDURE Insert_Subproject_Association( p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2995: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2996: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2997: ,p_validation_level IN VARCHAR2 := 100
2998: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2999: ,p_debug_mode IN VARCHAR2 := 'N'
2992: End Publish_Inter_Proj_Dep;
2993: --
2994: PROCEDURE Insert_Subproject_Association( p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2995: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2996: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2997: ,p_validation_level IN VARCHAR2 := 100
2998: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2999: ,p_debug_mode IN VARCHAR2 := 'N'
3000: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3058: IF (p_debug_mode = 'Y') THEN
3059: pa_debug.debug('PA_RELATIONSHIP_PVT.Insert_Subproject_Association begin');
3060: END IF;
3061: --
3062: IF (p_commit = FND_API.G_TRUE) THEN
3063: savepoint Insert_Subproject_Association;
3064: END IF;
3065: --
3066: IF (p_debug_mode = 'Y') THEN
3072: END IF;
3073: --
3074: /* Creating linking task in the pa_proj_elements table*/
3075: PA_TASK_PUB1.CREATE_TASK
3076: ( p_validate_only => FND_API.G_FALSE
3077: ,p_object_type => 'PA_TASKS'
3078: ,p_project_id => p_src_proj_id
3079: ,p_structure_id => p_src_struc_elem_id --Proj_element_id of the parent structure
3080: ,p_ref_task_id => p_src_task_elem_id --proj_element_id of the ref task
3089: ,x_task_id => x_lnk_task_elem_id
3090: ,x_return_status => x_return_status
3091: ,x_msg_count => x_msg_count
3092: ,x_msg_data => x_msg_data);
3093: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3094: x_msg_count := FND_MSG_PUB.count_msg;
3095: IF x_msg_count = 1 THEN
3096: pa_interface_utils_pub.get_messages
3097: (p_encoded => FND_API.G_TRUE,
3093: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3094: x_msg_count := FND_MSG_PUB.count_msg;
3095: IF x_msg_count = 1 THEN
3096: pa_interface_utils_pub.get_messages
3097: (p_encoded => FND_API.G_TRUE,
3098: p_msg_index => 1,
3099: p_msg_count => x_msg_count,
3100: p_msg_data => x_msg_data,
3101: p_data => l_data,
3101: p_data => l_data,
3102: p_msg_index_out => l_msg_index_out);
3103: x_msg_data := l_data;
3104: END IF;
3105: RAISE FND_API.G_EXC_ERROR;
3106: END IF;
3107: --
3108: --Added the following code
3109: -- Modified from substr(x_lnk_task_elem_id,-1,1) to x_lnk_task_elem_id for bug #4480013
3110: UPDATE PA_PROJ_ELEMENTS
3111: SET ELEMENT_NUMBER = substr(p_lnk_task_name_number,0,25)||x_lnk_task_elem_id
3112: WHERE PROJ_ELEMENT_ID = x_lnk_task_elem_id;
3113: IF SQL%NOTFOUND THEN
3114: x_return_status:=FND_API.G_RET_STS_ERROR;
3115: END IF;
3116: --
3117: IF (p_debug_mode = 'Y') THEN
3118: pa_debug.debug('After Call To PA_TASK_PUB1.CREATE_TASK Return Status => '||x_return_status);
3124: /* Creating linking task in the pa_proj_element_versions and pa_object_relationships table */
3125: /* This API call create task in pa_proj_element_versions and creates relationship between */
3126: /* linking task and its parent task in the pa_object_relationships table */
3127: PA_TASK_PUB1.CREATE_TASK_VERSION
3128: ( p_validate_only => FND_API.G_FALSE
3129: ,p_validation_level => 0
3130: ,p_ref_task_version_id => p_src_task_elem_ver_id
3131: ,p_peer_or_sub => 'SUB'
3132: ,p_task_id => x_lnk_task_elem_id
3133: ,x_task_version_id => x_lnk_task_elem_ver_id
3134: ,x_return_status => x_return_status
3135: ,x_msg_count => x_msg_count
3136: ,x_msg_data => x_msg_data);
3137: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3138: x_msg_count := FND_MSG_PUB.count_msg;
3139: IF x_msg_count = 1 THEN
3140: pa_interface_utils_pub.get_messages
3141: (p_encoded => FND_API.G_TRUE,
3137: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3138: x_msg_count := FND_MSG_PUB.count_msg;
3139: IF x_msg_count = 1 THEN
3140: pa_interface_utils_pub.get_messages
3141: (p_encoded => FND_API.G_TRUE,
3142: p_msg_index => 1,
3143: p_msg_count => x_msg_count,
3144: p_msg_data => x_msg_data,
3145: p_data => l_data,
3145: p_data => l_data,
3146: p_msg_index_out => l_msg_index_out);
3147: x_msg_data := l_data;
3148: END IF;
3149: RAISE FND_API.G_EXC_ERROR;
3150: END IF;
3151: --
3152: IF (p_debug_mode = 'Y') THEN
3153: pa_debug.debug('After Call To PA_TASK_PUB1.CREATE_TASK_VERSION Return Status => '||x_return_status);
3213:
3214: /* Create recrod into work pa_proj_elem_ver_schedule table for workplan structure only*/
3215: IF p_src_struc_wp_or_fin = 'WORKPLAN' THEN
3216: PA_TASK_PUB1.Create_Schedule_Version
3217: ( p_validate_only =>FND_API.G_FALSE
3218: ,p_element_version_id =>x_lnk_task_elem_ver_id --task version of linking task
3219: ,p_scheduled_start_date =>l_scheduled_start_date
3220: ,p_scheduled_end_date =>l_scheduled_finish_date
3221: ,x_pev_schedule_id =>x_pev_schedule_id
3226: IF (p_debug_mode = 'Y') THEN
3227: pa_debug.debug('new workplan attr for task after call to PA_TASK_PUB1.Create_Schedule_Version=> '||x_pev_schedule_id);
3228: END IF;
3229: --
3230: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3231: x_msg_count := FND_MSG_PUB.count_msg;
3232: IF x_msg_count = 1 THEN
3233: pa_interface_utils_pub.get_messages
3234: (p_encoded => FND_API.G_TRUE,
3230: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3231: x_msg_count := FND_MSG_PUB.count_msg;
3232: IF x_msg_count = 1 THEN
3233: pa_interface_utils_pub.get_messages
3234: (p_encoded => FND_API.G_TRUE,
3235: p_msg_index => 1,
3236: p_msg_count => x_msg_count,
3237: p_msg_data => x_msg_data,
3238: p_data => l_data,
3238: p_data => l_data,
3239: p_msg_index_out => l_msg_index_out);
3240: x_msg_data := l_data;
3241: END IF;
3242: RAISE FND_API.G_EXC_ERROR;
3243: END IF;
3244: END IF;
3245: --
3246: IF (p_debug_mode = 'Y') THEN
3278: -- ,p_comments => null
3279: ,p_comments => p_comment --Bug No 3668113
3280: ,p_status_code => null
3281: );
3282: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3283: x_msg_count := FND_MSG_PUB.count_msg;
3284: IF x_msg_count = 1 THEN
3285: pa_interface_utils_pub.get_messages
3286: (p_encoded => FND_API.G_TRUE,
3282: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3283: x_msg_count := FND_MSG_PUB.count_msg;
3284: IF x_msg_count = 1 THEN
3285: pa_interface_utils_pub.get_messages
3286: (p_encoded => FND_API.G_TRUE,
3287: p_msg_index => 1,
3288: p_msg_count => x_msg_count,
3289: p_msg_data => x_msg_data,
3290: p_data => l_data,
3290: p_data => l_data,
3291: p_msg_index_out => l_msg_index_out);
3292: x_msg_data := l_data;
3293: END IF;
3294: RAISE FND_API.G_EXC_ERROR;
3295: END IF;
3296: --
3297: /* 4541039
3298: --bug 4238036
3315: x_msg_count => x_msg_count,
3316: x_msg_data => x_msg_data
3317: );
3318:
3319: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3320: x_msg_count := FND_MSG_PUB.count_msg;
3321: IF x_msg_count = 1 THEN
3322: pa_interface_utils_pub.get_messages
3323: (p_encoded => FND_API.G_TRUE,
3319: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3320: x_msg_count := FND_MSG_PUB.count_msg;
3321: IF x_msg_count = 1 THEN
3322: pa_interface_utils_pub.get_messages
3323: (p_encoded => FND_API.G_TRUE,
3324: p_msg_index => 1,
3325: p_msg_count => x_msg_count,
3326: p_msg_data => x_msg_data,
3327: p_data => l_data,
3327: p_data => l_data,
3328: p_msg_index_out => l_msg_index_out);
3329: x_msg_data := l_data;
3330: END IF;
3331: RAISE FND_API.G_EXC_ERROR;
3332: END IF;
3333: --bug 4296915
3334: END IF;
3335: CLOSE check_child_pub;
3359:
3360: -- Bug # 4329284.
3361:
3362: PA_UTILS.ADD_MESSAGE('PA','PA_CRT_SUBPROJ_VAL_FAIL','PROJ',l_proj_name,'PROG',l_prog_name); -- Bug # 4329284.
3363: RAISE FND_API.G_EXC_ERROR;
3364: END IF;
3365: IF (p_debug_mode = 'Y') THEN
3366: pa_debug.debug('Return Status PA_RELATIONSHIP_PUB.UPDATE_PROGRAM_GROUPS=> '||l_upd_prog_grp_status);
3367: END IF;
3369: EXCEPTION
3370:
3371: -- Begin fix for Bug # 4485908.
3372:
3373: WHEN FND_API.G_EXC_ERROR THEN
3374:
3375: RAISE FND_API.G_EXC_ERROR;
3376:
3377: -- End fix for Bug # 4485908.
3371: -- Begin fix for Bug # 4485908.
3372:
3373: WHEN FND_API.G_EXC_ERROR THEN
3374:
3375: RAISE FND_API.G_EXC_ERROR;
3376:
3377: -- End fix for Bug # 4485908.
3378:
3379: WHEN OTHERS THEN
3379: WHEN OTHERS THEN
3380: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
3381: p_procedure_name => 'Insert_Subproject_Association',
3382: p_error_text => SUBSTRB('PA_RELATIONSHIP_PUB.UPDATE_PROGRAM_GROUPS:'||SQLERRM,1,240));
3383: RAISE FND_API.G_EXC_ERROR;
3384: END;
3385: --
3386: IF (p_debug_mode = 'Y') THEN
3387: pa_debug.debug('After Call To PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Return Status => '||x_return_status);
3386: IF (p_debug_mode = 'Y') THEN
3387: pa_debug.debug('After Call To PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Return Status => '||x_return_status);
3388: END IF;
3389: --
3390: x_return_status := FND_API.G_RET_STS_SUCCESS;
3391: --
3392: IF (p_commit = FND_API.G_TRUE) THEN
3393: COMMIT;
3394: END IF;
3388: END IF;
3389: --
3390: x_return_status := FND_API.G_RET_STS_SUCCESS;
3391: --
3392: IF (p_commit = FND_API.G_TRUE) THEN
3393: COMMIT;
3394: END IF;
3395: --
3396: IF (p_debug_mode = 'Y') THEN
3397: pa_debug.debug('PA_RELATIONSHIP_PVT.Insert_Subproject_Association END');
3398: END IF;
3399: --
3400: EXCEPTION
3401: WHEN FND_API.G_EXC_ERROR THEN
3402: IF (p_commit = FND_API.G_TRUE) THEN
3403: ROLLBACK to Insert_Subproject_Association;
3404: END IF;
3405: -- RESET OUT PARAMS 4537865
3398: END IF;
3399: --
3400: EXCEPTION
3401: WHEN FND_API.G_EXC_ERROR THEN
3402: IF (p_commit = FND_API.G_TRUE) THEN
3403: ROLLBACK to Insert_Subproject_Association;
3404: END IF;
3405: -- RESET OUT PARAMS 4537865
3406: x_lnk_task_elem_id := NULL ;
3408: x_object_relationship_id := NULL ;
3409: x_pev_schedule_id := NULL;
3410:
3411: x_msg_count := FND_MSG_PUB.count_msg;
3412: x_return_status := FND_API.G_RET_STS_ERROR;
3413: WHEN OTHERS THEN
3414: IF (p_commit = FND_API.G_TRUE) THEN
3415: ROLLBACK to Insert_Subproject_Association;
3416: END IF;
3410:
3411: x_msg_count := FND_MSG_PUB.count_msg;
3412: x_return_status := FND_API.G_RET_STS_ERROR;
3413: WHEN OTHERS THEN
3414: IF (p_commit = FND_API.G_TRUE) THEN
3415: ROLLBACK to Insert_Subproject_Association;
3416: END IF;
3417: -- RESET OUT PARAMS 4537865
3418: x_lnk_task_elem_id := NULL ;
3419: x_lnk_task_elem_ver_id := NULL ;
3420: x_object_relationship_id := NULL ;
3421: x_pev_schedule_id := NULL;
3422:
3423: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3424: x_msg_count := FND_MSG_PUB.count_msg;
3425: --put message
3426: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
3427: p_procedure_name => 'Insert_Subproject_Association',
3436: -- Pre-reqs : None
3437: -- Return Value : N/A
3438: -- Parameters
3439: -- p_api_version IN NUMBER :=1.0
3440: -- p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
3441: -- p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
3442: -- p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
3443: -- p_calling_module IN VARCHAR2 :='SELF_SERVICE'
3444: -- p_commit IN VARCHAR2 :=FND_API.G_FALSE
3437: -- Return Value : N/A
3438: -- Parameters
3439: -- p_api_version IN NUMBER :=1.0
3440: -- p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
3441: -- p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
3442: -- p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
3443: -- p_calling_module IN VARCHAR2 :='SELF_SERVICE'
3444: -- p_commit IN VARCHAR2 :=FND_API.G_FALSE
3445: -- p_debug_mode IN VARCHAR2 :='N'
3438: -- Parameters
3439: -- p_api_version IN NUMBER :=1.0
3440: -- p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
3441: -- p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
3442: -- p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
3443: -- p_calling_module IN VARCHAR2 :='SELF_SERVICE'
3444: -- p_commit IN VARCHAR2 :=FND_API.G_FALSE
3445: -- p_debug_mode IN VARCHAR2 :='N'
3446: -- p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3440: -- p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
3441: -- p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
3442: -- p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
3443: -- p_calling_module IN VARCHAR2 :='SELF_SERVICE'
3444: -- p_commit IN VARCHAR2 :=FND_API.G_FALSE
3445: -- p_debug_mode IN VARCHAR2 :='N'
3446: -- p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3447: -- p_src_proj_id IN pa_projects_all.project_id%type
3448: -- p_task_ver_id IN pa_proj_element_versions.element_version_id%type
3463: -- 03-DEC-2008 rkartha Bug#7427161: Modified the declaration of l_task_name with PA_PROJ_ELEMENTS.NAME%TYPE
3464: -- so as to avoid the numeric or value error.
3465: --
3466: Procedure Create_Subproject_Association(p_api_version IN NUMBER :=1.0,
3467: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
3468: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
3469: -- p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
3470: p_validation_level IN VARCHAR2 := 100,
3471: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
3464: -- so as to avoid the numeric or value error.
3465: --
3466: Procedure Create_Subproject_Association(p_api_version IN NUMBER :=1.0,
3467: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
3468: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
3469: -- p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
3470: p_validation_level IN VARCHAR2 := 100,
3471: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
3472: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
3465: --
3466: Procedure Create_Subproject_Association(p_api_version IN NUMBER :=1.0,
3467: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
3468: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
3469: -- p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
3470: p_validation_level IN VARCHAR2 := 100,
3471: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
3472: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
3473: p_debug_mode IN VARCHAR2 :='N',
3468: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
3469: -- p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
3470: p_validation_level IN VARCHAR2 := 100,
3471: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
3472: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
3473: p_debug_mode IN VARCHAR2 :='N',
3474: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
3475: p_src_proj_id IN pa_projects_all.project_id%type,
3476: p_task_ver_id IN pa_proj_element_versions.element_version_id%type,
3565: IF (p_debug_mode = 'Y') THEN
3566: pa_debug.debug('PA_RELATIONSHIP_PVT.Create_Subproject_Association begin');
3567: END IF;
3568: --
3569: IF (p_commit = FND_API.G_TRUE) THEN
3570: savepoint Create_Subproject_Ass_pvt;
3571: END IF;
3572: --
3573: IF (p_debug_mode = 'Y') THEN
3662: --Bug 3912783:
3663: IF (PA_RELATIONSHIP_UTILS.Check_proj_currency_identical(p_src_proj_id,p_dest_proj_id) = 'N') THEN
3664: -- 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.
3665: PA_UTILS.ADD_MESSAGE('PA','PA_PS_LINK_DIFF_PRJ_CURR','PROJ',l_proj_name,'PROG',l_prog_name); -- Bug # 4871876.
3666: RAISE FND_API.G_EXC_ERROR;
3667: END IF;
3668: --end bug 3912783
3669:
3670: --
3762: l_time_phase2 := PA_FIN_PLAN_UTILS.Get_wp_bv_time_phase(l_dest_wp_str_ver_id);
3763: IF (l_time_phase1 <> l_time_phase2) THEN
3764: -- 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.
3765: PA_UTILS.ADD_MESSAGE('PA','PA_PS_LINK_DIFF_TIME_PHASE','PROJ',l_proj_name,'PROG',l_prog_name); -- Bug # 4871876.
3766: RAISE FND_API.G_EXC_ERROR;
3767: END IF;
3768: END IF;
3769: END IF;
3770: --end bug 4272730
3785: IF l_src_period_duration.pa_period_set_name <> l_dest_period_duration.pa_period_set_name OR
3786: l_src_period_duration.pa_period_type <> l_dest_period_duration.pa_period_type
3787: THEN
3788: PA_UTILS.ADD_MESSAGE('PA','PA_PS_LINK_DIFF_PA_CAL','PROJ',l_proj_name,'PROG',l_prog_name); -- Bug # 4329284.
3789: RAISE FND_API.G_EXC_ERROR;
3790: END IF;
3791:
3792: ELSIF l_time_phase1 = 'G' AND l_time_phase2 = 'G'
3793: THEN
3794: IF l_src_period_duration.gl_period_set_name <> l_dest_period_duration.gl_period_set_name OR
3795: l_src_period_duration.accounted_period_type <> l_dest_period_duration.accounted_period_type
3796: THEN
3797: PA_UTILS.ADD_MESSAGE('PA','PA_PS_LINK_DIFF_GL_CAL','PROJ',l_proj_name,'PROG',l_prog_name); -- Bug # 4329284.
3798: RAISE FND_API.G_EXC_ERROR;
3799: END IF;
3800: END IF;
3801: END IF;
3802: --end bug 4297370
3835: PA_UTILS.ADD_MESSAGE('PA','PA_CRT_SUBPROJ_VAL_FAIL','PROJ',l_proj_name,'PROG',l_prog_name); -- Bug # 4329284.
3836:
3837: end if; -- Fix for Bug # 4256435.
3838:
3839: RAISE FND_API.G_EXC_ERROR;
3840: END IF;
3841: END IF;
3842: --end bug 3983361
3843: */
3846: IF l_src_str_wp_enable_fl = 'Y' AND l_dest_wp_str_ver_id IS NOT NULL THEN
3847: l_create_relationship_ok := PA_RELATIONSHIP_UTILS.CREATE_SUB_PROJ_ASSO_OK(p_task_ver_id,p_dest_proj_id,'WORKPLAN');
3848: IF l_create_relationship_ok = 'N' THEN
3849: PA_UTILS.ADD_MESSAGE('PA','PA_CRT_SUBPROJ_VAL_FAIL','PROJ',l_proj_name,'PROG',l_prog_name); -- Bug # 4329284.
3850: RAISE FND_API.G_EXC_ERROR;
3851: END IF;
3852: END IF;
3853:
3854: 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
3854: 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
3855: l_create_relationship_ok := PA_RELATIONSHIP_UTILS.CREATE_SUB_PROJ_ASSO_OK(p_task_ver_id,p_dest_proj_id,'FINANCIAL');
3856: IF l_create_relationship_ok = 'N' THEN
3857: PA_UTILS.ADD_MESSAGE('PA','PA_CRT_SUBPROJ_VAL_FAIL','PROJ',l_proj_name,'PROG',l_prog_name); -- Bug # 4329284.
3858: RAISE FND_API.G_EXC_ERROR;
3859: END IF;
3860: END IF;
3861: -- 4473103 : End
3862:
3873: /* --bug 3983361
3874: IF p_validation_level > 0 THEN
3875: IF PA_RELATIONSHIP_UTILS.CREATE_SUB_PROJ_ASSO_OK(p_task_ver_id,p_dest_proj_id) = 'N' THEN --SMukka
3876: PA_UTILS.ADD_MESSAGE('PA','PA_CRT_SUBPROJ_VAL_FAIL','PROJ',l_proj_name,'PROG',l_prog_name); -- Bug # 4329284.
3877: RAISE FND_API.G_EXC_ERROR;
3878: END IF;
3879: END IF;
3880: */
3881: IF (p_debug_mode = 'Y') THEN
3910: ,x_msg_count => x_msg_count
3911: ,x_msg_data => x_msg_data
3912: );
3913: --
3914: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3915: x_msg_count := FND_MSG_PUB.count_msg;
3916: IF x_msg_count = 1 then
3917: pa_interface_utils_pub.get_messages
3918: (p_encoded => FND_API.G_TRUE,
3914: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3915: x_msg_count := FND_MSG_PUB.count_msg;
3916: IF x_msg_count = 1 then
3917: pa_interface_utils_pub.get_messages
3918: (p_encoded => FND_API.G_TRUE,
3919: p_msg_index => 1,
3920: p_msg_count => x_msg_count,
3921: p_msg_data => x_msg_data,
3922: p_data => l_data,
3922: p_data => l_data,
3923: p_msg_index_out => l_msg_index_out);
3924: x_msg_data := l_data;
3925: END IF;
3926: raise FND_API.G_EXC_ERROR;
3927: END IF;
3928: --
3929: /* For Financial */
3930: -- IF l_src_task_financial_flag='Y' THEN --No need to check for fully shared project
3940: /* --bug 3983361
3941: IF p_validation_level > 0 THEN
3942: IF PA_RELATIONSHIP_UTILS.CREATE_SUB_PROJ_ASSO_OK(p_task_ver_id,p_dest_proj_id, 'FINANCIAL') = 'N' THEN --SMukka
3943: PA_UTILS.ADD_MESSAGE('PA','PA_CRT_SUBPROJ_VAL_FAIL','PROJ',l_proj_name,'PROG',l_prog_name); -- Bug # 4329284.
3944: RAISE FND_API.G_EXC_ERROR;
3945: END IF;
3946: END IF;
3947: */
3948: IF (p_debug_mode = 'Y') THEN
3978: ,x_msg_count => x_msg_count
3979: ,x_msg_data => x_msg_data
3980: );
3981: --
3982: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3983: x_msg_count := FND_MSG_PUB.count_msg;
3984: IF x_msg_count = 1 then
3985: pa_interface_utils_pub.get_messages
3986: (p_encoded => FND_API.G_TRUE,
3982: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3983: x_msg_count := FND_MSG_PUB.count_msg;
3984: IF x_msg_count = 1 then
3985: pa_interface_utils_pub.get_messages
3986: (p_encoded => FND_API.G_TRUE,
3987: p_msg_index => 1,
3988: p_msg_count => x_msg_count,
3989: p_msg_data => x_msg_data,
3990: p_data => l_data,
3990: p_data => l_data,
3991: p_msg_index_out => l_msg_index_out);
3992: x_msg_data := l_data;
3993: END IF;
3994: raise FND_API.G_EXC_ERROR;
3995: END IF;
3996: --
3997: --END IF; --financial task flag is Y
3998: ELSE
4007: /* --bug 3983361
4008: IF p_validation_level > 0 THEN
4009: IF PA_RELATIONSHIP_UTILS.CREATE_SUB_PROJ_ASSO_OK(p_task_ver_id,p_dest_proj_id) = 'N' THEN --SMukka
4010: PA_UTILS.ADD_MESSAGE('PA','PA_CRT_SUBPROJ_VAL_FAIL','PROJ',l_proj_name,'PROG',l_prog_name); -- Bug # 4329284.
4011: RAISE FND_API.G_EXC_ERROR;
4012: END IF;
4013: END IF;
4014: */
4015: IF (p_debug_mode = 'Y') THEN
4045: ,x_msg_count => x_msg_count
4046: ,x_msg_data => x_msg_data
4047: );
4048: --
4049: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4050: x_msg_count := FND_MSG_PUB.count_msg;
4051: IF x_msg_count = 1 then
4052: pa_interface_utils_pub.get_messages
4053: (p_encoded => FND_API.G_TRUE,
4049: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4050: x_msg_count := FND_MSG_PUB.count_msg;
4051: IF x_msg_count = 1 then
4052: pa_interface_utils_pub.get_messages
4053: (p_encoded => FND_API.G_TRUE,
4054: p_msg_index => 1,
4055: p_msg_count => x_msg_count,
4056: p_msg_data => x_msg_data,
4057: p_data => l_data,
4057: p_data => l_data,
4058: p_msg_index_out => l_msg_index_out);
4059: x_msg_data := l_data;
4060: END IF;
4061: raise FND_API.G_EXC_ERROR;
4062: END IF;
4063: --
4064: END IF; --l_dest_wp_str_ver_id is not null and l_src_str_wp_enable_fl is Y
4065: IF l_dest_fin_str_ver_id IS NOT NULL AND
4076: /* --bug 3983361
4077: IF p_validation_level > 0 THEN
4078: IF PA_RELATIONSHIP_UTILS.CREATE_SUB_PROJ_ASSO_OK(p_task_ver_id,p_dest_proj_id, 'FINANCIAL') = 'N' THEN --SMukka
4079: PA_UTILS.ADD_MESSAGE('PA','PA_CRT_SUBPROJ_VAL_FAIL','PROJ',l_proj_name,'PROG',l_prog_name); -- Bug # 4329284.
4080: RAISE FND_API.G_EXC_ERROR;
4081: END IF;
4082: END IF;
4083: */
4084: IF (p_debug_mode = 'Y') THEN
4113: ,x_return_status => x_return_status
4114: ,x_msg_count => x_msg_count
4115: ,x_msg_data => x_msg_data
4116: );
4117: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4118: x_msg_count := FND_MSG_PUB.count_msg;
4119: IF x_msg_count = 1 then
4120: pa_interface_utils_pub.get_messages
4121: (p_encoded => FND_API.G_TRUE,
4117: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4118: x_msg_count := FND_MSG_PUB.count_msg;
4119: IF x_msg_count = 1 then
4120: pa_interface_utils_pub.get_messages
4121: (p_encoded => FND_API.G_TRUE,
4122: p_msg_index => 1,
4123: p_msg_count => x_msg_count,
4124: p_msg_data => x_msg_data,
4125: p_data => l_data,
4125: p_data => l_data,
4126: p_msg_index_out => l_msg_index_out);
4127: x_msg_data := l_data;
4128: END IF;
4129: raise FND_API.G_EXC_ERROR;
4130: END IF;
4131: 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
4132: END IF; --src and dest project sharing code are SHARE_FULL
4133: --
4137: pa_debug.debug('After call to ISPA Object_Relationship_Id => '||x_object_relationship_id);
4138: pa_debug.debug('After call to ISPA WP Attr schedule Id => '||l_pev_schedule_id);
4139: END IF;
4140: --
4141: IF (p_commit = FND_API.G_TRUE) THEN
4142: COMMIT;
4143: END IF;
4144: --
4145:
4234: ,x_return_status => x_return_status
4235: ,x_msg_count => x_msg_count
4236: ,x_msg_data => x_msg_data);
4237:
4238: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
4239: x_msg_count := FND_MSG_PUB.count_msg;
4240: IF x_msg_count = 1 then
4241: pa_interface_utils_pub.get_messages
4242: (p_encoded => FND_API.G_TRUE,
4238: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
4239: x_msg_count := FND_MSG_PUB.count_msg;
4240: IF x_msg_count = 1 then
4241: pa_interface_utils_pub.get_messages
4242: (p_encoded => FND_API.G_TRUE,
4243: p_msg_index => 1,
4244: p_msg_count => x_msg_count,
4245: p_msg_data => x_msg_data,
4246: p_data => l_data,
4246: p_data => l_data,
4247: p_msg_index_out => l_msg_index_out);
4248: x_msg_data := l_data;
4249: END IF;
4250: raise FND_API.G_EXC_ERROR;
4251: end if;
4252: END IF; --Bug#8889029
4253: END IF;
4254: --bug 4370533 --Issue #3
4252: END IF; --Bug#8889029
4253: END IF;
4254: --bug 4370533 --Issue #3
4255:
4256: x_return_status := FND_API.G_RET_STS_SUCCESS;
4257: --
4258: IF (p_debug_mode = 'Y') THEN
4259: pa_debug.debug('PA_RELATIONSHIP_PVT.Create_Subproject_Association end');
4260: END IF;
4259: pa_debug.debug('PA_RELATIONSHIP_PVT.Create_Subproject_Association end');
4260: END IF;
4261: --
4262: EXCEPTION
4263: WHEN FND_API.G_EXC_ERROR THEN
4264: IF (p_commit = FND_API.G_TRUE) THEN
4265: ROLLBACK to Create_Subproject_Ass_pvt;
4266: END IF;
4267: x_msg_count := FND_MSG_PUB.count_msg;
4260: END IF;
4261: --
4262: EXCEPTION
4263: WHEN FND_API.G_EXC_ERROR THEN
4264: IF (p_commit = FND_API.G_TRUE) THEN
4265: ROLLBACK to Create_Subproject_Ass_pvt;
4266: END IF;
4267: x_msg_count := FND_MSG_PUB.count_msg;
4268: x_return_status := FND_API.G_RET_STS_ERROR;
4264: IF (p_commit = FND_API.G_TRUE) THEN
4265: ROLLBACK to Create_Subproject_Ass_pvt;
4266: END IF;
4267: x_msg_count := FND_MSG_PUB.count_msg;
4268: x_return_status := FND_API.G_RET_STS_ERROR;
4269: WHEN OTHERS THEN
4270: IF (p_commit = FND_API.G_TRUE) THEN
4271: ROLLBACK to Create_Subproject_Ass_pvt;
4272: END IF;
4266: END IF;
4267: x_msg_count := FND_MSG_PUB.count_msg;
4268: x_return_status := FND_API.G_RET_STS_ERROR;
4269: WHEN OTHERS THEN
4270: IF (p_commit = FND_API.G_TRUE) THEN
4271: ROLLBACK to Create_Subproject_Ass_pvt;
4272: END IF;
4273: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4274: x_msg_count := FND_MSG_PUB.count_msg;
4269: WHEN OTHERS THEN
4270: IF (p_commit = FND_API.G_TRUE) THEN
4271: ROLLBACK to Create_Subproject_Ass_pvt;
4272: END IF;
4273: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4274: x_msg_count := FND_MSG_PUB.count_msg;
4275: --put message
4276: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
4277: p_procedure_name => 'Create_Subproject_Association',
4286: -- Pre-reqs : None
4287: -- Return Value : N/A
4288: -- Parameters
4289: -- p_api_version IN NUMBER := 1.0
4290: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
4291: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
4292: -- p_validation_level IN VARCHAR2 := 100
4293: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
4294: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4287: -- Return Value : N/A
4288: -- Parameters
4289: -- p_api_version IN NUMBER := 1.0
4290: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
4291: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
4292: -- p_validation_level IN VARCHAR2 := 100
4293: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
4294: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4295: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
4291: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
4292: -- p_validation_level IN VARCHAR2 := 100
4293: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
4294: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4295: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
4296: -- p_debug_mode IN VARCHAR2 := 'N'
4297: -- p_object_relationship_id IN NUMBER
4298: -- p_record_version_number IN NUMBER
4299: -- p_comment IN VARCHAR2
4309: -- FPM bug 3450684
4310: --
4311: --
4312: Procedure Update_Subproject_Association(p_api_version IN NUMBER := 1.0,
4313: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
4314: p_validate_only IN VARCHAR2 := FND_API.G_TRUE,
4315: p_validation_level IN VARCHAR2 := 100,
4316: p_calling_module IN VARCHAR2 := 'SELF_SERVICE',
4317: p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
4310: --
4311: --
4312: Procedure Update_Subproject_Association(p_api_version IN NUMBER := 1.0,
4313: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
4314: p_validate_only IN VARCHAR2 := FND_API.G_TRUE,
4315: p_validation_level IN VARCHAR2 := 100,
4316: p_calling_module IN VARCHAR2 := 'SELF_SERVICE',
4317: p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
4318: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4314: p_validate_only IN VARCHAR2 := FND_API.G_TRUE,
4315: p_validation_level IN VARCHAR2 := 100,
4316: p_calling_module IN VARCHAR2 := 'SELF_SERVICE',
4317: p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
4318: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4319: p_debug_mode IN VARCHAR2 := 'N',
4320: p_object_relationship_id IN NUMBER,
4321: p_record_version_number IN NUMBER,
4322: p_comment IN VARCHAR2,
4352: IF (p_debug_mode = 'Y') THEN
4353: pa_debug.debug('PA_RELATIONSHIPS_PVT1.UPDATE_SUBPROJECT_ASSOCIATION Begin');
4354: END IF;
4355: --
4356: IF (p_commit = FND_API.G_TRUE) THEN
4357: savepoint update_subproject_ass_pvt;
4358: END IF;
4359: --
4360: IF (p_debug_mode = 'Y') THEN
4373: WHERE object_relationship_id = l_cur_obj_rel_rec.object_relationship_id -- p_object_relationship_id
4374: and record_version_number = l_cur_obj_rel_rec.record_version_number;
4375: IF SQL%NOTFOUND THEN
4376: fnd_message.set_name('PA','PA_RECORD_CHANGED');
4377: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4378: RAISE FND_API.G_EXC_ERROR;
4379: END IF;
4380:
4381: end loop;
4374: and record_version_number = l_cur_obj_rel_rec.record_version_number;
4375: IF SQL%NOTFOUND THEN
4376: fnd_message.set_name('PA','PA_RECORD_CHANGED');
4377: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4378: RAISE FND_API.G_EXC_ERROR;
4379: END IF;
4380:
4381: end loop;
4382:
4381: end loop;
4382:
4383: -- Bug # 5072032.
4384: --
4385: x_return_status := FND_API.G_RET_STS_SUCCESS;
4386: --
4387: IF (p_commit = FND_API.G_TRUE) THEN
4388: COMMIT;
4389: END IF;
4383: -- Bug # 5072032.
4384: --
4385: x_return_status := FND_API.G_RET_STS_SUCCESS;
4386: --
4387: IF (p_commit = FND_API.G_TRUE) THEN
4388: COMMIT;
4389: END IF;
4390: --
4391: IF (p_debug_mode = 'Y') THEN
4396: pa_debug.debug('PA_RELATIONSHIPS_PVT1.UPDATE_SUBPROJECT_ASSOCIATION END');
4397: END IF;
4398: --
4399: EXCEPTION
4400: WHEN FND_API.G_EXC_ERROR THEN
4401: IF (p_commit = FND_API.G_TRUE) THEN
4402: ROLLBACK to update_subproject_ass_pvt;
4403: END IF;
4404: x_msg_count := FND_MSG_PUB.count_msg;
4397: END IF;
4398: --
4399: EXCEPTION
4400: WHEN FND_API.G_EXC_ERROR THEN
4401: IF (p_commit = FND_API.G_TRUE) THEN
4402: ROLLBACK to update_subproject_ass_pvt;
4403: END IF;
4404: x_msg_count := FND_MSG_PUB.count_msg;
4405: x_return_status := FND_API.G_RET_STS_ERROR;
4401: IF (p_commit = FND_API.G_TRUE) THEN
4402: ROLLBACK to update_subproject_ass_pvt;
4403: END IF;
4404: x_msg_count := FND_MSG_PUB.count_msg;
4405: x_return_status := FND_API.G_RET_STS_ERROR;
4406: WHEN OTHERS THEN
4407: IF (p_commit = FND_API.G_TRUE) THEN
4408: ROLLBACK TO update_subproject_ass_pvt;
4409: END IF;
4403: END IF;
4404: x_msg_count := FND_MSG_PUB.count_msg;
4405: x_return_status := FND_API.G_RET_STS_ERROR;
4406: WHEN OTHERS THEN
4407: IF (p_commit = FND_API.G_TRUE) THEN
4408: ROLLBACK TO update_subproject_ass_pvt;
4409: END IF;
4410: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4411: FND_MSG_PUB.add_exc_msg(
4406: WHEN OTHERS THEN
4407: IF (p_commit = FND_API.G_TRUE) THEN
4408: ROLLBACK TO update_subproject_ass_pvt;
4409: END IF;
4410: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4411: FND_MSG_PUB.add_exc_msg(
4412: p_pkg_name => 'PA_RELATIONSHIPS_PVT1',
4413: p_procedure_name => 'update_subproject_association',
4414: p_error_text => SUBSTRB(SQLERRM,1,240));
4422: -- Type : Private Procedure
4423: -- Pre-reqs : None
4424: -- Return Value : N/A
4425: -- Parameters
4426: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
4427: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
4428: -- p_validation_level IN VARCHAR2 := 100
4429: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
4430: -- p_debug_mode IN VARCHAR2 := 'N'
4423: -- Pre-reqs : None
4424: -- Return Value : N/A
4425: -- Parameters
4426: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
4427: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
4428: -- p_validation_level IN VARCHAR2 := 100
4429: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
4430: -- p_debug_mode IN VARCHAR2 := 'N'
4431: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4442: --
4443: -- FPM bug 3450684
4444: --
4445: --
4446: PROCEDURE Delete_SubProject_Association(p_commit IN VARCHAR2 := FND_API.G_FALSE,
4447: p_validate_only IN VARCHAR2 := FND_API.G_TRUE,
4448: p_validation_level IN VARCHAR2 := 100,
4449: p_calling_module IN VARCHAR2 := 'SELF_SERVICE',
4450: p_debug_mode IN VARCHAR2 := 'N',
4443: -- FPM bug 3450684
4444: --
4445: --
4446: PROCEDURE Delete_SubProject_Association(p_commit IN VARCHAR2 := FND_API.G_FALSE,
4447: p_validate_only IN VARCHAR2 := FND_API.G_TRUE,
4448: p_validation_level IN VARCHAR2 := 100,
4449: p_calling_module IN VARCHAR2 := 'SELF_SERVICE',
4450: p_debug_mode IN VARCHAR2 := 'N',
4451: p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
4550: IF (p_debug_mode = 'Y') THEN
4551: pa_debug.debug('PA_RELATIONSHIP_PVT.Delete_SubProject_Association begin');
4552: END IF;
4553: --
4554: IF (p_commit = FND_API.G_TRUE) THEN
4555: savepoint delete_subproject_ass_pvt;
4556: END IF;
4557: --
4558: IF (p_debug_mode = 'Y') THEN
4565: IF get_lnk_obj_rel_attr%NOTFOUND THEN
4566: CLOSE get_lnk_obj_rel_attr;
4567: PA_UTILS.ADD_MESSAGE('PA','PA_NO_RECORD_VERSION_NUMBER');
4568: x_msg_data := 'PA_NO_RECORD_VERSION_NUMBER';
4569: RAISE FND_API.G_EXC_ERROR;
4570: END IF;
4571: --
4572: IF (p_debug_mode = 'Y') THEN
4573: pa_debug.debug('src lnk task ver id value for pass obj rel id=> '||get_lnk_obj_rel_attr_rec.object_id_from1);
4589: IF get_src_task_ver_id%NOTFOUND THEN
4590: CLOSE get_src_task_ver_id;
4591: PA_UTILS.ADD_MESSAGE('PA','PA_NO_RECORD_VERSION_NUMBER');
4592: x_msg_data := 'PA_NO_RECORD_VERSION_NUMBER';
4593: RAISE FND_API.G_EXC_ERROR;
4594: END IF;
4595: --
4596: IF (p_debug_mode = 'Y') THEN
4597: 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);
4632: l_upd_prog_grp_status:=PA_RELATIONSHIP_PUB.UPDATE_PROGRAM_GROUPS(get_lnk_info_rec.lnk_obj_rel_id,
4633: 'DROP');
4634: IF l_upd_prog_grp_status < 0 THEN
4635: PA_UTILS.ADD_MESSAGE('PA','PA_DEL_SUBPROJ_VAL_FAIL');
4636: RAISE FND_API.G_EXC_ERROR;
4637: END IF;
4638: IF (p_debug_mode = 'Y') THEN
4639: pa_debug.debug('Return Status PA_RELATIONSHIP_PUB.UPDATE_PROGRAM_GROUPS=> '||l_upd_prog_grp_status);
4640: END IF;
4641: EXCEPTION
4642:
4643: -- Begin fix for Bug # 4485908.
4644:
4645: WHEN FND_API.G_EXC_ERROR THEN
4646:
4647: RAISE FND_API.G_EXC_ERROR;
4648:
4649: -- End fix for Bug # 4485908.
4643: -- Begin fix for Bug # 4485908.
4644:
4645: WHEN FND_API.G_EXC_ERROR THEN
4646:
4647: RAISE FND_API.G_EXC_ERROR;
4648:
4649: -- End fix for Bug # 4485908.
4650:
4651: WHEN OTHERS THEN
4651: WHEN OTHERS THEN
4652: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
4653: p_procedure_name => 'Delete_SubProject_Association',
4654: p_error_text => SUBSTRB('PA_RELATIONSHIP_PUB.UPDATE_PROGRAM_GROUPS:'||SQLERRM,1,240));
4655: RAISE FND_API.G_EXC_ERROR;
4656: END;
4657: --
4658:
4659: --PA_RELATIONSHIP_PUB.Delete_Relationship(porb.object_relationship_id);--table handler
4675: ,p_pm_product_code => NULL
4676: ,x_return_status => x_return_status
4677: );
4678: --
4679: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4680: x_msg_count := FND_MSG_PUB.count_msg;
4681: IF x_msg_count = 1 then
4682: pa_interface_utils_pub.get_messages
4683: (p_encoded => FND_API.G_TRUE,
4679: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4680: x_msg_count := FND_MSG_PUB.count_msg;
4681: IF x_msg_count = 1 then
4682: pa_interface_utils_pub.get_messages
4683: (p_encoded => FND_API.G_TRUE,
4684: p_msg_index => 1,
4685: p_msg_count => x_msg_count,
4686: p_msg_data => x_msg_data,
4687: p_data => l_data,
4687: p_data => l_data,
4688: p_msg_index_out => l_msg_index_out);
4689: x_msg_data := l_data;
4690: END IF;
4691: raise FND_API.G_EXC_ERROR;
4692: END IF;
4693: --
4694: IF (p_debug_mode = 'Y') THEN
4695: pa_debug.debug('Return status after call to PA_OBJECT_RELATIONSHIPS_PKG.DELETE_ROW=> '||x_return_status);
4701: IF get_rec_ver_num%NOTFOUND THEN
4702: CLOSE get_rec_ver_num;
4703: PA_UTILS.ADD_MESSAGE('PA','PA_NO_RECORD_VERSION_NUMBER');
4704: x_msg_data := 'PA_NO_RECORD_VERSION_NUMBER';
4705: RAISE FND_API.G_EXC_ERROR;
4706: END IF;
4707: --
4708: PA_TASK_PUB1.DELETE_TASK_VERSION(p_commit => 'N',
4709: p_debug_mode => p_debug_mode,
4712: x_return_status => x_return_status,
4713: x_msg_count => x_msg_count,
4714: x_msg_data => x_msg_data);
4715: --
4716: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4717: x_msg_count := FND_MSG_PUB.count_msg;
4718: IF x_msg_count = 1 then
4719: pa_interface_utils_pub.get_messages
4720: (p_encoded => FND_API.G_TRUE,
4716: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4717: x_msg_count := FND_MSG_PUB.count_msg;
4718: IF x_msg_count = 1 then
4719: pa_interface_utils_pub.get_messages
4720: (p_encoded => FND_API.G_TRUE,
4721: p_msg_index => 1,
4722: p_msg_count => x_msg_count,
4723: p_msg_data => x_msg_data,
4724: p_data => l_data,
4724: p_data => l_data,
4725: p_msg_index_out => l_msg_index_out);
4726: x_msg_data := l_data;
4727: END IF;
4728: raise FND_API.G_EXC_ERROR;
4729: END IF;
4730: --
4731: IF (p_debug_mode = 'Y') THEN
4732: pa_debug.debug('Return status after call to PA_TASK_PUB1.DELETE_TASK_VERSION=> '||x_return_status);
4760: , x_return_status => x_return_status
4761: , x_msg_count => x_msg_count
4762: , x_msg_data => x_msg_data);
4763:
4764: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
4765:
4766: x_msg_count := FND_MSG_PUB.count_msg;
4767:
4768: if x_msg_count = 1 then
4767:
4768: if x_msg_count = 1 then
4769:
4770: pa_interface_utils_pub.get_messages
4771: (p_encoded => FND_API.G_TRUE
4772: , p_msg_index => 1
4773: , p_msg_count => x_msg_count
4774: , p_msg_data => x_msg_data
4775: , p_data => l_data
4778: x_msg_data := l_data;
4779:
4780: end if;
4781:
4782: raise FND_API.G_EXC_ERROR;
4783:
4784: end if;
4785:
4786: end if;
4813: ,x_return_status => x_return_status
4814: ,x_msg_count => x_msg_count
4815: ,x_msg_data => x_msg_data);
4816:
4817: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
4818: x_msg_count := FND_MSG_PUB.count_msg;
4819: IF x_msg_count = 1 then
4820: pa_interface_utils_pub.get_messages
4821: (p_encoded => FND_API.G_TRUE,
4817: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
4818: x_msg_count := FND_MSG_PUB.count_msg;
4819: IF x_msg_count = 1 then
4820: pa_interface_utils_pub.get_messages
4821: (p_encoded => FND_API.G_TRUE,
4822: p_msg_index => 1,
4823: p_msg_count => x_msg_count,
4824: p_msg_data => x_msg_data,
4825: p_data => l_data,
4825: p_data => l_data,
4826: p_msg_index_out => l_msg_index_out);
4827: x_msg_data := l_data;
4828: END IF;
4829: raise FND_API.G_EXC_ERROR;
4830: end if;
4831: END IF;
4832: --bug 4370533 --Issue #3
4833: END IF; -- Bug 8889029
4832: --bug 4370533 --Issue #3
4833: END IF; -- Bug 8889029
4834:
4835:
4836: x_return_status := FND_API.G_RET_STS_SUCCESS;
4837: --
4838: IF (p_commit = FND_API.G_TRUE) THEN
4839: COMMIT;
4840: END IF;
4834:
4835:
4836: x_return_status := FND_API.G_RET_STS_SUCCESS;
4837: --
4838: IF (p_commit = FND_API.G_TRUE) THEN
4839: COMMIT;
4840: END IF;
4841: --
4842: IF (p_debug_mode = 'Y') THEN
4847: pa_debug.debug('PA_RELATIONSHIP_PVT.Delete_SubProject_Association end');
4848: END IF;
4849: --
4850: EXCEPTION
4851: WHEN FND_API.G_EXC_ERROR THEN
4852: IF (p_commit = FND_API.G_TRUE) THEN
4853: ROLLBACK to delete_subproject_ass_pvt;
4854: END IF;
4855: x_msg_count := FND_MSG_PUB.count_msg;
4848: END IF;
4849: --
4850: EXCEPTION
4851: WHEN FND_API.G_EXC_ERROR THEN
4852: IF (p_commit = FND_API.G_TRUE) THEN
4853: ROLLBACK to delete_subproject_ass_pvt;
4854: END IF;
4855: x_msg_count := FND_MSG_PUB.count_msg;
4856: x_return_status := FND_API.G_RET_STS_ERROR;
4852: IF (p_commit = FND_API.G_TRUE) THEN
4853: ROLLBACK to delete_subproject_ass_pvt;
4854: END IF;
4855: x_msg_count := FND_MSG_PUB.count_msg;
4856: x_return_status := FND_API.G_RET_STS_ERROR;
4857: WHEN OTHERS THEN
4858: IF (p_commit = FND_API.G_TRUE) THEN
4859: ROLLBACK to delete_subproject_ass_pvt;
4860: END IF;
4854: END IF;
4855: x_msg_count := FND_MSG_PUB.count_msg;
4856: x_return_status := FND_API.G_RET_STS_ERROR;
4857: WHEN OTHERS THEN
4858: IF (p_commit = FND_API.G_TRUE) THEN
4859: ROLLBACK to delete_subproject_ass_pvt;
4860: END IF;
4861: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4862: x_msg_count := FND_MSG_PUB.count_msg;
4857: WHEN OTHERS THEN
4858: IF (p_commit = FND_API.G_TRUE) THEN
4859: ROLLBACK to delete_subproject_ass_pvt;
4860: END IF;
4861: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4862: x_msg_count := FND_MSG_PUB.count_msg;
4863: --put message
4864: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIPS_PVT',
4865: p_procedure_name => 'Delete_SubProject_Association',
4876: --
4877: -- FPM bug 3450684
4878: --
4879: --
4880: Procedure Copy_OG_Lnk_For_Subproj_Ass(p_validate_only IN VARCHAR2 := FND_API.G_TRUE,
4881: p_validation_level IN VARCHAR2 := 100,
4882: p_calling_module IN VARCHAR2 := 'SELF_SERVICE',
4883: p_debug_mode IN VARCHAR2 := 'N',
4884: p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
4881: p_validation_level IN VARCHAR2 := 100,
4882: p_calling_module IN VARCHAR2 := 'SELF_SERVICE',
4883: p_debug_mode IN VARCHAR2 := 'N',
4884: p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
4885: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4886: p_src_str_version_id IN NUMBER,
4887: p_dest_str_version_id IN NUMBER,
4888: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
4889: x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
4948: IF (p_debug_mode = 'Y') THEN
4949: pa_debug.debug('PA_RELATIONSHIP_PVT.Copy_OG_Lnk_For_Subproj_Ass begin');
4950: END IF;
4951: --
4952: IF (p_commit = FND_API.G_TRUE) THEN
4953: savepoint Copy_OG_Lnk_For_Subproj_Ass;
4954: END IF;
4955: --
4956: IF (p_debug_mode = 'Y') THEN
5025: ,p_status_code => null
5026: );
5027:
5028: -- 4537865
5029: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
5030: RAISE FND_API.G_EXC_ERROR;
5031: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
5032: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- To go to WHEN OTHERS Block
5033: END IF;
5026: );
5027:
5028: -- 4537865
5029: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
5030: RAISE FND_API.G_EXC_ERROR;
5031: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
5032: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- To go to WHEN OTHERS Block
5033: END IF;
5034: -- End 4537865
5027:
5028: -- 4537865
5029: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
5030: RAISE FND_API.G_EXC_ERROR;
5031: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
5032: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- To go to WHEN OTHERS Block
5033: END IF;
5034: -- End 4537865
5035:
5028: -- 4537865
5029: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
5030: RAISE FND_API.G_EXC_ERROR;
5031: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
5032: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- To go to WHEN OTHERS Block
5033: END IF;
5034: -- End 4537865
5035:
5036: IF (p_debug_mode = 'Y') THEN
5044: l_upd_prog_grp_status:=PA_RELATIONSHIP_PUB.UPDATE_PROGRAM_GROUPS(l_object_relationship_id,
5045: 'ADD');
5046: IF l_upd_prog_grp_status < 0 THEN
5047: PA_UTILS.ADD_MESSAGE('PA','PA_CP_SUBPROJ_VAL_FAIL');
5048: RAISE FND_API.G_EXC_ERROR;
5049: END IF;
5050: IF (p_debug_mode = 'Y') THEN
5051: pa_debug.debug('Return Status PA_RELATIONSHIP_PUB.UPDATE_PROGRAM_GROUPS=> '||l_upd_prog_grp_status);
5052: END IF;
5053: EXCEPTION
5054:
5055: -- Begin fix for Bug # 4485908.
5056:
5057: WHEN FND_API.G_EXC_ERROR THEN
5058:
5059: RAISE FND_API.G_EXC_ERROR;
5060:
5061: -- End fix for Bug # 4485908.
5055: -- Begin fix for Bug # 4485908.
5056:
5057: WHEN FND_API.G_EXC_ERROR THEN
5058:
5059: RAISE FND_API.G_EXC_ERROR;
5060:
5061: -- End fix for Bug # 4485908.
5062:
5063: WHEN OTHERS THEN
5063: WHEN OTHERS THEN
5064: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
5065: p_procedure_name => 'Copy_OG_Lnk_For_Subproj_Ass',
5066: p_error_text => SUBSTRB('PA_RELATIONSHIP_PUB.UPDATE_PROGRAM_GROUPS:'||SQLERRM,1,240));
5067: RAISE FND_API.G_EXC_ERROR;
5068: END;
5069: END IF;
5070: --
5071: END LOOP; --end loop for get_going_out_lnk_info cursor
5072: CLOSE get_going_out_lnk_info;
5073: END LOOP; --end loop for get_linking_task_info cursor
5074: CLOSE get_linking_task_info;
5075: --
5076: IF (p_commit = FND_API.G_TRUE) THEN
5077: COMMIT;
5078: END IF;
5079: --
5080: IF (p_debug_mode = 'Y') THEN
5085: pa_debug.debug('PA_RELATIONSHIP_PVT.Copy_OG_Lnk_For_Subproj_Ass end');
5086: END IF;
5087: --
5088: EXCEPTION
5089: WHEN FND_API.G_EXC_ERROR THEN
5090: IF (p_commit = FND_API.G_TRUE) THEN
5091: ROLLBACK to Copy_OG_Lnk_For_Subproj_Ass;
5092: END IF;
5093: x_msg_count := FND_MSG_PUB.count_msg;
5086: END IF;
5087: --
5088: EXCEPTION
5089: WHEN FND_API.G_EXC_ERROR THEN
5090: IF (p_commit = FND_API.G_TRUE) THEN
5091: ROLLBACK to Copy_OG_Lnk_For_Subproj_Ass;
5092: END IF;
5093: x_msg_count := FND_MSG_PUB.count_msg;
5094: x_return_status := FND_API.G_RET_STS_ERROR;
5090: IF (p_commit = FND_API.G_TRUE) THEN
5091: ROLLBACK to Copy_OG_Lnk_For_Subproj_Ass;
5092: END IF;
5093: x_msg_count := FND_MSG_PUB.count_msg;
5094: x_return_status := FND_API.G_RET_STS_ERROR;
5095: WHEN OTHERS THEN
5096: IF (p_commit = FND_API.G_TRUE) THEN
5097: ROLLBACK to Copy_OG_Lnk_For_Subproj_Ass;
5098: END IF;
5092: END IF;
5093: x_msg_count := FND_MSG_PUB.count_msg;
5094: x_return_status := FND_API.G_RET_STS_ERROR;
5095: WHEN OTHERS THEN
5096: IF (p_commit = FND_API.G_TRUE) THEN
5097: ROLLBACK to Copy_OG_Lnk_For_Subproj_Ass;
5098: END IF;
5099: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5100: x_msg_count := FND_MSG_PUB.count_msg;
5095: WHEN OTHERS THEN
5096: IF (p_commit = FND_API.G_TRUE) THEN
5097: ROLLBACK to Copy_OG_Lnk_For_Subproj_Ass;
5098: END IF;
5099: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5100: x_msg_count := FND_MSG_PUB.count_msg;
5101: --put message
5102: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIPS_PVT',
5103: p_procedure_name => 'Copy_OG_Lnk_For_Subproj_Ass',
5114: --
5115: -- FPM bug 3450684
5116: --
5117: --
5118: PROCEDURE Move_CI_Lnk_For_subproj_step2(p_commit IN VARCHAR2 := FND_API.G_FALSE,
5119: p_validate_only IN VARCHAR2 := FND_API.G_TRUE,
5120: p_validation_level IN VARCHAR2 := 100,
5121: p_calling_module IN VARCHAR2 := 'SELF_SERVICE',
5122: p_debug_mode IN VARCHAR2 := 'N',
5115: -- FPM bug 3450684
5116: --
5117: --
5118: PROCEDURE Move_CI_Lnk_For_subproj_step2(p_commit IN VARCHAR2 := FND_API.G_FALSE,
5119: p_validate_only IN VARCHAR2 := FND_API.G_TRUE,
5120: p_validation_level IN VARCHAR2 := 100,
5121: p_calling_module IN VARCHAR2 := 'SELF_SERVICE',
5122: p_debug_mode IN VARCHAR2 := 'N',
5123: p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
5208: IF (p_debug_mode = 'Y') THEN
5209: pa_debug.debug('PA_RELATIONSHIP_PVT.Move_CI_Lnk_For_subproj_step2 begin');
5210: END IF;
5211: --
5212: IF (p_commit = FND_API.G_TRUE) THEN
5213: savepoint Move_CI_Lnk_For_subproj_step2;
5214: END IF;
5215:
5216: x_return_status := FND_API.G_RET_STS_SUCCESS; -- 4537865
5212: IF (p_commit = FND_API.G_TRUE) THEN
5213: savepoint Move_CI_Lnk_For_subproj_step2;
5214: END IF;
5215:
5216: x_return_status := FND_API.G_RET_STS_SUCCESS; -- 4537865
5217: --
5218: /* IF (p_debug_mode = 'Y') THEN
5219: pa_debug.debug('Deleting the object_relationships_id => ');
5220: END IF;*/
5275: ,p_comments => null
5276: ,p_status_code => null
5277: );
5278: -- 4537865
5279: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
5280: RAISE FND_API.G_EXC_ERROR;
5281: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
5282: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- To go to WHEN OTHERS Block
5283: END IF;
5276: ,p_status_code => null
5277: );
5278: -- 4537865
5279: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
5280: RAISE FND_API.G_EXC_ERROR;
5281: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
5282: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- To go to WHEN OTHERS Block
5283: END IF;
5284: -- End 4537865
5277: );
5278: -- 4537865
5279: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
5280: RAISE FND_API.G_EXC_ERROR;
5281: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
5282: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- To go to WHEN OTHERS Block
5283: END IF;
5284: -- End 4537865
5285: --
5278: -- 4537865
5279: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
5280: RAISE FND_API.G_EXC_ERROR;
5281: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
5282: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- To go to WHEN OTHERS Block
5283: END IF;
5284: -- End 4537865
5285: --
5286: --Bug No 3450684
5302:
5303: -- Bug # 4329284.
5304:
5305: PA_UTILS.ADD_MESSAGE('PA','PA_CRT_SUBPROJ_VAL_FAIL','PROJ',l_proj_name,'PROG',l_prog_name); -- Bug # 4329284.
5306: RAISE FND_API.G_EXC_ERROR;
5307: END IF;
5308: IF (p_debug_mode = 'Y') THEN
5309: pa_debug.debug('Return Status PA_RELATIONSHIP_PUB.UPDATE_PROGRAM_GROUPS=> '||l_upd_prog_grp_status);
5310: END IF;
5311: EXCEPTION
5312:
5313: -- Begin fix for Bug # 4485908.
5314:
5315: WHEN FND_API.G_EXC_ERROR THEN
5316:
5317: RAISE FND_API.G_EXC_ERROR;
5318:
5319: -- End fix for Bug # 4485908.
5313: -- Begin fix for Bug # 4485908.
5314:
5315: WHEN FND_API.G_EXC_ERROR THEN
5316:
5317: RAISE FND_API.G_EXC_ERROR;
5318:
5319: -- End fix for Bug # 4485908.
5320:
5321: WHEN OTHERS THEN
5321: WHEN OTHERS THEN
5322: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
5323: p_procedure_name => 'Insert_Subproject_Association',
5324: p_error_text => SUBSTRB('PA_RELATIONSHIP_PUB.UPDATE_PROGRAM_GROUPS:'||SQLERRM,1,240));
5325: RAISE FND_API.G_EXC_ERROR;
5326: END;
5327:
5328: BEGIN
5329: l_upd_prog_grp_status:=0;
5330: l_upd_prog_grp_status:=PA_RELATIONSHIP_PUB.UPDATE_PROGRAM_GROUPS(get_coming_in_lnk_info_rec.object_relationship_id,
5331: 'DROP');
5332: IF l_upd_prog_grp_status < 0 THEN
5333: PA_UTILS.ADD_MESSAGE('PA','PA_MV_DEL_SUBPROJ_VAL_FAIL');
5334: RAISE FND_API.G_EXC_ERROR;
5335: END IF;
5336: IF (p_debug_mode = 'Y') THEN
5337: pa_debug.debug('Return Status PA_RELATIONSHIP_PUB.UPDATE_PROGRAM_GROUPS=> '||l_upd_prog_grp_status);
5338: END IF;
5339: EXCEPTION
5340:
5341: -- Begin fix for Bug # 4485908.
5342:
5343: WHEN FND_API.G_EXC_ERROR THEN
5344:
5345: RAISE FND_API.G_EXC_ERROR;
5346:
5347: -- End fix for Bug # 4485908.
5341: -- Begin fix for Bug # 4485908.
5342:
5343: WHEN FND_API.G_EXC_ERROR THEN
5344:
5345: RAISE FND_API.G_EXC_ERROR;
5346:
5347: -- End fix for Bug # 4485908.
5348:
5349: WHEN OTHERS THEN
5349: WHEN OTHERS THEN
5350: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
5351: p_procedure_name => 'Move_CI_Lnk_For_subproj_step2',
5352: p_error_text => SUBSTRB('PA_RELATIONSHIP_PUB.UPDATE_PROGRAM_GROUPS:'||SQLERRM,1,240));
5353: RAISE FND_API.G_EXC_ERROR;
5354: END;
5355: --
5356: PA_OBJECT_RELATIONSHIPS_PKG.DELETE_ROW(
5357: p_object_relationship_id => get_coming_in_lnk_info_rec.object_relationship_id
5371: ,p_pm_product_code => NULL
5372: ,x_return_status => x_return_status
5373: );
5374: -- 4537865
5375: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
5376: RAISE FND_API.G_EXC_ERROR;
5377: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
5378: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- To go to WHEN OTHERS Block
5379: END IF;
5372: ,x_return_status => x_return_status
5373: );
5374: -- 4537865
5375: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
5376: RAISE FND_API.G_EXC_ERROR;
5377: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
5378: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- To go to WHEN OTHERS Block
5379: END IF;
5380: -- End 4537865
5373: );
5374: -- 4537865
5375: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
5376: RAISE FND_API.G_EXC_ERROR;
5377: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
5378: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- To go to WHEN OTHERS Block
5379: END IF;
5380: -- End 4537865
5381: --
5374: -- 4537865
5375: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
5376: RAISE FND_API.G_EXC_ERROR;
5377: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
5378: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- To go to WHEN OTHERS Block
5379: END IF;
5380: -- End 4537865
5381: --
5382: END IF; --End of move_link is Y
5382: END IF; --End of move_link is Y
5383: END LOOP; --end loop get_coming_in_lnk_info cursor
5384: CLOSE get_coming_in_lnk_info;
5385: --
5386: IF (p_commit = FND_API.G_TRUE) THEN
5387: COMMIT;
5388: END IF;
5389: --
5390: IF (p_debug_mode = 'Y') THEN
5395: pa_debug.debug('PA_RELATIONSHIP_PVT.Move_CI_Lnk_For_subproj_step2 end');
5396: END IF;
5397: --
5398: EXCEPTION
5399: WHEN FND_API.G_EXC_ERROR THEN
5400: IF (p_commit = FND_API.G_TRUE) THEN
5401: ROLLBACK to Move_CI_Lnk_For_subproj_step2;
5402: END IF;
5403: x_msg_count := FND_MSG_PUB.count_msg;
5396: END IF;
5397: --
5398: EXCEPTION
5399: WHEN FND_API.G_EXC_ERROR THEN
5400: IF (p_commit = FND_API.G_TRUE) THEN
5401: ROLLBACK to Move_CI_Lnk_For_subproj_step2;
5402: END IF;
5403: x_msg_count := FND_MSG_PUB.count_msg;
5404: x_return_status := FND_API.G_RET_STS_ERROR;
5400: IF (p_commit = FND_API.G_TRUE) THEN
5401: ROLLBACK to Move_CI_Lnk_For_subproj_step2;
5402: END IF;
5403: x_msg_count := FND_MSG_PUB.count_msg;
5404: x_return_status := FND_API.G_RET_STS_ERROR;
5405: WHEN OTHERS THEN
5406: IF (p_commit = FND_API.G_TRUE) THEN
5407: ROLLBACK to Move_CI_Lnk_For_subproj_step2;
5408: END IF;
5402: END IF;
5403: x_msg_count := FND_MSG_PUB.count_msg;
5404: x_return_status := FND_API.G_RET_STS_ERROR;
5405: WHEN OTHERS THEN
5406: IF (p_commit = FND_API.G_TRUE) THEN
5407: ROLLBACK to Move_CI_Lnk_For_subproj_step2;
5408: END IF;
5409: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5410: x_msg_count := FND_MSG_PUB.count_msg;
5405: WHEN OTHERS THEN
5406: IF (p_commit = FND_API.G_TRUE) THEN
5407: ROLLBACK to Move_CI_Lnk_For_subproj_step2;
5408: END IF;
5409: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5410: x_msg_count := FND_MSG_PUB.count_msg;
5411: --put message
5412: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIPS_PVT',
5413: p_procedure_name => 'Move_CI_Lnk_For_subproj_step2',
5425: -- FPM bug 3450684
5426: --
5427: --
5428: PROCEDURE Move_CI_Lnk_For_subproj_step1(p_api_version IN NUMBER :=1.0,
5429: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
5430: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
5431: -- p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
5432: p_validation_level IN VARCHAR2 := 100,
5433: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
5426: --
5427: --
5428: PROCEDURE Move_CI_Lnk_For_subproj_step1(p_api_version IN NUMBER :=1.0,
5429: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
5430: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
5431: -- p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
5432: p_validation_level IN VARCHAR2 := 100,
5433: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
5434: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
5427: --
5428: PROCEDURE Move_CI_Lnk_For_subproj_step1(p_api_version IN NUMBER :=1.0,
5429: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
5430: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
5431: -- p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
5432: p_validation_level IN VARCHAR2 := 100,
5433: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
5434: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
5435: p_debug_mode IN VARCHAR2 :='N',
5430: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
5431: -- p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
5432: p_validation_level IN VARCHAR2 := 100,
5433: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
5434: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
5435: p_debug_mode IN VARCHAR2 :='N',
5436: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
5437: p_src_str_version_id IN NUMBER,
5438: p_pub_str_version_id IN NUMBER, --published str, which is destination
5446: IF (p_debug_mode = 'Y') THEN
5447: pa_debug.debug('PA_RELATIONSHIP_PVT.Move_CI_Lnk_For_subproj_step1 begin');
5448: END IF;
5449: --
5450: IF (p_commit = FND_API.G_TRUE) THEN
5451: savepoint Move_CI_Lnk_For_subproj_step1;
5452: END IF;
5453: --
5454: /* IF (p_debug_mode = 'Y') THEN
5473: x_msg_count => x_msg_count,
5474: x_msg_data => x_msg_data
5475: );
5476: -- 4537865
5477: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
5478: RAISE FND_API.G_EXC_ERROR;
5479: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
5480: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- To go to WHEN OTHERS Block
5481: END IF;
5474: x_msg_data => x_msg_data
5475: );
5476: -- 4537865
5477: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
5478: RAISE FND_API.G_EXC_ERROR;
5479: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
5480: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- To go to WHEN OTHERS Block
5481: END IF;
5482: -- End 4537865
5475: );
5476: -- 4537865
5477: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
5478: RAISE FND_API.G_EXC_ERROR;
5479: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
5480: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- To go to WHEN OTHERS Block
5481: END IF;
5482: -- End 4537865
5483:
5476: -- 4537865
5477: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
5478: RAISE FND_API.G_EXC_ERROR;
5479: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
5480: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; -- To go to WHEN OTHERS Block
5481: END IF;
5482: -- End 4537865
5483:
5484: END IF;
5482: -- End 4537865
5483:
5484: END IF;
5485: --
5486: IF (p_commit = FND_API.G_TRUE) THEN
5487: COMMIT;
5488: END IF;
5489: --
5490: IF (p_debug_mode = 'Y') THEN
5495: pa_debug.debug('PA_RELATIONSHIP_PVT.Move_CI_Lnk_For_subproj_step1 end');
5496: END IF;
5497: --
5498: EXCEPTION
5499: WHEN FND_API.G_EXC_ERROR THEN
5500: IF (p_commit = FND_API.G_TRUE) THEN
5501: ROLLBACK to Move_CI_Lnk_For_subproj_step1;
5502: END IF;
5503: x_msg_count := FND_MSG_PUB.count_msg;
5496: END IF;
5497: --
5498: EXCEPTION
5499: WHEN FND_API.G_EXC_ERROR THEN
5500: IF (p_commit = FND_API.G_TRUE) THEN
5501: ROLLBACK to Move_CI_Lnk_For_subproj_step1;
5502: END IF;
5503: x_msg_count := FND_MSG_PUB.count_msg;
5504: x_return_status := FND_API.G_RET_STS_ERROR;
5500: IF (p_commit = FND_API.G_TRUE) THEN
5501: ROLLBACK to Move_CI_Lnk_For_subproj_step1;
5502: END IF;
5503: x_msg_count := FND_MSG_PUB.count_msg;
5504: x_return_status := FND_API.G_RET_STS_ERROR;
5505: WHEN OTHERS THEN
5506: IF (p_commit = FND_API.G_TRUE) THEN
5507: ROLLBACK to Move_CI_Lnk_For_subproj_step1;
5508: END IF;
5502: END IF;
5503: x_msg_count := FND_MSG_PUB.count_msg;
5504: x_return_status := FND_API.G_RET_STS_ERROR;
5505: WHEN OTHERS THEN
5506: IF (p_commit = FND_API.G_TRUE) THEN
5507: ROLLBACK to Move_CI_Lnk_For_subproj_step1;
5508: END IF;
5509: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5510: x_msg_count := FND_MSG_PUB.count_msg;
5505: WHEN OTHERS THEN
5506: IF (p_commit = FND_API.G_TRUE) THEN
5507: ROLLBACK to Move_CI_Lnk_For_subproj_step1;
5508: END IF;
5509: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5510: x_msg_count := FND_MSG_PUB.count_msg;
5511: --put message
5512: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIPS_PVT',
5513: p_procedure_name => 'Move_CI_Lnk_For_subproj_step1',
5522: -- Pre-reqs : None
5523: -- Return Value : N/A
5524: -- Parameters
5525: -- p_api_version IN NUMBER := 1.0
5526: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
5527: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
5528: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
5529: -- p_validation_level IN VARCHAR2 := 100
5530: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
5523: -- Return Value : N/A
5524: -- Parameters
5525: -- p_api_version IN NUMBER := 1.0
5526: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
5527: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
5528: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
5529: -- p_validation_level IN VARCHAR2 := 100
5530: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
5531: -- p_debug_mode IN VARCHAR2 := 'N'
5524: -- Parameters
5525: -- p_api_version IN NUMBER := 1.0
5526: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
5527: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
5528: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
5529: -- p_validation_level IN VARCHAR2 := 100
5530: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
5531: -- p_debug_mode IN VARCHAR2 := 'N'
5532: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
5548:
5549: procedure UPDATE_PARENT_WBS_FLAG_DIRTY
5550: (
5551: p_api_version IN NUMBER := 1.0
5552: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
5553: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5554: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
5555: ,p_validation_level IN VARCHAR2 := 100
5556: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
5549: procedure UPDATE_PARENT_WBS_FLAG_DIRTY
5550: (
5551: p_api_version IN NUMBER := 1.0
5552: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
5553: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5554: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
5555: ,p_validation_level IN VARCHAR2 := 100
5556: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
5557: ,p_debug_mode IN VARCHAR2 := 'N'
5550: (
5551: p_api_version IN NUMBER := 1.0
5552: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
5553: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5554: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
5555: ,p_validation_level IN VARCHAR2 := 100
5556: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
5557: ,p_debug_mode IN VARCHAR2 := 'N'
5558: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
5590: IF (p_debug_mode = 'Y') THEN
5591: pa_debug.debug('PA_RELATIONSHIP_PVT.UPDATE_DEPENDENCY begin');
5592: END IF;
5593:
5594: IF (p_commit = FND_API.G_TRUE) THEN
5595: savepoint UPDATE_PARENT_WBS_FLAG_DIRTY;
5596: END IF;
5597:
5598: x_return_status := FND_API.G_RET_STS_SUCCESS;
5594: IF (p_commit = FND_API.G_TRUE) THEN
5595: savepoint UPDATE_PARENT_WBS_FLAG_DIRTY;
5596: END IF;
5597:
5598: x_return_status := FND_API.G_RET_STS_SUCCESS;
5599:
5600: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
5601:
5602: IF l_debug_mode = 'Y' THEN
5619: IF l_debug_mode = 'Y' THEN
5620: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.UPDATE_PARENT_WBS_FLAG_DIRTY', x_Msg => 'Completed', x_Log_Level=> 3);
5621: END IF;
5622:
5623: IF (p_commit = FND_API.G_TRUE) THEN
5624: COMMIT;
5625: END IF;
5626:
5627: IF (p_debug_mode = 'Y') THEN
5629: END IF;
5630:
5631:
5632: EXCEPTION
5633: when FND_API.G_EXC_ERROR then
5634: if p_commit = FND_API.G_TRUE then
5635: rollback to UPDATE_PARENT_WBS_FLAG_DIRTY;
5636: end if;
5637: x_return_status := FND_API.G_RET_STS_ERROR;
5630:
5631:
5632: EXCEPTION
5633: when FND_API.G_EXC_ERROR then
5634: if p_commit = FND_API.G_TRUE then
5635: rollback to UPDATE_PARENT_WBS_FLAG_DIRTY;
5636: end if;
5637: x_return_status := FND_API.G_RET_STS_ERROR;
5638: when FND_API.G_EXC_UNEXPECTED_ERROR then
5633: when FND_API.G_EXC_ERROR then
5634: if p_commit = FND_API.G_TRUE then
5635: rollback to UPDATE_PARENT_WBS_FLAG_DIRTY;
5636: end if;
5637: x_return_status := FND_API.G_RET_STS_ERROR;
5638: when FND_API.G_EXC_UNEXPECTED_ERROR then
5639: if p_commit = FND_API.G_TRUE then
5640: rollback to UPDATE_PARENT_WBS_FLAG_DIRTY;
5641: end if;
5634: if p_commit = FND_API.G_TRUE then
5635: rollback to UPDATE_PARENT_WBS_FLAG_DIRTY;
5636: end if;
5637: x_return_status := FND_API.G_RET_STS_ERROR;
5638: when FND_API.G_EXC_UNEXPECTED_ERROR then
5639: if p_commit = FND_API.G_TRUE then
5640: rollback to UPDATE_PARENT_WBS_FLAG_DIRTY;
5641: end if;
5642: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5635: rollback to UPDATE_PARENT_WBS_FLAG_DIRTY;
5636: end if;
5637: x_return_status := FND_API.G_RET_STS_ERROR;
5638: when FND_API.G_EXC_UNEXPECTED_ERROR then
5639: if p_commit = FND_API.G_TRUE then
5640: rollback to UPDATE_PARENT_WBS_FLAG_DIRTY;
5641: end if;
5642: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5643: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
5638: when FND_API.G_EXC_UNEXPECTED_ERROR then
5639: if p_commit = FND_API.G_TRUE then
5640: rollback to UPDATE_PARENT_WBS_FLAG_DIRTY;
5641: end if;
5642: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5643: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
5644: p_procedure_name => 'UPDATE_PARENT_WBS_FLAG_DIRTY',
5645: p_error_text => SUBSTRB(SQLERRM,1,240));
5646: when OTHERS then
5643: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
5644: p_procedure_name => 'UPDATE_PARENT_WBS_FLAG_DIRTY',
5645: p_error_text => SUBSTRB(SQLERRM,1,240));
5646: when OTHERS then
5647: if p_commit = FND_API.G_TRUE then
5648: rollback to UPDATE_PARENT_WBS_FLAG_DIRTY;
5649: end if;
5650: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5651: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
5646: when OTHERS then
5647: if p_commit = FND_API.G_TRUE then
5648: rollback to UPDATE_PARENT_WBS_FLAG_DIRTY;
5649: end if;
5650: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5651: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
5652: p_procedure_name => 'UPDATE_PARENT_WBS_FLAG_DIRTY',
5653: p_error_text => SUBSTRB(SQLERRM,1,240));
5654: raise;