[Home] [Help]
125: -- Check if a value is passed in p_object_id
126: IF ( p_object_id = FND_API.G_MISS_NUM OR
127: p_object_id IS NULL ) THEN
128: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_OBJECT_ID_NULL' );
129: FND_MSG_PUB.add;
130: x_return_status := FND_API.G_RET_STS_ERROR;
131: RETURN;
132: END IF;
133:
134: -- Check if a value is passed in p_association_type
135: IF ( p_association_type = FND_API.G_MISS_CHAR OR
136: p_association_type IS NULL ) THEN
137: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ASSOC_TYPE_NULL' );
138: FND_MSG_PUB.add;
139: x_return_status := FND_API.G_RET_STS_ERROR;
140: RETURN;
141: END IF;
142:
145: p_association_type <> 'OPERATION' AND
146: p_association_type <> 'DISPOSITION' ) THEN
147: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ASSOC_TYPE_INVALID' );
148: FND_MESSAGE.set_token( 'FIELD', p_association_type );
149: FND_MSG_PUB.add;
150: x_return_status := FND_API.G_RET_STS_ERROR;
151: RETURN;
152: END IF;
153:
176: END IF;
177:
178: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
179: FND_MESSAGE.set_name( 'AHL', l_msg_data );
180: FND_MSG_PUB.add;
181: x_return_status := l_return_status;
182: RETURN;
183: END IF;
184:
185: -- Check if atleast one record is passed in p_material_req_tbl
186: IF ( p_material_req_tbl.count < 1 ) THEN
187: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
188: FND_MESSAGE.set_token( 'PROCEDURE', G_PKG_NAME || '.' || G_API_NAME );
189: FND_MSG_PUB.add;
190: x_return_status := FND_API.G_RET_STS_ERROR;
191: RETURN;
192: END IF;
193:
198: p_material_req_tbl(i).dml_operation <> 'C' ) THEN
199: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_DML' );
200: FND_MESSAGE.set_token( 'FIELD', p_material_req_tbl(i).dml_operation );
201: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_tbl(i) ) );
202: FND_MSG_PUB.add;
203: x_return_status := FND_API.G_RET_STS_ERROR;
204: RETURN;
205: END IF;
206: END LOOP;
225: -- Check if a valid value is passed in p_rt_oper_resource_id
226: IF ( p_object_id = FND_API.G_MISS_NUM OR
227: p_object_id IS NULL ) THEN
228: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_efct_OBJECT_NULL' );
229: FND_MSG_PUB.add;
230: x_return_status := FND_API.G_RET_STS_ERROR;
231: RAISE FND_API.G_EXC_ERROR;
232: END IF;
233:
238: x_msg_data => l_msg_data
239: );
240: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
241: FND_MESSAGE.set_name( 'AHL', l_msg_data );
242: FND_MSG_PUB.add;
243: x_return_status := FND_API.G_RET_STS_ERROR;
244: RETURN;
245: END IF;
246:
248: -- Check if at least one record is passed in p_rt_oper_resource_tbl
249: IF ( p_route_efct_tbl.count < 1 ) THEN
250: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
251: FND_MESSAGE.set_token( 'PROCEDURE', G_PKG_NAME || '.' || G_API_NAME1 );
252: FND_MSG_PUB.add;
253: x_return_status := FND_API.G_RET_STS_ERROR;
254: RETURN;
255: END IF;
256:
261: p_route_efct_tbl(i).dml_operation <> 'D' ) THEN
262: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_DML' );
263: FND_MESSAGE.set_token( 'FIELD', p_route_efct_tbl(i).dml_operation );
264: -- FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_route_efct_tbl(i) ) );
265: FND_MSG_PUB.add;
266: x_return_status := FND_API.G_RET_STS_ERROR;
267: RETURN;
268: END IF;
269: END LOOP;
407: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
408: FND_MESSAGE.set_name( 'AHL', l_msg_data );
409: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_x_material_req_rec.item_comp_detail_id ) );
410: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_material_req_rec ) );
411: FND_MSG_PUB.add;
412: x_return_status := l_return_status;
413: END IF;
414:
415: END IF;
439: FND_MESSAGE.set_token( 'FIELD', p_x_material_req_rec.position_path );
440: END IF;
441:
442: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_material_req_rec ) );
443: FND_MSG_PUB.add;
444: x_return_status := l_return_status;
445: END IF;
446:
447: END IF;
472: FND_MESSAGE.set_token( 'FIELD', p_x_material_req_rec.item_group_name );
473: END IF;
474:
475: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_material_req_rec ) );
476: FND_MSG_PUB.add;
477: x_return_status := l_return_status;
478: END IF;
479:
480: --Check if the item group is from composition and is a valid composition element if
497: p_x_material_req_rec.item_comp_detail_id := l_item_comp_detail_id;
498: ELSE
499: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INV_ITEM_COMP_MAT' );
500: FND_MESSAGE.set_token( 'FIELD',p_x_material_req_rec.item_group_name);
501: FND_MSG_PUB.add;
502: x_return_status := FND_API.G_RET_STS_ERROR;
503: END IF; -- l_item_comp_detail_id is null
504: END IF; -- which association if
505: END IF;-- comp_material_flag check if
553: FND_MESSAGE.set_token( 'FIELD', p_x_material_req_rec.item_number );
554: END IF;
555:
556: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_material_req_rec ) );
557: FND_MSG_PUB.add;
558: x_return_status := l_return_status;
559: END IF;
560:
561: END IF;
584: FND_MESSAGE.set_token( 'FIELD', p_x_material_req_rec.uom );
585: END IF;
586:
587: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_material_req_rec ) );
588: FND_MSG_PUB.add;
589: x_return_status := l_return_status;
590: END IF;
591:
592: END IF;
634: FND_MESSAGE.set_token( 'FIELD', p_x_route_efct_rec.MC_NAME );
635: END IF;
636:
637: -- FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_material_req_rec(i) ) );
638: FND_MSG_PUB.add;
639: x_return_status := l_return_status;
640: END IF;
641:
642: END IF;
679: FND_MESSAGE.set_token( 'FIELD', p_x_route_efct_rec.item_number );
680: END IF;
681:
682: -- FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_material_req_rec ) );
683: FND_MSG_PUB.add;
684: x_return_status := l_return_status;
685: END IF;
686:
687: END IF;
1019:
1020: IF get_old_rec%NOTFOUND THEN
1021: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_MTL_REC' );
1022: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_material_req_rec ) );
1023: FND_MSG_PUB.add;
1024: CLOSE get_old_rec;
1025: RAISE FND_API.G_EXC_ERROR;
1026: END IF;
1027:
1293:
1294: IF get_old_rec%NOTFOUND THEN
1295: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_efct_REC' );
1296: -- FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_route_efct_rec ) );
1297: FND_MSG_PUB.add;
1298: CLOSE get_old_rec;
1299: RAISE FND_API.G_EXC_ERROR;
1300: END IF;
1301:
1488: ELSE
1489: FND_MESSAGE.set_name( 'AHL','AHL_RM_MTL_QTY_NULL' );
1490: END IF;
1491: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1492: FND_MSG_PUB.add;
1493: x_return_status := FND_API.G_RET_STS_ERROR;
1494: ELSIF ( p_material_req_rec.dml_operation <> 'D' AND
1495: p_material_req_rec.quantity <= 0 ) THEN
1496: FND_MESSAGE.set_name( 'AHL','AHL_RM_MTL_QTY_LESS_ZERO' );
1494: ELSIF ( p_material_req_rec.dml_operation <> 'D' AND
1495: p_material_req_rec.quantity <= 0 ) THEN
1496: FND_MESSAGE.set_name( 'AHL','AHL_RM_MTL_QTY_LESS_ZERO' );
1497: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1498: FND_MSG_PUB.add;
1499: x_return_status := FND_API.G_RET_STS_ERROR;
1500: ELSIF ( p_material_req_rec.dml_operation <> 'D' AND
1501: p_association_type = 'DISPOSITION'
1502: AND
1504: AND
1505: (p_material_req_rec.quantity IS NULL OR p_material_req_rec.quantity = FND_API.G_MISS_NUM) ) THEN
1506: FND_MESSAGE.set_name( 'AHL','AHL_RM_DISP_ITEM_QTY_NULL' );
1507: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1508: FND_MSG_PUB.add;
1509: x_return_status := FND_API.G_RET_STS_ERROR;
1510: END IF;
1511:
1512: -- Check if the UOM not column contains a null value.
1518: p_material_req_rec.uom_code = FND_API.G_MISS_CHAR ) )
1519: THEN
1520: FND_MESSAGE.set_name( 'AHL','AHL_RM_UOM_NULL' );
1521: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1522: FND_MSG_PUB.add;
1523: x_return_status := FND_API.G_RET_STS_ERROR;
1524: /*
1525: ELSIF
1526: p_material_req_rec.dml_operation <> 'D'
1536: )
1537: THEN
1538: FND_MESSAGE.set_name( 'AHL','AHL_RM_UOM_NULL' );
1539: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1540: FND_MSG_PUB.add;
1541: x_return_status := FND_API.G_RET_STS_ERROR;
1542: */
1543: END IF;
1544:
1560: THEN
1561: FND_MESSAGE.set_name( 'AHL','AHL_RM_DISP_REPLACE_INVALID' );
1562: FND_MESSAGE.set_name( 'AHL','AHL_RM_DISP_REWORK_INVALID' );
1563: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1564: FND_MSG_PUB.add;
1565: x_return_status := FND_API.G_RET_STS_ERROR;
1566: END IF ;
1567:
1568: -- Check if the mandatory Replace column contains a null value.
1573: )
1574: THEN
1575: FND_MESSAGE.set_name( 'AHL','AHL_RM_DISP_REPLACE_NULL' );
1576: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1577: FND_MSG_PUB.add;
1578: x_return_status := FND_API.G_RET_STS_ERROR;
1579:
1580: ELSIF ( p_association_type = 'DISPOSITION' AND
1581: p_material_req_rec.dml_operation <> 'D' AND
1583: )
1584: THEN
1585: FND_MESSAGE.set_name( 'AHL','AHL_RM_DISP_REPLACE_INVALID' );
1586: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1587: FND_MSG_PUB.add;
1588: x_return_status := FND_API.G_RET_STS_ERROR;
1589:
1590: END IF;
1591:
1617: )
1618: THEN
1619: FND_MESSAGE.set_name( 'AHL','AHL_RM_DISP_REWORK_NULL' );
1620: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1621: FND_MSG_PUB.add;
1622: x_return_status := FND_API.G_RET_STS_ERROR;
1623: ELSIF ( p_association_type = 'DISPOSITION' AND
1624: p_material_req_rec.dml_operation <> 'D'
1625: AND
1635: )
1636: THEN
1637: FND_MESSAGE.set_name( 'AHL','AHL_RM_DISP_REWORK_INVALID' );
1638: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1639: FND_MSG_PUB.add;
1640: x_return_status := FND_API.G_RET_STS_ERROR;
1641:
1642: END IF;
1643: -- if item group then rework percent should not be allowed to be entered.
1667: )
1668: THEN
1669: FND_MESSAGE.set_name( 'AHL','AHL_RM_DISP_REWORK_NOT_REQ' );
1670: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1671: FND_MSG_PUB.add;
1672: x_return_status := FND_API.G_RET_STS_ERROR;
1673: END IF;
1674:
1675:
1681: IF ( p_material_req_rec.rt_oper_material_id IS NULL OR
1682: p_material_req_rec.rt_oper_material_id = FND_API.G_MISS_NUM ) THEN
1683: FND_MESSAGE.set_name( 'AHL','AHL_RM_MTL_ID_NULL' );
1684: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1685: FND_MSG_PUB.add;
1686: x_return_status := FND_API.G_RET_STS_ERROR;
1687: RETURN;
1688: END IF;
1689:
1691: IF ( p_material_req_rec.object_version_number IS NULL OR
1692: p_material_req_rec.object_version_number = FND_API.G_MISS_NUM ) THEN
1693: FND_MESSAGE.set_name( 'AHL','AHL_RM_MTL_OBJ_VERSION_NULL' );
1694: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1695: FND_MSG_PUB.add;
1696: x_return_status := FND_API.G_RET_STS_ERROR;
1697: RETURN;
1698: END IF;
1699:
1721: IF ( p_route_efct_rec.ROUTE_EFFECTIVITY_ID IS NULL OR
1722: p_route_efct_rec.ROUTE_EFFECTIVITY_ID = FND_API.G_MISS_NUM ) THEN
1723: FND_MESSAGE.set_name( 'AHL','AHL_RM_efct_ID_NULL' );
1724: -- FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1725: FND_MSG_PUB.add;
1726: x_return_status := FND_API.G_RET_STS_ERROR;
1727: RETURN;
1728: END IF;
1729:
1731: IF ( p_route_efct_rec.object_version_number IS NULL OR
1732: p_route_efct_rec.object_version_number = FND_API.G_MISS_NUM ) THEN
1733: FND_MESSAGE.set_name( 'AHL','AHL_RM_efct_OBJ_VERSION_NULL' );
1734: -- FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1735: FND_MSG_PUB.add;
1736: x_return_status := FND_API.G_RET_STS_ERROR;
1737: RETURN;
1738: END IF;
1739:
1762: p_material_req_rec.inventory_org_id IS NULL AND
1763: p_material_req_rec.item_number IS NULL ) THEN
1764: FND_MESSAGE.set_name( 'AHL','AHL_RM_ITEMGRP_ITEM_NULL' );
1765: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1766: FND_MSG_PUB.add;
1767: x_return_status := FND_API.G_RET_STS_ERROR;
1768: END IF;
1769:
1770: -- Check if both Item Group and Item contain values
1776: ( p_material_req_rec.item_group_id IS NOT NULL OR
1777: p_material_req_rec.item_group_name IS NOT NULL ) ) THEN
1778: FND_MESSAGE.set_name( 'AHL','AHL_RM_ITEMGRP_ITEM_NOTNULL' );
1779: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1780: FND_MSG_PUB.add;
1781: x_return_status := FND_API.G_RET_STS_ERROR;
1782: END IF;
1783:
1784: -- Check if the given UOM is valid for the given Item
1815: FND_MESSAGE.set_token( 'FIELD2', TO_CHAR( p_material_req_rec.item_group_id ) );
1816: END IF;
1817:
1818: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1819: FND_MSG_PUB.add;
1820: x_return_status := l_return_status;
1821: END IF;
1822:
1823: END IF;
1845: p_route_efct_rec.inventory_master_org_id IS NULL AND
1846: p_route_efct_rec.item_number IS NULL ) THEN
1847: FND_MESSAGE.set_name( 'AHL','AHL_RM_EFCT_ITEM_NULL' );
1848: -- FND_MESSAGE.set_token( 'RECORD', get_effct_identifier( p_route_efct_rec ) );
1849: FND_MSG_PUB.add;
1850: x_return_status := FND_API.G_RET_STS_ERROR;
1851: END IF;
1852:
1853: -- Check if both MC and Item contain values
1864: ) )
1865: THEN
1866: FND_MESSAGE.set_name( 'AHL','AHL_RM_efct_ITEM_NOTNULL' );
1867: FND_MESSAGE.set_token( 'RECORD', get_effct_identifier( p_route_efct_rec ) );
1868: FND_MSG_PUB.add;
1869: x_return_status := FND_API.G_RET_STS_ERROR;
1870: END IF;
1871:
1872: -- Check if both Org and Item contain values
1875: )
1876: THEN
1877: FND_MESSAGE.set_name( 'AHL','AHL_RM_efct_ITEM_ORG_NOTNULL' );
1878: -- FND_MESSAGE.set_token( 'RECORD', get_effct_identifier( p_route_efct_rec ) );
1879: FND_MSG_PUB.add;
1880: x_return_status := FND_API.G_RET_STS_ERROR;
1881: END IF;
1882:
1883:
1954: EXIT WHEN get_dup_rec%NOTFOUND;
1955:
1956: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_MATERIAL_REQ_REC_DUP' );
1957: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( l_material_req_rec ) );
1958: FND_MSG_PUB.add;
1959:
1960: END LOOP;
1961:
1962: IF ( get_dup_rec%ROWCOUNT > 0 ) THEN
2090: --END
2091: IF ( get_dup_rec%FOUND ) THEN
2092: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_route_efct_REC_DUP' );
2093: FND_MESSAGE.set_token( 'RECORD', get_effct_identifier( l_route_efct_req_rec ) );
2094: FND_MSG_PUB.add;
2095: END IF ;
2096: END LOOP;
2097:
2098: IF ( get_dup_rec%ROWCOUNT > 0 ) THEN
2174: END IF;
2175:
2176: -- Initialize message list if p_init_msg_list is set to TRUE.
2177: IF FND_API.to_boolean( p_init_msg_list ) THEN
2178: FND_MSG_PUB.initialize;
2179: END IF;
2180:
2181: -- Enable Debug (optional)
2182: IF ( G_DEBUG = 'Y' ) THEN
2322: END IF;
2323: END LOOP;
2324:
2325: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
2326: l_msg_count := FND_MSG_PUB.count_msg;
2327: IF l_msg_count > 0 THEN
2328: x_msg_count := l_msg_count;
2329: RAISE FND_API.G_EXC_ERROR;
2330: END IF;
2346: );
2347:
2348: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2349: FND_MESSAGE.SET_NAME('AHL',l_msg_data);
2350: FND_MSG_PUB.ADD;
2351: x_return_status := l_return_status;
2352: RETURN;
2353: END IF;
2354:
2369: FETCH get_efct_rec INTO l_dummy_number;
2370: IF get_efct_rec%NOTFOUND
2371: THEN
2372: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_efct_REC' );
2373: FND_MSG_PUB.add;
2374: CLOSE get_efct_rec;
2375: RAISE FND_API.G_EXC_ERROR;
2376: END IF;
2377: CLOSE get_efct_rec;
2385: );
2386:
2387: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2388: FND_MESSAGE.SET_NAME('AHL',l_msg_data);
2389: FND_MSG_PUB.ADD;
2390: x_return_status := l_return_status;
2391: RETURN;
2392: END IF;
2393:
2413: );
2414:
2415: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2416: FND_MESSAGE.SET_NAME('AHL',l_msg_data);
2417: FND_MSG_PUB.ADD;
2418: x_return_status := l_return_status;
2419: RETURN;
2420: END IF;
2421:
2432: END IF ;
2433:
2434:
2435: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
2436: l_msg_count := FND_MSG_PUB.count_msg;
2437: IF l_msg_count > 0 THEN
2438: x_msg_count := l_msg_count;
2439: RAISE FND_API.G_EXC_ERROR;
2440: END IF;
2558: WHEN OTHERS THEN
2559: IF ( SQLCODE = -1 ) THEN
2560: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_MATERIAL_REQ_REC_DUP' );
2561: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_material_req_tbl(i) ) );
2562: FND_MSG_PUB.add;
2563: ELSE
2564: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
2565: THEN
2566: fnd_log.string
2615: -- If the record does not exist, then, abort API.
2616: IF ( SQL%ROWCOUNT = 0 ) THEN
2617: FND_MESSAGE.set_name('AHL','AHL_RM_RECORD_CHANGED');
2618: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_material_req_tbl(i) ) );
2619: FND_MSG_PUB.add;
2620: RAISE FND_API.G_EXC_ERROR;
2621: END IF;
2622:
2623: -- Set OUT values
2627: WHEN OTHERS THEN
2628: IF ( SQLCODE = -1 ) THEN
2629: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_MATERIAL_REQ_REC_DUP' );
2630: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_material_req_tbl(i) ) );
2631: FND_MSG_PUB.add;
2632: RAISE FND_API.G_EXC_ERROR;
2633: ELSE
2634: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
2635: THEN
2653: -- If the record does not exist, then, abort API.
2654: IF ( SQL%ROWCOUNT = 0 ) THEN
2655: FND_MESSAGE.set_name('AHL','AHL_RM_RECORD_CHANGED');
2656: FND_MESSAGE.set_token( 'RECORD', TO_CHAR( i ) );
2657: FND_MSG_PUB.add;
2658: RAISE FND_API.G_EXC_ERROR;
2659: END IF;
2660:
2661: END IF;
2666: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || G_API_NAME || ' : after DML operation' );
2667: END IF;
2668:
2669: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
2670: l_msg_count := FND_MSG_PUB.count_msg;
2671: IF l_msg_count > 0 THEN
2672: x_msg_count := l_msg_count;
2673: RAISE FND_API.G_EXC_ERROR;
2674: END IF;
2696: COMMIT WORK;
2697: END IF;
2698:
2699: -- Count and Get messages (optional)
2700: FND_MSG_PUB.count_and_get
2701: (
2702: p_encoded => FND_API.G_FALSE,
2703: p_count => x_msg_count,
2704: p_data => x_msg_data
2713:
2714: WHEN FND_API.G_EXC_ERROR THEN
2715: ROLLBACK TO process_material_req_PVT;
2716: x_return_status := FND_API.G_RET_STS_ERROR ;
2717: FND_MSG_PUB.count_and_get
2718: (
2719: p_encoded => FND_API.G_FALSE,
2720: p_count => x_msg_count,
2721: p_data => x_msg_data
2728:
2729: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2730: ROLLBACK TO process_material_req_PVT;
2731: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2732: FND_MSG_PUB.count_and_get
2733: (
2734: p_encoded => FND_API.G_FALSE,
2735: p_count => x_msg_count,
2736: p_data => x_msg_data
2743:
2744: WHEN OTHERS THEN
2745: ROLLBACK TO process_material_req_PVT;
2746: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2747: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2748: THEN
2749: FND_MSG_PUB.add_exc_msg
2750: (
2751: p_pkg_name => G_PKG_NAME,
2745: ROLLBACK TO process_material_req_PVT;
2746: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2747: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2748: THEN
2749: FND_MSG_PUB.add_exc_msg
2750: (
2751: p_pkg_name => G_PKG_NAME,
2752: p_procedure_name => G_API_NAME,
2753: p_error_text => SUBSTRB(SQLERRM,1,240)
2752: p_procedure_name => G_API_NAME,
2753: p_error_text => SUBSTRB(SQLERRM,1,240)
2754: );
2755: END IF;
2756: FND_MSG_PUB.count_and_get
2757: (
2758: p_encoded => FND_API.G_FALSE,
2759: p_count => x_msg_count,
2760: p_data => x_msg_data
2818: END IF;
2819:
2820: -- Initialize message list if p_init_msg_list is set to TRUE.
2821: IF FND_API.to_boolean( p_init_msg_list ) THEN
2822: FND_MSG_PUB.initialize;
2823: END IF;
2824:
2825: IF G_DEBUG = 'Y' THEN
2826: AHL_DEBUG_PUB.enable_debug;
2970: );
2971:
2972: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2973: FND_MESSAGE.SET_NAME('AHL',l_msg_data);
2974: FND_MSG_PUB.ADD;
2975: x_return_status := l_return_status;
2976: RETURN;
2977: END IF;
2978:
3109: -- If the record does not exist, then, abort API.
3110: IF ( SQL%ROWCOUNT = 0 ) THEN
3111: FND_MESSAGE.set_name('AHL','AHL_RM_RECORD_CHANGED');
3112: -- FND_MESSAGE.set_token( 'RECORD', p_x_route_efct_tbl(i).aso_resource_name );
3113: FND_MSG_PUB.add;
3114: END IF;
3115:
3116: -- Set OUT values
3117: p_x_route_efct_tbl(i).object_version_number := p_x_route_efct_tbl(i).object_version_number + 1;
3139: -- If the record does not exist, then, abort API.
3140: IF ( SQL%ROWCOUNT = 0 ) THEN
3141: FND_MESSAGE.set_name('AHL','AHL_RM_RECORD_CHANGED');
3142: FND_MESSAGE.set_token( 'RECORD', TO_CHAR( i ) );
3143: FND_MSG_PUB.add;
3144: END IF;
3145: END IF;
3146:
3147: END LOOP;
3150: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || G_API_NAME1 || ' : after DML operation' );
3151: END IF;
3152:
3153: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
3154: l_msg_count := FND_MSG_PUB.count_msg;
3155: IF l_msg_count > 0 THEN
3156: x_msg_count := l_msg_count;
3157: RAISE FND_API.G_EXC_ERROR;
3158: END IF;
3181: COMMIT WORK;
3182: END IF;
3183:
3184: -- Count and Get messages (optional)
3185: FND_MSG_PUB.count_and_get
3186: (
3187: p_encoded => FND_API.G_FALSE,
3188: p_count => x_msg_count,
3189: p_data => x_msg_data
3197: EXCEPTION
3198: WHEN FND_API.G_EXC_ERROR THEN
3199: ROLLBACK TO process_route_efcts;
3200: x_return_status := FND_API.G_RET_STS_ERROR ;
3201: FND_MSG_PUB.count_and_get
3202: (
3203: p_encoded => FND_API.G_FALSE,
3204: p_count => x_msg_count,
3205: p_data => x_msg_data
3212:
3213: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3214: ROLLBACK TO process_route_efcts;
3215: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3216: FND_MSG_PUB.count_and_get
3217: (
3218: p_encoded => FND_API.G_FALSE,
3219: p_count => x_msg_count,
3220: p_data => x_msg_data
3227:
3228: WHEN OTHERS THEN
3229: ROLLBACK TO process_route_efcts;
3230: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3231: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3232: THEN
3233: FND_MSG_PUB.add_exc_msg
3234: (
3235: p_pkg_name => G_PKG_NAME,
3229: ROLLBACK TO process_route_efcts;
3230: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3231: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3232: THEN
3233: FND_MSG_PUB.add_exc_msg
3234: (
3235: p_pkg_name => G_PKG_NAME,
3236: p_procedure_name => G_API_NAME1,
3237: p_error_text => SUBSTRB(SQLERRM,1,240)
3236: p_procedure_name => G_API_NAME1,
3237: p_error_text => SUBSTRB(SQLERRM,1,240)
3238: );
3239: END IF;
3240: FND_MSG_PUB.count_and_get
3241: (
3242: p_encoded => FND_API.G_FALSE,
3243: p_count => x_msg_count,
3244: p_data => x_msg_data