[Home] [Help]
279: IF c%NOTFOUND THEN
280: CLOSE c;
281: fnd_message.set_name('QA', 'QA_API_INVALID_ELEMENT');
282: fnd_msg_pub.add();
283: RAISE fnd_api.g_exc_error;
284: END IF;
285:
286: CLOSE c;
287: RETURN l_char_id;
314:
315: IF NOT l_found THEN
316: fnd_message.set_name('QA', 'QA_API_SPEC_MUST_HAVE_CHARS');
317: fnd_msg_pub.add();
318: RAISE fnd_api.g_exc_error;
319: END IF;
320:
321: END check_for_spec_element;
322:
355:
356: IF (l_item_id IS NULL) THEN
357: fnd_message.set_name('QA', 'QA_API_INVALID_ITEM_NAME');
358: fnd_msg_pub.add();
359: RAISE fnd_api.g_exc_error;
360: ELSE
361: l_revision_flag := get_revision_flag(l_item_id, p_org_id);
362: IF (l_revision_flag = 1) THEN
363:
363:
364: IF (p_item_revision IS NOT NULL) THEN
365: fnd_message.set_name('QA', 'QA_API_REVISION_CONTROLLED');
366: fnd_msg_pub.add();
367: RAISE fnd_api.g_exc_error;
368: END IF;
369:
370: ELSIF (l_revision_flag = 2) and (p_item_revision IS NULL) THEN
371: fnd_message.set_name('QA', 'QA_API_MANDATORY_REVISION');
369:
370: ELSIF (l_revision_flag = 2) and (p_item_revision IS NULL) THEN
371: fnd_message.set_name('QA', 'QA_API_MANDATORY_REVISION');
372: fnd_msg_pub.add();
373: RAISE fnd_api.g_exc_error;
374:
375: ELSE
376: IF NOT qa_plan_element_api.validate_revision(p_org_id,
377: l_item_id, p_item_revision) THEN
376: IF NOT qa_plan_element_api.validate_revision(p_org_id,
377: l_item_id, p_item_revision) THEN
378: fnd_message.set_name('QA', 'QA_API_INVALID_REVISION');
379: fnd_msg_pub.add();
380: RAISE fnd_api.g_exc_error;
381: END IF;
382: END IF;
383: END IF;
384:
403: temp_number := to_number(p_value);
404: EXCEPTION WHEN OTHERS THEN
405: fnd_message.set_name('QA', 'QA_INVALID_NUMBER');
406: fnd_msg_pub.add();
407: RAISE fnd_api.g_exc_error;
408: END;
409:
410: ELSIF p_datatype = qa_ss_const.date_datatype THEN
411: BEGIN
412: temp_date := qltdate.any_to_date(p_value);
413: EXCEPTION WHEN OTHERS THEN
414: fnd_message.set_name('QA', 'QA_INVALID_DATE');
415: fnd_msg_pub.add();
416: RAISE fnd_api.g_exc_error;
417: END;
418: END IF;
419:
420: END validate_datatype;
484:
485: IF (l_category_set_id IS NULL) THEN
486: fnd_message.set_name('QA', 'QA_API_INVALID_CATEGORY_SET');
487: fnd_msg_pub.add();
488: RAISE fnd_api.g_exc_error;
489: END IF;
490:
491: RETURN l_category_set_id;
492:
531:
532: IF (l_category_id IS NULL) THEN
533: fnd_message.set_name('QA', 'QA_API_INVALID_CATEGORY');
534: fnd_msg_pub.add();
535: RAISE fnd_api.g_exc_error;
536: END IF;
537:
538: RETURN l_category_id;
539:
561: IF c%NOTFOUND THEN
562: CLOSE c;
563: fnd_message.set_name('QA', 'QA_API_SPEC_NAME_NOT_FOUND');
564: fnd_msg_pub.add();
565: RAISE fnd_api.g_exc_error;
566: END IF;
567:
568: CLOSE c;
569:
622: RETURN NUMBER IS
623:
624: BEGIN
625:
626: IF p_flag = fnd_api.g_true THEN
627: RETURN 1;
628: END IF;
629:
630: RETURN 2;
749: --
750:
751: PROCEDURE create_specification(
752: p_api_version IN NUMBER,
753: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
754: p_validation_level IN NUMBER := fnd_api.G_VALID_LEVEL_FULL,
755: p_user_name IN VARCHAR2 := NULL,
756: p_spec_name IN VARCHAR2,
757: p_organization_code IN VARCHAR2,
750:
751: PROCEDURE create_specification(
752: p_api_version IN NUMBER,
753: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
754: p_validation_level IN NUMBER := fnd_api.G_VALID_LEVEL_FULL,
755: p_user_name IN VARCHAR2 := NULL,
756: p_spec_name IN VARCHAR2,
757: p_organization_code IN VARCHAR2,
758: p_reference_spec IN VARCHAR2 := NULL,
842:
843: SAVEPOINT create_specification_pub;
844:
845: -- Standard call to check for call compatibility.
846: IF NOT fnd_api.compatible_api_call (
847: l_api_version,
848: p_api_version,
849: l_api_name,
850: g_pkg_name) THEN
847: l_api_version,
848: p_api_version,
849: l_api_name,
850: g_pkg_name) THEN
851: RAISE fnd_api.g_exc_unexpected_error;
852: END IF;
853:
854: -- Initialize message list if p_init_msg_list is set to TRUE.
855: IF fnd_api.to_boolean(p_init_msg_list) THEN
851: RAISE fnd_api.g_exc_unexpected_error;
852: END IF;
853:
854: -- Initialize message list if p_init_msg_list is set to TRUE.
855: IF fnd_api.to_boolean(p_init_msg_list) THEN
856: fnd_msg_pub.initialize;
857: END IF;
858:
859:
857: END IF;
858:
859:
860: -- Initialize API return status to success
861: x_return_status := fnd_api.g_ret_sts_success;
862:
863: l_user_id := get_user_id(p_user_name);
864: IF l_user_id = -1 THEN
865: fnd_message.set_name('QA', 'QA_API_INVALID_USER');
863: l_user_id := get_user_id(p_user_name);
864: IF l_user_id = -1 THEN
865: fnd_message.set_name('QA', 'QA_API_INVALID_USER');
866: fnd_msg_pub.add();
867: raise fnd_api.g_exc_error;
868: END IF;
869:
870: -- Algorithm
871: --
907:
908: IF (spec_exists(p_spec_name)) THEN
909: fnd_message.set_name('QA', 'QA_API_DUPLICATE_SPEC_NAME');
910: fnd_msg_pub.add();
911: RAISE fnd_api.g_exc_error;
912: END IF;
913:
914: -- See if the spec exists with p_common_spec_name
915: IF p_reference_spec IS NOT NULL AND NOT spec_exists(p_reference_spec) THEN
915: IF p_reference_spec IS NOT NULL AND NOT spec_exists(p_reference_spec) THEN
916: fnd_message.set_name('QA', 'QA_SPEC_NOT_EXISTS');
917: fnd_message.set_token('ENTITY1', p_reference_spec);
918: fnd_msg_pub.add();
919: RAISE fnd_api.g_exc_error;
920: END IF;
921:
922: -- Force not to reference a child spec if common_spec_name is passed
923: IF p_reference_spec IS NOT NULL AND is_child_spec(p_reference_spec) THEN
922: -- Force not to reference a child spec if common_spec_name is passed
923: IF p_reference_spec IS NOT NULL AND is_child_spec(p_reference_spec) THEN
924: fnd_message.set_name('QA', 'QA_CANNOT_REFER_CHILD_SPEC');
925: fnd_msg_pub.add();
926: RAISE fnd_api.g_exc_error;
927: END IF;
928:
929: l_org_id := qa_plans_api.get_org_id(p_organization_code);
930:
930:
931: IF (l_org_id IS NULL) THEN
932: fnd_message.set_name('QA', 'QA_API_INVALID_ORG_CODE');
933: fnd_msg_pub.add();
934: RAISE fnd_api.g_exc_error;
935: END IF;
936:
937: IF (p_effective_to IS NOT NULL) THEN
938: IF (p_effective_to < p_effective_from) THEN
937: IF (p_effective_to IS NOT NULL) THEN
938: IF (p_effective_to < p_effective_from) THEN
939: fnd_message.set_name('QA', 'QA_EFFECTIVE_DATE_RANGE');
940: fnd_msg_pub.add();
941: RAISE fnd_api.g_exc_error;
942: END IF;
943: END IF;
944:
945: IF (p_assignment_type = g_spec_type_item) THEN
968:
969: IF (l_vendor_id IS NULL) THEN
970: fnd_message.set_name('QA', 'QA_API_INVALID_VENDOR_NAME');
971: fnd_msg_pub.add();
972: RAISE fnd_api.g_exc_error;
973: END IF;
974:
975: ELSIF (p_assignment_type = g_spec_type_customer) THEN
976: --
997:
998: IF (l_customer_id IS NULL) THEN
999: fnd_message.set_name('QA', 'QA_API_INVALID_CUSTOMER_NAME');
1000: fnd_msg_pub.add();
1001: RAISE fnd_api.g_exc_error;
1002: END IF;
1003:
1004: ELSE
1005: fnd_message.set_name('QA', 'QA_API_INVALID_ASSIGNMENT_TYPE');
1003:
1004: ELSE
1005: fnd_message.set_name('QA', 'QA_API_INVALID_ASSIGNMENT_TYPE');
1006: fnd_msg_pub.add();
1007: RAISE fnd_api.g_exc_error;
1008: END IF;
1009:
1010: IF (p_item_name IS NOT NULL) THEN
1011: l_item_id := process_item_and_revision(p_item_name, p_item_revision,
1027: validate_datatype(l_sub_type_value, l_datatype);
1028: ELSE
1029: fnd_message.set_name('QA', 'QA_API_INVALID_ELEMENT');
1030: fnd_msg_pub.add();
1031: RAISE fnd_api.g_exc_error;
1032: END IF;
1033: ELSE
1034: l_char_id := -1;
1035: l_sub_type_value := '-1';
1041:
1042: fnd_message.set_name('QA', 'QA_SPEC_COMBINATION_EXISTS');
1043: fnd_message.set_token('ENTITY1', l_existing_spec_name);
1044: fnd_msg_pub.add();
1045: RAISE fnd_api.g_exc_error;
1046: END IF;
1047:
1048: SELECT qa_specs_s.nextval INTO x_spec_id FROM DUAL;
1049:
1135: p_attribute15 );
1136:
1137: EXCEPTION
1138:
1139: WHEN fnd_api.g_exc_error THEN
1140: ROLLBACK TO create_specification_pub;
1141: x_return_status := fnd_api.g_ret_sts_error;
1142: fnd_msg_pub.count_and_get(
1143: p_count => x_msg_count,
1137: EXCEPTION
1138:
1139: WHEN fnd_api.g_exc_error THEN
1140: ROLLBACK TO create_specification_pub;
1141: x_return_status := fnd_api.g_ret_sts_error;
1142: fnd_msg_pub.count_and_get(
1143: p_count => x_msg_count,
1144: p_data => x_msg_data
1145: );
1143: p_count => x_msg_count,
1144: p_data => x_msg_data
1145: );
1146:
1147: WHEN fnd_api.g_exc_unexpected_error THEN
1148: ROLLBACK TO create_specification_pub;
1149: x_return_status := fnd_api.g_ret_sts_unexp_error;
1150: fnd_msg_pub.count_and_get(
1151: p_count => x_msg_count,
1145: );
1146:
1147: WHEN fnd_api.g_exc_unexpected_error THEN
1148: ROLLBACK TO create_specification_pub;
1149: x_return_status := fnd_api.g_ret_sts_unexp_error;
1150: fnd_msg_pub.count_and_get(
1151: p_count => x_msg_count,
1152: p_data => x_msg_data
1153: );
1154:
1155: WHEN OTHERS THEN
1156: -- dbms_output.put_line(SQLCODE || SQLERRM);
1157: ROLLBACK TO create_specification_pub;
1158: x_return_status := fnd_api.g_ret_sts_unexp_error;
1159: IF fnd_msg_pub.Check_Msg_Level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1160: fnd_msg_pub.Add_Exc_Msg(g_pkg_name, l_api_name);
1161: END IF;
1162: fnd_msg_pub.count_and_get(
1174: --
1175:
1176: PROCEDURE add_spec_element(
1177: p_api_version IN NUMBER,
1178: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1179: p_validation_level IN NUMBER := fnd_api.G_VALID_LEVEL_FULL,
1180: p_user_name IN VARCHAR2 := NULL,
1181: p_spec_name IN VARCHAR2,
1182: p_organization_code IN VARCHAR2,
1175:
1176: PROCEDURE add_spec_element(
1177: p_api_version IN NUMBER,
1178: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1179: p_validation_level IN NUMBER := fnd_api.G_VALID_LEVEL_FULL,
1180: p_user_name IN VARCHAR2 := NULL,
1181: p_spec_name IN VARCHAR2,
1182: p_organization_code IN VARCHAR2,
1183: p_element_name IN VARCHAR2,
1181: p_spec_name IN VARCHAR2,
1182: p_organization_code IN VARCHAR2,
1183: p_element_name IN VARCHAR2,
1184: p_uom_code IN VARCHAR2 := NULL,
1185: p_enabled_flag IN VARCHAR2 := fnd_api.g_true,
1186: p_target_value IN VARCHAR2 := NULL,
1187: p_upper_spec_limit IN VARCHAR2 := NULL,
1188: p_lower_spec_limit IN VARCHAR2 := NULL,
1189: p_upper_reasonable_limit IN VARCHAR2 := NULL,
1230:
1231: SAVEPOINT add_spec_element;
1232:
1233: -- Standard call to check for call compatibility.
1234: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version,
1235: l_api_name, g_pkg_name) THEN
1236: RAISE fnd_api.g_exc_unexpected_error;
1237: END IF;
1238:
1232:
1233: -- Standard call to check for call compatibility.
1234: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version,
1235: l_api_name, g_pkg_name) THEN
1236: RAISE fnd_api.g_exc_unexpected_error;
1237: END IF;
1238:
1239: -- Initialize message list if p_init_msg_list is set to TRUE.
1240: IF fnd_api.to_boolean(p_init_msg_list) THEN
1236: RAISE fnd_api.g_exc_unexpected_error;
1237: END IF;
1238:
1239: -- Initialize message list if p_init_msg_list is set to TRUE.
1240: IF fnd_api.to_boolean(p_init_msg_list) THEN
1241: fnd_msg_pub.initialize;
1242: END IF;
1243:
1244: -- Initialize API return status to success
1241: fnd_msg_pub.initialize;
1242: END IF;
1243:
1244: -- Initialize API return status to success
1245: x_return_status := fnd_api.g_ret_sts_success;
1246:
1247: l_user_id := get_user_id(p_user_name);
1248: IF l_user_id = -1 THEN
1249: fnd_message.set_name('QA', 'QA_API_INVALID_USER');
1247: l_user_id := get_user_id(p_user_name);
1248: IF l_user_id = -1 THEN
1249: fnd_message.set_name('QA', 'QA_API_INVALID_USER');
1250: fnd_msg_pub.add();
1251: raise fnd_api.g_exc_error;
1252: END IF;
1253:
1254: l_char_id := get_context_element_id(p_element_name);
1255: l_spec_id := get_spec_id(p_spec_name, p_organization_code);
1257: -- See if the spec is a child and throw exception appropriately
1258: IF is_child_spec(l_spec_id) THEN
1259: fnd_message.set_name('QA', 'QA_SPEC_ELEM_TO_CHILD');
1260: fnd_msg_pub.add();
1261: raise fnd_api.g_exc_error;
1262: END IF;
1263:
1264: IF (spec_element_exists(l_spec_id, l_char_id)) THEN
1265: fnd_message.set_name ('QA', 'QA_API_DUPLICATE_SPEC_ELEMENT');
1263:
1264: IF (spec_element_exists(l_spec_id, l_char_id)) THEN
1265: fnd_message.set_name ('QA', 'QA_API_DUPLICATE_SPEC_ELEMENT');
1266: fnd_msg_pub.add();
1267: RAISE fnd_api.g_exc_error;
1268: END IF;
1269:
1270: l_datatype := qa_chars_api.datatype(l_char_id);
1271:
1280: IF qltcompb.compare(p_upper_spec_limit, 6, p_lower_spec_limit, null,
1281: l_datatype) THEN
1282: fnd_message.set_name('QA', 'QA_LSL_GREATER_THAN_USL');
1283: fnd_msg_pub.add();
1284: RAISE fnd_api.g_exc_error;
1285: END IF;
1286:
1287: IF qltcompb.compare(p_upper_reasonable_limit, 6, p_lower_reasonable_limit,
1288: null, l_datatype) THEN
1287: IF qltcompb.compare(p_upper_reasonable_limit, 6, p_lower_reasonable_limit,
1288: null, l_datatype) THEN
1289: fnd_message.set_name('QA', 'QA_LRL_GREATER_THAN_URL');
1290: fnd_msg_pub.add();
1291: RAISE fnd_api.g_exc_error;
1292: END IF;
1293:
1294: IF qltcompb.compare(p_upper_user_defined_limit, 6,
1295: p_lower_user_defined_limit, null, l_datatype) THEN
1294: IF qltcompb.compare(p_upper_user_defined_limit, 6,
1295: p_lower_user_defined_limit, null, l_datatype) THEN
1296: fnd_message.set_name('QA', 'QA_LUL_GREATER_THAN_UUL');
1297: fnd_msg_pub.add();
1298: RAISE fnd_api.g_exc_error;
1299: END IF;
1300:
1301: l_enabled_flag := convert_flag(p_enabled_flag);
1302:
1374: p_attribute15 );
1375:
1376: EXCEPTION
1377:
1378: WHEN fnd_api.g_exc_error THEN
1379: ROLLBACK TO add_spec_element;
1380: x_return_status := fnd_api.g_ret_sts_error;
1381: fnd_msg_pub.count_and_get(
1382: p_count => x_msg_count,
1376: EXCEPTION
1377:
1378: WHEN fnd_api.g_exc_error THEN
1379: ROLLBACK TO add_spec_element;
1380: x_return_status := fnd_api.g_ret_sts_error;
1381: fnd_msg_pub.count_and_get(
1382: p_count => x_msg_count,
1383: p_data => x_msg_data
1384: );
1382: p_count => x_msg_count,
1383: p_data => x_msg_data
1384: );
1385:
1386: WHEN fnd_api.g_exc_unexpected_error THEN
1387: ROLLBACK TO add_spec_element;
1388: x_return_status := fnd_api.g_ret_sts_unexp_error;
1389: fnd_msg_pub.count_and_get(
1390: p_count => x_msg_count,
1384: );
1385:
1386: WHEN fnd_api.g_exc_unexpected_error THEN
1387: ROLLBACK TO add_spec_element;
1388: x_return_status := fnd_api.g_ret_sts_unexp_error;
1389: fnd_msg_pub.count_and_get(
1390: p_count => x_msg_count,
1391: p_data => x_msg_data
1392: );
1392: );
1393:
1394: WHEN OTHERS THEN
1395: ROLLBACK TO add_spec_element;
1396: x_return_status := fnd_api.g_ret_sts_unexp_error;
1397: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1398: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1399: END IF;
1400: fnd_msg_pub.count_and_get(
1406:
1407:
1408: PROCEDURE complete_spec_processing(
1409: p_api_version IN NUMBER,
1410: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1411: p_user_name IN VARCHAR2 := NULL,
1412: p_spec_name IN VARCHAR2,
1413: p_organization_code IN VARCHAR2,
1414: p_commit IN VARCHAR2 := fnd_api.g_false,
1410: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1411: p_user_name IN VARCHAR2 := NULL,
1412: p_spec_name IN VARCHAR2,
1413: p_organization_code IN VARCHAR2,
1414: p_commit IN VARCHAR2 := fnd_api.g_false,
1415: x_msg_count OUT NOCOPY NUMBER,
1416: x_msg_data OUT NOCOPY VARCHAR2,
1417: x_return_status OUT NOCOPY VARCHAR2) IS
1418:
1428:
1429: SAVEPOINT complete_spec_definition;
1430:
1431: -- Standard call to check for call compatibility.
1432: IF NOT fnd_api.compatible_api_call(
1433: l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1434: RAISE fnd_api.g_exc_unexpected_error;
1435: END IF;
1436:
1430:
1431: -- Standard call to check for call compatibility.
1432: IF NOT fnd_api.compatible_api_call(
1433: l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1434: RAISE fnd_api.g_exc_unexpected_error;
1435: END IF;
1436:
1437: -- Initialize message list if p_init_msg_list is set to TRUE.
1438: IF fnd_api.to_boolean(p_init_msg_list) THEN
1434: RAISE fnd_api.g_exc_unexpected_error;
1435: END IF;
1436:
1437: -- Initialize message list if p_init_msg_list is set to TRUE.
1438: IF fnd_api.to_boolean(p_init_msg_list) THEN
1439: fnd_msg_pub.initialize;
1440: END IF;
1441:
1442: -- Initialize API return status to success
1439: fnd_msg_pub.initialize;
1440: END IF;
1441:
1442: -- Initialize API return status to success
1443: x_return_status := fnd_api.g_ret_sts_success;
1444:
1445: l_user_id := get_user_id(p_user_name);
1446: IF l_user_id = -1 THEN
1447: fnd_message.set_name('QA', 'QA_API_INVALID_USER');
1445: l_user_id := get_user_id(p_user_name);
1446: IF l_user_id = -1 THEN
1447: fnd_message.set_name('QA', 'QA_API_INVALID_USER');
1448: fnd_msg_pub.add();
1449: raise fnd_api.g_exc_error;
1450: END IF;
1451:
1452: l_spec_id := get_spec_id(p_spec_name, p_organization_code);
1453: check_for_spec_element(l_spec_id);
1451:
1452: l_spec_id := get_spec_id(p_spec_name, p_organization_code);
1453: check_for_spec_element(l_spec_id);
1454:
1455: IF fnd_api.to_boolean(p_commit) THEN
1456: COMMIT;
1457: END IF;
1458:
1459: EXCEPTION
1457: END IF;
1458:
1459: EXCEPTION
1460:
1461: WHEN fnd_api.g_exc_error THEN
1462: ROLLBACK TO complete_spec_definition;
1463: x_return_status := fnd_api.g_ret_sts_error;
1464: fnd_msg_pub.count_and_get(
1465: p_count => x_msg_count,
1459: EXCEPTION
1460:
1461: WHEN fnd_api.g_exc_error THEN
1462: ROLLBACK TO complete_spec_definition;
1463: x_return_status := fnd_api.g_ret_sts_error;
1464: fnd_msg_pub.count_and_get(
1465: p_count => x_msg_count,
1466: p_data => x_msg_data
1467: );
1465: p_count => x_msg_count,
1466: p_data => x_msg_data
1467: );
1468:
1469: WHEN fnd_api.g_exc_unexpected_error THEN
1470: ROLLBACK TO complete_spec_definition;
1471: x_return_status := fnd_api.g_ret_sts_unexp_error;
1472: fnd_msg_pub.count_and_get(
1473: p_count => x_msg_count,
1467: );
1468:
1469: WHEN fnd_api.g_exc_unexpected_error THEN
1470: ROLLBACK TO complete_spec_definition;
1471: x_return_status := fnd_api.g_ret_sts_unexp_error;
1472: fnd_msg_pub.count_and_get(
1473: p_count => x_msg_count,
1474: p_data => x_msg_data
1475: );
1475: );
1476:
1477: WHEN OTHERS THEN
1478: ROLLBACK TO complete_spec_definition;
1479: x_return_status := fnd_api.g_ret_sts_unexp_error;
1480: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1481: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1482: END IF;
1483: fnd_msg_pub.count_and_get(
1526: --
1527:
1528: PROCEDURE delete_specification(
1529: p_api_version IN NUMBER,
1530: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1531: p_user_name IN VARCHAR2 := NULL,
1532: p_spec_name IN VARCHAR2,
1533: p_organization_code IN VARCHAR2,
1534: p_commit IN VARCHAR2 := fnd_api.g_false,
1530: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1531: p_user_name IN VARCHAR2 := NULL,
1532: p_spec_name IN VARCHAR2,
1533: p_organization_code IN VARCHAR2,
1534: p_commit IN VARCHAR2 := fnd_api.g_false,
1535: x_msg_count OUT NOCOPY NUMBER,
1536: x_msg_data OUT NOCOPY VARCHAR2,
1537: x_return_status OUT NOCOPY VARCHAR2) IS
1538:
1549:
1550: SAVEPOINT delete_specification;
1551:
1552: -- Standard call to check for call compatibility.
1553: IF NOT fnd_api.compatible_api_call(
1554: l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1555: RAISE fnd_api.g_exc_unexpected_error;
1556: END IF;
1557:
1551:
1552: -- Standard call to check for call compatibility.
1553: IF NOT fnd_api.compatible_api_call(
1554: l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1555: RAISE fnd_api.g_exc_unexpected_error;
1556: END IF;
1557:
1558: -- Initialize message list if p_init_msg_list is set to TRUE.
1559: IF fnd_api.to_boolean(p_init_msg_list) THEN
1555: RAISE fnd_api.g_exc_unexpected_error;
1556: END IF;
1557:
1558: -- Initialize message list if p_init_msg_list is set to TRUE.
1559: IF fnd_api.to_boolean(p_init_msg_list) THEN
1560: fnd_msg_pub.initialize;
1561: END IF;
1562:
1563: -- Initialize API return status to success
1560: fnd_msg_pub.initialize;
1561: END IF;
1562:
1563: -- Initialize API return status to success
1564: x_return_status := fnd_api.g_ret_sts_success;
1565:
1566: l_user_id := get_user_id(p_user_name);
1567: IF l_user_id = -1 THEN
1568: fnd_message.set_name('QA', 'QA_API_INVALID_USER');
1566: l_user_id := get_user_id(p_user_name);
1567: IF l_user_id = -1 THEN
1568: fnd_message.set_name('QA', 'QA_API_INVALID_USER');
1569: fnd_msg_pub.add();
1570: raise fnd_api.g_exc_error;
1571: END IF;
1572:
1573: l_spec_id := get_spec_id(p_spec_name, p_organization_code);
1574:
1575: -- Perfect place to check for child specs
1576: IF child_spec_exists(l_spec_id) THEN
1577: fnd_message.set_name('QA', 'QA_CHILD_SPECS_EXIST');
1578: fnd_msg_pub.add();
1579: raise fnd_api.g_exc_error;
1580: END IF;
1581:
1582: delete_spec_private(l_spec_id);
1583:
1580: END IF;
1581:
1582: delete_spec_private(l_spec_id);
1583:
1584: IF fnd_api.to_boolean(p_commit) THEN
1585: COMMIT;
1586: END IF;
1587:
1588: EXCEPTION
1586: END IF;
1587:
1588: EXCEPTION
1589:
1590: WHEN fnd_api.g_exc_error THEN
1591: ROLLBACK TO delete_specification;
1592: x_return_status := fnd_api.g_ret_sts_error;
1593: fnd_msg_pub.count_and_get(
1594: p_count => x_msg_count,
1588: EXCEPTION
1589:
1590: WHEN fnd_api.g_exc_error THEN
1591: ROLLBACK TO delete_specification;
1592: x_return_status := fnd_api.g_ret_sts_error;
1593: fnd_msg_pub.count_and_get(
1594: p_count => x_msg_count,
1595: p_data => x_msg_data
1596: );
1594: p_count => x_msg_count,
1595: p_data => x_msg_data
1596: );
1597:
1598: WHEN fnd_api.g_exc_unexpected_error THEN
1599: ROLLBACK TO delete_specification;
1600: x_return_status := fnd_api.g_ret_sts_unexp_error;
1601: fnd_msg_pub.count_and_get(
1602: p_count => x_msg_count,
1596: );
1597:
1598: WHEN fnd_api.g_exc_unexpected_error THEN
1599: ROLLBACK TO delete_specification;
1600: x_return_status := fnd_api.g_ret_sts_unexp_error;
1601: fnd_msg_pub.count_and_get(
1602: p_count => x_msg_count,
1603: p_data => x_msg_data
1604: );
1604: );
1605:
1606: WHEN OTHERS THEN
1607: ROLLBACK TO delete_specification;
1608: x_return_status := fnd_api.g_ret_sts_unexp_error;
1609: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1610: fnd_msg_pub.Add_Exc_Msg(g_pkg_name, l_api_name);
1611: END IF;
1612: fnd_msg_pub.count_and_get(
1625: --
1626:
1627: PROCEDURE delete_spec_element(
1628: p_api_version IN NUMBER,
1629: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1630: p_user_name IN VARCHAR2 := NULL,
1631: p_spec_name IN VARCHAR2,
1632: p_organization_code IN VARCHAR2,
1633: p_element_name IN VARCHAR2,
1630: p_user_name IN VARCHAR2 := NULL,
1631: p_spec_name IN VARCHAR2,
1632: p_organization_code IN VARCHAR2,
1633: p_element_name IN VARCHAR2,
1634: p_commit IN VARCHAR2 := fnd_api.g_false,
1635: x_msg_count OUT NOCOPY NUMBER,
1636: x_msg_data OUT NOCOPY VARCHAR2,
1637: x_return_status OUT NOCOPY VARCHAR2) IS
1638:
1650:
1651: SAVEPOINT delete_spec_element;
1652:
1653: -- Standard call to check for call compatibility.
1654: IF NOT fnd_api.compatible_api_call(
1655: l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1656: RAISE fnd_api.g_exc_unexpected_error;
1657: END IF;
1658:
1652:
1653: -- Standard call to check for call compatibility.
1654: IF NOT fnd_api.compatible_api_call(
1655: l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1656: RAISE fnd_api.g_exc_unexpected_error;
1657: END IF;
1658:
1659: -- Initialize message list if p_init_msg_list is set to TRUE.
1660: IF fnd_api.to_boolean(p_init_msg_list) THEN
1656: RAISE fnd_api.g_exc_unexpected_error;
1657: END IF;
1658:
1659: -- Initialize message list if p_init_msg_list is set to TRUE.
1660: IF fnd_api.to_boolean(p_init_msg_list) THEN
1661: fnd_msg_pub.initialize;
1662: END IF;
1663:
1664: -- Initialize API return status to success
1661: fnd_msg_pub.initialize;
1662: END IF;
1663:
1664: -- Initialize API return status to success
1665: x_return_status := fnd_api.g_ret_sts_success;
1666:
1667: l_user_id := get_user_id(p_user_name);
1668: IF l_user_id = -1 THEN
1669: fnd_message.set_name('QA', 'QA_API_INVALID_USER');
1667: l_user_id := get_user_id(p_user_name);
1668: IF l_user_id = -1 THEN
1669: fnd_message.set_name('QA', 'QA_API_INVALID_USER');
1670: fnd_msg_pub.add();
1671: raise fnd_api.g_exc_error;
1672: END IF;
1673:
1674: l_spec_id := get_spec_id(p_spec_name, p_organization_code);
1675:
1676: -- We must be checking here if the spec is a child
1677: IF is_child_spec(l_spec_id) THEN
1678: fnd_message.set_name('QA', 'QA_DELETE_SPEC_ELEM_ON_CHILD');
1679: fnd_msg_pub.add();
1680: raise fnd_api.g_exc_error;
1681: END IF;
1682:
1683: l_char_id := get_context_element_id(p_element_name);
1684:
1683: l_char_id := get_context_element_id(p_element_name);
1684:
1685: delete_spec_element_private(l_spec_id, l_char_id);
1686:
1687: IF fnd_api.to_boolean(p_commit) THEN
1688: COMMIT;
1689: END IF;
1690:
1691: EXCEPTION
1689: END IF;
1690:
1691: EXCEPTION
1692:
1693: WHEN fnd_api.g_exc_error THEN
1694: ROLLBACK TO delete_spec_element;
1695: x_return_status := fnd_api.g_ret_sts_error;
1696: fnd_msg_pub.count_and_get(
1697: p_count => x_msg_count,
1691: EXCEPTION
1692:
1693: WHEN fnd_api.g_exc_error THEN
1694: ROLLBACK TO delete_spec_element;
1695: x_return_status := fnd_api.g_ret_sts_error;
1696: fnd_msg_pub.count_and_get(
1697: p_count => x_msg_count,
1698: p_data => x_msg_data
1699: );
1697: p_count => x_msg_count,
1698: p_data => x_msg_data
1699: );
1700:
1701: WHEN fnd_api.g_exc_unexpected_error THEN
1702: ROLLBACK TO delete_spec_element;
1703: x_return_status := fnd_api.g_ret_sts_unexp_error;
1704: fnd_msg_pub.count_and_get(
1705: p_count => x_msg_count,
1699: );
1700:
1701: WHEN fnd_api.g_exc_unexpected_error THEN
1702: ROLLBACK TO delete_spec_element;
1703: x_return_status := fnd_api.g_ret_sts_unexp_error;
1704: fnd_msg_pub.count_and_get(
1705: p_count => x_msg_count,
1706: p_data => x_msg_data
1707: );
1707: );
1708:
1709: WHEN OTHERS THEN
1710: ROLLBACK TO delete_spec_element;
1711: x_return_status := fnd_api.g_ret_sts_unexp_error;
1712: IF fnd_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1713: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1714: END IF;
1715: fnd_msg_pub.count_and_get(
1728: --
1729:
1730: PROCEDURE copy_specification(
1731: p_api_version IN NUMBER,
1732: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1733: p_user_name IN VARCHAR2 := NULL,
1734: p_spec_name IN VARCHAR2,
1735: p_organization_code IN VARCHAR2,
1736: p_to_spec_name IN VARCHAR2,
1736: p_to_spec_name IN VARCHAR2,
1737: p_to_organization_code IN VARCHAR2,
1738: p_to_item_name IN VARCHAR2,
1739: p_to_item_revision IN VARCHAR2 := NULL,
1740: p_commit IN VARCHAR2 := fnd_api.g_false,
1741: x_spec_id OUT NOCOPY NUMBER,
1742: x_msg_count OUT NOCOPY NUMBER,
1743: x_msg_data OUT NOCOPY VARCHAR2,
1744: x_return_status OUT NOCOPY VARCHAR2) IS
1775:
1776: SAVEPOINT copy_specification;
1777:
1778: -- Standard call to check for call compatibility.
1779: IF NOT fnd_api.compatible_api_call(
1780: l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1781: RAISE fnd_api.g_exc_unexpected_error;
1782: END IF;
1783:
1777:
1778: -- Standard call to check for call compatibility.
1779: IF NOT fnd_api.compatible_api_call(
1780: l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1781: RAISE fnd_api.g_exc_unexpected_error;
1782: END IF;
1783:
1784: -- Initialize message list if p_init_msg_list is set to TRUE.
1785: IF fnd_api.to_boolean(p_init_msg_list) THEN
1781: RAISE fnd_api.g_exc_unexpected_error;
1782: END IF;
1783:
1784: -- Initialize message list if p_init_msg_list is set to TRUE.
1785: IF fnd_api.to_boolean(p_init_msg_list) THEN
1786: fnd_msg_pub.initialize;
1787: END IF;
1788:
1789: -- Initialize API return status to success
1786: fnd_msg_pub.initialize;
1787: END IF;
1788:
1789: -- Initialize API return status to success
1790: x_return_status := fnd_api.g_ret_sts_success;
1791:
1792: l_user_id := get_user_id(p_user_name);
1793: IF l_user_id = -1 THEN
1794: fnd_message.set_name('QA', 'QA_API_INVALID_USER');
1792: l_user_id := get_user_id(p_user_name);
1793: IF l_user_id = -1 THEN
1794: fnd_message.set_name('QA', 'QA_API_INVALID_USER');
1795: fnd_msg_pub.add();
1796: raise fnd_api.g_exc_error;
1797: END IF;
1798:
1799: l_spec_id := get_spec_id(p_spec_name, p_organization_code);
1800: l_org_id := organization_id(l_spec_id);
1802: l_to_org_id := qa_plans_api.get_org_id(p_to_organization_code);
1803: IF (l_to_org_id IS NULL) THEN
1804: fnd_message.set_name('QA', 'QA_API_INVALID_ORG_CODE');
1805: fnd_msg_pub.add();
1806: RAISE fnd_api.g_exc_error;
1807: END IF;
1808:
1809: IF (spec_exists(p_to_spec_name)) THEN
1810: fnd_message.set_name('QA', 'QA_API_DUPLICATE_SPEC_NAME');
1808:
1809: IF (spec_exists(p_to_spec_name)) THEN
1810: fnd_message.set_name('QA', 'QA_API_DUPLICATE_SPEC_NAME');
1811: fnd_msg_pub.add();
1812: RAISE fnd_api.g_exc_error;
1813: END IF;
1814:
1815: l_to_item_id := process_item_and_revision(p_to_item_name,
1816: p_to_item_revision, l_org_id);
1828:
1829: fnd_message.set_name('QA', 'QA_SPEC_COMBINATION_EXISTS');
1830: fnd_message.set_token('ENTITY1', l_existing_spec_name);
1831: fnd_msg_pub.add();
1832: RAISE fnd_api.g_exc_error;
1833: END IF;
1834:
1835: SELECT qa_specs_s.nextval INTO x_spec_id FROM DUAL;
1836:
1933: qa_specs_pkg.copy_attachment(
1934: p_from_spec_id => l_spec_id,
1935: p_to_spec_id => x_spec_id);
1936:
1937: IF fnd_api.to_boolean(p_commit) THEN
1938: COMMIT;
1939: END IF;
1940:
1941: EXCEPTION
1939: END IF;
1940:
1941: EXCEPTION
1942:
1943: WHEN fnd_api.g_exc_error THEN
1944: ROLLBACK TO copy_specification;
1945: x_return_status := fnd_api.g_ret_sts_error;
1946: fnd_msg_pub.count_and_get(
1947: p_count => x_msg_count,
1941: EXCEPTION
1942:
1943: WHEN fnd_api.g_exc_error THEN
1944: ROLLBACK TO copy_specification;
1945: x_return_status := fnd_api.g_ret_sts_error;
1946: fnd_msg_pub.count_and_get(
1947: p_count => x_msg_count,
1948: p_data => x_msg_data
1949: );
1947: p_count => x_msg_count,
1948: p_data => x_msg_data
1949: );
1950:
1951: WHEN fnd_api.g_exc_unexpected_error THEN
1952: ROLLBACK TO copy_specification;
1953: x_return_status := fnd_api.g_ret_sts_unexp_error;
1954: fnd_msg_pub.count_and_get(
1955: p_count => x_msg_count,
1949: );
1950:
1951: WHEN fnd_api.g_exc_unexpected_error THEN
1952: ROLLBACK TO copy_specification;
1953: x_return_status := fnd_api.g_ret_sts_unexp_error;
1954: fnd_msg_pub.count_and_get(
1955: p_count => x_msg_count,
1956: p_data => x_msg_data
1957: );
1957: );
1958:
1959: WHEN OTHERS THEN
1960: ROLLBACK TO copy_specification;
1961: x_return_status := fnd_api.g_ret_sts_unexp_error;
1962: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1963: fnd_msg_pub.Add_Exc_Msg(g_pkg_name, l_api_name);
1964: END IF;
1965: fnd_msg_pub.count_and_get(