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: BEGIN

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

456: -- The only fields that are updateable in BOM Header is the
457: -- common bill information
458: --
459: IF Bom_Globals.Get_Debug = 'Y' THEN
460: Error_Handler.Write_Debug('Updating bill seq ' || p_bom_head_unexp_rec.bill_sequence_id);
461: END IF;
462:
463: UPDATE bom_bill_of_materials
464: SET common_assembly_item_id =

Line 553: , x_mesg_token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

549: *********************************************************************/
550: PROCEDURE Delete_Row
551: ( p_bom_header_rec IN BOM_Bo_Pub.Bom_Head_Rec_Type
552: , p_bom_head_unexp_rec IN Bom_Bo_Pub.Bom_Head_Unexposed_Rec_Type
553: , x_mesg_token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
554: , x_return_Status IN OUT NOCOPY VARCHAR2
555: )
556: IS
557: Cursor CheckGroup is

Line 569: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;

565: p_bom_head_unexp_rec;
566: l_bom_header_rec Bom_bo_Pub.Bom_Head_Rec_Type :=
567: p_bom_header_rec;
568: l_dg_sequence_id NUMBER;
569: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
570: l_assembly_type NUMBER;
571:
572:
573: BEGIN

Line 579: Error_Handler.Add_Error_Token

575:
576: FOR DG IN CheckGroup
577: LOOP
578: IF DG.delete_type <> 2 /* Bill */ then
579: Error_Handler.Add_Error_Token
580: ( p_message_name =>
581: 'BOM_DUPLICATE_DELETE_GROUP'
582: , p_mesg_token_tbl =>
583: l_mesg_token_Tbl

Line 603: Error_Handler.Add_Error_Token

599: THEN
600: l_dg_sequence_id := l_bom_head_unexp_rec.DG_Sequence_Id;
601: ELSE
602: l_dg_sequence_id := NULL;
603: Error_Handler.Add_Error_Token
604: ( p_message_name => 'NEW_DELETE_GROUP'
605: , p_mesg_token_tbl => l_mesg_token_Tbl
606: , x_mesg_token_tbl => l_mesg_token_tbl
607: , p_message_type => 'W' /* Warning */

Line 650: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

646: *********************************************************************/
647: PROCEDURE Perform_Writes
648: ( p_bom_header_rec IN Bom_Bo_Pub.Bom_Head_Rec_Type
649: , p_bom_head_unexp_rec IN Bom_Bo_Pub.Bom_Head_Unexposed_Rec_Type
650: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
651: , x_return_status IN OUT NOCOPY VARCHAR2
652: )
653: IS
654: l_Mesg_Token_tbl Error_Handler.Mesg_Token_Tbl_Type;

Line 654: l_Mesg_Token_tbl Error_Handler.Mesg_Token_Tbl_Type;

650: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
651: , x_return_status IN OUT NOCOPY VARCHAR2
652: )
653: IS
654: l_Mesg_Token_tbl Error_Handler.Mesg_Token_Tbl_Type;
655: l_return_status VARCHAR2(1):= FND_API.G_RET_STS_SUCCESS;
656: BEGIN
657: IF p_bom_header_rec.transaction_type = BOM_GLOBALS.G_OPR_CREATE
658: THEN