[Home] [Help]
1: package body PA_PROJECT_PVT as
2: /*$Header: PAPMPRVB.pls 120.21.12010000.4 2008/10/21 10:22:14 dbudhwar 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.21.12010000.4 2008/10/21 10:22:14 dbudhwar 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';
2220: l_task_in_rec.pm_parent_task_reference is not null
2221: and l_task_in_rec.pm_parent_task_reference <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
2222: )
2223: then
2224: -- 5262740 Changed Convert_pm_taskref_to_id to PA_PROJECT_PVT.Convert_pm_taskref_to_id_all
2225: PA_PROJECT_PVT.Convert_pm_taskref_to_id_all
2226: ( p_pa_project_id => l_project_id
2227: , p_pa_task_id => l_task_in_rec.pa_parent_task_id
2228: , p_pm_task_reference => l_task_in_rec.pm_parent_task_reference
2221: and l_task_in_rec.pm_parent_task_reference <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
2222: )
2223: then
2224: -- 5262740 Changed Convert_pm_taskref_to_id to PA_PROJECT_PVT.Convert_pm_taskref_to_id_all
2225: PA_PROJECT_PVT.Convert_pm_taskref_to_id_all
2226: ( p_pa_project_id => l_project_id
2227: , p_pa_task_id => l_task_in_rec.pa_parent_task_id
2228: , p_pm_task_reference => l_task_in_rec.pm_parent_task_reference
2229: , p_out_task_id => l_ref_task_id
4848: --
4849: --
4850: --History:
4851: -- 31-JUL-1996 R. Krishnamurthy Created
4852: -- 03-DEC-1996 L. de Werker Moved from pa_project_pub to pa_project_pvt
4853: --
4854: PROCEDURE check_for_one_manager
4855: (p_project_id IN NUMBER
4856: ,p_person_id IN NUMBER
5571: END IF; --bug 2841158
5572:
5573: -- convert pm_project_reference to id
5574:
5575: Pa_project_pvt.Convert_pm_projref_to_id (
5576: p_pm_project_reference => p_pm_project_reference,
5577: p_pa_project_id => p_pa_project_id,
5578: p_out_project_id => l_project_id,
5579: p_return_status => l_return_status );
5631: p_return_status := FND_API.G_RET_STS_ERROR;
5632: RAISE FND_API.G_EXC_ERROR;
5633: END IF;
5634: END IF;
5635: --5262740 Changed PA_PROJECT_PVT.Convert_pm_taskref_to_id to PA_PROJECT_PVT.Convert_pm_taskref_to_id_all
5636: Pa_project_pvt.Convert_pm_taskref_to_id_all (
5637: p_pa_project_id => l_project_id,
5638: p_pa_task_id => p_pa_task_id,
5639: p_pm_task_reference => p_pm_task_reference,
5632: RAISE FND_API.G_EXC_ERROR;
5633: END IF;
5634: END IF;
5635: --5262740 Changed PA_PROJECT_PVT.Convert_pm_taskref_to_id to PA_PROJECT_PVT.Convert_pm_taskref_to_id_all
5636: Pa_project_pvt.Convert_pm_taskref_to_id_all (
5637: p_pa_project_id => l_project_id,
5638: p_pa_task_id => p_pa_task_id,
5639: p_pm_task_reference => p_pm_task_reference,
5640: p_out_task_id => l_task_id,
5917:
5918: IF l_err_code > 0 THEN
5919: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5920: THEN
5921: IF NOT pa_project_pvt.check_valid_message (l_err_stage)
5922: THEN
5923: pa_interface_utils_pub.map_new_amg_msg
5924: ( p_old_message_code => 'PA_TK_CANT_CHG_TASK_ORG'
5925: ,p_msg_attribute => 'CHANGE'
6152: IF l_err_code > 0
6153: THEN
6154: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
6155: THEN
6156: IF NOT pa_project_pvt.check_valid_message (l_err_stage)
6157: THEN
6158: pa_interface_utils_pub.map_new_amg_msg
6159: ( p_old_message_code => 'PA_CANT_ADD_SUBTASK'
6160: ,p_msg_attribute => 'CHANGE'
6220: block so that the update would only happen when the above conditions
6221: are true */
6222: --Check validity of start and completion date (e.g. start_date can not be later than completion_date)
6223:
6224: pa_project_pvt.check_start_end_date( p_old_start_date => l_task_rec.start_date
6225: ,p_new_start_date => p_task_start_date
6226: ,p_old_end_date => l_task_rec.completion_date
6227: ,p_new_end_date => p_task_completion_date
6228: ,p_update_start_date_flag => l_update_start_date_flag
6642:
6643: IF l_err_code > 0
6644: THEN
6645: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6646: IF NOT pa_project_pvt.check_valid_message(l_err_stage)
6647: THEN
6648: pa_interface_utils_pub.map_new_amg_msg
6649: ( p_old_message_code => 'PA_CHECK_ADD_SUBTASK_FAILED'
6650: ,p_msg_attribute => 'CHANGE'
6665: ,p_attribute2 => l_amg_task_number
6666: ,p_attribute3 => ''
6667: ,p_attribute4 => ''
6668: ,p_attribute5 => '');
6669: END IF; -- IF Pa_project_pvt.check_valid_message
6670:
6671: END IF; -- IF Check_msg_Level
6672:
6673: RAISE FND_API.G_EXC_ERROR;
9412:
9413: -- Assumption: the convert API's will do validity checks for project_id and task_id
9414:
9415:
9416: pa_project_pvt.convert_pm_projref_to_id
9417: (p_pm_project_reference => p_pm_project_reference
9418: ,p_pa_project_id => p_pa_project_id
9419: ,p_out_project_id => l_project_id
9420: ,p_return_status => l_return_status );
9429: END IF;
9430:
9431: IF p_structure_type = 'FINANCIAL'
9432: THEN
9433: -- 5262740 Changed PA_PROJECT_PVT.Convert_pm_taskref_to_id to PA_PROJECT_PVT.Convert_pm_taskref_to_id_all
9434: pa_project_pvt.convert_pm_taskref_to_id_all
9435: (p_pa_project_id => l_project_id
9436: ,p_pa_task_id => p_pa_task_id
9437: ,p_pm_task_reference => p_pm_task_reference
9430:
9431: IF p_structure_type = 'FINANCIAL'
9432: THEN
9433: -- 5262740 Changed PA_PROJECT_PVT.Convert_pm_taskref_to_id to PA_PROJECT_PVT.Convert_pm_taskref_to_id_all
9434: pa_project_pvt.convert_pm_taskref_to_id_all
9435: (p_pa_project_id => l_project_id
9436: ,p_pa_task_id => p_pa_task_id
9437: ,p_pm_task_reference => p_pm_task_reference
9438: ,p_out_task_id => l_task_id
9472:
9473: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
9474: THEN
9475:
9476: IF NOT pa_project_pvt.check_valid_message(l_err_stage)
9477: THEN
9478: pa_interface_utils_pub.map_new_amg_msg
9479: ( p_old_message_code => 'PA_DELETE_TASK_FAILED'
9480: ,p_msg_attribute => 'CHANGE'
9590:
9591: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
9592: THEN
9593:
9594: IF NOT pa_project_pvt.check_valid_message(l_err_stage)
9595: THEN
9596: pa_interface_utils_pub.map_new_amg_msg
9597: ( p_old_message_code => 'PA_DELETE_TASK_FAILED'
9598: ,p_msg_attribute => 'CHANGE'
9642: END IF;
9643:
9644: ELSE
9645:
9646: pa_project_pvt.Delete_One_Task
9647: (p_task_id => l_task_id,
9648: p_return_status => l_return_status,
9649: p_msg_count => p_msg_count,
9650: p_msg_data => p_msg_data );
9717:
9718: Analysis:
9719:
9720: The task deletion calls the PA_PROJECT_PUB.DELETE_TASK API. This was returning an error with status 'E' and error
9721: 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
9722: in the WORKPLAN portion of the code.
9723: 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
9724: l_task_id was becoming null when the control enters into the Convert_pm_taskref_to_id_all API. As the required parameter was
9725: NULL the API was raising the above error resulting into an error and stopping the task deletion.
9729: In order to avoid this issue a new local variable is created and used to capture the OUT parameters value in the call and
9730: then assign the value back to the old l_task_id variable.
9731: */
9732:
9733: PA_PROJECT_PVT.Convert_pm_taskref_to_id_all (
9734: p_pa_project_id => l_project_id
9735: , p_structure_type => 'WORKPLAN'
9736: , p_pa_task_id => l_task_id
9737: , p_pm_task_reference => l_task_source_reference
10089:
10090: --Assumption: convert API will do validity check for project_id
10091:
10092:
10093: pa_project_pvt.convert_pm_projref_to_id
10094: (p_pm_project_reference => p_pm_project_reference
10095: ,p_pa_project_id => p_pa_project_id
10096: ,p_out_project_id => l_project_id
10097: ,p_return_status => l_return_status );
10169: IF l_err_code <> 0 THEN
10170:
10171: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
10172:
10173: IF NOT pa_project_pvt.check_valid_message(l_err_stage)
10174: THEN
10175: pa_interface_utils_pub.map_new_amg_msg
10176: ( p_old_message_code => 'PA_DELETE_PROJECT_FAILED'
10177: ,p_msg_attribute => 'CHANGE'
10215: x_err_stage => l_err_stage,
10216: x_err_stack => l_err_stack );
10217: IF l_err_code > 0 THEN
10218: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
10219: IF NOT pa_project_pvt.check_valid_message(l_err_stage) THEN
10220:
10221: pa_interface_utils_pub.map_new_amg_msg
10222: ( p_old_message_code => 'PA_DELETE_PROJECT_FAILED'
10223: ,p_msg_attribute => 'CHANGE'
11947: IF l_debug_mode = 'Y' THEN
11948: pa_debug.set_curr_function( p_function => 'VALIDATE_DATA',
11949: p_debug_mode => l_debug_mode );
11950: pa_debug.g_err_stage:= 'Entered VALIDATE_DATA';
11951: pa_debug.write('PA_PROJECT_PVT.VALIDATE_DATA',pa_debug.g_err_stage,3);
11952: END IF;
11953: --validation 1
11954:
11955: open project_data;
11977: end if;
11978:
11979: IF l_debug_mode = 'Y' THEN
11980: pa_debug.g_err_stage:= 'Validation for invalid task customers was done';
11981: pa_debug.write('PA_PROJECT_PVT.VALIDATE_DATA',pa_debug.g_err_stage,3);
11982: END IF;
11983:
11984: --validation 2
11985: if (p_calling_context = 'UPDATE_PROJECT' and l_enable_tt_cust_flag = 'Y') then
12010: end if;
12011:
12012: IF l_debug_mode = 'Y' THEN
12013: pa_debug.g_err_stage:= 'Validation for single default top task customer was done';
12014: pa_debug.write('PA_PROJECT_PVT.VALIDATE_DATA',pa_debug.g_err_stage,3);
12015: END IF;
12016:
12017: IF l_debug_mode = 'Y' THEN
12018: pa_debug.reset_curr_function;
12049: WHEN OTHERS THEN
12050: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12051: x_msg_count := 1;
12052: x_msg_data := SQLERRM;
12053: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_PROJECT_PVT'
12054: ,p_procedure_name => 'VALIDATE_DATA'
12055: ,p_error_text => sqlerrm);
12056:
12057: IF l_debug_mode = 'Y' THEN
12055: ,p_error_text => sqlerrm);
12056:
12057: IF l_debug_mode = 'Y' THEN
12058: pa_debug.G_Err_Stack := SQLERRM;
12059: pa_debug.write('PA_PROJECT_PVT.VALIDATE_DATA' ,pa_debug.G_Err_Stack,4);
12060: pa_debug.reset_curr_function;
12061: END IF;
12062: RAISE;
12063:
12062: RAISE;
12063:
12064: END VALIDATE_DATA;
12065:
12066: end PA_PROJECT_PVT;