[Home] [Help]
121: * send back the error status or success.
122: **************************************************************************/
123: PROCEDURE Check_Quantity
124: ( x_return_status IN OUT NOCOPY VARCHAR2
125: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
126: , p_component_sequence_id IN NUMBER
127: , p_component_item_name IN VARCHAR2
128: )
129: IS
130: l_ref_qty NUMBER := 0;
131: l_quantity NUMBER;
132: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
133:
134: l_token_tbl Error_Handler.Token_Tbl_Type;
135: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
136:
137: CURSOR c_QuantityRelated IS
138: SELECT component_quantity
131: l_quantity NUMBER;
132: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
133:
134: l_token_tbl Error_Handler.Token_Tbl_Type;
135: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
136:
137: CURSOR c_QuantityRelated IS
138: SELECT component_quantity
139: FROM bom_inventory_components
176:
177: l_token_tbl.delete ;
178: l_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
179: l_token_tbl(1).token_value := p_component_item_name;
180: Error_Handler.Add_Error_Token
181: ( x_Mesg_Token_Tbl => l_Mesg_Token_tbl
182: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
183: , p_message_name => 'BOM_QUANTITY_RELATED_INVALID'
184: , p_token_tbl => l_token_tbl
207: ********************************************************************/
208:
209: PROCEDURE Check_Entity
210: ( x_return_status IN OUT NOCOPY VARCHAR2
211: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
212: , p_ref_designator_rec IN Bom_Bo_Pub.Ref_Designator_Rec_Type
213: , p_Ref_Desg_Unexp_Rec IN Bom_Bo_Pub.Ref_Desg_Unexposed_Rec_Type
214: )
215: IS
221: l_processed BOOLEAN;
222: l_quantity NUMBER;
223: l_change NUMBER := 0;
224: l_component_seq_id NUMBER := 0;
225: l_token_tbl Error_Handler.Token_Tbl_Type;
226: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
227: l_Err_text VARCHAR2(2000);
228: l_basis_type NUMBER;
229: l_assy_bom_enabled VARCHAR2(1);
222: l_quantity NUMBER;
223: l_change NUMBER := 0;
224: l_component_seq_id NUMBER := 0;
225: l_token_tbl Error_Handler.Token_Tbl_Type;
226: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
227: l_Err_text VARCHAR2(2000);
228: l_basis_type NUMBER;
229: l_assy_bom_enabled VARCHAR2(1);
230:
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
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
251: WHERE bill_sequence_id = source_bill_sequence_id
252: AND bill_sequence_id = p_ref_desg_unexp_rec.bill_sequence_id;
253: EXCEPTION
254: WHEN NO_DATA_FOUND THEN
255: Error_Handler.Add_Error_Token
256: ( p_Message_Name => 'BOM_COMMON_REF_DESG'
257: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
258: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
259: , p_Token_Tbl => l_Token_Tbl
265: select basis_type into l_basis_type from bom_components_b where component_sequence_id = p_Ref_Desg_Unexp_Rec.component_sequence_id;
266: If(l_Basis_type = 2) THEN
267: l_Token_Tbl(1).Token_Name := 'REVISED_COMPONENT_NAME';
268: l_Token_Tbl(1).Token_Value := p_Ref_Designator_Rec.component_item_name;
269: Error_Handler.Add_Error_Token
270: ( x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
271: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
272: , p_message_name => 'BOM_LOT_BASED_RDS'
273: , p_Token_Tbl => l_Token_Tbl
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
291: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
292: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
293: l_token_tbl(1).token_value :=
294: p_ref_designator_rec.Revised_Item_Name;
295: Error_Handler.Add_Error_Token
296: ( x_Mesg_Token_tbl => l_Mesg_Token_Tbl
297: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
298: , p_message_name => 'BOM_REV_ITEM_BOM_NOT_ENABLED'
299: , p_token_tbl => l_token_tbl
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
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
372: 'REFERENCE_DESIGNATOR_NAME';
373: l_token_tbl(2).token_value :=
374: p_ref_designator_rec.reference_designator_name;
375:
376: Error_Handler.Add_Error_Token
377: ( x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
378: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
379: , p_message_name => 'BOM_DISABLE_DESG_NOT_FOUND'
380: , p_Token_Tbl => l_Token_Tbl
406: l_Token_Tbl(1).Token_Name := 'REVISED_COMPONENT_NAME';
407: l_Token_Tbl(1).Token_Value :=
408: p_Ref_Designator_Rec.component_item_name;
409:
410: Error_Handler.Add_Error_Token
411: ( x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
412: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
413: , p_message_name => 'BOM_RFD_ACD_NOT_COMPATIBLE'
414: , p_Token_Tbl => l_Token_Tbl
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
440: l_return_status := FND_API.G_RET_STS_ERROR;
441:
442: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
443: THEN
444: Error_Handler.Add_Error_Token
445: ( x_Mesg_Token_tbl => l_Mesg_Token_Tbl
446: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
447: , p_message_name => 'BOM_RFD_NON_STD_PARENT'
448: );
457: -- ('Unexpected error in Checking Planning Item ' ||
458: -- SQLERRM
459: -- );
460:
461: Error_Handler.Add_Error_Token
462: ( x_Mesg_Token_tbl => l_Mesg_Token_tbl
463: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
464: , p_message_text => 'ERROR in Entity validation '
465: || SUBSTR(SQLERRM, 1, 30) ||
492: l_return_status := FND_API.G_RET_STS_ERROR;
493:
494: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
495: THEN
496: Error_Handler.Add_Error_Token
497: ( x_Mesg_Token_tbl => l_Mesg_Token_Tbl
498: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
499: , p_message_name => 'BOM_RFD_PLANNING_BILL'
500: );
508: -- ('Unexpected error in Checking Planning Item ' ||
509: -- SQLERRM
510: -- );
511:
512: Error_Handler.Add_Error_Token
513: ( x_Mesg_Token_tbl => l_Mesg_Token_tbl
514: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
515: , p_message_text => 'ERROR in Entity validation '
516: || SUBSTR(SQLERRM, 1, 30) ||
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
591: l_token_tbl.delete ; -- Added by MK on 11/14/00
592: l_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
593: l_token_tbl(1).token_value :=
594: p_ref_designator_rec.component_item_name;
595: Error_Handler.Add_Error_Token
596: ( x_Mesg_Token_Tbl => l_Mesg_Token_tbl
597: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
598: , p_message_name => 'BOM_QUANTITY_RELATED_INVALID'
599: , p_token_tbl => l_token_tbl
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;
635: p_ref_designator_rec.new_reference_designator;
636: l_token_tbl(2).token_name := 'REVISED_COMPONENT_NAME';
637: l_token_tbl(2).token_value := p_ref_designator_rec.component_item_name;
638:
639: Error_Handler.Add_Error_Token
640: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
641: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
642: , p_message_name => 'BOM_REF_DESG_ALREADY_EXISTS'
643: , p_token_tbl => l_token_tbl
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
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:
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
681: ********************************************************************/
682:
683: PROCEDURE Check_Attributes
684: ( x_return_status IN OUT NOCOPY VARCHAR2
685: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
686: , p_ref_designator_rec IN Bom_Bo_Pub.Ref_Designator_Rec_Type
687: )
688: IS
689: l_token_tbl Error_Handler.Token_tbl_Type;
685: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
686: , p_ref_designator_rec IN Bom_Bo_Pub.Ref_Designator_Rec_Type
687: )
688: IS
689: l_token_tbl Error_Handler.Token_tbl_Type;
690: l_Mesg_token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
691: BEGIN
692:
693: x_return_status := FND_API.G_RET_STS_SUCCESS;
686: , p_ref_designator_rec IN Bom_Bo_Pub.Ref_Designator_Rec_Type
687: )
688: IS
689: l_token_tbl Error_Handler.Token_tbl_Type;
690: l_Mesg_token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
691: BEGIN
692:
693: x_return_status := FND_API.G_RET_STS_SUCCESS;
694:
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)
711: l_token_tbl(1).token_name := 'REF_DESG';
712: l_token_tbl(1).token_value := 'BOM_REF_DESG_CAP';
713: l_token_tbl(1).translate := TRUE;
714:
715: Error_Handler.Add_Error_Token
716: ( x_Mesg_Token_tbl => l_Mesg_Token_tbl
717: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
718: , p_message_name => 'BOM_RFD_SBC_ACD_TYPE_INVALID'
719: , p_token_tbl => l_token_tbl
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:
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
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
762: ********************************************************************/
763:
764: PROCEDURE Check_Entity_Delete
765: ( x_return_status IN OUT NOCOPY VARCHAR2
766: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
767: , p_ref_designator_rec IN Bom_Bo_Pub.Ref_Designator_Rec_Type
768: , p_Ref_Desg_Unexp_Rec IN Bom_Bo_Pub.Ref_Desg_Unexposed_Rec_Type
769: )
770: IS
768: , p_Ref_Desg_Unexp_Rec IN Bom_Bo_Pub.Ref_Desg_Unexposed_Rec_Type
769: )
770: IS
771: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
772: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
773: l_token_tbl Error_Handler.Token_Tbl_Type;
774:
775: BEGIN
776:
769: )
770: IS
771: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
772: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
773: l_token_tbl Error_Handler.Token_Tbl_Type;
774:
775: BEGIN
776:
777: /***********************************************************************
796: l_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
797: l_token_tbl(1).token_value :=
798: p_ref_designator_rec.component_item_name;
799:
800: Error_Handler.Add_Error_Token
801: ( x_Mesg_Token_tbl => l_Mesg_Token_tbl
802: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
803: , p_message_name => 'BOM_QUANTITY_RELATED_INVALID'
804: , p_message_type => 'W'
838: ( p_ref_designator_rec IN Bom_Bo_Pub.Ref_Designator_Rec_Type
839: , p_ref_desg_unexp_rec IN Bom_Bo_Pub.Ref_Desg_Unexposed_Rec_Type
840: , x_old_ref_designator_rec IN OUT NOCOPY Bom_Bo_Pub.Ref_Designator_Rec_Type
841: , x_old_ref_desg_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Ref_Desg_Unexposed_Rec_Type
842: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
843: , x_Return_Status IN OUT NOCOPY VARCHAR2
844: )
845: IS
846: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
842: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
843: , x_Return_Status IN OUT NOCOPY VARCHAR2
844: )
845: IS
846: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
847: l_Return_Status VARCHAR2(1);
848: l_Token_Tbl Error_Handler.Token_Tbl_Type;
849: BEGIN
850: l_Token_Tbl(1).Token_Name := 'REFERENCE_DESIGNATOR_NAME';
844: )
845: IS
846: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
847: l_Return_Status VARCHAR2(1);
848: l_Token_Tbl Error_Handler.Token_Tbl_Type;
849: BEGIN
850: l_Token_Tbl(1).Token_Name := 'REFERENCE_DESIGNATOR_NAME';
851: l_Token_Tbl(1).Token_Value :=
852: p_ref_designator_rec.reference_designator_name;
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
873: , p_message_name => 'BOM_REF_DESG_ALREADY_EXISTS'
874: , p_token_tbl => l_token_tbl
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
884: , p_message_name => 'BOM_REF_DESG_DOESNOT_EXIST'
885: , p_token_tbl => l_token_tbl
886: );
887: l_return_status := FND_API.G_RET_STS_ERROR;
888: ELSIF l_Return_status = FND_API.G_RET_STS_UNEXP_ERROR
889: THEN
890: Error_Handler.Add_Error_Token
891: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
892: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
893: , p_message_name => NULL
894: , p_message_text =>
921:
922: PROCEDURE Check_Lineage
923: ( p_ref_designator_rec IN Bom_Bo_Pub.Ref_Designator_Rec_Type
924: , p_ref_desg_unexp_rec IN Bom_Bo_Pub.Ref_Desg_Unexposed_Rec_Type
925: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
926: , x_Return_Status IN OUT NOCOPY VARCHAR2
927: )
928: IS
929: l_token_tbl Error_Handler.Token_Tbl_Type;
925: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
926: , x_Return_Status IN OUT NOCOPY VARCHAR2
927: )
928: IS
929: l_token_tbl Error_Handler.Token_Tbl_Type;
930: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
931:
932: CURSOR c_GetComponent IS
933: SELECT revised_item_sequence_id
926: , x_Return_Status IN OUT NOCOPY VARCHAR2
927: )
928: IS
929: l_token_tbl Error_Handler.Token_Tbl_Type;
930: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
931:
932: CURSOR c_GetComponent IS
933: SELECT revised_item_sequence_id
934: FROM bom_inventory_components
955: 'REVISED_ITEM_NAME';
956: l_Token_Tbl(3).token_value :=
957: p_ref_designator_rec.revised_item_name;
958:
959: Error_Handler.Add_Error_Token
960: ( p_Message_Name => 'BOM_REF_REV_ITEM_MISMATCH'
961: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
962: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
963: , p_Token_Tbl => l_Token_Tbl
972:
973: PROCEDURE CHECK_ACCESS
974: ( p_ref_designator_rec IN Bom_Bo_Pub.Ref_Designator_Rec_Type
975: , p_ref_desg_unexp_rec IN Bom_Bo_Pub.Ref_Desg_Unexposed_Rec_Type
976: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
977: , x_Return_Status IN OUT NOCOPY VARCHAR2
978: )
979: IS
980: l_return_status VARCHAR2(1);
977: , x_Return_Status IN OUT NOCOPY VARCHAR2
978: )
979: IS
980: l_return_status VARCHAR2(1);
981: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
982: l_dummy VARCHAR2(80);
983: l_token_tbl Error_Handler.Token_Tbl_Type;
984: BEGIN
985: l_return_status := FND_API.G_RET_STS_SUCCESS;
979: IS
980: l_return_status VARCHAR2(1);
981: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
982: l_dummy VARCHAR2(80);
983: l_token_tbl Error_Handler.Token_Tbl_Type;
984: BEGIN
985: l_return_status := FND_API.G_RET_STS_SUCCESS;
986:
987: /************************************************************************
1006: l_token_Tbl(1).Token_Name := 'REF_DESG';
1007: l_token_Tbl(1).Token_Value :=
1008: p_Ref_Designator_Rec.Reference_Designator_Name;
1009:
1010: Error_Handler.Add_Error_Token
1011: ( x_Mesg_Token_tbl => l_Mesg_token_tbl
1012: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1013: , p_message_name => 'BOM_RFD_COMP_ACD_TYPE_DISABLE'
1014: , p_Token_Tbl => l_Token_Tbl
1015: );
1016: l_return_status := FND_API.G_RET_STS_ERROR;
1017: WHEN OTHERS THEN
1018: --This means that an unexpected error has occured
1019: Error_Handler.Add_Error_Token
1020: ( x_Mesg_Token_tbl => l_Mesg_Token_tbl
1021: , p_Mesg_token_Tbl => l_Mesg_Token_Tbl
1022: , p_message_name => NULL
1023: , p_message_text => 'ERROR in Entity validation '
1036: ** BOM Business Object procedure calls
1037: */
1038: PROCEDURE Check_Entity
1039: ( x_return_status IN OUT NOCOPY VARCHAR2
1040: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1041: , p_bom_ref_designator_rec IN Bom_Bo_Pub.Bom_Ref_Designator_Rec_Type
1042: , p_bom_Ref_Desg_Unexp_Rec IN Bom_Bo_Pub.Bom_Ref_Desg_Unexp_Rec_Type
1043: )
1044: IS
1067: -- Procedure Attributes
1068:
1069: PROCEDURE Check_Attributes
1070: ( x_return_status IN OUT NOCOPY VARCHAR2
1071: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1072: , p_Bom_ref_designator_rec IN Bom_Bo_Pub.Bom_Ref_Designator_Rec_Type
1073: )
1074: IS
1075: l_ref_designator_rec Bom_Bo_Pub.Ref_Designator_rec_Type;
1095: -- Procedure Entity_Delete
1096:
1097: PROCEDURE Check_Entity_Delete
1098: ( x_return_status IN OUT NOCOPY VARCHAR2
1099: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1100: , p_bom_ref_designator_rec IN Bom_Bo_Pub.Bom_Ref_Designator_Rec_Type
1101: , p_bom_Ref_Desg_Unexp_Rec IN Bom_Bo_Pub.Bom_Ref_Desg_Unexp_Rec_Type
1102: )
1103: IS
1128: ( p_bom_ref_designator_rec IN Bom_Bo_Pub.Bom_Ref_Designator_Rec_Type
1129: , p_bom_ref_desg_unexp_rec IN Bom_Bo_Pub.Bom_Ref_Desg_Unexp_Rec_Type
1130: , x_old_bom_ref_designator_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Ref_Designator_Rec_Type
1131: , x_old_bom_ref_desg_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Ref_Desg_Unexp_Rec_Type
1132: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1133: , x_Return_Status IN OUT NOCOPY VARCHAR2
1134: )
1135: IS
1136: l_ref_designator_rec Bom_Bo_Pub.Ref_Designator_rec_Type;
1174:
1175: PROCEDURE Check_Lineage
1176: ( p_bom_ref_designator_rec IN Bom_Bo_Pub.bom_Ref_Designator_Rec_Type
1177: , p_bom_ref_desg_unexp_rec IN Bom_Bo_Pub.bom_Ref_Desg_Unexp_Rec_Type
1178: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1179: , x_Return_Status IN OUT NOCOPY VARCHAR2
1180: )
1181: IS
1182: l_ref_designator_rec Bom_Bo_Pub.Ref_Designator_rec_Type;
1203:
1204: PROCEDURE CHECK_ACCESS
1205: ( p_bom_ref_designator_rec IN Bom_Bo_Pub.Bom_Ref_Designator_Rec_Type
1206: , p_bom_ref_desg_unexp_rec IN Bom_Bo_Pub.Bom_Ref_Desg_Unexp_Rec_Type
1207: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1208: , x_Return_Status IN OUT NOCOPY VARCHAR2
1209: )
1210: IS
1211: l_ref_designator_rec Bom_Bo_Pub.Ref_Designator_rec_Type;