[Home] [Help]
265: BEGIN
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:
446: dummy := qa_char_indexes_pkg.disable_index(p_char_id);
447: fnd_message.set_name('QA', 'QA_CHAR_REGENERATE_INDEX');
448: fnd_message.set_token('ELEMENT_NAME',
449: qa_chars_api.get_element_name(p_char_id));
450: fnd_msg_pub.add;
451: END disable_index_private;
452:
453:
454: --
739: IF (item_flag = 2) THEN
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
745: END IF;
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
751: END IF;
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
757: END IF;
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
763: END IF;
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
769: END IF;
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;
781: IF (comp_item_flag = 2) THEN
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
787: END IF;
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
793: END IF;
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
799: END IF;
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
805: END IF;
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;
818: IF (job_name_flag = 2 AND wip_line_flag = 2) THEN
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;
841: AND (scrap_op_seq_flag = 2) THEN
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;
861: AND (scrap_op_seq_flag = 2) THEN
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;
874: IF (subinv_flag = 2) THEN
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;
886: IF (comp_subinv_flag = 2) THEN
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;
899: IF (po_number_flag = 2) THEN
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
905: END IF;
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;
918: IF (so_number_flag = 2) THEN
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;
928: IF (project_num_flag = 2) THEN
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;
943: fnd_message.set_token('CHILD_ELEMENT',
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:
955: fnd_message.set_token('CHILD_ELEMENT',
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:
967: fnd_message.set_token('CHILD_ELEMENT',
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:
979: fnd_message.set_token('CHILD_ELEMENT',
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:
991: fnd_message.set_token('CHILD_ELEMENT',
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:
1010: l_request_id NUMBER;
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);
1270:
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;
1582: result_column_names(i) := suggest_result_column(p_copy_to_plan_id,
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;
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
2684: x_return_status := fnd_api.g_ret_sts_success;
2695:
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);
2702:
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);
2709:
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
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');
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;
2727: -- generate an error.
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
2733: END IF;
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);
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: );
2827:
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: );
2835:
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(
2843: p_count => x_msg_count,
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(
2843: p_count => x_msg_count,
2844: p_data => x_msg_data
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(
2843: p_count => x_msg_count,
2844: p_data => x_msg_data
2845: );
2846:
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
2955: x_return_status := fnd_api.g_ret_sts_success;
2958:
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));
2965:
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);
2972:
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
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');
2982: fnd_msg_pub.add();
2983: raise fnd_api.g_exc_error;
2984: END IF;
2985:
2986: --
3012: l_prompt_sequence := get_next_sequence(l_plan_id);
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;
3048: END IF;
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;
3073:
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
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');
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
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');
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:
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: );
3199:
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: );
3207:
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(
3215: p_count => x_msg_count,
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(
3215: p_count => x_msg_count,
3216: p_data => x_msg_data
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(
3215: p_count => x_msg_count,
3216: p_data => x_msg_data
3217: );
3218:
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
3259: x_return_status := fnd_api.g_ret_sts_success;
3262:
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);
3270: l_plan_name := upper(p_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);
3282: -- bso Fri Dec 3 21:54:48 PST 2004
3283: --
3284: init_result_column_array(-1);
3285:
3286: fnd_msg_pub.count_and_get(
3287: p_count => x_msg_count,
3288: p_data => x_msg_data
3289: );
3290:
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: );
3300:
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: );
3308:
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(
3316: p_count => x_msg_count,
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(
3316: p_count => x_msg_count,
3317: p_data => x_msg_data
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(
3316: p_count => x_msg_count,
3317: p_data => x_msg_data
3318: );
3319:
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
3367: x_return_status := fnd_api.g_ret_sts_success;
3370:
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: --
3384: IF (l_from_plan_id IS NULL) THEN
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:
3392:
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);
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
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,
3444: -- bso Fri Dec 3 22:06:09 PST 2004
3445: --
3446: init_result_column_array(-1);
3447:
3448: fnd_msg_pub.count_and_get(
3449: p_count => x_msg_count,
3450: p_data => x_msg_data
3451: );
3452:
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: );
3462:
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: );
3470:
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(
3478: p_count => x_msg_count,
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(
3478: p_count => x_msg_count,
3479: p_data => x_msg_data
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(
3478: p_count => x_msg_count,
3479: p_data => x_msg_data
3480: );
3481:
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
3526: x_return_status := fnd_api.g_ret_sts_success;
3529:
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);
3537: l_plan_name := upper(p_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);
3544:
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
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');
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
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');
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);
3566: delete_plan_element(l_plan_id, l_element_id);
3567:
3568: complete_plan_private(l_plan_id, l_plan_name, p_commit, l_user_id);
3569:
3570: fnd_msg_pub.count_and_get(
3571: p_count => x_msg_count,
3572: p_data => x_msg_data
3573: );
3574:
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: );
3584:
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: );
3592:
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(
3600: p_count => x_msg_count,
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(
3600: p_count => x_msg_count,
3601: p_data => x_msg_data
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(
3600: p_count => x_msg_count,
3601: p_data => x_msg_data
3602: );
3603:
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
3645: x_return_status := fnd_api.g_ret_sts_success;
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);
3657: l_plan_name := upper(p_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
3663: END IF;
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);
3674: delete_plan_actions(l_plan_id);
3675: delete_plan_header(l_plan_id);
3676: delete_plan_private(l_plan_name, p_commit, l_user_id);
3677:
3678: fnd_msg_pub.count_and_get(
3679: p_count => x_msg_count,
3680: p_data => x_msg_data
3681: );
3682:
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: );
3692:
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: );
3700:
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(
3708: p_count => x_msg_count,
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(
3708: p_count => x_msg_count,
3709: p_data => x_msg_data
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(
3708: p_count => x_msg_count,
3709: p_data => x_msg_data
3710: );
3711: