DBA Data[Home] [Help]

APPS.BOM_SUB_OP_RES_UTIL dependencies on ERROR_HANDLER

Line 47: , p_mesg_token_tbl IN Error_Handler.Mesg_Token_Tbl_Type

43: , p_acd_type IN NUMBER
44: , p_replacement_group_number IN NUMBER --bug 2489765
45: , p_basis_type IN NUMBER
46: , p_schedule_flag IN NUMBER /* Added for bug 13005178 */
47: , p_mesg_token_tbl IN Error_Handler.Mesg_Token_Tbl_Type
48: , x_sub_resource_rec IN OUT NOCOPY Bom_Rtg_Pub.Sub_Resource_Rec_Type
49: , x_sub_res_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Sub_Res_Unexposed_Rec_Type
50: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
51: , x_return_status IN OUT NOCOPY VARCHAR2

Line 50: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

46: , p_schedule_flag IN NUMBER /* Added for bug 13005178 */
47: , p_mesg_token_tbl IN Error_Handler.Mesg_Token_Tbl_Type
48: , x_sub_resource_rec IN OUT NOCOPY Bom_Rtg_Pub.Sub_Resource_Rec_Type
49: , x_sub_res_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Sub_Res_Unexposed_Rec_Type
50: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
51: , x_return_status IN OUT NOCOPY VARCHAR2
52: )
53:
54: IS

Line 111: , p_mesg_token_tbl IN Error_Handler.Mesg_Token_Tbl_Type

107: , p_acd_type IN NUMBER
108: , p_replacement_group_number IN NUMBER --bug 2489765
109: , p_basis_type IN NUMBER
110: , p_schedule_flag IN NUMBER /* Added for bug 13005178 */
111: , p_mesg_token_tbl IN Error_Handler.Mesg_Token_Tbl_Type
112: , x_rev_sub_resource_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Sub_Resource_Rec_Type
113: , x_rev_sub_res_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type
114: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
115: , x_return_status IN OUT NOCOPY VARCHAR2

Line 114: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

110: , p_schedule_flag IN NUMBER /* Added for bug 13005178 */
111: , p_mesg_token_tbl IN Error_Handler.Mesg_Token_Tbl_Type
112: , x_rev_sub_resource_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Sub_Resource_Rec_Type
113: , x_rev_sub_res_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type
114: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
115: , x_return_status IN OUT NOCOPY VARCHAR2
116: )
117: IS
118:

Line 125: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type ;

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

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

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

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

223: l_rev_sub_resource_rec.Attribute14 := sub_res_rec.ATTRIBUTE14 ;
224: l_rev_sub_resource_rec.Attribute15 := sub_res_rec.ATTRIBUTE15 ;
225: l_rev_sub_resource_rec.Original_System_Reference := sub_res_rec.ORIGINAL_SYSTEM_REFERENCE ;
226:
227: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Finished querying and assigning operation record . . .') ;
228: END IF ;
229:
230: x_return_status := BOM_Rtg_Globals.G_RECORD_FOUND ;
231: x_rev_sub_resource_rec := l_rev_sub_resource_rec ;

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

244: END IF ;
245:
246: EXCEPTION
247: WHEN OTHERS THEN
248: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
249: ('Some unknown error in Perform Writes . . .' || SQLERRM );
250: END IF ;
251:
252: l_err_text := G_PKG_NAME || ' Utility (Sub Op Resource Query Row) '

Line 257: Error_Handler.Add_Error_Token

253: || substrb(SQLERRM,1,200);
254:
255: -- dbms_output.put_line('Unexpected Error: '||l_err_text);
256:
257: Error_Handler.Add_Error_Token
258: ( p_message_name => NULL
259: , p_message_text => l_err_text
260: , p_mesg_token_tbl => l_mesg_token_tbl
261: , x_mesg_token_tbl => l_mesg_token_tbl

Line 288: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

284:
285: PROCEDURE Perform_Writes
286: ( p_sub_resource_rec IN Bom_Rtg_Pub.Sub_Resource_Rec_Type
287: , p_sub_res_unexp_rec IN Bom_Rtg_Pub.Sub_Res_Unexposed_Rec_Type
288: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
289: , x_return_status IN OUT NOCOPY VARCHAR2
290: )
291: IS
292: l_rev_sub_resource_rec Bom_Rtg_Pub.Rev_Sub_Resource_Rec_Type ;

Line 331: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

327: PROCEDURE Perform_Writes
328: ( p_rev_sub_resource_rec IN Bom_Rtg_Pub.Rev_Sub_Resource_Rec_Type
329: , p_rev_sub_res_unexp_rec IN Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type
330: , p_control_rec IN Bom_Rtg_Pub.Control_Rec_Type
331: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
332: , x_return_status IN OUT NOCOPY VARCHAR2
333: )
334: IS
335:

Line 343: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

339:
340: -- Error Handlig Variables
341: l_return_status VARCHAR2(1);
342: l_err_text VARCHAR2(2000) ;
343: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
344:
345:
346: BEGIN
347: --

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

351: l_rev_sub_res_unexp_rec := p_rev_sub_res_unexp_rec ;
352: l_return_status := FND_API.G_RET_STS_SUCCESS ;
353: x_return_status := FND_API.G_RET_STS_SUCCESS ;
354:
355: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
356: ('Performing Database Writes . . .') ;
357: END IF ;
358:
359:

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

357: END IF ;
358:
359:
360: IF l_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE THEN
361: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
362: ('Sub Operatin Sequence: Executing Insert Row. . . ') ;
363: END IF;
364:
365: Insert_Row

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

371:
372:
373: ELSIF l_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_UPDATE
374: THEN
375: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
376: ('Sub Operatin Sequence: Executing Update Row. . . ') ;
377: END IF ;
378:
379: Update_Row

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

385:
386: ELSIF l_rev_sub_resource_rec.transaction_type = BOM_Rtg_Globals.G_OPR_DELETE
387: THEN
388:
389: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
390: ('Sub Operatin Sequence: Executing Delete Row. . . ') ;
391: END IF ;
392:
393: Delete_Row

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

406: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl ;
407:
408: EXCEPTION
409: WHEN OTHERS THEN
410: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
411: ('Some unknown error in Perform Writes . . .' || SQLERRM );
412: END IF ;
413:
414: l_err_text := G_PKG_NAME || ' Utility (Perform Writes) '

Line 419: Error_Handler.Add_Error_Token

415: || substrb(SQLERRM,1,200);
416:
417: -- dbms_output.put_line('Unexpected Error: '||l_err_text);
418:
419: Error_Handler.Add_Error_Token
420: ( p_message_name => NULL
421: , p_message_text => l_err_text
422: , p_mesg_token_tbl => l_mesg_token_tbl
423: , x_mesg_token_tbl => l_mesg_token_tbl

Line 446: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

442: *****************************************************************************/
443: PROCEDURE Insert_Row
444: ( p_rev_sub_resource_rec IN Bom_Rtg_Pub.Rev_Sub_Resource_Rec_Type
445: , p_rev_sub_res_unexp_rec IN Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type
446: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
447: , x_return_status IN OUT NOCOPY VARCHAR2
448: )
449: IS
450:

Line 453: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;

449: IS
450:
451: -- Error Handlig Variables
452: l_err_text VARCHAR2(2000) ;
453: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
454:
455: BEGIN
456:
457: x_return_status := FND_API.G_RET_STS_SUCCESS ;

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

554:
555: EXCEPTION
556:
557: WHEN OTHERS THEN
558: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
559: ('Unexpected Error occured in Insert . . .' || SQLERRM);
560: END IF;
561:
562: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

Line 567: Error_Handler.Add_Error_Token

563: THEN
564: l_err_text := G_PKG_NAME || ' : Utility (Sub Op Resource Insert) ' ||
565: SUBSTR(SQLERRM, 1, 200);
566:
567: Error_Handler.Add_Error_Token
568: ( p_message_name => NULL
569: , p_message_text => l_err_text
570: , p_mesg_token_tbl => l_mesg_token_tbl
571: , x_mesg_token_tbl => l_mesg_token_tbl

Line 595: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

591: ****************************************************************************/
592: PROCEDURE Update_Row
593: ( p_rev_sub_resource_rec IN Bom_Rtg_Pub.Rev_Sub_Resource_Rec_Type
594: , p_rev_sub_res_unexp_rec IN Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type
595: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
596: , x_return_status IN OUT NOCOPY VARCHAR2
597: )
598: IS
599:

Line 602: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;

598: IS
599:
600: -- Error Handlig Variables
601: l_err_text VARCHAR2(2000) ;
602: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
603:
604: BEGIN
605:
606: x_return_status := FND_API.G_RET_STS_SUCCESS ;

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

604: BEGIN
605:
606: x_return_status := FND_API.G_RET_STS_SUCCESS ;
607:
608: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Performing update operation . . .') ;
609: END IF ;
610:
611:
612: UPDATE BOM_SUB_OPERATION_RESOURCES

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

660:
661:
662: EXCEPTION
663: WHEN OTHERS THEN
664: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
665: ('Unexpected Error occured in Update . . .' || SQLERRM);
666: END IF;
667:
668: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

Line 672: Error_Handler.Add_Error_Token

668: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
669: THEN
670: l_err_text := G_PKG_NAME || ' : Utility (Sub Op Resource Update) ' ||
671: SUBSTR(SQLERRM, 1, 200);
672: Error_Handler.Add_Error_Token
673: ( p_message_name => NULL
674: , p_message_text => l_err_text
675: , p_mesg_token_tbl => l_mesg_token_tbl
676: , x_mesg_token_tbl => l_mesg_token_tbl

Line 702: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

698: *********************************************************************/
699: PROCEDURE Delete_Row
700: ( p_rev_sub_resource_rec IN Bom_Rtg_Pub.Rev_Sub_Resource_Rec_Type
701: , p_rev_sub_res_unexp_rec IN Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type
702: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
703: , x_return_status IN OUT NOCOPY VARCHAR2
704: )
705: IS
706:

Line 709: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;

705: IS
706:
707: -- Error Handlig Variables
708: l_err_text VARCHAR2(2000) ;
709: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
710:
711:
712: BEGIN
713:

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

724: ;
725:
726: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
727:
728: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Finished deleting revised sub operation resource record . . .') ;
729: END IF ;
730:
731:
732: EXCEPTION

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

730:
731:
732: EXCEPTION
733: WHEN OTHERS THEN
734: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
735: ('Unexpected Error occured in Delete . . .' || SQLERRM);
736: END IF;
737:
738: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

Line 744: Error_Handler.Add_Error_Token

740: l_err_text := G_PKG_NAME || ' : Utility (Sub Op Resource Delete) ' ||
741: SUBSTR(SQLERRM, 1, 200);
742: -- dbms_output.put_line('Unexpected Error: '||l_err_text);
743:
744: Error_Handler.Add_Error_Token
745: ( p_message_name => NULL
746: , p_message_text => l_err_text
747: , p_mesg_token_tbl => l_mesg_token_tbl
748: , x_mesg_token_tbl => l_mesg_token_tbl