DBA Data[Home] [Help]

APPS.ENG_DEFAULT_REVISED_ITEM dependencies on ERROR_HANDLER

Line 95: Error_Handler.Write_Debug('FUNCTION Get_Routing_Sequence, RTG Seq Id is: ' || to_char(l_rtg_sequence_id));

91: NVL(g_revised_item_rec.alternate_bom_code, 'NONE')
92: AND organization_id = g_rev_item_unexp_rec.organization_id;
93:
94: IF Bom_Globals.Get_Debug = 'Y' THEN
95: Error_Handler.Write_Debug('FUNCTION Get_Routing_Sequence, RTG Seq Id is: ' || to_char(l_rtg_sequence_id));
96: END IF;
97:
98: RETURN l_rtg_sequence_id;
99:

Line 387: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

383: ( p_revised_item_rec IN ENG_Eco_PUB.Revised_Item_Rec_Type
384: , p_rev_item_unexp_rec IN Eng_Eco_Pub.Rev_Item_Unexposed_Rec_Type
385: , x_revised_item_rec IN OUT NOCOPY ENG_Eco_PUB.Revised_Item_Rec_Type
386: , x_rev_item_unexp_rec IN OUT NOCOPY Eng_Eco_Pub.Rev_Item_Unexposed_rec_type
387: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
388: , x_return_status OUT NOCOPY VARCHAR2
389: )
390: IS
391: l_revision VARCHAR2(3);

Line 507: Error_Handler.Write_Debug('Getting Bill Seq Id . . . : ' ||

503: THEN
504: g_rev_item_unexp_rec.bill_sequence_id := Get_Bill_Sequence;
505:
506: IF Bom_Globals.Get_Debug = 'Y' THEN
507: Error_Handler.Write_Debug('Getting Bill Seq Id . . . : ' ||
508: to_char(g_rev_item_unexp_rec.bill_sequence_id));
509: END IF;
510:
511: END IF;

Line 590: Error_Handler.Write_Debug('Getting Routing Seq Id . . . : ' ||

586: THEN
587: g_rev_item_unexp_rec.routing_sequence_id := Get_Routing_Sequence;
588:
589: IF Bom_Globals.Get_Debug = 'Y' THEN
590: Error_Handler.Write_Debug('Getting Routing Seq Id . . . : ' ||
591: to_char(g_rev_item_unexp_rec.routing_sequence_id));
592: END IF;
593:
594: END IF;

Line 1344: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

1340: , p_control_rec IN BOM_BO_Pub.Control_Rec_Type
1341: := BOM_BO_PUB.G_DEFAULT_CONTROL_REC
1342: , x_revised_item_rec IN OUT NOCOPY ENG_Eco_PUB.Revised_Item_Rec_Type
1343: , x_rev_item_unexp_rec IN OUT NOCOPY Eng_Eco_Pub.Rev_Item_Unexposed_Rec_Type
1344: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1345: , x_return_status OUT NOCOPY VARCHAR2
1346: )
1347: IS
1348: l_schedule_id NUMBER := NULL;

Line 1425: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

1421:
1422: -- Added by MK on 09/01/2000
1423:
1424:
1425: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1426: l_Token_Tbl Error_Handler.Token_Tbl_Type;
1427: -- Added for bug 4210718
1428: l_revEffStrc_exists NUMBER;
1429: l_structure_type_id NUMBER;

Line 1426: l_Token_Tbl Error_Handler.Token_Tbl_Type;

1422: -- Added by MK on 09/01/2000
1423:
1424:
1425: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1426: l_Token_Tbl Error_Handler.Token_Tbl_Type;
1427: -- Added for bug 4210718
1428: l_revEffStrc_exists NUMBER;
1429: l_structure_type_id NUMBER;
1430: l_cp_not_allowed NUMBER;

Line 1450: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Performing Entity Level Defaulting . . .'); END IF;

1446: l_Item_Details_Rec c_Get_Item_Details%ROWTYPE;
1447: l_Org_Details_Rec c_Get_Org_Details%ROWTYPE;
1448: BEGIN
1449:
1450: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Performing Entity Level Defaulting . . .'); END IF;
1451:
1452: -- Initialize flags
1453:
1454: G_SCHED_DATE_CHANGED := FALSE;

Line 1484: Error_Handler.Add_Error_Token

1480:
1481: l_Token_Tbl(1).Token_Name := 'ECO_NAME';
1482: l_Token_Tbl(1).Token_Value := p_revised_item_rec.eco_name;
1483:
1484: Error_Handler.Add_Error_Token
1485: ( p_Message_Name => 'ENG_APPROVE_WARNING'
1486: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1487: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1488: , p_Token_Tbl => l_Token_Tbl

Line 1529: Error_Handler.Add_Error_Token

1525: l_revised_item_rec.updated_routing_revision <> FND_API.G_MISS_CHAR
1526: THEN
1527: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1528: THEN
1529: Error_Handler.Add_Error_Token
1530: ( p_Message_Name => 'ENG_RIT_SET_REV_NULL'
1531: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1532: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1533: , p_Token_Tbl => l_Token_Tbl

Line 1567: Error_Handler.Write_Debug('In transaction type = Create, Checking for revised item revision: ' ||

1563: ENG_Globals.G_OPR_CREATE
1564: THEN
1565:
1566: IF Bom_Globals.Get_Debug = 'Y' THEN
1567: Error_Handler.Write_Debug('In transaction type = Create, Checking for revised item revision: ' ||
1568: p_revised_item_rec.new_revised_item_revision);
1569: END IF;
1570: FOR x_count IN
1571: c_CheckRevision

Line 1577: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Current Revision Found . . .'); END IF;

1573: l_revised_item_rec.new_revised_item_revision
1574: )
1575: LOOP
1576:
1577: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Current Revision Found . . .'); END IF;
1578:
1579: l_rev_already_exists := 1;
1580: END LOOP;
1581:

Line 1598: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Item Revision set for Insert . . .'); END IF;

1594: IF l_revised_item_rec.new_revised_item_revision <>
1595: l_current_revision AND
1596: l_rev_already_exists = 0
1597: THEN
1598: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Item Revision set for Insert . . .'); END IF;
1599:
1600: G_DEL_UPD_INS_ITEM_REV := 3;
1601: ELSIF l_rev_already_exists = 1 THEN
1602:

Line 1603: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Item Revision set for Update . . .'); END IF;

1599:
1600: G_DEL_UPD_INS_ITEM_REV := 3;
1601: ELSIF l_rev_already_exists = 1 THEN
1602:
1603: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Item Revision set for Update . . .'); END IF;
1604:
1605: G_DEL_UPD_INS_ITEM_REV := 2;
1606: END IF;
1607:

Line 1613: Error_Handler.Write_Debug('In transaction type = Update , Checking for revised item revision: ' ||

1609: ENG_Globals.G_OPR_UPDATE
1610: THEN
1611:
1612: IF Bom_Globals.Get_Debug = 'Y' THEN
1613: Error_Handler.Write_Debug('In transaction type = Update , Checking for revised item revision: ' ||
1614: l_revised_item_rec.updated_revised_item_revision );
1615: END IF;
1616:
1617: l_current_revision :=

Line 1647: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Item Revision set for Insert . . .'); END IF;

1643: IF l_revised_item_rec.new_revised_item_revision IS NULL OR
1644: l_revised_item_rec.new_revised_item_revision
1645: = l_current_revision -- Added by MK on 02/13/2001
1646: THEN
1647: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Item Revision set for Insert . . .'); END IF;
1648:
1649: G_DEL_UPD_INS_ITEM_REV := 3;
1650: ELSE
1651: --

Line 1656: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Item Revision set for Update. . .'); END IF;

1652: -- Modified by MK on 10/24/00
1653: -- Update new revision information into
1654: -- MTL_ITEM_REVISIONS
1655: --
1656: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Item Revision set for Update. . .'); END IF;
1657: G_DEL_UPD_INS_ITEM_REV := 2 ;
1658: END IF ;
1659:
1660: ELSIF ( ( l_rev_already_exists = 0

Line 1679: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Item Revision set for Delete . . .'); END IF;

1675: -- Commented as it is within the
1676: -- l_revised_item_rec.transaction_type = ENG_Globals.G_OPR_UPDATE Condition
1677: THEN
1678:
1679: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Item Revision set for Delete . . .'); END IF;
1680:
1681: G_DEL_UPD_INS_ITEM_REV := 1;
1682:
1683: ELSIF l_rev_already_exists = 1 AND

Line 1690: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Item Revision set for Update. . .'); END IF;

1686: THEN
1687:
1688: -- Update new item revision information in
1689: -- MTL_ITEM_REVISIONS
1690: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Item Revision set for Update. . .'); END IF;
1691: G_DEL_UPD_INS_ITEM_REV := 2;
1692:
1693: END IF; /* If Update Ends */
1694:

Line 1735: Error_Handler.Write_Debug('After Check if structure change policy is existing...'||to_char(l_cp_not_allowed)) ;

1731: , x_structure_type_id => l_structure_type_id
1732: , x_strc_cp_not_allowed => l_cp_not_allowed
1733: );
1734: IF Bom_Globals.Get_Debug = 'Y' THEN
1735: Error_Handler.Write_Debug('After Check if structure change policy is existing...'||to_char(l_cp_not_allowed)) ;
1736: Error_Handler.Write_Debug('structure change policy Structure Type Id...'||to_char(l_structure_type_id)) ;
1737: END IF;
1738: IF l_cp_not_allowed = 2
1739: THEN

Line 1736: Error_Handler.Write_Debug('structure change policy Structure Type Id...'||to_char(l_structure_type_id)) ;

1732: , x_strc_cp_not_allowed => l_cp_not_allowed
1733: );
1734: IF Bom_Globals.Get_Debug = 'Y' THEN
1735: Error_Handler.Write_Debug('After Check if structure change policy is existing...'||to_char(l_cp_not_allowed)) ;
1736: Error_Handler.Write_Debug('structure change policy Structure Type Id...'||to_char(l_structure_type_id)) ;
1737: END IF;
1738: IF l_cp_not_allowed = 2
1739: THEN
1740: BEGIN

Line 1762: Error_Handler.Write_Debug('After Check if revision eff structure is existing...'||to_char(l_revEffStrc_exists)) ;

1758: OPEN c_Get_Org_Details;
1759: FETCH c_Get_Org_Details INTO l_Org_Details_Rec;
1760: CLOSE c_Get_Org_Details;
1761: IF Bom_Globals.Get_Debug = 'Y' THEN
1762: Error_Handler.Write_Debug('After Check if revision eff structure is existing...'||to_char(l_revEffStrc_exists)) ;
1763: END IF;
1764: -- Added check for OPM Convergence
1765: -- Bills shouldnt get created when the organization is a process enabled org
1766: -- and the assembly item is model or optional or it is dual UOM contralled

Line 1775: Error_Handler.Write_Debug('Bill seq id is generated for an alternate BOM . . . : ' ||

1771: AND l_Item_Details_Rec.tracking_quantity_ind = 'P')
1772: THEN
1773: l_rev_item_unexp_rec.bill_sequence_id := Initialize_Bill_Sequence_Id;
1774: IF Bom_Globals.Get_Debug = 'Y' THEN
1775: Error_Handler.Write_Debug('Bill seq id is generated for an alternate BOM . . . : ' ||
1776: to_char(l_rev_item_unexp_rec.bill_sequence_id ));
1777: END IF;
1778: IF Bom_Globals.Get_Debug = 'Y' THEN
1779: Error_Handler.Write_Debug('Setting creat alternate bill flag to True. . . ' ) ;

Line 1779: Error_Handler.Write_Debug('Setting creat alternate bill flag to True. . . ' ) ;

1775: Error_Handler.Write_Debug('Bill seq id is generated for an alternate BOM . . . : ' ||
1776: to_char(l_rev_item_unexp_rec.bill_sequence_id ));
1777: END IF;
1778: IF Bom_Globals.Get_Debug = 'Y' THEN
1779: Error_Handler.Write_Debug('Setting creat alternate bill flag to True. . . ' ) ;
1780: END IF;
1781: G_CREATE_ALTERNATE := TRUE;
1782: END IF;
1783: END IF;

Line 1807: Error_Handler.Write_Debug('BillSeq Defaulted to: ' ||

1803: END LOOP;
1804:
1805: IF Bom_Globals.Get_Debug = 'Y'
1806: THEN
1807: Error_Handler.Write_Debug('BillSeq Defaulted to: ' ||
1808: to_char(l_rev_item_unexp_rec.bill_sequence_id));
1809: END IF;
1810: END IF;
1811: ************************************************************************/

Line 1817: Error_Handler.Write_Debug('Before Getting New Scheduled Date, Start Effective Date : '

1813:
1814: -- If either Use Up Plan or Use Up Item has changed, get new scheduled date
1815:
1816: IF Bom_Globals.Get_Debug = 'Y' THEN
1817: Error_Handler.Write_Debug('Before Getting New Scheduled Date, Start Effective Date : '
1818: ||to_char(l_revised_item_rec.start_effective_date) );
1819: END IF;
1820:
1821: IF p_control_rec.caller_type <> 'FORM' -- Bug1906633

Line 1847: Error_Handler.Write_Debug('If either Use Up Plan or Use Up Item has changed, get new scheduled date');

1843: )
1844: THEN
1845:
1846: IF Bom_Globals.Get_Debug = 'Y' THEN
1847: Error_Handler.Write_Debug('If either Use Up Plan or Use Up Item has changed, get new scheduled date');
1848: Error_Handler.Write_Debug('Use Up Item Id : ' ||to_char(l_rev_item_unexp_rec.use_up_item_id ) );
1849: Error_Handler.Write_Debug('Use Up Plan Name : ' ||l_revised_item_rec.use_up_plan_name );
1850: END IF;
1851:

Line 1848: Error_Handler.Write_Debug('Use Up Item Id : ' ||to_char(l_rev_item_unexp_rec.use_up_item_id ) );

1844: THEN
1845:
1846: IF Bom_Globals.Get_Debug = 'Y' THEN
1847: Error_Handler.Write_Debug('If either Use Up Plan or Use Up Item has changed, get new scheduled date');
1848: Error_Handler.Write_Debug('Use Up Item Id : ' ||to_char(l_rev_item_unexp_rec.use_up_item_id ) );
1849: Error_Handler.Write_Debug('Use Up Plan Name : ' ||l_revised_item_rec.use_up_plan_name );
1850: END IF;
1851:
1852: IF l_rev_item_unexp_rec.use_up_item_id IS NOT NULL AND

Line 1849: Error_Handler.Write_Debug('Use Up Plan Name : ' ||l_revised_item_rec.use_up_plan_name );

1845:
1846: IF Bom_Globals.Get_Debug = 'Y' THEN
1847: Error_Handler.Write_Debug('If either Use Up Plan or Use Up Item has changed, get new scheduled date');
1848: Error_Handler.Write_Debug('Use Up Item Id : ' ||to_char(l_rev_item_unexp_rec.use_up_item_id ) );
1849: Error_Handler.Write_Debug('Use Up Plan Name : ' ||l_revised_item_rec.use_up_plan_name );
1850: END IF;
1851:
1852: IF l_rev_item_unexp_rec.use_up_item_id IS NOT NULL AND
1853: l_rev_item_unexp_rec.use_up_item_id <> FND_API.G_MISS_NUM AND -- Added by MK on 10/31/00

Line 1882: Error_Handler.Write_Debug('After getting new schedule date, Start Effective Date : '

1878: END IF;
1879:
1880: END IF; -- Bug 1906633
1881: IF Bom_Globals.Get_Debug = 'Y' THEN
1882: Error_Handler.Write_Debug('After getting new schedule date, Start Effective Date : '
1883: ||to_char(l_revised_item_rec.start_effective_date) );
1884: END IF;
1885:
1886: /* -- Moved to ENGLRITB.pls where this flag is set based on

Line 1911: Error_Handler.Write_Debug('Scheduled Date is been trying to udpate. . .');

1907: <> p_old_revised_item_rec.start_effective_date)
1908: THEN
1909:
1910: IF Bom_Globals.Get_Debug = 'Y' THEN
1911: Error_Handler.Write_Debug('Scheduled Date is been trying to udpate. . .');
1912: END IF;
1913: G_SCHED_DATE_CHANGED := TRUE;
1914: END IF;
1915:

Line 1917: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Defualting based on Status Type . . .'); END IF;

1913: G_SCHED_DATE_CHANGED := TRUE;
1914: END IF;
1915:
1916:
1917: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Defualting based on Status Type . . .'); END IF;
1918:
1919: IF l_revised_item_rec.status_type <>
1920: p_old_revised_item_rec.status_type
1921: THEN

Line 1948: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Checking if status type = HOLD . . .'); END IF;

1944: END IF;
1945:
1946: -- Hold
1947:
1948: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Checking if status type = HOLD . . .'); END IF;
1949:
1950: /* Changed upon ITI's request. Earlier warnings weren't being
1951: logged and mrp_active blindly being overwritten
1952: By AS on 11/10/99

Line 1963: Error_Handler.Add_Error_Token

1959: THEN
1960: l_revised_item_rec.mrp_active := 2;
1961: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1962: THEN
1963: Error_Handler.Add_Error_Token
1964: ( p_Message_Name => 'ENG_SET_MRP_ACTIVE_NO'
1965: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1966: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1967: , p_Token_Tbl => l_Token_Tbl

Line 1983: Error_Handler.Add_Error_Token

1979: THEN
1980: l_revised_item_rec.mrp_active := 1;
1981: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1982: THEN
1983: Error_Handler.Add_Error_Token
1984: ( p_Message_Name => 'ENG_SET_MRP_ACTIVE_YES'
1985: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1986: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1987: , p_Token_Tbl => l_Token_Tbl

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

2082: OR
2083: l_revised_item_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE
2084: THEN
2085:
2086: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2087: ( 'Checking for routing revision: ' || p_revised_item_rec.new_routing_revision );
2088: END IF;
2089:
2090: IF l_revised_item_rec.transaction_type =

Line 2097: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Current Routing Revision Found . . .'); END IF;

2093: FOR x_count IN c_Rtg_CheckRevision
2094: ( p_revision => l_revised_item_rec.new_routing_revision)
2095: LOOP
2096:
2097: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Current Routing Revision Found . . .'); END IF;
2098:
2099: l_rtg_rev_already_exists := 1;
2100: END LOOP;
2101:

Line 2116: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rtg Revision set for Insert . . .'); END IF;

2112: IF l_revised_item_rec.new_routing_revision <> l_current_rtg_revision AND
2113: l_rtg_rev_already_exists = 0
2114: THEN
2115:
2116: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rtg Revision set for Insert . . .'); END IF;
2117:
2118: G_DEL_UPD_INS_RTG_REV := 3;
2119: ELSIF l_rtg_rev_already_exists = 1 THEN
2120:

Line 2121: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rtg Revision set for Update . . .'); END IF;

2117:
2118: G_DEL_UPD_INS_RTG_REV := 3;
2119: ELSIF l_rtg_rev_already_exists = 1 THEN
2120:
2121: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rtg Revision set for Update . . .'); END IF;
2122:
2123: G_DEL_UPD_INS_RTG_REV := 2;
2124: END IF;
2125:

Line 2155: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rtg Revision set for Insert . . .'); END IF;

2151: IF l_revised_item_rec.new_routing_revision IS NULL OR
2152: l_revised_item_rec.new_routing_revision
2153: = l_current_rtg_revision -- Added by MK on 02/13/2001
2154: THEN
2155: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rtg Revision set for Insert . . .'); END IF;
2156:
2157: G_DEL_UPD_INS_RTG_REV := 3;
2158: ELSE
2159: --

Line 2164: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rtg Revision set for Update. . .'); END IF;

2160: -- Modified by MK on 10/24/00
2161: -- Update new routing revision information into
2162: -- MTL_RTG_ITEM_REVISIONS
2163: --
2164: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rtg Revision set for Update. . .'); END IF;
2165:
2166: G_DEL_UPD_INS_RTG_REV := 2 ;
2167:
2168: END IF ;

Line 2183: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rtg Revision set for Delete. . .'); END IF;

2179: = l_current_rtg_revision
2180: )
2181: THEN
2182:
2183: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rtg Revision set for Delete. . .'); END IF;
2184:
2185: G_DEL_UPD_INS_RTG_REV := 1;
2186:
2187: ELSIF l_rtg_rev_already_exists = 1 AND

Line 2193: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rtg Revision set for Update. . .'); END IF;

2189: THEN
2190: -- Update new routing revision information in
2191: -- MTL_RTG_ITEM_REVISIONS
2192:
2193: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rtg Revision set for Update. . .'); END IF;
2194: G_DEL_UPD_INS_RTG_REV := 2;
2195:
2196: END IF; /* If Update Ends */
2197: END IF; /* If Create or Update Ends */

Line 2228: Error_Handler.Write_Debug('Routing seq id is generated for an alternate routing . . . : ' ||

2224: Bom_Default_Rtg_Header.Get_Routing_Sequence ;
2225: -- to generate new routing sequence id
2226:
2227: IF Bom_Globals.Get_Debug = 'Y' THEN
2228: Error_Handler.Write_Debug('Routing seq id is generated for an alternate routing . . . : ' ||
2229: to_char(l_rev_item_unexp_rec.routing_sequence_id));
2230: END IF;
2231:
2232: IF Bom_Globals.Get_Debug = 'Y' THEN

Line 2233: Error_Handler.Write_Debug('Setting creat alternate bill flag to True. . . ' ) ;

2229: to_char(l_rev_item_unexp_rec.routing_sequence_id));
2230: END IF;
2231:
2232: IF Bom_Globals.Get_Debug = 'Y' THEN
2233: Error_Handler.Write_Debug('Setting creat alternate bill flag to True. . . ' ) ;
2234: END IF;
2235:
2236: G_CREATE_RTG_ALTERNATE := TRUE;
2237:

Line 2261: Error_Handler.Write_Debug('Routing Seq Id Defaulted to: ' ||

2257: routing_seq.routing_sequence_id;
2258: END LOOP;
2259:
2260: IF Bom_Globals.Get_Debug = 'Y' THEN
2261: Error_Handler.Write_Debug('Routing Seq Id Defaulted to: ' ||
2262: to_char(l_rev_item_unexp_rec.routing_sequence_id));
2263: END IF;
2264:
2265: END IF;

Line 2323: Error_Handler.Write_Debug('Before MRP Active and WIP Update Defaulting') ;

2319: -- Added by MK on 09/01/2000
2320: ***********************************************************************/
2321:
2322: IF Bom_Globals.Get_Debug = 'Y' THEN
2323: Error_Handler.Write_Debug('Before MRP Active and WIP Update Defaulting') ;
2324: Error_Handler.Write_Debug('MRP Active : ' || to_char(l_revised_item_rec.mrp_active )) ;
2325: Error_Handler.Write_Debug('Update Wip: ' || to_char(l_revised_item_rec.update_wip )) ;
2326: Error_Handler.Write_Debug('Lot Num : ' || l_revised_item_rec.lot_number ) ;
2327: Error_Handler.Write_Debug('Cum Qty : ' || to_char(l_revised_item_rec.from_cumulative_quantity)) ;

Line 2324: Error_Handler.Write_Debug('MRP Active : ' || to_char(l_revised_item_rec.mrp_active )) ;

2320: ***********************************************************************/
2321:
2322: IF Bom_Globals.Get_Debug = 'Y' THEN
2323: Error_Handler.Write_Debug('Before MRP Active and WIP Update Defaulting') ;
2324: Error_Handler.Write_Debug('MRP Active : ' || to_char(l_revised_item_rec.mrp_active )) ;
2325: Error_Handler.Write_Debug('Update Wip: ' || to_char(l_revised_item_rec.update_wip )) ;
2326: Error_Handler.Write_Debug('Lot Num : ' || l_revised_item_rec.lot_number ) ;
2327: Error_Handler.Write_Debug('Cum Qty : ' || to_char(l_revised_item_rec.from_cumulative_quantity)) ;
2328: Error_Handler.Write_Debug('From Wo : ' || to_char(l_rev_item_unexp_rec.from_wip_entity_id )) ;

Line 2325: Error_Handler.Write_Debug('Update Wip: ' || to_char(l_revised_item_rec.update_wip )) ;

2321:
2322: IF Bom_Globals.Get_Debug = 'Y' THEN
2323: Error_Handler.Write_Debug('Before MRP Active and WIP Update Defaulting') ;
2324: Error_Handler.Write_Debug('MRP Active : ' || to_char(l_revised_item_rec.mrp_active )) ;
2325: Error_Handler.Write_Debug('Update Wip: ' || to_char(l_revised_item_rec.update_wip )) ;
2326: Error_Handler.Write_Debug('Lot Num : ' || l_revised_item_rec.lot_number ) ;
2327: Error_Handler.Write_Debug('Cum Qty : ' || to_char(l_revised_item_rec.from_cumulative_quantity)) ;
2328: Error_Handler.Write_Debug('From Wo : ' || to_char(l_rev_item_unexp_rec.from_wip_entity_id )) ;
2329: Error_Handler.Write_Debug('To Wo : ' || to_char(l_rev_item_unexp_rec.to_wip_entity_id)) ;

Line 2326: Error_Handler.Write_Debug('Lot Num : ' || l_revised_item_rec.lot_number ) ;

2322: IF Bom_Globals.Get_Debug = 'Y' THEN
2323: Error_Handler.Write_Debug('Before MRP Active and WIP Update Defaulting') ;
2324: Error_Handler.Write_Debug('MRP Active : ' || to_char(l_revised_item_rec.mrp_active )) ;
2325: Error_Handler.Write_Debug('Update Wip: ' || to_char(l_revised_item_rec.update_wip )) ;
2326: Error_Handler.Write_Debug('Lot Num : ' || l_revised_item_rec.lot_number ) ;
2327: Error_Handler.Write_Debug('Cum Qty : ' || to_char(l_revised_item_rec.from_cumulative_quantity)) ;
2328: Error_Handler.Write_Debug('From Wo : ' || to_char(l_rev_item_unexp_rec.from_wip_entity_id )) ;
2329: Error_Handler.Write_Debug('To Wo : ' || to_char(l_rev_item_unexp_rec.to_wip_entity_id)) ;
2330: END IF ;

Line 2327: Error_Handler.Write_Debug('Cum Qty : ' || to_char(l_revised_item_rec.from_cumulative_quantity)) ;

2323: Error_Handler.Write_Debug('Before MRP Active and WIP Update Defaulting') ;
2324: Error_Handler.Write_Debug('MRP Active : ' || to_char(l_revised_item_rec.mrp_active )) ;
2325: Error_Handler.Write_Debug('Update Wip: ' || to_char(l_revised_item_rec.update_wip )) ;
2326: Error_Handler.Write_Debug('Lot Num : ' || l_revised_item_rec.lot_number ) ;
2327: Error_Handler.Write_Debug('Cum Qty : ' || to_char(l_revised_item_rec.from_cumulative_quantity)) ;
2328: Error_Handler.Write_Debug('From Wo : ' || to_char(l_rev_item_unexp_rec.from_wip_entity_id )) ;
2329: Error_Handler.Write_Debug('To Wo : ' || to_char(l_rev_item_unexp_rec.to_wip_entity_id)) ;
2330: END IF ;
2331:

Line 2328: Error_Handler.Write_Debug('From Wo : ' || to_char(l_rev_item_unexp_rec.from_wip_entity_id )) ;

2324: Error_Handler.Write_Debug('MRP Active : ' || to_char(l_revised_item_rec.mrp_active )) ;
2325: Error_Handler.Write_Debug('Update Wip: ' || to_char(l_revised_item_rec.update_wip )) ;
2326: Error_Handler.Write_Debug('Lot Num : ' || l_revised_item_rec.lot_number ) ;
2327: Error_Handler.Write_Debug('Cum Qty : ' || to_char(l_revised_item_rec.from_cumulative_quantity)) ;
2328: Error_Handler.Write_Debug('From Wo : ' || to_char(l_rev_item_unexp_rec.from_wip_entity_id )) ;
2329: Error_Handler.Write_Debug('To Wo : ' || to_char(l_rev_item_unexp_rec.to_wip_entity_id)) ;
2330: END IF ;
2331:
2332: -- Modified by MK on 10/30/2000

Line 2329: Error_Handler.Write_Debug('To Wo : ' || to_char(l_rev_item_unexp_rec.to_wip_entity_id)) ;

2325: Error_Handler.Write_Debug('Update Wip: ' || to_char(l_revised_item_rec.update_wip )) ;
2326: Error_Handler.Write_Debug('Lot Num : ' || l_revised_item_rec.lot_number ) ;
2327: Error_Handler.Write_Debug('Cum Qty : ' || to_char(l_revised_item_rec.from_cumulative_quantity)) ;
2328: Error_Handler.Write_Debug('From Wo : ' || to_char(l_rev_item_unexp_rec.from_wip_entity_id )) ;
2329: Error_Handler.Write_Debug('To Wo : ' || to_char(l_rev_item_unexp_rec.to_wip_entity_id)) ;
2330: END IF ;
2331:
2332: -- Modified by MK on 10/30/2000
2333: IF l_revised_item_rec.transaction_type = ENG_Globals.G_OPR_CREATE

Line 2348: Error_Handler.Write_Debug('Mrp Active and Update Wip are set to Yes') ;

2344: l_revised_item_rec.mrp_active := 2;
2345: l_revised_item_rec.update_wip := 1;
2346:
2347: IF Bom_Globals.Get_Debug = 'Y' THEN
2348: Error_Handler.Write_Debug('Mrp Active and Update Wip are set to Yes') ;
2349: Error_Handler.Write_Debug('MRP Active : ' || to_char(l_revised_item_rec.mrp_active )) ;
2350: Error_Handler.Write_Debug('UPDATE Wip: ' || to_char(l_revised_item_rec.update_wip )) ;
2351: END IF ;
2352: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)

Line 2349: Error_Handler.Write_Debug('MRP Active : ' || to_char(l_revised_item_rec.mrp_active )) ;

2345: l_revised_item_rec.update_wip := 1;
2346:
2347: IF Bom_Globals.Get_Debug = 'Y' THEN
2348: Error_Handler.Write_Debug('Mrp Active and Update Wip are set to Yes') ;
2349: Error_Handler.Write_Debug('MRP Active : ' || to_char(l_revised_item_rec.mrp_active )) ;
2350: Error_Handler.Write_Debug('UPDATE Wip: ' || to_char(l_revised_item_rec.update_wip )) ;
2351: END IF ;
2352: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2353: THEN

Line 2350: Error_Handler.Write_Debug('UPDATE Wip: ' || to_char(l_revised_item_rec.update_wip )) ;

2346:
2347: IF Bom_Globals.Get_Debug = 'Y' THEN
2348: Error_Handler.Write_Debug('Mrp Active and Update Wip are set to Yes') ;
2349: Error_Handler.Write_Debug('MRP Active : ' || to_char(l_revised_item_rec.mrp_active )) ;
2350: Error_Handler.Write_Debug('UPDATE Wip: ' || to_char(l_revised_item_rec.update_wip )) ;
2351: END IF ;
2352: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2353: THEN
2354: Error_Handler.Add_Error_Token

Line 2354: Error_Handler.Add_Error_Token

2350: Error_Handler.Write_Debug('UPDATE Wip: ' || to_char(l_revised_item_rec.update_wip )) ;
2351: END IF ;
2352: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2353: THEN
2354: Error_Handler.Add_Error_Token
2355: ( p_Message_Name => 'ENG_SET_WO_EFFECTIVITY_FLAG'
2356: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2357: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2358: , p_Token_Tbl => l_Token_Tbl

Line 2377: Error_Handler.Write_Debug('Eco for Prod has been changed. . . Yes') ;

2373: )
2374: THEN
2375:
2376: IF Bom_Globals.Get_Debug = 'Y' THEN
2377: Error_Handler.Write_Debug('Eco for Prod has been changed. . . Yes') ;
2378: END IF ;
2379: G_ECO_FOR_PROD_CHANGED := TRUE;
2380: END IF;
2381: