[Home] [Help]
430: x_return_status := FND_API.G_RET_STS_SUCCESS;
431: l_bom_header_unexp_rec := p_bom_header_unexp_rec;
432:
433:
434: If Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Bom Header UUI-UI Conversion . . '); END IF;
435:
436:
437: --
438: -- Assembly Item name cannot be NULL or missing.
490: );
491: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
492: END IF;
493:
494: If Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After converting Assembly name ' || to_char(l_bom_header_unexp_rec.assembly_item_id) || ' Status ' || l_return_status); END IF;
495:
496: IF p_bom_header_rec.alternate_bom_code IS NOT NULL AND
497: p_bom_header_rec.alternate_bom_code <> FND_API.G_MISS_CHAR
498: THEN
563: l_src_bill_sequence_id NUMBER;
564:
565: BEGIN
566:
567: If Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Header VID conversion . . . ');
568: END IF;
569: IF p_bom_header_rec.common_organization_code IS NOT NULL AND
570: p_bom_header_rec.common_organization_code <>
571: FND_API.G_MISS_CHAR
599: l_bom_head_unexp_rec.common_organization_id :=
600: l_bom_head_unexp_rec.organization_id;
601: END IF;
602:
603: If Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Common Org Converted . . .'); END IF;
604:
605: IF p_bom_header_rec.common_assembly_item_name IS NOT NULL AND
606: p_bom_header_rec.common_assembly_item_name <>
607: FND_API.G_MISS_CHAR
643: l_return_status :=FND_API.G_RET_STS_UNEXP_ERROR;
644: END IF;
645: END IF;
646:
647: If Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Converted common assembly name . . .'); end if;
648:
649: --
650: -- Convert common org code and common assembly name information
651: -- into common bill sequence_id
700: );
701: l_return_status := FND_API.G_RET_STS_ERROR;
702: END IF;
703: END IF;
704: If Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Converted common bill sequence id. . .'); end if;
705:
706: IF Bom_Globals.Get_Debug = 'Y' THEN
707: Error_Handler.Write_Debug('Structure Type Name VID conversion . . . ');
708: END IF;
702: END IF;
703: END IF;
704: If Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Converted common bill sequence id. . .'); end if;
705:
706: IF Bom_Globals.Get_Debug = 'Y' THEN
707: Error_Handler.Write_Debug('Structure Type Name VID conversion . . . ');
708: END IF;
709:
710: IF ( p_bom_header_rec.structure_type_name IS NOT NULL AND
727: l_return_status := FND_API.G_RET_STS_ERROR;
728: END IF; -- end if l_bom_head_unexp_rec.structure_type_id IS NULL
729: END IF; -- end if p_bom_header_rec.structure_type_name IS NOT NULL
730:
731: If Bom_Globals.Get_Debug = 'Y' THEN
732: Error_Handler.Write_Debug('Converted Structure Type ID . . . ');
733: END IF;
734:
735: x_return_status := l_return_status;
733: END IF;
734:
735: x_return_status := l_return_status;
736:
737: If Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Return status of Header VID: ' || l_return_status ); end if;
738:
739: x_bom_head_unexp_rec := l_bom_head_unexp_rec;
740: x_mesg_token_tbl := l_mesg_token_tbl;
741:
883: IS
884: l_id NUMBER;
885: BEGIN
886:
887: IF Bom_Globals.Get_Debug = 'Y' THEN
888: Error_Handler.Write_Debug('Old Operation: ' || to_char(p_old_op_seq_num));
889: Error_Handler.Write_Debug('Bill Sequence: ' || to_char(p_bill_sequence_id));
890: Error_Handler.Write_Debug('Old Effective: ' || to_char(p_old_effective_date));
891: END IF;
1183:
1184: --
1185: -- Convert Location_Name to Location_Id
1186: --
1187: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Executing Location Val-ID conversion . . .'); END IF;
1188:
1189: IF p_rev_component_rec.location_name IS NOT NULL AND
1190: p_rev_component_rec.location_name <> FND_API.G_MISS_CHAR
1191: THEN
1228:
1229: --
1230: -- Using old_component information, get the old_component_sequence_id
1231: --
1232: IF Bom_Globals.Get_Debug = 'Y' THEN
1233: Error_Handler.Write_Debug('Executing old_Comp_seqid Val-ID conversion . . .');
1234: Error_Handler.Write_Debug('Bill Sequence: ' || to_char(l_rev_comp_unexp_rec.bill_sequence_id));
1235: END IF;
1236:
1303: -- dbms_output.put_line('Item Revision: ' ||
1304: -- p_rev_component_rec.new_revised_item_revision);
1305: -- dbms_output.put_line('Change Notice: ' || p_rev_component_rec.eco_name);
1306:
1307: IF Bom_Globals.Get_Bo_Identifier <> 'BOM'
1308: THEN
1309:
1310: NULL ;
1311:
1389: END IF;
1390:
1391: x_return_status := l_Return_status;
1392:
1393: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('returning from comp vid with ' || l_Return_status); END IF;
1394:
1395: x_mesg_token_tbl := l_Mesg_Token_Tbl;
1396: x_rev_comp_unexp_rec := l_rev_comp_unexp_rec;
1397:
1451: );
1452: l_Return_Status := FND_API.G_RET_STS_ERROR;
1453: END IF;
1454:
1455: IF (p_rev_component_rec.transaction_type <> BOM_globals.G_OPR_CREATE) AND
1456: (p_rev_component_rec.operation_sequence_number IS NULL OR
1457: p_rev_component_rec.operation_sequence_number = FND_API.G_MISS_NUM)
1458: THEN
1459: Error_Handler.Add_Error_Token
1521: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
1522: x_rev_comp_unexp_rec := l_rev_comp_unexp_rec;
1523: x_Return_Status := l_Return_Status;
1524:
1525: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Returning from Rev_Component_UUI_To_UI with ' || l_Return_Status); END IF;
1526:
1527: END Rev_Component_UUI_To_UI;
1528:
1529: /*****************************************************************
1596: g_Token_Tbl(1).Token_Value := p_rev_component_rec.revised_item_name;
1597: g_token_tbl(2).token_name := 'ORGANIZATION_CODE';
1598: g_token_tbl(2).token_value := p_rev_component_rec.organization_code;
1599:
1600: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Converting assembly item ' || p_rev_component_rec.revised_item_name); END IF;
1601:
1602: l_rev_comp_unexp_rec.revised_item_id :=
1603: Revised_Item( p_revised_item_num =>
1604: p_rev_component_rec.revised_item_name
1641: /* Set the system information record values for assembly_item_id
1642: and org_id. These values will be used for validating serial effective
1643: assemblies */
1644:
1645: Bom_Globals.Set_Org_Id (l_rev_comp_unexp_rec.organization_id);
1646: Bom_Globals.Set_Assembly_Item_Id (l_rev_comp_unexp_rec.revised_item_id);
1647:
1648: /****************************************************************
1649: --
1642: and org_id. These values will be used for validating serial effective
1643: assemblies */
1644:
1645: Bom_Globals.Set_Org_Id (l_rev_comp_unexp_rec.organization_id);
1646: Bom_Globals.Set_Assembly_Item_Id (l_rev_comp_unexp_rec.revised_item_id);
1647:
1648: /****************************************************************
1649: --
1650: -- Using the revised item key information, get the bill_sequence_id
1650: -- Using the revised item key information, get the bill_sequence_id
1651: -- and revised item sequence id
1652: --
1653: ****************************************************************/
1654: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Processing UUI_UI2 for components and retrieving rev item seq id . . . '); END IF;
1655:
1656: IF Bom_Globals.Get_Bo_Identifier <> 'BOM'
1657: THEN
1658: NULL ;
1652: --
1653: ****************************************************************/
1654: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Processing UUI_UI2 for components and retrieving rev item seq id . . . '); END IF;
1655:
1656: IF Bom_Globals.Get_Bo_Identifier <> 'BOM'
1657: THEN
1658: NULL ;
1659:
1660: /* Following getting revised_item_sequence_id moved to Engineering
1709: x_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
1710: x_other_token_tbl(1).token_value :=
1711: p_rev_component_rec.component_item_name;
1712:
1713: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('And this call returned with ' || l_Return_Status); END IF;
1714:
1715: RETURN;
1716:
1717: END IF;
1720: ELSE
1721: --
1722: -- If the calling BO is BOM then get the bill sequence id
1723: --
1724: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Getting bill_seq for assembly item ' || l_rev_comp_unexp_rec.revised_item_id); END IF;
1725:
1726: l_rev_comp_unexp_rec.bill_sequence_id :=
1727: bill_sequence_id(p_assembly_item_id =>
1728: l_rev_comp_unexp_rec.revised_item_id,
1762: END IF;
1763:
1764: /* Get the BOM Implementation date */
1765:
1766: IF Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_BOM_BO
1767: THEN
1768: l_rev_comp_unexp_rec.bom_implementation_date :=
1769: Get_BOM_Implementation_Date
1770: ( p_bill_seq_id => l_rev_comp_unexp_rec.bill_Sequence_id);
1774:
1775: Error_Handler.Write_Debug('BOM Implementation date is '||l_rev_comp_unexp_rec.bom_implementation_date);
1776:
1777: IF p_rev_component_rec.transaction_type IN
1778: ( BOM_Globals.G_OPR_UPDATE, BOM_globals.G_OPR_DELETE,
1779: BOM_Globals.G_OPR_CANCEL
1780: ) AND
1781: l_rev_comp_unexp_rec.bill_sequence_id IS NULL
1782: AND Bom_Globals.Get_Bo_Identifier <> Bom_Globals.G_ECO_BO -- Added by MK on 12/03/00
1775: Error_Handler.Write_Debug('BOM Implementation date is '||l_rev_comp_unexp_rec.bom_implementation_date);
1776:
1777: IF p_rev_component_rec.transaction_type IN
1778: ( BOM_Globals.G_OPR_UPDATE, BOM_globals.G_OPR_DELETE,
1779: BOM_Globals.G_OPR_CANCEL
1780: ) AND
1781: l_rev_comp_unexp_rec.bill_sequence_id IS NULL
1782: AND Bom_Globals.Get_Bo_Identifier <> Bom_Globals.G_ECO_BO -- Added by MK on 12/03/00
1783: THEN
1778: ( BOM_Globals.G_OPR_UPDATE, BOM_globals.G_OPR_DELETE,
1779: BOM_Globals.G_OPR_CANCEL
1780: ) AND
1781: l_rev_comp_unexp_rec.bill_sequence_id IS NULL
1782: AND Bom_Globals.Get_Bo_Identifier <> Bom_Globals.G_ECO_BO -- Added by MK on 12/03/00
1783: THEN
1784: l_return_status := FND_API.G_RET_STS_ERROR;
1785:
1786: g_Token_Tbl(1).Token_Name := 'REVISED_ITEM_NAME';
1803:
1804: RETURN;
1805: END IF;
1806:
1807: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Processing UUI_UI2 for components and retrieving enforce integer requirements code . . . '); END IF;
1808:
1809: IF p_rev_component_rec.enforce_int_requirements IS NOT NULL AND
1810: p_rev_component_rec.enforce_int_requirements <> FND_API.G_MISS_CHAR
1811: THEN
1884:
1885: IF ( p_sub_component_rec.acd_type IS NULL OR
1886: p_sub_component_rec.acd_type NOT IN (1, 3)
1887: ) AND
1888: Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO
1889: THEN
1890: Error_Handler.Add_Error_Token
1891: ( p_Message_Name => 'BOM_SBC_ACD_TYPE_INVALID'
1892: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2009: *********************************************************************/
2010:
2011: IF ( p_Sub_Component_Rec.new_substitute_component_name is not null
2012: AND p_sub_component_rec.substitute_component_name <> FND_API.G_MISS_CHAR
2013: and p_sub_component_rec.transaction_type = Bom_Globals.G_OPR_UPDATE)
2014: THEN
2015: l_sub_comp_unexp_rec.new_substitute_component_id :=
2016: Substitute_Component( p_substitute_component =>
2017: p_sub_component_rec.new_substitute_component_name
2247: dbms_output.put_line('Component Id: '|| l_sub_comp_unexp_rec.component_item_id);
2248: dbms_output.put_line('Rev: ' || p_sub_component_rec.new_revised_item_revision);
2249: dbms_output.put_line('Eff.Date: ' || p_sub_component_rec.start_effective_date);
2250: */
2251: IF Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO
2252: THEN
2253: NULL ;
2254:
2255: /* Following getting revised_item_sequence_id moved to Engineering
2315: ELSE
2316: --
2317: -- If the calling BO is BOM then get the bill sequence id
2318: --
2319: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Getting bill_seq for assembly item ' || l_sub_comp_unexp_rec.revised_item_id); END IF;
2320:
2321: l_sub_comp_unexp_rec.bill_sequence_id :=
2322: bill_sequence_id(p_assembly_item_id =>
2323: l_sub_comp_unexp_rec.revised_item_id,
2378: l_sub_comp_unexp_rec.bill_sequence_id
2379: , x_err_text => l_Err_Text
2380: );
2381:
2382: if bom_globals.get_debug = 'Y' then Error_Handler.write_debug('Sub Comp: Component sequence ' || l_sub_comp_unexp_rec.component_sequence_id); END IF;
2383:
2384: IF l_sub_comp_unexp_rec.component_sequence_id IS NULL
2385: THEN
2386: g_Token_Tbl(1).Token_Name := 'REVISED_COMPONENT_NAME';
2412: g_Token_Tbl.Delete;
2413: END IF;
2414: END IF; -- If-Else BO Is ECO Ends -- Added by MK on 12/03/00
2415:
2416: /*if bom_globals.get_debug = 'Y' then Error_Handler.write_debug('Sub Comp: Checking for editable common bill...'); END IF;
2417:
2418: BEGIN
2419: SELECT 1
2420: INTO l_dummy
2440: END;
2441:
2442: */
2443:
2444: if bom_globals.get_debug = 'Y' then Error_Handler.write_debug('Sub Comp: Enforce Int Requirements ' || p_sub_component_rec.enforce_int_requirements); END IF;
2445:
2446: IF p_sub_component_rec.enforce_int_requirements IS NOT NULL AND
2447: p_sub_component_rec.enforce_int_requirements <> FND_API.G_MISS_CHAR
2448: THEN
2450: l_sub_comp_unexp_rec.enforce_int_requirements_code :=
2451: Get_EnforceInteger_Code(
2452: p_enforce_integer => p_sub_component_rec.enforce_int_requirements);
2453:
2454: if bom_globals.get_debug = 'Y' then Error_Handler.write_debug('Sub Comp: Enforce Int Requirements code ' || to_char(l_sub_comp_unexp_rec.enforce_int_requirements_code)); END IF;
2455:
2456: IF l_sub_comp_unexp_rec.enforce_int_requirements_code IS NULL AND
2457: l_sub_comp_unexp_rec.enforce_int_requirements_code = FND_API.G_MISS_NUM
2458: THEN
2523: --
2524: -- Verify that ACD_Type is Valid
2525: --
2526: ****************************************************************/
2527: IF Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO AND
2528: ( p_ref_designator_rec.acd_type IS NULL OR
2529: p_ref_designator_rec.acd_type NOT IN (1, 3)
2530: )
2531: THEN
2837: --
2838: -- Convert revised item information to bill_sequence_id
2839: --
2840: *****************************************************************/
2841: IF Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO
2842: THEN
2843: NULL ;
2844:
2845: /* Following getting revised_item_sequence_id moved to Engineering
2906: ELSE
2907: --
2908: -- If the calling BO is BOM then get the bill sequence id
2909: --
2910: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Getting bill_seq f
2911: or assembly item ' || l_ref_desg_unexp_rec.revised_item_id); END IF;
2912:
2913: l_ref_desg_unexp_rec.bill_sequence_id :=
2914: bill_sequence_id(p_assembly_item_id =>
3027: g_Token_Tbl.Delete;
3028: END IF;
3029: END IF; -- Added by MK on 12/04/00
3030:
3031: /*if bom_globals.get_debug = 'Y' then Error_Handler.write_debug('Ref Desg: Checking for editable common bill...'); END IF;
3032:
3033: BEGIN
3034: SELECT 1
3035: INTO l_dummy
3638: -- Convert revised item information to bill_sequence_id
3639: --
3640: *****************************************************************/
3641: --
3642: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Getting bill_seq f
3643: or assembly item ' || l_bom_comp_ops_unexp_rec.assembly_item_id); END IF;
3644:
3645: l_bom_comp_ops_unexp_rec.bill_sequence_id :=
3646: bill_sequence_id(p_assembly_item_id =>
3682: x_Return_Status := l_Return_Status;
3683: RETURN;
3684: END IF;
3685:
3686: /*if bom_globals.get_debug = 'Y' then Error_Handler.write_debug('Comp OP: Checking for editable common bill...'); END IF;
3687:
3688: BEGIN
3689: SELECT 1
3690: INTO l_dummy
3828: --
3829: -- Convert additional_operation_seq_num information to comp_operation_seq_id
3830: --
3831: ******************************************************************/
3832: IF(p_bom_comp_ops_rec.transaction_type IN (BOM_globals.G_OPR_UPDATE,
3833: BOM_globals.G_OPR_DELETE)) THEN
3834: l_bom_comp_ops_unexp_rec.comp_operation_seq_id :=
3835: Comp_Operation_Seq_Id( p_component_sequence_id =>
3836: l_bom_comp_ops_unexp_rec.component_sequence_id
3829: -- Convert additional_operation_seq_num information to comp_operation_seq_id
3830: --
3831: ******************************************************************/
3832: IF(p_bom_comp_ops_rec.transaction_type IN (BOM_globals.G_OPR_UPDATE,
3833: BOM_globals.G_OPR_DELETE)) THEN
3834: l_bom_comp_ops_unexp_rec.comp_operation_seq_id :=
3835: Comp_Operation_Seq_Id( p_component_sequence_id =>
3836: l_bom_comp_ops_unexp_rec.component_sequence_id
3837: , p_operation_sequence_number =>
3887: --
3888: -- Convert new_additional_operation_seq_num information to operation_sequence_id
3889: --
3890: ******************************************************************/
3891: If(p_bom_comp_ops_rec.transaction_type = BOM_globals.G_OPR_UPDATE and
3892: p_bom_comp_ops_rec.new_additional_op_seq_num is not null and
3893: p_bom_comp_ops_rec.new_additional_op_seq_num <> FND_API.G_MISS_NUM) then
3894:
3895: l_bom_comp_ops_unexp_rec.new_additional_op_seq_id :=