[Home] [Help]
203:
204: Error_Handler.Write_Debug ('Updating SCOMP Perform Writes ...');
205:
206: --bug:3254815 Update request id, prog id, prog appl id and prog update date.
207: UPDATE BOM_SUBSTITUTE_COMPONENTS
208: SET SUBSTITUTE_COMPONENT_ID = DECODE(p_sub_comp_Unexp_rec.new_substitute_component_id,
209: NULL, p_sub_comp_Unexp_rec.substitute_component_id,
210: FND_API.G_MISS_NUM,
211: p_sub_comp_Unexp_rec.substitute_component_id,
301: * Parameters OUT: Substitute Component Record
302: * Return_Status - Indicating success or faliure
303: * Mesg_Token_Tbl - Filled with any errors or warnings
304: * Purpose : Will Insert a new substitute component record in
305: * Bom_Substitute_Components table.
306: *
307: ********************************************************************/
308: PROCEDURE Insert_Row
309: ( p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
319: BEGIN
320:
321: Error_Handler.Write_Debug ('Inserting SCOMP Perform Writes ...');
322:
323: INSERT INTO BOM_SUBSTITUTE_COMPONENTS
324: ( SUBSTITUTE_COMPONENT_ID
325: , LAST_UPDATE_DATE
326: , LAST_UPDATED_BY
327: , CREATION_DATE
453: l_err_text);
454: end if;
455: END IF;
456:
457: DELETE FROM BOM_SUBSTITUTE_COMPONENTS
458: WHERE SUBSTITUTE_COMPONENT_ID = p_substitute_component_id
459: AND COMPONENT_SEQUENCE_ID = p_component_sequence_id
460: AND (( l_BO_Id = Bom_Globals.G_ECO_BO AND
461: ACD_TYPE = p_acd_type
563: , l_Sub_Component_Rec.Acd_Type
564: , x_Sub_comp_Unexp_Rec.Substitute_Component_Id
565: , x_Sub_Comp_Unexp_Rec.Component_Sequence_Id
566: , x_Sub_Comp_Unexp_Rec.enforce_int_requirements_code
567: FROM BOM_SUBSTITUTE_COMPONENTS
568: WHERE SUBSTITUTE_COMPONENT_ID = p_substitute_component_id
569: AND COMPONENT_SEQUENCE_ID = p_component_sequence_id
570: AND NVL(DECODE(ACD_TYPE, FND_API.G_MISS_NUM, null, acd_type), 1) =
571: NVL(DECODE(p_acd_type, FND_API.G_MISS_NUM, null, p_acd_type), 1)