DBA Data[Home] [Help]

APPS.BOM_BOM_COMPONENT_UTIL dependencies on ERROR_HANDLER

Line 120: , p_Mesg_Token_Tbl IN Error_Handler.Mesg_Token_Tbl_Type

116: , p_from_end_item_number IN VARCHAR2 := NULL
117: , x_Bom_Component_Rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Comps_Rec_Type
118: , x_Bom_Comp_Unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
119: , x_Return_Status IN OUT NOCOPY VARCHAR2
120: , p_Mesg_Token_Tbl IN Error_Handler.Mesg_Token_Tbl_Type
121: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
122:
123: )
124: IS

Line 121: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

117: , x_Bom_Component_Rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Comps_Rec_Type
118: , x_Bom_Comp_Unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
119: , x_Return_Status IN OUT NOCOPY VARCHAR2
120: , p_Mesg_Token_Tbl IN Error_Handler.Mesg_Token_Tbl_Type
121: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
122:
123: )
124: IS
125: l_rev_component_rec Bom_Bo_Pub.Rev_component_Rec_Type;

Line 170: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

166: *********************************************************************/
167: PROCEDURE Perform_Writes
168: ( p_bom_component_rec IN Bom_Bo_Pub.Bom_Comps_Rec_Type
169: , p_bom_comp_unexp_rec IN Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
170: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
171: , x_Return_Status IN OUT NOCOPY VARCHAR2
172: )
173: IS
174: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;

Line 214: , p_Mesg_Token_Tbl IN Error_Handler.Mesg_Token_Tbl_Type

210: , p_from_end_item_number IN VARCHAR2 := NULL
211: , x_Rev_Component_Rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Component_Rec_Type
212: , x_Rev_Comp_Unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
213: , x_Return_Status IN OUT NOCOPY VARCHAR2
214: , p_Mesg_Token_Tbl IN Error_Handler.Mesg_Token_Tbl_Type
215: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
216:
217: )
218: IS

Line 215: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

211: , x_Rev_Component_Rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Component_Rec_Type
212: , x_Rev_Comp_Unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
213: , x_Return_Status IN OUT NOCOPY VARCHAR2
214: , p_Mesg_Token_Tbl IN Error_Handler.Mesg_Token_Tbl_Type
215: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
216:
217: )
218: IS
219: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;

Line 363: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Finished querying and assigning component record . . .'); END IF;

359: x_Return_Status := BOM_Globals.G_RECORD_FOUND;
360: x_Rev_Component_Rec := l_rev_component_rec;
361: x_Rev_Comp_Unexp_Rec := l_Rev_Comp_Unexp_Rec;
362:
363: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Finished querying and assigning component record . . .'); END IF;
364:
365: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Selecting the lookup meaning for enforce int requirements code . . .'); END IF;
366:
367: IF l_rev_comp_unexp_rec.enforce_int_requirements_code IS NOT NULL AND

Line 365: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Selecting the lookup meaning for enforce int requirements code . . .'); END IF;

361: x_Rev_Comp_Unexp_Rec := l_Rev_Comp_Unexp_Rec;
362:
363: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Finished querying and assigning component record . . .'); END IF;
364:
365: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Selecting the lookup meaning for enforce int requirements code . . .'); END IF;
366:
367: IF l_rev_comp_unexp_rec.enforce_int_requirements_code IS NOT NULL AND
368: l_rev_comp_unexp_rec.enforce_int_requirements_code <> FND_API.G_MISS_NUM THEN
369: Begin

Line 379: Error_Handler.Add_Error_Token

375: l_err_text := G_PKG_NAME ||
376: ' Utility (Component Query Row) '
377: || substrb(SQLERRM,1,200);
378:
379: Error_Handler.Add_Error_Token
380: ( p_message_name => NULL
381: , p_message_text => l_err_text
382: , p_mesg_token_tbl => p_mesg_token_tbl
383: , x_mesg_token_tbl => x_mesg_token_tbl

Line 404: Error_Handler.Add_Error_Token

400: ' Utility (Component Query Row) '
401: || substrb(SQLERRM,1,200);
402: -- dbms_output.put_line('Unexpected Error: '||l_err_text);
403:
404: Error_Handler.Add_Error_Token
405: ( p_message_name => NULL
406: , p_message_text => l_err_text
407: , p_mesg_token_tbl => p_mesg_token_tbl
408: , x_mesg_token_tbl => x_mesg_token_tbl

Line 428: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

424: ****************************************************************************/
425: PROCEDURE Update_Row
426: ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
427: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
428: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
429: , x_Return_Status IN OUT NOCOPY VARCHAR2
430: )
431: IS
432: l_return_status varchar2(80);

Line 433: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

429: , x_Return_Status IN OUT NOCOPY VARCHAR2
430: )
431: IS
432: l_return_status varchar2(80);
433: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
434: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
435: l_err_text VARCHAR2(2000);
436: l_operation_leadtime NUMBER := NULL;
437: l_operation_seq_num NUMBER;

Line 565: Error_Handler.Add_Error_Token

561: THEN
562: l_err_text := G_PKG_NAME ||
563: ' : Utility (Component Update) ' ||
564: SUBSTR(SQLERRM, 1, 200);
565: Error_Handler.Add_Error_Token
566: ( p_Message_Name => NULL
567: , p_Message_Text => l_err_text
568: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
569: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl

Line 626: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

622: *****************************************************************************/
623: PROCEDURE Insert_Row
624: ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
625: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
626: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
627: , x_Return_Status IN OUT NOCOPY VARCHAR2
628: )
629: IS
630:

Line 632: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

628: )
629: IS
630:
631: l_err_text VARCHAR2(2000);
632: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
633: l_Bo_Id VARCHAR2(3);
634:
635: l_old_component_sequence_id NUMBER; -- Bug 2820641
636:

Line 981: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Unexpected Error occured in Insert . . .' || SQLERRM); END IF;

977: FND_MESSAGE.SET_NAME('BOM', 'BOM_COMPONENT_DUPLICATE');
978: APP_EXCEPTION.RAISE_EXCEPTION;
979: --end changes Bug 9076970
980: WHEN OTHERS THEN
981: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Unexpected Error occured in Insert . . .' || SQLERRM); END IF;
982:
983: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
984: THEN
985: l_err_text := G_PKG_NAME ||

Line 988: Error_Handler.Add_Error_Token

984: THEN
985: l_err_text := G_PKG_NAME ||
986: ' : Utility (Component Insert) ' ||
987: SUBSTR(SQLERRM, 1, 200);
988: Error_Handler.Add_Error_Token
989: ( p_Message_Name => NULL
990: , p_Message_Text => l_err_text
991: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
992: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl

Line 1013: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

1009: *****************************************************************************/
1010: /* Comment out by MK to support delet
1011: PROCEDURE Delete_Row
1012: ( p_component_sequence_id IN NUMBER
1013: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1014: , x_Return_Status IN OUT NOCOPY VARCHAR2
1015: )
1016: */
1017:

Line 1021: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

1017:
1018: PROCEDURE Delete_Row
1019: ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
1020: , p_rev_comp_unexp_rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
1021: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1022: , x_Return_Status IN OUT NOCOPY VARCHAR2
1023: )
1024:
1025: IS

Line 1028: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

1024:
1025: IS
1026:
1027: l_dummy number;
1028: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1029:
1030: -- added by MK on 06/04/2001
1031: Cursor CheckGroup is
1032: SELECT description,

Line 1073: Error_Handler.Add_Error_Token

1069:
1070: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
1071: -- This is a warning.
1072: THEN
1073: Error_Handler.Add_Error_Token
1074: ( p_Message_Name => 'BOM_COMP_DEL_CHILDREN'
1075: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1076: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1077: , p_message_type => 'W' -- Added by MK on 11/13/00

Line 1091: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Deleting componenets for non-referencing bom . . .' ); END IF;

1087: -- p_component_sequence_id ;
1088:
1089: --Bug 9356298 start
1090: --For non-referencing common boms.
1091: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Deleting componenets for non-referencing bom . . .' ); END IF;
1092: BOMPCMBM.Delete_Related_Components(p_src_comp_seq => p_rev_comp_unexp_rec.component_sequence_id);
1093: --Bug 9356298 end
1094:
1095: -- In Bom BO, the user is not allowed to delete components directly.

Line 1105: Error_Handler.Add_Error_Token

1101: FOR DG IN CheckGroup
1102: LOOP
1103: IF DG.delete_type <> 4 /* Component */ then
1104:
1105: Error_Handler.Add_Error_Token
1106: ( p_message_name => 'BOM_DUPLICATE_DELETE_GROUP'
1107: , p_mesg_token_tbl => l_mesg_token_Tbl
1108: , x_mesg_token_tbl => l_mesg_token_tbl
1109: );

Line 1127: Error_Handler.Add_Error_Token

1123: THEN
1124: l_dg_sequence_id := l_rev_comp_unexp_rec.DG_Sequence_Id;
1125: ELSE
1126: l_dg_sequence_id := NULL;
1127: Error_Handler.Add_Error_Token
1128: ( p_message_name => 'NEW_DELETE_GROUP'
1129: , p_mesg_token_tbl => l_mesg_token_Tbl
1130: , x_mesg_token_tbl => l_mesg_token_tbl
1131: , p_message_type => 'W' /* Warning */

Line 1170: Error_Handler.Add_Error_Token

1166:
1167: WHEN OTHERS THEN
1168: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1169: THEN
1170: Error_Handler.Add_Error_Token
1171: ( p_Message_Name => NULL
1172: , p_Message_Text => 'Error Rev. Comp Delete Row ' ||
1173: SUBSTR(SQLERRM, 1, 100)
1174: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl

Line 1374: Error_Handler.Mesg_Token_Tbl_Type

1370: , p_control_rec IN
1371: Bom_Bo_Pub.Control_Rec_Type
1372: := BOM_BO_PUB.G_DEFAULT_CONTROL_REC
1373: , x_Mesg_Token_Tbl IN OUT NOCOPY
1374: Error_Handler.Mesg_Token_Tbl_Type
1375: , x_Return_Status IN OUT NOCOPY VARCHAR2
1376: )
1377: IS
1378: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

Line 1378: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

1374: Error_Handler.Mesg_Token_Tbl_Type
1375: , x_Return_Status IN OUT NOCOPY VARCHAR2
1376: )
1377: IS
1378: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1379: l_Rev_component_Rec Bom_Bo_Pub.Rev_Component_rec_Type;
1380: l_rev_comp_unexp_rec Bom_Bo_Pub.rev_comp_unexposed_rec_type;
1381: l_return_status VARCHAR2(1);
1382: l_assembly_type NUMBER;

Line 1384: l_Token_Tbl Error_Handler.Token_Tbl_Type; -- Added by MK on 11/13/00

1380: l_rev_comp_unexp_rec Bom_Bo_Pub.rev_comp_unexposed_rec_type;
1381: l_return_status VARCHAR2(1);
1382: l_assembly_type NUMBER;
1383: l_Comp_Seq_Id NUMBER;
1384: l_Token_Tbl Error_Handler.Token_Tbl_Type; -- Added by MK on 11/13/00
1385: l_bom_item_type NUMBER;
1386: l_Structure_Type_Name VARCHAR2(30);
1387: l_Assembly_Item_Id NUMBER;
1388: l_Organization_Id NUMBER;

Line 1425: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Test Harness: Executing Insert Row. . . '); END IF;

1421:
1422:
1423: IF l_Rev_Component_Rec.Transaction_Type = BOM_GLOBALS.G_OPR_CREATE THEN
1424:
1425: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Test Harness: Executing Insert Row. . . '); END IF;
1426:
1427: IF Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO
1428: THEN
1429: FOR CheckBillExists IN c_CheckBillExists LOOP

Line 1466: Error_Handler.Add_Error_Token

1462: END LOOP;
1463:
1464:
1465: -- Message Name is changed by MK on 11/02/00
1466: Error_Handler.Add_Error_Token
1467: ( p_Message_Name => 'ENG_NEW_PRIMARY_CREATED' -- 'BOM_ECO_CREATE_BOM'
1468: , p_Message_Text => NULL
1469: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1470: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl

Line 1479: Error_Handler.Add_Error_Token

1475: -- Log a warning indicating that a new bill has been created
1476: -- as a result of the component being added.
1477: --
1478: -- Message Name is changed by MK on 11/02/00
1479: Error_Handler.Add_Error_Token
1480: ( p_Message_Name => 'ENG_NEW_PRIMARY_CREATED' -- 'BOM_NEW_PRIMARY_CREATED'
1481: , p_Message_Text => NULL
1482: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1483: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl

Line 1488: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('BOM_Component_Util: Creating New Bill. . . ');

1484: , p_message_type => 'W' -- Parameter added as fix for Bug - 3267190
1485: );
1486: END IF;
1487:
1488: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('BOM_Component_Util: Creating New Bill. . . ');
1489: END IF;
1490: Bom_Bom_Component_Util.Create_New_Bill
1491: ( p_assembly_item_id =>
1492: l_rev_comp_unexp_rec.revised_item_id

Line 1550: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Test Harness: Executing Update Row. . . '); END IF;

1546: End if;
1547: ELSIF l_Rev_Component_Rec.Transaction_Type = BOM_GLOBALS.G_OPR_UPDATE
1548: THEN
1549:
1550: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Test Harness: Executing Update Row. . . '); END IF;
1551:
1552: Update_Row
1553: ( p_Rev_component_rec => l_Rev_Component_Rec
1554: , p_Rev_Comp_Unexp_Rec => l_Rev_Comp_Unexp_Rec

Line 1582: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Perform Cancel Component . . .'); END IF;

1578: );
1579:
1580: ELSIF l_Rev_Component_Rec.Transaction_Type = BOM_GLOBALS.G_OPR_CANCEL
1581: THEN
1582: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Perform Cancel Component . . .'); END IF;
1583:
1584: --
1585: -- Fetch Component Sequence Id
1586: --

Line 1602: Error_Handler.Add_Error_Token

1598: --
1599: -- Log a warning indicating reference designators and
1600: -- substitute components will also get deleted.
1601: --
1602: Error_Handler.Add_Error_Token
1603: ( p_Message_Name => 'BOM_COMP_CANCEL_DEL_CHILDREN'
1604: , p_Message_Text => NULL
1605: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1606: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl

Line 1662: Error_Handler.Add_Error_Token

1658: IF l_error_message IS NOT NULL AND l_error_message <> '' THEN
1659: l_Token_Tbl(1).Token_Name := 'ERROR_MESSAGE';
1660: l_Token_Tbl(1).Token_Value := l_error_message;
1661:
1662: Error_Handler.Add_Error_Token
1663: ( p_message_name => 'BOM_VALIDATION_FAILURE'
1664: , p_Mesg_Token_Tbl=> l_Mesg_Token_Tbl
1665: , x_Mesg_Token_Tbl=> l_Mesg_Token_Tbl
1666: , p_Token_Tbl => l_Token_Tbl

Line 1695: Error_Handler.Add_Error_Token

1691: IF l_return_status <> 'S' THEN
1692: l_Token_Tbl(1).Token_Name := 'ERROR_MESSAGE';
1693: l_Token_Tbl(1).Token_Value := l_error_message;
1694:
1695: Error_Handler.Add_Error_Token
1696: ( p_message_name => 'BOM_VALIDATION_FAILURE'
1697: , p_Mesg_Token_Tbl=> l_Mesg_Token_Tbl
1698: , x_Mesg_Token_Tbl=> l_Mesg_Token_Tbl
1699: , p_Token_Tbl => l_Token_Tbl

Line 1765: error_handler.write_debug('Rev_Comps: default structure type_id for alt: ' || p_alternate_bom_code);

1761: BEGIN
1762:
1763: if bom_globals.get_debug = 'Y'
1764: then
1765: error_handler.write_debug('Rev_Comps: default structure type_id for alt: ' || p_alternate_bom_code);
1766: end if;
1767:
1768: if(p_alternate_bom_code is null)
1769: then

Line 1789: error_handler.write_debug('Rev_Comps: defaulted structure type id: ' || l_structure_type_id);

1785: end if;
1786:
1787: if bom_globals.get_debug = 'Y'
1788: then
1789: error_handler.write_debug('Rev_Comps: defaulted structure type id: ' || l_structure_type_id);
1790: end if;
1791:
1792: -- Added for fix of bug 4550996
1793: OPEN c_effectivity_control;

Line 1797: Error_handler.Write_debug('Rev_Comps: defaulted effectivity control: ' || l_effectivity_control);

1793: OPEN c_effectivity_control;
1794: FETCH c_effectivity_control INTO l_effectivity_control;
1795: CLOSE c_effectivity_control;
1796: IF bom_globals.get_debug = 'Y' THEN
1797: Error_handler.Write_debug('Rev_Comps: defaulted effectivity control: ' || l_effectivity_control);
1798: END IF;
1799: -- End fix of bug 4550996
1800:
1801: INSERT INTO Bom_Bill_Of_Materials