DBA Data[Home] [Help]

APPS.BOM_VALIDATE_REF_DESIGNATOR dependencies on BOM_GLOBALS

Line 82: IF (Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_BOM_BO) THEN

78: And bic.implementation_date is null
79: And brd.acd_type = X_Delete;
80:
81: BEGIN
82: IF (Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_BOM_BO) THEN
83: BEGIN
84: Select count(*)
85: Into X_TotalQuantity
86: From bom_reference_designators brd ,

Line 245: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Entity Validation for Ref. Desgs begins . . .'); END IF;

241: p_Ref_Desg_Unexp_rec.component_sequence_id
242: AND quantity_related = 1;
243: BEGIN
244:
245: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Entity Validation for Ref. Desgs begins . . .'); END IF;
246: If bom_globals.get_debug = 'Y' then Error_Handler.write_debug('Ref Desg: Checking for editable common bill...'); END IF;
247: BEGIN
248: SELECT 1
249: INTO l_dummy

Line 246: If bom_globals.get_debug = 'Y' then Error_Handler.write_debug('Ref Desg: Checking for editable common bill...'); END IF;

242: AND quantity_related = 1;
243: BEGIN
244:
245: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Entity Validation for Ref. Desgs begins . . .'); END IF;
246: If bom_globals.get_debug = 'Y' then Error_Handler.write_debug('Ref Desg: Checking for editable common bill...'); END IF;
247: BEGIN
248: SELECT 1
249: INTO l_dummy
250: FROM bom_bill_of_materials

Line 287: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Assy Bom Enabled flag : ' || l_assy_bom_enabled); END IF;

283: WHERE bbom.bill_sequence_id = p_Ref_Desg_Unexp_Rec.bill_sequence_id
284: AND bbom.assembly_item_id = msi.inventory_item_id
285: AND bbom.organization_id = msi.organization_id;
286:
287: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Assy Bom Enabled flag : ' || l_assy_bom_enabled); END IF;
288:
289: IF l_assy_bom_enabled <> 'Y'
290: THEN
291: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN

Line 309: IF Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO

305: -- The ECO can be updated but a warning needs to be generated and
306: -- scheduled revised items need to be update to Open
307: -- and the ECO status need to be changed to Not Submitted for Approval
308:
309: IF Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO
310: THEN
311: Bom_GLOBALS.Check_Approved_For_Process
312: ( p_change_notice => p_ref_designator_rec.Eco_Name,
313: p_organization_id => p_ref_desg_Unexp_rec.organization_id,

Line 311: Bom_GLOBALS.Check_Approved_For_Process

307: -- and the ECO status need to be changed to Not Submitted for Approval
308:
309: IF Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO
310: THEN
311: Bom_GLOBALS.Check_Approved_For_Process
312: ( p_change_notice => p_ref_designator_rec.Eco_Name,
313: p_organization_id => p_ref_desg_Unexp_rec.organization_id,
314: x_processed => l_processed,
315: x_err_text => l_err_text

Line 322: Bom_GLOBALS.Set_Request_For_Approval

318: IF l_processed = TRUE THEN
319: -- If the above process returns true then set the ECO approval.
320:
321: BEGIN
322: Bom_GLOBALS.Set_Request_For_Approval
323: ( p_change_notice => p_ref_designator_rec.Eco_Name,
324: p_organization_id => p_ref_desg_Unexp_rec.organization_id,
325: x_err_text => l_err_text
326: );

Line 336: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Verified if process exists . . .'); END IF;

332:
333: END IF;
334: END IF;
335:
336: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Verified if process exists . . .'); END IF;
337:
338: /**********************************************************************
339: *
340: * If the Transaction Type is CREATE and the ACD_Type = Disable, then

Line 359: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Ref Desigantor: ' || l_dummy); END IF;

355: AND brd.component_sequence_id = bic.old_component_sequence_id
356: AND brd.component_reference_designator =
357: p_ref_designator_rec.reference_designator_name ;
358:
359: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Ref Desigantor: ' || l_dummy); END IF;
360:
361: EXCEPTION
362: WHEN NO_DATA_FOUND THEN
363: -- It means that the reference designator does not

Line 419: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Verified Compatible ACD Types . . .'); END IF;

415: );
416: END IF;
417: END LOOP;
418:
419: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Verified Compatible ACD Types . . .'); END IF;
420:
421: /************************************************************************
422: * If the Transaction Type is CREATE and the ACD_type is ADD then check the
423: * type of item to which a ref. designator is being added. Planning bills

Line 525: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Verified Component not planning . . .'); END IF;

521: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
522: END; /* End Checking for Planning Parent */
523:
524:
525: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Verified Component not planning . . .'); END IF;
526:
527: /************************************************************************
528: * If a ref. designator is being added or deleted, and if the Quantity
529: * Related is 1 then their must be a check that the number of designators

Line 532: IF (p_ref_designator_rec.Transaction_Type = Bom_GLOBALS.G_OPR_CREATE) THEN

528: * If a ref. designator is being added or deleted, and if the Quantity
529: * Related is 1 then their must be a check that the number of designators
530: * is equal to the component_quantity.
531: *************************************************************************/
532: IF (p_ref_designator_rec.Transaction_Type = Bom_GLOBALS.G_OPR_CREATE) THEN
533: BEGIN
534:
535: OPEN c_QuantityRelated;
536: FETCH c_QuantityRelated INTO l_Quantity;

Line 540: IF c_QuantityRelated%FOUND AND Bom_Globals.Get_Bo_Identifier <> Bom_Globals.G_BOM_BO THEN

536: FETCH c_QuantityRelated INTO l_Quantity;
537:
538: --IF c_QuantityRelated%FOUND THEN
539: -- Bug No:3522842. For BOM BO Quantity Related validation will be done from Bom_Bo_Pvt.
540: IF c_QuantityRelated%FOUND AND Bom_Globals.Get_Bo_Identifier <> Bom_Globals.G_BOM_BO THEN
541:
542: /*****************************************************************
543: --
544: -- If no exception is raised then validate the actual quantity of

Line 609: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Verified Quantity Related . . .'); END IF;

605: CLOSE c_QuantityRelated;
606: END; /* operation = CREATE ENDS */
607: END IF; /* If Operation = CREATE ENDS */
608:
609: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Verified Quantity Related . . .'); END IF;
610:
611: -- Done validating entity
612:
613: x_return_status := l_return_status;

Line 622: and p_ref_designator_rec.transaction_type = Bom_Globals.G_OPR_UPDATE) THEN

618: does not exists already */
619:
620: IF ( p_ref_designator_rec.new_reference_designator is not null
621: and p_ref_designator_rec.new_reference_designator <> FND_API.G_MISS_CHAR
622: and p_ref_designator_rec.transaction_type = Bom_Globals.G_OPR_UPDATE) THEN
623:
624: select count(*) into l_temp_var
625: FROM BOM_REFERENCE_DESIGNATORS
626: WHERE COMPONENT_REFERENCE_DESIGNATOR = p_ref_designator_rec.new_reference_designator

Line 649: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Verified New_designator ...'); END IF;

645: RAISE FND_API.G_EXC_ERROR;
646: END IF;
647: END IF;
648:
649: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Verified New_designator ...'); END IF;
650:
651: EXCEPTION
652:
653: WHEN FND_API.G_EXC_ERROR THEN

Line 655: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Expected Error in Ref Desgs. Entity Validation '); END IF;

651: EXCEPTION
652:
653: WHEN FND_API.G_EXC_ERROR THEN
654:
655: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Expected Error in Ref Desgs. Entity Validation '); END IF;
656:
657: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
658: x_return_status := FND_API.G_RET_STS_ERROR;
659:

Line 662: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('UNExpected Error in Ref. Desgs Entity Validation '); END IF;

658: x_return_status := FND_API.G_RET_STS_ERROR;
659:
660: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
661:
662: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('UNExpected Error in Ref. Desgs Entity Validation '); END IF;
663: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
664: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
665:
666: WHEN OTHERS THEN

Line 697: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Attribute Validation Starts . . . '); END IF;

693: x_return_status := FND_API.G_RET_STS_SUCCESS;
694:
695: -- Validate ref_designator attributes
696:
697: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Attribute Validation Starts . . . '); END IF;
698:
699: IF p_ref_designator_rec.acd_type IS NOT NULL AND
700: ( ( Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO AND
701: p_ref_designator_rec.acd_type NOT IN(1, 3)

Line 700: ( ( Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO AND

696:
697: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Attribute Validation Starts . . . '); END IF;
698:
699: IF p_ref_designator_rec.acd_type IS NOT NULL AND
700: ( ( Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO AND
701: p_ref_designator_rec.acd_type NOT IN(1, 3)
702: ) OR
703: ( Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_BOM_BO AND
704: p_ref_designator_rec.acd_type IS NOT NULL OR

Line 703: ( Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_BOM_BO AND

699: IF p_ref_designator_rec.acd_type IS NOT NULL AND
700: ( ( Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO AND
701: p_ref_designator_rec.acd_type NOT IN(1, 3)
702: ) OR
703: ( Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_BOM_BO AND
704: p_ref_designator_rec.acd_type IS NOT NULL OR
705: p_ref_designator_rec.acd_type <> FND_API.G_MISS_NUM
706: )
707: )

Line 725: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After ACD_TYPE . . .'); END IF;

721: END IF;
722: x_return_status := FND_API.G_RET_STS_ERROR;
723: END IF;
724:
725: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After ACD_TYPE . . .'); END IF;
726:
727: -- Done validating attributes
728: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
729:

Line 734: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Expected Error in Ref. Desgs Attr Validation . . .'); END IF;

730: EXCEPTION
731:
732: WHEN FND_API.G_EXC_ERROR THEN
733:
734: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Expected Error in Ref. Desgs Attr Validation . . .'); END IF;
735: x_Mesg_token_Tbl := l_Mesg_token_Tbl;
736: x_return_status := FND_API.G_RET_STS_ERROR;
737:
738: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 740: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('UNExpected Error in Ref. Desgs Attr Validation . . .'); END IF;

736: x_return_status := FND_API.G_RET_STS_ERROR;
737:
738: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
739:
740: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('UNExpected Error in Ref. Desgs Attr Validation . . .'); END IF;
741: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
742: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
743:
744: WHEN OTHERS THEN

Line 867: IF l_return_status = Bom_Globals.G_RECORD_FOUND AND

863: , x_Ref_Desg_Unexp_Rec => x_old_ref_desg_unexp_rec
864: , x_Return_Status => l_return_status
865: );
866:
867: IF l_return_status = Bom_Globals.G_RECORD_FOUND AND
868: p_ref_designator_rec.transaction_type = Bom_Globals.G_OPR_CREATE
869: THEN
870: Error_Handler.Add_Error_Token
871: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl

Line 868: p_ref_designator_rec.transaction_type = Bom_Globals.G_OPR_CREATE

864: , x_Return_Status => l_return_status
865: );
866:
867: IF l_return_status = Bom_Globals.G_RECORD_FOUND AND
868: p_ref_designator_rec.transaction_type = Bom_Globals.G_OPR_CREATE
869: THEN
870: Error_Handler.Add_Error_Token
871: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
872: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl

Line 877: ELSIF l_return_status = Bom_Globals.G_RECORD_NOT_FOUND AND

873: , p_message_name => 'BOM_REF_DESG_ALREADY_EXISTS'
874: , p_token_tbl => l_token_tbl
875: );
876: l_return_status := FND_API.G_RET_STS_ERROR;
877: ELSIF l_return_status = Bom_Globals.G_RECORD_NOT_FOUND AND
878: p_ref_designator_rec.transaction_type IN
879: (Bom_Globals.G_OPR_UPDATE, Bom_Globals.G_OPR_DELETE)
880: THEN
881: Error_Handler.Add_Error_Token

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

875: );
876: l_return_status := FND_API.G_RET_STS_ERROR;
877: ELSIF l_return_status = Bom_Globals.G_RECORD_NOT_FOUND AND
878: p_ref_designator_rec.transaction_type IN
879: (Bom_Globals.G_OPR_UPDATE, Bom_Globals.G_OPR_DELETE)
880: THEN
881: Error_Handler.Add_Error_Token
882: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
883: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl

Line 905: IF l_return_status = Bom_Globals.G_RECORD_FOUND THEN

901:
902: /* Assign the relevant transaction type for SYNC operations */
903:
904: IF p_ref_designator_rec.transaction_type = 'SYNC' THEN
905: IF l_return_status = Bom_Globals.G_RECORD_FOUND THEN
906: x_old_ref_designator_rec.transaction_type :=
907: Bom_Globals.G_OPR_UPDATE;
908: ELSE
909: x_old_ref_designator_rec.transaction_type :=

Line 907: Bom_Globals.G_OPR_UPDATE;

903:
904: IF p_ref_designator_rec.transaction_type = 'SYNC' THEN
905: IF l_return_status = Bom_Globals.G_RECORD_FOUND THEN
906: x_old_ref_designator_rec.transaction_type :=
907: Bom_Globals.G_OPR_UPDATE;
908: ELSE
909: x_old_ref_designator_rec.transaction_type :=
910: Bom_Globals.G_OPR_CREATE;
911: END IF;

Line 910: Bom_Globals.G_OPR_CREATE;

906: x_old_ref_designator_rec.transaction_type :=
907: Bom_Globals.G_OPR_UPDATE;
908: ELSE
909: x_old_ref_designator_rec.transaction_type :=
910: Bom_Globals.G_OPR_CREATE;
911: END IF;
912: END IF;
913: l_return_status := FND_API.G_RET_STS_SUCCESS;
914: