[Home] [Help]
266: temp_number := to_number(p_value);
267: EXCEPTION WHEN OTHERS THEN
268: fnd_message.set_name('QA','QA_INVALID_NUMBER');
269: fnd_msg_pub.add();
270: RAISE fnd_api.g_exc_error;
271: END;
272:
273: ELSIF p_datatype = qa_ss_const.date_datatype THEN
274: BEGIN
275: temp_date := qltdate.any_to_date(p_value);
276: EXCEPTION WHEN OTHERS THEN
277: fnd_message.set_name('QA','QA_INVALID_DATE');
278: fnd_msg_pub.add();
279: RAISE fnd_api.g_exc_error;
280: END;
281: END IF;
282:
283: END validate_datatype;
286: FUNCTION convert_flag(p_flag IN VARCHAR2)
287: RETURN NUMBER IS
288:
289: BEGIN
290: IF p_flag = fnd_api.g_true THEN
291: RETURN 1;
292: END IF;
293:
294: RETURN 2;
740:
741: IF (lot_number_flag = 1) THEN
742: fnd_message.set_name ('QA', 'QA_DEPENDENT_LOT_ON_ITEM');
743: fnd_msg_pub.add();
744: RAISE fnd_api.g_exc_error;
745: END IF;
746:
747: IF (serial_number_flag = 1) THEN
748: fnd_message.set_name ('QA', 'QA_DEPENDENT_SERIAL_ON_ITEM');
746:
747: IF (serial_number_flag = 1) THEN
748: fnd_message.set_name ('QA', 'QA_DEPENDENT_SERIAL_ON_ITEM');
749: fnd_msg_pub.add();
750: RAISE fnd_api.g_exc_error;
751: END IF;
752:
753: IF (wip_line_flag = 1) THEN
754: fnd_message.set_name ('QA', 'QA_DEPENDENT_WIP_LINE_ON_ITEM');
752:
753: IF (wip_line_flag = 1) THEN
754: fnd_message.set_name ('QA', 'QA_DEPENDENT_WIP_LINE_ON_ITEM');
755: fnd_msg_pub.add();
756: RAISE fnd_api.g_exc_error;
757: END IF;
758:
759: IF (revision_flag = 1) THEN
760: fnd_message.set_name ('QA', 'QA_DEPENDENT_REV_ON_ITEM');
758:
759: IF (revision_flag = 1) THEN
760: fnd_message.set_name ('QA', 'QA_DEPENDENT_REV_ON_ITEM');
761: fnd_msg_pub.add();
762: RAISE fnd_api.g_exc_error;
763: END IF;
764:
765: IF (subinv_flag = 1) THEN
766: fnd_message.set_name ('QA', 'QA_DEPENDENT_SUBINV_ON_ITEM');
764:
765: IF (subinv_flag = 1) THEN
766: fnd_message.set_name ('QA', 'QA_DEPENDENT_SUBINV_ON_ITEM');
767: fnd_msg_pub.add();
768: RAISE fnd_api.g_exc_error;
769: END IF;
770:
771: IF (uom_flag = 1) THEN
772: fnd_message.set_name ('QA', 'QA_DEPENDENT_UOM_ON_ITEM');
770:
771: IF (uom_flag = 1) THEN
772: fnd_message.set_name ('QA', 'QA_DEPENDENT_UOM_ON_ITEM');
773: fnd_msg_pub.add();
774: RAISE fnd_api.g_exc_error;
775: END IF;
776:
777: END IF;
778:
782:
783: IF (comp_lot_number_flag = 1) THEN
784: fnd_message.set_name ('QA', 'QA_DEPENDENT_COMP_LOT_ITEM');
785: fnd_msg_pub.add();
786: RAISE fnd_api.g_exc_error;
787: END IF;
788:
789: IF (comp_serial_number_flag = 1) THEN
790: fnd_message.set_name ('QA', 'QA_DEPENDENT_COMP_SERIAL_ITEM');
788:
789: IF (comp_serial_number_flag = 1) THEN
790: fnd_message.set_name ('QA', 'QA_DEPENDENT_COMP_SERIAL_ITEM');
791: fnd_msg_pub.add();
792: RAISE fnd_api.g_exc_error;
793: END IF;
794:
795: IF (comp_revision_flag = 1) THEN
796: fnd_message.set_name ('QA', 'QA_DEPENDENT_COMP_REV_ITEM');
794:
795: IF (comp_revision_flag = 1) THEN
796: fnd_message.set_name ('QA', 'QA_DEPENDENT_COMP_REV_ITEM');
797: fnd_msg_pub.add();
798: RAISE fnd_api.g_exc_error;
799: END IF;
800:
801: IF (comp_subinv_flag = 1) THEN
802: fnd_message.set_name ('QA', 'QA_DEPENDENT_COMP_SUBINV_ITEM');
800:
801: IF (comp_subinv_flag = 1) THEN
802: fnd_message.set_name ('QA', 'QA_DEPENDENT_COMP_SUBINV_ITEM');
803: fnd_msg_pub.add();
804: RAISE fnd_api.g_exc_error;
805: END IF;
806:
807: IF (comp_uom_flag = 1) THEN
808: fnd_message.set_name ('QA', 'QA_DEPENDENT_COMP_UOM_ITEM');
806:
807: IF (comp_uom_flag = 1) THEN
808: fnd_message.set_name ('QA', 'QA_DEPENDENT_COMP_UOM_ITEM');
809: fnd_msg_pub.add();
810: RAISE fnd_api.g_exc_error;
811: END IF;
812:
813: END IF;
814:
819:
820: IF (to_op_seq_flag = 1 OR from_op_seq_flag = 1) THEN
821: fnd_message.set_name ('QA', 'QA_DEPENDENT_OPSEQ_ON_JOB');
822: fnd_msg_pub.add();
823: RAISE fnd_api.g_exc_error;
824: END IF;
825:
826: END IF;
827:
842:
843: IF (to_intraop_step_flag = 1) THEN
844: fnd_message.set_name ('QA', 'QA_DEPENDENT_INTRAOP_ON_OPSEQ');
845: fnd_msg_pub.add();
846: RAISE fnd_api.g_exc_error;
847: END IF;
848:
849: END IF;
850:
862:
863: IF (from_intraop_step_flag = 1) THEN
864: fnd_message.set_name ('QA', 'QA_DEPENDENT_INTRAOP_ON_OPSEQ');
865: fnd_msg_pub.add();
866: RAISE fnd_api.g_exc_error;
867: END IF;
868:
869: END IF;
870:
875:
876: IF (locator_flag = 1) THEN
877: fnd_message.set_name ('QA', 'QA_DEPENDENT_LOCATOR_ON_SUB');
878: fnd_msg_pub.add();
879: RAISE fnd_api.g_exc_error;
880: END IF;
881:
882: END IF;
883:
887:
888: IF (comp_locator_flag = 1) THEN
889: fnd_message.set_name ('QA', 'QA_DEPENDENT_COMP_LOCATOR_SUB');
890: fnd_msg_pub.add();
891: RAISE fnd_api.g_exc_error;
892: END IF;
893:
894: END IF;
895:
900:
901: IF (po_line_flag = 1) THEN
902: fnd_message.set_name ('QA', 'QA_DEPENDENT_PO_LINE_ON_HEADER');
903: fnd_msg_pub.add();
904: RAISE fnd_api.g_exc_error;
905: END IF;
906:
907: IF (po_rel_number_flag = 1) THEN
908: fnd_message.set_name ('QA', 'QA_DEPENDENT_PO_REL_ON_HEADER');
906:
907: IF (po_rel_number_flag = 1) THEN
908: fnd_message.set_name ('QA', 'QA_DEPENDENT_PO_REL_ON_HEADER');
909: fnd_msg_pub.add();
910: RAISE fnd_api.g_exc_error;
911: END IF;
912:
913: END IF;
914:
919:
920: IF (so_line_flag = 1) THEN
921: fnd_message.set_name ('QA', 'QA_DEPENDENT_SO_LINE_ON_HEADER');
922: fnd_msg_pub.add();
923: RAISE fnd_api.g_exc_error;
924: END IF;
925:
926: END IF;
927:
929:
930: IF (task_num_flag = 1) THEN
931: fnd_message.set_name ('QA', 'QA_PROJECT_TASK_DEPEND');
932: fnd_msg_pub.add();
933: RAISE fnd_api.g_exc_error;
934: END IF;
935:
936: END IF;
937:
944: qa_plan_element_api.get_prompt(p_plan_id, qa_ss_const.process_parameter));
945: fnd_message.set_token('ELEMENT_LIST',
946: qa_plan_element_api.get_prompt(p_plan_id, qa_ss_const.process_batch_num));
947: fnd_msg_pub.add();
948: RAISE fnd_api.g_exc_error;
949: END IF;
950: END IF;
951:
952: IF (process_activity_flag = 2) THEN
956: qa_plan_element_api.get_prompt(p_plan_id, qa_ss_const.process_resource));
957: fnd_message.set_token('ELEMENT_LIST',
958: qa_plan_element_api.get_prompt(p_plan_id, qa_ss_const.process_batch_num));
959: fnd_msg_pub.add();
960: RAISE fnd_api.g_exc_error;
961: END IF;
962: END IF;
963:
964: IF (process_batchstep_num_flag = 2) THEN
968: qa_plan_element_api.get_prompt(p_plan_id, qa_ss_const.process_activity));
969: fnd_message.set_token('ELEMENT_LIST',
970: qa_plan_element_api.get_prompt(p_plan_id, qa_ss_const.process_batch_num));
971: fnd_msg_pub.add();
972: RAISE fnd_api.g_exc_error;
973: END IF;
974: END IF;
975:
976: IF (process_batchstep_num_flag = 2) THEN
980: qa_plan_element_api.get_prompt(p_plan_id, qa_ss_const.process_operation));
981: fnd_message.set_token('ELEMENT_LIST',
982: qa_plan_element_api.get_prompt(p_plan_id, qa_ss_const.process_batch_num));
983: fnd_msg_pub.add();
984: RAISE fnd_api.g_exc_error;
985: END IF;
986: END IF;
987:
988: IF (process_batch_num_flag = 2) THEN
992: qa_plan_element_api.get_prompt(p_plan_id, qa_ss_const.process_batchstep_num));
993: fnd_message.set_token('ELEMENT_LIST',
994: qa_plan_element_api.get_prompt(p_plan_id, qa_ss_const.process_batch_num));
995: fnd_msg_pub.add();
996: RAISE fnd_api.g_exc_error;
997: END IF;
998: END IF;
999:
1000: -- R12 OPM Deviations. Bug 4345503 End
1011: BEGIN
1012: IF NOT mandatory_element_exists(p_plan_id) THEN
1013: fnd_message.set_name('QA', 'QA_QPLAN_MUST_HAVE_CHARS');
1014: fnd_msg_pub.add();
1015: RAISE fnd_api.g_exc_error;
1016: END IF;
1017:
1018: check_element_dependencies(p_plan_id);
1019:
1016: END IF;
1017:
1018: check_element_dependencies(p_plan_id);
1019:
1020: IF fnd_api.to_boolean(p_commit) THEN
1021: COMMIT;
1022:
1023: --
1024: -- Launch the dynamic view creator only if the user
1271: IF pc.result_column_name LIKE 'CHARACTER%' THEN
1272: IF l_char_sequence > g_max_char_columns THEN
1273: fnd_message.set_name('QA', 'QA_EXCEEDED_COLUMN_COUNT');
1274: fnd_msg_pub.add();
1275: raise fnd_api.g_exc_error;
1276: END IF;
1277: l_result_column := 'CHARACTER' || l_char_sequence;
1278: l_char_sequence := l_char_sequence + 1;
1279: ELSE
1329: pc.mandatory_flag,
1330: pc.default_value,
1331: l_result_column,
1332: decode(p_copy_values_flag,
1333: fnd_api.g_true, pc.values_exist_flag, 2),
1334: pc.displayed_flag,
1335: pc.default_value_id,
1336: pc.read_only_flag,
1337: pc.ss_poplist_flag,
1583: char_ids(i));
1584: IF result_column_names(i) IS NULL THEN
1585: fnd_message.set_name('QA', 'QA_EXCEEDED_COLUMN_COUNT');
1586: fnd_msg_pub.add();
1587: raise fnd_api.g_exc_error;
1588: END IF;
1589: mark_result_column(result_column_names(i));
1590: END IF;
1591:
1595:
1596: --
1597: -- Clear the values_exist_flags if values are not copied.
1598: --
1599: IF p_copy_values_flag = fnd_api.g_false THEN
1600: FOR i IN char_ids.FIRST .. char_ids.LAST LOOP
1601: values_exist_flags(i) := 2;
1602: END LOOP;
1603: END IF;
2545: p_user_id NUMBER) IS
2546:
2547: l_request_id NUMBER;
2548: BEGIN
2549: IF fnd_api.to_boolean(p_commit) THEN
2550: COMMIT;
2551:
2552: --
2553: -- The dynamic view creator can be used to delete the
2620: -- on the plan header level
2621: --
2622: PROCEDURE create_collection_plan(
2623: p_api_version IN NUMBER,
2624: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
2625: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
2626: p_user_name IN VARCHAR2 := NULL,
2627: p_plan_name IN VARCHAR2,
2628: p_organization_code IN VARCHAR2,
2621: --
2622: PROCEDURE create_collection_plan(
2623: p_api_version IN NUMBER,
2624: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
2625: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
2626: p_user_name IN VARCHAR2 := NULL,
2627: p_plan_name IN VARCHAR2,
2628: p_organization_code IN VARCHAR2,
2629: p_plan_type IN VARCHAR2,
2669:
2670: SAVEPOINT create_plan_pub;
2671:
2672: -- Standard call to check for call compatibility.
2673: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version,
2674: l_api_name, g_pkg_name) THEN
2675: RAISE fnd_api.g_exc_unexpected_error;
2676: END IF;
2677:
2671:
2672: -- Standard call to check for call compatibility.
2673: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version,
2674: l_api_name, g_pkg_name) THEN
2675: RAISE fnd_api.g_exc_unexpected_error;
2676: END IF;
2677:
2678: -- Initialize message list if p_init_msg_list is set to TRUE.
2679: IF fnd_api.to_boolean(p_init_msg_list) THEN
2675: RAISE fnd_api.g_exc_unexpected_error;
2676: END IF;
2677:
2678: -- Initialize message list if p_init_msg_list is set to TRUE.
2679: IF fnd_api.to_boolean(p_init_msg_list) THEN
2680: fnd_msg_pub.initialize;
2681: END IF;
2682:
2683: -- Initialize API return status to success
2680: fnd_msg_pub.initialize;
2681: END IF;
2682:
2683: -- Initialize API return status to success
2684: x_return_status := fnd_api.g_ret_sts_success;
2685:
2686:
2687: -- *** start of logic ***
2688:
2696: l_user_id := get_user_id(p_user_name);
2697: IF l_user_id = -1 THEN
2698: fnd_message.set_name('QA', 'QA_API_INVALID_USER');
2699: fnd_msg_pub.add();
2700: raise fnd_api.g_exc_error;
2701: END IF;
2702:
2703: l_plan_name := upper(p_plan_name);
2704: IF (illegal_chars(l_plan_name)) THEN
2703: l_plan_name := upper(p_plan_name);
2704: IF (illegal_chars(l_plan_name)) THEN
2705: fnd_message.set_name('QA', 'QA_NAME_SPECIAL_CHARS');
2706: fnd_msg_pub.add();
2707: raise fnd_api.g_exc_error;
2708: END IF;
2709:
2710: l_org_id := qa_plans_api.get_org_id(p_organization_code);
2711: IF (l_org_id IS NULL) THEN
2710: l_org_id := qa_plans_api.get_org_id(p_organization_code);
2711: IF (l_org_id IS NULL) THEN
2712: fnd_message.set_name('QA', 'QA_API_INVALID_ORG_CODE');
2713: fnd_msg_pub.add();
2714: raise fnd_api.g_exc_error;
2715: END IF;
2716:
2717: IF NOT valid_plan_type(p_plan_type) THEN
2718: fnd_message.set_name('QA', 'QA_API_INVALID_PLAN_TYPE');
2716:
2717: IF NOT valid_plan_type(p_plan_type) THEN
2718: fnd_message.set_name('QA', 'QA_API_INVALID_PLAN_TYPE');
2719: fnd_msg_pub.add();
2720: raise fnd_api.g_exc_error;
2721: ELSE
2722: l_plan_type_code := get_plan_type_code(p_plan_type);
2723: END IF;
2724:
2728:
2729: IF plan_exists(l_plan_name) > 0 THEN
2730: fnd_message.set_name('QA', 'QA_PLAN_RECORD_EXISTS');
2731: fnd_msg_pub.add();
2732: raise fnd_api.g_exc_error;
2733: END IF;
2734:
2735: IF (p_effective_to < p_effective_from) THEN
2736: fnd_message.set_name('QA', 'QA_EFFECTIVE_DATE_RANGE');
2734:
2735: IF (p_effective_to < p_effective_from) THEN
2736: fnd_message.set_name('QA', 'QA_EFFECTIVE_DATE_RANGE');
2737: fnd_msg_pub.add();
2738: raise fnd_api.g_exc_error;
2739: END IF;
2740:
2741: l_plan_view := get_plan_view_name(l_plan_name);
2742: l_import_view := get_import_view_name(l_plan_name);
2816: p_attribute15);
2817:
2818: EXCEPTION
2819:
2820: WHEN fnd_api.g_exc_error THEN
2821: ROLLBACK TO create_plan_pub;
2822: x_return_status := fnd_api.g_ret_sts_error;
2823: fnd_msg_pub.count_and_get(
2824: p_count => x_msg_count,
2818: EXCEPTION
2819:
2820: WHEN fnd_api.g_exc_error THEN
2821: ROLLBACK TO create_plan_pub;
2822: x_return_status := fnd_api.g_ret_sts_error;
2823: fnd_msg_pub.count_and_get(
2824: p_count => x_msg_count,
2825: p_data => x_msg_data
2826: );
2824: p_count => x_msg_count,
2825: p_data => x_msg_data
2826: );
2827:
2828: WHEN fnd_api.g_exc_unexpected_error THEN
2829: ROLLBACK TO create_plan_pub;
2830: x_return_status := fnd_api.g_ret_sts_unexp_error;
2831: fnd_msg_pub.count_and_get(
2832: p_count => x_msg_count,
2826: );
2827:
2828: WHEN fnd_api.g_exc_unexpected_error THEN
2829: ROLLBACK TO create_plan_pub;
2830: x_return_status := fnd_api.g_ret_sts_unexp_error;
2831: fnd_msg_pub.count_and_get(
2832: p_count => x_msg_count,
2833: p_data => x_msg_data
2834: );
2834: );
2835:
2836: WHEN OTHERS THEN
2837: ROLLBACK TO create_plan_pub;
2838: x_return_status := fnd_api.g_ret_sts_unexp_error;
2839: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2840: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2841: END IF;
2842: fnd_msg_pub.count_and_get(
2852: -- on the plan element level
2853: --
2854: PROCEDURE add_plan_element(
2855: p_api_version IN NUMBER,
2856: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
2857: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
2858: p_user_name IN VARCHAR2 := NULL,
2859: p_plan_name IN VARCHAR2,
2860: p_organization_code IN VARCHAR2,
2853: --
2854: PROCEDURE add_plan_element(
2855: p_api_version IN NUMBER,
2856: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
2857: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
2858: p_user_name IN VARCHAR2 := NULL,
2859: p_plan_name IN VARCHAR2,
2860: p_organization_code IN VARCHAR2,
2861: p_element_name IN VARCHAR2,
2861: p_element_name IN VARCHAR2,
2862: p_prompt_sequence IN NUMBER := NULL,
2863: p_prompt IN VARCHAR2 := g_inherit,
2864: p_default_value IN VARCHAR2 := g_inherit,
2865: p_enabled_flag IN VARCHAR2 := fnd_api.g_true,
2866: p_mandatory_flag IN VARCHAR2 := g_inherit,
2867: p_displayed_flag IN VARCHAR2 := fnd_api.g_true,
2868: p_read_only_flag IN VARCHAR2 := NULL,
2869: p_ss_poplist_flag IN VARCHAR2 := NULL,
2863: p_prompt IN VARCHAR2 := g_inherit,
2864: p_default_value IN VARCHAR2 := g_inherit,
2865: p_enabled_flag IN VARCHAR2 := fnd_api.g_true,
2866: p_mandatory_flag IN VARCHAR2 := g_inherit,
2867: p_displayed_flag IN VARCHAR2 := fnd_api.g_true,
2868: p_read_only_flag IN VARCHAR2 := NULL,
2869: p_ss_poplist_flag IN VARCHAR2 := NULL,
2870: p_information_flag IN VARCHAR2 := NULL,
2871: p_result_column_name IN VARCHAR2 := NULL,
2940:
2941: SAVEPOINT add_element_pub;
2942:
2943: -- Standard call to check for call compatibility.
2944: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version,
2945: l_api_name, g_pkg_name) THEN
2946: RAISE fnd_api.g_exc_unexpected_error;
2947: END IF;
2948:
2942:
2943: -- Standard call to check for call compatibility.
2944: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version,
2945: l_api_name, g_pkg_name) THEN
2946: RAISE fnd_api.g_exc_unexpected_error;
2947: END IF;
2948:
2949: -- Initialize message list if p_init_msg_list is set to TRUE.
2950: IF fnd_api.to_boolean(p_init_msg_list) THEN
2946: RAISE fnd_api.g_exc_unexpected_error;
2947: END IF;
2948:
2949: -- Initialize message list if p_init_msg_list is set to TRUE.
2950: IF fnd_api.to_boolean(p_init_msg_list) THEN
2951: fnd_msg_pub.initialize;
2952: END IF;
2953:
2954: -- Initialize API return status to success
2951: fnd_msg_pub.initialize;
2952: END IF;
2953:
2954: -- Initialize API return status to success
2955: x_return_status := fnd_api.g_ret_sts_success;
2956:
2957: -- *** start of logic ***
2958:
2959: l_user_id := get_user_id(p_user_name);
2959: l_user_id := get_user_id(p_user_name);
2960: IF l_user_id = -1 THEN
2961: fnd_message.set_name('QA', 'QA_API_INVALID_USER');
2962: fnd_msg_pub.add();
2963: raise fnd_api.g_exc_error;
2964: END IF;
2965:
2966: l_plan_id := qa_plans_api.plan_id(upper(p_plan_name));
2967: IF (l_plan_id IS NULL) THEN
2966: l_plan_id := qa_plans_api.plan_id(upper(p_plan_name));
2967: IF (l_plan_id IS NULL) THEN
2968: fnd_message.set_name('QA', 'QA_API_INVALID_PLAN');
2969: fnd_msg_pub.add();
2970: raise fnd_api.g_exc_error;
2971: END IF;
2972:
2973: l_char_id := qa_chars_api.get_element_id(p_element_name);
2974: IF (l_char_id IS NULL) THEN
2973: l_char_id := qa_chars_api.get_element_id(p_element_name);
2974: IF (l_char_id IS NULL) THEN
2975: fnd_message.set_name('QA', 'QA_API_INVALID_ELEMENT');
2976: fnd_msg_pub.add();
2977: raise fnd_api.g_exc_error;
2978: END IF;
2979:
2980: IF element_exists(l_plan_id, l_char_id) THEN
2981: fnd_message.set_name('QA', 'QA_API_ELEMENT_ALREADY_ADDED');
2979:
2980: IF element_exists(l_plan_id, l_char_id) THEN
2981: fnd_message.set_name('QA', 'QA_API_ELEMENT_ALREADY_ADDED');
2982: fnd_msg_pub.add();
2983: raise fnd_api.g_exc_error;
2984: END IF;
2985:
2986: --
2987: -- Bug 3926150. Since add_plan_element can be called without
3013: ELSE
3014: IF prompt_sequence_exists(l_plan_id, p_prompt_sequence) THEN
3015: fnd_message.set_name('QA', 'QA_API_INVALID_PROMPT_SEQUENCE');
3016: fnd_msg_pub.add();
3017: RAISE fnd_api.g_exc_error;
3018: END IF;
3019: l_prompt_sequence := p_prompt_sequence;
3020: END IF;
3021:
3049:
3050: IF l_result_column_name IS NULL THEN
3051: fnd_message.set_name('QA', 'QA_EXCEEDED_COLUMN_COUNT');
3052: fnd_msg_pub.add();
3053: raise fnd_api.g_exc_error;
3054: END IF;
3055: ELSE
3056: l_result_column_name := p_result_column_name;
3057: END IF;
3074: IF FND_PROFILE.VALUE('WIP_MES_OPS_FLAG') <> 1
3075: AND (p_device_flag IS NOT NULL AND p_override_flag IS NOT NULL OR p_device_name IS NOT NULL OR p_sensor_alias IS NOT NULL) THEN
3076: fnd_message.set_name('WIP', 'WIP_WS_NO_LICENSE');
3077: fnd_msg_pub.add();
3078: raise fnd_api.g_exc_error;
3079: END IF;
3080:
3081: IF l_device_flag = 2 AND (l_override_flag = 1 OR p_device_name IS NOT NULL OR p_sensor_alias IS NOT NULL) THEN
3082: fnd_message.set_name('QA', 'QA_API_INVALID_DEVICE_FLAG');
3080:
3081: IF l_device_flag = 2 AND (l_override_flag = 1 OR p_device_name IS NOT NULL OR p_sensor_alias IS NOT NULL) THEN
3082: fnd_message.set_name('QA', 'QA_API_INVALID_DEVICE_FLAG');
3083: fnd_msg_pub.add();
3084: raise fnd_api.g_exc_error;
3085: END IF;
3086:
3087: IF l_device_flag = 1 AND (p_device_name IS NULL OR p_sensor_alias IS NULL) THEN
3088: fnd_message.set_name('QA', 'QA_API_INVALID_DEVICE_NAME');
3086:
3087: IF l_device_flag = 1 AND (p_device_name IS NULL OR p_sensor_alias IS NULL) THEN
3088: fnd_message.set_name('QA', 'QA_API_INVALID_DEVICE_NAME');
3089: fnd_msg_pub.add();
3090: raise fnd_api.g_exc_error;
3091: END IF;
3092:
3093: IF l_device_flag = 1 AND p_device_name IS NOT NULL AND p_sensor_alias IS NOT NULL THEN
3094: get_device_details(trim(p_device_name), trim(p_sensor_alias), x_device_id, x_override_flag);
3095:
3096: IF (x_device_id IS NULL) THEN
3097: fnd_message.set_name('QA', 'QA_API_INVALID_DEVICE_DETAILS');
3098: fnd_msg_pub.add();
3099: raise fnd_api.g_exc_error;
3100: END IF;
3101: END IF;
3102:
3103: IF p_override_flag IS NULL THEN
3188: p_attribute15
3189: );
3190: EXCEPTION
3191:
3192: WHEN fnd_api.g_exc_error THEN
3193: ROLLBACK TO add_element_pub;
3194: x_return_status := fnd_api.g_ret_sts_error;
3195: fnd_msg_pub.count_and_get(
3196: p_count => x_msg_count,
3190: EXCEPTION
3191:
3192: WHEN fnd_api.g_exc_error THEN
3193: ROLLBACK TO add_element_pub;
3194: x_return_status := fnd_api.g_ret_sts_error;
3195: fnd_msg_pub.count_and_get(
3196: p_count => x_msg_count,
3197: p_data => x_msg_data
3198: );
3196: p_count => x_msg_count,
3197: p_data => x_msg_data
3198: );
3199:
3200: WHEN fnd_api.g_exc_unexpected_error THEN
3201: ROLLBACK TO add_element_pub;
3202: x_return_status := fnd_api.g_ret_sts_unexp_error;
3203: fnd_msg_pub.count_and_get(
3204: p_count => x_msg_count,
3198: );
3199:
3200: WHEN fnd_api.g_exc_unexpected_error THEN
3201: ROLLBACK TO add_element_pub;
3202: x_return_status := fnd_api.g_ret_sts_unexp_error;
3203: fnd_msg_pub.count_and_get(
3204: p_count => x_msg_count,
3205: p_data => x_msg_data
3206: );
3206: );
3207:
3208: WHEN OTHERS THEN
3209: ROLLBACK TO add_element_pub;
3210: x_return_status := fnd_api.g_ret_sts_unexp_error;
3211: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3212: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
3213: END IF;
3214: fnd_msg_pub.count_and_get(
3220:
3221:
3222: PROCEDURE complete_plan_processing(
3223: p_api_version IN NUMBER,
3224: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
3225: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
3226: p_user_name IN VARCHAR2 := NULL,
3227: p_plan_name IN VARCHAR2,
3228: p_organization_code IN VARCHAR2,
3221:
3222: PROCEDURE complete_plan_processing(
3223: p_api_version IN NUMBER,
3224: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
3225: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
3226: p_user_name IN VARCHAR2 := NULL,
3227: p_plan_name IN VARCHAR2,
3228: p_organization_code IN VARCHAR2,
3229: p_commit IN VARCHAR2 := fnd_api.g_false,
3225: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
3226: p_user_name IN VARCHAR2 := NULL,
3227: p_plan_name IN VARCHAR2,
3228: p_organization_code IN VARCHAR2,
3229: p_commit IN VARCHAR2 := fnd_api.g_false,
3230: x_msg_count OUT NOCOPY NUMBER,
3231: x_msg_data OUT NOCOPY VARCHAR2,
3232: x_return_status OUT NOCOPY VARCHAR2) IS
3233:
3244:
3245: SAVEPOINT complete_plan_definition_pub;
3246:
3247: -- Standard call to check for call compatibility.
3248: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version,
3249: l_api_name, g_pkg_name) THEN
3250: RAISE fnd_api.g_exc_unexpected_error;
3251: END IF;
3252:
3246:
3247: -- Standard call to check for call compatibility.
3248: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version,
3249: l_api_name, g_pkg_name) THEN
3250: RAISE fnd_api.g_exc_unexpected_error;
3251: END IF;
3252:
3253: -- Initialize message list if p_init_msg_list is set to TRUE.
3254: IF fnd_api.to_boolean(p_init_msg_list) THEN
3250: RAISE fnd_api.g_exc_unexpected_error;
3251: END IF;
3252:
3253: -- Initialize message list if p_init_msg_list is set to TRUE.
3254: IF fnd_api.to_boolean(p_init_msg_list) THEN
3255: fnd_msg_pub.initialize;
3256: END IF;
3257:
3258: -- Initialize API return status to success
3255: fnd_msg_pub.initialize;
3256: END IF;
3257:
3258: -- Initialize API return status to success
3259: x_return_status := fnd_api.g_ret_sts_success;
3260:
3261: -- *** start of logic ***
3262:
3263: l_user_id := get_user_id(p_user_name);
3263: l_user_id := get_user_id(p_user_name);
3264: IF l_user_id = -1 THEN
3265: fnd_message.set_name('QA', 'QA_API_INVALID_USER');
3266: fnd_msg_pub.add();
3267: raise fnd_api.g_exc_error;
3268: END IF;
3269:
3270: l_plan_name := upper(p_plan_name);
3271: l_plan_id := qa_plans_api.plan_id(l_plan_name);
3271: l_plan_id := qa_plans_api.plan_id(l_plan_name);
3272: IF (l_plan_id IS NULL) THEN
3273: fnd_message.set_name('QA', 'QA_API_INVALID_PLAN');
3274: fnd_msg_pub.add();
3275: raise fnd_api.g_exc_error;
3276: END IF;
3277:
3278: complete_plan_private(l_plan_id, l_plan_name, p_commit, l_user_id);
3279:
3289: );
3290:
3291: EXCEPTION
3292:
3293: WHEN fnd_api.g_exc_error THEN
3294: ROLLBACK TO complete_plan_definition_pub;
3295: x_return_status := fnd_api.g_ret_sts_error;
3296: fnd_msg_pub.count_and_get(
3297: p_count => x_msg_count,
3291: EXCEPTION
3292:
3293: WHEN fnd_api.g_exc_error THEN
3294: ROLLBACK TO complete_plan_definition_pub;
3295: x_return_status := fnd_api.g_ret_sts_error;
3296: fnd_msg_pub.count_and_get(
3297: p_count => x_msg_count,
3298: p_data => x_msg_data
3299: );
3297: p_count => x_msg_count,
3298: p_data => x_msg_data
3299: );
3300:
3301: WHEN fnd_api.g_exc_unexpected_error THEN
3302: ROLLBACK TO complete_plan_definition_pub;
3303: x_return_status := fnd_api.g_ret_sts_unexp_error;
3304: fnd_msg_pub.count_and_get(
3305: p_count => x_msg_count,
3299: );
3300:
3301: WHEN fnd_api.g_exc_unexpected_error THEN
3302: ROLLBACK TO complete_plan_definition_pub;
3303: x_return_status := fnd_api.g_ret_sts_unexp_error;
3304: fnd_msg_pub.count_and_get(
3305: p_count => x_msg_count,
3306: p_data => x_msg_data
3307: );
3307: );
3308:
3309: WHEN OTHERS THEN
3310: ROLLBACK TO complete_plan_definition_pub;
3311: x_return_status := fnd_api.g_ret_sts_unexp_error;
3312: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3313: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
3314: END IF;
3315: fnd_msg_pub.count_and_get(
3321:
3322:
3323: PROCEDURE copy_collection_plan(
3324: p_api_version IN NUMBER,
3325: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
3326: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
3327: p_user_name IN VARCHAR2 := NULL,
3328: p_plan_name IN VARCHAR2,
3329: p_organization_code IN VARCHAR2,
3322:
3323: PROCEDURE copy_collection_plan(
3324: p_api_version IN NUMBER,
3325: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
3326: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
3327: p_user_name IN VARCHAR2 := NULL,
3328: p_plan_name IN VARCHAR2,
3329: p_organization_code IN VARCHAR2,
3330: p_to_plan_name IN VARCHAR2,
3328: p_plan_name IN VARCHAR2,
3329: p_organization_code IN VARCHAR2,
3330: p_to_plan_name IN VARCHAR2,
3331: p_to_organization_code IN VARCHAR2,
3332: p_copy_actions_flag IN VARCHAR2 := fnd_api.g_true,
3333: p_copy_values_flag IN VARCHAR2 := fnd_api.g_true,
3334: p_copy_transactions_flag IN VARCHAR2 := fnd_api.g_true,
3335: p_commit IN VARCHAR2 := fnd_api.g_false,
3336: x_to_plan_id OUT NOCOPY NUMBER,
3329: p_organization_code IN VARCHAR2,
3330: p_to_plan_name IN VARCHAR2,
3331: p_to_organization_code IN VARCHAR2,
3332: p_copy_actions_flag IN VARCHAR2 := fnd_api.g_true,
3333: p_copy_values_flag IN VARCHAR2 := fnd_api.g_true,
3334: p_copy_transactions_flag IN VARCHAR2 := fnd_api.g_true,
3335: p_commit IN VARCHAR2 := fnd_api.g_false,
3336: x_to_plan_id OUT NOCOPY NUMBER,
3337: x_msg_count OUT NOCOPY NUMBER,
3330: p_to_plan_name IN VARCHAR2,
3331: p_to_organization_code IN VARCHAR2,
3332: p_copy_actions_flag IN VARCHAR2 := fnd_api.g_true,
3333: p_copy_values_flag IN VARCHAR2 := fnd_api.g_true,
3334: p_copy_transactions_flag IN VARCHAR2 := fnd_api.g_true,
3335: p_commit IN VARCHAR2 := fnd_api.g_false,
3336: x_to_plan_id OUT NOCOPY NUMBER,
3337: x_msg_count OUT NOCOPY NUMBER,
3338: x_msg_data OUT NOCOPY VARCHAR2,
3331: p_to_organization_code IN VARCHAR2,
3332: p_copy_actions_flag IN VARCHAR2 := fnd_api.g_true,
3333: p_copy_values_flag IN VARCHAR2 := fnd_api.g_true,
3334: p_copy_transactions_flag IN VARCHAR2 := fnd_api.g_true,
3335: p_commit IN VARCHAR2 := fnd_api.g_false,
3336: x_to_plan_id OUT NOCOPY NUMBER,
3337: x_msg_count OUT NOCOPY NUMBER,
3338: x_msg_data OUT NOCOPY VARCHAR2,
3339: x_return_status OUT NOCOPY VARCHAR2) IS
3352:
3353: SAVEPOINT copy_plan_pub;
3354:
3355: -- Standard call to check for call compatibility.
3356: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version,
3357: l_api_name, g_pkg_name) THEN
3358: RAISE fnd_api.g_exc_unexpected_error;
3359: END IF;
3360:
3354:
3355: -- Standard call to check for call compatibility.
3356: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version,
3357: l_api_name, g_pkg_name) THEN
3358: RAISE fnd_api.g_exc_unexpected_error;
3359: END IF;
3360:
3361: -- Initialize message list if p_init_msg_list is set to TRUE.
3362: IF fnd_api.to_boolean(p_init_msg_list) THEN
3358: RAISE fnd_api.g_exc_unexpected_error;
3359: END IF;
3360:
3361: -- Initialize message list if p_init_msg_list is set to TRUE.
3362: IF fnd_api.to_boolean(p_init_msg_list) THEN
3363: fnd_msg_pub.initialize;
3364: END IF;
3365:
3366: -- Initialize API return status to success
3363: fnd_msg_pub.initialize;
3364: END IF;
3365:
3366: -- Initialize API return status to success
3367: x_return_status := fnd_api.g_ret_sts_success;
3368:
3369: -- *** start of logic ***
3370:
3371: l_user_id := get_user_id(p_user_name);
3371: l_user_id := get_user_id(p_user_name);
3372: IF l_user_id = -1 THEN
3373: fnd_message.set_name('QA', 'QA_API_INVALID_USER');
3374: fnd_msg_pub.add();
3375: raise fnd_api.g_exc_error;
3376: END IF;
3377:
3378: --
3379: -- An unusual case for copy plan. The template plans have
3385: l_from_plan_id := qa_plans_api.plan_id(upper(p_plan_name));
3386: IF (l_from_plan_id IS NULL) THEN
3387: fnd_message.set_name('QA', 'QA_API_INVALID_PLAN');
3388: fnd_msg_pub.add();
3389: raise fnd_api.g_exc_error;
3390: END IF;
3391: END IF;
3392:
3393: l_to_plan_name := upper(p_to_plan_name);
3393: l_to_plan_name := upper(p_to_plan_name);
3394: IF (illegal_chars(l_to_plan_name)) THEN
3395: fnd_message.set_name('QA', 'QA_NAME_SPECIAL_CHARS');
3396: fnd_msg_pub.add();
3397: raise fnd_api.g_exc_error;
3398: END IF;
3399:
3400: l_to_org_id := qa_plans_api.get_org_id(p_to_organization_code);
3401: IF (l_to_org_id IS NULL) THEN
3400: l_to_org_id := qa_plans_api.get_org_id(p_to_organization_code);
3401: IF (l_to_org_id IS NULL) THEN
3402: fnd_message.set_name('QA', 'QA_API_INVALID_ORG_CODE');
3403: fnd_msg_pub.add();
3404: raise fnd_api.g_exc_error;
3405: END IF;
3406:
3407: x_to_plan_id := copy_plan_header(l_from_plan_id, l_to_plan_name,
3408: l_to_org_id, l_user_id);
3406:
3407: x_to_plan_id := copy_plan_header(l_from_plan_id, l_to_plan_name,
3408: l_to_org_id, l_user_id);
3409:
3410: IF (p_copy_values_flag = fnd_api.g_true) THEN
3411: copy_plan_element_values(l_from_plan_id, x_to_plan_id,
3412: l_user_id);
3413: END IF;
3414:
3411: copy_plan_element_values(l_from_plan_id, x_to_plan_id,
3412: l_user_id);
3413: END IF;
3414:
3415: IF (p_copy_actions_flag = fnd_api.g_true) THEN
3416: copy_plan_element_actions(l_from_plan_id, x_to_plan_id,
3417: l_user_id);
3418: END IF;
3419:
3416: copy_plan_element_actions(l_from_plan_id, x_to_plan_id,
3417: l_user_id);
3418: END IF;
3419:
3420: IF (p_copy_transactions_flag = fnd_api.g_true) THEN
3421: copy_plan_transactions(l_from_plan_id, x_to_plan_id,
3422: l_user_id);
3423: END IF;
3424:
3451: );
3452:
3453: EXCEPTION
3454:
3455: WHEN fnd_api.g_exc_error THEN
3456: ROLLBACK TO copy_plan_pub;
3457: x_return_status := fnd_api.g_ret_sts_error;
3458: fnd_msg_pub.count_and_get(
3459: p_count => x_msg_count,
3453: EXCEPTION
3454:
3455: WHEN fnd_api.g_exc_error THEN
3456: ROLLBACK TO copy_plan_pub;
3457: x_return_status := fnd_api.g_ret_sts_error;
3458: fnd_msg_pub.count_and_get(
3459: p_count => x_msg_count,
3460: p_data => x_msg_data
3461: );
3459: p_count => x_msg_count,
3460: p_data => x_msg_data
3461: );
3462:
3463: WHEN fnd_api.g_exc_unexpected_error THEN
3464: ROLLBACK TO copy_plan_pub;
3465: x_return_status := fnd_api.g_ret_sts_unexp_error;
3466: fnd_msg_pub.count_and_get(
3467: p_count => x_msg_count,
3461: );
3462:
3463: WHEN fnd_api.g_exc_unexpected_error THEN
3464: ROLLBACK TO copy_plan_pub;
3465: x_return_status := fnd_api.g_ret_sts_unexp_error;
3466: fnd_msg_pub.count_and_get(
3467: p_count => x_msg_count,
3468: p_data => x_msg_data
3469: );
3469: );
3470:
3471: WHEN OTHERS THEN
3472: ROLLBACK TO copy_plan_pub;
3473: x_return_status := fnd_api.g_ret_sts_unexp_error;
3474: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3475: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
3476: END IF;
3477: fnd_msg_pub.count_and_get(
3483:
3484:
3485: PROCEDURE delete_plan_element(
3486: p_api_version IN NUMBER,
3487: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
3488: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
3489: p_user_name IN VARCHAR2 := NULL,
3490: p_plan_name IN VARCHAR2,
3491: p_organization_code IN VARCHAR2,
3484:
3485: PROCEDURE delete_plan_element(
3486: p_api_version IN NUMBER,
3487: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
3488: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
3489: p_user_name IN VARCHAR2 := NULL,
3490: p_plan_name IN VARCHAR2,
3491: p_organization_code IN VARCHAR2,
3492: p_element_name IN VARCHAR2,
3489: p_user_name IN VARCHAR2 := NULL,
3490: p_plan_name IN VARCHAR2,
3491: p_organization_code IN VARCHAR2,
3492: p_element_name IN VARCHAR2,
3493: p_commit IN VARCHAR2 := fnd_api.g_false,
3494: x_msg_count OUT NOCOPY NUMBER,
3495: x_msg_data OUT NOCOPY VARCHAR2,
3496: x_return_status OUT NOCOPY VARCHAR2) IS
3497:
3511:
3512: SAVEPOINT delete_plan_element_pub;
3513:
3514: -- Standard call to check for call compatibility.
3515: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version,
3516: l_api_name, g_pkg_name) THEN
3517: RAISE fnd_api.g_exc_unexpected_error;
3518: END IF;
3519:
3513:
3514: -- Standard call to check for call compatibility.
3515: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version,
3516: l_api_name, g_pkg_name) THEN
3517: RAISE fnd_api.g_exc_unexpected_error;
3518: END IF;
3519:
3520: -- Initialize message list if p_init_msg_list is set to TRUE.
3521: IF fnd_api.to_boolean(p_init_msg_list) THEN
3517: RAISE fnd_api.g_exc_unexpected_error;
3518: END IF;
3519:
3520: -- Initialize message list if p_init_msg_list is set to TRUE.
3521: IF fnd_api.to_boolean(p_init_msg_list) THEN
3522: fnd_msg_pub.initialize;
3523: END IF;
3524:
3525: -- Initialize API return status to success
3522: fnd_msg_pub.initialize;
3523: END IF;
3524:
3525: -- Initialize API return status to success
3526: x_return_status := fnd_api.g_ret_sts_success;
3527:
3528: -- *** start of logic ***
3529:
3530: l_user_id := get_user_id(p_user_name);
3530: l_user_id := get_user_id(p_user_name);
3531: IF l_user_id = -1 THEN
3532: fnd_message.set_name('QA', 'QA_API_INVALID_USER');
3533: fnd_msg_pub.add();
3534: raise fnd_api.g_exc_error;
3535: END IF;
3536:
3537: l_plan_name := upper(p_plan_name);
3538: l_plan_id := qa_plans_api.plan_id(l_plan_name);
3538: l_plan_id := qa_plans_api.plan_id(l_plan_name);
3539: IF (l_plan_id IS NULL) THEN
3540: fnd_message.set_name('QA', 'QA_API_INVALID_PLAN');
3541: fnd_msg_pub.add();
3542: RAISE fnd_api.g_exc_error;
3543: END IF;
3544:
3545: l_element_id := qa_chars_api.get_element_id(p_element_name);
3546: IF (l_element_id IS NULL) THEN
3545: l_element_id := qa_chars_api.get_element_id(p_element_name);
3546: IF (l_element_id IS NULL) THEN
3547: fnd_message.set_name('QA', 'QA_API_INVALID_ELEMENT');
3548: fnd_msg_pub.add();
3549: RAISE fnd_api.g_exc_error;
3550: END IF;
3551:
3552: IF NOT element_exists(l_plan_id, l_element_id) THEN
3553: fnd_message.set_name('QA', 'QA_API_ELEMENT_NOT_IN_PLAN');
3551:
3552: IF NOT element_exists(l_plan_id, l_element_id) THEN
3553: fnd_message.set_name('QA', 'QA_API_ELEMENT_NOT_IN_PLAN');
3554: fnd_msg_pub.add();
3555: RAISE fnd_api.g_exc_error;
3556: END IF;
3557:
3558: IF results_exist(l_plan_id, l_element_id) THEN
3559: fnd_message.set_name('QA', 'QA_RESULTS_EXIST_FOR_PLANCHAR');
3557:
3558: IF results_exist(l_plan_id, l_element_id) THEN
3559: fnd_message.set_name('QA', 'QA_RESULTS_EXIST_FOR_PLANCHAR');
3560: fnd_msg_pub.add();
3561: RAISE fnd_api.g_exc_error;
3562: END IF;
3563:
3564: delete_plan_element_values(l_plan_id, l_element_id);
3565: delete_plan_element_actions(l_plan_id, l_element_id);
3573: );
3574:
3575: EXCEPTION
3576:
3577: WHEN fnd_api.g_exc_error THEN
3578: ROLLBACK TO delete_plan_element_pub;
3579: x_return_status := fnd_api.g_ret_sts_error;
3580: fnd_msg_pub.count_and_get(
3581: p_count => x_msg_count,
3575: EXCEPTION
3576:
3577: WHEN fnd_api.g_exc_error THEN
3578: ROLLBACK TO delete_plan_element_pub;
3579: x_return_status := fnd_api.g_ret_sts_error;
3580: fnd_msg_pub.count_and_get(
3581: p_count => x_msg_count,
3582: p_data => x_msg_data
3583: );
3581: p_count => x_msg_count,
3582: p_data => x_msg_data
3583: );
3584:
3585: WHEN fnd_api.g_exc_unexpected_error THEN
3586: ROLLBACK TO delete_plan_element_pub;
3587: x_return_status := fnd_api.g_ret_sts_unexp_error;
3588: fnd_msg_pub.count_and_get(
3589: p_count => x_msg_count,
3583: );
3584:
3585: WHEN fnd_api.g_exc_unexpected_error THEN
3586: ROLLBACK TO delete_plan_element_pub;
3587: x_return_status := fnd_api.g_ret_sts_unexp_error;
3588: fnd_msg_pub.count_and_get(
3589: p_count => x_msg_count,
3590: p_data => x_msg_data
3591: );
3591: );
3592:
3593: WHEN OTHERS THEN
3594: ROLLBACK TO delete_plan_element_pub;
3595: x_return_status := fnd_api.g_ret_sts_unexp_error;
3596: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3597: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
3598: END IF;
3599: fnd_msg_pub.count_and_get(
3605:
3606:
3607: PROCEDURE delete_collection_plan(
3608: p_api_version IN NUMBER,
3609: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
3610: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
3611: p_user_name IN VARCHAR2 := NULL,
3612: p_plan_name IN VARCHAR2,
3613: p_organization_code IN VARCHAR2,
3606:
3607: PROCEDURE delete_collection_plan(
3608: p_api_version IN NUMBER,
3609: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
3610: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
3611: p_user_name IN VARCHAR2 := NULL,
3612: p_plan_name IN VARCHAR2,
3613: p_organization_code IN VARCHAR2,
3614: p_commit IN VARCHAR2 := fnd_api.g_false,
3610: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
3611: p_user_name IN VARCHAR2 := NULL,
3612: p_plan_name IN VARCHAR2,
3613: p_organization_code IN VARCHAR2,
3614: p_commit IN VARCHAR2 := fnd_api.g_false,
3615: x_msg_count OUT NOCOPY NUMBER,
3616: x_msg_data OUT NOCOPY VARCHAR2,
3617: x_return_status OUT NOCOPY VARCHAR2) IS
3618:
3630:
3631: SAVEPOINT delete_plan_pub;
3632:
3633: -- Standard call to check for call compatibility.
3634: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version,
3635: l_api_name, g_pkg_name) THEN
3636: RAISE fnd_api.g_exc_unexpected_error;
3637: END IF;
3638:
3632:
3633: -- Standard call to check for call compatibility.
3634: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version,
3635: l_api_name, g_pkg_name) THEN
3636: RAISE fnd_api.g_exc_unexpected_error;
3637: END IF;
3638:
3639: -- Initialize message list if p_init_msg_list is set to TRUE.
3640: IF fnd_api.to_boolean(p_init_msg_list) THEN
3636: RAISE fnd_api.g_exc_unexpected_error;
3637: END IF;
3638:
3639: -- Initialize message list if p_init_msg_list is set to TRUE.
3640: IF fnd_api.to_boolean(p_init_msg_list) THEN
3641: fnd_msg_pub.initialize;
3642: END IF;
3643:
3644: -- Initialize API return status to success
3641: fnd_msg_pub.initialize;
3642: END IF;
3643:
3644: -- Initialize API return status to success
3645: x_return_status := fnd_api.g_ret_sts_success;
3646:
3647:
3648: -- *** start of logic ***
3649:
3650: l_user_id := get_user_id(p_user_name);
3651: IF l_user_id = -1 THEN
3652: fnd_message.set_name('QA', 'QA_API_INVALID_USER');
3653: fnd_msg_pub.add();
3654: raise fnd_api.g_exc_error;
3655: END IF;
3656:
3657: l_plan_name := upper(p_plan_name);
3658: l_plan_id := qa_plans_api.plan_id(l_plan_name);
3658: l_plan_id := qa_plans_api.plan_id(l_plan_name);
3659: IF l_plan_id IS NULL THEN
3660: fnd_message.set_name('QA', 'QA_API_INVALID_PLAN');
3661: fnd_msg_pub.add();
3662: raise fnd_api.g_exc_error;
3663: END IF;
3664:
3665: IF results_exist(l_plan_id) THEN
3666: fnd_message.set_name('QA', 'QA_CANT_DELETE_QPLAN');
3664:
3665: IF results_exist(l_plan_id) THEN
3666: fnd_message.set_name('QA', 'QA_CANT_DELETE_QPLAN');
3667: fnd_msg_pub.add();
3668: RAISE fnd_api.g_exc_error;
3669: END IF;
3670:
3671: delete_plan_elements(l_plan_id);
3672: delete_plan_values(l_plan_id);
3681: );
3682:
3683: EXCEPTION
3684:
3685: WHEN fnd_api.g_exc_error THEN
3686: ROLLBACK TO delete_plan_pub;
3687: x_return_status := fnd_api.g_ret_sts_error;
3688: fnd_msg_pub.count_and_get(
3689: p_count => x_msg_count,
3683: EXCEPTION
3684:
3685: WHEN fnd_api.g_exc_error THEN
3686: ROLLBACK TO delete_plan_pub;
3687: x_return_status := fnd_api.g_ret_sts_error;
3688: fnd_msg_pub.count_and_get(
3689: p_count => x_msg_count,
3690: p_data => x_msg_data
3691: );
3689: p_count => x_msg_count,
3690: p_data => x_msg_data
3691: );
3692:
3693: WHEN fnd_api.g_exc_unexpected_error THEN
3694: ROLLBACK TO delete_plan_pub;
3695: x_return_status := fnd_api.g_ret_sts_unexp_error;
3696: fnd_msg_pub.count_and_get(
3697: p_count => x_msg_count,
3691: );
3692:
3693: WHEN fnd_api.g_exc_unexpected_error THEN
3694: ROLLBACK TO delete_plan_pub;
3695: x_return_status := fnd_api.g_ret_sts_unexp_error;
3696: fnd_msg_pub.count_and_get(
3697: p_count => x_msg_count,
3698: p_data => x_msg_data
3699: );
3699: );
3700:
3701: WHEN OTHERS THEN
3702: ROLLBACK TO delete_plan_pub;
3703: x_return_status := fnd_api.g_ret_sts_unexp_error;
3704: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3705: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
3706: END IF;
3707: fnd_msg_pub.count_and_get(