[Home] [Help]
2423: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2424: l_err_text VARCHAR2(2000);
2425:
2426: BEGIN
2427: INSERT INTO BOM_REFERENCE_DESIGNATORS
2428: ( COMPONENT_REFERENCE_DESIGNATOR
2429: , LAST_UPDATE_DATE
2430: , LAST_UPDATED_BY
2431: , CREATION_DATE
2493: , ref_desg.attribute14
2494: , ref_desg.attribute15
2495: , ref_desg.Original_System_Reference
2496: , p_component_sequence_id
2497: FROM BOM_COMPONENTS_B comp, BOM_REFERENCE_DESIGNATORS ref_desg
2498: WHERE comp.component_sequence_id <> comp.common_component_sequence_id
2499: AND comp.common_component_sequence_id = ref_desg.component_sequence_id
2500: AND ref_desg.component_sequence_id = p_component_sequence_id
2501: AND NOT EXISTS
2500: AND ref_desg.component_sequence_id = p_component_sequence_id
2501: AND NOT EXISTS
2502: (
2503: SELECT 1
2504: FROM bom_reference_designators ref2
2505: where ref2.component_sequence_id = comp.component_sequence_id
2506: and ref2.component_reference_designator = ref_desg.component_reference_designator
2507: )
2508: ;
2505: where ref2.component_sequence_id = comp.component_sequence_id
2506: and ref2.component_reference_designator = ref_desg.component_reference_designator
2507: )
2508: ;
2509: /*insert into bom_reference_designators(
2511: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
2512: EXCEPTION
2513: WHEN OTHERS THEN
2570: Cursor get_ref_desg_details(p_comp_seq_id NUMBER,
2571: p_ref_desg VARCHAR2)
2572: IS
2573: select *
2574: from bom_reference_designators
2575: where component_sequence_id = p_comp_seq_id
2576: and component_reference_designator = p_ref_desg;
2577:
2578: Cursor get_destn_comps(p_comp_seq_id number)
2593: for ref_desg in get_ref_desg_details(p_component_sequence_id, p_ref_desg)
2594: loop
2595: for dest_comp in get_destn_comps(p_component_sequence_id)
2596: loop
2597: INSERT INTO BOM_REFERENCE_DESIGNATORS
2598: ( COMPONENT_REFERENCE_DESIGNATOR
2599: , LAST_UPDATE_DATE
2600: , LAST_UPDATED_BY
2601: , CREATION_DATE
2732: Cursor get_ref_desg_details(p_comp_seq_id NUMBER,
2733: p_ref_desg VARCHAR2)
2734: IS
2735: select *
2736: from bom_reference_designators
2737: where component_sequence_id = p_comp_seq_id
2738: and component_reference_designator = p_ref_desg;
2739:
2740: Cursor get_destn_comps(p_comp_seq_id number)
2748: for ref_desg in get_ref_desg_details(p_component_sequence_id, p_new_ref_desg)
2749: loop
2750: /*for dest_comp in get_destn_comps(p_component_sequence_id)
2751: loop*/
2752: UPDATE BOM_REFERENCE_DESIGNATORS
2753: SET COMPONENT_REFERENCE_DESIGNATOR = ref_desg.COMPONENT_REFERENCE_DESIGNATOR
2754: , LAST_UPDATE_DATE = SYSDATE
2755: , LAST_UPDATED_BY = ref_desg.LAST_UPDATED_BY
2756: , LAST_UPDATE_LOGIN = ref_desg.LAST_UPDATE_LOGIN
4288: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('In Delete_Related_Components' ); END IF;
4289: DELETE FROM BOM_COMPONENTS_B
4290: WHERE COMMON_COMPONENT_SEQUENCE_ID = p_src_comp_seq;
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;
4309: , p_ref_desg IN VARCHAR2
4310: , x_return_status IN OUT NOCOPY VARCHAR2)
4311: IS
4312: BEGIN
4313: DELETE FROM BOM_REFERENCE_DESIGNATORS
4314: WHERE COMMON_COMPONENT_SEQUENCE_ID = p_src_comp_seq
4315: AND COMPONENT_REFERENCE_DESIGNATOR = p_ref_desg;
4316: EXCEPTION
4317: WHEN OTHERS THEN
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;
4485:
4486: DELETE BOM_COMPONENT_OPERATIONS
4487: WHERE common_component_sequence_id = p_src_comp_seq_id;