[Home] [Help]
358: -- l_return_status VARCHAR2(1);
359: l_organization_id NUMBER := null;
360: -- l_error_msg_data fnd_new_messages.message_name%TYPE;
361: BEGIN
362: x_return_status := FND_API.G_RET_STS_SUCCESS;
363: x_error_msg_code := Null;
364: -- validate the organization and assign the id to the global record.
365: /*****************************************************************
366: * We are going to make use of an existing procedure
382: /*******************************************************************
383: * If the call to the procedure Check_OrgName_Or_Id, returns an error then
384: * call the package PA_UTILS and pass the error message.
385: ********************************************************************/
386: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
387: IF x_error_msg_code = 'PA_INVALID_ORG' THEN
388: PA_UTILS.Add_Message('PA', 'PA_INVALID_ORG_PLAN_RES', 'PLAN_RES',
389: Pa_Planning_Resource_Pvt.g_token);
390: Return;
410: AND ORGANIZATION_ID = l_organization_id;
411: EXCEPTION
412: WHEN OTHERS THEN
413: x_organization_id := NULL;
414: x_return_status:= FND_API.G_RET_STS_ERROR;
415: x_error_msg_code:= 'PA_ORG_INVALID_PROJ_EXP';
416: /* We will be adding a new message which reads
417: Organization is an Invalid Expenditure or Project
418: Organization.*/
459: WHERE vendor_id = p_supplier_id;
460: EXCEPTION
461: WHEN OTHERS THEN
462: x_supplier_id := NULL;
463: x_return_status:= FND_API.G_RET_STS_ERROR;
464: --Need to get a proper message
465: x_error_msg_code:= 'PA_INVALID_SUPPLIER';
466: RETURN;
467: END;
512: WHERE vendor_name = p_supplier_name;
513: EXCEPTION
514: WHEN OTHERS THEN
515: x_supplier_id := NULL;
516: x_return_status:= FND_API.G_RET_STS_ERROR;
517: --Need to get a proper message
518: x_error_msg_code:= 'PA_INVALID_SUPPLIER_NAME';
519: Return;
520: END;
521: ELSE
522: x_supplier_id := NULL;
523: END IF;
524: END IF;
525: x_return_status:= FND_API.G_RET_STS_SUCCESS;
526: EXCEPTION
527: WHEN OTHERS THEN
528: x_supplier_id := NULL;
529: x_return_status:= FND_API.G_RET_STS_ERROR;
525: x_return_status:= FND_API.G_RET_STS_SUCCESS;
526: EXCEPTION
527: WHEN OTHERS THEN
528: x_supplier_id := NULL;
529: x_return_status:= FND_API.G_RET_STS_ERROR;
530: --Need to get a proper message
531: x_error_msg_code:= 'PA_INVALID_SUPPLIER';
532: RETURN;
533: END Check_SupplierName_Or_Id;
593: * Main Body *
594: ************************************/
595:
596: BEGIN
597: x_return_status := FND_API.G_RET_STS_SUCCESS;
598: IF p_resource_class_code = 'PEOPLE' and p_person_id IS NOT NULL THEN
599: /* If the p_resource_class_code is 'People' then we need to check if
600: * the resource is a contingent
601: * worker. This is done by call to the subprog Check_contingent which
602: * will return the status. */
603: IF Is_Contingent_Worker(p_person_id) = 'N' THEN
604: x_supplier_id := NULL;
605: l_err_status := 'Y';
606: x_return_status := FND_API.G_RET_STS_ERROR;
607: x_error_msg_code:= 'PA_IS_NOT_CONTINGENT';
608: PA_UTILS.Add_Message('PA', x_error_msg_code, 'PLAN_RES',
609: Pa_Planning_Resource_Pvt.g_token);
610: Return;
635: x_supplier_id := l_supplier_id;
636: x_return_status := l_return_status;
637: x_error_msg_code := l_error_msg_code;
638:
639: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
640: PA_UTILS.Add_Message('PA', l_error_msg_code, 'PLAN_RES',
641: Pa_Planning_Resource_Pvt.g_token);
642: Return;
643: END IF;
642: Return;
643: END IF;
644: ELSE
645: x_supplier_id := NULL;
646: x_return_status := FND_API.G_RET_STS_ERROR;
647: x_error_msg_code:= 'PA_PLN_RL_NO_SUPPLIER';
648: PA_UTILS.Add_Message('PA', x_error_msg_code, 'PLAN_RES',
649: Pa_Planning_Resource_Pvt.g_token);
650: Return;
684: WHERE full_name = p_person_name;
685: --AND trunc(sysdate) between trunc(effective_start_date) AND
686: --trunc(effective_end_date);
687: BEGIN
688: x_return_status:= FND_API.G_RET_STS_SUCCESS;
689: IF (p_person_id IS NOT NULL)
690: THEN
691: IF (p_check_id_flag = 'Y') THEN
692: BEGIN
697: x_person_id := l_person_id;
698: EXCEPTION
699: WHEN OTHERS THEN
700: x_person_id := NULL;
701: x_return_status:= FND_API.G_RET_STS_ERROR;
702: --Need to get a proper message
703: x_error_msg_code:= 'PA_INVALID_PERSON_ID';
704: Return;
705: END;
755: x_person_id := l_person_id;
756: EXCEPTION
757: WHEN OTHERS THEN
758: x_person_id := NULL;
759: x_return_status:= FND_API.G_RET_STS_ERROR;
760: --Need to get a proper message
761: x_error_msg_code:= 'PA_INVALID_PERSON_NAME';
762: Return;
763: END;
791: AND person_id = l_person_id
792: and rownum = 1;
793: EXCEPTION
794: WHEN OTHERS THEN
795: x_return_status := FND_API.G_RET_STS_ERROR;
796: --Need to get message for this.
797: x_error_msg_code:= 'PA_INVALID_PERSON_ID';
798: PA_UTILS.Add_Message('PA', x_error_msg_code, 'PLAN_RES',
799: Pa_Planning_Resource_Pvt.g_token);
799: Pa_Planning_Resource_Pvt.g_token);
800: Return;
801: END;
802:
803: x_return_status:= FND_API.G_RET_STS_SUCCESS;
804:
805: EXCEPTION
806: WHEN OTHERS THEN
807: x_person_id := NULL;
804:
805: EXCEPTION
806: WHEN OTHERS THEN
807: x_person_id := NULL;
808: x_return_status:= FND_API.G_RET_STS_ERROR;
809: --Need to get a proper message
810: x_error_msg_code:= 'PA_INVALID_PERSON_ID';
811: Return;
812: END Check_PersonName_Or_Id;
851: FROM per_jobs
852: WHERE name = p_job_name
853: AND job_group_id = p_job_group_id;
854: BEGIN
855: x_return_status:= FND_API.G_RET_STS_SUCCESS;
856: --4461039 : Added check for p_job_group_id
857: IF p_job_group_id IS NULL THEN
858: x_job_id := NULL;
859: x_return_status:= FND_API.G_RET_STS_ERROR;
855: x_return_status:= FND_API.G_RET_STS_SUCCESS;
856: --4461039 : Added check for p_job_group_id
857: IF p_job_group_id IS NULL THEN
858: x_job_id := NULL;
859: x_return_status:= FND_API.G_RET_STS_ERROR;
860: x_error_msg_code:= 'PA_PL_RES_INVALID_JOB_GROUP';
861: Return;
862: END IF;
863:
874: AND job_group_id = p_job_group_id;
875: EXCEPTION
876: WHEN OTHERS THEN
877: x_job_id := NULL;
878: x_return_status:= FND_API.G_RET_STS_ERROR;
879: --Need to get a proper message
880: x_error_msg_code:= 'PA_INVALID_JOB_ID';
881: Return;
882: END;
928: AND job_group_id = p_job_group_id;
929: EXCEPTION
930: WHEN OTHERS THEN
931: x_job_id := NULL;
932: x_return_status:= FND_API.G_RET_STS_ERROR;
933: --Need to get a proper message
934: x_error_msg_code:= 'PA_INVALID_JOB_NAME';
935: Return;
936: END;
937: ELSE
938: x_job_id := NULL;
939: END IF;
940: END IF;
941: x_return_status:= FND_API.G_RET_STS_SUCCESS;
942:
943: EXCEPTION
944: WHEN OTHERS THEN
945: x_job_id := NULL;
942:
943: EXCEPTION
944: WHEN OTHERS THEN
945: x_job_id := NULL;
946: x_return_status:= FND_API.G_RET_STS_ERROR;
947: --Need to get a proper message
948: x_error_msg_code:= 'PA_INVALID_JOB';
949: Return;
950: END Check_JG_JobName_Or_Id;
980: and b.expenditure_type is NOT NULL
981: and b.resource_code = p_bom_eqlabor_name;
982:
983: BEGIN
984: x_return_status:= FND_API.G_RET_STS_SUCCESS;
985:
986:
987: IF(p_bom_eqlabor_id IS NOT NULL)
988: THEN
1001: EXCEPTION
1002: WHEN OTHERS THEN
1003:
1004: x_bom_resource_id := NULL;
1005: x_return_status:= FND_API.G_RET_STS_ERROR;
1006: --Need to get a proper message
1007: x_error_msg_code:= 'PA_INVALID_BOM_ID';
1008: -- RAISE; --commented for bug 3947006
1009: Return ;
1063: AND b.resource_code = p_bom_eqlabor_name;
1064: EXCEPTION
1065: WHEN OTHERS THEN
1066: x_bom_resource_id := NULL;
1067: x_return_status:= FND_API.G_RET_STS_ERROR;
1068: --Need to get a proper message
1069: x_error_msg_code:= 'PA_INVALID_BOM_NAME';
1070: --RAISE; --commented for bug 3817916
1071: Return;--Added for bug 3817916
1073: ELSE
1074: x_bom_resource_id := NULL;
1075: END IF;
1076: END IF;
1077: x_return_status:= FND_API.G_RET_STS_SUCCESS;
1078: EXCEPTION
1079: WHEN OTHERS THEN
1080: x_bom_resource_id := NULL;
1081: x_return_status:= FND_API.G_RET_STS_ERROR;
1077: x_return_status:= FND_API.G_RET_STS_SUCCESS;
1078: EXCEPTION
1079: WHEN OTHERS THEN
1080: x_bom_resource_id := NULL;
1081: x_return_status:= FND_API.G_RET_STS_ERROR;
1082: --Need to get a proper message
1083: x_error_msg_code:= 'PA_INVALID_BOM_ID';
1084: RAISE;
1085: END Check_BOM_EqLabor_or_ID;
1116: p_item_cat_name;
1117: --AND c.description = p_item_cat_name;
1118:
1119: BEGIN
1120: x_return_status:= FND_API.G_RET_STS_SUCCESS;
1121: IF (p_item_cat_id IS NOT NULL)
1122: THEN
1123: IF (p_check_id_flag = 'Y') THEN
1124: BEGIN
1132:
1133: EXCEPTION
1134: WHEN OTHERS THEN
1135: x_item_category_id := NULL;
1136: x_return_status:= FND_API.G_RET_STS_ERROR;
1137: --Need to get a proper message
1138: x_error_msg_code:= 'PA_INVALID_ITEM_CAT_ID';
1139: RAISE;
1140: END;
1189: -- AND c.description = p_item_cat_name;
1190: EXCEPTION
1191: WHEN OTHERS THEN
1192: x_item_category_id := NULL;
1193: x_return_status:= FND_API.G_RET_STS_ERROR;
1194: --Need to get a proper message
1195: x_error_msg_code:= 'PA_INVALID_ITEM_CAT_NAME';
1196: Return;
1197: END;
1201: END IF;
1202: EXCEPTION
1203: WHEN OTHERS THEN
1204: x_item_category_id := NULL;
1205: x_return_status:= FND_API.G_RET_STS_ERROR;
1206: --Need to get a proper message
1207: x_error_msg_code:= 'PA_INVALID_ITEM_CAT_ID';
1208: Return;
1209: END Check_ItemCat_or_ID;
1247: --AND t.language = userenv('LANG')
1248: AND b.segment1 = p_item_name;
1249:
1250: BEGIN
1251: x_return_status:= FND_API.G_RET_STS_SUCCESS;
1252: IF (p_item_id IS NOT NULL)
1253: THEN
1254: IF (p_check_id_flag = 'Y') THEN
1255: BEGIN
1270: AND b.inventory_item_id = p_item_id;
1271: EXCEPTION
1272: WHEN OTHERS THEN
1273: x_item_id := NULL;
1274: x_return_status:= FND_API.G_RET_STS_ERROR;
1275: --Need to get a proper message
1276: x_error_msg_code:= 'PA_INVALID_INV_ID';
1277: RAISE;
1278: END;
1335: AND b.segment1 = p_item_name;
1336: EXCEPTION
1337: WHEN OTHERS THEN
1338: x_item_id := NULL;
1339: x_return_status:= FND_API.G_RET_STS_ERROR;
1340: --Need to get a proper message
1341: x_error_msg_code:= 'PA_INVALID_INV_NAME';
1342: Return;
1343: END;
1347: END IF;
1348: EXCEPTION
1349: WHEN OTHERS THEN
1350: x_item_id := NULL;
1351: x_return_status:= FND_API.G_RET_STS_ERROR;
1352: --Need to get a proper message
1353: x_error_msg_code:= 'PA_INVALID_INV_ID';
1354: Return;
1355: END Check_InventoryItem_or_Id;
1521: * Main Body *
1522: ************************/
1523: BEGIN
1524: -- hr_utility.trace('Start Validate_Resource');
1525: x_return_status:= FND_API.G_RET_STS_SUCCESS;
1526: x_resource_class_flag := 'N';
1527: /* Call to the Function check_null_flag to check for the null conditions*/
1528:
1529: IF Check_Res_Null(p_resource_code,p_resource_name,
1528:
1529: IF Check_Res_Null(p_resource_code,p_resource_name,
1530: p_resource_class_code,p_res_type_code) = 'Y'
1531: THEN
1532: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1533: Return;
1534: ELSE
1535:
1536: IF Match_classcode_Type(p_resource_class_code,p_res_type_code) = 'N'
1534: ELSE
1535:
1536: IF Match_classcode_Type(p_resource_class_code,p_res_type_code) = 'N'
1537: THEN
1538: x_return_status := FND_API.G_RET_STS_ERROR;
1539: --Need to get message for this.
1540: x_error_msg_code:= 'PA_RESOURCE_NO_MATCH';
1541: PA_UTILS.Add_Message('PA', x_error_msg_code, 'PLAN_RES',
1542: Pa_Planning_Resource_Pvt.g_token);
1546: IF p_resource_code = p_resource_class_code THEN
1547: x_resource_class_code := p_resource_class_code;
1548: x_resource_class_flag := 'Y';
1549: ELSE
1550: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1551: Return;
1552: END IF;
1553: ELSIF p_res_type_code = 'PERSON_TYPE' THEN
1554: BEGIN
1558: WHERE lookup_type = 'PA_PERSON_TYPE'
1559: AND lookup_code = p_resource_code;
1560: EXCEPTION
1561: WHEN OTHERS THEN
1562: x_return_status := FND_API.G_RET_STS_ERROR;
1563: --Need to get message for this.
1564: x_error_msg_code:= 'PA_PERSON_TYPE_CODE_INVALID';
1565: PA_UTILS.Add_Message('PA', x_error_msg_code, 'PLAN_RES',
1566: Pa_Planning_Resource_Pvt.g_token);
1572: FROM pa_non_labor_resources
1573: WHERE non_labor_resource = p_resource_name;
1574: EXCEPTION
1575: WHEN OTHERS THEN
1576: x_return_status := FND_API.G_RET_STS_ERROR;
1577: --Need to get message for this.
1578: x_error_msg_code:= 'PA_NON_LABOR_CODE_INVALID';
1579: PA_UTILS.Add_Message('PA', x_error_msg_code, 'PLAN_RES',
1580: Pa_Planning_Resource_Pvt.g_token);
1592: x_person_id := l_person_id;
1593: x_return_status := l_return_status;
1594: x_error_msg_code := l_error_msg_code;
1595:
1596: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1597: PA_UTILS.Add_Message('PA', l_error_msg_code, 'PLAN_RES',
1598: Pa_Planning_Resource_Pvt.g_token);
1599: Return;
1600: END IF;
1625: -- hr_utility.trace('after Check_JG_JobName_or_ID');
1626: -- hr_utility.trace('x_return_status IS : ' || x_return_status);
1627: -- hr_utility.trace('x_error_msg_code IS : ' || x_error_msg_code);
1628: -- hr_utility.trace('x_job_id IS : ' || x_job_id);
1629: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1630: PA_UTILS.Add_Message('PA', l_error_msg_code, 'PLAN_RES',
1631: Pa_Planning_Resource_Pvt.g_token);
1632: Return;
1633: END IF;
1646: x_bom_resource_id := l_bom_resource_id;
1647: x_return_status := l_return_status;
1648: x_error_msg_code := l_error_msg_code;
1649: --Added for bug 3947006
1650: IF x_return_status = Fnd_Api.G_Ret_Sts_Error THEN
1651:
1652: Return;
1653: END IF;
1654:
1651:
1652: Return;
1653: END IF;
1654:
1655: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1656: PA_UTILS.Add_Message('PA', l_error_msg_code, 'PLAN_RES',
1657: Pa_Planning_Resource_Pvt.g_token);
1658: Return;
1659: END IF;
1671: x_bom_resource_id := l_bom_resource_id;
1672: x_return_status := l_return_status;
1673: x_error_msg_code := l_error_msg_code;
1674:
1675: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1676: PA_UTILS.Add_Message('PA', l_error_msg_code, 'PLAN_RES',
1677: Pa_Planning_Resource_Pvt.g_token);
1678: Return;
1679: END IF;
1692: --AND cl.resource_class_code = 'MATERIAL_ITEMS';
1693: EXCEPTION
1694: WHEN NO_DATA_FOUND THEN
1695: x_item_category_id := NULL;
1696: x_return_status:= FND_API.G_RET_STS_ERROR;
1697: --Need to get a proper message
1698: x_error_msg_code:= 'PA_NO_ITEM_CATEGORY_SET';
1699: Return;
1700: WHEN OTHERS THEN
1698: x_error_msg_code:= 'PA_NO_ITEM_CATEGORY_SET';
1699: Return;
1700: WHEN OTHERS THEN
1701: x_item_category_id := NULL;
1702: x_return_status:= FND_API.G_RET_STS_ERROR;
1703: --Need to get a proper message
1704: x_error_msg_code:= 'PA_NO_ITEM_CATEGORY_SET';
1705: Return;
1706: END;
1716:
1717: x_item_category_id := l_item_category_id;
1718: x_return_status := l_return_status;
1719: x_error_msg_code := l_error_msg_code;
1720: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1721: PA_UTILS.Add_Message('PA', l_error_msg_code, 'PLAN_RES',
1722: Pa_Planning_Resource_Pvt.g_token);
1723: END IF;
1724: ELSIF p_res_type_code = 'INVENTORY_ITEM' THEN
1734: --AND cl.resource_class_code = 'MATERIAL_ITEMS';
1735: EXCEPTION
1736: WHEN NO_DATA_FOUND THEN
1737: x_inventory_item_id := NULL;
1738: x_return_status:= FND_API.G_RET_STS_ERROR;
1739: --Need to get a proper message
1740: x_error_msg_code:= 'PA_NO_MAT_ITEM_ID';
1741: Return;
1742: WHEN OTHERS THEN
1740: x_error_msg_code:= 'PA_NO_MAT_ITEM_ID';
1741: Return;
1742: WHEN OTHERS THEN
1743: x_inventory_item_id := NULL;
1744: x_return_status:= FND_API.G_RET_STS_ERROR;
1745: --Need to get a proper message
1746: x_error_msg_code:= 'PA_NO_MAT_ITEM_ID';
1747: Return;
1748: END;
1757:
1758: X_inventory_item_id := l_inventory_item_id;
1759: x_return_status := l_return_status;
1760: x_error_msg_code := l_error_msg_code;
1761: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1762: PA_UTILS.Add_Message('PA', l_error_msg_code, 'PLAN_RES',
1763: Pa_Planning_Resource_Pvt.g_token);
1764: Return;
1765: END IF;
2460: * * Main Block
2461: * ***********************************************/
2462: BEGIN
2463: --Initialize the x_return_status
2464: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
2465:
2466: --For bug 4039707, 4887312
2467:
2468: -- Commenting out for TEMP fix to bug 4887312 - proper fix will be done soon.
2799: AND a.order_id = b.order_id
2800: ORDER BY b.order_id;
2801:
2802: IF x_resource_class_id.COUNT <> p_resource_list_members.COUNT then
2803: X_Return_Status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2804: RAISE l_exception;
2805: END IF;
2806:
2807: DELETE FROM pa_res_members_temp;
2809: DELETE FROM pa_res_member_id_temp;
2810:
2811: EXCEPTION
2812: WHEN l_exception THEN
2813: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2814: Return;
2815: WHEN OTHERS THEN
2816: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2817: Return;
2812: WHEN l_exception THEN
2813: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2814: Return;
2815: WHEN OTHERS THEN
2816: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2817: Return;
2818: END Get_Resource_defaults;
2819:
2820:
3271: End If;
3272:
3273: End If;
3274:
3275: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
3276: X_Msg_Data := Null;
3277: X_Resource_Displayed := l_Res_Type_Displayed;
3278:
3279: Exception
3277: X_Resource_Displayed := l_Res_Type_Displayed;
3278:
3279: Exception
3280: When UNEXPEC_ERROR THEN
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',
3287:
3288: Return;
3289: /* When NULL_PER_IN_RES_LIST_MEM Then
3290: If P_Proc_Func_Flag = 'P' Then
3291: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3292: X_Msg_Data := 'PA_NULL_PER_IN_RES_LIST_MEM';
3293: Pa_Utils.Add_Message
3294: (P_App_Short_Name => 'PA',
3295: P_Msg_Name => 'PA_NULL_PER_IN_RES_LIST_MEM');
3299:
3300: End If;*/
3301: /*When BAD_PER_IN_RES_LIST_MEM Then
3302: If P_Proc_Func_Flag = 'P' Then
3303: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3304: X_Msg_Data := 'PA_BAD_PER_IN_RES_LIST_MEM';
3305: Pa_Utils.Add_Message
3306: (P_App_Short_Name => 'PA',
3307: P_Msg_Name => 'PA_BAD_PER_IN_RES_LIST_MEM');
3312: End If;*/
3313:
3314: /*When NULL_JOB_IN_RES_LIST_MEM Then
3315: If P_Proc_Func_Flag = 'P' Then
3316: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3317: X_Msg_Data := 'PA_NULL_JOB_IN_RES_LIST_MEM';
3318: Pa_Utils.Add_Message
3319: (P_App_Short_Name => 'PA',
3320: P_Msg_Name => 'PA_NULL_JOB_IN_RES_LIST_MEM');
3322: X_Resource_Displayed := Null;
3323: End If;*/
3324: /*When BAD_JOB_IN_RES_LIST_MEM Then
3325: If P_Proc_Func_Flag = 'P' Then
3326: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3327: X_Msg_Data := 'PA_BAD_JOB_IN_RES_LIST_MEM';
3328: Pa_Utils.Add_Message
3329: (P_App_Short_Name => 'PA',
3330: P_Msg_Name => 'PA_BAD_JOB_IN_RES_LIST_MEM');
3332: X_Resource_Displayed := Null;
3333: End If;*/
3334: /*When NULL_PER_TYPE_IN_LIST_MEM Then
3335: If P_Proc_Func_Flag = 'P' Then
3336: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3337: X_Msg_Data := 'PA_NULL_PER_TYPE_IN_LIST_MEM';
3338: Pa_Utils.Add_Message
3339: (P_App_Short_Name => 'PA',
3340: P_Msg_Name => 'PA_NULL_PER_TYPE_IN_LIST_MEM');
3342: X_Resource_Displayed := Null;
3343: End If;*/
3344: /*When BAD_PER_TYPE_IN_LIST_MEM Then
3345: If P_Proc_Func_Flag = 'P' Then
3346: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3347: X_Msg_Data := 'PA_BAD_PER_TYPE_IN_LIST_MEM';
3348: Pa_Utils.Add_Message
3349: (P_App_Short_Name => 'PA',
3350: P_Msg_Name => 'PA_BAD_PER_TYPE_IN_LIST_MEM');
3352: X_Resource_Displayed := Null;
3353: End If;*/
3354: When BAD_BOM_LABOR_RES_IN_LST_MEM Then
3355: If P_Proc_Func_Flag = 'P' Then
3356: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3357: X_Msg_Data := 'PA_BAD_BOM_LABOR_RES_LIST_MEM';
3358: Pa_Utils.Add_Message
3359: (P_App_Short_Name => 'PA',
3360: P_Msg_Name => 'PA_BAD_BOM_LABOR_RES_LIST_MEM');
3362: X_Resource_Displayed := Null;
3363: End If;
3364: When NULL_BOM_LABOR_RES_IN_LST_MEM Then
3365: If P_Proc_Func_Flag = 'P' Then
3366: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3367: X_Msg_Data := 'PA_NULL_BOM_LABOR_RES_LIST_MEM';
3368: Pa_Utils.Add_Message
3369: (P_App_Short_Name => 'PA',
3370: P_Msg_Name => 'PA_NULL_BOM_LABOR_RES_LIST_MEM');
3372: X_Resource_Displayed := Null;
3373: End If;
3374: When BAD_BOM_EQUIP_RES_IN_LST_MEM Then
3375: If P_Proc_Func_Flag = 'P' Then
3376: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3377: X_Msg_Data := 'PA_BAD_BOMEQUIP_RES_IN_LST_MEM';
3378: Pa_Utils.Add_Message
3379: (P_App_Short_Name => 'PA',
3380: P_Msg_Name => 'PA_BAD_BOMEQUIP_RES_IN_LST_MEM');
3382: X_Resource_Displayed := Null;
3383: End If;
3384: When NULL_BOM_EQUIP_RES_IN_LST_MEM Then
3385: If P_Proc_Func_Flag = 'P' Then
3386: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3387: X_Msg_Data := 'PA_NULL_BOM_EQUIP_RES_LIST_MEM';
3388: Pa_Utils.Add_Message
3389: (P_App_Short_Name => 'PA',
3390: P_Msg_Name => 'PA_NULL_BOM_EQUIP_RES_LIST_MEM');
3392: X_Resource_Displayed := Null;
3393: End If;
3394: When BAD_ITEM_CAT_IN_LST_MEM Then
3395: If P_Proc_Func_Flag = 'P' Then
3396: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3397: X_Msg_Data := 'PA_BAD_ITEM_CAT_IN_LST_MEM';
3398: Pa_Utils.Add_Message
3399: (P_App_Short_Name => 'PA',
3400: P_Msg_Name => 'PA_BAD_ITEM_CAT_IN_LST_MEM');
3402: X_Resource_Displayed := Null;
3403: End If;
3404: When NULL_ITEM_CAT_IN_LST_MEM Then
3405: If P_Proc_Func_Flag = 'P' Then
3406: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3407: X_Msg_Data := 'PA_NULL_ITEM_CAT_IN_LST_MEM';
3408: Pa_Utils.Add_Message
3409: (P_App_Short_Name => 'PA',
3410: P_Msg_Name => 'PA_NULL_ITEM_CAT_IN_LST_MEM');
3412: X_Resource_Displayed := Null;
3413: End If;
3414: When BAD_INVEN_ITEM_IN_LST_MEM Then
3415: If P_Proc_Func_Flag = 'P' Then
3416: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3417: X_Msg_Data := 'PA_BAD_INVEN_ITEM_IN_LST_MEM';
3418: Pa_Utils.Add_Message
3419: (P_App_Short_Name => 'PA',
3420: P_Msg_Name => 'PA_BAD_INVEN_ITEM_IN_LST_MEM');
3422: X_Resource_Displayed := Null;
3423: End If;
3424: When NULL_INVEN_ITEM_IN_LST_MEM Then
3425: If P_Proc_Func_Flag = 'P' Then
3426: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3427: X_Msg_Data := 'PA_NULL_INVEN_ITEM_IN_LST_MEM';
3428: Pa_Utils.Add_Message
3429: (P_App_Short_Name => 'PA',
3430: P_Msg_Name => 'PA_NULL_INVEN_ITEM_IN_LST_MEM');
3432: X_Resource_Displayed := Null;
3433: End If;
3434: /*When NULL_NLR_IN_LIST_MEM Then
3435: If P_Proc_Func_Flag = 'P' Then
3436: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3437: X_Msg_Data := 'PA_NULL_NLR_IN_LIST_MEM';
3438: Pa_Utils.Add_Message
3439: (P_App_Short_Name => 'PA',
3440: P_Msg_Name => 'PA_NULL_NLR_IN_LIST_MEM');
3442: X_Resource_Displayed := Null;
3443: End If;*/
3444: /*When NULL_RESCLASS_IN_LIST_MEM Then
3445: If P_Proc_Func_Flag = 'P' Then
3446: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3447: X_Msg_Data := 'PA_NULL_RESCLASS_IN_LIST_MEM';
3448: Pa_Utils.Add_Message
3449: (P_App_Short_Name => 'PA',
3450: P_Msg_Name => 'PA_NULL_RESCLASS_IN_LIST_MEM');
3452: X_Resource_Displayed := Null;
3453: End If;*/
3454: /*When BAD_RESCLASS_IN_LIST_MEM Then
3455: If P_Proc_Func_Flag = 'P' Then
3456: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3457: X_Msg_Data := 'PA_BAD_RESCLASS_IN_LIST_MEM';
3458: Pa_Utils.Add_Message
3459: (P_App_Short_Name => 'PA',
3460: P_Msg_Name => 'PA_BAD_RESCLASS_IN_LIST_MEM');
3661: l_Fin_Cat_Displayed := NULL;
3662:
3663: End If; -- P_FC_Res_Type_Code is not null
3664:
3665: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
3666: X_Msg_Data := Null;
3667: X_Fin_Cat_Displayed := l_Fin_Cat_Displayed;
3668:
3669: Exception
3667: X_Fin_Cat_Displayed := l_Fin_Cat_Displayed;
3668:
3669: Exception
3670: When UNEXPEC_ERROR THEN
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',
3678: /*When NULL_FC_RES_TYPE_IN_LIST_MEM Then
3679:
3680: If P_Proc_Func_Flag = 'P' Then
3681:
3682: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3683: X_Msg_Data := 'PA_NULL_FC_RESTYPE_IN_LIST_MEM';
3684: Pa_Utils.Add_Message
3685: (P_App_Short_Name => 'PA',
3686: P_Msg_Name => 'PA_NULL_FC_RESTYPE_IN_LIST_MEM');
3693: /*When NULL_EXP_TYPE_IN_LIST_MEM Then
3694:
3695: If P_Proc_Func_Flag = 'P' Then
3696:
3697: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3698: X_Msg_Data := 'PA_NULL_EXP_TYPE_IN_LIST_MEM';
3699: Pa_Utils.Add_Message
3700: (P_App_Short_Name => 'PA',
3701: P_Msg_Name => 'PA_NULL_EXP_TYPE_IN_LIST_MEM');
3709: /*When NULL_EXP_CAT_IN_LIST_MEM Then
3710:
3711: If P_Proc_Func_Flag = 'P' Then
3712:
3713: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3714: X_Msg_Data := 'PA_NULL_EXP_CAT_IN_LIST_MEM';
3715: Pa_Utils.Add_Message
3716: (P_App_Short_Name => 'PA',
3717: P_Msg_Name => 'PA_NULL_EXP_CAT_IN_LIST_MEM');
3725: /*When NULL_EVENT_TYPE_IN_LIST_MEM Then
3726:
3727: If P_Proc_Func_Flag = 'P' Then
3728:
3729: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3730: X_Msg_Data := 'PA_NULL_EVENT_TYPE_IN_LIST_MEM';
3731: Pa_Utils.Add_Message
3732: (P_App_Short_Name => 'PA',
3733: P_Msg_Name => 'PA_NULL_EVENT_TYPE_IN_LIST_MEM');
3741: /*When NULL_REV_CAT_IN_LIST_MEM Then
3742:
3743: If P_Proc_Func_Flag = 'P' Then
3744:
3745: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3746: X_Msg_Data := 'PA_NULL_REV_CAT_IN_LIST_MEM';
3747: Pa_Utils.Add_Message
3748: (P_App_Short_Name => 'PA',
3749: P_Msg_Name => 'PA_NULL_REV_CAT_IN_LIST_MEM');
3757: When INV_FC_RES_TYPE_IN_LIST_MEM Then
3758:
3759: If P_Proc_Func_Flag = 'P' Then
3760:
3761: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3762: X_Msg_Data := 'PA_INV_FC_RESTYPE_IN_LIST_MEM';
3763: Pa_Utils.Add_Message
3764: (P_App_Short_Name => 'PA',
3765: P_Msg_Name => 'PA_INV_FC_RESTYPE_IN_LIST_MEM');
3844: l_Org_Displayed := NULL;
3845:
3846: End If;
3847:
3848: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
3849: X_Msg_Data := Null;
3850: X_Org_Displayed := l_Org_Displayed;
3851:
3852: Exception
3850: X_Org_Displayed := l_Org_Displayed;
3851:
3852: Exception
3853: When UNEXPEC_ERROR THEN
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',
3861: /*When NULL_ORG_ID_IN_LIST_MEM Then
3862:
3863: If P_Proc_Func_Flag = 'P' Then
3864:
3865: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3866: X_Msg_Data := 'PA_NULL_ORG_ID_IN_LIST_MEM';
3867: Pa_Utils.Add_Message
3868: (P_App_Short_Name => 'PA',
3869: P_Msg_Name => 'PA_NULL_ORG_ID_IN_LIST_MEM');
3877: /*When BAD_ORG_ID_IN_LIST_MEM Then
3878:
3879: If P_Proc_Func_Flag = 'P' Then
3880:
3881: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3882: X_Msg_Data := 'PA_BAD_ORG_ID_IN_LIST_MEM';
3883: Pa_Utils.Add_Message
3884: (P_App_Short_Name => 'PA',
3885: P_Msg_Name => 'PA_BAD_ORG_ID_IN_LIST_MEM');
3974: l_Supplier_Displayed := NULL;
3975:
3976: End If;
3977:
3978: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
3979: X_Msg_Data := Null;
3980: X_Supplier_Displayed := l_Supplier_Displayed;
3981:
3982: Exception
3980: X_Supplier_Displayed := l_Supplier_Displayed;
3981:
3982: Exception
3983: When UNEXPEC_ERROR THEN
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',
3991: /*When NULL_VEND_IN_LIST_MEM Then
3992:
3993: If P_Proc_Func_Flag = 'P' Then
3994:
3995: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3996: X_Msg_Data := 'PA_NULL_VEND_IN_LIST_MEM';
3997: Pa_Utils.Add_Message
3998: (P_App_Short_Name => 'PA',
3999: P_Msg_Name => 'PA_NULL_VEND_IN_LIST_MEM');
4007: /*When BAD_VEND_IN_LIST_MEM Then
4008:
4009: If P_Proc_Func_Flag = 'P' Then
4010:
4011: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
4012: X_Msg_Data := 'PA_BAD_VEND_IN_LIST_MEM';
4013: Pa_Utils.Add_Message
4014: (P_App_Short_Name => 'PA',
4015: P_Msg_Name => 'PA_BAD_VEND_IN_LIST_MEM');
4105: l_Role_Displayed := NULL;
4106:
4107: End If;
4108:
4109: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
4110: X_Msg_Data := Null;
4111: X_Role_Displayed := l_Role_Displayed;
4112:
4113: Exception
4111: X_Role_Displayed := l_Role_Displayed;
4112:
4113: Exception
4114: When UNEXPEC_ERROR THEN
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',
4122: /*When NULL_ROLE_IN_LIST_MEM Then
4123:
4124: If P_Proc_Func_Flag = 'P' Then
4125:
4126: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
4127: X_Msg_Data := 'PA_NULL_ROLE_IN_LIST_MEM';
4128: Pa_Utils.Add_Message
4129: (P_App_Short_Name => 'PA',
4130: P_Msg_Name => 'PA_NULL_ROLE_IN_LIST_MEM');
4138: /*When BAD_ROLE_IN_LIST_MEM Then
4139:
4140: If P_Proc_Func_Flag = 'P' Then
4141:
4142: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
4143: X_Msg_Data := 'PA_BAD_ROLE_IN_LIST_MEM';
4144: Pa_Utils.Add_Message
4145: (P_App_Short_Name => 'PA',
4146: P_Msg_Name => 'PA_BAD_ROLE_IN_LIST_MEM');
4402: End If;
4403:
4404: X_Inc_By_Displayed := l_Inc_By_Displayed;
4405: X_Msg_Data := Null;
4406: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
4407:
4408: Exception
4409: When UNEXPEC_ERROR THEN
4410: X_Return_Status := Fnd_Api.G_Ret_Sts_UnExp_Error;
4406: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
4407:
4408: Exception
4409: When UNEXPEC_ERROR THEN
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',
4417: /*When BAD_PER_IN_RES_LIST_MEM Then
4418:
4419: If P_Proc_Func_Flag = 'P' Then
4420:
4421: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
4422: X_Msg_Data := 'PA_BAD_PER_IN_RES_LIST_MEM';
4423: Pa_Utils.Add_Message
4424: (P_App_Short_Name => 'PA',
4425: P_Msg_Name => 'PA_BAD_PER_IN_RES_LIST_MEM');
4433: /*When BAD_JOB_IN_RES_LIST_MEM Then
4434:
4435: If P_Proc_Func_Flag = 'P' Then
4436:
4437: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
4438: X_Msg_Data := 'PA_BAD_JOB_IN_RES_LIST_MEM';
4439: Pa_Utils.Add_Message
4440: (P_App_Short_Name => 'PA',
4441: P_Msg_Name => 'PA_BAD_JOB_IN_RES_LIST_MEM');
4449: /*When BAD_INCUR_ROLE_IN_LIST_MEM Then
4450:
4451: If P_Proc_Func_Flag = 'P' Then
4452:
4453: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
4454: X_Msg_Data := 'PA_BAD_INCUR_ROLE_IN_LIST_MEM';
4455: Pa_Utils.Add_Message
4456: (P_App_Short_Name => 'PA',
4457: P_Msg_Name => 'PA_BAD_INCUR_ROLE_IN_LIST_MEM');
4465: /*When BAD_PER_TYPE_IN_LIST_MEM Then
4466:
4467: If P_Proc_Func_Flag = 'P' Then
4468:
4469: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
4470: X_Msg_Data := 'PA_BAD_PER_TYPE_IN_LIST_MEM';
4471: Pa_Utils.Add_Message
4472: (P_App_Short_Name => 'PA',
4473: P_Msg_Name => 'PA_BAD_PER_TYPE_IN_LIST_MEM');
4481: /*When BAD_INCUR_RESCLASS_IN_LIST_MEM Then
4482:
4483: If P_Proc_Func_Flag = 'P' Then
4484:
4485: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
4486: X_Msg_Data := 'PA_BAD_INC_RESCLASS_IN_LST_MEM';
4487: Pa_Utils.Add_Message
4488: (P_App_Short_Name => 'PA',
4489: P_Msg_Name => 'PA_BAD_INC_RESCLASS_IN_LST_MEM');
4497: /*When INV_INCUR_BY_IN_LIST_MEM Then
4498:
4499: If P_Proc_Func_Flag = 'P' Then
4500:
4501: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
4502: X_Msg_Data := 'PA_INV_INCUR_BY_IN_LIST_MEM';
4503: Pa_Utils.Add_Message
4504: (P_App_Short_Name => 'PA',
4505: P_Msg_Name => 'PA_INV_INCUR_BY_IN_LIST_MEM');
4614: -- Role
4615: -- Incurred By
4616:
4617: -- Initialize values
4618: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
4619: X_Msg_Count := 0;
4620: X_Msg_Data := Null;
4621: /***************************************************
4622: * Bug - 3591595
4626: ******************************************************/
4627: IF P_Resource_List_Member_Id IS NULL THEN
4628: X_Resource_Alias := Null;
4629: X_Plan_Res_Combination := Null;
4630: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
4631: Return;
4632: END IF;
4633:
4634: Open c_Res_List(P_Res_List_Member_Id => P_Resource_List_Member_Id);
4676: X_Resource_Displayed => l_Res_Type_Displayed,
4677: X_Return_Status => X_Return_Status,
4678: X_Msg_Data => X_Msg_Data);
4679:
4680: If X_Return_Status = Fnd_Api.G_Ret_Sts_Error Then
4681:
4682: Raise FAIL_GET_NAME;
4683:
4684: End If;
4719: X_Fin_Cat_Displayed => l_FC_Displayed,
4720: X_Return_Status => X_Return_Status,
4721: X_Msg_Data => X_Msg_Data);
4722:
4723: If X_Return_Status = Fnd_Api.G_Ret_Sts_Error Then
4724:
4725: Raise FAIL_GET_NAME;
4726:
4727: End If;
4750: X_Org_Displayed => l_Orgn_Displayed,
4751: X_Return_Status => X_Return_Status,
4752: X_Msg_Data => X_Msg_Data);
4753:
4754: If X_Return_Status = Fnd_Api.G_Ret_Sts_Error Then
4755:
4756: Raise FAIL_GET_NAME;
4757:
4758: End If;
4781: X_Supplier_Displayed => l_Supplier_Displayed,
4782: X_Return_Status => X_Return_Status,
4783: X_Msg_Data => X_Msg_Data);
4784:
4785: If X_Return_Status = Fnd_Api.G_Ret_Sts_Error Then
4786:
4787: Raise FAIL_GET_NAME;
4788:
4789: End If;
4813: X_Return_Status => X_Return_Status,
4814: X_Msg_Data => X_Msg_Data);
4815:
4816:
4817: If X_Return_Status = Fnd_Api.G_Ret_Sts_Error Then
4818:
4819: Raise FAIL_GET_NAME;
4820:
4821: End If;*/
4852: X_Inc_By_Displayed => l_Res_Incur_By_displayed,
4853: X_Return_Status => X_Return_Status,
4854: X_Msg_Data => X_Msg_Data);
4855:
4856: If X_Return_Status = Fnd_Api.G_Ret_Sts_Error Then
4857:
4858: Raise FAIL_GET_NAME;
4859:
4860: End If;
4889: End If; -- Check incurred_by_enabled_flag = 'Y'
4890:
4891: Exception
4892: When INVALID_RES_LIST_MEM_ID Then
4893: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
4894: X_Msg_Count := 1;
4895: X_Msg_Data := 'PA_INVALID_RES_LIST_MEM_ID';
4896: Pa_Utils.Add_Message
4897: (P_App_Short_Name => 'PA',
4896: Pa_Utils.Add_Message
4897: (P_App_Short_Name => 'PA',
4898: P_Msg_Name => 'PA_INVALID_RES_LIST_MEM_ID');
4899: When NULL_MEM_LIST_RES_FORMAT Then
4900: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
4901: X_Msg_Count := 1;
4902: X_Msg_Data := 'PA_NULL_MEM_LIST_RES_FRM';
4903: Pa_Utils.Add_Message
4904: (P_App_Short_Name => 'PA',
4903: Pa_Utils.Add_Message
4904: (P_App_Short_Name => 'PA',
4905: P_Msg_Name => 'PA_NULL_MEM_LIST_RES_FRM');
4906: When INVALID_MEM_LIST_RES_FORMAT Then
4907: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
4908: X_Msg_Count := 1;
4909: X_Msg_Data := 'PA_INVALID_MEM_LIST_RES_FRM';
4910: Pa_Utils.Add_Message
4911: (P_App_Short_Name => 'PA',
4910: Pa_Utils.Add_Message
4911: (P_App_Short_Name => 'PA',
4912: P_Msg_Name => 'PA_INVALID_MEM_LIST_RES_FRM');
4913: /*When BAD_RES_TYPE_CODE Then
4914: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
4915: X_Msg_Count := 1;
4916: X_Msg_Data := 'PA_BAD_RES_TYPE_CODE';
4917: Pa_Utils.Add_Message
4918: (P_App_Short_Name => 'PA',
4948: X_Return_Status => l_Return_Status,
4949: X_Msg_Count => l_Error_Count,
4950: X_Msg_Data => l_Error_Msg_Data);
4951:
4952: If l_Return_Status <> Fnd_Api.G_Ret_Sts_Success Then
4953:
4954: -- Since this function calls the procedure get_plan_res_combination
4955: -- then the message is populated already using pa_utils.add_message()
4956: -- so just return 'ERROR'
5062:
5063: Begin
5064:
5065: -- Initialize values
5066: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
5067: X_Error_Message_Code := Null;
5068:
5069: If P_FC_Res_Type_Code is Null or
5070: P_Fin_Category_Name is Null or
5163: End If;
5164:
5165: Exception
5166: When UNEXPEC_ERROR THEN
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',
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';
5176: Pa_Utils.Add_Message
5177: (P_App_Short_Name => 'PA',
5178: P_Msg_Name => 'PA_VFC_INVALID_FIN_CAT_CODE',
5178: P_Msg_Name => 'PA_VFC_INVALID_FIN_CAT_CODE',
5179: p_token1 => 'PLAN_RES',
5180: p_value1 => Pa_Planning_Resource_Pvt.g_token);
5181: When MAN_PARAMS_NULL Then
5182: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
5183: X_Error_Message_Code := 'PA_VFC_MAN_PARAMS_NULL';
5184: Pa_Utils.Add_Message
5185: (P_App_Short_Name => 'PA',
5186: P_Msg_Name => 'PA_VFC_MAN_PARAMS_NULL',
5186: P_Msg_Name => 'PA_VFC_MAN_PARAMS_NULL',
5187: p_token1 => 'PLAN_RES',
5188: p_value1 => Pa_Planning_Resource_Pvt.g_token);
5189: When BAD_FIN_CAT_FOR_EVENT_TYPE Then
5190: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
5191: X_Error_Message_Code := 'PA_VFC_BAD_FINCAT_FOR_EVT_TYPE';
5192: Pa_Utils.Add_Message
5193: (P_App_Short_Name => 'PA',
5194: P_Msg_Name => 'PA_VFC_BAD_FINCAT_FOR_EVT_TYPE',
5194: P_Msg_Name => 'PA_VFC_BAD_FINCAT_FOR_EVT_TYPE',
5195: p_token1 => 'PLAN_RES',
5196: p_value1 => Pa_Planning_Resource_Pvt.g_token);
5197: When BAD_FIN_CAT_FOR_EXP_TYPE Then
5198: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
5199: X_Error_Message_Code := 'PA_VFC_BAD_FIN_CAT_FOR_EXP_TYP';
5200: Pa_Utils.Add_Message
5201: (P_App_Short_Name => 'PA',
5202: P_Msg_Name => 'PA_VFC_BAD_FIN_CAT_FOR_EXP_TYP',
5202: P_Msg_Name => 'PA_VFC_BAD_FIN_CAT_FOR_EXP_TYP',
5203: p_token1 => 'PLAN_RES',
5204: p_value1 => Pa_Planning_Resource_Pvt.g_token);
5205: When BAD_FIN_CAT_FOR_EXP_CAT Then
5206: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
5207: X_Error_Message_Code := 'PA_VFC_BAD_FIN_CAT_FOR_EXP_CAT';
5208: Pa_Utils.Add_Message
5209: (P_App_Short_Name => 'PA',
5210: P_Msg_Name => 'PA_VFC_BAD_FIN_CAT_FOR_EXP_CAT',
5210: P_Msg_Name => 'PA_VFC_BAD_FIN_CAT_FOR_EXP_CAT',
5211: p_token1 => 'PLAN_RES',
5212: p_value1 => Pa_Planning_Resource_Pvt.g_token);
5213: When BAD_FIN_CAT_FOR_REV_CAT Then
5214: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
5215: X_Error_Message_Code := 'PA_VFC_BAD_FIN_CAT_FOR_REV_CAT';
5216: Pa_Utils.Add_Message
5217: (P_App_Short_Name => 'PA',
5218: P_Msg_Name => 'PA_VFC_BAD_FIN_CAT_FOR_REV_CAT',
5218: P_Msg_Name => 'PA_VFC_BAD_FIN_CAT_FOR_REV_CAT',
5219: p_token1 => 'PLAN_RES',
5220: p_value1 => Pa_Planning_Resource_Pvt.g_token);
5221: When BAD_FIN_CAT_UOM Then
5222: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
5223: X_Error_Message_Code := 'PA_VFC_BAD_FIN_CAT_UOM';
5224: Pa_Utils.Add_Message
5225: (P_App_Short_Name => 'PA',
5226: P_Msg_Name => 'PA_VFC_BAD_FIN_CAT_UOM',
5452:
5453: Begin
5454:
5455: -- Initialize values
5456: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
5457: X_Error_Message_Code := Null;
5458:
5459: If P_Incur_By_Res_Code is Null Or
5460: P_Res_Type_Code is NUll Then
5497: End If;
5498:
5499: Exception
5500: When UNEXPEC_ERROR THEN
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',
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;
5510: X_Error_Message_Code := 'PA_VIR_MAN_PARAMS_NULL';
5511: Pa_Utils.Add_Message
5512: (P_App_Short_Name => 'PA',
5513: P_Msg_Name => 'PA_VIR_MAN_PARAMS_NULL',
5513: P_Msg_Name => 'PA_VIR_MAN_PARAMS_NULL',
5514: p_token1 => 'PLAN_RES',
5515: p_value1 => Pa_Planning_Resource_Pvt.g_token);
5516: When INVAL_RES_CLSS_CODE Then
5517: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
5518: X_Error_Message_Code := 'PA_VIR_INVAL_RES_CLSS_CODE';
5519: Pa_Utils.Add_Message
5520: (P_App_Short_Name => 'PA',
5521: P_Msg_Name => 'PA_VIR_INVAL_RES_CLSS_CODE',
5521: P_Msg_Name => 'PA_VIR_INVAL_RES_CLSS_CODE',
5522: p_token1 => 'PLAN_RES',
5523: p_value1 => Pa_Planning_Resource_Pvt.g_token);
5524: When INVAL_RES_TYPE_CODE Then
5525: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
5526: X_Error_Message_Code := 'PA_VIR_INVAL_RES_TYPE_CODE';
5527: Pa_Utils.Add_Message
5528: (P_App_Short_Name => 'PA',
5529: P_Msg_Name => 'PA_VIR_INVAL_RES_TYPE_CODE',
5699:
5700: Begin
5701:
5702: -- Initialize Values
5703: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
5704: X_Msg_Count := 0;
5705: X_Msg_Data := Null;
5706:
5707: X_Incur_By_Res_Flag := 'N'; -- set it to Yes when checking if
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:
5877: Raise FAIL_VALIDATION;
5878:
5879: End If;
5894: X_Organization_Id => X_Organization_Id,
5895: X_Return_Status => X_Return_Status,
5896: X_Error_Msg_Code => X_Msg_Data);
5897:
5898: If X_Return_Status = Fnd_Api.G_Ret_Sts_Error Then
5899: Raise FAIL_VALIDATION;
5900:
5901: End If;
5902:
5922: X_Revenue_Category => X_Revenue_Category_Code,
5923: X_Return_Status => X_Return_Status,
5924: X_Error_Message_Code => X_Msg_Data);
5925:
5926: If X_Return_Status = Fnd_Api.G_Ret_Sts_Error Then
5927:
5928: Raise FAIL_VALIDATION;
5929:
5930: End If;
5953: X_Incur_By_Res_Class_Code => l_Incur_By_Res_Class_Code,
5954: X_Return_Status => X_Return_Status,
5955: X_Error_Message_Code => X_Msg_Data);
5956:
5957: If X_Return_Status = Fnd_Api.G_Ret_Sts_Error Then
5958:
5959: Raise FAIL_VALIDATION;
5960:
5961: End If;
6007: X_Error_Msg_Code => X_Msg_Data);
6008:
6009: -- dbms_output.put_line('- After Validate_Supplier X_Supplier_Id IS : '|| X_Supplier_Id);
6010: -- dbms_output.put_line('- After Validate_Supplier X_Return_Status IS : '|| X_Return_Status);
6011: If X_Return_Status = Fnd_Api.G_Ret_Sts_Error Then
6012:
6013: Raise FAIL_VALIDATION;
6014:
6015: End If;
6085: X_Role_Id => X_Project_Role_Id,
6086: X_Return_Status => X_Return_Status,
6087: X_Error_Message_Code => X_Msg_Data);
6088:
6089: If X_Return_Status = Fnd_Api.G_Ret_Sts_Error Then
6090:
6091: Raise FAIL_VALIDATION;
6092:
6093: End If;
6120: END IF;
6121:
6122: Exception
6123: When UNEXPEC_ERROR THEN
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',
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;
6133: X_Msg_Count := 1;
6134: X_Msg_Data := AddTaskAlias(
6135: P_Error_Code => 'PA_PLN_RL_PARAMS_NULL',
6136: P_Task_Number => P_Task_Number,
6140: (P_App_Short_Name => 'PA',
6141: P_Msg_Name => 'PA_PLN_RL_PARAMS_NULL');*/
6142:
6143: /*When BAD_PLAN_RES_LIST_ALIAS Then
6144: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
6145: X_Msg_Count := 1;
6146: X_Msg_Data := AddTaskAlias(
6147: P_Error_Code => 'PA_PLN_RL_BAD_ALIAS',
6148: P_Task_Number => P_Task_Number,
6152: (P_App_Short_Name => 'PA',
6153: P_Msg_Name => 'PA_PLN_RL_BAD_ALIAS');*/
6154:
6155: /*When BAD_PLAN_RES_LIST_MEM_ID Then
6156: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
6157: X_Msg_Count := 1;
6158: X_Msg_Data := AddTaskAlias(
6159: P_Error_Code => 'PA_PLN_BAD_RL_MEM_ID',
6160: P_Task_Number => P_Task_Number,
6164: (P_App_Short_Name => 'PA',
6165: P_Msg_Name => 'PA_PLN_BAD_RL_MEM_ID');*/
6166:
6167: /*When PLN_RL_FORMAT_BAD_FMT_ID Then
6168: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
6169: X_Msg_Count := 1;
6170: X_Msg_Data := AddTaskAlias(
6171: P_Error_Code => 'PA_PLN_RL_FORMAT_BAD_FMT_ID',
6172: P_Task_Number => P_Task_Number,
6177: P_Msg_Name => 'PA_PLN_RL_FORMAT_BAD_FMT_ID');*/
6178:
6179: /*
6180: When JOB_GROUP_ERROR Then -- Error Message needs to be defined
6181: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
6182: X_Msg_Count := 1;
6183: X_Msg_Data := AddTaskAlias(
6184: P_Error_Code => 'PA_JOB_NOT_IN_JOB_GROUP',
6185: P_Task_Number => P_Task_Number,
6192: p_value1 => Pa_Planning_Resource_Pvt.g_token);
6193: */
6194:
6195: When BAD_FC_PARAM_COMBO Then
6196: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
6197: X_Msg_Count := 1;
6198: X_Msg_Data := AddTaskAlias(
6199: P_Error_Code => 'PA_PLN_RL_USE_FC_LOV',
6200: P_Task_Number => P_Task_Number,
6206: p_token1 => 'PLAN_RES',
6207: p_value1 => Pa_Planning_Resource_Pvt.g_token);
6208:
6209: When BAD_INCUR_PARAM_COMBO Then
6210: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
6211: X_Msg_Count := 1;
6212: X_Msg_Data := AddTaskAlias(
6213: P_Error_Code => 'PA_PLN_RL_USE_INCUR_RES_LOV',
6214: P_Task_Number => P_Task_Number,
6220: p_token1 => 'PLAN_RES',
6221: p_value1 => Pa_Planning_Resource_Pvt.g_token);
6222:
6223: When MISSING_RES_TYPE_VALUES Then
6224: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
6225: X_Msg_Count := 1;
6226: X_Msg_Data := AddTaskAlias(
6227: P_Error_Code => 'PA_PLN_RL_NO_RES_TYPE',
6228: P_Task_Number => P_Task_Number,
6234: p_token1 => 'PLAN_RES',
6235: p_value1 => Pa_Planning_Resource_Pvt.g_token);
6236:
6237: When MISSING_ORG_VALUES Then
6238: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
6239: X_Msg_Count := 1;
6240: X_Msg_Data := AddTaskAlias(
6241: P_Error_Code => 'PA_PLN_RL_NO_ORG',
6242: P_Task_Number => P_Task_Number,
6248: p_token1 => 'PLAN_RES',
6249: p_value1 => Pa_Planning_Resource_Pvt.g_token);
6250:
6251: When MISSING_FC_VALUES Then
6252: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
6253: X_Msg_Count := 1;
6254: X_Msg_Data := AddTaskAlias(
6255: P_Error_Code => 'PA_PLN_RL_NO_FC',
6256: P_Task_Number => P_Task_Number,
6262: p_token1 => 'PLAN_RES',
6263: p_value1 => Pa_Planning_Resource_Pvt.g_token);
6264:
6265: When MISSING_INCUR_BY_VALUES Then
6266: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
6267: X_Msg_Count := 1;
6268: X_Msg_Data := AddTaskAlias(
6269: P_Error_Code => 'PA_PLN_RL_NO_INCUR_BY',
6270: P_Task_Number => P_Task_Number,
6276: p_token1 => 'PLAN_RES',
6277: p_value1 => Pa_Planning_Resource_Pvt.g_token);
6278:
6279: When MISSING_SUPPLIER_VALUES Then
6280: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
6281: X_Msg_Count := 1;
6282: X_Msg_Data := AddTaskAlias(
6283: P_Error_Code => 'PA_PLN_RL_NO_SUPPLIER',
6284: P_Task_Number => P_Task_Number,
6290: p_token1 => 'PLAN_RES',
6291: p_value1 => Pa_Planning_Resource_Pvt.g_token);
6292:
6293: When MISSING_ROLE_VALUES Then
6294: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
6295: X_Msg_Count := 1;
6296: X_Msg_Data := AddTaskAlias(
6297: P_Error_Code => 'PA_PLN_RL_NO_ROLE',
6298: P_Task_Number => P_Task_Number,
6304: p_token1 => 'PLAN_RES',
6305: p_value1 => Pa_Planning_Resource_Pvt.g_token);
6306:
6307: When MISSING_TEAM_ROLE Then
6308: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
6309: X_Msg_Count := 1;
6310: X_Msg_Data := AddTaskAlias(
6311: P_Error_Code => 'PA_PLN_RL_TEAM_ROLE',
6312: P_Task_Number => P_Task_Number,
6317: P_Msg_Name => 'PA_PLN_RL_TEAM_ROLE',
6318: p_token1 => 'PLAN_RES',
6319: p_value1 => Pa_Planning_Resource_Pvt.g_token);
6320: When INVALID_BOM_COMBO Then
6321: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
6322: X_Msg_Count := 1;
6323: X_Msg_Data := AddTaskAlias(
6324: P_Error_Code => 'PA_PLN_RL_INV_BOM_ORG',
6325: P_Task_Number => P_Task_Number,
6818: x_return_status => l_return_status,
6819: x_msg_count => l_msg_count,
6820: x_msg_data => l_error_msg_data);
6821:
6822: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6823: l_resource_list_member_id := NULL;
6824: RETURN l_resource_list_member_id;
6825: END IF;
6826:
6982: x_return_status => l_return_status,
6983: x_msg_count => l_msg_count,
6984: x_error_msg_data => l_error_msg_data);
6985:
6986: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6987: l_resource_list_member_id := NULL;
6988: END IF;
6989: ELSE
6990: l_resource_list_member_id := NULL;
7060: l_precedence_temp Number := 0;
7061: l_final_asgmt_format_id Number;
7062: l_final_req_format_id Number;
7063: BEGIN
7064: x_return_status := FND_API.G_RET_STS_SUCCESS;
7065: --Using these Dummy Values for precedence
7066: --for now. Later when Vijay passes the API remove this.
7067: /************************************************
7068: * For Assignments do the following
7167: x_msg_count OUT NOCOPY VARCHAR2,
7168: x_msg_data OUT NOCOPY VARCHAR2 ) IS
7169:
7170: BEGIN
7171: x_return_status := FND_API.G_RET_STS_SUCCESS;
7172: x_msg_count := 0;
7173: x_msg_data := NULL;
7174:
7175: Insert into pa_resource_lists_tl (
7202: from pa_resource_lists_tl T
7203: where t.resource_list_id = lst.resource_list_id);
7204: EXCEPTION
7205: WHEN OTHERS THEN
7206: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7207: x_msg_count := 1;
7208: x_msg_data := SQLERRM;
7209: RETURN;
7210: END;
7226: SELECT resource_list_id FROM pa_resource_lists_all_bg
7227: WHERE migration_code is not null;
7228:
7229: BEGIN
7230: x_return_status := FND_API.G_RET_STS_SUCCESS;
7231: x_msg_count := 0;
7232:
7233: OPEN get_Resource_lists;
7234:
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;
7255:
7256: FUNCTION Get_class_member_id(p_project_id IN NUMBER,
7257: p_resource_list_id IN NUMBER,
7451:
7452: BEGIN
7453:
7454: x_valid_member_flag := NULL;
7455: x_return_status := FND_API.G_RET_STS_SUCCESS;
7456: x_msg_data := NULL;
7457: x_msg_count := 0;
7458:
7459: SELECT control_flag
7484:
7485: ELSIF p_alias IS NULL and p_resource_list_member_id IS NULL THEN
7486: x_valid_member_flag := 'N';
7487: x_resource_list_member_id := NULL;
7488: x_return_status := FND_API.G_RET_STS_ERROR;
7489: x_msg_data := 'PA_MEMBER_NOT_ON_LIST';
7490: x_msg_count := 1;
7491: --Modified below for Bug fix 7291217
7492: Pa_Utils.Add_Message(P_App_Short_Name => 'PA'
7508:
7509: EXCEPTION WHEN NO_DATA_FOUND THEN
7510: x_valid_member_flag := 'N';
7511: x_resource_list_member_id := NULL;
7512: x_return_status := FND_API.G_RET_STS_ERROR;
7513: x_msg_data := 'PA_MEMBER_NOT_ON_LIST';
7514: x_msg_count := 1;
7515: --Modified below for Bug fix 7291217
7516: Pa_Utils.Add_Message(P_App_Short_Name => 'PA'
7532:
7533: EXCEPTION WHEN NO_DATA_FOUND THEN
7534: x_valid_member_flag := 'N';
7535: x_resource_list_member_id := NULL;
7536: x_return_status := FND_API.G_RET_STS_ERROR;
7537: x_msg_data := 'PA_MEMBER_NOT_ENABLED';
7538: x_msg_count := 1;
7539: Pa_Utils.Add_Message(P_App_Short_Name => 'PA',
7540: P_Msg_Name => 'PA_MEMBER_NOT_ENABLED');
7590: l_bom_resource_id NUMBER;
7591:
7592: BEGIN
7593:
7594: x_return_status := FND_API.G_RET_STS_SUCCESS;
7595: x_msg_data := NULL;
7596: x_msg_count := 0;
7597: X_organization_id := NULL;
7598: X_organization_name := NULL;
7614: x_person_id => l_person_id,
7615: x_return_status => x_return_status,
7616: x_error_msg_code => X_msg_data);
7617:
7618: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7619: PA_UTILS.Add_Message ('PA', X_msg_data, 'PLAN_RES',
7620: Pa_Planning_Resource_Pvt.g_token);
7621: Return;
7622: END IF;
7656: x_bom_resource_id => l_bom_resource_id,
7657: x_return_status => x_return_status,
7658: x_error_msg_code => X_msg_data);
7659:
7660: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7661: PA_UTILS.Add_Message ('PA', X_msg_data, 'PLAN_RES',
7662: Pa_Planning_Resource_Pvt.g_token);
7663: Return;
7664: END IF;
7671: x_bom_resource_id => l_bom_resource_id,
7672: x_return_status => x_return_status,
7673: x_error_msg_code => X_msg_data);
7674:
7675: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7676: PA_UTILS.Add_Message ('PA', X_msg_data, 'PLAN_RES',
7677: Pa_Planning_Resource_Pvt.g_token);
7678: Return;
7679: END IF;