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 564: Error_Handler.Add_Error_Token

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

Line 589: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

585: *****************************************************************************/
586: PROCEDURE Insert_Row
587: ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
588: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
589: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
590: , x_Return_Status IN OUT NOCOPY VARCHAR2
591: )
592: IS
593:

Line 595: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

591: )
592: IS
593:
594: l_err_text VARCHAR2(2000);
595: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
596: l_Bo_Id VARCHAR2(3);
597:
598: l_old_component_sequence_id NUMBER; -- Bug 2820641
599:

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

875:
876: EXCEPTION
877:
878: WHEN OTHERS THEN
879: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Unexpected Error occured in Insert . . .' || SQLERRM); END IF;
880:
881: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
882: THEN
883: l_err_text := G_PKG_NAME ||

Line 886: Error_Handler.Add_Error_Token

882: THEN
883: l_err_text := G_PKG_NAME ||
884: ' : Utility (Component Insert) ' ||
885: SUBSTR(SQLERRM, 1, 200);
886: Error_Handler.Add_Error_Token
887: ( p_Message_Name => NULL
888: , p_Message_Text => l_err_text
889: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
890: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl

Line 911: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

907: *****************************************************************************/
908: /* Comment out by MK to support delet
909: PROCEDURE Delete_Row
910: ( p_component_sequence_id IN NUMBER
911: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
912: , x_Return_Status IN OUT NOCOPY VARCHAR2
913: )
914: */
915:

Line 919: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

915:
916: PROCEDURE Delete_Row
917: ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
918: , p_rev_comp_unexp_rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
919: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
920: , x_Return_Status IN OUT NOCOPY VARCHAR2
921: )
922:
923: IS

Line 926: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

922:
923: IS
924:
925: l_dummy number;
926: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
927:
928: -- added by MK on 06/04/2001
929: Cursor CheckGroup is
930: SELECT description,

Line 971: Error_Handler.Add_Error_Token

967:
968: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
969: -- This is a warning.
970: THEN
971: Error_Handler.Add_Error_Token
972: ( p_Message_Name => 'BOM_COMP_DEL_CHILDREN'
973: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
974: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
975: , p_message_type => 'W' -- Added by MK on 11/13/00

Line 998: Error_Handler.Add_Error_Token

994: FOR DG IN CheckGroup
995: LOOP
996: IF DG.delete_type <> 4 /* Component */ then
997:
998: Error_Handler.Add_Error_Token
999: ( p_message_name => 'BOM_DUPLICATE_DELETE_GROUP'
1000: , p_mesg_token_tbl => l_mesg_token_Tbl
1001: , x_mesg_token_tbl => l_mesg_token_tbl
1002: );

Line 1020: Error_Handler.Add_Error_Token

1016: THEN
1017: l_dg_sequence_id := l_rev_comp_unexp_rec.DG_Sequence_Id;
1018: ELSE
1019: l_dg_sequence_id := NULL;
1020: Error_Handler.Add_Error_Token
1021: ( p_message_name => 'NEW_DELETE_GROUP'
1022: , p_mesg_token_tbl => l_mesg_token_Tbl
1023: , x_mesg_token_tbl => l_mesg_token_tbl
1024: , p_message_type => 'W' /* Warning */

Line 1063: Error_Handler.Add_Error_Token

1059:
1060: WHEN OTHERS THEN
1061: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1062: THEN
1063: Error_Handler.Add_Error_Token
1064: ( p_Message_Name => NULL
1065: , p_Message_Text => 'Error Rev. Comp Delete Row ' ||
1066: SUBSTR(SQLERRM, 1, 100)
1067: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl

Line 1267: Error_Handler.Mesg_Token_Tbl_Type

1263: , p_control_rec IN
1264: Bom_Bo_Pub.Control_Rec_Type
1265: := BOM_BO_PUB.G_DEFAULT_CONTROL_REC
1266: , x_Mesg_Token_Tbl IN OUT NOCOPY
1267: Error_Handler.Mesg_Token_Tbl_Type
1268: , x_Return_Status IN OUT NOCOPY VARCHAR2
1269: )
1270: IS
1271: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

Line 1271: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

1267: Error_Handler.Mesg_Token_Tbl_Type
1268: , x_Return_Status IN OUT NOCOPY VARCHAR2
1269: )
1270: IS
1271: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1272: l_Rev_component_Rec Bom_Bo_Pub.Rev_Component_rec_Type;
1273: l_rev_comp_unexp_rec Bom_Bo_Pub.rev_comp_unexposed_rec_type;
1274: l_return_status VARCHAR2(1);
1275: l_assembly_type NUMBER;

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

1273: l_rev_comp_unexp_rec Bom_Bo_Pub.rev_comp_unexposed_rec_type;
1274: l_return_status VARCHAR2(1);
1275: l_assembly_type NUMBER;
1276: l_Comp_Seq_Id NUMBER;
1277: l_Token_Tbl Error_Handler.Token_Tbl_Type; -- Added by MK on 11/13/00
1278: l_bom_item_type NUMBER;
1279: l_Structure_Type_Name VARCHAR2(30);
1280: l_Assembly_Item_Id NUMBER;
1281: l_Organization_Id NUMBER;

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

1314:
1315:
1316: IF l_Rev_Component_Rec.Transaction_Type = BOM_GLOBALS.G_OPR_CREATE THEN
1317:
1318: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Test Harness: Executing Insert Row. . . '); END IF;
1319:
1320: IF Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO
1321: THEN
1322: FOR CheckBillExists IN c_CheckBillExists LOOP

Line 1359: Error_Handler.Add_Error_Token

1355: END LOOP;
1356:
1357:
1358: -- Message Name is changed by MK on 11/02/00
1359: Error_Handler.Add_Error_Token
1360: ( p_Message_Name => 'ENG_NEW_PRIMARY_CREATED' -- 'BOM_ECO_CREATE_BOM'
1361: , p_Message_Text => NULL
1362: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1363: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl

Line 1372: Error_Handler.Add_Error_Token

1368: -- Log a warning indicating that a new bill has been created
1369: -- as a result of the component being added.
1370: --
1371: -- Message Name is changed by MK on 11/02/00
1372: Error_Handler.Add_Error_Token
1373: ( p_Message_Name => 'ENG_NEW_PRIMARY_CREATED' -- 'BOM_NEW_PRIMARY_CREATED'
1374: , p_Message_Text => NULL
1375: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1376: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl

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

1377: , p_message_type => 'W' -- Parameter added as fix for Bug - 3267190
1378: );
1379: END IF;
1380:
1381: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('BOM_Component_Util: Creating New Bill. . . ');
1382: END IF;
1383: Bom_Bom_Component_Util.Create_New_Bill
1384: ( p_assembly_item_id =>
1385: l_rev_comp_unexp_rec.revised_item_id

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

1439: End if;
1440: ELSIF l_Rev_Component_Rec.Transaction_Type = BOM_GLOBALS.G_OPR_UPDATE
1441: THEN
1442:
1443: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Test Harness: Executing Update Row. . . '); END IF;
1444:
1445: Update_Row
1446: ( p_Rev_component_rec => l_Rev_Component_Rec
1447: , p_Rev_Comp_Unexp_Rec => l_Rev_Comp_Unexp_Rec

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

1471: );
1472:
1473: ELSIF l_Rev_Component_Rec.Transaction_Type = BOM_GLOBALS.G_OPR_CANCEL
1474: THEN
1475: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Perform Cancel Component . . .'); END IF;
1476:
1477: --
1478: -- Fetch Component Sequence Id
1479: --

Line 1495: Error_Handler.Add_Error_Token

1491: --
1492: -- Log a warning indicating reference designators and
1493: -- substitute components will also get deleted.
1494: --
1495: Error_Handler.Add_Error_Token
1496: ( p_Message_Name => 'BOM_COMP_CANCEL_DEL_CHILDREN'
1497: , p_Message_Text => NULL
1498: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1499: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl

Line 1554: Error_Handler.Add_Error_Token

1550: IF l_error_message IS NOT NULL AND l_error_message <> '' THEN
1551: l_Token_Tbl(1).Token_Name := 'ERROR_MESSAGE';
1552: l_Token_Tbl(1).Token_Value := l_error_message;
1553:
1554: Error_Handler.Add_Error_Token
1555: ( p_message_name => 'BOM_VALIDATION_FAILURE'
1556: , p_Mesg_Token_Tbl=> l_Mesg_Token_Tbl
1557: , x_Mesg_Token_Tbl=> l_Mesg_Token_Tbl
1558: , p_Token_Tbl => l_Token_Tbl

Line 1587: Error_Handler.Add_Error_Token

1583: IF l_return_status <> 'S' THEN
1584: l_Token_Tbl(1).Token_Name := 'ERROR_MESSAGE';
1585: l_Token_Tbl(1).Token_Value := l_error_message;
1586:
1587: Error_Handler.Add_Error_Token
1588: ( p_message_name => 'BOM_VALIDATION_FAILURE'
1589: , p_Mesg_Token_Tbl=> l_Mesg_Token_Tbl
1590: , x_Mesg_Token_Tbl=> l_Mesg_Token_Tbl
1591: , p_Token_Tbl => l_Token_Tbl

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

1653: BEGIN
1654:
1655: if bom_globals.get_debug = 'Y'
1656: then
1657: error_handler.write_debug('Rev_Comps: default structure type_id for alt: ' || p_alternate_bom_code);
1658: end if;
1659:
1660: if(p_alternate_bom_code is null)
1661: then

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

1677: end if;
1678:
1679: if bom_globals.get_debug = 'Y'
1680: then
1681: error_handler.write_debug('Rev_Comps: defaulted structure type id: ' || l_structure_type_id);
1682: end if;
1683:
1684: -- Added for fix of bug 4550996
1685: OPEN c_effectivity_control;

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

1685: OPEN c_effectivity_control;
1686: FETCH c_effectivity_control INTO l_effectivity_control;
1687: CLOSE c_effectivity_control;
1688: IF bom_globals.get_debug = 'Y' THEN
1689: Error_handler.Write_debug('Rev_Comps: defaulted effectivity control: ' || l_effectivity_control);
1690: END IF;
1691: -- End fix of bug 4550996
1692:
1693: INSERT INTO Bom_Bill_Of_Materials