DBA Data[Home] [Help]

APPS.ENG_VALIDATE_SUB_COMPONENT dependencies on BOM_GLOBALS

Line 141: IF p_sub_component_rec.Transaction_Type = Bom_Globals.G_OPR_CREATE THEN

137: -- added. Planning bills cannot have sub comps esgs and also |
138: -- components which are not Standard cannot have sub comps. This |
139: -- OR so even if either exists sub comp cannot be added. |
140: ---------------------------------------------------------------------
141: IF p_sub_component_rec.Transaction_Type = Bom_Globals.G_OPR_CREATE THEN
142:
143: BEGIN
144: --dbms_output.put_line('Checking for planning bill or non-std. component . . . ');
145:

Line 209: IF (p_sub_component_rec.Transaction_Type = Bom_Globals.G_OPR_UPDATE OR

205: -- 'Approval approved') we should change status to not submitted |
206: -- for Approval |
207: ------------------------------------------------------------------
208: stmt_num := 2;
209: IF (p_sub_component_rec.Transaction_Type = Bom_Globals.G_OPR_UPDATE OR
210: p_sub_component_rec.Transaction_Type = Bom_Globals.G_OPR_CREATE)
211: THEN
212: Bom_Globals.Check_Approved_For_Process
213: ( p_change_notice => p_sub_component_rec.Eco_Name

Line 210: p_sub_component_rec.Transaction_Type = Bom_Globals.G_OPR_CREATE)

206: -- for Approval |
207: ------------------------------------------------------------------
208: stmt_num := 2;
209: IF (p_sub_component_rec.Transaction_Type = Bom_Globals.G_OPR_UPDATE OR
210: p_sub_component_rec.Transaction_Type = Bom_Globals.G_OPR_CREATE)
211: THEN
212: Bom_Globals.Check_Approved_For_Process
213: ( p_change_notice => p_sub_component_rec.Eco_Name
214: , p_organization_id => p_Sub_Comp_Unexp_Rec.Organization_Id

Line 212: Bom_Globals.Check_Approved_For_Process

208: stmt_num := 2;
209: IF (p_sub_component_rec.Transaction_Type = Bom_Globals.G_OPR_UPDATE OR
210: p_sub_component_rec.Transaction_Type = Bom_Globals.G_OPR_CREATE)
211: THEN
212: Bom_Globals.Check_Approved_For_Process
213: ( p_change_notice => p_sub_component_rec.Eco_Name
214: , p_organization_id => p_Sub_Comp_Unexp_Rec.Organization_Id
215: , x_processed =>l_processed
216: , x_err_text =>l_err_text

Line 219: Bom_Globals.Set_Request_For_Approval(

215: , x_processed =>l_processed
216: , x_err_text =>l_err_text
217: );
218: IF (l_processed) THEN
219: Bom_Globals.Set_Request_For_Approval(
220: p_change_notice => p_sub_component_rec.Eco_Name
221: ,p_organization_id => p_Sub_Comp_Unexp_Rec.Organization_Id
222: ,x_err_text => l_err_text);
223: END IF;

Line 335: IF (p_Sub_Component_Rec.Transaction_Type = Bom_Globals.G_OPR_UPDATE AND

331: ---------------------------------------------------------
332: stmt_num := 9;
333: --dbms_output.put_line('Verifying sub. comp not same as parent . . . ');
334:
335: IF (p_Sub_Component_Rec.Transaction_Type = Bom_Globals.G_OPR_UPDATE AND
336: p_Sub_Comp_Unexp_Rec.Component_Sequence_Id IN
337: (l_rec_AII, l_rec_CII))
338: OR
339: (p_Sub_Component_Rec.Transaction_Type = Bom_Globals.G_OPR_CREATE AND

Line 339: (p_Sub_Component_Rec.Transaction_Type = Bom_Globals.G_OPR_CREATE AND

335: IF (p_Sub_Component_Rec.Transaction_Type = Bom_Globals.G_OPR_UPDATE AND
336: p_Sub_Comp_Unexp_Rec.Component_Sequence_Id IN
337: (l_rec_AII, l_rec_CII))
338: OR
339: (p_Sub_Component_Rec.Transaction_Type = Bom_Globals.G_OPR_CREATE AND
340: p_Sub_Comp_Unexp_Rec.Substitute_Component_Id IN
341: (l_rec_AII,l_rec_CII))
342: THEN
343: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN

Line 403: AND ( p_Sub_Component_Rec.Transaction_Type = Bom_Globals.G_OPR_CREATE OR

399: ------------------------------------------------------------------------
400: stmt_num := 13;
401: /*
402: IF p_sub_component_rec.acd_type <> 3
403: AND ( p_Sub_Component_Rec.Transaction_Type = Bom_Globals.G_OPR_CREATE OR
404: p_Sub_Component_Rec.Transaction_Type = Bom_Globals.G_OPR_UPDATE
405: )
406: THEN
407:

Line 404: p_Sub_Component_Rec.Transaction_Type = Bom_Globals.G_OPR_UPDATE

400: stmt_num := 13;
401: /*
402: IF p_sub_component_rec.acd_type <> 3
403: AND ( p_Sub_Component_Rec.Transaction_Type = Bom_Globals.G_OPR_CREATE OR
404: p_Sub_Component_Rec.Transaction_Type = Bom_Globals.G_OPR_UPDATE
405: )
406: THEN
407:
408:

Line 625: IF l_return_status = Bom_Globals.G_RECORD_FOUND AND

621: , x_Sub_Comp_Unexp_Rec => x_old_sub_comp_unexp_rec
622: , x_return_status => l_return_status
623: );
624:
625: IF l_return_status = Bom_Globals.G_RECORD_FOUND AND
626: p_sub_component_rec.transaction_type = Bom_Globals.G_OPR_CREATE
627: THEN
628: Error_Handler.Add_Error_Token
629: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl

Line 626: p_sub_component_rec.transaction_type = Bom_Globals.G_OPR_CREATE

622: , x_return_status => l_return_status
623: );
624:
625: IF l_return_status = Bom_Globals.G_RECORD_FOUND AND
626: p_sub_component_rec.transaction_type = Bom_Globals.G_OPR_CREATE
627: THEN
628: Error_Handler.Add_Error_Token
629: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
630: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl

Line 635: ELSIF l_return_status = Bom_Globals.G_RECORD_NOT_FOUND AND

631: , p_message_name => 'ENG_SUB_COMP_ALREADY_EXISTS'
632: , p_token_tbl => l_token_tbl
633: );
634: l_return_status := FND_API.G_RET_STS_ERROR;
635: ELSIF l_return_status = Bom_Globals.G_RECORD_NOT_FOUND AND
636: p_sub_component_rec.transaction_type IN
637: (Bom_Globals.G_OPR_UPDATE, Bom_Globals.G_OPR_DELETE)
638: THEN
639: Error_Handler.Add_Error_Token

Line 637: (Bom_Globals.G_OPR_UPDATE, Bom_Globals.G_OPR_DELETE)

633: );
634: l_return_status := FND_API.G_RET_STS_ERROR;
635: ELSIF l_return_status = Bom_Globals.G_RECORD_NOT_FOUND AND
636: p_sub_component_rec.transaction_type IN
637: (Bom_Globals.G_OPR_UPDATE, Bom_Globals.G_OPR_DELETE)
638: THEN
639: Error_Handler.Add_Error_Token
640: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
641: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl

Line 765: IF Bom_Globals.Is_RComp_Cancl IS NULL OR

761: -- The calling progrma must make a calls to the parent entities
762: -- Check_Access to make sure that the parent is accessible
763: --
764: /********************************************************
765: IF Bom_Globals.Is_RComp_Cancl IS NULL OR
766: Bom_Globals.Is_RComp_Cancl = FALSE
767: THEN
768: Eng_Validate_Rev_Component.Check_Access
769: ( p_revised_item_name => p_sub_component_rec.revised_item_name

Line 766: Bom_Globals.Is_RComp_Cancl = FALSE

762: -- Check_Access to make sure that the parent is accessible
763: --
764: /********************************************************
765: IF Bom_Globals.Is_RComp_Cancl IS NULL OR
766: Bom_Globals.Is_RComp_Cancl = FALSE
767: THEN
768: Eng_Validate_Rev_Component.Check_Access
769: ( p_revised_item_name => p_sub_component_rec.revised_item_name
770: , p_revised_item_id => p_sub_comp_unexp_rec.revised_item_id

Line 794: IF SubCompType.bom_item_type = Bom_Globals.G_PRODUCT_FAMILY

790: **********************************************************/
791:
792: FOR SubCompType IN c_GetSubCompType
793: LOOP
794: IF SubCompType.bom_item_type = Bom_Globals.G_PRODUCT_FAMILY
795: THEN
796: Error_Handler.Add_Error_Token
797: ( p_Message_Name => 'ENG_SUB_COMP_PF'
798: , p_mesg_token_tbl => l_mesg_token_tbl

Line 804: (NVL(Bom_Globals.Get_MDL_Item_Access,0),

800: , p_token_tbl => l_token_tbl
801: );
802: l_return_status := FND_API.G_RET_STS_ERROR;
803: ELSIF SubCompType.bom_item_type NOT IN
804: (NVL(Bom_Globals.Get_MDL_Item_Access,0),
805: NVL(Bom_Globals.Get_OC_Item_Access,0),
806: NVL(Bom_Globals.Get_PLN_Item_Access,0),
807: NVL(Bom_Globals.Get_STD_Item_Access,0)
808: )

Line 805: NVL(Bom_Globals.Get_OC_Item_Access,0),

801: );
802: l_return_status := FND_API.G_RET_STS_ERROR;
803: ELSIF SubCompType.bom_item_type NOT IN
804: (NVL(Bom_Globals.Get_MDL_Item_Access,0),
805: NVL(Bom_Globals.Get_OC_Item_Access,0),
806: NVL(Bom_Globals.Get_PLN_Item_Access,0),
807: NVL(Bom_Globals.Get_STD_Item_Access,0)
808: )
809: THEN

Line 806: NVL(Bom_Globals.Get_PLN_Item_Access,0),

802: l_return_status := FND_API.G_RET_STS_ERROR;
803: ELSIF SubCompType.bom_item_type NOT IN
804: (NVL(Bom_Globals.Get_MDL_Item_Access,0),
805: NVL(Bom_Globals.Get_OC_Item_Access,0),
806: NVL(Bom_Globals.Get_PLN_Item_Access,0),
807: NVL(Bom_Globals.Get_STD_Item_Access,0)
808: )
809: THEN
810: l_token_tbl(1).token_name := 'REV_COMP';

Line 807: NVL(Bom_Globals.Get_STD_Item_Access,0)

803: ELSIF SubCompType.bom_item_type NOT IN
804: (NVL(Bom_Globals.Get_MDL_Item_Access,0),
805: NVL(Bom_Globals.Get_OC_Item_Access,0),
806: NVL(Bom_Globals.Get_PLN_Item_Access,0),
807: NVL(Bom_Globals.Get_STD_Item_Access,0)
808: )
809: THEN
810: l_token_tbl(1).token_name := 'REV_COMP';
811: l_token_tbl(1).token_value :=