[Home] [Help]
405: x_return_status := FND_API.G_RET_STS_SUCCESS;
406: l_bom_header_unexp_rec := p_bom_header_unexp_rec;
407:
408:
409: If Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Bom Header UUI-UI Conversion . . '); END IF;
410:
411:
412: --
413: -- Assembly Item name cannot be NULL or missing.
465: );
466: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
467: END IF;
468:
469: 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;
470:
471: IF p_bom_header_rec.alternate_bom_code IS NOT NULL AND
472: p_bom_header_rec.alternate_bom_code <> FND_API.G_MISS_CHAR
473: THEN
538: l_src_bill_sequence_id NUMBER;
539:
540: BEGIN
541:
542: If Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Header VID conversion . . . ');
543: END IF;
544: IF p_bom_header_rec.common_organization_code IS NOT NULL AND
545: p_bom_header_rec.common_organization_code <>
546: FND_API.G_MISS_CHAR
574: l_bom_head_unexp_rec.common_organization_id :=
575: l_bom_head_unexp_rec.organization_id;
576: END IF;
577:
578: If Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Common Org Converted . . .'); END IF;
579:
580: IF p_bom_header_rec.common_assembly_item_name IS NOT NULL AND
581: p_bom_header_rec.common_assembly_item_name <>
582: FND_API.G_MISS_CHAR
618: l_return_status :=FND_API.G_RET_STS_UNEXP_ERROR;
619: END IF;
620: END IF;
621:
622: If Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Converted common assembly name . . .'); end if;
623:
624: --
625: -- Convert common org code and common assembly name information
626: -- into common bill sequence_id
675: );
676: l_return_status := FND_API.G_RET_STS_ERROR;
677: END IF;
678: END IF;
679: If Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Converted common bill sequence id. . .'); end if;
680:
681: IF Bom_Globals.Get_Debug = 'Y' THEN
682: Error_Handler.Write_Debug('Structure Type Name VID conversion . . . ');
683: END IF;
677: END IF;
678: END IF;
679: If Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Converted common bill sequence id. . .'); end if;
680:
681: IF Bom_Globals.Get_Debug = 'Y' THEN
682: Error_Handler.Write_Debug('Structure Type Name VID conversion . . . ');
683: END IF;
684:
685: IF ( p_bom_header_rec.structure_type_name IS NOT NULL AND
702: l_return_status := FND_API.G_RET_STS_ERROR;
703: END IF; -- end if l_bom_head_unexp_rec.structure_type_id IS NULL
704: END IF; -- end if p_bom_header_rec.structure_type_name IS NOT NULL
705:
706: If Bom_Globals.Get_Debug = 'Y' THEN
707: Error_Handler.Write_Debug('Converted Structure Type ID . . . ');
708: END IF;
709:
710: x_return_status := l_return_status;
708: END IF;
709:
710: x_return_status := l_return_status;
711:
712: If Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Return status of Header VID: ' || l_return_status ); end if;
713:
714: x_bom_head_unexp_rec := l_bom_head_unexp_rec;
715: x_mesg_token_tbl := l_mesg_token_tbl;
716:
858: IS
859: l_id NUMBER;
860: BEGIN
861:
862: IF Bom_Globals.Get_Debug = 'Y' THEN
863: Error_Handler.Write_Debug('Old Operation: ' || to_char(p_old_op_seq_num));
864: Error_Handler.Write_Debug('Bill Sequence: ' || to_char(p_bill_sequence_id));
865: Error_Handler.Write_Debug('Old Effective: ' || to_char(p_old_effective_date));
866: END IF;
1158:
1159: --
1160: -- Convert Location_Name to Location_Id
1161: --
1162: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Executing Location Val-ID conversion . . .'); END IF;
1163:
1164: IF p_rev_component_rec.location_name IS NOT NULL AND
1165: p_rev_component_rec.location_name <> FND_API.G_MISS_CHAR
1166: THEN
1203:
1204: --
1205: -- Using old_component information, get the old_component_sequence_id
1206: --
1207: IF Bom_Globals.Get_Debug = 'Y' THEN
1208: Error_Handler.Write_Debug('Executing old_Comp_seqid Val-ID conversion . . .');
1209: Error_Handler.Write_Debug('Bill Sequence: ' || to_char(l_rev_comp_unexp_rec.bill_sequence_id));
1210: END IF;
1211:
1278: -- dbms_output.put_line('Item Revision: ' ||
1279: -- p_rev_component_rec.new_revised_item_revision);
1280: -- dbms_output.put_line('Change Notice: ' || p_rev_component_rec.eco_name);
1281:
1282: IF Bom_Globals.Get_Bo_Identifier <> 'BOM'
1283: THEN
1284:
1285: NULL ;
1286:
1364: END IF;
1365:
1366: x_return_status := l_Return_status;
1367:
1368: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('returning from comp vid with ' || l_Return_status); END IF;
1369:
1370: x_mesg_token_tbl := l_Mesg_Token_Tbl;
1371: x_rev_comp_unexp_rec := l_rev_comp_unexp_rec;
1372:
1426: );
1427: l_Return_Status := FND_API.G_RET_STS_ERROR;
1428: END IF;
1429:
1430: IF (p_rev_component_rec.transaction_type <> BOM_globals.G_OPR_CREATE) AND
1431: (p_rev_component_rec.operation_sequence_number IS NULL OR
1432: p_rev_component_rec.operation_sequence_number = FND_API.G_MISS_NUM)
1433: THEN
1434: Error_Handler.Add_Error_Token
1496: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
1497: x_rev_comp_unexp_rec := l_rev_comp_unexp_rec;
1498: x_Return_Status := l_Return_Status;
1499:
1500: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Returning from Rev_Component_UUI_To_UI with ' || l_Return_Status); END IF;
1501:
1502: END Rev_Component_UUI_To_UI;
1503:
1504: /*****************************************************************
1571: g_Token_Tbl(1).Token_Value := p_rev_component_rec.revised_item_name;
1572: g_token_tbl(2).token_name := 'ORGANIZATION_CODE';
1573: g_token_tbl(2).token_value := p_rev_component_rec.organization_code;
1574:
1575: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Converting assembly item ' || p_rev_component_rec.revised_item_name); END IF;
1576:
1577: l_rev_comp_unexp_rec.revised_item_id :=
1578: Revised_Item( p_revised_item_num =>
1579: p_rev_component_rec.revised_item_name
1616: /* Set the system information record values for assembly_item_id
1617: and org_id. These values will be used for validating serial effective
1618: assemblies */
1619:
1620: Bom_Globals.Set_Org_Id (l_rev_comp_unexp_rec.organization_id);
1621: Bom_Globals.Set_Assembly_Item_Id (l_rev_comp_unexp_rec.revised_item_id);
1622:
1623: /****************************************************************
1624: --
1617: and org_id. These values will be used for validating serial effective
1618: assemblies */
1619:
1620: Bom_Globals.Set_Org_Id (l_rev_comp_unexp_rec.organization_id);
1621: Bom_Globals.Set_Assembly_Item_Id (l_rev_comp_unexp_rec.revised_item_id);
1622:
1623: /****************************************************************
1624: --
1625: -- Using the revised item key information, get the bill_sequence_id
1625: -- Using the revised item key information, get the bill_sequence_id
1626: -- and revised item sequence id
1627: --
1628: ****************************************************************/
1629: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Processing UUI_UI2 for components and retrieving rev item seq id . . . '); END IF;
1630:
1631: IF Bom_Globals.Get_Bo_Identifier <> 'BOM'
1632: THEN
1633: NULL ;
1627: --
1628: ****************************************************************/
1629: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Processing UUI_UI2 for components and retrieving rev item seq id . . . '); END IF;
1630:
1631: IF Bom_Globals.Get_Bo_Identifier <> 'BOM'
1632: THEN
1633: NULL ;
1634:
1635: /* Following getting revised_item_sequence_id moved to Engineering
1684: x_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
1685: x_other_token_tbl(1).token_value :=
1686: p_rev_component_rec.component_item_name;
1687:
1688: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('And this call returned with ' || l_Return_Status); END IF;
1689:
1690: RETURN;
1691:
1692: END IF;
1695: ELSE
1696: --
1697: -- If the calling BO is BOM then get the bill sequence id
1698: --
1699: 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;
1700:
1701: l_rev_comp_unexp_rec.bill_sequence_id :=
1702: bill_sequence_id(p_assembly_item_id =>
1703: l_rev_comp_unexp_rec.revised_item_id,
1737: END IF;
1738:
1739: /* Get the BOM Implementation date */
1740:
1741: IF Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_BOM_BO
1742: THEN
1743: l_rev_comp_unexp_rec.bom_implementation_date :=
1744: Get_BOM_Implementation_Date
1745: ( p_bill_seq_id => l_rev_comp_unexp_rec.bill_Sequence_id);
1749:
1750: Error_Handler.Write_Debug('BOM Implementation date is '||l_rev_comp_unexp_rec.bom_implementation_date);
1751:
1752: IF p_rev_component_rec.transaction_type IN
1753: ( BOM_Globals.G_OPR_UPDATE, BOM_globals.G_OPR_DELETE,
1754: BOM_Globals.G_OPR_CANCEL
1755: ) AND
1756: l_rev_comp_unexp_rec.bill_sequence_id IS NULL
1757: AND Bom_Globals.Get_Bo_Identifier <> Bom_Globals.G_ECO_BO -- Added by MK on 12/03/00
1750: Error_Handler.Write_Debug('BOM Implementation date is '||l_rev_comp_unexp_rec.bom_implementation_date);
1751:
1752: IF p_rev_component_rec.transaction_type IN
1753: ( BOM_Globals.G_OPR_UPDATE, BOM_globals.G_OPR_DELETE,
1754: BOM_Globals.G_OPR_CANCEL
1755: ) AND
1756: l_rev_comp_unexp_rec.bill_sequence_id IS NULL
1757: AND Bom_Globals.Get_Bo_Identifier <> Bom_Globals.G_ECO_BO -- Added by MK on 12/03/00
1758: THEN
1753: ( BOM_Globals.G_OPR_UPDATE, BOM_globals.G_OPR_DELETE,
1754: BOM_Globals.G_OPR_CANCEL
1755: ) AND
1756: l_rev_comp_unexp_rec.bill_sequence_id IS NULL
1757: AND Bom_Globals.Get_Bo_Identifier <> Bom_Globals.G_ECO_BO -- Added by MK on 12/03/00
1758: THEN
1759: l_return_status := FND_API.G_RET_STS_ERROR;
1760:
1761: g_Token_Tbl(1).Token_Name := 'REVISED_ITEM_NAME';
1778:
1779: RETURN;
1780: END IF;
1781:
1782: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Processing UUI_UI2 for components and retrieving enforce integer requirements code . . . '); END IF;
1783:
1784: IF p_rev_component_rec.enforce_int_requirements IS NOT NULL AND
1785: p_rev_component_rec.enforce_int_requirements <> FND_API.G_MISS_CHAR
1786: THEN
1859:
1860: IF ( p_sub_component_rec.acd_type IS NULL OR
1861: p_sub_component_rec.acd_type NOT IN (1, 3)
1862: ) AND
1863: Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO
1864: THEN
1865: Error_Handler.Add_Error_Token
1866: ( p_Message_Name => 'BOM_SBC_ACD_TYPE_INVALID'
1867: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1984: *********************************************************************/
1985:
1986: IF ( p_Sub_Component_Rec.new_substitute_component_name is not null
1987: AND p_sub_component_rec.substitute_component_name <> FND_API.G_MISS_CHAR
1988: and p_sub_component_rec.transaction_type = Bom_Globals.G_OPR_UPDATE)
1989: THEN
1990: l_sub_comp_unexp_rec.new_substitute_component_id :=
1991: Substitute_Component( p_substitute_component =>
1992: p_sub_component_rec.new_substitute_component_name
2222: dbms_output.put_line('Component Id: '|| l_sub_comp_unexp_rec.component_item_id);
2223: dbms_output.put_line('Rev: ' || p_sub_component_rec.new_revised_item_revision);
2224: dbms_output.put_line('Eff.Date: ' || p_sub_component_rec.start_effective_date);
2225: */
2226: IF Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO
2227: THEN
2228: NULL ;
2229:
2230: /* Following getting revised_item_sequence_id moved to Engineering
2290: ELSE
2291: --
2292: -- If the calling BO is BOM then get the bill sequence id
2293: --
2294: 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;
2295:
2296: l_sub_comp_unexp_rec.bill_sequence_id :=
2297: bill_sequence_id(p_assembly_item_id =>
2298: l_sub_comp_unexp_rec.revised_item_id,
2353: l_sub_comp_unexp_rec.bill_sequence_id
2354: , x_err_text => l_Err_Text
2355: );
2356:
2357: 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;
2358:
2359: IF l_sub_comp_unexp_rec.component_sequence_id IS NULL
2360: THEN
2361: g_Token_Tbl(1).Token_Name := 'REVISED_COMPONENT_NAME';
2387: g_Token_Tbl.Delete;
2388: END IF;
2389: END IF; -- If-Else BO Is ECO Ends -- Added by MK on 12/03/00
2390:
2391: /*if bom_globals.get_debug = 'Y' then Error_Handler.write_debug('Sub Comp: Checking for editable common bill...'); END IF;
2392:
2393: BEGIN
2394: SELECT 1
2395: INTO l_dummy
2415: END;
2416:
2417: */
2418:
2419: 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;
2420:
2421: IF p_sub_component_rec.enforce_int_requirements IS NOT NULL AND
2422: p_sub_component_rec.enforce_int_requirements <> FND_API.G_MISS_CHAR
2423: THEN
2425: l_sub_comp_unexp_rec.enforce_int_requirements_code :=
2426: Get_EnforceInteger_Code(
2427: p_enforce_integer => p_sub_component_rec.enforce_int_requirements);
2428:
2429: 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;
2430:
2431: IF l_sub_comp_unexp_rec.enforce_int_requirements_code IS NULL AND
2432: l_sub_comp_unexp_rec.enforce_int_requirements_code = FND_API.G_MISS_NUM
2433: THEN
2498: --
2499: -- Verify that ACD_Type is Valid
2500: --
2501: ****************************************************************/
2502: IF Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO AND
2503: ( p_ref_designator_rec.acd_type IS NULL OR
2504: p_ref_designator_rec.acd_type NOT IN (1, 3)
2505: )
2506: THEN
2794: --
2795: -- Convert revised item information to bill_sequence_id
2796: --
2797: *****************************************************************/
2798: IF Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO
2799: THEN
2800: NULL ;
2801:
2802: /* Following getting revised_item_sequence_id moved to Engineering
2863: ELSE
2864: --
2865: -- If the calling BO is BOM then get the bill sequence id
2866: --
2867: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Getting bill_seq f
2868: or assembly item ' || l_ref_desg_unexp_rec.revised_item_id); END IF;
2869:
2870: l_ref_desg_unexp_rec.bill_sequence_id :=
2871: bill_sequence_id(p_assembly_item_id =>
2984: g_Token_Tbl.Delete;
2985: END IF;
2986: END IF; -- Added by MK on 12/04/00
2987:
2988: /*if bom_globals.get_debug = 'Y' then Error_Handler.write_debug('Ref Desg: Checking for editable common bill...'); END IF;
2989:
2990: BEGIN
2991: SELECT 1
2992: INTO l_dummy
3595: -- Convert revised item information to bill_sequence_id
3596: --
3597: *****************************************************************/
3598: --
3599: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Getting bill_seq f
3600: or assembly item ' || l_bom_comp_ops_unexp_rec.assembly_item_id); END IF;
3601:
3602: l_bom_comp_ops_unexp_rec.bill_sequence_id :=
3603: bill_sequence_id(p_assembly_item_id =>
3639: x_Return_Status := l_Return_Status;
3640: RETURN;
3641: END IF;
3642:
3643: /*if bom_globals.get_debug = 'Y' then Error_Handler.write_debug('Comp OP: Checking for editable common bill...'); END IF;
3644:
3645: BEGIN
3646: SELECT 1
3647: INTO l_dummy
3787: --
3788: -- Convert new_additional_operation_seq_num information to operation_sequence_id
3789: --
3790: ******************************************************************/
3791: If(p_bom_comp_ops_rec.transaction_type = BOM_globals.G_OPR_UPDATE and
3792: p_bom_comp_ops_rec.new_additional_op_seq_num is not null and
3793: p_bom_comp_ops_rec.new_additional_op_seq_num <> FND_API.G_MISS_NUM) then
3794:
3795: l_bom_comp_ops_unexp_rec.new_additional_op_seq_id :=