[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:
71:
72: IF (mtl_system_items_non_ou_csr%NOTFOUND) THEN
73: FND_MESSAGE.Set_Name('AHL','AHL_MC_INV_INVALID');
74: FND_MESSAGE.Set_Token('INV_ITEM',p_inventory_item_id);
75: FND_MSG_PUB.ADD;
76: --dbms_output.put_line('Inventory item does not exist');
77:
78: l_segment1 := null;
79: l_revision_qty_control_code := null;
84: IF ( UPPER(p_record_type) = 'HEADER' AND UPPER(l_instance_track) <> 'Y')
85: THEN
86: FND_MESSAGE.Set_Name('AHL','AHL_MC_INV_TRACK');
87: FND_MESSAGE.Set_Token('INV_ITEM',l_segment1);
88: FND_MSG_PUB.ADD;
89: --dbms_output.put_line('Rec Type '||p_record_type || ' and '||l_instance_track);
90: ELSIF ( UPPER(p_record_type) = 'DETAIL' AND UPPER(l_instance_track) = 'Y')
91: THEN
92: FND_MESSAGE.Set_Name('AHL','AHL_MC_INV_NON_TRACK');
90: ELSIF ( UPPER(p_record_type) = 'DETAIL' AND UPPER(l_instance_track) = 'Y')
91: THEN
92: FND_MESSAGE.Set_Name('AHL','AHL_MC_INV_NON_TRACK');
93: FND_MESSAGE.Set_Token('INV_ITEM',l_segment1);
94: FND_MSG_PUB.ADD;
95: --dbms_output.put_line('Inventory item are trackable');
96: END IF;
97:
98: END IF;
129: -- uom_code is null but quantity is not null.
130: IF (p_inv_segment IS NULL OR p_inv_segment = FND_API.G_MISS_CHAR) THEN
131: FND_MESSAGE.Set_Name('AHL','AHL_MC_IG_UOM_NULL');
132: FND_MESSAGE.Set_Token('IG',p_item_group_name);
133: FND_MSG_PUB.ADD;
134: ELSE
135: FND_MESSAGE.Set_Name('AHL','AHL_MC_INVUOM_NULL');
136: FND_MESSAGE.Set_Token('INV_ITEM',p_inv_segment);
137: FND_MSG_PUB.ADD;
133: FND_MSG_PUB.ADD;
134: ELSE
135: FND_MESSAGE.Set_Name('AHL','AHL_MC_INVUOM_NULL');
136: FND_MESSAGE.Set_Token('INV_ITEM',p_inv_segment);
137: FND_MSG_PUB.ADD;
138: END IF;
139: --dbms_output.put_line('Uom is null');
140: ELSIF p_inventory_item_id IS NOT NULL AND p_inventory_org_id IS NOT NULL THEN
141: IF NOT(inv_convert.Validate_Item_Uom(p_item_id => p_inventory_item_id,
144: THEN
145: FND_MESSAGE.Set_Name('AHL','AHL_MC_INVUOM_INVALID');
146: FND_MESSAGE.Set_Token('UOM_CODE',p_uom_code);
147: FND_MESSAGE.Set_Token('INV_ITEM',p_inv_segment);
148: FND_MSG_PUB.ADD;
149: --dbms_output.put_line('Invalid UOM code for the item');
150: END IF;
151: ELSIF p_item_group_name IS NOT NULL THEN
152: OPEN validate_uom(p_uom_code);
154: IF validate_uom%NOTFOUND THEN
155: FND_MESSAGE.Set_Name('AHL','AHL_MC_IG_UOM_INVALID');
156: FND_MESSAGE.Set_Token('UOM_CODE',p_uom_code);
157: FND_MESSAGE.Set_Token('IG',p_item_group_name);
158: FND_MSG_PUB.ADD;
159: END IF;
160: END IF ;
161:
162: -- Validate quantity.
163: IF (p_quantity IS NULL OR p_quantity = FND_API.G_MISS_NUM) THEN
164: IF (p_inv_segment IS NULL OR p_inv_segment = FND_API.G_MISS_CHAR) THEN
165: FND_MESSAGE.Set_Name('AHL','AHL_MC_IG_QTY_NULL');
166: FND_MESSAGE.Set_Token('IG',p_item_group_name);
167: FND_MSG_PUB.ADD;
168: ELSE
169: FND_MESSAGE.Set_Name('AHL','AHL_MC_QTY_NULL');
170: FND_MESSAGE.Set_Token('INV_ITEM',p_inv_segment);
171: FND_MSG_PUB.ADD;
167: FND_MSG_PUB.ADD;
168: ELSE
169: FND_MESSAGE.Set_Name('AHL','AHL_MC_QTY_NULL');
170: FND_MESSAGE.Set_Token('INV_ITEM',p_inv_segment);
171: FND_MSG_PUB.ADD;
172: END IF;
173: --dbms_output.put_line('Quantity is null');
174: ELSIF (p_quantity < 0) THEN
175: IF (p_inv_segment IS NULL OR p_inv_segment = FND_API.G_MISS_CHAR) THEN
175: IF (p_inv_segment IS NULL OR p_inv_segment = FND_API.G_MISS_CHAR) THEN
176: FND_MESSAGE.Set_Name('AHL','AHL_MC_IG_QTY_INVALID');
177: FND_MESSAGE.Set_Token('IG',p_item_group_name);
178: FND_MESSAGE.Set_Token('QUANTITY',p_quantity);
179: FND_MSG_PUB.ADD;
180: ELSE
181: FND_MESSAGE.Set_Name('AHL','AHL_MC_INVQTY_INVALID');
182: FND_MESSAGE.Set_Token('INV_ITEM',p_inv_segment);
183: FND_MESSAGE.Set_Token('QUANTITY',p_quantity);
180: ELSE
181: FND_MESSAGE.Set_Name('AHL','AHL_MC_INVQTY_INVALID');
182: FND_MESSAGE.Set_Token('INV_ITEM',p_inv_segment);
183: FND_MESSAGE.Set_Token('QUANTITY',p_quantity);
184: FND_MSG_PUB.ADD;
185: END IF;
186: --dbms_output.put_line('Invalid quantity');
187: END IF;
188:
248:
249: --dbms_output.put_line(l_Detail_Rec_Type.item_composition_id ||'--'|| p_item_composition_id);
250: IF NVL(l_Detail_Rec_Type.item_composition_id,0) <> NVL(p_item_composition_id,0) THEN
251: FND_MESSAGE.Set_Name('AHL','AHL_MC_COMP_INVALID_HEADER');
252: FND_MSG_PUB.ADD;
253: END IF;
254:
255: OPEN get_item_comp_det(p_item_composition_id,l_Detail_Rec_Type.item_comp_detail_id);
256: FETCH get_item_comp_det INTO l_dummy;
255: OPEN get_item_comp_det(p_item_composition_id,l_Detail_Rec_Type.item_comp_detail_id);
256: FETCH get_item_comp_det INTO l_dummy;
257: IF get_item_comp_det%NOTFOUND THEN
258: FND_MESSAGE.Set_Name('AHL','AHL_MC_COMP_DETAIL_NO_EXIST');
259: FND_MSG_PUB.ADD;
260: END IF;
261: CLOSE get_item_comp_det;
262:
263: END IF;
271: FETCH validate_item_group INTO l_dummy;
272: IF validate_item_group%NOTFOUND THEN
273: FND_MESSAGE.Set_Name('AHL','AHL_MC_COMP_IG_INVALID');
274: FND_MESSAGE.set_token('ITEM_GRP',l_Detail_Rec_Type.item_group_name);
275: FND_MSG_PUB.ADD;
276: END IF;
277: CLOSE validate_item_group;
278:
279: IF l_Detail_Rec_Type.operation_flag ='C' THEN
284: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEM_COMP_IG_EXISTS');
285: FND_MESSAGE.set_token('ITEM_GRP',l_Detail_Rec_Type.item_group_name);
286: FND_MESSAGE.set_token('INV_ITEM',p_inv_item_name);
287:
288: FND_MSG_PUB.ADD;
289: END IF;
290: CLOSE item_group_exists;
291: END IF;
292: END IF;
307: IF l_Detail_Rec_Type.operation_flag ='C' THEN
308: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEM_COMP_INV_EXISTS');
309: FND_MESSAGE.set_token('INV_ITM',l_Detail_Rec_Type.inventory_item_name);
310: FND_MESSAGE.set_token('INV_ITEM',p_inv_item_name);
311: FND_MSG_PUB.ADD;
312: END IF;
313: ELSE
314: IF l_Detail_Rec_Type.operation_flag ='M' THEN
315: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEM_COMP_INV_NOEXISTS');
312: END IF;
313: ELSE
314: IF l_Detail_Rec_Type.operation_flag ='M' THEN
315: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEM_COMP_INV_NOEXISTS');
316: FND_MSG_PUB.ADD;
317: END IF;
318: END IF;
319: CLOSE inv_item_exists;
320: END IF;
336: (l_Detail_Rec_Type.inventory_item_id IS NOT NULL AND
337: l_Detail_Rec_Type.item_group_name IS NOT NULL )
338: THEN
339: FND_MESSAGE.Set_Name('AHL','AHL_MC_COMP_ASSOS_NULL');
340: FND_MSG_PUB.ADD;
341: END IF;
342:
343: IF l_Detail_Rec_Type.item_composition_id <> p_item_composition_id THEN
344: FND_MESSAGE.Set_Name('AHL','AHL_MC_COMP_HEADER_MISMATCH');
341: END IF;
342:
343: IF l_Detail_Rec_Type.item_composition_id <> p_item_composition_id THEN
344: FND_MESSAGE.Set_Name('AHL','AHL_MC_COMP_HEADER_MISMATCH');
345: FND_MSG_PUB.ADD;
346: END IF;
347:
348: p_x_Detail_Rec_Type := l_Detail_Rec_Type;
349:
417:
418: -- Standard call to check for call compatibility.
419:
420: IF FND_API.to_boolean(p_init_msg_list) THEN
421: FND_MSG_PUB.initialize;
422: END IF;
423:
424: -- Initialize API return status to success
425:
444: FETCH item_composition_dup INTO l_dummy;
445: IF item_composition_dup%FOUND THEN
446: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEM_COMP_EXISTS');
447: FND_MESSAGE.Set_Token('INV_ITEM',p_x_ic_header_rec.inventory_item_name);
448: FND_MSG_PUB.ADD;
449: RAISE FND_API.G_EXC_ERROR;
450: END IF;
451:
452: CLOSE item_composition_dup;
534: p_inv_item_name => p_x_ic_header_rec.inventory_item_name,
535: p_x_Detail_Rec_Type => p_x_det_tbl(I)
536: );
537:
538: x_msg_count := FND_MSG_PUB.count_msg;
539:
540: IF x_msg_count = 0 THEN
541:
542: Create_Line_Item (p_item_composition_id => l_item_composition_id,
548: END LOOP;
549:
550:
551: -- Check Error Message stack.
552: x_msg_count := FND_MSG_PUB.count_msg;
553: IF x_msg_count > 0 THEN
554: RAISE FND_API.G_EXC_ERROR;
555: END IF;
556:
567: EXCEPTION
568: WHEN FND_API.G_EXC_ERROR THEN
569: x_return_status := FND_API.G_RET_STS_ERROR;
570: Rollback to Create_Item_Composition;
571: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
572: p_data => x_msg_data,
573: p_encoded => fnd_api.g_false);
574:
575: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
581:
582: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
583: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
584: Rollback to Create_Item_Composition;
585: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
586: p_data => x_msg_data,
587: p_encoded => fnd_api.g_false);
588:
589: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
594:
595: WHEN OTHERS THEN
596: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
597: Rollback to Create_Item_Composition;
598: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
599: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
600: p_procedure_name => 'Create_Item_Composition',
601: p_error_text => SUBSTR(SQLERRM,1,240));
602: END IF;
595: WHEN OTHERS THEN
596: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
597: Rollback to Create_Item_Composition;
598: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
599: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
600: p_procedure_name => 'Create_Item_Composition',
601: p_error_text => SUBSTR(SQLERRM,1,240));
602: END IF;
603: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
599: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
600: p_procedure_name => 'Create_Item_Composition',
601: p_error_text => SUBSTR(SQLERRM,1,240));
602: END IF;
603: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
604: p_data => x_msg_data,
605: p_encoded => fnd_api.g_false);
606:
607: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
710:
711: -- Standard call to check for call compatibility.
712:
713: IF FND_API.to_boolean(p_init_msg_list) THEN
714: FND_MSG_PUB.initialize;
715: END IF;
716:
717: -- Initialize API return status to success
718:
729: );
730: FETCH item_composition_det INTO l_item_composition_rec;
731: IF item_composition_det%NOTFOUND THEN
732: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEM_COMP_NOT_EXISTS');
733: FND_MSG_PUB.ADD;
734: RAISE FND_API.G_EXC_ERROR;
735: END IF;
736:
737: CLOSE item_composition_det;
738:
739:
740: IF l_item_composition_rec.object_version_number <> p_x_ic_header_rec.object_version_number THEN
741: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
742: FND_MSG_PUB.ADD;
743: RAISE FND_API.G_EXC_ERROR;
744: END IF;
745:
746:
745:
746:
747: IF l_item_composition_rec.approval_status_code NOT IN ('DRAFT','APPROVAL_REJECTED') THEN
748: FND_MESSAGE.Set_Name('AHL','AHL_MC_COMP_STATUS_NO_EDIT');
749: FND_MSG_PUB.ADD;
750: RAISE FND_API.G_EXC_ERROR;
751: END IF;
752:
753:
794: P_inv_item_name => p_x_ic_header_rec.inventory_item_name,
795: p_x_Detail_Rec_Type => p_x_det_tbl(I)
796: );
797:
798: x_msg_count := FND_MSG_PUB.count_msg;
799:
800: IF x_msg_count = 0 THEN
801:
802: IF p_x_det_tbl(I).operation_flag = 'C' THEN
824:
825: END LOOP;
826:
827: -- Check Error Message stack.
828: x_msg_count := FND_MSG_PUB.count_msg;
829: IF x_msg_count > 0 THEN
830: RAISE FND_API.G_EXC_ERROR;
831: END IF;
832:
842: EXCEPTION
843: WHEN FND_API.G_EXC_ERROR THEN
844: x_return_status := FND_API.G_RET_STS_ERROR;
845: Rollback to Modify_Item_Composition;
846: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
847: p_data => x_msg_data,
848: p_encoded => fnd_api.g_false);
849:
850: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
856:
857: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
858: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
859: Rollback to Modify_Item_Composition;
860: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
861: p_data => x_msg_data,
862: p_encoded => fnd_api.g_false);
863:
864: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
869:
870: WHEN OTHERS THEN
871: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
872: Rollback to Modify_Item_Composition;
873: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
874: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
875: p_procedure_name => 'Modify_Item_Composition',
876: p_error_text => SUBSTR(SQLERRM,1,240));
877: END IF;
870: WHEN OTHERS THEN
871: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
872: Rollback to Modify_Item_Composition;
873: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
874: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
875: p_procedure_name => 'Modify_Item_Composition',
876: p_error_text => SUBSTR(SQLERRM,1,240));
877: END IF;
878: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
874: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
875: p_procedure_name => 'Modify_Item_Composition',
876: p_error_text => SUBSTR(SQLERRM,1,240));
877: END IF;
878: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
879: p_data => x_msg_data,
880: p_encoded => fnd_api.g_false);
881:
882: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
995:
996: -- Standard call to check for call compatibility.
997:
998: IF FND_API.to_boolean(p_init_msg_list) THEN
999: FND_MSG_PUB.initialize;
1000: END IF;
1001:
1002: -- Initialize API return status to success
1003:
1014: );
1015: FETCH item_composition_det INTO l_item_composition_rec;
1016: IF item_composition_det%NOTFOUND THEN
1017: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEM_COMP_NOT_EXISTS');
1018: FND_MSG_PUB.ADD;
1019: RAISE FND_API.G_EXC_ERROR;
1020: END IF;
1021:
1022: CLOSE item_composition_det;
1023:
1024:
1025: IF l_item_composition_rec.object_version_number <> p_object_version_number THEN
1026: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
1027: FND_MSG_PUB.ADD;
1028: RAISE FND_API.G_EXC_ERROR;
1029: END IF;
1030:
1031:
1030:
1031:
1032: IF l_item_composition_rec.approval_status_code = 'APPROVAL_PENDING' THEN
1033: FND_MESSAGE.Set_Name('AHL','AHL_MC_COMP_STATUS_NO_DELETE');
1034: FND_MSG_PUB.ADD;
1035: RAISE FND_API.G_EXC_ERROR;
1036: END IF;
1037:
1038:
1036: END IF;
1037:
1038:
1039: -- Check Error Message stack.
1040: x_msg_count := FND_MSG_PUB.count_msg;
1041: IF x_msg_count > 0 THEN
1042: RAISE FND_API.G_EXC_ERROR;
1043: END IF;
1044:
1049: );
1050: FETCH disposition_exist INTO l_dummy;
1051: IF disposition_exist%FOUND THEN
1052: FND_MESSAGE.Set_Name('AHL','AHL_MC_COMP_DISP_EXISTS');
1053: FND_MSG_PUB.ADD;
1054: RAISE FND_API.G_EXC_ERROR;
1055: END IF;
1056:
1057: CLOSE disposition_exist;
1059: OPEN item_rev_exists(p_item_composition_id);
1060: FETCH item_rev_exists INTO l_rev_item_composition_id;
1061: IF item_rev_exists%FOUND THEN
1062: FND_MESSAGE.Set_Name('AHL','AHL_MC_COMP_REV_EXISTS');
1063: FND_MSG_PUB.ADD;
1064: RAISE FND_API.G_EXC_ERROR;
1065: END IF;
1066: CLOSE item_rev_exists;
1067:
1068:
1069: IF l_item_composition_rec.effective_end_date IS NOT NULL AND
1070: TRUNC(l_item_composition_rec.effective_end_date) <= TRUNC(SYSDATE) THEN
1071: FND_MESSAGE.Set_Name('AHL','AHL_MC_COMP_STATUS_NO_DELETE');
1072: FND_MSG_PUB.ADD;
1073: RAISE FND_API.G_EXC_ERROR;
1074: END IF;
1075:
1076:
1109: EXCEPTION
1110: WHEN FND_API.G_EXC_ERROR THEN
1111: x_return_status := FND_API.G_RET_STS_ERROR;
1112: Rollback to Delete_Item_Composition;
1113: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1114: p_data => x_msg_data,
1115: p_encoded => fnd_api.g_false);
1116:
1117: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
1123:
1124: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1125: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1126: Rollback to Delete_Item_Composition;
1127: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1128: p_data => x_msg_data,
1129: p_encoded => fnd_api.g_false);
1130:
1131: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
1136:
1137: WHEN OTHERS THEN
1138: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1139: Rollback to Delete_Item_Composition;
1140: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1141: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1142: p_procedure_name => 'Delete_Item_Composition',
1143: p_error_text => SUBSTR(SQLERRM,1,240));
1144: END IF;
1137: WHEN OTHERS THEN
1138: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1139: Rollback to Delete_Item_Composition;
1140: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1141: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1142: p_procedure_name => 'Delete_Item_Composition',
1143: p_error_text => SUBSTR(SQLERRM,1,240));
1144: END IF;
1145: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1141: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1142: p_procedure_name => 'Delete_Item_Composition',
1143: p_error_text => SUBSTR(SQLERRM,1,240));
1144: END IF;
1145: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1146: p_data => x_msg_data,
1147: p_encoded => fnd_api.g_false);
1148:
1149: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
1255:
1256: -- Standard call to check for call compatibility.
1257:
1258: IF FND_API.to_boolean(p_init_msg_list) THEN
1259: FND_MSG_PUB.initialize;
1260: END IF;
1261:
1262: -- Initialize API return status to success
1263:
1272: OPEN item_composition_det(p_item_composition_ID);
1273: FETCH item_composition_det INTO l_item_composition_rec;
1274: IF item_composition_det%NOTFOUND THEN
1275: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEM_COMP_NOT_EXISTS');
1276: FND_MSG_PUB.ADD;
1277: RAISE FND_API.G_EXC_ERROR;
1278: END IF;
1279:
1280: CLOSE item_composition_det;
1281:
1282:
1283: IF l_item_composition_rec.object_version_number <> p_object_version_number THEN
1284: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
1285: FND_MSG_PUB.ADD;
1286: RAISE FND_API.G_EXC_ERROR;
1287: END IF;
1288:
1289: /*
1292: FETCH item_composition_exists INTO l_dummy;
1293: IF item_composition_exists%FOUND THEN
1294: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEM_COMP_EXISTS');
1295: FND_MESSAGE.Set_Token('INV_ITEM',p_x_ic_header_rec.inventory_item_id);
1296: FND_MSG_PUB.ADD;
1297: RAISE FND_API.G_EXC_ERROR;
1298: END IF;
1299:
1300: CLOSE item_composition_exists;
1302:
1303:
1304: IF NVL(l_item_composition_rec.effective_end_date,TRUNC(SYSDATE)) >= TRUNC(SYSDATE) THEN
1305: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEM_COMP_OPEN');
1306: FND_MSG_PUB.ADD;
1307: RAISE FND_API.G_EXC_ERROR;
1308: END IF;
1309:
1310:
1308: END IF;
1309:
1310:
1311: -- Check Error Message stack.
1312: x_msg_count := FND_MSG_PUB.count_msg;
1313: IF x_msg_count > 0 THEN
1314: RAISE FND_API.G_EXC_ERROR;
1315: END IF;
1316:
1337: EXCEPTION
1338: WHEN FND_API.G_EXC_ERROR THEN
1339: x_return_status := FND_API.G_RET_STS_ERROR;
1340: Rollback to Reopen_Item_Composition;
1341: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1342: p_data => x_msg_data,
1343: p_encoded => fnd_api.g_false);
1344:
1345: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
1351:
1352: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1353: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1354: Rollback to Reopen_Item_Composition;
1355: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1356: p_data => x_msg_data,
1357: p_encoded => fnd_api.g_false);
1358:
1359: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
1364:
1365: WHEN OTHERS THEN
1366: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1367: Rollback to Reopen_Item_Composition;
1368: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1369: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1370: p_procedure_name => 'Reopen_Item_Composition',
1371: p_error_text => SUBSTR(SQLERRM,1,240));
1372: END IF;
1365: WHEN OTHERS THEN
1366: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1367: Rollback to Reopen_Item_Composition;
1368: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1369: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1370: p_procedure_name => 'Reopen_Item_Composition',
1371: p_error_text => SUBSTR(SQLERRM,1,240));
1372: END IF;
1373: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1369: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1370: p_procedure_name => 'Reopen_Item_Composition',
1371: p_error_text => SUBSTR(SQLERRM,1,240));
1372: END IF;
1373: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1374: p_data => x_msg_data,
1375: p_encoded => fnd_api.g_false);
1376:
1377: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
1639:
1640: -- Standard call to check for call compatibility.
1641:
1642: IF FND_API.to_boolean(l_init_msg_list) THEN
1643: FND_MSG_PUB.initialize;
1644: END IF;
1645:
1646: -- Initialize API return status to success
1647:
1674:
1675: IF p_object_Version_number is null or p_object_Version_number=FND_API.G_MISS_NUM
1676: THEN
1677: FND_MESSAGE.SET_NAME('AHL','AHL_MC_OBJ_VERSION_NULL');
1678: FND_MSG_PUB.ADD;
1679: END IF;
1680:
1681: IF p_Item_Composition_id is null or p_Item_Composition_id = FND_API.G_MISS_NUM
1682: THEN
1680:
1681: IF p_Item_Composition_id is null or p_Item_Composition_id = FND_API.G_MISS_NUM
1682: THEN
1683: FND_MESSAGE.SET_NAME('AHL','AHL_MC_OBJECT_ID_NULL');
1684: FND_MSG_PUB.ADD;
1685: ELSE
1686:
1687: OPEN get_Item_comp_Det(p_Item_Composition_id);
1688: FETCH get_Item_comp_Det INTO l_item_comp_rec;
1696:
1697: IF l_count < 1 THEN
1698: FND_MESSAGE.SET_NAME('AHL','AHL_MC_IC_EMPTY');
1699: FND_MESSAGE.Set_Token('ITEM_COMP',l_item_comp_rec.concatenated_segments);
1700: FND_MSG_PUB.ADD;
1701: RAISE FND_API.G_EXC_ERROR;
1702: END IF;
1703:
1704:
1709: THEN
1710: l_upd_status := 'APPROVAL_PENDING';
1711: ELSE
1712: FND_MESSAGE.SET_NAME('AHL','AHL_MC_IC_STAT_NOT_DRFT');
1713: FND_MSG_PUB.ADD;
1714: END IF;
1715: ELSE
1716: FND_MESSAGE.SET_NAME('AHL','AHL_APPR_TYPE_CODE_MISSING');
1717: FND_MSG_PUB.ADD;
1713: FND_MSG_PUB.ADD;
1714: END IF;
1715: ELSE
1716: FND_MESSAGE.SET_NAME('AHL','AHL_APPR_TYPE_CODE_MISSING');
1717: FND_MSG_PUB.ADD;
1718: END IF;
1719:
1720: END IF;
1721:
1718: END IF;
1719:
1720: END IF;
1721:
1722: l_msg_count := FND_MSG_PUB.count_msg;
1723:
1724: IF l_msg_count > 0
1725: THEN
1726: X_msg_count := l_msg_count;
1743:
1744: IF sql%rowcount=0
1745: THEN
1746: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
1747: FND_MSG_PUB.ADD;
1748: RAISE FND_API.G_EXC_ERROR;
1749: END IF;
1750:
1751: IF l_ACTIVE='Y'
1788: );
1789:
1790: END IF ;
1791:
1792: l_msg_count := FND_MSG_PUB.count_msg;
1793:
1794: IF l_msg_count > 0
1795: THEN
1796: X_msg_count := l_msg_count;
1804: COMMIT WORK;
1805: END IF;
1806:
1807: -- Standard call to get message count and if count is 1, get message info
1808: FND_MSG_PUB.Count_And_Get
1809: ( p_count => x_msg_count,
1810: p_data => x_msg_data,
1811: p_encoded => fnd_api.g_false);
1812:
1821: EXCEPTION
1822: WHEN FND_API.G_EXC_ERROR THEN
1823: x_return_status := FND_API.G_RET_STS_ERROR;
1824: Rollback to Initiate_Item_Comp_Approval;
1825: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1826: p_data => x_msg_data,
1827: p_encoded => fnd_api.g_false);
1828:
1829: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
1835:
1836: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1837: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1838: Rollback to Initiate_Item_Comp_Approval;
1839: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1840: p_data => x_msg_data,
1841: p_encoded => fnd_api.g_false);
1842:
1843: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
1848:
1849: WHEN OTHERS THEN
1850: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1851: Rollback to Initiate_Item_Comp_Approval;
1852: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1853: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1854: p_procedure_name => 'Initiate_Item_Comp_Approval',
1855: p_error_text => SUBSTR(SQLERRM,1,240));
1856: END IF;
1849: WHEN OTHERS THEN
1850: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1851: Rollback to Initiate_Item_Comp_Approval;
1852: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1853: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1854: p_procedure_name => 'Initiate_Item_Comp_Approval',
1855: p_error_text => SUBSTR(SQLERRM,1,240));
1856: END IF;
1857: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1853: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1854: p_procedure_name => 'Initiate_Item_Comp_Approval',
1855: p_error_text => SUBSTR(SQLERRM,1,240));
1856: END IF;
1857: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1858: p_data => x_msg_data,
1859: p_encoded => fnd_api.g_false);
1860:
1861: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
1949:
1950: -- Standard call to check for call compatibility.
1951:
1952: IF FND_API.to_boolean(l_init_msg_list) THEN
1953: FND_MSG_PUB.initialize;
1954: END IF;
1955:
1956: -- Initialize API return status to success
1957:
1968: OPEN get_item_comp_det(p_Item_comp_id);
1969: Fetch get_item_comp_det into l_item_comp_det;
1970: IF get_item_comp_det%NOTFOUND THEN
1971: FND_MESSAGE.SET_NAME('AHL','AHL_MC_OBJECT_ID_NULL');
1972: FND_MSG_PUB.ADD;
1973: END IF;
1974: close get_item_comp_det;
1975:
1976:
1977: IF l_item_comp_det.approval_status_code <> 'COMPLETE'
1978: OR l_item_comp_det.effective_end_date IS NOT NULL
1979: THEN
1980: FND_MESSAGE.SET_NAME('AHL','AHL_MC_IC_STAT_NOT_COMP');
1981: FND_MSG_PUB.ADD;
1982: END IF;
1983:
1984:
1985: IF l_item_comp_det.object_version_number <> p_object_version_number
1984:
1985: IF l_item_comp_det.object_version_number <> p_object_version_number
1986: THEN
1987: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
1988: FND_MSG_PUB.ADD;
1989: END IF;
1990:
1991:
1992: OPEN get_revision_info(p_Item_comp_id);
1992: OPEN get_revision_info(p_Item_comp_id);
1993: FETCH get_revision_info INTO l_dummy;
1994: IF get_revision_info%FOUND THEN
1995: FND_MESSAGE.SET_NAME('AHL','AHL_MC_IC_REVISION_EXIST');
1996: FND_MSG_PUB.ADD;
1997: END IF;
1998: CLOSE get_revision_info;
1999:
2000:
1998: CLOSE get_revision_info;
1999:
2000:
2001:
2002: l_msg_count := FND_MSG_PUB.count_msg;
2003:
2004: IF l_msg_count > 0
2005: THEN
2006: X_msg_count := l_msg_count;
2202: EXCEPTION
2203: WHEN FND_API.G_EXC_ERROR THEN
2204: x_return_status := FND_API.G_RET_STS_ERROR;
2205: Rollback to Create_Item_Comp_Revision;
2206: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2207: p_data => x_msg_data,
2208: p_encoded => fnd_api.g_false);
2209: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
2210: THEN
2215:
2216: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2217: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2218: Rollback to Create_Item_Comp_Revision;
2219: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2220: p_data => x_msg_data,
2221: p_encoded => fnd_api.g_false);
2222: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
2223: THEN
2228:
2229: WHEN OTHERS THEN
2230: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2231: Rollback to Create_Item_Comp_Revision;
2232: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2233: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2234: p_procedure_name => 'Create_Item_Comp_Revision',
2235: p_error_text => SUBSTR(SQLERRM,1,240));
2236: END IF;
2229: WHEN OTHERS THEN
2230: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2231: Rollback to Create_Item_Comp_Revision;
2232: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2233: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2234: p_procedure_name => 'Create_Item_Comp_Revision',
2235: p_error_text => SUBSTR(SQLERRM,1,240));
2236: END IF;
2237: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2233: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2234: p_procedure_name => 'Create_Item_Comp_Revision',
2235: p_error_text => SUBSTR(SQLERRM,1,240));
2236: END IF;
2237: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2238: p_data => x_msg_data,
2239: p_encoded => fnd_api.g_false);
2240: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
2241: THEN
2334:
2335: -- Standard call to check for call compatibility.
2336:
2337: IF FND_API.to_boolean(l_init_msg_list) THEN
2338: FND_MSG_PUB.initialize;
2339: END IF;
2340:
2341: -- Initialize API return status to success
2342:
2354: FETCH get_item_comp_det INTO l_item_comp_det;
2355: IF get_item_comp_det%NOTFOUND
2356: THEN
2357: FND_MESSAGE.SET_NAME('AHL','AHL_MC_OBJECT_ID_NULL');
2358: FND_MSG_PUB.ADD;
2359: END IF;
2360: CLOSE get_item_comp_det;
2361:
2362: IF l_item_comp_det.object_version_number <> p_object_version_number
2361:
2362: IF l_item_comp_det.object_version_number <> p_object_version_number
2363: THEN
2364: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
2365: FND_MSG_PUB.ADD;
2366: END IF;
2367:
2368:
2369: l_msg_count := FND_MSG_PUB.count_msg;
2365: FND_MSG_PUB.ADD;
2366: END IF;
2367:
2368:
2369: l_msg_count := FND_MSG_PUB.count_msg;
2370:
2371: IF l_msg_count > 0
2372: THEN
2373: X_msg_count := l_msg_count;
2531: EXCEPTION
2532: WHEN FND_API.G_EXC_ERROR THEN
2533: x_return_status := FND_API.G_RET_STS_ERROR;
2534: Rollback to Approve_Item_Composiiton;
2535: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2536: p_data => x_msg_data,
2537: p_encoded => fnd_api.g_false);
2538:
2539: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
2545:
2546: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2547: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2548: Rollback to Approve_Item_Composiiton;
2549: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2550: p_data => x_msg_data,
2551: p_encoded => fnd_api.g_false);
2552:
2553: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
2558:
2559: WHEN OTHERS THEN
2560: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2561: Rollback to Approve_Item_Composiiton;
2562: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2563: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2564: p_procedure_name => 'Approve_Item_Composiiton',
2565: p_error_text => SUBSTR(SQLERRM,1,240));
2566: END IF;
2559: WHEN OTHERS THEN
2560: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2561: Rollback to Approve_Item_Composiiton;
2562: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2563: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2564: p_procedure_name => 'Approve_Item_Composiiton',
2565: p_error_text => SUBSTR(SQLERRM,1,240));
2566: END IF;
2567: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2563: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2564: p_procedure_name => 'Approve_Item_Composiiton',
2565: p_error_text => SUBSTR(SQLERRM,1,240));
2566: END IF;
2567: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2568: p_data => x_msg_data,
2569: p_encoded => fnd_api.g_false);
2570:
2571: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )