[Home] [Help]
781:
782: IF FND_API.TO_BOOLEAN( p_init_msg_list )
783: THEN
784:
785: FND_MSG_PUB.initialize;
786:
787: END IF;
788:
789: -- Set API return status to success
830: AND p_pm_product_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
831: --bug 2841158
832: THEN
833:
834: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
835: THEN
836: pa_interface_utils_pub.map_new_amg_msg
837: ( p_old_message_code => 'PA_PRODUCT_CODE_IS_MISSING'
838: ,p_msg_attribute => 'CHANGE'
862:
863: IF l_pm_product_code <> 'X'
864: THEN
865:
866: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
867: THEN
868: pa_interface_utils_pub.map_new_amg_msg
869: ( p_old_message_code => 'PA_PRODUCT_CODE_IS_INVALID'
870: ,p_msg_attribute => 'CHANGE'
885: IF l_project_in_rec.pm_project_reference IS NULL
886: OR l_project_in_rec.pm_project_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
887: THEN
888:
889: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
890: THEN
891: pa_interface_utils_pub.map_new_amg_msg
892: ( p_old_message_code => 'PA_PROJECT_REF_IS_MISSING'
893: ,p_msg_attribute => 'CHANGE'
907: IF l_project_in_rec.project_name IS NULL
908: OR l_project_in_rec.project_name = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
909: THEN
910:
911: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
912: THEN
913: pa_interface_utils_pub.map_new_amg_msg
914: ( p_old_message_code => 'PA_PROJECT_NAME_IS_MISSING'
915: ,p_msg_attribute => 'CHANGE'
930:
931: IF pa_project_utils.check_unique_project_name
932: (l_project_in_rec.project_name,
933: NULL ) = 0 THEN
934: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
935: THEN
936: pa_interface_utils_pub.map_new_amg_msg
937: ( p_old_message_code => 'PA_PR_EPR_PROJ_NAME_NOT_UNIQUE'
938: ,p_msg_attribute => 'CHANGE'
951: ELSE
952: pjm_seiban_pkg.project_name_dup(l_project_in_rec.project_name,l_dup_name_flag);
953:
954: IF l_dup_name_flag = 'Y' THEN
955: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
956: THEN
957: pa_interface_utils_pub.map_new_amg_msg
958: ( p_old_message_code => 'PA_SEIBAN_NAME_NOT_UNIQUE'
959: ,p_msg_attribute => 'CHANGE'
977: AND l_project_in_rec.long_name IS NOT NULL THEN
978: IF pa_project_utils.check_unique_long_name
979: (l_project_in_rec.long_name,
980: NULL ) = 0 THEN
981: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
982: THEN
983: pa_interface_utils_pub.map_new_amg_msg
984: ( p_old_message_code => 'PA_PR_EPR_LONG_NAME_NOT_UNIQUE'
985: ,p_msg_attribute => 'CHANGE'
1004: (l_project_in_rec.pm_project_reference,
1005: p_pm_product_code, -- added for bug 4870305
1006: NULL ) = 0
1007: THEN
1008: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1009: THEN
1010: pa_interface_utils_pub.map_new_amg_msg
1011: ( p_old_message_code => 'PA_PROJECT_REF_NOT_UNIQUE'
1012: ,p_msg_attribute => 'CHANGE'
1043: IF G_PROJECT_NUMBER_GEN_MODE = 'MANUAL' THEN
1044: IF pa_project_utils.check_unique_project_number
1045: (l_create_project_number,
1046: NULL ) = 0 THEN
1047: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1048: pa_interface_utils_pub.map_new_amg_msg
1049: ( p_old_message_code => 'PA_PR_EPR_PROJ_NUM_NOT_UNIQUE'
1050: ,p_msg_attribute => 'CHANGE'
1051: ,p_resize_flag => 'Y'
1063: ELSE
1064: pjm_seiban_pkg.project_number_dup(l_create_project_number,l_dup_name_flag);
1065:
1066: IF l_dup_name_flag = 'Y' THEN
1067: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1068: THEN
1069: pa_interface_utils_pub.map_new_amg_msg
1070: ( p_old_message_code => 'PA_SEIBAN_NUM_NOT_UNIQUE'
1071: ,p_msg_attribute => 'CHANGE'
1092: TO_NUMBER(l_create_project_number);
1093: END IF;
1094: EXCEPTION
1095: WHEN VALUE_ERROR THEN
1096: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1097: pa_interface_utils_pub.map_new_amg_msg
1098: ( p_old_message_code => 'PA_PR_NUMERIC_NUM_REQ'
1099: ,p_msg_attribute => 'CHANGE'
1100: ,p_resize_flag => 'N'
1114: IF l_project_in_rec.created_from_project_id IS NULL
1115: OR l_project_in_rec.created_from_project_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1116: THEN
1117:
1118: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1119: THEN
1120: pa_interface_utils_pub.map_new_amg_msg
1121: ( p_old_message_code => 'PA_SOURCE_TEMPLATE_IS_MISSING'
1122: ,p_msg_attribute => 'CHANGE'
1149: FETCH l_temp_flag_csr INTO l_temp_flag;
1150: IF l_temp_flag_csr%NOTFOUND
1151: THEN
1152: CLOSE l_temp_flag_csr;
1153: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1154: THEN
1155: pa_interface_utils_pub.map_new_amg_msg
1156: ( p_old_message_code => 'PA_SOURCE_TEMPLATE_INVALID'
1157: ,p_msg_attribute => 'CHANGE'
1179: -- if template is inactive then throw error message
1180:
1181: IF l_temp_eff_flag = 'N' THEN
1182:
1183: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1184:
1185: pa_utils.add_message
1186: (
1187: p_app_short_name => 'PA'
1237: END LOOP;
1238:
1239: IF NOT l_is_overridable
1240: THEN
1241: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1242: THEN
1243: FND_MESSAGE.SET_NAME('PA','PA_DESCRIPTION_NOT_OVERRIDABLE');
1244: FND_MSG_PUB.add;
1245: END IF;
1240: THEN
1241: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1242: THEN
1243: FND_MESSAGE.SET_NAME('PA','PA_DESCRIPTION_NOT_OVERRIDABLE');
1244: FND_MSG_PUB.add;
1245: END IF;
1246:
1247: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1248: RAISE FND_API.G_EXC_ERROR;
1341: IF l_project_in_rec.carrying_out_organization_id IS NULL
1342: OR l_project_in_rec.carrying_out_organization_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1343: THEN
1344:
1345: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1346: THEN
1347: pa_interface_utils_pub.map_new_amg_msg
1348: ( p_old_message_code => 'PA_ORGANIZATION_ID_IS_NULL'
1349: ,p_msg_attribute => 'CHANGE'
1367: j := l_class_categories.first;
1368:
1369: IF j IS NULL THEN
1370:
1371: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1372: THEN
1373: pa_interface_utils_pub.map_new_amg_msg
1374: ( p_old_message_code => 'PA_CLASSIFICATION_IS_NULL'
1375: ,p_msg_attribute => 'CHANGE'
1397: -- check whether the class category and class code combination is a valid one
1398: IF pa_project_pvt.check_class_code_valid(l_class_categories(j).class_category,
1399: l_class_categories(j).class_code) = 'N'
1400: THEN
1401: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1402: THEN
1403: pa_interface_utils_pub.map_new_amg_msg
1404: ( p_old_message_code => 'PA_INVALID_CLASS_CATEGORY'
1405: ,p_msg_attribute => 'CHANGE'
1422: END LOOP;
1423:
1424: IF l_class_code_categories <> 1
1425: THEN
1426: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1427: THEN
1428: pa_interface_utils_pub.map_new_amg_msg
1429: ( p_old_message_code => 'PA_INVALID_CLASS_CATEGORY'
1430: ,p_msg_attribute => 'CHANGE'
1444: IF l_project_in_rec.completion_date IS NULL
1445: OR l_project_in_rec.completion_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
1446: THEN
1447:
1448: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1449: THEN
1450: pa_interface_utils_pub.map_new_amg_msg
1451: ( p_old_message_code => 'PA_COMPLETION_DATE_IS_NULL'
1452: ,p_msg_attribute => 'CHANGE'
1468: IF l_project_in_rec.start_date IS NULL
1469: OR l_project_in_rec.start_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
1470: THEN
1471:
1472: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1473: THEN
1474: pa_interface_utils_pub.map_new_amg_msg
1475: ( p_old_message_code => 'PA_START_DATE_IS_NULL'
1476: ,p_msg_attribute => 'CHANGE'
1496: IF l_in_customer_id IS NULL
1497: OR l_in_customer_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1498: /* End of Code changes */
1499: THEN
1500: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1501: THEN
1502: pa_interface_utils_pub.map_new_amg_msg
1503: ( p_old_message_code => 'PA_CUSTOMER_ID_IS_NULL'
1504: ,p_msg_attribute => 'CHANGE'
1527: OR l_bill_to_customer_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1528: /* End of Code changes */
1529: THEN
1530:
1531: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1532: THEN
1533: pa_interface_utils_pub.map_new_amg_msg
1534: ( p_old_message_code => 'PA_BILL_TO_CUST_ID_IS_NULL'
1535: ,p_msg_attribute => 'CHANGE'
1556: OR l_ship_to_customer_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1557: /* End of Code changes */
1558: THEN
1559:
1560: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1561: THEN
1562: pa_interface_utils_pub.map_new_amg_msg
1563: ( p_old_message_code => 'PA_SHIP_TO_CUST_ID_IS_NULL'
1564: ,p_msg_attribute => 'CHANGE'
1582: IF l_project_in_rec.description IS NULL
1583: OR l_project_in_rec.description = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
1584: THEN
1585:
1586: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1587: THEN
1588: pa_interface_utils_pub.map_new_amg_msg
1589: ( p_old_message_code => 'PA_DESCRIPTION_IS_NULL'
1590: ,p_msg_attribute => 'CHANGE'
1608: j := l_key_members.first;
1609:
1610: IF j IS NULL THEN
1611:
1612: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1613: THEN
1614: pa_interface_utils_pub.map_new_amg_msg
1615: ( p_old_message_code => 'PA_KEY_MEMBER_IS_NULL'
1616: ,p_msg_attribute => 'CHANGE'
1641: END LOOP;
1642:
1643: IF l_key_member <> 1
1644: THEN
1645: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1646: THEN
1647: pa_interface_utils_pub.map_new_amg_msg
1648: ( p_old_message_code => 'PA_KEY_MEMBER_IS_NULL'
1649: ,p_msg_attribute => 'CHANGE'
1664: IF l_project_in_rec.distribution_rule IS NULL
1665: OR l_project_in_rec.distribution_rule = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
1666: THEN
1667:
1668: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1669: THEN
1670: pa_interface_utils_pub.map_new_amg_msg
1671: ( p_old_message_code => 'PA_DISTRIBUTION_RULE_NULL'
1672: ,p_msg_attribute => 'CHANGE'
1687: ELSIF l_override_fields_tab(i).pa_field_name = 'PROJECT_STATUS_CODE' THEN
1688: IF l_project_in_rec.project_status_code IS NULL
1689: OR l_project_in_rec.project_status_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
1690: THEN
1691: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1692: THEN
1693: pa_interface_utils_pub.map_new_amg_msg
1694: ( p_old_message_code => 'PA_PRJ_STATUS_CODE_IS_NULL'
1695: ,p_msg_attribute => 'CHANGE'
1711: IF l_project_in_rec.public_sector_flag IS NULL
1712: OR l_project_in_rec.public_sector_flag = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
1713: THEN
1714:
1715: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1716: THEN
1717: pa_interface_utils_pub.map_new_amg_msg
1718: ( p_old_message_code => 'PA_PUB_SECTOR_FLAG_IS_NULL'
1719: ,p_msg_attribute => 'CHANGE'
1735: IF l_project_in_rec.team_template_id IS NULL
1736: OR l_project_in_rec.team_template_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1737: THEN
1738:
1739: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1740: THEN
1741: pa_interface_utils_pub.map_new_amg_msg
1742: ( p_old_message_code => 'PA_TEAM_TMPLT_ID_IS_NULL'
1743: ,p_msg_attribute => 'CHANGE'
1759: IF l_project_in_rec.country_code IS NULL
1760: OR l_project_in_rec.country_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
1761: THEN
1762:
1763: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1764: THEN
1765: pa_interface_utils_pub.map_new_amg_msg
1766: ( p_old_message_code => 'PA_COUNTRY_CODE_IS_NULL'
1767: ,p_msg_attribute => 'CHANGE'
1783: IF l_project_in_rec.region IS NULL
1784: OR l_project_in_rec.region = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
1785: THEN
1786:
1787: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1788: THEN
1789: pa_interface_utils_pub.map_new_amg_msg
1790: ( p_old_message_code => 'PA_REGION_IS_NULL'
1791: ,p_msg_attribute => 'CHANGE'
1807: IF l_project_in_rec.city IS NULL
1808: OR l_project_in_rec.city = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
1809: THEN
1810:
1811: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1812: THEN
1813: pa_interface_utils_pub.map_new_amg_msg
1814: ( p_old_message_code => 'PA_CITY_IS_NULL'
1815: ,p_msg_attribute => 'CHANGE'
1831: IF l_project_in_rec.expected_approval_date IS NULL
1832: OR l_project_in_rec.expected_approval_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
1833: THEN
1834:
1835: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1836: THEN
1837: pa_interface_utils_pub.map_new_amg_msg
1838: ( p_old_message_code => 'PA_EXP_APPR_DATE_IS_NULL'
1839: ,p_msg_attribute => 'CHANGE'
1855: IF l_project_in_rec.probability_member_id IS NULL
1856: OR l_project_in_rec.probability_member_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1857: THEN
1858:
1859: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1860: THEN
1861: pa_interface_utils_pub.map_new_amg_msg
1862: ( p_old_message_code => 'PA_PROB_MEMBER_ID_IS_NULL'
1863: ,p_msg_attribute => 'CHANGE'
1879: IF l_project_in_rec.project_value IS NULL
1880: OR l_project_in_rec.project_value = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1881: THEN
1882:
1883: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1884: THEN
1885: pa_interface_utils_pub.map_new_amg_msg
1886: ( p_old_message_code => 'PA_PROJECT_VALUE_IS_NULL'
1887: ,p_msg_attribute => 'CHANGE'
1904: IF l_project_in_rec.project_value IS NULL
1905: OR l_project_in_rec.project_value = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1906: THEN
1907:
1908: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1909: THEN
1910: pa_interface_utils_pub.map_new_amg_msg
1911: ( p_old_message_code => 'PA_OPP_CURR_CODE_IS_NULL'
1912: ,p_msg_attribute => 'CHANGE'
1931: j := l_org_roles.first;
1932:
1933: IF j IS NULL THEN
1934:
1935: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1936: THEN
1937: pa_interface_utils_pub.map_new_amg_msg
1938: ( p_old_message_code => 'PA_ORG_ROLE_IS_NULL'
1939: ,p_msg_attribute => 'CHANGE'
1964: END LOOP;
1965:
1966: IF l_org_role <> 1
1967: THEN
1968: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1969: THEN
1970: pa_interface_utils_pub.map_new_amg_msg
1971: ( p_old_message_code => 'PA_ORG_ROLE_IS_NULL'
1972: ,p_msg_attribute => 'CHANGE'
1988: ELSIF l_override_fields_tab(i).pa_field_name = 'LONG_NAME' THEN
1989: IF l_project_in_rec.long_name IS NULL
1990: OR l_project_in_rec.long_name = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
1991: THEN
1992: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1993: THEN
1994: pa_interface_utils_pub.map_new_amg_msg
1995: ( p_old_message_code => 'PA_PRJ_LONG_NAME_IS_NULL'
1996: ,p_msg_attribute => 'CHANGE'
2038: FETCH l_source_project_type_csr INTO l_source_project_type;
2039:
2040: IF l_source_project_type_csr%NOTFOUND
2041: THEN
2042: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2043: THEN
2044: pa_interface_utils_pub.map_new_amg_msg
2045: ( p_old_message_code => 'PA_SOURCE_TEMPLATE_INVALID'
2046: ,p_msg_attribute => 'CHANGE'
2067: (l_source_project_type,
2068: l_project_in_rec.distribution_rule,
2069: l_project_in_rec.enable_top_task_inv_mth_flag ) = 'N' --Bug 3279981
2070: THEN
2071: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2072: THEN
2073: pa_interface_utils_pub.map_new_amg_msg
2074: ( p_old_message_code => 'PA_INVALID_DIST_RULE'
2075: ,p_msg_attribute => 'CHANGE'
2091: THEN
2092: IF pa_project_pvt.check_valid_org
2093: (l_project_in_rec.carrying_out_organization_id) = 'N'
2094: THEN
2095: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2096: THEN
2097: pa_interface_utils_pub.map_new_amg_msg
2098: ( p_old_message_code => 'PA_INVALID_ORG'
2099: ,p_msg_attribute => 'CHANGE'
2117: IF l_project_completion_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
2118: AND ( l_project_start_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
2119: OR l_project_start_date IS NULL )
2120: THEN
2121: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2122: THEN
2123: pa_interface_utils_pub.map_new_amg_msg
2124: ( p_old_message_code => 'PA_PR_START_DATE_NEEDED'
2125: ,p_msg_attribute => 'CHANGE'
2141: AND l_project_completion_date IS NOT NULL
2142: AND l_project_completion_date < l_project_start_date
2143: THEN
2144:
2145: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2146: THEN
2147:
2148: -- 5182972 Commented below code , which was throwing wrong error message
2149: /*
2219: ELSIF l_early_start_date IS NOT NULL THEN
2220: --Added the following error message to check whether the finish date is earlier than the start date.Bug#5185673
2221: IF l_project_in_rec.early_finish_date < l_early_start_date THEN
2222:
2223: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2224:
2225: pa_utils.add_message
2226: (
2227: p_app_short_name => 'PA'
2254: ELSIF l_late_start_date IS NOT NULL THEN
2255: --Added the following error message to check whether the finish date is earlier than the start date.Bug#5185673
2256: IF l_project_in_rec.late_finish_date < l_late_start_date THEN
2257:
2258: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2259:
2260: pa_utils.add_message
2261: (
2262: p_app_short_name => 'PA'
2309: p_error_code => l_error_code,
2310: p_error_message => l_error_message );
2311:
2312: IF l_error_code <> 0 THEN
2313: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2314: pa_interface_utils_pub.map_new_amg_msg
2315: ( p_old_message_code => 'PA_ERROR_IN_CLIENT_EXTN'
2316: ,p_msg_attribute => 'CHANGE'
2317: ,p_resize_flag => 'N'
2333: AND l_out_completion_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
2334: AND l_out_completion_date IS NOT NULL
2335: AND l_out_completion_date < l_out_start_date
2336: THEN
2337: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2338: THEN
2339:
2340: -- 5182972 Commented below code , which was throwing wrong error message
2341: /*
2380: ELSE
2381: IF pa_project_pvt.check_valid_project_status
2382: ( p_project_status => l_project_in_rec.project_status_code ) = 'N'
2383: THEN
2384: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2385: THEN
2386: pa_interface_utils_pub.map_new_amg_msg
2387: ( p_old_message_code => 'PA_PROJECT_STATUS_INVALID'
2388: ,p_msg_attribute => 'CHANGE'
2424: THEN l_project_in_rec.public_sector_flag := NULL;
2425: ELSE
2426: IF l_project_in_rec.public_sector_flag NOT IN ('Y','N')
2427: THEN
2428: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2429: THEN
2430: pa_interface_utils_pub.map_new_amg_msg
2431: ( p_old_message_code => 'PA_PUBLIC_SECTOR_INVALID'
2432: ,p_msg_attribute => 'CHANGE'
2766:
2767: -- Project Currency related attributes
2768: IF l_project_in_rec.PROJECT_BIL_RATE_TYPE is NULL
2769: 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
2770: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2771: FND_MESSAGE.SET_NAME('PA','PA_PROJ_RATE_TYPE_INV_AMG');
2772: FND_MESSAGE.SET_TOKEN('PROJECT', l_project_rec.segment1);
2773: FND_MSG_PUB.ADD;
2774: RAISE FND_API.G_EXC_ERROR;
2769: 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
2770: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2771: FND_MESSAGE.SET_NAME('PA','PA_PROJ_RATE_TYPE_INV_AMG');
2772: FND_MESSAGE.SET_TOKEN('PROJECT', l_project_rec.segment1);
2773: FND_MSG_PUB.ADD;
2774: RAISE FND_API.G_EXC_ERROR;
2775: END IF;
2776: ELSE
2777: IF l_project_in_rec.PROJECT_BIL_RATE_TYPE = 'User' THEN
2776: ELSE
2777: IF l_project_in_rec.PROJECT_BIL_RATE_TYPE = 'User' THEN
2778: IF l_project_in_rec.PROJECT_BIL_EXCHANGE_RATE is NULL
2779: OR l_project_in_rec.PROJECT_BIL_EXCHANGE_RATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
2780: 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.
2781: FND_MESSAGE.SET_NAME('PA','PA_EXCH_RATE_NULL_PC_AMG');
2782: FND_MSG_PUB.ADD;
2783: RAISE FND_API.G_EXC_ERROR;
2784: END IF;
2778: IF l_project_in_rec.PROJECT_BIL_EXCHANGE_RATE is NULL
2779: OR l_project_in_rec.PROJECT_BIL_EXCHANGE_RATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
2780: 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.
2781: FND_MESSAGE.SET_NAME('PA','PA_EXCH_RATE_NULL_PC_AMG');
2782: FND_MSG_PUB.ADD;
2783: RAISE FND_API.G_EXC_ERROR;
2784: END IF;
2785: END IF;
2786: ELSE -- non-User type
2786: ELSE -- non-User type
2787: IF l_project_in_rec.PROJECT_BIL_RATE_DATE_CODE is NULL
2788: OR l_project_in_rec.PROJECT_BIL_RATE_DATE_CODE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
2789:
2790: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2791: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_TYPE_INVALID_AMG');
2792: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Project Currency');
2793: FND_MSG_PUB.ADD;
2794: RAISE FND_API.G_EXC_ERROR;
2789:
2790: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2791: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_TYPE_INVALID_AMG');
2792: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Project Currency');
2793: FND_MSG_PUB.ADD;
2794: RAISE FND_API.G_EXC_ERROR;
2795: END IF;
2796: ELSE
2797: IF l_project_in_rec.PROJECT_BIL_RATE_DATE_CODE = 'FIXED_DATE' THEN --Modified for bug 6332591
2796: ELSE
2797: IF l_project_in_rec.PROJECT_BIL_RATE_DATE_CODE = 'FIXED_DATE' THEN --Modified for bug 6332591
2798: IF l_project_in_rec.PROJECT_BIL_RATE_DATE is NULL
2799: OR l_project_in_rec.PROJECT_BIL_RATE_DATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
2800: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2801: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_INVALID_AMG');
2802: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Project Currency');
2803: FND_MSG_PUB.ADD;
2804: RAISE FND_API.G_EXC_ERROR;
2799: OR l_project_in_rec.PROJECT_BIL_RATE_DATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
2800: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2801: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_INVALID_AMG');
2802: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Project Currency');
2803: FND_MSG_PUB.ADD;
2804: RAISE FND_API.G_EXC_ERROR;
2805: END IF;
2806: END IF;
2807: END IF;
2811:
2812: -- Project Functional Currency related attributes
2813: IF l_project_in_rec.PROJFUNC_BIL_RATE_TYPE is NULL
2814: 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
2815: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2816: FND_MESSAGE.SET_NAME('PA','PA_PFC_RATE_TYPE_INV_AMG');
2817: FND_MSG_PUB.ADD;
2818: RAISE FND_API.G_EXC_ERROR;
2819: END IF;
2813: IF l_project_in_rec.PROJFUNC_BIL_RATE_TYPE is NULL
2814: 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
2815: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2816: FND_MESSAGE.SET_NAME('PA','PA_PFC_RATE_TYPE_INV_AMG');
2817: FND_MSG_PUB.ADD;
2818: RAISE FND_API.G_EXC_ERROR;
2819: END IF;
2820: ELSE
2821: IF l_project_in_rec.PROJFUNC_BIL_RATE_TYPE = 'User' THEN
2820: ELSE
2821: IF l_project_in_rec.PROJFUNC_BIL_RATE_TYPE = 'User' THEN
2822: IF l_project_in_rec.PROJFUNC_BIL_EXCHANGE_RATE is NULL
2823: OR l_project_in_rec.PROJFUNC_BIL_EXCHANGE_RATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
2824: 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.
2825: FND_MESSAGE.SET_NAME('PA','PA_EXCH_RATE_NULL_PF_AMG');
2826: FND_MSG_PUB.ADD;
2827: RAISE FND_API.G_EXC_ERROR;
2828: END IF;
2822: IF l_project_in_rec.PROJFUNC_BIL_EXCHANGE_RATE is NULL
2823: OR l_project_in_rec.PROJFUNC_BIL_EXCHANGE_RATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
2824: 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.
2825: FND_MESSAGE.SET_NAME('PA','PA_EXCH_RATE_NULL_PF_AMG');
2826: FND_MSG_PUB.ADD;
2827: RAISE FND_API.G_EXC_ERROR;
2828: END IF;
2829: END IF;
2830:
2830:
2831: ELSE -- non-User type
2832: IF l_project_in_rec.PROJFUNC_BIL_RATE_DATE_CODE is NULL
2833: OR l_project_in_rec.PROJFUNC_BIL_RATE_DATE_CODE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
2834: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2835: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_TYPE_INVALID_AMG');
2836: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Project Functional Currency');
2837: FND_MSG_PUB.ADD;
2838: RAISE FND_API.G_EXC_ERROR;
2833: OR l_project_in_rec.PROJFUNC_BIL_RATE_DATE_CODE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
2834: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2835: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_TYPE_INVALID_AMG');
2836: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Project Functional Currency');
2837: FND_MSG_PUB.ADD;
2838: RAISE FND_API.G_EXC_ERROR;
2839: END IF;
2840: ELSE
2841: IF l_project_in_rec.PROJFUNC_BIL_RATE_DATE_CODE = 'FIXED_DATE' THEN --Modified for bug 6332591
2840: ELSE
2841: IF l_project_in_rec.PROJFUNC_BIL_RATE_DATE_CODE = 'FIXED_DATE' THEN --Modified for bug 6332591
2842: IF l_project_in_rec.PROJFUNC_BIL_RATE_DATE is NULL
2843: OR l_project_in_rec.PROJFUNC_BIL_RATE_DATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
2844: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2845: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_INVALID_AMG');
2846: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Project Functional Currency');
2847: FND_MSG_PUB.ADD;
2848: RAISE FND_API.G_EXC_ERROR;
2843: OR l_project_in_rec.PROJFUNC_BIL_RATE_DATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
2844: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2845: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_INVALID_AMG');
2846: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Project Functional Currency');
2847: FND_MSG_PUB.ADD;
2848: RAISE FND_API.G_EXC_ERROR;
2849: END IF;
2850: END IF;
2851: END IF;
2856:
2857: -- Funding Currency related attributes
2858: IF l_project_in_rec.FUNDING_RATE_TYPE is NULL
2859: 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
2860: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2861: FND_MESSAGE.SET_NAME('PA','PA_FUND_RATE_TYPE_INV_AMG');
2862: FND_MSG_PUB.ADD;
2863: RAISE FND_API.G_EXC_ERROR;
2864: END IF;
2858: IF l_project_in_rec.FUNDING_RATE_TYPE is NULL
2859: 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
2860: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2861: FND_MESSAGE.SET_NAME('PA','PA_FUND_RATE_TYPE_INV_AMG');
2862: FND_MSG_PUB.ADD;
2863: RAISE FND_API.G_EXC_ERROR;
2864: END IF;
2865: ELSE
2866: IF l_project_in_rec.FUNDING_RATE_TYPE = 'User' THEN
2865: ELSE
2866: IF l_project_in_rec.FUNDING_RATE_TYPE = 'User' THEN
2867: IF l_project_in_rec.FUNDING_EXCHANGE_RATE is NULL
2868: OR l_project_in_rec.FUNDING_EXCHANGE_RATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
2869: 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.
2870: FND_MESSAGE.SET_NAME('PA','PA_EXCHANGE_RATE_NULL');
2871: FND_MSG_PUB.ADD;
2872: RAISE FND_API.G_EXC_ERROR;
2873: END IF;
2867: IF l_project_in_rec.FUNDING_EXCHANGE_RATE is NULL
2868: OR l_project_in_rec.FUNDING_EXCHANGE_RATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
2869: 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.
2870: FND_MESSAGE.SET_NAME('PA','PA_EXCHANGE_RATE_NULL');
2871: FND_MSG_PUB.ADD;
2872: RAISE FND_API.G_EXC_ERROR;
2873: END IF;
2874: END IF;
2875:
2875:
2876: ELSE -- non-User type
2877: IF l_project_in_rec.FUNDING_RATE_DATE_CODE is NULL
2878: OR l_project_in_rec.FUNDING_RATE_DATE_CODE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
2879: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2880: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_TYPE_INVALID_AMG');
2881: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Funding Currency');
2882: FND_MSG_PUB.ADD;
2883: RAISE FND_API.G_EXC_ERROR;
2878: OR l_project_in_rec.FUNDING_RATE_DATE_CODE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
2879: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2880: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_TYPE_INVALID_AMG');
2881: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Funding Currency');
2882: FND_MSG_PUB.ADD;
2883: RAISE FND_API.G_EXC_ERROR;
2884: END IF;
2885: ELSE
2886: IF l_project_in_rec.FUNDING_RATE_DATE_CODE = 'FIXED_DATE' THEN --Modified for bug 6332591
2885: ELSE
2886: IF l_project_in_rec.FUNDING_RATE_DATE_CODE = 'FIXED_DATE' THEN --Modified for bug 6332591
2887: IF l_project_in_rec.FUNDING_RATE_DATE is NULL
2888: OR l_project_in_rec.FUNDING_RATE_DATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
2889: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2890: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_INVALID_AMG');
2891: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Funding Currency');
2892: FND_MSG_PUB.ADD;
2893: RAISE FND_API.G_EXC_ERROR;
2888: OR l_project_in_rec.FUNDING_RATE_DATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
2889: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2890: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_INVALID_AMG');
2891: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Funding Currency');
2892: FND_MSG_PUB.ADD;
2893: RAISE FND_API.G_EXC_ERROR;
2894: END IF;
2895: END IF;
2896: END IF;
2992: -- if not valid throw , error message
2993:
2994: IF l_valid_prio_code = 'N' THEN
2995:
2996: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2997:
2998: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
2999: ,p_msg_name => 'PA_INVALID_PRIORITY_CODE');
3000:
3200: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
3201: RAISE FND_API.G_EXC_ERROR;
3202: END IF;
3203: ELSE
3204: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3205: pa_interface_utils_pub.map_new_amg_msg
3206: ( p_old_message_code => 'PA_TOP_TASK_CUST_FLAG_INVALID'
3207: ,p_msg_attribute => 'NOCHANGE' -- Changed to NOCHANGE for Bug 4762153
3208: ,p_resize_flag => 'N'
3251: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
3252: RAISE FND_API.G_EXC_ERROR;
3253: END IF;
3254: ELSE
3255: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3256: pa_interface_utils_pub.map_new_amg_msg
3257: ( p_old_message_code => 'PA_TT_INV_MTH_FLAG_INVALID'
3258: ,p_msg_attribute => 'CHANGE'
3259: ,p_resize_flag => 'N'
3347: IF l_err_code > 0
3348: then
3349: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
3350:
3351: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3352: THEN
3353:
3354: IF NOT pa_project_pvt.check_valid_message(l_err_stage)
3355: THEN
3374: then
3375:
3376: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3377:
3378: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3379: THEN
3380: pa_interface_utils_pub.map_new_amg_msg('PA_COPY_PROJECT_FAILED','CHANGE','N',
3381: 'PROJ',l_project_in_rec.pm_project_reference,
3382: '','','','');
3382: '','','','');
3383: /* Added the following code for bug 3725338 */
3384: FND_MESSAGE.SET_NAME('PA','PA_UNEXPECTED_ERR_AMG');
3385: FND_MESSAGE.SET_TOKEN('ORAERR', l_err_stage);
3386: FND_MSG_PUB.add;
3387: /* Code addition ended for bug 3725338 */
3388: END IF;
3389:
3390: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3448: END LOOP;
3449:
3450: IF NOT l_is_overridable
3451: THEN
3452: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3453: THEN
3454: pa_interface_utils_pub.map_new_amg_msg
3455: ( p_old_message_code => 'PA_CUSTOMER_NOT_OVERRIDABLE'
3456: ,p_msg_attribute => 'CHANGE'
3487: END LOOP;
3488:
3489: IF NOT l_is_overridable
3490: THEN
3491: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3492: THEN
3493: pa_interface_utils_pub.map_new_amg_msg
3494: ( p_old_message_code => 'PA_BILL_TO_NOT_OVERRIDABLE'
3495: ,p_msg_attribute => 'CHANGE'
3526: END LOOP;
3527:
3528: IF NOT l_is_overridable
3529: THEN
3530: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3531: THEN
3532: pa_interface_utils_pub.map_new_amg_msg
3533: ( p_old_message_code => 'PA_SHIP_TO_NOT_OVERRIDABLE'
3534: ,p_msg_attribute => 'CHANGE'
3573: /* Commented the below code for Bug#5517655 */
3574:
3575: /*IF p_customers_in(i).project_relationship_code IS NULL OR
3576: p_customers_in(i).project_relationship_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR then
3577: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3578: THEN
3579: pa_utils.add_message
3580: ( p_app_short_name => 'PA'-- new message for AA TRACKING
3581: ,p_msg_name => 'PA_RELATIONSHIP_CODE_REQD'
3601: then
3602: ----dbms_output.put_line('is this fired');
3603:
3604: 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
3605: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3606: THEN
3607: pa_utils.add_message
3608: ( p_app_short_name => 'PA'-- new message for tracking bug
3609: ,p_msg_name => 'PA_CONTACT_TYPE_REQD'
3643:
3644: --bug 3716805
3645: THEN
3646: If l_in_customer_id IS NULL OR l_in_customer_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
3647: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3648: THEN
3649: pa_interface_utils_pub.map_new_amg_msg
3650: ( p_old_message_code => 'PA_CUSTOMER_ID_IS_NULL'
3651: ,p_msg_attribute => 'CHANGE'
3674:
3675: --bug 3716805
3676: THEN
3677: If l_in_customer_id IS NULL OR l_in_customer_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
3678: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3679: THEN
3680: pa_interface_utils_pub.map_new_amg_msg
3681: ( p_old_message_code => 'PA_CUSTOMER_ID_IS_NULL'
3682: ,p_msg_attribute => 'CHANGE'
3868: -- For this API,error code 10 is a warning.Anything above 10 is an error
3869: IF l_err_code > 10
3870: THEN
3871:
3872: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3873: THEN
3874:
3875: IF NOT pa_project_pvt.check_valid_message(l_err_stage)
3876: THEN
3904:
3905: ELSIF l_err_code < 0
3906: THEN
3907:
3908: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3909: THEN
3910: pa_interface_utils_pub.map_new_amg_msg
3911: ( p_old_message_code => 'PA_GET_CUSTOMER_INFO_FAILED'
3912: ,p_msg_attribute => 'CHANGE'
4052:
4053: IF l_err_code > 0
4054: THEN
4055:
4056: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4057: THEN
4058:
4059: IF NOT pa_project_pvt.check_valid_message(l_err_stage)
4060: THEN
4088:
4089: ELSIF l_err_code < 0
4090: THEN
4091:
4092: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4093: THEN
4094: pa_interface_utils_pub.map_new_amg_msg
4095: ( p_old_message_code => 'PA_CREATE_CONTACTS_FAILED'
4096: ,p_msg_attribute => 'CHANGE'
4119: ,x_return_status => l_return_status
4120: ,x_msg_count => l_msg_count
4121: ,x_msg_data => l_msg_data);
4122:
4123: l_msg_count := FND_MSG_PUB.count_msg;
4124: IF l_msg_count > 0 THEN
4125: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
4126: RAISE FND_API.G_EXC_ERROR;
4127: END IF;
4165: , x_return_status => l_return_status
4166: , x_msg_count => l_msg_count
4167: , x_msg_data => l_msg_data );
4168:
4169: l_msg_count := FND_MSG_PUB.count_msg;
4170: IF l_msg_count > 0 THEN
4171: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
4172: RAISE FND_API.G_EXC_ERROR;
4173: END IF;
4336: OPEN c_prj_count(l_project_id);
4337: FETCH c_prj_count INTO l_prj_mgr_count;
4338: CLOSE c_prj_count;
4339: IF l_prj_mgr_count = 0 THEN
4340: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4341: pa_utils.add_message
4342: ( p_app_short_name => 'PA'
4343: ,p_msg_name => 'PA_PR_INSUF_PROJ_MGR'
4344: );
4452: ,x_msg_data => l_msg_data
4453: ,x_return_status => l_return_status );
4454:
4455: --The following code is copied from create_project_party call above.
4456: l_msg_count := FND_MSG_PUB.count_msg;
4457: IF l_msg_count > 0 THEN
4458: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
4459: RAISE FND_API.G_EXC_ERROR;
4460: END IF;
4752:
4753: IF G_WP_STR_EXISTS = 'N' OR
4754: G_IS_WP_SEPARATE_FROM_FN = 'N' --bug 2876703 --create project
4755: THEN
4756: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4757: THEN
4758: pa_interface_utils_pub.map_new_amg_msg
4759: ( p_old_message_code => 'PA_PS_WP_NOT_SEP_FN'
4760: ,p_msg_attribute => 'CHANGE'
4848: );
4849:
4850: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
4851: THEN
4852: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4853: THEN
4854: pa_interface_utils_pub.map_new_amg_msg
4855: ( p_old_message_code => 'PA_PARENT_TASK_MISSING'
4856: ,p_msg_attribute => 'CHANGE'
5469: --4218977, rtarway, unset this global variable upon unsuccessfull completion of create project
5470: G_OP_VALIDATE_FLAG := null;
5471: p_return_status := FND_API.G_RET_STS_ERROR;
5472:
5473: FND_MSG_PUB.Count_And_Get
5474: ( p_count => p_msg_count ,
5475: p_data => p_msg_data );
5476:
5477: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
5495: --4218977, rtarway, unset this global variable upon unsuccessfull completion of create project
5496: G_OP_VALIDATE_FLAG := null;
5497: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5498:
5499: FND_MSG_PUB.Count_And_Get
5500: ( p_count => p_msg_count ,
5501: p_data => p_msg_data );
5502:
5503: WHEN OTHERS
5521: --4218977, rtarway, unset this global variable upon unsuccessfull completion of create project
5522: G_OP_VALIDATE_FLAG := null;
5523: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5524:
5525: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5526: THEN
5527: FND_MSG_PUB.add_exc_msg
5528: ( p_pkg_name => G_PKG_NAME
5529: , p_procedure_name => l_api_name );
5523: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5524:
5525: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5526: THEN
5527: FND_MSG_PUB.add_exc_msg
5528: ( p_pkg_name => G_PKG_NAME
5529: , p_procedure_name => l_api_name );
5530:
5531: END IF;
5529: , p_procedure_name => l_api_name );
5530:
5531: END IF;
5532:
5533: FND_MSG_PUB.Count_And_Get
5534: ( p_count => p_msg_count ,
5535: p_data => p_msg_data );
5536:
5537: END create_project;
5957: AND p_pm_product_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5958: --bug 2841158
5959: THEN
5960:
5961: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5962: THEN
5963: pa_interface_utils_pub.map_new_amg_msg
5964: ( p_old_message_code => 'PA_PRODUCT_CODE_IS_MISSING'
5965: ,p_msg_attribute => 'CHANGE'
5987: FETCH p_product_code_csr INTO l_pm_product_code;
5988: CLOSE p_product_code_csr;
5989:
5990: IF l_pm_product_code <> 'X' THEN
5991: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5992: pa_interface_utils_pub.map_new_amg_msg
5993: ( p_old_message_code => 'PA_PRODUCT_CODE_IS_INVALID'
5994: ,p_msg_attribute => 'CHANGE'
5995: ,p_resize_flag => 'N'
6209:
6210: IF FND_API.TO_BOOLEAN( p_init_msg_list )
6211: THEN
6212:
6213: FND_MSG_PUB.initialize;
6214:
6215: END IF;
6216:
6217: -- Set API return status to success
6301: --bug 2876703 --Add_task
6302: IF G_IS_WP_SEPARATE_FROM_FN = 'N' AND
6303: l_str_type = 'WORKPLAN' --p_structure_type = 'WORKPLAN' 3746912
6304: THEN
6305: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
6306: THEN
6307: pa_interface_utils_pub.map_new_amg_msg
6308: ( p_old_message_code => 'PA_PS_WP_NOT_SEP_FN'
6309: ,p_msg_attribute => 'CHANGE'
6385: END IF;
6386:
6387: IF l_add_subtask_ok_flag <> 'Y'
6388: then
6389: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
6390: THEN
6391: pa_interface_utils_pub.map_new_amg_msg
6392: ( p_old_message_code => 'PA_TASK_CAN_NOT_BE_ADDED'
6393: ,p_msg_attribute => 'CHANGE'
6418: IF pa_project_pvt.check_valid_dist_rule
6419: ( l_proj_type,
6420: l_proj_revenue_acc_method||'/'||p_invoice_method,
6421: l_proj_top_task_inv_mth_flag ) = 'N' THEN
6422: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6423: pa_interface_utils_pub.map_new_amg_msg
6424: ( p_old_message_code => 'PA_INV_TASK_INVOICE_METHOD' -- 4146813 changed error message code
6425: ,p_msg_attribute => 'CHANGE'
6426: ,p_resize_flag => 'N'
6444: IF p_customer_id IS NOT NULL AND p_customer_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
6445: OPEN cur_check_proj_cust_exist(p_customer_id);
6446: FETCH cur_check_proj_cust_exist INTO l_dummy;
6447: IF cur_check_proj_cust_exist%NOTFOUND THEN
6448: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6449: /*Commented for Bug Number 4689326
6450: pa_interface_utils_pub.map_new_amg_msg
6451: ( p_old_message_code => 'PA_INVALID_TASK_CUSTOMER'
6452: ,p_msg_attribute => 'CHANGE'
6703: ELSE
6704: l_task_in_rec.cc_process_labor_flag := p_cc_process_labor_flag;
6705: IF p_cc_process_labor_flag = 'Y' THEN
6706: IF (p_labor_tp_schedule_id IS NULL OR p_labor_tp_schedule_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) THEN
6707: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6708: pa_interface_utils_pub.map_new_amg_msg
6709: ( p_old_message_code => 'PA_TASK_LAB_TP_SCH_MAND'
6710: ,p_msg_attribute => 'CHANGE'
6711: ,p_resize_flag => 'N'
6747: ELSE
6748: l_task_in_rec.cc_process_nl_flag := p_cc_process_nl_flag;
6749: IF p_cc_process_nl_flag = 'Y' THEN
6750: IF p_nl_tp_schedule_id IS NULL OR p_nl_tp_schedule_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
6751: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6752: pa_interface_utils_pub.map_new_amg_msg
6753: ( p_old_message_code => 'PA_TASK_NL_TP_SCH_MAND'
6754: ,p_msg_attribute => 'CHANGE'
6755: ,p_resize_flag => 'N'
6824: IF (l_return_status <> 'S')
6825: THEN
6826: --rtarway , 3661788, comment close command
6827: --CLOSE l_task_ref_to_id_csr;
6828: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
6829: THEN
6830: l_amg_task_number := pa_interface_utils_pub.get_task_number_amg
6831: (p_task_number=> p_task_name
6832: ,p_task_reference => p_pm_task_reference
7041: THEN
7042:
7043: IF G_WP_STR_EXISTS = 'N'
7044: THEN
7045: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
7046: THEN
7047: pa_interface_utils_pub.map_new_amg_msg
7048: ( p_old_message_code => 'PA_PS_WP_NOT_SEP_FN'
7049: ,p_msg_attribute => 'CHANGE'
7060:
7061: IF ( p_structure_version_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM OR
7062: p_structure_version_id IS NULL )
7063: THEN
7064: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
7065: THEN
7066: pa_interface_utils_pub.map_new_amg_msg
7067: ( p_old_message_code => 'PA_PS_STRUC_VER_REQ'
7068: ,p_msg_attribute => 'CHANGE'
7084: struct_ver_updatable = 'N' OR
7085: NVL( l_str_ver_type, 'N' ) = 'N' )
7086: THEN
7087: -- add error message to stack and throw exception
7088: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
7089: THEN
7090: pa_interface_utils_pub.map_new_amg_msg
7091: ( p_old_message_code => 'PA_STRUCT_VER_NO_UPDATE'
7092: ,p_msg_attribute => 'CHANGE'
7597: p_pa_project_number_out := NULL ;
7598: p_task_id := NULL ;
7599: -- End : 4537865
7600:
7601: FND_MSG_PUB.Count_And_Get
7602: ( p_count => p_msg_count ,
7603: p_data => p_msg_data );
7604:
7605: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
7613: p_pa_project_number_out := NULL ;
7614: p_task_id := NULL ;
7615: -- End : 4537865
7616:
7617: FND_MSG_PUB.Count_And_Get
7618: ( p_count => p_msg_count ,
7619: p_data => p_msg_data );
7620:
7621: WHEN OTHERS THEN
7628: p_pa_project_number_out := NULL ;
7629: p_task_id := NULL ;
7630: -- End : 4537865
7631:
7632: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7633: THEN
7634: FND_MSG_PUB.add_exc_msg
7635: ( p_pkg_name => G_PKG_NAME
7636: , p_procedure_name => l_api_name );
7630: -- End : 4537865
7631:
7632: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7633: THEN
7634: FND_MSG_PUB.add_exc_msg
7635: ( p_pkg_name => G_PKG_NAME
7636: , p_procedure_name => l_api_name );
7637:
7638: END IF;
7636: , p_procedure_name => l_api_name );
7637:
7638: END IF;
7639:
7640: FND_MSG_PUB.Count_And_Get
7641: ( p_count => p_msg_count ,
7642: p_data => p_msg_data );
7643:
7644: END add_task;
7741: THEN
7742: IF PA_PROJ_TASK_STRUC_PUB.WP_STR_EXISTS( l_project_id ) = 'N' OR
7743: PA_PROJ_TASK_STRUC_PUB.IS_WP_SEPARATE_FROM_FN( l_project_id ) = 'N' -- 2876703 --delete_task
7744: THEN
7745: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
7746: THEN
7747: pa_interface_utils_pub.map_new_amg_msg
7748: ( p_old_message_code => 'PA_PS_WP_NOT_SEP_FN'
7749: ,p_msg_attribute => 'CHANGE'
7760:
7761: IF p_task_version_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
7762: OR p_task_version_id IS NULL
7763: THEN
7764: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
7765: THEN
7766: pa_interface_utils_pub.map_new_amg_msg
7767: ( p_old_message_code => 'PA_PS_TSK_VER_REQ_WP'
7768: ,p_msg_attribute => 'CHANGE'
7981: EXCEPTION
7982: WHEN FND_API.G_EXC_ERROR
7983: THEN
7984: p_return_status := FND_API.G_RET_STS_ERROR;
7985: p_msg_count := FND_MSG_PUB.count_msg; -- For Bug 4033410
7986:
7987: p_project_id := NULL ; -- 4537865
7988: p_task_id := NULL; -- 4537865
7989:
7990: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
7991: THEN
7992:
7993: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7994: p_msg_count := FND_MSG_PUB.count_msg; -- For Bug 4033410
7995:
7996: p_project_id := NULL ; -- 4537865
7997: p_task_id := NULL; -- 4537865
7998:
7997: p_task_id := NULL; -- 4537865
7998:
7999: WHEN OTHERS THEN
8000: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8001: p_msg_count := FND_MSG_PUB.count_msg; -- For Bug 4033410
8002:
8003: p_project_id := NULL ; -- 4537865
8004: p_task_id := NULL; -- 4537865
8005:
8027: IS
8028:
8029: BEGIN
8030:
8031: FND_MSG_PUB.Initialize;
8032:
8033: -- Initialize global table and record types
8034:
8035: G_project_in_rec := G_project_in_null_rec;
8260:
8261: IF FND_API.TO_BOOLEAN( p_init_msg_list )
8262: THEN
8263:
8264: FND_MSG_PUB.initialize;
8265:
8266: END IF;
8267:
8268: -- Set API return status to success
8460: ROLLBACK TO load_project_pub;
8461:
8462: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8463:
8464: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8465: THEN
8466: FND_MSG_PUB.add_exc_msg
8467: ( p_pkg_name => G_PKG_NAME
8468: , p_procedure_name => l_api_name );
8462: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8463:
8464: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8465: THEN
8466: FND_MSG_PUB.add_exc_msg
8467: ( p_pkg_name => G_PKG_NAME
8468: , p_procedure_name => l_api_name );
8469:
8470: END IF;
8527:
8528: IF FND_API.TO_BOOLEAN( p_init_msg_list )
8529: THEN
8530:
8531: FND_MSG_PUB.initialize;
8532:
8533: END IF;
8534:
8535: -- Set API return status to success
8575: ROLLBACK TO load_key_member_pub;
8576:
8577: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8578:
8579: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8580: THEN
8581: FND_MSG_PUB.add_exc_msg
8582: ( p_pkg_name => G_PKG_NAME
8583: , p_procedure_name => l_api_name );
8577: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8578:
8579: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8580: THEN
8581: FND_MSG_PUB.add_exc_msg
8582: ( p_pkg_name => G_PKG_NAME
8583: , p_procedure_name => l_api_name );
8584:
8585: END IF;
8640:
8641: IF FND_API.TO_BOOLEAN( p_init_msg_list )
8642: THEN
8643:
8644: FND_MSG_PUB.initialize;
8645:
8646: END IF;
8647:
8648: -- Set API return status to success
8686: ROLLBACK TO load_org_role_pub;
8687:
8688: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8689:
8690: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8691: THEN
8692: FND_MSG_PUB.add_exc_msg
8693: ( p_pkg_name => G_PKG_NAME
8694: , p_procedure_name => l_api_name );
8688: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8689:
8690: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8691: THEN
8692: FND_MSG_PUB.add_exc_msg
8693: ( p_pkg_name => G_PKG_NAME
8694: , p_procedure_name => l_api_name );
8695:
8696: END IF;
8754:
8755: IF FND_API.TO_BOOLEAN( p_init_msg_list )
8756: THEN
8757:
8758: FND_MSG_PUB.initialize;
8759:
8760: END IF;
8761:
8762: -- Set API return status to success
8819: ROLLBACK TO load_class_category_pub;
8820:
8821: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8822:
8823: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8824: THEN
8825: FND_MSG_PUB.add_exc_msg
8826: ( p_pkg_name => G_PKG_NAME
8827: , p_procedure_name => l_api_name );
8821: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8822:
8823: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8824: THEN
8825: FND_MSG_PUB.add_exc_msg
8826: ( p_pkg_name => G_PKG_NAME
8827: , p_procedure_name => l_api_name );
8828:
8829: END IF;
9040:
9041: IF FND_API.TO_BOOLEAN( p_init_msg_list )
9042: THEN
9043:
9044: FND_MSG_PUB.initialize;
9045:
9046: END IF;
9047:
9048: -- Set API return status to success
9304: ROLLBACK TO load_task_pub;
9305:
9306: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9307:
9308: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9309: THEN
9310: FND_MSG_PUB.add_exc_msg
9311: ( p_pkg_name => G_PKG_NAME
9312: , p_procedure_name => l_api_name );
9306: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9307:
9308: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9309: THEN
9310: FND_MSG_PUB.add_exc_msg
9311: ( p_pkg_name => G_PKG_NAME
9312: , p_procedure_name => l_api_name );
9313:
9314: END IF;
9376:
9377: IF FND_API.TO_BOOLEAN( p_init_msg_list )
9378: THEN
9379:
9380: FND_MSG_PUB.initialize;
9381:
9382: END IF;
9383:
9384:
9458: p_pa_project_id := NULL ;
9459: p_pa_project_number := NULL ;
9460: -- 4537865
9461:
9462: FND_MSG_PUB.Count_And_Get
9463: ( p_count => p_msg_count ,
9464: p_data => p_msg_data );
9465:
9466: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
9474: -- 4537865
9475:
9476: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9477:
9478: FND_MSG_PUB.Count_And_Get
9479: ( p_count => p_msg_count ,
9480: p_data => p_msg_data );
9481:
9482: WHEN OTHERS THEN
9489: p_pa_project_id := NULL ;
9490: p_pa_project_number := NULL ;
9491: -- 4537865
9492:
9493: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9494: THEN
9495: FND_MSG_PUB.add_exc_msg
9496: ( p_pkg_name => G_PKG_NAME
9497: , p_procedure_name => l_api_name );
9491: -- 4537865
9492:
9493: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9494: THEN
9495: FND_MSG_PUB.add_exc_msg
9496: ( p_pkg_name => G_PKG_NAME
9497: , p_procedure_name => l_api_name );
9498:
9499: END IF;
9497: , p_procedure_name => l_api_name );
9498:
9499: END IF;
9500:
9501: FND_MSG_PUB.Count_And_Get
9502: ( p_count => p_msg_count ,
9503: p_data => p_msg_data );
9504:
9505: END execute_create_project;
9556:
9557: IF FND_API.TO_BOOLEAN( p_init_msg_list )
9558: THEN
9559:
9560: FND_MSG_PUB.initialize;
9561:
9562: END IF;
9563:
9564: -- Set API return status to success
9568: -- Check Task index value, when they don't provide an index we will error out
9569: IF p_task_index = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
9570: OR p_task_index IS NULL
9571: THEN
9572: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
9573: THEN
9574: pa_interface_utils_pub.map_new_amg_msg
9575: ( p_old_message_code => 'PA_INDEX_NOT_PROVIDED'
9576: ,p_msg_attribute => 'CHANGE'
9644: p_pm_task_reference := NULL ;
9645: p_task_return_status := FND_API.G_RET_STS_ERROR ;
9646: -- 4537865
9647:
9648: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9649: THEN
9650: FND_MSG_PUB.add_exc_msg
9651: ( p_pkg_name => G_PKG_NAME
9652: , p_procedure_name => l_api_name );
9646: -- 4537865
9647:
9648: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9649: THEN
9650: FND_MSG_PUB.add_exc_msg
9651: ( p_pkg_name => G_PKG_NAME
9652: , p_procedure_name => l_api_name );
9653:
9654: END IF;
10894: SAVEPOINT Update_project_pub;
10895:
10896: IF FND_API.TO_BOOLEAN( p_init_msg_list )
10897: THEN
10898: FND_MSG_PUB.Initialize;
10899: END IF;
10900:
10901: --4218977, rtarway
10902: --we need to set this parameter only when called in AMG/MSP and not in publish flow
11060: IF (struct_ver_updatable IS NULL OR struct_ver_updatable = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
11061: OR struct_ver_updatable = 'N')
11062: THEN
11063: -- add error message to stack and throw exception
11064: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
11065: THEN
11066: pa_interface_utils_pub.map_new_amg_msg
11067: ( p_old_message_code => 'PA_STRUCT_VER_NO_UPDATE'
11068: ,p_msg_attribute => 'CHANGE'
11102: ,x_return_status => l_return_status
11103: ,x_err_code => l_err_code
11104: ) = 'Y'
11105: THEN
11106: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
11107: THEN
11108: pa_interface_utils_pub.map_new_amg_msg
11109: ( p_old_message_code => 'PA_CANT_UPD_ORG_PRJ'
11110: ,p_msg_attribute => 'CHANGE'
11143: --bug 284115
11144: AND p_pm_product_code <> 'WORKPLAN' --bug 2665656
11145: THEN
11146:
11147: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
11148: THEN
11149: pa_interface_utils_pub.map_new_amg_msg
11150: ( p_old_message_code => 'PA_PRODUCT_CODE_IS_MISSING'
11151: ,p_msg_attribute => 'CHANGE'
11176: IF l_pm_product_code <> 'X'
11177: AND p_pm_product_code <> 'WORKPLAN' --bug 2665656
11178: THEN
11179:
11180: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
11181: THEN
11182: pa_interface_utils_pub.map_new_amg_msg
11183: ( p_old_message_code => 'PA_PRODUCT_CODE_IS_INVALID'
11184: ,p_msg_attribute => 'CHANGE'
11406: --bug 2876703 --update_project
11407: IF G_IS_WP_SEPARATE_FROM_FN = 'N' AND
11408: p_structure_in.structure_type = 'WORKPLAN'
11409: THEN
11410: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
11411: THEN
11412: pa_interface_utils_pub.map_new_amg_msg
11413: ( p_old_message_code => 'PA_PS_WP_NOT_SEP_FN'
11414: ,p_msg_attribute => 'CHANGE'
11445: THEN
11446: IF PA_RELATIONSHIP_UTILS.Check_link_exists(l_project_id) = 'Y'
11447: THEN
11448: -- Throw Error Message
11449: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
11450: THEN
11451:
11452: -- Bug # 4329284.
11453:
11550: l_err_stack );
11551: IF l_err_code > 0
11552: THEN
11553:
11554: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
11555: THEN
11556: IF NOT pa_project_pvt.check_valid_message (l_err_stage)
11557: THEN
11558: pa_interface_utils_pub.map_new_amg_msg
11601: TO_NUMBER(p_project_in.pa_project_number);
11602: END IF;
11603: EXCEPTION
11604: WHEN VALUE_ERROR THEN
11605: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
11606: THEN
11607: pa_interface_utils_pub.map_new_amg_msg
11608: ( p_old_message_code => 'PA_PR_NUMERIC_NUM_REQ'
11609: ,p_msg_attribute => 'CHANGE'
11628: IF l_project_number_unique_csr%FOUND
11629: THEN
11630: CLOSE l_project_number_unique_csr;
11631:
11632: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
11633: THEN
11634: pa_interface_utils_pub.map_new_amg_msg
11635: ( p_old_message_code => 'PA_PR_EPR_PROJ_NUM_NOT_UNIQUE'
11636: ,p_msg_attribute => 'CHANGE'
11686: IF l_project_name_unique_csr%FOUND
11687: THEN
11688: CLOSE l_project_name_unique_csr;
11689:
11690: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
11691: THEN
11692: pa_interface_utils_pub.map_new_amg_msg
11693: ( p_old_message_code => 'PA_PR_EPR_PROJ_NAME_NOT_UNIQUE'
11694: ,p_msg_attribute => 'CHANGE'
11742: IF l_long_name_unique_csr%FOUND
11743: THEN
11744: CLOSE l_long_name_unique_csr;
11745:
11746: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
11747: THEN
11748: pa_interface_utils_pub.map_new_amg_msg
11749: ( p_old_message_code => 'PA_PR_EPR_LONG_NAME_NOT_UNIQUE'
11750: ,p_msg_attribute => 'CHANGE'
11813: l_project_rec.carrying_out_organization_id THEN
11814: -- check whether this is a valid organization
11815: IF pa_project_pvt.check_valid_org
11816: (p_project_in.carrying_out_organization_id) = 'N' THEN
11817: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
11818: THEN
11819: pa_interface_utils_pub.map_new_amg_msg
11820: ( p_old_message_code => 'PA_INVALID_ORG'
11821: ,p_msg_attribute => 'CHANGE'
11881: ,X_err_stage => l_err_stage
11882: ,X_err_stack => l_err_stack );
11883:
11884: IF l_err_code > 0 THEN
11885: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
11886: IF NOT pa_project_pvt.check_valid_message (l_err_stage) THEN
11887: pa_interface_utils_pub.map_new_amg_msg
11888: ( p_old_message_code => 'PA_PR_CANT_CHG_PROJ_TYPE'
11889: ,p_msg_attribute => 'CHANGE'
11938: THEN
11939:
11940: IF p_project_in.public_sector_flag NOT IN ('Y','N')
11941: THEN
11942: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
11943: THEN
11944: pa_interface_utils_pub.map_new_amg_msg
11945: ( p_old_message_code => 'PA_PUBLIC_SECTOR_INVALID'
11946: ,p_msg_attribute => 'CHANGE'
11981: IF p_project_in.distribution_rule IS NULL
11982: AND l_project_type_class_code = 'CONTRACT'
11983: THEN
11984:
11985: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
11986: THEN
11987: pa_interface_utils_pub.map_new_amg_msg
11988: ( p_old_message_code => 'PA_CONTRACT_DIST_RULE_NULL'
11989: ,p_msg_attribute => 'CHANGE'
12010: (l_project_rec.project_type,
12011: p_project_in.distribution_rule,
12012: p_project_in.enable_top_task_inv_mth_flag ) = 'N' --Bug 3279981
12013: THEN
12014: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
12015: THEN
12016: pa_interface_utils_pub.map_new_amg_msg
12017: ( p_old_message_code => 'PA_INVALID_DIST_RULE'
12018: ,p_msg_attribute => 'CHANGE'
12038:
12039: IF l_err_code > 0
12040: THEN
12041:
12042: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
12043: THEN
12044: IF NOT pa_project_pvt.check_valid_message (l_err_stage)
12045: THEN
12046: pa_interface_utils_pub.map_new_amg_msg
12134: l_project_rec.project_status_code THEN
12135: IF pa_project_pvt.check_valid_project_status
12136: (p_project_status => p_project_in.project_status_code ) = 'N'
12137: THEN
12138: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12139: pa_interface_utils_pub.map_new_amg_msg
12140: ( p_old_message_code => 'PA_PROJECT_STATUS_INVALID'
12141: ,p_msg_attribute => 'CHANGE'
12142: ,p_resize_flag => 'N'
12365: 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
12366:
12367: IF p_project_in.early_finish_date < p_project_in.early_start_date THEN
12368:
12369: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12370:
12371: pa_utils.add_message
12372: (
12373: p_app_short_name => 'PA'
12386: ELSIF l_project_rec.early_start_date IS NOT NULL THEN
12387:
12388: IF p_project_in.early_finish_date < l_project_rec.early_start_date THEN
12389:
12390: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12391:
12392: pa_utils.add_message
12393: (
12394: p_app_short_name => 'PA'
12455: 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
12456:
12457: IF p_project_in.late_finish_date < p_project_in.late_start_date THEN
12458:
12459: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12460:
12461: pa_utils.add_message
12462: (
12463: p_app_short_name => 'PA'
12474: l_update_yes_flag := 'Y';
12475: ELSIF l_project_rec.late_start_date IS NOT NULL THEN
12476: IF p_project_in.late_finish_date < l_project_rec.late_start_date THEN
12477:
12478: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12479:
12480: pa_utils.add_message
12481: (
12482: p_app_short_name => 'PA'
12888: END IF;
12889:
12890: IF l_allow_update_flag = 'N' THEN
12891:
12892: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12893:
12894: pa_utils.add_message
12895: (
12896: p_app_short_name => 'PA'
12917:
12918: ELSE
12919:
12920: --invalid currency code has been passed hence throw error
12921: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12922:
12923: pa_utils.add_message
12924: (
12925: p_app_short_name => 'PA'
13209: IF (nvl(fnd_profile.value('PA_EN_NEW_WORK_TYPE_PROCESS'),'N') = 'Y') OR (nvl(pa_install.is_prm_licensed(),'N') = 'Y' ) THEN
13210:
13211: IF p_project_in.work_type_id IS NULL AND (NOT (PA_GMS_API.vert_install)) THEN
13212:
13213: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
13214: pa_interface_utils_pub.map_new_amg_msg
13215: ( p_old_message_code => 'PA_PR_WORK_TYPE_MANDATORY'
13216: ,p_msg_attribute => 'CHANGE'
13217: ,p_resize_flag => 'Y'
13731:
13732:
13733: EXCEPTION
13734: WHEN NO_DATA_FOUND THEN
13735: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
13736: THEN
13737: pa_interface_utils_pub.map_new_amg_msg
13738: ( p_old_message_code => 'PA_INVALID_REV_SCH_ID'
13739: ,p_msg_attribute => 'CHANGE'
13776:
13777:
13778: EXCEPTION
13779: WHEN NO_DATA_FOUND THEN
13780: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
13781: THEN
13782: pa_interface_utils_pub.map_new_amg_msg
13783: ( p_old_message_code => 'PA_INVALID_INV_SCH_ID'
13784: ,p_msg_attribute => 'CHANGE'
13930: --end bug 2955326
13931: l_update_yes_flag := 'Y';
13932: EXCEPTION
13933: WHEN NO_DATA_FOUND THEN
13934: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
13935: THEN
13936: pa_interface_utils_pub.map_new_amg_msg
13937: ( p_old_message_code => 'PA_PRJ_NL_SCHEDULE_ID'
13938: ,p_msg_attribute => 'CHANGE'
14164: <> NVL(l_project_rec.multi_currency_billing_flag, PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) THEN
14165: -- if attempting to change MCB flag; check if it can be allowed
14166: IF NVL(pa_multi_currency_billing.check_mcb_trans_exist(p_project_in.pa_project_id),'N') = 'Y'
14167: OR NVL(pa_multi_currency_billing.check_mcb_setup_exists(p_project_in.pa_project_id),'N') = 'Y' THEN
14168: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
14169: FND_MESSAGE.SET_NAME('PA','PA_MCB_ALLOW_NO_CHG_AMG'); -- Cannot change MCB flag
14170: FND_MSG_PUB.ADD;
14171: RAISE FND_API.G_EXC_ERROR;
14172: END IF;
14166: IF NVL(pa_multi_currency_billing.check_mcb_trans_exist(p_project_in.pa_project_id),'N') = 'Y'
14167: OR NVL(pa_multi_currency_billing.check_mcb_setup_exists(p_project_in.pa_project_id),'N') = 'Y' THEN
14168: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
14169: FND_MESSAGE.SET_NAME('PA','PA_MCB_ALLOW_NO_CHG_AMG'); -- Cannot change MCB flag
14170: FND_MSG_PUB.ADD;
14171: RAISE FND_API.G_EXC_ERROR;
14172: END IF;
14173:
14174: END IF;
14184:
14185: -- Project Currency related attributes
14186: IF p_project_in.PROJECT_BIL_RATE_TYPE is NULL
14187: 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
14188: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
14189: FND_MESSAGE.SET_NAME('PA','PA_PROJ_RATE_TYPE_INV_AMG');
14190: FND_MESSAGE.SET_TOKEN('PROJECT', l_project_rec.segment1);
14191: FND_MSG_PUB.ADD;
14192: RAISE FND_API.G_EXC_ERROR;
14187: 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
14188: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
14189: FND_MESSAGE.SET_NAME('PA','PA_PROJ_RATE_TYPE_INV_AMG');
14190: FND_MESSAGE.SET_TOKEN('PROJECT', l_project_rec.segment1);
14191: FND_MSG_PUB.ADD;
14192: RAISE FND_API.G_EXC_ERROR;
14193: END IF;
14194: ELSE
14195: IF p_project_in.PROJECT_BIL_RATE_TYPE = 'User' THEN
14194: ELSE
14195: IF p_project_in.PROJECT_BIL_RATE_TYPE = 'User' THEN
14196: IF p_project_in.PROJECT_BIL_EXCHANGE_RATE is NULL
14197: OR p_project_in.PROJECT_BIL_EXCHANGE_RATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
14198: 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.
14199: FND_MESSAGE.SET_NAME('PA','PA_EXCH_RATE_NULL_PC_AMG');
14200: FND_MSG_PUB.ADD;
14201: RAISE FND_API.G_EXC_ERROR;
14202: END IF;
14196: IF p_project_in.PROJECT_BIL_EXCHANGE_RATE is NULL
14197: OR p_project_in.PROJECT_BIL_EXCHANGE_RATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
14198: 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.
14199: FND_MESSAGE.SET_NAME('PA','PA_EXCH_RATE_NULL_PC_AMG');
14200: FND_MSG_PUB.ADD;
14201: RAISE FND_API.G_EXC_ERROR;
14202: END IF;
14203: END IF;
14204:
14209: ELSE -- non-User type
14210: IF p_project_in.PROJECT_BIL_RATE_DATE_CODE is NULL
14211: OR p_project_in.PROJECT_BIL_RATE_DATE_CODE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
14212:
14213: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
14214: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_TYPE_INVALID_AMG');
14215: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Project Currency');
14216: FND_MSG_PUB.ADD;
14217: RAISE FND_API.G_EXC_ERROR;
14212:
14213: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
14214: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_TYPE_INVALID_AMG');
14215: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Project Currency');
14216: FND_MSG_PUB.ADD;
14217: RAISE FND_API.G_EXC_ERROR;
14218: END IF;
14219: ELSE
14220: IF p_project_in.PROJECT_BIL_RATE_DATE_CODE = 'FIXED_DATE' THEN --Modified for bug 6332591
14219: ELSE
14220: IF p_project_in.PROJECT_BIL_RATE_DATE_CODE = 'FIXED_DATE' THEN --Modified for bug 6332591
14221: IF p_project_in.PROJECT_BIL_RATE_DATE is NULL
14222: OR p_project_in.PROJECT_BIL_RATE_DATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
14223: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
14224: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_INVALID_AMG');
14225: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Project Currency');
14226: FND_MSG_PUB.ADD;
14227: RAISE FND_API.G_EXC_ERROR;
14222: OR p_project_in.PROJECT_BIL_RATE_DATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
14223: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
14224: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_INVALID_AMG');
14225: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Project Currency');
14226: FND_MSG_PUB.ADD;
14227: RAISE FND_API.G_EXC_ERROR;
14228: END IF;
14229: END IF;
14230: END IF;
14248:
14249: -- Project Functional Currency related attributes
14250: IF p_project_in.PROJFUNC_BIL_RATE_TYPE is NULL
14251: 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
14252: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
14253: FND_MESSAGE.SET_NAME('PA','PA_PFC_RATE_TYPE_INV_AMG');
14254: FND_MSG_PUB.ADD;
14255: RAISE FND_API.G_EXC_ERROR;
14256: END IF;
14250: IF p_project_in.PROJFUNC_BIL_RATE_TYPE is NULL
14251: 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
14252: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
14253: FND_MESSAGE.SET_NAME('PA','PA_PFC_RATE_TYPE_INV_AMG');
14254: FND_MSG_PUB.ADD;
14255: RAISE FND_API.G_EXC_ERROR;
14256: END IF;
14257: ELSE
14258: IF p_project_in.PROJFUNC_BIL_RATE_TYPE = 'User' THEN
14257: ELSE
14258: IF p_project_in.PROJFUNC_BIL_RATE_TYPE = 'User' THEN
14259: IF p_project_in.PROJFUNC_BIL_EXCHANGE_RATE is NULL
14260: OR p_project_in.PROJFUNC_BIL_EXCHANGE_RATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
14261: 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.
14262: FND_MESSAGE.SET_NAME('PA','PA_EXCH_RATE_NULL_PF_AMG');
14263: FND_MSG_PUB.ADD;
14264: RAISE FND_API.G_EXC_ERROR;
14265: END IF;
14259: IF p_project_in.PROJFUNC_BIL_EXCHANGE_RATE is NULL
14260: OR p_project_in.PROJFUNC_BIL_EXCHANGE_RATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
14261: 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.
14262: FND_MESSAGE.SET_NAME('PA','PA_EXCH_RATE_NULL_PF_AMG');
14263: FND_MSG_PUB.ADD;
14264: RAISE FND_API.G_EXC_ERROR;
14265: END IF;
14266: END IF;
14267:
14272: ELSE -- non-User type
14273: IF p_project_in.PROJFUNC_BIL_RATE_DATE_CODE is NULL
14274: OR p_project_in.PROJFUNC_BIL_RATE_DATE_CODE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
14275:
14276: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
14277: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_TYPE_INVALID_AMG');
14278: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Project Functional Currency');
14279: FND_MSG_PUB.ADD;
14280: RAISE FND_API.G_EXC_ERROR;
14275:
14276: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
14277: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_TYPE_INVALID_AMG');
14278: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Project Functional Currency');
14279: FND_MSG_PUB.ADD;
14280: RAISE FND_API.G_EXC_ERROR;
14281: END IF;
14282: ELSE
14283: IF p_project_in.PROJFUNC_BIL_RATE_DATE_CODE = 'FIXED_DATE' THEN --Modified for bug 6332591
14282: ELSE
14283: IF p_project_in.PROJFUNC_BIL_RATE_DATE_CODE = 'FIXED_DATE' THEN --Modified for bug 6332591
14284: IF p_project_in.PROJFUNC_BIL_RATE_DATE is NULL
14285: OR p_project_in.PROJFUNC_BIL_RATE_DATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
14286: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
14287: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_INVALID_AMG');
14288: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Project Functional Currency');
14289: FND_MSG_PUB.ADD;
14290: RAISE FND_API.G_EXC_ERROR;
14285: OR p_project_in.PROJFUNC_BIL_RATE_DATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
14286: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
14287: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_INVALID_AMG');
14288: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Project Functional Currency');
14289: FND_MSG_PUB.ADD;
14290: RAISE FND_API.G_EXC_ERROR;
14291: END IF;
14292: END IF;
14293: END IF;
14309:
14310: -- Funding Currency related attributes
14311: IF p_project_in.FUNDING_RATE_TYPE is NULL
14312: 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
14313: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
14314: FND_MESSAGE.SET_NAME('PA','PA_FUND_RATE_TYPE_INV_AMG');
14315: FND_MSG_PUB.ADD;
14316: RAISE FND_API.G_EXC_ERROR;
14317: END IF;
14311: IF p_project_in.FUNDING_RATE_TYPE is NULL
14312: 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
14313: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
14314: FND_MESSAGE.SET_NAME('PA','PA_FUND_RATE_TYPE_INV_AMG');
14315: FND_MSG_PUB.ADD;
14316: RAISE FND_API.G_EXC_ERROR;
14317: END IF;
14318: ELSE
14319: IF p_project_in.FUNDING_RATE_TYPE = 'User' THEN
14318: ELSE
14319: IF p_project_in.FUNDING_RATE_TYPE = 'User' THEN
14320: IF p_project_in.FUNDING_EXCHANGE_RATE is NULL
14321: OR p_project_in.FUNDING_EXCHANGE_RATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
14322: 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.
14323: FND_MESSAGE.SET_NAME('PA','PA_EXCHANGE_RATE_NULL');
14324: FND_MSG_PUB.ADD;
14325: RAISE FND_API.G_EXC_ERROR;
14326: END IF;
14320: IF p_project_in.FUNDING_EXCHANGE_RATE is NULL
14321: OR p_project_in.FUNDING_EXCHANGE_RATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
14322: 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.
14323: FND_MESSAGE.SET_NAME('PA','PA_EXCHANGE_RATE_NULL');
14324: FND_MSG_PUB.ADD;
14325: RAISE FND_API.G_EXC_ERROR;
14326: END IF;
14327: END IF;
14328: l_statement := l_statement || ' FUNDING_EXCHANGE_RATE = :fnding_xch_rt,';
14332: ELSE -- non-User type
14333: IF p_project_in.FUNDING_RATE_DATE_CODE is NULL
14334: OR p_project_in.FUNDING_RATE_DATE_CODE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
14335:
14336: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
14337: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_TYPE_INVALID_AMG');
14338: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Funding Currency');
14339: FND_MSG_PUB.ADD;
14340: RAISE FND_API.G_EXC_ERROR;
14335:
14336: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
14337: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_TYPE_INVALID_AMG');
14338: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Funding Currency');
14339: FND_MSG_PUB.ADD;
14340: RAISE FND_API.G_EXC_ERROR;
14341: END IF;
14342: ELSE
14343: IF p_project_in.FUNDING_RATE_DATE_CODE = 'FIXED_DATE' THEN --Modified for bug 6332591
14342: ELSE
14343: IF p_project_in.FUNDING_RATE_DATE_CODE = 'FIXED_DATE' THEN --Modified for bug 6332591
14344: IF p_project_in.FUNDING_RATE_DATE is NULL
14345: OR p_project_in.FUNDING_RATE_DATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
14346: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
14347: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_INVALID_AMG');
14348: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Funding Currency');
14349: FND_MSG_PUB.ADD;
14350: RAISE FND_API.G_EXC_ERROR;
14345: OR p_project_in.FUNDING_RATE_DATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
14346: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
14347: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_INVALID_AMG');
14348: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Funding Currency');
14349: FND_MSG_PUB.ADD;
14350: RAISE FND_API.G_EXC_ERROR;
14351: END IF;
14352: END IF;
14353: END IF;
15070: -- if not valid, throw error message
15071:
15072: IF l_valid_prio_code = 'N' THEN
15073:
15074: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
15075:
15076: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
15077: ,p_msg_name => 'PA_INVALID_PRIORITY_CODE');
15078:
15159:
15160: IF ((p_project_in.include_gains_losses_flag = 'Y' OR l_project_rec.include_gains_losses_flag ='Y')
15161: AND (p_project_in.revaluate_funding_flag = 'N'))
15162: THEN
15163: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
15164: THEN
15165: pa_interface_utils_pub.map_new_amg_msg
15166: ( p_old_message_code => 'PA_CANT_UPDATE_REV_FUN'
15167: ,p_msg_attribute => 'CHANGE'
15286: --end bug 2955326
15287: l_update_yes_flag := 'Y';
15288: /*Added the else part of the code for bug 2891513*/
15289: ELSE
15290: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
15291: THEN
15292: pa_interface_utils_pub.map_new_amg_msg
15293: ( p_old_message_code => 'PA_CANT_UPDATE_GAIN_LOSSES'
15294: ,p_msg_attribute => 'CHANGE'
15588: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
15589: RAISE FND_API.G_EXC_ERROR;
15590: END IF;
15591: ELSE
15592: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
15593: pa_interface_utils_pub.map_new_amg_msg
15594: ( p_old_message_code => 'PA_TOP_TASK_CUST_FLAG_INVALID'
15595: ,p_msg_attribute => 'NOCHANGE'--Changed to NOCHANGE for Bug- 4762153
15596: ,p_resize_flag => 'N'
15658: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
15659: RAISE FND_API.G_EXC_ERROR;
15660: END IF;
15661: ELSE
15662: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
15663: pa_interface_utils_pub.map_new_amg_msg
15664: ( p_old_message_code => 'PA_TT_INV_MTH_FLAG_INVALID'
15665: ,p_msg_attribute => 'CHANGE'
15666: ,p_resize_flag => 'N'
15719: l_b_cc_tax_task_id := 'Y';
15720: l_update_yes_flag := 'Y';
15721: EXCEPTION
15722: WHEN NO_DATA_FOUND THEN
15723: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
15724: THEN
15725: pa_interface_utils_pub.map_new_amg_msg
15726: ( p_old_message_code => 'PA_INVALID_TAX_TASK_ID'
15727: ,p_msg_attribute => 'CHANGE'
16623: loop
16624:
16625: 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
16626:
16627: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
16628: THEN
16629: pa_interface_utils_pub.map_new_amg_msg
16630: (p_old_message_code => 'PA_TASK_ID_IS_MISS'-- new message for bug 3548473: 3627124
16631: ,p_msg_attribute => 'CHANGE'
16665: IF -- Bug # 5077599.
16666: (p_pass_entire_structure = 'N' AND l_structure_type = 'WORKPLAN' and p_update_mode <> 'PA_UPD_TASK_ATTR') OR -- bhaskar
16667: (p_pass_entire_structure = 'N' AND G_IS_WP_SEPARATE_FROM_FN = 'N' and p_update_mode <> 'PA_UPD_TASK_ATTR') THEN
16668: -- Bug # 5077599.
16669: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
16670: THEN
16671: pa_interface_utils_pub.map_new_amg_msg
16672: ( p_old_message_code => 'PA_TASK_STRUCT_NOT_ORDRD'-- new message for bug 3548473: 3627124
16673: ,p_msg_attribute => 'CHANGE'
16897: THEN
16898: IF p_tasks_in(i).pm_task_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
16899: OR p_tasks_in(i).pm_task_reference IS NULL
16900: THEN
16901: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
16902: THEN
16903: pa_interface_utils_pub.map_new_amg_msg
16904: ( p_old_message_code => 'PA_TASK_REF_AND_ID_MISSING'
16905: ,p_msg_attribute => 'CHANGE'
17066: , x_err_stack => l_err_stack );
17067:
17068: IF l_err_code <> 0
17069: THEN
17070: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
17071: IF NOT pa_project_pvt.check_valid_message(l_err_stage)
17072: THEN
17073: pa_interface_utils_pub.map_new_amg_msg
17074: ( p_old_message_code => 'PA_CHECK_ADD_SUBTASK_FAILED'
18074: THEN
18075:
18076: IF G_WP_STR_EXISTS = 'N'
18077: THEN
18078: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
18079: THEN
18080: pa_interface_utils_pub.map_new_amg_msg
18081: ( p_old_message_code => 'PA_PS_WP_NOT_SEP_FN'
18082: ,p_msg_attribute => 'CHANGE'
18095:
18096: IF ( p_structure_in.structure_version_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM OR
18097: p_structure_in.structure_version_id IS NULL ) AND l_structure_version_id IS NULL
18098: THEN
18099: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
18100: THEN
18101: pa_interface_utils_pub.map_new_amg_msg
18102: ( p_old_message_code => 'PA_PS_STRUC_VER_REQ'
18103: ,p_msg_attribute => 'CHANGE'
18142: THEN
18143: IF p_tasks_in(i).pm_task_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
18144: OR p_tasks_in(i).pm_task_reference IS NULL
18145: THEN
18146: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
18147: THEN
18148: pa_interface_utils_pub.map_new_amg_msg
18149: ( p_old_message_code => 'PA_TASK_REF_AND_ID_MISSING'
18150: ,p_msg_attribute => 'CHANGE'
18237: );
18238:
18239: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
18240: THEN
18241: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
18242: THEN
18243: pa_interface_utils_pub.map_new_amg_msg
18244: ( p_old_message_code => 'PA_PARENT_TASK_MISSING'
18245: ,p_msg_attribute => 'CHANGE'
18679: THEN
18680:
18681: CLOSE l_min_task_start_date_csr;
18682:
18683: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
18684: THEN
18685: pa_interface_utils_pub.map_new_amg_msg
18686: ( p_old_message_code => 'PA_PR_INVALID_START_DATE'
18687: ,p_msg_attribute => 'CHANGE'
18725:
18726: CLOSE l_max_task_end_date_csr;
18727: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
18728:
18729: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
18730: THEN
18731: /* The FND_AS_UNEXPECTED_ERROR message is being reported from UPDATE_PROJECT API and modified
18732: the following. Replaced the message name from PA_PR_INVALID_COMPLETION_DATE with
18733: PA_PR_INVALID_COMP_DATE (this is limited to 30 characters after appended with '_AMG') and
18781: /* Code below is added for Bug 3326468. Start_date of key members is now a mandatory field to
18782: Update_project */
18783: IF p_key_members(i).start_date IS NULL OR
18784: p_key_members(i).start_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE then
18785: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
18786: THEN
18787: pa_utils.add_message
18788: ( p_app_short_name => 'PA'-- new message for bug 3326468
18789: ,p_msg_name => 'PA_KEYMBR_NO_START_DATE'
18803: FETCH l_project_role_types_csr INTO l_dummy;
18804:
18805: IF l_project_role_types_csr%NOTFOUND THEN
18806:
18807: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
18808: THEN
18809: pa_interface_utils_pub.map_new_amg_msg
18810: ( p_old_message_code => 'PA_INVALID_ROLE_TYPE'
18811: ,p_msg_attribute => 'CHANGE'
18842: p_key_members(i).start_date <>
18843: PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE ) THEN
18844: IF p_key_members(i).start_date >
18845: p_key_members(i).end_date THEN
18846: IF FND_MSG_PUB.Check_Msg_Level
18847: (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
18848: pa_interface_utils_pub.map_new_amg_msg
18849: ( p_old_message_code => 'PA_PR_INVALID_KM_DATES'
18850: ,p_msg_attribute => 'CHANGE'
18843: PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE ) THEN
18844: IF p_key_members(i).start_date >
18845: p_key_members(i).end_date THEN
18846: IF FND_MSG_PUB.Check_Msg_Level
18847: (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
18848: pa_interface_utils_pub.map_new_amg_msg
18849: ( p_old_message_code => 'PA_PR_INVALID_KM_DATES'
18850: ,p_msg_attribute => 'CHANGE'
18851: ,p_resize_flag => 'N'
18943: END IF;
18944: END IF;
18945: IF l_temp_end_date < l_temp_start_date THEN
18946: p_return_status := FND_API.G_RET_STS_ERROR;
18947: IF FND_MSG_PUB.Check_Msg_Level
18948: (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
18949: pa_interface_utils_pub.map_new_amg_msg
18950: ( p_old_message_code => 'PA_PR_INVALID_KM_DATES'
18951: ,p_msg_attribute => 'CHANGE'
18944: END IF;
18945: IF l_temp_end_date < l_temp_start_date THEN
18946: p_return_status := FND_API.G_RET_STS_ERROR;
18947: IF FND_MSG_PUB.Check_Msg_Level
18948: (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
18949: pa_interface_utils_pub.map_new_amg_msg
18950: ( p_old_message_code => 'PA_PR_INVALID_KM_DATES'
18951: ,p_msg_attribute => 'CHANGE'
18952: ,p_resize_flag => 'N'
19096: OPEN c_prj_count(l_project_id);
19097: FETCH c_prj_count INTO l_prj_mgr_count;
19098: CLOSE c_prj_count;
19099: IF l_prj_mgr_count = 0 THEN
19100: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
19101: pa_utils.add_message
19102: ( p_app_short_name => 'PA'
19103: ,p_msg_name => 'PA_PR_INSUF_PROJ_MGR'
19104: );
19172: l_temp_end_date := l_org_roles_rec.end_date_active;
19173: END IF;
19174: IF l_temp_end_date < l_temp_start_date THEN
19175: p_return_status := FND_API.G_RET_STS_ERROR;
19176: IF FND_MSG_PUB.Check_Msg_Level
19177: (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
19178: pa_interface_utils_pub.map_new_amg_msg
19179: ( p_old_message_code => 'PA_PR_INVALID_OR_DATES'
19180: ,p_msg_attribute => 'CHANGE'
19173: END IF;
19174: IF l_temp_end_date < l_temp_start_date THEN
19175: p_return_status := FND_API.G_RET_STS_ERROR;
19176: IF FND_MSG_PUB.Check_Msg_Level
19177: (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
19178: pa_interface_utils_pub.map_new_amg_msg
19179: ( p_old_message_code => 'PA_PR_INVALID_OR_DATES'
19180: ,p_msg_attribute => 'CHANGE'
19181: ,p_resize_flag => 'N'
19322: OPEN c_get_class_code_id(p_class_categories(i).class_category,
19323: p_class_categories(i).new_class_code);
19324: fetch c_get_class_code_id into l_new_class_code_id;
19325: if c_get_class_code_id%notfound then
19326: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
19327: THEN
19328: pa_interface_utils_pub.map_new_amg_msg
19329: ( p_old_message_code => 'PA_INVALID_CLASS_CATEGORY'
19330: ,p_msg_attribute => 'CHANGE'
19349: ,p_classification_type => 'CLASS_CODE'
19350: ,x_return_status => l_return_status
19351: ,x_msg_count => l_msg_count
19352: ,x_msg_data => l_msg_data );
19353: l_msg_count := FND_MSG_PUB.count_msg;
19354: IF l_msg_count > 0 THEN
19355: x_msg_count := l_msg_count;
19356: x_return_status := 'E';
19357: RAISE FND_API.G_EXC_ERROR;
19477:
19478: IF ( cur_customer_status%NOTFOUND ) THEN
19479: --dbms_output.put_line('five'||l_check_relationship_flag);
19480: --passed customer does not exist
19481: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
19482: --Changed the error message from PA_CUSTOMER_NOT_EXIST to PA_CUSTOMER_ID_INVALID for Bug#5183150
19483: pa_utils.add_message
19484: ( p_app_short_name => 'PA'
19485: ,p_msg_name => 'PA_CUSTOMER_ID_INVALID'
19492: ELSIF ( cur_customer_status%FOUND ) THEN
19493: --dbms_output.put_line('four'||l_check_relationship_flag);
19494: IF ( l_cust_status = 'I' ) THEN
19495: --customer is not active
19496: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
19497: pa_utils.add_message
19498: ( p_app_short_name => 'PA'
19499: ,p_msg_name => 'PA_CUSTOMER_NOT_ACTIVE'
19500: ,p_token1 => 'PROJECT_NAME'
19534: 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)
19535: --bug 3716805
19536: THEN
19537: If p_project_in.customer_id IS NULL OR p_project_in.customer_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
19538: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
19539: THEN
19540: pa_interface_utils_pub.map_new_amg_msg
19541: ( p_old_message_code => 'PA_CUSTOMER_ID_IS_NULL'
19542: ,p_msg_attribute => 'CHANGE'
19680: -- For this API,error code 10 is a warning.Anything above 10 is an error
19681: IF l_err_code > 10
19682: THEN
19683:
19684: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
19685: THEN
19686:
19687: IF NOT pa_project_pvt.check_valid_message(l_err_stage)
19688: THEN
19716:
19717: ELSIF l_err_code < 0
19718: THEN
19719:
19720: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
19721: THEN
19722: pa_interface_utils_pub.map_new_amg_msg
19723: ( p_old_message_code => 'PA_GET_CUSTOMER_INFO_FAILED'
19724: ,p_msg_attribute => 'CHANGE'
19801: , x_msg_data => l_msg_data );
19802:
19803: -- Bug 5622539
19804: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
19805: l_msg_count := FND_MSG_PUB.count_msg;
19806: if l_msg_count = 1 then
19807: PA_INTERFACE_UTILS_PUB.get_messages
19808: (p_encoded => FND_API.G_FALSE,
19809: p_msg_index => 1,
19842: , x_msg_data => l_msg_data );
19843:
19844: -- Bug 5622539
19845: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
19846: l_msg_count := FND_MSG_PUB.count_msg;
19847: if l_msg_count = 1 then
19848: PA_INTERFACE_UTILS_PUB.get_messages
19849: (p_encoded => FND_API.G_FALSE,
19850: p_msg_index => 1,
19908: , x_msg_data => l_msg_data );
19909:
19910: -- Bug 5622539
19911: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
19912: l_msg_count := FND_MSG_PUB.count_msg;
19913: if l_msg_count = 1 then
19914: PA_INTERFACE_UTILS_PUB.get_messages
19915: (p_encoded => FND_API.G_FALSE,
19916: p_msg_index => 1,
19952: , x_msg_data => l_msg_data );
19953:
19954: -- Bug 5622539
19955: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
19956: l_msg_count := FND_MSG_PUB.count_msg;
19957: if l_msg_count = 1 then
19958: PA_INTERFACE_UTILS_PUB.get_messages
19959: (p_encoded => FND_API.G_FALSE,
19960: p_msg_index => 1,
19999: 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)
20000: --bug 3716805
20001: THEN
20002: If p_project_in.customer_id IS NULL OR p_project_in.customer_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
20003: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
20004: THEN
20005: pa_interface_utils_pub.map_new_amg_msg
20006: ( p_old_message_code => 'PA_CUSTOMER_ID_IS_NULL'
20007: ,p_msg_attribute => 'CHANGE'
20025: --bug 3716805
20026: THEN
20027: --dbms_output.put_line('comes into karthiks 0th else');
20028: 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
20029: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
20030: THEN
20031: pa_interface_utils_pub.map_new_amg_msg
20032: ( p_old_message_code => 'PA_CUSTOMER_ID_IS_NULL'
20033: ,p_msg_attribute => 'CHANGE'
20070: 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
20071: --dbms_output.put_line('comes into karthiks 1st else');
20072: IF p_customers_in(i).project_relationship_code IS NULL OR
20073: p_customers_in(i).project_relationship_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
20074: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
20075: THEN
20076: pa_utils.add_message
20077: ( p_app_short_name => 'PA'-- using existing message for AA TRACKING
20078: ,p_msg_name => 'PA_RELATIONSHIP_CODE_REQD'
20093: or NVL(l_project_rec.DATE_EFF_FUNDS_CONSUMPTION, 'N') <> 'Y') /* Added the condition for Bug 10416869*/
20094: then
20095: IF p_customers_in(i).CUSTOMER_BILL_SPLIT IS NULL OR
20096: p_customers_in(i).CUSTOMER_BILL_SPLIT = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM then
20097: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
20098: THEN
20099: pa_utils.add_message
20100: ( p_app_short_name => 'PA'-- new message for AA TRACKING
20101: ,p_msg_name => 'PA_CUST_BILL_SPLIT_REQD'
20264: then
20265:
20266:
20267: 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
20268: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
20269: THEN
20270: pa_utils.add_message
20271: ( p_app_short_name => 'PA'-- existing message for tracking bug
20272: ,p_msg_name => 'PA_CONTACT_TYPE_REQD'
20332: -- For this API,error code 10 is a warning.Anything above 10 is an error
20333: IF l_err_code > 10
20334: THEN
20335:
20336: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
20337: THEN
20338:
20339: IF NOT pa_project_pvt.check_valid_message(l_err_stage)
20340: THEN
20368:
20369: ELSIF l_err_code < 0
20370: THEN
20371:
20372: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
20373: THEN
20374: pa_interface_utils_pub.map_new_amg_msg
20375: ( p_old_message_code => 'PA_GET_CUSTOMER_INFO_FAILED'
20376: ,p_msg_attribute => 'CHANGE'
20549:
20550: --uncommented and modified the below for Bug#5554475
20551:
20552: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
20553: x_msg_count := FND_MSG_PUB.count_msg;
20554: if x_msg_count = 1 then
20555: PA_INTERFACE_UTILS_PUB.get_messages
20556: (p_encoded => FND_API.G_FALSE,
20557: p_msg_index => 1,
20604: /* call to create_customer_contacts added for tracking bug by aditi */
20605: IF l_err_code > 0
20606: THEN
20607:
20608: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
20609: THEN
20610:
20611: IF NOT pa_project_pvt.check_valid_message(l_err_stage)
20612: THEN
20640:
20641: ELSIF l_err_code < 0
20642: THEN
20643:
20644: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
20645: THEN
20646: pa_interface_utils_pub.map_new_amg_msg
20647: ( p_old_message_code => 'PA_CREATE_CONTACTS_FAILED'
20648: ,p_msg_attribute => 'CHANGE'
20720: l_customer_bill_split := Cur_Customer_rec.Customer_Bill_Split;
20721: END IF;
20722: Else
20723: If (pa_customer_info.revenue_accrued_or_billed(l_project_id)) then
20724: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
20725: THEN
20726: pa_utils.add_message
20727: ( p_app_short_name => 'PA'-- new message for bug 3326468
20728: ,p_msg_name => 'PA_UPD_CUST_NOT_ALLOWED'
20748: l_receiver_task_id := Cur_Customer_rec.receiver_task_id;
20749: END IF;
20750: Else /* Some value of passed for receiver_task_id */
20751: If l_bill_another_project_flag = 'N' Then
20752: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
20753: THEN
20754: pa_utils.add_message
20755: ( p_app_short_name => 'PA'-- new message for bug 4153629
20756: ,p_msg_name => 'PA_UPD_RCVR_TSK_NOT_ALLOWED'
20793: l_receiver_task_id := Cur_Customer_rec.receiver_task_id;
20794: END IF;
20795: Else /* Some value of passed for receiver_task_id */
20796: If l_bill_another_project_flag = 'N' Then
20797: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
20798: THEN
20799: pa_utils.add_message
20800: ( p_app_short_name => 'PA'-- new message for bug 4153629
20801: ,p_msg_name => 'PA_UPD_RCVR_TSK_NOT_ALLOWED'
20864: then
20865:
20866:
20867: 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
20868: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
20869: THEN
20870: pa_utils.add_message
20871: ( p_app_short_name => 'PA'-- existing message for tracking bug
20872: ,p_msg_name => 'PA_CONTACT_TYPE_REQD'
20922: -- For this API,error code 10 is a warning.Anything above 10 is an error
20923: IF l_err_code > 10
20924: THEN
20925:
20926: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
20927: THEN
20928:
20929: IF NOT pa_project_pvt.check_valid_message(l_err_stage)
20930: THEN
20958:
20959: ELSIF l_err_code < 0
20960: THEN
20961:
20962: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
20963: THEN
20964: pa_interface_utils_pub.map_new_amg_msg
20965: ( p_old_message_code => 'PA_GET_CUSTOMER_INFO_FAILED'
20966: ,p_msg_attribute => 'CHANGE'
21147:
21148: -- Start of addition for bug 5554475
21149:
21150: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
21151: x_msg_count := FND_MSG_PUB.count_msg;
21152: if x_msg_count = 1 then
21153: PA_INTERFACE_UTILS_PUB.get_messages
21154: (p_encoded => FND_API.G_FALSE,
21155: p_msg_index => 1,
21201: );
21202: IF l_err_code > 0
21203: THEN
21204:
21205: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
21206: THEN
21207:
21208: IF NOT pa_project_pvt.check_valid_message(l_err_stage)
21209: THEN
21237:
21238: ELSIF l_err_code < 0
21239: THEN
21240:
21241: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
21242: THEN
21243: pa_interface_utils_pub.map_new_amg_msg
21244: ( p_old_message_code => 'PA_CREATE_CONTACTS_FAILED'
21245: ,p_msg_attribute => 'CHANGE'
21306: x_return_status => x_return_status
21307: );
21308:
21309: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
21310: x_msg_count := FND_MSG_PUB.count_msg;
21311: if x_msg_count = 1 then
21312: PA_INTERFACE_UTILS_PUB.get_messages
21313: (p_encoded => FND_API.G_FALSE,
21314: p_msg_index => 1,
21593: l_status_changeable := PA_Project_Stus_Utils.allow_status_change(l_project_rec.project_status_code,p_project_in.project_status_code);
21594:
21595: IF (l_status_changeable='N') THEN
21596: FND_MESSAGE.SET_NAME('PA', 'PA_STATUS_CANT_CHANGE');
21597: FND_MSG_PUB.ADD;
21598: RAISE FND_API.G_EXC_ERROR;
21599: END IF;
21600:
21601: Pa_project_stus_utils.Handle_Project_Status_Change
22336:
22337: -- 4537865
22338: p_workflow_started := NULL ;
22339:
22340: FND_MSG_PUB.Count_And_Get
22341: ( p_count => p_msg_count ,
22342: p_data => p_msg_data );
22343:
22344:
22381:
22382: -- 4537865
22383: p_workflow_started := NULL ;
22384:
22385: FND_MSG_PUB.Count_And_Get
22386: ( p_count => p_msg_count ,
22387: p_data => p_msg_data );
22388:
22389: WHEN NO_DATA_FOUND THEN
22482: if (p_pm_product_code <> 'WORKPLAN') then
22483: G_OP_VALIDATE_FLAG := null;
22484: G_TASK_STR_UPDATE_MODE := null;
22485: end if;
22486: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
22487: THEN
22488: FND_MESSAGE.SET_NAME('PA','PA_ROW_ALREADY_LOCKED_P_AMG');
22489: FND_MESSAGE.SET_TOKEN('PROJECT', l_project_rec.segment1);
22490: FND_MESSAGE.SET_TOKEN('ENTITY', G_PROJECT_CODE);
22487: THEN
22488: FND_MESSAGE.SET_NAME('PA','PA_ROW_ALREADY_LOCKED_P_AMG');
22489: FND_MESSAGE.SET_TOKEN('PROJECT', l_project_rec.segment1);
22490: FND_MESSAGE.SET_TOKEN('ENTITY', G_PROJECT_CODE);
22491: FND_MSG_PUB.ADD;
22492: END IF;
22493:
22494: FND_MSG_PUB.Count_And_Get
22495: ( p_count => p_msg_count ,
22490: FND_MESSAGE.SET_TOKEN('ENTITY', G_PROJECT_CODE);
22491: FND_MSG_PUB.ADD;
22492: END IF;
22493:
22494: FND_MSG_PUB.Count_And_Get
22495: ( p_count => p_msg_count ,
22496: p_data => p_msg_data );
22497:
22498:
22532: --4218977, rtarway, unset this global variable
22533: if (p_pm_product_code <> 'WORKPLAN') then
22534: G_OP_VALIDATE_FLAG := null;
22535: end if;
22536: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
22537: FND_MSG_PUB.add_exc_msg
22538: ( p_pkg_name => G_PKG_NAME
22539: , p_procedure_name => l_api_name );
22540: END IF;
22533: if (p_pm_product_code <> 'WORKPLAN') then
22534: G_OP_VALIDATE_FLAG := null;
22535: end if;
22536: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
22537: FND_MSG_PUB.add_exc_msg
22538: ( p_pkg_name => G_PKG_NAME
22539: , p_procedure_name => l_api_name );
22540: END IF;
22541:
22541:
22542: -- 4537865
22543: p_workflow_started := NULL ;
22544:
22545: FND_MSG_PUB.Count_And_Get
22546: ( p_count => p_msg_count ,
22547: p_data => p_msg_data );
22548:
22549:
22982: SAVEPOINT update_task_pub;
22983: -- Begin Bug # 4630058.
22984: -- Initialize the message table if requested.
22985: if FND_API.TO_BOOLEAN(p_init_msg_list) then
22986: FND_MSG_PUB.initialize;
22987: end if;
22988: -- End Bug # 4630058.
22989:
22990: -- 4537865 : Initialize return status to success
23132: IF (p_structure_type is null OR p_structure_type = 'WORKPLAN') THEN
23133: IF PA_PROJ_TASK_STRUC_PUB.WP_STR_EXISTS( l_project_id ) = 'N' OR
23134: NVL( l_is_wp_separate_from_fn,'N') = 'N' --bug 2876703 update_task
23135: THEN
23136: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
23137: THEN
23138: pa_interface_utils_pub.map_new_amg_msg
23139: ( p_old_message_code => 'PA_PS_WP_NOT_SEP_FN'
23140: ,p_msg_attribute => 'CHANGE'
23273: IF (l_return_status <> 'S')
23274: THEN
23275: --rtarway , 3661788, comment close command
23276: --CLOSE l_task_ref_to_id_csr;
23277: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
23278: THEN
23279: l_amg_task_number := pa_interface_utils_pub.get_task_number_amg
23280: (p_task_number => p_task_name
23281: ,p_task_reference => p_pm_task_reference
23313: IF pa_project_pvt.check_valid_dist_rule
23314: ( l_proj_type,
23315: l_proj_revenue_acc_method||'/'||p_invoice_method,
23316: l_proj_top_task_inv_mth_flag ) = 'N' THEN
23317: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
23318: pa_interface_utils_pub.map_new_amg_msg
23319: ( p_old_message_code => 'PA_INV_TASK_INVOICE_METHOD' -- for bug# 4156036
23320: ,p_msg_attribute => 'CHANGE'
23321: ,p_resize_flag => 'N'
23400: 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
23401: OPEN cur_check_proj_cust_exist(l_project_id,p_customer_id);
23402: FETCH cur_check_proj_cust_exist INTO l_dummy;
23403: IF cur_check_proj_cust_exist%NOTFOUND THEN
23404: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
23405: /* Commented This code For Bug 4689326
23406: pa_interface_utils_pub.map_new_amg_msg
23407: ( p_old_message_code => 'PA_INVALID_TASK_CUSTOMER'
23408: ,p_msg_attribute => 'CHANGE'
24073: --If update task is called from update_project api then PA_PROJ_TASK_STRUC_PUB.IS_WP_SEPARATE_FROM_FN wont be called
24074: --bcoz G_IS_WP_SEPARATE_FROM_FN will already be set by upate_project.
24075: -- 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
24076: --THEN
24077: -- IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
24078: -- THEN
24079: -- pa_interface_utils_pub.map_new_amg_msg
24080: -- ( p_old_message_code => 'PA_PS_WP_NOT_SEP_FN'
24081: -- ,p_msg_attribute => 'CHANGE'
24132: ----dbms_output.put_line('l_structure_version_id--ut'||l_structure_version_id);
24133: IF ( l_structure_version_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM OR
24134: l_structure_version_id IS NULL )
24135: THEN
24136: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
24137: THEN
24138: pa_interface_utils_pub.map_new_amg_msg
24139: ( p_old_message_code => 'PA_PS_STRUC_VER_REQ'
24140: ,p_msg_attribute => 'CHANGE'
24636: p_out_pa_task_id := NULL ;
24637: p_out_pm_task_reference := NULL ;
24638: -- 4537865
24639:
24640: FND_MSG_PUB.Count_And_Get
24641: ( p_count => p_msg_count ,
24642: p_data => p_msg_data );
24643:
24644: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
24654: p_out_pa_task_id := NULL ;
24655: p_out_pm_task_reference := NULL ;
24656: -- 4537865
24657:
24658: FND_MSG_PUB.Count_And_Get
24659: ( p_count => p_msg_count ,
24660: p_data => p_msg_data );
24661:
24662: WHEN OTHERS THEN
24672: p_out_pa_task_id := NULL ;
24673: p_out_pm_task_reference := NULL ;
24674: -- 4537865
24675:
24676: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
24677:
24678: FND_MSG_PUB.add_exc_msg
24679: ( p_pkg_name => G_PKG_NAME
24680: , p_procedure_name => l_api_name );
24674: -- 4537865
24675:
24676: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
24677:
24678: FND_MSG_PUB.add_exc_msg
24679: ( p_pkg_name => G_PKG_NAME
24680: , p_procedure_name => l_api_name );
24681:
24682: END IF;
24680: , p_procedure_name => l_api_name );
24681:
24682: END IF;
24683:
24684: FND_MSG_PUB.Count_And_Get
24685: ( p_count => p_msg_count ,
24686: p_data => p_msg_data );
24687:
24688: END update_task;
24740:
24741: IF FND_API.TO_BOOLEAN( p_init_msg_list )
24742: THEN
24743:
24744: FND_MSG_PUB.initialize;
24745:
24746: END IF;
24747:
24748: p_return_status := FND_API.G_RET_STS_SUCCESS;
24821: -- 4537865
24822: p_workflow_started := NULL ;
24823: -- 4537865
24824:
24825: FND_MSG_PUB.Count_And_Get
24826: ( p_count => p_msg_count ,
24827: p_data => p_msg_data );
24828:
24829: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
24835: -- 4537865
24836: p_workflow_started := NULL ;
24837: -- 4537865
24838:
24839: FND_MSG_PUB.Count_And_Get
24840: ( p_count => p_msg_count ,
24841: p_data => p_msg_data );
24842:
24843: WHEN OTHERS THEN
24849: -- 4537865
24850: p_workflow_started := NULL ;
24851: -- 4537865
24852:
24853: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
24854: THEN
24855:
24856: FND_MSG_PUB.add_exc_msg
24857: ( p_pkg_name => G_PKG_NAME
24852:
24853: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
24854: THEN
24855:
24856: FND_MSG_PUB.add_exc_msg
24857: ( p_pkg_name => G_PKG_NAME
24858: , p_procedure_name => l_api_name
24859: , p_error_text => SUBSTRB(SQLERRM, 1, 240) ); -- 4537865 Converted from SUBSTR to SUBSTRB
24860:
24858: , p_procedure_name => l_api_name
24859: , p_error_text => SUBSTRB(SQLERRM, 1, 240) ); -- 4537865 Converted from SUBSTR to SUBSTRB
24860:
24861:
24862: FND_MSG_PUB.add;
24863: END IF;
24864:
24865: FND_MSG_PUB.Count_And_Get
24866: ( p_count => p_msg_count ,
24861:
24862: FND_MSG_PUB.add;
24863: END IF;
24864:
24865: FND_MSG_PUB.Count_And_Get
24866: ( p_count => p_msg_count ,
24867: p_data => p_msg_data );
24868:
24869: END execute_update_project;
24941: EXCEPTION
24942: WHEN FND_API.G_EXC_ERROR
24943: THEN
24944: p_return_status := FND_API.G_RET_STS_ERROR;
24945: p_msg_count := FND_MSG_PUB.count_msg; -- 4537865
24946:
24947: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
24948: THEN
24949: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
24946:
24947: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
24948: THEN
24949: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
24950: p_msg_count := FND_MSG_PUB.count_msg; -- 4537865
24951:
24952: WHEN OTHERS THEN
24953: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
24954: p_msg_count := FND_MSG_PUB.count_msg; -- 4537865
24950: p_msg_count := FND_MSG_PUB.count_msg; -- 4537865
24951:
24952: WHEN OTHERS THEN
24953: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
24954: p_msg_count := FND_MSG_PUB.count_msg; -- 4537865
24955:
24956: END delete_project;
24957:
24958: --------------------------------------------------------------------------------
24999: IF PA_PROJ_TASK_STRUC_PUB.WP_STR_EXISTS( p_project_id ) = 'N' OR
25000: PA_PROJ_TASK_STRUC_PUB.IS_WP_SEPARATE_FROM_FN( p_project_id ) = 'N'
25001: THEN
25002: l_retrieve := 'Y' ;
25003: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
25004: THEN
25005: pa_interface_utils_pub.map_new_amg_msg
25006: ( p_old_message_code => 'PA_PS_WP_NOT_SEP_FN'
25007: ,p_msg_attribute => 'CHANGE'
25038: WHEN FND_API.G_EXC_ERROR
25039: THEN
25040: p_return_status := FND_API.G_RET_STS_ERROR;
25041: IF l_retrieve = 'Y' THEN
25042: FND_MSG_PUB.Count_And_Get
25043: (p_encoded =>'F' , p_count => p_msg_count ,
25044: p_data => p_msg_data );
25045: END IF;
25046:
25045: END IF;
25046:
25047: -- 4537865
25048: p_delete_task_ok_flag := NULL ;
25049: p_msg_count := FND_MSG_PUB.count_msg;
25050:
25051: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
25052: THEN
25053:
25055:
25056: -- 4537865
25057: p_delete_task_ok_flag := NULL ;
25058:
25059: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
25060: THEN
25061: FND_MSG_PUB.add_exc_msg
25062: ( p_pkg_name => G_PKG_NAME
25063: , p_procedure_name => 'Check_Delete_Task_Ok');
25057: p_delete_task_ok_flag := NULL ;
25058:
25059: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
25060: THEN
25061: FND_MSG_PUB.add_exc_msg
25062: ( p_pkg_name => G_PKG_NAME
25063: , p_procedure_name => 'Check_Delete_Task_Ok');
25064: END IF;
25065:
25062: ( p_pkg_name => G_PKG_NAME
25063: , p_procedure_name => 'Check_Delete_Task_Ok');
25064: END IF;
25065:
25066: FND_MSG_PUB.Count_And_Get
25067: (p_count => p_msg_count ,
25068: p_data => p_msg_data );
25069:
25070: WHEN OTHERS THEN
25072:
25073: -- 4537865
25074: p_delete_task_ok_flag := NULL ;
25075:
25076: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
25077: THEN
25078: FND_MSG_PUB.add_exc_msg
25079: ( p_pkg_name => G_PKG_NAME
25080: , p_procedure_name => 'Check_Delete_Task_Ok');
25074: p_delete_task_ok_flag := NULL ;
25075:
25076: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
25077: THEN
25078: FND_MSG_PUB.add_exc_msg
25079: ( p_pkg_name => G_PKG_NAME
25080: , p_procedure_name => 'Check_Delete_Task_Ok');
25081: END IF;
25082:
25079: ( p_pkg_name => G_PKG_NAME
25080: , p_procedure_name => 'Check_Delete_Task_Ok');
25081: END IF;
25082:
25083: FND_MSG_PUB.Count_And_Get
25084: (p_count => p_msg_count ,
25085: p_data => p_msg_data );
25086:
25087: --bug 2876703
25141: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25142:
25143: p_add_subtask_ok_flag := NULL ;
25144:
25145: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
25146: THEN
25147: FND_MSG_PUB.add_exc_msg
25148: ( p_pkg_name => G_PKG_NAME
25149: , p_procedure_name => 'Check_Add_Subtask_Ok');
25143: p_add_subtask_ok_flag := NULL ;
25144:
25145: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
25146: THEN
25147: FND_MSG_PUB.add_exc_msg
25148: ( p_pkg_name => G_PKG_NAME
25149: , p_procedure_name => 'Check_Add_Subtask_Ok');
25150: END IF;
25151:
25148: ( p_pkg_name => G_PKG_NAME
25149: , p_procedure_name => 'Check_Add_Subtask_Ok');
25150: END IF;
25151:
25152: FND_MSG_PUB.Count_And_Get
25153: (p_count => p_msg_count ,
25154: p_data => p_msg_data );
25155:
25156: END Check_Add_Subtask_Ok;
25208: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25209:
25210: p_unique_task_ref_flag := NULL ;
25211:
25212: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
25213: THEN
25214: FND_MSG_PUB.add_exc_msg
25215: ( p_pkg_name => G_PKG_NAME
25216: , p_procedure_name => 'Check_Unique_Task_Reference');
25210: p_unique_task_ref_flag := NULL ;
25211:
25212: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
25213: THEN
25214: FND_MSG_PUB.add_exc_msg
25215: ( p_pkg_name => G_PKG_NAME
25216: , p_procedure_name => 'Check_Unique_Task_Reference');
25217: END IF;
25218:
25215: ( p_pkg_name => G_PKG_NAME
25216: , p_procedure_name => 'Check_Unique_Task_Reference');
25217: END IF;
25218:
25219: FND_MSG_PUB.Count_And_Get
25220: (p_count => p_msg_count ,
25221: p_data => p_msg_data );
25222:
25223: END Check_Unique_Task_Reference;
25270: WHEN OTHERS THEN
25271: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25272:
25273: p_unique_project_ref_flag := NULL ;
25274: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
25275: THEN
25276: FND_MSG_PUB.add_exc_msg
25277: ( p_pkg_name => G_PKG_NAME
25278: , p_procedure_name => 'Check_Unique_Project_Reference');
25272:
25273: p_unique_project_ref_flag := NULL ;
25274: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
25275: THEN
25276: FND_MSG_PUB.add_exc_msg
25277: ( p_pkg_name => G_PKG_NAME
25278: , p_procedure_name => 'Check_Unique_Project_Reference');
25279: END IF;
25280:
25277: ( p_pkg_name => G_PKG_NAME
25278: , p_procedure_name => 'Check_Unique_Project_Reference');
25279: END IF;
25280:
25281: FND_MSG_PUB.Count_And_Get
25282: (p_count => p_msg_count ,
25283: p_data => p_msg_data );
25284:
25285: END Check_Unique_Project_Reference;
25332: WHEN OTHERS THEN
25333: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25334:
25335: p_delete_project_ok_flag := NULL ;
25336: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
25337: THEN
25338: FND_MSG_PUB.add_exc_msg
25339: ( p_pkg_name => G_PKG_NAME
25340: , p_procedure_name => 'Check_Delete_Project_OK');
25334:
25335: p_delete_project_ok_flag := NULL ;
25336: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
25337: THEN
25338: FND_MSG_PUB.add_exc_msg
25339: ( p_pkg_name => G_PKG_NAME
25340: , p_procedure_name => 'Check_Delete_Project_OK');
25341: END IF;
25342:
25339: ( p_pkg_name => G_PKG_NAME
25340: , p_procedure_name => 'Check_Delete_Project_OK');
25341: END IF;
25342:
25343: FND_MSG_PUB.Count_And_Get
25344: (p_count => p_msg_count ,
25345: p_data => p_msg_data );
25346:
25347: END Check_Delete_Project_Ok;
25401: WHEN OTHERS THEN
25402: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25403:
25404: p_change_parent_ok_flag := NULL ;
25405: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
25406: THEN
25407: FND_MSG_PUB.add_exc_msg
25408: ( p_pkg_name => G_PKG_NAME
25409: , p_procedure_name => 'Check_Change_Parent_OK');
25403:
25404: p_change_parent_ok_flag := NULL ;
25405: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
25406: THEN
25407: FND_MSG_PUB.add_exc_msg
25408: ( p_pkg_name => G_PKG_NAME
25409: , p_procedure_name => 'Check_Change_Parent_OK');
25410: END IF;
25411:
25408: ( p_pkg_name => G_PKG_NAME
25409: , p_procedure_name => 'Check_Change_Parent_OK');
25410: END IF;
25411:
25412: FND_MSG_PUB.Count_And_Get
25413: (p_count => p_msg_count ,
25414: p_data => p_msg_data );
25415:
25416: END Check_Change_Parent_OK;
25463: WHEN OTHERS THEN
25464: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25465:
25466: p_change_project_org_ok_flag := NULL ;
25467: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
25468: THEN
25469: FND_MSG_PUB.add_exc_msg
25470: ( p_pkg_name => G_PKG_NAME
25471: , p_procedure_name => 'Check_Change_Project_Org_OK');
25465:
25466: p_change_project_org_ok_flag := NULL ;
25467: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
25468: THEN
25469: FND_MSG_PUB.add_exc_msg
25470: ( p_pkg_name => G_PKG_NAME
25471: , p_procedure_name => 'Check_Change_Project_Org_OK');
25472: END IF;
25473:
25470: ( p_pkg_name => G_PKG_NAME
25471: , p_procedure_name => 'Check_Change_Project_Org_OK');
25472: END IF;
25473:
25474: FND_MSG_PUB.Count_And_Get
25475: (p_count => p_msg_count ,
25476: p_data => p_msg_data );
25477:
25478: END Check_Change_Project_Org_Ok;
25527: WHEN OTHERS THEN
25528: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25529:
25530: p_unique_task_number_flag := NULL ;
25531: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
25532: THEN
25533: FND_MSG_PUB.add_exc_msg
25534: ( p_pkg_name => G_PKG_NAME
25535: , p_procedure_name => 'Check_Unique_Task_Number');
25529:
25530: p_unique_task_number_flag := NULL ;
25531: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
25532: THEN
25533: FND_MSG_PUB.add_exc_msg
25534: ( p_pkg_name => G_PKG_NAME
25535: , p_procedure_name => 'Check_Unique_Task_Number');
25536: END IF;
25537:
25534: ( p_pkg_name => G_PKG_NAME
25535: , p_procedure_name => 'Check_Unique_Task_Number');
25536: END IF;
25537:
25538: FND_MSG_PUB.Count_And_Get
25539: (p_count => p_msg_count ,
25540: p_data => p_msg_data );
25541:
25542: END Check_Unique_Task_Number;
25593: WHEN OTHERS THEN
25594: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25595:
25596: p_task_number_change_Ok_flag := NULL ;
25597: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
25598: THEN
25599: FND_MSG_PUB.add_exc_msg
25600: ( p_pkg_name => G_PKG_NAME
25601: , p_procedure_name => 'Check_Task_Number_Change_Ok');
25595:
25596: p_task_number_change_Ok_flag := NULL ;
25597: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
25598: THEN
25599: FND_MSG_PUB.add_exc_msg
25600: ( p_pkg_name => G_PKG_NAME
25601: , p_procedure_name => 'Check_Task_Number_Change_Ok');
25602: END IF;
25603:
25600: ( p_pkg_name => G_PKG_NAME
25601: , p_procedure_name => 'Check_Task_Number_Change_Ok');
25602: END IF;
25603:
25604: FND_MSG_PUB.Count_And_Get
25605: (p_count => p_msg_count ,
25606: p_data => p_msg_data );
25607:
25608: END Check_Task_Number_Change_Ok;
25651:
25652: WHEN OTHERS THEN
25653: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25654:
25655: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
25656: THEN
25657: FND_MSG_PUB.add_exc_msg
25658: ( p_pkg_name => G_PKG_NAME
25659: , p_procedure_name => 'approve_project');
25653: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25654:
25655: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
25656: THEN
25657: FND_MSG_PUB.add_exc_msg
25658: ( p_pkg_name => G_PKG_NAME
25659: , p_procedure_name => 'approve_project');
25660: END IF;
25661:
25658: ( p_pkg_name => G_PKG_NAME
25659: , p_procedure_name => 'approve_project');
25660: END IF;
25661:
25662: FND_MSG_PUB.Count_And_Get
25663: (p_count => p_msg_count ,
25664: p_data => p_msg_data );
25665:
25666: END approve_project;
27570:
27571: WHEN OTHERS THEN
27572: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
27573:
27574: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
27575: THEN
27576: FND_MSG_PUB.add_exc_msg
27577: ( p_pkg_name => G_PKG_NAME
27578: , p_procedure_name => 'load_tasks');
27572: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
27573:
27574: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
27575: THEN
27576: FND_MSG_PUB.add_exc_msg
27577: ( p_pkg_name => G_PKG_NAME
27578: , p_procedure_name => 'load_tasks');
27579: END IF;
27580:
27671: p_pm_task_reference := NULL ;
27672: p_pa_task_id := NULL ;
27673: p_task_version_id := NULL ;
27674:
27675: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
27676: THEN
27677: FND_MSG_PUB.add_exc_msg
27678: ( p_pkg_name => G_PKG_NAME
27679: , p_procedure_name => 'fetch_tasks');
27673: p_task_version_id := NULL ;
27674:
27675: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
27676: THEN
27677: FND_MSG_PUB.add_exc_msg
27678: ( p_pkg_name => G_PKG_NAME
27679: , p_procedure_name => 'fetch_tasks');
27680: END IF;
27681:
27733:
27734: -- Initialize the message table if requested.
27735: IF FND_API.TO_BOOLEAN( p_init_msg_list )
27736: THEN
27737: FND_MSG_PUB.initialize;
27738: END IF;
27739:
27740: -- assign a value to the global counter for this table
27741: G_ext_attr_tbl_count := G_ext_attr_tbl_count + 1;
27774: ROLLBACK TO load_extensible_attribute_pub;
27775:
27776: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
27777:
27778: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
27779: THEN
27780: FND_MSG_PUB.add_exc_msg
27781: ( p_pkg_name => G_PKG_NAME
27782: , p_procedure_name => l_api_name );
27776: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
27777:
27778: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
27779: THEN
27780: FND_MSG_PUB.add_exc_msg
27781: ( p_pkg_name => G_PKG_NAME
27782: , p_procedure_name => l_api_name );
27783:
27784: END IF;
27846: BEGIN
27847: -- initialize message stack, if needed
27848: IF FND_API.to_boolean(p_init_msg_list)
27849: THEN
27850: FND_MSG_PUB.initialize;
27851: END IF;
27852:
27853: -- There are two ways to load the global pl/sql table:
27854: -- 1. Call Load_Extensible_Attribute
27974: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
27975: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
27976: WHEN OTHERS THEN
27977: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
27978: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
27979: FND_MSG_PUB.Add_Exc_Msg
27980: ( G_PKG_NAME
27981: , l_api_name
27982: );
27975: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
27976: WHEN OTHERS THEN
27977: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
27978: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
27979: FND_MSG_PUB.Add_Exc_Msg
27980: ( G_PKG_NAME
27981: , l_api_name
27982: );
27983: END IF;
28044:
28045: IF FND_API.TO_BOOLEAN( p_init_msg_list )
28046: THEN
28047:
28048: FND_MSG_PUB.initialize;
28049:
28050: END IF;
28051:
28052: -- Set API return status to success
28113: ROLLBACK TO load_structure_pub;
28114:
28115: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28116:
28117: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
28118: THEN
28119: FND_MSG_PUB.add_exc_msg
28120: ( p_pkg_name => G_PKG_NAME
28121: , p_procedure_name => l_api_name );
28115: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28116:
28117: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
28118: THEN
28119: FND_MSG_PUB.add_exc_msg
28120: ( p_pkg_name => G_PKG_NAME
28121: , p_procedure_name => l_api_name );
28122:
28123: END IF;
28171:
28172: IF FND_API.TO_BOOLEAN( p_init_msg_list )
28173: THEN
28174:
28175: FND_MSG_PUB.initialize;
28176:
28177: END IF;
28178:
28179: -- Set API return status to success
28297:
28298: p_msg_count := l_msg_count;
28299: p_msg_data := l_msg_data;
28300:
28301: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
28302: , p_data => p_msg_data);
28303:
28304: -- End fix for Bug # 4314797.
28305:
28317:
28318: p_msg_count := l_msg_count;
28319: p_msg_data := l_msg_data;
28320:
28321: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
28322: , p_data => p_msg_data);
28323:
28324: -- End fix for Bug # 4314797.
28325:
28329:
28330: -- 4537865
28331: p_published_struct_ver_id := NULL ;
28332:
28333: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
28334: FND_MSG_PUB.add_exc_msg
28335: (p_pkg_name => G_PKG_NAME
28336: ,p_procedure_name => l_api_name);
28337: END IF;
28330: -- 4537865
28331: p_published_struct_ver_id := NULL ;
28332:
28333: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
28334: FND_MSG_PUB.add_exc_msg
28335: (p_pkg_name => G_PKG_NAME
28336: ,p_procedure_name => l_api_name);
28337: END IF;
28338:
28346:
28347: p_msg_count := l_msg_count;
28348: p_msg_data := l_msg_data;
28349:
28350: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
28351: , p_data => p_msg_data);
28352:
28353: -- End fix for Bug # 4314797.
28354:
28401:
28402: WHEN OTHERS THEN
28403: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28404:
28405: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
28406: FND_MSG_PUB.add_exc_msg
28407: (p_pkg_name => G_PKG_NAME
28408: ,p_procedure_name => l_api_name);
28409: END IF;
28402: WHEN OTHERS THEN
28403: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28404:
28405: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
28406: FND_MSG_PUB.add_exc_msg
28407: (p_pkg_name => G_PKG_NAME
28408: ,p_procedure_name => l_api_name);
28409: END IF;
28410: END baseline_structure;
28444:
28445: IF FND_API.TO_BOOLEAN( p_init_msg_list )
28446: THEN
28447:
28448: FND_MSG_PUB.initialize;
28449:
28450: END IF;
28451:
28452: -- Set API return status to success
28491: ROLLBACK TO delete_structure_ver_pub;
28492:
28493: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28494:
28495: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
28496: THEN
28497: FND_MSG_PUB.add_exc_msg
28498: ( p_pkg_name => G_PKG_NAME
28499: , p_procedure_name => l_api_name );
28493: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28494:
28495: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
28496: THEN
28497: FND_MSG_PUB.add_exc_msg
28498: ( p_pkg_name => G_PKG_NAME
28499: , p_procedure_name => l_api_name );
28500:
28501: END IF;
28554:
28555: IF FND_API.TO_BOOLEAN( p_init_msg_list )
28556: THEN
28557:
28558: FND_MSG_PUB.initialize;
28559:
28560: END IF;
28561:
28562: -- Set API return status to success
28613: -- 4537865
28614: p_pa_structure_version_id := NULL ;
28615: p_struc_return_status := NULL ;
28616:
28617: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
28618: THEN
28619: FND_MSG_PUB.add_exc_msg
28620: ( p_pkg_name => G_PKG_NAME
28621: , p_procedure_name => l_api_name );
28615: p_struc_return_status := NULL ;
28616:
28617: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
28618: THEN
28619: FND_MSG_PUB.add_exc_msg
28620: ( p_pkg_name => G_PKG_NAME
28621: , p_procedure_name => l_api_name );
28622:
28623: END IF;
28675:
28676: IF FND_API.TO_BOOLEAN( p_init_msg_list )
28677: THEN
28678:
28679: FND_MSG_PUB.initialize;
28680:
28681: END IF;
28682:
28683: -- Set API return status to success
28687: -- Check Task index value, when they don't provide an index we will error out
28688: IF p_task_index = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
28689: OR p_task_index IS NULL
28690: THEN
28691: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
28692: THEN
28693: pa_interface_utils_pub.map_new_amg_msg
28694: ( p_old_message_code => 'PA_INDEX_NOT_PROVIDED'
28695: ,p_msg_attribute => 'CHANGE'
28755: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28756: -- 4537865
28757: p_task_version_id := NULL ;
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: p_task_version_id := NULL ;
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;
28804:
28805: IF FND_API.TO_BOOLEAN( p_init_msg_list )
28806: THEN
28807:
28808: FND_MSG_PUB.initialize;
28809:
28810: END IF;
28811:
28812: -- Set API return status to success
28815: IF ( p_pa_task_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM OR p_pa_task_id IS NULL ) OR
28816: ( p_pa_project_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM OR p_pa_project_id IS NULL ) OR
28817: ( p_pa_structure_version_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM OR p_pa_structure_version_id IS NULL )
28818: THEN
28819: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
28820: THEN
28821: --My suggestion was to create a new message but Sakthi asked me use the following
28822: --Since these changes are done at the last moment of PA K around build9. We are hesitant to
28823: --log a new message bug. Sakthi suggested to use an existing message PA_PS_INV_STR_VER_ID
28871:
28872: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28873: --4537865
28874: p_task_version_id := NULL ;
28875: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
28876: THEN
28877: FND_MSG_PUB.add_exc_msg
28878: ( p_pkg_name => G_PKG_NAME
28879: , p_procedure_name => l_api_name );
28873: --4537865
28874: p_task_version_id := NULL ;
28875: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
28876: THEN
28877: FND_MSG_PUB.add_exc_msg
28878: ( p_pkg_name => G_PKG_NAME
28879: , p_procedure_name => l_api_name );
28880:
28881: END IF;
28932:
28933: IF FND_API.TO_BOOLEAN( p_init_msg_list )
28934: THEN
28935:
28936: FND_MSG_PUB.initialize;
28937:
28938: END IF;
28939:
28940: -- Set API return status to success
28942:
28943: IF ( p_pa_project_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM OR p_pa_project_id IS NULL ) OR
28944: ( p_structure_version_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM OR p_structure_version_id IS NULL )
28945: THEN
28946: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
28947: THEN
28948:
28949: -- Using the message name PA_PS_INV_STR_VER_ID
28950:
28960:
28961: IF l_temp_cursor%NOTFOUND
28962: THEN
28963: CLOSE l_temp_cursor;
28964: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
28965: THEN
28966: -- Using the message name PA_PS_INV_STR_VER_ID
28967: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
28968: ,p_msg_name => 'PA_PS_INV_STR_VER_ID');
29010: WHEN OTHERS THEN
29011: ROLLBACK TO get_task_version_pub;
29012:
29013: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
29014: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
29015: THEN
29016: FND_MSG_PUB.add_exc_msg
29017: ( p_pkg_name => G_PKG_NAME
29018: , p_procedure_name => l_api_name );
29012:
29013: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
29014: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
29015: THEN
29016: FND_MSG_PUB.add_exc_msg
29017: ( p_pkg_name => G_PKG_NAME
29018: , p_procedure_name => l_api_name );
29019:
29020: END IF;
29084: -- Initialize the message table if requested.
29085:
29086: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
29087:
29088: FND_MSG_PUB.initialize;
29089:
29090: END IF;
29091:
29092: -- Set API return status to success.
29150:
29151: /* Getting the working structure_version_id */
29152:
29153: if (p_working_str_version_id = NULL or p_working_str_version_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) then
29154: if FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
29155: pa_interface_utils_pub.map_new_amg_msg
29156: (p_old_message_code => 'PA_WRKG_STR_VER_ID_IS_MISSING'
29157: ,p_msg_attribute => 'CHANGE'
29158: ,p_resize_flag => 'N'
29201: end if;
29202:
29203: p_return_status := FND_API.G_RET_STS_ERROR;
29204:
29205: FND_MSG_PUB.Count_And_Get
29206: (p_count => p_msg_count
29207: ,p_data => p_msg_data);
29208:
29209: when FND_API.G_EXC_UNEXPECTED_ERROR then
29212: end if;
29213:
29214: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
29215:
29216: FND_MSG_PUB.Count_And_Get
29217: (p_count => p_msg_count
29218: ,p_data => p_msg_data);
29219:
29220: when OTHERS then
29224: end if;
29225:
29226: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
29227:
29228: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
29229: THEN
29230: FND_MSG_PUB.add_exc_msg
29231: (p_pkg_name => G_PKG_NAME
29232: ,p_procedure_name => l_api_name);
29226: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
29227:
29228: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
29229: THEN
29230: FND_MSG_PUB.add_exc_msg
29231: (p_pkg_name => G_PKG_NAME
29232: ,p_procedure_name => l_api_name);
29233: END IF;
29234:
29231: (p_pkg_name => G_PKG_NAME
29232: ,p_procedure_name => l_api_name);
29233: END IF;
29234:
29235: FND_MSG_PUB.Count_And_Get
29236: (p_count => p_msg_count
29237: ,p_data => p_msg_data);
29238: raise;
29239:
29315:
29316: IF FND_API.TO_BOOLEAN( p_init_msg_list )
29317: THEN
29318:
29319: FND_MSG_PUB.initialize;
29320:
29321: END IF;
29322:
29323: -- Set API return status to success
29380: WHEN OTHERS THEN
29381: ROLLBACK TO load_deliverable_pub;
29382: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
29383:
29384: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
29385: THEN
29386: FND_MSG_PUB.add_exc_msg
29387: ( p_pkg_name => G_PKG_NAME
29388: , p_procedure_name => l_api_name );
29382: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
29383:
29384: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
29385: THEN
29386: FND_MSG_PUB.add_exc_msg
29387: ( p_pkg_name => G_PKG_NAME
29388: , p_procedure_name => l_api_name );
29389:
29390: END IF;
29466:
29467: IF FND_API.TO_BOOLEAN( p_init_msg_list )
29468: THEN
29469:
29470: FND_MSG_PUB.initialize;
29471:
29472: END IF;
29473:
29474: -- Set API return status to success
29534: ROLLBACK TO load_deliverables_pub;
29535:
29536: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
29537:
29538: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
29539: THEN
29540: FND_MSG_PUB.add_exc_msg
29541: ( p_pkg_name => G_PKG_NAME
29542: , p_procedure_name => l_api_name );
29536: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
29537:
29538: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
29539: THEN
29540: FND_MSG_PUB.add_exc_msg
29541: ( p_pkg_name => G_PKG_NAME
29542: , p_procedure_name => l_api_name );
29543:
29544: END IF;
29659:
29660: IF FND_API.TO_BOOLEAN( p_init_msg_list )
29661: THEN
29662:
29663: FND_MSG_PUB.initialize;
29664:
29665: END IF;
29666:
29667: -- Set API return status to success
29771: ROLLBACK TO load_action_pub;
29772:
29773: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
29774:
29775: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
29776: THEN
29777: FND_MSG_PUB.add_exc_msg
29778: ( p_pkg_name => G_PKG_NAME
29779: , p_procedure_name => l_api_name );
29773: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
29774:
29775: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
29776: THEN
29777: FND_MSG_PUB.add_exc_msg
29778: ( p_pkg_name => G_PKG_NAME
29779: , p_procedure_name => l_api_name );
29780:
29781: END IF;
29902:
29903: IF FND_API.TO_BOOLEAN( p_init_msg_list )
29904: THEN
29905:
29906: FND_MSG_PUB.initialize;
29907:
29908: END IF;
29909:
29910: -- Set API return status to success
30017: ROLLBACK TO load_actions_pub;
30018:
30019: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
30020:
30021: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
30022: THEN
30023: FND_MSG_PUB.add_exc_msg
30024: ( p_pkg_name => G_PKG_NAME
30025: , p_procedure_name => l_api_name );
30019: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
30020:
30021: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
30022: THEN
30023: FND_MSG_PUB.add_exc_msg
30024: ( p_pkg_name => G_PKG_NAME
30025: , p_procedure_name => l_api_name );
30026:
30027: END IF;
30133:
30134: BEGIN
30135: -- Initialize the message table if requested.
30136: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
30137: FND_MSG_PUB.initialize;
30138: END IF;
30139:
30140: -- 3735792 , setting save point unconditionally
30141: -- IF (p_commit = FND_API.G_TRUE) THEN
30150:
30151: IF l_pm_product_code <> 'X'
30152: AND p_pm_source_code <> 'WORKPLAN'
30153: THEN
30154: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
30155: THEN
30156: pa_interface_utils_pub.map_new_amg_msg
30157: ( p_old_message_code => 'PA_PRODUCT_CODE_IS_INVALID'
30158: ,p_msg_attribute => 'CHANGE'
30267: , p_proj_element_id => l_task_id );
30268:
30269: IF l_wp_task_flag <> 'Y' THEN
30270:
30271: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
30272: THEN
30273:
30274: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
30275: ,p_msg_name => 'PA_TASK_ID_INVALID');
30563: END IF;
30564:
30565: ELSE --l_dlvr_action_enabled <> 'Y'
30566:
30567: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
30568: l_err_message := FND_MESSAGE.GET_STRING('PA','DLVR_ACTION_NOT_ENABLED') ;
30569: PA_UTILS.ADD_MESSAGE
30570: (p_app_short_name => 'PA',
30571: p_msg_name => 'PA_DLVR_VALID_ERR',
30607: pa_debug.reset_curr_function;
30608: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
30609: END IF;
30610: x_return_status := FND_API.G_RET_STS_ERROR;
30611: x_msg_count := FND_MSG_PUB.count_msg;
30612:
30613: IF x_msg_count = 1 THEN
30614: PA_INTERFACE_UTILS_PUB.get_messages
30615: (p_encoded => FND_API.G_FALSE,
30631: pa_debug.reset_curr_function;
30632: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
30633: END IF;
30634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
30635: x_msg_count := FND_MSG_PUB.count_msg;
30636:
30637: IF x_msg_count = 1 THEN
30638: PA_INTERFACE_UTILS_PUB.get_messages
30639: (p_encoded => FND_API.G_FALSE,
30660: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
30661: pa_debug.reset_curr_function;
30662: END IF;
30663:
30664: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
30665: FND_MSG_PUB.add_exc_msg
30666: ( p_pkg_name => G_PKG_NAME
30667: , p_procedure_name => l_api_name );
30668: END IF;
30661: pa_debug.reset_curr_function;
30662: END IF;
30663:
30664: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
30665: FND_MSG_PUB.add_exc_msg
30666: ( p_pkg_name => G_PKG_NAME
30667: , p_procedure_name => l_api_name );
30668: END IF;
30669: END create_deliverable;
30809: END IF;
30810:
30811: -- Initialize the message table if requested.
30812: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
30813: FND_MSG_PUB.initialize;
30814: END IF;
30815:
30816: IF p_debug_mode = 'Y' THEN
30817: PA_DEBUG.set_curr_function( p_function => l_api_name,
31036:
31037:
31038: ELSE --l_dlvr_action_enabled <> 'Y'
31039:
31040: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
31041: l_err_message := FND_MESSAGE.GET_STRING('PA','DLVR_ACTION_NOT_ENABLED') ;
31042: PA_UTILS.ADD_MESSAGE
31043: (p_app_short_name => 'PA',
31044: p_msg_name => 'PA_DLVR_VALID_ERR',
31102: ROLLBACK TO create_deliverable_actions_pub;
31103: -- END IF;
31104:
31105: x_return_status := FND_API.G_RET_STS_ERROR;
31106: l_msg_count := FND_MSG_PUB.count_msg;
31107:
31108: IF l_msg_count = 1 AND x_msg_data IS NULL
31109: THEN
31110: PA_INTERFACE_UTILS_PUB.get_messages
31133: ROLLBACK TO create_deliverable_actions_pub;
31134: --END IF;
31135:
31136: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
31137: l_msg_count := FND_MSG_PUB.count_msg;
31138:
31139: IF l_msg_count = 1 AND x_msg_data IS NULL
31140: THEN
31141: PA_INTERFACE_UTILS_PUB.get_messages
31174: pa_debug.reset_curr_function;
31175: END IF;
31176:
31177:
31178: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
31179: FND_MSG_PUB.add_exc_msg
31180: ( p_pkg_name => G_PKG_NAME
31181: , p_procedure_name => l_api_name );
31182: END IF;
31175: END IF;
31176:
31177:
31178: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
31179: FND_MSG_PUB.add_exc_msg
31180: ( p_pkg_name => G_PKG_NAME
31181: , p_procedure_name => l_api_name );
31182: END IF;
31183: END create_deliverable_action;
31287:
31288: BEGIN
31289: -- Initialize the message table if requested.
31290: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
31291: FND_MSG_PUB.initialize;
31292: END IF;
31293: ---- --dbms_output.put_line('entering pa_project_pub.Update_deliverable['||p_project_id||']['||p_task_id||']');
31294:
31295: -- 3735792, setting save point unconditionally
31312:
31313: IF l_pm_product_code <> 'X'
31314: AND p_pm_source_code <> 'WORKPLAN'
31315: THEN
31316: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
31317: THEN
31318: pa_interface_utils_pub.map_new_amg_msg
31319: ( p_old_message_code => 'PA_PRODUCT_CODE_IS_INVALID'
31320: ,p_msg_attribute => 'CHANGE'
31709: pa_debug.reset_curr_function;
31710: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
31711: END IF;
31712: x_return_status := FND_API.G_RET_STS_ERROR;
31713: x_msg_count := FND_MSG_PUB.count_msg;
31714:
31715: IF x_msg_count = 1 THEN
31716: PA_INTERFACE_UTILS_PUB.get_messages
31717: (p_encoded => FND_API.G_FALSE,
31733: pa_debug.reset_curr_function;
31734: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
31735: END IF;
31736: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
31737: x_msg_count := FND_MSG_PUB.count_msg;
31738:
31739: IF x_msg_count = 1 THEN
31740: PA_INTERFACE_UTILS_PUB.get_messages
31741: (p_encoded => FND_API.G_FALSE,
31763: pa_debug.reset_curr_function;
31764: END IF;
31765:
31766:
31767: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
31768: FND_MSG_PUB.add_exc_msg
31769: ( p_pkg_name => G_PKG_NAME
31770: , p_procedure_name => l_api_name );
31771: END IF;
31764: END IF;
31765:
31766:
31767: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
31768: FND_MSG_PUB.add_exc_msg
31769: ( p_pkg_name => G_PKG_NAME
31770: , p_procedure_name => l_api_name );
31771: END IF;
31772: END update_deliverable;
31891: END IF;
31892:
31893: -- Initialize the message table if requested.
31894: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
31895: FND_MSG_PUB.initialize;
31896: END IF;
31897:
31898: IF p_debug_mode = 'Y' THEN
31899: PA_DEBUG.set_curr_function( p_function => l_api_name,
32139: pa_debug.reset_curr_function;
32140: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
32141: END IF;
32142: x_return_status := FND_API.G_RET_STS_ERROR;
32143: x_msg_count := FND_MSG_PUB.count_msg;
32144:
32145: IF x_msg_count = 1 THEN
32146: PA_INTERFACE_UTILS_PUB.get_messages
32147: (p_encoded => FND_API.G_FALSE,
32163: pa_debug.reset_curr_function;
32164: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
32165: END IF;
32166: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
32167: x_msg_count := FND_MSG_PUB.count_msg;
32168:
32169: IF x_msg_count = 1 THEN
32170: PA_INTERFACE_UTILS_PUB.get_messages
32171: (p_encoded => FND_API.G_FALSE,
32192: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
32193: pa_debug.reset_curr_function;
32194: END IF;
32195:
32196: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
32197: FND_MSG_PUB.add_exc_msg
32198: ( p_pkg_name => G_PKG_NAME
32199: , p_procedure_name => l_api_name );
32200: END IF;
32193: pa_debug.reset_curr_function;
32194: END IF;
32195:
32196: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
32197: FND_MSG_PUB.add_exc_msg
32198: ( p_pkg_name => G_PKG_NAME
32199: , p_procedure_name => l_api_name );
32200: END IF;
32201:
32237:
32238: BEGIN
32239: -- Initialize the message table if requested.
32240: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
32241: FND_MSG_PUB.initialize;
32242: END IF;
32243:
32244: -- 3735792, setting save point unconditionally
32245: --IF (p_commit = FND_API.G_TRUE) THEN
32379: ROLLBACK TO DELETE_DELIVERABLE_PUB;
32380: --END IF;
32381:
32382: x_return_status := FND_API.G_RET_STS_ERROR;
32383: l_msg_count := FND_MSG_PUB.count_msg;
32384:
32385: IF l_msg_count = 1 AND x_msg_data IS NULL
32386: THEN
32387: PA_INTERFACE_UTILS_PUB.get_messages
32410: ROLLBACK TO DELETE_DELIVERABLE_PUB;
32411: --END IF;
32412:
32413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
32414: l_msg_count := FND_MSG_PUB.count_msg;
32415:
32416: IF l_msg_count = 1 AND x_msg_data IS NULL
32417: THEN
32418: PA_INTERFACE_UTILS_PUB.get_messages
32449: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
32450: pa_debug.reset_curr_function;
32451: END IF;
32452:
32453: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
32454: FND_MSG_PUB.add_exc_msg
32455: ( p_pkg_name => G_PKG_NAME
32456: , p_procedure_name => l_api_name );
32457: END IF;
32450: pa_debug.reset_curr_function;
32451: END IF;
32452:
32453: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
32454: FND_MSG_PUB.add_exc_msg
32455: ( p_pkg_name => G_PKG_NAME
32456: , p_procedure_name => l_api_name );
32457: END IF;
32458:
32502:
32503: BEGIN
32504: -- Initialize the message table if requested.
32505: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
32506: FND_MSG_PUB.initialize;
32507: END IF;
32508:
32509: -- 3735792, setting save point unconditionally
32510: --IF (p_commit = FND_API.G_TRUE) THEN
32679: ROLLBACK TO DELETE_DELIVERABLE_ACTION_PUB;
32680: --END IF;
32681:
32682: x_return_status := FND_API.G_RET_STS_ERROR;
32683: l_msg_count := FND_MSG_PUB.count_msg;
32684:
32685: IF l_msg_count = 1 AND x_msg_data IS NULL
32686: THEN
32687: PA_INTERFACE_UTILS_PUB.get_messages
32710: ROLLBACK TO DELETE_DELIVERABLE_ACTION_PUB;
32711: --END IF;
32712:
32713: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
32714: l_msg_count := FND_MSG_PUB.count_msg;
32715:
32716: IF l_msg_count = 1 AND x_msg_data IS NULL
32717: THEN
32718: PA_INTERFACE_UTILS_PUB.get_messages
32750: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
32751: pa_debug.reset_curr_function;
32752: END IF;
32753:
32754: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
32755: FND_MSG_PUB.add_exc_msg
32756: ( p_pkg_name => G_PKG_NAME
32757: , p_procedure_name => l_api_name );
32758: END IF;
32751: pa_debug.reset_curr_function;
32752: END IF;
32753:
32754: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
32755: FND_MSG_PUB.add_exc_msg
32756: ( p_pkg_name => G_PKG_NAME
32757: , p_procedure_name => l_api_name );
32758: END IF;
32759:
32802: BEGIN
32803:
32804: -- Initialize the message table if requested.
32805: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
32806: FND_MSG_PUB.initialize;
32807: END IF;
32808:
32809: -- 3735792, setting save point unconditionally
32810: --IF (p_commit = FND_API.G_TRUE) THEN
32966: ROLLBACK TO DELETE_DLV_TO_TASK_ASSCN_PUB;
32967: --END IF;
32968:
32969: x_return_status := FND_API.G_RET_STS_ERROR;
32970: l_msg_count := FND_MSG_PUB.count_msg;
32971:
32972: IF l_msg_count = 1 AND x_msg_data IS NULL
32973: THEN
32974: PA_INTERFACE_UTILS_PUB.get_messages
32996: ROLLBACK TO DELETE_DLV_TO_TASK_ASSCN_PUB;
32997: --END IF;
32998:
32999: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
33000: l_msg_count := FND_MSG_PUB.count_msg;
33001:
33002: IF l_msg_count = 1 AND x_msg_data IS NULL
33003: THEN
33004: PA_INTERFACE_UTILS_PUB.get_messages
33035: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
33036: pa_debug.reset_curr_function;
33037: END IF;
33038:
33039: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
33040: FND_MSG_PUB.add_exc_msg
33041: ( p_pkg_name => G_PKG_NAME
33042: , p_procedure_name => l_api_name );
33043: END IF;
33036: pa_debug.reset_curr_function;
33037: END IF;
33038:
33039: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
33040: FND_MSG_PUB.add_exc_msg
33041: ( p_pkg_name => G_PKG_NAME
33042: , p_procedure_name => l_api_name );
33043: END IF;
33044:
33091: BEGIN
33092:
33093: -- Initialize the message table if requested.
33094: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
33095: FND_MSG_PUB.initialize;
33096: END IF;
33097:
33098: -- 3735792, setting save point unconditionally
33099: --IF (p_commit = FND_API.G_TRUE) THEN
33197: , p_proj_element_id => l_task_id );
33198:
33199: IF l_wp_task_flag <> 'Y' THEN
33200:
33201: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
33202: THEN
33203:
33204: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
33205: ,p_msg_name => 'PA_TASK_ID_INVALID');
33260: ROLLBACK TO ASSOCIATE_DLV_TO_TASK_PUB;
33261: --END IF;
33262:
33263: x_return_status := FND_API.G_RET_STS_ERROR;
33264: l_msg_count := FND_MSG_PUB.count_msg;
33265:
33266: IF l_msg_count = 1 AND x_msg_data IS NULL
33267: THEN
33268: PA_INTERFACE_UTILS_PUB.get_messages
33290: ROLLBACK TO ASSOCIATE_DLV_TO_TASK_PUB;
33291: --END IF;
33292:
33293: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
33294: l_msg_count := FND_MSG_PUB.count_msg;
33295:
33296: IF l_msg_count = 1 AND x_msg_data IS NULL
33297: THEN
33298: PA_INTERFACE_UTILS_PUB.get_messages
33329: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
33330: pa_debug.reset_curr_function;
33331: END IF;
33332:
33333: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
33334: FND_MSG_PUB.add_exc_msg
33335: ( p_pkg_name => G_PKG_NAME
33336: , p_procedure_name => l_api_name );
33337: END IF;
33330: pa_debug.reset_curr_function;
33331: END IF;
33332:
33333: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
33334: FND_MSG_PUB.add_exc_msg
33335: ( p_pkg_name => G_PKG_NAME
33336: , p_procedure_name => l_api_name );
33337: END IF;
33338:
33378: BEGIN
33379:
33380: -- Initialize the message table if requested.
33381: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
33382: FND_MSG_PUB.initialize;
33383: END IF;
33384:
33385: -- 3735792, setting save point unconditionally
33386: -- IF (p_commit = FND_API.G_TRUE) THEN
33540: ROLLBACK TO ASSOCIATE_DLV_TO_TASK_ASSIGN;
33541: -- END IF;
33542:
33543: x_return_status := FND_API.G_RET_STS_ERROR;
33544: l_msg_count := FND_MSG_PUB.count_msg;
33545:
33546: IF l_msg_count = 1 AND x_msg_data IS NULL
33547: THEN
33548: PA_INTERFACE_UTILS_PUB.get_messages
33569: --IF (p_commit = FND_API.G_TRUE) THEN
33570: ROLLBACK TO ASSOCIATE_DLV_TO_TASK_ASSIGN;
33571: --END IF;
33572: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
33573: l_msg_count := FND_MSG_PUB.count_msg;
33574:
33575: IF l_msg_count = 1 AND x_msg_data IS NULL
33576: THEN
33577: PA_INTERFACE_UTILS_PUB.get_messages
33608: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
33609: pa_debug.reset_curr_function;
33610: END IF;
33611:
33612: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
33613: FND_MSG_PUB.add_exc_msg
33614: ( p_pkg_name => G_PKG_NAME
33615: , p_procedure_name => l_api_name );
33616: END IF;
33609: pa_debug.reset_curr_function;
33610: END IF;
33611:
33612: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
33613: FND_MSG_PUB.add_exc_msg
33614: ( p_pkg_name => G_PKG_NAME
33615: , p_procedure_name => l_api_name );
33616: END IF;
33617:
33672: BEGIN
33673:
33674: -- Initialize the message table if requested.
33675: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
33676: FND_MSG_PUB.initialize;
33677: END IF;
33678:
33679: -- 3735792, setting save point unconditionally
33680: --IF (p_commit = FND_API.G_TRUE) THEN
33845: ROLLBACK TO ASSOCIATE_DLV_TO_TASK_ASSIGN;
33846: --END IF;
33847:
33848: x_return_status := FND_API.G_RET_STS_ERROR;
33849: l_msg_count := FND_MSG_PUB.count_msg;
33850:
33851: IF l_msg_count = 1 AND x_msg_data IS NULL
33852: THEN
33853: PA_INTERFACE_UTILS_PUB.get_messages
33875: ROLLBACK TO ASSOCIATE_DLV_TO_TASK_ASSIGN;
33876: --END IF;
33877:
33878: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
33879: l_msg_count := FND_MSG_PUB.count_msg;
33880:
33881: IF l_msg_count = 1 AND x_msg_data IS NULL
33882: THEN
33883: PA_INTERFACE_UTILS_PUB.get_messages
33914: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,5);
33915: pa_debug.reset_curr_function;
33916: END IF;
33917:
33918: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
33919: FND_MSG_PUB.add_exc_msg
33920: ( p_pkg_name => G_PKG_NAME
33921: , p_procedure_name => l_api_name );
33922: END IF;
33915: pa_debug.reset_curr_function;
33916: END IF;
33917:
33918: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
33919: FND_MSG_PUB.add_exc_msg
33920: ( p_pkg_name => G_PKG_NAME
33921: , p_procedure_name => l_api_name );
33922: END IF;
33923:
33978: x_return_status := FND_API.G_RET_STS_SUCCESS;
33979:
33980: -- Initialize the message table if requested.
33981: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
33982: FND_MSG_PUB.initialize;
33983: END IF;
33984:
33985: -- Bug 4142254 : Commenting this condition, as we want to create savepoint always.
33986: -- We could have done other way around too i.e. Savepoint and rollback shoud both be in
34189: WHEN OTHERS THEN
34190: ROLLBACK TO DELETE_MAPPING_PUB;
34191: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
34192:
34193: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
34194: FND_MSG_PUB.add_exc_msg
34195: ( p_pkg_name => G_PKG_NAME
34196: , p_procedure_name => l_api_name );
34197: END IF;
34190: ROLLBACK TO DELETE_MAPPING_PUB;
34191: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
34192:
34193: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
34194: FND_MSG_PUB.add_exc_msg
34195: ( p_pkg_name => G_PKG_NAME
34196: , p_procedure_name => l_api_name );
34197: END IF;
34198:
34266:
34267: BEGIN
34268: -- Initialize the message table if requested.
34269: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
34270: FND_MSG_PUB.initialize;
34271: END IF;
34272:
34273: IF (p_commit = FND_API.G_TRUE) THEN
34274: savepoint CREATE_MAPPING_PUB;
34551: ROLLBACK TO CREATE_MAPPING_PUB;
34552: END IF;
34553: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
34554:
34555: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
34556: FND_MSG_PUB.add_exc_msg
34557: ( p_pkg_name => G_PKG_NAME
34558: , p_procedure_name => l_api_name );
34559: END IF;
34552: END IF;
34553: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
34554:
34555: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
34556: FND_MSG_PUB.add_exc_msg
34557: ( p_pkg_name => G_PKG_NAME
34558: , p_procedure_name => l_api_name );
34559: END IF;
34560: END create_mapping;
34628:
34629: BEGIN
34630: -- Initialize the message table if requested.
34631: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
34632: FND_MSG_PUB.initialize;
34633: END IF;
34634:
34635: IF (p_commit = FND_API.G_TRUE) THEN
34636: savepoint UPDATE_MAPPING_PUB;
34920: pa_debug.reset_curr_function;
34921: pa_debug.write(g_pkg_name, l_api_name || ': Inside OTHERS exception', 5);
34922: END IF;
34923:
34924: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
34925: FND_MSG_PUB.add_exc_msg
34926: ( p_pkg_name => G_PKG_NAME
34927: , p_procedure_name => l_api_name );
34928: END IF;
34921: pa_debug.write(g_pkg_name, l_api_name || ': Inside OTHERS exception', 5);
34922: END IF;
34923:
34924: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
34925: FND_MSG_PUB.add_exc_msg
34926: ( p_pkg_name => G_PKG_NAME
34927: , p_procedure_name => l_api_name );
34928: END IF;
34929: END UPDATE_MAPPING;
34969:
34970: BEGIN
34971: --Initialize the message table if requested.
34972: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
34973: FND_MSG_PUB.initialize;
34974: END IF;
34975:
34976: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
34977: IF l_debug_mode = 'Y' THEN
35097: WHEN OTHERS THEN
35098:
35099: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
35100:
35101: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
35102: FND_MSG_PUB.add_exc_msg
35103: ( p_pkg_name => G_PKG_NAME
35104: , p_procedure_name => l_api_name );
35105: END IF;
35098:
35099: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
35100:
35101: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
35102: FND_MSG_PUB.add_exc_msg
35103: ( p_pkg_name => G_PKG_NAME
35104: , p_procedure_name => l_api_name );
35105: END IF;
35106: END process_tasks_table;
35175: savepoint create_dep_pub_amg;
35176:
35177: IF FND_API.TO_BOOLEAN( p_init_msg_list )
35178: THEN
35179: FND_MSG_PUB.Initialize;
35180: END IF;
35181:
35182: --get project id
35183: PA_PROJECT_PVT.Convert_pm_projref_to_id
35329: p_return_status := FND_API.G_RET_STS_ERROR;
35330:
35331: -- Begin fix for Bug # 4323969.
35332:
35333: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
35334: , p_data => p_msg_data);
35335:
35336: -- End fix for Bug # 4323969.
35337:
35340: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
35341:
35342: -- Begin fix for Bug # 4323969.
35343:
35344: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
35345: , p_data => p_msg_data);
35346:
35347: -- End fix for Bug # 4323969.
35348:
35351: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
35352:
35353: -- Begin fix for Bug # 4323969.
35354:
35355: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
35356: , p_data => p_msg_data);
35357:
35358: -- End fix for Bug # 4323969.
35359:
35434: savepoint update_dep_pub_amg;
35435:
35436: IF FND_API.TO_BOOLEAN( p_init_msg_list )
35437: THEN
35438: FND_MSG_PUB.Initialize;
35439: END IF;
35440:
35441: --get project id
35442: PA_PROJECT_PVT.Convert_pm_projref_to_id
35593: ROLLBACK TO update_dep_pub_amg;
35594: p_return_status := FND_API.G_RET_STS_ERROR;
35595:
35596: -- 4537865 Included same fix as 4323969.
35597: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
35598: , p_data => p_msg_data);
35599:
35600: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
35601: ROLLBACK TO update_dep_pub_amg;
35601: ROLLBACK TO update_dep_pub_amg;
35602: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
35603:
35604: -- 4537865 : Included same fix as 4323969.
35605: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
35606: , p_data => p_msg_data);
35607:
35608: When OTHERS then
35609: ROLLBACK TO update_dep_pub_amg;
35607:
35608: When OTHERS then
35609: ROLLBACK TO update_dep_pub_amg;
35610: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
35611: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
35612:
35613: FND_MSG_PUB.add_exc_msg
35614: (p_pkg_name => G_PKG_NAME
35615: , p_procedure_name => 'Update_Dependency');
35609: ROLLBACK TO update_dep_pub_amg;
35610: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
35611: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
35612:
35613: FND_MSG_PUB.add_exc_msg
35614: (p_pkg_name => G_PKG_NAME
35615: , p_procedure_name => 'Update_Dependency');
35616:
35617: END IF;
35615: , p_procedure_name => 'Update_Dependency');
35616:
35617: END IF;
35618: -- 4537865 : Included same fix as 4323969.
35619: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
35620: , p_data => p_msg_data);
35621: END Update_Dependency;
35622:
35623:
35695: savepoint delete_dep_pub_amg;
35696:
35697: IF FND_API.TO_BOOLEAN( p_init_msg_list )
35698: THEN
35699: FND_MSG_PUB.Initialize;
35700: END IF;
35701:
35702: --get project id
35703: PA_PROJECT_PVT.Convert_pm_projref_to_id
35848: WHEN FND_API.G_EXC_ERROR THEN
35849: ROLLBACK TO delete_dep_pub_amg;
35850: p_return_status := FND_API.G_RET_STS_ERROR;
35851: -- 4537865 Included same fix as 4323969.
35852: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
35853: , p_data => p_msg_data);
35854: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
35855: ROLLBACK TO delete_dep_pub_amg;
35856: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
35854: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
35855: ROLLBACK TO delete_dep_pub_amg;
35856: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
35857: -- 4537865 Included same fix as 4323969.
35858: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
35859: , p_data => p_msg_data);
35860: When OTHERS then
35861: ROLLBACK TO delete_dep_pub_amg;
35862: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
35860: When OTHERS then
35861: ROLLBACK TO delete_dep_pub_amg;
35862: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
35863:
35864: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
35865:
35866: FND_MSG_PUB.add_exc_msg
35867: (p_pkg_name => G_PKG_NAME
35868: , p_procedure_name => 'Delete_Dependency');
35862: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
35863:
35864: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
35865:
35866: FND_MSG_PUB.add_exc_msg
35867: (p_pkg_name => G_PKG_NAME
35868: , p_procedure_name => 'Delete_Dependency');
35869:
35870: END IF;
35868: , p_procedure_name => 'Delete_Dependency');
35869:
35870: END IF;
35871: -- 4537865 Included same fix as 4323969.
35872: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
35873: , p_data => p_msg_data);
35874:
35875: END Delete_Dependency;
35876: --
36035: END IF;
36036:
36037: IF FND_API.TO_BOOLEAN(p_init_msg_list) THEN
36038:
36039: FND_MSG_PUB.initialize;
36040:
36041: END IF;
36042:
36043: p_return_status := FND_API.G_RET_STS_SUCCESS;
36266:
36267: -- 4537865
36268: p_check_task_mfd_flag := NULL ;
36269:
36270: FND_MSG_PUB.Count_And_Get
36271: ( p_count => p_msg_count ,
36272: p_data => p_msg_data );
36273:
36274: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
36277:
36278: -- 4537865
36279: p_check_task_mfd_flag := NULL ;
36280:
36281: FND_MSG_PUB.Count_And_Get
36282: ( p_count => p_msg_count ,
36283: p_data => p_msg_data );
36284:
36285: WHEN OTHERS THEN
36287: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
36288:
36289: p_check_task_mfd_flag := NULL ; -- 4537865
36290:
36291: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
36292:
36293: FND_MSG_PUB.add_exc_msg
36294: (p_pkg_name => G_PKG_NAME
36295: , p_procedure_name => l_api_name);
36289: p_check_task_mfd_flag := NULL ; -- 4537865
36290:
36291: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
36292:
36293: FND_MSG_PUB.add_exc_msg
36294: (p_pkg_name => G_PKG_NAME
36295: , p_procedure_name => l_api_name);
36296:
36297: END IF;
36295: , p_procedure_name => l_api_name);
36296:
36297: END IF;
36298:
36299: FND_MSG_PUB.Count_And_Get
36300: (p_count => p_msg_count
36301: , p_data => p_msg_data);
36302:
36303: END check_task_mfd;
36340: x_deleted_task_ids := PA_PROJECT_PUB.G_DELETED_TASK_IDS_FROM_OP;
36341: EXCEPTION
36342: WHEN OTHERS THEN
36343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
36344: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
36345:
36346: FND_MSG_PUB.add_exc_msg
36347: (p_pkg_name => G_PKG_NAME
36348: , p_procedure_name => 'get_deleted_tasks_from_op');
36342: WHEN OTHERS THEN
36343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
36344: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
36345:
36346: FND_MSG_PUB.add_exc_msg
36347: (p_pkg_name => G_PKG_NAME
36348: , p_procedure_name => 'get_deleted_tasks_from_op');
36349:
36350: END IF;
36348: , p_procedure_name => 'get_deleted_tasks_from_op');
36349:
36350: END IF;
36351:
36352: FND_MSG_PUB.Count_And_Get
36353: (p_count => x_msg_count
36354: , p_data => x_msg_data);
36355:
36356: END get_deleted_tasks_from_op;
36416:
36417: IF FND_API.TO_BOOLEAN( p_init_msg_list )
36418: THEN
36419:
36420: FND_MSG_PUB.initialize;
36421:
36422: END IF;
36423:
36424: -- Set API return status to success
36599:
36600: p_msg_count := l_msg_count;
36601: p_msg_data := l_msg_data;
36602:
36603: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
36604: , p_data => p_msg_data);
36605:
36606:
36607: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
36611:
36612: p_msg_count := l_msg_count;
36613: p_msg_data := l_msg_data;
36614:
36615: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
36616: , p_data => p_msg_data);
36617:
36618: WHEN OTHERS THEN
36619: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
36617:
36618: WHEN OTHERS THEN
36619: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
36620:
36621: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
36622: FND_MSG_PUB.add_exc_msg
36623: (p_pkg_name => G_PKG_NAME
36624: ,p_procedure_name => l_api_name
36625: ,p_error_text => SUBSTRB(SQLERRM,1,120));
36618: WHEN OTHERS THEN
36619: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
36620:
36621: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
36622: FND_MSG_PUB.add_exc_msg
36623: (p_pkg_name => G_PKG_NAME
36624: ,p_procedure_name => l_api_name
36625: ,p_error_text => SUBSTRB(SQLERRM,1,120));
36626: END IF;
36626: END IF;
36627:
36628: ROLLBACK TO process_structure_updates;
36629:
36630: p_msg_count := fnd_msg_pub.count_msg;
36631: p_msg_data := SUBSTRB(SQLERRM,1,120);
36632:
36633: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
36634: , p_data => p_msg_data);
36629:
36630: p_msg_count := fnd_msg_pub.count_msg;
36631: p_msg_data := SUBSTRB(SQLERRM,1,120);
36632:
36633: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
36634: , p_data => p_msg_data);
36635:
36636: END process_structure_updates;
36637: -- -------------
36851: savepoint SETUP_PROJECT_AS_PROGRAM_AMG;
36852:
36853: -- Initialize the message table if requested.
36854: if FND_API.TO_BOOLEAN(p_init_msg_list) then
36855: FND_MSG_PUB.initialize;
36856: end if;
36857:
36858: -- Standard call to check for API compatibility.
36859: if NOT FND_API.Compatible_API_Call (g_api_version_number, p_api_version, l_api_name, G_PKG_NAME) then
36966:
36967: when FND_API.G_EXC_ERROR then
36968: rollback to SETUP_PROJECT_AS_PROGRAM_AMG;
36969: x_return_status := FND_API.G_RET_STS_ERROR;
36970: x_msg_count := FND_MSG_PUB.count_msg;
36971:
36972: if x_msg_count = 1 then
36973: PA_INTERFACE_UTILS_PUB.get_messages
36974: (p_encoded => FND_API.G_FALSE
36981:
36982: when FND_API.G_EXC_UNEXPECTED_ERROR then
36983: rollback to SETUP_PROJECT_AS_PROGRAM_AMG;
36984: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
36985: x_msg_count := FND_MSG_PUB.count_msg;
36986:
36987: if x_msg_count = 1 then
36988: PA_INTERFACE_UTILS_PUB.get_messages
36989: (p_encoded => FND_API.G_FALSE
36998: rollback to SETUP_PROJECT_AS_PROGRAM_AMG;
36999: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
37000: x_msg_count := 1;
37001: x_msg_data := SQLERRM;
37002: if FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
37003: FND_MSG_PUB.add_exc_msg
37004: ( p_pkg_name => G_PKG_NAME
37005: , p_procedure_name => l_api_name);
37006: end if;
36999: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
37000: x_msg_count := 1;
37001: x_msg_data := SQLERRM;
37002: if FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
37003: FND_MSG_PUB.add_exc_msg
37004: ( p_pkg_name => G_PKG_NAME
37005: , p_procedure_name => l_api_name);
37006: end if;
37007:
37126: savepoint CREATE_PROGRAM_LINKS_AMG;
37127:
37128: -- Initialize the message table if requested.
37129: if FND_API.TO_BOOLEAN(p_init_msg_list) then
37130: FND_MSG_PUB.initialize;
37131: end if;
37132:
37133: -- Standard call to check for API compatibility.
37134: if NOT FND_API.Compatible_API_Call (g_api_version_number, p_api_version, l_api_name, G_PKG_NAME) then
37145: -- Loop through the records in the input PL/SQL table.
37146: for l_count in p_program_links_tbl.FIRST..p_program_links_tbl.LAST loop
37147:
37148: -- Clear the message stack.
37149: FND_MSG_PUB.initialize;
37150:
37151: -- Initialize the error flags.
37152: l_unexp_error_flag := 'N';
37153: l_exp_error_flag := 'N';
37516: -- Set the return status to error.
37517: x_return_status := FND_API.G_RET_STS_ERROR;
37518:
37519: -- Clear all previous messages from the message stack.
37520: FND_MSG_PUB.initialize;
37521:
37522: -- Populate the generic error message.
37523: PA_UTILS.ADD_MESSAGE('PA','PA_PS_GENERIC_ERROR');
37524:
37546:
37547: when FND_API.G_EXC_ERROR then
37548: rollback to CREATE_PROGRAM_LINKS_AMG;
37549: x_return_status := FND_API.G_RET_STS_ERROR;
37550: x_msg_count := FND_MSG_PUB.count_msg;
37551:
37552: if x_msg_count = 1 then
37553: PA_INTERFACE_UTILS_PUB.get_messages
37554: (p_encoded => FND_API.G_FALSE
37561:
37562: when FND_API.G_EXC_UNEXPECTED_ERROR then
37563: rollback to CREATE_PROGRAM_LINKS_AMG;
37564: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
37565: x_msg_count := FND_MSG_PUB.count_msg;
37566:
37567: if x_msg_count = 1 then
37568: PA_INTERFACE_UTILS_PUB.get_messages
37569: (p_encoded => FND_API.G_FALSE
37578: rollback to CREATE_PROGRAM_LINKS_AMG;
37579: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
37580: x_msg_count := 1;
37581: x_msg_data := SQLERRM;
37582: if FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
37583: FND_MSG_PUB.add_exc_msg
37584: ( p_pkg_name => G_PKG_NAME
37585: , p_procedure_name => l_api_name);
37586: end if;
37579: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
37580: x_msg_count := 1;
37581: x_msg_data := SQLERRM;
37582: if FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
37583: FND_MSG_PUB.add_exc_msg
37584: ( p_pkg_name => G_PKG_NAME
37585: , p_procedure_name => l_api_name);
37586: end if;
37587:
37719: savepoint UPDATE_PROGRAM_LINK_CMNTS_AMG;
37720:
37721: -- Initialize the message table if requested.
37722: if FND_API.TO_BOOLEAN(p_init_msg_list) then
37723: FND_MSG_PUB.initialize;
37724: end if;
37725:
37726: -- Standard call to check for API compatibility.
37727: if NOT FND_API.Compatible_API_Call (g_api_version_number, p_api_version, l_api_name, G_PKG_NAME) then
37738: -- Loop through the records in the input PL/SQL table.
37739: for l_count in p_program_links_tbl.FIRST..p_program_links_tbl.LAST loop
37740:
37741: -- Clear the message stack.
37742: FND_MSG_PUB.initialize;
37743:
37744: -- Initialize the error flags.
37745: l_unexp_error_flag := 'N';
37746: l_exp_error_flag := 'N';
38099: -- Set the return status to error.
38100: x_return_status := FND_API.G_RET_STS_ERROR;
38101:
38102: -- Clear all previous messages from the message stack.
38103: FND_MSG_PUB.initialize;
38104:
38105: -- Populate the generic error message.
38106: PA_UTILS.ADD_MESSAGE('PA','PA_PS_GENERIC_ERROR');
38107:
38129:
38130: when FND_API.G_EXC_ERROR then
38131: rollback to UPDATE_PROGRAM_LINK_CMNTS_AMG;
38132: x_return_status := FND_API.G_RET_STS_ERROR;
38133: x_msg_count := FND_MSG_PUB.count_msg;
38134:
38135: if x_msg_count = 1 then
38136: PA_INTERFACE_UTILS_PUB.get_messages
38137: (p_encoded => FND_API.G_FALSE
38144:
38145: when FND_API.G_EXC_UNEXPECTED_ERROR then
38146: rollback to UPDATE_PROGRAM_LINK_CMNTS_AMG;
38147: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
38148: x_msg_count := FND_MSG_PUB.count_msg;
38149:
38150: if x_msg_count = 1 then
38151: PA_INTERFACE_UTILS_PUB.get_messages
38152: (p_encoded => FND_API.G_FALSE
38161: rollback to UPDATE_PROGRAM_LINK_CMNTS_AMG;
38162: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
38163: x_msg_count := 1;
38164: x_msg_data := SQLERRM;
38165: if FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
38166: FND_MSG_PUB.add_exc_msg
38167: ( p_pkg_name => G_PKG_NAME
38168: , p_procedure_name => l_api_name);
38169: end if;
38162: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
38163: x_msg_count := 1;
38164: x_msg_data := SQLERRM;
38165: if FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
38166: FND_MSG_PUB.add_exc_msg
38167: ( p_pkg_name => G_PKG_NAME
38168: , p_procedure_name => l_api_name);
38169: end if;
38170:
38285: savepoint DELETE_PROGRAM_LINK_AMG;
38286:
38287: -- Initialize the message table if requested.
38288: if FND_API.TO_BOOLEAN(p_init_msg_list) then
38289: FND_MSG_PUB.initialize;
38290: end if;
38291:
38292: -- Standard call to check for API compatibility.
38293: if NOT FND_API.Compatible_API_Call (g_api_version_number, p_api_version, l_api_name, G_PKG_NAME) then
38553:
38554: when FND_API.G_EXC_ERROR then
38555: rollback to DELETE_PROGRAM_LINK_AMG;
38556: x_return_status := FND_API.G_RET_STS_ERROR;
38557: x_msg_count := FND_MSG_PUB.count_msg;
38558:
38559: if x_msg_count = 1 then
38560: PA_INTERFACE_UTILS_PUB.get_messages
38561: (p_encoded => FND_API.G_FALSE
38568:
38569: when FND_API.G_EXC_UNEXPECTED_ERROR then
38570: rollback to DELETE_PROGRAM_LINK_AMG;
38571: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
38572: x_msg_count := FND_MSG_PUB.count_msg;
38573:
38574: if x_msg_count = 1 then
38575: PA_INTERFACE_UTILS_PUB.get_messages
38576: (p_encoded => FND_API.G_FALSE
38585: rollback to DELETE_PROGRAM_LINK_AMG;
38586: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
38587: x_msg_count := 1;
38588: x_msg_data := SQLERRM;
38589: if FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
38590: FND_MSG_PUB.add_exc_msg
38591: ( p_pkg_name => G_PKG_NAME
38592: , p_procedure_name => l_api_name);
38593: end if;
38586: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
38587: x_msg_count := 1;
38588: x_msg_data := SQLERRM;
38589: if FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
38590: FND_MSG_PUB.add_exc_msg
38591: ( p_pkg_name => G_PKG_NAME
38592: , p_procedure_name => l_api_name);
38593: end if;
38594:
38688: WHEN OTHERS THEN
38689:
38690: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
38691:
38692: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
38693: THEN
38694: FND_MSG_PUB.add_exc_msg
38695: ( p_pkg_name => G_PKG_NAME
38696: , p_procedure_name => l_api_name );
38690: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
38691:
38692: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
38693: THEN
38694: FND_MSG_PUB.add_exc_msg
38695: ( p_pkg_name => G_PKG_NAME
38696: , p_procedure_name => l_api_name );
38697:
38698: END IF;
38768: raise;
38769: end;
38770:
38771: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
38772: FND_MSG_PUB.Initialize;
38773: END IF;
38774:
38775: OPEN get_project_details_csr (p_project_id);
38776: FETCH get_project_details_csr INTO l_project_details_rec;
38972: WHEN FND_API.G_EXC_ERROR THEN
38973: x_return_status := FND_API.G_RET_STS_ERROR ;
38974: ROLLBACK TO BULK_UPDATE_TASKS_LITE;
38975:
38976: FND_MSG_PUB.Count_And_Get
38977: ( p_count => x_msg_count ,
38978: p_data => x_msg_data );
38979: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
38980: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
38983: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
38984: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
38985: ROLLBACK TO BULK_UPDATE_TASKS_LITE;
38986:
38987: FND_MSG_PUB.Count_And_Get
38988: ( p_count => x_msg_count ,
38989: p_data => x_msg_data );
38990:
38991: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
38995: WHEN OTHERS THEN
38996: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
38997: ROLLBACK TO BULK_UPDATE_TASKS_LITE;
38998:
38999: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
39000: FND_MSG_PUB.add_exc_msg
39001: ( p_pkg_name => G_PKG_NAME
39002: , p_procedure_name => 'BULK_UPDATE_TASKS_LITE');
39003: END IF;
38996: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
38997: ROLLBACK TO BULK_UPDATE_TASKS_LITE;
38998:
38999: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
39000: FND_MSG_PUB.add_exc_msg
39001: ( p_pkg_name => G_PKG_NAME
39002: , p_procedure_name => 'BULK_UPDATE_TASKS_LITE');
39003: END IF;
39004:
39001: ( p_pkg_name => G_PKG_NAME
39002: , p_procedure_name => 'BULK_UPDATE_TASKS_LITE');
39003: END IF;
39004:
39005: FND_MSG_PUB.Count_And_Get
39006: ( p_count => x_msg_count ,
39007: p_data => x_msg_data );
39008:
39009: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
39084: raise;
39085: end;
39086:
39087: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
39088: FND_MSG_PUB.Initialize;
39089: END IF;
39090:
39091: OPEN get_project_details_csr (p_project_id);
39092: FETCH get_project_details_csr INTO l_project_details_rec;
39541: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
39542: END IF;
39543: ROLLBACK TO BULK_ADD_TASKS_LITE;
39544:
39545: FND_MSG_PUB.Count_And_Get
39546: ( p_count => x_msg_count ,
39547: p_data => x_msg_data );
39548:
39549:
39553: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
39554: END IF;
39555: ROLLBACK TO BULK_ADD_TASKS_LITE;
39556:
39557: FND_MSG_PUB.Count_And_Get
39558: ( p_count => x_msg_count ,
39559: p_data => x_msg_data );
39560:
39561:
39565: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
39566: END IF;
39567: ROLLBACK TO BULK_ADD_TASKS_LITE;
39568:
39569: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
39570: FND_MSG_PUB.add_exc_msg
39571: ( p_pkg_name => G_PKG_NAME
39572: , p_procedure_name => 'BULK_ADD_TASKS_LITE' );
39573: END IF;
39566: END IF;
39567: ROLLBACK TO BULK_ADD_TASKS_LITE;
39568:
39569: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
39570: FND_MSG_PUB.add_exc_msg
39571: ( p_pkg_name => G_PKG_NAME
39572: , p_procedure_name => 'BULK_ADD_TASKS_LITE' );
39573: END IF;
39574:
39571: ( p_pkg_name => G_PKG_NAME
39572: , p_procedure_name => 'BULK_ADD_TASKS_LITE' );
39573: END IF;
39574:
39575: FND_MSG_PUB.Count_And_Get
39576: ( p_count => x_msg_count ,
39577: p_data => x_msg_data );
39578:
39579: END BULK_ADD_TASKS_LITE;
39751: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
39752: END IF;
39753:
39754: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
39755: FND_MSG_PUB.initialize;
39756: END IF;
39757: IF p_calling_module = 'SELF_SERVICE' THEN
39758:
39759: l_cur_project_id := p_ref_project_id;
39877: if p_commit = FND_API.G_TRUE then
39878: rollback to BULK_MOVE_TASKS_LITE;
39879: end if;
39880: x_return_status := FND_API.G_RET_STS_ERROR;
39881: x_msg_count := Fnd_Msg_Pub.count_msg;
39882:
39883: IF x_msg_count = 1 AND x_msg_data IS NULL
39884: THEN
39885: Pa_Interface_Utils_Pub.get_messages
39893: END IF;
39894: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
39895: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(l_project_id);
39896: END IF;
39897: FND_MSG_PUB.Count_And_Get
39898: ( p_count => x_msg_count ,
39899: p_data => x_msg_data );
39900:
39901: when FND_API.G_EXC_UNEXPECTED_ERROR then
39902: if p_commit = FND_API.G_TRUE then
39903: rollback to BULK_MOVE_TASKS_LITE;
39904: end if;
39905: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
39906: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
39907: p_procedure_name => l_api_name,
39908: p_error_text => SUBSTRB(SQLERRM,1,240));
39909: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
39910: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(l_project_id);
39913: if p_commit = FND_API.G_TRUE then
39914: rollback to BULK_MOVE_TASKS_LITE;
39915: end if;
39916: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
39917: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
39918: p_procedure_name => l_api_name,
39919: p_error_text => SUBSTRB(SQLERRM,1,240));
39920: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
39921: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(l_project_id);
39919: p_error_text => SUBSTRB(SQLERRM,1,240));
39920: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
39921: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(l_project_id);
39922: END IF;
39923: FND_MSG_PUB.Count_And_Get
39924: ( p_count => x_msg_count ,
39925: p_data => x_msg_data );
39926: raise;
39927: END BULK_MOVE_TASKS_LITE ;
40261: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
40262: END IF;
40263:
40264: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
40265: FND_MSG_PUB.initialize;
40266: END IF;
40267:
40268: PA_TASK_PUB1.G_CALL_PJI_ROLLUP := 'N';
40269:
40885: );
40886:
40887:
40888: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
40889: x_msg_count := FND_MSG_PUB.count_msg;
40890: IF x_msg_count = 1 then
40891: pa_interface_utils_pub.get_messages
40892: (p_encoded => FND_API.G_TRUE,
40893: p_msg_index => 1,
40907: ,x_msg_count => l_msg_count
40908: ,x_msg_data => l_msg_data
40909: );
40910:
40911: x_msg_count := FND_MSG_PUB.count_msg;
40912: IF x_msg_count = 1 then
40913: pa_interface_utils_pub.get_messages
40914: (p_encoded => FND_API.G_TRUE,
40915: p_msg_index => 1,
40927: ,x_msg_count => l_msg_count
40928: ,x_msg_data => l_msg_data
40929: );
40930:
40931: x_msg_count := FND_MSG_PUB.count_msg;
40932: IF x_msg_count = 1 then
40933: pa_interface_utils_pub.get_messages
40934: (p_encoded => FND_API.G_TRUE,
40935: p_msg_index => 1,
41008: ,x_msg_data => l_msg_data );
41009:
41010: -- Merged from 85
41011: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
41012: x_msg_count := FND_MSG_PUB.count_msg;
41013: IF x_msg_count = 1 then
41014: pa_interface_utils_pub.get_messages
41015: (p_encoded => FND_API.G_TRUE,
41016: p_msg_index => 1,
41053: ,x_msg_data => x_msg_data
41054: );
41055:
41056: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
41057: x_msg_count := FND_MSG_PUB.count_msg;
41058: If x_msg_count = 1 then
41059: pa_interface_utils_pub.get_messages
41060: (p_encoded => FND_API.G_TRUE,
41061: p_msg_index => 1,
41080: x_msg_count => l_msg_count,
41081: x_msg_data => l_msg_data);
41082:
41083: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
41084: x_msg_count := FND_MSG_PUB.count_msg;
41085: if x_msg_count = 1 then
41086: pa_interface_utils_pub.get_messages
41087: (p_encoded => FND_API.G_TRUE,
41088: p_msg_index => 1,
41106: ,x_msg_data => l_msg_data
41107: );
41108:
41109: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
41110: x_msg_count := FND_MSG_PUB.count_msg;
41111: if x_msg_count = 1 then
41112: pa_interface_utils_pub.get_messages
41113: (p_encoded => FND_API.G_TRUE,
41114: p_msg_index => 1,
41165: ,x_msg_count => l_msg_count
41166: ,x_msg_data => l_msg_data);
41167:
41168: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
41169: x_msg_count := FND_MSG_PUB.count_msg;
41170: if x_msg_count = 1 then
41171: pa_interface_utils_pub.get_messages
41172: (p_encoded => FND_API.G_TRUE,
41173: p_msg_index => 1,
41197: ,x_msg_count => l_msg_count
41198: ,x_msg_data => l_msg_data );
41199:
41200: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
41201: x_msg_count := FND_MSG_PUB.count_msg;
41202: if x_msg_count = 1 then
41203: pa_interface_utils_pub.get_messages
41204: (p_encoded => FND_API.G_TRUE,
41205: p_msg_index => 1,
41252: );
41253: END IF;
41254: EXCEPTION
41255: WHEN OTHERS THEN
41256: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
41257: p_procedure_name => 'BULK_INDENT_TASKS_LITE',
41258: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.delete_planning_transactions:'||SQLERRM,1,240));
41259: RAISE FND_API.G_EXC_ERROR;
41260: END;
41259: RAISE FND_API.G_EXC_ERROR;
41260: END;
41261:
41262: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
41263: x_msg_count := FND_MSG_PUB.count_msg;
41264: if x_msg_count = 1 then
41265: pa_interface_utils_pub.get_messages
41266: (p_encoded => FND_API.G_TRUE,
41267: p_msg_index => 1,
41302: x_return_status := FND_API.G_RET_STS_ERROR;
41303: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
41304: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
41305: END IF;
41306: FND_MSG_PUB.Count_And_Get
41307: ( p_count => x_msg_count ,
41308: p_data => x_msg_data );
41309: when FND_API.G_EXC_UNEXPECTED_ERROR then
41310: if p_commit = FND_API.G_TRUE then
41310: if p_commit = FND_API.G_TRUE then
41311: rollback to BULK_INDENT_TASKS_LITE;
41312: end if;
41313: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
41314: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
41315: p_procedure_name => 'BULK_INDENT_TASKS_LITE',
41316: p_error_text => SUBSTRB(SQLERRM,1,240));
41317: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
41318: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
41321: if p_commit = FND_API.G_TRUE then
41322: rollback to BULK_INDENT_TASKS_LITE;
41323: end if;
41324: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
41325: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
41326: p_procedure_name => 'BULK_INDENT_TASKS_LITE',
41327: p_error_text => SUBSTRB(SQLERRM,1,240));
41328: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
41329: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
41327: p_error_text => SUBSTRB(SQLERRM,1,240));
41328: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
41329: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
41330: END IF;
41331: FND_MSG_PUB.Count_And_Get
41332: ( p_count => x_msg_count ,
41333: p_data => x_msg_data );
41334:
41335: raise;
41716: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
41717: END IF;
41718:
41719: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
41720: FND_MSG_PUB.initialize;
41721: END IF;
41722:
41723: PA_TASK_PUB1.G_CALL_PJI_ROLLUP := 'N';
41724:
42335: );
42336:
42337:
42338: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
42339: x_msg_count := FND_MSG_PUB.count_msg;
42340: IF x_msg_count = 1 then
42341: pa_interface_utils_pub.get_messages
42342: (p_encoded => FND_API.G_TRUE,
42343: p_msg_index => 1,
42399: ,x_msg_data => x_msg_data
42400: );
42401:
42402: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
42403: x_msg_count := FND_MSG_PUB.count_msg;
42404: IF x_msg_count = 1 then
42405: pa_interface_utils_pub.get_messages
42406: (p_encoded => FND_API.G_TRUE,
42407: p_msg_index => 1,
42424: ,x_msg_count => l_msg_count
42425: ,x_msg_data => l_msg_data
42426: );
42427:
42428: x_msg_count := FND_MSG_PUB.count_msg;
42429: IF x_msg_count = 1 then
42430: pa_interface_utils_pub.get_messages
42431: (p_encoded => FND_API.G_TRUE,
42432: p_msg_index => 1,
42444: ,x_msg_count => l_msg_count
42445: ,x_msg_data => l_msg_data
42446: );
42447:
42448: x_msg_count := FND_MSG_PUB.count_msg;
42449: IF x_msg_count = 1 then
42450: pa_interface_utils_pub.get_messages
42451: (p_encoded => FND_API.G_TRUE,
42452: p_msg_index => 1,
42523: ,x_msg_count => l_msg_count
42524: ,x_msg_data => l_msg_data );
42525:
42526: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
42527: x_msg_count := FND_MSG_PUB.count_msg;
42528: IF x_msg_count = 1 then
42529: pa_interface_utils_pub.get_messages
42530: (p_encoded => FND_API.G_TRUE,
42531: p_msg_index => 1,
42569: ,x_msg_data => x_msg_data
42570: );
42571:
42572: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
42573: x_msg_count := FND_MSG_PUB.count_msg;
42574: If x_msg_count = 1 then
42575: pa_interface_utils_pub.get_messages
42576: (p_encoded => FND_API.G_TRUE,
42577: p_msg_index => 1,
42601: x_msg_count => l_msg_count,
42602: x_msg_data => l_msg_data);
42603:
42604: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
42605: x_msg_count := FND_MSG_PUB.count_msg;
42606: if x_msg_count = 1 then
42607: pa_interface_utils_pub.get_messages
42608: (p_encoded => FND_API.G_TRUE,
42609: p_msg_index => 1,
42626: ,x_msg_data => l_msg_data
42627: );
42628:
42629: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
42630: x_msg_count := FND_MSG_PUB.count_msg;
42631: if x_msg_count = 1 then
42632: pa_interface_utils_pub.get_messages
42633: (p_encoded => FND_API.G_TRUE,
42634: p_msg_index => 1,
42682: ,x_msg_count => l_msg_count
42683: ,x_msg_data => l_msg_data);
42684:
42685: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
42686: x_msg_count := FND_MSG_PUB.count_msg;
42687: if x_msg_count = 1 then
42688: pa_interface_utils_pub.get_messages
42689: (p_encoded => FND_API.G_TRUE,
42690: p_msg_index => 1,
42714: ,x_msg_count => l_msg_count
42715: ,x_msg_data => l_msg_data );
42716:
42717: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
42718: x_msg_count := FND_MSG_PUB.count_msg;
42719: if x_msg_count = 1 then
42720: pa_interface_utils_pub.get_messages
42721: (p_encoded => FND_API.G_TRUE,
42722: p_msg_index => 1,
42773: );
42774: END IF;
42775: EXCEPTION
42776: WHEN OTHERS then
42777: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
42778: p_procedure_name => 'BULK_OUTDENT_TASKS_LITE',
42779: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.delete_planning_transactions:'||SQLERRM,1,240));
42780: RAISE FND_API.G_EXC_ERROR;
42781: END;
42779: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.delete_planning_transactions:'||SQLERRM,1,240));
42780: RAISE FND_API.G_EXC_ERROR;
42781: END;
42782: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
42783: x_msg_count := FND_MSG_PUB.count_msg;
42784: if x_msg_count = 1 then
42785: pa_interface_utils_pub.get_messages
42786: (p_encoded => FND_API.G_TRUE,
42787: p_msg_index => 1,
42823: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
42824: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
42825: END IF;
42826: x_return_status := FND_API.G_RET_STS_ERROR;
42827: FND_MSG_PUB.Count_And_Get
42828: ( p_count => x_msg_count ,
42829: p_data => x_msg_data );
42830: when FND_API.G_EXC_UNEXPECTED_ERROR then
42831: if p_commit = FND_API.G_TRUE then
42831: if p_commit = FND_API.G_TRUE then
42832: rollback to BULK_OUTDENT_TASKS_LITE;
42833: end if;
42834: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
42835: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
42836: p_procedure_name => 'BULK_OUTDENT_TASKS_LITE',
42837: p_error_text => SUBSTRB(SQLERRM,1,240));
42838: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
42839: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
42842: if p_commit = FND_API.G_TRUE then
42843: rollback to BULK_OUTDENT_TASKS_LITE;
42844: end if;
42845: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
42846: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
42847: p_procedure_name => 'BULK_OUTDENT_TASKS_LITE',
42848: p_error_text => SUBSTRB(SQLERRM,1,240));
42849: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
42850: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
42848: p_error_text => SUBSTRB(SQLERRM,1,240));
42849: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
42850: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
42851: END IF;
42852: FND_MSG_PUB.Count_And_Get
42853: ( p_count => x_msg_count ,
42854: p_data => x_msg_data );
42855: raise;
42856:
42960:
42961: EXCEPTION
42962: WHEN FND_API.G_EXC_ERROR THEN
42963: p_return_status := FND_API.G_RET_STS_ERROR ;
42964: FND_MSG_PUB.Count_And_Get
42965: ( p_count => p_msg_count ,
42966: p_data => p_msg_data );
42967: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
42968: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_pa_project_id);
42969: END IF;
42970:
42971: WHEN OTHERS THEN
42972: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
42973: p_msg_count := FND_MSG_PUB.count_msg;
42974: p_project_id := NULL ;
42975: p_task_id := NULL;
42976: PA_PROJECT_PUB.G_PROJECT_ID:=NULL;
42977: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
42976: PA_PROJECT_PUB.G_PROJECT_ID:=NULL;
42977: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
42978: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_pa_project_id);
42979: END IF;
42980: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
42981: FND_MSG_PUB.add_exc_msg
42982: ( p_pkg_name => G_PKG_NAME
42983: , p_procedure_name => 'Bulk_Delete_Task' );
42984: END IF;
42977: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
42978: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_pa_project_id);
42979: END IF;
42980: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
42981: FND_MSG_PUB.add_exc_msg
42982: ( p_pkg_name => G_PKG_NAME
42983: , p_procedure_name => 'Bulk_Delete_Task' );
42984: END IF;
42985: FND_MSG_PUB.Count_And_Get
42981: FND_MSG_PUB.add_exc_msg
42982: ( p_pkg_name => G_PKG_NAME
42983: , p_procedure_name => 'Bulk_Delete_Task' );
42984: END IF;
42985: FND_MSG_PUB.Count_And_Get
42986: ( p_count => p_msg_count ,
42987: p_data => p_msg_data );
42988: END Bulk_Delete_Task;
42989:
43055: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
43056: END IF;
43057:
43058: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
43059: FND_MSG_PUB.initialize;
43060: END IF;
43061:
43062: If p_as_of_date IS NULL OR p_as_of_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
43063: then
43220: if p_commit = FND_API.G_TRUE then
43221: rollback to STRUCTURE_ROLLUP;
43222: end if;
43223: x_return_status := FND_API.G_RET_STS_ERROR;
43224: FND_MSG_PUB.Count_And_Get
43225: ( p_count => x_msg_count ,
43226: p_data => x_msg_data );
43227: when FND_API.G_EXC_UNEXPECTED_ERROR then
43228: if p_commit = FND_API.G_TRUE then
43228: if p_commit = FND_API.G_TRUE then
43229: rollback to STRUCTURE_ROLLUP;
43230: end if;
43231: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
43232: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
43233: p_procedure_name => 'STRUCTURE_ROLLUP',
43234: p_error_text => SUBSTRB(SQLERRM,1,240));
43235: when OTHERS then
43236: if p_commit = FND_API.G_TRUE then
43236: if p_commit = FND_API.G_TRUE then
43237: rollback to STRUCTURE_ROLLUP;
43238: end if;
43239: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
43240: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
43241: p_procedure_name => 'STRUCTURE_ROLLUP',
43242: p_error_text => SUBSTRB(SQLERRM,1,240));
43243: FND_MSG_PUB.Count_And_Get
43244: ( p_count => x_msg_count ,
43239: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
43240: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
43241: p_procedure_name => 'STRUCTURE_ROLLUP',
43242: p_error_text => SUBSTRB(SQLERRM,1,240));
43243: FND_MSG_PUB.Count_And_Get
43244: ( p_count => x_msg_count ,
43245: p_data => x_msg_data );
43246: --raise; /*commented for bug#13923366*/
43247: end STRUCTURE_ROLLUP;
43527: end if;
43528: EXCEPTION
43529:
43530: When FND_API.G_EXC_ERROR Then
43531: FND_MSG_PUB.Count_And_Get
43532: ( p_count => x_msg_count ,
43533: p_data => x_msg_data );
43534: X_Return_Status := 'E';
43535: ROLLBACK;
43535: ROLLBACK;
43536:
43537:
43538: When Others Then
43539: FND_MSG_PUB.Count_And_Get
43540: ( p_count => x_msg_count ,
43541: p_data => x_msg_data );
43542: X_Return_Status := 'E';
43543: ROLLBACK;
43813: END IF;
43814: end if;
43815: EXCEPTION
43816: When FND_API.G_EXC_ERROR Then
43817: FND_MSG_PUB.Count_And_Get
43818: ( p_count => x_msg_count ,
43819: p_data => x_msg_data );
43820: X_Return_Status := 'E';
43821: ROLLBACK;
43820: X_Return_Status := 'E';
43821: ROLLBACK;
43822:
43823: When Others Then
43824: FND_MSG_PUB.Count_And_Get
43825: ( p_count => x_msg_count ,
43826: p_data => x_msg_data );
43827: X_Return_Status := 'E';
43828: ROLLBACK;