[Home] [Help]
27: BEGIN
28:
29: IF (p_name IS NULL OR p_name = FND_API.G_MISS_CHAR) THEN
30: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEMGRP_NAME_NULL');
31: FND_MSG_PUB.ADD;
32: RETURN;
33: END IF;
34:
35: OPEN Item_group_csr;
36: FETCH Item_group_csr INTO l_junk;
37: IF (Item_group_csr%FOUND) THEN
38: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEMGRP_EXISTS');
39: FND_MESSAGE.Set_Token('ITEM_GRP',p_name);
40: FND_MSG_PUB.ADD;
41: --dbms_output.put_line('Item Group already exists');
42: END IF;
43: CLOSE Item_group_csr;
44:
67: FETCH check_priority_dup_exists INTO l_priority;
68: IF (check_priority_dup_exists%FOUND)
69: THEN
70: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_PRIORITY_NON_UNIQUE');
71: FND_MSG_PUB.ADD;
72: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
73: THEN
74: fnd_log.message
75: (
108: FETCH check_revision_dup_exists INTO l_revision;
109: IF (check_revision_dup_exists%FOUND)
110: THEN
111: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_REVISION_NON_UNIQUE');
112: FND_MSG_PUB.ADD;
113: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
114: THEN
115: fnd_log.message
116: (
353: OR (p_inventory_org_id IS NULL)
354: OR (p_inventory_org_id = FND_API.G_MISS_NUM) THEN
355: FND_MESSAGE.Set_Name('AHL','AHL_MC_INV_NULL');
356: --FND_MESSAGE.Set_Token('INV_ITEM',p_inventory_item_id);
357: FND_MSG_PUB.ADD;
358: --dbms_output.put_line('Inventory item is null.');
359: RETURN;
360: END IF;
361:
364: FETCH mtl_parameters_csr INTO l_organization_code,x_master_org_id;
365: IF (mtl_parameters_csr%NOTFOUND) THEN
366: FND_MESSAGE.Set_Name('AHL','AHL_MC_ORG_INVALID');
367: FND_MESSAGE.Set_Token('ORG',p_inventory_org_id);
368: FND_MSG_PUB.ADD;
369: --dbms_output.put_line('Organization does not exist');
370: END IF;
371: CLOSE mtl_parameters_csr;
372:
378:
379: IF (mtl_system_items_csr%NOTFOUND) THEN
380: FND_MESSAGE.Set_Name('AHL','AHL_MC_INV_INVALID');
381: FND_MESSAGE.Set_Token('INV_ITEM',p_inventory_item_id);
382: FND_MSG_PUB.ADD;
383: --dbms_output.put_line('Inventory item does not exist');
384:
385: l_segment1 := null;
386: l_revision_qty_control_code := null;
391: /*
392: IF ( UPPER(l_instance_track) <> 'Y') THEN
393: FND_MESSAGE.Set_Name('AHL','AHL_MC_INV_TRACK');
394: FND_MESSAGE.Set_Token('INV_ITEM',l_segment1);
395: FND_MSG_PUB.ADD;
396: --dbms_output.put_line('Inventory item not trackable');
397: END IF;
398:
399: */
400: IF ( UPPER(p_type_code) = 'TRACKED' AND UPPER(l_instance_track) <> 'Y')
401: THEN
402: FND_MESSAGE.Set_Name('AHL','AHL_MC_INV_TRACK');
403: FND_MESSAGE.Set_Token('INV_ITEM',l_segment1);
404: FND_MSG_PUB.ADD;
405: --dbms_output.put_line('Inventory item not trackable');
406: ELSIF ( UPPER(p_type_code) = 'NON-TRACKED' AND UPPER(l_instance_track) = 'Y')
407: THEN
408: FND_MESSAGE.Set_Name('AHL','AHL_MC_INV_NON_TRACK');
406: ELSIF ( UPPER(p_type_code) = 'NON-TRACKED' AND UPPER(l_instance_track) = 'Y')
407: THEN
408: FND_MESSAGE.Set_Name('AHL','AHL_MC_INV_NON_TRACK');
409: FND_MESSAGE.Set_Token('INV_ITEM',l_segment1);
410: FND_MSG_PUB.ADD;
411: --dbms_output.put_line('Inventory item are trackable');
412: END IF;
413:
414: END IF;
431: IF (p_interchange_type_code IS NULL
432: OR p_interchange_type_code = FND_API.G_MISS_CHAR) THEN
433: FND_MESSAGE.Set_Name('AHL','AHL_MC_INTER_TYP_NULL');
434: FND_MESSAGE.Set_Token('INV_ITEM',p_inv_segment);
435: FND_MSG_PUB.ADD;
436: RETURN;
437: END IF;
438:
439: IF NOT(AHL_UTIL_MC_PKG.Validate_Lookup_Code('AHL_INTERCHANGE_ITEM_TYPE', p_interchange_type_code))
440: OR p_interchange_type_code = 'REMOVED' THEN
441: FND_MESSAGE.Set_Name('AHL','AHL_MC_INTER_INVALID');
442: FND_MESSAGE.Set_Token('INV_ITEM',p_inv_segment);
443: FND_MESSAGE.Set_Token('INTER_CODE',p_interchange_type_code);
444: FND_MSG_PUB.ADD;
445: --dbms_output.put_line('Interchange type code is invalid');
446: END IF;
447:
448: IF p_interchange_type_code = '1-WAY INTERCHANGEABLE'
450: THEN
451: FND_MESSAGE.Set_Name('AHL','AHL_MC_INTER_REASON_NULL');
452: FND_MESSAGE.Set_Token('INTER_CODE',p_interchange_type_code);
453: FND_MESSAGE.Set_Token('INV_ITEM',p_inv_segment);
454: FND_MSG_PUB.ADD;
455: --dbms_output.put_line('Interchange Reason is Null');
456: END IF;
457:
458:
483:
484: IF (nvl(p_revision_qty_control_code,0) <> 2) THEN
485: FND_MESSAGE.Set_Name('AHL','AHL_UC_REV_NOTNULL');
486: FND_MESSAGE.Set_Token('INV_ITEM',p_inv_segment);
487: FND_MSG_PUB.ADD;
488: --dbms_output.put_line('Revision is not null. Revision not required.');
489: ELSE
490: OPEN mtl_item_revisions_csr(p_revision,p_inventory_id, p_organization_id);
491: FETCH mtl_item_revisions_csr INTO l_junk;
492: IF (mtl_item_revisions_csr%NOTFOUND) THEN
493: FND_MESSAGE.Set_Name('AHL','AHL_MC_INVREVI_INVALID');
494: FND_MESSAGE.Set_Token('INV_ITEM',p_inv_segment);
495: FND_MESSAGE.Set_Token('REVISION',p_revision);
496: FND_MSG_PUB.ADD;
497: --dbms_output.put_line('Revision does not exist');
498: END IF;
499:
500: CLOSE mtl_item_revisions_csr;
569: FND_MESSAGE.Set_Name('AHL','AHL_MC_NOTNULL_REV_EXISTS');
570: FND_MESSAGE.Set_Token('INV_ITEM',p_inv_segment);
571: FND_MESSAGE.Set_Token('ORG',p_inventory_org_id);
572: FND_MESSAGE.Set_Token('GRP_NAME',p_name);
573: FND_MSG_PUB.ADD;
574: ELSE
575: FND_MESSAGE.Set_Name('AHL','AHL_MC_NULL_REV_EXISTS');
576: FND_MESSAGE.Set_Token('INV_ITEM',p_inv_segment);
577: FND_MESSAGE.Set_Token('ORG',p_inventory_org_id);
575: FND_MESSAGE.Set_Name('AHL','AHL_MC_NULL_REV_EXISTS');
576: FND_MESSAGE.Set_Token('INV_ITEM',p_inv_segment);
577: FND_MESSAGE.Set_Token('ORG',p_inventory_org_id);
578: FND_MESSAGE.Set_Token('GRP_NAME',p_name);
579: FND_MSG_PUB.ADD;
580: END IF;
581: END IF;
582: CLOSE item_revnotnull_csr;
583: ELSE
587: FND_MESSAGE.Set_Name('AHL','AHL_MC_NULL_REV_EXISTS');
588: FND_MESSAGE.Set_Token('INV_ITEM',p_inv_segment);
589: FND_MESSAGE.Set_Token('ORG',p_inventory_org_id);
590: FND_MESSAGE.Set_Token('GRP_NAME',p_name);
591: FND_MSG_PUB.ADD;
592: CLOSE item_revnull_csr;
593: ELSE
594: OPEN rev_exists_csr(p_item_group_id,p_inventory_item_id,p_inventory_org_id,p_item_revision);
595: FETCH rev_exists_csr INTO l_junk;
597: FND_MESSAGE.Set_Name('AHL','AHL_MC_SAME_REV_EXISTS');
598: FND_MESSAGE.Set_Token('INV_ITEM',p_inv_segment);
599: FND_MESSAGE.Set_Token('ORG',p_inventory_org_id);
600: FND_MESSAGE.Set_Token('GRP_NAME',p_name);
601: FND_MSG_PUB.ADD;
602: END IF;
603: CLOSE rev_exists_csr;
604: END IF;
605: END IF;
628: FND_MESSAGE.Set_Name('AHL','AHL_MC_NOTNULL_REV_EXISTS');
629: FND_MESSAGE.Set_Token('INV_ITEM',p_inv_segment);
630: FND_MESSAGE.Set_Token('ORG',p_inventory_org_id);
631: FND_MESSAGE.Set_Token('GRP_NAME',p_name);
632: FND_MSG_PUB.ADD;
633: WHEN NO_DATA_FOUND THEN
634: NULL;
635: WHEN OTHERS THEN
636: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
649: IF (rev_exists_csr%FOUND) THEN
650: FND_MESSAGE.Set_Name('AHL','AHL_MC_NULL_OR_SAME_REV_EXISTS');
651: FND_MESSAGE.Set_Token('GRP_NAME',p_name);
652: FND_MESSAGE.Set_Token('INV_ITEM',p_inv_segment);
653: FND_MSG_PUB.ADD;
654: END IF;
655: CLOSE rev_exists_csr;*/
656: END IF;
657: END IF; --checking of operation flag
685: IF (item_assoc_csr%FOUND) THEN
686: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEM_ASSOC_DUP');
687: FND_MESSAGE.Set_Token('GRP_NAME',p_name);
688: FND_MESSAGE.Set_Token('INV_ITEM',p_inv_segment);
689: FND_MSG_PUB.ADD;
690: END IF;
691: CLOSE item_assoc_csr;
692: ELSE
693: OPEN item_assoc_csr(p_item_group_id, p_inventory_item_id,p_item_revision,p_inventory_org_id);
695: IF (item_assoc_csr%FOUND) THEN
696: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEM_ASSOC_REV_DUP');
697: FND_MESSAGE.Set_Token('GRP_NAME',p_name);
698: FND_MESSAGE.Set_Token('INV_ITEM',p_item_revision || ',' || p_inv_segment );
699: FND_MSG_PUB.ADD;
700: END IF;
701: CLOSE item_assoc_csr;
702: END IF;
703: END Validate_Dup_Inventory;*/
721: IF (p_uom_code IS NULL OR p_uom_code = FND_API.G_MISS_CHAR) THEN
722: -- uom_code is null but quantity is not null.
723: FND_MESSAGE.Set_Name('AHL','AHL_MC_INVUOM_NULL');
724: FND_MESSAGE.Set_Token('INV_ITEM',p_inv_segment);
725: FND_MSG_PUB.ADD;
726: --dbms_output.put_line('Uom is null');
727: ELSIF NOT(inv_convert.Validate_Item_Uom(p_item_id => p_inventory_item_id,
728: p_organization_id => p_inventory_org_id,
729: p_uom_code => p_uom_code))
730: THEN
731: FND_MESSAGE.Set_Name('AHL','AHL_MC_INVUOM_INVALID');
732: FND_MESSAGE.Set_Token('UOM_CODE',p_uom_code);
733: FND_MESSAGE.Set_Token('INV_ITEM',p_inv_segment);
734: FND_MSG_PUB.ADD;
735: --dbms_output.put_line('Invalid UOM code for the item');
736: END IF;
737:
738: -- Validate quantity.
739: IF (p_quantity IS NULL OR p_quantity = FND_API.G_MISS_NUM) THEN
740: FND_MESSAGE.Set_Name('AHL','AHL_MC_INVQTY_INVALID');
741: FND_MESSAGE.Set_Token('INV_ITEM',p_inv_segment);
742: FND_MESSAGE.Set_Token('QUANTITY',p_quantity);
743: FND_MSG_PUB.ADD;
744: --dbms_output.put_line('Quantity is null');
745: ELSIF (p_quantity < 0) THEN
746: FND_MESSAGE.Set_Name('AHL','AHL_MC_INVQTY_INVALID');
747: FND_MESSAGE.Set_Token('INV_ITEM',p_inv_segment);
745: ELSIF (p_quantity < 0) THEN
746: FND_MESSAGE.Set_Name('AHL','AHL_MC_INVQTY_INVALID');
747: FND_MESSAGE.Set_Token('INV_ITEM',p_inv_segment);
748: FND_MESSAGE.Set_Token('QUANTITY',p_quantity);
749: FND_MSG_PUB.ADD;
750: --dbms_output.put_line('Invalid quantity');
751: END IF;
752:
753: END Validate_Qty_UOM;
831: FETCH chk_top_node_csr INTO l_junk;
832: IF (chk_top_node_csr%FOUND) THEN
833: FND_MESSAGE.Set_Name('AHL','AHL_MC_PARTASSOC_EXISTS');
834: FND_MESSAGE.Set_Token('INV_ITEM',p_inv_segment);
835: FND_MSG_PUB.ADD;
836: l_unit_found := TRUE;
837: END IF;
838: CLOSE chk_top_node_csr;
839:
846: l_unitname := AHL_UMP_UTIL_PKG.Get_UnitName(item_instance_rec.csi_item_instance_id);
847: IF (l_unitname IS NOT NULL) THEN
848: FND_MESSAGE.Set_Name('AHL','AHL_MC_PARTASSOC_EXISTS');
849: FND_MESSAGE.Set_Token('INV_ITEM',p_inv_segment);
850: FND_MSG_PUB.ADD;
851: l_unit_found := TRUE;
852: EXIT; -- exit instance loop.
853: END IF;
854: END LOOP;
921: IF (Item_assoc_csr%NOTFOUND) THEN
922: CLOSE Item_assoc_csr;
923: FND_MESSAGE.Set_Name('AHL','AHL_MC_IG_ASSOS_NOT_EXISTS');
924: FND_MESSAGE.Set_Token('INV_ITEM',l_item_assoc_rec.concatenated_segments);
925: FND_MSG_PUB.ADD;
926: --dbms_output.put_line('Item Assoc does not exist');
927: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
928: END IF;
929:
952: 'ahl_mc_itemgroup_pvt.Validate_Item_Assoc', l_item_key);
953: END IF;
954:
955: FND_MESSAGE.Set_Name('AHL','AHL_COM_KEY_NOUPDATE');
956: FND_MSG_PUB.ADD;
957: --dbms_output.put_line('Primary key cannot be updated');
958: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
959: END IF;
960:
1026: IF (l_inventory_item_revision = '000') THEN
1027: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEM_ASSOC_DUP');
1028: FND_MESSAGE.Set_Token('GRP_NAME',p_name);
1029: FND_MESSAGE.Set_Token('INV_ITEM',l_inv_segment);
1030: FND_MSG_PUB.ADD;
1031: --dbms_output.put_line('Item already exists in the list');
1032: ELSE
1033: -- if two lines have the same Revision, show new error message with Revision
1034: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEM_ASSOC_REV_DUP');
1033: -- if two lines have the same Revision, show new error message with Revision
1034: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEM_ASSOC_REV_DUP');
1035: FND_MESSAGE.Set_Token('GRP_NAME',p_name);
1036: FND_MESSAGE.Set_Token('INV_ITEM',l_inventory_item_revision || ',' || l_inv_segment);
1037: FND_MSG_PUB.ADD;
1038: END IF;
1039: ELSE
1040: -- match not found, so add to the associative array p_x_inventory_list.
1041: -- p_x_inventory_list := p_x_inventory_list || l_inventory_item_id || '-' || l_inventory_org_id || '-' || l_inventory_item_revision || ':' ;
1082: l_x_item_assoc_rec.INTERCHANGE_TYPE_CODE = G_FND_1WAY_CODE AND
1083: l_x_item_assoc_rec.INTERCHANGE_REASON IS NULL) THEN
1084: FND_MESSAGE.Set_Name('AHL','AHL_MC_INV_1WAY_MISSING_REASON');
1085: FND_MESSAGE.Set_Token('INV_ITEM',l_inv_segment);
1086: FND_MSG_PUB.ADD;
1087: END IF;
1088: END IF;
1089:
1090:
1094: IF (l_x_item_assoc_rec.priority <= 0) THEN
1095: FND_MESSAGE.Set_Name('AHL','AHL_MC_PRIORITY_INVALID');
1096: FND_MESSAGE.Set_Token('INV_ITEM',l_inv_segment);
1097: FND_MESSAGE.Set_Token('PRIORITY',l_x_item_assoc_rec.priority);
1098: FND_MSG_PUB.ADD;
1099: --dbms_output.put_line('Invalid priority');
1100: END IF;
1101: ELSIF l_x_item_assoc_rec.operation_flag = 'C' OR
1102: (l_x_item_assoc_rec.operation_flag = 'M' AND l_x_item_assoc_rec.priority = FND_API.G_MISS_NUM) THEN
1101: ELSIF l_x_item_assoc_rec.operation_flag = 'C' OR
1102: (l_x_item_assoc_rec.operation_flag = 'M' AND l_x_item_assoc_rec.priority = FND_API.G_MISS_NUM) THEN
1103: FND_MESSAGE.Set_Name('AHL','AHL_MC_PRIORITY_NULL');
1104: FND_MESSAGE.Set_Token('INV_ITEM',l_inv_segment);
1105: FND_MSG_PUB.ADD;
1106: --dbms_output.put_line('Null priority');
1107: END IF;
1108:
1109: -- set quantity and uom values into local variables for validation.
1155: l_quantity = 0 OR
1156: l_quantity = FND_API.G_MISS_NUM) THEN
1157: FND_MESSAGE.Set_Name('AHL','AHL_MC_SRLQTY_NULL');
1158: FND_MESSAGE.Set_Token('INV_ITEM',l_inv_segment);
1159: FND_MSG_PUB.ADD;
1160: --dbms_output.put_line('Invalid UOM code for the item');
1161: ELSE
1162: IF (l_quantity <> 1) THEN
1163: FND_MESSAGE.Set_Name('AHL','AHL_UC_SRLQTY_MISMATCH');
1162: IF (l_quantity <> 1) THEN
1163: FND_MESSAGE.Set_Name('AHL','AHL_UC_SRLQTY_MISMATCH');
1164: FND_MESSAGE.Set_Token('QTY',l_quantity);
1165: FND_MESSAGE.Set_Token('INV_ITEM',l_inv_segment);
1166: FND_MSG_PUB.ADD;
1167: --dbms_output.put_line('For serialized items Quantity must be 1');
1168: END IF;
1169: END IF;
1170: END IF;
1482: FETCH Item_assoc_csr INTO l_old_item_assoc_rec;
1483: IF (Item_assoc_csr%NOTFOUND) THEN
1484: CLOSE Item_assoc_csr;
1485: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_DELETED');
1486: FND_MSG_PUB.ADD;
1487: --dbms_output.put_line('Item Assoc does not exist');
1488: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1489: END IF;
1490:
1491: -- Check Object version number.
1492: IF (l_old_item_assoc_rec.object_version_number <> l_item_assoc_rec.object_version_number) THEN
1493: CLOSE Item_assoc_csr;
1494: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
1495: FND_MSG_PUB.ADD;
1496: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1497: END IF;
1498:
1499: -- Check for changed columns.
1693: FETCH Item_assoc_csr INTO l_object_version_number;
1694: IF (Item_assoc_csr%NOTFOUND) THEN
1695: CLOSE Item_assoc_csr;
1696: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_DELETED');
1697: FND_MSG_PUB.ADD;
1698: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1699: END IF;
1700:
1701: -- Check Object version number.
1701: -- Check Object version number.
1702: IF (l_object_version_number <> p_item_assoc_rec.object_version_number) THEN
1703: CLOSE Item_assoc_csr;
1704: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
1705: FND_MSG_PUB.ADD;
1706: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1707: END IF;
1708:
1709: -- Delete record.
1763: END IF;
1764:
1765: -- Initialize message list if p_init_msg_list is set to TRUE
1766: IF FND_API.To_Boolean(p_init_msg_list) THEN
1767: FND_MSG_PUB.Initialize;
1768: END IF;
1769:
1770: -- Initialize API return status to success
1771: x_return_status := FND_API.G_RET_STS_SUCCESS;
1815: END IF;
1816:
1817:
1818: -- Check Error Message stack.
1819: x_msg_count := FND_MSG_PUB.count_msg;
1820: IF x_msg_count > 0 THEN
1821: RAISE FND_API.G_EXC_ERROR;
1822: END IF;
1823:
1869: END IF;
1870:
1871:
1872: -- Standard call to get message count and if count is 1, get message info
1873: FND_MSG_PUB.Count_And_Get
1874: ( p_count => x_msg_count,
1875: p_data => x_msg_data,
1876: p_encoded => fnd_api.g_false);
1877:
1878: EXCEPTION
1879: WHEN FND_API.G_EXC_ERROR THEN
1880: x_return_status := FND_API.G_RET_STS_ERROR;
1881: Rollback to Create_Item_group_pvt;
1882: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1883: p_data => x_msg_data,
1884: p_encoded => fnd_api.g_false);
1885: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
1886: THEN
1892:
1893: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1894: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1895: Rollback to Create_Item_group_pvt;
1896: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1897: p_data => x_msg_data,
1898: p_encoded => fnd_api.g_false);
1899: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
1900: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
1906:
1907: WHEN OTHERS THEN
1908: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1909: Rollback to Create_Item_group_pvt;
1910: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1911: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1912: p_procedure_name => 'Create_Item_group',
1913: p_error_text => SQLERRM);
1914: END IF;
1907: WHEN OTHERS THEN
1908: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1909: Rollback to Create_Item_group_pvt;
1910: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1911: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1912: p_procedure_name => 'Create_Item_group',
1913: p_error_text => SQLERRM);
1914: END IF;
1915: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1911: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1912: p_procedure_name => 'Create_Item_group',
1913: p_error_text => SQLERRM);
1914: END IF;
1915: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1916: p_data => x_msg_data,
1917: p_encoded => fnd_api.g_false);
1918: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
1919:
2020: END IF;
2021:
2022: -- Initialize message list if p_init_msg_list is set to TRUE
2023: IF FND_API.To_Boolean(p_init_msg_list) THEN
2024: FND_MSG_PUB.Initialize;
2025: END IF;
2026:
2027: -- Initialize API return status to success
2028: x_return_status := FND_API.G_RET_STS_SUCCESS;
2037: FETCH Item_group_csr INTO l_old_item_group_rec;
2038: IF (Item_group_csr%NOTFOUND) THEN
2039: CLOSE Item_group_csr;
2040: FND_MESSAGE.Set_Name('AHL','AHL_MC_IG_NOT_EXISTS');
2041: FND_MSG_PUB.ADD;
2042: --dbms_output.put_line('Item Group does not exist');
2043: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2044: END IF;
2045:
2046: -- Check Object version number.
2047: IF (l_old_item_group_rec.object_version_number <> NVL(p_item_group_rec.object_version_number,0)) THEN
2048: CLOSE Item_group_csr;
2049: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
2050: FND_MSG_PUB.ADD;
2051: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2052: END IF;
2053:
2054: -- Check name
2055: -- TAMAL -- IG Amendments --
2056: IF (l_old_item_group_rec.status_code = 'DRAFT' and l_old_item_group_rec.source_item_group_id is not null)
2057: THEN
2058: Validate_Item_Group_Name (l_item_group_rec.name, l_old_item_group_rec.item_group_id, l_old_item_group_rec.source_item_group_id);
2059: x_msg_count := FND_MSG_PUB.count_msg;
2060: IF x_msg_count > 0
2061: THEN
2062: CLOSE Item_group_csr;
2063: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2067: ELSIF (l_old_item_group_rec.name <> p_item_group_rec.name )
2068: THEN
2069: CLOSE Item_group_csr;
2070: FND_MESSAGE.Set_Name('AHL','AHL_COM_KEY_NOUPDATE');
2071: FND_MSG_PUB.ADD;
2072: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2073: END IF;
2074:
2075: IF l_old_item_group_rec.status_code in ('COMPLETE','APPROVAL_PENDING')
2076: THEN
2077: CLOSE Item_group_csr;
2078: FND_MESSAGE.Set_Name('AHL','AHL_MC_IG_NOUPDATE');
2079: FND_MESSAGE.Set_Token('STATUS',p_item_group_rec.status_code);
2080: FND_MSG_PUB.ADD;
2081: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2082: --dbms_output.put_line('Item Group cannot be updated if status is Complete or Approval Rejected');
2083: END IF;
2084:
2086:
2087: IF (p_item_group_rec.status_code <> l_old_item_group_rec.status_code)
2088: THEN
2089: FND_MESSAGE.Set_Name('AHL','AHL_MC_IG_STAT_NOUPDATE');
2090: FND_MSG_PUB.ADD;
2091: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2092: --dbms_output.put_line('Item Group Status cannot be updated');
2093: END IF;
2094: END IF;
2096: IF (p_item_group_rec.type_code <> FND_API.G_MISS_CHAR) THEN
2097: IF (p_item_group_rec.type_code <> l_old_item_group_rec.type_code)
2098: THEN
2099: FND_MESSAGE.Set_Name('AHL','AHL_MC_IG_TYPE_NOUPDATE');
2100: FND_MSG_PUB.ADD;
2101: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2102: --dbms_output.put_line('Item Group Type cannot be updated');
2103: END IF;
2104:
2119: IF (p_x_items_tbl(i).item_group_id <> p_item_group_rec.item_group_id) THEN
2120: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEMGRP_MISMATCH');
2121: FND_MESSAGE.Set_Token('ITEM_GRP',p_item_group_rec.item_group_id);
2122: FND_MESSAGE.Set_Token('ASSO_GRP',p_x_items_tbl(i).item_group_id);
2123: FND_MSG_PUB.ADD;
2124: --dbms_output.put_line('Item Association record does not match Item Group');
2125: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2126: END IF;
2127:
2142: 'ahl.plsql.ahl_mc_itemgroup_pvt.Modify_Item_group', 'End of Loop');
2143: END IF;
2144:
2145: -- Check Error Message stack.
2146: x_msg_count := FND_MSG_PUB.count_msg;
2147: IF x_msg_count > 0 THEN
2148: RAISE FND_API.G_EXC_ERROR;
2149: END IF;
2150:
2423: validate_IG_revision(l_old_item_group_rec.item_group_id);
2424: --Priyan End
2425:
2426: -- Standard call to get message count and if count is 1, get message info
2427: FND_MSG_PUB.Count_And_Get
2428: ( p_count => x_msg_count,
2429: p_data => x_msg_data,
2430: p_encoded => fnd_api.g_false);
2431:
2439: EXCEPTION
2440: WHEN FND_API.G_EXC_ERROR THEN
2441: x_return_status := FND_API.G_RET_STS_ERROR;
2442: Rollback to Modify_Item_group_pvt;
2443: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2444: p_data => x_msg_data,
2445: p_encoded => fnd_api.g_false);
2446: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
2447:
2453:
2454: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2455: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2456: Rollback to Modify_Item_group_pvt;
2457: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2458: p_data => x_msg_data,
2459: p_encoded => fnd_api.g_false);
2460: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
2461: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2466:
2467: WHEN OTHERS THEN
2468: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2469: Rollback to Modify_Item_group_pvt;
2470: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2471: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2472: p_procedure_name => 'Modify_Item_Group',
2473: p_error_text => SUBSTR(SQLERRM,1,240));
2474: END IF;
2467: WHEN OTHERS THEN
2468: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2469: Rollback to Modify_Item_group_pvt;
2470: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2471: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2472: p_procedure_name => 'Modify_Item_Group',
2473: p_error_text => SUBSTR(SQLERRM,1,240));
2474: END IF;
2475: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2471: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2472: p_procedure_name => 'Modify_Item_Group',
2473: p_error_text => SUBSTR(SQLERRM,1,240));
2474: END IF;
2475: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2476: p_data => x_msg_data,
2477: p_encoded => fnd_api.g_false);
2478: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
2479:
2565: END IF;
2566:
2567: -- Initialize message list if p_init_msg_list is set to TRUE
2568: IF FND_API.To_Boolean(p_init_msg_list) THEN
2569: FND_MSG_PUB.Initialize;
2570: END IF;
2571:
2572: -- Initialize API return status to success
2573: x_return_status := FND_API.G_RET_STS_SUCCESS;
2585: IF (Item_group_csr%NOTFOUND) THEN
2586: CLOSE Item_group_csr;
2587: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEMGRP_INVALID');
2588: FND_MESSAGE.Set_Token('ITEM_GRP',l_item_group_rec.name);
2589: FND_MSG_PUB.ADD;
2590: --dbms_output.put_line('Item Group does not exist');
2591: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2592: END IF;
2593:
2594: -- Check Object version number.
2595: IF (l_item_group_rec.object_version_number <> p_item_group_rec.object_version_number) THEN
2596: CLOSE Item_group_csr;
2597: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
2598: FND_MSG_PUB.ADD;
2599: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2600: END IF;
2601:
2602: -- Check if this item group has any positions associated.
2604: FETCH ahl_relationships_csr INTO l_dummy;
2605: IF (ahl_relationships_csr%FOUND) THEN
2606: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEMGRP_POSN_EXISTS');
2607: FND_MESSAGE.Set_Token('ITEM_GRP',l_item_group_rec.name);
2608: FND_MSG_PUB.ADD;
2609: --dbms_output.put_line('Positions exist for this item group');
2610: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2611: END IF;
2612:
2617: FETCH ahl_item_comp_csr INTO l_dummy;
2618: IF (ahl_item_comp_csr%FOUND) THEN
2619: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEMGRP_COMP_EXISTS');
2620: FND_MESSAGE.Set_Token('ITEM_GRP',l_item_group_rec.name);
2621: FND_MSG_PUB.ADD;
2622: --dbms_output.put_line('Positions exist for this item group');
2623: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2624: END IF;
2625:
2630:
2631: IF l_item_group_rec.status_code ='APPROVAL_PENDING'
2632: THEN
2633: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEMGRP_APPR_PEND');
2634: FND_MSG_PUB.ADD;
2635: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2636: END IF;
2637:
2638:
2638:
2639: IF l_item_group_rec.status_code ='REMOVED'
2640: THEN
2641: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEMGRP_REMOVED');
2642: FND_MSG_PUB.ADD;
2643: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2644: END IF;
2645:
2646:
2703:
2704: CLOSE Item_group_csr;
2705:
2706: -- Standard call to get message count and if count is 1, get message info
2707: FND_MSG_PUB.Count_And_Get
2708: ( p_count => x_msg_count,
2709: p_data => x_msg_data,
2710: p_encoded => fnd_api.g_false);
2711:
2720: EXCEPTION
2721: WHEN FND_API.G_EXC_ERROR THEN
2722: x_return_status := FND_API.G_RET_STS_ERROR;
2723: Rollback to Remove_Item_group_pvt;
2724: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2725: p_data => x_msg_data,
2726: p_encoded => fnd_api.g_false);
2727:
2728: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
2733:
2734: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2735: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2736: Rollback to Remove_Item_group_pvt;
2737: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2738: p_data => x_msg_data,
2739: p_encoded => fnd_api.g_false);
2740: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
2741: THEN
2746:
2747: WHEN OTHERS THEN
2748: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2749: Rollback to Remove_Item_group_pvt;
2750: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2751: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2752: p_procedure_name => 'Remove_Item_Group',
2753: p_error_text => SUBSTR(SQLERRM,1,240));
2754: END IF;
2747: WHEN OTHERS THEN
2748: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2749: Rollback to Remove_Item_group_pvt;
2750: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2751: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2752: p_procedure_name => 'Remove_Item_Group',
2753: p_error_text => SUBSTR(SQLERRM,1,240));
2754: END IF;
2755: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2751: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2752: p_procedure_name => 'Remove_Item_Group',
2753: p_error_text => SUBSTR(SQLERRM,1,240));
2754: END IF;
2755: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2756: p_data => x_msg_data,
2757: p_encoded => fnd_api.g_false);
2758: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
2759: THEN
2878:
2879: -- Standard call to check for call compatibility.
2880:
2881: IF FND_API.to_boolean(l_init_msg_list) THEN
2882: FND_MSG_PUB.initialize;
2883: END IF;
2884:
2885: -- Initialize API return status to success
2886:
2907:
2908: IF p_object_Version_number is null or p_object_Version_number=FND_API.G_MISS_NUM
2909: THEN
2910: FND_MESSAGE.SET_NAME('AHL','AHL_MC_OBJ_VERSION_NULL');
2911: FND_MSG_PUB.ADD;
2912: END IF;
2913:
2914: IF p_source_item_group_id is null or p_source_item_group_id = FND_API.G_MISS_NUM
2915: THEN
2913:
2914: IF p_source_item_group_id is null or p_source_item_group_id = FND_API.G_MISS_NUM
2915: THEN
2916: FND_MESSAGE.SET_NAME('AHL','AHL_MC_OBJECT_ID_NULL');
2917: FND_MSG_PUB.ADD;
2918: ELSE
2919: OPEN get_Itemgroup_Det(p_source_item_group_id);
2920: FETCH get_Itemgroup_Det INTO l_itemgroup_rec;
2921: CLOSE get_Itemgroup_Det;
2927: FETCH Item_group_name INTO l_dummy;
2928: IF Item_group_name%FOUND
2929: THEN
2930: FND_MESSAGE.SET_NAME('AHL','AHL_MC_IG_MOD_NAME');
2931: FND_MSG_PUB.ADD;
2932: CLOSE Item_group_name;
2933: RAISE FND_API.G_EXC_ERROR;
2934: END IF;
2935: CLOSE Item_group_name;
2953:
2954: ELSE
2955: FND_MESSAGE.SET_NAME('AHL','AHL_MC_IG_STAT_NOT_DRFT');
2956: FND_MESSAGE.set_token('IG',l_itemgroup_rec.name,false);
2957: FND_MSG_PUB.ADD;
2958: END IF;
2959: ELSE
2960: FND_MESSAGE.SET_NAME('AHL','AHL_APPR_TYPE_CODE_MISSING');
2961: FND_MSG_PUB.ADD;
2957: FND_MSG_PUB.ADD;
2958: END IF;
2959: ELSE
2960: FND_MESSAGE.SET_NAME('AHL','AHL_APPR_TYPE_CODE_MISSING');
2961: FND_MSG_PUB.ADD;
2962: END IF;
2963:
2964: OPEN validate_item_group(p_source_item_group_id);
2965: FETCH validate_item_group INTO l_dummy;
2964: OPEN validate_item_group(p_source_item_group_id);
2965: FETCH validate_item_group INTO l_dummy;
2966: IF validate_item_group%NOTFOUND THEN
2967: FND_MESSAGE.SET_NAME('AHL','AHL_MC_IG_INTERCHANGE_INAVLID');
2968: FND_MSG_PUB.ADD;
2969: END IF;
2970: CLOSE validate_item_group;
2971:
2972: OPEN validate_item_group_positions(p_source_item_group_id);
2973: FETCH validate_item_group_positions INTO l_dummy;
2974: IF validate_item_group_positions%FOUND THEN
2975: FND_MESSAGE.SET_NAME('AHL','AHL_MC_PAR_QTY_INV');
2976: FND_MESSAGE.set_token('POSREF','');
2977: FND_MSG_PUB.ADD;
2978: END IF;
2979: CLOSE validate_item_group_positions;
2980:
2981:
2981:
2982:
2983: END IF;
2984:
2985: l_msg_count := FND_MSG_PUB.count_msg;
2986:
2987: IF l_msg_count > 0
2988: THEN
2989: X_msg_count := l_msg_count;
3008:
3009: IF sql%rowcount=0
3010: THEN
3011: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
3012: FND_MSG_PUB.ADD;
3013: RAISE FND_API.G_EXC_ERROR;
3014: END IF;
3015:
3016: IF l_ACTIVE='Y'
3059: p_object_version_number =>p_object_Version_number+1
3060: );
3061: END IF ;
3062:
3063: l_msg_count := FND_MSG_PUB.count_msg;
3064:
3065: IF l_msg_count > 0
3066: THEN
3067: X_msg_count := l_msg_count;
3075: COMMIT WORK;
3076: END IF;
3077:
3078: -- Standard call to get message count and if count is 1, get message info
3079: FND_MSG_PUB.Count_And_Get
3080: ( p_count => x_msg_count,
3081: p_data => x_msg_data,
3082: p_encoded => fnd_api.g_false);
3083:
3091: EXCEPTION
3092: WHEN FND_API.G_EXC_ERROR THEN
3093: x_return_status := FND_API.G_RET_STS_ERROR;
3094: Rollback to Initiate_Itemgroup_Appr;
3095: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3096: p_data => x_msg_data,
3097: p_encoded => fnd_api.g_false);
3098: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
3099: THEN
3105:
3106: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3107: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3108: Rollback to Initiate_Itemgroup_Appr;
3109: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3110: p_data => x_msg_data,
3111: p_encoded => fnd_api.g_false);
3112: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
3113: THEN
3118:
3119: WHEN OTHERS THEN
3120: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3121: Rollback to Initiate_Itemgroup_Appr;
3122: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3123: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
3124: p_procedure_name => 'Initiate_Itemgroup_Appr',
3125: p_error_text => SUBSTR(SQLERRM,1,240));
3126: END IF;
3119: WHEN OTHERS THEN
3120: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3121: Rollback to Initiate_Itemgroup_Appr;
3122: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3123: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
3124: p_procedure_name => 'Initiate_Itemgroup_Appr',
3125: p_error_text => SUBSTR(SQLERRM,1,240));
3126: END IF;
3127: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3123: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
3124: p_procedure_name => 'Initiate_Itemgroup_Appr',
3125: p_error_text => SUBSTR(SQLERRM,1,240));
3126: END IF;
3127: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3128: p_data => x_msg_data,
3129: p_encoded => fnd_api.g_false);
3130:
3131: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
3275:
3276: -- Standard call to check for call compatibility.
3277:
3278: IF FND_API.to_boolean(l_init_msg_list) THEN
3279: FND_MSG_PUB.initialize;
3280: END IF;
3281:
3282: -- Initialize API return status to success
3283:
3294: OPEN get_itemgroup_det(p_source_ItemGroup_id);
3295: Fetch get_itemgroup_det into l_itemgroup_det;
3296: IF get_itemgroup_det%NOTFOUND THEN
3297: FND_MESSAGE.SET_NAME('AHL','AHL_MC_OBJECT_ID_NULL');
3298: FND_MSG_PUB.ADD;
3299: END IF;
3300: close get_itemgroup_det;
3301:
3302:
3303: IF l_itemgroup_det.Status_Code <> 'COMPLETE'
3304: THEN
3305: FND_MESSAGE.SET_NAME('AHL','AHL_MC_IG_STAT_NOT_COMP');
3306: FND_MESSAGE.Set_Token('IG',l_itemgroup_det.name);
3307: FND_MSG_PUB.ADD;
3308: END IF;
3309:
3310:
3311: IF l_itemgroup_det.object_version_number <> p_object_version_number
3310:
3311: IF l_itemgroup_det.object_version_number <> p_object_version_number
3312: THEN
3313: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD');
3314: FND_MSG_PUB.ADD;
3315: END IF;
3316:
3317:
3318: OPEN get_revision_info(p_source_ItemGroup_id);
3318: OPEN get_revision_info(p_source_ItemGroup_id);
3319: FETCH get_revision_info INTO l_dummy;
3320: IF get_revision_info%FOUND THEN
3321: FND_MESSAGE.SET_NAME('AHL','AHL_MC_IG_REVISION_EXIST');
3322: FND_MSG_PUB.ADD;
3323: END IF;
3324: CLOSE get_revision_info;
3325:
3326:
3324: CLOSE get_revision_info;
3325:
3326:
3327:
3328: l_msg_count := FND_MSG_PUB.count_msg;
3329:
3330: IF l_msg_count > 0
3331: THEN
3332: X_msg_count := l_msg_count;
3488: EXCEPTION
3489: WHEN FND_API.G_EXC_ERROR THEN
3490: x_return_status := FND_API.G_RET_STS_ERROR;
3491: Rollback to Create_ItemGroup_Revision;
3492: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3493: p_data => x_msg_data,
3494: p_encoded => fnd_api.g_false);
3495: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
3496: THEN
3501:
3502: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3503: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3504: Rollback to Create_ItemGroup_Revision;
3505: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3506: p_data => x_msg_data,
3507: p_encoded => fnd_api.g_false);
3508: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
3509: THEN
3514:
3515: WHEN OTHERS THEN
3516: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3517: Rollback to Create_ItemGroup_Revision;
3518: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3519: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
3520: p_procedure_name => 'Create_ItemGroup_Revision',
3521: p_error_text => SUBSTR(SQLERRM,1,240));
3522: END IF;
3515: WHEN OTHERS THEN
3516: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3517: Rollback to Create_ItemGroup_Revision;
3518: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3519: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
3520: p_procedure_name => 'Create_ItemGroup_Revision',
3521: p_error_text => SUBSTR(SQLERRM,1,240));
3522: END IF;
3523: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3519: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
3520: p_procedure_name => 'Create_ItemGroup_Revision',
3521: p_error_text => SUBSTR(SQLERRM,1,240));
3522: END IF;
3523: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3524: p_data => x_msg_data,
3525: p_encoded => fnd_api.g_false);
3526: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
3527: THEN
3899:
3900: -- Standard call to check for call compatibility.
3901:
3902: IF FND_API.to_boolean(l_init_msg_list) THEN
3903: FND_MSG_PUB.initialize;
3904: END IF;
3905:
3906: -- Initialize API return status to success
3907:
3919: FETCH get_itemgroup_det INTO l_itemgroup_det;
3920: IF get_itemgroup_det%NOTFOUND
3921: THEN
3922: FND_MESSAGE.SET_NAME('AHL','AHL_MC_OBJECT_ID_NULL');
3923: FND_MSG_PUB.ADD;
3924: END IF;
3925: CLOSE get_itemgroup_det;
3926:
3927: IF l_itemgroup_det.object_version_number <> p_object_version_number
3926:
3927: IF l_itemgroup_det.object_version_number <> p_object_version_number
3928: THEN
3929: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD');
3930: FND_MSG_PUB.ADD;
3931: END IF;
3932:
3933:
3934: l_msg_count := FND_MSG_PUB.count_msg;
3930: FND_MSG_PUB.ADD;
3931: END IF;
3932:
3933:
3934: l_msg_count := FND_MSG_PUB.count_msg;
3935:
3936: IF l_msg_count > 0
3937: THEN
3938: X_msg_count := l_msg_count;
4154: EXCEPTION
4155: WHEN FND_API.G_EXC_ERROR THEN
4156: x_return_status := FND_API.G_RET_STS_ERROR;
4157: Rollback to Approve_ItemGroups;
4158: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
4159: p_data => x_msg_data,
4160: p_encoded => fnd_api.g_false);
4161:
4162: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
4168:
4169: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4170: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4171: Rollback to Approve_ItemGroups;
4172: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
4173: p_data => x_msg_data,
4174: p_encoded => fnd_api.g_false);
4175:
4176: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
4181:
4182: WHEN OTHERS THEN
4183: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4184: Rollback to Approve_ItemGroups;
4185: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4186: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
4187: p_procedure_name => 'Approve_ItemGroups',
4188: p_error_text => SUBSTR(SQLERRM,1,240));
4189: END IF;
4182: WHEN OTHERS THEN
4183: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4184: Rollback to Approve_ItemGroups;
4185: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4186: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
4187: p_procedure_name => 'Approve_ItemGroups',
4188: p_error_text => SUBSTR(SQLERRM,1,240));
4189: END IF;
4190: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
4186: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
4187: p_procedure_name => 'Approve_ItemGroups',
4188: p_error_text => SUBSTR(SQLERRM,1,240));
4189: END IF;
4190: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
4191: p_data => x_msg_data,
4192: p_encoded => fnd_api.g_false);
4193:
4194: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
4261:
4262: -- Initialize message list if p_init_msg_list is set to TRUE
4263: IF FND_API.TO_BOOLEAN(p_init_msg_list)
4264: THEN
4265: FND_MSG_PUB.Initialize;
4266: END IF;
4267:
4268: -- Initialize API return status to success
4269: x_return_status := FND_API.G_RET_STS_SUCCESS;
4286: IF (get_itemgroup_details%NOTFOUND)
4287: THEN
4288: CLOSE get_itemgroup_details;
4289: FND_MESSAGE.Set_Name('AHL', 'AHL_COM_RECORD_DELETED');
4290: FND_MSG_PUB.ADD;
4291: RAISE FND_API.G_EXC_ERROR;
4292: ELSIF (l_obj_ver_num <> p_object_version_number)
4293: THEN
4294: CLOSE get_itemgroup_details;
4292: ELSIF (l_obj_ver_num <> p_object_version_number)
4293: THEN
4294: CLOSE get_itemgroup_details;
4295: FND_MESSAGE.Set_Name('AHL', 'AHL_COM_RECORD_CHANGED');
4296: FND_MSG_PUB.ADD;
4297: RAISE FND_API.G_EXC_ERROR;
4298: ELSIF (l_status <> 'DRAFT' or nvl(l_source_id, 0) <= 0)
4299: THEN
4300: CLOSE get_itemgroup_details;
4298: ELSIF (l_status <> 'DRAFT' or nvl(l_source_id, 0) <= 0)
4299: THEN
4300: CLOSE get_itemgroup_details;
4301: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_IG_NOUPDATE');
4302: FND_MSG_PUB.ADD;
4303: RAISE FND_API.G_EXC_ERROR;
4304: END IF;
4305: CLOSE get_itemgroup_details;
4306:
4317: IF (check_position_exists%NOTFOUND)
4318: THEN
4319: CLOSE check_position_exists;
4320: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_NODE_NOT_FOUND');
4321: FND_MSG_PUB.ADD;
4322: ELSIF (p_nodes_tbl(i).operation_flag = 'C')
4323: THEN
4324: UPDATE ahl_mc_relationships
4325: SET temp_item_group_id = p_item_group_id
4333: CLOSE check_position_exists;
4334: END LOOP;
4335:
4336: -- Check Error Message stack.
4337: x_msg_count := FND_MSG_PUB.count_msg;
4338: IF x_msg_count > 0 THEN
4339: RAISE FND_API.G_EXC_ERROR;
4340: END IF;
4341: END IF;
4351: END IF;
4352: -- API body ends here
4353:
4354: -- Check Error Message stack.
4355: x_msg_count := FND_MSG_PUB.count_msg;
4356: IF x_msg_count > 0 THEN
4357: RAISE FND_API.G_EXC_ERROR;
4358: END IF;
4359:
4363: COMMIT WORK;
4364: END IF;
4365:
4366: -- Standard call to get message count and if count is 1, get message info
4367: FND_MSG_PUB.count_and_get
4368: (
4369: p_count => x_msg_count,
4370: p_data => x_msg_data,
4371: p_encoded => FND_API.G_FALSE
4374: EXCEPTION
4375: WHEN FND_API.G_EXC_ERROR THEN
4376: x_return_status := FND_API.G_RET_STS_ERROR;
4377: Rollback to Modify_Position_Assos_SP;
4378: FND_MSG_PUB.count_and_get
4379: (
4380: p_count => x_msg_count,
4381: p_data => x_msg_data,
4382: p_encoded => FND_API.G_FALSE
4384:
4385: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4387: Rollback to Modify_Position_Assos_SP;
4388: FND_MSG_PUB.count_and_get
4389: (
4390: p_count => x_msg_count,
4391: p_data => x_msg_data,
4392: p_encoded => FND_API.G_FALSE
4394:
4395: WHEN OTHERS THEN
4396: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4397: Rollback to Modify_Position_Assos_SP;
4398: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4399: THEN
4400: FND_MSG_PUB.add_exc_msg
4401: (
4402: p_pkg_name => G_PKG_NAME,
4396: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4397: Rollback to Modify_Position_Assos_SP;
4398: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4399: THEN
4400: FND_MSG_PUB.add_exc_msg
4401: (
4402: p_pkg_name => G_PKG_NAME,
4403: p_procedure_name => 'Modify_Position_Assos',
4404: p_error_text => SUBSTR(SQLERRM,1,240)
4403: p_procedure_name => 'Modify_Position_Assos',
4404: p_error_text => SUBSTR(SQLERRM,1,240)
4405: );
4406: END IF;
4407: FND_MSG_PUB.count_and_get
4408: (
4409: p_count => x_msg_count,
4410: p_data => x_msg_data,
4411: p_encoded => FND_API.G_FALSE