[Home] [Help]
1: PACKAGE BODY PA_PLANNING_RESOURCE_UTILS AS
2: /* $Header: PARPRLUB.pls 120.12.12010000.3 2008/10/23 05:21:50 paljain ship $ */
3:
4: g_job_group_id NUMBER;
5: /********************************************************
1580: Pa_Planning_Resource_Pvt.g_token);
1581: END;
1582: ELSIF p_res_type_code = 'NAMED_PERSON' THEN
1583:
1584: pa_planning_resource_utils.Check_PersonName_or_ID(
1585: p_person_id => p_resource_code,
1586: p_person_name => p_resource_name,
1587: p_check_id_flag => PA_STARTUP.G_Check_ID_Flag,
1588: x_person_id => l_person_id,
1632: Return;
1633: END IF;
1634: ELSIF p_res_type_code = 'BOM_LABOR' THEN
1635:
1636: pa_planning_resource_utils.Check_BOM_EqLabor_or_ID(
1637: p_bom_eqlabor_id => p_resource_code,
1638: p_bom_eqlabor_name => p_resource_name,
1639: p_res_type_code => 2,
1640: p_check_id_flag => PA_STARTUP.G_Check_ID_Flag,
1658: Return;
1659: END IF;
1660: ELSIF p_res_type_code = 'BOM_EQUIPMENT' THEN
1661:
1662: pa_planning_resource_utils.Check_BOM_EqLabor_or_ID(
1663: p_bom_eqlabor_id => p_resource_code,
1664: p_bom_eqlabor_name => p_resource_name,
1665: p_res_type_code => 1,
1666: p_check_id_flag => PA_STARTUP.G_Check_ID_Flag,
1704: x_error_msg_code:= 'PA_NO_ITEM_CATEGORY_SET';
1705: Return;
1706: END;
1707:
1708: Pa_planning_resource_utils.Check_ItemCat_or_ID(
1709: P_item_cat_id => p_resource_code,
1710: P_item_cat_name => p_resource_name,
1711: P_item_category_set_id => l_item_category_set_id,
1712: P_check_id_flag => PA_STARTUP.G_Check_ID_Flag,
1745: --Need to get a proper message
1746: x_error_msg_code:= 'PA_NO_MAT_ITEM_ID';
1747: Return;
1748: END;
1749: Pa_planning_resource_utils.Check_InventoryItem_or_ID(
1750: P_item_id => p_resource_code,
1751: P_item_name => p_resource_name,
1752: P_item_master_id => l_item_master_id,
1753: P_check_id_flag => PA_STARTUP.G_Check_ID_Flag,
2633: * Call the Procedure Default_job which will Update the Job ID
2634: * in the temp table pa_res_members_temp with the correct
2635: * value.
2636: * *****************************************************************/
2637: pa_planning_resource_utils.default_job;
2638:
2639: /******************************************************************
2640: * Call the Procedure default_person_type which will Update the
2641: * person_type_code in the temp table pa_res_members_temp with the correct
2640: * Call the Procedure default_person_type which will Update the
2641: * person_type_code in the temp table pa_res_members_temp with the correct
2642: * value.
2643: * *****************************************************************/
2644: pa_planning_resource_utils.default_person_type;
2645:
2646: /******************************************************************
2647: * Call the Procedure Default_Organization which will
2648: * Update the organization_id and rate_incurred_by_org_id
2648: * Update the organization_id and rate_incurred_by_org_id
2649: * in the temp table pa_res_members_temp with the correct
2650: * values.
2651: * *****************************************************************/
2652: pa_planning_resource_utils.default_organization(
2653: p_project_id => p_project_id);
2654:
2655: /******************************************************************
2656: * Call the Procedure Default_Expenditure_Type which will
2657: * Update the expenditure_type
2658: * in the temp table pa_res_members_temp with the correct
2659: * values.
2660: * *****************************************************************/
2661: pa_planning_resource_utils.default_expenditure_type;
2662:
2663: /******************************************************************
2664: * Call the Procedure Default_Rate_Expenditure_Type which will
2665: * Update the rate_expenditure_type
2665: * Update the rate_expenditure_type
2666: * in the temp table pa_res_members_temp with the correct
2667: * values.
2668: * *****************************************************************/
2669: pa_planning_resource_utils.default_rate_expenditure_type;
2670:
2671: /******************************************************************
2672: * Call the Procedure Default_Supplier which will
2673: * Update the vendor_id
2673: * Update the vendor_id
2674: * in the temp table pa_res_members_temp with the correct
2675: * values.
2676: * *****************************************************************/
2677: pa_planning_resource_utils.default_supplier;
2678:
2679: /******************************************************************
2680: * Call the Procedure Default_rate_based which will
2681: * Update the Rate_based_flag
2681: * Update the Rate_based_flag
2682: * in the temp table pa_res_members_temp with the correct
2683: * values.
2684: * *****************************************************************/
2685: pa_planning_resource_utils.default_rate_based;
2686:
2687: /******************************************************************
2688: * Call the Procedure Default_OU which will
2689: * Update the OU
2689: * Update the OU
2690: * in the temp table pa_res_members_temp with the correct
2691: * values.
2692: *****************************************************************/
2693: pa_planning_resource_utils.default_ou(p_project_id);
2694:
2695: /******************************************************************
2696: * Call the Procedure Default_UOM which will
2697: * Update the Unit_of_measure
2697: * Update the Unit_of_measure
2698: * in the temp table pa_res_members_temp with the correct
2699: * values.
2700: *****************************************************************/
2701: pa_planning_resource_utils.default_uom;
2702:
2703: /******************************************************************
2704: * Call the Procedure Default_Currency_Code which will
2705: * Update the Rate_Func_Curr_Code
2705: * Update the Rate_Func_Curr_Code
2706: * in the temp table pa_res_members_temp with the correct
2707: * values.
2708: *****************************************************************/
2709: pa_planning_resource_utils.default_currency_code;
2710:
2711: /*****************************************************************
2712: * Fetch the values that are currently there in the pa_res_members_temp
2713: * table into the out var's. Select it from the Temp table
2847: l_Resource_Name Varchar2(1000) := Null;
2848:
2849: Begin
2850:
2851: pa_planning_resource_utils.Get_Resource_Name (
2852: P_Res_Type_Code => P_Res_Type_Code,
2853: P_Person_Id => P_Person_Id,
2854: P_Bom_Resource_Id => P_Bom_Resource_Id,
2855: P_Job_Id => P_Job_Id,
3281: X_Return_Status := Fnd_Api.G_Ret_Sts_UnExp_Error;
3282: --x_msg_count := x_msg_count + 1;
3283: x_msg_data := Null;
3284: Fnd_Msg_Pub.Add_Exc_Msg(
3285: P_Pkg_Name => 'PA_PLANNING_RESOURCE_UTILS',
3286: P_Procedure_Name => 'Get_Resource_Name');
3287:
3288: Return;
3289: /* When NULL_PER_IN_RES_LIST_MEM Then
3486: l_Fin_Cat_Displayed Varchar2(80) := Null;
3487:
3488: Begin
3489:
3490: Pa_Planning_Resource_Utils.Get_Fin_Category_Name (
3491: P_FC_Res_Type_Code => P_FC_Res_Type_Code,
3492: P_Expenditure_Type => P_Expenditure_Type,
3493: P_Expenditure_Category => P_Expenditure_Category,
3494: P_Event_Type => P_Event_Type,
3671: X_Return_Status := Fnd_Api.G_Ret_Sts_UnExp_Error;
3672: --x_msg_count := x_msg_count + 1;
3673: x_msg_data := Null;
3674: Fnd_Msg_Pub.Add_Exc_Msg(
3675: P_Pkg_Name => 'PA_PLANNING_RESOURCE_UTILS',
3676: P_Procedure_Name => 'Get_Fin_Category_Name');
3677: Return;
3678: /*When NULL_FC_RES_TYPE_IN_LIST_MEM Then
3679:
3789: l_Organization_Name Varchar2(240) := Null;
3790:
3791: Begin
3792:
3793: pa_planning_resource_utils.Get_Organization_Name (
3794: P_Organization_Id => P_Organization_Id,
3795: P_Proc_Func_Flag => 'F',
3796: X_Org_Displayed => l_Organization_Name,
3797: X_Return_Status => l_Return_Status,
3854: X_Return_Status := Fnd_Api.G_Ret_Sts_UnExp_Error;
3855: --x_msg_count := x_msg_count + 1;
3856: x_msg_data := Null;
3857: Fnd_Msg_Pub.Add_Exc_Msg(
3858: P_Pkg_Name => 'PA_PLANNING_RESOURCE_UTILS',
3859: P_Procedure_Name => 'Get_Organization_Name');
3860: Return;
3861: /*When NULL_ORG_ID_IN_LIST_MEM Then
3862:
3909: l_Supplier_Name Varchar2(240) := Null;
3910:
3911: Begin
3912:
3913: Pa_Planning_Resource_Utils.Get_Supplier_Name(
3914: P_Supplier_Id => P_Supplier_Id,
3915: P_Proc_Func_Flag => 'F',
3916: X_Supplier_Displayed => l_Supplier_Name,
3917: X_Return_Status => l_Return_Status,
3984: X_Return_Status := Fnd_Api.G_Ret_Sts_UnExp_Error;
3985: --x_msg_count := x_msg_count + 1;
3986: x_msg_data := Null;
3987: Fnd_Msg_Pub.Add_Exc_Msg(
3988: P_Pkg_Name => 'PA_PLANNING_RESOURCE_UTILS',
3989: P_Procedure_Name => 'Get_Supplier_Name');
3990: Return;
3991: /*When NULL_VEND_IN_LIST_MEM Then
3992:
4038: l_Role_Name Varchar2(80) := Null;
4039:
4040: Begin
4041:
4042: Pa_Planning_Resource_Utils.Get_Role_Name(
4043: P_Role_Id => P_Role_Id,
4044: P_Proc_Func_Flag => 'F',
4045: X_Role_Displayed => l_Role_Name,
4046: X_Return_Status => l_Return_Status,
4115: X_Return_Status := Fnd_Api.G_Ret_Sts_UnExp_Error;
4116: --x_msg_count := x_msg_count + 1;
4117: x_msg_data := Null;
4118: Fnd_Msg_Pub.Add_Exc_Msg(
4119: P_Pkg_Name => 'PA_PLANNING_RESOURCE_UTILS',
4120: P_Procedure_Name => 'Get_Role_Name');
4121: Return;
4122: /*When NULL_ROLE_IN_LIST_MEM Then
4123:
4173: l_Inc_By_Name Varchar2(1000) := Null;
4174:
4175: Begin
4176:
4177: Pa_Planning_Resource_Utils.Get_Incur_By_Res_Name(
4178: P_Person_Id => P_Person_Id,
4179: P_Job_Id => P_Job_Id,
4180: P_Incur_By_Role_Id => P_Incur_By_Role_Id,
4181: P_Person_Type_Code => P_Person_Type_Code,
4410: X_Return_Status := Fnd_Api.G_Ret_Sts_UnExp_Error;
4411: --x_msg_count := x_msg_count + 1;
4412: x_msg_data := Null;
4413: Fnd_Msg_Pub.Add_Exc_Msg(
4414: P_Pkg_Name => 'PA_PLANNING_RESOURCE_UTILS',
4415: P_Procedure_Name => 'Get_Incur_By_Res_Name');
4416: Return;
4417: /*When BAD_PER_IN_RES_LIST_MEM Then
4418:
4661:
4662: -- Check res_type_enabled_flag = 'Y'
4663: If Res_Format_Rec.Res_Type_Enabled_Flag = 'Y' Then
4664:
4665: Pa_Planning_Resource_Utils.Get_Resource_Name (
4666: P_Res_Type_Code => Res_Format_Rec.Res_Type_Code,
4667: P_Person_Id => Res_List_Member_Rec.Person_Id,
4668: P_Bom_Resource_Id => Res_List_Member_Rec.BOM_Resource_Id,
4669: P_Job_Id => Res_List_Member_Rec.Job_Id,
4707:
4708: -- Check fin_cat_enabled_flag = 'Y'
4709: If Res_Format_Rec.Fin_Cat_Enabled_Flag = 'Y' Then
4710:
4711: Pa_Planning_Resource_Utils.Get_Fin_Category_Name (
4712: P_FC_Res_Type_Code => Res_List_Member_Rec.Fc_Res_Type_Code,
4713: P_Expenditure_Type => Res_List_Member_Rec.Expenditure_Type,
4714: P_Expenditure_Category => Res_List_Member_Rec.Expenditure_Category,
4715: P_Event_Type => Res_List_Member_Rec.Event_Type,
4743:
4744: -- Check orgn_enabled_flag = 'Y'
4745: If Res_Format_Rec.Orgn_Enabled_Flag = 'Y' Then
4746:
4747: Pa_Planning_Resource_Utils.Get_Organization_Name (
4748: P_Organization_Id => Res_List_Member_Rec.Organization_Id,
4749: P_Proc_Func_Flag => 'P',
4750: X_Org_Displayed => l_Orgn_Displayed,
4751: X_Return_Status => X_Return_Status,
4774:
4775: -- Check supplier_enabled_flag = 'Y'
4776: If Res_Format_Rec.Supplier_Enabled_Flag = 'Y' Then
4777:
4778: Pa_Planning_Resource_Utils.Get_Supplier_Name (
4779: P_Supplier_Id => Res_List_Member_Rec.Vendor_Id,
4780: P_Proc_Func_Flag => 'P',
4781: X_Supplier_Displayed => l_Supplier_Displayed,
4782: X_Return_Status => X_Return_Status,
4805:
4806: -- Check role_enabled_flag = 'Y'
4807: If Res_Format_Rec.Role_Enabled_Flag = 'Y' Then
4808: -- Team Role Changes
4809: /*Pa_Planning_Resource_Utils.Get_Role_Name (
4810: P_Role_Id => Res_List_Member_Rec.Project_Role_Id,
4811: P_Proc_Func_Flag => 'P',
4812: X_Role_Displayed => l_Role_Displayed,
4813: X_Return_Status => X_Return_Status,
4840: -- Check incurred_by_enabled_flag = 'Y'
4841: If Res_Format_Rec.Incurred_By_Enabled_Flag = 'Y' and
4842: Res_List_Member_Rec.Incurred_By_Res_Flag = 'Y' Then
4843:
4844: Pa_Planning_Resource_Utils.Get_Incur_By_Res_Name (
4845: P_Person_Id => Res_List_Member_Rec.Person_Id,
4846: P_Job_Id => Res_List_Member_Rec.Job_Id,
4847: P_Incur_By_Role_Id => Res_List_Member_Rec.Incur_By_Role_Id,
4848: P_Person_Type_Code => Res_List_Member_Rec.Person_Type_Code,
4940: l_Error_Count Number;
4941:
4942: BEGIN
4943:
4944: Pa_Planning_Resource_Utils.Get_Plan_Res_Combination(
4945: P_Resource_List_Member_Id => P_Resource_List_Member_Id,
4946: X_Resource_Alias => l_Res_List_Member_Alias,
4947: X_Plan_Res_Combination => l_Plan_Res_Combination,
4948: X_Return_Status => l_Return_Status,
5167: X_Return_Status := Fnd_Api.G_Ret_Sts_UnExp_Error;
5168: --x_msg_count := x_msg_count + 1;
5169: x_error_message_code := Null;
5170: Fnd_Msg_Pub.Add_Exc_Msg(
5171: P_Pkg_Name => 'PA_PLANNING_RESOURCE_UTILS',
5172: P_Procedure_Name => 'Validate_Fin_Category');
5173: When INVALID_FIN_CAT_CODE Then
5174: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
5175: X_Error_Message_Code := 'PA_VFC_INVALID_FIN_CAT_CODE';
5501: X_Return_Status := Fnd_Api.G_Ret_Sts_UnExp_Error;
5502: --x_msg_count := x_msg_count + 1;
5503: x_error_message_code := Null;
5504: Fnd_Msg_Pub.Add_Exc_Msg(
5505: P_Pkg_Name => 'PA_PLANNING_RESOURCE_UTILS',
5506: P_Procedure_Name => 'Validate_Incur_by_Resource');
5507:
5508: When MAN_PARAMS_NULL Then
5509: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
5850:
5851: End If;
5852:
5853: -- hr_utility.trace('g_job_group_id IS : ' || g_job_group_id);
5854: -- hr_utility.trace('Before Pa_Planning_Resource_Utils.Validate_Resource');
5855: Pa_Planning_Resource_Utils.Validate_Resource(
5856: P_resource_Code => P_Resource_Code,
5857: P_Resource_Name => P_Resource_Name,
5858: P_Resource_Class_Code => P_Resource_Class_Code,
5851: End If;
5852:
5853: -- hr_utility.trace('g_job_group_id IS : ' || g_job_group_id);
5854: -- hr_utility.trace('Before Pa_Planning_Resource_Utils.Validate_Resource');
5855: Pa_Planning_Resource_Utils.Validate_Resource(
5856: P_resource_Code => P_Resource_Code,
5857: P_Resource_Name => P_Resource_Name,
5858: P_Resource_Class_Code => P_Resource_Class_Code,
5859: P_Res_Type_Code => P_Res_Type_Code,
5868: X_Resource_Class_Flag => X_resource_class_flag,
5869: X_Return_Status => X_Return_Status,
5870: X_Error_Msg_Code => X_Msg_Data);
5871:
5872: -- hr_utility.trace('After Pa_Planning_Resource_Utils.Validate_Resource');
5873: -- hr_utility.trace('X_Return_Status IS : ' || X_Return_Status);
5874: -- hr_utility.trace('X_Msg_Data IS : ' || X_Msg_Data);
5875: If X_Return_Status = Fnd_Api.G_Ret_Sts_Error Then
5876:
5887: Raise MISSING_ORG_VALUES;
5888:
5889: ElsIf P_Organization_Id is Not Null or
5890: P_Organization_Name is Not Null Then
5891: Pa_Planning_Resource_Utils.Validate_Organization(
5892: P_Organization_Name => P_Organization_Name,
5893: P_Organization_Id => P_Organization_Id,
5894: X_Organization_Id => X_Organization_Id,
5895: X_Return_Status => X_Return_Status,
5910:
5911: ElsIf P_FC_Res_Type_Code is Not Null or
5912: P_Fin_Category_Name is Not Null Then
5913:
5914: Pa_Planning_Resource_Utils.Validate_Fin_Category(
5915: P_FC_Res_Type_Code => P_FC_Res_Type_Code,
5916: P_Resource_Class_Code => P_Resource_Class_Code,
5917: P_Fin_Category_Name => P_Fin_Category_Name,
5918: P_migration_code => l_migration_code,
5941: P_Incur_By_Resource_Type is Not Null Then
5942:
5943: If P_Resource_Class_Code = 'FINANCIAL_ELEMENTS' Then
5944:
5945: Pa_Planning_Resource_Utils.Validate_Incur_by_Resource(
5946: P_Resource_Class_Code => P_Resource_Class_Code,
5947: P_Res_Type_Code => P_Incur_By_Resource_Type,
5948: P_Incur_By_Res_Code => P_Incur_By_Resource_Code,
5949: X_Person_Id => l_Person_Id,
5996:
5997: ElsIf P_Supplier_Id is Not Null or
5998: P_Supplier_Name is Not Null Then
5999:
6000: Pa_Planning_Resource_Utils.Validate_Supplier(
6001: P_Resource_Class_Code => P_Resource_Class_Code,
6002: P_Person_Id => x_person_id,
6003: P_Supplier_Id => P_Supplier_Id,
6004: P_Supplier_Name => P_Supplier_Name,
6034: IF P_Project_Role_Name IS NOT NULL THEN
6035: l_team_role := P_Project_Role_Name;
6036: ELSE
6037: IF p_project_role_id IS NOT NULL THEN
6038: l_team_role := Pa_Planning_Resource_Utils.Ret_Role_Name
6039: (P_Role_Id => p_project_role_id );
6040: END IF;
6041: END IF;
6042: ELSE
6124: X_Return_Status := Fnd_Api.G_Ret_Sts_UnExp_Error;
6125: --x_msg_count := x_msg_count + 1;
6126: x_msg_data := Null;
6127: Fnd_Msg_Pub.Add_Exc_Msg(
6128: P_Pkg_Name => 'PA_PLANNING_RESOURCE_UTILS',
6129: P_Procedure_Name => 'Validate_Planning_Resource');
6130:
6131: /*When PARAMS_ALL_NULL Then
6132: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
7246:
7247: EXCEPTION
7248: WHEN OTHERS THEN
7249: FND_MSG_PUB.add_exc_msg( p_pkg_name =>
7250: 'Pa_Planning_Resource_Utils.Delete_proj_specific_resource'
7251: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
7252: x_msg_count := x_msg_count+1;
7253: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7254: END Delete_Proj_Specific_Resource;
7606: (l_fmt_details.Res_Type_Code = 'NAMED_PERSON' AND
7607: (P_person_id is not NULL OR P_person_name is NOT NULL)) THEN
7608: IF l_fmt_details.Orgn_Enabled_Flag = 'Y' THEN
7609: -- Do name to ID conversion on person
7610: pa_planning_resource_utils.Check_PersonName_or_ID(
7611: p_person_id => P_person_id,
7612: p_person_name => P_person_name,
7613: p_check_id_flag => PA_STARTUP.G_Check_ID_Flag,
7614: x_person_id => l_person_id,
7647: (p_bom_resource_id is not NULL OR p_bom_resource_name is NOT NULL)) THEN
7648:
7649: -- Do name to ID conversion on bom resource
7650: IF l_fmt_details.Res_Type_Code = 'BOM_LABOR' THEN
7651: pa_planning_resource_utils.Check_BOM_EqLabor_or_ID(
7652: p_bom_eqlabor_id => p_bom_resource_id,
7653: p_bom_eqlabor_name => p_bom_resource_name,
7654: p_res_type_code => 2,
7655: p_check_id_flag => PA_STARTUP.G_Check_ID_Flag,
7662: Pa_Planning_Resource_Pvt.g_token);
7663: Return;
7664: END IF;
7665: ELSIF l_fmt_details.Res_Type_Code = 'BOM_EQUIPMENT' THEN
7666: pa_planning_resource_utils.Check_BOM_EqLabor_or_ID(
7667: p_bom_eqlabor_id => p_bom_resource_id,
7668: p_bom_eqlabor_name => p_bom_resource_name,
7669: p_res_type_code => 1,
7670: p_check_id_flag => PA_STARTUP.G_Check_ID_Flag,
7708: END IF;
7709:
7710: END default_other_elements;
7711:
7712: END PA_PLANNING_RESOURCE_UTILS;
7713: /******************************************************************/