[Home] [Help]
178: x_bom_header_rec.attribute15 := l_attribute15 ;
179:
180: EXCEPTION
181: WHEN OTHERS THEN
182: Error_Handler.Write_Debug ('Get_Flex_Common_Bom_Header: Some error occurred while retrieving the source bill');
183: END Get_Flex_Common_Bom_Header;
184:
185: --Bug 12937561 (end)
186:
199: ( p_bom_header_rec IN Bom_Bo_Pub.Bom_Head_Rec_Type
200: , p_bom_head_unexp_rec IN Bom_Bo_Pub.Bom_Head_Unexposed_Rec_Type
201: , x_bom_header_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Head_Rec_Type
202: , x_bom_head_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Head_Unexposed_Rec_Type
203: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
204: , x_return_status IN OUT NOCOPY VARCHAR2
205: )
206: IS
207: l_token_tbl Error_Handler.Token_Tbl_Type;
203: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
204: , x_return_status IN OUT NOCOPY VARCHAR2
205: )
206: IS
207: l_token_tbl Error_Handler.Token_Tbl_Type;
208: BEGIN
209:
210: x_bom_header_rec := p_bom_header_rec;
211: x_bom_head_unexp_rec := p_bom_head_unexp_rec;
254:
255:
256: /* Get the structure type information */
257:
258: Error_Handler.Write_Debug ('Get the structure type id');
259: BEGIN
260: IF x_bom_head_unexp_rec.structure_type_id IS NULL THEN
261: SELECT structure_type_id,
262: enable_unimplemented_boms
298: ELSE
299: -- If we come here, then there is some other unexpected error
300: -- The alternate code given is incorrect and is currently not being handled
301: -- as any other error.
302: x_return_status := Error_Handler.G_STATUS_UNEXPECTED;
303: END IF;
304: END;
305:
306: /* If the structure allows unimplemented BOMS and the BO is for BOM
305:
306: /* If the structure allows unimplemented BOMS and the BO is for BOM
307: and also the assembly is ENGG, create the BOM as unimplemented BOM */
308:
309: Error_Handler.Write_Debug ('Checking for unimplemented BOM');
310: IF x_bom_header_rec.bom_implementation_date IS NULL
311: THEN
312: Error_Handler.Write_Debug ('IS NULL' || 'BO: ' || Bom_Globals.Get_Bo_Identifier || 'unimpl: ' || x_bom_head_unexp_rec.enable_unimplemented_boms || ' assembly type: ' || x_bom_header_rec.assembly_type);
313: IF x_bom_header_rec.assembly_type <> 2 OR
308:
309: Error_Handler.Write_Debug ('Checking for unimplemented BOM');
310: IF x_bom_header_rec.bom_implementation_date IS NULL
311: THEN
312: Error_Handler.Write_Debug ('IS NULL' || 'BO: ' || Bom_Globals.Get_Bo_Identifier || 'unimpl: ' || x_bom_head_unexp_rec.enable_unimplemented_boms || ' assembly type: ' || x_bom_header_rec.assembly_type);
313: IF x_bom_header_rec.assembly_type <> 2 OR
314: --Bom_Globals.Get_Bo_Identifier <> 'BOM' OR
315: x_bom_head_unexp_rec.enable_unimplemented_boms <> 'Y' THEN
316: l_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
318: x_bom_header_rec.assembly_item_name;
319: l_token_tbl(1).token_name := 'ALTERNATE';
320: l_token_tbl(1).token_value :=
321: x_bom_header_rec.alternate_bom_code;
322: Error_Handler.Add_Error_Token
323: ( p_message_name => 'BOM_CANNOT_CREATE_UNIMPBOM'
324: , p_Mesg_Token_Tbl => x_Mesg_Token_Tbl
325: , x_Mesg_Token_Tbl => x_Mesg_Token_Tbl
326: , p_Token_Tbl => l_Token_Tbl
327: );
328: x_return_status := FND_API.G_RET_STS_ERROR;
329: END IF;
330: END IF;
331: Error_Handler.Write_Debug ('After the unimplemented check');
332:
333: END Attribute_Defaulting;
334:
335: /******************************************************************