2844: IS
2845:
2846: Cursor get_sub_comps(p_component_sequence_id NUMBER)
2847: is
2848: SELECT * from bom_substitute_components
2849: where component_sequence_id = p_component_sequence_id;
2850:
2851: Cursor get_destn_comps(p_comp_seq_id number)
2852: is
2859: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2860: l_err_text VARCHAR2(2000);
2861:
2862: BEGIN
2863: INSERT INTO BOM_SUBSTITUTE_COMPONENTS
2864: ( SUBSTITUTE_COMPONENT_ID
2865: , LAST_UPDATE_DATE
2866: , LAST_UPDATED_BY
2867: , CREATION_DATE
2928: , Bom_Globals.Get_Prog_Id
2929: , sub_comp.Original_System_Reference
2930: , sub_comp.enforce_int_requirements
2931: , sub_comp.component_sequence_id
2932: FROM BOM_SUBSTITUTE_COMPONENTS sub_comp, BOM_COMPONENTS_B dest_comp
2933: WHERE dest_comp.component_Sequence_id <> dest_comp.common_component_sequence_id
2934: AND dest_comp.common_component_sequence_id = sub_comp.component_sequence_id
2935: AND sub_comp.component_sequence_id = p_component_sequence_id
2936: AND NOT EXISTS
2935: AND sub_comp.component_sequence_id = p_component_sequence_id
2936: AND NOT EXISTS
2937: (
2938: SELECT 1
2939: FROM bom_substitute_components bsc2
2940: where bsc2.component_sequence_id = dest_comp.component_sequence_id
2941: and bsc2.substitute_component_id = sub_comp.substitute_component_id
2942: )
2943: ;
3005: Cursor get_sub_comp_details(p_comp_seq_id NUMBER,
3006: p_sub_comp_item_id NUMBER)
3007: IS
3008: select *
3009: from bom_substitute_components
3010: where component_sequence_id = p_comp_seq_id
3011: and substitute_component_id = p_sub_comp_item_id;
3012:
3013: Cursor get_destn_comps(p_comp_seq_id number)
3029: loop
3030: for dest_comp in get_destn_comps(p_component_sequence_id)
3031: loop
3032:
3033: INSERT INTO BOM_SUBSTITUTE_COMPONENTS
3034: ( SUBSTITUTE_COMPONENT_ID
3035: , LAST_UPDATE_DATE
3036: , LAST_UPDATED_BY
3037: , CREATION_DATE
3172: Cursor get_sub_comp_details(p_comp_seq_id NUMBER,
3173: p_sub_comp_item_id NUMBER)
3174: IS
3175: select *
3176: from bom_substitute_components
3177: where component_sequence_id = p_comp_seq_id
3178: and substitute_component_id = p_new_sub_comp_item_id
3179: and nvl(acd_type, 0) = nvl(p_acd_type, 0);
3180:
3190: loop
3191: /*for dest_comp in get_destn_comps(p_component_sequence_id)
3192: loop
3193: l_acd_type := sub_comp.acd_type;*/
3194: UPDATE BOM_SUBSTITUTE_COMPONENTS
3195: SET SUBSTITUTE_COMPONENT_ID = sub_comp.substitute_component_id
3196: , SUBSTITUTE_ITEM_QUANTITY = sub_comp.substitute_item_quantity
3197: , ATTRIBUTE_CATEGORY = sub_comp.attribute_category
3198: , ATTRIBUTE1 = sub_comp.attribute1
4291:
4292: DELETE FROM BOM_REFERENCE_DESIGNATORS
4293: WHERE COMMON_COMPONENT_SEQUENCE_ID = p_src_comp_seq;
4294:
4295: DELETE FROM BOM_SUBSTITUTE_COMPONENTS
4296: WHERE COMMON_COMPONENT_SEQUENCE_ID = p_src_comp_seq;
4297:
4298: END Delete_Related_Components;
4299:
4329: , p_sub_comp_item_id IN NUMBER
4330: , x_return_status IN OUT NOCOPY VARCHAR2)
4331: IS
4332: BEGIN
4333: DELETE FROM BOM_SUBSTITUTE_COMPONENTS
4334: WHERE COMMON_COMPONENT_SEQUENCE_ID = p_src_comp_seq
4335: AND SUBSTITUTE_COMPONENT_ID = p_sub_comp_item_id;
4336: EXCEPTION
4337: WHEN OTHERS THEN
4476: --Commented
4477: DELETE BOM_COMPONENTS_B
4478: WHERE common_component_sequence_id = p_src_comp_seq_id;
4479:
4480: DELETE BOM_SUBSTITUTE_COMPONENTS
4481: WHERE common_component_sequence_id = p_src_comp_seq_id;
4482:
4483: DELETE BOM_REFERENCE_DESIGNATORS
4484: WHERE common_component_sequence_id = p_src_comp_seq_id;