[Home] [Help]
65: , p_operation_type IN NUMBER := NULL
66: , p_alternate_routing_code IN VARCHAR2 := NULL -- Added for bug 13440461
67: , p_rev_sub_resource_tbl IN Bom_Rtg_Pub.Rev_Sub_Resource_Tbl_Type
68: , x_rev_sub_resource_tbl IN OUT NOCOPY Bom_Rtg_Pub.Rev_Sub_Resource_Tbl_Type
69: , x_mesg_token_tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
70: , x_return_status OUT NOCOPY VARCHAR2
71: )
72:
73: IS
91: l_old_rev_sub_resource_rec Bom_Rtg_Pub.Rev_Sub_Resource_rec_Type;
92: l_old_rev_sub_res_unexp_rec Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type;
93:
94: /* Error Handling Variables */
95: l_token_tbl Error_Handler.Token_Tbl_Type ;
96: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
97: l_other_token_tbl Error_Handler.Token_Tbl_Type;
98: l_other_message VARCHAR2(2000);
99: l_err_text VARCHAR2(2000);
92: l_old_rev_sub_res_unexp_rec Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type;
93:
94: /* Error Handling Variables */
95: l_token_tbl Error_Handler.Token_Tbl_Type ;
96: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
97: l_other_token_tbl Error_Handler.Token_Tbl_Type;
98: l_other_message VARCHAR2(2000);
99: l_err_text VARCHAR2(2000);
100:
93:
94: /* Error Handling Variables */
95: l_token_tbl Error_Handler.Token_Tbl_Type ;
96: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
97: l_other_token_tbl Error_Handler.Token_Tbl_Type;
98: l_other_message VARCHAR2(2000);
99: l_err_text VARCHAR2(2000);
100:
101:
106: l_rtg_parent_exists BOOLEAN := FALSE;
107: l_process_children BOOLEAN := TRUE;
108: l_valid BOOLEAN := TRUE;
109:
110: /* Error handler definations */
111: EXC_SEV_QUIT_RECORD EXCEPTION ;
112: EXC_SEV_QUIT_BRANCH EXCEPTION ;
113: EXC_UNEXP_SKIP_OBJECT EXCEPTION ;
114: EXC_SEV_QUIT_SIBLINGS EXCEPTION ;
264: , x_mesg_token_tbl => l_mesg_token_tbl
265: , x_return_status => l_return_status
266: ) ;
267:
268: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
269: ('Convert to User Unique Index to Index1 completed with return_status: ' || l_return_status) ;
270: END IF;
271:
272: IF l_return_status = Error_Handler.G_STATUS_ERROR
268: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
269: ('Convert to User Unique Index to Index1 completed with return_status: ' || l_return_status) ;
270: END IF;
271:
272: IF l_return_status = Error_Handler.G_STATUS_ERROR
273: THEN
274: l_other_message := 'BOM_SUB_RES_UUI_SEV_ERROR';
275: l_other_token_tbl(1).token_name := 'SUB_RESOURCE_CODE';
276: l_other_token_tbl(1).token_value :=
279: l_other_token_tbl(2).token_value :=
280: l_rev_sub_resource_rec.schedule_sequence_number ;
281: RAISE EXC_SEV_QUIT_BRANCH ;
282:
283: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
284: THEN
285: l_other_message := 'BOM_SUB_RES_UUI_UNEXP_SKIP';
286: l_other_token_tbl(1).token_name := 'SUB_RESOURCE_CODE';
287: l_other_token_tbl(1).token_value :=
315: , x_other_token_tbl => l_other_token_tbl
316: , x_Return_Status => l_return_status
317: ) ;
318:
319: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
320: ('Convert to User Unique Index to Index1 for Rtg and Rev Item Seq completed with return_status: ' || l_return_status) ;
321: END IF;
322:
323: IF l_return_status = Error_Handler.G_STATUS_ERROR
319: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
320: ('Convert to User Unique Index to Index1 for Rtg and Rev Item Seq completed with return_status: ' || l_return_status) ;
321: END IF;
322:
323: IF l_return_status = Error_Handler.G_STATUS_ERROR
324: THEN
325: l_other_message := 'BOM_SUB_RES_UUI_SEV_ERROR';
326: l_other_token_tbl(1).token_name := 'SUB_RESOURCE_CODE';
327: l_other_token_tbl(1).token_value :=
330: l_other_token_tbl(2).token_value :=
331: l_rev_sub_resource_rec.schedule_sequence_number ;
332: RAISE EXC_SEV_QUIT_BRANCH ;
333:
334: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
335: THEN
336: l_other_message := 'BOM_SUB_RES_UUI_UNEXP_SKIP';
337: l_other_token_tbl(1).token_name := 'SUB_RESOURCE_CODE';
338: l_other_token_tbl(1).token_value :=
361: , x_other_token_tbl => l_other_token_tbl
362: , x_return_status => l_return_status
363: ) ;
364:
365: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
366: ('Convert to User Unique Index to Index2 completed with return_status: ' || l_return_status) ;
367: END IF;
368:
369: IF l_return_status = Error_Handler.G_STATUS_ERROR
365: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
366: ('Convert to User Unique Index to Index2 completed with return_status: ' || l_return_status) ;
367: END IF;
368:
369: IF l_return_status = Error_Handler.G_STATUS_ERROR
370: THEN
371: RAISE EXC_SEV_QUIT_SIBLINGS ;
372: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
373: THEN
368:
369: IF l_return_status = Error_Handler.G_STATUS_ERROR
370: THEN
371: RAISE EXC_SEV_QUIT_SIBLINGS ;
372: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
373: THEN
374: l_other_message := 'BOM_SUB_RES_UUI_UNEXP_SKIP';
375: l_other_token_tbl(1).token_name := 'SUB_RESOURCE_CODE';
376: l_other_token_tbl(1).token_value :=
397: , x_return_status => l_return_status
398: ) ;
399:
400:
401: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
402: ('Check Existence completed with return_status: ' || l_return_status) ;
403: END IF ;
404:
405: IF l_return_status = Error_Handler.G_STATUS_ERROR
401: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
402: ('Check Existence completed with return_status: ' || l_return_status) ;
403: END IF ;
404:
405: IF l_return_status = Error_Handler.G_STATUS_ERROR
406: THEN
407: l_other_message := 'BOM_SUB_RES_EXS_SEV_SKIP';
408: l_other_token_tbl(1).token_name := 'SUB_RESOURCE_CODE';
409: l_other_token_tbl(1).token_value :=
414: -- l_other_token_tbl(3).token_name := 'REVISED_ITEM_NAME';
415: -- l_other_token_tbl(3).token_value :=
416: -- l_rev_sub_resource_rec.revised_item_name ;
417: RAISE EXC_SEV_QUIT_BRANCH;
418: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
419: THEN
420: l_other_message := 'BOM_SUB_RES_EXS_UNEXP_SKIP';
421: l_other_token_tbl(1).token_name := 'SUB_RESOURCE_CODE';
422: l_other_token_tbl(1).token_value :=
440:
441: --
442: -- Process Flow step 7: Check lineage
443: --
444: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check lineage'); END IF;
445: BOM_Validate_Op_Seq.Check_Lineage
446: ( p_routing_sequence_id =>
447: l_rev_sub_res_unexp_rec.routing_sequence_id
448: , p_operation_sequence_number =>
456: , x_mesg_token_tbl => l_mesg_token_tbl
457: , x_return_status => l_return_status
458: ) ;
459:
460: IF l_return_status = Error_Handler.G_STATUS_ERROR
461: THEN
462:
463: l_Token_Tbl(1).token_name := 'SUB_RESOURCE_CODE';
464: l_Token_Tbl(1).token_value := l_rev_sub_resource_rec.sub_resource_code ;
468: l_Token_Tbl(3).token_value := l_rev_sub_resource_rec.operation_sequence_number ;
469: l_Token_Tbl(4).token_name := 'REVISED_ITEM_NAME' ;
470: l_Token_Tbl(4).token_value := l_rev_sub_resource_rec.revised_item_name;
471:
472: Error_Handler.Add_Error_Token
473: ( p_Message_Name => 'BOM_SUB_RES_REV_ITEM_MISMATCH'
474: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
475: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
476: , p_Token_Tbl => l_Token_Tbl
486: l_rev_sub_resource_rec.schedule_sequence_number ;
487:
488: RAISE EXC_SEV_QUIT_BRANCH;
489:
490: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
491: THEN
492: l_other_message := 'BOM_SUB_RES_LIN_UNEXP_SKIP';
493: l_other_token_tbl(1).token_name := 'SUB_RESOURCE_CODE';
494: l_other_token_tbl(1).token_value :=
501:
502: -- Process Flow step 8(a and b): Is ECO impl/cancl, or in wkflw process ?
503: --
504:
505: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check ECO access'); END IF;
506:
507: ENG_Validate_ECO.Check_Access
508: ( p_change_notice => l_rev_sub_resource_rec.ECO_Name
509: , p_organization_id => l_rev_sub_res_unexp_rec.organization_id
511: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
512: , x_Return_Status => l_return_status
513: );
514:
515: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
516:
517: IF l_return_status = Error_Handler.G_STATUS_ERROR
518: THEN
519: l_other_message := 'BOM_SUB_RES_ECOACC_FAT_FATAL';
513: );
514:
515: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
516:
517: IF l_return_status = Error_Handler.G_STATUS_ERROR
518: THEN
519: l_other_message := 'BOM_SUB_RES_ECOACC_FAT_FATAL';
520: l_other_token_tbl(1).token_name := 'SUB_RESOURCE_CODE';
521: l_other_token_tbl(1).token_value :=
524: l_other_token_tbl(2).token_value :=
525: l_rev_sub_resource_rec.schedule_sequence_number ;
526: l_return_status := 'F';
527: RAISE EXC_FAT_QUIT_OBJECT;
528: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
529: THEN
530: l_other_message := 'BOM_SUB_RES_ECOACC_UNEXP_SKIP';
531: l_other_token_tbl(1).token_name := 'SUB_RESOURCE_CODE';
532: l_other_token_tbl(1).token_value :=
539:
540: -- Process Flow step 9(a and b): check that user has access to revised item
541: --
542:
543: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check Revised item access'); END IF;
544: ENG_Validate_Revised_Item.Check_Access
545: ( p_change_notice => l_rev_sub_resource_rec.ECO_Name
546: , p_organization_id => l_rev_sub_res_unexp_rec.organization_id
547: , p_revised_item_id => l_rev_sub_res_unexp_rec.revised_item_id
560: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
561: , x_return_status => l_Return_Status
562: );
563:
564: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
565:
566: IF l_return_status = Error_Handler.G_STATUS_ERROR
567: THEN
568: l_other_message := 'BOM_SUB_RES_RITACC_FAT_FATAL';
562: );
563:
564: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
565:
566: IF l_return_status = Error_Handler.G_STATUS_ERROR
567: THEN
568: l_other_message := 'BOM_SUB_RES_RITACC_FAT_FATAL';
569: l_other_token_tbl(1).token_name := 'SUB_RESOURCE_CODE';
570: l_other_token_tbl(1).token_value :=
573: l_other_token_tbl(2).token_value :=
574: l_rev_sub_resource_rec.schedule_sequence_number ;
575: l_return_status := 'F';
576: RAISE EXC_FAT_QUIT_SIBLINGS;
577: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
578: THEN
579: l_other_message := 'BOM_SUB_RES_RITACC_UNEXP_SKIP';
580: l_other_token_tbl(1).token_name := 'SUB_RESOURCE_CODE';
581: l_other_token_tbl(1).token_value :=
590: -- Process Flow step 10(b) : Check that user has access to revised
591: -- operation
592: -- BOM_Validate_Op_Seq.Check_Access
593:
594: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check Operation sequence item access'); END IF;
595: BOM_Validate_Op_Seq.Check_Access
596: ( p_change_notice => l_rev_sub_resource_rec.ECO_Name
597: , p_organization_id => l_rev_sub_res_unexp_rec.organization_id
598: , p_revised_item_id => l_rev_sub_res_unexp_rec.revised_item_id
618: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
619: , x_return_status => l_Return_Status
620: );
621:
622: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
623:
624: IF l_return_status = Error_Handler.G_STATUS_ERROR
625: THEN
626: l_other_message := 'BOM_SUB_RES_ACCESS_FAT_FATAL';
620: );
621:
622: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
623:
624: IF l_return_status = Error_Handler.G_STATUS_ERROR
625: THEN
626: l_other_message := 'BOM_SUB_RES_ACCESS_FAT_FATAL';
627: l_other_token_tbl(1).token_name := 'SUB_RESOURCE_CODE';
628: l_other_token_tbl(1).token_value :=
631: l_other_token_tbl(2).token_value :=
632: l_rev_sub_resource_rec.schedule_sequence_number ;
633: l_return_status := 'F';
634: RAISE EXC_FAT_QUIT_OBJECT;
635: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
636: THEN
637: l_other_message := 'BOM_SUB_RES_ACCESS_UNEXP_SKIP';
638: l_other_token_tbl(1).token_name := 'SUB_RESOURCE_CODE';
639: l_other_token_tbl(1).token_value :=
659: , x_mesg_token_tbl => l_mesg_token_tbl
660: , x_return_status => l_return_status
661: ) ;
662:
663: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
664: ('Check non-ref operation completed with return_status: '
665: || l_return_status) ;
666: END IF;
667:
664: ('Check non-ref operation completed with return_status: '
665: || l_return_status) ;
666: END IF;
667:
668: IF l_return_status = Error_Handler.G_STATUS_ERROR
669: THEN
670: IF l_rev_sub_resource_rec.operation_type IN (2, 3) -- Process or Line Op
671: THEN
672:
679: l_token_tbl(3).token_name := 'OP_SEQ_NUMBER';
680: l_token_tbl(3).token_value :=
681: l_rev_sub_resource_rec.operation_sequence_number ;
682:
683: Error_Handler.Add_Error_Token
684: ( p_Message_Name => 'BOM_SUB_RES_OPTYPE_NOT_EVENT'
685: , p_mesg_token_tbl => l_mesg_token_tbl
686: , x_mesg_token_tbl => l_mesg_token_tbl
687: , p_Token_Tbl => l_token_tbl
697: l_token_tbl(3).token_name := 'OP_SEQ_NUMBER';
698: l_token_tbl(3).token_value :=
699: l_rev_sub_resource_rec.operation_sequence_number ;
700:
701: Error_Handler.Add_Error_Token
702: ( p_Message_Name => 'BOM_SUB_RES_MUST_NONREF'
703: , p_mesg_token_tbl => l_mesg_token_tbl
704: , x_mesg_token_tbl => l_mesg_token_tbl
705: , p_Token_Tbl => l_token_tbl
717: l_rev_sub_resource_rec.schedule_sequence_number ;
718:
719: RAISE EXC_FAT_QUIT_SIBLINGS ;
720:
721: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
722: THEN
723: l_other_message := 'BOM_SUB_RES_ACCESS_UNEXP_SKIP';
724: l_other_token_tbl(1).token_name := 'SUB_RESOURCE_CODE';
725: l_other_token_tbl(1).token_value :=
743: , x_mesg_token_tbl => l_mesg_token_tbl
744: , x_return_status => l_return_status
745: );
746:
747: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
748: ('Value-id conversions completed with return_status: ' || l_return_status) ;
749: END IF ;
750:
751: IF l_return_status = Error_Handler.G_STATUS_ERROR
747: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
748: ('Value-id conversions completed with return_status: ' || l_return_status) ;
749: END IF ;
750:
751: IF l_return_status = Error_Handler.G_STATUS_ERROR
752: THEN
753: IF l_rev_sub_resource_rec.transaction_type = 'CREATE'
754: THEN
755: l_other_message := 'BOM_SUB_RES_VID_CSEV_SKIP';
763: ELSE
764: RAISE EXC_SEV_QUIT_RECORD ;
765: END IF ;
766:
767: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
768: THEN
769: l_other_message := 'BOM_SUB_RES_VID_UNEXP_SKIP';
770: l_other_token_tbl(1).token_name := 'SUB_RESOURCE_CODE';
771: l_other_token_tbl(1).token_value :=
776: RAISE EXC_UNEXP_SKIP_OBJECT;
777:
778: ELSIF l_return_status ='S' AND l_mesg_token_tbl.COUNT <> 0
779: THEN
780: ECO_Error_Handler.Log_Error
781: (
782: p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
783: , p_mesg_token_tbl => l_mesg_token_tbl
784: , p_error_status => 'W'
781: (
782: p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
783: , p_mesg_token_tbl => l_mesg_token_tbl
784: , p_error_status => 'W'
785: , p_error_level => ECO_Error_Handler.G_SR_LEVEL
786: , p_entity_index => I
787: , x_eco_rec => l_ECO_rec
788: , x_eco_revision_tbl => l_eco_revision_tbl
789: , x_revised_item_tbl => l_revised_item_tbl
819: , x_return_status => l_return_status
820: , x_mesg_token_tbl => l_mesg_token_tbl
821: ) ;
822:
823: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
824: ('Attribute validation completed with return_status: ' ||
825: l_return_status) ;
826: END IF ;
827:
824: ('Attribute validation completed with return_status: ' ||
825: l_return_status) ;
826: END IF ;
827:
828: IF l_return_status = Error_Handler.G_STATUS_ERROR
829: THEN
830: IF l_rev_sub_resource_rec.transaction_type = Bom_Rtg_Globals.G_OPR_CREATE
831: THEN
832: l_other_message := 'BOM_SUB_RES_ATTVAL_CSEV_SKIP';
839: RAISE EXC_SEV_SKIP_BRANCH ;
840: ELSE
841: RAISE EXC_SEV_QUIT_RECORD ;
842: END IF;
843: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
844: THEN
845: l_other_message := 'BOM_SUB_RES_ATTVAL_UNEXP_SKIP';
846: l_other_token_tbl(1).token_name := 'SUB_RESOURCE_CODE';
847: l_other_token_tbl(1).token_value :=
851: l_rev_sub_resource_rec.schedule_sequence_number ;
852: RAISE EXC_UNEXP_SKIP_OBJECT ;
853: ELSIF l_return_status ='S' AND l_mesg_token_tbl.COUNT <> 0
854: THEN
855: ECO_Error_Handler.Log_Error
856: (
857: p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
858: , p_mesg_token_tbl => l_mesg_token_tbl
859: , p_error_status => 'W'
856: (
857: p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
858: , p_mesg_token_tbl => l_mesg_token_tbl
859: , p_error_status => 'W'
860: , p_error_level => ECO_Error_Handler.G_SR_LEVEL
861: , p_entity_index => I
862: , x_eco_rec => l_ECO_rec
863: , x_eco_revision_tbl => l_eco_revision_tbl
864: , x_revised_item_tbl => l_revised_item_tbl
880: -- Process flow step 16: Populate NULL columns for Update and Delete
881: -- Call Bom_Default_Op_Res.Populate_Null_Columns
882: --
883:
884: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Populate NULL columns') ;
885: END IF ;
886:
887: Bom_Default_Sub_Op_Res.Populate_Null_Columns
888: ( p_rev_sub_resource_rec => l_rev_sub_resource_rec
900: -- Process Flow step 18 : Default missing values for Sub Op Resource (CREATE)
901: -- Call Bom_Default_Op_Res.Attribute_Defaulting
902: --
903:
904: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Attribute Defaulting') ;
905: END IF ;
906:
907: Bom_Default_Sub_Op_Res.Attribute_Defaulting
908: ( p_rev_sub_resource_rec => l_rev_sub_resource_rec
914: , x_return_status => l_return_status
915: ) ;
916:
917:
918: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
919: ('Attribute Defaulting completed with return_status: ' || l_return_status) ;
920: END IF ;
921:
922: IF l_return_status = Error_Handler.G_STATUS_ERROR
918: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
919: ('Attribute Defaulting completed with return_status: ' || l_return_status) ;
920: END IF ;
921:
922: IF l_return_status = Error_Handler.G_STATUS_ERROR
923: THEN
924: l_other_message := 'BOM_SUB_RES_ATTDEF_CSEV_SKIP';
925: l_other_token_tbl(1).token_name := 'SUB_RESOURCE_CODE';
926: l_other_token_tbl(1).token_value:=
929: l_other_token_tbl(2).token_value:=
930: l_rev_sub_resource_rec.schedule_sequence_number ;
931: RAISE EXC_SEV_SKIP_BRANCH ;
932:
933: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
934: THEN
935: l_other_message := 'BOM_SUB_RES_ATTDEF_UNEXP_SKIP';
936: l_other_token_tbl(1).token_name := 'SUB_RESOURCE_CODE';
937: l_other_token_tbl(1).token_value:=
941: l_rev_sub_resource_rec.schedule_sequence_number;
942: RAISE EXC_UNEXP_SKIP_OBJECT ;
943: ELSIF l_return_status ='S' AND l_mesg_token_tbl.COUNT <> 0
944: THEN
945: ECO_Error_Handler.Log_Error
946: ( p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
947: , p_mesg_token_tbl => l_mesg_token_tbl
948: , p_error_status => 'W'
949: , p_error_level => Error_Handler.G_SR_LEVEL
945: ECO_Error_Handler.Log_Error
946: ( p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
947: , p_mesg_token_tbl => l_mesg_token_tbl
948: , p_error_status => 'W'
949: , p_error_level => Error_Handler.G_SR_LEVEL
950: , p_entity_index => I
951: , x_ECO_rec => l_ECO_rec
952: , x_eco_revision_tbl => l_eco_revision_tbl
953: , x_revised_item_tbl => l_revised_item_tbl
970: -- Process Flow step 18: Entity defaulting for CREATE and UPDATE
971: --
972:
973:
974: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Entity defaulting') ;
975: END IF ;
976: IF l_rev_sub_resource_rec.transaction_type IN ( Bom_Rtg_Globals.G_OPR_CREATE
977: , Bom_Rtg_Globals.G_OPR_UPDATE )
978: THEN
985: , x_mesg_token_tbl => l_mesg_token_tbl
986: , x_return_status => l_return_status
987: ) ;
988:
989: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
990: ('Entity defaulting completed with return_status: ' || l_return_status) ;
991: END IF ;
992:
993: IF l_return_status = Error_Handler.G_STATUS_ERROR
989: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
990: ('Entity defaulting completed with return_status: ' || l_return_status) ;
991: END IF ;
992:
993: IF l_return_status = Error_Handler.G_STATUS_ERROR
994: THEN
995: IF l_rev_sub_resource_rec.transaction_type = Bom_Rtg_Globals.G_OPR_CREATE
996: THEN
997: l_other_message := 'BOM_SUB_RES_ENTDEF_CSEV_SKIP';
1004: RAISE EXC_SEV_SKIP_BRANCH ;
1005: ELSE
1006: RAISE EXC_SEV_QUIT_RECORD ;
1007: END IF;
1008: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
1009: THEN
1010: l_other_message := 'BOM_SUB_RES_ENTDEF_UNEXP_SKIP';
1011: l_other_token_tbl(1).token_name := 'SUB_RESOURCE_CODE';
1012: l_other_token_tbl(1).token_value :=
1016: l_rev_sub_resource_rec.schedule_sequence_number ;
1017: RAISE EXC_UNEXP_SKIP_OBJECT ;
1018: ELSIF l_return_status ='S' AND l_mesg_token_tbl.COUNT <> 0
1019: THEN
1020: ECO_Error_Handler.Log_Error
1021: ( p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
1022: , p_mesg_token_tbl => l_mesg_token_tbl
1023: , p_error_status => 'W'
1024: , p_error_level => ECO_Error_Handler.G_SR_LEVEL
1020: ECO_Error_Handler.Log_Error
1021: ( p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
1022: , p_mesg_token_tbl => l_mesg_token_tbl
1023: , p_error_status => 'W'
1024: , p_error_level => ECO_Error_Handler.G_SR_LEVEL
1025: , p_entity_index => I
1026: , x_ECO_rec => l_ECO_rec
1027: , x_eco_revision_tbl => l_eco_revision_tbl
1028: , x_revised_item_tbl => l_revised_item_tbl
1042: -- Call Bom_Validate_Op_Res.Check_Entity
1043: --
1044:
1045: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN
1046: Error_Handler.Write_Debug('Starting Entity Validation for Sub Op Resources . . . ') ;
1047: END IF ;
1048:
1049: Bom_Validate_Sub_Op_Res.Check_Entity
1050: ( p_rev_sub_resource_rec => l_rev_sub_resource_rec
1057: , x_mesg_token_tbl => l_mesg_token_tbl
1058: , x_return_status => l_return_status
1059: ) ;
1060:
1061: IF l_return_status = Error_Handler.G_STATUS_ERROR
1062: THEN
1063: IF l_rev_sub_resource_rec.transaction_type = Bom_Rtg_Globals.G_OPR_CREATE
1064: THEN
1065: l_other_message := 'BOM_SUB_RES_ENTVAL_CSEV_SKIP';
1072: RAISE EXC_SEV_SKIP_BRANCH ;
1073: ELSE
1074: RAISE EXC_SEV_QUIT_RECORD ;
1075: END IF;
1076: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
1077: THEN
1078: l_other_message := 'BOM_SUB_RES_ENTVAL_UNEXP_SKIP';
1079: l_other_token_tbl(1).token_name := 'SUB_RESOURCE_CODE';
1080: l_other_token_tbl(1).token_value :=
1084: l_rev_sub_resource_rec.schedule_sequence_number ;
1085: RAISE EXC_UNEXP_SKIP_OBJECT ;
1086: ELSIF l_return_status ='S' AND l_mesg_token_tbl.COUNT <> 0
1087: THEN
1088: ECO_Error_Handler.Log_Error
1089: ( p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
1090: , p_mesg_token_tbl => l_mesg_token_tbl
1091: , p_error_status => 'W'
1092: , p_error_level => ECO_Error_Handler.G_SR_LEVEL
1088: ECO_Error_Handler.Log_Error
1089: ( p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
1090: , p_mesg_token_tbl => l_mesg_token_tbl
1091: , p_error_status => 'W'
1092: , p_error_level => ECO_Error_Handler.G_SR_LEVEL
1093: , p_entity_index => I
1094: , x_ECO_rec => l_ECO_rec
1095: , x_eco_revision_tbl => l_eco_revision_tbl
1096: , x_revised_item_tbl => l_revised_item_tbl
1102: , x_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
1103: ) ;
1104: END IF;
1105:
1106: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Entity validation completed with '
1107: || l_return_Status || ' proceeding for database writes . . . ') ;
1108: END IF;
1109:
1110: --
1117: , x_mesg_token_tbl => l_mesg_token_tbl
1118: , x_return_status => l_return_status
1119: ) ;
1120:
1121: IF l_return_status = ECo_Error_Handler.G_STATUS_UNEXPECTED
1122: THEN
1123: l_other_message := 'BOM_SUB_RES_WRITES_UNEXP_SKIP';
1124: l_other_token_tbl(1).token_name := 'SUB_RESOURCE_CODE';
1125: l_other_token_tbl(1).token_value :=
1130: RAISE EXC_UNEXP_SKIP_OBJECT ;
1131: ELSIF l_return_status ='S' AND
1132: l_mesg_token_tbl.COUNT <>0
1133: THEN
1134: ECO_Error_Handler.Log_Error
1135: ( p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
1136: , p_mesg_token_tbl => l_mesg_token_tbl
1137: , p_error_status => 'W'
1138: , p_error_level => ECO_Error_Handler.G_SR_LEVEL
1134: ECO_Error_Handler.Log_Error
1135: ( p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
1136: , p_mesg_token_tbl => l_mesg_token_tbl
1137: , p_error_status => 'W'
1138: , p_error_level => ECO_Error_Handler.G_SR_LEVEL
1139: , p_entity_index => I
1140: , x_ECO_rec => l_ECO_rec
1141: , x_eco_revision_tbl => l_eco_revision_tbl
1142: , x_revised_item_tbl => l_revised_item_tbl
1148: , x_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
1149: ) ;
1150: END IF;
1151:
1152: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Database writes completed with status ' || l_return_status);
1153: END IF;
1154:
1155:
1156: END IF; -- END IF statement that checks RETURN STATUS
1162: -- For loop exception handler.
1163:
1164: EXCEPTION
1165: WHEN EXC_SEV_QUIT_RECORD THEN
1166: ECO_Error_Handler.Log_Error
1167: ( p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
1168: , p_mesg_token_tbl => l_mesg_token_tbl
1169: , p_error_status => FND_API.G_RET_STS_ERROR
1170: , p_error_scope => Error_Handler.G_SCOPE_RECORD
1166: ECO_Error_Handler.Log_Error
1167: ( p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
1168: , p_mesg_token_tbl => l_mesg_token_tbl
1169: , p_error_status => FND_API.G_RET_STS_ERROR
1170: , p_error_scope => Error_Handler.G_SCOPE_RECORD
1171: , p_error_level => ECO_Error_Handler.G_SR_LEVEL
1172: , p_entity_index => I
1173: , x_ECO_rec => l_ECO_rec
1174: , x_eco_revision_tbl => l_eco_revision_tbl
1167: ( p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
1168: , p_mesg_token_tbl => l_mesg_token_tbl
1169: , p_error_status => FND_API.G_RET_STS_ERROR
1170: , p_error_scope => Error_Handler.G_SCOPE_RECORD
1171: , p_error_level => ECO_Error_Handler.G_SR_LEVEL
1172: , p_entity_index => I
1173: , x_ECO_rec => l_ECO_rec
1174: , x_eco_revision_tbl => l_eco_revision_tbl
1175: , x_revised_item_tbl => l_revised_item_tbl
1193:
1194:
1195: WHEN EXC_SEV_QUIT_BRANCH THEN
1196:
1197: ECO_Error_Handler.Log_Error
1198: ( p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
1199: , p_mesg_token_tbl => l_mesg_token_tbl
1200: , p_error_status => Error_Handler.G_STATUS_ERROR
1201: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
1196:
1197: ECO_Error_Handler.Log_Error
1198: ( p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
1199: , p_mesg_token_tbl => l_mesg_token_tbl
1200: , p_error_status => Error_Handler.G_STATUS_ERROR
1201: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
1202: , p_other_status => ECo_Error_Handler.G_STATUS_ERROR
1203: , p_other_message => l_other_message
1204: , p_other_token_tbl => l_other_token_tbl
1197: ECO_Error_Handler.Log_Error
1198: ( p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
1199: , p_mesg_token_tbl => l_mesg_token_tbl
1200: , p_error_status => Error_Handler.G_STATUS_ERROR
1201: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
1202: , p_other_status => ECo_Error_Handler.G_STATUS_ERROR
1203: , p_other_message => l_other_message
1204: , p_other_token_tbl => l_other_token_tbl
1205: , p_error_level => ECO_Error_Handler.G_SR_LEVEL
1198: ( p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
1199: , p_mesg_token_tbl => l_mesg_token_tbl
1200: , p_error_status => Error_Handler.G_STATUS_ERROR
1201: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
1202: , p_other_status => ECo_Error_Handler.G_STATUS_ERROR
1203: , p_other_message => l_other_message
1204: , p_other_token_tbl => l_other_token_tbl
1205: , p_error_level => ECO_Error_Handler.G_SR_LEVEL
1206: , p_entity_index => I
1201: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
1202: , p_other_status => ECo_Error_Handler.G_STATUS_ERROR
1203: , p_other_message => l_other_message
1204: , p_other_token_tbl => l_other_token_tbl
1205: , p_error_level => ECO_Error_Handler.G_SR_LEVEL
1206: , p_entity_index => I
1207: , x_ECO_rec => l_ECO_rec
1208: , x_eco_revision_tbl => l_eco_revision_tbl
1209: , x_revised_item_tbl => l_revised_item_tbl
1225: x_mesg_token_tbl := l_mesg_token_tbl ;
1226: --x_rev_sub_resource_tbl := l_rev_sub_resource_tbl ;
1227:
1228: WHEN EXC_SEV_SKIP_BRANCH THEN
1229: ECO_Error_Handler.Log_Error
1230: ( p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
1231: , p_mesg_token_tbl => l_mesg_token_tbl
1232: , p_error_status => Error_Handler.G_STATUS_ERROR
1233: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
1228: WHEN EXC_SEV_SKIP_BRANCH THEN
1229: ECO_Error_Handler.Log_Error
1230: ( p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
1231: , p_mesg_token_tbl => l_mesg_token_tbl
1232: , p_error_status => Error_Handler.G_STATUS_ERROR
1233: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
1234: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
1235: , p_other_message => l_other_message
1236: , p_other_token_tbl => l_other_token_tbl
1229: ECO_Error_Handler.Log_Error
1230: ( p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
1231: , p_mesg_token_tbl => l_mesg_token_tbl
1232: , p_error_status => Error_Handler.G_STATUS_ERROR
1233: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
1234: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
1235: , p_other_message => l_other_message
1236: , p_other_token_tbl => l_other_token_tbl
1237: , p_error_level => ECO_Error_Handler.G_SR_LEVEL
1230: ( p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
1231: , p_mesg_token_tbl => l_mesg_token_tbl
1232: , p_error_status => Error_Handler.G_STATUS_ERROR
1233: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
1234: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
1235: , p_other_message => l_other_message
1236: , p_other_token_tbl => l_other_token_tbl
1237: , p_error_level => ECO_Error_Handler.G_SR_LEVEL
1238: , p_entity_index => I
1233: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
1234: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
1235: , p_other_message => l_other_message
1236: , p_other_token_tbl => l_other_token_tbl
1237: , p_error_level => ECO_Error_Handler.G_SR_LEVEL
1238: , p_entity_index => I
1239: , x_ECO_rec => l_ECO_rec
1240: , x_eco_revision_tbl => l_eco_revision_tbl
1241: , x_revised_item_tbl => l_revised_item_tbl
1255: x_mesg_token_tbl := l_mesg_token_tbl ;
1256: --x_rev_sub_resource_tbl := l_rev_sub_resource_tbl ;
1257:
1258: WHEN EXC_SEV_QUIT_SIBLINGS THEN
1259: ECO_Error_Handler.Log_Error
1260: ( p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
1261: , p_mesg_token_tbl => l_mesg_token_tbl
1262: , p_error_status => Error_Handler.G_STATUS_ERROR
1263: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
1258: WHEN EXC_SEV_QUIT_SIBLINGS THEN
1259: ECO_Error_Handler.Log_Error
1260: ( p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
1261: , p_mesg_token_tbl => l_mesg_token_tbl
1262: , p_error_status => Error_Handler.G_STATUS_ERROR
1263: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
1264: , p_other_status => Error_Handler.G_STATUS_ERROR
1265: , p_other_message => l_other_message
1266: , p_other_token_tbl => l_other_token_tbl
1259: ECO_Error_Handler.Log_Error
1260: ( p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
1261: , p_mesg_token_tbl => l_mesg_token_tbl
1262: , p_error_status => Error_Handler.G_STATUS_ERROR
1263: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
1264: , p_other_status => Error_Handler.G_STATUS_ERROR
1265: , p_other_message => l_other_message
1266: , p_other_token_tbl => l_other_token_tbl
1267: , p_error_level => ECO_Error_Handler.G_SR_LEVEL
1260: ( p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
1261: , p_mesg_token_tbl => l_mesg_token_tbl
1262: , p_error_status => Error_Handler.G_STATUS_ERROR
1263: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
1264: , p_other_status => Error_Handler.G_STATUS_ERROR
1265: , p_other_message => l_other_message
1266: , p_other_token_tbl => l_other_token_tbl
1267: , p_error_level => ECO_Error_Handler.G_SR_LEVEL
1268: , p_entity_index => I
1263: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
1264: , p_other_status => Error_Handler.G_STATUS_ERROR
1265: , p_other_message => l_other_message
1266: , p_other_token_tbl => l_other_token_tbl
1267: , p_error_level => ECO_Error_Handler.G_SR_LEVEL
1268: , p_entity_index => I
1269: , x_ECO_rec => l_ECO_rec
1270: , x_eco_revision_tbl => l_eco_revision_tbl
1271: , x_revised_item_tbl => l_revised_item_tbl
1286: --x_rev_sub_resource_tbl := l_rev_sub_resource_tbl ;
1287:
1288:
1289: WHEN EXC_FAT_QUIT_BRANCH THEN
1290: ECO_Error_Handler.Log_Error
1291: ( p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
1292: , p_mesg_token_tbl => l_mesg_token_tbl
1293: , p_error_status => Error_Handler.G_STATUS_FATAL
1294: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
1289: WHEN EXC_FAT_QUIT_BRANCH THEN
1290: ECO_Error_Handler.Log_Error
1291: ( p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
1292: , p_mesg_token_tbl => l_mesg_token_tbl
1293: , p_error_status => Error_Handler.G_STATUS_FATAL
1294: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
1295: , p_other_status => Error_Handler.G_STATUS_FATAL
1296: , p_other_message => l_other_message
1297: , p_other_token_tbl => l_other_token_tbl
1290: ECO_Error_Handler.Log_Error
1291: ( p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
1292: , p_mesg_token_tbl => l_mesg_token_tbl
1293: , p_error_status => Error_Handler.G_STATUS_FATAL
1294: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
1295: , p_other_status => Error_Handler.G_STATUS_FATAL
1296: , p_other_message => l_other_message
1297: , p_other_token_tbl => l_other_token_tbl
1298: , p_error_level => ECO_Error_Handler.G_SR_LEVEL
1291: ( p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
1292: , p_mesg_token_tbl => l_mesg_token_tbl
1293: , p_error_status => Error_Handler.G_STATUS_FATAL
1294: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
1295: , p_other_status => Error_Handler.G_STATUS_FATAL
1296: , p_other_message => l_other_message
1297: , p_other_token_tbl => l_other_token_tbl
1298: , p_error_level => ECO_Error_Handler.G_SR_LEVEL
1299: , p_entity_index => I
1294: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
1295: , p_other_status => Error_Handler.G_STATUS_FATAL
1296: , p_other_message => l_other_message
1297: , p_other_token_tbl => l_other_token_tbl
1298: , p_error_level => ECO_Error_Handler.G_SR_LEVEL
1299: , p_entity_index => I
1300: , x_ECO_rec => l_ECO_rec
1301: , x_eco_revision_tbl => l_eco_revision_tbl
1302: , x_revised_item_tbl => l_revised_item_tbl
1307: , x_rev_op_resource_tbl => l_rev_op_resource_tbl
1308: , x_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
1309: ) ;
1310:
1311: x_return_status := Error_Handler.G_STATUS_FATAL;
1312: x_mesg_token_tbl := l_mesg_token_tbl ;
1313: --x_rev_sub_resource_tbl := l_rev_sub_resource_tbl ;
1314:
1315:
1313: --x_rev_sub_resource_tbl := l_rev_sub_resource_tbl ;
1314:
1315:
1316: WHEN EXC_FAT_QUIT_SIBLINGS THEN
1317: ECO_Error_Handler.Log_Error
1318: ( p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
1319: , p_mesg_token_tbl => l_mesg_token_tbl
1320: , p_error_status => Error_Handler.G_STATUS_FATAL
1321: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
1316: WHEN EXC_FAT_QUIT_SIBLINGS THEN
1317: ECO_Error_Handler.Log_Error
1318: ( p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
1319: , p_mesg_token_tbl => l_mesg_token_tbl
1320: , p_error_status => Error_Handler.G_STATUS_FATAL
1321: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
1322: , p_other_status => Error_Handler.G_STATUS_FATAL
1323: , p_other_message => l_other_message
1324: , p_other_token_tbl => l_other_token_tbl
1317: ECO_Error_Handler.Log_Error
1318: ( p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
1319: , p_mesg_token_tbl => l_mesg_token_tbl
1320: , p_error_status => Error_Handler.G_STATUS_FATAL
1321: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
1322: , p_other_status => Error_Handler.G_STATUS_FATAL
1323: , p_other_message => l_other_message
1324: , p_other_token_tbl => l_other_token_tbl
1325: , p_error_level => ECO_Error_Handler.G_SR_LEVEL
1318: ( p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
1319: , p_mesg_token_tbl => l_mesg_token_tbl
1320: , p_error_status => Error_Handler.G_STATUS_FATAL
1321: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
1322: , p_other_status => Error_Handler.G_STATUS_FATAL
1323: , p_other_message => l_other_message
1324: , p_other_token_tbl => l_other_token_tbl
1325: , p_error_level => ECO_Error_Handler.G_SR_LEVEL
1326: , p_entity_index => I
1321: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
1322: , p_other_status => Error_Handler.G_STATUS_FATAL
1323: , p_other_message => l_other_message
1324: , p_other_token_tbl => l_other_token_tbl
1325: , p_error_level => ECO_Error_Handler.G_SR_LEVEL
1326: , p_entity_index => I
1327: , x_ECO_rec => l_ECO_rec
1328: , x_eco_revision_tbl => l_eco_revision_tbl
1329: , x_revised_item_tbl => l_revised_item_tbl
1334: , x_rev_op_resource_tbl => l_rev_op_resource_tbl
1335: , x_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
1336: ) ;
1337:
1338: x_return_status := Error_Handler.G_STATUS_FATAL;
1339: x_mesg_token_tbl := l_mesg_token_tbl ;
1340: --x_rev_sub_resource_tbl := l_rev_sub_resource_tbl ;
1341:
1342: WHEN EXC_FAT_QUIT_OBJECT THEN
1339: x_mesg_token_tbl := l_mesg_token_tbl ;
1340: --x_rev_sub_resource_tbl := l_rev_sub_resource_tbl ;
1341:
1342: WHEN EXC_FAT_QUIT_OBJECT THEN
1343: ECO_Error_Handler.Log_Error
1344: ( p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
1345: , p_mesg_token_tbl => l_mesg_token_tbl
1346: , p_error_status => Error_Handler.G_STATUS_FATAL
1347: , p_error_scope => Error_Handler.G_SCOPE_ALL
1342: WHEN EXC_FAT_QUIT_OBJECT THEN
1343: ECO_Error_Handler.Log_Error
1344: ( p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
1345: , p_mesg_token_tbl => l_mesg_token_tbl
1346: , p_error_status => Error_Handler.G_STATUS_FATAL
1347: , p_error_scope => Error_Handler.G_SCOPE_ALL
1348: , p_other_status => Error_Handler.G_STATUS_FATAL
1349: , p_other_message => l_other_message
1350: , p_other_token_tbl => l_other_token_tbl
1343: ECO_Error_Handler.Log_Error
1344: ( p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
1345: , p_mesg_token_tbl => l_mesg_token_tbl
1346: , p_error_status => Error_Handler.G_STATUS_FATAL
1347: , p_error_scope => Error_Handler.G_SCOPE_ALL
1348: , p_other_status => Error_Handler.G_STATUS_FATAL
1349: , p_other_message => l_other_message
1350: , p_other_token_tbl => l_other_token_tbl
1351: , p_error_level => ECO_Error_Handler.G_SR_LEVEL
1344: ( p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
1345: , p_mesg_token_tbl => l_mesg_token_tbl
1346: , p_error_status => Error_Handler.G_STATUS_FATAL
1347: , p_error_scope => Error_Handler.G_SCOPE_ALL
1348: , p_other_status => Error_Handler.G_STATUS_FATAL
1349: , p_other_message => l_other_message
1350: , p_other_token_tbl => l_other_token_tbl
1351: , p_error_level => ECO_Error_Handler.G_SR_LEVEL
1352: , p_entity_index => I
1347: , p_error_scope => Error_Handler.G_SCOPE_ALL
1348: , p_other_status => Error_Handler.G_STATUS_FATAL
1349: , p_other_message => l_other_message
1350: , p_other_token_tbl => l_other_token_tbl
1351: , p_error_level => ECO_Error_Handler.G_SR_LEVEL
1352: , p_entity_index => I
1353: , x_ECO_rec => l_ECO_rec
1354: , x_eco_revision_tbl => l_eco_revision_tbl
1355: , x_revised_item_tbl => l_revised_item_tbl
1365: x_mesg_token_tbl := l_mesg_token_tbl ;
1366: --x_rev_sub_resource_tbl := l_rev_sub_resource_tbl ;
1367:
1368: WHEN EXC_UNEXP_SKIP_OBJECT THEN
1369: ECO_Error_Handler.Log_Error
1370: ( p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
1371: , p_mesg_token_tbl => l_mesg_token_tbl
1372: , p_error_status => Error_Handler.G_STATUS_UNEXPECTED
1373: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
1368: WHEN EXC_UNEXP_SKIP_OBJECT THEN
1369: ECO_Error_Handler.Log_Error
1370: ( p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
1371: , p_mesg_token_tbl => l_mesg_token_tbl
1372: , p_error_status => Error_Handler.G_STATUS_UNEXPECTED
1373: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
1374: , p_other_message => l_other_message
1375: , p_other_token_tbl => l_other_token_tbl
1376: , p_error_level => ECO_Error_Handler.G_SR_LEVEL
1369: ECO_Error_Handler.Log_Error
1370: ( p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
1371: , p_mesg_token_tbl => l_mesg_token_tbl
1372: , p_error_status => Error_Handler.G_STATUS_UNEXPECTED
1373: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
1374: , p_other_message => l_other_message
1375: , p_other_token_tbl => l_other_token_tbl
1376: , p_error_level => ECO_Error_Handler.G_SR_LEVEL
1377: , x_ECO_rec => l_ECO_rec
1372: , p_error_status => Error_Handler.G_STATUS_UNEXPECTED
1373: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
1374: , p_other_message => l_other_message
1375: , p_other_token_tbl => l_other_token_tbl
1376: , p_error_level => ECO_Error_Handler.G_SR_LEVEL
1377: , x_ECO_rec => l_ECO_rec
1378: , x_eco_revision_tbl => l_eco_revision_tbl
1379: , x_revised_item_tbl => l_revised_item_tbl
1380: , x_rev_component_tbl => l_rev_component_tbl
1438: , p_rev_op_resource_tbl IN Bom_Rtg_Pub.Rev_Op_Resource_Tbl_Type
1439: , p_rev_sub_resource_tbl IN Bom_Rtg_Pub.Rev_Sub_Resource_Tbl_Type
1440: , x_rev_op_resource_tbl IN OUT NOCOPY Bom_Rtg_Pub.Rev_Op_Resource_Tbl_Type
1441: , x_rev_sub_resource_tbl IN OUT NOCOPY Bom_Rtg_Pub.Rev_Sub_Resource_Tbl_Type
1442: , x_mesg_token_tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1443: , x_return_status OUT NOCOPY VARCHAR2
1444: )
1445: IS
1446:
1469: -- := p_rev_sub_resource_tbl ;
1470:
1471:
1472: /* Error Handling Variables */
1473: l_token_tbl Error_Handler.Token_Tbl_Type ;
1474: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type ;
1475: l_other_token_tbl Error_Handler.Token_Tbl_Type;
1476: l_other_message VARCHAR2(2000);
1477: l_err_text VARCHAR2(2000);
1470:
1471:
1472: /* Error Handling Variables */
1473: l_token_tbl Error_Handler.Token_Tbl_Type ;
1474: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type ;
1475: l_other_token_tbl Error_Handler.Token_Tbl_Type;
1476: l_other_message VARCHAR2(2000);
1477: l_err_text VARCHAR2(2000);
1478:
1471:
1472: /* Error Handling Variables */
1473: l_token_tbl Error_Handler.Token_Tbl_Type ;
1474: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type ;
1475: l_other_token_tbl Error_Handler.Token_Tbl_Type;
1476: l_other_message VARCHAR2(2000);
1477: l_err_text VARCHAR2(2000);
1478:
1479:
1484: l_item_parent_exists BOOLEAN := FALSE;
1485: l_process_children BOOLEAN := TRUE;
1486: l_valid BOOLEAN := TRUE;
1487:
1488: /* Error handler definations */
1489: EXC_SEV_QUIT_RECORD EXCEPTION ;
1490: EXC_SEV_QUIT_BRANCH EXCEPTION ;
1491: EXC_UNEXP_SKIP_OBJECT EXCEPTION ;
1492: EXC_SEV_QUIT_SIBLINGS EXCEPTION ;
1553: -- Process Flow Step 2: Check if record has not yet been processed and
1554: -- that it is the child of the parent that called this procedure
1555: --
1556:
1557: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1558: ('ECO Name: ' || p_change_notice ||
1559: ' Org: ' || p_organization_id ||
1560: ' Eff. Dt: ' || to_char(p_effectivity_date) ||
1561: ' Revision: ' || p_item_revision ||
1662: , x_mesg_token_tbl => l_mesg_token_tbl
1663: , x_return_status => l_return_status
1664: ) ;
1665:
1666: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1667: ('Convert to User Unique Index to Index1 completed with return_status: ' || l_return_status) ;
1668: END IF;
1669:
1670: IF l_return_status = Error_Handler.G_STATUS_ERROR
1666: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1667: ('Convert to User Unique Index to Index1 completed with return_status: ' || l_return_status) ;
1668: END IF;
1669:
1670: IF l_return_status = Error_Handler.G_STATUS_ERROR
1671: THEN
1672: l_other_message := 'BOM_RES_UUI_SEV_ERROR';
1673: l_other_token_tbl(1).token_name := 'RES_SEQ_NUMBER';
1674: l_other_token_tbl(1).token_value :=
1674: l_other_token_tbl(1).token_value :=
1675: l_rev_op_resource_rec.resource_sequence_number ;
1676: RAISE EXC_SEV_QUIT_BRANCH ;
1677:
1678: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
1679: THEN
1680: l_other_message := 'BOM_RES_UUI_UNEXP_SKIP';
1681: l_other_token_tbl(1).token_name := 'RES_SEQ_NUMBER';
1682: l_other_token_tbl(1).token_value :=
1707: , x_other_token_tbl => l_other_token_tbl
1708: , x_Return_Status => l_return_status
1709: ) ;
1710:
1711: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1712: ('Convert to User Unique Index to Index1 for Rtg and Rev Item Seq completed with return_status: ' || l_return_status) ;
1713: END IF;
1714:
1715: IF l_return_status = Error_Handler.G_STATUS_ERROR
1711: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1712: ('Convert to User Unique Index to Index1 for Rtg and Rev Item Seq completed with return_status: ' || l_return_status) ;
1713: END IF;
1714:
1715: IF l_return_status = Error_Handler.G_STATUS_ERROR
1716: THEN
1717: l_other_message := 'BOM_RES_UUI_SEV_ERROR';
1718: l_other_token_tbl(1).token_name := 'RES_SEQ_NUMBER';
1719: l_other_token_tbl(1).token_value :=
1719: l_other_token_tbl(1).token_value :=
1720: l_rev_op_resource_rec.resource_sequence_number ;
1721: RAISE EXC_SEV_QUIT_BRANCH ;
1722:
1723: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
1724: THEN
1725: l_other_message := 'BOM_RES_UUI_UNEXP_SKIP';
1726: l_other_token_tbl(1).token_name := 'RES_SEQ_NUMBER';
1727: l_other_token_tbl(1).token_value :=
1745: , x_other_token_tbl => l_other_token_tbl
1746: , x_return_status => l_return_status
1747: ) ;
1748:
1749: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1750: ('Convert to User Unique Index to Index2 completed with return_status: ' || l_return_status) ;
1751: END IF;
1752:
1753: IF l_return_status = Error_Handler.G_STATUS_ERROR
1749: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1750: ('Convert to User Unique Index to Index2 completed with return_status: ' || l_return_status) ;
1751: END IF;
1752:
1753: IF l_return_status = Error_Handler.G_STATUS_ERROR
1754: THEN
1755: RAISE EXC_SEV_QUIT_SIBLINGS ;
1756: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
1757: THEN
1752:
1753: IF l_return_status = Error_Handler.G_STATUS_ERROR
1754: THEN
1755: RAISE EXC_SEV_QUIT_SIBLINGS ;
1756: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
1757: THEN
1758: l_other_message := 'BOM_RES_UUI_UNEXP_SKIP';
1759: l_other_token_tbl(1).token_name := 'RES_SEQ_NUMBER';
1760: l_other_token_tbl(1).token_value :=
1776: , x_mesg_token_tbl => l_mesg_token_tbl
1777: , x_return_status => l_return_status
1778: ) ;
1779:
1780: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1781: ('Check Existence completed with return_status: ' || l_return_status) ;
1782: END IF ;
1783:
1784: IF l_return_status = Error_Handler.G_STATUS_ERROR
1780: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1781: ('Check Existence completed with return_status: ' || l_return_status) ;
1782: END IF ;
1783:
1784: IF l_return_status = Error_Handler.G_STATUS_ERROR
1785: THEN
1786: l_other_message := 'BOM_RES_EXS_SEV_SKIP';
1787: l_other_token_tbl(1).token_name := 'RES_SEQ_NUMBER';
1788: l_other_token_tbl(1).token_value :=
1790: l_other_token_tbl(2).token_name := 'REVISED_ITEM_NAME';
1791: l_other_token_tbl(2).token_value :=
1792: l_rev_op_resource_rec.revised_item_name ;
1793: RAISE EXC_SEV_QUIT_BRANCH;
1794: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
1795: THEN
1796: l_other_message := 'BOM_RES_EXS_UNEXP_SKIP';
1797: l_other_token_tbl(1).token_name := 'RES_SEQ_NUMBER';
1798: l_other_token_tbl(1).token_value :=
1812:
1813: --
1814: -- Process Flow step 7: Check lineage
1815: --
1816: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check lineage'); END IF;
1817:
1818: BOM_Validate_Op_Seq.Check_Lineage
1819: ( p_routing_sequence_id =>
1820: l_rev_op_res_unexp_rec.routing_sequence_id
1829: , x_mesg_token_tbl => l_mesg_token_tbl
1830: , x_return_status => l_return_status
1831: ) ;
1832:
1833: IF l_return_status = Error_Handler.G_STATUS_ERROR
1834: THEN
1835: l_Token_Tbl(1).token_name := 'RES_SEQ_NUMBER' ;
1836: l_Token_Tbl(1).token_value := l_rev_op_resource_rec.resource_sequence_number ;
1837: l_Token_Tbl(2).token_name := 'OP_SEQ_NUMBER' ;
1838: l_Token_Tbl(2).token_value := l_rev_op_resource_rec.operation_sequence_number ;
1839: l_Token_Tbl(3).token_name := 'REVISED_ITEM_NAME' ;
1840: l_Token_Tbl(3).token_value := l_rev_op_resource_rec.revised_item_name;
1841:
1842: Error_Handler.Add_Error_Token
1843: ( p_Message_Name => 'BOM_RES_REV_ITEM_MISMATCH'
1844: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1845: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1846: , p_Token_Tbl => l_Token_Tbl
1852: l_other_token_tbl(1).token_value :=
1853: l_rev_op_resource_rec.resource_sequence_number ;
1854: RAISE EXC_SEV_QUIT_BRANCH;
1855:
1856: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
1857: THEN
1858: l_other_message := 'BOM_RES_LIN_UNEXP_SKIP';
1859: l_other_token_tbl(1).token_name := 'RES_SEQ_NUMBER';
1860: l_other_token_tbl(1).token_value :=
1861: l_rev_op_resource_rec.resource_sequence_number ;
1862: RAISE EXC_UNEXP_SKIP_OBJECT;
1863: END IF;
1864:
1865: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
1866:
1867:
1868: -- Process Flow step 8(a and b): Is ECO impl/cancl, or in wkflw process ?
1869: --
1867:
1868: -- Process Flow step 8(a and b): Is ECO impl/cancl, or in wkflw process ?
1869: --
1870:
1871: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check ECO access'); END IF;
1872:
1873: ENG_Validate_ECO.Check_Access
1874: ( p_change_notice => l_rev_op_resource_rec.ECO_Name
1875: , p_organization_id =>
1878: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1879: , x_Return_Status => l_return_status
1880: );
1881:
1882: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
1883:
1884: IF l_return_status = Error_Handler.G_STATUS_ERROR
1885: THEN
1886: l_other_message := 'BOM_RES_ECOACC_FAT_FATAL' ;
1880: );
1881:
1882: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
1883:
1884: IF l_return_status = Error_Handler.G_STATUS_ERROR
1885: THEN
1886: l_other_message := 'BOM_RES_ECOACC_FAT_FATAL' ;
1887: l_other_token_tbl(1).token_name := 'RES_SEQ_NUMBER';
1888: l_other_token_tbl(1).token_value :=
1888: l_other_token_tbl(1).token_value :=
1889: l_rev_op_resource_rec.operation_sequence_number;
1890: l_return_status := 'F';
1891: RAISE EXC_FAT_QUIT_OBJECT;
1892: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
1893: THEN
1894: l_other_message := 'BOM_RES_ECOACC_UNEXP_SKIP' ;
1895: l_other_token_tbl(1).token_name := 'RES_SEQ_NUMBER';
1896: l_other_token_tbl(1).token_value :=
1901: --
1902: -- Process Flow step 9(a and b): check that user has access to revised item
1903: --
1904:
1905: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check Revised item access'); END IF;
1906: ENG_Validate_Revised_Item.Check_Access
1907: ( p_change_notice => l_rev_op_resource_rec.ECO_Name
1908: , p_organization_id => l_rev_op_res_unexp_rec.organization_id
1909: , p_revised_item_id => l_rev_op_res_unexp_rec.revised_item_id
1923: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1924: , x_return_status => l_Return_Status
1925: );
1926:
1927: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
1928:
1929: IF l_return_status = Error_Handler.G_STATUS_ERROR
1930: THEN
1931: l_other_message := 'BOM_RES_RITACC_FAT_FATAL';
1925: );
1926:
1927: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
1928:
1929: IF l_return_status = Error_Handler.G_STATUS_ERROR
1930: THEN
1931: l_other_message := 'BOM_RES_RITACC_FAT_FATAL';
1932: l_other_token_tbl(1).token_name := 'RES_SEQ_NUMBER';
1933: l_other_token_tbl(1).token_value :=
1933: l_other_token_tbl(1).token_value :=
1934: l_rev_op_resource_rec.resource_sequence_number;
1935: l_return_status := 'F';
1936: RAISE EXC_FAT_QUIT_SIBLINGS;
1937: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
1938: THEN
1939: l_other_message := 'BOM_RES_RITACC_UNEXP_SKIP';
1940: l_other_token_tbl(1).token_name := 'RES_SEQ_NUMBER';
1941: l_other_token_tbl(1).token_value :=
1948: -- Process Flow step 10(b) : Check that user has access to revised
1949: -- operation
1950: -- BOM_Validate_Op_Seq.Check_Access
1951:
1952: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check Operation sequence item access'); END IF;
1953: BOM_Validate_Op_Seq.Check_Access
1954: ( p_change_notice => l_rev_op_resource_rec.ECO_Name
1955: , p_organization_id => l_rev_op_res_unexp_rec.organization_id
1956: , p_revised_item_id => l_rev_op_res_unexp_rec.revised_item_id
1976: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1977: , x_return_status => l_Return_Status
1978: );
1979:
1980: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
1981:
1982: IF l_return_status = Error_Handler.G_STATUS_ERROR
1983: THEN
1984: l_other_message := 'BOM_RES_ACCESS_FAT_FATAL';
1978: );
1979:
1980: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
1981:
1982: IF l_return_status = Error_Handler.G_STATUS_ERROR
1983: THEN
1984: l_other_message := 'BOM_RES_ACCESS_FAT_FATAL';
1985: l_other_token_tbl(1).token_name := 'RES_SEQ_NUMBER';
1986: l_other_token_tbl(1).token_value :=
1986: l_other_token_tbl(1).token_value :=
1987: l_rev_op_resource_rec.resource_sequence_number;
1988: l_return_status := 'F';
1989: RAISE EXC_FAT_QUIT_OBJECT;
1990: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
1991: THEN
1992: l_other_message := 'BOM_RES_ACCESS_UNEXP_SKIP';
1993: l_other_token_tbl(1).token_name := 'RES_SEQ_NUMBER';
1994: l_other_token_tbl(1).token_value :=
2009: , x_mesg_token_tbl => l_mesg_token_tbl
2010: , x_return_status => l_return_status
2011: ) ;
2012:
2013: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2014: ('Check non-ref operation completed with return_status: ' || l_return_status) ;
2015: END IF ;
2016:
2017: IF l_return_status = Error_Handler.G_STATUS_ERROR
2013: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2014: ('Check non-ref operation completed with return_status: ' || l_return_status) ;
2015: END IF ;
2016:
2017: IF l_return_status = Error_Handler.G_STATUS_ERROR
2018: THEN
2019: IF l_rev_op_resource_rec.operation_type IN (2,3) -- Process or Line Op
2020: THEN
2021:
2025: l_token_tbl(2).token_name := 'OP_SEQ_NUMBER';
2026: l_token_tbl(2).token_value :=
2027: l_rev_op_resource_rec.operation_sequence_number ;
2028:
2029: Error_Handler.Add_Error_Token
2030: ( p_Message_Name => 'BOM_RES_OPTYPE_NOT_EVENT'
2031: , p_mesg_token_tbl => l_mesg_token_tbl
2032: , x_mesg_token_tbl => l_mesg_token_tbl
2033: , p_Token_Tbl => l_token_tbl
2040: l_token_tbl(2).token_name := 'OP_SEQ_NUMBER';
2041: l_token_tbl(2).token_value :=
2042: l_rev_op_resource_rec.operation_sequence_number ;
2043:
2044: Error_Handler.Add_Error_Token
2045: ( p_Message_Name => 'BOM_RES_MUST_NONREF'
2046: , p_mesg_token_tbl => l_mesg_token_tbl
2047: , x_mesg_token_tbl => l_mesg_token_tbl
2048: , p_Token_Tbl => l_token_tbl
2057: l_other_token_tbl(1).token_value :=
2058: l_rev_op_resource_rec.resource_sequence_number;
2059: RAISE EXC_FAT_QUIT_SIBLINGS ;
2060:
2061: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
2062: THEN
2063: l_other_message := 'BOM_RES_ACCESS_UNEXP_SKIP';
2064: l_other_token_tbl(1).token_name := 'RES_SEQ_NUMBER';
2065: l_other_token_tbl(1).token_value :=
2079: , x_mesg_token_tbl => l_mesg_token_tbl
2080: , x_return_status => l_return_status
2081: );
2082:
2083: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2084: ('Value-id conversions completed with return_status: ' || l_return_status) ;
2085: END IF ;
2086:
2087: IF l_return_status = Error_Handler.G_STATUS_ERROR
2083: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2084: ('Value-id conversions completed with return_status: ' || l_return_status) ;
2085: END IF ;
2086:
2087: IF l_return_status = Error_Handler.G_STATUS_ERROR
2088: THEN
2089: IF l_rev_op_resource_rec.transaction_type = 'CREATE'
2090: THEN
2091: l_other_message := 'BOM_RES_VID_CSEV_SKIP';
2096: ELSE
2097: RAISE EXC_SEV_QUIT_RECORD ;
2098: END IF ;
2099:
2100: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
2101: THEN
2102: l_other_message := 'BOM_RES_VID_UNEXP_SKIP';
2103: l_other_token_tbl(1).token_name := 'RES_SEQ_NUMBER';
2104: l_other_token_tbl(1).token_value :=
2106: RAISE EXC_UNEXP_SKIP_OBJECT;
2107:
2108: ELSIF l_return_status ='S' AND l_mesg_token_tbl .COUNT <>0
2109: THEN
2110: ECO_Error_Handler.Log_Error
2111: ( p_rev_op_resource_tbl => x_rev_op_resource_tbl
2112: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
2113: , p_mesg_token_tbl => l_mesg_token_tbl
2114: , p_error_status => 'W'
2111: ( p_rev_op_resource_tbl => x_rev_op_resource_tbl
2112: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
2113: , p_mesg_token_tbl => l_mesg_token_tbl
2114: , p_error_status => 'W'
2115: , p_error_level => Error_Handler.G_RES_LEVEL
2116: , p_entity_index => I
2117: , x_ECO_rec => l_ECO_rec
2118: , x_eco_revision_tbl => l_eco_revision_tbl
2119: , x_revised_item_tbl => l_revised_item_tbl
2148: , x_return_status => l_return_status
2149: , x_mesg_token_tbl => l_mesg_token_tbl
2150: ) ;
2151:
2152: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2153: ('Attribute validation completed with return_status: ' || l_return_status) ;
2154: END IF ;
2155:
2156:
2153: ('Attribute validation completed with return_status: ' || l_return_status) ;
2154: END IF ;
2155:
2156:
2157: IF l_return_status = Error_Handler.G_STATUS_ERROR
2158: THEN
2159: IF l_rev_op_resource_rec.transaction_type = Bom_Rtg_Globals.G_OPR_CREATE
2160: THEN
2161: l_other_message := 'BOM_RES_ATTVAL_CSEV_SKIP';
2165: RAISE EXC_SEV_SKIP_BRANCH ;
2166: ELSE
2167: RAISE EXC_SEV_QUIT_RECORD ;
2168: END IF;
2169: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
2170: THEN
2171: l_other_message := 'BOM_RES_ATTVAL_UNEXP_SKIP';
2172: l_other_token_tbl(1).token_name := 'RES_SEQ_NUMBER';
2173: l_other_token_tbl(1).token_value :=
2174: l_rev_op_resource_rec.resource_sequence_number ;
2175: RAISE EXC_UNEXP_SKIP_OBJECT ;
2176: ELSIF l_return_status ='S' AND l_mesg_token_tbl.COUNT <> 0
2177: THEN
2178: ECO_Error_Handler.Log_Error
2179: ( p_rev_op_resource_tbl => x_rev_op_resource_tbl
2180: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
2181: , p_mesg_token_tbl => l_mesg_token_tbl
2182: , p_error_status => 'W'
2179: ( p_rev_op_resource_tbl => x_rev_op_resource_tbl
2180: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
2181: , p_mesg_token_tbl => l_mesg_token_tbl
2182: , p_error_status => 'W'
2183: , p_error_level => Error_Handler.G_RES_LEVEL
2184: , p_entity_index => I
2185: , x_ECO_rec => l_ECO_rec
2186: , x_eco_revision_tbl => l_eco_revision_tbl
2187: , x_revised_item_tbl => l_revised_item_tbl
2214: , x_mesg_token_tbl => l_mesg_token_tbl
2215: , x_return_status => l_return_status
2216: ) ;
2217:
2218: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2219: ('Query the original op res for rev op res with acd type : change or delete completed with return_status: ' || l_return_status) ;
2220: END IF ;
2221:
2222: IF l_return_status <> Eng_Globals.G_RECORD_FOUND
2220: END IF ;
2221:
2222: IF l_return_status <> Eng_Globals.G_RECORD_FOUND
2223: THEN
2224: l_return_status := Error_Handler.G_STATUS_ERROR ;
2225: l_token_tbl(1).token_name := 'RES_SEQ_NUMBER';
2226: l_token_tbl(1).token_value :=
2227: l_rev_op_resource_rec.resource_sequence_number ;
2228: l_token_tbl(2).token_name := 'OP_SEQ_NUMBER';
2228: l_token_tbl(2).token_name := 'OP_SEQ_NUMBER';
2229: l_token_tbl(2).token_value :=
2230: l_rev_op_resource_rec.operation_sequence_number ;
2231:
2232: Error_Handler.Add_Error_Token
2233: ( p_message_name => 'BOM_RES_CREATE_REC_NOT_FOUND'
2234: , p_mesg_token_tbl => l_Mesg_Token_Tbl
2235: , p_token_tbl => l_Token_Tbl
2236: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2240: l_other_token_tbl(1).token_name := 'RES_SEQ_NUMBER';
2241: l_other_token_tbl(1).token_value :=
2242: l_rev_op_resource_rec.resource_sequence_number ;
2243: RAISE EXC_SEV_SKIP_BRANCH;
2244: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
2245: THEN
2246: l_other_message := 'BOM_RES_QRY_UNEXP_SKIP';
2247: l_other_token_tbl(1).token_name := 'RES_SEQ_NUMBER';
2248: l_other_token_tbl(1).token_value :=
2264: -- Process flow step 12: Populate NULL columns for Update and Delete
2265: -- Call Bom_Default_Op_Res.Populate_Null_Columns
2266: --
2267:
2268: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Populate NULL columns') ;
2269: END IF ;
2270:
2271: Bom_Default_Op_Res.Populate_Null_Columns
2272: ( p_rev_op_resource_rec => l_rev_op_resource_rec
2284: -- Process Flow step 13 : Default missing values for Op Resource (CREATE)
2285: -- Call Bom_Default_Op_Res.Attribute_Defaulting
2286: --
2287:
2288: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Attribute Defaulting') ;
2289: END IF ;
2290:
2291: Bom_Default_Op_res.Attribute_Defaulting
2292: ( p_rev_op_resource_rec => l_rev_op_resource_rec
2298: , x_return_status => l_return_status
2299: ) ;
2300:
2301:
2302: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2303: ('Attribute Defaulting completed with return_status: ' || l_return_status) ;
2304: END IF ;
2305:
2306: IF l_return_status = Error_Handler.G_STATUS_ERROR
2302: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2303: ('Attribute Defaulting completed with return_status: ' || l_return_status) ;
2304: END IF ;
2305:
2306: IF l_return_status = Error_Handler.G_STATUS_ERROR
2307: THEN
2308: l_other_message := 'BOM_RES_ATTDEF_CSEV_SKIP';
2309: l_other_token_tbl(1).token_name := 'RES_SEQ_NUMBER';
2310: l_other_token_tbl(1).token_value :=
2310: l_other_token_tbl(1).token_value :=
2311: l_rev_op_resource_rec.resource_sequence_number ;
2312: RAISE EXC_SEV_SKIP_BRANCH ;
2313:
2314: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
2315: THEN
2316: l_other_message := 'BOM_RES_ATTDEF_UNEXP_SKIP';
2317: l_other_token_tbl(1).token_name := 'RES_SEQ_NUMBER';
2318: l_other_token_tbl(1).token_value :=
2319: l_rev_op_resource_rec.resource_sequence_number ;
2320: RAISE EXC_UNEXP_SKIP_OBJECT ;
2321: ELSIF l_return_status ='S' AND l_mesg_token_tbl .COUNT <> 0
2322: THEN
2323: ECO_Error_Handler.Log_Error
2324: ( p_rev_op_resource_tbl => x_rev_op_resource_tbl
2325: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
2326: , p_mesg_token_tbl => l_mesg_token_tbl
2327: , p_error_status => 'W'
2324: ( p_rev_op_resource_tbl => x_rev_op_resource_tbl
2325: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
2326: , p_mesg_token_tbl => l_mesg_token_tbl
2327: , p_error_status => 'W'
2328: , p_error_level => Error_Handler.G_RES_LEVEL
2329: , p_entity_index => I
2330: , x_ECO_rec => l_ECO_rec
2331: , x_eco_revision_tbl => l_eco_revision_tbl
2332: , x_revised_item_tbl => l_revised_item_tbl
2349:
2350: --
2351: -- Process Flow step 18: Entity defaulting for CREATE and UPDATE
2352: --
2353: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Entity defaulting') ;
2354: END IF ;
2355: IF l_rev_op_resource_rec.transaction_type IN ( Bom_Rtg_Globals.G_OPR_CREATE
2356: , Bom_Rtg_Globals.G_OPR_UPDATE )
2357: THEN
2364: , x_mesg_token_tbl => l_mesg_token_tbl
2365: , x_return_status => l_return_status
2366: ) ;
2367:
2368: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2369: ('Entity defaulting completed with return_status: ' || l_return_status) ;
2370: END IF ;
2371:
2372: IF l_return_status = Error_Handler.G_STATUS_ERROR
2368: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2369: ('Entity defaulting completed with return_status: ' || l_return_status) ;
2370: END IF ;
2371:
2372: IF l_return_status = Error_Handler.G_STATUS_ERROR
2373: THEN
2374: IF l_rev_op_resource_rec.transaction_type = Bom_Rtg_Globals.G_OPR_CREATE
2375: THEN
2376: l_other_message := 'BOM_RES_ENTDEF_CSEV_SKIP';
2380: RAISE EXC_SEV_SKIP_BRANCH ;
2381: ELSE
2382: RAISE EXC_SEV_QUIT_RECORD ;
2383: END IF;
2384: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
2385: THEN
2386: l_other_message := 'BOM_RES_ENTDEF_UNEXP_SKIP';
2387: l_other_token_tbl(1).token_name := 'RES_SEQ_NUMBER';
2388: l_other_token_tbl(1).token_value :=
2389: l_rev_op_resource_rec.resource_sequence_number ;
2390: RAISE EXC_UNEXP_SKIP_OBJECT ;
2391: ELSIF l_return_status ='S' AND l_mesg_token_tbl .COUNT <> 0
2392: THEN
2393: ECO_Error_Handler.Log_Error
2394: ( p_rev_op_resource_tbl => x_rev_op_resource_tbl
2395: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
2396: , p_mesg_token_tbl => l_mesg_token_tbl
2397: , p_error_status => 'W'
2394: ( p_rev_op_resource_tbl => x_rev_op_resource_tbl
2395: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
2396: , p_mesg_token_tbl => l_mesg_token_tbl
2397: , p_error_status => 'W'
2398: , p_error_level => Error_Handler.G_RES_LEVEL
2399: , p_entity_index => I
2400: , x_ECO_rec => l_ECO_rec
2401: , x_eco_revision_tbl => l_eco_revision_tbl
2402: , x_revised_item_tbl => l_revised_item_tbl
2414: -- Process Flow step 16 - Entity Level Validation
2415: -- Call Bom_Validate_Op_Res.Check_Entity
2416: --
2417: IF Bom_Rtg_Globals.Get_Debug = 'Y'
2418: THEN Error_Handler.Write_Debug('Starting with Op Resources entity validation . . . ') ;
2419: END IF ;
2420:
2421: Bom_Validate_Op_Res.Check_Entity
2422: ( p_rev_op_resource_rec => l_rev_op_resource_rec
2430: , x_return_status => l_return_status
2431: ) ;
2432:
2433:
2434: IF l_return_status = Error_Handler.G_STATUS_ERROR
2435: THEN
2436: IF l_rev_op_resource_rec.transaction_type = Bom_Rtg_Globals.G_OPR_CREATE
2437: THEN
2438: l_other_message := 'BOM_RES_ENTVAL_CSEV_SKIP';
2442: RAISE EXC_SEV_SKIP_BRANCH ;
2443: ELSE
2444: RAISE EXC_SEV_QUIT_RECORD ;
2445: END IF;
2446: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
2447: THEN
2448: l_other_message := 'BOM_RES_ENTVAL_UNEXP_SKIP';
2449: l_other_token_tbl(1).token_name := 'RES_SEQ_NUMBER';
2450: l_other_token_tbl(1).token_value :=
2451: l_rev_op_resource_rec.resource_sequence_number ;
2452: RAISE EXC_UNEXP_SKIP_OBJECT ;
2453: ELSIF l_return_status ='S' AND l_mesg_token_tbl .COUNT <> 0
2454: THEN
2455: ECO_Error_Handler.Log_Error
2456: ( p_rev_op_resource_tbl => x_rev_op_resource_tbl
2457: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
2458: , p_mesg_token_tbl => l_mesg_token_tbl
2459: , p_error_status => 'W'
2456: ( p_rev_op_resource_tbl => x_rev_op_resource_tbl
2457: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
2458: , p_mesg_token_tbl => l_mesg_token_tbl
2459: , p_error_status => 'W'
2460: , p_error_level => Error_Handler.G_RES_LEVEL
2461: , p_entity_index => I
2462: , x_ECO_rec => l_ECO_rec
2463: , x_eco_revision_tbl => l_eco_revision_tbl
2464: , x_revised_item_tbl => l_revised_item_tbl
2470: , x_rev_sub_resource_tbl => x_rev_sub_resource_tbl
2471: ) ;
2472: END IF;
2473:
2474: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Entity validation completed with '
2475: || l_return_Status || ' proceeding for database writes . . . ') ;
2476: END IF;
2477:
2478: --
2485: , x_mesg_token_tbl => l_mesg_token_tbl
2486: , x_return_status => l_return_status
2487: ) ;
2488:
2489: IF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
2490: THEN
2491: l_other_message := 'BOM_RES_WRITES_UNEXP_SKIP';
2492: l_other_token_tbl(1).token_name := 'RES_SEQ_NUMBER';
2493: l_other_token_tbl(1).token_value :=
2495: RAISE EXC_UNEXP_SKIP_OBJECT ;
2496: ELSIF l_return_status ='S' AND
2497: l_mesg_token_tbl .COUNT <>0
2498: THEN
2499: ECO_Error_Handler.Log_Error
2500: ( p_rev_op_resource_tbl => x_rev_op_resource_tbl
2501: , p_mesg_token_tbl => l_mesg_token_tbl
2502: , p_error_status => 'W'
2503: , p_error_level => Error_Handler.G_RES_LEVEL
2499: ECO_Error_Handler.Log_Error
2500: ( p_rev_op_resource_tbl => x_rev_op_resource_tbl
2501: , p_mesg_token_tbl => l_mesg_token_tbl
2502: , p_error_status => 'W'
2503: , p_error_level => Error_Handler.G_RES_LEVEL
2504: , p_entity_index => I
2505: , x_ECO_rec => l_ECO_rec
2506: , x_eco_revision_tbl => l_eco_revision_tbl
2507: , x_revised_item_tbl => l_revised_item_tbl
2513: , x_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
2514: ) ;
2515: END IF;
2516:
2517: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Database writes completed with status: ' || l_return_status);
2518: END IF;
2519:
2520: END IF; -- END IF statement that checks RETURN STATUS
2521:
2526: -- For loop exception handler.
2527:
2528: EXCEPTION
2529: WHEN EXC_SEV_QUIT_RECORD THEN
2530: ECO_Error_Handler.Log_Error
2531: ( p_rev_op_resource_tbl => x_rev_op_resource_tbl
2532: , p_mesg_token_tbl => l_mesg_token_tbl
2533: , p_error_status => FND_API.G_RET_STS_ERROR
2534: , p_error_scope => Error_Handler.G_SCOPE_RECORD
2530: ECO_Error_Handler.Log_Error
2531: ( p_rev_op_resource_tbl => x_rev_op_resource_tbl
2532: , p_mesg_token_tbl => l_mesg_token_tbl
2533: , p_error_status => FND_API.G_RET_STS_ERROR
2534: , p_error_scope => Error_Handler.G_SCOPE_RECORD
2535: , p_error_level => Error_Handler.G_RES_LEVEL
2536: , p_entity_index => I
2537: , x_ECO_rec => l_ECO_rec
2538: , x_eco_revision_tbl => l_eco_revision_tbl
2531: ( p_rev_op_resource_tbl => x_rev_op_resource_tbl
2532: , p_mesg_token_tbl => l_mesg_token_tbl
2533: , p_error_status => FND_API.G_RET_STS_ERROR
2534: , p_error_scope => Error_Handler.G_SCOPE_RECORD
2535: , p_error_level => Error_Handler.G_RES_LEVEL
2536: , p_entity_index => I
2537: , x_ECO_rec => l_ECO_rec
2538: , x_eco_revision_tbl => l_eco_revision_tbl
2539: , x_revised_item_tbl => l_revised_item_tbl
2558:
2559:
2560: WHEN EXC_SEV_QUIT_BRANCH THEN
2561:
2562: ECO_Error_Handler.Log_Error
2563: ( p_rev_op_resource_tbl => x_rev_op_resource_tbl
2564: , p_mesg_token_tbl => l_mesg_token_tbl
2565: , p_error_status => Error_Handler.G_STATUS_ERROR
2566: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
2561:
2562: ECO_Error_Handler.Log_Error
2563: ( p_rev_op_resource_tbl => x_rev_op_resource_tbl
2564: , p_mesg_token_tbl => l_mesg_token_tbl
2565: , p_error_status => Error_Handler.G_STATUS_ERROR
2566: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
2567: , p_other_status => Error_Handler.G_STATUS_ERROR
2568: , p_other_message => l_other_message
2569: , p_other_token_tbl => l_other_token_tbl
2562: ECO_Error_Handler.Log_Error
2563: ( p_rev_op_resource_tbl => x_rev_op_resource_tbl
2564: , p_mesg_token_tbl => l_mesg_token_tbl
2565: , p_error_status => Error_Handler.G_STATUS_ERROR
2566: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
2567: , p_other_status => Error_Handler.G_STATUS_ERROR
2568: , p_other_message => l_other_message
2569: , p_other_token_tbl => l_other_token_tbl
2570: , p_error_level => Error_Handler.G_RES_LEVEL
2563: ( p_rev_op_resource_tbl => x_rev_op_resource_tbl
2564: , p_mesg_token_tbl => l_mesg_token_tbl
2565: , p_error_status => Error_Handler.G_STATUS_ERROR
2566: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
2567: , p_other_status => Error_Handler.G_STATUS_ERROR
2568: , p_other_message => l_other_message
2569: , p_other_token_tbl => l_other_token_tbl
2570: , p_error_level => Error_Handler.G_RES_LEVEL
2571: , p_entity_index => I
2566: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
2567: , p_other_status => Error_Handler.G_STATUS_ERROR
2568: , p_other_message => l_other_message
2569: , p_other_token_tbl => l_other_token_tbl
2570: , p_error_level => Error_Handler.G_RES_LEVEL
2571: , p_entity_index => I
2572: , x_ECO_rec => l_ECO_rec
2573: , x_eco_revision_tbl => l_eco_revision_tbl
2574: , x_revised_item_tbl => l_revised_item_tbl
2591: --x_rev_op_resource_tbl := l_rev_op_resource_tbl ;
2592: --x_rev_sub_resource_tbl := l_rev_sub_resource_tbl ;
2593:
2594: WHEN EXC_SEV_SKIP_BRANCH THEN
2595: ECO_Error_Handler.Log_Error
2596: ( p_rev_op_resource_tbl => x_rev_op_resource_tbl
2597: , p_mesg_token_tbl => l_mesg_token_tbl
2598: , p_error_status => Error_Handler.G_STATUS_ERROR
2599: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
2594: WHEN EXC_SEV_SKIP_BRANCH THEN
2595: ECO_Error_Handler.Log_Error
2596: ( p_rev_op_resource_tbl => x_rev_op_resource_tbl
2597: , p_mesg_token_tbl => l_mesg_token_tbl
2598: , p_error_status => Error_Handler.G_STATUS_ERROR
2599: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
2600: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
2601: , p_other_message => l_other_message
2602: , p_other_token_tbl => l_other_token_tbl
2595: ECO_Error_Handler.Log_Error
2596: ( p_rev_op_resource_tbl => x_rev_op_resource_tbl
2597: , p_mesg_token_tbl => l_mesg_token_tbl
2598: , p_error_status => Error_Handler.G_STATUS_ERROR
2599: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
2600: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
2601: , p_other_message => l_other_message
2602: , p_other_token_tbl => l_other_token_tbl
2603: , p_error_level => Error_Handler.G_RES_LEVEL
2596: ( p_rev_op_resource_tbl => x_rev_op_resource_tbl
2597: , p_mesg_token_tbl => l_mesg_token_tbl
2598: , p_error_status => Error_Handler.G_STATUS_ERROR
2599: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
2600: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
2601: , p_other_message => l_other_message
2602: , p_other_token_tbl => l_other_token_tbl
2603: , p_error_level => Error_Handler.G_RES_LEVEL
2604: , p_entity_index => I
2599: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
2600: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
2601: , p_other_message => l_other_message
2602: , p_other_token_tbl => l_other_token_tbl
2603: , p_error_level => Error_Handler.G_RES_LEVEL
2604: , p_entity_index => I
2605: , x_ECO_rec => l_ECO_rec
2606: , x_eco_revision_tbl => l_eco_revision_tbl
2607: , x_revised_item_tbl => l_revised_item_tbl
2622: --x_rev_op_resource_tbl := l_rev_op_resource_tbl ;
2623: --x_rev_sub_resource_tbl := l_rev_sub_resource_tbl ;
2624:
2625: WHEN EXC_SEV_QUIT_SIBLINGS THEN
2626: ECO_Error_Handler.Log_Error
2627: ( p_rev_op_resource_tbl => x_rev_op_resource_tbl
2628: , p_mesg_token_tbl => l_mesg_token_tbl
2629: , p_error_status => Error_Handler.G_STATUS_ERROR
2630: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
2625: WHEN EXC_SEV_QUIT_SIBLINGS THEN
2626: ECO_Error_Handler.Log_Error
2627: ( p_rev_op_resource_tbl => x_rev_op_resource_tbl
2628: , p_mesg_token_tbl => l_mesg_token_tbl
2629: , p_error_status => Error_Handler.G_STATUS_ERROR
2630: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
2631: , p_other_status => Error_Handler.G_STATUS_ERROR
2632: , p_other_message => l_other_message
2633: , p_other_token_tbl => l_other_token_tbl
2626: ECO_Error_Handler.Log_Error
2627: ( p_rev_op_resource_tbl => x_rev_op_resource_tbl
2628: , p_mesg_token_tbl => l_mesg_token_tbl
2629: , p_error_status => Error_Handler.G_STATUS_ERROR
2630: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
2631: , p_other_status => Error_Handler.G_STATUS_ERROR
2632: , p_other_message => l_other_message
2633: , p_other_token_tbl => l_other_token_tbl
2634: , p_error_level => Error_Handler.G_RES_LEVEL
2627: ( p_rev_op_resource_tbl => x_rev_op_resource_tbl
2628: , p_mesg_token_tbl => l_mesg_token_tbl
2629: , p_error_status => Error_Handler.G_STATUS_ERROR
2630: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
2631: , p_other_status => Error_Handler.G_STATUS_ERROR
2632: , p_other_message => l_other_message
2633: , p_other_token_tbl => l_other_token_tbl
2634: , p_error_level => Error_Handler.G_RES_LEVEL
2635: , p_entity_index => I
2630: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
2631: , p_other_status => Error_Handler.G_STATUS_ERROR
2632: , p_other_message => l_other_message
2633: , p_other_token_tbl => l_other_token_tbl
2634: , p_error_level => Error_Handler.G_RES_LEVEL
2635: , p_entity_index => I
2636: , x_ECO_rec => l_ECO_rec
2637: , x_eco_revision_tbl => l_eco_revision_tbl
2638: , x_revised_item_tbl => l_revised_item_tbl
2654: --x_rev_sub_resource_tbl := l_rev_sub_resource_tbl ;
2655:
2656:
2657: WHEN EXC_FAT_QUIT_BRANCH THEN
2658: ECO_Error_Handler.Log_Error
2659: ( p_rev_op_resource_tbl => x_rev_op_resource_tbl
2660: , p_mesg_token_tbl => l_mesg_token_tbl
2661: , p_error_status => Error_Handler.G_STATUS_FATAL
2662: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
2657: WHEN EXC_FAT_QUIT_BRANCH THEN
2658: ECO_Error_Handler.Log_Error
2659: ( p_rev_op_resource_tbl => x_rev_op_resource_tbl
2660: , p_mesg_token_tbl => l_mesg_token_tbl
2661: , p_error_status => Error_Handler.G_STATUS_FATAL
2662: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
2663: , p_other_status => Error_Handler.G_STATUS_FATAL
2664: , p_other_message => l_other_message
2665: , p_other_token_tbl => l_other_token_tbl
2658: ECO_Error_Handler.Log_Error
2659: ( p_rev_op_resource_tbl => x_rev_op_resource_tbl
2660: , p_mesg_token_tbl => l_mesg_token_tbl
2661: , p_error_status => Error_Handler.G_STATUS_FATAL
2662: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
2663: , p_other_status => Error_Handler.G_STATUS_FATAL
2664: , p_other_message => l_other_message
2665: , p_other_token_tbl => l_other_token_tbl
2666: , p_error_level => Error_Handler.G_RES_LEVEL
2659: ( p_rev_op_resource_tbl => x_rev_op_resource_tbl
2660: , p_mesg_token_tbl => l_mesg_token_tbl
2661: , p_error_status => Error_Handler.G_STATUS_FATAL
2662: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
2663: , p_other_status => Error_Handler.G_STATUS_FATAL
2664: , p_other_message => l_other_message
2665: , p_other_token_tbl => l_other_token_tbl
2666: , p_error_level => Error_Handler.G_RES_LEVEL
2667: , p_entity_index => I
2662: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
2663: , p_other_status => Error_Handler.G_STATUS_FATAL
2664: , p_other_message => l_other_message
2665: , p_other_token_tbl => l_other_token_tbl
2666: , p_error_level => Error_Handler.G_RES_LEVEL
2667: , p_entity_index => I
2668: , x_ECO_rec => l_ECO_rec
2669: , x_eco_revision_tbl => l_eco_revision_tbl
2670: , x_revised_item_tbl => l_revised_item_tbl
2675: , x_rev_op_resource_tbl => x_rev_op_resource_tbl
2676: , x_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
2677: ) ;
2678:
2679: x_return_status := Error_Handler.G_STATUS_FATAL;
2680: x_mesg_token_tbl := l_mesg_token_tbl ;
2681: --x_rev_op_resource_tbl := l_rev_op_resource_tbl ;
2682: --x_rev_sub_resource_tbl := l_rev_sub_resource_tbl ;
2683:
2682: --x_rev_sub_resource_tbl := l_rev_sub_resource_tbl ;
2683:
2684:
2685: WHEN EXC_FAT_QUIT_SIBLINGS THEN
2686: ECO_Error_Handler.Log_Error
2687: ( p_rev_op_resource_tbl => x_rev_op_resource_tbl
2688: , p_mesg_token_tbl => l_mesg_token_tbl
2689: , p_error_status => Error_Handler.G_STATUS_FATAL
2690: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
2685: WHEN EXC_FAT_QUIT_SIBLINGS THEN
2686: ECO_Error_Handler.Log_Error
2687: ( p_rev_op_resource_tbl => x_rev_op_resource_tbl
2688: , p_mesg_token_tbl => l_mesg_token_tbl
2689: , p_error_status => Error_Handler.G_STATUS_FATAL
2690: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
2691: , p_other_status => Error_Handler.G_STATUS_FATAL
2692: , p_other_message => l_other_message
2693: , p_other_token_tbl => l_other_token_tbl
2686: ECO_Error_Handler.Log_Error
2687: ( p_rev_op_resource_tbl => x_rev_op_resource_tbl
2688: , p_mesg_token_tbl => l_mesg_token_tbl
2689: , p_error_status => Error_Handler.G_STATUS_FATAL
2690: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
2691: , p_other_status => Error_Handler.G_STATUS_FATAL
2692: , p_other_message => l_other_message
2693: , p_other_token_tbl => l_other_token_tbl
2694: , p_error_level => Error_Handler.G_RES_LEVEL
2687: ( p_rev_op_resource_tbl => x_rev_op_resource_tbl
2688: , p_mesg_token_tbl => l_mesg_token_tbl
2689: , p_error_status => Error_Handler.G_STATUS_FATAL
2690: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
2691: , p_other_status => Error_Handler.G_STATUS_FATAL
2692: , p_other_message => l_other_message
2693: , p_other_token_tbl => l_other_token_tbl
2694: , p_error_level => Error_Handler.G_RES_LEVEL
2695: , p_entity_index => I
2690: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
2691: , p_other_status => Error_Handler.G_STATUS_FATAL
2692: , p_other_message => l_other_message
2693: , p_other_token_tbl => l_other_token_tbl
2694: , p_error_level => Error_Handler.G_RES_LEVEL
2695: , p_entity_index => I
2696: , x_ECO_rec => l_ECO_rec
2697: , x_eco_revision_tbl => l_eco_revision_tbl
2698: , x_revised_item_tbl => l_revised_item_tbl
2703: , x_rev_op_resource_tbl => x_rev_op_resource_tbl
2704: , x_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
2705: ) ;
2706:
2707: x_return_status := Error_Handler.G_STATUS_FATAL;
2708: x_mesg_token_tbl := l_mesg_token_tbl ;
2709: --x_rev_op_resource_tbl := l_rev_op_resource_tbl ;
2710: --x_rev_sub_resource_tbl := l_rev_sub_resource_tbl ;
2711:
2709: --x_rev_op_resource_tbl := l_rev_op_resource_tbl ;
2710: --x_rev_sub_resource_tbl := l_rev_sub_resource_tbl ;
2711:
2712: WHEN EXC_FAT_QUIT_OBJECT THEN
2713: ECO_Error_Handler.Log_Error
2714: ( p_rev_op_resource_tbl => x_rev_op_resource_tbl
2715: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
2716: , p_mesg_token_tbl => l_mesg_token_tbl
2717: , p_error_status => Error_Handler.G_STATUS_FATAL
2713: ECO_Error_Handler.Log_Error
2714: ( p_rev_op_resource_tbl => x_rev_op_resource_tbl
2715: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
2716: , p_mesg_token_tbl => l_mesg_token_tbl
2717: , p_error_status => Error_Handler.G_STATUS_FATAL
2718: , p_error_scope => Error_Handler.G_SCOPE_ALL
2719: , p_other_status => Error_Handler.G_STATUS_FATAL
2720: , p_other_message => l_other_message
2721: , p_other_token_tbl => l_other_token_tbl
2714: ( p_rev_op_resource_tbl => x_rev_op_resource_tbl
2715: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
2716: , p_mesg_token_tbl => l_mesg_token_tbl
2717: , p_error_status => Error_Handler.G_STATUS_FATAL
2718: , p_error_scope => Error_Handler.G_SCOPE_ALL
2719: , p_other_status => Error_Handler.G_STATUS_FATAL
2720: , p_other_message => l_other_message
2721: , p_other_token_tbl => l_other_token_tbl
2722: , p_error_level => Error_Handler.G_RES_LEVEL
2715: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
2716: , p_mesg_token_tbl => l_mesg_token_tbl
2717: , p_error_status => Error_Handler.G_STATUS_FATAL
2718: , p_error_scope => Error_Handler.G_SCOPE_ALL
2719: , p_other_status => Error_Handler.G_STATUS_FATAL
2720: , p_other_message => l_other_message
2721: , p_other_token_tbl => l_other_token_tbl
2722: , p_error_level => Error_Handler.G_RES_LEVEL
2723: , p_entity_index => I
2718: , p_error_scope => Error_Handler.G_SCOPE_ALL
2719: , p_other_status => Error_Handler.G_STATUS_FATAL
2720: , p_other_message => l_other_message
2721: , p_other_token_tbl => l_other_token_tbl
2722: , p_error_level => Error_Handler.G_RES_LEVEL
2723: , p_entity_index => I
2724: , x_ECO_rec => l_ECO_rec
2725: , x_eco_revision_tbl => l_eco_revision_tbl
2726: , x_revised_item_tbl => l_revised_item_tbl
2737: --x_rev_op_resource_tbl := l_rev_op_resource_tbl ;
2738: --x_rev_sub_resource_tbl := l_rev_sub_resource_tbl ;
2739:
2740: WHEN EXC_UNEXP_SKIP_OBJECT THEN
2741: ECO_Error_Handler.Log_Error
2742: ( p_rev_op_resource_tbl => x_rev_op_resource_tbl
2743: , p_mesg_token_tbl => l_mesg_token_tbl
2744: , p_error_status => Error_Handler.G_STATUS_UNEXPECTED
2745: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
2740: WHEN EXC_UNEXP_SKIP_OBJECT THEN
2741: ECO_Error_Handler.Log_Error
2742: ( p_rev_op_resource_tbl => x_rev_op_resource_tbl
2743: , p_mesg_token_tbl => l_mesg_token_tbl
2744: , p_error_status => Error_Handler.G_STATUS_UNEXPECTED
2745: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
2746: , p_other_message => l_other_message
2747: , p_other_token_tbl => l_other_token_tbl
2748: , p_error_level => Error_Handler.G_RES_LEVEL
2741: ECO_Error_Handler.Log_Error
2742: ( p_rev_op_resource_tbl => x_rev_op_resource_tbl
2743: , p_mesg_token_tbl => l_mesg_token_tbl
2744: , p_error_status => Error_Handler.G_STATUS_UNEXPECTED
2745: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
2746: , p_other_message => l_other_message
2747: , p_other_token_tbl => l_other_token_tbl
2748: , p_error_level => Error_Handler.G_RES_LEVEL
2749: , x_ECO_rec => l_ECO_rec
2744: , p_error_status => Error_Handler.G_STATUS_UNEXPECTED
2745: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
2746: , p_other_message => l_other_message
2747: , p_other_token_tbl => l_other_token_tbl
2748: , p_error_level => Error_Handler.G_RES_LEVEL
2749: , x_ECO_rec => l_ECO_rec
2750: , x_eco_revision_tbl => l_eco_revision_tbl
2751: , x_revised_item_tbl => l_revised_item_tbl
2752: , x_rev_component_tbl => l_rev_component_tbl
2802: , p_rev_sub_resource_tbl IN Bom_Rtg_Pub.Rev_Sub_Resource_Tbl_Type
2803: , x_rev_operation_tbl IN OUT NOCOPY Bom_Rtg_Pub.Rev_Operation_Tbl_Type
2804: , x_rev_op_resource_tbl IN OUT NOCOPY Bom_Rtg_Pub.Rev_Op_Resource_Tbl_Type
2805: , x_rev_sub_resource_tbl IN OUT NOCOPY Bom_Rtg_Pub.Rev_Sub_Resource_Tbl_Type
2806: , x_mesg_token_tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2807: , x_return_status OUT NOCOPY VARCHAR2
2808: )
2809:
2810: IS
2838: l_valid BOOLEAN := TRUE ;
2839: l_dummy NUMBER ;
2840:
2841: /* Error Handling Variables */
2842: l_token_tbl Error_Handler.Token_Tbl_Type ;
2843: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
2844: l_other_token_tbl Error_Handler.Token_Tbl_Type ;
2845: l_other_message VARCHAR2(2000);
2846: l_err_text VARCHAR2(2000);
2839: l_dummy NUMBER ;
2840:
2841: /* Error Handling Variables */
2842: l_token_tbl Error_Handler.Token_Tbl_Type ;
2843: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
2844: l_other_token_tbl Error_Handler.Token_Tbl_Type ;
2845: l_other_message VARCHAR2(2000);
2846: l_err_text VARCHAR2(2000);
2847:
2840:
2841: /* Error Handling Variables */
2842: l_token_tbl Error_Handler.Token_Tbl_Type ;
2843: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
2844: l_other_token_tbl Error_Handler.Token_Tbl_Type ;
2845: l_other_message VARCHAR2(2000);
2846: l_err_text VARCHAR2(2000);
2847:
2848: EXC_SEV_QUIT_RECORD EXCEPTION ;
2975: , x_mesg_token_tbl => l_mesg_token_tbl
2976: , x_return_status => l_return_status
2977: ) ;
2978:
2979: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2980: ('Convert to User Unique Index to Index1 completed with return_status: ' || l_return_status) ;
2981: END IF;
2982:
2983: IF l_return_status = Error_Handler.G_STATUS_ERROR
2979: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2980: ('Convert to User Unique Index to Index1 completed with return_status: ' || l_return_status) ;
2981: END IF;
2982:
2983: IF l_return_status = Error_Handler.G_STATUS_ERROR
2984: THEN
2985: l_other_message := 'BOM_OP_UUI_SEV_ERROR';
2986: l_other_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
2987: l_other_token_tbl(1).token_value :=
2987: l_other_token_tbl(1).token_value :=
2988: l_rev_operation_rec.operation_sequence_number ;
2989: RAISE EXC_SEV_QUIT_BRANCH ;
2990:
2991: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
2992: THEN
2993: l_other_message := 'BOM_OP_UUI_UNEXP_SKIP';
2994: l_other_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
2995: l_other_token_tbl(1).token_value :=
3019: , x_other_token_tbl => l_other_token_tbl
3020: , x_Return_Status => l_return_status
3021: ) ;
3022:
3023: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3024: ('Convert to User Unique Index to Index1 for Rtg and Rev Item Seq completed with return_status: ' || l_return_status) ;
3025: END IF;
3026:
3027: IF l_return_status = Error_Handler.G_STATUS_ERROR
3023: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3024: ('Convert to User Unique Index to Index1 for Rtg and Rev Item Seq completed with return_status: ' || l_return_status) ;
3025: END IF;
3026:
3027: IF l_return_status = Error_Handler.G_STATUS_ERROR
3028: THEN
3029: l_other_message := 'BOM_OP_UUI_SEV_ERROR';
3030: l_other_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
3031: l_other_token_tbl(1).token_value :=
3031: l_other_token_tbl(1).token_value :=
3032: l_rev_operation_rec.operation_sequence_number ;
3033: RAISE EXC_SEV_QUIT_BRANCH ;
3034:
3035: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
3036: THEN
3037: l_other_message := 'BOM_OP_UUI_UNEXP_SKIP';
3038: l_other_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
3039: l_other_token_tbl(1).token_value :=
3057: , x_other_token_tbl => l_other_token_tbl
3058: , x_return_status => l_return_status
3059: ) ;
3060:
3061: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3062: ('Convert to User Unique Index to Index2 completed with return_status: ' || l_return_status) ;
3063: END IF;
3064:
3065: IF l_return_status = Error_Handler.G_STATUS_ERROR
3061: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3062: ('Convert to User Unique Index to Index2 completed with return_status: ' || l_return_status) ;
3063: END IF;
3064:
3065: IF l_return_status = Error_Handler.G_STATUS_ERROR
3066: THEN
3067: RAISE EXC_SEV_QUIT_SIBLINGS ;
3068: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
3069: THEN
3064:
3065: IF l_return_status = Error_Handler.G_STATUS_ERROR
3066: THEN
3067: RAISE EXC_SEV_QUIT_SIBLINGS ;
3068: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
3069: THEN
3070: l_other_message := 'BOM_OP_UUI_UNEXP_SKIP';
3071: l_other_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
3072: l_other_token_tbl(1).token_value :=
3080: ( p_inventory_item_id => l_rev_comp_unexp_rec.revised_item_id
3081: , p_organization_id => l_rev_comp_unexp_rec.organization_id
3082: );
3083:
3084: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3085: ('Set unit controlled item flag . . .' ) ;
3086: END IF ;
3087:
3088: --
3096: l_token_tbl(1).token_value := l_rev_operation_rec.operation_sequence_number ;
3097: l_token_tbl(2).token_name := 'REVISED_ITEM_NAME';
3098: l_token_tbl(2).token_value := l_rev_operation_rec.revised_item_name ;
3099:
3100: Error_Handler.Add_Error_Token
3101: ( p_Message_Name => 'BOM_OP_ECO_MDLUNITEFFECT'
3102: , p_mesg_token_tbl => l_mesg_token_tbl
3103: , x_mesg_token_tbl => l_mesg_token_tbl
3104: , p_Token_Tbl => l_token_tbl
3107: l_return_status := 'F';
3108: RAISE EXC_FAT_QUIT_SIBLINGS ; -- RAISE EXC_FAT_QUIT_BRANCH
3109: END IF;
3110:
3111: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3112: ('Check if the parent item is unit controlled item with return_status: ' || l_return_status) ;
3113: END IF ;
3114:
3115: --
3126: , x_return_status => l_return_status
3127: ) ;
3128:
3129:
3130: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3131: ('Check Existence completed with return_status: ' || l_return_status) ;
3132: END IF ;
3133:
3134: IF l_return_status = Error_Handler.G_STATUS_ERROR
3130: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3131: ('Check Existence completed with return_status: ' || l_return_status) ;
3132: END IF ;
3133:
3134: IF l_return_status = Error_Handler.G_STATUS_ERROR
3135: THEN
3136: l_other_message := 'BOM_OP_EXS_SEV_SKIP';
3137: l_other_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
3138: l_other_token_tbl(1).token_value :=
3140: l_other_token_tbl(2).token_name := 'REVISED_ITEM_NAME';
3141: l_other_token_tbl(2).token_value :=
3142: l_rev_operation_rec.revised_item_name ;
3143: RAISE EXC_SEV_QUIT_BRANCH;
3144: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
3145: THEN
3146: l_other_message := 'BOM_OP_EXS_UNEXP_SKIP';
3147: l_other_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
3148: l_other_token_tbl(1).token_value :=
3155:
3156: --
3157: -- Process Flow step 7: Check lineage
3158: --
3159: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check lineage'); END IF;
3160: IF l_rev_operation_rec.transaction_type IN
3161: (Bom_Rtg_Globals.G_OPR_UPDATE, Bom_Rtg_Globals.G_OPR_DELETE,
3162: Bom_Rtg_Globals.G_OPR_CANCEL)
3163: THEN
3176: , x_mesg_token_tbl => l_mesg_token_tbl
3177: , x_return_status => l_return_status
3178: ) ;
3179:
3180: IF l_return_status = Error_Handler.G_STATUS_ERROR
3181: THEN
3182:
3183: l_Token_Tbl(1).token_name := 'OP_SEQ_NUMBER';
3184: l_Token_Tbl(1).token_value :=
3188: l_rev_operation_rec.revised_item_name ;
3189: l_token_tbl(3).token_name := 'ECO_NAME' ;
3190: l_token_tbl(3).token_value := l_rev_operation_rec.eco_name ;
3191:
3192: Error_Handler.Add_Error_Token
3193: ( p_Message_Name => 'BOM_OP_REV_ITEM_MISMATCH'
3194: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3195: , x_mesg_token_tbl => l_Mesg_Token_Tbl
3196: , p_Token_Tbl => l_Token_Tbl
3201: l_other_token_tbl(1).token_value :=
3202: l_rev_operation_rec.operation_sequence_number ;
3203: RAISE EXC_SEV_QUIT_BRANCH;
3204:
3205: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
3206: THEN
3207: l_other_message := 'BOM_OP_LIN_UNEXP_SKIP';
3208: l_other_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
3209: l_other_token_tbl(1).token_value :=
3222:
3223: --
3224: -- Process Flow step 9(a and b): Is ECO impl/cancl, or in wkflw process ?
3225: --
3226: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('ECO Check access'); END IF;
3227: ENG_Validate_ECO.Check_Access
3228: ( p_change_notice => l_rev_operation_rec.ECO_Name
3229: , p_organization_id => l_rev_op_unexp_rec.organization_id
3230: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3231: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3232: , x_Return_Status => l_return_status
3233: );
3234:
3235: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
3236:
3237: IF l_return_status = Error_Handler.G_STATUS_ERROR
3238: THEN
3239: l_other_message := 'BOM_OP_ECOACC_FAT_FATAL';
3233: );
3234:
3235: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
3236:
3237: IF l_return_status = Error_Handler.G_STATUS_ERROR
3238: THEN
3239: l_other_message := 'BOM_OP_ECOACC_FAT_FATAL';
3240: l_other_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
3241: l_other_token_tbl(1).token_value :=
3241: l_other_token_tbl(1).token_value :=
3242: l_rev_operation_rec.operation_sequence_number ;
3243: l_return_status := 'F';
3244: RAISE EXC_FAT_QUIT_OBJECT;
3245: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
3246: THEN
3247: l_other_message := 'BOM_OP_ECOACC_UNEXP_SKIP';
3248: l_other_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
3249: l_other_token_tbl(1).token_value :=
3254:
3255: -- Process Flow step 10(a and b): check that user has access to revised item
3256: --
3257:
3258: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item Check access'); END IF;
3259: ENG_Validate_Revised_Item.Check_Access
3260: ( p_change_notice => l_rev_operation_rec.ECO_Name
3261: , p_organization_id => l_rev_op_unexp_rec.organization_id
3262: , p_revised_item_id => l_rev_op_unexp_rec.revised_item_id
3270: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3271: , x_return_status => l_Return_Status
3272: );
3273:
3274: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
3275:
3276: IF l_return_status = Error_Handler.G_STATUS_ERROR
3277: THEN
3278: l_other_message := 'BOM_OP_RITACC_FAT_FATAL';
3272: );
3273:
3274: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
3275:
3276: IF l_return_status = Error_Handler.G_STATUS_ERROR
3277: THEN
3278: l_other_message := 'BOM_OP_RITACC_FAT_FATAL';
3279: l_other_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
3280: l_other_token_tbl(1).token_value :=
3280: l_other_token_tbl(1).token_value :=
3281: l_rev_operation_rec.operation_sequence_number;
3282: l_return_status := 'F';
3283: RAISE EXC_FAT_QUIT_SIBLINGS;
3284: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
3285: THEN
3286: l_other_message := 'BOM_OP_RITACC_UNEXP_SKIP';
3287: l_other_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
3288: l_other_token_tbl(1).token_value :=
3293: --
3294: -- Process Flow step : Check Assembly Item Operability for Operation
3295: -- BOM_Validate_Op_Seq.Check_Access
3296: --
3297: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Operation Check access'); END IF;
3298: BOM_Validate_Op_Seq.Check_Access
3299: ( p_change_notice => l_rev_operation_rec.ECO_Name
3300: , p_organization_id => l_rev_op_unexp_rec.organization_id
3301: , p_revised_item_id => l_rev_op_unexp_rec.revised_item_id
3321: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3322: , x_return_status => l_Return_Status
3323: );
3324:
3325: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('In check access of operations, return_status: ' || l_return_status); END IF;
3326:
3327: IF l_return_status = Error_Handler.G_STATUS_ERROR
3328: THEN
3329: l_other_message := 'BOM_OP_ACCESS_FAT_FATAL';
3323: );
3324:
3325: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('In check access of operations, return_status: ' || l_return_status); END IF;
3326:
3327: IF l_return_status = Error_Handler.G_STATUS_ERROR
3328: THEN
3329: l_other_message := 'BOM_OP_ACCESS_FAT_FATAL';
3330: l_other_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
3331: l_other_token_tbl(1).token_value :=
3331: l_other_token_tbl(1).token_value :=
3332: l_rev_operation_rec.operation_sequence_number ;
3333: l_return_status := 'F' ;
3334: RAISE EXC_FAT_QUIT_SIBLINGS ; -- Check EXC_FAT_QUIT_OBJECT
3335: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
3336: THEN
3337: l_other_message := 'BOM_OP_ACCESS_UNEXP_SKIP';
3338: l_other_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
3339: l_other_token_tbl(1).token_value :=
3352: , x_mesg_token_tbl => l_mesg_token_tbl
3353: , x_return_status => l_return_status
3354: ) ;
3355:
3356: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3357: ('Check the routing non-referenced common completed with return_status: ' || l_return_status) ;
3358: END IF ;
3359:
3360: IF l_return_status = Error_Handler.G_STATUS_ERROR
3356: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3357: ('Check the routing non-referenced common completed with return_status: ' || l_return_status) ;
3358: END IF ;
3359:
3360: IF l_return_status = Error_Handler.G_STATUS_ERROR
3361: THEN
3362: l_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
3363: l_token_tbl(1).token_value :=
3364: l_rev_operation_rec.operation_sequence_number ;
3364: l_rev_operation_rec.operation_sequence_number ;
3365: l_token_tbl(2).token_name := 'REVISED_ITEM_NAME';
3366: l_token_tbl(2).token_value :=
3367: l_rev_operation_rec.revised_item_name ;
3368: Error_Handler.Add_Error_Token
3369: ( p_Message_Name => 'BOM_OP_RTG_HAVECOMMON'
3370: , p_mesg_token_tbl => l_mesg_token_tbl
3371: , x_mesg_token_tbl => l_mesg_token_tbl
3372: , p_Token_Tbl => l_token_tbl
3374:
3375: l_return_status := 'F';
3376: RAISE EXC_FAT_QUIT_SIBLINGS ; -- RAISE EXC_FAT_QUIT_BRANCH ;
3377:
3378: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
3379: THEN
3380: l_other_message := 'BOM_OP_ACCESS_UNEXP_SKIP';
3381: l_other_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
3382: l_other_token_tbl(1).token_value :=
3404: , x_mesg_token_tbl => l_mesg_token_tbl
3405: , x_return_status => l_return_status
3406: ) ;
3407:
3408: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3409: ('Check non-operating columns completed with return_status: ' || l_return_status) ;
3410: END IF ;
3411:
3412: IF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
3408: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3409: ('Check non-operating columns completed with return_status: ' || l_return_status) ;
3410: END IF ;
3411:
3412: IF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
3413: THEN
3414: l_other_message := 'BOM_OP_NOPATTR_UNEXP_SKIP';
3415: l_other_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
3416: l_other_token_tbl(1).token_value :=
3418: RAISE EXC_UNEXP_SKIP_OBJECT;
3419:
3420: ELSIF l_return_status ='S' AND l_mesg_token_tbl .COUNT <>0
3421: THEN
3422: ECO_Error_Handler.Log_Error
3423: ( p_rev_operation_tbl => l_rev_operation_tbl
3424: , p_rev_op_resource_tbl => l_rev_op_resource_tbl
3425: , p_rev_sub_resource_tbl=> l_rev_sub_resource_tbl
3426: , p_mesg_token_tbl => l_mesg_token_tbl
3424: , p_rev_op_resource_tbl => l_rev_op_resource_tbl
3425: , p_rev_sub_resource_tbl=> l_rev_sub_resource_tbl
3426: , p_mesg_token_tbl => l_mesg_token_tbl
3427: , p_error_status => 'W'
3428: , p_error_level => Error_Handler.G_OP_LEVEL
3429: , p_entity_index => I
3430: , x_ECO_rec => l_ECO_rec
3431: , x_eco_revision_tbl => l_eco_revision_tbl
3432: , x_revised_item_tbl => l_revised_item_tbl
3452: , x_mesg_token_tbl => l_mesg_token_tbl
3453: , x_return_status => l_return_status
3454: );
3455:
3456: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3457: ('Value-id conversions completed with return_status: ' ||
3458: l_return_status) ;
3459: END IF ;
3460:
3457: ('Value-id conversions completed with return_status: ' ||
3458: l_return_status) ;
3459: END IF ;
3460:
3461: IF l_return_status = Error_Handler.G_STATUS_ERROR
3462: THEN
3463: IF l_rev_operation_rec.transaction_type = 'CREATE'
3464: THEN
3465: l_other_message := 'BOM_OP_VID_CSEV_SKIP';
3470: ELSE
3471: RAISE EXC_SEV_QUIT_RECORD ;
3472: END IF ;
3473:
3474: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
3475: THEN
3476: l_other_message := 'BOM_OP_VID_UNEXP_SKIP';
3477: l_other_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
3478: l_other_token_tbl(1).token_value :=
3480: RAISE EXC_UNEXP_SKIP_OBJECT;
3481:
3482: ELSIF l_return_status ='S' AND l_mesg_token_tbl .COUNT <>0
3483: THEN
3484: ECO_Error_Handler.Log_Error
3485: ( p_rev_operation_tbl => x_rev_operation_tbl
3486: , p_rev_op_resource_tbl => x_rev_op_resource_tbl
3487: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
3488: , p_mesg_token_tbl => l_mesg_token_tbl
3486: , p_rev_op_resource_tbl => x_rev_op_resource_tbl
3487: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
3488: , p_mesg_token_tbl => l_mesg_token_tbl
3489: , p_error_status => 'W'
3490: , p_error_level => Error_Handler.G_OP_LEVEL
3491: , p_entity_index => I
3492: , x_ECO_rec => l_ECO_rec
3493: , x_eco_revision_tbl => l_eco_revision_tbl
3494: , x_revised_item_tbl => l_revised_item_tbl
3512: , x_mesg_token_tbl => l_mesg_token_tbl
3513: ) ;
3514:
3515:
3516: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3517: ('Check required completed with return_status: ' || l_return_status) ;
3518: END IF ;
3519:
3520:
3517: ('Check required completed with return_status: ' || l_return_status) ;
3518: END IF ;
3519:
3520:
3521: IF l_return_status = Error_Handler.G_STATUS_ERROR
3522: THEN
3523: IF l_rev_operation_rec.transaction_type = Bom_Rtg_Globals.G_OPR_CREATE
3524: THEN
3525: l_other_message := 'BOM_OP_REQ_CSEV_SKIP';
3529: RAISE EXC_SEV_SKIP_BRANCH ;
3530: ELSE
3531: RAISE EXC_SEV_QUIT_RECORD ;
3532: END IF;
3533: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
3534: THEN
3535: l_other_message := 'BOM_OP_REQ_UNEXP_SKIP';
3536: l_other_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
3537: l_other_token_tbl(1).token_value :=
3553: , x_return_status => l_return_status
3554: , x_mesg_token_tbl => l_mesg_token_tbl
3555: ) ;
3556:
3557: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3558: ('Attribute validation completed with return_status: ' || l_return_status) ;
3559: END IF ;
3560:
3561: IF l_return_status = Error_Handler.G_STATUS_ERROR
3557: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3558: ('Attribute validation completed with return_status: ' || l_return_status) ;
3559: END IF ;
3560:
3561: IF l_return_status = Error_Handler.G_STATUS_ERROR
3562: THEN
3563: IF l_rev_operation_rec.transaction_type = Bom_Rtg_Globals.G_OPR_CREATE
3564: THEN
3565: l_other_message := 'BOM_OP_ATTVAL_CSEV_SKIP';
3569: RAISE EXC_SEV_SKIP_BRANCH ;
3570: ELSE
3571: RAISE EXC_SEV_QUIT_RECORD ;
3572: END IF;
3573: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
3574: THEN
3575: l_other_message := 'BOM_OP_ATTVAL_UNEXP_SKIP';
3576: l_other_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
3577: l_other_token_tbl(1).token_value :=
3578: l_rev_operation_rec.operation_sequence_number ;
3579: RAISE EXC_UNEXP_SKIP_OBJECT ;
3580: ELSIF l_return_status ='S' AND l_mesg_token_tbl .COUNT <> 0
3581: THEN
3582: ECO_Error_Handler.Log_Error
3583: ( p_rev_operation_tbl => x_rev_operation_tbl
3584: , p_rev_op_resource_tbl => x_rev_op_resource_tbl
3585: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
3586: , p_mesg_token_tbl => l_mesg_token_tbl
3584: , p_rev_op_resource_tbl => x_rev_op_resource_tbl
3585: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
3586: , p_mesg_token_tbl => l_mesg_token_tbl
3587: , p_error_status => 'W'
3588: , p_error_level => Error_Handler.G_OP_LEVEL
3589: , p_entity_index => I
3590: , x_ECO_rec => l_ECO_rec
3591: , x_eco_revision_tbl => l_eco_revision_tbl
3592: , x_revised_item_tbl => l_revised_item_tbl
3632: ) ;
3633:
3634: IF l_return_status <> Eng_Globals.G_RECORD_FOUND
3635: THEN
3636: l_return_status := Error_Handler.G_STATUS_ERROR ;
3637: l_Token_Tbl(1).token_name := 'OP_SEQ_NUMBER';
3638: l_Token_Tbl(1).token_value :=
3639: l_rev_operation_rec.operation_sequence_number ;
3640:
3637: l_Token_Tbl(1).token_name := 'OP_SEQ_NUMBER';
3638: l_Token_Tbl(1).token_value :=
3639: l_rev_operation_rec.operation_sequence_number ;
3640:
3641: Error_Handler.Add_Error_Token
3642: ( p_message_name => 'BOM_OP_CREATE_REC_NOT_FOUND'
3643: , p_mesg_token_tbl => l_Mesg_Token_Tbl
3644: , p_token_tbl => l_Token_Tbl
3645: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3649: l_other_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
3650: l_other_token_tbl(1).token_value :=
3651: l_rev_operation_rec.operation_sequence_number ;
3652: RAISE EXC_SEV_SKIP_BRANCH;
3653: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
3654: THEN
3655: l_other_message := 'BOM_OP_QRY_UNEXP_SKIP';
3656: l_other_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
3657: l_other_token_tbl(1).token_value :=
3674: -- and Creates with ACD_Type 'Add'.
3675: -- Call Bom_Default_Op_Seq.Populate_Null_Columns
3676: --
3677:
3678: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Populate NULL columns') ;
3679: END IF ;
3680:
3681:
3682: Bom_Default_Op_Seq.Populate_Null_Columns
3707: , x_mesg_token_tbl => l_mesg_token_tbl
3708: , x_return_status => l_return_status
3709: ) ;
3710:
3711: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3712: ('Attribute Defaulting completed with return_status: ' || l_return_status) ;
3713: END IF ;
3714:
3715:
3712: ('Attribute Defaulting completed with return_status: ' || l_return_status) ;
3713: END IF ;
3714:
3715:
3716: IF l_return_status = Error_Handler.G_STATUS_ERROR
3717: THEN
3718: l_other_message := 'BOM_OP_ATTDEF_CSEV_SKIP';
3719: l_other_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
3720: l_other_token_tbl(1).token_value :=
3720: l_other_token_tbl(1).token_value :=
3721: l_rev_operation_rec.operation_sequence_number ;
3722: RAISE EXC_SEV_SKIP_BRANCH ;
3723:
3724: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
3725: THEN
3726: l_other_message := 'BOM_OP_ATTDEF_UNEXP_SKIP';
3727: l_other_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
3728: l_other_token_tbl(1).token_value :=
3729: l_rev_operation_rec.operation_sequence_number ;
3730: RAISE EXC_UNEXP_SKIP_OBJECT ;
3731: ELSIF l_return_status ='S' AND l_mesg_token_tbl .COUNT <> 0
3732: THEN
3733: ECO_Error_Handler.Log_Error
3734: ( p_rev_operation_tbl => x_rev_operation_tbl
3735: , p_rev_op_resource_tbl => x_rev_op_resource_tbl
3736: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
3737: , p_mesg_token_tbl => l_mesg_token_tbl
3735: , p_rev_op_resource_tbl => x_rev_op_resource_tbl
3736: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
3737: , p_mesg_token_tbl => l_mesg_token_tbl
3738: , p_error_status => 'W'
3739: , p_error_level => Error_Handler.G_OP_LEVEL
3740: , p_entity_index => I
3741: , x_ECO_rec => l_ECO_rec
3742: , x_eco_revision_tbl => l_eco_revision_tbl
3743: , x_revised_item_tbl => l_revised_item_tbl
3765: , x_return_status => l_return_status
3766: , x_mesg_token_tbl => l_mesg_token_tbl
3767: ) ;
3768:
3769: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3770: ('Check Conditionally Required Attr. completed with return_status: ' || l_return_status) ;
3771: END IF ;
3772:
3773: IF l_return_status = Error_Handler.G_STATUS_ERROR
3769: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3770: ('Check Conditionally Required Attr. completed with return_status: ' || l_return_status) ;
3771: END IF ;
3772:
3773: IF l_return_status = Error_Handler.G_STATUS_ERROR
3774: THEN
3775: IF l_rev_operation_rec.transaction_type = Bom_Rtg_Globals.G_OPR_CREATE
3776: THEN
3777: l_other_message := 'BOM_OP_CONREQ_CSEV_SKIP';
3781: RAISE EXC_SEV_SKIP_BRANCH ;
3782: ELSE
3783: RAISE EXC_SEV_QUIT_RECORD ;
3784: END IF;
3785: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
3786: THEN
3787: l_other_message := 'BOM_OP_CONREQ_UNEXP_SKIP';
3788: l_other_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
3789: l_other_token_tbl(1).token_value :=
3790: l_rev_operation_rec.operation_sequence_number ;
3791: RAISE EXC_UNEXP_SKIP_OBJECT ;
3792: ELSIF l_return_status ='S' AND l_mesg_token_tbl .COUNT <> 0
3793: THEN
3794: ECO_Error_Handler.Log_Error
3795: ( p_rev_operation_tbl => x_rev_operation_tbl
3796: , p_rev_op_resource_tbl => x_rev_op_resource_tbl
3797: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
3798: , p_mesg_token_tbl => l_mesg_token_tbl
3796: , p_rev_op_resource_tbl => x_rev_op_resource_tbl
3797: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
3798: , p_mesg_token_tbl => l_mesg_token_tbl
3799: , p_error_status => 'W'
3800: , p_error_level => Error_Handler.G_OP_LEVEL
3801: , p_entity_index => I
3802: , x_ECO_rec => l_ECO_rec
3803: , x_eco_revision_tbl => l_eco_revision_tbl
3804: , x_revised_item_tbl => l_revised_item_tbl
3830: , x_mesg_token_tbl => l_mesg_token_tbl
3831: , x_return_status => l_return_status
3832: ) ;
3833:
3834: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3835: ('Entity defaulting completed with return_status: ' || l_return_status) ;
3836: END IF ;
3837:
3838: IF l_return_status = Error_Handler.G_STATUS_ERROR
3834: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3835: ('Entity defaulting completed with return_status: ' || l_return_status) ;
3836: END IF ;
3837:
3838: IF l_return_status = Error_Handler.G_STATUS_ERROR
3839: THEN
3840: IF l_rev_operation_rec.transaction_type = Bom_Rtg_Globals.G_OPR_CREATE
3841: THEN
3842: l_other_message := 'BOM_OP_ENTDEF_CSEV_SKIP';
3846: RAISE EXC_SEV_SKIP_BRANCH ;
3847: ELSE
3848: RAISE EXC_SEV_QUIT_RECORD ;
3849: END IF;
3850: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
3851: THEN
3852: l_other_message := 'BOM_OP_ENTDEF_UNEXP_SKIP';
3853: l_other_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
3854: l_other_token_tbl(1).token_value :=
3855: l_rev_operation_rec.operation_sequence_number ;
3856: RAISE EXC_UNEXP_SKIP_OBJECT ;
3857: ELSIF l_return_status ='S' AND l_mesg_token_tbl .COUNT <> 0
3858: THEN
3859: ECO_Error_Handler.Log_Error
3860: ( p_rev_operation_tbl => x_rev_operation_tbl
3861: , p_rev_op_resource_tbl => x_rev_op_resource_tbl
3862: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
3863: , p_mesg_token_tbl => l_mesg_token_tbl
3861: , p_rev_op_resource_tbl => x_rev_op_resource_tbl
3862: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
3863: , p_mesg_token_tbl => l_mesg_token_tbl
3864: , p_error_status => 'W'
3865: , p_error_level => Error_Handler.G_OP_LEVEL
3866: , p_entity_index => I
3867: , x_ECO_rec => l_ECO_rec
3868: , x_eco_revision_tbl => l_eco_revision_tbl
3869: , x_revised_item_tbl => l_revised_item_tbl
3883: -- Call Bom_Validate_Op_Seq.Check_Entity
3884: --
3885:
3886: IF Bom_Rtg_Globals.Get_Debug = 'Y'
3887: THEN Error_Handler.Write_Debug('Starting with Revised Operatin Entity Validation . . . ') ;
3888: END IF ;
3889:
3890: Bom_Validate_Op_Seq.Check_Entity
3891: ( p_rev_operation_rec => l_rev_operation_rec
3899: , x_return_status => l_return_status
3900: ) ;
3901:
3902:
3903: IF l_return_status = Error_Handler.G_STATUS_ERROR
3904: THEN
3905: IF l_rev_operation_rec.transaction_type = Bom_Rtg_Globals.G_OPR_CREATE
3906: THEN
3907: l_other_message := 'BOM_OP_ENTVAL_CSEV_SKIP';
3911: RAISE EXC_SEV_SKIP_BRANCH ;
3912: ELSE
3913: RAISE EXC_SEV_QUIT_RECORD ;
3914: END IF;
3915: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
3916: THEN
3917: l_other_message := 'BOM_OP_ENTVAL_UNEXP_SKIP';
3918: l_other_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
3919: l_other_token_tbl(1).token_value :=
3920: l_rev_operation_rec.operation_sequence_number ;
3921: RAISE EXC_UNEXP_SKIP_OBJECT ;
3922: ELSIF l_return_status ='S' AND l_mesg_token_tbl .COUNT <> 0
3923: THEN
3924: ECO_Error_Handler.Log_Error
3925: ( p_rev_operation_tbl => x_rev_operation_tbl
3926: , p_rev_op_resource_tbl => x_rev_op_resource_tbl
3927: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
3928: , p_mesg_token_tbl => l_mesg_token_tbl
3926: , p_rev_op_resource_tbl => x_rev_op_resource_tbl
3927: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
3928: , p_mesg_token_tbl => l_mesg_token_tbl
3929: , p_error_status => 'W'
3930: , p_error_level => Error_Handler.G_OP_LEVEL
3931: , p_entity_index => I
3932: , x_ECO_rec => l_ECO_rec
3933: , x_eco_revision_tbl => l_eco_revision_tbl
3934: , x_revised_item_tbl => l_revised_item_tbl
3940: , x_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
3941: ) ;
3942: END IF;
3943:
3944: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Entity validation completed with '
3945: || l_return_Status || ' proceeding for database writes . . . ') ;
3946: END IF;
3947:
3948: --
3950: --
3951: IF l_rev_operation_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CANCEL
3952: THEN
3953:
3954: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3955: ('Operatin Sequence: Perform Cancel Operation . . .') ;
3956: END IF ;
3957:
3958: ENG_Globals.Cancel_Operation
3966: , x_return_status => l_return_status
3967: , x_mesg_token_tbl => l_mesg_token_tbl
3968: ) ;
3969:
3970: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3971: ('Cancel Operation is completed with return status ' || l_return_status ) ;
3972: END IF ;
3973:
3974: ELSE
3992: , x_return_status => l_return_status
3993: ) ;
3994: END IF;
3995:
3996: IF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
3997: THEN
3998: l_other_message := 'BOM_OP_WRITES_UNEXP_SKIP';
3999: l_other_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
4000: l_other_token_tbl(1).token_value :=
4002: RAISE EXC_UNEXP_SKIP_OBJECT ;
4003: ELSIF l_return_status ='S' AND
4004: l_mesg_token_tbl .COUNT <>0
4005: THEN
4006: ECO_Error_Handler.Log_Error
4007: ( p_rev_operation_tbl => x_rev_operation_tbl
4008: , p_rev_op_resource_tbl => x_rev_op_resource_tbl
4009: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
4010: , p_mesg_token_tbl => l_mesg_token_tbl
4008: , p_rev_op_resource_tbl => x_rev_op_resource_tbl
4009: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
4010: , p_mesg_token_tbl => l_mesg_token_tbl
4011: , p_error_status => 'W'
4012: , p_error_level => Error_Handler.G_OP_LEVEL
4013: , p_entity_index => I
4014: , x_ECO_rec => l_ECO_rec
4015: , x_eco_revision_tbl => l_eco_revision_tbl
4016: , x_revised_item_tbl => l_revised_item_tbl
4030: , x_mesg_token_tbl => l_mesg_token_tbl
4031: , x_return_status => l_return_status
4032: ) ;
4033:
4034: IF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
4035: THEN
4036: l_other_message := 'BOM_OP_WRITES_UNEXP_SKIP';
4037: l_other_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
4038: l_other_token_tbl(1).token_value :=
4040: RAISE EXC_UNEXP_SKIP_OBJECT ;
4041: ELSIF l_return_status ='S' AND
4042: l_mesg_token_tbl .COUNT <>0
4043: THEN
4044: ECO_Error_Handler.Log_Error
4045: ( p_rev_operation_tbl => x_rev_operation_tbl
4046: , p_rev_op_resource_tbl => x_rev_op_resource_tbl
4047: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
4048: , p_mesg_token_tbl => l_mesg_token_tbl
4046: , p_rev_op_resource_tbl => x_rev_op_resource_tbl
4047: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl
4048: , p_mesg_token_tbl => l_mesg_token_tbl
4049: , p_error_status => 'W'
4050: , p_error_level => Error_Handler.G_OP_LEVEL
4051: , p_entity_index => I
4052: , x_ECO_rec => l_ECO_rec
4053: , x_eco_revision_tbl => l_eco_revision_tbl
4054: , x_revised_item_tbl => l_revised_item_tbl
4063:
4064: END IF ;
4065:
4066:
4067: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Database writes completed with status ' || l_return_status);
4068: END IF;
4069:
4070: /*Bug 6485168. l_process_children should be set inside the if clause. In the else set it to false
4071: END IF; -- END IF statement that checks RETURN STATUS
4085: -- For loop exception handler.
4086:
4087: EXCEPTION
4088: WHEN EXC_SEV_QUIT_RECORD THEN
4089: ECO_Error_Handler.Log_Error
4090: ( p_rev_operation_tbl => x_rev_operation_tbl
4091: , p_rev_op_resource_tbl => x_rev_op_resource_tbl
4092: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
4093: , p_mesg_token_tbl => l_mesg_token_tbl
4091: , p_rev_op_resource_tbl => x_rev_op_resource_tbl
4092: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
4093: , p_mesg_token_tbl => l_mesg_token_tbl
4094: , p_error_status => FND_API.G_RET_STS_ERROR
4095: , p_error_scope => Error_Handler.G_SCOPE_RECORD
4096: , p_error_level => Error_Handler.G_OP_LEVEL
4097: , p_entity_index => I
4098: , x_eco_rec => l_eco_rec
4099: , x_eco_revision_tbl => l_eco_revision_tbl
4092: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
4093: , p_mesg_token_tbl => l_mesg_token_tbl
4094: , p_error_status => FND_API.G_RET_STS_ERROR
4095: , p_error_scope => Error_Handler.G_SCOPE_RECORD
4096: , p_error_level => Error_Handler.G_OP_LEVEL
4097: , p_entity_index => I
4098: , x_eco_rec => l_eco_rec
4099: , x_eco_revision_tbl => l_eco_revision_tbl
4100: , x_revised_item_tbl => l_revised_item_tbl
4122:
4123:
4124: WHEN EXC_SEV_QUIT_BRANCH THEN
4125:
4126: ECO_Error_Handler.Log_Error
4127: ( p_rev_operation_tbl => x_rev_operation_tbl
4128: , p_rev_op_resource_tbl => x_rev_op_resource_tbl
4129: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
4130: , p_mesg_token_tbl => l_mesg_token_tbl
4128: , p_rev_op_resource_tbl => x_rev_op_resource_tbl
4129: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
4130: , p_mesg_token_tbl => l_mesg_token_tbl
4131: , p_error_status => FND_API.G_RET_STS_ERROR
4132: , p_error_scope => Error_Handler.G_SCOPE_RECORD
4133: , p_error_level => Error_Handler.G_OP_LEVEL
4134: , p_entity_index => I
4135: , x_eco_rec => l_eco_rec
4136: , x_eco_revision_tbl => l_eco_revision_tbl
4129: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
4130: , p_mesg_token_tbl => l_mesg_token_tbl
4131: , p_error_status => FND_API.G_RET_STS_ERROR
4132: , p_error_scope => Error_Handler.G_SCOPE_RECORD
4133: , p_error_level => Error_Handler.G_OP_LEVEL
4134: , p_entity_index => I
4135: , x_eco_rec => l_eco_rec
4136: , x_eco_revision_tbl => l_eco_revision_tbl
4137: , x_revised_item_tbl => l_revised_item_tbl
4158: --x_rev_sub_resource_tbl := l_rev_sub_resource_tbl ;
4159:
4160:
4161: WHEN EXC_SEV_SKIP_BRANCH THEN
4162: ECO_Error_Handler.Log_Error
4163: ( p_rev_operation_tbl => x_rev_operation_tbl
4164: , p_rev_op_resource_tbl => x_rev_op_resource_tbl
4165: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
4166: , p_mesg_token_tbl => l_mesg_token_tbl
4164: , p_rev_op_resource_tbl => x_rev_op_resource_tbl
4165: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
4166: , p_mesg_token_tbl => l_mesg_token_tbl
4167: , p_error_status => FND_API.G_RET_STS_ERROR
4168: , p_error_scope => Error_Handler.G_SCOPE_RECORD
4169: , p_error_level => Error_Handler.G_OP_LEVEL
4170: , p_entity_index => I
4171: , x_eco_rec => l_eco_rec
4172: , x_eco_revision_tbl => l_eco_revision_tbl
4165: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
4166: , p_mesg_token_tbl => l_mesg_token_tbl
4167: , p_error_status => FND_API.G_RET_STS_ERROR
4168: , p_error_scope => Error_Handler.G_SCOPE_RECORD
4169: , p_error_level => Error_Handler.G_OP_LEVEL
4170: , p_entity_index => I
4171: , x_eco_rec => l_eco_rec
4172: , x_eco_revision_tbl => l_eco_revision_tbl
4173: , x_revised_item_tbl => l_revised_item_tbl
4193: --x_rev_sub_resource_tbl := l_rev_sub_resource_tbl ;
4194:
4195:
4196: WHEN EXC_SEV_QUIT_SIBLINGS THEN
4197: ECO_Error_Handler.Log_Error
4198: ( p_rev_operation_tbl => x_rev_operation_tbl
4199: , p_rev_op_resource_tbl => x_rev_op_resource_tbl
4200: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
4201: , p_mesg_token_tbl => l_mesg_token_tbl
4199: , p_rev_op_resource_tbl => x_rev_op_resource_tbl
4200: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
4201: , p_mesg_token_tbl => l_mesg_token_tbl
4202: , p_error_status => FND_API.G_RET_STS_ERROR
4203: , p_error_scope => Error_Handler.G_SCOPE_RECORD
4204: , p_error_level => Error_Handler.G_OP_LEVEL
4205: , p_entity_index => I
4206: , x_eco_rec => l_eco_rec
4207: , x_eco_revision_tbl => l_eco_revision_tbl
4200: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
4201: , p_mesg_token_tbl => l_mesg_token_tbl
4202: , p_error_status => FND_API.G_RET_STS_ERROR
4203: , p_error_scope => Error_Handler.G_SCOPE_RECORD
4204: , p_error_level => Error_Handler.G_OP_LEVEL
4205: , p_entity_index => I
4206: , x_eco_rec => l_eco_rec
4207: , x_eco_revision_tbl => l_eco_revision_tbl
4208: , x_revised_item_tbl => l_revised_item_tbl
4230:
4231:
4232:
4233: WHEN EXC_FAT_QUIT_BRANCH THEN
4234: ECO_Error_Handler.Log_Error
4235: ( p_rev_operation_tbl => x_rev_operation_tbl
4236: , p_rev_op_resource_tbl => x_rev_op_resource_tbl
4237: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
4238: , p_mesg_token_tbl => l_mesg_token_tbl
4236: , p_rev_op_resource_tbl => x_rev_op_resource_tbl
4237: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
4238: , p_mesg_token_tbl => l_mesg_token_tbl
4239: , p_error_status => FND_API.G_RET_STS_ERROR
4240: , p_error_scope => Error_Handler.G_SCOPE_RECORD
4241: , p_error_level => Error_Handler.G_OP_LEVEL
4242: , p_entity_index => I
4243: , x_eco_rec => l_eco_rec
4244: , x_eco_revision_tbl => l_eco_revision_tbl
4237: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
4238: , p_mesg_token_tbl => l_mesg_token_tbl
4239: , p_error_status => FND_API.G_RET_STS_ERROR
4240: , p_error_scope => Error_Handler.G_SCOPE_RECORD
4241: , p_error_level => Error_Handler.G_OP_LEVEL
4242: , p_entity_index => I
4243: , x_eco_rec => l_eco_rec
4244: , x_eco_revision_tbl => l_eco_revision_tbl
4245: , x_revised_item_tbl => l_revised_item_tbl
4251: , x_rev_sub_resource_tbl => x_rev_sub_resource_tbl
4252: ) ;
4253:
4254: l_process_children := FALSE ;
4255: x_return_status := Error_Handler.G_STATUS_FATAL;
4256: x_mesg_token_tbl := l_mesg_token_tbl ;
4257:
4258: --x_rev_operation_tbl := l_rev_operation_tbl ;
4259: --x_rev_op_resource_tbl := l_rev_op_resource_tbl ;
4261:
4262:
4263:
4264: WHEN EXC_FAT_QUIT_SIBLINGS THEN
4265: ECO_Error_Handler.Log_Error
4266: ( p_rev_operation_tbl => x_rev_operation_tbl
4267: , p_rev_op_resource_tbl => x_rev_op_resource_tbl
4268: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
4269: , p_mesg_token_tbl => l_mesg_token_tbl
4267: , p_rev_op_resource_tbl => x_rev_op_resource_tbl
4268: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
4269: , p_mesg_token_tbl => l_mesg_token_tbl
4270: , p_error_status => FND_API.G_RET_STS_ERROR
4271: , p_error_scope => Error_Handler.G_SCOPE_RECORD
4272: , p_error_level => Error_Handler.G_OP_LEVEL
4273: , p_entity_index => I
4274: , x_eco_rec => l_eco_rec
4275: , x_eco_revision_tbl => l_eco_revision_tbl
4268: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
4269: , p_mesg_token_tbl => l_mesg_token_tbl
4270: , p_error_status => FND_API.G_RET_STS_ERROR
4271: , p_error_scope => Error_Handler.G_SCOPE_RECORD
4272: , p_error_level => Error_Handler.G_OP_LEVEL
4273: , p_entity_index => I
4274: , x_eco_rec => l_eco_rec
4275: , x_eco_revision_tbl => l_eco_revision_tbl
4276: , x_revised_item_tbl => l_revised_item_tbl
4283: ) ;
4284:
4285:
4286: l_process_children := FALSE ;
4287: x_return_status := Error_Handler.G_STATUS_FATAL;
4288: x_mesg_token_tbl := l_mesg_token_tbl ;
4289:
4290: --x_rev_operation_tbl := l_rev_operation_tbl ;
4291: --x_rev_op_resource_tbl := l_rev_op_resource_tbl ;
4292: --x_rev_sub_resource_tbl := l_rev_sub_resource_tbl ;
4293:
4294:
4295: WHEN EXC_FAT_QUIT_OBJECT THEN
4296: ECO_Error_Handler.Log_Error
4297: ( p_rev_operation_tbl => x_rev_operation_tbl
4298: , p_rev_op_resource_tbl => x_rev_op_resource_tbl
4299: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
4300: , p_mesg_token_tbl => l_mesg_token_tbl
4298: , p_rev_op_resource_tbl => x_rev_op_resource_tbl
4299: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
4300: , p_mesg_token_tbl => l_mesg_token_tbl
4301: , p_error_status => FND_API.G_RET_STS_ERROR
4302: , p_error_scope => Error_Handler.G_SCOPE_RECORD
4303: , p_error_level => Error_Handler.G_OP_LEVEL
4304: , p_entity_index => I
4305: , x_eco_rec => l_eco_rec
4306: , x_eco_revision_tbl => l_eco_revision_tbl
4299: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
4300: , p_mesg_token_tbl => l_mesg_token_tbl
4301: , p_error_status => FND_API.G_RET_STS_ERROR
4302: , p_error_scope => Error_Handler.G_SCOPE_RECORD
4303: , p_error_level => Error_Handler.G_OP_LEVEL
4304: , p_entity_index => I
4305: , x_eco_rec => l_eco_rec
4306: , x_eco_revision_tbl => l_eco_revision_tbl
4307: , x_revised_item_tbl => l_revised_item_tbl
4321: --x_rev_sub_resource_tbl := l_rev_sub_resource_tbl ;
4322:
4323:
4324: WHEN EXC_UNEXP_SKIP_OBJECT THEN
4325: ECO_Error_Handler.Log_Error
4326: ( p_rev_operation_tbl => x_rev_operation_tbl
4327: , p_rev_op_resource_tbl => x_rev_op_resource_tbl
4328: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
4329: , p_mesg_token_tbl => l_mesg_token_tbl
4326: ( p_rev_operation_tbl => x_rev_operation_tbl
4327: , p_rev_op_resource_tbl => x_rev_op_resource_tbl
4328: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
4329: , p_mesg_token_tbl => l_mesg_token_tbl
4330: , p_error_status => Error_Handler.G_STATUS_UNEXPECTED
4331: , p_error_level => Error_Handler.G_OP_LEVEL
4332: , p_entity_index => I
4333: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
4334: , p_other_message => l_other_message
4327: , p_rev_op_resource_tbl => x_rev_op_resource_tbl
4328: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
4329: , p_mesg_token_tbl => l_mesg_token_tbl
4330: , p_error_status => Error_Handler.G_STATUS_UNEXPECTED
4331: , p_error_level => Error_Handler.G_OP_LEVEL
4332: , p_entity_index => I
4333: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
4334: , p_other_message => l_other_message
4335: , p_other_token_tbl => l_other_token_tbl
4329: , p_mesg_token_tbl => l_mesg_token_tbl
4330: , p_error_status => Error_Handler.G_STATUS_UNEXPECTED
4331: , p_error_level => Error_Handler.G_OP_LEVEL
4332: , p_entity_index => I
4333: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
4334: , p_other_message => l_other_message
4335: , p_other_token_tbl => l_other_token_tbl
4336: , x_eco_rec => l_eco_rec
4337: , x_eco_revision_tbl => l_eco_revision_tbl
4470: , p_component_item_name IN VARCHAR2 := NULL
4471: , p_operation_seq_num IN NUMBER := NULL
4472: , p_sub_component_tbl IN BOM_BO_PUB.Sub_Component_Tbl_Type
4473: , x_sub_component_tbl IN OUT NOCOPY BOM_BO_PUB.Sub_Component_Tbl_Type
4474: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
4475: , x_return_status OUT NOCOPY VARCHAR2
4476: )
4477: IS
4478: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
4474: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
4475: , x_return_status OUT NOCOPY VARCHAR2
4476: )
4477: IS
4478: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
4479: l_other_token_tbl Error_Handler.Token_Tbl_Type;
4480: l_other_message VARCHAR2(2000);
4481: l_err_text VARCHAR2(2000);
4482: l_valid BOOLEAN := TRUE;
4475: , x_return_status OUT NOCOPY VARCHAR2
4476: )
4477: IS
4478: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
4479: l_other_token_tbl Error_Handler.Token_Tbl_Type;
4480: l_other_message VARCHAR2(2000);
4481: l_err_text VARCHAR2(2000);
4482: l_valid BOOLEAN := TRUE;
4483: l_item_parent_exists BOOLEAN := FALSE;
4494: l_old_sub_component_rec BOM_BO_PUB.Sub_Component_Rec_Type;
4495: l_sub_comp_unexp_rec BOM_BO_PUB.Sub_Comp_Unexposed_Rec_Type;
4496: l_old_sub_comp_unexp_rec BOM_BO_PUB.Sub_Comp_Unexposed_Rec_Type;
4497: l_return_value NUMBER;
4498: l_Token_Tbl Error_Handler.Token_Tbl_Type;
4499:
4500: l_rev_operation_tbl Bom_Rtg_Pub.Rev_Operation_Tbl_Type;
4501: l_rev_op_resource_tbl Bom_Rtg_Pub.Rev_Op_Resource_Tbl_Type;
4502: l_rev_sub_resource_tbl Bom_Rtg_Pub.Rev_Sub_Resource_Tbl_Type;
4612: l_return_status := FND_API.G_RET_STS_SUCCESS;
4613:
4614: l_sub_component_rec.return_status := FND_API.G_RET_STS_SUCCESS;
4615:
4616: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Processing substitite component: ' || l_sub_component_rec.substitute_component_name); END IF;
4617:
4618: -- Bug 6657209
4619: IF (l_comp_parent_exists and ENG_Default_Revised_Item.G_OLD_SCHED_DATE is not null) THEN
4620: l_sub_component_rec.start_effective_date := p_effectivity_date;
4622:
4623: -- Check if transaction_type is valid
4624: --
4625:
4626: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check transaction_type validity'); END IF;
4627: ENG_GLOBALS.Transaction_Type_Validity
4628: ( p_transaction_type => l_sub_component_rec.transaction_type
4629: , p_entity => 'Sub_Comps'
4630: , p_entity_id => l_sub_component_rec.revised_item_name
4633: );
4634:
4635: IF NOT l_valid
4636: THEN
4637: l_return_status := Error_Handler.G_STATUS_ERROR;
4638: RAISE EXC_SEV_QUIT_RECORD;
4639: END IF;
4640:
4641: -- Process Flow step 4(a): Convert user unique index to unique index I
4640:
4641: -- Process Flow step 4(a): Convert user unique index to unique index I
4642: --
4643:
4644: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Converting user unique index to unique index I'); END IF;
4645: Bom_Val_To_Id.Sub_Component_UUI_To_UI
4646: ( p_sub_component_rec => l_sub_component_rec
4647: , p_sub_comp_unexp_rec => l_sub_comp_unexp_rec
4648: , x_sub_comp_unexp_rec => l_sub_comp_unexp_rec
4649: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4650: , x_Return_Status => l_return_status
4651: );
4652:
4653: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
4654:
4655: IF l_return_status = Error_Handler.G_STATUS_ERROR
4656: THEN
4657: RAISE EXC_SEV_QUIT_RECORD;
4651: );
4652:
4653: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
4654:
4655: IF l_return_status = Error_Handler.G_STATUS_ERROR
4656: THEN
4657: RAISE EXC_SEV_QUIT_RECORD;
4658: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
4659: THEN
4654:
4655: IF l_return_status = Error_Handler.G_STATUS_ERROR
4656: THEN
4657: RAISE EXC_SEV_QUIT_RECORD;
4658: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
4659: THEN
4660: l_other_message := 'BOM_SBC_UUI_UNEXP_SKIP';
4661: l_other_token_tbl(1).token_name := 'SUBSTITUTE_ITEM_NAME';
4662: l_other_token_tbl(1).token_value := l_sub_component_rec.substitute_component_name;
4666: -- Process Flow step 4(b): Convert user unique index to unique index II
4667: --
4668:
4669:
4670: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Converting user unique index to unique index II'); END IF;
4671: Bom_Val_To_Id.Sub_Component_UUI_To_UI2
4672: ( p_sub_component_rec => l_sub_component_rec
4673: , p_sub_comp_unexp_rec => l_sub_comp_unexp_rec
4674: , x_sub_comp_unexp_rec => l_sub_comp_unexp_rec
4677: , x_other_token_tbl => l_other_token_tbl
4678: , x_Return_Status => l_return_status
4679: );
4680:
4681: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
4682:
4683: IF l_return_status = Error_Handler.G_STATUS_ERROR
4684: THEN
4685: RAISE EXC_SEV_QUIT_SIBLINGS;
4679: );
4680:
4681: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
4682:
4683: IF l_return_status = Error_Handler.G_STATUS_ERROR
4684: THEN
4685: RAISE EXC_SEV_QUIT_SIBLINGS;
4686: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
4687: THEN
4682:
4683: IF l_return_status = Error_Handler.G_STATUS_ERROR
4684: THEN
4685: RAISE EXC_SEV_QUIT_SIBLINGS;
4686: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
4687: THEN
4688: l_other_message := 'BOM_SBC_UUI_UNEXP_SKIP';
4689: l_other_token_tbl(1).token_name := 'SUBSTITUTE_ITEM_NAME';
4690: l_other_token_tbl(1).token_value := l_sub_component_rec.substitute_component_name;
4691: RAISE EXC_UNEXP_SKIP_OBJECT;
4692: END IF;
4693:
4694: IF Bom_Globals.Get_Debug = 'Y' THEN
4695: Error_Handler.Write_Debug('Converting user unique index to unique index II for Bill and Rev Item Seq Id');
4696: END IF;
4697: -- Added by MK on 12/03/00 to resolve ECO dependency
4698: ENG_Val_To_Id.BillAndRevitem_UUI_To_UI
4699: ( p_revised_item_name => l_sub_component_rec.revised_item_name
4719: , x_other_token_tbl => l_other_token_tbl
4720: , x_Return_Status => l_return_status
4721: ) ;
4722:
4723: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
4724:
4725: IF l_return_status = Error_Handler.G_STATUS_ERROR
4726: THEN
4727: RAISE EXC_SEV_QUIT_SIBLINGS;
4721: ) ;
4722:
4723: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
4724:
4725: IF l_return_status = Error_Handler.G_STATUS_ERROR
4726: THEN
4727: RAISE EXC_SEV_QUIT_SIBLINGS;
4728: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
4729: THEN
4724:
4725: IF l_return_status = Error_Handler.G_STATUS_ERROR
4726: THEN
4727: RAISE EXC_SEV_QUIT_SIBLINGS;
4728: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
4729: THEN
4730: l_other_message := 'BOM_SBC_UUI_UNEXP_SKIP';
4731: l_other_token_tbl(1).token_name := 'SUBSTITUTE_ITEM_NAME';
4732: l_other_token_tbl(1).token_value := l_sub_component_rec.substitute_component_name;
4738:
4739: -- Process Flow step 5: Verify Substitute Component's existence
4740: --
4741:
4742: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check existence'); END IF;
4743: Bom_Validate_Sub_Component.Check_Existence
4744: ( p_sub_component_rec => l_sub_component_rec
4745: , p_sub_comp_unexp_rec => l_sub_comp_unexp_rec
4746: , x_old_sub_component_rec => l_old_sub_component_rec
4748: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4749: , x_return_status => l_Return_Status
4750: );
4751:
4752: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
4753:
4754: IF l_return_status = Error_Handler.G_STATUS_ERROR
4755: THEN
4756: RAISE EXC_SEV_QUIT_RECORD;
4750: );
4751:
4752: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
4753:
4754: IF l_return_status = Error_Handler.G_STATUS_ERROR
4755: THEN
4756: RAISE EXC_SEV_QUIT_RECORD;
4757: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
4758: THEN
4753:
4754: IF l_return_status = Error_Handler.G_STATUS_ERROR
4755: THEN
4756: RAISE EXC_SEV_QUIT_RECORD;
4757: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
4758: THEN
4759: l_other_message := 'BOM_SBC_EXS_UNEXP_SKIP';
4760: l_other_token_tbl(1).token_name := 'SUBSTITUTE_ITEM_NAME';
4761: l_other_token_tbl(1).token_value := l_sub_component_rec.substitute_component_name;
4771:
4772: -- Process Flow step 6: Check lineage
4773: --
4774:
4775: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check lineage'); END IF;
4776: Bom_Validate_Sub_Component.Check_Lineage
4777: ( p_sub_component_rec => l_sub_component_rec
4778: , p_sub_comp_unexp_rec => l_sub_comp_unexp_rec
4779: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4779: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4780: , x_return_status => l_Return_Status
4781: );
4782:
4783: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
4784:
4785: IF l_return_status = Error_Handler.G_STATUS_ERROR
4786: THEN
4787: RAISE EXC_SEV_QUIT_BRANCH;
4781: );
4782:
4783: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
4784:
4785: IF l_return_status = Error_Handler.G_STATUS_ERROR
4786: THEN
4787: RAISE EXC_SEV_QUIT_BRANCH;
4788: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
4789: THEN
4784:
4785: IF l_return_status = Error_Handler.G_STATUS_ERROR
4786: THEN
4787: RAISE EXC_SEV_QUIT_BRANCH;
4788: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
4789: THEN
4790: l_other_message := 'BOM_SBC_LIN_UNEXP_SKIP';
4791: l_other_token_tbl(1).token_name := 'SUBSTITUTE_ITEM_NAME';
4792: l_other_token_tbl(1).token_value := l_sub_component_rec.substitute_component_name;
4803: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4804: , x_Return_Status => l_return_status
4805: );
4806:
4807: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
4808:
4809: IF l_return_status = Error_Handler.G_STATUS_ERROR
4810: THEN
4811: l_other_message := 'BOM_SBC_ECOACC_FAT_FATAL';
4805: );
4806:
4807: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
4808:
4809: IF l_return_status = Error_Handler.G_STATUS_ERROR
4810: THEN
4811: l_other_message := 'BOM_SBC_ECOACC_FAT_FATAL';
4812: l_other_token_tbl(1).token_name := 'SUBSTITUTE_ITEM_NAME';
4813: l_other_token_tbl(1).token_value := l_sub_component_rec.substitute_component_name;
4812: l_other_token_tbl(1).token_name := 'SUBSTITUTE_ITEM_NAME';
4813: l_other_token_tbl(1).token_value := l_sub_component_rec.substitute_component_name;
4814: l_return_status := 'F';
4815: RAISE EXC_FAT_QUIT_OBJECT;
4816: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
4817: THEN
4818: l_other_message := 'BOM_SBC_ECOACC_UNEXP_SKIP';
4819: l_other_token_tbl(1).token_name := 'SUBSTITUTE_ITEM_NAME';
4820: l_other_token_tbl(1).token_value := l_sub_component_rec.substitute_component_name;
4823:
4824: -- Process Flow step 9(a and b): check that user has access to revised item
4825: --
4826:
4827: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check access'); END IF;
4828: ENG_Validate_Revised_Item.Check_Access
4829: ( p_change_notice => l_sub_component_rec.ECO_Name
4830: , p_organization_id => l_sub_comp_unexp_rec.organization_id
4831: , p_revised_item_id => l_sub_comp_unexp_rec.revised_item_id
4840: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4841: , x_return_status => l_Return_Status
4842: );
4843:
4844: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
4845:
4846: IF l_return_status = Error_Handler.G_STATUS_ERROR
4847: THEN
4848: l_other_message := 'BOM_SBC_RITACC_FAT_FATAL';
4842: );
4843:
4844: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
4845:
4846: IF l_return_status = Error_Handler.G_STATUS_ERROR
4847: THEN
4848: l_other_message := 'BOM_SBC_RITACC_FAT_FATAL';
4849: l_other_token_tbl(1).token_name := 'SUBSTITUTE_ITEM_NAME';
4850: l_other_token_tbl(1).token_value := l_sub_component_rec.substitute_component_name;
4849: l_other_token_tbl(1).token_name := 'SUBSTITUTE_ITEM_NAME';
4850: l_other_token_tbl(1).token_value := l_sub_component_rec.substitute_component_name;
4851: l_return_status := 'F';
4852: RAISE EXC_FAT_QUIT_SIBLINGS;
4853: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
4854: THEN
4855: l_other_message := 'BOM_SBC_RITACC_UNEXP_SKIP';
4856: l_other_token_tbl(1).token_name := 'SUBSTITUTE_ITEM_NAME';
4857: l_other_token_tbl(1).token_value := l_sub_component_rec.substitute_component_name;
4860:
4861: -- Process Flow step 10: check that user has access to revised component
4862: --
4863:
4864: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check access'); END IF;
4865: Bom_Validate_Bom_Component.Check_Access
4866: ( p_change_notice => l_sub_component_rec.ECO_Name
4867: , p_organization_id => l_sub_comp_unexp_rec.organization_id
4868: , p_revised_item_id => l_sub_comp_unexp_rec.revised_item_id
4881: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4882: , x_return_status => l_Return_Status
4883: );
4884:
4885: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
4886:
4887: IF l_return_status = Error_Handler.G_STATUS_ERROR
4888: THEN
4889: l_other_message := 'BOM_SBC_CMPACC_FAT_FATAL';
4883: );
4884:
4885: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
4886:
4887: IF l_return_status = Error_Handler.G_STATUS_ERROR
4888: THEN
4889: l_other_message := 'BOM_SBC_CMPACC_FAT_FATAL';
4890: l_other_token_tbl(1).token_name := 'SUBSTITUTE_ITEM_NAME';
4891: l_other_token_tbl(1).token_value := l_sub_component_rec.substitute_component_name;
4892: l_other_token_tbl(2).token_name := 'REVISED_COMPONENT_NAME';
4893: l_other_token_tbl(2).token_value := l_sub_component_rec.component_item_name;
4894: l_return_status := 'F';
4895: RAISE EXC_FAT_QUIT_SIBLINGS;
4896: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
4897: THEN
4898: l_other_message := 'BOM_SBC_CMPACC_UNEXP_SKIP';
4899: l_other_token_tbl(1).token_name := 'SUBSTITUTE_ITEM_NAME';
4900: l_other_token_tbl(1).token_value := l_sub_component_rec.substitute_component_name;
4905:
4906: -- Process Flow step 11: does user have access to substitute component ?
4907: --
4908:
4909: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check access'); END IF;
4910: Bom_Validate_Sub_Component.Check_Access
4911: ( p_sub_component_rec => l_sub_component_rec
4912: , p_sub_comp_unexp_rec => l_sub_comp_unexp_rec
4913: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4913: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4914: , x_return_status => l_Return_Status
4915: );
4916:
4917: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
4918:
4919: IF l_return_status = Error_Handler.G_STATUS_ERROR
4920: THEN
4921: l_other_message := 'BOM_SBC_ACCESS_FAT_FATAL';
4915: );
4916:
4917: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
4918:
4919: IF l_return_status = Error_Handler.G_STATUS_ERROR
4920: THEN
4921: l_other_message := 'BOM_SBC_ACCESS_FAT_FATAL';
4922: l_other_token_tbl(1).token_name := 'SUBSTITUTE_ITEM_NAME';
4923: l_other_token_tbl(1).token_value := l_sub_component_rec.substitute_component_name;
4922: l_other_token_tbl(1).token_name := 'SUBSTITUTE_ITEM_NAME';
4923: l_other_token_tbl(1).token_value := l_sub_component_rec.substitute_component_name;
4924: l_return_status := 'F';
4925: RAISE EXC_FAT_QUIT_BRANCH;
4926: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
4927: THEN
4928: l_other_message := 'BOM_SBC_ACCESS_UNEXP_SKIP';
4929: l_other_token_tbl(1).token_name := 'SUBSTITUTE_ITEM_NAME';
4930: l_other_token_tbl(1).token_value := l_sub_component_rec.substitute_component_name;
4935:
4936: -- Process Flow step 12: Attribute Validation for CREATE and UPDATE
4937: --
4938:
4939: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Attribute Validation'); END IF;
4940: IF l_sub_component_rec.Transaction_Type IN
4941: (ENG_GLOBALS.G_OPR_CREATE, ENG_GLOBALS.G_OPR_UPDATE)
4942: THEN
4943: Bom_Validate_Sub_Component.Check_Attributes
4946: , p_sub_component_rec => l_sub_component_rec
4947: , p_sub_comp_unexp_rec => l_sub_comp_unexp_rec
4948: );
4949:
4950: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
4951:
4952: IF l_return_status = Error_Handler.G_STATUS_ERROR
4953: THEN
4954: RAISE EXC_SEV_QUIT_RECORD;
4948: );
4949:
4950: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
4951:
4952: IF l_return_status = Error_Handler.G_STATUS_ERROR
4953: THEN
4954: RAISE EXC_SEV_QUIT_RECORD;
4955: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
4956: THEN
4951:
4952: IF l_return_status = Error_Handler.G_STATUS_ERROR
4953: THEN
4954: RAISE EXC_SEV_QUIT_RECORD;
4955: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
4956: THEN
4957: l_other_message := 'BOM_SBC_ATTVAL_UNEXP_SKIP';
4958: l_other_token_tbl(1).token_name := 'SUBSTITUTE_ITEM_NAME';
4959: l_other_token_tbl(1).token_value := l_sub_component_rec.substitute_component_name;
4960: RAISE EXC_UNEXP_SKIP_OBJECT;
4961: ELSIF l_return_status = 'S' AND
4962: x_Mesg_Token_Tbl.COUNT <>0
4963: THEN
4964: Eco_Error_Handler.Log_Error
4965: ( p_sub_component_tbl => x_sub_component_tbl
4966: , p_mesg_token_tbl => l_mesg_token_tbl
4967: , p_error_status => 'W'
4968: , p_error_level => 6
4986:
4987: -- Process flow step 13 - Populate NULL columns for Update and
4988: -- Delete.
4989:
4990: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Populating NULL Columns'); END IF;
4991: Bom_Default_Sub_Component.Populate_NULL_Columns
4992: ( p_sub_component_rec => l_sub_component_rec
4993: , p_old_sub_component_rec => l_old_sub_component_rec
4994: , p_sub_comp_unexp_rec => l_sub_comp_unexp_rec
5001:
5002: -- Process Flow step 14: Default missing values for Operation CREATE
5003: --
5004:
5005: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Attribute Defaulting'); END IF;
5006: Bom_Default_Sub_Component.Attribute_Defaulting
5007: ( p_sub_component_rec => l_sub_component_rec
5008: , p_sub_comp_unexp_rec => l_sub_comp_unexp_rec
5009: , x_sub_component_rec => l_sub_component_rec
5011: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5012: , x_return_status => l_return_status
5013: );
5014:
5015: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
5016:
5017: IF l_return_status = Error_Handler.G_STATUS_ERROR
5018: THEN
5019: RAISE EXC_SEV_QUIT_RECORD;
5013: );
5014:
5015: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
5016:
5017: IF l_return_status = Error_Handler.G_STATUS_ERROR
5018: THEN
5019: RAISE EXC_SEV_QUIT_RECORD;
5020: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
5021: THEN
5016:
5017: IF l_return_status = Error_Handler.G_STATUS_ERROR
5018: THEN
5019: RAISE EXC_SEV_QUIT_RECORD;
5020: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
5021: THEN
5022: l_other_message := 'BOM_SBC_ATTDEF_UNEXP_SKIP';
5023: l_other_token_tbl(1).token_name := 'SUBSTITUTE_ITEM_NAME';
5024: l_other_token_tbl(1).token_value := l_sub_component_rec.substitute_component_name;
5025: RAISE EXC_UNEXP_SKIP_OBJECT;
5026: ELSIF l_return_status ='S' AND
5027: l_Mesg_Token_Tbl.COUNT <>0
5028: THEN
5029: Eco_Error_Handler.Log_Error
5030: ( p_sub_component_tbl => x_sub_component_tbl
5031: , p_mesg_token_tbl => l_mesg_token_tbl
5032: , p_error_status => 'W'
5033: , p_error_level => 6
5047:
5048: -- Process Flow step 15 - Entity Level Validation
5049: --
5050:
5051: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Entity validation'); END IF;
5052: Bom_Validate_Sub_Component.Check_Entity
5053: ( p_sub_component_rec => l_sub_component_rec
5054: , p_sub_comp_unexp_rec => l_sub_comp_unexp_rec
5055: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5055: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5056: , x_return_status => l_Return_Status
5057: );
5058:
5059: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
5060:
5061: IF l_return_status = Error_Handler.G_STATUS_ERROR
5062: THEN
5063: RAISE EXC_SEV_QUIT_RECORD;
5057: );
5058:
5059: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
5060:
5061: IF l_return_status = Error_Handler.G_STATUS_ERROR
5062: THEN
5063: RAISE EXC_SEV_QUIT_RECORD;
5064: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
5065: THEN
5060:
5061: IF l_return_status = Error_Handler.G_STATUS_ERROR
5062: THEN
5063: RAISE EXC_SEV_QUIT_RECORD;
5064: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
5065: THEN
5066: l_other_message := 'BOM_SBC_ENTVAL_UNEXP_SKIP';
5067: l_other_token_tbl(1).token_name := 'SUBSTITUTE_ITEM_NAME';
5068: l_other_token_tbl(1).token_value := l_sub_component_rec.substitute_component_name;
5069: RAISE EXC_UNEXP_SKIP_OBJECT;
5070: ELSIF l_return_status ='S' AND
5071: l_Mesg_Token_Tbl.COUNT <>0
5072: THEN
5073: Eco_Error_Handler.Log_Error
5074: ( p_sub_component_tbl => x_sub_component_tbl
5075: , p_mesg_token_tbl => l_mesg_token_tbl
5076: , p_error_status => 'W'
5077: , p_error_level => 6
5090:
5091: -- Process Flow step 16 : Database Writes
5092: --
5093:
5094: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Writing to the database'); END IF;
5095: Bom_Sub_Component_Util.Perform_Writes
5096: ( p_sub_component_rec => l_sub_component_rec
5097: , p_sub_comp_unexp_rec => l_sub_comp_unexp_rec
5098: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5098: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5099: , x_return_status => l_return_status
5100: );
5101:
5102: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
5103:
5104: IF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
5105: THEN
5106: l_other_message := 'BOM_SBC_WRITES_UNEXP_SKIP';
5100: );
5101:
5102: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
5103:
5104: IF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
5105: THEN
5106: l_other_message := 'BOM_SBC_WRITES_UNEXP_SKIP';
5107: l_other_token_tbl(1).token_name := 'SUBSTITUTE_ITEM_NAME';
5108: l_other_token_tbl(1).token_value := l_sub_component_rec.substitute_component_name;
5109: RAISE EXC_UNEXP_SKIP_OBJECT;
5110: ELSIF l_return_status ='S' AND
5111: l_Mesg_Token_Tbl.COUNT <>0
5112: THEN
5113: Eco_Error_Handler.Log_Error
5114: ( p_sub_component_tbl => x_sub_component_tbl
5115: , p_mesg_token_tbl => l_mesg_token_tbl
5116: , p_error_status => 'W'
5117: , p_error_level => 6
5140: EXCEPTION
5141:
5142: WHEN EXC_SEV_QUIT_RECORD THEN
5143:
5144: Eco_Error_Handler.Log_Error
5145: ( p_sub_component_tbl => x_sub_component_tbl
5146: , p_mesg_token_tbl => l_mesg_token_tbl
5147: , p_error_status => Error_Handler.G_STATUS_ERROR
5148: , p_error_scope => Error_Handler.G_SCOPE_RECORD
5143:
5144: Eco_Error_Handler.Log_Error
5145: ( p_sub_component_tbl => x_sub_component_tbl
5146: , p_mesg_token_tbl => l_mesg_token_tbl
5147: , p_error_status => Error_Handler.G_STATUS_ERROR
5148: , p_error_scope => Error_Handler.G_SCOPE_RECORD
5149: , p_error_level => 6
5150: , p_entity_index => I
5151: , x_eco_rec => l_eco_rec
5144: Eco_Error_Handler.Log_Error
5145: ( p_sub_component_tbl => x_sub_component_tbl
5146: , p_mesg_token_tbl => l_mesg_token_tbl
5147: , p_error_status => Error_Handler.G_STATUS_ERROR
5148: , p_error_scope => Error_Handler.G_SCOPE_RECORD
5149: , p_error_level => 6
5150: , p_entity_index => I
5151: , x_eco_rec => l_eco_rec
5152: , x_eco_revision_tbl => l_eco_revision_tbl
5168: --x_sub_component_tbl := l_sub_component_tbl;
5169:
5170: WHEN EXC_SEV_QUIT_BRANCH THEN
5171:
5172: Eco_Error_Handler.Log_Error
5173: ( p_sub_component_tbl => x_sub_component_tbl
5174: , p_mesg_token_tbl => l_mesg_token_tbl
5175: , p_error_status => Error_Handler.G_STATUS_ERROR
5176: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
5171:
5172: Eco_Error_Handler.Log_Error
5173: ( p_sub_component_tbl => x_sub_component_tbl
5174: , p_mesg_token_tbl => l_mesg_token_tbl
5175: , p_error_status => Error_Handler.G_STATUS_ERROR
5176: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
5177: , p_other_status => Error_Handler.G_STATUS_ERROR
5178: , p_other_message => l_other_message
5179: , p_other_token_tbl => l_other_token_tbl
5172: Eco_Error_Handler.Log_Error
5173: ( p_sub_component_tbl => x_sub_component_tbl
5174: , p_mesg_token_tbl => l_mesg_token_tbl
5175: , p_error_status => Error_Handler.G_STATUS_ERROR
5176: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
5177: , p_other_status => Error_Handler.G_STATUS_ERROR
5178: , p_other_message => l_other_message
5179: , p_other_token_tbl => l_other_token_tbl
5180: , p_error_level => 6
5173: ( p_sub_component_tbl => x_sub_component_tbl
5174: , p_mesg_token_tbl => l_mesg_token_tbl
5175: , p_error_status => Error_Handler.G_STATUS_ERROR
5176: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
5177: , p_other_status => Error_Handler.G_STATUS_ERROR
5178: , p_other_message => l_other_message
5179: , p_other_token_tbl => l_other_token_tbl
5180: , p_error_level => 6
5181: , p_entity_index => I
5199: --x_sub_component_tbl := l_sub_component_tbl;
5200:
5201: WHEN EXC_SEV_QUIT_SIBLINGS THEN
5202:
5203: Eco_Error_Handler.Log_Error
5204: ( p_sub_component_tbl => x_sub_component_tbl
5205: , p_mesg_token_tbl => l_mesg_token_tbl
5206: , p_error_status => Error_Handler.G_STATUS_ERROR
5207: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
5202:
5203: Eco_Error_Handler.Log_Error
5204: ( p_sub_component_tbl => x_sub_component_tbl
5205: , p_mesg_token_tbl => l_mesg_token_tbl
5206: , p_error_status => Error_Handler.G_STATUS_ERROR
5207: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
5208: , p_other_status => Error_Handler.G_STATUS_ERROR
5209: , p_other_message => l_other_message
5210: , p_other_token_tbl => l_other_token_tbl
5203: Eco_Error_Handler.Log_Error
5204: ( p_sub_component_tbl => x_sub_component_tbl
5205: , p_mesg_token_tbl => l_mesg_token_tbl
5206: , p_error_status => Error_Handler.G_STATUS_ERROR
5207: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
5208: , p_other_status => Error_Handler.G_STATUS_ERROR
5209: , p_other_message => l_other_message
5210: , p_other_token_tbl => l_other_token_tbl
5211: , p_error_level => 6
5204: ( p_sub_component_tbl => x_sub_component_tbl
5205: , p_mesg_token_tbl => l_mesg_token_tbl
5206: , p_error_status => Error_Handler.G_STATUS_ERROR
5207: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
5208: , p_other_status => Error_Handler.G_STATUS_ERROR
5209: , p_other_message => l_other_message
5210: , p_other_token_tbl => l_other_token_tbl
5211: , p_error_level => 6
5212: , p_entity_index => I
5232: RETURN;
5233:
5234: WHEN EXC_FAT_QUIT_SIBLINGS THEN
5235:
5236: Eco_Error_Handler.Log_Error
5237: ( p_sub_component_tbl => x_sub_component_tbl
5238: , p_mesg_token_tbl => l_mesg_token_tbl
5239: , p_error_status => Error_Handler.G_STATUS_FATAL
5240: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
5235:
5236: Eco_Error_Handler.Log_Error
5237: ( p_sub_component_tbl => x_sub_component_tbl
5238: , p_mesg_token_tbl => l_mesg_token_tbl
5239: , p_error_status => Error_Handler.G_STATUS_FATAL
5240: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
5241: , p_other_status => Error_Handler.G_STATUS_FATAL
5242: , p_other_message => l_other_message
5243: , p_other_token_tbl => l_other_token_tbl
5236: Eco_Error_Handler.Log_Error
5237: ( p_sub_component_tbl => x_sub_component_tbl
5238: , p_mesg_token_tbl => l_mesg_token_tbl
5239: , p_error_status => Error_Handler.G_STATUS_FATAL
5240: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
5241: , p_other_status => Error_Handler.G_STATUS_FATAL
5242: , p_other_message => l_other_message
5243: , p_other_token_tbl => l_other_token_tbl
5244: , p_error_level => 6
5237: ( p_sub_component_tbl => x_sub_component_tbl
5238: , p_mesg_token_tbl => l_mesg_token_tbl
5239: , p_error_status => Error_Handler.G_STATUS_FATAL
5240: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
5241: , p_other_status => Error_Handler.G_STATUS_FATAL
5242: , p_other_message => l_other_message
5243: , p_other_token_tbl => l_other_token_tbl
5244: , p_error_level => 6
5245: , p_entity_index => I
5253: , x_rev_op_resource_tbl => l_rev_op_resource_tbl --L1
5254: , x_rev_sub_resource_tbl=> l_rev_sub_resource_tbl--L1
5255: );
5256:
5257: x_return_status := Error_Handler.G_STATUS_FATAL;
5258: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
5259: --x_sub_component_tbl := l_sub_component_tbl;
5260:
5261: RETURN;
5261: RETURN;
5262:
5263: WHEN EXC_FAT_QUIT_BRANCH THEN
5264:
5265: Eco_Error_Handler.Log_Error
5266: ( p_sub_component_tbl => x_sub_component_tbl
5267: , p_mesg_token_tbl => l_mesg_token_tbl
5268: , p_error_status => Error_Handler.G_STATUS_FATAL
5269: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
5264:
5265: Eco_Error_Handler.Log_Error
5266: ( p_sub_component_tbl => x_sub_component_tbl
5267: , p_mesg_token_tbl => l_mesg_token_tbl
5268: , p_error_status => Error_Handler.G_STATUS_FATAL
5269: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
5270: , p_other_status => Error_Handler.G_STATUS_FATAL
5271: , p_other_message => l_other_message
5272: , p_other_token_tbl => l_other_token_tbl
5265: Eco_Error_Handler.Log_Error
5266: ( p_sub_component_tbl => x_sub_component_tbl
5267: , p_mesg_token_tbl => l_mesg_token_tbl
5268: , p_error_status => Error_Handler.G_STATUS_FATAL
5269: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
5270: , p_other_status => Error_Handler.G_STATUS_FATAL
5271: , p_other_message => l_other_message
5272: , p_other_token_tbl => l_other_token_tbl
5273: , p_error_level => 6
5266: ( p_sub_component_tbl => x_sub_component_tbl
5267: , p_mesg_token_tbl => l_mesg_token_tbl
5268: , p_error_status => Error_Handler.G_STATUS_FATAL
5269: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
5270: , p_other_status => Error_Handler.G_STATUS_FATAL
5271: , p_other_message => l_other_message
5272: , p_other_token_tbl => l_other_token_tbl
5273: , p_error_level => 6
5274: , p_entity_index => I
5282: , x_rev_op_resource_tbl => l_rev_op_resource_tbl --L1
5283: , x_rev_sub_resource_tbl=> l_rev_sub_resource_tbl--L1
5284: );
5285:
5286: x_return_status := Error_Handler.G_STATUS_FATAL;
5287: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
5288: --x_sub_component_tbl := l_sub_component_tbl;
5289:
5290: WHEN EXC_FAT_QUIT_OBJECT THEN
5288: --x_sub_component_tbl := l_sub_component_tbl;
5289:
5290: WHEN EXC_FAT_QUIT_OBJECT THEN
5291:
5292: Eco_Error_Handler.Log_Error
5293: ( p_sub_component_tbl => x_sub_component_tbl
5294: , p_mesg_token_tbl => l_mesg_token_tbl
5295: , p_error_status => Error_Handler.G_STATUS_FATAL
5296: , p_error_scope => Error_Handler.G_SCOPE_ALL
5291:
5292: Eco_Error_Handler.Log_Error
5293: ( p_sub_component_tbl => x_sub_component_tbl
5294: , p_mesg_token_tbl => l_mesg_token_tbl
5295: , p_error_status => Error_Handler.G_STATUS_FATAL
5296: , p_error_scope => Error_Handler.G_SCOPE_ALL
5297: , p_other_status => Error_Handler.G_STATUS_FATAL
5298: , p_other_message => l_other_message
5299: , p_other_token_tbl => l_other_token_tbl
5292: Eco_Error_Handler.Log_Error
5293: ( p_sub_component_tbl => x_sub_component_tbl
5294: , p_mesg_token_tbl => l_mesg_token_tbl
5295: , p_error_status => Error_Handler.G_STATUS_FATAL
5296: , p_error_scope => Error_Handler.G_SCOPE_ALL
5297: , p_other_status => Error_Handler.G_STATUS_FATAL
5298: , p_other_message => l_other_message
5299: , p_other_token_tbl => l_other_token_tbl
5300: , p_error_level => 6
5293: ( p_sub_component_tbl => x_sub_component_tbl
5294: , p_mesg_token_tbl => l_mesg_token_tbl
5295: , p_error_status => Error_Handler.G_STATUS_FATAL
5296: , p_error_scope => Error_Handler.G_SCOPE_ALL
5297: , p_other_status => Error_Handler.G_STATUS_FATAL
5298: , p_other_message => l_other_message
5299: , p_other_token_tbl => l_other_token_tbl
5300: , p_error_level => 6
5301: , p_entity_index => I
5309: , x_rev_op_resource_tbl => l_rev_op_resource_tbl --L1
5310: , x_rev_sub_resource_tbl=> l_rev_sub_resource_tbl--L1
5311: );
5312:
5313: x_return_status := Error_Handler.G_STATUS_FATAL;
5314: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
5315: --x_sub_component_tbl := l_sub_component_tbl;
5316:
5317: l_return_status := 'Q';
5317: l_return_status := 'Q';
5318:
5319: WHEN EXC_UNEXP_SKIP_OBJECT THEN
5320:
5321: Eco_Error_Handler.Log_Error
5322: ( p_sub_component_tbl => x_sub_component_tbl
5323: , p_mesg_token_tbl => l_mesg_token_tbl
5324: , p_error_status => Error_Handler.G_STATUS_UNEXPECTED
5325: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
5320:
5321: Eco_Error_Handler.Log_Error
5322: ( p_sub_component_tbl => x_sub_component_tbl
5323: , p_mesg_token_tbl => l_mesg_token_tbl
5324: , p_error_status => Error_Handler.G_STATUS_UNEXPECTED
5325: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
5326: , p_other_message => l_other_message
5327: , p_other_token_tbl => l_other_token_tbl
5328: , p_error_level => 6
5321: Eco_Error_Handler.Log_Error
5322: ( p_sub_component_tbl => x_sub_component_tbl
5323: , p_mesg_token_tbl => l_mesg_token_tbl
5324: , p_error_status => Error_Handler.G_STATUS_UNEXPECTED
5325: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
5326: , p_other_message => l_other_message
5327: , p_other_token_tbl => l_other_token_tbl
5328: , p_error_level => 6
5329: , x_ECO_rec => l_ECO_rec
5379: , p_ref_designator_tbl IN BOM_BO_PUB.Ref_Designator_Tbl_Type
5380: , p_sub_component_tbl IN BOM_BO_PUB.Sub_Component_Tbl_Type
5381: , x_ref_designator_tbl IN OUT NOCOPY BOM_BO_PUB.Ref_Designator_Tbl_Type
5382: , x_sub_component_tbl IN OUT NOCOPY BOM_BO_PUB.Sub_Component_Tbl_Type
5383: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
5384: , x_return_status OUT NOCOPY VARCHAR2
5385: )
5386: IS
5387: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
5383: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
5384: , x_return_status OUT NOCOPY VARCHAR2
5385: )
5386: IS
5387: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
5388: l_other_token_tbl Error_Handler.Token_Tbl_Type;
5389: l_other_message VARCHAR2(2000);
5390: l_err_text VARCHAR2(2000);
5391: l_valid BOOLEAN := TRUE;
5384: , x_return_status OUT NOCOPY VARCHAR2
5385: )
5386: IS
5387: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
5388: l_other_token_tbl Error_Handler.Token_Tbl_Type;
5389: l_other_message VARCHAR2(2000);
5390: l_err_text VARCHAR2(2000);
5391: l_valid BOOLEAN := TRUE;
5392: l_item_parent_exists BOOLEAN := FALSE;
5403: l_ref_desg_unexp_rec BOM_BO_PUB.Ref_Desg_Unexposed_Rec_Type;
5404: l_old_ref_desg_unexp_rec BOM_BO_PUB.Ref_Desg_Unexposed_Rec_Type;
5405: --l_sub_component_tbl BOM_BO_PUB.Sub_Component_Tbl_Type := p_sub_component_tbl;
5406: l_return_value NUMBER;
5407: l_Token_Tbl Error_Handler.Token_Tbl_Type;
5408:
5409: l_rev_operation_tbl Bom_Rtg_Pub.Rev_Operation_Tbl_Type;
5410: l_rev_op_resource_tbl Bom_Rtg_Pub.Rev_Op_Resource_Tbl_Type;
5411: l_rev_sub_resource_tbl Bom_Rtg_Pub.Rev_Sub_Resource_Tbl_Type;
5428: x_sub_component_tbl := p_sub_component_tbl;
5429:
5430: l_ref_desg_unexp_rec.organization_id := ENG_GLOBALS.Get_org_id;
5431:
5432: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Within processing Ref Designators . . . '); END IF;
5433:
5434:
5435: FOR I IN 1..x_ref_designator_tbl.COUNT LOOP
5436: IF (x_ref_designator_tbl(I).return_status IS NULL OR
5444:
5445: l_ref_designator_rec.transaction_type :=
5446: UPPER(l_ref_designator_rec.transaction_type);
5447:
5448: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Processing Ref Designator . . . ' || l_ref_designator_rec.reference_designator_name || 'at count ' || to_char(i)); END IF;
5449:
5450: IF p_component_item_name IS NOT NULL AND
5451: p_operation_seq_num IS NOT NULL AND
5452: p_revised_item_name IS NOT NULL AND
5456: THEN
5457: -- revised comp parent exists
5458:
5459: l_comp_parent_exists := TRUE;
5460: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Called by Rev_Comps . . .'); END IF;
5461:
5462: ELSIF p_revised_item_name IS NOT NULL AND
5463: p_effectivity_date IS NOT NULL AND
5464: --p_item_revision IS NOT NULL AND (Commented for bug 3766816 - Forward porting for bug 3747487)
5468: -- revised item parent exists
5469:
5470: l_item_parent_exists := TRUE;
5471:
5472: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Called by Rev_Items . . .'); END IF;
5473:
5474: END IF;
5475:
5476: -- Process Flow Step 2: Check if record has not yet been processed and
5476: -- Process Flow Step 2: Check if record has not yet been processed and
5477: -- that it is the child of the parent that called this procedure
5478: --
5479:
5480: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
5481: ('ECO Name: ' || p_change_notice ||
5482: ' Org : ' || p_organization_id ||
5483: ' Eff. Dt : ' || to_char(p_effectivity_date) ||
5484: ' Revision: ' || p_item_revision ||
5543:
5544: -- Check if transaction_type is valid
5545: --
5546:
5547: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check transaction_type validity'); END IF;
5548:
5549:
5550: ENG_GLOBALS.Transaction_Type_Validity
5551: ( p_transaction_type => l_ref_designator_rec.transaction_type
5556: );
5557:
5558: IF NOT l_valid
5559: THEN
5560: l_return_status := Error_Handler.G_STATUS_ERROR;
5561: RAISE EXC_SEV_QUIT_RECORD;
5562: END IF;
5563:
5564: -- Process Flow step 4(a): Convert user unique index to unique index I
5563:
5564: -- Process Flow step 4(a): Convert user unique index to unique index I
5565: --
5566:
5567: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Converting user unique index to unique index I'); END IF;
5568: Bom_Val_To_Id.Ref_Designator_UUI_To_UI
5569: ( p_ref_designator_rec => l_ref_designator_rec
5570: , p_ref_desg_unexp_rec => l_ref_desg_unexp_rec
5571: , x_ref_desg_unexp_rec => l_ref_desg_unexp_rec
5572: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5573: , x_Return_Status => l_return_status
5574: );
5575:
5576: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
5577:
5578: IF l_return_status = Error_Handler.G_STATUS_ERROR
5579: THEN
5580: RAISE EXC_SEV_QUIT_RECORD;
5574: );
5575:
5576: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
5577:
5578: IF l_return_status = Error_Handler.G_STATUS_ERROR
5579: THEN
5580: RAISE EXC_SEV_QUIT_RECORD;
5581: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
5582: THEN
5577:
5578: IF l_return_status = Error_Handler.G_STATUS_ERROR
5579: THEN
5580: RAISE EXC_SEV_QUIT_RECORD;
5581: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
5582: THEN
5583: l_other_message := 'BOM_RFD_UUI_UNEXP_SKIP';
5584: l_other_token_tbl(1).token_name := 'REFERENCE_DESIGNATOR_NAME';
5585: l_other_token_tbl(1).token_value := l_ref_designator_rec.reference_designator_name;
5588:
5589: -- Process Flow step 4(b): Convert user unique index to unique index II
5590: --
5591:
5592: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Converting user unique index to unique index II'); END IF;
5593: Bom_Val_To_Id.Ref_Designator_UUI_To_UI2
5594: ( p_ref_designator_rec => l_ref_designator_rec
5595: , p_ref_desg_unexp_rec => l_ref_desg_unexp_rec
5596: , x_ref_desg_unexp_rec => l_ref_desg_unexp_rec
5599: , x_other_token_tbl => l_other_token_tbl
5600: , x_Return_Status => l_return_status
5601: );
5602:
5603: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
5604:
5605: IF l_return_status = Error_Handler.G_STATUS_ERROR
5606: THEN
5607: RAISE EXC_SEV_QUIT_SIBLINGS;
5601: );
5602:
5603: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
5604:
5605: IF l_return_status = Error_Handler.G_STATUS_ERROR
5606: THEN
5607: RAISE EXC_SEV_QUIT_SIBLINGS;
5608: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
5609: THEN
5604:
5605: IF l_return_status = Error_Handler.G_STATUS_ERROR
5606: THEN
5607: RAISE EXC_SEV_QUIT_SIBLINGS;
5608: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
5609: THEN
5610: l_other_message := 'BOM_RFD_UUI_UNEXP_SKIP';
5611: l_other_token_tbl(1).token_name := 'REFERENCE_DESIGNATOR_NAME';
5612: l_other_token_tbl(1).token_value := l_ref_designator_rec.reference_designator_name;
5614: END IF;
5615:
5616:
5617: IF Bom_Globals.Get_Debug = 'Y' THEN
5618: Error_Handler.Write_Debug('Converting user unique index to unique index II for Bill and Rev Item Seq Id');
5619: END IF;
5620:
5621: -- Added by MK on 12/03/00 to resolve ECO dependency
5622: ENG_Val_To_Id.BillAndRevitem_UUI_To_UI
5644: , x_Return_Status => l_return_status
5645: ) ;
5646:
5647:
5648: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
5649:
5650: IF l_return_status = Error_Handler.G_STATUS_ERROR
5651: THEN
5652: RAISE EXC_SEV_QUIT_SIBLINGS;
5646:
5647:
5648: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
5649:
5650: IF l_return_status = Error_Handler.G_STATUS_ERROR
5651: THEN
5652: RAISE EXC_SEV_QUIT_SIBLINGS;
5653: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
5654: THEN
5649:
5650: IF l_return_status = Error_Handler.G_STATUS_ERROR
5651: THEN
5652: RAISE EXC_SEV_QUIT_SIBLINGS;
5653: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
5654: THEN
5655: l_other_message := 'BOM_RFD_UUI_UNEXP_SKIP';
5656: l_other_token_tbl(1).token_name := 'REFERENCE_DESIGNATOR_NAME';
5657: l_other_token_tbl(1).token_value := l_ref_designator_rec.reference_designator_name;
5661:
5662: -- Process Flow step 5: Verify Reference Designator's existence
5663: --
5664:
5665: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check existence'); END IF;
5666: Bom_Validate_Ref_Designator.Check_Existence
5667: ( p_ref_designator_rec => l_ref_designator_rec
5668: , p_ref_desg_unexp_rec => l_ref_desg_unexp_rec
5669: , x_old_ref_designator_rec => l_old_ref_designator_rec
5671: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5672: , x_return_status => l_Return_Status
5673: );
5674:
5675: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
5676:
5677: IF l_return_status = Error_Handler.G_STATUS_ERROR
5678: THEN
5679: RAISE EXC_SEV_QUIT_RECORD;
5673: );
5674:
5675: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
5676:
5677: IF l_return_status = Error_Handler.G_STATUS_ERROR
5678: THEN
5679: RAISE EXC_SEV_QUIT_RECORD;
5680: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
5681: THEN
5676:
5677: IF l_return_status = Error_Handler.G_STATUS_ERROR
5678: THEN
5679: RAISE EXC_SEV_QUIT_RECORD;
5680: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
5681: THEN
5682: l_other_message := 'BOM_RFD_EXS_UNEXP_SKIP';
5683: l_other_token_tbl(1).token_name := 'REFERENCE_DESIGNATOR_NAME';
5684: l_other_token_tbl(1).token_value := l_ref_designator_rec.reference_designator_name;
5694:
5695: -- Process Flow step 7: Check lineage
5696: --
5697:
5698: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check lineage'); END IF;
5699: Bom_Validate_Ref_Designator.Check_Lineage
5700: ( p_ref_designator_rec => l_ref_designator_rec
5701: , p_ref_desg_unexp_rec => l_ref_desg_unexp_rec
5702: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5702: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5703: , x_return_status => l_Return_Status
5704: );
5705:
5706: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
5707:
5708: IF l_return_status = Error_Handler.G_STATUS_ERROR
5709: THEN
5710: RAISE EXC_SEV_QUIT_BRANCH;
5704: );
5705:
5706: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
5707:
5708: IF l_return_status = Error_Handler.G_STATUS_ERROR
5709: THEN
5710: RAISE EXC_SEV_QUIT_BRANCH;
5711: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
5712: THEN
5707:
5708: IF l_return_status = Error_Handler.G_STATUS_ERROR
5709: THEN
5710: RAISE EXC_SEV_QUIT_BRANCH;
5711: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
5712: THEN
5713: l_other_message := 'BOM_RFD_LIN_UNEXP_SKIP';
5714: l_other_token_tbl(1).token_name := 'REFERENCE_DESIGNATOR_NAME';
5715: l_other_token_tbl(1).token_value := l_ref_designator_rec.reference_designator_name;
5718:
5719: -- Process Flow step 8(a and b): Is ECO impl/cancl, or in wkflw process ?
5720: --
5721:
5722: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(' Check ECO access'); END IF;
5723:
5724: ENG_Validate_ECO.Check_Access
5725: ( p_change_notice => l_ref_designator_rec.ECO_Name
5726: , p_organization_id => l_ref_desg_unexp_rec.organization_id
5728: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5729: , x_Return_Status => l_return_status
5730: );
5731:
5732: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
5733:
5734: IF l_return_status = Error_Handler.G_STATUS_ERROR
5735: THEN
5736: l_other_message := 'BOM_RFD_ECOACC_FAT_FATAL';
5730: );
5731:
5732: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
5733:
5734: IF l_return_status = Error_Handler.G_STATUS_ERROR
5735: THEN
5736: l_other_message := 'BOM_RFD_ECOACC_FAT_FATAL';
5737: l_other_token_tbl(1).token_name := 'REFERENCE_DESIGNATOR_NAME';
5738: l_other_token_tbl(1).token_value := l_ref_designator_rec.reference_designator_name;
5737: l_other_token_tbl(1).token_name := 'REFERENCE_DESIGNATOR_NAME';
5738: l_other_token_tbl(1).token_value := l_ref_designator_rec.reference_designator_name;
5739: l_return_status := 'F';
5740: RAISE EXC_FAT_QUIT_OBJECT;
5741: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
5742: THEN
5743: l_other_message := 'BOM_RFD_ECOACC_UNEXP_SKIP';
5744: l_other_token_tbl(1).token_name := 'REFERENCE_DESIGNATOR_NAME';
5745: l_other_token_tbl(1).token_value := l_ref_designator_rec.reference_designator_name;
5748:
5749: -- Process Flow step 9(a and b): check that user has access to revised item
5750: --
5751:
5752: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check access'); END IF;
5753: ENG_Validate_Revised_Item.Check_Access
5754: ( p_change_notice => l_ref_designator_rec.ECO_Name
5755: , p_organization_id => l_ref_desg_unexp_rec.organization_id
5756: , p_revised_item_id => l_ref_desg_unexp_rec.revised_item_id
5765: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5766: , x_return_status => l_Return_Status
5767: );
5768:
5769: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
5770:
5771: IF l_return_status = Error_Handler.G_STATUS_ERROR
5772: THEN
5773: l_other_message := 'BOM_RFD_RITACC_FAT_FATAL';
5767: );
5768:
5769: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
5770:
5771: IF l_return_status = Error_Handler.G_STATUS_ERROR
5772: THEN
5773: l_other_message := 'BOM_RFD_RITACC_FAT_FATAL';
5774: l_other_token_tbl(1).token_name := 'REFERENCE_DESIGNATOR_NAME';
5775: l_other_token_tbl(1).token_value := l_ref_designator_rec.reference_designator_name;
5774: l_other_token_tbl(1).token_name := 'REFERENCE_DESIGNATOR_NAME';
5775: l_other_token_tbl(1).token_value := l_ref_designator_rec.reference_designator_name;
5776: l_return_status := 'F';
5777: RAISE EXC_FAT_QUIT_SIBLINGS;
5778: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
5779: THEN
5780: l_other_message := 'BOM_RFD_RITACC_UNEXP_SKIP';
5781: l_other_token_tbl(1).token_name := 'REFERENCE_DESIGNATOR_NAME';
5782: l_other_token_tbl(1).token_value := l_ref_designator_rec.reference_designator_name;
5785:
5786: -- Process Flow step 10: check that user has access to revised component
5787: --
5788:
5789: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check access'); END IF;
5790: Bom_Validate_Bom_Component.Check_Access
5791: ( p_change_notice => l_ref_designator_rec.ECO_Name
5792: , p_organization_id => l_ref_desg_unexp_rec.organization_id
5793: , p_revised_item_id => l_ref_desg_unexp_rec.revised_item_id
5806: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5807: , x_return_status => l_Return_Status
5808: );
5809:
5810: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
5811:
5812: IF l_return_status = Error_Handler.G_STATUS_ERROR
5813: THEN
5814: l_other_message := 'BOM_RFD_CMPACC_FAT_FATAL';
5808: );
5809:
5810: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
5811:
5812: IF l_return_status = Error_Handler.G_STATUS_ERROR
5813: THEN
5814: l_other_message := 'BOM_RFD_CMPACC_FAT_FATAL';
5815: l_other_token_tbl(1).token_name := 'REFERENCE_DESIGNATOR_NAME';
5816: l_other_token_tbl(1).token_value := l_ref_designator_rec.reference_designator_name;
5815: l_other_token_tbl(1).token_name := 'REFERENCE_DESIGNATOR_NAME';
5816: l_other_token_tbl(1).token_value := l_ref_designator_rec.reference_designator_name;
5817: l_return_status := 'F';
5818: RAISE EXC_FAT_QUIT_SIBLINGS;
5819: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
5820: THEN
5821: l_other_message := 'BOM_RFD_CMPACC_UNEXP_SKIP';
5822: l_other_token_tbl(1).token_name := 'REFERENCE_DESIGNATOR_NAME';
5823: l_other_token_tbl(1).token_value := l_ref_designator_rec.reference_designator_name;
5826:
5827: -- Process Flow step 8(b): check that user has access to ECO
5828: --
5829:
5830: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check access'); END IF;
5831: Bom_Validate_Ref_Designator.Check_Access
5832: ( p_ref_designator_rec => l_ref_designator_rec
5833: , p_ref_desg_unexp_rec => l_ref_desg_unexp_rec
5834: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5834: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5835: , x_return_status => l_Return_Status
5836: );
5837:
5838: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
5839:
5840: IF l_return_status = Error_Handler.G_STATUS_ERROR
5841: THEN
5842: l_return_status := 'F';
5836: );
5837:
5838: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
5839:
5840: IF l_return_status = Error_Handler.G_STATUS_ERROR
5841: THEN
5842: l_return_status := 'F';
5843: RAISE EXC_FAT_QUIT_SIBLINGS;
5844: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
5840: IF l_return_status = Error_Handler.G_STATUS_ERROR
5841: THEN
5842: l_return_status := 'F';
5843: RAISE EXC_FAT_QUIT_SIBLINGS;
5844: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
5845: THEN
5846: RAISE EXC_UNEXP_SKIP_OBJECT;
5847: END IF;
5848:
5854:
5855: -- Process flow step 11 - Populate NULL columns for Update and
5856: -- Delete.
5857:
5858: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Populating NULL Columns'); END IF;
5859: Bom_Default_Ref_Designator.Populate_NULL_Columns
5860: ( p_ref_designator_rec => l_ref_designator_rec
5861: , p_old_ref_designator_rec => l_old_ref_designator_rec
5862: , p_ref_desg_unexp_rec => l_ref_desg_unexp_rec
5869:
5870: -- Process Flow step 12 - Entity Level Validation
5871: -- Added Check_Entity_Delete by MK on 11/14/00
5872: --
5873: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Entity validation'); END IF;
5874:
5875: IF l_ref_designator_rec.transaction_type = 'DELETE'
5876: THEN
5877:
5874:
5875: IF l_ref_designator_rec.transaction_type = 'DELETE'
5876: THEN
5877:
5878: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Calling Entity Delete validation'); END IF;
5879:
5880: Bom_Validate_Ref_Designator.Check_Entity_Delete
5881: ( p_ref_designator_rec => l_ref_designator_rec
5882: , p_ref_desg_unexp_rec => l_ref_desg_unexp_rec
5891: , x_return_status => l_Return_Status
5892: );
5893: END IF ;
5894:
5895: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
5896:
5897: IF l_return_status = Error_Handler.G_STATUS_ERROR
5898: THEN
5899: RAISE EXC_SEV_QUIT_RECORD;
5893: END IF ;
5894:
5895: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
5896:
5897: IF l_return_status = Error_Handler.G_STATUS_ERROR
5898: THEN
5899: RAISE EXC_SEV_QUIT_RECORD;
5900: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
5901: THEN
5896:
5897: IF l_return_status = Error_Handler.G_STATUS_ERROR
5898: THEN
5899: RAISE EXC_SEV_QUIT_RECORD;
5900: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
5901: THEN
5902: l_other_message := 'BOM_RFD_ENTVAL_UNEXP_SKIP';
5903: l_other_token_tbl(1).token_name := 'REFERENCE_DESIGNATOR_NAME';
5904: l_other_token_tbl(1).token_value := l_ref_designator_rec.reference_designator_name;
5905: RAISE EXC_UNEXP_SKIP_OBJECT;
5906: ELSIF l_return_status ='S' AND
5907: l_Mesg_Token_Tbl.COUNT <>0
5908: THEN
5909: Eco_Error_Handler.Log_Error
5910: ( p_ref_designator_tbl => x_ref_designator_tbl
5911: , p_sub_component_tbl => x_sub_component_tbl
5912: , p_mesg_token_tbl => l_mesg_token_tbl
5913: , p_error_status => 'W'
5922: , x_rev_operation_tbl => l_rev_operation_tbl --L1
5923: , x_rev_op_resource_tbl => l_rev_op_resource_tbl --L1
5924: , x_rev_sub_resource_tbl=> l_rev_sub_resource_tbl--L1
5925: );
5926: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Log Error For Warning '); END IF;
5927: END IF;
5928:
5929: -- Process Flow step 14 : Database Writes
5930: --
5928:
5929: -- Process Flow step 14 : Database Writes
5930: --
5931:
5932: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Writing to the database'); END IF;
5933: Bom_Ref_Designator_Util.Perform_Writes
5934: ( p_ref_designator_rec => l_ref_designator_rec
5935: , p_ref_desg_unexp_rec => l_ref_desg_unexp_rec
5936: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5936: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5937: , x_return_status => l_return_status
5938: );
5939:
5940: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
5941:
5942: IF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
5943: THEN
5944: l_other_message := 'BOM_RFD_WRITES_UNEXP_SKIP';
5938: );
5939:
5940: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
5941:
5942: IF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
5943: THEN
5944: l_other_message := 'BOM_RFD_WRITES_UNEXP_SKIP';
5945: l_other_token_tbl(1).token_name := 'REFERENCE_DESIGNATOR_NAME';
5946: l_other_token_tbl(1).token_value := l_ref_designator_rec.reference_designator_name;
5947: RAISE EXC_UNEXP_SKIP_OBJECT;
5948: ELSIF l_return_status ='S' AND
5949: l_Mesg_Token_Tbl.COUNT <>0
5950: THEN
5951: Eco_Error_Handler.Log_Error
5952: ( p_ref_designator_tbl => x_ref_designator_tbl
5953: , p_sub_component_tbl => x_sub_component_tbl
5954: , p_mesg_token_tbl => l_mesg_token_tbl
5955: , p_error_status => 'W'
5979: EXCEPTION
5980:
5981: WHEN EXC_SEV_QUIT_RECORD THEN
5982:
5983: Eco_Error_Handler.Log_Error
5984: ( p_ref_designator_tbl => x_ref_designator_tbl
5985: , p_sub_component_tbl => x_sub_component_tbl
5986: , p_mesg_token_tbl => l_mesg_token_tbl
5987: , p_error_status => Error_Handler.G_STATUS_ERROR
5983: Eco_Error_Handler.Log_Error
5984: ( p_ref_designator_tbl => x_ref_designator_tbl
5985: , p_sub_component_tbl => x_sub_component_tbl
5986: , p_mesg_token_tbl => l_mesg_token_tbl
5987: , p_error_status => Error_Handler.G_STATUS_ERROR
5988: , p_error_scope => Error_Handler.G_SCOPE_RECORD
5989: , p_error_level => 5
5990: , p_entity_index => I
5991: , x_eco_rec => l_eco_rec
5984: ( p_ref_designator_tbl => x_ref_designator_tbl
5985: , p_sub_component_tbl => x_sub_component_tbl
5986: , p_mesg_token_tbl => l_mesg_token_tbl
5987: , p_error_status => Error_Handler.G_STATUS_ERROR
5988: , p_error_scope => Error_Handler.G_SCOPE_RECORD
5989: , p_error_level => 5
5990: , p_entity_index => I
5991: , x_eco_rec => l_eco_rec
5992: , x_eco_revision_tbl => l_eco_revision_tbl
6009: --x_sub_component_tbl := l_sub_component_tbl;
6010:
6011: WHEN EXC_SEV_QUIT_BRANCH THEN
6012:
6013: Eco_Error_Handler.Log_Error
6014: ( p_ref_designator_tbl => x_ref_designator_tbl
6015: , p_sub_component_tbl => x_sub_component_tbl
6016: , p_mesg_token_tbl => l_mesg_token_tbl
6017: , p_error_status => Error_Handler.G_STATUS_ERROR
6013: Eco_Error_Handler.Log_Error
6014: ( p_ref_designator_tbl => x_ref_designator_tbl
6015: , p_sub_component_tbl => x_sub_component_tbl
6016: , p_mesg_token_tbl => l_mesg_token_tbl
6017: , p_error_status => Error_Handler.G_STATUS_ERROR
6018: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
6019: , p_other_status => Error_Handler.G_STATUS_ERROR
6020: , p_other_message => l_other_message
6021: , p_other_token_tbl => l_other_token_tbl
6014: ( p_ref_designator_tbl => x_ref_designator_tbl
6015: , p_sub_component_tbl => x_sub_component_tbl
6016: , p_mesg_token_tbl => l_mesg_token_tbl
6017: , p_error_status => Error_Handler.G_STATUS_ERROR
6018: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
6019: , p_other_status => Error_Handler.G_STATUS_ERROR
6020: , p_other_message => l_other_message
6021: , p_other_token_tbl => l_other_token_tbl
6022: , p_error_level => 5
6015: , p_sub_component_tbl => x_sub_component_tbl
6016: , p_mesg_token_tbl => l_mesg_token_tbl
6017: , p_error_status => Error_Handler.G_STATUS_ERROR
6018: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
6019: , p_other_status => Error_Handler.G_STATUS_ERROR
6020: , p_other_message => l_other_message
6021: , p_other_token_tbl => l_other_token_tbl
6022: , p_error_level => 5
6023: , p_entity_index => I
6042: --x_sub_component_tbl := l_sub_component_tbl;
6043:
6044: WHEN EXC_SEV_QUIT_SIBLINGS THEN
6045:
6046: Eco_Error_Handler.Log_Error
6047: ( p_ref_designator_tbl => x_ref_designator_tbl
6048: , p_sub_component_tbl => x_sub_component_tbl
6049: , p_mesg_token_tbl => l_mesg_token_tbl
6050: , p_error_status => Error_Handler.G_STATUS_ERROR
6046: Eco_Error_Handler.Log_Error
6047: ( p_ref_designator_tbl => x_ref_designator_tbl
6048: , p_sub_component_tbl => x_sub_component_tbl
6049: , p_mesg_token_tbl => l_mesg_token_tbl
6050: , p_error_status => Error_Handler.G_STATUS_ERROR
6051: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
6052: , p_other_status => Error_Handler.G_STATUS_ERROR
6053: , p_other_message => l_other_message
6054: , p_other_token_tbl => l_other_token_tbl
6047: ( p_ref_designator_tbl => x_ref_designator_tbl
6048: , p_sub_component_tbl => x_sub_component_tbl
6049: , p_mesg_token_tbl => l_mesg_token_tbl
6050: , p_error_status => Error_Handler.G_STATUS_ERROR
6051: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
6052: , p_other_status => Error_Handler.G_STATUS_ERROR
6053: , p_other_message => l_other_message
6054: , p_other_token_tbl => l_other_token_tbl
6055: , p_error_level => 5
6048: , p_sub_component_tbl => x_sub_component_tbl
6049: , p_mesg_token_tbl => l_mesg_token_tbl
6050: , p_error_status => Error_Handler.G_STATUS_ERROR
6051: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
6052: , p_other_status => Error_Handler.G_STATUS_ERROR
6053: , p_other_message => l_other_message
6054: , p_other_token_tbl => l_other_token_tbl
6055: , p_error_level => 5
6056: , p_entity_index => I
6077: RETURN;
6078:
6079: WHEN EXC_FAT_QUIT_SIBLINGS THEN
6080:
6081: Eco_Error_Handler.Log_Error
6082: ( p_ref_designator_tbl => x_ref_designator_tbl
6083: , p_sub_component_tbl => x_sub_component_tbl
6084: , p_mesg_token_tbl => l_mesg_token_tbl
6085: , p_error_status => Error_Handler.G_STATUS_FATAL
6081: Eco_Error_Handler.Log_Error
6082: ( p_ref_designator_tbl => x_ref_designator_tbl
6083: , p_sub_component_tbl => x_sub_component_tbl
6084: , p_mesg_token_tbl => l_mesg_token_tbl
6085: , p_error_status => Error_Handler.G_STATUS_FATAL
6086: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
6087: , p_other_status => Error_Handler.G_STATUS_FATAL
6088: , p_other_message => l_other_message
6089: , p_other_token_tbl => l_other_token_tbl
6082: ( p_ref_designator_tbl => x_ref_designator_tbl
6083: , p_sub_component_tbl => x_sub_component_tbl
6084: , p_mesg_token_tbl => l_mesg_token_tbl
6085: , p_error_status => Error_Handler.G_STATUS_FATAL
6086: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
6087: , p_other_status => Error_Handler.G_STATUS_FATAL
6088: , p_other_message => l_other_message
6089: , p_other_token_tbl => l_other_token_tbl
6090: , p_error_level => 5
6083: , p_sub_component_tbl => x_sub_component_tbl
6084: , p_mesg_token_tbl => l_mesg_token_tbl
6085: , p_error_status => Error_Handler.G_STATUS_FATAL
6086: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
6087: , p_other_status => Error_Handler.G_STATUS_FATAL
6088: , p_other_message => l_other_message
6089: , p_other_token_tbl => l_other_token_tbl
6090: , p_error_level => 5
6091: , p_entity_index => I
6099: , x_rev_op_resource_tbl => l_rev_op_resource_tbl --L1
6100: , x_rev_sub_resource_tbl=> l_rev_sub_resource_tbl--L1
6101: );
6102:
6103: x_return_status := Error_Handler.G_STATUS_FATAL;
6104: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
6105: --x_ref_designator_tbl := l_ref_designator_tbl;
6106: --x_sub_component_tbl := l_sub_component_tbl;
6107:
6108: RETURN;
6109:
6110: WHEN EXC_FAT_QUIT_OBJECT THEN
6111:
6112: Eco_Error_Handler.Log_Error
6113: ( p_ref_designator_tbl => x_ref_designator_tbl
6114: , p_sub_component_tbl => x_sub_component_tbl
6115: , p_mesg_token_tbl => l_mesg_token_tbl
6116: , p_error_status => Error_Handler.G_STATUS_FATAL
6112: Eco_Error_Handler.Log_Error
6113: ( p_ref_designator_tbl => x_ref_designator_tbl
6114: , p_sub_component_tbl => x_sub_component_tbl
6115: , p_mesg_token_tbl => l_mesg_token_tbl
6116: , p_error_status => Error_Handler.G_STATUS_FATAL
6117: , p_error_scope => Error_Handler.G_SCOPE_ALL
6118: , p_other_status => Error_Handler.G_STATUS_FATAL
6119: , p_other_message => l_other_message
6120: , p_other_token_tbl => l_other_token_tbl
6113: ( p_ref_designator_tbl => x_ref_designator_tbl
6114: , p_sub_component_tbl => x_sub_component_tbl
6115: , p_mesg_token_tbl => l_mesg_token_tbl
6116: , p_error_status => Error_Handler.G_STATUS_FATAL
6117: , p_error_scope => Error_Handler.G_SCOPE_ALL
6118: , p_other_status => Error_Handler.G_STATUS_FATAL
6119: , p_other_message => l_other_message
6120: , p_other_token_tbl => l_other_token_tbl
6121: , p_error_level => 5
6114: , p_sub_component_tbl => x_sub_component_tbl
6115: , p_mesg_token_tbl => l_mesg_token_tbl
6116: , p_error_status => Error_Handler.G_STATUS_FATAL
6117: , p_error_scope => Error_Handler.G_SCOPE_ALL
6118: , p_other_status => Error_Handler.G_STATUS_FATAL
6119: , p_other_message => l_other_message
6120: , p_other_token_tbl => l_other_token_tbl
6121: , p_error_level => 5
6122: , p_entity_index => I
6138: l_return_status := 'Q';
6139:
6140: WHEN EXC_UNEXP_SKIP_OBJECT THEN
6141:
6142: Eco_Error_Handler.Log_Error
6143: ( p_ref_designator_tbl => x_ref_designator_tbl
6144: , p_sub_component_tbl => x_sub_component_tbl
6145: , p_mesg_token_tbl => l_mesg_token_tbl
6146: , p_error_status => Error_Handler.G_STATUS_UNEXPECTED
6142: Eco_Error_Handler.Log_Error
6143: ( p_ref_designator_tbl => x_ref_designator_tbl
6144: , p_sub_component_tbl => x_sub_component_tbl
6145: , p_mesg_token_tbl => l_mesg_token_tbl
6146: , p_error_status => Error_Handler.G_STATUS_UNEXPECTED
6147: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
6148: , p_other_message => l_other_message
6149: , p_other_token_tbl => l_other_token_tbl
6150: , p_error_level => 5
6143: ( p_ref_designator_tbl => x_ref_designator_tbl
6144: , p_sub_component_tbl => x_sub_component_tbl
6145: , p_mesg_token_tbl => l_mesg_token_tbl
6146: , p_error_status => Error_Handler.G_STATUS_UNEXPECTED
6147: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
6148: , p_other_message => l_other_message
6149: , p_other_token_tbl => l_other_token_tbl
6150: , p_error_level => 5
6151: , x_ECO_rec => l_ECO_rec
6202: , x_rev_component_tbl IN OUT NOCOPY BOM_BO_PUB.Rev_Component_Tbl_Type
6203: , x_ref_designator_tbl IN OUT NOCOPY BOM_BO_PUB.Ref_Designator_Tbl_Type
6204: , x_sub_component_tbl IN OUT NOCOPY BOM_BO_PUB.Sub_Component_Tbl_Type
6205: , x_rev_comp_unexp_rec OUT NOCOPY BOM_BO_PUB.Rev_Comp_Unexposed_Rec_Type
6206: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
6207: , x_return_status OUT NOCOPY VARCHAR2
6208: -- Bug 2941096 // kamohan
6209: , x_bill_sequence_id IN NUMBER := NULL
6210: )
6208: -- Bug 2941096 // kamohan
6209: , x_bill_sequence_id IN NUMBER := NULL
6210: )
6211: IS
6212: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
6213: l_other_token_tbl Error_Handler.Token_Tbl_Type;
6214: l_other_message VARCHAR2(2000);
6215: l_err_text VARCHAR2(2000);
6216: l_valid BOOLEAN := TRUE;
6209: , x_bill_sequence_id IN NUMBER := NULL
6210: )
6211: IS
6212: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
6213: l_other_token_tbl Error_Handler.Token_Tbl_Type;
6214: l_other_message VARCHAR2(2000);
6215: l_err_text VARCHAR2(2000);
6216: l_valid BOOLEAN := TRUE;
6217: l_item_parent_exists BOOLEAN := FALSE;
6229: --l_sub_component_tbl BOM_BO_PUB.Sub_Component_Tbl_Type := p_sub_component_tbl;
6230: l_return_value NUMBER;
6231: l_process_children BOOLEAN := TRUE;
6232: l_dummy NUMBER ;
6233: l_Token_Tbl Error_Handler.Token_Tbl_Type;
6234: l_structure_type_id NUMBER ;
6235: l_strc_cp_not_allowed NUMBER ;
6236:
6237: l_rev_operation_tbl Bom_Rtg_Pub.Rev_Operation_Tbl_Type;
6340: l_return_status := FND_API.G_RET_STS_SUCCESS;
6341:
6342: l_rev_component_rec.return_status := FND_API.G_RET_STS_SUCCESS;
6343:
6344: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Processing component: ' || l_rev_component_rec.component_item_name); END IF;
6345: -- Check if transaction_type is valid
6346: --
6347: -- Bug 6657209
6348: IF (l_item_parent_exists and ENG_Default_Revised_Item.G_OLD_SCHED_DATE is not null ) THEN
6348: IF (l_item_parent_exists and ENG_Default_Revised_Item.G_OLD_SCHED_DATE is not null ) THEN
6349: l_rev_component_rec.start_effective_date := p_effectivity_date;
6350: END IF;
6351:
6352: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check transaction_type validity'); END IF;
6353: ENG_GLOBALS.Transaction_Type_Validity
6354: ( p_transaction_type => l_rev_component_rec.transaction_type
6355: , p_entity => 'Rev_Comps'
6356: , p_entity_id => l_rev_component_rec.revised_item_name
6365:
6366: -- Process Flow step 4(a): Convert user unique index to unique index I
6367: --
6368:
6369: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Converting user unique index to unique index I'); END IF;
6370: Bom_Val_To_Id.Rev_Component_UUI_To_UI
6371: ( p_rev_component_rec => l_rev_component_rec
6372: , p_rev_comp_unexp_rec => l_rev_comp_unexp_rec
6373: , x_rev_comp_unexp_rec => l_rev_comp_unexp_rec
6374: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6375: , x_Return_Status => l_return_status
6376: );
6377:
6378: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
6379:
6380: IF l_return_status = Error_Handler.G_STATUS_ERROR
6381: THEN
6382: l_other_message := 'BOM_CMP_UUI_SEV_ERROR';
6376: );
6377:
6378: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
6379:
6380: IF l_return_status = Error_Handler.G_STATUS_ERROR
6381: THEN
6382: l_other_message := 'BOM_CMP_UUI_SEV_ERROR';
6383: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
6384: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
6382: l_other_message := 'BOM_CMP_UUI_SEV_ERROR';
6383: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
6384: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
6385: RAISE EXC_SEV_QUIT_BRANCH;
6386: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
6387: THEN
6388: l_other_message := 'BOM_CMP_UUI_UNEXP_SKIP';
6389: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
6390: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
6393:
6394: -- Process Flow step 4(b): Convert user unique index to unique index II
6395: --
6396:
6397: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Converting user unique index to unique index II'); END IF;
6398: Bom_Val_To_Id.Rev_Component_UUI_To_UI2
6399: ( p_rev_component_rec => l_rev_component_rec
6400: , p_rev_comp_unexp_rec => l_rev_comp_unexp_rec
6401: , x_rev_comp_unexp_rec => l_rev_comp_unexp_rec
6404: , x_other_token_tbl => l_other_token_tbl
6405: , x_Return_Status => l_return_status
6406: );
6407:
6408: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
6409:
6410: IF l_return_status = Error_Handler.G_STATUS_ERROR
6411: THEN
6412: RAISE EXC_SEV_QUIT_SIBLINGS;
6406: );
6407:
6408: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
6409:
6410: IF l_return_status = Error_Handler.G_STATUS_ERROR
6411: THEN
6412: RAISE EXC_SEV_QUIT_SIBLINGS;
6413: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
6414: THEN
6409:
6410: IF l_return_status = Error_Handler.G_STATUS_ERROR
6411: THEN
6412: RAISE EXC_SEV_QUIT_SIBLINGS;
6413: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
6414: THEN
6415: l_other_message := 'ENG_CMP_UUI_UNEXP_SKIP';
6416: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
6417: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
6418: RAISE EXC_UNEXP_SKIP_OBJECT;
6419: END IF;
6420:
6421: IF Bom_Globals.Get_Debug = 'Y' THEN
6422: Error_Handler.Write_Debug('Converting user unique index to unique index II for Bill And Rev Seq Id');
6423: END IF;
6424:
6425: ENG_Val_To_Id.BillAndRevitem_UUI_To_UI
6426: ( p_revised_item_name => l_rev_component_rec.revised_item_name
6443: , x_other_token_tbl => l_other_token_tbl
6444: , x_Return_Status => l_return_status
6445: ) ;
6446:
6447: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status) ;
6448: END IF;
6449:
6450: IF l_return_status = Error_Handler.G_STATUS_ERROR
6451: THEN
6446:
6447: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status) ;
6448: END IF;
6449:
6450: IF l_return_status = Error_Handler.G_STATUS_ERROR
6451: THEN
6452: RAISE EXC_SEV_QUIT_SIBLINGS;
6453: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
6454: THEN
6449:
6450: IF l_return_status = Error_Handler.G_STATUS_ERROR
6451: THEN
6452: RAISE EXC_SEV_QUIT_SIBLINGS;
6453: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
6454: THEN
6455: l_other_message := 'ENG_CMP_UUI_UNEXP_SKIP';
6456: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
6457: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
6471:
6472: -- Process Flow step 5: Verify Revised Component's existence
6473: --
6474:
6475: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check existence'); END IF;
6476: Bom_Validate_Bom_Component.Check_Existence
6477: ( p_rev_component_rec => l_rev_component_rec
6478: , p_rev_comp_unexp_rec => l_rev_comp_unexp_rec
6479: , x_old_rev_component_rec => l_old_rev_component_rec
6481: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6482: , x_return_status => l_Return_Status
6483: );
6484:
6485: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
6486:
6487: IF l_return_status = Error_Handler.G_STATUS_ERROR
6488: THEN
6489: l_other_message := 'BOM_CMP_EXS_SEV_ERROR';
6483: );
6484:
6485: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
6486:
6487: IF l_return_status = Error_Handler.G_STATUS_ERROR
6488: THEN
6489: l_other_message := 'BOM_CMP_EXS_SEV_ERROR';
6490: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
6491: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
6491: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
6492: l_other_token_tbl(2).token_name := 'REVISED_ITEM_NAME';
6493: l_other_token_tbl(2).token_value := l_rev_component_rec.revised_item_name;
6494: RAISE EXC_SEV_QUIT_BRANCH;
6495: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
6496: THEN
6497: l_other_message := 'BOM_CMP_EXS_UNEXP_SKIP';
6498: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
6499: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
6505:
6506: -- Process Flow step 6: Check lineage
6507: --
6508:
6509: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check lineage'); END IF;
6510: Bom_Validate_Bom_Component.Check_Lineage
6511: ( p_rev_component_rec => l_rev_component_rec
6512: , p_rev_comp_unexp_rec => l_rev_comp_unexp_rec
6513: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6513: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6514: , x_return_status => l_Return_Status
6515: );
6516:
6517: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
6518:
6519: IF l_return_status = Error_Handler.G_STATUS_ERROR
6520: THEN
6521: l_other_message := 'BOM_CMP_LIN_SEV_SKIP';
6515: );
6516:
6517: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
6518:
6519: IF l_return_status = Error_Handler.G_STATUS_ERROR
6520: THEN
6521: l_other_message := 'BOM_CMP_LIN_SEV_SKIP';
6522: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
6523: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
6521: l_other_message := 'BOM_CMP_LIN_SEV_SKIP';
6522: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
6523: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
6524: RAISE EXC_SEV_QUIT_BRANCH;
6525: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
6526: THEN
6527: l_other_message := 'ENG_CMP_LIN_UNEXP_SKIP';
6528: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
6529: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
6545: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6546: , x_Return_Status => l_return_status
6547: );
6548:
6549: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
6550:
6551: IF l_return_status = Error_Handler.G_STATUS_ERROR
6552: THEN
6553: l_other_message := 'BOM_CMP_ECOACC_FAT_FATAL';
6547: );
6548:
6549: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
6550:
6551: IF l_return_status = Error_Handler.G_STATUS_ERROR
6552: THEN
6553: l_other_message := 'BOM_CMP_ECOACC_FAT_FATAL';
6554: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
6555: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
6554: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
6555: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
6556: l_return_status := 'F';
6557: RAISE EXC_FAT_QUIT_OBJECT;
6558: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
6559: THEN
6560: l_other_message := 'BOM_CMP_ECOACC_UNEXP_SKIP';
6561: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
6562: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
6565:
6566: -- Process Flow step 9(a and b): check that user has access to revised item
6567: --
6568:
6569: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check access'); END IF;
6570: ENG_Validate_Revised_Item.Check_Access
6571: ( p_change_notice => l_rev_component_rec.ECO_Name
6572: , p_organization_id => l_rev_comp_unexp_rec.organization_id
6573: , p_revised_item_id => l_rev_comp_unexp_rec.revised_item_id
6582: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6583: , x_return_status => l_Return_Status
6584: );
6585:
6586: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
6587: IF l_return_status = Error_Handler.G_STATUS_ERROR
6588: THEN
6589: l_other_message := 'BOM_CMP_RITACC_FAT_FATAL';
6590: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
6583: , x_return_status => l_Return_Status
6584: );
6585:
6586: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
6587: IF l_return_status = Error_Handler.G_STATUS_ERROR
6588: THEN
6589: l_other_message := 'BOM_CMP_RITACC_FAT_FATAL';
6590: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
6591: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
6590: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
6591: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
6592: l_return_status := 'F';
6593: RAISE EXC_FAT_QUIT_SIBLINGS;
6594: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
6595: THEN
6596: l_other_message := 'BOM_CMP_RITACC_UNEXP_SKIP';
6597: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
6598: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
6601:
6602: -- Process Flow step 10: check that user has access to revised component
6603: --
6604:
6605: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check access'); END IF;
6606: Bom_Validate_Bom_Component.Check_Access
6607: ( p_change_notice => l_rev_component_rec.ECO_Name
6608: , p_organization_id => l_rev_comp_unexp_rec.organization_id
6609: , p_revised_item_id => l_rev_comp_unexp_rec.revised_item_id
6620: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6621: , x_return_status => l_Return_Status
6622: );
6623:
6624: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
6625:
6626: IF l_return_status = Error_Handler.G_STATUS_ERROR
6627: THEN
6628: l_other_message := 'BOM_CMP_ACCESS_FAT_FATAL';
6622: );
6623:
6624: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
6625:
6626: IF l_return_status = Error_Handler.G_STATUS_ERROR
6627: THEN
6628: l_other_message := 'BOM_CMP_ACCESS_FAT_FATAL';
6629: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
6630: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
6629: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
6630: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
6631: l_return_status := 'F';
6632: RAISE EXC_FAT_QUIT_BRANCH;
6633: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
6634: THEN
6635: l_other_message := 'BOM_CMP_ACCESS_UNEXP_SKIP';
6636: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
6637: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
6652: , x_strc_cp_not_allowed => l_strc_cp_not_allowed
6653: );
6654: IF l_strc_cp_not_allowed = 1
6655: THEN
6656: l_return_status := Error_Handler.G_STATUS_ERROR ;
6657: l_Token_Tbl.DELETE;
6658: l_Token_Tbl(1).token_name := 'STRUCTURE_NAME';
6659: l_Token_Tbl(1).token_value := l_rev_component_rec.alternate_bom_code;
6660:
6657: l_Token_Tbl.DELETE;
6658: l_Token_Tbl(1).token_name := 'STRUCTURE_NAME';
6659: l_Token_Tbl(1).token_value := l_rev_component_rec.alternate_bom_code;
6660:
6661: Error_Handler.Add_Error_Token
6662: ( p_message_name => 'ENG_BILL_CHANGES_NOT_ALLOWED'
6663: , p_mesg_token_tbl => l_Mesg_Token_Tbl
6664: , p_token_tbl => l_Token_Tbl
6665: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6676:
6677: -- Process Flow step 11: Value to Id conversions
6678: --
6679:
6680: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Value-id conversions'); END IF;
6681: Bom_Val_To_Id.Rev_Component_VID
6682: ( x_Return_Status => l_return_status
6683: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6684: , p_rev_comp_unexp_Rec => l_rev_comp_unexp_rec
6685: , x_rev_comp_unexp_Rec => l_rev_comp_unexp_rec
6686: , p_rev_component_Rec => l_rev_component_rec
6687: );
6688:
6689: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
6690:
6691: IF l_return_status = Error_Handler.G_STATUS_ERROR
6692: THEN
6693: IF l_rev_component_rec.transaction_type = 'CREATE'
6687: );
6688:
6689: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
6690:
6691: IF l_return_status = Error_Handler.G_STATUS_ERROR
6692: THEN
6693: IF l_rev_component_rec.transaction_type = 'CREATE'
6694: THEN
6695: l_other_message := 'BOM_CMP_VID_CSEV_SKIP';
6698: RAISE EXC_SEV_SKIP_BRANCH;
6699: ELSE
6700: RAISE EXC_SEV_QUIT_RECORD;
6701: END IF;
6702: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
6703: THEN
6704: l_other_message := 'BOM_CMP_VID_UNEXP_SKIP';
6705: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
6706: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
6707: RAISE EXC_UNEXP_SKIP_OBJECT;
6708: ELSIF l_return_status ='S' AND
6709: l_Mesg_Token_Tbl.COUNT <>0
6710: THEN
6711: Eco_Error_Handler.Log_Error
6712: ( p_rev_component_tbl => x_rev_component_tbl
6713: , p_ref_designator_tbl => x_ref_designator_tbl
6714: , p_sub_component_tbl => x_sub_component_tbl
6715: , p_mesg_token_tbl => l_mesg_token_tbl
6731: -- Process Flow step 12: Check required fields exist
6732: -- (also includes conditionally required fields)
6733: --
6734:
6735: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check required fields'); END IF;
6736: Bom_Validate_Bom_Component.Check_Required
6737: ( x_return_status => l_return_status
6738: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6739: , p_rev_component_rec => l_rev_component_rec
6738: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6739: , p_rev_component_rec => l_rev_component_rec
6740: );
6741:
6742: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
6743:
6744: IF l_return_status = Error_Handler.G_STATUS_ERROR
6745: THEN
6746: IF l_rev_component_rec.transaction_type = 'CREATE'
6740: );
6741:
6742: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
6743:
6744: IF l_return_status = Error_Handler.G_STATUS_ERROR
6745: THEN
6746: IF l_rev_component_rec.transaction_type = 'CREATE'
6747: THEN
6748: l_other_message := 'BOM_CMP_REQ_CSEV_SKIP';
6751: RAISE EXC_SEV_SKIP_BRANCH;
6752: ELSE
6753: RAISE EXC_SEV_QUIT_RECORD;
6754: END IF;
6755: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
6756: THEN
6757: l_other_message := 'BOM_CMP_REQ_UNEXP_SKIP';
6758: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
6759: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
6760: RAISE EXC_UNEXP_SKIP_OBJECT;
6761: ELSIF l_return_status ='S' AND
6762: l_Mesg_Token_Tbl.COUNT <>0
6763: THEN
6764: Eco_Error_Handler.Log_Error
6765: ( p_rev_component_tbl => x_rev_component_tbl
6766: , p_ref_designator_tbl => x_ref_designator_tbl
6767: , p_sub_component_tbl => x_sub_component_tbl
6768: , p_mesg_token_tbl => l_mesg_token_tbl
6783:
6784: -- Process Flow step 13: Attribute Validation for CREATE and UPDATE
6785: --
6786:
6787: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Attribute Validation'); END IF;
6788: IF l_rev_component_rec.Transaction_Type IN
6789: (ENG_GLOBALS.G_OPR_CREATE, ENG_GLOBALS.G_OPR_UPDATE)
6790: THEN
6791: Bom_Validate_Bom_Component.Check_Attributes
6794: , p_rev_component_rec => l_rev_component_rec
6795: , p_rev_comp_unexp_rec => l_rev_comp_unexp_rec
6796: );
6797:
6798: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
6799:
6800: IF l_return_status = Error_Handler.G_STATUS_ERROR
6801: THEN
6802: IF l_rev_component_rec.transaction_type = 'CREATE'
6796: );
6797:
6798: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
6799:
6800: IF l_return_status = Error_Handler.G_STATUS_ERROR
6801: THEN
6802: IF l_rev_component_rec.transaction_type = 'CREATE'
6803: THEN
6804: l_other_message := 'BOM_CMP_ATTVAL_CSEV_SKIP';
6807: RAISE EXC_SEV_QUIT_BRANCH;
6808: ELSE
6809: RAISE EXC_SEV_QUIT_RECORD;
6810: END IF;
6811: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
6812: THEN
6813: l_other_message := 'BOM_CMP_ATTVAL_UNEXP_SKIP';
6814: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
6815: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
6816: RAISE EXC_UNEXP_SKIP_OBJECT;
6817: ELSIF l_return_status ='S' AND
6818: l_Mesg_Token_Tbl.COUNT <>0
6819: THEN
6820: Eco_Error_Handler.Log_Error
6821: ( p_rev_component_tbl => x_rev_component_tbl
6822: , p_ref_designator_tbl => x_ref_designator_tbl
6823: , p_sub_component_tbl => x_sub_component_tbl
6824: , p_mesg_token_tbl => l_mesg_token_tbl
6865: );
6866:
6867: IF l_return_status <> Eng_Globals.G_RECORD_FOUND
6868: THEN
6869: l_return_status := Error_Handler.G_STATUS_ERROR ;
6870: l_Token_Tbl(1).token_name := 'REVISED_COMPONENT_NAME';
6871: l_Token_Tbl(1).token_value := l_rev_component_rec.component_item_name;
6872:
6873: Error_Handler.Add_Error_Token
6869: l_return_status := Error_Handler.G_STATUS_ERROR ;
6870: l_Token_Tbl(1).token_name := 'REVISED_COMPONENT_NAME';
6871: l_Token_Tbl(1).token_value := l_rev_component_rec.component_item_name;
6872:
6873: Error_Handler.Add_Error_Token
6874: ( p_message_name => 'ENG_CMP_CREATE_REC_NOT_FOUND' --'BOM_CMP_CREATE_REC_NOT_FOUND' -- Bug 3612008 :Modified incorrect message_name
6875: , p_mesg_token_tbl => l_Mesg_Token_Tbl
6876: , p_token_tbl => l_Token_Tbl
6877: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6880: l_other_message := 'BOM_CMP_QRY_CSEV_SKIP';
6881: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
6882: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
6883: RAISE EXC_SEV_SKIP_BRANCH;
6884: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
6885: THEN
6886: l_other_message := 'BOM_CMP_QRY_UNEXP_SKIP';
6887: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
6888: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
6898: OR
6899: l_rev_component_rec.transaction_type IN (ENG_GLOBALS.G_OPR_UPDATE,
6900: ENG_GLOBALS.G_OPR_DELETE)
6901: THEN
6902: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Populate NULL columns'); END IF;
6903: Bom_Default_Bom_Component.Populate_Null_Columns
6904: ( p_rev_component_rec => l_rev_Component_Rec
6905: , p_old_rev_Component_Rec => l_old_rev_Component_Rec
6906: , p_rev_comp_unexp_rec => l_rev_comp_unexp_rec
6913:
6914: -- Process Flow step 16: Default missing values for Operation CREATE
6915: --
6916:
6917: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Attribute Defaulting'); END IF;
6918: Bom_Default_Bom_Component.Attribute_Defaulting
6919: ( p_rev_component_rec => l_rev_component_rec
6920: , p_rev_comp_unexp_rec => l_rev_comp_unexp_rec
6921: , x_rev_component_rec => l_rev_component_rec
6923: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6924: , x_return_status => l_return_status
6925: );
6926:
6927: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
6928:
6929: IF l_return_status = Error_Handler.G_STATUS_ERROR
6930: THEN
6931: l_other_message := 'BOM_CMP_ATTDEF_CSEV_SKIP';
6925: );
6926:
6927: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
6928:
6929: IF l_return_status = Error_Handler.G_STATUS_ERROR
6930: THEN
6931: l_other_message := 'BOM_CMP_ATTDEF_CSEV_SKIP';
6932: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
6933: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
6931: l_other_message := 'BOM_CMP_ATTDEF_CSEV_SKIP';
6932: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
6933: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
6934: RAISE EXC_SEV_SKIP_BRANCH;
6935: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
6936: THEN
6937: l_other_message := 'BOM_CMP_ATTDEF_UNEXP_SKIP';
6938: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
6939: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
6940: RAISE EXC_UNEXP_SKIP_OBJECT;
6941: ELSIF l_return_status ='S' AND
6942: l_Mesg_Token_Tbl.COUNT <>0
6943: THEN
6944: Eco_Error_Handler.Log_Error
6945: ( p_rev_component_tbl => x_rev_component_tbl
6946: , p_ref_designator_tbl => x_ref_designator_tbl
6947: , p_sub_component_tbl => x_sub_component_tbl
6948: , p_mesg_token_tbl => l_mesg_token_tbl
6964:
6965: -- Process Flow step 17: Entity defaulting for CREATE and UPDATE
6966: --
6967:
6968: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Entity defaulting'); END IF;
6969: IF l_rev_component_rec.Transaction_Type IN
6970: (ENG_GLOBALS.G_OPR_CREATE, ENG_GLOBALS.G_OPR_UPDATE)
6971: THEN
6972: Bom_Default_Bom_Component.Entity_Defaulting
6974: , p_old_rev_component_rec => l_old_rev_component_rec
6975: , x_rev_component_rec => l_rev_component_rec
6976: );
6977:
6978: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
6979:
6980: IF l_return_status = Error_Handler.G_STATUS_ERROR
6981: THEN
6982: IF l_rev_component_rec.transaction_type = 'CREATE'
6976: );
6977:
6978: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
6979:
6980: IF l_return_status = Error_Handler.G_STATUS_ERROR
6981: THEN
6982: IF l_rev_component_rec.transaction_type = 'CREATE'
6983: THEN
6984: l_other_message := 'BOM_CMP_ENTDEF_CSEV_SKIP';
6987: RAISE EXC_SEV_SKIP_BRANCH;
6988: ELSE
6989: RAISE EXC_SEV_QUIT_RECORD;
6990: END IF;
6991: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
6992: THEN
6993: l_other_message := 'BOM_CMP_ENTDEF_UNEXP_SKIP';
6994: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
6995: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
6996: RAISE EXC_UNEXP_SKIP_OBJECT;
6997: ELSIF l_return_status ='S' AND
6998: l_Mesg_Token_Tbl.COUNT <>0
6999: THEN
7000: Eco_Error_Handler.Log_Error
7001: ( p_rev_component_tbl => x_rev_component_tbl
7002: , p_ref_designator_tbl => x_ref_designator_tbl
7003: , p_sub_component_tbl => x_sub_component_tbl
7004: , p_mesg_token_tbl => l_mesg_token_tbl
7020:
7021: -- Process Flow step 18 - Entity Level Validation
7022: --
7023:
7024: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Entity validation'); END IF;
7025: Bom_Validate_Bom_Component.Check_Entity
7026: ( p_rev_component_rec => l_rev_component_rec
7027: , p_rev_comp_unexp_rec => l_rev_comp_unexp_rec
7028: , p_old_rev_component_rec => l_old_rev_component_rec
7030: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
7031: , x_return_status => l_Return_Status
7032: );
7033:
7034: --IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
7035:
7036: IF l_return_status = Error_Handler.G_STATUS_ERROR
7037: THEN
7038: IF l_rev_component_rec.transaction_type = 'CREATE'
7032: );
7033:
7034: --IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
7035:
7036: IF l_return_status = Error_Handler.G_STATUS_ERROR
7037: THEN
7038: IF l_rev_component_rec.transaction_type = 'CREATE'
7039: THEN
7040: l_other_message := 'BOM_CMP_ENTVAL_CSEV_SKIP';
7043: RAISE EXC_SEV_QUIT_BRANCH;
7044: ELSE
7045: RAISE EXC_SEV_QUIT_RECORD;
7046: END IF;
7047: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
7048: THEN
7049: l_other_message := 'BOM_CMP_ENTVAL_UNEXP_SKIP';
7050: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
7051: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
7052: RAISE EXC_UNEXP_SKIP_OBJECT;
7053: ELSIF l_return_status ='S' AND
7054: l_Mesg_Token_Tbl.COUNT <>0
7055: THEN
7056: Eco_Error_Handler.Log_Error
7057: ( p_rev_component_tbl => x_rev_component_tbl
7058: , p_ref_designator_tbl => x_ref_designator_tbl
7059: , p_sub_component_tbl => x_sub_component_tbl
7060: , p_mesg_token_tbl => l_mesg_token_tbl
7075:
7076: -- Process Flow step 16 : Database Writes
7077: --
7078:
7079: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Writing to the database'); END IF;
7080: BOM_Globals.Set_BO_Identifier('ECO'); --bug 13849573
7081: Bom_Bom_Component_Util.Perform_Writes
7082: ( p_rev_component_rec => l_rev_component_rec
7083: , p_rev_comp_unexp_rec => l_rev_comp_unexp_rec
7084: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
7085: , x_return_status => l_return_status
7086: );
7087:
7088: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
7089:
7090: IF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
7091: THEN
7092: l_other_message := 'BOM_CMP_WRITES_UNEXP_SKIP';
7086: );
7087:
7088: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
7089:
7090: IF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
7091: THEN
7092: l_other_message := 'BOM_CMP_WRITES_UNEXP_SKIP';
7093: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
7094: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
7095: RAISE EXC_UNEXP_SKIP_OBJECT;
7096: ELSIF l_return_status ='S' AND
7097: l_Mesg_Token_Tbl.COUNT <>0
7098: THEN
7099: Eco_Error_Handler.Log_Error
7100: ( p_rev_component_tbl => x_rev_component_tbl
7101: , p_ref_designator_tbl => x_ref_designator_tbl
7102: , p_sub_component_tbl => x_sub_component_tbl
7103: , p_mesg_token_tbl => l_mesg_token_tbl
7132: ELSE
7133:
7134:
7135: IF Bom_Globals.Get_Debug = 'Y' THEN
7136: Error_Handler.Write_Debug('This record does not patch with the parent that called it . . . ') ;
7137: Error_Handler.Write_Debug('so may be this is an comp in another branch . . . '
7138: || l_rev_component_rec.component_item_name ) ;
7139: END IF ;
7140:
7133:
7134:
7135: IF Bom_Globals.Get_Debug = 'Y' THEN
7136: Error_Handler.Write_Debug('This record does not patch with the parent that called it . . . ') ;
7137: Error_Handler.Write_Debug('so may be this is an comp in another branch . . . '
7138: || l_rev_component_rec.component_item_name ) ;
7139: END IF ;
7140:
7141: l_process_children := FALSE;
7149: EXCEPTION
7150:
7151: WHEN EXC_SEV_QUIT_RECORD THEN
7152:
7153: Eco_Error_Handler.Log_Error
7154: ( p_rev_component_tbl => x_rev_component_tbl
7155: , p_ref_designator_tbl => x_ref_designator_tbl
7156: , p_sub_component_tbl => x_sub_component_tbl
7157: , p_mesg_token_tbl => l_mesg_token_tbl
7155: , p_ref_designator_tbl => x_ref_designator_tbl
7156: , p_sub_component_tbl => x_sub_component_tbl
7157: , p_mesg_token_tbl => l_mesg_token_tbl
7158: , p_error_status => FND_API.G_RET_STS_ERROR
7159: , p_error_scope => Error_Handler.G_SCOPE_RECORD
7160: , p_error_level => 4
7161: , p_entity_index => I
7162: , x_eco_rec => l_eco_rec
7163: , x_eco_revision_tbl => l_eco_revision_tbl
7184: --x_sub_component_tbl := l_sub_component_tbl;
7185:
7186: WHEN EXC_SEV_QUIT_BRANCH THEN
7187:
7188: Eco_Error_Handler.Log_Error
7189: ( p_rev_component_tbl => x_rev_component_tbl
7190: , p_ref_designator_tbl => x_ref_designator_tbl
7191: , p_sub_component_tbl => x_sub_component_tbl
7192: , p_mesg_token_tbl => l_mesg_token_tbl
7189: ( p_rev_component_tbl => x_rev_component_tbl
7190: , p_ref_designator_tbl => x_ref_designator_tbl
7191: , p_sub_component_tbl => x_sub_component_tbl
7192: , p_mesg_token_tbl => l_mesg_token_tbl
7193: , p_error_status => Error_Handler.G_STATUS_ERROR
7194: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
7195: , p_other_status => Error_Handler.G_STATUS_ERROR
7196: , p_other_message => l_other_message
7197: , p_other_token_tbl => l_other_token_tbl
7190: , p_ref_designator_tbl => x_ref_designator_tbl
7191: , p_sub_component_tbl => x_sub_component_tbl
7192: , p_mesg_token_tbl => l_mesg_token_tbl
7193: , p_error_status => Error_Handler.G_STATUS_ERROR
7194: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
7195: , p_other_status => Error_Handler.G_STATUS_ERROR
7196: , p_other_message => l_other_message
7197: , p_other_token_tbl => l_other_token_tbl
7198: , p_error_level => 4
7191: , p_sub_component_tbl => x_sub_component_tbl
7192: , p_mesg_token_tbl => l_mesg_token_tbl
7193: , p_error_status => Error_Handler.G_STATUS_ERROR
7194: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
7195: , p_other_status => Error_Handler.G_STATUS_ERROR
7196: , p_other_message => l_other_message
7197: , p_other_token_tbl => l_other_token_tbl
7198: , p_error_level => 4
7199: , p_entity_index => I
7222: --x_sub_component_tbl := l_sub_component_tbl;
7223:
7224: WHEN EXC_SEV_SKIP_BRANCH THEN
7225:
7226: Eco_Error_Handler.Log_Error
7227: ( p_rev_component_tbl => x_rev_component_tbl
7228: , p_ref_designator_tbl => x_ref_designator_tbl
7229: , p_sub_component_tbl => x_sub_component_tbl
7230: , p_mesg_token_tbl => l_mesg_token_tbl
7227: ( p_rev_component_tbl => x_rev_component_tbl
7228: , p_ref_designator_tbl => x_ref_designator_tbl
7229: , p_sub_component_tbl => x_sub_component_tbl
7230: , p_mesg_token_tbl => l_mesg_token_tbl
7231: , p_error_status => Error_Handler.G_STATUS_ERROR
7232: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
7233: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
7234: , p_other_message => l_other_message
7235: , p_other_token_tbl => l_other_token_tbl
7228: , p_ref_designator_tbl => x_ref_designator_tbl
7229: , p_sub_component_tbl => x_sub_component_tbl
7230: , p_mesg_token_tbl => l_mesg_token_tbl
7231: , p_error_status => Error_Handler.G_STATUS_ERROR
7232: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
7233: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
7234: , p_other_message => l_other_message
7235: , p_other_token_tbl => l_other_token_tbl
7236: , p_error_level => 4
7229: , p_sub_component_tbl => x_sub_component_tbl
7230: , p_mesg_token_tbl => l_mesg_token_tbl
7231: , p_error_status => Error_Handler.G_STATUS_ERROR
7232: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
7233: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
7234: , p_other_message => l_other_message
7235: , p_other_token_tbl => l_other_token_tbl
7236: , p_error_level => 4
7237: , p_entity_index => I
7260: --x_sub_component_tbl := l_sub_component_tbl;
7261:
7262: WHEN EXC_SEV_QUIT_SIBLINGS THEN
7263:
7264: Eco_Error_Handler.Log_Error
7265: ( p_rev_component_tbl => x_rev_component_tbl
7266: , p_ref_designator_tbl => x_ref_designator_tbl
7267: , p_sub_component_tbl => x_sub_component_tbl
7268: , p_mesg_token_tbl => l_mesg_token_tbl
7265: ( p_rev_component_tbl => x_rev_component_tbl
7266: , p_ref_designator_tbl => x_ref_designator_tbl
7267: , p_sub_component_tbl => x_sub_component_tbl
7268: , p_mesg_token_tbl => l_mesg_token_tbl
7269: , p_error_status => Error_Handler.G_STATUS_ERROR
7270: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
7271: , p_other_status => Error_Handler.G_STATUS_ERROR
7272: , p_other_message => l_other_message
7273: , p_other_token_tbl => l_other_token_tbl
7266: , p_ref_designator_tbl => x_ref_designator_tbl
7267: , p_sub_component_tbl => x_sub_component_tbl
7268: , p_mesg_token_tbl => l_mesg_token_tbl
7269: , p_error_status => Error_Handler.G_STATUS_ERROR
7270: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
7271: , p_other_status => Error_Handler.G_STATUS_ERROR
7272: , p_other_message => l_other_message
7273: , p_other_token_tbl => l_other_token_tbl
7274: , p_error_level => 4
7267: , p_sub_component_tbl => x_sub_component_tbl
7268: , p_mesg_token_tbl => l_mesg_token_tbl
7269: , p_error_status => Error_Handler.G_STATUS_ERROR
7270: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
7271: , p_other_status => Error_Handler.G_STATUS_ERROR
7272: , p_other_message => l_other_message
7273: , p_other_token_tbl => l_other_token_tbl
7274: , p_error_level => 4
7275: , p_entity_index => I
7298: --x_sub_component_tbl := l_sub_component_tbl;
7299:
7300: WHEN EXC_FAT_QUIT_BRANCH THEN
7301:
7302: Eco_Error_Handler.Log_Error
7303: ( p_rev_component_tbl => x_rev_component_tbl
7304: , p_ref_designator_tbl => x_ref_designator_tbl
7305: , p_sub_component_tbl => x_sub_component_tbl
7306: , p_mesg_token_tbl => l_mesg_token_tbl
7303: ( p_rev_component_tbl => x_rev_component_tbl
7304: , p_ref_designator_tbl => x_ref_designator_tbl
7305: , p_sub_component_tbl => x_sub_component_tbl
7306: , p_mesg_token_tbl => l_mesg_token_tbl
7307: , p_error_status => Error_Handler.G_STATUS_FATAL
7308: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
7309: , p_other_status => Error_Handler.G_STATUS_FATAL
7310: , p_other_message => l_other_message
7311: , p_other_token_tbl => l_other_token_tbl
7304: , p_ref_designator_tbl => x_ref_designator_tbl
7305: , p_sub_component_tbl => x_sub_component_tbl
7306: , p_mesg_token_tbl => l_mesg_token_tbl
7307: , p_error_status => Error_Handler.G_STATUS_FATAL
7308: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
7309: , p_other_status => Error_Handler.G_STATUS_FATAL
7310: , p_other_message => l_other_message
7311: , p_other_token_tbl => l_other_token_tbl
7312: , p_error_level => 4
7305: , p_sub_component_tbl => x_sub_component_tbl
7306: , p_mesg_token_tbl => l_mesg_token_tbl
7307: , p_error_status => Error_Handler.G_STATUS_FATAL
7308: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
7309: , p_other_status => Error_Handler.G_STATUS_FATAL
7310: , p_other_message => l_other_message
7311: , p_other_token_tbl => l_other_token_tbl
7312: , p_error_level => 4
7313: , p_entity_index => I
7323: );
7324:
7325: l_process_children := FALSE;
7326:
7327: x_return_status := Error_Handler.G_STATUS_FATAL;
7328: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
7329: x_rev_comp_unexp_rec := l_rev_comp_unexp_rec;
7330: --x_rev_component_tbl := l_rev_component_tbl;
7331: --x_ref_designator_tbl := l_ref_designator_tbl;
7332: --x_sub_component_tbl := l_sub_component_tbl;
7333:
7334: WHEN EXC_FAT_QUIT_SIBLINGS THEN
7335:
7336: Eco_Error_Handler.Log_Error
7337: ( p_rev_component_tbl => x_rev_component_tbl
7338: , p_ref_designator_tbl => x_ref_designator_tbl
7339: , p_sub_component_tbl => x_sub_component_tbl
7340: , p_mesg_token_tbl => l_mesg_token_tbl
7337: ( p_rev_component_tbl => x_rev_component_tbl
7338: , p_ref_designator_tbl => x_ref_designator_tbl
7339: , p_sub_component_tbl => x_sub_component_tbl
7340: , p_mesg_token_tbl => l_mesg_token_tbl
7341: , p_error_status => Error_Handler.G_STATUS_FATAL
7342: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
7343: , p_other_status => Error_Handler.G_STATUS_FATAL
7344: , p_other_message => l_other_message
7345: , p_other_token_tbl => l_other_token_tbl
7338: , p_ref_designator_tbl => x_ref_designator_tbl
7339: , p_sub_component_tbl => x_sub_component_tbl
7340: , p_mesg_token_tbl => l_mesg_token_tbl
7341: , p_error_status => Error_Handler.G_STATUS_FATAL
7342: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
7343: , p_other_status => Error_Handler.G_STATUS_FATAL
7344: , p_other_message => l_other_message
7345: , p_other_token_tbl => l_other_token_tbl
7346: , p_error_level => 4
7339: , p_sub_component_tbl => x_sub_component_tbl
7340: , p_mesg_token_tbl => l_mesg_token_tbl
7341: , p_error_status => Error_Handler.G_STATUS_FATAL
7342: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
7343: , p_other_status => Error_Handler.G_STATUS_FATAL
7344: , p_other_message => l_other_message
7345: , p_other_token_tbl => l_other_token_tbl
7346: , p_error_level => 4
7347: , p_entity_index => I
7361: IF l_bo_return_status = 'S'
7362: THEN
7363: l_bo_return_status := l_return_status;
7364: END IF;
7365: x_return_status := Error_Handler.G_STATUS_FATAL;
7366: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
7367: x_rev_comp_unexp_rec := l_rev_comp_unexp_rec;
7368: --x_rev_component_tbl := l_rev_component_tbl;
7369: --x_ref_designator_tbl := l_ref_designator_tbl;
7369: --x_ref_designator_tbl := l_ref_designator_tbl;
7370: --x_sub_component_tbl := l_sub_component_tbl;
7371: WHEN EXC_FAT_QUIT_OBJECT THEN
7372:
7373: Eco_Error_Handler.Log_Error
7374: ( p_rev_component_tbl => x_rev_component_tbl
7375: , p_ref_designator_tbl => x_ref_designator_tbl
7376: , p_sub_component_tbl => x_sub_component_tbl
7377: , p_mesg_token_tbl => l_mesg_token_tbl
7374: ( p_rev_component_tbl => x_rev_component_tbl
7375: , p_ref_designator_tbl => x_ref_designator_tbl
7376: , p_sub_component_tbl => x_sub_component_tbl
7377: , p_mesg_token_tbl => l_mesg_token_tbl
7378: , p_error_status => Error_Handler.G_STATUS_FATAL
7379: , p_error_scope => Error_Handler.G_SCOPE_ALL
7380: , p_other_status => Error_Handler.G_STATUS_FATAL
7381: , p_other_message => l_other_message
7382: , p_other_token_tbl => l_other_token_tbl
7375: , p_ref_designator_tbl => x_ref_designator_tbl
7376: , p_sub_component_tbl => x_sub_component_tbl
7377: , p_mesg_token_tbl => l_mesg_token_tbl
7378: , p_error_status => Error_Handler.G_STATUS_FATAL
7379: , p_error_scope => Error_Handler.G_SCOPE_ALL
7380: , p_other_status => Error_Handler.G_STATUS_FATAL
7381: , p_other_message => l_other_message
7382: , p_other_token_tbl => l_other_token_tbl
7383: , p_error_level => 4
7376: , p_sub_component_tbl => x_sub_component_tbl
7377: , p_mesg_token_tbl => l_mesg_token_tbl
7378: , p_error_status => Error_Handler.G_STATUS_FATAL
7379: , p_error_scope => Error_Handler.G_SCOPE_ALL
7380: , p_other_status => Error_Handler.G_STATUS_FATAL
7381: , p_other_message => l_other_message
7382: , p_other_token_tbl => l_other_token_tbl
7383: , p_error_level => 4
7384: , p_entity_index => I
7401: l_return_status := 'Q';
7402:
7403: WHEN EXC_UNEXP_SKIP_OBJECT THEN
7404:
7405: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Unexpected error caught in Rev Comps . . . '); END IF;
7406:
7407: Eco_Error_Handler.Log_Error
7408: ( p_rev_component_tbl => x_rev_component_tbl
7409: , p_ref_designator_tbl => x_ref_designator_tbl
7403: WHEN EXC_UNEXP_SKIP_OBJECT THEN
7404:
7405: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Unexpected error caught in Rev Comps . . . '); END IF;
7406:
7407: Eco_Error_Handler.Log_Error
7408: ( p_rev_component_tbl => x_rev_component_tbl
7409: , p_ref_designator_tbl => x_ref_designator_tbl
7410: , p_sub_component_tbl => x_sub_component_tbl
7411: , p_mesg_token_tbl => l_mesg_token_tbl
7408: ( p_rev_component_tbl => x_rev_component_tbl
7409: , p_ref_designator_tbl => x_ref_designator_tbl
7410: , p_sub_component_tbl => x_sub_component_tbl
7411: , p_mesg_token_tbl => l_mesg_token_tbl
7412: , p_error_status => Error_Handler.G_STATUS_UNEXPECTED
7413: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
7414: , p_other_message => l_other_message
7415: , p_other_token_tbl => l_other_token_tbl
7416: , p_error_level => 4
7409: , p_ref_designator_tbl => x_ref_designator_tbl
7410: , p_sub_component_tbl => x_sub_component_tbl
7411: , p_mesg_token_tbl => l_mesg_token_tbl
7412: , p_error_status => Error_Handler.G_STATUS_UNEXPECTED
7413: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
7414: , p_other_message => l_other_message
7415: , p_other_token_tbl => l_other_token_tbl
7416: , p_error_level => 4
7417: , p_entity_index => I
7432: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
7433:
7434: l_return_status := 'U';
7435:
7436: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Unexpected error in Rev Comps . . .'); END IF;
7437:
7438: END; -- END block
7439:
7440: IF l_return_status in ('Q', 'U')
7440: IF l_return_status in ('Q', 'U')
7441: THEN
7442: x_return_status := l_return_status;
7443:
7444: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rev Comps returning with status ' || l_return_status ); END IF;
7445:
7446: RETURN;
7447: END IF;
7448:
7451: -- Process Reference Designators that are direct children of this
7452: -- component
7453:
7454: IF Bom_Globals.Get_Debug = 'Y' THEN
7455: Error_Handler.Write_Debug('***********************************************************') ;
7456: Error_Handler.Write_Debug('Now processing direct children for the Rev Comp '
7457: || l_rev_component_rec.component_item_name || '. . .' );
7458: Error_Handler.Write_Debug('Now processing Ref Desig as direct children for the Rev Comp ') ;
7459: END IF;
7452: -- component
7453:
7454: IF Bom_Globals.Get_Debug = 'Y' THEN
7455: Error_Handler.Write_Debug('***********************************************************') ;
7456: Error_Handler.Write_Debug('Now processing direct children for the Rev Comp '
7457: || l_rev_component_rec.component_item_name || '. . .' );
7458: Error_Handler.Write_Debug('Now processing Ref Desig as direct children for the Rev Comp ') ;
7459: END IF;
7460:
7454: IF Bom_Globals.Get_Debug = 'Y' THEN
7455: Error_Handler.Write_Debug('***********************************************************') ;
7456: Error_Handler.Write_Debug('Now processing direct children for the Rev Comp '
7457: || l_rev_component_rec.component_item_name || '. . .' );
7458: Error_Handler.Write_Debug('Now processing Ref Desig as direct children for the Rev Comp ') ;
7459: END IF;
7460:
7461:
7462: Ref_Desgs
7487: -- Process Substitute Components that are direct children of this
7488: -- component
7489:
7490: IF Bom_Globals.Get_Debug = 'Y' THEN
7491: Error_Handler.Write_Debug('***********************************************************') ;
7492: Error_Handler.Write_Debug('Now processing Ref Desig as direct children for the Rev Comp ') ;
7493: END IF ;
7494:
7495: Sub_Comps
7488: -- component
7489:
7490: IF Bom_Globals.Get_Debug = 'Y' THEN
7491: Error_Handler.Write_Debug('***********************************************************') ;
7492: Error_Handler.Write_Debug('Now processing Ref Desig as direct children for the Rev Comp ') ;
7493: END IF ;
7494:
7495: Sub_Comps
7496: ( p_validation_level => p_validation_level
7514: THEN
7515: l_bo_return_status := l_return_status;
7516: END IF;
7517:
7518: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Finished processing children for ' || l_rev_component_rec.component_item_name || ' . . . ' || l_return_status ); END IF;
7519:
7520: END IF; -- Process children
7521: x_return_status := l_bo_return_status;
7522: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
7542: , p_sub_component_tbl IN BOM_BO_PUB.Sub_Component_Tbl_Type
7543: , x_rev_component_tbl IN OUT NOCOPY BOM_BO_PUB.Rev_Component_Tbl_Type
7544: , x_ref_designator_tbl IN OUT NOCOPY BOM_BO_PUB.Ref_Designator_Tbl_Type
7545: , x_sub_component_tbl IN OUT NOCOPY BOM_BO_PUB.Sub_Component_Tbl_Type
7546: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
7547: , x_return_status OUT NOCOPY VARCHAR2
7548: -- Bug 2941096 // kamohan
7549: , x_bill_sequence_id IN NUMBER := NULL
7550: )
7548: -- Bug 2941096 // kamohan
7549: , x_bill_sequence_id IN NUMBER := NULL
7550: )
7551: IS
7552: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
7553: l_other_token_tbl Error_Handler.Token_Tbl_Type;
7554: l_other_message VARCHAR2(2000);
7555: l_err_text VARCHAR2(2000);
7556: l_valid BOOLEAN := TRUE;
7549: , x_bill_sequence_id IN NUMBER := NULL
7550: )
7551: IS
7552: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
7553: l_other_token_tbl Error_Handler.Token_Tbl_Type;
7554: l_other_message VARCHAR2(2000);
7555: l_err_text VARCHAR2(2000);
7556: l_valid BOOLEAN := TRUE;
7557: l_item_parent_exists BOOLEAN := FALSE;
7569: --l_sub_component_tbl BOM_BO_PUB.Sub_Component_Tbl_Type := p_sub_component_tbl;
7570: l_return_value NUMBER;
7571: l_process_children BOOLEAN := TRUE;
7572: l_dummy NUMBER ;
7573: l_Token_Tbl Error_Handler.Token_Tbl_Type;
7574: l_structure_type_id NUMBER ;
7575: l_strc_cp_not_allowed NUMBER ;
7576:
7577: l_rev_operation_tbl Bom_Rtg_Pub.Rev_Operation_Tbl_Type;
7691: l_return_status := FND_API.G_RET_STS_SUCCESS;
7692:
7693: l_rev_component_rec.return_status := FND_API.G_RET_STS_SUCCESS;
7694:
7695: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Processing component: ' || l_rev_component_rec.component_item_name); END IF;
7696: -- Check if transaction_type is valid
7697: --
7698: -- Bug 6657209
7699: IF (l_item_parent_exists and ENG_Default_Revised_Item.G_OLD_SCHED_DATE is not null ) THEN
7699: IF (l_item_parent_exists and ENG_Default_Revised_Item.G_OLD_SCHED_DATE is not null ) THEN
7700: l_rev_component_rec.start_effective_date := p_effectivity_date;
7701: END IF;
7702:
7703: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check transaction_type validity'); END IF;
7704: ENG_GLOBALS.Transaction_Type_Validity
7705: ( p_transaction_type => l_rev_component_rec.transaction_type
7706: , p_entity => 'Rev_Comps'
7707: , p_entity_id => l_rev_component_rec.revised_item_name
7716:
7717: -- Process Flow step 4(a): Convert user unique index to unique index I
7718: --
7719:
7720: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Converting user unique index to unique index I'); END IF;
7721: Bom_Val_To_Id.Rev_Component_UUI_To_UI
7722: ( p_rev_component_rec => l_rev_component_rec
7723: , p_rev_comp_unexp_rec => l_rev_comp_unexp_rec
7724: , x_rev_comp_unexp_rec => l_rev_comp_unexp_rec
7725: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
7726: , x_Return_Status => l_return_status
7727: );
7728:
7729: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
7730:
7731: IF l_return_status = Error_Handler.G_STATUS_ERROR
7732: THEN
7733: l_other_message := 'BOM_CMP_UUI_SEV_ERROR';
7727: );
7728:
7729: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
7730:
7731: IF l_return_status = Error_Handler.G_STATUS_ERROR
7732: THEN
7733: l_other_message := 'BOM_CMP_UUI_SEV_ERROR';
7734: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
7735: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
7733: l_other_message := 'BOM_CMP_UUI_SEV_ERROR';
7734: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
7735: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
7736: RAISE EXC_SEV_QUIT_BRANCH;
7737: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
7738: THEN
7739: l_other_message := 'BOM_CMP_UUI_UNEXP_SKIP';
7740: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
7741: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
7744:
7745: -- Process Flow step 4(b): Convert user unique index to unique index II
7746: --
7747:
7748: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Converting user unique index to unique index II'); END IF;
7749: Bom_Val_To_Id.Rev_Component_UUI_To_UI2
7750: ( p_rev_component_rec => l_rev_component_rec
7751: , p_rev_comp_unexp_rec => l_rev_comp_unexp_rec
7752: , x_rev_comp_unexp_rec => l_rev_comp_unexp_rec
7755: , x_other_token_tbl => l_other_token_tbl
7756: , x_Return_Status => l_return_status
7757: );
7758:
7759: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
7760:
7761: IF l_return_status = Error_Handler.G_STATUS_ERROR
7762: THEN
7763: RAISE EXC_SEV_QUIT_SIBLINGS;
7757: );
7758:
7759: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
7760:
7761: IF l_return_status = Error_Handler.G_STATUS_ERROR
7762: THEN
7763: RAISE EXC_SEV_QUIT_SIBLINGS;
7764: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
7765: THEN
7760:
7761: IF l_return_status = Error_Handler.G_STATUS_ERROR
7762: THEN
7763: RAISE EXC_SEV_QUIT_SIBLINGS;
7764: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
7765: THEN
7766: l_other_message := 'ENG_CMP_UUI_UNEXP_SKIP';
7767: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
7768: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
7769: RAISE EXC_UNEXP_SKIP_OBJECT;
7770: END IF;
7771:
7772: IF Bom_Globals.Get_Debug = 'Y' THEN
7773: Error_Handler.Write_Debug('Converting user unique index to unique index II for Bill And Rev Seq Id');
7774: END IF;
7775:
7776: ENG_Val_To_Id.BillAndRevitem_UUI_To_UI
7777: ( p_revised_item_name => l_rev_component_rec.revised_item_name
7794: , x_other_token_tbl => l_other_token_tbl
7795: , x_Return_Status => l_return_status
7796: ) ;
7797:
7798: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status) ;
7799: END IF;
7800:
7801: IF l_return_status = Error_Handler.G_STATUS_ERROR
7802: THEN
7797:
7798: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status) ;
7799: END IF;
7800:
7801: IF l_return_status = Error_Handler.G_STATUS_ERROR
7802: THEN
7803: RAISE EXC_SEV_QUIT_SIBLINGS;
7804: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
7805: THEN
7800:
7801: IF l_return_status = Error_Handler.G_STATUS_ERROR
7802: THEN
7803: RAISE EXC_SEV_QUIT_SIBLINGS;
7804: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
7805: THEN
7806: l_other_message := 'ENG_CMP_UUI_UNEXP_SKIP';
7807: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
7808: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
7822:
7823: -- Process Flow step 5: Verify Revised Component's existence
7824: --
7825:
7826: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check existence'); END IF;
7827: Bom_Validate_Bom_Component.Check_Existence
7828: ( p_rev_component_rec => l_rev_component_rec
7829: , p_rev_comp_unexp_rec => l_rev_comp_unexp_rec
7830: , x_old_rev_component_rec => l_old_rev_component_rec
7832: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
7833: , x_return_status => l_Return_Status
7834: );
7835:
7836: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
7837:
7838: IF l_return_status = Error_Handler.G_STATUS_ERROR
7839: THEN
7840: l_other_message := 'BOM_CMP_EXS_SEV_ERROR';
7834: );
7835:
7836: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
7837:
7838: IF l_return_status = Error_Handler.G_STATUS_ERROR
7839: THEN
7840: l_other_message := 'BOM_CMP_EXS_SEV_ERROR';
7841: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
7842: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
7842: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
7843: l_other_token_tbl(2).token_name := 'REVISED_ITEM_NAME';
7844: l_other_token_tbl(2).token_value := l_rev_component_rec.revised_item_name;
7845: RAISE EXC_SEV_QUIT_BRANCH;
7846: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
7847: THEN
7848: l_other_message := 'BOM_CMP_EXS_UNEXP_SKIP';
7849: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
7850: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
7856:
7857: -- Process Flow step 6: Check lineage
7858: --
7859:
7860: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check lineage'); END IF;
7861: Bom_Validate_Bom_Component.Check_Lineage
7862: ( p_rev_component_rec => l_rev_component_rec
7863: , p_rev_comp_unexp_rec => l_rev_comp_unexp_rec
7864: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
7864: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
7865: , x_return_status => l_Return_Status
7866: );
7867:
7868: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
7869:
7870: IF l_return_status = Error_Handler.G_STATUS_ERROR
7871: THEN
7872: l_other_message := 'BOM_CMP_LIN_SEV_SKIP';
7866: );
7867:
7868: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
7869:
7870: IF l_return_status = Error_Handler.G_STATUS_ERROR
7871: THEN
7872: l_other_message := 'BOM_CMP_LIN_SEV_SKIP';
7873: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
7874: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
7872: l_other_message := 'BOM_CMP_LIN_SEV_SKIP';
7873: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
7874: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
7875: RAISE EXC_SEV_QUIT_BRANCH;
7876: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
7877: THEN
7878: l_other_message := 'ENG_CMP_LIN_UNEXP_SKIP';
7879: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
7880: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
7896: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
7897: , x_Return_Status => l_return_status
7898: );
7899:
7900: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
7901:
7902: IF l_return_status = Error_Handler.G_STATUS_ERROR
7903: THEN
7904: l_other_message := 'BOM_CMP_ECOACC_FAT_FATAL';
7898: );
7899:
7900: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
7901:
7902: IF l_return_status = Error_Handler.G_STATUS_ERROR
7903: THEN
7904: l_other_message := 'BOM_CMP_ECOACC_FAT_FATAL';
7905: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
7906: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
7905: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
7906: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
7907: l_return_status := 'F';
7908: RAISE EXC_FAT_QUIT_OBJECT;
7909: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
7910: THEN
7911: l_other_message := 'BOM_CMP_ECOACC_UNEXP_SKIP';
7912: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
7913: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
7916:
7917: -- Process Flow step 9(a and b): check that user has access to revised item
7918: --
7919:
7920: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check access'); END IF;
7921: ENG_Validate_Revised_Item.Check_Access
7922: ( p_change_notice => l_rev_component_rec.ECO_Name
7923: , p_organization_id => l_rev_comp_unexp_rec.organization_id
7924: , p_revised_item_id => l_rev_comp_unexp_rec.revised_item_id
7933: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
7934: , x_return_status => l_Return_Status
7935: );
7936:
7937: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
7938: IF l_return_status = Error_Handler.G_STATUS_ERROR
7939: THEN
7940: l_other_message := 'BOM_CMP_RITACC_FAT_FATAL';
7941: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
7934: , x_return_status => l_Return_Status
7935: );
7936:
7937: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
7938: IF l_return_status = Error_Handler.G_STATUS_ERROR
7939: THEN
7940: l_other_message := 'BOM_CMP_RITACC_FAT_FATAL';
7941: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
7942: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
7941: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
7942: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
7943: l_return_status := 'F';
7944: RAISE EXC_FAT_QUIT_SIBLINGS;
7945: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
7946: THEN
7947: l_other_message := 'BOM_CMP_RITACC_UNEXP_SKIP';
7948: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
7949: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
7952:
7953: -- Process Flow step 10: check that user has access to revised component
7954: --
7955:
7956: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check access'); END IF;
7957: Bom_Validate_Bom_Component.Check_Access
7958: ( p_change_notice => l_rev_component_rec.ECO_Name
7959: , p_organization_id => l_rev_comp_unexp_rec.organization_id
7960: , p_revised_item_id => l_rev_comp_unexp_rec.revised_item_id
7971: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
7972: , x_return_status => l_Return_Status
7973: );
7974:
7975: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
7976:
7977: IF l_return_status = Error_Handler.G_STATUS_ERROR
7978: THEN
7979: l_other_message := 'BOM_CMP_ACCESS_FAT_FATAL';
7973: );
7974:
7975: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
7976:
7977: IF l_return_status = Error_Handler.G_STATUS_ERROR
7978: THEN
7979: l_other_message := 'BOM_CMP_ACCESS_FAT_FATAL';
7980: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
7981: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
7980: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
7981: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
7982: l_return_status := 'F';
7983: RAISE EXC_FAT_QUIT_BRANCH;
7984: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
7985: THEN
7986: l_other_message := 'BOM_CMP_ACCESS_UNEXP_SKIP';
7987: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
7988: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
8003: , x_strc_cp_not_allowed => l_strc_cp_not_allowed
8004: );
8005: IF l_strc_cp_not_allowed = 1
8006: THEN
8007: l_return_status := Error_Handler.G_STATUS_ERROR ;
8008: l_Token_Tbl.DELETE;
8009: l_Token_Tbl(1).token_name := 'STRUCTURE_NAME';
8010: l_Token_Tbl(1).token_value := l_rev_component_rec.alternate_bom_code;
8011:
8008: l_Token_Tbl.DELETE;
8009: l_Token_Tbl(1).token_name := 'STRUCTURE_NAME';
8010: l_Token_Tbl(1).token_value := l_rev_component_rec.alternate_bom_code;
8011:
8012: Error_Handler.Add_Error_Token
8013: ( p_message_name => 'ENG_BILL_CHANGES_NOT_ALLOWED'
8014: , p_mesg_token_tbl => l_Mesg_Token_Tbl
8015: , p_token_tbl => l_Token_Tbl
8016: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
8025:
8026: -- Process Flow step 11: Value to Id conversions
8027: --
8028:
8029: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Value-id conversions'); END IF;
8030: Bom_Val_To_Id.Rev_Component_VID
8031: ( x_Return_Status => l_return_status
8032: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
8033: , p_rev_comp_unexp_Rec => l_rev_comp_unexp_rec
8034: , x_rev_comp_unexp_Rec => l_rev_comp_unexp_rec
8035: , p_rev_component_Rec => l_rev_component_rec
8036: );
8037:
8038: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
8039:
8040: IF l_return_status = Error_Handler.G_STATUS_ERROR
8041: THEN
8042: IF l_rev_component_rec.transaction_type = 'CREATE'
8036: );
8037:
8038: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
8039:
8040: IF l_return_status = Error_Handler.G_STATUS_ERROR
8041: THEN
8042: IF l_rev_component_rec.transaction_type = 'CREATE'
8043: THEN
8044: l_other_message := 'BOM_CMP_VID_CSEV_SKIP';
8047: RAISE EXC_SEV_SKIP_BRANCH;
8048: ELSE
8049: RAISE EXC_SEV_QUIT_RECORD;
8050: END IF;
8051: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
8052: THEN
8053: l_other_message := 'BOM_CMP_VID_UNEXP_SKIP';
8054: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
8055: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
8056: RAISE EXC_UNEXP_SKIP_OBJECT;
8057: ELSIF l_return_status ='S' AND
8058: l_Mesg_Token_Tbl.COUNT <>0
8059: THEN
8060: Eco_Error_Handler.Log_Error
8061: ( p_rev_component_tbl => x_rev_component_tbl
8062: , p_ref_designator_tbl => x_ref_designator_tbl
8063: , p_sub_component_tbl => x_sub_component_tbl
8064: , p_mesg_token_tbl => l_mesg_token_tbl
8080: -- Process Flow step 12: Check required fields exist
8081: -- (also includes conditionally required fields)
8082: --
8083:
8084: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check required fields'); END IF;
8085: Bom_Validate_Bom_Component.Check_Required
8086: ( x_return_status => l_return_status
8087: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
8088: , p_rev_component_rec => l_rev_component_rec
8087: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
8088: , p_rev_component_rec => l_rev_component_rec
8089: );
8090:
8091: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
8092:
8093: IF l_return_status = Error_Handler.G_STATUS_ERROR
8094: THEN
8095: IF l_rev_component_rec.transaction_type = 'CREATE'
8089: );
8090:
8091: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
8092:
8093: IF l_return_status = Error_Handler.G_STATUS_ERROR
8094: THEN
8095: IF l_rev_component_rec.transaction_type = 'CREATE'
8096: THEN
8097: l_other_message := 'BOM_CMP_REQ_CSEV_SKIP';
8100: RAISE EXC_SEV_SKIP_BRANCH;
8101: ELSE
8102: RAISE EXC_SEV_QUIT_RECORD;
8103: END IF;
8104: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
8105: THEN
8106: l_other_message := 'BOM_CMP_REQ_UNEXP_SKIP';
8107: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
8108: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
8109: RAISE EXC_UNEXP_SKIP_OBJECT;
8110: ELSIF l_return_status ='S' AND
8111: l_Mesg_Token_Tbl.COUNT <>0
8112: THEN
8113: Eco_Error_Handler.Log_Error
8114: ( p_rev_component_tbl => x_rev_component_tbl
8115: , p_ref_designator_tbl => x_ref_designator_tbl
8116: , p_sub_component_tbl => x_sub_component_tbl
8117: , p_mesg_token_tbl => l_mesg_token_tbl
8132:
8133: -- Process Flow step 13: Attribute Validation for CREATE and UPDATE
8134: --
8135:
8136: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Attribute Validation'); END IF;
8137: IF l_rev_component_rec.Transaction_Type IN
8138: (ENG_GLOBALS.G_OPR_CREATE, ENG_GLOBALS.G_OPR_UPDATE)
8139: THEN
8140: Bom_Validate_Bom_Component.Check_Attributes
8143: , p_rev_component_rec => l_rev_component_rec
8144: , p_rev_comp_unexp_rec => l_rev_comp_unexp_rec
8145: );
8146:
8147: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
8148:
8149: IF l_return_status = Error_Handler.G_STATUS_ERROR
8150: THEN
8151: IF l_rev_component_rec.transaction_type = 'CREATE'
8145: );
8146:
8147: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
8148:
8149: IF l_return_status = Error_Handler.G_STATUS_ERROR
8150: THEN
8151: IF l_rev_component_rec.transaction_type = 'CREATE'
8152: THEN
8153: l_other_message := 'BOM_CMP_ATTVAL_CSEV_SKIP';
8156: RAISE EXC_SEV_QUIT_BRANCH;
8157: ELSE
8158: RAISE EXC_SEV_QUIT_RECORD;
8159: END IF;
8160: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
8161: THEN
8162: l_other_message := 'BOM_CMP_ATTVAL_UNEXP_SKIP';
8163: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
8164: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
8165: RAISE EXC_UNEXP_SKIP_OBJECT;
8166: ELSIF l_return_status ='S' AND
8167: l_Mesg_Token_Tbl.COUNT <>0
8168: THEN
8169: Eco_Error_Handler.Log_Error
8170: ( p_rev_component_tbl => x_rev_component_tbl
8171: , p_ref_designator_tbl => x_ref_designator_tbl
8172: , p_sub_component_tbl => x_sub_component_tbl
8173: , p_mesg_token_tbl => l_mesg_token_tbl
8214: );
8215:
8216: IF l_return_status <> Eng_Globals.G_RECORD_FOUND
8217: THEN
8218: l_return_status := Error_Handler.G_STATUS_ERROR ;
8219: l_Token_Tbl(1).token_name := 'REVISED_COMPONENT_NAME';
8220: l_Token_Tbl(1).token_value := l_rev_component_rec.component_item_name;
8221:
8222: Error_Handler.Add_Error_Token
8218: l_return_status := Error_Handler.G_STATUS_ERROR ;
8219: l_Token_Tbl(1).token_name := 'REVISED_COMPONENT_NAME';
8220: l_Token_Tbl(1).token_value := l_rev_component_rec.component_item_name;
8221:
8222: Error_Handler.Add_Error_Token
8223: ( p_message_name => 'ENG_CMP_CREATE_REC_NOT_FOUND' --'BOM_CMP_CREATE_REC_NOT_FOUND' -- Bug 3612008 :Modified incorrect message_name
8224: , p_mesg_token_tbl => l_Mesg_Token_Tbl
8225: , p_token_tbl => l_Token_Tbl
8226: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
8229: l_other_message := 'BOM_CMP_QRY_CSEV_SKIP';
8230: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
8231: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
8232: RAISE EXC_SEV_SKIP_BRANCH;
8233: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
8234: THEN
8235: l_other_message := 'BOM_CMP_QRY_UNEXP_SKIP';
8236: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
8237: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
8247: OR
8248: l_rev_component_rec.transaction_type IN (ENG_GLOBALS.G_OPR_UPDATE,
8249: ENG_GLOBALS.G_OPR_DELETE)
8250: THEN
8251: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Populate NULL columns'); END IF;
8252: Bom_Default_Bom_Component.Populate_Null_Columns
8253: ( p_rev_component_rec => l_rev_Component_Rec
8254: , p_old_rev_Component_Rec => l_old_rev_Component_Rec
8255: , p_rev_comp_unexp_rec => l_rev_comp_unexp_rec
8262:
8263: -- Process Flow step 16: Default missing values for Operation CREATE
8264: --
8265:
8266: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Attribute Defaulting'); END IF;
8267: Bom_Default_Bom_Component.Attribute_Defaulting
8268: ( p_rev_component_rec => l_rev_component_rec
8269: , p_rev_comp_unexp_rec => l_rev_comp_unexp_rec
8270: , x_rev_component_rec => l_rev_component_rec
8272: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
8273: , x_return_status => l_return_status
8274: );
8275:
8276: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
8277:
8278: IF l_return_status = Error_Handler.G_STATUS_ERROR
8279: THEN
8280: l_other_message := 'BOM_CMP_ATTDEF_CSEV_SKIP';
8274: );
8275:
8276: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
8277:
8278: IF l_return_status = Error_Handler.G_STATUS_ERROR
8279: THEN
8280: l_other_message := 'BOM_CMP_ATTDEF_CSEV_SKIP';
8281: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
8282: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
8280: l_other_message := 'BOM_CMP_ATTDEF_CSEV_SKIP';
8281: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
8282: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
8283: RAISE EXC_SEV_SKIP_BRANCH;
8284: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
8285: THEN
8286: l_other_message := 'BOM_CMP_ATTDEF_UNEXP_SKIP';
8287: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
8288: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
8289: RAISE EXC_UNEXP_SKIP_OBJECT;
8290: ELSIF l_return_status ='S' AND
8291: l_Mesg_Token_Tbl.COUNT <>0
8292: THEN
8293: Eco_Error_Handler.Log_Error
8294: ( p_rev_component_tbl => x_rev_component_tbl
8295: , p_ref_designator_tbl => x_ref_designator_tbl
8296: , p_sub_component_tbl => x_sub_component_tbl
8297: , p_mesg_token_tbl => l_mesg_token_tbl
8313:
8314: -- Process Flow step 17: Entity defaulting for CREATE and UPDATE
8315: --
8316:
8317: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Entity defaulting'); END IF;
8318: IF l_rev_component_rec.Transaction_Type IN
8319: (ENG_GLOBALS.G_OPR_CREATE, ENG_GLOBALS.G_OPR_UPDATE)
8320: THEN
8321: Bom_Default_Bom_Component.Entity_Defaulting
8323: , p_old_rev_component_rec => l_old_rev_component_rec
8324: , x_rev_component_rec => l_rev_component_rec
8325: );
8326:
8327: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
8328:
8329: IF l_return_status = Error_Handler.G_STATUS_ERROR
8330: THEN
8331: IF l_rev_component_rec.transaction_type = 'CREATE'
8325: );
8326:
8327: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
8328:
8329: IF l_return_status = Error_Handler.G_STATUS_ERROR
8330: THEN
8331: IF l_rev_component_rec.transaction_type = 'CREATE'
8332: THEN
8333: l_other_message := 'BOM_CMP_ENTDEF_CSEV_SKIP';
8336: RAISE EXC_SEV_SKIP_BRANCH;
8337: ELSE
8338: RAISE EXC_SEV_QUIT_RECORD;
8339: END IF;
8340: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
8341: THEN
8342: l_other_message := 'BOM_CMP_ENTDEF_UNEXP_SKIP';
8343: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
8344: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
8345: RAISE EXC_UNEXP_SKIP_OBJECT;
8346: ELSIF l_return_status ='S' AND
8347: l_Mesg_Token_Tbl.COUNT <>0
8348: THEN
8349: Eco_Error_Handler.Log_Error
8350: ( p_rev_component_tbl => x_rev_component_tbl
8351: , p_ref_designator_tbl => x_ref_designator_tbl
8352: , p_sub_component_tbl => x_sub_component_tbl
8353: , p_mesg_token_tbl => l_mesg_token_tbl
8369:
8370: -- Process Flow step 18 - Entity Level Validation
8371: --
8372:
8373: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Entity validation'); END IF;
8374: Bom_Validate_Bom_Component.Check_Entity
8375: ( p_rev_component_rec => l_rev_component_rec
8376: , p_rev_comp_unexp_rec => l_rev_comp_unexp_rec
8377: , p_old_rev_component_rec => l_old_rev_component_rec
8379: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
8380: , x_return_status => l_Return_Status
8381: );
8382:
8383: --IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
8384:
8385: IF l_return_status = Error_Handler.G_STATUS_ERROR
8386: THEN
8387: IF l_rev_component_rec.transaction_type = 'CREATE'
8381: );
8382:
8383: --IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
8384:
8385: IF l_return_status = Error_Handler.G_STATUS_ERROR
8386: THEN
8387: IF l_rev_component_rec.transaction_type = 'CREATE'
8388: THEN
8389: l_other_message := 'BOM_CMP_ENTVAL_CSEV_SKIP';
8392: RAISE EXC_SEV_QUIT_BRANCH;
8393: ELSE
8394: RAISE EXC_SEV_QUIT_RECORD;
8395: END IF;
8396: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
8397: THEN
8398: l_other_message := 'BOM_CMP_ENTVAL_UNEXP_SKIP';
8399: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
8400: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
8401: RAISE EXC_UNEXP_SKIP_OBJECT;
8402: ELSIF l_return_status ='S' AND
8403: l_Mesg_Token_Tbl.COUNT <>0
8404: THEN
8405: Eco_Error_Handler.Log_Error
8406: ( p_rev_component_tbl => x_rev_component_tbl
8407: , p_ref_designator_tbl => x_ref_designator_tbl
8408: , p_sub_component_tbl => x_sub_component_tbl
8409: , p_mesg_token_tbl => l_mesg_token_tbl
8424:
8425: -- Process Flow step 16 : Database Writes
8426: --
8427:
8428: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Writing to the database'); END IF;
8429: BOM_Globals.Set_BO_Identifier('ECO'); --bug 13849573
8430: Bom_Bom_Component_Util.Perform_Writes
8431: ( p_rev_component_rec => l_rev_component_rec
8432: , p_rev_comp_unexp_rec => l_rev_comp_unexp_rec
8433: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
8434: , x_return_status => l_return_status
8435: );
8436:
8437: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
8438:
8439: IF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
8440: THEN
8441: l_other_message := 'BOM_CMP_WRITES_UNEXP_SKIP';
8435: );
8436:
8437: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
8438:
8439: IF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
8440: THEN
8441: l_other_message := 'BOM_CMP_WRITES_UNEXP_SKIP';
8442: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
8443: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
8444: RAISE EXC_UNEXP_SKIP_OBJECT;
8445: ELSIF l_return_status ='S' AND
8446: l_Mesg_Token_Tbl.COUNT <>0
8447: THEN
8448: Eco_Error_Handler.Log_Error
8449: ( p_rev_component_tbl => x_rev_component_tbl
8450: , p_ref_designator_tbl => x_ref_designator_tbl
8451: , p_sub_component_tbl => x_sub_component_tbl
8452: , p_mesg_token_tbl => l_mesg_token_tbl
8481: ELSE
8482:
8483:
8484: IF Bom_Globals.Get_Debug = 'Y' THEN
8485: Error_Handler.Write_Debug('This record does not patch with the parent that called it . . . ') ;
8486: Error_Handler.Write_Debug('so may be this is an comp in another branch . . . '
8487: || l_rev_component_rec.component_item_name ) ;
8488: END IF ;
8489:
8482:
8483:
8484: IF Bom_Globals.Get_Debug = 'Y' THEN
8485: Error_Handler.Write_Debug('This record does not patch with the parent that called it . . . ') ;
8486: Error_Handler.Write_Debug('so may be this is an comp in another branch . . . '
8487: || l_rev_component_rec.component_item_name ) ;
8488: END IF ;
8489:
8490: l_process_children := FALSE;
8498: EXCEPTION
8499:
8500: WHEN EXC_SEV_QUIT_RECORD THEN
8501:
8502: Eco_Error_Handler.Log_Error
8503: ( p_rev_component_tbl => x_rev_component_tbl
8504: , p_ref_designator_tbl => x_ref_designator_tbl
8505: , p_sub_component_tbl => x_sub_component_tbl
8506: , p_mesg_token_tbl => l_mesg_token_tbl
8504: , p_ref_designator_tbl => x_ref_designator_tbl
8505: , p_sub_component_tbl => x_sub_component_tbl
8506: , p_mesg_token_tbl => l_mesg_token_tbl
8507: , p_error_status => FND_API.G_RET_STS_ERROR
8508: , p_error_scope => Error_Handler.G_SCOPE_RECORD
8509: , p_error_level => 4
8510: , p_entity_index => I
8511: , x_eco_rec => l_eco_rec
8512: , x_eco_revision_tbl => l_eco_revision_tbl
8532: --x_sub_component_tbl := l_sub_component_tbl;
8533:
8534: WHEN EXC_SEV_QUIT_BRANCH THEN
8535:
8536: Eco_Error_Handler.Log_Error
8537: ( p_rev_component_tbl => x_rev_component_tbl
8538: , p_ref_designator_tbl => x_ref_designator_tbl
8539: , p_sub_component_tbl => x_sub_component_tbl
8540: , p_mesg_token_tbl => l_mesg_token_tbl
8537: ( p_rev_component_tbl => x_rev_component_tbl
8538: , p_ref_designator_tbl => x_ref_designator_tbl
8539: , p_sub_component_tbl => x_sub_component_tbl
8540: , p_mesg_token_tbl => l_mesg_token_tbl
8541: , p_error_status => Error_Handler.G_STATUS_ERROR
8542: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
8543: , p_other_status => Error_Handler.G_STATUS_ERROR
8544: , p_other_message => l_other_message
8545: , p_other_token_tbl => l_other_token_tbl
8538: , p_ref_designator_tbl => x_ref_designator_tbl
8539: , p_sub_component_tbl => x_sub_component_tbl
8540: , p_mesg_token_tbl => l_mesg_token_tbl
8541: , p_error_status => Error_Handler.G_STATUS_ERROR
8542: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
8543: , p_other_status => Error_Handler.G_STATUS_ERROR
8544: , p_other_message => l_other_message
8545: , p_other_token_tbl => l_other_token_tbl
8546: , p_error_level => 4
8539: , p_sub_component_tbl => x_sub_component_tbl
8540: , p_mesg_token_tbl => l_mesg_token_tbl
8541: , p_error_status => Error_Handler.G_STATUS_ERROR
8542: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
8543: , p_other_status => Error_Handler.G_STATUS_ERROR
8544: , p_other_message => l_other_message
8545: , p_other_token_tbl => l_other_token_tbl
8546: , p_error_level => 4
8547: , p_entity_index => I
8569: --x_sub_component_tbl := l_sub_component_tbl;
8570:
8571: WHEN EXC_SEV_SKIP_BRANCH THEN
8572:
8573: Eco_Error_Handler.Log_Error
8574: ( p_rev_component_tbl => x_rev_component_tbl
8575: , p_ref_designator_tbl => x_ref_designator_tbl
8576: , p_sub_component_tbl => x_sub_component_tbl
8577: , p_mesg_token_tbl => l_mesg_token_tbl
8574: ( p_rev_component_tbl => x_rev_component_tbl
8575: , p_ref_designator_tbl => x_ref_designator_tbl
8576: , p_sub_component_tbl => x_sub_component_tbl
8577: , p_mesg_token_tbl => l_mesg_token_tbl
8578: , p_error_status => Error_Handler.G_STATUS_ERROR
8579: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
8580: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
8581: , p_other_message => l_other_message
8582: , p_other_token_tbl => l_other_token_tbl
8575: , p_ref_designator_tbl => x_ref_designator_tbl
8576: , p_sub_component_tbl => x_sub_component_tbl
8577: , p_mesg_token_tbl => l_mesg_token_tbl
8578: , p_error_status => Error_Handler.G_STATUS_ERROR
8579: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
8580: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
8581: , p_other_message => l_other_message
8582: , p_other_token_tbl => l_other_token_tbl
8583: , p_error_level => 4
8576: , p_sub_component_tbl => x_sub_component_tbl
8577: , p_mesg_token_tbl => l_mesg_token_tbl
8578: , p_error_status => Error_Handler.G_STATUS_ERROR
8579: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
8580: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
8581: , p_other_message => l_other_message
8582: , p_other_token_tbl => l_other_token_tbl
8583: , p_error_level => 4
8584: , p_entity_index => I
8606: --x_sub_component_tbl := l_sub_component_tbl;
8607:
8608: WHEN EXC_SEV_QUIT_SIBLINGS THEN
8609:
8610: Eco_Error_Handler.Log_Error
8611: ( p_rev_component_tbl => x_rev_component_tbl
8612: , p_ref_designator_tbl => x_ref_designator_tbl
8613: , p_sub_component_tbl => x_sub_component_tbl
8614: , p_mesg_token_tbl => l_mesg_token_tbl
8611: ( p_rev_component_tbl => x_rev_component_tbl
8612: , p_ref_designator_tbl => x_ref_designator_tbl
8613: , p_sub_component_tbl => x_sub_component_tbl
8614: , p_mesg_token_tbl => l_mesg_token_tbl
8615: , p_error_status => Error_Handler.G_STATUS_ERROR
8616: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
8617: , p_other_status => Error_Handler.G_STATUS_ERROR
8618: , p_other_message => l_other_message
8619: , p_other_token_tbl => l_other_token_tbl
8612: , p_ref_designator_tbl => x_ref_designator_tbl
8613: , p_sub_component_tbl => x_sub_component_tbl
8614: , p_mesg_token_tbl => l_mesg_token_tbl
8615: , p_error_status => Error_Handler.G_STATUS_ERROR
8616: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
8617: , p_other_status => Error_Handler.G_STATUS_ERROR
8618: , p_other_message => l_other_message
8619: , p_other_token_tbl => l_other_token_tbl
8620: , p_error_level => 4
8613: , p_sub_component_tbl => x_sub_component_tbl
8614: , p_mesg_token_tbl => l_mesg_token_tbl
8615: , p_error_status => Error_Handler.G_STATUS_ERROR
8616: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
8617: , p_other_status => Error_Handler.G_STATUS_ERROR
8618: , p_other_message => l_other_message
8619: , p_other_token_tbl => l_other_token_tbl
8620: , p_error_level => 4
8621: , p_entity_index => I
8643: --x_sub_component_tbl := l_sub_component_tbl;
8644:
8645: WHEN EXC_FAT_QUIT_BRANCH THEN
8646:
8647: Eco_Error_Handler.Log_Error
8648: ( p_rev_component_tbl => x_rev_component_tbl
8649: , p_ref_designator_tbl => x_ref_designator_tbl
8650: , p_sub_component_tbl => x_sub_component_tbl
8651: , p_mesg_token_tbl => l_mesg_token_tbl
8648: ( p_rev_component_tbl => x_rev_component_tbl
8649: , p_ref_designator_tbl => x_ref_designator_tbl
8650: , p_sub_component_tbl => x_sub_component_tbl
8651: , p_mesg_token_tbl => l_mesg_token_tbl
8652: , p_error_status => Error_Handler.G_STATUS_FATAL
8653: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
8654: , p_other_status => Error_Handler.G_STATUS_FATAL
8655: , p_other_message => l_other_message
8656: , p_other_token_tbl => l_other_token_tbl
8649: , p_ref_designator_tbl => x_ref_designator_tbl
8650: , p_sub_component_tbl => x_sub_component_tbl
8651: , p_mesg_token_tbl => l_mesg_token_tbl
8652: , p_error_status => Error_Handler.G_STATUS_FATAL
8653: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
8654: , p_other_status => Error_Handler.G_STATUS_FATAL
8655: , p_other_message => l_other_message
8656: , p_other_token_tbl => l_other_token_tbl
8657: , p_error_level => 4
8650: , p_sub_component_tbl => x_sub_component_tbl
8651: , p_mesg_token_tbl => l_mesg_token_tbl
8652: , p_error_status => Error_Handler.G_STATUS_FATAL
8653: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
8654: , p_other_status => Error_Handler.G_STATUS_FATAL
8655: , p_other_message => l_other_message
8656: , p_other_token_tbl => l_other_token_tbl
8657: , p_error_level => 4
8658: , p_entity_index => I
8668: );
8669:
8670: l_process_children := FALSE;
8671:
8672: x_return_status := Error_Handler.G_STATUS_FATAL;
8673: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
8674: --x_rev_component_tbl := l_rev_component_tbl;
8675: --x_ref_designator_tbl := l_ref_designator_tbl;
8676: --x_sub_component_tbl := l_sub_component_tbl;
8676: --x_sub_component_tbl := l_sub_component_tbl;
8677:
8678: WHEN EXC_FAT_QUIT_SIBLINGS THEN
8679:
8680: Eco_Error_Handler.Log_Error
8681: ( p_rev_component_tbl => x_rev_component_tbl
8682: , p_ref_designator_tbl => x_ref_designator_tbl
8683: , p_sub_component_tbl => x_sub_component_tbl
8684: , p_mesg_token_tbl => l_mesg_token_tbl
8681: ( p_rev_component_tbl => x_rev_component_tbl
8682: , p_ref_designator_tbl => x_ref_designator_tbl
8683: , p_sub_component_tbl => x_sub_component_tbl
8684: , p_mesg_token_tbl => l_mesg_token_tbl
8685: , p_error_status => Error_Handler.G_STATUS_FATAL
8686: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
8687: , p_other_status => Error_Handler.G_STATUS_FATAL
8688: , p_other_message => l_other_message
8689: , p_other_token_tbl => l_other_token_tbl
8682: , p_ref_designator_tbl => x_ref_designator_tbl
8683: , p_sub_component_tbl => x_sub_component_tbl
8684: , p_mesg_token_tbl => l_mesg_token_tbl
8685: , p_error_status => Error_Handler.G_STATUS_FATAL
8686: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
8687: , p_other_status => Error_Handler.G_STATUS_FATAL
8688: , p_other_message => l_other_message
8689: , p_other_token_tbl => l_other_token_tbl
8690: , p_error_level => 4
8683: , p_sub_component_tbl => x_sub_component_tbl
8684: , p_mesg_token_tbl => l_mesg_token_tbl
8685: , p_error_status => Error_Handler.G_STATUS_FATAL
8686: , p_error_scope => Error_Handler.G_SCOPE_SIBLINGS
8687: , p_other_status => Error_Handler.G_STATUS_FATAL
8688: , p_other_message => l_other_message
8689: , p_other_token_tbl => l_other_token_tbl
8690: , p_error_level => 4
8691: , p_entity_index => I
8701: );
8702:
8703: l_process_children := FALSE;
8704:
8705: x_return_status := Error_Handler.G_STATUS_FATAL;
8706: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
8707: --x_rev_component_tbl := l_rev_component_tbl;
8708: --x_ref_designator_tbl := l_ref_designator_tbl;
8709: --x_sub_component_tbl := l_sub_component_tbl;
8709: --x_sub_component_tbl := l_sub_component_tbl;
8710:
8711: WHEN EXC_FAT_QUIT_OBJECT THEN
8712:
8713: Eco_Error_Handler.Log_Error
8714: ( p_rev_component_tbl => x_rev_component_tbl
8715: , p_ref_designator_tbl => x_ref_designator_tbl
8716: , p_sub_component_tbl => x_sub_component_tbl
8717: , p_mesg_token_tbl => l_mesg_token_tbl
8714: ( p_rev_component_tbl => x_rev_component_tbl
8715: , p_ref_designator_tbl => x_ref_designator_tbl
8716: , p_sub_component_tbl => x_sub_component_tbl
8717: , p_mesg_token_tbl => l_mesg_token_tbl
8718: , p_error_status => Error_Handler.G_STATUS_FATAL
8719: , p_error_scope => Error_Handler.G_SCOPE_ALL
8720: , p_other_status => Error_Handler.G_STATUS_FATAL
8721: , p_other_message => l_other_message
8722: , p_other_token_tbl => l_other_token_tbl
8715: , p_ref_designator_tbl => x_ref_designator_tbl
8716: , p_sub_component_tbl => x_sub_component_tbl
8717: , p_mesg_token_tbl => l_mesg_token_tbl
8718: , p_error_status => Error_Handler.G_STATUS_FATAL
8719: , p_error_scope => Error_Handler.G_SCOPE_ALL
8720: , p_other_status => Error_Handler.G_STATUS_FATAL
8721: , p_other_message => l_other_message
8722: , p_other_token_tbl => l_other_token_tbl
8723: , p_error_level => 4
8716: , p_sub_component_tbl => x_sub_component_tbl
8717: , p_mesg_token_tbl => l_mesg_token_tbl
8718: , p_error_status => Error_Handler.G_STATUS_FATAL
8719: , p_error_scope => Error_Handler.G_SCOPE_ALL
8720: , p_other_status => Error_Handler.G_STATUS_FATAL
8721: , p_other_message => l_other_message
8722: , p_other_token_tbl => l_other_token_tbl
8723: , p_error_level => 4
8724: , p_entity_index => I
8741: l_return_status := 'Q';
8742:
8743: WHEN EXC_UNEXP_SKIP_OBJECT THEN
8744:
8745: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Unexpected error caught in Rev Comps . . . '); END IF;
8746:
8747: Eco_Error_Handler.Log_Error
8748: ( p_rev_component_tbl => x_rev_component_tbl
8749: , p_ref_designator_tbl => x_ref_designator_tbl
8743: WHEN EXC_UNEXP_SKIP_OBJECT THEN
8744:
8745: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Unexpected error caught in Rev Comps . . . '); END IF;
8746:
8747: Eco_Error_Handler.Log_Error
8748: ( p_rev_component_tbl => x_rev_component_tbl
8749: , p_ref_designator_tbl => x_ref_designator_tbl
8750: , p_sub_component_tbl => x_sub_component_tbl
8751: , p_mesg_token_tbl => l_mesg_token_tbl
8748: ( p_rev_component_tbl => x_rev_component_tbl
8749: , p_ref_designator_tbl => x_ref_designator_tbl
8750: , p_sub_component_tbl => x_sub_component_tbl
8751: , p_mesg_token_tbl => l_mesg_token_tbl
8752: , p_error_status => Error_Handler.G_STATUS_UNEXPECTED
8753: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
8754: , p_other_message => l_other_message
8755: , p_other_token_tbl => l_other_token_tbl
8756: , p_error_level => 4
8749: , p_ref_designator_tbl => x_ref_designator_tbl
8750: , p_sub_component_tbl => x_sub_component_tbl
8751: , p_mesg_token_tbl => l_mesg_token_tbl
8752: , p_error_status => Error_Handler.G_STATUS_UNEXPECTED
8753: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
8754: , p_other_message => l_other_message
8755: , p_other_token_tbl => l_other_token_tbl
8756: , p_error_level => 4
8757: , p_entity_index => I
8772: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
8773:
8774: l_return_status := 'U';
8775:
8776: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Unexpected error in Rev Comps . . .'); END IF;
8777:
8778: END; -- END block
8779:
8780: IF l_return_status in ('Q', 'U')
8780: IF l_return_status in ('Q', 'U')
8781: THEN
8782: x_return_status := l_return_status;
8783:
8784: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rev Comps returning with status ' || l_return_status ); END IF;
8785:
8786: RETURN;
8787: END IF;
8788:
8791: -- Process Reference Designators that are direct children of this
8792: -- component
8793:
8794: IF Bom_Globals.Get_Debug = 'Y' THEN
8795: Error_Handler.Write_Debug('***********************************************************') ;
8796: Error_Handler.Write_Debug('Now processing direct children for the Rev Comp '
8797: || l_rev_component_rec.component_item_name || '. . .' );
8798: Error_Handler.Write_Debug('Now processing Ref Desig as direct children for the Rev Comp ') ;
8799: END IF;
8792: -- component
8793:
8794: IF Bom_Globals.Get_Debug = 'Y' THEN
8795: Error_Handler.Write_Debug('***********************************************************') ;
8796: Error_Handler.Write_Debug('Now processing direct children for the Rev Comp '
8797: || l_rev_component_rec.component_item_name || '. . .' );
8798: Error_Handler.Write_Debug('Now processing Ref Desig as direct children for the Rev Comp ') ;
8799: END IF;
8800:
8794: IF Bom_Globals.Get_Debug = 'Y' THEN
8795: Error_Handler.Write_Debug('***********************************************************') ;
8796: Error_Handler.Write_Debug('Now processing direct children for the Rev Comp '
8797: || l_rev_component_rec.component_item_name || '. . .' );
8798: Error_Handler.Write_Debug('Now processing Ref Desig as direct children for the Rev Comp ') ;
8799: END IF;
8800:
8801:
8802: Ref_Desgs
8827: -- Process Substitute Components that are direct children of this
8828: -- component
8829:
8830: IF Bom_Globals.Get_Debug = 'Y' THEN
8831: Error_Handler.Write_Debug('***********************************************************') ;
8832: Error_Handler.Write_Debug('Now processing Ref Desig as direct children for the Rev Comp ') ;
8833: END IF ;
8834:
8835: Sub_Comps
8828: -- component
8829:
8830: IF Bom_Globals.Get_Debug = 'Y' THEN
8831: Error_Handler.Write_Debug('***********************************************************') ;
8832: Error_Handler.Write_Debug('Now processing Ref Desig as direct children for the Rev Comp ') ;
8833: END IF ;
8834:
8835: Sub_Comps
8836: ( p_validation_level => p_validation_level
8854: THEN
8855: l_bo_return_status := l_return_status;
8856: END IF;
8857:
8858: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Finished processing children for ' || l_rev_component_rec.component_item_name || ' . . . ' || l_return_status ); END IF;
8859:
8860: END IF; -- Process children
8861: END IF; -- End of processing records for which the return status is null
8862: END LOOP; -- END Revised Components processing loop
8865:
8866: IF NVL(l_bo_return_status, 'S') <> 'S'
8867: THEN
8868: IF Bom_Globals.Get_Debug = 'Y' THEN
8869: Error_Handler.write_Debug('Return status before returning from Rev Comps: ' || l_bo_return_status);
8870: END IF;
8871: x_return_status := l_bo_return_status;
8872:
8873: END IF;
8899: , x_rev_operation_tbl IN OUT NOCOPY Bom_Rtg_Pub.Rev_Operation_Tbl_Type --L1
8900: , x_rev_op_resource_tbl IN OUT NOCOPY Bom_Rtg_Pub.Rev_Op_Resource_Tbl_Type --L1
8901: , x_rev_sub_resource_tbl IN OUT NOCOPY Bom_Rtg_Pub.Rev_Sub_Resource_Tbl_Type--L1
8902: , x_revised_item_unexp_rec OUT NOCOPY ENG_Eco_PUB.Rev_Item_Unexposed_Rec_Type
8903: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
8904: , x_return_status OUT NOCOPY VARCHAR2
8905: , x_disable_revision OUT NOCOPY NUMBER --Bug no:3034642
8906: )
8907: IS
8904: , x_return_status OUT NOCOPY VARCHAR2
8905: , x_disable_revision OUT NOCOPY NUMBER --Bug no:3034642
8906: )
8907: IS
8908: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
8909: l_other_token_tbl Error_Handler.Token_Tbl_Type;
8910: l_other_message VARCHAR2(2000);
8911: l_err_text VARCHAR2(2000);
8912: l_valid BOOLEAN := TRUE;
8905: , x_disable_revision OUT NOCOPY NUMBER --Bug no:3034642
8906: )
8907: IS
8908: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
8909: l_other_token_tbl Error_Handler.Token_Tbl_Type;
8910: l_other_message VARCHAR2(2000);
8911: l_err_text VARCHAR2(2000);
8912: l_valid BOOLEAN := TRUE;
8913: l_eco_parent_exists BOOLEAN := FALSE;
8929: --l_rev_operation_tbl Bom_Rtg_Pub.Rev_Operation_Tbl_Type := p_rev_operation_tbl; --L1
8930: --l_rev_op_resource_tbl Bom_Rtg_Pub.Rev_Op_Resource_Tbl_Type :=p_rev_op_resource_tbl; --L1
8931: --l_rev_sub_resource_tbl Bom_Rtg_Pub.Rev_Sub_Resource_Tbl_Type :=p_rev_sub_resource_tbl; --L1
8932: l_return_value NUMBER;
8933: l_Token_Tbl Error_Handler.Token_Tbl_Type;
8934:
8935: l_process_children BOOLEAN := TRUE;
8936:
8937: EXC_SEV_QUIT_RECORD EXCEPTION;
8993: -- Process Flow Step 2: Check if record has not yet been processed and
8994: -- that it is the child of the parent that called this procedure
8995: --
8996:
8997: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Processing Revised Item . . . ' || l_revised_item_rec.revised_item_name); END IF;
8998:
8999: IF --(l_revised_item_rec.return_status IS NULL OR
9000: --l_revised_item_rec.return_status = FND_API.G_MISS_CHAR)
9001: --AND
9012:
9013: -- Check if transaction_type is valid
9014: --
9015:
9016: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check transaction_type validity'); END IF;
9017: ENG_GLOBALS.Transaction_Type_Validity
9018: ( p_transaction_type => l_revised_item_rec.transaction_type
9019: , p_entity => 'Rev_Items'
9020: , p_entity_id => l_revised_item_rec.revised_item_name
9023: );
9024:
9025: IF NOT l_valid
9026: THEN
9027: l_return_status := Error_Handler.G_STATUS_ERROR;
9028: RAISE EXC_SEV_QUIT_RECORD;
9029: END IF;
9030:
9031: -- Process Flow step 4: Convert user unique index to unique index
9030:
9031: -- Process Flow step 4: Convert user unique index to unique index
9032: --
9033:
9034: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Converting user unique index to unique index'); END IF;
9035: ENG_Val_To_Id.Revised_Item_UUI_To_UI
9036: ( p_revised_item_rec => l_revised_item_rec
9037: , p_rev_item_unexp_rec => l_rev_item_unexp_rec
9038: , x_rev_item_unexp_rec => l_rev_item_unexp_rec
9039: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
9040: , x_Return_Status => l_return_status
9041: );
9042:
9043: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
9044:
9045: IF l_return_status = Error_Handler.G_STATUS_ERROR
9046: THEN
9047: l_other_message := 'ENG_RIT_UUI_SEV_ERROR';
9041: );
9042:
9043: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
9044:
9045: IF l_return_status = Error_Handler.G_STATUS_ERROR
9046: THEN
9047: l_other_message := 'ENG_RIT_UUI_SEV_ERROR';
9048: l_other_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
9049: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
9047: l_other_message := 'ENG_RIT_UUI_SEV_ERROR';
9048: l_other_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
9049: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
9050: RAISE EXC_SEV_QUIT_BRANCH;
9051: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
9052: THEN
9053: l_other_message := 'ENG_RIT_UUI_UNEXP_SKIP';
9054: l_other_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
9055: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
9064: -- Process Flow step 5: Verify ECO's existence in database, if
9065: -- the revised item is being created on an ECO and the business
9066: -- object does not carry the ECO header
9067:
9068: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check parent existence'); END IF;
9069:
9070: IF l_revised_item_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE
9071: AND
9072: NOT l_eco_parent_exists
9082: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
9083: , x_return_status => l_Return_Status
9084: );
9085:
9086: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
9087:
9088: IF l_return_status = Error_Handler.G_STATUS_ERROR
9089: THEN
9090: l_other_message := 'ENG_PARENTECO_NOT_EXIST';
9084: );
9085:
9086: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
9087:
9088: IF l_return_status = Error_Handler.G_STATUS_ERROR
9089: THEN
9090: l_other_message := 'ENG_PARENTECO_NOT_EXIST';
9091: l_other_token_tbl(1).token_name := 'ECO_NAME';
9092: l_other_token_tbl(1).token_value := l_revised_item_rec.ECO_Name;
9092: l_other_token_tbl(1).token_value := l_revised_item_rec.ECO_Name;
9093: l_other_token_tbl(2).token_name := 'ORGANIZATION_CODE';
9094: l_other_token_tbl(2).token_value := l_revised_item_rec.organization_code;
9095: RAISE EXC_SEV_QUIT_OBJECT;
9096: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
9097: THEN
9098: l_other_message := 'ENG_RIT_LIN_UNEXP_SKIP';
9099: l_other_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
9100: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
9114: l_chk_co_sch := ret_co_status ( l_revised_item_rec.eco_name, l_rev_item_unexp_rec.organization_id);
9115: END IF;
9116:
9117: IF l_chk_co_sch = 4 THEN
9118: l_return_status := error_handler.g_status_error;
9119: error_handler.add_error_token (p_message_name => 'ENG_REV_ITM_NOT_UPD',
9120: p_mesg_token_tbl => l_mesg_token_tbl,
9121: x_mesg_token_tbl => l_mesg_token_tbl,
9122: p_token_tbl => l_token_tbl
9115: END IF;
9116:
9117: IF l_chk_co_sch = 4 THEN
9118: l_return_status := error_handler.g_status_error;
9119: error_handler.add_error_token (p_message_name => 'ENG_REV_ITM_NOT_UPD',
9120: p_mesg_token_tbl => l_mesg_token_tbl,
9121: x_mesg_token_tbl => l_mesg_token_tbl,
9122: p_token_tbl => l_token_tbl
9123: );
9139: END IF;
9140: -- Process Flow step 5: Verify Revised Item's existence
9141: --
9142:
9143: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check existence'); END IF;
9144: ENG_Validate_Revised_Item.Check_Existence
9145: ( p_revised_item_rec => l_revised_item_rec
9146: , p_rev_item_unexp_rec => l_rev_item_unexp_rec
9147: , x_old_revised_item_rec => l_old_revised_item_rec
9150: , x_return_status => l_Return_Status
9151: , x_disable_revision => x_disable_revision --BUG 3034642
9152: );
9153:
9154: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
9155:
9156: IF l_return_status = Error_Handler.G_STATUS_ERROR
9157: THEN
9158: l_other_message := 'ENG_RIT_EXS_SEV_ERROR';
9152: );
9153:
9154: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
9155:
9156: IF l_return_status = Error_Handler.G_STATUS_ERROR
9157: THEN
9158: l_other_message := 'ENG_RIT_EXS_SEV_ERROR';
9159: l_other_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
9160: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
9160: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
9161: l_other_token_tbl(2).token_name := 'ECO_NAME';
9162: l_other_token_tbl(2).token_value := l_revised_item_rec.eco_name;
9163: RAISE EXC_SEV_QUIT_BRANCH;
9164: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
9165: THEN
9166: l_other_message := 'ENG_RIT_EXS_UNEXP_SKIP';
9167: l_other_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
9168: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
9187: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
9188: , x_Return_Status => l_return_status
9189: );
9190:
9191: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
9192:
9193: IF l_return_status = Error_Handler.G_STATUS_ERROR
9194: THEN
9195: l_other_message := 'ENG_RIT_ECOACC_FAT_FATAL';
9189: );
9190:
9191: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
9192:
9193: IF l_return_status = Error_Handler.G_STATUS_ERROR
9194: THEN
9195: l_other_message := 'ENG_RIT_ECOACC_FAT_FATAL';
9196: l_other_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
9197: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
9196: l_other_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
9197: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
9198: l_return_status := 'F';
9199: RAISE EXC_FAT_QUIT_OBJECT;
9200: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
9201: THEN
9202: l_other_message := 'ENG_RIT_ECOACC_UNEXP_SKIP';
9203: l_other_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
9204: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
9207:
9208: -- Process Flow step 7(b): check that user has access to revised item
9209: --
9210:
9211: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check access'); END IF;
9212: ENG_Validate_Revised_Item.Check_Access
9213: ( p_change_notice => l_revised_item_rec.ECO_Name
9214: , p_organization_id => l_rev_item_unexp_rec.organization_id
9215: , p_revised_item_id => l_rev_item_unexp_rec.revised_item_id
9222: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
9223: , x_return_status => l_Return_Status
9224: );
9225:
9226: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
9227:
9228: IF l_return_status = Error_Handler.G_STATUS_ERROR
9229: THEN
9230: l_other_message := 'ENG_RIT_ACCESS_FAT_FATAL';
9224: );
9225:
9226: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
9227:
9228: IF l_return_status = Error_Handler.G_STATUS_ERROR
9229: THEN
9230: l_other_message := 'ENG_RIT_ACCESS_FAT_FATAL';
9231: l_other_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
9232: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
9231: l_other_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
9232: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
9233: l_return_status := 'F';
9234: RAISE EXC_FAT_QUIT_BRANCH;
9235: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
9236: THEN
9237: l_other_message := 'ENG_RIT_ACCESS_UNEXP_SKIP';
9238: l_other_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
9239: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
9248: -- (for future release, flow routing is not supported in current release
9249: -- Added by MK on 08/24/2000
9250: --
9251: /* Comment out for current release
9252: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check Non-Flow Routing'); END IF;
9253:
9254: Bom_Validate_Rtg_Header.Check_flow_routing_operability ;
9255: ( p_assembly_item_name => l_revised_item_rec.revised_item_name
9256: , p_cfm_routing_flag => l_rev_item_unexp_rec.cfm_routing_flag
9259: , x_mesg_token_tbl => l_mesg_token_tbl
9260: , x_return_status => l_return_status
9261: );
9262:
9263: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
9264:
9265:
9266: IF l_return_status = Error_Handler.G_STATUS_ERROR
9267: THEN
9262:
9263: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
9264:
9265:
9266: IF l_return_status = Error_Handler.G_STATUS_ERROR
9267: THEN
9268: l_other_message := 'BOM_RTG_FRACC_ERROR';
9269: l_other_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
9270: l_other_token_tbl(1).token_value :=
9269: l_other_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
9270: l_other_token_tbl(1).token_value :=
9271: l_revised_item_rec.revised_item_name;
9272: RAISE EXC_SEV_QUIT_BRANCH;
9273: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
9274: THEN
9275: l_other_message := 'BOM_RTG_FRACC_UNEXP_SKIP';
9276: l_other_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
9277: l_other_token_tbl(1).token_value :=
9284:
9285: -- Process Flow step 9: Value to Id conversions
9286: --
9287:
9288: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Value-id conversions'); END IF;
9289: ENG_Val_To_Id.Revised_Item_VID
9290: ( x_Return_Status => l_return_status
9291: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
9292: , p_rev_item_unexp_Rec => l_rev_item_unexp_rec
9293: , x_rev_item_unexp_Rec => l_rev_item_unexp_rec
9294: , p_revised_item_Rec => l_revised_item_rec
9295: );
9296:
9297: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
9298:
9299: IF l_return_status = Error_Handler.G_STATUS_ERROR
9300: THEN
9301: IF l_revised_item_rec.transaction_type = 'CREATE'
9295: );
9296:
9297: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
9298:
9299: IF l_return_status = Error_Handler.G_STATUS_ERROR
9300: THEN
9301: IF l_revised_item_rec.transaction_type = 'CREATE'
9302: THEN
9303: l_other_message := 'ENG_RIT_VID_CSEV_SKIP';
9306: RAISE EXC_SEV_SKIP_BRANCH;
9307: ELSE
9308: RAISE EXC_SEV_QUIT_RECORD;
9309: END IF;
9310: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
9311: THEN
9312: RAISE EXC_UNEXP_SKIP_OBJECT;
9313: ELSIF l_return_status ='S' AND
9314: l_Mesg_Token_Tbl.COUNT <>0
9312: RAISE EXC_UNEXP_SKIP_OBJECT;
9313: ELSIF l_return_status ='S' AND
9314: l_Mesg_Token_Tbl.COUNT <>0
9315: THEN
9316: Eco_Error_Handler.Log_Error
9317: ( p_revised_item_tbl => x_revised_item_tbl
9318: , p_rev_component_tbl => x_rev_component_tbl
9319: , p_ref_designator_tbl => x_ref_designator_tbl
9320: , p_sub_component_tbl => x_sub_component_tbl
9340: -- Process Flow step 10: Attribute Validation for CREATE and UPDATE
9341: --
9342:
9343:
9344: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Attribute Validation'); END IF;
9345: IF l_revised_item_rec.Transaction_Type IN
9346: (ENG_GLOBALS.G_OPR_CREATE, ENG_GLOBALS.G_OPR_UPDATE)
9347: THEN
9348: ENG_Validate_Revised_Item.Check_Attributes
9353: , p_old_revised_item_rec => l_old_revised_item_rec
9354: , p_old_rev_item_unexp_rec => l_old_rev_item_unexp_rec
9355: );
9356:
9357: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
9358:
9359: IF l_return_status = Error_Handler.G_STATUS_ERROR
9360: THEN
9361: IF l_revised_item_rec.transaction_type = 'CREATE'
9355: );
9356:
9357: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
9358:
9359: IF l_return_status = Error_Handler.G_STATUS_ERROR
9360: THEN
9361: IF l_revised_item_rec.transaction_type = 'CREATE'
9362: THEN
9363: l_other_message := 'ENG_RIT_ATTVAL_CSEV_SKIP';
9366: RAISE EXC_SEV_SKIP_BRANCH;
9367: ELSE
9368: RAISE EXC_SEV_QUIT_RECORD;
9369: END IF;
9370: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
9371: THEN
9372: l_other_message := 'ENG_RIT_ATTVAL_UNEXP_SKIP';
9373: l_other_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
9374: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
9375: RAISE EXC_UNEXP_SKIP_OBJECT;
9376: ELSIF l_return_status ='S' AND
9377: l_Mesg_Token_Tbl.COUNT <>0
9378: THEN
9379: Eco_Error_Handler.Log_Error
9380: ( p_revised_item_tbl => x_revised_item_tbl
9381: , p_rev_component_tbl => x_rev_component_tbl
9382: , p_ref_designator_tbl => x_ref_designator_tbl
9383: , p_sub_component_tbl => x_sub_component_tbl
9407:
9408: -- Process flow step 11 - Populate NULL columns for Update and
9409: -- Delete.
9410:
9411: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Populating NULL Columns'); END IF;
9412: Eng_Default_Revised_Item.Populate_NULL_Columns
9413: ( p_revised_item_rec => l_revised_item_rec
9414: , p_old_revised_item_rec => l_old_revised_item_rec
9415: , p_rev_item_unexp_rec => l_rev_item_unexp_rec
9422:
9423: -- Process Flow step 12: Default missing values for Operation CREATE
9424: --
9425:
9426: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Attribute Defaulting'); END IF;
9427: Eng_Default_Revised_Item.Attribute_Defaulting
9428: ( p_revised_item_rec => l_revised_item_rec
9429: , p_rev_item_unexp_rec => l_rev_item_unexp_rec
9430: , x_revised_item_rec => l_revised_item_rec
9432: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
9433: , x_return_status => l_return_status
9434: );
9435:
9436: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
9437:
9438: IF l_return_status = Error_Handler.G_STATUS_ERROR
9439: THEN
9440: l_other_message := 'ENG_RIT_ATTDEF_SEV_SKIP';
9434: );
9435:
9436: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
9437:
9438: IF l_return_status = Error_Handler.G_STATUS_ERROR
9439: THEN
9440: l_other_message := 'ENG_RIT_ATTDEF_SEV_SKIP';
9441: l_other_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
9442: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
9440: l_other_message := 'ENG_RIT_ATTDEF_SEV_SKIP';
9441: l_other_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
9442: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
9443: RAISE EXC_SEV_SKIP_BRANCH;
9444: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
9445: THEN
9446: l_other_message := 'ENG_RIT_ATTDEF_UNEXP_SKIP';
9447: l_other_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
9448: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
9449: RAISE EXC_UNEXP_SKIP_OBJECT;
9450: ELSIF l_return_status ='S' AND
9451: l_Mesg_Token_Tbl.COUNT <>0
9452: THEN
9453: Eco_Error_Handler.Log_Error
9454: ( p_revised_item_tbl => x_revised_item_tbl
9455: , p_rev_component_tbl => x_rev_component_tbl
9456: , p_ref_designator_tbl => x_ref_designator_tbl
9457: , p_sub_component_tbl => x_sub_component_tbl
9477:
9478: -- Process Flow step 13 - Conditionally required attributes check
9479: --
9480:
9481: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Conditionally required attributes check'); END IF;
9482:
9483: --
9484: -- Put conditionally required check procedure here
9485: --
9483: --
9484: -- Put conditionally required check procedure here
9485: --
9486:
9487: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
9488:
9489: ENG_Validate_Revised_Item.Check_Required
9490: ( x_return_status => l_return_status
9491: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
9491: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
9492: , p_revised_item_rec => l_revised_item_rec
9493: );
9494:
9495: IF l_return_status = Error_Handler.G_STATUS_ERROR
9496: THEN
9497: IF l_revised_item_rec.transaction_type = 'CREATE'
9498: THEN
9499: l_other_message := 'ENG_RIT_CONREQ_CSEV_SKIP';
9502: RAISE EXC_SEV_SKIP_BRANCH;
9503: ELSE
9504: RAISE EXC_SEV_QUIT_RECORD;
9505: END IF;
9506: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
9507: THEN
9508: l_other_message := 'ENG_RIT_CONREQ_UNEXP_SKIP';
9509: l_other_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
9510: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
9511: RAISE EXC_UNEXP_SKIP_OBJECT;
9512: ELSIF l_return_status ='S' AND
9513: l_Mesg_Token_Tbl.COUNT <>0
9514: THEN
9515: Eco_Error_Handler.Log_Error
9516: ( p_revised_item_tbl => x_revised_item_tbl
9517: , p_rev_component_tbl => x_rev_component_tbl
9518: , p_ref_designator_tbl => x_ref_designator_tbl
9519: , p_sub_component_tbl => x_sub_component_tbl
9538:
9539: -- Process Flow step 14: Entity defaulting for CREATE and UPDATE
9540: --
9541:
9542: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Entity defaulting'); END IF;
9543: IF l_revised_item_rec.Transaction_Type IN
9544: (ENG_GLOBALS.G_OPR_CREATE, ENG_GLOBALS.G_OPR_UPDATE)
9545: THEN
9546: ENG_Default_Revised_Item.Entity_Defaulting
9553: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
9554: , x_return_status => l_return_status
9555: );
9556:
9557: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
9558:
9559: IF l_return_status = Error_Handler.G_STATUS_ERROR
9560: THEN
9561: IF l_revised_item_rec.transaction_type = 'CREATE'
9555: );
9556:
9557: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
9558:
9559: IF l_return_status = Error_Handler.G_STATUS_ERROR
9560: THEN
9561: IF l_revised_item_rec.transaction_type = 'CREATE'
9562: THEN
9563: l_other_message := 'ENG_RIT_ENTDEF_CSEV_SKIP';
9566: RAISE EXC_SEV_SKIP_BRANCH;
9567: ELSE
9568: RAISE EXC_SEV_QUIT_RECORD;
9569: END IF;
9570: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
9571: THEN
9572: l_other_message := 'ENG_RIT_ENTDEF_UNEXP_SKIP';
9573: l_other_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
9574: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
9575: RAISE EXC_UNEXP_SKIP_OBJECT;
9576: ELSIF l_return_status ='S' AND
9577: l_Mesg_Token_Tbl.COUNT <>0
9578: THEN
9579: Eco_Error_Handler.Log_Error
9580: ( p_revised_item_tbl => x_revised_item_tbl
9581: , p_rev_component_tbl => x_rev_component_tbl
9582: , p_ref_designator_tbl => x_ref_designator_tbl
9583: , p_sub_component_tbl => x_sub_component_tbl
9603:
9604: -- Process Flow step 15 - Entity Level Validation
9605: --
9606:
9607: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Entity validation'); END IF;
9608:
9609: IF l_revised_item_rec.transaction_type = 'DELETE'
9610: THEN
9611: Eng_Validate_Revised_Item.Check_Entity_Delete
9624: , x_return_status => l_Return_Status
9625: );
9626: END IF;
9627:
9628: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
9629:
9630: IF l_return_status = Error_Handler.G_STATUS_ERROR
9631: THEN
9632: IF l_revised_item_rec.transaction_type = 'CREATE'
9626: END IF;
9627:
9628: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
9629:
9630: IF l_return_status = Error_Handler.G_STATUS_ERROR
9631: THEN
9632: IF l_revised_item_rec.transaction_type = 'CREATE'
9633: THEN
9634: l_other_message := 'ENG_RIT_ENTVAL_CSEV_SKIP';
9637: RAISE EXC_SEV_SKIP_BRANCH;
9638: ELSE
9639: RAISE EXC_SEV_QUIT_RECORD;
9640: END IF;
9641: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
9642: THEN
9643: l_other_message := 'ENG_RIT_ENTVAL_UNEXP_SKIP';
9644: l_other_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
9645: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
9646: RAISE EXC_UNEXP_SKIP_OBJECT;
9647: ELSIF l_return_status ='S' AND
9648: l_Mesg_Token_Tbl.COUNT <>0
9649: THEN
9650: Eco_Error_Handler.Log_Error
9651: ( p_revised_item_tbl => x_revised_item_tbl
9652: , p_rev_component_tbl => x_rev_component_tbl
9653: , p_ref_designator_tbl => x_ref_designator_tbl
9654: , p_sub_component_tbl => x_sub_component_tbl
9673:
9674: -- Process Flow step 16 : Database Writes
9675: --
9676:
9677: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Writing to the database'); END IF;
9678: ENG_Revised_Item_Util.Perform_Writes
9679: ( p_revised_item_rec => l_revised_item_rec
9680: , p_rev_item_unexp_rec => l_rev_item_unexp_rec
9681: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
9681: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
9682: , x_return_status => l_return_status
9683: );
9684:
9685: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
9686:
9687: IF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
9688: THEN
9689: l_other_message := 'ENG_RIT_WRITES_UNEXP_SKIP';
9683: );
9684:
9685: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
9686:
9687: IF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
9688: THEN
9689: l_other_message := 'ENG_RIT_WRITES_UNEXP_SKIP';
9690: l_other_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
9691: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
9692: RAISE EXC_UNEXP_SKIP_OBJECT;
9693: ELSIF l_return_status ='S' AND
9694: l_Mesg_Token_Tbl.COUNT <>0
9695: THEN
9696: Eco_Error_Handler.Log_Error
9697: ( p_revised_item_tbl => x_revised_item_tbl
9698: , p_rev_component_tbl => x_rev_component_tbl
9699: , p_ref_designator_tbl => x_ref_designator_tbl
9700: , p_sub_component_tbl => x_sub_component_tbl
9717: );
9718: END IF;
9719:
9720: IF Bom_Globals.Get_Debug = 'Y' THEN
9721: Error_Handler.Write_Debug('Writing to the database for Rev Item is completed with '||l_return_status );
9722: END IF;
9723:
9724: END IF; -- END IF statement that checks RETURN STATUS
9725:
9745: EXCEPTION
9746:
9747: WHEN EXC_SEV_QUIT_RECORD THEN
9748:
9749: Eco_Error_Handler.Log_Error
9750: ( p_revised_item_tbl => x_revised_item_tbl
9751: , p_rev_component_tbl => x_rev_component_tbl
9752: , p_ref_designator_tbl => x_ref_designator_tbl
9753: , p_sub_component_tbl => x_sub_component_tbl
9755: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
9756: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl --L1
9757: , p_mesg_token_tbl => l_mesg_token_tbl
9758: , p_error_status => FND_API.G_RET_STS_ERROR
9759: , p_error_scope => Error_Handler.G_SCOPE_RECORD
9760: , p_error_level => 3
9761: , p_entity_index => I
9762: , x_eco_rec => l_eco_rec
9763: , x_eco_revision_tbl => l_eco_revision_tbl
9794: ENG_GLOBALS.Set_Current_Revision( p_current_revision => NULL);
9795:
9796: WHEN EXC_SEV_QUIT_BRANCH THEN
9797:
9798: Eco_Error_Handler.Log_Error
9799: ( p_revised_item_tbl => x_revised_item_tbl
9800: , p_rev_component_tbl => x_rev_component_tbl
9801: , p_ref_designator_tbl => x_ref_designator_tbl
9802: , p_sub_component_tbl => x_sub_component_tbl
9803: , p_rev_operation_tbl => x_rev_operation_tbl --L1
9804: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
9805: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
9806: , p_mesg_token_tbl => l_mesg_token_tbl
9807: , p_error_status => Error_Handler.G_STATUS_ERROR
9808: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
9809: , p_other_status => Error_Handler.G_STATUS_ERROR
9810: , p_other_message => l_other_message
9811: , p_other_token_tbl => l_other_token_tbl
9804: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
9805: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
9806: , p_mesg_token_tbl => l_mesg_token_tbl
9807: , p_error_status => Error_Handler.G_STATUS_ERROR
9808: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
9809: , p_other_status => Error_Handler.G_STATUS_ERROR
9810: , p_other_message => l_other_message
9811: , p_other_token_tbl => l_other_token_tbl
9812: , p_error_level => 3
9805: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
9806: , p_mesg_token_tbl => l_mesg_token_tbl
9807: , p_error_status => Error_Handler.G_STATUS_ERROR
9808: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
9809: , p_other_status => Error_Handler.G_STATUS_ERROR
9810: , p_other_message => l_other_message
9811: , p_other_token_tbl => l_other_token_tbl
9812: , p_error_level => 3
9813: , p_entity_index => I
9846: ENG_GLOBALS.Set_Current_Revision( p_current_revision => NULL);
9847:
9848: WHEN EXC_SEV_SKIP_BRANCH THEN
9849:
9850: Eco_Error_Handler.Log_Error
9851: ( p_revised_item_tbl => x_revised_item_tbl
9852: , p_rev_component_tbl => x_rev_component_tbl
9853: , p_ref_designator_tbl => x_ref_designator_tbl
9854: , p_sub_component_tbl => x_sub_component_tbl
9855: , p_rev_operation_tbl => x_rev_operation_tbl --L1
9856: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
9857: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
9858: , p_mesg_token_tbl => l_mesg_token_tbl
9859: , p_error_status => Error_Handler.G_STATUS_ERROR
9860: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
9861: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
9862: , p_other_message => l_other_message
9863: , p_other_token_tbl => l_other_token_tbl
9856: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
9857: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
9858: , p_mesg_token_tbl => l_mesg_token_tbl
9859: , p_error_status => Error_Handler.G_STATUS_ERROR
9860: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
9861: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
9862: , p_other_message => l_other_message
9863: , p_other_token_tbl => l_other_token_tbl
9864: , p_error_level => 3
9857: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
9858: , p_mesg_token_tbl => l_mesg_token_tbl
9859: , p_error_status => Error_Handler.G_STATUS_ERROR
9860: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
9861: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
9862: , p_other_message => l_other_message
9863: , p_other_token_tbl => l_other_token_tbl
9864: , p_error_level => 3
9865: , p_entity_index => I
9898: ENG_GLOBALS.Set_Current_Revision( p_current_revision => NULL);
9899:
9900: WHEN EXC_SEV_QUIT_OBJECT THEN
9901:
9902: Eco_Error_Handler.Log_Error
9903: ( p_revised_item_tbl => x_revised_item_tbl
9904: , p_rev_component_tbl => x_rev_component_tbl
9905: , p_ref_designator_tbl => x_ref_designator_tbl
9906: , p_sub_component_tbl => x_sub_component_tbl
9906: , p_sub_component_tbl => x_sub_component_tbl
9907: , p_rev_operation_tbl => x_rev_operation_tbl --L1
9908: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
9909: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl --L1
9910: , p_error_status => Error_Handler.G_STATUS_ERROR
9911: , p_error_scope => Error_Handler.G_SCOPE_ALL
9912: , p_error_level => Error_Handler.G_BO_LEVEL
9913: , p_other_message => l_other_message
9914: , p_other_status => Error_Handler.G_STATUS_ERROR
9907: , p_rev_operation_tbl => x_rev_operation_tbl --L1
9908: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
9909: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl --L1
9910: , p_error_status => Error_Handler.G_STATUS_ERROR
9911: , p_error_scope => Error_Handler.G_SCOPE_ALL
9912: , p_error_level => Error_Handler.G_BO_LEVEL
9913: , p_other_message => l_other_message
9914: , p_other_status => Error_Handler.G_STATUS_ERROR
9915: , p_other_token_tbl => l_other_token_tbl
9908: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
9909: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl --L1
9910: , p_error_status => Error_Handler.G_STATUS_ERROR
9911: , p_error_scope => Error_Handler.G_SCOPE_ALL
9912: , p_error_level => Error_Handler.G_BO_LEVEL
9913: , p_other_message => l_other_message
9914: , p_other_status => Error_Handler.G_STATUS_ERROR
9915: , p_other_token_tbl => l_other_token_tbl
9916: , x_eco_rec => l_eco_rec
9910: , p_error_status => Error_Handler.G_STATUS_ERROR
9911: , p_error_scope => Error_Handler.G_SCOPE_ALL
9912: , p_error_level => Error_Handler.G_BO_LEVEL
9913: , p_other_message => l_other_message
9914: , p_other_status => Error_Handler.G_STATUS_ERROR
9915: , p_other_token_tbl => l_other_token_tbl
9916: , x_eco_rec => l_eco_rec
9917: , x_eco_revision_tbl => l_eco_revision_tbl
9918: , x_revised_item_tbl => x_revised_item_tbl
9946: ENG_GLOBALS.Set_Current_Revision( p_current_revision => NULL);
9947:
9948: WHEN EXC_FAT_QUIT_BRANCH THEN
9949:
9950: Eco_Error_Handler.Log_Error
9951: ( p_revised_item_tbl => x_revised_item_tbl
9952: , p_rev_component_tbl => x_rev_component_tbl
9953: , p_ref_designator_tbl => x_ref_designator_tbl
9954: , p_sub_component_tbl => x_sub_component_tbl
9955: , p_rev_operation_tbl => x_rev_operation_tbl --L1
9956: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
9957: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
9958: , p_mesg_token_tbl => l_mesg_token_tbl
9959: , p_error_status => Error_Handler.G_STATUS_FATAL
9960: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
9961: , p_other_status => Error_Handler.G_STATUS_FATAL
9962: , p_other_message => l_other_message
9963: , p_other_token_tbl => l_other_token_tbl
9956: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
9957: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
9958: , p_mesg_token_tbl => l_mesg_token_tbl
9959: , p_error_status => Error_Handler.G_STATUS_FATAL
9960: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
9961: , p_other_status => Error_Handler.G_STATUS_FATAL
9962: , p_other_message => l_other_message
9963: , p_other_token_tbl => l_other_token_tbl
9964: , p_error_level => 3
9957: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
9958: , p_mesg_token_tbl => l_mesg_token_tbl
9959: , p_error_status => Error_Handler.G_STATUS_FATAL
9960: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
9961: , p_other_status => Error_Handler.G_STATUS_FATAL
9962: , p_other_message => l_other_message
9963: , p_other_token_tbl => l_other_token_tbl
9964: , p_error_level => 3
9965: , p_entity_index => I
9975: );
9976:
9977: l_process_children := FALSE;
9978:
9979: x_return_status := Error_Handler.G_STATUS_FATAL;
9980: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
9981: --x_revised_item_tbl := l_revised_item_tbl;
9982: --x_rev_component_tbl := l_rev_component_tbl;
9983: --x_ref_designator_tbl := l_ref_designator_tbl;
9994: ENG_GLOBALS.Set_Current_Revision( p_current_revision => NULL);
9995:
9996: WHEN EXC_FAT_QUIT_OBJECT THEN
9997:
9998: Eco_Error_Handler.Log_Error
9999: ( p_revised_item_tbl => x_revised_item_tbl
10000: , p_rev_component_tbl => x_rev_component_tbl
10001: , p_ref_designator_tbl => x_ref_designator_tbl
10002: , p_sub_component_tbl => x_sub_component_tbl
10003: , p_rev_operation_tbl => x_rev_operation_tbl --L1
10004: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
10005: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
10006: , p_mesg_token_tbl => l_mesg_token_tbl
10007: , p_error_status => Error_Handler.G_STATUS_FATAL
10008: , p_error_scope => Error_Handler.G_SCOPE_ALL
10009: , p_other_status => Error_Handler.G_STATUS_FATAL
10010: , p_other_message => l_other_message
10011: , p_other_token_tbl => l_other_token_tbl
10004: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
10005: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
10006: , p_mesg_token_tbl => l_mesg_token_tbl
10007: , p_error_status => Error_Handler.G_STATUS_FATAL
10008: , p_error_scope => Error_Handler.G_SCOPE_ALL
10009: , p_other_status => Error_Handler.G_STATUS_FATAL
10010: , p_other_message => l_other_message
10011: , p_other_token_tbl => l_other_token_tbl
10012: , p_error_level => 3
10005: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
10006: , p_mesg_token_tbl => l_mesg_token_tbl
10007: , p_error_status => Error_Handler.G_STATUS_FATAL
10008: , p_error_scope => Error_Handler.G_SCOPE_ALL
10009: , p_other_status => Error_Handler.G_STATUS_FATAL
10010: , p_other_message => l_other_message
10011: , p_other_token_tbl => l_other_token_tbl
10012: , p_error_level => 3
10013: , p_entity_index => I
10041: l_return_status := 'Q';
10042:
10043: WHEN EXC_UNEXP_SKIP_OBJECT THEN
10044:
10045: Eco_Error_Handler.Log_Error
10046: ( p_revised_item_tbl => x_revised_item_tbl
10047: , p_rev_component_tbl => x_rev_component_tbl
10048: , p_ref_designator_tbl => x_ref_designator_tbl
10049: , p_sub_component_tbl => x_sub_component_tbl
10050: , p_rev_operation_tbl => x_rev_operation_tbl --L1
10051: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
10052: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
10053: , p_mesg_token_tbl => l_mesg_token_tbl
10054: , p_error_status => Error_Handler.G_STATUS_UNEXPECTED
10055: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
10056: , p_other_message => l_other_message
10057: , p_other_token_tbl => l_other_token_tbl
10058: , p_error_level => 3
10051: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
10052: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
10053: , p_mesg_token_tbl => l_mesg_token_tbl
10054: , p_error_status => Error_Handler.G_STATUS_UNEXPECTED
10055: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
10056: , p_other_message => l_other_message
10057: , p_other_token_tbl => l_other_token_tbl
10058: , p_error_level => 3
10059: , x_ECO_rec => l_ECO_rec
10104: --
10105: -- Modified by MK on 11/30/00 Moved eco for routing procedure before BOMs.
10106: --
10107:
10108: -- IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Processing Rev Op children of Revised item . . . ' || l_revised_item_rec.revised_item_name); END IF;
10109:
10110: Rev_Operation_Sequences
10111: ( p_validation_level => p_validation_level
10112: , p_change_notice => l_revised_item_rec.ECO_Name
10137: -- Process resource that are orphans
10138: -- (without immediate revised component parents) but are
10139: -- indirect children of this item
10140:
10141: -- IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Processing Rev Op Res children of Revised item . . . ' || l_revised_item_rec.revised_item_name); END IF;
10142:
10143:
10144: Rev_Operation_Resources
10145: ( p_validation_level => p_validation_level
10166: -- Process substitute resources that are orphans
10167: -- (without immediate revised component parents) but are
10168: -- indirect children of this item
10169:
10170: -- IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Processing Rev Sub Op Res children of Revised item . . . ' || l_revised_item_rec.revised_item_name); END IF;
10171:
10172:
10173: Rev_Sub_Operation_Resources
10174: ( p_validation_level => p_validation_level
10195:
10196: -- Process Revised Components that are direct children of this item
10197:
10198: IF Bom_Globals.Get_Debug = 'Y' THEN
10199: Error_Handler.Write_Debug('***********************************************************') ;
10200: Error_Handler.Write_Debug('Now processing direct children for the Rev Item '
10201: || l_revised_item_rec.revised_item_name || '. . .' );
10202: Error_Handler.Write_Debug('Processing Rev Comp as children of Revised item ' || l_revised_item_rec.revised_item_name);
10203: END IF;
10196: -- Process Revised Components that are direct children of this item
10197:
10198: IF Bom_Globals.Get_Debug = 'Y' THEN
10199: Error_Handler.Write_Debug('***********************************************************') ;
10200: Error_Handler.Write_Debug('Now processing direct children for the Rev Item '
10201: || l_revised_item_rec.revised_item_name || '. . .' );
10202: Error_Handler.Write_Debug('Processing Rev Comp as children of Revised item ' || l_revised_item_rec.revised_item_name);
10203: END IF;
10204:
10198: IF Bom_Globals.Get_Debug = 'Y' THEN
10199: Error_Handler.Write_Debug('***********************************************************') ;
10200: Error_Handler.Write_Debug('Now processing direct children for the Rev Item '
10201: || l_revised_item_rec.revised_item_name || '. . .' );
10202: Error_Handler.Write_Debug('Processing Rev Comp as children of Revised item ' || l_revised_item_rec.revised_item_name);
10203: END IF;
10204:
10205: Rev_Comps
10206: ( p_validation_level => p_validation_level
10222: , x_return_status => l_return_status
10223: , x_bill_sequence_id => l_rev_item_unexp_rec.bill_sequence_id
10224: );
10225:
10226: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rev_Comps return status ' || l_return_status); END IF;
10227:
10228: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
10229: THEN
10230:
10228: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
10229: THEN
10230:
10231: IF Bom_Globals.Get_Debug = 'Y' THEN
10232: Error_Handler.Write_Debug('Rev_Comps returned in Rev_Items . . .BO Status: ' || l_return_status);
10233: END IF;
10234:
10235: l_bo_return_status := l_return_status;
10236: END IF;
10239: -- (without immediate revised component parents) but are
10240: -- indirect children of this item
10241:
10242: IF Bom_Globals.Get_Debug = 'Y' THEN
10243: Error_Handler.Write_Debug('***********************************************************') ;
10244: Error_Handler.Write_Debug('Processing Ref Desgs as children of Revised item ' || l_revised_item_rec.revised_item_name);
10245: END IF;
10246:
10247:
10240: -- indirect children of this item
10241:
10242: IF Bom_Globals.Get_Debug = 'Y' THEN
10243: Error_Handler.Write_Debug('***********************************************************') ;
10244: Error_Handler.Write_Debug('Processing Ref Desgs as children of Revised item ' || l_revised_item_rec.revised_item_name);
10245: END IF;
10246:
10247:
10248: Ref_Desgs
10272: l_bo_return_status := l_return_status;
10273: END IF;
10274:
10275: IF Bom_Globals.Get_Debug = 'Y' THEN
10276: Error_Handler.Write_Debug('***********************************************************') ;
10277: Error_Handler.Write_Debug('Processing Sub Comps children of Revised item ' || l_revised_item_rec.revised_item_name);
10278: END IF;
10279:
10280: Sub_Comps
10273: END IF;
10274:
10275: IF Bom_Globals.Get_Debug = 'Y' THEN
10276: Error_Handler.Write_Debug('***********************************************************') ;
10277: Error_Handler.Write_Debug('Processing Sub Comps children of Revised item ' || l_revised_item_rec.revised_item_name);
10278: END IF;
10279:
10280: Sub_Comps
10281: ( p_validation_level => p_validation_level
10325: , x_sub_component_tbl IN OUT NOCOPY BOM_BO_PUB.Sub_Component_Tbl_Type
10326: , x_rev_operation_tbl IN OUT NOCOPY Bom_Rtg_Pub.Rev_Operation_Tbl_Type --L1
10327: , x_rev_op_resource_tbl IN OUT NOCOPY Bom_Rtg_Pub.Rev_Op_Resource_Tbl_Type --L1
10328: , x_rev_sub_resource_tbl IN OUT NOCOPY Bom_Rtg_Pub.Rev_Sub_Resource_Tbl_Type--L1
10329: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
10330: , x_return_status OUT NOCOPY VARCHAR2
10331: , x_disable_revision OUT NOCOPY NUMBER --Bug no:3034642
10332: )
10333: IS
10330: , x_return_status OUT NOCOPY VARCHAR2
10331: , x_disable_revision OUT NOCOPY NUMBER --Bug no:3034642
10332: )
10333: IS
10334: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
10335: l_other_token_tbl Error_Handler.Token_Tbl_Type;
10336: l_other_message VARCHAR2(2000);
10337: l_err_text VARCHAR2(2000);
10338: l_valid BOOLEAN := TRUE;
10331: , x_disable_revision OUT NOCOPY NUMBER --Bug no:3034642
10332: )
10333: IS
10334: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
10335: l_other_token_tbl Error_Handler.Token_Tbl_Type;
10336: l_other_message VARCHAR2(2000);
10337: l_err_text VARCHAR2(2000);
10338: l_valid BOOLEAN := TRUE;
10339: l_eco_parent_exists BOOLEAN := FALSE;
10355: --l_rev_operation_tbl Bom_Rtg_Pub.Rev_Operation_Tbl_Type := p_rev_operation_tbl; --L1
10356: --l_rev_op_resource_tbl Bom_Rtg_Pub.Rev_Op_Resource_Tbl_Type :=p_rev_op_resource_tbl; --L1
10357: --l_rev_sub_resource_tbl Bom_Rtg_Pub.Rev_Sub_Resource_Tbl_Type :=p_rev_sub_resource_tbl; --L1
10358: l_return_value NUMBER;
10359: l_Token_Tbl Error_Handler.Token_Tbl_Type;
10360:
10361: l_rev_comp_flag VARCHAR2(1);
10362:
10363: l_process_children BOOLEAN := TRUE;
10433: -- Process Flow Step 2: Check if record has not yet been processed and
10434: -- that it is the child of the parent that called this procedure
10435: --
10436:
10437: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Processing Revised Item . . . ' || l_revised_item_rec.revised_item_name); END IF;
10438:
10439: IF --(l_revised_item_rec.return_status IS NULL OR
10440: --l_revised_item_rec.return_status = FND_API.G_MISS_CHAR)
10441: --AND
10452:
10453: -- Check if transaction_type is valid
10454: --
10455:
10456: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check transaction_type validity'); END IF;
10457: ENG_GLOBALS.Transaction_Type_Validity
10458: ( p_transaction_type => l_revised_item_rec.transaction_type
10459: , p_entity => 'Rev_Items'
10460: , p_entity_id => l_revised_item_rec.revised_item_name
10463: );
10464:
10465: IF NOT l_valid
10466: THEN
10467: l_return_status := Error_Handler.G_STATUS_ERROR;
10468: RAISE EXC_SEV_QUIT_RECORD;
10469: END IF;
10470:
10471: -- Process Flow step 4: Convert user unique index to unique index
10470:
10471: -- Process Flow step 4: Convert user unique index to unique index
10472: --
10473:
10474: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Converting user unique index to unique index'); END IF;
10475: ENG_Val_To_Id.Revised_Item_UUI_To_UI
10476: ( p_revised_item_rec => l_revised_item_rec
10477: , p_rev_item_unexp_rec => l_rev_item_unexp_rec
10478: , x_rev_item_unexp_rec => l_rev_item_unexp_rec
10479: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
10480: , x_Return_Status => l_return_status
10481: );
10482:
10483: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
10484:
10485: IF l_return_status = Error_Handler.G_STATUS_ERROR
10486: THEN
10487: l_other_message := 'ENG_RIT_UUI_SEV_ERROR';
10481: );
10482:
10483: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
10484:
10485: IF l_return_status = Error_Handler.G_STATUS_ERROR
10486: THEN
10487: l_other_message := 'ENG_RIT_UUI_SEV_ERROR';
10488: l_other_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
10489: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
10487: l_other_message := 'ENG_RIT_UUI_SEV_ERROR';
10488: l_other_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
10489: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
10490: RAISE EXC_SEV_QUIT_BRANCH;
10491: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
10492: THEN
10493: l_other_message := 'ENG_RIT_UUI_UNEXP_SKIP';
10494: l_other_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
10495: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
10504: -- Process Flow step 5: Verify ECO's existence in database, if
10505: -- the revised item is being created on an ECO and the business
10506: -- object does not carry the ECO header
10507:
10508: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check parent existence'); END IF;
10509:
10510: IF l_revised_item_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE
10511: AND
10512: NOT l_eco_parent_exists
10522: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
10523: , x_return_status => l_Return_Status
10524: );
10525:
10526: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
10527:
10528: IF l_return_status = Error_Handler.G_STATUS_ERROR
10529: THEN
10530: l_other_message := 'ENG_PARENTECO_NOT_EXIST';
10524: );
10525:
10526: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
10527:
10528: IF l_return_status = Error_Handler.G_STATUS_ERROR
10529: THEN
10530: l_other_message := 'ENG_PARENTECO_NOT_EXIST';
10531: l_other_token_tbl(1).token_name := 'ECO_NAME';
10532: l_other_token_tbl(1).token_value := l_revised_item_rec.ECO_Name;
10532: l_other_token_tbl(1).token_value := l_revised_item_rec.ECO_Name;
10533: l_other_token_tbl(2).token_name := 'ORGANIZATION_CODE';
10534: l_other_token_tbl(2).token_value := l_revised_item_rec.organization_code;
10535: RAISE EXC_SEV_QUIT_OBJECT;
10536: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
10537: THEN
10538: l_other_message := 'ENG_RIT_LIN_UNEXP_SKIP';
10539: l_other_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
10540: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
10557: -- Added for bug 5756870
10558: -- The update case when the CO is in scheduled status is handled saperately
10559: IF (l_revised_item_rec.Transaction_Type <> ENG_GLOBALS.G_OPR_UPDATE )
10560: AND (l_chk_co_sch = 4) THEN
10561: l_return_status := error_handler.g_status_error;
10562: error_handler.add_error_token (p_message_name => 'ENG_REV_ITM_NOT_UPD',
10563: p_mesg_token_tbl => l_mesg_token_tbl,
10564: x_mesg_token_tbl => l_mesg_token_tbl,
10565: p_token_tbl => l_token_tbl
10558: -- The update case when the CO is in scheduled status is handled saperately
10559: IF (l_revised_item_rec.Transaction_Type <> ENG_GLOBALS.G_OPR_UPDATE )
10560: AND (l_chk_co_sch = 4) THEN
10561: l_return_status := error_handler.g_status_error;
10562: error_handler.add_error_token (p_message_name => 'ENG_REV_ITM_NOT_UPD',
10563: p_mesg_token_tbl => l_mesg_token_tbl,
10564: x_mesg_token_tbl => l_mesg_token_tbl,
10565: p_token_tbl => l_token_tbl
10566: );
10582: END IF;
10583: -- Process Flow step 5: Verify Revised Item's existence
10584: --
10585:
10586: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check existence'); END IF;
10587: ENG_Validate_Revised_Item.Check_Existence
10588: ( p_revised_item_rec => l_revised_item_rec
10589: , p_rev_item_unexp_rec => l_rev_item_unexp_rec
10590: , x_old_revised_item_rec => l_old_revised_item_rec
10593: , x_return_status => l_Return_Status
10594: , x_disable_revision => x_disable_revision --BUG 3034642
10595: );
10596:
10597: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
10598:
10599: IF l_return_status = Error_Handler.G_STATUS_ERROR
10600: THEN
10601: l_other_message := 'ENG_RIT_EXS_SEV_ERROR';
10595: );
10596:
10597: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
10598:
10599: IF l_return_status = Error_Handler.G_STATUS_ERROR
10600: THEN
10601: l_other_message := 'ENG_RIT_EXS_SEV_ERROR';
10602: l_other_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
10603: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
10603: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
10604: l_other_token_tbl(2).token_name := 'ECO_NAME';
10605: l_other_token_tbl(2).token_value := l_revised_item_rec.eco_name;
10606: RAISE EXC_SEV_QUIT_BRANCH;
10607: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
10608: THEN
10609: l_other_message := 'ENG_RIT_EXS_UNEXP_SKIP';
10610: l_other_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
10611: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
10645: , p_check_scheduled_status => TRUE -- bug 5756870
10646: );
10647: END IF;
10648:
10649: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
10650:
10651: IF l_return_status = Error_Handler.G_STATUS_ERROR
10652: THEN
10653: l_other_message := 'ENG_RIT_ECOACC_FAT_FATAL';
10647: END IF;
10648:
10649: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
10650:
10651: IF l_return_status = Error_Handler.G_STATUS_ERROR
10652: THEN
10653: l_other_message := 'ENG_RIT_ECOACC_FAT_FATAL';
10654: l_other_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
10655: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
10654: l_other_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
10655: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
10656: l_return_status := 'F';
10657: RAISE EXC_FAT_QUIT_OBJECT;
10658: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
10659: THEN
10660: l_other_message := 'ENG_RIT_ECOACC_UNEXP_SKIP';
10661: l_other_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
10662: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
10668: --
10669: -- Bug No: 5246049
10670: -- Moved validation outside 'IF NOT l_eco_parent_exists' as validation should happen in all cases
10671:
10672: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check access'); END IF;
10673: IF (l_revised_item_rec.Transaction_Type = ENG_GLOBALS.G_OPR_UPDATE ) THEN
10674: ENG_Validate_Revised_Item.Check_Access
10675: ( p_change_notice => l_revised_item_rec.ECO_Name
10676: , p_organization_id => l_rev_item_unexp_rec.organization_id
10703:
10704: END IF;
10705:
10706:
10707: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
10708:
10709: IF l_return_status = Error_Handler.G_STATUS_ERROR
10710: THEN
10711: l_other_message := 'ENG_RIT_ACCESS_FAT_FATAL';
10705:
10706:
10707: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
10708:
10709: IF l_return_status = Error_Handler.G_STATUS_ERROR
10710: THEN
10711: l_other_message := 'ENG_RIT_ACCESS_FAT_FATAL';
10712: l_other_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
10713: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
10712: l_other_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
10713: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
10714: l_return_status := 'F';
10715: RAISE EXC_FAT_QUIT_BRANCH;
10716: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
10717: THEN
10718: l_other_message := 'ENG_RIT_ACCESS_UNEXP_SKIP';
10719: l_other_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
10720: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
10729: -- (for future release, flow routing is not supported in current release
10730: -- Added by MK on 08/24/2000
10731: --
10732: /* Comment out for current release
10733: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check Non-Flow Routing'); END IF;
10734:
10735: Bom_Validate_Rtg_Header.Check_flow_routing_operability ;
10736: ( p_assembly_item_name => l_revised_item_rec.revised_item_name
10737: , p_cfm_routing_flag => l_rev_item_unexp_rec.cfm_routing_flag
10740: , x_mesg_token_tbl => l_mesg_token_tbl
10741: , x_return_status => l_return_status
10742: );
10743:
10744: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
10745:
10746:
10747: IF l_return_status = Error_Handler.G_STATUS_ERROR
10748: THEN
10743:
10744: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
10745:
10746:
10747: IF l_return_status = Error_Handler.G_STATUS_ERROR
10748: THEN
10749: l_other_message := 'BOM_RTG_FRACC_ERROR';
10750: l_other_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
10751: l_other_token_tbl(1).token_value :=
10750: l_other_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
10751: l_other_token_tbl(1).token_value :=
10752: l_revised_item_rec.revised_item_name;
10753: RAISE EXC_SEV_QUIT_BRANCH;
10754: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
10755: THEN
10756: l_other_message := 'BOM_RTG_FRACC_UNEXP_SKIP';
10757: l_other_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
10758: l_other_token_tbl(1).token_value :=
10765:
10766: -- Process Flow step 9: Value to Id conversions
10767: --
10768:
10769: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Value-id conversions'); END IF;
10770: ENG_Val_To_Id.Revised_Item_VID
10771: ( x_Return_Status => l_return_status
10772: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
10773: , p_rev_item_unexp_Rec => l_rev_item_unexp_rec
10774: , x_rev_item_unexp_Rec => l_rev_item_unexp_rec
10775: , p_revised_item_Rec => l_revised_item_rec
10776: );
10777:
10778: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
10779:
10780: IF l_return_status = Error_Handler.G_STATUS_ERROR
10781: THEN
10782: IF l_revised_item_rec.transaction_type = 'CREATE'
10776: );
10777:
10778: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
10779:
10780: IF l_return_status = Error_Handler.G_STATUS_ERROR
10781: THEN
10782: IF l_revised_item_rec.transaction_type = 'CREATE'
10783: THEN
10784: l_other_message := 'ENG_RIT_VID_CSEV_SKIP';
10787: RAISE EXC_SEV_SKIP_BRANCH;
10788: ELSE
10789: RAISE EXC_SEV_QUIT_RECORD;
10790: END IF;
10791: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
10792: THEN
10793: RAISE EXC_UNEXP_SKIP_OBJECT;
10794: ELSIF l_return_status ='S' AND
10795: l_Mesg_Token_Tbl.COUNT <>0
10793: RAISE EXC_UNEXP_SKIP_OBJECT;
10794: ELSIF l_return_status ='S' AND
10795: l_Mesg_Token_Tbl.COUNT <>0
10796: THEN
10797: Eco_Error_Handler.Log_Error
10798: ( p_revised_item_tbl => x_revised_item_tbl
10799: , p_rev_component_tbl => x_rev_component_tbl
10800: , p_ref_designator_tbl => x_ref_designator_tbl
10801: , p_sub_component_tbl => x_sub_component_tbl
10831: , p_revised_item_Rec => l_revised_item_rec
10832: );
10833:
10834:
10835: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
10836:
10837: IF l_return_status = Error_Handler.G_STATUS_ERROR
10838: THEN
10839:
10833:
10834:
10835: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
10836:
10837: IF l_return_status = Error_Handler.G_STATUS_ERROR
10838: THEN
10839:
10840: l_other_message := 'ENG_RIT_SCHEDULE_ACCESS_FATAL';
10841: l_other_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
10841: l_other_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
10842: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
10843: l_return_status := 'F';
10844: RAISE EXC_FAT_QUIT_BRANCH;
10845: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
10846: THEN
10847:
10848: l_other_message := 'ENG_RIT_SCHEDULE_ACCESS_UNEXP';
10849: l_other_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
10871: -- Process Flow step 10: Attribute Validation for CREATE and UPDATE
10872: --
10873:
10874:
10875: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Attribute Validation'); END IF;
10876: IF l_revised_item_rec.Transaction_Type IN
10877: (ENG_GLOBALS.G_OPR_CREATE, ENG_GLOBALS.G_OPR_UPDATE)
10878: THEN
10879: ENG_Validate_Revised_Item.Check_Attributes
10884: , p_old_revised_item_rec => l_old_revised_item_rec
10885: , p_old_rev_item_unexp_rec => l_old_rev_item_unexp_rec
10886: );
10887:
10888: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
10889:
10890: IF l_return_status = Error_Handler.G_STATUS_ERROR
10891: THEN
10892: IF l_revised_item_rec.transaction_type = 'CREATE'
10886: );
10887:
10888: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
10889:
10890: IF l_return_status = Error_Handler.G_STATUS_ERROR
10891: THEN
10892: IF l_revised_item_rec.transaction_type = 'CREATE'
10893: THEN
10894: l_other_message := 'ENG_RIT_ATTVAL_CSEV_SKIP';
10897: RAISE EXC_SEV_SKIP_BRANCH;
10898: ELSE
10899: RAISE EXC_SEV_QUIT_RECORD;
10900: END IF;
10901: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
10902: THEN
10903: l_other_message := 'ENG_RIT_ATTVAL_UNEXP_SKIP';
10904: l_other_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
10905: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
10906: RAISE EXC_UNEXP_SKIP_OBJECT;
10907: ELSIF l_return_status ='S' AND
10908: l_Mesg_Token_Tbl.COUNT <>0
10909: THEN
10910: Eco_Error_Handler.Log_Error
10911: ( p_revised_item_tbl => x_revised_item_tbl
10912: , p_rev_component_tbl => x_rev_component_tbl
10913: , p_ref_designator_tbl => x_ref_designator_tbl
10914: , p_sub_component_tbl => x_sub_component_tbl
10938:
10939: -- Process flow step 11 - Populate NULL columns for Update and
10940: -- Delete.
10941:
10942: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Populating NULL Columns'); END IF;
10943: Eng_Default_Revised_Item.Populate_NULL_Columns
10944: ( p_revised_item_rec => l_revised_item_rec
10945: , p_old_revised_item_rec => l_old_revised_item_rec
10946: , p_rev_item_unexp_rec => l_rev_item_unexp_rec
10953:
10954: -- Process Flow step 12: Default missing values for Operation CREATE
10955: --
10956:
10957: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Attribute Defaulting'); END IF;
10958: Eng_Default_Revised_Item.Attribute_Defaulting
10959: ( p_revised_item_rec => l_revised_item_rec
10960: , p_rev_item_unexp_rec => l_rev_item_unexp_rec
10961: , x_revised_item_rec => l_revised_item_rec
10963: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
10964: , x_return_status => l_return_status
10965: );
10966:
10967: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
10968:
10969: IF l_return_status = Error_Handler.G_STATUS_ERROR
10970: THEN
10971: l_other_message := 'ENG_RIT_ATTDEF_SEV_SKIP';
10965: );
10966:
10967: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
10968:
10969: IF l_return_status = Error_Handler.G_STATUS_ERROR
10970: THEN
10971: l_other_message := 'ENG_RIT_ATTDEF_SEV_SKIP';
10972: l_other_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
10973: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
10971: l_other_message := 'ENG_RIT_ATTDEF_SEV_SKIP';
10972: l_other_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
10973: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
10974: RAISE EXC_SEV_SKIP_BRANCH;
10975: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
10976: THEN
10977: l_other_message := 'ENG_RIT_ATTDEF_UNEXP_SKIP';
10978: l_other_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
10979: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
10980: RAISE EXC_UNEXP_SKIP_OBJECT;
10981: ELSIF l_return_status ='S' AND
10982: l_Mesg_Token_Tbl.COUNT <>0
10983: THEN
10984: Eco_Error_Handler.Log_Error
10985: ( p_revised_item_tbl => x_revised_item_tbl
10986: , p_rev_component_tbl => x_rev_component_tbl
10987: , p_ref_designator_tbl => x_ref_designator_tbl
10988: , p_sub_component_tbl => x_sub_component_tbl
11008:
11009: -- Process Flow step 13 - Conditionally required attributes check
11010: --
11011:
11012: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Conditionally required attributes check'); END IF;
11013:
11014: --
11015: -- Put conditionally required check procedure here
11016: --
11014: --
11015: -- Put conditionally required check procedure here
11016: --
11017:
11018: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
11019:
11020: ENG_Validate_Revised_Item.Check_Required
11021: ( x_return_status => l_return_status
11022: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
11022: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
11023: , p_revised_item_rec => l_revised_item_rec
11024: );
11025:
11026: IF l_return_status = Error_Handler.G_STATUS_ERROR
11027: THEN
11028: IF l_revised_item_rec.transaction_type = 'CREATE'
11029: THEN
11030: l_other_message := 'ENG_RIT_CONREQ_CSEV_SKIP';
11033: RAISE EXC_SEV_SKIP_BRANCH;
11034: ELSE
11035: RAISE EXC_SEV_QUIT_RECORD;
11036: END IF;
11037: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
11038: THEN
11039: l_other_message := 'ENG_RIT_CONREQ_UNEXP_SKIP';
11040: l_other_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
11041: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
11042: RAISE EXC_UNEXP_SKIP_OBJECT;
11043: ELSIF l_return_status ='S' AND
11044: l_Mesg_Token_Tbl.COUNT <>0
11045: THEN
11046: Eco_Error_Handler.Log_Error
11047: ( p_revised_item_tbl => x_revised_item_tbl
11048: , p_rev_component_tbl => x_rev_component_tbl
11049: , p_ref_designator_tbl => x_ref_designator_tbl
11050: , p_sub_component_tbl => x_sub_component_tbl
11069:
11070: -- Process Flow step 14: Entity defaulting for CREATE and UPDATE
11071: --
11072:
11073: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Entity defaulting'); END IF;
11074: IF l_revised_item_rec.Transaction_Type IN
11075: (ENG_GLOBALS.G_OPR_CREATE, ENG_GLOBALS.G_OPR_UPDATE)
11076: THEN
11077: ENG_Default_Revised_Item.Entity_Defaulting
11084: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
11085: , x_return_status => l_return_status
11086: );
11087:
11088: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
11089:
11090: IF l_return_status = Error_Handler.G_STATUS_ERROR
11091: THEN
11092: IF l_revised_item_rec.transaction_type = 'CREATE'
11086: );
11087:
11088: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
11089:
11090: IF l_return_status = Error_Handler.G_STATUS_ERROR
11091: THEN
11092: IF l_revised_item_rec.transaction_type = 'CREATE'
11093: THEN
11094: l_other_message := 'ENG_RIT_ENTDEF_CSEV_SKIP';
11097: RAISE EXC_SEV_SKIP_BRANCH;
11098: ELSE
11099: RAISE EXC_SEV_QUIT_RECORD;
11100: END IF;
11101: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
11102: THEN
11103: l_other_message := 'ENG_RIT_ENTDEF_UNEXP_SKIP';
11104: l_other_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
11105: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
11106: RAISE EXC_UNEXP_SKIP_OBJECT;
11107: ELSIF l_return_status ='S' AND
11108: l_Mesg_Token_Tbl.COUNT <>0
11109: THEN
11110: Eco_Error_Handler.Log_Error
11111: ( p_revised_item_tbl => x_revised_item_tbl
11112: , p_rev_component_tbl => x_rev_component_tbl
11113: , p_ref_designator_tbl => x_ref_designator_tbl
11114: , p_sub_component_tbl => x_sub_component_tbl
11134:
11135: -- Process Flow step 15 - Entity Level Validation
11136: --
11137:
11138: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Entity validation'); END IF;
11139:
11140: IF l_revised_item_rec.transaction_type = 'DELETE'
11141: THEN
11142: Eng_Validate_Revised_Item.Check_Entity_Delete
11155: , x_return_status => l_Return_Status
11156: );
11157: END IF;
11158:
11159: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
11160:
11161: IF l_return_status = Error_Handler.G_STATUS_ERROR
11162: THEN
11163: IF l_revised_item_rec.transaction_type = 'CREATE'
11157: END IF;
11158:
11159: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
11160:
11161: IF l_return_status = Error_Handler.G_STATUS_ERROR
11162: THEN
11163: IF l_revised_item_rec.transaction_type = 'CREATE'
11164: THEN
11165: l_other_message := 'ENG_RIT_ENTVAL_CSEV_SKIP';
11168: RAISE EXC_SEV_SKIP_BRANCH;
11169: ELSE
11170: RAISE EXC_SEV_QUIT_RECORD;
11171: END IF;
11172: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
11173: THEN
11174: l_other_message := 'ENG_RIT_ENTVAL_UNEXP_SKIP';
11175: l_other_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
11176: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
11177: RAISE EXC_UNEXP_SKIP_OBJECT;
11178: ELSIF l_return_status ='S' AND
11179: l_Mesg_Token_Tbl.COUNT <>0
11180: THEN
11181: Eco_Error_Handler.Log_Error
11182: ( p_revised_item_tbl => x_revised_item_tbl
11183: , p_rev_component_tbl => x_rev_component_tbl
11184: , p_ref_designator_tbl => x_ref_designator_tbl
11185: , p_sub_component_tbl => x_sub_component_tbl
11225: -- Fixed Bug 12870702 end; */
11226: -- Process Flow step 16 : Database Writes
11227: --
11228:
11229: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Writing to the database'); END IF;
11230: ENG_Revised_Item_Util.Perform_Writes
11231: ( p_revised_item_rec => l_revised_item_rec
11232: , p_rev_item_unexp_rec => l_rev_item_unexp_rec
11233: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
11233: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
11234: , x_return_status => l_return_status
11235: );
11236:
11237: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
11238:
11239: IF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
11240: THEN
11241: l_other_message := 'ENG_RIT_WRITES_UNEXP_SKIP';
11235: );
11236:
11237: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
11238:
11239: IF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
11240: THEN
11241: l_other_message := 'ENG_RIT_WRITES_UNEXP_SKIP';
11242: l_other_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
11243: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
11244: RAISE EXC_UNEXP_SKIP_OBJECT;
11245: ELSIF l_return_status ='S' AND
11246: l_Mesg_Token_Tbl.COUNT <>0
11247: THEN
11248: Eco_Error_Handler.Log_Error
11249: ( p_revised_item_tbl => x_revised_item_tbl
11250: , p_rev_component_tbl => x_rev_component_tbl
11251: , p_ref_designator_tbl => x_ref_designator_tbl
11252: , p_sub_component_tbl => x_sub_component_tbl
11269: );
11270: END IF;
11271:
11272: IF Bom_Globals.Get_Debug = 'Y' THEN
11273: Error_Handler.Write_Debug('Writing to the database for Rev Item is completed with '||l_return_status );
11274: END IF;
11275:
11276: END IF; -- END IF statement that checks RETURN STATUS
11277:
11297: EXCEPTION
11298:
11299: WHEN EXC_SEV_QUIT_RECORD THEN
11300:
11301: Eco_Error_Handler.Log_Error
11302: ( p_revised_item_tbl => x_revised_item_tbl
11303: , p_rev_component_tbl => x_rev_component_tbl
11304: , p_ref_designator_tbl => x_ref_designator_tbl
11305: , p_sub_component_tbl => x_sub_component_tbl
11307: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
11308: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl --L1
11309: , p_mesg_token_tbl => l_mesg_token_tbl
11310: , p_error_status => FND_API.G_RET_STS_ERROR
11311: , p_error_scope => Error_Handler.G_SCOPE_RECORD
11312: , p_error_level => 3
11313: , p_entity_index => I
11314: , x_eco_rec => l_eco_rec
11315: , x_eco_revision_tbl => l_eco_revision_tbl
11346: ENG_GLOBALS.Set_Current_Revision( p_current_revision => NULL);
11347:
11348: WHEN EXC_SEV_QUIT_BRANCH THEN
11349:
11350: Eco_Error_Handler.Log_Error
11351: ( p_revised_item_tbl => x_revised_item_tbl
11352: , p_rev_component_tbl => x_rev_component_tbl
11353: , p_ref_designator_tbl => x_ref_designator_tbl
11354: , p_sub_component_tbl => x_sub_component_tbl
11355: , p_rev_operation_tbl => x_rev_operation_tbl --L1
11356: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
11357: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
11358: , p_mesg_token_tbl => l_mesg_token_tbl
11359: , p_error_status => Error_Handler.G_STATUS_ERROR
11360: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
11361: , p_other_status => Error_Handler.G_STATUS_ERROR
11362: , p_other_message => l_other_message
11363: , p_other_token_tbl => l_other_token_tbl
11356: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
11357: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
11358: , p_mesg_token_tbl => l_mesg_token_tbl
11359: , p_error_status => Error_Handler.G_STATUS_ERROR
11360: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
11361: , p_other_status => Error_Handler.G_STATUS_ERROR
11362: , p_other_message => l_other_message
11363: , p_other_token_tbl => l_other_token_tbl
11364: , p_error_level => 3
11357: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
11358: , p_mesg_token_tbl => l_mesg_token_tbl
11359: , p_error_status => Error_Handler.G_STATUS_ERROR
11360: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
11361: , p_other_status => Error_Handler.G_STATUS_ERROR
11362: , p_other_message => l_other_message
11363: , p_other_token_tbl => l_other_token_tbl
11364: , p_error_level => 3
11365: , p_entity_index => I
11398: ENG_GLOBALS.Set_Current_Revision( p_current_revision => NULL);
11399:
11400: WHEN EXC_SEV_SKIP_BRANCH THEN
11401:
11402: Eco_Error_Handler.Log_Error
11403: ( p_revised_item_tbl => x_revised_item_tbl
11404: , p_rev_component_tbl => x_rev_component_tbl
11405: , p_ref_designator_tbl => x_ref_designator_tbl
11406: , p_sub_component_tbl => x_sub_component_tbl
11407: , p_rev_operation_tbl => x_rev_operation_tbl --L1
11408: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
11409: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
11410: , p_mesg_token_tbl => l_mesg_token_tbl
11411: , p_error_status => Error_Handler.G_STATUS_ERROR
11412: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
11413: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
11414: , p_other_message => l_other_message
11415: , p_other_token_tbl => l_other_token_tbl
11408: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
11409: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
11410: , p_mesg_token_tbl => l_mesg_token_tbl
11411: , p_error_status => Error_Handler.G_STATUS_ERROR
11412: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
11413: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
11414: , p_other_message => l_other_message
11415: , p_other_token_tbl => l_other_token_tbl
11416: , p_error_level => 3
11409: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
11410: , p_mesg_token_tbl => l_mesg_token_tbl
11411: , p_error_status => Error_Handler.G_STATUS_ERROR
11412: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
11413: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
11414: , p_other_message => l_other_message
11415: , p_other_token_tbl => l_other_token_tbl
11416: , p_error_level => 3
11417: , p_entity_index => I
11450: ENG_GLOBALS.Set_Current_Revision( p_current_revision => NULL);
11451:
11452: WHEN EXC_SEV_QUIT_OBJECT THEN
11453:
11454: Eco_Error_Handler.Log_Error
11455: ( p_revised_item_tbl => x_revised_item_tbl
11456: , p_rev_component_tbl => x_rev_component_tbl
11457: , p_ref_designator_tbl => x_ref_designator_tbl
11458: , p_sub_component_tbl => x_sub_component_tbl
11458: , p_sub_component_tbl => x_sub_component_tbl
11459: , p_rev_operation_tbl => x_rev_operation_tbl --L1
11460: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
11461: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl --L1
11462: , p_error_status => Error_Handler.G_STATUS_ERROR
11463: , p_error_scope => Error_Handler.G_SCOPE_ALL
11464: , p_error_level => Error_Handler.G_BO_LEVEL
11465: , p_other_message => l_other_message
11466: , p_other_status => Error_Handler.G_STATUS_ERROR
11459: , p_rev_operation_tbl => x_rev_operation_tbl --L1
11460: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
11461: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl --L1
11462: , p_error_status => Error_Handler.G_STATUS_ERROR
11463: , p_error_scope => Error_Handler.G_SCOPE_ALL
11464: , p_error_level => Error_Handler.G_BO_LEVEL
11465: , p_other_message => l_other_message
11466: , p_other_status => Error_Handler.G_STATUS_ERROR
11467: , p_other_token_tbl => l_other_token_tbl
11460: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
11461: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl --L1
11462: , p_error_status => Error_Handler.G_STATUS_ERROR
11463: , p_error_scope => Error_Handler.G_SCOPE_ALL
11464: , p_error_level => Error_Handler.G_BO_LEVEL
11465: , p_other_message => l_other_message
11466: , p_other_status => Error_Handler.G_STATUS_ERROR
11467: , p_other_token_tbl => l_other_token_tbl
11468: , x_eco_rec => l_eco_rec
11462: , p_error_status => Error_Handler.G_STATUS_ERROR
11463: , p_error_scope => Error_Handler.G_SCOPE_ALL
11464: , p_error_level => Error_Handler.G_BO_LEVEL
11465: , p_other_message => l_other_message
11466: , p_other_status => Error_Handler.G_STATUS_ERROR
11467: , p_other_token_tbl => l_other_token_tbl
11468: , x_eco_rec => l_eco_rec
11469: , x_eco_revision_tbl => l_eco_revision_tbl
11470: , x_revised_item_tbl => x_revised_item_tbl
11498: ENG_GLOBALS.Set_Current_Revision( p_current_revision => NULL);
11499:
11500: WHEN EXC_FAT_QUIT_BRANCH THEN
11501:
11502: Eco_Error_Handler.Log_Error
11503: ( p_revised_item_tbl => x_revised_item_tbl
11504: , p_rev_component_tbl => x_rev_component_tbl
11505: , p_ref_designator_tbl => x_ref_designator_tbl
11506: , p_sub_component_tbl => x_sub_component_tbl
11507: , p_rev_operation_tbl => x_rev_operation_tbl --L1
11508: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
11509: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
11510: , p_mesg_token_tbl => l_mesg_token_tbl
11511: , p_error_status => Error_Handler.G_STATUS_FATAL
11512: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
11513: , p_other_status => Error_Handler.G_STATUS_FATAL
11514: , p_other_message => l_other_message
11515: , p_other_token_tbl => l_other_token_tbl
11508: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
11509: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
11510: , p_mesg_token_tbl => l_mesg_token_tbl
11511: , p_error_status => Error_Handler.G_STATUS_FATAL
11512: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
11513: , p_other_status => Error_Handler.G_STATUS_FATAL
11514: , p_other_message => l_other_message
11515: , p_other_token_tbl => l_other_token_tbl
11516: , p_error_level => 3
11509: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
11510: , p_mesg_token_tbl => l_mesg_token_tbl
11511: , p_error_status => Error_Handler.G_STATUS_FATAL
11512: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
11513: , p_other_status => Error_Handler.G_STATUS_FATAL
11514: , p_other_message => l_other_message
11515: , p_other_token_tbl => l_other_token_tbl
11516: , p_error_level => 3
11517: , p_entity_index => I
11527: );
11528:
11529: l_process_children := FALSE;
11530:
11531: x_return_status := Error_Handler.G_STATUS_FATAL;
11532: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
11533: --x_revised_item_tbl := l_revised_item_tbl;
11534: --x_rev_component_tbl := l_rev_component_tbl;
11535: --x_ref_designator_tbl := l_ref_designator_tbl;
11546: ENG_GLOBALS.Set_Current_Revision( p_current_revision => NULL);
11547:
11548: WHEN EXC_FAT_QUIT_OBJECT THEN
11549:
11550: Eco_Error_Handler.Log_Error
11551: ( p_revised_item_tbl => x_revised_item_tbl
11552: , p_rev_component_tbl => x_rev_component_tbl
11553: , p_ref_designator_tbl => x_ref_designator_tbl
11554: , p_sub_component_tbl => x_sub_component_tbl
11555: , p_rev_operation_tbl => x_rev_operation_tbl --L1
11556: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
11557: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
11558: , p_mesg_token_tbl => l_mesg_token_tbl
11559: , p_error_status => Error_Handler.G_STATUS_FATAL
11560: , p_error_scope => Error_Handler.G_SCOPE_ALL
11561: , p_other_status => Error_Handler.G_STATUS_FATAL
11562: , p_other_message => l_other_message
11563: , p_other_token_tbl => l_other_token_tbl
11556: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
11557: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
11558: , p_mesg_token_tbl => l_mesg_token_tbl
11559: , p_error_status => Error_Handler.G_STATUS_FATAL
11560: , p_error_scope => Error_Handler.G_SCOPE_ALL
11561: , p_other_status => Error_Handler.G_STATUS_FATAL
11562: , p_other_message => l_other_message
11563: , p_other_token_tbl => l_other_token_tbl
11564: , p_error_level => 3
11557: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
11558: , p_mesg_token_tbl => l_mesg_token_tbl
11559: , p_error_status => Error_Handler.G_STATUS_FATAL
11560: , p_error_scope => Error_Handler.G_SCOPE_ALL
11561: , p_other_status => Error_Handler.G_STATUS_FATAL
11562: , p_other_message => l_other_message
11563: , p_other_token_tbl => l_other_token_tbl
11564: , p_error_level => 3
11565: , p_entity_index => I
11593: l_return_status := 'Q';
11594:
11595: WHEN EXC_UNEXP_SKIP_OBJECT THEN
11596:
11597: Eco_Error_Handler.Log_Error
11598: ( p_revised_item_tbl => x_revised_item_tbl
11599: , p_rev_component_tbl => x_rev_component_tbl
11600: , p_ref_designator_tbl => x_ref_designator_tbl
11601: , p_sub_component_tbl => x_sub_component_tbl
11602: , p_rev_operation_tbl => x_rev_operation_tbl --L1
11603: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
11604: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
11605: , p_mesg_token_tbl => l_mesg_token_tbl
11606: , p_error_status => Error_Handler.G_STATUS_UNEXPECTED
11607: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
11608: , p_other_message => l_other_message
11609: , p_other_token_tbl => l_other_token_tbl
11610: , p_error_level => 3
11603: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
11604: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
11605: , p_mesg_token_tbl => l_mesg_token_tbl
11606: , p_error_status => Error_Handler.G_STATUS_UNEXPECTED
11607: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
11608: , p_other_message => l_other_message
11609: , p_other_token_tbl => l_other_token_tbl
11610: , p_error_level => 3
11611: , x_ECO_rec => l_ECO_rec
11656: --
11657: -- Modified by MK on 11/30/00 Moved eco for routing procedure before BOMs.
11658: --
11659:
11660: -- IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Processing Rev Op children of Revised item . . . ' || l_revised_item_rec.revised_item_name); END IF;
11661:
11662: Rev_Operation_Sequences
11663: ( p_validation_level => p_validation_level
11664: , p_change_notice => l_revised_item_rec.ECO_Name
11689: -- Process resource that are orphans
11690: -- (without immediate revised component parents) but are
11691: -- indirect children of this item
11692:
11693: -- IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Processing Rev Op Res children of Revised item . . . ' || l_revised_item_rec.revised_item_name); END IF;
11694:
11695:
11696: Rev_Operation_Resources
11697: ( p_validation_level => p_validation_level
11718: -- Process substitute resources that are orphans
11719: -- (without immediate revised component parents) but are
11720: -- indirect children of this item
11721:
11722: -- IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Processing Rev Sub Op Res children of Revised item . . . ' || l_revised_item_rec.revised_item_name); END IF;
11723:
11724:
11725: Rev_Sub_Operation_Resources
11726: ( p_validation_level => p_validation_level
11747:
11748: -- Process Revised Components that are direct children of this item
11749:
11750: IF Bom_Globals.Get_Debug = 'Y' THEN
11751: Error_Handler.Write_Debug('***********************************************************') ;
11752: Error_Handler.Write_Debug('Now processing direct children for the Rev Item '
11753: || l_revised_item_rec.revised_item_name || '. . .' );
11754: Error_Handler.Write_Debug('Processing Rev Comp as children of Revised item ' || l_revised_item_rec.revised_item_name);
11755: END IF;
11748: -- Process Revised Components that are direct children of this item
11749:
11750: IF Bom_Globals.Get_Debug = 'Y' THEN
11751: Error_Handler.Write_Debug('***********************************************************') ;
11752: Error_Handler.Write_Debug('Now processing direct children for the Rev Item '
11753: || l_revised_item_rec.revised_item_name || '. . .' );
11754: Error_Handler.Write_Debug('Processing Rev Comp as children of Revised item ' || l_revised_item_rec.revised_item_name);
11755: END IF;
11756:
11750: IF Bom_Globals.Get_Debug = 'Y' THEN
11751: Error_Handler.Write_Debug('***********************************************************') ;
11752: Error_Handler.Write_Debug('Now processing direct children for the Rev Item '
11753: || l_revised_item_rec.revised_item_name || '. . .' );
11754: Error_Handler.Write_Debug('Processing Rev Comp as children of Revised item ' || l_revised_item_rec.revised_item_name);
11755: END IF;
11756:
11757: Rev_Comps
11758: ( p_validation_level => p_validation_level
11774: , x_return_status => l_return_status
11775: , x_bill_sequence_id => l_rev_item_unexp_rec.bill_sequence_id
11776: );
11777:
11778: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rev_Comps return status ' || l_return_status); END IF;
11779:
11780: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
11781: THEN
11782:
11780: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
11781: THEN
11782:
11783: IF Bom_Globals.Get_Debug = 'Y' THEN
11784: Error_Handler.Write_Debug('Rev_Comps returned in Rev_Items . . .BO Status: ' || l_return_status);
11785: END IF;
11786:
11787: l_bo_return_status := l_return_status;
11788: END IF;
11791: -- (without immediate revised component parents) but are
11792: -- indirect children of this item
11793:
11794: IF Bom_Globals.Get_Debug = 'Y' THEN
11795: Error_Handler.Write_Debug('***********************************************************') ;
11796: Error_Handler.Write_Debug('Processing Ref Desgs as children of Revised item ' || l_revised_item_rec.revised_item_name);
11797: END IF;
11798:
11799:
11792: -- indirect children of this item
11793:
11794: IF Bom_Globals.Get_Debug = 'Y' THEN
11795: Error_Handler.Write_Debug('***********************************************************') ;
11796: Error_Handler.Write_Debug('Processing Ref Desgs as children of Revised item ' || l_revised_item_rec.revised_item_name);
11797: END IF;
11798:
11799:
11800: Ref_Desgs
11824: l_bo_return_status := l_return_status;
11825: END IF;
11826:
11827: IF Bom_Globals.Get_Debug = 'Y' THEN
11828: Error_Handler.Write_Debug('***********************************************************') ;
11829: Error_Handler.Write_Debug('Processing Sub Comps children of Revised item ' || l_revised_item_rec.revised_item_name);
11830: END IF;
11831:
11832: Sub_Comps
11825: END IF;
11826:
11827: IF Bom_Globals.Get_Debug = 'Y' THEN
11828: Error_Handler.Write_Debug('***********************************************************') ;
11829: Error_Handler.Write_Debug('Processing Sub Comps children of Revised item ' || l_revised_item_rec.revised_item_name);
11830: END IF;
11831:
11832: Sub_Comps
11833: ( p_validation_level => p_validation_level
11860: IF NVL(l_bo_return_status, 'S') <> 'S'
11861: THEN
11862: x_return_status := l_bo_return_status;
11863:
11864: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rev Items returning with ' || l_bo_return_status); END IF;
11865:
11866: END IF;
11867: --x_revised_item_tbl := l_revised_item_tbl;
11868: --x_rev_component_tbl := l_rev_component_tbl;
11902: , x_sub_component_tbl IN OUT NOCOPY BOM_BO_PUB.Sub_Component_Tbl_Type
11903: , x_rev_operation_tbl IN OUT NOCOPY Bom_Rtg_Pub.Rev_Operation_Tbl_Type --L1--
11904: , x_rev_op_resource_tbl IN OUT NOCOPY Bom_Rtg_Pub.Rev_Op_Resource_Tbl_Type --L1--
11905: , x_rev_sub_resource_tbl IN OUT NOCOPY Bom_Rtg_Pub.Rev_Sub_Resource_Tbl_Type --L1--
11906: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
11907: , x_return_status OUT NOCOPY VARCHAR2
11908: )
11909: IS
11910:
11917: l_old_change_line_rec Eng_Eco_Pub.Change_Line_Rec_Type ;
11918: l_old_change_line_unexp_rec Eng_Eco_Pub.Change_Line_Unexposed_Rec_Type;
11919:
11920: /* Error Handling Variables */
11921: l_token_tbl Error_Handler.Token_Tbl_Type ;
11922: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
11923: l_other_token_tbl Error_Handler.Token_Tbl_Type;
11924: l_other_message VARCHAR2(2000);
11925: l_err_text VARCHAR2(2000);
11918: l_old_change_line_unexp_rec Eng_Eco_Pub.Change_Line_Unexposed_Rec_Type;
11919:
11920: /* Error Handling Variables */
11921: l_token_tbl Error_Handler.Token_Tbl_Type ;
11922: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
11923: l_other_token_tbl Error_Handler.Token_Tbl_Type;
11924: l_other_message VARCHAR2(2000);
11925: l_err_text VARCHAR2(2000);
11926:
11919:
11920: /* Error Handling Variables */
11921: l_token_tbl Error_Handler.Token_Tbl_Type ;
11922: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
11923: l_other_token_tbl Error_Handler.Token_Tbl_Type;
11924: l_other_message VARCHAR2(2000);
11925: l_err_text VARCHAR2(2000);
11926:
11927: /* Others */
11933: l_eco_parent_exists BOOLEAN := FALSE;
11934: l_process_children BOOLEAN := TRUE;
11935: l_valid BOOLEAN := TRUE;
11936:
11937: /* Error handler definations */
11938: EXC_SEV_QUIT_RECORD EXCEPTION ;
11939: EXC_SEV_QUIT_BRANCH EXCEPTION ;
11940: EXC_SEV_SKIP_BRANCH EXCEPTION ;
11941: EXC_FAT_QUIT_OBJECT EXCEPTION ;
12014: -- Process Flow Step 2: Check if record has not yet been processed and
12015: -- that it is the child of the parent that called this procedure
12016: --
12017:
12018: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Processing Change Line . . . ' || l_change_line_rec.name); END IF;
12019:
12020: --IF (l_change_line_rec.return_status IS NULL OR
12021: --l_change_line_rec.return_status = FND_API.G_MISS_CHAR)
12022: --THEN
12026:
12027: -- Check if transaction_type is valid
12028: --
12029:
12030: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check transaction_type validity'); END IF;
12031:
12032: ENG_GLOBALS.Transaction_Type_Validity
12033: ( p_transaction_type => l_change_line_rec.transaction_type
12034: , p_entity => 'Change_Lines'
12038: );
12039:
12040: IF NOT l_valid
12041: THEN
12042: l_return_status := Error_Handler.G_STATUS_ERROR;
12043: RAISE EXC_SEV_QUIT_RECORD;
12044: END IF;
12045:
12046: --
12046: --
12047: -- Process Flow step 4: Convert user unique index to unique index
12048: --
12049:
12050: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Converting user unique index to unique index'); END IF;
12051:
12052: ENG_Val_To_Id.Change_Line_UUI_To_UI
12053: ( p_change_line_rec => l_change_line_rec
12054: , p_change_line_unexp_rec => l_change_line_unexp_rec
12057: , x_Return_Status => l_return_status
12058: );
12059:
12060:
12061: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
12062:
12063: IF l_return_status = Error_Handler.G_STATUS_ERROR
12064: THEN
12065:
12059:
12060:
12061: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
12062:
12063: IF l_return_status = Error_Handler.G_STATUS_ERROR
12064: THEN
12065:
12066: l_other_message := 'ENG_CL_UUI_SEV_ERROR';
12067: l_other_token_tbl(1).token_name := 'LINE_NAME';
12067: l_other_token_tbl(1).token_name := 'LINE_NAME';
12068: l_other_token_tbl(1).token_value := l_change_line_rec.name ;
12069: RAISE EXC_SEV_QUIT_BRANCH;
12070:
12071: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
12072: THEN
12073: l_other_message := 'ENG_CL_UUI_UNEXP_SKIP';
12074: l_other_token_tbl(1).token_name := 'LINE_NAME';
12075: l_other_token_tbl(1).token_value := l_change_line_rec.name ;
12079:
12080: --
12081: -- Process Flow step 4(b): Check required fields exist
12082: --
12083: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check Required'); END IF;
12084: ENG_Validate_Change_Line.Check_Required
12085: ( x_return_status => l_return_status
12086: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
12087: , p_change_line_rec => l_change_line_rec
12086: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
12087: , p_change_line_rec => l_change_line_rec
12088: );
12089:
12090: IF l_return_status = Error_Handler.G_STATUS_ERROR
12091: THEN
12092: IF l_change_line_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE
12093: THEN
12094: l_other_message := 'ENG_CL_REQ_CSEV_SKIP';
12097: RAISE EXC_SEV_SKIP_BRANCH;
12098: ELSE
12099: RAISE EXC_SEV_QUIT_RECORD;
12100: END IF;
12101: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
12102: THEN
12103: l_other_message := 'ENG_CL_REQ_UNEXP_SKIP';
12104: l_other_token_tbl(1).token_name := 'LINE_NAME';
12105: l_other_token_tbl(1).token_value := l_change_line_rec.name;
12107:
12108: ELSIF l_return_status ='S' AND
12109: l_Mesg_Token_Tbl.COUNT <>0
12110: THEN
12111: Eco_Error_Handler.Log_Error
12112: ( p_change_line_tbl => x_change_line_tbl -- Eng Change
12113: , p_revised_item_tbl => x_revised_item_tbl
12114: , p_rev_component_tbl => x_rev_component_tbl
12115: , p_ref_designator_tbl => x_ref_designator_tbl
12118: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
12119: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
12120: , p_mesg_token_tbl => l_mesg_token_tbl
12121: , p_error_status => 'W'
12122: , p_error_level => ECO_Error_Handler.G_CL_LEVEL
12123: , p_entity_index => I
12124: , x_ECO_rec => l_eco_rec
12125: , x_eco_revision_tbl => l_eco_revision_tbl
12126: , x_change_line_tbl => x_change_line_tbl -- Eng Change
12134: );
12135:
12136: END IF;
12137:
12138: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
12139:
12140:
12141: -- Process Flow step 5: Verify ECO's existence in database, if
12142: -- the revised item is being created on an ECO and the business
12141: -- Process Flow step 5: Verify ECO's existence in database, if
12142: -- the revised item is being created on an ECO and the business
12143: -- object does not carry the ECO header
12144:
12145: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check parent existence'); END IF;
12146:
12147: IF l_change_line_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE
12148: AND NOT l_eco_parent_exists
12149: THEN
12158: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
12159: , x_return_status => l_Return_Status
12160: );
12161:
12162: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
12163:
12164: IF l_return_status = Error_Handler.G_STATUS_ERROR
12165: THEN
12166: l_other_message := 'ENG_PARENTECO_NOT_EXIST';
12160: );
12161:
12162: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
12163:
12164: IF l_return_status = Error_Handler.G_STATUS_ERROR
12165: THEN
12166: l_other_message := 'ENG_PARENTECO_NOT_EXIST';
12167: l_other_token_tbl(1).token_name := 'ECO_NAME';
12168: l_other_token_tbl(1).token_value := l_change_line_rec.ECO_Name;
12168: l_other_token_tbl(1).token_value := l_change_line_rec.ECO_Name;
12169: l_other_token_tbl(2).token_name := 'ORGANIZATION_CODE';
12170: l_other_token_tbl(2).token_value := l_change_line_rec.organization_code;
12171: RAISE EXC_SEV_QUIT_OBJECT;
12172: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
12173: THEN
12174: l_other_message := 'ENG_CL_LIN_UNEXP_SKIP';
12175: l_other_token_tbl(1).token_name := 'LINE_NAME';
12176: l_other_token_tbl(1).token_value := l_change_line_rec.name;
12191: l_chk_co_sch := ret_co_status (l_change_line_rec.eco_name, l_change_line_unexp_rec.organization_id);
12192: END IF;
12193:
12194: IF l_chk_co_sch = 4 THEN
12195: l_return_status := error_handler.g_status_error;
12196: error_handler.add_error_token (p_message_name => 'ENG_CHG_LN_NOT_UPD',
12197: p_mesg_token_tbl => l_mesg_token_tbl,
12198: x_mesg_token_tbl => l_mesg_token_tbl,
12199: p_token_tbl => l_token_tbl
12192: END IF;
12193:
12194: IF l_chk_co_sch = 4 THEN
12195: l_return_status := error_handler.g_status_error;
12196: error_handler.add_error_token (p_message_name => 'ENG_CHG_LN_NOT_UPD',
12197: p_mesg_token_tbl => l_mesg_token_tbl,
12198: x_mesg_token_tbl => l_mesg_token_tbl,
12199: p_token_tbl => l_token_tbl
12200: );
12204: -- End Changes
12205:
12206: -- Process Flow step 5: Verify Revised Item's existence
12207: --
12208: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check existence'); END IF;
12209:
12210: ENG_Validate_Change_Line.Check_Existence
12211: ( p_change_line_rec => l_change_line_rec
12212: , p_change_line_unexp_rec => l_change_line_unexp_rec
12215: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
12216: , x_return_status => l_Return_Status
12217: );
12218:
12219: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
12220:
12221: IF l_return_status = Error_Handler.G_STATUS_ERROR
12222: THEN
12223: l_other_message := 'ENG_CL_EXS_SEV_ERROR';
12217: );
12218:
12219: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
12220:
12221: IF l_return_status = Error_Handler.G_STATUS_ERROR
12222: THEN
12223: l_other_message := 'ENG_CL_EXS_SEV_ERROR';
12224: l_other_token_tbl(1).token_name := 'LINE_NAME';
12225: l_other_token_tbl(1).token_value := l_change_line_rec.name;
12225: l_other_token_tbl(1).token_value := l_change_line_rec.name;
12226: l_other_token_tbl(2).token_name := 'ECO_NAME';
12227: l_other_token_tbl(2).token_value := l_change_line_rec.eco_name;
12228: RAISE EXC_SEV_QUIT_BRANCH;
12229: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
12230: THEN
12231: l_other_message := 'ENG_CL_EXS_UNEXP_SKIP';
12232: l_other_token_tbl(1).token_name := 'LINE_NAME';
12233: l_other_token_tbl(1).token_value := l_change_line_rec.name;
12252: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
12253: , x_Return_Status => l_return_status
12254: );
12255:
12256: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
12257:
12258: IF l_return_status = Error_Handler.G_STATUS_ERROR
12259: THEN
12260: l_other_message := 'ENG_CL_ECOACC_FAT_FATAL';
12254: );
12255:
12256: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
12257:
12258: IF l_return_status = Error_Handler.G_STATUS_ERROR
12259: THEN
12260: l_other_message := 'ENG_CL_ECOACC_FAT_FATAL';
12261: l_other_token_tbl(1).token_name := 'LINE_NAME';
12262: l_other_token_tbl(1).token_value := l_change_line_rec.name;
12261: l_other_token_tbl(1).token_name := 'LINE_NAME';
12262: l_other_token_tbl(1).token_value := l_change_line_rec.name;
12263: l_return_status := 'F';
12264: RAISE EXC_FAT_QUIT_OBJECT;
12265: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
12266: THEN
12267: l_other_message := 'ENG_RIT_ECOACC_UNEXP_SKIP';
12268: l_other_token_tbl(1).token_name := 'LINE_NAME';
12269: l_other_token_tbl(1).token_value := l_change_line_rec.name;
12274:
12275:
12276: -- Process Flow step 7: Value to Id conversions
12277: --
12278: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Value-id conversions'); END IF;
12279:
12280: ENG_Val_To_Id.Change_Line_VID
12281: ( p_change_line_rec => l_change_line_rec
12282: , p_change_line_unexp_rec => l_change_line_unexp_rec
12285: , x_Return_Status => l_return_status
12286: );
12287:
12288:
12289: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
12290:
12291: IF l_return_status = Error_Handler.G_STATUS_ERROR
12292: THEN
12293: IF l_change_line_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE
12287:
12288:
12289: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
12290:
12291: IF l_return_status = Error_Handler.G_STATUS_ERROR
12292: THEN
12293: IF l_change_line_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE
12294: THEN
12295: l_other_message := 'ENG_RIT_VID_CSEV_SKIP';
12298: RAISE EXC_SEV_SKIP_BRANCH;
12299: ELSE
12300: RAISE EXC_SEV_QUIT_RECORD;
12301: END IF;
12302: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
12303: THEN
12304: RAISE EXC_UNEXP_SKIP_OBJECT;
12305: ELSIF l_return_status ='S' AND
12306: l_Mesg_Token_Tbl.COUNT <>0
12304: RAISE EXC_UNEXP_SKIP_OBJECT;
12305: ELSIF l_return_status ='S' AND
12306: l_Mesg_Token_Tbl.COUNT <>0
12307: THEN
12308: Eco_Error_Handler.Log_Error
12309: ( p_change_line_tbl => x_change_line_tbl -- Eng Change
12310: , p_revised_item_tbl => x_revised_item_tbl
12311: , p_rev_component_tbl => x_rev_component_tbl
12312: , p_ref_designator_tbl => x_ref_designator_tbl
12315: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
12316: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
12317: , p_mesg_token_tbl => l_mesg_token_tbl
12318: , p_error_status => 'W'
12319: , p_error_level => ECO_Error_Handler.G_CL_LEVEL
12320: , p_entity_index => I
12321: , x_ECO_rec => l_eco_rec
12322: , x_eco_revision_tbl => l_eco_revision_tbl
12323: , x_change_line_tbl => x_change_line_tbl -- Eng Change
12334:
12335:
12336: -- Process Flow step8: check that user has access to item associated to change line
12337: --
12338: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check access'); END IF;
12339: IF l_change_line_unexp_rec.pk1_value IS NOT NULL THEN
12340:
12341: ENG_Validate_Change_Line.Check_Access
12342: ( p_change_line_rec => l_change_line_rec
12345: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
12346: , x_return_status => l_Return_Status
12347: );
12348:
12349: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
12350:
12351: IF l_return_status = Error_Handler.G_STATUS_ERROR
12352: THEN
12353: l_other_message := 'ENG_CL_ACCESS_FAT_FATAL';
12347: );
12348:
12349: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
12350:
12351: IF l_return_status = Error_Handler.G_STATUS_ERROR
12352: THEN
12353: l_other_message := 'ENG_CL_ACCESS_FAT_FATAL';
12354: l_other_token_tbl(1).token_name := 'OBJECT_NAME';
12355: l_other_token_tbl(1).token_value := l_change_line_rec.pk1_name;
12356: l_other_token_tbl(2).token_name := 'LINE_NAME';
12357: l_other_token_tbl(2).token_value := l_change_line_rec.name;
12358: l_return_status := 'F';
12359: RAISE EXC_FAT_QUIT_BRANCH;
12360: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
12361: THEN
12362: l_other_message := 'ENG_CL_ACCESS_UNEXP_SKIP';
12363: l_other_token_tbl(1).token_name := 'OBJECT_NAME';
12364: l_other_token_tbl(1).token_value := l_change_line_rec.pk1_name;
12372: --
12373: -- Process Flow step 10: Attribute Validation for CREATE and UPDATE
12374: --
12375:
12376: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Attribute Validation'); END IF;
12377: IF l_change_line_rec.Transaction_Type IN
12378: (ENG_GLOBALS.G_OPR_CREATE, ENG_GLOBALS.G_OPR_UPDATE)
12379: THEN
12380: ENG_Validate_Change_Line.Check_Attributes
12385: , p_old_change_line_rec => l_old_change_line_rec
12386: , p_old_change_line_unexp_rec => l_old_change_line_unexp_rec
12387: );
12388:
12389: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
12390:
12391: IF l_return_status = Error_Handler.G_STATUS_ERROR
12392: THEN
12393: IF l_change_line_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE
12387: );
12388:
12389: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
12390:
12391: IF l_return_status = Error_Handler.G_STATUS_ERROR
12392: THEN
12393: IF l_change_line_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE
12394: THEN
12395: l_other_message := 'ENG_RIT_ATTVAL_CSEV_SKIP';
12399: RAISE EXC_SEV_SKIP_BRANCH;
12400: ELSE
12401: RAISE EXC_SEV_QUIT_RECORD;
12402: END IF;
12403: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
12404: THEN
12405:
12406: l_other_message := 'ENG_RIT_ATTVAL_UNEXP_SKIP';
12407: l_other_token_tbl(1).token_name := 'LINE_NAME';
12412: ELSIF l_return_status ='S' AND
12413: l_Mesg_Token_Tbl.COUNT <>0
12414: THEN
12415:
12416: Eco_Error_Handler.Log_Error
12417: ( p_change_line_tbl => x_change_line_tbl -- Eng Change
12418: , p_revised_item_tbl => x_revised_item_tbl
12419: , p_rev_component_tbl => x_rev_component_tbl
12420: , p_ref_designator_tbl => x_ref_designator_tbl
12423: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
12424: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
12425: , p_mesg_token_tbl => l_mesg_token_tbl
12426: , p_error_status => 'W'
12427: , p_error_level => ECO_Error_Handler.G_CL_LEVEL
12428: , p_entity_index => I
12429: , x_ECO_rec => l_eco_rec
12430: , x_eco_revision_tbl => l_eco_revision_tbl
12431: , x_change_line_tbl => x_change_line_tbl -- Eng Change
12448:
12449: -- Process flow step 11 - Populate NULL columns for Update and
12450: -- Delete.
12451:
12452: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Populating NULL Columns'); END IF;
12453:
12454: Eng_Default_Change_Line.Populate_NULL_Columns
12455: ( p_change_line_rec => l_change_line_rec
12456: , p_change_line_unexp_rec => l_change_line_unexp_rec
12464:
12465: -- Process Flow step 12: Default missing values for Operation CREATE
12466: --
12467:
12468: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Attribute Defaulting'); END IF;
12469: Eng_Default_Change_Line.Attribute_Defaulting
12470: ( p_change_line_rec => l_change_line_rec
12471: , p_change_line_unexp_rec => l_change_line_unexp_rec
12472: , x_change_line_rec => l_change_line_rec
12474: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
12475: , x_return_status => l_return_status
12476: );
12477:
12478: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
12479:
12480: IF l_return_status = Error_Handler.G_STATUS_ERROR
12481: THEN
12482: l_other_message := 'ENG_CL_ATTDEF_SEV_SKIP';
12476: );
12477:
12478: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
12479:
12480: IF l_return_status = Error_Handler.G_STATUS_ERROR
12481: THEN
12482: l_other_message := 'ENG_CL_ATTDEF_SEV_SKIP';
12483: l_other_token_tbl(1).token_name := 'LINE_NAME';
12484: l_other_token_tbl(1).token_value := l_change_line_rec.name;
12482: l_other_message := 'ENG_CL_ATTDEF_SEV_SKIP';
12483: l_other_token_tbl(1).token_name := 'LINE_NAME';
12484: l_other_token_tbl(1).token_value := l_change_line_rec.name;
12485: RAISE EXC_SEV_SKIP_BRANCH;
12486: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
12487: THEN
12488: l_other_message := 'ENG_CL_ATTDEF_UNEXP_SKIP';
12489: l_other_token_tbl(1).token_name := 'LINE_NAME';
12490: l_other_token_tbl(1).token_value := l_change_line_rec.name;
12492: RAISE EXC_UNEXP_SKIP_OBJECT;
12493: ELSIF l_return_status ='S' AND
12494: l_Mesg_Token_Tbl.COUNT <>0
12495: THEN
12496: Eco_Error_Handler.Log_Error
12497: ( p_change_line_tbl => x_change_line_tbl -- Eng Change
12498: , p_revised_item_tbl => x_revised_item_tbl
12499: , p_rev_component_tbl => x_rev_component_tbl
12500: , p_ref_designator_tbl => x_ref_designator_tbl
12503: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
12504: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
12505: , p_mesg_token_tbl => l_mesg_token_tbl
12506: , p_error_status => 'W'
12507: , p_error_level => ECO_Error_Handler.G_CL_LEVEL
12508: , p_entity_index => I
12509: , x_ECO_rec => l_eco_rec
12510: , x_eco_revision_tbl => l_eco_revision_tbl
12511: , x_change_line_tbl => x_change_line_tbl -- Eng Change
12523:
12524: -- Process Flow step 13 - Conditionally required attributes check
12525: --
12526:
12527: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Conditionally required attributes check'); END IF;
12528:
12529: --
12530: -- Put conditionally required check procedure here
12531: --
12529: --
12530: -- Put conditionally required check procedure here
12531: --
12532:
12533: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
12534:
12535: ENG_Validate_Change_Line.Check_Conditionally_Required
12536: ( p_change_line_rec => l_change_line_rec
12537: , p_change_line_unexp_rec => l_change_line_unexp_rec
12538: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
12539: , x_return_status => l_return_status
12540: );
12541:
12542: IF l_return_status = Error_Handler.G_STATUS_ERROR
12543: THEN
12544: IF l_change_line_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE
12545: THEN
12546: l_other_message := 'ENG_CL_CONREQ_CSEV_SKIP';
12549: RAISE EXC_SEV_SKIP_BRANCH;
12550: ELSE
12551: RAISE EXC_SEV_QUIT_RECORD;
12552: END IF;
12553: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
12554: THEN
12555: l_other_message := 'ENG_CL_CONREQ_UNEXP_SKIP';
12556: l_other_token_tbl(1).token_name := 'LINE_NAME';
12557: l_other_token_tbl(1).token_value := l_change_line_rec.name;
12559:
12560: ELSIF l_return_status ='S' AND
12561: l_Mesg_Token_Tbl.COUNT <>0
12562: THEN
12563: Eco_Error_Handler.Log_Error
12564: ( p_change_line_tbl => x_change_line_tbl -- Eng Change
12565: , p_revised_item_tbl => x_revised_item_tbl
12566: , p_rev_component_tbl => x_rev_component_tbl
12567: , p_ref_designator_tbl => x_ref_designator_tbl
12570: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
12571: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
12572: , p_mesg_token_tbl => l_mesg_token_tbl
12573: , p_error_status => 'W'
12574: , p_error_level => ECO_Error_Handler.G_CL_LEVEL
12575: , p_entity_index => I
12576: , x_ECO_rec => l_eco_rec
12577: , x_eco_revision_tbl => l_eco_revision_tbl
12578: , x_change_line_tbl => x_change_line_tbl -- Eng Change
12589:
12590: -- Process Flow step 14: Entity defaulting for CREATE and UPDATE
12591: --
12592:
12593: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Entity defaulting'); END IF;
12594:
12595: IF l_change_line_rec.Transaction_Type IN
12596: (ENG_GLOBALS.G_OPR_CREATE, ENG_GLOBALS.G_OPR_UPDATE)
12597: THEN
12606: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
12607: , x_return_status => l_return_status
12608: );
12609:
12610: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
12611:
12612: IF l_return_status = Error_Handler.G_STATUS_ERROR
12613: THEN
12614: IF l_change_line_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE
12608: );
12609:
12610: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
12611:
12612: IF l_return_status = Error_Handler.G_STATUS_ERROR
12613: THEN
12614: IF l_change_line_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE
12615: THEN
12616: l_other_message := 'ENG_CL_ENTDEF_CSEV_SKIP';
12619: RAISE EXC_SEV_SKIP_BRANCH;
12620: ELSE
12621: RAISE EXC_SEV_QUIT_RECORD;
12622: END IF;
12623: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
12624: THEN
12625: l_other_message := 'ENG_CL_ENTDEF_UNEXP_SKIP';
12626: l_other_token_tbl(1).token_name := 'LINE_NAME';
12627: l_other_token_tbl(1).token_value := l_change_line_rec.name;
12628: RAISE EXC_UNEXP_SKIP_OBJECT;
12629: ELSIF l_return_status ='S' AND
12630: l_Mesg_Token_Tbl.COUNT <>0
12631: THEN
12632: Eco_Error_Handler.Log_Error
12633: ( p_change_line_tbl => x_change_line_tbl -- Eng Change
12634: , p_revised_item_tbl => x_revised_item_tbl
12635: , p_rev_component_tbl => x_rev_component_tbl
12636: , p_ref_designator_tbl => x_ref_designator_tbl
12639: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
12640: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
12641: , p_mesg_token_tbl => l_mesg_token_tbl
12642: , p_error_status => 'W'
12643: , p_error_level => ECO_Error_Handler.G_CL_LEVEL
12644: , p_entity_index => I
12645: , x_ECO_rec => l_eco_rec
12646: , x_eco_revision_tbl => l_eco_revision_tbl
12647: , x_change_line_tbl => x_change_line_tbl -- Eng Change
12659:
12660: -- Process Flow step 15 - Entity Level Validation
12661: --
12662:
12663: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Entity validation'); END IF;
12664:
12665: IF l_change_line_rec.transaction_type = ENG_GLOBALS.G_OPR_DELETE
12666: THEN
12667: ENG_Validate_Change_Line.Check_Entity_Delete
12680: , x_return_status => l_Return_Status
12681: );
12682: END IF;
12683:
12684: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
12685:
12686: IF l_return_status = Error_Handler.G_STATUS_ERROR
12687: THEN
12688: IF l_change_line_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE
12682: END IF;
12683:
12684: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
12685:
12686: IF l_return_status = Error_Handler.G_STATUS_ERROR
12687: THEN
12688: IF l_change_line_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE
12689: THEN
12690: l_other_message := 'ENG_CL_ENTVAL_CSEV_SKIP';
12693: RAISE EXC_SEV_SKIP_BRANCH;
12694: ELSE
12695: RAISE EXC_SEV_QUIT_RECORD;
12696: END IF;
12697: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
12698: THEN
12699: l_other_message := 'ENG_CL_ENTVAL_UNEXP_SKIP';
12700: l_other_token_tbl(1).token_name := 'LINE_NAME';
12701: l_other_token_tbl(1).token_value := l_change_line_rec.name;
12702: RAISE EXC_UNEXP_SKIP_OBJECT;
12703: ELSIF l_return_status ='S' AND
12704: l_Mesg_Token_Tbl.COUNT <>0
12705: THEN
12706: Eco_Error_Handler.Log_Error
12707: ( p_change_line_tbl => x_change_line_tbl -- Eng Change
12708: , p_revised_item_tbl => x_revised_item_tbl
12709: , p_rev_component_tbl => x_rev_component_tbl
12710: , p_ref_designator_tbl => x_ref_designator_tbl
12713: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
12714: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
12715: , p_mesg_token_tbl => l_mesg_token_tbl
12716: , p_error_status => 'W'
12717: , p_error_level => ECO_Error_Handler.G_CL_LEVEL
12718: , p_entity_index => I
12719: , x_ECO_rec => l_eco_rec
12720: , x_eco_revision_tbl => l_eco_revision_tbl
12721: , x_change_line_tbl => x_change_line_tbl -- Eng Change
12732:
12733: -- Process Flow step 16 : Database Writes
12734: --
12735:
12736: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Writing to the database'); END IF;
12737:
12738: ENG_Change_Line_Util.Perform_Writes
12739: ( p_change_line_rec => l_change_line_rec
12740: , p_change_line_unexp_rec => l_change_line_unexp_rec
12750: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
12751: , x_return_status => l_Return_Status);
12752: --11.5.10
12753: END IF;
12754: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
12755: -- Bug 4033384: Added error handling for subject validation for l_return_status G_STATUS_ERROR
12756: IF l_return_status = Error_Handler.G_STATUS_ERROR
12757: THEN
12758: IF l_change_line_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE
12752: --11.5.10
12753: END IF;
12754: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
12755: -- Bug 4033384: Added error handling for subject validation for l_return_status G_STATUS_ERROR
12756: IF l_return_status = Error_Handler.G_STATUS_ERROR
12757: THEN
12758: IF l_change_line_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE
12759: THEN
12760: l_other_message := 'ENG_CL_ENTVAL_CSEV_SKIP';
12763: RAISE EXC_SEV_SKIP_BRANCH;
12764: ELSE
12765: RAISE EXC_SEV_QUIT_RECORD;
12766: END IF;
12767: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
12768: THEN
12769: l_other_message := 'ENG_CL_WRITES_UNEXP_SKIP';
12770: l_other_token_tbl(1).token_name := 'LINE_NAME';
12771: l_other_token_tbl(1).token_value := l_change_line_rec.name;
12772: RAISE EXC_UNEXP_SKIP_OBJECT;
12773: ELSIF l_return_status ='S' AND
12774: l_Mesg_Token_Tbl.COUNT <>0
12775: THEN
12776: Eco_Error_Handler.Log_Error
12777: ( p_change_line_tbl => x_change_line_tbl -- Eng Change
12778: , p_revised_item_tbl => x_revised_item_tbl
12779: , p_rev_component_tbl => x_rev_component_tbl
12780: , p_ref_designator_tbl => x_ref_designator_tbl
12783: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
12784: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
12785: , p_mesg_token_tbl => l_mesg_token_tbl
12786: , p_error_status => 'W'
12787: , p_error_level => ECO_Error_Handler.G_CL_LEVEL
12788: , p_entity_index => I
12789: , x_ECO_rec => l_eco_rec
12790: , x_eco_revision_tbl => l_eco_revision_tbl
12791: , x_change_line_tbl => x_change_line_tbl -- Eng Change
12800:
12801: END IF;
12802:
12803: IF Bom_Globals.Get_Debug = 'Y' THEN
12804: Error_Handler.Write_Debug('Writing to the database for Change Line is completed with '||l_return_status );
12805: END IF;
12806:
12807: --END IF; -- END IF statement that checks RETURN STATUS
12808:
12815: EXCEPTION
12816:
12817: WHEN EXC_SEV_QUIT_RECORD THEN
12818:
12819: Eco_Error_Handler.Log_Error
12820: ( p_change_line_tbl => x_change_line_tbl -- Eng Change
12821: , p_revised_item_tbl => x_revised_item_tbl
12822: , p_rev_component_tbl => x_rev_component_tbl
12823: , p_ref_designator_tbl => x_ref_designator_tbl
12826: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
12827: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
12828: , p_mesg_token_tbl => l_mesg_token_tbl
12829: , p_error_status => FND_API.G_RET_STS_ERROR
12830: , p_error_scope => Error_Handler.G_SCOPE_RECORD
12831: , p_error_level => ECO_Error_Handler.G_CL_LEVEL
12832: , p_entity_index => I
12833: , x_ECO_rec => l_ECO_rec
12834: , x_eco_revision_tbl => l_eco_revision_tbl
12827: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
12828: , p_mesg_token_tbl => l_mesg_token_tbl
12829: , p_error_status => FND_API.G_RET_STS_ERROR
12830: , p_error_scope => Error_Handler.G_SCOPE_RECORD
12831: , p_error_level => ECO_Error_Handler.G_CL_LEVEL
12832: , p_entity_index => I
12833: , x_ECO_rec => l_ECO_rec
12834: , x_eco_revision_tbl => l_eco_revision_tbl
12835: , x_change_line_tbl => x_change_line_tbl -- Eng Change
12861: --x_rev_sub_resource_tbl := l_rev_sub_resource_tbl; --L1
12862:
12863: WHEN EXC_SEV_QUIT_BRANCH THEN
12864:
12865: Eco_Error_Handler.Log_Error
12866: ( p_change_line_tbl => x_change_line_tbl -- Eng Change
12867: , p_revised_item_tbl => x_revised_item_tbl
12868: , p_rev_component_tbl => x_rev_component_tbl
12869: , p_ref_designator_tbl => x_ref_designator_tbl
12871: , p_rev_operation_tbl => x_rev_operation_tbl --L1
12872: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
12873: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
12874: , p_mesg_token_tbl => l_mesg_token_tbl
12875: , p_error_status => Error_Handler.G_STATUS_ERROR
12876: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
12877: , p_other_status => Error_Handler.G_STATUS_ERROR
12878: , p_other_message => l_other_message
12879: , p_other_token_tbl => l_other_token_tbl
12872: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
12873: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
12874: , p_mesg_token_tbl => l_mesg_token_tbl
12875: , p_error_status => Error_Handler.G_STATUS_ERROR
12876: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
12877: , p_other_status => Error_Handler.G_STATUS_ERROR
12878: , p_other_message => l_other_message
12879: , p_other_token_tbl => l_other_token_tbl
12880: , p_error_level => ECO_Error_Handler.G_CL_LEVEL
12873: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
12874: , p_mesg_token_tbl => l_mesg_token_tbl
12875: , p_error_status => Error_Handler.G_STATUS_ERROR
12876: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
12877: , p_other_status => Error_Handler.G_STATUS_ERROR
12878: , p_other_message => l_other_message
12879: , p_other_token_tbl => l_other_token_tbl
12880: , p_error_level => ECO_Error_Handler.G_CL_LEVEL
12881: , p_entity_index => I
12876: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
12877: , p_other_status => Error_Handler.G_STATUS_ERROR
12878: , p_other_message => l_other_message
12879: , p_other_token_tbl => l_other_token_tbl
12880: , p_error_level => ECO_Error_Handler.G_CL_LEVEL
12881: , p_entity_index => I
12882: , x_eco_rec => l_eco_rec
12883: , x_eco_revision_tbl => l_eco_revision_tbl
12884: , x_change_line_tbl => x_change_line_tbl -- Eng Change
12912: RETURN;
12913:
12914: WHEN EXC_SEV_SKIP_BRANCH THEN
12915:
12916: Eco_Error_Handler.Log_Error
12917: ( p_change_line_tbl => x_change_line_tbl -- Eng Change
12918: , p_revised_item_tbl => x_revised_item_tbl
12919: , p_rev_component_tbl => x_rev_component_tbl
12920: , p_ref_designator_tbl => x_ref_designator_tbl
12922: , p_rev_operation_tbl => x_rev_operation_tbl --L1
12923: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
12924: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
12925: , p_mesg_token_tbl => l_mesg_token_tbl
12926: , p_error_status => Error_Handler.G_STATUS_ERROR
12927: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
12928: , p_other_message => l_other_message
12929: , p_other_token_tbl => l_other_token_tbl
12930: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
12923: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
12924: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
12925: , p_mesg_token_tbl => l_mesg_token_tbl
12926: , p_error_status => Error_Handler.G_STATUS_ERROR
12927: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
12928: , p_other_message => l_other_message
12929: , p_other_token_tbl => l_other_token_tbl
12930: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
12931: , p_error_level => ECO_Error_Handler.G_CL_LEVEL
12926: , p_error_status => Error_Handler.G_STATUS_ERROR
12927: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
12928: , p_other_message => l_other_message
12929: , p_other_token_tbl => l_other_token_tbl
12930: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
12931: , p_error_level => ECO_Error_Handler.G_CL_LEVEL
12932: , p_entity_index => I
12933: , x_ECO_rec => l_ECO_rec
12934: , x_eco_revision_tbl => l_eco_revision_tbl
12927: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
12928: , p_other_message => l_other_message
12929: , p_other_token_tbl => l_other_token_tbl
12930: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
12931: , p_error_level => ECO_Error_Handler.G_CL_LEVEL
12932: , p_entity_index => I
12933: , x_ECO_rec => l_ECO_rec
12934: , x_eco_revision_tbl => l_eco_revision_tbl
12935: , x_change_line_tbl => x_change_line_tbl -- Eng Change
12962: RETURN;
12963:
12964: WHEN EXC_FAT_QUIT_OBJECT THEN
12965:
12966: Eco_Error_Handler.Log_Error
12967: ( p_change_line_tbl => x_change_line_tbl -- Eng Change
12968: , p_revised_item_tbl => x_revised_item_tbl
12969: , p_rev_component_tbl => x_rev_component_tbl
12970: , p_ref_designator_tbl => x_ref_designator_tbl
12972: , p_mesg_token_tbl => l_mesg_token_tbl
12973: , p_rev_operation_tbl => x_rev_operation_tbl --L1
12974: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
12975: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
12976: , p_error_status => Error_Handler.G_STATUS_FATAL
12977: , p_error_scope => Error_Handler.G_SCOPE_ALL
12978: , p_other_message => l_other_message
12979: , p_other_status => Error_Handler.G_STATUS_FATAL
12980: , p_other_token_tbl => l_other_token_tbl
12973: , p_rev_operation_tbl => x_rev_operation_tbl --L1
12974: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
12975: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
12976: , p_error_status => Error_Handler.G_STATUS_FATAL
12977: , p_error_scope => Error_Handler.G_SCOPE_ALL
12978: , p_other_message => l_other_message
12979: , p_other_status => Error_Handler.G_STATUS_FATAL
12980: , p_other_token_tbl => l_other_token_tbl
12981: , p_error_level => ECO_Error_Handler.G_CL_LEVEL
12975: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
12976: , p_error_status => Error_Handler.G_STATUS_FATAL
12977: , p_error_scope => Error_Handler.G_SCOPE_ALL
12978: , p_other_message => l_other_message
12979: , p_other_status => Error_Handler.G_STATUS_FATAL
12980: , p_other_token_tbl => l_other_token_tbl
12981: , p_error_level => ECO_Error_Handler.G_CL_LEVEL
12982: , p_entity_index => I
12983: , x_ECO_rec => l_ECO_rec
12977: , p_error_scope => Error_Handler.G_SCOPE_ALL
12978: , p_other_message => l_other_message
12979: , p_other_status => Error_Handler.G_STATUS_FATAL
12980: , p_other_token_tbl => l_other_token_tbl
12981: , p_error_level => ECO_Error_Handler.G_CL_LEVEL
12982: , p_entity_index => I
12983: , x_ECO_rec => l_ECO_rec
12984: , x_eco_revision_tbl => l_eco_revision_tbl
12985: , x_change_line_tbl => x_change_line_tbl -- Eng Change
13008:
13009:
13010: WHEN EXC_UNEXP_SKIP_OBJECT THEN
13011:
13012: Eco_Error_Handler.Log_Error
13013: ( p_change_line_tbl => x_change_line_tbl -- Eng Change
13014: , p_revised_item_tbl => x_revised_item_tbl
13015: , p_rev_component_tbl => x_rev_component_tbl
13016: , p_ref_designator_tbl => x_ref_designator_tbl
13018: , p_rev_operation_tbl => x_rev_operation_tbl --L1
13019: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
13020: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
13021: , p_mesg_token_tbl => l_mesg_token_tbl
13022: , p_error_status => Error_Handler.G_STATUS_UNEXPECTED
13023: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
13024: , p_other_message => l_other_message
13025: , p_other_token_tbl => l_other_token_tbl
13026: , p_error_level => ECO_Error_Handler.G_CL_LEVEL
13019: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
13020: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
13021: , p_mesg_token_tbl => l_mesg_token_tbl
13022: , p_error_status => Error_Handler.G_STATUS_UNEXPECTED
13023: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
13024: , p_other_message => l_other_message
13025: , p_other_token_tbl => l_other_token_tbl
13026: , p_error_level => ECO_Error_Handler.G_CL_LEVEL
13027: , x_ECO_rec => l_ECO_rec
13022: , p_error_status => Error_Handler.G_STATUS_UNEXPECTED
13023: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
13024: , p_other_message => l_other_message
13025: , p_other_token_tbl => l_other_token_tbl
13026: , p_error_level => ECO_Error_Handler.G_CL_LEVEL
13027: , x_ECO_rec => l_ECO_rec
13028: , x_eco_revision_tbl => l_eco_revision_tbl
13029: , x_change_line_tbl => x_change_line_tbl -- Eng Change
13030: , x_revised_item_tbl => x_revised_item_tbl
13060: RETURN;
13061: END IF;
13062:
13063:
13064: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Change Line returning with ' || l_bo_return_status); END IF;
13065:
13066: IF NVL(l_bo_return_status, 'S') <> 'S'
13067: THEN
13068: x_return_status := l_bo_return_status;
13106: , x_sub_component_tbl IN OUT NOCOPY BOM_BO_PUB.Sub_Component_Tbl_Type
13107: , x_rev_operation_tbl IN OUT NOCOPY Bom_Rtg_Pub.Rev_Operation_Tbl_Type --L1
13108: , x_rev_op_resource_tbl IN OUT NOCOPY Bom_Rtg_Pub.Rev_Op_Resource_Tbl_Type --L1
13109: , x_rev_sub_resource_tbl IN OUT NOCOPY Bom_Rtg_Pub.Rev_Sub_Resource_Tbl_Type--L1
13110: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
13111: , x_return_status OUT NOCOPY VARCHAR2
13112: )
13113: IS
13114: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
13110: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
13111: , x_return_status OUT NOCOPY VARCHAR2
13112: )
13113: IS
13114: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
13115: l_other_token_tbl Error_Handler.Token_Tbl_Type;
13116: l_other_message VARCHAR2(2000);
13117: l_err_text VARCHAR2(2000);
13118: l_valid BOOLEAN := TRUE;
13111: , x_return_status OUT NOCOPY VARCHAR2
13112: )
13113: IS
13114: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
13115: l_other_token_tbl Error_Handler.Token_Tbl_Type;
13116: l_other_message VARCHAR2(2000);
13117: l_err_text VARCHAR2(2000);
13118: l_valid BOOLEAN := TRUE;
13119: l_Return_Status VARCHAR2(1);
13137: --l_change_line_tbl Eng_Eco_Pub.Change_Line_Tbl_Type := p_change_line_tbl; -- Eng Change
13138:
13139:
13140: l_return_value NUMBER;
13141: l_Token_Tbl Error_Handler.Token_Tbl_Type;
13142:
13143: EXC_SEV_QUIT_RECORD EXCEPTION;
13144: EXC_SEV_QUIT_OBJECT EXCEPTION;
13145: EXC_FAT_QUIT_OBJECT EXCEPTION;
13212:
13213: -- Check if transaction_type is valid
13214: --
13215:
13216: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Transaction Type validity'); END IF;
13217: ENG_GLOBALS.Transaction_Type_Validity
13218: ( p_transaction_type => l_eco_revision_rec.transaction_type
13219: , p_entity => 'ECO_Rev'
13220: , p_entity_id => l_eco_revision_rec.revision
13223: );
13224:
13225: IF NOT l_valid
13226: THEN
13227: l_return_status := Error_Handler.G_STATUS_ERROR;
13228: RAISE EXC_SEV_QUIT_RECORD;
13229: END IF;
13230:
13231: -- Process Flow step 3: Value-to-ID conversions
13241:
13242: -- Process Flow step 4: Verify that Revision is not NULL or MISSING
13243: --
13244:
13245: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check if Revision is missing or null'); END IF;
13246: ENG_Validate_Eco_Revision.Check_Required
13247: ( x_return_status => l_return_status
13248: , p_eco_revision_rec => l_eco_revision_rec
13249: , x_mesg_token_tbl => l_Mesg_Token_Tbl
13248: , p_eco_revision_rec => l_eco_revision_rec
13249: , x_mesg_token_tbl => l_Mesg_Token_Tbl
13250: );
13251:
13252: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
13253:
13254: IF l_return_status = Error_Handler.G_STATUS_ERROR
13255: THEN
13256: RAISE EXC_SEV_QUIT_RECORD;
13250: );
13251:
13252: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
13253:
13254: IF l_return_status = Error_Handler.G_STATUS_ERROR
13255: THEN
13256: RAISE EXC_SEV_QUIT_RECORD;
13257: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
13258: THEN
13253:
13254: IF l_return_status = Error_Handler.G_STATUS_ERROR
13255: THEN
13256: RAISE EXC_SEV_QUIT_RECORD;
13257: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
13258: THEN
13259: l_other_message := 'ENG_REV_KEYCOL_UNEXP_SKIP';
13260: l_other_token_tbl(1).token_name := 'REVISION';
13261: l_other_token_tbl(1).token_value := l_eco_revision_rec.revision;
13265: -- Process Flow step 5: Verify ECO's existence in database, if
13266: -- the revised item is being created on an ECO and the business
13267: -- object does not carry the ECO header
13268:
13269: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check parent existence'); END IF;
13270:
13271: IF l_eco_revision_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE
13272: AND
13273: NOT l_eco_parent_exists
13283: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
13284: , x_return_status => l_Return_Status
13285: );
13286:
13287: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
13288:
13289: IF l_return_status = Error_Handler.G_STATUS_ERROR
13290: THEN
13291: l_other_message := 'ENG_PARENTECO_NOT_EXIST';
13285: );
13286:
13287: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
13288:
13289: IF l_return_status = Error_Handler.G_STATUS_ERROR
13290: THEN
13291: l_other_message := 'ENG_PARENTECO_NOT_EXIST';
13292: l_other_token_tbl(1).token_name := 'ECO_NAME';
13293: l_other_token_tbl(1).token_value := l_eco_revision_rec.ECO_Name;
13293: l_other_token_tbl(1).token_value := l_eco_revision_rec.ECO_Name;
13294: l_other_token_tbl(2).token_name := 'ORGANIZATION_CODE';
13295: l_other_token_tbl(2).token_value := l_eco_revision_rec.organization_code;
13296: RAISE EXC_SEV_QUIT_OBJECT;
13297: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
13298: THEN
13299: l_other_message := 'ENG_REV_LIN_UNEXP_SKIP';
13300: l_other_token_tbl(1).token_name := 'REVISION';
13301: l_other_token_tbl(1).token_value := l_eco_revision_rec.revision;
13315: l_chk_co_sch := ret_co_status (l_eco_revision_rec.eco_name, l_eco_rev_unexp_rec.organization_id);
13316: END IF;
13317:
13318: IF l_chk_co_sch = 4 THEN
13319: l_return_status := error_handler.g_status_error;
13320: error_handler.add_error_token (p_message_name => 'ENG_ECO_REV_NOT_UPD',
13321: p_mesg_token_tbl => l_mesg_token_tbl,
13322: x_mesg_token_tbl => l_mesg_token_tbl,
13323: p_token_tbl => l_token_tbl
13316: END IF;
13317:
13318: IF l_chk_co_sch = 4 THEN
13319: l_return_status := error_handler.g_status_error;
13320: error_handler.add_error_token (p_message_name => 'ENG_ECO_REV_NOT_UPD',
13321: p_mesg_token_tbl => l_mesg_token_tbl,
13322: x_mesg_token_tbl => l_mesg_token_tbl,
13323: p_token_tbl => l_token_tbl
13324: );
13329:
13330: -- Process Flow step 4: Verify Revision's existence
13331: --
13332:
13333: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check Existence'); END IF;
13334: ENG_Validate_ECO_Revision.Check_Existence
13335: ( p_eco_revision_rec => l_eco_revision_rec
13336: , p_eco_rev_unexp_rec => l_eco_rev_unexp_rec
13337: , x_old_eco_revision_rec => l_old_eco_rev_rec
13339: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
13340: , x_return_status => l_Return_Status
13341: );
13342:
13343: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
13344:
13345: IF l_return_status = Error_Handler.G_STATUS_ERROR
13346: THEN
13347: RAISE EXC_SEV_QUIT_RECORD;
13341: );
13342:
13343: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
13344:
13345: IF l_return_status = Error_Handler.G_STATUS_ERROR
13346: THEN
13347: RAISE EXC_SEV_QUIT_RECORD;
13348: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
13349: THEN
13344:
13345: IF l_return_status = Error_Handler.G_STATUS_ERROR
13346: THEN
13347: RAISE EXC_SEV_QUIT_RECORD;
13348: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
13349: THEN
13350: l_other_message := 'ENG_REV_EXS_UNEXP_SKIP';
13351: l_other_token_tbl(1).token_name := 'REVISION';
13352: l_other_token_tbl(1).token_value := l_eco_revision_rec.revision;
13370: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
13371: , x_Return_Status => l_return_status
13372: );
13373:
13374: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
13375:
13376: IF l_return_status = Error_Handler.G_STATUS_ERROR
13377: THEN
13378: l_other_message := 'ENG_REV_ACCESS_FAT_FATAL';
13372: );
13373:
13374: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
13375:
13376: IF l_return_status = Error_Handler.G_STATUS_ERROR
13377: THEN
13378: l_other_message := 'ENG_REV_ACCESS_FAT_FATAL';
13379: l_other_token_tbl(1).token_name := 'REVISION';
13380: l_other_token_tbl(1).token_value := l_eco_revision_rec.revision;
13379: l_other_token_tbl(1).token_name := 'REVISION';
13380: l_other_token_tbl(1).token_value := l_eco_revision_rec.revision;
13381: l_return_status := 'F';
13382: RAISE EXC_FAT_QUIT_OBJECT;
13383: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
13384: THEN
13385: l_other_message := 'ENG_REV_ACCESS_UNEXP_ERROR';
13386: l_other_token_tbl(1).token_name := 'REVISION';
13387: l_other_token_tbl(1).token_value := l_eco_revision_rec.revision;
13396:
13397: -- Process flow step 7 - Populate NULL columns for Update and
13398: -- Delete.
13399:
13400: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Populating NULL Columns'); END IF;
13401: Eng_Default_ECO_Revision.Populate_NULL_Columns
13402: ( p_eco_revision_rec => l_eco_revision_rec
13403: , p_eco_rev_unexp_rec => l_eco_rev_unexp_rec
13404: , p_old_eco_revision_rec => l_old_eco_rev_rec
13411: ELSIF l_eco_revision_rec.Transaction_Type = ENG_GLOBALS.G_OPR_CREATE THEN
13412:
13413: -- Process Flow step 8: Default missing values for Operation CREATE
13414:
13415: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Attribute Defaulting'); END IF;
13416: Eng_Default_ECO_revision.Attribute_Defaulting
13417: ( p_eco_revision_rec => l_eco_revision_rec
13418: , p_eco_rev_unexp_rec => l_eco_rev_unexp_rec
13419: , x_eco_revision_rec => l_eco_revision_rec
13421: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
13422: , x_return_status => l_Return_Status
13423: );
13424:
13425: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
13426:
13427: IF l_return_status = Error_Handler.G_STATUS_ERROR
13428: THEN
13429: RAISE EXC_SEV_QUIT_RECORD;
13423: );
13424:
13425: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
13426:
13427: IF l_return_status = Error_Handler.G_STATUS_ERROR
13428: THEN
13429: RAISE EXC_SEV_QUIT_RECORD;
13430: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
13431: THEN
13426:
13427: IF l_return_status = Error_Handler.G_STATUS_ERROR
13428: THEN
13429: RAISE EXC_SEV_QUIT_RECORD;
13430: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
13431: THEN
13432: l_other_message := 'ENG_REV_ATTDEF_UNEXP_SKIP';
13433: l_other_token_tbl(1).token_name := 'REVISION';
13434: l_other_token_tbl(1).token_value :=
13436: RAISE EXC_UNEXP_SKIP_OBJECT;
13437: ELSIF l_return_status ='S' AND
13438: l_Mesg_Token_Tbl.COUNT <>0
13439: THEN
13440: Eco_Error_Handler.Log_Error
13441: ( p_eco_revision_tbl => x_eco_revision_tbl
13442: , p_change_line_tbl => x_change_line_tbl -- Eng Change
13443: , p_revised_item_tbl => x_revised_item_tbl
13444: , p_rev_component_tbl => x_rev_component_tbl
13466: END IF;
13467:
13468: -- Process Flow step 10 - Entity Level Validation
13469:
13470: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Entity validation'); END IF;
13471: Eng_Validate_ECO_Revision.Check_Entity
13472: ( x_return_status => l_Return_Status
13473: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
13474: , p_eco_revision_rec => l_eco_revision_rec
13474: , p_eco_revision_rec => l_eco_revision_rec
13475: , p_eco_rev_unexp_rec => l_eco_rev_unexp_rec
13476: );
13477:
13478: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
13479:
13480: IF l_return_status = Error_Handler.G_STATUS_ERROR
13481: THEN
13482: RAISE EXC_SEV_QUIT_RECORD;
13476: );
13477:
13478: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
13479:
13480: IF l_return_status = Error_Handler.G_STATUS_ERROR
13481: THEN
13482: RAISE EXC_SEV_QUIT_RECORD;
13483: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
13484: THEN
13479:
13480: IF l_return_status = Error_Handler.G_STATUS_ERROR
13481: THEN
13482: RAISE EXC_SEV_QUIT_RECORD;
13483: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
13484: THEN
13485: l_other_message := 'ENG_REV_ENTVAL_UNEXP_ERROR';
13486: l_other_token_tbl(1).token_name := 'REVISION';
13487: l_other_token_tbl(1).token_value := l_eco_revision_rec.revision;
13488: RAISE EXC_UNEXP_SKIP_OBJECT;
13489: ELSIF l_return_status ='S' AND
13490: l_Mesg_Token_Tbl.COUNT <>0
13491: THEN
13492: Eco_Error_Handler.Log_Error
13493: ( p_eco_revision_tbl => x_eco_revision_tbl
13494: , p_change_line_tbl => x_change_line_tbl -- Eng Change
13495: , p_revised_item_tbl => x_revised_item_tbl
13496: , p_rev_component_tbl => x_rev_component_tbl
13517: END IF;
13518:
13519: -- Process Flow step 11 : Database Writes
13520:
13521: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Writing to the database'); END IF;
13522: ENG_ECO_Revision_Util.Perform_Writes
13523: ( p_eco_revision_rec => l_eco_revision_rec
13524: , p_eco_rev_unexp_rec => l_eco_rev_unexp_rec
13525: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
13525: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
13526: , x_return_status => l_return_status
13527: );
13528:
13529: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
13530:
13531: IF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
13532: THEN
13533: l_other_message := 'ENG_REV_WRITES_UNEXP_ERROR';
13527: );
13528:
13529: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
13530:
13531: IF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
13532: THEN
13533: l_other_message := 'ENG_REV_WRITES_UNEXP_ERROR';
13534: l_other_token_tbl(1).token_name := 'REVISION';
13535: l_other_token_tbl(1).token_value := l_eco_revision_rec.revision;
13536: RAISE EXC_UNEXP_SKIP_OBJECT;
13537: ELSIF l_return_status ='S' AND
13538: l_Mesg_Token_Tbl.COUNT <>0
13539: THEN
13540: Eco_Error_Handler.Log_Error
13541: ( p_eco_revision_tbl => x_eco_revision_tbl
13542: , p_change_line_tbl => x_change_line_tbl -- Eng Change
13543: , p_revised_item_tbl => x_revised_item_tbl
13544: , p_rev_component_tbl => x_rev_component_tbl
13575: EXCEPTION
13576:
13577: WHEN EXC_SEV_QUIT_RECORD THEN
13578:
13579: Eco_Error_Handler.Log_Error
13580: ( p_eco_revision_tbl => x_eco_revision_tbl
13581: , p_change_line_tbl => x_change_line_tbl -- Eng Change
13582: , p_revised_item_tbl => x_revised_item_tbl
13583: , p_rev_component_tbl => x_rev_component_tbl
13587: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
13588: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl --L1
13589: , p_mesg_token_tbl => l_mesg_token_tbl
13590: , p_error_status => FND_API.G_RET_STS_ERROR
13591: , p_error_scope => Error_Handler.G_SCOPE_RECORD
13592: , p_error_level => 2
13593: , p_entity_index => I
13594: , x_eco_rec => l_eco_rec
13595: , x_eco_revision_tbl => x_eco_revision_tbl
13621: --x_change_line_tbl := l_change_line_tbl ; -- Eng Change
13622:
13623: WHEN EXC_SEV_QUIT_OBJECT THEN
13624:
13625: Eco_Error_Handler.Log_Error
13626: ( p_eco_revision_tbl => x_eco_revision_tbl
13627: , p_change_line_tbl => x_change_line_tbl -- Eng Change
13628: , p_revised_item_tbl => x_revised_item_tbl
13629: , p_rev_component_tbl => x_rev_component_tbl
13631: , p_sub_component_tbl => x_sub_component_tbl
13632: , p_rev_operation_tbl => x_rev_operation_tbl --L1
13633: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
13634: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl --L1
13635: , p_error_status => Error_Handler.G_STATUS_ERROR
13636: , p_error_scope => Error_Handler.G_SCOPE_ALL
13637: , p_error_level => Error_Handler.G_BO_LEVEL
13638: , p_other_message => l_other_message
13639: , p_other_status => Error_Handler.G_STATUS_ERROR
13632: , p_rev_operation_tbl => x_rev_operation_tbl --L1
13633: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
13634: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl --L1
13635: , p_error_status => Error_Handler.G_STATUS_ERROR
13636: , p_error_scope => Error_Handler.G_SCOPE_ALL
13637: , p_error_level => Error_Handler.G_BO_LEVEL
13638: , p_other_message => l_other_message
13639: , p_other_status => Error_Handler.G_STATUS_ERROR
13640: , p_other_token_tbl => l_other_token_tbl
13633: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
13634: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl --L1
13635: , p_error_status => Error_Handler.G_STATUS_ERROR
13636: , p_error_scope => Error_Handler.G_SCOPE_ALL
13637: , p_error_level => Error_Handler.G_BO_LEVEL
13638: , p_other_message => l_other_message
13639: , p_other_status => Error_Handler.G_STATUS_ERROR
13640: , p_other_token_tbl => l_other_token_tbl
13641: , x_eco_rec => l_eco_rec
13635: , p_error_status => Error_Handler.G_STATUS_ERROR
13636: , p_error_scope => Error_Handler.G_SCOPE_ALL
13637: , p_error_level => Error_Handler.G_BO_LEVEL
13638: , p_other_message => l_other_message
13639: , p_other_status => Error_Handler.G_STATUS_ERROR
13640: , p_other_token_tbl => l_other_token_tbl
13641: , x_eco_rec => l_eco_rec
13642: , x_eco_revision_tbl => x_eco_revision_tbl
13643: , x_change_line_tbl => x_change_line_tbl -- Eng Change
13668: --x_change_line_tbl := l_change_line_tbl ; -- Eng Change
13669:
13670: WHEN EXC_FAT_QUIT_OBJECT THEN
13671:
13672: Eco_Error_Handler.Log_Error
13673: ( p_eco_revision_tbl => x_eco_revision_tbl
13674: , p_change_line_tbl => x_change_line_tbl -- Eng Change
13675: , p_revised_item_tbl => x_revised_item_tbl
13676: , p_rev_component_tbl => x_rev_component_tbl
13679: , p_rev_operation_tbl => x_rev_operation_tbl --L1
13680: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
13681: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
13682: , p_mesg_token_tbl => l_mesg_token_tbl
13683: , p_error_status => Error_Handler.G_STATUS_FATAL
13684: , p_error_scope => Error_Handler.G_SCOPE_ALL
13685: , p_other_status => Error_Handler.G_STATUS_FATAL
13686: , p_other_message => l_other_message
13687: , p_other_token_tbl => l_other_token_tbl
13680: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
13681: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
13682: , p_mesg_token_tbl => l_mesg_token_tbl
13683: , p_error_status => Error_Handler.G_STATUS_FATAL
13684: , p_error_scope => Error_Handler.G_SCOPE_ALL
13685: , p_other_status => Error_Handler.G_STATUS_FATAL
13686: , p_other_message => l_other_message
13687: , p_other_token_tbl => l_other_token_tbl
13688: , p_error_level => 2
13681: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
13682: , p_mesg_token_tbl => l_mesg_token_tbl
13683: , p_error_status => Error_Handler.G_STATUS_FATAL
13684: , p_error_scope => Error_Handler.G_SCOPE_ALL
13685: , p_other_status => Error_Handler.G_STATUS_FATAL
13686: , p_other_message => l_other_message
13687: , p_other_token_tbl => l_other_token_tbl
13688: , p_error_level => 2
13689: , p_entity_index => I
13713: l_return_status := 'Q';
13714:
13715: WHEN EXC_UNEXP_SKIP_OBJECT THEN
13716:
13717: Eco_Error_Handler.Log_Error
13718: ( p_eco_revision_tbl => x_eco_revision_tbl
13719: , p_change_line_tbl => x_change_line_tbl -- Eng Change
13720: , p_revised_item_tbl => x_revised_item_tbl
13721: , p_rev_component_tbl => x_rev_component_tbl
13724: , p_rev_operation_tbl => x_rev_operation_tbl --L1
13725: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
13726: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
13727: , p_mesg_token_tbl => l_mesg_token_tbl
13728: , p_error_status => Error_Handler.G_STATUS_UNEXPECTED
13729: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
13730: , p_other_message => l_other_message
13731: , p_other_token_tbl => l_other_token_tbl
13732: , p_error_level => 2
13725: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
13726: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
13727: , p_mesg_token_tbl => l_mesg_token_tbl
13728: , p_error_status => Error_Handler.G_STATUS_UNEXPECTED
13729: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
13730: , p_other_message => l_other_message
13731: , p_other_token_tbl => l_other_token_tbl
13732: , p_error_level => 2
13733: , x_ECO_rec => l_ECO_rec
13792: p_change_id IN NUMBER,
13793: p_change_type_id IN NUMBER,
13794: p_user_id IN NUMBER,
13795: p_login_id IN NUMBER,
13796: x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type,
13797: x_return_status IN OUT NOCOPY VARCHAR2 )
13798: IS
13799:
13800: l_lifecycle_status_id NUMBER;
13799:
13800: l_lifecycle_status_id NUMBER;
13801: l_return_status VARCHAR2(1);
13802: l_err_text VARCHAR2(2000) ;
13803: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
13804:
13805: /* Cursor to Fetch all the life cycle Statuses for corresponding Type. */
13806: CURSOR c_lifecycle_statuses IS
13807: SELECT *
13890: WHEN OTHERS THEN
13891:
13892: IF BOM_Globals.Get_Debug = 'Y'
13893: THEN
13894: Error_Handler.Write_Debug('Unexpected Error occured in Insert in Create_Change_Lifecycle . . .' || SQLERRM);
13895: END IF;
13896:
13897: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
13898: THEN
13897: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
13898: THEN
13899: l_err_text := G_PKG_NAME||' : Utility (Create_Change_Lifecycle Lifecycle Insert) '||SUBSTR(SQLERRM, 1, 200);
13900:
13901: Error_Handler.Add_Error_Token
13902: ( p_message_name => NULL
13903: , p_message_text => l_err_text
13904: , p_mesg_token_tbl => l_mesg_token_tbl
13905: , x_mesg_token_tbl => l_mesg_token_tbl
13906: );
13907: END IF ;
13908:
13909: -- Return the status and message table.
13910: x_return_status := Error_Handler.G_STATUS_UNEXPECTED;
13911: x_mesg_token_tbl := l_mesg_token_tbl ;
13912:
13913: END Create_Change_Lifecycle;
13914:
13917: , p_change_type_id IN NUMBER
13918: , p_organization_id IN NUMBER
13919: , p_transaction_type IN VARCHAR2
13920: , p_approval_status_type IN NUMBER -- Bug 3436684
13921: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
13922: , x_return_status OUT NOCOPY VARCHAR2
13923: )
13924: IS
13925:
13978: v_assignee_type VARCHAR2(80);
13979: l_change_line_rec Eng_Eco_Pub.Change_Line_Rec_Type;
13980: l_change_line_unexp_rec Eng_Eco_Pub.Change_Line_Unexposed_Rec_Type;
13981: l_dest_change_id NUMBER;
13982: l_msg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
13983: l_Return_Status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
13984: l_sql_stmt VARCHAR2(1000);
13985:
13986: BEGIN
14031: l_change_line_unexp_rec.assignee_id := NULL;
14032: WHEN OTHERS THEN
14033: IF BOM_Globals.Get_Debug = 'Y'
14034: THEN
14035: Error_Handler.Write_Debug('Unexpected Error occured in Insert . . .' || SQLERRM);
14036: END IF;
14037: END;*/
14038: /*OPEN c_grp_assignee(change_line.default_assignee_id);
14039: FETCH c_grp_assignee INTO v_assignee_id;
14070:
14071: PROCEDURE Create_Relation(
14072: p_change_id IN NUMBER
14073: , p_organization_id IN NUMBER
14074: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
14075: , x_return_status OUT NOCOPY VARCHAR2
14076: )
14077: is
14078: -- Error Handlig Variables
14077: is
14078: -- Error Handlig Variables
14079: l_return_status VARCHAR2(1);
14080: l_err_text VARCHAR2(2000) ;
14081: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
14082: l_new_prop_relation NUMBER;
14083: begin
14084:
14085: select ENG_CHANGE_OBJ_RELATIONSHIPS_S.nextval
14121:
14122: EXCEPTION
14123:
14124: WHEN OTHERS THEN
14125: IF BOM_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
14126: ('Unexpected Error occured in Insert . . .' || SQLERRM);
14127: END IF;
14128:
14129:
14132: THEN
14133: l_err_text := G_PKG_NAME || ' : Utility (Relationship Insert) ' ||
14134: SUBSTR(SQLERRM, 1, 200);
14135:
14136: Error_Handler.Add_Error_Token
14137: ( p_message_name => NULL
14138: , p_message_text => l_err_text
14139: , p_mesg_token_tbl => l_mesg_token_tbl
14140: , x_mesg_token_tbl => l_mesg_token_tbl
14180: , x_sub_component_tbl IN OUT NOCOPY BOM_BO_PUB.Sub_Component_Tbl_Type
14181: , x_rev_operation_tbl IN OUT NOCOPY Bom_Rtg_Pub.Rev_Operation_Tbl_Type --L1--
14182: , x_rev_op_resource_tbl IN OUT NOCOPY Bom_Rtg_Pub.Rev_Op_Resource_Tbl_Type --L1--
14183: , x_rev_sub_resource_tbl IN OUT NOCOPY Bom_Rtg_Pub.Rev_Sub_Resource_Tbl_Type --L1--
14184: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
14185: , x_return_status OUT NOCOPY VARCHAR2
14186: , x_disable_revision OUT NOCOPY NUMBER --Bug no:3034642
14187: )
14188: IS
14186: , x_disable_revision OUT NOCOPY NUMBER --Bug no:3034642
14187: )
14188: IS
14189:
14190: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
14191: l_other_token_tbl Error_Handler.Token_Tbl_Type;
14192: l_other_message VARCHAR2(50);
14193: l_err_text VARCHAR2(2000);
14194: l_valid BOOLEAN := TRUE;
14187: )
14188: IS
14189:
14190: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
14191: l_other_token_tbl Error_Handler.Token_Tbl_Type;
14192: l_other_message VARCHAR2(50);
14193: l_err_text VARCHAR2(2000);
14194: l_valid BOOLEAN := TRUE;
14195: l_Return_Status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
14230: -- Bug 2916558 // kamohan
14231: -- End Changes
14232:
14233: l_return_value NUMBER;
14234: l_Token_Tbl Error_Handler.Token_Tbl_Type;
14235:
14236: EXC_SEV_QUIT_RECORD EXCEPTION;
14237: EXC_SEV_QUIT_BRANCH EXCEPTION;
14238: EXC_SEV_SKIP_BRANCH EXCEPTION;
14300: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
14301: );
14302: IF NOT l_valid
14303: THEN
14304: l_return_status := Error_Handler.G_STATUS_ERROR;
14305: RAISE EXC_SEV_QUIT_RECORD;
14306: END IF;
14307:
14308:
14318: , x_eco_unexp_rec => l_old_eco_unexp_rec
14319: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
14320: , x_return_status => l_Return_Status
14321: );
14322: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
14323:
14324: IF l_return_status = Error_Handler.G_STATUS_ERROR
14325: THEN
14326: l_other_message := 'ENG_ECO_EXS_SEV_ERROR';
14320: , x_return_status => l_Return_Status
14321: );
14322: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
14323:
14324: IF l_return_status = Error_Handler.G_STATUS_ERROR
14325: THEN
14326: l_other_message := 'ENG_ECO_EXS_SEV_ERROR';
14327: l_other_token_tbl(1).token_name := 'ECO_NAME';
14328: l_other_token_tbl(1).token_value := l_ECO_rec.ECO_Name;
14326: l_other_message := 'ENG_ECO_EXS_SEV_ERROR';
14327: l_other_token_tbl(1).token_name := 'ECO_NAME';
14328: l_other_token_tbl(1).token_value := l_ECO_rec.ECO_Name;
14329: RAISE EXC_SEV_QUIT_BRANCH;
14330: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
14331: THEN
14332: l_other_message := 'ENG_ECO_EXS_UNEXP_SKIP';
14333: l_other_token_tbl(1).token_name := 'ECO_NAME';
14334: l_other_token_tbl(1).token_value := l_ECO_rec.ECO_Name;
14353: ,P_eco_unexp_rec => l_eco_unexp_rec
14354: ,x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
14355: ,x_return_status => l_return_status
14356: );
14357: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
14358:
14359: IF l_return_status = Error_Handler.G_STATUS_ERROR
14360: THEN
14361: IF l_ECO_rec.transaction_type = 'CREATE'
14355: ,x_return_status => l_return_status
14356: );
14357: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
14358:
14359: IF l_return_status = Error_Handler.G_STATUS_ERROR
14360: THEN
14361: IF l_ECO_rec.transaction_type = 'CREATE'
14362: THEN
14363: l_other_message := 'ENG_ECO_CHGVID_CSEV_SKIP';
14366: RAISE EXC_SEV_SKIP_BRANCH;
14367: ELSE
14368: RAISE EXC_SEV_QUIT_RECORD;
14369: END IF;
14370: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
14371: THEN
14372: l_other_message := 'ENG_ECO_CHGVID_UNEXP_SKIP';
14373: l_other_token_tbl(1).token_name := 'ECO_NAME';
14374: l_other_token_tbl(1).token_value := l_ECO_rec.ECO_Name;
14414:
14415: -- If it is PLM CO and when the user tries to change the change order type
14416: -- raise an error and stop processing the record
14417: IF ( NVL(chk_co_type.change_order_type, '***') <> l_eco_rec.change_type_code AND chk_co_type.assignee_id IS NOT NULL) THEN
14418: l_return_status := error_handler.g_status_error;
14419: error_handler.add_error_token (p_message_name => 'ENG_CHG_ORD_TYP_CNUPD',
14420: p_mesg_token_tbl => l_mesg_token_tbl,
14421: x_mesg_token_tbl => l_mesg_token_tbl,
14422: p_token_tbl => l_token_tbl
14415: -- If it is PLM CO and when the user tries to change the change order type
14416: -- raise an error and stop processing the record
14417: IF ( NVL(chk_co_type.change_order_type, '***') <> l_eco_rec.change_type_code AND chk_co_type.assignee_id IS NOT NULL) THEN
14418: l_return_status := error_handler.g_status_error;
14419: error_handler.add_error_token (p_message_name => 'ENG_CHG_ORD_TYP_CNUPD',
14420: p_mesg_token_tbl => l_mesg_token_tbl,
14421: x_mesg_token_tbl => l_mesg_token_tbl,
14422: p_token_tbl => l_token_tbl
14423: );
14426: END IF;
14427: -- Bug 2916558 // kamohan
14428: -- End Changes
14429:
14430: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
14431:
14432: IF l_return_status = Error_Handler.G_STATUS_ERROR
14433: THEN
14434: l_other_message := 'ENG_ECO_ACCESS_FAT_FATAL';
14428: -- End Changes
14429:
14430: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
14431:
14432: IF l_return_status = Error_Handler.G_STATUS_ERROR
14433: THEN
14434: l_other_message := 'ENG_ECO_ACCESS_FAT_FATAL';
14435: l_other_token_tbl(1).token_name := 'ECO_NAME';
14436: l_other_token_tbl(1).token_value := l_ECO_rec.ECO_Name;
14435: l_other_token_tbl(1).token_name := 'ECO_NAME';
14436: l_other_token_tbl(1).token_value := l_ECO_rec.ECO_Name;
14437: l_return_status := 'F';
14438: RAISE EXC_FAT_QUIT_OBJECT;
14439: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
14440: THEN
14441: l_other_message := 'ENG_ECO_ACCESS_UNEXP_SKIP';
14442: l_other_token_tbl(1).token_name := 'ECO_NAME';
14443: l_other_token_tbl(1).token_value := l_ECO_rec.ECO_Name;
14446:
14447: -- Process Flow step 6: Value-to-ID conversions
14448: --
14449:
14450: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Value-Id conversions'); END IF;
14451:
14452: ENG_Val_To_Id.ECO_Header_VID
14453: ( x_Return_Status => l_return_status
14454: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
14455: , p_ECO_Rec => l_ECO_Rec
14456: , p_ECO_Unexp_Rec => l_ECO_Unexp_Rec
14457: , x_ECO_Unexp_Rec => l_ECO_Unexp_Rec
14458: );
14459: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
14460:
14461: IF l_return_status = Error_Handler.G_STATUS_ERROR
14462: THEN
14463: IF l_ECO_rec.transaction_type = 'CREATE'
14457: , x_ECO_Unexp_Rec => l_ECO_Unexp_Rec
14458: );
14459: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
14460:
14461: IF l_return_status = Error_Handler.G_STATUS_ERROR
14462: THEN
14463: IF l_ECO_rec.transaction_type = 'CREATE'
14464: THEN
14465: l_other_message := 'ENG_ECO_VID_CSEV_SKIP';
14468: RAISE EXC_SEV_SKIP_BRANCH;
14469: ELSE
14470: RAISE EXC_SEV_QUIT_RECORD;
14471: END IF;
14472: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
14473: THEN
14474: l_other_message := 'ENG_ECO_VID_UNEXP_SKIP';
14475: l_other_token_tbl(1).token_name := 'ECO_NAME';
14476: l_other_token_tbl(1).token_value := l_ECO_rec.ECO_Name;
14477: RAISE EXC_UNEXP_SKIP_OBJECT;
14478: ELSIF l_return_status ='S' AND
14479: l_Mesg_Token_Tbl.COUNT <>0
14480: THEN
14481: Eco_Error_Handler.Log_Error
14482: ( p_ECO_rec => l_ECO_rec
14483: , p_eco_revision_tbl => l_eco_revision_tbl
14484: , p_change_line_tbl => l_change_line_tbl -- Eng Change
14485: , p_revised_item_tbl => l_revised_item_tbl
14510:
14511: IF l_ECO_rec.transaction_type IN
14512: (ENG_GLOBALS.G_OPR_UPDATE, ENG_GLOBALS.G_OPR_CREATE)
14513: THEN
14514: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Attribute validation'); END IF;
14515:
14516: ENG_Validate_ECO.Check_Attributes
14517: ( x_return_status => l_return_status
14518: , x_err_text => l_err_text
14523: , p_old_Unexp_ECO_rec => l_Old_ECO_Unexp_Rec
14524: , p_change_line_tbl => l_change_line_tbl --Bug no:2908248
14525: , p_revised_item_tbl => l_revised_item_tbl --Bug 2908248
14526: );
14527: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
14528:
14529: IF l_return_status = Error_Handler.G_STATUS_ERROR
14530: THEN
14531: IF l_ECO_rec.transaction_type = 'CREATE'
14525: , p_revised_item_tbl => l_revised_item_tbl --Bug 2908248
14526: );
14527: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
14528:
14529: IF l_return_status = Error_Handler.G_STATUS_ERROR
14530: THEN
14531: IF l_ECO_rec.transaction_type = 'CREATE'
14532: THEN
14533: l_other_message := 'ENG_ECO_ATTVAL_CSEV_SKIP';
14536: RAISE EXC_SEV_SKIP_BRANCH;
14537: ELSE
14538: RAISE EXC_SEV_QUIT_RECORD;
14539: END IF;
14540: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
14541: THEN
14542: l_other_message := 'ENG_ECO_ATTVAL_UNEXP_SKIP';
14543: l_other_token_tbl(1).token_name := 'ECO_NAME';
14544: l_other_token_tbl(1).token_value := l_ECO_rec.ECO_Name;
14546: RAISE EXC_UNEXP_SKIP_OBJECT;
14547: ELSIF l_return_status ='S' AND
14548: l_Mesg_Token_Tbl.COUNT <>0
14549: THEN
14550: Eco_Error_Handler.Log_Error
14551: ( p_ECO_rec => l_ECO_rec
14552: , p_eco_revision_tbl => l_eco_revision_tbl
14553: , p_change_line_tbl => l_change_line_tbl -- Eng Change
14554: , p_revised_item_tbl => l_revised_item_tbl
14581:
14582: -- Process flow step 8 - Populate NULL columns for Update and
14583: -- Delete.
14584:
14585: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Populating NULL Columns'); END IF;
14586: Eng_Default_ECO.Populate_NULL_Columns
14587: ( p_ECO_rec => l_ECO_Rec
14588: , p_Unexp_ECO_rec => l_ECO_Unexp_Rec
14589: , p_Old_ECO_rec => l_Old_ECO_Rec
14595: ELSIF l_ECO_Rec.Transaction_Type = ENG_GLOBALS.G_OPR_CREATE THEN
14596:
14597: -- Process Flow step 9: Default missing values for Operation CREATE
14598:
14599: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Attribute Defaulting'); END IF;
14600: Eng_Default_ECO.Attribute_Defaulting
14601: ( p_ECO_rec => l_ECO_Rec
14602: , p_Unexp_ECO_Rec => l_ECO_Unexp_Rec
14603: , x_ECO_rec => l_ECO_Rec
14605: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
14606: , x_return_status => l_Return_Status
14607: );
14608:
14609: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
14610:
14611: IF l_return_status = Error_Handler.G_STATUS_ERROR
14612: THEN
14613: IF l_ECO_rec.transaction_type = 'CREATE'
14607: );
14608:
14609: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
14610:
14611: IF l_return_status = Error_Handler.G_STATUS_ERROR
14612: THEN
14613: IF l_ECO_rec.transaction_type = 'CREATE'
14614: THEN
14615: l_other_message := 'ENG_ECO_ATTDEF_CSEV_SKIP';
14618: RAISE EXC_SEV_SKIP_BRANCH;
14619: ELSE
14620: RAISE EXC_SEV_QUIT_RECORD;
14621: END IF;
14622: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
14623: THEN
14624: l_other_message := 'ENG_ECO_ATTDEF_UNEXP_SKIP';
14625: l_other_token_tbl(1).token_name := 'ECO_NAME';
14626: l_other_token_tbl(1).token_value := l_ECO_rec.ECO_Name;
14627: RAISE EXC_UNEXP_SKIP_OBJECT;
14628: ELSIF l_return_status ='S' AND
14629: l_Mesg_Token_Tbl.COUNT <>0
14630: THEN
14631: Eco_Error_Handler.Log_Error
14632: ( p_ECO_rec => l_ECO_rec
14633: , p_eco_revision_tbl => l_eco_revision_tbl
14634: , p_change_line_tbl => l_change_line_tbl -- Eng Change
14635: , p_revised_item_tbl => l_revised_item_tbl
14656: END IF;
14657: END IF;
14658:
14659: -- Process Flow step 10 - Check Conditionally Required Fields
14660: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check conditionally required attributes'); END IF;
14661: ENG_Validate_ECO.Conditionally_Required
14662: ( x_return_status => l_return_status
14663: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
14664: , p_ECO_rec => l_ECO_rec
14665: , p_Unexp_ECO_rec => l_ECO_Unexp_Rec
14666: , p_old_ECO_rec => l_old_ECO_rec
14667: , p_old_Unexp_ECO_rec => l_old_ECO_unexp_rec
14668: );
14669: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
14670:
14671: IF l_return_status = Error_Handler.G_STATUS_ERROR
14672: THEN
14673: IF l_ECO_rec.transaction_type = 'CREATE'
14667: , p_old_Unexp_ECO_rec => l_old_ECO_unexp_rec
14668: );
14669: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
14670:
14671: IF l_return_status = Error_Handler.G_STATUS_ERROR
14672: THEN
14673: IF l_ECO_rec.transaction_type = 'CREATE'
14674: THEN
14675: l_other_message := 'ENG_ECO_CONREQ_CSEV_SKIP';
14678: RAISE EXC_SEV_SKIP_BRANCH;
14679: ELSE
14680: RAISE EXC_SEV_QUIT_RECORD;
14681: END IF;
14682: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
14683: THEN
14684: l_other_message := 'ENG_ECO_CONREQ_UNEXP_SKIP';
14685: l_other_token_tbl(1).token_name := 'ECO_NAME';
14686: l_other_token_tbl(1).token_value := l_ECO_rec.ECO_Name;
14687: RAISE EXC_UNEXP_SKIP_OBJECT;
14688: ELSIF l_return_status ='S' AND
14689: l_Mesg_Token_Tbl.COUNT <>0
14690: THEN
14691: Eco_Error_Handler.Log_Error
14692: ( p_ECO_rec => l_ECO_rec
14693: , p_eco_revision_tbl => l_eco_revision_tbl
14694: , p_change_line_tbl => l_change_line_tbl -- Eng Change
14695: , p_revised_item_tbl => l_revised_item_tbl
14715: );
14716: END IF;
14717:
14718: -- Process Flow step 11 - Entity Level Defaulting
14719: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Entity Defaulting'); END IF;
14720: ENG_Default_ECO.Entity_Defaulting
14721: ( p_ECO_rec => l_ECO_rec
14722: , p_Unexp_ECO_rec => l_ECO_unexp_rec
14723: , p_Old_ECO_rec => l_old_ECO_rec
14726: , x_Unexp_ECO_rec => l_ECO_unexp_rec
14727: , x_return_status => l_return_status
14728: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
14729: );
14730: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
14731:
14732: IF l_return_status = Error_Handler.G_STATUS_ERROR
14733: THEN
14734: IF l_ECO_rec.transaction_type = 'CREATE'
14728: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
14729: );
14730: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
14731:
14732: IF l_return_status = Error_Handler.G_STATUS_ERROR
14733: THEN
14734: IF l_ECO_rec.transaction_type = 'CREATE'
14735: THEN
14736: l_other_message := 'ENG_ECO_ENTDEF_CSEV_SKIP';
14739: RAISE EXC_SEV_SKIP_BRANCH;
14740: ELSE
14741: RAISE EXC_SEV_QUIT_RECORD;
14742: END IF;
14743: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
14744: THEN
14745: l_other_message := 'ENG_ECO_ENTDEF_UNEXP_SKIP';
14746: l_other_token_tbl(1).token_name := 'ECO_NAME';
14747: l_other_token_tbl(1).token_value := l_ECO_rec.ECO_Name;
14748: RAISE EXC_UNEXP_SKIP_OBJECT;
14749: ELSIF l_return_status ='S' AND
14750: l_Mesg_Token_Tbl.COUNT <>0
14751: THEN
14752: Eco_Error_Handler.Log_Error
14753: ( p_ECO_rec => l_ECO_rec
14754: , p_eco_revision_tbl => l_eco_revision_tbl
14755: , p_change_line_tbl => l_change_line_tbl -- Eng Change
14756: , p_revised_item_tbl => l_revised_item_tbl
14779: -- Process Flow step 12 - Entity Level Validation
14780:
14781: IF l_eco_rec.transaction_type = 'DELETE'
14782: THEN
14783: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Calling Check_Delete...'); END IF;
14784: ENG_Validate_ECO.Check_Delete
14785: ( p_eco_rec => l_eco_rec
14786: , p_Unexp_ECO_rec => l_ECO_Unexp_Rec
14787: , x_return_status => l_return_status
14789: );
14790: END IF;
14791:
14792:
14793: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Entity validation'); END IF;
14794: Eng_Validate_ECO.Check_Entity
14795: ( x_return_status => l_Return_Status
14796: , x_err_text => l_err_text
14797: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
14800: , p_old_ECO_rec => l_old_ECO_rec
14801: , p_old_unexp_ECO_rec => l_old_ECO_unexp_rec
14802: );
14803:
14804: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
14805:
14806: IF l_return_status = Error_Handler.G_STATUS_ERROR
14807: THEN
14808: IF l_ECO_rec.transaction_type = 'CREATE'
14802: );
14803:
14804: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
14805:
14806: IF l_return_status = Error_Handler.G_STATUS_ERROR
14807: THEN
14808: IF l_ECO_rec.transaction_type = 'CREATE'
14809: THEN
14810: l_other_message := 'ENG_ECO_ENTVAL_CSEV_SKIP';
14813: RAISE EXC_SEV_SKIP_BRANCH;
14814: ELSE
14815: RAISE EXC_SEV_QUIT_RECORD;
14816: END IF;
14817: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
14818: THEN
14819: l_other_message := 'ENG_ECO_ENTVAL_UNEXP_SKIP';
14820: l_other_token_tbl(1).token_name := 'ECO_NAME';
14821: l_other_token_tbl(1).token_value := l_ECO_rec.ECO_Name;
14822: RAISE EXC_UNEXP_SKIP_OBJECT;
14823: ELSIF l_return_status ='S' AND
14824: l_Mesg_Token_Tbl.COUNT <>0
14825: THEN
14826: Eco_Error_Handler.Log_Error
14827: ( p_ECO_rec => l_ECO_rec
14828: , p_eco_revision_tbl => l_eco_revision_tbl
14829: , p_change_line_tbl => l_change_line_tbl -- Eng Change
14830: , p_revised_item_tbl => l_revised_item_tbl
14851: END IF;
14852:
14853: -- Process Flow step 13 : Database Writes
14854: SAVEPOINT EngEcoPvt_Eco_Header; -- bug 3572721
14855: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Writing to the database'); END IF;
14856: ENG_ECO_Util.Perform_Writes
14857: ( p_ECO_rec => l_ECO_rec
14858: , p_Unexp_ECO_rec => l_ECO_unexp_rec
14859: , p_old_ECO_rec => l_old_ECO_rec
14860: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
14861: , x_return_status => l_return_status
14862: );
14863:
14864: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
14865:
14866: IF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
14867: THEN
14868: l_other_message := 'ENG_ECO_WRITES_UNEXP_SKIP';
14862: );
14863:
14864: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
14865:
14866: IF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
14867: THEN
14868: l_other_message := 'ENG_ECO_WRITES_UNEXP_SKIP';
14869: l_other_token_tbl(1).token_name := 'ECO_NAME';
14870: l_other_token_tbl(1).token_value := l_ECO_rec.ECO_Name;
14871: RAISE EXC_UNEXP_SKIP_OBJECT;
14872: ELSIF l_return_status ='S' AND
14873: l_Mesg_Token_Tbl.COUNT <>0
14874: THEN
14875: Eco_Error_Handler.Log_Error
14876: ( p_ECO_rec => l_ECO_rec
14877: , p_eco_revision_tbl => l_eco_revision_tbl
14878: , p_change_line_tbl => l_change_line_tbl -- Eng Change
14879: , p_revised_item_tbl => l_revised_item_tbl
14911: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl --bug 3572721
14912: , x_return_status => l_return_status);
14913:
14914: -- Added subjects error Handling for bug 3572721
14915: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Subjects created with status ' || l_return_status);
14916: END IF;
14917: IF l_return_status = Error_Handler.G_STATUS_ERROR
14918: THEN
14919: Rollback TO EngEcoPvt_Eco_Header; -- bug 3572721
14913:
14914: -- Added subjects error Handling for bug 3572721
14915: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Subjects created with status ' || l_return_status);
14916: END IF;
14917: IF l_return_status = Error_Handler.G_STATUS_ERROR
14918: THEN
14919: Rollback TO EngEcoPvt_Eco_Header; -- bug 3572721
14920: RAISE EXC_SEV_SKIP_BRANCH;
14921: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
14917: IF l_return_status = Error_Handler.G_STATUS_ERROR
14918: THEN
14919: Rollback TO EngEcoPvt_Eco_Header; -- bug 3572721
14920: RAISE EXC_SEV_SKIP_BRANCH;
14921: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
14922: THEN
14923: l_other_message := 'ENG_ECO_WRITES_UNEXP_SKIP';
14924: l_other_token_tbl(1).token_name := 'ECO_NAME';
14925: l_other_token_tbl(1).token_value := l_ECO_rec.ECO_Name;
14953: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl --bug 3572721
14954: , x_return_status => l_return_status);
14955:
14956: -- Added subjects error Handling for bug 3572721
14957: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Subjects created with status ' || l_return_status);
14958: END IF;
14959: IF l_return_status = Error_Handler.G_STATUS_ERROR
14960: THEN
14961: Rollback TO EngEcoPvt_Eco_Header; -- bug 3572721
14955:
14956: -- Added subjects error Handling for bug 3572721
14957: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Subjects created with status ' || l_return_status);
14958: END IF;
14959: IF l_return_status = Error_Handler.G_STATUS_ERROR
14960: THEN
14961: Rollback TO EngEcoPvt_Eco_Header; -- bug 3572721
14962: RAISE EXC_SEV_SKIP_BRANCH;
14963: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
14959: IF l_return_status = Error_Handler.G_STATUS_ERROR
14960: THEN
14961: Rollback TO EngEcoPvt_Eco_Header; -- bug 3572721
14962: RAISE EXC_SEV_SKIP_BRANCH;
14963: ELSIF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
14964: THEN
14965: l_other_message := 'ENG_ECO_WRITES_UNEXP_SKIP';
14966: l_other_token_tbl(1).token_name := 'ECO_NAME';
14967: l_other_token_tbl(1).token_value := l_ECO_rec.ECO_Name;
15001: , p_login_id => l_login_id
15002: , x_Mesg_Token_Tbl => l_mesg_token_tbl
15003: , x_return_status => l_return_status);
15004:
15005: IF (l_return_status = Error_Handler.G_STATUS_UNEXPECTED)
15006: THEN
15007: l_other_message := 'ENG_ECO_WRITES_UNEXP_SKIP';
15008: l_other_token_tbl(1).token_name := 'ECO_NAME';
15009: l_other_token_tbl(1).token_value := l_ECO_rec.ECO_Name;
15031: || '); END;';
15032: EXECUTE IMMEDIATE l_plsql_block USING IN 1.0, IN l_eco_unexp_rec.change_id,
15033: OUT l_return_status, OUT l_pls_msg_count, OUT l_pls_msg_data, IN 'CP';
15034:
15035: IF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
15036: THEN
15037: l_other_message := 'ENG_ECO_WRITES_UNEXP_SKIP';
15038: l_other_token_tbl(1).token_name := 'ECO_NAME';
15039: l_other_token_tbl(1).token_value := l_ECO_rec.ECO_Name;
15042: THEN
15043:
15044: FOR I IN 1..l_pls_msg_count
15045: LOOP
15046: Error_Handler.Add_Error_Token
15047: ( p_Message_Text => FND_MSG_PUB.get(I, 'F')
15048: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
15049: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
15050: );
15049: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
15050: );
15051:
15052: END LOOP;
15053: Eco_Error_Handler.Log_Error
15054: ( p_ECO_rec => l_ECO_rec
15055: , p_eco_revision_tbl => l_eco_revision_tbl
15056: , p_change_line_tbl => l_change_line_tbl -- Eng Change
15057: , p_revised_item_tbl => l_revised_item_tbl
15079: EXCEPTION
15080: WHEN OTHERS THEN
15081: IF Bom_Globals.Get_Debug = 'Y'
15082: THEN
15083: Error_Handler.Write_Debug('Lifecycle initialized with status ' || l_return_status);
15084: END IF;
15085: l_other_message := 'ENG_ECO_WRITES_UNEXP_SKIP';
15086: l_other_token_tbl(1).token_name := 'ECO_NAME';
15087: l_other_token_tbl(1).token_value := l_ECO_rec.ECO_Name;
15116: end if;
15117:
15118:
15119:
15120: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Tasks created with status ' || l_return_status);
15121: END IF;
15122:
15123: IF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
15124: THEN
15119:
15120: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Tasks created with status ' || l_return_status);
15121: END IF;
15122:
15123: IF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
15124: THEN
15125: l_other_message := 'ENG_ECO_WRITES_UNEXP_SKIP';
15126: l_other_token_tbl(1).token_name := 'ECO_NAME';
15127: l_other_token_tbl(1).token_value := l_ECO_rec.ECO_Name;
15128: RAISE EXC_UNEXP_SKIP_OBJECT;
15129: ELSIF l_return_status ='S' AND
15130: l_Mesg_Token_Tbl.COUNT <>0
15131: THEN
15132: Eco_Error_Handler.Log_Error
15133: ( p_ECO_rec => l_ECO_rec
15134: , p_eco_revision_tbl => l_eco_revision_tbl
15135: , p_change_line_tbl => l_change_line_tbl -- Eng Change
15136: , p_revised_item_tbl => l_revised_item_tbl
15159: EXCEPTION
15160:
15161: WHEN EXC_SEV_QUIT_RECORD THEN
15162:
15163: Eco_Error_Handler.Log_Error
15164: ( p_ECO_rec => l_ECO_rec
15165: , p_eco_revision_tbl => l_eco_revision_tbl
15166: , p_change_line_tbl => l_change_line_tbl -- Eng Change
15167: , p_revised_item_tbl => l_revised_item_tbl
15172: , p_rev_op_resource_tbl => l_rev_op_resource_tbl --L1
15173: , p_rev_sub_resource_tbl=> l_rev_sub_resource_tbl --L1
15174: , p_mesg_token_tbl => l_mesg_token_tbl
15175: , p_error_status => FND_API.G_RET_STS_ERROR
15176: , p_error_scope => Error_Handler.G_SCOPE_RECORD
15177: , p_error_level => 1
15178: , x_ECO_rec => l_ECO_rec
15179: , x_eco_revision_tbl => l_eco_revision_tbl
15180: , x_change_line_tbl => l_change_line_tbl -- Eng Change
15201: x_change_line_tbl := l_change_line_tbl ; -- Eng Change
15202:
15203: WHEN EXC_SEV_QUIT_BRANCH THEN
15204:
15205: Eco_Error_Handler.Log_Error
15206: ( p_ECO_rec => l_ECO_rec
15207: , p_eco_revision_tbl => l_eco_revision_tbl
15208: , p_change_line_tbl => l_change_line_tbl -- Eng Change
15209: , p_revised_item_tbl => l_revised_item_tbl
15213: , p_rev_operation_tbl => l_rev_operation_tbl --L1
15214: , p_rev_op_resource_tbl => l_rev_op_resource_tbl --L1
15215: , p_rev_sub_resource_tbl=> l_rev_sub_resource_tbl --L1
15216: , p_mesg_token_tbl => l_mesg_token_tbl
15217: , p_error_status => Error_Handler.G_STATUS_ERROR
15218: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
15219: , p_other_status => Error_Handler.G_STATUS_ERROR
15220: , p_other_message => l_other_message
15221: , p_other_token_tbl => l_other_token_tbl
15214: , p_rev_op_resource_tbl => l_rev_op_resource_tbl --L1
15215: , p_rev_sub_resource_tbl=> l_rev_sub_resource_tbl --L1
15216: , p_mesg_token_tbl => l_mesg_token_tbl
15217: , p_error_status => Error_Handler.G_STATUS_ERROR
15218: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
15219: , p_other_status => Error_Handler.G_STATUS_ERROR
15220: , p_other_message => l_other_message
15221: , p_other_token_tbl => l_other_token_tbl
15222: , p_error_level => 1
15215: , p_rev_sub_resource_tbl=> l_rev_sub_resource_tbl --L1
15216: , p_mesg_token_tbl => l_mesg_token_tbl
15217: , p_error_status => Error_Handler.G_STATUS_ERROR
15218: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
15219: , p_other_status => Error_Handler.G_STATUS_ERROR
15220: , p_other_message => l_other_message
15221: , p_other_token_tbl => l_other_token_tbl
15222: , p_error_level => 1
15223: , x_eco_rec => l_eco_rec
15248: RETURN;
15249:
15250: WHEN EXC_SEV_SKIP_BRANCH THEN
15251:
15252: Eco_Error_Handler.Log_Error
15253: ( p_ECO_rec => l_ECO_rec
15254: , p_eco_revision_tbl => l_eco_revision_tbl
15255: , p_change_line_tbl => l_change_line_tbl -- Eng Change
15256: , p_revised_item_tbl => l_revised_item_tbl
15260: , p_rev_operation_tbl => l_rev_operation_tbl --L1
15261: , p_rev_op_resource_tbl => l_rev_op_resource_tbl --L1
15262: , p_rev_sub_resource_tbl=> l_rev_sub_resource_tbl --L1
15263: , p_mesg_token_tbl => l_mesg_token_tbl
15264: , p_error_status => Error_Handler.G_STATUS_ERROR
15265: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
15266: , p_other_message => l_other_message
15267: , p_other_token_tbl => l_other_token_tbl
15268: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
15261: , p_rev_op_resource_tbl => l_rev_op_resource_tbl --L1
15262: , p_rev_sub_resource_tbl=> l_rev_sub_resource_tbl --L1
15263: , p_mesg_token_tbl => l_mesg_token_tbl
15264: , p_error_status => Error_Handler.G_STATUS_ERROR
15265: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
15266: , p_other_message => l_other_message
15267: , p_other_token_tbl => l_other_token_tbl
15268: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
15269: , p_error_level => 1
15264: , p_error_status => Error_Handler.G_STATUS_ERROR
15265: , p_error_scope => Error_Handler.G_SCOPE_CHILDREN
15266: , p_other_message => l_other_message
15267: , p_other_token_tbl => l_other_token_tbl
15268: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
15269: , p_error_level => 1
15270: , x_ECO_rec => l_ECO_rec
15271: , x_eco_revision_tbl => l_eco_revision_tbl
15272: , x_change_line_tbl => l_change_line_tbl -- Eng Change
15295: RETURN;
15296:
15297: WHEN EXC_FAT_QUIT_OBJECT THEN
15298:
15299: Eco_Error_Handler.Log_Error
15300: ( p_ECO_rec => l_ECO_rec
15301: , p_eco_revision_tbl => l_eco_revision_tbl
15302: , p_change_line_tbl => l_change_line_tbl -- Eng Change
15303: , p_revised_item_tbl => l_revised_item_tbl
15307: , p_mesg_token_tbl => l_mesg_token_tbl
15308: , p_rev_operation_tbl => l_rev_operation_tbl --L1
15309: , p_rev_op_resource_tbl => l_rev_op_resource_tbl --L1
15310: , p_rev_sub_resource_tbl=> l_rev_sub_resource_tbl --L1
15311: , p_error_status => Error_Handler.G_STATUS_FATAL
15312: , p_error_scope => Error_Handler.G_SCOPE_ALL
15313: , p_other_message => l_other_message
15314: , p_other_status => Error_Handler.G_STATUS_FATAL
15315: , p_other_token_tbl => l_other_token_tbl
15308: , p_rev_operation_tbl => l_rev_operation_tbl --L1
15309: , p_rev_op_resource_tbl => l_rev_op_resource_tbl --L1
15310: , p_rev_sub_resource_tbl=> l_rev_sub_resource_tbl --L1
15311: , p_error_status => Error_Handler.G_STATUS_FATAL
15312: , p_error_scope => Error_Handler.G_SCOPE_ALL
15313: , p_other_message => l_other_message
15314: , p_other_status => Error_Handler.G_STATUS_FATAL
15315: , p_other_token_tbl => l_other_token_tbl
15316: , p_error_level => 1
15310: , p_rev_sub_resource_tbl=> l_rev_sub_resource_tbl --L1
15311: , p_error_status => Error_Handler.G_STATUS_FATAL
15312: , p_error_scope => Error_Handler.G_SCOPE_ALL
15313: , p_other_message => l_other_message
15314: , p_other_status => Error_Handler.G_STATUS_FATAL
15315: , p_other_token_tbl => l_other_token_tbl
15316: , p_error_level => 1
15317: , x_ECO_rec => l_ECO_rec
15318: , x_eco_revision_tbl => l_eco_revision_tbl
15340: l_return_status := 'Q';
15341:
15342: WHEN EXC_UNEXP_SKIP_OBJECT THEN
15343:
15344: Eco_Error_Handler.Log_Error
15345: ( p_ECO_rec => l_ECO_rec
15346: , p_eco_revision_tbl => l_eco_revision_tbl
15347: , p_change_line_tbl => l_change_line_tbl -- Eng Change
15348: , p_revised_item_tbl => l_revised_item_tbl
15352: , p_rev_operation_tbl => l_rev_operation_tbl --L1
15353: , p_rev_op_resource_tbl => l_rev_op_resource_tbl --L1
15354: , p_rev_sub_resource_tbl=> l_rev_sub_resource_tbl --L1
15355: , p_mesg_token_tbl => l_mesg_token_tbl
15356: , p_error_status => Error_Handler.G_STATUS_UNEXPECTED
15357: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
15358: , p_other_message => l_other_message
15359: , p_other_token_tbl => l_other_token_tbl
15360: , p_error_level => 1
15353: , p_rev_op_resource_tbl => l_rev_op_resource_tbl --L1
15354: , p_rev_sub_resource_tbl=> l_rev_sub_resource_tbl --L1
15355: , p_mesg_token_tbl => l_mesg_token_tbl
15356: , p_error_status => Error_Handler.G_STATUS_UNEXPECTED
15357: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
15358: , p_other_message => l_other_message
15359: , p_other_token_tbl => l_other_token_tbl
15360: , p_error_level => 1
15361: , x_ECO_rec => l_ECO_rec
15715: l_rev_sub_resource_rec Bom_Rtg_Pub.Rev_Sub_Resource_Rec_Type; -- L1--
15716: l_change_line_rec ENG_Eco_PUB.Change_Line_Rec_Type ; -- Eng Change
15717: l_change_line_tbl ENG_Eco_PUB.Change_Line_Tbl_Type ; -- Eng Change
15718:
15719: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
15720: l_other_message VARCHAR2(2000);
15721: l_other_token_tbl Error_Handler.Token_Tbl_Type;
15722:
15723: EXC_ERR_PVT_API_MAIN EXCEPTION;
15717: l_change_line_tbl ENG_Eco_PUB.Change_Line_Tbl_Type ; -- Eng Change
15718:
15719: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
15720: l_other_message VARCHAR2(2000);
15721: l_other_token_tbl Error_Handler.Token_Tbl_Type;
15722:
15723: EXC_ERR_PVT_API_MAIN EXCEPTION;
15724:
15725: BEGIN
15728:
15729:
15730: -- Standard call to check for call compatibility
15731:
15732: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('The following objects will be processed as part of the same business object'); END IF;
15733: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| ECO : ' || l_ECO_rec.eco_name); END IF;
15734: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| ECO REVISIONS : ' || to_char(p_eco_revision_tbl.COUNT)); END IF;
15735: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| CHANGE LINES : ' || to_char(p_change_line_tbl.COUNT)); END IF;
15736: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| REVISED ITEMS : ' || to_char(p_revised_item_tbl.COUNT)); END IF;
15729:
15730: -- Standard call to check for call compatibility
15731:
15732: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('The following objects will be processed as part of the same business object'); END IF;
15733: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| ECO : ' || l_ECO_rec.eco_name); END IF;
15734: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| ECO REVISIONS : ' || to_char(p_eco_revision_tbl.COUNT)); END IF;
15735: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| CHANGE LINES : ' || to_char(p_change_line_tbl.COUNT)); END IF;
15736: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| REVISED ITEMS : ' || to_char(p_revised_item_tbl.COUNT)); END IF;
15737: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| REVISED COMPS : ' || to_char(p_rev_component_tbl.COUNT)); END IF;
15730: -- Standard call to check for call compatibility
15731:
15732: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('The following objects will be processed as part of the same business object'); END IF;
15733: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| ECO : ' || l_ECO_rec.eco_name); END IF;
15734: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| ECO REVISIONS : ' || to_char(p_eco_revision_tbl.COUNT)); END IF;
15735: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| CHANGE LINES : ' || to_char(p_change_line_tbl.COUNT)); END IF;
15736: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| REVISED ITEMS : ' || to_char(p_revised_item_tbl.COUNT)); END IF;
15737: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| REVISED COMPS : ' || to_char(p_rev_component_tbl.COUNT)); END IF;
15738: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| SUBS. COMPS : ' || to_Char(p_sub_component_tbl.COUNT)); END IF;
15731:
15732: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('The following objects will be processed as part of the same business object'); END IF;
15733: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| ECO : ' || l_ECO_rec.eco_name); END IF;
15734: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| ECO REVISIONS : ' || to_char(p_eco_revision_tbl.COUNT)); END IF;
15735: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| CHANGE LINES : ' || to_char(p_change_line_tbl.COUNT)); END IF;
15736: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| REVISED ITEMS : ' || to_char(p_revised_item_tbl.COUNT)); END IF;
15737: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| REVISED COMPS : ' || to_char(p_rev_component_tbl.COUNT)); END IF;
15738: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| SUBS. COMPS : ' || to_Char(p_sub_component_tbl.COUNT)); END IF;
15739: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| REFD. DESGS : ' || to_char(p_ref_designator_tbl.COUNT)); END IF;
15732: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('The following objects will be processed as part of the same business object'); END IF;
15733: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| ECO : ' || l_ECO_rec.eco_name); END IF;
15734: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| ECO REVISIONS : ' || to_char(p_eco_revision_tbl.COUNT)); END IF;
15735: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| CHANGE LINES : ' || to_char(p_change_line_tbl.COUNT)); END IF;
15736: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| REVISED ITEMS : ' || to_char(p_revised_item_tbl.COUNT)); END IF;
15737: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| REVISED COMPS : ' || to_char(p_rev_component_tbl.COUNT)); END IF;
15738: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| SUBS. COMPS : ' || to_Char(p_sub_component_tbl.COUNT)); END IF;
15739: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| REFD. DESGS : ' || to_char(p_ref_designator_tbl.COUNT)); END IF;
15740:
15733: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| ECO : ' || l_ECO_rec.eco_name); END IF;
15734: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| ECO REVISIONS : ' || to_char(p_eco_revision_tbl.COUNT)); END IF;
15735: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| CHANGE LINES : ' || to_char(p_change_line_tbl.COUNT)); END IF;
15736: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| REVISED ITEMS : ' || to_char(p_revised_item_tbl.COUNT)); END IF;
15737: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| REVISED COMPS : ' || to_char(p_rev_component_tbl.COUNT)); END IF;
15738: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| SUBS. COMPS : ' || to_Char(p_sub_component_tbl.COUNT)); END IF;
15739: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| REFD. DESGS : ' || to_char(p_ref_designator_tbl.COUNT)); END IF;
15740:
15741: --L1--
15734: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| ECO REVISIONS : ' || to_char(p_eco_revision_tbl.COUNT)); END IF;
15735: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| CHANGE LINES : ' || to_char(p_change_line_tbl.COUNT)); END IF;
15736: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| REVISED ITEMS : ' || to_char(p_revised_item_tbl.COUNT)); END IF;
15737: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| REVISED COMPS : ' || to_char(p_rev_component_tbl.COUNT)); END IF;
15738: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| SUBS. COMPS : ' || to_Char(p_sub_component_tbl.COUNT)); END IF;
15739: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| REFD. DESGS : ' || to_char(p_ref_designator_tbl.COUNT)); END IF;
15740:
15741: --L1--
15742: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| OPERATION : ' || to_char(p_rev_operation_tbl.COUNT)); END IF;
15735: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| CHANGE LINES : ' || to_char(p_change_line_tbl.COUNT)); END IF;
15736: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| REVISED ITEMS : ' || to_char(p_revised_item_tbl.COUNT)); END IF;
15737: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| REVISED COMPS : ' || to_char(p_rev_component_tbl.COUNT)); END IF;
15738: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| SUBS. COMPS : ' || to_Char(p_sub_component_tbl.COUNT)); END IF;
15739: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| REFD. DESGS : ' || to_char(p_ref_designator_tbl.COUNT)); END IF;
15740:
15741: --L1--
15742: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| OPERATION : ' || to_char(p_rev_operation_tbl.COUNT)); END IF;
15743: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| RESOURCE : ' || to_char(p_rev_op_resource_tbl.COUNT)); END IF;
15738: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| SUBS. COMPS : ' || to_Char(p_sub_component_tbl.COUNT)); END IF;
15739: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| REFD. DESGS : ' || to_char(p_ref_designator_tbl.COUNT)); END IF;
15740:
15741: --L1--
15742: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| OPERATION : ' || to_char(p_rev_operation_tbl.COUNT)); END IF;
15743: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| RESOURCE : ' || to_char(p_rev_op_resource_tbl.COUNT)); END IF;
15744: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| SUB RESOURCE : ' || to_char(p_rev_sub_resource_tbl.COUNT)); END IF;
15745: --L1--
15746:
15739: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| REFD. DESGS : ' || to_char(p_ref_designator_tbl.COUNT)); END IF;
15740:
15741: --L1--
15742: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| OPERATION : ' || to_char(p_rev_operation_tbl.COUNT)); END IF;
15743: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| RESOURCE : ' || to_char(p_rev_op_resource_tbl.COUNT)); END IF;
15744: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| SUB RESOURCE : ' || to_char(p_rev_sub_resource_tbl.COUNT)); END IF;
15745: --L1--
15746:
15747:
15740:
15741: --L1--
15742: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| OPERATION : ' || to_char(p_rev_operation_tbl.COUNT)); END IF;
15743: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| RESOURCE : ' || to_char(p_rev_op_resource_tbl.COUNT)); END IF;
15744: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| SUB RESOURCE : ' || to_char(p_rev_sub_resource_tbl.COUNT)); END IF;
15745: --L1--
15746:
15747:
15748: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('|----------------------------------------------------'); END IF;
15744: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| SUB RESOURCE : ' || to_char(p_rev_sub_resource_tbl.COUNT)); END IF;
15745: --L1--
15746:
15747:
15748: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('|----------------------------------------------------'); END IF;
15749:
15750: /*------------------------------------
15751: -- Not used
15752:
15812: -- Eco
15813: IF (l_ECO_rec.ECO_Name <> FND_API.G_MISS_CHAR
15814: AND l_ECO_rec.ECO_Name IS NOT NULL)
15815: THEN
15816: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(' '); END IF;
15817: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('PVT API: Calling ECO_Header'); END IF;
15818:
15819: Eco_Header
15820: ( p_validation_level => p_validation_level
15813: IF (l_ECO_rec.ECO_Name <> FND_API.G_MISS_CHAR
15814: AND l_ECO_rec.ECO_Name IS NOT NULL)
15815: THEN
15816: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(' '); END IF;
15817: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('PVT API: Calling ECO_Header'); END IF;
15818:
15819: Eco_Header
15820: ( p_validation_level => p_validation_level
15821: , p_ECO_rec => l_ECO_rec
15841: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
15842: , x_return_status => l_return_status
15843: , x_disable_revision =>x_disable_revision --Bug no:3034642
15844: );
15845: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('eco hdr return status: ' || l_eco_rec.return_status); END IF;
15846:
15847: -- Added by AS on 03/22/99 to fix bug 853529
15848:
15849: IF NVL(l_return_status, 'S') = 'Q'
15861: END IF;
15862:
15863: END IF;
15864:
15865: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('BO error status: ' || l_bo_return_status); END IF;
15866:
15867: -- Eco Revisions
15868: IF l_eco_revision_tbl.Count <> 0
15869: THEN
15866:
15867: -- Eco Revisions
15868: IF l_eco_revision_tbl.Count <> 0
15869: THEN
15870: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(' '); END IF;
15871: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('PVT API: Calling ECO_Rev'); END IF;
15872:
15873: Eco_Rev
15874: ( p_validation_level => p_validation_level
15867: -- Eco Revisions
15868: IF l_eco_revision_tbl.Count <> 0
15869: THEN
15870: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(' '); END IF;
15871: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('PVT API: Calling ECO_Rev'); END IF;
15872:
15873: Eco_Rev
15874: ( p_validation_level => p_validation_level
15875: , p_eco_revision_tbl => l_eco_revision_tbl
15910: END IF;
15911:
15912: END IF;
15913:
15914: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('BO error status: ' || l_bo_return_status); END IF;
15915:
15916:
15917: -- Change Lines
15918: IF l_change_line_tbl.Count <> 0
15916:
15917: -- Change Lines
15918: IF l_change_line_tbl.Count <> 0
15919: THEN
15920: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(' '); END IF;
15921: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('PVT API: Calling Change_Line'); END IF;
15922:
15923: Change_Line
15924: ( p_validation_level => p_validation_level
15917: -- Change Lines
15918: IF l_change_line_tbl.Count <> 0
15919: THEN
15920: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(' '); END IF;
15921: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('PVT API: Calling Change_Line'); END IF;
15922:
15923: Change_Line
15924: ( p_validation_level => p_validation_level
15925: , p_change_line_tbl => l_change_line_tbl -- Eng Change
15956: END IF;
15957:
15958: END IF;
15959:
15960: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('BO error status: ' || l_bo_return_status); END IF;
15961:
15962: -- Revised Items
15963:
15964: IF p_revised_item_tbl.COUNT <> 0
15962: -- Revised Items
15963:
15964: IF p_revised_item_tbl.COUNT <> 0
15965: THEN
15966: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(' '); END IF;
15967: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('PVT API: Calling Rev_Items'); END IF;
15968:
15969: Rev_Items
15970: ( p_validation_level => p_validation_level
15963:
15964: IF p_revised_item_tbl.COUNT <> 0
15965: THEN
15966: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(' '); END IF;
15967: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('PVT API: Calling Rev_Items'); END IF;
15968:
15969: Rev_Items
15970: ( p_validation_level => p_validation_level
15971: , p_revised_item_tbl => l_revised_item_tbl
16007: END IF;
16008:
16009: END IF;
16010:
16011: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('BO error status: ' || l_bo_return_status); END IF;
16012:
16013: -- Revised Components
16014:
16015: IF l_rev_component_tbl.Count <> 0
16013: -- Revised Components
16014:
16015: IF l_rev_component_tbl.Count <> 0
16016: THEN
16017: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(' '); END IF;
16018: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('PVT API: Calling Rev_Comps'); END IF;
16019:
16020: Rev_Comps
16021: ( p_validation_level => p_validation_level
16014:
16015: IF l_rev_component_tbl.Count <> 0
16016: THEN
16017: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(' '); END IF;
16018: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('PVT API: Calling Rev_Comps'); END IF;
16019:
16020: Rev_Comps
16021: ( p_validation_level => p_validation_level
16022: , p_rev_component_tbl => l_rev_component_tbl
16045: END IF;
16046:
16047: END IF;
16048:
16049: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('BO error status: ' || l_bo_return_status); END IF;
16050:
16051: -- Reference Designators
16052:
16053: IF l_ref_designator_tbl.Count <> 0
16051: -- Reference Designators
16052:
16053: IF l_ref_designator_tbl.Count <> 0
16054: THEN
16055: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(' '); END IF;
16056: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('PVT API: Calling Ref_Desgs'); END IF;
16057:
16058: Ref_Desgs
16059: ( p_validation_level => p_validation_level
16052:
16053: IF l_ref_designator_tbl.Count <> 0
16054: THEN
16055: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(' '); END IF;
16056: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('PVT API: Calling Ref_Desgs'); END IF;
16057:
16058: Ref_Desgs
16059: ( p_validation_level => p_validation_level
16060: , p_ref_designator_tbl => l_ref_designator_tbl
16081: END IF;
16082:
16083: END IF;
16084:
16085: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('BO error status: ' || l_bo_return_status); END IF;
16086:
16087: -- Substitute Components
16088:
16089: IF l_Sub_Component_Tbl.Count <> 0
16087: -- Substitute Components
16088:
16089: IF l_Sub_Component_Tbl.Count <> 0
16090: THEN
16091: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(' '); END IF;
16092: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('PVT API: Calling Sub_Comps'); END IF;
16093:
16094: Sub_Comps
16095: ( p_validation_level => p_validation_level
16088:
16089: IF l_Sub_Component_Tbl.Count <> 0
16090: THEN
16091: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(' '); END IF;
16092: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('PVT API: Calling Sub_Comps'); END IF;
16093:
16094: Sub_Comps
16095: ( p_validation_level => p_validation_level
16096: , p_sub_component_tbl => l_sub_component_tbl
16115: END IF;
16116:
16117: END IF;
16118:
16119: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('BO error status: ' || l_bo_return_status); END IF;
16120:
16121:
16122: -- L1: Operation
16123:
16122: -- L1: Operation
16123:
16124: IF l_rev_operation_tbl.Count <> 0
16125: THEN
16126: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(' '); END IF;
16127: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('PVT API: Calling ECO operation'); END IF;
16128:
16129: Rev_Operation_Sequences
16130: ( p_validation_level => p_validation_level
16123:
16124: IF l_rev_operation_tbl.Count <> 0
16125: THEN
16126: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(' '); END IF;
16127: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('PVT API: Calling ECO operation'); END IF;
16128:
16129: Rev_Operation_Sequences
16130: ( p_validation_level => p_validation_level
16131: , p_rev_operation_tbl => l_rev_operation_tbl
16151: END IF;
16152:
16153: END IF;
16154:
16155: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('BO error status: ' || l_bo_return_status); END IF;
16156:
16157: -- L1: Operation Resource
16158:
16159: IF l_rev_op_resource_tbl.Count <> 0
16157: -- L1: Operation Resource
16158:
16159: IF l_rev_op_resource_tbl.Count <> 0
16160: THEN
16161: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(' '); END IF;
16162: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('PVT API: Calling ECO resource'); END IF;
16163:
16164: Rev_Operation_Resources
16165: ( p_validation_level => p_validation_level
16158:
16159: IF l_rev_op_resource_tbl.Count <> 0
16160: THEN
16161: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(' '); END IF;
16162: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('PVT API: Calling ECO resource'); END IF;
16163:
16164: Rev_Operation_Resources
16165: ( p_validation_level => p_validation_level
16166: , p_rev_op_resource_tbl => l_rev_op_resource_tbl
16184: END IF;
16185:
16186: END IF;
16187:
16188: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('BO error status: ' || l_bo_return_status); END IF;
16189:
16190: -- L1: Substitute resource
16191:
16192: IF l_rev_sub_resource_tbl.Count <> 0
16190: -- L1: Substitute resource
16191:
16192: IF l_rev_sub_resource_tbl.Count <> 0
16193: THEN
16194: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(' '); END IF;
16195: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('PVT API: Calling ECO substitute resource'); END IF;
16196:
16197: Rev_Sub_Operation_Resources
16198: ( p_validation_level => p_validation_level
16191:
16192: IF l_rev_sub_resource_tbl.Count <> 0
16193: THEN
16194: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(' '); END IF;
16195: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('PVT API: Calling ECO substitute resource'); END IF;
16196:
16197: Rev_Sub_Operation_Resources
16198: ( p_validation_level => p_validation_level
16199: , p_rev_sub_resource_tbl => l_rev_sub_resource_tbl
16215: END IF;
16216:
16217: END IF;
16218:
16219: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('BO error status: ' || l_bo_return_status); END IF;
16220:
16221: -- Done processing, load OUT parameters.
16222:
16223: -- Added by AS on 03/17/99 to fix bug 852322
16279: --Bug No: 3737881
16280: --Commenting out the following code as no 'Commit' should
16281: --be done in this API.
16282: --IF ENG_GLOBALS.G_ENG_LAUNCH_IMPORT = 1 THEN
16283: -- Error_Handler.Write_To_ConcurrentLog;
16284: -- Error_Handler.WRITE_TO_INTERFACETABLE;
16285: -- COMMIT;
16286: --END IF;
16287:
16280: --Commenting out the following code as no 'Commit' should
16281: --be done in this API.
16282: --IF ENG_GLOBALS.G_ENG_LAUNCH_IMPORT = 1 THEN
16283: -- Error_Handler.Write_To_ConcurrentLog;
16284: -- Error_Handler.WRITE_TO_INTERFACETABLE;
16285: -- COMMIT;
16286: --END IF;
16287:
16288: EXCEPTION
16288: EXCEPTION
16289:
16290: WHEN EXC_ERR_PVT_API_MAIN THEN
16291:
16292: Eco_Error_Handler.Log_Error
16293: ( p_ECO_rec => l_ECO_rec
16294: , p_eco_revision_tbl => l_eco_revision_tbl
16295: , p_change_line_tbl => l_change_line_tbl -- Eng Change
16296: , p_revised_item_tbl => l_revised_item_tbl
16301: , p_rev_op_resource_tbl => l_rev_op_resource_tbl --L1
16302: , p_rev_sub_resource_tbl => l_rev_sub_resource_tbl --L1
16303: , p_mesg_token_tbl => l_mesg_token_tbl
16304: , p_error_status => FND_API.G_RET_STS_UNEXP_ERROR
16305: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
16306: , p_other_message => l_other_message
16307: , p_other_token_tbl => l_other_token_tbl
16308: , p_error_level => 0
16309: , x_ECO_rec => l_ECO_rec
16368: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
16369: THEN
16370: l_err_text := G_PKG_NAME || ' : Process ECO '
16371: || substrb(SQLERRM,1,200);
16372: Error_Handler.Add_Error_Token
16373: ( p_Message_Text => l_err_text
16374: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
16375: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
16376: );
16375: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
16376: );
16377: END IF;
16378:
16379: Eco_Error_Handler.Log_Error
16380: ( p_ECO_rec => l_ECO_rec
16381: , p_eco_revision_tbl => l_eco_revision_tbl
16382: , p_change_line_tbl => l_change_line_tbl -- Eng Change
16383: , p_revised_item_tbl => l_revised_item_tbl
16388: , p_rev_op_resource_tbl => l_rev_op_resource_tbl --L1
16389: , p_rev_sub_resource_tbl => l_rev_sub_resource_tbl --L1
16390: , p_mesg_token_tbl => l_mesg_token_tbl
16391: , p_error_status => FND_API.G_RET_STS_UNEXP_ERROR
16392: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
16393: , p_other_message => l_other_message
16394: , p_other_token_tbl => l_other_token_tbl
16395: , p_error_level => 0
16396: , x_ECO_rec => l_ECO_rec
16728: -- Ehn 10647772: Change Order Workflow Auto Explosion and Submission
16729: PROCEDURE Explode_WF_Routing(p_change_notice IN VARCHAR2,
16730: p_org_id IN NUMBER,
16731: x_return_status IN OUT NOCOPY VARCHAR2,
16732: x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type ) IS
16733:
16734: TYPE Items_Org_Role_Rec_Type IS RECORD(
16735: Grantee_Type VARCHAR2(1) := EGO_ITEM_PUB.G_MISS_CHAR,
16736: Role_Id NUMBER := EGO_ITEM_PUB.G_MISS_NUM,
17224: -- Get new ROute Id
17225: SELECT ENG_CHANGE_ROUTES_S.NEXTVAL into l_to_route_id FROM DUAL;
17226:
17227: IF Bom_Globals.Get_Debug = 'Y' THEN
17228: Error_Handler.Write_Debug('Inside Loop Template_id: ' ||
17229: C_CHANGES_REC.CHANGE_WF_ROUTE_TEMPLATE_ID);
17230: END IF;
17231:
17232: --This is a Oracle API which will copy the Routes needed
17235: P_USER_ID => FND_GLOBAL.USER_ID,
17236: P_API_CALLER => NULL);
17237:
17238: IF Bom_Globals.Get_Debug = 'Y' THEN
17239: Error_Handler.Write_Debug('New Route Id Created is ' || l_to_route_id);
17240: END IF;
17241:
17242: --Will need to update the various related tables along with the ENG_LIFECYCLE_STATUSES
17243: UPDATE ENG_LIFECYCLE_STATUSES
18260:
18261: END LOOP;
18262:
18263: IF Bom_Globals.Get_Debug = 'Y' THEN
18264: Error_Handler.Write_Debug('ENG_ECO_PVT API: Calling ENG_CHANGE_LIFECYCLE_UTIL.Init_Lifecycle');
18265: END IF;
18266:
18267: -- Get the profile: ENG: Allow Auto-Submit Workflow, 1: Yes; 2: No
18268:
18294: p_api_caller => 'UI'
18295: );
18296:
18297: IF Bom_Globals.Get_Debug = 'Y' THEN
18298: Error_Handler.Write_Debug('ENG_CHANGE_LIFECYCLE_UTIL.Init_Lifecycle: Return Status: ' || l_return_status ||
18299: '; Message data: ' || l_msg_data);
18300: END IF;
18301: END IF; -- IF (l_submit_flag = 1)
18302: EXCEPTION
18300: END IF;
18301: END IF; -- IF (l_submit_flag = 1)
18302: EXCEPTION
18303: WHEN OTHERS THEN
18304: Error_Handler.Add_Error_Token
18305: ( p_Message_Name => NULL
18306: ,p_Message_Text => 'Error in ENG_ECO_PVT.Explode_WF_Routing: '|| SUBSTR(SQLERRM, 1, 30) || ' ' ||to_char(SQLCODE)
18307: ,x_Mesg_Token_Tbl => x_Mesg_Token_Tbl
18308: , p_Mesg_Token_Tbl => x_Mesg_Token_Tbl