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 559: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

555: , p_control_rec IN Bom_Bo_Pub.Control_Rec_Type
556: := Bom_Bo_Pub.G_DEFAULT_CONTROL_REC
557: , x_rev_component_rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Component_Rec_Type
558: , x_Rev_Comp_Unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
559: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
560: , x_Return_Status IN OUT NOCOPY VARCHAR2
561: )
562: IS
563: l_pick_components NUMBER := 0;

Line 565: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

561: )
562: IS
563: l_pick_components NUMBER := 0;
564: l_to_end_item_unit_number VARCHAR2(30) := NULL;
565: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
566: l_Token_Tbl Error_Handler.Token_Tbl_Type;
567: l_default_wip_values NUMBER;
568: l_assy_item_type NUMBER; --* Added for Bug 4568522
569: CURSOR default_wip_values IS

Line 566: l_Token_Tbl Error_Handler.Token_Tbl_Type;

562: IS
563: l_pick_components NUMBER := 0;
564: l_to_end_item_unit_number VARCHAR2(30) := NULL;
565: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
566: l_Token_Tbl Error_Handler.Token_Tbl_Type;
567: l_default_wip_values NUMBER;
568: l_assy_item_type NUMBER; --* Added for Bug 4568522
569: CURSOR default_wip_values IS
570: SELECT wip_supply_type,

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

574: WHERE inventory_item_id = p_rev_comp_unexp_rec.component_item_id
575: AND organization_id = p_rev_comp_unexp_rec.organization_id;
576: BEGIN
577:
578: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Within the Rev. Component Defaulting...'); END IF;
579:
580: -- Initialize package global records
581:
582: g_rev_component_rec := p_rev_component_rec;

Line 617: 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;

613: IF g_Rev_Comp_Unexp_rec.bill_sequence_id IS NULL THEN
614:
615: g_Rev_Comp_Unexp_Rec.bill_sequence_id :=
616: get_bill_sequence;
617: 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;
618: END IF;
619:
620: /*********************************************************
621: --

Line 659: Error_Handler.Add_Error_Token

655: AND l_to_end_item_unit_number IS NOT NULL
656: THEN
657: l_Token_Tbl(1).Token_Name := 'REVISED_COMPONENT_NAME';
658: l_Token_Tbl(1).Token_Value := g_rev_component_rec.component_item_name;
659: Error_Handler.Add_Error_Token
660: ( p_Message_Name => 'BOM_COMP_END_UNIT_OVERWRITTEN'
661: , p_Mesg_Token_Tbl => l_mesg_token_tbl
662: , x_Mesg_Token_Tbl => l_mesg_token_tbl
663: , p_Token_Tbl => l_token_tbl

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

668: g_rev_component_rec.to_end_item_unit_number :=
669: l_to_end_item_unit_number;
670: END IF;
671:
672: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After defaulting to_end_item_unit_num..'); END IF;
673:
674: --* Added for Bug 4568522
675: SELECT Bom_Item_Type
676: INTO l_assy_item_type

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

719: END IF;
720: END IF;
721: --* End of Bug 4568522
722:
723: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After defaulting item num . . . '); END IF;
724:
725: /**********************************************************
726: --
727: -- Default Operation_Seq_Num

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

742: THEN
743: g_rev_component_rec.new_operation_sequence_number := null;
744: END IF;
745:
746: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After defaulting operation seq num...'); END IF;
747:
748: IF g_rev_component_rec.acd_type = 3 AND
749: g_rev_component_rec.disable_date IS NULL
750: THEN

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

751: g_rev_component_rec.disable_date :=
752: g_rev_component_rec.start_effective_date;
753: END IF;
754:
755: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After defaulting disable_date...'); END IF;
756: END IF;
757:
758: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After defaulting operation seq num...'); END IF;
759:

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

754:
755: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After defaulting disable_date...'); END IF;
756: END IF;
757:
758: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After defaulting operation seq num...'); END IF;
759:
760: /************************************************************
761: --
762: -- Default Component_Quantity

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

773: round(g_rev_component_rec.quantity_per_assembly, 7);
774: */
775: END IF;
776:
777: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After defaulting component qunatity...'); END IF;
778:
779: /************************************************************
780: --
781: -- Default Pick_Components

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

788: g_Rev_Comp_Unexp_Rec.pick_components :=
789: Get_Pick_Components;
790: END IF;
791:
792: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After defaulting pick components . . .'); END IF;
793:
794: /*************************************************************
795: --
796: -- Default Effectivity Date

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

822: IF g_rev_component_rec.disable_date = FND_API.G_MISS_DATE THEN
823: g_rev_component_rec.disable_date := NULL;
824: END IF;
825:
826: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After Effectivity Defaulted . . .'); END IF;
827:
828: /************************************************************
829: --
830: -- Default Planning Factor (Planning_Percent)

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

877: g_rev_component_rec.mutually_exclusive :=
878: Get_Mutually_Exclusive;
879: END IF;
880:
881: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After Mutually Exclusive defualting...'); END IF;
882:
883:
884: -- Added extra IF condition for component_item_id to accomodate
885: -- records that come in thru the ECO form.

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

900: g_rev_component_rec.include_in_cost_rollup :=
901: Get_Include_In_Cost_Rollup;
902: END IF;
903:
904: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After include in cost rollup defualting . . . '); END IF;
905:
906: /***********************************************************
907: --
908: -- Default Check_ATP

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

913: THEN
914: g_rev_component_rec.check_atp := Get_Check_Atp;
915: END IF;
916:
917: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After Check ATP Defualted . . . '); END IF;
918:
919: IF g_rev_comp_Unexp_rec.bom_item_type IS NULL OR
920: g_rev_comp_unexp_rec.bom_item_type = FND_API.G_MISS_NUM
921: THEN

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

933: g_rev_component_rec.projected_yield :=
934: Get_Component_Yield_Factor;
935: END IF;
936:
937: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After defaulting component yeild factor . . .'); END IF;
938:
939: END IF;
940:
941: -- Defaulting used by the ECO form

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

989: g_rev_component_rec.supply_subinventory := NULL;
990: g_Rev_Comp_Unexp_Rec.Supply_Locator_Id := NULL;
991: END IF;
992:
993: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Subinventory . . . ' || g_rev_component_rec.supply_subinventory ); END IF;
994:
995:
996: /*********************************************************
997: --

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

1111: THEN
1112: g_rev_comp_unexp_rec.supply_locator_id := NULL;
1113: END IF;
1114:
1115: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Attribute defaulting enforce_int_requirements_code...'); END IF;
1116:
1117: /* bug2758790, form defaults the enforce req code to 0 and value to 'none' */
1118:
1119: IF( g_rev_comp_unexp_rec.enforce_int_requirements_code = FND_API.G_MISS_NUM

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

1122: THEN
1123: g_rev_comp_unexp_rec.enforce_int_requirements_code := 0;
1124: END IF;
1125:
1126: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Attribute defaulting enforce_int_requirements...'); END IF;
1127: IF (g_rev_component_rec.enforce_int_requirements = FND_API.G_MISS_CHAR
1128: or g_rev_component_rec.enforce_int_requirements is NULL)
1129: AND l_assy_item_type <> Bom_Globals.G_PRODUCT_FAMILY --* Added for Bug 4568522
1130: THEN

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

1164:
1165: x_rev_component_rec := g_rev_component_rec;
1166: x_Rev_Comp_Unexp_Rec := g_Rev_Comp_Unexp_Rec;
1167:
1168: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Getting out of Attribute Defualting...'); END IF;
1169:
1170: END Attribute_Defaulting;
1171:
1172: /*********************************************************************

Line 1190: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

1186: ( p_bom_component_rec IN Bom_Bo_Pub.Bom_Comps_Rec_Type
1187: , p_bom_Comp_unexp_rec IN Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
1188: , x_bom_Component_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Comps_Rec_Type
1189: , x_bom_Comp_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
1190: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1191: , x_return_status IN OUT NOCOPY VARCHAR2
1192: )
1193: IS
1194: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;

Line 1197: l_Mesg_Token_tbl Error_Handler.Mesg_Token_Tbl_Type;

1193: IS
1194: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
1195: l_rev_comp_unexp_rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
1196: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
1197: l_Mesg_Token_tbl Error_Handler.Mesg_Token_Tbl_Type;
1198: BEGIN
1199:
1200: --
1201: -- The record definition of Revised Component in ECO BO is

Line 1617: 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;

1613:
1614: l_Rev_Comp_Unexp_Rec.Rowid :=
1615: p_Old_Rev_Comp_Unexp_Rec.Rowid;
1616:
1617: 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;
1618: ELSIF l_rev_component_rec.transaction_type =
1619: BOM_GLOBALS.G_OPR_CREATE
1620: THEN
1621: /***********************************************

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

1755: IS
1756: BEGIN
1757:
1758: -- Load out record
1759: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Within entity defaulting . . .'); END IF;
1760:
1761: x_rev_component_rec := p_rev_component_rec;
1762:
1763: IF (p_rev_component_rec.quantity_per_assembly) IS NULL

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

1787: THEN
1788: x_rev_component_rec.maximum_allowed_quantity :=
1789: p_rev_component_rec.quantity_per_assembly;
1790: END IF;
1791: IF Bom_Globals.Get_Debug = 'Y' THEN error_handler.write_debug('exiting defaulting . . .'); END IF;
1792:
1793: END Entity_Defaulting;
1794:
1795: /******************************************************************