[Home] [Help]
434:
435: --
436: -- Process Flow step 7: Check lineage
437: --
438: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check lineage'); END IF;
439: BOM_Validate_Op_Seq.Check_Lineage
440: ( p_routing_sequence_id =>
441: l_rev_sub_res_unexp_rec.routing_sequence_id
442: , p_operation_sequence_number =>
495:
496: -- Process Flow step 8(a and b): Is ECO impl/cancl, or in wkflw process ?
497: --
498:
499: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check ECO access'); END IF;
500:
501: ENG_Validate_ECO.Check_Access
502: ( p_change_notice => l_rev_sub_resource_rec.ECO_Name
503: , p_organization_id => l_rev_sub_res_unexp_rec.organization_id
505: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
506: , x_Return_Status => l_return_status
507: );
508:
509: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
510:
511: IF l_return_status = Error_Handler.G_STATUS_ERROR
512: THEN
513: l_other_message := 'BOM_SUB_RES_ECOACC_FAT_FATAL';
533:
534: -- Process Flow step 9(a and b): check that user has access to revised item
535: --
536:
537: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check Revised item access'); END IF;
538: ENG_Validate_Revised_Item.Check_Access
539: ( p_change_notice => l_rev_sub_resource_rec.ECO_Name
540: , p_organization_id => l_rev_sub_res_unexp_rec.organization_id
541: , p_revised_item_id => l_rev_sub_res_unexp_rec.revised_item_id
554: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
555: , x_return_status => l_Return_Status
556: );
557:
558: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
559:
560: IF l_return_status = Error_Handler.G_STATUS_ERROR
561: THEN
562: l_other_message := 'BOM_SUB_RES_RITACC_FAT_FATAL';
584: -- Process Flow step 10(b) : Check that user has access to revised
585: -- operation
586: -- BOM_Validate_Op_Seq.Check_Access
587:
588: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check Operation sequence item access'); END IF;
589: BOM_Validate_Op_Seq.Check_Access
590: ( p_change_notice => l_rev_sub_resource_rec.ECO_Name
591: , p_organization_id => l_rev_sub_res_unexp_rec.organization_id
592: , p_revised_item_id => l_rev_sub_res_unexp_rec.revised_item_id
612: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
613: , x_return_status => l_Return_Status
614: );
615:
616: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
617:
618: IF l_return_status = Error_Handler.G_STATUS_ERROR
619: THEN
620: l_other_message := 'BOM_SUB_RES_ACCESS_FAT_FATAL';
1800:
1801: --
1802: -- Process Flow step 7: Check lineage
1803: --
1804: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check lineage'); END IF;
1805:
1806: BOM_Validate_Op_Seq.Check_Lineage
1807: ( p_routing_sequence_id =>
1808: l_rev_op_res_unexp_rec.routing_sequence_id
1849: l_rev_op_resource_rec.resource_sequence_number ;
1850: RAISE EXC_UNEXP_SKIP_OBJECT;
1851: END IF;
1852:
1853: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
1854:
1855:
1856: -- Process Flow step 8(a and b): Is ECO impl/cancl, or in wkflw process ?
1857: --
1855:
1856: -- Process Flow step 8(a and b): Is ECO impl/cancl, or in wkflw process ?
1857: --
1858:
1859: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check ECO access'); END IF;
1860:
1861: ENG_Validate_ECO.Check_Access
1862: ( p_change_notice => l_rev_op_resource_rec.ECO_Name
1863: , p_organization_id =>
1866: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1867: , x_Return_Status => l_return_status
1868: );
1869:
1870: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
1871:
1872: IF l_return_status = Error_Handler.G_STATUS_ERROR
1873: THEN
1874: l_other_message := 'BOM_RES_ECOACC_FAT_FATAL' ;
1889: --
1890: -- Process Flow step 9(a and b): check that user has access to revised item
1891: --
1892:
1893: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check Revised item access'); END IF;
1894: ENG_Validate_Revised_Item.Check_Access
1895: ( p_change_notice => l_rev_op_resource_rec.ECO_Name
1896: , p_organization_id => l_rev_op_res_unexp_rec.organization_id
1897: , p_revised_item_id => l_rev_op_res_unexp_rec.revised_item_id
1911: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1912: , x_return_status => l_Return_Status
1913: );
1914:
1915: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
1916:
1917: IF l_return_status = Error_Handler.G_STATUS_ERROR
1918: THEN
1919: l_other_message := 'BOM_RES_RITACC_FAT_FATAL';
1936: -- Process Flow step 10(b) : Check that user has access to revised
1937: -- operation
1938: -- BOM_Validate_Op_Seq.Check_Access
1939:
1940: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check Operation sequence item access'); END IF;
1941: BOM_Validate_Op_Seq.Check_Access
1942: ( p_change_notice => l_rev_op_resource_rec.ECO_Name
1943: , p_organization_id => l_rev_op_res_unexp_rec.organization_id
1944: , p_revised_item_id => l_rev_op_res_unexp_rec.revised_item_id
1964: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1965: , x_return_status => l_Return_Status
1966: );
1967:
1968: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
1969:
1970: IF l_return_status = Error_Handler.G_STATUS_ERROR
1971: THEN
1972: l_other_message := 'BOM_RES_ACCESS_FAT_FATAL';
3138:
3139: --
3140: -- Process Flow step 7: Check lineage
3141: --
3142: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check lineage'); END IF;
3143: IF l_rev_operation_rec.transaction_type IN
3144: (Bom_Rtg_Globals.G_OPR_UPDATE, Bom_Rtg_Globals.G_OPR_DELETE,
3145: Bom_Rtg_Globals.G_OPR_CANCEL)
3146: THEN
3205:
3206: --
3207: -- Process Flow step 9(a and b): Is ECO impl/cancl, or in wkflw process ?
3208: --
3209: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('ECO Check access'); END IF;
3210: ENG_Validate_ECO.Check_Access
3211: ( p_change_notice => l_rev_operation_rec.ECO_Name
3212: , p_organization_id => l_rev_op_unexp_rec.organization_id
3213: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3214: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3215: , x_Return_Status => l_return_status
3216: );
3217:
3218: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
3219:
3220: IF l_return_status = Error_Handler.G_STATUS_ERROR
3221: THEN
3222: l_other_message := 'BOM_OP_ECOACC_FAT_FATAL';
3237:
3238: -- Process Flow step 10(a and b): check that user has access to revised item
3239: --
3240:
3241: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item Check access'); END IF;
3242: ENG_Validate_Revised_Item.Check_Access
3243: ( p_change_notice => l_rev_operation_rec.ECO_Name
3244: , p_organization_id => l_rev_op_unexp_rec.organization_id
3245: , p_revised_item_id => l_rev_op_unexp_rec.revised_item_id
3253: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3254: , x_return_status => l_Return_Status
3255: );
3256:
3257: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
3258:
3259: IF l_return_status = Error_Handler.G_STATUS_ERROR
3260: THEN
3261: l_other_message := 'BOM_OP_RITACC_FAT_FATAL';
3276: --
3277: -- Process Flow step : Check Assembly Item Operability for Operation
3278: -- BOM_Validate_Op_Seq.Check_Access
3279: --
3280: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Operation Check access'); END IF;
3281: BOM_Validate_Op_Seq.Check_Access
3282: ( p_change_notice => l_rev_operation_rec.ECO_Name
3283: , p_organization_id => l_rev_op_unexp_rec.organization_id
3284: , p_revised_item_id => l_rev_op_unexp_rec.revised_item_id
3304: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3305: , x_return_status => l_Return_Status
3306: );
3307:
3308: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('In check access of operations, return_status: ' || l_return_status); END IF;
3309:
3310: IF l_return_status = Error_Handler.G_STATUS_ERROR
3311: THEN
3312: l_other_message := 'BOM_OP_ACCESS_FAT_FATAL';
4569: l_return_status := FND_API.G_RET_STS_SUCCESS;
4570:
4571: l_sub_component_rec.return_status := FND_API.G_RET_STS_SUCCESS;
4572:
4573: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Processing substitite component: ' || l_sub_component_rec.substitute_component_name); END IF;
4574:
4575: -- Bug 6657209
4576: IF (l_comp_parent_exists and ENG_Default_Revised_Item.G_OLD_SCHED_DATE is not null) THEN
4577: l_sub_component_rec.start_effective_date := p_effectivity_date;
4579:
4580: -- Check if transaction_type is valid
4581: --
4582:
4583: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check transaction_type validity'); END IF;
4584: ENG_GLOBALS.Transaction_Type_Validity
4585: ( p_transaction_type => l_sub_component_rec.transaction_type
4586: , p_entity => 'Sub_Comps'
4587: , p_entity_id => l_sub_component_rec.revised_item_name
4597:
4598: -- Process Flow step 4(a): Convert user unique index to unique index I
4599: --
4600:
4601: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Converting user unique index to unique index I'); END IF;
4602: Bom_Val_To_Id.Sub_Component_UUI_To_UI
4603: ( p_sub_component_rec => l_sub_component_rec
4604: , p_sub_comp_unexp_rec => l_sub_comp_unexp_rec
4605: , x_sub_comp_unexp_rec => l_sub_comp_unexp_rec
4606: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4607: , x_Return_Status => l_return_status
4608: );
4609:
4610: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
4611:
4612: IF l_return_status = Error_Handler.G_STATUS_ERROR
4613: THEN
4614: RAISE EXC_SEV_QUIT_RECORD;
4623: -- Process Flow step 4(b): Convert user unique index to unique index II
4624: --
4625:
4626:
4627: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Converting user unique index to unique index II'); END IF;
4628: Bom_Val_To_Id.Sub_Component_UUI_To_UI2
4629: ( p_sub_component_rec => l_sub_component_rec
4630: , p_sub_comp_unexp_rec => l_sub_comp_unexp_rec
4631: , x_sub_comp_unexp_rec => l_sub_comp_unexp_rec
4634: , x_other_token_tbl => l_other_token_tbl
4635: , x_Return_Status => l_return_status
4636: );
4637:
4638: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
4639:
4640: IF l_return_status = Error_Handler.G_STATUS_ERROR
4641: THEN
4642: RAISE EXC_SEV_QUIT_SIBLINGS;
4647: l_other_token_tbl(1).token_value := l_sub_component_rec.substitute_component_name;
4648: RAISE EXC_UNEXP_SKIP_OBJECT;
4649: END IF;
4650:
4651: IF Bom_Globals.Get_Debug = 'Y' THEN
4652: Error_Handler.Write_Debug('Converting user unique index to unique index II for Bill and Rev Item Seq Id');
4653: END IF;
4654: -- Added by MK on 12/03/00 to resolve ECO dependency
4655: ENG_Val_To_Id.BillAndRevitem_UUI_To_UI
4676: , x_other_token_tbl => l_other_token_tbl
4677: , x_Return_Status => l_return_status
4678: ) ;
4679:
4680: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
4681:
4682: IF l_return_status = Error_Handler.G_STATUS_ERROR
4683: THEN
4684: RAISE EXC_SEV_QUIT_SIBLINGS;
4695:
4696: -- Process Flow step 5: Verify Substitute Component's existence
4697: --
4698:
4699: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check existence'); END IF;
4700: Bom_Validate_Sub_Component.Check_Existence
4701: ( p_sub_component_rec => l_sub_component_rec
4702: , p_sub_comp_unexp_rec => l_sub_comp_unexp_rec
4703: , x_old_sub_component_rec => l_old_sub_component_rec
4705: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4706: , x_return_status => l_Return_Status
4707: );
4708:
4709: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
4710:
4711: IF l_return_status = Error_Handler.G_STATUS_ERROR
4712: THEN
4713: RAISE EXC_SEV_QUIT_RECORD;
4728:
4729: -- Process Flow step 6: Check lineage
4730: --
4731:
4732: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check lineage'); END IF;
4733: Bom_Validate_Sub_Component.Check_Lineage
4734: ( p_sub_component_rec => l_sub_component_rec
4735: , p_sub_comp_unexp_rec => l_sub_comp_unexp_rec
4736: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4736: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4737: , x_return_status => l_Return_Status
4738: );
4739:
4740: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
4741:
4742: IF l_return_status = Error_Handler.G_STATUS_ERROR
4743: THEN
4744: RAISE EXC_SEV_QUIT_BRANCH;
4760: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4761: , x_Return_Status => l_return_status
4762: );
4763:
4764: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
4765:
4766: IF l_return_status = Error_Handler.G_STATUS_ERROR
4767: THEN
4768: l_other_message := 'BOM_SBC_ECOACC_FAT_FATAL';
4780:
4781: -- Process Flow step 9(a and b): check that user has access to revised item
4782: --
4783:
4784: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check access'); END IF;
4785: ENG_Validate_Revised_Item.Check_Access
4786: ( p_change_notice => l_sub_component_rec.ECO_Name
4787: , p_organization_id => l_sub_comp_unexp_rec.organization_id
4788: , p_revised_item_id => l_sub_comp_unexp_rec.revised_item_id
4797: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4798: , x_return_status => l_Return_Status
4799: );
4800:
4801: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
4802:
4803: IF l_return_status = Error_Handler.G_STATUS_ERROR
4804: THEN
4805: l_other_message := 'BOM_SBC_RITACC_FAT_FATAL';
4817:
4818: -- Process Flow step 10: check that user has access to revised component
4819: --
4820:
4821: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check access'); END IF;
4822: Bom_Validate_Bom_Component.Check_Access
4823: ( p_change_notice => l_sub_component_rec.ECO_Name
4824: , p_organization_id => l_sub_comp_unexp_rec.organization_id
4825: , p_revised_item_id => l_sub_comp_unexp_rec.revised_item_id
4838: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4839: , x_return_status => l_Return_Status
4840: );
4841:
4842: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
4843:
4844: IF l_return_status = Error_Handler.G_STATUS_ERROR
4845: THEN
4846: l_other_message := 'BOM_SBC_CMPACC_FAT_FATAL';
4862:
4863: -- Process Flow step 11: does user have access to substitute component ?
4864: --
4865:
4866: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check access'); END IF;
4867: Bom_Validate_Sub_Component.Check_Access
4868: ( p_sub_component_rec => l_sub_component_rec
4869: , p_sub_comp_unexp_rec => l_sub_comp_unexp_rec
4870: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4870: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4871: , x_return_status => l_Return_Status
4872: );
4873:
4874: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
4875:
4876: IF l_return_status = Error_Handler.G_STATUS_ERROR
4877: THEN
4878: l_other_message := 'BOM_SBC_ACCESS_FAT_FATAL';
4892:
4893: -- Process Flow step 12: Attribute Validation for CREATE and UPDATE
4894: --
4895:
4896: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Attribute Validation'); END IF;
4897: IF l_sub_component_rec.Transaction_Type IN
4898: (ENG_GLOBALS.G_OPR_CREATE, ENG_GLOBALS.G_OPR_UPDATE)
4899: THEN
4900: Bom_Validate_Sub_Component.Check_Attributes
4903: , p_sub_component_rec => l_sub_component_rec
4904: , p_sub_comp_unexp_rec => l_sub_comp_unexp_rec
4905: );
4906:
4907: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
4908:
4909: IF l_return_status = Error_Handler.G_STATUS_ERROR
4910: THEN
4911: RAISE EXC_SEV_QUIT_RECORD;
4943:
4944: -- Process flow step 13 - Populate NULL columns for Update and
4945: -- Delete.
4946:
4947: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Populating NULL Columns'); END IF;
4948: Bom_Default_Sub_Component.Populate_NULL_Columns
4949: ( p_sub_component_rec => l_sub_component_rec
4950: , p_old_sub_component_rec => l_old_sub_component_rec
4951: , p_sub_comp_unexp_rec => l_sub_comp_unexp_rec
4958:
4959: -- Process Flow step 14: Default missing values for Operation CREATE
4960: --
4961:
4962: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Attribute Defaulting'); END IF;
4963: Bom_Default_Sub_Component.Attribute_Defaulting
4964: ( p_sub_component_rec => l_sub_component_rec
4965: , p_sub_comp_unexp_rec => l_sub_comp_unexp_rec
4966: , x_sub_component_rec => l_sub_component_rec
4968: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4969: , x_return_status => l_return_status
4970: );
4971:
4972: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
4973:
4974: IF l_return_status = Error_Handler.G_STATUS_ERROR
4975: THEN
4976: RAISE EXC_SEV_QUIT_RECORD;
5004:
5005: -- Process Flow step 15 - Entity Level Validation
5006: --
5007:
5008: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Entity validation'); END IF;
5009: Bom_Validate_Sub_Component.Check_Entity
5010: ( p_sub_component_rec => l_sub_component_rec
5011: , p_sub_comp_unexp_rec => l_sub_comp_unexp_rec
5012: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5012: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5013: , x_return_status => l_Return_Status
5014: );
5015:
5016: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
5017:
5018: IF l_return_status = Error_Handler.G_STATUS_ERROR
5019: THEN
5020: RAISE EXC_SEV_QUIT_RECORD;
5047:
5048: -- Process Flow step 16 : Database Writes
5049: --
5050:
5051: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Writing to the database'); END IF;
5052: Bom_Sub_Component_Util.Perform_Writes
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_UNEXPECTED
5062: THEN
5063: l_other_message := 'BOM_SBC_WRITES_UNEXP_SKIP';
5385: x_sub_component_tbl := p_sub_component_tbl;
5386:
5387: l_ref_desg_unexp_rec.organization_id := ENG_GLOBALS.Get_org_id;
5388:
5389: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Within processing Ref Designators . . . '); END IF;
5390:
5391:
5392: FOR I IN 1..x_ref_designator_tbl.COUNT LOOP
5393: IF (x_ref_designator_tbl(I).return_status IS NULL OR
5401:
5402: l_ref_designator_rec.transaction_type :=
5403: UPPER(l_ref_designator_rec.transaction_type);
5404:
5405: 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;
5406:
5407: IF p_component_item_name IS NOT NULL AND
5408: p_operation_seq_num IS NOT NULL AND
5409: p_revised_item_name IS NOT NULL AND
5413: THEN
5414: -- revised comp parent exists
5415:
5416: l_comp_parent_exists := TRUE;
5417: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Called by Rev_Comps . . .'); END IF;
5418:
5419: ELSIF p_revised_item_name IS NOT NULL AND
5420: p_effectivity_date IS NOT NULL AND
5421: --p_item_revision IS NOT NULL AND (Commented for bug 3766816 - Forward porting for bug 3747487)
5425: -- revised item parent exists
5426:
5427: l_item_parent_exists := TRUE;
5428:
5429: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Called by Rev_Items . . .'); END IF;
5430:
5431: END IF;
5432:
5433: -- Process Flow Step 2: Check if record has not yet been processed and
5433: -- Process Flow Step 2: Check if record has not yet been processed and
5434: -- that it is the child of the parent that called this procedure
5435: --
5436:
5437: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
5438: ('ECO Name: ' || p_change_notice ||
5439: ' Org : ' || p_organization_id ||
5440: ' Eff. Dt : ' || to_char(p_effectivity_date) ||
5441: ' Revision: ' || p_item_revision ||
5500:
5501: -- Check if transaction_type is valid
5502: --
5503:
5504: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check transaction_type validity'); END IF;
5505:
5506:
5507: ENG_GLOBALS.Transaction_Type_Validity
5508: ( p_transaction_type => l_ref_designator_rec.transaction_type
5520:
5521: -- Process Flow step 4(a): Convert user unique index to unique index I
5522: --
5523:
5524: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Converting user unique index to unique index I'); END IF;
5525: Bom_Val_To_Id.Ref_Designator_UUI_To_UI
5526: ( p_ref_designator_rec => l_ref_designator_rec
5527: , p_ref_desg_unexp_rec => l_ref_desg_unexp_rec
5528: , x_ref_desg_unexp_rec => l_ref_desg_unexp_rec
5529: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5530: , x_Return_Status => l_return_status
5531: );
5532:
5533: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
5534:
5535: IF l_return_status = Error_Handler.G_STATUS_ERROR
5536: THEN
5537: RAISE EXC_SEV_QUIT_RECORD;
5545:
5546: -- Process Flow step 4(b): Convert user unique index to unique index II
5547: --
5548:
5549: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Converting user unique index to unique index II'); END IF;
5550: Bom_Val_To_Id.Ref_Designator_UUI_To_UI2
5551: ( p_ref_designator_rec => l_ref_designator_rec
5552: , p_ref_desg_unexp_rec => l_ref_desg_unexp_rec
5553: , x_ref_desg_unexp_rec => l_ref_desg_unexp_rec
5556: , x_other_token_tbl => l_other_token_tbl
5557: , x_Return_Status => l_return_status
5558: );
5559:
5560: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
5561:
5562: IF l_return_status = Error_Handler.G_STATUS_ERROR
5563: THEN
5564: RAISE EXC_SEV_QUIT_SIBLINGS;
5570: RAISE EXC_UNEXP_SKIP_OBJECT;
5571: END IF;
5572:
5573:
5574: IF Bom_Globals.Get_Debug = 'Y' THEN
5575: Error_Handler.Write_Debug('Converting user unique index to unique index II for Bill and Rev Item Seq Id');
5576: END IF;
5577:
5578: -- Added by MK on 12/03/00 to resolve ECO dependency
5601: , x_Return_Status => l_return_status
5602: ) ;
5603:
5604:
5605: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
5606:
5607: IF l_return_status = Error_Handler.G_STATUS_ERROR
5608: THEN
5609: RAISE EXC_SEV_QUIT_SIBLINGS;
5618:
5619: -- Process Flow step 5: Verify Reference Designator's existence
5620: --
5621:
5622: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check existence'); END IF;
5623: Bom_Validate_Ref_Designator.Check_Existence
5624: ( p_ref_designator_rec => l_ref_designator_rec
5625: , p_ref_desg_unexp_rec => l_ref_desg_unexp_rec
5626: , x_old_ref_designator_rec => l_old_ref_designator_rec
5628: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5629: , x_return_status => l_Return_Status
5630: );
5631:
5632: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
5633:
5634: IF l_return_status = Error_Handler.G_STATUS_ERROR
5635: THEN
5636: RAISE EXC_SEV_QUIT_RECORD;
5651:
5652: -- Process Flow step 7: Check lineage
5653: --
5654:
5655: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check lineage'); END IF;
5656: Bom_Validate_Ref_Designator.Check_Lineage
5657: ( p_ref_designator_rec => l_ref_designator_rec
5658: , p_ref_desg_unexp_rec => l_ref_desg_unexp_rec
5659: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5659: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5660: , x_return_status => l_Return_Status
5661: );
5662:
5663: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
5664:
5665: IF l_return_status = Error_Handler.G_STATUS_ERROR
5666: THEN
5667: RAISE EXC_SEV_QUIT_BRANCH;
5675:
5676: -- Process Flow step 8(a and b): Is ECO impl/cancl, or in wkflw process ?
5677: --
5678:
5679: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(' Check ECO access'); END IF;
5680:
5681: ENG_Validate_ECO.Check_Access
5682: ( p_change_notice => l_ref_designator_rec.ECO_Name
5683: , p_organization_id => l_ref_desg_unexp_rec.organization_id
5685: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5686: , x_Return_Status => l_return_status
5687: );
5688:
5689: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
5690:
5691: IF l_return_status = Error_Handler.G_STATUS_ERROR
5692: THEN
5693: l_other_message := 'BOM_RFD_ECOACC_FAT_FATAL';
5705:
5706: -- Process Flow step 9(a and b): check that user has access to revised item
5707: --
5708:
5709: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check access'); END IF;
5710: ENG_Validate_Revised_Item.Check_Access
5711: ( p_change_notice => l_ref_designator_rec.ECO_Name
5712: , p_organization_id => l_ref_desg_unexp_rec.organization_id
5713: , p_revised_item_id => l_ref_desg_unexp_rec.revised_item_id
5722: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5723: , x_return_status => l_Return_Status
5724: );
5725:
5726: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
5727:
5728: IF l_return_status = Error_Handler.G_STATUS_ERROR
5729: THEN
5730: l_other_message := 'BOM_RFD_RITACC_FAT_FATAL';
5742:
5743: -- Process Flow step 10: check that user has access to revised component
5744: --
5745:
5746: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check access'); END IF;
5747: Bom_Validate_Bom_Component.Check_Access
5748: ( p_change_notice => l_ref_designator_rec.ECO_Name
5749: , p_organization_id => l_ref_desg_unexp_rec.organization_id
5750: , p_revised_item_id => l_ref_desg_unexp_rec.revised_item_id
5763: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5764: , x_return_status => l_Return_Status
5765: );
5766:
5767: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
5768:
5769: IF l_return_status = Error_Handler.G_STATUS_ERROR
5770: THEN
5771: l_other_message := 'BOM_RFD_CMPACC_FAT_FATAL';
5783:
5784: -- Process Flow step 8(b): check that user has access to ECO
5785: --
5786:
5787: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check access'); END IF;
5788: Bom_Validate_Ref_Designator.Check_Access
5789: ( p_ref_designator_rec => l_ref_designator_rec
5790: , p_ref_desg_unexp_rec => l_ref_desg_unexp_rec
5791: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5791: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5792: , x_return_status => l_Return_Status
5793: );
5794:
5795: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
5796:
5797: IF l_return_status = Error_Handler.G_STATUS_ERROR
5798: THEN
5799: l_return_status := 'F';
5811:
5812: -- Process flow step 11 - Populate NULL columns for Update and
5813: -- Delete.
5814:
5815: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Populating NULL Columns'); END IF;
5816: Bom_Default_Ref_Designator.Populate_NULL_Columns
5817: ( p_ref_designator_rec => l_ref_designator_rec
5818: , p_old_ref_designator_rec => l_old_ref_designator_rec
5819: , p_ref_desg_unexp_rec => l_ref_desg_unexp_rec
5826:
5827: -- Process Flow step 12 - Entity Level Validation
5828: -- Added Check_Entity_Delete by MK on 11/14/00
5829: --
5830: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Entity validation'); END IF;
5831:
5832: IF l_ref_designator_rec.transaction_type = 'DELETE'
5833: THEN
5834:
5831:
5832: IF l_ref_designator_rec.transaction_type = 'DELETE'
5833: THEN
5834:
5835: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Calling Entity Delete validation'); END IF;
5836:
5837: Bom_Validate_Ref_Designator.Check_Entity_Delete
5838: ( p_ref_designator_rec => l_ref_designator_rec
5839: , p_ref_desg_unexp_rec => l_ref_desg_unexp_rec
5848: , x_return_status => l_Return_Status
5849: );
5850: END IF ;
5851:
5852: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
5853:
5854: IF l_return_status = Error_Handler.G_STATUS_ERROR
5855: THEN
5856: RAISE EXC_SEV_QUIT_RECORD;
5879: , x_rev_operation_tbl => l_rev_operation_tbl --L1
5880: , x_rev_op_resource_tbl => l_rev_op_resource_tbl --L1
5881: , x_rev_sub_resource_tbl=> l_rev_sub_resource_tbl--L1
5882: );
5883: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Log Error For Warning '); END IF;
5884: END IF;
5885:
5886: -- Process Flow step 14 : Database Writes
5887: --
5885:
5886: -- Process Flow step 14 : Database Writes
5887: --
5888:
5889: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Writing to the database'); END IF;
5890: Bom_Ref_Designator_Util.Perform_Writes
5891: ( p_ref_designator_rec => l_ref_designator_rec
5892: , p_ref_desg_unexp_rec => l_ref_desg_unexp_rec
5893: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5893: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
5894: , x_return_status => l_return_status
5895: );
5896:
5897: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
5898:
5899: IF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
5900: THEN
5901: l_other_message := 'BOM_RFD_WRITES_UNEXP_SKIP';
6297: l_return_status := FND_API.G_RET_STS_SUCCESS;
6298:
6299: l_rev_component_rec.return_status := FND_API.G_RET_STS_SUCCESS;
6300:
6301: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Processing component: ' || l_rev_component_rec.component_item_name); END IF;
6302: -- Check if transaction_type is valid
6303: --
6304: -- Bug 6657209
6305: IF (l_item_parent_exists and ENG_Default_Revised_Item.G_OLD_SCHED_DATE is not null ) THEN
6305: IF (l_item_parent_exists and ENG_Default_Revised_Item.G_OLD_SCHED_DATE is not null ) THEN
6306: l_rev_component_rec.start_effective_date := p_effectivity_date;
6307: END IF;
6308:
6309: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check transaction_type validity'); END IF;
6310: ENG_GLOBALS.Transaction_Type_Validity
6311: ( p_transaction_type => l_rev_component_rec.transaction_type
6312: , p_entity => 'Rev_Comps'
6313: , p_entity_id => l_rev_component_rec.revised_item_name
6322:
6323: -- Process Flow step 4(a): Convert user unique index to unique index I
6324: --
6325:
6326: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Converting user unique index to unique index I'); END IF;
6327: Bom_Val_To_Id.Rev_Component_UUI_To_UI
6328: ( p_rev_component_rec => l_rev_component_rec
6329: , p_rev_comp_unexp_rec => l_rev_comp_unexp_rec
6330: , x_rev_comp_unexp_rec => l_rev_comp_unexp_rec
6331: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6332: , x_Return_Status => l_return_status
6333: );
6334:
6335: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
6336:
6337: IF l_return_status = Error_Handler.G_STATUS_ERROR
6338: THEN
6339: l_other_message := 'BOM_CMP_UUI_SEV_ERROR';
6350:
6351: -- Process Flow step 4(b): Convert user unique index to unique index II
6352: --
6353:
6354: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Converting user unique index to unique index II'); END IF;
6355: Bom_Val_To_Id.Rev_Component_UUI_To_UI2
6356: ( p_rev_component_rec => l_rev_component_rec
6357: , p_rev_comp_unexp_rec => l_rev_comp_unexp_rec
6358: , x_rev_comp_unexp_rec => l_rev_comp_unexp_rec
6361: , x_other_token_tbl => l_other_token_tbl
6362: , x_Return_Status => l_return_status
6363: );
6364:
6365: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
6366:
6367: IF l_return_status = Error_Handler.G_STATUS_ERROR
6368: THEN
6369: RAISE EXC_SEV_QUIT_SIBLINGS;
6374: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
6375: RAISE EXC_UNEXP_SKIP_OBJECT;
6376: END IF;
6377:
6378: IF Bom_Globals.Get_Debug = 'Y' THEN
6379: Error_Handler.Write_Debug('Converting user unique index to unique index II for Bill And Rev Seq Id');
6380: END IF;
6381:
6382: ENG_Val_To_Id.BillAndRevitem_UUI_To_UI
6400: , x_other_token_tbl => l_other_token_tbl
6401: , x_Return_Status => l_return_status
6402: ) ;
6403:
6404: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status) ;
6405: END IF;
6406:
6407: IF l_return_status = Error_Handler.G_STATUS_ERROR
6408: THEN
6415: RAISE EXC_UNEXP_SKIP_OBJECT;
6416: END IF;
6417:
6418:
6419: BOM_Globals.Set_Unit_Controlled_Item
6420: ( p_inventory_item_id => l_rev_comp_unexp_rec.revised_item_id
6421: , p_organization_id => l_rev_comp_unexp_rec.organization_id
6422: );
6423:
6420: ( p_inventory_item_id => l_rev_comp_unexp_rec.revised_item_id
6421: , p_organization_id => l_rev_comp_unexp_rec.organization_id
6422: );
6423:
6424: BOM_Globals.Set_Unit_Controlled_Component
6425: ( p_inventory_item_id => l_rev_comp_unexp_rec.component_item_id
6426: , p_organization_id => l_rev_comp_unexp_rec.organization_id
6427: );
6428:
6428:
6429: -- Process Flow step 5: Verify Revised Component's existence
6430: --
6431:
6432: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check existence'); END IF;
6433: Bom_Validate_Bom_Component.Check_Existence
6434: ( p_rev_component_rec => l_rev_component_rec
6435: , p_rev_comp_unexp_rec => l_rev_comp_unexp_rec
6436: , x_old_rev_component_rec => l_old_rev_component_rec
6438: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6439: , x_return_status => l_Return_Status
6440: );
6441:
6442: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
6443:
6444: IF l_return_status = Error_Handler.G_STATUS_ERROR
6445: THEN
6446: l_other_message := 'BOM_CMP_EXS_SEV_ERROR';
6462:
6463: -- Process Flow step 6: Check lineage
6464: --
6465:
6466: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check lineage'); END IF;
6467: Bom_Validate_Bom_Component.Check_Lineage
6468: ( p_rev_component_rec => l_rev_component_rec
6469: , p_rev_comp_unexp_rec => l_rev_comp_unexp_rec
6470: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6470: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6471: , x_return_status => l_Return_Status
6472: );
6473:
6474: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
6475:
6476: IF l_return_status = Error_Handler.G_STATUS_ERROR
6477: THEN
6478: l_other_message := 'BOM_CMP_LIN_SEV_SKIP';
6502: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6503: , x_Return_Status => l_return_status
6504: );
6505:
6506: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
6507:
6508: IF l_return_status = Error_Handler.G_STATUS_ERROR
6509: THEN
6510: l_other_message := 'BOM_CMP_ECOACC_FAT_FATAL';
6522:
6523: -- Process Flow step 9(a and b): check that user has access to revised item
6524: --
6525:
6526: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check access'); END IF;
6527: ENG_Validate_Revised_Item.Check_Access
6528: ( p_change_notice => l_rev_component_rec.ECO_Name
6529: , p_organization_id => l_rev_comp_unexp_rec.organization_id
6530: , p_revised_item_id => l_rev_comp_unexp_rec.revised_item_id
6539: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6540: , x_return_status => l_Return_Status
6541: );
6542:
6543: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
6544: IF l_return_status = Error_Handler.G_STATUS_ERROR
6545: THEN
6546: l_other_message := 'BOM_CMP_RITACC_FAT_FATAL';
6547: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
6558:
6559: -- Process Flow step 10: check that user has access to revised component
6560: --
6561:
6562: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check access'); END IF;
6563: Bom_Validate_Bom_Component.Check_Access
6564: ( p_change_notice => l_rev_component_rec.ECO_Name
6565: , p_organization_id => l_rev_comp_unexp_rec.organization_id
6566: , p_revised_item_id => l_rev_comp_unexp_rec.revised_item_id
6577: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6578: , x_return_status => l_Return_Status
6579: );
6580:
6581: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
6582:
6583: IF l_return_status = Error_Handler.G_STATUS_ERROR
6584: THEN
6585: l_other_message := 'BOM_CMP_ACCESS_FAT_FATAL';
6633:
6634: -- Process Flow step 11: Value to Id conversions
6635: --
6636:
6637: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Value-id conversions'); END IF;
6638: Bom_Val_To_Id.Rev_Component_VID
6639: ( x_Return_Status => l_return_status
6640: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6641: , p_rev_comp_unexp_Rec => l_rev_comp_unexp_rec
6642: , x_rev_comp_unexp_Rec => l_rev_comp_unexp_rec
6643: , p_rev_component_Rec => l_rev_component_rec
6644: );
6645:
6646: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
6647:
6648: IF l_return_status = Error_Handler.G_STATUS_ERROR
6649: THEN
6650: IF l_rev_component_rec.transaction_type = 'CREATE'
6688: -- Process Flow step 12: Check required fields exist
6689: -- (also includes conditionally required fields)
6690: --
6691:
6692: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check required fields'); END IF;
6693: Bom_Validate_Bom_Component.Check_Required
6694: ( x_return_status => l_return_status
6695: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6696: , p_rev_component_rec => l_rev_component_rec
6695: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6696: , p_rev_component_rec => l_rev_component_rec
6697: );
6698:
6699: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
6700:
6701: IF l_return_status = Error_Handler.G_STATUS_ERROR
6702: THEN
6703: IF l_rev_component_rec.transaction_type = 'CREATE'
6740:
6741: -- Process Flow step 13: Attribute Validation for CREATE and UPDATE
6742: --
6743:
6744: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Attribute Validation'); END IF;
6745: IF l_rev_component_rec.Transaction_Type IN
6746: (ENG_GLOBALS.G_OPR_CREATE, ENG_GLOBALS.G_OPR_UPDATE)
6747: THEN
6748: Bom_Validate_Bom_Component.Check_Attributes
6751: , p_rev_component_rec => l_rev_component_rec
6752: , p_rev_comp_unexp_rec => l_rev_comp_unexp_rec
6753: );
6754:
6755: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
6756:
6757: IF l_return_status = Error_Handler.G_STATUS_ERROR
6758: THEN
6759: IF l_rev_component_rec.transaction_type = 'CREATE'
6855: OR
6856: l_rev_component_rec.transaction_type IN (ENG_GLOBALS.G_OPR_UPDATE,
6857: ENG_GLOBALS.G_OPR_DELETE)
6858: THEN
6859: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Populate NULL columns'); END IF;
6860: Bom_Default_Bom_Component.Populate_Null_Columns
6861: ( p_rev_component_rec => l_rev_Component_Rec
6862: , p_old_rev_Component_Rec => l_old_rev_Component_Rec
6863: , p_rev_comp_unexp_rec => l_rev_comp_unexp_rec
6870:
6871: -- Process Flow step 16: Default missing values for Operation CREATE
6872: --
6873:
6874: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Attribute Defaulting'); END IF;
6875: Bom_Default_Bom_Component.Attribute_Defaulting
6876: ( p_rev_component_rec => l_rev_component_rec
6877: , p_rev_comp_unexp_rec => l_rev_comp_unexp_rec
6878: , x_rev_component_rec => l_rev_component_rec
6880: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6881: , x_return_status => l_return_status
6882: );
6883:
6884: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
6885:
6886: IF l_return_status = Error_Handler.G_STATUS_ERROR
6887: THEN
6888: l_other_message := 'BOM_CMP_ATTDEF_CSEV_SKIP';
6921:
6922: -- Process Flow step 17: Entity defaulting for CREATE and UPDATE
6923: --
6924:
6925: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Entity defaulting'); END IF;
6926: IF l_rev_component_rec.Transaction_Type IN
6927: (ENG_GLOBALS.G_OPR_CREATE, ENG_GLOBALS.G_OPR_UPDATE)
6928: THEN
6929: Bom_Default_Bom_Component.Entity_Defaulting
6931: , p_old_rev_component_rec => l_old_rev_component_rec
6932: , x_rev_component_rec => l_rev_component_rec
6933: );
6934:
6935: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
6936:
6937: IF l_return_status = Error_Handler.G_STATUS_ERROR
6938: THEN
6939: IF l_rev_component_rec.transaction_type = 'CREATE'
6977:
6978: -- Process Flow step 18 - Entity Level Validation
6979: --
6980:
6981: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Entity validation'); END IF;
6982: Bom_Validate_Bom_Component.Check_Entity
6983: ( p_rev_component_rec => l_rev_component_rec
6984: , p_rev_comp_unexp_rec => l_rev_comp_unexp_rec
6985: , p_old_rev_component_rec => l_old_rev_component_rec
6987: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6988: , x_return_status => l_Return_Status
6989: );
6990:
6991: --IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
6992:
6993: IF l_return_status = Error_Handler.G_STATUS_ERROR
6994: THEN
6995: IF l_rev_component_rec.transaction_type = 'CREATE'
7032:
7033: -- Process Flow step 16 : Database Writes
7034: --
7035:
7036: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Writing to the database'); END IF;
7037: Bom_Bom_Component_Util.Perform_Writes
7038: ( p_rev_component_rec => l_rev_component_rec
7039: , p_rev_comp_unexp_rec => l_rev_comp_unexp_rec
7040: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
7040: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
7041: , x_return_status => l_return_status
7042: );
7043:
7044: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
7045:
7046: IF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
7047: THEN
7048: l_other_message := 'BOM_CMP_WRITES_UNEXP_SKIP';
7087:
7088: ELSE
7089:
7090:
7091: IF Bom_Globals.Get_Debug = 'Y' THEN
7092: Error_Handler.Write_Debug('This record does not patch with the parent that called it . . . ') ;
7093: Error_Handler.Write_Debug('so may be this is an comp in another branch . . . '
7094: || l_rev_component_rec.component_item_name ) ;
7095: END IF ;
7357: l_return_status := 'Q';
7358:
7359: WHEN EXC_UNEXP_SKIP_OBJECT THEN
7360:
7361: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Unexpected error caught in Rev Comps . . . '); END IF;
7362:
7363: Eco_Error_Handler.Log_Error
7364: ( p_rev_component_tbl => x_rev_component_tbl
7365: , p_ref_designator_tbl => x_ref_designator_tbl
7388: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
7389:
7390: l_return_status := 'U';
7391:
7392: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Unexpected error in Rev Comps . . .'); END IF;
7393:
7394: END; -- END block
7395:
7396: IF l_return_status in ('Q', 'U')
7396: IF l_return_status in ('Q', 'U')
7397: THEN
7398: x_return_status := l_return_status;
7399:
7400: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rev Comps returning with status ' || l_return_status ); END IF;
7401:
7402: RETURN;
7403: END IF;
7404:
7406: THEN
7407: -- Process Reference Designators that are direct children of this
7408: -- component
7409:
7410: IF Bom_Globals.Get_Debug = 'Y' THEN
7411: Error_Handler.Write_Debug('***********************************************************') ;
7412: Error_Handler.Write_Debug('Now processing direct children for the Rev Comp '
7413: || l_rev_component_rec.component_item_name || '. . .' );
7414: Error_Handler.Write_Debug('Now processing Ref Desig as direct children for the Rev Comp ') ;
7442:
7443: -- Process Substitute Components that are direct children of this
7444: -- component
7445:
7446: IF Bom_Globals.Get_Debug = 'Y' THEN
7447: Error_Handler.Write_Debug('***********************************************************') ;
7448: Error_Handler.Write_Debug('Now processing Ref Desig as direct children for the Rev Comp ') ;
7449: END IF ;
7450:
7470: THEN
7471: l_bo_return_status := l_return_status;
7472: END IF;
7473:
7474: 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;
7475:
7476: END IF; -- Process children
7477: x_return_status := l_bo_return_status;
7478: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
7647: l_return_status := FND_API.G_RET_STS_SUCCESS;
7648:
7649: l_rev_component_rec.return_status := FND_API.G_RET_STS_SUCCESS;
7650:
7651: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Processing component: ' || l_rev_component_rec.component_item_name); END IF;
7652: -- Check if transaction_type is valid
7653: --
7654: -- Bug 6657209
7655: IF (l_item_parent_exists and ENG_Default_Revised_Item.G_OLD_SCHED_DATE is not null ) THEN
7655: IF (l_item_parent_exists and ENG_Default_Revised_Item.G_OLD_SCHED_DATE is not null ) THEN
7656: l_rev_component_rec.start_effective_date := p_effectivity_date;
7657: END IF;
7658:
7659: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check transaction_type validity'); END IF;
7660: ENG_GLOBALS.Transaction_Type_Validity
7661: ( p_transaction_type => l_rev_component_rec.transaction_type
7662: , p_entity => 'Rev_Comps'
7663: , p_entity_id => l_rev_component_rec.revised_item_name
7672:
7673: -- Process Flow step 4(a): Convert user unique index to unique index I
7674: --
7675:
7676: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Converting user unique index to unique index I'); END IF;
7677: Bom_Val_To_Id.Rev_Component_UUI_To_UI
7678: ( p_rev_component_rec => l_rev_component_rec
7679: , p_rev_comp_unexp_rec => l_rev_comp_unexp_rec
7680: , x_rev_comp_unexp_rec => l_rev_comp_unexp_rec
7681: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
7682: , x_Return_Status => l_return_status
7683: );
7684:
7685: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
7686:
7687: IF l_return_status = Error_Handler.G_STATUS_ERROR
7688: THEN
7689: l_other_message := 'BOM_CMP_UUI_SEV_ERROR';
7700:
7701: -- Process Flow step 4(b): Convert user unique index to unique index II
7702: --
7703:
7704: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Converting user unique index to unique index II'); END IF;
7705: Bom_Val_To_Id.Rev_Component_UUI_To_UI2
7706: ( p_rev_component_rec => l_rev_component_rec
7707: , p_rev_comp_unexp_rec => l_rev_comp_unexp_rec
7708: , x_rev_comp_unexp_rec => l_rev_comp_unexp_rec
7711: , x_other_token_tbl => l_other_token_tbl
7712: , x_Return_Status => l_return_status
7713: );
7714:
7715: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
7716:
7717: IF l_return_status = Error_Handler.G_STATUS_ERROR
7718: THEN
7719: RAISE EXC_SEV_QUIT_SIBLINGS;
7724: l_other_token_tbl(1).token_value := l_rev_component_rec.component_item_name;
7725: RAISE EXC_UNEXP_SKIP_OBJECT;
7726: END IF;
7727:
7728: IF Bom_Globals.Get_Debug = 'Y' THEN
7729: Error_Handler.Write_Debug('Converting user unique index to unique index II for Bill And Rev Seq Id');
7730: END IF;
7731:
7732: ENG_Val_To_Id.BillAndRevitem_UUI_To_UI
7750: , x_other_token_tbl => l_other_token_tbl
7751: , x_Return_Status => l_return_status
7752: ) ;
7753:
7754: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status) ;
7755: END IF;
7756:
7757: IF l_return_status = Error_Handler.G_STATUS_ERROR
7758: THEN
7765: RAISE EXC_UNEXP_SKIP_OBJECT;
7766: END IF;
7767:
7768:
7769: BOM_Globals.Set_Unit_Controlled_Item
7770: ( p_inventory_item_id => l_rev_comp_unexp_rec.revised_item_id
7771: , p_organization_id => l_rev_comp_unexp_rec.organization_id
7772: );
7773:
7770: ( p_inventory_item_id => l_rev_comp_unexp_rec.revised_item_id
7771: , p_organization_id => l_rev_comp_unexp_rec.organization_id
7772: );
7773:
7774: BOM_Globals.Set_Unit_Controlled_Component
7775: ( p_inventory_item_id => l_rev_comp_unexp_rec.component_item_id
7776: , p_organization_id => l_rev_comp_unexp_rec.organization_id
7777: );
7778:
7778:
7779: -- Process Flow step 5: Verify Revised Component's existence
7780: --
7781:
7782: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check existence'); END IF;
7783: Bom_Validate_Bom_Component.Check_Existence
7784: ( p_rev_component_rec => l_rev_component_rec
7785: , p_rev_comp_unexp_rec => l_rev_comp_unexp_rec
7786: , x_old_rev_component_rec => l_old_rev_component_rec
7788: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
7789: , x_return_status => l_Return_Status
7790: );
7791:
7792: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
7793:
7794: IF l_return_status = Error_Handler.G_STATUS_ERROR
7795: THEN
7796: l_other_message := 'BOM_CMP_EXS_SEV_ERROR';
7812:
7813: -- Process Flow step 6: Check lineage
7814: --
7815:
7816: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check lineage'); END IF;
7817: Bom_Validate_Bom_Component.Check_Lineage
7818: ( p_rev_component_rec => l_rev_component_rec
7819: , p_rev_comp_unexp_rec => l_rev_comp_unexp_rec
7820: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
7820: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
7821: , x_return_status => l_Return_Status
7822: );
7823:
7824: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
7825:
7826: IF l_return_status = Error_Handler.G_STATUS_ERROR
7827: THEN
7828: l_other_message := 'BOM_CMP_LIN_SEV_SKIP';
7852: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
7853: , x_Return_Status => l_return_status
7854: );
7855:
7856: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
7857:
7858: IF l_return_status = Error_Handler.G_STATUS_ERROR
7859: THEN
7860: l_other_message := 'BOM_CMP_ECOACC_FAT_FATAL';
7872:
7873: -- Process Flow step 9(a and b): check that user has access to revised item
7874: --
7875:
7876: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check access'); END IF;
7877: ENG_Validate_Revised_Item.Check_Access
7878: ( p_change_notice => l_rev_component_rec.ECO_Name
7879: , p_organization_id => l_rev_comp_unexp_rec.organization_id
7880: , p_revised_item_id => l_rev_comp_unexp_rec.revised_item_id
7889: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
7890: , x_return_status => l_Return_Status
7891: );
7892:
7893: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
7894: IF l_return_status = Error_Handler.G_STATUS_ERROR
7895: THEN
7896: l_other_message := 'BOM_CMP_RITACC_FAT_FATAL';
7897: l_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
7908:
7909: -- Process Flow step 10: check that user has access to revised component
7910: --
7911:
7912: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check access'); END IF;
7913: Bom_Validate_Bom_Component.Check_Access
7914: ( p_change_notice => l_rev_component_rec.ECO_Name
7915: , p_organization_id => l_rev_comp_unexp_rec.organization_id
7916: , p_revised_item_id => l_rev_comp_unexp_rec.revised_item_id
7927: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
7928: , x_return_status => l_Return_Status
7929: );
7930:
7931: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
7932:
7933: IF l_return_status = Error_Handler.G_STATUS_ERROR
7934: THEN
7935: l_other_message := 'BOM_CMP_ACCESS_FAT_FATAL';
7981:
7982: -- Process Flow step 11: Value to Id conversions
7983: --
7984:
7985: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Value-id conversions'); END IF;
7986: Bom_Val_To_Id.Rev_Component_VID
7987: ( x_Return_Status => l_return_status
7988: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
7989: , p_rev_comp_unexp_Rec => l_rev_comp_unexp_rec
7990: , x_rev_comp_unexp_Rec => l_rev_comp_unexp_rec
7991: , p_rev_component_Rec => l_rev_component_rec
7992: );
7993:
7994: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
7995:
7996: IF l_return_status = Error_Handler.G_STATUS_ERROR
7997: THEN
7998: IF l_rev_component_rec.transaction_type = 'CREATE'
8036: -- Process Flow step 12: Check required fields exist
8037: -- (also includes conditionally required fields)
8038: --
8039:
8040: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check required fields'); END IF;
8041: Bom_Validate_Bom_Component.Check_Required
8042: ( x_return_status => l_return_status
8043: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
8044: , p_rev_component_rec => l_rev_component_rec
8043: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
8044: , p_rev_component_rec => l_rev_component_rec
8045: );
8046:
8047: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
8048:
8049: IF l_return_status = Error_Handler.G_STATUS_ERROR
8050: THEN
8051: IF l_rev_component_rec.transaction_type = 'CREATE'
8088:
8089: -- Process Flow step 13: Attribute Validation for CREATE and UPDATE
8090: --
8091:
8092: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Attribute Validation'); END IF;
8093: IF l_rev_component_rec.Transaction_Type IN
8094: (ENG_GLOBALS.G_OPR_CREATE, ENG_GLOBALS.G_OPR_UPDATE)
8095: THEN
8096: Bom_Validate_Bom_Component.Check_Attributes
8099: , p_rev_component_rec => l_rev_component_rec
8100: , p_rev_comp_unexp_rec => l_rev_comp_unexp_rec
8101: );
8102:
8103: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
8104:
8105: IF l_return_status = Error_Handler.G_STATUS_ERROR
8106: THEN
8107: IF l_rev_component_rec.transaction_type = 'CREATE'
8203: OR
8204: l_rev_component_rec.transaction_type IN (ENG_GLOBALS.G_OPR_UPDATE,
8205: ENG_GLOBALS.G_OPR_DELETE)
8206: THEN
8207: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Populate NULL columns'); END IF;
8208: Bom_Default_Bom_Component.Populate_Null_Columns
8209: ( p_rev_component_rec => l_rev_Component_Rec
8210: , p_old_rev_Component_Rec => l_old_rev_Component_Rec
8211: , p_rev_comp_unexp_rec => l_rev_comp_unexp_rec
8218:
8219: -- Process Flow step 16: Default missing values for Operation CREATE
8220: --
8221:
8222: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Attribute Defaulting'); END IF;
8223: Bom_Default_Bom_Component.Attribute_Defaulting
8224: ( p_rev_component_rec => l_rev_component_rec
8225: , p_rev_comp_unexp_rec => l_rev_comp_unexp_rec
8226: , x_rev_component_rec => l_rev_component_rec
8228: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
8229: , x_return_status => l_return_status
8230: );
8231:
8232: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
8233:
8234: IF l_return_status = Error_Handler.G_STATUS_ERROR
8235: THEN
8236: l_other_message := 'BOM_CMP_ATTDEF_CSEV_SKIP';
8269:
8270: -- Process Flow step 17: Entity defaulting for CREATE and UPDATE
8271: --
8272:
8273: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Entity defaulting'); END IF;
8274: IF l_rev_component_rec.Transaction_Type IN
8275: (ENG_GLOBALS.G_OPR_CREATE, ENG_GLOBALS.G_OPR_UPDATE)
8276: THEN
8277: Bom_Default_Bom_Component.Entity_Defaulting
8279: , p_old_rev_component_rec => l_old_rev_component_rec
8280: , x_rev_component_rec => l_rev_component_rec
8281: );
8282:
8283: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
8284:
8285: IF l_return_status = Error_Handler.G_STATUS_ERROR
8286: THEN
8287: IF l_rev_component_rec.transaction_type = 'CREATE'
8325:
8326: -- Process Flow step 18 - Entity Level Validation
8327: --
8328:
8329: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Entity validation'); END IF;
8330: Bom_Validate_Bom_Component.Check_Entity
8331: ( p_rev_component_rec => l_rev_component_rec
8332: , p_rev_comp_unexp_rec => l_rev_comp_unexp_rec
8333: , p_old_rev_component_rec => l_old_rev_component_rec
8335: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
8336: , x_return_status => l_Return_Status
8337: );
8338:
8339: --IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
8340:
8341: IF l_return_status = Error_Handler.G_STATUS_ERROR
8342: THEN
8343: IF l_rev_component_rec.transaction_type = 'CREATE'
8380:
8381: -- Process Flow step 16 : Database Writes
8382: --
8383:
8384: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Writing to the database'); END IF;
8385: Bom_Bom_Component_Util.Perform_Writes
8386: ( p_rev_component_rec => l_rev_component_rec
8387: , p_rev_comp_unexp_rec => l_rev_comp_unexp_rec
8388: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
8388: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
8389: , x_return_status => l_return_status
8390: );
8391:
8392: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
8393:
8394: IF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
8395: THEN
8396: l_other_message := 'BOM_CMP_WRITES_UNEXP_SKIP';
8435:
8436: ELSE
8437:
8438:
8439: IF Bom_Globals.Get_Debug = 'Y' THEN
8440: Error_Handler.Write_Debug('This record does not patch with the parent that called it . . . ') ;
8441: Error_Handler.Write_Debug('so may be this is an comp in another branch . . . '
8442: || l_rev_component_rec.component_item_name ) ;
8443: END IF ;
8696: l_return_status := 'Q';
8697:
8698: WHEN EXC_UNEXP_SKIP_OBJECT THEN
8699:
8700: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Unexpected error caught in Rev Comps . . . '); END IF;
8701:
8702: Eco_Error_Handler.Log_Error
8703: ( p_rev_component_tbl => x_rev_component_tbl
8704: , p_ref_designator_tbl => x_ref_designator_tbl
8727: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
8728:
8729: l_return_status := 'U';
8730:
8731: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Unexpected error in Rev Comps . . .'); END IF;
8732:
8733: END; -- END block
8734:
8735: IF l_return_status in ('Q', 'U')
8735: IF l_return_status in ('Q', 'U')
8736: THEN
8737: x_return_status := l_return_status;
8738:
8739: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rev Comps returning with status ' || l_return_status ); END IF;
8740:
8741: RETURN;
8742: END IF;
8743:
8745: THEN
8746: -- Process Reference Designators that are direct children of this
8747: -- component
8748:
8749: IF Bom_Globals.Get_Debug = 'Y' THEN
8750: Error_Handler.Write_Debug('***********************************************************') ;
8751: Error_Handler.Write_Debug('Now processing direct children for the Rev Comp '
8752: || l_rev_component_rec.component_item_name || '. . .' );
8753: Error_Handler.Write_Debug('Now processing Ref Desig as direct children for the Rev Comp ') ;
8781:
8782: -- Process Substitute Components that are direct children of this
8783: -- component
8784:
8785: IF Bom_Globals.Get_Debug = 'Y' THEN
8786: Error_Handler.Write_Debug('***********************************************************') ;
8787: Error_Handler.Write_Debug('Now processing Ref Desig as direct children for the Rev Comp ') ;
8788: END IF ;
8789:
8809: THEN
8810: l_bo_return_status := l_return_status;
8811: END IF;
8812:
8813: 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;
8814:
8815: END IF; -- Process children
8816: END IF; -- End of processing records for which the return status is null
8817: END LOOP; -- END Revised Components processing loop
8819: -- Load OUT parameters
8820:
8821: IF NVL(l_bo_return_status, 'S') <> 'S'
8822: THEN
8823: IF Bom_Globals.Get_Debug = 'Y' THEN
8824: Error_Handler.write_Debug('Return status before returning from Rev Comps: ' || l_bo_return_status);
8825: END IF;
8826: x_return_status := l_bo_return_status;
8827:
8948: -- Process Flow Step 2: Check if record has not yet been processed and
8949: -- that it is the child of the parent that called this procedure
8950: --
8951:
8952: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Processing Revised Item . . . ' || l_revised_item_rec.revised_item_name); END IF;
8953:
8954: IF --(l_revised_item_rec.return_status IS NULL OR
8955: --l_revised_item_rec.return_status = FND_API.G_MISS_CHAR)
8956: --AND
8967:
8968: -- Check if transaction_type is valid
8969: --
8970:
8971: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check transaction_type validity'); END IF;
8972: ENG_GLOBALS.Transaction_Type_Validity
8973: ( p_transaction_type => l_revised_item_rec.transaction_type
8974: , p_entity => 'Rev_Items'
8975: , p_entity_id => l_revised_item_rec.revised_item_name
8985:
8986: -- Process Flow step 4: Convert user unique index to unique index
8987: --
8988:
8989: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Converting user unique index to unique index'); END IF;
8990: ENG_Val_To_Id.Revised_Item_UUI_To_UI
8991: ( p_revised_item_rec => l_revised_item_rec
8992: , p_rev_item_unexp_rec => l_rev_item_unexp_rec
8993: , x_rev_item_unexp_rec => l_rev_item_unexp_rec
8994: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
8995: , x_Return_Status => l_return_status
8996: );
8997:
8998: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
8999:
9000: IF l_return_status = Error_Handler.G_STATUS_ERROR
9001: THEN
9002: l_other_message := 'ENG_RIT_UUI_SEV_ERROR';
9010: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
9011: RAISE EXC_UNEXP_SKIP_OBJECT;
9012: END IF;
9013:
9014: BOM_Globals.Set_Unit_Controlled_Item
9015: ( p_inventory_item_id => l_rev_item_unexp_rec.revised_item_id
9016: , p_organization_id => l_rev_item_unexp_rec.organization_id
9017: );
9018:
9019: -- Process Flow step 5: Verify ECO's existence in database, if
9020: -- the revised item is being created on an ECO and the business
9021: -- object does not carry the ECO header
9022:
9023: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check parent existence'); END IF;
9024:
9025: IF l_revised_item_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE
9026: AND
9027: NOT l_eco_parent_exists
9037: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
9038: , x_return_status => l_Return_Status
9039: );
9040:
9041: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
9042:
9043: IF l_return_status = Error_Handler.G_STATUS_ERROR
9044: THEN
9045: l_other_message := 'ENG_PARENTECO_NOT_EXIST';
9094: END IF;
9095: -- Process Flow step 5: Verify Revised Item's existence
9096: --
9097:
9098: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check existence'); END IF;
9099: ENG_Validate_Revised_Item.Check_Existence
9100: ( p_revised_item_rec => l_revised_item_rec
9101: , p_rev_item_unexp_rec => l_rev_item_unexp_rec
9102: , x_old_revised_item_rec => l_old_revised_item_rec
9105: , x_return_status => l_Return_Status
9106: , x_disable_revision => x_disable_revision --BUG 3034642
9107: );
9108:
9109: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
9110:
9111: IF l_return_status = Error_Handler.G_STATUS_ERROR
9112: THEN
9113: l_other_message := 'ENG_RIT_EXS_SEV_ERROR';
9142: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
9143: , x_Return_Status => l_return_status
9144: );
9145:
9146: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
9147:
9148: IF l_return_status = Error_Handler.G_STATUS_ERROR
9149: THEN
9150: l_other_message := 'ENG_RIT_ECOACC_FAT_FATAL';
9162:
9163: -- Process Flow step 7(b): check that user has access to revised item
9164: --
9165:
9166: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check access'); END IF;
9167: ENG_Validate_Revised_Item.Check_Access
9168: ( p_change_notice => l_revised_item_rec.ECO_Name
9169: , p_organization_id => l_rev_item_unexp_rec.organization_id
9170: , p_revised_item_id => l_rev_item_unexp_rec.revised_item_id
9177: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
9178: , x_return_status => l_Return_Status
9179: );
9180:
9181: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
9182:
9183: IF l_return_status = Error_Handler.G_STATUS_ERROR
9184: THEN
9185: l_other_message := 'ENG_RIT_ACCESS_FAT_FATAL';
9203: -- (for future release, flow routing is not supported in current release
9204: -- Added by MK on 08/24/2000
9205: --
9206: /* Comment out for current release
9207: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check Non-Flow Routing'); END IF;
9208:
9209: Bom_Validate_Rtg_Header.Check_flow_routing_operability ;
9210: ( p_assembly_item_name => l_revised_item_rec.revised_item_name
9211: , p_cfm_routing_flag => l_rev_item_unexp_rec.cfm_routing_flag
9214: , x_mesg_token_tbl => l_mesg_token_tbl
9215: , x_return_status => l_return_status
9216: );
9217:
9218: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
9219:
9220:
9221: IF l_return_status = Error_Handler.G_STATUS_ERROR
9222: THEN
9239:
9240: -- Process Flow step 9: Value to Id conversions
9241: --
9242:
9243: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Value-id conversions'); END IF;
9244: ENG_Val_To_Id.Revised_Item_VID
9245: ( x_Return_Status => l_return_status
9246: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
9247: , p_rev_item_unexp_Rec => l_rev_item_unexp_rec
9248: , x_rev_item_unexp_Rec => l_rev_item_unexp_rec
9249: , p_revised_item_Rec => l_revised_item_rec
9250: );
9251:
9252: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
9253:
9254: IF l_return_status = Error_Handler.G_STATUS_ERROR
9255: THEN
9256: IF l_revised_item_rec.transaction_type = 'CREATE'
9295: -- Process Flow step 10: Attribute Validation for CREATE and UPDATE
9296: --
9297:
9298:
9299: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Attribute Validation'); END IF;
9300: IF l_revised_item_rec.Transaction_Type IN
9301: (ENG_GLOBALS.G_OPR_CREATE, ENG_GLOBALS.G_OPR_UPDATE)
9302: THEN
9303: ENG_Validate_Revised_Item.Check_Attributes
9308: , p_old_revised_item_rec => l_old_revised_item_rec
9309: , p_old_rev_item_unexp_rec => l_old_rev_item_unexp_rec
9310: );
9311:
9312: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
9313:
9314: IF l_return_status = Error_Handler.G_STATUS_ERROR
9315: THEN
9316: IF l_revised_item_rec.transaction_type = 'CREATE'
9362:
9363: -- Process flow step 11 - Populate NULL columns for Update and
9364: -- Delete.
9365:
9366: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Populating NULL Columns'); END IF;
9367: Eng_Default_Revised_Item.Populate_NULL_Columns
9368: ( p_revised_item_rec => l_revised_item_rec
9369: , p_old_revised_item_rec => l_old_revised_item_rec
9370: , p_rev_item_unexp_rec => l_rev_item_unexp_rec
9377:
9378: -- Process Flow step 12: Default missing values for Operation CREATE
9379: --
9380:
9381: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Attribute Defaulting'); END IF;
9382: Eng_Default_Revised_Item.Attribute_Defaulting
9383: ( p_revised_item_rec => l_revised_item_rec
9384: , p_rev_item_unexp_rec => l_rev_item_unexp_rec
9385: , x_revised_item_rec => l_revised_item_rec
9387: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
9388: , x_return_status => l_return_status
9389: );
9390:
9391: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
9392:
9393: IF l_return_status = Error_Handler.G_STATUS_ERROR
9394: THEN
9395: l_other_message := 'ENG_RIT_ATTDEF_SEV_SKIP';
9432:
9433: -- Process Flow step 13 - Conditionally required attributes check
9434: --
9435:
9436: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Conditionally required attributes check'); END IF;
9437:
9438: --
9439: -- Put conditionally required check procedure here
9440: --
9438: --
9439: -- Put conditionally required check procedure here
9440: --
9441:
9442: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
9443:
9444: ENG_Validate_Revised_Item.Check_Required
9445: ( x_return_status => l_return_status
9446: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
9493:
9494: -- Process Flow step 14: Entity defaulting for CREATE and UPDATE
9495: --
9496:
9497: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Entity defaulting'); END IF;
9498: IF l_revised_item_rec.Transaction_Type IN
9499: (ENG_GLOBALS.G_OPR_CREATE, ENG_GLOBALS.G_OPR_UPDATE)
9500: THEN
9501: ENG_Default_Revised_Item.Entity_Defaulting
9508: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
9509: , x_return_status => l_return_status
9510: );
9511:
9512: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
9513:
9514: IF l_return_status = Error_Handler.G_STATUS_ERROR
9515: THEN
9516: IF l_revised_item_rec.transaction_type = 'CREATE'
9558:
9559: -- Process Flow step 15 - Entity Level Validation
9560: --
9561:
9562: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Entity validation'); END IF;
9563:
9564: IF l_revised_item_rec.transaction_type = 'DELETE'
9565: THEN
9566: Eng_Validate_Revised_Item.Check_Entity_Delete
9579: , x_return_status => l_Return_Status
9580: );
9581: END IF;
9582:
9583: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
9584:
9585: IF l_return_status = Error_Handler.G_STATUS_ERROR
9586: THEN
9587: IF l_revised_item_rec.transaction_type = 'CREATE'
9628:
9629: -- Process Flow step 16 : Database Writes
9630: --
9631:
9632: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Writing to the database'); END IF;
9633: ENG_Revised_Item_Util.Perform_Writes
9634: ( p_revised_item_rec => l_revised_item_rec
9635: , p_rev_item_unexp_rec => l_rev_item_unexp_rec
9636: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
9636: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
9637: , x_return_status => l_return_status
9638: );
9639:
9640: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
9641:
9642: IF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
9643: THEN
9644: l_other_message := 'ENG_RIT_WRITES_UNEXP_SKIP';
9671: , x_rev_sub_resource_tbl => x_rev_sub_resource_tbl --L1
9672: );
9673: END IF;
9674:
9675: IF Bom_Globals.Get_Debug = 'Y' THEN
9676: Error_Handler.Write_Debug('Writing to the database for Rev Item is completed with '||l_return_status );
9677: END IF;
9678:
9679: END IF; -- END IF statement that checks RETURN STATUS
10059: --
10060: -- Modified by MK on 11/30/00 Moved eco for routing procedure before BOMs.
10061: --
10062:
10063: -- 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;
10064:
10065: Rev_Operation_Sequences
10066: ( p_validation_level => p_validation_level
10067: , p_change_notice => l_revised_item_rec.ECO_Name
10091: -- Process resource that are orphans
10092: -- (without immediate revised component parents) but are
10093: -- indirect children of this item
10094:
10095: -- 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;
10096:
10097:
10098: Rev_Operation_Resources
10099: ( p_validation_level => p_validation_level
10119: -- Process substitute resources that are orphans
10120: -- (without immediate revised component parents) but are
10121: -- indirect children of this item
10122:
10123: -- 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;
10124:
10125:
10126: Rev_Sub_Operation_Resources
10127: ( p_validation_level => p_validation_level
10146:
10147:
10148: -- Process Revised Components that are direct children of this item
10149:
10150: IF Bom_Globals.Get_Debug = 'Y' THEN
10151: Error_Handler.Write_Debug('***********************************************************') ;
10152: Error_Handler.Write_Debug('Now processing direct children for the Rev Item '
10153: || l_revised_item_rec.revised_item_name || '. . .' );
10154: Error_Handler.Write_Debug('Processing Rev Comp as children of Revised item ' || l_revised_item_rec.revised_item_name);
10174: , x_return_status => l_return_status
10175: , x_bill_sequence_id => l_rev_item_unexp_rec.bill_sequence_id
10176: );
10177:
10178: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rev_Comps return status ' || l_return_status); END IF;
10179:
10180: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
10181: THEN
10182:
10179:
10180: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
10181: THEN
10182:
10183: IF Bom_Globals.Get_Debug = 'Y' THEN
10184: Error_Handler.Write_Debug('Rev_Comps returned in Rev_Items . . .BO Status: ' || l_return_status);
10185: END IF;
10186:
10187: l_bo_return_status := l_return_status;
10190: -- Process Reference Designators that are orphans
10191: -- (without immediate revised component parents) but are
10192: -- indirect children of this item
10193:
10194: IF Bom_Globals.Get_Debug = 'Y' THEN
10195: Error_Handler.Write_Debug('***********************************************************') ;
10196: Error_Handler.Write_Debug('Processing Ref Desgs as children of Revised item ' || l_revised_item_rec.revised_item_name);
10197: END IF;
10198:
10223: THEN
10224: l_bo_return_status := l_return_status;
10225: END IF;
10226:
10227: IF Bom_Globals.Get_Debug = 'Y' THEN
10228: Error_Handler.Write_Debug('***********************************************************') ;
10229: Error_Handler.Write_Debug('Processing Sub Comps children of Revised item ' || l_revised_item_rec.revised_item_name);
10230: END IF;
10231:
10383: -- Process Flow Step 2: Check if record has not yet been processed and
10384: -- that it is the child of the parent that called this procedure
10385: --
10386:
10387: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Processing Revised Item . . . ' || l_revised_item_rec.revised_item_name); END IF;
10388:
10389: IF --(l_revised_item_rec.return_status IS NULL OR
10390: --l_revised_item_rec.return_status = FND_API.G_MISS_CHAR)
10391: --AND
10402:
10403: -- Check if transaction_type is valid
10404: --
10405:
10406: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check transaction_type validity'); END IF;
10407: ENG_GLOBALS.Transaction_Type_Validity
10408: ( p_transaction_type => l_revised_item_rec.transaction_type
10409: , p_entity => 'Rev_Items'
10410: , p_entity_id => l_revised_item_rec.revised_item_name
10420:
10421: -- Process Flow step 4: Convert user unique index to unique index
10422: --
10423:
10424: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Converting user unique index to unique index'); END IF;
10425: ENG_Val_To_Id.Revised_Item_UUI_To_UI
10426: ( p_revised_item_rec => l_revised_item_rec
10427: , p_rev_item_unexp_rec => l_rev_item_unexp_rec
10428: , x_rev_item_unexp_rec => l_rev_item_unexp_rec
10429: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
10430: , x_Return_Status => l_return_status
10431: );
10432:
10433: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
10434:
10435: IF l_return_status = Error_Handler.G_STATUS_ERROR
10436: THEN
10437: l_other_message := 'ENG_RIT_UUI_SEV_ERROR';
10445: l_other_token_tbl(1).token_value := l_revised_item_rec.revised_item_name;
10446: RAISE EXC_UNEXP_SKIP_OBJECT;
10447: END IF;
10448:
10449: BOM_Globals.Set_Unit_Controlled_Item
10450: ( p_inventory_item_id => l_rev_item_unexp_rec.revised_item_id
10451: , p_organization_id => l_rev_item_unexp_rec.organization_id
10452: );
10453:
10454: -- Process Flow step 5: Verify ECO's existence in database, if
10455: -- the revised item is being created on an ECO and the business
10456: -- object does not carry the ECO header
10457:
10458: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check parent existence'); END IF;
10459:
10460: IF l_revised_item_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE
10461: AND
10462: NOT l_eco_parent_exists
10472: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
10473: , x_return_status => l_Return_Status
10474: );
10475:
10476: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
10477:
10478: IF l_return_status = Error_Handler.G_STATUS_ERROR
10479: THEN
10480: l_other_message := 'ENG_PARENTECO_NOT_EXIST';
10532: END IF;
10533: -- Process Flow step 5: Verify Revised Item's existence
10534: --
10535:
10536: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check existence'); END IF;
10537: ENG_Validate_Revised_Item.Check_Existence
10538: ( p_revised_item_rec => l_revised_item_rec
10539: , p_rev_item_unexp_rec => l_rev_item_unexp_rec
10540: , x_old_revised_item_rec => l_old_revised_item_rec
10543: , x_return_status => l_Return_Status
10544: , x_disable_revision => x_disable_revision --BUG 3034642
10545: );
10546:
10547: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
10548:
10549: IF l_return_status = Error_Handler.G_STATUS_ERROR
10550: THEN
10551: l_other_message := 'ENG_RIT_EXS_SEV_ERROR';
10595: , p_check_scheduled_status => TRUE -- bug 5756870
10596: );
10597: END IF;
10598:
10599: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
10600:
10601: IF l_return_status = Error_Handler.G_STATUS_ERROR
10602: THEN
10603: l_other_message := 'ENG_RIT_ECOACC_FAT_FATAL';
10618: --
10619: -- Bug No: 5246049
10620: -- Moved validation outside 'IF NOT l_eco_parent_exists' as validation should happen in all cases
10621:
10622: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check access'); END IF;
10623: IF (l_revised_item_rec.Transaction_Type = ENG_GLOBALS.G_OPR_UPDATE ) THEN
10624: ENG_Validate_Revised_Item.Check_Access
10625: ( p_change_notice => l_revised_item_rec.ECO_Name
10626: , p_organization_id => l_rev_item_unexp_rec.organization_id
10653:
10654: END IF;
10655:
10656:
10657: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
10658:
10659: IF l_return_status = Error_Handler.G_STATUS_ERROR
10660: THEN
10661: l_other_message := 'ENG_RIT_ACCESS_FAT_FATAL';
10679: -- (for future release, flow routing is not supported in current release
10680: -- Added by MK on 08/24/2000
10681: --
10682: /* Comment out for current release
10683: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check Non-Flow Routing'); END IF;
10684:
10685: Bom_Validate_Rtg_Header.Check_flow_routing_operability ;
10686: ( p_assembly_item_name => l_revised_item_rec.revised_item_name
10687: , p_cfm_routing_flag => l_rev_item_unexp_rec.cfm_routing_flag
10690: , x_mesg_token_tbl => l_mesg_token_tbl
10691: , x_return_status => l_return_status
10692: );
10693:
10694: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
10695:
10696:
10697: IF l_return_status = Error_Handler.G_STATUS_ERROR
10698: THEN
10715:
10716: -- Process Flow step 9: Value to Id conversions
10717: --
10718:
10719: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Value-id conversions'); END IF;
10720: ENG_Val_To_Id.Revised_Item_VID
10721: ( x_Return_Status => l_return_status
10722: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
10723: , p_rev_item_unexp_Rec => l_rev_item_unexp_rec
10724: , x_rev_item_unexp_Rec => l_rev_item_unexp_rec
10725: , p_revised_item_Rec => l_revised_item_rec
10726: );
10727:
10728: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
10729:
10730: IF l_return_status = Error_Handler.G_STATUS_ERROR
10731: THEN
10732: IF l_revised_item_rec.transaction_type = 'CREATE'
10781: , p_revised_item_Rec => l_revised_item_rec
10782: );
10783:
10784:
10785: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
10786:
10787: IF l_return_status = Error_Handler.G_STATUS_ERROR
10788: THEN
10789:
10821: -- Process Flow step 10: Attribute Validation for CREATE and UPDATE
10822: --
10823:
10824:
10825: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Attribute Validation'); END IF;
10826: IF l_revised_item_rec.Transaction_Type IN
10827: (ENG_GLOBALS.G_OPR_CREATE, ENG_GLOBALS.G_OPR_UPDATE)
10828: THEN
10829: ENG_Validate_Revised_Item.Check_Attributes
10834: , p_old_revised_item_rec => l_old_revised_item_rec
10835: , p_old_rev_item_unexp_rec => l_old_rev_item_unexp_rec
10836: );
10837:
10838: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
10839:
10840: IF l_return_status = Error_Handler.G_STATUS_ERROR
10841: THEN
10842: IF l_revised_item_rec.transaction_type = 'CREATE'
10888:
10889: -- Process flow step 11 - Populate NULL columns for Update and
10890: -- Delete.
10891:
10892: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Populating NULL Columns'); END IF;
10893: Eng_Default_Revised_Item.Populate_NULL_Columns
10894: ( p_revised_item_rec => l_revised_item_rec
10895: , p_old_revised_item_rec => l_old_revised_item_rec
10896: , p_rev_item_unexp_rec => l_rev_item_unexp_rec
10903:
10904: -- Process Flow step 12: Default missing values for Operation CREATE
10905: --
10906:
10907: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Attribute Defaulting'); END IF;
10908: Eng_Default_Revised_Item.Attribute_Defaulting
10909: ( p_revised_item_rec => l_revised_item_rec
10910: , p_rev_item_unexp_rec => l_rev_item_unexp_rec
10911: , x_revised_item_rec => l_revised_item_rec
10913: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
10914: , x_return_status => l_return_status
10915: );
10916:
10917: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
10918:
10919: IF l_return_status = Error_Handler.G_STATUS_ERROR
10920: THEN
10921: l_other_message := 'ENG_RIT_ATTDEF_SEV_SKIP';
10958:
10959: -- Process Flow step 13 - Conditionally required attributes check
10960: --
10961:
10962: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Conditionally required attributes check'); END IF;
10963:
10964: --
10965: -- Put conditionally required check procedure here
10966: --
10964: --
10965: -- Put conditionally required check procedure here
10966: --
10967:
10968: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
10969:
10970: ENG_Validate_Revised_Item.Check_Required
10971: ( x_return_status => l_return_status
10972: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
11019:
11020: -- Process Flow step 14: Entity defaulting for CREATE and UPDATE
11021: --
11022:
11023: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Entity defaulting'); END IF;
11024: IF l_revised_item_rec.Transaction_Type IN
11025: (ENG_GLOBALS.G_OPR_CREATE, ENG_GLOBALS.G_OPR_UPDATE)
11026: THEN
11027: ENG_Default_Revised_Item.Entity_Defaulting
11034: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
11035: , x_return_status => l_return_status
11036: );
11037:
11038: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
11039:
11040: IF l_return_status = Error_Handler.G_STATUS_ERROR
11041: THEN
11042: IF l_revised_item_rec.transaction_type = 'CREATE'
11084:
11085: -- Process Flow step 15 - Entity Level Validation
11086: --
11087:
11088: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Entity validation'); END IF;
11089:
11090: IF l_revised_item_rec.transaction_type = 'DELETE'
11091: THEN
11092: Eng_Validate_Revised_Item.Check_Entity_Delete
11105: , x_return_status => l_Return_Status
11106: );
11107: END IF;
11108:
11109: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
11110:
11111: IF l_return_status = Error_Handler.G_STATUS_ERROR
11112: THEN
11113: IF l_revised_item_rec.transaction_type = 'CREATE'
11154:
11155: -- Process Flow step 16 : Database Writes
11156: --
11157:
11158: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Writing to the database'); END IF;
11159: ENG_Revised_Item_Util.Perform_Writes
11160: ( p_revised_item_rec => l_revised_item_rec
11161: , p_rev_item_unexp_rec => l_rev_item_unexp_rec
11162: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
11162: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
11163: , x_return_status => l_return_status
11164: );
11165:
11166: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
11167:
11168: IF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
11169: THEN
11170: l_other_message := 'ENG_RIT_WRITES_UNEXP_SKIP';
11197: , x_rev_sub_resource_tbl => x_rev_sub_resource_tbl --L1
11198: );
11199: END IF;
11200:
11201: IF Bom_Globals.Get_Debug = 'Y' THEN
11202: Error_Handler.Write_Debug('Writing to the database for Rev Item is completed with '||l_return_status );
11203: END IF;
11204:
11205: END IF; -- END IF statement that checks RETURN STATUS
11585: --
11586: -- Modified by MK on 11/30/00 Moved eco for routing procedure before BOMs.
11587: --
11588:
11589: -- 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;
11590:
11591: Rev_Operation_Sequences
11592: ( p_validation_level => p_validation_level
11593: , p_change_notice => l_revised_item_rec.ECO_Name
11617: -- Process resource that are orphans
11618: -- (without immediate revised component parents) but are
11619: -- indirect children of this item
11620:
11621: -- 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;
11622:
11623:
11624: Rev_Operation_Resources
11625: ( p_validation_level => p_validation_level
11645: -- Process substitute resources that are orphans
11646: -- (without immediate revised component parents) but are
11647: -- indirect children of this item
11648:
11649: -- 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;
11650:
11651:
11652: Rev_Sub_Operation_Resources
11653: ( p_validation_level => p_validation_level
11672:
11673:
11674: -- Process Revised Components that are direct children of this item
11675:
11676: IF Bom_Globals.Get_Debug = 'Y' THEN
11677: Error_Handler.Write_Debug('***********************************************************') ;
11678: Error_Handler.Write_Debug('Now processing direct children for the Rev Item '
11679: || l_revised_item_rec.revised_item_name || '. . .' );
11680: Error_Handler.Write_Debug('Processing Rev Comp as children of Revised item ' || l_revised_item_rec.revised_item_name);
11700: , x_return_status => l_return_status
11701: , x_bill_sequence_id => l_rev_item_unexp_rec.bill_sequence_id
11702: );
11703:
11704: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rev_Comps return status ' || l_return_status); END IF;
11705:
11706: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
11707: THEN
11708:
11705:
11706: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
11707: THEN
11708:
11709: IF Bom_Globals.Get_Debug = 'Y' THEN
11710: Error_Handler.Write_Debug('Rev_Comps returned in Rev_Items . . .BO Status: ' || l_return_status);
11711: END IF;
11712:
11713: l_bo_return_status := l_return_status;
11716: -- Process Reference Designators that are orphans
11717: -- (without immediate revised component parents) but are
11718: -- indirect children of this item
11719:
11720: IF Bom_Globals.Get_Debug = 'Y' THEN
11721: Error_Handler.Write_Debug('***********************************************************') ;
11722: Error_Handler.Write_Debug('Processing Ref Desgs as children of Revised item ' || l_revised_item_rec.revised_item_name);
11723: END IF;
11724:
11749: THEN
11750: l_bo_return_status := l_return_status;
11751: END IF;
11752:
11753: IF Bom_Globals.Get_Debug = 'Y' THEN
11754: Error_Handler.Write_Debug('***********************************************************') ;
11755: Error_Handler.Write_Debug('Processing Sub Comps children of Revised item ' || l_revised_item_rec.revised_item_name);
11756: END IF;
11757:
11786: IF NVL(l_bo_return_status, 'S') <> 'S'
11787: THEN
11788: x_return_status := l_bo_return_status;
11789:
11790: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rev Items returning with ' || l_bo_return_status); END IF;
11791:
11792: END IF;
11793: --x_revised_item_tbl := l_revised_item_tbl;
11794: --x_rev_component_tbl := l_rev_component_tbl;
11940: -- Process Flow Step 2: Check if record has not yet been processed and
11941: -- that it is the child of the parent that called this procedure
11942: --
11943:
11944: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Processing Change Line . . . ' || l_change_line_rec.name); END IF;
11945:
11946: --IF (l_change_line_rec.return_status IS NULL OR
11947: --l_change_line_rec.return_status = FND_API.G_MISS_CHAR)
11948: --THEN
11952:
11953: -- Check if transaction_type is valid
11954: --
11955:
11956: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check transaction_type validity'); END IF;
11957:
11958: ENG_GLOBALS.Transaction_Type_Validity
11959: ( p_transaction_type => l_change_line_rec.transaction_type
11960: , p_entity => 'Change_Lines'
11972: --
11973: -- Process Flow step 4: Convert user unique index to unique index
11974: --
11975:
11976: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Converting user unique index to unique index'); END IF;
11977:
11978: ENG_Val_To_Id.Change_Line_UUI_To_UI
11979: ( p_change_line_rec => l_change_line_rec
11980: , p_change_line_unexp_rec => l_change_line_unexp_rec
11983: , x_Return_Status => l_return_status
11984: );
11985:
11986:
11987: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
11988:
11989: IF l_return_status = Error_Handler.G_STATUS_ERROR
11990: THEN
11991:
12005:
12006: --
12007: -- Process Flow step 4(b): Check required fields exist
12008: --
12009: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check Required'); END IF;
12010: ENG_Validate_Change_Line.Check_Required
12011: ( x_return_status => l_return_status
12012: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
12013: , p_change_line_rec => l_change_line_rec
12060: );
12061:
12062: END IF;
12063:
12064: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
12065:
12066:
12067: -- Process Flow step 5: Verify ECO's existence in database, if
12068: -- the revised item is being created on an ECO and the business
12067: -- Process Flow step 5: Verify ECO's existence in database, if
12068: -- the revised item is being created on an ECO and the business
12069: -- object does not carry the ECO header
12070:
12071: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check parent existence'); END IF;
12072:
12073: IF l_change_line_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE
12074: AND NOT l_eco_parent_exists
12075: THEN
12084: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
12085: , x_return_status => l_Return_Status
12086: );
12087:
12088: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
12089:
12090: IF l_return_status = Error_Handler.G_STATUS_ERROR
12091: THEN
12092: l_other_message := 'ENG_PARENTECO_NOT_EXIST';
12130: -- End Changes
12131:
12132: -- Process Flow step 5: Verify Revised Item's existence
12133: --
12134: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check existence'); END IF;
12135:
12136: ENG_Validate_Change_Line.Check_Existence
12137: ( p_change_line_rec => l_change_line_rec
12138: , p_change_line_unexp_rec => l_change_line_unexp_rec
12141: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
12142: , x_return_status => l_Return_Status
12143: );
12144:
12145: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
12146:
12147: IF l_return_status = Error_Handler.G_STATUS_ERROR
12148: THEN
12149: l_other_message := 'ENG_CL_EXS_SEV_ERROR';
12178: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
12179: , x_Return_Status => l_return_status
12180: );
12181:
12182: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
12183:
12184: IF l_return_status = Error_Handler.G_STATUS_ERROR
12185: THEN
12186: l_other_message := 'ENG_CL_ECOACC_FAT_FATAL';
12200:
12201:
12202: -- Process Flow step 7: Value to Id conversions
12203: --
12204: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Value-id conversions'); END IF;
12205:
12206: ENG_Val_To_Id.Change_Line_VID
12207: ( p_change_line_rec => l_change_line_rec
12208: , p_change_line_unexp_rec => l_change_line_unexp_rec
12211: , x_Return_Status => l_return_status
12212: );
12213:
12214:
12215: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
12216:
12217: IF l_return_status = Error_Handler.G_STATUS_ERROR
12218: THEN
12219: IF l_change_line_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE
12260:
12261:
12262: -- Process Flow step8: check that user has access to item associated to change line
12263: --
12264: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check access'); END IF;
12265: IF l_change_line_unexp_rec.pk1_value IS NOT NULL THEN
12266:
12267: ENG_Validate_Change_Line.Check_Access
12268: ( p_change_line_rec => l_change_line_rec
12271: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
12272: , x_return_status => l_Return_Status
12273: );
12274:
12275: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
12276:
12277: IF l_return_status = Error_Handler.G_STATUS_ERROR
12278: THEN
12279: l_other_message := 'ENG_CL_ACCESS_FAT_FATAL';
12298: --
12299: -- Process Flow step 10: Attribute Validation for CREATE and UPDATE
12300: --
12301:
12302: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Attribute Validation'); END IF;
12303: IF l_change_line_rec.Transaction_Type IN
12304: (ENG_GLOBALS.G_OPR_CREATE, ENG_GLOBALS.G_OPR_UPDATE)
12305: THEN
12306: ENG_Validate_Change_Line.Check_Attributes
12311: , p_old_change_line_rec => l_old_change_line_rec
12312: , p_old_change_line_unexp_rec => l_old_change_line_unexp_rec
12313: );
12314:
12315: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
12316:
12317: IF l_return_status = Error_Handler.G_STATUS_ERROR
12318: THEN
12319: IF l_change_line_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE
12374:
12375: -- Process flow step 11 - Populate NULL columns for Update and
12376: -- Delete.
12377:
12378: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Populating NULL Columns'); END IF;
12379:
12380: Eng_Default_Change_Line.Populate_NULL_Columns
12381: ( p_change_line_rec => l_change_line_rec
12382: , p_change_line_unexp_rec => l_change_line_unexp_rec
12390:
12391: -- Process Flow step 12: Default missing values for Operation CREATE
12392: --
12393:
12394: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Attribute Defaulting'); END IF;
12395: Eng_Default_Change_Line.Attribute_Defaulting
12396: ( p_change_line_rec => l_change_line_rec
12397: , p_change_line_unexp_rec => l_change_line_unexp_rec
12398: , x_change_line_rec => l_change_line_rec
12400: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
12401: , x_return_status => l_return_status
12402: );
12403:
12404: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
12405:
12406: IF l_return_status = Error_Handler.G_STATUS_ERROR
12407: THEN
12408: l_other_message := 'ENG_CL_ATTDEF_SEV_SKIP';
12449:
12450: -- Process Flow step 13 - Conditionally required attributes check
12451: --
12452:
12453: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Conditionally required attributes check'); END IF;
12454:
12455: --
12456: -- Put conditionally required check procedure here
12457: --
12455: --
12456: -- Put conditionally required check procedure here
12457: --
12458:
12459: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
12460:
12461: ENG_Validate_Change_Line.Check_Conditionally_Required
12462: ( p_change_line_rec => l_change_line_rec
12463: , p_change_line_unexp_rec => l_change_line_unexp_rec
12515:
12516: -- Process Flow step 14: Entity defaulting for CREATE and UPDATE
12517: --
12518:
12519: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Entity defaulting'); END IF;
12520:
12521: IF l_change_line_rec.Transaction_Type IN
12522: (ENG_GLOBALS.G_OPR_CREATE, ENG_GLOBALS.G_OPR_UPDATE)
12523: THEN
12532: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
12533: , x_return_status => l_return_status
12534: );
12535:
12536: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
12537:
12538: IF l_return_status = Error_Handler.G_STATUS_ERROR
12539: THEN
12540: IF l_change_line_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE
12585:
12586: -- Process Flow step 15 - Entity Level Validation
12587: --
12588:
12589: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Entity validation'); END IF;
12590:
12591: IF l_change_line_rec.transaction_type = ENG_GLOBALS.G_OPR_DELETE
12592: THEN
12593: ENG_Validate_Change_Line.Check_Entity_Delete
12606: , x_return_status => l_Return_Status
12607: );
12608: END IF;
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
12658:
12659: -- Process Flow step 16 : Database Writes
12660: --
12661:
12662: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Writing to the database'); END IF;
12663:
12664: ENG_Change_Line_Util.Perform_Writes
12665: ( p_change_line_rec => l_change_line_rec
12666: , p_change_line_unexp_rec => l_change_line_unexp_rec
12676: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
12677: , x_return_status => l_Return_Status);
12678: --11.5.10
12679: END IF;
12680: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
12681: -- Bug 4033384: Added error handling for subject validation for l_return_status G_STATUS_ERROR
12682: IF l_return_status = Error_Handler.G_STATUS_ERROR
12683: THEN
12684: IF l_change_line_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE
12725: );
12726:
12727: END IF;
12728:
12729: IF Bom_Globals.Get_Debug = 'Y' THEN
12730: Error_Handler.Write_Debug('Writing to the database for Change Line is completed with '||l_return_status );
12731: END IF;
12732:
12733: --END IF; -- END IF statement that checks RETURN STATUS
12986: RETURN;
12987: END IF;
12988:
12989:
12990: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Change Line returning with ' || l_bo_return_status); END IF;
12991:
12992: IF NVL(l_bo_return_status, 'S') <> 'S'
12993: THEN
12994: x_return_status := l_bo_return_status;
13138:
13139: -- Check if transaction_type is valid
13140: --
13141:
13142: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Transaction Type validity'); END IF;
13143: ENG_GLOBALS.Transaction_Type_Validity
13144: ( p_transaction_type => l_eco_revision_rec.transaction_type
13145: , p_entity => 'ECO_Rev'
13146: , p_entity_id => l_eco_revision_rec.revision
13167:
13168: -- Process Flow step 4: Verify that Revision is not NULL or MISSING
13169: --
13170:
13171: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check if Revision is missing or null'); END IF;
13172: ENG_Validate_Eco_Revision.Check_Required
13173: ( x_return_status => l_return_status
13174: , p_eco_revision_rec => l_eco_revision_rec
13175: , x_mesg_token_tbl => l_Mesg_Token_Tbl
13174: , p_eco_revision_rec => l_eco_revision_rec
13175: , x_mesg_token_tbl => l_Mesg_Token_Tbl
13176: );
13177:
13178: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
13179:
13180: IF l_return_status = Error_Handler.G_STATUS_ERROR
13181: THEN
13182: RAISE EXC_SEV_QUIT_RECORD;
13191: -- Process Flow step 5: Verify ECO's existence in database, if
13192: -- the revised item is being created on an ECO and the business
13193: -- object does not carry the ECO header
13194:
13195: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check parent existence'); END IF;
13196:
13197: IF l_eco_revision_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE
13198: AND
13199: NOT l_eco_parent_exists
13209: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
13210: , x_return_status => l_Return_Status
13211: );
13212:
13213: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
13214:
13215: IF l_return_status = Error_Handler.G_STATUS_ERROR
13216: THEN
13217: l_other_message := 'ENG_PARENTECO_NOT_EXIST';
13255:
13256: -- Process Flow step 4: Verify Revision's existence
13257: --
13258:
13259: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check Existence'); END IF;
13260: ENG_Validate_ECO_Revision.Check_Existence
13261: ( p_eco_revision_rec => l_eco_revision_rec
13262: , p_eco_rev_unexp_rec => l_eco_rev_unexp_rec
13263: , x_old_eco_revision_rec => l_old_eco_rev_rec
13265: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
13266: , x_return_status => l_Return_Status
13267: );
13268:
13269: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
13270:
13271: IF l_return_status = Error_Handler.G_STATUS_ERROR
13272: THEN
13273: RAISE EXC_SEV_QUIT_RECORD;
13296: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
13297: , x_Return_Status => l_return_status
13298: );
13299:
13300: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
13301:
13302: IF l_return_status = Error_Handler.G_STATUS_ERROR
13303: THEN
13304: l_other_message := 'ENG_REV_ACCESS_FAT_FATAL';
13322:
13323: -- Process flow step 7 - Populate NULL columns for Update and
13324: -- Delete.
13325:
13326: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Populating NULL Columns'); END IF;
13327: Eng_Default_ECO_Revision.Populate_NULL_Columns
13328: ( p_eco_revision_rec => l_eco_revision_rec
13329: , p_eco_rev_unexp_rec => l_eco_rev_unexp_rec
13330: , p_old_eco_revision_rec => l_old_eco_rev_rec
13337: ELSIF l_eco_revision_rec.Transaction_Type = ENG_GLOBALS.G_OPR_CREATE THEN
13338:
13339: -- Process Flow step 8: Default missing values for Operation CREATE
13340:
13341: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Attribute Defaulting'); END IF;
13342: Eng_Default_ECO_revision.Attribute_Defaulting
13343: ( p_eco_revision_rec => l_eco_revision_rec
13344: , p_eco_rev_unexp_rec => l_eco_rev_unexp_rec
13345: , x_eco_revision_rec => l_eco_revision_rec
13347: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
13348: , x_return_status => l_Return_Status
13349: );
13350:
13351: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
13352:
13353: IF l_return_status = Error_Handler.G_STATUS_ERROR
13354: THEN
13355: RAISE EXC_SEV_QUIT_RECORD;
13392: END IF;
13393:
13394: -- Process Flow step 10 - Entity Level Validation
13395:
13396: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Entity validation'); END IF;
13397: Eng_Validate_ECO_Revision.Check_Entity
13398: ( x_return_status => l_Return_Status
13399: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
13400: , p_eco_revision_rec => l_eco_revision_rec
13400: , p_eco_revision_rec => l_eco_revision_rec
13401: , p_eco_rev_unexp_rec => l_eco_rev_unexp_rec
13402: );
13403:
13404: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
13405:
13406: IF l_return_status = Error_Handler.G_STATUS_ERROR
13407: THEN
13408: RAISE EXC_SEV_QUIT_RECORD;
13443: END IF;
13444:
13445: -- Process Flow step 11 : Database Writes
13446:
13447: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Writing to the database'); END IF;
13448: ENG_ECO_Revision_Util.Perform_Writes
13449: ( p_eco_revision_rec => l_eco_revision_rec
13450: , p_eco_rev_unexp_rec => l_eco_rev_unexp_rec
13451: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
13451: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
13452: , x_return_status => l_return_status
13453: );
13454:
13455: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
13456:
13457: IF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
13458: THEN
13459: l_other_message := 'ENG_REV_WRITES_UNEXP_ERROR';
13814: END LOOP; -- End loop c_lifecycle_statuses
13815: EXCEPTION
13816: WHEN OTHERS THEN
13817:
13818: IF BOM_Globals.Get_Debug = 'Y'
13819: THEN
13820: Error_Handler.Write_Debug('Unexpected Error occured in Insert in Create_Change_Lifecycle . . .' || SQLERRM);
13821: END IF;
13822:
13916:
13917: IF p_transaction_type = 'CREATE'
13918: THEN
13919:
13920: BOM_globals.set_debug('N');
13921:
13922:
13923:
13924: FOR change_line IN c_change_tasks(p_change_type_id, p_organization_id)
13955: EXCEPTION
13956: WHEN NO_DATA_FOUND THEN
13957: l_change_line_unexp_rec.assignee_id := NULL;
13958: WHEN OTHERS THEN
13959: IF BOM_Globals.Get_Debug = 'Y'
13960: THEN
13961: Error_Handler.Write_Debug('Unexpected Error occured in Insert . . .' || SQLERRM);
13962: END IF;
13963: END;*/
14047:
14048: EXCEPTION
14049:
14050: WHEN OTHERS THEN
14051: IF BOM_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
14052: ('Unexpected Error occured in Insert . . .' || SQLERRM);
14053: END IF;
14054:
14055:
14244: , x_eco_unexp_rec => l_old_eco_unexp_rec
14245: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
14246: , x_return_status => l_Return_Status
14247: );
14248: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
14249:
14250: IF l_return_status = Error_Handler.G_STATUS_ERROR
14251: THEN
14252: l_other_message := 'ENG_ECO_EXS_SEV_ERROR';
14279: ,P_eco_unexp_rec => l_eco_unexp_rec
14280: ,x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
14281: ,x_return_status => l_return_status
14282: );
14283: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
14284:
14285: IF l_return_status = Error_Handler.G_STATUS_ERROR
14286: THEN
14287: IF l_ECO_rec.transaction_type = 'CREATE'
14352: END IF;
14353: -- Bug 2916558 // kamohan
14354: -- End Changes
14355:
14356: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
14357:
14358: IF l_return_status = Error_Handler.G_STATUS_ERROR
14359: THEN
14360: l_other_message := 'ENG_ECO_ACCESS_FAT_FATAL';
14372:
14373: -- Process Flow step 6: Value-to-ID conversions
14374: --
14375:
14376: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Value-Id conversions'); END IF;
14377:
14378: ENG_Val_To_Id.ECO_Header_VID
14379: ( x_Return_Status => l_return_status
14380: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
14381: , p_ECO_Rec => l_ECO_Rec
14382: , p_ECO_Unexp_Rec => l_ECO_Unexp_Rec
14383: , x_ECO_Unexp_Rec => l_ECO_Unexp_Rec
14384: );
14385: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
14386:
14387: IF l_return_status = Error_Handler.G_STATUS_ERROR
14388: THEN
14389: IF l_ECO_rec.transaction_type = 'CREATE'
14436:
14437: IF l_ECO_rec.transaction_type IN
14438: (ENG_GLOBALS.G_OPR_UPDATE, ENG_GLOBALS.G_OPR_CREATE)
14439: THEN
14440: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Attribute validation'); END IF;
14441:
14442: ENG_Validate_ECO.Check_Attributes
14443: ( x_return_status => l_return_status
14444: , x_err_text => l_err_text
14449: , p_old_Unexp_ECO_rec => l_Old_ECO_Unexp_Rec
14450: , p_change_line_tbl => l_change_line_tbl --Bug no:2908248
14451: , p_revised_item_tbl => l_revised_item_tbl --Bug 2908248
14452: );
14453: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
14454:
14455: IF l_return_status = Error_Handler.G_STATUS_ERROR
14456: THEN
14457: IF l_ECO_rec.transaction_type = 'CREATE'
14507:
14508: -- Process flow step 8 - Populate NULL columns for Update and
14509: -- Delete.
14510:
14511: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Populating NULL Columns'); END IF;
14512: Eng_Default_ECO.Populate_NULL_Columns
14513: ( p_ECO_rec => l_ECO_Rec
14514: , p_Unexp_ECO_rec => l_ECO_Unexp_Rec
14515: , p_Old_ECO_rec => l_Old_ECO_Rec
14521: ELSIF l_ECO_Rec.Transaction_Type = ENG_GLOBALS.G_OPR_CREATE THEN
14522:
14523: -- Process Flow step 9: Default missing values for Operation CREATE
14524:
14525: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Attribute Defaulting'); END IF;
14526: Eng_Default_ECO.Attribute_Defaulting
14527: ( p_ECO_rec => l_ECO_Rec
14528: , p_Unexp_ECO_Rec => l_ECO_Unexp_Rec
14529: , x_ECO_rec => l_ECO_Rec
14531: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
14532: , x_return_status => l_Return_Status
14533: );
14534:
14535: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
14536:
14537: IF l_return_status = Error_Handler.G_STATUS_ERROR
14538: THEN
14539: IF l_ECO_rec.transaction_type = 'CREATE'
14582: END IF;
14583: END IF;
14584:
14585: -- Process Flow step 10 - Check Conditionally Required Fields
14586: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Check conditionally required attributes'); END IF;
14587: ENG_Validate_ECO.Conditionally_Required
14588: ( x_return_status => l_return_status
14589: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
14590: , p_ECO_rec => l_ECO_rec
14591: , p_Unexp_ECO_rec => l_ECO_Unexp_Rec
14592: , p_old_ECO_rec => l_old_ECO_rec
14593: , p_old_Unexp_ECO_rec => l_old_ECO_unexp_rec
14594: );
14595: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
14596:
14597: IF l_return_status = Error_Handler.G_STATUS_ERROR
14598: THEN
14599: IF l_ECO_rec.transaction_type = 'CREATE'
14641: );
14642: END IF;
14643:
14644: -- Process Flow step 11 - Entity Level Defaulting
14645: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Entity Defaulting'); END IF;
14646: ENG_Default_ECO.Entity_Defaulting
14647: ( p_ECO_rec => l_ECO_rec
14648: , p_Unexp_ECO_rec => l_ECO_unexp_rec
14649: , p_Old_ECO_rec => l_old_ECO_rec
14652: , x_Unexp_ECO_rec => l_ECO_unexp_rec
14653: , x_return_status => l_return_status
14654: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
14655: );
14656: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
14657:
14658: IF l_return_status = Error_Handler.G_STATUS_ERROR
14659: THEN
14660: IF l_ECO_rec.transaction_type = 'CREATE'
14705: -- Process Flow step 12 - Entity Level Validation
14706:
14707: IF l_eco_rec.transaction_type = 'DELETE'
14708: THEN
14709: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Calling Check_Delete...'); END IF;
14710: ENG_Validate_ECO.Check_Delete
14711: ( p_eco_rec => l_eco_rec
14712: , p_Unexp_ECO_rec => l_ECO_Unexp_Rec
14713: , x_return_status => l_return_status
14715: );
14716: END IF;
14717:
14718:
14719: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Entity validation'); END IF;
14720: Eng_Validate_ECO.Check_Entity
14721: ( x_return_status => l_Return_Status
14722: , x_err_text => l_err_text
14723: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
14726: , p_old_ECO_rec => l_old_ECO_rec
14727: , p_old_unexp_ECO_rec => l_old_ECO_unexp_rec
14728: );
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'
14777: END IF;
14778:
14779: -- Process Flow step 13 : Database Writes
14780: SAVEPOINT EngEcoPvt_Eco_Header; -- bug 3572721
14781: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Writing to the database'); END IF;
14782: ENG_ECO_Util.Perform_Writes
14783: ( p_ECO_rec => l_ECO_rec
14784: , p_Unexp_ECO_rec => l_ECO_unexp_rec
14785: , p_old_ECO_rec => l_old_ECO_rec
14786: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
14787: , x_return_status => l_return_status
14788: );
14789:
14790: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('return_status: ' || l_return_status); END IF;
14791:
14792: IF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
14793: THEN
14794: l_other_message := 'ENG_ECO_WRITES_UNEXP_SKIP';
14837: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl --bug 3572721
14838: , x_return_status => l_return_status);
14839:
14840: -- Added subjects error Handling for bug 3572721
14841: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Subjects created with status ' || l_return_status);
14842: END IF;
14843: IF l_return_status = Error_Handler.G_STATUS_ERROR
14844: THEN
14845: Rollback TO EngEcoPvt_Eco_Header; -- bug 3572721
14879: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl --bug 3572721
14880: , x_return_status => l_return_status);
14881:
14882: -- Added subjects error Handling for bug 3572721
14883: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Subjects created with status ' || l_return_status);
14884: END IF;
14885: IF l_return_status = Error_Handler.G_STATUS_ERROR
14886: THEN
14887: Rollback TO EngEcoPvt_Eco_Header; -- bug 3572721
15000: );
15001: END IF;
15002: EXCEPTION
15003: WHEN OTHERS THEN
15004: IF Bom_Globals.Get_Debug = 'Y'
15005: THEN
15006: Error_Handler.Write_Debug('Lifecycle initialized with status ' || l_return_status);
15007: END IF;
15008: l_other_message := 'ENG_ECO_WRITES_UNEXP_SKIP';
15039: end if;
15040:
15041:
15042:
15043: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Tasks created with status ' || l_return_status);
15044: END IF;
15045:
15046: IF l_return_status = Error_Handler.G_STATUS_UNEXPECTED
15047: THEN
15649:
15650:
15651: -- Standard call to check for call compatibility
15652:
15653: 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;
15654: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| ECO : ' || l_ECO_rec.eco_name); END IF;
15655: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| ECO REVISIONS : ' || to_char(p_eco_revision_tbl.COUNT)); END IF;
15656: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| CHANGE LINES : ' || to_char(p_change_line_tbl.COUNT)); END IF;
15657: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| REVISED ITEMS : ' || to_char(p_revised_item_tbl.COUNT)); END IF;
15650:
15651: -- Standard call to check for call compatibility
15652:
15653: 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;
15654: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| ECO : ' || l_ECO_rec.eco_name); END IF;
15655: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| ECO REVISIONS : ' || to_char(p_eco_revision_tbl.COUNT)); END IF;
15656: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| CHANGE LINES : ' || to_char(p_change_line_tbl.COUNT)); END IF;
15657: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| REVISED ITEMS : ' || to_char(p_revised_item_tbl.COUNT)); END IF;
15658: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| REVISED COMPS : ' || to_char(p_rev_component_tbl.COUNT)); END IF;
15651: -- Standard call to check for call compatibility
15652:
15653: 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;
15654: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| ECO : ' || l_ECO_rec.eco_name); END IF;
15655: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| ECO REVISIONS : ' || to_char(p_eco_revision_tbl.COUNT)); END IF;
15656: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| CHANGE LINES : ' || to_char(p_change_line_tbl.COUNT)); END IF;
15657: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| REVISED ITEMS : ' || to_char(p_revised_item_tbl.COUNT)); END IF;
15658: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| REVISED COMPS : ' || to_char(p_rev_component_tbl.COUNT)); END IF;
15659: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| SUBS. COMPS : ' || to_Char(p_sub_component_tbl.COUNT)); END IF;
15652:
15653: 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;
15654: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| ECO : ' || l_ECO_rec.eco_name); END IF;
15655: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| ECO REVISIONS : ' || to_char(p_eco_revision_tbl.COUNT)); END IF;
15656: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| CHANGE LINES : ' || to_char(p_change_line_tbl.COUNT)); END IF;
15657: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| REVISED ITEMS : ' || to_char(p_revised_item_tbl.COUNT)); END IF;
15658: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| REVISED COMPS : ' || to_char(p_rev_component_tbl.COUNT)); END IF;
15659: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| SUBS. COMPS : ' || to_Char(p_sub_component_tbl.COUNT)); END IF;
15660: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| REFD. DESGS : ' || to_char(p_ref_designator_tbl.COUNT)); END IF;
15653: 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;
15654: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| ECO : ' || l_ECO_rec.eco_name); END IF;
15655: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| ECO REVISIONS : ' || to_char(p_eco_revision_tbl.COUNT)); END IF;
15656: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| CHANGE LINES : ' || to_char(p_change_line_tbl.COUNT)); END IF;
15657: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| REVISED ITEMS : ' || to_char(p_revised_item_tbl.COUNT)); END IF;
15658: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| REVISED COMPS : ' || to_char(p_rev_component_tbl.COUNT)); END IF;
15659: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| SUBS. COMPS : ' || to_Char(p_sub_component_tbl.COUNT)); END IF;
15660: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| REFD. DESGS : ' || to_char(p_ref_designator_tbl.COUNT)); END IF;
15661:
15654: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| ECO : ' || l_ECO_rec.eco_name); END IF;
15655: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| ECO REVISIONS : ' || to_char(p_eco_revision_tbl.COUNT)); END IF;
15656: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| CHANGE LINES : ' || to_char(p_change_line_tbl.COUNT)); END IF;
15657: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| REVISED ITEMS : ' || to_char(p_revised_item_tbl.COUNT)); END IF;
15658: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| REVISED COMPS : ' || to_char(p_rev_component_tbl.COUNT)); END IF;
15659: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| SUBS. COMPS : ' || to_Char(p_sub_component_tbl.COUNT)); END IF;
15660: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| REFD. DESGS : ' || to_char(p_ref_designator_tbl.COUNT)); END IF;
15661:
15662: --L1--
15655: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| ECO REVISIONS : ' || to_char(p_eco_revision_tbl.COUNT)); END IF;
15656: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| CHANGE LINES : ' || to_char(p_change_line_tbl.COUNT)); END IF;
15657: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| REVISED ITEMS : ' || to_char(p_revised_item_tbl.COUNT)); END IF;
15658: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| REVISED COMPS : ' || to_char(p_rev_component_tbl.COUNT)); END IF;
15659: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| SUBS. COMPS : ' || to_Char(p_sub_component_tbl.COUNT)); END IF;
15660: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| REFD. DESGS : ' || to_char(p_ref_designator_tbl.COUNT)); END IF;
15661:
15662: --L1--
15663: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| OPERATION : ' || to_char(p_rev_operation_tbl.COUNT)); END IF;
15656: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| CHANGE LINES : ' || to_char(p_change_line_tbl.COUNT)); END IF;
15657: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| REVISED ITEMS : ' || to_char(p_revised_item_tbl.COUNT)); END IF;
15658: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| REVISED COMPS : ' || to_char(p_rev_component_tbl.COUNT)); END IF;
15659: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| SUBS. COMPS : ' || to_Char(p_sub_component_tbl.COUNT)); END IF;
15660: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| REFD. DESGS : ' || to_char(p_ref_designator_tbl.COUNT)); END IF;
15661:
15662: --L1--
15663: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| OPERATION : ' || to_char(p_rev_operation_tbl.COUNT)); END IF;
15664: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| RESOURCE : ' || to_char(p_rev_op_resource_tbl.COUNT)); END IF;
15659: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| SUBS. COMPS : ' || to_Char(p_sub_component_tbl.COUNT)); END IF;
15660: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| REFD. DESGS : ' || to_char(p_ref_designator_tbl.COUNT)); END IF;
15661:
15662: --L1--
15663: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| OPERATION : ' || to_char(p_rev_operation_tbl.COUNT)); END IF;
15664: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| RESOURCE : ' || to_char(p_rev_op_resource_tbl.COUNT)); END IF;
15665: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| SUB RESOURCE : ' || to_char(p_rev_sub_resource_tbl.COUNT)); END IF;
15666: --L1--
15667:
15660: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| REFD. DESGS : ' || to_char(p_ref_designator_tbl.COUNT)); END IF;
15661:
15662: --L1--
15663: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| OPERATION : ' || to_char(p_rev_operation_tbl.COUNT)); END IF;
15664: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| RESOURCE : ' || to_char(p_rev_op_resource_tbl.COUNT)); END IF;
15665: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| SUB RESOURCE : ' || to_char(p_rev_sub_resource_tbl.COUNT)); END IF;
15666: --L1--
15667:
15668:
15661:
15662: --L1--
15663: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| OPERATION : ' || to_char(p_rev_operation_tbl.COUNT)); END IF;
15664: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| RESOURCE : ' || to_char(p_rev_op_resource_tbl.COUNT)); END IF;
15665: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| SUB RESOURCE : ' || to_char(p_rev_sub_resource_tbl.COUNT)); END IF;
15666: --L1--
15667:
15668:
15669: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('|----------------------------------------------------'); END IF;
15665: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('| SUB RESOURCE : ' || to_char(p_rev_sub_resource_tbl.COUNT)); END IF;
15666: --L1--
15667:
15668:
15669: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('|----------------------------------------------------'); END IF;
15670:
15671: /*------------------------------------
15672: -- Not used
15673:
15718: FND_PROFILE.VALUE('PJM:PJM_UNITEFF_NO_EFFECT') = 'Y'
15719: */
15720: IF PJM_UNIT_EFF.Enabled = 'Y'
15721: THEN
15722: BOM_Globals.Set_Unit_Effectivity (TRUE);
15723: ENG_Globals.Set_Unit_Effectivity (TRUE);
15724: ELSE
15725: BOM_Globals.Set_Unit_Effectivity (FALSE);
15726: ENG_Globals.Set_Unit_Effectivity (FALSE);
15721: THEN
15722: BOM_Globals.Set_Unit_Effectivity (TRUE);
15723: ENG_Globals.Set_Unit_Effectivity (TRUE);
15724: ELSE
15725: BOM_Globals.Set_Unit_Effectivity (FALSE);
15726: ENG_Globals.Set_Unit_Effectivity (FALSE);
15727: END IF;
15728:
15729: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
15733: -- Eco
15734: IF (l_ECO_rec.ECO_Name <> FND_API.G_MISS_CHAR
15735: AND l_ECO_rec.ECO_Name IS NOT NULL)
15736: THEN
15737: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(' '); END IF;
15738: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('PVT API: Calling ECO_Header'); END IF;
15739:
15740: Eco_Header
15741: ( p_validation_level => p_validation_level
15734: IF (l_ECO_rec.ECO_Name <> FND_API.G_MISS_CHAR
15735: AND l_ECO_rec.ECO_Name IS NOT NULL)
15736: THEN
15737: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(' '); END IF;
15738: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('PVT API: Calling ECO_Header'); END IF;
15739:
15740: Eco_Header
15741: ( p_validation_level => p_validation_level
15742: , p_ECO_rec => l_ECO_rec
15762: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
15763: , x_return_status => l_return_status
15764: , x_disable_revision =>x_disable_revision --Bug no:3034642
15765: );
15766: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('eco hdr return status: ' || l_eco_rec.return_status); END IF;
15767:
15768: -- Added by AS on 03/22/99 to fix bug 853529
15769:
15770: IF NVL(l_return_status, 'S') = 'Q'
15782: END IF;
15783:
15784: END IF;
15785:
15786: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('BO error status: ' || l_bo_return_status); END IF;
15787:
15788: -- Eco Revisions
15789: IF l_eco_revision_tbl.Count <> 0
15790: THEN
15787:
15788: -- Eco Revisions
15789: IF l_eco_revision_tbl.Count <> 0
15790: THEN
15791: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(' '); END IF;
15792: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('PVT API: Calling ECO_Rev'); END IF;
15793:
15794: Eco_Rev
15795: ( p_validation_level => p_validation_level
15788: -- Eco Revisions
15789: IF l_eco_revision_tbl.Count <> 0
15790: THEN
15791: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(' '); END IF;
15792: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('PVT API: Calling ECO_Rev'); END IF;
15793:
15794: Eco_Rev
15795: ( p_validation_level => p_validation_level
15796: , p_eco_revision_tbl => l_eco_revision_tbl
15831: END IF;
15832:
15833: END IF;
15834:
15835: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('BO error status: ' || l_bo_return_status); END IF;
15836:
15837:
15838: -- Change Lines
15839: IF l_change_line_tbl.Count <> 0
15837:
15838: -- Change Lines
15839: IF l_change_line_tbl.Count <> 0
15840: THEN
15841: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(' '); END IF;
15842: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('PVT API: Calling Change_Line'); END IF;
15843:
15844: Change_Line
15845: ( p_validation_level => p_validation_level
15838: -- Change Lines
15839: IF l_change_line_tbl.Count <> 0
15840: THEN
15841: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(' '); END IF;
15842: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('PVT API: Calling Change_Line'); END IF;
15843:
15844: Change_Line
15845: ( p_validation_level => p_validation_level
15846: , p_change_line_tbl => l_change_line_tbl -- Eng Change
15877: END IF;
15878:
15879: END IF;
15880:
15881: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('BO error status: ' || l_bo_return_status); END IF;
15882:
15883: -- Revised Items
15884:
15885: IF p_revised_item_tbl.COUNT <> 0
15883: -- Revised Items
15884:
15885: IF p_revised_item_tbl.COUNT <> 0
15886: THEN
15887: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(' '); END IF;
15888: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('PVT API: Calling Rev_Items'); END IF;
15889:
15890: Rev_Items
15891: ( p_validation_level => p_validation_level
15884:
15885: IF p_revised_item_tbl.COUNT <> 0
15886: THEN
15887: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(' '); END IF;
15888: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('PVT API: Calling Rev_Items'); END IF;
15889:
15890: Rev_Items
15891: ( p_validation_level => p_validation_level
15892: , p_revised_item_tbl => l_revised_item_tbl
15928: END IF;
15929:
15930: END IF;
15931:
15932: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('BO error status: ' || l_bo_return_status); END IF;
15933:
15934: -- Revised Components
15935:
15936: IF l_rev_component_tbl.Count <> 0
15934: -- Revised Components
15935:
15936: IF l_rev_component_tbl.Count <> 0
15937: THEN
15938: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(' '); END IF;
15939: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('PVT API: Calling Rev_Comps'); END IF;
15940:
15941: Rev_Comps
15942: ( p_validation_level => p_validation_level
15935:
15936: IF l_rev_component_tbl.Count <> 0
15937: THEN
15938: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(' '); END IF;
15939: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('PVT API: Calling Rev_Comps'); END IF;
15940:
15941: Rev_Comps
15942: ( p_validation_level => p_validation_level
15943: , p_rev_component_tbl => l_rev_component_tbl
15966: END IF;
15967:
15968: END IF;
15969:
15970: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('BO error status: ' || l_bo_return_status); END IF;
15971:
15972: -- Reference Designators
15973:
15974: IF l_ref_designator_tbl.Count <> 0
15972: -- Reference Designators
15973:
15974: IF l_ref_designator_tbl.Count <> 0
15975: THEN
15976: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(' '); END IF;
15977: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('PVT API: Calling Ref_Desgs'); END IF;
15978:
15979: Ref_Desgs
15980: ( p_validation_level => p_validation_level
15973:
15974: IF l_ref_designator_tbl.Count <> 0
15975: THEN
15976: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(' '); END IF;
15977: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('PVT API: Calling Ref_Desgs'); END IF;
15978:
15979: Ref_Desgs
15980: ( p_validation_level => p_validation_level
15981: , p_ref_designator_tbl => l_ref_designator_tbl
16002: END IF;
16003:
16004: END IF;
16005:
16006: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('BO error status: ' || l_bo_return_status); END IF;
16007:
16008: -- Substitute Components
16009:
16010: IF l_Sub_Component_Tbl.Count <> 0
16008: -- Substitute Components
16009:
16010: IF l_Sub_Component_Tbl.Count <> 0
16011: THEN
16012: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(' '); END IF;
16013: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('PVT API: Calling Sub_Comps'); END IF;
16014:
16015: Sub_Comps
16016: ( p_validation_level => p_validation_level
16009:
16010: IF l_Sub_Component_Tbl.Count <> 0
16011: THEN
16012: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(' '); END IF;
16013: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('PVT API: Calling Sub_Comps'); END IF;
16014:
16015: Sub_Comps
16016: ( p_validation_level => p_validation_level
16017: , p_sub_component_tbl => l_sub_component_tbl
16036: END IF;
16037:
16038: END IF;
16039:
16040: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('BO error status: ' || l_bo_return_status); END IF;
16041:
16042:
16043: -- L1: Operation
16044:
16043: -- L1: Operation
16044:
16045: IF l_rev_operation_tbl.Count <> 0
16046: THEN
16047: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(' '); END IF;
16048: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('PVT API: Calling ECO operation'); END IF;
16049:
16050: Rev_Operation_Sequences
16051: ( p_validation_level => p_validation_level
16044:
16045: IF l_rev_operation_tbl.Count <> 0
16046: THEN
16047: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(' '); END IF;
16048: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('PVT API: Calling ECO operation'); END IF;
16049:
16050: Rev_Operation_Sequences
16051: ( p_validation_level => p_validation_level
16052: , p_rev_operation_tbl => l_rev_operation_tbl
16072: END IF;
16073:
16074: END IF;
16075:
16076: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('BO error status: ' || l_bo_return_status); END IF;
16077:
16078: -- L1: Operation Resource
16079:
16080: IF l_rev_op_resource_tbl.Count <> 0
16078: -- L1: Operation Resource
16079:
16080: IF l_rev_op_resource_tbl.Count <> 0
16081: THEN
16082: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(' '); END IF;
16083: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('PVT API: Calling ECO resource'); END IF;
16084:
16085: Rev_Operation_Resources
16086: ( p_validation_level => p_validation_level
16079:
16080: IF l_rev_op_resource_tbl.Count <> 0
16081: THEN
16082: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(' '); END IF;
16083: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('PVT API: Calling ECO resource'); END IF;
16084:
16085: Rev_Operation_Resources
16086: ( p_validation_level => p_validation_level
16087: , p_rev_op_resource_tbl => l_rev_op_resource_tbl
16105: END IF;
16106:
16107: END IF;
16108:
16109: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('BO error status: ' || l_bo_return_status); END IF;
16110:
16111: -- L1: Substitute resource
16112:
16113: IF l_rev_sub_resource_tbl.Count <> 0
16111: -- L1: Substitute resource
16112:
16113: IF l_rev_sub_resource_tbl.Count <> 0
16114: THEN
16115: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(' '); END IF;
16116: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('PVT API: Calling ECO substitute resource'); END IF;
16117:
16118: Rev_Sub_Operation_Resources
16119: ( p_validation_level => p_validation_level
16112:
16113: IF l_rev_sub_resource_tbl.Count <> 0
16114: THEN
16115: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(' '); END IF;
16116: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('PVT API: Calling ECO substitute resource'); END IF;
16117:
16118: Rev_Sub_Operation_Resources
16119: ( p_validation_level => p_validation_level
16120: , p_rev_sub_resource_tbl => l_rev_sub_resource_tbl
16136: END IF;
16137:
16138: END IF;
16139:
16140: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('BO error status: ' || l_bo_return_status); END IF;
16141:
16142: -- Done processing, load OUT parameters.
16143:
16144: -- Added by AS on 03/17/99 to fix bug 852322