DBA Data[Home] [Help]

APPS.BOM_SUB_OP_RES_UTIL dependencies on ERROR_HANDLER

Line 46: , p_mesg_token_tbl IN Error_Handler.Mesg_Token_Tbl_Type

42: , p_operation_sequence_id IN NUMBER
43: , p_acd_type IN NUMBER
44: , p_replacement_group_number IN NUMBER --bug 2489765
45: , p_basis_type IN NUMBER
46: , p_mesg_token_tbl IN Error_Handler.Mesg_Token_Tbl_Type
47: , x_sub_resource_rec IN OUT NOCOPY Bom_Rtg_Pub.Sub_Resource_Rec_Type
48: , x_sub_res_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Sub_Res_Unexposed_Rec_Type
49: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
50: , x_return_status IN OUT NOCOPY VARCHAR2

Line 49: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

45: , p_basis_type IN NUMBER
46: , p_mesg_token_tbl IN Error_Handler.Mesg_Token_Tbl_Type
47: , x_sub_resource_rec IN OUT NOCOPY Bom_Rtg_Pub.Sub_Resource_Rec_Type
48: , x_sub_res_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Sub_Res_Unexposed_Rec_Type
49: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
50: , x_return_status IN OUT NOCOPY VARCHAR2
51: )
52:
53: IS

Line 108: , p_mesg_token_tbl IN Error_Handler.Mesg_Token_Tbl_Type

104: , p_operation_sequence_id IN NUMBER
105: , p_acd_type IN NUMBER
106: , p_replacement_group_number IN NUMBER --bug 2489765
107: , p_basis_type IN NUMBER
108: , p_mesg_token_tbl IN Error_Handler.Mesg_Token_Tbl_Type
109: , x_rev_sub_resource_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Sub_Resource_Rec_Type
110: , x_rev_sub_res_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type
111: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
112: , x_return_status IN OUT NOCOPY VARCHAR2

Line 111: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

107: , p_basis_type IN NUMBER
108: , p_mesg_token_tbl IN Error_Handler.Mesg_Token_Tbl_Type
109: , x_rev_sub_resource_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Sub_Resource_Rec_Type
110: , x_rev_sub_res_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type
111: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
112: , x_return_status IN OUT NOCOPY VARCHAR2
113: )
114: IS
115:

Line 122: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type ;

118: l_rev_sub_resource_rec Bom_Rtg_Pub.Rev_Sub_Resource_Rec_Type ;
119: l_rev_sub_res_unexp_rec Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type;
120: l_err_text VARCHAR2(2000) ;
121: l_bo_id VARCHAR2(3) ;
122: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type ;
123:
124:
125: /* Define Cursor */
126: Cursor sub_res_csr ( p_sub_resource_id NUMBER

Line 157: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

153:
154: x_mesg_token_tbl := p_mesg_token_tbl;
155: l_bo_id := BOM_Rtg_Globals.Get_Bo_Identifier ;
156:
157: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
158: ('Querying a sub operation resource record : Sub Res Id ' || to_char(p_resource_id)
159: || ' - Schedule Seq Num ' || to_char(p_substitute_group_number) || '. ' ) ;
160: END IF ;
161:

Line 221: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Finished querying and assigning operation record . . .') ;

217: l_rev_sub_resource_rec.Attribute14 := sub_res_rec.ATTRIBUTE14 ;
218: l_rev_sub_resource_rec.Attribute15 := sub_res_rec.ATTRIBUTE15 ;
219: l_rev_sub_resource_rec.Original_System_Reference := sub_res_rec.ORIGINAL_SYSTEM_REFERENCE ;
220:
221: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Finished querying and assigning operation record . . .') ;
222: END IF ;
223:
224: x_return_status := BOM_Rtg_Globals.G_RECORD_FOUND ;
225: x_rev_sub_resource_rec := l_rev_sub_resource_rec ;

Line 242: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

238: END IF ;
239:
240: EXCEPTION
241: WHEN OTHERS THEN
242: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
243: ('Some unknown error in Perform Writes . . .' || SQLERRM );
244: END IF ;
245:
246: l_err_text := G_PKG_NAME || ' Utility (Sub Op Resource Query Row) '

Line 251: Error_Handler.Add_Error_Token

247: || substrb(SQLERRM,1,200);
248:
249: -- dbms_output.put_line('Unexpected Error: '||l_err_text);
250:
251: Error_Handler.Add_Error_Token
252: ( p_message_name => NULL
253: , p_message_text => l_err_text
254: , p_mesg_token_tbl => l_mesg_token_tbl
255: , x_mesg_token_tbl => l_mesg_token_tbl

Line 282: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

278:
279: PROCEDURE Perform_Writes
280: ( p_sub_resource_rec IN Bom_Rtg_Pub.Sub_Resource_Rec_Type
281: , p_sub_res_unexp_rec IN Bom_Rtg_Pub.Sub_Res_Unexposed_Rec_Type
282: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
283: , x_return_status IN OUT NOCOPY VARCHAR2
284: )
285: IS
286: l_rev_sub_resource_rec Bom_Rtg_Pub.Rev_Sub_Resource_Rec_Type ;

Line 325: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

321: PROCEDURE Perform_Writes
322: ( p_rev_sub_resource_rec IN Bom_Rtg_Pub.Rev_Sub_Resource_Rec_Type
323: , p_rev_sub_res_unexp_rec IN Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type
324: , p_control_rec IN Bom_Rtg_Pub.Control_Rec_Type
325: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
326: , x_return_status IN OUT NOCOPY VARCHAR2
327: )
328: IS
329:

Line 337: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

333:
334: -- Error Handlig Variables
335: l_return_status VARCHAR2(1);
336: l_err_text VARCHAR2(2000) ;
337: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
338:
339:
340: BEGIN
341: --

Line 349: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

345: l_rev_sub_res_unexp_rec := p_rev_sub_res_unexp_rec ;
346: l_return_status := FND_API.G_RET_STS_SUCCESS ;
347: x_return_status := FND_API.G_RET_STS_SUCCESS ;
348:
349: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
350: ('Performing Database Writes . . .') ;
351: END IF ;
352:
353:

Line 355: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

351: END IF ;
352:
353:
354: IF l_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE THEN
355: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
356: ('Sub Operatin Sequence: Executing Insert Row. . . ') ;
357: END IF;
358:
359: Insert_Row

Line 369: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

365:
366:
367: ELSIF l_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_UPDATE
368: THEN
369: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
370: ('Sub Operatin Sequence: Executing Update Row. . . ') ;
371: END IF ;
372:
373: Update_Row

Line 383: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

379:
380: ELSIF l_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_DELETE
381: THEN
382:
383: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
384: ('Sub Operatin Sequence: Executing Delete Row. . . ') ;
385: END IF ;
386:
387: Delete_Row

Line 404: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

400: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl ;
401:
402: EXCEPTION
403: WHEN OTHERS THEN
404: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
405: ('Some unknown error in Perform Writes . . .' || SQLERRM );
406: END IF ;
407:
408: l_err_text := G_PKG_NAME || ' Utility (Perform Writes) '

Line 413: Error_Handler.Add_Error_Token

409: || substrb(SQLERRM,1,200);
410:
411: -- dbms_output.put_line('Unexpected Error: '||l_err_text);
412:
413: Error_Handler.Add_Error_Token
414: ( p_message_name => NULL
415: , p_message_text => l_err_text
416: , p_mesg_token_tbl => l_mesg_token_tbl
417: , x_mesg_token_tbl => l_mesg_token_tbl

Line 440: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

436: *****************************************************************************/
437: PROCEDURE Insert_Row
438: ( p_rev_sub_resource_rec IN Bom_Rtg_Pub.Rev_Sub_Resource_Rec_Type
439: , p_rev_sub_res_unexp_rec IN Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type
440: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
441: , x_return_status IN OUT NOCOPY VARCHAR2
442: )
443: IS
444:

Line 447: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;

443: IS
444:
445: -- Error Handlig Variables
446: l_err_text VARCHAR2(2000) ;
447: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
448:
449: BEGIN
450:
451: x_return_status := FND_API.G_RET_STS_SUCCESS ;

Line 552: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

548:
549: EXCEPTION
550:
551: WHEN OTHERS THEN
552: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
553: ('Unexpected Error occured in Insert . . .' || SQLERRM);
554: END IF;
555:
556: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

Line 561: Error_Handler.Add_Error_Token

557: THEN
558: l_err_text := G_PKG_NAME || ' : Utility (Sub Op Resource Insert) ' ||
559: SUBSTR(SQLERRM, 1, 200);
560:
561: Error_Handler.Add_Error_Token
562: ( p_message_name => NULL
563: , p_message_text => l_err_text
564: , p_mesg_token_tbl => l_mesg_token_tbl
565: , x_mesg_token_tbl => l_mesg_token_tbl

Line 589: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

585: ****************************************************************************/
586: PROCEDURE Update_Row
587: ( p_rev_sub_resource_rec IN Bom_Rtg_Pub.Rev_Sub_Resource_Rec_Type
588: , p_rev_sub_res_unexp_rec IN Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type
589: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
590: , x_return_status IN OUT NOCOPY VARCHAR2
591: )
592: IS
593:

Line 596: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;

592: IS
593:
594: -- Error Handlig Variables
595: l_err_text VARCHAR2(2000) ;
596: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
597:
598: BEGIN
599:
600: x_return_status := FND_API.G_RET_STS_SUCCESS ;

Line 602: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Performing update operation . . .') ;

598: BEGIN
599:
600: x_return_status := FND_API.G_RET_STS_SUCCESS ;
601:
602: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Performing update operation . . .') ;
603: END IF ;
604:
605:
606: UPDATE BOM_SUB_OPERATION_RESOURCES

Line 657: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

653:
654:
655: EXCEPTION
656: WHEN OTHERS THEN
657: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
658: ('Unexpected Error occured in Update . . .' || SQLERRM);
659: END IF;
660:
661: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

Line 665: Error_Handler.Add_Error_Token

661: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
662: THEN
663: l_err_text := G_PKG_NAME || ' : Utility (Sub Op Resource Update) ' ||
664: SUBSTR(SQLERRM, 1, 200);
665: Error_Handler.Add_Error_Token
666: ( p_message_name => NULL
667: , p_message_text => l_err_text
668: , p_mesg_token_tbl => l_mesg_token_tbl
669: , x_mesg_token_tbl => l_mesg_token_tbl

Line 695: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

691: *********************************************************************/
692: PROCEDURE Delete_Row
693: ( p_rev_sub_resource_rec IN Bom_Rtg_Pub.Rev_Sub_Resource_Rec_Type
694: , p_rev_sub_res_unexp_rec IN Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type
695: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
696: , x_return_status IN OUT NOCOPY VARCHAR2
697: )
698: IS
699:

Line 702: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;

698: IS
699:
700: -- Error Handlig Variables
701: l_err_text VARCHAR2(2000) ;
702: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
703:
704:
705: BEGIN
706:

Line 720: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Finished deleting revised sub operation resource record . . .') ;

716: ;
717:
718: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
719:
720: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Finished deleting revised sub operation resource record . . .') ;
721: END IF ;
722:
723:
724: EXCEPTION

Line 726: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

722:
723:
724: EXCEPTION
725: WHEN OTHERS THEN
726: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
727: ('Unexpected Error occured in Delete . . .' || SQLERRM);
728: END IF;
729:
730: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

Line 736: Error_Handler.Add_Error_Token

732: l_err_text := G_PKG_NAME || ' : Utility (Sub Op Resource Delete) ' ||
733: SUBSTR(SQLERRM, 1, 200);
734: -- dbms_output.put_line('Unexpected Error: '||l_err_text);
735:
736: Error_Handler.Add_Error_Token
737: ( p_message_name => NULL
738: , p_message_text => l_err_text
739: , p_mesg_token_tbl => l_mesg_token_tbl
740: , x_mesg_token_tbl => l_mesg_token_tbl