DBA Data[Home] [Help]

APPS.BOM_BOM_HEADER_UTIL dependencies on ERROR_HANDLER

Line 63: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Alt: ' || l_dummy

59: SELECT decode(p_alternate_bom_code, FND_API.G_MISS_CHAR,
60: 'Missing', NULL, 'XXXX', p_alternate_bom_code)
61: INTO l_dummy
62: from sys.dual;
63: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Alt: ' || l_dummy
64: ); END IF;
65:
66: SELECT assembly_item_id
67: , organization_id

Line 179: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Alt: ' || l_dummy

175: SELECT decode(p_alternate_bom_code, FND_API.G_MISS_CHAR,
176: 'Missing', NULL, 'XXXX', p_alternate_bom_code)
177: INTO l_dummy
178: from sys.dual;
179: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Alt: ' || l_dummy
180: ); END IF;
181:
182: SELECT assembly_item_id
183: , organization_id

Line 273: , x_mesg_token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

269: *********************************************************************/
270: PROCEDURE Insert_Row
271: ( p_bom_header_rec IN BOM_Bo_Pub.Bom_Head_Rec_Type
272: , p_bom_head_unexp_rec IN Bom_Bo_Pub.Bom_Head_Unexposed_Rec_Type
273: , x_mesg_token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
274: , x_return_Status IN OUT NOCOPY VARCHAR2
275: )
276: IS
277: l_preferred_flag Varchar2(1);

Line 282: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Writing Bom Header rec for ' || p_bom_header_rec.assembly_item_name); END IF;

278: l_effectivity_control NUMBER;
279: x_err_text varchar2(2000);
280: BEGIN
281:
282: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Writing Bom Header rec for ' || p_bom_header_rec.assembly_item_name); END IF;
283:
284: l_effectivity_control := get_effectivity_control
285: (p_bom_head_unexp_rec.assembly_item_id,
286: p_bom_head_unexp_rec.organization_id);

Line 423: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Oracle Error in Writing Bom Header rec ' || to_char(sqlcode)||'/'||sqlerrm); END IF;

419: x_return_status := FND_API.G_RET_STS_SUCCESS;
420:
421: EXCEPTION
422: WHEN OTHERS THEN
423: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Oracle Error in Writing Bom Header rec ' || to_char(sqlcode)||'/'||sqlerrm); END IF;
424: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('The mandatory values are, Assembly_item_id : ' ||to_char(p_bom_head_unexp_rec.assembly_item_id)); END IF;
425: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Bill_Sequence_Id : '||to_char(p_bom_head_unexp_rec.bill_sequence_id)||'. User Id : '||to_char(Bom_Globals.Get_User_Id)); END IF;
426: Error_Handler.Add_Error_Token
427: ( p_message_name => NULL

Line 424: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('The mandatory values are, Assembly_item_id : ' ||to_char(p_bom_head_unexp_rec.assembly_item_id)); END IF;

420:
421: EXCEPTION
422: WHEN OTHERS THEN
423: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Oracle Error in Writing Bom Header rec ' || to_char(sqlcode)||'/'||sqlerrm); END IF;
424: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('The mandatory values are, Assembly_item_id : ' ||to_char(p_bom_head_unexp_rec.assembly_item_id)); END IF;
425: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Bill_Sequence_Id : '||to_char(p_bom_head_unexp_rec.bill_sequence_id)||'. User Id : '||to_char(Bom_Globals.Get_User_Id)); END IF;
426: Error_Handler.Add_Error_Token
427: ( p_message_name => NULL
428: , p_message_text => G_PKG_NAME ||

Line 425: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Bill_Sequence_Id : '||to_char(p_bom_head_unexp_rec.bill_sequence_id)||'. User Id : '||to_char(Bom_Globals.Get_User_Id)); END IF;

421: EXCEPTION
422: WHEN OTHERS THEN
423: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Oracle Error in Writing Bom Header rec ' || to_char(sqlcode)||'/'||sqlerrm); END IF;
424: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('The mandatory values are, Assembly_item_id : ' ||to_char(p_bom_head_unexp_rec.assembly_item_id)); END IF;
425: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Bill_Sequence_Id : '||to_char(p_bom_head_unexp_rec.bill_sequence_id)||'. User Id : '||to_char(Bom_Globals.Get_User_Id)); END IF;
426: Error_Handler.Add_Error_Token
427: ( p_message_name => NULL
428: , p_message_text => G_PKG_NAME ||
429: ' :Inserting Record ' ||

Line 426: Error_Handler.Add_Error_Token

422: WHEN OTHERS THEN
423: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Oracle Error in Writing Bom Header rec ' || to_char(sqlcode)||'/'||sqlerrm); END IF;
424: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('The mandatory values are, Assembly_item_id : ' ||to_char(p_bom_head_unexp_rec.assembly_item_id)); END IF;
425: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Bill_Sequence_Id : '||to_char(p_bom_head_unexp_rec.bill_sequence_id)||'. User Id : '||to_char(Bom_Globals.Get_User_Id)); END IF;
426: Error_Handler.Add_Error_Token
427: ( p_message_name => NULL
428: , p_message_text => G_PKG_NAME ||
429: ' :Inserting Record ' ||
430: SQLERRM

Line 449: , x_mesg_token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

445: *********************************************************************/
446: PROCEDURE Update_Row
447: ( p_bom_header_rec IN BOM_Bo_Pub.Bom_Head_Rec_Type
448: , p_bom_head_unexp_rec IN Bom_Bo_Pub.Bom_Head_Unexposed_Rec_Type
449: , x_mesg_token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
450: , x_return_Status IN OUT NOCOPY VARCHAR2
451: )
452: IS
453:

Line 471: Error_Handler.Write_Debug('Updating bill seq ' || p_bom_head_unexp_rec.bill_sequence_id);

467: -- The only fields that are updateable in BOM Header is the
468: -- common bill information
469: --
470: IF Bom_Globals.Get_Debug = 'Y' THEN
471: Error_Handler.Write_Debug('Updating bill seq ' || p_bom_head_unexp_rec.bill_sequence_id);
472: END IF;
473:
474: -- Added for bug 8208327
475: -- Check if current BOM is a common bom

Line 623: , x_mesg_token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

619: *********************************************************************/
620: PROCEDURE Delete_Row
621: ( p_bom_header_rec IN BOM_Bo_Pub.Bom_Head_Rec_Type
622: , p_bom_head_unexp_rec IN Bom_Bo_Pub.Bom_Head_Unexposed_Rec_Type
623: , x_mesg_token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
624: , x_return_Status IN OUT NOCOPY VARCHAR2
625: )
626: IS
627: Cursor CheckGroup is

Line 639: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;

635: p_bom_head_unexp_rec;
636: l_bom_header_rec Bom_bo_Pub.Bom_Head_Rec_Type :=
637: p_bom_header_rec;
638: l_dg_sequence_id NUMBER;
639: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
640: l_assembly_type NUMBER;
641:
642:
643: BEGIN

Line 649: Error_Handler.Add_Error_Token

645:
646: FOR DG IN CheckGroup
647: LOOP
648: IF DG.delete_type <> 2 /* Bill */ then
649: Error_Handler.Add_Error_Token
650: ( p_message_name =>
651: 'BOM_DUPLICATE_DELETE_GROUP'
652: , p_mesg_token_tbl =>
653: l_mesg_token_Tbl

Line 673: Error_Handler.Add_Error_Token

669: THEN
670: l_dg_sequence_id := l_bom_head_unexp_rec.DG_Sequence_Id;
671: ELSE
672: l_dg_sequence_id := NULL;
673: Error_Handler.Add_Error_Token
674: ( p_message_name => 'NEW_DELETE_GROUP'
675: , p_mesg_token_tbl => l_mesg_token_Tbl
676: , x_mesg_token_tbl => l_mesg_token_tbl
677: , p_message_type => 'W' /* Warning */

Line 720: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

716: *********************************************************************/
717: PROCEDURE Perform_Writes
718: ( p_bom_header_rec IN Bom_Bo_Pub.Bom_Head_Rec_Type
719: , p_bom_head_unexp_rec IN Bom_Bo_Pub.Bom_Head_Unexposed_Rec_Type
720: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
721: , x_return_status IN OUT NOCOPY VARCHAR2
722: )
723: IS
724: l_Mesg_Token_tbl Error_Handler.Mesg_Token_Tbl_Type;

Line 724: l_Mesg_Token_tbl Error_Handler.Mesg_Token_Tbl_Type;

720: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
721: , x_return_status IN OUT NOCOPY VARCHAR2
722: )
723: IS
724: l_Mesg_Token_tbl Error_Handler.Mesg_Token_Tbl_Type;
725: l_return_status VARCHAR2(1):= FND_API.G_RET_STS_SUCCESS;
726: BEGIN
727: IF p_bom_header_rec.transaction_type = BOM_GLOBALS.G_OPR_CREATE
728: THEN