DBA Data[Home] [Help]

APPS.BOM_VALIDATE_REF_DESIGNATOR dependencies on BOM_GLOBALS

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

88: And bic.implementation_date is null
89: And brd.acd_type = X_Delete;
90:
91: BEGIN
92: IF (Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_BOM_BO) THEN
93: BEGIN
94: Select count(*)
95: Into X_TotalQuantity
96: From bom_reference_designators brd ,

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

257: p_Ref_Desg_Unexp_rec.component_sequence_id
258: AND quantity_related = 1;
259: BEGIN
260:
261: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Entity Validation for Ref. Desgs begins . . .'); END IF;
262: If bom_globals.get_debug = 'Y' then Error_Handler.write_debug('Ref Desg: Checking for editable common bill...'); END IF;
263: BEGIN
264: --validation for BOM ER #9946990
265: SELECT bic.bom_item_type,

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

258: AND quantity_related = 1;
259: BEGIN
260:
261: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Entity Validation for Ref. Desgs begins . . .'); END IF;
262: If bom_globals.get_debug = 'Y' then Error_Handler.write_debug('Ref Desg: Checking for editable common bill...'); END IF;
263: BEGIN
264: --validation for BOM ER #9946990
265: SELECT bic.bom_item_type,
266: msi.bom_item_type,

Line 297: l_parent_BIT = Bom_Globals.G_STANDARD AND

293: --or delete a substitute component on it
294:
295: IF
296: nvl(fnd_profile.value('BOM:MANDATORY_ATO_IN_PTO'), 2) <> 1 AND
297: l_parent_BIT = Bom_Globals.G_STANDARD AND
298: l_parent_PTO_Flag = 'Y' AND
299: l_rec_ATO_Flag = 'Y' AND
300: l_rec_BIT = Bom_Globals.G_STANDARD
301: THEN

Line 300: l_rec_BIT = Bom_Globals.G_STANDARD

296: nvl(fnd_profile.value('BOM:MANDATORY_ATO_IN_PTO'), 2) <> 1 AND
297: l_parent_BIT = Bom_Globals.G_STANDARD AND
298: l_parent_PTO_Flag = 'Y' AND
299: l_rec_ATO_Flag = 'Y' AND
300: l_rec_BIT = Bom_Globals.G_STANDARD
301: THEN
302: Error_Handler.Add_Error_Token
303: ( p_message_name => 'BOM_KIT_COMP_PRF_NOT_SET'
304: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl

Line 315: l_parent_BIT = Bom_Globals.G_MODEL AND

311:
312:
313: IF
314: nvl(fnd_profile.value('BOM:MANDATORY_ATO_IN_PTO'), 2) <> 1 AND
315: l_parent_BIT = Bom_Globals.G_MODEL AND
316: l_parent_PTO_Flag = 'Y' AND
317: l_rec_ATO_Flag = 'Y' AND
318: l_rec_BIT = Bom_Globals.G_STANDARD AND
319: l_rec_optional = 2

Line 318: l_rec_BIT = Bom_Globals.G_STANDARD AND

314: nvl(fnd_profile.value('BOM:MANDATORY_ATO_IN_PTO'), 2) <> 1 AND
315: l_parent_BIT = Bom_Globals.G_MODEL AND
316: l_parent_PTO_Flag = 'Y' AND
317: l_rec_ATO_Flag = 'Y' AND
318: l_rec_BIT = Bom_Globals.G_STANDARD AND
319: l_rec_optional = 2
320: THEN
321: Error_Handler.Add_Error_Token
322: ( p_message_name => 'BOM_MODEL_COMP_PRF_NOT_SET'

Line 331: IF Bom_Globals.Get_Caller_Type <> 'MIGRATION' THEN

327: END IF;
328: --BOM ER #9946990 changes (end)
329:
330: BEGIN
331: IF Bom_Globals.Get_Caller_Type <> 'MIGRATION' THEN
332: SELECT 1
333: INTO l_dummy
334: FROM bom_bill_of_materials
335: WHERE bill_sequence_id = source_bill_sequence_id

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

368: WHERE bbom.bill_sequence_id = p_Ref_Desg_Unexp_Rec.bill_sequence_id
369: AND bbom.assembly_item_id = msi.inventory_item_id
370: AND bbom.organization_id = msi.organization_id;
371:
372: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Assy Bom Enabled flag : ' || l_assy_bom_enabled); END IF;
373:
374: IF l_assy_bom_enabled <> 'Y'
375: THEN
376: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN

Line 394: IF Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO

390: -- The ECO can be updated but a warning needs to be generated and
391: -- scheduled revised items need to be update to Open
392: -- and the ECO status need to be changed to Not Submitted for Approval
393:
394: IF Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO
395: THEN
396: Bom_GLOBALS.Check_Approved_For_Process
397: ( p_change_notice => p_ref_designator_rec.Eco_Name,
398: p_organization_id => p_ref_desg_Unexp_rec.organization_id,

Line 396: Bom_GLOBALS.Check_Approved_For_Process

392: -- and the ECO status need to be changed to Not Submitted for Approval
393:
394: IF Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO
395: THEN
396: Bom_GLOBALS.Check_Approved_For_Process
397: ( p_change_notice => p_ref_designator_rec.Eco_Name,
398: p_organization_id => p_ref_desg_Unexp_rec.organization_id,
399: x_processed => l_processed,
400: x_err_text => l_err_text

Line 407: Bom_GLOBALS.Set_Request_For_Approval

403: IF l_processed = TRUE THEN
404: -- If the above process returns true then set the ECO approval.
405:
406: BEGIN
407: Bom_GLOBALS.Set_Request_For_Approval
408: ( p_change_notice => p_ref_designator_rec.Eco_Name,
409: p_organization_id => p_ref_desg_Unexp_rec.organization_id,
410: x_err_text => l_err_text
411: );

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

417:
418: END IF;
419: END IF;
420:
421: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Verified if process exists . . .'); END IF;
422:
423: /**********************************************************************
424: *
425: * If the Transaction Type is CREATE and the ACD_Type = Disable, then

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

442: p_ref_designator_rec.reference_designator_name
443: AND NVL(brd.ACD_TYPE,1) <> 3; /* bug 9270000 */
444:
445:
446: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Ref Desigantor: ' || l_dummy); END IF;
447:
448: EXCEPTION
449: WHEN NO_DATA_FOUND THEN
450: -- It means that the reference designator does not

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

502: );
503: END IF;
504: END LOOP;
505:
506: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Verified Compatible ACD Types . . .'); END IF;
507:
508: /************************************************************************
509: * If the Transaction Type is CREATE and the ACD_type is ADD then check the
510: * type of item to which a ref. designator is being added. Planning bills

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

608: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
609: END; /* End Checking for Planning Parent */
610:
611:
612: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Verified Component not planning . . .'); END IF;
613:
614: /************************************************************************
615: * If a ref. designator is being added or deleted, and if the Quantity
616: * Related is 1 then their must be a check that the number of designators

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

615: * If a ref. designator is being added or deleted, and if the Quantity
616: * Related is 1 then their must be a check that the number of designators
617: * is equal to the component_quantity.
618: *************************************************************************/
619: IF (p_ref_designator_rec.Transaction_Type = Bom_GLOBALS.G_OPR_CREATE) THEN
620: BEGIN
621:
622: OPEN c_QuantityRelated;
623: FETCH c_QuantityRelated INTO l_Quantity;

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

623: FETCH c_QuantityRelated INTO l_Quantity;
624:
625: --IF c_QuantityRelated%FOUND THEN
626: -- Bug No:3522842. For BOM BO Quantity Related validation will be done from Bom_Bo_Pvt.
627: IF c_QuantityRelated%FOUND AND Bom_Globals.Get_Bo_Identifier <> Bom_Globals.G_BOM_BO THEN
628:
629: /*****************************************************************
630: --
631: -- If no exception is raised then validate the actual quantity of

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

693: CLOSE c_QuantityRelated;
694: END; /* operation = CREATE ENDS */
695: END IF; /* If Operation = CREATE ENDS */
696:
697: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Verified Quantity Related . . .'); END IF;
698:
699: -- Done validating entity
700:
701: x_return_status := l_return_status;

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

706: does not exists already */
707:
708: IF ( p_ref_designator_rec.new_reference_designator is not null
709: and p_ref_designator_rec.new_reference_designator <> FND_API.G_MISS_CHAR
710: and p_ref_designator_rec.transaction_type = Bom_Globals.G_OPR_UPDATE) THEN
711:
712: select count(*) into l_temp_var
713: FROM BOM_REFERENCE_DESIGNATORS
714: WHERE COMPONENT_REFERENCE_DESIGNATOR = p_ref_designator_rec.new_reference_designator

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

733: RAISE FND_API.G_EXC_ERROR;
734: END IF;
735: END IF;
736:
737: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Verified New_designator ...'); END IF;
738:
739: EXCEPTION
740:
741: WHEN FND_API.G_EXC_ERROR THEN

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

739: EXCEPTION
740:
741: WHEN FND_API.G_EXC_ERROR THEN
742:
743: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Expected Error in Ref Desgs. Entity Validation '); END IF;
744:
745: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
746: x_return_status := FND_API.G_RET_STS_ERROR;
747:

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

746: x_return_status := FND_API.G_RET_STS_ERROR;
747:
748: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
749:
750: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('UNExpected Error in Ref. Desgs Entity Validation '); END IF;
751: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
753:
754: WHEN OTHERS THEN

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

781: x_return_status := FND_API.G_RET_STS_SUCCESS;
782:
783: -- Validate ref_designator attributes
784:
785: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Attribute Validation Starts . . . '); END IF;
786:
787: IF p_ref_designator_rec.acd_type IS NOT NULL AND
788: ( ( Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO AND
789: p_ref_designator_rec.acd_type NOT IN(1, 3)

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

784:
785: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Attribute Validation Starts . . . '); END IF;
786:
787: IF p_ref_designator_rec.acd_type IS NOT NULL AND
788: ( ( Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO AND
789: p_ref_designator_rec.acd_type NOT IN(1, 3)
790: ) OR
791: ( Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_BOM_BO AND
792: p_ref_designator_rec.acd_type IS NOT NULL OR

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

787: IF p_ref_designator_rec.acd_type IS NOT NULL AND
788: ( ( Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO AND
789: p_ref_designator_rec.acd_type NOT IN(1, 3)
790: ) OR
791: ( Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_BOM_BO AND
792: p_ref_designator_rec.acd_type IS NOT NULL OR
793: p_ref_designator_rec.acd_type <> FND_API.G_MISS_NUM
794: )
795: )

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

809: END IF;
810: x_return_status := FND_API.G_RET_STS_ERROR;
811: END IF;
812:
813: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After ACD_TYPE . . .'); END IF;
814:
815: -- Done validating attributes
816: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
817:

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

818: EXCEPTION
819:
820: WHEN FND_API.G_EXC_ERROR THEN
821:
822: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Expected Error in Ref. Desgs Attr Validation . . .'); END IF;
823: x_Mesg_token_Tbl := l_Mesg_token_Tbl;
824: x_return_status := FND_API.G_RET_STS_ERROR;
825:
826: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

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

824: x_return_status := FND_API.G_RET_STS_ERROR;
825:
826: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
827:
828: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('UNExpected Error in Ref. Desgs Attr Validation . . .'); END IF;
829: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
830: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
831:
832: WHEN OTHERS THEN

Line 900: l_parent_BIT = Bom_Globals.G_STANDARD AND

896: END;
897:
898: IF
899: nvl(fnd_profile.value('BOM:MANDATORY_ATO_IN_PTO'), 2) <> 1 AND
900: l_parent_BIT = Bom_Globals.G_STANDARD AND
901: l_parent_PTO_Flag = 'Y' AND
902: l_rec_ATO_Flag = 'Y' AND
903: l_rec_BIT = Bom_Globals.G_STANDARD
904: THEN

Line 903: l_rec_BIT = Bom_Globals.G_STANDARD

899: nvl(fnd_profile.value('BOM:MANDATORY_ATO_IN_PTO'), 2) <> 1 AND
900: l_parent_BIT = Bom_Globals.G_STANDARD AND
901: l_parent_PTO_Flag = 'Y' AND
902: l_rec_ATO_Flag = 'Y' AND
903: l_rec_BIT = Bom_Globals.G_STANDARD
904: THEN
905: Error_Handler.Add_Error_Token
906: ( p_message_name => 'BOM_KIT_COMP_PRF_NOT_SET'
907: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl

Line 920: l_parent_BIT = Bom_Globals.G_MODEL AND

916: --or delete a substitute component on it
917:
918: IF
919: nvl(fnd_profile.value('BOM:MANDATORY_ATO_IN_PTO'), 2) <> 1 AND
920: l_parent_BIT = Bom_Globals.G_MODEL AND
921: l_parent_PTO_Flag = 'Y' AND
922: l_rec_ATO_Flag = 'Y' AND
923: l_rec_BIT = Bom_Globals.G_STANDARD AND
924: l_rec_optional = 2

Line 923: l_rec_BIT = Bom_Globals.G_STANDARD AND

919: nvl(fnd_profile.value('BOM:MANDATORY_ATO_IN_PTO'), 2) <> 1 AND
920: l_parent_BIT = Bom_Globals.G_MODEL AND
921: l_parent_PTO_Flag = 'Y' AND
922: l_rec_ATO_Flag = 'Y' AND
923: l_rec_BIT = Bom_Globals.G_STANDARD AND
924: l_rec_optional = 2
925: THEN
926: Error_Handler.Add_Error_Token
927: ( p_message_name => 'BOM_MODEL_COMP_PRF_NOT_SET'

Line 1026: IF l_return_status = Bom_Globals.G_RECORD_FOUND AND

1022: , x_Ref_Desg_Unexp_Rec => x_old_ref_desg_unexp_rec
1023: , x_Return_Status => l_return_status
1024: );
1025:
1026: IF l_return_status = Bom_Globals.G_RECORD_FOUND AND
1027: p_ref_designator_rec.transaction_type = Bom_Globals.G_OPR_CREATE
1028: THEN
1029: Error_Handler.Add_Error_Token
1030: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl

Line 1027: p_ref_designator_rec.transaction_type = Bom_Globals.G_OPR_CREATE

1023: , x_Return_Status => l_return_status
1024: );
1025:
1026: IF l_return_status = Bom_Globals.G_RECORD_FOUND AND
1027: p_ref_designator_rec.transaction_type = Bom_Globals.G_OPR_CREATE
1028: THEN
1029: Error_Handler.Add_Error_Token
1030: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
1031: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl

Line 1036: ELSIF l_return_status = Bom_Globals.G_RECORD_NOT_FOUND AND

1032: , p_message_name => 'BOM_REF_DESG_ALREADY_EXISTS'
1033: , p_token_tbl => l_token_tbl
1034: );
1035: l_return_status := FND_API.G_RET_STS_ERROR;
1036: ELSIF l_return_status = Bom_Globals.G_RECORD_NOT_FOUND AND
1037: p_ref_designator_rec.transaction_type IN
1038: (Bom_Globals.G_OPR_UPDATE, Bom_Globals.G_OPR_DELETE)
1039: THEN
1040: Error_Handler.Add_Error_Token

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

1034: );
1035: l_return_status := FND_API.G_RET_STS_ERROR;
1036: ELSIF l_return_status = Bom_Globals.G_RECORD_NOT_FOUND AND
1037: p_ref_designator_rec.transaction_type IN
1038: (Bom_Globals.G_OPR_UPDATE, Bom_Globals.G_OPR_DELETE)
1039: THEN
1040: Error_Handler.Add_Error_Token
1041: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
1042: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl

Line 1064: IF l_return_status = Bom_Globals.G_RECORD_FOUND THEN

1060:
1061: /* Assign the relevant transaction type for SYNC operations */
1062:
1063: IF p_ref_designator_rec.transaction_type = 'SYNC' THEN
1064: IF l_return_status = Bom_Globals.G_RECORD_FOUND THEN
1065: x_old_ref_designator_rec.transaction_type :=
1066: Bom_Globals.G_OPR_UPDATE;
1067: ELSE
1068: x_old_ref_designator_rec.transaction_type :=

Line 1066: Bom_Globals.G_OPR_UPDATE;

1062:
1063: IF p_ref_designator_rec.transaction_type = 'SYNC' THEN
1064: IF l_return_status = Bom_Globals.G_RECORD_FOUND THEN
1065: x_old_ref_designator_rec.transaction_type :=
1066: Bom_Globals.G_OPR_UPDATE;
1067: ELSE
1068: x_old_ref_designator_rec.transaction_type :=
1069: Bom_Globals.G_OPR_CREATE;
1070: END IF;

Line 1069: Bom_Globals.G_OPR_CREATE;

1065: x_old_ref_designator_rec.transaction_type :=
1066: Bom_Globals.G_OPR_UPDATE;
1067: ELSE
1068: x_old_ref_designator_rec.transaction_type :=
1069: Bom_Globals.G_OPR_CREATE;
1070: END IF;
1071: END IF;
1072: l_return_status := FND_API.G_RET_STS_SUCCESS;
1073: