[Home] [Help]
131: * send back the error status or success.
132: **************************************************************************/
133: PROCEDURE Check_Quantity
134: ( x_return_status IN OUT NOCOPY VARCHAR2
135: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
136: , p_component_sequence_id IN NUMBER
137: , p_component_item_name IN VARCHAR2
138: )
139: IS
140: l_ref_qty NUMBER := 0;
141: l_quantity NUMBER;
142: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
143:
144: l_token_tbl Error_Handler.Token_Tbl_Type;
145: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
146:
147: CURSOR c_QuantityRelated IS
148: SELECT component_quantity
141: l_quantity NUMBER;
142: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
143:
144: l_token_tbl Error_Handler.Token_Tbl_Type;
145: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
146:
147: CURSOR c_QuantityRelated IS
148: SELECT component_quantity
149: FROM bom_inventory_components
187:
188: l_token_tbl.delete ;
189: l_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
190: l_token_tbl(1).token_value := p_component_item_name;
191: Error_Handler.Add_Error_Token
192: ( x_Mesg_Token_Tbl => l_Mesg_Token_tbl
193: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
194: , p_message_name => 'BOM_QUANTITY_RELATED_INVALID'
195: , p_token_tbl => l_token_tbl
218: ********************************************************************/
219:
220: PROCEDURE Check_Entity
221: ( x_return_status IN OUT NOCOPY VARCHAR2
222: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
223: , p_ref_designator_rec IN Bom_Bo_Pub.Ref_Designator_Rec_Type
224: , p_Ref_Desg_Unexp_Rec IN Bom_Bo_Pub.Ref_Desg_Unexposed_Rec_Type
225: )
226: IS
232: l_processed BOOLEAN;
233: l_quantity NUMBER;
234: l_change NUMBER := 0;
235: l_component_seq_id NUMBER := 0;
236: l_token_tbl Error_Handler.Token_Tbl_Type;
237: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
238: l_Err_text VARCHAR2(2000);
239: l_basis_type NUMBER;
240: l_assy_bom_enabled VARCHAR2(1);
233: l_quantity NUMBER;
234: l_change NUMBER := 0;
235: l_component_seq_id NUMBER := 0;
236: l_token_tbl Error_Handler.Token_Tbl_Type;
237: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
238: l_Err_text VARCHAR2(2000);
239: l_basis_type NUMBER;
240: l_assy_bom_enabled VARCHAR2(1);
241: l_parent_PTO_flag VARCHAR2(1);
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,
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,
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
305: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
306: );
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'
323: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
324: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
325: );
336: AND bill_sequence_id = p_ref_desg_unexp_rec.bill_sequence_id;
337: END IF;
338: EXCEPTION
339: WHEN NO_DATA_FOUND THEN
340: Error_Handler.Add_Error_Token
341: ( p_Message_Name => 'BOM_COMMON_REF_DESG'
342: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
343: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
344: , p_Token_Tbl => l_Token_Tbl
350: select basis_type into l_basis_type from bom_components_b where component_sequence_id = p_Ref_Desg_Unexp_Rec.component_sequence_id;
351: If(l_Basis_type = 2) THEN
352: l_Token_Tbl(1).Token_Name := 'REVISED_COMPONENT_NAME';
353: l_Token_Tbl(1).Token_Value := p_Ref_Designator_Rec.component_item_name;
354: Error_Handler.Add_Error_Token
355: ( x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
356: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
357: , p_message_name => 'BOM_LOT_BASED_RDS'
358: , p_Token_Tbl => l_Token_Tbl
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
376: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
377: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
378: l_token_tbl(1).token_value :=
379: p_ref_designator_rec.Revised_Item_Name;
380: Error_Handler.Add_Error_Token
381: ( x_Mesg_Token_tbl => l_Mesg_Token_Tbl
382: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
383: , p_message_name => 'BOM_REV_ITEM_BOM_NOT_ENABLED'
384: , p_token_tbl => l_token_tbl
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
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
459: 'REFERENCE_DESIGNATOR_NAME';
460: l_token_tbl(2).token_value :=
461: p_ref_designator_rec.reference_designator_name;
462:
463: Error_Handler.Add_Error_Token
464: ( x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
465: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
466: , p_message_name => 'BOM_DISABLE_DESG_NOT_FOUND'
467: , p_Token_Tbl => l_Token_Tbl
493: l_Token_Tbl(1).Token_Name := 'REVISED_COMPONENT_NAME';
494: l_Token_Tbl(1).Token_Value :=
495: p_Ref_Designator_Rec.component_item_name;
496:
497: Error_Handler.Add_Error_Token
498: ( x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
499: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
500: , p_message_name => 'BOM_RFD_ACD_NOT_COMPATIBLE'
501: , p_Token_Tbl => l_Token_Tbl
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
527: l_return_status := FND_API.G_RET_STS_ERROR;
528:
529: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
530: THEN
531: Error_Handler.Add_Error_Token
532: ( x_Mesg_Token_tbl => l_Mesg_Token_Tbl
533: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
534: , p_message_name => 'BOM_RFD_NON_STD_PARENT'
535: );
544: -- ('Unexpected error in Checking Planning Item ' ||
545: -- SQLERRM
546: -- );
547:
548: Error_Handler.Add_Error_Token
549: ( x_Mesg_Token_tbl => l_Mesg_Token_tbl
550: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
551: , p_message_text => 'ERROR in Entity validation '
552: || SUBSTR(SQLERRM, 1, 30) ||
579: l_return_status := FND_API.G_RET_STS_ERROR;
580:
581: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
582: THEN
583: Error_Handler.Add_Error_Token
584: ( x_Mesg_Token_tbl => l_Mesg_Token_Tbl
585: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
586: , p_message_name => 'BOM_RFD_PLANNING_BILL'
587: );
595: -- ('Unexpected error in Checking Planning Item ' ||
596: -- SQLERRM
597: -- );
598:
599: Error_Handler.Add_Error_Token
600: ( x_Mesg_Token_tbl => l_Mesg_Token_tbl
601: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
602: , p_message_text => 'ERROR in Entity validation '
603: || SUBSTR(SQLERRM, 1, 30) ||
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
679: l_token_tbl.delete ; -- Added by MK on 11/14/00
680: l_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
681: l_token_tbl(1).token_value :=
682: p_ref_designator_rec.component_item_name;
683: Error_Handler.Add_Error_Token
684: ( x_Mesg_Token_Tbl => l_Mesg_Token_tbl
685: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
686: , p_message_name => 'BOM_QUANTITY_RELATED_INVALID'
687: , p_token_tbl => l_token_tbl
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;
723: p_ref_designator_rec.new_reference_designator;
724: l_token_tbl(2).token_name := 'REVISED_COMPONENT_NAME';
725: l_token_tbl(2).token_value := p_ref_designator_rec.component_item_name;
726:
727: Error_Handler.Add_Error_Token
728: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
729: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
730: , p_message_name => 'BOM_REF_DESG_ALREADY_EXISTS'
731: , p_token_tbl => l_token_tbl
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
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:
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
769: ********************************************************************/
770:
771: PROCEDURE Check_Attributes
772: ( x_return_status IN OUT NOCOPY VARCHAR2
773: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
774: , p_ref_designator_rec IN Bom_Bo_Pub.Ref_Designator_Rec_Type
775: )
776: IS
777: l_token_tbl Error_Handler.Token_tbl_Type;
773: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
774: , p_ref_designator_rec IN Bom_Bo_Pub.Ref_Designator_Rec_Type
775: )
776: IS
777: l_token_tbl Error_Handler.Token_tbl_Type;
778: l_Mesg_token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
779: BEGIN
780:
781: x_return_status := FND_API.G_RET_STS_SUCCESS;
774: , p_ref_designator_rec IN Bom_Bo_Pub.Ref_Designator_Rec_Type
775: )
776: IS
777: l_token_tbl Error_Handler.Token_tbl_Type;
778: l_Mesg_token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
779: BEGIN
780:
781: x_return_status := FND_API.G_RET_STS_SUCCESS;
782:
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)
799: l_token_tbl(1).token_name := 'REF_DESG';
800: l_token_tbl(1).token_value := 'BOM_REF_DESG_CAP';
801: l_token_tbl(1).translate := TRUE;
802:
803: Error_Handler.Add_Error_Token
804: ( x_Mesg_Token_tbl => l_Mesg_Token_tbl
805: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
806: , p_message_name => 'BOM_RFD_SBC_ACD_TYPE_INVALID'
807: , p_token_tbl => l_token_tbl
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:
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
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
850: ********************************************************************/
851:
852: PROCEDURE Check_Entity_Delete
853: ( x_return_status IN OUT NOCOPY VARCHAR2
854: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
855: , p_ref_designator_rec IN Bom_Bo_Pub.Ref_Designator_Rec_Type
856: , p_Ref_Desg_Unexp_Rec IN Bom_Bo_Pub.Ref_Desg_Unexposed_Rec_Type
857: )
858: IS
856: , p_Ref_Desg_Unexp_Rec IN Bom_Bo_Pub.Ref_Desg_Unexposed_Rec_Type
857: )
858: IS
859: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
860: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
861: l_token_tbl Error_Handler.Token_Tbl_Type;
862: l_rec_BIT NUMBER;
863: l_parent_BIT NUMBER;
864: l_parent_PTO_flag VARCHAR2(1);
857: )
858: IS
859: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
860: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
861: l_token_tbl Error_Handler.Token_Tbl_Type;
862: l_rec_BIT NUMBER;
863: l_parent_BIT NUMBER;
864: l_parent_PTO_flag VARCHAR2(1);
865: l_rec_ATO_flag VARCHAR2(1);
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
908: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
909: );
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'
928: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
929: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
930: );
955: l_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
956: l_token_tbl(1).token_value :=
957: p_ref_designator_rec.component_item_name;
958:
959: Error_Handler.Add_Error_Token
960: ( x_Mesg_Token_tbl => l_Mesg_Token_tbl
961: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
962: , p_message_name => 'BOM_QUANTITY_RELATED_INVALID'
963: , p_message_type => 'W'
997: ( p_ref_designator_rec IN Bom_Bo_Pub.Ref_Designator_Rec_Type
998: , p_ref_desg_unexp_rec IN Bom_Bo_Pub.Ref_Desg_Unexposed_Rec_Type
999: , x_old_ref_designator_rec IN OUT NOCOPY Bom_Bo_Pub.Ref_Designator_Rec_Type
1000: , x_old_ref_desg_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Ref_Desg_Unexposed_Rec_Type
1001: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1002: , x_Return_Status IN OUT NOCOPY VARCHAR2
1003: )
1004: IS
1005: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1001: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1002: , x_Return_Status IN OUT NOCOPY VARCHAR2
1003: )
1004: IS
1005: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1006: l_Return_Status VARCHAR2(1);
1007: l_Token_Tbl Error_Handler.Token_Tbl_Type;
1008: BEGIN
1009: l_Token_Tbl(1).Token_Name := 'REFERENCE_DESIGNATOR_NAME';
1003: )
1004: IS
1005: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1006: l_Return_Status VARCHAR2(1);
1007: l_Token_Tbl Error_Handler.Token_Tbl_Type;
1008: BEGIN
1009: l_Token_Tbl(1).Token_Name := 'REFERENCE_DESIGNATOR_NAME';
1010: l_Token_Tbl(1).Token_Value :=
1011: p_ref_designator_rec.reference_designator_name;
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
1032: , p_message_name => 'BOM_REF_DESG_ALREADY_EXISTS'
1033: , p_token_tbl => l_token_tbl
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
1043: , p_message_name => 'BOM_REF_DESG_DOESNOT_EXIST'
1044: , p_token_tbl => l_token_tbl
1045: );
1046: l_return_status := FND_API.G_RET_STS_ERROR;
1047: ELSIF l_Return_status = FND_API.G_RET_STS_UNEXP_ERROR
1048: THEN
1049: Error_Handler.Add_Error_Token
1050: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
1051: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1052: , p_message_name => NULL
1053: , p_message_text =>
1080:
1081: PROCEDURE Check_Lineage
1082: ( p_ref_designator_rec IN Bom_Bo_Pub.Ref_Designator_Rec_Type
1083: , p_ref_desg_unexp_rec IN Bom_Bo_Pub.Ref_Desg_Unexposed_Rec_Type
1084: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1085: , x_Return_Status IN OUT NOCOPY VARCHAR2
1086: )
1087: IS
1088: l_token_tbl Error_Handler.Token_Tbl_Type;
1084: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1085: , x_Return_Status IN OUT NOCOPY VARCHAR2
1086: )
1087: IS
1088: l_token_tbl Error_Handler.Token_Tbl_Type;
1089: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1090:
1091: CURSOR c_GetComponent IS
1092: SELECT revised_item_sequence_id
1085: , x_Return_Status IN OUT NOCOPY VARCHAR2
1086: )
1087: IS
1088: l_token_tbl Error_Handler.Token_Tbl_Type;
1089: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1090:
1091: CURSOR c_GetComponent IS
1092: SELECT revised_item_sequence_id
1093: FROM bom_inventory_components
1114: 'REVISED_ITEM_NAME';
1115: l_Token_Tbl(3).token_value :=
1116: p_ref_designator_rec.revised_item_name;
1117:
1118: Error_Handler.Add_Error_Token
1119: ( p_Message_Name => 'BOM_REF_REV_ITEM_MISMATCH'
1120: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1121: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1122: , p_Token_Tbl => l_Token_Tbl
1131:
1132: PROCEDURE CHECK_ACCESS
1133: ( p_ref_designator_rec IN Bom_Bo_Pub.Ref_Designator_Rec_Type
1134: , p_ref_desg_unexp_rec IN Bom_Bo_Pub.Ref_Desg_Unexposed_Rec_Type
1135: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1136: , x_Return_Status IN OUT NOCOPY VARCHAR2
1137: )
1138: IS
1139: l_return_status VARCHAR2(1);
1136: , x_Return_Status IN OUT NOCOPY VARCHAR2
1137: )
1138: IS
1139: l_return_status VARCHAR2(1);
1140: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
1141: l_dummy VARCHAR2(80);
1142: l_token_tbl Error_Handler.Token_Tbl_Type;
1143: BEGIN
1144: l_return_status := FND_API.G_RET_STS_SUCCESS;
1138: IS
1139: l_return_status VARCHAR2(1);
1140: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
1141: l_dummy VARCHAR2(80);
1142: l_token_tbl Error_Handler.Token_Tbl_Type;
1143: BEGIN
1144: l_return_status := FND_API.G_RET_STS_SUCCESS;
1145:
1146: /************************************************************************
1165: l_token_Tbl(1).Token_Name := 'REF_DESG';
1166: l_token_Tbl(1).Token_Value :=
1167: p_Ref_Designator_Rec.Reference_Designator_Name;
1168:
1169: Error_Handler.Add_Error_Token
1170: ( x_Mesg_Token_tbl => l_Mesg_token_tbl
1171: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1172: , p_message_name => 'BOM_RFD_COMP_ACD_TYPE_DISABLE'
1173: , p_Token_Tbl => l_Token_Tbl
1174: );
1175: l_return_status := FND_API.G_RET_STS_ERROR;
1176: WHEN OTHERS THEN
1177: --This means that an unexpected error has occured
1178: Error_Handler.Add_Error_Token
1179: ( x_Mesg_Token_tbl => l_Mesg_Token_tbl
1180: , p_Mesg_token_Tbl => l_Mesg_Token_Tbl
1181: , p_message_name => NULL
1182: , p_message_text => 'ERROR in Entity validation '
1195: ** BOM Business Object procedure calls
1196: */
1197: PROCEDURE Check_Entity
1198: ( x_return_status IN OUT NOCOPY VARCHAR2
1199: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1200: , p_bom_ref_designator_rec IN Bom_Bo_Pub.Bom_Ref_Designator_Rec_Type
1201: , p_bom_Ref_Desg_Unexp_Rec IN Bom_Bo_Pub.Bom_Ref_Desg_Unexp_Rec_Type
1202: )
1203: IS
1226: -- Procedure Attributes
1227:
1228: PROCEDURE Check_Attributes
1229: ( x_return_status IN OUT NOCOPY VARCHAR2
1230: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1231: , p_Bom_ref_designator_rec IN Bom_Bo_Pub.Bom_Ref_Designator_Rec_Type
1232: )
1233: IS
1234: l_ref_designator_rec Bom_Bo_Pub.Ref_Designator_rec_Type;
1254: -- Procedure Entity_Delete
1255:
1256: PROCEDURE Check_Entity_Delete
1257: ( x_return_status IN OUT NOCOPY VARCHAR2
1258: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1259: , p_bom_ref_designator_rec IN Bom_Bo_Pub.Bom_Ref_Designator_Rec_Type
1260: , p_bom_Ref_Desg_Unexp_Rec IN Bom_Bo_Pub.Bom_Ref_Desg_Unexp_Rec_Type
1261: )
1262: IS
1287: ( p_bom_ref_designator_rec IN Bom_Bo_Pub.Bom_Ref_Designator_Rec_Type
1288: , p_bom_ref_desg_unexp_rec IN Bom_Bo_Pub.Bom_Ref_Desg_Unexp_Rec_Type
1289: , x_old_bom_ref_designator_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Ref_Designator_Rec_Type
1290: , x_old_bom_ref_desg_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Ref_Desg_Unexp_Rec_Type
1291: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1292: , x_Return_Status IN OUT NOCOPY VARCHAR2
1293: )
1294: IS
1295: l_ref_designator_rec Bom_Bo_Pub.Ref_Designator_rec_Type;
1333:
1334: PROCEDURE Check_Lineage
1335: ( p_bom_ref_designator_rec IN Bom_Bo_Pub.bom_Ref_Designator_Rec_Type
1336: , p_bom_ref_desg_unexp_rec IN Bom_Bo_Pub.bom_Ref_Desg_Unexp_Rec_Type
1337: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1338: , x_Return_Status IN OUT NOCOPY VARCHAR2
1339: )
1340: IS
1341: l_ref_designator_rec Bom_Bo_Pub.Ref_Designator_rec_Type;
1362:
1363: PROCEDURE CHECK_ACCESS
1364: ( p_bom_ref_designator_rec IN Bom_Bo_Pub.Bom_Ref_Designator_Rec_Type
1365: , p_bom_ref_desg_unexp_rec IN Bom_Bo_Pub.Bom_Ref_Desg_Unexp_Rec_Type
1366: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1367: , x_Return_Status IN OUT NOCOPY VARCHAR2
1368: )
1369: IS
1370: l_ref_designator_rec Bom_Bo_Pub.Ref_Designator_rec_Type;