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.BOM_DEFAULT_BOM_COMPONENT dependencies on ERROR_HANDLER

Line 65: Error_Handler.Write_Debug('Checking if routing exist for defaulting operation sequence number');

61: l_dummy VARCHAR2(1);
62:
63: BEGIN
64: IF Bom_Globals.Get_Debug = 'Y' THEN
65: Error_Handler.Write_Debug('Checking if routing exist for defaulting operation sequence number');
66: END IF;
67:
68: IF g_rev_comp_unexp_rec.bill_sequence_id IS NULL
69: THEN

Line 73: Error_Handler.Write_Debug('Revised item does not have a bill');

69: THEN
70: --12676077 begin
71: --even though there's no bill but there can still be a routing
72: IF Bom_Globals.Get_Debug = 'Y' THEN
73: Error_Handler.Write_Debug('Revised item does not have a bill');
74: END IF;
75:
76: OPEN CheckPrimaryRouting;
77: FETCH CheckPrimaryRouting INTO l_dummy;

Line 634: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

630: , p_control_rec IN Bom_Bo_Pub.Control_Rec_Type
631: := Bom_Bo_Pub.G_DEFAULT_CONTROL_REC
632: , x_rev_component_rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Component_Rec_Type
633: , x_Rev_Comp_Unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
634: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
635: , x_Return_Status IN OUT NOCOPY VARCHAR2
636: )
637: IS
638: l_pick_components NUMBER := 0;

Line 640: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

636: )
637: IS
638: l_pick_components NUMBER := 0;
639: l_to_end_item_unit_number VARCHAR2(30) := NULL;
640: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
641: l_Token_Tbl Error_Handler.Token_Tbl_Type;
642: l_default_wip_values NUMBER;
643: l_assy_item_type NUMBER; --* Added for Bug 4568522
644: CURSOR default_wip_values IS

Line 641: l_Token_Tbl Error_Handler.Token_Tbl_Type;

637: IS
638: l_pick_components NUMBER := 0;
639: l_to_end_item_unit_number VARCHAR2(30) := NULL;
640: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
641: l_Token_Tbl Error_Handler.Token_Tbl_Type;
642: l_default_wip_values NUMBER;
643: l_assy_item_type NUMBER; --* Added for Bug 4568522
644: CURSOR default_wip_values IS
645: SELECT wip_supply_type,

Line 653: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Within the Rev. Component Defaulting...'); END IF;

649: WHERE inventory_item_id = p_rev_comp_unexp_rec.component_item_id
650: AND organization_id = p_rev_comp_unexp_rec.organization_id;
651: BEGIN
652:
653: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Within the Rev. Component Defaulting...'); END IF;
654:
655: -- Initialize package global records
656:
657: g_rev_component_rec := p_rev_component_rec;

Line 727: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Defaulting old component sequence id '); END IF;

723: Get_Component_Sequence;
724: END IF;
725:
726: --bug 14490716 (begin)
727: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Defaulting old component sequence id '); END IF;
728: IF (g_Rev_Comp_Unexp_Rec.old_component_sequence_id IS NULL OR
729: g_Rev_Comp_Unexp_Rec.old_component_sequence_id =
730: FND_API.G_MISS_NUM) AND
731: (NVL(g_rev_component_rec.acd_type, FND_API.G_MISS_NUM) = 1)

Line 737: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Old Comp Seq: ' || to_char(g_Rev_Comp_Unexp_Rec.old_component_sequence_id)); END IF;

733: THEN
734: g_Rev_Comp_Unexp_Rec.old_component_sequence_id :=
735: g_Rev_Comp_Unexp_Rec.component_sequence_id;
736:
737: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Old Comp Seq: ' || to_char(g_Rev_Comp_Unexp_Rec.old_component_sequence_id)); END IF;
738:
739: END IF;
740: --bug 14490716 (end)
741:

Line 752: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Generated Bill Sequence_id...' || to_char(g_rev_comp_Unexp_rec.bill_sequence_id)); END IF;

748: IF g_Rev_Comp_Unexp_rec.bill_sequence_id IS NULL THEN
749:
750: g_Rev_Comp_Unexp_Rec.bill_sequence_id :=
751: get_bill_sequence;
752: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Generated Bill Sequence_id...' || to_char(g_rev_comp_Unexp_rec.bill_sequence_id)); END IF;
753: END IF;
754:
755: /*********************************************************
756: --

Line 794: Error_Handler.Add_Error_Token

790: AND l_to_end_item_unit_number IS NOT NULL
791: THEN
792: l_Token_Tbl(1).Token_Name := 'REVISED_COMPONENT_NAME';
793: l_Token_Tbl(1).Token_Value := g_rev_component_rec.component_item_name;
794: Error_Handler.Add_Error_Token
795: ( p_Message_Name => 'BOM_COMP_END_UNIT_OVERWRITTEN'
796: , p_Mesg_Token_Tbl => l_mesg_token_tbl
797: , x_Mesg_Token_Tbl => l_mesg_token_tbl
798: , p_Token_Tbl => l_token_tbl

Line 807: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After defaulting to_end_item_unit_num..'); END IF;

803: g_rev_component_rec.to_end_item_unit_number :=
804: l_to_end_item_unit_number;
805: END IF;
806:
807: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After defaulting to_end_item_unit_num..'); END IF;
808:
809: --* Added for Bug 4568522
810: SELECT Bom_Item_Type
811: INTO l_assy_item_type

Line 858: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After defaulting item num . . . '); END IF;

854: END IF;
855: END IF;
856: --* End of Bug 4568522
857:
858: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After defaulting item num . . . '); END IF;
859:
860: /**********************************************************
861: --
862: -- Default Operation_Seq_Num

Line 881: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After defaulting operation seq num...'); END IF;

877: THEN
878: g_rev_component_rec.new_operation_sequence_number := null;
879: END IF;
880:
881: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After defaulting operation seq num...'); END IF;
882:
883: IF g_rev_component_rec.acd_type = 3 AND
884: g_rev_component_rec.disable_date IS NULL
885: THEN

Line 890: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After defaulting disable_date...'); END IF;

886: g_rev_component_rec.disable_date :=
887: g_rev_component_rec.start_effective_date;
888: END IF;
889:
890: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After defaulting disable_date...'); END IF;
891: END IF;
892:
893: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After defaulting operation seq num...'); END IF;
894:

Line 893: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After defaulting operation seq num...'); END IF;

889:
890: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After defaulting disable_date...'); END IF;
891: END IF;
892:
893: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After defaulting operation seq num...'); END IF;
894:
895: /************************************************************
896: --
897: -- Default Component_Quantity

Line 912: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After defaulting component qunatity...'); END IF;

908: round(g_rev_component_rec.quantity_per_assembly, 7);
909: */
910: END IF;
911:
912: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After defaulting component qunatity...'); END IF;
913:
914: /************************************************************
915: --
916: -- Default Pick_Components

Line 927: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After defaulting pick components . . .'); END IF;

923: g_Rev_Comp_Unexp_Rec.pick_components :=
924: Get_Pick_Components;
925: END IF;
926:
927: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After defaulting pick components . . .'); END IF;
928:
929: /*************************************************************
930: --
931: -- Default Effectivity Date

Line 961: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After Effectivity Defaulted . . .'); END IF;

957: IF g_rev_component_rec.disable_date = FND_API.G_MISS_DATE THEN
958: g_rev_component_rec.disable_date := NULL;
959: END IF;
960:
961: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After Effectivity Defaulted . . .'); END IF;
962:
963: /************************************************************
964: --
965: -- Default Planning Factor (Planning_Percent)

Line 1016: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After Mutually Exclusive defualting...'); END IF;

1012: g_rev_component_rec.mutually_exclusive :=
1013: Get_Mutually_Exclusive;
1014: END IF;
1015:
1016: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After Mutually Exclusive defualting...'); END IF;
1017:
1018:
1019: -- Added extra IF condition for component_item_id to accomodate
1020: -- records that come in thru the ECO form.

Line 1039: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After include in cost rollup defualting . . . '); END IF;

1035: g_rev_component_rec.include_in_cost_rollup :=
1036: Get_Include_In_Cost_Rollup;
1037: END IF;
1038:
1039: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After include in cost rollup defualting . . . '); END IF;
1040:
1041: /***********************************************************
1042: --
1043: -- Default Check_ATP

Line 1052: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After Check ATP Defualted . . . '); END IF;

1048: THEN
1049: g_rev_component_rec.check_atp := Get_Check_Atp;
1050: END IF;
1051:
1052: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After Check ATP Defualted . . . '); END IF;
1053:
1054: IF g_rev_comp_Unexp_rec.bom_item_type IS NULL OR
1055: g_rev_comp_unexp_rec.bom_item_type = FND_API.G_MISS_NUM
1056: THEN

Line 1072: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After defaulting component yeild factor . . .'); END IF;

1068: g_rev_component_rec.projected_yield :=
1069: Get_Component_Yield_Factor;
1070: END IF;
1071:
1072: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After defaulting component yeild factor . . .'); END IF;
1073:
1074: END IF;
1075:
1076: -- Defaulting used by the ECO form

Line 1128: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Subinventory . . . ' || g_rev_component_rec.supply_subinventory ); END IF;

1124: g_rev_component_rec.supply_subinventory := NULL;
1125: g_Rev_Comp_Unexp_Rec.Supply_Locator_Id := NULL;
1126: END IF;
1127:
1128: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Subinventory . . . ' || g_rev_component_rec.supply_subinventory ); END IF;
1129:
1130:
1131: /*********************************************************
1132: --

Line 1250: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Attribute defaulting enforce_int_requirements_code...'); END IF;

1246: THEN
1247: g_rev_comp_unexp_rec.supply_locator_id := NULL;
1248: END IF;
1249:
1250: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Attribute defaulting enforce_int_requirements_code...'); END IF;
1251:
1252: /* bug2758790, form defaults the enforce req code to 0 and value to 'none' */
1253:
1254: IF( g_rev_comp_unexp_rec.enforce_int_requirements_code = FND_API.G_MISS_NUM

Line 1261: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Attribute defaulting enforce_int_requirements...'); END IF;

1257: THEN
1258: g_rev_comp_unexp_rec.enforce_int_requirements_code := 0;
1259: END IF;
1260:
1261: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Attribute defaulting enforce_int_requirements...'); END IF;
1262: IF (g_rev_component_rec.enforce_int_requirements = FND_API.G_MISS_CHAR
1263: or g_rev_component_rec.enforce_int_requirements is NULL)
1264: AND l_assy_item_type <> Bom_Globals.G_PRODUCT_FAMILY --* Added for Bug 4568522
1265: THEN

Line 1303: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Getting out of Attribute Defualting...'); END IF;

1299:
1300: x_rev_component_rec := g_rev_component_rec;
1301: x_Rev_Comp_Unexp_Rec := g_Rev_Comp_Unexp_Rec;
1302:
1303: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Getting out of Attribute Defualting...'); END IF;
1304:
1305: END Attribute_Defaulting;
1306:
1307: /*********************************************************************

Line 1325: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

1321: ( p_bom_component_rec IN Bom_Bo_Pub.Bom_Comps_Rec_Type
1322: , p_bom_Comp_unexp_rec IN Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
1323: , x_bom_Component_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Comps_Rec_Type
1324: , x_bom_Comp_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
1325: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1326: , x_return_status IN OUT NOCOPY VARCHAR2
1327: )
1328: IS
1329: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;

Line 1332: l_Mesg_Token_tbl Error_Handler.Mesg_Token_Tbl_Type;

1328: IS
1329: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
1330: l_rev_comp_unexp_rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
1331: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
1332: l_Mesg_Token_tbl Error_Handler.Mesg_Token_Tbl_Type;
1333: BEGIN
1334:
1335: --
1336: -- The record definition of Revised Component in ECO BO is

Line 1752: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Comp Seq: ' || to_char(l_Rev_Comp_Unexp_Rec.component_sequence_id)); END IF;

1748:
1749: l_Rev_Comp_Unexp_Rec.Rowid :=
1750: p_Old_Rev_Comp_Unexp_Rec.Rowid;
1751:
1752: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Comp Seq: ' || to_char(l_Rev_Comp_Unexp_Rec.component_sequence_id)); END IF;
1753: ELSIF l_rev_component_rec.transaction_type =
1754: BOM_GLOBALS.G_OPR_CREATE
1755: THEN
1756: /***********************************************

Line 1895: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Within entity defaulting . . .'); END IF;

1891: IS
1892: BEGIN
1893:
1894: -- Load out record
1895: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Within entity defaulting . . .'); END IF;
1896:
1897: x_rev_component_rec := p_rev_component_rec;
1898:
1899: IF (p_rev_component_rec.quantity_per_assembly) IS NULL

Line 1927: IF Bom_Globals.Get_Debug = 'Y' THEN error_handler.write_debug('exiting defaulting . . .'); END IF;

1923: THEN
1924: x_rev_component_rec.maximum_allowed_quantity :=
1925: p_rev_component_rec.quantity_per_assembly;
1926: END IF;
1927: IF Bom_Globals.Get_Debug = 'Y' THEN error_handler.write_debug('exiting defaulting . . .'); END IF;
1928:
1929: END Entity_Defaulting;
1930:
1931: /******************************************************************