[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;
923: -- SATHAPLI::Bug 9891818, 20-July-2010, replaced the following non-existent error message with an existing one
924: -- FND_MESSAGE.Set_Name('AHL','AHL_MC_IG_ASSOS_NOT_EXISTS');
925: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_IA_INVALID'); -- Invalid association of item ITEM.
926: FND_MESSAGE.Set_Token('ITEM', l_x_item_assoc_rec.inventory_item_name);
927: FND_MSG_PUB.ADD;
928: --dbms_output.put_line('Item Assoc does not exist');
929: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
930: END IF;
931:
954: 'ahl_mc_itemgroup_pvt.Validate_Item_Assoc', l_item_key);
955: END IF;
956:
957: FND_MESSAGE.Set_Name('AHL','AHL_COM_KEY_NOUPDATE');
958: FND_MSG_PUB.ADD;
959: --dbms_output.put_line('Primary key cannot be updated');
960: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
961: END IF;
962:
1028: IF (l_inventory_item_revision = '000') THEN
1029: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEM_ASSOC_DUP');
1030: FND_MESSAGE.Set_Token('GRP_NAME',p_name);
1031: FND_MESSAGE.Set_Token('INV_ITEM',l_inv_segment);
1032: FND_MSG_PUB.ADD;
1033: --dbms_output.put_line('Item already exists in the list');
1034: ELSE
1035: -- if two lines have the same Revision, show new error message with Revision
1036: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEM_ASSOC_REV_DUP');
1035: -- if two lines have the same Revision, show new error message with Revision
1036: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEM_ASSOC_REV_DUP');
1037: FND_MESSAGE.Set_Token('GRP_NAME',p_name);
1038: FND_MESSAGE.Set_Token('INV_ITEM',l_inventory_item_revision || ',' || l_inv_segment);
1039: FND_MSG_PUB.ADD;
1040: END IF;
1041: ELSE
1042: -- match not found, so add to the associative array p_x_inventory_list.
1043: -- p_x_inventory_list := p_x_inventory_list || l_inventory_item_id || '-' || l_inventory_org_id || '-' || l_inventory_item_revision || ':' ;
1084: l_x_item_assoc_rec.INTERCHANGE_TYPE_CODE = G_FND_1WAY_CODE AND
1085: l_x_item_assoc_rec.INTERCHANGE_REASON IS NULL) THEN
1086: FND_MESSAGE.Set_Name('AHL','AHL_MC_INV_1WAY_MISSING_REASON');
1087: FND_MESSAGE.Set_Token('INV_ITEM',l_inv_segment);
1088: FND_MSG_PUB.ADD;
1089: END IF;
1090: END IF;
1091:
1092:
1096: IF (l_x_item_assoc_rec.priority <= 0) THEN
1097: FND_MESSAGE.Set_Name('AHL','AHL_MC_PRIORITY_INVALID');
1098: FND_MESSAGE.Set_Token('INV_ITEM',l_inv_segment);
1099: FND_MESSAGE.Set_Token('PRIORITY',l_x_item_assoc_rec.priority);
1100: FND_MSG_PUB.ADD;
1101: --dbms_output.put_line('Invalid priority');
1102: END IF;
1103: ELSIF l_x_item_assoc_rec.operation_flag = 'C' OR
1104: (l_x_item_assoc_rec.operation_flag = 'M' AND l_x_item_assoc_rec.priority = FND_API.G_MISS_NUM) THEN
1103: ELSIF l_x_item_assoc_rec.operation_flag = 'C' OR
1104: (l_x_item_assoc_rec.operation_flag = 'M' AND l_x_item_assoc_rec.priority = FND_API.G_MISS_NUM) THEN
1105: FND_MESSAGE.Set_Name('AHL','AHL_MC_PRIORITY_NULL');
1106: FND_MESSAGE.Set_Token('INV_ITEM',l_inv_segment);
1107: FND_MSG_PUB.ADD;
1108: --dbms_output.put_line('Null priority');
1109: END IF;
1110:
1111: -- set quantity and uom values into local variables for validation.
1157: l_quantity = 0 OR
1158: l_quantity = FND_API.G_MISS_NUM) THEN
1159: FND_MESSAGE.Set_Name('AHL','AHL_MC_SRLQTY_NULL');
1160: FND_MESSAGE.Set_Token('INV_ITEM',l_inv_segment);
1161: FND_MSG_PUB.ADD;
1162: --dbms_output.put_line('Invalid UOM code for the item');
1163: ELSE
1164: IF (l_quantity <> 1) THEN
1165: FND_MESSAGE.Set_Name('AHL','AHL_UC_SRLQTY_MISMATCH');
1164: IF (l_quantity <> 1) THEN
1165: FND_MESSAGE.Set_Name('AHL','AHL_UC_SRLQTY_MISMATCH');
1166: FND_MESSAGE.Set_Token('QTY',l_quantity);
1167: FND_MESSAGE.Set_Token('INV_ITEM',l_inv_segment);
1168: FND_MSG_PUB.ADD;
1169: --dbms_output.put_line('For serialized items Quantity must be 1');
1170: END IF;
1171: END IF;
1172: END IF;
1484: FETCH Item_assoc_csr INTO l_old_item_assoc_rec;
1485: IF (Item_assoc_csr%NOTFOUND) THEN
1486: CLOSE Item_assoc_csr;
1487: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_DELETED');
1488: FND_MSG_PUB.ADD;
1489: --dbms_output.put_line('Item Assoc does not exist');
1490: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1491: END IF;
1492:
1493: -- Check Object version number.
1494: IF (l_old_item_assoc_rec.object_version_number <> l_item_assoc_rec.object_version_number) THEN
1495: CLOSE Item_assoc_csr;
1496: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
1497: FND_MSG_PUB.ADD;
1498: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1499: END IF;
1500:
1501: -- Check for changed columns.
1695: FETCH Item_assoc_csr INTO l_object_version_number;
1696: IF (Item_assoc_csr%NOTFOUND) THEN
1697: CLOSE Item_assoc_csr;
1698: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_DELETED');
1699: FND_MSG_PUB.ADD;
1700: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1701: END IF;
1702:
1703: -- Check Object version number.
1703: -- Check Object version number.
1704: IF (l_object_version_number <> p_item_assoc_rec.object_version_number) THEN
1705: CLOSE Item_assoc_csr;
1706: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
1707: FND_MSG_PUB.ADD;
1708: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1709: END IF;
1710:
1711: -- Delete record.
1765: END IF;
1766:
1767: -- Initialize message list if p_init_msg_list is set to TRUE
1768: IF FND_API.To_Boolean(p_init_msg_list) THEN
1769: FND_MSG_PUB.Initialize;
1770: END IF;
1771:
1772: -- Initialize API return status to success
1773: x_return_status := FND_API.G_RET_STS_SUCCESS;
1817: END IF;
1818:
1819:
1820: -- Check Error Message stack.
1821: x_msg_count := FND_MSG_PUB.count_msg;
1822: IF x_msg_count > 0 THEN
1823: RAISE FND_API.G_EXC_ERROR;
1824: END IF;
1825:
1871: END IF;
1872:
1873:
1874: -- Standard call to get message count and if count is 1, get message info
1875: FND_MSG_PUB.Count_And_Get
1876: ( p_count => x_msg_count,
1877: p_data => x_msg_data,
1878: p_encoded => fnd_api.g_false);
1879:
1880: EXCEPTION
1881: WHEN FND_API.G_EXC_ERROR THEN
1882: x_return_status := FND_API.G_RET_STS_ERROR;
1883: Rollback to Create_Item_group_pvt;
1884: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1885: p_data => x_msg_data,
1886: p_encoded => fnd_api.g_false);
1887: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
1888: THEN
1894:
1895: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1896: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1897: Rollback to Create_Item_group_pvt;
1898: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1899: p_data => x_msg_data,
1900: p_encoded => fnd_api.g_false);
1901: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
1902: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
1908:
1909: WHEN OTHERS THEN
1910: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1911: Rollback to Create_Item_group_pvt;
1912: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1913: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1914: p_procedure_name => 'Create_Item_group',
1915: p_error_text => SQLERRM);
1916: END IF;
1909: WHEN OTHERS THEN
1910: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1911: Rollback to Create_Item_group_pvt;
1912: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1913: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1914: p_procedure_name => 'Create_Item_group',
1915: p_error_text => SQLERRM);
1916: END IF;
1917: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1913: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1914: p_procedure_name => 'Create_Item_group',
1915: p_error_text => SQLERRM);
1916: END IF;
1917: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1918: p_data => x_msg_data,
1919: p_encoded => fnd_api.g_false);
1920: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
1921:
2024: END IF;
2025:
2026: -- Initialize message list if p_init_msg_list is set to TRUE
2027: IF FND_API.To_Boolean(p_init_msg_list) THEN
2028: FND_MSG_PUB.Initialize;
2029: END IF;
2030:
2031: -- Initialize API return status to success
2032: x_return_status := FND_API.G_RET_STS_SUCCESS;
2041: FETCH Item_group_csr INTO l_old_item_group_rec;
2042: IF (Item_group_csr%NOTFOUND) THEN
2043: CLOSE Item_group_csr;
2044: FND_MESSAGE.Set_Name('AHL','AHL_MC_IG_NOT_EXISTS');
2045: FND_MSG_PUB.ADD;
2046: --dbms_output.put_line('Item Group does not exist');
2047: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2048: END IF;
2049:
2053: IF (NVL(l_old_item_group_rec.sourced_from_enigma_flag, 'N') = 'N' AND
2054: l_old_item_group_rec.object_version_number <> NVL(p_item_group_rec.object_version_number,0)) THEN
2055: CLOSE Item_group_csr;
2056: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
2057: FND_MSG_PUB.ADD;
2058: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2059: END IF;
2060:
2061: -- Check name
2062: -- TAMAL -- IG Amendments --
2063: IF (l_old_item_group_rec.status_code = 'DRAFT' and l_old_item_group_rec.source_item_group_id is not null)
2064: THEN
2065: 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);
2066: x_msg_count := FND_MSG_PUB.count_msg;
2067: IF x_msg_count > 0
2068: THEN
2069: CLOSE Item_group_csr;
2070: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2074: ELSIF (l_old_item_group_rec.name <> p_item_group_rec.name )
2075: THEN
2076: CLOSE Item_group_csr;
2077: FND_MESSAGE.Set_Name('AHL','AHL_COM_KEY_NOUPDATE');
2078: FND_MSG_PUB.ADD;
2079: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2080: END IF;
2081:
2082: -- SATHAPLI::Enigma Phase II integration, 01-Mar-2010, bypass the following check for Enigma sourced item groups
2086: THEN
2087: CLOSE Item_group_csr;
2088: FND_MESSAGE.Set_Name('AHL','AHL_MC_IG_NOUPDATE');
2089: FND_MESSAGE.Set_Token('STATUS',p_item_group_rec.status_code);
2090: FND_MSG_PUB.ADD;
2091: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2092: --dbms_output.put_line('Item Group cannot be updated if status is Complete or Approval Rejected');
2093: END IF;
2094:
2096:
2097: IF (p_item_group_rec.status_code <> l_old_item_group_rec.status_code)
2098: THEN
2099: FND_MESSAGE.Set_Name('AHL','AHL_MC_IG_STAT_NOUPDATE');
2100: FND_MSG_PUB.ADD;
2101: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2102: --dbms_output.put_line('Item Group Status cannot be updated');
2103: END IF;
2104: END IF;
2106: IF (p_item_group_rec.type_code <> FND_API.G_MISS_CHAR) THEN
2107: IF (p_item_group_rec.type_code <> l_old_item_group_rec.type_code)
2108: THEN
2109: FND_MESSAGE.Set_Name('AHL','AHL_MC_IG_TYPE_NOUPDATE');
2110: FND_MSG_PUB.ADD;
2111: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2112: --dbms_output.put_line('Item Group Type cannot be updated');
2113: END IF;
2114:
2129: IF (p_x_items_tbl(i).item_group_id <> p_item_group_rec.item_group_id) THEN
2130: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEMGRP_MISMATCH');
2131: FND_MESSAGE.Set_Token('ITEM_GRP',p_item_group_rec.item_group_id);
2132: FND_MESSAGE.Set_Token('ASSO_GRP',p_x_items_tbl(i).item_group_id);
2133: FND_MSG_PUB.ADD;
2134: --dbms_output.put_line('Item Association record does not match Item Group');
2135: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2136: END IF;
2137:
2152: 'ahl.plsql.ahl_mc_itemgroup_pvt.Modify_Item_group', 'End of Loop');
2153: END IF;
2154:
2155: -- Check Error Message stack.
2156: x_msg_count := FND_MSG_PUB.count_msg;
2157: IF x_msg_count > 0 THEN
2158: RAISE FND_API.G_EXC_ERROR;
2159: END IF;
2160:
2433: validate_IG_revision(l_old_item_group_rec.item_group_id);
2434: --Priyan End
2435:
2436: -- Standard call to get message count and if count is 1, get message info
2437: FND_MSG_PUB.Count_And_Get
2438: ( p_count => x_msg_count,
2439: p_data => x_msg_data,
2440: p_encoded => fnd_api.g_false);
2441:
2449: EXCEPTION
2450: WHEN FND_API.G_EXC_ERROR THEN
2451: x_return_status := FND_API.G_RET_STS_ERROR;
2452: Rollback to Modify_Item_group_pvt;
2453: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2454: p_data => x_msg_data,
2455: p_encoded => fnd_api.g_false);
2456: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
2457:
2463:
2464: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2465: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2466: Rollback to Modify_Item_group_pvt;
2467: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2468: p_data => x_msg_data,
2469: p_encoded => fnd_api.g_false);
2470: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
2471: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2476:
2477: WHEN OTHERS THEN
2478: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2479: Rollback to Modify_Item_group_pvt;
2480: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2481: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2482: p_procedure_name => 'Modify_Item_Group',
2483: p_error_text => SUBSTR(SQLERRM,1,240));
2484: END IF;
2477: WHEN OTHERS THEN
2478: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2479: Rollback to Modify_Item_group_pvt;
2480: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2481: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2482: p_procedure_name => 'Modify_Item_Group',
2483: p_error_text => SUBSTR(SQLERRM,1,240));
2484: END IF;
2485: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2481: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2482: p_procedure_name => 'Modify_Item_Group',
2483: p_error_text => SUBSTR(SQLERRM,1,240));
2484: END IF;
2485: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2486: p_data => x_msg_data,
2487: p_encoded => fnd_api.g_false);
2488: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
2489:
2575: END IF;
2576:
2577: -- Initialize message list if p_init_msg_list is set to TRUE
2578: IF FND_API.To_Boolean(p_init_msg_list) THEN
2579: FND_MSG_PUB.Initialize;
2580: END IF;
2581:
2582: -- Initialize API return status to success
2583: x_return_status := FND_API.G_RET_STS_SUCCESS;
2595: IF (Item_group_csr%NOTFOUND) THEN
2596: CLOSE Item_group_csr;
2597: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEMGRP_INVALID');
2598: FND_MESSAGE.Set_Token('ITEM_GRP',l_item_group_rec.name);
2599: FND_MSG_PUB.ADD;
2600: --dbms_output.put_line('Item Group does not exist');
2601: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2602: END IF;
2603:
2604: -- Check Object version number.
2605: IF (l_item_group_rec.object_version_number <> p_item_group_rec.object_version_number) THEN
2606: CLOSE Item_group_csr;
2607: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
2608: FND_MSG_PUB.ADD;
2609: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2610: END IF;
2611:
2612: -- Check if this item group has any positions associated.
2614: FETCH ahl_relationships_csr INTO l_dummy;
2615: IF (ahl_relationships_csr%FOUND) THEN
2616: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEMGRP_POSN_EXISTS');
2617: FND_MESSAGE.Set_Token('ITEM_GRP',l_item_group_rec.name);
2618: FND_MSG_PUB.ADD;
2619: --dbms_output.put_line('Positions exist for this item group');
2620: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2621: END IF;
2622:
2627: FETCH ahl_item_comp_csr INTO l_dummy;
2628: IF (ahl_item_comp_csr%FOUND) THEN
2629: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEMGRP_COMP_EXISTS');
2630: FND_MESSAGE.Set_Token('ITEM_GRP',l_item_group_rec.name);
2631: FND_MSG_PUB.ADD;
2632: --dbms_output.put_line('Positions exist for this item group');
2633: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2634: END IF;
2635:
2640:
2641: IF l_item_group_rec.status_code ='APPROVAL_PENDING'
2642: THEN
2643: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEMGRP_APPR_PEND');
2644: FND_MSG_PUB.ADD;
2645: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2646: END IF;
2647:
2648:
2648:
2649: IF l_item_group_rec.status_code ='REMOVED'
2650: THEN
2651: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEMGRP_REMOVED');
2652: FND_MSG_PUB.ADD;
2653: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2654: END IF;
2655:
2656:
2713:
2714: CLOSE Item_group_csr;
2715:
2716: -- Standard call to get message count and if count is 1, get message info
2717: FND_MSG_PUB.Count_And_Get
2718: ( p_count => x_msg_count,
2719: p_data => x_msg_data,
2720: p_encoded => fnd_api.g_false);
2721:
2730: EXCEPTION
2731: WHEN FND_API.G_EXC_ERROR THEN
2732: x_return_status := FND_API.G_RET_STS_ERROR;
2733: Rollback to Remove_Item_group_pvt;
2734: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2735: p_data => x_msg_data,
2736: p_encoded => fnd_api.g_false);
2737:
2738: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
2743:
2744: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2745: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2746: Rollback to Remove_Item_group_pvt;
2747: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2748: p_data => x_msg_data,
2749: p_encoded => fnd_api.g_false);
2750: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
2751: THEN
2756:
2757: WHEN OTHERS THEN
2758: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2759: Rollback to Remove_Item_group_pvt;
2760: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2761: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2762: p_procedure_name => 'Remove_Item_Group',
2763: p_error_text => SUBSTR(SQLERRM,1,240));
2764: END IF;
2757: WHEN OTHERS THEN
2758: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2759: Rollback to Remove_Item_group_pvt;
2760: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2761: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2762: p_procedure_name => 'Remove_Item_Group',
2763: p_error_text => SUBSTR(SQLERRM,1,240));
2764: END IF;
2765: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2761: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2762: p_procedure_name => 'Remove_Item_Group',
2763: p_error_text => SUBSTR(SQLERRM,1,240));
2764: END IF;
2765: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2766: p_data => x_msg_data,
2767: p_encoded => fnd_api.g_false);
2768: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
2769: THEN
2888:
2889: -- Standard call to check for call compatibility.
2890:
2891: IF FND_API.to_boolean(l_init_msg_list) THEN
2892: FND_MSG_PUB.initialize;
2893: END IF;
2894:
2895: -- Initialize API return status to success
2896:
2917:
2918: IF p_object_Version_number is null or p_object_Version_number=FND_API.G_MISS_NUM
2919: THEN
2920: FND_MESSAGE.SET_NAME('AHL','AHL_MC_OBJ_VERSION_NULL');
2921: FND_MSG_PUB.ADD;
2922: END IF;
2923:
2924: IF p_source_item_group_id is null or p_source_item_group_id = FND_API.G_MISS_NUM
2925: THEN
2923:
2924: IF p_source_item_group_id is null or p_source_item_group_id = FND_API.G_MISS_NUM
2925: THEN
2926: FND_MESSAGE.SET_NAME('AHL','AHL_MC_OBJECT_ID_NULL');
2927: FND_MSG_PUB.ADD;
2928: ELSE
2929: OPEN get_Itemgroup_Det(p_source_item_group_id);
2930: FETCH get_Itemgroup_Det INTO l_itemgroup_rec;
2931: CLOSE get_Itemgroup_Det;
2937: FETCH Item_group_name INTO l_dummy;
2938: IF Item_group_name%FOUND
2939: THEN
2940: FND_MESSAGE.SET_NAME('AHL','AHL_MC_IG_MOD_NAME');
2941: FND_MSG_PUB.ADD;
2942: CLOSE Item_group_name;
2943: RAISE FND_API.G_EXC_ERROR;
2944: END IF;
2945: CLOSE Item_group_name;
2963:
2964: ELSE
2965: FND_MESSAGE.SET_NAME('AHL','AHL_MC_IG_STAT_NOT_DRFT');
2966: FND_MESSAGE.set_token('IG',l_itemgroup_rec.name,false);
2967: FND_MSG_PUB.ADD;
2968: END IF;
2969: ELSE
2970: FND_MESSAGE.SET_NAME('AHL','AHL_APPR_TYPE_CODE_MISSING');
2971: FND_MSG_PUB.ADD;
2967: FND_MSG_PUB.ADD;
2968: END IF;
2969: ELSE
2970: FND_MESSAGE.SET_NAME('AHL','AHL_APPR_TYPE_CODE_MISSING');
2971: FND_MSG_PUB.ADD;
2972: END IF;
2973:
2974: OPEN validate_item_group(p_source_item_group_id);
2975: FETCH validate_item_group INTO l_dummy;
2974: OPEN validate_item_group(p_source_item_group_id);
2975: FETCH validate_item_group INTO l_dummy;
2976: IF validate_item_group%NOTFOUND THEN
2977: FND_MESSAGE.SET_NAME('AHL','AHL_MC_IG_INTERCHANGE_INAVLID');
2978: FND_MSG_PUB.ADD;
2979: END IF;
2980: CLOSE validate_item_group;
2981:
2982: OPEN validate_item_group_positions(p_source_item_group_id);
2983: FETCH validate_item_group_positions INTO l_dummy;
2984: IF validate_item_group_positions%FOUND THEN
2985: FND_MESSAGE.SET_NAME('AHL','AHL_MC_PAR_QTY_INV');
2986: FND_MESSAGE.set_token('POSREF','');
2987: FND_MSG_PUB.ADD;
2988: END IF;
2989: CLOSE validate_item_group_positions;
2990:
2991:
2991:
2992:
2993: END IF;
2994:
2995: l_msg_count := FND_MSG_PUB.count_msg;
2996:
2997: IF l_msg_count > 0
2998: THEN
2999: X_msg_count := l_msg_count;
3018:
3019: IF sql%rowcount=0
3020: THEN
3021: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
3022: FND_MSG_PUB.ADD;
3023: RAISE FND_API.G_EXC_ERROR;
3024: END IF;
3025:
3026: IF l_ACTIVE='Y'
3069: p_object_version_number =>p_object_Version_number+1
3070: );
3071: END IF ;
3072:
3073: l_msg_count := FND_MSG_PUB.count_msg;
3074:
3075: IF l_msg_count > 0
3076: THEN
3077: X_msg_count := l_msg_count;
3085: COMMIT WORK;
3086: END IF;
3087:
3088: -- Standard call to get message count and if count is 1, get message info
3089: FND_MSG_PUB.Count_And_Get
3090: ( p_count => x_msg_count,
3091: p_data => x_msg_data,
3092: p_encoded => fnd_api.g_false);
3093:
3101: EXCEPTION
3102: WHEN FND_API.G_EXC_ERROR THEN
3103: x_return_status := FND_API.G_RET_STS_ERROR;
3104: Rollback to Initiate_Itemgroup_Appr;
3105: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3106: p_data => x_msg_data,
3107: p_encoded => fnd_api.g_false);
3108: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
3109: THEN
3115:
3116: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3117: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3118: Rollback to Initiate_Itemgroup_Appr;
3119: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3120: p_data => x_msg_data,
3121: p_encoded => fnd_api.g_false);
3122: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
3123: THEN
3128:
3129: WHEN OTHERS THEN
3130: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3131: Rollback to Initiate_Itemgroup_Appr;
3132: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3133: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
3134: p_procedure_name => 'Initiate_Itemgroup_Appr',
3135: p_error_text => SUBSTR(SQLERRM,1,240));
3136: END IF;
3129: WHEN OTHERS THEN
3130: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3131: Rollback to Initiate_Itemgroup_Appr;
3132: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3133: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
3134: p_procedure_name => 'Initiate_Itemgroup_Appr',
3135: p_error_text => SUBSTR(SQLERRM,1,240));
3136: END IF;
3137: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3133: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
3134: p_procedure_name => 'Initiate_Itemgroup_Appr',
3135: p_error_text => SUBSTR(SQLERRM,1,240));
3136: END IF;
3137: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3138: p_data => x_msg_data,
3139: p_encoded => fnd_api.g_false);
3140:
3141: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
3285:
3286: -- Standard call to check for call compatibility.
3287:
3288: IF FND_API.to_boolean(l_init_msg_list) THEN
3289: FND_MSG_PUB.initialize;
3290: END IF;
3291:
3292: -- Initialize API return status to success
3293:
3304: OPEN get_itemgroup_det(p_source_ItemGroup_id);
3305: Fetch get_itemgroup_det into l_itemgroup_det;
3306: IF get_itemgroup_det%NOTFOUND THEN
3307: FND_MESSAGE.SET_NAME('AHL','AHL_MC_OBJECT_ID_NULL');
3308: FND_MSG_PUB.ADD;
3309: END IF;
3310: close get_itemgroup_det;
3311:
3312:
3313: IF l_itemgroup_det.Status_Code <> 'COMPLETE'
3314: THEN
3315: FND_MESSAGE.SET_NAME('AHL','AHL_MC_IG_STAT_NOT_COMP');
3316: FND_MESSAGE.Set_Token('IG',l_itemgroup_det.name);
3317: FND_MSG_PUB.ADD;
3318: END IF;
3319:
3320:
3321: IF l_itemgroup_det.object_version_number <> p_object_version_number
3320:
3321: IF l_itemgroup_det.object_version_number <> p_object_version_number
3322: THEN
3323: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD');
3324: FND_MSG_PUB.ADD;
3325: END IF;
3326:
3327:
3328: OPEN get_revision_info(p_source_ItemGroup_id);
3328: OPEN get_revision_info(p_source_ItemGroup_id);
3329: FETCH get_revision_info INTO l_dummy;
3330: IF get_revision_info%FOUND THEN
3331: FND_MESSAGE.SET_NAME('AHL','AHL_MC_IG_REVISION_EXIST');
3332: FND_MSG_PUB.ADD;
3333: END IF;
3334: CLOSE get_revision_info;
3335:
3336:
3334: CLOSE get_revision_info;
3335:
3336:
3337:
3338: l_msg_count := FND_MSG_PUB.count_msg;
3339:
3340: IF l_msg_count > 0
3341: THEN
3342: X_msg_count := l_msg_count;
3498: EXCEPTION
3499: WHEN FND_API.G_EXC_ERROR THEN
3500: x_return_status := FND_API.G_RET_STS_ERROR;
3501: Rollback to Create_ItemGroup_Revision;
3502: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3503: p_data => x_msg_data,
3504: p_encoded => fnd_api.g_false);
3505: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
3506: THEN
3511:
3512: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3513: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3514: Rollback to Create_ItemGroup_Revision;
3515: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3516: p_data => x_msg_data,
3517: p_encoded => fnd_api.g_false);
3518: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
3519: THEN
3524:
3525: WHEN OTHERS THEN
3526: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3527: Rollback to Create_ItemGroup_Revision;
3528: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3529: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
3530: p_procedure_name => 'Create_ItemGroup_Revision',
3531: p_error_text => SUBSTR(SQLERRM,1,240));
3532: END IF;
3525: WHEN OTHERS THEN
3526: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3527: Rollback to Create_ItemGroup_Revision;
3528: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3529: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
3530: p_procedure_name => 'Create_ItemGroup_Revision',
3531: p_error_text => SUBSTR(SQLERRM,1,240));
3532: END IF;
3533: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3529: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
3530: p_procedure_name => 'Create_ItemGroup_Revision',
3531: p_error_text => SUBSTR(SQLERRM,1,240));
3532: END IF;
3533: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3534: p_data => x_msg_data,
3535: p_encoded => fnd_api.g_false);
3536: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
3537: THEN
3909:
3910: -- Standard call to check for call compatibility.
3911:
3912: IF FND_API.to_boolean(l_init_msg_list) THEN
3913: FND_MSG_PUB.initialize;
3914: END IF;
3915:
3916: -- Initialize API return status to success
3917:
3929: FETCH get_itemgroup_det INTO l_itemgroup_det;
3930: IF get_itemgroup_det%NOTFOUND
3931: THEN
3932: FND_MESSAGE.SET_NAME('AHL','AHL_MC_OBJECT_ID_NULL');
3933: FND_MSG_PUB.ADD;
3934: END IF;
3935: CLOSE get_itemgroup_det;
3936:
3937: IF l_itemgroup_det.object_version_number <> p_object_version_number
3936:
3937: IF l_itemgroup_det.object_version_number <> p_object_version_number
3938: THEN
3939: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD');
3940: FND_MSG_PUB.ADD;
3941: END IF;
3942:
3943:
3944: l_msg_count := FND_MSG_PUB.count_msg;
3940: FND_MSG_PUB.ADD;
3941: END IF;
3942:
3943:
3944: l_msg_count := FND_MSG_PUB.count_msg;
3945:
3946: IF l_msg_count > 0
3947: THEN
3948: X_msg_count := l_msg_count;
4180: EXCEPTION
4181: WHEN FND_API.G_EXC_ERROR THEN
4182: x_return_status := FND_API.G_RET_STS_ERROR;
4183: Rollback to Approve_ItemGroups;
4184: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
4185: p_data => x_msg_data,
4186: p_encoded => fnd_api.g_false);
4187:
4188: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
4194:
4195: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4196: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4197: Rollback to Approve_ItemGroups;
4198: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
4199: p_data => x_msg_data,
4200: p_encoded => fnd_api.g_false);
4201:
4202: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
4207:
4208: WHEN OTHERS THEN
4209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4210: Rollback to Approve_ItemGroups;
4211: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4212: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
4213: p_procedure_name => 'Approve_ItemGroups',
4214: p_error_text => SUBSTR(SQLERRM,1,240));
4215: END IF;
4208: WHEN OTHERS THEN
4209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4210: Rollback to Approve_ItemGroups;
4211: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4212: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
4213: p_procedure_name => 'Approve_ItemGroups',
4214: p_error_text => SUBSTR(SQLERRM,1,240));
4215: END IF;
4216: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
4212: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
4213: p_procedure_name => 'Approve_ItemGroups',
4214: p_error_text => SUBSTR(SQLERRM,1,240));
4215: END IF;
4216: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
4217: p_data => x_msg_data,
4218: p_encoded => fnd_api.g_false);
4219:
4220: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
4287:
4288: -- Initialize message list if p_init_msg_list is set to TRUE
4289: IF FND_API.TO_BOOLEAN(p_init_msg_list)
4290: THEN
4291: FND_MSG_PUB.Initialize;
4292: END IF;
4293:
4294: -- Initialize API return status to success
4295: x_return_status := FND_API.G_RET_STS_SUCCESS;
4312: IF (get_itemgroup_details%NOTFOUND)
4313: THEN
4314: CLOSE get_itemgroup_details;
4315: FND_MESSAGE.Set_Name('AHL', 'AHL_COM_RECORD_DELETED');
4316: FND_MSG_PUB.ADD;
4317: RAISE FND_API.G_EXC_ERROR;
4318: ELSIF (l_obj_ver_num <> p_object_version_number)
4319: THEN
4320: CLOSE get_itemgroup_details;
4318: ELSIF (l_obj_ver_num <> p_object_version_number)
4319: THEN
4320: CLOSE get_itemgroup_details;
4321: FND_MESSAGE.Set_Name('AHL', 'AHL_COM_RECORD_CHANGED');
4322: FND_MSG_PUB.ADD;
4323: RAISE FND_API.G_EXC_ERROR;
4324: ELSIF (l_status <> 'DRAFT' or nvl(l_source_id, 0) <= 0)
4325: THEN
4326: CLOSE get_itemgroup_details;
4324: ELSIF (l_status <> 'DRAFT' or nvl(l_source_id, 0) <= 0)
4325: THEN
4326: CLOSE get_itemgroup_details;
4327: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_IG_NOUPDATE');
4328: FND_MSG_PUB.ADD;
4329: RAISE FND_API.G_EXC_ERROR;
4330: END IF;
4331: CLOSE get_itemgroup_details;
4332:
4343: IF (check_position_exists%NOTFOUND)
4344: THEN
4345: CLOSE check_position_exists;
4346: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_NODE_NOT_FOUND');
4347: FND_MSG_PUB.ADD;
4348: ELSIF (p_nodes_tbl(i).operation_flag = 'C')
4349: THEN
4350: UPDATE ahl_mc_relationships
4351: SET temp_item_group_id = p_item_group_id
4359: CLOSE check_position_exists;
4360: END LOOP;
4361:
4362: -- Check Error Message stack.
4363: x_msg_count := FND_MSG_PUB.count_msg;
4364: IF x_msg_count > 0 THEN
4365: RAISE FND_API.G_EXC_ERROR;
4366: END IF;
4367: END IF;
4377: END IF;
4378: -- API body ends here
4379:
4380: -- Check Error Message stack.
4381: x_msg_count := FND_MSG_PUB.count_msg;
4382: IF x_msg_count > 0 THEN
4383: RAISE FND_API.G_EXC_ERROR;
4384: END IF;
4385:
4389: COMMIT WORK;
4390: END IF;
4391:
4392: -- Standard call to get message count and if count is 1, get message info
4393: FND_MSG_PUB.count_and_get
4394: (
4395: p_count => x_msg_count,
4396: p_data => x_msg_data,
4397: p_encoded => FND_API.G_FALSE
4400: EXCEPTION
4401: WHEN FND_API.G_EXC_ERROR THEN
4402: x_return_status := FND_API.G_RET_STS_ERROR;
4403: Rollback to Modify_Position_Assos_SP;
4404: FND_MSG_PUB.count_and_get
4405: (
4406: p_count => x_msg_count,
4407: p_data => x_msg_data,
4408: p_encoded => FND_API.G_FALSE
4410:
4411: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4412: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4413: Rollback to Modify_Position_Assos_SP;
4414: FND_MSG_PUB.count_and_get
4415: (
4416: p_count => x_msg_count,
4417: p_data => x_msg_data,
4418: p_encoded => FND_API.G_FALSE
4420:
4421: WHEN OTHERS THEN
4422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4423: Rollback to Modify_Position_Assos_SP;
4424: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4425: THEN
4426: FND_MSG_PUB.add_exc_msg
4427: (
4428: p_pkg_name => G_PKG_NAME,
4422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4423: Rollback to Modify_Position_Assos_SP;
4424: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4425: THEN
4426: FND_MSG_PUB.add_exc_msg
4427: (
4428: p_pkg_name => G_PKG_NAME,
4429: p_procedure_name => 'Modify_Position_Assos',
4430: p_error_text => SUBSTR(SQLERRM,1,240)
4429: p_procedure_name => 'Modify_Position_Assos',
4430: p_error_text => SUBSTR(SQLERRM,1,240)
4431: );
4432: END IF;
4433: FND_MSG_PUB.count_and_get
4434: (
4435: p_count => x_msg_count,
4436: p_data => x_msg_data,
4437: p_encoded => FND_API.G_FALSE