[Home] [Help]
202: AND assembly_item_id = p_assembly_item_id
203: AND NVL(alternate_routing_designator, FND_API.G_MISS_CHAR) =
204: NVL(p_alternate_routing_designator, FND_API.G_MISS_CHAR);
205:
206: BOM_Rtg_Globals.Set_CFM_Rtg_Flag(p_cfm_rtg_type => l_cfm_flag) ;
207: BOM_Rtg_Globals.Set_Common_Rtg_Seq_id
208: ( p_common_Rtg_seq_id => l_com_rtg_seq_id );
209:
210: RETURN l_id;
203: AND NVL(alternate_routing_designator, FND_API.G_MISS_CHAR) =
204: NVL(p_alternate_routing_designator, FND_API.G_MISS_CHAR);
205:
206: BOM_Rtg_Globals.Set_CFM_Rtg_Flag(p_cfm_rtg_type => l_cfm_flag) ;
207: BOM_Rtg_Globals.Set_Common_Rtg_Seq_id
208: ( p_common_Rtg_seq_id => l_com_rtg_seq_id );
209:
210: RETURN l_id;
211:
247: , p_alternate_routing_designator => p_alternate_routing_designator
248: , x_err_text => x_err_text
249: ) ;
250:
251: BOM_Rtg_Globals.Set_Common_Rtg_Seq_id
252: ( p_common_Rtg_seq_id => l_common_rtg_seq_id );
253: RETURN l_common_rtg_seq_id;
254: END Common_Routing_Sequence_id;
255:
622: l_id NUMBER;
623: BEGIN
624:
625: /*
626: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
627: Error_Handler.Write_Debug('In Line Op Seq Id. . .');
628: Error_Handler.Write_Debug('Line OP Code '|| p_line_code );
629: Error_Handler.Write_Debug('Line OP Seq ' || to_char(p_line_seq_number ));
630: Error_Handler.Write_Debug('Org Id ' || to_char(p_organization_id) );
659: AND bor.routing_sequence_id = p_routing_sequence_id ;
660: END IF;
661:
662: /*
663: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
664: Error_Handler.Write_Debug('Line Op Seq Id : '|| to_char(l_id) );
665: END IF ;
666: */
667: RETURN l_id;
698: IS
699: l_id NUMBER;
700: BEGIN
701:
702: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
703: Error_Handler.Write_Debug('Old Operation: ' || to_char(p_old_op_seq_num));
704: Error_Handler.Write_Debug('Routing Sequence: ' || to_char(p_routing_sequence_id));
705: Error_Handler.Write_Debug('Old Effective: ' || to_char(p_old_effective_date));
706: END IF;
868: l_id NUMBER;
869: l_bo_id VARCHAR2(3) ;
870:
871: BEGIN
872: l_bo_id := BOM_Rtg_Globals.Get_Bo_Identifier ;
873:
874: SELECT operation_sequence_id
875: INTO l_id
876: FROM bom_operation_sequences
873:
874: SELECT operation_sequence_id
875: INTO l_id
876: FROM bom_operation_sequences
877: WHERE (( l_bo_id = BOM_Rtg_Globals.G_ECO_BO
878: AND implementation_date IS NULL )
879: OR (l_bo_id = BOM_Rtg_Globals.G_RTG_BO
880: AND implementation_date IS NOT NULL )
881: )
875: INTO l_id
876: FROM bom_operation_sequences
877: WHERE (( l_bo_id = BOM_Rtg_Globals.G_ECO_BO
878: AND implementation_date IS NULL )
879: OR (l_bo_id = BOM_Rtg_Globals.G_RTG_BO
880: AND implementation_date IS NOT NULL )
881: )
882: -- NVL check in operation type included for bug 3293381
883: AND (( NVL(operation_type, 1) = 1 AND
944: l_return_status := FND_API.G_RET_STS_SUCCESS;
945: l_rtg_header_unexp_rec := p_rtg_header_unexp_rec;
946:
947:
948: If Bom_Rtg_Globals.Get_Debug = 'Y'
949: THEN Error_Handler.Write_Debug
950: ('Rtg Header UUI-UI Conversion . . ');
951: END IF;
952:
1006: );
1007: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1008: END IF;
1009:
1010: If BOM_Rtg_Globals.Get_Debug = 'Y'
1011: THEN Error_Handler.Write_Debug
1012: ('After converting Assembly Item Id : '
1013: || to_char(l_rtg_header_unexp_rec.assembly_item_id)
1014: || ' Status ' || l_return_status); END IF;
1085: l_rtg_header_unexp_rec Bom_Rtg_Pub.Rtg_Header_Unexposed_Rec_Type
1086: := p_rtg_header_unexp_rec;
1087: BEGIN
1088:
1089: If BOM_Rtg_Globals.Get_Debug = 'Y'
1090: THEN Error_Handler.Write_Debug('Header VID conversion . . . ');
1091: END IF;
1092:
1093:
1132:
1133: l_return_status :=FND_API.G_RET_STS_UNEXP_ERROR;
1134: END IF;
1135:
1136: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
1137: Error_Handler.Write_Debug('Converted common assembly name . . .');
1138: END IF;
1139:
1140: END IF;
1201: );
1202: l_return_status :=FND_API.G_RET_STS_UNEXP_ERROR;
1203: END IF;
1204:
1205: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
1206: Error_Handler.Write_Debug('Converted common routing sequence id. . .');
1207: END IF ;
1208:
1209: END IF;
1256: );
1257: l_return_status :=FND_API.G_RET_STS_UNEXP_ERROR;
1258: END IF;
1259:
1260: IF BOM_Rtg_Globals.Get_Debug = 'Y'THEN
1261: Error_Handler.Write_Debug('Converted completion locator name ...');
1262: END IF;
1263:
1264: END IF;
1303: );
1304: l_return_status :=FND_API.G_RET_STS_UNEXP_ERROR;
1305: END IF;
1306:
1307: IF BOM_Rtg_Globals.Get_Debug = 'Y'THEN
1308: Error_Handler.Write_Debug('Converted line code ...');
1309: END IF;
1310:
1311: END IF;
1312:
1313:
1314: x_return_status := l_return_status;
1315:
1316: IF BOM_Rtg_Globals.Get_Debug = 'Y'
1317: THEN Error_Handler.Write_Debug
1318: ('Return status of Header VID: ' || l_return_status );
1319: END IF;
1320:
1358: l_return_status := FND_API.G_RET_STS_SUCCESS;
1359: l_rtg_rev_unexp_rec := p_rtg_rev_unexp_rec;
1360:
1361:
1362: If BOM_Rtg_Globals.Get_Debug = 'Y'
1363: THEN Error_Handler.Write_Debug
1364: ('Rtg revision UUI-UI Conversion . . ');
1365: END IF;
1366:
1425: );
1426: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1427: END IF;
1428:
1429: If BOM_Rtg_Globals.Get_Debug = 'Y'
1430: THEN Error_Handler.Write_Debug
1431: ('After converting Assembly Item Id : '
1432: || to_char(l_rtg_rev_unexp_rec.assembly_item_id)
1433: || ' Status ' || l_return_status); END IF;
1588: x_return_status := FND_API.G_RET_STS_SUCCESS;
1589: l_return_status := FND_API.G_RET_STS_SUCCESS;
1590: l_com_op_unexp_rec := p_com_op_unexp_rec;
1591:
1592: If BOM_Rtg_Globals.Get_Debug = 'Y'
1593: THEN Error_Handler.Write_Debug
1594: ('Operation record UUI-UI Conversion . . ');
1595: END IF;
1596:
1698: END IF;
1699:
1700:
1701:
1702: IF BOM_Rtg_Globals.Get_Debug = 'Y'
1703: THEN Error_Handler.Write_Debug
1704: ('After converting Assembly Item Id : '
1705: || to_char(l_com_op_unexp_rec.revised_item_id)
1706: || ' Status ' || l_return_status);
1748: -- and revised item sequence id
1749: --
1750: ****************************************************************/
1751:
1752: IF BOM_Rtg_Globals.Get_Bo_Identifier <> BOM_Rtg_Globals.G_RTG_BO
1753: THEN
1754:
1755: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
1756: Error_Handler.Write_Debug('Processing UUI_UI for operations and retrieving rev item seq id . . . ');
1751:
1752: IF BOM_Rtg_Globals.Get_Bo_Identifier <> BOM_Rtg_Globals.G_RTG_BO
1753: THEN
1754:
1755: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
1756: Error_Handler.Write_Debug('Processing UUI_UI for operations and retrieving rev item seq id . . . ');
1757: END IF;
1758: NULL ;
1759:
1792: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
1793: x_com_op_unexp_rec := l_com_op_unexp_rec;
1794: x_Return_Status := l_Return_Status;
1795:
1796: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('And this call returned with ' || l_Return_Status); END IF;
1797:
1798: RETURN;
1799:
1800: END IF;
1798: RETURN;
1799:
1800: END IF;
1801:
1802: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
1803: Error_Handler.Write_Debug('Revised Item Sequence Id : ' || to_char(l_com_op_unexp_rec.revised_item_sequence_id)) ;
1804: END IF ;
1805: ****************************************************************/
1806:
1805: ****************************************************************/
1806:
1807: ELSE
1808:
1809: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
1810: Error_Handler.Write_Debug('Processing UUI_UI for operations . . . ');
1811: END IF;
1812: --
1813: -- If the calling BO is RTG then get the routing sequence id
1839: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
1840: x_com_op_unexp_rec := l_com_op_unexp_rec;
1841: x_Return_Status := l_Return_Status;
1842:
1843: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('And this call returned with ' || l_Return_Status); END IF;
1844:
1845: RETURN;
1846:
1847:
1860: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1861: END IF;
1862: END IF ;
1863:
1864: IF BOM_Rtg_Globals.Get_Debug = 'Y'
1865: THEN Error_Handler.Write_Debug
1866: ('After converting, Routing sequence id is '
1867: || to_char(l_com_op_unexp_rec.routing_sequence_id)
1868: || ' Status ' || l_return_status);
2019: l_cfm_flag NUMBER;
2020: l_old_op_seq_number NUMBER;
2021: BEGIN
2022:
2023: If BOM_Rtg_Globals.Get_Debug = 'Y'
2024: THEN Error_Handler.Write_Debug('Operaton VID conversion . . .');
2025: END IF;
2026: --
2027: -- Convert standard operation code to standard operation id
2028: --
2029: IF p_com_operation_rec.standard_operation_code IS NOT NULL AND
2030: p_com_operation_rec.standard_operation_code <> FND_API.G_MISS_CHAR
2031: THEN
2032: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_RTG_BO
2033: THEN
2034:
2035: l_com_op_unexp_rec.Standard_Operation_Id :=
2036: Standard_Operation_Id
2040: , p_routing_sequence_id => l_com_op_unexp_rec.routing_sequence_id
2041: , x_err_text => l_err_text
2042: );
2043:
2044: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2045: ('Converted standard operation code . . .');
2046: END IF;
2047:
2048: ELSE
2055: , p_rev_item_sequence_id => l_com_op_unexp_rec.revised_item_sequence_id
2056: , x_err_text => l_err_text
2057: );
2058:
2059: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2060: ('Converted standard operation code . . .');
2061: END IF;
2062:
2063: END IF ;
2094: --
2095: -- Convert department code to department ID
2096: --
2097:
2098: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2099: ('Dept code : . .' || p_com_operation_rec.department_code );
2100: END IF;
2101:
2102:
2109: , p_organization_id => l_com_op_unexp_rec.organization_id
2110: , x_err_text => l_err_text
2111: );
2112:
2113: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2114: ('Converted department code . . .');
2115: END IF;
2116:
2117: IF l_com_op_unexp_rec.department_id IS NULL
2144: --
2145: -- If routing is flow routing, convert process code to proces_op
2146: -- _seq_id
2147: --
2148: IF BOM_Rtg_Globals.Get_CFM_Rtg_Flag IS NULL OR
2149: BOM_Rtg_Globals.Get_CFM_Rtg_Flag = FND_API.G_MISS_NUM
2150: THEN
2151: l_cfm_flag := Bom_Rtg_Validate.Get_Flow_Routing_Flag
2152: (l_com_op_unexp_rec.routing_sequence_id) ;
2145: -- If routing is flow routing, convert process code to proces_op
2146: -- _seq_id
2147: --
2148: IF BOM_Rtg_Globals.Get_CFM_Rtg_Flag IS NULL OR
2149: BOM_Rtg_Globals.Get_CFM_Rtg_Flag = FND_API.G_MISS_NUM
2150: THEN
2151: l_cfm_flag := Bom_Rtg_Validate.Get_Flow_Routing_Flag
2152: (l_com_op_unexp_rec.routing_sequence_id) ;
2153: BOM_Rtg_Globals.Set_CFM_Rtg_Flag(p_cfm_rtg_type => l_cfm_flag) ;
2149: BOM_Rtg_Globals.Get_CFM_Rtg_Flag = FND_API.G_MISS_NUM
2150: THEN
2151: l_cfm_flag := Bom_Rtg_Validate.Get_Flow_Routing_Flag
2152: (l_com_op_unexp_rec.routing_sequence_id) ;
2153: BOM_Rtg_Globals.Set_CFM_Rtg_Flag(p_cfm_rtg_type => l_cfm_flag) ;
2154:
2155: ELSE l_cfm_flag := BOM_Rtg_Globals.Get_CFM_Rtg_Flag ;
2156: END IF;
2157:
2151: l_cfm_flag := Bom_Rtg_Validate.Get_Flow_Routing_Flag
2152: (l_com_op_unexp_rec.routing_sequence_id) ;
2153: BOM_Rtg_Globals.Set_CFM_Rtg_Flag(p_cfm_rtg_type => l_cfm_flag) ;
2154:
2155: ELSE l_cfm_flag := BOM_Rtg_Globals.Get_CFM_Rtg_Flag ;
2156: END IF;
2157:
2158:
2159: IF l_cfm_flag = BOM_Rtg_Globals.G_FLOW_RTG
2155: ELSE l_cfm_flag := BOM_Rtg_Globals.Get_CFM_Rtg_Flag ;
2156: END IF;
2157:
2158:
2159: IF l_cfm_flag = BOM_Rtg_Globals.G_FLOW_RTG
2160: THEN
2161:
2162: IF (p_com_operation_rec.process_code IS NOT NULL AND
2163: p_com_operation_rec.process_code <> FND_API.G_MISS_CHAR )
2178: l_com_op_unexp_rec.routing_sequence_id
2179: , x_err_text => l_err_text
2180: );
2181:
2182: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2183: ('Converted process code . . .');
2184: END IF;
2185:
2186: IF l_com_op_unexp_rec.process_op_seq_id IS NULL
2231:
2232: -- If routing is flow routing, convert line operation code to
2233: -- lin_op_seq_id.
2234: --
2235: IF l_cfm_flag = BOM_Rtg_Globals.G_FLOW_RTG
2236: THEN
2237: IF (p_com_operation_rec.line_op_code IS NOT NULL AND
2238: p_com_operation_rec.line_op_code <> FND_API.G_MISS_CHAR )
2239: OR
2252: l_com_op_unexp_rec.routing_sequence_id
2253: , x_err_text => l_err_text
2254: );
2255:
2256: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2257: ('Converted line op code . . .');
2258: END IF;
2259:
2260: IF l_com_op_unexp_rec.line_op_seq_id IS NULL
2307:
2308: --
2309: -- Using old_operation information, get the old_operation_sequence_id
2310: --
2311: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
2312: AND p_com_operation_rec.acd_type IN (2,3) -- Change or Disable
2313: AND p_com_operation_rec.old_start_effective_date IS NOT NULL
2314: AND p_com_operation_rec.old_start_effective_date <> FND_API.G_MISS_DATE
2315: -- p_com_operation_rec.old_operation_sequence_number IS NOT NULL AND
2316: -- p_com_operation_rec.old_operation_sequence_number <>
2317: -- FND_API.G_MISS_NUM
2318: THEN
2319:
2320: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN
2321: Error_Handler.Write_Debug('Executing old operation seq id Val-ID conversion . . .');
2322: Error_Handler.Write_Debug('Routing Sequence: ' || to_char(l_com_op_unexp_rec.routing_sequence_id));
2323: END IF;
2324:
2357: , p_operation_type => p_com_operation_rec.operation_type
2358: , p_routing_sequence_id => l_com_op_unexp_rec.routing_sequence_id
2359: );
2360:
2361: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug ('Converted Old Operation Seq Id. . .');
2362: END IF;
2363:
2364: IF l_com_op_unexp_rec.old_operation_sequence_id IS NULL
2365: THEN
2399:
2400:
2401: x_return_status := l_return_status;
2402:
2403: IF Bom_Rtg_Globals.Get_Debug = 'Y'
2404: THEN Error_Handler.Write_Debug
2405: ('Return status of operation VID: ' || l_return_status );
2406: END IF;
2407:
2508: x_return_status := FND_API.G_RET_STS_SUCCESS;
2509: l_return_status := FND_API.G_RET_STS_SUCCESS;
2510: l_rev_op_res_unexp_rec := p_rev_op_res_unexp_rec;
2511:
2512: If BOM_Rtg_Globals.Get_Debug = 'Y'
2513: THEN Error_Handler.Write_Debug
2514: ('Operation resource record UUI-UI Conversion . . ');
2515: END IF;
2516:
2624: );
2625: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2626: END IF;
2627:
2628: IF BOM_Rtg_Globals.Get_Debug = 'Y'
2629: THEN Error_Handler.Write_Debug
2630: ('After converting Assembly Item Id : '
2631: || to_char(l_rev_op_res_unexp_rec.revised_item_id)
2632: || ' Status ' || l_return_status);
2674: -- and revised item sequence id
2675: --
2676: ****************************************************************/
2677:
2678: IF BOM_Rtg_Globals.Get_Bo_Identifier <> BOM_Rtg_Globals.G_RTG_BO
2679: THEN
2680:
2681: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
2682: Error_Handler.Write_Debug('Processing UUI_UI for operation resources and retrieving rev item seq id . . . ');
2677:
2678: IF BOM_Rtg_Globals.Get_Bo_Identifier <> BOM_Rtg_Globals.G_RTG_BO
2679: THEN
2680:
2681: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
2682: Error_Handler.Write_Debug('Processing UUI_UI for operation resources and retrieving rev item seq id . . . ');
2683: END IF;
2684:
2685: NULL ;
2718: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
2719: x_rev_op_res_unexp_rec := l_rev_op_res_unexp_rec;
2720: x_Return_Status := l_Return_Status;
2721:
2722: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('And this call returned with ' || l_Return_Status); END IF;
2723:
2724: RETURN;
2725:
2726: END IF;
2724: RETURN;
2725:
2726: END IF;
2727:
2728: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
2729: Error_Handler.Write_Debug('Revised Item Sequence Id : ' || to_char(l_rev_op_res_unexp_rec.revised_item_sequence_id)) ;
2730: END IF ;
2731:
2732: ****************************************************************/
2734: ELSE
2735: --
2736: -- If the calling BO is RTG then get the routing sequence id
2737: --
2738: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
2739: Error_Handler.Write_Debug('Processing UUI_UI for operation resources. . . ');
2740: END IF;
2741: l_rev_op_res_unexp_rec.routing_sequence_id :=
2742: Routing_Sequence_id
2778: END IF;
2779: END IF ;
2780:
2781: -- Added by MK on 12/04/00
2782: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_RTG_BO
2783: THEN
2784:
2785: IF BOM_Rtg_Globals.Get_Debug = 'Y'
2786: THEN Error_Handler.Write_Debug
2781: -- Added by MK on 12/04/00
2782: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_RTG_BO
2783: THEN
2784:
2785: IF BOM_Rtg_Globals.Get_Debug = 'Y'
2786: THEN Error_Handler.Write_Debug
2787: ('After converting, routing sequence id is '
2788: || to_char(l_rev_op_res_unexp_rec.routing_sequence_id )
2789: || ' Status ' || l_return_status);
2791:
2792: --
2793: -- For flow routing, operatoin Type should be set in (1, 2, 3)
2794: --
2795: IF BOM_Rtg_Globals.Get_CFM_Rtg_Flag IS NULL OR
2796: BOM_Rtg_Globals.Get_CFM_Rtg_Flag = FND_API.G_MISS_NUM
2797: THEN
2798: l_cfm_flag := Bom_Rtg_Validate.Get_Flow_Routing_Flag(
2799: l_rev_op_res_unexp_rec.routing_sequence_id) ;
2792: --
2793: -- For flow routing, operatoin Type should be set in (1, 2, 3)
2794: --
2795: IF BOM_Rtg_Globals.Get_CFM_Rtg_Flag IS NULL OR
2796: BOM_Rtg_Globals.Get_CFM_Rtg_Flag = FND_API.G_MISS_NUM
2797: THEN
2798: l_cfm_flag := Bom_Rtg_Validate.Get_Flow_Routing_Flag(
2799: l_rev_op_res_unexp_rec.routing_sequence_id) ;
2800: BOM_Rtg_Globals.Set_CFM_Rtg_Flag(p_cfm_rtg_type => l_cfm_flag) ;
2796: BOM_Rtg_Globals.Get_CFM_Rtg_Flag = FND_API.G_MISS_NUM
2797: THEN
2798: l_cfm_flag := Bom_Rtg_Validate.Get_Flow_Routing_Flag(
2799: l_rev_op_res_unexp_rec.routing_sequence_id) ;
2800: BOM_Rtg_Globals.Set_CFM_Rtg_Flag(p_cfm_rtg_type => l_cfm_flag) ;
2801: ELSE l_cfm_flag := BOM_Rtg_Globals.Get_CFM_Rtg_Flag ;
2802: END IF;
2803:
2804: IF l_cfm_flag = BOM_Rtg_Globals.G_FLOW_RTG
2797: THEN
2798: l_cfm_flag := Bom_Rtg_Validate.Get_Flow_Routing_Flag(
2799: l_rev_op_res_unexp_rec.routing_sequence_id) ;
2800: BOM_Rtg_Globals.Set_CFM_Rtg_Flag(p_cfm_rtg_type => l_cfm_flag) ;
2801: ELSE l_cfm_flag := BOM_Rtg_Globals.Get_CFM_Rtg_Flag ;
2802: END IF;
2803:
2804: IF l_cfm_flag = BOM_Rtg_Globals.G_FLOW_RTG
2805: THEN
2800: BOM_Rtg_Globals.Set_CFM_Rtg_Flag(p_cfm_rtg_type => l_cfm_flag) ;
2801: ELSE l_cfm_flag := BOM_Rtg_Globals.Get_CFM_Rtg_Flag ;
2802: END IF;
2803:
2804: IF l_cfm_flag = BOM_Rtg_Globals.G_FLOW_RTG
2805: THEN
2806: IF p_rev_op_resource_rec.operation_type IS NULL
2807: OR p_rev_op_resource_rec.operation_type = FND_API.G_MISS_NUM
2808: OR p_rev_op_resource_rec.operation_type NOT IN (1, 2, 3)
2883: );
2884: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2885: END IF;
2886:
2887: IF BOM_Rtg_Globals.Get_Debug = 'Y'
2888: THEN Error_Handler.Write_Debug
2889: ('After converting, operation sequence id is '
2890: || to_char(l_rev_op_res_unexp_rec.operation_sequence_id )
2891: || ' Status ' || l_return_status);
2987: l_rev_op_res_unexp_rec Bom_Rtg_Pub.Rev_Op_Res_Unexposed_Rec_Type
2988: := p_rev_op_res_unexp_rec ;
2989: BEGIN
2990:
2991: IF BOM_Rtg_Globals.Get_Debug = 'Y'
2992: THEN Error_Handler.Write_Debug('Resource VID conversion . . .');
2993: END IF;
2994:
2995: --
3036: );
3037: l_return_status :=FND_API.G_RET_STS_UNEXP_ERROR;
3038: END IF;
3039:
3040: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3041: ('Converted resource code . . .');
3042: END IF;
3043:
3044: END IF;
3086: );
3087: l_return_status :=FND_API.G_RET_STS_UNEXP_ERROR;
3088: END IF;
3089:
3090: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3091: ('Converted activity. . .');
3092: END IF;
3093:
3094:
3135: );
3136: l_return_status :=FND_API.G_RET_STS_UNEXP_ERROR;
3137: END IF;
3138:
3139: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3140: ('Converted setup code . . .');
3141: END IF;
3142:
3143: END IF;
3144:
3145:
3146: x_return_status := l_return_status;
3147:
3148: IF Bom_Rtg_Globals.Get_Debug = 'Y'
3149: THEN Error_Handler.Write_Debug
3150: ('Return status of resource VID: ' || l_return_status );
3151: END IF;
3152:
3255: x_return_status := FND_API.G_RET_STS_SUCCESS;
3256: l_return_status := FND_API.G_RET_STS_SUCCESS;
3257: l_rev_sub_res_unexp_rec := p_rev_sub_res_unexp_rec ;
3258:
3259: IF BOM_Rtg_Globals.Get_Debug = 'Y'
3260: THEN Error_Handler.Write_Debug
3261: ('Substitute resource record UUI-UI Conversion . . ');
3262: END IF;
3263:
3364:
3365: l_return_status := FND_API.G_RET_STS_ERROR;
3366: END IF;
3367:
3368: IF BOM_Rtg_Globals.Get_Debug = 'Y'
3369: THEN Error_Handler.Write_Debug
3370: ('Finish Substitute resource record Key Col check. . ');
3371: END IF;
3372:
3421: );
3422: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3423: END IF;
3424:
3425: IF BOM_Rtg_Globals.Get_Debug = 'Y'
3426: THEN Error_Handler.Write_Debug
3427: ('After converting Assembly Item Id : '
3428: || to_char(l_rev_sub_res_unexp_rec.revised_item_id)
3429: || ' Status ' || l_return_status);
3471: -- Using the revised item key information, get the routing_sequence_id
3472: -- and revised item sequence id
3473: --
3474: ****************************************************************/
3475: IF BOM_Rtg_Globals.Get_Bo_Identifier <> BOM_Rtg_Globals.G_RTG_BO
3476: THEN
3477: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3478: Error_Handler.Write_Debug('Processing UUI_UI for sub op resources and retrieving rev item seq id . . . ');
3479: END IF;
3473: --
3474: ****************************************************************/
3475: IF BOM_Rtg_Globals.Get_Bo_Identifier <> BOM_Rtg_Globals.G_RTG_BO
3476: THEN
3477: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3478: Error_Handler.Write_Debug('Processing UUI_UI for sub op resources and retrieving rev item seq id . . . ');
3479: END IF;
3480:
3481: NULL ;
3516: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
3517: x_rev_sub_res_unexp_rec := l_rev_sub_res_unexp_rec;
3518: x_Return_Status := l_Return_Status;
3519:
3520: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('And this call returned with ' || l_Return_Status); END IF;
3521:
3522: RETURN;
3523:
3524: END IF;
3522: RETURN;
3523:
3524: END IF;
3525:
3526: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3527: Error_Handler.Write_Debug('Revised Item Sequence Id : ' || to_char(l_rev_sub_res_unexp_rec.revised_item_sequence_id)) ;
3528: END IF ;
3529: ****************************************************************/
3530:
3529: ****************************************************************/
3530:
3531: ELSE
3532:
3533: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3534: Error_Handler.Write_Debug('Processing UUI_UI for sub op res . . . ');
3535: END IF;
3536: --
3537: -- If the calling BO is RTG then get the routing sequence id
3578: );
3579: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3580: END IF;
3581:
3582: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3583: Error_Handler.Write_Debug('After converting, routing sequence id is '
3584: || to_char(l_rev_sub_res_unexp_rec.routing_sequence_id )
3585: || ' Status ' || l_return_status);
3586: END IF;
3587:
3588: END IF ;
3589:
3590: -- Added by MK on 12/04/00
3591: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_RTG_BO
3592: THEN
3593:
3594: --
3595: -- For flow routing, operatoin Type should be set in (1, 2, 3)
3594: --
3595: -- For flow routing, operatoin Type should be set in (1, 2, 3)
3596: -- For non flow routing,
3597:
3598: l_cfm_flag := BOM_Rtg_Globals.Get_CFM_Rtg_Flag ;
3599: IF l_cfm_flag IS NULL OR
3600: l_cfm_flag = FND_API.G_MISS_NUM
3601: THEN
3602: l_cfm_flag := Bom_Rtg_Validate.Get_Flow_Routing_Flag(
3601: THEN
3602: l_cfm_flag := Bom_Rtg_Validate.Get_Flow_Routing_Flag(
3603: p_routing_sequence_id =>
3604: l_rev_sub_res_unexp_rec.routing_sequence_id ) ;
3605: BOM_Rtg_Globals.Set_CFM_Rtg_Flag(p_cfm_rtg_type => l_cfm_flag) ;
3606: END IF;
3607:
3608: IF l_cfm_flag = BOM_Rtg_Globals.G_FLOW_RTG
3609: THEN
3604: l_rev_sub_res_unexp_rec.routing_sequence_id ) ;
3605: BOM_Rtg_Globals.Set_CFM_Rtg_Flag(p_cfm_rtg_type => l_cfm_flag) ;
3606: END IF;
3607:
3608: IF l_cfm_flag = BOM_Rtg_Globals.G_FLOW_RTG
3609: THEN
3610: IF p_rev_sub_resource_rec.operation_type IS NULL
3611: OR p_rev_sub_resource_rec.operation_type = FND_API.G_MISS_NUM
3612: OR p_rev_sub_resource_rec.operation_type NOT IN (1, 2, 3)
3693: );
3694: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3695: END IF;
3696:
3697: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3698: Error_Handler.Write_Debug('After converting, op sequence id is '
3699: || to_char(l_rev_sub_res_unexp_rec.operation_sequence_id )
3700: || ' Status ' || l_return_status);
3701: END IF;
3741: , p_token_tbl => l_token_tbl
3742: );
3743: l_return_status :=FND_API.G_RET_STS_UNEXP_ERROR;
3744: END IF;
3745: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3746: Error_Handler.Write_Debug('After converting, Resource Id is '
3747: || to_char(l_rev_sub_res_unexp_rec.resource_id)
3748: || ' Status ' || l_return_status);
3749: END IF;
3776: l_return_status := FND_API.G_RET_STS_ERROR;
3777: END IF;
3778: END IF;
3779:
3780: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3781: Error_Handler.Write_Debug('After set substitute group num '
3782: || to_char(nvl(p_rev_sub_resource_rec.substitute_group_number, l_rev_sub_res_unexp_rec.substitute_group_number))
3783: || ' verify it. Status ' || l_return_status);
3784: END IF;
3782: || to_char(nvl(p_rev_sub_resource_rec.substitute_group_number, l_rev_sub_res_unexp_rec.substitute_group_number))
3783: || ' verify it. Status ' || l_return_status);
3784: END IF;
3785:
3786: END IF; -- Added by MK on 12/04/00 BOM_Rtg_Globals.G_RTG_BO specific
3787:
3788: x_return_status := l_return_status;
3789: x_rev_sub_res_unexp_rec := l_rev_sub_res_unexp_rec;
3790: x_mesg_token_tbl := l_mesg_token_tbl;
3878: l_rev_sub_res_unexp_rec Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type
3879: := p_rev_sub_res_unexp_rec ;
3880: BEGIN
3881:
3882: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3883: Error_Handler.Write_Debug('Substitute resource VID conversion . . .');
3884: END IF;
3885:
3886: --
3925: , p_token_tbl => l_token_tbl
3926: );
3927: l_return_status :=FND_API.G_RET_STS_UNEXP_ERROR;
3928: END IF;
3929: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3930: Error_Handler.Write_Debug('Converted activity id. '|| to_char(l_rev_sub_res_unexp_rec.activity_id) );
3931: END IF;
3932:
3933: END IF;
3977: );
3978: l_return_status :=FND_API.G_RET_STS_UNEXP_ERROR;
3979: END IF;
3980:
3981: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3982: ('Converted new sub resource id. ' || to_char(l_rev_sub_res_unexp_rec.new_resource_id) ) ;
3983: END IF;
3984:
3985: END IF;
4025: );
4026: l_return_status :=FND_API.G_RET_STS_UNEXP_ERROR;
4027: END IF;
4028:
4029: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
4030: Error_Handler.Write_Debug ('Converted setup code . . .');
4031: END IF;
4032:
4033: END IF;
4078: WHERE alternate_designator_code = p_alt_designator
4079: AND organization_id = p_organization_id;
4080:
4081: /***BEGIN 1838261***/
4082: x_temp_op_rec BOM_RTG_Globals.Temp_Op_Rec_Type;
4083: /***END 1838261***/
4084: l_temp_op_rec_tbl_test BOM_RTG_Globals.Temp_Op_Rec_Tbl_Type;--for testing by Dev
4085: BEGIN
4086: x_return_status := FND_API.G_RET_STS_SUCCESS;
4080:
4081: /***BEGIN 1838261***/
4082: x_temp_op_rec BOM_RTG_Globals.Temp_Op_Rec_Type;
4083: /***END 1838261***/
4084: l_temp_op_rec_tbl_test BOM_RTG_Globals.Temp_Op_Rec_Tbl_Type;--for testing by Dev
4085: BEGIN
4086: x_return_status := FND_API.G_RET_STS_SUCCESS;
4087: l_return_status := FND_API.G_RET_STS_SUCCESS;
4088: l_op_network_unexp_rec := p_op_network_unexp_rec;
4086: x_return_status := FND_API.G_RET_STS_SUCCESS;
4087: l_return_status := FND_API.G_RET_STS_SUCCESS;
4088: l_op_network_unexp_rec := p_op_network_unexp_rec;
4089:
4090: IF BOM_Rtg_Globals.Get_Debug = 'Y'
4091: THEN Error_Handler.Write_Debug
4092: ('Operation network record UUI-UI Conversion . . ');
4093: END IF;
4094:
4225: );
4226: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4227: END IF;
4228:
4229: IF BOM_Rtg_Globals.Get_Debug = 'Y'
4230: THEN Error_Handler.Write_Debug
4231: ('After converting Assembly Item Id : '
4232: || to_char(l_op_network_unexp_rec.assembly_item_id)
4233: || ' Status ' || l_return_status);
4307: );
4308: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4309: END IF;
4310:
4311: IF BOM_Rtg_Globals.Get_Debug = 'Y'
4312: THEN Error_Handler.Write_Debug
4313: ('After converting, routing sequence id is '
4314: || to_char(l_op_network_unexp_rec.routing_sequence_id )
4315: || ' Status ' || l_return_status);
4318: --
4319: -- For operation network, CFM flag should be in (1, 3)
4320: --
4321:
4322: IF BOM_Rtg_Globals.Get_CFM_Rtg_Flag IS NULL OR
4323: BOM_Rtg_Globals.Get_CFM_Rtg_Flag = FND_API.G_MISS_NUM
4324: THEN
4325: l_cfm_flag := Bom_Rtg_Validate.Get_Flow_Routing_Flag(
4326: l_op_network_unexp_rec.routing_sequence_id) ;
4319: -- For operation network, CFM flag should be in (1, 3)
4320: --
4321:
4322: IF BOM_Rtg_Globals.Get_CFM_Rtg_Flag IS NULL OR
4323: BOM_Rtg_Globals.Get_CFM_Rtg_Flag = FND_API.G_MISS_NUM
4324: THEN
4325: l_cfm_flag := Bom_Rtg_Validate.Get_Flow_Routing_Flag(
4326: l_op_network_unexp_rec.routing_sequence_id) ;
4327: BOM_Rtg_Globals.Set_CFM_Rtg_Flag(p_cfm_rtg_type => l_cfm_flag) ;
4323: BOM_Rtg_Globals.Get_CFM_Rtg_Flag = FND_API.G_MISS_NUM
4324: THEN
4325: l_cfm_flag := Bom_Rtg_Validate.Get_Flow_Routing_Flag(
4326: l_op_network_unexp_rec.routing_sequence_id) ;
4327: BOM_Rtg_Globals.Set_CFM_Rtg_Flag(p_cfm_rtg_type => l_cfm_flag) ;
4328:
4329: ELSE l_cfm_flag := BOM_Rtg_Globals.Get_CFM_Rtg_Flag ;
4330: END IF;
4331:
4325: l_cfm_flag := Bom_Rtg_Validate.Get_Flow_Routing_Flag(
4326: l_op_network_unexp_rec.routing_sequence_id) ;
4327: BOM_Rtg_Globals.Set_CFM_Rtg_Flag(p_cfm_rtg_type => l_cfm_flag) ;
4328:
4329: ELSE l_cfm_flag := BOM_Rtg_Globals.Get_CFM_Rtg_Flag ;
4330: END IF;
4331:
4332: /*
4333: -- For eAM enhancement, following cfm routing flag validation
4331:
4332: /*
4333: -- For eAM enhancement, following cfm routing flag validation
4334: -- is moved to BOM_Validate_Op_Network.Check_Access procedure
4335: IF l_cfm_flag <> BOM_Rtg_Globals.G_FLOW_RTG
4336: AND l_cfm_flag <> BOM_Rtg_Globals.G_LOT_RTG
4337: THEN
4338: g_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
4339: g_token_tbl(1).token_value :=
4332: /*
4333: -- For eAM enhancement, following cfm routing flag validation
4334: -- is moved to BOM_Validate_Op_Network.Check_Access procedure
4335: IF l_cfm_flag <> BOM_Rtg_Globals.G_FLOW_RTG
4336: AND l_cfm_flag <> BOM_Rtg_Globals.G_LOT_RTG
4337: THEN
4338: g_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
4339: g_token_tbl(1).token_value :=
4340: p_op_network_rec.assembly_item_name;
4351: --
4352: -- For flow routing, operatoin Type should be set in (2, 3)
4353: --
4354:
4355: IF l_cfm_flag = BOM_Rtg_Globals.G_FLOW_RTG
4356: THEN
4357: IF p_op_network_rec.operation_type IS NULL
4358: OR p_op_network_rec.operation_type = FND_API.G_MISS_NUM
4359: OR p_op_network_rec.operation_type NOT IN (2, 3)
4374: l_return_status := FND_API.G_RET_STS_ERROR ;
4375:
4376: END IF ;
4377:
4378: ELSIF l_cfm_flag = BOM_Rtg_Globals.G_LOT_RTG
4379: OR l_cfm_flag = BOM_Rtg_Globals.G_STD_RTG
4380: THEN
4381: IF p_op_network_rec.operation_type IS NOT NULL
4382: AND p_op_network_rec.operation_type <> FND_API.G_MISS_NUM
4375:
4376: END IF ;
4377:
4378: ELSIF l_cfm_flag = BOM_Rtg_Globals.G_LOT_RTG
4379: OR l_cfm_flag = BOM_Rtg_Globals.G_STD_RTG
4380: THEN
4381: IF p_op_network_rec.operation_type IS NOT NULL
4382: AND p_op_network_rec.operation_type <> FND_API.G_MISS_NUM
4383: AND p_op_network_rec.operation_type <> 1
4410:
4411: --
4412: -- Get From_operation_sequence_id
4413: --
4414: -- BOM_RTG_Globals.Set_Temp_Op_Tbl(l_temp_op_rec_tbl_test);--for testing by Dev
4415:
4416: l_op_network_unexp_rec.from_op_seq_id :=
4417: Operation_Sequence_id
4418: ( p_routing_sequence_id =>
4428: /***BEGIN 1838261***/
4429:
4430: IF l_op_network_unexp_rec.from_op_seq_id IS NULL THEN
4431:
4432: IF BOM_Rtg_Globals.Get_CFM_Rtg_Flag = BOM_Rtg_Globals.G_Lot_Rtg THEN
4433:
4434: IF BOM_RTG_Globals.Get_Temp_Op_Rec1(p_op_network_rec.from_op_seq_number, p_op_network_rec.from_start_effective_date, x_temp_op_rec) THEN
4435:
4436: l_op_network_unexp_rec.from_op_seq_id :=
4430: IF l_op_network_unexp_rec.from_op_seq_id IS NULL THEN
4431:
4432: IF BOM_Rtg_Globals.Get_CFM_Rtg_Flag = BOM_Rtg_Globals.G_Lot_Rtg THEN
4433:
4434: IF BOM_RTG_Globals.Get_Temp_Op_Rec1(p_op_network_rec.from_op_seq_number, p_op_network_rec.from_start_effective_date, x_temp_op_rec) THEN
4435:
4436: l_op_network_unexp_rec.from_op_seq_id :=
4437: Operation_Sequence_id
4438: ( p_routing_sequence_id =>
4446: , x_err_text => l_err_text
4447: );
4448: END IF;
4449: ELSE
4450: IF BOM_RTG_Globals.Get_Temp_Op_Rec(p_op_network_rec.from_op_seq_number, x_temp_op_rec) THEN
4451: l_op_network_unexp_rec.from_op_seq_id :=
4452: Operation_Sequence_id
4453: ( p_routing_sequence_id =>
4454: l_op_network_unexp_rec.routing_sequence_id
4492: );
4493: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4494: END IF;
4495:
4496: IF BOM_Rtg_Globals.Get_Debug = 'Y'
4497: THEN Error_Handler.Write_Debug
4498: ('After converting, From Op Seq Id is '
4499: || to_char(l_op_network_unexp_rec.from_op_seq_id)
4500: || ' Status ' || l_return_status);
4518:
4519: /***BEGIN 1838261***/
4520:
4521: IF l_op_network_unexp_rec.to_op_seq_id IS NULL THEN
4522: IF BOM_Rtg_Globals.Get_CFM_Rtg_Flag = BOM_Rtg_Globals.G_Lot_Rtg THEN
4523: IF BOM_RTG_Globals.Get_Temp_Op_Rec1(p_op_network_rec.to_op_seq_number, p_op_network_rec.to_start_effective_date, x_temp_op_rec) THEN
4524: l_op_network_unexp_rec.to_op_seq_id :=
4525: Operation_Sequence_id
4526: ( p_routing_sequence_id =>
4519: /***BEGIN 1838261***/
4520:
4521: IF l_op_network_unexp_rec.to_op_seq_id IS NULL THEN
4522: IF BOM_Rtg_Globals.Get_CFM_Rtg_Flag = BOM_Rtg_Globals.G_Lot_Rtg THEN
4523: IF BOM_RTG_Globals.Get_Temp_Op_Rec1(p_op_network_rec.to_op_seq_number, p_op_network_rec.to_start_effective_date, x_temp_op_rec) THEN
4524: l_op_network_unexp_rec.to_op_seq_id :=
4525: Operation_Sequence_id
4526: ( p_routing_sequence_id =>
4527: l_op_network_unexp_rec.routing_sequence_id
4534: , x_err_text => l_err_text
4535: );
4536: END IF;
4537: ELSE
4538: IF BOM_RTG_Globals.Get_Temp_Op_Rec(p_op_network_rec.to_op_seq_number, x_temp_op_rec) THEN
4539: l_op_network_unexp_rec.to_op_seq_id :=
4540: Operation_Sequence_id
4541: ( p_routing_sequence_id =>
4542: l_op_network_unexp_rec.routing_sequence_id
4581: );
4582: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4583: END IF;
4584:
4585: IF BOM_Rtg_Globals.Get_Debug = 'Y'
4586: THEN Error_Handler.Write_Debug
4587: ('After converting, To Op Seq Id is '
4588: || to_char(l_op_network_unexp_rec.to_op_seq_id)
4589: || ' Status ' || l_return_status);
4612: );
4613:
4614: /***BEGIN 1838261***/
4615: IF l_op_network_unexp_rec.new_from_op_seq_id IS NULL THEN
4616: IF BOM_RTG_Globals.Get_Temp_Op_Rec(p_op_network_rec.new_from_op_seq_number, x_temp_op_rec) THEN
4617: l_op_network_unexp_rec.new_from_op_seq_id :=
4618: Operation_Sequence_id
4619: ( p_routing_sequence_id =>
4620: l_op_network_unexp_rec.routing_sequence_id
4657: );
4658: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4659: END IF;
4660:
4661: IF BOM_Rtg_Globals.Get_Debug = 'Y'
4662: THEN Error_Handler.Write_Debug
4663: ('After converting, New From Op Seq Id is '
4664: || to_char(l_op_network_unexp_rec.new_from_op_seq_id)
4665: || ' Status ' || l_return_status);
4690: );
4691:
4692: /***BEGIN 1838261***/
4693: IF l_op_network_unexp_rec.new_to_op_seq_id IS NULL THEN
4694: IF BOM_RTG_Globals.Get_Temp_Op_Rec(p_op_network_rec.new_to_op_seq_number, x_temp_op_rec) THEN
4695: l_op_network_unexp_rec.new_to_op_seq_id :=
4696: Operation_Sequence_id
4697: ( p_routing_sequence_id =>
4698: l_op_network_unexp_rec.routing_sequence_id
4736: );
4737: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4738: END IF;
4739:
4740: IF BOM_Rtg_Globals.Get_Debug = 'Y'
4741: THEN Error_Handler.Write_Debug
4742: ('After converting, New To Op Seq Id is '
4743: || to_char(l_op_network_unexp_rec.new_to_op_seq_id)
4744: || ' Status ' || l_return_status);