[Home] [Help]
362: -- l_return_status VARCHAR2(1);
363: l_organization_id NUMBER := null;
364: -- l_error_msg_data fnd_new_messages.message_name%TYPE;
365: BEGIN
366: x_return_status := FND_API.G_RET_STS_SUCCESS;
367: x_error_msg_code := Null;
368: -- validate the organization and assign the id to the global record.
369: /*****************************************************************
370: * We are going to make use of an existing procedure
386: /*******************************************************************
387: * If the call to the procedure Check_OrgName_Or_Id, returns an error then
388: * call the package PA_UTILS and pass the error message.
389: ********************************************************************/
390: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
391: IF x_error_msg_code = 'PA_INVALID_ORG' THEN
392: PA_UTILS.Add_Message('PA', 'PA_INVALID_ORG_PLAN_RES', 'PLAN_RES',
393: Pa_Planning_Resource_Pvt.g_token);
394: Return;
414: AND ORGANIZATION_ID = l_organization_id;
415: EXCEPTION
416: WHEN OTHERS THEN
417: x_organization_id := NULL;
418: x_return_status:= FND_API.G_RET_STS_ERROR;
419: x_error_msg_code:= 'PA_ORG_INVALID_PROJ_EXP';
420: /* We will be adding a new message which reads
421: Organization is an Invalid Expenditure or Project
422: Organization.*/
463: WHERE vendor_id = p_supplier_id;
464: EXCEPTION
465: WHEN OTHERS THEN
466: x_supplier_id := NULL;
467: x_return_status:= FND_API.G_RET_STS_ERROR;
468: --Need to get a proper message
469: x_error_msg_code:= 'PA_INVALID_SUPPLIER';
470: RETURN;
471: END;
516: WHERE vendor_name = p_supplier_name;
517: EXCEPTION
518: WHEN OTHERS THEN
519: x_supplier_id := NULL;
520: x_return_status:= FND_API.G_RET_STS_ERROR;
521: --Need to get a proper message
522: x_error_msg_code:= 'PA_INVALID_SUPPLIER_NAME';
523: Return;
524: END;
525: ELSE
526: x_supplier_id := NULL;
527: END IF;
528: END IF;
529: x_return_status:= FND_API.G_RET_STS_SUCCESS;
530: EXCEPTION
531: WHEN OTHERS THEN
532: x_supplier_id := NULL;
533: x_return_status:= FND_API.G_RET_STS_ERROR;
529: x_return_status:= FND_API.G_RET_STS_SUCCESS;
530: EXCEPTION
531: WHEN OTHERS THEN
532: x_supplier_id := NULL;
533: x_return_status:= FND_API.G_RET_STS_ERROR;
534: --Need to get a proper message
535: x_error_msg_code:= 'PA_INVALID_SUPPLIER';
536: RETURN;
537: END Check_SupplierName_Or_Id;
597: * Main Body *
598: ************************************/
599:
600: BEGIN
601: x_return_status := FND_API.G_RET_STS_SUCCESS;
602: IF p_resource_class_code = 'PEOPLE' and p_person_id IS NOT NULL THEN
603: /* If the p_resource_class_code is 'People' then we need to check if
604: * the resource is a contingent
605: * worker. This is done by call to the subprog Check_contingent which
606: * will return the status. */
607: IF Is_Contingent_Worker(p_person_id) = 'N' THEN
608: x_supplier_id := NULL;
609: l_err_status := 'Y';
610: x_return_status := FND_API.G_RET_STS_ERROR;
611: x_error_msg_code:= 'PA_IS_NOT_CONTINGENT';
612: PA_UTILS.Add_Message('PA', x_error_msg_code, 'PLAN_RES',
613: Pa_Planning_Resource_Pvt.g_token);
614: Return;
639: x_supplier_id := l_supplier_id;
640: x_return_status := l_return_status;
641: x_error_msg_code := l_error_msg_code;
642:
643: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
644: PA_UTILS.Add_Message('PA', l_error_msg_code, 'PLAN_RES',
645: Pa_Planning_Resource_Pvt.g_token);
646: Return;
647: END IF;
646: Return;
647: END IF;
648: ELSE
649: x_supplier_id := NULL;
650: x_return_status := FND_API.G_RET_STS_ERROR;
651: x_error_msg_code:= 'PA_PLN_RL_NO_SUPPLIER';
652: PA_UTILS.Add_Message('PA', x_error_msg_code, 'PLAN_RES',
653: Pa_Planning_Resource_Pvt.g_token);
654: Return;
688: WHERE full_name = p_person_name;
689: --AND trunc(sysdate) between trunc(effective_start_date) AND
690: --trunc(effective_end_date);
691: BEGIN
692: x_return_status:= FND_API.G_RET_STS_SUCCESS;
693: IF (p_person_id IS NOT NULL)
694: THEN
695: IF (p_check_id_flag = 'Y') THEN
696: BEGIN
701: x_person_id := l_person_id;
702: EXCEPTION
703: WHEN OTHERS THEN
704: x_person_id := NULL;
705: x_return_status:= FND_API.G_RET_STS_ERROR;
706: --Need to get a proper message
707: x_error_msg_code:= 'PA_INVALID_PERSON_ID';
708: Return;
709: END;
759: x_person_id := l_person_id;
760: EXCEPTION
761: WHEN OTHERS THEN
762: x_person_id := NULL;
763: x_return_status:= FND_API.G_RET_STS_ERROR;
764: --Need to get a proper message
765: x_error_msg_code:= 'PA_INVALID_PERSON_NAME';
766: Return;
767: END;
795: AND person_id = l_person_id
796: and rownum = 1;
797: EXCEPTION
798: WHEN OTHERS THEN
799: x_return_status := FND_API.G_RET_STS_ERROR;
800: --Need to get message for this.
801: x_error_msg_code:= 'PA_INVALID_PERSON_ID';
802: PA_UTILS.Add_Message('PA', x_error_msg_code, 'PLAN_RES',
803: Pa_Planning_Resource_Pvt.g_token);
803: Pa_Planning_Resource_Pvt.g_token);
804: Return;
805: END;
806:
807: x_return_status:= FND_API.G_RET_STS_SUCCESS;
808:
809: EXCEPTION
810: WHEN OTHERS THEN
811: x_person_id := NULL;
808:
809: EXCEPTION
810: WHEN OTHERS THEN
811: x_person_id := NULL;
812: x_return_status:= FND_API.G_RET_STS_ERROR;
813: --Need to get a proper message
814: x_error_msg_code:= 'PA_INVALID_PERSON_ID';
815: Return;
816: END Check_PersonName_Or_Id;
855: FROM per_jobs
856: WHERE name = p_job_name
857: AND job_group_id = p_job_group_id;
858: BEGIN
859: x_return_status:= FND_API.G_RET_STS_SUCCESS;
860: --4461039 : Added check for p_job_group_id
861: IF p_job_group_id IS NULL THEN
862: x_job_id := NULL;
863: x_return_status:= FND_API.G_RET_STS_ERROR;
859: x_return_status:= FND_API.G_RET_STS_SUCCESS;
860: --4461039 : Added check for p_job_group_id
861: IF p_job_group_id IS NULL THEN
862: x_job_id := NULL;
863: x_return_status:= FND_API.G_RET_STS_ERROR;
864: x_error_msg_code:= 'PA_PL_RES_INVALID_JOB_GROUP';
865: Return;
866: END IF;
867:
878: AND job_group_id = p_job_group_id;
879: EXCEPTION
880: WHEN OTHERS THEN
881: x_job_id := NULL;
882: x_return_status:= FND_API.G_RET_STS_ERROR;
883: --Need to get a proper message
884: x_error_msg_code:= 'PA_INVALID_JOB_ID';
885: Return;
886: END;
932: AND job_group_id = p_job_group_id;
933: EXCEPTION
934: WHEN OTHERS THEN
935: x_job_id := NULL;
936: x_return_status:= FND_API.G_RET_STS_ERROR;
937: --Need to get a proper message
938: x_error_msg_code:= 'PA_INVALID_JOB_NAME';
939: Return;
940: END;
941: ELSE
942: x_job_id := NULL;
943: END IF;
944: END IF;
945: x_return_status:= FND_API.G_RET_STS_SUCCESS;
946:
947: EXCEPTION
948: WHEN OTHERS THEN
949: x_job_id := NULL;
946:
947: EXCEPTION
948: WHEN OTHERS THEN
949: x_job_id := NULL;
950: x_return_status:= FND_API.G_RET_STS_ERROR;
951: --Need to get a proper message
952: x_error_msg_code:= 'PA_INVALID_JOB';
953: Return;
954: END Check_JG_JobName_Or_Id;
984: and b.expenditure_type is NOT NULL
985: and b.resource_code = p_bom_eqlabor_name;
986:
987: BEGIN
988: x_return_status:= FND_API.G_RET_STS_SUCCESS;
989:
990:
991: IF(p_bom_eqlabor_id IS NOT NULL)
992: THEN
1005: EXCEPTION
1006: WHEN OTHERS THEN
1007:
1008: x_bom_resource_id := NULL;
1009: x_return_status:= FND_API.G_RET_STS_ERROR;
1010: --Need to get a proper message
1011: x_error_msg_code:= 'PA_INVALID_BOM_ID';
1012: -- RAISE; --commented for bug 3947006
1013: Return ;
1067: AND b.resource_code = p_bom_eqlabor_name;
1068: EXCEPTION
1069: WHEN OTHERS THEN
1070: x_bom_resource_id := NULL;
1071: x_return_status:= FND_API.G_RET_STS_ERROR;
1072: --Need to get a proper message
1073: x_error_msg_code:= 'PA_INVALID_BOM_NAME';
1074: --RAISE; --commented for bug 3817916
1075: Return;--Added for bug 3817916
1077: ELSE
1078: x_bom_resource_id := NULL;
1079: END IF;
1080: END IF;
1081: x_return_status:= FND_API.G_RET_STS_SUCCESS;
1082: EXCEPTION
1083: WHEN OTHERS THEN
1084: x_bom_resource_id := NULL;
1085: x_return_status:= FND_API.G_RET_STS_ERROR;
1081: x_return_status:= FND_API.G_RET_STS_SUCCESS;
1082: EXCEPTION
1083: WHEN OTHERS THEN
1084: x_bom_resource_id := NULL;
1085: x_return_status:= FND_API.G_RET_STS_ERROR;
1086: --Need to get a proper message
1087: x_error_msg_code:= 'PA_INVALID_BOM_ID';
1088: RAISE;
1089: END Check_BOM_EqLabor_or_ID;
1120: p_item_cat_name;
1121: --AND c.description = p_item_cat_name;
1122:
1123: BEGIN
1124: x_return_status:= FND_API.G_RET_STS_SUCCESS;
1125: IF (p_item_cat_id IS NOT NULL)
1126: THEN
1127: IF (p_check_id_flag = 'Y') THEN
1128: BEGIN
1136:
1137: EXCEPTION
1138: WHEN OTHERS THEN
1139: x_item_category_id := NULL;
1140: x_return_status:= FND_API.G_RET_STS_ERROR;
1141: --Need to get a proper message
1142: x_error_msg_code:= 'PA_INVALID_ITEM_CAT_ID';
1143: RAISE;
1144: END;
1193: -- AND c.description = p_item_cat_name;
1194: EXCEPTION
1195: WHEN OTHERS THEN
1196: x_item_category_id := NULL;
1197: x_return_status:= FND_API.G_RET_STS_ERROR;
1198: --Need to get a proper message
1199: x_error_msg_code:= 'PA_INVALID_ITEM_CAT_NAME';
1200: Return;
1201: END;
1205: END IF;
1206: EXCEPTION
1207: WHEN OTHERS THEN
1208: x_item_category_id := NULL;
1209: x_return_status:= FND_API.G_RET_STS_ERROR;
1210: --Need to get a proper message
1211: x_error_msg_code:= 'PA_INVALID_ITEM_CAT_ID';
1212: Return;
1213: END Check_ItemCat_or_ID;
1251: --AND t.language = userenv('LANG')
1252: AND b.segment1 = p_item_name;
1253:
1254: BEGIN
1255: x_return_status:= FND_API.G_RET_STS_SUCCESS;
1256: IF (p_item_id IS NOT NULL)
1257: THEN
1258: IF (p_check_id_flag = 'Y') THEN
1259: BEGIN
1274: AND b.inventory_item_id = p_item_id;
1275: EXCEPTION
1276: WHEN OTHERS THEN
1277: x_item_id := NULL;
1278: x_return_status:= FND_API.G_RET_STS_ERROR;
1279: --Need to get a proper message
1280: x_error_msg_code:= 'PA_INVALID_INV_ID';
1281: RAISE;
1282: END;
1339: AND b.segment1 = p_item_name;
1340: EXCEPTION
1341: WHEN OTHERS THEN
1342: x_item_id := NULL;
1343: x_return_status:= FND_API.G_RET_STS_ERROR;
1344: --Need to get a proper message
1345: x_error_msg_code:= 'PA_INVALID_INV_NAME';
1346: Return;
1347: END;
1351: END IF;
1352: EXCEPTION
1353: WHEN OTHERS THEN
1354: x_item_id := NULL;
1355: x_return_status:= FND_API.G_RET_STS_ERROR;
1356: --Need to get a proper message
1357: x_error_msg_code:= 'PA_INVALID_INV_ID';
1358: Return;
1359: END Check_InventoryItem_or_Id;
1525: * Main Body *
1526: ************************/
1527: BEGIN
1528: -- hr_utility.trace('Start Validate_Resource');
1529: x_return_status:= FND_API.G_RET_STS_SUCCESS;
1530: x_resource_class_flag := 'N';
1531: /* Call to the Function check_null_flag to check for the null conditions*/
1532: IF P_PA_DEBUG_MODE = 'Y' THEN
1533: pa_debug.write('Validate_Resource: ' || g_module_name,'p_resource_code '|| p_resource_code ,1);
1538:
1539: IF Check_Res_Null(p_resource_code,p_resource_name,
1540: p_resource_class_code,p_res_type_code) = 'Y'
1541: THEN
1542: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1543: Return;
1544: ELSE
1545:
1546: IF Match_classcode_Type(p_resource_class_code,p_res_type_code) = 'N'
1544: ELSE
1545:
1546: IF Match_classcode_Type(p_resource_class_code,p_res_type_code) = 'N'
1547: THEN
1548: x_return_status := FND_API.G_RET_STS_ERROR;
1549: --Need to get message for this.
1550: x_error_msg_code:= 'PA_RESOURCE_NO_MATCH';
1551: PA_UTILS.Add_Message('PA', x_error_msg_code, 'PLAN_RES',
1552: Pa_Planning_Resource_Pvt.g_token);
1559: ELSE
1560: IF P_PA_DEBUG_MODE = 'Y' THEN
1561: pa_debug.write('Validate_Resource: ' || g_module_name,'RESOURCE_CLASS error' ,1);
1562: END IF;
1563: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1564: Return;
1565: END IF;
1566: ELSIF p_res_type_code = 'PERSON_TYPE' THEN
1567: BEGIN
1571: WHERE lookup_type = 'PA_PERSON_TYPE'
1572: AND lookup_code = p_resource_code;
1573: EXCEPTION
1574: WHEN OTHERS THEN
1575: x_return_status := FND_API.G_RET_STS_ERROR;
1576: --Need to get message for this.
1577: x_error_msg_code:= 'PA_PERSON_TYPE_CODE_INVALID';
1578: PA_UTILS.Add_Message('PA', x_error_msg_code, 'PLAN_RES',
1579: Pa_Planning_Resource_Pvt.g_token);
1585: FROM pa_non_labor_resources
1586: WHERE non_labor_resource = p_resource_name;
1587: EXCEPTION
1588: WHEN OTHERS THEN
1589: x_return_status := FND_API.G_RET_STS_ERROR;
1590: --Need to get message for this.
1591: x_error_msg_code:= 'PA_NON_LABOR_CODE_INVALID';
1592: PA_UTILS.Add_Message('PA', x_error_msg_code, 'PLAN_RES',
1593: Pa_Planning_Resource_Pvt.g_token);
1605: x_person_id := l_person_id;
1606: x_return_status := l_return_status;
1607: x_error_msg_code := l_error_msg_code;
1608:
1609: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1610: PA_UTILS.Add_Message('PA', l_error_msg_code, 'PLAN_RES',
1611: Pa_Planning_Resource_Pvt.g_token);
1612: Return;
1613: END IF;
1638: -- hr_utility.trace('after Check_JG_JobName_or_ID');
1639: -- hr_utility.trace('x_return_status IS : ' || x_return_status);
1640: -- hr_utility.trace('x_error_msg_code IS : ' || x_error_msg_code);
1641: -- hr_utility.trace('x_job_id IS : ' || x_job_id);
1642: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1643: PA_UTILS.Add_Message('PA', l_error_msg_code, 'PLAN_RES',
1644: Pa_Planning_Resource_Pvt.g_token);
1645: Return;
1646: END IF;
1659: x_bom_resource_id := l_bom_resource_id;
1660: x_return_status := l_return_status;
1661: x_error_msg_code := l_error_msg_code;
1662: --Added for bug 3947006
1663: IF x_return_status = Fnd_Api.G_Ret_Sts_Error THEN
1664:
1665: Return;
1666: END IF;
1667:
1664:
1665: Return;
1666: END IF;
1667:
1668: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1669: PA_UTILS.Add_Message('PA', l_error_msg_code, 'PLAN_RES',
1670: Pa_Planning_Resource_Pvt.g_token);
1671: Return;
1672: END IF;
1684: x_bom_resource_id := l_bom_resource_id;
1685: x_return_status := l_return_status;
1686: x_error_msg_code := l_error_msg_code;
1687:
1688: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1689: PA_UTILS.Add_Message('PA', l_error_msg_code, 'PLAN_RES',
1690: Pa_Planning_Resource_Pvt.g_token);
1691: Return;
1692: END IF;
1705: --AND cl.resource_class_code = 'MATERIAL_ITEMS';
1706: EXCEPTION
1707: WHEN NO_DATA_FOUND THEN
1708: x_item_category_id := NULL;
1709: x_return_status:= FND_API.G_RET_STS_ERROR;
1710: --Need to get a proper message
1711: x_error_msg_code:= 'PA_NO_ITEM_CATEGORY_SET';
1712: Return;
1713: WHEN OTHERS THEN
1711: x_error_msg_code:= 'PA_NO_ITEM_CATEGORY_SET';
1712: Return;
1713: WHEN OTHERS THEN
1714: x_item_category_id := NULL;
1715: x_return_status:= FND_API.G_RET_STS_ERROR;
1716: --Need to get a proper message
1717: x_error_msg_code:= 'PA_NO_ITEM_CATEGORY_SET';
1718: Return;
1719: END;
1729:
1730: x_item_category_id := l_item_category_id;
1731: x_return_status := l_return_status;
1732: x_error_msg_code := l_error_msg_code;
1733: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1734: PA_UTILS.Add_Message('PA', l_error_msg_code, 'PLAN_RES',
1735: Pa_Planning_Resource_Pvt.g_token);
1736: END IF;
1737: ELSIF p_res_type_code = 'INVENTORY_ITEM' THEN
1747: --AND cl.resource_class_code = 'MATERIAL_ITEMS';
1748: EXCEPTION
1749: WHEN NO_DATA_FOUND THEN
1750: x_inventory_item_id := NULL;
1751: x_return_status:= FND_API.G_RET_STS_ERROR;
1752: --Need to get a proper message
1753: x_error_msg_code:= 'PA_NO_MAT_ITEM_ID';
1754: Return;
1755: WHEN OTHERS THEN
1753: x_error_msg_code:= 'PA_NO_MAT_ITEM_ID';
1754: Return;
1755: WHEN OTHERS THEN
1756: x_inventory_item_id := NULL;
1757: x_return_status:= FND_API.G_RET_STS_ERROR;
1758: --Need to get a proper message
1759: x_error_msg_code:= 'PA_NO_MAT_ITEM_ID';
1760: Return;
1761: END;
1770:
1771: X_inventory_item_id := l_inventory_item_id;
1772: x_return_status := l_return_status;
1773: x_error_msg_code := l_error_msg_code;
1774: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1775: PA_UTILS.Add_Message('PA', l_error_msg_code, 'PLAN_RES',
1776: Pa_Planning_Resource_Pvt.g_token);
1777: Return;
1778: END IF;
2501: * * Main Block
2502: * ***********************************************/
2503: BEGIN
2504: --Initialize the x_return_status
2505: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
2506:
2507: --For bug 4039707, 4887312
2508:
2509: -- Commenting out for TEMP fix to bug 4887312 - proper fix will be done soon.
2840: AND a.order_id = b.order_id
2841: ORDER BY b.order_id;
2842:
2843: IF x_resource_class_id.COUNT <> p_resource_list_members.COUNT then
2844: X_Return_Status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2845: RAISE l_exception;
2846: END IF;
2847:
2848: DELETE FROM pa_res_members_temp;
2850: DELETE FROM pa_res_member_id_temp;
2851:
2852: EXCEPTION
2853: WHEN l_exception THEN
2854: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2855: Return;
2856: WHEN OTHERS THEN
2857: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2858: Return;
2853: WHEN l_exception THEN
2854: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2855: Return;
2856: WHEN OTHERS THEN
2857: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2858: Return;
2859: END Get_Resource_defaults;
2860:
2861:
3312: End If;
3313:
3314: End If;
3315:
3316: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
3317: X_Msg_Data := Null;
3318: X_Resource_Displayed := l_Res_Type_Displayed;
3319:
3320: Exception
3318: X_Resource_Displayed := l_Res_Type_Displayed;
3319:
3320: Exception
3321: When UNEXPEC_ERROR THEN
3322: X_Return_Status := Fnd_Api.G_Ret_Sts_UnExp_Error;
3323: --x_msg_count := x_msg_count + 1;
3324: x_msg_data := Null;
3325: Fnd_Msg_Pub.Add_Exc_Msg(
3326: P_Pkg_Name => 'PA_PLANNING_RESOURCE_UTILS',
3328:
3329: Return;
3330: /* When NULL_PER_IN_RES_LIST_MEM Then
3331: If P_Proc_Func_Flag = 'P' Then
3332: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3333: X_Msg_Data := 'PA_NULL_PER_IN_RES_LIST_MEM';
3334: Pa_Utils.Add_Message
3335: (P_App_Short_Name => 'PA',
3336: P_Msg_Name => 'PA_NULL_PER_IN_RES_LIST_MEM');
3340:
3341: End If;*/
3342: /*When BAD_PER_IN_RES_LIST_MEM Then
3343: If P_Proc_Func_Flag = 'P' Then
3344: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3345: X_Msg_Data := 'PA_BAD_PER_IN_RES_LIST_MEM';
3346: Pa_Utils.Add_Message
3347: (P_App_Short_Name => 'PA',
3348: P_Msg_Name => 'PA_BAD_PER_IN_RES_LIST_MEM');
3353: End If;*/
3354:
3355: /*When NULL_JOB_IN_RES_LIST_MEM Then
3356: If P_Proc_Func_Flag = 'P' Then
3357: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3358: X_Msg_Data := 'PA_NULL_JOB_IN_RES_LIST_MEM';
3359: Pa_Utils.Add_Message
3360: (P_App_Short_Name => 'PA',
3361: P_Msg_Name => 'PA_NULL_JOB_IN_RES_LIST_MEM');
3363: X_Resource_Displayed := Null;
3364: End If;*/
3365: /*When BAD_JOB_IN_RES_LIST_MEM Then
3366: If P_Proc_Func_Flag = 'P' Then
3367: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3368: X_Msg_Data := 'PA_BAD_JOB_IN_RES_LIST_MEM';
3369: Pa_Utils.Add_Message
3370: (P_App_Short_Name => 'PA',
3371: P_Msg_Name => 'PA_BAD_JOB_IN_RES_LIST_MEM');
3373: X_Resource_Displayed := Null;
3374: End If;*/
3375: /*When NULL_PER_TYPE_IN_LIST_MEM Then
3376: If P_Proc_Func_Flag = 'P' Then
3377: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3378: X_Msg_Data := 'PA_NULL_PER_TYPE_IN_LIST_MEM';
3379: Pa_Utils.Add_Message
3380: (P_App_Short_Name => 'PA',
3381: P_Msg_Name => 'PA_NULL_PER_TYPE_IN_LIST_MEM');
3383: X_Resource_Displayed := Null;
3384: End If;*/
3385: /*When BAD_PER_TYPE_IN_LIST_MEM Then
3386: If P_Proc_Func_Flag = 'P' Then
3387: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3388: X_Msg_Data := 'PA_BAD_PER_TYPE_IN_LIST_MEM';
3389: Pa_Utils.Add_Message
3390: (P_App_Short_Name => 'PA',
3391: P_Msg_Name => 'PA_BAD_PER_TYPE_IN_LIST_MEM');
3393: X_Resource_Displayed := Null;
3394: End If;*/
3395: When BAD_BOM_LABOR_RES_IN_LST_MEM Then
3396: If P_Proc_Func_Flag = 'P' Then
3397: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3398: X_Msg_Data := 'PA_BAD_BOM_LABOR_RES_LIST_MEM';
3399: Pa_Utils.Add_Message
3400: (P_App_Short_Name => 'PA',
3401: P_Msg_Name => 'PA_BAD_BOM_LABOR_RES_LIST_MEM');
3403: X_Resource_Displayed := Null;
3404: End If;
3405: When NULL_BOM_LABOR_RES_IN_LST_MEM Then
3406: If P_Proc_Func_Flag = 'P' Then
3407: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3408: X_Msg_Data := 'PA_NULL_BOM_LABOR_RES_LIST_MEM';
3409: Pa_Utils.Add_Message
3410: (P_App_Short_Name => 'PA',
3411: P_Msg_Name => 'PA_NULL_BOM_LABOR_RES_LIST_MEM');
3413: X_Resource_Displayed := Null;
3414: End If;
3415: When BAD_BOM_EQUIP_RES_IN_LST_MEM Then
3416: If P_Proc_Func_Flag = 'P' Then
3417: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3418: X_Msg_Data := 'PA_BAD_BOMEQUIP_RES_IN_LST_MEM';
3419: Pa_Utils.Add_Message
3420: (P_App_Short_Name => 'PA',
3421: P_Msg_Name => 'PA_BAD_BOMEQUIP_RES_IN_LST_MEM');
3423: X_Resource_Displayed := Null;
3424: End If;
3425: When NULL_BOM_EQUIP_RES_IN_LST_MEM Then
3426: If P_Proc_Func_Flag = 'P' Then
3427: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3428: X_Msg_Data := 'PA_NULL_BOM_EQUIP_RES_LIST_MEM';
3429: Pa_Utils.Add_Message
3430: (P_App_Short_Name => 'PA',
3431: P_Msg_Name => 'PA_NULL_BOM_EQUIP_RES_LIST_MEM');
3433: X_Resource_Displayed := Null;
3434: End If;
3435: When BAD_ITEM_CAT_IN_LST_MEM Then
3436: If P_Proc_Func_Flag = 'P' Then
3437: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3438: X_Msg_Data := 'PA_BAD_ITEM_CAT_IN_LST_MEM';
3439: Pa_Utils.Add_Message
3440: (P_App_Short_Name => 'PA',
3441: P_Msg_Name => 'PA_BAD_ITEM_CAT_IN_LST_MEM');
3443: X_Resource_Displayed := Null;
3444: End If;
3445: When NULL_ITEM_CAT_IN_LST_MEM Then
3446: If P_Proc_Func_Flag = 'P' Then
3447: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3448: X_Msg_Data := 'PA_NULL_ITEM_CAT_IN_LST_MEM';
3449: Pa_Utils.Add_Message
3450: (P_App_Short_Name => 'PA',
3451: P_Msg_Name => 'PA_NULL_ITEM_CAT_IN_LST_MEM');
3453: X_Resource_Displayed := Null;
3454: End If;
3455: When BAD_INVEN_ITEM_IN_LST_MEM Then
3456: If P_Proc_Func_Flag = 'P' Then
3457: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3458: X_Msg_Data := 'PA_BAD_INVEN_ITEM_IN_LST_MEM';
3459: Pa_Utils.Add_Message
3460: (P_App_Short_Name => 'PA',
3461: P_Msg_Name => 'PA_BAD_INVEN_ITEM_IN_LST_MEM');
3463: X_Resource_Displayed := Null;
3464: End If;
3465: When NULL_INVEN_ITEM_IN_LST_MEM Then
3466: If P_Proc_Func_Flag = 'P' Then
3467: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3468: X_Msg_Data := 'PA_NULL_INVEN_ITEM_IN_LST_MEM';
3469: Pa_Utils.Add_Message
3470: (P_App_Short_Name => 'PA',
3471: P_Msg_Name => 'PA_NULL_INVEN_ITEM_IN_LST_MEM');
3473: X_Resource_Displayed := Null;
3474: End If;
3475: /*When NULL_NLR_IN_LIST_MEM Then
3476: If P_Proc_Func_Flag = 'P' Then
3477: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3478: X_Msg_Data := 'PA_NULL_NLR_IN_LIST_MEM';
3479: Pa_Utils.Add_Message
3480: (P_App_Short_Name => 'PA',
3481: P_Msg_Name => 'PA_NULL_NLR_IN_LIST_MEM');
3483: X_Resource_Displayed := Null;
3484: End If;*/
3485: /*When NULL_RESCLASS_IN_LIST_MEM Then
3486: If P_Proc_Func_Flag = 'P' Then
3487: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3488: X_Msg_Data := 'PA_NULL_RESCLASS_IN_LIST_MEM';
3489: Pa_Utils.Add_Message
3490: (P_App_Short_Name => 'PA',
3491: P_Msg_Name => 'PA_NULL_RESCLASS_IN_LIST_MEM');
3493: X_Resource_Displayed := Null;
3494: End If;*/
3495: /*When BAD_RESCLASS_IN_LIST_MEM Then
3496: If P_Proc_Func_Flag = 'P' Then
3497: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3498: X_Msg_Data := 'PA_BAD_RESCLASS_IN_LIST_MEM';
3499: Pa_Utils.Add_Message
3500: (P_App_Short_Name => 'PA',
3501: P_Msg_Name => 'PA_BAD_RESCLASS_IN_LIST_MEM');
3702: l_Fin_Cat_Displayed := NULL;
3703:
3704: End If; -- P_FC_Res_Type_Code is not null
3705:
3706: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
3707: X_Msg_Data := Null;
3708: X_Fin_Cat_Displayed := l_Fin_Cat_Displayed;
3709:
3710: Exception
3708: X_Fin_Cat_Displayed := l_Fin_Cat_Displayed;
3709:
3710: Exception
3711: When UNEXPEC_ERROR THEN
3712: X_Return_Status := Fnd_Api.G_Ret_Sts_UnExp_Error;
3713: --x_msg_count := x_msg_count + 1;
3714: x_msg_data := Null;
3715: Fnd_Msg_Pub.Add_Exc_Msg(
3716: P_Pkg_Name => 'PA_PLANNING_RESOURCE_UTILS',
3719: /*When NULL_FC_RES_TYPE_IN_LIST_MEM Then
3720:
3721: If P_Proc_Func_Flag = 'P' Then
3722:
3723: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3724: X_Msg_Data := 'PA_NULL_FC_RESTYPE_IN_LIST_MEM';
3725: Pa_Utils.Add_Message
3726: (P_App_Short_Name => 'PA',
3727: P_Msg_Name => 'PA_NULL_FC_RESTYPE_IN_LIST_MEM');
3734: /*When NULL_EXP_TYPE_IN_LIST_MEM Then
3735:
3736: If P_Proc_Func_Flag = 'P' Then
3737:
3738: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3739: X_Msg_Data := 'PA_NULL_EXP_TYPE_IN_LIST_MEM';
3740: Pa_Utils.Add_Message
3741: (P_App_Short_Name => 'PA',
3742: P_Msg_Name => 'PA_NULL_EXP_TYPE_IN_LIST_MEM');
3750: /*When NULL_EXP_CAT_IN_LIST_MEM Then
3751:
3752: If P_Proc_Func_Flag = 'P' Then
3753:
3754: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3755: X_Msg_Data := 'PA_NULL_EXP_CAT_IN_LIST_MEM';
3756: Pa_Utils.Add_Message
3757: (P_App_Short_Name => 'PA',
3758: P_Msg_Name => 'PA_NULL_EXP_CAT_IN_LIST_MEM');
3766: /*When NULL_EVENT_TYPE_IN_LIST_MEM Then
3767:
3768: If P_Proc_Func_Flag = 'P' Then
3769:
3770: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3771: X_Msg_Data := 'PA_NULL_EVENT_TYPE_IN_LIST_MEM';
3772: Pa_Utils.Add_Message
3773: (P_App_Short_Name => 'PA',
3774: P_Msg_Name => 'PA_NULL_EVENT_TYPE_IN_LIST_MEM');
3782: /*When NULL_REV_CAT_IN_LIST_MEM Then
3783:
3784: If P_Proc_Func_Flag = 'P' Then
3785:
3786: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3787: X_Msg_Data := 'PA_NULL_REV_CAT_IN_LIST_MEM';
3788: Pa_Utils.Add_Message
3789: (P_App_Short_Name => 'PA',
3790: P_Msg_Name => 'PA_NULL_REV_CAT_IN_LIST_MEM');
3798: When INV_FC_RES_TYPE_IN_LIST_MEM Then
3799:
3800: If P_Proc_Func_Flag = 'P' Then
3801:
3802: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3803: X_Msg_Data := 'PA_INV_FC_RESTYPE_IN_LIST_MEM';
3804: Pa_Utils.Add_Message
3805: (P_App_Short_Name => 'PA',
3806: P_Msg_Name => 'PA_INV_FC_RESTYPE_IN_LIST_MEM');
3885: l_Org_Displayed := NULL;
3886:
3887: End If;
3888:
3889: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
3890: X_Msg_Data := Null;
3891: X_Org_Displayed := l_Org_Displayed;
3892:
3893: Exception
3891: X_Org_Displayed := l_Org_Displayed;
3892:
3893: Exception
3894: When UNEXPEC_ERROR THEN
3895: X_Return_Status := Fnd_Api.G_Ret_Sts_UnExp_Error;
3896: --x_msg_count := x_msg_count + 1;
3897: x_msg_data := Null;
3898: Fnd_Msg_Pub.Add_Exc_Msg(
3899: P_Pkg_Name => 'PA_PLANNING_RESOURCE_UTILS',
3902: /*When NULL_ORG_ID_IN_LIST_MEM Then
3903:
3904: If P_Proc_Func_Flag = 'P' Then
3905:
3906: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3907: X_Msg_Data := 'PA_NULL_ORG_ID_IN_LIST_MEM';
3908: Pa_Utils.Add_Message
3909: (P_App_Short_Name => 'PA',
3910: P_Msg_Name => 'PA_NULL_ORG_ID_IN_LIST_MEM');
3918: /*When BAD_ORG_ID_IN_LIST_MEM Then
3919:
3920: If P_Proc_Func_Flag = 'P' Then
3921:
3922: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3923: X_Msg_Data := 'PA_BAD_ORG_ID_IN_LIST_MEM';
3924: Pa_Utils.Add_Message
3925: (P_App_Short_Name => 'PA',
3926: P_Msg_Name => 'PA_BAD_ORG_ID_IN_LIST_MEM');
4015: l_Supplier_Displayed := NULL;
4016:
4017: End If;
4018:
4019: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
4020: X_Msg_Data := Null;
4021: X_Supplier_Displayed := l_Supplier_Displayed;
4022:
4023: Exception
4021: X_Supplier_Displayed := l_Supplier_Displayed;
4022:
4023: Exception
4024: When UNEXPEC_ERROR THEN
4025: X_Return_Status := Fnd_Api.G_Ret_Sts_UnExp_Error;
4026: --x_msg_count := x_msg_count + 1;
4027: x_msg_data := Null;
4028: Fnd_Msg_Pub.Add_Exc_Msg(
4029: P_Pkg_Name => 'PA_PLANNING_RESOURCE_UTILS',
4032: /*When NULL_VEND_IN_LIST_MEM Then
4033:
4034: If P_Proc_Func_Flag = 'P' Then
4035:
4036: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
4037: X_Msg_Data := 'PA_NULL_VEND_IN_LIST_MEM';
4038: Pa_Utils.Add_Message
4039: (P_App_Short_Name => 'PA',
4040: P_Msg_Name => 'PA_NULL_VEND_IN_LIST_MEM');
4048: /*When BAD_VEND_IN_LIST_MEM Then
4049:
4050: If P_Proc_Func_Flag = 'P' Then
4051:
4052: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
4053: X_Msg_Data := 'PA_BAD_VEND_IN_LIST_MEM';
4054: Pa_Utils.Add_Message
4055: (P_App_Short_Name => 'PA',
4056: P_Msg_Name => 'PA_BAD_VEND_IN_LIST_MEM');
4146: l_Role_Displayed := NULL;
4147:
4148: End If;
4149:
4150: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
4151: X_Msg_Data := Null;
4152: X_Role_Displayed := l_Role_Displayed;
4153:
4154: Exception
4152: X_Role_Displayed := l_Role_Displayed;
4153:
4154: Exception
4155: When UNEXPEC_ERROR THEN
4156: X_Return_Status := Fnd_Api.G_Ret_Sts_UnExp_Error;
4157: --x_msg_count := x_msg_count + 1;
4158: x_msg_data := Null;
4159: Fnd_Msg_Pub.Add_Exc_Msg(
4160: P_Pkg_Name => 'PA_PLANNING_RESOURCE_UTILS',
4163: /*When NULL_ROLE_IN_LIST_MEM Then
4164:
4165: If P_Proc_Func_Flag = 'P' Then
4166:
4167: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
4168: X_Msg_Data := 'PA_NULL_ROLE_IN_LIST_MEM';
4169: Pa_Utils.Add_Message
4170: (P_App_Short_Name => 'PA',
4171: P_Msg_Name => 'PA_NULL_ROLE_IN_LIST_MEM');
4179: /*When BAD_ROLE_IN_LIST_MEM Then
4180:
4181: If P_Proc_Func_Flag = 'P' Then
4182:
4183: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
4184: X_Msg_Data := 'PA_BAD_ROLE_IN_LIST_MEM';
4185: Pa_Utils.Add_Message
4186: (P_App_Short_Name => 'PA',
4187: P_Msg_Name => 'PA_BAD_ROLE_IN_LIST_MEM');
4443: End If;
4444:
4445: X_Inc_By_Displayed := l_Inc_By_Displayed;
4446: X_Msg_Data := Null;
4447: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
4448:
4449: Exception
4450: When UNEXPEC_ERROR THEN
4451: X_Return_Status := Fnd_Api.G_Ret_Sts_UnExp_Error;
4447: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
4448:
4449: Exception
4450: When UNEXPEC_ERROR THEN
4451: X_Return_Status := Fnd_Api.G_Ret_Sts_UnExp_Error;
4452: --x_msg_count := x_msg_count + 1;
4453: x_msg_data := Null;
4454: Fnd_Msg_Pub.Add_Exc_Msg(
4455: P_Pkg_Name => 'PA_PLANNING_RESOURCE_UTILS',
4458: /*When BAD_PER_IN_RES_LIST_MEM Then
4459:
4460: If P_Proc_Func_Flag = 'P' Then
4461:
4462: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
4463: X_Msg_Data := 'PA_BAD_PER_IN_RES_LIST_MEM';
4464: Pa_Utils.Add_Message
4465: (P_App_Short_Name => 'PA',
4466: P_Msg_Name => 'PA_BAD_PER_IN_RES_LIST_MEM');
4474: /*When BAD_JOB_IN_RES_LIST_MEM Then
4475:
4476: If P_Proc_Func_Flag = 'P' Then
4477:
4478: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
4479: X_Msg_Data := 'PA_BAD_JOB_IN_RES_LIST_MEM';
4480: Pa_Utils.Add_Message
4481: (P_App_Short_Name => 'PA',
4482: P_Msg_Name => 'PA_BAD_JOB_IN_RES_LIST_MEM');
4490: /*When BAD_INCUR_ROLE_IN_LIST_MEM Then
4491:
4492: If P_Proc_Func_Flag = 'P' Then
4493:
4494: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
4495: X_Msg_Data := 'PA_BAD_INCUR_ROLE_IN_LIST_MEM';
4496: Pa_Utils.Add_Message
4497: (P_App_Short_Name => 'PA',
4498: P_Msg_Name => 'PA_BAD_INCUR_ROLE_IN_LIST_MEM');
4506: /*When BAD_PER_TYPE_IN_LIST_MEM Then
4507:
4508: If P_Proc_Func_Flag = 'P' Then
4509:
4510: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
4511: X_Msg_Data := 'PA_BAD_PER_TYPE_IN_LIST_MEM';
4512: Pa_Utils.Add_Message
4513: (P_App_Short_Name => 'PA',
4514: P_Msg_Name => 'PA_BAD_PER_TYPE_IN_LIST_MEM');
4522: /*When BAD_INCUR_RESCLASS_IN_LIST_MEM Then
4523:
4524: If P_Proc_Func_Flag = 'P' Then
4525:
4526: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
4527: X_Msg_Data := 'PA_BAD_INC_RESCLASS_IN_LST_MEM';
4528: Pa_Utils.Add_Message
4529: (P_App_Short_Name => 'PA',
4530: P_Msg_Name => 'PA_BAD_INC_RESCLASS_IN_LST_MEM');
4538: /*When INV_INCUR_BY_IN_LIST_MEM Then
4539:
4540: If P_Proc_Func_Flag = 'P' Then
4541:
4542: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
4543: X_Msg_Data := 'PA_INV_INCUR_BY_IN_LIST_MEM';
4544: Pa_Utils.Add_Message
4545: (P_App_Short_Name => 'PA',
4546: P_Msg_Name => 'PA_INV_INCUR_BY_IN_LIST_MEM');
4655: -- Role
4656: -- Incurred By
4657:
4658: -- Initialize values
4659: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
4660: X_Msg_Count := 0;
4661: X_Msg_Data := Null;
4662: /***************************************************
4663: * Bug - 3591595
4667: ******************************************************/
4668: IF P_Resource_List_Member_Id IS NULL THEN
4669: X_Resource_Alias := Null;
4670: X_Plan_Res_Combination := Null;
4671: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
4672: Return;
4673: END IF;
4674:
4675: Open c_Res_List(P_Res_List_Member_Id => P_Resource_List_Member_Id);
4717: X_Resource_Displayed => l_Res_Type_Displayed,
4718: X_Return_Status => X_Return_Status,
4719: X_Msg_Data => X_Msg_Data);
4720:
4721: If X_Return_Status = Fnd_Api.G_Ret_Sts_Error Then
4722:
4723: Raise FAIL_GET_NAME;
4724:
4725: End If;
4764: X_Fin_Cat_Displayed => l_FC_Displayed,
4765: X_Return_Status => X_Return_Status,
4766: X_Msg_Data => X_Msg_Data);
4767:
4768: If X_Return_Status = Fnd_Api.G_Ret_Sts_Error Then
4769:
4770: Raise FAIL_GET_NAME;
4771:
4772: End If;
4795: X_Org_Displayed => l_Orgn_Displayed,
4796: X_Return_Status => X_Return_Status,
4797: X_Msg_Data => X_Msg_Data);
4798:
4799: If X_Return_Status = Fnd_Api.G_Ret_Sts_Error Then
4800:
4801: Raise FAIL_GET_NAME;
4802:
4803: End If;
4826: X_Supplier_Displayed => l_Supplier_Displayed,
4827: X_Return_Status => X_Return_Status,
4828: X_Msg_Data => X_Msg_Data);
4829:
4830: If X_Return_Status = Fnd_Api.G_Ret_Sts_Error Then
4831:
4832: Raise FAIL_GET_NAME;
4833:
4834: End If;
4858: X_Return_Status => X_Return_Status,
4859: X_Msg_Data => X_Msg_Data);
4860:
4861:
4862: If X_Return_Status = Fnd_Api.G_Ret_Sts_Error Then
4863:
4864: Raise FAIL_GET_NAME;
4865:
4866: End If;*/
4897: X_Inc_By_Displayed => l_Res_Incur_By_displayed,
4898: X_Return_Status => X_Return_Status,
4899: X_Msg_Data => X_Msg_Data);
4900:
4901: If X_Return_Status = Fnd_Api.G_Ret_Sts_Error Then
4902:
4903: Raise FAIL_GET_NAME;
4904:
4905: End If;
4934: End If; -- Check incurred_by_enabled_flag = 'Y'
4935:
4936: Exception
4937: When INVALID_RES_LIST_MEM_ID Then
4938: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
4939: X_Msg_Count := 1;
4940: X_Msg_Data := 'PA_INVALID_RES_LIST_MEM_ID';
4941: Pa_Utils.Add_Message
4942: (P_App_Short_Name => 'PA',
4941: Pa_Utils.Add_Message
4942: (P_App_Short_Name => 'PA',
4943: P_Msg_Name => 'PA_INVALID_RES_LIST_MEM_ID');
4944: When NULL_MEM_LIST_RES_FORMAT Then
4945: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
4946: X_Msg_Count := 1;
4947: X_Msg_Data := 'PA_NULL_MEM_LIST_RES_FRM';
4948: Pa_Utils.Add_Message
4949: (P_App_Short_Name => 'PA',
4948: Pa_Utils.Add_Message
4949: (P_App_Short_Name => 'PA',
4950: P_Msg_Name => 'PA_NULL_MEM_LIST_RES_FRM');
4951: When INVALID_MEM_LIST_RES_FORMAT Then
4952: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
4953: X_Msg_Count := 1;
4954: X_Msg_Data := 'PA_INVALID_MEM_LIST_RES_FRM';
4955: Pa_Utils.Add_Message
4956: (P_App_Short_Name => 'PA',
4955: Pa_Utils.Add_Message
4956: (P_App_Short_Name => 'PA',
4957: P_Msg_Name => 'PA_INVALID_MEM_LIST_RES_FRM');
4958: /*When BAD_RES_TYPE_CODE Then
4959: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
4960: X_Msg_Count := 1;
4961: X_Msg_Data := 'PA_BAD_RES_TYPE_CODE';
4962: Pa_Utils.Add_Message
4963: (P_App_Short_Name => 'PA',
4993: X_Return_Status => l_Return_Status,
4994: X_Msg_Count => l_Error_Count,
4995: X_Msg_Data => l_Error_Msg_Data);
4996:
4997: If l_Return_Status <> Fnd_Api.G_Ret_Sts_Success Then
4998:
4999: -- Since this function calls the procedure get_plan_res_combination
5000: -- then the message is populated already using pa_utils.add_message()
5001: -- so just return 'ERROR'
5119: l_rev_code Varchar2(30) := Null;
5120:
5121: Begin
5122: -- Initialize values
5123: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
5124: X_Error_Message_Code := Null;
5125:
5126: If P_FC_Res_Type_Code is Null or
5127: P_Fin_Category_Name is Null or
5223: END IF; --Added for CBS::13535688
5224:
5225: Exception
5226: When UNEXPEC_ERROR THEN
5227: X_Return_Status := Fnd_Api.G_Ret_Sts_UnExp_Error;
5228: --x_msg_count := x_msg_count + 1;
5229: x_error_message_code := Null;
5230: Fnd_Msg_Pub.Add_Exc_Msg(
5231: P_Pkg_Name => 'PA_PLANNING_RESOURCE_UTILS',
5230: Fnd_Msg_Pub.Add_Exc_Msg(
5231: P_Pkg_Name => 'PA_PLANNING_RESOURCE_UTILS',
5232: P_Procedure_Name => 'Validate_Fin_Category');
5233: When INVALID_FIN_CAT_CODE Then
5234: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
5235: X_Error_Message_Code := 'PA_VFC_INVALID_FIN_CAT_CODE';
5236: Pa_Utils.Add_Message
5237: (P_App_Short_Name => 'PA',
5238: P_Msg_Name => 'PA_VFC_INVALID_FIN_CAT_CODE',
5238: P_Msg_Name => 'PA_VFC_INVALID_FIN_CAT_CODE',
5239: p_token1 => 'PLAN_RES',
5240: p_value1 => Pa_Planning_Resource_Pvt.g_token);
5241: When MAN_PARAMS_NULL Then
5242: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
5243: X_Error_Message_Code := 'PA_VFC_MAN_PARAMS_NULL';
5244: Pa_Utils.Add_Message
5245: (P_App_Short_Name => 'PA',
5246: P_Msg_Name => 'PA_VFC_MAN_PARAMS_NULL',
5246: P_Msg_Name => 'PA_VFC_MAN_PARAMS_NULL',
5247: p_token1 => 'PLAN_RES',
5248: p_value1 => Pa_Planning_Resource_Pvt.g_token);
5249: When BAD_FIN_CAT_FOR_EVENT_TYPE Then
5250: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
5251: X_Error_Message_Code := 'PA_VFC_BAD_FINCAT_FOR_EVT_TYPE';
5252: Pa_Utils.Add_Message
5253: (P_App_Short_Name => 'PA',
5254: P_Msg_Name => 'PA_VFC_BAD_FINCAT_FOR_EVT_TYPE',
5254: P_Msg_Name => 'PA_VFC_BAD_FINCAT_FOR_EVT_TYPE',
5255: p_token1 => 'PLAN_RES',
5256: p_value1 => Pa_Planning_Resource_Pvt.g_token);
5257: When BAD_FIN_CAT_FOR_EXP_TYPE Then
5258: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
5259: X_Error_Message_Code := 'PA_VFC_BAD_FIN_CAT_FOR_EXP_TYP';
5260: Pa_Utils.Add_Message
5261: (P_App_Short_Name => 'PA',
5262: P_Msg_Name => 'PA_VFC_BAD_FIN_CAT_FOR_EXP_TYP',
5262: P_Msg_Name => 'PA_VFC_BAD_FIN_CAT_FOR_EXP_TYP',
5263: p_token1 => 'PLAN_RES',
5264: p_value1 => Pa_Planning_Resource_Pvt.g_token);
5265: When BAD_FIN_CAT_FOR_EXP_CAT Then
5266: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
5267: X_Error_Message_Code := 'PA_VFC_BAD_FIN_CAT_FOR_EXP_CAT';
5268: Pa_Utils.Add_Message
5269: (P_App_Short_Name => 'PA',
5270: P_Msg_Name => 'PA_VFC_BAD_FIN_CAT_FOR_EXP_CAT',
5270: P_Msg_Name => 'PA_VFC_BAD_FIN_CAT_FOR_EXP_CAT',
5271: p_token1 => 'PLAN_RES',
5272: p_value1 => Pa_Planning_Resource_Pvt.g_token);
5273: When BAD_FIN_CAT_FOR_REV_CAT Then
5274: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
5275: X_Error_Message_Code := 'PA_VFC_BAD_FIN_CAT_FOR_REV_CAT';
5276: Pa_Utils.Add_Message
5277: (P_App_Short_Name => 'PA',
5278: P_Msg_Name => 'PA_VFC_BAD_FIN_CAT_FOR_REV_CAT',
5278: P_Msg_Name => 'PA_VFC_BAD_FIN_CAT_FOR_REV_CAT',
5279: p_token1 => 'PLAN_RES',
5280: p_value1 => Pa_Planning_Resource_Pvt.g_token);
5281: When BAD_FIN_CAT_UOM Then
5282: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
5283: X_Error_Message_Code := 'PA_VFC_BAD_FIN_CAT_UOM';
5284: Pa_Utils.Add_Message
5285: (P_App_Short_Name => 'PA',
5286: P_Msg_Name => 'PA_VFC_BAD_FIN_CAT_UOM',
5537:
5538: Begin
5539:
5540: -- Initialize values
5541: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
5542: X_Error_Message_Code := Null;
5543:
5544: If P_Incur_By_Res_Code is Null Or
5545: P_Res_Type_Code is NUll Then
5582: End If;
5583:
5584: Exception
5585: When UNEXPEC_ERROR THEN
5586: X_Return_Status := Fnd_Api.G_Ret_Sts_UnExp_Error;
5587: --x_msg_count := x_msg_count + 1;
5588: x_error_message_code := Null;
5589: Fnd_Msg_Pub.Add_Exc_Msg(
5590: P_Pkg_Name => 'PA_PLANNING_RESOURCE_UTILS',
5590: P_Pkg_Name => 'PA_PLANNING_RESOURCE_UTILS',
5591: P_Procedure_Name => 'Validate_Incur_by_Resource');
5592:
5593: When MAN_PARAMS_NULL Then
5594: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
5595: X_Error_Message_Code := 'PA_VIR_MAN_PARAMS_NULL';
5596: Pa_Utils.Add_Message
5597: (P_App_Short_Name => 'PA',
5598: P_Msg_Name => 'PA_VIR_MAN_PARAMS_NULL',
5598: P_Msg_Name => 'PA_VIR_MAN_PARAMS_NULL',
5599: p_token1 => 'PLAN_RES',
5600: p_value1 => Pa_Planning_Resource_Pvt.g_token);
5601: When INVAL_RES_CLSS_CODE Then
5602: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
5603: X_Error_Message_Code := 'PA_VIR_INVAL_RES_CLSS_CODE';
5604: Pa_Utils.Add_Message
5605: (P_App_Short_Name => 'PA',
5606: P_Msg_Name => 'PA_VIR_INVAL_RES_CLSS_CODE',
5606: P_Msg_Name => 'PA_VIR_INVAL_RES_CLSS_CODE',
5607: p_token1 => 'PLAN_RES',
5608: p_value1 => Pa_Planning_Resource_Pvt.g_token);
5609: When INVAL_RES_TYPE_CODE Then
5610: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
5611: X_Error_Message_Code := 'PA_VIR_INVAL_RES_TYPE_CODE';
5612: Pa_Utils.Add_Message
5613: (P_App_Short_Name => 'PA',
5614: P_Msg_Name => 'PA_VIR_INVAL_RES_TYPE_CODE',
5794:
5795: Begin
5796:
5797: -- Initialize Values
5798: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
5799: X_Msg_Count := 0;
5800: X_Msg_Data := Null;
5801:
5802: X_Incur_By_Res_Flag := 'N'; -- set it to Yes when checking if
5985:
5986: -- hr_utility.trace('After Pa_Planning_Resource_Utils.Validate_Resource');
5987: -- hr_utility.trace('X_Return_Status IS : ' || X_Return_Status);
5988: -- hr_utility.trace('X_Msg_Data IS : ' || X_Msg_Data);
5989: If X_Return_Status = Fnd_Api.G_Ret_Sts_Error Then
5990:
5991: Raise FAIL_VALIDATION;
5992:
5993: End If;
6008: X_Organization_Id => X_Organization_Id,
6009: X_Return_Status => X_Return_Status,
6010: X_Error_Msg_Code => X_Msg_Data);
6011:
6012: If X_Return_Status = Fnd_Api.G_Ret_Sts_Error Then
6013: Raise FAIL_VALIDATION;
6014:
6015: End If;
6016:
6077: X_Revenue_Category => X_Revenue_Category_Code,
6078: X_Return_Status => X_Return_Status,
6079: X_Error_Message_Code => X_Msg_Data);
6080:
6081: If X_Return_Status = Fnd_Api.G_Ret_Sts_Error Then
6082:
6083: Raise FAIL_VALIDATION;
6084:
6085: End If;
6108: X_Incur_By_Res_Class_Code => l_Incur_By_Res_Class_Code,
6109: X_Return_Status => X_Return_Status,
6110: X_Error_Message_Code => X_Msg_Data);
6111:
6112: If X_Return_Status = Fnd_Api.G_Ret_Sts_Error Then
6113:
6114: Raise FAIL_VALIDATION;
6115:
6116: End If;
6162: X_Error_Msg_Code => X_Msg_Data);
6163:
6164: -- dbms_output.put_line('- After Validate_Supplier X_Supplier_Id IS : '|| X_Supplier_Id);
6165: -- dbms_output.put_line('- After Validate_Supplier X_Return_Status IS : '|| X_Return_Status);
6166: If X_Return_Status = Fnd_Api.G_Ret_Sts_Error Then
6167:
6168: Raise FAIL_VALIDATION;
6169:
6170: End If;
6240: X_Role_Id => X_Project_Role_Id,
6241: X_Return_Status => X_Return_Status,
6242: X_Error_Message_Code => X_Msg_Data);
6243:
6244: If X_Return_Status = Fnd_Api.G_Ret_Sts_Error Then
6245:
6246: Raise FAIL_VALIDATION;
6247:
6248: End If;
6278: pa_debug.write('PA_PLANNING_RESOURCE_UTILS: ' || g_module_name,'Validate_Planning_Resource ',1);
6279: END IF;
6280: Exception
6281: When UNEXPEC_ERROR THEN
6282: X_Return_Status := Fnd_Api.G_Ret_Sts_UnExp_Error;
6283: --x_msg_count := x_msg_count + 1;
6284: x_msg_data := Null;
6285: Fnd_Msg_Pub.Add_Exc_Msg(
6286: P_Pkg_Name => 'PA_PLANNING_RESOURCE_UTILS',
6286: P_Pkg_Name => 'PA_PLANNING_RESOURCE_UTILS',
6287: P_Procedure_Name => 'Validate_Planning_Resource');
6288:
6289: /*When PARAMS_ALL_NULL Then
6290: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
6291: X_Msg_Count := 1;
6292: X_Msg_Data := AddTaskAlias(
6293: P_Error_Code => 'PA_PLN_RL_PARAMS_NULL',
6294: P_Task_Number => P_Task_Number,
6298: (P_App_Short_Name => 'PA',
6299: P_Msg_Name => 'PA_PLN_RL_PARAMS_NULL');*/
6300:
6301: /*When BAD_PLAN_RES_LIST_ALIAS Then
6302: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
6303: X_Msg_Count := 1;
6304: X_Msg_Data := AddTaskAlias(
6305: P_Error_Code => 'PA_PLN_RL_BAD_ALIAS',
6306: P_Task_Number => P_Task_Number,
6310: (P_App_Short_Name => 'PA',
6311: P_Msg_Name => 'PA_PLN_RL_BAD_ALIAS');*/
6312:
6313: /*When BAD_PLAN_RES_LIST_MEM_ID Then
6314: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
6315: X_Msg_Count := 1;
6316: X_Msg_Data := AddTaskAlias(
6317: P_Error_Code => 'PA_PLN_BAD_RL_MEM_ID',
6318: P_Task_Number => P_Task_Number,
6322: (P_App_Short_Name => 'PA',
6323: P_Msg_Name => 'PA_PLN_BAD_RL_MEM_ID');*/
6324:
6325: /*When PLN_RL_FORMAT_BAD_FMT_ID Then
6326: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
6327: X_Msg_Count := 1;
6328: X_Msg_Data := AddTaskAlias(
6329: P_Error_Code => 'PA_PLN_RL_FORMAT_BAD_FMT_ID',
6330: P_Task_Number => P_Task_Number,
6335: P_Msg_Name => 'PA_PLN_RL_FORMAT_BAD_FMT_ID');*/
6336:
6337: /*
6338: When JOB_GROUP_ERROR Then -- Error Message needs to be defined
6339: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
6340: X_Msg_Count := 1;
6341: X_Msg_Data := AddTaskAlias(
6342: P_Error_Code => 'PA_JOB_NOT_IN_JOB_GROUP',
6343: P_Task_Number => P_Task_Number,
6350: p_value1 => Pa_Planning_Resource_Pvt.g_token);
6351: */
6352:
6353: When BAD_FC_PARAM_COMBO Then
6354: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
6355: X_Msg_Count := 1;
6356: X_Msg_Data := AddTaskAlias(
6357: P_Error_Code => 'PA_PLN_RL_USE_FC_LOV',
6358: P_Task_Number => P_Task_Number,
6364: p_token1 => 'PLAN_RES',
6365: p_value1 => Pa_Planning_Resource_Pvt.g_token);
6366:
6367: When BAD_INCUR_PARAM_COMBO Then
6368: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
6369: X_Msg_Count := 1;
6370: X_Msg_Data := AddTaskAlias(
6371: P_Error_Code => 'PA_PLN_RL_USE_INCUR_RES_LOV',
6372: P_Task_Number => P_Task_Number,
6378: p_token1 => 'PLAN_RES',
6379: p_value1 => Pa_Planning_Resource_Pvt.g_token);
6380:
6381: When MISSING_RES_TYPE_VALUES Then
6382: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
6383: X_Msg_Count := 1;
6384: X_Msg_Data := AddTaskAlias(
6385: P_Error_Code => 'PA_PLN_RL_NO_RES_TYPE',
6386: P_Task_Number => P_Task_Number,
6392: p_token1 => 'PLAN_RES',
6393: p_value1 => Pa_Planning_Resource_Pvt.g_token);
6394:
6395: When MISSING_ORG_VALUES Then
6396: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
6397: X_Msg_Count := 1;
6398: X_Msg_Data := AddTaskAlias(
6399: P_Error_Code => 'PA_PLN_RL_NO_ORG',
6400: P_Task_Number => P_Task_Number,
6406: p_token1 => 'PLAN_RES',
6407: p_value1 => Pa_Planning_Resource_Pvt.g_token);
6408:
6409: When MISSING_FC_VALUES Then
6410: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
6411: X_Msg_Count := 1;
6412: X_Msg_Data := AddTaskAlias(
6413: P_Error_Code => 'PA_PLN_RL_NO_FC',
6414: P_Task_Number => P_Task_Number,
6420: p_token1 => 'PLAN_RES',
6421: p_value1 => Pa_Planning_Resource_Pvt.g_token);
6422:
6423: When MISSING_INCUR_BY_VALUES Then
6424: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
6425: X_Msg_Count := 1;
6426: X_Msg_Data := AddTaskAlias(
6427: P_Error_Code => 'PA_PLN_RL_NO_INCUR_BY',
6428: P_Task_Number => P_Task_Number,
6434: p_token1 => 'PLAN_RES',
6435: p_value1 => Pa_Planning_Resource_Pvt.g_token);
6436:
6437: When MISSING_SUPPLIER_VALUES Then
6438: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
6439: X_Msg_Count := 1;
6440: X_Msg_Data := AddTaskAlias(
6441: P_Error_Code => 'PA_PLN_RL_NO_SUPPLIER',
6442: P_Task_Number => P_Task_Number,
6448: p_token1 => 'PLAN_RES',
6449: p_value1 => Pa_Planning_Resource_Pvt.g_token);
6450:
6451: When MISSING_ROLE_VALUES Then
6452: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
6453: X_Msg_Count := 1;
6454: X_Msg_Data := AddTaskAlias(
6455: P_Error_Code => 'PA_PLN_RL_NO_ROLE',
6456: P_Task_Number => P_Task_Number,
6462: p_token1 => 'PLAN_RES',
6463: p_value1 => Pa_Planning_Resource_Pvt.g_token);
6464:
6465: When MISSING_TEAM_ROLE Then
6466: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
6467: X_Msg_Count := 1;
6468: X_Msg_Data := AddTaskAlias(
6469: P_Error_Code => 'PA_PLN_RL_TEAM_ROLE',
6470: P_Task_Number => P_Task_Number,
6475: P_Msg_Name => 'PA_PLN_RL_TEAM_ROLE',
6476: p_token1 => 'PLAN_RES',
6477: p_value1 => Pa_Planning_Resource_Pvt.g_token);
6478: When INVALID_BOM_COMBO Then
6479: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
6480: X_Msg_Count := 1;
6481: X_Msg_Data := AddTaskAlias(
6482: P_Error_Code => 'PA_PLN_RL_INV_BOM_ORG',
6483: P_Task_Number => P_Task_Number,
6976: x_return_status => l_return_status,
6977: x_msg_count => l_msg_count,
6978: x_msg_data => l_error_msg_data);
6979:
6980: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6981: l_resource_list_member_id := NULL;
6982: RETURN l_resource_list_member_id;
6983: END IF;
6984:
7140: x_return_status => l_return_status,
7141: x_msg_count => l_msg_count,
7142: x_error_msg_data => l_error_msg_data);
7143:
7144: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7145: l_resource_list_member_id := NULL;
7146: END IF;
7147: ELSE
7148: l_resource_list_member_id := NULL;
7218: l_precedence_temp Number := 0;
7219: l_final_asgmt_format_id Number;
7220: l_final_req_format_id Number;
7221: BEGIN
7222: x_return_status := FND_API.G_RET_STS_SUCCESS;
7223: --Using these Dummy Values for precedence
7224: --for now. Later when Vijay passes the API remove this.
7225: /************************************************
7226: * For Assignments do the following
7325: x_msg_count OUT NOCOPY VARCHAR2,
7326: x_msg_data OUT NOCOPY VARCHAR2 ) IS
7327:
7328: BEGIN
7329: x_return_status := FND_API.G_RET_STS_SUCCESS;
7330: x_msg_count := 0;
7331: x_msg_data := NULL;
7332:
7333: Insert into pa_resource_lists_tl (
7360: from pa_resource_lists_tl T
7361: where t.resource_list_id = lst.resource_list_id);
7362: EXCEPTION
7363: WHEN OTHERS THEN
7364: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7365: x_msg_count := 1;
7366: x_msg_data := SQLERRM;
7367: RETURN;
7368: END;
7384: SELECT resource_list_id FROM pa_resource_lists_all_bg
7385: WHERE migration_code is not null;
7386:
7387: BEGIN
7388: x_return_status := FND_API.G_RET_STS_SUCCESS;
7389: x_msg_count := 0;
7390:
7391: OPEN get_Resource_lists;
7392:
7407: FND_MSG_PUB.add_exc_msg( p_pkg_name =>
7408: 'Pa_Planning_Resource_Utils.Delete_proj_specific_resource'
7409: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
7410: x_msg_count := x_msg_count+1;
7411: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7412: END Delete_Proj_Specific_Resource;
7413:
7414: FUNCTION Get_class_member_id(p_project_id IN NUMBER,
7415: p_resource_list_id IN NUMBER,
7609:
7610: BEGIN
7611:
7612: x_valid_member_flag := NULL;
7613: x_return_status := FND_API.G_RET_STS_SUCCESS;
7614: x_msg_data := NULL;
7615: x_msg_count := 0;
7616:
7617: SELECT control_flag
7642:
7643: ELSIF p_alias IS NULL and p_resource_list_member_id IS NULL THEN
7644: x_valid_member_flag := 'N';
7645: x_resource_list_member_id := NULL;
7646: x_return_status := FND_API.G_RET_STS_ERROR;
7647: x_msg_data := 'PA_MEMBER_NOT_ON_LIST';
7648: x_msg_count := 1;
7649: --Modified below for Bug fix 7291217
7650: Pa_Utils.Add_Message(P_App_Short_Name => 'PA'
7666:
7667: EXCEPTION WHEN NO_DATA_FOUND THEN
7668: x_valid_member_flag := 'N';
7669: x_resource_list_member_id := NULL;
7670: x_return_status := FND_API.G_RET_STS_ERROR;
7671: x_msg_data := 'PA_MEMBER_NOT_ON_LIST';
7672: x_msg_count := 1;
7673: --Modified below for Bug fix 7291217
7674: Pa_Utils.Add_Message(P_App_Short_Name => 'PA'
7690:
7691: EXCEPTION WHEN NO_DATA_FOUND THEN
7692: x_valid_member_flag := 'N';
7693: x_resource_list_member_id := NULL;
7694: x_return_status := FND_API.G_RET_STS_ERROR;
7695: x_msg_data := 'PA_MEMBER_NOT_ENABLED';
7696: x_msg_count := 1;
7697: Pa_Utils.Add_Message(P_App_Short_Name => 'PA',
7698: P_Msg_Name => 'PA_MEMBER_NOT_ENABLED');
7748: l_bom_resource_id NUMBER;
7749:
7750: BEGIN
7751:
7752: x_return_status := FND_API.G_RET_STS_SUCCESS;
7753: x_msg_data := NULL;
7754: x_msg_count := 0;
7755: X_organization_id := NULL;
7756: X_organization_name := NULL;
7772: x_person_id => l_person_id,
7773: x_return_status => x_return_status,
7774: x_error_msg_code => X_msg_data);
7775:
7776: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7777: PA_UTILS.Add_Message ('PA', X_msg_data, 'PLAN_RES',
7778: Pa_Planning_Resource_Pvt.g_token);
7779: Return;
7780: END IF;
7814: x_bom_resource_id => l_bom_resource_id,
7815: x_return_status => x_return_status,
7816: x_error_msg_code => X_msg_data);
7817:
7818: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7819: PA_UTILS.Add_Message ('PA', X_msg_data, 'PLAN_RES',
7820: Pa_Planning_Resource_Pvt.g_token);
7821: Return;
7822: END IF;
7829: x_bom_resource_id => l_bom_resource_id,
7830: x_return_status => x_return_status,
7831: x_error_msg_code => X_msg_data);
7832:
7833: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7834: PA_UTILS.Add_Message ('PA', X_msg_data, 'PLAN_RES',
7835: Pa_Planning_Resource_Pvt.g_token);
7836: Return;
7837: END IF;