[Home] [Help]
25: l_junk VARCHAR2(1);
26:
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;
78: true
79: );
80: END IF;
81: CLOSE check_priority_dup_exists;
82: RAISE FND_API.G_EXC_ERROR;
83: END IF;
84:
85: END Validate_priority;
86:
119: true
120: );
121: END IF;
122: CLOSE check_revision_dup_exists;
123: RAISE FND_API.G_EXC_ERROR;
124: END IF;
125:
126: END Validate_IG_revision;
127: --Priyan IG Mass Update Changes Ends.
234: END IF;
235:
236: -- SATHAPLI::Bug# 5566764 fix
237: -- Initialize API return status to success
238: x_return_status := FND_API.G_RET_STS_SUCCESS;
239:
240: BEGIN
241: -- Retrieve the items that are invalidated in the current revision
242: SELECT SOURCE.item_group_id,
293: -- Call UC procedure to check if active Units are getting affected
294: AHL_UTIL_UC_PKG.Check_Invalidate_Instance
295: (
296: p_api_version => 1.0,
297: p_init_msg_list => FND_API.G_FALSE,
298: p_instance_tbl => l_invalid_item_instance_tbl,
299: p_operator => 'U',
300: x_return_status => x_return_status,
301: x_msg_count => x_msg_count,
348:
349: BEGIN
350:
351: IF (p_inventory_item_id IS NULL)
352: OR (p_inventory_item_id = FND_API.G_MISS_NUM)
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);
350:
351: IF (p_inventory_item_id IS NULL)
352: OR (p_inventory_item_id = FND_API.G_MISS_NUM)
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.');
428: p_inv_segment IN VARCHAR2) IS
429:
430: BEGIN
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;
476:
477: l_junk VARCHAR2(1);
478:
479: BEGIN
480: IF (p_revision IS NULL) OR (p_revision = FND_API.G_MISS_CHAR) THEN
481: RETURN;
482: END IF;
483:
484: IF (nvl(p_revision_qty_control_code,0) <> 2) THEN
560:
561: BEGIN
562:
563: IF (p_operation_flag = 'C' ) THEN
564: IF (p_item_revision = FND_API.G_MISS_CHAR OR p_item_revision IS NULL) THEN
565: OPEN item_revnotnull_csr(p_item_group_id, p_inventory_item_id, p_inventory_org_id);
566: FETCH item_revnotnull_csr INTO l_junk;
567: IF (item_revnotnull_csr%FOUND) THEN
568: if l_junk is not null then
603: CLOSE rev_exists_csr;
604: END IF;
605: END IF;
606: ELSIF (p_operation_flag = 'M' ) THEN
607: IF (p_item_revision = FND_API.G_MISS_CHAR OR p_item_revision IS NULL) THEN
608: -- Check if any record exists, in the DB .
609: -- If there are more than one row then the user cannot change the revison to Null as other not nul revision exists.
610: -- If there is only one record, then no validation is required.
611: -- If there are no records , then do nothing.
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;
637: END;
638:
639: /*ELSE --commented out for mass update changes --Priyan
640:
678: BEGIN
679: -- Bug Number 4069855
680: -- Changed on 21st Dec 2004, to allow for Items with different revisions to be added to the same Item Group
681: -- Now we have different Error mesages, depending on the combination which is Duplicate
682: IF (p_item_revision = FND_API.G_MISS_CHAR OR p_item_revision IS NULL) THEN
683: OPEN item_assoc_csr(p_item_group_id, p_inventory_item_id,'000', p_inventory_org_id);
684: FETCH item_assoc_csr INTO l_junk;
685: IF (item_assoc_csr%FOUND) THEN
686: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEM_ASSOC_DUP');
717: END IF;
718:
719:
720: -- Check if UOM entered and valid.
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;
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;
923: FND_MESSAGE.Set_Name('AHL','AHL_MC_IG_ASSOS_NOT_EXISTS');
924: FND_MESSAGE.Set_Token('INV_ITEM',l_item_assoc_rec.concatenated_segments);
925: FND_MSG_PUB.ADD;
926: --dbms_output.put_line('Item Assoc does not exist');
927: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
928: END IF;
929:
930: -- Set variables.
931: x_row_id := l_item_assoc_rec.row_id;
954:
955: FND_MESSAGE.Set_Name('AHL','AHL_COM_KEY_NOUPDATE');
956: FND_MSG_PUB.ADD;
957: --dbms_output.put_line('Primary key cannot be updated');
958: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
959: END IF;
960:
961: -- plug primary key values.
962: l_x_item_assoc_rec.inventory_item_id := l_item_assoc_rec.inventory_item_id;
997:
998: -- Bug Number 4069855
999: -- Changed on 21st Dec 2004 , to allow for Items with different revisions to be added to the same Group
1000: -- 000 is used to denote that user has not entered a revision
1001: IF (l_x_item_assoc_rec.revision = FND_API.G_MISS_CHAR OR l_x_item_assoc_rec.revision IS NULL) THEN
1002: l_inventory_item_revision := '000';
1003: ELSE
1004: l_inventory_item_revision := l_x_item_assoc_rec.revision;
1005: END IF;
1051:
1052: --Priyan (revision check change for update for Item Group)
1053: --Bug # 4330922
1054: if (( l_x_item_assoc_rec.operation_flag = 'M') and
1055: nvl(l_x_item_assoc_rec.revision,FND_API.G_MISS_CHAR) <>
1056: nvl(l_item_assoc_rec.revision,FND_API.G_MISS_CHAR)) THEN
1057:
1058: Validate_Dup_Inventory(p_name,
1059: p_item_group_id,
1052: --Priyan (revision check change for update for Item Group)
1053: --Bug # 4330922
1054: if (( l_x_item_assoc_rec.operation_flag = 'M') and
1055: nvl(l_x_item_assoc_rec.revision,FND_API.G_MISS_CHAR) <>
1056: nvl(l_item_assoc_rec.revision,FND_API.G_MISS_CHAR)) THEN
1057:
1058: Validate_Dup_Inventory(p_name,
1059: p_item_group_id,
1060: l_x_item_assoc_rec.inventory_item_id,
1088: END IF;
1089:
1090:
1091: -- Validate priority only for 'Create' and if changed during modify.
1092: IF (l_x_item_assoc_rec.priority <> FND_API.G_MISS_NUM AND l_x_item_assoc_rec.priority IS NOT NULL)
1093: THEN
1094: IF (l_x_item_assoc_rec.priority <= 0) THEN
1095: FND_MESSAGE.Set_Name('AHL','AHL_MC_PRIORITY_INVALID');
1096: FND_MESSAGE.Set_Token('INV_ITEM',l_inv_segment);
1098: FND_MSG_PUB.ADD;
1099: --dbms_output.put_line('Invalid priority');
1100: END IF;
1101: ELSIF l_x_item_assoc_rec.operation_flag = 'C' OR
1102: (l_x_item_assoc_rec.operation_flag = 'M' AND l_x_item_assoc_rec.priority = FND_API.G_MISS_NUM) THEN
1103: FND_MESSAGE.Set_Name('AHL','AHL_MC_PRIORITY_NULL');
1104: FND_MESSAGE.Set_Token('INV_ITEM',l_inv_segment);
1105: FND_MSG_PUB.ADD;
1106: --dbms_output.put_line('Null priority');
1112: l_uom_code := l_x_item_assoc_rec.uom_code;
1113: ELSIF (l_x_item_assoc_rec.operation_flag = 'M') THEN
1114:
1115: -- For quantity
1116: IF (l_x_item_assoc_rec.quantity = FND_API.G_MISS_NUM) THEN
1117: l_quantity := null;
1118: ELSIF (l_x_item_assoc_rec.quantity = null ) THEN
1119: l_quantity := l_item_assoc_rec.quantity;
1120: ELSE
1121: l_quantity := l_x_item_assoc_rec.quantity;
1122: END IF;
1123:
1124: -- For uom code.
1125: IF (l_x_item_assoc_rec.uom_code = FND_API.G_MISS_CHAR) THEN
1126: l_uom_code := null;
1127: ELSIF (l_x_item_assoc_rec.uom_code = null) THEN
1128: l_uom_code := l_item_assoc_rec.uom_code;
1129: ELSE
1152: THEN
1153: IF (nvl(l_serial_number_control,0) IN (2,5,6)) THEN
1154: IF (l_quantity IS NULL OR
1155: l_quantity = 0 OR
1156: l_quantity = FND_API.G_MISS_NUM) THEN
1157: FND_MESSAGE.Set_Name('AHL','AHL_MC_SRLQTY_NULL');
1158: FND_MESSAGE.Set_Token('INV_ITEM',l_inv_segment);
1159: FND_MSG_PUB.ADD;
1160: --dbms_output.put_line('Invalid UOM code for the item');
1198:
1199: BEGIN
1200:
1201: -- Set default values.
1202: IF p_x_item_grp_rec.DESCRIPTION = FND_API.G_MISS_CHAR THEN
1203: p_x_item_grp_rec.DESCRIPTION := null;
1204: END IF;
1205: IF p_x_item_grp_rec.ATTRIBUTE_CATEGORY = FND_API.G_MISS_CHAR THEN
1206: p_x_item_grp_rec.ATTRIBUTE_CATEGORY := null;
1201: -- Set default values.
1202: IF p_x_item_grp_rec.DESCRIPTION = FND_API.G_MISS_CHAR THEN
1203: p_x_item_grp_rec.DESCRIPTION := null;
1204: END IF;
1205: IF p_x_item_grp_rec.ATTRIBUTE_CATEGORY = FND_API.G_MISS_CHAR THEN
1206: p_x_item_grp_rec.ATTRIBUTE_CATEGORY := null;
1207: END IF;
1208: IF p_x_item_grp_rec.ATTRIBUTE1 = FND_API.G_MISS_CHAR THEN
1209: p_x_item_grp_rec.ATTRIBUTE1 := null;
1204: END IF;
1205: IF p_x_item_grp_rec.ATTRIBUTE_CATEGORY = FND_API.G_MISS_CHAR THEN
1206: p_x_item_grp_rec.ATTRIBUTE_CATEGORY := null;
1207: END IF;
1208: IF p_x_item_grp_rec.ATTRIBUTE1 = FND_API.G_MISS_CHAR THEN
1209: p_x_item_grp_rec.ATTRIBUTE1 := null;
1210: END IF;
1211: IF p_x_item_grp_rec.ATTRIBUTE2 = FND_API.G_MISS_CHAR THEN
1212: p_x_item_grp_rec.ATTRIBUTE2 := null;
1207: END IF;
1208: IF p_x_item_grp_rec.ATTRIBUTE1 = FND_API.G_MISS_CHAR THEN
1209: p_x_item_grp_rec.ATTRIBUTE1 := null;
1210: END IF;
1211: IF p_x_item_grp_rec.ATTRIBUTE2 = FND_API.G_MISS_CHAR THEN
1212: p_x_item_grp_rec.ATTRIBUTE2 := null;
1213: END IF;
1214: IF p_x_item_grp_rec.ATTRIBUTE3 = FND_API.G_MISS_CHAR THEN
1215: p_x_item_grp_rec.ATTRIBUTE3 := null;
1210: END IF;
1211: IF p_x_item_grp_rec.ATTRIBUTE2 = FND_API.G_MISS_CHAR THEN
1212: p_x_item_grp_rec.ATTRIBUTE2 := null;
1213: END IF;
1214: IF p_x_item_grp_rec.ATTRIBUTE3 = FND_API.G_MISS_CHAR THEN
1215: p_x_item_grp_rec.ATTRIBUTE3 := null;
1216: END IF;
1217: IF p_x_item_grp_rec.ATTRIBUTE4 = FND_API.G_MISS_CHAR THEN
1218: p_x_item_grp_rec.ATTRIBUTE4 := null;
1213: END IF;
1214: IF p_x_item_grp_rec.ATTRIBUTE3 = FND_API.G_MISS_CHAR THEN
1215: p_x_item_grp_rec.ATTRIBUTE3 := null;
1216: END IF;
1217: IF p_x_item_grp_rec.ATTRIBUTE4 = FND_API.G_MISS_CHAR THEN
1218: p_x_item_grp_rec.ATTRIBUTE4 := null;
1219: END IF;
1220: IF p_x_item_grp_rec.ATTRIBUTE5 = FND_API.G_MISS_CHAR THEN
1221: p_x_item_grp_rec.ATTRIBUTE5 := null;
1216: END IF;
1217: IF p_x_item_grp_rec.ATTRIBUTE4 = FND_API.G_MISS_CHAR THEN
1218: p_x_item_grp_rec.ATTRIBUTE4 := null;
1219: END IF;
1220: IF p_x_item_grp_rec.ATTRIBUTE5 = FND_API.G_MISS_CHAR THEN
1221: p_x_item_grp_rec.ATTRIBUTE5 := null;
1222: END IF;
1223: IF p_x_item_grp_rec.ATTRIBUTE6 = FND_API.G_MISS_CHAR THEN
1224: p_x_item_grp_rec.ATTRIBUTE6 := null;
1219: END IF;
1220: IF p_x_item_grp_rec.ATTRIBUTE5 = FND_API.G_MISS_CHAR THEN
1221: p_x_item_grp_rec.ATTRIBUTE5 := null;
1222: END IF;
1223: IF p_x_item_grp_rec.ATTRIBUTE6 = FND_API.G_MISS_CHAR THEN
1224: p_x_item_grp_rec.ATTRIBUTE6 := null;
1225: END IF;
1226: IF p_x_item_grp_rec.ATTRIBUTE7 = FND_API.G_MISS_CHAR THEN
1227: p_x_item_grp_rec.ATTRIBUTE7 := null;
1222: END IF;
1223: IF p_x_item_grp_rec.ATTRIBUTE6 = FND_API.G_MISS_CHAR THEN
1224: p_x_item_grp_rec.ATTRIBUTE6 := null;
1225: END IF;
1226: IF p_x_item_grp_rec.ATTRIBUTE7 = FND_API.G_MISS_CHAR THEN
1227: p_x_item_grp_rec.ATTRIBUTE7 := null;
1228: END IF;
1229: IF p_x_item_grp_rec.ATTRIBUTE8 = FND_API.G_MISS_CHAR THEN
1230: p_x_item_grp_rec.ATTRIBUTE8 := null;
1225: END IF;
1226: IF p_x_item_grp_rec.ATTRIBUTE7 = FND_API.G_MISS_CHAR THEN
1227: p_x_item_grp_rec.ATTRIBUTE7 := null;
1228: END IF;
1229: IF p_x_item_grp_rec.ATTRIBUTE8 = FND_API.G_MISS_CHAR THEN
1230: p_x_item_grp_rec.ATTRIBUTE8 := null;
1231: END IF;
1232: IF p_x_item_grp_rec.ATTRIBUTE9 = FND_API.G_MISS_CHAR THEN
1233: p_x_item_grp_rec.ATTRIBUTE9 := null;
1228: END IF;
1229: IF p_x_item_grp_rec.ATTRIBUTE8 = FND_API.G_MISS_CHAR THEN
1230: p_x_item_grp_rec.ATTRIBUTE8 := null;
1231: END IF;
1232: IF p_x_item_grp_rec.ATTRIBUTE9 = FND_API.G_MISS_CHAR THEN
1233: p_x_item_grp_rec.ATTRIBUTE9 := null;
1234: END IF;
1235: IF p_x_item_grp_rec.ATTRIBUTE10 = FND_API.G_MISS_CHAR THEN
1236: p_x_item_grp_rec.ATTRIBUTE10 := null;
1231: END IF;
1232: IF p_x_item_grp_rec.ATTRIBUTE9 = FND_API.G_MISS_CHAR THEN
1233: p_x_item_grp_rec.ATTRIBUTE9 := null;
1234: END IF;
1235: IF p_x_item_grp_rec.ATTRIBUTE10 = FND_API.G_MISS_CHAR THEN
1236: p_x_item_grp_rec.ATTRIBUTE10 := null;
1237: END IF;
1238: IF p_x_item_grp_rec.ATTRIBUTE11 = FND_API.G_MISS_CHAR THEN
1239: p_x_item_grp_rec.ATTRIBUTE11 := null;
1234: END IF;
1235: IF p_x_item_grp_rec.ATTRIBUTE10 = FND_API.G_MISS_CHAR THEN
1236: p_x_item_grp_rec.ATTRIBUTE10 := null;
1237: END IF;
1238: IF p_x_item_grp_rec.ATTRIBUTE11 = FND_API.G_MISS_CHAR THEN
1239: p_x_item_grp_rec.ATTRIBUTE11 := null;
1240: END IF;
1241: IF p_x_item_grp_rec.ATTRIBUTE12 = FND_API.G_MISS_CHAR THEN
1242: p_x_item_grp_rec.ATTRIBUTE12 := null;
1237: END IF;
1238: IF p_x_item_grp_rec.ATTRIBUTE11 = FND_API.G_MISS_CHAR THEN
1239: p_x_item_grp_rec.ATTRIBUTE11 := null;
1240: END IF;
1241: IF p_x_item_grp_rec.ATTRIBUTE12 = FND_API.G_MISS_CHAR THEN
1242: p_x_item_grp_rec.ATTRIBUTE12 := null;
1243: END IF;
1244: IF p_x_item_grp_rec.ATTRIBUTE13 = FND_API.G_MISS_CHAR THEN
1245: p_x_item_grp_rec.ATTRIBUTE13 := null;
1240: END IF;
1241: IF p_x_item_grp_rec.ATTRIBUTE12 = FND_API.G_MISS_CHAR THEN
1242: p_x_item_grp_rec.ATTRIBUTE12 := null;
1243: END IF;
1244: IF p_x_item_grp_rec.ATTRIBUTE13 = FND_API.G_MISS_CHAR THEN
1245: p_x_item_grp_rec.ATTRIBUTE13 := null;
1246: END IF;
1247: IF p_x_item_grp_rec.ATTRIBUTE14 = FND_API.G_MISS_CHAR THEN
1248: p_x_item_grp_rec.ATTRIBUTE14 := null;
1243: END IF;
1244: IF p_x_item_grp_rec.ATTRIBUTE13 = FND_API.G_MISS_CHAR THEN
1245: p_x_item_grp_rec.ATTRIBUTE13 := null;
1246: END IF;
1247: IF p_x_item_grp_rec.ATTRIBUTE14 = FND_API.G_MISS_CHAR THEN
1248: p_x_item_grp_rec.ATTRIBUTE14 := null;
1249: END IF;
1250: IF p_x_item_grp_rec.ATTRIBUTE15 = FND_API.G_MISS_CHAR THEN
1251: p_x_item_grp_rec.ATTRIBUTE15 := null;
1246: END IF;
1247: IF p_x_item_grp_rec.ATTRIBUTE14 = FND_API.G_MISS_CHAR THEN
1248: p_x_item_grp_rec.ATTRIBUTE14 := null;
1249: END IF;
1250: IF p_x_item_grp_rec.ATTRIBUTE15 = FND_API.G_MISS_CHAR THEN
1251: p_x_item_grp_rec.ATTRIBUTE15 := null;
1252: END IF;
1253:
1254:
1307: l_row_id VARCHAR2(30);
1308: BEGIN
1309:
1310: -- Replace G_MISS values with nulls.
1311: IF (l_item_assoc_rec.REVISION = FND_API.G_MISS_CHAR) THEN
1312: l_item_assoc_rec.REVISION := null;
1313: END IF;
1314: IF (l_item_assoc_rec.QUANTITY = FND_API.G_MISS_NUM) THEN
1315: l_item_assoc_rec.QUANTITY := null;
1310: -- Replace G_MISS values with nulls.
1311: IF (l_item_assoc_rec.REVISION = FND_API.G_MISS_CHAR) THEN
1312: l_item_assoc_rec.REVISION := null;
1313: END IF;
1314: IF (l_item_assoc_rec.QUANTITY = FND_API.G_MISS_NUM) THEN
1315: l_item_assoc_rec.QUANTITY := null;
1316: l_item_assoc_rec.UOM_CODE := null;
1317: ELSIF (l_item_assoc_rec.QUANTITY IS NULL OR l_item_assoc_rec.QUANTITY = 0) THEN
1318: l_item_assoc_rec.UOM_CODE := null; -- if quantity = 0 then uom must be null.
1316: l_item_assoc_rec.UOM_CODE := null;
1317: ELSIF (l_item_assoc_rec.QUANTITY IS NULL OR l_item_assoc_rec.QUANTITY = 0) THEN
1318: l_item_assoc_rec.UOM_CODE := null; -- if quantity = 0 then uom must be null.
1319: END IF;
1320: IF (l_item_assoc_rec.UOM_CODE = FND_API.G_MISS_CHAR) THEN
1321: l_item_assoc_rec.UOM_CODE := null;
1322: END IF;
1323: IF (l_item_assoc_rec.INTERCHANGE_TYPE_CODE = FND_API.G_MISS_CHAR) THEN
1324: l_item_assoc_rec.INTERCHANGE_TYPE_CODE := null;
1319: END IF;
1320: IF (l_item_assoc_rec.UOM_CODE = FND_API.G_MISS_CHAR) THEN
1321: l_item_assoc_rec.UOM_CODE := null;
1322: END IF;
1323: IF (l_item_assoc_rec.INTERCHANGE_TYPE_CODE = FND_API.G_MISS_CHAR) THEN
1324: l_item_assoc_rec.INTERCHANGE_TYPE_CODE := null;
1325: END IF;
1326: IF (l_item_assoc_rec.INTERCHANGE_REASON = FND_API.G_MISS_CHAR) THEN
1327: l_item_assoc_rec.INTERCHANGE_REASON := null;
1322: END IF;
1323: IF (l_item_assoc_rec.INTERCHANGE_TYPE_CODE = FND_API.G_MISS_CHAR) THEN
1324: l_item_assoc_rec.INTERCHANGE_TYPE_CODE := null;
1325: END IF;
1326: IF (l_item_assoc_rec.INTERCHANGE_REASON = FND_API.G_MISS_CHAR) THEN
1327: l_item_assoc_rec.INTERCHANGE_REASON := null;
1328: END IF;
1329:
1330: IF (l_item_assoc_rec.ATTRIBUTE_CATEGORY = FND_API.G_MISS_CHAR) THEN
1326: IF (l_item_assoc_rec.INTERCHANGE_REASON = FND_API.G_MISS_CHAR) THEN
1327: l_item_assoc_rec.INTERCHANGE_REASON := null;
1328: END IF;
1329:
1330: IF (l_item_assoc_rec.ATTRIBUTE_CATEGORY = FND_API.G_MISS_CHAR) THEN
1331: l_item_assoc_rec.ATTRIBUTE_CATEGORY := null;
1332: END IF;
1333: IF (l_item_assoc_rec.ATTRIBUTE1 = FND_API.G_MISS_CHAR) THEN
1334: l_item_assoc_rec.ATTRIBUTE1 := null;
1329:
1330: IF (l_item_assoc_rec.ATTRIBUTE_CATEGORY = FND_API.G_MISS_CHAR) THEN
1331: l_item_assoc_rec.ATTRIBUTE_CATEGORY := null;
1332: END IF;
1333: IF (l_item_assoc_rec.ATTRIBUTE1 = FND_API.G_MISS_CHAR) THEN
1334: l_item_assoc_rec.ATTRIBUTE1 := null;
1335: END IF;
1336: IF (l_item_assoc_rec.ATTRIBUTE2 = FND_API.G_MISS_CHAR) THEN
1337: l_item_assoc_rec.ATTRIBUTE2 := null;
1332: END IF;
1333: IF (l_item_assoc_rec.ATTRIBUTE1 = FND_API.G_MISS_CHAR) THEN
1334: l_item_assoc_rec.ATTRIBUTE1 := null;
1335: END IF;
1336: IF (l_item_assoc_rec.ATTRIBUTE2 = FND_API.G_MISS_CHAR) THEN
1337: l_item_assoc_rec.ATTRIBUTE2 := null;
1338: END IF;
1339: IF (l_item_assoc_rec.ATTRIBUTE3 = FND_API.G_MISS_CHAR) THEN
1340: l_item_assoc_rec.ATTRIBUTE3 := null;
1335: END IF;
1336: IF (l_item_assoc_rec.ATTRIBUTE2 = FND_API.G_MISS_CHAR) THEN
1337: l_item_assoc_rec.ATTRIBUTE2 := null;
1338: END IF;
1339: IF (l_item_assoc_rec.ATTRIBUTE3 = FND_API.G_MISS_CHAR) THEN
1340: l_item_assoc_rec.ATTRIBUTE3 := null;
1341: END IF;
1342: IF (l_item_assoc_rec.ATTRIBUTE4 = FND_API.G_MISS_CHAR) THEN
1343: l_item_assoc_rec.ATTRIBUTE4 := null;
1338: END IF;
1339: IF (l_item_assoc_rec.ATTRIBUTE3 = FND_API.G_MISS_CHAR) THEN
1340: l_item_assoc_rec.ATTRIBUTE3 := null;
1341: END IF;
1342: IF (l_item_assoc_rec.ATTRIBUTE4 = FND_API.G_MISS_CHAR) THEN
1343: l_item_assoc_rec.ATTRIBUTE4 := null;
1344: END IF;
1345: IF (l_item_assoc_rec.ATTRIBUTE5 = FND_API.G_MISS_CHAR) THEN
1346: l_item_assoc_rec.ATTRIBUTE5 := null;
1341: END IF;
1342: IF (l_item_assoc_rec.ATTRIBUTE4 = FND_API.G_MISS_CHAR) THEN
1343: l_item_assoc_rec.ATTRIBUTE4 := null;
1344: END IF;
1345: IF (l_item_assoc_rec.ATTRIBUTE5 = FND_API.G_MISS_CHAR) THEN
1346: l_item_assoc_rec.ATTRIBUTE5 := null;
1347: END IF;
1348: IF (l_item_assoc_rec.ATTRIBUTE6 = FND_API.G_MISS_CHAR) THEN
1349: l_item_assoc_rec.ATTRIBUTE6 := null;
1344: END IF;
1345: IF (l_item_assoc_rec.ATTRIBUTE5 = FND_API.G_MISS_CHAR) THEN
1346: l_item_assoc_rec.ATTRIBUTE5 := null;
1347: END IF;
1348: IF (l_item_assoc_rec.ATTRIBUTE6 = FND_API.G_MISS_CHAR) THEN
1349: l_item_assoc_rec.ATTRIBUTE6 := null;
1350: END IF;
1351: IF (l_item_assoc_rec.ATTRIBUTE7 = FND_API.G_MISS_CHAR) THEN
1352: l_item_assoc_rec.ATTRIBUTE7 := null;
1347: END IF;
1348: IF (l_item_assoc_rec.ATTRIBUTE6 = FND_API.G_MISS_CHAR) THEN
1349: l_item_assoc_rec.ATTRIBUTE6 := null;
1350: END IF;
1351: IF (l_item_assoc_rec.ATTRIBUTE7 = FND_API.G_MISS_CHAR) THEN
1352: l_item_assoc_rec.ATTRIBUTE7 := null;
1353: END IF;
1354: IF (l_item_assoc_rec.ATTRIBUTE8 = FND_API.G_MISS_CHAR) THEN
1355: l_item_assoc_rec.ATTRIBUTE8 := null;
1350: END IF;
1351: IF (l_item_assoc_rec.ATTRIBUTE7 = FND_API.G_MISS_CHAR) THEN
1352: l_item_assoc_rec.ATTRIBUTE7 := null;
1353: END IF;
1354: IF (l_item_assoc_rec.ATTRIBUTE8 = FND_API.G_MISS_CHAR) THEN
1355: l_item_assoc_rec.ATTRIBUTE8 := null;
1356: END IF;
1357: IF (l_item_assoc_rec.ATTRIBUTE9 = FND_API.G_MISS_CHAR) THEN
1358: l_item_assoc_rec.ATTRIBUTE9 := null;
1353: END IF;
1354: IF (l_item_assoc_rec.ATTRIBUTE8 = FND_API.G_MISS_CHAR) THEN
1355: l_item_assoc_rec.ATTRIBUTE8 := null;
1356: END IF;
1357: IF (l_item_assoc_rec.ATTRIBUTE9 = FND_API.G_MISS_CHAR) THEN
1358: l_item_assoc_rec.ATTRIBUTE9 := null;
1359: END IF;
1360: IF (l_item_assoc_rec.ATTRIBUTE10 = FND_API.G_MISS_CHAR) THEN
1361: l_item_assoc_rec.ATTRIBUTE10 := null;
1356: END IF;
1357: IF (l_item_assoc_rec.ATTRIBUTE9 = FND_API.G_MISS_CHAR) THEN
1358: l_item_assoc_rec.ATTRIBUTE9 := null;
1359: END IF;
1360: IF (l_item_assoc_rec.ATTRIBUTE10 = FND_API.G_MISS_CHAR) THEN
1361: l_item_assoc_rec.ATTRIBUTE10 := null;
1362: END IF;
1363: IF (l_item_assoc_rec.ATTRIBUTE11 = FND_API.G_MISS_CHAR) THEN
1364: l_item_assoc_rec.ATTRIBUTE11 := null;
1359: END IF;
1360: IF (l_item_assoc_rec.ATTRIBUTE10 = FND_API.G_MISS_CHAR) THEN
1361: l_item_assoc_rec.ATTRIBUTE10 := null;
1362: END IF;
1363: IF (l_item_assoc_rec.ATTRIBUTE11 = FND_API.G_MISS_CHAR) THEN
1364: l_item_assoc_rec.ATTRIBUTE11 := null;
1365: END IF;
1366: IF (l_item_assoc_rec.ATTRIBUTE12 = FND_API.G_MISS_CHAR) THEN
1367: l_item_assoc_rec.ATTRIBUTE12 := null;
1362: END IF;
1363: IF (l_item_assoc_rec.ATTRIBUTE11 = FND_API.G_MISS_CHAR) THEN
1364: l_item_assoc_rec.ATTRIBUTE11 := null;
1365: END IF;
1366: IF (l_item_assoc_rec.ATTRIBUTE12 = FND_API.G_MISS_CHAR) THEN
1367: l_item_assoc_rec.ATTRIBUTE12 := null;
1368: END IF;
1369: IF (l_item_assoc_rec.ATTRIBUTE13 = FND_API.G_MISS_CHAR) THEN
1370: l_item_assoc_rec.ATTRIBUTE13 := null;
1365: END IF;
1366: IF (l_item_assoc_rec.ATTRIBUTE12 = FND_API.G_MISS_CHAR) THEN
1367: l_item_assoc_rec.ATTRIBUTE12 := null;
1368: END IF;
1369: IF (l_item_assoc_rec.ATTRIBUTE13 = FND_API.G_MISS_CHAR) THEN
1370: l_item_assoc_rec.ATTRIBUTE13 := null;
1371: END IF;
1372: IF (l_item_assoc_rec.ATTRIBUTE14 = FND_API.G_MISS_CHAR) THEN
1373: l_item_assoc_rec.ATTRIBUTE14 := null;
1368: END IF;
1369: IF (l_item_assoc_rec.ATTRIBUTE13 = FND_API.G_MISS_CHAR) THEN
1370: l_item_assoc_rec.ATTRIBUTE13 := null;
1371: END IF;
1372: IF (l_item_assoc_rec.ATTRIBUTE14 = FND_API.G_MISS_CHAR) THEN
1373: l_item_assoc_rec.ATTRIBUTE14 := null;
1374: END IF;
1375: IF (l_item_assoc_rec.ATTRIBUTE15 = FND_API.G_MISS_CHAR) THEN
1376: l_item_assoc_rec.ATTRIBUTE15 := null;
1371: END IF;
1372: IF (l_item_assoc_rec.ATTRIBUTE14 = FND_API.G_MISS_CHAR) THEN
1373: l_item_assoc_rec.ATTRIBUTE14 := null;
1374: END IF;
1375: IF (l_item_assoc_rec.ATTRIBUTE15 = FND_API.G_MISS_CHAR) THEN
1376: l_item_assoc_rec.ATTRIBUTE15 := null;
1377: END IF;
1378: --Gets the sequence Number
1379: SELECT AHL_ITEM_ASSOCIATIONS_B_S.nextval INTO
1484: CLOSE Item_assoc_csr;
1485: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_DELETED');
1486: FND_MSG_PUB.ADD;
1487: --dbms_output.put_line('Item Assoc does not exist');
1488: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1489: END IF;
1490:
1491: -- Check Object version number.
1492: IF (l_old_item_assoc_rec.object_version_number <> l_item_assoc_rec.object_version_number) THEN
1492: IF (l_old_item_assoc_rec.object_version_number <> l_item_assoc_rec.object_version_number) THEN
1493: CLOSE Item_assoc_csr;
1494: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
1495: FND_MSG_PUB.ADD;
1496: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1497: END IF;
1498:
1499: -- Check for changed columns.
1500:
1499: -- Check for changed columns.
1500:
1501: IF (l_item_assoc_rec.REVISION = NULL) THEN
1502: l_item_assoc_rec.REVISION := l_old_item_assoc_rec.REVISION;
1503: ELSIF (l_item_assoc_rec.REVISION = FND_API.G_MISS_CHAR) THEN
1504: l_item_assoc_rec.REVISION := NULL;
1505: END IF;
1506:
1507: IF (l_item_assoc_rec.PRIORITY = NULL) THEN
1505: END IF;
1506:
1507: IF (l_item_assoc_rec.PRIORITY = NULL) THEN
1508: l_item_assoc_rec.PRIORITY := l_old_item_assoc_rec.PRIORITY;
1509: ELSIF (l_item_assoc_rec.PRIORITY = FND_API.G_MISS_NUM) THEN
1510: l_item_assoc_rec.PRIORITY := NULL;
1511: END IF;
1512:
1513: IF (l_item_assoc_rec.QUANTITY = NULL) THEN
1511: END IF;
1512:
1513: IF (l_item_assoc_rec.QUANTITY = NULL) THEN
1514: l_item_assoc_rec.QUANTITY := l_old_item_assoc_rec.QUANTITY;
1515: ELSIF (l_item_assoc_rec.QUANTITY = FND_API.G_MISS_NUM) THEN
1516: l_item_assoc_rec.QUANTITY := NULL;
1517: ELSIF (l_item_assoc_rec.QUANTITY = 0) THEN
1518: l_item_assoc_rec.UOM_CODE := null;
1519: END IF;
1519: END IF;
1520:
1521: IF (l_item_assoc_rec.UOM_CODE = NULL) THEN
1522: l_item_assoc_rec.UOM_CODE := l_old_item_assoc_rec.UOM_CODE;
1523: ELSIF (l_item_assoc_rec.UOM_CODE = FND_API.G_MISS_CHAR) THEN
1524: l_item_assoc_rec.UOM_CODE := NULL;
1525: END IF;
1526:
1527: IF (l_item_assoc_rec.INTERCHANGE_TYPE_CODE = NULL) THEN
1525: END IF;
1526:
1527: IF (l_item_assoc_rec.INTERCHANGE_TYPE_CODE = NULL) THEN
1528: l_item_assoc_rec.INTERCHANGE_TYPE_CODE := l_old_item_assoc_rec.INTERCHANGE_TYPE_CODE;
1529: ELSIF (l_item_assoc_rec.INTERCHANGE_TYPE_CODE = FND_API.G_MISS_CHAR) THEN
1530: l_item_assoc_rec.INTERCHANGE_TYPE_CODE := NULL;
1531: END IF;
1532:
1533: IF (l_item_assoc_rec.INTERCHANGE_REASON = NULL) THEN
1531: END IF;
1532:
1533: IF (l_item_assoc_rec.INTERCHANGE_REASON = NULL) THEN
1534: l_item_assoc_rec.INTERCHANGE_REASON := l_old_item_assoc_rec.INTERCHANGE_REASON;
1535: ELSIF (l_item_assoc_rec.INTERCHANGE_REASON = FND_API.G_MISS_CHAR) THEN
1536: l_item_assoc_rec.INTERCHANGE_REASON := NULL;
1537: END IF;
1538:
1539:
1538:
1539:
1540: IF (l_item_assoc_rec.ATTRIBUTE_CATEGORY = NULL) THEN
1541: l_item_assoc_rec.ATTRIBUTE_CATEGORY := l_old_item_assoc_rec.ATTRIBUTE_CATEGORY;
1542: ELSIF (l_item_assoc_rec.ATTRIBUTE_CATEGORY = FND_API.G_MISS_CHAR) THEN
1543: l_item_assoc_rec.ATTRIBUTE_CATEGORY := NULL;
1544: END IF;
1545:
1546: IF (l_item_assoc_rec.ATTRIBUTE1 = NULL) THEN
1544: END IF;
1545:
1546: IF (l_item_assoc_rec.ATTRIBUTE1 = NULL) THEN
1547: l_item_assoc_rec.ATTRIBUTE1 := l_old_item_assoc_rec.ATTRIBUTE1;
1548: ELSIF (l_item_assoc_rec.ATTRIBUTE1 = FND_API.G_MISS_CHAR) THEN
1549: l_item_assoc_rec.ATTRIBUTE1 := NULL;
1550: END IF;
1551:
1552: IF (l_item_assoc_rec.ATTRIBUTE2 = NULL) THEN
1550: END IF;
1551:
1552: IF (l_item_assoc_rec.ATTRIBUTE2 = NULL) THEN
1553: l_item_assoc_rec.ATTRIBUTE2 := l_old_item_assoc_rec.ATTRIBUTE2;
1554: ELSIF (l_item_assoc_rec.ATTRIBUTE2 = FND_API.G_MISS_CHAR) THEN
1555: l_item_assoc_rec.ATTRIBUTE2 := NULL;
1556: END IF;
1557:
1558: IF (l_item_assoc_rec.ATTRIBUTE3 = NULL) THEN
1556: END IF;
1557:
1558: IF (l_item_assoc_rec.ATTRIBUTE3 = NULL) THEN
1559: l_item_assoc_rec.ATTRIBUTE3 := l_old_item_assoc_rec.ATTRIBUTE3;
1560: ELSIF (l_item_assoc_rec.ATTRIBUTE3 = FND_API.G_MISS_CHAR) THEN
1561: l_item_assoc_rec.ATTRIBUTE3 := NULL;
1562: END IF;
1563:
1564: IF (l_item_assoc_rec.ATTRIBUTE4 = NULL) THEN
1562: END IF;
1563:
1564: IF (l_item_assoc_rec.ATTRIBUTE4 = NULL) THEN
1565: l_item_assoc_rec.ATTRIBUTE4 := l_old_item_assoc_rec.ATTRIBUTE4;
1566: ELSIF (l_item_assoc_rec.ATTRIBUTE4 = FND_API.G_MISS_CHAR) THEN
1567: l_item_assoc_rec.ATTRIBUTE4 := NULL;
1568: END IF;
1569:
1570: IF (l_item_assoc_rec.ATTRIBUTE6 = NULL) THEN
1568: END IF;
1569:
1570: IF (l_item_assoc_rec.ATTRIBUTE6 = NULL) THEN
1571: l_item_assoc_rec.ATTRIBUTE6 := l_old_item_assoc_rec.ATTRIBUTE6;
1572: ELSIF (l_item_assoc_rec.ATTRIBUTE6 = FND_API.G_MISS_CHAR) THEN
1573: l_item_assoc_rec.ATTRIBUTE6 := NULL;
1574: END IF;
1575:
1576: IF (l_item_assoc_rec.ATTRIBUTE7 = NULL) THEN
1574: END IF;
1575:
1576: IF (l_item_assoc_rec.ATTRIBUTE7 = NULL) THEN
1577: l_item_assoc_rec.ATTRIBUTE7 := l_old_item_assoc_rec.ATTRIBUTE7;
1578: ELSIF (l_item_assoc_rec.ATTRIBUTE7 = FND_API.G_MISS_CHAR) THEN
1579: l_item_assoc_rec.ATTRIBUTE7 := NULL;
1580: END IF;
1581:
1582: IF (l_item_assoc_rec.ATTRIBUTE8 = NULL) THEN
1580: END IF;
1581:
1582: IF (l_item_assoc_rec.ATTRIBUTE8 = NULL) THEN
1583: l_item_assoc_rec.ATTRIBUTE8 := l_old_item_assoc_rec.ATTRIBUTE8;
1584: ELSIF (l_item_assoc_rec.ATTRIBUTE8 = FND_API.G_MISS_CHAR) THEN
1585: l_item_assoc_rec.ATTRIBUTE8 := NULL;
1586: END IF;
1587:
1588: IF (l_item_assoc_rec.ATTRIBUTE9 = NULL) THEN
1586: END IF;
1587:
1588: IF (l_item_assoc_rec.ATTRIBUTE9 = NULL) THEN
1589: l_item_assoc_rec.ATTRIBUTE9 := l_old_item_assoc_rec.ATTRIBUTE9;
1590: ELSIF (l_item_assoc_rec.ATTRIBUTE9 = FND_API.G_MISS_CHAR) THEN
1591: l_item_assoc_rec.ATTRIBUTE9 := NULL;
1592: END IF;
1593:
1594: IF (l_item_assoc_rec.ATTRIBUTE10 = NULL) THEN
1592: END IF;
1593:
1594: IF (l_item_assoc_rec.ATTRIBUTE10 = NULL) THEN
1595: l_item_assoc_rec.ATTRIBUTE10 := l_old_item_assoc_rec.ATTRIBUTE10;
1596: ELSIF (l_item_assoc_rec.ATTRIBUTE10 = FND_API.G_MISS_CHAR) THEN
1597: l_item_assoc_rec.ATTRIBUTE10 := NULL;
1598: END IF;
1599:
1600: IF (l_item_assoc_rec.ATTRIBUTE11 = NULL) THEN
1598: END IF;
1599:
1600: IF (l_item_assoc_rec.ATTRIBUTE11 = NULL) THEN
1601: l_item_assoc_rec.ATTRIBUTE11 := l_old_item_assoc_rec.ATTRIBUTE11;
1602: ELSIF (l_item_assoc_rec.ATTRIBUTE11 = FND_API.G_MISS_CHAR) THEN
1603: l_item_assoc_rec.ATTRIBUTE11 := NULL;
1604: END IF;
1605:
1606: IF (l_item_assoc_rec.ATTRIBUTE12 = NULL) THEN
1604: END IF;
1605:
1606: IF (l_item_assoc_rec.ATTRIBUTE12 = NULL) THEN
1607: l_item_assoc_rec.ATTRIBUTE12 := l_old_item_assoc_rec.ATTRIBUTE12;
1608: ELSIF (l_item_assoc_rec.ATTRIBUTE12 = FND_API.G_MISS_CHAR) THEN
1609: l_item_assoc_rec.ATTRIBUTE12 := NULL;
1610: END IF;
1611:
1612: IF (l_item_assoc_rec.ATTRIBUTE13 = NULL) THEN
1610: END IF;
1611:
1612: IF (l_item_assoc_rec.ATTRIBUTE13 = NULL) THEN
1613: l_item_assoc_rec.ATTRIBUTE13 := l_old_item_assoc_rec.ATTRIBUTE13;
1614: ELSIF (l_item_assoc_rec.ATTRIBUTE13 = FND_API.G_MISS_CHAR) THEN
1615: l_item_assoc_rec.ATTRIBUTE13 := NULL;
1616: END IF;
1617:
1618: IF (l_item_assoc_rec.ATTRIBUTE14 = NULL) THEN
1616: END IF;
1617:
1618: IF (l_item_assoc_rec.ATTRIBUTE14 = NULL) THEN
1619: l_item_assoc_rec.ATTRIBUTE14 := l_old_item_assoc_rec.ATTRIBUTE14;
1620: ELSIF (l_item_assoc_rec.ATTRIBUTE14 = FND_API.G_MISS_CHAR) THEN
1621: l_item_assoc_rec.ATTRIBUTE14 := NULL;
1622: END IF;
1623:
1624: IF (l_item_assoc_rec.ATTRIBUTE15 = NULL) THEN
1622: END IF;
1623:
1624: IF (l_item_assoc_rec.ATTRIBUTE15 = NULL) THEN
1625: l_item_assoc_rec.ATTRIBUTE15 := l_old_item_assoc_rec.ATTRIBUTE15;
1626: ELSIF (l_item_assoc_rec.ATTRIBUTE15 = FND_API.G_MISS_CHAR) THEN
1627: l_item_assoc_rec.ATTRIBUTE15 := NULL;
1628: END IF;
1629:
1630: /*
1629:
1630: /*
1631: IF (l_item_assoc_rec.SOURCE_LANG = NULL) THEN
1632: l_item_assoc_rec.SOURCE_LANG := l_old_item_assoc_rec.SOURCE_LANG;
1633: ELSIF (l_item_assoc_rec.SOURCE_LANG = FND_API.G_MISS_CHAR) THEN
1634: l_item_assoc_rec.SOURCE_LANG := NULL;
1635: END IF;
1636: */
1637:
1694: IF (Item_assoc_csr%NOTFOUND) THEN
1695: CLOSE Item_assoc_csr;
1696: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_DELETED');
1697: FND_MSG_PUB.ADD;
1698: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1699: END IF;
1700:
1701: -- Check Object version number.
1702: IF (l_object_version_number <> p_item_assoc_rec.object_version_number) THEN
1702: IF (l_object_version_number <> p_item_assoc_rec.object_version_number) THEN
1703: CLOSE Item_assoc_csr;
1704: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
1705: FND_MSG_PUB.ADD;
1706: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1707: END IF;
1708:
1709: -- Delete record.
1710: DELETE ahl_item_associations_b
1729: -- Parameters :
1730: -- End of Comments --
1731:
1732: PROCEDURE Create_Item_group (p_api_version IN NUMBER,
1733: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1734: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1735: x_return_status OUT NOCOPY VARCHAR2,
1736: x_msg_count OUT NOCOPY NUMBER,
1737: x_msg_data OUT NOCOPY VARCHAR2,
1730: -- End of Comments --
1731:
1732: PROCEDURE Create_Item_group (p_api_version IN NUMBER,
1733: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1734: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1735: x_return_status OUT NOCOPY VARCHAR2,
1736: x_msg_count OUT NOCOPY NUMBER,
1737: x_msg_data OUT NOCOPY VARCHAR2,
1738: p_x_item_group_rec IN OUT NOCOPY AHL_MC_ITEMGROUP_PVT.Item_Group_Rec_Type,
1756: SAVEPOINT Create_Item_group_Pvt;
1757:
1758:
1759: -- Standard call to check for call compatibility
1760: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
1761: G_PKG_NAME) THEN
1762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1763: END IF;
1764:
1758:
1759: -- Standard call to check for call compatibility
1760: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
1761: G_PKG_NAME) THEN
1762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1763: END IF;
1764:
1765: -- Initialize message list if p_init_msg_list is set to TRUE
1766: IF FND_API.To_Boolean(p_init_msg_list) THEN
1762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1763: END IF;
1764:
1765: -- Initialize message list if p_init_msg_list is set to TRUE
1766: IF FND_API.To_Boolean(p_init_msg_list) THEN
1767: FND_MSG_PUB.Initialize;
1768: END IF;
1769:
1770: -- Initialize API return status to success
1767: FND_MSG_PUB.Initialize;
1768: END IF;
1769:
1770: -- Initialize API return status to success
1771: x_return_status := FND_API.G_RET_STS_SUCCESS;
1772:
1773: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
1774: THEN
1775: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1817:
1818: -- Check Error Message stack.
1819: x_msg_count := FND_MSG_PUB.count_msg;
1820: IF x_msg_count > 0 THEN
1821: RAISE FND_API.G_EXC_ERROR;
1822: END IF;
1823:
1824: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
1825: THEN
1872: -- Standard call to get message count and if count is 1, get message info
1873: FND_MSG_PUB.Count_And_Get
1874: ( p_count => x_msg_count,
1875: p_data => x_msg_data,
1876: p_encoded => fnd_api.g_false);
1877:
1878: EXCEPTION
1879: WHEN FND_API.G_EXC_ERROR THEN
1880: x_return_status := FND_API.G_RET_STS_ERROR;
1875: p_data => x_msg_data,
1876: p_encoded => fnd_api.g_false);
1877:
1878: EXCEPTION
1879: WHEN FND_API.G_EXC_ERROR THEN
1880: x_return_status := FND_API.G_RET_STS_ERROR;
1881: Rollback to Create_Item_group_pvt;
1882: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1883: p_data => x_msg_data,
1876: p_encoded => fnd_api.g_false);
1877:
1878: EXCEPTION
1879: WHEN FND_API.G_EXC_ERROR THEN
1880: x_return_status := FND_API.G_RET_STS_ERROR;
1881: Rollback to Create_Item_group_pvt;
1882: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1883: p_data => x_msg_data,
1884: p_encoded => fnd_api.g_false);
1880: x_return_status := FND_API.G_RET_STS_ERROR;
1881: Rollback to Create_Item_group_pvt;
1882: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1883: p_data => x_msg_data,
1884: p_encoded => fnd_api.g_false);
1885: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
1886: THEN
1887: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1888: 'ahl.plsql.ahl_mc_itemgroup_pvt.create_item_group', 'Error in create_item_group private');
1889: END IF;
1890:
1891:
1892:
1893: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1894: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1895: Rollback to Create_Item_group_pvt;
1896: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1897: p_data => x_msg_data,
1890:
1891:
1892:
1893: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1894: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1895: Rollback to Create_Item_group_pvt;
1896: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1897: p_data => x_msg_data,
1898: p_encoded => fnd_api.g_false);
1894: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1895: Rollback to Create_Item_group_pvt;
1896: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1897: p_data => x_msg_data,
1898: p_encoded => fnd_api.g_false);
1899: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
1900: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
1901: THEN
1902: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1904: END IF;
1905:
1906:
1907: WHEN OTHERS THEN
1908: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1909: Rollback to Create_Item_group_pvt;
1910: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1911: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1912: p_procedure_name => 'Create_Item_group',
1913: p_error_text => SQLERRM);
1914: END IF;
1915: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1916: p_data => x_msg_data,
1917: p_encoded => fnd_api.g_false);
1918: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
1919:
1920: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
1921: THEN
1936: -- Parameters :
1937: -- Standard IN Parameters :
1938:
1939: PROCEDURE Modify_Item_group (p_api_version IN NUMBER,
1940: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1941: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1942: x_return_status OUT NOCOPY VARCHAR2,
1943: x_msg_count OUT NOCOPY NUMBER,
1944: x_msg_data OUT NOCOPY VARCHAR2,
1937: -- Standard IN Parameters :
1938:
1939: PROCEDURE Modify_Item_group (p_api_version IN NUMBER,
1940: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1941: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1942: x_return_status OUT NOCOPY VARCHAR2,
1943: x_msg_count OUT NOCOPY NUMBER,
1944: x_msg_data OUT NOCOPY VARCHAR2,
1945: p_item_group_rec IN AHL_MC_ITEMGROUP_PVT.Item_Group_Rec_Type,
2013: -- Standard start of API savepoint
2014: SAVEPOINT Modify_Item_group_Pvt;
2015:
2016: -- Standard call to check for call compatibility
2017: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
2018: G_PKG_NAME) THEN
2019: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2020: END IF;
2021:
2015:
2016: -- Standard call to check for call compatibility
2017: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
2018: G_PKG_NAME) THEN
2019: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2020: END IF;
2021:
2022: -- Initialize message list if p_init_msg_list is set to TRUE
2023: IF FND_API.To_Boolean(p_init_msg_list) THEN
2019: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2020: END IF;
2021:
2022: -- Initialize message list if p_init_msg_list is set to TRUE
2023: IF FND_API.To_Boolean(p_init_msg_list) THEN
2024: FND_MSG_PUB.Initialize;
2025: END IF;
2026:
2027: -- Initialize API return status to success
2024: FND_MSG_PUB.Initialize;
2025: END IF;
2026:
2027: -- Initialize API return status to success
2028: x_return_status := FND_API.G_RET_STS_SUCCESS;
2029:
2030: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2031: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2032: 'ahl.plsql.ahl_mc_itemgroup_pvt.Modify_Item_group', 'Begin of Modify_Item_group');
2039: CLOSE Item_group_csr;
2040: FND_MESSAGE.Set_Name('AHL','AHL_MC_IG_NOT_EXISTS');
2041: FND_MSG_PUB.ADD;
2042: --dbms_output.put_line('Item Group does not exist');
2043: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2044: END IF;
2045:
2046: -- Check Object version number.
2047: IF (l_old_item_group_rec.object_version_number <> NVL(p_item_group_rec.object_version_number,0)) THEN
2047: IF (l_old_item_group_rec.object_version_number <> NVL(p_item_group_rec.object_version_number,0)) THEN
2048: CLOSE Item_group_csr;
2049: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
2050: FND_MSG_PUB.ADD;
2051: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2052: END IF;
2053:
2054: -- Check name
2055: -- TAMAL -- IG Amendments --
2059: x_msg_count := FND_MSG_PUB.count_msg;
2060: IF x_msg_count > 0
2061: THEN
2062: CLOSE Item_group_csr;
2063: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2064: END IF;
2065: l_old_item_group_rec.name := l_item_group_rec.name;
2066: -- TAMAL -- IG Amendments --
2067: ELSIF (l_old_item_group_rec.name <> p_item_group_rec.name )
2068: THEN
2069: CLOSE Item_group_csr;
2070: FND_MESSAGE.Set_Name('AHL','AHL_COM_KEY_NOUPDATE');
2071: FND_MSG_PUB.ADD;
2072: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2073: END IF;
2074:
2075: IF l_old_item_group_rec.status_code in ('COMPLETE','APPROVAL_PENDING')
2076: THEN
2077: CLOSE Item_group_csr;
2078: FND_MESSAGE.Set_Name('AHL','AHL_MC_IG_NOUPDATE');
2079: FND_MESSAGE.Set_Token('STATUS',p_item_group_rec.status_code);
2080: FND_MSG_PUB.ADD;
2081: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2082: --dbms_output.put_line('Item Group cannot be updated if status is Complete or Approval Rejected');
2083: END IF;
2084:
2085: IF (p_item_group_rec.status_code <> FND_API.G_MISS_CHAR) THEN
2081: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2082: --dbms_output.put_line('Item Group cannot be updated if status is Complete or Approval Rejected');
2083: END IF;
2084:
2085: IF (p_item_group_rec.status_code <> FND_API.G_MISS_CHAR) THEN
2086:
2087: IF (p_item_group_rec.status_code <> l_old_item_group_rec.status_code)
2088: THEN
2089: FND_MESSAGE.Set_Name('AHL','AHL_MC_IG_STAT_NOUPDATE');
2087: IF (p_item_group_rec.status_code <> l_old_item_group_rec.status_code)
2088: THEN
2089: FND_MESSAGE.Set_Name('AHL','AHL_MC_IG_STAT_NOUPDATE');
2090: FND_MSG_PUB.ADD;
2091: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2092: --dbms_output.put_line('Item Group Status cannot be updated');
2093: END IF;
2094: END IF;
2095:
2092: --dbms_output.put_line('Item Group Status cannot be updated');
2093: END IF;
2094: END IF;
2095:
2096: IF (p_item_group_rec.type_code <> FND_API.G_MISS_CHAR) THEN
2097: IF (p_item_group_rec.type_code <> l_old_item_group_rec.type_code)
2098: THEN
2099: FND_MESSAGE.Set_Name('AHL','AHL_MC_IG_TYPE_NOUPDATE');
2100: FND_MSG_PUB.ADD;
2097: IF (p_item_group_rec.type_code <> l_old_item_group_rec.type_code)
2098: THEN
2099: FND_MESSAGE.Set_Name('AHL','AHL_MC_IG_TYPE_NOUPDATE');
2100: FND_MSG_PUB.ADD;
2101: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2102: --dbms_output.put_line('Item Group Type cannot be updated');
2103: END IF;
2104:
2105: END IF;
2121: FND_MESSAGE.Set_Token('ITEM_GRP',p_item_group_rec.item_group_id);
2122: FND_MESSAGE.Set_Token('ASSO_GRP',p_x_items_tbl(i).item_group_id);
2123: FND_MSG_PUB.ADD;
2124: --dbms_output.put_line('Item Association record does not match Item Group');
2125: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2126: END IF;
2127:
2128: Validate_Item_Assoc(p_name => p_item_group_rec.name,
2129: p_type_code => p_item_group_rec.type_code,
2144:
2145: -- Check Error Message stack.
2146: x_msg_count := FND_MSG_PUB.count_msg;
2147: IF x_msg_count > 0 THEN
2148: RAISE FND_API.G_EXC_ERROR;
2149: END IF;
2150:
2151: IF (l_item_group_rec.operation_flag = 'M') THEN
2152:
2157: END IF;
2158:
2159: IF (l_item_group_rec.DESCRIPTION = NULL) THEN
2160: l_item_group_rec.DESCRIPTION := l_old_item_group_rec.DESCRIPTION;
2161: ELSIF (l_item_group_rec.DESCRIPTION = FND_API.G_MISS_CHAR) THEN
2162: l_item_group_rec.DESCRIPTION := NULL;
2163: END IF;
2164:
2165: IF (l_item_group_rec.ATTRIBUTE_CATEGORY = NULL) THEN
2163: END IF;
2164:
2165: IF (l_item_group_rec.ATTRIBUTE_CATEGORY = NULL) THEN
2166: l_item_group_rec.ATTRIBUTE_CATEGORY := l_old_item_group_rec.ATTRIBUTE_CATEGORY;
2167: ELSIF (l_item_group_rec.ATTRIBUTE_CATEGORY = FND_API.G_MISS_CHAR) THEN
2168: l_item_group_rec.ATTRIBUTE_CATEGORY := NULL;
2169: END IF;
2170:
2171: IF (l_item_group_rec.ATTRIBUTE1 = NULL) THEN
2169: END IF;
2170:
2171: IF (l_item_group_rec.ATTRIBUTE1 = NULL) THEN
2172: l_item_group_rec.ATTRIBUTE1 := l_old_item_group_rec.ATTRIBUTE1;
2173: ELSIF (l_item_group_rec.ATTRIBUTE1 = FND_API.G_MISS_CHAR) THEN
2174: l_item_group_rec.ATTRIBUTE1 := NULL;
2175: END IF;
2176:
2177: IF (l_item_group_rec.ATTRIBUTE2 = NULL) THEN
2175: END IF;
2176:
2177: IF (l_item_group_rec.ATTRIBUTE2 = NULL) THEN
2178: l_item_group_rec.ATTRIBUTE2 := l_old_item_group_rec.ATTRIBUTE2;
2179: ELSIF (l_item_group_rec.ATTRIBUTE2 = FND_API.G_MISS_CHAR) THEN
2180: l_item_group_rec.ATTRIBUTE2 := NULL;
2181: END IF;
2182:
2183: IF (l_item_group_rec.ATTRIBUTE3 = NULL) THEN
2181: END IF;
2182:
2183: IF (l_item_group_rec.ATTRIBUTE3 = NULL) THEN
2184: l_item_group_rec.ATTRIBUTE3 := l_old_item_group_rec.ATTRIBUTE3;
2185: ELSIF (l_item_group_rec.ATTRIBUTE3 = FND_API.G_MISS_CHAR) THEN
2186: l_item_group_rec.ATTRIBUTE3 := NULL;
2187: END IF;
2188:
2189: IF (l_item_group_rec.ATTRIBUTE4 = NULL) THEN
2187: END IF;
2188:
2189: IF (l_item_group_rec.ATTRIBUTE4 = NULL) THEN
2190: l_item_group_rec.ATTRIBUTE4 := l_old_item_group_rec.ATTRIBUTE4;
2191: ELSIF (l_item_group_rec.ATTRIBUTE4 = FND_API.G_MISS_CHAR) THEN
2192: l_item_group_rec.ATTRIBUTE4 := NULL;
2193: END IF;
2194:
2195: IF (l_item_group_rec.ATTRIBUTE6 = NULL) THEN
2193: END IF;
2194:
2195: IF (l_item_group_rec.ATTRIBUTE6 = NULL) THEN
2196: l_item_group_rec.ATTRIBUTE6 := l_old_item_group_rec.ATTRIBUTE6;
2197: ELSIF (l_item_group_rec.ATTRIBUTE6 = FND_API.G_MISS_CHAR) THEN
2198: l_item_group_rec.ATTRIBUTE6 := NULL;
2199: END IF;
2200:
2201: IF (l_item_group_rec.ATTRIBUTE7 = NULL) THEN
2199: END IF;
2200:
2201: IF (l_item_group_rec.ATTRIBUTE7 = NULL) THEN
2202: l_item_group_rec.ATTRIBUTE7 := l_old_item_group_rec.ATTRIBUTE7;
2203: ELSIF (l_item_group_rec.ATTRIBUTE7 = FND_API.G_MISS_CHAR) THEN
2204: l_item_group_rec.ATTRIBUTE7 := NULL;
2205: END IF;
2206:
2207: IF (l_item_group_rec.ATTRIBUTE8 = NULL) THEN
2205: END IF;
2206:
2207: IF (l_item_group_rec.ATTRIBUTE8 = NULL) THEN
2208: l_item_group_rec.ATTRIBUTE8 := l_old_item_group_rec.ATTRIBUTE8;
2209: ELSIF (l_item_group_rec.ATTRIBUTE8 = FND_API.G_MISS_CHAR) THEN
2210: l_item_group_rec.ATTRIBUTE8 := NULL;
2211: END IF;
2212:
2213: IF (l_item_group_rec.ATTRIBUTE9 = NULL) THEN
2211: END IF;
2212:
2213: IF (l_item_group_rec.ATTRIBUTE9 = NULL) THEN
2214: l_item_group_rec.ATTRIBUTE9 := l_old_item_group_rec.ATTRIBUTE9;
2215: ELSIF (l_item_group_rec.ATTRIBUTE9 = FND_API.G_MISS_CHAR) THEN
2216: l_item_group_rec.ATTRIBUTE9 := NULL;
2217: END IF;
2218:
2219: IF (l_item_group_rec.ATTRIBUTE10 = NULL) THEN
2217: END IF;
2218:
2219: IF (l_item_group_rec.ATTRIBUTE10 = NULL) THEN
2220: l_item_group_rec.ATTRIBUTE10 := l_old_item_group_rec.ATTRIBUTE10;
2221: ELSIF (l_item_group_rec.ATTRIBUTE10 = FND_API.G_MISS_CHAR) THEN
2222: l_item_group_rec.ATTRIBUTE10 := NULL;
2223: END IF;
2224:
2225: IF (l_item_group_rec.ATTRIBUTE11 = NULL) THEN
2223: END IF;
2224:
2225: IF (l_item_group_rec.ATTRIBUTE11 = NULL) THEN
2226: l_item_group_rec.ATTRIBUTE11 := l_old_item_group_rec.ATTRIBUTE11;
2227: ELSIF (l_item_group_rec.ATTRIBUTE11 = FND_API.G_MISS_CHAR) THEN
2228: l_item_group_rec.ATTRIBUTE11 := NULL;
2229: END IF;
2230:
2231: IF (l_item_group_rec.ATTRIBUTE12 = NULL) THEN
2229: END IF;
2230:
2231: IF (l_item_group_rec.ATTRIBUTE12 = NULL) THEN
2232: l_item_group_rec.ATTRIBUTE12 := l_old_item_group_rec.ATTRIBUTE12;
2233: ELSIF (l_item_group_rec.ATTRIBUTE12 = FND_API.G_MISS_CHAR) THEN
2234: l_item_group_rec.ATTRIBUTE12 := NULL;
2235: END IF;
2236:
2237: IF (l_item_group_rec.ATTRIBUTE13 = NULL) THEN
2235: END IF;
2236:
2237: IF (l_item_group_rec.ATTRIBUTE13 = NULL) THEN
2238: l_item_group_rec.ATTRIBUTE13 := l_old_item_group_rec.ATTRIBUTE13;
2239: ELSIF (l_item_group_rec.ATTRIBUTE13 = FND_API.G_MISS_CHAR) THEN
2240: l_item_group_rec.ATTRIBUTE13 := NULL;
2241: END IF;
2242:
2243: IF (l_item_group_rec.ATTRIBUTE14 = NULL) THEN
2241: END IF;
2242:
2243: IF (l_item_group_rec.ATTRIBUTE14 = NULL) THEN
2244: l_item_group_rec.ATTRIBUTE14 := l_old_item_group_rec.ATTRIBUTE14;
2245: ELSIF (l_item_group_rec.ATTRIBUTE14 = FND_API.G_MISS_CHAR) THEN
2246: l_item_group_rec.ATTRIBUTE14 := NULL;
2247: END IF;
2248:
2249: IF (l_item_group_rec.ATTRIBUTE15 = NULL) THEN
2247: END IF;
2248:
2249: IF (l_item_group_rec.ATTRIBUTE15 = NULL) THEN
2250: l_item_group_rec.ATTRIBUTE15 := l_old_item_group_rec.ATTRIBUTE15;
2251: ELSIF (l_item_group_rec.ATTRIBUTE15 = FND_API.G_MISS_CHAR) THEN
2252: l_item_group_rec.ATTRIBUTE15 := NULL;
2253: END IF;
2254:
2255: /*
2254:
2255: /*
2256: IF (l_item_group_rec.SOURCE_LANG = NULL) THEN
2257: l_item_group_rec.SOURCE_LANG := l_old_item_group_rec.SOURCE_LANG;
2258: ELSIF (l_item_group_rec.SOURCE_LANG = FND_API.G_MISS_CHAR) THEN
2259: l_item_group_rec.SOURCE_LANG := NULL;
2260: END IF;
2261: */
2262:
2338:
2339: AHL_UTIL_UC_PKG.Check_Invalidate_Instance
2340: (
2341: p_api_version => 1.0,
2342: p_init_msg_list => FND_API.G_FALSE,
2343: p_instance_tbl => l_invalid_item_instance_tbl,
2344: p_operator => 'D',
2345: x_return_status => x_return_status,
2346: x_msg_count => x_msg_count,
2347: x_msg_data => x_msg_data
2348: );
2349: END IF;
2350:
2351: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2352: RAISE FND_API.G_EXC_ERROR;
2353: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2354: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2355: END IF;
2348: );
2349: END IF;
2350:
2351: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2352: RAISE FND_API.G_EXC_ERROR;
2353: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2354: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2355: END IF;
2356:
2349: END IF;
2350:
2351: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2352: RAISE FND_API.G_EXC_ERROR;
2353: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2354: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2355: END IF;
2356:
2357: END IF; -- end of l_old_item_group_rec.source_item_group_id IS NOT NULL
2350:
2351: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2352: RAISE FND_API.G_EXC_ERROR;
2353: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2354: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2355: END IF;
2356:
2357: END IF; -- end of l_old_item_group_rec.source_item_group_id IS NOT NULL
2358:
2403: x_msg_data => x_msg_data
2404: );
2405: END IF;
2406:
2407: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2408: RAISE FND_API.G_EXC_ERROR;
2409: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2410: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2411: END IF;
2404: );
2405: END IF;
2406:
2407: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2408: RAISE FND_API.G_EXC_ERROR;
2409: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2410: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2411: END IF;
2412:
2405: END IF;
2406:
2407: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2408: RAISE FND_API.G_EXC_ERROR;
2409: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2410: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2411: END IF;
2412:
2413: END IF; -- end of l_old_item_group_rec.source_item_group_id IS NOT NULL
2406:
2407: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2408: RAISE FND_API.G_EXC_ERROR;
2409: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2410: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2411: END IF;
2412:
2413: END IF; -- end of l_old_item_group_rec.source_item_group_id IS NOT NULL
2414:
2426: -- Standard call to get message count and if count is 1, get message info
2427: FND_MSG_PUB.Count_And_Get
2428: ( p_count => x_msg_count,
2429: p_data => x_msg_data,
2430: p_encoded => fnd_api.g_false);
2431:
2432: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2433: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2434: 'ahl.plsql.ahl_mc_itemgroup_pvt.Modify_Item_group',
2436: END IF;
2437:
2438:
2439: EXCEPTION
2440: WHEN FND_API.G_EXC_ERROR THEN
2441: x_return_status := FND_API.G_RET_STS_ERROR;
2442: Rollback to Modify_Item_group_pvt;
2443: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2444: p_data => x_msg_data,
2437:
2438:
2439: EXCEPTION
2440: WHEN FND_API.G_EXC_ERROR THEN
2441: x_return_status := FND_API.G_RET_STS_ERROR;
2442: Rollback to Modify_Item_group_pvt;
2443: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2444: p_data => x_msg_data,
2445: p_encoded => fnd_api.g_false);
2441: x_return_status := FND_API.G_RET_STS_ERROR;
2442: Rollback to Modify_Item_group_pvt;
2443: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2444: p_data => x_msg_data,
2445: p_encoded => fnd_api.g_false);
2446: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
2447:
2448: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2449: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2450: 'ahl.plsql.ahl_mc_itemgroup_pvt.Modify_Item_group', 'Error in Modify_Item_group');
2451: END IF;
2452:
2453:
2454: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2455: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2456: Rollback to Modify_Item_group_pvt;
2457: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2458: p_data => x_msg_data,
2451: END IF;
2452:
2453:
2454: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2455: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2456: Rollback to Modify_Item_group_pvt;
2457: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2458: p_data => x_msg_data,
2459: p_encoded => fnd_api.g_false);
2455: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2456: Rollback to Modify_Item_group_pvt;
2457: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2458: p_data => x_msg_data,
2459: p_encoded => fnd_api.g_false);
2460: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
2461: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2462: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2463: 'ahl.plsql.ahl_mc_itemgroup_pvt.Modify_Item_group', 'Unexpected error in Modify_Item_group');
2464: END IF;
2465:
2466:
2467: WHEN OTHERS THEN
2468: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2469: Rollback to Modify_Item_group_pvt;
2470: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2471: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2472: p_procedure_name => 'Modify_Item_Group',
2473: p_error_text => SUBSTR(SQLERRM,1,240));
2474: END IF;
2475: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2476: p_data => x_msg_data,
2477: p_encoded => fnd_api.g_false);
2478: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
2479:
2480: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2481: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2495: -- Pre-reqs :
2496: -- Parameters :
2497: -- Standard IN Parameters :
2498: PROCEDURE Remove_Item_group(p_api_version IN NUMBER,
2499: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2500: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2501: x_return_status OUT NOCOPY VARCHAR2,
2502: x_msg_count OUT NOCOPY NUMBER,
2503: x_msg_data OUT NOCOPY VARCHAR2,
2496: -- Parameters :
2497: -- Standard IN Parameters :
2498: PROCEDURE Remove_Item_group(p_api_version IN NUMBER,
2499: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2500: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2501: x_return_status OUT NOCOPY VARCHAR2,
2502: x_msg_count OUT NOCOPY NUMBER,
2503: x_msg_data OUT NOCOPY VARCHAR2,
2504: p_item_group_rec IN AHL_MC_ITEMGROUP_PVT.Item_Group_Rec_Type
2558: -- Standard start of API savepoint
2559: SAVEPOINT Remove_Item_group_Pvt;
2560:
2561: -- Standard call to check for call compatibility
2562: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
2563: G_PKG_NAME) THEN
2564: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2565: END IF;
2566:
2560:
2561: -- Standard call to check for call compatibility
2562: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
2563: G_PKG_NAME) THEN
2564: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2565: END IF;
2566:
2567: -- Initialize message list if p_init_msg_list is set to TRUE
2568: IF FND_API.To_Boolean(p_init_msg_list) THEN
2564: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2565: END IF;
2566:
2567: -- Initialize message list if p_init_msg_list is set to TRUE
2568: IF FND_API.To_Boolean(p_init_msg_list) THEN
2569: FND_MSG_PUB.Initialize;
2570: END IF;
2571:
2572: -- Initialize API return status to success
2569: FND_MSG_PUB.Initialize;
2570: END IF;
2571:
2572: -- Initialize API return status to success
2573: x_return_status := FND_API.G_RET_STS_SUCCESS;
2574:
2575: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
2576: THEN
2577: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2587: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEMGRP_INVALID');
2588: FND_MESSAGE.Set_Token('ITEM_GRP',l_item_group_rec.name);
2589: FND_MSG_PUB.ADD;
2590: --dbms_output.put_line('Item Group does not exist');
2591: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2592: END IF;
2593:
2594: -- Check Object version number.
2595: IF (l_item_group_rec.object_version_number <> p_item_group_rec.object_version_number) THEN
2595: IF (l_item_group_rec.object_version_number <> p_item_group_rec.object_version_number) THEN
2596: CLOSE Item_group_csr;
2597: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
2598: FND_MSG_PUB.ADD;
2599: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2600: END IF;
2601:
2602: -- Check if this item group has any positions associated.
2603: OPEN ahl_relationships_csr(p_item_group_rec.item_group_id);
2606: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEMGRP_POSN_EXISTS');
2607: FND_MESSAGE.Set_Token('ITEM_GRP',l_item_group_rec.name);
2608: FND_MSG_PUB.ADD;
2609: --dbms_output.put_line('Positions exist for this item group');
2610: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2611: END IF;
2612:
2613: CLOSE ahl_relationships_csr;
2614:
2619: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEMGRP_COMP_EXISTS');
2620: FND_MESSAGE.Set_Token('ITEM_GRP',l_item_group_rec.name);
2621: FND_MSG_PUB.ADD;
2622: --dbms_output.put_line('Positions exist for this item group');
2623: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2624: END IF;
2625:
2626: CLOSE ahl_item_comp_csr;
2627:
2631: IF l_item_group_rec.status_code ='APPROVAL_PENDING'
2632: THEN
2633: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEMGRP_APPR_PEND');
2634: FND_MSG_PUB.ADD;
2635: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2636: END IF;
2637:
2638:
2639: IF l_item_group_rec.status_code ='REMOVED'
2639: IF l_item_group_rec.status_code ='REMOVED'
2640: THEN
2641: FND_MESSAGE.Set_Name('AHL','AHL_MC_ITEMGRP_REMOVED');
2642: FND_MSG_PUB.ADD;
2643: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2644: END IF;
2645:
2646:
2647: IF l_item_group_rec.status_code IN ('DRAFT' ,'APPROVAL_REJECTED')
2706: -- Standard call to get message count and if count is 1, get message info
2707: FND_MSG_PUB.Count_And_Get
2708: ( p_count => x_msg_count,
2709: p_data => x_msg_data,
2710: p_encoded => fnd_api.g_false);
2711:
2712: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
2713: THEN
2714: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2717:
2718:
2719:
2720: EXCEPTION
2721: WHEN FND_API.G_EXC_ERROR THEN
2722: x_return_status := FND_API.G_RET_STS_ERROR;
2723: Rollback to Remove_Item_group_pvt;
2724: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2725: p_data => x_msg_data,
2718:
2719:
2720: EXCEPTION
2721: WHEN FND_API.G_EXC_ERROR THEN
2722: x_return_status := FND_API.G_RET_STS_ERROR;
2723: Rollback to Remove_Item_group_pvt;
2724: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2725: p_data => x_msg_data,
2726: p_encoded => fnd_api.g_false);
2722: x_return_status := FND_API.G_RET_STS_ERROR;
2723: Rollback to Remove_Item_group_pvt;
2724: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2725: p_data => x_msg_data,
2726: p_encoded => fnd_api.g_false);
2727:
2728: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
2729: THEN
2730: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2730: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2731: 'ahl.plsql.ahl_mc_itemgroup_pvt.Remove_Item_group', 'Error in Remove_Item_group');
2732: END IF;
2733:
2734: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2735: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2736: Rollback to Remove_Item_group_pvt;
2737: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2738: p_data => x_msg_data,
2731: 'ahl.plsql.ahl_mc_itemgroup_pvt.Remove_Item_group', 'Error in Remove_Item_group');
2732: END IF;
2733:
2734: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2735: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2736: Rollback to Remove_Item_group_pvt;
2737: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2738: p_data => x_msg_data,
2739: p_encoded => fnd_api.g_false);
2735: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2736: Rollback to Remove_Item_group_pvt;
2737: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2738: p_data => x_msg_data,
2739: p_encoded => fnd_api.g_false);
2740: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
2741: THEN
2742: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2743: 'ahl.plsql.ahl_mc_itemgroup_pvt.Remove_Item_group', 'Unexpected error in Remove_Item_group');
2744: END IF;
2745:
2746:
2747: WHEN OTHERS THEN
2748: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2749: Rollback to Remove_Item_group_pvt;
2750: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2751: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2752: p_procedure_name => 'Remove_Item_Group',
2753: p_error_text => SUBSTR(SQLERRM,1,240));
2754: END IF;
2755: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2756: p_data => x_msg_data,
2757: p_encoded => fnd_api.g_false);
2758: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
2759: THEN
2760: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2761: 'ahl.plsql.ahl_mc_itemgroup_pvt.Remove_Item_group', 'Unknown error in Remove_Item_group');
2774: -- Pre-reqs :
2775: -- Parameters :
2776: -- Standard IN Parameters :
2777: -- p_api_version IN NUMBER Required
2778: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
2779: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
2780: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
2781: --
2782: -- Standard OUT Parameters :
2775: -- Parameters :
2776: -- Standard IN Parameters :
2777: -- p_api_version IN NUMBER Required
2778: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
2779: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
2780: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
2781: --
2782: -- Standard OUT Parameters :
2783: -- x_return_status OUT VARCHAR2 Required
2776: -- Standard IN Parameters :
2777: -- p_api_version IN NUMBER Required
2778: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
2779: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
2780: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
2781: --
2782: -- Standard OUT Parameters :
2783: -- x_return_status OUT VARCHAR2 Required
2784: -- x_msg_count OUT NUMBER Required
2791: -- Enhancement 115.10
2792: -- End of Comments --
2793: PROCEDURE Initiate_Itemgroup_Appr (
2794: p_api_version IN NUMBER,
2795: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2796: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2797: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2798: p_default IN VARCHAR2 := FND_API.G_FALSE,
2799: p_module_type IN VARCHAR2,
2792: -- End of Comments --
2793: PROCEDURE Initiate_Itemgroup_Appr (
2794: p_api_version IN NUMBER,
2795: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2796: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2797: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2798: p_default IN VARCHAR2 := FND_API.G_FALSE,
2799: p_module_type IN VARCHAR2,
2800: x_return_status OUT NOCOPY VARCHAR2,
2793: PROCEDURE Initiate_Itemgroup_Appr (
2794: p_api_version IN NUMBER,
2795: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2796: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2797: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2798: p_default IN VARCHAR2 := FND_API.G_FALSE,
2799: p_module_type IN VARCHAR2,
2800: x_return_status OUT NOCOPY VARCHAR2,
2801: x_msg_count OUT NOCOPY NUMBER,
2794: p_api_version IN NUMBER,
2795: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2796: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2797: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2798: p_default IN VARCHAR2 := FND_API.G_FALSE,
2799: p_module_type IN VARCHAR2,
2800: x_return_status OUT NOCOPY VARCHAR2,
2801: x_msg_count OUT NOCOPY NUMBER,
2802: x_msg_data OUT NOCOPY VARCHAR2,
2818: l_return_status VARCHAR2(50);
2819: l_msg_count NUMBER;
2820: l_msg_data VARCHAR2(2000);
2821: l_activity_id NUMBER:=p_source_item_group_id;
2822: l_init_msg_list VARCHAR2(10):=FND_API.G_TRUE;
2823: l_object_Version_number NUMBER:=nvl(p_object_Version_number,0);
2824:
2825: l_upd_status VARCHAR2(50);
2826: l_rev_status VARCHAR2(50);
2877: SAVEPOINT Initiate_Itemgroup_Appr;
2878:
2879: -- Standard call to check for call compatibility.
2880:
2881: IF FND_API.to_boolean(l_init_msg_list) THEN
2882: FND_MSG_PUB.initialize;
2883: END IF;
2884:
2885: -- Initialize API return status to success
2883: END IF;
2884:
2885: -- Initialize API return status to success
2886:
2887: x_return_status :=FND_API.G_RET_STS_SUCCESS;
2888:
2889: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
2890: THEN
2891: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2904: x_return_status=>l_return_status,
2905: x_msg_count =>l_msg_count,
2906: x_msg_data =>l_msg_data);
2907:
2908: IF p_object_Version_number is null or p_object_Version_number=FND_API.G_MISS_NUM
2909: THEN
2910: FND_MESSAGE.SET_NAME('AHL','AHL_MC_OBJ_VERSION_NULL');
2911: FND_MSG_PUB.ADD;
2912: END IF;
2910: FND_MESSAGE.SET_NAME('AHL','AHL_MC_OBJ_VERSION_NULL');
2911: FND_MSG_PUB.ADD;
2912: END IF;
2913:
2914: IF p_source_item_group_id is null or p_source_item_group_id = FND_API.G_MISS_NUM
2915: THEN
2916: FND_MESSAGE.SET_NAME('AHL','AHL_MC_OBJECT_ID_NULL');
2917: FND_MSG_PUB.ADD;
2918: ELSE
2929: THEN
2930: FND_MESSAGE.SET_NAME('AHL','AHL_MC_IG_MOD_NAME');
2931: FND_MSG_PUB.ADD;
2932: CLOSE Item_group_name;
2933: RAISE FND_API.G_EXC_ERROR;
2934: END IF;
2935: CLOSE Item_group_name;
2936: END IF;
2937:
2986:
2987: IF l_msg_count > 0
2988: THEN
2989: X_msg_count := l_msg_count;
2990: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2991: RAISE FND_API.G_EXC_ERROR;
2992: END IF;
2993:
2994:
2987: IF l_msg_count > 0
2988: THEN
2989: X_msg_count := l_msg_count;
2990: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2991: RAISE FND_API.G_EXC_ERROR;
2992: END IF;
2993:
2994:
2995: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
3009: IF sql%rowcount=0
3010: THEN
3011: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
3012: FND_MSG_PUB.ADD;
3013: RAISE FND_API.G_EXC_ERROR;
3014: END IF;
3015:
3016: IF l_ACTIVE='Y'
3017: THEN
3064:
3065: IF l_msg_count > 0
3066: THEN
3067: X_msg_count := l_msg_count;
3068: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3069: RAISE FND_API.G_EXC_ERROR;
3070: END IF;
3071:
3072:
3065: IF l_msg_count > 0
3066: THEN
3067: X_msg_count := l_msg_count;
3068: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3069: RAISE FND_API.G_EXC_ERROR;
3070: END IF;
3071:
3072:
3073: -- Standard check of p_commit
3070: END IF;
3071:
3072:
3073: -- Standard check of p_commit
3074: IF FND_API.TO_BOOLEAN(p_commit) THEN
3075: COMMIT WORK;
3076: END IF;
3077:
3078: -- Standard call to get message count and if count is 1, get message info
3078: -- Standard call to get message count and if count is 1, get message info
3079: FND_MSG_PUB.Count_And_Get
3080: ( p_count => x_msg_count,
3081: p_data => x_msg_data,
3082: p_encoded => fnd_api.g_false);
3083:
3084: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
3085: THEN
3086: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
3088: END IF;
3089:
3090:
3091: EXCEPTION
3092: WHEN FND_API.G_EXC_ERROR THEN
3093: x_return_status := FND_API.G_RET_STS_ERROR;
3094: Rollback to Initiate_Itemgroup_Appr;
3095: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3096: p_data => x_msg_data,
3089:
3090:
3091: EXCEPTION
3092: WHEN FND_API.G_EXC_ERROR THEN
3093: x_return_status := FND_API.G_RET_STS_ERROR;
3094: Rollback to Initiate_Itemgroup_Appr;
3095: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3096: p_data => x_msg_data,
3097: p_encoded => fnd_api.g_false);
3093: x_return_status := FND_API.G_RET_STS_ERROR;
3094: Rollback to Initiate_Itemgroup_Appr;
3095: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3096: p_data => x_msg_data,
3097: p_encoded => fnd_api.g_false);
3098: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
3099: THEN
3100: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
3101: 'ahl.plsql.ahl_mc_itemgroup_pvt.Initiate_Itemgroup_Appr', 'Error in Initiate_Itemgroup_Appr');
3102: END IF;
3103:
3104:
3105:
3106: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3107: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3108: Rollback to Initiate_Itemgroup_Appr;
3109: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3110: p_data => x_msg_data,
3103:
3104:
3105:
3106: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3107: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3108: Rollback to Initiate_Itemgroup_Appr;
3109: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3110: p_data => x_msg_data,
3111: p_encoded => fnd_api.g_false);
3107: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3108: Rollback to Initiate_Itemgroup_Appr;
3109: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3110: p_data => x_msg_data,
3111: p_encoded => fnd_api.g_false);
3112: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
3113: THEN
3114: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
3115: 'ahl.plsql.ahl_mc_itemgroup_pvt.Initiate_Itemgroup_Appr', 'Unexpected Error in Initiate_Itemgroup_Appr');
3116: END IF;
3117:
3118:
3119: WHEN OTHERS THEN
3120: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3121: Rollback to Initiate_Itemgroup_Appr;
3122: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3123: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
3124: p_procedure_name => 'Initiate_Itemgroup_Appr',
3125: p_error_text => SUBSTR(SQLERRM,1,240));
3126: END IF;
3127: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3128: p_data => x_msg_data,
3129: p_encoded => fnd_api.g_false);
3130:
3131: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
3132: THEN
3133: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
3147: -- Pre-reqs :
3148: -- Parameters :
3149: -- Standard IN Parameters :
3150: -- p_api_version IN NUMBER Required
3151: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
3152: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
3153: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
3154: --
3155: -- Standard OUT Parameters :
3148: -- Parameters :
3149: -- Standard IN Parameters :
3150: -- p_api_version IN NUMBER Required
3151: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
3152: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
3153: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
3154: --
3155: -- Standard OUT Parameters :
3156: -- x_return_status OUT VARCHAR2 Required
3149: -- Standard IN Parameters :
3150: -- p_api_version IN NUMBER Required
3151: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
3152: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
3153: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
3154: --
3155: -- Standard OUT Parameters :
3156: -- x_return_status OUT VARCHAR2 Required
3157: -- x_msg_count OUT NUMBER Required
3164: -- End of Comments --
3165:
3166: PROCEDURE Create_ItemGroup_Revision (
3167: p_api_version IN NUMBER,
3168: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3169: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3170: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3171: P_DEFAULT IN VARCHAR2 := FND_API.G_FALSE,
3172: P_MODULE_TYPE IN VARCHAR2,
3165:
3166: PROCEDURE Create_ItemGroup_Revision (
3167: p_api_version IN NUMBER,
3168: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3169: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3170: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3171: P_DEFAULT IN VARCHAR2 := FND_API.G_FALSE,
3172: P_MODULE_TYPE IN VARCHAR2,
3173: x_return_status OUT NOCOPY VARCHAR2,
3166: PROCEDURE Create_ItemGroup_Revision (
3167: p_api_version IN NUMBER,
3168: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3169: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3170: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3171: P_DEFAULT IN VARCHAR2 := FND_API.G_FALSE,
3172: P_MODULE_TYPE IN VARCHAR2,
3173: x_return_status OUT NOCOPY VARCHAR2,
3174: x_msg_count OUT NOCOPY NUMBER,
3167: p_api_version IN NUMBER,
3168: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3169: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3170: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3171: P_DEFAULT IN VARCHAR2 := FND_API.G_FALSE,
3172: P_MODULE_TYPE IN VARCHAR2,
3173: x_return_status OUT NOCOPY VARCHAR2,
3174: x_msg_count OUT NOCOPY NUMBER,
3175: x_msg_data OUT NOCOPY VARCHAR2,
3250: status_code <> 'COMPLETE';
3251:
3252: l_dummy VARCHAR2(1);
3253: l_msg_count Number;
3254: l_init_msg_list VARCHAR2(10):=FND_API.G_TRUE;
3255: l_itemgroup_det get_itemgroup_det%rowtype;
3256: l_item_group_id Number;
3257: l_last_update_login NUMBER;
3258: l_last_updated_by NUMBER;
3274: SAVEPOINT Create_ItemGroup_Revision;
3275:
3276: -- Standard call to check for call compatibility.
3277:
3278: IF FND_API.to_boolean(l_init_msg_list) THEN
3279: FND_MSG_PUB.initialize;
3280: END IF;
3281:
3282: -- Initialize API return status to success
3280: END IF;
3281:
3282: -- Initialize API return status to success
3283:
3284: x_return_status :=FND_API.G_RET_STS_SUCCESS;
3285:
3286: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
3287: THEN
3288: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
3329:
3330: IF l_msg_count > 0
3331: THEN
3332: X_msg_count := l_msg_count;
3333: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3334: RAISE FND_API.G_EXC_ERROR;
3335: END IF;
3336:
3337: -- Sequence Number for the New Revision.
3330: IF l_msg_count > 0
3331: THEN
3332: X_msg_count := l_msg_count;
3333: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3334: RAISE FND_API.G_EXC_ERROR;
3335: END IF;
3336:
3337: -- Sequence Number for the New Revision.
3338:
3472: 'ahl.plsql.ahl_mc_itemgroup_pvt.Create_ItemGroup_Revision', 'End of Loop');
3473: END IF;
3474:
3475: -- Standard check of p_commit
3476: IF FND_API.TO_BOOLEAN(p_commit) THEN
3477: COMMIT WORK;
3478: END IF;
3479:
3480: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
3485:
3486:
3487:
3488: EXCEPTION
3489: WHEN FND_API.G_EXC_ERROR THEN
3490: x_return_status := FND_API.G_RET_STS_ERROR;
3491: Rollback to Create_ItemGroup_Revision;
3492: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3493: p_data => x_msg_data,
3486:
3487:
3488: EXCEPTION
3489: WHEN FND_API.G_EXC_ERROR THEN
3490: x_return_status := FND_API.G_RET_STS_ERROR;
3491: Rollback to Create_ItemGroup_Revision;
3492: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3493: p_data => x_msg_data,
3494: p_encoded => fnd_api.g_false);
3490: x_return_status := FND_API.G_RET_STS_ERROR;
3491: Rollback to Create_ItemGroup_Revision;
3492: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3493: p_data => x_msg_data,
3494: p_encoded => fnd_api.g_false);
3495: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
3496: THEN
3497: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
3498: 'ahl.plsql.ahl_mc_itemgroup_pvt.Create_ItemGroup_Revision', 'Error in Create_ItemGroup_Revision');
3498: 'ahl.plsql.ahl_mc_itemgroup_pvt.Create_ItemGroup_Revision', 'Error in Create_ItemGroup_Revision');
3499: END IF;
3500:
3501:
3502: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3503: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3504: Rollback to Create_ItemGroup_Revision;
3505: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3506: p_data => x_msg_data,
3499: END IF;
3500:
3501:
3502: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3503: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3504: Rollback to Create_ItemGroup_Revision;
3505: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3506: p_data => x_msg_data,
3507: p_encoded => fnd_api.g_false);
3503: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3504: Rollback to Create_ItemGroup_Revision;
3505: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3506: p_data => x_msg_data,
3507: p_encoded => fnd_api.g_false);
3508: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
3509: THEN
3510: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
3511: 'ahl.plsql.ahl_mc_itemgroup_pvt.Create_ItemGroup_Revision', 'Unecpected Error in Create_ItemGroup_Revision');
3512: END IF;
3513:
3514:
3515: WHEN OTHERS THEN
3516: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3517: Rollback to Create_ItemGroup_Revision;
3518: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3519: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
3520: p_procedure_name => 'Create_ItemGroup_Revision',
3521: p_error_text => SUBSTR(SQLERRM,1,240));
3522: END IF;
3523: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3524: p_data => x_msg_data,
3525: p_encoded => fnd_api.g_false);
3526: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
3527: THEN
3528: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
3529: 'ahl.plsql.ahl_mc_itemgroup_pvt.Create_ItemGroup_Revision', 'Unknown Error in Create_ItemGroup_Revision');
3777: -- Pre-reqs :
3778: -- Parameters :
3779: -- Standard IN Parameters :
3780: -- p_api_version IN NUMBER Required
3781: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
3782: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
3783: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
3784: --
3785: -- Standard OUT Parameters :
3778: -- Parameters :
3779: -- Standard IN Parameters :
3780: -- p_api_version IN NUMBER Required
3781: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
3782: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
3783: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
3784: --
3785: -- Standard OUT Parameters :
3786: -- x_return_status OUT VARCHAR2 Required
3779: -- Standard IN Parameters :
3780: -- p_api_version IN NUMBER Required
3781: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
3782: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
3783: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
3784: --
3785: -- Standard OUT Parameters :
3786: -- x_return_status OUT VARCHAR2 Required
3787: -- x_msg_count OUT NUMBER Required
3795: -- End of Comments --
3796:
3797: PROCEDURE Approve_ItemGroups (
3798: p_api_version IN NUMBER,
3799: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3800: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3801: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3802: P_DEFAULT IN VARCHAR2 := FND_API.G_FALSE,
3803: P_MODULE_TYPE IN VARCHAR2,
3796:
3797: PROCEDURE Approve_ItemGroups (
3798: p_api_version IN NUMBER,
3799: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3800: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3801: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3802: P_DEFAULT IN VARCHAR2 := FND_API.G_FALSE,
3803: P_MODULE_TYPE IN VARCHAR2,
3804: x_return_status OUT NOCOPY VARCHAR2,
3797: PROCEDURE Approve_ItemGroups (
3798: p_api_version IN NUMBER,
3799: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3800: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3801: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3802: P_DEFAULT IN VARCHAR2 := FND_API.G_FALSE,
3803: P_MODULE_TYPE IN VARCHAR2,
3804: x_return_status OUT NOCOPY VARCHAR2,
3805: x_msg_count OUT NOCOPY NUMBER,
3798: p_api_version IN NUMBER,
3799: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3800: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3801: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3802: P_DEFAULT IN VARCHAR2 := FND_API.G_FALSE,
3803: P_MODULE_TYPE IN VARCHAR2,
3804: x_return_status OUT NOCOPY VARCHAR2,
3805: x_msg_count OUT NOCOPY NUMBER,
3806: x_msg_data OUT NOCOPY VARCHAR2,
3878:
3879:
3880: l_status VARCHAR2(30);
3881: l_msg_count Number;
3882: l_init_msg_list VARCHAR2(10):=FND_API.G_TRUE;
3883: l_rowid VARCHAR2(30);
3884: l_action varchar2(2);
3885:
3886: -- SATHAPLI::Bug# 4328454 fix
3898:
3899:
3900: -- Standard call to check for call compatibility.
3901:
3902: IF FND_API.to_boolean(l_init_msg_list) THEN
3903: FND_MSG_PUB.initialize;
3904: END IF;
3905:
3906: -- Initialize API return status to success
3904: END IF;
3905:
3906: -- Initialize API return status to success
3907:
3908: x_return_status :=FND_API.G_RET_STS_SUCCESS;
3909:
3910: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
3911: THEN
3912: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
3935:
3936: IF l_msg_count > 0
3937: THEN
3938: X_msg_count := l_msg_count;
3939: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3940: RAISE FND_API.G_EXC_ERROR;
3941: END IF;
3942:
3943:
3936: IF l_msg_count > 0
3937: THEN
3938: X_msg_count := l_msg_count;
3939: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3940: RAISE FND_API.G_EXC_ERROR;
3941: END IF;
3942:
3943:
3944: IF p_appr_status='APPROVED'
4151:
4152:
4153:
4154: EXCEPTION
4155: WHEN FND_API.G_EXC_ERROR THEN
4156: x_return_status := FND_API.G_RET_STS_ERROR;
4157: Rollback to Approve_ItemGroups;
4158: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
4159: p_data => x_msg_data,
4152:
4153:
4154: EXCEPTION
4155: WHEN FND_API.G_EXC_ERROR THEN
4156: x_return_status := FND_API.G_RET_STS_ERROR;
4157: Rollback to Approve_ItemGroups;
4158: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
4159: p_data => x_msg_data,
4160: p_encoded => fnd_api.g_false);
4156: x_return_status := FND_API.G_RET_STS_ERROR;
4157: Rollback to Approve_ItemGroups;
4158: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
4159: p_data => x_msg_data,
4160: p_encoded => fnd_api.g_false);
4161:
4162: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
4163: THEN
4164: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4165: 'ahl.plsql.ahl_mc_itemgroup_pvt.Approve_ItemGroups', 'Error in Approve_ItemGroups');
4166: END IF;
4167:
4168:
4169: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4170: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4171: Rollback to Approve_ItemGroups;
4172: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
4173: p_data => x_msg_data,
4166: END IF;
4167:
4168:
4169: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4170: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4171: Rollback to Approve_ItemGroups;
4172: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
4173: p_data => x_msg_data,
4174: p_encoded => fnd_api.g_false);
4170: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4171: Rollback to Approve_ItemGroups;
4172: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
4173: p_data => x_msg_data,
4174: p_encoded => fnd_api.g_false);
4175:
4176: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
4177: THEN
4178: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4179: 'ahl.plsql.ahl_mc_itemgroup_pvt.Approve_ItemGroups', 'Unexpected Error in Approve_ItemGroups');
4180: END IF;
4181:
4182: WHEN OTHERS THEN
4183: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4184: Rollback to Approve_ItemGroups;
4185: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4186: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
4187: p_procedure_name => 'Approve_ItemGroups',
4188: p_error_text => SUBSTR(SQLERRM,1,240));
4189: END IF;
4190: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
4191: p_data => x_msg_data,
4192: p_encoded => fnd_api.g_false);
4193:
4194: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
4195: THEN
4196: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4205:
4206: PROCEDURE Modify_Position_Assos
4207: (
4208: p_api_version IN NUMBER,
4209: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4210: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4211: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4212: p_module_type IN VARCHAR2,
4213: x_return_status OUT NOCOPY VARCHAR2,
4206: PROCEDURE Modify_Position_Assos
4207: (
4208: p_api_version IN NUMBER,
4209: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4210: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4211: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4212: p_module_type IN VARCHAR2,
4213: x_return_status OUT NOCOPY VARCHAR2,
4214: x_msg_count OUT NOCOPY NUMBER,
4207: (
4208: p_api_version IN NUMBER,
4209: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4210: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4211: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4212: p_module_type IN VARCHAR2,
4213: x_return_status OUT NOCOPY VARCHAR2,
4214: x_msg_count OUT NOCOPY NUMBER,
4215: x_msg_data OUT NOCOPY VARCHAR2,
4253: -- Standard start of API savepoint
4254: SAVEPOINT Modify_Position_Assos_SP;
4255:
4256: -- Standard call to check for call compatibility
4257: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
4258: THEN
4259: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4260: END IF;
4261:
4255:
4256: -- Standard call to check for call compatibility
4257: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
4258: THEN
4259: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4260: END IF;
4261:
4262: -- Initialize message list if p_init_msg_list is set to TRUE
4263: IF FND_API.TO_BOOLEAN(p_init_msg_list)
4259: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4260: END IF;
4261:
4262: -- Initialize message list if p_init_msg_list is set to TRUE
4263: IF FND_API.TO_BOOLEAN(p_init_msg_list)
4264: THEN
4265: FND_MSG_PUB.Initialize;
4266: END IF;
4267:
4265: FND_MSG_PUB.Initialize;
4266: END IF;
4267:
4268: -- Initialize API return status to success
4269: x_return_status := FND_API.G_RET_STS_SUCCESS;
4270:
4271: -- API body starts here
4272: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
4273: THEN
4287: THEN
4288: CLOSE get_itemgroup_details;
4289: FND_MESSAGE.Set_Name('AHL', 'AHL_COM_RECORD_DELETED');
4290: FND_MSG_PUB.ADD;
4291: RAISE FND_API.G_EXC_ERROR;
4292: ELSIF (l_obj_ver_num <> p_object_version_number)
4293: THEN
4294: CLOSE get_itemgroup_details;
4295: FND_MESSAGE.Set_Name('AHL', 'AHL_COM_RECORD_CHANGED');
4293: THEN
4294: CLOSE get_itemgroup_details;
4295: FND_MESSAGE.Set_Name('AHL', 'AHL_COM_RECORD_CHANGED');
4296: FND_MSG_PUB.ADD;
4297: RAISE FND_API.G_EXC_ERROR;
4298: ELSIF (l_status <> 'DRAFT' or nvl(l_source_id, 0) <= 0)
4299: THEN
4300: CLOSE get_itemgroup_details;
4301: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_IG_NOUPDATE');
4299: THEN
4300: CLOSE get_itemgroup_details;
4301: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_IG_NOUPDATE');
4302: FND_MSG_PUB.ADD;
4303: RAISE FND_API.G_EXC_ERROR;
4304: END IF;
4305: CLOSE get_itemgroup_details;
4306:
4307: -- All above validations have passed
4335:
4336: -- Check Error Message stack.
4337: x_msg_count := FND_MSG_PUB.count_msg;
4338: IF x_msg_count > 0 THEN
4339: RAISE FND_API.G_EXC_ERROR;
4340: END IF;
4341: END IF;
4342:
4343: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
4353:
4354: -- Check Error Message stack.
4355: x_msg_count := FND_MSG_PUB.count_msg;
4356: IF x_msg_count > 0 THEN
4357: RAISE FND_API.G_EXC_ERROR;
4358: END IF;
4359:
4360: -- Standard check for p_commit
4361: IF FND_API.TO_BOOLEAN (p_commit)
4357: RAISE FND_API.G_EXC_ERROR;
4358: END IF;
4359:
4360: -- Standard check for p_commit
4361: IF FND_API.TO_BOOLEAN (p_commit)
4362: THEN
4363: COMMIT WORK;
4364: END IF;
4365:
4367: FND_MSG_PUB.count_and_get
4368: (
4369: p_count => x_msg_count,
4370: p_data => x_msg_data,
4371: p_encoded => FND_API.G_FALSE
4372: );
4373:
4374: EXCEPTION
4375: WHEN FND_API.G_EXC_ERROR THEN
4371: p_encoded => FND_API.G_FALSE
4372: );
4373:
4374: EXCEPTION
4375: WHEN FND_API.G_EXC_ERROR THEN
4376: x_return_status := FND_API.G_RET_STS_ERROR;
4377: Rollback to Modify_Position_Assos_SP;
4378: FND_MSG_PUB.count_and_get
4379: (
4372: );
4373:
4374: EXCEPTION
4375: WHEN FND_API.G_EXC_ERROR THEN
4376: x_return_status := FND_API.G_RET_STS_ERROR;
4377: Rollback to Modify_Position_Assos_SP;
4378: FND_MSG_PUB.count_and_get
4379: (
4380: p_count => x_msg_count,
4378: FND_MSG_PUB.count_and_get
4379: (
4380: p_count => x_msg_count,
4381: p_data => x_msg_data,
4382: p_encoded => FND_API.G_FALSE
4383: );
4384:
4385: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4381: p_data => x_msg_data,
4382: p_encoded => FND_API.G_FALSE
4383: );
4384:
4385: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4387: Rollback to Modify_Position_Assos_SP;
4388: FND_MSG_PUB.count_and_get
4389: (
4382: p_encoded => FND_API.G_FALSE
4383: );
4384:
4385: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4387: Rollback to Modify_Position_Assos_SP;
4388: FND_MSG_PUB.count_and_get
4389: (
4390: p_count => x_msg_count,
4388: FND_MSG_PUB.count_and_get
4389: (
4390: p_count => x_msg_count,
4391: p_data => x_msg_data,
4392: p_encoded => FND_API.G_FALSE
4393: );
4394:
4395: WHEN OTHERS THEN
4396: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4392: p_encoded => FND_API.G_FALSE
4393: );
4394:
4395: WHEN OTHERS THEN
4396: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4397: Rollback to Modify_Position_Assos_SP;
4398: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4399: THEN
4400: FND_MSG_PUB.add_exc_msg
4407: FND_MSG_PUB.count_and_get
4408: (
4409: p_count => x_msg_count,
4410: p_data => x_msg_data,
4411: p_encoded => FND_API.G_FALSE
4412: );
4413:
4414: END Modify_Position_Assos;
4415: