201: -- throw error "Please set up the profile value for AHL : Default WorkorderType".
202: IF l_DEFAULT_WORKORDER_TYPE IS NULL
203: THEN
204: FND_MESSAGE.set_name('AHL','AHL_PRD_NO_WORKORDER_TYPE');
205: FND_MSG_PUB.add;
206: RAISE FND_API.G_EXC_ERROR;
207: END IF;
208:
209: IF (p_visit_task_id IS NULL AND p_master_workorder_flag = 'Y' )
216: FETCH get_ue_id_csr INTO l_ue_id;
217: IF (get_ue_id_csr%NOTFOUND) THEN
218: CLOSE get_ue_id_csr;
219: FND_MESSAGE.set_name('AHL','AHL_PRD_VISIT_TASK_NULL');
220: FND_MSG_PUB.add;
221: RAISE FND_API.G_EXC_ERROR;
222: END IF;
223: CLOSE get_ue_id_csr;
224:
979:
980: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
981: IF ( G_DEBUG = 'Y' ) THEN
982: AHL_DEBUG_PUB.debug( 'Error Count from EAM API : ' || l_msg_count );
983: AHL_DEBUG_PUB.debug( 'Error Count from Error Stack : ' || FND_MSG_PUB.count_msg );
984: END IF;
985:
986: RAISE FND_API.G_EXC_ERROR;
987: ELSE
1010:
1011: WHEN FND_API.G_EXC_ERROR THEN
1012: ROLLBACK TO create_eam_workorder_PVT;
1013: x_return_status := FND_API.G_RET_STS_ERROR;
1014: FND_MSG_PUB.count_and_get
1015: (
1016: p_encoded => FND_API.G_FALSE,
1017: p_count => x_msg_count,
1018: p_data => x_msg_data
1024:
1025: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1026: ROLLBACK TO create_eam_workorder_PVT;
1027: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1028: FND_MSG_PUB.count_and_get
1029: (
1030: p_encoded => FND_API.G_FALSE,
1031: p_count => x_msg_count,
1032: p_data => x_msg_data
1038:
1039: WHEN OTHERS THEN
1040: ROLLBACK TO create_eam_workorder_PVT;
1041: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1042: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1043: THEN
1044: FND_MSG_PUB.add_exc_msg
1045: (
1046: p_pkg_name => G_PKG_NAME,
1040: ROLLBACK TO create_eam_workorder_PVT;
1041: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1042: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1043: THEN
1044: FND_MSG_PUB.add_exc_msg
1045: (
1046: p_pkg_name => G_PKG_NAME,
1047: p_procedure_name => l_api_name,
1048: p_error_text => SUBSTRB(SQLERRM,1,240)
1047: p_procedure_name => l_api_name,
1048: p_error_text => SUBSTRB(SQLERRM,1,240)
1049: );
1050: END IF;
1051: FND_MSG_PUB.count_and_get
1052: (
1053: p_encoded => FND_API.G_FALSE,
1054: p_count => x_msg_count,
1055: p_data => x_msg_data
1245:
1246: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1247: IF ( G_DEBUG = 'Y' ) THEN
1248: AHL_DEBUG_PUB.debug( 'Error Count from EAM API : ' || l_msg_count );
1249: AHL_DEBUG_PUB.debug( 'Error Count from Error Stack : ' || FND_MSG_PUB.count_msg );
1250: END IF;
1251:
1252: RAISE FND_API.G_EXC_ERROR;
1253:
1267:
1268: WHEN FND_API.G_EXC_ERROR THEN
1269: ROLLBACK TO update_job_operations_PVT;
1270: x_return_status := FND_API.G_RET_STS_ERROR;
1271: FND_MSG_PUB.count_and_get
1272: (
1273: p_encoded => FND_API.G_FALSE,
1274: p_count => x_msg_count,
1275: p_data => x_msg_data
1281:
1282: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1283: ROLLBACK TO update_job_operations_PVT;
1284: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1285: FND_MSG_PUB.count_and_get
1286: (
1287: p_encoded => FND_API.G_FALSE,
1288: p_count => x_msg_count,
1289: p_data => x_msg_data
1295:
1296: WHEN OTHERS THEN
1297: ROLLBACK TO update_job_operations_PVT;
1298: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1299: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1300: THEN
1301: FND_MSG_PUB.add_exc_msg
1302: (
1303: p_pkg_name => G_PKG_NAME,
1297: ROLLBACK TO update_job_operations_PVT;
1298: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1299: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1300: THEN
1301: FND_MSG_PUB.add_exc_msg
1302: (
1303: p_pkg_name => G_PKG_NAME,
1304: p_procedure_name => l_api_name,
1305: p_error_text => SUBSTRB(SQLERRM,1,240)
1304: p_procedure_name => l_api_name,
1305: p_error_text => SUBSTRB(SQLERRM,1,240)
1306: );
1307: END IF;
1308: FND_MSG_PUB.count_and_get
1309: (
1310: p_encoded => FND_API.G_FALSE,
1311: p_count => x_msg_count,
1312: p_data => x_msg_data
1443:
1444: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1445: IF ( G_DEBUG = 'Y' ) THEN
1446: AHL_DEBUG_PUB.debug( 'Error Count from EAM API : ' || l_msg_count );
1447: AHL_DEBUG_PUB.debug( 'Error Count from Error Stack : ' || FND_MSG_PUB.count_msg );
1448: END IF;
1449:
1450: RAISE FND_API.G_EXC_ERROR;
1451: END IF;
1464:
1465: WHEN FND_API.G_EXC_ERROR THEN
1466: ROLLBACK TO process_material_req_PVT;
1467: x_return_status := FND_API.G_RET_STS_ERROR;
1468: FND_MSG_PUB.count_and_get
1469: (
1470: p_encoded => FND_API.G_FALSE,
1471: p_count => x_msg_count,
1472: p_data => x_msg_data
1478:
1479: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1480: ROLLBACK TO process_material_req_PVT;
1481: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1482: FND_MSG_PUB.count_and_get
1483: (
1484: p_encoded => FND_API.G_FALSE,
1485: p_count => x_msg_count,
1486: p_data => x_msg_data
1492:
1493: WHEN OTHERS THEN
1494: ROLLBACK TO process_material_req_PVT;
1495: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1496: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1497: THEN
1498: FND_MSG_PUB.add_exc_msg
1499: (
1500: p_pkg_name => G_PKG_NAME,
1494: ROLLBACK TO process_material_req_PVT;
1495: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1496: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1497: THEN
1498: FND_MSG_PUB.add_exc_msg
1499: (
1500: p_pkg_name => G_PKG_NAME,
1501: p_procedure_name => l_api_name,
1502: p_error_text => SUBSTRB(SQLERRM,1,240)
1501: p_procedure_name => l_api_name,
1502: p_error_text => SUBSTRB(SQLERRM,1,240)
1503: );
1504: END IF;
1505: FND_MSG_PUB.count_and_get
1506: (
1507: p_encoded => FND_API.G_FALSE,
1508: p_count => x_msg_count,
1509: p_data => x_msg_data
1667:
1668: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1669: IF ( G_DEBUG = 'Y' ) THEN
1670: AHL_DEBUG_PUB.debug( 'Error Count from EAM API : ' || l_msg_count );
1671: AHL_DEBUG_PUB.debug( 'Error Count from Error Stack : ' || FND_MSG_PUB.count_msg );
1672: END IF;
1673:
1674: RAISE FND_API.G_EXC_ERROR;
1675: END IF;
1688:
1689: WHEN FND_API.G_EXC_ERROR THEN
1690: ROLLBACK TO process_resource_req_PVT;
1691: x_return_status := FND_API.G_RET_STS_ERROR;
1692: FND_MSG_PUB.count_and_get
1693: (
1694: p_encoded => FND_API.G_FALSE,
1695: p_count => x_msg_count,
1696: p_data => x_msg_data
1702:
1703: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1704: ROLLBACK TO process_resource_req_PVT;
1705: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1706: FND_MSG_PUB.count_and_get
1707: (
1708: p_encoded => FND_API.G_FALSE,
1709: p_count => x_msg_count,
1710: p_data => x_msg_data
1716:
1717: WHEN OTHERS THEN
1718: ROLLBACK TO process_resource_req_PVT;
1719: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1720: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1721: THEN
1722: FND_MSG_PUB.add_exc_msg
1723: (
1724: p_pkg_name => G_PKG_NAME,
1718: ROLLBACK TO process_resource_req_PVT;
1719: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1720: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1721: THEN
1722: FND_MSG_PUB.add_exc_msg
1723: (
1724: p_pkg_name => G_PKG_NAME,
1725: p_procedure_name => l_api_name,
1726: p_error_text => SUBSTRB(SQLERRM,1,240)
1725: p_procedure_name => l_api_name,
1726: p_error_text => SUBSTRB(SQLERRM,1,240)
1727: );
1728: END IF;
1729: FND_MSG_PUB.count_and_get
1730: (
1731: p_encoded => FND_API.G_FALSE,
1732: p_count => x_msg_count,
1733: p_data => x_msg_data
1864:
1865: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1866: IF ( G_DEBUG = 'Y' ) THEN
1867: AHL_DEBUG_PUB.debug( 'Error Count from EAM API : ' || l_msg_count );
1868: AHL_DEBUG_PUB.debug( 'Error Count from Error Stack : ' || FND_MSG_PUB.count_msg );
1869: END IF;
1870:
1871: RAISE FND_API.G_EXC_ERROR;
1872: END IF;
1885:
1886: WHEN FND_API.G_EXC_ERROR THEN
1887: ROLLBACK TO process_resource_assign_PVT;
1888: x_return_status := FND_API.G_RET_STS_ERROR;
1889: FND_MSG_PUB.count_and_get
1890: (
1891: p_encoded => FND_API.G_FALSE,
1892: p_count => x_msg_count,
1893: p_data => x_msg_data
1899:
1900: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1901: ROLLBACK TO process_resource_assign_PVT;
1902: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1903: FND_MSG_PUB.count_and_get
1904: (
1905: p_encoded => FND_API.G_FALSE,
1906: p_count => x_msg_count,
1907: p_data => x_msg_data
1913:
1914: WHEN OTHERS THEN
1915: ROLLBACK TO process_resource_assign_PVT;
1916: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1917: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1918: THEN
1919: FND_MSG_PUB.add_exc_msg
1920: (
1921: p_pkg_name => G_PKG_NAME,
1915: ROLLBACK TO process_resource_assign_PVT;
1916: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1917: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1918: THEN
1919: FND_MSG_PUB.add_exc_msg
1920: (
1921: p_pkg_name => G_PKG_NAME,
1922: p_procedure_name => l_api_name,
1923: p_error_text => SUBSTRB(SQLERRM,1,240)
1922: p_procedure_name => l_api_name,
1923: p_error_text => SUBSTRB(SQLERRM,1,240)
1924: );
1925: END IF;
1926: FND_MSG_PUB.count_and_get
1927: (
1928: p_encoded => FND_API.G_FALSE,
1929: p_count => x_msg_count,
1930: p_data => x_msg_data
2071:
2072: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
2073: IF ( G_DEBUG = 'Y' ) THEN
2074: AHL_DEBUG_PUB.debug( 'Error Count from EAM API : ' || l_msg_count );
2075: AHL_DEBUG_PUB.debug( 'Error Count from Error Stack : ' || FND_MSG_PUB.count_msg );
2076: END IF;
2077:
2078: RAISE FND_API.G_EXC_ERROR;
2079:
2079:
2080: ELSE
2081: --Change made on Nov 17, 2005 by jeli due to bug 4742895.
2082: --Ignore messages in stack if return status is S after calls to EAM APIs.
2083: FND_MSG_PUB.initialize;
2084:
2085: IF ( G_DEBUG = 'Y' ) THEN
2086: AHL_DEBUG_PUB.debug( 'EAM process_master_child_wo API Successful' );
2087: AHL_DEBUG_PUB.debug( 'Input Workorder Table count : ' || p_x_eam_wo_tbl.COUNT );
2091: FOR i IN 1..l_out_eam_wo_tbl.COUNT LOOP
2092: IF ( l_out_eam_wo_tbl(i).wip_entity_id IS NULL ) THEN
2093: FND_MESSAGE.set_name('AHL','AHL_PRD_CREATE_WIP_JOB_FAILED');
2094: FND_MESSAGE.set_token('HEADER', l_out_eam_wo_tbl(i).header_id );
2095: FND_MSG_PUB.add;
2096:
2097: IF ( G_DEBUG = 'Y' ) THEN
2098: AHL_DEBUG_PUB.debug( 'No wip_entity_id generated for header_id:' || l_out_eam_wo_tbl(i).header_id );
2099: END IF;
2107:
2108: END IF;
2109: END LOOP;
2110:
2111: l_msg_count := FND_MSG_PUB.count_msg;
2112: IF l_msg_count > 0 THEN
2113: RAISE FND_API.G_EXC_ERROR;
2114: END IF;
2115:
2128:
2129: WHEN FND_API.G_EXC_ERROR THEN
2130: ROLLBACK TO process_eam_workorders_PVT;
2131: x_return_status := FND_API.G_RET_STS_ERROR;
2132: FND_MSG_PUB.count_and_get
2133: (
2134: p_encoded => FND_API.G_FALSE,
2135: p_count => x_msg_count,
2136: p_data => x_msg_data
2142:
2143: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2144: ROLLBACK TO process_eam_workorders_PVT;
2145: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2146: FND_MSG_PUB.count_and_get
2147: (
2148: p_encoded => FND_API.G_FALSE,
2149: p_count => x_msg_count,
2150: p_data => x_msg_data
2156:
2157: WHEN OTHERS THEN
2158: ROLLBACK TO process_eam_workorders_PVT;
2159: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2160: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2161: THEN
2162: FND_MSG_PUB.add_exc_msg
2163: (
2164: p_pkg_name => G_PKG_NAME,
2158: ROLLBACK TO process_eam_workorders_PVT;
2159: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2160: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2161: THEN
2162: FND_MSG_PUB.add_exc_msg
2163: (
2164: p_pkg_name => G_PKG_NAME,
2165: p_procedure_name => l_api_name,
2166: p_error_text => SUBSTRB(SQLERRM,1,240)
2165: p_procedure_name => l_api_name,
2166: p_error_text => SUBSTRB(SQLERRM,1,240)
2167: );
2168: END IF;
2169: FND_MSG_PUB.count_and_get
2170: (
2171: p_encoded => FND_API.G_FALSE,
2172: p_count => x_msg_count,
2173: p_data => x_msg_data
2272:
2273: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
2274: IF ( G_DEBUG = 'Y' ) THEN
2275: AHL_DEBUG_PUB.debug( 'Error Count from EAM API : ' || l_msg_count );
2276: AHL_DEBUG_PUB.debug( 'Error Count from Error Stack : ' || FND_MSG_PUB.count_msg );
2277: END IF;
2278:
2279: RAISE FND_API.G_EXC_ERROR;
2280:
2294:
2295: WHEN FND_API.G_EXC_ERROR THEN
2296: ROLLBACK TO move_workorder_PVT;
2297: x_return_status := FND_API.G_RET_STS_ERROR;
2298: FND_MSG_PUB.count_and_get
2299: (
2300: p_encoded => FND_API.G_FALSE,
2301: p_count => x_msg_count,
2302: p_data => x_msg_data
2308:
2309: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2310: ROLLBACK TO move_workorder_PVT;
2311: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2312: FND_MSG_PUB.count_and_get
2313: (
2314: p_encoded => FND_API.G_FALSE,
2315: p_count => x_msg_count,
2316: p_data => x_msg_data
2322:
2323: WHEN OTHERS THEN
2324: ROLLBACK TO move_workorder_PVT;
2325: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2326: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2327: THEN
2328: FND_MSG_PUB.add_exc_msg
2329: (
2330: p_pkg_name => G_PKG_NAME,
2324: ROLLBACK TO move_workorder_PVT;
2325: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2326: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2327: THEN
2328: FND_MSG_PUB.add_exc_msg
2329: (
2330: p_pkg_name => G_PKG_NAME,
2331: p_procedure_name => l_api_name,
2332: p_error_text => SUBSTRB(SQLERRM,1,240)
2331: p_procedure_name => l_api_name,
2332: p_error_text => SUBSTRB(SQLERRM,1,240)
2333: );
2334: END IF;
2335: FND_MSG_PUB.count_and_get
2336: (
2337: p_encoded => FND_API.G_FALSE,
2338: p_count => x_msg_count,
2339: p_data => x_msg_data