[Home] [Help]
743:
744: IF FND_API.TO_BOOLEAN( p_init_msg_list )
745: THEN
746:
747: FND_MSG_PUB.initialize;
748:
749: END IF;
750:
751: -- Set API return status to success
792: AND p_pm_product_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
793: --bug 2841158
794: THEN
795:
796: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
797: THEN
798: pa_interface_utils_pub.map_new_amg_msg
799: ( p_old_message_code => 'PA_PRODUCT_CODE_IS_MISSING'
800: ,p_msg_attribute => 'CHANGE'
824:
825: IF l_pm_product_code <> 'X'
826: THEN
827:
828: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
829: THEN
830: pa_interface_utils_pub.map_new_amg_msg
831: ( p_old_message_code => 'PA_PRODUCT_CODE_IS_INVALID'
832: ,p_msg_attribute => 'CHANGE'
847: IF l_project_in_rec.pm_project_reference IS NULL
848: OR l_project_in_rec.pm_project_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
849: THEN
850:
851: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
852: THEN
853: pa_interface_utils_pub.map_new_amg_msg
854: ( p_old_message_code => 'PA_PROJECT_REF_IS_MISSING'
855: ,p_msg_attribute => 'CHANGE'
869: IF l_project_in_rec.project_name IS NULL
870: OR l_project_in_rec.project_name = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
871: THEN
872:
873: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
874: THEN
875: pa_interface_utils_pub.map_new_amg_msg
876: ( p_old_message_code => 'PA_PROJECT_NAME_IS_MISSING'
877: ,p_msg_attribute => 'CHANGE'
892:
893: IF pa_project_utils.check_unique_project_name
894: (l_project_in_rec.project_name,
895: NULL ) = 0 THEN
896: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
897: THEN
898: pa_interface_utils_pub.map_new_amg_msg
899: ( p_old_message_code => 'PA_PR_EPR_PROJ_NAME_NOT_UNIQUE'
900: ,p_msg_attribute => 'CHANGE'
913: ELSE
914: pjm_seiban_pkg.project_name_dup(l_project_in_rec.project_name,l_dup_name_flag);
915:
916: IF l_dup_name_flag = 'Y' THEN
917: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
918: THEN
919: pa_interface_utils_pub.map_new_amg_msg
920: ( p_old_message_code => 'PA_SEIBAN_NAME_NOT_UNIQUE'
921: ,p_msg_attribute => 'CHANGE'
939: AND l_project_in_rec.long_name IS NOT NULL THEN
940: IF pa_project_utils.check_unique_long_name
941: (l_project_in_rec.long_name,
942: NULL ) = 0 THEN
943: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
944: THEN
945: pa_interface_utils_pub.map_new_amg_msg
946: ( p_old_message_code => 'PA_PR_EPR_LONG_NAME_NOT_UNIQUE'
947: ,p_msg_attribute => 'CHANGE'
966: (l_project_in_rec.pm_project_reference,
967: p_pm_product_code, -- added for bug 4870305
968: NULL ) = 0
969: THEN
970: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
971: THEN
972: pa_interface_utils_pub.map_new_amg_msg
973: ( p_old_message_code => 'PA_PROJECT_REF_NOT_UNIQUE'
974: ,p_msg_attribute => 'CHANGE'
1005: IF G_PROJECT_NUMBER_GEN_MODE = 'MANUAL' THEN
1006: IF pa_project_utils.check_unique_project_number
1007: (l_create_project_number,
1008: NULL ) = 0 THEN
1009: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1010: pa_interface_utils_pub.map_new_amg_msg
1011: ( p_old_message_code => 'PA_PR_EPR_PROJ_NUM_NOT_UNIQUE'
1012: ,p_msg_attribute => 'CHANGE'
1013: ,p_resize_flag => 'Y'
1025: ELSE
1026: pjm_seiban_pkg.project_number_dup(l_create_project_number,l_dup_name_flag);
1027:
1028: IF l_dup_name_flag = 'Y' THEN
1029: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1030: THEN
1031: pa_interface_utils_pub.map_new_amg_msg
1032: ( p_old_message_code => 'PA_SEIBAN_NUM_NOT_UNIQUE'
1033: ,p_msg_attribute => 'CHANGE'
1054: TO_NUMBER(l_create_project_number);
1055: END IF;
1056: EXCEPTION
1057: WHEN VALUE_ERROR THEN
1058: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1059: pa_interface_utils_pub.map_new_amg_msg
1060: ( p_old_message_code => 'PA_PR_NUMERIC_NUM_REQ'
1061: ,p_msg_attribute => 'CHANGE'
1062: ,p_resize_flag => 'N'
1076: IF l_project_in_rec.created_from_project_id IS NULL
1077: OR l_project_in_rec.created_from_project_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1078: THEN
1079:
1080: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1081: THEN
1082: pa_interface_utils_pub.map_new_amg_msg
1083: ( p_old_message_code => 'PA_SOURCE_TEMPLATE_IS_MISSING'
1084: ,p_msg_attribute => 'CHANGE'
1111: FETCH l_temp_flag_csr INTO l_temp_flag;
1112: IF l_temp_flag_csr%NOTFOUND
1113: THEN
1114: CLOSE l_temp_flag_csr;
1115: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1116: THEN
1117: pa_interface_utils_pub.map_new_amg_msg
1118: ( p_old_message_code => 'PA_SOURCE_TEMPLATE_INVALID'
1119: ,p_msg_attribute => 'CHANGE'
1141: -- if template is inactive then throw error message
1142:
1143: IF l_temp_eff_flag = 'N' THEN
1144:
1145: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1146:
1147: pa_utils.add_message
1148: (
1149: p_app_short_name => 'PA'
1199: END LOOP;
1200:
1201: IF NOT l_is_overridable
1202: THEN
1203: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1204: THEN
1205: FND_MESSAGE.SET_NAME('PA','PA_DESCRIPTION_NOT_OVERRIDABLE');
1206: FND_MSG_PUB.add;
1207: END IF;
1202: THEN
1203: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1204: THEN
1205: FND_MESSAGE.SET_NAME('PA','PA_DESCRIPTION_NOT_OVERRIDABLE');
1206: FND_MSG_PUB.add;
1207: END IF;
1208:
1209: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1210: RAISE FND_API.G_EXC_ERROR;
1303: IF l_project_in_rec.carrying_out_organization_id IS NULL
1304: OR l_project_in_rec.carrying_out_organization_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1305: THEN
1306:
1307: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1308: THEN
1309: pa_interface_utils_pub.map_new_amg_msg
1310: ( p_old_message_code => 'PA_ORGANIZATION_ID_IS_NULL'
1311: ,p_msg_attribute => 'CHANGE'
1329: j := l_class_categories.first;
1330:
1331: IF j IS NULL THEN
1332:
1333: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1334: THEN
1335: pa_interface_utils_pub.map_new_amg_msg
1336: ( p_old_message_code => 'PA_CLASSIFICATION_IS_NULL'
1337: ,p_msg_attribute => 'CHANGE'
1359: -- check whether the class category and class code combination is a valid one
1360: IF pa_project_pvt.check_class_code_valid(l_class_categories(j).class_category,
1361: l_class_categories(j).class_code) = 'N'
1362: THEN
1363: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1364: THEN
1365: pa_interface_utils_pub.map_new_amg_msg
1366: ( p_old_message_code => 'PA_INVALID_CLASS_CATEGORY'
1367: ,p_msg_attribute => 'CHANGE'
1384: END LOOP;
1385:
1386: IF l_class_code_categories <> 1
1387: THEN
1388: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1389: THEN
1390: pa_interface_utils_pub.map_new_amg_msg
1391: ( p_old_message_code => 'PA_INVALID_CLASS_CATEGORY'
1392: ,p_msg_attribute => 'CHANGE'
1406: IF l_project_in_rec.completion_date IS NULL
1407: OR l_project_in_rec.completion_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
1408: THEN
1409:
1410: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1411: THEN
1412: pa_interface_utils_pub.map_new_amg_msg
1413: ( p_old_message_code => 'PA_COMPLETION_DATE_IS_NULL'
1414: ,p_msg_attribute => 'CHANGE'
1430: IF l_project_in_rec.start_date IS NULL
1431: OR l_project_in_rec.start_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
1432: THEN
1433:
1434: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1435: THEN
1436: pa_interface_utils_pub.map_new_amg_msg
1437: ( p_old_message_code => 'PA_START_DATE_IS_NULL'
1438: ,p_msg_attribute => 'CHANGE'
1458: IF l_in_customer_id IS NULL
1459: OR l_in_customer_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1460: /* End of Code changes */
1461: THEN
1462: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1463: THEN
1464: pa_interface_utils_pub.map_new_amg_msg
1465: ( p_old_message_code => 'PA_CUSTOMER_ID_IS_NULL'
1466: ,p_msg_attribute => 'CHANGE'
1489: OR l_bill_to_customer_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1490: /* End of Code changes */
1491: THEN
1492:
1493: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1494: THEN
1495: pa_interface_utils_pub.map_new_amg_msg
1496: ( p_old_message_code => 'PA_BILL_TO_CUST_ID_IS_NULL'
1497: ,p_msg_attribute => 'CHANGE'
1518: OR l_ship_to_customer_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1519: /* End of Code changes */
1520: THEN
1521:
1522: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1523: THEN
1524: pa_interface_utils_pub.map_new_amg_msg
1525: ( p_old_message_code => 'PA_SHIP_TO_CUST_ID_IS_NULL'
1526: ,p_msg_attribute => 'CHANGE'
1544: IF l_project_in_rec.description IS NULL
1545: OR l_project_in_rec.description = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
1546: THEN
1547:
1548: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1549: THEN
1550: pa_interface_utils_pub.map_new_amg_msg
1551: ( p_old_message_code => 'PA_DESCRIPTION_IS_NULL'
1552: ,p_msg_attribute => 'CHANGE'
1570: j := l_key_members.first;
1571:
1572: IF j IS NULL THEN
1573:
1574: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1575: THEN
1576: pa_interface_utils_pub.map_new_amg_msg
1577: ( p_old_message_code => 'PA_KEY_MEMBER_IS_NULL'
1578: ,p_msg_attribute => 'CHANGE'
1603: END LOOP;
1604:
1605: IF l_key_member <> 1
1606: THEN
1607: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1608: THEN
1609: pa_interface_utils_pub.map_new_amg_msg
1610: ( p_old_message_code => 'PA_KEY_MEMBER_IS_NULL'
1611: ,p_msg_attribute => 'CHANGE'
1626: IF l_project_in_rec.distribution_rule IS NULL
1627: OR l_project_in_rec.distribution_rule = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
1628: THEN
1629:
1630: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1631: THEN
1632: pa_interface_utils_pub.map_new_amg_msg
1633: ( p_old_message_code => 'PA_DISTRIBUTION_RULE_NULL'
1634: ,p_msg_attribute => 'CHANGE'
1649: ELSIF l_override_fields_tab(i).pa_field_name = 'PROJECT_STATUS_CODE' THEN
1650: IF l_project_in_rec.project_status_code IS NULL
1651: OR l_project_in_rec.project_status_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
1652: THEN
1653: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1654: THEN
1655: pa_interface_utils_pub.map_new_amg_msg
1656: ( p_old_message_code => 'PA_PRJ_STATUS_CODE_IS_NULL'
1657: ,p_msg_attribute => 'CHANGE'
1673: IF l_project_in_rec.public_sector_flag IS NULL
1674: OR l_project_in_rec.public_sector_flag = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
1675: THEN
1676:
1677: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1678: THEN
1679: pa_interface_utils_pub.map_new_amg_msg
1680: ( p_old_message_code => 'PA_PUB_SECTOR_FLAG_IS_NULL'
1681: ,p_msg_attribute => 'CHANGE'
1697: IF l_project_in_rec.team_template_id IS NULL
1698: OR l_project_in_rec.team_template_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1699: THEN
1700:
1701: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1702: THEN
1703: pa_interface_utils_pub.map_new_amg_msg
1704: ( p_old_message_code => 'PA_TEAM_TMPLT_ID_IS_NULL'
1705: ,p_msg_attribute => 'CHANGE'
1721: IF l_project_in_rec.country_code IS NULL
1722: OR l_project_in_rec.country_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
1723: THEN
1724:
1725: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1726: THEN
1727: pa_interface_utils_pub.map_new_amg_msg
1728: ( p_old_message_code => 'PA_COUNTRY_CODE_IS_NULL'
1729: ,p_msg_attribute => 'CHANGE'
1745: IF l_project_in_rec.region IS NULL
1746: OR l_project_in_rec.region = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
1747: THEN
1748:
1749: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1750: THEN
1751: pa_interface_utils_pub.map_new_amg_msg
1752: ( p_old_message_code => 'PA_REGION_IS_NULL'
1753: ,p_msg_attribute => 'CHANGE'
1769: IF l_project_in_rec.city IS NULL
1770: OR l_project_in_rec.city = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
1771: THEN
1772:
1773: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1774: THEN
1775: pa_interface_utils_pub.map_new_amg_msg
1776: ( p_old_message_code => 'PA_CITY_IS_NULL'
1777: ,p_msg_attribute => 'CHANGE'
1793: IF l_project_in_rec.expected_approval_date IS NULL
1794: OR l_project_in_rec.expected_approval_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
1795: THEN
1796:
1797: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1798: THEN
1799: pa_interface_utils_pub.map_new_amg_msg
1800: ( p_old_message_code => 'PA_EXP_APPR_DATE_IS_NULL'
1801: ,p_msg_attribute => 'CHANGE'
1817: IF l_project_in_rec.probability_member_id IS NULL
1818: OR l_project_in_rec.probability_member_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1819: THEN
1820:
1821: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1822: THEN
1823: pa_interface_utils_pub.map_new_amg_msg
1824: ( p_old_message_code => 'PA_PROB_MEMBER_ID_IS_NULL'
1825: ,p_msg_attribute => 'CHANGE'
1841: IF l_project_in_rec.project_value IS NULL
1842: OR l_project_in_rec.project_value = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1843: THEN
1844:
1845: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1846: THEN
1847: pa_interface_utils_pub.map_new_amg_msg
1848: ( p_old_message_code => 'PA_PROJECT_VALUE_IS_NULL'
1849: ,p_msg_attribute => 'CHANGE'
1866: IF l_project_in_rec.project_value IS NULL
1867: OR l_project_in_rec.project_value = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1868: THEN
1869:
1870: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1871: THEN
1872: pa_interface_utils_pub.map_new_amg_msg
1873: ( p_old_message_code => 'PA_OPP_CURR_CODE_IS_NULL'
1874: ,p_msg_attribute => 'CHANGE'
1893: j := l_org_roles.first;
1894:
1895: IF j IS NULL THEN
1896:
1897: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1898: THEN
1899: pa_interface_utils_pub.map_new_amg_msg
1900: ( p_old_message_code => 'PA_ORG_ROLE_IS_NULL'
1901: ,p_msg_attribute => 'CHANGE'
1926: END LOOP;
1927:
1928: IF l_org_role <> 1
1929: THEN
1930: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1931: THEN
1932: pa_interface_utils_pub.map_new_amg_msg
1933: ( p_old_message_code => 'PA_ORG_ROLE_IS_NULL'
1934: ,p_msg_attribute => 'CHANGE'
1950: ELSIF l_override_fields_tab(i).pa_field_name = 'LONG_NAME' THEN
1951: IF l_project_in_rec.long_name IS NULL
1952: OR l_project_in_rec.long_name = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
1953: THEN
1954: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1955: THEN
1956: pa_interface_utils_pub.map_new_amg_msg
1957: ( p_old_message_code => 'PA_PRJ_LONG_NAME_IS_NULL'
1958: ,p_msg_attribute => 'CHANGE'
2000: FETCH l_source_project_type_csr INTO l_source_project_type;
2001:
2002: IF l_source_project_type_csr%NOTFOUND
2003: THEN
2004: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2005: THEN
2006: pa_interface_utils_pub.map_new_amg_msg
2007: ( p_old_message_code => 'PA_SOURCE_TEMPLATE_INVALID'
2008: ,p_msg_attribute => 'CHANGE'
2029: (l_source_project_type,
2030: l_project_in_rec.distribution_rule,
2031: l_project_in_rec.enable_top_task_inv_mth_flag ) = 'N' --Bug 3279981
2032: THEN
2033: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2034: THEN
2035: pa_interface_utils_pub.map_new_amg_msg
2036: ( p_old_message_code => 'PA_INVALID_DIST_RULE'
2037: ,p_msg_attribute => 'CHANGE'
2053: THEN
2054: IF pa_project_pvt.check_valid_org
2055: (l_project_in_rec.carrying_out_organization_id) = 'N'
2056: THEN
2057: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2058: THEN
2059: pa_interface_utils_pub.map_new_amg_msg
2060: ( p_old_message_code => 'PA_INVALID_ORG'
2061: ,p_msg_attribute => 'CHANGE'
2079: IF l_project_completion_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
2080: AND ( l_project_start_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
2081: OR l_project_start_date IS NULL )
2082: THEN
2083: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2084: THEN
2085: pa_interface_utils_pub.map_new_amg_msg
2086: ( p_old_message_code => 'PA_PR_START_DATE_NEEDED'
2087: ,p_msg_attribute => 'CHANGE'
2103: AND l_project_completion_date IS NOT NULL
2104: AND l_project_completion_date < l_project_start_date
2105: THEN
2106:
2107: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2108: THEN
2109:
2110: -- 5182972 Commented below code , which was throwing wrong error message
2111: /*
2180: ELSIF l_early_start_date IS NOT NULL THEN
2181: --Added the following error message to check whether the finish date is earlier than the start date.Bug#5185673
2182: IF l_project_in_rec.early_finish_date < l_early_start_date THEN
2183:
2184: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2185:
2186: pa_utils.add_message
2187: (
2188: p_app_short_name => 'PA'
2215: ELSIF l_late_start_date IS NOT NULL THEN
2216: --Added the following error message to check whether the finish date is earlier than the start date.Bug#5185673
2217: IF l_project_in_rec.late_finish_date < l_late_start_date THEN
2218:
2219: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2220:
2221: pa_utils.add_message
2222: (
2223: p_app_short_name => 'PA'
2270: p_error_code => l_error_code,
2271: p_error_message => l_error_message );
2272:
2273: IF l_error_code <> 0 THEN
2274: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2275: pa_interface_utils_pub.map_new_amg_msg
2276: ( p_old_message_code => 'PA_ERROR_IN_CLIENT_EXTN'
2277: ,p_msg_attribute => 'CHANGE'
2278: ,p_resize_flag => 'N'
2294: AND l_out_completion_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
2295: AND l_out_completion_date IS NOT NULL
2296: AND l_out_completion_date < l_out_start_date
2297: THEN
2298: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2299: THEN
2300:
2301: -- 5182972 Commented below code , which was throwing wrong error message
2302: /*
2341: ELSE
2342: IF pa_project_pvt.check_valid_project_status
2343: ( p_project_status => l_project_in_rec.project_status_code ) = 'N'
2344: THEN
2345: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2346: THEN
2347: pa_interface_utils_pub.map_new_amg_msg
2348: ( p_old_message_code => 'PA_PROJECT_STATUS_INVALID'
2349: ,p_msg_attribute => 'CHANGE'
2385: THEN l_project_in_rec.public_sector_flag := NULL;
2386: ELSE
2387: IF l_project_in_rec.public_sector_flag NOT IN ('Y','N')
2388: THEN
2389: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2390: THEN
2391: pa_interface_utils_pub.map_new_amg_msg
2392: ( p_old_message_code => 'PA_PUBLIC_SECTOR_INVALID'
2393: ,p_msg_attribute => 'CHANGE'
2727:
2728: -- Project Currency related attributes
2729: IF l_project_in_rec.PROJECT_BIL_RATE_TYPE is NULL
2730: OR l_project_in_rec.PROJECT_BIL_RATE_TYPE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN -- PA_PROJ_RATE_TYPE_INV_AMG:The project exchage rate type is invalid
2731: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2732: FND_MESSAGE.SET_NAME('PA','PA_PROJ_RATE_TYPE_INV_AMG');
2733: FND_MESSAGE.SET_TOKEN('PROJECT', l_project_rec.segment1);
2734: FND_MSG_PUB.ADD;
2735: RAISE FND_API.G_EXC_ERROR;
2730: OR l_project_in_rec.PROJECT_BIL_RATE_TYPE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN -- PA_PROJ_RATE_TYPE_INV_AMG:The project exchage rate type is invalid
2731: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2732: FND_MESSAGE.SET_NAME('PA','PA_PROJ_RATE_TYPE_INV_AMG');
2733: FND_MESSAGE.SET_TOKEN('PROJECT', l_project_rec.segment1);
2734: FND_MSG_PUB.ADD;
2735: RAISE FND_API.G_EXC_ERROR;
2736: END IF;
2737: ELSE
2738: IF l_project_in_rec.PROJECT_BIL_RATE_TYPE = 'User' THEN
2737: ELSE
2738: IF l_project_in_rec.PROJECT_BIL_RATE_TYPE = 'User' THEN
2739: IF l_project_in_rec.PROJECT_BIL_EXCHANGE_RATE is NULL
2740: OR l_project_in_rec.PROJECT_BIL_EXCHANGE_RATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
2741: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN -- PA_EXCH_RATE_NULL_PC_AMG:Project Exchange Rate cannot be null when project rate type is User.
2742: FND_MESSAGE.SET_NAME('PA','PA_EXCH_RATE_NULL_PC_AMG');
2743: FND_MSG_PUB.ADD;
2744: RAISE FND_API.G_EXC_ERROR;
2745: END IF;
2739: IF l_project_in_rec.PROJECT_BIL_EXCHANGE_RATE is NULL
2740: OR l_project_in_rec.PROJECT_BIL_EXCHANGE_RATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
2741: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN -- PA_EXCH_RATE_NULL_PC_AMG:Project Exchange Rate cannot be null when project rate type is User.
2742: FND_MESSAGE.SET_NAME('PA','PA_EXCH_RATE_NULL_PC_AMG');
2743: FND_MSG_PUB.ADD;
2744: RAISE FND_API.G_EXC_ERROR;
2745: END IF;
2746: END IF;
2747: ELSE -- non-User type
2747: ELSE -- non-User type
2748: IF l_project_in_rec.PROJECT_BIL_RATE_DATE_CODE is NULL
2749: OR l_project_in_rec.PROJECT_BIL_RATE_DATE_CODE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
2750:
2751: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2752: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_TYPE_INVALID_AMG');
2753: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Project Currency');
2754: FND_MSG_PUB.ADD;
2755: RAISE FND_API.G_EXC_ERROR;
2750:
2751: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2752: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_TYPE_INVALID_AMG');
2753: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Project Currency');
2754: FND_MSG_PUB.ADD;
2755: RAISE FND_API.G_EXC_ERROR;
2756: END IF;
2757: ELSE
2758: IF l_project_in_rec.PROJECT_BIL_RATE_DATE_CODE = 'Fixed Date' THEN
2757: ELSE
2758: IF l_project_in_rec.PROJECT_BIL_RATE_DATE_CODE = 'Fixed Date' THEN
2759: IF l_project_in_rec.PROJECT_BIL_RATE_DATE is NULL
2760: OR l_project_in_rec.PROJECT_BIL_RATE_DATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
2761: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2762: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_INVALID_AMG');
2763: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Project Currency');
2764: FND_MSG_PUB.ADD;
2765: RAISE FND_API.G_EXC_ERROR;
2760: OR l_project_in_rec.PROJECT_BIL_RATE_DATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
2761: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2762: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_INVALID_AMG');
2763: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Project Currency');
2764: FND_MSG_PUB.ADD;
2765: RAISE FND_API.G_EXC_ERROR;
2766: END IF;
2767: END IF;
2768: END IF;
2772:
2773: -- Project Functional Currency related attributes
2774: IF l_project_in_rec.PROJFUNC_BIL_RATE_TYPE is NULL
2775: OR l_project_in_rec.PROJFUNC_BIL_RATE_TYPE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN -- PA_PFC_RATE_TYPE_INV_AMG:The project functional exchage rate type is invalid
2776: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2777: FND_MESSAGE.SET_NAME('PA','PA_PFC_RATE_TYPE_INV_AMG');
2778: FND_MSG_PUB.ADD;
2779: RAISE FND_API.G_EXC_ERROR;
2780: END IF;
2774: IF l_project_in_rec.PROJFUNC_BIL_RATE_TYPE is NULL
2775: OR l_project_in_rec.PROJFUNC_BIL_RATE_TYPE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN -- PA_PFC_RATE_TYPE_INV_AMG:The project functional exchage rate type is invalid
2776: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2777: FND_MESSAGE.SET_NAME('PA','PA_PFC_RATE_TYPE_INV_AMG');
2778: FND_MSG_PUB.ADD;
2779: RAISE FND_API.G_EXC_ERROR;
2780: END IF;
2781: ELSE
2782: IF l_project_in_rec.PROJFUNC_BIL_RATE_TYPE = 'User' THEN
2781: ELSE
2782: IF l_project_in_rec.PROJFUNC_BIL_RATE_TYPE = 'User' THEN
2783: IF l_project_in_rec.PROJFUNC_BIL_EXCHANGE_RATE is NULL
2784: OR l_project_in_rec.PROJFUNC_BIL_EXCHANGE_RATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
2785: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN -- PA_EXCH_RATE_NULL_PF_AMG:Project Functional Exchange Rate cannot be null when project functional rate type is User.
2786: FND_MESSAGE.SET_NAME('PA','PA_EXCH_RATE_NULL_PF_AMG');
2787: FND_MSG_PUB.ADD;
2788: RAISE FND_API.G_EXC_ERROR;
2789: END IF;
2783: IF l_project_in_rec.PROJFUNC_BIL_EXCHANGE_RATE is NULL
2784: OR l_project_in_rec.PROJFUNC_BIL_EXCHANGE_RATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
2785: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN -- PA_EXCH_RATE_NULL_PF_AMG:Project Functional Exchange Rate cannot be null when project functional rate type is User.
2786: FND_MESSAGE.SET_NAME('PA','PA_EXCH_RATE_NULL_PF_AMG');
2787: FND_MSG_PUB.ADD;
2788: RAISE FND_API.G_EXC_ERROR;
2789: END IF;
2790: END IF;
2791:
2791:
2792: ELSE -- non-User type
2793: IF l_project_in_rec.PROJFUNC_BIL_RATE_DATE_CODE is NULL
2794: OR l_project_in_rec.PROJFUNC_BIL_RATE_DATE_CODE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
2795: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2796: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_TYPE_INVALID_AMG');
2797: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Project Functional Currency');
2798: FND_MSG_PUB.ADD;
2799: RAISE FND_API.G_EXC_ERROR;
2794: OR l_project_in_rec.PROJFUNC_BIL_RATE_DATE_CODE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
2795: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2796: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_TYPE_INVALID_AMG');
2797: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Project Functional Currency');
2798: FND_MSG_PUB.ADD;
2799: RAISE FND_API.G_EXC_ERROR;
2800: END IF;
2801: ELSE
2802: IF l_project_in_rec.PROJFUNC_BIL_RATE_DATE_CODE = 'Fixed Date' THEN
2801: ELSE
2802: IF l_project_in_rec.PROJFUNC_BIL_RATE_DATE_CODE = 'Fixed Date' THEN
2803: IF l_project_in_rec.PROJFUNC_BIL_RATE_DATE is NULL
2804: OR l_project_in_rec.PROJFUNC_BIL_RATE_DATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
2805: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2806: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_INVALID_AMG');
2807: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Project Functional Currency');
2808: FND_MSG_PUB.ADD;
2809: RAISE FND_API.G_EXC_ERROR;
2804: OR l_project_in_rec.PROJFUNC_BIL_RATE_DATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
2805: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2806: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_INVALID_AMG');
2807: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Project Functional Currency');
2808: FND_MSG_PUB.ADD;
2809: RAISE FND_API.G_EXC_ERROR;
2810: END IF;
2811: END IF;
2812: END IF;
2817:
2818: -- Funding Currency related attributes
2819: IF l_project_in_rec.FUNDING_RATE_TYPE is NULL
2820: OR l_project_in_rec.FUNDING_RATE_TYPE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN -- PA_FUND_RATE_TYPE_INV_AMG:The funding exchage rate type is invalid
2821: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2822: FND_MESSAGE.SET_NAME('PA','PA_FUND_RATE_TYPE_INV_AMG');
2823: FND_MSG_PUB.ADD;
2824: RAISE FND_API.G_EXC_ERROR;
2825: END IF;
2819: IF l_project_in_rec.FUNDING_RATE_TYPE is NULL
2820: OR l_project_in_rec.FUNDING_RATE_TYPE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN -- PA_FUND_RATE_TYPE_INV_AMG:The funding exchage rate type is invalid
2821: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2822: FND_MESSAGE.SET_NAME('PA','PA_FUND_RATE_TYPE_INV_AMG');
2823: FND_MSG_PUB.ADD;
2824: RAISE FND_API.G_EXC_ERROR;
2825: END IF;
2826: ELSE
2827: IF l_project_in_rec.FUNDING_RATE_TYPE = 'User' THEN
2826: ELSE
2827: IF l_project_in_rec.FUNDING_RATE_TYPE = 'User' THEN
2828: IF l_project_in_rec.FUNDING_EXCHANGE_RATE is NULL
2829: OR l_project_in_rec.FUNDING_EXCHANGE_RATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
2830: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN -- PA_EXCHANGE_RATE_NULL:Exchange rate cannot be null when rate type is User.
2831: FND_MESSAGE.SET_NAME('PA','PA_EXCHANGE_RATE_NULL');
2832: FND_MSG_PUB.ADD;
2833: RAISE FND_API.G_EXC_ERROR;
2834: END IF;
2828: IF l_project_in_rec.FUNDING_EXCHANGE_RATE is NULL
2829: OR l_project_in_rec.FUNDING_EXCHANGE_RATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
2830: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN -- PA_EXCHANGE_RATE_NULL:Exchange rate cannot be null when rate type is User.
2831: FND_MESSAGE.SET_NAME('PA','PA_EXCHANGE_RATE_NULL');
2832: FND_MSG_PUB.ADD;
2833: RAISE FND_API.G_EXC_ERROR;
2834: END IF;
2835: END IF;
2836:
2836:
2837: ELSE -- non-User type
2838: IF l_project_in_rec.FUNDING_RATE_DATE_CODE is NULL
2839: OR l_project_in_rec.FUNDING_RATE_DATE_CODE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
2840: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2841: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_TYPE_INVALID_AMG');
2842: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Funding Currency');
2843: FND_MSG_PUB.ADD;
2844: RAISE FND_API.G_EXC_ERROR;
2839: OR l_project_in_rec.FUNDING_RATE_DATE_CODE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
2840: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2841: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_TYPE_INVALID_AMG');
2842: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Funding Currency');
2843: FND_MSG_PUB.ADD;
2844: RAISE FND_API.G_EXC_ERROR;
2845: END IF;
2846: ELSE
2847: IF l_project_in_rec.FUNDING_RATE_DATE_CODE = 'Fixed Date' THEN
2846: ELSE
2847: IF l_project_in_rec.FUNDING_RATE_DATE_CODE = 'Fixed Date' THEN
2848: IF l_project_in_rec.FUNDING_RATE_DATE is NULL
2849: OR l_project_in_rec.FUNDING_RATE_DATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
2850: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2851: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_INVALID_AMG');
2852: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Funding Currency');
2853: FND_MSG_PUB.ADD;
2854: RAISE FND_API.G_EXC_ERROR;
2849: OR l_project_in_rec.FUNDING_RATE_DATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
2850: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2851: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_INVALID_AMG');
2852: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Funding Currency');
2853: FND_MSG_PUB.ADD;
2854: RAISE FND_API.G_EXC_ERROR;
2855: END IF;
2856: END IF;
2857: END IF;
2953: -- if not valid throw , error message
2954:
2955: IF l_valid_prio_code = 'N' THEN
2956:
2957: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2958:
2959: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
2960: ,p_msg_name => 'PA_INVALID_PRIORITY_CODE');
2961:
3133: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
3134: RAISE FND_API.G_EXC_ERROR;
3135: END IF;
3136: ELSE
3137: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3138: pa_interface_utils_pub.map_new_amg_msg
3139: ( p_old_message_code => 'PA_TOP_TASK_CUST_FLAG_INVALID'
3140: ,p_msg_attribute => 'NOCHANGE' -- Changed to NOCHANGE for Bug 4762153
3141: ,p_resize_flag => 'N'
3184: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
3185: RAISE FND_API.G_EXC_ERROR;
3186: END IF;
3187: ELSE
3188: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3189: pa_interface_utils_pub.map_new_amg_msg
3190: ( p_old_message_code => 'PA_TT_INV_MTH_FLAG_INVALID'
3191: ,p_msg_attribute => 'CHANGE'
3192: ,p_resize_flag => 'N'
3279: IF l_err_code > 0
3280: then
3281: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
3282:
3283: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3284: THEN
3285:
3286: IF NOT pa_project_pvt.check_valid_message(l_err_stage)
3287: THEN
3306: then
3307:
3308: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3309:
3310: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3311: THEN
3312: pa_interface_utils_pub.map_new_amg_msg('PA_COPY_PROJECT_FAILED','CHANGE','N',
3313: 'PROJ',l_project_in_rec.pm_project_reference,
3314: '','','','');
3314: '','','','');
3315: /* Added the following code for bug 3725338 */
3316: FND_MESSAGE.SET_NAME('PA','PA_UNEXPECTED_ERR_AMG');
3317: FND_MESSAGE.SET_TOKEN('ORAERR', l_err_stage);
3318: FND_MSG_PUB.add;
3319: /* Code addition ended for bug 3725338 */
3320: END IF;
3321:
3322: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3362: END LOOP;
3363:
3364: IF NOT l_is_overridable
3365: THEN
3366: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3367: THEN
3368: pa_interface_utils_pub.map_new_amg_msg
3369: ( p_old_message_code => 'PA_CUSTOMER_NOT_OVERRIDABLE'
3370: ,p_msg_attribute => 'CHANGE'
3401: END LOOP;
3402:
3403: IF NOT l_is_overridable
3404: THEN
3405: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3406: THEN
3407: pa_interface_utils_pub.map_new_amg_msg
3408: ( p_old_message_code => 'PA_BILL_TO_NOT_OVERRIDABLE'
3409: ,p_msg_attribute => 'CHANGE'
3440: END LOOP;
3441:
3442: IF NOT l_is_overridable
3443: THEN
3444: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3445: THEN
3446: pa_interface_utils_pub.map_new_amg_msg
3447: ( p_old_message_code => 'PA_SHIP_TO_NOT_OVERRIDABLE'
3448: ,p_msg_attribute => 'CHANGE'
3487: /* Commented the below code for Bug#5517655 */
3488:
3489: /*IF p_customers_in(i).project_relationship_code IS NULL OR
3490: p_customers_in(i).project_relationship_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR then
3491: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3492: THEN
3493: pa_utils.add_message
3494: ( p_app_short_name => 'PA'-- new message for AA TRACKING
3495: ,p_msg_name => 'PA_RELATIONSHIP_CODE_REQD'
3515: then
3516: ----dbms_output.put_line('is this fired');
3517:
3518: IF (p_customers_in(i).PROJECT_CONTACT_TYPE_CODE IS NULL) OR (p_customers_in(i).PROJECT_CONTACT_TYPE_CODE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR )THEN
3519: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3520: THEN
3521: pa_utils.add_message
3522: ( p_app_short_name => 'PA'-- new message for tracking bug
3523: ,p_msg_name => 'PA_CONTACT_TYPE_REQD'
3557:
3558: --bug 3716805
3559: THEN
3560: If l_in_customer_id IS NULL OR l_in_customer_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
3561: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3562: THEN
3563: pa_interface_utils_pub.map_new_amg_msg
3564: ( p_old_message_code => 'PA_CUSTOMER_ID_IS_NULL'
3565: ,p_msg_attribute => 'CHANGE'
3588:
3589: --bug 3716805
3590: THEN
3591: If l_in_customer_id IS NULL OR l_in_customer_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
3592: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3593: THEN
3594: pa_interface_utils_pub.map_new_amg_msg
3595: ( p_old_message_code => 'PA_CUSTOMER_ID_IS_NULL'
3596: ,p_msg_attribute => 'CHANGE'
3782: -- For this API,error code 10 is a warning.Anything above 10 is an error
3783: IF l_err_code > 10
3784: THEN
3785:
3786: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3787: THEN
3788:
3789: IF NOT pa_project_pvt.check_valid_message(l_err_stage)
3790: THEN
3818:
3819: ELSIF l_err_code < 0
3820: THEN
3821:
3822: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3823: THEN
3824: pa_interface_utils_pub.map_new_amg_msg
3825: ( p_old_message_code => 'PA_GET_CUSTOMER_INFO_FAILED'
3826: ,p_msg_attribute => 'CHANGE'
3966:
3967: IF l_err_code > 0
3968: THEN
3969:
3970: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3971: THEN
3972:
3973: IF NOT pa_project_pvt.check_valid_message(l_err_stage)
3974: THEN
4002:
4003: ELSIF l_err_code < 0
4004: THEN
4005:
4006: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4007: THEN
4008: pa_interface_utils_pub.map_new_amg_msg
4009: ( p_old_message_code => 'PA_CREATE_CONTACTS_FAILED'
4010: ,p_msg_attribute => 'CHANGE'
4033: ,x_return_status => l_return_status
4034: ,x_msg_count => l_msg_count
4035: ,x_msg_data => l_msg_data);
4036:
4037: l_msg_count := FND_MSG_PUB.count_msg;
4038: IF l_msg_count > 0 THEN
4039: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
4040: RAISE FND_API.G_EXC_ERROR;
4041: END IF;
4079: , x_return_status => l_return_status
4080: , x_msg_count => l_msg_count
4081: , x_msg_data => l_msg_data );
4082:
4083: l_msg_count := FND_MSG_PUB.count_msg;
4084: IF l_msg_count > 0 THEN
4085: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
4086: RAISE FND_API.G_EXC_ERROR;
4087: END IF;
4250: OPEN c_prj_count(l_project_id);
4251: FETCH c_prj_count INTO l_prj_mgr_count;
4252: CLOSE c_prj_count;
4253: IF l_prj_mgr_count = 0 THEN
4254: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4255: pa_utils.add_message
4256: ( p_app_short_name => 'PA'
4257: ,p_msg_name => 'PA_PR_INSUF_PROJ_MGR'
4258: );
4366: ,x_msg_data => l_msg_data
4367: ,x_return_status => l_return_status );
4368:
4369: --The following code is copied from create_project_party call above.
4370: l_msg_count := FND_MSG_PUB.count_msg;
4371: IF l_msg_count > 0 THEN
4372: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
4373: RAISE FND_API.G_EXC_ERROR;
4374: END IF;
4639:
4640: IF G_WP_STR_EXISTS = 'N' OR
4641: G_IS_WP_SEPARATE_FROM_FN = 'N' --bug 2876703 --create project
4642: THEN
4643: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4644: THEN
4645: pa_interface_utils_pub.map_new_amg_msg
4646: ( p_old_message_code => 'PA_PS_WP_NOT_SEP_FN'
4647: ,p_msg_attribute => 'CHANGE'
4733: );
4734:
4735: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
4736: THEN
4737: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4738: THEN
4739: pa_interface_utils_pub.map_new_amg_msg
4740: ( p_old_message_code => 'PA_PARENT_TASK_MISSING'
4741: ,p_msg_attribute => 'CHANGE'
5335: --4218977, rtarway, unset this global variable upon unsuccessfull completion of create project
5336: G_OP_VALIDATE_FLAG := null;
5337: p_return_status := FND_API.G_RET_STS_ERROR;
5338:
5339: FND_MSG_PUB.Count_And_Get
5340: ( p_count => p_msg_count ,
5341: p_data => p_msg_data );
5342:
5343: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
5354: --4218977, rtarway, unset this global variable upon unsuccessfull completion of create project
5355: G_OP_VALIDATE_FLAG := null;
5356: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5357:
5358: FND_MSG_PUB.Count_And_Get
5359: ( p_count => p_msg_count ,
5360: p_data => p_msg_data );
5361:
5362: WHEN OTHERS
5373: --4218977, rtarway, unset this global variable upon unsuccessfull completion of create project
5374: G_OP_VALIDATE_FLAG := null;
5375: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5376:
5377: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5378: THEN
5379: FND_MSG_PUB.add_exc_msg
5380: ( p_pkg_name => G_PKG_NAME
5381: , p_procedure_name => l_api_name );
5375: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5376:
5377: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5378: THEN
5379: FND_MSG_PUB.add_exc_msg
5380: ( p_pkg_name => G_PKG_NAME
5381: , p_procedure_name => l_api_name );
5382:
5383: END IF;
5381: , p_procedure_name => l_api_name );
5382:
5383: END IF;
5384:
5385: FND_MSG_PUB.Count_And_Get
5386: ( p_count => p_msg_count ,
5387: p_data => p_msg_data );
5388:
5389: END create_project;
5794: AND p_pm_product_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5795: --bug 2841158
5796: THEN
5797:
5798: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5799: THEN
5800: pa_interface_utils_pub.map_new_amg_msg
5801: ( p_old_message_code => 'PA_PRODUCT_CODE_IS_MISSING'
5802: ,p_msg_attribute => 'CHANGE'
5988:
5989: IF FND_API.TO_BOOLEAN( p_init_msg_list )
5990: THEN
5991:
5992: FND_MSG_PUB.initialize;
5993:
5994: END IF;
5995:
5996: -- Set API return status to success
6080: --bug 2876703 --Add_task
6081: IF G_IS_WP_SEPARATE_FROM_FN = 'N' AND
6082: l_str_type = 'WORKPLAN' --p_structure_type = 'WORKPLAN' 3746912
6083: THEN
6084: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
6085: THEN
6086: pa_interface_utils_pub.map_new_amg_msg
6087: ( p_old_message_code => 'PA_PS_WP_NOT_SEP_FN'
6088: ,p_msg_attribute => 'CHANGE'
6164: END IF;
6165:
6166: IF l_add_subtask_ok_flag <> 'Y'
6167: then
6168: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
6169: THEN
6170: pa_interface_utils_pub.map_new_amg_msg
6171: ( p_old_message_code => 'PA_TASK_CAN_NOT_BE_ADDED'
6172: ,p_msg_attribute => 'CHANGE'
6197: IF pa_project_pvt.check_valid_dist_rule
6198: ( l_proj_type,
6199: l_proj_revenue_acc_method||'/'||p_invoice_method,
6200: l_proj_top_task_inv_mth_flag ) = 'N' THEN
6201: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6202: pa_interface_utils_pub.map_new_amg_msg
6203: ( p_old_message_code => 'PA_INV_TASK_INVOICE_METHOD' -- 4146813 changed error message code
6204: ,p_msg_attribute => 'CHANGE'
6205: ,p_resize_flag => 'N'
6223: IF p_customer_id IS NOT NULL AND p_customer_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
6224: OPEN cur_check_proj_cust_exist(p_customer_id);
6225: FETCH cur_check_proj_cust_exist INTO l_dummy;
6226: IF cur_check_proj_cust_exist%NOTFOUND THEN
6227: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6228: /*Commented for Bug Number 4689326
6229: pa_interface_utils_pub.map_new_amg_msg
6230: ( p_old_message_code => 'PA_INVALID_TASK_CUSTOMER'
6231: ,p_msg_attribute => 'CHANGE'
6481: ELSE
6482: l_task_in_rec.cc_process_labor_flag := p_cc_process_labor_flag;
6483: IF p_cc_process_labor_flag = 'Y' THEN
6484: IF (p_labor_tp_schedule_id IS NULL OR p_labor_tp_schedule_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) THEN
6485: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6486: pa_interface_utils_pub.map_new_amg_msg
6487: ( p_old_message_code => 'PA_TASK_LAB_TP_SCH_MAND'
6488: ,p_msg_attribute => 'CHANGE'
6489: ,p_resize_flag => 'N'
6525: ELSE
6526: l_task_in_rec.cc_process_nl_flag := p_cc_process_nl_flag;
6527: IF p_cc_process_nl_flag = 'Y' THEN
6528: IF p_nl_tp_schedule_id IS NULL OR p_nl_tp_schedule_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
6529: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6530: pa_interface_utils_pub.map_new_amg_msg
6531: ( p_old_message_code => 'PA_TASK_NL_TP_SCH_MAND'
6532: ,p_msg_attribute => 'CHANGE'
6533: ,p_resize_flag => 'N'
6602: IF (l_return_status <> 'S')
6603: THEN
6604: --rtarway , 3661788, comment close command
6605: --CLOSE l_task_ref_to_id_csr;
6606: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
6607: THEN
6608: l_amg_task_number := pa_interface_utils_pub.get_task_number_amg
6609: (p_task_number=> p_task_name
6610: ,p_task_reference => p_pm_task_reference
6798: THEN
6799:
6800: IF G_WP_STR_EXISTS = 'N'
6801: THEN
6802: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
6803: THEN
6804: pa_interface_utils_pub.map_new_amg_msg
6805: ( p_old_message_code => 'PA_PS_WP_NOT_SEP_FN'
6806: ,p_msg_attribute => 'CHANGE'
6817:
6818: IF ( p_structure_version_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM OR
6819: p_structure_version_id IS NULL )
6820: THEN
6821: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
6822: THEN
6823: pa_interface_utils_pub.map_new_amg_msg
6824: ( p_old_message_code => 'PA_PS_STRUC_VER_REQ'
6825: ,p_msg_attribute => 'CHANGE'
6841: struct_ver_updatable = 'N' OR
6842: NVL( l_str_ver_type, 'N' ) = 'N' )
6843: THEN
6844: -- add error message to stack and throw exception
6845: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
6846: THEN
6847: pa_interface_utils_pub.map_new_amg_msg
6848: ( p_old_message_code => 'PA_STRUCT_VER_NO_UPDATE'
6849: ,p_msg_attribute => 'CHANGE'
7353: p_pa_project_number_out := NULL ;
7354: p_task_id := NULL ;
7355: -- End : 4537865
7356:
7357: FND_MSG_PUB.Count_And_Get
7358: ( p_count => p_msg_count ,
7359: p_data => p_msg_data );
7360:
7361: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
7369: p_pa_project_number_out := NULL ;
7370: p_task_id := NULL ;
7371: -- End : 4537865
7372:
7373: FND_MSG_PUB.Count_And_Get
7374: ( p_count => p_msg_count ,
7375: p_data => p_msg_data );
7376:
7377: WHEN OTHERS THEN
7384: p_pa_project_number_out := NULL ;
7385: p_task_id := NULL ;
7386: -- End : 4537865
7387:
7388: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7389: THEN
7390: FND_MSG_PUB.add_exc_msg
7391: ( p_pkg_name => G_PKG_NAME
7392: , p_procedure_name => l_api_name );
7386: -- End : 4537865
7387:
7388: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7389: THEN
7390: FND_MSG_PUB.add_exc_msg
7391: ( p_pkg_name => G_PKG_NAME
7392: , p_procedure_name => l_api_name );
7393:
7394: END IF;
7392: , p_procedure_name => l_api_name );
7393:
7394: END IF;
7395:
7396: FND_MSG_PUB.Count_And_Get
7397: ( p_count => p_msg_count ,
7398: p_data => p_msg_data );
7399:
7400: END add_task;
7497: THEN
7498: IF PA_PROJ_TASK_STRUC_PUB.WP_STR_EXISTS( l_project_id ) = 'N' OR
7499: PA_PROJ_TASK_STRUC_PUB.IS_WP_SEPARATE_FROM_FN( l_project_id ) = 'N' -- 2876703 --delete_task
7500: THEN
7501: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
7502: THEN
7503: pa_interface_utils_pub.map_new_amg_msg
7504: ( p_old_message_code => 'PA_PS_WP_NOT_SEP_FN'
7505: ,p_msg_attribute => 'CHANGE'
7516:
7517: IF p_task_version_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
7518: OR p_task_version_id IS NULL
7519: THEN
7520: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
7521: THEN
7522: pa_interface_utils_pub.map_new_amg_msg
7523: ( p_old_message_code => 'PA_PS_TSK_VER_REQ_WP'
7524: ,p_msg_attribute => 'CHANGE'
7737: EXCEPTION
7738: WHEN FND_API.G_EXC_ERROR
7739: THEN
7740: p_return_status := FND_API.G_RET_STS_ERROR;
7741: p_msg_count := FND_MSG_PUB.count_msg; -- For Bug 4033410
7742:
7743: p_project_id := NULL ; -- 4537865
7744: p_task_id := NULL; -- 4537865
7745:
7746: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
7747: THEN
7748:
7749: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7750: p_msg_count := FND_MSG_PUB.count_msg; -- For Bug 4033410
7751:
7752: p_project_id := NULL ; -- 4537865
7753: p_task_id := NULL; -- 4537865
7754:
7753: p_task_id := NULL; -- 4537865
7754:
7755: WHEN OTHERS THEN
7756: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7757: p_msg_count := FND_MSG_PUB.count_msg; -- For Bug 4033410
7758:
7759: p_project_id := NULL ; -- 4537865
7760: p_task_id := NULL; -- 4537865
7761:
7783: IS
7784:
7785: BEGIN
7786:
7787: FND_MSG_PUB.Initialize;
7788:
7789: -- Initialize global table and record types
7790:
7791: G_project_in_rec := G_project_in_null_rec;
8014:
8015: IF FND_API.TO_BOOLEAN( p_init_msg_list )
8016: THEN
8017:
8018: FND_MSG_PUB.initialize;
8019:
8020: END IF;
8021:
8022: -- Set API return status to success
8210: ROLLBACK TO load_project_pub;
8211:
8212: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8213:
8214: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8215: THEN
8216: FND_MSG_PUB.add_exc_msg
8217: ( p_pkg_name => G_PKG_NAME
8218: , p_procedure_name => l_api_name );
8212: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8213:
8214: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8215: THEN
8216: FND_MSG_PUB.add_exc_msg
8217: ( p_pkg_name => G_PKG_NAME
8218: , p_procedure_name => l_api_name );
8219:
8220: END IF;
8277:
8278: IF FND_API.TO_BOOLEAN( p_init_msg_list )
8279: THEN
8280:
8281: FND_MSG_PUB.initialize;
8282:
8283: END IF;
8284:
8285: -- Set API return status to success
8325: ROLLBACK TO load_key_member_pub;
8326:
8327: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8328:
8329: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8330: THEN
8331: FND_MSG_PUB.add_exc_msg
8332: ( p_pkg_name => G_PKG_NAME
8333: , p_procedure_name => l_api_name );
8327: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8328:
8329: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8330: THEN
8331: FND_MSG_PUB.add_exc_msg
8332: ( p_pkg_name => G_PKG_NAME
8333: , p_procedure_name => l_api_name );
8334:
8335: END IF;
8390:
8391: IF FND_API.TO_BOOLEAN( p_init_msg_list )
8392: THEN
8393:
8394: FND_MSG_PUB.initialize;
8395:
8396: END IF;
8397:
8398: -- Set API return status to success
8436: ROLLBACK TO load_org_role_pub;
8437:
8438: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8439:
8440: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8441: THEN
8442: FND_MSG_PUB.add_exc_msg
8443: ( p_pkg_name => G_PKG_NAME
8444: , p_procedure_name => l_api_name );
8438: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8439:
8440: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8441: THEN
8442: FND_MSG_PUB.add_exc_msg
8443: ( p_pkg_name => G_PKG_NAME
8444: , p_procedure_name => l_api_name );
8445:
8446: END IF;
8504:
8505: IF FND_API.TO_BOOLEAN( p_init_msg_list )
8506: THEN
8507:
8508: FND_MSG_PUB.initialize;
8509:
8510: END IF;
8511:
8512: -- Set API return status to success
8569: ROLLBACK TO load_class_category_pub;
8570:
8571: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8572:
8573: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8574: THEN
8575: FND_MSG_PUB.add_exc_msg
8576: ( p_pkg_name => G_PKG_NAME
8577: , p_procedure_name => l_api_name );
8571: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8572:
8573: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8574: THEN
8575: FND_MSG_PUB.add_exc_msg
8576: ( p_pkg_name => G_PKG_NAME
8577: , p_procedure_name => l_api_name );
8578:
8579: END IF;
8789:
8790: IF FND_API.TO_BOOLEAN( p_init_msg_list )
8791: THEN
8792:
8793: FND_MSG_PUB.initialize;
8794:
8795: END IF;
8796:
8797: -- Set API return status to success
9052: ROLLBACK TO load_task_pub;
9053:
9054: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9055:
9056: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9057: THEN
9058: FND_MSG_PUB.add_exc_msg
9059: ( p_pkg_name => G_PKG_NAME
9060: , p_procedure_name => l_api_name );
9054: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9055:
9056: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9057: THEN
9058: FND_MSG_PUB.add_exc_msg
9059: ( p_pkg_name => G_PKG_NAME
9060: , p_procedure_name => l_api_name );
9061:
9062: END IF;
9124:
9125: IF FND_API.TO_BOOLEAN( p_init_msg_list )
9126: THEN
9127:
9128: FND_MSG_PUB.initialize;
9129:
9130: END IF;
9131:
9132:
9206: p_pa_project_id := NULL ;
9207: p_pa_project_number := NULL ;
9208: -- 4537865
9209:
9210: FND_MSG_PUB.Count_And_Get
9211: ( p_count => p_msg_count ,
9212: p_data => p_msg_data );
9213:
9214: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
9222: -- 4537865
9223:
9224: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9225:
9226: FND_MSG_PUB.Count_And_Get
9227: ( p_count => p_msg_count ,
9228: p_data => p_msg_data );
9229:
9230: WHEN OTHERS THEN
9237: p_pa_project_id := NULL ;
9238: p_pa_project_number := NULL ;
9239: -- 4537865
9240:
9241: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9242: THEN
9243: FND_MSG_PUB.add_exc_msg
9244: ( p_pkg_name => G_PKG_NAME
9245: , p_procedure_name => l_api_name );
9239: -- 4537865
9240:
9241: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9242: THEN
9243: FND_MSG_PUB.add_exc_msg
9244: ( p_pkg_name => G_PKG_NAME
9245: , p_procedure_name => l_api_name );
9246:
9247: END IF;
9245: , p_procedure_name => l_api_name );
9246:
9247: END IF;
9248:
9249: FND_MSG_PUB.Count_And_Get
9250: ( p_count => p_msg_count ,
9251: p_data => p_msg_data );
9252:
9253: END execute_create_project;
9304:
9305: IF FND_API.TO_BOOLEAN( p_init_msg_list )
9306: THEN
9307:
9308: FND_MSG_PUB.initialize;
9309:
9310: END IF;
9311:
9312: -- Set API return status to success
9316: -- Check Task index value, when they don't provide an index we will error out
9317: IF p_task_index = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
9318: OR p_task_index IS NULL
9319: THEN
9320: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
9321: THEN
9322: pa_interface_utils_pub.map_new_amg_msg
9323: ( p_old_message_code => 'PA_INDEX_NOT_PROVIDED'
9324: ,p_msg_attribute => 'CHANGE'
9392: p_pm_task_reference := NULL ;
9393: p_task_return_status := FND_API.G_RET_STS_ERROR ;
9394: -- 4537865
9395:
9396: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9397: THEN
9398: FND_MSG_PUB.add_exc_msg
9399: ( p_pkg_name => G_PKG_NAME
9400: , p_procedure_name => l_api_name );
9394: -- 4537865
9395:
9396: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9397: THEN
9398: FND_MSG_PUB.add_exc_msg
9399: ( p_pkg_name => G_PKG_NAME
9400: , p_procedure_name => l_api_name );
9401:
9402: END IF;
10604: SAVEPOINT Update_project_pub;
10605:
10606: IF FND_API.TO_BOOLEAN( p_init_msg_list )
10607: THEN
10608: FND_MSG_PUB.Initialize;
10609: END IF;
10610:
10611: --4218977, rtarway
10612: --we need to set this parameter only when called in AMG/MSP and not in publish flow
10742: IF (struct_ver_updatable IS NULL OR struct_ver_updatable = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
10743: OR struct_ver_updatable = 'N')
10744: THEN
10745: -- add error message to stack and throw exception
10746: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
10747: THEN
10748: pa_interface_utils_pub.map_new_amg_msg
10749: ( p_old_message_code => 'PA_STRUCT_VER_NO_UPDATE'
10750: ,p_msg_attribute => 'CHANGE'
10784: ,x_return_status => l_return_status
10785: ,x_err_code => l_err_code
10786: ) = 'Y'
10787: THEN
10788: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
10789: THEN
10790: pa_interface_utils_pub.map_new_amg_msg
10791: ( p_old_message_code => 'PA_CANT_UPD_ORG_PRJ'
10792: ,p_msg_attribute => 'CHANGE'
10825: --bug 284115
10826: AND p_pm_product_code <> 'WORKPLAN' --bug 2665656
10827: THEN
10828:
10829: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
10830: THEN
10831: pa_interface_utils_pub.map_new_amg_msg
10832: ( p_old_message_code => 'PA_PRODUCT_CODE_IS_MISSING'
10833: ,p_msg_attribute => 'CHANGE'
10858: IF l_pm_product_code <> 'X'
10859: AND p_pm_product_code <> 'WORKPLAN' --bug 2665656
10860: THEN
10861:
10862: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
10863: THEN
10864: pa_interface_utils_pub.map_new_amg_msg
10865: ( p_old_message_code => 'PA_PRODUCT_CODE_IS_INVALID'
10866: ,p_msg_attribute => 'CHANGE'
11088: --bug 2876703 --update_project
11089: IF G_IS_WP_SEPARATE_FROM_FN = 'N' AND
11090: p_structure_in.structure_type = 'WORKPLAN'
11091: THEN
11092: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
11093: THEN
11094: pa_interface_utils_pub.map_new_amg_msg
11095: ( p_old_message_code => 'PA_PS_WP_NOT_SEP_FN'
11096: ,p_msg_attribute => 'CHANGE'
11127: THEN
11128: IF PA_RELATIONSHIP_UTILS.Check_link_exists(l_project_id) = 'Y'
11129: THEN
11130: -- Throw Error Message
11131: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
11132: THEN
11133:
11134: -- Bug # 4329284.
11135:
11232: l_err_stack );
11233: IF l_err_code > 0
11234: THEN
11235:
11236: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
11237: THEN
11238: IF NOT pa_project_pvt.check_valid_message (l_err_stage)
11239: THEN
11240: pa_interface_utils_pub.map_new_amg_msg
11283: TO_NUMBER(p_project_in.pa_project_number);
11284: END IF;
11285: EXCEPTION
11286: WHEN VALUE_ERROR THEN
11287: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
11288: THEN
11289: pa_interface_utils_pub.map_new_amg_msg
11290: ( p_old_message_code => 'PA_PR_NUMERIC_NUM_REQ'
11291: ,p_msg_attribute => 'CHANGE'
11310: IF l_project_number_unique_csr%FOUND
11311: THEN
11312: CLOSE l_project_number_unique_csr;
11313:
11314: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
11315: THEN
11316: pa_interface_utils_pub.map_new_amg_msg
11317: ( p_old_message_code => 'PA_PR_EPR_PROJ_NUM_NOT_UNIQUE'
11318: ,p_msg_attribute => 'CHANGE'
11368: IF l_project_name_unique_csr%FOUND
11369: THEN
11370: CLOSE l_project_name_unique_csr;
11371:
11372: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
11373: THEN
11374: pa_interface_utils_pub.map_new_amg_msg
11375: ( p_old_message_code => 'PA_PR_EPR_PROJ_NAME_NOT_UNIQUE'
11376: ,p_msg_attribute => 'CHANGE'
11424: IF l_long_name_unique_csr%FOUND
11425: THEN
11426: CLOSE l_long_name_unique_csr;
11427:
11428: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
11429: THEN
11430: pa_interface_utils_pub.map_new_amg_msg
11431: ( p_old_message_code => 'PA_PR_EPR_LONG_NAME_NOT_UNIQUE'
11432: ,p_msg_attribute => 'CHANGE'
11495: l_project_rec.carrying_out_organization_id THEN
11496: -- check whether this is a valid organization
11497: IF pa_project_pvt.check_valid_org
11498: (p_project_in.carrying_out_organization_id) = 'N' THEN
11499: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
11500: THEN
11501: pa_interface_utils_pub.map_new_amg_msg
11502: ( p_old_message_code => 'PA_INVALID_ORG'
11503: ,p_msg_attribute => 'CHANGE'
11563: ,X_err_stage => l_err_stage
11564: ,X_err_stack => l_err_stack );
11565:
11566: IF l_err_code > 0 THEN
11567: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
11568: IF NOT pa_project_pvt.check_valid_message (l_err_stage) THEN
11569: pa_interface_utils_pub.map_new_amg_msg
11570: ( p_old_message_code => 'PA_PR_CANT_CHG_PROJ_TYPE'
11571: ,p_msg_attribute => 'CHANGE'
11620: THEN
11621:
11622: IF p_project_in.public_sector_flag NOT IN ('Y','N')
11623: THEN
11624: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
11625: THEN
11626: pa_interface_utils_pub.map_new_amg_msg
11627: ( p_old_message_code => 'PA_PUBLIC_SECTOR_INVALID'
11628: ,p_msg_attribute => 'CHANGE'
11663: IF p_project_in.distribution_rule IS NULL
11664: AND l_project_type_class_code = 'CONTRACT'
11665: THEN
11666:
11667: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
11668: THEN
11669: pa_interface_utils_pub.map_new_amg_msg
11670: ( p_old_message_code => 'PA_CONTRACT_DIST_RULE_NULL'
11671: ,p_msg_attribute => 'CHANGE'
11692: (l_project_rec.project_type,
11693: p_project_in.distribution_rule,
11694: p_project_in.enable_top_task_inv_mth_flag ) = 'N' --Bug 3279981
11695: THEN
11696: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
11697: THEN
11698: pa_interface_utils_pub.map_new_amg_msg
11699: ( p_old_message_code => 'PA_INVALID_DIST_RULE'
11700: ,p_msg_attribute => 'CHANGE'
11720:
11721: IF l_err_code > 0
11722: THEN
11723:
11724: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
11725: THEN
11726: IF NOT pa_project_pvt.check_valid_message (l_err_stage)
11727: THEN
11728: pa_interface_utils_pub.map_new_amg_msg
11816: l_project_rec.project_status_code THEN
11817: IF pa_project_pvt.check_valid_project_status
11818: (p_project_status => p_project_in.project_status_code ) = 'N'
11819: THEN
11820: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
11821: pa_interface_utils_pub.map_new_amg_msg
11822: ( p_old_message_code => 'PA_PROJECT_STATUS_INVALID'
11823: ,p_msg_attribute => 'CHANGE'
11824: ,p_resize_flag => 'N'
12045: IF p_project_in.early_start_date IS NOT NULL AND p_project_in.early_start_date <>PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
12046:
12047: IF p_project_in.early_finish_date < p_project_in.early_start_date THEN
12048:
12049: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12050:
12051: pa_utils.add_message
12052: (
12053: p_app_short_name => 'PA'
12066: ELSIF l_project_rec.early_start_date IS NOT NULL THEN
12067:
12068: IF p_project_in.early_finish_date < l_project_rec.early_start_date THEN
12069:
12070: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12071:
12072: pa_utils.add_message
12073: (
12074: p_app_short_name => 'PA'
12135: IF p_project_in.late_start_date IS NOT NULL AND p_project_in.late_start_date <>PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
12136:
12137: IF p_project_in.late_finish_date < p_project_in.late_start_date THEN
12138:
12139: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12140:
12141: pa_utils.add_message
12142: (
12143: p_app_short_name => 'PA'
12154: l_update_yes_flag := 'Y';
12155: ELSIF l_project_rec.late_start_date IS NOT NULL THEN
12156: IF p_project_in.late_finish_date < l_project_rec.late_start_date THEN
12157:
12158: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12159:
12160: pa_utils.add_message
12161: (
12162: p_app_short_name => 'PA'
12568: END IF;
12569:
12570: IF l_allow_update_flag = 'N' THEN
12571:
12572: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12573:
12574: pa_utils.add_message
12575: (
12576: p_app_short_name => 'PA'
12597:
12598: ELSE
12599:
12600: --invalid currency code has been passed hence throw error
12601: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12602:
12603: pa_utils.add_message
12604: (
12605: p_app_short_name => 'PA'
12889: IF (nvl(fnd_profile.value('PA_EN_NEW_WORK_TYPE_PROCESS'),'N') = 'Y') OR (nvl(pa_install.is_prm_licensed(),'N') = 'Y' ) THEN
12890:
12891: IF p_project_in.work_type_id IS NULL AND (NOT (PA_GMS_API.vert_install)) THEN
12892:
12893: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12894: pa_interface_utils_pub.map_new_amg_msg
12895: ( p_old_message_code => 'PA_PR_WORK_TYPE_MANDATORY'
12896: ,p_msg_attribute => 'CHANGE'
12897: ,p_resize_flag => 'Y'
13411:
13412:
13413: EXCEPTION
13414: WHEN NO_DATA_FOUND THEN
13415: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
13416: THEN
13417: pa_interface_utils_pub.map_new_amg_msg
13418: ( p_old_message_code => 'PA_INVALID_REV_SCH_ID'
13419: ,p_msg_attribute => 'CHANGE'
13456:
13457:
13458: EXCEPTION
13459: WHEN NO_DATA_FOUND THEN
13460: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
13461: THEN
13462: pa_interface_utils_pub.map_new_amg_msg
13463: ( p_old_message_code => 'PA_INVALID_INV_SCH_ID'
13464: ,p_msg_attribute => 'CHANGE'
13610: --end bug 2955326
13611: l_update_yes_flag := 'Y';
13612: EXCEPTION
13613: WHEN NO_DATA_FOUND THEN
13614: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
13615: THEN
13616: pa_interface_utils_pub.map_new_amg_msg
13617: ( p_old_message_code => 'PA_PRJ_NL_SCHEDULE_ID'
13618: ,p_msg_attribute => 'CHANGE'
13843: <> NVL(l_project_rec.multi_currency_billing_flag, PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) THEN
13844: -- if attempting to change MCB flag; check if it can be allowed
13845: IF NVL(pa_multi_currency_billing.check_mcb_trans_exist(p_project_in.pa_project_id),'N') = 'Y'
13846: OR NVL(pa_multi_currency_billing.check_mcb_setup_exists(p_project_in.pa_project_id),'N') = 'Y' THEN
13847: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
13848: FND_MESSAGE.SET_NAME('PA','PA_MCB_ALLOW_NO_CHG_AMG'); -- Cannot change MCB flag
13849: FND_MSG_PUB.ADD;
13850: RAISE FND_API.G_EXC_ERROR;
13851: END IF;
13845: IF NVL(pa_multi_currency_billing.check_mcb_trans_exist(p_project_in.pa_project_id),'N') = 'Y'
13846: OR NVL(pa_multi_currency_billing.check_mcb_setup_exists(p_project_in.pa_project_id),'N') = 'Y' THEN
13847: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
13848: FND_MESSAGE.SET_NAME('PA','PA_MCB_ALLOW_NO_CHG_AMG'); -- Cannot change MCB flag
13849: FND_MSG_PUB.ADD;
13850: RAISE FND_API.G_EXC_ERROR;
13851: END IF;
13852:
13853: END IF;
13863:
13864: -- Project Currency related attributes
13865: IF p_project_in.PROJECT_BIL_RATE_TYPE is NULL
13866: OR p_project_in.PROJECT_BIL_RATE_TYPE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN -- PA_PROJ_RATE_TYPE_INV_AMG:The project exchage rate type is invalid
13867: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
13868: FND_MESSAGE.SET_NAME('PA','PA_PROJ_RATE_TYPE_INV_AMG');
13869: FND_MESSAGE.SET_TOKEN('PROJECT', l_project_rec.segment1);
13870: FND_MSG_PUB.ADD;
13871: RAISE FND_API.G_EXC_ERROR;
13866: OR p_project_in.PROJECT_BIL_RATE_TYPE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN -- PA_PROJ_RATE_TYPE_INV_AMG:The project exchage rate type is invalid
13867: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
13868: FND_MESSAGE.SET_NAME('PA','PA_PROJ_RATE_TYPE_INV_AMG');
13869: FND_MESSAGE.SET_TOKEN('PROJECT', l_project_rec.segment1);
13870: FND_MSG_PUB.ADD;
13871: RAISE FND_API.G_EXC_ERROR;
13872: END IF;
13873: ELSE
13874: IF p_project_in.PROJECT_BIL_RATE_TYPE = 'User' THEN
13873: ELSE
13874: IF p_project_in.PROJECT_BIL_RATE_TYPE = 'User' THEN
13875: IF p_project_in.PROJECT_BIL_EXCHANGE_RATE is NULL
13876: OR p_project_in.PROJECT_BIL_EXCHANGE_RATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
13877: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN -- PA_EXCH_RATE_NULL_PC_AMG:Project Exchange Rate cannot be null when project rate type is User.
13878: FND_MESSAGE.SET_NAME('PA','PA_EXCH_RATE_NULL_PC_AMG');
13879: FND_MSG_PUB.ADD;
13880: RAISE FND_API.G_EXC_ERROR;
13881: END IF;
13875: IF p_project_in.PROJECT_BIL_EXCHANGE_RATE is NULL
13876: OR p_project_in.PROJECT_BIL_EXCHANGE_RATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
13877: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN -- PA_EXCH_RATE_NULL_PC_AMG:Project Exchange Rate cannot be null when project rate type is User.
13878: FND_MESSAGE.SET_NAME('PA','PA_EXCH_RATE_NULL_PC_AMG');
13879: FND_MSG_PUB.ADD;
13880: RAISE FND_API.G_EXC_ERROR;
13881: END IF;
13882: END IF;
13883:
13888: ELSE -- non-User type
13889: IF p_project_in.PROJECT_BIL_RATE_DATE_CODE is NULL
13890: OR p_project_in.PROJECT_BIL_RATE_DATE_CODE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
13891:
13892: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
13893: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_TYPE_INVALID_AMG');
13894: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Project Currency');
13895: FND_MSG_PUB.ADD;
13896: RAISE FND_API.G_EXC_ERROR;
13891:
13892: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
13893: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_TYPE_INVALID_AMG');
13894: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Project Currency');
13895: FND_MSG_PUB.ADD;
13896: RAISE FND_API.G_EXC_ERROR;
13897: END IF;
13898: ELSE
13899: IF p_project_in.PROJECT_BIL_RATE_DATE_CODE = 'Fixed Date' THEN
13898: ELSE
13899: IF p_project_in.PROJECT_BIL_RATE_DATE_CODE = 'Fixed Date' THEN
13900: IF p_project_in.PROJECT_BIL_RATE_DATE is NULL
13901: OR p_project_in.PROJECT_BIL_RATE_DATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
13902: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
13903: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_INVALID_AMG');
13904: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Project Currency');
13905: FND_MSG_PUB.ADD;
13906: RAISE FND_API.G_EXC_ERROR;
13901: OR p_project_in.PROJECT_BIL_RATE_DATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
13902: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
13903: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_INVALID_AMG');
13904: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Project Currency');
13905: FND_MSG_PUB.ADD;
13906: RAISE FND_API.G_EXC_ERROR;
13907: END IF;
13908: END IF;
13909: END IF;
13927:
13928: -- Project Functional Currency related attributes
13929: IF p_project_in.PROJFUNC_BIL_RATE_TYPE is NULL
13930: OR p_project_in.PROJFUNC_BIL_RATE_TYPE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN -- PA_PFC_RATE_TYPE_INV_AMG:The project functional exchage rate type is invalid
13931: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
13932: FND_MESSAGE.SET_NAME('PA','PA_PFC_RATE_TYPE_INV_AMG');
13933: FND_MSG_PUB.ADD;
13934: RAISE FND_API.G_EXC_ERROR;
13935: END IF;
13929: IF p_project_in.PROJFUNC_BIL_RATE_TYPE is NULL
13930: OR p_project_in.PROJFUNC_BIL_RATE_TYPE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN -- PA_PFC_RATE_TYPE_INV_AMG:The project functional exchage rate type is invalid
13931: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
13932: FND_MESSAGE.SET_NAME('PA','PA_PFC_RATE_TYPE_INV_AMG');
13933: FND_MSG_PUB.ADD;
13934: RAISE FND_API.G_EXC_ERROR;
13935: END IF;
13936: ELSE
13937: IF p_project_in.PROJFUNC_BIL_RATE_TYPE = 'User' THEN
13936: ELSE
13937: IF p_project_in.PROJFUNC_BIL_RATE_TYPE = 'User' THEN
13938: IF p_project_in.PROJFUNC_BIL_EXCHANGE_RATE is NULL
13939: OR p_project_in.PROJFUNC_BIL_EXCHANGE_RATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
13940: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN -- PA_EXCH_RATE_NULL_PF_AMG:Project Functional Exchange Rate cannot be null when project functional rate type is User.
13941: FND_MESSAGE.SET_NAME('PA','PA_EXCH_RATE_NULL_PF_AMG');
13942: FND_MSG_PUB.ADD;
13943: RAISE FND_API.G_EXC_ERROR;
13944: END IF;
13938: IF p_project_in.PROJFUNC_BIL_EXCHANGE_RATE is NULL
13939: OR p_project_in.PROJFUNC_BIL_EXCHANGE_RATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
13940: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN -- PA_EXCH_RATE_NULL_PF_AMG:Project Functional Exchange Rate cannot be null when project functional rate type is User.
13941: FND_MESSAGE.SET_NAME('PA','PA_EXCH_RATE_NULL_PF_AMG');
13942: FND_MSG_PUB.ADD;
13943: RAISE FND_API.G_EXC_ERROR;
13944: END IF;
13945: END IF;
13946:
13951: ELSE -- non-User type
13952: IF p_project_in.PROJFUNC_BIL_RATE_DATE_CODE is NULL
13953: OR p_project_in.PROJFUNC_BIL_RATE_DATE_CODE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
13954:
13955: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
13956: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_TYPE_INVALID_AMG');
13957: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Project Functional Currency');
13958: FND_MSG_PUB.ADD;
13959: RAISE FND_API.G_EXC_ERROR;
13954:
13955: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
13956: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_TYPE_INVALID_AMG');
13957: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Project Functional Currency');
13958: FND_MSG_PUB.ADD;
13959: RAISE FND_API.G_EXC_ERROR;
13960: END IF;
13961: ELSE
13962: IF p_project_in.PROJFUNC_BIL_RATE_DATE_CODE = 'Fixed Date' THEN
13961: ELSE
13962: IF p_project_in.PROJFUNC_BIL_RATE_DATE_CODE = 'Fixed Date' THEN
13963: IF p_project_in.PROJFUNC_BIL_RATE_DATE is NULL
13964: OR p_project_in.PROJFUNC_BIL_RATE_DATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
13965: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
13966: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_INVALID_AMG');
13967: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Project Functional Currency');
13968: FND_MSG_PUB.ADD;
13969: RAISE FND_API.G_EXC_ERROR;
13964: OR p_project_in.PROJFUNC_BIL_RATE_DATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
13965: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
13966: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_INVALID_AMG');
13967: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Project Functional Currency');
13968: FND_MSG_PUB.ADD;
13969: RAISE FND_API.G_EXC_ERROR;
13970: END IF;
13971: END IF;
13972: END IF;
13988:
13989: -- Funding Currency related attributes
13990: IF p_project_in.FUNDING_RATE_TYPE is NULL
13991: OR p_project_in.FUNDING_RATE_TYPE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN -- PA_FUND_RATE_TYPE_INV_AMG:The funding exchage rate type is invalid
13992: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
13993: FND_MESSAGE.SET_NAME('PA','PA_FUND_RATE_TYPE_INV_AMG');
13994: FND_MSG_PUB.ADD;
13995: RAISE FND_API.G_EXC_ERROR;
13996: END IF;
13990: IF p_project_in.FUNDING_RATE_TYPE is NULL
13991: OR p_project_in.FUNDING_RATE_TYPE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN -- PA_FUND_RATE_TYPE_INV_AMG:The funding exchage rate type is invalid
13992: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
13993: FND_MESSAGE.SET_NAME('PA','PA_FUND_RATE_TYPE_INV_AMG');
13994: FND_MSG_PUB.ADD;
13995: RAISE FND_API.G_EXC_ERROR;
13996: END IF;
13997: ELSE
13998: IF p_project_in.FUNDING_RATE_TYPE = 'User' THEN
13997: ELSE
13998: IF p_project_in.FUNDING_RATE_TYPE = 'User' THEN
13999: IF p_project_in.FUNDING_EXCHANGE_RATE is NULL
14000: OR p_project_in.FUNDING_EXCHANGE_RATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
14001: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN -- PA_EXCHANGE_RATE_NULL:Exchange rate cannot be null when rate type is User.
14002: FND_MESSAGE.SET_NAME('PA','PA_EXCHANGE_RATE_NULL');
14003: FND_MSG_PUB.ADD;
14004: RAISE FND_API.G_EXC_ERROR;
14005: END IF;
13999: IF p_project_in.FUNDING_EXCHANGE_RATE is NULL
14000: OR p_project_in.FUNDING_EXCHANGE_RATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
14001: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN -- PA_EXCHANGE_RATE_NULL:Exchange rate cannot be null when rate type is User.
14002: FND_MESSAGE.SET_NAME('PA','PA_EXCHANGE_RATE_NULL');
14003: FND_MSG_PUB.ADD;
14004: RAISE FND_API.G_EXC_ERROR;
14005: END IF;
14006: END IF;
14007: l_statement := l_statement || ' FUNDING_EXCHANGE_RATE = :fnding_xch_rt,';
14011: ELSE -- non-User type
14012: IF p_project_in.FUNDING_RATE_DATE_CODE is NULL
14013: OR p_project_in.FUNDING_RATE_DATE_CODE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
14014:
14015: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
14016: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_TYPE_INVALID_AMG');
14017: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Funding Currency');
14018: FND_MSG_PUB.ADD;
14019: RAISE FND_API.G_EXC_ERROR;
14014:
14015: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
14016: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_TYPE_INVALID_AMG');
14017: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Funding Currency');
14018: FND_MSG_PUB.ADD;
14019: RAISE FND_API.G_EXC_ERROR;
14020: END IF;
14021: ELSE
14022: IF p_project_in.FUNDING_RATE_DATE_CODE = 'Fixed Date' THEN
14021: ELSE
14022: IF p_project_in.FUNDING_RATE_DATE_CODE = 'Fixed Date' THEN
14023: IF p_project_in.FUNDING_RATE_DATE is NULL
14024: OR p_project_in.FUNDING_RATE_DATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
14025: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
14026: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_INVALID_AMG');
14027: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Funding Currency');
14028: FND_MSG_PUB.ADD;
14029: RAISE FND_API.G_EXC_ERROR;
14024: OR p_project_in.FUNDING_RATE_DATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
14025: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
14026: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_INVALID_AMG');
14027: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Funding Currency');
14028: FND_MSG_PUB.ADD;
14029: RAISE FND_API.G_EXC_ERROR;
14030: END IF;
14031: END IF;
14032: END IF;
14749: -- if not valid, throw error message
14750:
14751: IF l_valid_prio_code = 'N' THEN
14752:
14753: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
14754:
14755: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
14756: ,p_msg_name => 'PA_INVALID_PRIORITY_CODE');
14757:
14838:
14839: IF ((p_project_in.include_gains_losses_flag = 'Y' OR l_project_rec.include_gains_losses_flag ='Y')
14840: AND (p_project_in.revaluate_funding_flag = 'N'))
14841: THEN
14842: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
14843: THEN
14844: pa_interface_utils_pub.map_new_amg_msg
14845: ( p_old_message_code => 'PA_CANT_UPDATE_REV_FUN'
14846: ,p_msg_attribute => 'CHANGE'
14960: --end bug 2955326
14961: l_update_yes_flag := 'Y';
14962: /*Added the else part of the code for bug 2891513*/
14963: ELSE
14964: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
14965: THEN
14966: pa_interface_utils_pub.map_new_amg_msg
14967: ( p_old_message_code => 'PA_CANT_UPDATE_GAIN_LOSSES'
14968: ,p_msg_attribute => 'CHANGE'
15262: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
15263: RAISE FND_API.G_EXC_ERROR;
15264: END IF;
15265: ELSE
15266: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
15267: pa_interface_utils_pub.map_new_amg_msg
15268: ( p_old_message_code => 'PA_TOP_TASK_CUST_FLAG_INVALID'
15269: ,p_msg_attribute => 'NOCHANGE'--Changed to NOCHANGE for Bug- 4762153
15270: ,p_resize_flag => 'N'
15332: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
15333: RAISE FND_API.G_EXC_ERROR;
15334: END IF;
15335: ELSE
15336: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
15337: pa_interface_utils_pub.map_new_amg_msg
15338: ( p_old_message_code => 'PA_TT_INV_MTH_FLAG_INVALID'
15339: ,p_msg_attribute => 'CHANGE'
15340: ,p_resize_flag => 'N'
15393: l_b_cc_tax_task_id := 'Y';
15394: l_update_yes_flag := 'Y';
15395: EXCEPTION
15396: WHEN NO_DATA_FOUND THEN
15397: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
15398: THEN
15399: pa_interface_utils_pub.map_new_amg_msg
15400: ( p_old_message_code => 'PA_INVALID_TAX_TASK_ID'
15401: ,p_msg_attribute => 'CHANGE'
16269: loop
16270:
16271: if (p_tasks_in(i).pa_task_id is null or p_tasks_in(i).pa_task_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) then
16272:
16273: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
16274: THEN
16275: pa_interface_utils_pub.map_new_amg_msg
16276: (p_old_message_code => 'PA_TASK_ID_IS_MISS'-- new message for bug 3548473: 3627124
16277: ,p_msg_attribute => 'CHANGE'
16311: IF -- Bug # 5077599.
16312: (p_pass_entire_structure = 'N' AND l_structure_type = 'WORKPLAN' and p_update_mode <> 'PA_UPD_TASK_ATTR') OR -- bhaskar
16313: (p_pass_entire_structure = 'N' AND G_IS_WP_SEPARATE_FROM_FN = 'N' and p_update_mode <> 'PA_UPD_TASK_ATTR') THEN
16314: -- Bug # 5077599.
16315: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
16316: THEN
16317: pa_interface_utils_pub.map_new_amg_msg
16318: ( p_old_message_code => 'PA_TASK_STRUCT_NOT_ORDRD'-- new message for bug 3548473: 3627124
16319: ,p_msg_attribute => 'CHANGE'
16540: THEN
16541: IF p_tasks_in(i).pm_task_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
16542: OR p_tasks_in(i).pm_task_reference IS NULL
16543: THEN
16544: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
16545: THEN
16546: pa_interface_utils_pub.map_new_amg_msg
16547: ( p_old_message_code => 'PA_TASK_REF_AND_ID_MISSING'
16548: ,p_msg_attribute => 'CHANGE'
16709: , x_err_stack => l_err_stack );
16710:
16711: IF l_err_code <> 0
16712: THEN
16713: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
16714: IF NOT pa_project_pvt.check_valid_message(l_err_stage)
16715: THEN
16716: pa_interface_utils_pub.map_new_amg_msg
16717: ( p_old_message_code => 'PA_CHECK_ADD_SUBTASK_FAILED'
17689: THEN
17690:
17691: IF G_WP_STR_EXISTS = 'N'
17692: THEN
17693: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
17694: THEN
17695: pa_interface_utils_pub.map_new_amg_msg
17696: ( p_old_message_code => 'PA_PS_WP_NOT_SEP_FN'
17697: ,p_msg_attribute => 'CHANGE'
17710:
17711: IF ( p_structure_in.structure_version_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM OR
17712: p_structure_in.structure_version_id IS NULL ) AND l_structure_version_id IS NULL
17713: THEN
17714: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
17715: THEN
17716: pa_interface_utils_pub.map_new_amg_msg
17717: ( p_old_message_code => 'PA_PS_STRUC_VER_REQ'
17718: ,p_msg_attribute => 'CHANGE'
17757: THEN
17758: IF p_tasks_in(i).pm_task_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
17759: OR p_tasks_in(i).pm_task_reference IS NULL
17760: THEN
17761: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
17762: THEN
17763: pa_interface_utils_pub.map_new_amg_msg
17764: ( p_old_message_code => 'PA_TASK_REF_AND_ID_MISSING'
17765: ,p_msg_attribute => 'CHANGE'
17852: );
17853:
17854: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
17855: THEN
17856: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
17857: THEN
17858: pa_interface_utils_pub.map_new_amg_msg
17859: ( p_old_message_code => 'PA_PARENT_TASK_MISSING'
17860: ,p_msg_attribute => 'CHANGE'
18281: THEN
18282:
18283: CLOSE l_min_task_start_date_csr;
18284:
18285: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
18286: THEN
18287: pa_interface_utils_pub.map_new_amg_msg
18288: ( p_old_message_code => 'PA_PR_INVALID_START_DATE'
18289: ,p_msg_attribute => 'CHANGE'
18327:
18328: CLOSE l_max_task_end_date_csr;
18329: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
18330:
18331: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
18332: THEN
18333: /* The FND_AS_UNEXPECTED_ERROR message is being reported from UPDATE_PROJECT API and modified
18334: the following. Replaced the message name from PA_PR_INVALID_COMPLETION_DATE with
18335: PA_PR_INVALID_COMP_DATE (this is limited to 30 characters after appended with '_AMG') and
18383: /* Code below is added for Bug 3326468. Start_date of key members is now a mandatory field to
18384: Update_project */
18385: IF p_key_members(i).start_date IS NULL OR
18386: p_key_members(i).start_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE then
18387: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
18388: THEN
18389: pa_utils.add_message
18390: ( p_app_short_name => 'PA'-- new message for bug 3326468
18391: ,p_msg_name => 'PA_KEYMBR_NO_START_DATE'
18405: FETCH l_project_role_types_csr INTO l_dummy;
18406:
18407: IF l_project_role_types_csr%NOTFOUND THEN
18408:
18409: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
18410: THEN
18411: pa_interface_utils_pub.map_new_amg_msg
18412: ( p_old_message_code => 'PA_INVALID_ROLE_TYPE'
18413: ,p_msg_attribute => 'CHANGE'
18444: p_key_members(i).start_date <>
18445: PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE ) THEN
18446: IF p_key_members(i).start_date >
18447: p_key_members(i).end_date THEN
18448: IF FND_MSG_PUB.Check_Msg_Level
18449: (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
18450: pa_interface_utils_pub.map_new_amg_msg
18451: ( p_old_message_code => 'PA_PR_INVALID_KM_DATES'
18452: ,p_msg_attribute => 'CHANGE'
18445: PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE ) THEN
18446: IF p_key_members(i).start_date >
18447: p_key_members(i).end_date THEN
18448: IF FND_MSG_PUB.Check_Msg_Level
18449: (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
18450: pa_interface_utils_pub.map_new_amg_msg
18451: ( p_old_message_code => 'PA_PR_INVALID_KM_DATES'
18452: ,p_msg_attribute => 'CHANGE'
18453: ,p_resize_flag => 'N'
18545: END IF;
18546: END IF;
18547: IF l_temp_end_date < l_temp_start_date THEN
18548: p_return_status := FND_API.G_RET_STS_ERROR;
18549: IF FND_MSG_PUB.Check_Msg_Level
18550: (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
18551: pa_interface_utils_pub.map_new_amg_msg
18552: ( p_old_message_code => 'PA_PR_INVALID_KM_DATES'
18553: ,p_msg_attribute => 'CHANGE'
18546: END IF;
18547: IF l_temp_end_date < l_temp_start_date THEN
18548: p_return_status := FND_API.G_RET_STS_ERROR;
18549: IF FND_MSG_PUB.Check_Msg_Level
18550: (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
18551: pa_interface_utils_pub.map_new_amg_msg
18552: ( p_old_message_code => 'PA_PR_INVALID_KM_DATES'
18553: ,p_msg_attribute => 'CHANGE'
18554: ,p_resize_flag => 'N'
18698: OPEN c_prj_count(l_project_id);
18699: FETCH c_prj_count INTO l_prj_mgr_count;
18700: CLOSE c_prj_count;
18701: IF l_prj_mgr_count = 0 THEN
18702: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
18703: pa_utils.add_message
18704: ( p_app_short_name => 'PA'
18705: ,p_msg_name => 'PA_PR_INSUF_PROJ_MGR'
18706: );
18774: l_temp_end_date := l_org_roles_rec.end_date_active;
18775: END IF;
18776: IF l_temp_end_date < l_temp_start_date THEN
18777: p_return_status := FND_API.G_RET_STS_ERROR;
18778: IF FND_MSG_PUB.Check_Msg_Level
18779: (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
18780: pa_interface_utils_pub.map_new_amg_msg
18781: ( p_old_message_code => 'PA_PR_INVALID_OR_DATES'
18782: ,p_msg_attribute => 'CHANGE'
18775: END IF;
18776: IF l_temp_end_date < l_temp_start_date THEN
18777: p_return_status := FND_API.G_RET_STS_ERROR;
18778: IF FND_MSG_PUB.Check_Msg_Level
18779: (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
18780: pa_interface_utils_pub.map_new_amg_msg
18781: ( p_old_message_code => 'PA_PR_INVALID_OR_DATES'
18782: ,p_msg_attribute => 'CHANGE'
18783: ,p_resize_flag => 'N'
18924: OPEN c_get_class_code_id(p_class_categories(i).class_category,
18925: p_class_categories(i).new_class_code);
18926: fetch c_get_class_code_id into l_new_class_code_id;
18927: if c_get_class_code_id%notfound then
18928: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
18929: THEN
18930: pa_interface_utils_pub.map_new_amg_msg
18931: ( p_old_message_code => 'PA_INVALID_CLASS_CATEGORY'
18932: ,p_msg_attribute => 'CHANGE'
18951: ,p_classification_type => 'CLASS_CODE'
18952: ,x_return_status => l_return_status
18953: ,x_msg_count => l_msg_count
18954: ,x_msg_data => l_msg_data );
18955: l_msg_count := FND_MSG_PUB.count_msg;
18956: IF l_msg_count > 0 THEN
18957: x_msg_count := l_msg_count;
18958: x_return_status := 'E';
18959: RAISE FND_API.G_EXC_ERROR;
19079:
19080: IF ( cur_customer_status%NOTFOUND ) THEN
19081: --dbms_output.put_line('five'||l_check_relationship_flag);
19082: --passed customer does not exist
19083: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
19084: --Changed the error message from PA_CUSTOMER_NOT_EXIST to PA_CUSTOMER_ID_INVALID for Bug#5183150
19085: pa_utils.add_message
19086: ( p_app_short_name => 'PA'
19087: ,p_msg_name => 'PA_CUSTOMER_ID_INVALID'
19094: ELSIF ( cur_customer_status%FOUND ) THEN
19095: --dbms_output.put_line('four'||l_check_relationship_flag);
19096: IF ( l_cust_status = 'I' ) THEN
19097: --customer is not active
19098: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
19099: pa_utils.add_message
19100: ( p_app_short_name => 'PA'
19101: ,p_msg_name => 'PA_CUSTOMER_NOT_ACTIVE'
19102: ,p_token1 => 'PROJECT_NAME'
19136: OR (p_project_in.ship_to_customer_id IS NOT NULL AND p_project_in.ship_to_customer_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
19137: --bug 3716805
19138: THEN
19139: If p_project_in.customer_id IS NULL OR p_project_in.customer_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
19140: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
19141: THEN
19142: pa_interface_utils_pub.map_new_amg_msg
19143: ( p_old_message_code => 'PA_CUSTOMER_ID_IS_NULL'
19144: ,p_msg_attribute => 'CHANGE'
19282: -- For this API,error code 10 is a warning.Anything above 10 is an error
19283: IF l_err_code > 10
19284: THEN
19285:
19286: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
19287: THEN
19288:
19289: IF NOT pa_project_pvt.check_valid_message(l_err_stage)
19290: THEN
19318:
19319: ELSIF l_err_code < 0
19320: THEN
19321:
19322: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
19323: THEN
19324: pa_interface_utils_pub.map_new_amg_msg
19325: ( p_old_message_code => 'PA_GET_CUSTOMER_INFO_FAILED'
19326: ,p_msg_attribute => 'CHANGE'
19403: , x_msg_data => l_msg_data );
19404:
19405: -- Bug 5622539
19406: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
19407: l_msg_count := FND_MSG_PUB.count_msg;
19408: if l_msg_count = 1 then
19409: PA_INTERFACE_UTILS_PUB.get_messages
19410: (p_encoded => FND_API.G_FALSE,
19411: p_msg_index => 1,
19444: , x_msg_data => l_msg_data );
19445:
19446: -- Bug 5622539
19447: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
19448: l_msg_count := FND_MSG_PUB.count_msg;
19449: if l_msg_count = 1 then
19450: PA_INTERFACE_UTILS_PUB.get_messages
19451: (p_encoded => FND_API.G_FALSE,
19452: p_msg_index => 1,
19510: , x_msg_data => l_msg_data );
19511:
19512: -- Bug 5622539
19513: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
19514: l_msg_count := FND_MSG_PUB.count_msg;
19515: if l_msg_count = 1 then
19516: PA_INTERFACE_UTILS_PUB.get_messages
19517: (p_encoded => FND_API.G_FALSE,
19518: p_msg_index => 1,
19554: , x_msg_data => l_msg_data );
19555:
19556: -- Bug 5622539
19557: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
19558: l_msg_count := FND_MSG_PUB.count_msg;
19559: if l_msg_count = 1 then
19560: PA_INTERFACE_UTILS_PUB.get_messages
19561: (p_encoded => FND_API.G_FALSE,
19562: p_msg_index => 1,
19601: OR (p_project_in.ship_to_customer_id IS NOT NULL AND p_project_in.ship_to_customer_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
19602: --bug 3716805
19603: THEN
19604: If p_project_in.customer_id IS NULL OR p_project_in.customer_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
19605: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
19606: THEN
19607: pa_interface_utils_pub.map_new_amg_msg
19608: ( p_old_message_code => 'PA_CUSTOMER_ID_IS_NULL'
19609: ,p_msg_attribute => 'CHANGE'
19627: --bug 3716805
19628: THEN
19629: --dbms_output.put_line('comes into karthiks 0th else');
19630: If p_customers_in(i).customer_id IS NULL OR p_customers_in(i).customer_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
19631: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
19632: THEN
19633: pa_interface_utils_pub.map_new_amg_msg
19634: ( p_old_message_code => 'PA_CUSTOMER_ID_IS_NULL'
19635: ,p_msg_attribute => 'CHANGE'
19672: IF p_customers_in(i).customer_id IS NOT NULL AND p_customers_in(i).customer_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
19673: --dbms_output.put_line('comes into karthiks 1st else');
19674: IF p_customers_in(i).project_relationship_code IS NULL OR
19675: p_customers_in(i).project_relationship_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
19676: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
19677: THEN
19678: pa_utils.add_message
19679: ( p_app_short_name => 'PA'-- using existing message for AA TRACKING
19680: ,p_msg_name => 'PA_RELATIONSHIP_CODE_REQD'
19692: IF ((l_enable_top_task_cust_flag='Y' and p_project_in.enable_top_task_customer_flag <> 'Y') or
19693: (l_enable_top_task_cust_flag='N' and NVL(l_old_cust_top_task_flag, 'N') <> 'Y')) then
19694: IF p_customers_in(i).CUSTOMER_BILL_SPLIT IS NULL OR
19695: p_customers_in(i).CUSTOMER_BILL_SPLIT = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM then
19696: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
19697: THEN
19698: pa_utils.add_message
19699: ( p_app_short_name => 'PA'-- new message for AA TRACKING
19700: ,p_msg_name => 'PA_CUST_BILL_SPLIT_REQD'
19863: then
19864:
19865:
19866: IF (p_customers_in(i).PROJECT_CONTACT_TYPE_CODE IS NULL) OR (p_customers_in(i).PROJECT_CONTACT_TYPE_CODE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR )THEN
19867: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
19868: THEN
19869: pa_utils.add_message
19870: ( p_app_short_name => 'PA'-- existing message for tracking bug
19871: ,p_msg_name => 'PA_CONTACT_TYPE_REQD'
19931: -- For this API,error code 10 is a warning.Anything above 10 is an error
19932: IF l_err_code > 10
19933: THEN
19934:
19935: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
19936: THEN
19937:
19938: IF NOT pa_project_pvt.check_valid_message(l_err_stage)
19939: THEN
19967:
19968: ELSIF l_err_code < 0
19969: THEN
19970:
19971: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
19972: THEN
19973: pa_interface_utils_pub.map_new_amg_msg
19974: ( p_old_message_code => 'PA_GET_CUSTOMER_INFO_FAILED'
19975: ,p_msg_attribute => 'CHANGE'
20148:
20149: --uncommented and modified the below for Bug#5554475
20150:
20151: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
20152: x_msg_count := FND_MSG_PUB.count_msg;
20153: if x_msg_count = 1 then
20154: PA_INTERFACE_UTILS_PUB.get_messages
20155: (p_encoded => FND_API.G_FALSE,
20156: p_msg_index => 1,
20203: /* call to create_customer_contacts added for tracking bug by aditi */
20204: IF l_err_code > 0
20205: THEN
20206:
20207: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
20208: THEN
20209:
20210: IF NOT pa_project_pvt.check_valid_message(l_err_stage)
20211: THEN
20239:
20240: ELSIF l_err_code < 0
20241: THEN
20242:
20243: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
20244: THEN
20245: pa_interface_utils_pub.map_new_amg_msg
20246: ( p_old_message_code => 'PA_CREATE_CONTACTS_FAILED'
20247: ,p_msg_attribute => 'CHANGE'
20319: l_customer_bill_split := Cur_Customer_rec.Customer_Bill_Split;
20320: END IF;
20321: Else
20322: If (pa_customer_info.revenue_accrued_or_billed(l_project_id)) then
20323: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
20324: THEN
20325: pa_utils.add_message
20326: ( p_app_short_name => 'PA'-- new message for bug 3326468
20327: ,p_msg_name => 'PA_UPD_CUST_NOT_ALLOWED'
20347: l_receiver_task_id := Cur_Customer_rec.receiver_task_id;
20348: END IF;
20349: Else /* Some value of passed for receiver_task_id */
20350: If l_bill_another_project_flag = 'N' Then
20351: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
20352: THEN
20353: pa_utils.add_message
20354: ( p_app_short_name => 'PA'-- new message for bug 4153629
20355: ,p_msg_name => 'PA_UPD_RCVR_TSK_NOT_ALLOWED'
20392: l_receiver_task_id := Cur_Customer_rec.receiver_task_id;
20393: END IF;
20394: Else /* Some value of passed for receiver_task_id */
20395: If l_bill_another_project_flag = 'N' Then
20396: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
20397: THEN
20398: pa_utils.add_message
20399: ( p_app_short_name => 'PA'-- new message for bug 4153629
20400: ,p_msg_name => 'PA_UPD_RCVR_TSK_NOT_ALLOWED'
20463: then
20464:
20465:
20466: IF (p_customers_in(i).PROJECT_CONTACT_TYPE_CODE IS NULL) OR (p_customers_in(i).PROJECT_CONTACT_TYPE_CODE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR )THEN
20467: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
20468: THEN
20469: pa_utils.add_message
20470: ( p_app_short_name => 'PA'-- existing message for tracking bug
20471: ,p_msg_name => 'PA_CONTACT_TYPE_REQD'
20521: -- For this API,error code 10 is a warning.Anything above 10 is an error
20522: IF l_err_code > 10
20523: THEN
20524:
20525: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
20526: THEN
20527:
20528: IF NOT pa_project_pvt.check_valid_message(l_err_stage)
20529: THEN
20557:
20558: ELSIF l_err_code < 0
20559: THEN
20560:
20561: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
20562: THEN
20563: pa_interface_utils_pub.map_new_amg_msg
20564: ( p_old_message_code => 'PA_GET_CUSTOMER_INFO_FAILED'
20565: ,p_msg_attribute => 'CHANGE'
20746:
20747: -- Start of addition for bug 5554475
20748:
20749: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
20750: x_msg_count := FND_MSG_PUB.count_msg;
20751: if x_msg_count = 1 then
20752: PA_INTERFACE_UTILS_PUB.get_messages
20753: (p_encoded => FND_API.G_FALSE,
20754: p_msg_index => 1,
20800: );
20801: IF l_err_code > 0
20802: THEN
20803:
20804: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
20805: THEN
20806:
20807: IF NOT pa_project_pvt.check_valid_message(l_err_stage)
20808: THEN
20836:
20837: ELSIF l_err_code < 0
20838: THEN
20839:
20840: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
20841: THEN
20842: pa_interface_utils_pub.map_new_amg_msg
20843: ( p_old_message_code => 'PA_CREATE_CONTACTS_FAILED'
20844: ,p_msg_attribute => 'CHANGE'
20905: x_return_status => x_return_status
20906: );
20907:
20908: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
20909: x_msg_count := FND_MSG_PUB.count_msg;
20910: if x_msg_count = 1 then
20911: PA_INTERFACE_UTILS_PUB.get_messages
20912: (p_encoded => FND_API.G_FALSE,
20913: p_msg_index => 1,
21876:
21877: -- 4537865
21878: p_workflow_started := NULL ;
21879:
21880: FND_MSG_PUB.Count_And_Get
21881: ( p_count => p_msg_count ,
21882: p_data => p_msg_data );
21883:
21884:
21921:
21922: -- 4537865
21923: p_workflow_started := NULL ;
21924:
21925: FND_MSG_PUB.Count_And_Get
21926: ( p_count => p_msg_count ,
21927: p_data => p_msg_data );
21928:
21929: WHEN NO_DATA_FOUND THEN
22022: if (p_pm_product_code <> 'WORKPLAN') then
22023: G_OP_VALIDATE_FLAG := null;
22024: G_TASK_STR_UPDATE_MODE := null;
22025: end if;
22026: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
22027: THEN
22028: FND_MESSAGE.SET_NAME('PA','PA_ROW_ALREADY_LOCKED_P_AMG');
22029: FND_MESSAGE.SET_TOKEN('PROJECT', l_project_rec.segment1);
22030: FND_MESSAGE.SET_TOKEN('ENTITY', G_PROJECT_CODE);
22027: THEN
22028: FND_MESSAGE.SET_NAME('PA','PA_ROW_ALREADY_LOCKED_P_AMG');
22029: FND_MESSAGE.SET_TOKEN('PROJECT', l_project_rec.segment1);
22030: FND_MESSAGE.SET_TOKEN('ENTITY', G_PROJECT_CODE);
22031: FND_MSG_PUB.ADD;
22032: END IF;
22033:
22034: FND_MSG_PUB.Count_And_Get
22035: ( p_count => p_msg_count ,
22030: FND_MESSAGE.SET_TOKEN('ENTITY', G_PROJECT_CODE);
22031: FND_MSG_PUB.ADD;
22032: END IF;
22033:
22034: FND_MSG_PUB.Count_And_Get
22035: ( p_count => p_msg_count ,
22036: p_data => p_msg_data );
22037:
22038:
22072: --4218977, rtarway, unset this global variable
22073: if (p_pm_product_code <> 'WORKPLAN') then
22074: G_OP_VALIDATE_FLAG := null;
22075: end if;
22076: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
22077: FND_MSG_PUB.add_exc_msg
22078: ( p_pkg_name => G_PKG_NAME
22079: , p_procedure_name => l_api_name );
22080: END IF;
22073: if (p_pm_product_code <> 'WORKPLAN') then
22074: G_OP_VALIDATE_FLAG := null;
22075: end if;
22076: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
22077: FND_MSG_PUB.add_exc_msg
22078: ( p_pkg_name => G_PKG_NAME
22079: , p_procedure_name => l_api_name );
22080: END IF;
22081:
22081:
22082: -- 4537865
22083: p_workflow_started := NULL ;
22084:
22085: FND_MSG_PUB.Count_And_Get
22086: ( p_count => p_msg_count ,
22087: p_data => p_msg_data );
22088:
22089:
22495: SAVEPOINT update_task_pub;
22496: -- Begin Bug # 4630058.
22497: -- Initialize the message table if requested.
22498: if FND_API.TO_BOOLEAN(p_init_msg_list) then
22499: FND_MSG_PUB.initialize;
22500: end if;
22501: -- End Bug # 4630058.
22502:
22503: -- 4537865 : Initialize return status to success
22570: IF (p_structure_type is null OR p_structure_type = 'WORKPLAN') THEN
22571: IF PA_PROJ_TASK_STRUC_PUB.WP_STR_EXISTS( l_project_id ) = 'N' OR
22572: NVL( l_is_wp_separate_from_fn,'N') = 'N' --bug 2876703 update_task
22573: THEN
22574: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
22575: THEN
22576: pa_interface_utils_pub.map_new_amg_msg
22577: ( p_old_message_code => 'PA_PS_WP_NOT_SEP_FN'
22578: ,p_msg_attribute => 'CHANGE'
22711: IF (l_return_status <> 'S')
22712: THEN
22713: --rtarway , 3661788, comment close command
22714: --CLOSE l_task_ref_to_id_csr;
22715: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
22716: THEN
22717: l_amg_task_number := pa_interface_utils_pub.get_task_number_amg
22718: (p_task_number => p_task_name
22719: ,p_task_reference => p_pm_task_reference
22751: IF pa_project_pvt.check_valid_dist_rule
22752: ( l_proj_type,
22753: l_proj_revenue_acc_method||'/'||p_invoice_method,
22754: l_proj_top_task_inv_mth_flag ) = 'N' THEN
22755: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
22756: pa_interface_utils_pub.map_new_amg_msg
22757: ( p_old_message_code => 'PA_INV_TASK_INVOICE_METHOD' -- for bug# 4156036
22758: ,p_msg_attribute => 'CHANGE'
22759: ,p_resize_flag => 'N'
22838: IF PA_BILLING_CORE.Update_Top_Task_Customer( l_project_id, l_pa_task_id ) = 'Y' THEN -- If condition to check Funding exits for task or not
22839: OPEN cur_check_proj_cust_exist(l_project_id,p_customer_id);
22840: FETCH cur_check_proj_cust_exist INTO l_dummy;
22841: IF cur_check_proj_cust_exist%NOTFOUND THEN
22842: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
22843: /* Commented This code For Bug 4689326
22844: pa_interface_utils_pub.map_new_amg_msg
22845: ( p_old_message_code => 'PA_INVALID_TASK_CUSTOMER'
22846: ,p_msg_attribute => 'CHANGE'
23461: --If update task is called from update_project api then PA_PROJ_TASK_STRUC_PUB.IS_WP_SEPARATE_FROM_FN wont be called
23462: --bcoz G_IS_WP_SEPARATE_FROM_FN will already be set by upate_project.
23463: -- NVL( G_IS_WP_SEPARATE_FROM_FN, PA_PROJ_TASK_STRUC_PUB.IS_WP_SEPARATE_FROM_FN( l_project_id ) ) = 'N' --bug 2876703 update_task
23464: --THEN
23465: -- IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
23466: -- THEN
23467: -- pa_interface_utils_pub.map_new_amg_msg
23468: -- ( p_old_message_code => 'PA_PS_WP_NOT_SEP_FN'
23469: -- ,p_msg_attribute => 'CHANGE'
23520: ----dbms_output.put_line('l_structure_version_id--ut'||l_structure_version_id);
23521: IF ( l_structure_version_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM OR
23522: l_structure_version_id IS NULL )
23523: THEN
23524: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
23525: THEN
23526: pa_interface_utils_pub.map_new_amg_msg
23527: ( p_old_message_code => 'PA_PS_STRUC_VER_REQ'
23528: ,p_msg_attribute => 'CHANGE'
24021: p_out_pa_task_id := NULL ;
24022: p_out_pm_task_reference := NULL ;
24023: -- 4537865
24024:
24025: FND_MSG_PUB.Count_And_Get
24026: ( p_count => p_msg_count ,
24027: p_data => p_msg_data );
24028:
24029: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
24039: p_out_pa_task_id := NULL ;
24040: p_out_pm_task_reference := NULL ;
24041: -- 4537865
24042:
24043: FND_MSG_PUB.Count_And_Get
24044: ( p_count => p_msg_count ,
24045: p_data => p_msg_data );
24046:
24047: WHEN OTHERS THEN
24057: p_out_pa_task_id := NULL ;
24058: p_out_pm_task_reference := NULL ;
24059: -- 4537865
24060:
24061: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
24062:
24063: FND_MSG_PUB.add_exc_msg
24064: ( p_pkg_name => G_PKG_NAME
24065: , p_procedure_name => l_api_name );
24059: -- 4537865
24060:
24061: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
24062:
24063: FND_MSG_PUB.add_exc_msg
24064: ( p_pkg_name => G_PKG_NAME
24065: , p_procedure_name => l_api_name );
24066:
24067: END IF;
24065: , p_procedure_name => l_api_name );
24066:
24067: END IF;
24068:
24069: FND_MSG_PUB.Count_And_Get
24070: ( p_count => p_msg_count ,
24071: p_data => p_msg_data );
24072:
24073: END update_task;
24125:
24126: IF FND_API.TO_BOOLEAN( p_init_msg_list )
24127: THEN
24128:
24129: FND_MSG_PUB.initialize;
24130:
24131: END IF;
24132:
24133: p_return_status := FND_API.G_RET_STS_SUCCESS;
24206: -- 4537865
24207: p_workflow_started := NULL ;
24208: -- 4537865
24209:
24210: FND_MSG_PUB.Count_And_Get
24211: ( p_count => p_msg_count ,
24212: p_data => p_msg_data );
24213:
24214: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
24220: -- 4537865
24221: p_workflow_started := NULL ;
24222: -- 4537865
24223:
24224: FND_MSG_PUB.Count_And_Get
24225: ( p_count => p_msg_count ,
24226: p_data => p_msg_data );
24227:
24228: WHEN OTHERS THEN
24234: -- 4537865
24235: p_workflow_started := NULL ;
24236: -- 4537865
24237:
24238: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
24239: THEN
24240:
24241: FND_MSG_PUB.add_exc_msg
24242: ( p_pkg_name => G_PKG_NAME
24237:
24238: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
24239: THEN
24240:
24241: FND_MSG_PUB.add_exc_msg
24242: ( p_pkg_name => G_PKG_NAME
24243: , p_procedure_name => l_api_name
24244: , p_error_text => SUBSTRB(SQLERRM, 1, 240) ); -- 4537865 Converted from SUBSTR to SUBSTRB
24245:
24243: , p_procedure_name => l_api_name
24244: , p_error_text => SUBSTRB(SQLERRM, 1, 240) ); -- 4537865 Converted from SUBSTR to SUBSTRB
24245:
24246:
24247: FND_MSG_PUB.add;
24248: END IF;
24249:
24250: FND_MSG_PUB.Count_And_Get
24251: ( p_count => p_msg_count ,
24246:
24247: FND_MSG_PUB.add;
24248: END IF;
24249:
24250: FND_MSG_PUB.Count_And_Get
24251: ( p_count => p_msg_count ,
24252: p_data => p_msg_data );
24253:
24254: END execute_update_project;
24326: EXCEPTION
24327: WHEN FND_API.G_EXC_ERROR
24328: THEN
24329: p_return_status := FND_API.G_RET_STS_ERROR;
24330: p_msg_count := FND_MSG_PUB.count_msg; -- 4537865
24331:
24332: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
24333: THEN
24334: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
24331:
24332: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
24333: THEN
24334: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
24335: p_msg_count := FND_MSG_PUB.count_msg; -- 4537865
24336:
24337: WHEN OTHERS THEN
24338: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
24339: p_msg_count := FND_MSG_PUB.count_msg; -- 4537865
24335: p_msg_count := FND_MSG_PUB.count_msg; -- 4537865
24336:
24337: WHEN OTHERS THEN
24338: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
24339: p_msg_count := FND_MSG_PUB.count_msg; -- 4537865
24340:
24341: END delete_project;
24342:
24343: --------------------------------------------------------------------------------
24384: IF PA_PROJ_TASK_STRUC_PUB.WP_STR_EXISTS( p_project_id ) = 'N' OR
24385: PA_PROJ_TASK_STRUC_PUB.IS_WP_SEPARATE_FROM_FN( p_project_id ) = 'N'
24386: THEN
24387: l_retrieve := 'Y' ;
24388: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
24389: THEN
24390: pa_interface_utils_pub.map_new_amg_msg
24391: ( p_old_message_code => 'PA_PS_WP_NOT_SEP_FN'
24392: ,p_msg_attribute => 'CHANGE'
24423: WHEN FND_API.G_EXC_ERROR
24424: THEN
24425: p_return_status := FND_API.G_RET_STS_ERROR;
24426: IF l_retrieve = 'Y' THEN
24427: FND_MSG_PUB.Count_And_Get
24428: (p_encoded =>'F' , p_count => p_msg_count ,
24429: p_data => p_msg_data );
24430: END IF;
24431:
24430: END IF;
24431:
24432: -- 4537865
24433: p_delete_task_ok_flag := NULL ;
24434: p_msg_count := FND_MSG_PUB.count_msg;
24435:
24436: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
24437: THEN
24438:
24440:
24441: -- 4537865
24442: p_delete_task_ok_flag := NULL ;
24443:
24444: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
24445: THEN
24446: FND_MSG_PUB.add_exc_msg
24447: ( p_pkg_name => G_PKG_NAME
24448: , p_procedure_name => 'Check_Delete_Task_Ok');
24442: p_delete_task_ok_flag := NULL ;
24443:
24444: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
24445: THEN
24446: FND_MSG_PUB.add_exc_msg
24447: ( p_pkg_name => G_PKG_NAME
24448: , p_procedure_name => 'Check_Delete_Task_Ok');
24449: END IF;
24450:
24447: ( p_pkg_name => G_PKG_NAME
24448: , p_procedure_name => 'Check_Delete_Task_Ok');
24449: END IF;
24450:
24451: FND_MSG_PUB.Count_And_Get
24452: (p_count => p_msg_count ,
24453: p_data => p_msg_data );
24454:
24455: WHEN OTHERS THEN
24457:
24458: -- 4537865
24459: p_delete_task_ok_flag := NULL ;
24460:
24461: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
24462: THEN
24463: FND_MSG_PUB.add_exc_msg
24464: ( p_pkg_name => G_PKG_NAME
24465: , p_procedure_name => 'Check_Delete_Task_Ok');
24459: p_delete_task_ok_flag := NULL ;
24460:
24461: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
24462: THEN
24463: FND_MSG_PUB.add_exc_msg
24464: ( p_pkg_name => G_PKG_NAME
24465: , p_procedure_name => 'Check_Delete_Task_Ok');
24466: END IF;
24467:
24464: ( p_pkg_name => G_PKG_NAME
24465: , p_procedure_name => 'Check_Delete_Task_Ok');
24466: END IF;
24467:
24468: FND_MSG_PUB.Count_And_Get
24469: (p_count => p_msg_count ,
24470: p_data => p_msg_data );
24471:
24472: --bug 2876703
24526: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
24527:
24528: p_add_subtask_ok_flag := NULL ;
24529:
24530: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
24531: THEN
24532: FND_MSG_PUB.add_exc_msg
24533: ( p_pkg_name => G_PKG_NAME
24534: , p_procedure_name => 'Check_Add_Subtask_Ok');
24528: p_add_subtask_ok_flag := NULL ;
24529:
24530: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
24531: THEN
24532: FND_MSG_PUB.add_exc_msg
24533: ( p_pkg_name => G_PKG_NAME
24534: , p_procedure_name => 'Check_Add_Subtask_Ok');
24535: END IF;
24536:
24533: ( p_pkg_name => G_PKG_NAME
24534: , p_procedure_name => 'Check_Add_Subtask_Ok');
24535: END IF;
24536:
24537: FND_MSG_PUB.Count_And_Get
24538: (p_count => p_msg_count ,
24539: p_data => p_msg_data );
24540:
24541: END Check_Add_Subtask_Ok;
24593: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
24594:
24595: p_unique_task_ref_flag := NULL ;
24596:
24597: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
24598: THEN
24599: FND_MSG_PUB.add_exc_msg
24600: ( p_pkg_name => G_PKG_NAME
24601: , p_procedure_name => 'Check_Unique_Task_Reference');
24595: p_unique_task_ref_flag := NULL ;
24596:
24597: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
24598: THEN
24599: FND_MSG_PUB.add_exc_msg
24600: ( p_pkg_name => G_PKG_NAME
24601: , p_procedure_name => 'Check_Unique_Task_Reference');
24602: END IF;
24603:
24600: ( p_pkg_name => G_PKG_NAME
24601: , p_procedure_name => 'Check_Unique_Task_Reference');
24602: END IF;
24603:
24604: FND_MSG_PUB.Count_And_Get
24605: (p_count => p_msg_count ,
24606: p_data => p_msg_data );
24607:
24608: END Check_Unique_Task_Reference;
24655: WHEN OTHERS THEN
24656: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
24657:
24658: p_unique_project_ref_flag := NULL ;
24659: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
24660: THEN
24661: FND_MSG_PUB.add_exc_msg
24662: ( p_pkg_name => G_PKG_NAME
24663: , p_procedure_name => 'Check_Unique_Project_Reference');
24657:
24658: p_unique_project_ref_flag := NULL ;
24659: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
24660: THEN
24661: FND_MSG_PUB.add_exc_msg
24662: ( p_pkg_name => G_PKG_NAME
24663: , p_procedure_name => 'Check_Unique_Project_Reference');
24664: END IF;
24665:
24662: ( p_pkg_name => G_PKG_NAME
24663: , p_procedure_name => 'Check_Unique_Project_Reference');
24664: END IF;
24665:
24666: FND_MSG_PUB.Count_And_Get
24667: (p_count => p_msg_count ,
24668: p_data => p_msg_data );
24669:
24670: END Check_Unique_Project_Reference;
24717: WHEN OTHERS THEN
24718: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
24719:
24720: p_delete_project_ok_flag := NULL ;
24721: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
24722: THEN
24723: FND_MSG_PUB.add_exc_msg
24724: ( p_pkg_name => G_PKG_NAME
24725: , p_procedure_name => 'Check_Delete_Project_OK');
24719:
24720: p_delete_project_ok_flag := NULL ;
24721: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
24722: THEN
24723: FND_MSG_PUB.add_exc_msg
24724: ( p_pkg_name => G_PKG_NAME
24725: , p_procedure_name => 'Check_Delete_Project_OK');
24726: END IF;
24727:
24724: ( p_pkg_name => G_PKG_NAME
24725: , p_procedure_name => 'Check_Delete_Project_OK');
24726: END IF;
24727:
24728: FND_MSG_PUB.Count_And_Get
24729: (p_count => p_msg_count ,
24730: p_data => p_msg_data );
24731:
24732: END Check_Delete_Project_Ok;
24786: WHEN OTHERS THEN
24787: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
24788:
24789: p_change_parent_ok_flag := NULL ;
24790: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
24791: THEN
24792: FND_MSG_PUB.add_exc_msg
24793: ( p_pkg_name => G_PKG_NAME
24794: , p_procedure_name => 'Check_Change_Parent_OK');
24788:
24789: p_change_parent_ok_flag := NULL ;
24790: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
24791: THEN
24792: FND_MSG_PUB.add_exc_msg
24793: ( p_pkg_name => G_PKG_NAME
24794: , p_procedure_name => 'Check_Change_Parent_OK');
24795: END IF;
24796:
24793: ( p_pkg_name => G_PKG_NAME
24794: , p_procedure_name => 'Check_Change_Parent_OK');
24795: END IF;
24796:
24797: FND_MSG_PUB.Count_And_Get
24798: (p_count => p_msg_count ,
24799: p_data => p_msg_data );
24800:
24801: END Check_Change_Parent_OK;
24848: WHEN OTHERS THEN
24849: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
24850:
24851: p_change_project_org_ok_flag := NULL ;
24852: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
24853: THEN
24854: FND_MSG_PUB.add_exc_msg
24855: ( p_pkg_name => G_PKG_NAME
24856: , p_procedure_name => 'Check_Change_Project_Org_OK');
24850:
24851: p_change_project_org_ok_flag := NULL ;
24852: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
24853: THEN
24854: FND_MSG_PUB.add_exc_msg
24855: ( p_pkg_name => G_PKG_NAME
24856: , p_procedure_name => 'Check_Change_Project_Org_OK');
24857: END IF;
24858:
24855: ( p_pkg_name => G_PKG_NAME
24856: , p_procedure_name => 'Check_Change_Project_Org_OK');
24857: END IF;
24858:
24859: FND_MSG_PUB.Count_And_Get
24860: (p_count => p_msg_count ,
24861: p_data => p_msg_data );
24862:
24863: END Check_Change_Project_Org_Ok;
24912: WHEN OTHERS THEN
24913: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
24914:
24915: p_unique_task_number_flag := NULL ;
24916: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
24917: THEN
24918: FND_MSG_PUB.add_exc_msg
24919: ( p_pkg_name => G_PKG_NAME
24920: , p_procedure_name => 'Check_Unique_Task_Number');
24914:
24915: p_unique_task_number_flag := NULL ;
24916: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
24917: THEN
24918: FND_MSG_PUB.add_exc_msg
24919: ( p_pkg_name => G_PKG_NAME
24920: , p_procedure_name => 'Check_Unique_Task_Number');
24921: END IF;
24922:
24919: ( p_pkg_name => G_PKG_NAME
24920: , p_procedure_name => 'Check_Unique_Task_Number');
24921: END IF;
24922:
24923: FND_MSG_PUB.Count_And_Get
24924: (p_count => p_msg_count ,
24925: p_data => p_msg_data );
24926:
24927: END Check_Unique_Task_Number;
24978: WHEN OTHERS THEN
24979: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
24980:
24981: p_task_number_change_Ok_flag := NULL ;
24982: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
24983: THEN
24984: FND_MSG_PUB.add_exc_msg
24985: ( p_pkg_name => G_PKG_NAME
24986: , p_procedure_name => 'Check_Task_Number_Change_Ok');
24980:
24981: p_task_number_change_Ok_flag := NULL ;
24982: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
24983: THEN
24984: FND_MSG_PUB.add_exc_msg
24985: ( p_pkg_name => G_PKG_NAME
24986: , p_procedure_name => 'Check_Task_Number_Change_Ok');
24987: END IF;
24988:
24985: ( p_pkg_name => G_PKG_NAME
24986: , p_procedure_name => 'Check_Task_Number_Change_Ok');
24987: END IF;
24988:
24989: FND_MSG_PUB.Count_And_Get
24990: (p_count => p_msg_count ,
24991: p_data => p_msg_data );
24992:
24993: END Check_Task_Number_Change_Ok;
25036:
25037: WHEN OTHERS THEN
25038: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25039:
25040: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
25041: THEN
25042: FND_MSG_PUB.add_exc_msg
25043: ( p_pkg_name => G_PKG_NAME
25044: , p_procedure_name => 'approve_project');
25038: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25039:
25040: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
25041: THEN
25042: FND_MSG_PUB.add_exc_msg
25043: ( p_pkg_name => G_PKG_NAME
25044: , p_procedure_name => 'approve_project');
25045: END IF;
25046:
25043: ( p_pkg_name => G_PKG_NAME
25044: , p_procedure_name => 'approve_project');
25045: END IF;
25046:
25047: FND_MSG_PUB.Count_And_Get
25048: (p_count => p_msg_count ,
25049: p_data => p_msg_data );
25050:
25051: END approve_project;
26955:
26956: WHEN OTHERS THEN
26957: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
26958:
26959: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
26960: THEN
26961: FND_MSG_PUB.add_exc_msg
26962: ( p_pkg_name => G_PKG_NAME
26963: , p_procedure_name => 'load_tasks');
26957: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
26958:
26959: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
26960: THEN
26961: FND_MSG_PUB.add_exc_msg
26962: ( p_pkg_name => G_PKG_NAME
26963: , p_procedure_name => 'load_tasks');
26964: END IF;
26965:
27056: p_pm_task_reference := NULL ;
27057: p_pa_task_id := NULL ;
27058: p_task_version_id := NULL ;
27059:
27060: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
27061: THEN
27062: FND_MSG_PUB.add_exc_msg
27063: ( p_pkg_name => G_PKG_NAME
27064: , p_procedure_name => 'fetch_tasks');
27058: p_task_version_id := NULL ;
27059:
27060: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
27061: THEN
27062: FND_MSG_PUB.add_exc_msg
27063: ( p_pkg_name => G_PKG_NAME
27064: , p_procedure_name => 'fetch_tasks');
27065: END IF;
27066:
27118:
27119: -- Initialize the message table if requested.
27120: IF FND_API.TO_BOOLEAN( p_init_msg_list )
27121: THEN
27122: FND_MSG_PUB.initialize;
27123: END IF;
27124:
27125: -- assign a value to the global counter for this table
27126: G_ext_attr_tbl_count := G_ext_attr_tbl_count + 1;
27159: ROLLBACK TO load_extensible_attribute_pub;
27160:
27161: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
27162:
27163: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
27164: THEN
27165: FND_MSG_PUB.add_exc_msg
27166: ( p_pkg_name => G_PKG_NAME
27167: , p_procedure_name => l_api_name );
27161: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
27162:
27163: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
27164: THEN
27165: FND_MSG_PUB.add_exc_msg
27166: ( p_pkg_name => G_PKG_NAME
27167: , p_procedure_name => l_api_name );
27168:
27169: END IF;
27231: BEGIN
27232: -- initialize message stack, if needed
27233: IF FND_API.to_boolean(p_init_msg_list)
27234: THEN
27235: FND_MSG_PUB.initialize;
27236: END IF;
27237:
27238: -- There are two ways to load the global pl/sql table:
27239: -- 1. Call Load_Extensible_Attribute
27359: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
27360: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
27361: WHEN OTHERS THEN
27362: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
27363: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
27364: FND_MSG_PUB.Add_Exc_Msg
27365: ( G_PKG_NAME
27366: , l_api_name
27367: );
27360: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
27361: WHEN OTHERS THEN
27362: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
27363: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
27364: FND_MSG_PUB.Add_Exc_Msg
27365: ( G_PKG_NAME
27366: , l_api_name
27367: );
27368: END IF;
27429:
27430: IF FND_API.TO_BOOLEAN( p_init_msg_list )
27431: THEN
27432:
27433: FND_MSG_PUB.initialize;
27434:
27435: END IF;
27436:
27437: -- Set API return status to success
27498: ROLLBACK TO load_structure_pub;
27499:
27500: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
27501:
27502: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
27503: THEN
27504: FND_MSG_PUB.add_exc_msg
27505: ( p_pkg_name => G_PKG_NAME
27506: , p_procedure_name => l_api_name );
27500: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
27501:
27502: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
27503: THEN
27504: FND_MSG_PUB.add_exc_msg
27505: ( p_pkg_name => G_PKG_NAME
27506: , p_procedure_name => l_api_name );
27507:
27508: END IF;
27554:
27555: IF FND_API.TO_BOOLEAN( p_init_msg_list )
27556: THEN
27557:
27558: FND_MSG_PUB.initialize;
27559:
27560: END IF;
27561:
27562: -- Set API return status to success
27677:
27678: p_msg_count := l_msg_count;
27679: p_msg_data := l_msg_data;
27680:
27681: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
27682: , p_data => p_msg_data);
27683:
27684: -- End fix for Bug # 4314797.
27685:
27695:
27696: p_msg_count := l_msg_count;
27697: p_msg_data := l_msg_data;
27698:
27699: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
27700: , p_data => p_msg_data);
27701:
27702: -- End fix for Bug # 4314797.
27703:
27707:
27708: -- 4537865
27709: p_published_struct_ver_id := NULL ;
27710:
27711: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
27712: FND_MSG_PUB.add_exc_msg
27713: (p_pkg_name => G_PKG_NAME
27714: ,p_procedure_name => l_api_name);
27715: END IF;
27708: -- 4537865
27709: p_published_struct_ver_id := NULL ;
27710:
27711: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
27712: FND_MSG_PUB.add_exc_msg
27713: (p_pkg_name => G_PKG_NAME
27714: ,p_procedure_name => l_api_name);
27715: END IF;
27716:
27721:
27722: p_msg_count := l_msg_count;
27723: p_msg_data := l_msg_data;
27724:
27725: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
27726: , p_data => p_msg_data);
27727:
27728: -- End fix for Bug # 4314797.
27729:
27776:
27777: WHEN OTHERS THEN
27778: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
27779:
27780: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
27781: FND_MSG_PUB.add_exc_msg
27782: (p_pkg_name => G_PKG_NAME
27783: ,p_procedure_name => l_api_name);
27784: END IF;
27777: WHEN OTHERS THEN
27778: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
27779:
27780: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
27781: FND_MSG_PUB.add_exc_msg
27782: (p_pkg_name => G_PKG_NAME
27783: ,p_procedure_name => l_api_name);
27784: END IF;
27785: END baseline_structure;
27819:
27820: IF FND_API.TO_BOOLEAN( p_init_msg_list )
27821: THEN
27822:
27823: FND_MSG_PUB.initialize;
27824:
27825: END IF;
27826:
27827: -- Set API return status to success
27866: ROLLBACK TO delete_structure_ver_pub;
27867:
27868: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
27869:
27870: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
27871: THEN
27872: FND_MSG_PUB.add_exc_msg
27873: ( p_pkg_name => G_PKG_NAME
27874: , p_procedure_name => l_api_name );
27868: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
27869:
27870: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
27871: THEN
27872: FND_MSG_PUB.add_exc_msg
27873: ( p_pkg_name => G_PKG_NAME
27874: , p_procedure_name => l_api_name );
27875:
27876: END IF;
27929:
27930: IF FND_API.TO_BOOLEAN( p_init_msg_list )
27931: THEN
27932:
27933: FND_MSG_PUB.initialize;
27934:
27935: END IF;
27936:
27937: -- Set API return status to success
27988: -- 4537865
27989: p_pa_structure_version_id := NULL ;
27990: p_struc_return_status := NULL ;
27991:
27992: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
27993: THEN
27994: FND_MSG_PUB.add_exc_msg
27995: ( p_pkg_name => G_PKG_NAME
27996: , p_procedure_name => l_api_name );
27990: p_struc_return_status := NULL ;
27991:
27992: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
27993: THEN
27994: FND_MSG_PUB.add_exc_msg
27995: ( p_pkg_name => G_PKG_NAME
27996: , p_procedure_name => l_api_name );
27997:
27998: END IF;
28050:
28051: IF FND_API.TO_BOOLEAN( p_init_msg_list )
28052: THEN
28053:
28054: FND_MSG_PUB.initialize;
28055:
28056: END IF;
28057:
28058: -- Set API return status to success
28062: -- Check Task index value, when they don't provide an index we will error out
28063: IF p_task_index = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
28064: OR p_task_index IS NULL
28065: THEN
28066: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
28067: THEN
28068: pa_interface_utils_pub.map_new_amg_msg
28069: ( p_old_message_code => 'PA_INDEX_NOT_PROVIDED'
28070: ,p_msg_attribute => 'CHANGE'
28130: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28131: -- 4537865
28132: p_task_version_id := NULL ;
28133:
28134: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
28135: THEN
28136: FND_MSG_PUB.add_exc_msg
28137: ( p_pkg_name => G_PKG_NAME
28138: , p_procedure_name => l_api_name );
28132: p_task_version_id := NULL ;
28133:
28134: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
28135: THEN
28136: FND_MSG_PUB.add_exc_msg
28137: ( p_pkg_name => G_PKG_NAME
28138: , p_procedure_name => l_api_name );
28139:
28140: END IF;
28179:
28180: IF FND_API.TO_BOOLEAN( p_init_msg_list )
28181: THEN
28182:
28183: FND_MSG_PUB.initialize;
28184:
28185: END IF;
28186:
28187: -- Set API return status to success
28190: IF ( p_pa_task_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM OR p_pa_task_id IS NULL ) OR
28191: ( p_pa_project_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM OR p_pa_project_id IS NULL ) OR
28192: ( p_pa_structure_version_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM OR p_pa_structure_version_id IS NULL )
28193: THEN
28194: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
28195: THEN
28196: --My suggestion was to create a new message but Sakthi asked me use the following
28197: --Since these changes are done at the last moment of PA K around build9. We are hesitant to
28198: --log a new message bug. Sakthi suggested to use an existing message PA_PS_INV_STR_VER_ID
28246:
28247: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28248: --4537865
28249: p_task_version_id := NULL ;
28250: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
28251: THEN
28252: FND_MSG_PUB.add_exc_msg
28253: ( p_pkg_name => G_PKG_NAME
28254: , p_procedure_name => l_api_name );
28248: --4537865
28249: p_task_version_id := NULL ;
28250: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
28251: THEN
28252: FND_MSG_PUB.add_exc_msg
28253: ( p_pkg_name => G_PKG_NAME
28254: , p_procedure_name => l_api_name );
28255:
28256: END IF;
28307:
28308: IF FND_API.TO_BOOLEAN( p_init_msg_list )
28309: THEN
28310:
28311: FND_MSG_PUB.initialize;
28312:
28313: END IF;
28314:
28315: -- Set API return status to success
28317:
28318: IF ( p_pa_project_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM OR p_pa_project_id IS NULL ) OR
28319: ( p_structure_version_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM OR p_structure_version_id IS NULL )
28320: THEN
28321: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
28322: THEN
28323:
28324: -- Using the message name PA_PS_INV_STR_VER_ID
28325:
28335:
28336: IF l_temp_cursor%NOTFOUND
28337: THEN
28338: CLOSE l_temp_cursor;
28339: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
28340: THEN
28341: -- Using the message name PA_PS_INV_STR_VER_ID
28342: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
28343: ,p_msg_name => 'PA_PS_INV_STR_VER_ID');
28385: WHEN OTHERS THEN
28386: ROLLBACK TO get_task_version_pub;
28387:
28388: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28389: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
28390: THEN
28391: FND_MSG_PUB.add_exc_msg
28392: ( p_pkg_name => G_PKG_NAME
28393: , p_procedure_name => l_api_name );
28387:
28388: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28389: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
28390: THEN
28391: FND_MSG_PUB.add_exc_msg
28392: ( p_pkg_name => G_PKG_NAME
28393: , p_procedure_name => l_api_name );
28394:
28395: END IF;
28459: -- Initialize the message table if requested.
28460:
28461: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
28462:
28463: FND_MSG_PUB.initialize;
28464:
28465: END IF;
28466:
28467: -- Set API return status to success.
28525:
28526: /* Getting the working structure_version_id */
28527:
28528: if (p_working_str_version_id = NULL or p_working_str_version_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) then
28529: if FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
28530: pa_interface_utils_pub.map_new_amg_msg
28531: (p_old_message_code => 'PA_WRKG_STR_VER_ID_IS_MISSING'
28532: ,p_msg_attribute => 'CHANGE'
28533: ,p_resize_flag => 'N'
28576: end if;
28577:
28578: p_return_status := FND_API.G_RET_STS_ERROR;
28579:
28580: FND_MSG_PUB.Count_And_Get
28581: (p_count => p_msg_count
28582: ,p_data => p_msg_data);
28583:
28584: when FND_API.G_EXC_UNEXPECTED_ERROR then
28587: end if;
28588:
28589: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28590:
28591: FND_MSG_PUB.Count_And_Get
28592: (p_count => p_msg_count
28593: ,p_data => p_msg_data);
28594:
28595: when OTHERS then
28599: end if;
28600:
28601: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28602:
28603: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
28604: THEN
28605: FND_MSG_PUB.add_exc_msg
28606: (p_pkg_name => G_PKG_NAME
28607: ,p_procedure_name => l_api_name);
28601: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28602:
28603: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
28604: THEN
28605: FND_MSG_PUB.add_exc_msg
28606: (p_pkg_name => G_PKG_NAME
28607: ,p_procedure_name => l_api_name);
28608: END IF;
28609:
28606: (p_pkg_name => G_PKG_NAME
28607: ,p_procedure_name => l_api_name);
28608: END IF;
28609:
28610: FND_MSG_PUB.Count_And_Get
28611: (p_count => p_msg_count
28612: ,p_data => p_msg_data);
28613: raise;
28614:
28690:
28691: IF FND_API.TO_BOOLEAN( p_init_msg_list )
28692: THEN
28693:
28694: FND_MSG_PUB.initialize;
28695:
28696: END IF;
28697:
28698: -- Set API return status to success
28755: WHEN OTHERS THEN
28756: ROLLBACK TO load_deliverable_pub;
28757: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28758:
28759: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
28760: THEN
28761: FND_MSG_PUB.add_exc_msg
28762: ( p_pkg_name => G_PKG_NAME
28763: , p_procedure_name => l_api_name );
28757: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28758:
28759: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
28760: THEN
28761: FND_MSG_PUB.add_exc_msg
28762: ( p_pkg_name => G_PKG_NAME
28763: , p_procedure_name => l_api_name );
28764:
28765: END IF;
28841:
28842: IF FND_API.TO_BOOLEAN( p_init_msg_list )
28843: THEN
28844:
28845: FND_MSG_PUB.initialize;
28846:
28847: END IF;
28848:
28849: -- Set API return status to success
28909: ROLLBACK TO load_deliverables_pub;
28910:
28911: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28912:
28913: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
28914: THEN
28915: FND_MSG_PUB.add_exc_msg
28916: ( p_pkg_name => G_PKG_NAME
28917: , p_procedure_name => l_api_name );
28911: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28912:
28913: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
28914: THEN
28915: FND_MSG_PUB.add_exc_msg
28916: ( p_pkg_name => G_PKG_NAME
28917: , p_procedure_name => l_api_name );
28918:
28919: END IF;
29034:
29035: IF FND_API.TO_BOOLEAN( p_init_msg_list )
29036: THEN
29037:
29038: FND_MSG_PUB.initialize;
29039:
29040: END IF;
29041:
29042: -- Set API return status to success
29146: ROLLBACK TO load_action_pub;
29147:
29148: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
29149:
29150: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
29151: THEN
29152: FND_MSG_PUB.add_exc_msg
29153: ( p_pkg_name => G_PKG_NAME
29154: , p_procedure_name => l_api_name );
29148: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
29149:
29150: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
29151: THEN
29152: FND_MSG_PUB.add_exc_msg
29153: ( p_pkg_name => G_PKG_NAME
29154: , p_procedure_name => l_api_name );
29155:
29156: END IF;
29277:
29278: IF FND_API.TO_BOOLEAN( p_init_msg_list )
29279: THEN
29280:
29281: FND_MSG_PUB.initialize;
29282:
29283: END IF;
29284:
29285: -- Set API return status to success
29392: ROLLBACK TO load_actions_pub;
29393:
29394: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
29395:
29396: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
29397: THEN
29398: FND_MSG_PUB.add_exc_msg
29399: ( p_pkg_name => G_PKG_NAME
29400: , p_procedure_name => l_api_name );
29394: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
29395:
29396: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
29397: THEN
29398: FND_MSG_PUB.add_exc_msg
29399: ( p_pkg_name => G_PKG_NAME
29400: , p_procedure_name => l_api_name );
29401:
29402: END IF;
29508:
29509: BEGIN
29510: -- Initialize the message table if requested.
29511: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
29512: FND_MSG_PUB.initialize;
29513: END IF;
29514:
29515: -- 3735792 , setting save point unconditionally
29516: -- IF (p_commit = FND_API.G_TRUE) THEN
29525:
29526: IF l_pm_product_code <> 'X'
29527: AND p_pm_source_code <> 'WORKPLAN'
29528: THEN
29529: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
29530: THEN
29531: pa_interface_utils_pub.map_new_amg_msg
29532: ( p_old_message_code => 'PA_PRODUCT_CODE_IS_INVALID'
29533: ,p_msg_attribute => 'CHANGE'
29642: , p_proj_element_id => l_task_id );
29643:
29644: IF l_wp_task_flag <> 'Y' THEN
29645:
29646: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
29647: THEN
29648:
29649: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
29650: ,p_msg_name => 'PA_TASK_ID_INVALID');
29938: END IF;
29939:
29940: ELSE --l_dlvr_action_enabled <> 'Y'
29941:
29942: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
29943: l_err_message := FND_MESSAGE.GET_STRING('PA','DLVR_ACTION_NOT_ENABLED') ;
29944: PA_UTILS.ADD_MESSAGE
29945: (p_app_short_name => 'PA',
29946: p_msg_name => 'PA_DLVR_VALID_ERR',
29982: pa_debug.reset_curr_function;
29983: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
29984: END IF;
29985: x_return_status := FND_API.G_RET_STS_ERROR;
29986: x_msg_count := FND_MSG_PUB.count_msg;
29987:
29988: IF x_msg_count = 1 THEN
29989: PA_INTERFACE_UTILS_PUB.get_messages
29990: (p_encoded => FND_API.G_FALSE,
30006: pa_debug.reset_curr_function;
30007: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
30008: END IF;
30009: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
30010: x_msg_count := FND_MSG_PUB.count_msg;
30011:
30012: IF x_msg_count = 1 THEN
30013: PA_INTERFACE_UTILS_PUB.get_messages
30014: (p_encoded => FND_API.G_FALSE,
30035: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
30036: pa_debug.reset_curr_function;
30037: END IF;
30038:
30039: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
30040: FND_MSG_PUB.add_exc_msg
30041: ( p_pkg_name => G_PKG_NAME
30042: , p_procedure_name => l_api_name );
30043: END IF;
30036: pa_debug.reset_curr_function;
30037: END IF;
30038:
30039: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
30040: FND_MSG_PUB.add_exc_msg
30041: ( p_pkg_name => G_PKG_NAME
30042: , p_procedure_name => l_api_name );
30043: END IF;
30044: END create_deliverable;
30184: END IF;
30185:
30186: -- Initialize the message table if requested.
30187: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
30188: FND_MSG_PUB.initialize;
30189: END IF;
30190:
30191: IF p_debug_mode = 'Y' THEN
30192: PA_DEBUG.set_curr_function( p_function => l_api_name,
30411:
30412:
30413: ELSE --l_dlvr_action_enabled <> 'Y'
30414:
30415: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
30416: l_err_message := FND_MESSAGE.GET_STRING('PA','DLVR_ACTION_NOT_ENABLED') ;
30417: PA_UTILS.ADD_MESSAGE
30418: (p_app_short_name => 'PA',
30419: p_msg_name => 'PA_DLVR_VALID_ERR',
30477: ROLLBACK TO create_deliverable_actions_pub;
30478: -- END IF;
30479:
30480: x_return_status := FND_API.G_RET_STS_ERROR;
30481: l_msg_count := FND_MSG_PUB.count_msg;
30482:
30483: IF l_msg_count = 1 AND x_msg_data IS NULL
30484: THEN
30485: PA_INTERFACE_UTILS_PUB.get_messages
30508: ROLLBACK TO create_deliverable_actions_pub;
30509: --END IF;
30510:
30511: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
30512: l_msg_count := FND_MSG_PUB.count_msg;
30513:
30514: IF l_msg_count = 1 AND x_msg_data IS NULL
30515: THEN
30516: PA_INTERFACE_UTILS_PUB.get_messages
30549: pa_debug.reset_curr_function;
30550: END IF;
30551:
30552:
30553: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
30554: FND_MSG_PUB.add_exc_msg
30555: ( p_pkg_name => G_PKG_NAME
30556: , p_procedure_name => l_api_name );
30557: END IF;
30550: END IF;
30551:
30552:
30553: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
30554: FND_MSG_PUB.add_exc_msg
30555: ( p_pkg_name => G_PKG_NAME
30556: , p_procedure_name => l_api_name );
30557: END IF;
30558: END create_deliverable_action;
30662:
30663: BEGIN
30664: -- Initialize the message table if requested.
30665: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
30666: FND_MSG_PUB.initialize;
30667: END IF;
30668: ---- --dbms_output.put_line('entering pa_project_pub.Update_deliverable['||p_project_id||']['||p_task_id||']');
30669:
30670: -- 3735792, setting save point unconditionally
30687:
30688: IF l_pm_product_code <> 'X'
30689: AND p_pm_source_code <> 'WORKPLAN'
30690: THEN
30691: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
30692: THEN
30693: pa_interface_utils_pub.map_new_amg_msg
30694: ( p_old_message_code => 'PA_PRODUCT_CODE_IS_INVALID'
30695: ,p_msg_attribute => 'CHANGE'
31084: pa_debug.reset_curr_function;
31085: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
31086: END IF;
31087: x_return_status := FND_API.G_RET_STS_ERROR;
31088: x_msg_count := FND_MSG_PUB.count_msg;
31089:
31090: IF x_msg_count = 1 THEN
31091: PA_INTERFACE_UTILS_PUB.get_messages
31092: (p_encoded => FND_API.G_FALSE,
31108: pa_debug.reset_curr_function;
31109: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
31110: END IF;
31111: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
31112: x_msg_count := FND_MSG_PUB.count_msg;
31113:
31114: IF x_msg_count = 1 THEN
31115: PA_INTERFACE_UTILS_PUB.get_messages
31116: (p_encoded => FND_API.G_FALSE,
31138: pa_debug.reset_curr_function;
31139: END IF;
31140:
31141:
31142: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
31143: FND_MSG_PUB.add_exc_msg
31144: ( p_pkg_name => G_PKG_NAME
31145: , p_procedure_name => l_api_name );
31146: END IF;
31139: END IF;
31140:
31141:
31142: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
31143: FND_MSG_PUB.add_exc_msg
31144: ( p_pkg_name => G_PKG_NAME
31145: , p_procedure_name => l_api_name );
31146: END IF;
31147: END update_deliverable;
31266: END IF;
31267:
31268: -- Initialize the message table if requested.
31269: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
31270: FND_MSG_PUB.initialize;
31271: END IF;
31272:
31273: IF p_debug_mode = 'Y' THEN
31274: PA_DEBUG.set_curr_function( p_function => l_api_name,
31514: pa_debug.reset_curr_function;
31515: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
31516: END IF;
31517: x_return_status := FND_API.G_RET_STS_ERROR;
31518: x_msg_count := FND_MSG_PUB.count_msg;
31519:
31520: IF x_msg_count = 1 THEN
31521: PA_INTERFACE_UTILS_PUB.get_messages
31522: (p_encoded => FND_API.G_FALSE,
31538: pa_debug.reset_curr_function;
31539: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
31540: END IF;
31541: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
31542: x_msg_count := FND_MSG_PUB.count_msg;
31543:
31544: IF x_msg_count = 1 THEN
31545: PA_INTERFACE_UTILS_PUB.get_messages
31546: (p_encoded => FND_API.G_FALSE,
31567: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
31568: pa_debug.reset_curr_function;
31569: END IF;
31570:
31571: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
31572: FND_MSG_PUB.add_exc_msg
31573: ( p_pkg_name => G_PKG_NAME
31574: , p_procedure_name => l_api_name );
31575: END IF;
31568: pa_debug.reset_curr_function;
31569: END IF;
31570:
31571: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
31572: FND_MSG_PUB.add_exc_msg
31573: ( p_pkg_name => G_PKG_NAME
31574: , p_procedure_name => l_api_name );
31575: END IF;
31576:
31612:
31613: BEGIN
31614: -- Initialize the message table if requested.
31615: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
31616: FND_MSG_PUB.initialize;
31617: END IF;
31618:
31619: -- 3735792, setting save point unconditionally
31620: --IF (p_commit = FND_API.G_TRUE) THEN
31754: ROLLBACK TO DELETE_DELIVERABLE_PUB;
31755: --END IF;
31756:
31757: x_return_status := FND_API.G_RET_STS_ERROR;
31758: l_msg_count := FND_MSG_PUB.count_msg;
31759:
31760: IF l_msg_count = 1 AND x_msg_data IS NULL
31761: THEN
31762: PA_INTERFACE_UTILS_PUB.get_messages
31785: ROLLBACK TO DELETE_DELIVERABLE_PUB;
31786: --END IF;
31787:
31788: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
31789: l_msg_count := FND_MSG_PUB.count_msg;
31790:
31791: IF l_msg_count = 1 AND x_msg_data IS NULL
31792: THEN
31793: PA_INTERFACE_UTILS_PUB.get_messages
31824: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
31825: pa_debug.reset_curr_function;
31826: END IF;
31827:
31828: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
31829: FND_MSG_PUB.add_exc_msg
31830: ( p_pkg_name => G_PKG_NAME
31831: , p_procedure_name => l_api_name );
31832: END IF;
31825: pa_debug.reset_curr_function;
31826: END IF;
31827:
31828: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
31829: FND_MSG_PUB.add_exc_msg
31830: ( p_pkg_name => G_PKG_NAME
31831: , p_procedure_name => l_api_name );
31832: END IF;
31833:
31877:
31878: BEGIN
31879: -- Initialize the message table if requested.
31880: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
31881: FND_MSG_PUB.initialize;
31882: END IF;
31883:
31884: -- 3735792, setting save point unconditionally
31885: --IF (p_commit = FND_API.G_TRUE) THEN
32054: ROLLBACK TO DELETE_DELIVERABLE_ACTION_PUB;
32055: --END IF;
32056:
32057: x_return_status := FND_API.G_RET_STS_ERROR;
32058: l_msg_count := FND_MSG_PUB.count_msg;
32059:
32060: IF l_msg_count = 1 AND x_msg_data IS NULL
32061: THEN
32062: PA_INTERFACE_UTILS_PUB.get_messages
32085: ROLLBACK TO DELETE_DELIVERABLE_ACTION_PUB;
32086: --END IF;
32087:
32088: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
32089: l_msg_count := FND_MSG_PUB.count_msg;
32090:
32091: IF l_msg_count = 1 AND x_msg_data IS NULL
32092: THEN
32093: PA_INTERFACE_UTILS_PUB.get_messages
32125: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
32126: pa_debug.reset_curr_function;
32127: END IF;
32128:
32129: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
32130: FND_MSG_PUB.add_exc_msg
32131: ( p_pkg_name => G_PKG_NAME
32132: , p_procedure_name => l_api_name );
32133: END IF;
32126: pa_debug.reset_curr_function;
32127: END IF;
32128:
32129: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
32130: FND_MSG_PUB.add_exc_msg
32131: ( p_pkg_name => G_PKG_NAME
32132: , p_procedure_name => l_api_name );
32133: END IF;
32134:
32177: BEGIN
32178:
32179: -- Initialize the message table if requested.
32180: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
32181: FND_MSG_PUB.initialize;
32182: END IF;
32183:
32184: -- 3735792, setting save point unconditionally
32185: --IF (p_commit = FND_API.G_TRUE) THEN
32341: ROLLBACK TO DELETE_DLV_TO_TASK_ASSCN_PUB;
32342: --END IF;
32343:
32344: x_return_status := FND_API.G_RET_STS_ERROR;
32345: l_msg_count := FND_MSG_PUB.count_msg;
32346:
32347: IF l_msg_count = 1 AND x_msg_data IS NULL
32348: THEN
32349: PA_INTERFACE_UTILS_PUB.get_messages
32371: ROLLBACK TO DELETE_DLV_TO_TASK_ASSCN_PUB;
32372: --END IF;
32373:
32374: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
32375: l_msg_count := FND_MSG_PUB.count_msg;
32376:
32377: IF l_msg_count = 1 AND x_msg_data IS NULL
32378: THEN
32379: PA_INTERFACE_UTILS_PUB.get_messages
32410: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
32411: pa_debug.reset_curr_function;
32412: END IF;
32413:
32414: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
32415: FND_MSG_PUB.add_exc_msg
32416: ( p_pkg_name => G_PKG_NAME
32417: , p_procedure_name => l_api_name );
32418: END IF;
32411: pa_debug.reset_curr_function;
32412: END IF;
32413:
32414: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
32415: FND_MSG_PUB.add_exc_msg
32416: ( p_pkg_name => G_PKG_NAME
32417: , p_procedure_name => l_api_name );
32418: END IF;
32419:
32466: BEGIN
32467:
32468: -- Initialize the message table if requested.
32469: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
32470: FND_MSG_PUB.initialize;
32471: END IF;
32472:
32473: -- 3735792, setting save point unconditionally
32474: --IF (p_commit = FND_API.G_TRUE) THEN
32572: , p_proj_element_id => l_task_id );
32573:
32574: IF l_wp_task_flag <> 'Y' THEN
32575:
32576: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
32577: THEN
32578:
32579: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
32580: ,p_msg_name => 'PA_TASK_ID_INVALID');
32635: ROLLBACK TO ASSOCIATE_DLV_TO_TASK_PUB;
32636: --END IF;
32637:
32638: x_return_status := FND_API.G_RET_STS_ERROR;
32639: l_msg_count := FND_MSG_PUB.count_msg;
32640:
32641: IF l_msg_count = 1 AND x_msg_data IS NULL
32642: THEN
32643: PA_INTERFACE_UTILS_PUB.get_messages
32665: ROLLBACK TO ASSOCIATE_DLV_TO_TASK_PUB;
32666: --END IF;
32667:
32668: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
32669: l_msg_count := FND_MSG_PUB.count_msg;
32670:
32671: IF l_msg_count = 1 AND x_msg_data IS NULL
32672: THEN
32673: PA_INTERFACE_UTILS_PUB.get_messages
32704: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
32705: pa_debug.reset_curr_function;
32706: END IF;
32707:
32708: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
32709: FND_MSG_PUB.add_exc_msg
32710: ( p_pkg_name => G_PKG_NAME
32711: , p_procedure_name => l_api_name );
32712: END IF;
32705: pa_debug.reset_curr_function;
32706: END IF;
32707:
32708: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
32709: FND_MSG_PUB.add_exc_msg
32710: ( p_pkg_name => G_PKG_NAME
32711: , p_procedure_name => l_api_name );
32712: END IF;
32713:
32753: BEGIN
32754:
32755: -- Initialize the message table if requested.
32756: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
32757: FND_MSG_PUB.initialize;
32758: END IF;
32759:
32760: -- 3735792, setting save point unconditionally
32761: -- IF (p_commit = FND_API.G_TRUE) THEN
32915: ROLLBACK TO ASSOCIATE_DLV_TO_TASK_ASSIGN;
32916: -- END IF;
32917:
32918: x_return_status := FND_API.G_RET_STS_ERROR;
32919: l_msg_count := FND_MSG_PUB.count_msg;
32920:
32921: IF l_msg_count = 1 AND x_msg_data IS NULL
32922: THEN
32923: PA_INTERFACE_UTILS_PUB.get_messages
32944: --IF (p_commit = FND_API.G_TRUE) THEN
32945: ROLLBACK TO ASSOCIATE_DLV_TO_TASK_ASSIGN;
32946: --END IF;
32947: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
32948: l_msg_count := FND_MSG_PUB.count_msg;
32949:
32950: IF l_msg_count = 1 AND x_msg_data IS NULL
32951: THEN
32952: PA_INTERFACE_UTILS_PUB.get_messages
32983: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
32984: pa_debug.reset_curr_function;
32985: END IF;
32986:
32987: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
32988: FND_MSG_PUB.add_exc_msg
32989: ( p_pkg_name => G_PKG_NAME
32990: , p_procedure_name => l_api_name );
32991: END IF;
32984: pa_debug.reset_curr_function;
32985: END IF;
32986:
32987: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
32988: FND_MSG_PUB.add_exc_msg
32989: ( p_pkg_name => G_PKG_NAME
32990: , p_procedure_name => l_api_name );
32991: END IF;
32992:
33047: BEGIN
33048:
33049: -- Initialize the message table if requested.
33050: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
33051: FND_MSG_PUB.initialize;
33052: END IF;
33053:
33054: -- 3735792, setting save point unconditionally
33055: --IF (p_commit = FND_API.G_TRUE) THEN
33220: ROLLBACK TO ASSOCIATE_DLV_TO_TASK_ASSIGN;
33221: --END IF;
33222:
33223: x_return_status := FND_API.G_RET_STS_ERROR;
33224: l_msg_count := FND_MSG_PUB.count_msg;
33225:
33226: IF l_msg_count = 1 AND x_msg_data IS NULL
33227: THEN
33228: PA_INTERFACE_UTILS_PUB.get_messages
33250: ROLLBACK TO ASSOCIATE_DLV_TO_TASK_ASSIGN;
33251: --END IF;
33252:
33253: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
33254: l_msg_count := FND_MSG_PUB.count_msg;
33255:
33256: IF l_msg_count = 1 AND x_msg_data IS NULL
33257: THEN
33258: PA_INTERFACE_UTILS_PUB.get_messages
33289: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
33290: pa_debug.reset_curr_function;
33291: END IF;
33292:
33293: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
33294: FND_MSG_PUB.add_exc_msg
33295: ( p_pkg_name => G_PKG_NAME
33296: , p_procedure_name => l_api_name );
33297: END IF;
33290: pa_debug.reset_curr_function;
33291: END IF;
33292:
33293: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
33294: FND_MSG_PUB.add_exc_msg
33295: ( p_pkg_name => G_PKG_NAME
33296: , p_procedure_name => l_api_name );
33297: END IF;
33298:
33353: x_return_status := FND_API.G_RET_STS_SUCCESS;
33354:
33355: -- Initialize the message table if requested.
33356: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
33357: FND_MSG_PUB.initialize;
33358: END IF;
33359:
33360: -- Bug 4142254 : Commenting this condition, as we want to create savepoint always.
33361: -- We could have done other way around too i.e. Savepoint and rollback shoud both be in
33564: WHEN OTHERS THEN
33565: ROLLBACK TO DELETE_MAPPING_PUB;
33566: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
33567:
33568: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
33569: FND_MSG_PUB.add_exc_msg
33570: ( p_pkg_name => G_PKG_NAME
33571: , p_procedure_name => l_api_name );
33572: END IF;
33565: ROLLBACK TO DELETE_MAPPING_PUB;
33566: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
33567:
33568: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
33569: FND_MSG_PUB.add_exc_msg
33570: ( p_pkg_name => G_PKG_NAME
33571: , p_procedure_name => l_api_name );
33572: END IF;
33573:
33641:
33642: BEGIN
33643: -- Initialize the message table if requested.
33644: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
33645: FND_MSG_PUB.initialize;
33646: END IF;
33647:
33648: IF (p_commit = FND_API.G_TRUE) THEN
33649: savepoint CREATE_MAPPING_PUB;
33926: ROLLBACK TO CREATE_MAPPING_PUB;
33927: END IF;
33928: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
33929:
33930: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
33931: FND_MSG_PUB.add_exc_msg
33932: ( p_pkg_name => G_PKG_NAME
33933: , p_procedure_name => l_api_name );
33934: END IF;
33927: END IF;
33928: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
33929:
33930: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
33931: FND_MSG_PUB.add_exc_msg
33932: ( p_pkg_name => G_PKG_NAME
33933: , p_procedure_name => l_api_name );
33934: END IF;
33935: END create_mapping;
34003:
34004: BEGIN
34005: -- Initialize the message table if requested.
34006: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
34007: FND_MSG_PUB.initialize;
34008: END IF;
34009:
34010: IF (p_commit = FND_API.G_TRUE) THEN
34011: savepoint UPDATE_MAPPING_PUB;
34274: ROLLBACK TO UPDATE_MAPPING_PUB;
34275: END IF;
34276: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
34277:
34278: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
34279: FND_MSG_PUB.add_exc_msg
34280: ( p_pkg_name => G_PKG_NAME
34281: , p_procedure_name => l_api_name );
34282: END IF;
34275: END IF;
34276: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
34277:
34278: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
34279: FND_MSG_PUB.add_exc_msg
34280: ( p_pkg_name => G_PKG_NAME
34281: , p_procedure_name => l_api_name );
34282: END IF;
34283: END UPDATE_MAPPING;
34323:
34324: BEGIN
34325: --Initialize the message table if requested.
34326: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
34327: FND_MSG_PUB.initialize;
34328: END IF;
34329:
34330: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
34331: IF l_debug_mode = 'Y' THEN
34451: WHEN OTHERS THEN
34452:
34453: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
34454:
34455: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
34456: FND_MSG_PUB.add_exc_msg
34457: ( p_pkg_name => G_PKG_NAME
34458: , p_procedure_name => l_api_name );
34459: END IF;
34452:
34453: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
34454:
34455: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
34456: FND_MSG_PUB.add_exc_msg
34457: ( p_pkg_name => G_PKG_NAME
34458: , p_procedure_name => l_api_name );
34459: END IF;
34460: END process_tasks_table;
34529: savepoint create_dep_pub_amg;
34530:
34531: IF FND_API.TO_BOOLEAN( p_init_msg_list )
34532: THEN
34533: FND_MSG_PUB.Initialize;
34534: END IF;
34535:
34536: --get project id
34537: PA_PROJECT_PVT.Convert_pm_projref_to_id
34682: p_return_status := FND_API.G_RET_STS_ERROR;
34683:
34684: -- Begin fix for Bug # 4323969.
34685:
34686: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
34687: , p_data => p_msg_data);
34688:
34689: -- End fix for Bug # 4323969.
34690:
34693: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
34694:
34695: -- Begin fix for Bug # 4323969.
34696:
34697: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
34698: , p_data => p_msg_data);
34699:
34700: -- End fix for Bug # 4323969.
34701:
34704: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
34705:
34706: -- Begin fix for Bug # 4323969.
34707:
34708: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
34709: , p_data => p_msg_data);
34710:
34711: -- End fix for Bug # 4323969.
34712:
34787: savepoint update_dep_pub_amg;
34788:
34789: IF FND_API.TO_BOOLEAN( p_init_msg_list )
34790: THEN
34791: FND_MSG_PUB.Initialize;
34792: END IF;
34793:
34794: --get project id
34795: PA_PROJECT_PVT.Convert_pm_projref_to_id
34946: ROLLBACK TO update_dep_pub_amg;
34947: p_return_status := FND_API.G_RET_STS_ERROR;
34948:
34949: -- 4537865 Included same fix as 4323969.
34950: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
34951: , p_data => p_msg_data);
34952:
34953: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
34954: ROLLBACK TO update_dep_pub_amg;
34954: ROLLBACK TO update_dep_pub_amg;
34955: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
34956:
34957: -- 4537865 : Included same fix as 4323969.
34958: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
34959: , p_data => p_msg_data);
34960:
34961: When OTHERS then
34962: ROLLBACK TO update_dep_pub_amg;
34960:
34961: When OTHERS then
34962: ROLLBACK TO update_dep_pub_amg;
34963: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
34964: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
34965:
34966: FND_MSG_PUB.add_exc_msg
34967: (p_pkg_name => G_PKG_NAME
34968: , p_procedure_name => 'Update_Dependency');
34962: ROLLBACK TO update_dep_pub_amg;
34963: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
34964: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
34965:
34966: FND_MSG_PUB.add_exc_msg
34967: (p_pkg_name => G_PKG_NAME
34968: , p_procedure_name => 'Update_Dependency');
34969:
34970: END IF;
34968: , p_procedure_name => 'Update_Dependency');
34969:
34970: END IF;
34971: -- 4537865 : Included same fix as 4323969.
34972: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
34973: , p_data => p_msg_data);
34974: END Update_Dependency;
34975:
34976:
35048: savepoint delete_dep_pub_amg;
35049:
35050: IF FND_API.TO_BOOLEAN( p_init_msg_list )
35051: THEN
35052: FND_MSG_PUB.Initialize;
35053: END IF;
35054:
35055: --get project id
35056: PA_PROJECT_PVT.Convert_pm_projref_to_id
35201: WHEN FND_API.G_EXC_ERROR THEN
35202: ROLLBACK TO delete_dep_pub_amg;
35203: p_return_status := FND_API.G_RET_STS_ERROR;
35204: -- 4537865 Included same fix as 4323969.
35205: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
35206: , p_data => p_msg_data);
35207: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
35208: ROLLBACK TO delete_dep_pub_amg;
35209: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
35207: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
35208: ROLLBACK TO delete_dep_pub_amg;
35209: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
35210: -- 4537865 Included same fix as 4323969.
35211: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
35212: , p_data => p_msg_data);
35213: When OTHERS then
35214: ROLLBACK TO delete_dep_pub_amg;
35215: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
35213: When OTHERS then
35214: ROLLBACK TO delete_dep_pub_amg;
35215: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
35216:
35217: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
35218:
35219: FND_MSG_PUB.add_exc_msg
35220: (p_pkg_name => G_PKG_NAME
35221: , p_procedure_name => 'Delete_Dependency');
35215: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
35216:
35217: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
35218:
35219: FND_MSG_PUB.add_exc_msg
35220: (p_pkg_name => G_PKG_NAME
35221: , p_procedure_name => 'Delete_Dependency');
35222:
35223: END IF;
35221: , p_procedure_name => 'Delete_Dependency');
35222:
35223: END IF;
35224: -- 4537865 Included same fix as 4323969.
35225: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
35226: , p_data => p_msg_data);
35227:
35228: END Delete_Dependency;
35229: --
35388: END IF;
35389:
35390: IF FND_API.TO_BOOLEAN(p_init_msg_list) THEN
35391:
35392: FND_MSG_PUB.initialize;
35393:
35394: END IF;
35395:
35396: p_return_status := FND_API.G_RET_STS_SUCCESS;
35614:
35615: -- 4537865
35616: p_check_task_mfd_flag := NULL ;
35617:
35618: FND_MSG_PUB.Count_And_Get
35619: ( p_count => p_msg_count ,
35620: p_data => p_msg_data );
35621:
35622: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
35625:
35626: -- 4537865
35627: p_check_task_mfd_flag := NULL ;
35628:
35629: FND_MSG_PUB.Count_And_Get
35630: ( p_count => p_msg_count ,
35631: p_data => p_msg_data );
35632:
35633: WHEN OTHERS THEN
35635: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
35636:
35637: p_check_task_mfd_flag := NULL ; -- 4537865
35638:
35639: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
35640:
35641: FND_MSG_PUB.add_exc_msg
35642: (p_pkg_name => G_PKG_NAME
35643: , p_procedure_name => l_api_name);
35637: p_check_task_mfd_flag := NULL ; -- 4537865
35638:
35639: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
35640:
35641: FND_MSG_PUB.add_exc_msg
35642: (p_pkg_name => G_PKG_NAME
35643: , p_procedure_name => l_api_name);
35644:
35645: END IF;
35643: , p_procedure_name => l_api_name);
35644:
35645: END IF;
35646:
35647: FND_MSG_PUB.Count_And_Get
35648: (p_count => p_msg_count
35649: , p_data => p_msg_data);
35650:
35651: END check_task_mfd;
35688: x_deleted_task_ids := PA_PROJECT_PUB.G_DELETED_TASK_IDS_FROM_OP;
35689: EXCEPTION
35690: WHEN OTHERS THEN
35691: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
35692: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
35693:
35694: FND_MSG_PUB.add_exc_msg
35695: (p_pkg_name => G_PKG_NAME
35696: , p_procedure_name => 'get_deleted_tasks_from_op');
35690: WHEN OTHERS THEN
35691: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
35692: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
35693:
35694: FND_MSG_PUB.add_exc_msg
35695: (p_pkg_name => G_PKG_NAME
35696: , p_procedure_name => 'get_deleted_tasks_from_op');
35697:
35698: END IF;
35696: , p_procedure_name => 'get_deleted_tasks_from_op');
35697:
35698: END IF;
35699:
35700: FND_MSG_PUB.Count_And_Get
35701: (p_count => x_msg_count
35702: , p_data => x_msg_data);
35703:
35704: END get_deleted_tasks_from_op;
35764:
35765: IF FND_API.TO_BOOLEAN( p_init_msg_list )
35766: THEN
35767:
35768: FND_MSG_PUB.initialize;
35769:
35770: END IF;
35771:
35772: -- Set API return status to success
35947:
35948: p_msg_count := l_msg_count;
35949: p_msg_data := l_msg_data;
35950:
35951: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
35952: , p_data => p_msg_data);
35953:
35954:
35955: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
35959:
35960: p_msg_count := l_msg_count;
35961: p_msg_data := l_msg_data;
35962:
35963: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
35964: , p_data => p_msg_data);
35965:
35966: WHEN OTHERS THEN
35967: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
35965:
35966: WHEN OTHERS THEN
35967: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
35968:
35969: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
35970: FND_MSG_PUB.add_exc_msg
35971: (p_pkg_name => G_PKG_NAME
35972: ,p_procedure_name => l_api_name
35973: ,p_error_text => SUBSTRB(SQLERRM,1,120));
35966: WHEN OTHERS THEN
35967: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
35968:
35969: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
35970: FND_MSG_PUB.add_exc_msg
35971: (p_pkg_name => G_PKG_NAME
35972: ,p_procedure_name => l_api_name
35973: ,p_error_text => SUBSTRB(SQLERRM,1,120));
35974: END IF;
35974: END IF;
35975:
35976: ROLLBACK TO process_structure_updates;
35977:
35978: p_msg_count := fnd_msg_pub.count_msg;
35979: p_msg_data := SUBSTRB(SQLERRM,1,120);
35980:
35981: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
35982: , p_data => p_msg_data);
35977:
35978: p_msg_count := fnd_msg_pub.count_msg;
35979: p_msg_data := SUBSTRB(SQLERRM,1,120);
35980:
35981: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
35982: , p_data => p_msg_data);
35983:
35984: END process_structure_updates;
35985: -- -------------
36199: savepoint SETUP_PROJECT_AS_PROGRAM_AMG;
36200:
36201: -- Initialize the message table if requested.
36202: if FND_API.TO_BOOLEAN(p_init_msg_list) then
36203: FND_MSG_PUB.initialize;
36204: end if;
36205:
36206: -- Standard call to check for API compatibility.
36207: if NOT FND_API.Compatible_API_Call (g_api_version_number, p_api_version, l_api_name, G_PKG_NAME) then
36314:
36315: when FND_API.G_EXC_ERROR then
36316: rollback to SETUP_PROJECT_AS_PROGRAM_AMG;
36317: x_return_status := FND_API.G_RET_STS_ERROR;
36318: x_msg_count := FND_MSG_PUB.count_msg;
36319:
36320: if x_msg_count = 1 then
36321: PA_INTERFACE_UTILS_PUB.get_messages
36322: (p_encoded => FND_API.G_FALSE
36329:
36330: when FND_API.G_EXC_UNEXPECTED_ERROR then
36331: rollback to SETUP_PROJECT_AS_PROGRAM_AMG;
36332: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
36333: x_msg_count := FND_MSG_PUB.count_msg;
36334:
36335: if x_msg_count = 1 then
36336: PA_INTERFACE_UTILS_PUB.get_messages
36337: (p_encoded => FND_API.G_FALSE
36346: rollback to SETUP_PROJECT_AS_PROGRAM_AMG;
36347: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
36348: x_msg_count := 1;
36349: x_msg_data := SQLERRM;
36350: if FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
36351: FND_MSG_PUB.add_exc_msg
36352: ( p_pkg_name => G_PKG_NAME
36353: , p_procedure_name => l_api_name);
36354: end if;
36347: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
36348: x_msg_count := 1;
36349: x_msg_data := SQLERRM;
36350: if FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
36351: FND_MSG_PUB.add_exc_msg
36352: ( p_pkg_name => G_PKG_NAME
36353: , p_procedure_name => l_api_name);
36354: end if;
36355:
36473: savepoint CREATE_PROGRAM_LINKS_AMG;
36474:
36475: -- Initialize the message table if requested.
36476: if FND_API.TO_BOOLEAN(p_init_msg_list) then
36477: FND_MSG_PUB.initialize;
36478: end if;
36479:
36480: -- Standard call to check for API compatibility.
36481: if NOT FND_API.Compatible_API_Call (g_api_version_number, p_api_version, l_api_name, G_PKG_NAME) then
36492: -- Loop through the records in the input PL/SQL table.
36493: for l_count in p_program_links_tbl.FIRST..p_program_links_tbl.LAST loop
36494:
36495: -- Clear the message stack.
36496: FND_MSG_PUB.initialize;
36497:
36498: -- Initialize the error flags.
36499: l_unexp_error_flag := 'N';
36500: l_exp_error_flag := 'N';
36862: -- Set the return status to error.
36863: x_return_status := FND_API.G_RET_STS_ERROR;
36864:
36865: -- Clear all previous messages from the message stack.
36866: FND_MSG_PUB.initialize;
36867:
36868: -- Populate the generic error message.
36869: PA_UTILS.ADD_MESSAGE('PA','PA_PS_GENERIC_ERROR');
36870:
36892:
36893: when FND_API.G_EXC_ERROR then
36894: rollback to CREATE_PROGRAM_LINKS_AMG;
36895: x_return_status := FND_API.G_RET_STS_ERROR;
36896: x_msg_count := FND_MSG_PUB.count_msg;
36897:
36898: if x_msg_count = 1 then
36899: PA_INTERFACE_UTILS_PUB.get_messages
36900: (p_encoded => FND_API.G_FALSE
36907:
36908: when FND_API.G_EXC_UNEXPECTED_ERROR then
36909: rollback to CREATE_PROGRAM_LINKS_AMG;
36910: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
36911: x_msg_count := FND_MSG_PUB.count_msg;
36912:
36913: if x_msg_count = 1 then
36914: PA_INTERFACE_UTILS_PUB.get_messages
36915: (p_encoded => FND_API.G_FALSE
36924: rollback to CREATE_PROGRAM_LINKS_AMG;
36925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
36926: x_msg_count := 1;
36927: x_msg_data := SQLERRM;
36928: if FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
36929: FND_MSG_PUB.add_exc_msg
36930: ( p_pkg_name => G_PKG_NAME
36931: , p_procedure_name => l_api_name);
36932: end if;
36925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
36926: x_msg_count := 1;
36927: x_msg_data := SQLERRM;
36928: if FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
36929: FND_MSG_PUB.add_exc_msg
36930: ( p_pkg_name => G_PKG_NAME
36931: , p_procedure_name => l_api_name);
36932: end if;
36933:
37064: savepoint UPDATE_PROGRAM_LINK_CMNTS_AMG;
37065:
37066: -- Initialize the message table if requested.
37067: if FND_API.TO_BOOLEAN(p_init_msg_list) then
37068: FND_MSG_PUB.initialize;
37069: end if;
37070:
37071: -- Standard call to check for API compatibility.
37072: if NOT FND_API.Compatible_API_Call (g_api_version_number, p_api_version, l_api_name, G_PKG_NAME) then
37083: -- Loop through the records in the input PL/SQL table.
37084: for l_count in p_program_links_tbl.FIRST..p_program_links_tbl.LAST loop
37085:
37086: -- Clear the message stack.
37087: FND_MSG_PUB.initialize;
37088:
37089: -- Initialize the error flags.
37090: l_unexp_error_flag := 'N';
37091: l_exp_error_flag := 'N';
37443: -- Set the return status to error.
37444: x_return_status := FND_API.G_RET_STS_ERROR;
37445:
37446: -- Clear all previous messages from the message stack.
37447: FND_MSG_PUB.initialize;
37448:
37449: -- Populate the generic error message.
37450: PA_UTILS.ADD_MESSAGE('PA','PA_PS_GENERIC_ERROR');
37451:
37473:
37474: when FND_API.G_EXC_ERROR then
37475: rollback to UPDATE_PROGRAM_LINK_CMNTS_AMG;
37476: x_return_status := FND_API.G_RET_STS_ERROR;
37477: x_msg_count := FND_MSG_PUB.count_msg;
37478:
37479: if x_msg_count = 1 then
37480: PA_INTERFACE_UTILS_PUB.get_messages
37481: (p_encoded => FND_API.G_FALSE
37488:
37489: when FND_API.G_EXC_UNEXPECTED_ERROR then
37490: rollback to UPDATE_PROGRAM_LINK_CMNTS_AMG;
37491: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
37492: x_msg_count := FND_MSG_PUB.count_msg;
37493:
37494: if x_msg_count = 1 then
37495: PA_INTERFACE_UTILS_PUB.get_messages
37496: (p_encoded => FND_API.G_FALSE
37505: rollback to UPDATE_PROGRAM_LINK_CMNTS_AMG;
37506: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
37507: x_msg_count := 1;
37508: x_msg_data := SQLERRM;
37509: if FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
37510: FND_MSG_PUB.add_exc_msg
37511: ( p_pkg_name => G_PKG_NAME
37512: , p_procedure_name => l_api_name);
37513: end if;
37506: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
37507: x_msg_count := 1;
37508: x_msg_data := SQLERRM;
37509: if FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
37510: FND_MSG_PUB.add_exc_msg
37511: ( p_pkg_name => G_PKG_NAME
37512: , p_procedure_name => l_api_name);
37513: end if;
37514:
37628: savepoint DELETE_PROGRAM_LINK_AMG;
37629:
37630: -- Initialize the message table if requested.
37631: if FND_API.TO_BOOLEAN(p_init_msg_list) then
37632: FND_MSG_PUB.initialize;
37633: end if;
37634:
37635: -- Standard call to check for API compatibility.
37636: if NOT FND_API.Compatible_API_Call (g_api_version_number, p_api_version, l_api_name, G_PKG_NAME) then
37896:
37897: when FND_API.G_EXC_ERROR then
37898: rollback to DELETE_PROGRAM_LINK_AMG;
37899: x_return_status := FND_API.G_RET_STS_ERROR;
37900: x_msg_count := FND_MSG_PUB.count_msg;
37901:
37902: if x_msg_count = 1 then
37903: PA_INTERFACE_UTILS_PUB.get_messages
37904: (p_encoded => FND_API.G_FALSE
37911:
37912: when FND_API.G_EXC_UNEXPECTED_ERROR then
37913: rollback to DELETE_PROGRAM_LINK_AMG;
37914: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
37915: x_msg_count := FND_MSG_PUB.count_msg;
37916:
37917: if x_msg_count = 1 then
37918: PA_INTERFACE_UTILS_PUB.get_messages
37919: (p_encoded => FND_API.G_FALSE
37928: rollback to DELETE_PROGRAM_LINK_AMG;
37929: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
37930: x_msg_count := 1;
37931: x_msg_data := SQLERRM;
37932: if FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
37933: FND_MSG_PUB.add_exc_msg
37934: ( p_pkg_name => G_PKG_NAME
37935: , p_procedure_name => l_api_name);
37936: end if;
37929: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
37930: x_msg_count := 1;
37931: x_msg_data := SQLERRM;
37932: if FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
37933: FND_MSG_PUB.add_exc_msg
37934: ( p_pkg_name => G_PKG_NAME
37935: , p_procedure_name => l_api_name);
37936: end if;
37937:
38031: WHEN OTHERS THEN
38032:
38033: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
38034:
38035: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
38036: THEN
38037: FND_MSG_PUB.add_exc_msg
38038: ( p_pkg_name => G_PKG_NAME
38039: , p_procedure_name => l_api_name );
38033: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
38034:
38035: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
38036: THEN
38037: FND_MSG_PUB.add_exc_msg
38038: ( p_pkg_name => G_PKG_NAME
38039: , p_procedure_name => l_api_name );
38040:
38041: END IF;