[Home] [Help]
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 =>
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';
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';
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';
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
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' ;
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';
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';
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
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';
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';
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';
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
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;
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;
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
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;
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;
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;
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';
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';
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';
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';
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;
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;
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;
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';
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
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;
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;
5613: RAISE EXC_UNEXP_SKIP_OBJECT;
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
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;
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;
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;
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';
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';
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';
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';
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;
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';
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';
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;
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
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
6458: RAISE EXC_UNEXP_SKIP_OBJECT;
6459: END IF;
6460:
6461:
6462: BOM_Globals.Set_Unit_Controlled_Item
6463: ( p_inventory_item_id => l_rev_comp_unexp_rec.revised_item_id
6464: , p_organization_id => l_rev_comp_unexp_rec.organization_id
6465: );
6466:
6463: ( p_inventory_item_id => l_rev_comp_unexp_rec.revised_item_id
6464: , p_organization_id => l_rev_comp_unexp_rec.organization_id
6465: );
6466:
6467: BOM_Globals.Set_Unit_Controlled_Component
6468: ( p_inventory_item_id => l_rev_comp_unexp_rec.component_item_id
6469: , p_organization_id => l_rev_comp_unexp_rec.organization_id
6470: );
6471:
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';
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';
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';
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';
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';
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'
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'
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'
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';
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'
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'
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
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
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';
7131:
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 ;
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
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:
7450: THEN
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 ') ;
7486:
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:
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;
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';
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;
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
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
7809: RAISE EXC_UNEXP_SKIP_OBJECT;
7810: END IF;
7811:
7812:
7813: BOM_Globals.Set_Unit_Controlled_Item
7814: ( p_inventory_item_id => l_rev_comp_unexp_rec.revised_item_id
7815: , p_organization_id => l_rev_comp_unexp_rec.organization_id
7816: );
7817:
7814: ( p_inventory_item_id => l_rev_comp_unexp_rec.revised_item_id
7815: , p_organization_id => l_rev_comp_unexp_rec.organization_id
7816: );
7817:
7818: BOM_Globals.Set_Unit_Controlled_Component
7819: ( p_inventory_item_id => l_rev_comp_unexp_rec.component_item_id
7820: , p_organization_id => l_rev_comp_unexp_rec.organization_id
7821: );
7822:
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';
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';
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';
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';
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';
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'
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'
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'
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';
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'
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'
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
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
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';
8480:
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 ;
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
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:
8790: THEN
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 ') ;
8826:
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:
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
8864: -- Load OUT parameters
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:
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
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';
9055: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
9056: RAISE EXC_UNEXP_SKIP_OBJECT;
9057: END IF;
9058:
9059: BOM_Globals.Set_Unit_Controlled_Item
9060: ( p_inventory_item_id => l_rev_item_unexp_rec.revised_item_id
9061: , p_organization_id => l_rev_item_unexp_rec.organization_id
9062: );
9063:
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';
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';
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';
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';
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
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'
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'
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';
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
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'
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'
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';
9716: , x_rev_sub_resource_tbl => x_rev_sub_resource_tbl --L1
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
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
10194:
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);
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:
10227:
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;
10238: -- Process Reference Designators that are orphans
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:
10271: THEN
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:
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
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';
10495: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
10496: RAISE EXC_UNEXP_SKIP_OBJECT;
10497: END IF;
10498:
10499: BOM_Globals.Set_Unit_Controlled_Item
10500: ( p_inventory_item_id => l_rev_item_unexp_rec.revised_item_id
10501: , p_organization_id => l_rev_item_unexp_rec.organization_id
10502: );
10503:
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';
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';
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';
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';
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
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'
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:
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'
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';
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
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'
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'
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';
11268: , x_rev_sub_resource_tbl => x_rev_sub_resource_tbl --L1
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
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
11746:
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);
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:
11779:
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;
11790: -- Process Reference Designators that are orphans
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:
11823: THEN
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:
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;
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'
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:
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
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';
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';
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';
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
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';
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
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';
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
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
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
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
12799: );
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
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;
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
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;
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';
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;
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';
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;
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;
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';
13888: END LOOP; -- End loop c_lifecycle_statuses
13889: EXCEPTION
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:
13990:
13991: IF p_transaction_type = 'CREATE'
13992: THEN
13993:
13994: BOM_globals.set_debug('N');
13995:
13996:
13997:
13998: FOR change_line IN c_change_tasks(p_change_type_id, p_organization_id)
14029: EXCEPTION
14030: WHEN NO_DATA_FOUND THEN
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;*/
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:
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';
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'
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';
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'
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'
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'
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'
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'
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'
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';
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
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
15077: );
15078: END IF;
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';
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
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:
15797: FND_PROFILE.VALUE('PJM:PJM_UNITEFF_NO_EFFECT') = 'Y'
15798: */
15799: IF PJM_UNIT_EFF.Enabled = 'Y'
15800: THEN
15801: BOM_Globals.Set_Unit_Effectivity (TRUE);
15802: ENG_Globals.Set_Unit_Effectivity (TRUE);
15803: ELSE
15804: BOM_Globals.Set_Unit_Effectivity (FALSE);
15805: ENG_Globals.Set_Unit_Effectivity (FALSE);
15800: THEN
15801: BOM_Globals.Set_Unit_Effectivity (TRUE);
15802: ENG_Globals.Set_Unit_Effectivity (TRUE);
15803: ELSE
15804: BOM_Globals.Set_Unit_Effectivity (FALSE);
15805: ENG_Globals.Set_Unit_Effectivity (FALSE);
15806: END IF;
15807:
15808: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
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
17223:
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:
17234: P_FROM_ROUTE_ID => C_CHANGES_REC.CHANGE_WF_ROUTE_TEMPLATE_ID,
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
18259: END LOOP; -- end cursor C_GET_ROUTE_STEP_ASSIGNEE
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
18293: p_change_id => l_change_id,
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)