[Home] [Help]
33: l_hash_value NUMBER;
34:
35: BEGIN
36: l_tab_index := dbms_utility.get_hash_value(p_concat_segment,1,TABLE_SIZE);
37: oe_debug_pub.add('Find: hash_value:'||l_tab_index,1);
38: IF Prf_Tbl.EXISTS(l_tab_index) THEN
39: IF Prf_Tbl(l_tab_index).concat_segment = p_concat_segment THEN
40: RETURN l_tab_index;
41: ELSE
94: BEGIN
95: l_tab_index := dbms_utility.get_hash_value(p_concat_segment,1,TABLE_SIZE);
96: --l_prof_value := FND_PROFILE.VALUE_SPECIFIC('AR_ALLOW_TAX_CODE_OVERRIDE',p_user_id,p_resp_id,p_appl_id);
97: l_prof_value := FND_PROFILE.VALUE_SPECIFIC('ZX_ALLOW_TAX_CLASSIF_OVERRIDE',p_user_id,p_resp_id,p_appl_id);
98: oe_debug_pub.add('Put:hash_value:'||l_tab_index,1);
99: IF Prf_Tbl.EXISTS(l_tab_index) THEN
100: IF Prf_Tbl(l_tab_index).concat_segment = p_concat_segment THEN
101: Prf_Tbl(l_tab_index).prf_value := l_prof_value;
102: l_stored := TRUE;
183: )
184: IS
185: l_return_status VARCHAR2(1);
186: l_line_rec OE_Order_Pub.Line_Rec_Type;
187: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
188: BEGIN
189:
190: IF l_debug_level > 0 THEN
191: oe_debug_pub.add('entering oe_invoice_pub . update_service_dates() '
187: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
188: BEGIN
189:
190: IF l_debug_level > 0 THEN
191: oe_debug_pub.add('entering oe_invoice_pub . update_service_dates() '
192: ||' p_line_rec.line_id = ' || P_LINE_REC.LINE_ID
193: ||' p_line_rec.service_start_date = '||TO_CHAR(P_LINE_REC.SERVICE_START_DATE, 'YYYY/MM/DD' )
194: ||' p_line_rec.service_end_date = '|| TO_CHAR ( P_LINE_REC.SERVICE_END_DATE , 'YYYY/MM/DD' )
195: ) ;
203: p_x_line_rec => l_line_rec,
204: x_return_status => l_return_status
205: );
206:
207: oe_debug_pub.add(' l_line_rec.service_start_date = '|| l_line_rec.service_start_date);
208: oe_debug_pub.add(' l_return_status = '||l_return_status);
209:
210: p_line_rec.service_start_date := l_line_rec.service_start_date;
211:
204: x_return_status => l_return_status
205: );
206:
207: oe_debug_pub.add(' l_line_rec.service_start_date = '|| l_line_rec.service_start_date);
208: oe_debug_pub.add(' l_return_status = '||l_return_status);
209:
210: p_line_rec.service_start_date := l_line_rec.service_start_date;
211:
212: IF p_line_rec.service_start_date IS NOT NULL THEN
214: OE_SERVICE_UTIL.Get_Service_Duration(
215: p_x_line_rec => p_line_rec,
216: x_return_status => l_return_status
217: );
218: oe_debug_pub.add(' l_return_status == '||l_return_status);
219: END IF;
220:
221: ELSIF p_line_rec.service_end_date IS NULL OR p_line_rec.service_end_date = FND_API.G_MISS_DATE THEN
222:
223: OE_SERVICE_UTIL.Get_Service_Duration(
224: p_x_line_rec => p_line_rec,
225: x_return_status => l_return_status
226: );
227: oe_debug_pub.add(' l_return_status == > '||l_return_status);
228: END IF;
229:
230: IF l_debug_level > 0 THEN
231: oe_debug_pub.add('exiting oe_invoice_pub . update_service_dates() '
227: oe_debug_pub.add(' l_return_status == > '||l_return_status);
228: END IF;
229:
230: IF l_debug_level > 0 THEN
231: oe_debug_pub.add('exiting oe_invoice_pub . update_service_dates() '
232: ||' p_line_rec.line_id = ' || P_LINE_REC.LINE_ID
233: ||' p_line_rec.service_start_date = '||TO_CHAR(P_LINE_REC.SERVICE_START_DATE, 'YYYY/MM/DD' )
234: ||' p_line_rec.service_end_date = '|| TO_CHAR ( P_LINE_REC.SERVICE_END_DATE , 'YYYY/MM/DD' )
235: ) ;
244: )
245: RETURN BOOLEAN
246: IS
247: --
248: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
249: --
250: l_header_id NUMBER;
251: l_line_id NUMBER;
252:
251: l_line_id NUMBER;
252:
253: BEGIN
254: IF l_debug_level > 0 THEN
255: oe_debug_pub.add( 'ENTER RETURN_LINE ' , 1 ) ;
256: END IF;
257: IF p_line_rec.line_category_code = 'RETURN' THEN
258: IF l_debug_level > 0 THEN
259: oe_debug_pub.add( 'EXIT , THIS IS A RETURN LINE' , 1 ) ;
255: oe_debug_pub.add( 'ENTER RETURN_LINE ' , 1 ) ;
256: END IF;
257: IF p_line_rec.line_category_code = 'RETURN' THEN
258: IF l_debug_level > 0 THEN
259: oe_debug_pub.add( 'EXIT , THIS IS A RETURN LINE' , 1 ) ;
260: END IF;
261: RETURN TRUE;
262: ELSE
263: IF l_debug_level > 0 THEN
260: END IF;
261: RETURN TRUE;
262: ELSE
263: IF l_debug_level > 0 THEN
264: oe_debug_pub.add( 'EXIT , THIS IS A REGULAR LINE' , 1 ) ;
265: END IF;
266: RETURN FALSE;
267: END IF;
268: EXCEPTION
268: EXCEPTION
269: WHEN OTHERS THEN
270: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
271: IF l_debug_level > 0 THEN
272: oe_debug_pub.add( 'RETURN_LINE: WHEN OTHERS EXCEPTION ' , 1 ) ;
273: END IF;
274: OE_MSG_PUB.Add_Exc_Msg
275: ( G_PKG_NAME
276: , 'Return_Line'
282: ( p_line_id IN NUMBER
283: , p_flow_status_code IN VARCHAR2
284: ) IS
285: --
286: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
287: --
288: Begin
289: IF l_debug_level > 0 THEN
290: oe_debug_pub.add( 'Inside Update Line Flow Status');
286: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
287: --
288: Begin
289: IF l_debug_level > 0 THEN
290: oe_debug_pub.add( 'Inside Update Line Flow Status');
291: oe_debug_pub.add( 'line id : ' || p_line_id);
292: oe_debug_pub.add( 'flow status code : ' || p_flow_status_code);
293: END IF;
294: Update oe_order_lines_all
287: --
288: Begin
289: IF l_debug_level > 0 THEN
290: oe_debug_pub.add( 'Inside Update Line Flow Status');
291: oe_debug_pub.add( 'line id : ' || p_line_id);
292: oe_debug_pub.add( 'flow status code : ' || p_flow_status_code);
293: END IF;
294: Update oe_order_lines_all
295: Set flow_status_code = p_flow_status_code
288: Begin
289: IF l_debug_level > 0 THEN
290: oe_debug_pub.add( 'Inside Update Line Flow Status');
291: oe_debug_pub.add( 'line id : ' || p_line_id);
292: oe_debug_pub.add( 'flow status code : ' || p_flow_status_code);
293: END IF;
294: Update oe_order_lines_all
295: Set flow_status_code = p_flow_status_code
296: Where line_id = p_line_id;
300: ( p_header_id IN NUMBER
301: , p_flow_status_code IN VARCHAR2
302: ) IS
303: --
304: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
305: --
306: Begin
307: IF l_debug_level > 0 THEN
308: oe_debug_pub.add( 'Inside Update Header Flow Status');
304: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
305: --
306: Begin
307: IF l_debug_level > 0 THEN
308: oe_debug_pub.add( 'Inside Update Header Flow Status');
309: END IF;
310: Update oe_order_headers_all
311: Set flow_status_code = p_flow_status_code
312: Where header_id = p_header_id;
319: RETURN BOOLEAN
320: IS
321: l_count NUMBER;
322: --
323: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
324: --
325: BEGIN
326: IF l_debug_level > 0 THEN
327: oe_debug_pub.add( 'ENTER SHIPPING_INFO_AVAILABLE ' , 1 ) ;
323: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
324: --
325: BEGIN
326: IF l_debug_level > 0 THEN
327: oe_debug_pub.add( 'ENTER SHIPPING_INFO_AVAILABLE ' , 1 ) ;
328: END IF;
329: -- Fix for bug 2196494
330: IF (p_line_rec.shippable_flag = 'Y' OR p_line_rec.item_type_code in ('MODEL','CLASS','KIT'))
331: AND p_line_rec.line_category_code <> 'RETURN'
335: IF (nvl(p_line_rec.shipped_quantity,0) = 0 AND
336: p_line_rec.model_remnant_flag = 'Y' AND
337: p_line_rec.item_type_code in ('MODEL','CLASS','KIT')) THEN
338: IF l_debug_level > 0 THEN
339: oe_debug_pub.add('Exit Shipping_info_Available (4) Remnant Model',1);
340: END IF;
341: RETURN TRUE;
342: -- If line is shipped, shipped quantity will be filled in otherwise it will be null
343: ELSIF p_line_rec.shipped_quantity IS NULL THEN -- Changed IF to ELSIF
341: RETURN TRUE;
342: -- If line is shipped, shipped quantity will be filled in otherwise it will be null
343: ELSIF p_line_rec.shipped_quantity IS NULL THEN -- Changed IF to ELSIF
344: IF l_debug_level > 0 THEN
345: oe_debug_pub.add('Exit Shipping_info_Available (1) non shippable', 1);
346: END IF;
347: RETURN FALSE;
348: ELSE
349: IF l_debug_level > 0 THEN
346: END IF;
347: RETURN FALSE;
348: ELSE
349: IF l_debug_level > 0 THEN
350: oe_debug_pub.add('Exit Shipping_info_Available (2)-shippable', 1);
351: END IF;
352: RETURN TRUE;
353: END IF;
354: ELSE
352: RETURN TRUE;
353: END IF;
354: ELSE
355: IF l_debug_level > 0 THEN
356: oe_debug_pub.add( 'EXIT SHIPPING_INFO_AVAILABLE ( 3 ) ' , 1 ) ;
357: END IF;
358: RETURN FALSE;
359: END IF;
360: EXCEPTION
361: WHEN OTHERS THEN
362: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
363: THEN
364: IF l_debug_level > 0 THEN
365: oe_debug_pub.add( 'SHIPPPING_INFO_AVAILABLE: WHEN OTHERS EXCEPTION ' , 1 ) ;
366: END IF;
367: OE_MSG_PUB.Add_Exc_Msg
368: ( G_PKG_NAME
369: , 'Shippping_info_Available'
385: l_cancelled_delivery_detail NUMBER;
386: --bug5336639
387: l_master_organization_id NUMBER;
388: --
389: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
390: --
391: BEGIN
392: IF l_debug_level > 0 THEN
393: oe_debug_pub.add( 'ENTERING LINE_INVOICEABLE' , 1 ) ;
389: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
390: --
391: BEGIN
392: IF l_debug_level > 0 THEN
393: oe_debug_pub.add( 'ENTERING LINE_INVOICEABLE' , 1 ) ;
394: END IF;
395:
396: --bug5336639
397: IF G_CURRENT_LINE_ID = p_line_rec.line_id THEN
396: --bug5336639
397: IF G_CURRENT_LINE_ID = p_line_rec.line_id THEN
398:
399: IF l_debug_level > 0 THEN
400: oe_debug_pub.add('Returning the cached value..');
401: IF G_IS_CURR_LINE_INVOICEABLE THEN
402: oe_debug_pub.add('This line is invoiceable');
403: ELSE
404: oe_debug_pub.add('This line is not invoiceable');
398:
399: IF l_debug_level > 0 THEN
400: oe_debug_pub.add('Returning the cached value..');
401: IF G_IS_CURR_LINE_INVOICEABLE THEN
402: oe_debug_pub.add('This line is invoiceable');
403: ELSE
404: oe_debug_pub.add('This line is not invoiceable');
405: END IF;
406: END IF;
400: oe_debug_pub.add('Returning the cached value..');
401: IF G_IS_CURR_LINE_INVOICEABLE THEN
402: oe_debug_pub.add('This line is invoiceable');
403: ELSE
404: oe_debug_pub.add('This line is not invoiceable');
405: END IF;
406: END IF;
407:
408: RETURN G_IS_CURR_LINE_INVOICEABLE;
410:
411: /* For internal orders source_document_type_id is 10 */
412: IF p_line_rec.source_document_type_id = 10 THEN
413: IF l_debug_level > 0 THEN
414: oe_debug_pub.add( 'INTERNAL ORDER , NOT INVOICEABLE' , 1 ) ;
415: END IF;
416: --bug5336639 start
417: G_CURRENT_LINE_ID := p_line_rec.line_id;
418: G_IS_CURR_LINE_INVOICEABLE := FALSE;
431: AND SOURCE_CODE='OE'
432: AND RELEASED_STATUS = 'D';
433: IF NVL(l_cancelled_delivery_detail,0) > 0 THEN
434: IF l_debug_level > 0 THEN
435: oe_debug_pub.add('This line not eligible for invoice since shipping within tolerance'||p_line_rec.line_id,1);
436: END IF;
437: --bug5336639 start
438: G_CURRENT_LINE_ID := p_line_rec.line_id;
439: G_IS_CURR_LINE_INVOICEABLE := FALSE;
441: RETURN FALSE;
442: END IF;
443: EXCEPTION WHEN OTHERS THEN
444: IF l_debug_level > 0 THEN
445: oe_debug_pub.add('In Others',1);
446: END IF;
447: NULL;
448: END;
449: END IF;
461:
462: EXCEPTION
463: WHEN NO_DATA_FOUND THEN
464: IF l_debug_level > 0 THEN
465: oe_debug_pub.add( 'ITEM DEFINITION DOES NOT EXISTS IN THE SHIP FROM ORG' );
466: END IF;
467: RAISE NO_DATA_FOUND;
468: END;
469: /* If the service reference context is ORDER, then the service_reference
474: IF p_line_rec.item_type_code = 'SERVICE' AND
475: p_line_rec.service_reference_type_code='CUSTOMER_PRODUCT' AND
476: p_line_rec.service_reference_line_id IS NOT NULL THEN
477: IF l_debug_level > 0 THEN
478: oe_debug_pub.add( 'LINE IS A CUSTOMER PRODUCT' ) ;
479: END IF;
480: /* Commenting for bug# 5032978
481: OE_SERVICE_UTIL.Get_Cust_Product_Line_Id
482: ( x_return_status => l_return_status
485: , x_cust_product_line_id => l_order_line_id
486: );
487: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
488: IF l_debug_level > 0 THEN
489: oe_debug_pub.add( 'SERVICE LINE ID IS ' || L_ORDER_LINE_ID ) ;
490: END IF;
491: l_service_reference_line_id := l_order_line_id;
492: ELSE
493: IF l_debug_level > 0 THEN
490: END IF;
491: l_service_reference_line_id := l_order_line_id;
492: ELSE
493: IF l_debug_level > 0 THEN
494: oe_debug_pub.add( 'NOT ABLE TO RETRIEVE CUST PRODUCT LINE ID' ) ;
495: END IF;
496: FND_MESSAGE.SET_NAME('ONT','ONT_NO_CUST_PROD_LINE');
497: OE_MSG_PUB.ADD;
498: RAISE NO_DATA_FOUND;
514: AND msi.organization_id = nvl(ol.ship_from_org_id, oe_sys_parameters.value('MASTER_ORGANIZATION_ID', ol.org_id));
515: EXCEPTION
516: WHEN NO_DATA_FOUND THEN
517: IF l_debug_level > 0 THEN
518: oe_debug_pub.add( 'IN NO DATA FOUND WHEN TRYING TO GET SERVICEABLE PRODUCT FLAG' ,5);
519: END IF;
520: l_serviceable_product_flag := 'Y';
521: WHEN OTHERS THEN
522: IF l_debug_level > 0 THEN
519: END IF;
520: l_serviceable_product_flag := 'Y';
521: WHEN OTHERS THEN
522: IF l_debug_level > 0 THEN
523: oe_debug_pub.add( 'UNABLE TO DEFINE SERVICEABLE PRODUCT '||SQLERRM , 1 ) ;
524: END IF;
525: RAISE NO_DATA_FOUND;
526: END;
527: ELSE
531: IF (l_invoiceable_item_flag = 'N') OR
532: (l_invoice_enabled_flag = 'N') OR
533: (p_line_rec.item_type_code = 'SERVICE' AND l_serviceable_product_flag = 'N') THEN
534: IF l_debug_level > 0 THEN
535: oe_debug_pub.add( 'ITEM NOT INVOICEABLE ( 2 ) ' , 1 ) ;
536: END IF;
537: --bug5336639 start
538: G_CURRENT_LINE_ID := p_line_rec.line_id;
539: G_IS_CURR_LINE_INVOICEABLE := FALSE;
542: END IF;
543:
544: IF p_line_rec.item_type_code = 'INCLUDED' THEN
545: IF l_debug_level > 0 THEN
546: oe_debug_pub.add( 'INCLUDED ITEM , NOT INVOICEABLE ( 3 ) ' , 1 ) ;
547: END IF;
548: --bug5336639 start
549: G_CURRENT_LINE_ID := p_line_rec.line_id;
550: G_IS_CURR_LINE_INVOICEABLE := FALSE;
553: END IF;
554:
555: IF p_line_rec.item_type_code = 'CONFIG' THEN -- for bug# 5224264
556: IF l_debug_level > 0 THEN
557: oe_debug_pub.add( 'CONFIG ITEM , NOT INVOICEABLE ( 3 ) ' , 1 ) ;
558: END IF;
559: --bug5336639 start
560: G_CURRENT_LINE_ID := p_line_rec.line_id;
561: G_IS_CURR_LINE_INVOICEABLE := FALSE;
566: IF Return_Line(p_line_rec) THEN
567: IF OE_LINE_UTIL.Get_Return_Item_Type_Code(p_line_rec) = 'CONFIG' OR
568: OE_LINE_UTIL.Get_Return_Item_Type_Code(p_line_rec) = 'INCLUDED' THEN
569: IF l_debug_level > 0 THEN
570: oe_debug_pub.add( 'ITEM NOT INVOICEABLE ( 4 ) ' , 1 ) ;
571: END IF;
572: --bug5336639 start
573: G_CURRENT_LINE_ID := p_line_rec.line_id;
574: G_IS_CURR_LINE_INVOICEABLE := FALSE;
582: AND NVL(p_line_rec.shipped_quantity,0) = 0
583: AND NVL(p_line_rec.fulfilled_quantity,0) = 0 ) THEN
584:
585: IF l_debug_level > 0 THEN
586: oe_debug_pub.add( 'ITEM was Completely rejected, DO NOT Invoice ' , 1 ) ;
587: END IF;
588:
589: RETURN FALSE;
590: END IF;
590: END IF;
591: --Added for bug # 6945716 end
592: END IF;
593: IF l_debug_level > 0 THEN
594: oe_debug_pub.add( 'THIS LINE IS INVOICEABLE ( 5 ) ' , 5 ) ;
595: END IF;
596: --bug5336639 start
597: G_CURRENT_LINE_ID := p_line_rec.line_id;
598: G_IS_CURR_LINE_INVOICEABLE := TRUE;
606: WHEN OTHERS THEN
607: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
608: THEN
609: IF l_debug_level > 0 THEN
610: oe_debug_pub.add( 'LINE_INVOICEABLE: WHEN OTHERS EXCEPTION '||SQLERRM , 1 ) ;
611: END IF;
612: OE_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME ,'Line_Invoiceable');
613: END IF;
614: END Line_Invoiceable;
623: l_hold_return_status VARCHAR2(30);
624: l_hold_msg_count NUMBER;
625: l_hold_msg_data VARCHAR2(240);
626: --
627: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
628: --
629: BEGIN
630:
631: -- We should honor invoice specific and generic holds
630:
631: -- We should honor invoice specific and generic holds
632: -- call to check_hold api to check for holds
633: IF l_debug_level > 0 THEN
634: oe_debug_pub.add( 'ENTER CHECK_INVOICING_HOLDS ' , 5 ) ;
635: END IF;
636: -- Check for Generic and invoice activity specific holds
637: -- IF p_itemtype = OE_GLOBALS.G_WFI_LIN THEN
638: OE_HOLDS_PUB.CHECK_HOLDS(p_api_version => 1.0,
649: FND_MESSAGE.SET_NAME('ONT','OE_INVOICING_HOLD');
650: OE_MSG_PUB.ADD;
651: x_return_status := FND_API.G_RET_STS_ERROR;
652: IF l_debug_level > 0 THEN
653: oe_debug_pub.add( 'A Line level Invoicing hold or generic hold found ( 1 ) , Return status : '||X_RETURN_STATUS , 1 ) ;
654: END IF;
655: RETURN;
656: ELSE
657: x_return_status := FND_API.G_RET_STS_SUCCESS;
672: FND_MESSAGE.SET_NAME('ONT','OE_INVOICING_HOLD');
673: OE_MSG_PUB.ADD;
674: x_return_status := FND_API.G_RET_STS_ERROR;
675: IF l_debug_level > 0 THEN
676: oe_debug_pub.add( 'A Header level Invoicing hold or generic hold found ( 2 ) , Return status '||X_RETURN_STATUS , 1 ) ;
677: END IF;
678: RETURN;
679: ELSE
680: x_return_status := FND_API.G_RET_STS_SUCCESS;
680: x_return_status := FND_API.G_RET_STS_SUCCESS;
681: END IF;
682: -- END IF;
683: IF l_debug_level > 0 THEN
684: oe_debug_pub.add( 'NO HOLDS FOUND FOR THIS LINE ( 3 ) , RETURN STATUS '||X_RETURN_STATUS , 1 ) ;
685: END IF;
686: EXCEPTION
687: WHEN OTHERS THEN
688: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
689: IF FND_MSG_PUB.Check_Msg_Level
690: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
691: THEN
692: IF l_debug_level > 0 THEN
693: oe_debug_pub.add( 'Check_Invoicing_Holds: WHEN OTHERS EXCEPTION '||SQLERRM , 1 ) ;
694: END IF;
695: OE_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME ,'Check_Invoicing_Holds');
696: END IF;
697: END Check_Invoicing_Holds;
700: ( p_line_rec IN OE_Order_Pub.Line_Rec_Type
701: ) RETURN BOOLEAN IS
702: l_price_adj_tbl OE_Header_Adj_Util.Line_Adjustments_Tab_Type;
703: --
704: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
705: --
706: l_header_id NUMBER;
707: l_line_id NUMBER;
708: BEGIN
706: l_header_id NUMBER;
707: l_line_id NUMBER;
708: BEGIN
709: IF l_debug_level > 0 THEN
710: oe_debug_pub.add( 'ENTER SHOW_DETAIL_DISCOUNTS ( ) ' , 5 ) ;
711: END IF;
712: -- We should not depend on list price, selling price to determine if
713: -- there are any discounts. There is bug in pricing now.
714: -- Eventhough the discounts are not actually inserted into oe_price_adj table,
733: ,x_line_adjustments => l_price_adj_tbl);
734: END IF;
735: -- RT}
736: IF l_debug_level > 0 THEN
737: oe_debug_pub.add( 'HEADER_ID : '||P_LINE_REC.HEADER_ID , 5 ) ;
738: oe_debug_pub.add( 'LINE_ID : '||P_LINE_REC.LINE_ID , 5 ) ;
739: oe_debug_pub.add( 'COUNT IS : '||L_PRICE_ADJ_TBL.COUNT , 5 ) ;
740: END IF;
741: IF l_price_adj_tbl.COUNT <> 0 THEN
734: END IF;
735: -- RT}
736: IF l_debug_level > 0 THEN
737: oe_debug_pub.add( 'HEADER_ID : '||P_LINE_REC.HEADER_ID , 5 ) ;
738: oe_debug_pub.add( 'LINE_ID : '||P_LINE_REC.LINE_ID , 5 ) ;
739: oe_debug_pub.add( 'COUNT IS : '||L_PRICE_ADJ_TBL.COUNT , 5 ) ;
740: END IF;
741: IF l_price_adj_tbl.COUNT <> 0 THEN
742: IF l_debug_level > 0 THEN
735: -- RT}
736: IF l_debug_level > 0 THEN
737: oe_debug_pub.add( 'HEADER_ID : '||P_LINE_REC.HEADER_ID , 5 ) ;
738: oe_debug_pub.add( 'LINE_ID : '||P_LINE_REC.LINE_ID , 5 ) ;
739: oe_debug_pub.add( 'COUNT IS : '||L_PRICE_ADJ_TBL.COUNT , 5 ) ;
740: END IF;
741: IF l_price_adj_tbl.COUNT <> 0 THEN
742: IF l_debug_level > 0 THEN
743: oe_debug_pub.add( 'SHOW DETAIL DISCOUNTS IS ON' , 1 ) ;
739: oe_debug_pub.add( 'COUNT IS : '||L_PRICE_ADJ_TBL.COUNT , 5 ) ;
740: END IF;
741: IF l_price_adj_tbl.COUNT <> 0 THEN
742: IF l_debug_level > 0 THEN
743: oe_debug_pub.add( 'SHOW DETAIL DISCOUNTS IS ON' , 1 ) ;
744: END IF;
745: RETURN TRUE;
746: ELSE
747: IF l_debug_level > 0 THEN
744: END IF;
745: RETURN TRUE;
746: ELSE
747: IF l_debug_level > 0 THEN
748: oe_debug_pub.add( 'SHOW DETAIL DISCOUNTS IS OFF ( 1 ) ' , 1 ) ;
749: END IF;
750: RETURN FALSE;
751: END IF;
752: ELSE
750: RETURN FALSE;
751: END IF;
752: ELSE
753: IF l_debug_level > 0 THEN
754: oe_debug_pub.add( 'SHOW DETAIL DISCOUNTS IS OFF ( 2 ) ' , 1 ) ;
755: END IF;
756: RETURN FALSE;
757: END IF;
758: END Show_Detail_Discounts;
766: l_precision NUMBER;
767: l_ext_precision NUMBER;
768: l_min_acct_unit NUMBER;
769: --
770: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
771: --
772: BEGIN
773:
774: IF l_debug_level > 0 THEN
771: --
772: BEGIN
773:
774: IF l_debug_level > 0 THEN
775: oe_debug_pub.add( 'ENTERING ROUNDED_AMOUNT ( ) ' , 5 ) ;
776: END IF;
777: FND_CURRENCY.GET_INFO(Currency_Code => p_currency_code,
778: precision => l_precision,
779: ext_precision => l_ext_precision,
784: ELSE
785: x_rounded_amount := ROUND(p_unrounded_amount/l_min_acct_unit)*l_min_acct_unit;
786: END IF;
787: IF l_debug_level > 0 THEN
788: oe_debug_pub.add( 'EXITING ROUNDED AMOUNT ( ) WITH AMOUNT : '||X_ROUNDED_AMOUNT , 5 ) ;
789: END IF;
790: END Rounded_Amount;
791:
792: PROCEDURE Return_Credit_Info
796: )
797: IS
798: l_inv_cust_trx_type_id NUMBER;
799: --
800: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
801: --
802: BEGIN
803: IF l_debug_level > 0 THEN
804: oe_debug_pub.add( ' ENTER RETURN CREDIT INFO ( ) ' , 5 ) ;
800: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
801: --
802: BEGIN
803: IF l_debug_level > 0 THEN
804: oe_debug_pub.add( ' ENTER RETURN CREDIT INFO ( ) ' , 5 ) ;
805: END IF;
806: --Hierarchy of retrieval:
807: --1)Get cust_trx_type_id from referenced line.
808: --2)Get cust_trx_type_id from referenced order.
810: --4)Get cust_trx_type_id from that order.
811: --5)Get cust_trx_type_id from PROFILE OPTION.
812: IF p_line_rec.return_context = 'INVOICE' THEN
813: IF l_debug_level > 0 THEN
814: oe_debug_pub.add( ' RETURN TYPE IS INVOICE ' , 5 ) ;
815: END IF;
816: OE_DEBUG_PUB.DUMPDEBUG;
817: -- Introducing this pl/sql block #3349781
818: BEGIN
812: IF p_line_rec.return_context = 'INVOICE' THEN
813: IF l_debug_level > 0 THEN
814: oe_debug_pub.add( ' RETURN TYPE IS INVOICE ' , 5 ) ;
815: END IF;
816: OE_DEBUG_PUB.DUMPDEBUG;
817: -- Introducing this pl/sql block #3349781
818: BEGIN
819: SELECT nvl(ctt.credit_memo_type_id, 0),
820: ctt_credit.creation_sign
842: 8, -3113,
843: NVL(ctl.org_id, -3114)); Commented for the bug 3027150 */
844: -- cust_trx_type_id 1,2,7,8 (for Invoice, Credit Memo, PA Invoice, PA Credit memo) are seeded with org_id -3113
845: EXCEPTION WHEN NO_DATA_FOUND THEN
846: OE_DEBUG_PUB.add('Unable to derive credit memo type id from referenced order line, verify setup',1);
847: x_credit_memo_type_id:= 0;
848: x_credit_creation_sign := NULL;
849: NULL;
850: END;
849: NULL;
850: END;
851:
852: IF l_debug_level > 0 THEN
853: oe_debug_pub.add( 'CREDIT_MEMO_TYPE_ID FROM INVOICE : '||X_CREDIT_MEMO_TYPE_ID , 5 ) ;
854: END IF;
855: ELSIF p_line_rec.return_context in ('PO', 'ORDER', 'SERIAL') THEN
856: IF l_debug_level > 0 THEN
857: oe_debug_pub.add( ' RETURN TYPE IS PO/ORDER/SERIAL' , 5 ) ;
853: oe_debug_pub.add( 'CREDIT_MEMO_TYPE_ID FROM INVOICE : '||X_CREDIT_MEMO_TYPE_ID , 5 ) ;
854: END IF;
855: ELSIF p_line_rec.return_context in ('PO', 'ORDER', 'SERIAL') THEN
856: IF l_debug_level > 0 THEN
857: oe_debug_pub.add( ' RETURN TYPE IS PO/ORDER/SERIAL' , 5 ) ;
858: END IF;
859: OE_DEBUG_PUB.DUMPDEBUG;
860: -- Get cust_trx_type_id from line type
861: --Bug2293944 Get information from the reference line or reference order.
855: ELSIF p_line_rec.return_context in ('PO', 'ORDER', 'SERIAL') THEN
856: IF l_debug_level > 0 THEN
857: oe_debug_pub.add( ' RETURN TYPE IS PO/ORDER/SERIAL' , 5 ) ;
858: END IF;
859: OE_DEBUG_PUB.DUMPDEBUG;
860: -- Get cust_trx_type_id from line type
861: --Bug2293944 Get information from the reference line or reference order.
862: SELECT NVL(lt.cust_trx_type_id, 0)
863: INTO l_inv_cust_trx_type_id
865: WHERE lt.line_type_id = (SELECT line_type_id
866: FROM oe_order_lines_all /* MOAC SQL CHANGE */
867: WHERE line_id = p_line_rec.reference_line_id);
868: IF l_debug_level > 0 THEN
869: oe_debug_pub.add( 'CUSTOMER TRANSACTION TYPE ID FROM REFERENCE LINE TYPE : '||L_INV_CUST_TRX_TYPE_ID , 5 ) ;
870: END IF;
871: IF l_inv_cust_trx_type_id = 0 THEN
872: SELECT NVL(ot.cust_trx_type_id,0)
873: INTO l_inv_cust_trx_type_id
878: FROM oe_order_lines_all /* MOAC SQL CHANGE */
879: WHERE line_id = p_line_rec.reference_line_id);
880: END IF;
881: IF l_debug_level > 0 THEN
882: oe_debug_pub.add( 'CUSTOMER TRANSACTION TYPE ID FROM REFERENCE ORDER TYPE : '||L_INV_CUST_TRX_TYPE_ID , 5 ) ;
883: END IF;
884: ELSE
885: IF l_debug_level > 0 THEN
886: oe_debug_pub.add( 'RETURN TYPE : '||P_LINE_REC.RETURN_CONTEXT , 5 ) ;
882: oe_debug_pub.add( 'CUSTOMER TRANSACTION TYPE ID FROM REFERENCE ORDER TYPE : '||L_INV_CUST_TRX_TYPE_ID , 5 ) ;
883: END IF;
884: ELSE
885: IF l_debug_level > 0 THEN
886: oe_debug_pub.add( 'RETURN TYPE : '||P_LINE_REC.RETURN_CONTEXT , 5 ) ;
887: END IF;
888: x_credit_memo_type_id:= 0;
889: x_credit_creation_sign := NULL;
890: END IF;
909: FROM oe_line_types_v lt
910: WHERE lt.line_type_id = p_line_rec.line_type_id; */
911: -- end bug 4200055
912: IF l_debug_level > 0 THEN
913: oe_debug_pub.add( 'CUSTOMER TRANSACTION TYPE ID FROM LINE TYPE : '||L_INV_CUST_TRX_TYPE_ID , 5 ) ;
914: END IF;
915: IF l_inv_cust_trx_type_id = 0 THEN
916: -- Get cust_trx_type_id from order type
917: SELECT NVL(ot.cust_trx_type_id, 0)
921: WHERE ot.order_type_id = oh.order_type_id
922: AND oh.header_id = p_line_rec.header_id;
923: END IF;
924: IF l_debug_level > 0 THEN
925: oe_debug_pub.add( 'CUSTOMER TRANSACTION TYPE ID FROM ORDER TYPE : '||L_INV_CUST_TRX_TYPE_ID , 5 ) ;
926: END IF;
927: END IF;
928: IF l_inv_cust_trx_type_id <> 0 THEN -- cust_trx_type_id exists at line/order type
929: IF l_debug_level > 0 THEN
926: END IF;
927: END IF;
928: IF l_inv_cust_trx_type_id <> 0 THEN -- cust_trx_type_id exists at line/order type
929: IF l_debug_level > 0 THEN
930: oe_debug_pub.add( 'CUST_TRX_TYPE_ID FROM LINE/ORDER TYPE: '||L_INV_CUST_TRX_TYPE_ID , 5 ) ;
931: END IF;
932: -- Introducing this pl/sql block #3349781
933: BEGIN
934: SELECT NVL(ctt.credit_memo_type_id, 0),
952: 7, -3113,
953: 8, -3113,
954: NVL(p_line_rec.org_id, -3114)); Commented for the bug 3027150 */
955: EXCEPTION WHEN NO_DATA_FOUND THEN
956: OE_DEBUG_PUB.add('Unable to derive credit memo type id from order line, verify setup',1);
957: x_credit_memo_type_id:= 0;
958: x_credit_creation_sign := NULL;
959: NULL;
960: END;
959: NULL;
960: END;
961:
962: IF l_debug_level > 0 THEN
963: oe_debug_pub.add( 'CREDIT MEMO TYPE : '||X_CREDIT_MEMO_TYPE_ID , 5 ) ;
964: END IF;
965: -- cust_trx_type_id 1,2,7,8 (for Invoice, Credit Memo, PA Invoice, PA Credit memo) are seeded with org_id -3113
966: END IF;
967: IF l_inv_cust_trx_type_id = 0 OR x_credit_memo_type_id = 0 THEN
966: END IF;
967: IF l_inv_cust_trx_type_id = 0 OR x_credit_memo_type_id = 0 THEN
968: -- no cust_trx_type_id at line/order type
969: IF l_debug_level > 0 THEN
970: oe_debug_pub.add( 'NO CUST TRX TYPE AT ORDER OR LINE TYPE LEVEL' , 5 ) ;
971: END IF;
972: x_credit_memo_type_id := 0;
973: x_credit_creation_sign := NULL;
974: END IF;
973: x_credit_creation_sign := NULL;
974: END IF;
975:
976: IF l_debug_level > 0 THEN
977: oe_debug_pub.add( 'CREDIT MEMO TYPE ID : '||X_CREDIT_MEMO_TYPE_ID , 5 ) ;
978: END IF;
979: IF l_debug_level > 0 THEN
980: oe_debug_pub.add( 'CREATION_SIGN : '||X_CREDIT_CREATION_SIGN , 5 ) ;
981: oe_debug_pub.add( ' EXITING RETURN_CREDIT_INFO ( ) ' , 1 ) ;
976: IF l_debug_level > 0 THEN
977: oe_debug_pub.add( 'CREDIT MEMO TYPE ID : '||X_CREDIT_MEMO_TYPE_ID , 5 ) ;
978: END IF;
979: IF l_debug_level > 0 THEN
980: oe_debug_pub.add( 'CREATION_SIGN : '||X_CREDIT_CREATION_SIGN , 5 ) ;
981: oe_debug_pub.add( ' EXITING RETURN_CREDIT_INFO ( ) ' , 1 ) ;
982: END IF;
983: EXCEPTION
984: WHEN NO_DATA_FOUND THEN
977: oe_debug_pub.add( 'CREDIT MEMO TYPE ID : '||X_CREDIT_MEMO_TYPE_ID , 5 ) ;
978: END IF;
979: IF l_debug_level > 0 THEN
980: oe_debug_pub.add( 'CREATION_SIGN : '||X_CREDIT_CREATION_SIGN , 5 ) ;
981: oe_debug_pub.add( ' EXITING RETURN_CREDIT_INFO ( ) ' , 1 ) ;
982: END IF;
983: EXCEPTION
984: WHEN NO_DATA_FOUND THEN
985: IF l_debug_level > 0 THEN
982: END IF;
983: EXCEPTION
984: WHEN NO_DATA_FOUND THEN
985: IF l_debug_level > 0 THEN
986: oe_debug_pub.add( 'EXCEPTION. EXITING RETURN_CREDIT_INFO ( 1 ) '||SQLERRM , 1 ) ;
987: END IF;
988: x_credit_memo_type_id := 0;
989: x_credit_creation_sign := NULL;
990: WHEN TOO_MANY_ROWS THEN
988: x_credit_memo_type_id := 0;
989: x_credit_creation_sign := NULL;
990: WHEN TOO_MANY_ROWS THEN
991: IF l_debug_level > 0 THEN
992: oe_debug_pub.add( 'EXCEPTION. EXITING RETURN_CREDIT_INFO ( 2 ) '||SQLERRM , 1 ) ;
993: END IF;
994: x_credit_memo_type_id := 0;
995: x_credit_creation_sign := NULL;
996: WHEN OTHERS THEN
994: x_credit_memo_type_id := 0;
995: x_credit_creation_sign := NULL;
996: WHEN OTHERS THEN
997: IF l_debug_level > 0 THEN
998: oe_debug_pub.add( 'EXCEPTION. EXITING RETURN_CREDIT_INFO ( 3 ) '||SQLERRM , 1 ) ;
999: END IF;
1000: x_credit_memo_type_id := 0;
1001: x_credit_creation_sign := NULL;
1002: END Return_Credit_Info;
1006: , p_cust_trx_type_id IN NUMBER)
1007: RETURN VARCHAR2 IS
1008: l_creation_sign VARCHAR2(30):= NULL;
1009: --
1010: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1011: --
1012: BEGIN
1013: IF l_debug_level > 0 THEN
1014: oe_debug_pub.add( 'ENTERING GET_CREDIT_CREATION_SIGN' , 5 ) ;
1010: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1011: --
1012: BEGIN
1013: IF l_debug_level > 0 THEN
1014: oe_debug_pub.add( 'ENTERING GET_CREDIT_CREATION_SIGN' , 5 ) ;
1015: END IF;
1016: IF p_cust_trx_type_id IS NOT NULL AND p_cust_trx_type_id <> 0 THEN
1017: SELECT creation_sign
1018: INTO l_creation_sign
1019: FROM ra_cust_trx_types
1020: WHERE cust_trx_type_id = p_Cust_Trx_Type_Id;
1021: END IF;
1022: IF l_debug_level > 0 THEN
1023: oe_debug_pub.add( 'CREATION_SIGN: '||L_CREATION_SIGN ) ;
1024: oe_debug_pub.add( 'EXITING GET_CREDIT_CREATION_SIGN ( 1 ) '||' SIGN= '||L_CREATION_SIGN , 1 ) ;
1025: END IF;
1026: RETURN(l_creation_sign);
1027:
1020: WHERE cust_trx_type_id = p_Cust_Trx_Type_Id;
1021: END IF;
1022: IF l_debug_level > 0 THEN
1023: oe_debug_pub.add( 'CREATION_SIGN: '||L_CREATION_SIGN ) ;
1024: oe_debug_pub.add( 'EXITING GET_CREDIT_CREATION_SIGN ( 1 ) '||' SIGN= '||L_CREATION_SIGN , 1 ) ;
1025: END IF;
1026: RETURN(l_creation_sign);
1027:
1028: EXCEPTION
1027:
1028: EXCEPTION
1029: WHEN OTHERS THEN
1030: IF l_debug_level > 0 THEN
1031: oe_debug_pub.add( 'EXCEPTION. EXITING GET_CREDIT_CREATION_SIGN ( 1 ) '||SQLERRM , 1 ) ;
1032: END IF;
1033: RETURN(NULL);
1034: END Get_Credit_Creation_Sign;
1035:
1038: , x_commitment_applied OUT NOCOPY NUMBER
1039: , x_commitment_interfaced OUT NOCOPY NUMBER)
1040: IS
1041: --
1042: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1043: --
1044: BEGIN
1045: IF l_debug_level > 0 THEN
1046: oe_debug_pub.add( 'ENTERING GET_COMMITMENT_INFO' , 5 ) ;
1042: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1043: --
1044: BEGIN
1045: IF l_debug_level > 0 THEN
1046: oe_debug_pub.add( 'ENTERING GET_COMMITMENT_INFO' , 5 ) ;
1047: END IF;
1048: IF p_line_rec.commitment_id IS NOT NULL THEN
1049: --serla begin
1050: IF OE_PrePayment_UTIL.IS_MULTIPLE_PAYMENTS_ENABLED THEN
1069: END IF;
1070: --serla end
1071: END IF;
1072: IF l_debug_level > 0 THEN
1073: oe_debug_pub.add( ' COMMITMENT APPLIED : '||X_COMMITMENT_APPLIED , 1 ) ;
1074: oe_debug_pub.add( ' COMMITMENT INTERFACED :'||X_COMMITMENT_INTERFACED , 1 ) ;
1075: END IF;
1076: EXCEPTION
1077: WHEN OTHERS THEN
1070: --serla end
1071: END IF;
1072: IF l_debug_level > 0 THEN
1073: oe_debug_pub.add( ' COMMITMENT APPLIED : '||X_COMMITMENT_APPLIED , 1 ) ;
1074: oe_debug_pub.add( ' COMMITMENT INTERFACED :'||X_COMMITMENT_INTERFACED , 1 ) ;
1075: END IF;
1076: EXCEPTION
1077: WHEN OTHERS THEN
1078: IF l_debug_level > 0 THEN
1075: END IF;
1076: EXCEPTION
1077: WHEN OTHERS THEN
1078: IF l_debug_level > 0 THEN
1079: oe_debug_pub.add( 'EXCEPTION. EXITING GET_COMMITMENT_INFO ( 1 ) '||SQLERRM , 1 ) ;
1080: END IF;
1081: x_commitment_applied := NULL;
1082: x_commitment_interfaced := NULL;
1083: END Get_Commitment_Info;
1087: , x_item_description OUT NOCOPY VARCHAR2
1088: ) IS
1089: l_organization_id NUMBER := oe_sys_parameters.value('MASTER_ORGANIZATION_ID', p_line_rec.org_id);
1090: --
1091: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1092: --
1093: l_item_description VARCHAR2(240) := null ;
1094: BEGIN
1095: IF l_debug_level > 0 THEN
1092: --
1093: l_item_description VARCHAR2(240) := null ;
1094: BEGIN
1095: IF l_debug_level > 0 THEN
1096: oe_debug_pub.add( ' ENTERING GET_ITEM_DESCRIPTION ( ) ' , 5 ) ;
1097: oe_debug_pub.add( ' Item Identifier Type :'||p_line_rec.item_identifier_type);
1098: oe_debug_pub.add('Inventory Item ID '||p_line_rec.inventory_item_id,5);
1099: oe_debug_pub.add('Organization ID '||l_organization_ID,5);
1100: oe_debug_pub.add('Ordered Item ID '||p_line_rec.ordered_item_id);
1093: l_item_description VARCHAR2(240) := null ;
1094: BEGIN
1095: IF l_debug_level > 0 THEN
1096: oe_debug_pub.add( ' ENTERING GET_ITEM_DESCRIPTION ( ) ' , 5 ) ;
1097: oe_debug_pub.add( ' Item Identifier Type :'||p_line_rec.item_identifier_type);
1098: oe_debug_pub.add('Inventory Item ID '||p_line_rec.inventory_item_id,5);
1099: oe_debug_pub.add('Organization ID '||l_organization_ID,5);
1100: oe_debug_pub.add('Ordered Item ID '||p_line_rec.ordered_item_id);
1101: END IF;
1094: BEGIN
1095: IF l_debug_level > 0 THEN
1096: oe_debug_pub.add( ' ENTERING GET_ITEM_DESCRIPTION ( ) ' , 5 ) ;
1097: oe_debug_pub.add( ' Item Identifier Type :'||p_line_rec.item_identifier_type);
1098: oe_debug_pub.add('Inventory Item ID '||p_line_rec.inventory_item_id,5);
1099: oe_debug_pub.add('Organization ID '||l_organization_ID,5);
1100: oe_debug_pub.add('Ordered Item ID '||p_line_rec.ordered_item_id);
1101: END IF;
1102: IF nvl(p_line_rec.item_identifier_type,'INT') = 'INT' THEN -- Bug #3684306
1095: IF l_debug_level > 0 THEN
1096: oe_debug_pub.add( ' ENTERING GET_ITEM_DESCRIPTION ( ) ' , 5 ) ;
1097: oe_debug_pub.add( ' Item Identifier Type :'||p_line_rec.item_identifier_type);
1098: oe_debug_pub.add('Inventory Item ID '||p_line_rec.inventory_item_id,5);
1099: oe_debug_pub.add('Organization ID '||l_organization_ID,5);
1100: oe_debug_pub.add('Ordered Item ID '||p_line_rec.ordered_item_id);
1101: END IF;
1102: IF nvl(p_line_rec.item_identifier_type,'INT') = 'INT' THEN -- Bug #3684306
1103: SELECT description
1096: oe_debug_pub.add( ' ENTERING GET_ITEM_DESCRIPTION ( ) ' , 5 ) ;
1097: oe_debug_pub.add( ' Item Identifier Type :'||p_line_rec.item_identifier_type);
1098: oe_debug_pub.add('Inventory Item ID '||p_line_rec.inventory_item_id,5);
1099: oe_debug_pub.add('Organization ID '||l_organization_ID,5);
1100: oe_debug_pub.add('Ordered Item ID '||p_line_rec.ordered_item_id);
1101: END IF;
1102: IF nvl(p_line_rec.item_identifier_type,'INT') = 'INT' THEN -- Bug #3684306
1103: SELECT description
1104: INTO x_item_description
1144: AND items.cross_reference = p_line_rec.ordered_item
1145: AND ROWNUM = 1; -- Bug3333235
1146: END IF;
1147: IF l_debug_level > 0 THEN
1148: oe_debug_pub.add( 'ITEM_DESCRIPTION : '||X_ITEM_DESCRIPTION ) ;
1149: oe_debug_pub.add( ' EXITING GET_ITEM_DESCRIPTION: '||X_ITEM_DESCRIPTION , 1 ) ;
1150: END IF;
1151: EXCEPTION
1152: WHEN NO_DATA_FOUND THEN --added for bug 4191624
1145: AND ROWNUM = 1; -- Bug3333235
1146: END IF;
1147: IF l_debug_level > 0 THEN
1148: oe_debug_pub.add( 'ITEM_DESCRIPTION : '||X_ITEM_DESCRIPTION ) ;
1149: oe_debug_pub.add( ' EXITING GET_ITEM_DESCRIPTION: '||X_ITEM_DESCRIPTION , 1 ) ;
1150: END IF;
1151: EXCEPTION
1152: WHEN NO_DATA_FOUND THEN --added for bug 4191624
1153: IF l_debug_level > 0 THEN
1150: END IF;
1151: EXCEPTION
1152: WHEN NO_DATA_FOUND THEN --added for bug 4191624
1153: IF l_debug_level > 0 THEN
1154: oe_debug_pub.add('When no data found then get desc from system items '||SQLERRM,1);
1155: END IF;
1156: SELECT sitems.description
1157: INTO x_item_description
1158: FROM mtl_system_items_vl sitems
1159: WHERE sitems.inventory_item_id = p_line_rec.inventory_item_id
1160: and sitems.organization_id = l_organization_id ;
1161: WHEN OTHERS THEN
1162: IF l_debug_level > 0 THEN
1163: oe_debug_pub.add( 'EXCEPTION. GET ITEM DESCRIPTION '||SQLERRM , 1 ) ;
1164: END IF;
1165: NULL;
1166: END Get_Item_Description;
1167:
1186: /*Bug3261460-end*/
1187:
1188: l_organization_id NUMBER := oe_sys_parameters.value('MASTER_ORGANIZATION_ID', p_line_rec.org_id);
1189: --
1190: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1191: --
1192: BEGIN
1193: IF l_debug_level > 0 THEN
1194: oe_debug_pub.add( ' ENTERING GET SERVICE ITEM DESCRIPTION ( ) ' , 5 ) ;
1190: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1191: --
1192: BEGIN
1193: IF l_debug_level > 0 THEN
1194: oe_debug_pub.add( ' ENTERING GET SERVICE ITEM DESCRIPTION ( ) ' , 5 ) ;
1195: END IF;
1196: IF p_line_rec.item_type_code = 'SERVICE' AND
1197: p_line_rec.service_reference_type_code='CUSTOMER_PRODUCT' AND
1198: p_line_rec.service_reference_line_id IS NOT NULL THEN
1196: IF p_line_rec.item_type_code = 'SERVICE' AND
1197: p_line_rec.service_reference_type_code='CUSTOMER_PRODUCT' AND
1198: p_line_rec.service_reference_line_id IS NOT NULL THEN
1199: IF l_debug_level > 0 THEN
1200: oe_debug_pub.add( 'REFERENCED BY CUSTOMER PRODUCT' , 5 ) ;
1201: END IF;
1202: /* Commenting for bug# 5032978
1203: OE_SERVICE_UTIL.Get_Cust_Product_Line_Id
1204: ( x_return_status => l_return_status
1207: , x_cust_product_line_id => l_order_line_id
1208: );
1209: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1210: IF l_debug_level > 0 THEN
1211: oe_debug_pub.add( 'SERVICE LINE ID IS : ' || L_ORDER_LINE_ID , 5 ) ;
1212: END IF;
1213: l_service_reference_line_id := l_order_line_id;
1214: ELSE
1215: IF l_debug_level > 0 THEN
1212: END IF;
1213: l_service_reference_line_id := l_order_line_id;
1214: ELSE
1215: IF l_debug_level > 0 THEN
1216: oe_debug_pub.add( 'NOT ABLE TO RETRIEVE CUST PRODUCT LINE ID '||SQLERRM , 1 ) ;
1217: END IF;
1218: RAISE NO_DATA_FOUND;
1219: END IF;
1220: end commenting for bug# 5032978 */
1234: where line_id = l_service_reference_line_id;
1235: EXCEPTION
1236: WHEN NO_DATA_FOUND THEN
1237: IF l_debug_level > 0 THEN
1238: oe_debug_pub.add( 'NOT ABLE TO GET SERVICE LINE DETAILS', 1);
1239: END IF;
1240: l_item_identifier_type := NULL;
1241: l_inventory_item_id := NULL;
1242: l_organization_id := NULL;
1241: l_inventory_item_id := NULL;
1242: l_organization_id := NULL;
1243: END;
1244: l_organization_id := oe_sys_parameters.value('MASTER_ORGANIZATION_ID', l_org_id);
1245: oe_debug_pub.add('Executed the first sql',1);
1246: BEGIN -- added for bug 4237123
1247: IF nvl(l_item_identifier_type,'INT') = 'INT' THEN -- Bug #3684306
1248: oe_debug_pub.add('Item identifier type is INT',1);
1249: BEGIN
1244: l_organization_id := oe_sys_parameters.value('MASTER_ORGANIZATION_ID', l_org_id);
1245: oe_debug_pub.add('Executed the first sql',1);
1246: BEGIN -- added for bug 4237123
1247: IF nvl(l_item_identifier_type,'INT') = 'INT' THEN -- Bug #3684306
1248: oe_debug_pub.add('Item identifier type is INT',1);
1249: BEGIN
1250: SELECT description
1251: INTO l_item_serviced_desc
1252: FROM mtl_system_items_vl
1254: AND organization_id = l_organization_id;
1255: EXCEPTION
1256: WHEN NO_DATA_FOUND THEN
1257: IF l_debug_level > 0 THEN
1258: oe_debug_pub.add( 'NO DATA FOUND IN SERVICE ITEM DESCRIPTION');
1259: END IF;
1260: l_item_serviced_desc := NULL;
1261: END;
1262: ELSIF nvl(l_item_identifier_type,'INT') = 'CUST' THEN -- Bug #3684306
1259: END IF;
1260: l_item_serviced_desc := NULL;
1261: END;
1262: ELSIF nvl(l_item_identifier_type,'INT') = 'CUST' THEN -- Bug #3684306
1263: oe_debug_pub.add('Item Identifier typs is CUST',1);
1264: -- changes for bug 4237123
1265: /*SELECT nvl(citems.customer_item_desc, sitems.description)
1266: INTO l_item_serviced_desc
1267: FROM mtl_customer_items citems
1284: WHERE sitems.inventory_item_id = l_inventory_item_id
1285: and sitems.organization_id = l_organization_id ;
1286: end if ;
1287: ELSE
1288: oe_debug_pub.add('In else part of item identifier type',1);
1289: SELECT nvl(items.description, sitems.description)
1290: INTO l_item_serviced_desc
1291: FROM mtl_cross_reference_types types
1292: , mtl_cross_references items
1298: AND items.cross_reference_type = l_item_identifier_type
1299: AND items.cross_reference = l_ordered_item
1300: AND ROWNUM = 1; -- added for Bug 7583908
1301: END IF;
1302: OE_DEBUG_PUB.ADD('Item_Description of serviced item: '||l_item_serviced_desc);
1303: EXCEPTION --aded for bug 4237123
1304: WHEN NO_DATA_FOUND THEN
1305: IF l_debug_level > 0 THEN
1306: oe_debug_pub.add('When no data found then get desc from system items '||SQLERRM,1);
1302: OE_DEBUG_PUB.ADD('Item_Description of serviced item: '||l_item_serviced_desc);
1303: EXCEPTION --aded for bug 4237123
1304: WHEN NO_DATA_FOUND THEN
1305: IF l_debug_level > 0 THEN
1306: oe_debug_pub.add('When no data found then get desc from system items '||SQLERRM,1);
1307: END IF;
1308: SELECT sitems.description
1309: INTO l_item_serviced_desc
1310: FROM mtl_system_items_vl sitems
1317: ||' '||substr(l_item_serviced_desc,1,90)||': '
1318: ||p_line_rec.service_start_date||' - '||p_line_rec.service_end_date ;
1319:
1320: IF l_debug_level > 0 THEN
1321: oe_debug_pub.add( 'SERVICE ITEM_DESCRIPTION: '||X_ITEM_DESCRIPTION ) ;
1322: oe_debug_pub.add( ' EXITING GET_SERVICE_ITEM_DESCRIPTION: '||X_ITEM_DESCRIPTION , 1 ) ;
1323: END IF;
1324: EXCEPTION
1325: WHEN OTHERS THEN
1318: ||p_line_rec.service_start_date||' - '||p_line_rec.service_end_date ;
1319:
1320: IF l_debug_level > 0 THEN
1321: oe_debug_pub.add( 'SERVICE ITEM_DESCRIPTION: '||X_ITEM_DESCRIPTION ) ;
1322: oe_debug_pub.add( ' EXITING GET_SERVICE_ITEM_DESCRIPTION: '||X_ITEM_DESCRIPTION , 1 ) ;
1323: END IF;
1324: EXCEPTION
1325: WHEN OTHERS THEN
1326: IF l_debug_level > 0 THEN
1323: END IF;
1324: EXCEPTION
1325: WHEN OTHERS THEN
1326: IF l_debug_level > 0 THEN
1327: oe_debug_pub.add( 'EXCEPTION. GET SERVICE ITEM DESCRIPTION ( ) '||SQLERRM , 1 ) ;
1328: END IF;
1329: NULL;
1330: END Get_Service_Item_Description;
1331:
1334: RETURN VARCHAR2
1335: IS
1336: l_overship_invoice_basis VARCHAR2(30):= NULL;
1337: --
1338: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1339: --
1340: BEGIN
1341: /*
1342: Get l_overship_invoice_basis from control set
1345: 3. Customer
1346: 4.Profile
1347: */
1348: IF l_debug_level > 0 THEN
1349: oe_debug_pub.add( ' ENTERING GET_OVERSHIP_INVOICE_BASIS' , 5 ) ;
1350: END IF;
1351: IF p_line_rec.ship_to_org_id IS NOT NULL THEN
1352: SELECT invoice_quantity_rule
1353: INTO l_overship_invoice_basis
1354: FROM hz_cust_site_uses
1355: WHERE site_use_id = p_line_rec.ship_to_org_id
1356: AND site_use_code = 'SHIP_TO';
1357: IF l_debug_level > 0 THEN
1358: oe_debug_pub.add( 'OVERSHIP_INVOICE_BASIS ( 2 ) : '||L_OVERSHIP_INVOICE_BASIS , 5 ) ;
1359: END IF;
1360: END IF;
1361: IF l_overship_invoice_basis IS NULL THEN
1362: IF p_line_rec.sold_to_org_id IS NOT NULL THEN
1364: INTO l_overship_invoice_basis
1365: FROM hz_cust_accounts
1366: WHERE cust_account_id = p_line_rec.sold_to_org_id;
1367: IF l_debug_level > 0 THEN
1368: oe_debug_pub.add( 'OVERSHIP_INVOICE_BASIS ( 1 ) : '||L_OVERSHIP_INVOICE_BASIS , 5 ) ;
1369: END IF;
1370: END IF;
1371: END IF;
1372: IF l_overship_invoice_basis IS NULL THEN
1371: END IF;
1372: IF l_overship_invoice_basis IS NULL THEN
1373: l_overship_invoice_basis := oe_sys_parameters.value('OE_OVERSHIP_INVOICE_BASIS',p_line_rec.org_id); --moac
1374: IF l_debug_level > 0 THEN
1375: oe_debug_pub.add( 'OVERSHIP_INVOICE_BASIS ( 3 ) : '||L_OVERSHIP_INVOICE_BASIS , 5 ) ;
1376: END IF;
1377: END IF;
1378: IF l_debug_level > 0 THEN
1379: oe_debug_pub.add( 'OVERSHIP_INVOICE_BASIS: '||L_OVERSHIP_INVOICE_BASIS , 5 ) ;
1375: oe_debug_pub.add( 'OVERSHIP_INVOICE_BASIS ( 3 ) : '||L_OVERSHIP_INVOICE_BASIS , 5 ) ;
1376: END IF;
1377: END IF;
1378: IF l_debug_level > 0 THEN
1379: oe_debug_pub.add( 'OVERSHIP_INVOICE_BASIS: '||L_OVERSHIP_INVOICE_BASIS , 5 ) ;
1380: oe_debug_pub.add( ' EXITING GET_OVERSHIP_INVOICE_BASIS: '||L_OVERSHIP_INVOICE_BASIS , 5 ) ;
1381: END IF;
1382: RETURN l_overship_invoice_basis;
1383:
1376: END IF;
1377: END IF;
1378: IF l_debug_level > 0 THEN
1379: oe_debug_pub.add( 'OVERSHIP_INVOICE_BASIS: '||L_OVERSHIP_INVOICE_BASIS , 5 ) ;
1380: oe_debug_pub.add( ' EXITING GET_OVERSHIP_INVOICE_BASIS: '||L_OVERSHIP_INVOICE_BASIS , 5 ) ;
1381: END IF;
1382: RETURN l_overship_invoice_basis;
1383:
1384: END Get_Overship_Invoice_Basis;
1391: IS
1392: l_invoice_source_id NUMBER := NULL;
1393: l_invoice_source VARCHAR2(50):= NULL;
1394: --
1395: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1396: --
1397: BEGIN
1398: IF l_debug_level > 0 THEN
1399: oe_debug_pub.add( ' ENTERING GET_INVOICE_SOURCE' , 5 ) ;
1395: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1396: --
1397: BEGIN
1398: IF l_debug_level > 0 THEN
1399: oe_debug_pub.add( ' ENTERING GET_INVOICE_SOURCE' , 5 ) ;
1400: END IF;
1401: IF FND_PROFILE.VALUE('WSH_INVOICE_NUMBERING_METHOD')= 'D' AND
1402: (Return_Line(p_line_rec) OR NOT Shipping_Info_Available(p_line_rec) OR
1403: (p_interface_line_rec.interface_line_attribute3 = '0')) THEN
1415: INTO l_invoice_source
1416: FROM ra_batch_sources
1417: WHERE batch_source_id = l_invoice_source_id;
1418: IF l_debug_level > 0 THEN
1419: oe_debug_pub.add( 'INVOICE_SOURCE IS ( 1 ) : '||L_INVOICE_SOURCE , 5 ) ;
1420: END IF;
1421: RETURN l_invoice_source;
1422: ELSE
1423: l_invoice_source := oe_sys_parameters.value('OE_NON_DELIVERY_INVOICE_SOURCE',p_line_rec.org_id); --moac
1421: RETURN l_invoice_source;
1422: ELSE
1423: l_invoice_source := oe_sys_parameters.value('OE_NON_DELIVERY_INVOICE_SOURCE',p_line_rec.org_id); --moac
1424: IF l_debug_level > 0 THEN
1425: oe_debug_pub.add( 'INVOICE_SOURCE IS ( 2 ) : '||L_INVOICE_SOURCE , 5 ) ;
1426: END IF;
1427: RETURN l_invoice_source;
1428: END IF;
1429: ELSE -- Invoice numbering method is 'Automatic' OR 'delivery' with shipping information available
1441: INTO l_invoice_source
1442: FROM ra_batch_sources
1443: WHERE batch_source_id = l_invoice_source_id;
1444: IF l_debug_level > 0 THEN
1445: oe_debug_pub.add( 'INVOICE SOURCE IS ( 3 ) : '||L_INVOICE_SOURCE , 5 ) ;
1446: END IF;
1447: RETURN l_invoice_source;
1448: ELSE
1449: l_invoice_source := oe_sys_parameters.value('OE_INVOICE_SOURCE',p_line_rec.org_id); --moac
1447: RETURN l_invoice_source;
1448: ELSE
1449: l_invoice_source := oe_sys_parameters.value('OE_INVOICE_SOURCE',p_line_rec.org_id); --moac
1450: IF l_debug_level > 0 THEN
1451: oe_debug_pub.add( 'INVOICE_SOURCE IS ( 4 ) : '||L_INVOICE_SOURCE , 5 ) ;
1452: END IF;
1453: RETURN l_invoice_source;
1454: END IF;
1455: END IF;
1455: END IF;
1456: EXCEPTION
1457: WHEN OTHERS THEN
1458: IF l_debug_level > 0 THEN
1459: oe_debug_pub.add( 'In Others of Function Get_Invoice_Source', 5);
1460: END IF;
1461: RETURN l_invoice_source;
1462: END Get_Invoice_Source;
1463:
1468: l_cust_trx_type_id NUMBER;
1469: l_creation_sign VARCHAR2(30);
1470: l_line_rec OE_Order_Pub.Line_Rec_Type;
1471: --
1472: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1473: --
1474: BEGIN
1475: IF l_debug_level > 0 THEN
1476: oe_debug_pub.add( ' ENTER GET_CUSTOMER_TRANSACTION_TYPE' , 5 ) ;
1472: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1473: --
1474: BEGIN
1475: IF l_debug_level > 0 THEN
1476: oe_debug_pub.add( ' ENTER GET_CUSTOMER_TRANSACTION_TYPE' , 5 ) ;
1477: END IF;
1478: IF l_debug_level > 0 THEN
1479: oe_debug_pub.add( 'Before the call to Rowtype_Rec_To_API_Rec ', 1);
1480: END IF;
1475: IF l_debug_level > 0 THEN
1476: oe_debug_pub.add( ' ENTER GET_CUSTOMER_TRANSACTION_TYPE' , 5 ) ;
1477: END IF;
1478: IF l_debug_level > 0 THEN
1479: oe_debug_pub.add( 'Before the call to Rowtype_Rec_To_API_Rec ', 1);
1480: END IF;
1481: OE_Line_Util_Ext.Rowtype_Rec_To_API_Rec(p_record,l_line_rec);
1482: IF l_debug_level > 0 THEN
1483: oe_debug_pub.add( 'After the call to Rowtype_Rec_To_API_Rec ', 1);
1479: oe_debug_pub.add( 'Before the call to Rowtype_Rec_To_API_Rec ', 1);
1480: END IF;
1481: OE_Line_Util_Ext.Rowtype_Rec_To_API_Rec(p_record,l_line_rec);
1482: IF l_debug_level > 0 THEN
1483: oe_debug_pub.add( 'After the call to Rowtype_Rec_To_API_Rec ', 1);
1484: END IF;
1485:
1486: l_cust_trx_type_id := Get_Customer_Transaction_Type(l_line_rec);
1487: RETURN(l_cust_trx_type_id);
1488:
1489: EXCEPTION
1490: WHEN OTHERS THEN
1491: IF l_debug_level > 0 THEN
1492: oe_debug_pub.add( 'EXCEPTION. EXITING GET_CUSTOMER_TRANSACTION_TYPE ( ) , '||SQLERRM , 1 ) ;
1493: END IF;
1494: return(0);
1495: END Get_Customer_Transaction_Type;
1496:
1500: l_inv_cust_trx_type_id NUMBER;
1501: l_cust_trx_type_id NUMBER;
1502: l_creation_sign VARCHAR2(30);
1503: --
1504: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1505: --
1506: BEGIN
1507: IF l_debug_level > 0 THEN
1508: oe_debug_pub.add( ' ENTER GET_CUSTOMER_TRANSACTION_TYPE' , 5 ) ;
1504: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1505: --
1506: BEGIN
1507: IF l_debug_level > 0 THEN
1508: oe_debug_pub.add( ' ENTER GET_CUSTOMER_TRANSACTION_TYPE' , 5 ) ;
1509: END IF;
1510:
1511: --use cache instead of SQL for bug 4200055
1512: IF ( p_line_rec.line_type_id is not null
1516: END IF ; -- end
1517:
1518: IF NOT Return_Line(p_line_rec) THEN -- Standard Order Line
1519: IF l_debug_level > 0 THEN
1520: oe_debug_pub.add( 'THIS IA A STANDARD ORDER LINE' , 5 ) ;
1521: END IF;
1522: --use cache instead of SQL for bug 4200055
1523: if (OE_Order_Cache.g_line_type_rec.line_type_id = p_line_rec.Line_Type_id ) then
1524: l_cust_trx_type_id := nvl(OE_Order_Cache.g_line_type_rec.cust_trx_type_id,0) ;
1530: FROM oe_line_types_v lt
1531: WHERE lt.line_type_id = p_line_rec.line_type_id; */
1532: -- end bug 4200055
1533: IF l_debug_level > 0 THEN
1534: oe_debug_pub.add( 'CUSTOMER TRANSACTION TYPE ID FROM LINE TYPE : '||L_CUST_TRX_TYPE_ID , 5 ) ;
1535: END IF;
1536: IF l_cust_trx_type_id = 0 THEN
1537: SELECT NVL(ot.cust_trx_type_id, 0)
1538: INTO l_cust_trx_type_id
1540: oe_order_headers_all oh /* MOAC SQL CHANGE */
1541: WHERE ot.order_type_id = oh.order_type_id
1542: AND oh.header_id = p_line_rec.header_id;
1543: IF l_debug_level > 0 THEN
1544: oe_debug_pub.add( 'CUSTOMER TRANSACTION TYPE ID FROM ORDER TYPE : '||L_CUST_TRX_TYPE_ID , 5 ) ;
1545: END IF;
1546: IF l_cust_trx_type_id = 0 THEN
1547: SELECT NVL(oe_sys_parameters.value('OE_INVOICE_TRANSACTION_TYPE_ID',p_line_rec.org_id), 0) --moac
1548: INTO l_cust_trx_type_id
1547: SELECT NVL(oe_sys_parameters.value('OE_INVOICE_TRANSACTION_TYPE_ID',p_line_rec.org_id), 0) --moac
1548: INTO l_cust_trx_type_id
1549: FROM DUAL;
1550: IF l_debug_level > 0 THEN
1551: oe_debug_pub.add( 'CUSTOMER TRANSACTION TYPE ID FROM PROFILE : '||L_CUST_TRX_TYPE_ID , 5 ) ;
1552: END IF;
1553: END IF;
1554: END IF;
1555: IF l_debug_level > 0 THEN
1552: END IF;
1553: END IF;
1554: END IF;
1555: IF l_debug_level > 0 THEN
1556: oe_debug_pub.add( 'GET CUSTOMER TRANSACTION TYPE ( 1 ) : '||L_CUST_TRX_TYPE_ID , 5 ) ;
1557: END IF;
1558: RETURN(l_cust_trx_type_id);
1559: ELSIF p_line_rec.reference_line_id IS NOT NULL THEN -- Referenced Return Line
1560: IF l_debug_level > 0 THEN
1557: END IF;
1558: RETURN(l_cust_trx_type_id);
1559: ELSIF p_line_rec.reference_line_id IS NOT NULL THEN -- Referenced Return Line
1560: IF l_debug_level > 0 THEN
1561: oe_debug_pub.add( 'THIS IA A REFERENCED RETURN LINE' , 5 ) ;
1562: END IF;
1563: -- Get from reference line (Ignore l_creation_sign value here)
1564: Return_Credit_Info(p_line_rec, l_cust_trx_type_id, l_creation_sign);
1565: IF l_cust_trx_type_id = 0 THEN -- no cust_trx_type_id at line/order type
1566: SELECT OE_SYS_PARAMETERS.Value('OE_CREDIT_TRANSACTION_TYPE_ID',p_line_rec.org_id) --moac
1567: INTO l_cust_trx_type_id
1568: FROM DUAL;
1569: IF l_debug_level > 0 THEN
1570: oe_debug_pub.add( ' CUSTOMER TRANSACTION TYPE ID FROM PROFILE ' , 5 ) ;
1571: END IF;
1572: END IF;
1573: IF l_debug_level > 0 THEN
1574: oe_debug_pub.add( 'CUSTOMER TRANSACTION TYPE ID ( 2 ) : '||L_CUST_TRX_TYPE_ID , 5 ) ;
1570: oe_debug_pub.add( ' CUSTOMER TRANSACTION TYPE ID FROM PROFILE ' , 5 ) ;
1571: END IF;
1572: END IF;
1573: IF l_debug_level > 0 THEN
1574: oe_debug_pub.add( 'CUSTOMER TRANSACTION TYPE ID ( 2 ) : '||L_CUST_TRX_TYPE_ID , 5 ) ;
1575: END IF;
1576: RETURN(l_cust_trx_type_id);
1577: ELSE -- Non Referenced Return Line
1578: IF l_debug_level > 0 THEN
1575: END IF;
1576: RETURN(l_cust_trx_type_id);
1577: ELSE -- Non Referenced Return Line
1578: IF l_debug_level > 0 THEN
1579: oe_debug_pub.add( 'THIS IS A NON-REFERENCED RETURN LINE ' , 5 ) ;
1580: END IF;
1581: --use cache instead of SQL for bug 4200055
1582: if (OE_Order_Cache.g_line_type_rec.line_type_id = p_line_rec.Line_Type_id ) then
1583: l_inv_cust_trx_type_id := nvl(OE_ORDER_CACHE.g_line_type_rec.cust_trx_type_id,0);
1589: FROM oe_line_types_v lt
1590: WHERE lt.line_type_id = p_line_rec.line_type_id; */
1591: -- end bug 4200055
1592: IF l_debug_level > 0 THEN
1593: oe_debug_pub.add( 'CUSTOMER TRANSACTION TYPE ID FROM LINE TYPE : '||L_INV_CUST_TRX_TYPE_ID , 5 ) ;
1594: END IF;
1595: --Bug2293944 Removed the decode statement.
1596: IF l_inv_cust_trx_type_id = 0 THEN
1597: SELECT NVL(ot.cust_trx_type_id,0)
1600: oe_order_headers_all oh /* MOAC SQL CHANGE */
1601: WHERE ot.order_type_id = oh.order_type_id
1602: AND oh.header_id = p_line_rec.header_id;
1603: IF l_debug_level > 0 THEN
1604: oe_debug_pub.add( 'CUSTOMER TRANSACTION TYPE ID FROM ORDER TYPE: '||L_INV_CUST_TRX_TYPE_ID , 5 ) ;
1605: END IF;
1606: END IF;
1607: IF l_inv_cust_trx_type_id <> 0 THEN
1608: IF l_debug_level > 0 THEN
1605: END IF;
1606: END IF;
1607: IF l_inv_cust_trx_type_id <> 0 THEN
1608: IF l_debug_level > 0 THEN
1609: oe_debug_pub.add( 'GET CREDIT MEMO TYPE ' , 5 ) ;
1610: END IF;
1611: SELECT nvl(ctt.credit_memo_type_id, 0)
1612: INTO l_cust_trx_type_id
1613: FROM ra_cust_trx_types_all ctt
1619: 7, -3113,
1620: 8, -3113,
1621: NVL(p_line_rec.org_id, -3114)); Commented for the bug 3027150 */
1622: IF l_debug_level > 0 THEN
1623: oe_debug_pub.add( 'CREDIT MEMO TYPE FROM LINE TYPE/ORDER TYPE OF CURRENT LINE'||L_CUST_TRX_TYPE_ID , 5 ) ;
1624: END IF;
1625: END IF;
1626: IF l_inv_cust_trx_type_id = 0 OR l_cust_trx_type_id = 0 THEN
1627: SELECT NVL(oe_sys_parameters.value('OE_CREDIT_TRANSACTION_TYPE_ID',p_line_rec.org_id), 0) --moac
1627: SELECT NVL(oe_sys_parameters.value('OE_CREDIT_TRANSACTION_TYPE_ID',p_line_rec.org_id), 0) --moac
1628: INTO l_cust_trx_type_id
1629: FROM DUAL;
1630: IF l_debug_level > 0 THEN
1631: oe_debug_pub.add( 'CUSTOMER TRANSACTION TYPE ID FROM PROFILE' , 5 ) ;
1632: END IF;
1633: END IF;
1634: IF l_debug_level > 0 THEN
1635: oe_debug_pub.add( 'CUSTOMER TRANSACTION TYPE ID ( 3 ) : '||L_CUST_TRX_TYPE_ID , 5 ) ;
1631: oe_debug_pub.add( 'CUSTOMER TRANSACTION TYPE ID FROM PROFILE' , 5 ) ;
1632: END IF;
1633: END IF;
1634: IF l_debug_level > 0 THEN
1635: oe_debug_pub.add( 'CUSTOMER TRANSACTION TYPE ID ( 3 ) : '||L_CUST_TRX_TYPE_ID , 5 ) ;
1636: END IF;
1637: RETURN(l_cust_trx_type_id);
1638: END IF;
1639: EXCEPTION
1638: END IF;
1639: EXCEPTION
1640: WHEN OTHERS THEN
1641: IF l_debug_level > 0 THEN
1642: oe_debug_pub.add( 'EXCEPTION. EXITING GET_CUSTOMER_TRANSACTION_TYPE ( ) , '||SQLERRM , 1 ) ;
1643: END IF;
1644: return(0);
1645: END Get_Customer_Transaction_Type;
1646:
1651: ) IS
1652: l_accting_credit_method_code VARCHAR2(30):= NULL;
1653: l_invcing_credit_method_code VARCHAR2(30):= NULL;
1654: --
1655: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1656: --
1657: BEGIN
1658: IF l_debug_level > 0 THEN
1659: oe_debug_pub.add( 'ENTERING GET_CREDIT_METHOD_CODE ( ) ' , 5 ) ;
1655: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1656: --
1657: BEGIN
1658: IF l_debug_level > 0 THEN
1659: oe_debug_pub.add( 'ENTERING GET_CREDIT_METHOD_CODE ( ) ' , 5 ) ;
1660: END IF;
1661: SELECT NVL(lt.accounting_credit_method_code,ot.accounting_credit_method_code),--Bug 5699774
1662: NVL(lt.invoicing_credit_method_code,ot.invoicing_credit_method_code) --Bug 5699774
1663: INTO l_accting_credit_method_code,
1670: AND oh.header_id = p_line_rec.header_id;
1671: x_accting_credit_method_code := l_accting_credit_method_code;
1672: x_invcing_credit_method_code := l_invcing_credit_method_code;
1673: IF l_debug_level > 0 THEN
1674: oe_debug_pub.add( 'ACCOUNTING CREDIT METHOD CODE : '||X_ACCTING_CREDIT_METHOD_CODE , 5 ) ;
1675: oe_debug_pub.add( 'INVOICING CREDIT METHOD CODE : '||X_INVCING_CREDIT_METHOD_CODE , 5 ) ;
1676: oe_debug_pub.add( 'EXITING GET_CREDIT_METHOD_CODE ' , 5 ) ;
1677: END IF;
1678: EXCEPTION
1671: x_accting_credit_method_code := l_accting_credit_method_code;
1672: x_invcing_credit_method_code := l_invcing_credit_method_code;
1673: IF l_debug_level > 0 THEN
1674: oe_debug_pub.add( 'ACCOUNTING CREDIT METHOD CODE : '||X_ACCTING_CREDIT_METHOD_CODE , 5 ) ;
1675: oe_debug_pub.add( 'INVOICING CREDIT METHOD CODE : '||X_INVCING_CREDIT_METHOD_CODE , 5 ) ;
1676: oe_debug_pub.add( 'EXITING GET_CREDIT_METHOD_CODE ' , 5 ) ;
1677: END IF;
1678: EXCEPTION
1679: WHEN OTHERS THEN
1672: x_invcing_credit_method_code := l_invcing_credit_method_code;
1673: IF l_debug_level > 0 THEN
1674: oe_debug_pub.add( 'ACCOUNTING CREDIT METHOD CODE : '||X_ACCTING_CREDIT_METHOD_CODE , 5 ) ;
1675: oe_debug_pub.add( 'INVOICING CREDIT METHOD CODE : '||X_INVCING_CREDIT_METHOD_CODE , 5 ) ;
1676: oe_debug_pub.add( 'EXITING GET_CREDIT_METHOD_CODE ' , 5 ) ;
1677: END IF;
1678: EXCEPTION
1679: WHEN OTHERS THEN
1680: IF l_debug_level > 0 THEN
1677: END IF;
1678: EXCEPTION
1679: WHEN OTHERS THEN
1680: IF l_debug_level > 0 THEN
1681: oe_debug_pub.add( 'EXCEPTION. EXITING GET_CREDIT_METHOD_CODE ( ) '||SQLERRM , 1 ) ;
1682: END IF;
1683: x_accting_credit_method_code := 'LIFO';
1684: x_invcing_credit_method_code := 'LIFO';
1685: END Get_Credit_Method_Code;
1689: (p_line_rec IN OE_Order_Pub.Line_Rec_Type)
1690: RETURN BOOLEAN
1691: IS
1692: --
1693: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1694: --
1695: BEGIN
1696: IF p_line_rec.model_remnant_flag = 'Y' AND
1697: p_line_rec.item_type_code in ('MODEL', 'CLASS', 'OPTION', 'KIT', 'INCLUDED')
1700: p_line_rec.ato_line_id = p_line_rec.line_id ) OR
1701: p_line_rec.ato_line_id is NULL
1702: THEN
1703: IF l_debug_level > 0 THEN
1704: oe_debug_pub.add( 'THIS IS A REMNANT PTO ' , 5 ) ;
1705: END IF;
1706: RETURN TRUE;
1707: ELSE
1708: IF l_debug_level > 0 THEN
1705: END IF;
1706: RETURN TRUE;
1707: ELSE
1708: IF l_debug_level > 0 THEN
1709: oe_debug_pub.add( 'THIS IS NOT A REMNANT PTO ' , 5 ) ;
1710: END IF;
1711: RETURN FALSE;
1712: END IF;
1713: ELSE
1711: RETURN FALSE;
1712: END IF;
1713: ELSE
1714: IF l_debug_level > 0 THEN
1715: oe_debug_pub.add( 'THIS IS NOT REMNANT PTO ' , 5 ) ;
1716: END IF;
1717: RETURN FALSE;
1718: END IF;
1719: END Is_PTO;
1723: RETURN BOOLEAN
1724: IS
1725: l_item_type_code VARCHAR2(30);
1726: --
1727: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1728: --
1729: BEGIN
1730: SELECT item_type_code
1731: INTO l_item_type_code
1732: FROM OE_ORDER_LINES
1733: WHERE line_id = p_line_id;
1734: IF l_item_type_code = 'CLASS' THEN
1735: IF l_debug_level > 0 THEN
1736: oe_debug_pub.add( 'ITEM TYPE OF THIS LINE IS CLASS' , 5 ) ;
1737: END IF;
1738: RETURN TRUE;
1739: ELSE
1740: IF l_debug_level > 0 THEN
1737: END IF;
1738: RETURN TRUE;
1739: ELSE
1740: IF l_debug_level > 0 THEN
1741: oe_debug_pub.add( ' ITEM TYPE IS NOT CLASS' , 5 ) ;
1742: END IF;
1743: RETURN FALSE;
1744: END IF;
1745: EXCEPTION
1764: ORDER BY Line.inventory_item_id;
1765: /* the order by clause is important, do not remove!!! */
1766: I NUMBER := 1;
1767: --
1768: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1769: --
1770: BEGIN
1771: Open rfr_child;
1772: LOOP
1780: x_return_code := 'N';
1781: END IF;
1782: Close rfr_child;
1783: IF l_debug_level > 0 THEN
1784: oe_debug_pub.add( 'RFR CHILDREN , RETURN CODE IS '|| X_RETURN_CODE , 5 ) ;
1785: END IF;
1786: END RFR_Children;
1787:
1788: PROCEDURE RFR_Sibling
1808: order by Line.inventory_item_id;
1809: /* the order by clause is important, do not remove!!! */
1810: I NUMBER := 1;
1811: --
1812: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1813: --
1814: BEGIN
1815: Open rfr_sibling;
1816: LOOP
1825: x_return_code := 'N';
1826: END IF;
1827: Close rfr_sibling;
1828: IF l_debug_level > 0 THEN
1829: oe_debug_pub.add( 'RFR SIBLING , RETURN CODE IS '|| X_RETURN_CODE , 1 ) ;
1830: END IF;
1831: END RFR_Sibling;
1832:
1833: FUNCTION Is_RFR
1835: RETURN BOOLEAN
1836: IS
1837: l_rfr VARCHAR2(1) := 'N';
1838: --
1839: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1840: --
1841: BEGIN
1842: SELECT 'Y'
1843: INTO l_rfr
1849: AND bic.component_item_id = Line.inventory_item_id
1850: AND bic.required_for_revenue = 1;
1851: IF l_rfr = 'Y' THEN
1852: IF l_debug_level > 0 THEN
1853: oe_debug_pub.add( 'RFR RETURNING TRUE' , 5 ) ;
1854: END IF;
1855: RETURN TRUE;
1856: ELSE
1857: IF l_debug_level > 0 THEN
1854: END IF;
1855: RETURN TRUE;
1856: ELSE
1857: IF l_debug_level > 0 THEN
1858: oe_debug_pub.add( 'RFR: RETURNING FALSE' , 5 ) ;
1859: END IF;
1860: RETURN FALSE;
1861: END IF;
1862: EXCEPTION
1888: l_total_invoiced_qty NUMBER;
1889: l_overship_invoice_basis VARCHAR2(30);
1890: x_result_code VARCHAR2(240);
1891: --
1892: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1893: --
1894: BEGIN
1895: IF l_debug_level > 0 THEN
1896: oe_debug_pub.add( 'RFR: IN SOMETHING_TO_INVOICE' , 5 ) ;
1892: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1893: --
1894: BEGIN
1895: IF l_debug_level > 0 THEN
1896: oe_debug_pub.add( 'RFR: IN SOMETHING_TO_INVOICE' , 5 ) ;
1897: END IF;
1898: IF (nvl(p_line_rec.ordered_quantity, 0) > nvl(p_line_rec.fulfilled_quantity, 0)) THEN
1899: qty_to_invoice := nvl(p_line_rec.ordered_quantity,0);
1900: x_qty_to_invoice := nvl(p_line_rec.ordered_quantity,0);
1919: Into max_to_invoice
1920: From dual;
1921: IF max_to_invoice < qty_to_invoice THEN
1922: IF l_debug_level > 0 THEN
1923: oe_debug_pub.add( 'RFR: MAX_TO_INVOICE < QTY_TO_INVOICE' , 5 ) ;
1924: END IF;
1925: qty_to_invoice := max_to_invoice;
1926: END IF;
1927: END IF; --if this is a new inventory_item_id
1940: END IF;
1941: END IF;
1942: END IF;
1943: IF l_debug_level > 0 THEN
1944: oe_debug_pub.add( 'RFR: FINISH CHECK CHILDREN' , 5 ) ;
1945: END IF;
1946: IF IS_CLASS(p_line_rec.link_to_line_id) THEN
1947: RFR_Sibling(p_line_rec.link_to_line_id,
1948: p_line_rec.inventory_item_id,
1975: END IF; -- new inventory_item_id
1976: END LOOP;
1977: IF l_total_invoiced_qty < qty_to_invoice THEN
1978: IF l_debug_level > 0 THEN
1979: oe_debug_pub.add( 'RFR: FULFILL < QTY_TO_INVOICE' , 4 ) ;
1980: END IF;
1981: IF (nvl(p_line_rec.fulfilled_quantity, 0) - nvl(p_line_rec.invoiced_quantity, 0)) <= (qty_to_invoice - l_total_invoiced_qty)
1982: AND (nvl(p_line_rec.fulfilled_quantity, 0) - nvl(p_line_rec.invoiced_quantity, 0) < x_qty_to_invoice) THEN
1983: x_qty_to_invoice := nvl(p_line_rec.fulfilled_quantity, 0) - nvl(p_line_rec.invoiced_quantity, 0);
2013: END IF;
2014: END IF;
2015: IF x_qty_to_invoice > 0 THEN
2016: IF l_debug_level > 0 THEN
2017: oe_debug_pub.add( ' SOMETHING_TO_INVOICE: RETURNING TRUE' , 5 ) ;
2018: END IF;
2019: RETURN TRUE;
2020: ELSE
2021: IF l_debug_level > 0 THEN
2018: END IF;
2019: RETURN TRUE;
2020: ELSE
2021: IF l_debug_level > 0 THEN
2022: oe_debug_pub.add( ' SOMETHING_TO_INVOICE: RETURNING FALSE' , 5 ) ;
2023: END IF;
2024: RETURN FALSE;
2025: END IF;
2026: END Something_To_Invoice;
2041: l_set_type VARCHAR2(30);
2042: -- changes for bug 3728587 end
2043:
2044: --
2045: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2046: --
2047: BEGIN
2048: -- This may subject to change based on fulfillment design
2049: -- This may subject to change for required for revenue cases as there are
2053: --check if line is splitted or not
2054: if(p_line_rec.line_set_id is not null) then
2055: select set_type into l_set_type from oe_sets where set_id = p_line_rec.line_set_id;
2056: end if;
2057: oe_debug_pub.add('l_set_type = '||l_set_type, 5 ) ;
2058:
2059: if(l_set_type = 'SPLIT') then
2060: -- line is splitted
2061: -- get the total amounts
2069: end if;
2070: -- changes for bug 3728587 end;
2071:
2072: IF l_debug_level > 0 THEN
2073: oe_debug_pub.add( 'ENTER TO GET REGULAR QUANTITY TO INVOICE ' , 5 ) ;
2074: oe_debug_pub.add( 'FULFILLED QUANTITY = '|| TO_CHAR ( P_LINE_REC.FULFILLED_QUANTITY ) , 5 ) ;
2075: oe_debug_pub.add( 'SHIPPED QUANTITY = '|| TO_CHAR ( P_LINE_REC.SHIPPED_QUANTITY ) , 5 ) ;
2076: oe_debug_pub.add( 'ORDERED QUANTITY = '|| TO_CHAR ( P_LINE_REC.ORDERED_QUANTITY ) , 5 ) ;
2077: -- changes for bug 3728587 end;
2070: -- changes for bug 3728587 end;
2071:
2072: IF l_debug_level > 0 THEN
2073: oe_debug_pub.add( 'ENTER TO GET REGULAR QUANTITY TO INVOICE ' , 5 ) ;
2074: oe_debug_pub.add( 'FULFILLED QUANTITY = '|| TO_CHAR ( P_LINE_REC.FULFILLED_QUANTITY ) , 5 ) ;
2075: oe_debug_pub.add( 'SHIPPED QUANTITY = '|| TO_CHAR ( P_LINE_REC.SHIPPED_QUANTITY ) , 5 ) ;
2076: oe_debug_pub.add( 'ORDERED QUANTITY = '|| TO_CHAR ( P_LINE_REC.ORDERED_QUANTITY ) , 5 ) ;
2077: -- changes for bug 3728587 end;
2078: oe_debug_pub.add( 'UNSPLIT ORDERED QUANTITY = '|| TO_CHAR ( l_unsplit_ordered_qty ) , 5 ) ;
2071:
2072: IF l_debug_level > 0 THEN
2073: oe_debug_pub.add( 'ENTER TO GET REGULAR QUANTITY TO INVOICE ' , 5 ) ;
2074: oe_debug_pub.add( 'FULFILLED QUANTITY = '|| TO_CHAR ( P_LINE_REC.FULFILLED_QUANTITY ) , 5 ) ;
2075: oe_debug_pub.add( 'SHIPPED QUANTITY = '|| TO_CHAR ( P_LINE_REC.SHIPPED_QUANTITY ) , 5 ) ;
2076: oe_debug_pub.add( 'ORDERED QUANTITY = '|| TO_CHAR ( P_LINE_REC.ORDERED_QUANTITY ) , 5 ) ;
2077: -- changes for bug 3728587 end;
2078: oe_debug_pub.add( 'UNSPLIT ORDERED QUANTITY = '|| TO_CHAR ( l_unsplit_ordered_qty ) , 5 ) ;
2079: oe_debug_pub.add( 'UNSPLIT FULFILLED QUANTITY = '|| TO_CHAR ( l_unsplit_fulfilled_qty ) , 5 ) ;
2072: IF l_debug_level > 0 THEN
2073: oe_debug_pub.add( 'ENTER TO GET REGULAR QUANTITY TO INVOICE ' , 5 ) ;
2074: oe_debug_pub.add( 'FULFILLED QUANTITY = '|| TO_CHAR ( P_LINE_REC.FULFILLED_QUANTITY ) , 5 ) ;
2075: oe_debug_pub.add( 'SHIPPED QUANTITY = '|| TO_CHAR ( P_LINE_REC.SHIPPED_QUANTITY ) , 5 ) ;
2076: oe_debug_pub.add( 'ORDERED QUANTITY = '|| TO_CHAR ( P_LINE_REC.ORDERED_QUANTITY ) , 5 ) ;
2077: -- changes for bug 3728587 end;
2078: oe_debug_pub.add( 'UNSPLIT ORDERED QUANTITY = '|| TO_CHAR ( l_unsplit_ordered_qty ) , 5 ) ;
2079: oe_debug_pub.add( 'UNSPLIT FULFILLED QUANTITY = '|| TO_CHAR ( l_unsplit_fulfilled_qty ) , 5 ) ;
2080: oe_debug_pub.add( 'UNSPLIT INVOICED QUANTITY = '|| TO_CHAR ( l_unsplit_invoiced_qty ) , 5 ) ;
2074: oe_debug_pub.add( 'FULFILLED QUANTITY = '|| TO_CHAR ( P_LINE_REC.FULFILLED_QUANTITY ) , 5 ) ;
2075: oe_debug_pub.add( 'SHIPPED QUANTITY = '|| TO_CHAR ( P_LINE_REC.SHIPPED_QUANTITY ) , 5 ) ;
2076: oe_debug_pub.add( 'ORDERED QUANTITY = '|| TO_CHAR ( P_LINE_REC.ORDERED_QUANTITY ) , 5 ) ;
2077: -- changes for bug 3728587 end;
2078: oe_debug_pub.add( 'UNSPLIT ORDERED QUANTITY = '|| TO_CHAR ( l_unsplit_ordered_qty ) , 5 ) ;
2079: oe_debug_pub.add( 'UNSPLIT FULFILLED QUANTITY = '|| TO_CHAR ( l_unsplit_fulfilled_qty ) , 5 ) ;
2080: oe_debug_pub.add( 'UNSPLIT INVOICED QUANTITY = '|| TO_CHAR ( l_unsplit_invoiced_qty ) , 5 ) ;
2081: -- changes for bug 3728587 end;
2082: END IF;
2075: oe_debug_pub.add( 'SHIPPED QUANTITY = '|| TO_CHAR ( P_LINE_REC.SHIPPED_QUANTITY ) , 5 ) ;
2076: oe_debug_pub.add( 'ORDERED QUANTITY = '|| TO_CHAR ( P_LINE_REC.ORDERED_QUANTITY ) , 5 ) ;
2077: -- changes for bug 3728587 end;
2078: oe_debug_pub.add( 'UNSPLIT ORDERED QUANTITY = '|| TO_CHAR ( l_unsplit_ordered_qty ) , 5 ) ;
2079: oe_debug_pub.add( 'UNSPLIT FULFILLED QUANTITY = '|| TO_CHAR ( l_unsplit_fulfilled_qty ) , 5 ) ;
2080: oe_debug_pub.add( 'UNSPLIT INVOICED QUANTITY = '|| TO_CHAR ( l_unsplit_invoiced_qty ) , 5 ) ;
2081: -- changes for bug 3728587 end;
2082: END IF;
2083:
2076: oe_debug_pub.add( 'ORDERED QUANTITY = '|| TO_CHAR ( P_LINE_REC.ORDERED_QUANTITY ) , 5 ) ;
2077: -- changes for bug 3728587 end;
2078: oe_debug_pub.add( 'UNSPLIT ORDERED QUANTITY = '|| TO_CHAR ( l_unsplit_ordered_qty ) , 5 ) ;
2079: oe_debug_pub.add( 'UNSPLIT FULFILLED QUANTITY = '|| TO_CHAR ( l_unsplit_fulfilled_qty ) , 5 ) ;
2080: oe_debug_pub.add( 'UNSPLIT INVOICED QUANTITY = '|| TO_CHAR ( l_unsplit_invoiced_qty ) , 5 ) ;
2081: -- changes for bug 3728587 end;
2082: END IF;
2083:
2084: IF p_line_rec.shipped_quantity IS NOT NULL THEN
2085: -- calculate quantity to invoice based on ship tolerances
2086: -- If we ship less than ship tolerance below, then the line will be split.
2087: l_fulfilled_qty := NVL(p_line_rec.fulfilled_quantity, NVL(p_line_rec.shipped_quantity, 0));
2088: IF l_debug_level > 0 THEN
2089: oe_debug_pub.add( 'L_FULFILLED_QUANTITY = '|| L_FULFILLED_QTY , 5 ) ;
2090: END IF;
2091: -- changes for bug 3728587 start
2092: -- IF (l_fulfilled_qty <= nvl(p_line_rec.ordered_quantity, 0)) then
2093: IF (l_unsplit_fulfilled_qty <= nvl(l_unsplit_ordered_qty, 0)) then
2093: IF (l_unsplit_fulfilled_qty <= nvl(l_unsplit_ordered_qty, 0)) then
2094: -- changes for bug 3728587 end
2095: x_regular_qty_to_invoice := l_fulfilled_qty - NVL(p_line_rec.invoiced_quantity, 0);
2096: IF l_debug_level > 0 THEN
2097: oe_debug_pub.add( 'EXIT CALCUALTE_QTY_TO_INVOICE ( 1 ) : '||X_REGULAR_QTY_TO_INVOICE , 5 ) ;
2098: END IF;
2099: RETURN;
2100: -- changes for bug 3728587 start
2101: -- ELSIF ( l_fulfilled_qty > NVL(p_line_rec.ordered_quantity, 0)
2106: l_overship_invoice_basis := Get_Overship_Invoice_Basis(p_line_rec);
2107: IF l_overship_invoice_basis = 'ORDERED' THEN
2108: x_regular_qty_to_invoice := NVL(p_line_rec.ordered_quantity, 0) - NVL(p_line_rec.invoiced_quantity, 0);
2109: IF l_debug_level > 0 THEN
2110: oe_debug_pub.add( 'EXIT CALCUALTE_QTY_TO_INVOICE ( 2 ) : '||X_REGULAR_QTY_TO_INVOICE , 1 ) ;
2111: END IF;
2112: RETURN;
2113: ELSE -- 'SHIPPED'
2114: x_regular_qty_to_invoice := l_fulfilled_qty - NVL(p_line_rec.invoiced_quantity, 0);
2112: RETURN;
2113: ELSE -- 'SHIPPED'
2114: x_regular_qty_to_invoice := l_fulfilled_qty - NVL(p_line_rec.invoiced_quantity, 0);
2115: IF l_debug_level > 0 THEN
2116: oe_debug_pub.add( 'EXIT CALCUALTE_QTY_TO_INVOICE ( 3 ) : '||X_REGULAR_QTY_TO_INVOICE , 5 ) ;
2117: END IF;
2118: RETURN;
2119: END IF;
2120: ELSE -- overshipped (> ordered +tolerance), we only invoice up to the ordered + tolerance. user should manually handle the outstanding qtys
2130: end if;
2131: -- changes for bug 3728587 end
2132: -- Issue Message here. (overshipment above tolerance should be invoiced manually)
2133: IF l_debug_level > 0 THEN
2134: oe_debug_pub.add( 'QUANTITY TO INVOICE AT ( 4 ) = ' || TO_CHAR ( X_REGULAR_QTY_TO_INVOICE ) , 5 ) ;
2135: END IF;
2136: FND_MESSAGE.SET_NAME('ONT','OE_MANUAL_INVOICE_OVERSHIP_QTY');
2137: OE_MSG_PUB.ADD;
2138: IF l_debug_level > 0 THEN
2135: END IF;
2136: FND_MESSAGE.SET_NAME('ONT','OE_MANUAL_INVOICE_OVERSHIP_QTY');
2137: OE_MSG_PUB.ADD;
2138: IF l_debug_level > 0 THEN
2139: oe_debug_pub.add( 'EXIT CALCUALTE_QTY_TO_INVOICE ( 4 ) : '||X_REGULAR_QTY_TO_INVOICE , 5 ) ;
2140: END IF;
2141: RETURN;
2142: END IF;
2143: ELSE -- no ship cycle
2143: ELSE -- no ship cycle
2144: l_fulfilled_qty := NVL(p_line_rec.fulfilled_quantity, NVL(p_line_rec.shipped_quantity, NVL(p_line_rec.ordered_quantity, 0)));
2145: x_regular_qty_to_invoice := l_fulfilled_qty - NVL(p_line_rec.invoiced_quantity, 0);
2146: IF l_debug_level > 0 THEN
2147: oe_debug_pub.add( 'EXIT CALCUALTE_QTY_TO_INVOICE ( 5 ) : '||X_REGULAR_QTY_TO_INVOICE , 5 ) ;
2148: END IF;
2149: RETURN;
2150: END IF;
2151: END Get_Regular_Qty_To_Invoice;
2179: i NUMBER;
2180: l_fulfilled_qty NUMBER;
2181:
2182: --
2183: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2184: --
2185: BEGIN
2186: IF l_debug_level > 0 THEN
2187: oe_debug_pub.add( 'ENTER TO GET QUANTITY TO INVOICE ( ) ' , 5 ) ;
2183: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2184: --
2185: BEGIN
2186: IF l_debug_level > 0 THEN
2187: oe_debug_pub.add( 'ENTER TO GET QUANTITY TO INVOICE ( ) ' , 5 ) ;
2188: END IF;
2189: x_result_code := 'NORMAL';
2190: l_fulfilled_qty := NVL(p_line_rec.fulfilled_quantity, NVL(p_line_rec.shipped_quantity, NVL(p_line_rec.ordered_quantity, 0)));
2191: IF Is_PTO(p_line_rec) THEN
2197: x_qty_to_invoice := l_fulfilled_qty;
2198: END IF;
2199: RFR_Children(p_line_rec.line_id, l_rfr_child_flag, l_rfr_children_tbl);
2200: IF l_debug_level > 0 THEN
2201: oe_debug_pub.add( 'RFR: QTY_TO_INVOICE: '||QTY_TO_INVOICE ||' L_RFR_CHILD_FLAG: '|| L_RFR_CHILD_FLAG , 5 ) ;
2202: END IF;
2203: IF (l_rfr_child_flag = 'Y') THEN
2204: FOR i IN 1..l_rfr_children_tbl.count LOOP
2205: -- l_rfr_children_tbl is ordered by inventory_item_id
2205: -- l_rfr_children_tbl is ordered by inventory_item_id
2206: -- so same inventory_item_id will come next to each other
2207: OE_Line_Util.Query_Row(p_line_id => l_rfr_children_tbl(i), x_line_rec => l_child_rec);
2208: IF l_debug_level > 0 THEN
2209: oe_debug_pub.add( 'RFR: L_CHILD_REC.LINE_ID: '||L_CHILD_REC.LINE_ID ||' L_CHILD_REC.INVENTORY_ITEM_ID: '|| L_CHILD_REC.INVENTORY_ITEM_ID , 5 ) ;
2210: END IF;
2211: IF l_child_rec.inventory_item_id <> l_child_inventory_item_id then
2212: l_child_inventory_item_id := l_child_rec.inventory_item_id;
2213: select nvl(sum(ordered_quantity), 0), nvl(sum(fulfilled_quantity), 0)
2215: from oe_order_lines
2216: where link_to_line_id = p_line_rec.line_id
2217: and inventory_item_id = l_child_inventory_item_id;
2218: IF l_debug_level > 0 THEN
2219: oe_debug_pub.add( 'RFR: L_CHILD_TOTAL_ORDERED_QTY: '||L_CHILD_TOTAL_ORDERED_QTY||' L_CHILD_TOTAL_FULFILLED_QTY:'||L_CHILD_TOTAL_FULFILLED_QTY , 5 ) ;
2220: END IF;
2221: l_ratio := nvl(p_line_rec.ordered_quantity, 0) / l_child_total_ordered_qty;
2222: IF l_debug_level > 0 THEN
2223: oe_debug_pub.add( 'RFR:L_RATIO :'||L_RATIO , 5 ) ;
2219: oe_debug_pub.add( 'RFR: L_CHILD_TOTAL_ORDERED_QTY: '||L_CHILD_TOTAL_ORDERED_QTY||' L_CHILD_TOTAL_FULFILLED_QTY:'||L_CHILD_TOTAL_FULFILLED_QTY , 5 ) ;
2220: END IF;
2221: l_ratio := nvl(p_line_rec.ordered_quantity, 0) / l_child_total_ordered_qty;
2222: IF l_debug_level > 0 THEN
2223: oe_debug_pub.add( 'RFR:L_RATIO :'||L_RATIO , 5 ) ;
2224: END IF;
2225: -- ordered_quantity must be according to ratio
2226: Select Floor(nvl(l_child_total_fulfilled_qty, 0) * nvl(p_line_rec.ordered_quantity, 0) / l_child_total_ordered_qty)
2227: Into max_to_invoice
2226: Select Floor(nvl(l_child_total_fulfilled_qty, 0) * nvl(p_line_rec.ordered_quantity, 0) / l_child_total_ordered_qty)
2227: Into max_to_invoice
2228: From dual;
2229: IF l_debug_level > 0 THEN
2230: oe_debug_pub.add( 'RFR:MAX_TO_INVOICE: '||MAX_TO_INVOICE , 5 ) ;
2231: END IF;
2232: IF max_to_invoice < qty_to_invoice THEN
2233: IF l_debug_level > 0 THEN
2234: oe_debug_pub.add( 'RFR: MAX_TO_INVOICE < QTY_TO_INVOICE' , 5 ) ;
2230: oe_debug_pub.add( 'RFR:MAX_TO_INVOICE: '||MAX_TO_INVOICE , 5 ) ;
2231: END IF;
2232: IF max_to_invoice < qty_to_invoice THEN
2233: IF l_debug_level > 0 THEN
2234: oe_debug_pub.add( 'RFR: MAX_TO_INVOICE < QTY_TO_INVOICE' , 5 ) ;
2235: END IF;
2236: qty_to_invoice := max_to_invoice;
2237: END IF;
2238: END IF; -- if this is a new inventory_item_id
2237: END IF;
2238: END IF; -- if this is a new inventory_item_id
2239: END LOOP;
2240: IF l_debug_level > 0 THEN
2241: oe_debug_pub.add( 'RFR:FULFILLED_QUANTITY: '||P_LINE_REC.FULFILLED_QUANTITY||' QTY_TO_INVOICE:'||QTY_TO_INVOICE , 4 ) ;
2242: END IF;
2243: IF nvl(p_line_rec.fulfilled_quantity, 0) <= qty_to_invoice THEN
2244: x_qty_to_invoice := nvl(p_line_rec.fulfilled_quantity, 0) - nvl(p_line_rec.invoiced_quantity, 0);
2245: IF l_debug_level > 0 THEN
2242: END IF;
2243: IF nvl(p_line_rec.fulfilled_quantity, 0) <= qty_to_invoice THEN
2244: x_qty_to_invoice := nvl(p_line_rec.fulfilled_quantity, 0) - nvl(p_line_rec.invoiced_quantity, 0);
2245: IF l_debug_level > 0 THEN
2246: oe_debug_pub.add( ' ( 1 ) QUANTITY TO INVOICE : '||X_QTY_TO_INVOICE , 5 ) ;
2247: END IF;
2248: IF l_debug_level > 0 THEN
2249: oe_debug_pub.add( ' NOT SETTING TO RFR-PENDING' , 5 ) ;
2250: END IF;
2245: IF l_debug_level > 0 THEN
2246: oe_debug_pub.add( ' ( 1 ) QUANTITY TO INVOICE : '||X_QTY_TO_INVOICE , 5 ) ;
2247: END IF;
2248: IF l_debug_level > 0 THEN
2249: oe_debug_pub.add( ' NOT SETTING TO RFR-PENDING' , 5 ) ;
2250: END IF;
2251: ELSIF nvl(p_line_rec.fulfilled_quantity, 0) > qty_to_invoice
2252: AND qty_to_invoice < nvl(p_line_rec.ordered_quantity, 0) THEN
2253: x_qty_to_invoice := qty_to_invoice - nvl(p_line_rec.invoiced_quantity, 0);
2251: ELSIF nvl(p_line_rec.fulfilled_quantity, 0) > qty_to_invoice
2252: AND qty_to_invoice < nvl(p_line_rec.ordered_quantity, 0) THEN
2253: x_qty_to_invoice := qty_to_invoice - nvl(p_line_rec.invoiced_quantity, 0);
2254: IF l_debug_level > 0 THEN
2255: oe_debug_pub.add( ' ( 2 ) QUANTITY TO INVOICE : '||X_QTY_TO_INVOICE , 5 ) ;
2256: oe_debug_pub.add( 'SET X_RESULT_CODE -> RFR-PENDING' , 5 ) ;
2257: END IF;
2258: x_result_code := 'RFR-PENDING';
2259: ELSE -- full or overshipment
2252: AND qty_to_invoice < nvl(p_line_rec.ordered_quantity, 0) THEN
2253: x_qty_to_invoice := qty_to_invoice - nvl(p_line_rec.invoiced_quantity, 0);
2254: IF l_debug_level > 0 THEN
2255: oe_debug_pub.add( ' ( 2 ) QUANTITY TO INVOICE : '||X_QTY_TO_INVOICE , 5 ) ;
2256: oe_debug_pub.add( 'SET X_RESULT_CODE -> RFR-PENDING' , 5 ) ;
2257: END IF;
2258: x_result_code := 'RFR-PENDING';
2259: ELSE -- full or overshipment
2260: l_overship_invoice_basis := Get_Overship_Invoice_Basis(p_line_rec);
2260: l_overship_invoice_basis := Get_Overship_Invoice_Basis(p_line_rec);
2261: IF l_overship_invoice_basis = 'ORDERED' THEN
2262: x_qty_to_invoice := qty_to_invoice - nvl(p_line_rec.invoiced_quantity, 0);
2263: IF l_debug_level > 0 THEN
2264: oe_debug_pub.add( ' ( 3 ) QUANTITY TO INVOICE : '||X_QTY_TO_INVOICE , 5 ) ;
2265: END IF;
2266: ELSE
2267: x_qty_to_invoice := nvl(p_line_rec.fulfilled_quantity, 0) - nvl(p_line_rec.invoiced_quantity, 0);
2268: IF l_debug_level > 0 THEN
2265: END IF;
2266: ELSE
2267: x_qty_to_invoice := nvl(p_line_rec.fulfilled_quantity, 0) - nvl(p_line_rec.invoiced_quantity, 0);
2268: IF l_debug_level > 0 THEN
2269: oe_debug_pub.add( ' ( 4 ) QUANTITY TO INVOICE : '||X_QTY_TO_INVOICE , 5 ) ;
2270: END IF;
2271: END IF;
2272: END IF;
2273: ELSE -- no rfr children
2272: END IF;
2273: ELSE -- no rfr children
2274: Get_Regular_Qty_To_Invoice(p_line_rec, x_qty_to_invoice);
2275: IF l_debug_level > 0 THEN
2276: oe_debug_pub.add( ' ( 5 ) QUANTITY TO INVOICE : '||X_QTY_TO_INVOICE , 5 ) ;
2277: END IF;
2278: END IF;
2279: IF l_debug_level > 0 THEN
2280: oe_debug_pub.add( 'RFR: FINISH CHECK CHILDREN' , 5 ) ;
2276: oe_debug_pub.add( ' ( 5 ) QUANTITY TO INVOICE : '||X_QTY_TO_INVOICE , 5 ) ;
2277: END IF;
2278: END IF;
2279: IF l_debug_level > 0 THEN
2280: oe_debug_pub.add( 'RFR: FINISH CHECK CHILDREN' , 5 ) ;
2281: END IF;
2282:
2283: -- fix for bug 2516823
2284: IF IS_CLASS(p_line_rec.link_to_line_id) THEN
2290: FOR i IN 1..l_rfr_sibling_tbl.count LOOP
2291: OE_Line_Util.Query_Row(p_line_id => l_rfr_sibling_tbl(i)
2292: ,x_line_rec => l_sibling_rec);
2293: IF l_debug_level > 0 THEN
2294: oe_debug_pub.add( 'RFR:L_SIBLING_REC.LINE_ID: ' ||L_SIBLING_REC.LINE_ID ||' L_SIBLING_REC.INVENTORY_ITEM_ID:' ||L_SIBLING_REC.INVENTORY_ITEM_ID , 3 ) ;
2295: END IF;
2296: IF l_sibling_rec.inventory_item_id <> l_sibling_inventory_item_id THEN
2297: l_sibling_inventory_item_id := l_sibling_rec.inventory_item_id;
2298: SELECT NVL(SUM(ordered_quantity),0)
2319: l_ratio := l_total_ordered_qty/l_sibling_total_ordered_qty;
2320: -- ordered_quantity must be according to ratio
2321: max_to_invoice := FLOOR(nvl(l_sibling_total_fulfilled_qty,0) *l_total_ordered_qty / l_sibling_total_ordered_qty);
2322: IF l_debug_level > 0 THEN
2323: oe_debug_pub.add( 'MAX_TO_INVOICE:'||MAX_TO_INVOICE||':QTY_TO_INVOICE:'||QTY_TO_INVOICE ) ;
2324: END IF;
2325: IF max_to_invoice < qty_to_invoice THEN
2326: qty_to_invoice := max_to_invoice;
2327: END IF;
2328: END IF; -- new inventory_item_id
2329: END LOOP;
2330:
2331: IF l_debug_level > 0 THEN
2332: oe_debug_pub.add( 'L_TOTAL_INVOICED_QTY:'||L_TOTAL_INVOICED_QTY , 5 ) ;
2333: oe_debug_pub.add( 'L_TOTAL_FULFILLED_QTY:'||L_TOTAL_FULFILLED_QTY , 5 ) ;
2334: oe_debug_pub.add( 'QTY_TO_INVOICE:'||QTY_TO_INVOICE , 5 ) ;
2335: END IF;
2336:
2329: END LOOP;
2330:
2331: IF l_debug_level > 0 THEN
2332: oe_debug_pub.add( 'L_TOTAL_INVOICED_QTY:'||L_TOTAL_INVOICED_QTY , 5 ) ;
2333: oe_debug_pub.add( 'L_TOTAL_FULFILLED_QTY:'||L_TOTAL_FULFILLED_QTY , 5 ) ;
2334: oe_debug_pub.add( 'QTY_TO_INVOICE:'||QTY_TO_INVOICE , 5 ) ;
2335: END IF;
2336:
2337: IF l_total_fulfilled_qty <= qty_to_invoice THEN
2330:
2331: IF l_debug_level > 0 THEN
2332: oe_debug_pub.add( 'L_TOTAL_INVOICED_QTY:'||L_TOTAL_INVOICED_QTY , 5 ) ;
2333: oe_debug_pub.add( 'L_TOTAL_FULFILLED_QTY:'||L_TOTAL_FULFILLED_QTY , 5 ) ;
2334: oe_debug_pub.add( 'QTY_TO_INVOICE:'||QTY_TO_INVOICE , 5 ) ;
2335: END IF;
2336:
2337: IF l_total_fulfilled_qty <= qty_to_invoice THEN
2338: x_qty_to_invoice := l_total_fulfilled_qty
2337: IF l_total_fulfilled_qty <= qty_to_invoice THEN
2338: x_qty_to_invoice := l_total_fulfilled_qty
2339: - l_total_invoiced_qty;
2340: IF l_debug_level > 0 THEN
2341: oe_debug_pub.add( ' ( 5 ) QUANTITY TO INVOICE : '||X_QTY_TO_INVOICE , 5 ) ;
2342: END IF;
2343: ELSIF l_total_fulfilled_qty - l_total_invoiced_qty
2344: > qty_to_invoice
2345: AND qty_to_invoice
2345: AND qty_to_invoice
2347: := qty_to_invoice - l_total_invoiced_qty;
2348: IF l_debug_level > 0 THEN
2349: oe_debug_pub.add( ' ( 6 ) QUANTITY TO INVOICE : '||X_QTY_TO_INVOICE , 5 ) ;
2350: END IF;
2351: IF l_debug_level > 0 THEN
2352: oe_debug_pub.add( 'SET X_RESULT_CODE -> RFR-PENDING' , 5 ) ;
2353: END IF;
2348: IF l_debug_level > 0 THEN
2349: oe_debug_pub.add( ' ( 6 ) QUANTITY TO INVOICE : '||X_QTY_TO_INVOICE , 5 ) ;
2350: END IF;
2351: IF l_debug_level > 0 THEN
2352: oe_debug_pub.add( 'SET X_RESULT_CODE -> RFR-PENDING' , 5 ) ;
2353: END IF;
2354: x_result_code := 'RFR-PENDING';
2355: ELSE
2356: l_overship_invoice_basis := Get_Overship_Invoice_Basis(p_line_rec);
2356: l_overship_invoice_basis := Get_Overship_Invoice_Basis(p_line_rec);
2357: IF l_overship_invoice_basis = 'ORDERED' THEN
2358: x_qty_to_invoice := qty_to_invoice - l_total_invoiced_qty;
2359: IF l_debug_level > 0 THEN
2360: oe_debug_pub.add( ' ( 7 ) QUANTITY TO INVOICE : '||X_QTY_TO_INVOICE , 5 ) ;
2361: END IF;
2362: ELSE
2363: x_qty_to_invoice := l_total_fulfilled_qty - l_total_invoiced_qty;
2364: IF l_debug_level > 0 THEN
2361: END IF;
2362: ELSE
2363: x_qty_to_invoice := l_total_fulfilled_qty - l_total_invoiced_qty;
2364: IF l_debug_level > 0 THEN
2365: oe_debug_pub.add( ' ( 8 ) QUANTITY TO INVOICE : '||X_QTY_TO_INVOICE , 5 ) ;
2366: END IF;
2367: END IF;
2368: END IF;
2369: -- ELSE -- no siblings
2372: END IF;
2373: ELSE -- not pto
2374: Get_Regular_Qty_To_Invoice(p_line_rec, x_qty_to_invoice);
2375: IF l_debug_level > 0 THEN
2376: oe_debug_pub.add( ' ( 9 ) QUANTITY TO INVOICE : '||X_QTY_TO_INVOICE , 5 ) ;
2377: END IF;
2378: END IF;
2379: IF l_debug_level > 0 THEN
2380: oe_debug_pub.add( ' ( 10 ) QUANTITY TO INVOICE : '||X_QTY_TO_INVOICE , 5 ) ;
2376: oe_debug_pub.add( ' ( 9 ) QUANTITY TO INVOICE : '||X_QTY_TO_INVOICE , 5 ) ;
2377: END IF;
2378: END IF;
2379: IF l_debug_level > 0 THEN
2380: oe_debug_pub.add( ' ( 10 ) QUANTITY TO INVOICE : '||X_QTY_TO_INVOICE , 5 ) ;
2381: END IF;
2382: END Get_Qty_To_Invoice;
2383:
2384: FUNCTION Validate_Required_Attributes
2387: )
2388: RETURN BOOLEAN
2389: IS
2390: --
2391: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2392: --
2393: BEGIN
2394: IF l_debug_level > 0 THEN
2395: oe_debug_pub.add( 'VALIDATING REQUIRED ATTRIBUTES' , 5 ) ;
2391: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2392: --
2393: BEGIN
2394: IF l_debug_level > 0 THEN
2395: oe_debug_pub.add( 'VALIDATING REQUIRED ATTRIBUTES' , 5 ) ;
2396: END IF;
2397: -- Check For all Required Attributes
2398: IF p_interface_line_rec.Batch_Source_Name IS NULL THEN
2399: FND_MESSAGE.SET_NAME('ONT','OE_INVOICING_ATTR_REQUIRED');
2399: FND_MESSAGE.SET_NAME('ONT','OE_INVOICING_ATTR_REQUIRED');
2400: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Batch_Source_Name');
2401: OE_MSG_PUB.ADD;
2402: IF l_debug_level > 0 THEN
2403: oe_debug_pub.add( 'REQUIRED ATTRIBUTE BATCH SOURCE NAME IS MISSING' , 1 ) ;
2404: END IF;
2405: RETURN FALSE;
2406: ELSIF p_interface_line_rec.Set_Of_Books_Id IS NULL THEN
2407: FND_MESSAGE.SET_NAME('ONT','OE_INVOICING_ATTR_REQUIRED');
2407: FND_MESSAGE.SET_NAME('ONT','OE_INVOICING_ATTR_REQUIRED');
2408: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Set_Of_Books_Id');
2409: OE_MSG_PUB.ADD;
2410: IF l_debug_level > 0 THEN
2411: oe_debug_pub.add( 'REQUIRED ATTRIBUTE SET OF BOOKS ID IS MISSING ' , 1 ) ;
2412: END IF;
2413: RETURN FALSE;
2414: ELSIF p_interface_line_rec.Line_Type IS NULL THEN
2415: FND_MESSAGE.SET_NAME('ONT','OE_INVOICING_ATTR_REQUIRED');
2415: FND_MESSAGE.SET_NAME('ONT','OE_INVOICING_ATTR_REQUIRED');
2416: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Line_Type');
2417: OE_MSG_PUB.ADD;
2418: IF l_debug_level > 0 THEN
2419: oe_debug_pub.add( 'REQUIRED ATTRIBUTE LINE TYPE IS MISSING' , 1 ) ;
2420: END IF;
2421: RETURN FALSE;
2422: ELSIF p_interface_line_rec.Description IS NULL THEN
2423: FND_MESSAGE.SET_NAME('ONT','OE_INVOICING_ATTR_REQUIRED');
2423: FND_MESSAGE.SET_NAME('ONT','OE_INVOICING_ATTR_REQUIRED');
2424: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Description');
2425: OE_MSG_PUB.ADD;
2426: IF l_debug_level > 0 THEN
2427: oe_debug_pub.add( 'REQUIRED ATTRIBUTE DESCRIPTION IS MISSING' , 1 ) ;
2428: END IF;
2429: RETURN FALSE;
2430: ELSIF p_interface_line_rec.Currency_Code IS NULL THEN
2431: FND_MESSAGE.SET_NAME('ONT','OE_INVOICING_ATTR_REQUIRED');
2431: FND_MESSAGE.SET_NAME('ONT','OE_INVOICING_ATTR_REQUIRED');
2432: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Currency_Code');
2433: OE_MSG_PUB.ADD;
2434: IF l_debug_level > 0 THEN
2435: oe_debug_pub.add( 'REQUIRED ATTRIBUTE CURRENCY CODE IS MISSING' , 1 ) ;
2436: END IF;
2437: RETURN FALSE;
2438: ELSIF p_interface_line_rec.Conversion_Type IS NULL THEN
2439: FND_MESSAGE.SET_NAME('ONT','OE_INVOICING_ATTR_REQUIRED');
2439: FND_MESSAGE.SET_NAME('ONT','OE_INVOICING_ATTR_REQUIRED');
2440: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Conversion_Type');
2441: OE_MSG_PUB.ADD;
2442: IF l_debug_level > 0 THEN
2443: oe_debug_pub.add( 'REQUIRED ATTRIBUTE CONVERSION TYPE IS MISSING' , 1 ) ;
2444: END IF;
2445: RETURN FALSE;
2446: ELSIF p_line_rec.commitment_id IS NULL AND
2447: (p_interface_line_rec.Cust_Trx_Type_Id IS NULL OR
2449: FND_MESSAGE.SET_NAME('ONT','OE_INVOICING_ATTR_REQUIRED');
2450: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Cust_Trx_Type_Id');
2451: OE_MSG_PUB.ADD;
2452: IF l_debug_level > 0 THEN
2453: oe_debug_pub.add( 'REQUIRED ATTRIBUTE CUSTOMER TRX TYPE ID IS MISSING' , 1 ) ;
2454: END IF;
2455: RETURN FALSE;
2456: ELSIF p_interface_line_rec.ACCOUNTING_RULE_DURATION = -1 THEN
2457: -- Appropriate message was already posted for bug#4190312
2455: RETURN FALSE;
2456: ELSIF p_interface_line_rec.ACCOUNTING_RULE_DURATION = -1 THEN
2457: -- Appropriate message was already posted for bug#4190312
2458: IF l_debug_level > 0 THEN
2459: oe_debug_pub.add( 'REQUIRED ATTRIBUTE ACCOUNTING RULE DURATION IS MISSING' , 1 ) ;
2460: END IF;
2461: RETURN FALSE;
2462: ELSIF p_interface_line_rec.customer_bank_account_id = -1 THEN
2463: FND_MESSAGE.SET_NAME('ONT','OE_VPM_CC_ACCT_NOT_SET');
2462: ELSIF p_interface_line_rec.customer_bank_account_id = -1 THEN
2463: FND_MESSAGE.SET_NAME('ONT','OE_VPM_CC_ACCT_NOT_SET');
2464: OE_MSG_PUB.ADD;
2465: IF l_debug_level > 0 THEN
2466: oe_debug_pub.add( 'REQUIRED ATTRIBUTE CUSTOMER CREDIT CARD BANK ACCOUNT IS MISSING' , 1 ) ;
2467: END IF;
2468: RETURN FALSE;
2469: ELSIF p_interface_line_rec.customer_bank_account_id > 0
2470: AND p_interface_line_rec.receipt_method_id IS NULL THEN
2470: AND p_interface_line_rec.receipt_method_id IS NULL THEN
2471: FND_MESSAGE.SET_NAME('ONT','OE_VPM_NO_PAY_METHOD');
2472: OE_MSG_PUB.ADD;
2473: IF l_debug_level > 0 THEN
2474: oe_debug_pub.add( 'REQUIRED ATTRIBUTE PAYMENT METHOD IS MISSING' , 1 ) ;
2475: END IF;
2476: RETURN FALSE;
2477:
2478: /* ELSIF -- will be updated with list of mandatory and conditionally required attributes
2490: -- Issue error message here
2491: RETURN FALSE;*/
2492: ELSE
2493: IF l_debug_level > 0 THEN
2494: oe_debug_pub.add( 'EXIT VALIDATE REQUIRED ATTRIBUTES ( ) ' , 1 ) ;
2495: END IF;
2496: RETURN TRUE;
2497: END IF;
2498: END Validate_Required_Attributes;
2500: PROCEDURE Header_Invoicing_Validation
2501: (p_header_id IN NUMBER)
2502: IS
2503: --
2504: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2505: --
2506: BEGIN
2507: /*
2508: -- Following may be a result of wrong workflow setup
2512: issue error message
2513: Add any other validation here
2514: */
2515: IF l_debug_level > 0 THEN
2516: oe_debug_pub.add( 'ENTERING HEADER_INVOICING_VALIDATION' ) ;
2517: END IF;
2518: NULL;
2519: END Header_Invoicing_Validation;
2520:
2565: AND SCT.quota_flag = p_quota_flag
2566: AND SC.line_id = p_line_id;
2567:
2568: --
2569: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2570: --
2571: BEGIN
2572: IF l_debug_level > 0 THEN
2573: oe_debug_pub.add( 'ENTERING QUERY_LINE_SCREDITS' , 5 ) ;
2569: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2570: --
2571: BEGIN
2572: IF l_debug_level > 0 THEN
2573: oe_debug_pub.add( 'ENTERING QUERY_LINE_SCREDITS' , 5 ) ;
2574: END IF;
2575: -- Initialize table so that it clears previous records
2576: x_line_scredit_tbl.DELETE;
2577:
2617: --FP bug 3872166
2618: x_total_percent := x_total_percent + l_implicit_rec.PERCENT;
2619: END LOOP;
2620: IF l_debug_level > 0 THEN
2621: oe_debug_pub.add( 'EXITING QUERY_LINE_SCREDITS' , 5 ) ;
2622: END IF;
2623: EXCEPTION
2624: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2625: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2624: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2625: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2626: WHEN OTHERS THEN
2627: IF l_debug_level > 0 THEN
2628: oe_debug_pub.add( 'EXCEPTION , QUERY LINE SALES CREDITS '||SQLERRM , 1 ) ;
2629: END IF;
2630: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2631: THEN
2632: oe_msg_pub.Add_Exc_Msg
2683: AND SCT.quota_flag = p_quota_flag
2684: AND SC.header_id = p_header_id
2685: AND SC.line_id IS NULL;
2686: --
2687: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2688: --
2689: BEGIN
2690: IF l_debug_level > 0 THEN
2691: oe_debug_pub.add( 'ENTERING QUERY_HEADER_SCREDITS' , 5 ) ;
2687: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2688: --
2689: BEGIN
2690: IF l_debug_level > 0 THEN
2691: oe_debug_pub.add( 'ENTERING QUERY_HEADER_SCREDITS' , 5 ) ;
2692: oe_debug_pub.add( 'P_QUOTA_FLAG: '||P_QUOTA_FLAG , 5 ) ;
2693: END IF;
2694: -- Initialize table so that it clears previous records
2695: x_header_scredit_tbl.DELETE;
2688: --
2689: BEGIN
2690: IF l_debug_level > 0 THEN
2691: oe_debug_pub.add( 'ENTERING QUERY_HEADER_SCREDITS' , 5 ) ;
2692: oe_debug_pub.add( 'P_QUOTA_FLAG: '||P_QUOTA_FLAG , 5 ) ;
2693: END IF;
2694: -- Initialize table so that it clears previous records
2695: x_header_scredit_tbl.DELETE;
2696: -- Loop over fetched records
2729: --sg
2730: l_Header_Scredit_rec.lock_control := l_implicit_rec.LOCK_CONTROL;
2731: x_Header_Scredit_tbl(x_Header_Scredit_tbl.COUNT + 1) := l_Header_Scredit_rec;
2732: IF l_debug_level > 0 THEN
2733: oe_debug_pub.add( 'SALESREP_ID: '||L_HEADER_SCREDIT_REC.SALESREP_ID ) ;
2734: oe_debug_pub.add( 'SALES_CREDIT_TYPE_ID: '||L_HEADER_SCREDIT_REC.SALES_CREDIT_TYPE_ID ) ;
2735: oe_debug_pub.add( 'PERCENT: '||L_HEADER_SCREDIT_REC.PERCENT ) ;
2736: END IF;
2737: END LOOP;
2730: l_Header_Scredit_rec.lock_control := l_implicit_rec.LOCK_CONTROL;
2731: x_Header_Scredit_tbl(x_Header_Scredit_tbl.COUNT + 1) := l_Header_Scredit_rec;
2732: IF l_debug_level > 0 THEN
2733: oe_debug_pub.add( 'SALESREP_ID: '||L_HEADER_SCREDIT_REC.SALESREP_ID ) ;
2734: oe_debug_pub.add( 'SALES_CREDIT_TYPE_ID: '||L_HEADER_SCREDIT_REC.SALES_CREDIT_TYPE_ID ) ;
2735: oe_debug_pub.add( 'PERCENT: '||L_HEADER_SCREDIT_REC.PERCENT ) ;
2736: END IF;
2737: END LOOP;
2738: IF l_debug_level > 0 THEN
2731: x_Header_Scredit_tbl(x_Header_Scredit_tbl.COUNT + 1) := l_Header_Scredit_rec;
2732: IF l_debug_level > 0 THEN
2733: oe_debug_pub.add( 'SALESREP_ID: '||L_HEADER_SCREDIT_REC.SALESREP_ID ) ;
2734: oe_debug_pub.add( 'SALES_CREDIT_TYPE_ID: '||L_HEADER_SCREDIT_REC.SALES_CREDIT_TYPE_ID ) ;
2735: oe_debug_pub.add( 'PERCENT: '||L_HEADER_SCREDIT_REC.PERCENT ) ;
2736: END IF;
2737: END LOOP;
2738: IF l_debug_level > 0 THEN
2739: oe_debug_pub.add( 'EXITING QUERY_HEADER_SCREDITS ( ) ' , 5 ) ;
2735: oe_debug_pub.add( 'PERCENT: '||L_HEADER_SCREDIT_REC.PERCENT ) ;
2736: END IF;
2737: END LOOP;
2738: IF l_debug_level > 0 THEN
2739: oe_debug_pub.add( 'EXITING QUERY_HEADER_SCREDITS ( ) ' , 5 ) ;
2740: END IF;
2741: EXCEPTION
2742: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2743: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2742: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2743: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2744: WHEN OTHERS THEN
2745: IF l_debug_level > 0 THEN
2746: oe_debug_pub.add( 'EXCEPTION , QUERY HEADER SALES CREDITS ( ) ' , 5 ) ;
2747: END IF;
2748: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2749: THEN
2750: oe_msg_pub.Add_Exc_Msg
2765: /* END PREPAYMENT */
2766: err_msg VARCHAR2(5000);
2767: l_rowid UROWID;
2768: --
2769: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2770: --
2771: BEGIN
2772: IF l_debug_level > 0 THEN
2773: oe_debug_pub.add( 'ENTERING INSERT_LINE ( ) PROCEDURE' , 1 ) ;
2769: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2770: --
2771: BEGIN
2772: IF l_debug_level > 0 THEN
2773: oe_debug_pub.add( 'ENTERING INSERT_LINE ( ) PROCEDURE' , 1 ) ;
2774: END IF;
2775: INSERT INTO RA_INTERFACE_LINES_ALL
2776: (CREATED_BY
2777: ,CREATION_DATE
3337: ,p_interface_line_rec.DEFERRAL_EXCLUSION_FLAG
3338: ) RETURNING rowid INTO l_rowid;
3339:
3340: IF l_debug_level > 0 THEN
3341: oe_debug_pub.add( 'INSERT COMPLETED' , 1 ) ;
3342: END IF;
3343: IF OE_Commitment_Pvt.DO_Commitment_Sequencing
3344: AND p_interface_line_rec.promised_commitment_amount IS NOT NULL THEN
3345: IF l_debug_level > 0 THEN
3342: END IF;
3343: IF OE_Commitment_Pvt.DO_Commitment_Sequencing
3344: AND p_interface_line_rec.promised_commitment_amount IS NOT NULL THEN
3345: IF l_debug_level > 0 THEN
3346: oe_debug_pub.add( 'BUILD UPDATE STATEMENT WITH PROMISED COMMITMENT AMOUNT' , 1 ) ;
3347: END IF;
3348: update_sql_stmt := 'UPDATE RA_INTERFACE_LINES_ALL
3349: SET PROMISED_COMMITMENT_AMOUNT = :1
3350: WHERE ROWID = :r1';
3348: update_sql_stmt := 'UPDATE RA_INTERFACE_LINES_ALL
3349: SET PROMISED_COMMITMENT_AMOUNT = :1
3350: WHERE ROWID = :r1';
3351: IF l_debug_level > 0 THEN
3352: oe_debug_pub.add( 'EXECUTING UPDATE STMT FOR PROMISED_COMMITMENT_AMOUNT' , 1 ) ;
3353: END IF;
3354: EXECUTE IMMEDIATE update_sql_stmt USING
3355: p_interface_line_rec.promised_commitment_amount
3356: ,l_rowid;
3358:
3359: /* START PREPAYMENT */
3360: IF p_interface_line_rec.payment_set_id IS NOT NULL THEN
3361: IF l_debug_level > 0 THEN
3362: oe_debug_pub.add( 'BUILD UPDATE STATEMENT WITH PAYMENT_SET_ID' , 1 ) ;
3363: END IF;
3364: update_sql_stmt1 := 'UPDATE RA_INTERFACE_LINES_ALL
3365: SET PAYMENT_SET_ID = :2
3366: WHERE ROWID = :r2';
3364: update_sql_stmt1 := 'UPDATE RA_INTERFACE_LINES_ALL
3365: SET PAYMENT_SET_ID = :2
3366: WHERE ROWID = :r2';
3367: IF l_debug_level > 0 THEN
3368: oe_debug_pub.add( 'EXECUTING UPDATE STMT FOR PAYMENT_SET_ID: '||P_INTERFACE_LINE_REC.PAYMENT_SET_ID , 1 ) ;
3369: END IF;
3370: EXECUTE IMMEDIATE update_sql_stmt1 USING
3371: p_interface_line_rec.PAYMENT_SET_ID
3372: ,l_rowid;
3374: /* END PREPAYMENT */
3375: -- Fix for the bug 2187074
3376: x_return_status := FND_API.G_RET_STS_SUCCESS;
3377: IF l_debug_level > 0 THEN
3378: oe_debug_pub.add( 'EXIT INSERT_LINE ( ) PROCEDURE' , 1 ) ;
3379: END IF;
3380: EXCEPTION
3381: WHEN OTHERS THEN
3382: err_msg := 'Error while inserting to RA_INTERFACE_LINES_ALL :\n '|| SQLERRM;
3380: EXCEPTION
3381: WHEN OTHERS THEN
3382: err_msg := 'Error while inserting to RA_INTERFACE_LINES_ALL :\n '|| SQLERRM;
3383: IF l_debug_level > 0 THEN
3384: oe_debug_pub.add( ERR_MSG || ' SQLCODE: '||TO_CHAR ( SQLCODE ) , 1 ) ;
3385: END IF;
3386: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3387: OE_MSG_PUB.Add_Exc_Msg
3388: ( G_PKG_NAME
3400: , p_interface_line_rec IN RA_Interface_Lines_Rec_Type
3401: , x_interface_scredit_rec OUT NOCOPY RA_Interface_Scredits_Rec_Type
3402: ) IS
3403: --
3404: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3405: --
3406: BEGIN
3407: IF l_debug_level > 0 THEN
3408: oe_debug_pub.add( 'ENTER LINE PREPARE_SALESCREDIT_REC ( ) PROCEDURE' , 5 ) ;
3404: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3405: --
3406: BEGIN
3407: IF l_debug_level > 0 THEN
3408: oe_debug_pub.add( 'ENTER LINE PREPARE_SALESCREDIT_REC ( ) PROCEDURE' , 5 ) ;
3409: END IF;
3410:
3411: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
3412: x_interface_scredit_rec.CREATION_DATE := INV_LE_TIMEZONE_PUB.Get_Le_Day_Time_For_Ou(sysdate,p_interface_line_rec.org_id);
3444: --SG
3445: x_interface_scredit_rec.SALES_GROUP_ID := p_line_scredit_rec.sales_group_id;
3446: --SG
3447:
3448: --oe_debug_pub.add(x_interface_scredit_rec.SALES_GROUP_ID);
3449:
3450: --oe_debug_pub.add(
3451: x_interface_scredit_rec.ATTRIBUTE1 := substrb(p_line_scredit_rec.attribute1, 1, 150);
3452: x_interface_scredit_rec.ATTRIBUTE2 := substrb(p_line_scredit_rec.attribute2, 1, 150);
3446: --SG
3447:
3448: --oe_debug_pub.add(x_interface_scredit_rec.SALES_GROUP_ID);
3449:
3450: --oe_debug_pub.add(
3451: x_interface_scredit_rec.ATTRIBUTE1 := substrb(p_line_scredit_rec.attribute1, 1, 150);
3452: x_interface_scredit_rec.ATTRIBUTE2 := substrb(p_line_scredit_rec.attribute2, 1, 150);
3453: x_interface_scredit_rec.ATTRIBUTE3 := substrb(p_line_scredit_rec.attribute3, 1, 150);
3454: x_interface_scredit_rec.ATTRIBUTE4 := substrb(p_line_scredit_rec.attribute4, 1, 150);
3465: x_interface_scredit_rec.ATTRIBUTE15 := substrb(p_line_scredit_rec.attribute15, 1, 150);
3466: x_interface_scredit_rec.ORG_ID := p_interface_line_rec.org_id;
3467:
3468: IF l_debug_level > 0 THEN
3469: oe_debug_pub.add ( 'value of sysdate '||sysdate);
3470: oe_debug_pub.add ( 'value of CREATION_DATE '||x_interface_scredit_rec.CREATION_DATE||
3471: ' value of LAST_UPDATE_DATE '|| x_interface_scredit_rec.LAST_UPDATE_DATE);
3472: END IF;
3473:
3466: x_interface_scredit_rec.ORG_ID := p_interface_line_rec.org_id;
3467:
3468: IF l_debug_level > 0 THEN
3469: oe_debug_pub.add ( 'value of sysdate '||sysdate);
3470: oe_debug_pub.add ( 'value of CREATION_DATE '||x_interface_scredit_rec.CREATION_DATE||
3471: ' value of LAST_UPDATE_DATE '|| x_interface_scredit_rec.LAST_UPDATE_DATE);
3472: END IF;
3473:
3474: IF l_debug_level > 0 THEN
3471: ' value of LAST_UPDATE_DATE '|| x_interface_scredit_rec.LAST_UPDATE_DATE);
3472: END IF;
3473:
3474: IF l_debug_level > 0 THEN
3475: oe_debug_pub.add( 'EXITING LINE PREPARE_SALESCREDIT_REC' , 5 ) ;
3476: END IF;
3477: END Prepare_Salescredit_rec;
3478:
3479: PROCEDURE Prepare_Salescredit_rec
3481: , p_interface_line_rec IN RA_Interface_Lines_Rec_Type
3482: , x_interface_scredit_rec OUT NOCOPY RA_Interface_Scredits_Rec_Type
3483: ) IS
3484: --
3485: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3486: --
3487: BEGIN
3488: IF l_debug_level > 0 THEN
3489: oe_debug_pub.add( 'ENTER HEADER PREPARE_SALESCREDIT_REC ( ) PROCEDURE ' , 5 ) ;
3485: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3486: --
3487: BEGIN
3488: IF l_debug_level > 0 THEN
3489: oe_debug_pub.add( 'ENTER HEADER PREPARE_SALESCREDIT_REC ( ) PROCEDURE ' , 5 ) ;
3490: END IF;
3491:
3492: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
3493: x_interface_scredit_rec.CREATION_DATE := INV_LE_TIMEZONE_PUB.Get_Le_Day_Time_For_Ou(sysdate,p_interface_line_rec.org_id);
3543: -- Fix for bug2185729
3544: x_interface_scredit_rec.ORG_ID := p_interface_line_rec.org_id;
3545:
3546: IF l_debug_level > 0 THEN
3547: oe_debug_pub.add ( 'value of sysdate '||sysdate);
3548: oe_debug_pub.add ( 'value of CREATION_DATE '||x_interface_scredit_rec.CREATION_DATE||
3549: ' value of LAST_UPDATE_DATE '|| x_interface_scredit_rec.LAST_UPDATE_DATE);
3550: END IF;
3551:
3544: x_interface_scredit_rec.ORG_ID := p_interface_line_rec.org_id;
3545:
3546: IF l_debug_level > 0 THEN
3547: oe_debug_pub.add ( 'value of sysdate '||sysdate);
3548: oe_debug_pub.add ( 'value of CREATION_DATE '||x_interface_scredit_rec.CREATION_DATE||
3549: ' value of LAST_UPDATE_DATE '|| x_interface_scredit_rec.LAST_UPDATE_DATE);
3550: END IF;
3551:
3552: IF l_debug_level > 0 THEN
3549: ' value of LAST_UPDATE_DATE '|| x_interface_scredit_rec.LAST_UPDATE_DATE);
3550: END IF;
3551:
3552: IF l_debug_level > 0 THEN
3553: oe_debug_pub.add( 'EXIT HEADER PREPARE_SALESCREDIT_REC ( ) PROCEDURE ' , 5 ) ;
3554: END IF;
3555: END Prepare_Salescredit_rec;
3556:
3557: PROCEDURE Prepare_Salescredit_rec
3558: ( p_interface_line_rec IN RA_Interface_Lines_Rec_Type
3559: , x_interface_scredit_rec OUT NOCOPY RA_Interface_Scredits_Rec_Type
3560: ) IS
3561: --
3562: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3563: --
3564: BEGIN
3565: IF l_debug_level > 0 THEN
3566: oe_debug_pub.add( 'ENTER PREPARE_SALESCREDIT_REC ( ) PROCEDURE' , 1 ) ;
3562: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3563: --
3564: BEGIN
3565: IF l_debug_level > 0 THEN
3566: oe_debug_pub.add( 'ENTER PREPARE_SALESCREDIT_REC ( ) PROCEDURE' , 1 ) ;
3567: END IF;
3568: --Fix for bug 2192220.
3569: Select SALES_CREDIT_TYPE_ID
3570: into x_interface_scredit_rec.SALES_CREDIT_TYPE_ID
3569: Select SALES_CREDIT_TYPE_ID
3570: into x_interface_scredit_rec.SALES_CREDIT_TYPE_ID
3571: from ra_salesreps where salesrep_id=-3;
3572: IF l_debug_level > 0 THEN
3573: oe_debug_pub.add( 'SALES_CREDIT_TYPE_ID'||X_INTERFACE_SCREDIT_REC.SALES_CREDIT_TYPE_ID ) ;
3574: END IF;
3575:
3576: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
3577: x_interface_scredit_rec.CREATION_DATE := INV_LE_TIMEZONE_PUB.Get_Le_Day_Time_For_Ou(sysdate,p_interface_line_rec.org_id);
3624: -- Fix for bug2185729
3625: x_interface_scredit_rec.ORG_ID := p_interface_line_rec.org_id;
3626:
3627: IF l_debug_level > 0 THEN
3628: oe_debug_pub.add ( 'value of sysdate '||sysdate);
3629: oe_debug_pub.add ( ' value of CREATION_DATE '||x_interface_scredit_rec.CREATION_DATE||
3630: ' value of LAST_UPDATE_DATE '|| x_interface_scredit_rec.LAST_UPDATE_DATE);
3631: END IF;
3632:
3625: x_interface_scredit_rec.ORG_ID := p_interface_line_rec.org_id;
3626:
3627: IF l_debug_level > 0 THEN
3628: oe_debug_pub.add ( 'value of sysdate '||sysdate);
3629: oe_debug_pub.add ( ' value of CREATION_DATE '||x_interface_scredit_rec.CREATION_DATE||
3630: ' value of LAST_UPDATE_DATE '|| x_interface_scredit_rec.LAST_UPDATE_DATE);
3631: END IF;
3632:
3633: IF l_debug_level > 0 THEN
3630: ' value of LAST_UPDATE_DATE '|| x_interface_scredit_rec.LAST_UPDATE_DATE);
3631: END IF;
3632:
3633: IF l_debug_level > 0 THEN
3634: oe_debug_pub.add( 'EXIT PREPARE_SALESCREDIT_REC ( ) PROCEDURE ' , 1 ) ;
3635: END IF;
3636: END Prepare_Salescredit_rec;
3637:
3638: procedure convert_to_ar(p_oe_salescredit_rec IN Ra_Interface_Scredits_Rec_Type,
3694: PROCEDURE Insert_Salescredit
3695: ( p_salescredit_rec IN Ra_Interface_Scredits_Rec_Type
3696: ) IS
3697: --
3698: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3699: --
3700: l_msg_count NUMBER;
3701: l_msg_data VARCHAR2(2000);
3702: l_return_status VARCHAR2(15);
3704: BEGIN
3705:
3706:
3707: IF l_debug_level > 0 THEN
3708: oe_debug_pub.add( 'INSERTING SALES CREDIT RECORDS ' , 5 ) ;
3709: END IF;
3710:
3711: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
3712: --OE_Invoice_Ext_Pvt.Insert_Salescredit(p_salescredit_rec);
3817: ,p_salescredit_rec.ORG_ID);
3818: END IF;
3819:
3820: IF l_debug_level > 0 THEN
3821: oe_debug_pub.add( 'SUCCESSFULLY INSERTED SALES CREDIT RECORDS' , 5 ) ;
3822: END IF;
3823: EXCEPTION WHEN OTHERS THEN
3824: IF l_debug_level > 0 THEN
3825: oe_debug_pub.add( 'UNABLE TO INSERT SALES CREDIT RECORDS -> '||SQLERRM , 1 ) ;
3821: oe_debug_pub.add( 'SUCCESSFULLY INSERTED SALES CREDIT RECORDS' , 5 ) ;
3822: END IF;
3823: EXCEPTION WHEN OTHERS THEN
3824: IF l_debug_level > 0 THEN
3825: oe_debug_pub.add( 'UNABLE TO INSERT SALES CREDIT RECORDS -> '||SQLERRM , 1 ) ;
3826: END IF;
3827: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3828: OE_MSG_PUB.Add_Exc_Msg
3829: ( G_PKG_NAME
3856: --FP bug 3872166
3857: l_total_percent NUMBER;
3858:
3859: --
3860: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3861: --
3862: BEGIN
3863: IF l_debug_level > 0 THEN
3864: oe_debug_pub.add( 'ENTER INTERFACE_SALES_CREDITS ( ) PROCEDURE ' , 5 ) ;
3860: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3861: --
3862: BEGIN
3863: IF l_debug_level > 0 THEN
3864: oe_debug_pub.add( 'ENTER INTERFACE_SALES_CREDITS ( ) PROCEDURE ' , 5 ) ;
3865: END IF;
3866: FOR i IN 1..2 LOOP
3867: IF i=1 THEN
3868: l_quota_flag := 'Y';
3866: FOR i IN 1..2 LOOP
3867: IF i=1 THEN
3868: l_quota_flag := 'Y';
3869: IF l_debug_level > 0 THEN
3870: oe_debug_pub.add( 'INSERTING QUOTA SALES CREDITS..' , 5 ) ;
3871: END IF;
3872: ELSIF i = 2 THEN
3873: l_quota_flag := 'N';
3874: IF l_debug_level > 0 THEN
3871: END IF;
3872: ELSIF i = 2 THEN
3873: l_quota_flag := 'N';
3874: IF l_debug_level > 0 THEN
3875: oe_debug_pub.add( 'INSERTING NON-QUOTA SALES CREDITS..' , 5 ) ;
3876: END IF;
3877: END IF;
3878: Query_Line_Scredits(p_line_id => p_line_rec.line_id
3879: ,p_quota_flag => l_quota_flag
3891: ,x_interface_scredit_rec => l_interface_scredit_rec);
3892: Insert_Salescredit(l_interface_scredit_rec);
3893: END LOOP;
3894: IF l_debug_level > 0 THEN
3895: oe_debug_pub.add( 'INSERTED LINE SALESCREDITS' , 1 ) ;
3896: END IF;
3897: Insert_Header_Scredits_Flag := 'N';
3898: ELSE -- Line has no sales credits
3899: IF p_line_rec.item_type_code = 'SERVICE' AND p_line_rec.service_reference_line_id IS NOT NULL THEN -- line is service and has parent
3897: Insert_Header_Scredits_Flag := 'N';
3898: ELSE -- Line has no sales credits
3899: IF p_line_rec.item_type_code = 'SERVICE' AND p_line_rec.service_reference_line_id IS NOT NULL THEN -- line is service and has parent
3900: IF l_debug_level > 0 THEN
3901: oe_debug_pub.add( 'RETRIEVING CUSTOMER PRODUCT LINE ID' ) ;
3902: END IF;
3903: IF p_line_rec.service_reference_type_code = 'CUSTOMER_PRODUCT' THEN
3904: /* Commenting for bug# 5032978
3905: OE_SERVICE_UTIL.Get_Cust_Product_Line_Id
3909: ,x_cust_product_line_id=> l_order_line_id
3910: );
3911: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
3912: IF l_debug_level > 0 THEN
3913: oe_debug_pub.add( 'CUSTOMER PRODUCT LINE ID -> ' || L_ORDER_LINE_ID , 5 ) ;
3914: END IF;
3915: l_service_reference_line_id := l_order_line_id;
3916: ELSE
3917: IF l_debug_level > 0 THEN
3914: END IF;
3915: l_service_reference_line_id := l_order_line_id;
3916: ELSE
3917: IF l_debug_level > 0 THEN
3918: oe_debug_pub.add( 'UNABLE TO RETRIEVE CUSTOMER PRODUCT LINE ID' , 1 ) ;
3919: END IF;
3920: RAISE NO_DATA_FOUND;
3921: END IF;
3922: end commenting for bug# 5032978 */
3942: ,x_interface_scredit_rec => l_interface_scredit_rec);
3943: Insert_Salescredit(l_interface_scredit_rec);
3944: END LOOP;
3945: IF l_debug_level > 0 THEN
3946: oe_debug_pub.add( 'INSERTED SERVICE PARENT LINE SALESCREDITS' , 1 ) ;
3947: END IF;
3948: Insert_Header_Scredits_Flag := 'N';
3949: ELSE -- Service parent has no sales credits
3950: -- Check if service parent has parent (In case if service parent is an option, class, kit etc)
3955: WHERE line_id = l_service_reference_line_id;
3956: EXCEPTION
3957: WHEN NO_DATA_FOUND THEN
3958: IF l_debug_level > 0 THEN
3959: oe_debug_pub.add( 'UNABLE TO GET SERVICE GRAND PARENT ITEM' , 1);
3960: END IF;
3961: service_grand_parent_id := NULL;
3962: END;
3963: IF (nvl(service_grand_parent_id,0) <> 0 AND service_grand_parent_id <> l_service_reference_line_id) THEN
3977: ,x_interface_scredit_rec => l_interface_scredit_rec);
3978: Insert_Salescredit(l_interface_scredit_rec);
3979: END LOOP;
3980: IF l_debug_level > 0 THEN
3981: oe_debug_pub.add( 'INSERTED SERVICE GRAND PARENT LINE SALESCREDITS' , 1 ) ;
3982: END IF;
3983: Insert_Header_Scredits_Flag := 'N';
3984: ELSE -- Service grand parent has no sales credits
3985: --Get header sales credits
4009: ,x_interface_scredit_rec => l_interface_scredit_rec);
4010: Insert_Salescredit(l_interface_scredit_rec);
4011: END LOOP;
4012: IF l_debug_level > 0 THEN
4013: oe_debug_pub.add( 'INSERTED PARENT LINE SALESCREDITS' , 1 ) ;
4014: END IF;
4015: Insert_Header_Scredits_Flag := 'N';
4016: ELSE -- parent has no sales credits
4017: -- Prepare and insert header sales credits
4035: ,x_interface_scredit_rec => l_interface_scredit_rec);
4036: Insert_Salescredit(l_interface_scredit_rec);
4037: END LOOP;
4038: IF l_debug_level > 0 THEN
4039: oe_debug_pub.add( 'INSERTED HEADER SALESCREDITS' , 1 ) ;
4040: END IF;
4041: Insert_Header_Scredits_Flag := 'N';
4042: END IF;
4043: END IF;
4043: END IF;
4044: END LOOP;
4045: x_return_status := FND_API.G_RET_STS_SUCCESS;
4046: IF l_debug_level > 0 THEN
4047: oe_debug_pub.add( 'INTERFACE_SALES_CREDITS ( ) PROCDURE SUCCESS : '||X_RETURN_STATUS , 1 ) ;
4048: END IF;
4049: EXCEPTION
4050: WHEN OTHERS THEN
4051: IF l_debug_level > 0 THEN
4048: END IF;
4049: EXCEPTION
4050: WHEN OTHERS THEN
4051: IF l_debug_level > 0 THEN
4052: oe_debug_pub.add( 'EXCEPTION INTERFACE_SALES_CREDITS ( ) '||SQLERRM , 1 ) ;
4053: END IF;
4054: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4055: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4056: THEN
4070: l_interface_scredit_rec RA_Interface_Scredits_Rec_Type;
4071: l_cr_srep_for_freight VARCHAR2(30); --moac moving the initialization to the body
4072: l_return_status VARCHAR2(30);
4073: --
4074: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4075: --
4076: BEGIN
4077: IF l_debug_level > 0 THEN
4078: oe_debug_pub.add( 'INTERFACING SALES CREDITS FOR FREIGHT' , 5 ) ;
4074: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4075: --
4076: BEGIN
4077: IF l_debug_level > 0 THEN
4078: oe_debug_pub.add( 'INTERFACING SALES CREDITS FOR FREIGHT' , 5 ) ;
4079: END IF;
4080: --moac
4081: l_cr_srep_for_freight := NVL(OE_SYS_PARAMETERS.value('WSH_CR_SREP_FOR_FREIGHT',p_line_rec.org_id), 'N');
4082: -- If the profile option 'OM: Credit Salesperson for Freight on Sales'
4109: ,x_interface_scredit_rec => l_interface_scredit_rec);
4110: Insert_Salescredit(l_interface_scredit_rec);
4111: END IF;
4112: IF l_debug_level > 0 THEN
4113: oe_debug_pub.add( 'INTERFACE SALES CREDITS FOR FREIGHT SUCCESSFULLY ' , 5 ) ;
4114: END IF;
4115: EXCEPTION
4116: WHEN OTHERS THEN
4117: IF l_debug_level > 0 THEN
4114: END IF;
4115: EXCEPTION
4116: WHEN OTHERS THEN
4117: IF l_debug_level > 0 THEN
4118: oe_debug_pub.add( 'EXCEPTION , INTERFACE SALES CREDITS FOR FREIGHT '||SQLERRM , 1 ) ;
4119: END IF;
4120: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4121: THEN
4122: OE_MSG_PUB.Add_Exc_Msg
4160: ) IS
4161: l_revrec_event_code VARCHAR2(30);
4162: l_expiration_days NUMBER;
4163: --
4164: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4165: --
4166: BEGIN
4167: IF l_debug_level > 0 THEN
4168: oe_debug_pub.add( 'ENTER PREPARE_CONTINGENCIES_REC ( ) PROCEDURE' , 5 ) ;
4164: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4165: --
4166: BEGIN
4167: IF l_debug_level > 0 THEN
4168: oe_debug_pub.add( 'ENTER PREPARE_CONTINGENCIES_REC ( ) PROCEDURE' , 5 ) ;
4169: END IF;
4170:
4171: OE_ACCEPTANCE_UTIL.Get_Contingency_attributes
4172: (p_line_rec => p_line_rec
4175: ,x_revrec_expiration_days => l_expiration_days);
4176:
4177: IF x_interface_conts_rec.contingency_id IS NULL THEN
4178: IF l_debug_level > 0 THEN
4179: oe_debug_pub.add( 'Returning from prepare_contingencies - no contingency');
4180: END IF;
4181: RETURN;
4182: END IF;
4183: x_interface_conts_rec.CREATION_DATE := INV_LE_TIMEZONE_PUB.Get_Le_Day_Time_For_Ou(sysdate,p_interface_line_rec.org_id);
4216: x_interface_conts_rec.org_id := p_line_rec.org_id;
4217: x_interface_conts_rec.completed_by := p_line_rec.accepted_by;
4218:
4219: IF l_debug_level > 0 THEN
4220: oe_debug_pub.add( 'EXITING PREPARE_CONTINGENCY_REC' , 5 ) ;
4221: END IF;
4222: END Prepare_Contingency_rec;
4223:
4224: PROCEDURE Insert_Contingency
4224: PROCEDURE Insert_Contingency
4225: ( p_contingency_rec IN Ra_Interface_Conts_Rec_Type
4226: ) IS
4227: --
4228: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4229: --
4230: l_msg_count NUMBER;
4231: l_msg_data VARCHAR2(2000);
4232: l_return_status VARCHAR2(15);
4233:
4234: BEGIN
4235:
4236: IF l_debug_level > 0 THEN
4237: oe_debug_pub.add( 'INSERTING CONTINGENCY RECORDS ' , 5 ) ;
4238: END IF;
4239:
4240: INSERT INTO AR_INTERFACE_CONTS_ALL
4241: (CREATED_BY
4296: , p_contingency_rec.completed_by
4297: ,p_contingency_rec.ORG_ID);
4298:
4299: IF l_debug_level > 0 THEN
4300: oe_debug_pub.add( 'SUCCESSFULLY INSERTED CONTINGENCY RECORDS' , 5 ) ;
4301: END IF;
4302: EXCEPTION WHEN OTHERS THEN
4303: IF l_debug_level > 0 THEN
4304: oe_debug_pub.add( 'UNABLE TO INSERT CONTINGENCY RECORDS -> '||SQLERRM , 1 ) ;
4300: oe_debug_pub.add( 'SUCCESSFULLY INSERTED CONTINGENCY RECORDS' , 5 ) ;
4301: END IF;
4302: EXCEPTION WHEN OTHERS THEN
4303: IF l_debug_level > 0 THEN
4304: oe_debug_pub.add( 'UNABLE TO INSERT CONTINGENCY RECORDS -> '||SQLERRM , 1 ) ;
4305: END IF;
4306: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4307: OE_MSG_PUB.Add_Exc_Msg
4308: ( G_PKG_NAME
4321: IS
4322: l_interface_conts_rec RA_Interface_Conts_Rec_Type;
4323: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
4324: --
4325: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4326: --
4327: BEGIN
4328: IF l_debug_level > 0 THEN
4329: oe_debug_pub.add( 'ENTER INTERFACE_CONTINGENCIES ( ) PROCEDURE ' , 5 ) ;
4325: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4326: --
4327: BEGIN
4328: IF l_debug_level > 0 THEN
4329: oe_debug_pub.add( 'ENTER INTERFACE_CONTINGENCIES ( ) PROCEDURE ' , 5 ) ;
4330: END IF;
4331:
4332: IF NVL(OE_SYS_PARAMETERS.VALUE('ENABLE_FULFILLMENT_ACCEPTANCE'), 'N') = 'N' THEN
4333: IF l_debug_level > 0 THEN
4330: END IF;
4331:
4332: IF NVL(OE_SYS_PARAMETERS.VALUE('ENABLE_FULFILLMENT_ACCEPTANCE'), 'N') = 'N' THEN
4333: IF l_debug_level > 0 THEN
4334: oe_debug_pub.add( 'Acceptance not enabled, Not interfacing Contingency details');
4335: END IF;
4336: -- Do not interface acceptance details
4337: RETURN;
4338: END IF;
4344: );
4345:
4346: IF l_interface_conts_rec.contingency_id IS NOT NULL THEN
4347: IF l_debug_level > 0 THEN
4348: oe_debug_pub.add( 'Interfacing Contingency details');
4349: END IF;
4350: Insert_Contingency(l_interface_conts_rec);
4351: ELSE
4352: IF l_debug_level > 0 THEN
4349: END IF;
4350: Insert_Contingency(l_interface_conts_rec);
4351: ELSE
4352: IF l_debug_level > 0 THEN
4353: oe_debug_pub.add( 'No Contingency on the line, Not interfacing Contingency details');
4354: END IF;
4355: RETURN;
4356: END IF;
4357: x_return_status := l_return_status;
4355: RETURN;
4356: END IF;
4357: x_return_status := l_return_status;
4358: IF l_debug_level > 0 THEN
4359: oe_debug_pub.add( 'INTERFACE_CONTINGENCIES ( ) PROCDURE SUCCESS : '||l_RETURN_STATUS , 1 ) ;
4360: END IF;
4361: EXCEPTION
4362: WHEN OTHERS THEN
4363: IF l_debug_level > 0 THEN
4360: END IF;
4361: EXCEPTION
4362: WHEN OTHERS THEN
4363: IF l_debug_level > 0 THEN
4364: oe_debug_pub.add( 'EXCEPTION INTERFACE_CONTINGENCIES ( ) '||SQLERRM , 1 ) ;
4365: END IF;
4366: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4367: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4368: THEN
4386: l_ind_line_tot NUMBER;
4387: l_ind_disc_tot NUMBER;
4388: l_comb_ind_line_tots NUMBER;
4389: --
4390: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4391: --
4392: l_header_id NUMBER;
4393: l_line_id NUMBER;
4394: BEGIN
4392: l_header_id NUMBER;
4393: l_line_id NUMBER;
4394: BEGIN
4395: IF l_debug_level > 0 THEN
4396: oe_debug_pub.add( 'ENTER GET_ROUNDING_DIFF ( ) PROCEDURE' , 5 ) ;
4397: END IF;
4398:
4399: -- Removed the previous call to get_line_adjustments as adjustment table is passed now
4400:
4398:
4399: -- Removed the previous call to get_line_adjustments as adjustment table is passed now
4400:
4401: IF l_debug_level > 0 THEN
4402: oe_debug_pub.add( 'p_adjustments_tbl.COUNT:'||p_adjustments_tbl.COUNT);
4403: END IF;
4404:
4405: -- 3685479 Replaced call to show_detail_discounts by the foll IF
4406: IF (oe_sys_parameters.value('OE_DISCOUNT_DETAILS_ON_INVOICE',p_line_rec.org_id) = 'Y' AND p_adjustments_tbl.COUNT > 0) THEN --moac
4408: Rounded_Amount(p_currency_code => p_interface_line_rec.currency_code
4409: ,p_unrounded_amount => (p_line_rec.unit_selling_price * p_interface_line_rec.quantity)
4410: ,x_rounded_amount => l_line_tot_amount);
4411: IF l_debug_level > 0 THEN
4412: oe_debug_pub.add( 'LINE TOTAL WHEN SHOW DISCOUNTS PROFILE IS OFF: '||L_LINE_TOT_AMOUNT , 5 ) ;
4413: END IF;
4414: -- get line total when the profile is on
4415: Rounded_Amount(p_currency_code => p_interface_line_rec.currency_code
4416: ,p_unrounded_amount => (p_line_rec.unit_list_price * p_interface_line_rec.quantity)
4415: Rounded_Amount(p_currency_code => p_interface_line_rec.currency_code
4416: ,p_unrounded_amount => (p_line_rec.unit_list_price * p_interface_line_rec.quantity)
4417: ,x_rounded_amount => l_ind_line_tot);
4418: IF l_debug_level > 0 THEN
4419: oe_debug_pub.add( 'LINE TOTAL WHEN SHOW DISCOUNTS PROFILE IS ON: '||L_IND_LINE_TOT , 5 ) ;
4420: END IF;
4421: IF p_adjustments_tbl.COUNT <> 0 THEN
4422: FOR I IN 1..p_adjustments_tbl.COUNT LOOP
4423: l_adjustments_rec := p_adjustments_tbl(I);
4424: Rounded_Amount(p_currency_code => p_interface_line_rec.currency_code
4425: ,p_unrounded_amount => (l_adjustments_rec.unit_discount_amount * p_interface_line_rec.quantity * -1)
4426: ,x_rounded_amount => l_ind_disc_tot);
4427: IF l_debug_level > 0 THEN
4428: oe_debug_pub.add( 'PROCESSING RECORD# '||I|| ': '||'DISCOUNT LINE TOTAL FOR ADJ_ID= '||L_ADJUSTMENTS_REC.PRICE_ADJUSTMENT_ID||': ' ||L_IND_DISC_TOT , 5 ) ;
4429: END IF;
4430: l_ind_line_tot := l_ind_line_tot + l_ind_disc_tot;
4431: IF l_debug_level > 0 THEN
4432: oe_debug_pub.add( 'INTERMEDIATE TOTAL: '||L_IND_LINE_TOT , 5 ) ;
4428: oe_debug_pub.add( 'PROCESSING RECORD# '||I|| ': '||'DISCOUNT LINE TOTAL FOR ADJ_ID= '||L_ADJUSTMENTS_REC.PRICE_ADJUSTMENT_ID||': ' ||L_IND_DISC_TOT , 5 ) ;
4429: END IF;
4430: l_ind_line_tot := l_ind_line_tot + l_ind_disc_tot;
4431: IF l_debug_level > 0 THEN
4432: oe_debug_pub.add( 'INTERMEDIATE TOTAL: '||L_IND_LINE_TOT , 5 ) ;
4433: END IF;
4434: END LOOP;
4435: Rounded_Amount(p_currency_code => p_interface_line_rec.currency_code
4436: ,p_unrounded_amount => l_ind_line_tot
4435: Rounded_Amount(p_currency_code => p_interface_line_rec.currency_code
4436: ,p_unrounded_amount => l_ind_line_tot
4437: ,x_rounded_amount => l_comb_ind_line_tots);
4438: IF l_debug_level > 0 THEN
4439: oe_debug_pub.add( 'ROUNDED TOTAL FOR THE LINE WHEN SHOW DISCOUNTS IS ON => '||L_COMB_IND_LINE_TOTS , 5 ) ;
4440: END IF;
4441: END IF;
4442: IF l_line_tot_amount = l_comb_ind_line_tots THEN
4443: x_rounding_diff := NULL;
4446: x_rounding_diff := l_line_tot_amount - l_comb_ind_line_tots;
4447: END IF;
4448: END IF;
4449: IF l_debug_level > 0 THEN
4450: oe_debug_pub.add( 'EXIT GET_ROUNDING_DIFF ( ) WITH ROUNDING DIFFERENCE : '||X_ROUNDING_DIFF , 5 ) ;
4451: END IF;
4452: EXCEPTION
4453: WHEN OTHERS THEN
4454: IF l_debug_level > 0 THEN
4451: END IF;
4452: EXCEPTION
4453: WHEN OTHERS THEN
4454: IF l_debug_level > 0 THEN
4455: oe_debug_pub.add( 'EXCEPTION , ROUNDING DIFFERENCE '||SQLERRM , 1 ) ;
4456: END IF;
4457: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4458: THEN
4459: OE_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,'Get_Rounding_Diff');
4484: select header_id, line_id
4485: from oe_order_lines_all
4486: where line_id = c_line_id;
4487: --
4488: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4489: --
4490: l_header_id NUMBER;
4491: l_line_id NUMBER;
4492: BEGIN
4490: l_header_id NUMBER;
4491: l_line_id NUMBER;
4492: BEGIN
4493: IF l_debug_level > 0 THEN
4494: oe_debug_pub.add( 'ENTERING INTERFACE_DETAIL_DISCOUNTS ( ) PROCEDURE ' , 5 ) ;
4495: END IF;
4496: -- 3661895 The IF will be true only for return retrobilled RMA, all others will go through else
4497: -- RT{
4498: IF (p_line_rec.line_category_code = 'RETURN'
4542: -- Quantity comes with the correct creation sign from the interface_line record. No need to adjust here
4543: l_discounts_rec.Unit_Selling_Price := l_adjustments_rec.unit_discount_amount * -1;
4544: l_discounts_rec.Unit_Standard_Price := l_adjustments_rec.unit_discount_amount * -1;
4545: IF l_debug_level > 0 THEN
4546: oe_debug_pub.add( 'ORIGINAL UNIT DISCOUNT AMOUNT : '||L_ADJUSTMENTS_REC.UNIT_DISCOUNT_AMOUNT , 5 ) ;
4547: END IF;
4548: Rounded_Amount(p_currency_code => l_discounts_rec.currency_code
4549: ,p_unrounded_amount => (l_discounts_rec.unit_selling_price * l_discounts_rec.quantity)
4550: ,x_rounded_amount => l_discounts_rec.amount);
4548: Rounded_Amount(p_currency_code => l_discounts_rec.currency_code
4549: ,p_unrounded_amount => (l_discounts_rec.unit_selling_price * l_discounts_rec.quantity)
4550: ,x_rounded_amount => l_discounts_rec.amount);
4551: IF l_debug_level > 0 THEN
4552: oe_debug_pub.add( 'DISCOUNT UNIT_SELLING_PRICE: '||L_DISCOUNTS_REC.UNIT_SELLING_PRICE , 5 ) ;
4553: oe_debug_pub.add( 'DISCOUNT UNIT_STANDARD_PRICE: '||L_DISCOUNTS_REC.UNIT_STANDARD_PRICE , 5 ) ;
4554: oe_debug_pub.add( 'DISCOUNT AMOUNT: '||L_DISCOUNTS_REC.AMOUNT , 5 ) ;
4555: END IF;
4556: IF l_rounding_diff_applied = 'N' THEN
4549: ,p_unrounded_amount => (l_discounts_rec.unit_selling_price * l_discounts_rec.quantity)
4550: ,x_rounded_amount => l_discounts_rec.amount);
4551: IF l_debug_level > 0 THEN
4552: oe_debug_pub.add( 'DISCOUNT UNIT_SELLING_PRICE: '||L_DISCOUNTS_REC.UNIT_SELLING_PRICE , 5 ) ;
4553: oe_debug_pub.add( 'DISCOUNT UNIT_STANDARD_PRICE: '||L_DISCOUNTS_REC.UNIT_STANDARD_PRICE , 5 ) ;
4554: oe_debug_pub.add( 'DISCOUNT AMOUNT: '||L_DISCOUNTS_REC.AMOUNT , 5 ) ;
4555: END IF;
4556: IF l_rounding_diff_applied = 'N' THEN
4557: IF (l_discounts_rec.quantity = 0 OR l_discounts_rec.amount = 0) THEN
4550: ,x_rounded_amount => l_discounts_rec.amount);
4551: IF l_debug_level > 0 THEN
4552: oe_debug_pub.add( 'DISCOUNT UNIT_SELLING_PRICE: '||L_DISCOUNTS_REC.UNIT_SELLING_PRICE , 5 ) ;
4553: oe_debug_pub.add( 'DISCOUNT UNIT_STANDARD_PRICE: '||L_DISCOUNTS_REC.UNIT_STANDARD_PRICE , 5 ) ;
4554: oe_debug_pub.add( 'DISCOUNT AMOUNT: '||L_DISCOUNTS_REC.AMOUNT , 5 ) ;
4555: END IF;
4556: IF l_rounding_diff_applied = 'N' THEN
4557: IF (l_discounts_rec.quantity = 0 OR l_discounts_rec.amount = 0) THEN
4558: IF l_debug_level > 0 THEN
4555: END IF;
4556: IF l_rounding_diff_applied = 'N' THEN
4557: IF (l_discounts_rec.quantity = 0 OR l_discounts_rec.amount = 0) THEN
4558: IF l_debug_level > 0 THEN
4559: oe_debug_pub.add( 'NOT APPLYING ROUNDING DIFF TO THIS DISCOUNT' ) ;
4560: END IF;
4561: ELSE
4562: -- 3685479 Changed signature to pass adjustments table
4563: Get_Rounding_Diff(p_line_rec => p_line_rec
4566: , x_rounding_diff => l_rounding_diff);
4567: IF (l_rounding_diff IS NOT NULL AND l_rounding_diff <> 0) THEN
4568: l_discounts_rec.amount := l_discounts_rec.amount + l_rounding_diff;
4569: IF l_debug_level > 0 THEN
4570: oe_debug_pub.add( 'DISCOUNT TOTAL AFTER ADDING ROUNDING DIFF: '||L_DISCOUNTS_REC.AMOUNT , 5 ) ;
4571: END IF;
4572:
4573: Rounded_Amount(p_currency_code => l_discounts_rec.currency_code
4574: ,p_unrounded_amount => l_discounts_rec.amount
4576:
4577: l_discounts_rec.amount := l_rounded_amount;
4578:
4579: IF l_debug_level > 0 THEN
4580: oe_debug_pub.add( 'DISCOUNT TOTAL AFTER ADDING ROUNDING DIFF AND ROUNDING: '||L_DISCOUNTS_REC.AMOUNT , 5 ) ;
4581: END IF;
4582: l_discounts_rec.unit_selling_price := l_discounts_rec.amount /l_discounts_rec.quantity;
4583: IF l_debug_level > 0 THEN
4584: oe_debug_pub.add( 'DISCOUNT UNIT_SELLING_PRICE AFTER ADDING ROUNDING DIFF: '||L_DISCOUNTS_REC.UNIT_SELLING_PRICE , 5 ) ;
4580: oe_debug_pub.add( 'DISCOUNT TOTAL AFTER ADDING ROUNDING DIFF AND ROUNDING: '||L_DISCOUNTS_REC.AMOUNT , 5 ) ;
4581: END IF;
4582: l_discounts_rec.unit_selling_price := l_discounts_rec.amount /l_discounts_rec.quantity;
4583: IF l_debug_level > 0 THEN
4584: oe_debug_pub.add( 'DISCOUNT UNIT_SELLING_PRICE AFTER ADDING ROUNDING DIFF: '||L_DISCOUNTS_REC.UNIT_SELLING_PRICE , 5 ) ;
4585: END IF;
4586: END IF;
4587: l_rounding_diff_applied := 'Y';
4588: END IF;
4590: l_discounts_rec.Fob_Point := NULL;
4591: -- l_discounts_rec.Ship_Via := NULL; -- for bug# 5024577
4592: -- l_discounts_rec.Waybill_Number := NULL; --bug 5843869
4593: IF l_debug_level > 0 THEN
4594: oe_debug_pub.add( 'REFERENCE LINE_ID '||L_DISCOUNTS_REC.REFERENCE_LINE_ID , 5 ) ;
4595: oe_debug_pub.add( 'LINE CATEGORY CODE '||P_LINE_REC.LINE_CATEGORY_CODE , 5 ) ;
4596: END IF;
4597: IF p_line_rec.line_category_code = 'RETURN' AND l_discounts_rec.reference_line_id IS NOT NULL THEN
4598: -- 3645784
4591: -- l_discounts_rec.Ship_Via := NULL; -- for bug# 5024577
4592: -- l_discounts_rec.Waybill_Number := NULL; --bug 5843869
4593: IF l_debug_level > 0 THEN
4594: oe_debug_pub.add( 'REFERENCE LINE_ID '||L_DISCOUNTS_REC.REFERENCE_LINE_ID , 5 ) ;
4595: oe_debug_pub.add( 'LINE CATEGORY CODE '||P_LINE_REC.LINE_CATEGORY_CODE , 5 ) ;
4596: END IF;
4597: IF p_line_rec.line_category_code = 'RETURN' AND l_discounts_rec.reference_line_id IS NOT NULL THEN
4598: -- 3645784
4599: -- RT{Retrobill Lines with line type return will not have reference information populated
4600: -- So setting the reference info with original order Header_id and Line_id
4601: IF ( p_line_rec.order_source_id = 27) THEN
4602: l_ref_header_id := to_number(p_line_rec.orig_sys_document_ref);
4603: l_ref_line_id := to_number(p_line_rec.orig_sys_line_ref);
4604: oe_debug_pub.add('Retro:After setting reference line id');
4605: ELSE
4606: FOR order_info_rec in order_info(p_line_rec.reference_line_id) loop
4607: l_ref_header_id := order_info_rec.header_id;
4608: l_ref_line_id := order_info_rec.line_id;
4607: l_ref_header_id := order_info_rec.header_id;
4608: l_ref_line_id := order_info_rec.line_id;
4609: END LOOP;
4610: END IF;
4611: oe_debug_pub.add('l_ref_header_id'||l_ref_header_id);
4612: oe_debug_pub.add('l_ref_line_id'||l_ref_line_id);
4613: BEGIN
4614: SELECT dis.customer_trx_line_id
4615: INTO l_reference_line_id
4608: l_ref_line_id := order_info_rec.line_id;
4609: END LOOP;
4610: END IF;
4611: oe_debug_pub.add('l_ref_header_id'||l_ref_header_id);
4612: oe_debug_pub.add('l_ref_line_id'||l_ref_line_id);
4613: BEGIN
4614: SELECT dis.customer_trx_line_id
4615: INTO l_reference_line_id
4616: FROM RA_CUSTOMER_TRX_LINES_ALL DIS,
4633: WHEN OTHERS THEN
4634: -- 3661895 l_reference_line_id must be cleared when the sql fails
4635: l_reference_line_id := NULL;
4636: IF l_debug_level > 0 THEN
4637: oe_debug_pub.add( 'FAILED TO INSERT DISCOUNT RECORDS FOR THE RETURN LINES '||SQLERRM , 1 ) ;
4638: END IF;
4639: -- Added for the FP bug #3802957
4640: l_reference_line_id := l_discounts_rec.Reference_Line_Id;
4641: NULL;
4641: NULL;
4642: END;
4643: l_discounts_rec.Reference_Line_Id := l_reference_line_id;
4644: IF l_debug_level > 0 THEN
4645: oe_debug_pub.add( 'REFERENCE LINE_ID FOR DISCOUNT LINE : '||L_DISCOUNTS_REC.REFERENCE_LINE_ID , 5 ) ;
4646: END IF;
4647: END IF;
4648: -- l_discounts_rec.Reference_Line_Id := NULL;
4649: l_discounts_rec.PROMISED_COMMITMENT_AMOUNT := 0; -- For bug 6798675 NULL;
4694: END IF;
4695: -- Fix for the bug 2187074
4696: x_return_status := FND_API.G_RET_STS_SUCCESS;
4697: IF l_debug_level > 0 THEN
4698: oe_debug_pub.add( 'EXITING INTERFACE_DETAIL_DISCOUNTS ( ) PROCEDURE ' , 5 ) ;
4699: END IF;
4700:
4701: EXCEPTION
4702: WHEN OTHERS THEN
4700:
4701: EXCEPTION
4702: WHEN OTHERS THEN
4703: IF l_debug_level > 0 THEN
4704: oe_debug_pub.add( 'EXCEPTION IN INTERFACE_DETAIL_DISCOUNTS '||SQLERRM , 1 ) ;
4705: END IF;
4706: -- Fix for the bug 2187074
4707: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4708: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4722: l_return_status VARCHAR2(30);
4723: l_notify_index NUMBER; -- jolin
4724:
4725: --
4726: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4727: --
4728: BEGIN
4729: IF l_debug_level > 0 THEN
4730: oe_debug_pub.add( 'ENTERING UPDATE_INVOICED_FLAG' , 1 ) ;
4726: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4727: --
4728: BEGIN
4729: IF l_debug_level > 0 THEN
4730: oe_debug_pub.add( 'ENTERING UPDATE_INVOICED_FLAG' , 1 ) ;
4731: END IF;
4732: OE_Header_Adj_Util.Lock_Rows
4733: (P_PRICE_ADJUSTMENT_ID=>p_price_adjustment_id,
4734: X_HEADER_ADJ_TBL=>l_old_header_adj_tbl,
4739: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4740: END IF;
4741: l_Header_Adj_tbl := l_old_Header_Adj_Tbl;
4742:
4743: oe_debug_pub.add('Charges Amount '||p_adjusted_amount);
4744: oe_debug_pub.add('Invoiced Amount'||p_invoiced_amount);
4745:
4746: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
4747: UPDATE OE_PRICE_ADJUSTMENTS
4740: END IF;
4741: l_Header_Adj_tbl := l_old_Header_Adj_Tbl;
4742:
4743: oe_debug_pub.add('Charges Amount '||p_adjusted_amount);
4744: oe_debug_pub.add('Invoiced Amount'||p_invoiced_amount);
4745:
4746: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
4747: UPDATE OE_PRICE_ADJUSTMENTS
4748: SET INVOICED_FLAG = 'Y'
4781: , x_index => l_notify_index
4782: , x_return_status => l_return_status);
4783:
4784: IF l_debug_level > 0 THEN
4785: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FOR HDR ADJ IS: ' || L_RETURN_STATUS ) ;
4786: oe_debug_pub.add( 'HDR ADJ INDEX IS: ' || L_NOTIFY_INDEX , 1 ) ;
4787: END IF;
4788:
4789: IF l_notify_index is not null then
4782: , x_return_status => l_return_status);
4783:
4784: IF l_debug_level > 0 THEN
4785: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FOR HDR ADJ IS: ' || L_RETURN_STATUS ) ;
4786: oe_debug_pub.add( 'HDR ADJ INDEX IS: ' || L_NOTIFY_INDEX , 1 ) ;
4787: END IF;
4788:
4789: IF l_notify_index is not null then
4790: -- modify Global Picture
4803: OE_ORDER_UTIL.g_header_adj_tbl(l_notify_index).line_id:=
4804: l_header_adj_tbl(1).line_id;
4805:
4806: IF l_debug_level > 0 THEN
4807: oe_debug_pub.add( 'GLOBAL HDR ADJ INVOICED_FLAG IS: ' || OE_ORDER_UTIL.G_HEADER_ADJ_TBL ( L_NOTIFY_INDEX ) .INVOICED_FLAG , 1 ) ;
4808: oe_debug_pub.add( 'GLOBAL HDR ADJ LOCK_CONTROL IS: ' || OE_ORDER_UTIL.G_HEADER_ADJ_TBL ( L_NOTIFY_INDEX ) .LOCK_CONTROL , 1 ) ;
4809:
4810: END IF;
4811:
4804: l_header_adj_tbl(1).line_id;
4805:
4806: IF l_debug_level > 0 THEN
4807: oe_debug_pub.add( 'GLOBAL HDR ADJ INVOICED_FLAG IS: ' || OE_ORDER_UTIL.G_HEADER_ADJ_TBL ( L_NOTIFY_INDEX ) .INVOICED_FLAG , 1 ) ;
4808: oe_debug_pub.add( 'GLOBAL HDR ADJ LOCK_CONTROL IS: ' || OE_ORDER_UTIL.G_HEADER_ADJ_TBL ( L_NOTIFY_INDEX ) .LOCK_CONTROL , 1 ) ;
4809:
4810: END IF;
4811:
4812: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4814: END IF;
4815:
4816: -- Process requests is TRUE so still need to call it, but don't need to notify
4817: IF l_debug_level > 0 THEN
4818: oe_debug_pub.add( 'OEXPINVB: HDRADJ BEFORE CALLING PROCESS_REQUESTS_AND_NOTIFY' ) ;
4819: END IF;
4820: OE_Order_PVT.PROCESS_REQUESTS_AND_NOTIFY(
4821: P_HEADER_ADJ_TBL =>l_Header_Adj_tbl,
4822: P_OLD_HEADER_ADJ_TBL =>l_Old_Header_Adj_tbl,
4832:
4833: ELSE /* pre-pack H */
4834:
4835: IF l_debug_level > 0 THEN
4836: oe_debug_pub.add( 'OEXPINVB: HDRADJ BEFORE CALLING PROCESS_REQUESTS_AND_NOTIFY' ) ;
4837: END IF;
4838: OE_Order_PVT.PROCESS_REQUESTS_AND_NOTIFY(
4839: P_HEADER_ADJ_TBL =>l_Header_Adj_tbl,
4840: P_OLD_HEADER_ADJ_TBL =>l_Old_Header_Adj_tbl,
4849: END IF; /* code set is pack H or higher */
4850: /* jolin end*/
4851:
4852: IF l_debug_level > 0 THEN
4853: oe_debug_pub.add( 'EXIT UPDATE_INVOICED_FLAG ( ) PROCEDURE' , 1 ) ;
4854: END IF;
4855:
4856: EXCEPTION
4857: WHEN OTHERS THEN
4895: (select language_code
4896: from fnd_languages
4897: where installed_flag = 'B');
4898: --
4899: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4900: --
4901: BEGIN
4902: IF l_debug_level > 0 THEN
4903: oe_debug_pub.add( 'ENTER PREPARE_FREIGHT_CHARGES_REC ( ) PROCEDURE ' , 5 ) ;
4899: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4900: --
4901: BEGIN
4902: IF l_debug_level > 0 THEN
4903: oe_debug_pub.add( 'ENTER PREPARE_FREIGHT_CHARGES_REC ( ) PROCEDURE ' , 5 ) ;
4904: oe_debug_pub.add( 'PREPARING FOR CHARGE ID : '|| P_X_CHARGES_REC.INTERFACE_LINE_ATTRIBUTE6 ) ;
4905: END IF;
4906:
4907: -- Do not set mandatory grouping columns to different value than order line.
4900: --
4901: BEGIN
4902: IF l_debug_level > 0 THEN
4903: oe_debug_pub.add( 'ENTER PREPARE_FREIGHT_CHARGES_REC ( ) PROCEDURE ' , 5 ) ;
4904: oe_debug_pub.add( 'PREPARING FOR CHARGE ID : '|| P_X_CHARGES_REC.INTERFACE_LINE_ATTRIBUTE6 ) ;
4905: END IF;
4906:
4907: -- Do not set mandatory grouping columns to different value than order line.
4908: -- This can cause freight charges to group into different invoice (if values
4916: p_x_charges_rec.INTERFACE_LINE_ATTRIBUTE14 := lpad('0', 30); -- service number
4917: -- l_vat_flag := NVL(FND_PROFILE.VALUE('AR_ALLOW_TAX_CODE_OVERRIDE'), 'N');
4918: l_freight_as_line := NVL(oe_sys_parameters.value('OE_INVOICE_FREIGHT_AS_LINE',p_line_rec.org_id), 'N'); --moac
4919: IF l_debug_level > 0 THEN
4920: oe_debug_pub.add( 'INVOICE FREIGHT AS REVENUE '||L_FREIGHT_AS_LINE ) ;
4921: END IF;
4922: l_freight_item := oe_sys_parameters.value('OE_INVENTORY_ITEM_FOR_FREIGHT',p_line_rec.org_id); --moac
4923: /* VAT on freight
4924: if vat_flag = 'Y'
4987: p_x_charges_rec.Tax_Exempt_Reason_Code := NULL;
4988: END IF;
4989:
4990: IF l_debug_level > 0 THEN
4991: oe_debug_pub.add( 'LINE TYPE IS SET AS ' ||P_X_CHARGES_REC.LINE_TYPE , 1 ) ;
4992: END IF;
4993:
4994: p_x_charges_rec.Quantity := NULL;
4995: p_x_charges_rec.Quantity_Ordered := NULL;
5003: p_x_charges_rec.amount := l_rounded_amount;
5004:
5005: p_x_charges_rec.Sales_Order_Line := NULL;
5006: IF l_debug_level > 0 THEN
5007: oe_debug_pub.add( 'LINE CATEGORY CODE : '||P_LINE_REC.LINE_CATEGORY_CODE , 5 ) ;
5008: END IF;
5009: -- Change made for the FP bug #3802957
5010: IF p_line_rec.line_category_code = 'RETURN' then
5011: IF l_debug_level > 0 THEN
5008: END IF;
5009: -- Change made for the FP bug #3802957
5010: IF p_line_rec.line_category_code = 'RETURN' then
5011: IF l_debug_level > 0 THEN
5012: oe_debug_pub.add( 'REFERENCE LINE_ID FOR FREIGHT RECORD BEFORE : '||P_X_CHARGES_REC.REFERENCE_LINE_ID , 5 ) ;
5013: oe_debug_pub.add( 'P_LINE_REC.REFERENCE_LINE_ID : '||P_LINE_REC.REFERENCE_LINE_ID , 5 ) ;
5014: oe_debug_pub.add( 'INTERFACE_LINE_ATTRIBUTE6 : '||P_X_CHARGES_REC.INTERFACE_LINE_ATTRIBUTE6 , 5 ) ;
5015: END IF;
5016:
5009: -- Change made for the FP bug #3802957
5010: IF p_line_rec.line_category_code = 'RETURN' then
5011: IF l_debug_level > 0 THEN
5012: oe_debug_pub.add( 'REFERENCE LINE_ID FOR FREIGHT RECORD BEFORE : '||P_X_CHARGES_REC.REFERENCE_LINE_ID , 5 ) ;
5013: oe_debug_pub.add( 'P_LINE_REC.REFERENCE_LINE_ID : '||P_LINE_REC.REFERENCE_LINE_ID , 5 ) ;
5014: oe_debug_pub.add( 'INTERFACE_LINE_ATTRIBUTE6 : '||P_X_CHARGES_REC.INTERFACE_LINE_ATTRIBUTE6 , 5 ) ;
5015: END IF;
5016:
5017: -- 3645784
5010: IF p_line_rec.line_category_code = 'RETURN' then
5011: IF l_debug_level > 0 THEN
5012: oe_debug_pub.add( 'REFERENCE LINE_ID FOR FREIGHT RECORD BEFORE : '||P_X_CHARGES_REC.REFERENCE_LINE_ID , 5 ) ;
5013: oe_debug_pub.add( 'P_LINE_REC.REFERENCE_LINE_ID : '||P_LINE_REC.REFERENCE_LINE_ID , 5 ) ;
5014: oe_debug_pub.add( 'INTERFACE_LINE_ATTRIBUTE6 : '||P_X_CHARGES_REC.INTERFACE_LINE_ATTRIBUTE6 , 5 ) ;
5015: END IF;
5016:
5017: -- 3645784
5018: -- RT{Retrobill lines will not have freight charges applied
5051:
5052: EXCEPTION
5053: WHEN OTHERS THEN
5054: IF l_debug_level > 0 THEN
5055: oe_debug_pub.add( 'UNABLE TO FIND REFERENCE LINE ID : '||SQLERRM , 1 ) ;
5056: END IF;
5057: NULL;
5058: END;
5059: IF l_reference_line_id IS NULL THEN
5068: and ra1.request_id is not null;
5069: EXCEPTION
5070: WHEN OTHERS THEN
5071: IF l_debug_level > 0 THEN
5072: oe_debug_pub.add( 'UNABLE TO FIND REFERENCE LINE ID - 2 : '||SQLERRM , 1 ) ;
5073: END IF;
5074: NULL;
5075: END;
5076: END IF;
5075: END;
5076: END IF;
5077: p_x_charges_rec.Reference_Line_Id := l_reference_line_id;
5078: IF l_debug_level > 0 THEN
5079: oe_debug_pub.add( 'REFERENCE LINE_ID FOR FREIGHT LINE AFTER : '||P_X_CHARGES_REC.REFERENCE_LINE_ID , 5 ) ;
5080: END IF;
5081: end if;
5082: -- IF p_line_rec.commitment_id is not null then
5083: -- re populate cust_trx_type_id which was nulled out for interface line
5088: IF p_x_charges_rec.LINE_TYPE = 'FREIGHT' OR
5089: nvl(FND_PROFILE.VALUE('ONT_TAX_CODE_FOR_FREIGHT'), 'N') = 'N' THEN
5090: p_x_charges_rec.Tax_Code := NULL;
5091: IF l_debug_level > 0 THEN
5092: oe_debug_pub.add('tax_code for freight is set as ' ||p_x_charges_rec.tax_code , 5 ) ;
5093: END IF;
5094: END IF;
5095: --Customer Acceptance
5096: -- should be set always irrespective of customer acceptance enabled or not
5102: p_x_charges_rec.translated_description := null;
5103: END IF;
5104:
5105: IF l_debug_level > 0 THEN
5106: oe_debug_pub.add( 'EXIT PREPARE_FREIGHT_CHARGES_REC ( ) PROCEDURE' , 5 ) ;
5107: END IF;
5108: END Prepare_Freight_Charges_Rec;
5109:
5110: PROCEDURE Interface_Freight_Charges
5214: WHERE LINK_TO_LINE_ID = l_line_id
5215: AND ITEM_TYPE_CODE = 'CONFIG';
5216:
5217: --
5218: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5219: --
5220: BEGIN
5221: IF l_debug_level > 0 THEN
5222: oe_debug_pub.add( 'ENTER INTERFACE_FREIGHT_CHARGES ( ) PROCEDURE' , 5 ) ;
5218: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5219: --
5220: BEGIN
5221: IF l_debug_level > 0 THEN
5222: oe_debug_pub.add( 'ENTER INTERFACE_FREIGHT_CHARGES ( ) PROCEDURE' , 5 ) ;
5223: END IF;
5224: l_charges_rec := p_interface_line_rec;
5225: OPEN Line_Charges_Cursor(p_line_rec.header_id, p_line_rec.line_id);
5226: LOOP
5224: l_charges_rec := p_interface_line_rec;
5225: OPEN Line_Charges_Cursor(p_line_rec.header_id, p_line_rec.line_id);
5226: LOOP
5227: IF l_debug_level > 0 THEN
5228: oe_debug_pub.add( 'IN THE LOOP: L_CHARGES_REC.CHARGE_ID: '|| L_CHARGES_REC.INTERFACE_LINE_ATTRIBUTE6 , 5 ) ;
5229: END IF;
5230: FETCH Line_Charges_Cursor INTO
5231: l_charges_rec.INTERFACE_LINE_ATTRIBUTE6 -- charge_id
5232: ,l_charges_rec.description
5250: ,l_charges_rec.attribute14
5251: ,l_charges_rec.attribute15;
5252: EXIT WHEN Line_Charges_Cursor%NOTFOUND;
5253: IF l_debug_level > 0 THEN
5254: oe_debug_pub.add( 'IN THE LOOP 1: L_CHARGES_REC.CHARGE_ID: '|| L_CHARGES_REC.INTERFACE_LINE_ATTRIBUTE6 , 5 ) ;
5255: oe_debug_pub.add( 'INVOICE SOURCE BEFORE CALLING PREPARE_FREIGHT_CHARGES_REC '|| L_CHARGES_REC.BATCH_SOURCE_NAME , 5 ) ;
5256: END IF;
5257: --prepare l_charges_rec
5258: Prepare_Freight_Charges_Rec(p_line_rec => p_line_rec
5251: ,l_charges_rec.attribute15;
5252: EXIT WHEN Line_Charges_Cursor%NOTFOUND;
5253: IF l_debug_level > 0 THEN
5254: oe_debug_pub.add( 'IN THE LOOP 1: L_CHARGES_REC.CHARGE_ID: '|| L_CHARGES_REC.INTERFACE_LINE_ATTRIBUTE6 , 5 ) ;
5255: oe_debug_pub.add( 'INVOICE SOURCE BEFORE CALLING PREPARE_FREIGHT_CHARGES_REC '|| L_CHARGES_REC.BATCH_SOURCE_NAME , 5 ) ;
5256: END IF;
5257: --prepare l_charges_rec
5258: Prepare_Freight_Charges_Rec(p_line_rec => p_line_rec
5259: ,p_x_charges_rec => l_charges_rec);
5257: --prepare l_charges_rec
5258: Prepare_Freight_Charges_Rec(p_line_rec => p_line_rec
5259: ,p_x_charges_rec => l_charges_rec);
5260: IF l_debug_level > 0 THEN
5261: oe_debug_pub.add( 'INVOICE SOURCE AFTER : '|| L_CHARGES_REC.BATCH_SOURCE_NAME , 5 ) ;
5262: oe_debug_pub.add( 'FREIGHT LINE TYPE : '||L_CHARGES_REC.LINE_TYPE , 5 ) ;
5263: END IF;
5264: IF l_charges_rec.Amount = 0 THEN
5265: -- Issue Message (Zero Amount Freight Charge not interfaced)
5258: Prepare_Freight_Charges_Rec(p_line_rec => p_line_rec
5259: ,p_x_charges_rec => l_charges_rec);
5260: IF l_debug_level > 0 THEN
5261: oe_debug_pub.add( 'INVOICE SOURCE AFTER : '|| L_CHARGES_REC.BATCH_SOURCE_NAME , 5 ) ;
5262: oe_debug_pub.add( 'FREIGHT LINE TYPE : '||L_CHARGES_REC.LINE_TYPE , 5 ) ;
5263: END IF;
5264: IF l_charges_rec.Amount = 0 THEN
5265: -- Issue Message (Zero Amount Freight Charge not interfaced)
5266: IF l_debug_level > 0 THEN
5263: END IF;
5264: IF l_charges_rec.Amount = 0 THEN
5265: -- Issue Message (Zero Amount Freight Charge not interfaced)
5266: IF l_debug_level > 0 THEN
5267: oe_debug_pub.add( 'ZERO AMOUNT FREIGHT NOT INTERFACED' , 5 ) ;
5268: END IF;
5269: ELSE
5270: Insert_Line(l_charges_rec
5271: ,x_return_status=>l_return_status);
5295: CLOSE CONFIG_FOR_MODEL;
5296:
5297: IF config_line_id IS NOT NULL THEN
5298: IF l_debug_level > 0 THEN
5299: oe_debug_pub.add( 'FOUND CONFIG LINE : '||CONFIG_LINE_ID , 1 ) ;
5300: END IF;
5301: -- Initialize API return status to success
5302: x_return_status := FND_API.G_RET_STS_SUCCESS;
5303: OE_Line_Util.Lock_Row(p_line_id=>config_line_id
5305: , x_return_status => l_return_status
5306: );
5307: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5308: IF l_debug_level > 0 THEN
5309: oe_debug_pub.add( 'UNABLE TO LOCK LINE ID '||CONFIG_LINE_ID||' '||SQLERRM , 1 ) ;
5310: END IF;
5311: RAISE FND_API.G_EXC_ERROR;
5312: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5313: IF l_debug_level > 0 THEN
5310: END IF;
5311: RAISE FND_API.G_EXC_ERROR;
5312: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5313: IF l_debug_level > 0 THEN
5314: oe_debug_pub.add( 'UNABLE TO LOCK LINE ID '||CONFIG_LINE_ID||' '||SQLERRM , 1 ) ;
5315: END IF;
5316: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5317: END IF;
5318: IF l_debug_level > 0 THEN
5315: END IF;
5316: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5317: END IF;
5318: IF l_debug_level > 0 THEN
5319: oe_debug_pub.add( 'INTERFACING OTHER CHARGES ASSOCIATED WITH THIS MODEL..' , 1 ) ;
5320: END IF;
5321: OPEN Line_Charges_Cursor(p_line_rec.header_id, config_line_id);
5322: LOOP
5323: IF l_debug_level > 0 THEN
5320: END IF;
5321: OPEN Line_Charges_Cursor(p_line_rec.header_id, config_line_id);
5322: LOOP
5323: IF l_debug_level > 0 THEN
5324: oe_debug_pub.add( 'IN THE LOOP: L_CHARGES_REC.CHARGE_ID: '|| L_CHARGES_REC.INTERFACE_LINE_ATTRIBUTE6 , 5 ) ;
5325: END IF;
5326: FETCH Line_Charges_Cursor INTO
5327: l_charges_rec.INTERFACE_LINE_ATTRIBUTE6 -- charge_id
5328: ,l_charges_rec.description
5346: ,l_charges_rec.attribute14
5347: ,l_charges_rec.attribute15;
5348: EXIT WHEN Line_Charges_Cursor%NOTFOUND;
5349: IF l_debug_level > 0 THEN
5350: oe_debug_pub.add( 'IN THE LOOP 1: L_CHARGES_REC.CHARGE_ID: '|| L_CHARGES_REC.INTERFACE_LINE_ATTRIBUTE6 , 5 ) ;
5351: oe_debug_pub.add( 'INVOICE SOURCE BEFORE CALLING PREPARE_FREIGHT_CHARGES_REC '|| L_CHARGES_REC.BATCH_SOURCE_NAME , 5 ) ;
5352: END IF;
5353: --prepare l_charges_rec
5354: Prepare_Freight_Charges_Rec(p_line_rec => p_line_rec
5347: ,l_charges_rec.attribute15;
5348: EXIT WHEN Line_Charges_Cursor%NOTFOUND;
5349: IF l_debug_level > 0 THEN
5350: oe_debug_pub.add( 'IN THE LOOP 1: L_CHARGES_REC.CHARGE_ID: '|| L_CHARGES_REC.INTERFACE_LINE_ATTRIBUTE6 , 5 ) ;
5351: oe_debug_pub.add( 'INVOICE SOURCE BEFORE CALLING PREPARE_FREIGHT_CHARGES_REC '|| L_CHARGES_REC.BATCH_SOURCE_NAME , 5 ) ;
5352: END IF;
5353: --prepare l_charges_rec
5354: Prepare_Freight_Charges_Rec(p_line_rec => p_line_rec
5355: ,p_x_charges_rec => l_charges_rec);
5353: --prepare l_charges_rec
5354: Prepare_Freight_Charges_Rec(p_line_rec => p_line_rec
5355: ,p_x_charges_rec => l_charges_rec);
5356: IF l_debug_level > 0 THEN
5357: oe_debug_pub.add( 'INVOICE SOURCE AFTER : '|| L_CHARGES_REC.BATCH_SOURCE_NAME , 5 ) ;
5358: oe_debug_pub.add( 'FREIGHT LINE TYPE : '||L_CHARGES_REC.LINE_TYPE , 5 ) ;
5359: END IF;
5360: IF l_charges_rec.Amount = 0 THEN
5361: -- Issue Message (Zero Amount Freight Charge not interfaced)
5354: Prepare_Freight_Charges_Rec(p_line_rec => p_line_rec
5355: ,p_x_charges_rec => l_charges_rec);
5356: IF l_debug_level > 0 THEN
5357: oe_debug_pub.add( 'INVOICE SOURCE AFTER : '|| L_CHARGES_REC.BATCH_SOURCE_NAME , 5 ) ;
5358: oe_debug_pub.add( 'FREIGHT LINE TYPE : '||L_CHARGES_REC.LINE_TYPE , 5 ) ;
5359: END IF;
5360: IF l_charges_rec.Amount = 0 THEN
5361: -- Issue Message (Zero Amount Freight Charge not interfaced)
5362: IF l_debug_level > 0 THEN
5359: END IF;
5360: IF l_charges_rec.Amount = 0 THEN
5361: -- Issue Message (Zero Amount Freight Charge not interfaced)
5362: IF l_debug_level > 0 THEN
5363: oe_debug_pub.add( 'ZERO AMOUNT FREIGHT NOT INTERFACED' , 5 ) ;
5364: END IF;
5365: ELSE
5366: Insert_Line(l_charges_rec
5367: ,x_return_status=>l_return_status);
5388: CLOSE Line_Charges_Cursor;
5389: END IF;
5390: END IF;
5391: IF l_debug_level > 0 THEN
5392: oe_debug_pub.add( 'INTERFACING HEADER CHARGES...' , 1 ) ;
5393: END IF;
5394: l_charges_rec := p_interface_line_rec;
5395: --pnpl
5396: --get header level payment term for header level charges
5408:
5409: OPEN Header_Charges_Cursor(p_line_rec.header_id, p_line_rec.line_id);
5410: LOOP
5411: IF l_debug_level > 0 THEN
5412: oe_debug_pub.add( 'IN THE LOOP: L_CHARGES_REC.CHARGE_ID: '|| L_CHARGES_REC.INTERFACE_LINE_ATTRIBUTE6 ) ;
5413: END IF;
5414: FETCH Header_Charges_Cursor INTO
5415: l_charges_rec.INTERFACE_LINE_ATTRIBUTE6 -- charge_id
5416: ,l_charges_rec.description
5438: EXIT WHEN Header_Charges_Cursor%NOTFOUND;
5439:
5440:
5441: IF l_debug_level > 0 THEN
5442: oe_debug_pub.add( 'IN THE LOOP 1: L_CHARGES_REC.CHARGE_ID: '|| L_CHARGES_REC.INTERFACE_LINE_ATTRIBUTE6 ) ;
5443: oe_debug_pub.add( 'INVOICE SOURCE BEFORE CALLING PREPARE_FREIGHT_CHARGES_REC '|| L_CHARGES_REC.BATCH_SOURCE_NAME ) ;
5444: --pnpl
5445: oe_debug_pub.add( 'l_charges_rec.term_id : ' || l_charges_rec.term_id);
5446: END IF;
5439:
5440:
5441: IF l_debug_level > 0 THEN
5442: oe_debug_pub.add( 'IN THE LOOP 1: L_CHARGES_REC.CHARGE_ID: '|| L_CHARGES_REC.INTERFACE_LINE_ATTRIBUTE6 ) ;
5443: oe_debug_pub.add( 'INVOICE SOURCE BEFORE CALLING PREPARE_FREIGHT_CHARGES_REC '|| L_CHARGES_REC.BATCH_SOURCE_NAME ) ;
5444: --pnpl
5445: oe_debug_pub.add( 'l_charges_rec.term_id : ' || l_charges_rec.term_id);
5446: END IF;
5447: --prepare l_charges_rec
5441: IF l_debug_level > 0 THEN
5442: oe_debug_pub.add( 'IN THE LOOP 1: L_CHARGES_REC.CHARGE_ID: '|| L_CHARGES_REC.INTERFACE_LINE_ATTRIBUTE6 ) ;
5443: oe_debug_pub.add( 'INVOICE SOURCE BEFORE CALLING PREPARE_FREIGHT_CHARGES_REC '|| L_CHARGES_REC.BATCH_SOURCE_NAME ) ;
5444: --pnpl
5445: oe_debug_pub.add( 'l_charges_rec.term_id : ' || l_charges_rec.term_id);
5446: END IF;
5447: --prepare l_charges_rec
5448: Prepare_Freight_Charges_Rec(p_line_rec => p_line_rec
5449: ,p_x_charges_rec => l_charges_rec);
5447: --prepare l_charges_rec
5448: Prepare_Freight_Charges_Rec(p_line_rec => p_line_rec
5449: ,p_x_charges_rec => l_charges_rec);
5450: IF l_debug_level > 0 THEN
5451: oe_debug_pub.add( 'INVOICE SOURE AFTER CALLING PREPARE_FREIGHT_CHARGES_REC '|| L_CHARGES_REC.BATCH_SOURCE_NAME ) ;
5452: oe_debug_pub.add( 'FREIGHT LINE TYPE: '||L_CHARGES_REC.LINE_TYPE ) ;
5453: END IF;
5454: IF l_charges_rec.Amount = 0 THEN
5455: IF l_debug_level > 0 THEN
5448: Prepare_Freight_Charges_Rec(p_line_rec => p_line_rec
5449: ,p_x_charges_rec => l_charges_rec);
5450: IF l_debug_level > 0 THEN
5451: oe_debug_pub.add( 'INVOICE SOURE AFTER CALLING PREPARE_FREIGHT_CHARGES_REC '|| L_CHARGES_REC.BATCH_SOURCE_NAME ) ;
5452: oe_debug_pub.add( 'FREIGHT LINE TYPE: '||L_CHARGES_REC.LINE_TYPE ) ;
5453: END IF;
5454: IF l_charges_rec.Amount = 0 THEN
5455: IF l_debug_level > 0 THEN
5456: oe_debug_pub.add( ' ZERO AMOUNT FREIGHT NOT INTERFACED' , 5 ) ;
5452: oe_debug_pub.add( 'FREIGHT LINE TYPE: '||L_CHARGES_REC.LINE_TYPE ) ;
5453: END IF;
5454: IF l_charges_rec.Amount = 0 THEN
5455: IF l_debug_level > 0 THEN
5456: oe_debug_pub.add( ' ZERO AMOUNT FREIGHT NOT INTERFACED' , 5 ) ;
5457: END IF;
5458: ELSE
5459: Insert_Line(l_charges_rec
5460: ,x_return_status=>l_return_status);
5480: x_return_status := FND_API.G_RET_STS_SUCCESS;
5481:
5482: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
5483: IF l_debug_level > 0 THEN
5484: oe_debug_pub.add( 'INTERFACING Modified HEADER CHARGES...' , 1 ) ;
5485: END IF;
5486: l_charges_rec := p_interface_line_rec;
5487: OPEN Modified_Header_Charges_Cursor(p_line_rec.header_id, p_line_rec.line_id);
5488: LOOP
5486: l_charges_rec := p_interface_line_rec;
5487: OPEN Modified_Header_Charges_Cursor(p_line_rec.header_id, p_line_rec.line_id);
5488: LOOP
5489: IF l_debug_level > 0 THEN
5490: oe_debug_pub.add( 'IN THE LOOP: L_CHARGES_REC.CHARGE_ID: '|| L_CHARGES_REC.INTERFACE_LINE_ATTRIBUTE6 ) ;
5491: END IF;
5492: FETCH Modified_Header_Charges_Cursor INTO
5493: l_charges_rec.INTERFACE_LINE_ATTRIBUTE6 -- charge_id
5494: ,l_charges_rec.description
5516: --pnpl
5517: l_charges_rec.term_id := l_hdr_payment_term_id;
5518: EXIT WHEN Modified_Header_Charges_Cursor%NOTFOUND;
5519: IF l_debug_level > 0 THEN
5520: oe_debug_pub.add( 'IN THE LOOP 1: L_CHARGES_REC.CHARGE_ID: '|| L_CHARGES_REC.INTERFACE_LINE_ATTRIBUTE6 ) ;
5521: oe_debug_pub.add( 'Charge_Amount:'||l_charge_amount ||':Invoiced_Amount:'||l_invoiced_amount) ;
5522: --pnpl
5523: oe_debug_pub.add( 'l_charges_rec.term_id : ' || l_charges_rec.term_id);
5524: END IF;
5517: l_charges_rec.term_id := l_hdr_payment_term_id;
5518: EXIT WHEN Modified_Header_Charges_Cursor%NOTFOUND;
5519: IF l_debug_level > 0 THEN
5520: oe_debug_pub.add( 'IN THE LOOP 1: L_CHARGES_REC.CHARGE_ID: '|| L_CHARGES_REC.INTERFACE_LINE_ATTRIBUTE6 ) ;
5521: oe_debug_pub.add( 'Charge_Amount:'||l_charge_amount ||':Invoiced_Amount:'||l_invoiced_amount) ;
5522: --pnpl
5523: oe_debug_pub.add( 'l_charges_rec.term_id : ' || l_charges_rec.term_id);
5524: END IF;
5525:
5519: IF l_debug_level > 0 THEN
5520: oe_debug_pub.add( 'IN THE LOOP 1: L_CHARGES_REC.CHARGE_ID: '|| L_CHARGES_REC.INTERFACE_LINE_ATTRIBUTE6 ) ;
5521: oe_debug_pub.add( 'Charge_Amount:'||l_charge_amount ||':Invoiced_Amount:'||l_invoiced_amount) ;
5522: --pnpl
5523: oe_debug_pub.add( 'l_charges_rec.term_id : ' || l_charges_rec.term_id);
5524: END IF;
5525:
5526: --prepare l_charges_rec
5527: Prepare_Freight_Charges_Rec(p_line_rec => p_line_rec
5551: l_charges_rec.INTERFACE_LINE_ATTRIBUTE5 := l_count2 + 1 ;
5552: END IF;
5553:
5554: IF l_debug_level > 0 THEN
5555: oe_debug_pub.add( 'INTERFACE_LINE_ATTRIBUTE5: '|| l_charges_rec.INTERFACE_LINE_ATTRIBUTE5 , 5 ) ;
5556: oe_debug_pub.add( 'INVOICE SOURE AFTER CALLING PREPARE_FREIGHT_CHARGES_REC '|| L_CHARGES_REC.BATCH_SOURCE_NAME ) ;
5557: oe_debug_pub.add( 'FREIGHT LINE TYPE: '||L_CHARGES_REC.LINE_TYPE ) ;
5558: END IF;
5559:
5552: END IF;
5553:
5554: IF l_debug_level > 0 THEN
5555: oe_debug_pub.add( 'INTERFACE_LINE_ATTRIBUTE5: '|| l_charges_rec.INTERFACE_LINE_ATTRIBUTE5 , 5 ) ;
5556: oe_debug_pub.add( 'INVOICE SOURE AFTER CALLING PREPARE_FREIGHT_CHARGES_REC '|| L_CHARGES_REC.BATCH_SOURCE_NAME ) ;
5557: oe_debug_pub.add( 'FREIGHT LINE TYPE: '||L_CHARGES_REC.LINE_TYPE ) ;
5558: END IF;
5559:
5560: IF l_charges_rec.Amount = 0 THEN
5553:
5554: IF l_debug_level > 0 THEN
5555: oe_debug_pub.add( 'INTERFACE_LINE_ATTRIBUTE5: '|| l_charges_rec.INTERFACE_LINE_ATTRIBUTE5 , 5 ) ;
5556: oe_debug_pub.add( 'INVOICE SOURE AFTER CALLING PREPARE_FREIGHT_CHARGES_REC '|| L_CHARGES_REC.BATCH_SOURCE_NAME ) ;
5557: oe_debug_pub.add( 'FREIGHT LINE TYPE: '||L_CHARGES_REC.LINE_TYPE ) ;
5558: END IF;
5559:
5560: IF l_charges_rec.Amount = 0 THEN
5561: IF l_debug_level > 0 THEN
5558: END IF;
5559:
5560: IF l_charges_rec.Amount = 0 THEN
5561: IF l_debug_level > 0 THEN
5562: oe_debug_pub.add( ' ZERO AMOUNT FREIGHT NOT INTERFACED' , 5 ) ;
5563: END IF;
5564: ELSE
5565: Insert_Line(l_charges_rec
5566: ,x_return_status=>l_return_status);
5585: CLOSE Modified_Header_Charges_Cursor;
5586: x_return_status := FND_API.G_RET_STS_SUCCESS;
5587: END IF;
5588: IF l_debug_level > 0 THEN
5589: oe_debug_pub.add( 'EXITING INTERFACE_FREIGHT_CHARGES' , 5 ) ;
5590: END IF;
5591: EXCEPTION
5592: WHEN FND_API.G_EXC_ERROR THEN
5593: IF l_debug_level > 0 THEN
5590: END IF;
5591: EXCEPTION
5592: WHEN FND_API.G_EXC_ERROR THEN
5593: IF l_debug_level > 0 THEN
5594: oe_debug_pub.add( 'EXPECTED ERROR. EXITING INTERFACE_FREIGHT_CHARGES : '||SQLERRM , 1 ) ;
5595: END IF;
5596: x_return_status := FND_API.G_RET_STS_ERROR;
5597: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN -- Bug #3686558
5598: IF l_debug_level > 0 THEN
5595: END IF;
5596: x_return_status := FND_API.G_RET_STS_ERROR;
5597: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN -- Bug #3686558
5598: IF l_debug_level > 0 THEN
5599: OE_DEBUG_PUB.Add('Unable to lock the line',3);
5600: END IF;
5601: x_return_status := FND_API.G_RET_STS_SUCCESS;
5602: WHEN OTHERS THEN
5603: IF l_debug_level > 0 THEN
5600: END IF;
5601: x_return_status := FND_API.G_RET_STS_SUCCESS;
5602: WHEN OTHERS THEN
5603: IF l_debug_level > 0 THEN
5604: oe_debug_pub.add( 'EXCEPTION , INTERFACE_FREIGHT_CHARGES ( ) '||SQLERRM , 1 ) ;
5605: END IF;
5606: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5607: IF FND_MSG_PUB.Check_Msg_Level
5608: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5703: --l_cust_pay_method_id NUMBER;
5704: --bug6086340 Refix the fix for 5849568
5705: l_cust_pay_method_id NUMBER;
5706: L_ACCOUNTING_RULE_ID NUMBER;
5707: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5708: --
5709: BEGIN
5710: IF l_debug_level > 0 THEN
5711: oe_debug_pub.add( 'ENTER PREPARE_INTERFACE_LINE_REC ( ) PROCEDURE ' , 5 ) ;
5707: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5708: --
5709: BEGIN
5710: IF l_debug_level > 0 THEN
5711: oe_debug_pub.add( 'ENTER PREPARE_INTERFACE_LINE_REC ( ) PROCEDURE ' , 5 ) ;
5712: END IF;
5713: l_interface_line_rec.request_id := p_x_interface_line_rec.request_id; --bug 4738947
5714: p_x_interface_line_rec := l_interface_line_rec; --bug 4738947
5715: l_delivery_line_id := Null;
5732: -- AND rownum = 1;
5733: EXCEPTION
5734: WHEN NO_DATA_FOUND THEN
5735: IF l_debug_level > 0 THEN
5736: oe_debug_pub.add( 'REACHING NO DATA FOUND. DELIVERY DETAILS NOT FOUND FOR THIS LINE..' , 1 ) ;
5737: END IF;
5738: p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE3 := '0';
5739: p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE4 := '0';
5740: p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE7 := '0';
5753: FROM wsh_new_deliveries dl
5754: WHERE dl.delivery_id = l_delivery_line_id;
5755:
5756: IF l_debug_level > 0 THEN
5757: oe_debug_pub.add( 'POPULATING BILL OF LADING NUMBER ..' , 5 ) ;
5758: END IF;
5759: SELECT wdi.sequence_number
5760: INTO p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE8
5761: FROM wsh_delivery_legs wdl,
5765: and wdl.delivery_id =l_delivery_line_id
5766: and wdi.status <> 'CANCELLED'
5767: and rownum=1;
5768: IF l_debug_level > 0 THEN
5769: oe_debug_pub.add( 'BILL OF LADING NUMBER IS POPULATED AS ..'||P_X_INTERFACE_LINE_REC.INTERFACE_LINE_ATTRIBUTE8 , 5 ) ;
5770: END IF;
5771: EXCEPTION
5772: WHEN NO_DATA_FOUND THEN
5773: IF l_debug_level > 0 THEN
5770: END IF;
5771: EXCEPTION
5772: WHEN NO_DATA_FOUND THEN
5773: IF l_debug_level > 0 THEN
5774: oe_debug_pub.add( 'NO DETAILS FOR BILL OF LADING NUMBER FOUND ...' , 5 ) ;
5775: END IF;
5776: p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE8 := '0';
5777: END;
5778: END IF;
5784:
5785: -- commented for bug 3661402
5786: /* BEGIN
5787: IF l_debug_level > 0 THEN
5788: oe_debug_pub.add( 'GETTING SHIP_VIA FROM SHIP_METHOD_CODE: '||L_SHIP_METHOD_CODE|| ' AND ORGANIZATION_ID: '||P_LINE_REC.SHIP_FROM_ORG_ID , 5 ) ;
5789: END IF;
5790: -- fix bug# 1382196
5791: IF l_ship_method_code IS NOT NULL THEN
5792: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110509' THEN
5830: -- AND rownum = 1;
5831: EXCEPTION
5832: WHEN NO_DATA_FOUND THEN
5833: IF l_debug_level > 0 THEN
5834: oe_debug_pub.add( 'REACHING NO DATA FOUND. DELIVERY DETAILS NOT FOUND FOR THIS LINE..' , 1 ) ;
5835: END IF;
5836: p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE3 := '0';
5837: p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE4 := '0';
5838: p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE7 := '0';
5851: WHERE dl.delivery_id = l_delivery_line_id;
5852:
5853:
5854: IF l_debug_level > 0 THEN
5855: oe_debug_pub.add( 'POPULATING BILL OF LADING NUMBER ..' , 5 ) ;
5856: END IF;
5857: SELECT substr(wdi.sequence_number,1,30)
5858: INTO p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE8
5859: FROM wsh_delivery_legs wdl,
5863: and wdl.delivery_id =l_delivery_line_id
5864: and wdi.status <> 'CANCELLED'
5865: and rownum=1;
5866: IF l_debug_level > 0 THEN
5867: oe_debug_pub.add( 'BILL OF LADING NUMBER IS POPULATED AS ..'||P_X_INTERFACE_LINE_REC.INTERFACE_LINE_ATTRIBUTE8 , 5 ) ;
5868: END IF;
5869: EXCEPTION
5870: WHEN NO_DATA_FOUND THEN
5871: IF l_debug_level > 0 THEN
5868: END IF;
5869: EXCEPTION
5870: WHEN NO_DATA_FOUND THEN
5871: IF l_debug_level > 0 THEN
5872: oe_debug_pub.add( 'NO DETAILS FOR BILL OF LADING NUMBER FOUND ...' , 5 ) ;
5873: END IF;
5874: p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE8 := '0';
5875: END;
5876:
5884: /* Added for the bug number 2988432 */
5885:
5886: /* BEGIN
5887: IF l_debug_level > 0 THEN
5888: oe_debug_pub.add( 'GETTING SHIP_VIA FROM SHIP_METHOD_CODE: '||L_SHIP_METHOD_CODE|| ' AND ORGANIZATION_ID: '||P_LINE_REC.SHIP_FROM_ORG_ID , 5 ) ;
5889: END IF;
5890: -- fix bug# 1382196
5891: IF l_ship_method_code IS NOT NULL THEN
5892: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110509' THEN
5930: <
5931:
5932: BEGIN
5933: IF l_debug_level > 0 THEN
5934: oe_debug_pub.add( 'GETTING SHIP_VIA FROM SHIP_METHOD_CODE: '||L_SHIP_METHOD_CODE|| ' AND ORGANIZATION_ID: '||P_LINE_REC.SHIP_FROM_ORG_ID ,5 ) ;
5935: END IF;
5936: IF l_ship_method_code IS NOT NULL THEN
5937: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110509' THEN
5938:
5964:
5965: /* 1847224 */
5966: IF l_delivery_line_id IS NULL THEN -- for Returns and non shippable lines
5967: IF l_debug_level > 0 THEN
5968: oe_debug_pub.add( 'NON SHIPPABLE OR RETURN LINE ' , 5 ) ;
5969: END IF;
5970: if p_line_rec.line_category_code <> 'RETURN' THEN
5971: IF l_debug_level > 0 THEN
5972: oe_debug_pub.add( 'THIS IS A NON-SHIPPABLE LINE..' , 5 ) ;
5968: oe_debug_pub.add( 'NON SHIPPABLE OR RETURN LINE ' , 5 ) ;
5969: END IF;
5970: if p_line_rec.line_category_code <> 'RETURN' THEN
5971: IF l_debug_level > 0 THEN
5972: oe_debug_pub.add( 'THIS IS A NON-SHIPPABLE LINE..' , 5 ) ;
5973: END IF;
5974:
5975: -- fixed bug 3435298
5976: -- for non-shippable line in a fulfillment set
5978: := OE_Line_Fullfill.Is_Part_Of_Fulfillment_Set
5979: (p_line_rec.line_id);
5980: IF l_fulfillment_set_flag = FND_API.G_TRUE THEN
5981: IF l_debug_level > 0 THEN
5982: oe_debug_pub.add( 'SETTING TRANSACTION DATE AS THE ACTUAL_SHIPMENT_DATE OF THE LAST SHIPPED ITEM IN THE SET. ' , 5 ) ;
5983: END IF;
5984:
5985: BEGIN
5986: SELECT max(actual_shipment_date)
6013: p_x_interface_line_rec.SHIP_DATE_ACTUAL := l_max_actual_shipment_date;
6014: -- for non-shippable line not in a fulfillment set
6015: ELSIF (fnd_profile.value('OE_RECEIVABLES_DATE_FOR_NONSHIP_LINES') = 'Y') THEN
6016: IF l_debug_level > 0 THEN
6017: oe_debug_pub.add( 'SETTING TRANSACTION DATE AS CURRENT DATE FOR THIS NONSHIP LINE ' , 5 ) ;
6018: END IF;
6019: p_x_interface_line_rec.SHIP_DATE_ACTUAL := SYSDATE;
6020:
6021: END IF;
6044:
6045: EXCEPTION
6046: WHEN OTHERS THEN
6047: IF l_debug_level > 0 THEN
6048: oe_debug_pub.add( 'SETTING SHIP_DATE_ACTUAL FOR DROPSHIP LINE TO SYSDATE' , 5 ) ;
6049: END IF;
6050: p_x_interface_line_rec.ship_date_actual := sysdate;
6051: END;
6052: IF l_debug_level > 0 THEN
6049: END IF;
6050: p_x_interface_line_rec.ship_date_actual := sysdate;
6051: END;
6052: IF l_debug_level > 0 THEN
6053: oe_debug_pub.add( 'SHIP_DATE_ACTUAL FOR DROPSHIP LINE: '|| TO_CHAR ( P_X_INTERFACE_LINE_REC.SHIP_DATE_ACTUAL , 'DD-MON-YYYY HH24:MI:SS' ) , 5 ) ;
6054: END IF;
6055: END IF;
6056:
6057: -- Get information into p_x_interface_line_rec
6083:
6084:
6085: IF p_line_rec.invoiced_quantity IS NOT NULL THEN
6086: IF l_debug_level > 0 THEN
6087: oe_debug_pub.add( 'THIS LINE WAS INTERFACED ATLEAST ONCE BEFORE' , 5 ) ;
6088: END IF;
6089: SELECT count(*)
6090: INTO l_count1
6091: FROM ra_interface_lines_all
6106: AND sales_order = p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE1;
6107: END IF;
6108: p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE5 := l_count1 + l_count2 ; -- no of times this line is interfaced to AR
6109: IF l_debug_level > 0 THEN
6110: oe_debug_pub.add( 'INTERFACE_LINE_ATTRIBUTE5: '|| P_X_INTERFACE_LINE_REC.INTERFACE_LINE_ATTRIBUTE5 , 5 ) ;
6111: END IF;
6112:
6113: --rt{ Retrobilling change
6114: IF (p_line_rec.line_category_code = 'RETURN'
6126: WHERE customer_item_id = p_line_rec.ordered_item_id;
6127: EXCEPTION
6128: WHEN OTHERS THEN
6129: IF l_debug_level > 0 THEN
6130: oe_debug_pub.add( 'EXCEPTION , POPULATING ATTRIBUTE9 AS 0 =>'||SQLERRM , 1 ) ;
6131: END IF;
6132: p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE9 := '0';
6133: END;
6134: IF l_debug_level > 0 THEN
6131: END IF;
6132: p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE9 := '0';
6133: END;
6134: IF l_debug_level > 0 THEN
6135: oe_debug_pub.add( 'GETTING CUSTOMER ITEM NUMBER: '|| P_X_INTERFACE_LINE_REC.INTERFACE_LINE_ATTRIBUTE9 ) ;
6136: END IF;
6137: ELSE
6138: p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE9 := '0';
6139: END IF;
6151: /* concaternated string for item description */
6152:
6153: IF p_line_rec.order_quantity_uom in ('EVT','ENR') THEN
6154: IF l_debug_level > 0 THEN
6155: oe_debug_pub.add( 'GETTING THE OTA DESCRIPTION' , 5 ) ;
6156: END IF;
6157:
6158: IF p_line_rec.line_category_code = 'RETURN' and
6159: p_line_rec.reference_line_id is not null then
6158: IF p_line_rec.line_category_code = 'RETURN' and
6159: p_line_rec.reference_line_id is not null then
6160:
6161: IF l_debug_level > 0 THEN
6162: oe_debug_pub.add( 'GETTING THE OTA DESCRIPTION FOR RETURN' , 5 ) ;
6163: END IF;
6164:
6165: OE_OTA_UTIL.Get_OTA_Description
6166: (p_line_id => p_line_rec.reference_line_id
6170: ,x_return_status => l_return_status
6171: );
6172: p_x_interface_line_rec.DESCRIPTION := l_item_description;
6173: IF l_debug_level > 0 THEN
6174: oe_debug_pub.add( 'OTA DESCRIPTION' || L_ITEM_DESCRIPTION , 5 ) ;
6175: END IF;
6176: p_x_interface_line_rec.GL_DATE := l_course_end_date;
6177:
6178: ELSE
6185: ,x_return_status => l_return_status
6186: );
6187: p_x_interface_line_rec.DESCRIPTION := l_item_description;
6188: IF l_debug_level > 0 THEN
6189: oe_debug_pub.add( 'OTA DESCRIPTION' || L_ITEM_DESCRIPTION , 5 ) ;
6190: END IF;
6191: p_x_interface_line_rec.GL_DATE := l_course_end_date;
6192:
6193: END IF;
6212: p_x_interface_line_rec.CURRENCY_CODE := p_header_rec.transactional_curr_code;
6213: --END IF;
6214: IF p_line_rec.Commitment_Id IS NOT NULL THEN
6215: IF l_debug_level > 0 THEN
6216: oe_debug_pub.add( 'GETTING CUST_TRX_TYPE_ID FROM COMMITMENT: '||P_LINE_REC.COMMITMENT_ID , 5 ) ;
6217: END IF;
6218: SELECT NVL(cust_type.subsequent_trx_type_id,cust_type.cust_trx_type_id)
6219: INTO p_x_interface_line_rec.Cust_Trx_Type_Id
6220: FROM ra_cust_trx_types cust_type,ra_customer_trx_all cust_trx /* MOAC SQL CHANGE */
6220: FROM ra_cust_trx_types cust_type,ra_customer_trx_all cust_trx /* MOAC SQL CHANGE */
6221: WHERE cust_type.cust_trx_type_id = cust_trx.cust_trx_type_id
6222: AND cust_trx.customer_trx_id = p_line_rec.Commitment_Id;
6223: IF l_debug_level > 0 THEN
6224: oe_debug_pub.add( 'CUST_TRX_TYPE_ID FROM COMMITMENT IS '||P_X_INTERFACE_LINE_REC.CUST_TRX_TYPE_ID ) ;
6225: END IF;
6226: ELSE
6227: p_x_interface_line_rec.Cust_Trx_Type_Id := Get_Customer_Transaction_Type(p_line_rec);
6228: END IF;
6230: IF NOT Return_Line(p_line_rec) THEN
6231: IF OE_PrePayment_Util.Is_Prepaid_Order(p_header_rec) = 'Y' THEN
6232: -- p_x_interface_line_rec.Term_Id := p_header_rec.payment_term_id;
6233: IF l_debug_level > 0 THEN
6234: oe_debug_pub.add( 'GETTING PAYMENT_SET_ID FROM OE_PAYMENTS' ) ;
6235: END IF;
6236: BEGIN
6237: --serla begin
6238: IF OE_PrePayment_UTIL.IS_MULTIPLE_PAYMENTS_ENABLED THEN
6259: WHEN TOO_MANY_ROWS THEN
6260: p_x_interface_line_rec.Payment_Set_ID := NULL;
6261: END;
6262: IF l_debug_level > 0 THEN
6263: oe_debug_pub.add( 'AFTER GETTING PAYMENT_SET_ID: '||P_X_INTERFACE_LINE_REC.PAYMENT_SET_ID ) ;
6264: END IF;
6265: p_x_interface_line_rec.approval_code := NULL;
6266: -- ELSE
6267: -- p_x_interface_line_rec.Term_Id := p_line_rec.payment_term_id;
6276: ,l_commitment_applied
6277: ,l_commitment_interfaced);
6278: IF x_result_code = 'RFR-PENDING' THEN
6279: IF l_debug_level > 0 THEN
6280: oe_debug_pub.add( 'GET PARTIAL PROMISED AMOUNT FOR PARTIALLY INVOICED LINE' , 5 ) ;
6281: END IF;
6282: Rounded_Amount(p_currency_code => p_x_interface_line_rec.currency_code
6283: ,p_unrounded_amount => (p_line_rec.unit_selling_price * p_x_interface_line_rec.quantity)
6284: ,x_rounded_amount => l_partial_line_amount);
6293: AND nvl(invoiced_flag, 'N') = 'N';
6294: END IF;
6295:
6296: IF l_debug_level > 0 THEN
6297: oe_debug_pub.add( 'PARTIAL LINE AMOUNT '||L_PARTIAL_LINE_AMOUNT||' - PARTIAL TAX AMOUNT '||L_PARTIAL_LINE_TAX_AMOUNT||' - PARTIAL LINE FREIGHT AMOUNT '||L_PARTIAL_LINE_FREIGHT_AMOUNT , 5 ) ;
6298: END IF;
6299: l_partial_line_promised_amount := l_partial_line_amount + l_partial_line_tax_amount + l_partial_line_freight_amount;
6300: IF (l_commitment_applied-l_commitment_interfaced) >= l_partial_line_promised_amount THEN
6301: p_x_interface_line_rec.promised_commitment_amount := l_partial_line_promised_amount;
6299: l_partial_line_promised_amount := l_partial_line_amount + l_partial_line_tax_amount + l_partial_line_freight_amount;
6300: IF (l_commitment_applied-l_commitment_interfaced) >= l_partial_line_promised_amount THEN
6301: p_x_interface_line_rec.promised_commitment_amount := l_partial_line_promised_amount;
6302: IF l_debug_level > 0 THEN
6303: oe_debug_pub.add( 'RFR- PASS FULL AMOUNT FOR THIS INTERFACE: '|| P_X_INTERFACE_LINE_REC.PROMISED_COMMITMENT_AMOUNT , 3 ) ;
6304: END IF;
6305: ELSE
6306: p_x_interface_line_rec.promised_commitment_amount := l_commitment_applied-l_commitment_interfaced;
6307: IF l_debug_level > 0 THEN
6304: END IF;
6305: ELSE
6306: p_x_interface_line_rec.promised_commitment_amount := l_commitment_applied-l_commitment_interfaced;
6307: IF l_debug_level > 0 THEN
6308: oe_debug_pub.add( 'PASS PARTIAL AMOUNT FOR THIS INTERFACE: ' ||P_X_INTERFACE_LINE_REC.PROMISED_COMMITMENT_AMOUNT , 3 ) ;
6309: END IF;
6310: END IF;
6311: ELSE
6312: p_x_interface_line_rec.PROMISED_COMMITMENT_AMOUNT := l_commitment_applied-l_commitment_interfaced;
6310: END IF;
6311: ELSE
6312: p_x_interface_line_rec.PROMISED_COMMITMENT_AMOUNT := l_commitment_applied-l_commitment_interfaced;
6313: IF l_debug_level > 0 THEN
6314: oe_debug_pub.add( 'NOT RFR- PROMISED_COMMITMENT_AMOUNT: '|| P_X_INTERFACE_LINE_REC.PROMISED_COMMITMENT_AMOUNT ) ;
6315: END IF;
6316: END IF;
6317: END IF;
6318: END IF; -- end of commitment sequencing functionality ON
6332: p_x_interface_line_rec.Quantity_Ordered := p_line_rec.Ordered_Quantity;
6333: -- Get Creation_sign
6334: l_creation_sign := Get_Credit_Creation_Sign(p_line_rec, p_x_interface_line_rec.cust_trx_type_id);
6335: IF l_debug_level > 0 THEN
6336: oe_debug_pub.add( ' CREATION SIGN IS '|| L_CREATION_SIGN , 5 ) ;
6337: END IF;
6338:
6339: IF l_creation_sign = 'A' THEN
6340: IF Return_Line(p_line_rec) THEN
6338:
6339: IF l_creation_sign = 'A' THEN
6340: IF Return_Line(p_line_rec) THEN
6341: IF l_debug_level > 0 THEN
6342: oe_debug_pub.add( 'SETTING -VE SIGN FOR RETURN LINE' , 5 ) ;
6343: END IF;
6344: p_x_interface_line_rec.Amount := p_x_interface_line_rec.amount * -1;
6345: p_x_interface_line_rec.Quantity := p_x_interface_line_rec.Quantity * -1;
6346: p_x_interface_line_rec.Quantity_Ordered := p_line_rec.Ordered_Quantity * -1;
6353: p_x_interface_line_rec.Quantity_Ordered := p_line_rec.Ordered_Quantity * -1;
6354: END IF;
6355:
6356: IF l_debug_level > 0 THEN
6357: oe_debug_pub.add( 'LINE UNIT SELLING PRICE: '||P_X_INTERFACE_LINE_REC.UNIT_SELLING_PRICE , 5 ) ;
6358: oe_debug_pub.add( 'LINE UNIT STANDARD PRICE: '||P_X_INTERFACE_LINE_REC.UNIT_STANDARD_PRICE , 5 ) ;
6359: oe_debug_pub.add( 'LINE AMOUNT: '||P_X_INTERFACE_LINE_REC.AMOUNT ) ;
6360: END IF;
6361:
6354: END IF;
6355:
6356: IF l_debug_level > 0 THEN
6357: oe_debug_pub.add( 'LINE UNIT SELLING PRICE: '||P_X_INTERFACE_LINE_REC.UNIT_SELLING_PRICE , 5 ) ;
6358: oe_debug_pub.add( 'LINE UNIT STANDARD PRICE: '||P_X_INTERFACE_LINE_REC.UNIT_STANDARD_PRICE , 5 ) ;
6359: oe_debug_pub.add( 'LINE AMOUNT: '||P_X_INTERFACE_LINE_REC.AMOUNT ) ;
6360: END IF;
6361:
6362: -- invoice_to_org_id is required at booking
6355:
6356: IF l_debug_level > 0 THEN
6357: oe_debug_pub.add( 'LINE UNIT SELLING PRICE: '||P_X_INTERFACE_LINE_REC.UNIT_SELLING_PRICE , 5 ) ;
6358: oe_debug_pub.add( 'LINE UNIT STANDARD PRICE: '||P_X_INTERFACE_LINE_REC.UNIT_STANDARD_PRICE , 5 ) ;
6359: oe_debug_pub.add( 'LINE AMOUNT: '||P_X_INTERFACE_LINE_REC.AMOUNT ) ;
6360: END IF;
6361:
6362: -- invoice_to_org_id is required at booking
6363: IF p_line_rec.invoice_to_org_id IS NOT NULL THEN
6361:
6362: -- invoice_to_org_id is required at booking
6363: IF p_line_rec.invoice_to_org_id IS NOT NULL THEN
6364: IF l_debug_level > 0 THEN
6365: oe_debug_pub.add( 'GETTING ORIG_SYSTEM_BILL_CUSTOMER_ID , ORIG_SYSTEM_BILL_ADDRESS_ID INFO' , 5 ) ;
6366: END IF;
6367: BEGIN
6368: /* Commented for bug #3519137 added new select statement */
6369: /*SELECT bill_to_org.customer_id
6383:
6384: EXCEPTION
6385: WHEN OTHERS THEN
6386: IF l_debug_level > 0 THEN
6387: oe_debug_pub.add( 'EXCEPTION , '||SQLERRM , 1 ) ;
6388: END IF;
6389: p_x_interface_line_rec.ORIG_SYSTEM_BILL_CUSTOMER_ID := NULL;
6390: p_x_interface_line_rec.ORIG_SYSTEM_BILL_ADDRESS_ID := NULL;
6391: END;
6392: END IF;
6393: -- ship_to_org_id is not required at booking for return lines
6394: IF p_line_rec.ship_to_org_id IS NOT NULL THEN
6395: IF l_debug_level > 0 THEN
6396: oe_debug_pub.add( 'GETTING ORIG_SYSTEM_SHIP_CUSTOMER_ID , ORIG_SYSTEM_SHIP_ADDRESS_ID INFO' ) ;
6397: END IF;
6398: BEGIN
6399: /* Commented for bug #3519137 added new select statement */
6400: /*SELECT ship_to_org.customer_id
6414:
6415: EXCEPTION
6416: WHEN OTHERS THEN
6417: IF l_debug_level > 0 THEN
6418: oe_debug_pub.add( 'EXCEPTION , '||SQLERRM , 1 ) ;
6419: END IF;
6420: p_x_interface_line_rec.ORIG_SYSTEM_SHIP_CUSTOMER_ID := NULL;
6421: l_orig_sys_ship_addr_id := NULL;
6422: END;
6436:
6437: IF p_header_rec.conversion_type_code IS NOT NULL THEN
6438: l_set_of_books_rec := OE_Order_Cache.Load_Set_Of_Books;
6439: IF l_debug_level > 0 THEN
6440: oe_debug_pub.add( 'SOB CURRENCY: '||L_SET_OF_BOOKS_REC.CURRENCY_CODE||' TRANSACTIONAL CURRENCY: '||P_HEADER_REC.TRANSACTIONAL_CURR_CODE ) ;
6441: END IF;
6442: IF p_header_rec.transactional_curr_code = l_set_of_books_rec.currency_code THEN
6443: p_x_interface_line_rec.conversion_type := 'User';
6444: p_x_interface_line_rec.conversion_rate := 1;
6481: EXCEPTION WHEN OTHERS THEN
6482: l_user_id := NULL;
6483: l_resp_id := NULL;
6484: l_appl_id := NULL;
6485: OE_DEBUG_PUB.add('Unable to find item attributes while searching for Tax Code profile value : '||sqlerrm,1);
6486: NULL;
6487: END;
6488:
6489: OE_DEBUG_PUB.add('Tax code value on the Order Line '||p_line_rec.tax_code,5);
6485: OE_DEBUG_PUB.add('Unable to find item attributes while searching for Tax Code profile value : '||sqlerrm,1);
6486: NULL;
6487: END;
6488:
6489: OE_DEBUG_PUB.add('Tax code value on the Order Line '||p_line_rec.tax_code,5);
6490: OE_DEBUG_PUB.add('ID => User,Resp,Appl : '||l_user_id||','||l_resp_id||','||l_appl_id,5);
6491:
6492: -- 3757279
6493: l_concat_segment := 'u'||l_user_id||'r'||l_resp_id||'a'||l_appl_id;
6486: NULL;
6487: END;
6488:
6489: OE_DEBUG_PUB.add('Tax code value on the Order Line '||p_line_rec.tax_code,5);
6490: OE_DEBUG_PUB.add('ID => User,Resp,Appl : '||l_user_id||','||l_resp_id||','||l_appl_id,5);
6491:
6492: -- 3757279
6493: l_concat_segment := 'u'||l_user_id||'r'||l_resp_id||'a'||l_appl_id;
6494: oe_debug_pub.add('l_concat_segment'||l_concat_segment,1);
6490: OE_DEBUG_PUB.add('ID => User,Resp,Appl : '||l_user_id||','||l_resp_id||','||l_appl_id,5);
6491:
6492: -- 3757279
6493: l_concat_segment := 'u'||l_user_id||'r'||l_resp_id||'a'||l_appl_id;
6494: oe_debug_pub.add('l_concat_segment'||l_concat_segment,1);
6495: l_table_index := FIND(l_concat_segment);
6496: IF l_table_index < TABLE_SIZE THEN
6497: IF l_debug_level > 0 THEN
6498: --oe_debug_pub.add( 'cached FND PROFILE AR_ALLOW_TAX_CODE_OVERRIDE: '||Prf_Tbl(l_table_index).prf_value,1);
6494: oe_debug_pub.add('l_concat_segment'||l_concat_segment,1);
6495: l_table_index := FIND(l_concat_segment);
6496: IF l_table_index < TABLE_SIZE THEN
6497: IF l_debug_level > 0 THEN
6498: --oe_debug_pub.add( 'cached FND PROFILE AR_ALLOW_TAX_CODE_OVERRIDE: '||Prf_Tbl(l_table_index).prf_value,1);
6499: oe_debug_pub.add( 'cached FND PROFILE ZX_ALLOW_TAX_CLASSIF_OVERRIDE: '||Prf_Tbl(l_table_index).prf_value,1);
6500: END IF;
6501: l_prof_value := Prf_Tbl(l_table_index).prf_value;
6502: ELSE
6495: l_table_index := FIND(l_concat_segment);
6496: IF l_table_index < TABLE_SIZE THEN
6497: IF l_debug_level > 0 THEN
6498: --oe_debug_pub.add( 'cached FND PROFILE AR_ALLOW_TAX_CODE_OVERRIDE: '||Prf_Tbl(l_table_index).prf_value,1);
6499: oe_debug_pub.add( 'cached FND PROFILE ZX_ALLOW_TAX_CLASSIF_OVERRIDE: '||Prf_Tbl(l_table_index).prf_value,1);
6500: END IF;
6501: l_prof_value := Prf_Tbl(l_table_index).prf_value;
6502: ELSE
6503: put(l_concat_segment,l_user_id,l_resp_id,l_appl_id,l_prof_value);
6501: l_prof_value := Prf_Tbl(l_table_index).prf_value;
6502: ELSE
6503: put(l_concat_segment,l_user_id,l_resp_id,l_appl_id,l_prof_value);
6504: IF l_debug_level > 0 THEN
6505: --oe_debug_pub.add( ' Uncached first time FND PROFILE AR_ALLOW_TAX_CODE_OVERRIDE: '||l_prof_value,1);
6506: oe_debug_pub.add( ' Uncached first time FND PROFILE ZX_ALLOW_TAX_CLASSIF_OVERRIDE: '||l_prof_value,1);
6507: END IF;
6508: END IF;
6509: -- 3757279
6502: ELSE
6503: put(l_concat_segment,l_user_id,l_resp_id,l_appl_id,l_prof_value);
6504: IF l_debug_level > 0 THEN
6505: --oe_debug_pub.add( ' Uncached first time FND PROFILE AR_ALLOW_TAX_CODE_OVERRIDE: '||l_prof_value,1);
6506: oe_debug_pub.add( ' Uncached first time FND PROFILE ZX_ALLOW_TAX_CLASSIF_OVERRIDE: '||l_prof_value,1);
6507: END IF;
6508: END IF;
6509: -- 3757279
6510:
6510:
6511: IF NVL(l_prof_value,'N') = 'Y' THEN
6512: p_x_interface_line_rec.Tax_code := p_line_rec.Tax_code;
6513: END IF;
6514: OE_DEBUG_PUB.add('Tax Code interfaced to AR is : '||p_line_rec.Tax_Code,1);
6515:
6516: -- Changes for 3144768 End
6517: IF Return_Line(p_line_rec) THEN
6518: IF l_debug_level > 0 THEN
6515:
6516: -- Changes for 3144768 End
6517: IF Return_Line(p_line_rec) THEN
6518: IF l_debug_level > 0 THEN
6519: oe_debug_pub.add( 'SETTING INFORMATION FOR RETURN LINE' , 5 ) ;
6520: END IF;
6521: p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE3 := '0';
6522: p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE4 := '0';
6523: p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE7 := '0';
6578: p_x_interface_line_rec.Waybill_Number := p_x_interface_line_rec.Interface_line_Attribute4;
6579: -- p_x_interface_line_rec.Ship_Via := NVL(p_x_interface_line_rec.Ship_Via, p_line_rec.freight_carrier_code); -- Should it be shipping_method_code???
6580: IF p_line_rec.Commitment_Id IS NOT NULL THEN
6581: IF l_debug_level > 0 THEN
6582: oe_debug_pub.add( 'REFERENCE_LINE_ID FROM COMMITMENT ID IS '||P_LINE_REC.COMMITMENT_ID ) ;
6583: END IF;
6584: SELECT customer_trx_line_id
6585: INTO p_x_interface_line_rec.Reference_Line_Id
6586: FROM ra_customer_trx_lines_all
6600: -- Right now, it is in units of Months.
6601: -- But, Autoinvoice uses accounting rule's period.
6602: IF NOT Return_Line(p_line_rec) AND p_x_interface_line_rec.accounting_rule_id IS NOT NULL THEN
6603: IF l_debug_level > 0 THEN
6604: oe_debug_pub.add( 'GET ACCOUNTING RULE TYPE ' , 5 ) ;
6605: END IF;
6606: --Modified for bug#4190312
6607: SELECT type,frequency
6608: INTO l_accounting_rule_type, l_frequency
6611: IF l_accounting_rule_type = 'ACC_DUR' THEN
6612: -- accounting rule duration is required for regular (non service) lines at booking
6613: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
6614: IF l_debug_level > 0 THEN
6615: oe_debug_pub.add( 'INTERFACING ACCOUNTING_RULE_DURATION FOR REGULAR LINES:'|| P_LINE_REC.ACCOUNTING_RULE_DURATION ) ;
6616: END IF;
6617: p_x_interface_line_rec.ACCOUNTING_RULE_DURATION := p_line_rec.accounting_rule_duration;
6618: ELSE
6619: IF l_debug_level > 0 THEN
6616: END IF;
6617: p_x_interface_line_rec.ACCOUNTING_RULE_DURATION := p_line_rec.accounting_rule_duration;
6618: ELSE
6619: IF l_debug_level > 0 THEN
6620: oe_debug_pub.add( 'BELOW PACK I , DO NOT INTERFACE DURATION' ) ;
6621: END IF;
6622: p_x_interface_line_rec.ACCOUNTING_RULE_DURATION := NULL;
6623: END IF;
6624: IF p_line_rec.item_type_code = 'SERVICE' THEN
6633: -- bug# 4190312 post message and complete with status INCOMPLETE
6634: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_ACCT_RULE_DURATION');
6635: OE_MSG_PUB.ADD;
6636: IF l_debug_level > 0 THEN
6637: oe_debug_pub.add( 'SERVICE START DATE OR SERVICE END DATE IS NULL' , 3 ) ;
6638: END IF;
6639: p_x_interface_line_rec.ACCOUNTING_RULE_DURATION := -1;
6640: ELSE
6641: BEGIN
6661: return_code => l_return_code,
6662: unmapped_date => l_unmapped_date);
6663:
6664: IF l_debug_level > 0 THEN
6665: oe_debug_pub.add('l_acct_rule_duration:'||l_acct_rule_duration);
6666: oe_debug_pub.add('l_return_code:'||l_return_code);
6667: oe_debug_pub.add('l_unmapped_date:'||l_unmapped_date);
6668: END IF;
6669: IF l_return_code = 'SUCCESS' THEN
6662: unmapped_date => l_unmapped_date);
6663:
6664: IF l_debug_level > 0 THEN
6665: oe_debug_pub.add('l_acct_rule_duration:'||l_acct_rule_duration);
6666: oe_debug_pub.add('l_return_code:'||l_return_code);
6667: oe_debug_pub.add('l_unmapped_date:'||l_unmapped_date);
6668: END IF;
6669: IF l_return_code = 'SUCCESS' THEN
6670: p_x_interface_line_rec.ACCOUNTING_RULE_DURATION := l_acct_rule_duration;
6663:
6664: IF l_debug_level > 0 THEN
6665: oe_debug_pub.add('l_acct_rule_duration:'||l_acct_rule_duration);
6666: oe_debug_pub.add('l_return_code:'||l_return_code);
6667: oe_debug_pub.add('l_unmapped_date:'||l_unmapped_date);
6668: END IF;
6669: IF l_return_code = 'SUCCESS' THEN
6670: p_x_interface_line_rec.ACCOUNTING_RULE_DURATION := l_acct_rule_duration;
6671: ELSE
6675: FND_MESSAGE.SET_TOKEN('START_DATE', p_line_rec.service_start_date);
6676: FND_MESSAGE.SET_TOKEN('END_DATE', p_line_rec.service_end_date);
6677: FND_MESSAGE.SET_TOKEN('CALENDAR_NAME', l_calendar_name); OE_MSG_PUB.ADD;
6678: IF l_debug_level > 0 THEN
6679: oe_debug_pub.add('Atleast one or more dates ('||l_unmapped_date||') within the date range that are not associated with any adjustment period.');
6680: END IF;
6681: END IF;
6682: EXCEPTION
6683: WHEN OTHERS THEN
6688: FND_MESSAGE.SET_TOKEN('END_DATE', p_line_rec.service_end_date);
6689: FND_MESSAGE.SET_TOKEN('CALENDAR_NAME', l_calendar_name);
6690: OE_MSG_PUB.ADD;
6691: IF l_debug_level > 0 THEN
6692: oe_debug_pub.add( 'ERROR IN GL_CALENDAR_PKG.Get_Num_Periods_In_Date_Range ; ERROR => '||SQLERRM , 1 ) ;
6693: END IF;
6694: END;
6695: END IF; -- end of service service start/end dates
6696: END IF; -- null accounting_rule_duaration
6698: ELSE -- fixed accounting rule
6699: -- Pass rule_start_date for service lines for fixed rules also (as it was before change for variable accounting rules)
6700: IF p_line_rec.item_type_code = 'SERVICE'
6701: OR (l_accounting_rule_type = 'PP_DR_ALL' OR l_accounting_rule_type = 'PP_DR_PP')THEN -- webroot bug 6826344 modified the contition
6702: oe_debug_pub.add( 'Start date assigned: l_accounting_rule_type: ' || l_accounting_rule_type) ;
6703: p_x_interface_line_rec.rule_start_date := p_line_rec.service_start_date; -- 1833680
6704: --PP Revenue Recognition
6705: --bug 4893057
6706: --Need to pass the rule end date for partial revenue recognition enhancement
6706: --Need to pass the rule end date for partial revenue recognition enhancement
6707: --bug 5608550 Need to pass the rule end date ONLY for partial revenue recognition
6708: IF ((l_accounting_rule_type = 'PP_DR_ALL') OR (l_accounting_rule_type = 'PP_DR_PP')) THEN
6709:
6710: oe_debug_pub.add( 'End date assigned: l_accounting_rule_type: ' || l_accounting_rule_type) ;
6711: p_x_interface_line_rec.rule_end_date := p_line_rec.service_end_date;
6712: END IF;
6713: END IF;
6714: END IF; -- variable/fixed accounting rule
6714: END IF; -- variable/fixed accounting rule
6715: END IF;
6716:
6717: IF l_debug_level > 0 THEN
6718: oe_debug_pub.add( 'GET ATTRIBUTE VALUES' , 5 ) ;
6719: END IF;
6720: p_x_interface_line_rec.Attribute_Category := p_line_rec.Context;
6721: p_x_interface_line_rec.Attribute1 := substrb(p_line_rec.Attribute1, 1, 150);
6722: p_x_interface_line_rec.Attribute2 := substrb(p_line_rec.Attribute2, 1, 150);
6757: p_x_interface_line_rec.Tax_Exempt_Reason_Code := p_line_rec.Tax_Exempt_Reason_Code;
6758: p_x_interface_line_rec.Org_id := p_line_rec.Org_id;
6759:
6760: IF l_debug_level > 0 THEN
6761: oe_debug_pub.add( 'GET DEFAULT TERRITORY' , 5 ) ;
6762: END IF;
6763:
6764: IF oe_code_control.code_release_level < '110510' THEN
6765: SELECT asp.default_territory
6772: END IF;
6773:
6774: -- Get territory information into p_x_interface_line_rec
6775: IF l_debug_level > 0 THEN
6776: oe_debug_pub.add( 'PREPARE TERRITORY INFORMATION. l_territory_code: ' ||l_territory_code, 5 ) ;
6777: END IF;
6778: OE_DEBUG_PUB.DUMPDEBUG;
6779:
6780: p_x_interface_line_rec.territory_id := 0;
6774: -- Get territory information into p_x_interface_line_rec
6775: IF l_debug_level > 0 THEN
6776: oe_debug_pub.add( 'PREPARE TERRITORY INFORMATION. l_territory_code: ' ||l_territory_code, 5 ) ;
6777: END IF;
6778: OE_DEBUG_PUB.DUMPDEBUG;
6779:
6780: p_x_interface_line_rec.territory_id := 0;
6781:
6782: IF (l_territory_code = 'SALES') THEN
6797: FROM hz_cust_site_uses sus
6798: WHERE sus.site_use_id = p_line_rec.ship_to_org_id;
6799: END IF;
6800: IF l_debug_level > 0 THEN
6801: oe_debug_pub.add( 'territory_id:'|| p_x_interface_line_rec.territory_id , 5 ) ;
6802: END IF;
6803: IF (p_x_interface_line_rec.territory_id > 0) THEN
6804: SELECT terr.segment1
6805: ,terr.segment2
6847: IF p_x_interface_line_rec.territory_id = 0 THEN
6848: p_x_interface_line_rec.territory_id := NULL;
6849: END IF;
6850: IF l_debug_level > 0 THEN
6851: oe_debug_pub.add( 'FINISH TERRITORY' , 5 ) ;
6852: END IF;
6853: p_x_interface_line_rec.Batch_Source_Name := Get_Invoice_source(p_line_rec, p_x_interface_line_rec);
6854: IF l_debug_level > 0 THEN
6855: oe_debug_pub.add( 'BATCH SOURCE NAME : '||P_X_INTERFACE_LINE_REC.BATCH_SOURCE_NAME ) ;
6851: oe_debug_pub.add( 'FINISH TERRITORY' , 5 ) ;
6852: END IF;
6853: p_x_interface_line_rec.Batch_Source_Name := Get_Invoice_source(p_line_rec, p_x_interface_line_rec);
6854: IF l_debug_level > 0 THEN
6855: oe_debug_pub.add( 'BATCH SOURCE NAME : '||P_X_INTERFACE_LINE_REC.BATCH_SOURCE_NAME ) ;
6856: END IF;
6857: IF p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE3 = '0' THEN
6858: IF p_x_interface_line_rec.REQUEST_ID IS NOT NULL THEN
6859: IF l_debug_level > 0 THEN
6856: END IF;
6857: IF p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE3 = '0' THEN
6858: IF p_x_interface_line_rec.REQUEST_ID IS NOT NULL THEN
6859: IF l_debug_level > 0 THEN
6860: oe_debug_pub.add( 'SET REQUEST_ID TO NULL FOR NON DELIVERY LINES' , 5 ) ;
6861: END IF;
6862: p_x_interface_line_rec.REQUEST_ID := NULL;
6863: END IF;
6864: END IF;
6919: END IF;
6920: END IF;
6921: --Customer Acceptance
6922: IF l_debug_level > 0 THEN
6923: oe_debug_pub.add( 'START CREDIT CARD PROCESSING' , 5 ) ;
6924: END IF;
6925: --serla begin
6926: IF NOT OE_PREPAYMENT_UTIL.IS_MULTIPLE_PAYMENTS_ENABLED THEN
6927: --serla end
6928: -- Check if the Line has an associated Credit Card Payment
6929: IF p_header_rec.credit_card_number is NOT NULL AND
6930: NOT Return_Line(p_line_rec) THEN /* Bug #3463843 */
6931: IF l_debug_level > 0 THEN
6932: oe_debug_pub.add( 'CREDIT CARD INFO EXISTS' , 5 ) ;
6933: -- Fix for Bug # 1586750.
6934: -- Get the Customer Id for Invoice To Org at the Header Level.
6935: oe_debug_pub.add( 'GET CUSTOMER ID FOR INVOICE TO ORG AT HEADER' , 5 ) ;
6936: END IF;
6931: IF l_debug_level > 0 THEN
6932: oe_debug_pub.add( 'CREDIT CARD INFO EXISTS' , 5 ) ;
6933: -- Fix for Bug # 1586750.
6934: -- Get the Customer Id for Invoice To Org at the Header Level.
6935: oe_debug_pub.add( 'GET CUSTOMER ID FOR INVOICE TO ORG AT HEADER' , 5 ) ;
6936: END IF;
6937:
6938: BEGIN
6939: /* Commented for bug #3519137 added new select statement */
6951:
6952: EXCEPTION
6953: WHEN OTHERS THEN
6954: IF l_debug_level > 0 THEN
6955: oe_debug_pub.add( 'INVOICE TO CUSTOMER ID : '||L_HDR_INV_TO_CUST_ID , 1 ) ;
6956: oe_debug_pub.add( 'ORGANIZATION ID : '||P_HEADER_REC.INVOICE_TO_ORG_ID , 1 ) ;
6957: oe_debug_pub.add( 'IN OTHERS EXCEPTION ( OE_INVOICE_TO_ORGS_V ) '||SQLERRM , 1 ) ;
6958: END IF;
6959: END;
6952: EXCEPTION
6953: WHEN OTHERS THEN
6954: IF l_debug_level > 0 THEN
6955: oe_debug_pub.add( 'INVOICE TO CUSTOMER ID : '||L_HDR_INV_TO_CUST_ID , 1 ) ;
6956: oe_debug_pub.add( 'ORGANIZATION ID : '||P_HEADER_REC.INVOICE_TO_ORG_ID , 1 ) ;
6957: oe_debug_pub.add( 'IN OTHERS EXCEPTION ( OE_INVOICE_TO_ORGS_V ) '||SQLERRM , 1 ) ;
6958: END IF;
6959: END;
6960: -- Calling Process Customer Bank Account
6953: WHEN OTHERS THEN
6954: IF l_debug_level > 0 THEN
6955: oe_debug_pub.add( 'INVOICE TO CUSTOMER ID : '||L_HDR_INV_TO_CUST_ID , 1 ) ;
6956: oe_debug_pub.add( 'ORGANIZATION ID : '||P_HEADER_REC.INVOICE_TO_ORG_ID , 1 ) ;
6957: oe_debug_pub.add( 'IN OTHERS EXCEPTION ( OE_INVOICE_TO_ORGS_V ) '||SQLERRM , 1 ) ;
6958: END IF;
6959: END;
6960: -- Calling Process Customer Bank Account
6961: IF l_debug_level > 0 THEN
6958: END IF;
6959: END;
6960: -- Calling Process Customer Bank Account
6961: IF l_debug_level > 0 THEN
6962: oe_debug_pub.add( 'BEFORE CALLING AR PACKAGE PROCESS_CUST_BANK_ACCOUNT ( ) ' , 5 ) ;
6963: END IF;
6964: --
6965: l_trx_date := nvl(p_header_rec.ordered_date, sysdate)
6966: - nvl( to_number(fnd_profile.value('ONT_DAYS_TO_BACKDATE_BANK_ACCT')), 0);
6988: WHEN OTHERS THEN
6989: l_bank_acct_id := -1;
6990: p_x_interface_line_rec.customer_bank_account_id := -1;
6991: IF l_debug_level > 0 THEN
6992: oe_debug_pub.add( 'AR PACKAGE ARP_BANK_PKG.PROCESS_CUST_BANK_ACCOUNT ( ) RETURNED ERROR : '||SQLERRM , 1 ) ;
6993: END IF;
6994: ***/
6995: END;
6996: IF l_debug_level > 0 THEN
6993: END IF;
6994: ***/
6995: END;
6996: IF l_debug_level > 0 THEN
6997: oe_debug_pub.add( 'AFTER CALLING PROCESS_CUST_BANK_ACCOUNT ( ) PROCEDURE ' , 5 ) ;
6998: END IF;
6999: -- Check if a Valid Bank Account Id returned
7000: IF NVL(l_bank_acct_id, 0) > 0 THEN
7001: -- Setup the Bank Account Information
6999: -- Check if a Valid Bank Account Id returned
7000: IF NVL(l_bank_acct_id, 0) > 0 THEN
7001: -- Setup the Bank Account Information
7002: IF l_debug_level > 0 THEN
7003: oe_debug_pub.add( 'BANK ACCOUNT ID : '||L_BANK_ACCT_ID ) ;
7004: END IF;
7005: p_x_interface_line_rec.customer_bank_account_id := l_bank_acct_id;
7006: p_x_interface_line_rec.customer_bank_account_name
7007: := p_header_rec.credit_card_holder_name;
7014: fnd_global.apps_initialize(l_user_id, l_resp_id, l_appl_id);
7015:
7016: -- Call Get Primary Pay Method to get the method id
7017: IF l_debug_level > 0 THEN
7018: oe_debug_pub.add( 'GETTING PRIMAY PAYMENT METHOD' , 5 ) ;
7019: END IF;
7020:
7021: l_pay_method_id := OE_Verify_Payment_PUB.Get_Primary_Pay_Method
7022: ( p_header_rec => p_header_rec ) ;
7020:
7021: l_pay_method_id := OE_Verify_Payment_PUB.Get_Primary_Pay_Method
7022: ( p_header_rec => p_header_rec ) ;
7023: IF l_debug_level > 0 THEN
7024: oe_debug_pub.add( 'AFTER GETTING PRIMARY PAYMENT METHOD' , 5 ) ;
7025: END IF;
7026:
7027: /* Fix FP Bug # 3647389: Reset the Context using Current Values */
7028: fnd_global.apps_initialize(l_cur_user_id, l_cur_resp_id, l_cur_appl_id);
7029:
7030: -- Check if a Valid Pay Method Id returned
7031: IF NVL(l_pay_method_id, 0) > 0 THEN
7032: IF l_debug_level > 0 THEN
7033: oe_debug_pub.add( 'PAYMENT METHOD IS VALID' ) ;
7034: -- Call Get Pay Method Info to get the method name
7035: oe_debug_pub.add( 'GET PAYMENT METHOD INFORMATION ' , 5 ) ;
7036: END IF;
7037: OE_Verify_Payment_PUB.Get_Pay_Method_Info
7031: IF NVL(l_pay_method_id, 0) > 0 THEN
7032: IF l_debug_level > 0 THEN
7033: oe_debug_pub.add( 'PAYMENT METHOD IS VALID' ) ;
7034: -- Call Get Pay Method Info to get the method name
7035: oe_debug_pub.add( 'GET PAYMENT METHOD INFORMATION ' , 5 ) ;
7036: END IF;
7037: OE_Verify_Payment_PUB.Get_Pay_Method_Info
7038: ( p_pay_method_id => l_pay_method_id
7039: , p_pay_method_name => l_pay_method_name
7039: , p_pay_method_name => l_pay_method_name
7040: , p_merchant_id => l_merchant_id
7041: ) ;
7042: IF l_debug_level > 0 THEN
7043: oe_debug_pub.add( 'AFTER GETTING PAYMENT METHOD INFORMATION' , 5 ) ;
7044: -- Setup the Payment Method Information
7045: oe_debug_pub.add( 'PAYMENT METHOD ID IS : '||L_PAY_METHOD_ID , 5 ) ;
7046: END IF;
7047: p_x_interface_line_rec.receipt_method_id := l_pay_method_id;
7041: ) ;
7042: IF l_debug_level > 0 THEN
7043: oe_debug_pub.add( 'AFTER GETTING PAYMENT METHOD INFORMATION' , 5 ) ;
7044: -- Setup the Payment Method Information
7045: oe_debug_pub.add( 'PAYMENT METHOD ID IS : '||L_PAY_METHOD_ID , 5 ) ;
7046: END IF;
7047: p_x_interface_line_rec.receipt_method_id := l_pay_method_id;
7048: p_x_interface_line_rec.receipt_method_name := l_pay_method_name;
7049: -- Check if Credit Card Approval Code exists
7048: p_x_interface_line_rec.receipt_method_name := l_pay_method_name;
7049: -- Check if Credit Card Approval Code exists
7050: IF p_header_rec.credit_card_approval_code is NOT NULL THEN
7051: IF l_debug_level > 0 THEN
7052: oe_debug_pub.add( 'CREDIT CARD APPROVAL CODE EXISTS' , 5 ) ;
7053: -- Call Fetch Current Auth to get the tangible id
7054: oe_debug_pub.add( 'FETCH CURRENT AUTHORIZATION CODE , IF ANY' , 5 ) ;
7055: END IF;
7056: OE_Verify_Payment_PUB.Fetch_Current_Auth
7050: IF p_header_rec.credit_card_approval_code is NOT NULL THEN
7051: IF l_debug_level > 0 THEN
7052: oe_debug_pub.add( 'CREDIT CARD APPROVAL CODE EXISTS' , 5 ) ;
7053: -- Call Fetch Current Auth to get the tangible id
7054: oe_debug_pub.add( 'FETCH CURRENT AUTHORIZATION CODE , IF ANY' , 5 ) ;
7055: END IF;
7056: OE_Verify_Payment_PUB.Fetch_Current_Auth
7057: ( p_header_rec => p_header_rec
7058: , p_trxn_id => l_trxn_id
7058: , p_trxn_id => l_trxn_id
7059: , p_tangible_id => l_tangible_id
7060: ) ;
7061: IF l_debug_level > 0 THEN
7062: oe_debug_pub.add( ' AFTER CALLING FETCH_CURRENT_AUTH' ) ;
7063: -- Setup the CC Approval Info
7064: oe_debug_pub.add( 'TANGIBLE ID IS : '||L_TANGIBLE_ID , 5 ) ;
7065: END IF;
7066: p_x_interface_line_rec.approval_code := p_header_rec.credit_card_approval_code;
7060: ) ;
7061: IF l_debug_level > 0 THEN
7062: oe_debug_pub.add( ' AFTER CALLING FETCH_CURRENT_AUTH' ) ;
7063: -- Setup the CC Approval Info
7064: oe_debug_pub.add( 'TANGIBLE ID IS : '||L_TANGIBLE_ID , 5 ) ;
7065: END IF;
7066: p_x_interface_line_rec.approval_code := p_header_rec.credit_card_approval_code;
7067: p_x_interface_line_rec.payment_server_order_num := l_tangible_id;
7068: END IF; -- IF Approval Code Exists
7071: END IF; -- IF Credit Card Payment Exists
7072: --serla begin
7073: ELSE -- multiple payments enabled
7074: IF l_debug_level > 0 THEN
7075: oe_debug_pub.add('multiple payment enabled. getting payments data from line payments');
7076: END IF;
7077: -- R12 CC encryption
7078: BEGIN
7079: SELECT payment_type_code
7095: AND header_id = p_line_rec.header_id
7096: AND payment_type_code <> 'COMMITMENT'
7097: AND payment_collection_event = 'INVOICE';
7098: IF l_debug_level > 0 THEN
7099: oe_debug_pub.add('l_payment_type_code:'||l_payment_type_code||'l_payment_trx_id:'||l_payment_trx_id||':l_receipt_method_id:'||l_receipt_method_id);
7100: END IF;
7101: EXCEPTION
7102: WHEN NO_DATA_FOUND THEN
7103: IF l_debug_level > 0 THEN
7100: END IF;
7101: EXCEPTION
7102: WHEN NO_DATA_FOUND THEN
7103: IF l_debug_level > 0 THEN
7104: oe_debug_pub.add('No invoice payments at line level');
7105: END IF;
7106: l_payment_type_code := NULL;
7107: l_payment_trx_id := NULL;
7108: l_receipt_method_id := NULL;
7115:
7116: END;
7117:
7118: IF l_payment_type_code IS NULL THEN
7119: oe_debug_pub.add('Getting payments data from header payments');
7120: BEGIN
7121: SELECT payment_type_code
7122: , payment_trx_id
7123: , receipt_method_id
7136: WHERE header_id = p_line_rec.header_id
7137: AND line_id is NULL
7138: AND payment_collection_event = 'INVOICE';
7139: IF l_debug_level > 0 THEN
7140: oe_debug_pub.add('l_payment_type_code:'||l_payment_type_code||'l_payment_trx_id:'||l_payment_trx_id||':l_receipt_method_id:'||l_receipt_method_id);
7141: END IF;
7142: EXCEPTION
7143: WHEN NO_DATA_FOUND THEN
7144: l_payment_type_code := NULL;
7209: --bug5849568
7210: --Creating a receipt method assignment at the site level if it does not exist so that Autoinvoice goes through
7211: IF l_receipt_method_id IS NOT NULL THEN
7212: IF l_debug_level > 0 THEN
7213: oe_debug_pub.add('Before creating receipt method assignment at site level if it does not exist');
7214: END IF;
7215: l_trx_date := nvl(p_header_rec.ordered_date, sysdate)
7216: - nvl( to_number(fnd_profile.value('ONT_DAYS_TO_BACKDATE_BANK_ACCT')), 0);
7217: --bug6025064 Using SQL Statement since API arp_bank_pkg.process_cust_pay_method has been obsoleted
7232: AND primary_flag = 'Y';
7233: --bug6025064
7234:
7235: IF l_debug_level > 0 THEN
7236: oe_debug_pub.add('l_cust_pay_method_id returned for Receipt Method ' || p_x_interface_line_rec.receipt_method_name|| 'is ' ||l_cust_pay_method_id);
7237: END IF;
7238:
7239: END IF;
7240: --bug5849568
7247: -- Added for bug 6911267, to get Invoice To Customer Id
7248: oe_oe_form_header.get_invoice_to_customer_id(p_site_use_id => p_header_rec.invoice_to_org_id,
7249: x_invoice_to_customer_id => l_invoice_to_customer_id);
7250: IF l_debug_level > 0 THEN
7251: oe_debug_pub.add('Before creating receipt method assignment at site level if it does not exist', 5);
7252: oe_debug_pub.add('Invoice To Customer : ' || l_invoice_to_customer_id ||'; Invoice To Site : ' || p_header_rec.invoice_to_org_id, 5);
7253: END IF;
7254: l_trx_date := nvl(p_header_rec.ordered_date, sysdate)
7255: - nvl( to_number(fnd_profile.value('ONT_DAYS_TO_BACKDATE_BANK_ACCT')), 0);
7248: oe_oe_form_header.get_invoice_to_customer_id(p_site_use_id => p_header_rec.invoice_to_org_id,
7249: x_invoice_to_customer_id => l_invoice_to_customer_id);
7250: IF l_debug_level > 0 THEN
7251: oe_debug_pub.add('Before creating receipt method assignment at site level if it does not exist', 5);
7252: oe_debug_pub.add('Invoice To Customer : ' || l_invoice_to_customer_id ||'; Invoice To Site : ' || p_header_rec.invoice_to_org_id, 5);
7253: END IF;
7254: l_trx_date := nvl(p_header_rec.ordered_date, sysdate)
7255: - nvl( to_number(fnd_profile.value('ONT_DAYS_TO_BACKDATE_BANK_ACCT')), 0);
7256:
7262: );
7263:
7264:
7265: IF l_debug_level > 0 THEN
7266: oe_debug_pub.add('l_cust_pay_method_id returned for Receipt Method ' || p_x_interface_line_rec.receipt_method_name|| 'is ' ||l_cust_pay_method_id);
7267: END IF;
7268:
7269: END IF;
7270: --bug6086340
7282: , p_tangible_id => l_tangible_id
7283: ) ;
7284:
7285: IF l_debug_level > 0 THEN
7286: oe_debug_pub.add( ' AFTER CALLING FETCH_CURRENT_AUTH' ) ;
7287: -- Setup the CC Approval Info
7288: oe_debug_pub.add( 'TANGIBLE ID IS : '||L_TANGIBLE_ID , 5 ) ;
7289: END IF;
7290:
7284:
7285: IF l_debug_level > 0 THEN
7286: oe_debug_pub.add( ' AFTER CALLING FETCH_CURRENT_AUTH' ) ;
7287: -- Setup the CC Approval Info
7288: oe_debug_pub.add( 'TANGIBLE ID IS : '||L_TANGIBLE_ID , 5 ) ;
7289: END IF;
7290:
7291: END IF;
7292: p_x_interface_line_rec.payment_server_order_num := l_tangible_id;
7291: END IF;
7292: p_x_interface_line_rec.payment_server_order_num := l_tangible_id;
7293: END IF;
7294: */
7295: oe_debug_pub.add('l_receipt_method_id:'||l_receipt_method_id||'Name:'||p_x_interface_line_rec.receipt_method_name);
7296: END IF;
7297: END IF;
7298:
7299: --serla end
7298:
7299: --serla end
7300:
7301: IF l_debug_level > 0 THEN
7302: oe_debug_pub.add( 'FINISH CREDIT CARD PROCESSING' , 5 ) ;
7303: oe_debug_pub.add( 'START GLOBALIZATION' , 5 ) ;
7304: END IF;
7305: l_gdf_rec.interface_line_attribute3 := p_x_interface_line_rec.interface_line_attribute3;
7306: l_gdf_rec.interface_line_attribute6 := p_x_interface_line_rec.interface_line_attribute6;
7299: --serla end
7300:
7301: IF l_debug_level > 0 THEN
7302: oe_debug_pub.add( 'FINISH CREDIT CARD PROCESSING' , 5 ) ;
7303: oe_debug_pub.add( 'START GLOBALIZATION' , 5 ) ;
7304: END IF;
7305: l_gdf_rec.interface_line_attribute3 := p_x_interface_line_rec.interface_line_attribute3;
7306: l_gdf_rec.interface_line_attribute6 := p_x_interface_line_rec.interface_line_attribute6;
7307: l_gdf_rec.line_type := p_x_interface_line_rec.line_type;
7327: l_gdf_rec.line_gdf_attribute18 := substrb(p_line_rec.global_attribute18, 1, 150);
7328: l_gdf_rec.line_gdf_attribute19 := substrb(p_line_rec.global_attribute19, 1, 150);
7329: l_gdf_rec.line_gdf_attribute20 := substrb(p_line_rec.global_attribute20, 1, 150);
7330: IF l_debug_level > 0 THEN
7331: oe_debug_pub.add( 'CALLING THE GLOBALIZATION PACKAGE' , 5 ) ;
7332: END IF;
7333: JG_ZZ_OM_COMMON_PKG.copy_gdff(p_interface_line_rec => l_gdf_rec,
7334: x_interface_line_rec => l_gdf_rec,
7335: x_return_code => l_jg_return_code,
7334: x_interface_line_rec => l_gdf_rec,
7335: x_return_code => l_jg_return_code,
7336: x_error_buffer => l_jg_error_buffer);
7337: IF l_debug_level > 0 THEN
7338: oe_debug_pub.add( 'AFTER CALLING GLOBALIZATION PACKAGE' , 5 ) ;
7339: END IF;
7340: p_x_interface_line_rec.line_gdf_attr_category := l_gdf_rec.line_gdf_attr_category;
7341: p_x_interface_line_rec.line_gdf_attribute1 := l_gdf_rec.line_gdf_attribute1;
7342: p_x_interface_line_rec.line_gdf_attribute2 := l_gdf_rec.line_gdf_attribute2;
7390: p_x_interface_line_rec.header_gdf_attribute29 := l_gdf_rec.header_gdf_attribute29;
7391: p_x_interface_line_rec.header_gdf_attribute30 := l_gdf_rec.header_gdf_attribute30;
7392:
7393: IF l_debug_level > 0 THEN
7394: oe_debug_pub.add('Before calling Legal Entity Time Zone ');
7395: oe_debug_pub.add('Value of ship_date_actual '||p_x_interface_line_rec.ship_date_actual||
7396: ' Value of creation_date '|| p_x_interface_line_rec.creation_date);
7397: oe_debug_pub.add('Value of last_update_date '||p_x_interface_line_rec.last_update_date||
7398: ' Value of sales_order_date '||p_x_interface_line_rec.sales_order_date|| ' Value of trx_date '||p_x_interface_line_rec.trx_date);
7391: p_x_interface_line_rec.header_gdf_attribute30 := l_gdf_rec.header_gdf_attribute30;
7392:
7393: IF l_debug_level > 0 THEN
7394: oe_debug_pub.add('Before calling Legal Entity Time Zone ');
7395: oe_debug_pub.add('Value of ship_date_actual '||p_x_interface_line_rec.ship_date_actual||
7396: ' Value of creation_date '|| p_x_interface_line_rec.creation_date);
7397: oe_debug_pub.add('Value of last_update_date '||p_x_interface_line_rec.last_update_date||
7398: ' Value of sales_order_date '||p_x_interface_line_rec.sales_order_date|| ' Value of trx_date '||p_x_interface_line_rec.trx_date);
7399: END IF;
7393: IF l_debug_level > 0 THEN
7394: oe_debug_pub.add('Before calling Legal Entity Time Zone ');
7395: oe_debug_pub.add('Value of ship_date_actual '||p_x_interface_line_rec.ship_date_actual||
7396: ' Value of creation_date '|| p_x_interface_line_rec.creation_date);
7397: oe_debug_pub.add('Value of last_update_date '||p_x_interface_line_rec.last_update_date||
7398: ' Value of sales_order_date '||p_x_interface_line_rec.sales_order_date|| ' Value of trx_date '||p_x_interface_line_rec.trx_date);
7399: END IF;
7400:
7401: IF oe_code_control.code_release_level >= '110510' THEN
7430: END IF;
7431: END IF;
7432:
7433: IF l_debug_level > 0 THEN
7434: oe_debug_pub.add('After calling Legal Entity Time Zone ');
7435: oe_debug_pub.add('Value of ship_date_actual '||p_x_interface_line_rec.ship_date_actual||
7436: ' Value of creation_date '|| p_x_interface_line_rec.creation_date);
7437: oe_debug_pub.add('Value of last_update_date '||p_x_interface_line_rec.last_update_date||
7438: ' Value of sales_order_date '||p_x_interface_line_rec.sales_order_date|| ' Value of trx_date '||p_x_interface_line_rec.trx_date);
7431: END IF;
7432:
7433: IF l_debug_level > 0 THEN
7434: oe_debug_pub.add('After calling Legal Entity Time Zone ');
7435: oe_debug_pub.add('Value of ship_date_actual '||p_x_interface_line_rec.ship_date_actual||
7436: ' Value of creation_date '|| p_x_interface_line_rec.creation_date);
7437: oe_debug_pub.add('Value of last_update_date '||p_x_interface_line_rec.last_update_date||
7438: ' Value of sales_order_date '||p_x_interface_line_rec.sales_order_date|| ' Value of trx_date '||p_x_interface_line_rec.trx_date);
7439: END IF;
7433: IF l_debug_level > 0 THEN
7434: oe_debug_pub.add('After calling Legal Entity Time Zone ');
7435: oe_debug_pub.add('Value of ship_date_actual '||p_x_interface_line_rec.ship_date_actual||
7436: ' Value of creation_date '|| p_x_interface_line_rec.creation_date);
7437: oe_debug_pub.add('Value of last_update_date '||p_x_interface_line_rec.last_update_date||
7438: ' Value of sales_order_date '||p_x_interface_line_rec.sales_order_date|| ' Value of trx_date '||p_x_interface_line_rec.trx_date);
7439: END IF;
7440:
7441: IF l_debug_level > 0 THEN
7438: ' Value of sales_order_date '||p_x_interface_line_rec.sales_order_date|| ' Value of trx_date '||p_x_interface_line_rec.trx_date);
7439: END IF;
7440:
7441: IF l_debug_level > 0 THEN
7442: oe_debug_pub.add( 'END GLOBALIZATION' , 5 ) ;
7443: END IF;
7444: OE_DEBUG_PUB.dumpdebug;
7445: IF l_debug_level > 0 THEN
7446: oe_debug_pub.add( 'EXITING PREPARE_INTERFACE_LINE_REC ( ) PROCEDURE' , 5 ) ;
7440:
7441: IF l_debug_level > 0 THEN
7442: oe_debug_pub.add( 'END GLOBALIZATION' , 5 ) ;
7443: END IF;
7444: OE_DEBUG_PUB.dumpdebug;
7445: IF l_debug_level > 0 THEN
7446: oe_debug_pub.add( 'EXITING PREPARE_INTERFACE_LINE_REC ( ) PROCEDURE' , 5 ) ;
7447: END IF;
7448: END Prepare_Interface_Line_Rec;
7442: oe_debug_pub.add( 'END GLOBALIZATION' , 5 ) ;
7443: END IF;
7444: OE_DEBUG_PUB.dumpdebug;
7445: IF l_debug_level > 0 THEN
7446: oe_debug_pub.add( 'EXITING PREPARE_INTERFACE_LINE_REC ( ) PROCEDURE' , 5 ) ;
7447: END IF;
7448: END Prepare_Interface_Line_Rec;
7449:
7450: PROCEDURE Update_Invoice_Attributes
7461: err_msg VARCHAR2(240);
7462: l_notify_index NUMBER; -- jolin
7463:
7464: --
7465: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7466: --
7467: BEGIN
7468: IF l_debug_level > 0 THEN
7469: oe_debug_pub.add( 'UPDATING INVOICE ATTRIBUTES' , 5 ) ;
7465: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7466: --
7467: BEGIN
7468: IF l_debug_level > 0 THEN
7469: oe_debug_pub.add( 'UPDATING INVOICE ATTRIBUTES' , 5 ) ;
7470: END IF;
7471: IF OE_GLOBALS.G_ASO_INSTALLED IS NULL THEN
7472: OE_GLOBALS.G_ASO_INSTALLED := OE_GLOBALS.CHECK_PRODUCT_INSTALLED(697);
7473: END IF;
7485: IF p_invoice_interface_status= 'NOT_ELIGIBLE' THEN
7486: l_invoiced_quantity := null;
7487: END IF;
7488: IF l_debug_level > 0 THEN
7489: oe_debug_pub.add( 'INVOICED QUANTITY IS '|| TO_CHAR ( L_INVOICED_QUANTITY ) , 5 ) ;
7490: END IF;
7491:
7492: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL < '110510' THEN
7493: IF p_invoice_interface_status = 'YES' THEN
7517: END IF;
7518: END IF;
7519:
7520: IF l_debug_level > 0 THEN
7521: oe_debug_pub.add( 'UPDATING FLOW STATUS CODE AS '||L_FLOW_STATUS_CODE , 5 ) ;
7522: oe_debug_pub.add( ' UPDATING p_line_rec.SERVICE_START_DATE = '||p_line_rec.SERVICE_START_DATE , 5 ) ; -- bug# 7231974
7523: oe_debug_pub.add( ' p_line_rec.SERVICE_END_DATE = '|| p_line_rec.SERVICE_END_DATE , 5 ) ;
7524: END IF;
7525:
7518: END IF;
7519:
7520: IF l_debug_level > 0 THEN
7521: oe_debug_pub.add( 'UPDATING FLOW STATUS CODE AS '||L_FLOW_STATUS_CODE , 5 ) ;
7522: oe_debug_pub.add( ' UPDATING p_line_rec.SERVICE_START_DATE = '||p_line_rec.SERVICE_START_DATE , 5 ) ; -- bug# 7231974
7523: oe_debug_pub.add( ' p_line_rec.SERVICE_END_DATE = '|| p_line_rec.SERVICE_END_DATE , 5 ) ;
7524: END IF;
7525:
7526: UPDATE OE_ORDER_LINES_ALL
7519:
7520: IF l_debug_level > 0 THEN
7521: oe_debug_pub.add( 'UPDATING FLOW STATUS CODE AS '||L_FLOW_STATUS_CODE , 5 ) ;
7522: oe_debug_pub.add( ' UPDATING p_line_rec.SERVICE_START_DATE = '||p_line_rec.SERVICE_START_DATE , 5 ) ; -- bug# 7231974
7523: oe_debug_pub.add( ' p_line_rec.SERVICE_END_DATE = '|| p_line_rec.SERVICE_END_DATE , 5 ) ;
7524: END IF;
7525:
7526: UPDATE OE_ORDER_LINES_ALL
7527: SET INVOICE_INTERFACE_STATUS_CODE = p_invoice_interface_status,
7555: , x_index => l_notify_index
7556: , x_return_status => l_return_status);
7557:
7558: IF l_debug_level > 0 THEN
7559: oe_debug_pub.add( 'UPDATE_GLOBAL RET_STATUS FOR LINE_ID '||L_LINE_TBL ( 1 ) .LINE_ID ||' IS: ' || L_RETURN_STATUS , 1 ) ;
7560: oe_debug_pub.add( 'UPDATE_GLOBAL INDEX FOR LINE_ID '||L_LINE_TBL ( 1 ) .LINE_ID ||' IS: ' || L_NOTIFY_INDEX , 1 ) ;
7561: END IF;
7562:
7563: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7556: , x_return_status => l_return_status);
7557:
7558: IF l_debug_level > 0 THEN
7559: oe_debug_pub.add( 'UPDATE_GLOBAL RET_STATUS FOR LINE_ID '||L_LINE_TBL ( 1 ) .LINE_ID ||' IS: ' || L_RETURN_STATUS , 1 ) ;
7560: oe_debug_pub.add( 'UPDATE_GLOBAL INDEX FOR LINE_ID '||L_LINE_TBL ( 1 ) .LINE_ID ||' IS: ' || L_NOTIFY_INDEX , 1 ) ;
7561: END IF;
7562:
7563: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7564: RAISE FND_API.G_EXC_ERROR;
7587: OE_ORDER_UTIL.g_line_tbl(l_notify_index).header_id:=
7588: l_line_tbl(1).header_id;
7589:
7590: IF l_debug_level > 0 THEN
7591: oe_debug_pub.add( 'GLOBAL LINE INVOICED_QUANTITY IS: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .INVOICED_QUANTITY , 1 ) ;
7592: oe_debug_pub.add( 'GLOBAL LINE CALCULATE_PRICE_FLAG IS: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .CALCULATE_PRICE_FLAG , 1 ) ;
7593: oe_debug_pub.add( 'GLOBAL LINE INVOICE_INTERFACE_STATUS_CODE IS: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .INVOICE_INTERFACE_STATUS_CODE , 1 ) ;
7594: oe_debug_pub.add( 'GLOBAL LINE FLOW_STATUS_CODE IS: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .FLOW_STATUS_CODE , 1 ) ;
7595: END IF;
7588: l_line_tbl(1).header_id;
7589:
7590: IF l_debug_level > 0 THEN
7591: oe_debug_pub.add( 'GLOBAL LINE INVOICED_QUANTITY IS: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .INVOICED_QUANTITY , 1 ) ;
7592: oe_debug_pub.add( 'GLOBAL LINE CALCULATE_PRICE_FLAG IS: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .CALCULATE_PRICE_FLAG , 1 ) ;
7593: oe_debug_pub.add( 'GLOBAL LINE INVOICE_INTERFACE_STATUS_CODE IS: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .INVOICE_INTERFACE_STATUS_CODE , 1 ) ;
7594: oe_debug_pub.add( 'GLOBAL LINE FLOW_STATUS_CODE IS: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .FLOW_STATUS_CODE , 1 ) ;
7595: END IF;
7596:
7589:
7590: IF l_debug_level > 0 THEN
7591: oe_debug_pub.add( 'GLOBAL LINE INVOICED_QUANTITY IS: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .INVOICED_QUANTITY , 1 ) ;
7592: oe_debug_pub.add( 'GLOBAL LINE CALCULATE_PRICE_FLAG IS: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .CALCULATE_PRICE_FLAG , 1 ) ;
7593: oe_debug_pub.add( 'GLOBAL LINE INVOICE_INTERFACE_STATUS_CODE IS: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .INVOICE_INTERFACE_STATUS_CODE , 1 ) ;
7594: oe_debug_pub.add( 'GLOBAL LINE FLOW_STATUS_CODE IS: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .FLOW_STATUS_CODE , 1 ) ;
7595: END IF;
7596:
7597: -- Process requests is TRUE so still need to call it, but don't need to notify
7590: IF l_debug_level > 0 THEN
7591: oe_debug_pub.add( 'GLOBAL LINE INVOICED_QUANTITY IS: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .INVOICED_QUANTITY , 1 ) ;
7592: oe_debug_pub.add( 'GLOBAL LINE CALCULATE_PRICE_FLAG IS: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .CALCULATE_PRICE_FLAG , 1 ) ;
7593: oe_debug_pub.add( 'GLOBAL LINE INVOICE_INTERFACE_STATUS_CODE IS: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .INVOICE_INTERFACE_STATUS_CODE , 1 ) ;
7594: oe_debug_pub.add( 'GLOBAL LINE FLOW_STATUS_CODE IS: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .FLOW_STATUS_CODE , 1 ) ;
7595: END IF;
7596:
7597: -- Process requests is TRUE so still need to call it, but don't need to notify
7598: IF l_debug_level > 0 THEN
7595: END IF;
7596:
7597: -- Process requests is TRUE so still need to call it, but don't need to notify
7598: IF l_debug_level > 0 THEN
7599: oe_debug_pub.add( 'OEXPINVB: BEFORE CALLING LINE PROCESS_REQUESTS_AND_NOTIFY' ) ;
7600: END IF;
7601: OE_Order_PVT.PROCESS_REQUESTS_AND_NOTIFY(
7602: P_LINE_TBL =>l_Line_tbl,
7603: P_OLD_LINE_TBL =>l_Old_Line_tbl,
7614:
7615: ELSE /* pre-pack H */
7616:
7617: IF l_debug_level > 0 THEN
7618: oe_debug_pub.add( 'OEXPINVB: BEFORE CALLING LINE PROCESS_REQUESTS_AND_NOTIFY' ) ;
7619: END IF;
7620: OE_Order_PVT.PROCESS_REQUESTS_AND_NOTIFY(
7621: P_LINE_TBL =>l_Line_tbl,
7622: P_OLD_LINE_TBL =>l_Old_Line_tbl,
7636:
7637: x_return_status := FND_API.G_RET_STS_SUCCESS;
7638:
7639: IF l_debug_level > 0 THEN
7640: oe_debug_pub.add( 'RETURN STATUS : ' ||X_RETURN_STATUS ) ;
7641: END IF;
7642:
7643: IF OE_Commitment_Pvt.DO_Commitment_Sequencing THEN --commitment sequencing ON
7644: IF p_line_rec.commitment_id IS NOT NULL AND
7643: IF OE_Commitment_Pvt.DO_Commitment_Sequencing THEN --commitment sequencing ON
7644: IF p_line_rec.commitment_id IS NOT NULL AND
7645: p_interface_line_rec.promised_commitment_amount IS NOT NULL THEN
7646: IF l_debug_level > 0 THEN
7647: oe_debug_pub.add( 'UPDATING OE_PAYMENTS' , 3 ) ;
7648: END IF;
7649: UPDATE oe_payments
7650: SET commitment_interfaced_amount = nvl(commitment_interfaced_amount, 0) + nvl(p_interface_line_rec.promised_commitment_amount, 0)
7651: WHERE LINE_ID = p_line_rec.line_id
7653: END IF;
7654: END IF;
7655:
7656: IF l_debug_level > 0 THEN
7657: oe_debug_pub.add( 'DONE UPDATING INVOICE ATTRIBUTES' , 1 ) ;
7658: END IF;
7659:
7660: EXCEPTION
7661: WHEN OTHERS THEN
7659:
7660: EXCEPTION
7661: WHEN OTHERS THEN
7662: IF l_debug_level > 0 THEN
7663: oe_debug_pub.add( 'EXCEPTION WHILE UPDATING INVOICE ATTRIBUTES : '||SQLERRM , 1 ) ;
7664: END IF;
7665: err_msg := 'Error in Update_Invoice_Attributes:\n '||SQLERRM;
7666: IF l_debug_level > 0 THEN
7667: oe_debug_pub.add( ERR_MSG ) ;
7663: oe_debug_pub.add( 'EXCEPTION WHILE UPDATING INVOICE ATTRIBUTES : '||SQLERRM , 1 ) ;
7664: END IF;
7665: err_msg := 'Error in Update_Invoice_Attributes:\n '||SQLERRM;
7666: IF l_debug_level > 0 THEN
7667: oe_debug_pub.add( ERR_MSG ) ;
7668: END IF;
7669: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7670: IF FND_MSG_PUB.Check_Msg_Level
7671: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7680: (p_line_id IN NUMBER
7681: ) RETURN BOOLEAN IS
7682: l_header_id NUMBER;
7683: --
7684: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7685: --
7686: BEGIN
7687: IF l_debug_level > 0 THEN
7688: oe_debug_pub.add( 'ENTER HEADER_ACTIVITY ( ) PROCEDURE ' , 5 ) ;
7684: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7685: --
7686: BEGIN
7687: IF l_debug_level > 0 THEN
7688: oe_debug_pub.add( 'ENTER HEADER_ACTIVITY ( ) PROCEDURE ' , 5 ) ;
7689: END IF;
7690: SELECT header_id
7691: INTO l_header_id
7692: FROM oe_order_lines
7700: FUNCTION Line_Activity
7701: (p_line_id IN NUMBER
7702: ) RETURN BOOLEAN IS
7703: --
7704: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7705: --
7706: BEGIN
7707: IF l_debug_level > 0 THEN
7708: oe_debug_pub.add( 'ENTER LINE_ACTIVITY ( ) PROCEDURE ' , 5 ) ;
7704: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7705: --
7706: BEGIN
7707: IF l_debug_level > 0 THEN
7708: oe_debug_pub.add( 'ENTER LINE_ACTIVITY ( ) PROCEDURE ' , 5 ) ;
7709: END IF;
7710: -- This function is provided by WF for our use with bug# 1040262.
7711: -- WF team removed this function at one stage and now provided the same
7712: -- for backward compatibility purpose with bug# 1869241.
7724: inv_num_index NUMBER;
7725: inv_num_base VARCHAR2(40);
7726: err_msg VARCHAR2(240);
7727: --
7728: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7729: --
7730: BEGIN
7731: IF l_debug_level > 0 THEN
7732: oe_debug_pub.add( 'ENTER UPDATE_INVOICE_NUMBERS ( ) PROCEDURE ' , 5 ) ;
7728: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7729: --
7730: BEGIN
7731: IF l_debug_level > 0 THEN
7732: oe_debug_pub.add( 'ENTER UPDATE_INVOICE_NUMBERS ( ) PROCEDURE ' , 5 ) ;
7733: oe_debug_pub.add( 'UPDATE INVOICE NUMBERS: DEL_ID ' || TO_CHAR ( P_DEL_ID ) ||' DEL NAME: ' || P_DEL_NAME , 5 ) ;
7734: END IF;
7735: inv_num_base := p_del_name;
7736: SELECT nvl((max(index_number)+1), 0)
7729: --
7730: BEGIN
7731: IF l_debug_level > 0 THEN
7732: oe_debug_pub.add( 'ENTER UPDATE_INVOICE_NUMBERS ( ) PROCEDURE ' , 5 ) ;
7733: oe_debug_pub.add( 'UPDATE INVOICE NUMBERS: DEL_ID ' || TO_CHAR ( P_DEL_ID ) ||' DEL NAME: ' || P_DEL_NAME , 5 ) ;
7734: END IF;
7735: inv_num_base := p_del_name;
7736: SELECT nvl((max(index_number)+1), 0)
7737: INTO inv_num_index
7745: ELSE
7746: inv_num := inv_num_base || '-' || to_char(inv_num_index);
7747: END IF;
7748: IF l_debug_level > 0 THEN
7749: oe_debug_pub.add( 'GLOBAL USER ' || NVL(oe_standard_wf.g_user_id, fnd_global.user_id)); -- 3169637
7750: oe_debug_pub.add( 'INV NUM INDEX ' || TO_CHAR ( INV_NUM_INDEX ) ) ;
7751: END IF;
7752: INSERT INTO OE_INVOICE_NUMBERS(
7753: INVOICE_NUMBER_ID
7746: inv_num := inv_num_base || '-' || to_char(inv_num_index);
7747: END IF;
7748: IF l_debug_level > 0 THEN
7749: oe_debug_pub.add( 'GLOBAL USER ' || NVL(oe_standard_wf.g_user_id, fnd_global.user_id)); -- 3169637
7750: oe_debug_pub.add( 'INV NUM INDEX ' || TO_CHAR ( INV_NUM_INDEX ) ) ;
7751: END IF;
7752: INSERT INTO OE_INVOICE_NUMBERS(
7753: INVOICE_NUMBER_ID
7754: , DELIVERY_ID
7766: , SYSDATE
7767: , NVL(oe_standard_wf.g_user_id, fnd_global.user_id)); -- 3169637
7768:
7769: IF l_debug_level > 0 THEN
7770: oe_debug_pub.add( 'DONE UPDATE_INVOICE_NUMBERS W/SUCCESS' , 5 ) ;
7771: END IF;
7772: RETURN 0;
7773: EXCEPTION
7774: WHEN OTHERS THEN
7773: EXCEPTION
7774: WHEN OTHERS THEN
7775: err_msg := 'Error in update_invoice_numbers:\n '||SQLERRM;
7776: IF l_debug_level > 0 THEN
7777: oe_debug_pub.add( ERR_MSG ) ;
7778: oe_debug_pub.add( 'WHEN OTHERS :EXITING UPDATE_INVOICE_NUMBERS' , 1 ) ;
7779: END IF;
7780: RETURN -1;
7781: END Update_Invoice_Numbers;
7774: WHEN OTHERS THEN
7775: err_msg := 'Error in update_invoice_numbers:\n '||SQLERRM;
7776: IF l_debug_level > 0 THEN
7777: oe_debug_pub.add( ERR_MSG ) ;
7778: oe_debug_pub.add( 'WHEN OTHERS :EXITING UPDATE_INVOICE_NUMBERS' , 1 ) ;
7779: END IF;
7780: RETURN -1;
7781: END Update_Invoice_Numbers;
7782:
7813: SELECT delivery_id
7814: FROM wsh_new_deliveries
7815: WHERE name = p_del_name;
7816: --
7817: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7818: --
7819: BEGIN
7820: IF l_debug_level > 0 THEN
7821: oe_debug_pub.add( 'ENTER UPDATE_NUMBERS ( ) PROCEDURE' , 5 ) ;
7817: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7818: --
7819: BEGIN
7820: IF l_debug_level > 0 THEN
7821: oe_debug_pub.add( 'ENTER UPDATE_NUMBERS ( ) PROCEDURE' , 5 ) ;
7822: END IF;
7823: SELECT count(*)
7824: INTO l_count
7825: FROM ra_interface_lines_all
7826: WHERE request_id = -1 * p_id;
7827:
7828: IF l_count = 0 THEN
7829: IF l_debug_level > 0 THEN
7830: oe_debug_pub.add( 'NO LINES NEED MANUAL NUMBERING' , 5 ) ;
7831: END IF;
7832: x_return_status := FND_API.G_RET_STS_SUCCESS;
7833: RETURN;
7834: END IF;
7848: END IF;
7849: END LOOP;
7850: CLOSE cur_get_cols;
7851: IF l_debug_level > 0 THEN
7852: oe_debug_pub.add( 'POSITION 2' ) ;
7853: -- Build the full select statement and using dbms_sql execute
7854: -- the statement
7855: oe_debug_pub.add( 'POSITION 2-1' ) ;
7856: END IF;
7851: IF l_debug_level > 0 THEN
7852: oe_debug_pub.add( 'POSITION 2' ) ;
7853: -- Build the full select statement and using dbms_sql execute
7854: -- the statement
7855: oe_debug_pub.add( 'POSITION 2-1' ) ;
7856: END IF;
7857: grp_stmt := 'Select ' || select_col || ' group_cols,' ||
7858: ' l.interface_line_attribute3, ROWID ' ||
7859: ' From RA_INTERFACE_LINES_ALL L' ||
7865: LOOP
7866: FETCH del_cursor INTO this_concat_cols, this_del_name, this_rowid;
7867: EXIT WHEN del_cursor%NOTFOUND;
7868: IF l_debug_level > 0 THEN
7869: oe_debug_pub.add( 'DELIVERY NAME: ' || THIS_DEL_NAME , 5 ) ;
7870: oe_debug_pub.add( 'CONCAT COLS: ' || THIS_CONCAT_COLS , 5 ) ;
7871: END IF;
7872: IF ( last_del_name is NULL OR
7873: last_del_name <> this_del_name ) THEN
7866: FETCH del_cursor INTO this_concat_cols, this_del_name, this_rowid;
7867: EXIT WHEN del_cursor%NOTFOUND;
7868: IF l_debug_level > 0 THEN
7869: oe_debug_pub.add( 'DELIVERY NAME: ' || THIS_DEL_NAME , 5 ) ;
7870: oe_debug_pub.add( 'CONCAT COLS: ' || THIS_CONCAT_COLS , 5 ) ;
7871: END IF;
7872: IF ( last_del_name is NULL OR
7873: last_del_name <> this_del_name ) THEN
7874: IF l_debug_level > 0 THEN
7871: END IF;
7872: IF ( last_del_name is NULL OR
7873: last_del_name <> this_del_name ) THEN
7874: IF l_debug_level > 0 THEN
7875: oe_debug_pub.add( 'POSITION 5' ) ;
7876: END IF;
7877: OPEN cur_get_del_id(this_del_name);
7878: FETCH cur_get_del_id Into this_del_id;
7879: IF (cur_get_del_id%NOTFOUND ) THEN
7880: fnd_message.set_token('DELIVERY_NAME', this_del_name);
7881: fnd_message.set_name('OE', 'WSH_AR_INVALID_DEL_NAME');
7882: err_msg := fnd_message.get;
7883: IF l_debug_level > 0 THEN
7884: oe_debug_pub.add( ERR_MSG ) ;
7885: END IF;
7886: CLOSE cur_get_del_id;
7887: --return;
7888: END IF;
7889: IF ( cur_get_del_id%ISOPEN ) THEN
7890: Close cur_get_del_id;
7891: END IF;
7892: IF l_debug_level > 0 THEN
7893: oe_debug_pub.add( 'DELIVERY ID: ' || TO_CHAR ( THIS_DEL_ID ) , 5 ) ;
7894: END IF;
7895: END IF;
7896: IF ( last_concat_cols is NULL OR
7897: last_concat_cols <> this_concat_cols ) THEN
7895: END IF;
7896: IF ( last_concat_cols is NULL OR
7897: last_concat_cols <> this_concat_cols ) THEN
7898: IF l_debug_level > 0 THEN
7899: oe_debug_pub.add( 'CONCAT COLS CHANGED , CALLING UPDATE_INVOICE' ) ;
7900: END IF;
7901: IF ( Update_Invoice_Numbers ( this_del_id, this_del_name) < 0 ) THEN
7902: x_return_status := FND_API.G_RET_STS_SUCCESS;
7903: RETURN;
7906: last_concat_cols := this_concat_cols;
7907: ELSE
7908: IF ( last_del_name <> this_del_name ) THEN
7909: IF l_debug_level > 0 THEN
7910: oe_debug_pub.add( 'DEL NAME CHANGED , CALLING UPDATE_INVOICE' ) ;
7911: END IF;
7912: IF ( update_invoice_numbers ( this_del_id, this_del_name) < 0 ) THEN
7913: x_return_status := FND_API.G_RET_STS_SUCCESS;
7914: RETURN;
7916: last_del_name := this_del_name;
7917: END IF;
7918: END IF;
7919: IF l_debug_level > 0 THEN
7920: oe_debug_pub.add( 'TRANSACTION NUMBER IS : '|| INV_NUM , 5 ) ;
7921: END IF;
7922: Update RA_INTERFACE_LINES_ALL
7923: set trx_number = substr(inv_num,1,20) -- substr(inv_num,20)--inv_num --bug#7592350 -- Bug 8216166
7924: where rowid = chartorowid(this_rowid);
7924: where rowid = chartorowid(this_rowid);
7925: END LOOP;
7926: CLOSE del_cursor;
7927: IF l_debug_level > 0 THEN
7928: oe_debug_pub.add( 'SETTING REQUEST ID TO NULL' , 5 ) ;
7929: END IF;
7930: update ra_interface_lines_all
7931: set request_id=null
7932: where request_id = -1 * p_id;
7931: set request_id=null
7932: where request_id = -1 * p_id;
7933: x_return_status := FND_API.G_RET_STS_SUCCESS;
7934: IF l_debug_level > 0 THEN
7935: oe_debug_pub.add( 'EXITING UPDATE_NUMBERS ( ) PROCEDURE' , 5 ) ;
7936: END IF;
7937: RETURN;
7938: EXCEPTION
7939: WHEN OTHERS THEN
7937: RETURN;
7938: EXCEPTION
7939: WHEN OTHERS THEN
7940: IF l_debug_level > 0 THEN
7941: oe_debug_pub.add( 'ORACLE ERROR: ' || SQLERRM , 1 ) ;
7942: END IF;
7943: err_msg := 'Error in update_numbers:\n '|| SQLERRM;
7944: IF l_debug_level > 0 THEN
7945: oe_debug_pub.add( ERR_MSG ) ;
7941: oe_debug_pub.add( 'ORACLE ERROR: ' || SQLERRM , 1 ) ;
7942: END IF;
7943: err_msg := 'Error in update_numbers:\n '|| SQLERRM;
7944: IF l_debug_level > 0 THEN
7945: oe_debug_pub.add( ERR_MSG ) ;
7946: END IF;
7947: x_return_status := FND_API.G_RET_STS_ERROR;
7948: IF (cur_get_cols%ISOPEN) THEN
7949: CLOSE cur_get_cols;
7951: IF (cur_get_del_id%ISOPEN) THEN
7952: CLOSE cur_get_del_id;
7953: END IF;
7954: IF l_debug_level > 0 THEN
7955: oe_debug_pub.add( 'EXITING UPDATE_NUMBERS' , 1 ) ;
7956: END IF;
7957: RETURN;
7958: IF l_debug_level > 0 THEN
7959: oe_debug_pub.add( 'EXITING UPDATE_NUMBERS' , 1 ) ;
7955: oe_debug_pub.add( 'EXITING UPDATE_NUMBERS' , 1 ) ;
7956: END IF;
7957: RETURN;
7958: IF l_debug_level > 0 THEN
7959: oe_debug_pub.add( 'EXITING UPDATE_NUMBERS' , 1 ) ;
7960: END IF;
7961: END Update_Numbers;
7962:
7963: PROCEDURE Interface_Single_Line
7990: l_line_invoiceable BOOLEAN;
7991: l_line_rejected BOOLEAN;
7992:
7993: --
7994: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7995: --
7996: BEGIN
7997: IF l_debug_level > 0 THEN
7998: oe_debug_pub.add( 'ENTERING INTERFACE_SINGLE_LINE ( ) PROCEDURE' , 5 ) ;
7994: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7995: --
7996: BEGIN
7997: IF l_debug_level > 0 THEN
7998: oe_debug_pub.add( 'ENTERING INTERFACE_SINGLE_LINE ( ) PROCEDURE' , 5 ) ;
7999: oe_debug_pub.add( 'INTERFACING LINE ID '||TO_CHAR ( P_LINE_REC.LINE_ID ) , 1 ) ;
8000: END IF;
8001: x_return_status := FND_API.G_RET_STS_SUCCESS;
8002: --Customer Acceptance
7995: --
7996: BEGIN
7997: IF l_debug_level > 0 THEN
7998: oe_debug_pub.add( 'ENTERING INTERFACE_SINGLE_LINE ( ) PROCEDURE' , 5 ) ;
7999: oe_debug_pub.add( 'INTERFACING LINE ID '||TO_CHAR ( P_LINE_REC.LINE_ID ) , 1 ) ;
8000: END IF;
8001: x_return_status := FND_API.G_RET_STS_SUCCESS;
8002: --Customer Acceptance
8003: l_line_invoiceable := Line_Invoiceable(p_line_rec);
8005:
8006: --gaynagar added code for handling non-invoiceable lines
8007: -- IF NOT Line_Invoiceable(p_line_rec) THEN
8008: IF NOT l_line_invoiceable OR l_line_rejected THEN --Customer Acceptance
8009: oe_debug_pub.add('Line is non invoiceable',1);
8010: /* Bug#2666125 start-check freight records and holds for non invoiceable items*/
8011: /* BEGIN
8012: IF oe_code_control.code_release_level < '110510' then
8013: SELECT count(*)
8041:
8042: EXCEPTION
8043: WHEN NO_DATA_FOUND THEN
8044: IF l_debug_level > 0 THEN
8045: oe_debug_pub.add('Non-invoiceable lines-In when no data found of freight');
8046: END IF;
8047: l_freight_count := 0;
8048: END;
8049: IF l_debug_level > 0 THEN
8046: END IF;
8047: l_freight_count := 0;
8048: END;
8049: IF l_debug_level > 0 THEN
8050: oe_debug_pub.add('l_freight_count: '||l_freight_count);
8051: END IF;
8052: IF l_freight_count >0 then
8053: Check_Invoicing_Holds(p_line_rec, g_itemtype, x_return_status);
8054: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
8078: --- some lines in RFR-PENDING block. We should invoice them.
8079: IF Is_PTO(p_line_rec) THEN
8080: IF Is_RFR(p_line_rec.line_id) THEN
8081: IF l_debug_level > 0 THEN
8082: oe_debug_pub.add( 'RFR: THIS LINE IS RFR BUT NOT ELIGIBLE FOR INVOICING- CHECKING FOR PENDING LINES' , 5 ) ;
8083: END IF;
8084: Open Pending_Lines;
8085: LOOP
8086: Fetch Pending_Lines Into l_pending_line_id;
8086: Fetch Pending_Lines Into l_pending_line_id;
8087: EXIT WHEN Pending_Lines%NOTFOUND;
8088: OE_Line_Util.Query_Row(p_line_id=>l_pending_line_id,x_line_rec=>l_pending_line_rec);
8089: IF l_debug_level > 0 THEN
8090: oe_debug_pub.add( 'RFR: PENDING LINE ID : ' || TO_CHAR ( L_PENDING_LINE_ID ) , 5 ) ;
8091: END IF;
8092: IF Something_To_Invoice(l_pending_line_rec) THEN -- the pending line now has something to
8093: -- invoice because current line has been shipped
8094: IF l_debug_level > 0 THEN
8091: END IF;
8092: IF Something_To_Invoice(l_pending_line_rec) THEN -- the pending line now has something to
8093: -- invoice because current line has been shipped
8094: IF l_debug_level > 0 THEN
8095: oe_debug_pub.add( 'RFR: INTERFACING PENDING LINE ID :'||L_PENDING_LINE_ID , 5 ) ;
8096: END IF;
8097: Interface_Single_line(p_line_rec => l_pending_line_rec
8098: ,p_header_rec => p_header_rec
8099: ,p_x_interface_line_rec => p_x_interface_line_rec
8099: ,p_x_interface_line_rec => p_x_interface_line_rec
8100: ,x_return_status => x_return_status
8101: ,x_result_out => x_result_out);
8102: IF l_debug_level > 0 THEN
8103: oe_debug_pub.add( 'INTERFACING PENDING LINE ID ' || L_PENDING_LINE_REC.LINE_ID , 5 ) ;
8104: END IF;
8105: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
8106: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
8107: RAISE FND_API.G_EXC_ERROR;
8110: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8111: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
8112: IF x_result_out = OE_GLOBALS.G_WFR_PRTL_COMPLETE THEN
8113: IF l_debug_level > 0 THEN
8114: oe_debug_pub.add( 'RFR PENDING LINE PARTIALLY INTERFACED' , 5 ) ;
8115: END IF;
8116: ELSE --x_result_out = OE_GLOBALS.G_WFR_COMPLETE THEN
8117: IF l_debug_level > 0 THEN
8118: oe_debug_pub.add( 'RFR-PENDING LINE INTERFACED SUCCESSFULLY' , 5 ) ;
8114: oe_debug_pub.add( 'RFR PENDING LINE PARTIALLY INTERFACED' , 5 ) ;
8115: END IF;
8116: ELSE --x_result_out = OE_GLOBALS.G_WFR_COMPLETE THEN
8117: IF l_debug_level > 0 THEN
8118: oe_debug_pub.add( 'RFR-PENDING LINE INTERFACED SUCCESSFULLY' , 5 ) ;
8119: END IF;
8120: WF_ENGINE.CompleteActivityInternalName(OE_GLOBALS.G_WFI_LIN, l_pending_line_rec.line_id, 'INVOICING_WAIT_FOR_RFR', 'COMPLETE');
8121: END IF;
8122: END IF;
8163:
8164: EXCEPTION
8165: WHEN NO_DATA_FOUND THEN
8166: IF l_debug_level > 0 THEN
8167: oe_debug_pub.add( 'IN WHEN NO DATA FOUND OF FREIGHT' ) ;
8168: END IF;
8169: l_freight_count := 0;
8170: END;
8171: IF l_debug_level > 0 THEN
8168: END IF;
8169: l_freight_count := 0;
8170: END;
8171: IF l_debug_level > 0 THEN
8172: oe_debug_pub.add( 'L_FREIGHT_COUNT: '||L_FREIGHT_COUNT ) ;
8173: END IF;
8174: IF l_freight_count > 0 THEN
8175: /* END Enhancement Request# 1915736 */
8176: IF l_debug_level > 0 THEN
8173: END IF;
8174: IF l_freight_count > 0 THEN
8175: /* END Enhancement Request# 1915736 */
8176: IF l_debug_level > 0 THEN
8177: oe_debug_pub.add( 'PREPARING INTERFACE LINE RECORD' , 5 ) ;
8178: END IF;
8179:
8180: Prepare_Interface_Line_Rec(p_line_rec => p_line_rec
8181: ,p_header_rec => p_header_rec
8181: ,p_header_rec => p_header_rec
8182: ,p_x_interface_line_rec => p_x_interface_line_rec
8183: ,x_result_code => l_result_code);
8184: IF l_debug_level > 0 THEN
8185: oe_debug_pub.add( 'VALIDATING REQUIRED ATTRIBUTES' , 5 ) ;
8186: END IF;
8187: IF NOT Validate_Required_Attributes(p_line_rec, p_x_interface_line_rec) THEN
8188: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
8189: RAISE FND_API.G_EXC_ERROR;
8188: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
8189: RAISE FND_API.G_EXC_ERROR;
8190: END IF;
8191: IF l_debug_level > 0 THEN
8192: oe_debug_pub.add( 'INTERFACING FREIGHT CHARGES' , 5 ) ;
8193: END IF;
8194: Interface_Freight_Charges(p_line_rec
8195: , p_x_interface_line_rec
8196: , x_return_status);
8207: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8208: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
8209: x_result_out := OE_GLOBALS.G_WFR_NOT_ELIGIBLE;
8210: IF l_debug_level > 0 THEN
8211: oe_debug_pub.add( 'RETURN AFTER INVOICEABLE ELIGIBLE CHECK' , 1 ) ;
8212: END IF;
8213: --Customer Acceptance
8214: IF l_line_rejected AND p_line_rec.line_category_code = 'RETURN' THEN
8215: FND_MESSAGE.SET_NAME('ONT','ONT_RMA_NO_CREDIT');
8221: END IF;
8222: --gaynagar end
8223:
8224: IF l_debug_level > 0 THEN
8225: oe_debug_pub.add( 'PREPARING INTERFACE LINE RECORD' , 5 ) ;
8226: END IF;
8227: Prepare_Interface_Line_Rec(p_line_rec => p_line_rec
8228: ,p_header_rec => p_header_rec
8229: ,p_x_interface_line_rec => p_x_interface_line_rec
8228: ,p_header_rec => p_header_rec
8229: ,p_x_interface_line_rec => p_x_interface_line_rec
8230: ,x_result_code => l_result_code);
8231: IF l_debug_level > 0 THEN
8232: oe_debug_pub.add( 'REQUEST_ID: '||P_X_INTERFACE_LINE_REC.REQUEST_ID || ' RESULT_CODE: '||L_RESULT_CODE , 5 ) ;
8233: END IF;
8234: IF ((p_x_interface_line_rec.QUANTITY = 0 OR p_x_interface_line_rec.QUANTITY IS NULL) AND l_result_code = 'RFR-PENDING') THEN
8235: IF l_debug_level > 0 THEN
8236: oe_debug_pub.add( 'ZERO QUANTITY LINE - NOT INTERFACED' , 5 ) ;
8232: oe_debug_pub.add( 'REQUEST_ID: '||P_X_INTERFACE_LINE_REC.REQUEST_ID || ' RESULT_CODE: '||L_RESULT_CODE , 5 ) ;
8233: END IF;
8234: IF ((p_x_interface_line_rec.QUANTITY = 0 OR p_x_interface_line_rec.QUANTITY IS NULL) AND l_result_code = 'RFR-PENDING') THEN
8235: IF l_debug_level > 0 THEN
8236: oe_debug_pub.add( 'ZERO QUANTITY LINE - NOT INTERFACED' , 5 ) ;
8237: oe_debug_pub.add( 'UPDATING INVOICE FLAG AND QUANTITY' , 5 ) ;
8238: END IF;
8239: IF l_result_code = 'RFR-PENDING' THEN
8240: Update_Invoice_Attributes(p_line_rec
8233: END IF;
8234: IF ((p_x_interface_line_rec.QUANTITY = 0 OR p_x_interface_line_rec.QUANTITY IS NULL) AND l_result_code = 'RFR-PENDING') THEN
8235: IF l_debug_level > 0 THEN
8236: oe_debug_pub.add( 'ZERO QUANTITY LINE - NOT INTERFACED' , 5 ) ;
8237: oe_debug_pub.add( 'UPDATING INVOICE FLAG AND QUANTITY' , 5 ) ;
8238: END IF;
8239: IF l_result_code = 'RFR-PENDING' THEN
8240: Update_Invoice_Attributes(p_line_rec
8241: ,p_x_interface_line_rec
8246: OE_MSG_PUB.ADD;
8247: END IF;
8248: END IF;
8249: IF l_debug_level > 0 THEN
8250: oe_debug_pub.add( 'REQUEST_ID AFTER INSERTING '||P_X_INTERFACE_LINE_REC.REQUEST_ID , 5 ) ;
8251: END IF;
8252: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
8253: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
8254: RAISE FND_API.G_EXC_ERROR;
8258: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
8259: IF l_result_code = 'RFR-PENDING' THEN
8260: x_result_out := OE_GLOBALS.G_WFR_PRTL_COMPLETE;
8261: IF l_debug_level > 0 THEN
8262: oe_debug_pub.add( 'LINE ID '||TO_CHAR ( P_LINE_REC.LINE_ID ) ||' PARTIALLY INTERFACED SUCCESSFULLY ' || 'X_RESULT_OUT: '||X_RESULT_OUT ||' L_RESULT_CODE '||L_RESULT_CODE ) ;
8263: END IF;
8264: IF l_debug_level > 0 THEN
8265: oe_debug_pub.add( 'EXITING INTERFACE_SINGLE_LINE' , 5 ) ;
8266: END IF;
8261: IF l_debug_level > 0 THEN
8262: oe_debug_pub.add( 'LINE ID '||TO_CHAR ( P_LINE_REC.LINE_ID ) ||' PARTIALLY INTERFACED SUCCESSFULLY ' || 'X_RESULT_OUT: '||X_RESULT_OUT ||' L_RESULT_CODE '||L_RESULT_CODE ) ;
8263: END IF;
8264: IF l_debug_level > 0 THEN
8265: oe_debug_pub.add( 'EXITING INTERFACE_SINGLE_LINE' , 5 ) ;
8266: END IF;
8267: RETURN; --Do not need to interface this line
8268: END IF;
8269: END IF;
8267: RETURN; --Do not need to interface this line
8268: END IF;
8269: END IF;
8270: IF l_debug_level > 0 THEN
8271: oe_debug_pub.add( 'EXIT INTERFACE_SINGLE_LINE ( ) PROCEDURE ( 1 ) ' , 1 ) ;
8272: END IF;
8273: RETURN; --Do not need to interface this line
8274: END IF; -- Zero invoice quantity RFR
8275: IF l_debug_level > 0 THEN
8272: END IF;
8273: RETURN; --Do not need to interface this line
8274: END IF; -- Zero invoice quantity RFR
8275: IF l_debug_level > 0 THEN
8276: oe_debug_pub.add( 'VALIDATE REQUIRED ATTRIBUTES' , 5 ) ;
8277: END IF;
8278: IF NOT Validate_Required_Attributes(p_line_rec, p_x_interface_line_rec) THEN
8279: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
8280: RAISE FND_API.G_EXC_ERROR;
8279: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
8280: RAISE FND_API.G_EXC_ERROR;
8281: END IF;
8282: IF l_debug_level > 0 THEN
8283: oe_debug_pub.add( 'INSERTING LINE INTO RA_INTERFACE_LINES' , 5 ) ;
8284: END IF;
8285: Insert_Line(p_x_interface_line_rec
8286: ,x_return_status=>l_return_status);
8287: -- Fix for the bug 2187074
8293: -- 3685479 Replacing show detail dis by the following IF
8294: -- Adjustments need not be queried here as it is anyway going to be queried in interface_detail_discounts
8295: IF (oe_sys_parameters.value('OE_DISCOUNT_DETAILS_ON_INVOICE',p_line_rec.org_id) = 'Y') THEN --moac
8296: IF l_debug_level > 0 THEN
8297: oe_debug_pub.add( 'INSERTING DISCOUNT DETAILS' , 5 ) ;
8298: END IF;
8299: Interface_Detail_Discounts(p_line_rec, p_x_interface_line_rec
8300: ,x_return_status);
8301: -- Fix for the bug 2187074
8304: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8305: END IF;
8306: END IF;
8307: IF l_debug_level > 0 THEN
8308: oe_debug_pub.add( 'INTERFACING FREIGHT CHARGES' , 5 ) ;
8309: END IF;
8310: Interface_Freight_Charges(p_line_rec
8311: , p_x_interface_line_rec
8312: , x_return_status);
8317: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
8318: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8319: END IF;
8320: IF l_debug_level > 0 THEN
8321: oe_debug_pub.add( 'INTERFACING SALES CREDITS' , 5 ) ;
8322: END IF;
8323: Interface_Salescredits(p_line_rec
8324: ,p_x_interface_line_rec
8325: ,x_return_status);
8332: END IF;
8333:
8334: --Customer Acceptance
8335: IF l_debug_level > 0 THEN
8336: oe_debug_pub.add( 'INTERFACING Contingencies' , 5 ) ;
8337: END IF;
8338: Interface_Contingencies
8339: ( p_line_rec => p_line_rec
8340: , p_interface_line_rec => p_x_interface_line_rec
8346: END IF;
8347: --Customer Acceptance
8348:
8349: IF l_debug_level > 0 THEN
8350: oe_debug_pub.add( 'UPDATING INVOICE FLAG AND QUANTITY' , 5 ) ;
8351: END IF;
8352: IF l_result_code = 'RFR-PENDING' THEN
8353: Update_Invoice_Attributes(p_line_rec
8354: ,p_x_interface_line_rec
8364: ,'YES'
8365: ,x_return_status);
8366: END IF;
8367: IF l_debug_level > 0 THEN
8368: oe_debug_pub.add( 'REQUEST_ID AFTER INSERTING '||P_X_INTERFACE_LINE_REC.REQUEST_ID ) ;
8369: END IF;
8370: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
8371: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
8372: RAISE FND_API.G_EXC_ERROR;
8376: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
8377: IF l_result_code = 'RFR-PENDING' THEN
8378: x_result_out := OE_GLOBALS.G_WFR_PRTL_COMPLETE;
8379: IF l_debug_level > 0 THEN
8380: oe_debug_pub.add( 'LINE ID '||TO_CHAR ( P_LINE_REC.LINE_ID ) ||' PARTIALLY INTERFACED SUCCESSFULLY' , 1 ) ;
8381: END IF;
8382: ELSE
8383: x_result_out := OE_GLOBALS.G_WFR_COMPLETE;
8384: IF l_debug_level > 0 THEN
8381: END IF;
8382: ELSE
8383: x_result_out := OE_GLOBALS.G_WFR_COMPLETE;
8384: IF l_debug_level > 0 THEN
8385: oe_debug_pub.add( 'LINE ID '||TO_CHAR ( P_LINE_REC.LINE_ID ) ||' INTERFACED SUCCESSFULLY' , 1 ) ;
8386: END IF;
8387: END IF;
8388: END IF;
8389:
8387: END IF;
8388: END IF;
8389:
8390: IF l_debug_level > 0 THEN
8391: oe_debug_pub.add( 'EXIT INTERFACE_SINGLE_LINE ( ) PROCEDURE SUCCESSFULLY' , 1 ) ;
8392: END IF;
8393: EXCEPTION
8394: WHEN FND_API.G_EXC_ERROR THEN
8395: IF l_debug_level > 0 THEN
8392: END IF;
8393: EXCEPTION
8394: WHEN FND_API.G_EXC_ERROR THEN
8395: IF l_debug_level > 0 THEN
8396: oe_debug_pub.add( 'EXPECTED ERROR. EXITING INTERFACE_SINGLE_LINE : '||SQLERRM , 1 ) ;
8397: END IF;
8398: x_return_status := FND_API.G_RET_STS_ERROR;
8399: IF l_debug_level > 0 THEN
8400: oe_debug_pub.add( 'RETURN STATUS :'||X_RETURN_STATUS||' OUT RESULT : '||X_RESULT_OUT , 5 ) ;
8396: oe_debug_pub.add( 'EXPECTED ERROR. EXITING INTERFACE_SINGLE_LINE : '||SQLERRM , 1 ) ;
8397: END IF;
8398: x_return_status := FND_API.G_RET_STS_ERROR;
8399: IF l_debug_level > 0 THEN
8400: oe_debug_pub.add( 'RETURN STATUS :'||X_RETURN_STATUS||' OUT RESULT : '||X_RESULT_OUT , 5 ) ;
8401: END IF;
8402: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8403: IF l_debug_level > 0 THEN
8404: oe_debug_pub.add( 'UNEXPECTED ERROR. EXITING INTERFACE_SINGLE_LINE '||SQLERRM , 1 ) ;
8400: oe_debug_pub.add( 'RETURN STATUS :'||X_RETURN_STATUS||' OUT RESULT : '||X_RESULT_OUT , 5 ) ;
8401: END IF;
8402: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8403: IF l_debug_level > 0 THEN
8404: oe_debug_pub.add( 'UNEXPECTED ERROR. EXITING INTERFACE_SINGLE_LINE '||SQLERRM , 1 ) ;
8405: oe_debug_pub.add( 'RETURN STATUS :'||X_RETURN_STATUS||' OUT RESULT : '||X_RESULT_OUT , 5 ) ;
8406: END IF;
8407: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8408: WHEN OTHERS THEN
8401: END IF;
8402: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8403: IF l_debug_level > 0 THEN
8404: oe_debug_pub.add( 'UNEXPECTED ERROR. EXITING INTERFACE_SINGLE_LINE '||SQLERRM , 1 ) ;
8405: oe_debug_pub.add( 'RETURN STATUS :'||X_RETURN_STATUS||' OUT RESULT : '||X_RESULT_OUT , 5 ) ;
8406: END IF;
8407: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8408: WHEN OTHERS THEN
8409: IF l_debug_level > 0 THEN
8406: END IF;
8407: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8408: WHEN OTHERS THEN
8409: IF l_debug_level > 0 THEN
8410: oe_debug_pub.add( 'OTHER EXCEPTION. EXITING INTERFACE_SINGLE_LINE : '||SQLERRM , 1 ) ;
8411: oe_debug_pub.add( 'RETURN STATUS :'||X_RETURN_STATUS||' OUT RESULT : '||X_RESULT_OUT , 5 ) ;
8412: END IF;
8413: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8414: OE_MSG_PUB.Add_Exc_Msg
8407: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8408: WHEN OTHERS THEN
8409: IF l_debug_level > 0 THEN
8410: oe_debug_pub.add( 'OTHER EXCEPTION. EXITING INTERFACE_SINGLE_LINE : '||SQLERRM , 1 ) ;
8411: oe_debug_pub.add( 'RETURN STATUS :'||X_RETURN_STATUS||' OUT RESULT : '||X_RESULT_OUT , 5 ) ;
8412: END IF;
8413: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8414: OE_MSG_PUB.Add_Exc_Msg
8415: ( G_PKG_NAME
8496: WHERE (Line.link_to_line_id = l_line_rec.link_to_line_id
8497: OR Line.line_id = l_line_rec.link_to_line_id)
8498: AND invoice_interface_status_code = 'RFR-PENDING';
8499: --
8500: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8501: --
8502: l_delivery_name VARCHAR2(30);
8503: --bug# 4094835
8504: delivery_line_processed VARCHAR2(1):='N';
8507: v_line_id NUMBER;
8508: v_lock_control NUMBER;
8509: BEGIN
8510: IF l_debug_level > 0 THEN
8511: oe_debug_pub.add( 'ENTERING INTERFACE_LINE ( ) PROCEDURE' , 1 ) ;
8512: oe_debug_pub.add( 'LINE ID : '|| P_LINE_ID , 5 ) ;
8513: oe_debug_pub.add( 'ITEM TYPE : '||P_ITEMTYPE , 5 ) ;
8514: END IF;
8515: IF p_itemtype = OE_GLOBALS.G_WFI_LIN THEN
8508: v_lock_control NUMBER;
8509: BEGIN
8510: IF l_debug_level > 0 THEN
8511: oe_debug_pub.add( 'ENTERING INTERFACE_LINE ( ) PROCEDURE' , 1 ) ;
8512: oe_debug_pub.add( 'LINE ID : '|| P_LINE_ID , 5 ) ;
8513: oe_debug_pub.add( 'ITEM TYPE : '||P_ITEMTYPE , 5 ) ;
8514: END IF;
8515: IF p_itemtype = OE_GLOBALS.G_WFI_LIN THEN
8516: SAVEPOINT INVOICE_INTERFACE;
8509: BEGIN
8510: IF l_debug_level > 0 THEN
8511: oe_debug_pub.add( 'ENTERING INTERFACE_LINE ( ) PROCEDURE' , 1 ) ;
8512: oe_debug_pub.add( 'LINE ID : '|| P_LINE_ID , 5 ) ;
8513: oe_debug_pub.add( 'ITEM TYPE : '||P_ITEMTYPE , 5 ) ;
8514: END IF;
8515: IF p_itemtype = OE_GLOBALS.G_WFI_LIN THEN
8516: SAVEPOINT INVOICE_INTERFACE;
8517: END IF;
8573: from oe_order_lines_all where line_id = l_line_rec.line_id
8574: FOR UPDATE NOWAIT;
8575:
8576: IF l_debug_level > 0 THEN
8577: oe_debug_pub.add('Locking successful');
8578: END IF;
8579:
8580: exception
8581: --- bug# 7600960 : Start
8581: --- bug# 7600960 : Start
8582: /*
8583: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
8584: IF l_debug_level > 0 THEN
8585: oe_debug_pub.add('in lock record exception, someone else working on the row');
8586: END IF;
8587: x_return_status := FND_API.G_RET_STS_ERROR;
8588: l_line_rec.return_status := FND_API.G_RET_STS_ERROR;
8589: l_line_rec.line_id := null;
8593: */
8594:
8595: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
8596: IF l_debug_level > 0 THEN
8597: oe_debug_pub.add(' in lock record exception, someone else working on the row ');
8598: oe_debug_pub.add(' SQLERRM = '|| SQLERRM );
8599: oe_debug_pub.add( ' Unable to LOCK this Line. Going to make it DEFERRED so that it can be picked by another WFBP ');
8600: END IF;
8601:
8594:
8595: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
8596: IF l_debug_level > 0 THEN
8597: oe_debug_pub.add(' in lock record exception, someone else working on the row ');
8598: oe_debug_pub.add(' SQLERRM = '|| SQLERRM );
8599: oe_debug_pub.add( ' Unable to LOCK this Line. Going to make it DEFERRED so that it can be picked by another WFBP ');
8600: END IF;
8601:
8602: IF p_itemtype = OE_GLOBALS.G_WFI_LIN THEN
8595: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
8596: IF l_debug_level > 0 THEN
8597: oe_debug_pub.add(' in lock record exception, someone else working on the row ');
8598: oe_debug_pub.add(' SQLERRM = '|| SQLERRM );
8599: oe_debug_pub.add( ' Unable to LOCK this Line. Going to make it DEFERRED so that it can be picked by another WFBP ');
8600: END IF;
8601:
8602: IF p_itemtype = OE_GLOBALS.G_WFI_LIN THEN
8603: ROLLBACK TO INVOICE_INTERFACE;
8611:
8612:
8613: WHEN NO_DATA_FOUND THEN
8614: IF l_debug_level > 0 THEN
8615: oe_debug_pub.add('no_data_found, record lock exception');
8616: END IF;
8617: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8618:
8619: WHEN OTHERS THEN
8617: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8618:
8619: WHEN OTHERS THEN
8620: IF l_debug_level > 0 THEN
8621: oe_debug_pub.add('record lock exception, others');
8622: oe_debug_pub.add('line id '|| v_line_id , 1);
8623: END IF;
8624: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8625: END;
8618:
8619: WHEN OTHERS THEN
8620: IF l_debug_level > 0 THEN
8621: oe_debug_pub.add('record lock exception, others');
8622: oe_debug_pub.add('line id '|| v_line_id , 1);
8623: END IF;
8624: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8625: END;
8626: OE_Header_Util.Query_row(p_header_id=>l_line_rec.header_id,x_header_rec=>l_header_rec);
8627: --bug 5336623
8628:
8629:
8630: -- bug# 7231974 : before starting processing, fetch the service date
8631: oe_debug_pub.add( ' trying to fetch srv_start/end_date ... ' , 5 ) ;
8632: IF l_line_Rec.item_type_code = 'SERVICE' and l_line_Rec.accounting_rule_duration is null
8633: and (l_line_rec.SERVICE_START_DATE is null or l_line_rec.SERVICE_START_DATE is null) THEN
8634: Update_Service_Dates(l_line_Rec);
8635: END IF;
8640: IF NVL(OE_SYS_PARAMETERS.VALUE('ENABLE_FULFILLMENT_ACCEPTANCE'), 'N') = 'Y' AND
8641: OE_ACCEPTANCE_UTIL.Pre_billing_acceptance_on(l_line_rec)
8642: AND OE_ACCEPTANCE_UTIL.Acceptance_Status(l_line_rec) = 'NOT_ACCEPTED' THEN
8643: IF l_debug_level > 0 THEN
8644: oe_debug_pub.add('top_model_line_id:'||l_line_rec.top_model_line_id);
8645: END IF;
8646:
8647: -- added following for bug# 5232503
8648: -- If it is a child line then check if the parent is accepted.
8656: AND l_line_rec.service_reference_type_code='ORDER'
8657: AND l_line_rec.service_reference_line_id IS NOT NULL
8658: AND OE_ACCEPTANCE_UTIL.Acceptance_Status(l_line_rec.service_reference_line_id) = 'ACCEPTED')) THEN
8659: IF l_debug_level > 0 THEN
8660: oe_debug_pub.add('acceptance not required. item_type:'||l_line_rec.item_type_code);
8661: END IF;
8662: ELSE
8663: Update_Invoice_Attributes(l_line_rec ,l_interface_line_rec ,'ACCEPTANCE-PENDING' ,x_return_status);
8664: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
8715: END IF;
8716: EXCEPTION
8717: WHEN NO_DATA_FOUND THEN
8718: IF l_debug_level > 0 THEN
8719: oe_debug_pub.add('Non-invoiceable lines-In when no data found of freight');
8720: END IF;
8721: l_freight_count := 0;
8722: END;
8723: IF l_debug_level > 0 THEN
8720: END IF;
8721: l_freight_count := 0;
8722: END;
8723: IF l_debug_level > 0 THEN
8724: oe_debug_pub.add('l_freight_count: '||l_freight_count);
8725: END IF;
8726: IF l_freight_count >0 then
8727: Check_Invoicing_Holds(l_line_rec, p_itemtype, x_return_status);
8728: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
8737: /* Bug#2666125 end-check freight records and holds for non invoiceable items*/
8738: IF
8739: -- l_freight_count = 0 OR
8740: FND_PROFILE.VALUE('WSH_INVOICE_NUMBERING_METHOD') = 'A' THEN
8741: oe_debug_pub.add('Handling non-invoiceable lines with no freight or automatic numbering',1);
8742: Update_Invoice_Attributes(l_line_rec
8743: ,l_interface_line_rec
8744: ,'NOT_ELIGIBLE'
8745: ,x_return_status);
8756: --- some lines in RFR-PENDING block. We should invoice them.
8757: IF Is_PTO(l_line_rec) THEN
8758: IF Is_RFR(l_line_rec.line_id) THEN
8759: IF l_debug_level > 0 THEN
8760: oe_debug_pub.add( 'RFR: THIS LINE IS RFR BUT NOT ELIGIBLE FOR INVOICING- CHECKING FOR PENDING LINES' , 5 ) ;
8761: END IF;
8762: Open Pending_Lines;
8763: LOOP
8764: Fetch Pending_Lines Into l_pending_line_id;
8764: Fetch Pending_Lines Into l_pending_line_id;
8765: EXIT WHEN Pending_Lines%NOTFOUND;
8766: OE_Line_Util.Query_Row(p_line_id=>l_pending_line_id,x_line_rec=>l_pending_line_rec);
8767: IF l_debug_level > 0 THEN
8768: oe_debug_pub.add( 'RFR: PENDING LINE ID : ' || TO_CHAR ( L_PENDING_LINE_ID ) , 5 ) ;
8769: END IF;
8770: IF Something_To_Invoice(l_pending_line_rec) THEN -- the pending line now has something to
8771: -- invoice because current line has been shipped
8772: IF l_debug_level > 0 THEN
8769: END IF;
8770: IF Something_To_Invoice(l_pending_line_rec) THEN -- the pending line now has something to
8771: -- invoice because current line has been shipped
8772: IF l_debug_level > 0 THEN
8773: oe_debug_pub.add( 'RFR: INTERFACING PENDING LINE ID :'||L_PENDING_LINE_ID , 5 ) ;
8774: END IF;
8775: Interface_Single_line(p_line_rec => l_pending_line_rec
8776: ,p_header_rec => l_header_rec
8777: ,p_x_interface_line_rec => l_interface_line_rec
8777: ,p_x_interface_line_rec => l_interface_line_rec
8778: ,x_return_status => x_return_status
8779: ,x_result_out => x_result_out);
8780: IF l_debug_level > 0 THEN
8781: oe_debug_pub.add( 'INTERFACING PENDING LINE ID ' || L_PENDING_LINE_REC.LINE_ID , 5 ) ;
8782: END IF;
8783: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
8784: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
8785: RAISE FND_API.G_EXC_ERROR;
8788: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8789: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
8790: IF x_result_out = OE_GLOBALS.G_WFR_PRTL_COMPLETE THEN
8791: IF l_debug_level > 0 THEN
8792: oe_debug_pub.add( 'RFR PENDING LINE PARTIALLY INTERFACED' , 5 ) ;
8793: END IF;
8794: ELSE --x_result_out = OE_GLOBALS.G_WFR_COMPLETE THEN
8795: IF l_debug_level > 0 THEN
8796: oe_debug_pub.add( 'RFR-PENDING LINE INTERFACED SUCCESSFULLY' , 5 ) ;
8792: oe_debug_pub.add( 'RFR PENDING LINE PARTIALLY INTERFACED' , 5 ) ;
8793: END IF;
8794: ELSE --x_result_out = OE_GLOBALS.G_WFR_COMPLETE THEN
8795: IF l_debug_level > 0 THEN
8796: oe_debug_pub.add( 'RFR-PENDING LINE INTERFACED SUCCESSFULLY' , 5 ) ;
8797: END IF;
8798: WF_ENGINE.CompleteActivityInternalName(OE_GLOBALS.G_WFI_LIN, l_pending_line_rec.line_id, 'INVOICING_WAIT_FOR_RFR', 'COMPLETE');
8799: END IF;
8800: END IF;
8839: END IF;
8840: EXCEPTION
8841: WHEN NO_DATA_FOUND THEN
8842: IF l_debug_level > 0 THEN
8843: oe_debug_pub.add( 'IN WHEN NO DATA FOUND OF FREIGHT' ) ;
8844: END IF;
8845: l_freight_count := 0;
8846: END;
8847: IF l_debug_level > 0 THEN
8844: END IF;
8845: l_freight_count := 0;
8846: END;
8847: IF l_debug_level > 0 THEN
8848: oe_debug_pub.add( 'L_FREIGHT_COUNT: '||L_FREIGHT_COUNT ) ;
8849: END IF;
8850: IF l_freight_count > 0 THEN
8851: /* END Enhancement Request# 1915736 */
8852: IF l_debug_level > 0 THEN
8849: END IF;
8850: IF l_freight_count > 0 THEN
8851: /* END Enhancement Request# 1915736 */
8852: IF l_debug_level > 0 THEN
8853: oe_debug_pub.add( 'PREPARING INTERFACE LINE RECORD' , 5 ) ;
8854: END IF;
8855: Prepare_Interface_Line_Rec(p_line_rec => l_line_rec
8856: ,p_header_rec => l_header_rec
8857: ,p_x_interface_line_rec => l_interface_line_rec
8856: ,p_header_rec => l_header_rec
8857: ,p_x_interface_line_rec => l_interface_line_rec
8858: ,x_result_code => l_result_code);
8859: IF l_debug_level > 0 THEN
8860: oe_debug_pub.add( 'VALIDATING REQUIRED ATTRIBUTES' , 5 ) ;
8861: END IF;
8862: IF NOT Validate_Required_Attributes(l_line_rec, l_interface_line_rec) THEN
8863: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
8864: RAISE FND_API.G_EXC_ERROR;
8863: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
8864: RAISE FND_API.G_EXC_ERROR;
8865: END IF;
8866: IF l_debug_level > 0 THEN
8867: oe_debug_pub.add( 'INTERFACING FREIGHT CHARGES' , 5 ) ;
8868: END IF;
8869: Interface_Freight_Charges(l_line_rec
8870: , l_interface_line_rec
8871: , x_return_status);
8881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8882: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
8883: x_result_out := OE_GLOBALS.G_WFR_NOT_ELIGIBLE;
8884: IF l_debug_level > 0 THEN
8885: oe_debug_pub.add( 'RETURN AFTER INVOICEABLE ELIGIBLE CHECK' , 1 ) ;
8886: END IF;
8887: --Customer Acceptance
8888: IF l_line_rejected AND l_line_rec.line_category_code = 'RETURN' THEN
8889: FND_MESSAGE.SET_NAME('ONT','ONT_RMA_NO_CREDIT');
8904: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8905: END IF;
8906: IF FND_PROFILE.VALUE('WSH_INVOICE_NUMBERING_METHOD') = 'D' THEN
8907: IF l_debug_level > 0 THEN
8908: oe_debug_pub.add( 'INVOICE NUMBERING SET TO MANUAL' , 5 ) ;
8909: END IF;
8910: IF Shipping_Info_Available(l_line_rec) AND NOT Return_Line(l_line_rec) THEN
8911: -- Fix for bug 2196494
8912: IF (l_line_rec.item_type_code NOT IN ('MODEL','CLASS','KIT')) THEN
8910: IF Shipping_Info_Available(l_line_rec) AND NOT Return_Line(l_line_rec) THEN
8911: -- Fix for bug 2196494
8912: IF (l_line_rec.item_type_code NOT IN ('MODEL','CLASS','KIT')) THEN
8913: IF l_debug_level > 0 THEN
8914: oe_debug_pub.add( 'SHIPPING INFORMATION IS AVAILABLE' ) ;
8915: END IF;
8916: --Bug2181628 TO retrieve the minimum delivery_id of a line,if it is present
8917: --in more than one delivery.Hence used "MIN"instead of "ROWNUM".
8918: SELECT min(dl.delivery_id)
8943:
8944: -- fix: temporary
8945: IF l_delivery_line_id IS NOT NULL THEN
8946: IF l_debug_level > 0 THEN
8947: oe_debug_pub.add( 'DELIVERY ID : '||L_DELIVERY_LINE_ID , 5 ) ;
8948: END IF;
8949:
8950: /* added for bug fix 4084965 */
8951: BEGIN
8949:
8950: /* added for bug fix 4084965 */
8951: BEGIN
8952: IF l_debug_level > 0 THEN
8953: oe_debug_pub.add( 'locking '||to_char(sysdate,'HH24:MI:SS') ,5 ) ;
8954: END IF;
8955: open cur1(l_delivery_line_id);
8956: close cur1;
8957: IF l_debug_level > 0 THEN
8954: END IF;
8955: open cur1(l_delivery_line_id);
8956: close cur1;
8957: IF l_debug_level > 0 THEN
8958: oe_debug_pub.add( 'locking: locked' , 5 ) ;
8959: END IF;
8960: EXCEPTION
8961: when app_exceptions.RECORD_LOCK_EXCEPTION then
8962: IF l_debug_level > 0 THEN
8959: END IF;
8960: EXCEPTION
8961: when app_exceptions.RECORD_LOCK_EXCEPTION then
8962: IF l_debug_level > 0 THEN
8963: oe_debug_pub.add( 'locking: cannot lock' , 5 ) ;
8964: END IF;
8965: x_return_status := 'DEFERRED';
8966: RETURN;
8967: when others then
8965: x_return_status := 'DEFERRED';
8966: RETURN;
8967: when others then
8968: IF l_debug_level > 0 THEN
8969: oe_debug_pub.add( 'locking: exception:'||sqlerrm , 5 ) ;
8970: END IF;
8971: END; -- end of bug fix 4084965
8972:
8973: OPEN delivery_lines_cursor(l_delivery_line_id);
8978: INTO l_interface_status_code, l_open_flag
8979: FROM oe_order_lines
8980: WHERE line_id = l_line_id;
8981: IF l_debug_level > 0 THEN
8982: oe_debug_pub.add( 'LINE ID : '||L_LINE_ID , 5 ) ;
8983: END IF;
8984: IF l_interface_status_code = 'YES' OR
8985: l_interface_status_code = 'NOT_ELIGIBLE' OR
8986: l_interface_status_code = 'MANUAL-PENDING' OR
9050: EXIT WHEN del_line_ready_flag = 'N';
9051: END LOOP;
9052: CLOSE delivery_lines_cursor;
9053: IF l_debug_level > 0 THEN
9054: oe_debug_pub.add( 'DELIVERY LINE READY FLAG : '||DEL_LINE_READY_FLAG , 5 ) ;
9055: END IF;
9056: IF del_line_ready_flag = 'N' THEN -- atleast one line in delivery is not ready to interface
9057: IF l_debug_level > 0 THEN
9058: oe_debug_pub.add( 'SOME OF THE LINES IN THE DELIVERY ARE NOT READY' , 5 ) ;
9054: oe_debug_pub.add( 'DELIVERY LINE READY FLAG : '||DEL_LINE_READY_FLAG , 5 ) ;
9055: END IF;
9056: IF del_line_ready_flag = 'N' THEN -- atleast one line in delivery is not ready to interface
9057: IF l_debug_level > 0 THEN
9058: oe_debug_pub.add( 'SOME OF THE LINES IN THE DELIVERY ARE NOT READY' , 5 ) ;
9059: END IF;
9060: IF p_itemtype = OE_GLOBALS.G_WFI_LIN THEN
9061: IF l_debug_level > 0 THEN
9062: oe_debug_pub.add( 'LINE LEVEL INVOICING-SET STATUS TO PENDING' , 5 ) ;
9058: oe_debug_pub.add( 'SOME OF THE LINES IN THE DELIVERY ARE NOT READY' , 5 ) ;
9059: END IF;
9060: IF p_itemtype = OE_GLOBALS.G_WFI_LIN THEN
9061: IF l_debug_level > 0 THEN
9062: oe_debug_pub.add( 'LINE LEVEL INVOICING-SET STATUS TO PENDING' , 5 ) ;
9063: END IF;
9064: Update_Invoice_Attributes(l_line_rec
9065: ,l_interface_line_rec
9066: ,'MANUAL-PENDING'
9076: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME',l_delivery_name);
9077: OE_MSG_PUB.ADD;
9078: END IF;
9079: IF l_debug_level > 0 THEN
9080: oe_debug_pub.add( 'INTERFACE STATUS : '||L_LINE_REC.INVOICE_INTERFACE_STATUS_CODE , 5 ) ;
9081: oe_debug_pub.add( 'X_RETURN_STATUS : '||X_RETURN_STATUS , 5 ) ;
9082: END IF;
9083: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
9084: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
9077: OE_MSG_PUB.ADD;
9078: END IF;
9079: IF l_debug_level > 0 THEN
9080: oe_debug_pub.add( 'INTERFACE STATUS : '||L_LINE_REC.INVOICE_INTERFACE_STATUS_CODE , 5 ) ;
9081: oe_debug_pub.add( 'X_RETURN_STATUS : '||X_RETURN_STATUS , 5 ) ;
9082: END IF;
9083: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
9084: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
9085: RAISE FND_API.G_EXC_ERROR;
9091: RETURN;
9092: END IF;
9093: ELSE -- header level invoice, all delivery lines are not ready to invoice. do not honor delivery.
9094: IF l_debug_level > 0 THEN
9095: oe_debug_pub.add( 'HDR INVOICING- PROCEED W/INVOICING' , 5 ) ;
9096: END IF;
9097: generate_invoice_number := 'Y';
9098: interface_this_line := 'Y';
9099: END IF;
9098: interface_this_line := 'Y';
9099: END IF;
9100: ELSIF del_line_ready_flag = 'Y' THEN --invoice all lines in delivery
9101: IF l_debug_level > 0 THEN
9102: oe_debug_pub.add( 'ALL LINES IN DELIVERY ARE READY' , 5 ) ;
9103: END IF;
9104: --except we need to check for any line in the delivery actually is not invoiciable
9105: --due to RFR
9106: OPEN delivery_lines_cursor(l_delivery_line_id);
9109: EXIT WHEN delivery_lines_cursor%NOTFOUND;
9110: OE_Line_Util.Query_Row(p_line_id=>l_line_id, x_line_rec=>l_line_rec);
9111: OE_Header_Util.Query_row(p_header_id=>l_line_rec.header_id,x_header_rec=>l_header_rec);
9112: IF l_debug_level > 0 THEN
9113: oe_debug_pub.add( 'LINE ID : '||L_LINE_REC.LINE_ID , 5 ) ;
9114: END IF;
9115: --gaynagar processing non-invoiceable lines with delivery lines
9116: IF l_line_rec.open_flag='Y' AND
9117: NVL(l_line_rec.invoice_interface_status_code, 'NO') <> 'YES' AND
9156: AND dd.top_model_line_id = l_line_id;
9157: END IF;
9158:
9159: IF l_debug_level > 0 THEN
9160: oe_debug_pub.add( 'CURRENT LINES DELIVERY ID = '||L_LINE_DELIVERY_ID , 5 ) ;
9161: END IF;
9162: ELSE
9163: IF l_line_rec.item_type_code in ('MODEL', 'CLASS', 'KIT') THEN
9164: SELECT min(dl.delivery_id)
9171: AND dd.source_code = 'OE'
9172: AND dd.released_status = 'C' -- bug 6721251
9173: AND dd.top_model_line_id = l_line_id;
9174: IF l_debug_level > 0 THEN
9175: oe_debug_pub.add( 'CURRENT LINES DELIVERY ID MODEL , CLASS , KIT = '||L_LINE_DELIVERY_ID , 5 ) ;
9176: END IF;
9177: END IF;
9178: END IF;
9179: END IF;
9187: generate_invoice_number := 'Y';
9188: l_old_interface_status_code := l_line_rec.invoice_interface_status_code;
9189: IF Is_PTO(l_line_rec) THEN
9190: IF l_debug_level > 0 THEN
9191: oe_debug_pub.add( 'RFR: PTO IS TRUE - IN DELIVERY HANDLING' , 5 ) ;
9192: END IF;
9193: IF Something_To_Invoice(l_line_rec) THEN
9194: IF l_debug_level > 0 THEN
9195: oe_debug_pub.add( 'RFR: SOMETHING_TO_INVOICE IS TRUE , GO AHEAD INTERFACE - IN DELIVERY HANDLING' , 5 ) ;
9191: oe_debug_pub.add( 'RFR: PTO IS TRUE - IN DELIVERY HANDLING' , 5 ) ;
9192: END IF;
9193: IF Something_To_Invoice(l_line_rec) THEN
9194: IF l_debug_level > 0 THEN
9195: oe_debug_pub.add( 'RFR: SOMETHING_TO_INVOICE IS TRUE , GO AHEAD INTERFACE - IN DELIVERY HANDLING' , 5 ) ;
9196: END IF;
9197: Interface_Single_line(p_line_rec => l_line_rec
9198: ,p_header_rec => l_header_rec
9199: ,p_x_interface_line_rec => l_interface_line_rec
9199: ,p_x_interface_line_rec => l_interface_line_rec
9200: ,x_return_status => x_return_status
9201: ,x_result_out => x_result_out);
9202: IF l_debug_level > 0 THEN
9203: oe_debug_pub.add( 'INTERFACED W/REQUEST_ID : '||L_INTERFACE_LINE_REC.REQUEST_ID , 5 ) ;
9204: -- if this line can only invoice partial, it will become RFR-PENDING while interfacing whatever it can
9205: -- x_result_out should have set appropriately
9206: oe_debug_pub.add( 'AFTER INTERFACE SINGLE LINE , RESULT_OUT IS ' || X_RESULT_OUT ||': And x_return_status:'||x_return_status, 5 ) ;
9207: END IF;
9202: IF l_debug_level > 0 THEN
9203: oe_debug_pub.add( 'INTERFACED W/REQUEST_ID : '||L_INTERFACE_LINE_REC.REQUEST_ID , 5 ) ;
9204: -- if this line can only invoice partial, it will become RFR-PENDING while interfacing whatever it can
9205: -- x_result_out should have set appropriately
9206: oe_debug_pub.add( 'AFTER INTERFACE SINGLE LINE , RESULT_OUT IS ' || X_RESULT_OUT ||': And x_return_status:'||x_return_status, 5 ) ;
9207: END IF;
9208: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
9209: RAISE FND_API.G_EXC_ERROR;
9210: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9213: -- bug# 4094835, if RFR line is fully is fully invoiced or not eligible
9214: IF (x_result_out = OE_GLOBALS.G_WFR_COMPLETE OR x_result_out=OE_GLOBALS.G_WFR_NOT_ELIGIBLE) THEN
9215: IF l_old_interface_status_code = 'MANUAL-PENDING' OR l_old_interface_status_code = 'RFR-PENDING' THEN
9216: IF l_debug_level > 0 THEN
9217: oe_debug_pub.add( 'RFR: MANUAL-PENDING + RFR LINE HAS BEEN FULLY INVOICED' , 5 ) ;
9218: oe_debug_pub.add( 'NOW COMPLETING THE WF BLOCK ACTIVITY' , 5 ) ;
9219: END IF;
9220: WF_ENGINE.CompleteActivityInternalName(OE_GLOBALS.G_WFI_LIN, l_line_rec.line_id, 'INVOICING_WAIT_FOR_RFR', 'COMPLETE');
9221: END IF;
9214: IF (x_result_out = OE_GLOBALS.G_WFR_COMPLETE OR x_result_out=OE_GLOBALS.G_WFR_NOT_ELIGIBLE) THEN
9215: IF l_old_interface_status_code = 'MANUAL-PENDING' OR l_old_interface_status_code = 'RFR-PENDING' THEN
9216: IF l_debug_level > 0 THEN
9217: oe_debug_pub.add( 'RFR: MANUAL-PENDING + RFR LINE HAS BEEN FULLY INVOICED' , 5 ) ;
9218: oe_debug_pub.add( 'NOW COMPLETING THE WF BLOCK ACTIVITY' , 5 ) ;
9219: END IF;
9220: WF_ENGINE.CompleteActivityInternalName(OE_GLOBALS.G_WFI_LIN, l_line_rec.line_id, 'INVOICING_WAIT_FOR_RFR', 'COMPLETE');
9221: END IF;
9222: END IF;
9221: END IF;
9222: END IF;
9223: IF x_result_out = OE_GLOBALS.G_WFR_PRTL_COMPLETE THEN -- RFR line is partially invoiced
9224: IF l_debug_level > 0 THEN
9225: oe_debug_pub.add( 'RFR: THIS LINE IS PARTIALLY INVOICED' , 5 ) ;
9226: END IF;
9227: END IF;
9228: -- real invoice_interface_status_code should have updated to right value
9229: -- from interface_single_line already
9229: -- from interface_single_line already
9230: END IF;
9231: ELSE -- PTO in a delivery, but nothing available to invoice, update to RFR-PENDING
9232: IF l_debug_level > 0 THEN
9233: oe_debug_pub.add( 'RFR: NOTHING AVAILABLE FOR PTO TO INVOICE , UDPATE RFR-PENDING' , 5 ) ;
9234: oe_debug_pub.add( 'l_interface_line_rec.quantity:'|| l_interface_line_rec.quantity||':l_line_rec.invoiced_quantity:'||l_line_rec.invoiced_quantity,5 ) ;
9235: END IF;
9236: l_interface_line_rec.quantity := 0; -- for bug# 4760143, setting the quantity to zero as nothing to invoice
9237: IF l_debug_level > 0 THEN
9230: END IF;
9231: ELSE -- PTO in a delivery, but nothing available to invoice, update to RFR-PENDING
9232: IF l_debug_level > 0 THEN
9233: oe_debug_pub.add( 'RFR: NOTHING AVAILABLE FOR PTO TO INVOICE , UDPATE RFR-PENDING' , 5 ) ;
9234: oe_debug_pub.add( 'l_interface_line_rec.quantity:'|| l_interface_line_rec.quantity||':l_line_rec.invoiced_quantity:'||l_line_rec.invoiced_quantity,5 ) ;
9235: END IF;
9236: l_interface_line_rec.quantity := 0; -- for bug# 4760143, setting the quantity to zero as nothing to invoice
9237: IF l_debug_level > 0 THEN
9238: oe_debug_pub.add( 'l_interface_line_rec.quantity after resetting:'|| l_interface_line_rec.quantity,5 ) ;
9234: oe_debug_pub.add( 'l_interface_line_rec.quantity:'|| l_interface_line_rec.quantity||':l_line_rec.invoiced_quantity:'||l_line_rec.invoiced_quantity,5 ) ;
9235: END IF;
9236: l_interface_line_rec.quantity := 0; -- for bug# 4760143, setting the quantity to zero as nothing to invoice
9237: IF l_debug_level > 0 THEN
9238: oe_debug_pub.add( 'l_interface_line_rec.quantity after resetting:'|| l_interface_line_rec.quantity,5 ) ;
9239: END IF;
9240: Update_Invoice_Attributes(l_line_rec
9241: ,l_interface_line_rec
9242: ,'RFR-PENDING'
9245: FND_MESSAGE.SET_NAME('ONT','OE_INVOICE_WAIT_FOR_RFR');
9246: OE_MSG_PUB.ADD;
9247: END IF;
9248: IF l_debug_level > 0 THEN
9249: oe_debug_pub.add( 'RFR: L_LINE_REC.INTERFACE_STATUS '||L_LINE_REC.INVOICE_INTERFACE_STATUS_CODE , 5 ) ;
9250: oe_debug_pub.add( 'RFR: X_RETURN_STATUS :'||X_RETURN_STATUS , 5 ) ;
9251: END IF;
9252: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
9253: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
9246: OE_MSG_PUB.ADD;
9247: END IF;
9248: IF l_debug_level > 0 THEN
9249: oe_debug_pub.add( 'RFR: L_LINE_REC.INTERFACE_STATUS '||L_LINE_REC.INVOICE_INTERFACE_STATUS_CODE , 5 ) ;
9250: oe_debug_pub.add( 'RFR: X_RETURN_STATUS :'||X_RETURN_STATUS , 5 ) ;
9251: END IF;
9252: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
9253: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
9254: RAISE FND_API.G_EXC_ERROR;
9258: --bug# 4094835
9259: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
9260: x_result_out := OE_GLOBALS.G_WFR_PRTL_COMPLETE;
9261: IF l_debug_level > 0 THEN
9262: oe_debug_pub.add( 'RFR: LINE ID '||TO_CHAR ( L_LINE_REC.LINE_ID ) ||' PARTIALLY INTERFACED SUCCESSFULLY ' || 'X_RESULT_OUT: '||X_RESULT_OUT) ;
9263: END IF;
9264: END IF; -- check for update_invoice_attribute results
9265: END IF; -- check for anything to invoice for this PTO
9266: ELSE -- not in a PTO
9269: ,p_x_interface_line_rec => l_interface_line_rec
9270: ,x_return_status => x_return_status
9271: ,x_result_out => x_result_out);
9272: IF l_debug_level > 0 THEN
9273: oe_debug_pub.add( 'INTERFACED W/REQUEST_ID : '||L_INTERFACE_LINE_REC.REQUEST_ID , 5 ) ;
9274: END IF;
9275: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
9276: RAISE FND_API.G_EXC_ERROR;
9277: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9277: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9278: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9279: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
9280: IF l_debug_level > 0 THEN
9281: oe_debug_pub.add( 'L_LINE_ID: '||L_LINE_ID||' P_LINE_ID: '||P_LINE_ID|| ' INVOICE_INTERFACE_STATUS_CODE: '||L_LINE_REC.INVOICE_INTERFACE_STATUS_CODE , 5 ) ;
9282: END IF;
9283: IF l_old_interface_status_code = 'MANUAL-PENDING' THEN
9284: IF l_debug_level > 0 THEN
9285: oe_debug_pub.add( 'MANUAL-PENDING LINE HAS BEEN INVOICED' , 5 ) ;
9281: oe_debug_pub.add( 'L_LINE_ID: '||L_LINE_ID||' P_LINE_ID: '||P_LINE_ID|| ' INVOICE_INTERFACE_STATUS_CODE: '||L_LINE_REC.INVOICE_INTERFACE_STATUS_CODE , 5 ) ;
9282: END IF;
9283: IF l_old_interface_status_code = 'MANUAL-PENDING' THEN
9284: IF l_debug_level > 0 THEN
9285: oe_debug_pub.add( 'MANUAL-PENDING LINE HAS BEEN INVOICED' , 5 ) ;
9286: oe_debug_pub.add( 'NOW COMPLETING THE WF BLOCK ACTIVITY' , 5 ) ;
9287: END IF;
9288: WF_ENGINE.CompleteActivityInternalName(OE_GLOBALS.G_WFI_LIN, l_line_rec.line_id, 'INVOICING_WAIT_FOR_RFR', 'COMPLETE');
9289: END IF;
9282: END IF;
9283: IF l_old_interface_status_code = 'MANUAL-PENDING' THEN
9284: IF l_debug_level > 0 THEN
9285: oe_debug_pub.add( 'MANUAL-PENDING LINE HAS BEEN INVOICED' , 5 ) ;
9286: oe_debug_pub.add( 'NOW COMPLETING THE WF BLOCK ACTIVITY' , 5 ) ;
9287: END IF;
9288: WF_ENGINE.CompleteActivityInternalName(OE_GLOBALS.G_WFI_LIN, l_line_rec.line_id, 'INVOICING_WAIT_FOR_RFR', 'COMPLETE');
9289: END IF;
9290: END IF; -- check for interface_single_line result
9297: delivery_line_processed := 'Y';
9298: current_line_return_status := x_return_status;
9299: current_line_result_out := x_result_out;
9300: IF l_debug_level > 0 THEN
9301: oe_debug_pub.add( 'Current line status:'||current_line_return_status||': Current line result_out:'||current_line_result_out);
9302: END IF;
9303: END IF;
9304: END LOOP;
9305: CLOSE delivery_lines_cursor;
9307: -- required if the current line is not processed at the end
9308: --bug# 4094835
9309: IF delivery_line_processed = 'Y' THEN
9310: IF l_debug_level > 0 THEN
9311: oe_debug_pub.add( 'Setting the current line status correctly.'||current_line_return_status||':'||current_line_result_out);
9312: END IF;
9313: x_return_status := current_line_return_status;
9314: x_result_out := current_line_result_out;
9315: END IF;
9318: ELSE -- delivery_id is null
9319: interface_this_line := 'Y';
9320: generate_invoice_number := 'N';
9321: IF l_debug_level > 0 THEN
9322: oe_debug_pub.add( 'DELIVERY ID IS NULL' , 5 ) ;
9323: END IF;
9324: END IF; -- delivery id
9325: END IF; --shipping info avaialable
9326: ELSE -- automatic invoice numbering
9326: ELSE -- automatic invoice numbering
9327: interface_this_line := 'Y';
9328: generate_invoice_number := 'N';
9329: IF l_debug_level > 0 THEN
9330: oe_debug_pub.add( 'AUTOMATIC INVOICE NUMBERING' , 5 ) ;
9331: END IF;
9332: END IF;
9333: IF interface_this_line = 'Y' THEN -- for automatic invoice numbering
9334: IF l_debug_level > 0 THEN
9331: END IF;
9332: END IF;
9333: IF interface_this_line = 'Y' THEN -- for automatic invoice numbering
9334: IF l_debug_level > 0 THEN
9335: oe_debug_pub.add( 'INTERFACING LINE ID : '||L_LINE_REC.LINE_ID , 5 ) ;
9336: END IF;
9337: IF generate_invoice_number = 'Y' THEN
9338: IF p_itemtype = OE_GLOBALS.G_WFI_LIN THEN
9339: l_interface_line_rec.request_id := -1 * p_line_id;
9340: ELSE
9341: l_interface_line_rec.request_id := -1 * p_header_id;
9342: END IF;
9343: IF l_debug_level > 0 THEN
9344: oe_debug_pub.add( 'SETTING REQUEST_ID' || L_INTERFACE_LINE_REC.REQUEST_ID , 5 ) ;
9345: END IF;
9346: END IF;
9347: -- Retrobilling:
9348: -- For RMAs that reference a retrobilled order line
9364: ,x_return_status => x_return_status
9365: ,x_result_out => x_result_out);
9366: END IF;
9367: IF l_debug_level > 0 THEN
9368: oe_debug_pub.add( 'INTERFACED W/REQUEST_ID : '||L_INTERFACE_LINE_REC.REQUEST_ID || ' X_RETURN_STATUS: '|| X_RETURN_STATUS , 5 ) ;
9369: END IF;
9370: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
9371: RAISE FND_API.G_EXC_ERROR;
9372: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9375: -- if this line is RFR and there are lines waiting for it, interface those lines
9376: IF Is_PTO(l_line_rec) THEN
9377: IF Is_RFR(l_line_rec.line_id) THEN
9378: IF l_debug_level > 0 THEN
9379: oe_debug_pub.add( 'RFR: THIS LINE ITSELF IS RFR' , 5 ) ;
9380: END IF;
9381: Open Pending_Lines;
9382: LOOP
9383: Fetch Pending_Lines Into l_pending_line_id;
9381: Open Pending_Lines;
9382: LOOP
9383: Fetch Pending_Lines Into l_pending_line_id;
9384: IF l_debug_level > 0 THEN
9385: oe_debug_pub.add( 'RFR: PENDING LINE ID ' || TO_CHAR ( L_PENDING_LINE_ID ) , 5 ) ;
9386: END IF;
9387: EXIT WHEN Pending_Lines%NOTFOUND;
9388: OE_Line_Util.Query_Row(p_line_id=>l_pending_line_id, x_line_rec=>l_pending_line_rec);
9389: IF Something_To_Invoice(l_pending_line_rec) THEN -- the pending line now has something to
9389: IF Something_To_Invoice(l_pending_line_rec) THEN -- the pending line now has something to
9390: -- invoice because current line has been shipped
9391: -- check for delivery and invoice delivery if necessarily
9392: IF l_debug_level > 0 THEN
9393: oe_debug_pub.add( 'RFR: LINE IS RFR AND DELIVERY INVOICING' , 5 ) ;
9394: END IF;
9395: Interface_Single_line(p_line_rec => l_pending_line_rec
9396: ,p_header_rec => l_header_rec
9397: ,p_x_interface_line_rec => l_interface_line_rec
9397: ,p_x_interface_line_rec => l_interface_line_rec
9398: ,x_return_status => x_return_status
9399: ,x_result_out => x_result_out);
9400: IF l_debug_level > 0 THEN
9401: oe_debug_pub.add( 'RFR: INTERFACE RFR-PENDING LINE , ID: ' || L_PENDING_LINE_REC.LINE_ID , 5 ) ;
9402: END IF;
9403: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
9404: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
9405: RAISE FND_API.G_EXC_ERROR;
9408: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9409: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
9410: IF x_result_out = OE_GLOBALS.G_WFR_PRTL_COMPLETE THEN
9411: IF l_debug_level > 0 THEN
9412: oe_debug_pub.add( 'RFR: RFR-PENDING LINE PARTIALLY INTERFACED' , 5 ) ;
9413: END IF;
9414: ELSE --x_result_out = OE_GLOBALS.G_WFR_COMPLETE THEN
9415: IF l_debug_level > 0 THEN
9416: oe_debug_pub.add( 'RFR: RFR-PENDING LINE INTERFACED SUCCESSFULLY , COMPLETING BLOCK' , 5 ) ;
9412: oe_debug_pub.add( 'RFR: RFR-PENDING LINE PARTIALLY INTERFACED' , 5 ) ;
9413: END IF;
9414: ELSE --x_result_out = OE_GLOBALS.G_WFR_COMPLETE THEN
9415: IF l_debug_level > 0 THEN
9416: oe_debug_pub.add( 'RFR: RFR-PENDING LINE INTERFACED SUCCESSFULLY , COMPLETING BLOCK' , 5 ) ;
9417: END IF;
9418: WF_ENGINE.CompleteActivityInternalName(OE_GLOBALS.G_WFI_LIN, l_pending_line_rec.line_id, 'INVOICING_WAIT_FOR_RFR', 'COMPLETE');
9419: END IF;
9420: END IF;
9424: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
9425: IF x_result_out = OE_GLOBALS.G_WFR_COMPLETE OR x_result_out = OE_GLOBALS.G_WFR_NOT_ELIGIBLE THEN
9426: IF generate_invoice_number = 'Y' THEN
9427: IF l_debug_level > 0 THEN
9428: oe_debug_pub.add( 'RFR:LINE ID '||TO_CHAR ( L_LINE_REC.LINE_ID ) ||' INTERFACED SUCCESSFULLY' , 5 ) ;
9429: oe_debug_pub.add( 'RFR: CALLING UPDATE_NUMBERS' , 5 ) ;
9430: END IF;
9431: IF p_itemtype = OE_GLOBALS.G_WFI_LIN THEN
9432: Update_Numbers(p_line_id, x_return_status);
9425: IF x_result_out = OE_GLOBALS.G_WFR_COMPLETE OR x_result_out = OE_GLOBALS.G_WFR_NOT_ELIGIBLE THEN
9426: IF generate_invoice_number = 'Y' THEN
9427: IF l_debug_level > 0 THEN
9428: oe_debug_pub.add( 'RFR:LINE ID '||TO_CHAR ( L_LINE_REC.LINE_ID ) ||' INTERFACED SUCCESSFULLY' , 5 ) ;
9429: oe_debug_pub.add( 'RFR: CALLING UPDATE_NUMBERS' , 5 ) ;
9430: END IF;
9431: IF p_itemtype = OE_GLOBALS.G_WFI_LIN THEN
9432: Update_Numbers(p_line_id, x_return_status);
9433: ELSE
9433: ELSE
9434: Update_Numbers(p_header_id, x_return_status);
9435: END IF;
9436: IF l_debug_level > 0 THEN
9437: oe_debug_pub.add( 'RFR: RETURN STATUS : '||X_RETURN_STATUS , 5 ) ;
9438: END IF;
9439: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
9440: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
9441: RAISE FND_API.G_EXC_ERROR;
9444: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9445: ELSE
9446: x_result_out := OE_GLOBALS.G_WFR_COMPLETE;
9447: IF l_debug_level > 0 THEN
9448: oe_debug_pub.add( 'RFR: UPDATE NUMBER DONE FOR RFR-PENDING LINE ( CURRENT LINE IS RFR ) ' , 5 ) ;
9449: END IF;
9450: END IF;
9451: ELSE
9452: IF l_debug_level > 0 THEN
9449: END IF;
9450: END IF;
9451: ELSE
9452: IF l_debug_level > 0 THEN
9453: oe_debug_pub.add( 'RFR:LINE ID '||TO_CHAR ( L_LINE_REC.LINE_ID ) ||' INTERFACED SUCCESSFULLY' , 5 ) ;
9454: oe_debug_pub.add( 'RFR:W/AUTOMATIC NUMBERING' , 5 ) ;
9455: END IF;
9456: END IF;
9457: END IF;
9450: END IF;
9451: ELSE
9452: IF l_debug_level > 0 THEN
9453: oe_debug_pub.add( 'RFR:LINE ID '||TO_CHAR ( L_LINE_REC.LINE_ID ) ||' INTERFACED SUCCESSFULLY' , 5 ) ;
9454: oe_debug_pub.add( 'RFR:W/AUTOMATIC NUMBERING' , 5 ) ;
9455: END IF;
9456: END IF;
9457: END IF;
9458: END IF;
9464: IF x_result_out = OE_GLOBALS.G_WFR_COMPLETE OR x_result_out = OE_GLOBALS.G_WFR_NOT_ELIGIBLE THEN
9465: IF p_itemtype = OE_GLOBALS.G_WFI_LIN THEN
9466: IF generate_invoice_number = 'Y' THEN
9467: IF l_debug_level > 0 THEN
9468: oe_debug_pub.add( 'LINE ID '||TO_CHAR ( L_LINE_REC.LINE_ID ) ||' INTERFACED SUCCESSFULLY' , 2 ) ;
9469: oe_debug_pub.add( 'CALLING UPDATE_NUMBERS' ) ;
9470: END IF;
9471: IF p_itemtype = OE_GLOBALS.G_WFI_LIN THEN
9472: Update_Numbers(p_line_id, x_return_status);
9465: IF p_itemtype = OE_GLOBALS.G_WFI_LIN THEN
9466: IF generate_invoice_number = 'Y' THEN
9467: IF l_debug_level > 0 THEN
9468: oe_debug_pub.add( 'LINE ID '||TO_CHAR ( L_LINE_REC.LINE_ID ) ||' INTERFACED SUCCESSFULLY' , 2 ) ;
9469: oe_debug_pub.add( 'CALLING UPDATE_NUMBERS' ) ;
9470: END IF;
9471: IF p_itemtype = OE_GLOBALS.G_WFI_LIN THEN
9472: Update_Numbers(p_line_id, x_return_status);
9473: ELSE
9473: ELSE
9474: Update_Numbers(p_header_id, x_return_status);
9475: END IF;
9476: IF l_debug_level > 0 THEN
9477: oe_debug_pub.add( 'RETURN STATUS : '||X_RETURN_STATUS , 5 ) ;
9478: END IF;
9479: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
9480: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
9481: RAISE FND_API.G_EXC_ERROR;
9484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9485: ELSE
9486: x_result_out := OE_GLOBALS.G_WFR_COMPLETE;
9487: IF l_debug_level > 0 THEN
9488: oe_debug_pub.add( 'EXITING INTERFACE_LINE' , 5 ) ;
9489: END IF;
9490: RETURN;
9491: END IF;
9492: ELSE
9490: RETURN;
9491: END IF;
9492: ELSE
9493: IF l_debug_level > 0 THEN
9494: oe_debug_pub.add( 'LINE ID '||TO_CHAR ( L_LINE_REC.LINE_ID ) ||' INTERFACED SUCCESSFULLY' , 5 ) ;
9495: oe_debug_pub.add( 'W/AUTOMATIC NUMBERING' , 2 ) ;
9496: END IF;
9497: RETURN;
9498: END IF;
9491: END IF;
9492: ELSE
9493: IF l_debug_level > 0 THEN
9494: oe_debug_pub.add( 'LINE ID '||TO_CHAR ( L_LINE_REC.LINE_ID ) ||' INTERFACED SUCCESSFULLY' , 5 ) ;
9495: oe_debug_pub.add( 'W/AUTOMATIC NUMBERING' , 2 ) ;
9496: END IF;
9497: RETURN;
9498: END IF;
9499: END IF;
9501: END IF;
9502: EXCEPTION
9503: WHEN FND_API.G_EXC_ERROR THEN
9504: IF l_debug_level > 0 THEN
9505: oe_debug_pub.add( 'EXPECTED ERROR. EXIT LINE INVOICING : '||SQLERRM , 1 ) ;
9506: END IF;
9507: IF p_itemtype = OE_GLOBALS.G_WFI_LIN THEN
9508: ROLLBACK TO INVOICE_INTERFACE;
9509: END IF;
9523: );
9524: x_return_status := FND_API.G_RET_STS_ERROR;
9525: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9526: IF l_debug_level > 0 THEN
9527: oe_debug_pub.add( 'UNEXPECTED ERROR. EXITING FROM LINE INVOICING : '||SQLERRM , 1 ) ;
9528: END IF;
9529: IF p_itemtype = OE_GLOBALS.G_WFI_LIN THEN
9530: ROLLBACK TO INVOICE_INTERFACE;
9531: END IF;
9535: );
9536: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9537: WHEN OTHERS THEN
9538: IF l_debug_level > 0 THEN
9539: oe_debug_pub.add( 'EXCEPTION , OTHERS. EXITING FROM LINE INVOICING : '||SQLERRM , 1 ) ;
9540: END IF;
9541: IF (delivery_lines_cursor%ISOPEN) THEN
9542: CLOSE delivery_lines_cursor;
9543: END IF;
9579: WHERE ol.header_id = p_header_id
9580: AND ol.open_flag = 'Y';
9581: l_line_id NUMBER;
9582: --
9583: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
9584: --
9585: BEGIN
9586: IF l_debug_level > 0 THEN
9587: oe_debug_pub.add( 'ENTER INTERFACE_HEADER ( ) PROCEDURE' , 5 ) ;
9583: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
9584: --
9585: BEGIN
9586: IF l_debug_level > 0 THEN
9587: oe_debug_pub.add( 'ENTER INTERFACE_HEADER ( ) PROCEDURE' , 5 ) ;
9588: END IF;
9589: SAVEPOINT HEADER_INVOICE_INTERFACE;
9590: -- Initialize API return status to success
9591: x_return_status := FND_API.G_RET_STS_SUCCESS;
9595: LOOP
9596: FETCH order_line_cursor INTO l_line_id;
9597: EXIT WHEN order_line_cursor%NOTFOUND;
9598: IF l_debug_level > 0 THEN
9599: oe_debug_pub.add( 'PROCESSING LINE_ID: '||L_LINE_ID , 5 ) ;
9600: END IF;
9601: Interface_Line(l_line_id, p_itemtype, l_result_out, l_return_status);
9602: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9603: IF l_result_out = OE_GLOBALS.G_WFR_ON_HOLD THEN
9609: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9610: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9611: ELSE
9612: IF l_debug_level > 0 THEN
9613: oe_debug_pub.add( 'CONTINUE WITH NEXT LINE IF THIS IS NOT LAST ONE' , 5 ) ;
9614: END IF;
9615: END IF;
9616: END LOOP;
9617: CLOSE order_line_cursor;
9615: END IF;
9616: END LOOP;
9617: CLOSE order_line_cursor;
9618: IF l_debug_level > 0 THEN
9619: oe_debug_pub.add( 'CALL UPDATE_NUMBERS FOR HEADER LEVEL INVOICING' , 5 ) ;
9620: END IF;
9621: Update_Numbers(p_header_id, x_return_status);
9622: IF l_debug_level > 0 THEN
9623: oe_debug_pub.add( 'RETURN STATUS : '||X_RETURN_STATUS , 5 ) ;
9619: oe_debug_pub.add( 'CALL UPDATE_NUMBERS FOR HEADER LEVEL INVOICING' , 5 ) ;
9620: END IF;
9621: Update_Numbers(p_header_id, x_return_status);
9622: IF l_debug_level > 0 THEN
9623: oe_debug_pub.add( 'RETURN STATUS : '||X_RETURN_STATUS , 5 ) ;
9624: END IF;
9625: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
9626: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
9627: RAISE FND_API.G_EXC_ERROR;
9630: ELSE
9631: x_return_status := FND_API.G_RET_STS_SUCCESS;
9632: x_result_out := OE_GLOBALS.G_WFR_COMPLETE;
9633: IF l_debug_level > 0 THEN
9634: oe_debug_pub.add( 'EXIT INTERFACE_LINE ( ) PROCEDURE' , 5 ) ;
9635: END IF;
9636: END IF;
9637:
9638: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
9640: Update_header_flow_status(p_header_id,l_flow_status_code);
9641: END IF;
9642:
9643: IF l_debug_level > 0 THEN
9644: oe_debug_pub.add( 'EXITING INTERFACE_HEADER ( ) PROCEDURE' , 5 ) ;
9645: END IF;
9646:
9647: EXCEPTION
9648: WHEN FND_API.G_EXC_ERROR THEN
9646:
9647: EXCEPTION
9648: WHEN FND_API.G_EXC_ERROR THEN
9649: IF l_debug_level > 0 THEN
9650: oe_debug_pub.add( 'EXPECTED ERROR. EXIT FROM HEADER INVOICING' , 5 ) ;
9651: END IF;
9652: IF (order_line_cursor%ISOPEN) THEN
9653: CLOSE order_line_cursor;
9654: END IF;
9669: );
9670: x_return_status := FND_API.G_RET_STS_ERROR;
9671: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9672: IF l_debug_level > 0 THEN
9673: oe_debug_pub.add( 'UNEXPECTED ERROR. EXITING FROM HEADER INVOICING' , 5 ) ;
9674: END IF;
9675: IF (order_line_cursor%ISOPEN) THEN
9676: CLOSE order_line_cursor;
9677: END IF;
9683: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9684: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
9685: WHEN OTHERS THEN
9686: IF l_debug_level > 0 THEN
9687: oe_debug_pub.add( 'EXCEPTION OTHERS. EXIT FROM HEADER INVOICING' , 5 ) ;
9688: END IF;
9689: IF (order_line_cursor%ISOPEN) THEN
9690: CLOSE order_line_cursor;
9691: END IF;
9761: END;
9762:
9763: IF line_payment_not_exists = 1 THEN
9764: p_result := 1;
9765: oe_debug_pub.add('skubendr going in');
9766: ELSE
9767: p_result := 0;
9768: END IF;
9769: ELSE
9880: l_line_id NUMBER ;
9881: this_line_interfaced NUMBER := 0;
9882: BEGIN
9883:
9884: oe_debug_pub.add(' Entering This_Line_ARInterfaced');
9885: l_line_id := OE_LINE_SECURITY.g_record.line_id;
9886:
9887: IF p_validation_entity_short_name = 'LINE_PAYMENT' THEN
9888: l_line_id := oe_line_payment_security.g_record.line_id;
9887: IF p_validation_entity_short_name = 'LINE_PAYMENT' THEN
9888: l_line_id := oe_line_payment_security.g_record.line_id;
9889: END IF;
9890:
9891: oe_debug_pub.add(' Line Id :'||l_line_id);
9892:
9893: IF l_line_id IS NULL OR
9894: l_line_id = FND_API.G_MISS_NUM
9895: THEN