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

APPS.ENG_REVISED_ITEM_UTIL dependencies on BOM_GLOBALS

Line 762: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updating revised item . . . seq id : ' ||

758: l_prog_id := ENG_GLOBALS.Get_prog_id;
759:
760:
761:
762: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updating revised item . . . seq id : ' ||
763: to_char(p_rev_item_unexp_rec.revised_item_sequence_id));
764: END IF;
765:
766: IF (p_control_rec.caller_type = 'FORM' AND

Line 882: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updating revised item is completed'); END IF;

878:
879: x_return_status := FND_API.G_RET_STS_SUCCESS;
880:
881:
882: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updating revised item is completed'); END IF;
883:
884: EXCEPTION
885: WHEN NO_DATA_FOUND THEN
886: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('no data stmt_num '|| l_stmt_num); END IF;

Line 886: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('no data stmt_num '|| l_stmt_num); END IF;

882: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updating revised item is completed'); END IF;
883:
884: EXCEPTION
885: WHEN NO_DATA_FOUND THEN
886: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('no data stmt_num '|| l_stmt_num); END IF;
887: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
888: THEN
889: Error_Handler.Add_Error_Token
890: ( p_Message_Name => 'ENG_REV_ITEM_REC_DELETED'

Line 898: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('un exp stmt_num '|| l_stmt_num); END IF;

894: END IF;
895: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
896:
897: WHEN OTHERS THEN
898: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('un exp stmt_num '|| l_stmt_num); END IF;
899: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
900: THEN
901: l_err_text := G_PKG_NAME || ' : Utility (Revised Item Update) '
902: || SUBSTR(SQLERRM, 1, 200);

Line 903: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(l_err_text); END IF;

899: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
900: THEN
901: l_err_text := G_PKG_NAME || ' : Utility (Revised Item Update) '
902: || SUBSTR(SQLERRM, 1, 200);
903: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(l_err_text); END IF;
904: IF FND_MSG_PUB.Check_Msg_Level
905: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
906: THEN
907: Error_Handler.Add_Error_Token

Line 919: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Validation controller is '||p_control_rec.validation_controller); END IF;

915: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
916: END;
917: END IF; -- if call is from form, and side effects processing not requested.
918:
919: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Validation controller is '||p_control_rec.validation_controller); END IF;
920:
921: -- If call if from form, execute this block of code only if side effects
922: -- processing has been requested
923: -- By AS on 10/13/99

Line 930: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Performing SIDE_EFFECTS'); END IF;

926: OR
927: p_control_rec.caller_type <> 'FORM'
928: THEN
929:
930: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Performing SIDE_EFFECTS'); END IF;
931:
932: /*********************************************************************
933: --
934: -- If the user has updated the status to 5 i.e. cancel, then

Line 988: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Action on Item Revision is :'||to_char(Eng_Default_Revised_Item.G_DEL_UPD_INS_ITEM_REV) ); END IF;

984: if any existing need to be deleted ro modified.
985: */
986:
987: BEGIN
988: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Action on Item Revision is :'||to_char(Eng_Default_Revised_Item.G_DEL_UPD_INS_ITEM_REV) ); END IF;
989: IF Eng_Default_Revised_Item.G_DEL_UPD_INS_ITEM_REV = 1
990: THEN
991: -- Delete record from MTL_ITEM_REVISIONS if it already
992: -- exists

Line 993: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Deleting Item Revisions . . .'); END IF;

989: IF Eng_Default_Revised_Item.G_DEL_UPD_INS_ITEM_REV = 1
990: THEN
991: -- Delete record from MTL_ITEM_REVISIONS if it already
992: -- exists
993: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Deleting Item Revisions . . .'); END IF;
994:
995: l_stmt_num := 3;
996: ENG_REVISED_ITEMS_PKG.Delete_Item_Revisions
997: ( x_change_notice =>

Line 1011: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updating Item Revisions . . .');

1007: THEN
1008: -- Update new item revision information in
1009: -- MTL_ITEM_REVISIONS
1010:
1011: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updating Item Revisions . . .');
1012: END IF;
1013:
1014: /*
1015: IF Bom_Globals.Get_Debug = 'Y' THEN

Line 1015: IF Bom_Globals.Get_Debug = 'Y' THEN

1011: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updating Item Revisions . . .');
1012: END IF;
1013:
1014: /*
1015: IF Bom_Globals.Get_Debug = 'Y' THEN
1016: Error_Handler.Write_Debug(p_revised_item_rec.updated_revised_item_revision
1017: || p_revised_item_rec.start_effective_date
1018: ||p_revised_item_rec.new_effective_date
1019: || p_revised_item_rec.eco_name

Line 1125: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Inserting Item Revisions . . .'); END IF;

1121: THEN
1122: -- Insert new record if revision record doesn't already
1123: -- exist
1124:
1125: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Inserting Item Revisions . . .'); END IF;
1126: l_stmt_num := 5;
1127: IF (p_revised_item_rec.new_effective_date is NULL) THEN
1128: ENG_REVISED_ITEMS_PKG.Insert_Item_Revisions
1129: ( x_inventory_item_id =>

Line 1232: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Deleting Routing Revisions . . .'); END IF;

1228: IF Eng_Default_Revised_Item.G_DEL_UPD_INS_RTG_REV = 1
1229: THEN
1230: -- Delete record from MTL_RTG_ITEM_REVISIONS if it already
1231: -- exists
1232: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Deleting Routing Revisions . . .'); END IF;
1233:
1234: DELETE FROM MTL_RTG_ITEM_REVISIONS
1235: WHERE implementation_date IS NULL
1236: AND change_notice = p_revised_item_rec.eco_name

Line 1248: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updating Routing Revisions . . .'); END IF;

1244: THEN
1245: -- Update new item revision information in
1246: -- MTL_ITEM_REVISIONS
1247:
1248: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updating Routing Revisions . . .'); END IF;
1249:
1250: UPDATE MTL_RTG_ITEM_REVISIONS
1251: SET process_revision = p_revised_item_rec.updated_routing_revision
1252: , effectivity_date = DECODE( DECODE(p_revised_item_rec.new_effective_date,

Line 1275: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Inserting Routing Revisions . . . '); END IF;

1271: ELSIF Eng_Default_Revised_Item.G_DEL_UPD_INS_RTG_REV = 3
1272: THEN
1273: -- Insert new record if revision record doesn't already
1274: -- exist
1275: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Inserting Routing Revisions . . . '); END IF;
1276:
1277: IF ( p_revised_item_rec.new_effective_date is NULL) THEN
1278: Insert_Routing_Revisions
1279: ( p_inventory_item_id => p_rev_item_unexp_rec.revised_item_id

Line 1317: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updating effective daste for child rev comps . . .'); END IF;

1313: IF Eng_Default_Revised_Item.G_SCHED_DATE_CHANGED
1314: THEN
1315: l_stmt_num := 6;
1316:
1317: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updating effective daste for child rev comps . . .'); END IF;
1318:
1319: ENG_REVISED_ITEMS_PKG.Update_Inventory_Components
1320: ( x_change_notice =>
1321: p_revised_item_rec.eco_name

Line 1335: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updating effective date for child rev operations . . . '); END IF;

1331: );
1332:
1333:
1334:
1335: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updating effective date for child rev operations . . . '); END IF;
1336:
1337: Update_Rev_Operations
1338: ( x_change_notice => p_revised_item_rec.eco_name
1339: , x_routing_sequence_id => p_rev_item_unexp_rec.routing_sequence_id

Line 1346: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Inserting current schedule date . . .'); END IF;

1342: ) ;
1343:
1344:
1345: l_stmt_num := 7;
1346: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Inserting current schedule date . . .'); END IF;
1347: if (p_revised_item_rec.status_type = 4) then
1348: if (p_rev_item_unexp_rec.requestor_id is null ) then
1349: -- req_id := l_User_Id;
1350: -- Bug 3589974 : Fetching the party_id for the current user_id

Line 1400: IF Bom_Globals.Get_Debug = 'Y' THEN

1396: , x_comments => p_revised_item_rec.reschedule_comments -- Bug 3589974
1397: );
1398: end if;
1399:
1400: IF Bom_Globals.Get_Debug = 'Y' THEN
1401: Error_Handler.Write_Debug('Updating effective dates of pending item/rtg rev in this revised item record . . . ');
1402: END IF;
1403:
1404: UPDATE MTL_RTG_ITEM_REVISIONS

Line 1495: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Before Updating Eco_For_Production in Rev Comps and Rev Ops'); END IF;

1491: ************************************************************/
1492: IF Eng_Default_Revised_Item.G_ECO_FOR_PROD_CHANGED
1493: THEN
1494:
1495: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Before Updating Eco_For_Production in Rev Comps and Rev Ops'); END IF;
1496:
1497: UPDATE BOM_OPERATION_SEQUENCES
1498: SET eco_for_production = p_revised_item_rec.eco_for_production
1499: WHERE revised_item_sequence_id = p_rev_item_unexp_rec.revised_item_sequence_id ;

Line 1505: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After Updating Eco_For_Production in Rev Comps and Rev Ops'); END IF;

1501: UPDATE BOM_INVENTORY_COMPONENTS
1502: SET eco_for_production = p_revised_item_rec.eco_for_production
1503: WHERE revised_item_sequence_id = p_rev_item_unexp_rec.revised_item_sequence_id ;
1504:
1505: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After Updating Eco_For_Production in Rev Comps and Rev Ops'); END IF;
1506:
1507: END IF; /* Eco For Production */
1508:
1509: /* 11.5.10 chnages */

Line 1540: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('returning from update_row'); END IF;

1536:
1537: END; /* Inser/Update/Delete revision and check reschedule block Ends */
1538: END IF;
1539:
1540: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('returning from update_row'); END IF;
1541:
1542: END Update_Row;
1543:
1544: /*****************************************************************************

Line 1816: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Inserting item revisions . . . '); END IF;

1812: ( p_revised_item_rec.new_revised_item_revision IS NOT NULL OR
1813: p_revised_item_rec.new_revised_item_revision <> FND_API.G_MISS_CHAR
1814: )
1815: THEN
1816: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Inserting item revisions . . . '); END IF;
1817: ENG_REVISED_ITEMS_PKG.Insert_Item_Revisions
1818: ( x_inventory_item_id =>
1819: p_rev_item_unexp_rec.revised_item_id
1820: , x_organization_id =>

Line 1850: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Inserting routing revisions . . .'); END IF;

1846: p_revised_item_rec.new_routing_revision <> FND_API.G_MISS_CHAR
1847: )
1848: THEN
1849:
1850: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Inserting routing revisions . . .'); END IF;
1851:
1852:
1853: Insert_Routing_Revisions
1854: ( p_inventory_item_id => p_rev_item_unexp_rec.revised_item_id

Line 1868: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Inserting cur_sch_dates . . .'); END IF;

1864:
1865:
1866: IF p_revised_item_rec.start_effective_date IS NOT NULL
1867: THEN
1868: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Inserting cur_sch_dates . . .'); END IF;
1869: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('ECO : ' || p_revised_item_rec.eco_name); END IF;
1870: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Organization: ' ||
1871: to_char(p_rev_item_unexp_rec.organization_id));
1872: END IF;

Line 1869: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('ECO : ' || p_revised_item_rec.eco_name); END IF;

1865:
1866: IF p_revised_item_rec.start_effective_date IS NOT NULL
1867: THEN
1868: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Inserting cur_sch_dates . . .'); END IF;
1869: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('ECO : ' || p_revised_item_rec.eco_name); END IF;
1870: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Organization: ' ||
1871: to_char(p_rev_item_unexp_rec.organization_id));
1872: END IF;
1873: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item: ' ||

Line 1870: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Organization: ' ||

1866: IF p_revised_item_rec.start_effective_date IS NOT NULL
1867: THEN
1868: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Inserting cur_sch_dates . . .'); END IF;
1869: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('ECO : ' || p_revised_item_rec.eco_name); END IF;
1870: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Organization: ' ||
1871: to_char(p_rev_item_unexp_rec.organization_id));
1872: END IF;
1873: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item: ' ||
1874: to_char(p_rev_item_unexp_rec.revised_item_id));

Line 1873: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item: ' ||

1869: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('ECO : ' || p_revised_item_rec.eco_name); END IF;
1870: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Organization: ' ||
1871: to_char(p_rev_item_unexp_rec.organization_id));
1872: END IF;
1873: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item: ' ||
1874: to_char(p_rev_item_unexp_rec.revised_item_id));
1875: END IF;
1876: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Effective Date: ' ||
1877: to_char(p_revised_item_rec.start_effective_date));

Line 1876: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Effective Date: ' ||

1872: END IF;
1873: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item: ' ||
1874: to_char(p_rev_item_unexp_rec.revised_item_id));
1875: END IF;
1876: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Effective Date: ' ||
1877: to_char(p_revised_item_rec.start_effective_date));
1878: END IF;
1879: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item Sequence: ' ||
1880: to_char(p_rev_item_unexp_rec.revised_item_sequence_id));

Line 1879: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item Sequence: ' ||

1875: END IF;
1876: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Effective Date: ' ||
1877: to_char(p_revised_item_rec.start_effective_date));
1878: END IF;
1879: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item Sequence: ' ||
1880: to_char(p_rev_item_unexp_rec.revised_item_sequence_id));
1881: END IF;
1882: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Requestor: ' ||
1883: to_char(p_rev_item_unexp_rec.requestor_id));

Line 1882: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Requestor: ' ||

1878: END IF;
1879: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item Sequence: ' ||
1880: to_char(p_rev_item_unexp_rec.revised_item_sequence_id));
1881: END IF;
1882: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Requestor: ' ||
1883: to_char(p_rev_item_unexp_rec.requestor_id));
1884: END IF;
1885:
1886: /*Insert_Current_Scheduled_Dates

Line 1916: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Creating Altenate BOM . . .'); END IF;

1912: , p_organization_id =>
1913: p_rev_item_unexp_rec.organization_id
1914: );
1915:
1916: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Creating Altenate BOM . . .'); END IF;
1917:
1918: ENG_REVISED_ITEMS_PKG.Create_BOM
1919: ( x_assembly_item_id =>
1920: p_rev_item_unexp_rec.revised_item_id

Line 1949: IF BOM_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

1945: , last_updated_by = l_user_id -- Last Updated By
1946: , last_update_login = l_login_id -- Last Update Login
1947: WHERE revised_item_sequence_id = p_rev_item_unexp_rec.revised_item_sequence_id ;
1948:
1949: IF BOM_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1950: ('Set created bill sequence id : ' || to_char(p_rev_item_unexp_rec.bill_sequence_id )
1951: || ' to the parenet revised item . . .') ;
1952: END IF ;
1953:

Line 1972: IF Bom_Globals.Get_Debug = 'Y' THEN

1968: , p_organization_id => p_rev_item_unexp_rec.organization_id
1969: );
1970: END IF ;
1971:
1972: IF Bom_Globals.Get_Debug = 'Y' THEN
1973: Error_Handler.Write_Debug('Creating Alternate Routing. . . ');
1974: /*
1975: Error_Handler.Write_Debug('Rtg Sequence Id : '|| to_char(p_rev_item_unexp_rec.routing_sequence_id));
1976: Error_Handler.Write_Debug('Assembly Item : '|| to_char(p_rev_item_unexp_rec.revised_item_id));

Line 2033: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(l_err_text); END IF;

2029: WHEN OTHERS THEN
2030:
2031: l_err_text := G_PKG_NAME || ' : (Inserting Record - Revised Item) '
2032: || substrb(SQLERRM,1,200);
2033: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(l_err_text); END IF;
2034: Error_Handler.Add_Error_Token
2035: ( p_Message_Name => NULL
2036: , p_Message_Text => l_Err_Text
2037: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl

Line 2184: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item: ' || to_char(p_revised_item_id)); END IF;

2180: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2181: l_err_text VARCHAR2(2000);
2182: BEGIN
2183:
2184: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item: ' || to_char(p_revised_item_id)); END IF;
2185: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Organization: ' || to_char(p_organization_id)); END IF;
2186: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('ChangeNotice: ' || p_change_notice); END IF;
2187: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revision: ' || p_new_item_revision); END IF;
2188: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rtg Revision: ' || p_new_routing_revision); END IF;

Line 2185: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Organization: ' || to_char(p_organization_id)); END IF;

2181: l_err_text VARCHAR2(2000);
2182: BEGIN
2183:
2184: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item: ' || to_char(p_revised_item_id)); END IF;
2185: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Organization: ' || to_char(p_organization_id)); END IF;
2186: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('ChangeNotice: ' || p_change_notice); END IF;
2187: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revision: ' || p_new_item_revision); END IF;
2188: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rtg Revision: ' || p_new_routing_revision); END IF;
2189: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Effective Date: ' || to_char(p_start_eff_date));

Line 2186: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('ChangeNotice: ' || p_change_notice); END IF;

2182: BEGIN
2183:
2184: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item: ' || to_char(p_revised_item_id)); END IF;
2185: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Organization: ' || to_char(p_organization_id)); END IF;
2186: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('ChangeNotice: ' || p_change_notice); END IF;
2187: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revision: ' || p_new_item_revision); END IF;
2188: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rtg Revision: ' || p_new_routing_revision); END IF;
2189: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Effective Date: ' || to_char(p_start_eff_date));
2190: END IF;

Line 2187: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revision: ' || p_new_item_revision); END IF;

2183:
2184: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item: ' || to_char(p_revised_item_id)); END IF;
2185: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Organization: ' || to_char(p_organization_id)); END IF;
2186: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('ChangeNotice: ' || p_change_notice); END IF;
2187: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revision: ' || p_new_item_revision); END IF;
2188: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rtg Revision: ' || p_new_routing_revision); END IF;
2189: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Effective Date: ' || to_char(p_start_eff_date));
2190: END IF;
2191:

Line 2188: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rtg Revision: ' || p_new_routing_revision); END IF;

2184: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item: ' || to_char(p_revised_item_id)); END IF;
2185: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Organization: ' || to_char(p_organization_id)); END IF;
2186: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('ChangeNotice: ' || p_change_notice); END IF;
2187: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revision: ' || p_new_item_revision); END IF;
2188: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rtg Revision: ' || p_new_routing_revision); END IF;
2189: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Effective Date: ' || to_char(p_start_eff_date));
2190: END IF;
2191:
2192: SELECT

Line 2189: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Effective Date: ' || to_char(p_start_eff_date));

2185: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Organization: ' || to_char(p_organization_id)); END IF;
2186: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('ChangeNotice: ' || p_change_notice); END IF;
2187: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revision: ' || p_new_item_revision); END IF;
2188: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rtg Revision: ' || p_new_routing_revision); END IF;
2189: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Effective Date: ' || to_char(p_start_eff_date));
2190: END IF;
2191:
2192: SELECT
2193: CHANGE_NOTICE

Line 2319: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Execution of Query row over . . .'); END IF;

2315:
2316: x_revised_item_Rec := l_revised_item_rec;
2317: x_rev_item_unexp_rec := l_rev_item_unexp_rec;
2318:
2319: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Execution of Query row over . . .'); END IF;
2320:
2321: EXCEPTION
2322:
2323: WHEN NO_DATA_FOUND THEN

Line 2325: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Query Revised Item: ' || SQLERRM); END IF;

2321: EXCEPTION
2322:
2323: WHEN NO_DATA_FOUND THEN
2324:
2325: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Query Revised Item: ' || SQLERRM); END IF;
2326:
2327: x_return_status := Eng_Globals.G_RECORD_NOT_FOUND;
2328: x_revised_item_Rec := l_revised_item_rec;
2329: x_rev_item_unexp_rec := l_rev_item_unexp_rec;

Line 2332: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Query Revised Item: ' || SQLERRM); END IF;

2328: x_revised_item_Rec := l_revised_item_rec;
2329: x_rev_item_unexp_rec := l_rev_item_unexp_rec;
2330:
2331: WHEN OTHERS THEN
2332: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Query Revised Item: ' || SQLERRM); END IF;
2333:
2334: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2335: x_revised_item_Rec := l_revised_item_rec;
2336: x_rev_item_unexp_rec := l_rev_item_unexp_rec;

Line 2493: BOM_Globals.Set_Debug(p_debug);

2489: l_login_id := to_number(Fnd_Profile.Value('LOGIN_ID'));
2490:
2491: IF (p_debug = 'Y')
2492: THEN
2493: BOM_Globals.Set_Debug(p_debug);
2494: Error_Handler.Open_Debug_Session
2495: ( p_debug_filename => p_debug_filename
2496: , p_output_dir => p_output_dir
2497: , x_return_status => x_return_status

Line 2502: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('--Start API Reschedule_Revised_Item--'); END IF;

2498: , x_error_mesg => l_error_mesg
2499: );
2500: END IF;
2501:
2502: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('-***-Start API Reschedule_Revised_Item-***-'); END IF;
2503: SAVEPOINT Reschedule_Revised_Item_SP;
2504: x_return_status := FND_API.G_RET_STS_SUCCESS;
2505:
2506: -- Standard call to check for call compatibility

Line 2517: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Fetch the revised Item Details'); END IF;

2513: IF FND_API.to_Boolean(p_init_msg_list) THEN
2514: FND_MSG_PUB.initialize;
2515: END IF;
2516:
2517: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Fetch the revised Item Details'); END IF;
2518: OPEN c_revised_item(cp_revised_item_sequence_id => p_revised_item_sequence_id);
2519: FETCH c_revised_item INTO l_rev_item;
2520:
2521: -- update item revision

Line 2532: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updated '|| SQL%ROWCOUNT ||'rows for item revision effectivity'); END IF;

2528: AND organization_id = l_rev_item.organization_id
2529: AND implementation_date is NULL
2530: AND inventory_item_id = l_rev_item.revised_item_id
2531: AND revised_item_sequence_id = p_revised_item_sequence_id;
2532: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updated '|| SQL%ROWCOUNT ||'rows for item revision effectivity'); END IF;
2533:
2534: -- update revised components EFFECTIVITY_DATE
2535: UPDATE BOM_INVENTORY_COMPONENTS bic
2536: SET bic.EFFECTIVITY_DATE = p_effectivity_date

Line 2545: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updated '|| SQL%ROWCOUNT ||'rows for component effectivity' ); END IF;

2541: OR bic.common_component_sequence_id = bic.component_sequence_id)
2542: -- This is to ensure that the destination bill's revised item
2543: -- reschedule doesnt affect its components effectivity date
2544: AND bic.IMPLEMENTATION_DATE IS NULL;
2545: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updated '|| SQL%ROWCOUNT ||'rows for component effectivity' ); END IF;
2546:
2547: -- update revised components DISABLE_DATE
2548: UPDATE BOM_INVENTORY_COMPONENTS bic1
2549: SET bic1.DISABLE_DATE = p_effectivity_date

Line 2555: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updated '|| SQL%ROWCOUNT ||'rows for component disable date' ); END IF;

2551: AND bic1.ACD_TYPE = 3 -- ACD Type: Disable
2552: AND revised_item_sequence_id = p_revised_item_sequence_id
2553: AND bill_sequence_id = l_rev_item.bill_sequence_id
2554: AND bic1.IMPLEMENTATION_DATE IS NULL;
2555: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updated '|| SQL%ROWCOUNT ||'rows for component disable date' ); END IF;
2556: -- R12 : Common BOM changes
2557: -- updating the replicated components for the pending changes
2558: FOR c_sc IN c_source_components(l_rev_item.change_notice, p_revised_item_sequence_id, l_rev_item.bill_sequence_id)
2559: LOOP

Line 2573: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updated operation sequences effectivity'); END IF;

2569: ( x_change_notice => l_rev_item.change_notice
2570: , x_routing_sequence_id => l_rev_item.routing_sequence_id
2571: , x_revised_item_sequence_id => p_revised_item_sequence_id
2572: , x_scheduled_date => p_effectivity_date);
2573: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updated operation sequences effectivity'); END IF;
2574:
2575: -- update routing revision details
2576: UPDATE MTL_RTG_ITEM_REVISIONS
2577: SET effectivity_date = p_effectivity_date,

Line 2586: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updated '|| SQL%ROWCOUNT ||'rows for routing revision effectivity'); END IF;

2582: AND organization_id = l_rev_item.organization_id
2583: AND implementation_date is NULL
2584: AND inventory_item_id = l_rev_item.revised_item_id
2585: AND revised_item_sequence_id = p_revised_item_sequence_id;
2586: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updated '|| SQL%ROWCOUNT ||'rows for routing revision effectivity'); END IF;
2587:
2588: CLOSE c_revised_item;
2589: IF FND_API.To_Boolean (p_commit)
2590: THEN

Line 2596: IF Bom_Globals.Get_Debug = 'Y'

2592: END IF;
2593: FND_MSG_PUB.Count_And_Get
2594: ( p_count => x_msg_count
2595: , p_data => x_msg_data );
2596: IF Bom_Globals.Get_Debug = 'Y'
2597: THEN
2598: Error_Handler.Write_Debug('-***-End API Reschedule_Revised_Item-***-');
2599: Error_Handler.Close_Debug_Session;
2600: END IF;

Line 2614: IF Bom_Globals.Get_Debug = 'Y'

2610: END IF;
2611: FND_MSG_PUB.Count_And_Get
2612: ( p_count => x_msg_count
2613: , p_data => x_msg_data );
2614: IF Bom_Globals.Get_Debug = 'Y'
2615: THEN
2616: Error_Handler.Write_Debug('Unexpected Error in API Reschedule_Revised_Item');
2617: Error_Handler.Close_Debug_Session;
2618: END IF;