140: IS
141:
142: -- general, column_changes and and cz's delete api stuff
143: l_direct_save BOOLEAN;
144: l_return_status_del VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
145: l_model_line_rec OE_ORDER_PUB.Line_Rec_Type;
146: l_profile_value VARCHAR2(1) :=
147: upper(FND_PROFILE.VALUE('ONT_CONFIG_QUICK_SAVE'));
148:
329: IF p_config_hdr_id = l_model_line_rec.config_header_id AND
330: p_config_rev_nbr = l_model_line_rec.config_rev_nbr THEN
331: oe_debug_pub.add('do not delete, special', 1);
332: ELSE
333: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
334: -- since we could not save the config successfully,
335: -- delete current rev. in SPC
336:
337: Delete_Config( p_config_hdr_id => p_config_hdr_id
337: Delete_Config( p_config_hdr_id => p_config_hdr_id
338: ,p_config_rev_nbr => p_config_rev_nbr
339: ,x_return_status => l_return_status_del);
340:
341: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
343: ELSE
344: RAISE FND_API.G_EXC_ERROR;
345: END IF;
338: ,p_config_rev_nbr => p_config_rev_nbr
339: ,x_return_status => l_return_status_del);
340:
341: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
343: ELSE
344: RAISE FND_API.G_EXC_ERROR;
345: END IF;
346: ELSE
340:
341: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
343: ELSE
344: RAISE FND_API.G_EXC_ERROR;
345: END IF;
346: ELSE
347: -- If we successfully save the configuration in oe_order_lines then
348: -- Time to delete previous revisions from spc
365: oe_debug_pub.add( 'CHANGED CONFIG INTERACTIVELY' , 1 ) ;
366: END IF;
367: END IF;
368:
369: x_return_status := FND_API.G_RET_STS_SUCCESS;
370:
371: Print_Time('Leaving Process Config');
372:
373: EXCEPTION
370:
371: Print_Time('Leaving Process Config');
372:
373: EXCEPTION
374: WHEN FND_API.G_EXC_ERROR THEN
375: -- Bug 12695580
376: oe_sales_can_util.G_CANCELLATION_ACTION := 'N';
377:
378: x_return_status := FND_API.G_RET_STS_ERROR;
374: WHEN FND_API.G_EXC_ERROR THEN
375: -- Bug 12695580
376: oe_sales_can_util.G_CANCELLATION_ACTION := 'N';
377:
378: x_return_status := FND_API.G_RET_STS_ERROR;
379: -- Get message count and data
380: oe_msg_pub.count_and_get
381: ( p_count => x_msg_count
382: , p_data => x_msg_data
381: ( p_count => x_msg_count
382: , p_data => x_msg_data
383: );
384:
385: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
386: -- Bug 12695580
387: oe_sales_can_util.G_CANCELLATION_ACTION := 'N';
388:
389: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
385: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
386: -- Bug 12695580
387: oe_sales_can_util.G_CANCELLATION_ACTION := 'N';
388:
389: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
390: -- Get message count and data
391: oe_msg_pub.count_and_get
392: ( p_count => x_msg_count
393: , p_data => x_msg_data
412: oe_msg_pub.count_and_get
413: ( p_count => x_msg_count
414: , p_data => x_msg_data
415: );
416: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
417:
418: END Process_Config;
419:
420:
679: WHERE inventory_item_id = config_rec.inventory_item_id
680: AND organization_id = OE_SYS_PARAMETERS.VALUE('MASTER_ORGANIZATION_ID');
681: EXCEPTION
682: WHEN NO_DATA_FOUND THEN
683: RAISE FND_API.G_EXC_ERROR;
684: END;
685:
686: IF l_debug_level > 0 THEN
687: oe_debug_pub.add('CONCAT SEGMENT IS: ' || L_CONCATENATED_SEGMENTS,3);
705: ,p_x_child_line_rec => l_class_line_rec
706: ,p_direct_save => p_direct_save
707: ,x_return_status => l_return_status);
708:
709: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
711: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
712: RAISE FND_API.G_EXC_ERROR;
713: END IF;
706: ,p_direct_save => p_direct_save
707: ,x_return_status => l_return_status);
708:
709: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
711: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
712: RAISE FND_API.G_EXC_ERROR;
713: END IF;
714:
707: ,x_return_status => l_return_status);
708:
709: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
711: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
712: RAISE FND_API.G_EXC_ERROR;
713: END IF;
714:
715: l_default_child_line := FALSE;
708:
709: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
711: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
712: RAISE FND_API.G_EXC_ERROR;
713: END IF;
714:
715: l_default_child_line := FALSE;
716: l_default_line_type_id := l_class_line_rec.line_type_id; --Added for bug 5107271
717:
718: END IF;
719:
720: IF config_rec.line_type IS NOT NULL AND
721: config_rec.line_type <> FND_API.G_MISS_NUM THEN
722:
723: IF l_debug_level > 0 THEN
724: OE_DEBUG_PUB.Add('Line Type from cz:'||config_rec.line_type,3);
725: END IF;
725: END IF;
726: l_class_line_rec.line_type_id := config_rec.line_type;
727: ELSE
728: /* Modified the below statement for bug 5107271 to assign the value of
729: l_default_line_type_id instead of FND_API.G_MISS_NUM */
730: -- l_class_line_rec.line_type_id := FND_API.G_MISS_NUM;
731: l_class_line_rec.line_type_id := l_default_line_type_id;
732: END IF;
733:
726: l_class_line_rec.line_type_id := config_rec.line_type;
727: ELSE
728: /* Modified the below statement for bug 5107271 to assign the value of
729: l_default_line_type_id instead of FND_API.G_MISS_NUM */
730: -- l_class_line_rec.line_type_id := FND_API.G_MISS_NUM;
731: l_class_line_rec.line_type_id := l_default_line_type_id;
732: END IF;
733:
734: l_class_line_rec.ordered_quantity := config_rec.quantity;
755:
756: ELSE
757:
758: IF config_rec.line_type IS NOT NULL AND
759: config_rec.line_type <> FND_API.G_MISS_NUM THEN
760:
761: IF l_debug_level > 0 THEN
762: OE_DEBUG_PUB.Add('cz LineType:'||config_rec.line_type,3);
763: END IF;
762: OE_DEBUG_PUB.Add('cz LineType:'||config_rec.line_type,3);
763: END IF;
764: l_line_rec.line_type_id := config_rec.line_type;
765: ELSE
766: l_line_rec.line_type_id := FND_API.G_MISS_NUM;
767: END IF;
768:
769:
770: l_line_rec.ordered_quantity := config_rec.quantity;
880: WHERE inventory_item_id = config_rec.inventory_item_id
881: AND organization_id = OE_SYS_PARAMETERS.VALUE('MASTER_ORGANIZATION_ID');
882: EXCEPTION
883: WHEN NO_DATA_FOUND THEN
884: RAISE FND_API.G_EXC_ERROR;
885: END;
886:
887: IF l_debug_level > 0 THEN
888: oe_debug_pub.add('CONCAT SEGMENT IS: ' || L_CONCATENATED_SEGMENTS ,3);
902: ,p_x_child_line_rec => l_class_line_rec
903: ,p_direct_save => p_direct_save
904: ,x_return_status => l_return_status);
905:
906: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
907: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
908: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
909: RAISE FND_API.G_EXC_ERROR;
910: END IF;
903: ,p_direct_save => p_direct_save
904: ,x_return_status => l_return_status);
905:
906: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
907: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
908: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
909: RAISE FND_API.G_EXC_ERROR;
910: END IF;
911:
904: ,x_return_status => l_return_status);
905:
906: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
907: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
908: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
909: RAISE FND_API.G_EXC_ERROR;
910: END IF;
911:
912: l_default_child_line := FALSE;
905:
906: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
907: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
908: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
909: RAISE FND_API.G_EXC_ERROR;
910: END IF;
911:
912: l_default_child_line := FALSE;
913:
1082: END IF;
1083: /* End 12695580 */
1084:
1085: IF config_rec.line_type IS NOT NULL AND
1086: config_rec.line_type <> FND_API.G_MISS_NUM THEN
1087:
1088: IF l_debug_level > 0 THEN
1089: OE_DEBUG_PUB.Add('MACD Logic,cz Line_type:'||config_rec.line_type,3);
1090: END IF;
1089: OE_DEBUG_PUB.Add('MACD Logic,cz Line_type:'||config_rec.line_type,3);
1090: END IF;
1091: l_line_rec.line_type_id := config_rec.line_type;
1092: ELSE
1093: l_line_rec.line_type_id := FND_API.G_MISS_NUM;
1094: END IF;
1095:
1096:
1097: IF p_ui_flag = 'N' THEN
1599: IS
1600: l_open_flag VARCHAR2(1);
1601: l_line_id NUMBER;
1602: l_parent_line_id NUMBER;
1603: l_ordered_quantity NUMBER := FND_API.G_MISS_NUM;
1604: l_component_code VARCHAR2(1000);
1605: --
1606: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1607: --
1859: l_line_tbl OE_Order_PUB.Line_Tbl_Type;
1860: l_old_line_tbl OE_Order_PUB.Line_Tbl_Type;
1861: l_msg_count NUMBER;
1862: l_msg_data VARCHAR2(2000);
1863: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1864: l_index NUMBER;
1865: l_return_code NUMBER; --Bug 4165102
1866: l_error_buffer VARCHAR2(240); --Bug 4165102
1867:
1911: fnd_profile.put('OE_CALCULATE_TAX_IN_OM', 'N');
1912:
1913: Print_Time('call to lines start time');
1914: OE_Order_Pvt.Lines
1915: ( p_validation_level => FND_API.G_VALID_LEVEL_NONE
1916: , p_control_rec => p_control_rec
1917: , p_x_line_tbl => p_line_tbl
1918: , p_x_old_line_tbl => l_old_line_tbl
1919: , x_return_status => l_return_status);
1926: OE_CONFIG_UTIL.G_CONFIG_UI_USED := 'N';
1927:
1928: fnd_profile.put('OE_CALCULATE_TAX_IN_OM', 'Y');
1929:
1930: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1931: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1932: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1933: RAISE FND_API.G_EXC_ERROR;
1934: END IF;
1927:
1928: fnd_profile.put('OE_CALCULATE_TAX_IN_OM', 'Y');
1929:
1930: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1931: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1932: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1933: RAISE FND_API.G_EXC_ERROR;
1934: END IF;
1935: END IF; -- count > 0
1928: fnd_profile.put('OE_CALCULATE_TAX_IN_OM', 'Y');
1929:
1930: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1931: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1932: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1933: RAISE FND_API.G_EXC_ERROR;
1934: END IF;
1935: END IF; -- count > 0
1936:
1929:
1930: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1931: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1932: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1933: RAISE FND_API.G_EXC_ERROR;
1934: END IF;
1935: END IF; -- count > 0
1936:
1937:
2012: (p_line_id => l_line_rec.top_model_line_id,
2013: p_child_line_id => l_line_rec.line_id,
2014: x_return_status => l_return_status);
2015:
2016: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2017: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2018: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2019: RAISE FND_API.G_EXC_ERROR;
2020: END IF;
2013: p_child_line_id => l_line_rec.line_id,
2014: x_return_status => l_return_status);
2015:
2016: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2017: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2018: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2019: RAISE FND_API.G_EXC_ERROR;
2020: END IF;
2021: -- Bug 5912216: Start the line level workflows for config child
2014: x_return_status => l_return_status);
2015:
2016: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2017: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2018: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2019: RAISE FND_API.G_EXC_ERROR;
2020: END IF;
2021: -- Bug 5912216: Start the line level workflows for config child
2022: -- lines only in case of normal sales order lines, NOT
2015:
2016: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2017: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2018: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2019: RAISE FND_API.G_EXC_ERROR;
2020: END IF;
2021: -- Bug 5912216: Start the line level workflows for config child
2022: -- lines only in case of normal sales order lines, NOT
2023: -- when processing negotiation lines.
2090:
2091: IF (p_line_tbl(1).booked_flag = 'Y') THEN
2092: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Reqtype
2093: (p_request_type =>OE_GLOBALS.G_PRICE_ORDER
2094: ,p_delete => FND_API.G_TRUE
2095: ,x_return_status => l_return_status
2096: );
2097: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2098: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2093: (p_request_type =>OE_GLOBALS.G_PRICE_ORDER
2094: ,p_delete => FND_API.G_TRUE
2095: ,x_return_status => l_return_status
2096: );
2097: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2098: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2099: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2100: RAISE FND_API.G_EXC_ERROR;
2101: END IF;
2094: ,p_delete => FND_API.G_TRUE
2095: ,x_return_status => l_return_status
2096: );
2097: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2098: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2099: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2100: RAISE FND_API.G_EXC_ERROR;
2101: END IF;
2102: END IF;
2095: ,x_return_status => l_return_status
2096: );
2097: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2098: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2099: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2100: RAISE FND_API.G_EXC_ERROR;
2101: END IF;
2102: END IF;
2103:
2096: );
2097: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2098: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2099: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2100: RAISE FND_API.G_EXC_ERROR;
2101: END IF;
2102: END IF;
2103:
2104: OE_ORDER_PVT.Process_Requests_And_notify
2457: FND_MESSAGE.Set_TOKEN
2458: ('MODEL', nvl(l_parent_ordered_item,l_parent_inv_item_id));
2459: FND_MESSAGE.Set_TOKEN('PTYPECODE', l_parent_item_type_code);
2460: OE_MSG_PUB.Add;
2461: RAISE FND_API.G_EXC_ERROR ;
2462: END IF;
2463:
2464: END IF; -- ratio check
2465: END IF; -- options window
2530: oe_debug_pub.add('LEAVING CHANGE_COLUMNS IN OE_CONFIG_PVT' , 1 ) ;
2531: END IF;
2532:
2533: EXCEPTION
2534: WHEN FND_API.G_EXC_ERROR THEN
2535: IF l_debug_level > 0 THEN
2536: oe_debug_pub.add('EXC ERROR IN CHANGE_COLUMNS IN OE_CONFIG_PVT' , 1 ) ;
2537: END IF;
2538: RAISE FND_API.G_EXC_ERROR;
2534: WHEN FND_API.G_EXC_ERROR THEN
2535: IF l_debug_level > 0 THEN
2536: oe_debug_pub.add('EXC ERROR IN CHANGE_COLUMNS IN OE_CONFIG_PVT' , 1 ) ;
2537: END IF;
2538: RAISE FND_API.G_EXC_ERROR;
2539:
2540: WHEN OTHERS THEN
2541: IF l_debug_level > 0 THEN
2542: oe_debug_pub.add('ERROR IN CHANGE_COLUMNS IN OE_CONFIG_PVT' , 1 ) ;
2540: WHEN OTHERS THEN
2541: IF l_debug_level > 0 THEN
2542: oe_debug_pub.add('ERROR IN CHANGE_COLUMNS IN OE_CONFIG_PVT' , 1 ) ;
2543: END IF;
2544: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2545: END Change_Columns;
2546:
2547:
2548: /*----------------------------------------------------------------
3287: WHEN OTHERS THEN
3288: IF l_debug_level > 0 THEN
3289: oe_debug_pub.add('UNEXPECTED ERROR IN UPDATE ATO_LINE_ID' , 1 ) ;
3290: END IF;
3291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3292: END;
3293:
3294: ------------------------------------------------------------------
3295:
3389: oe_debug_pub.add
3390: ('IN UPDATE_ATO_ATTIRBS , AFTER PO: ' || L_RETURN_STATUS , 1 ) ;
3391: END IF;
3392:
3393: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3395: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3396: RAISE FND_API.G_EXC_ERROR;
3397: END IF;
3390: ('IN UPDATE_ATO_ATTIRBS , AFTER PO: ' || L_RETURN_STATUS , 1 ) ;
3391: END IF;
3392:
3393: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3395: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3396: RAISE FND_API.G_EXC_ERROR;
3397: END IF;
3398:
3391: END IF;
3392:
3393: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3395: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3396: RAISE FND_API.G_EXC_ERROR;
3397: END IF;
3398:
3399: EXCEPTION
3392:
3393: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3395: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3396: RAISE FND_API.G_EXC_ERROR;
3397: END IF;
3398:
3399: EXCEPTION
3400: WHEN OTHERS THEN
3449: OE_Msg_Pub.Add_Text(l_error_message);
3450: IF l_debug_level > 0 THEN
3451: oe_debug_pub.add('ERROR IN DELETE_CONFIG IN OE_CONFIG_PVT' , 1 ) ;
3452: END IF;
3453: x_return_status := FND_API.G_RET_STS_ERROR;
3454: ELSE
3455: x_return_status := FND_API.G_RET_STS_SUCCESS;
3456: END IF;
3457: ELSE
3451: oe_debug_pub.add('ERROR IN DELETE_CONFIG IN OE_CONFIG_PVT' , 1 ) ;
3452: END IF;
3453: x_return_status := FND_API.G_RET_STS_ERROR;
3454: ELSE
3455: x_return_status := FND_API.G_RET_STS_SUCCESS;
3456: END IF;
3457: ELSE
3458: IF l_debug_level > 0 THEN
3459: oe_debug_pub.add('NOTE : NULL CONFIG_HEADER_ID/CONFIG_REV_NBR PASSED');
3543: OE_Msg_Pub.Add_Text(l_error_message);
3544: IF l_debug_level > 0 THEN
3545: oe_debug_pub.add('ERROR FROM SPC COPY: ' || L_ERROR_MESSAGE , 1 ) ;
3546: END IF;
3547: x_return_status := FND_API.G_RET_STS_ERROR;
3548: RETURN;
3549: END IF;
3550:
3551: ELSE
3562: ,x_return_status => x_return_status
3563: ,x_msg_count => l_msg_count
3564: ,x_msg_data => l_msg_data);
3565:
3566: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3567: OE_Msg_Pub.Add_Text(l_msg_data);
3568: IF l_debug_level > 0 THEN
3569: oe_debug_pub.add('ERROR FROM SPC NEW COPY: ' || L_MSG_DATA , 1 ) ;
3570: END IF;
3701: IF l_debug_level > 0 THEN
3702: oe_debug_pub.add('NEW CONFIG_HEADER_ID: '|| L_CONFIG_HDR_ID , 5 ) ;
3703: oe_debug_pub.add('NEW CONFIG_REV_NBR: '|| L_CONFIG_REV_NBR , 5 ) ;
3704: END IF;
3705: x_return_status := FND_API.G_RET_STS_SUCCESS;
3706:
3707: IF l_debug_level > 0 THEN
3708: oe_debug_pub.add('LEAVING COPY_CONFIG IN OE_CONFIG_PVT' , 1 ) ;
3709: END IF;
3776: x_return_status => x_return_status,
3777: x_msg_count => x_msg_count,
3778: x_msg_data => x_msg_data);
3779:
3780: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
3781:
3782: IF l_hold_result_out = FND_API.G_FALSE AND
3783: (LOWER(p_valid_config) = 'false' OR
3784: LOWER(p_complete_config) = 'false' ) THEN
3778: x_msg_data => x_msg_data);
3779:
3780: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
3781:
3782: IF l_hold_result_out = FND_API.G_FALSE AND
3783: (LOWER(p_valid_config) = 'false' OR
3784: LOWER(p_complete_config) = 'false' ) THEN
3785:
3786: IF l_debug_level > 0 THEN
3802: x_return_status => x_return_status,
3803: x_msg_count => x_msg_count,
3804: x_msg_data => x_msg_data );
3805:
3806: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3807: IF l_debug_level > 0 THEN
3808: oe_debug_pub.add('OE_CONFIG_PVT , ERROR IN PUT HOLD' , 1 ) ;
3809: END IF;
3810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3806: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3807: IF l_debug_level > 0 THEN
3808: oe_debug_pub.add('OE_CONFIG_PVT , ERROR IN PUT HOLD' , 1 ) ;
3809: END IF;
3810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3811: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3812: IF l_debug_level > 0 THEN
3813: oe_debug_pub.add('OE_CONFIG_PVT , ERROR IN PUT HOLD' , 1 ) ;
3814: END IF;
3807: IF l_debug_level > 0 THEN
3808: oe_debug_pub.add('OE_CONFIG_PVT , ERROR IN PUT HOLD' , 1 ) ;
3809: END IF;
3810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3811: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3812: IF l_debug_level > 0 THEN
3813: oe_debug_pub.add('OE_CONFIG_PVT , ERROR IN PUT HOLD' , 1 ) ;
3814: END IF;
3815: RAISE FND_API.G_EXC_ERROR;
3811: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3812: IF l_debug_level > 0 THEN
3813: oe_debug_pub.add('OE_CONFIG_PVT , ERROR IN PUT HOLD' , 1 ) ;
3814: END IF;
3815: RAISE FND_API.G_EXC_ERROR;
3816: END IF;
3817:
3818: FND_MESSAGE.Set_Name('ONT', 'OE_VAL_CONFIG_HOLD_INSERT');
3819: FND_MESSAGE.Set_Token('LINE_NUMBER', l_line_number);
3823: oe_debug_pub.add('AFTER SUCCESSFUL APPLY_HOLDS ON MODEL' , 1 ) ;
3824: END IF;
3825: END IF;
3826:
3827: IF l_hold_result_out = FND_API.G_TRUE AND
3828: (LOWER(p_valid_config) = 'true' AND
3829: LOWER(p_complete_config) = 'true' ) THEN
3830:
3831: IF l_debug_level > 0 THEN
3847: x_return_status => x_return_status,
3848: x_msg_count => x_msg_count,
3849: x_msg_data => x_msg_data );
3850:
3851: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3852: IF l_debug_level > 0 THEN
3853: oe_debug_pub.add('OE_CONFIG_PVT , ERROR IN RELEASING HOLD',1);
3854: END IF;
3855: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3851: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3852: IF l_debug_level > 0 THEN
3853: oe_debug_pub.add('OE_CONFIG_PVT , ERROR IN RELEASING HOLD',1);
3854: END IF;
3855: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3856: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3857: IF l_debug_level > 0 THEN
3858: oe_debug_pub.add('OE_CONFIG_PVT ,ERROR IN RELEASING HOLD' ,1);
3859: END IF;
3852: IF l_debug_level > 0 THEN
3853: oe_debug_pub.add('OE_CONFIG_PVT , ERROR IN RELEASING HOLD',1);
3854: END IF;
3855: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3856: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3857: IF l_debug_level > 0 THEN
3858: oe_debug_pub.add('OE_CONFIG_PVT ,ERROR IN RELEASING HOLD' ,1);
3859: END IF;
3860: RAISE FND_API.G_EXC_ERROR;
3856: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3857: IF l_debug_level > 0 THEN
3858: oe_debug_pub.add('OE_CONFIG_PVT ,ERROR IN RELEASING HOLD' ,1);
3859: END IF;
3860: RAISE FND_API.G_EXC_ERROR;
3861: END IF;
3862:
3863: FND_MESSAGE.Set_Name('ONT', 'OE_VAL_CONFIG_HOLD_REMOVE');
3864: FND_MESSAGE.Set_Token('LINE_NUMBER', l_line_number);
3869: END IF;
3870: END IF;
3871:
3872: ELSE -- ret status error
3873: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3874: IF l_debug_level > 0 THEN
3875: oe_debug_pub.add('OE_CONFIG_PVT , ERROR IN CHECK HOLD' , 1 ) ;
3876: END IF;
3877: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3873: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3874: IF l_debug_level > 0 THEN
3875: oe_debug_pub.add('OE_CONFIG_PVT , ERROR IN CHECK HOLD' , 1 ) ;
3876: END IF;
3877: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3878:
3879: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3880: IF l_debug_level > 0 THEN
3881: oe_debug_pub.add('OE_CONFIG_PVT , ERROR IN CHECK HOLD' , 1 ) ;
3875: oe_debug_pub.add('OE_CONFIG_PVT , ERROR IN CHECK HOLD' , 1 ) ;
3876: END IF;
3877: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3878:
3879: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3880: IF l_debug_level > 0 THEN
3881: oe_debug_pub.add('OE_CONFIG_PVT , ERROR IN CHECK HOLD' , 1 ) ;
3882: END IF;
3883: RAISE FND_API.G_EXC_ERROR;
3879: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3880: IF l_debug_level > 0 THEN
3881: oe_debug_pub.add('OE_CONFIG_PVT , ERROR IN CHECK HOLD' , 1 ) ;
3882: END IF;
3883: RAISE FND_API.G_EXC_ERROR;
3884: END IF;
3885: END IF; -- check holds ret status check.
3886:
3887: Print_Time('leaving put_hold_and_release_hold');
3932: l_old_behavior VARCHAR2(1);
3933: l_error_code NUMBER;
3934: l_msg_count NUMBER;
3935: l_msg_data VARCHAR2(2000);
3936: l_return_status VARCHAR2(1):= FND_API.G_RET_STS_SUCCESS;
3937: --
3938: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3939: --
3940: BEGIN
3952: ,x_config_effective_date => l_rev_date
3953: ,x_frozen_model_bill => l_frozen_model_bill);
3954:
3955: IF l_rev_date is NULL THEN
3956: RAISE FND_API.G_EXC_ERROR;
3957: END IF;
3958:
3959: x_config_effective_date := l_rev_date;
3960: x_frozen_model_bill := l_frozen_model_bill;
3967:
3968: l_rev_date := p_model_line_rec.creation_date;
3969:
3970: IF l_rev_date is NULL OR
3971: l_rev_date = FND_API.G_MISS_DATE THEN
3972: l_rev_date := sysdate;
3973: END IF;
3974:
3975: END IF;
4001: oe_debug_pub.add('AFTER CALL TO EXPLOSION , RETURN STATUS: '
4002: || L_RETURN_STATUS , 1 ) ;
4003: END IF;
4004:
4005: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4006: x_return_status := l_return_status;
4007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4008: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4009: x_return_status := l_return_status;
4003: END IF;
4004:
4005: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4006: x_return_status := l_return_status;
4007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4008: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4009: x_return_status := l_return_status;
4010: RAISE FND_API.G_EXC_ERROR;
4011: END IF;
4004:
4005: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4006: x_return_status := l_return_status;
4007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4008: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4009: x_return_status := l_return_status;
4010: RAISE FND_API.G_EXC_ERROR;
4011: END IF;
4012:
4006: x_return_status := l_return_status;
4007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4008: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4009: x_return_status := l_return_status;
4010: RAISE FND_API.G_EXC_ERROR;
4011: END IF;
4012:
4013: IF p_model_line_rec.component_sequence_id is null OR
4014: p_model_line_rec.component_sequence_id = FND_API.G_MISS_NUM
4010: RAISE FND_API.G_EXC_ERROR;
4011: END IF;
4012:
4013: IF p_model_line_rec.component_sequence_id is null OR
4014: p_model_line_rec.component_sequence_id = FND_API.G_MISS_NUM
4015: THEN
4016:
4017: BEGIN
4018: SELECT bill_sequence_id
4033: WHEN NO_DATA_FOUND THEN
4034: IF l_debug_level > 0 THEN
4035: oe_debug_pub.add('EXPLODE_BILL , BILL_SEQ QUERY FAILED' , 1 ) ;
4036: END IF;
4037: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4038: END;
4039:
4040: IF l_debug_level > 0 THEN
4041: oe_debug_pub.add('TOP_BILL_SEQ_ID SELECTED FROM BOM_bill_of_mat' ) ;
4112: l_line_rec OE_Order_Pub.Line_Rec_Type
4113: := OE_Order_Pub.G_Miss_Line_Rec;
4114: l_line_tbl OE_Order_PUB.Line_Tbl_Type;
4115: l_control_rec OE_GLOBALS.Control_Rec_Type;
4116: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
4117:
4118:
4119: CURSOR inc_items(p_link_to_line_id NUMBER,
4120: p_top_model_line_id NUMBER)
4155: l_line_rec.operation := OE_MODIFY_INC_ITEMS_TBL(I).param10;
4156:
4157: -- 1. ordered_quantity.
4158:
4159: IF OE_MODIFY_INC_ITEMS_TBL(I).param2 <> FND_API.G_MISS_NUM THEN
4160:
4161: -- old ordered qty of parent can not be 0, so no divide by 0.
4162: --bug3993709
4163: l_line_rec.ordered_quantity :=
4170:
4171:
4172: -- 2. project and task.
4173:
4174: IF nvl(OE_MODIFY_INC_ITEMS_TBL(I).param5, -1) <> FND_API.G_MISS_NUM THEN
4175: l_line_rec.project_id := OE_MODIFY_INC_ITEMS_TBL(I).param5;
4176: END IF; -- project.
4177:
4178: IF nvl(OE_MODIFY_INC_ITEMS_TBL(I).param6, -1) <> FND_API.G_MISS_NUM THEN
4174: IF nvl(OE_MODIFY_INC_ITEMS_TBL(I).param5, -1) <> FND_API.G_MISS_NUM THEN
4175: l_line_rec.project_id := OE_MODIFY_INC_ITEMS_TBL(I).param5;
4176: END IF; -- project.
4177:
4178: IF nvl(OE_MODIFY_INC_ITEMS_TBL(I).param6, -1) <> FND_API.G_MISS_NUM THEN
4179: l_line_rec.task_id := OE_MODIFY_INC_ITEMS_TBL(I).param6;
4180: END IF; -- task.
4181:
4182:
4181:
4182:
4183: -- 3. ship_tolerance_above and below
4184:
4185: IF nvl(OE_MODIFY_INC_ITEMS_TBL(I).param7, -1) <> FND_API.G_MISS_NUM THEN
4186: l_line_rec.ship_tolerance_above := OE_MODIFY_INC_ITEMS_TBL(I).param7;
4187: END IF; -- ship_tolerance_above.
4188:
4189: IF nvl(OE_MODIFY_INC_ITEMS_TBL(I).param8, -1) <> FND_API.G_MISS_NUM THEN
4185: IF nvl(OE_MODIFY_INC_ITEMS_TBL(I).param7, -1) <> FND_API.G_MISS_NUM THEN
4186: l_line_rec.ship_tolerance_above := OE_MODIFY_INC_ITEMS_TBL(I).param7;
4187: END IF; -- ship_tolerance_above.
4188:
4189: IF nvl(OE_MODIFY_INC_ITEMS_TBL(I).param8, -1) <> FND_API.G_MISS_NUM THEN
4190: l_line_rec.ship_tolerance_below := OE_MODIFY_INC_ITEMS_TBL(I).param8;
4191: END IF; -- ship_tolerance_below.
4192:
4193:
4192:
4193:
4194: -- 4. ship_to and request_date
4195:
4196: IF nvl(OE_MODIFY_INC_ITEMS_TBL(I).param9, -1) <> FND_API.G_MISS_NUM THEN
4197: l_line_rec.ship_to_org_id := OE_MODIFY_INC_ITEMS_TBL(I).param9;
4198: END IF; -- ship_to_org_id.
4199:
4200: IF nvl(OE_MODIFY_INC_ITEMS_TBL(I).date_param1, sysdate)
4197: l_line_rec.ship_to_org_id := OE_MODIFY_INC_ITEMS_TBL(I).param9;
4198: END IF; -- ship_to_org_id.
4199:
4200: IF nvl(OE_MODIFY_INC_ITEMS_TBL(I).date_param1, sysdate)
4201: <> FND_API.G_MISS_DATE THEN
4202: l_line_rec.request_date := OE_MODIFY_INC_ITEMS_TBL(I).date_param1;
4203: END IF; -- request_date.
4204:
4205:
4245: WHEN OTHERS THEN
4246: IF l_debug_level > 0 THEN
4247: oe_debug_pub.add('EXCEPTION IN MODIFY_INCLUDED_ITEMS'|| SQLERRM , 1 ) ;
4248: END IF;
4249: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4250: RAISE;
4251: END;
4252:
4253:
4274: l_code VARCHAR2(1000);
4275: l_index NUMBER;
4276: l_current_qty NUMBER;
4277: l_inventory_item_id NUMBER;
4278: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
4279:
4280: CURSOR included_items IS
4281: SELECT line_id, component_code, link_to_line_id, ordered_quantity
4282: FROM oe_order_lines
4401: IF l_debug_level > 0 THEN
4402: oe_debug_pub.add('EXCEPTION IN INCLUDED_ITEMS_DML'|| SQLERRM , 1 ) ;
4403: END IF;
4404:
4405: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4406: RAISE;
4407: END Included_Items_DML;
4408:
4409:
4451: OE_Msg_Pub.Add_Text(l_error_message);
4452: IF l_debug_level > 0 THEN
4453: oe_debug_pub.add('ERROR FROM SPC COPY: ' || L_ERROR_MESSAGE , 1 ) ;
4454: END IF;
4455: x_return_status :=FND_API.G_RET_STS_ERROR;
4456:
4457: ELSE
4458: IF l_debug_level > 0 THEN
4459: oe_debug_pub.add('NEW CONFIG_HEADER_ID: '|| L_CONFIG_HDR_ID , 1 ) ;
4462: oe_debug_pub.add('NEW CONFIG_REV_NBR: '|| L_CONFIG_REV_NBR , 1 ) ;
4463: END IF;
4464: x_config_hdr_id := l_config_hdr_id;
4465: x_config_rev_nbr := l_config_rev_nbr;
4466: x_return_status := FND_API.G_RET_STS_SUCCESS;
4467: END IF;
4468:
4469: ELSE
4470: IF l_debug_level > 0 THEN
4521: ( p_line_rec => x_line_rec
4522: ,x_result => l_sec_result
4523: ,x_return_status => l_return_status);
4524:
4525: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4526: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4527: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4528: RAISE FND_API.G_EXC_ERROR;
4529: END IF;
4522: ,x_result => l_sec_result
4523: ,x_return_status => l_return_status);
4524:
4525: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4526: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4527: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4528: RAISE FND_API.G_EXC_ERROR;
4529: END IF;
4530:
4523: ,x_return_status => l_return_status);
4524:
4525: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4526: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4527: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4528: RAISE FND_API.G_EXC_ERROR;
4529: END IF;
4530:
4531: l_msg_count2 := OE_Msg_Pub.Count_Msg;
4524:
4525: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4526: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4527: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4528: RAISE FND_API.G_EXC_ERROR;
4529: END IF;
4530:
4531: l_msg_count2 := OE_Msg_Pub.Count_Msg;
4532: