240: EXCEPTION
241: WHEN FND_API.G_EXC_ERROR THEN
242: ROLLBACK TO EXPLODE_INITIAL_ESTIMATE;
243: x_return_status := FND_API.G_RET_STS_ERROR;
244: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
245: p_data => x_msg_data);
246: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
247: ROLLBACK TO EXPLODE_INITIAL_ESTIMATE;
248: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
245: p_data => x_msg_data);
246: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
247: ROLLBACK TO EXPLODE_INITIAL_ESTIMATE;
248: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
249: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
250: p_data => x_msg_data);
251: WHEN OTHERS THEN
252: ROLLBACK TO EXPLODE_INITIAL_ESTIMATE;
253: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
250: p_data => x_msg_data);
251: WHEN OTHERS THEN
252: ROLLBACK TO EXPLODE_INITIAL_ESTIMATE;
253: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
254: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
255: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'EXPLODE_INITIAL_ESTIMATE');
256: END IF;
257: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
258: p_data => x_msg_data);
251: WHEN OTHERS THEN
252: ROLLBACK TO EXPLODE_INITIAL_ESTIMATE;
253: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
254: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
255: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'EXPLODE_INITIAL_ESTIMATE');
256: END IF;
257: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
258: p_data => x_msg_data);
259:
253: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
254: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
255: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'EXPLODE_INITIAL_ESTIMATE');
256: END IF;
257: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
258: p_data => x_msg_data);
259:
260: END EXPLODE_INITIAL_ESTIMATE;
261:
278: IF (p_work_order_line_id IS NULL) THEN
279: --FND_MESSAGE.SET_NAME('EAM','EAM_EA_INVALID_PARAM');
280: --FND_MESSAGE.SET_TOKEN('PARAMETER', 'ORGANIZATION_ID');
281: --FND_MESSAGE.SET_TOKEN('VALUE', p_parent_wo_line_rec.ORGANIZATION_ID);
282: --FND_MSG_PUB.ADD;
283: RAISE FND_API.G_EXC_ERROR;
284: END IF;
285:
286: EAM_CE_WORK_ORDER_LINES_PKG.DELETE_ROW(
296: EXCEPTION
297: WHEN FND_API.G_EXC_ERROR THEN
298: ROLLBACK TO DELETE_WO_LINE;
299: x_return_status := FND_API.G_RET_STS_ERROR;
300: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
301: p_data => x_msg_data);
302: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
303: ROLLBACK TO DELETE_WO_LINE;
304: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
301: p_data => x_msg_data);
302: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
303: ROLLBACK TO DELETE_WO_LINE;
304: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
305: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
306: p_data => x_msg_data);
307: WHEN OTHERS THEN
308: ROLLBACK TO DELETE_WO_LINE;
309: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
306: p_data => x_msg_data);
307: WHEN OTHERS THEN
308: ROLLBACK TO DELETE_WO_LINE;
309: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
310: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
311: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'DELETE_WO_LINE');
312: END IF;
313: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
314: p_data => x_msg_data);
307: WHEN OTHERS THEN
308: ROLLBACK TO DELETE_WO_LINE;
309: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
310: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
311: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'DELETE_WO_LINE');
312: END IF;
313: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
314: p_data => x_msg_data);
315: END DELETE_WO_LINE;
309: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
310: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
311: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'DELETE_WO_LINE');
312: END IF;
313: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
314: p_data => x_msg_data);
315: END DELETE_WO_LINE;
316:
317: PROCEDURE INSERT_PARENT_WO_LINE(
357: IF (p_parent_wo_line_rec.ORGANIZATION_ID IS NULL) THEN
358: FND_MESSAGE.SET_NAME('EAM','EAM_EA_INVALID_PARAM');
359: FND_MESSAGE.SET_TOKEN('PARAMETER', 'ORGANIZATION_ID');
360: FND_MESSAGE.SET_TOKEN('VALUE', p_parent_wo_line_rec.ORGANIZATION_ID);
361: FND_MSG_PUB.ADD;
362: RAISE FND_API.G_EXC_ERROR;
363: END IF;
364:
365: IF (p_estimate_id IS NULL) THEN
365: IF (p_estimate_id IS NULL) THEN
366: FND_MESSAGE.SET_NAME('EAM','EAM_EA_INVALID_PARAM');
367: FND_MESSAGE.SET_TOKEN('PARAMETER', 'ESTIMATE_NUMBER');
368: FND_MESSAGE.SET_TOKEN('VALUE', p_estimate_id);
369: FND_MSG_PUB.ADD;
370: RAISE FND_API.G_EXC_ERROR;
371: END IF;
372:
373: -- If the parent details already exist, update the estimate
691: EXCEPTION
692: WHEN FND_API.G_EXC_ERROR THEN
693: ROLLBACK TO INSERT_PARENT_WO_LINE;
694: x_return_status := FND_API.G_RET_STS_ERROR;
695: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
696: p_data => x_msg_data);
697: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
698: ROLLBACK TO INSERT_PARENT_WO_LINE;
699: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
696: p_data => x_msg_data);
697: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
698: ROLLBACK TO INSERT_PARENT_WO_LINE;
699: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
700: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
701: p_data => x_msg_data);
702: WHEN OTHERS THEN
703: ROLLBACK TO INSERT_PARENT_WO_LINE;
704: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
701: p_data => x_msg_data);
702: WHEN OTHERS THEN
703: ROLLBACK TO INSERT_PARENT_WO_LINE;
704: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
705: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
706: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'INSERT_PARENT_WO_LINE');
707: END IF;
708: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
709: p_data => x_msg_data);
702: WHEN OTHERS THEN
703: ROLLBACK TO INSERT_PARENT_WO_LINE;
704: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
705: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
706: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'INSERT_PARENT_WO_LINE');
707: END IF;
708: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
709: p_data => x_msg_data);
710: END INSERT_PARENT_WO_LINE;
704: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
705: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
706: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'INSERT_PARENT_WO_LINE');
707: END IF;
708: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
709: p_data => x_msg_data);
710: END INSERT_PARENT_WO_LINE;
711:
712: PROCEDURE EXPLODE_STD_OP(
900: EXCEPTION
901: WHEN FND_API.G_EXC_ERROR THEN
902: --ROLLBACK TO EXPLODE_STD_OP;
903: x_return_status := FND_API.G_RET_STS_ERROR;
904: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
905: p_data => x_msg_data);
906: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
907: -- ROLLBACK TO EXPLODE_STD_OP;
908: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
905: p_data => x_msg_data);
906: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
907: -- ROLLBACK TO EXPLODE_STD_OP;
908: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
909: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
910: p_data => x_msg_data);
911: WHEN OTHERS THEN
912: -- ROLLBACK TO EXPLODE_STD_OP;
913: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
910: p_data => x_msg_data);
911: WHEN OTHERS THEN
912: -- ROLLBACK TO EXPLODE_STD_OP;
913: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
914: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
915: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'EXPLODE_STD_OP');
916: END IF;
917: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
918: p_data => x_msg_data);
911: WHEN OTHERS THEN
912: -- ROLLBACK TO EXPLODE_STD_OP;
913: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
914: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
915: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'EXPLODE_STD_OP');
916: END IF;
917: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
918: p_data => x_msg_data);
919: END EXPLODE_STD_OP;
913: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
914: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
915: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'EXPLODE_STD_OP');
916: END IF;
917: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
918: p_data => x_msg_data);
919: END EXPLODE_STD_OP;
920:
921:
1246: EXCEPTION
1247: WHEN FND_API.G_EXC_ERROR THEN
1248: ROLLBACK TO INSERT_ALL_WO_LINES;
1249: x_return_status := FND_API.G_RET_STS_ERROR;
1250: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1251: p_data => x_msg_data);
1252: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1253: ROLLBACK TO INSERT_ALL_WO_LINES;
1254: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1251: p_data => x_msg_data);
1252: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1253: ROLLBACK TO INSERT_ALL_WO_LINES;
1254: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1255: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1256: p_data => x_msg_data);
1257: WHEN OTHERS THEN
1258: ROLLBACK TO INSERT_ALL_WO_LINES;
1259: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1256: p_data => x_msg_data);
1257: WHEN OTHERS THEN
1258: ROLLBACK TO INSERT_ALL_WO_LINES;
1259: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1260: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1261: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'INSERT_ALL_WO_LINES');
1262: END IF;
1263: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1264: p_data => x_msg_data);
1257: WHEN OTHERS THEN
1258: ROLLBACK TO INSERT_ALL_WO_LINES;
1259: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1260: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1261: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'INSERT_ALL_WO_LINES');
1262: END IF;
1263: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1264: p_data => x_msg_data);
1265: END INSERT_ALL_WO_LINES;
1259: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1260: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1261: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'INSERT_ALL_WO_LINES');
1262: END IF;
1263: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1264: p_data => x_msg_data);
1265: END INSERT_ALL_WO_LINES;
1266:
1267: PROCEDURE EXPLODE_CE_ACTIVITIES(
1821: END IF;
1822:
1823: --Initialize message list if p_init_msg_list is set to TRUE.
1824: IF FND_API.TO_BOOLEAN(p_init_msg_list) THEN
1825: FND_MSG_PUB.INITIALIZE;
1826: END IF;
1827:
1828: --Initialize API return status to success
1829: x_return_status := FND_API.G_RET_STS_SUCCESS;
1876: EXCEPTION
1877: WHEN OTHERS THEN
1878: FND_MESSAGE.SET_NAME('EAM','EAM_INVALID_CU_ID');
1879: FND_MESSAGE.SET_TOKEN('CU_ID', px_cu_tbl(l_index).CU_ID);
1880: FND_MSG_PUB.ADD;
1881: RAISE FND_API.G_EXC_ERROR;
1882: END;
1883: END LOOP;
1884: END IF;
1885: EXCEPTION
1886: WHEN FND_API.G_EXC_ERROR THEN
1887: ROLLBACK TO GET_CU_RECS;
1888: x_return_status := FND_API.G_RET_STS_ERROR;
1889: FND_MSG_PUB.Count_And_Get(p_encoded => 'F',
1890: p_count => x_msg_count,
1891: p_data => x_msg_data);
1892: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1893: ROLLBACK TO GET_CU_RECS;
1891: p_data => x_msg_data);
1892: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1893: ROLLBACK TO GET_CU_RECS;
1894: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1895: FND_MSG_PUB.Count_And_Get(p_encoded => 'F',
1896: p_count => x_msg_count,
1897: p_data => x_msg_data);
1898: WHEN OTHERS THEN
1899: ROLLBACK TO GET_CU_RECS;
1897: p_data => x_msg_data);
1898: WHEN OTHERS THEN
1899: ROLLBACK TO GET_CU_RECS;
1900: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1901: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1902: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1903: END IF;
1904: FND_MSG_PUB.Count_And_Get(p_encoded => 'F',
1905: p_count => x_msg_count,
1898: WHEN OTHERS THEN
1899: ROLLBACK TO GET_CU_RECS;
1900: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1901: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1902: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1903: END IF;
1904: FND_MSG_PUB.Count_And_Get(p_encoded => 'F',
1905: p_count => x_msg_count,
1906: p_data => x_msg_data);
1900: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1901: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1902: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1903: END IF;
1904: FND_MSG_PUB.Count_And_Get(p_encoded => 'F',
1905: p_count => x_msg_count,
1906: p_data => x_msg_data);
1907: END GET_CU_RECS;
1908:
1946: END IF;
1947:
1948: --Initialize message list if p_init_msg_list is set to TRUE.
1949: IF FND_API.TO_BOOLEAN(p_init_msg_list) THEN
1950: FND_MSG_PUB.INITIALIZE;
1951: END IF;
1952:
1953: --Initialize API return status to success
1954: x_return_status := FND_API.G_RET_STS_SUCCESS;
2034: EXCEPTION
2035: WHEN FND_API.G_EXC_ERROR THEN
2036: ROLLBACK TO GET_CU_ACTIVITIES;
2037: x_return_status := FND_API.G_RET_STS_ERROR;
2038: FND_MSG_PUB.Count_And_Get(p_encoded => 'F',
2039: p_count => x_msg_count,
2040: p_data => x_msg_data);
2041: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2042: ROLLBACK TO GET_CU_ACTIVITIES;
2040: p_data => x_msg_data);
2041: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2042: ROLLBACK TO GET_CU_ACTIVITIES;
2043: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2044: FND_MSG_PUB.Count_And_Get(p_encoded => 'F',
2045: p_count => x_msg_count,
2046: p_data => x_msg_data);
2047: WHEN OTHERS THEN
2048: ROLLBACK TO GET_CU_ACTIVITIES;
2046: p_data => x_msg_data);
2047: WHEN OTHERS THEN
2048: ROLLBACK TO GET_CU_ACTIVITIES;
2049: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2050: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2051: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2052: END IF;
2053: FND_MSG_PUB.Count_And_Get(p_encoded => 'F',
2054: p_count => x_msg_count,
2047: WHEN OTHERS THEN
2048: ROLLBACK TO GET_CU_ACTIVITIES;
2049: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2050: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2051: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2052: END IF;
2053: FND_MSG_PUB.Count_And_Get(p_encoded => 'F',
2054: p_count => x_msg_count,
2055: p_data => x_msg_data);
2049: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2050: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2051: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2052: END IF;
2053: FND_MSG_PUB.Count_And_Get(p_encoded => 'F',
2054: p_count => x_msg_count,
2055: p_data => x_msg_data);
2056: END GET_CU_ACTIVITIES;
2057:
2084: END IF;
2085:
2086: --Initialize message list if p_init_msg_list is set to TRUE.
2087: IF FND_API.TO_BOOLEAN(p_init_msg_list) THEN
2088: FND_MSG_PUB.INITIALIZE;
2089: END IF;
2090:
2091: --Initialize API return status to success
2092: x_return_status := FND_API.G_RET_STS_SUCCESS;
2115: IF (px_estimate_rec.ORGANIZATION_ID IS NULL) THEN
2116: FND_MESSAGE.SET_NAME('EAM','EAM_EA_INVALID_PARAM');
2117: FND_MESSAGE.SET_TOKEN('PARAMETER', 'ORGANIZATION_ID');
2118: FND_MESSAGE.SET_TOKEN('VALUE', px_estimate_rec.ORGANIZATION_ID);
2119: FND_MSG_PUB.ADD;
2120: RAISE FND_API.G_EXC_ERROR;
2121: END IF;
2122:
2123: IF (px_estimate_rec.ESTIMATE_NUMBER IS NULL) THEN
2123: IF (px_estimate_rec.ESTIMATE_NUMBER IS NULL) THEN
2124: FND_MESSAGE.SET_NAME('EAM','EAM_EA_INVALID_PARAM');
2125: FND_MESSAGE.SET_TOKEN('PARAMETER', 'ESTIMATE_NUMBER');
2126: FND_MESSAGE.SET_TOKEN('VALUE', px_estimate_rec.ESTIMATE_NUMBER);
2127: FND_MSG_PUB.ADD;
2128: RAISE FND_API.G_EXC_ERROR;
2129: ELSE
2130: BEGIN
2131: SELECT 'Y'
2139: END;
2140: IF l_estimate_exist = 'Y' THEN
2141: FND_MESSAGE.SET_NAME('EAM','EAM_ESTIMATE_NAME_UNIQUE');
2142: FND_MESSAGE.SET_TOKEN('ESTIMATE_NAME', px_estimate_rec.ESTIMATE_NUMBER);
2143: FND_MSG_PUB.ADD;
2144: RAISE FND_API.G_EXC_ERROR;
2145: END IF;
2146: END IF;
2147:
2191: EXCEPTION
2192: WHEN FND_API.G_EXC_ERROR THEN
2193: ROLLBACK TO CREATE_ESTIMATE;
2194: x_return_status := FND_API.G_RET_STS_ERROR;
2195: FND_MSG_PUB.Count_And_Get(p_encoded => 'F',
2196: p_count => x_msg_count,
2197: p_data => x_msg_data);
2198: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2199: ROLLBACK TO CREATE_ESTIMATE;
2197: p_data => x_msg_data);
2198: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2199: ROLLBACK TO CREATE_ESTIMATE;
2200: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2201: FND_MSG_PUB.Count_And_Get(p_encoded => 'F',
2202: p_count => x_msg_count,
2203: p_data => x_msg_data);
2204: WHEN OTHERS THEN
2205: ROLLBACK TO CREATE_ESTIMATE;
2203: p_data => x_msg_data);
2204: WHEN OTHERS THEN
2205: ROLLBACK TO CREATE_ESTIMATE;
2206: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2207: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2208: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2209: END IF;
2210: FND_MSG_PUB.Count_And_Get(p_encoded => 'F',
2211: p_count => x_msg_count,
2204: WHEN OTHERS THEN
2205: ROLLBACK TO CREATE_ESTIMATE;
2206: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2207: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2208: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2209: END IF;
2210: FND_MSG_PUB.Count_And_Get(p_encoded => 'F',
2211: p_count => x_msg_count,
2212: p_data => x_msg_data);
2206: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2207: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2208: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2209: END IF;
2210: FND_MSG_PUB.Count_And_Get(p_encoded => 'F',
2211: p_count => x_msg_count,
2212: p_data => x_msg_data);
2213: END CREATE_ESTIMATE;
2214:
2244: END IF;
2245:
2246: --Initialize message list if p_init_msg_list is set to TRUE.
2247: IF FND_API.TO_BOOLEAN(p_init_msg_list) THEN
2248: FND_MSG_PUB.INITIALIZE;
2249: END IF;
2250:
2251: --Initialize API return status to success
2252: x_return_status := FND_API.G_RET_STS_SUCCESS;
2275: IF (p_estimate_rec.ESTIMATE_ID IS NULL) THEN
2276: FND_MESSAGE.SET_NAME('EAM','EAM_EA_INVALID_PARAM');
2277: FND_MESSAGE.SET_TOKEN('PARAMETER', 'ESTIMATE_ID');
2278: FND_MESSAGE.SET_TOKEN('VALUE', p_estimate_rec.ESTIMATE_ID);
2279: FND_MSG_PUB.ADD;
2280: RAISE FND_API.G_EXC_ERROR;
2281: END IF;
2282:
2283: IF (p_estimate_rec.ORGANIZATION_ID IS NULL) THEN
2283: IF (p_estimate_rec.ORGANIZATION_ID IS NULL) THEN
2284: FND_MESSAGE.SET_NAME('EAM','EAM_EA_INVALID_PARAM');
2285: FND_MESSAGE.SET_TOKEN('PARAMETER', 'ORGANIZATION_ID');
2286: FND_MESSAGE.SET_TOKEN('VALUE', p_estimate_rec.ORGANIZATION_ID);
2287: FND_MSG_PUB.ADD;
2288: RAISE FND_API.G_EXC_ERROR;
2289: END IF;
2290:
2291: IF (p_estimate_rec.ESTIMATE_NUMBER IS NULL) THEN
2291: IF (p_estimate_rec.ESTIMATE_NUMBER IS NULL) THEN
2292: FND_MESSAGE.SET_NAME('EAM','EAM_EA_INVALID_PARAM');
2293: FND_MESSAGE.SET_TOKEN('PARAMETER', 'ESTIMATE_NUMBER');
2294: FND_MESSAGE.SET_TOKEN('VALUE', p_estimate_rec.ESTIMATE_NUMBER);
2295: FND_MSG_PUB.ADD;
2296: RAISE FND_API.G_EXC_ERROR;
2297: ELSE
2298: BEGIN
2299: SELECT 'Y'
2308: END;
2309: IF l_estimate_exist = 'Y' THEN
2310: FND_MESSAGE.SET_NAME('EAM','EAM_ESTIMATE_NAME_UNIQUE');
2311: FND_MESSAGE.SET_TOKEN('ESTIMATE_NAME', p_estimate_rec.ESTIMATE_NUMBER);
2312: FND_MSG_PUB.ADD;
2313: RAISE FND_API.G_EXC_ERROR;
2314: END IF;
2315: END IF;
2316:
2372: EXCEPTION
2373: WHEN FND_API.G_EXC_ERROR THEN
2374: ROLLBACK TO UPDATE_ESTIMATE;
2375: x_return_status := FND_API.G_RET_STS_ERROR;
2376: FND_MSG_PUB.Count_And_Get(p_encoded => 'F',
2377: p_count => x_msg_count,
2378: p_data => x_msg_data);
2379: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2380: ROLLBACK TO UPDATE_ESTIMATE;
2378: p_data => x_msg_data);
2379: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2380: ROLLBACK TO UPDATE_ESTIMATE;
2381: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2382: FND_MSG_PUB.Count_And_Get(p_encoded => 'F',
2383: p_count => x_msg_count,
2384: p_data => x_msg_data);
2385: WHEN OTHERS THEN
2386: ROLLBACK TO UPDATE_ESTIMATE;
2384: p_data => x_msg_data);
2385: WHEN OTHERS THEN
2386: ROLLBACK TO UPDATE_ESTIMATE;
2387: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2388: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2389: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2390: END IF;
2391: FND_MSG_PUB.Count_And_Get(p_encoded => 'F',
2392: p_count => x_msg_count,
2385: WHEN OTHERS THEN
2386: ROLLBACK TO UPDATE_ESTIMATE;
2387: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2388: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2389: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2390: END IF;
2391: FND_MSG_PUB.Count_And_Get(p_encoded => 'F',
2392: p_count => x_msg_count,
2393: p_data => x_msg_data);
2387: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2388: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2389: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2390: END IF;
2391: FND_MSG_PUB.Count_And_Get(p_encoded => 'F',
2392: p_count => x_msg_count,
2393: p_data => x_msg_data);
2394: END UPDATE_ESTIMATE;
2395:
2433: END IF;
2434:
2435: --Initialize message list if p_init_msg_list is set to TRUE.
2436: IF FND_API.TO_BOOLEAN(p_init_msg_list) THEN
2437: FND_MSG_PUB.INITIALIZE;
2438: END IF;
2439:
2440: --Initialize API return status to success
2441: x_return_status := FND_API.G_RET_STS_SUCCESS;
2475: --Validate Construction Estimate ID exist
2476: IF p_ce_id IS NULL THEN
2477: FND_MESSAGE.SET_NAME('EAM','EAM_INVALID_CE_ID');
2478: FND_MESSAGE.SET_TOKEN('CE_ID', p_ce_id);
2479: FND_MSG_PUB.ADD;
2480: RAISE FND_API.G_EXC_ERROR;
2481: END IF;
2482:
2483: BEGIN
2490: EXCEPTION
2491: WHEN OTHERS THEN
2492: FND_MESSAGE.SET_NAME('EAM','EAM_INVALID_CE_ID');
2493: FND_MESSAGE.SET_TOKEN('CE_ID', p_ce_id);
2494: FND_MSG_PUB.ADD;
2495: RAISE FND_API.G_EXC_ERROR;
2496: END;
2497:
2498: IF px_activities_tbl.COUNT > 0 THEN
2502: IF (px_activities_tbl(l_index).ORGANIZATION_ID IS NOT NULL AND px_activities_tbl(l_index).ORGANIZATION_ID <> l_organization_id) THEN
2503: FND_MESSAGE.SET_NAME('EAM','EAM_EA_INVALID_PARAM');
2504: FND_MESSAGE.SET_TOKEN('PARAMETER', 'ORGANIZATION_ID');
2505: FND_MESSAGE.SET_TOKEN('VALUE', px_activities_tbl(l_index).ORGANIZATION_ID);
2506: FND_MSG_PUB.ADD;
2507: RAISE FND_API.G_EXC_ERROR;
2508: END IF;
2509:
2510: IF (px_activities_tbl(l_index).ESTIMATE_ID IS NOT NULL AND px_activities_tbl(l_index).ESTIMATE_ID <> l_ce_id) THEN
2510: IF (px_activities_tbl(l_index).ESTIMATE_ID IS NOT NULL AND px_activities_tbl(l_index).ESTIMATE_ID <> l_ce_id) THEN
2511: FND_MESSAGE.SET_NAME('EAM','EAM_EA_INVALID_PARAM');
2512: FND_MESSAGE.SET_TOKEN('PARAMETER', 'ESTIMATE_ID');
2513: FND_MESSAGE.SET_TOKEN('VALUE', px_activities_tbl(l_index).ESTIMATE_ID);
2514: FND_MSG_PUB.ADD;
2515: RAISE FND_API.G_EXC_ERROR;
2516: END IF;
2517:
2518: l_cu_id := px_activities_tbl(l_index).CU_ID;
2520: IF (px_activities_tbl(l_index).CU_QTY IS NULL OR px_activities_tbl(l_index).CU_QTY < 1) THEN
2521: FND_MESSAGE.SET_NAME('EAM','EAM_EA_INVALID_PARAM');
2522: FND_MESSAGE.SET_TOKEN('PARAMETER', 'CU_QTY');
2523: FND_MESSAGE.SET_TOKEN('VALUE', px_activities_tbl(l_index).CU_QTY);
2524: FND_MSG_PUB.ADD;
2525: RAISE FND_API.G_EXC_ERROR;
2526: END IF;
2527: l_cu_qty := px_activities_tbl(l_index).CU_QTY;
2528:
2529: /*IF (px_activities_tbl(l_index).ACCT_CLASS_CODE IS NULL) THEN
2530: FND_MESSAGE.SET_NAME('EAM','EAM_EA_INVALID_PARAM');
2531: FND_MESSAGE.SET_TOKEN('PARAMETER', 'ACCT_CLASS_CODE');
2532: FND_MESSAGE.SET_TOKEN('VALUE', px_activities_tbl(l_index).ACCT_CLASS_CODE);
2533: FND_MSG_PUB.ADD;
2534: RAISE FND_API.G_EXC_ERROR;
2535: END IF;*/
2536: l_acct_class_code := px_activities_tbl(l_index).ACCT_CLASS_CODE;
2537:
2538: IF (px_activities_tbl(l_index).ACTIVITY_ID IS NULL) THEN
2539: FND_MESSAGE.SET_NAME('EAM','EAM_EA_INVALID_PARAM');
2540: FND_MESSAGE.SET_TOKEN('PARAMETER', 'ACTIVITY_ID');
2541: FND_MESSAGE.SET_TOKEN('VALUE', px_activities_tbl(l_index).ACTIVITY_ID);
2542: FND_MSG_PUB.ADD;
2543: RAISE FND_API.G_EXC_ERROR;
2544: END IF;
2545: l_activity_id := px_activities_tbl(l_index).ACTIVITY_ID;
2546:
2547: IF (px_activities_tbl(l_index).ACTIVITY_QTY IS NULL) THEN
2548: FND_MESSAGE.SET_NAME('EAM','EAM_EA_INVALID_PARAM');
2549: FND_MESSAGE.SET_TOKEN('PARAMETER', 'ACTIVITY_QTY');
2550: FND_MESSAGE.SET_TOKEN('VALUE', px_activities_tbl(l_index).ACTIVITY_QTY);
2551: FND_MSG_PUB.ADD;
2552: RAISE FND_API.G_EXC_ERROR;
2553: END IF;
2554: l_activity_qty := px_activities_tbl(l_index).ACTIVITY_QTY;
2555:
2558: IF (px_activities_tbl(l_index).RESOURCE_MULTIPLIER IS NULL) THEN
2559: FND_MESSAGE.SET_NAME('EAM','EAM_EA_INVALID_PARAM');
2560: FND_MESSAGE.SET_TOKEN('PARAMETER', 'RESOURCE_MULTIPLIER');
2561: FND_MESSAGE.SET_TOKEN('VALUE', px_activities_tbl(l_index).RESOURCE_MULTIPLIER);
2562: FND_MSG_PUB.ADD;
2563: RAISE FND_API.G_EXC_ERROR;
2564: END IF;
2565: l_resource_multiplier := px_activities_tbl(l_index).RESOURCE_MULTIPLIER;
2566: l_est_association_id := NULL;
2601: EXCEPTION
2602: WHEN FND_API.G_EXC_ERROR THEN
2603: ROLLBACK TO SET_ACTIVITIES_FOR_CE;
2604: x_return_status := FND_API.G_RET_STS_ERROR;
2605: FND_MSG_PUB.Count_And_Get(p_encoded => 'F',
2606: p_count => x_msg_count,
2607: p_data => x_msg_data);
2608: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2609: ROLLBACK TO SET_ACTIVITIES_FOR_CE;
2607: p_data => x_msg_data);
2608: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2609: ROLLBACK TO SET_ACTIVITIES_FOR_CE;
2610: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2611: FND_MSG_PUB.Count_And_Get(p_encoded => 'F',
2612: p_count => x_msg_count,
2613: p_data => x_msg_data);
2614: WHEN OTHERS THEN
2615: ROLLBACK TO SET_ACTIVITIES_FOR_CE;
2613: p_data => x_msg_data);
2614: WHEN OTHERS THEN
2615: ROLLBACK TO SET_ACTIVITIES_FOR_CE;
2616: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2617: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2618: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2619: END IF;
2620: FND_MSG_PUB.Count_And_Get(p_encoded => 'F',
2621: p_count => x_msg_count,
2614: WHEN OTHERS THEN
2615: ROLLBACK TO SET_ACTIVITIES_FOR_CE;
2616: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2617: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2618: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2619: END IF;
2620: FND_MSG_PUB.Count_And_Get(p_encoded => 'F',
2621: p_count => x_msg_count,
2622: p_data => x_msg_data);
2616: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2617: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2618: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2619: END IF;
2620: FND_MSG_PUB.Count_And_Get(p_encoded => 'F',
2621: p_count => x_msg_count,
2622: p_data => x_msg_data);
2623: END SET_ACTIVITIES_FOR_CE;
2624:
2938: ELSE
2939: --Unsupported group option
2940: FND_MESSAGE.SET_NAME('EAM','EAM_UNSUPPORTED_GROUP_OPTION');
2941: FND_MESSAGE.SET_TOKEN('OPTION', p_group_option);
2942: FND_MSG_PUB.ADD;
2943: RAISE FND_API.G_EXC_ERROR;
2944: END IF;
2945: END GET_CE_WO_LNS_BY_GROUP_OPT;
2946:
2998: AND p_group_option <> 'Construction Unit' THEN
2999: --Unsupported group option
3000: FND_MESSAGE.SET_NAME('EAM','EAM_UNSUPPORTED_GROUP_OPTION');
3001: FND_MESSAGE.SET_TOKEN('OPTION', p_group_option);
3002: FND_MSG_PUB.ADD;
3003: RAISE FND_API.G_EXC_ERROR;
3004: END IF;
3005: END IF;
3006: END LOOP;
3224: ELSE
3225: --Unsupported group option
3226: FND_MESSAGE.SET_NAME('EAM','EAM_UNSUPPORTED_GROUP_OPTION');
3227: FND_MESSAGE.SET_TOKEN('OPTION', p_group_option);
3228: FND_MSG_PUB.ADD;
3229: RAISE FND_API.G_EXC_ERROR;
3230: END IF;
3231: END LOOP;
3232: END IF;
3260: END IF;
3261:
3262: --Initialize message list if p_init_msg_list is set to TRUE.
3263: IF FND_API.TO_BOOLEAN(p_init_msg_list) THEN
3264: FND_MSG_PUB.INITIALIZE;
3265: END IF;
3266:
3267: --Initialize API return status to success
3268: x_return_status := FND_API.G_RET_STS_SUCCESS;
3311: WHEN OTHERS THEN
3312: --Unsupported group option
3313: FND_MESSAGE.SET_NAME('EAM','EAM_ERROR_DERIVE_GROUP_OPTION');
3314: FND_MESSAGE.SET_TOKEN('OPTION_ID', p_ce_wo_defaults.GROUPING_OPTION);
3315: FND_MSG_PUB.ADD;
3316: RAISE FND_API.G_EXC_ERROR;
3317: END;
3318:
3319: IF l_group_option = 'None'
3341: ELSE
3342: --Unsupported group option
3343: FND_MESSAGE.SET_NAME('EAM','EAM_UNSUPPORTED_GROUP_OPTION');
3344: FND_MESSAGE.SET_TOKEN('OPTION', l_group_option);
3345: FND_MSG_PUB.ADD;
3346: RAISE FND_API.G_EXC_ERROR;
3347: END IF;
3348:
3349: --Now update the wo lines
3431: EXCEPTION
3432: WHEN FND_API.G_EXC_ERROR THEN
3433: ROLLBACK TO UPDATE_CE_WO_LNS_BY_GROUP_OPT;
3434: x_return_status := FND_API.G_RET_STS_ERROR;
3435: FND_MSG_PUB.Count_And_Get(p_encoded => 'F',
3436: p_count => x_msg_count,
3437: p_data => x_msg_data);
3438: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3439: ROLLBACK TO UPDATE_CE_WO_LNS_BY_GROUP_OPT;
3437: p_data => x_msg_data);
3438: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3439: ROLLBACK TO UPDATE_CE_WO_LNS_BY_GROUP_OPT;
3440: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3441: FND_MSG_PUB.Count_And_Get(p_encoded => 'F',
3442: p_count => x_msg_count,
3443: p_data => x_msg_data);
3444: WHEN OTHERS THEN
3445: ROLLBACK TO UPDATE_CE_WO_LNS_BY_GROUP_OPT;
3443: p_data => x_msg_data);
3444: WHEN OTHERS THEN
3445: ROLLBACK TO UPDATE_CE_WO_LNS_BY_GROUP_OPT;
3446: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3447: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3448: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3449: END IF;
3450: FND_MSG_PUB.Count_And_Get(p_encoded => 'F',
3451: p_count => x_msg_count,
3444: WHEN OTHERS THEN
3445: ROLLBACK TO UPDATE_CE_WO_LNS_BY_GROUP_OPT;
3446: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3447: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3448: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3449: END IF;
3450: FND_MSG_PUB.Count_And_Get(p_encoded => 'F',
3451: p_count => x_msg_count,
3452: p_data => x_msg_data);
3446: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3447: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3448: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3449: END IF;
3450: FND_MSG_PUB.Count_And_Get(p_encoded => 'F',
3451: p_count => x_msg_count,
3452: p_data => x_msg_data);
3453: END UPDATE_CE_WO_LNS_BY_GROUP_OPT;
3454:
3620: -- Initialize message list if p_init_msg_list is set to TRUE
3621: -------------------------------------------------------------------------
3622: --dbms_output.put_line('2');
3623: IF FND_API.to_Boolean(p_init_msg_list) THEN
3624: FND_MSG_PUB.initialize;
3625: END IF;
3626:
3627:
3628: -------------------------------------------------------------------------
3848: --EAM_CONSTRUCTION_MESSAGE_PVT.debug(l_msg_data);
3849: l_api_message := 'Populate_WO returned error';
3850: --FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
3851: FND_MESSAGE.set_token('TEXT', l_api_message);
3852: FND_MSG_pub.add;
3853: RAISE FND_API.g_exc_error;
3854: END IF;
3855:
3856: l_eam_wo_tbl(1) := l_eam_wo_rec;
3986: --EAM_CONSTRUCTION_MESSAGE_PVT.debug(l_msg_data);
3987: l_api_message := 'Populate_WO returned error';
3988: --FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
3989: FND_MESSAGE.set_token('TEXT', l_api_message);
3990: FND_MSG_pub.add;
3991: RAISE FND_API.g_exc_error;
3992: END IF;
3993:
3994:
4038: --EAM_CONSTRUCTION_MESSAGE_PVT.debug(l_msg_data);
4039: l_api_message := 'POPULATE_OPERATION returned error';
4040: --FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
4041: FND_MESSAGE.set_token('TEXT', l_api_message);
4042: FND_MSG_pub.add;
4043: RAISE FND_API.g_exc_error;
4044: END IF;
4045:
4046:
4073: --EAM_CONSTRUCTION_MESSAGE_PVT.debug(l_msg_data);
4074: l_api_message := 'POPULATE_RESOURCE returned error';
4075: --FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
4076: FND_MESSAGE.set_token('TEXT', l_api_message);
4077: FND_MSG_pub.add;
4078: RAISE FND_API.g_exc_error;
4079: END IF;
4080:
4081:
4108: --EAM_CONSTRUCTION_MESSAGE_PVT.debug(l_msg_data);
4109: l_api_message := 'POPULATE_MATERIAL returned error';
4110: --FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
4111: FND_MESSAGE.set_token('TEXT', l_api_message);
4112: FND_MSG_pub.add;
4113: RAISE FND_API.g_exc_error;
4114: END IF;
4115:
4116:
4143: --EAM_CONSTRUCTION_MESSAGE_PVT.debug(l_msg_data);
4144: l_api_message := 'POPULATE_MATERIAL returned error';
4145: --FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
4146: FND_MESSAGE.set_token('TEXT', l_api_message);
4147: FND_MSG_pub.add;
4148: RAISE FND_API.g_exc_error;
4149: END IF;
4150:
4151:
4253: x_return_status := fnd_api.g_ret_sts_error;
4254: --dbms_output.put_line('exzc');
4255:
4256: -- Get message count and data
4257: fnd_msg_pub.count_and_get
4258: ( p_count => x_msg_count
4259: , p_data => x_msg_data
4260: );
4261: --
4264: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4265: --dbms_output.put_line('unex');
4266:
4267: -- Get message count and data
4268: fnd_msg_pub.count_and_get
4269: ( p_count => x_msg_count
4270: , p_data => x_msg_data
4271: );
4272: --
4274: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4275: --dbms_output.put_line('others' || l_stmt_num);
4276: --
4277: ROLLBACK TO CREATE_CU_WORKORDERS;
4278: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
4279: THEN
4280: fnd_msg_pub.add_exc_msg
4281: ( 'EAM_CONSTRUCTION_EST_PVT'
4282: , 'Create_CU_Workorders : l_stmt_num - '||to_char(l_stmt_num)
4276: --
4277: ROLLBACK TO CREATE_CU_WORKORDERS;
4278: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
4279: THEN
4280: fnd_msg_pub.add_exc_msg
4281: ( 'EAM_CONSTRUCTION_EST_PVT'
4282: , 'Create_CU_Workorders : l_stmt_num - '||to_char(l_stmt_num)
4283: );
4284:
4283: );
4284:
4285: END IF;
4286: -- Get message count and data
4287: fnd_msg_pub.count_and_get
4288: ( p_count => x_msg_count
4289: , p_data => x_msg_data
4290: );
4291: END CREATE_CU_WORKORDERS;
4312:
4313: x_return_status := fnd_api.g_ret_sts_success;
4314:
4315: IF fnd_api.to_Boolean(p_init_msg_list) then
4316: fnd_msg_pub.initialize;
4317: end if;
4318:
4319: /* Is this the parent WO record */
4320: /* Not a parent WO record */
4412: l_stmt_num := 80;
4413: x_eam_wo_rec := l_eam_wo_rec;
4414:
4415: -- Standard Call to get message count and if count = 1, get message info
4416: FND_MSG_PUB.Count_And_Get (
4417: p_count => x_msg_count,
4418: p_data => x_msg_data );
4419:
4420: -- Print messages to log file
4424: WHEN fnd_api.g_exc_error THEN
4425: x_return_status := fnd_api.g_ret_sts_error;
4426:
4427: -- Get message count and data
4428: fnd_msg_pub.count_and_get
4429: ( p_count => x_msg_count
4430: , p_data => x_msg_data
4431: );
4432:
4433: WHEN fnd_api.g_exc_unexpected_error THEN
4434: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4435:
4436: -- Get message count and data
4437: fnd_msg_pub.count_and_get
4438: ( p_count => x_msg_count
4439: , p_data => x_msg_data
4440: );
4441: --
4440: );
4441: --
4442: WHEN OTHERS THEN
4443: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4444: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
4445: THEN
4446: fnd_msg_pub.add_exc_msg
4447: ( 'EAM_CONSTRUCTION_EST_PVT'
4448: , 'Populate_WO : Statement - '|| to_char(l_stmt_num)
4442: WHEN OTHERS THEN
4443: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4444: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
4445: THEN
4446: fnd_msg_pub.add_exc_msg
4447: ( 'EAM_CONSTRUCTION_EST_PVT'
4448: , 'Populate_WO : Statement - '|| to_char(l_stmt_num)
4449: );
4450:
4450:
4451: END IF;
4452:
4453: -- Get message count and data
4454: fnd_msg_pub.count_and_get
4455: ( p_count => x_msg_count
4456: , p_data => x_msg_data
4457: );
4458:
4472: l_stmt_num NUMBER := 0;
4473: BEGIN
4474:
4475: IF fnd_api.to_Boolean(p_init_msg_list) then
4476: fnd_msg_pub.initialize;
4477: end if;
4478:
4479: x_return_status := fnd_api.g_ret_sts_success;
4480:
4496: x_eam_op_rec := l_eam_op_rec;
4497:
4498:
4499: -- Standard Call to get message count and if count = 1, get message info
4500: FND_MSG_PUB.Count_And_Get (
4501: p_count => x_msg_count,
4502: p_data => x_msg_data );
4503:
4504: -- Print messages to log file
4508: WHEN fnd_api.g_exc_error THEN
4509: x_return_status := fnd_api.g_ret_sts_error;
4510:
4511: -- Get message count and data
4512: fnd_msg_pub.count_and_get
4513: ( p_count => x_msg_count
4514: , p_data => x_msg_data
4515: );
4516:
4517: WHEN fnd_api.g_exc_unexpected_error THEN
4518: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4519:
4520: -- Get message count and data
4521: fnd_msg_pub.count_and_get
4522: ( p_count => x_msg_count
4523: , p_data => x_msg_data
4524: );
4525: --
4525: --
4526: WHEN OTHERS THEN
4527: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4528: --EAM_CONSTRUCTION_MESSAGE_PVT.DEBUG('EAM_CONSTRUCTION_EST_PVT.POPULATE_OPERATION: Statement(' || to_char(l_stmt_num) || '): ' || substr(SQLERRM,1,240));
4529: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
4530: THEN
4531: fnd_msg_pub.add_exc_msg
4532: ( 'EAM_CONSTRUCTION_EST_PVT'
4533: , 'Populate_WO : Statement - '|| to_char(l_stmt_num)
4527: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4528: --EAM_CONSTRUCTION_MESSAGE_PVT.DEBUG('EAM_CONSTRUCTION_EST_PVT.POPULATE_OPERATION: Statement(' || to_char(l_stmt_num) || '): ' || substr(SQLERRM,1,240));
4529: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
4530: THEN
4531: fnd_msg_pub.add_exc_msg
4532: ( 'EAM_CONSTRUCTION_EST_PVT'
4533: , 'Populate_WO : Statement - '|| to_char(l_stmt_num)
4534: );
4535:
4535:
4536: END IF;
4537:
4538: -- Get message count and data
4539: fnd_msg_pub.count_and_get
4540: ( p_count => x_msg_count
4541: , p_data => x_msg_data
4542: );
4543:
4557: l_autocharge NUMBER;
4558: BEGIN
4559:
4560: IF fnd_api.to_Boolean(p_init_msg_list) then
4561: fnd_msg_pub.initialize;
4562: end if;
4563:
4564: x_return_status := fnd_api.g_ret_sts_success;
4565:
4605:
4606: x_eam_res_rec := l_eam_res_rec;
4607:
4608: -- Standard Call to get message count and if count = 1, get message info
4609: FND_MSG_PUB.Count_And_Get (
4610: p_count => x_msg_count,
4611: p_data => x_msg_data );
4612:
4613: -- Print messages to log file
4617: WHEN fnd_api.g_exc_error THEN
4618: x_return_status := fnd_api.g_ret_sts_error;
4619:
4620: -- Get message count and data
4621: fnd_msg_pub.count_and_get
4622: ( p_count => x_msg_count
4623: , p_data => x_msg_data
4624: );
4625:
4626: WHEN fnd_api.g_exc_unexpected_error THEN
4627: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4628:
4629: -- Get message count and data
4630: fnd_msg_pub.count_and_get
4631: ( p_count => x_msg_count
4632: , p_data => x_msg_data
4633: );
4634: --
4634: --
4635: WHEN OTHERS THEN
4636: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4637: --EAM_CONSTRUCTION_MESSAGE_PVT.DEBUG('EAM_CONSTRUCTION_EST_PVT.POPULATE_RESOURCE: Statement(' || to_char(l_stmt_num) || '): ' || substr(SQLERRM,1,240));
4638: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
4639: THEN
4640: fnd_msg_pub.add_exc_msg
4641: ( 'EAM_CONSTRUCTION_EST_PVT'
4642: , 'POPULATE_RESOURCE : Statement - '|| to_char(l_stmt_num)
4636: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4637: --EAM_CONSTRUCTION_MESSAGE_PVT.DEBUG('EAM_CONSTRUCTION_EST_PVT.POPULATE_RESOURCE: Statement(' || to_char(l_stmt_num) || '): ' || substr(SQLERRM,1,240));
4638: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
4639: THEN
4640: fnd_msg_pub.add_exc_msg
4641: ( 'EAM_CONSTRUCTION_EST_PVT'
4642: , 'POPULATE_RESOURCE : Statement - '|| to_char(l_stmt_num)
4643: );
4644:
4644:
4645: END IF;
4646:
4647: -- Get message count and data
4648: fnd_msg_pub.count_and_get
4649: ( p_count => x_msg_count
4650: , p_data => x_msg_data
4651: );
4652:
4667: l_stmt_num NUMBER := 0;
4668: BEGIN
4669:
4670: IF fnd_api.to_Boolean(p_init_msg_list) then
4671: fnd_msg_pub.initialize;
4672: end if;
4673:
4674: x_return_status := fnd_api.g_ret_sts_success;
4675:
4716: x_eam_mat_rec := l_eam_mat_rec;
4717: x_eam_direct_rec := l_eam_direct_rec;
4718:
4719: -- Standard Call to get message count and if count = 1, get message info
4720: FND_MSG_PUB.Count_And_Get (
4721: p_count => x_msg_count,
4722: p_data => x_msg_data );
4723:
4724: -- Print messages to log file
4728: WHEN fnd_api.g_exc_error THEN
4729: x_return_status := fnd_api.g_ret_sts_error;
4730:
4731: -- Get message count and data
4732: fnd_msg_pub.count_and_get
4733: ( p_count => x_msg_count
4734: , p_data => x_msg_data
4735: );
4736:
4737: WHEN fnd_api.g_exc_unexpected_error THEN
4738: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4739:
4740: -- Get message count and data
4741: fnd_msg_pub.count_and_get
4742: ( p_count => x_msg_count
4743: , p_data => x_msg_data
4744: );
4745: --
4745: --
4746: WHEN OTHERS THEN
4747: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4748: --EAM_CONSTRUCTION_MESSAGE_PVT.DEBUG('EAM_CONSTRUCTION_EST_PVT.POPULATE_RESOURCE: Statement(' || to_char(l_stmt_num) || '): ' || substr(SQLERRM,1,240));
4749: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
4750: THEN
4751: fnd_msg_pub.add_exc_msg
4752: ( 'EAM_CONSTRUCTION_EST_PVT'
4753: , 'POPULATE_RESOURCE : Statement - '|| to_char(l_stmt_num)
4747: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4748: --EAM_CONSTRUCTION_MESSAGE_PVT.DEBUG('EAM_CONSTRUCTION_EST_PVT.POPULATE_RESOURCE: Statement(' || to_char(l_stmt_num) || '): ' || substr(SQLERRM,1,240));
4749: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
4750: THEN
4751: fnd_msg_pub.add_exc_msg
4752: ( 'EAM_CONSTRUCTION_EST_PVT'
4753: , 'POPULATE_RESOURCE : Statement - '|| to_char(l_stmt_num)
4754: );
4755:
4755:
4756: END IF;
4757:
4758: -- Get message count and data
4759: fnd_msg_pub.count_and_get
4760: ( p_count => x_msg_count
4761: , p_data => x_msg_data
4762: );
4763:
4812: IF (p_org_id IS NULL) THEN
4813: FND_MESSAGE.SET_NAME('EAM','EAM_EA_INVALID_PARAM');
4814: FND_MESSAGE.SET_TOKEN('PARAMETER', 'ORGANIZATION_ID');
4815: FND_MESSAGE.SET_TOKEN('VALUE', p_org_id);
4816: FND_MSG_PUB.ADD;
4817: RAISE FND_API.G_EXC_ERROR;
4818: END IF;
4819:
4820: IF (p_src_estimate_id IS NULL) THEN
4820: IF (p_src_estimate_id IS NULL) THEN
4821: FND_MESSAGE.SET_NAME('EAM','EAM_EA_INVALID_PARAM');
4822: FND_MESSAGE.SET_TOKEN('PARAMETER', 'ESTIMATE_ID');
4823: FND_MESSAGE.SET_TOKEN('VALUE', p_src_estimate_id);
4824: FND_MSG_PUB.ADD;
4825: RAISE FND_API.G_EXC_ERROR;
4826: END IF;
4827:
4828: -- Fetch the Estimates Cursor
5117: EXCEPTION
5118: WHEN FND_API.G_EXC_ERROR THEN
5119: ROLLBACK TO COPY_EST_WORKBENCH;
5120: x_return_status := FND_API.G_RET_STS_ERROR;
5121: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
5122: p_data => x_msg_data);
5123: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5124: ROLLBACK TO COPY_EST_WORKBENCH;
5125:
5123: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5124: ROLLBACK TO COPY_EST_WORKBENCH;
5125:
5126: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5127: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
5128: p_data => x_msg_data);
5129: WHEN OTHERS THEN
5130: ROLLBACK TO COPY_EST_WORKBENCH;
5131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5128: p_data => x_msg_data);
5129: WHEN OTHERS THEN
5130: ROLLBACK TO COPY_EST_WORKBENCH;
5131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5132: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5133: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'COPY_EST_WORKBENCH');
5134: END IF;
5135: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
5136: p_data => x_msg_data);
5129: WHEN OTHERS THEN
5130: ROLLBACK TO COPY_EST_WORKBENCH;
5131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5132: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5133: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'COPY_EST_WORKBENCH');
5134: END IF;
5135: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
5136: p_data => x_msg_data);
5137: END COPY_EST_WORKBENCH;
5131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5132: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5133: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'COPY_EST_WORKBENCH');
5134: END IF;
5135: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
5136: p_data => x_msg_data);
5137: END COPY_EST_WORKBENCH;
5138:
5139: End EAM_CONSTRUCTION_EST_PVT;