[Home] [Help]
31: PROCEDURE CHECK_REQUIRED( x_return_status IN OUT NOCOPY VARCHAR2
32: , p_sub_component_rec IN
33: Bom_Bo_Pub.Sub_Component_Rec_Type
34: , x_Mesg_Token_tbl IN OUT NOCOPY
35: Error_Handler.Mesg_Token_Tbl_Type
36: )
37: IS
38: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
39: BEGIN
34: , x_Mesg_Token_tbl IN OUT NOCOPY
35: Error_Handler.Mesg_Token_Tbl_Type
36: )
37: IS
38: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
39: BEGIN
40: IF p_sub_component_rec.Revised_Item_Name IS NULL OR
41: p_sub_component_rec.Revised_Item_Name = FND_API.G_MISS_CHAR OR
42: p_sub_component_rec.Start_Effective_Date IS NULL OR
58: Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO
59: )
60: THEN
61: x_return_status := FND_API.G_RET_STS_ERROR;
62: Error_Handler.Add_Error_Token
63: ( x_Mesg_Token_Tbl => x_Mesg_Token_Tbl
64: , p_Message_Name => 'BOM_SUB_COMP_REQ'
65: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
66: );
85: *
86: *********************************************************************/
87: PROCEDURE Check_Entity
88: ( x_return_status IN OUT NOCOPY VARCHAR2
89: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
90: , p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
91: , p_Sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
92: , p_control_rec IN BOM_BO_PUB.Control_Rec_Type
93: := BOM_BO_PUB.G_DEFAULT_CONTROL_REC
108: l_rec_ID DATE;
109: l_processed BOOLEAN;
110: l_err_text VARCHAR2(200);
111: stmt_num NUMBER := 0;
112: l_token_tbl Error_Handler.Token_Tbl_Type;
113: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
114: l_sbc_item_type NUMBER;
115: l_sbc_bom_enabled_flag VARCHAR2(1);
116: l_sbc_eng_item_flag VARCHAR2(1);
109: l_processed BOOLEAN;
110: l_err_text VARCHAR2(200);
111: stmt_num NUMBER := 0;
112: l_token_tbl Error_Handler.Token_Tbl_Type;
113: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
114: l_sbc_item_type NUMBER;
115: l_sbc_bom_enabled_flag VARCHAR2(1);
116: l_sbc_eng_item_flag VARCHAR2(1);
117: l_sbc_tracking_qty_ind VARCHAR2(30);
166: EXCEPTION
167: WHEN OTHERS THEN
168: NULL;
169: END;
170: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Bill SequenceId : ' || to_char(l_rec_BSI)); END IF;
171: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Assembly Type : ' || to_char(l_rec_AST)); END IF;
172: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Comp SequenceId : ' || to_char(p_Sub_Comp_Unexp_Rec.component_sequence_id)); END IF;
173:
174: if bom_globals.get_debug = 'Y' then Error_Handler.write_debug('Sub Comp: Checking for editable common bill...'); END IF;
167: WHEN OTHERS THEN
168: NULL;
169: END;
170: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Bill SequenceId : ' || to_char(l_rec_BSI)); END IF;
171: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Assembly Type : ' || to_char(l_rec_AST)); END IF;
172: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Comp SequenceId : ' || to_char(p_Sub_Comp_Unexp_Rec.component_sequence_id)); END IF;
173:
174: if bom_globals.get_debug = 'Y' then Error_Handler.write_debug('Sub Comp: Checking for editable common bill...'); END IF;
175:
168: NULL;
169: END;
170: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Bill SequenceId : ' || to_char(l_rec_BSI)); END IF;
171: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Assembly Type : ' || to_char(l_rec_AST)); END IF;
172: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Comp SequenceId : ' || to_char(p_Sub_Comp_Unexp_Rec.component_sequence_id)); END IF;
173:
174: if bom_globals.get_debug = 'Y' then Error_Handler.write_debug('Sub Comp: Checking for editable common bill...'); END IF;
175:
176: --validation for BOM ER #9946990
170: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Bill SequenceId : ' || to_char(l_rec_BSI)); END IF;
171: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Assembly Type : ' || to_char(l_rec_AST)); END IF;
172: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Comp SequenceId : ' || to_char(p_Sub_Comp_Unexp_Rec.component_sequence_id)); END IF;
173:
174: if bom_globals.get_debug = 'Y' then Error_Handler.write_debug('Sub Comp: Checking for editable common bill...'); END IF;
175:
176: --validation for BOM ER #9946990
177: --if an ATO item was added in a kit when the related profile was set, you cannot
178: --update the component once the profile is unset (meaning you cannot insert, update or delete
185: l_parent_PTO_Flag = 'Y' AND
186: l_rec_ATO_Flag = 'Y' AND
187: l_rec_BIT = Bom_Globals.G_STANDARD
188: THEN
189: Error_Handler.Add_Error_Token
190: ( p_message_name => 'BOM_KIT_COMP_PRF_NOT_SET'
191: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
192: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
193: , p_Token_Tbl => l_Token_Tbl
207: l_rec_ATO_Flag = 'Y' AND
208: l_rec_BIT = Bom_Globals.G_STANDARD AND
209: l_rec_optional = 2
210: THEN
211: Error_Handler.Add_Error_Token
212: ( p_message_name => 'BOM_MODEL_COMP_PRF_NOT_SET'
213: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
214: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
215: , p_Token_Tbl => l_Token_Tbl
227: AND bill_sequence_id = l_rec_BSI; --p_sub_comp_unexp_rec.bill_Sequence_id; --Bug 5726557
228: END IF;
229: EXCEPTION
230: WHEN NO_DATA_FOUND THEN
231: Error_Handler.Add_Error_Token
232: ( p_Message_Name => 'BOM_COMMON_SUB_COMP'
233: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
234: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
235: , p_Token_Tbl => l_Token_Tbl
244: WHERE bbom.bill_sequence_id = l_rec_BSI
245: AND bbom.assembly_item_id = msi.inventory_item_id
246: AND bbom.organization_id = msi.organization_id;
247:
248: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Assy Bom Enabled flag : ' || l_assy_bom_enabled); END IF;
249:
250: IF l_assy_bom_enabled <> 'Y'
251: THEN
252: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
252: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
253: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
254: l_token_tbl(1).token_value :=
255: p_sub_component_rec.Revised_Item_Name;
256: Error_Handler.Add_Error_Token
257: ( x_Mesg_Token_tbl => l_Mesg_Token_Tbl
258: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
259: , p_message_name => 'BOM_REV_ITEM_BOM_NOT_ENABLED'
260: , p_token_tbl => l_token_tbl
275: ---------------------------------------------------------------------
276: IF p_sub_component_rec.Transaction_Type = Bom_Globals.G_OPR_CREATE THEN
277:
278: BEGIN
279: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Checking for planning bill or non-std. component . . . '); END IF;
280:
281: IF l_rec_bit IN (1, 2, 3, 5)
282: THEN
283: l_err_text := 'BOM_SBC_NON_STD_PARENT';
285: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
286: -- dbms_output.put_line
287: -- ('Expected Error. non-standard component . . . ');
288:
289: Error_Handler.Add_Error_Token
290: ( x_Mesg_Token_tbl => l_Mesg_Token_tbl
291: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
292: , p_message_name => l_err_text
293: );
302: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
303: -- dbms_output.put_line
304: -- ('Expected Error. planning parent. . . ');
305:
306: Error_Handler.Add_Error_Token
307: ( x_Mesg_Token_tbl => l_Mesg_Token_tbl
308: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
309: , p_message_name => l_err_text
310: );
321: NULL; -- Do nothing
322: WHEN OTHERS THEN
323: -- dbms_output.put_line('Unexpected error in Checking Planning Item
324: -- ' || SQLERRM);
325: Error_Handler.Add_Error_Token
326: ( x_Mesg_Token_tbl => l_Mesg_Token_tbl
327: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
328: , p_message_name => NULL
329: , p_message_text => 'ERROR in Entity validation ' ||
366: -----------------------------------------------------------------------
367:
368: stmt_num := 7;
369: BEGIN
370: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Verify sub. comp. exists in MTL_System_Item with correct attributes . . .'); END IF;
371:
372: SELECT bom_item_type, bom_enabled_flag, eng_item_flag ,tracking_quantity_ind
373: INTO l_sbc_item_type, l_sbc_bom_enabled_flag, l_sbc_eng_item_flag,l_sbc_tracking_qty_ind
374: FROM mtl_system_items
383:
384:
385: IF l_sbc_item_type <> 4 THEN
386: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
387: Error_Handler.Add_Error_Token
388: ( x_Mesg_Token_tbl => l_Mesg_Token_Tbl
389: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
390: , p_message_name => 'BOM_SUB_COMP_NOT_STD'
391: );
395: /* Validations for OPM Convergence Project
396: Dual UOM controlled items should not be allowed*/
397:
398: IF (l_sbc_tracking_qty_ind='Y' )THEN
399: Error_Handler.Add_Error_Token
400: ( p_Message_name => 'BOM_DUAL_UOM_ITEMS'
401: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
402: , x_mesg_token_tbl => l_mesg_token_tbl
403: );
409: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
410: l_token_tbl(1).token_name := 'SUBSTITUTE_ITEM_NAME';
411: l_token_tbl(1).token_value :=
412: p_sub_component_rec.substitute_component_name;
413: Error_Handler.Add_Error_Token
414: ( x_Mesg_Token_tbl => l_Mesg_Token_Tbl
415: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
416: , p_message_name => 'BOM_SUB_COMP_NOT_BOM_ENABLED'
417: , p_token_tbl => l_token_tbl
423: -- IF ((l_rec_AST = 2) OR (l_rec_AST = 1 AND l_sbc_eng_item_flag = 'Y')) -- Bug No: 3561608
424: IF (l_rec_AST = 1 AND l_sbc_eng_item_flag = 'Y')
425: THEN
426: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
427: Error_Handler.Add_Error_Token
428: ( x_Mesg_Token_tbl => l_Mesg_Token_Tbl
429: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
430: , p_message_name => 'BOM_SUB_COMP_ASSEMBLY_MFG'
431: );
445: -- Component Item exists in those orgs |
446: -------------------------------------------------------------------
447: stmt_num := 8;
448: BEGIN
449: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Verfying component for other common orgs . . . '); END IF;
450:
451: SELECT 1
452: INTO l_dummy
453: FROM bom_bill_of_materials bbom
475: l_token_tbl.DELETE;
476: l_Token_tbl(1).token_name := 'SUBSTITUTE_ITEM_NAME';
477: l_token_tbl(1).token_value :=
478: p_sub_component_rec.substitute_component_name;
479: Error_Handler.Add_Error_Token
480: ( x_Mesg_Token_tbl => l_Mesg_Token_tbl
481: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
482: , p_message_name => 'BOM_SBC_COMBILL_DOES_NOT_EXIST'
483: , p_token_tbl => l_token_tbl
495: ---------------------------------------------------------
496: -- Verify sub comp is not the same as bill or component |
497: ---------------------------------------------------------
498: stmt_num := 9;
499: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Verifying sub. comp not same as parent . . . '); END IF;
500:
501: IF (p_Sub_Component_Rec.Transaction_Type = Bom_Globals.G_OPR_UPDATE AND
502: p_Sub_Comp_Unexp_Rec.New_Substitute_Component_Id IN
503: (l_rec_AII, l_rec_CII))
506: p_Sub_Comp_Unexp_Rec.Substitute_Component_Id IN
507: (l_rec_AII,l_rec_CII))
508: THEN
509: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
510: Error_Handler.Add_Error_Token
511: ( x_Mesg_Token_tbl => l_Mesg_Token_tbl
512: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
513: , p_message_name => 'BOM_SUBCOMP_SAMEAS_ITEM_COMP'
514: , p_token_tbl => l_token_tbl
538: THEN
539: IF l_parent_acd_type = 3 THEN
540: l_return_status := FND_API.G_RET_STS_ERROR;
541: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
542: Error_Handler.Add_Error_Token
543: ( x_Mesg_Token_tbl => l_Mesg_Token_tbl
544: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
545: , p_message_name => 'BOM_SBC_COMP_ACD_TYPE_DISABLE'
546: );
555: THEN
556: l_return_status := FND_API.G_RET_STS_ERROR;
557: l_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
558: l_token_tbl(1).token_value := p_sub_component_rec.component_item_name;
559: Error_Handler.Add_Error_Token
560: ( x_Mesg_Token_tbl => l_Mesg_Token_tbl
561: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
562: , p_message_name => 'BOM_SBC_ACD_NOT_COMPATIBLE'
563: , p_token_tbl => l_token_tbl
592: -------------------------------------------------------------------------
593:
594: IF p_sub_component_rec.acd_type = 3 THEN
595: BEGIN
596: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Verifying if component is not disable type . . . '); END IF;
597:
598: SELECT count(*)
599: INTO l_dummy
600: FROM bom_substitute_components sub_comp,
605: rev_comp.old_component_Sequence_id
606: AND sub_comp.Substitute_Component_Id =
607: p_Sub_Comp_Unexp_Rec.Substitute_Component_Id;
608:
609: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
610: ( 'Sub Components found: ' || l_dummy);
611: END IF;
612:
613: IF (l_dummy = 0)
617: p_sub_component_rec.substitute_component_name;
618: l_token_tbl(2).token_name := 'REVISED_COMPONENT_NAME';
619: l_token_tbl(2).token_value :=
620: p_sub_component_rec.component_item_name;
621: Error_Handler.Add_Error_Token
622: ( x_Mesg_Token_tbl => l_Mesg_Token_tbl
623: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
624: , p_message_name => 'BOM_DISABLE_SCOMP_NOT_FOUND'
625: , p_token_tbl => l_token_tbl
666: p_sub_component_rec.new_substitute_component_name;
667: l_token_tbl(2).token_name := 'REVISED_COMPONENT_NAME';
668: l_token_tbl(2).token_value := p_sub_component_rec.component_item_name;
669:
670: Error_Handler.Add_Error_Token
671: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
672: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
673: , p_message_name => 'BOM_SUB_COMP_ALREADY_EXISTS'
674: , p_token_tbl => l_token_tbl
676: RAISE FND_API.G_EXC_ERROR;
677: END IF;
678: END IF;
679:
680: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Verified New Substitute Component ...'); END IF;
681:
682:
683:
684: EXCEPTION
701: THEN
702: l_err_text := G_PKG_NAME ||
703: 'Validation (Substitute Component Entity)' ||
704: SUBSTR(SQLERRM, 1, 100);
705: Error_Handler.Add_Error_Token( x_Mesg_Token_tbl => x_Mesg_Token_tbl
706: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
707: , p_message_name => NULL
708: , p_message_text => l_err_text
709: );
724: *********************************************************************/
725:
726: PROCEDURE Check_Attributes
727: ( x_return_status IN OUT NOCOPY VARCHAR2
728: , x_Mesg_Token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
729: , p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
730: , p_Sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
731: )
732: IS
732: IS
733: l_dummy VARCHAR2(1);
734: l_return_status VARCHAR2(1);
735: l_err_text VARCHAR2(255);
736: l_token_tbl Error_Handler.Token_Tbl_Type;
737: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
738: BEGIN
739:
740: l_return_status := FND_API.G_RET_STS_SUCCESS;
733: l_dummy VARCHAR2(1);
734: l_return_status VARCHAR2(1);
735: l_err_text VARCHAR2(255);
736: l_token_tbl Error_Handler.Token_Tbl_Type;
737: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
738: BEGIN
739:
740: l_return_status := FND_API.G_RET_STS_SUCCESS;
741:
749: THEN
750: l_token_tbl(1).token_name := 'SUBSITUTE_ITEM_NAME';
751: l_token_tbl(1).token_value :=
752: p_sub_component_rec.substitute_component_name;
753: Error_Handler.Add_Error_Token
754: ( x_Mesg_Token_tbl => x_Mesg_Token_tbl
755: , p_message_name => 'BOM_SUB_COMP_QTY_ZERO'
756: , p_token_tbl => l_token_tbl
757: );
775: AND organization_id = p_sub_comp_unexp_rec.organization_id
776: AND rounding_control_type = 1;
777:
778: EXCEPTION WHEN NO_DATA_FOUND THEN
779: Error_Handler.Add_Error_Token
780: ( p_Message_Name => 'BOM_ENFORCE_INT_INVALID'
781: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
782: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
783: , p_Token_Tbl => l_Token_Tbl
785: l_return_status := FND_API.G_RET_STS_ERROR;
786:
787: WHEN OTHERS THEN
788:
789: Error_Handler.Add_Error_Token
790: ( p_Message_Name => NULL
791: , p_Message_Text =>
792: 'Error in Subs.Comp Attr. Validation '
793: || SUBSTR(SQLERRM, 1, 30) || ' ' ||
817: *********************************************************************/
818:
819: PROCEDURE Check_Entity_Delete
820: ( x_return_status IN OUT NOCOPY VARCHAR2
821: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
822: , p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
823: , p_Sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
824: )
825: IS
825: IS
826: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
827: l_err_text VARCHAR2(255);
828: l_rec_ID DATE := NULL;
829: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
830: BEGIN
831:
832: -- Validate entity delete.
833: x_return_status := l_return_status;
852: ( p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
853: , p_sub_comp_unexp_rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
854: , x_old_sub_component_rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Component_Rec_Type
855: , x_old_sub_comp_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
856: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
857: , x_Return_Status IN OUT NOCOPY VARCHAR2
858: )
859: IS
860: l_token_tbl Error_Handler.Token_Tbl_Type;
856: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
857: , x_Return_Status IN OUT NOCOPY VARCHAR2
858: )
859: IS
860: l_token_tbl Error_Handler.Token_Tbl_Type;
861: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
862: l_return_status VARCHAR2(1);
863: BEGIN
864: l_Token_Tbl(1).Token_Name := 'SUBSTITUTE_ITEM_NAME';
857: , x_Return_Status IN OUT NOCOPY VARCHAR2
858: )
859: IS
860: l_token_tbl Error_Handler.Token_Tbl_Type;
861: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
862: l_return_status VARCHAR2(1);
863: BEGIN
864: l_Token_Tbl(1).Token_Name := 'SUBSTITUTE_ITEM_NAME';
865: l_Token_Tbl(1).Token_Value :=
867: l_token_tbl(2).token_name := 'REVISED_COMPONENT_NAME';
868: l_token_tbl(2).token_value :=
869: p_sub_component_rec.component_item_name;
870:
871: Error_Handler.Write_Debug('In SCOMP Check Exist before query row...'||p_sub_component_rec.transaction_type);
872: BOM_Sub_Component_Util.Query_Row
873: ( p_substitute_component_id =>
874: p_sub_comp_unexp_rec.substitute_component_id
875: , p_component_sequence_id =>
881: , x_return_status => l_return_status
882: );
883:
884: IF p_sub_component_rec.transaction_type IS NULL THEN
885: Error_Handler.Write_Debug ('In SCOMP Check Exist ...is NULL');
886: ELSIF p_sub_component_rec.transaction_type = FND_API.G_MISS_CHAR THEN
887: Error_Handler.Write_Debug ('In SCOMP Check Exist ...is MISSING');
888: ELSE
889: Error_Handler.Write_Debug('In SCOMP Check Exist...'||p_sub_component_rec.transaction_type);
883:
884: IF p_sub_component_rec.transaction_type IS NULL THEN
885: Error_Handler.Write_Debug ('In SCOMP Check Exist ...is NULL');
886: ELSIF p_sub_component_rec.transaction_type = FND_API.G_MISS_CHAR THEN
887: Error_Handler.Write_Debug ('In SCOMP Check Exist ...is MISSING');
888: ELSE
889: Error_Handler.Write_Debug('In SCOMP Check Exist...'||p_sub_component_rec.transaction_type);
890: END IF;
891:
885: Error_Handler.Write_Debug ('In SCOMP Check Exist ...is NULL');
886: ELSIF p_sub_component_rec.transaction_type = FND_API.G_MISS_CHAR THEN
887: Error_Handler.Write_Debug ('In SCOMP Check Exist ...is MISSING');
888: ELSE
889: Error_Handler.Write_Debug('In SCOMP Check Exist...'||p_sub_component_rec.transaction_type);
890: END IF;
891:
892: IF l_return_status = Bom_Globals.G_RECORD_FOUND AND
893: p_sub_component_rec.transaction_type = Bom_Globals.G_OPR_CREATE
891:
892: IF l_return_status = Bom_Globals.G_RECORD_FOUND AND
893: p_sub_component_rec.transaction_type = Bom_Globals.G_OPR_CREATE
894: THEN
895: Error_Handler.Add_Error_Token
896: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
897: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
898: , p_message_name => 'BOM_SUB_COMP_ALREADY_EXISTS'
899: , p_token_tbl => l_token_tbl
902: ELSIF l_return_status = Bom_Globals.G_RECORD_NOT_FOUND AND
903: p_sub_component_rec.transaction_type IN
904: (Bom_Globals.G_OPR_UPDATE, Bom_Globals.G_OPR_DELETE)
905: THEN
906: Error_Handler.Add_Error_Token
907: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
908: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
909: , p_message_name => 'BOM_SUB_COMP_DOESNOT_EXIST'
910: , p_token_tbl => l_token_tbl
911: );
912: l_return_status := FND_API.G_RET_STS_ERROR;
913: ELSIF l_Return_status = FND_API.G_RET_STS_UNEXP_ERROR
914: THEN
915: Error_Handler.Add_Error_Token
916: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
917: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
918: , p_message_name => NULL
919: , p_message_text =>
955: *****************************************************************************/
956: PROCEDURE Check_Lineage
957: ( p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
958: , p_sub_comp_unexp_rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
959: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
960: , x_Return_Status IN OUT NOCOPY VARCHAR2
961: )
962: IS
963: l_token_tbl Error_Handler.Token_Tbl_Type;
959: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
960: , x_Return_Status IN OUT NOCOPY VARCHAR2
961: )
962: IS
963: l_token_tbl Error_Handler.Token_Tbl_Type;
964: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
965:
966: CURSOR c_GetComponent IS
967: SELECT revised_item_sequence_id
960: , x_Return_Status IN OUT NOCOPY VARCHAR2
961: )
962: IS
963: l_token_tbl Error_Handler.Token_Tbl_Type;
964: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
965:
966: CURSOR c_GetComponent IS
967: SELECT revised_item_sequence_id
968: FROM bom_inventory_components
989: 'SUBSTITUTE_ITEM_NAME';
990: l_token_tbl(3).token_value :=
991: p_sub_component_rec.substitute_component_name;
992:
993: Error_Handler.Add_Error_Token
994: ( p_Message_Name => 'BOM_SBC_REV_ITEM_MISMATCH'
995: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
996: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
997: , p_Token_Tbl => l_Token_Tbl
1019: ****************************************************************************/
1020: PROCEDURE Check_Access
1021: ( p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
1022: , p_sub_comp_unexp_rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
1023: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1024: , x_Return_Status IN OUT NOCOPY VARCHAR2
1025: )
1026: IS
1027: l_OPM_org VARCHAR2(1);
1024: , x_Return_Status IN OUT NOCOPY VARCHAR2
1025: )
1026: IS
1027: l_OPM_org VARCHAR2(1);
1028: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1029: l_Token_Tbl Error_Handler.Token_Tbl_Type;
1030: l_Return_Status VARCHAR2(1);
1031: CURSOR c_GetSubCompType IS
1032: SELECT bom_item_type
1025: )
1026: IS
1027: l_OPM_org VARCHAR2(1);
1028: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1029: l_Token_Tbl Error_Handler.Token_Tbl_Type;
1030: l_Return_Status VARCHAR2(1);
1031: CURSOR c_GetSubCompType IS
1032: SELECT bom_item_type
1033: FROM mtl_system_items
1049: /* Validations for OPM Convergence Project
1050: Model/Option class items are not allowed in OPM organizations*/
1051:
1052: IF (l_OPM_org='Y' and SubCompType.bom_item_type in ( Bom_Globals.G_MODEL, Bom_Globals.G_OPTION_CLASS))THEN
1053: Error_Handler.Add_Error_Token
1054: ( p_Message_name => 'BOM_OPM_ORG_MODEL_OC'
1055: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1056: , x_mesg_token_tbl => l_mesg_token_tbl
1057: );
1057: );
1058: l_return_status := FND_API.G_RET_STS_ERROR;
1059: ELSIF SubCompType.bom_item_type = Bom_Globals.G_PRODUCT_FAMILY
1060: THEN
1061: Error_Handler.Add_Error_Token
1062: ( p_Message_Name => 'BOM_SUB_COMP_PF'
1063: , p_mesg_token_tbl => l_mesg_token_tbl
1064: , x_mesg_token_tbl => l_mesg_token_tbl
1065: , p_token_tbl => l_token_tbl
1091: THEN
1092: l_Token_Tbl(2).Token_Value := 'BOM_STANDARD';
1093: END IF;
1094:
1095: Error_Handler.Add_Error_Token
1096: ( p_Message_Name => 'BOM_SUB_COMP_ACCESS_DENIED'
1097: , p_Mesg_Token_Tbl => l_mesg_token_tbl
1098: , x_Mesg_Token_Tbl => l_mesg_token_tbl
1099: , p_Token_Tbl => l_token_tbl
1112: */
1113: PROCEDURE Check_Required
1114: ( x_return_status IN OUT NOCOPY VARCHAR2
1115: , p_bom_sub_component_rec IN Bom_Bo_Pub.Bom_Sub_Component_Rec_Type
1116: , x_Mesg_Token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1117: )
1118: IS
1119: l_sub_component_rec Bom_Bo_Pub.Sub_Component_Rec_Type;
1120: l_sub_comp_unexp_rec Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type;
1143: -- Procedure Entity
1144:
1145: PROCEDURE Check_Entity
1146: ( x_return_status IN OUT NOCOPY VARCHAR2
1147: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1148: , p_bom_sub_component_rec IN Bom_Bo_Pub.Bom_Sub_Component_Rec_Type
1149: , p_bom_Sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
1150: )
1151: IS
1177: -- Procedure Attributes
1178:
1179: PROCEDURE Check_Attributes
1180: ( x_return_status IN OUT NOCOPY VARCHAR2
1181: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1182: , p_bom_sub_component_rec IN Bom_Bo_Pub.Bom_Sub_Component_Rec_Type
1183: , p_bom_Sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
1184: )
1185: IS
1211: -- Procedure Entity_Delete
1212:
1213: PROCEDURE Check_Entity_Delete
1214: ( x_return_status IN OUT NOCOPY VARCHAR2
1215: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1216: , p_bom_sub_component_rec IN Bom_Bo_Pub.Bom_Sub_Component_Rec_Type
1217: , p_bom_Sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
1218: )
1219: IS
1245: ( p_bom_sub_component_rec IN Bom_Bo_Pub.Bom_Sub_Component_Rec_Type
1246: , p_bom_sub_comp_unexp_rec IN Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
1247: , x_old_bom_sub_component_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Sub_Component_Rec_Type
1248: , x_old_bom_sub_comp_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
1249: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1250: , x_Return_Status IN OUT NOCOPY VARCHAR2
1251: )
1252: IS
1253: l_sub_component_rec Bom_Bo_Pub.Sub_Component_Rec_Type;
1290:
1291: PROCEDURE Check_Lineage
1292: ( p_bom_sub_component_rec IN Bom_Bo_Pub.Bom_Sub_Component_Rec_Type
1293: , p_bom_sub_comp_unexp_rec IN Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
1294: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1295: , x_Return_Status IN OUT NOCOPY VARCHAR2
1296: )
1297: IS
1298: l_sub_component_rec Bom_Bo_Pub.Sub_Component_Rec_Type;
1319:
1320: PROCEDURE Check_Access
1321: ( p_bom_sub_component_rec IN Bom_Bo_Pub.Bom_Sub_Component_Rec_Type
1322: , p_bom_sub_comp_unexp_rec IN Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
1323: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1324: , x_Return_Status IN OUT NOCOPY VARCHAR2
1325: )
1326: IS
1327: l_sub_component_rec Bom_Bo_Pub.Sub_Component_Rec_Type;