[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:
2354: , p_operation_type => p_com_operation_rec.operation_type
2355: , p_routing_sequence_id => l_com_op_unexp_rec.routing_sequence_id
2356: );
2357:
2358: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug ('Converted Old Operation Seq Id. . .');
2359: END IF;
2360:
2361: IF l_com_op_unexp_rec.old_operation_sequence_id IS NULL
2362: THEN
2396:
2397:
2398: x_return_status := l_return_status;
2399:
2400: IF Bom_Rtg_Globals.Get_Debug = 'Y'
2401: THEN Error_Handler.Write_Debug
2402: ('Return status of operation VID: ' || l_return_status );
2403: END IF;
2404:
2505: x_return_status := FND_API.G_RET_STS_SUCCESS;
2506: l_return_status := FND_API.G_RET_STS_SUCCESS;
2507: l_rev_op_res_unexp_rec := p_rev_op_res_unexp_rec;
2508:
2509: If BOM_Rtg_Globals.Get_Debug = 'Y'
2510: THEN Error_Handler.Write_Debug
2511: ('Operation resource record UUI-UI Conversion . . ');
2512: END IF;
2513:
2621: );
2622: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2623: END IF;
2624:
2625: IF BOM_Rtg_Globals.Get_Debug = 'Y'
2626: THEN Error_Handler.Write_Debug
2627: ('After converting Assembly Item Id : '
2628: || to_char(l_rev_op_res_unexp_rec.revised_item_id)
2629: || ' Status ' || l_return_status);
2671: -- and revised item sequence id
2672: --
2673: ****************************************************************/
2674:
2675: IF BOM_Rtg_Globals.Get_Bo_Identifier <> BOM_Rtg_Globals.G_RTG_BO
2676: THEN
2677:
2678: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
2679: Error_Handler.Write_Debug('Processing UUI_UI for operation resources and retrieving rev item seq id . . . ');
2674:
2675: IF BOM_Rtg_Globals.Get_Bo_Identifier <> BOM_Rtg_Globals.G_RTG_BO
2676: THEN
2677:
2678: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
2679: Error_Handler.Write_Debug('Processing UUI_UI for operation resources and retrieving rev item seq id . . . ');
2680: END IF;
2681:
2682: NULL ;
2715: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
2716: x_rev_op_res_unexp_rec := l_rev_op_res_unexp_rec;
2717: x_Return_Status := l_Return_Status;
2718:
2719: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('And this call returned with ' || l_Return_Status); END IF;
2720:
2721: RETURN;
2722:
2723: END IF;
2721: RETURN;
2722:
2723: END IF;
2724:
2725: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
2726: Error_Handler.Write_Debug('Revised Item Sequence Id : ' || to_char(l_rev_op_res_unexp_rec.revised_item_sequence_id)) ;
2727: END IF ;
2728:
2729: ****************************************************************/
2731: ELSE
2732: --
2733: -- If the calling BO is RTG then get the routing sequence id
2734: --
2735: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
2736: Error_Handler.Write_Debug('Processing UUI_UI for operation resources. . . ');
2737: END IF;
2738: l_rev_op_res_unexp_rec.routing_sequence_id :=
2739: Routing_Sequence_id
2775: END IF;
2776: END IF ;
2777:
2778: -- Added by MK on 12/04/00
2779: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_RTG_BO
2780: THEN
2781:
2782: IF BOM_Rtg_Globals.Get_Debug = 'Y'
2783: THEN Error_Handler.Write_Debug
2778: -- Added by MK on 12/04/00
2779: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_RTG_BO
2780: THEN
2781:
2782: IF BOM_Rtg_Globals.Get_Debug = 'Y'
2783: THEN Error_Handler.Write_Debug
2784: ('After converting, routing sequence id is '
2785: || to_char(l_rev_op_res_unexp_rec.routing_sequence_id )
2786: || ' Status ' || l_return_status);
2788:
2789: --
2790: -- For flow routing, operatoin Type should be set in (1, 2, 3)
2791: --
2792: IF BOM_Rtg_Globals.Get_CFM_Rtg_Flag IS NULL OR
2793: BOM_Rtg_Globals.Get_CFM_Rtg_Flag = FND_API.G_MISS_NUM
2794: THEN
2795: l_cfm_flag := Bom_Rtg_Validate.Get_Flow_Routing_Flag(
2796: l_rev_op_res_unexp_rec.routing_sequence_id) ;
2789: --
2790: -- For flow routing, operatoin Type should be set in (1, 2, 3)
2791: --
2792: IF BOM_Rtg_Globals.Get_CFM_Rtg_Flag IS NULL OR
2793: BOM_Rtg_Globals.Get_CFM_Rtg_Flag = FND_API.G_MISS_NUM
2794: THEN
2795: l_cfm_flag := Bom_Rtg_Validate.Get_Flow_Routing_Flag(
2796: l_rev_op_res_unexp_rec.routing_sequence_id) ;
2797: BOM_Rtg_Globals.Set_CFM_Rtg_Flag(p_cfm_rtg_type => l_cfm_flag) ;
2793: BOM_Rtg_Globals.Get_CFM_Rtg_Flag = FND_API.G_MISS_NUM
2794: THEN
2795: l_cfm_flag := Bom_Rtg_Validate.Get_Flow_Routing_Flag(
2796: l_rev_op_res_unexp_rec.routing_sequence_id) ;
2797: BOM_Rtg_Globals.Set_CFM_Rtg_Flag(p_cfm_rtg_type => l_cfm_flag) ;
2798: ELSE l_cfm_flag := BOM_Rtg_Globals.Get_CFM_Rtg_Flag ;
2799: END IF;
2800:
2801: IF l_cfm_flag = BOM_Rtg_Globals.G_FLOW_RTG
2794: THEN
2795: l_cfm_flag := Bom_Rtg_Validate.Get_Flow_Routing_Flag(
2796: l_rev_op_res_unexp_rec.routing_sequence_id) ;
2797: BOM_Rtg_Globals.Set_CFM_Rtg_Flag(p_cfm_rtg_type => l_cfm_flag) ;
2798: ELSE l_cfm_flag := BOM_Rtg_Globals.Get_CFM_Rtg_Flag ;
2799: END IF;
2800:
2801: IF l_cfm_flag = BOM_Rtg_Globals.G_FLOW_RTG
2802: THEN
2797: BOM_Rtg_Globals.Set_CFM_Rtg_Flag(p_cfm_rtg_type => l_cfm_flag) ;
2798: ELSE l_cfm_flag := BOM_Rtg_Globals.Get_CFM_Rtg_Flag ;
2799: END IF;
2800:
2801: IF l_cfm_flag = BOM_Rtg_Globals.G_FLOW_RTG
2802: THEN
2803: IF p_rev_op_resource_rec.operation_type IS NULL
2804: OR p_rev_op_resource_rec.operation_type = FND_API.G_MISS_NUM
2805: OR p_rev_op_resource_rec.operation_type NOT IN (1, 2, 3)
2880: );
2881: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2882: END IF;
2883:
2884: IF BOM_Rtg_Globals.Get_Debug = 'Y'
2885: THEN Error_Handler.Write_Debug
2886: ('After converting, operation sequence id is '
2887: || to_char(l_rev_op_res_unexp_rec.operation_sequence_id )
2888: || ' Status ' || l_return_status);
2984: l_rev_op_res_unexp_rec Bom_Rtg_Pub.Rev_Op_Res_Unexposed_Rec_Type
2985: := p_rev_op_res_unexp_rec ;
2986: BEGIN
2987:
2988: IF BOM_Rtg_Globals.Get_Debug = 'Y'
2989: THEN Error_Handler.Write_Debug('Resource VID conversion . . .');
2990: END IF;
2991:
2992: --
3033: );
3034: l_return_status :=FND_API.G_RET_STS_UNEXP_ERROR;
3035: END IF;
3036:
3037: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3038: ('Converted resource code . . .');
3039: END IF;
3040:
3041: END IF;
3083: );
3084: l_return_status :=FND_API.G_RET_STS_UNEXP_ERROR;
3085: END IF;
3086:
3087: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3088: ('Converted activity. . .');
3089: END IF;
3090:
3091:
3132: );
3133: l_return_status :=FND_API.G_RET_STS_UNEXP_ERROR;
3134: END IF;
3135:
3136: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3137: ('Converted setup code . . .');
3138: END IF;
3139:
3140: END IF;
3141:
3142:
3143: x_return_status := l_return_status;
3144:
3145: IF Bom_Rtg_Globals.Get_Debug = 'Y'
3146: THEN Error_Handler.Write_Debug
3147: ('Return status of resource VID: ' || l_return_status );
3148: END IF;
3149:
3252: x_return_status := FND_API.G_RET_STS_SUCCESS;
3253: l_return_status := FND_API.G_RET_STS_SUCCESS;
3254: l_rev_sub_res_unexp_rec := p_rev_sub_res_unexp_rec ;
3255:
3256: IF BOM_Rtg_Globals.Get_Debug = 'Y'
3257: THEN Error_Handler.Write_Debug
3258: ('Substitute resource record UUI-UI Conversion . . ');
3259: END IF;
3260:
3361:
3362: l_return_status := FND_API.G_RET_STS_ERROR;
3363: END IF;
3364:
3365: IF BOM_Rtg_Globals.Get_Debug = 'Y'
3366: THEN Error_Handler.Write_Debug
3367: ('Finish Substitute resource record Key Col check. . ');
3368: END IF;
3369:
3418: );
3419: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3420: END IF;
3421:
3422: IF BOM_Rtg_Globals.Get_Debug = 'Y'
3423: THEN Error_Handler.Write_Debug
3424: ('After converting Assembly Item Id : '
3425: || to_char(l_rev_sub_res_unexp_rec.revised_item_id)
3426: || ' Status ' || l_return_status);
3468: -- Using the revised item key information, get the routing_sequence_id
3469: -- and revised item sequence id
3470: --
3471: ****************************************************************/
3472: IF BOM_Rtg_Globals.Get_Bo_Identifier <> BOM_Rtg_Globals.G_RTG_BO
3473: THEN
3474: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3475: Error_Handler.Write_Debug('Processing UUI_UI for sub op resources and retrieving rev item seq id . . . ');
3476: END IF;
3470: --
3471: ****************************************************************/
3472: IF BOM_Rtg_Globals.Get_Bo_Identifier <> BOM_Rtg_Globals.G_RTG_BO
3473: THEN
3474: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3475: Error_Handler.Write_Debug('Processing UUI_UI for sub op resources and retrieving rev item seq id . . . ');
3476: END IF;
3477:
3478: NULL ;
3513: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
3514: x_rev_sub_res_unexp_rec := l_rev_sub_res_unexp_rec;
3515: x_Return_Status := l_Return_Status;
3516:
3517: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('And this call returned with ' || l_Return_Status); END IF;
3518:
3519: RETURN;
3520:
3521: END IF;
3519: RETURN;
3520:
3521: END IF;
3522:
3523: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3524: Error_Handler.Write_Debug('Revised Item Sequence Id : ' || to_char(l_rev_sub_res_unexp_rec.revised_item_sequence_id)) ;
3525: END IF ;
3526: ****************************************************************/
3527:
3526: ****************************************************************/
3527:
3528: ELSE
3529:
3530: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3531: Error_Handler.Write_Debug('Processing UUI_UI for sub op res . . . ');
3532: END IF;
3533: --
3534: -- If the calling BO is RTG then get the routing sequence id
3575: );
3576: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3577: END IF;
3578:
3579: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3580: Error_Handler.Write_Debug('After converting, routing sequence id is '
3581: || to_char(l_rev_sub_res_unexp_rec.routing_sequence_id )
3582: || ' Status ' || l_return_status);
3583: END IF;
3584:
3585: END IF ;
3586:
3587: -- Added by MK on 12/04/00
3588: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_RTG_BO
3589: THEN
3590:
3591: --
3592: -- For flow routing, operatoin Type should be set in (1, 2, 3)
3591: --
3592: -- For flow routing, operatoin Type should be set in (1, 2, 3)
3593: -- For non flow routing,
3594:
3595: l_cfm_flag := BOM_Rtg_Globals.Get_CFM_Rtg_Flag ;
3596: IF l_cfm_flag IS NULL OR
3597: l_cfm_flag = FND_API.G_MISS_NUM
3598: THEN
3599: l_cfm_flag := Bom_Rtg_Validate.Get_Flow_Routing_Flag(
3598: THEN
3599: l_cfm_flag := Bom_Rtg_Validate.Get_Flow_Routing_Flag(
3600: p_routing_sequence_id =>
3601: l_rev_sub_res_unexp_rec.routing_sequence_id ) ;
3602: BOM_Rtg_Globals.Set_CFM_Rtg_Flag(p_cfm_rtg_type => l_cfm_flag) ;
3603: END IF;
3604:
3605: IF l_cfm_flag = BOM_Rtg_Globals.G_FLOW_RTG
3606: THEN
3601: l_rev_sub_res_unexp_rec.routing_sequence_id ) ;
3602: BOM_Rtg_Globals.Set_CFM_Rtg_Flag(p_cfm_rtg_type => l_cfm_flag) ;
3603: END IF;
3604:
3605: IF l_cfm_flag = BOM_Rtg_Globals.G_FLOW_RTG
3606: THEN
3607: IF p_rev_sub_resource_rec.operation_type IS NULL
3608: OR p_rev_sub_resource_rec.operation_type = FND_API.G_MISS_NUM
3609: OR p_rev_sub_resource_rec.operation_type NOT IN (1, 2, 3)
3690: );
3691: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3692: END IF;
3693:
3694: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3695: Error_Handler.Write_Debug('After converting, op sequence id is '
3696: || to_char(l_rev_sub_res_unexp_rec.operation_sequence_id )
3697: || ' Status ' || l_return_status);
3698: END IF;
3738: , p_token_tbl => l_token_tbl
3739: );
3740: l_return_status :=FND_API.G_RET_STS_UNEXP_ERROR;
3741: END IF;
3742: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3743: Error_Handler.Write_Debug('After converting, Resource Id is '
3744: || to_char(l_rev_sub_res_unexp_rec.resource_id)
3745: || ' Status ' || l_return_status);
3746: END IF;
3773: l_return_status := FND_API.G_RET_STS_ERROR;
3774: END IF;
3775: END IF;
3776:
3777: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3778: Error_Handler.Write_Debug('After set substitute group num '
3779: || to_char(nvl(p_rev_sub_resource_rec.substitute_group_number, l_rev_sub_res_unexp_rec.substitute_group_number))
3780: || ' verify it. Status ' || l_return_status);
3781: END IF;
3779: || to_char(nvl(p_rev_sub_resource_rec.substitute_group_number, l_rev_sub_res_unexp_rec.substitute_group_number))
3780: || ' verify it. Status ' || l_return_status);
3781: END IF;
3782:
3783: END IF; -- Added by MK on 12/04/00 BOM_Rtg_Globals.G_RTG_BO specific
3784:
3785: x_return_status := l_return_status;
3786: x_rev_sub_res_unexp_rec := l_rev_sub_res_unexp_rec;
3787: x_mesg_token_tbl := l_mesg_token_tbl;
3875: l_rev_sub_res_unexp_rec Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type
3876: := p_rev_sub_res_unexp_rec ;
3877: BEGIN
3878:
3879: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3880: Error_Handler.Write_Debug('Substitute resource VID conversion . . .');
3881: END IF;
3882:
3883: --
3922: , p_token_tbl => l_token_tbl
3923: );
3924: l_return_status :=FND_API.G_RET_STS_UNEXP_ERROR;
3925: END IF;
3926: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3927: Error_Handler.Write_Debug('Converted activity id. '|| to_char(l_rev_sub_res_unexp_rec.activity_id) );
3928: END IF;
3929:
3930: END IF;
3974: );
3975: l_return_status :=FND_API.G_RET_STS_UNEXP_ERROR;
3976: END IF;
3977:
3978: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3979: ('Converted new sub resource id. ' || to_char(l_rev_sub_res_unexp_rec.new_resource_id) ) ;
3980: END IF;
3981:
3982: END IF;
4022: );
4023: l_return_status :=FND_API.G_RET_STS_UNEXP_ERROR;
4024: END IF;
4025:
4026: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
4027: Error_Handler.Write_Debug ('Converted setup code . . .');
4028: END IF;
4029:
4030: END IF;
4075: WHERE alternate_designator_code = p_alt_designator
4076: AND organization_id = p_organization_id;
4077:
4078: /***BEGIN 1838261***/
4079: x_temp_op_rec BOM_RTG_Globals.Temp_Op_Rec_Type;
4080: /***END 1838261***/
4081: l_temp_op_rec_tbl_test BOM_RTG_Globals.Temp_Op_Rec_Tbl_Type;--for testing by Dev
4082: BEGIN
4083: x_return_status := FND_API.G_RET_STS_SUCCESS;
4077:
4078: /***BEGIN 1838261***/
4079: x_temp_op_rec BOM_RTG_Globals.Temp_Op_Rec_Type;
4080: /***END 1838261***/
4081: l_temp_op_rec_tbl_test BOM_RTG_Globals.Temp_Op_Rec_Tbl_Type;--for testing by Dev
4082: BEGIN
4083: x_return_status := FND_API.G_RET_STS_SUCCESS;
4084: l_return_status := FND_API.G_RET_STS_SUCCESS;
4085: l_op_network_unexp_rec := p_op_network_unexp_rec;
4083: x_return_status := FND_API.G_RET_STS_SUCCESS;
4084: l_return_status := FND_API.G_RET_STS_SUCCESS;
4085: l_op_network_unexp_rec := p_op_network_unexp_rec;
4086:
4087: IF BOM_Rtg_Globals.Get_Debug = 'Y'
4088: THEN Error_Handler.Write_Debug
4089: ('Operation network record UUI-UI Conversion . . ');
4090: END IF;
4091:
4222: );
4223: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4224: END IF;
4225:
4226: IF BOM_Rtg_Globals.Get_Debug = 'Y'
4227: THEN Error_Handler.Write_Debug
4228: ('After converting Assembly Item Id : '
4229: || to_char(l_op_network_unexp_rec.assembly_item_id)
4230: || ' Status ' || l_return_status);
4304: );
4305: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4306: END IF;
4307:
4308: IF BOM_Rtg_Globals.Get_Debug = 'Y'
4309: THEN Error_Handler.Write_Debug
4310: ('After converting, routing sequence id is '
4311: || to_char(l_op_network_unexp_rec.routing_sequence_id )
4312: || ' Status ' || l_return_status);
4315: --
4316: -- For operation network, CFM flag should be in (1, 3)
4317: --
4318:
4319: IF BOM_Rtg_Globals.Get_CFM_Rtg_Flag IS NULL OR
4320: BOM_Rtg_Globals.Get_CFM_Rtg_Flag = FND_API.G_MISS_NUM
4321: THEN
4322: l_cfm_flag := Bom_Rtg_Validate.Get_Flow_Routing_Flag(
4323: l_op_network_unexp_rec.routing_sequence_id) ;
4316: -- For operation network, CFM flag should be in (1, 3)
4317: --
4318:
4319: IF BOM_Rtg_Globals.Get_CFM_Rtg_Flag IS NULL OR
4320: BOM_Rtg_Globals.Get_CFM_Rtg_Flag = FND_API.G_MISS_NUM
4321: THEN
4322: l_cfm_flag := Bom_Rtg_Validate.Get_Flow_Routing_Flag(
4323: l_op_network_unexp_rec.routing_sequence_id) ;
4324: BOM_Rtg_Globals.Set_CFM_Rtg_Flag(p_cfm_rtg_type => l_cfm_flag) ;
4320: BOM_Rtg_Globals.Get_CFM_Rtg_Flag = FND_API.G_MISS_NUM
4321: THEN
4322: l_cfm_flag := Bom_Rtg_Validate.Get_Flow_Routing_Flag(
4323: l_op_network_unexp_rec.routing_sequence_id) ;
4324: BOM_Rtg_Globals.Set_CFM_Rtg_Flag(p_cfm_rtg_type => l_cfm_flag) ;
4325:
4326: ELSE l_cfm_flag := BOM_Rtg_Globals.Get_CFM_Rtg_Flag ;
4327: END IF;
4328:
4322: l_cfm_flag := Bom_Rtg_Validate.Get_Flow_Routing_Flag(
4323: l_op_network_unexp_rec.routing_sequence_id) ;
4324: BOM_Rtg_Globals.Set_CFM_Rtg_Flag(p_cfm_rtg_type => l_cfm_flag) ;
4325:
4326: ELSE l_cfm_flag := BOM_Rtg_Globals.Get_CFM_Rtg_Flag ;
4327: END IF;
4328:
4329: /*
4330: -- For eAM enhancement, following cfm routing flag validation
4328:
4329: /*
4330: -- For eAM enhancement, following cfm routing flag validation
4331: -- is moved to BOM_Validate_Op_Network.Check_Access procedure
4332: IF l_cfm_flag <> BOM_Rtg_Globals.G_FLOW_RTG
4333: AND l_cfm_flag <> BOM_Rtg_Globals.G_LOT_RTG
4334: THEN
4335: g_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
4336: g_token_tbl(1).token_value :=
4329: /*
4330: -- For eAM enhancement, following cfm routing flag validation
4331: -- is moved to BOM_Validate_Op_Network.Check_Access procedure
4332: IF l_cfm_flag <> BOM_Rtg_Globals.G_FLOW_RTG
4333: AND l_cfm_flag <> BOM_Rtg_Globals.G_LOT_RTG
4334: THEN
4335: g_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
4336: g_token_tbl(1).token_value :=
4337: p_op_network_rec.assembly_item_name;
4348: --
4349: -- For flow routing, operatoin Type should be set in (2, 3)
4350: --
4351:
4352: IF l_cfm_flag = BOM_Rtg_Globals.G_FLOW_RTG
4353: THEN
4354: IF p_op_network_rec.operation_type IS NULL
4355: OR p_op_network_rec.operation_type = FND_API.G_MISS_NUM
4356: OR p_op_network_rec.operation_type NOT IN (2, 3)
4371: l_return_status := FND_API.G_RET_STS_ERROR ;
4372:
4373: END IF ;
4374:
4375: ELSIF l_cfm_flag = BOM_Rtg_Globals.G_LOT_RTG
4376: OR l_cfm_flag = BOM_Rtg_Globals.G_STD_RTG
4377: THEN
4378: IF p_op_network_rec.operation_type IS NOT NULL
4379: AND p_op_network_rec.operation_type <> FND_API.G_MISS_NUM
4372:
4373: END IF ;
4374:
4375: ELSIF l_cfm_flag = BOM_Rtg_Globals.G_LOT_RTG
4376: OR l_cfm_flag = BOM_Rtg_Globals.G_STD_RTG
4377: THEN
4378: IF p_op_network_rec.operation_type IS NOT NULL
4379: AND p_op_network_rec.operation_type <> FND_API.G_MISS_NUM
4380: AND p_op_network_rec.operation_type <> 1
4407:
4408: --
4409: -- Get From_operation_sequence_id
4410: --
4411: -- BOM_RTG_Globals.Set_Temp_Op_Tbl(l_temp_op_rec_tbl_test);--for testing by Dev
4412:
4413: l_op_network_unexp_rec.from_op_seq_id :=
4414: Operation_Sequence_id
4415: ( p_routing_sequence_id =>
4425: /***BEGIN 1838261***/
4426:
4427: IF l_op_network_unexp_rec.from_op_seq_id IS NULL THEN
4428:
4429: IF BOM_Rtg_Globals.Get_CFM_Rtg_Flag = BOM_Rtg_Globals.G_Lot_Rtg THEN
4430:
4431: 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
4432:
4433: l_op_network_unexp_rec.from_op_seq_id :=
4427: IF l_op_network_unexp_rec.from_op_seq_id IS NULL THEN
4428:
4429: IF BOM_Rtg_Globals.Get_CFM_Rtg_Flag = BOM_Rtg_Globals.G_Lot_Rtg THEN
4430:
4431: 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
4432:
4433: l_op_network_unexp_rec.from_op_seq_id :=
4434: Operation_Sequence_id
4435: ( p_routing_sequence_id =>
4443: , x_err_text => l_err_text
4444: );
4445: END IF;
4446: ELSE
4447: IF BOM_RTG_Globals.Get_Temp_Op_Rec(p_op_network_rec.from_op_seq_number, x_temp_op_rec) THEN
4448: l_op_network_unexp_rec.from_op_seq_id :=
4449: Operation_Sequence_id
4450: ( p_routing_sequence_id =>
4451: l_op_network_unexp_rec.routing_sequence_id
4489: );
4490: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4491: END IF;
4492:
4493: IF BOM_Rtg_Globals.Get_Debug = 'Y'
4494: THEN Error_Handler.Write_Debug
4495: ('After converting, From Op Seq Id is '
4496: || to_char(l_op_network_unexp_rec.from_op_seq_id)
4497: || ' Status ' || l_return_status);
4515:
4516: /***BEGIN 1838261***/
4517:
4518: IF l_op_network_unexp_rec.to_op_seq_id IS NULL THEN
4519: IF BOM_Rtg_Globals.Get_CFM_Rtg_Flag = BOM_Rtg_Globals.G_Lot_Rtg THEN
4520: 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
4521: l_op_network_unexp_rec.to_op_seq_id :=
4522: Operation_Sequence_id
4523: ( p_routing_sequence_id =>
4516: /***BEGIN 1838261***/
4517:
4518: IF l_op_network_unexp_rec.to_op_seq_id IS NULL THEN
4519: IF BOM_Rtg_Globals.Get_CFM_Rtg_Flag = BOM_Rtg_Globals.G_Lot_Rtg THEN
4520: 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
4521: l_op_network_unexp_rec.to_op_seq_id :=
4522: Operation_Sequence_id
4523: ( p_routing_sequence_id =>
4524: l_op_network_unexp_rec.routing_sequence_id
4531: , x_err_text => l_err_text
4532: );
4533: END IF;
4534: ELSE
4535: IF BOM_RTG_Globals.Get_Temp_Op_Rec(p_op_network_rec.to_op_seq_number, x_temp_op_rec) THEN
4536: l_op_network_unexp_rec.to_op_seq_id :=
4537: Operation_Sequence_id
4538: ( p_routing_sequence_id =>
4539: l_op_network_unexp_rec.routing_sequence_id
4578: );
4579: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4580: END IF;
4581:
4582: IF BOM_Rtg_Globals.Get_Debug = 'Y'
4583: THEN Error_Handler.Write_Debug
4584: ('After converting, To Op Seq Id is '
4585: || to_char(l_op_network_unexp_rec.to_op_seq_id)
4586: || ' Status ' || l_return_status);
4609: );
4610:
4611: /***BEGIN 1838261***/
4612: IF l_op_network_unexp_rec.new_from_op_seq_id IS NULL THEN
4613: IF BOM_RTG_Globals.Get_Temp_Op_Rec(p_op_network_rec.new_from_op_seq_number, x_temp_op_rec) THEN
4614: l_op_network_unexp_rec.new_from_op_seq_id :=
4615: Operation_Sequence_id
4616: ( p_routing_sequence_id =>
4617: l_op_network_unexp_rec.routing_sequence_id
4654: );
4655: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4656: END IF;
4657:
4658: IF BOM_Rtg_Globals.Get_Debug = 'Y'
4659: THEN Error_Handler.Write_Debug
4660: ('After converting, New From Op Seq Id is '
4661: || to_char(l_op_network_unexp_rec.new_from_op_seq_id)
4662: || ' Status ' || l_return_status);
4687: );
4688:
4689: /***BEGIN 1838261***/
4690: IF l_op_network_unexp_rec.new_to_op_seq_id IS NULL THEN
4691: IF BOM_RTG_Globals.Get_Temp_Op_Rec(p_op_network_rec.new_to_op_seq_number, x_temp_op_rec) THEN
4692: l_op_network_unexp_rec.new_to_op_seq_id :=
4693: Operation_Sequence_id
4694: ( p_routing_sequence_id =>
4695: l_op_network_unexp_rec.routing_sequence_id
4733: );
4734: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4735: END IF;
4736:
4737: IF BOM_Rtg_Globals.Get_Debug = 'Y'
4738: THEN Error_Handler.Write_Debug
4739: ('After converting, New To Op Seq Id is '
4740: || to_char(l_op_network_unexp_rec.new_to_op_seq_id)
4741: || ' Status ' || l_return_status);