[Home] [Help]
108: -- Check if a value is passed in p_object_id
109: IF ( p_object_id = FND_API.G_MISS_NUM OR
110: p_object_id IS NULL ) THEN
111: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_OBJECT_ID_NULL' );
112: FND_MSG_PUB.add;
113: x_return_status := FND_API.G_RET_STS_ERROR;
114: RETURN;
115: END IF;
116: -- Check if a value is passed in p_association_type
116: -- Check if a value is passed in p_association_type
117: IF ( p_association_type = FND_API.G_MISS_CHAR OR
118: p_association_type IS NULL ) THEN
119: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ASSOC_TYPE_NULL' );
120: FND_MSG_PUB.add;
121: x_return_status := FND_API.G_RET_STS_ERROR;
122: RETURN;
123: END IF;
124: -- Check if a valid value is passed in p_association_type
126: p_association_type <> 'OPERATION' AND
127: p_association_type <> 'DISPOSITION' ) THEN
128: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ASSOC_TYPE_INVALID' );
129: FND_MESSAGE.set_token( 'FIELD', p_association_type );
130: FND_MSG_PUB.add;
131: x_return_status := FND_API.G_RET_STS_ERROR;
132: RETURN;
133: END IF;
134: -- Check if the Route / Operation is in Updatable status
155: );
156: END IF;
157: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
158: FND_MESSAGE.set_name( 'AHL', l_msg_data );
159: FND_MSG_PUB.add;
160: x_return_status := l_return_status;
161: RETURN;
162: END IF;
163: -- Check if atleast one record is passed in p_material_req_tbl
163: -- Check if atleast one record is passed in p_material_req_tbl
164: IF ( p_material_req_tbl.count < 1 ) THEN
165: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
166: FND_MESSAGE.set_token( 'PROCEDURE', G_PKG_NAME || '.' || G_API_NAME );
167: FND_MSG_PUB.add;
168: x_return_status := FND_API.G_RET_STS_ERROR;
169: RETURN;
170: END IF;
171: -- Validate DML Operation
175: p_material_req_tbl(i).dml_operation <> 'C' ) THEN
176: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_DML' );
177: FND_MESSAGE.set_token( 'FIELD', p_material_req_tbl(i).dml_operation );
178: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_tbl(i) ) );
179: FND_MSG_PUB.add;
180: x_return_status := FND_API.G_RET_STS_ERROR;
181: RETURN;
182: END IF;
183: END LOOP;
197: -- Check if a valid value is passed in p_rt_oper_resource_id
198: IF ( p_object_id = FND_API.G_MISS_NUM OR
199: p_object_id IS NULL ) THEN
200: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_efct_OBJECT_NULL' );
201: FND_MSG_PUB.add;
202: x_return_status := FND_API.G_RET_STS_ERROR;
203: RAISE FND_API.G_EXC_ERROR;
204: END IF;
205: AHL_RM_ROUTE_UTIL.validate_route_status
209: x_msg_data => l_msg_data
210: );
211: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
212: FND_MESSAGE.set_name( 'AHL', l_msg_data );
213: FND_MSG_PUB.add;
214: x_return_status := FND_API.G_RET_STS_ERROR;
215: RETURN;
216: END IF;
217: -- Check if at least one record is passed in p_rt_oper_resource_tbl
217: -- Check if at least one record is passed in p_rt_oper_resource_tbl
218: IF ( p_route_efct_tbl.count < 1 ) THEN
219: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
220: FND_MESSAGE.set_token( 'PROCEDURE', G_PKG_NAME || '.' || G_API_NAME1 );
221: FND_MSG_PUB.add;
222: x_return_status := FND_API.G_RET_STS_ERROR;
223: RETURN;
224: END IF;
225: -- Validate DML Operation
229: p_route_efct_tbl(i).dml_operation <> 'D' ) THEN
230: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_DML' );
231: FND_MESSAGE.set_token( 'FIELD', p_route_efct_tbl(i).dml_operation );
232: -- FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_route_efct_tbl(i) ) );
233: FND_MSG_PUB.add;
234: x_return_status := FND_API.G_RET_STS_ERROR;
235: RETURN;
236: END IF;
237: END LOOP;
355: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
356: FND_MESSAGE.set_name( 'AHL', l_msg_data );
357: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_x_material_req_rec.item_comp_detail_id ) );
358: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_material_req_rec ) );
359: FND_MSG_PUB.add;
360: x_return_status := l_return_status;
361: END IF;
362: END IF;
363: -- Convert / Validate Position path
381: ELSE
382: FND_MESSAGE.set_token( 'FIELD', p_x_material_req_rec.position_path );
383: END IF;
384: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_material_req_rec ) );
385: FND_MSG_PUB.add;
386: x_return_status := l_return_status;
387: END IF;
388: END IF;
389: -- Convert / Validate Item Group
407: ELSE
408: FND_MESSAGE.set_token( 'FIELD', p_x_material_req_rec.item_group_name );
409: END IF;
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: --Check if the item group is from composition and is a valid composition element if
415: -- comp material flag is set.
430: p_x_material_req_rec.item_comp_detail_id := l_item_comp_detail_id;
431: ELSE
432: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INV_ITEM_COMP_MAT' );
433: FND_MESSAGE.set_token( 'FIELD',p_x_material_req_rec.item_group_name);
434: FND_MSG_PUB.add;
435: x_return_status := FND_API.G_RET_STS_ERROR;
436: END IF; -- l_item_comp_detail_id is null
437: END IF; -- which association if
438: END IF;-- comp_material_flag check if
480: ELSE
481: FND_MESSAGE.set_token( 'FIELD', p_x_material_req_rec.item_number );
482: END IF;
483: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_material_req_rec ) );
484: FND_MSG_PUB.add;
485: x_return_status := l_return_status;
486: END IF;
487: END IF;
488: -- Convert / Validate UOM
506: ELSE
507: FND_MESSAGE.set_token( 'FIELD', p_x_material_req_rec.uom );
508: END IF;
509: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_material_req_rec ) );
510: FND_MSG_PUB.add;
511: x_return_status := l_return_status;
512: END IF;
513: END IF;
514: --sukhwsin: Procedure calls for SB Effectivity starts
533: ELSE
534: FND_MESSAGE.set_token( 'FIELD', p_x_material_req_rec.MC_NAME );
535: END IF;
536: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_material_req_rec ) );
537: FND_MSG_PUB.add;
538: x_return_status := l_return_status;
539: END IF;
540: END IF;
541: -- Convert / Validate MC Position
560: ELSE
561: FND_MESSAGE.set_token( 'FIELD', p_x_material_req_rec.MC_POSITION );
562: END IF;
563: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_material_req_rec ) );
564: FND_MSG_PUB.add;
565: x_return_status := l_return_status;
566: END IF;
567: END IF;
568: --sukhwsin: Procedure calls for SB Effectivity ends
600: ELSE
601: FND_MESSAGE.set_token( 'FIELD', p_x_route_efct_rec.MC_NAME );
602: END IF;
603: -- FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_material_req_rec(i) ) );
604: FND_MSG_PUB.add;
605: x_return_status := l_return_status;
606: END IF;
607: END IF;
608: -- Convert / Validate Item
639: ELSE
640: FND_MESSAGE.set_token( 'FIELD', p_x_route_efct_rec.item_number );
641: END IF;
642: -- FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_material_req_rec ) );
643: FND_MSG_PUB.add;
644: x_return_status := l_return_status;
645: END IF;
646: END IF;
647: END convert_efct_values_to_ids;
932: ;
933: IF get_old_rec%NOTFOUND THEN
934: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_MTL_REC' );
935: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_material_req_rec ) );
936: FND_MSG_PUB.add;
937: CLOSE get_old_rec;
938: RAISE FND_API.G_EXC_ERROR;
939: END IF;
940: CLOSE get_old_rec;
1187: ,l_old_route_efct_rec.attribute15 ;
1188: IF get_old_rec%NOTFOUND THEN
1189: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_efct_REC' );
1190: -- FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_route_efct_rec ) );
1191: FND_MSG_PUB.add;
1192: CLOSE get_old_rec;
1193: RAISE FND_API.G_EXC_ERROR;
1194: END IF;
1195: CLOSE get_old_rec;
1352: IF (p_association_type = 'DISPOSITION')
1353: THEN
1354: FND_MESSAGE.set_name( 'AHL','AHL_RM_DISP_ITEM_QTY_NULL' );
1355: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1356: FND_MSG_PUB.add;
1357: x_return_status := FND_API.G_RET_STS_ERROR;
1358: ELSE
1359: --when association type is ROUTE or OPERATION
1360: --sukhwsin: raise QTY error only if item/ item group is given
1369: ( p_material_req_rec.uom_code IS NOT NULL OR p_material_req_rec.uom_code <> FND_API.G_MISS_CHAR ))
1370: THEN
1371: FND_MESSAGE.set_name( 'AHL','AHL_RM_MTL_QTY_NULL' );
1372: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1373: FND_MSG_PUB.add;
1374: x_return_status := FND_API.G_RET_STS_ERROR;
1375: END IF;
1376: END IF;
1377:
1378: ELSIF ( p_material_req_rec.dml_operation <> 'D' AND
1379: p_material_req_rec.quantity <= 0 ) THEN
1380: FND_MESSAGE.set_name( 'AHL','AHL_RM_MTL_QTY_LESS_ZERO' );
1381: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1382: FND_MSG_PUB.add;
1383: x_return_status := FND_API.G_RET_STS_ERROR;
1384: ELSIF ( p_material_req_rec.dml_operation <> 'D' AND
1385: p_association_type = 'DISPOSITION'
1386: AND
1388: AND
1389: (p_material_req_rec.quantity IS NULL OR p_material_req_rec.quantity = FND_API.G_MISS_NUM) ) THEN
1390: FND_MESSAGE.set_name( 'AHL','AHL_RM_DISP_ITEM_QTY_NULL' );
1391: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1392: FND_MSG_PUB.add;
1393: x_return_status := FND_API.G_RET_STS_ERROR;
1394: END IF;
1395:
1396: -- Check if the UOM not column contains a null value.
1415: (p_material_req_rec.quantity IS NOT NULL OR p_material_req_rec.quantity <> FND_API.G_MISS_NUM)
1416: THEN
1417: FND_MESSAGE.set_name( 'AHL','AHL_RM_UOM_NULL' );
1418: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1419: FND_MSG_PUB.add;
1420: x_return_status := FND_API.G_RET_STS_ERROR;
1421: END IF;
1422: --sukhwsin: SB Effectivity code changes for modifying validation check for UOM for pos. based mat. req. ends
1423: /*
1435: )
1436: THEN
1437: FND_MESSAGE.set_name( 'AHL','AHL_RM_UOM_NULL' );
1438: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1439: FND_MSG_PUB.add;
1440: x_return_status := FND_API.G_RET_STS_ERROR;
1441: */
1442: END IF;
1443:
1459: THEN
1460: FND_MESSAGE.set_name( 'AHL','AHL_RM_DISP_REPLACE_INVALID' );
1461: FND_MESSAGE.set_name( 'AHL','AHL_RM_DISP_REWORK_INVALID' );
1462: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1463: FND_MSG_PUB.add;
1464: x_return_status := FND_API.G_RET_STS_ERROR;
1465: END IF ;
1466:
1467: -- Check if the mandatory Replace column contains a null value.
1472: )
1473: THEN
1474: FND_MESSAGE.set_name( 'AHL','AHL_RM_DISP_REPLACE_NULL' );
1475: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1476: FND_MSG_PUB.add;
1477: x_return_status := FND_API.G_RET_STS_ERROR;
1478:
1479: ELSIF ( p_association_type = 'DISPOSITION' AND
1480: p_material_req_rec.dml_operation <> 'D' AND
1482: )
1483: THEN
1484: FND_MESSAGE.set_name( 'AHL','AHL_RM_DISP_REPLACE_INVALID' );
1485: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1486: FND_MSG_PUB.add;
1487: x_return_status := FND_API.G_RET_STS_ERROR;
1488:
1489: END IF;
1490:
1516: )
1517: THEN
1518: FND_MESSAGE.set_name( 'AHL','AHL_RM_DISP_REWORK_NULL' );
1519: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1520: FND_MSG_PUB.add;
1521: x_return_status := FND_API.G_RET_STS_ERROR;
1522: ELSIF ( p_association_type = 'DISPOSITION' AND
1523: p_material_req_rec.dml_operation <> 'D'
1524: AND
1534: )
1535: THEN
1536: FND_MESSAGE.set_name( 'AHL','AHL_RM_DISP_REWORK_INVALID' );
1537: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1538: FND_MSG_PUB.add;
1539: x_return_status := FND_API.G_RET_STS_ERROR;
1540:
1541: END IF;
1542: -- if item group then rework percent should not be allowed to be entered.
1566: )
1567: THEN
1568: FND_MESSAGE.set_name( 'AHL','AHL_RM_DISP_REWORK_NOT_REQ' );
1569: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1570: FND_MSG_PUB.add;
1571: x_return_status := FND_API.G_RET_STS_ERROR;
1572: END IF;
1573:
1574:
1580: IF ( p_material_req_rec.rt_oper_material_id IS NULL OR
1581: p_material_req_rec.rt_oper_material_id = FND_API.G_MISS_NUM ) THEN
1582: FND_MESSAGE.set_name( 'AHL','AHL_RM_MTL_ID_NULL' );
1583: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1584: FND_MSG_PUB.add;
1585: x_return_status := FND_API.G_RET_STS_ERROR;
1586: RETURN;
1587: END IF;
1588:
1590: IF ( p_material_req_rec.object_version_number IS NULL OR
1591: p_material_req_rec.object_version_number = FND_API.G_MISS_NUM ) THEN
1592: FND_MESSAGE.set_name( 'AHL','AHL_RM_MTL_OBJ_VERSION_NULL' );
1593: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1594: FND_MSG_PUB.add;
1595: x_return_status := FND_API.G_RET_STS_ERROR;
1596: RETURN;
1597: END IF;
1598:
1613: IF ( p_route_efct_rec.ROUTE_EFFECTIVITY_ID IS NULL OR
1614: p_route_efct_rec.ROUTE_EFFECTIVITY_ID = FND_API.G_MISS_NUM ) THEN
1615: FND_MESSAGE.set_name( 'AHL','AHL_RM_efct_ID_NULL' );
1616: -- FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1617: FND_MSG_PUB.add;
1618: x_return_status := FND_API.G_RET_STS_ERROR;
1619: RETURN;
1620: END IF;
1621: -- Check if the mandatory Object Version Number column contains a null value.
1622: IF ( p_route_efct_rec.object_version_number IS NULL OR
1623: p_route_efct_rec.object_version_number = FND_API.G_MISS_NUM ) THEN
1624: FND_MESSAGE.set_name( 'AHL','AHL_RM_efct_OBJ_VERSION_NULL' );
1625: -- FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1626: FND_MSG_PUB.add;
1627: x_return_status := FND_API.G_RET_STS_ERROR;
1628: RETURN;
1629: END IF;
1630: END validate_efct_attributes;
1668: ) THEN
1669: --FND_MESSAGE.set_name( 'AHL','AHL_RM_ITEMGRP_ITEM_NULL' ); -- sukhwsin: commented old message
1670: FND_MESSAGE.set_name( 'AHL','AHL_RM_MATREQ_COMB_NULL' );
1671: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1672: FND_MSG_PUB.add;
1673: x_return_status := FND_API.G_RET_STS_ERROR;
1674: END IF;
1675: --sukhwsin: changed validation for SB Effectivity starts
1676: --Check if Both MC and Position is given or not.
1684: p_material_req_rec.mc_position_key IS NULL OR
1685: p_material_req_rec.mc_position IS NULL) THEN
1686: FND_MESSAGE.set_name( 'AHL','AHL_RM_MISSING_MCPOS_ERR' );
1687: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1688: FND_MSG_PUB.add;
1689: x_return_status := FND_API.G_RET_STS_ERROR;
1690: ELSE
1691: --if both mc and position is given then check whether position exist under mc
1692: OPEN get_position_key_count( p_material_req_rec.mc_id , p_material_req_rec.mc_position_key );
1694: CLOSE get_position_key_count;
1695: IF (l_pos_count = 0) THEN
1696: FND_MESSAGE.set_name( 'AHL','AHL_RM_INVALID_MC_POS_COMB' );
1697: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1698: FND_MSG_PUB.add;
1699: x_return_status := FND_API.G_RET_STS_ERROR;
1700: END IF;
1701: END IF;
1702: END IF;
1721: END IF;
1722: IF ( l_comb_count > 1) THEN
1723: FND_MESSAGE.set_name( 'AHL','AHL_RM_MAT_REQ_COMB_ERR' );
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: END IF;
1728: ELSE
1729: -- Check if both Item Group and Item contain values
1736: p_material_req_rec.item_group_name IS NOT NULL )
1737: ) THEN
1738: FND_MESSAGE.set_name( 'AHL','AHL_RM_ITEMGRP_ITEM_NOTNULL' );
1739: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1740: FND_MSG_PUB.add;
1741: x_return_status := FND_API.G_RET_STS_ERROR;
1742: END IF;
1743: END IF;
1744: --sukhwsin: changed validation for SB Effectivity ends
1773: ELSIF ( p_material_req_rec.item_group_id IS NOT NULL ) THEN
1774: FND_MESSAGE.set_token( 'FIELD2', TO_CHAR( p_material_req_rec.item_group_id ) );
1775: END IF;
1776: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1777: FND_MSG_PUB.add;
1778: x_return_status := l_return_status;
1779: END IF;
1780: END IF;
1781: END validate_record;
1797: p_route_efct_rec.inventory_master_org_id IS NULL AND
1798: p_route_efct_rec.item_number IS NULL ) THEN
1799: FND_MESSAGE.set_name( 'AHL','AHL_RM_EFCT_ITEM_NULL' );
1800: -- FND_MESSAGE.set_token( 'RECORD', get_effct_identifier( p_route_efct_rec ) );
1801: FND_MSG_PUB.add;
1802: x_return_status := FND_API.G_RET_STS_ERROR;
1803: END IF;
1804: -- Check if both MC and Item contain values
1805: IF ( ( p_route_efct_rec.inventory_item_id IS NOT NULL OR
1814: ) )
1815: THEN
1816: FND_MESSAGE.set_name( 'AHL','AHL_RM_efct_ITEM_NOTNULL' );
1817: FND_MESSAGE.set_token( 'RECORD', get_effct_identifier( p_route_efct_rec ) );
1818: FND_MSG_PUB.add;
1819: x_return_status := FND_API.G_RET_STS_ERROR;
1820: END IF;
1821: -- Check if both Org and Item contain values
1822: IF ( ( p_route_efct_rec.inventory_item_id IS NOT NULL OR p_route_efct_rec.item_number IS NOT NULL )
1824: )
1825: THEN
1826: FND_MESSAGE.set_name( 'AHL','AHL_RM_efct_ITEM_ORG_NOTNULL' );
1827: -- FND_MESSAGE.set_token( 'RECORD', get_effct_identifier( p_route_efct_rec ) );
1828: FND_MSG_PUB.add;
1829: x_return_status := FND_API.G_RET_STS_ERROR;
1830: END IF;
1831: END validate_efct_record;
1832: -- Procedure to Perform cross records validation and duplicate checks
1907: END IF;
1908: EXIT WHEN get_dup_rec%NOTFOUND;
1909: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_MATERIAL_REQ_REC_DUP' );
1910: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( l_material_req_rec ) );
1911: FND_MSG_PUB.add;
1912: --sukhwsin: Changes for SB Effectivity Pos based requirement ends
1913: END LOOP;
1914: IF ( get_dup_rec%ROWCOUNT > 0 ) THEN
1915: CLOSE get_dup_rec;
2023: --END
2024: IF ( get_dup_rec%FOUND ) THEN
2025: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_route_efct_REC_DUP' );
2026: FND_MESSAGE.set_token( 'RECORD', get_effct_identifier( l_route_efct_req_rec ) );
2027: FND_MSG_PUB.add;
2028: END IF ;
2029: END LOOP;
2030: IF ( get_dup_rec%ROWCOUNT > 0 ) THEN
2031: CLOSE get_dup_rec;
2093: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2094: END IF;
2095: -- Initialize message list if p_init_msg_list is set to TRUE.
2096: IF FND_API.to_boolean( p_init_msg_list ) THEN
2097: FND_MSG_PUB.initialize;
2098: END IF;
2099: -- Enable Debug (optional)
2100: IF ( G_DEBUG = 'Y' ) THEN
2101: AHL_DEBUG_PUB.enable_debug;
2219: END IF;*/
2220: END IF;
2221: END LOOP;
2222: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
2223: l_msg_count := FND_MSG_PUB.count_msg;
2224: IF l_msg_count > 0 THEN
2225: x_msg_count := l_msg_count;
2226: RAISE FND_API.G_EXC_ERROR;
2227: END IF;
2238: l_return_status
2239: );
2240: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2241: FND_MESSAGE.SET_NAME('AHL',l_msg_data);
2242: FND_MSG_PUB.ADD;
2243: x_return_status := l_return_status;
2244: RETURN;
2245: END IF;
2246: -- Update route status from APPROVAL_REJECTED to DRAFT
2259: FETCH get_efct_rec INTO l_dummy_number;
2260: IF get_efct_rec%NOTFOUND
2261: THEN
2262: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_efct_REC' );
2263: FND_MSG_PUB.add;
2264: CLOSE get_efct_rec;
2265: RAISE FND_API.G_EXC_ERROR;
2266: END IF;
2267: CLOSE get_efct_rec;
2273: l_return_status
2274: );
2275: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2276: FND_MESSAGE.SET_NAME('AHL',l_msg_data);
2277: FND_MSG_PUB.ADD;
2278: x_return_status := l_return_status;
2279: RETURN;
2280: END IF;
2281: -- Update route status from APPROVAL_REJECTED to DRAFT
2298: l_return_status
2299: );
2300: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2301: FND_MESSAGE.SET_NAME('AHL',l_msg_data);
2302: FND_MSG_PUB.ADD;
2303: x_return_status := l_return_status;
2304: RETURN;
2305: END IF;
2306: -- Update route status from APPROVAL_REJECTED to DRAFT
2314: END IF;
2315: CLOSE get_route_status;
2316: END IF ;
2317: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
2318: l_msg_count := FND_MSG_PUB.count_msg;
2319: IF l_msg_count > 0 THEN
2320: x_msg_count := l_msg_count;
2321: RAISE FND_API.G_EXC_ERROR;
2322: END IF;
2450: WHEN OTHERS THEN
2451: IF ( SQLCODE = -1 ) THEN
2452: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_MATERIAL_REQ_REC_DUP' );
2453: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_material_req_tbl(i) ) );
2454: FND_MSG_PUB.add;
2455: ELSE
2456: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
2457: THEN
2458: fnd_log.string
2508: -- If the record does not exist, then, abort API.
2509: IF ( SQL%ROWCOUNT = 0 ) THEN
2510: FND_MESSAGE.set_name('AHL','AHL_RM_RECORD_CHANGED');
2511: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_material_req_tbl(i) ) );
2512: FND_MSG_PUB.add;
2513: RAISE FND_API.G_EXC_ERROR;
2514: END IF;
2515: -- Set OUT values
2516: p_x_material_req_tbl(i).object_version_number := p_x_material_req_tbl(i).object_version_number + 1;
2518: WHEN OTHERS THEN
2519: IF ( SQLCODE = -1 ) THEN
2520: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_MATERIAL_REQ_REC_DUP' );
2521: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_material_req_tbl(i) ) );
2522: FND_MSG_PUB.add;
2523: RAISE FND_API.G_EXC_ERROR;
2524: ELSE
2525: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
2526: THEN
2541: -- If the record does not exist, then, abort API.
2542: IF ( SQL%ROWCOUNT = 0 ) THEN
2543: FND_MESSAGE.set_name('AHL','AHL_RM_RECORD_CHANGED');
2544: FND_MESSAGE.set_token( 'RECORD', TO_CHAR( i ) );
2545: FND_MSG_PUB.add;
2546: RAISE FND_API.G_EXC_ERROR;
2547: END IF;
2548: END IF;
2549: END LOOP;
2550: IF G_DEBUG = 'Y' THEN
2551: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || G_API_NAME || ' : after DML operation' );
2552: END IF;
2553: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
2554: l_msg_count := FND_MSG_PUB.count_msg;
2555: IF l_msg_count > 0 THEN
2556: x_msg_count := l_msg_count;
2557: RAISE FND_API.G_EXC_ERROR;
2558: END IF;
2576: IF FND_API.to_boolean( p_commit ) THEN
2577: COMMIT WORK;
2578: END IF;
2579: -- Count and Get messages (optional)
2580: FND_MSG_PUB.count_and_get
2581: (
2582: p_encoded => FND_API.G_FALSE,
2583: p_count => x_msg_count,
2584: p_data => x_msg_data
2590: EXCEPTION
2591: WHEN FND_API.G_EXC_ERROR THEN
2592: ROLLBACK TO process_material_req_PVT;
2593: x_return_status := FND_API.G_RET_STS_ERROR ;
2594: FND_MSG_PUB.count_and_get
2595: (
2596: p_encoded => FND_API.G_FALSE,
2597: p_count => x_msg_count,
2598: p_data => x_msg_data
2603: END IF;
2604: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2605: ROLLBACK TO process_material_req_PVT;
2606: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2607: FND_MSG_PUB.count_and_get
2608: (
2609: p_encoded => FND_API.G_FALSE,
2610: p_count => x_msg_count,
2611: p_data => x_msg_data
2616: END IF;
2617: WHEN OTHERS THEN
2618: ROLLBACK TO process_material_req_PVT;
2619: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2620: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2621: THEN
2622: FND_MSG_PUB.add_exc_msg
2623: (
2624: p_pkg_name => G_PKG_NAME,
2618: ROLLBACK TO process_material_req_PVT;
2619: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2620: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2621: THEN
2622: FND_MSG_PUB.add_exc_msg
2623: (
2624: p_pkg_name => G_PKG_NAME,
2625: p_procedure_name => G_API_NAME,
2626: p_error_text => SUBSTRB(SQLERRM,1,240)
2625: p_procedure_name => G_API_NAME,
2626: p_error_text => SUBSTRB(SQLERRM,1,240)
2627: );
2628: END IF;
2629: FND_MSG_PUB.count_and_get
2630: (
2631: p_encoded => FND_API.G_FALSE,
2632: p_count => x_msg_count,
2633: p_data => x_msg_data
2682: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2683: END IF;
2684: -- Initialize message list if p_init_msg_list is set to TRUE.
2685: IF FND_API.to_boolean( p_init_msg_list ) THEN
2686: FND_MSG_PUB.initialize;
2687: END IF;
2688: IF G_DEBUG = 'Y' THEN
2689: AHL_DEBUG_PUB.enable_debug;
2690: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || G_API_NAME1 || ' : Begin API' );
2814: l_return_status
2815: );
2816: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2817: FND_MESSAGE.SET_NAME('AHL',l_msg_data);
2818: FND_MSG_PUB.ADD;
2819: x_return_status := l_return_status;
2820: RETURN;
2821: END IF;
2822: -- Update route status from APPROVAL_REJECTED to DRAFT
2945: -- If the record does not exist, then, abort API.
2946: IF ( SQL%ROWCOUNT = 0 ) THEN
2947: FND_MESSAGE.set_name('AHL','AHL_RM_RECORD_CHANGED');
2948: -- FND_MESSAGE.set_token( 'RECORD', p_x_route_efct_tbl(i).aso_resource_name );
2949: FND_MSG_PUB.add;
2950: END IF;
2951: -- Set OUT values
2952: p_x_route_efct_tbl(i).object_version_number := p_x_route_efct_tbl(i).object_version_number + 1;
2953: ELSIF ( p_x_route_efct_tbl(i).dml_operation = 'D' ) THEN
2966: -- If the record does not exist, then, abort API.
2967: IF ( SQL%ROWCOUNT = 0 ) THEN
2968: FND_MESSAGE.set_name('AHL','AHL_RM_RECORD_CHANGED');
2969: FND_MESSAGE.set_token( 'RECORD', TO_CHAR( i ) );
2970: FND_MSG_PUB.add;
2971: END IF;
2972: END IF;
2973: END LOOP;
2974: IF G_DEBUG = 'Y' THEN
2974: IF G_DEBUG = 'Y' THEN
2975: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || G_API_NAME1 || ' : after DML operation' );
2976: END IF;
2977: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
2978: l_msg_count := FND_MSG_PUB.count_msg;
2979: IF l_msg_count > 0 THEN
2980: x_msg_count := l_msg_count;
2981: RAISE FND_API.G_EXC_ERROR;
2982: END IF;
2999: IF FND_API.to_boolean( p_commit ) THEN
3000: COMMIT WORK;
3001: END IF;
3002: -- Count and Get messages (optional)
3003: FND_MSG_PUB.count_and_get
3004: (
3005: p_encoded => FND_API.G_FALSE,
3006: p_count => x_msg_count,
3007: p_data => x_msg_data
3013: EXCEPTION
3014: WHEN FND_API.G_EXC_ERROR THEN
3015: ROLLBACK TO process_route_efcts;
3016: x_return_status := FND_API.G_RET_STS_ERROR ;
3017: FND_MSG_PUB.count_and_get
3018: (
3019: p_encoded => FND_API.G_FALSE,
3020: p_count => x_msg_count,
3021: p_data => x_msg_data
3026: END IF;
3027: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3028: ROLLBACK TO process_route_efcts;
3029: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3030: FND_MSG_PUB.count_and_get
3031: (
3032: p_encoded => FND_API.G_FALSE,
3033: p_count => x_msg_count,
3034: p_data => x_msg_data
3039: END IF;
3040: WHEN OTHERS THEN
3041: ROLLBACK TO process_route_efcts;
3042: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3043: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3044: THEN
3045: FND_MSG_PUB.add_exc_msg
3046: (
3047: p_pkg_name => G_PKG_NAME,
3041: ROLLBACK TO process_route_efcts;
3042: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3043: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3044: THEN
3045: FND_MSG_PUB.add_exc_msg
3046: (
3047: p_pkg_name => G_PKG_NAME,
3048: p_procedure_name => G_API_NAME1,
3049: p_error_text => SUBSTRB(SQLERRM,1,240)
3048: p_procedure_name => G_API_NAME1,
3049: p_error_text => SUBSTRB(SQLERRM,1,240)
3050: );
3051: END IF;
3052: FND_MSG_PUB.count_and_get
3053: (
3054: p_encoded => FND_API.G_FALSE,
3055: p_count => x_msg_count,
3056: p_data => x_msg_data