1: PACKAGE BODY INV_EBI_CHANGE_ORDER_HELPER AS
2: /* $Header: INVEIHCOB.pls 120.32.12010000.9 2009/02/23 16:24:18 prepatel ship $ */
3:
4: /************************************************************************************
5: -- API name : set_assign_item
127: END IF;
128:
129: x_return_status := FND_API.g_ret_sts_unexp_error;
130: IF (x_msg_data IS NOT NULL) THEN
131: x_msg_data := x_msg_data||' ->INV_EBI_CHANGE_ORDER_HELPER.get_change_order_uda ';
132: ELSE
133: x_msg_data := SQLERRM||'INV_EBI_CHANGE_ORDER_HELPER.get_change_order_uda ';
134: END IF;
135: END get_change_order_uda;
129: x_return_status := FND_API.g_ret_sts_unexp_error;
130: IF (x_msg_data IS NOT NULL) THEN
131: x_msg_data := x_msg_data||' ->INV_EBI_CHANGE_ORDER_HELPER.get_change_order_uda ';
132: ELSE
133: x_msg_data := SQLERRM||'INV_EBI_CHANGE_ORDER_HELPER.get_change_order_uda ';
134: END IF;
135: END get_change_order_uda;
136:
137: /************************************************************************************
279: END IF;
280:
281: x_return_status := FND_API.g_ret_sts_unexp_error;
282: IF (x_msg_data IS NOT NULL) THEN
283: x_msg_data := x_msg_data||' ->INV_EBI_CHANGE_ORDER_HELPER.get_structure_header_uda ';
284: ELSE
285: x_msg_data := SQLERRM||'INV_EBI_CHANGE_ORDER_HELPER.get_structure_header_uda ';
286: END IF;
287: END get_structure_header_uda;
281: x_return_status := FND_API.g_ret_sts_unexp_error;
282: IF (x_msg_data IS NOT NULL) THEN
283: x_msg_data := x_msg_data||' ->INV_EBI_CHANGE_ORDER_HELPER.get_structure_header_uda ';
284: ELSE
285: x_msg_data := SQLERRM||'INV_EBI_CHANGE_ORDER_HELPER.get_structure_header_uda ';
286: END IF;
287: END get_structure_header_uda;
288:
289: /************************************************************************************
467: END IF;
468:
469: x_return_status := FND_API.g_ret_sts_unexp_error;
470: IF (x_msg_data IS NOT NULL) THEN
471: x_msg_data := x_msg_data||' ->INV_EBI_CHANGE_ORDER_HELPER.get_component_item_uda ';
472: ELSE
473: x_msg_data := SQLERRM||'INV_EBI_CHANGE_ORDER_HELPER.get_component_item_uda ';
474: END IF;
475: END get_component_item_uda;
469: x_return_status := FND_API.g_ret_sts_unexp_error;
470: IF (x_msg_data IS NOT NULL) THEN
471: x_msg_data := x_msg_data||' ->INV_EBI_CHANGE_ORDER_HELPER.get_component_item_uda ';
472: ELSE
473: x_msg_data := SQLERRM||'INV_EBI_CHANGE_ORDER_HELPER.get_component_item_uda ';
474: END IF;
475: END get_component_item_uda;
476: /************************************************************************************
477: -- API name : prepare_substitute_components
588: l_output_status inv_ebi_output_status;
589: BEGIN
590: l_output_status := inv_ebi_output_status(fnd_api.g_ret_sts_success,NULL,NULL,NULL);
591: x_out := inv_ebi_eco_output_obj(NULL,NULL,NULL,NULL,l_output_status,NULL,NULL);
592: INV_EBI_UTIL.debug_line('STEP: 10 START INSIDE INV_EBI_CHANGE_ORDER_HELPER.prepare_substitute_components');
593: OPEN c_comp_sequence_id;
594: FETCH c_comp_sequence_id INTO l_component_sequence_id;
595: CLOSE c_comp_sequence_id;
596:
717: END LOOP;
718: END IF;
719:
720: x_component_item := l_component_item;
721: INV_EBI_UTIL.debug_line('STEP: 20 END INSIDE INV_EBI_CHANGE_ORDER_HELPER.prepare_substitute_components');
722:
723: EXCEPTION
724: WHEN FND_API.g_exc_unexpected_error THEN
725: IF c_Merged_Substitute_Comp%ISOPEN THEN
744: CLOSE c_copied_substitute_comps;
745: END IF;
746: x_out.output_status.return_status := FND_API.g_ret_sts_unexp_error;
747: IF (x_out.output_status.msg_data IS NOT NULL) THEN
748: x_out.output_status.msg_data := x_out.output_status.msg_data||' ->INV_EBI_CHANGE_ORDER_HELPER.prepare_substitute_components ';
749: ELSE
750: x_out.output_status.msg_data := SQLERRM||'INV_EBI_CHANGE_ORDER_HELPER.prepare_substitute_components ';
751: END IF;
752: END prepare_substitute_components;
746: x_out.output_status.return_status := FND_API.g_ret_sts_unexp_error;
747: IF (x_out.output_status.msg_data IS NOT NULL) THEN
748: x_out.output_status.msg_data := x_out.output_status.msg_data||' ->INV_EBI_CHANGE_ORDER_HELPER.prepare_substitute_components ';
749: ELSE
750: x_out.output_status.msg_data := SQLERRM||'INV_EBI_CHANGE_ORDER_HELPER.prepare_substitute_components ';
751: END IF;
752: END prepare_substitute_components;
753:
754: /************************************************************************************
856:
857: BEGIN
858: l_output_status := inv_ebi_output_status(fnd_api.g_ret_sts_success,NULL,NULL,NULL);
859: x_out := inv_ebi_eco_output_obj(NULL,NULL,NULL,NULL,l_output_status,NULL,NULL);
860: INV_EBI_UTIL.debug_line('STEP: 10 START INSIDE INV_EBI_CHANGE_ORDER_HELPER.prepare_reference_designators');
861: OPEN c_comp_sequence_id;
862: FETCH c_comp_sequence_id INTO l_component_sequence_id;
863: CLOSE c_comp_sequence_id;
864:
976: END LOOP;
977: END IF;
978:
979: x_component_item := l_component_item;
980: INV_EBI_UTIL.debug_line('STEP: 20 END INSIDE INV_EBI_CHANGE_ORDER_HELPER.prepare_reference_designators');
981:
982: EXCEPTION
983: WHEN FND_API.g_exc_unexpected_error THEN
984: IF c_merged_ref_designators%ISOPEN THEN
1003: CLOSE c_copied_ref_designators;
1004: END IF;
1005: x_out.output_status.return_status := FND_API.g_ret_sts_unexp_error;
1006: IF (x_out.output_status.msg_data IS NOT NULL) THEN
1007: x_out.output_status.msg_data := x_out.output_status.msg_data||' ->INV_EBI_CHANGE_ORDER_HELPER.prepare_reference_designators ';
1008: ELSE
1009: x_out.output_status.msg_data := SQLERRM||'INV_EBI_CHANGE_ORDER_HELPER.prepare_reference_designators ';
1010: END IF;
1011: END prepare_reference_designators;
1005: x_out.output_status.return_status := FND_API.g_ret_sts_unexp_error;
1006: IF (x_out.output_status.msg_data IS NOT NULL) THEN
1007: x_out.output_status.msg_data := x_out.output_status.msg_data||' ->INV_EBI_CHANGE_ORDER_HELPER.prepare_reference_designators ';
1008: ELSE
1009: x_out.output_status.msg_data := SQLERRM||'INV_EBI_CHANGE_ORDER_HELPER.prepare_reference_designators ';
1010: END IF;
1011: END prepare_reference_designators;
1012:
1013:
1236: l_output_status inv_ebi_output_status;
1237: BEGIN
1238: l_output_status := inv_ebi_output_status(fnd_api.g_ret_sts_success,NULL,NULL,NULL);
1239: x_out := inv_ebi_eco_output_obj(NULL,NULL,NULL,NULL,l_output_status,NULL,NULL);
1240: INV_EBI_UTIL.debug_line('STEP: 10 START INSIDE INV_EBI_CHANGE_ORDER_HELPER.prepare_component_items');
1241: IF (bom_eamutil.enabled = 'Y'
1242: AND bom_eamutil.serial_effective_item (item_id => p_from_item_id,
1243: org_id => p_reference_org_id
1244: ) = 'Y'
1465: CLOSE c_merged_component;
1466: END IF;
1467: END LOOP;
1468: END IF;
1469: INV_EBI_UTIL.debug_line('STEP: 20 END INSIDE INV_EBI_CHANGE_ORDER_HELPER.prepare_component_items');
1470: x_revised_item := l_revised_item;
1471:
1472:
1473: EXCEPTION
1494: CLOSE c_merged_component;
1495: END IF;
1496: x_out.output_status.return_status := FND_API.g_ret_sts_unexp_error;
1497: IF (x_out.output_status.msg_data IS NOT NULL) THEN
1498: x_out.output_status.msg_data := x_out.output_status.msg_data||' ->INV_EBI_CHANGE_ORDER_HELPER.prepare_component_items ';
1499: ELSE
1500: x_out.output_status.msg_data := SQLERRM||'INV_EBI_CHANGE_ORDER_HELPER.prepare_component_items ';
1501: END IF;
1502: END prepare_component_items;
1496: x_out.output_status.return_status := FND_API.g_ret_sts_unexp_error;
1497: IF (x_out.output_status.msg_data IS NOT NULL) THEN
1498: x_out.output_status.msg_data := x_out.output_status.msg_data||' ->INV_EBI_CHANGE_ORDER_HELPER.prepare_component_items ';
1499: ELSE
1500: x_out.output_status.msg_data := SQLERRM||'INV_EBI_CHANGE_ORDER_HELPER.prepare_component_items ';
1501: END IF;
1502: END prepare_component_items;
1503:
1504: /************************************************************************************
1695: BEGIN
1696: SAVEPOINT process_replicate_bom_save_pnt;
1697: l_output_status := inv_ebi_output_status(fnd_api.g_ret_sts_success,NULL,NULL,NULL);
1698: x_out := inv_ebi_eco_output_obj(NULL,NULL,NULL,NULL,l_output_status,NULL,NULL);
1699: INV_EBI_UTIL.debug_line('STEP: 10 START INSIDE INV_EBI_CHANGE_ORDER_HELPER.process_replicate_bom');
1700: l_context_org_code:= p_eco_obj.eco_change_order_type.organization_code;
1701: l_eco_obj := p_eco_obj;
1702:
1703:
1842: END IF;
1843: END IF;
1844: END LOOP;
1845: END IF;
1846: INV_EBI_UTIL.debug_line('STEP: 20 END INSIDE INV_EBI_CHANGE_ORDER_HELPER.process_replicate_bom');
1847: x_eco_obj := l_eco_obj;
1848:
1849:
1850: EXCEPTION
1861: WHEN OTHERS THEN
1862: ROLLBACK TO process_replicate_bom_save_pnt;
1863: x_out.output_status.return_status := FND_API.g_ret_sts_unexp_error;
1864: IF (x_out.output_status.msg_data IS NOT NULL) THEN
1865: x_out.output_status.msg_data := x_out.output_status.msg_data||' ->INV_EBI_CHANGE_ORDER_HELPER.process_replicate_bom ';
1866: ELSE
1867: x_out.output_status.msg_data := SQLERRM||'INV_EBI_CHANGE_ORDER_HELPER.process_replicate_bom ';
1868: END IF;
1869: END process_replicate_bom;
1863: x_out.output_status.return_status := FND_API.g_ret_sts_unexp_error;
1864: IF (x_out.output_status.msg_data IS NOT NULL) THEN
1865: x_out.output_status.msg_data := x_out.output_status.msg_data||' ->INV_EBI_CHANGE_ORDER_HELPER.process_replicate_bom ';
1866: ELSE
1867: x_out.output_status.msg_data := SQLERRM||'INV_EBI_CHANGE_ORDER_HELPER.process_replicate_bom ';
1868: END IF;
1869: END process_replicate_bom;
1870:
1871: /************************************************************************************
1987: WHEN OTHERS THEN
1988: ROLLBACK TO inv_ebi_process_uda_save_pnt;
1989: x_uda_output_obj.output_status.return_status := FND_API.g_ret_sts_unexp_error;
1990: IF (x_uda_output_obj.output_status.msg_data IS NOT NULL) THEN
1991: x_uda_output_obj.output_status.msg_data := x_uda_output_obj.output_status.msg_data ||' -> INV_EBI_CHANGE_ORDER_HELPER.process_uda ';
1992: ELSE
1993: x_uda_output_obj.output_status.msg_data := SQLERRM||' at INV_EBI_CHANGE_ORDER_HELPER.process_uda ';
1994: END IF;
1995: END process_uda;
1989: x_uda_output_obj.output_status.return_status := FND_API.g_ret_sts_unexp_error;
1990: IF (x_uda_output_obj.output_status.msg_data IS NOT NULL) THEN
1991: x_uda_output_obj.output_status.msg_data := x_uda_output_obj.output_status.msg_data ||' -> INV_EBI_CHANGE_ORDER_HELPER.process_uda ';
1992: ELSE
1993: x_uda_output_obj.output_status.msg_data := SQLERRM||' at INV_EBI_CHANGE_ORDER_HELPER.process_uda ';
1994: END IF;
1995: END process_uda;
1996: /************************************************************************************
1997: -- API name : process_change_order_uda
2143: WHEN OTHERS THEN
2144: ROLLBACK TO inv_ebi_chg_order_uda_save_pnt;
2145: x_out.output_status.return_status := FND_API.g_ret_sts_unexp_error;
2146: IF (x_out.output_status.msg_data IS NOT NULL) THEN
2147: x_out.output_status.msg_data := x_out.output_status.msg_data ||' -> INV_EBI_CHANGE_ORDER_HELPER.process_change_order_uda';
2148: ELSE
2149: x_out.output_status.msg_data := SQLERRM||' at INV_EBI_CHANGE_ORDER_HELPER.process_change_order_uda';
2150: END IF;
2151: END process_change_order_uda;
2145: x_out.output_status.return_status := FND_API.g_ret_sts_unexp_error;
2146: IF (x_out.output_status.msg_data IS NOT NULL) THEN
2147: x_out.output_status.msg_data := x_out.output_status.msg_data ||' -> INV_EBI_CHANGE_ORDER_HELPER.process_change_order_uda';
2148: ELSE
2149: x_out.output_status.msg_data := SQLERRM||' at INV_EBI_CHANGE_ORDER_HELPER.process_change_order_uda';
2150: END IF;
2151: END process_change_order_uda;
2152:
2153: /*******************************************************************************
2626: FND_MSG_PUB.add;
2627: RAISE FND_API.g_exc_error;
2628: END IF;
2629: END IF;
2630: INV_EBI_UTIL.debug_line('STEP: 20 END INSIDE INV_EBI_CHANGE_ORDER_HELPER.process_assign_items');
2631: EXCEPTION
2632: WHEN FND_API.g_exc_unexpected_error THEN
2633: ROLLBACK TO inv_ebi_assign_item_save_pnt;
2634: x_return_status := FND_API.g_ret_sts_unexp_error;
2664: IF c_master_item_rev%ISOPEN THEN
2665: CLOSE c_master_item_rev;
2666: END IF;
2667: IF (x_msg_data IS NOT NULL) THEN
2668: x_msg_data := x_msg_data||' -> INV_EBI_CHANGE_ORDER_HELPER.process_assign_items ';
2669: ELSE
2670: x_msg_data := SQLERRM||' INV_EBI_CHANGE_ORDER_HELPER.process_assign_items ';
2671: END IF;
2672: END process_assign_items;
2666: END IF;
2667: IF (x_msg_data IS NOT NULL) THEN
2668: x_msg_data := x_msg_data||' -> INV_EBI_CHANGE_ORDER_HELPER.process_assign_items ';
2669: ELSE
2670: x_msg_data := SQLERRM||' INV_EBI_CHANGE_ORDER_HELPER.process_assign_items ';
2671: END IF;
2672: END process_assign_items;
2673:
2674: /************************************************************************************
2784: l_status_name VARCHAR2(30);
2785:
2786: BEGIN
2787: SAVEPOINT inv_ebi_proc_eco_save_pnt;
2788: INV_EBI_UTIL.debug_line('STEP: 10 START INSIDE INV_EBI_CHANGE_ORDER_HELPER.process_eco');
2789:
2790: l_output_status := inv_ebi_output_status(fnd_api.g_ret_sts_success,NULL,NULL,NULL);
2791: x_out := inv_ebi_eco_output_obj(NULL,NULL,NULL,NULL,l_output_status,NULL,NULL);
2792:
3353:
3354: IF FND_API.to_boolean( p_commit ) THEN
3355: COMMIT;
3356: END IF;
3357: INV_EBI_UTIL.debug_line('STEP: 40 END INSIDE INV_EBI_CHANGE_ORDER_HELPER.process_eco');
3358: EXCEPTION
3359: WHEN FND_API.g_exc_unexpected_error THEN
3360: ROLLBACK TO inv_ebi_proc_eco_save_pnt;
3361: x_out.output_status.return_status := FND_API.g_ret_sts_unexp_error;
3369: WHEN OTHERS THEN
3370: ROLLBACK TO inv_ebi_proc_eco_save_pnt;
3371: x_out.output_status.return_status := FND_API.g_ret_sts_unexp_error;
3372: IF (x_out.output_status.msg_data IS NOT NULL) THEN
3373: x_out.output_status.msg_data := x_out.output_status.msg_data||' -> INV_EBI_CHANGE_ORDER_HELPER.process_eco ';
3374: ELSE
3375: x_out.output_status.msg_data := SQLERRM||' INV_EBI_CHANGE_ORDER_HELPER.process_eco ';
3376: END IF;
3377: END process_eco;
3371: x_out.output_status.return_status := FND_API.g_ret_sts_unexp_error;
3372: IF (x_out.output_status.msg_data IS NOT NULL) THEN
3373: x_out.output_status.msg_data := x_out.output_status.msg_data||' -> INV_EBI_CHANGE_ORDER_HELPER.process_eco ';
3374: ELSE
3375: x_out.output_status.msg_data := SQLERRM||' INV_EBI_CHANGE_ORDER_HELPER.process_eco ';
3376: END IF;
3377: END process_eco;
3378:
3379: /************************************************************************************
3543: l_common_sub_comps c_common_sub_comps%ROWTYPE;
3544: BEGIN
3545: SAVEPOINT inv_ebi_comm_comp_save_pnt;
3546: x_return_status := FND_API.G_RET_STS_SUCCESS;
3547: INV_EBI_UTIL.debug_line('STEP: 10 START INSIDE INV_EBI_CHANGE_ORDER_HELPER.process_common_comps');
3548: SELECT
3549: bom_item_type,
3550: base_item_id,
3551: replenish_to_order_flag,
3613: RAISE FND_API.g_exc_unexpected_error;
3614: END IF;
3615: END LOOP;
3616: CLOSE c_common_sub_comps ;
3617: INV_EBI_UTIL.debug_line('STEP: 20 END INSIDE INV_EBI_CHANGE_ORDER_HELPER.process_common_comps');
3618: EXCEPTION
3619: WHEN FND_API.g_exc_unexpected_error THEN
3620: ROLLBACK TO inv_ebi_comm_comp_save_pnt;
3621: IF (c_common_comps%ISOPEN) THEN
3641: CLOSE c_common_sub_comps;
3642: END IF;
3643: x_return_status := FND_API.g_ret_sts_unexp_error;
3644: IF (x_msg_data IS NOT NULL) THEN
3645: x_msg_data := x_msg_data||' -> INV_EBI_CHANGE_ORDER_HELPER.process_common_comps ';
3646: ELSE
3647: x_msg_data := SQLERRM||' INV_EBI_CHANGE_ORDER_HELPER.process_common_comps ';
3648: END IF;
3649: END process_common_comps;
3643: x_return_status := FND_API.g_ret_sts_unexp_error;
3644: IF (x_msg_data IS NOT NULL) THEN
3645: x_msg_data := x_msg_data||' -> INV_EBI_CHANGE_ORDER_HELPER.process_common_comps ';
3646: ELSE
3647: x_msg_data := SQLERRM||' INV_EBI_CHANGE_ORDER_HELPER.process_common_comps ';
3648: END IF;
3649: END process_common_comps;
3650:
3651:
3678:
3679: BEGIN
3680: SAVEPOINT inv_ebi_comm_bom_save_pnt;
3681: x_return_status := FND_API.G_RET_STS_SUCCESS;
3682: INV_EBI_UTIL.debug_line('STEP: 10 START INSIDE INV_EBI_CHANGE_ORDER_HELPER.process_common_bom');
3683: l_src_organization_id := INV_EBI_ITEM_HELPER.get_organization_id(
3684: p_organization_code => p_common_organization_code
3685: );
3686: l_src_assembly_item_id := INV_EBI_ITEM_HELPER.get_inventory_item_id (
3720:
3721: IF (x_return_status <> FND_API.g_ret_sts_success) THEN
3722: RAISE FND_API.g_exc_unexpected_error;
3723: END IF;
3724: INV_EBI_UTIL.debug_line('STEP: 20 END INSIDE INV_EBI_CHANGE_ORDER_HELPER.process_common_bom');
3725: EXCEPTION
3726: WHEN FND_API.g_exc_unexpected_error THEN
3727: ROLLBACK TO inv_ebi_comm_bom_save_pnt;
3728: x_return_status := FND_API.g_ret_sts_unexp_error;
3746: WHEN OTHERS THEN
3747: ROLLBACK TO inv_ebi_comm_bom_save_pnt;
3748: x_return_status := FND_API.g_ret_sts_unexp_error;
3749: IF (x_msg_data IS NOT NULL) THEN
3750: x_msg_data := x_msg_data ||' -> INV_EBI_CHANGE_ORDER_HELPER.process_common_bom ';
3751: ELSE
3752: x_msg_data := SQLERRM||' INV_EBI_CHANGE_ORDER_HELPER.process_common_bom ';
3753: END IF;
3754: END process_common_bom;
3748: x_return_status := FND_API.g_ret_sts_unexp_error;
3749: IF (x_msg_data IS NOT NULL) THEN
3750: x_msg_data := x_msg_data ||' -> INV_EBI_CHANGE_ORDER_HELPER.process_common_bom ';
3751: ELSE
3752: x_msg_data := SQLERRM||' INV_EBI_CHANGE_ORDER_HELPER.process_common_bom ';
3753: END IF;
3754: END process_common_bom;
3755:
3756: /************************************************************************************
3820: EXCEPTION
3821: WHEN OTHERS THEN
3822: x_return_status := FND_API.g_ret_sts_unexp_error;
3823: IF (x_msg_data IS NOT NULL) THEN
3824: x_msg_data := x_msg_data ||' -> INV_EBI_CHANGE_ORDER_HELPER.get_common_bom_orgs ';
3825: ELSE
3826: x_msg_data := SQLERRM||' INV_EBI_CHANGE_ORDER_HELPER.get_common_bom_orgs ';
3827: END IF;
3828: END get_common_bom_orgs;
3822: x_return_status := FND_API.g_ret_sts_unexp_error;
3823: IF (x_msg_data IS NOT NULL) THEN
3824: x_msg_data := x_msg_data ||' -> INV_EBI_CHANGE_ORDER_HELPER.get_common_bom_orgs ';
3825: ELSE
3826: x_msg_data := SQLERRM||' INV_EBI_CHANGE_ORDER_HELPER.get_common_bom_orgs ';
3827: END IF;
3828: END get_common_bom_orgs;
3829:
3830: /************************************************************************************
3920: WHEN OTHERS THEN
3921: ROLLBACK TO inv_ebi_common_orgs_save_pnt;
3922: x_out.output_status.return_status := FND_API.g_ret_sts_unexp_error;
3923: IF (x_out.output_status.msg_data IS NOT NULL) THEN
3924: x_out.output_status.msg_data := x_out.output_status.msg_data||' -> INV_EBI_CHANGE_ORDER_HELPER.process_common_bom_orgs ';
3925: ELSE
3926: x_out.output_status.msg_data := SQLERRM||' INV_EBI_CHANGE_ORDER_HELPER.process_common_bom_orgs ';
3927: END IF;
3928: END process_common_bom_orgs;
3922: x_out.output_status.return_status := FND_API.g_ret_sts_unexp_error;
3923: IF (x_out.output_status.msg_data IS NOT NULL) THEN
3924: x_out.output_status.msg_data := x_out.output_status.msg_data||' -> INV_EBI_CHANGE_ORDER_HELPER.process_common_bom_orgs ';
3925: ELSE
3926: x_out.output_status.msg_data := SQLERRM||' INV_EBI_CHANGE_ORDER_HELPER.process_common_bom_orgs ';
3927: END IF;
3928: END process_common_bom_orgs;
3929:
3930:
3959: SAVEPOINT inv_ebi_proc_bom_save_pnt;
3960:
3961: l_output_status := inv_ebi_output_status(fnd_api.g_ret_sts_success,NULL,NULL,NULL);
3962: x_out := inv_ebi_eco_output_obj(NULL,NULL,NULL,NULL,l_output_status,NULL,NULL);
3963: INV_EBI_UTIL.debug_line('STEP: 10 START INSIDE INV_EBI_CHANGE_ORDER_HELPER.process_structure_header');
3964:
3965: l_is_bom_exists := is_bom_exists(
3966: p_item_number => p_assembly_item_name,
3967: p_organization_code => p_organization_code,
4074: END IF;
4075: IF FND_API.to_boolean( p_commit ) THEN
4076: COMMIT;
4077: END IF;
4078: INV_EBI_UTIL.debug_line('STEP: 40 END INSIDE INV_EBI_CHANGE_ORDER_HELPER.process_structure_header');
4079: EXCEPTION
4080: WHEN FND_API.g_exc_unexpected_error THEN
4081: ROLLBACK TO inv_ebi_proc_bom_save_pnt;
4082: x_out.output_status.return_status := FND_API.g_ret_sts_error;
4090: WHEN OTHERS THEN
4091: ROLLBACK TO inv_ebi_proc_bom_save_pnt;
4092: x_out.output_status.return_status := FND_API.g_ret_sts_unexp_error;
4093: IF (x_out.output_status.msg_data IS NOT NULL) THEN
4094: x_out.output_status.msg_data := x_out.output_status.msg_data||' -> INV_EBI_CHANGE_ORDER_HELPER.process_structure_header ';
4095: ELSE
4096: x_out.output_status.msg_data := SQLERRM||' INV_EBI_CHANGE_ORDER_HELPER.process_structure_header ';
4097: END IF;
4098: END process_structure_header;
4092: x_out.output_status.return_status := FND_API.g_ret_sts_unexp_error;
4093: IF (x_out.output_status.msg_data IS NOT NULL) THEN
4094: x_out.output_status.msg_data := x_out.output_status.msg_data||' -> INV_EBI_CHANGE_ORDER_HELPER.process_structure_header ';
4095: ELSE
4096: x_out.output_status.msg_data := SQLERRM||' INV_EBI_CHANGE_ORDER_HELPER.process_structure_header ';
4097: END IF;
4098: END process_structure_header;
4099:
4100: /************************************************************************************
5060: END IF;
5061: WHEN OTHERS THEN
5062: x_return_status := FND_API.g_ret_sts_error;
5063: IF (x_msg_data IS NOT NULL) THEN
5064: x_msg_data := x_msg_data ||' -> at INV_EBI_CHANGE_ORDER_HELPER.get_eco';
5065: ELSE
5066: x_msg_data := SQLERRM||' at INV_EBI_CHANGE_ORDER_HELPER.get_eco ';
5067: END IF;
5068: END get_eco;
5062: x_return_status := FND_API.g_ret_sts_error;
5063: IF (x_msg_data IS NOT NULL) THEN
5064: x_msg_data := x_msg_data ||' -> at INV_EBI_CHANGE_ORDER_HELPER.get_eco';
5065: ELSE
5066: x_msg_data := SQLERRM||' at INV_EBI_CHANGE_ORDER_HELPER.get_eco ';
5067: END IF;
5068: END get_eco;
5069:
5070: /************************************************************************************
5193: );
5194: x_msg_data := x_msg_data || l_msg_data ||' , ' ;
5195: WHEN OTHERS THEN
5196: x_return_status := FND_API.g_ret_sts_error;
5197: x_msg_data := SQLERRM ||' at INV_EBI_CHANGE_ORDER_HELPER.parse_and_get_eco';
5198: END;
5199: END LOOP;
5200: END IF;
5201:
5227: );
5228: x_msg_data := x_msg_data || l_msg_data ||' , ' ;
5229: WHEN OTHERS THEN
5230: x_return_status := FND_API.g_ret_sts_error;
5231: x_msg_data := SQLERRM ||' at INV_EBI_CHANGE_ORDER_HELPER.parse_and_get_eco';
5232: END;
5233: END LOOP;
5234: END IF;
5235:
5295: );
5296: x_msg_data := x_msg_data || l_msg_data ;
5297: WHEN OTHERS THEN
5298: x_return_status := FND_API.g_ret_sts_unexp_error;
5299: x_msg_data := SQLERRM ||' at INV_EBI_CHANGE_ORDER_HELPER.parse_and_get_eco';
5300: END;
5301: END LOOP;
5302: END IF;
5303: x_eco_tbl := l_eco_output_tbl;
5303: x_eco_tbl := l_eco_output_tbl;
5304: EXCEPTION
5305: WHEN OTHERS THEN
5306: x_return_status := FND_API.g_ret_sts_unexp_error;
5307: x_msg_data := SQLERRM ||' at INV_EBI_CHANGE_ORDER_HELPER.parse_and_get_eco';
5308: END parse_and_get_eco;
5309:
5310: /************************************************************************************
5311: -- API name : get_eco_list
5455:
5456: EXCEPTION
5457: WHEN OTHERS THEN
5458: x_return_status := FND_API.g_ret_sts_unexp_error;
5459: x_msg_data := SQLERRM ||' at INV_EBI_CHANGE_ORDER_HELPER.get_eco_list';
5460: IF (c_get_final_eco_list%ISOPEN) THEN
5461: CLOSE c_get_final_eco_list;
5462: END IF;
5463:
5462: END IF;
5463:
5464: END get_eco_list;
5465:
5466: END INV_EBI_CHANGE_ORDER_HELPER;