[Home] [Help]
143: FETCH get_uc_header INTO l_old_uc_header_rec;
144: IF ( get_uc_header%NOTFOUND ) THEN
145: FND_MESSAGE.set_name('AHL', 'AHL_UC_HEADER_ID_INVALID');
146: FND_MESSAGE.set_token('UC_HEADER_ID', p_x_uc_header_rec.uc_header_id);
147: FND_MSG_PUB.add;
148: x_return_status := FND_API.G_RET_STS_ERROR;
149: END IF;
150: IF ( l_old_uc_header_rec.object_version_number <>
151: p_x_uc_header_rec.object_version_number ) THEN
149: END IF;
150: IF ( l_old_uc_header_rec.object_version_number <>
151: p_x_uc_header_rec.object_version_number ) THEN
152: FND_MESSAGE.set_name('AHL', 'AHL_COM_RECORD_CHANGED');
153: FND_MSG_PUB.add;
154: x_return_status := FND_API.G_RET_STS_ERROR;
155: END IF;
156: CLOSE get_uc_header;
157:
303: p_uc_header_rec.mc_revision IS NOT NULL) OR
304: (p_uc_header_rec.mc_name IS NOT NULL AND
305: p_uc_header_rec.mc_revision IS NULL) THEN
306: FND_MESSAGE.set_name( 'AHL','AHL_UC_MC_NAME_REV_INVALID' );
307: FND_MSG_PUB.add;
308: x_return_status := FND_API.G_RET_STS_ERROR;
309: END IF;
310: END;
311:
345: IF (p_mc_name IS NULL OR p_mc_revision IS NULL) AND
346: p_x_mc_header_id IS NULL THEN
347: x_return_status := FND_API.G_RET_STS_ERROR;
348: FND_MESSAGE.set_name('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');
349: FND_MSG_PUB.add;
350: ELSIF (p_mc_name IS NULL OR p_mc_revision IS NULL) AND
351: p_x_mc_header_id IS NOT NULL THEN
352: OPEN get_rec_from_id(p_x_mc_header_id);
353: FETCH get_rec_from_id INTO l_mc_header_id, l_relationship_id;
354: IF get_rec_from_id%NOTFOUND THEN
355: x_return_status := FND_API.G_RET_STS_ERROR;
356: FND_MESSAGE.set_name('AHL', 'AHL_UC_MC_HEADER_ID_INVALID');
357: FND_MESSAGE.set_token('MC_HEADER_ID', p_x_mc_header_id);
358: FND_MSG_PUB.add;
359: ELSE
360: p_x_mc_header_id := l_mc_header_id;
361: x_relationship_id := l_relationship_id;
362: END IF;
371: x_return_status := FND_API.G_RET_STS_ERROR;
372: FND_MESSAGE.set_name('AHL', 'AHL_UC_MC_HEADER_INVALID');
373: FND_MESSAGE.set_token('MC_NAME', p_mc_name);
374: FND_MESSAGE.set_token('MC_REV', p_mc_revision);
375: FND_MSG_PUB.add;
376: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
377: p_x_mc_header_id := l_mc_header_id;
378: x_relationship_id := l_relationship_id;
379: ELSE
380: x_return_status := FND_API.G_RET_STS_ERROR;
381: FND_MESSAGE.set_name('AHL', 'AHL_UC_MC_HEADER_INVALID');
382: FND_MESSAGE.set_token('MC_NAME', p_mc_name);
383: FND_MESSAGE.set_token('MC_REV', p_mc_revision);
384: FND_MSG_PUB.add;
385: END IF;
386: CLOSE get_rec_from_value;
387: END IF;
388: END validate_mc_header;
467: x_return_status := FND_API.G_RET_STS_SUCCESS;
468: IF p_instance_num IS NULL AND p_x_instance_id IS NULL THEN
469: x_return_status := FND_API.G_RET_STS_ERROR;
470: FND_MESSAGE.set_name('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');
471: FND_MSG_PUB.add;
472: ELSIF p_instance_num IS NULL AND p_x_instance_id IS NOT NULL THEN
473: OPEN get_rec_from_id(p_x_instance_id, p_relationship_id);
474: FETCH get_rec_from_id INTO l_instance_id;
475: IF get_rec_from_id%NOTFOUND THEN
475: IF get_rec_from_id%NOTFOUND THEN
476: x_return_status := FND_API.G_RET_STS_ERROR;
477: FND_MESSAGE.set_name('AHL', 'AHL_UC_CSII_INVALID');
478: FND_MESSAGE.set_token('CSII', p_x_instance_id);
479: FND_MSG_PUB.add;
480: END IF;
481: CLOSE get_rec_from_id;
482: ELSIF p_instance_num IS NOT NULL THEN
483: OPEN get_rec_from_value(p_instance_num, p_relationship_id);
488: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
489: x_return_status := FND_API.G_RET_STS_ERROR;
490: FND_MESSAGE.set_name('AHL', 'AHL_UC_CSII_INVALID');
491: FND_MESSAGE.set_token('CSII', p_instance_num);
492: FND_MSG_PUB.add;
493: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
494: p_x_instance_id := l_instance_id;
495: ELSE
496: x_return_status := FND_API.G_RET_STS_ERROR;
495: ELSE
496: x_return_status := FND_API.G_RET_STS_ERROR;
497: FND_MESSAGE.set_name('AHL', 'AHL_UC_CSII_INVALID');
498: FND_MESSAGE.set_token('CSII', p_instance_num);
499: FND_MSG_PUB.add;
500: END IF;
501: CLOSE get_rec_from_value;
502: END IF;
503: END validate_csi_instance;
532: FETCH check_uc_name1 INTO l_dummy;
533: IF check_uc_name1%FOUND THEN
534: FND_MESSAGE.set_name( 'AHL','AHL_UC_NAME_DUPLICATE' );
535: FND_MESSAGE.set_token( 'NAME', p_uc_header_rec.uc_name );
536: FND_MSG_PUB.add;
537: x_return_status := FND_API.G_RET_STS_ERROR;
538: END IF;
539: CLOSE check_uc_name1;
540: ELSIF p_dml_operation = 'U' THEN
542: FETCH check_uc_name2 INTO l_dummy;
543: IF check_uc_name2%FOUND THEN
544: FND_MESSAGE.set_name( 'AHL','AHL_UC_NAME_DUPLICATE' );
545: FND_MESSAGE.set_token( 'NAME', p_uc_header_rec.uc_name );
546: FND_MSG_PUB.add;
547: x_return_status := FND_API.G_RET_STS_ERROR;
548: END IF;
549: CLOSE check_uc_name2;
550:
553: OPEN check_uc_name3(p_uc_header_rec.uc_header_id);
554: FETCH check_uc_name3 INTO l_name;
555: IF check_uc_name3%FOUND AND (l_name.name <> p_uc_header_rec.uc_name) THEN
556: FND_MESSAGE.set_name( 'AHL','AHL_UC_NAME_CHANGE_UNALLOWED' );
557: FND_MSG_PUB.add;
558: x_return_status := FND_API.G_RET_STS_ERROR;
559: END IF;
560: CLOSE check_uc_name3;
561: END IF;
564: -- (create) or convert_attributes(update), so the check is the same for creation
565: -- and update.
566: IF p_uc_header_rec.uc_name is NULL THEN
567: FND_MESSAGE.set_name('AHL','AHL_UC_NAME_NULL');
568: FND_MSG_PUB.add;
569: x_return_status := FND_API.G_RET_STS_ERROR;
570: END IF;
571: -- The following checks are actually not really necessary.
572: -- Check if the master_config_id contains a null value.
572: -- Check if the master_config_id contains a null value.
573: IF p_uc_header_rec.mc_header_id IS NULL THEN
574: FND_MESSAGE.set_name('AHL','AHL_MC_HEADER_ID_INVALID');
575: FND_MESSAGE.set_token('MC_HEADER_ID', p_uc_header_rec.mc_header_id);
576: FND_MSG_PUB.add;
577: x_return_status := FND_API.G_RET_STS_ERROR;
578: END IF;
579: -- Check if the csi_item_instance_id contains a null value.
580: IF p_uc_header_rec.instance_id IS NULL THEN
578: END IF;
579: -- Check if the csi_item_instance_id contains a null value.
580: IF p_uc_header_rec.instance_id IS NULL THEN
581: FND_MESSAGE.set_name('AHL','AHL_UC_INSTANCE_NULL');
582: FND_MSG_PUB.add;
583: x_return_status := FND_API.G_RET_STS_ERROR;
584: END IF;
585: -- Check if the unit_config_status_code contains a null value.
586: IF p_uc_header_rec.unit_config_status_code IS NULL THEN
584: END IF;
585: -- Check if the unit_config_status_code contains a null value.
586: IF p_uc_header_rec.unit_config_status_code IS NULL THEN
587: FND_MESSAGE.set_name('AHL','AHL_UC_CONFIG_STATUS_NULL');
588: FND_MSG_PUB.add;
589: x_return_status := FND_API.G_RET_STS_ERROR;
590: END IF;
591:
592: END validate_attributes;
648: END IF;
649:
650: -- Initialize message list if p_init_msg_list is set to TRUE.
651: IF FND_API.to_boolean( p_init_msg_list ) THEN
652: FND_MSG_PUB.initialize;
653: END IF;
654:
655: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
656: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
798: ahl_util_uc_pkg.copy_uc_header_to_history(p_x_uc_header_rec.uc_header_id, l_return_status);
799: --IF history copy failed, then don't raise exception, just add the message to the message stack
800: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
801: FND_MESSAGE.set_name('AHL', 'AHL_UC_HISTORY_COPY_FAILED');
802: FND_MSG_PUB.add;
803: END IF;
804:
805: --Need to check if the instance picked from CSI with serial_number has a serial_no_tag, and
806: --if not, we have to derive its value according to mfg_serail_number_flag ('Y'->'INVENTORY',
810: FETCH get_serial_number INTO l_serial_number, l_mfg_serial_number_flag;
811: IF get_serial_number%NOTFOUND THEN
812: FND_MESSAGE.set_name('AHL', 'AHL_UC_CSII_INVALID');
813: FND_MESSAGE.set_token('CSII', p_x_uc_header_rec.instance_id);
814: FND_MSG_PUB.add;
815: RAISE FND_API.G_EXC_ERROR;
816: CLOSE get_serial_number;
817: ELSE
818: CLOSE get_serial_number;
843: AHL_Util_UC_Pkg.getcsi_attribute_id('AHL_TEMP_SERIAL_NUM', l_attribute_id,l_return_val);
844: IF NOT(l_return_val) THEN
845: FND_MESSAGE.set_name('AHL','AHL_UC_ATTRIB_CODE_MISSING');
846: FND_MESSAGE.set_token('CODE', 'AHL_TEMP_SERIAL_NUM');
847: FND_MSG_PUB.add;
848: ELSE
849: l_csi_extend_attrib_rec.attribute_id := l_attribute_id;
850: l_csi_extend_attrib_rec.attribute_value := l_serial_number_tag;
851: l_csi_extend_attrib_rec.instance_id := p_x_uc_header_rec.instance_id;
873: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After normal execution','At the end of the procedure');
874: END IF;
875:
876: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
877: l_msg_count := FND_MSG_PUB.count_msg;
878: IF l_msg_count > 0 THEN
879: x_msg_count := l_msg_count;
880: RAISE FND_API.G_EXC_ERROR;
881: END IF;
883: IF FND_API.to_boolean( p_commit ) THEN
884: COMMIT;
885: END IF;
886: -- Count and Get messages (optional)
887: FND_MSG_PUB.count_and_get(
888: p_encoded => FND_API.G_FALSE,
889: p_count => x_msg_count,
890: p_data => x_msg_data);
891: EXCEPTION
891: EXCEPTION
892: WHEN FND_API.G_EXC_ERROR THEN
893: ROLLBACK TO create_uc_header;
894: x_return_status := FND_API.G_RET_STS_ERROR ;
895: FND_MSG_PUB.count_and_get(
896: p_encoded => FND_API.G_FALSE,
897: p_count => x_msg_count,
898: p_data => x_msg_data);
899: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
898: p_data => x_msg_data);
899: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
900: ROLLBACK TO create_uc_header;
901: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
902: FND_MSG_PUB.count_and_get(
903: p_encoded => FND_API.G_FALSE,
904: p_count => x_msg_count,
905: p_data => x_msg_data);
906: WHEN OTHERS THEN
905: p_data => x_msg_data);
906: WHEN OTHERS THEN
907: ROLLBACK TO create_uc_header;
908: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
909: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
910: THEN
911: FND_MSG_PUB.add_exc_msg(
912: p_pkg_name => G_PKG_NAME,
913: p_procedure_name => l_api_name,
907: ROLLBACK TO create_uc_header;
908: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
909: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
910: THEN
911: FND_MSG_PUB.add_exc_msg(
912: p_pkg_name => G_PKG_NAME,
913: p_procedure_name => l_api_name,
914: p_error_text => SUBSTRB(SQLERRM,1,240));
915: END IF;
912: p_pkg_name => G_PKG_NAME,
913: p_procedure_name => l_api_name,
914: p_error_text => SUBSTRB(SQLERRM,1,240));
915: END IF;
916: FND_MSG_PUB.count_and_get(
917: p_encoded => FND_API.G_FALSE,
918: p_count => x_msg_count,
919: p_data => x_msg_data);
920: END create_uc_header;
957: END IF;
958:
959: -- Initialize message list if p_init_msg_list is set to TRUE.
960: IF FND_API.to_boolean( p_init_msg_list ) THEN
961: FND_MSG_PUB.initialize;
962: END IF;
963:
964: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
965: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
983:
984: -- ACL :: Changes for R12
985: IF (ahl_util_uc_pkg.IS_UNIT_QUARANTINED(p_unit_header_id => p_x_uc_header_rec.uc_header_id , p_instance_id => null) = FND_API.G_TRUE) THEN
986: FND_MESSAGE.set_name( 'AHL','AHL_UC_INVALID_Q_ACTION' );
987: FND_MSG_PUB.add;
988: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
989: END IF;
990:
991: -- Validate all attributes (Item level validation)
1042: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
1043: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': within API','ovn='||p_x_uc_header_rec.object_version_number);
1044: END IF;
1045: FND_MESSAGE.set_name('AHL', 'AHL_COM_RECORD_CHANGED');
1046: FND_MSG_PUB.add;
1047: x_return_status := FND_API.G_RET_STS_ERROR;
1048: RAISE FND_API.G_EXC_ERROR;
1049: END IF;
1050:
1051: ahl_util_uc_pkg.copy_uc_header_to_history(p_x_uc_header_rec.uc_header_id, l_return_status);
1052: --IF history copy failed, then don't raise exception, just add the message to the message stack
1053: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1054: FND_MESSAGE.set_name('AHL', 'AHL_UC_HISTORY_COPY_FAILED');
1055: FND_MSG_PUB.add;
1056: END IF;
1057:
1058: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1059: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1099: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': within API', 'Before check message count');
1100: END IF;
1101:
1102: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
1103: l_msg_count := FND_MSG_PUB.count_msg;
1104: IF l_msg_count > 0 THEN
1105: x_msg_count := l_msg_count;
1106: RAISE FND_API.G_EXC_ERROR;
1107: END IF;
1121: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': within API', 'After commit');
1122: END IF;
1123:
1124: -- Count and Get messages (optional)
1125: FND_MSG_PUB.count_and_get(
1126: p_encoded => FND_API.G_FALSE,
1127: p_count => x_msg_count,
1128: p_data => x_msg_data);
1129:
1130: EXCEPTION
1131: WHEN FND_API.G_EXC_ERROR THEN
1132: ROLLBACK TO update_uc_header;
1133: x_return_status := FND_API.G_RET_STS_ERROR ;
1134: FND_MSG_PUB.count_and_get(
1135: p_encoded => FND_API.G_FALSE,
1136: p_count => x_msg_count,
1137: p_data => x_msg_data);
1138: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1137: p_data => x_msg_data);
1138: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1139: ROLLBACK TO update_uc_header;
1140: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1141: FND_MSG_PUB.count_and_get(
1142: p_encoded => FND_API.G_FALSE,
1143: p_count => x_msg_count,
1144: p_data => x_msg_data);
1145: WHEN OTHERS THEN
1144: p_data => x_msg_data);
1145: WHEN OTHERS THEN
1146: ROLLBACK TO update_uc_header;
1147: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1148: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1149: THEN
1150: FND_MSG_PUB.add_exc_msg(
1151: p_pkg_name => G_PKG_NAME,
1152: p_procedure_name => l_api_name,
1146: ROLLBACK TO update_uc_header;
1147: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1148: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1149: THEN
1150: FND_MSG_PUB.add_exc_msg(
1151: p_pkg_name => G_PKG_NAME,
1152: p_procedure_name => l_api_name,
1153: p_error_text => SUBSTRB(SQLERRM,1,240));
1154: END IF;
1151: p_pkg_name => G_PKG_NAME,
1152: p_procedure_name => l_api_name,
1153: p_error_text => SUBSTRB(SQLERRM,1,240));
1154: END IF;
1155: FND_MSG_PUB.count_and_get(
1156: p_encoded => FND_API.G_FALSE,
1157: p_count => x_msg_count,
1158: p_data => x_msg_data);
1159: END update_uc_header;
1240: END IF;
1241:
1242: -- Initialize message list if p_init_msg_list is set to TRUE.
1243: IF FND_API.to_boolean( p_init_msg_list ) THEN
1244: FND_MSG_PUB.initialize;
1245: END IF;
1246:
1247: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1248: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1253: IF (p_uc_header_id IS NULL OR p_uc_header_id = FND_API.G_MISS_NUM OR
1254: p_object_version_number IS NULL OR p_object_version_number = FND_API.G_MISS_NUM OR
1255: p_csi_instance_ovn IS NULL OR p_csi_instance_ovn = FND_API.G_MISS_NUM ) THEN
1256: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
1257: FND_MSG_PUB.add;
1258: RAISE FND_API.G_EXC_ERROR;
1259: END IF;
1260:
1261: --In case p_uc_header_id is a subunit, then whether it can be expired depends on its ancestor
1266: CLOSE get_top_unit;
1267: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
1268: FND_MESSAGE.set_token('NAME', 'uc_header_id');
1269: FND_MESSAGE.set_token('VALUE', p_uc_header_id);
1270: FND_MSG_PUB.add;
1271: RAISE FND_API.G_EXC_ERROR;
1272: ELSIF (l_uc_status IS NULL OR l_uc_status NOT IN ('DRAFT', 'APPROVAL_REJECTED')) THEN
1273: CLOSE get_top_unit;
1274: FND_MESSAGE.set_name( 'AHL', 'AHL_UC_STATUS_NOT_DRAFT' );
1271: RAISE FND_API.G_EXC_ERROR;
1272: ELSIF (l_uc_status IS NULL OR l_uc_status NOT IN ('DRAFT', 'APPROVAL_REJECTED')) THEN
1273: CLOSE get_top_unit;
1274: FND_MESSAGE.set_name( 'AHL', 'AHL_UC_STATUS_NOT_DRAFT' );
1275: FND_MSG_PUB.add;
1276: RAISE FND_API.G_EXC_ERROR;
1277: END IF;
1278:
1279: --Get p_uc_header_id its own attribute from ahl_unit_config_headers_v
1283: CLOSE get_uc_header;
1284: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
1285: FND_MESSAGE.set_token('NAME', 'uc_header_id');
1286: FND_MESSAGE.set_token('VALUE', p_uc_header_id);
1287: FND_MSG_PUB.add;
1288: RAISE FND_API.G_EXC_ERROR;
1289: ELSE
1290: CLOSE get_uc_header;
1291: END IF;
1302: AND object_version_number = p_object_version_number;
1303:
1304: IF SQL%NOTFOUND THEN
1305: FND_MESSAGE.set_name('AHL', 'AHL_COM_RECORD_CHANGED');
1306: FND_MSG_PUB.add;
1307: x_return_status := FND_API.G_RET_STS_ERROR;
1308: RAISE FND_API.G_EXC_ERROR;
1309: END IF;
1310:
1311: ahl_util_uc_pkg.copy_uc_header_to_history(p_uc_header_id, l_return_status);
1312: --IF history copy failed, then don't raise exception, just add the message tothe message stack
1313: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1314: FND_MESSAGE.set_name('AHL', 'AHL_UC_HISTORY_COPY_FAILED');
1315: FND_MSG_PUB.add;
1316: END IF;
1317:
1318: --The following lines are used to expire all the instances and subunits installed in this
1319: --draft UC, the relationship between the subunit with its immediate parent is expired but
1338: FETCH get_csi_obj_ver_num INTO l_csi_instance_ovn;
1339: IF (get_csi_obj_ver_num%NOTFOUND) THEN
1340: CLOSE get_csi_obj_ver_num;
1341: FND_MESSAGE.set_name('AHL','AHL_COM_RECORD_DELETED');
1342: FND_MSG_PUB.add;
1343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1344: ELSIF (l_csi_instance_ovn <> p_csi_instance_ovn) THEN
1345: CLOSE get_csi_obj_ver_num;
1346: FND_MESSAGE.set_name('AHL','AHL_COM_RECORD_CHANGED');
1343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1344: ELSIF (l_csi_instance_ovn <> p_csi_instance_ovn) THEN
1345: CLOSE get_csi_obj_ver_num;
1346: FND_MESSAGE.set_name('AHL','AHL_COM_RECORD_CHANGED');
1347: FND_MSG_PUB.add;
1348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1349: END IF;
1350:
1351: IF l_uc_header_rec.parent_uc_header_id IS NOT NULL THEN
1356: IF get_csi_ii_relationship%NOTFOUND THEN
1357: CLOSE get_csi_ii_relationship;
1358: FND_MESSAGE.set_name('AHL','AHL_UC_CSI_REL_REC_INVALID');
1359: FND_MESSAGE.set_token('INSTANCE', l_uc_header_rec.csi_instance_id);
1360: FND_MSG_PUB.add;
1361: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1362: ELSE
1363: CLOSE get_csi_ii_relationship;
1364: END IF;
1419: ahl_util_uc_pkg.copy_uc_header_to_history(l_subunits.unit_config_header_id,l_return_status);
1420: --IF history copy failed, then don't raise exception, just add the messageto the message stack
1421: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1422: FND_MESSAGE.set_name('AHL', 'AHL_UC_HISTORY_COPY_FAILED');
1423: FND_MSG_PUB.add;
1424: END IF;
1425: END LOOP;
1426:
1427: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1433: IF FND_API.to_boolean( p_commit ) THEN
1434: COMMIT;
1435: END IF;
1436: -- Count and Get messages (optional)
1437: FND_MSG_PUB.count_and_get(
1438: p_encoded => FND_API.G_FALSE,
1439: p_count => x_msg_count,
1440: p_data => x_msg_data);
1441:
1442: EXCEPTION
1443: WHEN FND_API.G_EXC_ERROR THEN
1444: ROLLBACK TO delete_uc_header;
1445: x_return_status := FND_API.G_RET_STS_ERROR ;
1446: FND_MSG_PUB.count_and_get(
1447: p_encoded => FND_API.G_FALSE,
1448: p_count => x_msg_count,
1449: p_data => x_msg_data);
1450: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1449: p_data => x_msg_data);
1450: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1451: ROLLBACK TO delete_uc_header;
1452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1453: FND_MSG_PUB.count_and_get(
1454: p_encoded => FND_API.G_FALSE,
1455: p_count => x_msg_count,
1456: p_data => x_msg_data);
1457: WHEN OTHERS THEN
1456: p_data => x_msg_data);
1457: WHEN OTHERS THEN
1458: ROLLBACK TO delete_uc_header;
1459: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1460: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1461: THEN
1462: FND_MSG_PUB.add_exc_msg(
1463: p_pkg_name => G_PKG_NAME,
1464: p_procedure_name => l_api_name,
1458: ROLLBACK TO delete_uc_header;
1459: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1460: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1461: THEN
1462: FND_MSG_PUB.add_exc_msg(
1463: p_pkg_name => G_PKG_NAME,
1464: p_procedure_name => l_api_name,
1465: p_error_text => SUBSTRB(SQLERRM,1,240));
1466: END IF;
1463: p_pkg_name => G_PKG_NAME,
1464: p_procedure_name => l_api_name,
1465: p_error_text => SUBSTRB(SQLERRM,1,240));
1466: END IF;
1467: FND_MSG_PUB.count_and_get(
1468: p_encoded => FND_API.G_FALSE,
1469: p_count => x_msg_count,
1470: p_data => x_msg_data);
1471: END delete_uc_header;