eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.BOM_VALIDATE_SUB_COMPONENT dependencies on ERROR_HANDLER

Line 35: Error_Handler.Mesg_Token_Tbl_Type

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

Line 38: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_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
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

Line 62: Error_Handler.Add_Error_Token

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: );

Line 89: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

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

Line 112: l_token_tbl Error_Handler.Token_Tbl_Type;

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);

Line 113: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

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);

Line 156: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Bill SequenceId : ' || to_char(l_rec_BSI)); END IF;

152: EXCEPTION
153: WHEN OTHERS THEN
154: NULL;
155: END;
156: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Bill SequenceId : ' || to_char(l_rec_BSI)); END IF;
157: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Assembly Type : ' || to_char(l_rec_AST)); END IF;
158: 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;
159:
160: if bom_globals.get_debug = 'Y' then Error_Handler.write_debug('Sub Comp: Checking for editable common bill...'); END IF;

Line 157: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Assembly Type : ' || to_char(l_rec_AST)); END IF;

153: WHEN OTHERS THEN
154: NULL;
155: END;
156: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Bill SequenceId : ' || to_char(l_rec_BSI)); END IF;
157: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Assembly Type : ' || to_char(l_rec_AST)); END IF;
158: 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;
159:
160: if bom_globals.get_debug = 'Y' then Error_Handler.write_debug('Sub Comp: Checking for editable common bill...'); END IF;
161:

Line 158: 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;

154: NULL;
155: END;
156: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Bill SequenceId : ' || to_char(l_rec_BSI)); END IF;
157: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Assembly Type : ' || to_char(l_rec_AST)); END IF;
158: 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;
159:
160: if bom_globals.get_debug = 'Y' then Error_Handler.write_debug('Sub Comp: Checking for editable common bill...'); END IF;
161:
162: BEGIN

Line 160: if bom_globals.get_debug = 'Y' then Error_Handler.write_debug('Sub Comp: Checking for editable common bill...'); END IF;

156: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Bill SequenceId : ' || to_char(l_rec_BSI)); END IF;
157: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Assembly Type : ' || to_char(l_rec_AST)); END IF;
158: 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;
159:
160: if bom_globals.get_debug = 'Y' then Error_Handler.write_debug('Sub Comp: Checking for editable common bill...'); END IF;
161:
162: BEGIN
163: SELECT 1
164: INTO l_dummy

Line 170: Error_Handler.Add_Error_Token

166: WHERE bill_sequence_id = source_bill_sequence_id
167: AND bill_sequence_id = l_rec_BSI; --p_sub_comp_unexp_rec.bill_Sequence_id; --Bug 5726557
168: EXCEPTION
169: WHEN NO_DATA_FOUND THEN
170: Error_Handler.Add_Error_Token
171: ( p_Message_Name => 'BOM_COMMON_SUB_COMP'
172: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
173: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
174: , p_Token_Tbl => l_Token_Tbl

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

183: WHERE bbom.bill_sequence_id = l_rec_BSI
184: AND bbom.assembly_item_id = msi.inventory_item_id
185: AND bbom.organization_id = msi.organization_id;
186:
187: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Assy Bom Enabled flag : ' || l_assy_bom_enabled); END IF;
188:
189: IF l_assy_bom_enabled <> 'Y'
190: THEN
191: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN

Line 195: Error_Handler.Add_Error_Token

191: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
192: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
193: l_token_tbl(1).token_value :=
194: p_sub_component_rec.Revised_Item_Name;
195: Error_Handler.Add_Error_Token
196: ( x_Mesg_Token_tbl => l_Mesg_Token_Tbl
197: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
198: , p_message_name => 'BOM_REV_ITEM_BOM_NOT_ENABLED'
199: , p_token_tbl => l_token_tbl

Line 218: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Checking for planning bill or non-std. component . . . '); END IF;

214: ---------------------------------------------------------------------
215: IF p_sub_component_rec.Transaction_Type = Bom_Globals.G_OPR_CREATE THEN
216:
217: BEGIN
218: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Checking for planning bill or non-std. component . . . '); END IF;
219:
220: IF l_rec_bit IN (1, 2, 3, 5)
221: THEN
222: l_err_text := 'BOM_SBC_NON_STD_PARENT';

Line 228: Error_Handler.Add_Error_Token

224: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
225: -- dbms_output.put_line
226: -- ('Expected Error. non-standard component . . . ');
227:
228: Error_Handler.Add_Error_Token
229: ( x_Mesg_Token_tbl => l_Mesg_Token_tbl
230: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
231: , p_message_name => l_err_text
232: );

Line 245: Error_Handler.Add_Error_Token

241: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
242: -- dbms_output.put_line
243: -- ('Expected Error. planning parent. . . ');
244:
245: Error_Handler.Add_Error_Token
246: ( x_Mesg_Token_tbl => l_Mesg_Token_tbl
247: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
248: , p_message_name => l_err_text
249: );

Line 264: Error_Handler.Add_Error_Token

260: NULL; -- Do nothing
261: WHEN OTHERS THEN
262: -- dbms_output.put_line('Unexpected error in Checking Planning Item
263: -- ' || SQLERRM);
264: Error_Handler.Add_Error_Token
265: ( x_Mesg_Token_tbl => l_Mesg_Token_tbl
266: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
267: , p_message_name => NULL
268: , p_message_text => 'ERROR in Entity validation ' ||

Line 309: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Verify sub. comp. exists in MTL_System_Item with correct attributes . . .'); END IF;

305: -----------------------------------------------------------------------
306:
307: stmt_num := 7;
308: BEGIN
309: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Verify sub. comp. exists in MTL_System_Item with correct attributes . . .'); END IF;
310:
311: SELECT bom_item_type, bom_enabled_flag, eng_item_flag ,tracking_quantity_ind
312: INTO l_sbc_item_type, l_sbc_bom_enabled_flag, l_sbc_eng_item_flag,l_sbc_tracking_qty_ind
313: FROM mtl_system_items

Line 326: Error_Handler.Add_Error_Token

322:
323:
324: IF l_sbc_item_type <> 4 THEN
325: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
326: Error_Handler.Add_Error_Token
327: ( x_Mesg_Token_tbl => l_Mesg_Token_Tbl
328: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
329: , p_message_name => 'BOM_SUB_COMP_NOT_STD'
330: );

Line 338: Error_Handler.Add_Error_Token

334: /* Validations for OPM Convergence Project
335: Dual UOM controlled items should not be allowed*/
336:
337: IF (l_sbc_tracking_qty_ind='Y' )THEN
338: Error_Handler.Add_Error_Token
339: ( p_Message_name => 'BOM_DUAL_UOM_ITEMS'
340: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
341: , x_mesg_token_tbl => l_mesg_token_tbl
342: );

Line 352: Error_Handler.Add_Error_Token

348: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
349: l_token_tbl(1).token_name := 'SUBSTITUTE_ITEM_NAME';
350: l_token_tbl(1).token_value :=
351: p_sub_component_rec.substitute_component_name;
352: Error_Handler.Add_Error_Token
353: ( x_Mesg_Token_tbl => l_Mesg_Token_Tbl
354: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
355: , p_message_name => 'BOM_SUB_COMP_NOT_BOM_ENABLED'
356: , p_token_tbl => l_token_tbl

Line 366: Error_Handler.Add_Error_Token

362: -- IF ((l_rec_AST = 2) OR (l_rec_AST = 1 AND l_sbc_eng_item_flag = 'Y')) -- Bug No: 3561608
363: IF (l_rec_AST = 1 AND l_sbc_eng_item_flag = 'Y')
364: THEN
365: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
366: Error_Handler.Add_Error_Token
367: ( x_Mesg_Token_tbl => l_Mesg_Token_Tbl
368: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
369: , p_message_name => 'BOM_SUB_COMP_ASSEMBLY_MFG'
370: );

Line 388: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Verfying component for other common orgs . . . '); END IF;

384: -- Component Item exists in those orgs |
385: -------------------------------------------------------------------
386: stmt_num := 8;
387: BEGIN
388: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Verfying component for other common orgs . . . '); END IF;
389:
390: SELECT 1
391: INTO l_dummy
392: FROM bom_bill_of_materials bbom

Line 418: Error_Handler.Add_Error_Token

414: l_token_tbl.DELETE;
415: l_Token_tbl(1).token_name := 'SUBSTITUTE_ITEM_NAME';
416: l_token_tbl(1).token_value :=
417: p_sub_component_rec.substitute_component_name;
418: Error_Handler.Add_Error_Token
419: ( x_Mesg_Token_tbl => l_Mesg_Token_tbl
420: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
421: , p_message_name => 'BOM_SBC_COMBILL_DOES_NOT_EXIST'
422: , p_token_tbl => l_token_tbl

Line 438: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Verifying sub. comp not same as parent . . . '); END IF;

434: ---------------------------------------------------------
435: -- Verify sub comp is not the same as bill or component |
436: ---------------------------------------------------------
437: stmt_num := 9;
438: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Verifying sub. comp not same as parent . . . '); END IF;
439:
440: IF (p_Sub_Component_Rec.Transaction_Type = Bom_Globals.G_OPR_UPDATE AND
441: p_Sub_Comp_Unexp_Rec.New_Substitute_Component_Id IN
442: (l_rec_AII, l_rec_CII))

Line 449: Error_Handler.Add_Error_Token

445: p_Sub_Comp_Unexp_Rec.Substitute_Component_Id IN
446: (l_rec_AII,l_rec_CII))
447: THEN
448: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
449: Error_Handler.Add_Error_Token
450: ( x_Mesg_Token_tbl => l_Mesg_Token_tbl
451: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
452: , p_message_name => 'BOM_SUBCOMP_SAMEAS_ITEM_COMP'
453: , p_token_tbl => l_token_tbl

Line 481: Error_Handler.Add_Error_Token

477: THEN
478: IF l_parent_acd_type = 3 THEN
479: l_return_status := FND_API.G_RET_STS_ERROR;
480: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
481: Error_Handler.Add_Error_Token
482: ( x_Mesg_Token_tbl => l_Mesg_Token_tbl
483: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
484: , p_message_name => 'BOM_SBC_COMP_ACD_TYPE_DISABLE'
485: );

Line 498: Error_Handler.Add_Error_Token

494: THEN
495: l_return_status := FND_API.G_RET_STS_ERROR;
496: l_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
497: l_token_tbl(1).token_value := p_sub_component_rec.component_item_name;
498: Error_Handler.Add_Error_Token
499: ( x_Mesg_Token_tbl => l_Mesg_Token_tbl
500: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
501: , p_message_name => 'BOM_SBC_ACD_NOT_COMPATIBLE'
502: , p_token_tbl => l_token_tbl

Line 535: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Verifying if component is not disable type . . . '); END IF;

531: -------------------------------------------------------------------------
532:
533: IF p_sub_component_rec.acd_type = 3 THEN
534: BEGIN
535: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Verifying if component is not disable type . . . '); END IF;
536:
537: SELECT count(*)
538: INTO l_dummy
539: FROM bom_substitute_components sub_comp,

Line 548: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

544: rev_comp.old_component_Sequence_id
545: AND sub_comp.Substitute_Component_Id =
546: p_Sub_Comp_Unexp_Rec.Substitute_Component_Id;
547:
548: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
549: ( 'Sub Components found: ' || l_dummy);
550: END IF;
551:
552: IF (l_dummy = 0)

Line 560: Error_Handler.Add_Error_Token

556: p_sub_component_rec.substitute_component_name;
557: l_token_tbl(2).token_name := 'REVISED_COMPONENT_NAME';
558: l_token_tbl(2).token_value :=
559: p_sub_component_rec.component_item_name;
560: Error_Handler.Add_Error_Token
561: ( x_Mesg_Token_tbl => l_Mesg_Token_tbl
562: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
563: , p_message_name => 'BOM_DISABLE_SCOMP_NOT_FOUND'
564: , p_token_tbl => l_token_tbl

Line 609: Error_Handler.Add_Error_Token

605: p_sub_component_rec.new_substitute_component_name;
606: l_token_tbl(2).token_name := 'REVISED_COMPONENT_NAME';
607: l_token_tbl(2).token_value := p_sub_component_rec.component_item_name;
608:
609: Error_Handler.Add_Error_Token
610: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
611: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
612: , p_message_name => 'BOM_SUB_COMP_ALREADY_EXISTS'
613: , p_token_tbl => l_token_tbl

Line 619: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Verified New Substitute Component ...'); END IF;

615: RAISE FND_API.G_EXC_ERROR;
616: END IF;
617: END IF;
618:
619: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Verified New Substitute Component ...'); END IF;
620:
621:
622:
623: EXCEPTION

Line 644: Error_Handler.Add_Error_Token( x_Mesg_Token_tbl => x_Mesg_Token_tbl

640: THEN
641: l_err_text := G_PKG_NAME ||
642: 'Validation (Substitute Component Entity)' ||
643: SUBSTR(SQLERRM, 1, 100);
644: Error_Handler.Add_Error_Token( x_Mesg_Token_tbl => x_Mesg_Token_tbl
645: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
646: , p_message_name => NULL
647: , p_message_text => l_err_text
648: );

Line 667: , x_Mesg_Token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

663: *********************************************************************/
664:
665: PROCEDURE Check_Attributes
666: ( x_return_status IN OUT NOCOPY VARCHAR2
667: , x_Mesg_Token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
668: , p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
669: , p_Sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
670: )
671: IS

Line 675: l_token_tbl Error_Handler.Token_Tbl_Type;

671: IS
672: l_dummy VARCHAR2(1);
673: l_return_status VARCHAR2(1);
674: l_err_text VARCHAR2(255);
675: l_token_tbl Error_Handler.Token_Tbl_Type;
676: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
677: BEGIN
678:
679: l_return_status := FND_API.G_RET_STS_SUCCESS;

Line 676: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

672: l_dummy VARCHAR2(1);
673: l_return_status VARCHAR2(1);
674: l_err_text VARCHAR2(255);
675: l_token_tbl Error_Handler.Token_Tbl_Type;
676: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
677: BEGIN
678:
679: l_return_status := FND_API.G_RET_STS_SUCCESS;
680:

Line 692: Error_Handler.Add_Error_Token

688: THEN
689: l_token_tbl(1).token_name := 'SUBSITUTE_ITEM_NAME';
690: l_token_tbl(1).token_value :=
691: p_sub_component_rec.substitute_component_name;
692: Error_Handler.Add_Error_Token
693: ( x_Mesg_Token_tbl => x_Mesg_Token_tbl
694: , p_message_name => 'BOM_SUB_COMP_QTY_ZERO'
695: , p_token_tbl => l_token_tbl
696: );

Line 718: Error_Handler.Add_Error_Token

714: AND organization_id = p_sub_comp_unexp_rec.organization_id
715: AND rounding_control_type = 1;
716:
717: EXCEPTION WHEN NO_DATA_FOUND THEN
718: Error_Handler.Add_Error_Token
719: ( p_Message_Name => 'BOM_ENFORCE_INT_INVALID'
720: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
721: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
722: , p_Token_Tbl => l_Token_Tbl

Line 728: Error_Handler.Add_Error_Token

724: l_return_status := FND_API.G_RET_STS_ERROR;
725:
726: WHEN OTHERS THEN
727:
728: Error_Handler.Add_Error_Token
729: ( p_Message_Name => NULL
730: , p_Message_Text =>
731: 'Error in Subs.Comp Attr. Validation '
732: || SUBSTR(SQLERRM, 1, 30) || ' ' ||

Line 760: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

756: *********************************************************************/
757:
758: PROCEDURE Check_Entity_Delete
759: ( x_return_status IN OUT NOCOPY VARCHAR2
760: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
761: , p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
762: , p_Sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
763: )
764: IS

Line 768: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

764: IS
765: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
766: l_err_text VARCHAR2(255);
767: l_rec_ID DATE := NULL;
768: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
769: BEGIN
770:
771: -- Validate entity delete.
772: x_return_status := l_return_status;

Line 795: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

791: ( p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
792: , p_sub_comp_unexp_rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
793: , x_old_sub_component_rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Component_Rec_Type
794: , x_old_sub_comp_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
795: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
796: , x_Return_Status IN OUT NOCOPY VARCHAR2
797: )
798: IS
799: l_token_tbl Error_Handler.Token_Tbl_Type;

Line 799: l_token_tbl Error_Handler.Token_Tbl_Type;

795: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
796: , x_Return_Status IN OUT NOCOPY VARCHAR2
797: )
798: IS
799: l_token_tbl Error_Handler.Token_Tbl_Type;
800: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
801: l_return_status VARCHAR2(1);
802: BEGIN
803: l_Token_Tbl(1).Token_Name := 'SUBSTITUTE_ITEM_NAME';

Line 800: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

796: , x_Return_Status IN OUT NOCOPY VARCHAR2
797: )
798: IS
799: l_token_tbl Error_Handler.Token_Tbl_Type;
800: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
801: l_return_status VARCHAR2(1);
802: BEGIN
803: l_Token_Tbl(1).Token_Name := 'SUBSTITUTE_ITEM_NAME';
804: l_Token_Tbl(1).Token_Value :=

Line 810: Error_Handler.Write_Debug('In SCOMP Check Exist before query row...'||p_sub_component_rec.transaction_type);

806: l_token_tbl(2).token_name := 'REVISED_COMPONENT_NAME';
807: l_token_tbl(2).token_value :=
808: p_sub_component_rec.component_item_name;
809:
810: Error_Handler.Write_Debug('In SCOMP Check Exist before query row...'||p_sub_component_rec.transaction_type);
811: BOM_Sub_Component_Util.Query_Row
812: ( p_substitute_component_id =>
813: p_sub_comp_unexp_rec.substitute_component_id
814: , p_component_sequence_id =>

Line 824: Error_Handler.Write_Debug ('In SCOMP Check Exist ...is NULL');

820: , x_return_status => l_return_status
821: );
822:
823: IF p_sub_component_rec.transaction_type IS NULL THEN
824: Error_Handler.Write_Debug ('In SCOMP Check Exist ...is NULL');
825: ELSIF p_sub_component_rec.transaction_type = FND_API.G_MISS_CHAR THEN
826: Error_Handler.Write_Debug ('In SCOMP Check Exist ...is MISSING');
827: ELSE
828: Error_Handler.Write_Debug('In SCOMP Check Exist...'||p_sub_component_rec.transaction_type);

Line 826: Error_Handler.Write_Debug ('In SCOMP Check Exist ...is MISSING');

822:
823: IF p_sub_component_rec.transaction_type IS NULL THEN
824: Error_Handler.Write_Debug ('In SCOMP Check Exist ...is NULL');
825: ELSIF p_sub_component_rec.transaction_type = FND_API.G_MISS_CHAR THEN
826: Error_Handler.Write_Debug ('In SCOMP Check Exist ...is MISSING');
827: ELSE
828: Error_Handler.Write_Debug('In SCOMP Check Exist...'||p_sub_component_rec.transaction_type);
829: END IF;
830:

Line 828: Error_Handler.Write_Debug('In SCOMP Check Exist...'||p_sub_component_rec.transaction_type);

824: Error_Handler.Write_Debug ('In SCOMP Check Exist ...is NULL');
825: ELSIF p_sub_component_rec.transaction_type = FND_API.G_MISS_CHAR THEN
826: Error_Handler.Write_Debug ('In SCOMP Check Exist ...is MISSING');
827: ELSE
828: Error_Handler.Write_Debug('In SCOMP Check Exist...'||p_sub_component_rec.transaction_type);
829: END IF;
830:
831: IF l_return_status = Bom_Globals.G_RECORD_FOUND AND
832: p_sub_component_rec.transaction_type = Bom_Globals.G_OPR_CREATE

Line 834: Error_Handler.Add_Error_Token

830:
831: IF l_return_status = Bom_Globals.G_RECORD_FOUND AND
832: p_sub_component_rec.transaction_type = Bom_Globals.G_OPR_CREATE
833: THEN
834: Error_Handler.Add_Error_Token
835: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
836: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
837: , p_message_name => 'BOM_SUB_COMP_ALREADY_EXISTS'
838: , p_token_tbl => l_token_tbl

Line 845: Error_Handler.Add_Error_Token

841: ELSIF l_return_status = Bom_Globals.G_RECORD_NOT_FOUND AND
842: p_sub_component_rec.transaction_type IN
843: (Bom_Globals.G_OPR_UPDATE, Bom_Globals.G_OPR_DELETE)
844: THEN
845: Error_Handler.Add_Error_Token
846: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
847: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
848: , p_message_name => 'BOM_SUB_COMP_DOESNOT_EXIST'
849: , p_token_tbl => l_token_tbl

Line 854: Error_Handler.Add_Error_Token

850: );
851: l_return_status := FND_API.G_RET_STS_ERROR;
852: ELSIF l_Return_status = FND_API.G_RET_STS_UNEXP_ERROR
853: THEN
854: Error_Handler.Add_Error_Token
855: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
856: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
857: , p_message_name => NULL
858: , p_message_text =>

Line 898: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

894: *****************************************************************************/
895: PROCEDURE Check_Lineage
896: ( p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
897: , p_sub_comp_unexp_rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
898: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
899: , x_Return_Status IN OUT NOCOPY VARCHAR2
900: )
901: IS
902: l_token_tbl Error_Handler.Token_Tbl_Type;

Line 902: l_token_tbl Error_Handler.Token_Tbl_Type;

898: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
899: , x_Return_Status IN OUT NOCOPY VARCHAR2
900: )
901: IS
902: l_token_tbl Error_Handler.Token_Tbl_Type;
903: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
904:
905: CURSOR c_GetComponent IS
906: SELECT revised_item_sequence_id

Line 903: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

899: , x_Return_Status IN OUT NOCOPY VARCHAR2
900: )
901: IS
902: l_token_tbl Error_Handler.Token_Tbl_Type;
903: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
904:
905: CURSOR c_GetComponent IS
906: SELECT revised_item_sequence_id
907: FROM bom_inventory_components

Line 932: Error_Handler.Add_Error_Token

928: 'SUBSTITUTE_ITEM_NAME';
929: l_token_tbl(3).token_value :=
930: p_sub_component_rec.substitute_component_name;
931:
932: Error_Handler.Add_Error_Token
933: ( p_Message_Name => 'BOM_SBC_REV_ITEM_MISMATCH'
934: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
935: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
936: , p_Token_Tbl => l_Token_Tbl

Line 962: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

958: ****************************************************************************/
959: PROCEDURE Check_Access
960: ( p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
961: , p_sub_comp_unexp_rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
962: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
963: , x_Return_Status IN OUT NOCOPY VARCHAR2
964: )
965: IS
966: l_OPM_org VARCHAR2(1);

Line 967: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

963: , x_Return_Status IN OUT NOCOPY VARCHAR2
964: )
965: IS
966: l_OPM_org VARCHAR2(1);
967: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
968: l_Token_Tbl Error_Handler.Token_Tbl_Type;
969: l_Return_Status VARCHAR2(1);
970: CURSOR c_GetSubCompType IS
971: SELECT bom_item_type

Line 968: l_Token_Tbl Error_Handler.Token_Tbl_Type;

964: )
965: IS
966: l_OPM_org VARCHAR2(1);
967: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
968: l_Token_Tbl Error_Handler.Token_Tbl_Type;
969: l_Return_Status VARCHAR2(1);
970: CURSOR c_GetSubCompType IS
971: SELECT bom_item_type
972: FROM mtl_system_items

Line 992: Error_Handler.Add_Error_Token

988: /* Validations for OPM Convergence Project
989: Model/Option class items are not allowed in OPM organizations*/
990:
991: IF (l_OPM_org='Y' and SubCompType.bom_item_type in ( Bom_Globals.G_MODEL, Bom_Globals.G_OPTION_CLASS))THEN
992: Error_Handler.Add_Error_Token
993: ( p_Message_name => 'BOM_OPM_ORG_MODEL_OC'
994: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
995: , x_mesg_token_tbl => l_mesg_token_tbl
996: );

Line 1000: Error_Handler.Add_Error_Token

996: );
997: l_return_status := FND_API.G_RET_STS_ERROR;
998: ELSIF SubCompType.bom_item_type = Bom_Globals.G_PRODUCT_FAMILY
999: THEN
1000: Error_Handler.Add_Error_Token
1001: ( p_Message_Name => 'BOM_SUB_COMP_PF'
1002: , p_mesg_token_tbl => l_mesg_token_tbl
1003: , x_mesg_token_tbl => l_mesg_token_tbl
1004: , p_token_tbl => l_token_tbl

Line 1034: Error_Handler.Add_Error_Token

1030: THEN
1031: l_Token_Tbl(2).Token_Value := 'BOM_STANDARD';
1032: END IF;
1033:
1034: Error_Handler.Add_Error_Token
1035: ( p_Message_Name => 'BOM_SUB_COMP_ACCESS_DENIED'
1036: , p_Mesg_Token_Tbl => l_mesg_token_tbl
1037: , x_Mesg_Token_Tbl => l_mesg_token_tbl
1038: , p_Token_Tbl => l_token_tbl

Line 1055: , x_Mesg_Token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

1051: */
1052: PROCEDURE Check_Required
1053: ( x_return_status IN OUT NOCOPY VARCHAR2
1054: , p_bom_sub_component_rec IN Bom_Bo_Pub.Bom_Sub_Component_Rec_Type
1055: , x_Mesg_Token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1056: )
1057: IS
1058: l_sub_component_rec Bom_Bo_Pub.Sub_Component_Rec_Type;
1059: l_sub_comp_unexp_rec Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type;

Line 1086: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

1082: -- Procedure Entity
1083:
1084: PROCEDURE Check_Entity
1085: ( x_return_status IN OUT NOCOPY VARCHAR2
1086: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1087: , p_bom_sub_component_rec IN Bom_Bo_Pub.Bom_Sub_Component_Rec_Type
1088: , p_bom_Sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
1089: )
1090: IS

Line 1120: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

1116: -- Procedure Attributes
1117:
1118: PROCEDURE Check_Attributes
1119: ( x_return_status IN OUT NOCOPY VARCHAR2
1120: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1121: , p_bom_sub_component_rec IN Bom_Bo_Pub.Bom_Sub_Component_Rec_Type
1122: , p_bom_Sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
1123: )
1124: IS

Line 1154: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

1150: -- Procedure Entity_Delete
1151:
1152: PROCEDURE Check_Entity_Delete
1153: ( x_return_status IN OUT NOCOPY VARCHAR2
1154: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1155: , p_bom_sub_component_rec IN Bom_Bo_Pub.Bom_Sub_Component_Rec_Type
1156: , p_bom_Sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
1157: )
1158: IS

Line 1188: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

1184: ( p_bom_sub_component_rec IN Bom_Bo_Pub.Bom_Sub_Component_Rec_Type
1185: , p_bom_sub_comp_unexp_rec IN Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
1186: , x_old_bom_sub_component_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Sub_Component_Rec_Type
1187: , x_old_bom_sub_comp_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
1188: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1189: , x_Return_Status IN OUT NOCOPY VARCHAR2
1190: )
1191: IS
1192: l_sub_component_rec Bom_Bo_Pub.Sub_Component_Rec_Type;

Line 1233: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

1229:
1230: PROCEDURE Check_Lineage
1231: ( p_bom_sub_component_rec IN Bom_Bo_Pub.Bom_Sub_Component_Rec_Type
1232: , p_bom_sub_comp_unexp_rec IN Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
1233: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1234: , x_Return_Status IN OUT NOCOPY VARCHAR2
1235: )
1236: IS
1237: l_sub_component_rec Bom_Bo_Pub.Sub_Component_Rec_Type;

Line 1262: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

1258:
1259: PROCEDURE Check_Access
1260: ( p_bom_sub_component_rec IN Bom_Bo_Pub.Bom_Sub_Component_Rec_Type
1261: , p_bom_sub_comp_unexp_rec IN Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
1262: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1263: , x_Return_Status IN OUT NOCOPY VARCHAR2
1264: )
1265: IS
1266: l_sub_component_rec Bom_Bo_Pub.Sub_Component_Rec_Type;