[Home] [Help]
1: package body PA_PROJECT_PVT as
2: /*$Header: PAPMPRVB.pls 120.42.12020000.6 2013/04/10 09:45:34 jlraj ship $*/
3:
4: --Global constants to be used in error messages
5: G_PKG_NAME CONSTANT VARCHAR2(30) :='PA_PROJECT_PVT';
1: package body PA_PROJECT_PVT as
2: /*$Header: PAPMPRVB.pls 120.42.12020000.6 2013/04/10 09:45:34 jlraj ship $*/
3:
4: --Global constants to be used in error messages
5: G_PKG_NAME CONSTANT VARCHAR2(30) :='PA_PROJECT_PVT';
6: G_PROJECT_CODE CONSTANT VARCHAR2(100) :='PROJECT';
7: G_TASK_CODE CONSTANT VARCHAR2(100) :='TASK';
8: G_KEY_MEMBER_CODE CONSTANT VARCHAR2(100) :='KEY_MEMBER';
9: G_CLASS_CAT_CODE CONSTANT VARCHAR2(100) :='CLASS_CATEGORY';
2389: l_task_in_rec.pm_parent_task_reference is not null
2390: and l_task_in_rec.pm_parent_task_reference <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
2391: )
2392: then
2393: -- 5262740 Changed Convert_pm_taskref_to_id to PA_PROJECT_PVT.Convert_pm_taskref_to_id_all
2394: PA_PROJECT_PVT.Convert_pm_taskref_to_id_all
2395: ( p_pa_project_id => l_project_id
2396: , p_pa_task_id => l_task_in_rec.pa_parent_task_id
2397: , p_pm_task_reference => l_task_in_rec.pm_parent_task_reference
2390: and l_task_in_rec.pm_parent_task_reference <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
2391: )
2392: then
2393: -- 5262740 Changed Convert_pm_taskref_to_id to PA_PROJECT_PVT.Convert_pm_taskref_to_id_all
2394: PA_PROJECT_PVT.Convert_pm_taskref_to_id_all
2395: ( p_pa_project_id => l_project_id
2396: , p_pa_task_id => l_task_in_rec.pa_parent_task_id
2397: , p_pm_task_reference => l_task_in_rec.pm_parent_task_reference
2398: , p_out_task_id => l_ref_task_id
5045: --
5046: --
5047: --History:
5048: -- 31-JUL-1996 R. Krishnamurthy Created
5049: -- 03-DEC-1996 L. de Werker Moved from pa_project_pub to pa_project_pvt
5050: --
5051: PROCEDURE check_for_one_manager
5052: (p_project_id IN NUMBER
5053: ,p_person_id IN NUMBER
5822: END IF; --bug 2841158
5823:
5824: -- convert pm_project_reference to id
5825:
5826: Pa_project_pvt.Convert_pm_projref_to_id (
5827: p_pm_project_reference => p_pm_project_reference,
5828: p_pa_project_id => p_pa_project_id,
5829: p_out_project_id => l_project_id,
5830: p_return_status => l_return_status );
5902: END IF;
5903: END IF;
5904: END IF; -- End caching - bug 13923366
5905:
5906: --5262740 Changed PA_PROJECT_PVT.Convert_pm_taskref_to_id to PA_PROJECT_PVT.Convert_pm_taskref_to_id_all
5907: Pa_project_pvt.Convert_pm_taskref_to_id_all (
5908: p_pa_project_id => l_project_id,
5909: p_pa_task_id => p_pa_task_id,
5910: p_pm_task_reference => p_pm_task_reference,
5903: END IF;
5904: END IF; -- End caching - bug 13923366
5905:
5906: --5262740 Changed PA_PROJECT_PVT.Convert_pm_taskref_to_id to PA_PROJECT_PVT.Convert_pm_taskref_to_id_all
5907: Pa_project_pvt.Convert_pm_taskref_to_id_all (
5908: p_pa_project_id => l_project_id,
5909: p_pa_task_id => p_pa_task_id,
5910: p_pm_task_reference => p_pm_task_reference,
5911: p_out_task_id => l_task_id,
6209:
6210: IF l_err_code > 0 THEN
6211: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
6212: THEN
6213: IF NOT pa_project_pvt.check_valid_message (l_err_stage)
6214: THEN
6215: pa_interface_utils_pub.map_new_amg_msg
6216: ( p_old_message_code => 'PA_TK_CANT_CHG_TASK_ORG'
6217: ,p_msg_attribute => 'CHANGE'
6448: IF l_err_code > 0
6449: THEN
6450: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
6451: THEN
6452: IF NOT pa_project_pvt.check_valid_message (l_err_stage)
6453: THEN
6454: pa_interface_utils_pub.map_new_amg_msg
6455: ( p_old_message_code => 'PA_CANT_ADD_SUBTASK'
6456: ,p_msg_attribute => 'CHANGE'
6524: block so that the update would only happen when the above conditions
6525: are true */
6526: --Check validity of start and completion date (e.g. start_date can not be later than completion_date)
6527:
6528: pa_project_pvt.check_start_end_date( p_old_start_date => l_task_rec.start_date
6529: ,p_new_start_date => p_task_start_date
6530: ,p_old_end_date => l_task_rec.completion_date
6531: ,p_new_end_date => p_task_completion_date
6532: ,p_update_start_date_flag => l_update_start_date_flag
6964:
6965: IF l_err_code > 0
6966: THEN
6967: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6968: IF NOT pa_project_pvt.check_valid_message(l_err_stage)
6969: THEN
6970: pa_interface_utils_pub.map_new_amg_msg
6971: ( p_old_message_code => 'PA_CHECK_ADD_SUBTASK_FAILED'
6972: ,p_msg_attribute => 'CHANGE'
6987: ,p_attribute2 => l_amg_task_number
6988: ,p_attribute3 => ''
6989: ,p_attribute4 => ''
6990: ,p_attribute5 => '');
6991: END IF; -- IF Pa_project_pvt.check_valid_message
6992:
6993: END IF; -- IF Check_msg_Level
6994:
6995: RAISE FND_API.G_EXC_ERROR;
9752:
9753: -- Assumption: the convert API's will do validity checks for project_id and task_id
9754:
9755:
9756: pa_project_pvt.convert_pm_projref_to_id
9757: (p_pm_project_reference => p_pm_project_reference
9758: ,p_pa_project_id => p_pa_project_id
9759: ,p_out_project_id => l_project_id
9760: ,p_return_status => l_return_status );
9769: END IF;
9770:
9771: IF p_structure_type = 'FINANCIAL'
9772: THEN
9773: -- 5262740 Changed PA_PROJECT_PVT.Convert_pm_taskref_to_id to PA_PROJECT_PVT.Convert_pm_taskref_to_id_all
9774: pa_project_pvt.convert_pm_taskref_to_id_all
9775: (p_pa_project_id => l_project_id
9776: ,p_pa_task_id => p_pa_task_id
9777: ,p_pm_task_reference => p_pm_task_reference
9770:
9771: IF p_structure_type = 'FINANCIAL'
9772: THEN
9773: -- 5262740 Changed PA_PROJECT_PVT.Convert_pm_taskref_to_id to PA_PROJECT_PVT.Convert_pm_taskref_to_id_all
9774: pa_project_pvt.convert_pm_taskref_to_id_all
9775: (p_pa_project_id => l_project_id
9776: ,p_pa_task_id => p_pa_task_id
9777: ,p_pm_task_reference => p_pm_task_reference
9778: ,p_out_task_id => l_task_id
9812:
9813: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
9814: THEN
9815:
9816: IF NOT pa_project_pvt.check_valid_message(l_err_stage)
9817: THEN
9818: pa_interface_utils_pub.map_new_amg_msg
9819: ( p_old_message_code => 'PA_DELETE_TASK_FAILED'
9820: ,p_msg_attribute => 'CHANGE'
9930:
9931: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
9932: THEN
9933:
9934: IF NOT pa_project_pvt.check_valid_message(l_err_stage)
9935: THEN
9936: pa_interface_utils_pub.map_new_amg_msg
9937: ( p_old_message_code => 'PA_DELETE_TASK_FAILED'
9938: ,p_msg_attribute => 'CHANGE'
9982: END IF;
9983:
9984: ELSE
9985:
9986: pa_project_pvt.Delete_One_Task
9987: (p_task_id => l_task_id,
9988: p_return_status => l_return_status,
9989: p_msg_count => p_msg_count,
9990: p_msg_data => p_msg_data );
10057:
10058: Analysis:
10059:
10060: The task deletion calls the PA_PROJECT_PUB.DELETE_TASK API. This was returning an error with status 'E' and error
10061: message PA_TASK_REF_AND_ID_MISSING. There is a call to Convert_pm_taskref_to_id_all API in the PA_PROJECT_PVT.DELETE_TASK1
10062: in the WORKPLAN portion of the code.
10063: Please note that the same local variable l_task_id is used for both IN and OUT parameters. Due to the NOCOPY hint the variable
10064: l_task_id was becoming null when the control enters into the Convert_pm_taskref_to_id_all API. As the required parameter was
10065: NULL the API was raising the above error resulting into an error and stopping the task deletion.
10069: In order to avoid this issue a new local variable is created and used to capture the OUT parameters value in the call and
10070: then assign the value back to the old l_task_id variable.
10071: */
10072:
10073: PA_PROJECT_PVT.Convert_pm_taskref_to_id_all (
10074: p_pa_project_id => l_project_id
10075: , p_structure_type => 'WORKPLAN'
10076: , p_pa_task_id => l_task_id
10077: , p_pm_task_reference => l_task_source_reference
10429:
10430: --Assumption: convert API will do validity check for project_id
10431:
10432:
10433: pa_project_pvt.convert_pm_projref_to_id
10434: (p_pm_project_reference => p_pm_project_reference
10435: ,p_pa_project_id => p_pa_project_id
10436: ,p_out_project_id => l_project_id
10437: ,p_return_status => l_return_status );
10509: IF l_err_code <> 0 THEN
10510:
10511: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
10512:
10513: IF NOT pa_project_pvt.check_valid_message(l_err_stage)
10514: THEN
10515: pa_interface_utils_pub.map_new_amg_msg
10516: ( p_old_message_code => 'PA_DELETE_PROJECT_FAILED'
10517: ,p_msg_attribute => 'CHANGE'
10556: x_err_stack => l_err_stack,
10557: x_commit => p_commit);
10558: IF l_err_code > 0 THEN
10559: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
10560: IF NOT pa_project_pvt.check_valid_message(l_err_stage) THEN
10561:
10562: pa_interface_utils_pub.map_new_amg_msg
10563: ( p_old_message_code => 'PA_DELETE_PROJECT_FAILED'
10564: ,p_msg_attribute => 'CHANGE'
12310: IF l_debug_mode = 'Y' THEN
12311: pa_debug.set_curr_function( p_function => 'VALIDATE_DATA',
12312: p_debug_mode => l_debug_mode );
12313: pa_debug.g_err_stage:= 'Entered VALIDATE_DATA';
12314: pa_debug.write('PA_PROJECT_PVT.VALIDATE_DATA',pa_debug.g_err_stage,3);
12315: END IF;
12316: --validation 1
12317:
12318: open project_data;
12340: end if;
12341:
12342: IF l_debug_mode = 'Y' THEN
12343: pa_debug.g_err_stage:= 'Validation for invalid task customers was done';
12344: pa_debug.write('PA_PROJECT_PVT.VALIDATE_DATA',pa_debug.g_err_stage,3);
12345: END IF;
12346:
12347: --validation 2
12348: if (p_calling_context = 'UPDATE_PROJECT' and l_enable_tt_cust_flag = 'Y') then
12373: end if;
12374:
12375: IF l_debug_mode = 'Y' THEN
12376: pa_debug.g_err_stage:= 'Validation for single default top task customer was done';
12377: pa_debug.write('PA_PROJECT_PVT.VALIDATE_DATA',pa_debug.g_err_stage,3);
12378: END IF;
12379:
12380: IF l_debug_mode = 'Y' THEN
12381: pa_debug.reset_curr_function;
12412: WHEN OTHERS THEN
12413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12414: x_msg_count := 1;
12415: x_msg_data := SQLERRM;
12416: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_PROJECT_PVT'
12417: ,p_procedure_name => 'VALIDATE_DATA'
12418: ,p_error_text => sqlerrm);
12419:
12420: IF l_debug_mode = 'Y' THEN
12418: ,p_error_text => sqlerrm);
12419:
12420: IF l_debug_mode = 'Y' THEN
12421: pa_debug.G_Err_Stack := SQLERRM;
12422: pa_debug.write('PA_PROJECT_PVT.VALIDATE_DATA' ,pa_debug.G_Err_Stack,4);
12423: pa_debug.reset_curr_function;
12424: END IF;
12425: RAISE;
12426:
12609: RAISE FND_API.G_EXC_ERROR;
12610: END IF;
12611: END LOG_TASK_LEVEL_EVENT;
12612:
12613: end PA_PROJECT_PVT;