[Home] [Help]
153: PROCEDURE Call_Process_Order
154: ----------------------------------------------------------------*/
155: PROCEDURE Call_Process_Order
156: (p_line_tbl IN OE_Order_PUB.Line_Tbl_Type
157: ,p_control_rec IN OE_GLOBALS.Control_Rec_Type DEFAULT OE_GLOBALS.G_MISS_CONTROL_REC
158: ,p_process_requests IN BOOLEAN := FALSE
159: ,x_return_status OUT NOCOPY VARCHAR2
160:
161: )
160:
161: )
162: IS
163: l_line_tbl OE_Order_PUB.Line_Tbl_Type;
164: l_control_rec OE_GLOBALS.Control_Rec_Type;
165: l_header_out_rec OE_ORDER_PUB.Header_Rec_Type;
166: l_line_out_tbl OE_ORDER_PUB.Line_Tbl_Type;
167: l_line_adj_out_tbl OE_ORDER_PUB.Line_Adj_Tbl_Type;
168: l_header_adj_out_tbl OE_Order_PUB.Header_Adj_Tbl_Type;
357:
358:
359: BEGIN
360:
361: IF OE_GLOBALS.G_ASO_INSTALLED IS NULL THEN
362: OE_GLOBALS.G_ASO_INSTALLED := OE_GLOBALS.CHECK_PRODUCT_INSTALLED(697);
363: END IF;
364:
365: IF l_debug_level > 0 THEN
358:
359: BEGIN
360:
361: IF OE_GLOBALS.G_ASO_INSTALLED IS NULL THEN
362: OE_GLOBALS.G_ASO_INSTALLED := OE_GLOBALS.CHECK_PRODUCT_INSTALLED(697);
363: END IF;
364:
365: IF l_debug_level > 0 THEN
366: oe_debug_pub.add('ENTERING oexvshpb UPDATE_SHIPPING_FROM_OE',1);
397:
398: -------------- handle delete operation -----------------
399:
400: IF p_update_lines_tbl(l_line_index).request_unique_key1
401: = OE_GLOBALS.G_OPR_DELETE THEN
402: -- fix for 3779333
403: -- select item type code from oe_orderlines_table. For config lines
404: -- pass action code as 'U' to shipping. for other item types, pass
405: -- action code as 'D'
571: || L_LINE_REC.LINE_ID , 3 ) ;
572: END IF;
573:
574: OE_Delayed_Requests_Pvt.Log_Request
575: ( p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
576: p_entity_id => l_line_rec.line_id,
577: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
578: p_requesting_entity_id => l_line_rec.line_id,
579: p_request_type => OE_GLOBALS.G_COMPLETE_ACTIVITY,
573:
574: OE_Delayed_Requests_Pvt.Log_Request
575: ( p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
576: p_entity_id => l_line_rec.line_id,
577: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
578: p_requesting_entity_id => l_line_rec.line_id,
579: p_request_type => OE_GLOBALS.G_COMPLETE_ACTIVITY,
580: p_param1 => OE_GLOBALS.G_WFI_LIN,
581: p_param2 => l_line_rec.line_id,
575: ( p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
576: p_entity_id => l_line_rec.line_id,
577: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
578: p_requesting_entity_id => l_line_rec.line_id,
579: p_request_type => OE_GLOBALS.G_COMPLETE_ACTIVITY,
580: p_param1 => OE_GLOBALS.G_WFI_LIN,
581: p_param2 => l_line_rec.line_id,
582: p_param3 => 'SHIP_LINE',
583: p_param4 => l_result_code,
576: p_entity_id => l_line_rec.line_id,
577: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
578: p_requesting_entity_id => l_line_rec.line_id,
579: p_request_type => OE_GLOBALS.G_COMPLETE_ACTIVITY,
580: p_param1 => OE_GLOBALS.G_WFI_LIN,
581: p_param2 => l_line_rec.line_id,
582: p_param3 => 'SHIP_LINE',
583: p_param4 => l_result_code,
584: x_return_status => l_return_status);
658: IF g_debug_call > 0 THEN
659: G_DEBUG_MSG := G_DEBUG_MSG || '16,';
660: END IF;
661: IF p_update_lines_tbl(l_line_index).request_unique_key1
662: = OE_GLOBALS.G_OPR_CREATE THEN
663: l_changed_attributes(l_shp_index).action_flag := 'S';
664: ELSE
665: l_changed_attributes(l_shp_index).action_flag := 'U';
666: END IF;
722: (l_line_rec.ato_line_id = l_line_rec.line_id AND
723: l_line_rec.item_type_code IN ('STANDARD','OPTION'))) THEN
724: --Get the activity result
725: OE_LINE_FULLFILL.Get_Activity_Result
726: (p_item_type => OE_GLOBALS.G_WFI_LIN
727: ,p_item_key => l_line_rec.line_id
728: ,p_activity_name => 'SHIP_LINE'
729: ,x_return_status => l_return_status
730: ,x_activity_result => l_activity_result
738: -- 4437814 end changes
739: IF l_debug_level > 0 THEN
740: oe_debug_pub.add('shipline notified flag:' || l_shipline_notified) ;
741: END IF;
742: IF l_x_result_out = OE_GLOBALS.G_SHIPPED_WITHIN_TOL_BELOW OR
743: l_x_result_out = OE_GLOBALS.G_SHIPPED_WITHIN_TOL_ABOVE OR
744: l_x_result_out = OE_GLOBALS.G_FULLY_SHIPPED OR
745: l_x_result_out = OE_GLOBALS.G_SHIPPED_BEYOND_TOLERANCE THEN
746: IF l_shipline_notified = 'Y'THEN --4437814
739: IF l_debug_level > 0 THEN
740: oe_debug_pub.add('shipline notified flag:' || l_shipline_notified) ;
741: END IF;
742: IF l_x_result_out = OE_GLOBALS.G_SHIPPED_WITHIN_TOL_BELOW OR
743: l_x_result_out = OE_GLOBALS.G_SHIPPED_WITHIN_TOL_ABOVE OR
744: l_x_result_out = OE_GLOBALS.G_FULLY_SHIPPED OR
745: l_x_result_out = OE_GLOBALS.G_SHIPPED_BEYOND_TOLERANCE THEN
746: IF l_shipline_notified = 'Y'THEN --4437814
747: IF l_debug_level > 0 THEN
740: oe_debug_pub.add('shipline notified flag:' || l_shipline_notified) ;
741: END IF;
742: IF l_x_result_out = OE_GLOBALS.G_SHIPPED_WITHIN_TOL_BELOW OR
743: l_x_result_out = OE_GLOBALS.G_SHIPPED_WITHIN_TOL_ABOVE OR
744: l_x_result_out = OE_GLOBALS.G_FULLY_SHIPPED OR
745: l_x_result_out = OE_GLOBALS.G_SHIPPED_BEYOND_TOLERANCE THEN
746: IF l_shipline_notified = 'Y'THEN --4437814
747: IF l_debug_level > 0 THEN
748: oe_debug_pub.add
741: END IF;
742: IF l_x_result_out = OE_GLOBALS.G_SHIPPED_WITHIN_TOL_BELOW OR
743: l_x_result_out = OE_GLOBALS.G_SHIPPED_WITHIN_TOL_ABOVE OR
744: l_x_result_out = OE_GLOBALS.G_FULLY_SHIPPED OR
745: l_x_result_out = OE_GLOBALS.G_SHIPPED_BEYOND_TOLERANCE THEN
746: IF l_shipline_notified = 'Y'THEN --4437814
747: IF l_debug_level > 0 THEN
748: oe_debug_pub.add
749: ('line shipped within tolerance, complete ship_line',3);
836: END IF; -- if index is not null
837:
838: ELSE --pre-pack H
839:
840: IF OE_GLOBALS.G_ASO_INSTALLED = 'Y' THEN
841:
842:
843: OE_Order_PVT.Process_Requests_And_Notify
844: ( p_process_requests => FALSE
922: || L_LINE_REC.LINE_ID , 3 ) ;
923: END IF;
924:
925: OE_Delayed_Requests_Pvt.Log_Request
926: ( p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
927: p_entity_id => l_line_rec.line_id,
928: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
929: p_requesting_entity_id => l_line_rec.line_id,
930: p_request_type => OE_GLOBALS.G_COMPLETE_ACTIVITY,
924:
925: OE_Delayed_Requests_Pvt.Log_Request
926: ( p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
927: p_entity_id => l_line_rec.line_id,
928: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
929: p_requesting_entity_id => l_line_rec.line_id,
930: p_request_type => OE_GLOBALS.G_COMPLETE_ACTIVITY,
931: p_param1 => OE_GLOBALS.G_WFI_LIN,
932: p_param2 => l_line_rec.line_id,
926: ( p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
927: p_entity_id => l_line_rec.line_id,
928: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
929: p_requesting_entity_id => l_line_rec.line_id,
930: p_request_type => OE_GLOBALS.G_COMPLETE_ACTIVITY,
931: p_param1 => OE_GLOBALS.G_WFI_LIN,
932: p_param2 => l_line_rec.line_id,
933: p_param3 => 'SHIP_LINE',
934: p_param4 => l_result_code,
927: p_entity_id => l_line_rec.line_id,
928: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
929: p_requesting_entity_id => l_line_rec.line_id,
930: p_request_type => OE_GLOBALS.G_COMPLETE_ACTIVITY,
931: p_param1 => OE_GLOBALS.G_WFI_LIN,
932: p_param2 => l_line_rec.line_id,
933: p_param3 => 'SHIP_LINE',
934: p_param4 => l_result_code,
935: x_return_status => l_return_status);
990: -- odaboval : Begin of OPM Changes
991: --{ bug3831490 contd
992: IF l_line_rec.item_type_code = 'CONFIG' AND
993: p_update_lines_tbl(l_line_index).request_unique_key1 =
994: OE_GLOBALS.G_OPR_DELETE THEN
995:
996: l_changed_attributes(l_shp_index).ordered_quantity := 0;
997: IF l_debug_level > 0 THEN
998: OE_DEBUG_PUB.Add('This is Config cancel/delete case!',1);
1271: IF l_force_ui = 'Y' THEN
1272: IF l_debug_level > 0 THEN
1273: oe_debug_pub.add('Setting the global to force UI Block',2);
1274: END IF;
1275: OE_GLOBALS.G_FORCE_CLEAR_UI_BLOCK := 'Y';
1276: END IF;
1277: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1278: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1279: -- 3571148 changes
1298: IF l_force_ui = 'Y' THEN
1299: IF l_debug_level > 0 THEN
1300: oe_debug_pub.add('Setting the global to force UI Block',2);
1301: END IF;
1302: OE_GLOBALS.G_FORCE_CLEAR_UI_BLOCK := 'Y';
1303: END IF;
1304: -- Start: Changes for bug 6391881
1305: -- Check if we are coming from wsh_no_data_found error.
1306: IF ( l_wsh_no_data_found = TRUE) THEN
1901:
1902:
1903:
1904: IF l_ordered_quantity= l_shipped_quantity THEN
1905: x_result_out :=OE_GLOBALS.G_FULLY_SHIPPED;
1906:
1907: ELSIF l_ordered_quantity <= l_shipped_quantity + l_tolerance_quantity_below AND
1908: l_shipped_quantity < l_ordered_quantity THEN
1909: x_result_out :=OE_GLOBALS.G_SHIPPED_WITHIN_TOL_BELOW;
1905: x_result_out :=OE_GLOBALS.G_FULLY_SHIPPED;
1906:
1907: ELSIF l_ordered_quantity <= l_shipped_quantity + l_tolerance_quantity_below AND
1908: l_shipped_quantity < l_ordered_quantity THEN
1909: x_result_out :=OE_GLOBALS.G_SHIPPED_WITHIN_TOL_BELOW;
1910:
1911: ELSIF l_ordered_quantity > l_shipped_quantity + l_tolerance_quantity_below THEN
1912:
1913: IF l_line_rec.shipping_quantity_uom <> l_line_rec.order_quantity_uom THEN
1961: END IF; -- done validate decimal
1962:
1963: IF l_ordered_quantity> l_temp_shipped_quantity + l_tolerance_quantity_below
1964: THEN
1965: x_result_out :=OE_GLOBALS.G_PARTIALLY_SHIPPED;
1966: ELSE
1967: x_result_out :=OE_GLOBALS.G_FULLY_SHIPPED;
1968: END IF;
1969:
1963: IF l_ordered_quantity> l_temp_shipped_quantity + l_tolerance_quantity_below
1964: THEN
1965: x_result_out :=OE_GLOBALS.G_PARTIALLY_SHIPPED;
1966: ELSE
1967: x_result_out :=OE_GLOBALS.G_FULLY_SHIPPED;
1968: END IF;
1969:
1970: IF l_debug_level > 0 THEN
1971: OE_DEBUG_PUB.Add('Check the Decimals for Standard Items..Different UOM');
1986: IF l_wdd_count = 0 THEN
1987: IF l_debug_level > 0 THEN
1988: OE_DEBUG_PUB.Add('Delivery Detail Did not Split..');
1989: END IF;
1990: x_result_out := OE_GLOBALS.G_FULLY_SHIPPED;
1991: ELSE
1992: IF l_debug_level > 0 THEN
1993: OE_DEBUG_PUB.Add('Delivery Detail Has Split..');
1994: END IF;
1995: END IF;
1996: END IF;
1997:
1998: ELSE
1999: x_result_out :=OE_GLOBALS.G_PARTIALLY_SHIPPED;
2000: END IF; -- different uom
2001:
2002: IF g_debug_call > 0 THEN
2003: G_DEBUG_MSG := G_DEBUG_MSG || '61,';
2006: -- Check for Shipment within ship tolerance above
2007:
2008: ELSIF l_shipped_quantity <= l_ordered_quantity + l_tolerance_quantity_above AND
2009: l_ordered_quantity < l_shipped_quantity THEN
2010: x_result_out :=OE_GLOBALS.G_SHIPPED_WITHIN_TOL_ABOVE;
2011:
2012: -- Check for Shipment above ship tolerance above
2013:
2014: ELSIF l_shipped_quantity > l_ordered_quantity + l_tolerance_quantity_above THEN
2011:
2012: -- Check for Shipment above ship tolerance above
2013:
2014: ELSIF l_shipped_quantity > l_ordered_quantity + l_tolerance_quantity_above THEN
2015: x_result_out :=OE_GLOBALS.G_SHIPPED_BEYOND_TOLERANCE;
2016: END IF;
2017:
2018: -- Bug 5332001
2019: IF l_debug_level > 0 THEN
2040: OE_DEBUG_PUB.add('actual quantity '||actual_quantity||' poll received '||poll_received_quantity,1);
2041: END IF;
2042:
2043: IF poll_received_quantity = actual_quantity THEN
2044: x_result_out := OE_GLOBALS.G_FULLY_SHIPPED;
2045: END IF;
2046:
2047: EXCEPTION WHEN OTHERS THEN
2048: IF l_debug_level > 0 THEN
2528: -- Variables to call process order to update the shipped quantity for
2529: -- non shippable lines.
2530: l_upd_tbl_index NUMBER := 0;
2531: l_update_line_tbl OE_ORDER_PUB.Line_Tbl_Type;
2532: l_control_rec OE_GLOBALS.Control_Rec_Type;
2533: l_top_model_index NUMBER;
2534: l_ato_line_index NUMBER := 0;
2535: l_set_recursion VARCHAR2(1) := 'N';
2536:
2627: END IF;
2628:
2629: l_update_line_tbl(l_upd_tbl_index) := l_line_tbl(l_pto_index);
2630: l_update_line_tbl(l_upd_tbl_index).operation
2631: := OE_GLOBALS.G_OPR_UPDATE;
2632:
2633: IF l_line_tbl(l_top_model_index).ship_tolerance_below <>
2634: nvl(l_line_tbl(l_pto_index).ship_tolerance_below,0) AND
2635: l_line_tbl(l_top_model_index).line_id =
2662: IF g_debug_call > 0 THEN
2663: G_DEBUG_MSG := G_DEBUG_MSG || 'Shp-8-6';
2664: END IF;
2665:
2666: l_control_rec := OE_GLOBALS.G_MISS_CONTROL_REC;
2667: l_control_rec.validate_entity := FALSE;
2668: l_control_rec.check_security := FALSE;
2669:
2670: IF OE_GLOBALS.G_RECURSION_MODE = 'Y' THEN
2666: l_control_rec := OE_GLOBALS.G_MISS_CONTROL_REC;
2667: l_control_rec.validate_entity := FALSE;
2668: l_control_rec.check_security := FALSE;
2669:
2670: IF OE_GLOBALS.G_RECURSION_MODE = 'Y' THEN
2671: l_set_recursion := 'N';
2672: ELSE
2673: l_set_recursion := 'Y';
2674: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
2670: IF OE_GLOBALS.G_RECURSION_MODE = 'Y' THEN
2671: l_set_recursion := 'N';
2672: ELSE
2673: l_set_recursion := 'Y';
2674: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
2675: END IF;
2676:
2677: IF g_debug_call > 0 THEN
2678: G_DEBUG_MSG := G_DEBUG_MSG || '87,';
2684: x_return_status => l_return_status );
2685:
2686: IF l_set_recursion = 'Y' THEN
2687: l_set_recursion := 'N';
2688: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
2689: END IF;
2690:
2691: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2692: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2702:
2703: IF l_debug_level > 0 THEN
2704: oe_debug_pub.add( 'FULLY SHIPPED , SHIPMENT RATIO IS NOT BROKEN' , 3 ) ;
2705: END IF;
2706: l_x_result_out := OE_GLOBALS.G_FULLY_SHIPPED;
2707:
2708: ELSE
2709: IF l_debug_level > 0 THEN
2710: oe_debug_pub.add( 'NOT FULLY SHIPPED , SHIPMENT RATIO IS NOT BROKEN' , 3 ) ;
2729:
2730:
2731: -- Call the split API if it is a partial shipment.
2732:
2733: IF l_x_result_out = OE_GLOBALS.G_PARTIALLY_SHIPPED AND
2734: l_line_tbl(l_top_model_index).ordered_quantity >
2735: l_line_tbl(l_top_model_index).shipped_quantity THEN
2736:
2737: IF l_debug_level > 0 THEN
2743:
2744: l_split_line_tbl(1) := l_line_tbl(l_top_model_index);
2745: l_split_line_tbl(1).ordered_quantity
2746: := l_line_tbl(l_top_model_index).shipped_quantity;
2747: l_split_line_tbl(1).operation := OE_GLOBALS.G_OPR_UPDATE;
2748: l_split_line_tbl(1).split_action_code := 'SPLIT';
2749: l_split_line_tbl(1).split_by := 'SYSTEM';
2750:
2751: IF g_debug_call > 0 THEN
2759: := l_line_tbl(l_top_model_index).line_id;
2760: l_split_line_tbl(2).ordered_quantity
2761: := l_line_tbl(l_top_model_index).ordered_quantity -
2762: l_line_tbl(l_top_model_index).shipped_quantity;
2763: l_split_line_tbl(2).operation := OE_GLOBALS.G_OPR_CREATE;
2764: l_split_line_tbl(2).split_by := 'SYSTEM';
2765:
2766: IF l_debug_level > 0 THEN
2767: oe_debug_pub.add( 'SPLIT FROM LINE ID : '|| TO_CHAR ( L_SPLIT_LINE_TBL ( 2 ) .SPLIT_FROM_LINE_ID ) , 3 ) ;
2779: oe_debug_pub.add( 'ORDERED QUANTITY NEW LINE : '|| TO_CHAR ( L_SPLIT_LINE_TBL ( 2 ) .ORDERED_QUANTITY ) , 3 ) ;
2780: END IF;
2781:
2782:
2783: l_control_rec := OE_GLOBALS.G_MISS_CONTROL_REC;
2784: l_control_rec.controlled_operation := TRUE;
2785: l_control_rec.check_security := FALSE;
2786: l_control_rec.change_attributes := TRUE;
2787: l_control_rec.default_attributes := TRUE;
2786: l_control_rec.change_attributes := TRUE;
2787: l_control_rec.default_attributes := TRUE;
2788: l_control_rec.clear_dependents := TRUE;
2789:
2790: IF OE_GLOBALS.G_RECURSION_MODE = 'Y' THEN
2791: l_set_recursion := 'N';
2792: ELSE
2793: l_set_recursion := 'Y';
2794: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
2790: IF OE_GLOBALS.G_RECURSION_MODE = 'Y' THEN
2791: l_set_recursion := 'N';
2792: ELSE
2793: l_set_recursion := 'Y';
2794: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
2795: END IF;
2796:
2797: IF g_debug_call > 0 THEN
2798: G_DEBUG_MSG := G_DEBUG_MSG || '81,';
2804: x_return_status => l_return_status);
2805:
2806: IF l_set_recursion = 'Y' THEN
2807: l_set_recursion := 'N';
2808: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
2809: END IF;
2810:
2811: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2812: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2925: l_line_tbl(l_pto_index).shipped_quantity;
2926: l_split_line_tbl(l_split_index).shipped_quantity
2927: := l_line_tbl(l_pto_index).shipped_quantity;
2928: l_split_line_tbl(l_split_index).operation
2929: := OE_GLOBALS.G_OPR_UPDATE;
2930: l_split_line_tbl(l_split_index).split_by := 'SYSTEM';
2931: l_split_line_tbl(l_split_index).split_action_code := 'SPLIT';
2932:
2933: IF l_debug_level > 0 THEN
3016: || L_ITEM_KEY||'/'||'SHIP_LINE' , 3 ) ;
3017: END IF;
3018:
3019: OE_LINE_FULLFILL.Get_Activity_Result
3020: (p_item_type => OE_GLOBALS.G_WFI_LIN
3021: ,p_item_key => l_item_key
3022: ,p_activity_name => 'SHIP_LINE'
3023: ,x_return_status => l_return_status
3024: ,x_activity_result => l_activity_result
3056: oe_debug_pub.add( 'CALLING GET ACTIVITY RESULT FOR : '|| L_ITEM_KEY||'/'||'FULFILL_LINE' , 3 ) ;
3057: END IF;
3058:
3059: OE_LINE_FULLFILL.Get_Activity_Result
3060: (p_item_type => OE_GLOBALS.G_WFI_LIN
3061: ,p_item_key => l_item_key
3062: ,p_activity_name => 'FULFILL_LINE'
3063: ,x_return_status => l_return_status
3064: ,x_activity_result => l_activity_result
3132: :=l_split_line_tbl(l_split_index).blanket_version_number;
3133: --BSA changes for AFD
3134:
3135: l_fulfill_tbl(l_fulfill_index).operation
3136: := OE_GLOBALS.G_OPR_UPDATE;
3137:
3138: IF l_debug_level > 0 THEN
3139: oe_debug_pub.add( 'FULFILL INDEX : '||TO_CHAR ( L_FULFILL_INDEX ) , 3 ) ;
3140: END IF;
3205: oe_debug_pub.add( 'COMPLETE ACT :LOGGING REQUEST '|| L_ITEM_KEY , 3 ) ;
3206: END IF;
3207:
3208: OE_Delayed_Requests_Pvt.Log_Request
3209: ( p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
3210: p_entity_id => l_fulfill_tbl(l_fulfill_index).line_id,
3211: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
3212: p_requesting_entity_id => l_fulfill_tbl(l_fulfill_index).line_id,
3213: p_request_type => OE_GLOBALS.G_COMPLETE_ACTIVITY,
3207:
3208: OE_Delayed_Requests_Pvt.Log_Request
3209: ( p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
3210: p_entity_id => l_fulfill_tbl(l_fulfill_index).line_id,
3211: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
3212: p_requesting_entity_id => l_fulfill_tbl(l_fulfill_index).line_id,
3213: p_request_type => OE_GLOBALS.G_COMPLETE_ACTIVITY,
3214: p_param1 => OE_GLOBALS.G_WFI_LIN,
3215: p_param2 => l_item_key,
3209: ( p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
3210: p_entity_id => l_fulfill_tbl(l_fulfill_index).line_id,
3211: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
3212: p_requesting_entity_id => l_fulfill_tbl(l_fulfill_index).line_id,
3213: p_request_type => OE_GLOBALS.G_COMPLETE_ACTIVITY,
3214: p_param1 => OE_GLOBALS.G_WFI_LIN,
3215: p_param2 => l_item_key,
3216: p_param3 => 'FULFILL_LINE',
3217: p_param4 => OE_GLOBALS.G_WFR_COMPLETE,
3210: p_entity_id => l_fulfill_tbl(l_fulfill_index).line_id,
3211: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
3212: p_requesting_entity_id => l_fulfill_tbl(l_fulfill_index).line_id,
3213: p_request_type => OE_GLOBALS.G_COMPLETE_ACTIVITY,
3214: p_param1 => OE_GLOBALS.G_WFI_LIN,
3215: p_param2 => l_item_key,
3216: p_param3 => 'FULFILL_LINE',
3217: p_param4 => OE_GLOBALS.G_WFR_COMPLETE,
3218: x_return_status => l_return_status);
3213: p_request_type => OE_GLOBALS.G_COMPLETE_ACTIVITY,
3214: p_param1 => OE_GLOBALS.G_WFI_LIN,
3215: p_param2 => l_item_key,
3216: p_param3 => 'FULFILL_LINE',
3217: p_param4 => OE_GLOBALS.G_WFR_COMPLETE,
3218: x_return_status => l_return_status);
3219:
3220: IF l_debug_level > 0 THEN
3221: oe_debug_pub.add( 'FULFILL ASSOCIATED SERVICE LINES '|| L_FULFILL_TBL ( L_FULFILL_INDEX ) .LINE_ID , 3 ) ;
3309: l_msg_data VARCHAR2(2000);
3310: l_unreserve_quantity NUMBER;
3311: l_result_code VARCHAR2(30);
3312: l_line_tbl OE_ORDER_PUB.Line_Tbl_Type;
3313: l_control_rec OE_GLOBALS.Control_Rec_Type;
3314: l_set_recursion VARCHAR2(1) := 'N';
3315:
3316: -- HW 2415731 variables for OPM
3317: l_temp_shipped_qty NUMBER;
3425:
3426:
3427:
3428:
3429: IF l_x_result_out = OE_GLOBALS.G_SHIPPED_WITHIN_TOL_BELOW THEN
3430:
3431: -- Call API to releive allocation
3432: IF l_debug_level > 0 THEN
3433: oe_debug_pub.add( 'SHIPPED WITHIN TOLERANCE BELOW ' , 3 ) ;
3443:
3444: END IF; -- if below tolerance
3445:
3446:
3447: IF l_x_result_out = OE_GLOBALS.G_SHIPPED_BEYOND_TOLERANCE THEN
3448: NULL;
3449: -- Send the notification ??
3450: END IF;
3451:
3449: -- Send the notification ??
3450: END IF;
3451:
3452:
3453: IF l_x_result_out = OE_GLOBALS.G_PARTIALLY_SHIPPED AND
3454: l_line_rec.ordered_quantity > l_line_rec.shipped_quantity AND
3455: (l_line_rec.top_model_line_id is null OR
3456: l_line_rec.top_model_line_id = FND_API.G_MISS_NUM OR
3457: nvl(l_line_rec.model_remnant_flag,'N') = 'Y') THEN
3566: -- IF ( l_line_tbl(1).shipping_quantity_uom <> l_line_tbl(1).order_quantity_uom )
3567: -- AND oe_line_util.Process_Characteristics
3568: -- HW end of changes for BUG#: 2415731
3569:
3570: l_line_tbl(1).operation := OE_GLOBALS.G_OPR_UPDATE;
3571: l_line_tbl(1).split_action_code := 'SPLIT';
3572: l_line_tbl(1).split_by := 'SYSTEM';
3573:
3574: -- Assign the second record of the table for process order for
3629: -- AND oe_line_util.Process_Characteristics end of branching
3630: -- HW end of changes 2415731
3631:
3632:
3633: l_line_tbl(2).operation := OE_GLOBALS.G_OPR_CREATE;
3634: l_line_tbl(2).split_by := 'SYSTEM';
3635:
3636: -- HW BUG#:2415731 added debugging messages for qty2 and others
3637: IF l_debug_level > 0 THEN
3662:
3663: l_control_rec.validate_entity := FALSE;
3664: l_control_rec.check_security := FALSE;
3665:
3666: IF OE_GLOBALS.G_RECURSION_MODE = 'Y' THEN
3667: l_set_recursion := 'N';
3668: ELSE
3669: l_set_recursion := 'Y';
3670: END IF;
3710:
3711: -- Check for Shipment within ship tolerance below, within ship tolerance
3712: -- above and beyond tolerance.
3713:
3714: IF l_x_result_out = OE_GLOBALS.G_SHIPPED_WITHIN_TOL_BELOW OR
3715: l_x_result_out = OE_GLOBALS.G_SHIPPED_WITHIN_TOL_ABOVE OR
3716: l_x_result_out = OE_GLOBALS.G_PARTIALLY_SHIPPED OR
3717: l_x_result_out = OE_GLOBALS.G_FULLY_SHIPPED OR
3718: l_x_result_out = OE_GLOBALS.G_SHIPPED_BEYOND_TOLERANCE
3711: -- Check for Shipment within ship tolerance below, within ship tolerance
3712: -- above and beyond tolerance.
3713:
3714: IF l_x_result_out = OE_GLOBALS.G_SHIPPED_WITHIN_TOL_BELOW OR
3715: l_x_result_out = OE_GLOBALS.G_SHIPPED_WITHIN_TOL_ABOVE OR
3716: l_x_result_out = OE_GLOBALS.G_PARTIALLY_SHIPPED OR
3717: l_x_result_out = OE_GLOBALS.G_FULLY_SHIPPED OR
3718: l_x_result_out = OE_GLOBALS.G_SHIPPED_BEYOND_TOLERANCE
3719: THEN
3712: -- above and beyond tolerance.
3713:
3714: IF l_x_result_out = OE_GLOBALS.G_SHIPPED_WITHIN_TOL_BELOW OR
3715: l_x_result_out = OE_GLOBALS.G_SHIPPED_WITHIN_TOL_ABOVE OR
3716: l_x_result_out = OE_GLOBALS.G_PARTIALLY_SHIPPED OR
3717: l_x_result_out = OE_GLOBALS.G_FULLY_SHIPPED OR
3718: l_x_result_out = OE_GLOBALS.G_SHIPPED_BEYOND_TOLERANCE
3719: THEN
3720:
3713:
3714: IF l_x_result_out = OE_GLOBALS.G_SHIPPED_WITHIN_TOL_BELOW OR
3715: l_x_result_out = OE_GLOBALS.G_SHIPPED_WITHIN_TOL_ABOVE OR
3716: l_x_result_out = OE_GLOBALS.G_PARTIALLY_SHIPPED OR
3717: l_x_result_out = OE_GLOBALS.G_FULLY_SHIPPED OR
3718: l_x_result_out = OE_GLOBALS.G_SHIPPED_BEYOND_TOLERANCE
3719: THEN
3720:
3721: IF p_check_line_set = 'Y' AND
3714: IF l_x_result_out = OE_GLOBALS.G_SHIPPED_WITHIN_TOL_BELOW OR
3715: l_x_result_out = OE_GLOBALS.G_SHIPPED_WITHIN_TOL_ABOVE OR
3716: l_x_result_out = OE_GLOBALS.G_PARTIALLY_SHIPPED OR
3717: l_x_result_out = OE_GLOBALS.G_FULLY_SHIPPED OR
3718: l_x_result_out = OE_GLOBALS.G_SHIPPED_BEYOND_TOLERANCE
3719: THEN
3720:
3721: IF p_check_line_set = 'Y' AND
3722: l_x_result_out <> OE_GLOBALS.G_PARTIALLY_SHIPPED AND
3718: l_x_result_out = OE_GLOBALS.G_SHIPPED_BEYOND_TOLERANCE
3719: THEN
3720:
3721: IF p_check_line_set = 'Y' AND
3722: l_x_result_out <> OE_GLOBALS.G_PARTIALLY_SHIPPED AND
3723: l_line_rec.item_type_code IN ('STANDARD') THEN
3724:
3725: -- not now 'CONFIG'
3726: -- l_line_rec.ordered_quantity
3765: G_DEBUG_MSG := G_DEBUG_MSG || '9-25';
3766: END IF;
3767: -- Call WF function to complete the shipment activity
3768:
3769: IF l_x_result_out = OE_GLOBALS.G_SHIPPED_BEYOND_TOLERANCE THEN
3770: IF l_debug_level > 0 THEN
3771: oe_debug_pub.add( 'LINE SHIPPED BEYOND OVERSHIPMENT TOLERANCE ' , 3 ) ;
3772: END IF;
3773: l_result_code := 'OVER_SHIPPED';
3780: oe_debug_pub.add( 'COMPLETEACTIVITY , LOG DELAYED REQ '||L_LINE_REC.LINE_ID , 3 ) ;
3781: END IF;
3782:
3783: OE_Delayed_Requests_Pvt.Log_Request
3784: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
3785: p_entity_id => l_line_rec.line_id,
3786: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
3787: p_requesting_entity_id => l_line_rec.line_id,
3788: p_request_type => OE_GLOBALS.G_COMPLETE_ACTIVITY,
3782:
3783: OE_Delayed_Requests_Pvt.Log_Request
3784: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
3785: p_entity_id => l_line_rec.line_id,
3786: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
3787: p_requesting_entity_id => l_line_rec.line_id,
3788: p_request_type => OE_GLOBALS.G_COMPLETE_ACTIVITY,
3789: p_param1 => OE_GLOBALS.G_WFI_LIN,
3790: p_param2 => l_line_rec.line_id,
3784: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
3785: p_entity_id => l_line_rec.line_id,
3786: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
3787: p_requesting_entity_id => l_line_rec.line_id,
3788: p_request_type => OE_GLOBALS.G_COMPLETE_ACTIVITY,
3789: p_param1 => OE_GLOBALS.G_WFI_LIN,
3790: p_param2 => l_line_rec.line_id,
3791: p_param3 => 'SHIP_LINE',
3792: p_param4 => l_result_code,
3785: p_entity_id => l_line_rec.line_id,
3786: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
3787: p_requesting_entity_id => l_line_rec.line_id,
3788: p_request_type => OE_GLOBALS.G_COMPLETE_ACTIVITY,
3789: p_param1 => OE_GLOBALS.G_WFI_LIN,
3790: p_param2 => l_line_rec.line_id,
3791: p_param3 => 'SHIP_LINE',
3792: p_param4 => l_result_code,
3793: x_return_status => l_return_status);
3893: G_DEBUG_MSG := G_DEBUG_MSG || '10-1';
3894: END IF;
3895:
3896: OE_LINE_FULLFILL.Get_Activity_Result
3897: ( p_item_type => OE_GLOBALS.G_WFI_LIN
3898: , p_item_key => p_ato_line_id
3899: , p_activity_name => 'WAIT_FOR_CTO'
3900: , x_return_status => l_return_status
3901: , x_activity_result => l_activity_result
3929: G_DEBUG_MSG := G_DEBUG_MSG || '10-3';
3930: END IF;
3931:
3932: OE_Delayed_Requests_Pvt.Log_Request
3933: ( p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
3934: p_entity_id => p_ato_line_id,
3935: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
3936: p_requesting_entity_id => p_ato_line_id,
3937: p_request_type => OE_GLOBALS.G_COMPLETE_ACTIVITY,
3931:
3932: OE_Delayed_Requests_Pvt.Log_Request
3933: ( p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
3934: p_entity_id => p_ato_line_id,
3935: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
3936: p_requesting_entity_id => p_ato_line_id,
3937: p_request_type => OE_GLOBALS.G_COMPLETE_ACTIVITY,
3938: p_param1 => OE_GLOBALS.G_WFI_LIN,
3939: p_param2 => p_ato_line_id,
3933: ( p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
3934: p_entity_id => p_ato_line_id,
3935: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
3936: p_requesting_entity_id => p_ato_line_id,
3937: p_request_type => OE_GLOBALS.G_COMPLETE_ACTIVITY,
3938: p_param1 => OE_GLOBALS.G_WFI_LIN,
3939: p_param2 => p_ato_line_id,
3940: p_param3 => 'WAIT_FOR_CTO',
3941: p_param4 => OE_GLOBALS.G_WFR_COMPLETE,
3934: p_entity_id => p_ato_line_id,
3935: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
3936: p_requesting_entity_id => p_ato_line_id,
3937: p_request_type => OE_GLOBALS.G_COMPLETE_ACTIVITY,
3938: p_param1 => OE_GLOBALS.G_WFI_LIN,
3939: p_param2 => p_ato_line_id,
3940: p_param3 => 'WAIT_FOR_CTO',
3941: p_param4 => OE_GLOBALS.G_WFR_COMPLETE,
3942: x_return_status => l_return_status);
3937: p_request_type => OE_GLOBALS.G_COMPLETE_ACTIVITY,
3938: p_param1 => OE_GLOBALS.G_WFI_LIN,
3939: p_param2 => p_ato_line_id,
3940: p_param3 => 'WAIT_FOR_CTO',
3941: p_param4 => OE_GLOBALS.G_WFR_COMPLETE,
3942: x_return_status => l_return_status);
3943:
3944: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3945: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3985: l_line_id NUMBER;
3986: l_return_status VARCHAR2(1);
3987: l_line_rec OE_ORDER_PUB.Line_Rec_Type;
3988: l_update_line_tbl OE_ORDER_PUB.Line_Tbl_Type;
3989: l_control_rec OE_GLOBALS.Control_Rec_Type;
3990: l_set_recursion VARCHAR2(1) := 'N';
3991: l_split_line_tbl OE_ORDER_PUB.Line_Tbl_Type;
3992: l_result_out VARCHAR2(30);
3993: --
4014: OE_Line_Util.Query_Rows
4015: (p_line_id => l_line_rec.top_model_line_id,
4016: x_line_tbl => l_update_line_tbl);
4017:
4018: l_control_rec := OE_GLOBALS.G_MISS_CONTROL_REC;
4019: l_control_rec.validate_entity:= FALSE;
4020: l_control_rec.check_security := FALSE;
4021:
4022: l_update_line_tbl(1).operation := OE_GLOBALS.G_OPR_UPDATE;
4018: l_control_rec := OE_GLOBALS.G_MISS_CONTROL_REC;
4019: l_control_rec.validate_entity:= FALSE;
4020: l_control_rec.check_security := FALSE;
4021:
4022: l_update_line_tbl(1).operation := OE_GLOBALS.G_OPR_UPDATE;
4023: l_update_line_tbl(1).shipped_quantity := l_line_rec.shipped_quantity;
4024: l_update_line_tbl(1).actual_shipment_date := l_line_rec.actual_shipment_date;
4025:
4026: IF l_debug_level > 0 THEN
4027: oe_debug_pub.add('ACTUAL SHIPMENT DATE :'
4028: ||TO_CHAR(L_UPDATE_LINE_TBL(1).ACTUAL_SHIPMENT_DATE,'DD-MM-YY'),3);
4029: END IF;
4030:
4031: IF OE_GLOBALS.G_RECURSION_MODE = 'Y' THEN
4032: l_set_recursion := 'N';
4033: ELSE
4034: l_set_recursion := 'Y';
4035: END IF;
4067: oe_debug_pub.add( 'SHIPMENT STATUS : '||L_RESULT_OUT , 3 ) ;
4068: END IF;
4069:
4070:
4071: IF l_result_out = OE_GLOBALS.G_PARTIALLY_SHIPPED AND
4072:
4073: l_line_rec.ordered_quantity > l_line_rec.shipped_quantity THEN
4074:
4075: l_split_line_tbl(1) := l_update_line_tbl(1);
4073: l_line_rec.ordered_quantity > l_line_rec.shipped_quantity THEN
4074:
4075: l_split_line_tbl(1) := l_update_line_tbl(1);
4076: l_split_line_tbl(1).ordered_quantity := l_line_rec.shipped_quantity;
4077: l_split_line_tbl(1).operation := OE_GLOBALS.G_OPR_UPDATE;
4078: l_split_line_tbl(1).split_action_code:= 'SPLIT';
4079: l_split_line_tbl(1).split_by := 'SYSTEM';
4080:
4081: -- Assign the second record of the table for process order for
4084: l_split_line_tbl(2) := OE_ORDER_PUB.G_MISS_LINE_REC;
4085: l_split_line_tbl(2).split_from_line_id := l_update_line_tbl(1).line_id;
4086: l_split_line_tbl(2).ordered_quantity :=
4087: l_line_rec.ordered_quantity - l_line_rec.shipped_quantity;
4088: l_split_line_tbl(2).operation := OE_GLOBALS.G_OPR_CREATE;
4089: l_split_line_tbl(2).split_by := 'SYSTEM';
4090:
4091: IF l_debug_level > 0 THEN
4092: oe_debug_pub.add( 'ITEM TYPE CODE : '||L_LINE_REC.ITEM_TYPE_CODE , 3 ) ;
4107: oe_debug_pub.add( 'ORDERED QUANTITY NEW LINE : '
4108: ||TO_CHAR ( L_SPLIT_LINE_TBL ( 2 ) .ORDERED_QUANTITY ) , 3 ) ;
4109: END IF;
4110:
4111: l_control_rec := OE_GLOBALS.G_MISS_CONTROL_REC;
4112: l_control_rec.controlled_operation := TRUE;
4113: l_control_rec.check_security := FALSE;
4114: l_control_rec.change_attributes := TRUE;
4115: l_control_rec.default_attributes := TRUE;
4114: l_control_rec.change_attributes := TRUE;
4115: l_control_rec.default_attributes := TRUE;
4116: l_control_rec.clear_dependents := TRUE;
4117:
4118: IF OE_GLOBALS.G_RECURSION_MODE = 'Y' THEN
4119: l_set_recursion := 'N';
4120: ELSE
4121: l_set_recursion := 'Y';
4122: END IF;
4218: l_process_tbl OE_Order_Pub.Line_Tbl_Type;
4219: l_process_index NUMBER := 0;
4220: l_set_tbl OE_ORDER_PUB.Line_Tbl_Type;
4221: l_set_index NUMBER := 0;
4222: l_control_rec OE_GLOBALS.Control_Rec_Type;
4223: l_line_shipped VARCHAR2(1) := FND_API.G_FALSE;
4224: l_return_status VARCHAR2(1);
4225: l_set_recursion VARCHAR2(1) := 'N';
4226:
4271: oe_debug_pub.add( 'LINE_ID/TOP_MODEL_LINE_ID : '||TO_CHAR ( L_LINE_TBL ( L_LINE_INDEX ) .LINE_ID ) ||'/'||TO_CHAR ( L_LINE_TBL ( L_LINE_INDEX ) .TOP_MODEL_LINE_ID ) , 3 ) ;
4272: END IF;
4273:
4274: IF (l_line_tbl(l_line_index).link_to_line_id = l_line_tbl(l_line_index).top_model_line_id AND
4275: l_line_tbl(l_line_index).item_type_code = OE_Globals.G_ITEM_CONFIG) THEN
4276: IF l_debug_level > 0 THEN
4277: oe_debug_pub.add( 'IT IS AN ATO ' , 3 ) ;
4278: END IF;
4279: l_process_index := l_process_index + 1;
4290: END IF;
4291: l_process_index := l_process_index + 1;
4292: l_process_tbl(l_process_index) := l_line_tbl(l_line_index);
4293:
4294: ELSIF l_line_tbl(l_line_index).item_type_code = OE_GLOBALS.G_ITEM_STANDARD THEN
4295:
4296: IF l_debug_level > 0 THEN
4297: oe_debug_pub.add( 'IT IS A STANDARD LINE' , 3 ) ;
4298: END IF;
4360: l_process_tbl(l_process_index).shipped_quantity <> FND_API.G_MISS_NUM THEN
4361: IF l_debug_level > 0 THEN
4362: oe_debug_pub.add( 'INSIDE THE LOOP : LINE ID : '|| TO_CHAR ( L_PROCESS_TBL ( L_PROCESS_INDEX ) .LINE_ID ) , 3 ) ;
4363: END IF;
4364: IF l_process_tbl(l_process_index).item_type_code = OE_GLOBALS.G_ITEM_STANDARD THEN
4365: Ship_Confirm_Standard_Line
4366: (
4367: p_line_rec => l_process_tbl(l_process_index),
4368: x_return_status => l_return_status
4374: RAISE FND_API.G_EXC_ERROR;
4375: END IF;
4376: END IF;
4377:
4378: IF l_process_tbl(l_process_index).item_type_code = OE_GLOBALS.G_ITEM_CONFIG THEN
4379: Ship_Confirm_ATO
4380: (
4381: p_line_id => l_process_tbl(l_process_index).line_id,
4382: x_return_status => l_return_status
4398: oe_debug_pub.add( 'SHIP SET IS PARTIALLY SHIPPED REMOVING THE SETID '||TO_CHAR ( L_PROCESS_TBL ( L_PROCESS_INDEX ) .LINE_ID ) , 3 ) ;
4399: END IF;
4400: l_set_index := l_set_index + 1;
4401: l_set_tbl(l_set_index) := OE_Order_Pub.G_MISS_LINE_REC;
4402: IF l_process_tbl(l_process_index).item_type_code = OE_GLOBALS.G_ITEM_CONFIG THEN
4403: l_set_tbl(l_set_index).line_id := l_process_tbl(l_process_index).top_model_line_id;
4404: ELSE
4405: l_set_tbl(l_set_index).line_id := l_process_tbl(l_process_index).line_id;
4406: END IF;
4407: IF l_debug_level > 0 THEN
4408: oe_debug_pub.add( 'LINE ID : '||TO_CHAR ( L_SET_TBL ( L_SET_INDEX ) .LINE_ID ) , 3 ) ;
4409: END IF;
4410: l_set_tbl(l_set_index).ship_set_id := NULL;
4411: l_set_tbl(l_set_index).operation := OE_GLOBALS.G_OPR_UPDATE;
4412:
4413: END IF;
4414:
4415: l_line_shipped := FND_API.G_FALSE;
4417: END LOOP;
4418:
4419: IF l_set_index <> 0 THEN
4420:
4421: l_control_rec := OE_GLOBALS.G_MISS_CONTROL_REC;
4422: l_control_rec.validate_entity := FALSE;
4423: l_control_rec.check_security := FALSE;
4424:
4425: IF l_debug_level > 0 THEN
4428: IF l_debug_level > 0 THEN
4429: oe_debug_pub.add( 'NUMBER OF LINES '||TO_CHAR ( L_SET_INDEX ) , 3 ) ;
4430: END IF;
4431:
4432: IF OE_GLOBALS.G_RECURSION_MODE = 'Y' THEN
4433:
4434: l_set_recursion := 'N';
4435:
4436: ELSE
4435:
4436: ELSE
4437:
4438: l_set_recursion := 'Y';
4439: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
4440:
4441: END IF;
4442: IF g_debug_call > 0 THEN
4443: G_DEBUG_MSG := G_DEBUG_MSG || '11-8';
4452:
4453: IF l_set_recursion = 'Y' THEN
4454:
4455: l_set_recursion := 'N';
4456: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
4457: END IF;
4458:
4459: IF l_debug_level > 0 THEN
4460: oe_debug_pub.add( 'RETURN STATUS FROM PROCESS ORDER : '||L_RETURN_STATUS , 3 ) ;
4532: l_msg_count NUMBER;
4533: l_msg_data VARCHAR2(2000);
4534: l_tolerance_quantity_below NUMBER;
4535: l_tolerance_quantity_above NUMBER;
4536: l_old_recursion_mode VARCHAR2(1) := OE_GLOBALS.G_RECURSION_MODE;
4537:
4538: --
4539: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4540: --
4543: IF l_debug_level > 0 THEN
4544: oe_debug_pub.add( 'ENTERING OE_SHIPPING_INTEGRATION_PVT.PROCESS_SHIP_CONFIRM '|| P_PROCESS_TYPE , 1 ) ;
4545: END IF;
4546:
4547: -- Setting the Global variable OE_GLOBALS.G_RECURSION_MODE to Y so that the
4548: -- Price request for "SHIP" event is not triggered before COST records are
4549: -- inserted into OE_PRICE_ADJUSTMENTS.
4550:
4551: IF g_debug_call > 0 THEN
4551: IF g_debug_call > 0 THEN
4552: G_DEBUG_MSG := G_DEBUG_MSG || '12-1';
4553: END IF;
4554:
4555: IF OE_GLOBALS.G_RECURSION_MODE <> 'Y' THEN
4556: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
4557: null;
4558: END IF;
4559:
4552: G_DEBUG_MSG := G_DEBUG_MSG || '12-1';
4553: END IF;
4554:
4555: IF OE_GLOBALS.G_RECURSION_MODE <> 'Y' THEN
4556: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
4557: null;
4558: END IF;
4559:
4560:
4631:
4632: END IF;
4633:
4634: x_return_status := FND_API.G_RET_STS_SUCCESS;
4635: IF l_old_recursion_mode <> OE_GLOBALS.G_RECURSION_MODE THEN
4636: -- OE_GLOBALS.G_RECURSION_MODE := l_old_recursion_mode;
4637: null;
4638: END IF;
4639:
4632: END IF;
4633:
4634: x_return_status := FND_API.G_RET_STS_SUCCESS;
4635: IF l_old_recursion_mode <> OE_GLOBALS.G_RECURSION_MODE THEN
4636: -- OE_GLOBALS.G_RECURSION_MODE := l_old_recursion_mode;
4637: null;
4638: END IF;
4639:
4640: IF l_debug_level > 0 THEN
4642: END IF;
4643:
4644: EXCEPTION
4645: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4646: IF l_old_recursion_mode <> OE_GLOBALS.G_RECURSION_MODE THEN
4647: -- OE_GLOBALS.G_RECURSION_MODE := l_old_recursion_mode;
4648: null;
4649: END IF;
4650:
4643:
4644: EXCEPTION
4645: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4646: IF l_old_recursion_mode <> OE_GLOBALS.G_RECURSION_MODE THEN
4647: -- OE_GLOBALS.G_RECURSION_MODE := l_old_recursion_mode;
4648: null;
4649: END IF;
4650:
4651: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4661: G_DEBUG_MSG := G_DEBUG_MSG || 'E-30';
4662: END IF;
4663:
4664: WHEN FND_API.G_EXC_ERROR THEN
4665: IF l_old_recursion_mode <> OE_GLOBALS.G_RECURSION_MODE THEN
4666: -- OE_GLOBALS.G_RECURSION_MODE := l_old_recursion_mode;
4667: null;
4668: END IF;
4669: x_return_status := FND_API.G_RET_STS_ERROR;
4662: END IF;
4663:
4664: WHEN FND_API.G_EXC_ERROR THEN
4665: IF l_old_recursion_mode <> OE_GLOBALS.G_RECURSION_MODE THEN
4666: -- OE_GLOBALS.G_RECURSION_MODE := l_old_recursion_mode;
4667: null;
4668: END IF;
4669: x_return_status := FND_API.G_RET_STS_ERROR;
4670: IF g_debug_call > 0 THEN
4670: IF g_debug_call > 0 THEN
4671: G_DEBUG_MSG := G_DEBUG_MSG || 'E31';
4672: END IF;
4673: WHEN OTHERS THEN
4674: IF l_old_recursion_mode <> OE_GLOBALS.G_RECURSION_MODE THEN
4675: -- OE_GLOBALS.G_RECURSION_MODE := l_old_recursion_mode;
4676: null;
4677: END IF;
4678: IF g_debug_call > 0 THEN
4671: G_DEBUG_MSG := G_DEBUG_MSG || 'E31';
4672: END IF;
4673: WHEN OTHERS THEN
4674: IF l_old_recursion_mode <> OE_GLOBALS.G_RECURSION_MODE THEN
4675: -- OE_GLOBALS.G_RECURSION_MODE := l_old_recursion_mode;
4676: null;
4677: END IF;
4678: IF g_debug_call > 0 THEN
4679: G_DEBUG_MSG := G_DEBUG_MSG || 'E-32';
5948: END LOOP;
5949:
5950: ELSE --pre-pack H
5951:
5952: IF OE_GLOBALS.G_ASO_INSTALLED = 'Y' THEN
5953:
5954: OE_Order_PVT.Process_Requests_And_Notify
5955: ( p_process_requests => FALSE
5956: , p_notify => TRUE