[Home] [Help]
1: PACKAGE BODY Error_Handler AS
2: /* $Header: BOMBOEHB.pls 120.5 2006/09/14 16:09:39 pdutta ship $ */
3: /*************************************************************************
4: --
5: -- Copyright (c) 1996 Oracle Corporation, Redwood Shores, CA, USA
10: -- BOMBOEHB.pls
11: --
12: -- DESCRIPTION
13: --
14: -- Body of package Error_Handler
15: --
16: -- NOTES
17: --
18: -- HISTORY
42: -- g_bom_ref_designator_tbl Bom_Bo_Pub.Bom_Ref_Designator_Tbl_Type;
43: -- g_bom_sub_component_tbl Bom_Bo_Pub.Bom_Sub_Component_Tbl_Type;
44: g_bom_comp_ops_tbl Bom_Bo_Pub.Bom_Comp_Ops_Tbl_Type;
45:
46: G_ERROR_TABLE Error_Handler.Error_Tbl_Type;
47: G_Msg_Index NUMBER := 0;
48: G_Msg_Count NUMBER := 0;
49:
50: G_BO_IDENTIFIER VARCHAR2(30) := 'BOM';
294: END IF;
295: /* End of fix for bug 4652785*/
296:
297:
298: Error_Handler.Write_Debug('Entity Id: ' || l_entity_id_char);
299:
300: G_ERROR_TABLE(l_Idx + 1).message_text := p_mesg_text;
301: G_ERROR_TABLE(l_idx + 1).entity_id := l_entity_id_char;
302: G_ERROR_TABLE(l_idx + 1).entity_index := p_entity_index;
303: G_ERROR_TABLE(l_idx + 1).message_type := p_message_type;
304: G_ERROR_TABLE(l_Idx + 1).row_identifier := l_row_identifier;
305: G_ERROR_TABLE(l_Idx + 1).table_name := l_table_name;/*Fix for bug 4652785-Replaced p_table_name with l_table_name*/
306: G_ERROR_TABLE(l_Idx + 1).bo_identifier :=
307: Error_Handler.Get_Bo_Identifier;
308: G_ERROR_TABLE(l_Idx + 1).message_name := p_mesg_name;
309: /* Fix for bug 4620997 - Populate message_name in the G_ERROR_TABLE above. */
310:
311: -- Increment the message counter to keep a tally.
311: -- Increment the message counter to keep a tally.
312:
313: G_Msg_Count := G_Error_Table.Count;
314:
315: Error_Handler.Write_Debug('Message Count on this point : ' || to_char(G_Msg_Count));
316:
317: END Add_Message;
318:
319: /******************************************************************
345: )
346: IS
347: BEGIN
348:
349: Error_Handler.Write_Debug('Setting component operation records to ' || p_other_status);
350:
351: IF p_error_scope = G_SCOPE_ALL
352: THEN
353: FOR l_idx IN 1..p_bom_comp_ops_tbl.COUNT
375: ELSIF p_error_scope = G_SCOPE_CHILDREN AND
376: p_rc_idx <> 0
377: THEN
378:
379: Error_Handler.Write_Debug('Scope=Children in Component Operation');
380: Error_Handler.Write_Debug('Inventory Component index <> 0');
381:
382: FOR l_idx IN 1..p_bom_comp_ops_tbl.COUNT
383: LOOP
376: p_rc_idx <> 0
377: THEN
378:
379: Error_Handler.Write_Debug('Scope=Children in Component Operation');
380: Error_Handler.Write_Debug('Inventory Component index <> 0');
381:
382: FOR l_idx IN 1..p_bom_comp_ops_tbl.COUNT
383: LOOP
384: IF NVL(p_bom_comp_ops_tbl(l_idx).component_item_name, ' ')=
425: -- Match the component key information at the entity index
426: -- location with rest of the records, all those that are found
427: -- will be siblings and should get an error.
428: --
429: Error_Handler.Write_Debug('Scope=Siblings in Component Operation');
430: Error_Handler.Write_Debug('All entity indexes = 0');
431:
432:
433: FOR l_idx IN (p_entity_index+1)..p_bom_comp_ops_tbl.COUNT
426: -- location with rest of the records, all those that are found
427: -- will be siblings and should get an error.
428: --
429: Error_Handler.Write_Debug('Scope=Siblings in Component Operation');
430: Error_Handler.Write_Debug('All entity indexes = 0');
431:
432:
433: FOR l_idx IN (p_entity_index+1)..p_bom_comp_ops_tbl.COUNT
434: LOOP
498: IS
499: l_idx NUMBER;
500: BEGIN
501:
502: Error_Handler.Write_Debug('Setting substitute component records to ' || p_other_status);
503:
504:
505: IF p_error_scope = G_SCOPE_ALL
506: THEN
533: ELSIF p_error_scope = G_SCOPE_CHILDREN AND
534: p_rc_idx <> 0
535: THEN
536:
537: Error_Handler.Write_Debug('Scope=Children in Substitute Component');
538: Error_Handler.Write_Debug('Inventory Component index <> 0');
539:
540: FOR l_idx IN 1..p_bom_sub_component_tbl.COUNT
541: LOOP
534: p_rc_idx <> 0
535: THEN
536:
537: Error_Handler.Write_Debug('Scope=Children in Substitute Component');
538: Error_Handler.Write_Debug('Inventory Component index <> 0');
539:
540: FOR l_idx IN 1..p_bom_sub_component_tbl.COUNT
541: LOOP
542: IF NVL(p_bom_sub_component_tbl(l_idx).component_item_name, ' ')=
577: ELSIF p_error_scope = G_SCOPE_SIBLINGS AND
578: p_rd_idx <> 0
579: THEN
580:
581: Error_Handler.Write_Debug('Scope = Siblings in Sub. Components');
582: Error_Handler.Write_Debug('Reference Desg Index <> 0');
583:
584: FOR l_idx IN 1..p_bom_sub_component_tbl.COUNT
585: LOOP
578: p_rd_idx <> 0
579: THEN
580:
581: Error_Handler.Write_Debug('Scope = Siblings in Sub. Components');
582: Error_Handler.Write_Debug('Reference Desg Index <> 0');
583:
584: FOR l_idx IN 1..p_bom_sub_component_tbl.COUNT
585: LOOP
586: IF NVL(p_bom_sub_component_tbl(l_idx).component_item_name,' ') =
629: -- Match the component key information at the entity index
630: -- location with rest of the records, all those that are found
631: -- will be siblings and should get an error.
632: --
633: Error_Handler.Write_Debug('Scope=Siblings in Substitute Component');
634: Error_Handler.Write_Debug('All entity indexes = 0');
635:
636:
637: FOR l_idx IN (p_entity_index+1)..p_bom_sub_component_tbl.COUNT
630: -- location with rest of the records, all those that are found
631: -- will be siblings and should get an error.
632: --
633: Error_Handler.Write_Debug('Scope=Siblings in Substitute Component');
634: Error_Handler.Write_Debug('All entity indexes = 0');
635:
636:
637: FOR l_idx IN (p_entity_index+1)..p_bom_sub_component_tbl.COUNT
638: LOOP
748: ELSIF p_error_scope = G_SCOPE_CHILDREN AND
749: p_rc_idx <> 0
750: THEN
751:
752: Error_Handler.Write_Debug('Scope=Children in Reference Designator');
753: Error_Handler.Write_Debug('Inventory Component index <> 0');
754:
755: FOR l_idx IN 1..p_bom_ref_designator_tbl.COUNT
756: LOOP
749: p_rc_idx <> 0
750: THEN
751:
752: Error_Handler.Write_Debug('Scope=Children in Reference Designator');
753: Error_Handler.Write_Debug('Inventory Component index <> 0');
754:
755: FOR l_idx IN 1..p_bom_ref_designator_tbl.COUNT
756: LOOP
757: IF NVL(p_bom_ref_designator_tbl(l_idx).component_item_name,
796: -- location with rest of the records, all those that are found
797: -- will be siblings and should get an error.
798: --
799:
800: Error_Handler.Write_Debug('Scope=Siblings in Reference Designator');
801: Error_Handler.Write_Debug('All Indexes = 0');
802:
803: FOR l_idx IN (p_entity_index+1)..p_bom_ref_designator_tbl.COUNT
804: LOOP
797: -- will be siblings and should get an error.
798: --
799:
800: Error_Handler.Write_Debug('Scope=Siblings in Reference Designator');
801: Error_Handler.Write_Debug('All Indexes = 0');
802:
803: FOR l_idx IN (p_entity_index+1)..p_bom_ref_designator_tbl.COUNT
804: LOOP
805: IF NVL(p_bom_ref_designator_tbl(l_idx).component_item_name,
892:
893: IF p_error_scope = G_SCOPE_ALL
894: THEN
895:
896: Error_Handler.Write_Debug('Scope=All in Inventory Components');
897:
898: FOR l_idx IN 1..p_bom_component_tbl.COUNT
899: LOOP
900: p_bom_component_tbl(l_idx).return_status :=
1025: **********************************************************************/
1026:
1027: FUNCTION Translate_Message (p_application_id IN VARCHAR2
1028: ,p_message_name IN VARCHAR2
1029: ,p_token_tbl IN Error_Handler.Token_Tbl_Type
1030: := Error_Handler.G_MISS_TOKEN_TBL)
1031: RETURN VARCHAR2 IS
1032: BEGIN
1033: IF p_token_tbl.COUNT IS NOT NULL
1026:
1027: FUNCTION Translate_Message (p_application_id IN VARCHAR2
1028: ,p_message_name IN VARCHAR2
1029: ,p_token_tbl IN Error_Handler.Token_Tbl_Type
1030: := Error_Handler.G_MISS_TOKEN_TBL)
1031: RETURN VARCHAR2 IS
1032: BEGIN
1033: IF p_token_tbl.COUNT IS NOT NULL
1034: THEN
1076: PROCEDURE Add_Error_Token
1077: ( p_message_name IN VARCHAR2 := NULL
1078: , p_application_id IN VARCHAR2 := 'ENG'
1079: , p_message_text IN VARCHAR2 := NULL
1080: , x_Mesg_Token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1081: , p_Mesg_Token_Tbl IN Error_Handler.Mesg_Token_Tbl_Type :=
1082: Error_Handler.G_MISS_MESG_TOKEN_TBL
1083: , p_token_tbl IN Error_Handler.Token_Tbl_Type :=
1084: Error_Handler.G_MISS_TOKEN_TBL
1077: ( p_message_name IN VARCHAR2 := NULL
1078: , p_application_id IN VARCHAR2 := 'ENG'
1079: , p_message_text IN VARCHAR2 := NULL
1080: , x_Mesg_Token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1081: , p_Mesg_Token_Tbl IN Error_Handler.Mesg_Token_Tbl_Type :=
1082: Error_Handler.G_MISS_MESG_TOKEN_TBL
1083: , p_token_tbl IN Error_Handler.Token_Tbl_Type :=
1084: Error_Handler.G_MISS_TOKEN_TBL
1085: , p_message_type IN VARCHAR2 := 'E'
1078: , p_application_id IN VARCHAR2 := 'ENG'
1079: , p_message_text IN VARCHAR2 := NULL
1080: , x_Mesg_Token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1081: , p_Mesg_Token_Tbl IN Error_Handler.Mesg_Token_Tbl_Type :=
1082: Error_Handler.G_MISS_MESG_TOKEN_TBL
1083: , p_token_tbl IN Error_Handler.Token_Tbl_Type :=
1084: Error_Handler.G_MISS_TOKEN_TBL
1085: , p_message_type IN VARCHAR2 := 'E'
1086: )
1079: , p_message_text IN VARCHAR2 := NULL
1080: , x_Mesg_Token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1081: , p_Mesg_Token_Tbl IN Error_Handler.Mesg_Token_Tbl_Type :=
1082: Error_Handler.G_MISS_MESG_TOKEN_TBL
1083: , p_token_tbl IN Error_Handler.Token_Tbl_Type :=
1084: Error_Handler.G_MISS_TOKEN_TBL
1085: , p_message_type IN VARCHAR2 := 'E'
1086: )
1087: IS
1080: , x_Mesg_Token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1081: , p_Mesg_Token_Tbl IN Error_Handler.Mesg_Token_Tbl_Type :=
1082: Error_Handler.G_MISS_MESG_TOKEN_TBL
1083: , p_token_tbl IN Error_Handler.Token_Tbl_Type :=
1084: Error_Handler.G_MISS_TOKEN_TBL
1085: , p_message_type IN VARCHAR2 := 'E'
1086: )
1087: IS
1088: l_Index NUMBER;
1086: )
1087: IS
1088: l_Index NUMBER;
1089: l_TableCount NUMBER;
1090: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
1091: l_message_text VARCHAR2(2000);
1092: BEGIN
1093:
1094: l_Mesg_Token_Tbl := p_Mesg_Token_Tbl;
1129: * W -> Warning
1130: * E -> Error
1131: * Entity Id
1132: * Entity identifier which is defined as a
1133: * constant in the error handler
1134: * Entity Index
1135: * The order of the entity record within
1136: * the entity table
1137: * Entity Code
1136: * the entity table
1137: * Entity Code
1138: * Replacement for entity id. This can be
1139: * used when there is no constant defined
1140: * in the error handler for the entity.
1141: * When both are passed entity code will be
1142: * used as entity identifier
1143: * Row Identifier
1144: * Any unique identifier value for the entity record.
1161: PROCEDURE Add_Error_Message
1162: ( p_message_name IN VARCHAR2 := NULL
1163: , p_application_id IN VARCHAR2 := 'BOM'
1164: , p_message_text IN VARCHAR2 := NULL
1165: , p_token_tbl IN Error_Handler.Token_Tbl_Type :=
1166: Error_Handler.G_MISS_TOKEN_TBL
1167: , p_message_type IN VARCHAR2 := 'E'
1168: , p_row_identifier IN NUMBER := NULL
1169: , p_entity_id IN NUMBER := NULL
1162: ( p_message_name IN VARCHAR2 := NULL
1163: , p_application_id IN VARCHAR2 := 'BOM'
1164: , p_message_text IN VARCHAR2 := NULL
1165: , p_token_tbl IN Error_Handler.Token_Tbl_Type :=
1166: Error_Handler.G_MISS_TOKEN_TBL
1167: , p_message_type IN VARCHAR2 := 'E'
1168: , p_row_identifier IN NUMBER := NULL
1169: , p_entity_id IN NUMBER := NULL
1170: , p_entity_index IN NUMBER := NULL
1201: PROCEDURE Add_Error_Message
1202: ( p_message_name IN VARCHAR2 := NULL
1203: , p_application_id IN VARCHAR2 := 'BOM'
1204: , p_message_text IN VARCHAR2 := NULL
1205: , p_token_tbl IN Error_Handler.Token_Tbl_Type :=
1206: Error_Handler.G_MISS_TOKEN_TBL
1207: , p_message_type IN VARCHAR2 := 'E'
1208: , p_row_identifier IN NUMBER := NULL
1209: , p_entity_id IN NUMBER := NULL
1202: ( p_message_name IN VARCHAR2 := NULL
1203: , p_application_id IN VARCHAR2 := 'BOM'
1204: , p_message_text IN VARCHAR2 := NULL
1205: , p_token_tbl IN Error_Handler.Token_Tbl_Type :=
1206: Error_Handler.G_MISS_TOKEN_TBL
1207: , p_message_type IN VARCHAR2 := 'E'
1208: , p_row_identifier IN NUMBER := NULL
1209: , p_entity_id IN NUMBER := NULL
1210: , p_entity_index IN NUMBER := NULL
1298: **********************************************************************/
1299:
1300:
1301: PROCEDURE Translate_And_Insert_Messages
1302: ( p_mesg_token_tbl IN Error_Handler.Mesg_Token_Tbl_Type
1303: , p_error_level IN NUMBER := NULL
1304: , p_entity_index IN NUMBER := NULL
1305: , p_application_id IN VARCHAR2 := 'ENG'
1306: , p_row_identifier IN NUMBER := NULL
1328:
1329:
1330:
1331: PROCEDURE Translate_And_Insert_Messages
1332: ( p_mesg_token_tbl IN Error_Handler.Mesg_Token_Tbl_Type
1333: , p_error_level IN NUMBER := NULL
1334: , p_entity_index IN NUMBER := NULL
1335: , p_application_id IN VARCHAR2 := 'ENG'
1336: , p_row_identifier IN NUMBER := NULL
1404: , p_bom_ref_Designator_tbl IN Bom_Bo_Pub.Bom_Ref_Designator_Tbl_Type
1405: := Bom_Bo_Pub.G_MISS_BOM_REF_DESIGNATOR_TBL
1406: , p_bom_sub_component_tbl IN Bom_Bo_Pub.Bom_Sub_Component_Tbl_Type
1407: := Bom_Bo_Pub.G_MISS_BOM_SUB_COMPONENT_TBL
1408: , p_Mesg_Token_tbl IN Error_Handler.Mesg_Token_Tbl_Type
1409: := Error_Handler.G_MISS_MESG_TOKEN_TBL
1410: , p_error_status IN VARCHAR2
1411: , p_error_scope IN VARCHAR2 := NULL
1412: , p_other_message IN VARCHAR2 := NULL
1405: := Bom_Bo_Pub.G_MISS_BOM_REF_DESIGNATOR_TBL
1406: , p_bom_sub_component_tbl IN Bom_Bo_Pub.Bom_Sub_Component_Tbl_Type
1407: := Bom_Bo_Pub.G_MISS_BOM_SUB_COMPONENT_TBL
1408: , p_Mesg_Token_tbl IN Error_Handler.Mesg_Token_Tbl_Type
1409: := Error_Handler.G_MISS_MESG_TOKEN_TBL
1410: , p_error_status IN VARCHAR2
1411: , p_error_scope IN VARCHAR2 := NULL
1412: , p_other_message IN VARCHAR2 := NULL
1413: , p_other_mesg_appid IN VARCHAR2 := 'BOM'
1411: , p_error_scope IN VARCHAR2 := NULL
1412: , p_other_message IN VARCHAR2 := NULL
1413: , p_other_mesg_appid IN VARCHAR2 := 'BOM'
1414: , p_other_status IN VARCHAR2 := NULL
1415: , p_other_token_tbl IN Error_Handler.Token_Tbl_Type
1416: := Error_Handler.G_MISS_TOKEN_TBL
1417: , p_error_level IN NUMBER
1418: , p_entity_index IN NUMBER := 1 -- := NULL
1419: , x_bom_header_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Head_Rec_Type
1412: , p_other_message IN VARCHAR2 := NULL
1413: , p_other_mesg_appid IN VARCHAR2 := 'BOM'
1414: , p_other_status IN VARCHAR2 := NULL
1415: , p_other_token_tbl IN Error_Handler.Token_Tbl_Type
1416: := Error_Handler.G_MISS_TOKEN_TBL
1417: , p_error_level IN NUMBER
1418: , p_entity_index IN NUMBER := 1 -- := NULL
1419: , x_bom_header_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Head_Rec_Type
1420: , x_bom_revision_tbl IN OUT NOCOPY Bom_Bo_Pub.Bom_Revision_Tbl_Type
1449: -- Error Table.
1450: --
1451: **************************************************/
1452:
1453: Error_Handler.Write_Debug('Within the Log Error Procedure . . .');
1454: Error_Handler.Write_Debug('Scope: ' || l_error_scope);
1455: Error_Handler.Write_Debug('Entity Index: ' || to_char(p_entity_index));
1456: Error_Handler.Write_Debug('Error Level: ' || to_char(p_error_level));
1457: Error_Handler.Write_Debug('Error Status: ' || l_error_status);
1450: --
1451: **************************************************/
1452:
1453: Error_Handler.Write_Debug('Within the Log Error Procedure . . .');
1454: Error_Handler.Write_Debug('Scope: ' || l_error_scope);
1455: Error_Handler.Write_Debug('Entity Index: ' || to_char(p_entity_index));
1456: Error_Handler.Write_Debug('Error Level: ' || to_char(p_error_level));
1457: Error_Handler.Write_Debug('Error Status: ' || l_error_status);
1458: Error_Handler.Write_Debug('Other Status: ' || p_other_status);
1451: **************************************************/
1452:
1453: Error_Handler.Write_Debug('Within the Log Error Procedure . . .');
1454: Error_Handler.Write_Debug('Scope: ' || l_error_scope);
1455: Error_Handler.Write_Debug('Entity Index: ' || to_char(p_entity_index));
1456: Error_Handler.Write_Debug('Error Level: ' || to_char(p_error_level));
1457: Error_Handler.Write_Debug('Error Status: ' || l_error_status);
1458: Error_Handler.Write_Debug('Other Status: ' || p_other_status);
1459: Error_Handler.Write_Debug('Other Message: ' || p_other_message);
1452:
1453: Error_Handler.Write_Debug('Within the Log Error Procedure . . .');
1454: Error_Handler.Write_Debug('Scope: ' || l_error_scope);
1455: Error_Handler.Write_Debug('Entity Index: ' || to_char(p_entity_index));
1456: Error_Handler.Write_Debug('Error Level: ' || to_char(p_error_level));
1457: Error_Handler.Write_Debug('Error Status: ' || l_error_status);
1458: Error_Handler.Write_Debug('Other Status: ' || p_other_status);
1459: Error_Handler.Write_Debug('Other Message: ' || p_other_message);
1460: Error_Handler.Write_Debug('Business Object: ' || Bom_Globals.Get_Bo_Identifier);
1453: Error_Handler.Write_Debug('Within the Log Error Procedure . . .');
1454: Error_Handler.Write_Debug('Scope: ' || l_error_scope);
1455: Error_Handler.Write_Debug('Entity Index: ' || to_char(p_entity_index));
1456: Error_Handler.Write_Debug('Error Level: ' || to_char(p_error_level));
1457: Error_Handler.Write_Debug('Error Status: ' || l_error_status);
1458: Error_Handler.Write_Debug('Other Status: ' || p_other_status);
1459: Error_Handler.Write_Debug('Other Message: ' || p_other_message);
1460: Error_Handler.Write_Debug('Business Object: ' || Bom_Globals.Get_Bo_Identifier);
1461:
1454: Error_Handler.Write_Debug('Scope: ' || l_error_scope);
1455: Error_Handler.Write_Debug('Entity Index: ' || to_char(p_entity_index));
1456: Error_Handler.Write_Debug('Error Level: ' || to_char(p_error_level));
1457: Error_Handler.Write_Debug('Error Status: ' || l_error_status);
1458: Error_Handler.Write_Debug('Other Status: ' || p_other_status);
1459: Error_Handler.Write_Debug('Other Message: ' || p_other_message);
1460: Error_Handler.Write_Debug('Business Object: ' || Bom_Globals.Get_Bo_Identifier);
1461:
1462: Error_Handler.Translate_And_Insert_Messages
1455: Error_Handler.Write_Debug('Entity Index: ' || to_char(p_entity_index));
1456: Error_Handler.Write_Debug('Error Level: ' || to_char(p_error_level));
1457: Error_Handler.Write_Debug('Error Status: ' || l_error_status);
1458: Error_Handler.Write_Debug('Other Status: ' || p_other_status);
1459: Error_Handler.Write_Debug('Other Message: ' || p_other_message);
1460: Error_Handler.Write_Debug('Business Object: ' || Bom_Globals.Get_Bo_Identifier);
1461:
1462: Error_Handler.Translate_And_Insert_Messages
1463: ( p_mesg_token_Tbl => p_mesg_token_tbl
1456: Error_Handler.Write_Debug('Error Level: ' || to_char(p_error_level));
1457: Error_Handler.Write_Debug('Error Status: ' || l_error_status);
1458: Error_Handler.Write_Debug('Other Status: ' || p_other_status);
1459: Error_Handler.Write_Debug('Other Message: ' || p_other_message);
1460: Error_Handler.Write_Debug('Business Object: ' || Bom_Globals.Get_Bo_Identifier);
1461:
1462: Error_Handler.Translate_And_Insert_Messages
1463: ( p_mesg_token_Tbl => p_mesg_token_tbl
1464: , p_error_level => p_error_level
1458: Error_Handler.Write_Debug('Other Status: ' || p_other_status);
1459: Error_Handler.Write_Debug('Other Message: ' || p_other_message);
1460: Error_Handler.Write_Debug('Business Object: ' || Bom_Globals.Get_Bo_Identifier);
1461:
1462: Error_Handler.Translate_And_Insert_Messages
1463: ( p_mesg_token_Tbl => p_mesg_token_tbl
1464: , p_error_level => p_error_level
1465: , p_entity_index => p_entity_index
1466: , p_bom_header_rec =>x_bom_header_rec
1470: , p_bom_sub_component_tbl =>x_bom_sub_component_tbl
1471: , p_bom_comp_ops_tbl =>g_bom_comp_ops_tbl
1472: );
1473:
1474: Error_Handler.Write_Debug('Finished logging messages . . . ');
1475:
1476: /**********************************************************
1477: --
1478: -- Get the other message text and token and retrieve the
1487: p_message_name => p_other_message,
1488: p_token_tbl => p_other_token_tbl);
1489: END IF;
1490:
1491: Error_Handler.Write_Debug('Finished extracting other message . . . ');
1492: Error_Handler.Write_Debug('Other Message generated: ' || l_other_message);
1493:
1494:
1495: /**********************************************************
1488: p_token_tbl => p_other_token_tbl);
1489: END IF;
1490:
1491: Error_Handler.Write_Debug('Finished extracting other message . . . ');
1492: Error_Handler.Write_Debug('Other Message generated: ' || l_other_message);
1493:
1494:
1495: /**********************************************************
1496: --
1501: IF l_error_level = G_BO_LEVEL
1502: THEN
1503: l_error_level := G_BH_LEVEL;
1504:
1505: Error_Handler.Write_Debug('Error Level is Business Object . . . ');
1506:
1507: END IF;
1508: /**********************************************************
1509: --
1512: --
1513: ************************************************************/
1514: IF l_error_status = G_STATUS_UNEXPECTED
1515: THEN
1516: Error_Handler.Write_Debug('Status unexpected and scope is All . . .');
1517: l_error_scope := G_SCOPE_ALL;
1518: ELSIF l_error_status = G_STATUS_WARNING
1519: THEN
1520: l_error_scope := G_SCOPE_RECORD;
1518: ELSIF l_error_status = G_STATUS_WARNING
1519: THEN
1520: l_error_scope := G_SCOPE_RECORD;
1521: l_error_status := FND_API.G_RET_STS_SUCCESS;
1522: Error_Handler.Write_Debug('Status is warning . . .');
1523:
1524: END IF;
1525:
1526: --
1537: Note that p_other_message contains message_name (can be null) whereas l_other_message contains message_text.*/
1538: IF l_error_level = G_BH_LEVEL
1539: THEN
1540:
1541: Error_Handler.Write_Debug('Error Level is Bill Header . . .');
1542: --
1543: -- Set the Bill Header record status to p_error_status
1544: -- This will also take care of the scope RECORD.
1545: --
1680: --
1681: x_bom_component_tbl(p_entity_index).return_status :=
1682: l_error_status;
1683:
1684: Error_Handler.Write_Debug('Error Level = Inventory components . . .');
1685:
1686: IF l_error_scope = G_SCOPE_SIBLINGS OR
1687: l_error_scope = G_SCOPE_ALL
1688: THEN
1763: --
1764: -- Set reference designator record status at entity_idx
1765: -- This will take care of Scope = RECORD.
1766: --
1767: Error_Handler.Write_Debug('Error Level = Reference Designators . . .');
1768:
1769: x_bom_ref_designator_tbl(p_entity_index).return_status
1770: := l_error_status;
1771: IF l_error_scope <> G_SCOPE_RECORD
1793: THEN
1794: -- Set substitute component record status at entity_idx
1795: -- This will take care of Scope = RECORD.
1796: --
1797: Error_Handler.Write_Debug('Error Level = Substitute Components . . .');
1798:
1799: x_bom_sub_component_tbl(p_entity_index).return_status :=
1800: l_error_status;
1801: IF l_error_scope <> G_SCOPE_RECORD
1818: THEN
1819: -- Set component operation record status at entity_idx
1820: -- This will take care of Scope = RECORD.
1821: --
1822: Error_Handler.Write_Debug('Error Level = Component Operations . . .');
1823:
1824: g_bom_comp_ops_tbl(p_entity_index).return_status :=
1825: l_error_status;
1826: IF l_error_scope <> G_SCOPE_RECORD
1895: * table out the user. The returned list will be
1896: * for a particular business object.
1897: *********************************************************************/
1898: PROCEDURE Get_Message_List
1899: ( x_Message_List IN OUT NOCOPY Error_Handler.Error_Tbl_Type)
1900: IS
1901: l_bo_identifier VARCHAR2(30) := Error_Handler.Get_Bo_Identifier;
1902: l_msg_count NUMBER := 1;
1903:
1897: *********************************************************************/
1898: PROCEDURE Get_Message_List
1899: ( x_Message_List IN OUT NOCOPY Error_Handler.Error_Tbl_Type)
1900: IS
1901: l_bo_identifier VARCHAR2(30) := Error_Handler.Get_Bo_Identifier;
1902: l_msg_count NUMBER := 1;
1903:
1904: BEGIN
1905: FOR l_err_idx IN 1..G_ERROR_TABLE.COUNT
1924: * a specific Entity.
1925: *********************************************************************/
1926: PROCEDURE Get_Entity_Message
1927: ( p_entity_id IN VARCHAR2
1928: , x_Message_List IN OUT NOCOPY Error_Handler.Error_Tbl_Type
1929: )
1930: IS
1931: l_Idx NUMBER;
1932: l_Mesg_List Error_Handler.Error_Tbl_Type;
1928: , x_Message_List IN OUT NOCOPY Error_Handler.Error_Tbl_Type
1929: )
1930: IS
1931: l_Idx NUMBER;
1932: l_Mesg_List Error_Handler.Error_Tbl_Type;
1933: l_Count NUMBER := 1;
1934: l_bo_identifier VARCHAR2(30) := Error_Handler.Get_Bo_Identifier;
1935: BEGIN
1936: Error_Handler.Write_Debug('Get Messages for Entity : ' || p_entity_id);
1930: IS
1931: l_Idx NUMBER;
1932: l_Mesg_List Error_Handler.Error_Tbl_Type;
1933: l_Count NUMBER := 1;
1934: l_bo_identifier VARCHAR2(30) := Error_Handler.Get_Bo_Identifier;
1935: BEGIN
1936: Error_Handler.Write_Debug('Get Messages for Entity : ' || p_entity_id);
1937: Error_Handler.Write_Debug('Table Size = ' || to_char(G_Msg_Count));
1938:
1932: l_Mesg_List Error_Handler.Error_Tbl_Type;
1933: l_Count NUMBER := 1;
1934: l_bo_identifier VARCHAR2(30) := Error_Handler.Get_Bo_Identifier;
1935: BEGIN
1936: Error_Handler.Write_Debug('Get Messages for Entity : ' || p_entity_id);
1937: Error_Handler.Write_Debug('Table Size = ' || to_char(G_Msg_Count));
1938:
1939: FOR l_Idx IN 1..NVL(G_Msg_Count, 0)
1940: LOOP
1933: l_Count NUMBER := 1;
1934: l_bo_identifier VARCHAR2(30) := Error_Handler.Get_Bo_Identifier;
1935: BEGIN
1936: Error_Handler.Write_Debug('Get Messages for Entity : ' || p_entity_id);
1937: Error_Handler.Write_Debug('Table Size = ' || to_char(G_Msg_Count));
1938:
1939: FOR l_Idx IN 1..NVL(G_Msg_Count, 0)
1940: LOOP
1941: IF G_Error_Table(l_idx).entity_id = p_entity_id AND
1959: *********************************************************************/
1960: PROCEDURE Get_Entity_Message
1961: ( p_entity_id IN VARCHAR2
1962: , p_entity_index IN NUMBER
1963: , x_Message_List IN OUT NOCOPY Error_Handler.Error_Tbl_Type
1964: )
1965: IS
1966: l_Mesg_List Error_Handler.Error_Tbl_Type;
1967: l_Count NUMBER := 1;
1962: , p_entity_index IN NUMBER
1963: , x_Message_List IN OUT NOCOPY Error_Handler.Error_Tbl_Type
1964: )
1965: IS
1966: l_Mesg_List Error_Handler.Error_Tbl_Type;
1967: l_Count NUMBER := 1;
1968: l_bo_identifier VARCHAR2(30) := Error_Handler.Get_Bo_Identifier;
1969: BEGIN
1970: FOR l_Idx IN 1..NVL(G_Msg_Count, 0)
1964: )
1965: IS
1966: l_Mesg_List Error_Handler.Error_Tbl_Type;
1967: l_Count NUMBER := 1;
1968: l_bo_identifier VARCHAR2(30) := Error_Handler.Get_Bo_Identifier;
1969: BEGIN
1970: FOR l_Idx IN 1..NVL(G_Msg_Count, 0)
1971: LOOP
1972: IF G_Error_Table(l_idx).entity_id = p_entity_id AND
2006: *********************************************************************/
2007: PROCEDURE Get_Entity_Message
2008: ( p_entity_id IN VARCHAR2
2009: , p_row_identifier IN NUMBER
2010: , x_Message_List IN OUT NOCOPY Error_Handler.Error_Tbl_Type
2011: )
2012: IS
2013: l_Mesg_List Error_Handler.Error_Tbl_Type;
2014: l_Count NUMBER := 1;
2009: , p_row_identifier IN NUMBER
2010: , x_Message_List IN OUT NOCOPY Error_Handler.Error_Tbl_Type
2011: )
2012: IS
2013: l_Mesg_List Error_Handler.Error_Tbl_Type;
2014: l_Count NUMBER := 1;
2015: l_bo_identifier VARCHAR2(30) := Error_Handler.Get_Bo_Identifier;
2016: BEGIN
2017: FOR l_Idx IN 1..NVL(G_Msg_Count, 0)
2011: )
2012: IS
2013: l_Mesg_List Error_Handler.Error_Tbl_Type;
2014: l_Count NUMBER := 1;
2015: l_bo_identifier VARCHAR2(30) := Error_Handler.Get_Bo_Identifier;
2016: BEGIN
2017: FOR l_Idx IN 1..NVL(G_Msg_Count, 0)
2018: LOOP
2019: IF G_Error_Table(l_idx).entity_id = p_entity_id AND
2041: PROCEDURE Get_Entity_Message
2042: ( p_entity_id IN VARCHAR2
2043: , p_table_name IN VARCHAR2
2044: , p_row_identifier IN NUMBER
2045: , x_Message_List IN OUT NOCOPY Error_Handler.Error_Tbl_Type
2046: )
2047: IS
2048: l_Mesg_List Error_Handler.Error_Tbl_Type;
2049: l_Count NUMBER := 1;
2044: , p_row_identifier IN NUMBER
2045: , x_Message_List IN OUT NOCOPY Error_Handler.Error_Tbl_Type
2046: )
2047: IS
2048: l_Mesg_List Error_Handler.Error_Tbl_Type;
2049: l_Count NUMBER := 1;
2050: l_bo_identifier VARCHAR2(30) := Error_Handler.Get_Bo_Identifier;
2051: BEGIN
2052: FOR l_Idx IN 1..NVL(G_Msg_Count, 0)
2046: )
2047: IS
2048: l_Mesg_List Error_Handler.Error_Tbl_Type;
2049: l_Count NUMBER := 1;
2050: l_bo_identifier VARCHAR2(30) := Error_Handler.Get_Bo_Identifier;
2051: BEGIN
2052: FOR l_Idx IN 1..NVL(G_Msg_Count, 0)
2053: LOOP
2054: IF G_Error_Table(l_idx).entity_id = p_entity_id AND
2168: PROCEDURE Dump_Message_List
2169: IS
2170: l_idx NUMBER;
2171: BEGIN
2172: Error_Handler.Write_Debug('Dumping Message List :');
2173: Error_Handler.Write_Debug('Number of Messages = '|| G_Error_Table.COUNT);
2174:
2175: FOR l_idx IN 1..G_Error_Table.COUNT LOOP
2176: Error_Handler.Write_Debug('Row Identifier : '||G_Error_Table(l_idx).row_identifier||'. Entity : '||G_Error_Table(l_idx).entity_id||'. Entity index : '||G_Error_Table(l_idx).entity_index||'. Table Name : '||G_Error_Table(l_idx).table_name );
2169: IS
2170: l_idx NUMBER;
2171: BEGIN
2172: Error_Handler.Write_Debug('Dumping Message List :');
2173: Error_Handler.Write_Debug('Number of Messages = '|| G_Error_Table.COUNT);
2174:
2175: FOR l_idx IN 1..G_Error_Table.COUNT LOOP
2176: Error_Handler.Write_Debug('Row Identifier : '||G_Error_Table(l_idx).row_identifier||'. Entity : '||G_Error_Table(l_idx).entity_id||'. Entity index : '||G_Error_Table(l_idx).entity_index||'. Table Name : '||G_Error_Table(l_idx).table_name );
2177: Error_Handler.Write_Debug('Message: ' || G_Error_Table(l_idx).message_text);
2172: Error_Handler.Write_Debug('Dumping Message List :');
2173: Error_Handler.Write_Debug('Number of Messages = '|| G_Error_Table.COUNT);
2174:
2175: FOR l_idx IN 1..G_Error_Table.COUNT LOOP
2176: Error_Handler.Write_Debug('Row Identifier : '||G_Error_Table(l_idx).row_identifier||'. Entity : '||G_Error_Table(l_idx).entity_id||'. Entity index : '||G_Error_Table(l_idx).entity_index||'. Table Name : '||G_Error_Table(l_idx).table_name );
2177: Error_Handler.Write_Debug('Message: ' || G_Error_Table(l_idx).message_text);
2178: Error_Handler.Write_Debug(' ');
2179: END LOOP;
2180:
2173: Error_Handler.Write_Debug('Number of Messages = '|| G_Error_Table.COUNT);
2174:
2175: FOR l_idx IN 1..G_Error_Table.COUNT LOOP
2176: Error_Handler.Write_Debug('Row Identifier : '||G_Error_Table(l_idx).row_identifier||'. Entity : '||G_Error_Table(l_idx).entity_id||'. Entity index : '||G_Error_Table(l_idx).entity_index||'. Table Name : '||G_Error_Table(l_idx).table_name );
2177: Error_Handler.Write_Debug('Message: ' || G_Error_Table(l_idx).message_text);
2178: Error_Handler.Write_Debug(' ');
2179: END LOOP;
2180:
2181: END Dump_Message_List;
2174:
2175: FOR l_idx IN 1..G_Error_Table.COUNT LOOP
2176: Error_Handler.Write_Debug('Row Identifier : '||G_Error_Table(l_idx).row_identifier||'. Entity : '||G_Error_Table(l_idx).entity_id||'. Entity index : '||G_Error_Table(l_idx).entity_index||'. Table Name : '||G_Error_Table(l_idx).table_name );
2177: Error_Handler.Write_Debug('Message: ' || G_Error_Table(l_idx).message_text);
2178: Error_Handler.Write_Debug(' ');
2179: END LOOP;
2180:
2181: END Dump_Message_List;
2182:
2193: BEGIN
2194:
2195: x_return_status := FND_API.G_RET_STS_SUCCESS;
2196:
2197: IF Error_Handler.Get_Debug <> 'Y'
2198: THEN
2199: /*
2200: x_error_mesg := 'Debug mode is not set';
2201: x_return_status := FND_API.G_RET_STS_ERROR;
2202: RETURN;
2203: */
2204: -- Issue 3323376. The Get_Debug could be used as an indicator to identify
2205: -- if the debug session is opened or not rather than using it as a prereq setup
2206: Error_Handler.Set_Debug('Y');
2207: END IF;
2208:
2209: select value
2210: INTO l_utl_file_dir
2219: ' output directory name is invalid. ' ||
2220: ' Output directory must be one of the directory ' ||
2221: ' value in v$parameter for name = utl_file_dir ';
2222: x_return_status := FND_API.G_RET_STS_ERROR;
2223: Error_Handler.Set_Debug;
2224: RETURN;
2225: END IF;
2226:
2227: --Changed to the *new* call of FOPEN, where we can pass
2226:
2227: --Changed to the *new* call of FOPEN, where we can pass
2228: --the MAXLINESIZE value. If we donot pass the default is
2229: --1023 chars. If we pass, the max value can be 32767 chars.
2230: Error_Handler.Debug_File := utl_file.fopen( p_output_dir
2231: , p_debug_filename
2232: , 'w'
2233: , 32767
2234: );
2236: EXCEPTION
2237: WHEN UTL_FILE.INVALID_PATH THEN
2238: x_error_mesg := 'Error opening Debug file . . . ' || sqlerrm;
2239: x_return_status := FND_API.G_RET_STS_ERROR;
2240: Error_Handler.Set_Debug;
2241: END Open_Debug_Session;
2242:
2243:
2244: PROCEDURE Open_Debug_Session
2244: PROCEDURE Open_Debug_Session
2245: ( p_debug_filename IN VARCHAR2
2246: , p_output_dir IN VARCHAR2
2247: , x_return_status IN OUT NOCOPY VARCHAR2
2248: , p_mesg_token_tbl IN Error_Handler.Mesg_Token_Tbl_Type
2249: , x_mesg_Token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2250: )
2251: IS
2252: l_found NUMBER := 0;
2245: ( p_debug_filename IN VARCHAR2
2246: , p_output_dir IN VARCHAR2
2247: , x_return_status IN OUT NOCOPY VARCHAR2
2248: , p_mesg_token_tbl IN Error_Handler.Mesg_Token_Tbl_Type
2249: , x_mesg_Token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2250: )
2251: IS
2252: l_found NUMBER := 0;
2253: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type :=
2249: , x_mesg_Token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2250: )
2251: IS
2252: l_found NUMBER := 0;
2253: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type :=
2254: p_mesg_token_tbl;
2255: l_utl_file_dir VARCHAR2(2000);
2256: BEGIN
2257:
2268: l_found := INSTR(l_utl_file_dir, p_output_dir);
2269:
2270: IF l_found = 0
2271: THEN
2272: Error_Handler.Add_Error_Token
2273: ( p_Message_name => NULL
2274: , p_message_text =>
2275: ' Debug Session could not be started because the ' ||
2276: ' output directory name is invalid. ' ||
2283: x_return_status := FND_API.G_RET_STS_ERROR;
2284: x_mesg_token_tbl := l_mesg_token_tbl;
2285: RETURN;
2286: END IF;
2287: Error_Handler.Debug_File := utl_file.fopen( p_output_dir
2288: , p_debug_filename
2289: , 'w');
2290: end if;
2291: x_return_status := FND_API.G_RET_STS_SUCCESS;
2291: x_return_status := FND_API.G_RET_STS_SUCCESS;
2292:
2293: EXCEPTION
2294: WHEN UTL_FILE.INVALID_PATH THEN
2295: Error_Handler.Add_Error_Token
2296: ( p_message_name => NULL
2297: , p_message_text => 'Error opening Debug file . . . ' || sqlerrm
2298: , x_mesg_token_tbl => l_mesg_token_tbl
2299: );
2303: PROCEDURE Write_Debug
2304: ( p_debug_message IN VARCHAR2 )
2305: IS
2306: BEGIN
2307: IF Error_Handler.Get_Debug = 'Y'
2308: THEN
2309:
2310: IF G_IS_BOM_OI then
2311: IF FND_PROFILE.VALUE('MRP_DEBUG') = 'Y' then
2313: buff => p_debug_message );
2314: Fnd_File.New_Line ( which => Fnd_File.LOG );
2315: END IF;
2316: ELSE
2317: utl_file.put_line(Error_Handler.Debug_File,p_debug_message);
2318: END IF;
2319:
2320: END IF;
2321: END Write_Debug;
2329:
2330: IF G_IS_BOM_OI THEN
2331: null;
2332: ELSE
2333: IF Error_Handler.Get_Debug = 'Y' THEN
2334: utl_file.fclose(Error_Handler.Debug_File);
2335: Error_Handler.Set_Debug;
2336: END IF;
2337: END IF;
2330: IF G_IS_BOM_OI THEN
2331: null;
2332: ELSE
2333: IF Error_Handler.Get_Debug = 'Y' THEN
2334: utl_file.fclose(Error_Handler.Debug_File);
2335: Error_Handler.Set_Debug;
2336: END IF;
2337: END IF;
2338:
2331: null;
2332: ELSE
2333: IF Error_Handler.Get_Debug = 'Y' THEN
2334: utl_file.fclose(Error_Handler.Debug_File);
2335: Error_Handler.Set_Debug;
2336: END IF;
2337: END IF;
2338:
2339: END Close_Debug_Session;
2382: l_program_upd_date DATE := Null;
2383:
2384: BEGIN
2385:
2386: Error_Handler.Write_Debug('Writing the messages into MTL_INTERFACE_ERRORS table : ');
2387:
2388: Error_Handler.Write_Debug('Number of Messages = ' || G_Error_Table.COUNT);
2389:
2390: IF l_request_id <> - 1
2384: BEGIN
2385:
2386: Error_Handler.Write_Debug('Writing the messages into MTL_INTERFACE_ERRORS table : ');
2387:
2388: Error_Handler.Write_Debug('Number of Messages = ' || G_Error_Table.COUNT);
2389:
2390: IF l_request_id <> - 1
2391: THEN
2392: l_program_id := Fnd_Global.Conc_program_Id;
2456: IS
2457: l_idx NUMBER;
2458: BEGIN
2459:
2460: Error_Handler.Write_Debug('Writing the messages into the log file : ');
2461:
2462: Error_Handler.Write_Debug('Number of Messages = ' || G_Error_Table.COUNT);
2463:
2464: FOR l_idx IN 1..G_Error_Table.COUNT
2458: BEGIN
2459:
2460: Error_Handler.Write_Debug('Writing the messages into the log file : ');
2461:
2462: Error_Handler.Write_Debug('Number of Messages = ' || G_Error_Table.COUNT);
2463:
2464: FOR l_idx IN 1..G_Error_Table.COUNT
2465: LOOP
2466:
2569: G_IS_BOM_OI := FALSE;
2570: END UnSet_BOM_OI;
2571:
2572:
2573: END Error_Handler;