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_BOM_COMPONENT_UTIL dependencies on BOM_GLOBALS

Line 359: x_Return_Status := BOM_Globals.G_RECORD_FOUND;

355: AND bill_sequence_id = p_bill_sequence_id
356: AND NVL(from_end_item_unit_number, FND_API.G_MISS_CHAR) =
357: NVL(p_from_end_item_number, FND_API.G_MISS_CHAR);
358:
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;

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 394: x_return_status := BOM_Globals.G_RECORD_NOT_FOUND;

390:
391: EXCEPTION
392:
393: WHEN NO_DATA_FOUND THEN
394: x_return_status := BOM_Globals.G_RECORD_NOT_FOUND;
395: x_rev_component_rec := l_rev_component_rec;
396: x_Rev_Comp_Unexp_Rec := l_Rev_Comp_Unexp_Rec;
397:
398: WHEN OTHERS THEN

Line 480: , LAST_UPDATED_BY = BOM_Globals.Get_User_Id

476: , p_rev_component_rec.start_effective_date
477: , p_rev_component_rec.new_effectivity_date
478: )
479: , LAST_UPDATE_DATE = SYSDATE
480: , LAST_UPDATED_BY = BOM_Globals.Get_User_Id
481: , LAST_UPDATE_LOGIN = BOM_Globals.Get_User_Id
482: , ITEM_NUM = p_rev_component_rec.item_sequence_number
483: , BASIS_TYPE = decode(p_rev_component_rec.basis_type,
484: FND_API.G_MISS_NUM, null,p_rev_component_rec.basis_type)

Line 481: , LAST_UPDATE_LOGIN = BOM_Globals.Get_User_Id

477: , p_rev_component_rec.new_effectivity_date
478: )
479: , LAST_UPDATE_DATE = SYSDATE
480: , LAST_UPDATED_BY = BOM_Globals.Get_User_Id
481: , LAST_UPDATE_LOGIN = BOM_Globals.Get_User_Id
482: , ITEM_NUM = p_rev_component_rec.item_sequence_number
483: , BASIS_TYPE = decode(p_rev_component_rec.basis_type,
484: FND_API.G_MISS_NUM, null,p_rev_component_rec.basis_type)
485: , COMPONENT_QUANTITY = p_rev_component_rec.quantity_per_assembly

Line 521: , PROGRAM_ID = BOM_Globals.Get_Prog_Id

517: , INCLUDE_ON_SHIP_DOCS = p_rev_component_rec.include_on_ship_docs
518: , LOW_QUANTITY = p_rev_component_rec.minimum_allowed_quantity
519: , ACD_TYPE = p_rev_component_rec.acd_type
520: , PROGRAM_UPDATE_DATE = SYSDATE
521: , PROGRAM_ID = BOM_Globals.Get_Prog_Id
522: , OPERATION_LEAD_TIME_PERCENT = l_operation_leadtime
523: , Original_System_Reference =
524: p_rev_component_rec.original_system_reference
525: , From_End_Item_Unit_Number =

Line 650: l_Bo_Id := Bom_Globals.Get_Bo_Identifier;

646: l1_com_bill_seq_id NUMBER;
647:
648: BEGIN
649:
650: l_Bo_Id := Bom_Globals.Get_Bo_Identifier;
651:
652:
653: -- bug 2820641
654: -- BOM form : BOMFDBOM.fmb won't insert the Old_component_sequence_id.

Line 662: if l_Bo_Id = BOM_Globals.G_ECO_BO THEN

658: -- This was originally in the insert statement
659: -- It was removed so that while migrating common bill components
660: --common_component_sequence_id is populated correctly
661:
662: if l_Bo_Id = BOM_Globals.G_ECO_BO THEN
663: if (p_rev_comp_Unexp_rec.old_component_sequence_id = FND_API.G_MISS_NUM)
664: or (p_rev_comp_Unexp_rec.old_component_sequence_id is NULL) then
665: --l_old_component_sequence_id := p_rev_comp_Unexp_rec.component_sequence_id;
666: l_src_comp_seq_id := null;

Line 693: BOM_GLOBALS.GET_DEF_REV_ATTRS

689:
690: --/* added for BOM Defaulting for WEB-ADI Open Interface calls */
691:
692:
693: BOM_GLOBALS.GET_DEF_REV_ATTRS
694: ( p_bill_sequence_id => p_rev_comp_Unexp_rec.bill_sequence_id
695: , p_comp_item_id => p_rev_comp_Unexp_rec.component_item_id
696: , p_effectivity_date => nvl(p_rev_component_rec.start_effective_date,SYSDATE)
697: , x_object_revision_id => l_object_revision_id

Line 730: IF Bom_Globals.Get_Caller_Type = 'MIGRATION' THEN

726:
727: END IF;
728:
729: --Bug 7712832 changes start
730: IF Bom_Globals.Get_Caller_Type = 'MIGRATION' THEN
731:
732: l_src_comp_seq_id := Get_Src_Comp_Seq_Id(p_component_item_id => p_rev_comp_Unexp_rec.component_item_id,
733: p_bill_sequence_id => p_rev_comp_Unexp_rec.bill_sequence_id,
734: p_op_seq_num => p_rev_component_rec.operation_sequence_number,

Line 830: , BOM_Globals.Get_Prog_AppId

826: , NULL /* Cost Factor */
827: , p_rev_component_rec.required_for_revenue
828: , p_rev_component_rec.maximum_allowed_quantity
829: , p_rev_comp_Unexp_rec.component_sequence_id
830: , BOM_Globals.Get_Prog_AppId
831: , p_rev_component_rec.wip_supply_type
832: , DECODE(p_rev_comp_Unexp_rec.supply_locator_id, FND_API.G_MISS_NUM,
833: NULL, p_rev_comp_Unexp_rec.supply_locator_id)
834: , p_rev_comp_Unexp_rec.bom_item_type

Line 838: , BOM_Globals.Get_User_Id /* Last Updated By */

834: , p_rev_comp_Unexp_rec.bom_item_type
835: , l_operation_seq_num
836: , p_rev_comp_Unexp_rec.component_item_id
837: , SYSDATE /* Last Update Date */
838: , BOM_Globals.Get_User_Id /* Last Updated By */
839: , SYSDATE /* Creation Date */
840: , BOM_Globals.Get_User_Id /* Created By */
841: , BOM_Globals.Get_User_Id /* Last Update Login */
842: , DECODE(p_rev_component_rec.item_sequence_number, FND_API.G_MISS_NUM,

Line 840: , BOM_Globals.Get_User_Id /* Created By */

836: , p_rev_comp_Unexp_rec.component_item_id
837: , SYSDATE /* Last Update Date */
838: , BOM_Globals.Get_User_Id /* Last Updated By */
839: , SYSDATE /* Creation Date */
840: , BOM_Globals.Get_User_Id /* Created By */
841: , BOM_Globals.Get_User_Id /* Last Update Login */
842: , DECODE(p_rev_component_rec.item_sequence_number, FND_API.G_MISS_NUM,
843: 1, NULL,1,p_rev_component_rec.item_sequence_number)
844: , DECODE(p_rev_component_rec.basis_type,FND_API.G_MISS_NUM,

Line 841: , BOM_Globals.Get_User_Id /* Last Update Login */

837: , SYSDATE /* Last Update Date */
838: , BOM_Globals.Get_User_Id /* Last Updated By */
839: , SYSDATE /* Creation Date */
840: , BOM_Globals.Get_User_Id /* Created By */
841: , BOM_Globals.Get_User_Id /* Last Update Login */
842: , DECODE(p_rev_component_rec.item_sequence_number, FND_API.G_MISS_NUM,
843: 1, NULL,1,p_rev_component_rec.item_sequence_number)
844: , DECODE(p_rev_component_rec.basis_type,FND_API.G_MISS_NUM,
845: NULL,p_rev_component_rec.basis_type)

Line 852: Bom_Globals.G_BOM_BO,

848: , p_rev_component_rec.comments
849: , nvl(p_rev_component_rec.start_effective_date,SYSDATE) --2169237
850: , p_rev_component_rec.Eco_Name
851: , DECODE(l_Bo_Id,
852: Bom_Globals.G_BOM_BO,
853: Decode( p_rev_comp_Unexp_rec.bom_implementation_date,
854: null,
855: null,
856: SYSDATE),

Line 861: Bom_Globals.G_BOM_BO,

857: NULL
858: ) /* Implementation Date */
859: /*
860: , DECODE(l_Bo_Id,
861: Bom_Globals.G_BOM_BO,
862: SYSDATE,
863: NULL
864: ) -- Implementation Date
865: */

Line 904: , BOM_Globals.Get_Prog_Id

900: -- )
901: , l_old_component_sequence_id
902: , p_rev_comp_Unexp_rec.bill_sequence_id
903: , Fnd_Global.Conc_Request_Id /* Request Id */
904: , BOM_Globals.Get_Prog_Id
905: , SYSDATE /* program_update_date */
906: , p_rev_comp_Unexp_rec.pick_components
907: , p_rev_component_rec.original_system_reference
908: , DECODE( p_rev_component_rec.from_end_item_unit_number

Line 918: , BOM_Globals.Get_Eco_For_Production

914: , FND_API.G_MISS_CHAR
915: , null
916: , p_rev_component_rec.to_end_item_unit_number
917: )
918: , BOM_Globals.Get_Eco_For_Production
919: -- DECODE( l_Bo_Id, BOM_Globals.G_ECO_BO, l_Eco_For_Production, 2) /* Eco for Production flag */
920: , p_rev_comp_Unexp_rec.Enforce_Int_Requirements_Code
921: , p_rev_component_rec.auto_request_material -- Added in 11.5.9 by ADEY
922: , NULL-- Added by hgelli. Identifies this record as Bom Component.

Line 919: -- DECODE( l_Bo_Id, BOM_Globals.G_ECO_BO, l_Eco_For_Production, 2) /* Eco for Production flag */

915: , null
916: , p_rev_component_rec.to_end_item_unit_number
917: )
918: , BOM_Globals.Get_Eco_For_Production
919: -- DECODE( l_Bo_Id, BOM_Globals.G_ECO_BO, l_Eco_For_Production, 2) /* Eco for Production flag */
920: , p_rev_comp_Unexp_rec.Enforce_Int_Requirements_Code
921: , p_rev_component_rec.auto_request_material -- Added in 11.5.9 by ADEY
922: , NULL-- Added by hgelli. Identifies this record as Bom Component.
923: , p_rev_comp_Unexp_rec.component_item_id

Line 943: IF Bom_Globals.Get_Caller_Type = 'MIGRATION' THEN

939: -- this is required since migrator data cannot use 'enable_attrs_update' since
940: -- it contains data corresponding to updatable common bom from the source instance
941: -- and does not expect the program to automatically create the record
942:
943: IF Bom_Globals.Get_Caller_Type = 'MIGRATION' THEN
944: select source_bill_sequence_id, common_bill_sequence_id into
945: l1_src_bill_seq_id, l1_com_bill_seq_id from bom_structures_b
946: where bill_sequence_id = p_rev_comp_Unexp_rec.bill_sequence_id;
947: --if the following condition is true and you are here it means you have an updatable common bill

Line 962: IF Bom_Globals.Get_Caller_Type <> 'MIGRATION' THEN --Bug 7713832

958: --For non-referencing common boms.
959: --should only be visited if the caller is not migrator
960: --since extract is going to contain corresponding data
961:
962: IF Bom_Globals.Get_Caller_Type <> 'MIGRATION' THEN --Bug 7713832
963: BOMPCMBM.Insert_Related_Components( p_src_bill_seq_id => p_rev_comp_Unexp_rec.bill_sequence_id
964: , p_src_comp_seq_id => p_rev_comp_Unexp_rec.component_sequence_id
965: , x_Mesg_Token_Tbl => x_Mesg_Token_Tbl
966: , x_Return_Status => x_Return_Status

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

977: FND_MESSAGE.SET_NAME('BOM', 'BOM_COMPONENT_DUPLICATE');
978: APP_EXCEPTION.RAISE_EXCEPTION;
979: --end changes Bug 9076970
980: WHEN OTHERS THEN
981: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Unexpected Error occured in Insert . . .' || SQLERRM); END IF;
982:
983: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
984: THEN
985: l_err_text := G_PKG_NAME ||

Line 1057: IF Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO

1053: l_rev_component_rec := p_rev_component_rec ;
1054: l_rev_comp_unexp_rec := p_rev_comp_unexp_rec ;
1055: x_return_status := FND_API.G_RET_STS_SUCCESS;
1056:
1057: IF Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO
1058: THEN
1059:
1060: DELETE FROM BOM_INVENTORY_COMPONENTS
1061: WHERE COMPONENT_SEQUENCE_ID = p_rev_comp_unexp_rec.component_sequence_id;

Line 1091: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Deleting componenets for non-referencing bom . . .' ); END IF;

1087: -- p_component_sequence_id ;
1088:
1089: --Bug 9356298 start
1090: --For non-referencing common boms.
1091: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Deleting componenets for non-referencing bom . . .' ); END IF;
1092: BOMPCMBM.Delete_Related_Components(p_src_comp_seq => p_rev_comp_unexp_rec.component_sequence_id);
1093: --Bug 9356298 end
1094:
1095: -- In Bom BO, the user is not allowed to delete components directly.

Line 1097: ELSIF Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_BOM_BO

1093: --Bug 9356298 end
1094:
1095: -- In Bom BO, the user is not allowed to delete components directly.
1096: -- The user can use delete group functionality for deleting components.
1097: ELSIF Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_BOM_BO
1098: THEN
1099:
1100:
1101: FOR DG IN CheckGroup

Line 1154: user_id => BOM_Globals.Get_User_Id

1150: ent_inv_item_id => l_rev_comp_unexp_rec.revised_item_id,
1151: ent_alt_designator => l_rev_component_rec.alternate_bom_code,
1152: ent_comp_seq_id => l_rev_comp_unexp_rec.component_sequence_id,
1153: ent_op_seq_id => NULL,
1154: user_id => BOM_Globals.Get_User_Id
1155: );
1156:
1157: BOMPCMBM.Delete_Related_Pending_Comps(p_src_comp_seq_id => p_rev_comp_unexp_rec.component_sequence_id
1158: , x_Return_Status => x_Return_Status);

Line 1423: IF l_Rev_Component_Rec.Transaction_Type = BOM_GLOBALS.G_OPR_CREATE THEN

1419: l_Token_Tbl(1).Token_Name := 'REVISED_COMPONENT_NAME';
1420: l_Token_Tbl(1).Token_Value := l_rev_component_rec.component_item_name;
1421:
1422:
1423: IF l_Rev_Component_Rec.Transaction_Type = BOM_GLOBALS.G_OPR_CREATE THEN
1424:
1425: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Test Harness: Executing Insert Row. . . '); END IF;
1426:
1427: IF Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO

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

1421:
1422:
1423: IF l_Rev_Component_Rec.Transaction_Type = BOM_GLOBALS.G_OPR_CREATE THEN
1424:
1425: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Test Harness: Executing Insert Row. . . '); END IF;
1426:
1427: IF Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO
1428: THEN
1429: FOR CheckBillExists IN c_CheckBillExists LOOP

Line 1427: IF Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO

1423: IF l_Rev_Component_Rec.Transaction_Type = BOM_GLOBALS.G_OPR_CREATE THEN
1424:
1425: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Test Harness: Executing Insert Row. . . '); END IF;
1426:
1427: IF Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO
1428: THEN
1429: FOR CheckBillExists IN c_CheckBillExists LOOP
1430: -- Loop executes then the bill does not exist.
1431: -- Procedure Create_New_Bill

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

1484: , p_message_type => 'W' -- Parameter added as fix for Bug - 3267190
1485: );
1486: END IF;
1487:
1488: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('BOM_Component_Util: Creating New Bill. . . ');
1489: END IF;
1490: Bom_Bom_Component_Util.Create_New_Bill
1491: ( p_assembly_item_id =>
1492: l_rev_comp_unexp_rec.revised_item_id

Line 1503: , p_last_updated_by => BOM_Globals.Get_User_Id

1499: , p_common_bill_sequence_id =>
1500: l_rev_comp_unexp_rec.bill_sequence_id
1501: , p_assembly_type => l_assembly_type
1502: , p_last_update_date => SYSDATE
1503: , p_last_updated_by => BOM_Globals.Get_User_Id
1504: , p_creation_date => SYSDATE
1505: , p_created_by => BOM_Globals.Get_User_Id
1506: , p_revised_item_seq_id =>
1507: l_rev_comp_unexp_rec.revised_item_sequence_id

Line 1505: , p_created_by => BOM_Globals.Get_User_Id

1501: , p_assembly_type => l_assembly_type
1502: , p_last_update_date => SYSDATE
1503: , p_last_updated_by => BOM_Globals.Get_User_Id
1504: , p_creation_date => SYSDATE
1505: , p_created_by => BOM_Globals.Get_User_Id
1506: , p_revised_item_seq_id =>
1507: l_rev_comp_unexp_rec.revised_item_sequence_id
1508: , p_original_system_reference =>
1509: l_rev_component_rec.original_system_reference);

Line 1529: If l_bom_item_type = BOM_Globals.G_PRODUCT_FAMILY Then

1525: FROM MTL_SYSTEM_ITEMS_B
1526: WHERE INVENTORY_ITEM_ID = l_rev_comp_unexp_rec.revised_item_id
1527: AND ORGANIZATION_ID = l_rev_comp_unexp_rec.organization_id;
1528:
1529: If l_bom_item_type = BOM_Globals.G_PRODUCT_FAMILY Then
1530: Product_Family_PKG.Update_PF_Item_Id
1531: (X_Inventory_Item_Id => l_Rev_Comp_Unexp_Rec.component_item_id,
1532: X_Organization_Id => l_rev_comp_unexp_rec.organization_id,
1533: X_PF_Item_Id => l_rev_comp_unexp_rec.revised_item_id,

Line 1547: ELSIF l_Rev_Component_Rec.Transaction_Type = BOM_GLOBALS.G_OPR_UPDATE

1543: FND_MESSAGE.SET_TOKEN('ENTITY', err_text);
1544: APP_EXCEPTION.RAISE_EXCEPTION;
1545: End;
1546: End if;
1547: ELSIF l_Rev_Component_Rec.Transaction_Type = BOM_GLOBALS.G_OPR_UPDATE
1548: THEN
1549:
1550: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Test Harness: Executing Update Row. . . '); END IF;
1551:

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

1546: End if;
1547: ELSIF l_Rev_Component_Rec.Transaction_Type = BOM_GLOBALS.G_OPR_UPDATE
1548: THEN
1549:
1550: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Test Harness: Executing Update Row. . . '); END IF;
1551:
1552: Update_Row
1553: ( p_Rev_component_rec => l_Rev_Component_Rec
1554: , p_Rev_Comp_Unexp_Rec => l_Rev_Comp_Unexp_Rec

Line 1558: ELSIF l_Rev_Component_Rec.Transaction_Type = BOM_GLOBALS.G_OPR_DELETE

1554: , p_Rev_Comp_Unexp_Rec => l_Rev_Comp_Unexp_Rec
1555: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1556: , x_return_status => l_Return_Status
1557: );
1558: ELSIF l_Rev_Component_Rec.Transaction_Type = BOM_GLOBALS.G_OPR_DELETE
1559: THEN
1560:
1561: -- dbms_output.put_line('Test Harness: Executing Delete Row. . . ');
1562:

Line 1580: ELSIF l_Rev_Component_Rec.Transaction_Type = BOM_GLOBALS.G_OPR_CANCEL

1576: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1577: , x_return_status => l_Return_Status
1578: );
1579:
1580: ELSIF l_Rev_Component_Rec.Transaction_Type = BOM_GLOBALS.G_OPR_CANCEL
1581: THEN
1582: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Perform Cancel Component . . .'); END IF;
1583:
1584: --

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

1578: );
1579:
1580: ELSIF l_Rev_Component_Rec.Transaction_Type = BOM_GLOBALS.G_OPR_CANCEL
1581: THEN
1582: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Perform Cancel Component . . .'); END IF;
1583:
1584: --
1585: -- Fetch Component Sequence Id
1586: --

Line 1617: BOM_Globals.Get_User_ID

1613: l_comp_seq_id
1614: , p_cancel_comments =>
1615: l_rev_component_rec.cancel_comments
1616: , p_user_id =>
1617: BOM_Globals.Get_User_ID
1618: , p_login_id =>
1619: BOM_Globals.Get_Login_ID
1620: );
1621:

Line 1619: BOM_Globals.Get_Login_ID

1615: l_rev_component_rec.cancel_comments
1616: , p_user_id =>
1617: BOM_Globals.Get_User_ID
1618: , p_login_id =>
1619: BOM_Globals.Get_Login_ID
1620: );
1621:
1622: END IF;
1623:

Line 1628: IF l_Rev_Component_Rec.Transaction_Type = BOM_GLOBALS.G_OPR_CREATE

1624: /********************************************************************
1625: -- If the structure type is Packaging Hierarchy the we will do the
1626: -- following operations.
1627: ********************************************************************/
1628: IF l_Rev_Component_Rec.Transaction_Type = BOM_GLOBALS.G_OPR_CREATE
1629: OR l_Rev_Component_Rec.Transaction_Type = BOM_GLOBALS.G_OPR_UPDATE
1630: OR l_Rev_Component_Rec.Transaction_Type = BOM_GLOBALS.G_OPR_DELETE
1631: THEN
1632: SELECT STRUCTURE_TYPE_NAME,

Line 1629: OR l_Rev_Component_Rec.Transaction_Type = BOM_GLOBALS.G_OPR_UPDATE

1625: -- If the structure type is Packaging Hierarchy the we will do the
1626: -- following operations.
1627: ********************************************************************/
1628: IF l_Rev_Component_Rec.Transaction_Type = BOM_GLOBALS.G_OPR_CREATE
1629: OR l_Rev_Component_Rec.Transaction_Type = BOM_GLOBALS.G_OPR_UPDATE
1630: OR l_Rev_Component_Rec.Transaction_Type = BOM_GLOBALS.G_OPR_DELETE
1631: THEN
1632: SELECT STRUCTURE_TYPE_NAME,
1633: ASSEMBLY_ITEM_ID,

Line 1630: OR l_Rev_Component_Rec.Transaction_Type = BOM_GLOBALS.G_OPR_DELETE

1626: -- following operations.
1627: ********************************************************************/
1628: IF l_Rev_Component_Rec.Transaction_Type = BOM_GLOBALS.G_OPR_CREATE
1629: OR l_Rev_Component_Rec.Transaction_Type = BOM_GLOBALS.G_OPR_UPDATE
1630: OR l_Rev_Component_Rec.Transaction_Type = BOM_GLOBALS.G_OPR_DELETE
1631: THEN
1632: SELECT STRUCTURE_TYPE_NAME,
1633: ASSEMBLY_ITEM_ID,
1634: ORGANIZATION_ID,

Line 1672: IF l_Rev_Component_Rec.Transaction_Type = BOM_GLOBALS.G_OPR_CREATE THEN

1668: l_return_status := FND_API.G_RET_STS_ERROR;
1669: RETURN;
1670: END IF;
1671:
1672: IF l_Rev_Component_Rec.Transaction_Type = BOM_GLOBALS.G_OPR_CREATE THEN
1673:
1674: BOM_GTIN_RULES.Update_Top_GTIN (
1675: p_organization_id => l_Organization_Id
1676: ,p_component_item_id => l_Rev_Comp_Unexp_Rec.component_item_id

Line 1763: if bom_globals.get_debug = 'Y'

1759: l_effectivity_control NUMBER;
1760: -- End bug 4550996
1761: BEGIN
1762:
1763: if bom_globals.get_debug = 'Y'
1764: then
1765: error_handler.write_debug('Rev_Comps: default structure type_id for alt: ' || p_alternate_bom_code);
1766: end if;
1767:

Line 1787: if bom_globals.get_debug = 'Y'

1783:
1784: end loop;
1785: end if;
1786:
1787: if bom_globals.get_debug = 'Y'
1788: then
1789: error_handler.write_debug('Rev_Comps: defaulted structure type id: ' || l_structure_type_id);
1790: end if;
1791:

Line 1796: IF bom_globals.get_debug = 'Y' THEN

1792: -- Added for fix of bug 4550996
1793: OPEN c_effectivity_control;
1794: FETCH c_effectivity_control INTO l_effectivity_control;
1795: CLOSE c_effectivity_control;
1796: IF bom_globals.get_debug = 'Y' THEN
1797: Error_handler.Write_debug('Rev_Comps: defaulted effectivity control: ' || l_effectivity_control);
1798: END IF;
1799: -- End fix of bug 4550996
1800: