[Home] [Help]
1: PACKAGE BODY PA_DELIVERABLE_PVT AS
2: /* $Header: PADLVPVB.pls 120.3 2006/01/27 04:39:32 vkadimes noship $ */
3:
4: Invalid_Arg_Exc_Dlv EXCEPTION ;
5: g_module_name VARCHAR2(100) := 'PA_DELIVERABLE_PVT';
1: PACKAGE BODY PA_DELIVERABLE_PVT AS
2: /* $Header: PADLVPVB.pls 120.3 2006/01/27 04:39:32 vkadimes noship $ */
3:
4: Invalid_Arg_Exc_Dlv EXCEPTION ;
5: g_module_name VARCHAR2(100) := 'PA_DELIVERABLE_PVT';
6: g_deliverable_based CONSTANT pa_lookups.lookup_code%TYPE := 'DELIVERABLE' ;
7:
8: -- Procedure : Create_Deliverable
9: -- Type : PRIVATE
443:
444: IF (P_TASK_ID IS NOT NULL ) THEN
445:
446: IF l_debug_mode = 'Y' THEN
447: Pa_Debug.WRITE(g_module_name,' PA_DELIVERABLE_PVT.CREATE_DLV_TASK_ASSOCIATION Called Task-To-Deliverable',
448: l_debug_level3);
449: END IF;
450:
451: -- if task_id is not null , i.e. create_deliverable is called from task page
477: ,x_return_status => x_return_status
478: );
479:
480: */
481: PA_DELIVERABLE_PVT.CREATE_DLV_TASK_ASSOCIATION
482: ( p_debug_mode => l_debug_mode
483: ,p_task_element_id => p_task_id
484: ,p_task_version_id => p_task_version_id
485: ,p_dlv_element_id => l_proj_element_id
491: );
492:
493:
494: IF l_debug_mode = 'Y' THEN
495: Pa_Debug.WRITE(g_module_name,' Out of PA_DELIVERABLE_PVT.CREATE_DLV_TASK_ASSOCIATION Task-To-Dlvr['||x_return_status||']',
496: l_debug_level3);
497: END IF;
498:
499: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
584: ROLLBACK TO CREATE_DLVR_PVT;
585: END IF;
586:
587: Fnd_Msg_Pub.add_exc_msg
588: ( p_pkg_name => 'PA_DELIVERABLE_PVT'
589: , p_procedure_name => 'Create_Deliverable'
590: , p_error_text => x_msg_data);
591:
592: IF l_debug_mode = 'Y' THEN
1493: -- else create task to deliverable association
1494:
1495: IF p_calling_module = 'AMG' AND p_task_id IS NOT NULL THEN
1496:
1497: PA_DELIVERABLE_PVT.CREATE_DLV_TASK_ASSOCIATION
1498: ( p_debug_mode => l_debug_mode
1499: ,p_task_element_id => p_task_id
1500: ,p_task_version_id => p_task_version_id
1501: ,p_dlv_element_id => p_dlvr_item_id
1595: ROLLBACK TO UPDATE_DLVR_PVT;
1596: END IF;
1597:
1598: Fnd_Msg_Pub.add_exc_msg
1599: ( p_pkg_name => 'PA_DELIVERABLE_PVT'
1600: , p_procedure_name => 'Update_Deliverable'
1601: , p_error_text => x_msg_data);
1602:
1603: IF l_debug_mode = 'Y' THEN
2140: pa_debug.g_err_stage:= 'Call IS_DISASSOCIATION_ALLOWED ';
2141: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2142: END IF ;
2143:
2144: PA_DELIVERABLE_PVT.IS_DISASSOCIATION_ALLOWED
2145: (p_api_version => p_api_version
2146: ,p_init_msg_list => FND_API.G_FALSE
2147: ,p_commit => p_commit
2148: ,p_validate_only => p_validate_only
2633: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2634: x_msg_count := 1;
2635: x_msg_data := SQLERRM;
2636: FND_MSG_PUB.add_exc_msg
2637: ( p_pkg_name => 'PA_DELIVERABLE_PVT'
2638: ,p_procedure_name => 'CREATE_ASSOCIATIONS_IN_BULK' );
2639: IF p_debug_mode = 'Y' THEN
2640: pa_debug.write('CREATE_ASSOCIATIONS_IN_BULK' || g_module_name,SQLERRM,4);
2641: pa_debug.write('CREATE_ASSOCIATIONS_IN_BULK' || g_module_name,pa_debug.G_Err_Stack,4);
3134: x_msg_count := 1;
3135: x_msg_data := SQLERRM;
3136:
3137: FND_MSG_PUB.add_exc_msg
3138: ( p_pkg_name => 'PA_DELIVERABLE_PVT'
3139: ,p_procedure_name => 'DELETE_DELIVERABLE_STRUCTURE' );
3140: IF p_debug_mode = 'Y' THEN
3141: pa_debug.write('DELETE_DELIVERABLE_STRUCTURE' || g_module_name,SQLERRM,4);
3142: pa_debug.write('DELETE_DELIVERABLE_STRUCTURE' || g_module_name,pa_debug.G_Err_Stack,4);
4674: --which will associate the selected deliverables
4675: --automatically to the task in which context the Copy External Page was called.
4676: IF p_task_id IS NOT NULL AND p_task_version_id IS NOT NULL AND p_calling_context='COPY_EXTERNAL'
4677: THEN
4678: PA_DELIVERABLE_PVT.CREATE_ASSOCIATIONS_IN_BULK
4679: (p_api_version => p_api_version
4680: ,p_init_msg_list => p_init_msg_list
4681: ,p_commit => p_commit
4682: ,p_validate_only => p_validate_only
4828: END IF;
4829: RAISE;
4830: END COPY_DELIVERABLES ;
4831:
4832: END PA_DELIVERABLE_PVT;