[Home] [Help]
51: FETCH mtl_parameters_csr INTO l_organization_code,l_master_org_id;
52: IF (mtl_parameters_csr%NOTFOUND) THEN
53: FND_MESSAGE.Set_Name('AHL','AHL_MC_ORG_INVALID');
54: FND_MESSAGE.Set_Token('ORG',p_inventory_org_id);
55: FND_MSG_PUB.ADD;
56: ELSE
57: p_master_org_id := l_master_org_id;
58: /*IF l_master_org_id <> p_master_org_id THEN
59: FND_MESSAGE.Set_Name('AHL','AHL_MC_MASTER_ORG_INVALID');
57: p_master_org_id := l_master_org_id;
58: /*IF l_master_org_id <> p_master_org_id THEN
59: FND_MESSAGE.Set_Name('AHL','AHL_MC_MASTER_ORG_INVALID');
60: FND_MESSAGE.Set_Token('ORG',p_master_org_id);
61: FND_MSG_PUB.ADD;
62: */
63: END IF;
64: CLOSE mtl_parameters_csr;
65:
76:
77: IF (mtl_system_items_non_ou_csr%NOTFOUND) THEN
78: FND_MESSAGE.Set_Name('AHL','AHL_MC_INV_INVALID');
79: FND_MESSAGE.Set_Token('INV_ITEM',p_inventory_item_id);
80: FND_MSG_PUB.ADD;
81: --dbms_output.put_line('Inventory item does not exist');
82:
83: l_segment1 := null;
84: l_revision_qty_control_code := null;
89: IF ( UPPER(p_record_type) = 'HEADER' AND UPPER(l_instance_track) <> 'Y')
90: THEN
91: FND_MESSAGE.Set_Name('AHL','AHL_MC_INV_TRACK');
92: FND_MESSAGE.Set_Token('INV_ITEM',l_segment1);
93: FND_MSG_PUB.ADD;
94: --dbms_output.put_line('Rec Type '||p_record_type || ' and '||l_instance_track);
95: ELSIF ( UPPER(p_record_type) = 'DETAIL' AND UPPER(l_instance_track) = 'Y')
96: THEN
97: FND_MESSAGE.Set_Name('AHL','AHL_MC_INV_NON_TRACK');
95: ELSIF ( UPPER(p_record_type) = 'DETAIL' AND UPPER(l_instance_track) = 'Y')
96: THEN
97: FND_MESSAGE.Set_Name('AHL','AHL_MC_INV_NON_TRACK');
98: FND_MESSAGE.Set_Token('INV_ITEM',l_segment1);
99: FND_MSG_PUB.ADD;
100: --dbms_output.put_line('Inventory item are trackable');
101: END IF;
102:
103: END IF;
134: -- uom_code is null but quantity is not null.
135: IF (p_inv_segment IS NULL OR p_inv_segment = FND_API.G_MISS_CHAR) THEN
136: FND_MESSAGE.Set_Name('AHL','AHL_MC_IG_UOM_NULL');
137: FND_MESSAGE.Set_Token('IG',p_item_group_name);
138: FND_MSG_PUB.ADD;
139: ELSE
140: FND_MESSAGE.Set_Name('AHL','AHL_MC_INVUOM_NULL');
141: FND_MESSAGE.Set_Token('INV_ITEM',p_inv_segment);
142: FND_MSG_PUB.ADD;
138: FND_MSG_PUB.ADD;
139: ELSE
140: FND_MESSAGE.Set_Name('AHL','AHL_MC_INVUOM_NULL');
141: FND_MESSAGE.Set_Token('INV_ITEM',p_inv_segment);
142: FND_MSG_PUB.ADD;
143: END IF;
144: --dbms_output.put_line('Uom is null');
145: ELSIF p_inventory_item_id IS NOT NULL AND p_inventory_org_id IS NOT NULL THEN
146: IF NOT(inv_convert.Validate_Item_Uom(p_item_id => p_inventory_item_id,
149: THEN
150: FND_MESSAGE.Set_Name('AHL','AHL_MC_INVUOM_INVALID');
151: FND_MESSAGE.Set_Token('UOM_CODE',p_uom_code);
152: FND_MESSAGE.Set_Token('INV_ITEM',p_inv_segment);
153: FND_MSG_PUB.ADD;
154: --dbms_output.put_line('Invalid UOM code for the item');
155: END IF;
156: ELSIF p_item_group_name IS NOT NULL THEN
157: OPEN validate_uom(p_uom_code);
159: IF validate_uom%NOTFOUND THEN
160: FND_MESSAGE.Set_Name('AHL','AHL_MC_IG_UOM_INVALID');
161: FND_MESSAGE.Set_Token('UOM_CODE',p_uom_code);
162: FND_MESSAGE.Set_Token('IG',p_item_group_name);
163: FND_MSG_PUB.ADD;
164: END IF;
165: END IF ;
166:
167: -- Validate quantity.
168: IF (p_quantity IS NULL OR p_quantity = FND_API.G_MISS_NUM) THEN
169: IF (p_inv_segment IS NULL OR p_inv_segment = FND_API.G_MISS_CHAR) THEN
170: FND_MESSAGE.Set_Name('AHL','AHL_MC_IG_QTY_NULL');
171: FND_MESSAGE.Set_Token('IG',p_item_group_name);
172: FND_MSG_PUB.ADD;
173: ELSE
174: FND_MESSAGE.Set_Name('AHL','AHL_MC_QTY_NULL');
175: FND_MESSAGE.Set_Token('INV_ITEM',p_inv_segment);
176: FND_MSG_PUB.ADD;
172: FND_MSG_PUB.ADD;
173: ELSE
174: FND_MESSAGE.Set_Name('AHL','AHL_MC_QTY_NULL');
175: FND_MESSAGE.Set_Token('INV_ITEM',p_inv_segment);
176: FND_MSG_PUB.ADD;
177: END IF;
178: --dbms_output.put_line('Quantity is null');
179: ELSIF (p_quantity < 0) THEN
180: IF (p_inv_segment IS NULL OR p_inv_segment = FND_API.G_MISS_CHAR) THEN
180: IF (p_inv_segment IS NULL OR p_inv_segment = FND_API.G_MISS_CHAR) THEN
181: FND_MESSAGE.Set_Name('AHL','AHL_MC_IG_QTY_INVALID');
182: FND_MESSAGE.Set_Token('IG',p_item_group_name);
183: FND_MESSAGE.Set_Token('QUANTITY',p_quantity);
184: FND_MSG_PUB.ADD;
185: ELSE
186: FND_MESSAGE.Set_Name('AHL','AHL_MC_INVQTY_INVALID');
187: FND_MESSAGE.Set_Token('INV_ITEM',p_inv_segment);
188: FND_MESSAGE.Set_Token('QUANTITY',p_quantity);
185: ELSE
186: FND_MESSAGE.Set_Name('AHL','AHL_MC_INVQTY_INVALID');
187: FND_MESSAGE.Set_Token('INV_ITEM',p_inv_segment);
188: FND_MESSAGE.Set_Token('QUANTITY',p_quantity);
189: FND_MSG_PUB.ADD;
190: END IF;
191: --dbms_output.put_line('Invalid quantity');
192: END IF;
193:
255: -- SATHAPLI::Bug 9891860, 20-July-2010, replaced the following two non-existent error messages with existing ones
256: IF NVL(l_Detail_Rec_Type.item_composition_id,0) <> NVL(p_item_composition_id,0) THEN
257: -- FND_MESSAGE.Set_Name('AHL','AHL_MC_COMP_INVALID_HEADER');
258: FND_MESSAGE.Set_Name('AHL','AHL_MC_COMP_HEADER_MISMATCH'); -- Item Composition header is invalid.
259: FND_MSG_PUB.ADD;
260: END IF;
261:
262: OPEN get_item_comp_det(p_item_composition_id,l_Detail_Rec_Type.item_comp_detail_id);
263: FETCH get_item_comp_det INTO l_dummy;
264: IF get_item_comp_det%NOTFOUND THEN
265: -- FND_MESSAGE.Set_Name('AHL','AHL_MC_COMP_DETAIL_NO_EXIST');
266: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_IC_INVALID'); -- Invalid composition item ITEM.
267: FND_MESSAGE.Set_Token('ITEM', l_Detail_Rec_Type.inventory_item_name);
268: FND_MSG_PUB.ADD;
269: END IF;
270: CLOSE get_item_comp_det;
271:
272: END IF;
280: FETCH validate_item_group INTO l_dummy;
281: IF validate_item_group%NOTFOUND THEN
282: FND_MESSAGE.Set_Name('AHL','AHL_MC_COMP_IG_INVALID');
283: FND_MESSAGE.set_token('ITEM_GRP',l_Detail_Rec_Type.item_group_name);
284: FND_MSG_PUB.ADD;
285: END IF;
286: CLOSE validate_item_group;
287:
288: IF l_Detail_Rec_Type.operation_flag ='C' THEN
293: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEM_COMP_IG_EXISTS');
294: FND_MESSAGE.set_token('ITEM_GRP',l_Detail_Rec_Type.item_group_name);
295: FND_MESSAGE.set_token('INV_ITEM',p_inv_item_name);
296:
297: FND_MSG_PUB.ADD;
298: END IF;
299: CLOSE item_group_exists;
300: END IF;
301: END IF;
316: IF l_Detail_Rec_Type.operation_flag ='C' THEN
317: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEM_COMP_INV_EXISTS');
318: FND_MESSAGE.set_token('INV_ITM',l_Detail_Rec_Type.inventory_item_name);
319: FND_MESSAGE.set_token('INV_ITEM',p_inv_item_name);
320: FND_MSG_PUB.ADD;
321: END IF;
322: ELSE
323: IF l_Detail_Rec_Type.operation_flag ='M' THEN
324: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEM_COMP_INV_NOEXISTS');
321: END IF;
322: ELSE
323: IF l_Detail_Rec_Type.operation_flag ='M' THEN
324: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEM_COMP_INV_NOEXISTS');
325: FND_MSG_PUB.ADD;
326: END IF;
327: END IF;
328: CLOSE inv_item_exists;
329: END IF;
345: (l_Detail_Rec_Type.inventory_item_id IS NOT NULL AND
346: l_Detail_Rec_Type.item_group_name IS NOT NULL )
347: THEN
348: FND_MESSAGE.Set_Name('AHL','AHL_MC_COMP_ASSOS_NULL');
349: FND_MSG_PUB.ADD;
350: END IF;
351:
352: IF l_Detail_Rec_Type.item_composition_id <> p_item_composition_id THEN
353: FND_MESSAGE.Set_Name('AHL','AHL_MC_COMP_HEADER_MISMATCH');
350: END IF;
351:
352: IF l_Detail_Rec_Type.item_composition_id <> p_item_composition_id THEN
353: FND_MESSAGE.Set_Name('AHL','AHL_MC_COMP_HEADER_MISMATCH');
354: FND_MSG_PUB.ADD;
355: END IF;
356:
357: p_x_Detail_Rec_Type := l_Detail_Rec_Type;
358:
426:
427: -- Standard call to check for call compatibility.
428:
429: IF FND_API.to_boolean(p_init_msg_list) THEN
430: FND_MSG_PUB.initialize;
431: END IF;
432:
433: -- Initialize API return status to success
434:
453: FETCH item_composition_dup INTO l_dummy;
454: IF item_composition_dup%FOUND THEN
455: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEM_COMP_EXISTS');
456: FND_MESSAGE.Set_Token('INV_ITEM',p_x_ic_header_rec.inventory_item_name);
457: FND_MSG_PUB.ADD;
458: RAISE FND_API.G_EXC_ERROR;
459: END IF;
460:
461: CLOSE item_composition_dup;
543: p_inv_item_name => p_x_ic_header_rec.inventory_item_name,
544: p_x_Detail_Rec_Type => p_x_det_tbl(I)
545: );
546:
547: x_msg_count := FND_MSG_PUB.count_msg;
548:
549: IF x_msg_count = 0 THEN
550:
551: Create_Line_Item (p_item_composition_id => l_item_composition_id,
557: END LOOP;
558:
559:
560: -- Check Error Message stack.
561: x_msg_count := FND_MSG_PUB.count_msg;
562: IF x_msg_count > 0 THEN
563: RAISE FND_API.G_EXC_ERROR;
564: END IF;
565:
576: EXCEPTION
577: WHEN FND_API.G_EXC_ERROR THEN
578: x_return_status := FND_API.G_RET_STS_ERROR;
579: Rollback to Create_Item_Composition;
580: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
581: p_data => x_msg_data,
582: p_encoded => fnd_api.g_false);
583:
584: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
590:
591: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
592: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
593: Rollback to Create_Item_Composition;
594: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
595: p_data => x_msg_data,
596: p_encoded => fnd_api.g_false);
597:
598: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
603:
604: WHEN OTHERS THEN
605: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
606: Rollback to Create_Item_Composition;
607: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
608: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
609: p_procedure_name => 'Create_Item_Composition',
610: p_error_text => SUBSTR(SQLERRM,1,240));
611: END IF;
604: WHEN OTHERS THEN
605: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
606: Rollback to Create_Item_Composition;
607: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
608: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
609: p_procedure_name => 'Create_Item_Composition',
610: p_error_text => SUBSTR(SQLERRM,1,240));
611: END IF;
612: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
608: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
609: p_procedure_name => 'Create_Item_Composition',
610: p_error_text => SUBSTR(SQLERRM,1,240));
611: END IF;
612: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
613: p_data => x_msg_data,
614: p_encoded => fnd_api.g_false);
615:
616: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
721:
722: -- Standard call to check for call compatibility.
723:
724: IF FND_API.to_boolean(p_init_msg_list) THEN
725: FND_MSG_PUB.initialize;
726: END IF;
727:
728: -- Initialize API return status to success
729:
740: );
741: FETCH item_composition_det INTO l_item_composition_rec;
742: IF item_composition_det%NOTFOUND THEN
743: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEM_COMP_NOT_EXISTS');
744: FND_MSG_PUB.ADD;
745: RAISE FND_API.G_EXC_ERROR;
746: END IF;
747:
748: CLOSE item_composition_det;
752: -- IF l_item_composition_rec.object_version_number <> p_x_ic_header_rec.object_version_number THEN
753: IF (NVL(l_item_composition_rec.sourced_from_enigma_flag, 'N') = 'N' AND
754: l_item_composition_rec.object_version_number <> p_x_ic_header_rec.object_version_number) THEN
755: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
756: FND_MSG_PUB.ADD;
757: RAISE FND_API.G_EXC_ERROR;
758: END IF;
759:
760:
761: -- IF l_item_composition_rec.approval_status_code NOT IN ('DRAFT','APPROVAL_REJECTED') THEN
762: IF (NVL(l_item_composition_rec.sourced_from_enigma_flag, 'N') = 'N' AND
763: l_item_composition_rec.approval_status_code NOT IN ('DRAFT','APPROVAL_REJECTED')) THEN
764: FND_MESSAGE.Set_Name('AHL','AHL_MC_COMP_STATUS_NO_EDIT');
765: FND_MSG_PUB.ADD;
766: RAISE FND_API.G_EXC_ERROR;
767: END IF;
768:
769:
810: P_inv_item_name => p_x_ic_header_rec.inventory_item_name,
811: p_x_Detail_Rec_Type => p_x_det_tbl(I)
812: );
813:
814: x_msg_count := FND_MSG_PUB.count_msg;
815:
816: IF x_msg_count = 0 THEN
817:
818: IF p_x_det_tbl(I).operation_flag = 'C' THEN
840:
841: END LOOP;
842:
843: -- Check Error Message stack.
844: x_msg_count := FND_MSG_PUB.count_msg;
845: IF x_msg_count > 0 THEN
846: RAISE FND_API.G_EXC_ERROR;
847: END IF;
848:
858: EXCEPTION
859: WHEN FND_API.G_EXC_ERROR THEN
860: x_return_status := FND_API.G_RET_STS_ERROR;
861: Rollback to Modify_Item_Composition;
862: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
863: p_data => x_msg_data,
864: p_encoded => fnd_api.g_false);
865:
866: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
872:
873: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
874: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
875: Rollback to Modify_Item_Composition;
876: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
877: p_data => x_msg_data,
878: p_encoded => fnd_api.g_false);
879:
880: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
885:
886: WHEN OTHERS THEN
887: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
888: Rollback to Modify_Item_Composition;
889: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
890: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
891: p_procedure_name => 'Modify_Item_Composition',
892: p_error_text => SUBSTR(SQLERRM,1,240));
893: END IF;
886: WHEN OTHERS THEN
887: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
888: Rollback to Modify_Item_Composition;
889: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
890: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
891: p_procedure_name => 'Modify_Item_Composition',
892: p_error_text => SUBSTR(SQLERRM,1,240));
893: END IF;
894: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
890: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
891: p_procedure_name => 'Modify_Item_Composition',
892: p_error_text => SUBSTR(SQLERRM,1,240));
893: END IF;
894: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
895: p_data => x_msg_data,
896: p_encoded => fnd_api.g_false);
897:
898: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
1011:
1012: -- Standard call to check for call compatibility.
1013:
1014: IF FND_API.to_boolean(p_init_msg_list) THEN
1015: FND_MSG_PUB.initialize;
1016: END IF;
1017:
1018: -- Initialize API return status to success
1019:
1030: );
1031: FETCH item_composition_det INTO l_item_composition_rec;
1032: IF item_composition_det%NOTFOUND THEN
1033: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEM_COMP_NOT_EXISTS');
1034: FND_MSG_PUB.ADD;
1035: RAISE FND_API.G_EXC_ERROR;
1036: END IF;
1037:
1038: CLOSE item_composition_det;
1039:
1040:
1041: IF l_item_composition_rec.object_version_number <> p_object_version_number THEN
1042: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
1043: FND_MSG_PUB.ADD;
1044: RAISE FND_API.G_EXC_ERROR;
1045: END IF;
1046:
1047:
1046:
1047:
1048: IF l_item_composition_rec.approval_status_code = 'APPROVAL_PENDING' THEN
1049: FND_MESSAGE.Set_Name('AHL','AHL_MC_COMP_STATUS_NO_DELETE');
1050: FND_MSG_PUB.ADD;
1051: RAISE FND_API.G_EXC_ERROR;
1052: END IF;
1053:
1054:
1052: END IF;
1053:
1054:
1055: -- Check Error Message stack.
1056: x_msg_count := FND_MSG_PUB.count_msg;
1057: IF x_msg_count > 0 THEN
1058: RAISE FND_API.G_EXC_ERROR;
1059: END IF;
1060:
1065: );
1066: FETCH disposition_exist INTO l_dummy;
1067: IF disposition_exist%FOUND THEN
1068: FND_MESSAGE.Set_Name('AHL','AHL_MC_COMP_DISP_EXISTS');
1069: FND_MSG_PUB.ADD;
1070: RAISE FND_API.G_EXC_ERROR;
1071: END IF;
1072:
1073: CLOSE disposition_exist;
1075: OPEN item_rev_exists(p_item_composition_id);
1076: FETCH item_rev_exists INTO l_rev_item_composition_id;
1077: IF item_rev_exists%FOUND THEN
1078: FND_MESSAGE.Set_Name('AHL','AHL_MC_COMP_REV_EXISTS');
1079: FND_MSG_PUB.ADD;
1080: RAISE FND_API.G_EXC_ERROR;
1081: END IF;
1082: CLOSE item_rev_exists;
1083:
1084:
1085: IF l_item_composition_rec.effective_end_date IS NOT NULL AND
1086: TRUNC(l_item_composition_rec.effective_end_date) <= TRUNC(SYSDATE) THEN
1087: FND_MESSAGE.Set_Name('AHL','AHL_MC_COMP_STATUS_NO_DELETE');
1088: FND_MSG_PUB.ADD;
1089: RAISE FND_API.G_EXC_ERROR;
1090: END IF;
1091:
1092:
1125: EXCEPTION
1126: WHEN FND_API.G_EXC_ERROR THEN
1127: x_return_status := FND_API.G_RET_STS_ERROR;
1128: Rollback to Delete_Item_Composition;
1129: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1130: p_data => x_msg_data,
1131: p_encoded => fnd_api.g_false);
1132:
1133: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
1139:
1140: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1141: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1142: Rollback to Delete_Item_Composition;
1143: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1144: p_data => x_msg_data,
1145: p_encoded => fnd_api.g_false);
1146:
1147: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
1152:
1153: WHEN OTHERS THEN
1154: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1155: Rollback to Delete_Item_Composition;
1156: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1157: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1158: p_procedure_name => 'Delete_Item_Composition',
1159: p_error_text => SUBSTR(SQLERRM,1,240));
1160: END IF;
1153: WHEN OTHERS THEN
1154: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1155: Rollback to Delete_Item_Composition;
1156: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1157: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1158: p_procedure_name => 'Delete_Item_Composition',
1159: p_error_text => SUBSTR(SQLERRM,1,240));
1160: END IF;
1161: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1157: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1158: p_procedure_name => 'Delete_Item_Composition',
1159: p_error_text => SUBSTR(SQLERRM,1,240));
1160: END IF;
1161: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1162: p_data => x_msg_data,
1163: p_encoded => fnd_api.g_false);
1164:
1165: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
1271:
1272: -- Standard call to check for call compatibility.
1273:
1274: IF FND_API.to_boolean(p_init_msg_list) THEN
1275: FND_MSG_PUB.initialize;
1276: END IF;
1277:
1278: -- Initialize API return status to success
1279:
1288: OPEN item_composition_det(p_item_composition_ID);
1289: FETCH item_composition_det INTO l_item_composition_rec;
1290: IF item_composition_det%NOTFOUND THEN
1291: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEM_COMP_NOT_EXISTS');
1292: FND_MSG_PUB.ADD;
1293: RAISE FND_API.G_EXC_ERROR;
1294: END IF;
1295:
1296: CLOSE item_composition_det;
1297:
1298:
1299: IF l_item_composition_rec.object_version_number <> p_object_version_number THEN
1300: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
1301: FND_MSG_PUB.ADD;
1302: RAISE FND_API.G_EXC_ERROR;
1303: END IF;
1304:
1305: /*
1308: FETCH item_composition_exists INTO l_dummy;
1309: IF item_composition_exists%FOUND THEN
1310: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEM_COMP_EXISTS');
1311: FND_MESSAGE.Set_Token('INV_ITEM',p_x_ic_header_rec.inventory_item_id);
1312: FND_MSG_PUB.ADD;
1313: RAISE FND_API.G_EXC_ERROR;
1314: END IF;
1315:
1316: CLOSE item_composition_exists;
1318:
1319:
1320: IF NVL(l_item_composition_rec.effective_end_date,TRUNC(SYSDATE)) >= TRUNC(SYSDATE) THEN
1321: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEM_COMP_OPEN');
1322: FND_MSG_PUB.ADD;
1323: RAISE FND_API.G_EXC_ERROR;
1324: END IF;
1325:
1326:
1324: END IF;
1325:
1326:
1327: -- Check Error Message stack.
1328: x_msg_count := FND_MSG_PUB.count_msg;
1329: IF x_msg_count > 0 THEN
1330: RAISE FND_API.G_EXC_ERROR;
1331: END IF;
1332:
1353: EXCEPTION
1354: WHEN FND_API.G_EXC_ERROR THEN
1355: x_return_status := FND_API.G_RET_STS_ERROR;
1356: Rollback to Reopen_Item_Composition;
1357: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1358: p_data => x_msg_data,
1359: p_encoded => fnd_api.g_false);
1360:
1361: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
1367:
1368: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1369: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1370: Rollback to Reopen_Item_Composition;
1371: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1372: p_data => x_msg_data,
1373: p_encoded => fnd_api.g_false);
1374:
1375: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
1380:
1381: WHEN OTHERS THEN
1382: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1383: Rollback to Reopen_Item_Composition;
1384: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1385: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1386: p_procedure_name => 'Reopen_Item_Composition',
1387: p_error_text => SUBSTR(SQLERRM,1,240));
1388: END IF;
1381: WHEN OTHERS THEN
1382: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1383: Rollback to Reopen_Item_Composition;
1384: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1385: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1386: p_procedure_name => 'Reopen_Item_Composition',
1387: p_error_text => SUBSTR(SQLERRM,1,240));
1388: END IF;
1389: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1385: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1386: p_procedure_name => 'Reopen_Item_Composition',
1387: p_error_text => SUBSTR(SQLERRM,1,240));
1388: END IF;
1389: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1390: p_data => x_msg_data,
1391: p_encoded => fnd_api.g_false);
1392:
1393: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
1655:
1656: -- Standard call to check for call compatibility.
1657:
1658: IF FND_API.to_boolean(l_init_msg_list) THEN
1659: FND_MSG_PUB.initialize;
1660: END IF;
1661:
1662: -- Initialize API return status to success
1663:
1690:
1691: IF p_object_Version_number is null or p_object_Version_number=FND_API.G_MISS_NUM
1692: THEN
1693: FND_MESSAGE.SET_NAME('AHL','AHL_MC_OBJ_VERSION_NULL');
1694: FND_MSG_PUB.ADD;
1695: END IF;
1696:
1697: IF p_Item_Composition_id is null or p_Item_Composition_id = FND_API.G_MISS_NUM
1698: THEN
1696:
1697: IF p_Item_Composition_id is null or p_Item_Composition_id = FND_API.G_MISS_NUM
1698: THEN
1699: FND_MESSAGE.SET_NAME('AHL','AHL_MC_OBJECT_ID_NULL');
1700: FND_MSG_PUB.ADD;
1701: ELSE
1702:
1703: OPEN get_Item_comp_Det(p_Item_Composition_id);
1704: FETCH get_Item_comp_Det INTO l_item_comp_rec;
1712:
1713: IF l_count < 1 THEN
1714: FND_MESSAGE.SET_NAME('AHL','AHL_MC_IC_EMPTY');
1715: FND_MESSAGE.Set_Token('ITEM_COMP',l_item_comp_rec.concatenated_segments);
1716: FND_MSG_PUB.ADD;
1717: RAISE FND_API.G_EXC_ERROR;
1718: END IF;
1719:
1720:
1725: THEN
1726: l_upd_status := 'APPROVAL_PENDING';
1727: ELSE
1728: FND_MESSAGE.SET_NAME('AHL','AHL_MC_IC_STAT_NOT_DRFT');
1729: FND_MSG_PUB.ADD;
1730: END IF;
1731: ELSE
1732: FND_MESSAGE.SET_NAME('AHL','AHL_APPR_TYPE_CODE_MISSING');
1733: FND_MSG_PUB.ADD;
1729: FND_MSG_PUB.ADD;
1730: END IF;
1731: ELSE
1732: FND_MESSAGE.SET_NAME('AHL','AHL_APPR_TYPE_CODE_MISSING');
1733: FND_MSG_PUB.ADD;
1734: END IF;
1735:
1736: END IF;
1737:
1734: END IF;
1735:
1736: END IF;
1737:
1738: l_msg_count := FND_MSG_PUB.count_msg;
1739:
1740: IF l_msg_count > 0
1741: THEN
1742: X_msg_count := l_msg_count;
1759:
1760: IF sql%rowcount=0
1761: THEN
1762: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
1763: FND_MSG_PUB.ADD;
1764: RAISE FND_API.G_EXC_ERROR;
1765: END IF;
1766:
1767: IF l_ACTIVE='Y'
1804: );
1805:
1806: END IF ;
1807:
1808: l_msg_count := FND_MSG_PUB.count_msg;
1809:
1810: IF l_msg_count > 0
1811: THEN
1812: X_msg_count := l_msg_count;
1820: COMMIT WORK;
1821: END IF;
1822:
1823: -- Standard call to get message count and if count is 1, get message info
1824: FND_MSG_PUB.Count_And_Get
1825: ( p_count => x_msg_count,
1826: p_data => x_msg_data,
1827: p_encoded => fnd_api.g_false);
1828:
1837: EXCEPTION
1838: WHEN FND_API.G_EXC_ERROR THEN
1839: x_return_status := FND_API.G_RET_STS_ERROR;
1840: Rollback to Initiate_Item_Comp_Approval;
1841: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1842: p_data => x_msg_data,
1843: p_encoded => fnd_api.g_false);
1844:
1845: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
1851:
1852: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1853: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1854: Rollback to Initiate_Item_Comp_Approval;
1855: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1856: p_data => x_msg_data,
1857: p_encoded => fnd_api.g_false);
1858:
1859: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
1864:
1865: WHEN OTHERS THEN
1866: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1867: Rollback to Initiate_Item_Comp_Approval;
1868: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1869: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1870: p_procedure_name => 'Initiate_Item_Comp_Approval',
1871: p_error_text => SUBSTR(SQLERRM,1,240));
1872: END IF;
1865: WHEN OTHERS THEN
1866: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1867: Rollback to Initiate_Item_Comp_Approval;
1868: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1869: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1870: p_procedure_name => 'Initiate_Item_Comp_Approval',
1871: p_error_text => SUBSTR(SQLERRM,1,240));
1872: END IF;
1873: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1869: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1870: p_procedure_name => 'Initiate_Item_Comp_Approval',
1871: p_error_text => SUBSTR(SQLERRM,1,240));
1872: END IF;
1873: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1874: p_data => x_msg_data,
1875: p_encoded => fnd_api.g_false);
1876:
1877: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
1965:
1966: -- Standard call to check for call compatibility.
1967:
1968: IF FND_API.to_boolean(l_init_msg_list) THEN
1969: FND_MSG_PUB.initialize;
1970: END IF;
1971:
1972: -- Initialize API return status to success
1973:
1984: OPEN get_item_comp_det(p_Item_comp_id);
1985: Fetch get_item_comp_det into l_item_comp_det;
1986: IF get_item_comp_det%NOTFOUND THEN
1987: FND_MESSAGE.SET_NAME('AHL','AHL_MC_OBJECT_ID_NULL');
1988: FND_MSG_PUB.ADD;
1989: END IF;
1990: close get_item_comp_det;
1991:
1992:
1993: IF l_item_comp_det.approval_status_code <> 'COMPLETE'
1994: OR l_item_comp_det.effective_end_date IS NOT NULL
1995: THEN
1996: FND_MESSAGE.SET_NAME('AHL','AHL_MC_IC_STAT_NOT_COMP');
1997: FND_MSG_PUB.ADD;
1998: END IF;
1999:
2000:
2001: IF l_item_comp_det.object_version_number <> p_object_version_number
2000:
2001: IF l_item_comp_det.object_version_number <> p_object_version_number
2002: THEN
2003: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
2004: FND_MSG_PUB.ADD;
2005: END IF;
2006:
2007:
2008: OPEN get_revision_info(p_Item_comp_id);
2008: OPEN get_revision_info(p_Item_comp_id);
2009: FETCH get_revision_info INTO l_dummy;
2010: IF get_revision_info%FOUND THEN
2011: FND_MESSAGE.SET_NAME('AHL','AHL_MC_IC_REVISION_EXIST');
2012: FND_MSG_PUB.ADD;
2013: END IF;
2014: CLOSE get_revision_info;
2015:
2016:
2014: CLOSE get_revision_info;
2015:
2016:
2017:
2018: l_msg_count := FND_MSG_PUB.count_msg;
2019:
2020: IF l_msg_count > 0
2021: THEN
2022: X_msg_count := l_msg_count;
2218: EXCEPTION
2219: WHEN FND_API.G_EXC_ERROR THEN
2220: x_return_status := FND_API.G_RET_STS_ERROR;
2221: Rollback to Create_Item_Comp_Revision;
2222: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2223: p_data => x_msg_data,
2224: p_encoded => fnd_api.g_false);
2225: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
2226: THEN
2231:
2232: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2233: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2234: Rollback to Create_Item_Comp_Revision;
2235: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2236: p_data => x_msg_data,
2237: p_encoded => fnd_api.g_false);
2238: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
2239: THEN
2244:
2245: WHEN OTHERS THEN
2246: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2247: Rollback to Create_Item_Comp_Revision;
2248: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2249: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2250: p_procedure_name => 'Create_Item_Comp_Revision',
2251: p_error_text => SUBSTR(SQLERRM,1,240));
2252: END IF;
2245: WHEN OTHERS THEN
2246: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2247: Rollback to Create_Item_Comp_Revision;
2248: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2249: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2250: p_procedure_name => 'Create_Item_Comp_Revision',
2251: p_error_text => SUBSTR(SQLERRM,1,240));
2252: END IF;
2253: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2249: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2250: p_procedure_name => 'Create_Item_Comp_Revision',
2251: p_error_text => SUBSTR(SQLERRM,1,240));
2252: END IF;
2253: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2254: p_data => x_msg_data,
2255: p_encoded => fnd_api.g_false);
2256: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
2257: THEN
2391:
2392: -- Standard call to check for call compatibility.
2393:
2394: IF FND_API.to_boolean(l_init_msg_list) THEN
2395: FND_MSG_PUB.initialize;
2396: END IF;
2397:
2398: -- Initialize API return status to success
2399:
2411: FETCH get_item_comp_det INTO l_item_comp_det;
2412: IF get_item_comp_det%NOTFOUND
2413: THEN
2414: FND_MESSAGE.SET_NAME('AHL','AHL_MC_OBJECT_ID_NULL');
2415: FND_MSG_PUB.ADD;
2416: END IF;
2417: CLOSE get_item_comp_det;
2418:
2419: IF l_item_comp_det.object_version_number <> p_object_version_number
2418:
2419: IF l_item_comp_det.object_version_number <> p_object_version_number
2420: THEN
2421: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
2422: FND_MSG_PUB.ADD;
2423: END IF;
2424:
2425:
2426: l_msg_count := FND_MSG_PUB.count_msg;
2422: FND_MSG_PUB.ADD;
2423: END IF;
2424:
2425:
2426: l_msg_count := FND_MSG_PUB.count_msg;
2427:
2428: IF l_msg_count > 0
2429: THEN
2430: X_msg_count := l_msg_count;
2664: EXCEPTION
2665: WHEN FND_API.G_EXC_ERROR THEN
2666: x_return_status := FND_API.G_RET_STS_ERROR;
2667: Rollback to Approve_Item_Composiiton;
2668: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2669: p_data => x_msg_data,
2670: p_encoded => fnd_api.g_false);
2671:
2672: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
2678:
2679: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2680: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2681: Rollback to Approve_Item_Composiiton;
2682: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2683: p_data => x_msg_data,
2684: p_encoded => fnd_api.g_false);
2685:
2686: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
2691:
2692: WHEN OTHERS THEN
2693: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2694: Rollback to Approve_Item_Composiiton;
2695: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2696: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2697: p_procedure_name => 'Approve_Item_Composiiton',
2698: p_error_text => SUBSTR(SQLERRM,1,240));
2699: END IF;
2692: WHEN OTHERS THEN
2693: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2694: Rollback to Approve_Item_Composiiton;
2695: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2696: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2697: p_procedure_name => 'Approve_Item_Composiiton',
2698: p_error_text => SUBSTR(SQLERRM,1,240));
2699: END IF;
2700: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2696: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2697: p_procedure_name => 'Approve_Item_Composiiton',
2698: p_error_text => SUBSTR(SQLERRM,1,240));
2699: END IF;
2700: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2701: p_data => x_msg_data,
2702: p_encoded => fnd_api.g_false);
2703:
2704: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )