[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;
186: )
187: IS
188: l_return_status VARCHAR2(1);
189: l_line_rec OE_Order_Pub.Line_Rec_Type;
190: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
191: BEGIN
192:
193: IF l_debug_level > 0 THEN
194: oe_debug_pub.add('entering oe_invoice_pub . update_service_dates() '
190: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
191: BEGIN
192:
193: IF l_debug_level > 0 THEN
194: oe_debug_pub.add('entering oe_invoice_pub . update_service_dates() '
195: ||' p_line_rec.line_id = ' || P_LINE_REC.LINE_ID
196: ||' p_line_rec.service_start_date = '||TO_CHAR(P_LINE_REC.SERVICE_START_DATE, 'YYYY/MM/DD' )
197: ||' p_line_rec.service_end_date = '|| TO_CHAR ( P_LINE_REC.SERVICE_END_DATE , 'YYYY/MM/DD' )
198: ) ;
206: p_x_line_rec => l_line_rec,
207: x_return_status => l_return_status
208: );
209:
210: oe_debug_pub.add(' l_line_rec.service_start_date = '|| l_line_rec.service_start_date);
211: oe_debug_pub.add(' l_return_status = '||l_return_status);
212:
213: p_line_rec.service_start_date := l_line_rec.service_start_date;
214:
207: x_return_status => l_return_status
208: );
209:
210: oe_debug_pub.add(' l_line_rec.service_start_date = '|| l_line_rec.service_start_date);
211: oe_debug_pub.add(' l_return_status = '||l_return_status);
212:
213: p_line_rec.service_start_date := l_line_rec.service_start_date;
214:
215: IF p_line_rec.service_start_date IS NOT NULL THEN
217: OE_SERVICE_UTIL.Get_Service_Duration(
218: p_x_line_rec => p_line_rec,
219: x_return_status => l_return_status
220: );
221: oe_debug_pub.add(' l_return_status == '||l_return_status);
222: END IF;
223:
224: ELSIF p_line_rec.service_end_date IS NULL OR p_line_rec.service_end_date = FND_API.G_MISS_DATE THEN
225:
226: OE_SERVICE_UTIL.Get_Service_Duration(
227: p_x_line_rec => p_line_rec,
228: x_return_status => l_return_status
229: );
230: oe_debug_pub.add(' l_return_status == > '||l_return_status);
231: END IF;
232: --13724397 Start
233: x_return_status :=l_return_status;
234: --13724397 End
232: --13724397 Start
233: x_return_status :=l_return_status;
234: --13724397 End
235: IF l_debug_level > 0 THEN
236: oe_debug_pub.add('exiting oe_invoice_pub . update_service_dates() '
237: ||' p_line_rec.line_id = ' || P_LINE_REC.LINE_ID
238: ||' p_line_rec.service_start_date = '||TO_CHAR(P_LINE_REC.SERVICE_START_DATE, 'YYYY/MM/DD' )
239: ||' p_line_rec.service_end_date = '|| TO_CHAR ( P_LINE_REC.SERVICE_END_DATE , 'YYYY/MM/DD' )
240: ) ;
249: p_line_rec IN OUT NOCOPY OE_Order_Pub.Line_Rec_Type,
250: p_header_rec IN OUT NOCOPY OE_Order_Pub.Header_Rec_Type
251: )
252: IS
253: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
254: l_defaulting_invoice_line_id NUMBER := NULL;
255: l_defaulting_order_line_id NUMBER := NULL;
256:
257: BEGIN
256:
257: BEGIN
258:
259: IF l_debug_level > 0 THEN
260: oe_debug_pub.add('Entering Update_Credit_Invoice');
261: END IF;
262:
263: IF p_line_rec.return_attribute2 is NOT NULL AND
264: p_line_rec.return_attribute2 <> FND_API.G_MISS_CHAR AND
277: p_line_rec.Credit_Invoice_Line_Id := l_defaulting_invoice_line_id;
278: END IF;
279:
280: IF l_debug_level > 0 THEN
281: oe_debug_pub.add('Exitting Update_Credit_Invoice');
282: END IF;
283:
284: EXCEPTION
285: WHEN OTHERS THEN
283:
284: EXCEPTION
285: WHEN OTHERS THEN
286: IF l_debug_level > 0 THEN
287: oe_debug_pub.add('Error occured in Update_Credit_Invoice:'||SQLERRM);
288: END IF;
289: END Update_Credit_Invoice;
290: 9040537*/
291: -- 8319535 end
295: )
296: RETURN BOOLEAN
297: IS
298: --
299: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
300: --
301: l_header_id NUMBER;
302: l_line_id NUMBER;
303:
302: l_line_id NUMBER;
303:
304: BEGIN
305: IF l_debug_level > 0 THEN
306: oe_debug_pub.add( 'ENTER RETURN_LINE ' , 1 ) ;
307: END IF;
308: IF p_line_rec.line_category_code = 'RETURN' THEN
309: IF l_debug_level > 0 THEN
310: oe_debug_pub.add( 'EXIT , THIS IS A RETURN LINE' , 1 ) ;
306: oe_debug_pub.add( 'ENTER RETURN_LINE ' , 1 ) ;
307: END IF;
308: IF p_line_rec.line_category_code = 'RETURN' THEN
309: IF l_debug_level > 0 THEN
310: oe_debug_pub.add( 'EXIT , THIS IS A RETURN LINE' , 1 ) ;
311: END IF;
312: RETURN TRUE;
313: ELSE
314: IF l_debug_level > 0 THEN
311: END IF;
312: RETURN TRUE;
313: ELSE
314: IF l_debug_level > 0 THEN
315: oe_debug_pub.add( 'EXIT , THIS IS A REGULAR LINE' , 1 ) ;
316: END IF;
317: RETURN FALSE;
318: END IF;
319: EXCEPTION
319: EXCEPTION
320: WHEN OTHERS THEN
321: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
322: IF l_debug_level > 0 THEN
323: oe_debug_pub.add( 'RETURN_LINE: WHEN OTHERS EXCEPTION ' , 1 ) ;
324: END IF;
325: OE_MSG_PUB.Add_Exc_Msg
326: ( G_PKG_NAME
327: , 'Return_Line'
334: , p_flow_status_code IN VARCHAR2
335: , p_order_source_id IN NUMBER DEFAULT NULL -- 8541809
336: ) IS
337: --
338: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
339:
340: -- 8541809: Start
341: l_item_key_sso NUMBER;
342: l_header_rec Oe_Order_Pub.Header_Rec_Type;
346: l_existing_fsc oe_order_lines_all.flow_status_code%type; -- Bug 13870263
347: --
348: Begin
349: IF l_debug_level > 0 THEN
350: oe_debug_pub.add( 'Inside Update Line Flow Status');
351: oe_debug_pub.add( 'line id : ' || p_line_id);
352: oe_debug_pub.add( 'flow status code : ' || p_flow_status_code);
353: END IF;
354:
347: --
348: Begin
349: IF l_debug_level > 0 THEN
350: oe_debug_pub.add( 'Inside Update Line Flow Status');
351: oe_debug_pub.add( 'line id : ' || p_line_id);
352: oe_debug_pub.add( 'flow status code : ' || p_flow_status_code);
353: END IF;
354:
355: ------------ Bug 13870263:: Start
348: Begin
349: IF l_debug_level > 0 THEN
350: oe_debug_pub.add( 'Inside Update Line Flow Status');
351: oe_debug_pub.add( 'line id : ' || p_line_id);
352: oe_debug_pub.add( 'flow status code : ' || p_flow_status_code);
353: END IF;
354:
355: ------------ Bug 13870263:: Start
356: BEGIN
363: END;
364:
365: IF l_existing_fsc = p_flow_status_code THEN
366: IF l_debug_level > 0 THEN
367: oe_debug_pub.add('Old and New Flow Status Codes are the same.');
368: oe_debug_pub.add(' Not updating flow status code anymore...');
369: END IF;
370:
371: --
364:
365: IF l_existing_fsc = p_flow_status_code THEN
366: IF l_debug_level > 0 THEN
367: oe_debug_pub.add('Old and New Flow Status Codes are the same.');
368: oe_debug_pub.add(' Not updating flow status code anymore...');
369: END IF;
370:
371: --
372: -- Should be OK to return here, because this corresponds to a scenario
397: end if;
398:
399: -- 8541809 : Start
400: IF l_debug_level > 0 THEN
401: oe_debug_pub.add('Initiating O2C/Genesis Sync...');
402: END IF;
403:
404: IF p_order_source_id IS NOT NULL THEN
405:
413: INTO l_item_key_sso
414: FROM Dual;
415:
416: IF l_debug_level > 0 THEN
417: oe_debug_pub.add(' l_item_key_sso: ' || l_item_key_sso);
418: END IF;
419:
420: Oe_Sync_Order_Pvt.Insert_Sync_Line(
421: p_line_rec => l_line_rec,
424: x_return_status => l_ret_stat
425: );
426:
427: IF l_debug_level > 0 THEN
428: oe_debug_pub.add(' Insert_Sync_Line Return Status: ' ||
429: l_ret_stat);
430: END IF;
431:
432: Oe_Sync_Order_Pvt.Sync_Header_Line(
441: END IF; -- on source_aia_enabled
442: END IF; -- on status_needs_sync
443:
444: IF l_debug_level > 0 THEN
445: oe_debug_pub.add('Done with O2C/Genesis Sync.');
446: END IF;
447:
448: END IF; -- on p_order_source_id being non-null
449: -- 8541809 : End
454: ( p_header_id IN NUMBER
455: , p_flow_status_code IN VARCHAR2
456: ) IS
457: --
458: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
459: --
460: l_item_key_sso NUMBER; -- 8541809
461: l_header_rec Oe_Order_Pub.Header_Rec_Type; -- 8541809
462: --
461: l_header_rec Oe_Order_Pub.Header_Rec_Type; -- 8541809
462: --
463: Begin
464: IF l_debug_level > 0 THEN
465: oe_debug_pub.add( 'Inside Update Header Flow Status');
466: END IF;
467:
468: Update oe_order_headers_all
469: Set flow_status_code = p_flow_status_code
472: Where header_id = p_header_id;
473:
474: -- 8541809 : Start
475: IF l_debug_level > 0 THEN
476: oe_debug_pub.add('Initiating O2C/Genesis Sync...');
477: END IF;
478:
479: IF Oe_Genesis_Util.Status_Needs_Sync(p_flow_status_code) = TRUE THEN
480:
486: INTO l_item_key_sso
487: FROM DUAL;
488:
489: IF l_debug_level > 0 THEN
490: oe_debug_pub.add(' l_item_key_sso: ' || l_item_key_sso);
491: END IF;
492:
493: Oe_Sync_Order_Pvt.Sync_Header_Line(
494: p_header_rec => l_header_rec,
501: END IF; -- source_aia_enabled
502: END IF; -- status_needs_sync
503:
504: IF l_debug_level > 0 THEN
505: oe_debug_pub.add('Done with O2C/Genesis Sync.');
506: END IF;
507: -- 8541809 : End
508:
509: End Update_header_flow_status;
515: RETURN BOOLEAN
516: IS
517: l_count NUMBER;
518: --
519: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
520: --
521: BEGIN
522: IF l_debug_level > 0 THEN
523: oe_debug_pub.add( 'ENTER SHIPPING_INFO_AVAILABLE ' , 1 ) ;
519: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
520: --
521: BEGIN
522: IF l_debug_level > 0 THEN
523: oe_debug_pub.add( 'ENTER SHIPPING_INFO_AVAILABLE ' , 1 ) ;
524: END IF;
525: -- Fix for bug 2196494
526: IF (p_line_rec.shippable_flag = 'Y' OR p_line_rec.item_type_code in ('MODEL','CLASS','KIT'))
527: AND p_line_rec.line_category_code <> 'RETURN'
531: IF (nvl(p_line_rec.shipped_quantity,0) = 0 AND
532: p_line_rec.model_remnant_flag = 'Y' AND
533: p_line_rec.item_type_code in ('MODEL','CLASS','KIT')) THEN
534: IF l_debug_level > 0 THEN
535: oe_debug_pub.add('Exit Shipping_info_Available (4) Remnant Model',1);
536: END IF;
537: RETURN TRUE;
538: -- If line is shipped, shipped quantity will be filled in otherwise it will be null
539: ELSIF p_line_rec.shipped_quantity IS NULL THEN -- Changed IF to ELSIF
537: RETURN TRUE;
538: -- If line is shipped, shipped quantity will be filled in otherwise it will be null
539: ELSIF p_line_rec.shipped_quantity IS NULL THEN -- Changed IF to ELSIF
540: IF l_debug_level > 0 THEN
541: oe_debug_pub.add('Exit Shipping_info_Available (1) non shippable', 1);
542: END IF;
543: RETURN FALSE;
544: ELSE
545: IF l_debug_level > 0 THEN
542: END IF;
543: RETURN FALSE;
544: ELSE
545: IF l_debug_level > 0 THEN
546: oe_debug_pub.add('Exit Shipping_info_Available (2)-shippable', 1);
547: END IF;
548: RETURN TRUE;
549: END IF;
550: ELSE
548: RETURN TRUE;
549: END IF;
550: ELSE
551: IF l_debug_level > 0 THEN
552: oe_debug_pub.add( 'EXIT SHIPPING_INFO_AVAILABLE ( 3 ) ' , 1 ) ;
553: END IF;
554: RETURN FALSE;
555: END IF;
556: EXCEPTION
557: WHEN OTHERS THEN
558: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
559: THEN
560: IF l_debug_level > 0 THEN
561: oe_debug_pub.add( 'SHIPPPING_INFO_AVAILABLE: WHEN OTHERS EXCEPTION ' , 1 ) ;
562: END IF;
563: OE_MSG_PUB.Add_Exc_Msg
564: ( G_PKG_NAME
565: , 'Shippping_info_Available'
581: l_cancelled_delivery_detail NUMBER;
582: --bug5336639
583: l_master_organization_id NUMBER;
584: --
585: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
586: --
587: BEGIN
588: IF l_debug_level > 0 THEN
589: oe_debug_pub.add( 'ENTERING LINE_INVOICEABLE' , 1 ) ;
585: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
586: --
587: BEGIN
588: IF l_debug_level > 0 THEN
589: oe_debug_pub.add( 'ENTERING LINE_INVOICEABLE' , 1 ) ;
590: END IF;
591:
592: --bug5336639
593: IF G_CURRENT_LINE_ID = p_line_rec.line_id THEN
592: --bug5336639
593: IF G_CURRENT_LINE_ID = p_line_rec.line_id THEN
594:
595: IF l_debug_level > 0 THEN
596: oe_debug_pub.add('Returning the cached value..');
597: IF G_IS_CURR_LINE_INVOICEABLE THEN
598: oe_debug_pub.add('This line is invoiceable');
599: ELSE
600: oe_debug_pub.add('This line is not invoiceable');
594:
595: IF l_debug_level > 0 THEN
596: oe_debug_pub.add('Returning the cached value..');
597: IF G_IS_CURR_LINE_INVOICEABLE THEN
598: oe_debug_pub.add('This line is invoiceable');
599: ELSE
600: oe_debug_pub.add('This line is not invoiceable');
601: END IF;
602: END IF;
596: oe_debug_pub.add('Returning the cached value..');
597: IF G_IS_CURR_LINE_INVOICEABLE THEN
598: oe_debug_pub.add('This line is invoiceable');
599: ELSE
600: oe_debug_pub.add('This line is not invoiceable');
601: END IF;
602: END IF;
603:
604: RETURN G_IS_CURR_LINE_INVOICEABLE;
606:
607: -- sol_ord_er #16014165 /* If full billing from Contracts, line can't be invoiced */
608: IF p_line_rec.service_bill_option_code = 'FBOKS' THEN
609: IF l_debug_level > 0 THEN
610: oe_debug_pub.add( 'Full Billing to be done from Service Contracts, Line Not Invoiceable' , 1 ) ;
611: END IF;
612: G_CURRENT_LINE_ID := p_line_rec.line_id;
613: G_IS_CURR_LINE_INVOICEABLE := FALSE;
614: RETURN FALSE;
616: -- sol_ord_er #16014165 end
617: /* For internal orders source_document_type_id is 10 */
618: IF p_line_rec.source_document_type_id = 10 THEN
619: IF l_debug_level > 0 THEN
620: oe_debug_pub.add( 'INTERNAL ORDER , NOT INVOICEABLE' , 1 ) ;
621: END IF;
622: --bug5336639 start
623: G_CURRENT_LINE_ID := p_line_rec.line_id;
624: G_IS_CURR_LINE_INVOICEABLE := FALSE;
637: AND SOURCE_CODE='OE'
638: AND RELEASED_STATUS = 'D';
639: IF NVL(l_cancelled_delivery_detail,0) > 0 THEN
640: IF l_debug_level > 0 THEN
641: oe_debug_pub.add('This line not eligible for invoice since shipping within tolerance'||p_line_rec.line_id,1);
642: END IF;
643: --bug5336639 start
644: G_CURRENT_LINE_ID := p_line_rec.line_id;
645: G_IS_CURR_LINE_INVOICEABLE := FALSE;
647: RETURN FALSE;
648: END IF;
649: EXCEPTION WHEN OTHERS THEN
650: IF l_debug_level > 0 THEN
651: oe_debug_pub.add('In Others',1);
652: END IF;
653: NULL;
654: END;
655: END IF;
667:
668: EXCEPTION
669: WHEN NO_DATA_FOUND THEN
670: IF l_debug_level > 0 THEN
671: oe_debug_pub.add( 'ITEM DEFINITION DOES NOT EXISTS IN THE SHIP FROM ORG' );
672: END IF;
673: RAISE NO_DATA_FOUND;
674: END;
675: /* If the service reference context is ORDER, then the service_reference
680: IF p_line_rec.item_type_code = 'SERVICE' AND
681: p_line_rec.service_reference_type_code='CUSTOMER_PRODUCT' AND
682: p_line_rec.service_reference_line_id IS NOT NULL THEN
683: IF l_debug_level > 0 THEN
684: oe_debug_pub.add( 'LINE IS A CUSTOMER PRODUCT' ) ;
685: END IF;
686: /* Commenting for bug# 5032978
687: OE_SERVICE_UTIL.Get_Cust_Product_Line_Id
688: ( x_return_status => l_return_status
691: , x_cust_product_line_id => l_order_line_id
692: );
693: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
694: IF l_debug_level > 0 THEN
695: oe_debug_pub.add( 'SERVICE LINE ID IS ' || L_ORDER_LINE_ID ) ;
696: END IF;
697: l_service_reference_line_id := l_order_line_id;
698: ELSE
699: IF l_debug_level > 0 THEN
696: END IF;
697: l_service_reference_line_id := l_order_line_id;
698: ELSE
699: IF l_debug_level > 0 THEN
700: oe_debug_pub.add( 'NOT ABLE TO RETRIEVE CUST PRODUCT LINE ID' ) ;
701: END IF;
702: FND_MESSAGE.SET_NAME('ONT','ONT_NO_CUST_PROD_LINE');
703: OE_MSG_PUB.ADD;
704: RAISE NO_DATA_FOUND;
720: AND msi.organization_id = nvl(ol.ship_from_org_id, oe_sys_parameters.value('MASTER_ORGANIZATION_ID', ol.org_id));
721: EXCEPTION
722: WHEN NO_DATA_FOUND THEN
723: IF l_debug_level > 0 THEN
724: oe_debug_pub.add( 'IN NO DATA FOUND WHEN TRYING TO GET SERVICEABLE PRODUCT FLAG' ,5);
725: END IF;
726: l_serviceable_product_flag := 'Y';
727: WHEN OTHERS THEN
728: IF l_debug_level > 0 THEN
725: END IF;
726: l_serviceable_product_flag := 'Y';
727: WHEN OTHERS THEN
728: IF l_debug_level > 0 THEN
729: oe_debug_pub.add( 'UNABLE TO DEFINE SERVICEABLE PRODUCT '||SQLERRM , 1 ) ;
730: END IF;
731: RAISE NO_DATA_FOUND;
732: END;
733: ELSE
737: IF (l_invoiceable_item_flag = 'N') OR
738: (l_invoice_enabled_flag = 'N') OR
739: (p_line_rec.item_type_code = 'SERVICE' AND l_serviceable_product_flag = 'N') THEN
740: IF l_debug_level > 0 THEN
741: oe_debug_pub.add( 'ITEM NOT INVOICEABLE ( 2 ) ' , 1 ) ;
742: END IF;
743: --bug5336639 start
744: G_CURRENT_LINE_ID := p_line_rec.line_id;
745: G_IS_CURR_LINE_INVOICEABLE := FALSE;
748: END IF;
749:
750: IF p_line_rec.item_type_code = 'INCLUDED' THEN
751: IF l_debug_level > 0 THEN
752: oe_debug_pub.add( 'INCLUDED ITEM , NOT INVOICEABLE ( 3 ) ' , 1 ) ;
753: END IF;
754: --bug5336639 start
755: G_CURRENT_LINE_ID := p_line_rec.line_id;
756: G_IS_CURR_LINE_INVOICEABLE := FALSE;
759: END IF;
760:
761: IF p_line_rec.item_type_code = 'CONFIG' THEN -- for bug# 5224264
762: IF l_debug_level > 0 THEN
763: oe_debug_pub.add( 'CONFIG ITEM , NOT INVOICEABLE ( 3 ) ' , 1 ) ;
764: END IF;
765: --bug5336639 start
766: G_CURRENT_LINE_ID := p_line_rec.line_id;
767: G_IS_CURR_LINE_INVOICEABLE := FALSE;
772: IF Return_Line(p_line_rec) THEN
773: IF OE_LINE_UTIL.Get_Return_Item_Type_Code(p_line_rec) = 'CONFIG' OR
774: OE_LINE_UTIL.Get_Return_Item_Type_Code(p_line_rec) = 'INCLUDED' THEN
775: IF l_debug_level > 0 THEN
776: oe_debug_pub.add( 'ITEM NOT INVOICEABLE ( 4 ) ' , 1 ) ;
777: END IF;
778: --bug5336639 start
779: G_CURRENT_LINE_ID := p_line_rec.line_id;
780: G_IS_CURR_LINE_INVOICEABLE := FALSE;
788: AND NVL(p_line_rec.shipped_quantity,0) = 0
789: AND NVL(p_line_rec.fulfilled_quantity,0) = 0 ) THEN
790:
791: IF l_debug_level > 0 THEN
792: oe_debug_pub.add( 'ITEM was Completely rejected, DO NOT Invoice ' , 1 ) ;
793: END IF;
794:
795: RETURN FALSE;
796: END IF;
796: END IF;
797: --Added for bug # 6945716 end
798: END IF;
799: IF l_debug_level > 0 THEN
800: oe_debug_pub.add( 'THIS LINE IS INVOICEABLE ( 5 ) ' , 5 ) ;
801: END IF;
802: --bug5336639 start
803: G_CURRENT_LINE_ID := p_line_rec.line_id;
804: G_IS_CURR_LINE_INVOICEABLE := TRUE;
812: WHEN OTHERS THEN
813: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
814: THEN
815: IF l_debug_level > 0 THEN
816: oe_debug_pub.add( 'LINE_INVOICEABLE: WHEN OTHERS EXCEPTION '||SQLERRM , 1 ) ;
817: END IF;
818: OE_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME ,'Line_Invoiceable');
819: END IF;
820: END Line_Invoiceable;
829: l_hold_return_status VARCHAR2(30);
830: l_hold_msg_count NUMBER;
831: l_hold_msg_data VARCHAR2(240);
832: --
833: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
834: --
835: BEGIN
836:
837: -- We should honor invoice specific and generic holds
836:
837: -- We should honor invoice specific and generic holds
838: -- call to check_hold api to check for holds
839: IF l_debug_level > 0 THEN
840: oe_debug_pub.add( 'ENTER CHECK_INVOICING_HOLDS ' , 5 ) ;
841: END IF;
842: -- Check for Generic and invoice activity specific holds
843: -- IF p_itemtype = OE_GLOBALS.G_WFI_LIN THEN
844: OE_HOLDS_PUB.CHECK_HOLDS(p_api_version => 1.0,
855: FND_MESSAGE.SET_NAME('ONT','OE_INVOICING_HOLD');
856: OE_MSG_PUB.ADD;
857: x_return_status := FND_API.G_RET_STS_ERROR;
858: IF l_debug_level > 0 THEN
859: oe_debug_pub.add( 'A Line level Invoicing hold or generic hold found ( 1 ) , Return status : '||X_RETURN_STATUS , 1 ) ;
860: END IF;
861: RETURN;
862: ELSE
863: x_return_status := FND_API.G_RET_STS_SUCCESS;
878: FND_MESSAGE.SET_NAME('ONT','OE_INVOICING_HOLD');
879: OE_MSG_PUB.ADD;
880: x_return_status := FND_API.G_RET_STS_ERROR;
881: IF l_debug_level > 0 THEN
882: oe_debug_pub.add( 'A Header level Invoicing hold or generic hold found ( 2 ) , Return status '||X_RETURN_STATUS , 1 ) ;
883: END IF;
884: RETURN;
885: ELSE
886: x_return_status := FND_API.G_RET_STS_SUCCESS;
886: x_return_status := FND_API.G_RET_STS_SUCCESS;
887: END IF;
888: -- END IF;
889: IF l_debug_level > 0 THEN
890: oe_debug_pub.add( 'NO HOLDS FOUND FOR THIS LINE ( 3 ) , RETURN STATUS '||X_RETURN_STATUS , 1 ) ;
891: END IF;
892: EXCEPTION
893: WHEN OTHERS THEN
894: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
895: IF FND_MSG_PUB.Check_Msg_Level
896: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
897: THEN
898: IF l_debug_level > 0 THEN
899: oe_debug_pub.add( 'Check_Invoicing_Holds: WHEN OTHERS EXCEPTION '||SQLERRM , 1 ) ;
900: END IF;
901: OE_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME ,'Check_Invoicing_Holds');
902: END IF;
903: END Check_Invoicing_Holds;
906: ( p_line_rec IN OE_Order_Pub.Line_Rec_Type
907: ) RETURN BOOLEAN IS
908: l_price_adj_tbl OE_Header_Adj_Util.Line_Adjustments_Tab_Type;
909: --
910: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
911: --
912: l_header_id NUMBER;
913: l_line_id NUMBER;
914: BEGIN
912: l_header_id NUMBER;
913: l_line_id NUMBER;
914: BEGIN
915: IF l_debug_level > 0 THEN
916: oe_debug_pub.add( 'ENTER SHOW_DETAIL_DISCOUNTS ( ) ' , 5 ) ;
917: END IF;
918: -- sol_ord_er #16014165
919: If p_line_rec.service_bill_option_code = 'FPOM' then
920: IF l_debug_level > 0 THEN
917: END IF;
918: -- sol_ord_er #16014165
919: If p_line_rec.service_bill_option_code = 'FPOM' then
920: IF l_debug_level > 0 THEN
921: oe_debug_pub.add( 'Billing Option set to First Period from OM, Subsequent from OKS' , 5 ) ;
922: END IF;
923: -- since OKS is involved in billing, Do not Show Discounts
924: RETURN FALSE;
925: END IF;
948: ,x_line_adjustments => l_price_adj_tbl);
949: END IF;
950: -- RT}
951: IF l_debug_level > 0 THEN
952: oe_debug_pub.add( 'HEADER_ID : '||P_LINE_REC.HEADER_ID , 5 ) ;
953: oe_debug_pub.add( 'LINE_ID : '||P_LINE_REC.LINE_ID , 5 ) ;
954: oe_debug_pub.add( 'COUNT IS : '||L_PRICE_ADJ_TBL.COUNT , 5 ) ;
955: END IF;
956: IF l_price_adj_tbl.COUNT <> 0 THEN
949: END IF;
950: -- RT}
951: IF l_debug_level > 0 THEN
952: oe_debug_pub.add( 'HEADER_ID : '||P_LINE_REC.HEADER_ID , 5 ) ;
953: oe_debug_pub.add( 'LINE_ID : '||P_LINE_REC.LINE_ID , 5 ) ;
954: oe_debug_pub.add( 'COUNT IS : '||L_PRICE_ADJ_TBL.COUNT , 5 ) ;
955: END IF;
956: IF l_price_adj_tbl.COUNT <> 0 THEN
957: IF l_debug_level > 0 THEN
950: -- RT}
951: IF l_debug_level > 0 THEN
952: oe_debug_pub.add( 'HEADER_ID : '||P_LINE_REC.HEADER_ID , 5 ) ;
953: oe_debug_pub.add( 'LINE_ID : '||P_LINE_REC.LINE_ID , 5 ) ;
954: oe_debug_pub.add( 'COUNT IS : '||L_PRICE_ADJ_TBL.COUNT , 5 ) ;
955: END IF;
956: IF l_price_adj_tbl.COUNT <> 0 THEN
957: IF l_debug_level > 0 THEN
958: oe_debug_pub.add( 'SHOW DETAIL DISCOUNTS IS ON' , 1 ) ;
954: oe_debug_pub.add( 'COUNT IS : '||L_PRICE_ADJ_TBL.COUNT , 5 ) ;
955: END IF;
956: IF l_price_adj_tbl.COUNT <> 0 THEN
957: IF l_debug_level > 0 THEN
958: oe_debug_pub.add( 'SHOW DETAIL DISCOUNTS IS ON' , 1 ) ;
959: END IF;
960: RETURN TRUE;
961: ELSE
962: IF l_debug_level > 0 THEN
959: END IF;
960: RETURN TRUE;
961: ELSE
962: IF l_debug_level > 0 THEN
963: oe_debug_pub.add( 'SHOW DETAIL DISCOUNTS IS OFF ( 1 ) ' , 1 ) ;
964: END IF;
965: RETURN FALSE;
966: END IF;
967: ELSE
965: RETURN FALSE;
966: END IF;
967: ELSE
968: IF l_debug_level > 0 THEN
969: oe_debug_pub.add( 'SHOW DETAIL DISCOUNTS IS OFF ( 2 ) ' , 1 ) ;
970: END IF;
971: RETURN FALSE;
972: END IF;
973: END Show_Detail_Discounts;
981: l_precision NUMBER;
982: l_ext_precision NUMBER;
983: l_min_acct_unit NUMBER;
984: --
985: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
986: --
987: BEGIN
988:
989: IF l_debug_level > 0 THEN
986: --
987: BEGIN
988:
989: IF l_debug_level > 0 THEN
990: oe_debug_pub.add( 'ENTERING ROUNDED_AMOUNT ( ) ' , 5 ) ;
991: END IF;
992: FND_CURRENCY.GET_INFO(Currency_Code => p_currency_code,
993: precision => l_precision,
994: ext_precision => l_ext_precision,
999: ELSE
1000: x_rounded_amount := ROUND(p_unrounded_amount/l_min_acct_unit)*l_min_acct_unit;
1001: END IF;
1002: IF l_debug_level > 0 THEN
1003: oe_debug_pub.add( 'EXITING ROUNDED AMOUNT ( ) WITH AMOUNT : '||X_ROUNDED_AMOUNT , 5 ) ;
1004: END IF;
1005: END Rounded_Amount;
1006:
1007: PROCEDURE Return_Credit_Info
1011: )
1012: IS
1013: l_inv_cust_trx_type_id NUMBER;
1014: --
1015: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1016: --
1017: BEGIN
1018: IF l_debug_level > 0 THEN
1019: oe_debug_pub.add( ' ENTER RETURN CREDIT INFO ( ) ' , 5 ) ;
1015: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1016: --
1017: BEGIN
1018: IF l_debug_level > 0 THEN
1019: oe_debug_pub.add( ' ENTER RETURN CREDIT INFO ( ) ' , 5 ) ;
1020: END IF;
1021: --Hierarchy of retrieval:
1022: --1)Get cust_trx_type_id from referenced line.
1023: --2)Get cust_trx_type_id from referenced order.
1025: --4)Get cust_trx_type_id from that order.
1026: --5)Get cust_trx_type_id from PROFILE OPTION.
1027: IF p_line_rec.return_context = 'INVOICE' THEN
1028: IF l_debug_level > 0 THEN
1029: oe_debug_pub.add( ' RETURN TYPE IS INVOICE ' , 5 ) ;
1030: END IF;
1031: OE_DEBUG_PUB.DUMPDEBUG;
1032: -- Introducing this pl/sql block #3349781
1033: BEGIN
1027: IF p_line_rec.return_context = 'INVOICE' THEN
1028: IF l_debug_level > 0 THEN
1029: oe_debug_pub.add( ' RETURN TYPE IS INVOICE ' , 5 ) ;
1030: END IF;
1031: OE_DEBUG_PUB.DUMPDEBUG;
1032: -- Introducing this pl/sql block #3349781
1033: BEGIN
1034: SELECT nvl(ctt.credit_memo_type_id, 0),
1035: ctt_credit.creation_sign
1057: 8, -3113,
1058: NVL(ctl.org_id, -3114)); Commented for the bug 3027150 */
1059: -- cust_trx_type_id 1,2,7,8 (for Invoice, Credit Memo, PA Invoice, PA Credit memo) are seeded with org_id -3113
1060: EXCEPTION WHEN NO_DATA_FOUND THEN
1061: OE_DEBUG_PUB.add('Unable to derive credit memo type id from referenced order line, verify setup',1);
1062: x_credit_memo_type_id:= 0;
1063: x_credit_creation_sign := NULL;
1064: NULL;
1065: END;
1064: NULL;
1065: END;
1066:
1067: IF l_debug_level > 0 THEN
1068: oe_debug_pub.add( 'CREDIT_MEMO_TYPE_ID FROM INVOICE : '||X_CREDIT_MEMO_TYPE_ID , 5 ) ;
1069: END IF;
1070: ELSIF p_line_rec.return_context in ('PO', 'ORDER', 'SERIAL') THEN
1071: IF l_debug_level > 0 THEN
1072: oe_debug_pub.add( ' RETURN TYPE IS PO/ORDER/SERIAL' , 5 ) ;
1068: oe_debug_pub.add( 'CREDIT_MEMO_TYPE_ID FROM INVOICE : '||X_CREDIT_MEMO_TYPE_ID , 5 ) ;
1069: END IF;
1070: ELSIF p_line_rec.return_context in ('PO', 'ORDER', 'SERIAL') THEN
1071: IF l_debug_level > 0 THEN
1072: oe_debug_pub.add( ' RETURN TYPE IS PO/ORDER/SERIAL' , 5 ) ;
1073: END IF;
1074: OE_DEBUG_PUB.DUMPDEBUG;
1075: -- Get cust_trx_type_id from line type
1076: --Bug2293944 Get information from the reference line or reference order.
1070: ELSIF p_line_rec.return_context in ('PO', 'ORDER', 'SERIAL') THEN
1071: IF l_debug_level > 0 THEN
1072: oe_debug_pub.add( ' RETURN TYPE IS PO/ORDER/SERIAL' , 5 ) ;
1073: END IF;
1074: OE_DEBUG_PUB.DUMPDEBUG;
1075: -- Get cust_trx_type_id from line type
1076: --Bug2293944 Get information from the reference line or reference order.
1077: SELECT NVL(lt.cust_trx_type_id, 0)
1078: INTO l_inv_cust_trx_type_id
1080: WHERE lt.line_type_id = (SELECT line_type_id
1081: FROM oe_order_lines_all /* MOAC SQL CHANGE */
1082: WHERE line_id = p_line_rec.reference_line_id);
1083: IF l_debug_level > 0 THEN
1084: oe_debug_pub.add( 'CUSTOMER TRANSACTION TYPE ID FROM REFERENCE LINE TYPE : '||L_INV_CUST_TRX_TYPE_ID , 5 ) ;
1085: END IF;
1086: IF l_inv_cust_trx_type_id = 0 THEN
1087: SELECT NVL(ot.cust_trx_type_id,0)
1088: INTO l_inv_cust_trx_type_id
1093: FROM oe_order_lines_all /* MOAC SQL CHANGE */
1094: WHERE line_id = p_line_rec.reference_line_id);
1095: END IF;
1096: IF l_debug_level > 0 THEN
1097: oe_debug_pub.add( 'CUSTOMER TRANSACTION TYPE ID FROM REFERENCE ORDER TYPE : '||L_INV_CUST_TRX_TYPE_ID , 5 ) ;
1098: END IF;
1099: ELSE
1100: IF l_debug_level > 0 THEN
1101: oe_debug_pub.add( 'RETURN TYPE : '||P_LINE_REC.RETURN_CONTEXT , 5 ) ;
1097: oe_debug_pub.add( 'CUSTOMER TRANSACTION TYPE ID FROM REFERENCE ORDER TYPE : '||L_INV_CUST_TRX_TYPE_ID , 5 ) ;
1098: END IF;
1099: ELSE
1100: IF l_debug_level > 0 THEN
1101: oe_debug_pub.add( 'RETURN TYPE : '||P_LINE_REC.RETURN_CONTEXT , 5 ) ;
1102: END IF;
1103: x_credit_memo_type_id:= 0;
1104: x_credit_creation_sign := NULL;
1105: END IF;
1124: FROM oe_line_types_v lt
1125: WHERE lt.line_type_id = p_line_rec.line_type_id; */
1126: -- end bug 4200055
1127: IF l_debug_level > 0 THEN
1128: oe_debug_pub.add( 'CUSTOMER TRANSACTION TYPE ID FROM LINE TYPE : '||L_INV_CUST_TRX_TYPE_ID , 5 ) ;
1129: END IF;
1130: IF l_inv_cust_trx_type_id = 0 THEN
1131: -- Get cust_trx_type_id from order type
1132: SELECT NVL(ot.cust_trx_type_id, 0)
1136: WHERE ot.order_type_id = oh.order_type_id
1137: AND oh.header_id = p_line_rec.header_id;
1138: END IF;
1139: IF l_debug_level > 0 THEN
1140: oe_debug_pub.add( 'CUSTOMER TRANSACTION TYPE ID FROM ORDER TYPE : '||L_INV_CUST_TRX_TYPE_ID , 5 ) ;
1141: END IF;
1142: END IF;
1143: IF l_inv_cust_trx_type_id <> 0 THEN -- cust_trx_type_id exists at line/order type
1144: IF l_debug_level > 0 THEN
1141: END IF;
1142: END IF;
1143: IF l_inv_cust_trx_type_id <> 0 THEN -- cust_trx_type_id exists at line/order type
1144: IF l_debug_level > 0 THEN
1145: oe_debug_pub.add( 'CUST_TRX_TYPE_ID FROM LINE/ORDER TYPE: '||L_INV_CUST_TRX_TYPE_ID , 5 ) ;
1146: END IF;
1147: -- Introducing this pl/sql block #3349781
1148: BEGIN
1149: SELECT NVL(ctt.credit_memo_type_id, 0),
1167: 7, -3113,
1168: 8, -3113,
1169: NVL(p_line_rec.org_id, -3114)); Commented for the bug 3027150 */
1170: EXCEPTION WHEN NO_DATA_FOUND THEN
1171: OE_DEBUG_PUB.add('Unable to derive credit memo type id from order line, verify setup',1);
1172: x_credit_memo_type_id:= 0;
1173: x_credit_creation_sign := NULL;
1174: NULL;
1175: END;
1174: NULL;
1175: END;
1176:
1177: IF l_debug_level > 0 THEN
1178: oe_debug_pub.add( 'CREDIT MEMO TYPE : '||X_CREDIT_MEMO_TYPE_ID , 5 ) ;
1179: END IF;
1180: -- cust_trx_type_id 1,2,7,8 (for Invoice, Credit Memo, PA Invoice, PA Credit memo) are seeded with org_id -3113
1181: END IF;
1182: IF l_inv_cust_trx_type_id = 0 OR x_credit_memo_type_id = 0 THEN
1181: END IF;
1182: IF l_inv_cust_trx_type_id = 0 OR x_credit_memo_type_id = 0 THEN
1183: -- no cust_trx_type_id at line/order type
1184: IF l_debug_level > 0 THEN
1185: oe_debug_pub.add( 'NO CUST TRX TYPE AT ORDER OR LINE TYPE LEVEL' , 5 ) ;
1186: END IF;
1187: x_credit_memo_type_id := 0;
1188: x_credit_creation_sign := NULL;
1189: END IF;
1188: x_credit_creation_sign := NULL;
1189: END IF;
1190:
1191: IF l_debug_level > 0 THEN
1192: oe_debug_pub.add( 'CREDIT MEMO TYPE ID : '||X_CREDIT_MEMO_TYPE_ID , 5 ) ;
1193: END IF;
1194: IF l_debug_level > 0 THEN
1195: oe_debug_pub.add( 'CREATION_SIGN : '||X_CREDIT_CREATION_SIGN , 5 ) ;
1196: oe_debug_pub.add( ' EXITING RETURN_CREDIT_INFO ( ) ' , 1 ) ;
1191: IF l_debug_level > 0 THEN
1192: oe_debug_pub.add( 'CREDIT MEMO TYPE ID : '||X_CREDIT_MEMO_TYPE_ID , 5 ) ;
1193: END IF;
1194: IF l_debug_level > 0 THEN
1195: oe_debug_pub.add( 'CREATION_SIGN : '||X_CREDIT_CREATION_SIGN , 5 ) ;
1196: oe_debug_pub.add( ' EXITING RETURN_CREDIT_INFO ( ) ' , 1 ) ;
1197: END IF;
1198: EXCEPTION
1199: WHEN NO_DATA_FOUND THEN
1192: oe_debug_pub.add( 'CREDIT MEMO TYPE ID : '||X_CREDIT_MEMO_TYPE_ID , 5 ) ;
1193: END IF;
1194: IF l_debug_level > 0 THEN
1195: oe_debug_pub.add( 'CREATION_SIGN : '||X_CREDIT_CREATION_SIGN , 5 ) ;
1196: oe_debug_pub.add( ' EXITING RETURN_CREDIT_INFO ( ) ' , 1 ) ;
1197: END IF;
1198: EXCEPTION
1199: WHEN NO_DATA_FOUND THEN
1200: IF l_debug_level > 0 THEN
1197: END IF;
1198: EXCEPTION
1199: WHEN NO_DATA_FOUND THEN
1200: IF l_debug_level > 0 THEN
1201: oe_debug_pub.add( 'EXCEPTION. EXITING RETURN_CREDIT_INFO ( 1 ) '||SQLERRM , 1 ) ;
1202: END IF;
1203: x_credit_memo_type_id := 0;
1204: x_credit_creation_sign := NULL;
1205: WHEN TOO_MANY_ROWS THEN
1203: x_credit_memo_type_id := 0;
1204: x_credit_creation_sign := NULL;
1205: WHEN TOO_MANY_ROWS THEN
1206: IF l_debug_level > 0 THEN
1207: oe_debug_pub.add( 'EXCEPTION. EXITING RETURN_CREDIT_INFO ( 2 ) '||SQLERRM , 1 ) ;
1208: END IF;
1209: x_credit_memo_type_id := 0;
1210: x_credit_creation_sign := NULL;
1211: WHEN OTHERS THEN
1209: x_credit_memo_type_id := 0;
1210: x_credit_creation_sign := NULL;
1211: WHEN OTHERS THEN
1212: IF l_debug_level > 0 THEN
1213: oe_debug_pub.add( 'EXCEPTION. EXITING RETURN_CREDIT_INFO ( 3 ) '||SQLERRM , 1 ) ;
1214: END IF;
1215: x_credit_memo_type_id := 0;
1216: x_credit_creation_sign := NULL;
1217: END Return_Credit_Info;
1221: , p_cust_trx_type_id IN NUMBER)
1222: RETURN VARCHAR2 IS
1223: l_creation_sign VARCHAR2(30):= NULL;
1224: --
1225: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1226: --
1227: BEGIN
1228: IF l_debug_level > 0 THEN
1229: oe_debug_pub.add( 'ENTERING GET_CREDIT_CREATION_SIGN' , 5 ) ;
1225: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1226: --
1227: BEGIN
1228: IF l_debug_level > 0 THEN
1229: oe_debug_pub.add( 'ENTERING GET_CREDIT_CREATION_SIGN' , 5 ) ;
1230: END IF;
1231: IF p_cust_trx_type_id IS NOT NULL AND p_cust_trx_type_id <> 0 THEN
1232: SELECT creation_sign
1233: INTO l_creation_sign
1234: FROM ra_cust_trx_types
1235: WHERE cust_trx_type_id = p_Cust_Trx_Type_Id;
1236: END IF;
1237: IF l_debug_level > 0 THEN
1238: oe_debug_pub.add( 'CREATION_SIGN: '||L_CREATION_SIGN ) ;
1239: oe_debug_pub.add( 'EXITING GET_CREDIT_CREATION_SIGN ( 1 ) '||' SIGN= '||L_CREATION_SIGN , 1 ) ;
1240: END IF;
1241: RETURN(l_creation_sign);
1242:
1235: WHERE cust_trx_type_id = p_Cust_Trx_Type_Id;
1236: END IF;
1237: IF l_debug_level > 0 THEN
1238: oe_debug_pub.add( 'CREATION_SIGN: '||L_CREATION_SIGN ) ;
1239: oe_debug_pub.add( 'EXITING GET_CREDIT_CREATION_SIGN ( 1 ) '||' SIGN= '||L_CREATION_SIGN , 1 ) ;
1240: END IF;
1241: RETURN(l_creation_sign);
1242:
1243: EXCEPTION
1242:
1243: EXCEPTION
1244: WHEN OTHERS THEN
1245: IF l_debug_level > 0 THEN
1246: oe_debug_pub.add( 'EXCEPTION. EXITING GET_CREDIT_CREATION_SIGN ( 1 ) '||SQLERRM , 1 ) ;
1247: END IF;
1248: RETURN(NULL);
1249: END Get_Credit_Creation_Sign;
1250:
1253: , x_commitment_applied OUT NOCOPY NUMBER
1254: , x_commitment_interfaced OUT NOCOPY NUMBER)
1255: IS
1256: --
1257: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1258: --
1259: BEGIN
1260: IF l_debug_level > 0 THEN
1261: oe_debug_pub.add( 'ENTERING GET_COMMITMENT_INFO' , 5 ) ;
1257: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1258: --
1259: BEGIN
1260: IF l_debug_level > 0 THEN
1261: oe_debug_pub.add( 'ENTERING GET_COMMITMENT_INFO' , 5 ) ;
1262: END IF;
1263: IF p_line_rec.commitment_id IS NOT NULL THEN
1264: --serla begin
1265: IF OE_PrePayment_UTIL.IS_MULTIPLE_PAYMENTS_ENABLED THEN
1284: END IF;
1285: --serla end
1286: END IF;
1287: IF l_debug_level > 0 THEN
1288: oe_debug_pub.add( ' COMMITMENT APPLIED : '||X_COMMITMENT_APPLIED , 1 ) ;
1289: oe_debug_pub.add( ' COMMITMENT INTERFACED :'||X_COMMITMENT_INTERFACED , 1 ) ;
1290: END IF;
1291: EXCEPTION
1292: WHEN OTHERS THEN
1285: --serla end
1286: END IF;
1287: IF l_debug_level > 0 THEN
1288: oe_debug_pub.add( ' COMMITMENT APPLIED : '||X_COMMITMENT_APPLIED , 1 ) ;
1289: oe_debug_pub.add( ' COMMITMENT INTERFACED :'||X_COMMITMENT_INTERFACED , 1 ) ;
1290: END IF;
1291: EXCEPTION
1292: WHEN OTHERS THEN
1293: IF l_debug_level > 0 THEN
1290: END IF;
1291: EXCEPTION
1292: WHEN OTHERS THEN
1293: IF l_debug_level > 0 THEN
1294: oe_debug_pub.add( 'EXCEPTION. EXITING GET_COMMITMENT_INFO ( 1 ) '||SQLERRM , 1 ) ;
1295: END IF;
1296: x_commitment_applied := NULL;
1297: x_commitment_interfaced := NULL;
1298: END Get_Commitment_Info;
1304: -- bug#12645586, l_organization_id NUMBER := oe_sys_parameters.value('MASTER_ORGANIZATION_ID', p_line_rec.org_id);
1305: l_organization_id NUMBER := nvl(p_line_rec.ship_from_org_id,
1306: oe_sys_parameters.value('MASTER_ORGANIZATION_ID', p_line_rec.org_id)); -- Added for bug#12645586
1307: --
1308: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1309: --
1310: l_item_description VARCHAR2(240) := null ;
1311: BEGIN
1312: IF l_debug_level > 0 THEN
1309: --
1310: l_item_description VARCHAR2(240) := null ;
1311: BEGIN
1312: IF l_debug_level > 0 THEN
1313: oe_debug_pub.add( ' ENTERING GET_ITEM_DESCRIPTION ( ) ' , 5 ) ;
1314: oe_debug_pub.add( ' Item Identifier Type :'||p_line_rec.item_identifier_type);
1315: oe_debug_pub.add('Inventory Item ID '||p_line_rec.inventory_item_id,5);
1316: oe_debug_pub.add('Organization ID '||l_organization_ID,5);
1317: oe_debug_pub.add('Ordered Item ID '||p_line_rec.ordered_item_id);
1310: l_item_description VARCHAR2(240) := null ;
1311: BEGIN
1312: IF l_debug_level > 0 THEN
1313: oe_debug_pub.add( ' ENTERING GET_ITEM_DESCRIPTION ( ) ' , 5 ) ;
1314: oe_debug_pub.add( ' Item Identifier Type :'||p_line_rec.item_identifier_type);
1315: oe_debug_pub.add('Inventory Item ID '||p_line_rec.inventory_item_id,5);
1316: oe_debug_pub.add('Organization ID '||l_organization_ID,5);
1317: oe_debug_pub.add('Ordered Item ID '||p_line_rec.ordered_item_id);
1318: END IF;
1311: BEGIN
1312: IF l_debug_level > 0 THEN
1313: oe_debug_pub.add( ' ENTERING GET_ITEM_DESCRIPTION ( ) ' , 5 ) ;
1314: oe_debug_pub.add( ' Item Identifier Type :'||p_line_rec.item_identifier_type);
1315: oe_debug_pub.add('Inventory Item ID '||p_line_rec.inventory_item_id,5);
1316: oe_debug_pub.add('Organization ID '||l_organization_ID,5);
1317: oe_debug_pub.add('Ordered Item ID '||p_line_rec.ordered_item_id);
1318: END IF;
1319: IF nvl(p_line_rec.item_identifier_type,'INT') = 'INT' THEN -- Bug #3684306
1312: IF l_debug_level > 0 THEN
1313: oe_debug_pub.add( ' ENTERING GET_ITEM_DESCRIPTION ( ) ' , 5 ) ;
1314: oe_debug_pub.add( ' Item Identifier Type :'||p_line_rec.item_identifier_type);
1315: oe_debug_pub.add('Inventory Item ID '||p_line_rec.inventory_item_id,5);
1316: oe_debug_pub.add('Organization ID '||l_organization_ID,5);
1317: oe_debug_pub.add('Ordered Item ID '||p_line_rec.ordered_item_id);
1318: END IF;
1319: IF nvl(p_line_rec.item_identifier_type,'INT') = 'INT' THEN -- Bug #3684306
1320: SELECT description
1313: oe_debug_pub.add( ' ENTERING GET_ITEM_DESCRIPTION ( ) ' , 5 ) ;
1314: oe_debug_pub.add( ' Item Identifier Type :'||p_line_rec.item_identifier_type);
1315: oe_debug_pub.add('Inventory Item ID '||p_line_rec.inventory_item_id,5);
1316: oe_debug_pub.add('Organization ID '||l_organization_ID,5);
1317: oe_debug_pub.add('Ordered Item ID '||p_line_rec.ordered_item_id);
1318: END IF;
1319: IF nvl(p_line_rec.item_identifier_type,'INT') = 'INT' THEN -- Bug #3684306
1320: SELECT description
1321: INTO x_item_description
1361: AND items.cross_reference = p_line_rec.ordered_item
1362: AND ROWNUM = 1; -- Bug3333235
1363: END IF;
1364: IF l_debug_level > 0 THEN
1365: oe_debug_pub.add( 'ITEM_DESCRIPTION : '||X_ITEM_DESCRIPTION ) ;
1366: oe_debug_pub.add( ' EXITING GET_ITEM_DESCRIPTION: '||X_ITEM_DESCRIPTION , 1 ) ;
1367: END IF;
1368: EXCEPTION
1369: WHEN NO_DATA_FOUND THEN --added for bug 4191624
1362: AND ROWNUM = 1; -- Bug3333235
1363: END IF;
1364: IF l_debug_level > 0 THEN
1365: oe_debug_pub.add( 'ITEM_DESCRIPTION : '||X_ITEM_DESCRIPTION ) ;
1366: oe_debug_pub.add( ' EXITING GET_ITEM_DESCRIPTION: '||X_ITEM_DESCRIPTION , 1 ) ;
1367: END IF;
1368: EXCEPTION
1369: WHEN NO_DATA_FOUND THEN --added for bug 4191624
1370: IF l_debug_level > 0 THEN
1367: END IF;
1368: EXCEPTION
1369: WHEN NO_DATA_FOUND THEN --added for bug 4191624
1370: IF l_debug_level > 0 THEN
1371: oe_debug_pub.add('When no data found then get desc from system items '||SQLERRM,1);
1372: END IF;
1373: SELECT sitems.description
1374: INTO x_item_description
1375: FROM mtl_system_items_vl sitems
1376: WHERE sitems.inventory_item_id = p_line_rec.inventory_item_id
1377: and sitems.organization_id = l_organization_id ;
1378: WHEN OTHERS THEN
1379: IF l_debug_level > 0 THEN
1380: oe_debug_pub.add( 'EXCEPTION. GET ITEM DESCRIPTION '||SQLERRM , 1 ) ;
1381: END IF;
1382: NULL;
1383: END Get_Item_Description;
1384:
1403: /*Bug3261460-end*/
1404:
1405: l_organization_id NUMBER := oe_sys_parameters.value('MASTER_ORGANIZATION_ID', p_line_rec.org_id);
1406: --
1407: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1408: --
1409: BEGIN
1410: IF l_debug_level > 0 THEN
1411: oe_debug_pub.add( ' ENTERING GET SERVICE ITEM DESCRIPTION ( ) ' , 5 ) ;
1407: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1408: --
1409: BEGIN
1410: IF l_debug_level > 0 THEN
1411: oe_debug_pub.add( ' ENTERING GET SERVICE ITEM DESCRIPTION ( ) ' , 5 ) ;
1412: END IF;
1413: IF p_line_rec.item_type_code = 'SERVICE' AND
1414: p_line_rec.service_reference_type_code='CUSTOMER_PRODUCT' AND
1415: p_line_rec.service_reference_line_id IS NOT NULL THEN
1413: IF p_line_rec.item_type_code = 'SERVICE' AND
1414: p_line_rec.service_reference_type_code='CUSTOMER_PRODUCT' AND
1415: p_line_rec.service_reference_line_id IS NOT NULL THEN
1416: IF l_debug_level > 0 THEN
1417: oe_debug_pub.add( 'REFERENCED BY CUSTOMER PRODUCT' , 5 ) ;
1418: END IF;
1419: /* Commenting for bug# 5032978
1420: OE_SERVICE_UTIL.Get_Cust_Product_Line_Id
1421: ( x_return_status => l_return_status
1424: , x_cust_product_line_id => l_order_line_id
1425: );
1426: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1427: IF l_debug_level > 0 THEN
1428: oe_debug_pub.add( 'SERVICE LINE ID IS : ' || L_ORDER_LINE_ID , 5 ) ;
1429: END IF;
1430: l_service_reference_line_id := l_order_line_id;
1431: ELSE
1432: IF l_debug_level > 0 THEN
1429: END IF;
1430: l_service_reference_line_id := l_order_line_id;
1431: ELSE
1432: IF l_debug_level > 0 THEN
1433: oe_debug_pub.add( 'NOT ABLE TO RETRIEVE CUST PRODUCT LINE ID '||SQLERRM , 1 ) ;
1434: END IF;
1435: RAISE NO_DATA_FOUND;
1436: END IF;
1437: end commenting for bug# 5032978 */
1451: where line_id = l_service_reference_line_id;
1452: EXCEPTION
1453: WHEN NO_DATA_FOUND THEN
1454: IF l_debug_level > 0 THEN
1455: oe_debug_pub.add( 'NOT ABLE TO GET SERVICE LINE DETAILS', 1);
1456: END IF;
1457: l_item_identifier_type := NULL;
1458: l_inventory_item_id := NULL;
1459: l_organization_id := NULL;
1458: l_inventory_item_id := NULL;
1459: l_organization_id := NULL;
1460: END;
1461: l_organization_id := oe_sys_parameters.value('MASTER_ORGANIZATION_ID', l_org_id);
1462: oe_debug_pub.add('Executed the first sql',1);
1463: BEGIN -- added for bug 4237123
1464: IF nvl(l_item_identifier_type,'INT') = 'INT' THEN -- Bug #3684306
1465: oe_debug_pub.add('Item identifier type is INT',1);
1466: BEGIN
1461: l_organization_id := oe_sys_parameters.value('MASTER_ORGANIZATION_ID', l_org_id);
1462: oe_debug_pub.add('Executed the first sql',1);
1463: BEGIN -- added for bug 4237123
1464: IF nvl(l_item_identifier_type,'INT') = 'INT' THEN -- Bug #3684306
1465: oe_debug_pub.add('Item identifier type is INT',1);
1466: BEGIN
1467: SELECT description
1468: INTO l_item_serviced_desc
1469: FROM mtl_system_items_vl
1471: AND organization_id = l_organization_id;
1472: EXCEPTION
1473: WHEN NO_DATA_FOUND THEN
1474: IF l_debug_level > 0 THEN
1475: oe_debug_pub.add( 'NO DATA FOUND IN SERVICE ITEM DESCRIPTION');
1476: END IF;
1477: l_item_serviced_desc := NULL;
1478: END;
1479: ELSIF nvl(l_item_identifier_type,'INT') = 'CUST' THEN -- Bug #3684306
1476: END IF;
1477: l_item_serviced_desc := NULL;
1478: END;
1479: ELSIF nvl(l_item_identifier_type,'INT') = 'CUST' THEN -- Bug #3684306
1480: oe_debug_pub.add('Item Identifier typs is CUST',1);
1481: -- changes for bug 4237123
1482: /*SELECT nvl(citems.customer_item_desc, sitems.description)
1483: INTO l_item_serviced_desc
1484: FROM mtl_customer_items citems
1501: WHERE sitems.inventory_item_id = l_inventory_item_id
1502: and sitems.organization_id = l_organization_id ;
1503: end if ;
1504: ELSE
1505: oe_debug_pub.add('In else part of item identifier type',1);
1506: SELECT nvl(items.description, sitems.description)
1507: INTO l_item_serviced_desc
1508: FROM mtl_cross_reference_types types
1509: , mtl_cross_references items
1515: AND items.cross_reference_type = l_item_identifier_type
1516: AND items.cross_reference = l_ordered_item
1517: AND ROWNUM = 1; -- added for Bug 7583908
1518: END IF;
1519: OE_DEBUG_PUB.ADD('Item_Description of serviced item: '||l_item_serviced_desc);
1520: EXCEPTION --aded for bug 4237123
1521: WHEN NO_DATA_FOUND THEN
1522: IF l_debug_level > 0 THEN
1523: oe_debug_pub.add('When no data found then get desc from system items '||SQLERRM,1);
1519: OE_DEBUG_PUB.ADD('Item_Description of serviced item: '||l_item_serviced_desc);
1520: EXCEPTION --aded for bug 4237123
1521: WHEN NO_DATA_FOUND THEN
1522: IF l_debug_level > 0 THEN
1523: oe_debug_pub.add('When no data found then get desc from system items '||SQLERRM,1);
1524: END IF;
1525: SELECT sitems.description
1526: INTO l_item_serviced_desc
1527: FROM mtl_system_items_vl sitems
1534: ||' '||substr(l_item_serviced_desc,1,90)||': '
1535: ||p_line_rec.service_start_date||' - '||p_line_rec.service_end_date ;
1536:
1537: IF l_debug_level > 0 THEN
1538: oe_debug_pub.add( 'SERVICE ITEM_DESCRIPTION: '||X_ITEM_DESCRIPTION ) ;
1539: oe_debug_pub.add( ' EXITING GET_SERVICE_ITEM_DESCRIPTION: '||X_ITEM_DESCRIPTION , 1 ) ;
1540: END IF;
1541: EXCEPTION
1542: WHEN OTHERS THEN
1535: ||p_line_rec.service_start_date||' - '||p_line_rec.service_end_date ;
1536:
1537: IF l_debug_level > 0 THEN
1538: oe_debug_pub.add( 'SERVICE ITEM_DESCRIPTION: '||X_ITEM_DESCRIPTION ) ;
1539: oe_debug_pub.add( ' EXITING GET_SERVICE_ITEM_DESCRIPTION: '||X_ITEM_DESCRIPTION , 1 ) ;
1540: END IF;
1541: EXCEPTION
1542: WHEN OTHERS THEN
1543: IF l_debug_level > 0 THEN
1540: END IF;
1541: EXCEPTION
1542: WHEN OTHERS THEN
1543: IF l_debug_level > 0 THEN
1544: oe_debug_pub.add( 'EXCEPTION. GET SERVICE ITEM DESCRIPTION ( ) '||SQLERRM , 1 ) ;
1545: END IF;
1546: NULL;
1547: END Get_Service_Item_Description;
1548:
1551: RETURN VARCHAR2
1552: IS
1553: l_overship_invoice_basis VARCHAR2(30):= NULL;
1554: --
1555: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1556: --
1557: BEGIN
1558: /*
1559: Get l_overship_invoice_basis from control set
1562: 3. Customer
1563: 4.Profile
1564: */
1565: IF l_debug_level > 0 THEN
1566: oe_debug_pub.add( ' ENTERING GET_OVERSHIP_INVOICE_BASIS' , 5 ) ;
1567: END IF;
1568: IF p_line_rec.ship_to_org_id IS NOT NULL THEN
1569: SELECT invoice_quantity_rule
1570: INTO l_overship_invoice_basis
1571: FROM hz_cust_site_uses
1572: WHERE site_use_id = p_line_rec.ship_to_org_id
1573: AND site_use_code = 'SHIP_TO';
1574: IF l_debug_level > 0 THEN
1575: oe_debug_pub.add( 'OVERSHIP_INVOICE_BASIS ( 2 ) : '||L_OVERSHIP_INVOICE_BASIS , 5 ) ;
1576: END IF;
1577: END IF;
1578: IF l_overship_invoice_basis IS NULL THEN
1579: IF p_line_rec.sold_to_org_id IS NOT NULL THEN
1581: INTO l_overship_invoice_basis
1582: FROM hz_cust_accounts
1583: WHERE cust_account_id = p_line_rec.sold_to_org_id;
1584: IF l_debug_level > 0 THEN
1585: oe_debug_pub.add( 'OVERSHIP_INVOICE_BASIS ( 1 ) : '||L_OVERSHIP_INVOICE_BASIS , 5 ) ;
1586: END IF;
1587: END IF;
1588: END IF;
1589: IF l_overship_invoice_basis IS NULL THEN
1588: END IF;
1589: IF l_overship_invoice_basis IS NULL THEN
1590: l_overship_invoice_basis := oe_sys_parameters.value('OE_OVERSHIP_INVOICE_BASIS',p_line_rec.org_id); --moac
1591: IF l_debug_level > 0 THEN
1592: oe_debug_pub.add( 'OVERSHIP_INVOICE_BASIS ( 3 ) : '||L_OVERSHIP_INVOICE_BASIS , 5 ) ;
1593: END IF;
1594: END IF;
1595: IF l_debug_level > 0 THEN
1596: oe_debug_pub.add( 'OVERSHIP_INVOICE_BASIS: '||L_OVERSHIP_INVOICE_BASIS , 5 ) ;
1592: oe_debug_pub.add( 'OVERSHIP_INVOICE_BASIS ( 3 ) : '||L_OVERSHIP_INVOICE_BASIS , 5 ) ;
1593: END IF;
1594: END IF;
1595: IF l_debug_level > 0 THEN
1596: oe_debug_pub.add( 'OVERSHIP_INVOICE_BASIS: '||L_OVERSHIP_INVOICE_BASIS , 5 ) ;
1597: oe_debug_pub.add( ' EXITING GET_OVERSHIP_INVOICE_BASIS: '||L_OVERSHIP_INVOICE_BASIS , 5 ) ;
1598: END IF;
1599: RETURN l_overship_invoice_basis;
1600:
1593: END IF;
1594: END IF;
1595: IF l_debug_level > 0 THEN
1596: oe_debug_pub.add( 'OVERSHIP_INVOICE_BASIS: '||L_OVERSHIP_INVOICE_BASIS , 5 ) ;
1597: oe_debug_pub.add( ' EXITING GET_OVERSHIP_INVOICE_BASIS: '||L_OVERSHIP_INVOICE_BASIS , 5 ) ;
1598: END IF;
1599: RETURN l_overship_invoice_basis;
1600:
1601: END Get_Overship_Invoice_Basis;
1608: IS
1609: l_invoice_source_id NUMBER := NULL;
1610: l_invoice_source VARCHAR2(50):= NULL;
1611: --
1612: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1613: --
1614: BEGIN
1615: IF l_debug_level > 0 THEN
1616: oe_debug_pub.add( ' ENTERING GET_INVOICE_SOURCE' , 5 ) ;
1612: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1613: --
1614: BEGIN
1615: IF l_debug_level > 0 THEN
1616: oe_debug_pub.add( ' ENTERING GET_INVOICE_SOURCE' , 5 ) ;
1617: END IF;
1618: IF FND_PROFILE.VALUE('WSH_INVOICE_NUMBERING_METHOD')= 'D' AND
1619: (Return_Line(p_line_rec) OR NOT Shipping_Info_Available(p_line_rec) OR
1620: (p_interface_line_rec.interface_line_attribute3 = '0')) THEN
1632: INTO l_invoice_source
1633: FROM ra_batch_sources
1634: WHERE batch_source_id = l_invoice_source_id;
1635: IF l_debug_level > 0 THEN
1636: oe_debug_pub.add( 'INVOICE_SOURCE IS ( 1 ) : '||L_INVOICE_SOURCE , 5 ) ;
1637: END IF;
1638: RETURN l_invoice_source;
1639: ELSE
1640: l_invoice_source := oe_sys_parameters.value('OE_NON_DELIVERY_INVOICE_SOURCE',p_line_rec.org_id); --moac
1638: RETURN l_invoice_source;
1639: ELSE
1640: l_invoice_source := oe_sys_parameters.value('OE_NON_DELIVERY_INVOICE_SOURCE',p_line_rec.org_id); --moac
1641: IF l_debug_level > 0 THEN
1642: oe_debug_pub.add( 'INVOICE_SOURCE IS ( 2 ) : '||L_INVOICE_SOURCE , 5 ) ;
1643: END IF;
1644: RETURN l_invoice_source;
1645: END IF;
1646: ELSE -- Invoice numbering method is 'Automatic' OR 'delivery' with shipping information available
1658: INTO l_invoice_source
1659: FROM ra_batch_sources
1660: WHERE batch_source_id = l_invoice_source_id;
1661: IF l_debug_level > 0 THEN
1662: oe_debug_pub.add( 'INVOICE SOURCE IS ( 3 ) : '||L_INVOICE_SOURCE , 5 ) ;
1663: END IF;
1664: RETURN l_invoice_source;
1665: ELSE
1666: l_invoice_source := oe_sys_parameters.value('OE_INVOICE_SOURCE',p_line_rec.org_id); --moac
1664: RETURN l_invoice_source;
1665: ELSE
1666: l_invoice_source := oe_sys_parameters.value('OE_INVOICE_SOURCE',p_line_rec.org_id); --moac
1667: IF l_debug_level > 0 THEN
1668: oe_debug_pub.add( 'INVOICE_SOURCE IS ( 4 ) : '||L_INVOICE_SOURCE , 5 ) ;
1669: END IF;
1670: RETURN l_invoice_source;
1671: END IF;
1672: END IF;
1672: END IF;
1673: EXCEPTION
1674: WHEN OTHERS THEN
1675: IF l_debug_level > 0 THEN
1676: oe_debug_pub.add( 'In Others of Function Get_Invoice_Source', 5);
1677: END IF;
1678: RETURN l_invoice_source;
1679: END Get_Invoice_Source;
1680:
1685: l_cust_trx_type_id NUMBER;
1686: l_creation_sign VARCHAR2(30);
1687: l_line_rec OE_Order_Pub.Line_Rec_Type;
1688: --
1689: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1690: --
1691: BEGIN
1692: IF l_debug_level > 0 THEN
1693: oe_debug_pub.add( ' ENTER GET_CUSTOMER_TRANSACTION_TYPE' , 5 ) ;
1689: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1690: --
1691: BEGIN
1692: IF l_debug_level > 0 THEN
1693: oe_debug_pub.add( ' ENTER GET_CUSTOMER_TRANSACTION_TYPE' , 5 ) ;
1694: END IF;
1695: IF l_debug_level > 0 THEN
1696: oe_debug_pub.add( 'Before the call to Rowtype_Rec_To_API_Rec ', 1);
1697: END IF;
1692: IF l_debug_level > 0 THEN
1693: oe_debug_pub.add( ' ENTER GET_CUSTOMER_TRANSACTION_TYPE' , 5 ) ;
1694: END IF;
1695: IF l_debug_level > 0 THEN
1696: oe_debug_pub.add( 'Before the call to Rowtype_Rec_To_API_Rec ', 1);
1697: END IF;
1698: OE_Line_Util_Ext.Rowtype_Rec_To_API_Rec(p_record,l_line_rec);
1699: IF l_debug_level > 0 THEN
1700: oe_debug_pub.add( 'After the call to Rowtype_Rec_To_API_Rec ', 1);
1696: oe_debug_pub.add( 'Before the call to Rowtype_Rec_To_API_Rec ', 1);
1697: END IF;
1698: OE_Line_Util_Ext.Rowtype_Rec_To_API_Rec(p_record,l_line_rec);
1699: IF l_debug_level > 0 THEN
1700: oe_debug_pub.add( 'After the call to Rowtype_Rec_To_API_Rec ', 1);
1701: END IF;
1702:
1703: l_cust_trx_type_id := Get_Customer_Transaction_Type(l_line_rec);
1704: RETURN(l_cust_trx_type_id);
1705:
1706: EXCEPTION
1707: WHEN OTHERS THEN
1708: IF l_debug_level > 0 THEN
1709: oe_debug_pub.add( 'EXCEPTION. EXITING GET_CUSTOMER_TRANSACTION_TYPE ( ) , '||SQLERRM , 1 ) ;
1710: END IF;
1711: return(0);
1712: END Get_Customer_Transaction_Type;
1713:
1717: l_inv_cust_trx_type_id NUMBER;
1718: l_cust_trx_type_id NUMBER;
1719: l_creation_sign VARCHAR2(30);
1720: --
1721: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1722: --
1723: BEGIN
1724: IF l_debug_level > 0 THEN
1725: oe_debug_pub.add( ' ENTER GET_CUSTOMER_TRANSACTION_TYPE' , 5 ) ;
1721: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1722: --
1723: BEGIN
1724: IF l_debug_level > 0 THEN
1725: oe_debug_pub.add( ' ENTER GET_CUSTOMER_TRANSACTION_TYPE' , 5 ) ;
1726: END IF;
1727:
1728: --use cache instead of SQL for bug 4200055
1729: IF ( p_line_rec.line_type_id is not null
1733: END IF ; -- end
1734:
1735: IF NOT Return_Line(p_line_rec) THEN -- Standard Order Line
1736: IF l_debug_level > 0 THEN
1737: oe_debug_pub.add( 'THIS IA A STANDARD ORDER LINE' , 5 ) ;
1738: END IF;
1739: --use cache instead of SQL for bug 4200055
1740: if (OE_Order_Cache.g_line_type_rec.line_type_id = p_line_rec.Line_Type_id ) then
1741: l_cust_trx_type_id := nvl(OE_Order_Cache.g_line_type_rec.cust_trx_type_id,0) ;
1747: FROM oe_line_types_v lt
1748: WHERE lt.line_type_id = p_line_rec.line_type_id; */
1749: -- end bug 4200055
1750: IF l_debug_level > 0 THEN
1751: oe_debug_pub.add( 'CUSTOMER TRANSACTION TYPE ID FROM LINE TYPE : '||L_CUST_TRX_TYPE_ID , 5 ) ;
1752: END IF;
1753: IF l_cust_trx_type_id = 0 THEN
1754: SELECT NVL(ot.cust_trx_type_id, 0)
1755: INTO l_cust_trx_type_id
1757: oe_order_headers_all oh /* MOAC SQL CHANGE */
1758: WHERE ot.order_type_id = oh.order_type_id
1759: AND oh.header_id = p_line_rec.header_id;
1760: IF l_debug_level > 0 THEN
1761: oe_debug_pub.add( 'CUSTOMER TRANSACTION TYPE ID FROM ORDER TYPE : '||L_CUST_TRX_TYPE_ID , 5 ) ;
1762: END IF;
1763: IF l_cust_trx_type_id = 0 THEN
1764: SELECT NVL(oe_sys_parameters.value('OE_INVOICE_TRANSACTION_TYPE_ID',p_line_rec.org_id), 0) --moac
1765: INTO l_cust_trx_type_id
1764: SELECT NVL(oe_sys_parameters.value('OE_INVOICE_TRANSACTION_TYPE_ID',p_line_rec.org_id), 0) --moac
1765: INTO l_cust_trx_type_id
1766: FROM DUAL;
1767: IF l_debug_level > 0 THEN
1768: oe_debug_pub.add( 'CUSTOMER TRANSACTION TYPE ID FROM PROFILE : '||L_CUST_TRX_TYPE_ID , 5 ) ;
1769: END IF;
1770: END IF;
1771: END IF;
1772: IF l_debug_level > 0 THEN
1769: END IF;
1770: END IF;
1771: END IF;
1772: IF l_debug_level > 0 THEN
1773: oe_debug_pub.add( 'GET CUSTOMER TRANSACTION TYPE ( 1 ) : '||L_CUST_TRX_TYPE_ID , 5 ) ;
1774: END IF;
1775: RETURN(l_cust_trx_type_id);
1776: ELSIF p_line_rec.reference_line_id IS NOT NULL THEN -- Referenced Return Line
1777: IF l_debug_level > 0 THEN
1774: END IF;
1775: RETURN(l_cust_trx_type_id);
1776: ELSIF p_line_rec.reference_line_id IS NOT NULL THEN -- Referenced Return Line
1777: IF l_debug_level > 0 THEN
1778: oe_debug_pub.add( 'THIS IA A REFERENCED RETURN LINE' , 5 ) ;
1779: END IF;
1780: -- Get from reference line (Ignore l_creation_sign value here)
1781: Return_Credit_Info(p_line_rec, l_cust_trx_type_id, l_creation_sign);
1782: IF l_cust_trx_type_id = 0 THEN -- no cust_trx_type_id at line/order type
1783: SELECT OE_SYS_PARAMETERS.Value('OE_CREDIT_TRANSACTION_TYPE_ID',p_line_rec.org_id) --moac
1784: INTO l_cust_trx_type_id
1785: FROM DUAL;
1786: IF l_debug_level > 0 THEN
1787: oe_debug_pub.add( ' CUSTOMER TRANSACTION TYPE ID FROM PROFILE ' , 5 ) ;
1788: END IF;
1789: END IF;
1790: IF l_debug_level > 0 THEN
1791: oe_debug_pub.add( 'CUSTOMER TRANSACTION TYPE ID ( 2 ) : '||L_CUST_TRX_TYPE_ID , 5 ) ;
1787: oe_debug_pub.add( ' CUSTOMER TRANSACTION TYPE ID FROM PROFILE ' , 5 ) ;
1788: END IF;
1789: END IF;
1790: IF l_debug_level > 0 THEN
1791: oe_debug_pub.add( 'CUSTOMER TRANSACTION TYPE ID ( 2 ) : '||L_CUST_TRX_TYPE_ID , 5 ) ;
1792: END IF;
1793: RETURN(l_cust_trx_type_id);
1794: ELSE -- Non Referenced Return Line
1795: IF l_debug_level > 0 THEN
1792: END IF;
1793: RETURN(l_cust_trx_type_id);
1794: ELSE -- Non Referenced Return Line
1795: IF l_debug_level > 0 THEN
1796: oe_debug_pub.add( 'THIS IS A NON-REFERENCED RETURN LINE ' , 5 ) ;
1797: END IF;
1798: --use cache instead of SQL for bug 4200055
1799: if (OE_Order_Cache.g_line_type_rec.line_type_id = p_line_rec.Line_Type_id ) then
1800: l_inv_cust_trx_type_id := nvl(OE_ORDER_CACHE.g_line_type_rec.cust_trx_type_id,0);
1806: FROM oe_line_types_v lt
1807: WHERE lt.line_type_id = p_line_rec.line_type_id; */
1808: -- end bug 4200055
1809: IF l_debug_level > 0 THEN
1810: oe_debug_pub.add( 'CUSTOMER TRANSACTION TYPE ID FROM LINE TYPE : '||L_INV_CUST_TRX_TYPE_ID , 5 ) ;
1811: END IF;
1812: --Bug2293944 Removed the decode statement.
1813: IF l_inv_cust_trx_type_id = 0 THEN
1814: SELECT NVL(ot.cust_trx_type_id,0)
1817: oe_order_headers_all oh /* MOAC SQL CHANGE */
1818: WHERE ot.order_type_id = oh.order_type_id
1819: AND oh.header_id = p_line_rec.header_id;
1820: IF l_debug_level > 0 THEN
1821: oe_debug_pub.add( 'CUSTOMER TRANSACTION TYPE ID FROM ORDER TYPE: '||L_INV_CUST_TRX_TYPE_ID , 5 ) ;
1822: END IF;
1823: END IF;
1824: IF l_inv_cust_trx_type_id <> 0 THEN
1825: IF l_debug_level > 0 THEN
1822: END IF;
1823: END IF;
1824: IF l_inv_cust_trx_type_id <> 0 THEN
1825: IF l_debug_level > 0 THEN
1826: oe_debug_pub.add( 'GET CREDIT MEMO TYPE ' , 5 ) ;
1827: END IF;
1828: SELECT nvl(ctt.credit_memo_type_id, 0)
1829: INTO l_cust_trx_type_id
1830: FROM ra_cust_trx_types_all ctt
1836: 7, -3113,
1837: 8, -3113,
1838: NVL(p_line_rec.org_id, -3114)); Commented for the bug 3027150 */
1839: IF l_debug_level > 0 THEN
1840: oe_debug_pub.add( 'CREDIT MEMO TYPE FROM LINE TYPE/ORDER TYPE OF CURRENT LINE'||L_CUST_TRX_TYPE_ID , 5 ) ;
1841: END IF;
1842: END IF;
1843: IF l_inv_cust_trx_type_id = 0 OR l_cust_trx_type_id = 0 THEN
1844: SELECT NVL(oe_sys_parameters.value('OE_CREDIT_TRANSACTION_TYPE_ID',p_line_rec.org_id), 0) --moac
1844: SELECT NVL(oe_sys_parameters.value('OE_CREDIT_TRANSACTION_TYPE_ID',p_line_rec.org_id), 0) --moac
1845: INTO l_cust_trx_type_id
1846: FROM DUAL;
1847: IF l_debug_level > 0 THEN
1848: oe_debug_pub.add( 'CUSTOMER TRANSACTION TYPE ID FROM PROFILE' , 5 ) ;
1849: END IF;
1850: END IF;
1851: IF l_debug_level > 0 THEN
1852: oe_debug_pub.add( 'CUSTOMER TRANSACTION TYPE ID ( 3 ) : '||L_CUST_TRX_TYPE_ID , 5 ) ;
1848: oe_debug_pub.add( 'CUSTOMER TRANSACTION TYPE ID FROM PROFILE' , 5 ) ;
1849: END IF;
1850: END IF;
1851: IF l_debug_level > 0 THEN
1852: oe_debug_pub.add( 'CUSTOMER TRANSACTION TYPE ID ( 3 ) : '||L_CUST_TRX_TYPE_ID , 5 ) ;
1853: END IF;
1854: RETURN(l_cust_trx_type_id);
1855: END IF;
1856: EXCEPTION
1855: END IF;
1856: EXCEPTION
1857: WHEN OTHERS THEN
1858: IF l_debug_level > 0 THEN
1859: oe_debug_pub.add( 'EXCEPTION. EXITING GET_CUSTOMER_TRANSACTION_TYPE ( ) , '||SQLERRM , 1 ) ;
1860: END IF;
1861: return(0);
1862: END Get_Customer_Transaction_Type;
1863:
1868: ) IS
1869: l_accting_credit_method_code VARCHAR2(30):= NULL;
1870: l_invcing_credit_method_code VARCHAR2(30):= NULL;
1871: --
1872: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1873: --
1874: BEGIN
1875: IF l_debug_level > 0 THEN
1876: oe_debug_pub.add( 'ENTERING GET_CREDIT_METHOD_CODE ( ) ' , 5 ) ;
1872: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1873: --
1874: BEGIN
1875: IF l_debug_level > 0 THEN
1876: oe_debug_pub.add( 'ENTERING GET_CREDIT_METHOD_CODE ( ) ' , 5 ) ;
1877: END IF;
1878: SELECT NVL(lt.accounting_credit_method_code,ot.accounting_credit_method_code),--Bug 5699774
1879: NVL(lt.invoicing_credit_method_code,ot.invoicing_credit_method_code) --Bug 5699774
1880: INTO l_accting_credit_method_code,
1887: AND oh.header_id = p_line_rec.header_id;
1888: x_accting_credit_method_code := l_accting_credit_method_code;
1889: x_invcing_credit_method_code := l_invcing_credit_method_code;
1890: IF l_debug_level > 0 THEN
1891: oe_debug_pub.add( 'ACCOUNTING CREDIT METHOD CODE : '||X_ACCTING_CREDIT_METHOD_CODE , 5 ) ;
1892: oe_debug_pub.add( 'INVOICING CREDIT METHOD CODE : '||X_INVCING_CREDIT_METHOD_CODE , 5 ) ;
1893: oe_debug_pub.add( 'EXITING GET_CREDIT_METHOD_CODE ' , 5 ) ;
1894: END IF;
1895: EXCEPTION
1888: x_accting_credit_method_code := l_accting_credit_method_code;
1889: x_invcing_credit_method_code := l_invcing_credit_method_code;
1890: IF l_debug_level > 0 THEN
1891: oe_debug_pub.add( 'ACCOUNTING CREDIT METHOD CODE : '||X_ACCTING_CREDIT_METHOD_CODE , 5 ) ;
1892: oe_debug_pub.add( 'INVOICING CREDIT METHOD CODE : '||X_INVCING_CREDIT_METHOD_CODE , 5 ) ;
1893: oe_debug_pub.add( 'EXITING GET_CREDIT_METHOD_CODE ' , 5 ) ;
1894: END IF;
1895: EXCEPTION
1896: WHEN OTHERS THEN
1889: x_invcing_credit_method_code := l_invcing_credit_method_code;
1890: IF l_debug_level > 0 THEN
1891: oe_debug_pub.add( 'ACCOUNTING CREDIT METHOD CODE : '||X_ACCTING_CREDIT_METHOD_CODE , 5 ) ;
1892: oe_debug_pub.add( 'INVOICING CREDIT METHOD CODE : '||X_INVCING_CREDIT_METHOD_CODE , 5 ) ;
1893: oe_debug_pub.add( 'EXITING GET_CREDIT_METHOD_CODE ' , 5 ) ;
1894: END IF;
1895: EXCEPTION
1896: WHEN OTHERS THEN
1897: IF l_debug_level > 0 THEN
1894: END IF;
1895: EXCEPTION
1896: WHEN OTHERS THEN
1897: IF l_debug_level > 0 THEN
1898: oe_debug_pub.add( 'EXCEPTION. EXITING GET_CREDIT_METHOD_CODE ( ) '||SQLERRM , 1 ) ;
1899: END IF;
1900: x_accting_credit_method_code := 'LIFO';
1901: x_invcing_credit_method_code := 'LIFO';
1902: END Get_Credit_Method_Code;
1906: (p_line_rec IN OE_Order_Pub.Line_Rec_Type)
1907: RETURN BOOLEAN
1908: IS
1909: --
1910: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1911: --
1912: BEGIN
1913: IF p_line_rec.model_remnant_flag = 'Y' AND
1914: p_line_rec.item_type_code in ('MODEL', 'CLASS', 'OPTION', 'KIT', 'INCLUDED')
1917: p_line_rec.ato_line_id = p_line_rec.line_id ) OR
1918: p_line_rec.ato_line_id is NULL
1919: THEN
1920: IF l_debug_level > 0 THEN
1921: oe_debug_pub.add( 'THIS IS A REMNANT PTO ' , 5 ) ;
1922: END IF;
1923: RETURN TRUE;
1924: ELSE
1925: IF l_debug_level > 0 THEN
1922: END IF;
1923: RETURN TRUE;
1924: ELSE
1925: IF l_debug_level > 0 THEN
1926: oe_debug_pub.add( 'THIS IS NOT A REMNANT PTO ' , 5 ) ;
1927: END IF;
1928: RETURN FALSE;
1929: END IF;
1930: ELSE
1928: RETURN FALSE;
1929: END IF;
1930: ELSE
1931: IF l_debug_level > 0 THEN
1932: oe_debug_pub.add( 'THIS IS NOT REMNANT PTO ' , 5 ) ;
1933: END IF;
1934: RETURN FALSE;
1935: END IF;
1936: END Is_PTO;
1940: RETURN BOOLEAN
1941: IS
1942: l_item_type_code VARCHAR2(30);
1943: --
1944: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1945: --
1946: BEGIN
1947: SELECT item_type_code
1948: INTO l_item_type_code
1949: FROM OE_ORDER_LINES
1950: WHERE line_id = p_line_id;
1951: IF l_item_type_code = 'CLASS' THEN
1952: IF l_debug_level > 0 THEN
1953: oe_debug_pub.add( 'ITEM TYPE OF THIS LINE IS CLASS' , 5 ) ;
1954: END IF;
1955: RETURN TRUE;
1956: ELSE
1957: IF l_debug_level > 0 THEN
1954: END IF;
1955: RETURN TRUE;
1956: ELSE
1957: IF l_debug_level > 0 THEN
1958: oe_debug_pub.add( ' ITEM TYPE IS NOT CLASS' , 5 ) ;
1959: END IF;
1960: RETURN FALSE;
1961: END IF;
1962: EXCEPTION
1981: ORDER BY Line.inventory_item_id;
1982: /* the order by clause is important, do not remove!!! */
1983: I NUMBER := 1;
1984: --
1985: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1986: --
1987: BEGIN
1988: Open rfr_child;
1989: LOOP
1997: x_return_code := 'N';
1998: END IF;
1999: Close rfr_child;
2000: IF l_debug_level > 0 THEN
2001: oe_debug_pub.add( 'RFR CHILDREN , RETURN CODE IS '|| X_RETURN_CODE , 5 ) ;
2002: END IF;
2003: END RFR_Children;
2004:
2005: PROCEDURE RFR_Sibling
2025: order by Line.inventory_item_id;
2026: /* the order by clause is important, do not remove!!! */
2027: I NUMBER := 1;
2028: --
2029: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2030: --
2031: BEGIN
2032: Open rfr_sibling;
2033: LOOP
2042: x_return_code := 'N';
2043: END IF;
2044: Close rfr_sibling;
2045: IF l_debug_level > 0 THEN
2046: oe_debug_pub.add( 'RFR SIBLING , RETURN CODE IS '|| X_RETURN_CODE , 1 ) ;
2047: END IF;
2048: END RFR_Sibling;
2049:
2050: FUNCTION Is_RFR
2052: RETURN BOOLEAN
2053: IS
2054: l_rfr VARCHAR2(1) := 'N';
2055: --
2056: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2057: --
2058: BEGIN
2059: SELECT 'Y'
2060: INTO l_rfr
2066: AND bic.component_item_id = Line.inventory_item_id
2067: AND bic.required_for_revenue = 1;
2068: IF l_rfr = 'Y' THEN
2069: IF l_debug_level > 0 THEN
2070: oe_debug_pub.add( 'RFR RETURNING TRUE' , 5 ) ;
2071: END IF;
2072: RETURN TRUE;
2073: ELSE
2074: IF l_debug_level > 0 THEN
2071: END IF;
2072: RETURN TRUE;
2073: ELSE
2074: IF l_debug_level > 0 THEN
2075: oe_debug_pub.add( 'RFR: RETURNING FALSE' , 5 ) ;
2076: END IF;
2077: RETURN FALSE;
2078: END IF;
2079: EXCEPTION
2105: l_total_invoiced_qty NUMBER;
2106: l_overship_invoice_basis VARCHAR2(30);
2107: x_result_code VARCHAR2(240);
2108: --
2109: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2110: --
2111: BEGIN
2112: IF l_debug_level > 0 THEN
2113: oe_debug_pub.add( 'RFR: IN SOMETHING_TO_INVOICE' , 5 ) ;
2109: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2110: --
2111: BEGIN
2112: IF l_debug_level > 0 THEN
2113: oe_debug_pub.add( 'RFR: IN SOMETHING_TO_INVOICE' , 5 ) ;
2114: END IF;
2115: IF (nvl(p_line_rec.ordered_quantity, 0) > nvl(p_line_rec.fulfilled_quantity, 0)) THEN
2116: qty_to_invoice := nvl(p_line_rec.ordered_quantity,0);
2117: x_qty_to_invoice := nvl(p_line_rec.ordered_quantity,0);
2136: Into max_to_invoice
2137: From dual;
2138: IF max_to_invoice < qty_to_invoice THEN
2139: IF l_debug_level > 0 THEN
2140: oe_debug_pub.add( 'RFR: MAX_TO_INVOICE < QTY_TO_INVOICE' , 5 ) ;
2141: END IF;
2142: qty_to_invoice := max_to_invoice;
2143: END IF;
2144: END IF; --if this is a new inventory_item_id
2157: END IF;
2158: END IF;
2159: END IF;
2160: IF l_debug_level > 0 THEN
2161: oe_debug_pub.add( 'RFR: FINISH CHECK CHILDREN' , 5 ) ;
2162: END IF;
2163: IF IS_CLASS(p_line_rec.link_to_line_id) THEN
2164: RFR_Sibling(p_line_rec.link_to_line_id,
2165: p_line_rec.inventory_item_id,
2192: END IF; -- new inventory_item_id
2193: END LOOP;
2194: IF l_total_invoiced_qty < qty_to_invoice THEN
2195: IF l_debug_level > 0 THEN
2196: oe_debug_pub.add( 'RFR: FULFILL < QTY_TO_INVOICE' , 4 ) ;
2197: END IF;
2198: IF (nvl(p_line_rec.fulfilled_quantity, 0) - nvl(p_line_rec.invoiced_quantity, 0)) <= (qty_to_invoice - l_total_invoiced_qty)
2199: AND (nvl(p_line_rec.fulfilled_quantity, 0) - nvl(p_line_rec.invoiced_quantity, 0) < x_qty_to_invoice) THEN
2200: x_qty_to_invoice := nvl(p_line_rec.fulfilled_quantity, 0) - nvl(p_line_rec.invoiced_quantity, 0);
2230: END IF;
2231: END IF;
2232: IF x_qty_to_invoice > 0 THEN
2233: IF l_debug_level > 0 THEN
2234: oe_debug_pub.add( ' SOMETHING_TO_INVOICE: RETURNING TRUE' , 5 ) ;
2235: END IF;
2236: RETURN TRUE;
2237: ELSE
2238: IF l_debug_level > 0 THEN
2235: END IF;
2236: RETURN TRUE;
2237: ELSE
2238: IF l_debug_level > 0 THEN
2239: oe_debug_pub.add( ' SOMETHING_TO_INVOICE: RETURNING FALSE' , 5 ) ;
2240: END IF;
2241: RETURN FALSE;
2242: END IF;
2243: END Something_To_Invoice;
2258: l_set_type VARCHAR2(30);
2259: -- changes for bug 3728587 end
2260:
2261: --
2262: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2263: --
2264: BEGIN
2265: -- This may subject to change based on fulfillment design
2266: -- This may subject to change for required for revenue cases as there are
2270: --check if line is splitted or not
2271: if(p_line_rec.line_set_id is not null) then
2272: select set_type into l_set_type from oe_sets where set_id = p_line_rec.line_set_id;
2273: end if;
2274: oe_debug_pub.add('l_set_type = '||l_set_type, 5 ) ;
2275:
2276: if(l_set_type = 'SPLIT') then
2277: -- line is splitted
2278: -- get the total amounts
2286: end if;
2287: -- changes for bug 3728587 end;
2288:
2289: IF l_debug_level > 0 THEN
2290: oe_debug_pub.add( 'ENTER TO GET REGULAR QUANTITY TO INVOICE ' , 5 ) ;
2291: oe_debug_pub.add( 'FULFILLED QUANTITY = '|| TO_CHAR ( P_LINE_REC.FULFILLED_QUANTITY ) , 5 ) ;
2292: oe_debug_pub.add( 'SHIPPED QUANTITY = '|| TO_CHAR ( P_LINE_REC.SHIPPED_QUANTITY ) , 5 ) ;
2293: oe_debug_pub.add( 'ORDERED QUANTITY = '|| TO_CHAR ( P_LINE_REC.ORDERED_QUANTITY ) , 5 ) ;
2294: -- changes for bug 3728587 end;
2287: -- changes for bug 3728587 end;
2288:
2289: IF l_debug_level > 0 THEN
2290: oe_debug_pub.add( 'ENTER TO GET REGULAR QUANTITY TO INVOICE ' , 5 ) ;
2291: oe_debug_pub.add( 'FULFILLED QUANTITY = '|| TO_CHAR ( P_LINE_REC.FULFILLED_QUANTITY ) , 5 ) ;
2292: oe_debug_pub.add( 'SHIPPED QUANTITY = '|| TO_CHAR ( P_LINE_REC.SHIPPED_QUANTITY ) , 5 ) ;
2293: oe_debug_pub.add( 'ORDERED QUANTITY = '|| TO_CHAR ( P_LINE_REC.ORDERED_QUANTITY ) , 5 ) ;
2294: -- changes for bug 3728587 end;
2295: oe_debug_pub.add( 'UNSPLIT ORDERED QUANTITY = '|| TO_CHAR ( l_unsplit_ordered_qty ) , 5 ) ;
2288:
2289: IF l_debug_level > 0 THEN
2290: oe_debug_pub.add( 'ENTER TO GET REGULAR QUANTITY TO INVOICE ' , 5 ) ;
2291: oe_debug_pub.add( 'FULFILLED QUANTITY = '|| TO_CHAR ( P_LINE_REC.FULFILLED_QUANTITY ) , 5 ) ;
2292: oe_debug_pub.add( 'SHIPPED QUANTITY = '|| TO_CHAR ( P_LINE_REC.SHIPPED_QUANTITY ) , 5 ) ;
2293: oe_debug_pub.add( 'ORDERED QUANTITY = '|| TO_CHAR ( P_LINE_REC.ORDERED_QUANTITY ) , 5 ) ;
2294: -- changes for bug 3728587 end;
2295: oe_debug_pub.add( 'UNSPLIT ORDERED QUANTITY = '|| TO_CHAR ( l_unsplit_ordered_qty ) , 5 ) ;
2296: oe_debug_pub.add( 'UNSPLIT FULFILLED QUANTITY = '|| TO_CHAR ( l_unsplit_fulfilled_qty ) , 5 ) ;
2289: IF l_debug_level > 0 THEN
2290: oe_debug_pub.add( 'ENTER TO GET REGULAR QUANTITY TO INVOICE ' , 5 ) ;
2291: oe_debug_pub.add( 'FULFILLED QUANTITY = '|| TO_CHAR ( P_LINE_REC.FULFILLED_QUANTITY ) , 5 ) ;
2292: oe_debug_pub.add( 'SHIPPED QUANTITY = '|| TO_CHAR ( P_LINE_REC.SHIPPED_QUANTITY ) , 5 ) ;
2293: oe_debug_pub.add( 'ORDERED QUANTITY = '|| TO_CHAR ( P_LINE_REC.ORDERED_QUANTITY ) , 5 ) ;
2294: -- changes for bug 3728587 end;
2295: oe_debug_pub.add( 'UNSPLIT ORDERED QUANTITY = '|| TO_CHAR ( l_unsplit_ordered_qty ) , 5 ) ;
2296: oe_debug_pub.add( 'UNSPLIT FULFILLED QUANTITY = '|| TO_CHAR ( l_unsplit_fulfilled_qty ) , 5 ) ;
2297: oe_debug_pub.add( 'UNSPLIT INVOICED QUANTITY = '|| TO_CHAR ( l_unsplit_invoiced_qty ) , 5 ) ;
2291: oe_debug_pub.add( 'FULFILLED QUANTITY = '|| TO_CHAR ( P_LINE_REC.FULFILLED_QUANTITY ) , 5 ) ;
2292: oe_debug_pub.add( 'SHIPPED QUANTITY = '|| TO_CHAR ( P_LINE_REC.SHIPPED_QUANTITY ) , 5 ) ;
2293: oe_debug_pub.add( 'ORDERED QUANTITY = '|| TO_CHAR ( P_LINE_REC.ORDERED_QUANTITY ) , 5 ) ;
2294: -- changes for bug 3728587 end;
2295: oe_debug_pub.add( 'UNSPLIT ORDERED QUANTITY = '|| TO_CHAR ( l_unsplit_ordered_qty ) , 5 ) ;
2296: oe_debug_pub.add( 'UNSPLIT FULFILLED QUANTITY = '|| TO_CHAR ( l_unsplit_fulfilled_qty ) , 5 ) ;
2297: oe_debug_pub.add( 'UNSPLIT INVOICED QUANTITY = '|| TO_CHAR ( l_unsplit_invoiced_qty ) , 5 ) ;
2298: -- changes for bug 3728587 end;
2299: END IF;
2292: oe_debug_pub.add( 'SHIPPED QUANTITY = '|| TO_CHAR ( P_LINE_REC.SHIPPED_QUANTITY ) , 5 ) ;
2293: oe_debug_pub.add( 'ORDERED QUANTITY = '|| TO_CHAR ( P_LINE_REC.ORDERED_QUANTITY ) , 5 ) ;
2294: -- changes for bug 3728587 end;
2295: oe_debug_pub.add( 'UNSPLIT ORDERED QUANTITY = '|| TO_CHAR ( l_unsplit_ordered_qty ) , 5 ) ;
2296: oe_debug_pub.add( 'UNSPLIT FULFILLED QUANTITY = '|| TO_CHAR ( l_unsplit_fulfilled_qty ) , 5 ) ;
2297: oe_debug_pub.add( 'UNSPLIT INVOICED QUANTITY = '|| TO_CHAR ( l_unsplit_invoiced_qty ) , 5 ) ;
2298: -- changes for bug 3728587 end;
2299: END IF;
2300:
2293: oe_debug_pub.add( 'ORDERED QUANTITY = '|| TO_CHAR ( P_LINE_REC.ORDERED_QUANTITY ) , 5 ) ;
2294: -- changes for bug 3728587 end;
2295: oe_debug_pub.add( 'UNSPLIT ORDERED QUANTITY = '|| TO_CHAR ( l_unsplit_ordered_qty ) , 5 ) ;
2296: oe_debug_pub.add( 'UNSPLIT FULFILLED QUANTITY = '|| TO_CHAR ( l_unsplit_fulfilled_qty ) , 5 ) ;
2297: oe_debug_pub.add( 'UNSPLIT INVOICED QUANTITY = '|| TO_CHAR ( l_unsplit_invoiced_qty ) , 5 ) ;
2298: -- changes for bug 3728587 end;
2299: END IF;
2300:
2301: IF p_line_rec.shipped_quantity IS NOT NULL THEN
2302: -- calculate quantity to invoice based on ship tolerances
2303: -- If we ship less than ship tolerance below, then the line will be split.
2304: l_fulfilled_qty := NVL(p_line_rec.fulfilled_quantity, NVL(p_line_rec.shipped_quantity, 0));
2305: IF l_debug_level > 0 THEN
2306: oe_debug_pub.add( 'L_FULFILLED_QUANTITY = '|| L_FULFILLED_QTY , 5 ) ;
2307: END IF;
2308: -- changes for bug 3728587 start
2309: -- IF (l_fulfilled_qty <= nvl(p_line_rec.ordered_quantity, 0)) then
2310: IF (l_unsplit_fulfilled_qty <= nvl(l_unsplit_ordered_qty, 0)) then
2310: IF (l_unsplit_fulfilled_qty <= nvl(l_unsplit_ordered_qty, 0)) then
2311: -- changes for bug 3728587 end
2312: x_regular_qty_to_invoice := l_fulfilled_qty - NVL(p_line_rec.invoiced_quantity, 0);
2313: IF l_debug_level > 0 THEN
2314: oe_debug_pub.add( 'EXIT CALCUALTE_QTY_TO_INVOICE ( 1 ) : '||X_REGULAR_QTY_TO_INVOICE , 5 ) ;
2315: END IF;
2316: RETURN;
2317: -- changes for bug 3728587 start
2318: -- ELSIF ( l_fulfilled_qty > NVL(p_line_rec.ordered_quantity, 0)
2323: l_overship_invoice_basis := Get_Overship_Invoice_Basis(p_line_rec);
2324: IF l_overship_invoice_basis = 'ORDERED' THEN
2325: x_regular_qty_to_invoice := NVL(p_line_rec.ordered_quantity, 0) - NVL(p_line_rec.invoiced_quantity, 0);
2326: IF l_debug_level > 0 THEN
2327: oe_debug_pub.add( 'EXIT CALCUALTE_QTY_TO_INVOICE ( 2 ) : '||X_REGULAR_QTY_TO_INVOICE , 1 ) ;
2328: END IF;
2329: RETURN;
2330: ELSE -- 'SHIPPED'
2331: x_regular_qty_to_invoice := l_fulfilled_qty - NVL(p_line_rec.invoiced_quantity, 0);
2329: RETURN;
2330: ELSE -- 'SHIPPED'
2331: x_regular_qty_to_invoice := l_fulfilled_qty - NVL(p_line_rec.invoiced_quantity, 0);
2332: IF l_debug_level > 0 THEN
2333: oe_debug_pub.add( 'EXIT CALCUALTE_QTY_TO_INVOICE ( 3 ) : '||X_REGULAR_QTY_TO_INVOICE , 5 ) ;
2334: END IF;
2335: RETURN;
2336: END IF;
2337: ELSE -- overshipped (> ordered +tolerance), we only invoice up to the ordered + tolerance. user should manually handle the outstanding qtys
2347: end if;
2348: -- changes for bug 3728587 end
2349: -- Issue Message here. (overshipment above tolerance should be invoiced manually)
2350: IF l_debug_level > 0 THEN
2351: oe_debug_pub.add( 'QUANTITY TO INVOICE AT ( 4 ) = ' || TO_CHAR ( X_REGULAR_QTY_TO_INVOICE ) , 5 ) ;
2352: END IF;
2353: FND_MESSAGE.SET_NAME('ONT','OE_MANUAL_INVOICE_OVERSHIP_QTY');
2354: OE_MSG_PUB.ADD;
2355: IF l_debug_level > 0 THEN
2352: END IF;
2353: FND_MESSAGE.SET_NAME('ONT','OE_MANUAL_INVOICE_OVERSHIP_QTY');
2354: OE_MSG_PUB.ADD;
2355: IF l_debug_level > 0 THEN
2356: oe_debug_pub.add( 'EXIT CALCUALTE_QTY_TO_INVOICE ( 4 ) : '||X_REGULAR_QTY_TO_INVOICE , 5 ) ;
2357: END IF;
2358: RETURN;
2359: END IF;
2360: ELSE -- no ship cycle
2360: ELSE -- no ship cycle
2361: l_fulfilled_qty := NVL(p_line_rec.fulfilled_quantity, NVL(p_line_rec.shipped_quantity, NVL(p_line_rec.ordered_quantity, 0)));
2362: x_regular_qty_to_invoice := l_fulfilled_qty - NVL(p_line_rec.invoiced_quantity, 0);
2363: IF l_debug_level > 0 THEN
2364: oe_debug_pub.add( 'EXIT CALCUALTE_QTY_TO_INVOICE ( 5 ) : '||X_REGULAR_QTY_TO_INVOICE , 5 ) ;
2365: END IF;
2366: RETURN;
2367: END IF;
2368: END Get_Regular_Qty_To_Invoice;
2396: i NUMBER;
2397: l_fulfilled_qty NUMBER;
2398:
2399: --
2400: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2401: --
2402: BEGIN
2403: IF l_debug_level > 0 THEN
2404: oe_debug_pub.add( 'ENTER TO GET QUANTITY TO INVOICE ( ) ' , 5 ) ;
2400: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2401: --
2402: BEGIN
2403: IF l_debug_level > 0 THEN
2404: oe_debug_pub.add( 'ENTER TO GET QUANTITY TO INVOICE ( ) ' , 5 ) ;
2405: END IF;
2406: x_result_code := 'NORMAL';
2407: l_fulfilled_qty := NVL(p_line_rec.fulfilled_quantity, NVL(p_line_rec.shipped_quantity, NVL(p_line_rec.ordered_quantity, 0)));
2408: IF Is_PTO(p_line_rec) THEN
2414: x_qty_to_invoice := l_fulfilled_qty;
2415: END IF;
2416: RFR_Children(p_line_rec.line_id, l_rfr_child_flag, l_rfr_children_tbl);
2417: IF l_debug_level > 0 THEN
2418: oe_debug_pub.add( 'RFR: QTY_TO_INVOICE: '||QTY_TO_INVOICE ||' L_RFR_CHILD_FLAG: '|| L_RFR_CHILD_FLAG , 5 ) ;
2419: END IF;
2420: IF (l_rfr_child_flag = 'Y') THEN
2421: FOR i IN 1..l_rfr_children_tbl.count LOOP
2422: -- l_rfr_children_tbl is ordered by inventory_item_id
2422: -- l_rfr_children_tbl is ordered by inventory_item_id
2423: -- so same inventory_item_id will come next to each other
2424: OE_Line_Util.Query_Row(p_line_id => l_rfr_children_tbl(i), x_line_rec => l_child_rec);
2425: IF l_debug_level > 0 THEN
2426: 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 ) ;
2427: END IF;
2428: IF l_child_rec.inventory_item_id <> l_child_inventory_item_id then
2429: l_child_inventory_item_id := l_child_rec.inventory_item_id;
2430: select nvl(sum(ordered_quantity), 0), nvl(sum(fulfilled_quantity), 0)
2432: from oe_order_lines
2433: where link_to_line_id = p_line_rec.line_id
2434: and inventory_item_id = l_child_inventory_item_id;
2435: IF l_debug_level > 0 THEN
2436: 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 ) ;
2437: END IF;
2438: l_ratio := nvl(p_line_rec.ordered_quantity, 0) / l_child_total_ordered_qty;
2439: IF l_debug_level > 0 THEN
2440: oe_debug_pub.add( 'RFR:L_RATIO :'||L_RATIO , 5 ) ;
2436: 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 ) ;
2437: END IF;
2438: l_ratio := nvl(p_line_rec.ordered_quantity, 0) / l_child_total_ordered_qty;
2439: IF l_debug_level > 0 THEN
2440: oe_debug_pub.add( 'RFR:L_RATIO :'||L_RATIO , 5 ) ;
2441: END IF;
2442: -- ordered_quantity must be according to ratio
2443: Select Floor(nvl(l_child_total_fulfilled_qty, 0) * nvl(p_line_rec.ordered_quantity, 0) / l_child_total_ordered_qty)
2444: Into max_to_invoice
2443: Select Floor(nvl(l_child_total_fulfilled_qty, 0) * nvl(p_line_rec.ordered_quantity, 0) / l_child_total_ordered_qty)
2444: Into max_to_invoice
2445: From dual;
2446: IF l_debug_level > 0 THEN
2447: oe_debug_pub.add( 'RFR:MAX_TO_INVOICE: '||MAX_TO_INVOICE , 5 ) ;
2448: END IF;
2449: IF max_to_invoice < qty_to_invoice THEN
2450: IF l_debug_level > 0 THEN
2451: oe_debug_pub.add( 'RFR: MAX_TO_INVOICE < QTY_TO_INVOICE' , 5 ) ;
2447: oe_debug_pub.add( 'RFR:MAX_TO_INVOICE: '||MAX_TO_INVOICE , 5 ) ;
2448: END IF;
2449: IF max_to_invoice < qty_to_invoice THEN
2450: IF l_debug_level > 0 THEN
2451: oe_debug_pub.add( 'RFR: MAX_TO_INVOICE < QTY_TO_INVOICE' , 5 ) ;
2452: END IF;
2453: qty_to_invoice := max_to_invoice;
2454: END IF;
2455: END IF; -- if this is a new inventory_item_id
2454: END IF;
2455: END IF; -- if this is a new inventory_item_id
2456: END LOOP;
2457: IF l_debug_level > 0 THEN
2458: oe_debug_pub.add( 'RFR:FULFILLED_QUANTITY: '||P_LINE_REC.FULFILLED_QUANTITY||' QTY_TO_INVOICE:'||QTY_TO_INVOICE , 4 ) ;
2459: END IF;
2460: IF nvl(p_line_rec.fulfilled_quantity, 0) <= qty_to_invoice THEN
2461: x_qty_to_invoice := nvl(p_line_rec.fulfilled_quantity, 0) - nvl(p_line_rec.invoiced_quantity, 0);
2462: IF l_debug_level > 0 THEN
2459: END IF;
2460: IF nvl(p_line_rec.fulfilled_quantity, 0) <= qty_to_invoice THEN
2461: x_qty_to_invoice := nvl(p_line_rec.fulfilled_quantity, 0) - nvl(p_line_rec.invoiced_quantity, 0);
2462: IF l_debug_level > 0 THEN
2463: oe_debug_pub.add( ' ( 1 ) QUANTITY TO INVOICE : '||X_QTY_TO_INVOICE , 5 ) ;
2464: END IF;
2465: IF l_debug_level > 0 THEN
2466: oe_debug_pub.add( ' NOT SETTING TO RFR-PENDING' , 5 ) ;
2467: END IF;
2462: IF l_debug_level > 0 THEN
2463: oe_debug_pub.add( ' ( 1 ) QUANTITY TO INVOICE : '||X_QTY_TO_INVOICE , 5 ) ;
2464: END IF;
2465: IF l_debug_level > 0 THEN
2466: oe_debug_pub.add( ' NOT SETTING TO RFR-PENDING' , 5 ) ;
2467: END IF;
2468: ELSIF nvl(p_line_rec.fulfilled_quantity, 0) > qty_to_invoice
2469: AND qty_to_invoice < nvl(p_line_rec.ordered_quantity, 0) THEN
2470: x_qty_to_invoice := qty_to_invoice - nvl(p_line_rec.invoiced_quantity, 0);
2468: ELSIF nvl(p_line_rec.fulfilled_quantity, 0) > qty_to_invoice
2469: AND qty_to_invoice < nvl(p_line_rec.ordered_quantity, 0) THEN
2470: x_qty_to_invoice := qty_to_invoice - nvl(p_line_rec.invoiced_quantity, 0);
2471: IF l_debug_level > 0 THEN
2472: oe_debug_pub.add( ' ( 2 ) QUANTITY TO INVOICE : '||X_QTY_TO_INVOICE , 5 ) ;
2473: oe_debug_pub.add( 'SET X_RESULT_CODE -> RFR-PENDING' , 5 ) ;
2474: END IF;
2475: x_result_code := 'RFR-PENDING';
2476: ELSE -- full or overshipment
2469: AND qty_to_invoice < nvl(p_line_rec.ordered_quantity, 0) THEN
2470: x_qty_to_invoice := qty_to_invoice - nvl(p_line_rec.invoiced_quantity, 0);
2471: IF l_debug_level > 0 THEN
2472: oe_debug_pub.add( ' ( 2 ) QUANTITY TO INVOICE : '||X_QTY_TO_INVOICE , 5 ) ;
2473: oe_debug_pub.add( 'SET X_RESULT_CODE -> RFR-PENDING' , 5 ) ;
2474: END IF;
2475: x_result_code := 'RFR-PENDING';
2476: ELSE -- full or overshipment
2477: l_overship_invoice_basis := Get_Overship_Invoice_Basis(p_line_rec);
2477: l_overship_invoice_basis := Get_Overship_Invoice_Basis(p_line_rec);
2478: IF l_overship_invoice_basis = 'ORDERED' THEN
2479: x_qty_to_invoice := qty_to_invoice - nvl(p_line_rec.invoiced_quantity, 0);
2480: IF l_debug_level > 0 THEN
2481: oe_debug_pub.add( ' ( 3 ) QUANTITY TO INVOICE : '||X_QTY_TO_INVOICE , 5 ) ;
2482: END IF;
2483: ELSE
2484: x_qty_to_invoice := nvl(p_line_rec.fulfilled_quantity, 0) - nvl(p_line_rec.invoiced_quantity, 0);
2485: IF l_debug_level > 0 THEN
2482: END IF;
2483: ELSE
2484: x_qty_to_invoice := nvl(p_line_rec.fulfilled_quantity, 0) - nvl(p_line_rec.invoiced_quantity, 0);
2485: IF l_debug_level > 0 THEN
2486: oe_debug_pub.add( ' ( 4 ) QUANTITY TO INVOICE : '||X_QTY_TO_INVOICE , 5 ) ;
2487: END IF;
2488: END IF;
2489: END IF;
2490: ELSE -- no rfr children
2489: END IF;
2490: ELSE -- no rfr children
2491: Get_Regular_Qty_To_Invoice(p_line_rec, x_qty_to_invoice);
2492: IF l_debug_level > 0 THEN
2493: oe_debug_pub.add( ' ( 5 ) QUANTITY TO INVOICE : '||X_QTY_TO_INVOICE , 5 ) ;
2494: END IF;
2495: END IF;
2496: IF l_debug_level > 0 THEN
2497: oe_debug_pub.add( 'RFR: FINISH CHECK CHILDREN' , 5 ) ;
2493: oe_debug_pub.add( ' ( 5 ) QUANTITY TO INVOICE : '||X_QTY_TO_INVOICE , 5 ) ;
2494: END IF;
2495: END IF;
2496: IF l_debug_level > 0 THEN
2497: oe_debug_pub.add( 'RFR: FINISH CHECK CHILDREN' , 5 ) ;
2498: END IF;
2499:
2500: -- fix for bug 2516823
2501: IF IS_CLASS(p_line_rec.link_to_line_id) THEN
2507: FOR i IN 1..l_rfr_sibling_tbl.count LOOP
2508: OE_Line_Util.Query_Row(p_line_id => l_rfr_sibling_tbl(i)
2509: ,x_line_rec => l_sibling_rec);
2510: IF l_debug_level > 0 THEN
2511: 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 ) ;
2512: END IF;
2513: IF l_sibling_rec.inventory_item_id <> l_sibling_inventory_item_id THEN
2514: l_sibling_inventory_item_id := l_sibling_rec.inventory_item_id;
2515: SELECT NVL(SUM(ordered_quantity),0)
2536: l_ratio := l_total_ordered_qty/l_sibling_total_ordered_qty;
2537: -- ordered_quantity must be according to ratio
2538: max_to_invoice := FLOOR(nvl(l_sibling_total_fulfilled_qty,0) *l_total_ordered_qty / l_sibling_total_ordered_qty);
2539: IF l_debug_level > 0 THEN
2540: oe_debug_pub.add( 'MAX_TO_INVOICE:'||MAX_TO_INVOICE||':QTY_TO_INVOICE:'||QTY_TO_INVOICE ) ;
2541: END IF;
2542: IF max_to_invoice < qty_to_invoice THEN
2543: qty_to_invoice := max_to_invoice;
2544: END IF;
2545: END IF; -- new inventory_item_id
2546: END LOOP;
2547:
2548: IF l_debug_level > 0 THEN
2549: oe_debug_pub.add( 'L_TOTAL_INVOICED_QTY:'||L_TOTAL_INVOICED_QTY , 5 ) ;
2550: oe_debug_pub.add( 'L_TOTAL_FULFILLED_QTY:'||L_TOTAL_FULFILLED_QTY , 5 ) ;
2551: oe_debug_pub.add( 'QTY_TO_INVOICE:'||QTY_TO_INVOICE , 5 ) ;
2552: END IF;
2553:
2546: END LOOP;
2547:
2548: IF l_debug_level > 0 THEN
2549: oe_debug_pub.add( 'L_TOTAL_INVOICED_QTY:'||L_TOTAL_INVOICED_QTY , 5 ) ;
2550: oe_debug_pub.add( 'L_TOTAL_FULFILLED_QTY:'||L_TOTAL_FULFILLED_QTY , 5 ) ;
2551: oe_debug_pub.add( 'QTY_TO_INVOICE:'||QTY_TO_INVOICE , 5 ) ;
2552: END IF;
2553:
2554: IF l_total_fulfilled_qty <= qty_to_invoice THEN
2547:
2548: IF l_debug_level > 0 THEN
2549: oe_debug_pub.add( 'L_TOTAL_INVOICED_QTY:'||L_TOTAL_INVOICED_QTY , 5 ) ;
2550: oe_debug_pub.add( 'L_TOTAL_FULFILLED_QTY:'||L_TOTAL_FULFILLED_QTY , 5 ) ;
2551: oe_debug_pub.add( 'QTY_TO_INVOICE:'||QTY_TO_INVOICE , 5 ) ;
2552: END IF;
2553:
2554: IF l_total_fulfilled_qty <= qty_to_invoice THEN
2555: x_qty_to_invoice := l_total_fulfilled_qty
2554: IF l_total_fulfilled_qty <= qty_to_invoice THEN
2555: x_qty_to_invoice := l_total_fulfilled_qty
2556: - l_total_invoiced_qty;
2557: IF l_debug_level > 0 THEN
2558: oe_debug_pub.add( ' ( 5 ) QUANTITY TO INVOICE : '||X_QTY_TO_INVOICE , 5 ) ;
2559: END IF;
2560: ELSIF l_total_fulfilled_qty - l_total_invoiced_qty
2561: > qty_to_invoice
2562: AND qty_to_invoice
2562: AND qty_to_invoice
2564: := qty_to_invoice - l_total_invoiced_qty;
2565: IF l_debug_level > 0 THEN
2566: oe_debug_pub.add( ' ( 6 ) QUANTITY TO INVOICE : '||X_QTY_TO_INVOICE , 5 ) ;
2567: END IF;
2568: IF l_debug_level > 0 THEN
2569: oe_debug_pub.add( 'SET X_RESULT_CODE -> RFR-PENDING' , 5 ) ;
2570: END IF;
2565: IF l_debug_level > 0 THEN
2566: oe_debug_pub.add( ' ( 6 ) QUANTITY TO INVOICE : '||X_QTY_TO_INVOICE , 5 ) ;
2567: END IF;
2568: IF l_debug_level > 0 THEN
2569: oe_debug_pub.add( 'SET X_RESULT_CODE -> RFR-PENDING' , 5 ) ;
2570: END IF;
2571: x_result_code := 'RFR-PENDING';
2572: ELSE
2573: l_overship_invoice_basis := Get_Overship_Invoice_Basis(p_line_rec);
2573: l_overship_invoice_basis := Get_Overship_Invoice_Basis(p_line_rec);
2574: IF l_overship_invoice_basis = 'ORDERED' THEN
2575: x_qty_to_invoice := qty_to_invoice - l_total_invoiced_qty;
2576: IF l_debug_level > 0 THEN
2577: oe_debug_pub.add( ' ( 7 ) QUANTITY TO INVOICE : '||X_QTY_TO_INVOICE , 5 ) ;
2578: END IF;
2579: ELSE
2580: x_qty_to_invoice := l_total_fulfilled_qty - l_total_invoiced_qty;
2581: IF l_debug_level > 0 THEN
2578: END IF;
2579: ELSE
2580: x_qty_to_invoice := l_total_fulfilled_qty - l_total_invoiced_qty;
2581: IF l_debug_level > 0 THEN
2582: oe_debug_pub.add( ' ( 8 ) QUANTITY TO INVOICE : '||X_QTY_TO_INVOICE , 5 ) ;
2583: END IF;
2584: END IF;
2585: END IF;
2586: -- ELSE -- no siblings
2589: END IF;
2590: ELSE -- not pto
2591: Get_Regular_Qty_To_Invoice(p_line_rec, x_qty_to_invoice);
2592: IF l_debug_level > 0 THEN
2593: oe_debug_pub.add( ' ( 9 ) QUANTITY TO INVOICE : '||X_QTY_TO_INVOICE , 5 ) ;
2594: END IF;
2595: END IF;
2596: IF l_debug_level > 0 THEN
2597: oe_debug_pub.add( ' ( 10 ) QUANTITY TO INVOICE : '||X_QTY_TO_INVOICE , 5 ) ;
2593: oe_debug_pub.add( ' ( 9 ) QUANTITY TO INVOICE : '||X_QTY_TO_INVOICE , 5 ) ;
2594: END IF;
2595: END IF;
2596: IF l_debug_level > 0 THEN
2597: oe_debug_pub.add( ' ( 10 ) QUANTITY TO INVOICE : '||X_QTY_TO_INVOICE , 5 ) ;
2598: END IF;
2599: END Get_Qty_To_Invoice;
2600:
2601: FUNCTION Validate_Required_Attributes
2604: )
2605: RETURN BOOLEAN
2606: IS
2607: --
2608: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2609: --
2610: BEGIN
2611: IF l_debug_level > 0 THEN
2612: oe_debug_pub.add( 'VALIDATING REQUIRED ATTRIBUTES' , 5 ) ;
2608: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2609: --
2610: BEGIN
2611: IF l_debug_level > 0 THEN
2612: oe_debug_pub.add( 'VALIDATING REQUIRED ATTRIBUTES' , 5 ) ;
2613: END IF;
2614: -- Check For all Required Attributes
2615: IF p_interface_line_rec.Batch_Source_Name IS NULL THEN
2616: FND_MESSAGE.SET_NAME('ONT','OE_INVOICING_ATTR_REQUIRED');
2616: FND_MESSAGE.SET_NAME('ONT','OE_INVOICING_ATTR_REQUIRED');
2617: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Batch_Source_Name');
2618: OE_MSG_PUB.ADD;
2619: IF l_debug_level > 0 THEN
2620: oe_debug_pub.add( 'REQUIRED ATTRIBUTE BATCH SOURCE NAME IS MISSING' , 1 ) ;
2621: END IF;
2622: RETURN FALSE;
2623: ELSIF p_interface_line_rec.Set_Of_Books_Id IS NULL THEN
2624: FND_MESSAGE.SET_NAME('ONT','OE_INVOICING_ATTR_REQUIRED');
2624: FND_MESSAGE.SET_NAME('ONT','OE_INVOICING_ATTR_REQUIRED');
2625: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Set_Of_Books_Id');
2626: OE_MSG_PUB.ADD;
2627: IF l_debug_level > 0 THEN
2628: oe_debug_pub.add( 'REQUIRED ATTRIBUTE SET OF BOOKS ID IS MISSING ' , 1 ) ;
2629: END IF;
2630: RETURN FALSE;
2631: ELSIF p_interface_line_rec.Line_Type IS NULL THEN
2632: FND_MESSAGE.SET_NAME('ONT','OE_INVOICING_ATTR_REQUIRED');
2632: FND_MESSAGE.SET_NAME('ONT','OE_INVOICING_ATTR_REQUIRED');
2633: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Line_Type');
2634: OE_MSG_PUB.ADD;
2635: IF l_debug_level > 0 THEN
2636: oe_debug_pub.add( 'REQUIRED ATTRIBUTE LINE TYPE IS MISSING' , 1 ) ;
2637: END IF;
2638: RETURN FALSE;
2639: ELSIF p_interface_line_rec.Description IS NULL THEN
2640: FND_MESSAGE.SET_NAME('ONT','OE_INVOICING_ATTR_REQUIRED');
2640: FND_MESSAGE.SET_NAME('ONT','OE_INVOICING_ATTR_REQUIRED');
2641: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Description');
2642: OE_MSG_PUB.ADD;
2643: IF l_debug_level > 0 THEN
2644: oe_debug_pub.add( 'REQUIRED ATTRIBUTE DESCRIPTION IS MISSING' , 1 ) ;
2645: END IF;
2646: RETURN FALSE;
2647: ELSIF p_interface_line_rec.Currency_Code IS NULL THEN
2648: FND_MESSAGE.SET_NAME('ONT','OE_INVOICING_ATTR_REQUIRED');
2648: FND_MESSAGE.SET_NAME('ONT','OE_INVOICING_ATTR_REQUIRED');
2649: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Currency_Code');
2650: OE_MSG_PUB.ADD;
2651: IF l_debug_level > 0 THEN
2652: oe_debug_pub.add( 'REQUIRED ATTRIBUTE CURRENCY CODE IS MISSING' , 1 ) ;
2653: END IF;
2654: RETURN FALSE;
2655: ELSIF p_interface_line_rec.Conversion_Type IS NULL THEN
2656: FND_MESSAGE.SET_NAME('ONT','OE_INVOICING_ATTR_REQUIRED');
2656: FND_MESSAGE.SET_NAME('ONT','OE_INVOICING_ATTR_REQUIRED');
2657: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Conversion_Type');
2658: OE_MSG_PUB.ADD;
2659: IF l_debug_level > 0 THEN
2660: oe_debug_pub.add( 'REQUIRED ATTRIBUTE CONVERSION TYPE IS MISSING' , 1 ) ;
2661: END IF;
2662: RETURN FALSE;
2663: ELSIF p_line_rec.commitment_id IS NULL AND
2664: (p_interface_line_rec.Cust_Trx_Type_Id IS NULL OR
2666: FND_MESSAGE.SET_NAME('ONT','OE_INVOICING_ATTR_REQUIRED');
2667: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Cust_Trx_Type_Id');
2668: OE_MSG_PUB.ADD;
2669: IF l_debug_level > 0 THEN
2670: oe_debug_pub.add( 'REQUIRED ATTRIBUTE CUSTOMER TRX TYPE ID IS MISSING' , 1 ) ;
2671: END IF;
2672: RETURN FALSE;
2673: ELSIF p_interface_line_rec.ACCOUNTING_RULE_DURATION = -1 THEN
2674: -- Appropriate message was already posted for bug#4190312
2672: RETURN FALSE;
2673: ELSIF p_interface_line_rec.ACCOUNTING_RULE_DURATION = -1 THEN
2674: -- Appropriate message was already posted for bug#4190312
2675: IF l_debug_level > 0 THEN
2676: oe_debug_pub.add( 'REQUIRED ATTRIBUTE ACCOUNTING RULE DURATION IS MISSING' , 1 ) ;
2677: END IF;
2678: RETURN FALSE;
2679: ELSIF p_interface_line_rec.customer_bank_account_id = -1 THEN
2680: FND_MESSAGE.SET_NAME('ONT','OE_VPM_CC_ACCT_NOT_SET');
2679: ELSIF p_interface_line_rec.customer_bank_account_id = -1 THEN
2680: FND_MESSAGE.SET_NAME('ONT','OE_VPM_CC_ACCT_NOT_SET');
2681: OE_MSG_PUB.ADD;
2682: IF l_debug_level > 0 THEN
2683: oe_debug_pub.add( 'REQUIRED ATTRIBUTE CUSTOMER CREDIT CARD BANK ACCOUNT IS MISSING' , 1 ) ;
2684: END IF;
2685: RETURN FALSE;
2686: ELSIF p_interface_line_rec.customer_bank_account_id > 0
2687: AND p_interface_line_rec.receipt_method_id IS NULL THEN
2687: AND p_interface_line_rec.receipt_method_id IS NULL THEN
2688: FND_MESSAGE.SET_NAME('ONT','OE_VPM_NO_PAY_METHOD');
2689: OE_MSG_PUB.ADD;
2690: IF l_debug_level > 0 THEN
2691: oe_debug_pub.add( 'REQUIRED ATTRIBUTE PAYMENT METHOD IS MISSING' , 1 ) ;
2692: END IF;
2693: RETURN FALSE;
2694: -- bug 8494362 start
2695: ELSIF p_interface_line_rec.INTERFACE_LINE_CONTEXT IS NULL THEN
2696: FND_MESSAGE.SET_NAME('ONT','OE_INVOICING_ATTR_REQUIRED');
2697: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Interface Line Context');
2698: OE_MSG_PUB.ADD;
2699: IF l_debug_level > 0 THEN
2700: oe_debug_pub.add( 'REQUIRED ATTRIBUTE INTERFACE_LINE_CONTEXT IS MISSING' , 1 ) ;
2701: END IF;
2702: RETURN FALSE;
2703: -- bug 8494362 end
2704:
2717: -- Issue error message here
2718: RETURN FALSE;*/
2719: ELSE
2720: IF l_debug_level > 0 THEN
2721: oe_debug_pub.add( 'EXIT VALIDATE REQUIRED ATTRIBUTES ( ) ' , 1 ) ;
2722: END IF;
2723: RETURN TRUE;
2724: END IF;
2725: END Validate_Required_Attributes;
2727: PROCEDURE Header_Invoicing_Validation
2728: (p_header_id IN NUMBER)
2729: IS
2730: --
2731: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2732: --
2733: BEGIN
2734: /*
2735: -- Following may be a result of wrong workflow setup
2739: issue error message
2740: Add any other validation here
2741: */
2742: IF l_debug_level > 0 THEN
2743: oe_debug_pub.add( 'ENTERING HEADER_INVOICING_VALIDATION' ) ;
2744: END IF;
2745: NULL;
2746: END Header_Invoicing_Validation;
2747:
2792: AND SCT.quota_flag = p_quota_flag
2793: AND SC.line_id = p_line_id;
2794:
2795: --
2796: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2797: --
2798: BEGIN
2799: IF l_debug_level > 0 THEN
2800: oe_debug_pub.add( 'ENTERING QUERY_LINE_SCREDITS' , 5 ) ;
2796: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2797: --
2798: BEGIN
2799: IF l_debug_level > 0 THEN
2800: oe_debug_pub.add( 'ENTERING QUERY_LINE_SCREDITS' , 5 ) ;
2801: END IF;
2802: -- Initialize table so that it clears previous records
2803: x_line_scredit_tbl.DELETE;
2804:
2844: --FP bug 3872166
2845: x_total_percent := x_total_percent + l_implicit_rec.PERCENT;
2846: END LOOP;
2847: IF l_debug_level > 0 THEN
2848: oe_debug_pub.add( 'EXITING QUERY_LINE_SCREDITS' , 5 ) ;
2849: END IF;
2850: EXCEPTION
2851: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2852: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2851: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2852: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2853: WHEN OTHERS THEN
2854: IF l_debug_level > 0 THEN
2855: oe_debug_pub.add( 'EXCEPTION , QUERY LINE SALES CREDITS '||SQLERRM , 1 ) ;
2856: END IF;
2857: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2858: THEN
2859: oe_msg_pub.Add_Exc_Msg
2910: AND SCT.quota_flag = p_quota_flag
2911: AND SC.header_id = p_header_id
2912: AND SC.line_id IS NULL;
2913: --
2914: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2915: --
2916: BEGIN
2917: IF l_debug_level > 0 THEN
2918: oe_debug_pub.add( 'ENTERING QUERY_HEADER_SCREDITS' , 5 ) ;
2914: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2915: --
2916: BEGIN
2917: IF l_debug_level > 0 THEN
2918: oe_debug_pub.add( 'ENTERING QUERY_HEADER_SCREDITS' , 5 ) ;
2919: oe_debug_pub.add( 'P_QUOTA_FLAG: '||P_QUOTA_FLAG , 5 ) ;
2920: END IF;
2921: -- Initialize table so that it clears previous records
2922: x_header_scredit_tbl.DELETE;
2915: --
2916: BEGIN
2917: IF l_debug_level > 0 THEN
2918: oe_debug_pub.add( 'ENTERING QUERY_HEADER_SCREDITS' , 5 ) ;
2919: oe_debug_pub.add( 'P_QUOTA_FLAG: '||P_QUOTA_FLAG , 5 ) ;
2920: END IF;
2921: -- Initialize table so that it clears previous records
2922: x_header_scredit_tbl.DELETE;
2923: -- Loop over fetched records
2956: --sg
2957: l_Header_Scredit_rec.lock_control := l_implicit_rec.LOCK_CONTROL;
2958: x_Header_Scredit_tbl(x_Header_Scredit_tbl.COUNT + 1) := l_Header_Scredit_rec;
2959: IF l_debug_level > 0 THEN
2960: oe_debug_pub.add( 'SALESREP_ID: '||L_HEADER_SCREDIT_REC.SALESREP_ID ) ;
2961: oe_debug_pub.add( 'SALES_CREDIT_TYPE_ID: '||L_HEADER_SCREDIT_REC.SALES_CREDIT_TYPE_ID ) ;
2962: oe_debug_pub.add( 'PERCENT: '||L_HEADER_SCREDIT_REC.PERCENT ) ;
2963: END IF;
2964: END LOOP;
2957: l_Header_Scredit_rec.lock_control := l_implicit_rec.LOCK_CONTROL;
2958: x_Header_Scredit_tbl(x_Header_Scredit_tbl.COUNT + 1) := l_Header_Scredit_rec;
2959: IF l_debug_level > 0 THEN
2960: oe_debug_pub.add( 'SALESREP_ID: '||L_HEADER_SCREDIT_REC.SALESREP_ID ) ;
2961: oe_debug_pub.add( 'SALES_CREDIT_TYPE_ID: '||L_HEADER_SCREDIT_REC.SALES_CREDIT_TYPE_ID ) ;
2962: oe_debug_pub.add( 'PERCENT: '||L_HEADER_SCREDIT_REC.PERCENT ) ;
2963: END IF;
2964: END LOOP;
2965: IF l_debug_level > 0 THEN
2958: x_Header_Scredit_tbl(x_Header_Scredit_tbl.COUNT + 1) := l_Header_Scredit_rec;
2959: IF l_debug_level > 0 THEN
2960: oe_debug_pub.add( 'SALESREP_ID: '||L_HEADER_SCREDIT_REC.SALESREP_ID ) ;
2961: oe_debug_pub.add( 'SALES_CREDIT_TYPE_ID: '||L_HEADER_SCREDIT_REC.SALES_CREDIT_TYPE_ID ) ;
2962: oe_debug_pub.add( 'PERCENT: '||L_HEADER_SCREDIT_REC.PERCENT ) ;
2963: END IF;
2964: END LOOP;
2965: IF l_debug_level > 0 THEN
2966: oe_debug_pub.add( 'EXITING QUERY_HEADER_SCREDITS ( ) ' , 5 ) ;
2962: oe_debug_pub.add( 'PERCENT: '||L_HEADER_SCREDIT_REC.PERCENT ) ;
2963: END IF;
2964: END LOOP;
2965: IF l_debug_level > 0 THEN
2966: oe_debug_pub.add( 'EXITING QUERY_HEADER_SCREDITS ( ) ' , 5 ) ;
2967: END IF;
2968: EXCEPTION
2969: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2970: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2969: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2970: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2971: WHEN OTHERS THEN
2972: IF l_debug_level > 0 THEN
2973: oe_debug_pub.add( 'EXCEPTION , QUERY HEADER SALES CREDITS ( ) ' , 5 ) ;
2974: END IF;
2975: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2976: THEN
2977: oe_msg_pub.Add_Exc_Msg
2992: /* END PREPAYMENT */
2993: err_msg VARCHAR2(5000);
2994: l_rowid UROWID;
2995: --
2996: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2997: --
2998: BEGIN
2999: IF l_debug_level > 0 THEN
3000: oe_debug_pub.add( 'ENTERING INSERT_LINE ( ) PROCEDURE' , 1 ) ;
2996: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2997: --
2998: BEGIN
2999: IF l_debug_level > 0 THEN
3000: oe_debug_pub.add( 'ENTERING INSERT_LINE ( ) PROCEDURE' , 1 ) ;
3001: END IF;
3002: INSERT INTO RA_INTERFACE_LINES_ALL
3003: (CREATED_BY
3004: ,CREATION_DATE
3566: ,p_interface_line_rec.DEFERRAL_EXCLUSION_FLAG
3567: ) RETURNING rowid INTO l_rowid;
3568:
3569: IF l_debug_level > 0 THEN
3570: oe_debug_pub.add( 'INSERT COMPLETED' , 1 ) ;
3571: END IF;
3572: IF OE_Commitment_Pvt.DO_Commitment_Sequencing
3573: AND p_interface_line_rec.promised_commitment_amount IS NOT NULL THEN
3574: IF l_debug_level > 0 THEN
3571: END IF;
3572: IF OE_Commitment_Pvt.DO_Commitment_Sequencing
3573: AND p_interface_line_rec.promised_commitment_amount IS NOT NULL THEN
3574: IF l_debug_level > 0 THEN
3575: oe_debug_pub.add( 'BUILD UPDATE STATEMENT WITH PROMISED COMMITMENT AMOUNT' , 1 ) ;
3576: END IF;
3577: update_sql_stmt := 'UPDATE RA_INTERFACE_LINES_ALL
3578: SET PROMISED_COMMITMENT_AMOUNT = :1
3579: WHERE ROWID = :r1';
3577: update_sql_stmt := 'UPDATE RA_INTERFACE_LINES_ALL
3578: SET PROMISED_COMMITMENT_AMOUNT = :1
3579: WHERE ROWID = :r1';
3580: IF l_debug_level > 0 THEN
3581: oe_debug_pub.add( 'EXECUTING UPDATE STMT FOR PROMISED_COMMITMENT_AMOUNT' , 1 ) ;
3582: END IF;
3583: EXECUTE IMMEDIATE update_sql_stmt USING
3584: p_interface_line_rec.promised_commitment_amount
3585: ,l_rowid;
3587:
3588: /* START PREPAYMENT */
3589: IF p_interface_line_rec.payment_set_id IS NOT NULL THEN
3590: IF l_debug_level > 0 THEN
3591: oe_debug_pub.add( 'BUILD UPDATE STATEMENT WITH PAYMENT_SET_ID' , 1 ) ;
3592: END IF;
3593: update_sql_stmt1 := 'UPDATE RA_INTERFACE_LINES_ALL
3594: SET PAYMENT_SET_ID = :2
3595: WHERE ROWID = :r2';
3593: update_sql_stmt1 := 'UPDATE RA_INTERFACE_LINES_ALL
3594: SET PAYMENT_SET_ID = :2
3595: WHERE ROWID = :r2';
3596: IF l_debug_level > 0 THEN
3597: oe_debug_pub.add( 'EXECUTING UPDATE STMT FOR PAYMENT_SET_ID: '||P_INTERFACE_LINE_REC.PAYMENT_SET_ID , 1 ) ;
3598: END IF;
3599: EXECUTE IMMEDIATE update_sql_stmt1 USING
3600: p_interface_line_rec.PAYMENT_SET_ID
3601: ,l_rowid;
3603: /* END PREPAYMENT */
3604: -- Fix for the bug 2187074
3605: x_return_status := FND_API.G_RET_STS_SUCCESS;
3606: IF l_debug_level > 0 THEN
3607: oe_debug_pub.add( 'EXIT INSERT_LINE ( ) PROCEDURE' , 1 ) ;
3608: END IF;
3609: EXCEPTION
3610: WHEN OTHERS THEN
3611: err_msg := 'Error while inserting to RA_INTERFACE_LINES_ALL :\n '|| SQLERRM;
3609: EXCEPTION
3610: WHEN OTHERS THEN
3611: err_msg := 'Error while inserting to RA_INTERFACE_LINES_ALL :\n '|| SQLERRM;
3612: IF l_debug_level > 0 THEN
3613: oe_debug_pub.add( ERR_MSG || ' SQLCODE: '||TO_CHAR ( SQLCODE ) , 1 ) ;
3614: END IF;
3615: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3616: OE_MSG_PUB.Add_Exc_Msg
3617: ( G_PKG_NAME
3629: , p_interface_line_rec IN RA_Interface_Lines_Rec_Type
3630: , x_interface_scredit_rec OUT NOCOPY RA_Interface_Scredits_Rec_Type
3631: ) IS
3632: --
3633: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3634: --
3635: BEGIN
3636: IF l_debug_level > 0 THEN
3637: oe_debug_pub.add( 'ENTER LINE PREPARE_SALESCREDIT_REC ( ) PROCEDURE' , 5 ) ;
3633: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3634: --
3635: BEGIN
3636: IF l_debug_level > 0 THEN
3637: oe_debug_pub.add( 'ENTER LINE PREPARE_SALESCREDIT_REC ( ) PROCEDURE' , 5 ) ;
3638: END IF;
3639:
3640: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
3641: x_interface_scredit_rec.CREATION_DATE := INV_LE_TIMEZONE_PUB.Get_Le_Day_Time_For_Ou(sysdate,p_interface_line_rec.org_id);
3673: --SG
3674: x_interface_scredit_rec.SALES_GROUP_ID := p_line_scredit_rec.sales_group_id;
3675: --SG
3676:
3677: --oe_debug_pub.add(x_interface_scredit_rec.SALES_GROUP_ID);
3678:
3679: --oe_debug_pub.add(
3680: x_interface_scredit_rec.ATTRIBUTE1 := substrb(p_line_scredit_rec.attribute1, 1, 150);
3681: x_interface_scredit_rec.ATTRIBUTE2 := substrb(p_line_scredit_rec.attribute2, 1, 150);
3675: --SG
3676:
3677: --oe_debug_pub.add(x_interface_scredit_rec.SALES_GROUP_ID);
3678:
3679: --oe_debug_pub.add(
3680: x_interface_scredit_rec.ATTRIBUTE1 := substrb(p_line_scredit_rec.attribute1, 1, 150);
3681: x_interface_scredit_rec.ATTRIBUTE2 := substrb(p_line_scredit_rec.attribute2, 1, 150);
3682: x_interface_scredit_rec.ATTRIBUTE3 := substrb(p_line_scredit_rec.attribute3, 1, 150);
3683: x_interface_scredit_rec.ATTRIBUTE4 := substrb(p_line_scredit_rec.attribute4, 1, 150);
3694: x_interface_scredit_rec.ATTRIBUTE15 := substrb(p_line_scredit_rec.attribute15, 1, 150);
3695: x_interface_scredit_rec.ORG_ID := p_interface_line_rec.org_id;
3696:
3697: IF l_debug_level > 0 THEN
3698: oe_debug_pub.add ( 'value of sysdate '||sysdate);
3699: oe_debug_pub.add ( 'value of CREATION_DATE '||x_interface_scredit_rec.CREATION_DATE||
3700: ' value of LAST_UPDATE_DATE '|| x_interface_scredit_rec.LAST_UPDATE_DATE);
3701: END IF;
3702:
3695: x_interface_scredit_rec.ORG_ID := p_interface_line_rec.org_id;
3696:
3697: IF l_debug_level > 0 THEN
3698: oe_debug_pub.add ( 'value of sysdate '||sysdate);
3699: oe_debug_pub.add ( 'value of CREATION_DATE '||x_interface_scredit_rec.CREATION_DATE||
3700: ' value of LAST_UPDATE_DATE '|| x_interface_scredit_rec.LAST_UPDATE_DATE);
3701: END IF;
3702:
3703: IF l_debug_level > 0 THEN
3700: ' value of LAST_UPDATE_DATE '|| x_interface_scredit_rec.LAST_UPDATE_DATE);
3701: END IF;
3702:
3703: IF l_debug_level > 0 THEN
3704: oe_debug_pub.add( 'EXITING LINE PREPARE_SALESCREDIT_REC' , 5 ) ;
3705: END IF;
3706: END Prepare_Salescredit_rec;
3707:
3708: PROCEDURE Prepare_Salescredit_rec
3710: , p_interface_line_rec IN RA_Interface_Lines_Rec_Type
3711: , x_interface_scredit_rec OUT NOCOPY RA_Interface_Scredits_Rec_Type
3712: ) IS
3713: --
3714: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3715: --
3716: BEGIN
3717: IF l_debug_level > 0 THEN
3718: oe_debug_pub.add( 'ENTER HEADER PREPARE_SALESCREDIT_REC ( ) PROCEDURE ' , 5 ) ;
3714: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3715: --
3716: BEGIN
3717: IF l_debug_level > 0 THEN
3718: oe_debug_pub.add( 'ENTER HEADER PREPARE_SALESCREDIT_REC ( ) PROCEDURE ' , 5 ) ;
3719: END IF;
3720:
3721: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
3722: x_interface_scredit_rec.CREATION_DATE := INV_LE_TIMEZONE_PUB.Get_Le_Day_Time_For_Ou(sysdate,p_interface_line_rec.org_id);
3772: -- Fix for bug2185729
3773: x_interface_scredit_rec.ORG_ID := p_interface_line_rec.org_id;
3774:
3775: IF l_debug_level > 0 THEN
3776: oe_debug_pub.add ( 'value of sysdate '||sysdate);
3777: oe_debug_pub.add ( 'value of CREATION_DATE '||x_interface_scredit_rec.CREATION_DATE||
3778: ' value of LAST_UPDATE_DATE '|| x_interface_scredit_rec.LAST_UPDATE_DATE);
3779: END IF;
3780:
3773: x_interface_scredit_rec.ORG_ID := p_interface_line_rec.org_id;
3774:
3775: IF l_debug_level > 0 THEN
3776: oe_debug_pub.add ( 'value of sysdate '||sysdate);
3777: oe_debug_pub.add ( 'value of CREATION_DATE '||x_interface_scredit_rec.CREATION_DATE||
3778: ' value of LAST_UPDATE_DATE '|| x_interface_scredit_rec.LAST_UPDATE_DATE);
3779: END IF;
3780:
3781: IF l_debug_level > 0 THEN
3778: ' value of LAST_UPDATE_DATE '|| x_interface_scredit_rec.LAST_UPDATE_DATE);
3779: END IF;
3780:
3781: IF l_debug_level > 0 THEN
3782: oe_debug_pub.add( 'EXIT HEADER PREPARE_SALESCREDIT_REC ( ) PROCEDURE ' , 5 ) ;
3783: END IF;
3784: END Prepare_Salescredit_rec;
3785:
3786: PROCEDURE Prepare_Salescredit_rec
3787: ( p_interface_line_rec IN RA_Interface_Lines_Rec_Type
3788: , x_interface_scredit_rec OUT NOCOPY RA_Interface_Scredits_Rec_Type
3789: ) IS
3790: --
3791: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3792: --
3793: BEGIN
3794: IF l_debug_level > 0 THEN
3795: oe_debug_pub.add( 'ENTER PREPARE_SALESCREDIT_REC ( ) PROCEDURE' , 1 ) ;
3791: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3792: --
3793: BEGIN
3794: IF l_debug_level > 0 THEN
3795: oe_debug_pub.add( 'ENTER PREPARE_SALESCREDIT_REC ( ) PROCEDURE' , 1 ) ;
3796: END IF;
3797: --Fix for bug 2192220.
3798: Select SALES_CREDIT_TYPE_ID
3799: into x_interface_scredit_rec.SALES_CREDIT_TYPE_ID
3798: Select SALES_CREDIT_TYPE_ID
3799: into x_interface_scredit_rec.SALES_CREDIT_TYPE_ID
3800: from ra_salesreps where salesrep_id=-3;
3801: IF l_debug_level > 0 THEN
3802: oe_debug_pub.add( 'SALES_CREDIT_TYPE_ID'||X_INTERFACE_SCREDIT_REC.SALES_CREDIT_TYPE_ID ) ;
3803: END IF;
3804:
3805: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
3806: x_interface_scredit_rec.CREATION_DATE := INV_LE_TIMEZONE_PUB.Get_Le_Day_Time_For_Ou(sysdate,p_interface_line_rec.org_id);
3853: -- Fix for bug2185729
3854: x_interface_scredit_rec.ORG_ID := p_interface_line_rec.org_id;
3855:
3856: IF l_debug_level > 0 THEN
3857: oe_debug_pub.add ( 'value of sysdate '||sysdate);
3858: oe_debug_pub.add ( ' value of CREATION_DATE '||x_interface_scredit_rec.CREATION_DATE||
3859: ' value of LAST_UPDATE_DATE '|| x_interface_scredit_rec.LAST_UPDATE_DATE);
3860: END IF;
3861:
3854: x_interface_scredit_rec.ORG_ID := p_interface_line_rec.org_id;
3855:
3856: IF l_debug_level > 0 THEN
3857: oe_debug_pub.add ( 'value of sysdate '||sysdate);
3858: oe_debug_pub.add ( ' value of CREATION_DATE '||x_interface_scredit_rec.CREATION_DATE||
3859: ' value of LAST_UPDATE_DATE '|| x_interface_scredit_rec.LAST_UPDATE_DATE);
3860: END IF;
3861:
3862: IF l_debug_level > 0 THEN
3859: ' value of LAST_UPDATE_DATE '|| x_interface_scredit_rec.LAST_UPDATE_DATE);
3860: END IF;
3861:
3862: IF l_debug_level > 0 THEN
3863: oe_debug_pub.add( 'EXIT PREPARE_SALESCREDIT_REC ( ) PROCEDURE ' , 1 ) ;
3864: END IF;
3865: END Prepare_Salescredit_rec;
3866:
3867: procedure convert_to_ar(p_oe_salescredit_rec IN Ra_Interface_Scredits_Rec_Type,
3923: PROCEDURE Insert_Salescredit
3924: ( p_salescredit_rec IN Ra_Interface_Scredits_Rec_Type
3925: ) IS
3926: --
3927: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3928: --
3929: l_msg_count NUMBER;
3930: l_msg_data VARCHAR2(2000);
3931: l_return_status VARCHAR2(15);
3933: BEGIN
3934:
3935:
3936: IF l_debug_level > 0 THEN
3937: oe_debug_pub.add( 'INSERTING SALES CREDIT RECORDS ' , 5 ) ;
3938: END IF;
3939:
3940: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
3941: --OE_Invoice_Ext_Pvt.Insert_Salescredit(p_salescredit_rec);
4046: ,p_salescredit_rec.ORG_ID);
4047: END IF;
4048:
4049: IF l_debug_level > 0 THEN
4050: oe_debug_pub.add( 'SUCCESSFULLY INSERTED SALES CREDIT RECORDS' , 5 ) ;
4051: END IF;
4052: EXCEPTION WHEN OTHERS THEN
4053: IF l_debug_level > 0 THEN
4054: oe_debug_pub.add( 'UNABLE TO INSERT SALES CREDIT RECORDS -> '||SQLERRM , 1 ) ;
4050: oe_debug_pub.add( 'SUCCESSFULLY INSERTED SALES CREDIT RECORDS' , 5 ) ;
4051: END IF;
4052: EXCEPTION WHEN OTHERS THEN
4053: IF l_debug_level > 0 THEN
4054: oe_debug_pub.add( 'UNABLE TO INSERT SALES CREDIT RECORDS -> '||SQLERRM , 1 ) ;
4055: END IF;
4056: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4057: OE_MSG_PUB.Add_Exc_Msg
4058: ( G_PKG_NAME
4085: --FP bug 3872166
4086: l_total_percent NUMBER;
4087:
4088: --
4089: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4090: --
4091: BEGIN
4092: IF l_debug_level > 0 THEN
4093: oe_debug_pub.add( 'ENTER INTERFACE_SALES_CREDITS ( ) PROCEDURE ' , 5 ) ;
4089: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4090: --
4091: BEGIN
4092: IF l_debug_level > 0 THEN
4093: oe_debug_pub.add( 'ENTER INTERFACE_SALES_CREDITS ( ) PROCEDURE ' , 5 ) ;
4094: END IF;
4095: FOR i IN 1..2 LOOP
4096: IF i=1 THEN
4097: l_quota_flag := 'Y';
4095: FOR i IN 1..2 LOOP
4096: IF i=1 THEN
4097: l_quota_flag := 'Y';
4098: IF l_debug_level > 0 THEN
4099: oe_debug_pub.add( 'INSERTING QUOTA SALES CREDITS..' , 5 ) ;
4100: END IF;
4101: ELSIF i = 2 THEN
4102: l_quota_flag := 'N';
4103: IF l_debug_level > 0 THEN
4100: END IF;
4101: ELSIF i = 2 THEN
4102: l_quota_flag := 'N';
4103: IF l_debug_level > 0 THEN
4104: oe_debug_pub.add( 'INSERTING NON-QUOTA SALES CREDITS..' , 5 ) ;
4105: END IF;
4106: END IF;
4107: Query_Line_Scredits(p_line_id => p_line_rec.line_id
4108: ,p_quota_flag => l_quota_flag
4120: ,x_interface_scredit_rec => l_interface_scredit_rec);
4121: Insert_Salescredit(l_interface_scredit_rec);
4122: END LOOP;
4123: IF l_debug_level > 0 THEN
4124: oe_debug_pub.add( 'INSERTED LINE SALESCREDITS' , 1 ) ;
4125: END IF;
4126: Insert_Header_Scredits_Flag := 'N';
4127: ELSE -- Line has no sales credits
4128: 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
4126: Insert_Header_Scredits_Flag := 'N';
4127: ELSE -- Line has no sales credits
4128: 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
4129: IF l_debug_level > 0 THEN
4130: oe_debug_pub.add( 'RETRIEVING CUSTOMER PRODUCT LINE ID' ) ;
4131: END IF;
4132: IF p_line_rec.service_reference_type_code = 'CUSTOMER_PRODUCT' THEN
4133: /* Commenting for bug# 5032978
4134: OE_SERVICE_UTIL.Get_Cust_Product_Line_Id
4138: ,x_cust_product_line_id=> l_order_line_id
4139: );
4140: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
4141: IF l_debug_level > 0 THEN
4142: oe_debug_pub.add( 'CUSTOMER PRODUCT LINE ID -> ' || L_ORDER_LINE_ID , 5 ) ;
4143: END IF;
4144: l_service_reference_line_id := l_order_line_id;
4145: ELSE
4146: IF l_debug_level > 0 THEN
4143: END IF;
4144: l_service_reference_line_id := l_order_line_id;
4145: ELSE
4146: IF l_debug_level > 0 THEN
4147: oe_debug_pub.add( 'UNABLE TO RETRIEVE CUSTOMER PRODUCT LINE ID' , 1 ) ;
4148: END IF;
4149: RAISE NO_DATA_FOUND;
4150: END IF;
4151: end commenting for bug# 5032978 */
4171: ,x_interface_scredit_rec => l_interface_scredit_rec);
4172: Insert_Salescredit(l_interface_scredit_rec);
4173: END LOOP;
4174: IF l_debug_level > 0 THEN
4175: oe_debug_pub.add( 'INSERTED SERVICE PARENT LINE SALESCREDITS' , 1 ) ;
4176: END IF;
4177: Insert_Header_Scredits_Flag := 'N';
4178: ELSE -- Service parent has no sales credits
4179: -- Check if service parent has parent (In case if service parent is an option, class, kit etc)
4184: WHERE line_id = l_service_reference_line_id;
4185: EXCEPTION
4186: WHEN NO_DATA_FOUND THEN
4187: IF l_debug_level > 0 THEN
4188: oe_debug_pub.add( 'UNABLE TO GET SERVICE GRAND PARENT ITEM' , 1);
4189: END IF;
4190: service_grand_parent_id := NULL;
4191: END;
4192: IF (nvl(service_grand_parent_id,0) <> 0 AND service_grand_parent_id <> l_service_reference_line_id) THEN
4206: ,x_interface_scredit_rec => l_interface_scredit_rec);
4207: Insert_Salescredit(l_interface_scredit_rec);
4208: END LOOP;
4209: IF l_debug_level > 0 THEN
4210: oe_debug_pub.add( 'INSERTED SERVICE GRAND PARENT LINE SALESCREDITS' , 1 ) ;
4211: END IF;
4212: Insert_Header_Scredits_Flag := 'N';
4213: ELSE -- Service grand parent has no sales credits
4214: --Get header sales credits
4238: ,x_interface_scredit_rec => l_interface_scredit_rec);
4239: Insert_Salescredit(l_interface_scredit_rec);
4240: END LOOP;
4241: IF l_debug_level > 0 THEN
4242: oe_debug_pub.add( 'INSERTED PARENT LINE SALESCREDITS' , 1 ) ;
4243: END IF;
4244: Insert_Header_Scredits_Flag := 'N';
4245: ELSE -- parent has no sales credits
4246: -- Prepare and insert header sales credits
4264: ,x_interface_scredit_rec => l_interface_scredit_rec);
4265: Insert_Salescredit(l_interface_scredit_rec);
4266: END LOOP;
4267: IF l_debug_level > 0 THEN
4268: oe_debug_pub.add( 'INSERTED HEADER SALESCREDITS' , 1 ) ;
4269: END IF;
4270: Insert_Header_Scredits_Flag := 'N';
4271: END IF;
4272: END IF;
4272: END IF;
4273: END LOOP;
4274: x_return_status := FND_API.G_RET_STS_SUCCESS;
4275: IF l_debug_level > 0 THEN
4276: oe_debug_pub.add( 'INTERFACE_SALES_CREDITS ( ) PROCDURE SUCCESS : '||X_RETURN_STATUS , 1 ) ;
4277: END IF;
4278: EXCEPTION
4279: WHEN OTHERS THEN
4280: IF l_debug_level > 0 THEN
4277: END IF;
4278: EXCEPTION
4279: WHEN OTHERS THEN
4280: IF l_debug_level > 0 THEN
4281: oe_debug_pub.add( 'EXCEPTION INTERFACE_SALES_CREDITS ( ) '||SQLERRM , 1 ) ;
4282: END IF;
4283: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4284: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4285: THEN
4299: l_interface_scredit_rec RA_Interface_Scredits_Rec_Type;
4300: l_cr_srep_for_freight VARCHAR2(30); --moac moving the initialization to the body
4301: l_return_status VARCHAR2(30);
4302: --
4303: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4304: --
4305: BEGIN
4306: IF l_debug_level > 0 THEN
4307: oe_debug_pub.add( 'INTERFACING SALES CREDITS FOR FREIGHT' , 5 ) ;
4303: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4304: --
4305: BEGIN
4306: IF l_debug_level > 0 THEN
4307: oe_debug_pub.add( 'INTERFACING SALES CREDITS FOR FREIGHT' , 5 ) ;
4308: END IF;
4309: --moac
4310: l_cr_srep_for_freight := NVL(OE_SYS_PARAMETERS.value('WSH_CR_SREP_FOR_FREIGHT',p_line_rec.org_id), 'N');
4311: -- If the profile option 'OM: Credit Salesperson for Freight on Sales'
4338: ,x_interface_scredit_rec => l_interface_scredit_rec);
4339: Insert_Salescredit(l_interface_scredit_rec);
4340: END IF;
4341: IF l_debug_level > 0 THEN
4342: oe_debug_pub.add( 'INTERFACE SALES CREDITS FOR FREIGHT SUCCESSFULLY ' , 5 ) ;
4343: END IF;
4344: EXCEPTION
4345: WHEN OTHERS THEN
4346: IF l_debug_level > 0 THEN
4343: END IF;
4344: EXCEPTION
4345: WHEN OTHERS THEN
4346: IF l_debug_level > 0 THEN
4347: oe_debug_pub.add( 'EXCEPTION , INTERFACE SALES CREDITS FOR FREIGHT '||SQLERRM , 1 ) ;
4348: END IF;
4349: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4350: THEN
4351: OE_MSG_PUB.Add_Exc_Msg
4389: ) IS
4390: l_revrec_event_code VARCHAR2(30);
4391: l_expiration_days NUMBER;
4392: --
4393: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4394: --
4395: BEGIN
4396: IF l_debug_level > 0 THEN
4397: oe_debug_pub.add( 'ENTER PREPARE_CONTINGENCIES_REC ( ) PROCEDURE' , 5 ) ;
4393: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4394: --
4395: BEGIN
4396: IF l_debug_level > 0 THEN
4397: oe_debug_pub.add( 'ENTER PREPARE_CONTINGENCIES_REC ( ) PROCEDURE' , 5 ) ;
4398: END IF;
4399:
4400: OE_ACCEPTANCE_UTIL.Get_Contingency_attributes
4401: (p_line_rec => p_line_rec
4404: ,x_revrec_expiration_days => l_expiration_days);
4405:
4406: IF x_interface_conts_rec.contingency_id IS NULL THEN
4407: IF l_debug_level > 0 THEN
4408: oe_debug_pub.add( 'Returning from prepare_contingencies - no contingency');
4409: END IF;
4410: RETURN;
4411: END IF;
4412: x_interface_conts_rec.CREATION_DATE := INV_LE_TIMEZONE_PUB.Get_Le_Day_Time_For_Ou(sysdate,p_interface_line_rec.org_id);
4445: x_interface_conts_rec.org_id := p_line_rec.org_id;
4446: x_interface_conts_rec.completed_by := p_line_rec.accepted_by;
4447:
4448: IF l_debug_level > 0 THEN
4449: oe_debug_pub.add( 'EXITING PREPARE_CONTINGENCY_REC' , 5 ) ;
4450: END IF;
4451: END Prepare_Contingency_rec;
4452:
4453: PROCEDURE Insert_Contingency
4453: PROCEDURE Insert_Contingency
4454: ( p_contingency_rec IN Ra_Interface_Conts_Rec_Type
4455: ) IS
4456: --
4457: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4458: --
4459: l_msg_count NUMBER;
4460: l_msg_data VARCHAR2(2000);
4461: l_return_status VARCHAR2(15);
4462:
4463: BEGIN
4464:
4465: IF l_debug_level > 0 THEN
4466: oe_debug_pub.add( 'INSERTING CONTINGENCY RECORDS ' , 5 ) ;
4467: END IF;
4468:
4469: INSERT INTO AR_INTERFACE_CONTS_ALL
4470: (CREATED_BY
4525: , p_contingency_rec.completed_by
4526: ,p_contingency_rec.ORG_ID);
4527:
4528: IF l_debug_level > 0 THEN
4529: oe_debug_pub.add( 'SUCCESSFULLY INSERTED CONTINGENCY RECORDS' , 5 ) ;
4530: END IF;
4531: EXCEPTION WHEN OTHERS THEN
4532: IF l_debug_level > 0 THEN
4533: oe_debug_pub.add( 'UNABLE TO INSERT CONTINGENCY RECORDS -> '||SQLERRM , 1 ) ;
4529: oe_debug_pub.add( 'SUCCESSFULLY INSERTED CONTINGENCY RECORDS' , 5 ) ;
4530: END IF;
4531: EXCEPTION WHEN OTHERS THEN
4532: IF l_debug_level > 0 THEN
4533: oe_debug_pub.add( 'UNABLE TO INSERT CONTINGENCY RECORDS -> '||SQLERRM , 1 ) ;
4534: END IF;
4535: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4536: OE_MSG_PUB.Add_Exc_Msg
4537: ( G_PKG_NAME
4550: IS
4551: l_interface_conts_rec RA_Interface_Conts_Rec_Type;
4552: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
4553: --
4554: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4555: --
4556: BEGIN
4557: IF l_debug_level > 0 THEN
4558: oe_debug_pub.add( 'ENTER INTERFACE_CONTINGENCIES ( ) PROCEDURE ' , 5 ) ;
4554: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4555: --
4556: BEGIN
4557: IF l_debug_level > 0 THEN
4558: oe_debug_pub.add( 'ENTER INTERFACE_CONTINGENCIES ( ) PROCEDURE ' , 5 ) ;
4559: END IF;
4560:
4561: IF NVL(OE_SYS_PARAMETERS.VALUE('ENABLE_FULFILLMENT_ACCEPTANCE'), 'N') = 'N' THEN
4562: IF l_debug_level > 0 THEN
4559: END IF;
4560:
4561: IF NVL(OE_SYS_PARAMETERS.VALUE('ENABLE_FULFILLMENT_ACCEPTANCE'), 'N') = 'N' THEN
4562: IF l_debug_level > 0 THEN
4563: oe_debug_pub.add( 'Acceptance not enabled, Not interfacing Contingency details');
4564: END IF;
4565: -- Do not interface acceptance details
4566: RETURN;
4567: END IF;
4573: );
4574:
4575: IF l_interface_conts_rec.contingency_id IS NOT NULL THEN
4576: IF l_debug_level > 0 THEN
4577: oe_debug_pub.add( 'Interfacing Contingency details');
4578: END IF;
4579: Insert_Contingency(l_interface_conts_rec);
4580: ELSE
4581: IF l_debug_level > 0 THEN
4578: END IF;
4579: Insert_Contingency(l_interface_conts_rec);
4580: ELSE
4581: IF l_debug_level > 0 THEN
4582: oe_debug_pub.add( 'No Contingency on the line, Not interfacing Contingency details');
4583: END IF;
4584: RETURN;
4585: END IF;
4586: x_return_status := l_return_status;
4584: RETURN;
4585: END IF;
4586: x_return_status := l_return_status;
4587: IF l_debug_level > 0 THEN
4588: oe_debug_pub.add( 'INTERFACE_CONTINGENCIES ( ) PROCDURE SUCCESS : '||l_RETURN_STATUS , 1 ) ;
4589: END IF;
4590: EXCEPTION
4591: WHEN OTHERS THEN
4592: IF l_debug_level > 0 THEN
4589: END IF;
4590: EXCEPTION
4591: WHEN OTHERS THEN
4592: IF l_debug_level > 0 THEN
4593: oe_debug_pub.add( 'EXCEPTION INTERFACE_CONTINGENCIES ( ) '||SQLERRM , 1 ) ;
4594: END IF;
4595: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4596: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4597: THEN
4615: l_ind_line_tot NUMBER;
4616: l_ind_disc_tot NUMBER;
4617: l_comb_ind_line_tots NUMBER;
4618: --
4619: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4620: --
4621: l_header_id NUMBER;
4622: l_line_id NUMBER;
4623: BEGIN
4621: l_header_id NUMBER;
4622: l_line_id NUMBER;
4623: BEGIN
4624: IF l_debug_level > 0 THEN
4625: oe_debug_pub.add( 'ENTER GET_ROUNDING_DIFF ( ) PROCEDURE' , 5 ) ;
4626: END IF;
4627:
4628: -- Removed the previous call to get_line_adjustments as adjustment table is passed now
4629:
4627:
4628: -- Removed the previous call to get_line_adjustments as adjustment table is passed now
4629:
4630: IF l_debug_level > 0 THEN
4631: oe_debug_pub.add( 'p_adjustments_tbl.COUNT:'||p_adjustments_tbl.COUNT);
4632: END IF;
4633:
4634: -- 3685479 Replaced call to show_detail_discounts by the foll IF
4635: IF (oe_sys_parameters.value('OE_DISCOUNT_DETAILS_ON_INVOICE',p_line_rec.org_id) = 'Y'
4639: Rounded_Amount(p_currency_code => p_interface_line_rec.currency_code
4640: ,p_unrounded_amount => (p_line_rec.unit_selling_price * p_interface_line_rec.quantity)
4641: ,x_rounded_amount => l_line_tot_amount);
4642: IF l_debug_level > 0 THEN
4643: oe_debug_pub.add( 'LINE TOTAL WHEN SHOW DISCOUNTS PROFILE IS OFF: '||L_LINE_TOT_AMOUNT , 5 ) ;
4644: END IF;
4645: -- get line total when the profile is on
4646: Rounded_Amount(p_currency_code => p_interface_line_rec.currency_code
4647: ,p_unrounded_amount => (p_line_rec.unit_list_price * p_interface_line_rec.quantity)
4646: Rounded_Amount(p_currency_code => p_interface_line_rec.currency_code
4647: ,p_unrounded_amount => (p_line_rec.unit_list_price * p_interface_line_rec.quantity)
4648: ,x_rounded_amount => l_ind_line_tot);
4649: IF l_debug_level > 0 THEN
4650: oe_debug_pub.add( 'LINE TOTAL WHEN SHOW DISCOUNTS PROFILE IS ON: '||L_IND_LINE_TOT , 5 ) ;
4651: END IF;
4652: IF p_adjustments_tbl.COUNT <> 0 THEN
4653: FOR I IN 1..p_adjustments_tbl.COUNT LOOP
4654: l_adjustments_rec := p_adjustments_tbl(I);
4655: Rounded_Amount(p_currency_code => p_interface_line_rec.currency_code
4656: ,p_unrounded_amount => (l_adjustments_rec.unit_discount_amount * p_interface_line_rec.quantity * -1)
4657: ,x_rounded_amount => l_ind_disc_tot);
4658: IF l_debug_level > 0 THEN
4659: oe_debug_pub.add( 'PROCESSING RECORD# '||I|| ': '||'DISCOUNT LINE TOTAL FOR ADJ_ID= '||L_ADJUSTMENTS_REC.PRICE_ADJUSTMENT_ID||': ' ||L_IND_DISC_TOT , 5 ) ;
4660: END IF;
4661: l_ind_line_tot := l_ind_line_tot + l_ind_disc_tot;
4662: IF l_debug_level > 0 THEN
4663: oe_debug_pub.add( 'INTERMEDIATE TOTAL: '||L_IND_LINE_TOT , 5 ) ;
4659: oe_debug_pub.add( 'PROCESSING RECORD# '||I|| ': '||'DISCOUNT LINE TOTAL FOR ADJ_ID= '||L_ADJUSTMENTS_REC.PRICE_ADJUSTMENT_ID||': ' ||L_IND_DISC_TOT , 5 ) ;
4660: END IF;
4661: l_ind_line_tot := l_ind_line_tot + l_ind_disc_tot;
4662: IF l_debug_level > 0 THEN
4663: oe_debug_pub.add( 'INTERMEDIATE TOTAL: '||L_IND_LINE_TOT , 5 ) ;
4664: END IF;
4665: END LOOP;
4666: Rounded_Amount(p_currency_code => p_interface_line_rec.currency_code
4667: ,p_unrounded_amount => l_ind_line_tot
4666: Rounded_Amount(p_currency_code => p_interface_line_rec.currency_code
4667: ,p_unrounded_amount => l_ind_line_tot
4668: ,x_rounded_amount => l_comb_ind_line_tots);
4669: IF l_debug_level > 0 THEN
4670: oe_debug_pub.add( 'ROUNDED TOTAL FOR THE LINE WHEN SHOW DISCOUNTS IS ON => '||L_COMB_IND_LINE_TOTS , 5 ) ;
4671: END IF;
4672: END IF;
4673: IF l_line_tot_amount = l_comb_ind_line_tots THEN
4674: x_rounding_diff := NULL;
4677: x_rounding_diff := l_line_tot_amount - l_comb_ind_line_tots;
4678: END IF;
4679: END IF;
4680: IF l_debug_level > 0 THEN
4681: oe_debug_pub.add( 'EXIT GET_ROUNDING_DIFF ( ) WITH ROUNDING DIFFERENCE : '||X_ROUNDING_DIFF , 5 ) ;
4682: END IF;
4683: EXCEPTION
4684: WHEN OTHERS THEN
4685: IF l_debug_level > 0 THEN
4682: END IF;
4683: EXCEPTION
4684: WHEN OTHERS THEN
4685: IF l_debug_level > 0 THEN
4686: oe_debug_pub.add( 'EXCEPTION , ROUNDING DIFFERENCE '||SQLERRM , 1 ) ;
4687: END IF;
4688: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4689: THEN
4690: OE_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,'Get_Rounding_Diff');
4715: select header_id, line_id
4716: from oe_order_lines_all
4717: where line_id = c_line_id;
4718: --
4719: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4720: --
4721: l_header_id NUMBER;
4722: l_line_id NUMBER;
4723: BEGIN
4721: l_header_id NUMBER;
4722: l_line_id NUMBER;
4723: BEGIN
4724: IF l_debug_level > 0 THEN
4725: oe_debug_pub.add( 'ENTERING INTERFACE_DETAIL_DISCOUNTS ( ) PROCEDURE ' , 5 ) ;
4726: END IF;
4727: -- 3661895 The IF will be true only for return retrobilled RMA, all others will go through else
4728: -- RT{
4729: IF (p_line_rec.line_category_code = 'RETURN'
4773: -- Quantity comes with the correct creation sign from the interface_line record. No need to adjust here
4774: l_discounts_rec.Unit_Selling_Price := l_adjustments_rec.unit_discount_amount * -1;
4775: l_discounts_rec.Unit_Standard_Price := l_adjustments_rec.unit_discount_amount * -1;
4776: IF l_debug_level > 0 THEN
4777: oe_debug_pub.add( 'ORIGINAL UNIT DISCOUNT AMOUNT : '||L_ADJUSTMENTS_REC.UNIT_DISCOUNT_AMOUNT , 5 ) ;
4778: END IF;
4779: Rounded_Amount(p_currency_code => l_discounts_rec.currency_code
4780: ,p_unrounded_amount => (l_discounts_rec.unit_selling_price * l_discounts_rec.quantity)
4781: ,x_rounded_amount => l_discounts_rec.amount);
4779: Rounded_Amount(p_currency_code => l_discounts_rec.currency_code
4780: ,p_unrounded_amount => (l_discounts_rec.unit_selling_price * l_discounts_rec.quantity)
4781: ,x_rounded_amount => l_discounts_rec.amount);
4782: IF l_debug_level > 0 THEN
4783: oe_debug_pub.add( 'DISCOUNT UNIT_SELLING_PRICE: '||L_DISCOUNTS_REC.UNIT_SELLING_PRICE , 5 ) ;
4784: oe_debug_pub.add( 'DISCOUNT UNIT_STANDARD_PRICE: '||L_DISCOUNTS_REC.UNIT_STANDARD_PRICE , 5 ) ;
4785: oe_debug_pub.add( 'DISCOUNT AMOUNT: '||L_DISCOUNTS_REC.AMOUNT , 5 ) ;
4786: END IF;
4787: IF l_rounding_diff_applied = 'N' THEN
4780: ,p_unrounded_amount => (l_discounts_rec.unit_selling_price * l_discounts_rec.quantity)
4781: ,x_rounded_amount => l_discounts_rec.amount);
4782: IF l_debug_level > 0 THEN
4783: oe_debug_pub.add( 'DISCOUNT UNIT_SELLING_PRICE: '||L_DISCOUNTS_REC.UNIT_SELLING_PRICE , 5 ) ;
4784: oe_debug_pub.add( 'DISCOUNT UNIT_STANDARD_PRICE: '||L_DISCOUNTS_REC.UNIT_STANDARD_PRICE , 5 ) ;
4785: oe_debug_pub.add( 'DISCOUNT AMOUNT: '||L_DISCOUNTS_REC.AMOUNT , 5 ) ;
4786: END IF;
4787: IF l_rounding_diff_applied = 'N' THEN
4788: IF (l_discounts_rec.quantity = 0 OR l_discounts_rec.amount = 0) THEN
4781: ,x_rounded_amount => l_discounts_rec.amount);
4782: IF l_debug_level > 0 THEN
4783: oe_debug_pub.add( 'DISCOUNT UNIT_SELLING_PRICE: '||L_DISCOUNTS_REC.UNIT_SELLING_PRICE , 5 ) ;
4784: oe_debug_pub.add( 'DISCOUNT UNIT_STANDARD_PRICE: '||L_DISCOUNTS_REC.UNIT_STANDARD_PRICE , 5 ) ;
4785: oe_debug_pub.add( 'DISCOUNT AMOUNT: '||L_DISCOUNTS_REC.AMOUNT , 5 ) ;
4786: END IF;
4787: IF l_rounding_diff_applied = 'N' THEN
4788: IF (l_discounts_rec.quantity = 0 OR l_discounts_rec.amount = 0) THEN
4789: IF l_debug_level > 0 THEN
4786: END IF;
4787: IF l_rounding_diff_applied = 'N' THEN
4788: IF (l_discounts_rec.quantity = 0 OR l_discounts_rec.amount = 0) THEN
4789: IF l_debug_level > 0 THEN
4790: oe_debug_pub.add( 'NOT APPLYING ROUNDING DIFF TO THIS DISCOUNT' ) ;
4791: END IF;
4792: ELSE
4793: -- 3685479 Changed signature to pass adjustments table
4794: Get_Rounding_Diff(p_line_rec => p_line_rec
4797: , x_rounding_diff => l_rounding_diff);
4798: IF (l_rounding_diff IS NOT NULL AND l_rounding_diff <> 0) THEN
4799: l_discounts_rec.amount := l_discounts_rec.amount + l_rounding_diff;
4800: IF l_debug_level > 0 THEN
4801: oe_debug_pub.add( 'DISCOUNT TOTAL AFTER ADDING ROUNDING DIFF: '||L_DISCOUNTS_REC.AMOUNT , 5 ) ;
4802: END IF;
4803:
4804: Rounded_Amount(p_currency_code => l_discounts_rec.currency_code
4805: ,p_unrounded_amount => l_discounts_rec.amount
4807:
4808: l_discounts_rec.amount := l_rounded_amount;
4809:
4810: IF l_debug_level > 0 THEN
4811: oe_debug_pub.add( 'DISCOUNT TOTAL AFTER ADDING ROUNDING DIFF AND ROUNDING: '||L_DISCOUNTS_REC.AMOUNT , 5 ) ;
4812: END IF;
4813: l_discounts_rec.unit_selling_price := l_discounts_rec.amount /l_discounts_rec.quantity;
4814: IF l_debug_level > 0 THEN
4815: oe_debug_pub.add( 'DISCOUNT UNIT_SELLING_PRICE AFTER ADDING ROUNDING DIFF: '||L_DISCOUNTS_REC.UNIT_SELLING_PRICE , 5 ) ;
4811: oe_debug_pub.add( 'DISCOUNT TOTAL AFTER ADDING ROUNDING DIFF AND ROUNDING: '||L_DISCOUNTS_REC.AMOUNT , 5 ) ;
4812: END IF;
4813: l_discounts_rec.unit_selling_price := l_discounts_rec.amount /l_discounts_rec.quantity;
4814: IF l_debug_level > 0 THEN
4815: oe_debug_pub.add( 'DISCOUNT UNIT_SELLING_PRICE AFTER ADDING ROUNDING DIFF: '||L_DISCOUNTS_REC.UNIT_SELLING_PRICE , 5 ) ;
4816: END IF;
4817: END IF;
4818: l_rounding_diff_applied := 'Y';
4819: END IF;
4821: l_discounts_rec.Fob_Point := NULL;
4822: -- l_discounts_rec.Ship_Via := NULL; -- for bug# 5024577
4823: -- l_discounts_rec.Waybill_Number := NULL; --bug 5843869
4824: IF l_debug_level > 0 THEN
4825: oe_debug_pub.add( 'REFERENCE LINE_ID '||L_DISCOUNTS_REC.REFERENCE_LINE_ID , 5 ) ;
4826: oe_debug_pub.add( 'LINE CATEGORY CODE '||P_LINE_REC.LINE_CATEGORY_CODE , 5 ) ;
4827: END IF;
4828: IF p_line_rec.line_category_code = 'RETURN' AND l_discounts_rec.reference_line_id IS NOT NULL THEN
4829: -- 3645784
4822: -- l_discounts_rec.Ship_Via := NULL; -- for bug# 5024577
4823: -- l_discounts_rec.Waybill_Number := NULL; --bug 5843869
4824: IF l_debug_level > 0 THEN
4825: oe_debug_pub.add( 'REFERENCE LINE_ID '||L_DISCOUNTS_REC.REFERENCE_LINE_ID , 5 ) ;
4826: oe_debug_pub.add( 'LINE CATEGORY CODE '||P_LINE_REC.LINE_CATEGORY_CODE , 5 ) ;
4827: END IF;
4828: IF p_line_rec.line_category_code = 'RETURN' AND l_discounts_rec.reference_line_id IS NOT NULL THEN
4829: -- 3645784
4830: -- RT{Retrobill Lines with line type return will not have reference information populated
4831: -- So setting the reference info with original order Header_id and Line_id
4832: IF ( p_line_rec.order_source_id = 27) THEN
4833: l_ref_header_id := to_number(p_line_rec.orig_sys_document_ref);
4834: l_ref_line_id := to_number(p_line_rec.orig_sys_line_ref);
4835: oe_debug_pub.add('Retro:After setting reference line id');
4836: ELSE
4837: FOR order_info_rec in order_info(p_line_rec.reference_line_id) loop
4838: l_ref_header_id := order_info_rec.header_id;
4839: l_ref_line_id := order_info_rec.line_id;
4838: l_ref_header_id := order_info_rec.header_id;
4839: l_ref_line_id := order_info_rec.line_id;
4840: END LOOP;
4841: END IF;
4842: oe_debug_pub.add('l_ref_header_id'||l_ref_header_id);
4843: oe_debug_pub.add('l_ref_line_id'||l_ref_line_id);
4844: BEGIN
4845: SELECT dis.customer_trx_line_id
4846: INTO l_reference_line_id
4839: l_ref_line_id := order_info_rec.line_id;
4840: END LOOP;
4841: END IF;
4842: oe_debug_pub.add('l_ref_header_id'||l_ref_header_id);
4843: oe_debug_pub.add('l_ref_line_id'||l_ref_line_id);
4844: BEGIN
4845: SELECT dis.customer_trx_line_id
4846: INTO l_reference_line_id
4847: FROM RA_CUSTOMER_TRX_LINES_ALL DIS,
4864: WHEN OTHERS THEN
4865: -- 3661895 l_reference_line_id must be cleared when the sql fails
4866: l_reference_line_id := NULL;
4867: IF l_debug_level > 0 THEN
4868: oe_debug_pub.add( 'FAILED TO INSERT DISCOUNT RECORDS FOR THE RETURN LINES '||SQLERRM , 1 ) ;
4869: END IF;
4870: -- Added for the FP bug #3802957
4871: l_reference_line_id := l_discounts_rec.Reference_Line_Id;
4872: NULL;
4872: NULL;
4873: END;
4874: l_discounts_rec.Reference_Line_Id := l_reference_line_id;
4875: IF l_debug_level > 0 THEN
4876: oe_debug_pub.add( 'REFERENCE LINE_ID FOR DISCOUNT LINE : '||L_DISCOUNTS_REC.REFERENCE_LINE_ID , 5 ) ;
4877: END IF;
4878: END IF;
4879: -- l_discounts_rec.Reference_Line_Id := NULL;
4880: l_discounts_rec.PROMISED_COMMITMENT_AMOUNT := 0; -- For bug 6798675 NULL;
4925: END IF;
4926: -- Fix for the bug 2187074
4927: x_return_status := FND_API.G_RET_STS_SUCCESS;
4928: IF l_debug_level > 0 THEN
4929: oe_debug_pub.add( 'EXITING INTERFACE_DETAIL_DISCOUNTS ( ) PROCEDURE ' , 5 ) ;
4930: END IF;
4931:
4932: EXCEPTION
4933: WHEN OTHERS THEN
4931:
4932: EXCEPTION
4933: WHEN OTHERS THEN
4934: IF l_debug_level > 0 THEN
4935: oe_debug_pub.add( 'EXCEPTION IN INTERFACE_DETAIL_DISCOUNTS '||SQLERRM , 1 ) ;
4936: END IF;
4937: -- Fix for the bug 2187074
4938: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4939: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4953: l_return_status VARCHAR2(30);
4954: l_notify_index NUMBER; -- jolin
4955:
4956: --
4957: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4958: --
4959: BEGIN
4960: IF l_debug_level > 0 THEN
4961: oe_debug_pub.add( 'ENTERING UPDATE_INVOICED_FLAG' , 1 ) ;
4957: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4958: --
4959: BEGIN
4960: IF l_debug_level > 0 THEN
4961: oe_debug_pub.add( 'ENTERING UPDATE_INVOICED_FLAG' , 1 ) ;
4962: END IF;
4963: OE_Header_Adj_Util.Lock_Rows
4964: (P_PRICE_ADJUSTMENT_ID=>p_price_adjustment_id,
4965: X_HEADER_ADJ_TBL=>l_old_header_adj_tbl,
4970: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4971: END IF;
4972: l_Header_Adj_tbl := l_old_Header_Adj_Tbl;
4973:
4974: oe_debug_pub.add('Charges Amount '||p_adjusted_amount);
4975: oe_debug_pub.add('Invoiced Amount'||p_invoiced_amount);
4976:
4977: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
4978: UPDATE OE_PRICE_ADJUSTMENTS
4971: END IF;
4972: l_Header_Adj_tbl := l_old_Header_Adj_Tbl;
4973:
4974: oe_debug_pub.add('Charges Amount '||p_adjusted_amount);
4975: oe_debug_pub.add('Invoiced Amount'||p_invoiced_amount);
4976:
4977: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
4978: UPDATE OE_PRICE_ADJUSTMENTS
4979: SET INVOICED_FLAG = 'Y'
5012: , x_index => l_notify_index
5013: , x_return_status => l_return_status);
5014:
5015: IF l_debug_level > 0 THEN
5016: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FOR HDR ADJ IS: ' || L_RETURN_STATUS ) ;
5017: oe_debug_pub.add( 'HDR ADJ INDEX IS: ' || L_NOTIFY_INDEX , 1 ) ;
5018: END IF;
5019:
5020: IF l_notify_index is not null then
5013: , x_return_status => l_return_status);
5014:
5015: IF l_debug_level > 0 THEN
5016: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FOR HDR ADJ IS: ' || L_RETURN_STATUS ) ;
5017: oe_debug_pub.add( 'HDR ADJ INDEX IS: ' || L_NOTIFY_INDEX , 1 ) ;
5018: END IF;
5019:
5020: IF l_notify_index is not null then
5021: -- modify Global Picture
5034: OE_ORDER_UTIL.g_header_adj_tbl(l_notify_index).line_id:=
5035: l_header_adj_tbl(1).line_id;
5036:
5037: IF l_debug_level > 0 THEN
5038: oe_debug_pub.add( 'GLOBAL HDR ADJ INVOICED_FLAG IS: ' || OE_ORDER_UTIL.G_HEADER_ADJ_TBL ( L_NOTIFY_INDEX ) .INVOICED_FLAG , 1 ) ;
5039: oe_debug_pub.add( 'GLOBAL HDR ADJ LOCK_CONTROL IS: ' || OE_ORDER_UTIL.G_HEADER_ADJ_TBL ( L_NOTIFY_INDEX ) .LOCK_CONTROL , 1 ) ;
5040:
5041: END IF;
5042:
5035: l_header_adj_tbl(1).line_id;
5036:
5037: IF l_debug_level > 0 THEN
5038: oe_debug_pub.add( 'GLOBAL HDR ADJ INVOICED_FLAG IS: ' || OE_ORDER_UTIL.G_HEADER_ADJ_TBL ( L_NOTIFY_INDEX ) .INVOICED_FLAG , 1 ) ;
5039: oe_debug_pub.add( 'GLOBAL HDR ADJ LOCK_CONTROL IS: ' || OE_ORDER_UTIL.G_HEADER_ADJ_TBL ( L_NOTIFY_INDEX ) .LOCK_CONTROL , 1 ) ;
5040:
5041: END IF;
5042:
5043: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5045: END IF;
5046:
5047: -- Process requests is TRUE so still need to call it, but don't need to notify
5048: IF l_debug_level > 0 THEN
5049: oe_debug_pub.add( 'OEXPINVB: HDRADJ BEFORE CALLING PROCESS_REQUESTS_AND_NOTIFY' ) ;
5050: END IF;
5051: OE_Order_PVT.PROCESS_REQUESTS_AND_NOTIFY(
5052: P_HEADER_ADJ_TBL =>l_Header_Adj_tbl,
5053: P_OLD_HEADER_ADJ_TBL =>l_Old_Header_Adj_tbl,
5063:
5064: ELSE /* pre-pack H */
5065:
5066: IF l_debug_level > 0 THEN
5067: oe_debug_pub.add( 'OEXPINVB: HDRADJ BEFORE CALLING PROCESS_REQUESTS_AND_NOTIFY' ) ;
5068: END IF;
5069: OE_Order_PVT.PROCESS_REQUESTS_AND_NOTIFY(
5070: P_HEADER_ADJ_TBL =>l_Header_Adj_tbl,
5071: P_OLD_HEADER_ADJ_TBL =>l_Old_Header_Adj_tbl,
5080: END IF; /* code set is pack H or higher */
5081: /* jolin end*/
5082:
5083: IF l_debug_level > 0 THEN
5084: oe_debug_pub.add( 'EXIT UPDATE_INVOICED_FLAG ( ) PROCEDURE' , 1 ) ;
5085: END IF;
5086:
5087: EXCEPTION
5088: WHEN OTHERS THEN
5126: (select language_code
5127: from fnd_languages
5128: where installed_flag = 'B');
5129: --
5130: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5131: --
5132: BEGIN
5133: IF l_debug_level > 0 THEN
5134: oe_debug_pub.add( 'ENTER PREPARE_FREIGHT_CHARGES_REC ( ) PROCEDURE ' , 5 ) ;
5130: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5131: --
5132: BEGIN
5133: IF l_debug_level > 0 THEN
5134: oe_debug_pub.add( 'ENTER PREPARE_FREIGHT_CHARGES_REC ( ) PROCEDURE ' , 5 ) ;
5135: oe_debug_pub.add( 'PREPARING FOR CHARGE ID : '|| P_X_CHARGES_REC.INTERFACE_LINE_ATTRIBUTE6 ) ;
5136: END IF;
5137:
5138: -- Do not set mandatory grouping columns to different value than order line.
5131: --
5132: BEGIN
5133: IF l_debug_level > 0 THEN
5134: oe_debug_pub.add( 'ENTER PREPARE_FREIGHT_CHARGES_REC ( ) PROCEDURE ' , 5 ) ;
5135: oe_debug_pub.add( 'PREPARING FOR CHARGE ID : '|| P_X_CHARGES_REC.INTERFACE_LINE_ATTRIBUTE6 ) ;
5136: END IF;
5137:
5138: -- Do not set mandatory grouping columns to different value than order line.
5139: -- This can cause freight charges to group into different invoice (if values
5147: p_x_charges_rec.INTERFACE_LINE_ATTRIBUTE14 := lpad('0', 30); -- service number
5148: -- l_vat_flag := NVL(FND_PROFILE.VALUE('AR_ALLOW_TAX_CODE_OVERRIDE'), 'N');
5149: l_freight_as_line := NVL(oe_sys_parameters.value('OE_INVOICE_FREIGHT_AS_LINE',p_line_rec.org_id), 'N'); --moac
5150: IF l_debug_level > 0 THEN
5151: oe_debug_pub.add( 'INVOICE FREIGHT AS REVENUE '||L_FREIGHT_AS_LINE ) ;
5152: END IF;
5153: l_freight_item := oe_sys_parameters.value('OE_INVENTORY_ITEM_FOR_FREIGHT',p_line_rec.org_id); --moac
5154: /* VAT on freight
5155: if vat_flag = 'Y'
5218: p_x_charges_rec.Tax_Exempt_Reason_Code := NULL;
5219: END IF;
5220:
5221: IF l_debug_level > 0 THEN
5222: oe_debug_pub.add( 'LINE TYPE IS SET AS ' ||P_X_CHARGES_REC.LINE_TYPE , 1 ) ;
5223: END IF;
5224:
5225: -- bug 8221567 start
5226:
5229: ELSE
5230: p_x_charges_rec.Quantity := NULL;
5231: END IF;
5232: IF l_debug_level > 0 THEN
5233: oe_debug_pub.add( 'p_x_charges_rec.Quantity ' ||p_x_charges_rec.Quantity , 1 ) ;
5234:
5235: END IF;
5236: -- bug 8221567 end
5237:
5247: p_x_charges_rec.amount := l_rounded_amount;
5248:
5249: p_x_charges_rec.Sales_Order_Line := NULL;
5250: IF l_debug_level > 0 THEN
5251: oe_debug_pub.add( 'LINE CATEGORY CODE : '||P_LINE_REC.LINE_CATEGORY_CODE , 5 ) ;
5252: END IF;
5253: -- Change made for the FP bug #3802957
5254: IF p_line_rec.line_category_code = 'RETURN' then
5255: IF l_debug_level > 0 THEN
5252: END IF;
5253: -- Change made for the FP bug #3802957
5254: IF p_line_rec.line_category_code = 'RETURN' then
5255: IF l_debug_level > 0 THEN
5256: oe_debug_pub.add( 'REFERENCE LINE_ID FOR FREIGHT RECORD BEFORE : '||P_X_CHARGES_REC.REFERENCE_LINE_ID , 5 ) ;
5257: oe_debug_pub.add( 'P_LINE_REC.REFERENCE_LINE_ID : '||P_LINE_REC.REFERENCE_LINE_ID , 5 ) ;
5258: oe_debug_pub.add( 'INTERFACE_LINE_ATTRIBUTE6 : '||P_X_CHARGES_REC.INTERFACE_LINE_ATTRIBUTE6 , 5 ) ;
5259: END IF;
5260:
5253: -- Change made for the FP bug #3802957
5254: IF p_line_rec.line_category_code = 'RETURN' then
5255: IF l_debug_level > 0 THEN
5256: oe_debug_pub.add( 'REFERENCE LINE_ID FOR FREIGHT RECORD BEFORE : '||P_X_CHARGES_REC.REFERENCE_LINE_ID , 5 ) ;
5257: oe_debug_pub.add( 'P_LINE_REC.REFERENCE_LINE_ID : '||P_LINE_REC.REFERENCE_LINE_ID , 5 ) ;
5258: oe_debug_pub.add( 'INTERFACE_LINE_ATTRIBUTE6 : '||P_X_CHARGES_REC.INTERFACE_LINE_ATTRIBUTE6 , 5 ) ;
5259: END IF;
5260:
5261: -- 3645784
5254: IF p_line_rec.line_category_code = 'RETURN' then
5255: IF l_debug_level > 0 THEN
5256: oe_debug_pub.add( 'REFERENCE LINE_ID FOR FREIGHT RECORD BEFORE : '||P_X_CHARGES_REC.REFERENCE_LINE_ID , 5 ) ;
5257: oe_debug_pub.add( 'P_LINE_REC.REFERENCE_LINE_ID : '||P_LINE_REC.REFERENCE_LINE_ID , 5 ) ;
5258: oe_debug_pub.add( 'INTERFACE_LINE_ATTRIBUTE6 : '||P_X_CHARGES_REC.INTERFACE_LINE_ATTRIBUTE6 , 5 ) ;
5259: END IF;
5260:
5261: -- 3645784
5262: -- RT{Retrobill lines will not have freight charges applied
5295:
5296: EXCEPTION
5297: WHEN OTHERS THEN
5298: IF l_debug_level > 0 THEN
5299: oe_debug_pub.add( 'UNABLE TO FIND REFERENCE LINE ID : '||SQLERRM , 1 ) ;
5300: END IF;
5301: NULL;
5302: END;
5303: IF l_reference_line_id IS NULL THEN
5312: and ra1.request_id is not null;
5313: EXCEPTION
5314: WHEN OTHERS THEN
5315: IF l_debug_level > 0 THEN
5316: oe_debug_pub.add( 'UNABLE TO FIND REFERENCE LINE ID - 2 : '||SQLERRM , 1 ) ;
5317: END IF;
5318: NULL;
5319: END;
5320: END IF;
5319: END;
5320: END IF;
5321: p_x_charges_rec.Reference_Line_Id := l_reference_line_id;
5322: IF l_debug_level > 0 THEN
5323: oe_debug_pub.add( 'REFERENCE LINE_ID FOR FREIGHT LINE AFTER : '||P_X_CHARGES_REC.REFERENCE_LINE_ID , 5 ) ;
5324: END IF;
5325: end if;
5326: -- IF p_line_rec.commitment_id is not null then
5327: -- re populate cust_trx_type_id which was nulled out for interface line
5332: IF p_x_charges_rec.LINE_TYPE = 'FREIGHT' OR
5333: nvl(FND_PROFILE.VALUE('ONT_TAX_CODE_FOR_FREIGHT'), 'N') = 'N' THEN
5334: p_x_charges_rec.Tax_Code := NULL;
5335: IF l_debug_level > 0 THEN
5336: oe_debug_pub.add('tax_code for freight is set as ' ||p_x_charges_rec.tax_code , 5 ) ;
5337: END IF;
5338: END IF;
5339: --Customer Acceptance
5340: -- should be set always irrespective of customer acceptance enabled or not
5346: p_x_charges_rec.translated_description := null;
5347: END IF;
5348:
5349: IF l_debug_level > 0 THEN
5350: oe_debug_pub.add( 'EXIT PREPARE_FREIGHT_CHARGES_REC ( ) PROCEDURE' , 5 ) ;
5351: END IF;
5352: END Prepare_Freight_Charges_Rec;
5353:
5354: PROCEDURE Interface_Freight_Charges
5458: WHERE LINK_TO_LINE_ID = l_line_id
5459: AND ITEM_TYPE_CODE = 'CONFIG';
5460:
5461: --
5462: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5463: --
5464: BEGIN
5465: IF l_debug_level > 0 THEN
5466: oe_debug_pub.add( 'ENTER INTERFACE_FREIGHT_CHARGES ( ) PROCEDURE' , 5 ) ;
5462: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5463: --
5464: BEGIN
5465: IF l_debug_level > 0 THEN
5466: oe_debug_pub.add( 'ENTER INTERFACE_FREIGHT_CHARGES ( ) PROCEDURE' , 5 ) ;
5467: END IF;
5468: l_charges_rec := p_interface_line_rec;
5469: OPEN Line_Charges_Cursor(p_line_rec.header_id, p_line_rec.line_id);
5470: LOOP
5468: l_charges_rec := p_interface_line_rec;
5469: OPEN Line_Charges_Cursor(p_line_rec.header_id, p_line_rec.line_id);
5470: LOOP
5471: IF l_debug_level > 0 THEN
5472: oe_debug_pub.add( 'IN THE LOOP: L_CHARGES_REC.CHARGE_ID: '|| L_CHARGES_REC.INTERFACE_LINE_ATTRIBUTE6 , 5 ) ;
5473: END IF;
5474: FETCH Line_Charges_Cursor INTO
5475: l_charges_rec.INTERFACE_LINE_ATTRIBUTE6 -- charge_id
5476: ,l_charges_rec.description
5494: ,l_charges_rec.attribute14
5495: ,l_charges_rec.attribute15;
5496: EXIT WHEN Line_Charges_Cursor%NOTFOUND;
5497: IF l_debug_level > 0 THEN
5498: oe_debug_pub.add( 'IN THE LOOP 1: L_CHARGES_REC.CHARGE_ID: '|| L_CHARGES_REC.INTERFACE_LINE_ATTRIBUTE6 , 5 ) ;
5499: oe_debug_pub.add( 'INVOICE SOURCE BEFORE CALLING PREPARE_FREIGHT_CHARGES_REC '|| L_CHARGES_REC.BATCH_SOURCE_NAME , 5 ) ;
5500: END IF;
5501: --prepare l_charges_rec
5502: Prepare_Freight_Charges_Rec(p_line_rec => p_line_rec
5495: ,l_charges_rec.attribute15;
5496: EXIT WHEN Line_Charges_Cursor%NOTFOUND;
5497: IF l_debug_level > 0 THEN
5498: oe_debug_pub.add( 'IN THE LOOP 1: L_CHARGES_REC.CHARGE_ID: '|| L_CHARGES_REC.INTERFACE_LINE_ATTRIBUTE6 , 5 ) ;
5499: oe_debug_pub.add( 'INVOICE SOURCE BEFORE CALLING PREPARE_FREIGHT_CHARGES_REC '|| L_CHARGES_REC.BATCH_SOURCE_NAME , 5 ) ;
5500: END IF;
5501: --prepare l_charges_rec
5502: Prepare_Freight_Charges_Rec(p_line_rec => p_line_rec
5503: ,p_x_charges_rec => l_charges_rec);
5501: --prepare l_charges_rec
5502: Prepare_Freight_Charges_Rec(p_line_rec => p_line_rec
5503: ,p_x_charges_rec => l_charges_rec);
5504: IF l_debug_level > 0 THEN
5505: oe_debug_pub.add( 'INVOICE SOURCE AFTER : '|| L_CHARGES_REC.BATCH_SOURCE_NAME , 5 ) ;
5506: oe_debug_pub.add( 'FREIGHT LINE TYPE : '||L_CHARGES_REC.LINE_TYPE , 5 ) ;
5507: END IF;
5508: IF l_charges_rec.Amount = 0 THEN
5509: -- Issue Message (Zero Amount Freight Charge not interfaced)
5502: Prepare_Freight_Charges_Rec(p_line_rec => p_line_rec
5503: ,p_x_charges_rec => l_charges_rec);
5504: IF l_debug_level > 0 THEN
5505: oe_debug_pub.add( 'INVOICE SOURCE AFTER : '|| L_CHARGES_REC.BATCH_SOURCE_NAME , 5 ) ;
5506: oe_debug_pub.add( 'FREIGHT LINE TYPE : '||L_CHARGES_REC.LINE_TYPE , 5 ) ;
5507: END IF;
5508: IF l_charges_rec.Amount = 0 THEN
5509: -- Issue Message (Zero Amount Freight Charge not interfaced)
5510: IF l_debug_level > 0 THEN
5507: END IF;
5508: IF l_charges_rec.Amount = 0 THEN
5509: -- Issue Message (Zero Amount Freight Charge not interfaced)
5510: IF l_debug_level > 0 THEN
5511: oe_debug_pub.add( 'ZERO AMOUNT FREIGHT NOT INTERFACED' , 5 ) ;
5512: END IF;
5513: ELSE
5514: Insert_Line(l_charges_rec
5515: ,x_return_status=>l_return_status);
5539: CLOSE CONFIG_FOR_MODEL;
5540:
5541: IF config_line_id IS NOT NULL THEN
5542: IF l_debug_level > 0 THEN
5543: oe_debug_pub.add( 'FOUND CONFIG LINE : '||CONFIG_LINE_ID , 1 ) ;
5544: END IF;
5545: -- Initialize API return status to success
5546: x_return_status := FND_API.G_RET_STS_SUCCESS;
5547: OE_Line_Util.Lock_Row(p_line_id=>config_line_id
5549: , x_return_status => l_return_status
5550: );
5551: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5552: IF l_debug_level > 0 THEN
5553: oe_debug_pub.add( 'UNABLE TO LOCK LINE ID '||CONFIG_LINE_ID||' '||SQLERRM , 1 ) ;
5554: END IF;
5555: RAISE FND_API.G_EXC_ERROR;
5556: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5557: IF l_debug_level > 0 THEN
5554: END IF;
5555: RAISE FND_API.G_EXC_ERROR;
5556: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5557: IF l_debug_level > 0 THEN
5558: oe_debug_pub.add( 'UNABLE TO LOCK LINE ID '||CONFIG_LINE_ID||' '||SQLERRM , 1 ) ;
5559: END IF;
5560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5561: END IF;
5562: IF l_debug_level > 0 THEN
5559: END IF;
5560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5561: END IF;
5562: IF l_debug_level > 0 THEN
5563: oe_debug_pub.add( 'INTERFACING OTHER CHARGES ASSOCIATED WITH THIS MODEL..' , 1 ) ;
5564: END IF;
5565: OPEN Line_Charges_Cursor(p_line_rec.header_id, config_line_id);
5566: LOOP
5567: IF l_debug_level > 0 THEN
5564: END IF;
5565: OPEN Line_Charges_Cursor(p_line_rec.header_id, config_line_id);
5566: LOOP
5567: IF l_debug_level > 0 THEN
5568: oe_debug_pub.add( 'IN THE LOOP: L_CHARGES_REC.CHARGE_ID: '|| L_CHARGES_REC.INTERFACE_LINE_ATTRIBUTE6 , 5 ) ;
5569: END IF;
5570: FETCH Line_Charges_Cursor INTO
5571: l_charges_rec.INTERFACE_LINE_ATTRIBUTE6 -- charge_id
5572: ,l_charges_rec.description
5590: ,l_charges_rec.attribute14
5591: ,l_charges_rec.attribute15;
5592: EXIT WHEN Line_Charges_Cursor%NOTFOUND;
5593: IF l_debug_level > 0 THEN
5594: oe_debug_pub.add( 'IN THE LOOP 1: L_CHARGES_REC.CHARGE_ID: '|| L_CHARGES_REC.INTERFACE_LINE_ATTRIBUTE6 , 5 ) ;
5595: oe_debug_pub.add( 'INVOICE SOURCE BEFORE CALLING PREPARE_FREIGHT_CHARGES_REC '|| L_CHARGES_REC.BATCH_SOURCE_NAME , 5 ) ;
5596: END IF;
5597: --prepare l_charges_rec
5598: Prepare_Freight_Charges_Rec(p_line_rec => p_line_rec
5591: ,l_charges_rec.attribute15;
5592: EXIT WHEN Line_Charges_Cursor%NOTFOUND;
5593: IF l_debug_level > 0 THEN
5594: oe_debug_pub.add( 'IN THE LOOP 1: L_CHARGES_REC.CHARGE_ID: '|| L_CHARGES_REC.INTERFACE_LINE_ATTRIBUTE6 , 5 ) ;
5595: oe_debug_pub.add( 'INVOICE SOURCE BEFORE CALLING PREPARE_FREIGHT_CHARGES_REC '|| L_CHARGES_REC.BATCH_SOURCE_NAME , 5 ) ;
5596: END IF;
5597: --prepare l_charges_rec
5598: Prepare_Freight_Charges_Rec(p_line_rec => p_line_rec
5599: ,p_x_charges_rec => l_charges_rec);
5597: --prepare l_charges_rec
5598: Prepare_Freight_Charges_Rec(p_line_rec => p_line_rec
5599: ,p_x_charges_rec => l_charges_rec);
5600: IF l_debug_level > 0 THEN
5601: oe_debug_pub.add( 'INVOICE SOURCE AFTER : '|| L_CHARGES_REC.BATCH_SOURCE_NAME , 5 ) ;
5602: oe_debug_pub.add( 'FREIGHT LINE TYPE : '||L_CHARGES_REC.LINE_TYPE , 5 ) ;
5603: END IF;
5604: IF l_charges_rec.Amount = 0 THEN
5605: -- Issue Message (Zero Amount Freight Charge not interfaced)
5598: Prepare_Freight_Charges_Rec(p_line_rec => p_line_rec
5599: ,p_x_charges_rec => l_charges_rec);
5600: IF l_debug_level > 0 THEN
5601: oe_debug_pub.add( 'INVOICE SOURCE AFTER : '|| L_CHARGES_REC.BATCH_SOURCE_NAME , 5 ) ;
5602: oe_debug_pub.add( 'FREIGHT LINE TYPE : '||L_CHARGES_REC.LINE_TYPE , 5 ) ;
5603: END IF;
5604: IF l_charges_rec.Amount = 0 THEN
5605: -- Issue Message (Zero Amount Freight Charge not interfaced)
5606: IF l_debug_level > 0 THEN
5603: END IF;
5604: IF l_charges_rec.Amount = 0 THEN
5605: -- Issue Message (Zero Amount Freight Charge not interfaced)
5606: IF l_debug_level > 0 THEN
5607: oe_debug_pub.add( 'ZERO AMOUNT FREIGHT NOT INTERFACED' , 5 ) ;
5608: END IF;
5609: ELSE
5610: Insert_Line(l_charges_rec
5611: ,x_return_status=>l_return_status);
5632: CLOSE Line_Charges_Cursor;
5633: END IF;
5634: END IF;
5635: IF l_debug_level > 0 THEN
5636: oe_debug_pub.add( 'INTERFACING HEADER CHARGES...' , 1 ) ;
5637: END IF;
5638: l_charges_rec := p_interface_line_rec;
5639: --pnpl
5640: --get header level payment term for header level charges
5652:
5653: OPEN Header_Charges_Cursor(p_line_rec.header_id, p_line_rec.line_id);
5654: LOOP
5655: IF l_debug_level > 0 THEN
5656: oe_debug_pub.add( 'IN THE LOOP: L_CHARGES_REC.CHARGE_ID: '|| L_CHARGES_REC.INTERFACE_LINE_ATTRIBUTE6 ) ;
5657: END IF;
5658: FETCH Header_Charges_Cursor INTO
5659: l_charges_rec.INTERFACE_LINE_ATTRIBUTE6 -- charge_id
5660: ,l_charges_rec.description
5682: EXIT WHEN Header_Charges_Cursor%NOTFOUND;
5683:
5684:
5685: IF l_debug_level > 0 THEN
5686: oe_debug_pub.add( 'IN THE LOOP 1: L_CHARGES_REC.CHARGE_ID: '|| L_CHARGES_REC.INTERFACE_LINE_ATTRIBUTE6 ) ;
5687: oe_debug_pub.add( 'INVOICE SOURCE BEFORE CALLING PREPARE_FREIGHT_CHARGES_REC '|| L_CHARGES_REC.BATCH_SOURCE_NAME ) ;
5688: --pnpl
5689: oe_debug_pub.add( 'l_charges_rec.term_id : ' || l_charges_rec.term_id);
5690: END IF;
5683:
5684:
5685: IF l_debug_level > 0 THEN
5686: oe_debug_pub.add( 'IN THE LOOP 1: L_CHARGES_REC.CHARGE_ID: '|| L_CHARGES_REC.INTERFACE_LINE_ATTRIBUTE6 ) ;
5687: oe_debug_pub.add( 'INVOICE SOURCE BEFORE CALLING PREPARE_FREIGHT_CHARGES_REC '|| L_CHARGES_REC.BATCH_SOURCE_NAME ) ;
5688: --pnpl
5689: oe_debug_pub.add( 'l_charges_rec.term_id : ' || l_charges_rec.term_id);
5690: END IF;
5691: --prepare l_charges_rec
5685: IF l_debug_level > 0 THEN
5686: oe_debug_pub.add( 'IN THE LOOP 1: L_CHARGES_REC.CHARGE_ID: '|| L_CHARGES_REC.INTERFACE_LINE_ATTRIBUTE6 ) ;
5687: oe_debug_pub.add( 'INVOICE SOURCE BEFORE CALLING PREPARE_FREIGHT_CHARGES_REC '|| L_CHARGES_REC.BATCH_SOURCE_NAME ) ;
5688: --pnpl
5689: oe_debug_pub.add( 'l_charges_rec.term_id : ' || l_charges_rec.term_id);
5690: END IF;
5691: --prepare l_charges_rec
5692: Prepare_Freight_Charges_Rec(p_line_rec => p_line_rec
5693: ,p_x_charges_rec => l_charges_rec);
5691: --prepare l_charges_rec
5692: Prepare_Freight_Charges_Rec(p_line_rec => p_line_rec
5693: ,p_x_charges_rec => l_charges_rec);
5694: IF l_debug_level > 0 THEN
5695: oe_debug_pub.add( 'INVOICE SOURE AFTER CALLING PREPARE_FREIGHT_CHARGES_REC '|| L_CHARGES_REC.BATCH_SOURCE_NAME ) ;
5696: oe_debug_pub.add( 'FREIGHT LINE TYPE: '||L_CHARGES_REC.LINE_TYPE ) ;
5697: END IF;
5698: IF l_charges_rec.Amount = 0 THEN
5699: IF l_debug_level > 0 THEN
5692: Prepare_Freight_Charges_Rec(p_line_rec => p_line_rec
5693: ,p_x_charges_rec => l_charges_rec);
5694: IF l_debug_level > 0 THEN
5695: oe_debug_pub.add( 'INVOICE SOURE AFTER CALLING PREPARE_FREIGHT_CHARGES_REC '|| L_CHARGES_REC.BATCH_SOURCE_NAME ) ;
5696: oe_debug_pub.add( 'FREIGHT LINE TYPE: '||L_CHARGES_REC.LINE_TYPE ) ;
5697: END IF;
5698: IF l_charges_rec.Amount = 0 THEN
5699: IF l_debug_level > 0 THEN
5700: oe_debug_pub.add( ' ZERO AMOUNT FREIGHT NOT INTERFACED' , 5 ) ;
5696: oe_debug_pub.add( 'FREIGHT LINE TYPE: '||L_CHARGES_REC.LINE_TYPE ) ;
5697: END IF;
5698: IF l_charges_rec.Amount = 0 THEN
5699: IF l_debug_level > 0 THEN
5700: oe_debug_pub.add( ' ZERO AMOUNT FREIGHT NOT INTERFACED' , 5 ) ;
5701: END IF;
5702: ELSE
5703: Insert_Line(l_charges_rec
5704: ,x_return_status=>l_return_status);
5724: x_return_status := FND_API.G_RET_STS_SUCCESS;
5725:
5726: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
5727: IF l_debug_level > 0 THEN
5728: oe_debug_pub.add( 'INTERFACING Modified HEADER CHARGES...' , 1 ) ;
5729: END IF;
5730: l_charges_rec := p_interface_line_rec;
5731: OPEN Modified_Header_Charges_Cursor(p_line_rec.header_id, p_line_rec.line_id);
5732: LOOP
5730: l_charges_rec := p_interface_line_rec;
5731: OPEN Modified_Header_Charges_Cursor(p_line_rec.header_id, p_line_rec.line_id);
5732: LOOP
5733: IF l_debug_level > 0 THEN
5734: oe_debug_pub.add( 'IN THE LOOP: L_CHARGES_REC.CHARGE_ID: '|| L_CHARGES_REC.INTERFACE_LINE_ATTRIBUTE6 ) ;
5735: END IF;
5736: FETCH Modified_Header_Charges_Cursor INTO
5737: l_charges_rec.INTERFACE_LINE_ATTRIBUTE6 -- charge_id
5738: ,l_charges_rec.description
5760: --pnpl
5761: l_charges_rec.term_id := l_hdr_payment_term_id;
5762: EXIT WHEN Modified_Header_Charges_Cursor%NOTFOUND;
5763: IF l_debug_level > 0 THEN
5764: oe_debug_pub.add( 'IN THE LOOP 1: L_CHARGES_REC.CHARGE_ID: '|| L_CHARGES_REC.INTERFACE_LINE_ATTRIBUTE6 ) ;
5765: oe_debug_pub.add( 'Charge_Amount:'||l_charge_amount ||':Invoiced_Amount:'||l_invoiced_amount) ;
5766: --pnpl
5767: oe_debug_pub.add( 'l_charges_rec.term_id : ' || l_charges_rec.term_id);
5768: END IF;
5761: l_charges_rec.term_id := l_hdr_payment_term_id;
5762: EXIT WHEN Modified_Header_Charges_Cursor%NOTFOUND;
5763: IF l_debug_level > 0 THEN
5764: oe_debug_pub.add( 'IN THE LOOP 1: L_CHARGES_REC.CHARGE_ID: '|| L_CHARGES_REC.INTERFACE_LINE_ATTRIBUTE6 ) ;
5765: oe_debug_pub.add( 'Charge_Amount:'||l_charge_amount ||':Invoiced_Amount:'||l_invoiced_amount) ;
5766: --pnpl
5767: oe_debug_pub.add( 'l_charges_rec.term_id : ' || l_charges_rec.term_id);
5768: END IF;
5769:
5763: IF l_debug_level > 0 THEN
5764: oe_debug_pub.add( 'IN THE LOOP 1: L_CHARGES_REC.CHARGE_ID: '|| L_CHARGES_REC.INTERFACE_LINE_ATTRIBUTE6 ) ;
5765: oe_debug_pub.add( 'Charge_Amount:'||l_charge_amount ||':Invoiced_Amount:'||l_invoiced_amount) ;
5766: --pnpl
5767: oe_debug_pub.add( 'l_charges_rec.term_id : ' || l_charges_rec.term_id);
5768: END IF;
5769:
5770: --prepare l_charges_rec
5771: Prepare_Freight_Charges_Rec(p_line_rec => p_line_rec
5795: l_charges_rec.INTERFACE_LINE_ATTRIBUTE5 := l_count2 + 1 ;
5796: END IF;
5797:
5798: IF l_debug_level > 0 THEN
5799: oe_debug_pub.add( 'INTERFACE_LINE_ATTRIBUTE5: '|| l_charges_rec.INTERFACE_LINE_ATTRIBUTE5 , 5 ) ;
5800: oe_debug_pub.add( 'INVOICE SOURE AFTER CALLING PREPARE_FREIGHT_CHARGES_REC '|| L_CHARGES_REC.BATCH_SOURCE_NAME ) ;
5801: oe_debug_pub.add( 'FREIGHT LINE TYPE: '||L_CHARGES_REC.LINE_TYPE ) ;
5802: END IF;
5803:
5796: END IF;
5797:
5798: IF l_debug_level > 0 THEN
5799: oe_debug_pub.add( 'INTERFACE_LINE_ATTRIBUTE5: '|| l_charges_rec.INTERFACE_LINE_ATTRIBUTE5 , 5 ) ;
5800: oe_debug_pub.add( 'INVOICE SOURE AFTER CALLING PREPARE_FREIGHT_CHARGES_REC '|| L_CHARGES_REC.BATCH_SOURCE_NAME ) ;
5801: oe_debug_pub.add( 'FREIGHT LINE TYPE: '||L_CHARGES_REC.LINE_TYPE ) ;
5802: END IF;
5803:
5804: IF l_charges_rec.Amount = 0 THEN
5797:
5798: IF l_debug_level > 0 THEN
5799: oe_debug_pub.add( 'INTERFACE_LINE_ATTRIBUTE5: '|| l_charges_rec.INTERFACE_LINE_ATTRIBUTE5 , 5 ) ;
5800: oe_debug_pub.add( 'INVOICE SOURE AFTER CALLING PREPARE_FREIGHT_CHARGES_REC '|| L_CHARGES_REC.BATCH_SOURCE_NAME ) ;
5801: oe_debug_pub.add( 'FREIGHT LINE TYPE: '||L_CHARGES_REC.LINE_TYPE ) ;
5802: END IF;
5803:
5804: IF l_charges_rec.Amount = 0 THEN
5805: IF l_debug_level > 0 THEN
5802: END IF;
5803:
5804: IF l_charges_rec.Amount = 0 THEN
5805: IF l_debug_level > 0 THEN
5806: oe_debug_pub.add( ' ZERO AMOUNT FREIGHT NOT INTERFACED' , 5 ) ;
5807: END IF;
5808: ELSE
5809: Insert_Line(l_charges_rec
5810: ,x_return_status=>l_return_status);
5829: CLOSE Modified_Header_Charges_Cursor;
5830: x_return_status := FND_API.G_RET_STS_SUCCESS;
5831: END IF;
5832: IF l_debug_level > 0 THEN
5833: oe_debug_pub.add( 'EXITING INTERFACE_FREIGHT_CHARGES' , 5 ) ;
5834: END IF;
5835: EXCEPTION
5836: WHEN FND_API.G_EXC_ERROR THEN
5837: IF l_debug_level > 0 THEN
5834: END IF;
5835: EXCEPTION
5836: WHEN FND_API.G_EXC_ERROR THEN
5837: IF l_debug_level > 0 THEN
5838: oe_debug_pub.add( 'EXPECTED ERROR. EXITING INTERFACE_FREIGHT_CHARGES : '||SQLERRM , 1 ) ;
5839: END IF;
5840: x_return_status := FND_API.G_RET_STS_ERROR;
5841: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN -- Bug #3686558
5842: IF l_debug_level > 0 THEN
5839: END IF;
5840: x_return_status := FND_API.G_RET_STS_ERROR;
5841: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN -- Bug #3686558
5842: IF l_debug_level > 0 THEN
5843: OE_DEBUG_PUB.Add('Unable to lock the line',3);
5844: END IF;
5845: x_return_status := FND_API.G_RET_STS_SUCCESS;
5846: WHEN OTHERS THEN
5847: IF l_debug_level > 0 THEN
5844: END IF;
5845: x_return_status := FND_API.G_RET_STS_SUCCESS;
5846: WHEN OTHERS THEN
5847: IF l_debug_level > 0 THEN
5848: oe_debug_pub.add( 'EXCEPTION , INTERFACE_FREIGHT_CHARGES ( ) '||SQLERRM , 1 ) ;
5849: END IF;
5850: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5851: IF FND_MSG_PUB.Check_Msg_Level
5852: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5947: --l_cust_pay_method_id NUMBER;
5948: --bug6086340 Refix the fix for 5849568
5949: l_cust_pay_method_id NUMBER;
5950: L_ACCOUNTING_RULE_ID NUMBER;
5951: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5952: l_unround_amt NUMBER := 0; -- sol_ord_er #16014165
5953: --
5954: BEGIN
5955: IF l_debug_level > 0 THEN
5952: l_unround_amt NUMBER := 0; -- sol_ord_er #16014165
5953: --
5954: BEGIN
5955: IF l_debug_level > 0 THEN
5956: oe_debug_pub.add( 'ENTER PREPARE_INTERFACE_LINE_REC ( ) PROCEDURE ' , 5 ) ;
5957: END IF;
5958: l_interface_line_rec.request_id := p_x_interface_line_rec.request_id; --bug 4738947
5959: p_x_interface_line_rec := l_interface_line_rec; --bug 4738947
5960: l_delivery_line_id := Null;
5977: -- AND rownum = 1;
5978: EXCEPTION
5979: WHEN NO_DATA_FOUND THEN
5980: IF l_debug_level > 0 THEN
5981: oe_debug_pub.add( 'REACHING NO DATA FOUND. DELIVERY DETAILS NOT FOUND FOR THIS LINE..' , 1 ) ;
5982: END IF;
5983: p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE3 := '0';
5984: p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE4 := '0';
5985: p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE7 := '0';
5998: FROM wsh_new_deliveries dl
5999: WHERE dl.delivery_id = l_delivery_line_id;
6000:
6001: IF l_debug_level > 0 THEN
6002: oe_debug_pub.add( 'POPULATING BILL OF LADING NUMBER ..' , 5 ) ;
6003: END IF;
6004: SELECT wdi.sequence_number
6005: INTO p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE8
6006: FROM wsh_delivery_legs wdl,
6010: and wdl.delivery_id =l_delivery_line_id
6011: and wdi.status <> 'CANCELLED'
6012: and rownum=1;
6013: IF l_debug_level > 0 THEN
6014: oe_debug_pub.add( 'BILL OF LADING NUMBER IS POPULATED AS ..'||P_X_INTERFACE_LINE_REC.INTERFACE_LINE_ATTRIBUTE8 , 5 ) ;
6015: END IF;
6016: EXCEPTION
6017: WHEN NO_DATA_FOUND THEN
6018: IF l_debug_level > 0 THEN
6015: END IF;
6016: EXCEPTION
6017: WHEN NO_DATA_FOUND THEN
6018: IF l_debug_level > 0 THEN
6019: oe_debug_pub.add( 'NO DETAILS FOR BILL OF LADING NUMBER FOUND ...' , 5 ) ;
6020: END IF;
6021: p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE8 := '0';
6022: END;
6023: END IF;
6029:
6030: -- commented for bug 3661402
6031: /* BEGIN
6032: IF l_debug_level > 0 THEN
6033: 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 ) ;
6034: END IF;
6035: -- fix bug# 1382196
6036: IF l_ship_method_code IS NOT NULL THEN
6037: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110509' THEN
6075: -- AND rownum = 1;
6076: EXCEPTION
6077: WHEN NO_DATA_FOUND THEN
6078: IF l_debug_level > 0 THEN
6079: oe_debug_pub.add( 'REACHING NO DATA FOUND. DELIVERY DETAILS NOT FOUND FOR THIS LINE..' , 1 ) ;
6080: END IF;
6081: p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE3 := '0';
6082: p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE4 := '0';
6083: p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE7 := '0';
6096: WHERE dl.delivery_id = l_delivery_line_id;
6097:
6098:
6099: IF l_debug_level > 0 THEN
6100: oe_debug_pub.add( 'POPULATING BILL OF LADING NUMBER ..' , 5 ) ;
6101: END IF;
6102: SELECT substr(wdi.sequence_number,1,30)
6103: INTO p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE8
6104: FROM wsh_delivery_legs wdl,
6108: and wdl.delivery_id =l_delivery_line_id
6109: and wdi.status <> 'CANCELLED'
6110: and rownum=1;
6111: IF l_debug_level > 0 THEN
6112: oe_debug_pub.add( 'BILL OF LADING NUMBER IS POPULATED AS ..'||P_X_INTERFACE_LINE_REC.INTERFACE_LINE_ATTRIBUTE8 , 5 ) ;
6113: END IF;
6114: EXCEPTION
6115: WHEN NO_DATA_FOUND THEN
6116: IF l_debug_level > 0 THEN
6113: END IF;
6114: EXCEPTION
6115: WHEN NO_DATA_FOUND THEN
6116: IF l_debug_level > 0 THEN
6117: oe_debug_pub.add( 'NO DETAILS FOR BILL OF LADING NUMBER FOUND ...' , 5 ) ;
6118: END IF;
6119: p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE8 := '0';
6120: END;
6121:
6129: /* Added for the bug number 2988432 */
6130:
6131: /* BEGIN
6132: IF l_debug_level > 0 THEN
6133: 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 ) ;
6134: END IF;
6135: -- fix bug# 1382196
6136: IF l_ship_method_code IS NOT NULL THEN
6137: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110509' THEN
6175: <
6176:
6177: BEGIN
6178: IF l_debug_level > 0 THEN
6179: 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 ) ;
6180: END IF;
6181: IF l_ship_method_code IS NOT NULL THEN
6182: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110509' THEN
6183:
6209:
6210: /* 1847224 */
6211: IF l_delivery_line_id IS NULL THEN -- for Returns and non shippable lines
6212: IF l_debug_level > 0 THEN
6213: oe_debug_pub.add( 'NON SHIPPABLE OR RETURN LINE ' , 5 ) ;
6214: END IF;
6215: if p_line_rec.line_category_code <> 'RETURN' THEN
6216: IF l_debug_level > 0 THEN
6217: oe_debug_pub.add( 'THIS IS A NON-SHIPPABLE LINE..' , 5 ) ;
6213: oe_debug_pub.add( 'NON SHIPPABLE OR RETURN LINE ' , 5 ) ;
6214: END IF;
6215: if p_line_rec.line_category_code <> 'RETURN' THEN
6216: IF l_debug_level > 0 THEN
6217: oe_debug_pub.add( 'THIS IS A NON-SHIPPABLE LINE..' , 5 ) ;
6218: END IF;
6219:
6220: -- fixed bug 3435298
6221: -- for non-shippable line in a fulfillment set
6223: := OE_Line_Fullfill.Is_Part_Of_Fulfillment_Set
6224: (p_line_rec.line_id);
6225: IF l_fulfillment_set_flag = FND_API.G_TRUE THEN
6226: IF l_debug_level > 0 THEN
6227: oe_debug_pub.add( 'SETTING TRANSACTION DATE AS THE ACTUAL_SHIPMENT_DATE OF THE LAST SHIPPED ITEM IN THE SET. ' , 5 ) ;
6228: END IF;
6229:
6230: BEGIN
6231: SELECT max(actual_shipment_date)
6258: p_x_interface_line_rec.SHIP_DATE_ACTUAL := l_max_actual_shipment_date;
6259: -- for non-shippable line not in a fulfillment set
6260: ELSIF (fnd_profile.value('OE_RECEIVABLES_DATE_FOR_NONSHIP_LINES') = 'Y') THEN
6261: IF l_debug_level > 0 THEN
6262: oe_debug_pub.add( 'SETTING TRANSACTION DATE AS CURRENT DATE FOR THIS NONSHIP LINE ' , 5 ) ;
6263: END IF;
6264: p_x_interface_line_rec.SHIP_DATE_ACTUAL := SYSDATE;
6265:
6266: END IF;
6289:
6290: EXCEPTION
6291: WHEN OTHERS THEN
6292: IF l_debug_level > 0 THEN
6293: oe_debug_pub.add( 'SETTING SHIP_DATE_ACTUAL FOR DROPSHIP LINE TO SYSDATE' , 5 ) ;
6294: END IF;
6295: p_x_interface_line_rec.ship_date_actual := sysdate;
6296: END;
6297: IF l_debug_level > 0 THEN
6294: END IF;
6295: p_x_interface_line_rec.ship_date_actual := sysdate;
6296: END;
6297: IF l_debug_level > 0 THEN
6298: 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 ) ;
6299: END IF;
6300: END IF;
6301:
6302: -- Get information into p_x_interface_line_rec
6314:
6315:
6316: p_x_interface_line_rec.INTERFACE_LINE_CONTEXT := fnd_profile.value_specific('ONT_SOURCE_CODE',l_cur_user_id,l_cur_resp_id,l_cur_appl_id,null,null);
6317:
6318: oe_debug_pub.add('After Value Specific -' || p_x_interface_line_rec.INTERFACE_LINE_CONTEXT , 1 ) ;
6319:
6320: -- bug 8494362 end
6321: p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE1 := to_char(p_header_rec.order_number);
6322:
6341:
6342:
6343: IF p_line_rec.invoiced_quantity IS NOT NULL THEN
6344: IF l_debug_level > 0 THEN
6345: oe_debug_pub.add( 'THIS LINE WAS INTERFACED ATLEAST ONCE BEFORE' , 5 ) ;
6346: END IF;
6347: SELECT count(*)
6348: INTO l_count1
6349: FROM ra_interface_lines_all
6364: AND sales_order = p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE1;
6365: END IF;
6366: p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE5 := l_count1 + l_count2 ; -- no of times this line is interfaced to AR
6367: IF l_debug_level > 0 THEN
6368: oe_debug_pub.add( 'INTERFACE_LINE_ATTRIBUTE5: '|| P_X_INTERFACE_LINE_REC.INTERFACE_LINE_ATTRIBUTE5 , 5 ) ;
6369: END IF;
6370:
6371: --rt{ Retrobilling change
6372: IF (p_line_rec.line_category_code = 'RETURN'
6384: WHERE customer_item_id = p_line_rec.ordered_item_id;
6385: EXCEPTION
6386: WHEN OTHERS THEN
6387: IF l_debug_level > 0 THEN
6388: oe_debug_pub.add( 'EXCEPTION , POPULATING ATTRIBUTE9 AS 0 =>'||SQLERRM , 1 ) ;
6389: END IF;
6390: p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE9 := '0';
6391: END;
6392: IF l_debug_level > 0 THEN
6389: END IF;
6390: p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE9 := '0';
6391: END;
6392: IF l_debug_level > 0 THEN
6393: oe_debug_pub.add( 'GETTING CUSTOMER ITEM NUMBER: '|| P_X_INTERFACE_LINE_REC.INTERFACE_LINE_ATTRIBUTE9 ) ;
6394: END IF;
6395: ELSE
6396: p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE9 := '0';
6397: END IF;
6409: /* concaternated string for item description */
6410:
6411: IF p_line_rec.order_quantity_uom in ('EVT','ENR') THEN
6412: IF l_debug_level > 0 THEN
6413: oe_debug_pub.add( 'GETTING THE OTA DESCRIPTION' , 5 ) ;
6414: END IF;
6415:
6416: IF p_line_rec.line_category_code = 'RETURN' and
6417: p_line_rec.reference_line_id is not null then
6416: IF p_line_rec.line_category_code = 'RETURN' and
6417: p_line_rec.reference_line_id is not null then
6418:
6419: IF l_debug_level > 0 THEN
6420: oe_debug_pub.add( 'GETTING THE OTA DESCRIPTION FOR RETURN' , 5 ) ;
6421: END IF;
6422:
6423: OE_OTA_UTIL.Get_OTA_Description
6424: (p_line_id => p_line_rec.reference_line_id
6428: ,x_return_status => l_return_status
6429: );
6430: p_x_interface_line_rec.DESCRIPTION := l_item_description;
6431: IF l_debug_level > 0 THEN
6432: oe_debug_pub.add( 'OTA DESCRIPTION' || L_ITEM_DESCRIPTION , 5 ) ;
6433: END IF;
6434: p_x_interface_line_rec.GL_DATE := l_course_end_date;
6435:
6436: ELSE
6443: ,x_return_status => l_return_status
6444: );
6445: p_x_interface_line_rec.DESCRIPTION := l_item_description;
6446: IF l_debug_level > 0 THEN
6447: oe_debug_pub.add( 'OTA DESCRIPTION' || L_ITEM_DESCRIPTION , 5 ) ;
6448: END IF;
6449: p_x_interface_line_rec.GL_DATE := l_course_end_date;
6450:
6451: END IF;
6470: p_x_interface_line_rec.CURRENCY_CODE := p_header_rec.transactional_curr_code;
6471: --END IF;
6472: IF p_line_rec.Commitment_Id IS NOT NULL THEN
6473: IF l_debug_level > 0 THEN
6474: oe_debug_pub.add( 'GETTING CUST_TRX_TYPE_ID FROM COMMITMENT: '||P_LINE_REC.COMMITMENT_ID , 5 ) ;
6475: END IF;
6476: SELECT NVL(cust_type.subsequent_trx_type_id,cust_type.cust_trx_type_id)
6477: INTO p_x_interface_line_rec.Cust_Trx_Type_Id
6478: FROM ra_cust_trx_types cust_type,ra_customer_trx_all cust_trx /* MOAC SQL CHANGE */
6478: FROM ra_cust_trx_types cust_type,ra_customer_trx_all cust_trx /* MOAC SQL CHANGE */
6479: WHERE cust_type.cust_trx_type_id = cust_trx.cust_trx_type_id
6480: AND cust_trx.customer_trx_id = p_line_rec.Commitment_Id;
6481: IF l_debug_level > 0 THEN
6482: oe_debug_pub.add( 'CUST_TRX_TYPE_ID FROM COMMITMENT IS '||P_X_INTERFACE_LINE_REC.CUST_TRX_TYPE_ID ) ;
6483: END IF;
6484: ELSE
6485: p_x_interface_line_rec.Cust_Trx_Type_Id := Get_Customer_Transaction_Type(p_line_rec);
6486: END IF;
6488: IF NOT Return_Line(p_line_rec) THEN
6489: IF OE_PrePayment_Util.Is_Prepaid_Order(p_header_rec) = 'Y' THEN
6490: -- p_x_interface_line_rec.Term_Id := p_header_rec.payment_term_id;
6491: IF l_debug_level > 0 THEN
6492: oe_debug_pub.add( 'GETTING PAYMENT_SET_ID FROM OE_PAYMENTS' ) ;
6493: END IF;
6494: BEGIN
6495: --serla begin
6496: IF OE_PrePayment_UTIL.IS_MULTIPLE_PAYMENTS_ENABLED THEN
6517: WHEN TOO_MANY_ROWS THEN
6518: p_x_interface_line_rec.Payment_Set_ID := NULL;
6519: END;
6520: IF l_debug_level > 0 THEN
6521: oe_debug_pub.add( 'AFTER GETTING PAYMENT_SET_ID: '||P_X_INTERFACE_LINE_REC.PAYMENT_SET_ID ) ;
6522: END IF;
6523: p_x_interface_line_rec.approval_code := NULL;
6524: -- ELSE
6525: -- p_x_interface_line_rec.Term_Id := p_line_rec.payment_term_id;
6529: /* END PREPAYMENT */
6530: Get_Qty_To_Invoice(p_line_rec, p_x_interface_line_rec.QUANTITY, x_result_code);
6531: -- sol_ord_er #16014165
6532: IF l_debug_level > 0 THEN
6533: oe_debug_pub.add( 'Service Billing Option: '||p_line_rec.service_bill_option_code , 5 ) ;
6534: END IF;
6535: -- sol_ord_er #16014165
6536: IF OE_Commitment_Pvt.DO_Commitment_Sequencing THEN-- commitment sequencing functionality ON
6537: IF p_line_rec.commitment_id IS NOT NULL THEN
6539: ,l_commitment_applied
6540: ,l_commitment_interfaced);
6541: IF x_result_code = 'RFR-PENDING' THEN
6542: IF l_debug_level > 0 THEN
6543: oe_debug_pub.add( 'GET PARTIAL PROMISED AMOUNT FOR PARTIALLY INVOICED LINE' , 5 ) ;
6544: END IF;
6545: Rounded_Amount(p_currency_code => p_x_interface_line_rec.currency_code
6546: ,p_unrounded_amount => (p_line_rec.unit_selling_price * p_x_interface_line_rec.quantity)
6547: ,x_rounded_amount => l_partial_line_amount);
6556: AND nvl(invoiced_flag, 'N') = 'N';
6557: END IF;
6558:
6559: IF l_debug_level > 0 THEN
6560: 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 ) ;
6561: END IF;
6562: l_partial_line_promised_amount := l_partial_line_amount + l_partial_line_tax_amount + l_partial_line_freight_amount;
6563: IF (l_commitment_applied-l_commitment_interfaced) >= l_partial_line_promised_amount THEN
6564: p_x_interface_line_rec.promised_commitment_amount := l_partial_line_promised_amount;
6562: l_partial_line_promised_amount := l_partial_line_amount + l_partial_line_tax_amount + l_partial_line_freight_amount;
6563: IF (l_commitment_applied-l_commitment_interfaced) >= l_partial_line_promised_amount THEN
6564: p_x_interface_line_rec.promised_commitment_amount := l_partial_line_promised_amount;
6565: IF l_debug_level > 0 THEN
6566: oe_debug_pub.add( 'RFR- PASS FULL AMOUNT FOR THIS INTERFACE: '|| P_X_INTERFACE_LINE_REC.PROMISED_COMMITMENT_AMOUNT , 3 ) ;
6567: END IF;
6568: ELSE
6569: p_x_interface_line_rec.promised_commitment_amount := l_commitment_applied-l_commitment_interfaced;
6570: IF l_debug_level > 0 THEN
6567: END IF;
6568: ELSE
6569: p_x_interface_line_rec.promised_commitment_amount := l_commitment_applied-l_commitment_interfaced;
6570: IF l_debug_level > 0 THEN
6571: oe_debug_pub.add( 'PASS PARTIAL AMOUNT FOR THIS INTERFACE: ' ||P_X_INTERFACE_LINE_REC.PROMISED_COMMITMENT_AMOUNT , 3 ) ;
6572: END IF;
6573: END IF;
6574: ELSE
6575: p_x_interface_line_rec.PROMISED_COMMITMENT_AMOUNT := l_commitment_applied-l_commitment_interfaced;
6573: END IF;
6574: ELSE
6575: p_x_interface_line_rec.PROMISED_COMMITMENT_AMOUNT := l_commitment_applied-l_commitment_interfaced;
6576: IF l_debug_level > 0 THEN
6577: oe_debug_pub.add( 'NOT RFR- PROMISED_COMMITMENT_AMOUNT: '|| P_X_INTERFACE_LINE_REC.PROMISED_COMMITMENT_AMOUNT ) ;
6578: END IF;
6579: END IF;
6580: END IF;
6581: END IF; -- end of commitment sequencing functionality ON
6605: p_x_interface_line_rec.Quantity_Ordered := p_line_rec.Ordered_Quantity;
6606: -- Get Creation_sign
6607: l_creation_sign := Get_Credit_Creation_Sign(p_line_rec, p_x_interface_line_rec.cust_trx_type_id);
6608: IF l_debug_level > 0 THEN
6609: oe_debug_pub.add( ' CREATION SIGN IS '|| L_CREATION_SIGN , 5 ) ;
6610: END IF;
6611:
6612: IF l_creation_sign = 'A' THEN
6613: IF Return_Line(p_line_rec) THEN
6611:
6612: IF l_creation_sign = 'A' THEN
6613: IF Return_Line(p_line_rec) THEN
6614: IF l_debug_level > 0 THEN
6615: oe_debug_pub.add( 'SETTING -VE SIGN FOR RETURN LINE' , 5 ) ;
6616: END IF;
6617: p_x_interface_line_rec.Amount := p_x_interface_line_rec.amount * -1;
6618: p_x_interface_line_rec.Quantity := p_x_interface_line_rec.Quantity * -1;
6619: p_x_interface_line_rec.Quantity_Ordered := p_line_rec.Ordered_Quantity * -1;
6626: p_x_interface_line_rec.Quantity_Ordered := p_line_rec.Ordered_Quantity * -1;
6627: END IF;
6628:
6629: IF l_debug_level > 0 THEN
6630: oe_debug_pub.add( 'LINE UNIT SELLING PRICE: '||P_X_INTERFACE_LINE_REC.UNIT_SELLING_PRICE , 5 ) ;
6631: oe_debug_pub.add( 'LINE UNIT STANDARD PRICE: '||P_X_INTERFACE_LINE_REC.UNIT_STANDARD_PRICE , 5 ) ;
6632: oe_debug_pub.add( 'LINE AMOUNT: '||P_X_INTERFACE_LINE_REC.AMOUNT ) ;
6633: END IF;
6634:
6627: END IF;
6628:
6629: IF l_debug_level > 0 THEN
6630: oe_debug_pub.add( 'LINE UNIT SELLING PRICE: '||P_X_INTERFACE_LINE_REC.UNIT_SELLING_PRICE , 5 ) ;
6631: oe_debug_pub.add( 'LINE UNIT STANDARD PRICE: '||P_X_INTERFACE_LINE_REC.UNIT_STANDARD_PRICE , 5 ) ;
6632: oe_debug_pub.add( 'LINE AMOUNT: '||P_X_INTERFACE_LINE_REC.AMOUNT ) ;
6633: END IF;
6634:
6635: -- invoice_to_org_id is required at booking
6628:
6629: IF l_debug_level > 0 THEN
6630: oe_debug_pub.add( 'LINE UNIT SELLING PRICE: '||P_X_INTERFACE_LINE_REC.UNIT_SELLING_PRICE , 5 ) ;
6631: oe_debug_pub.add( 'LINE UNIT STANDARD PRICE: '||P_X_INTERFACE_LINE_REC.UNIT_STANDARD_PRICE , 5 ) ;
6632: oe_debug_pub.add( 'LINE AMOUNT: '||P_X_INTERFACE_LINE_REC.AMOUNT ) ;
6633: END IF;
6634:
6635: -- invoice_to_org_id is required at booking
6636: IF p_line_rec.invoice_to_org_id IS NOT NULL THEN
6634:
6635: -- invoice_to_org_id is required at booking
6636: IF p_line_rec.invoice_to_org_id IS NOT NULL THEN
6637: IF l_debug_level > 0 THEN
6638: oe_debug_pub.add( 'GETTING ORIG_SYSTEM_BILL_CUSTOMER_ID , ORIG_SYSTEM_BILL_ADDRESS_ID INFO' , 5 ) ;
6639: END IF;
6640: BEGIN
6641: /* Commented for bug #3519137 added new select statement */
6642: /*SELECT bill_to_org.customer_id
6656:
6657: EXCEPTION
6658: WHEN OTHERS THEN
6659: IF l_debug_level > 0 THEN
6660: oe_debug_pub.add( 'EXCEPTION , '||SQLERRM , 1 ) ;
6661: END IF;
6662: p_x_interface_line_rec.ORIG_SYSTEM_BILL_CUSTOMER_ID := NULL;
6663: p_x_interface_line_rec.ORIG_SYSTEM_BILL_ADDRESS_ID := NULL;
6664: END;
6665: END IF;
6666: -- ship_to_org_id is not required at booking for return lines
6667: IF p_line_rec.ship_to_org_id IS NOT NULL THEN
6668: IF l_debug_level > 0 THEN
6669: oe_debug_pub.add( 'GETTING ORIG_SYSTEM_SHIP_CUSTOMER_ID , ORIG_SYSTEM_SHIP_ADDRESS_ID INFO' ) ;
6670: END IF;
6671: BEGIN
6672: /* Commented for bug #3519137 added new select statement */
6673: /*SELECT ship_to_org.customer_id
6687:
6688: EXCEPTION
6689: WHEN OTHERS THEN
6690: IF l_debug_level > 0 THEN
6691: oe_debug_pub.add( 'EXCEPTION , '||SQLERRM , 1 ) ;
6692: END IF;
6693: p_x_interface_line_rec.ORIG_SYSTEM_SHIP_CUSTOMER_ID := NULL;
6694: l_orig_sys_ship_addr_id := NULL;
6695: END;
6709:
6710: IF p_header_rec.conversion_type_code IS NOT NULL THEN
6711: l_set_of_books_rec := OE_Order_Cache.Load_Set_Of_Books;
6712: IF l_debug_level > 0 THEN
6713: oe_debug_pub.add( 'SOB CURRENCY: '||L_SET_OF_BOOKS_REC.CURRENCY_CODE||' TRANSACTIONAL CURRENCY: '||P_HEADER_REC.TRANSACTIONAL_CURR_CODE ) ;
6714: END IF;
6715: IF p_header_rec.transactional_curr_code = l_set_of_books_rec.currency_code THEN
6716: p_x_interface_line_rec.conversion_type := 'User';
6717: p_x_interface_line_rec.conversion_rate := 1;
6754: EXCEPTION WHEN OTHERS THEN
6755: l_user_id := NULL;
6756: l_resp_id := NULL;
6757: l_appl_id := NULL;
6758: OE_DEBUG_PUB.add('Unable to find item attributes while searching for Tax Code profile value : '||sqlerrm,1);
6759: NULL;
6760: END;
6761:
6762: OE_DEBUG_PUB.add('Tax code value on the Order Line '||p_line_rec.tax_code,5);
6758: OE_DEBUG_PUB.add('Unable to find item attributes while searching for Tax Code profile value : '||sqlerrm,1);
6759: NULL;
6760: END;
6761:
6762: OE_DEBUG_PUB.add('Tax code value on the Order Line '||p_line_rec.tax_code,5);
6763: OE_DEBUG_PUB.add('ID => User,Resp,Appl : '||l_user_id||','||l_resp_id||','||l_appl_id,5);
6764:
6765: -- 3757279
6766: l_concat_segment := 'u'||l_user_id||'r'||l_resp_id||'a'||l_appl_id;
6759: NULL;
6760: END;
6761:
6762: OE_DEBUG_PUB.add('Tax code value on the Order Line '||p_line_rec.tax_code,5);
6763: OE_DEBUG_PUB.add('ID => User,Resp,Appl : '||l_user_id||','||l_resp_id||','||l_appl_id,5);
6764:
6765: -- 3757279
6766: l_concat_segment := 'u'||l_user_id||'r'||l_resp_id||'a'||l_appl_id;
6767: oe_debug_pub.add('l_concat_segment'||l_concat_segment,1);
6763: OE_DEBUG_PUB.add('ID => User,Resp,Appl : '||l_user_id||','||l_resp_id||','||l_appl_id,5);
6764:
6765: -- 3757279
6766: l_concat_segment := 'u'||l_user_id||'r'||l_resp_id||'a'||l_appl_id;
6767: oe_debug_pub.add('l_concat_segment'||l_concat_segment,1);
6768: l_table_index := FIND(l_concat_segment);
6769: IF l_table_index < TABLE_SIZE THEN
6770: IF l_debug_level > 0 THEN
6771: --oe_debug_pub.add( 'cached FND PROFILE AR_ALLOW_TAX_CODE_OVERRIDE: '||Prf_Tbl(l_table_index).prf_value,1);
6767: oe_debug_pub.add('l_concat_segment'||l_concat_segment,1);
6768: l_table_index := FIND(l_concat_segment);
6769: IF l_table_index < TABLE_SIZE THEN
6770: IF l_debug_level > 0 THEN
6771: --oe_debug_pub.add( 'cached FND PROFILE AR_ALLOW_TAX_CODE_OVERRIDE: '||Prf_Tbl(l_table_index).prf_value,1);
6772: oe_debug_pub.add( 'cached FND PROFILE ZX_ALLOW_TAX_CLASSIF_OVERRIDE: '||Prf_Tbl(l_table_index).prf_value,1);
6773: END IF;
6774: l_prof_value := Prf_Tbl(l_table_index).prf_value;
6775: ELSE
6768: l_table_index := FIND(l_concat_segment);
6769: IF l_table_index < TABLE_SIZE THEN
6770: IF l_debug_level > 0 THEN
6771: --oe_debug_pub.add( 'cached FND PROFILE AR_ALLOW_TAX_CODE_OVERRIDE: '||Prf_Tbl(l_table_index).prf_value,1);
6772: oe_debug_pub.add( 'cached FND PROFILE ZX_ALLOW_TAX_CLASSIF_OVERRIDE: '||Prf_Tbl(l_table_index).prf_value,1);
6773: END IF;
6774: l_prof_value := Prf_Tbl(l_table_index).prf_value;
6775: ELSE
6776: put(l_concat_segment,l_user_id,l_resp_id,l_appl_id,l_prof_value);
6774: l_prof_value := Prf_Tbl(l_table_index).prf_value;
6775: ELSE
6776: put(l_concat_segment,l_user_id,l_resp_id,l_appl_id,l_prof_value);
6777: IF l_debug_level > 0 THEN
6778: --oe_debug_pub.add( ' Uncached first time FND PROFILE AR_ALLOW_TAX_CODE_OVERRIDE: '||l_prof_value,1);
6779: oe_debug_pub.add( ' Uncached first time FND PROFILE ZX_ALLOW_TAX_CLASSIF_OVERRIDE: '||l_prof_value,1);
6780: END IF;
6781: END IF;
6782: -- 3757279
6775: ELSE
6776: put(l_concat_segment,l_user_id,l_resp_id,l_appl_id,l_prof_value);
6777: IF l_debug_level > 0 THEN
6778: --oe_debug_pub.add( ' Uncached first time FND PROFILE AR_ALLOW_TAX_CODE_OVERRIDE: '||l_prof_value,1);
6779: oe_debug_pub.add( ' Uncached first time FND PROFILE ZX_ALLOW_TAX_CLASSIF_OVERRIDE: '||l_prof_value,1);
6780: END IF;
6781: END IF;
6782: -- 3757279
6783:
6783:
6784: IF NVL(l_prof_value,'N') = 'Y' THEN
6785: p_x_interface_line_rec.Tax_code := p_line_rec.Tax_code;
6786: END IF;
6787: OE_DEBUG_PUB.add('Tax Code interfaced to AR is : '||p_line_rec.Tax_Code,1);
6788:
6789: -- Changes for 3144768 End
6790: IF Return_Line(p_line_rec) THEN
6791: IF l_debug_level > 0 THEN
6788:
6789: -- Changes for 3144768 End
6790: IF Return_Line(p_line_rec) THEN
6791: IF l_debug_level > 0 THEN
6792: oe_debug_pub.add( 'SETTING INFORMATION FOR RETURN LINE' , 5 ) ;
6793: END IF;
6794: p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE3 := '0';
6795: p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE4 := '0';
6796: p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE7 := '0';
6851: p_x_interface_line_rec.Waybill_Number := p_x_interface_line_rec.Interface_line_Attribute4;
6852: -- 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???
6853: IF p_line_rec.Commitment_Id IS NOT NULL THEN
6854: IF l_debug_level > 0 THEN
6855: oe_debug_pub.add( 'REFERENCE_LINE_ID FROM COMMITMENT ID IS '||P_LINE_REC.COMMITMENT_ID ) ;
6856: END IF;
6857: SELECT customer_trx_line_id
6858: INTO p_x_interface_line_rec.Reference_Line_Id
6859: FROM ra_customer_trx_lines_all
6873: -- Right now, it is in units of Months.
6874: -- But, Autoinvoice uses accounting rule's period.
6875: IF NOT Return_Line(p_line_rec) AND p_x_interface_line_rec.accounting_rule_id IS NOT NULL THEN
6876: IF l_debug_level > 0 THEN
6877: oe_debug_pub.add( 'GET ACCOUNTING RULE TYPE ' , 5 ) ;
6878: END IF;
6879: --Modified for bug#4190312
6880: SELECT type,frequency
6881: INTO l_accounting_rule_type, l_frequency
6884: IF l_accounting_rule_type = 'ACC_DUR' THEN
6885: -- accounting rule duration is required for regular (non service) lines at booking
6886: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
6887: IF l_debug_level > 0 THEN
6888: oe_debug_pub.add( 'INTERFACING ACCOUNTING_RULE_DURATION FOR REGULAR LINES:'|| P_LINE_REC.ACCOUNTING_RULE_DURATION ) ;
6889: END IF;
6890: p_x_interface_line_rec.ACCOUNTING_RULE_DURATION := p_line_rec.accounting_rule_duration;
6891: ELSE
6892: IF l_debug_level > 0 THEN
6889: END IF;
6890: p_x_interface_line_rec.ACCOUNTING_RULE_DURATION := p_line_rec.accounting_rule_duration;
6891: ELSE
6892: IF l_debug_level > 0 THEN
6893: oe_debug_pub.add( 'BELOW PACK I , DO NOT INTERFACE DURATION' ) ;
6894: END IF;
6895: p_x_interface_line_rec.ACCOUNTING_RULE_DURATION := NULL;
6896: END IF;
6897: IF p_line_rec.item_type_code = 'SERVICE' THEN
6906: -- bug# 4190312 post message and complete with status INCOMPLETE
6907: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_ACCT_RULE_DURATION');
6908: OE_MSG_PUB.ADD;
6909: IF l_debug_level > 0 THEN
6910: oe_debug_pub.add( 'SERVICE START DATE OR SERVICE END DATE IS NULL' , 3 ) ;
6911: END IF;
6912: p_x_interface_line_rec.ACCOUNTING_RULE_DURATION := -1;
6913: ELSE
6914: BEGIN
6925: WHERE set_of_books_id = p_x_interface_line_rec.SET_OF_BOOKS_ID;
6926:
6927: -- sol_ord_er #16014165
6928: IF l_debug_level > 0 THEN
6929: oe_debug_pub.add( 'SK_OEXPINVB Before act rule duration SFPED= '
6930: ||p_line_rec.service_first_period_enddate , 3 ) ;
6931: END IF;
6932: -- sol_ord_er #16014165
6933:
6942: return_code => l_return_code,
6943: unmapped_date => l_unmapped_date);
6944:
6945: IF l_debug_level > 0 THEN
6946: oe_debug_pub.add('l_acct_rule_duration:'||l_acct_rule_duration);
6947: oe_debug_pub.add('l_return_code:'||l_return_code);
6948: oe_debug_pub.add('l_unmapped_date:'||l_unmapped_date);
6949: END IF;
6950: IF l_return_code = 'SUCCESS' THEN
6943: unmapped_date => l_unmapped_date);
6944:
6945: IF l_debug_level > 0 THEN
6946: oe_debug_pub.add('l_acct_rule_duration:'||l_acct_rule_duration);
6947: oe_debug_pub.add('l_return_code:'||l_return_code);
6948: oe_debug_pub.add('l_unmapped_date:'||l_unmapped_date);
6949: END IF;
6950: IF l_return_code = 'SUCCESS' THEN
6951: p_x_interface_line_rec.ACCOUNTING_RULE_DURATION := l_acct_rule_duration;
6944:
6945: IF l_debug_level > 0 THEN
6946: oe_debug_pub.add('l_acct_rule_duration:'||l_acct_rule_duration);
6947: oe_debug_pub.add('l_return_code:'||l_return_code);
6948: oe_debug_pub.add('l_unmapped_date:'||l_unmapped_date);
6949: END IF;
6950: IF l_return_code = 'SUCCESS' THEN
6951: p_x_interface_line_rec.ACCOUNTING_RULE_DURATION := l_acct_rule_duration;
6952: ELSE
6958: FND_MESSAGE.SET_TOKEN('END_DATE', NVL(p_line_rec.service_first_period_enddate,p_line_rec.service_end_date));
6959: FND_MESSAGE.SET_TOKEN('CALENDAR_NAME', l_calendar_name);
6960: OE_MSG_PUB.ADD;
6961: IF l_debug_level > 0 THEN
6962: oe_debug_pub.add('Atleast one or more dates ('||l_unmapped_date||') within the date range that are not associated with any adjustment period.');
6963: END IF;
6964: END IF;
6965: EXCEPTION
6966: WHEN OTHERS THEN
6972: FND_MESSAGE.SET_TOKEN('END_DATE', NVL(p_line_rec.service_first_period_enddate,p_line_rec.service_end_date));
6973: FND_MESSAGE.SET_TOKEN('CALENDAR_NAME', l_calendar_name);
6974: OE_MSG_PUB.ADD;
6975: IF l_debug_level > 0 THEN
6976: oe_debug_pub.add( 'ERROR IN GL_CALENDAR_PKG.Get_Num_Periods_In_Date_Range ; ERROR => '||SQLERRM , 1 ) ;
6977: END IF;
6978: END;
6979: END IF; -- end of service service start/end dates
6980: END IF; -- null accounting_rule_duaration
6982: ELSE -- fixed accounting rule
6983: -- Pass rule_start_date for service lines for fixed rules also (as it was before change for variable accounting rules)
6984: IF p_line_rec.item_type_code = 'SERVICE'
6985: OR (l_accounting_rule_type = 'PP_DR_ALL' OR l_accounting_rule_type = 'PP_DR_PP')THEN -- webroot bug 6826344 modified the contition
6986: oe_debug_pub.add( 'Start date assigned: l_accounting_rule_type: ' || l_accounting_rule_type) ;
6987: p_x_interface_line_rec.rule_start_date := p_line_rec.service_start_date; -- 1833680
6988: --PP Revenue Recognition
6989: --bug 4893057
6990: --Need to pass the rule end date for partial revenue recognition enhancement
6990: --Need to pass the rule end date for partial revenue recognition enhancement
6991: --bug 5608550 Need to pass the rule end date ONLY for partial revenue recognition
6992: IF ((l_accounting_rule_type = 'PP_DR_ALL') OR (l_accounting_rule_type = 'PP_DR_PP')) THEN
6993:
6994: oe_debug_pub.add( 'End date assigned: l_accounting_rule_type: ' || l_accounting_rule_type) ;
6995: --p_x_interface_line_rec.rule_end_date := p_line_rec.service_end_date; -- sol_ord_er #16014165
6996: p_x_interface_line_rec.rule_end_date := NVL(p_line_rec.service_first_period_enddate,p_line_rec.service_end_date);
6997: END IF;
6998: END IF;
6999: END IF; -- variable/fixed accounting rule
7000: END IF;
7001:
7002: IF l_debug_level > 0 THEN
7003: oe_debug_pub.add( 'GET ATTRIBUTE VALUES' , 5 ) ;
7004: END IF;
7005: p_x_interface_line_rec.Attribute_Category := p_line_rec.Context;
7006: p_x_interface_line_rec.Attribute1 := substrb(p_line_rec.Attribute1, 1, 150);
7007: p_x_interface_line_rec.Attribute2 := substrb(p_line_rec.Attribute2, 1, 150);
7042: p_x_interface_line_rec.Tax_Exempt_Reason_Code := p_line_rec.Tax_Exempt_Reason_Code;
7043: p_x_interface_line_rec.Org_id := p_line_rec.Org_id;
7044:
7045: IF l_debug_level > 0 THEN
7046: oe_debug_pub.add( 'GET DEFAULT TERRITORY' , 5 ) ;
7047: END IF;
7048:
7049: IF oe_code_control.code_release_level < '110510' THEN
7050: SELECT asp.default_territory
7057: END IF;
7058:
7059: -- Get territory information into p_x_interface_line_rec
7060: IF l_debug_level > 0 THEN
7061: oe_debug_pub.add( 'PREPARE TERRITORY INFORMATION. l_territory_code: ' ||l_territory_code, 5 ) ;
7062: END IF;
7063: OE_DEBUG_PUB.DUMPDEBUG;
7064:
7065: p_x_interface_line_rec.territory_id := 0;
7059: -- Get territory information into p_x_interface_line_rec
7060: IF l_debug_level > 0 THEN
7061: oe_debug_pub.add( 'PREPARE TERRITORY INFORMATION. l_territory_code: ' ||l_territory_code, 5 ) ;
7062: END IF;
7063: OE_DEBUG_PUB.DUMPDEBUG;
7064:
7065: p_x_interface_line_rec.territory_id := 0;
7066:
7067: IF (l_territory_code = 'SALES') THEN
7082: FROM hz_cust_site_uses sus
7083: WHERE sus.site_use_id = p_line_rec.ship_to_org_id;
7084: END IF;
7085: IF l_debug_level > 0 THEN
7086: oe_debug_pub.add( 'territory_id:'|| p_x_interface_line_rec.territory_id , 5 ) ;
7087: END IF;
7088: IF (p_x_interface_line_rec.territory_id > 0) THEN
7089: SELECT terr.segment1
7090: ,terr.segment2
7132: IF p_x_interface_line_rec.territory_id = 0 THEN
7133: p_x_interface_line_rec.territory_id := NULL;
7134: END IF;
7135: IF l_debug_level > 0 THEN
7136: oe_debug_pub.add( 'FINISH TERRITORY' , 5 ) ;
7137: END IF;
7138: p_x_interface_line_rec.Batch_Source_Name := Get_Invoice_source(p_line_rec, p_x_interface_line_rec);
7139: IF l_debug_level > 0 THEN
7140: oe_debug_pub.add( 'BATCH SOURCE NAME : '||P_X_INTERFACE_LINE_REC.BATCH_SOURCE_NAME ) ;
7136: oe_debug_pub.add( 'FINISH TERRITORY' , 5 ) ;
7137: END IF;
7138: p_x_interface_line_rec.Batch_Source_Name := Get_Invoice_source(p_line_rec, p_x_interface_line_rec);
7139: IF l_debug_level > 0 THEN
7140: oe_debug_pub.add( 'BATCH SOURCE NAME : '||P_X_INTERFACE_LINE_REC.BATCH_SOURCE_NAME ) ;
7141: END IF;
7142: IF p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE3 = '0' THEN
7143: IF p_x_interface_line_rec.REQUEST_ID IS NOT NULL THEN
7144: IF l_debug_level > 0 THEN
7141: END IF;
7142: IF p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE3 = '0' THEN
7143: IF p_x_interface_line_rec.REQUEST_ID IS NOT NULL THEN
7144: IF l_debug_level > 0 THEN
7145: oe_debug_pub.add( 'SET REQUEST_ID TO NULL FOR NON DELIVERY LINES' , 5 ) ;
7146: END IF;
7147: p_x_interface_line_rec.REQUEST_ID := NULL;
7148: END IF;
7149: END IF;
7204: END IF;
7205: END IF;
7206: --Customer Acceptance
7207: IF l_debug_level > 0 THEN
7208: oe_debug_pub.add( 'START CREDIT CARD PROCESSING' , 5 ) ;
7209: END IF;
7210: --serla begin
7211: IF NOT OE_PREPAYMENT_UTIL.IS_MULTIPLE_PAYMENTS_ENABLED THEN
7212: --serla end
7213: -- Check if the Line has an associated Credit Card Payment
7214: IF p_header_rec.credit_card_number is NOT NULL AND
7215: NOT Return_Line(p_line_rec) THEN /* Bug #3463843 */
7216: IF l_debug_level > 0 THEN
7217: oe_debug_pub.add( 'CREDIT CARD INFO EXISTS' , 5 ) ;
7218: -- Fix for Bug # 1586750.
7219: -- Get the Customer Id for Invoice To Org at the Header Level.
7220: oe_debug_pub.add( 'GET CUSTOMER ID FOR INVOICE TO ORG AT HEADER' , 5 ) ;
7221: END IF;
7216: IF l_debug_level > 0 THEN
7217: oe_debug_pub.add( 'CREDIT CARD INFO EXISTS' , 5 ) ;
7218: -- Fix for Bug # 1586750.
7219: -- Get the Customer Id for Invoice To Org at the Header Level.
7220: oe_debug_pub.add( 'GET CUSTOMER ID FOR INVOICE TO ORG AT HEADER' , 5 ) ;
7221: END IF;
7222:
7223: BEGIN
7224: /* Commented for bug #3519137 added new select statement */
7236:
7237: EXCEPTION
7238: WHEN OTHERS THEN
7239: IF l_debug_level > 0 THEN
7240: oe_debug_pub.add( 'INVOICE TO CUSTOMER ID : '||L_HDR_INV_TO_CUST_ID , 1 ) ;
7241: oe_debug_pub.add( 'ORGANIZATION ID : '||P_HEADER_REC.INVOICE_TO_ORG_ID , 1 ) ;
7242: oe_debug_pub.add( 'IN OTHERS EXCEPTION ( OE_INVOICE_TO_ORGS_V ) '||SQLERRM , 1 ) ;
7243: END IF;
7244: END;
7237: EXCEPTION
7238: WHEN OTHERS THEN
7239: IF l_debug_level > 0 THEN
7240: oe_debug_pub.add( 'INVOICE TO CUSTOMER ID : '||L_HDR_INV_TO_CUST_ID , 1 ) ;
7241: oe_debug_pub.add( 'ORGANIZATION ID : '||P_HEADER_REC.INVOICE_TO_ORG_ID , 1 ) ;
7242: oe_debug_pub.add( 'IN OTHERS EXCEPTION ( OE_INVOICE_TO_ORGS_V ) '||SQLERRM , 1 ) ;
7243: END IF;
7244: END;
7245: -- Calling Process Customer Bank Account
7238: WHEN OTHERS THEN
7239: IF l_debug_level > 0 THEN
7240: oe_debug_pub.add( 'INVOICE TO CUSTOMER ID : '||L_HDR_INV_TO_CUST_ID , 1 ) ;
7241: oe_debug_pub.add( 'ORGANIZATION ID : '||P_HEADER_REC.INVOICE_TO_ORG_ID , 1 ) ;
7242: oe_debug_pub.add( 'IN OTHERS EXCEPTION ( OE_INVOICE_TO_ORGS_V ) '||SQLERRM , 1 ) ;
7243: END IF;
7244: END;
7245: -- Calling Process Customer Bank Account
7246: IF l_debug_level > 0 THEN
7243: END IF;
7244: END;
7245: -- Calling Process Customer Bank Account
7246: IF l_debug_level > 0 THEN
7247: oe_debug_pub.add( 'BEFORE CALLING AR PACKAGE PROCESS_CUST_BANK_ACCOUNT ( ) ' , 5 ) ;
7248: END IF;
7249: --
7250: l_trx_date := nvl(p_header_rec.ordered_date, sysdate)
7251: - nvl( to_number(fnd_profile.value('ONT_DAYS_TO_BACKDATE_BANK_ACCT')), 0);
7273: WHEN OTHERS THEN
7274: l_bank_acct_id := -1;
7275: p_x_interface_line_rec.customer_bank_account_id := -1;
7276: IF l_debug_level > 0 THEN
7277: oe_debug_pub.add( 'AR PACKAGE ARP_BANK_PKG.PROCESS_CUST_BANK_ACCOUNT ( ) RETURNED ERROR : '||SQLERRM , 1 ) ;
7278: END IF;
7279: ***/
7280: END;
7281: IF l_debug_level > 0 THEN
7278: END IF;
7279: ***/
7280: END;
7281: IF l_debug_level > 0 THEN
7282: oe_debug_pub.add( 'AFTER CALLING PROCESS_CUST_BANK_ACCOUNT ( ) PROCEDURE ' , 5 ) ;
7283: END IF;
7284: -- Check if a Valid Bank Account Id returned
7285: IF NVL(l_bank_acct_id, 0) > 0 THEN
7286: -- Setup the Bank Account Information
7284: -- Check if a Valid Bank Account Id returned
7285: IF NVL(l_bank_acct_id, 0) > 0 THEN
7286: -- Setup the Bank Account Information
7287: IF l_debug_level > 0 THEN
7288: oe_debug_pub.add( 'BANK ACCOUNT ID : '||L_BANK_ACCT_ID ) ;
7289: END IF;
7290: p_x_interface_line_rec.customer_bank_account_id := l_bank_acct_id;
7291: p_x_interface_line_rec.customer_bank_account_name
7292: := p_header_rec.credit_card_holder_name;
7299: fnd_global.apps_initialize(l_user_id, l_resp_id, l_appl_id);
7300:
7301: -- Call Get Primary Pay Method to get the method id
7302: IF l_debug_level > 0 THEN
7303: oe_debug_pub.add( 'GETTING PRIMAY PAYMENT METHOD' , 5 ) ;
7304: END IF;
7305:
7306: l_pay_method_id := OE_Verify_Payment_PUB.Get_Primary_Pay_Method
7307: ( p_header_rec => p_header_rec ) ;
7305:
7306: l_pay_method_id := OE_Verify_Payment_PUB.Get_Primary_Pay_Method
7307: ( p_header_rec => p_header_rec ) ;
7308: IF l_debug_level > 0 THEN
7309: oe_debug_pub.add( 'AFTER GETTING PRIMARY PAYMENT METHOD' , 5 ) ;
7310: END IF;
7311:
7312: /* Fix FP Bug # 3647389: Reset the Context using Current Values */
7313: fnd_global.apps_initialize(l_cur_user_id, l_cur_resp_id, l_cur_appl_id);
7314:
7315: -- Check if a Valid Pay Method Id returned
7316: IF NVL(l_pay_method_id, 0) > 0 THEN
7317: IF l_debug_level > 0 THEN
7318: oe_debug_pub.add( 'PAYMENT METHOD IS VALID' ) ;
7319: -- Call Get Pay Method Info to get the method name
7320: oe_debug_pub.add( 'GET PAYMENT METHOD INFORMATION ' , 5 ) ;
7321: END IF;
7322: OE_Verify_Payment_PUB.Get_Pay_Method_Info
7316: IF NVL(l_pay_method_id, 0) > 0 THEN
7317: IF l_debug_level > 0 THEN
7318: oe_debug_pub.add( 'PAYMENT METHOD IS VALID' ) ;
7319: -- Call Get Pay Method Info to get the method name
7320: oe_debug_pub.add( 'GET PAYMENT METHOD INFORMATION ' , 5 ) ;
7321: END IF;
7322: OE_Verify_Payment_PUB.Get_Pay_Method_Info
7323: ( p_pay_method_id => l_pay_method_id
7324: , p_pay_method_name => l_pay_method_name
7324: , p_pay_method_name => l_pay_method_name
7325: , p_merchant_id => l_merchant_id
7326: ) ;
7327: IF l_debug_level > 0 THEN
7328: oe_debug_pub.add( 'AFTER GETTING PAYMENT METHOD INFORMATION' , 5 ) ;
7329: -- Setup the Payment Method Information
7330: oe_debug_pub.add( 'PAYMENT METHOD ID IS : '||L_PAY_METHOD_ID , 5 ) ;
7331: END IF;
7332: p_x_interface_line_rec.receipt_method_id := l_pay_method_id;
7326: ) ;
7327: IF l_debug_level > 0 THEN
7328: oe_debug_pub.add( 'AFTER GETTING PAYMENT METHOD INFORMATION' , 5 ) ;
7329: -- Setup the Payment Method Information
7330: oe_debug_pub.add( 'PAYMENT METHOD ID IS : '||L_PAY_METHOD_ID , 5 ) ;
7331: END IF;
7332: p_x_interface_line_rec.receipt_method_id := l_pay_method_id;
7333: p_x_interface_line_rec.receipt_method_name := l_pay_method_name;
7334: -- Check if Credit Card Approval Code exists
7333: p_x_interface_line_rec.receipt_method_name := l_pay_method_name;
7334: -- Check if Credit Card Approval Code exists
7335: IF p_header_rec.credit_card_approval_code is NOT NULL THEN
7336: IF l_debug_level > 0 THEN
7337: oe_debug_pub.add( 'CREDIT CARD APPROVAL CODE EXISTS' , 5 ) ;
7338: -- Call Fetch Current Auth to get the tangible id
7339: oe_debug_pub.add( 'FETCH CURRENT AUTHORIZATION CODE , IF ANY' , 5 ) ;
7340: END IF;
7341: OE_Verify_Payment_PUB.Fetch_Current_Auth
7335: IF p_header_rec.credit_card_approval_code is NOT NULL THEN
7336: IF l_debug_level > 0 THEN
7337: oe_debug_pub.add( 'CREDIT CARD APPROVAL CODE EXISTS' , 5 ) ;
7338: -- Call Fetch Current Auth to get the tangible id
7339: oe_debug_pub.add( 'FETCH CURRENT AUTHORIZATION CODE , IF ANY' , 5 ) ;
7340: END IF;
7341: OE_Verify_Payment_PUB.Fetch_Current_Auth
7342: ( p_header_rec => p_header_rec
7343: , p_trxn_id => l_trxn_id
7343: , p_trxn_id => l_trxn_id
7344: , p_tangible_id => l_tangible_id
7345: ) ;
7346: IF l_debug_level > 0 THEN
7347: oe_debug_pub.add( ' AFTER CALLING FETCH_CURRENT_AUTH' ) ;
7348: -- Setup the CC Approval Info
7349: oe_debug_pub.add( 'TANGIBLE ID IS : '||L_TANGIBLE_ID , 5 ) ;
7350: END IF;
7351: p_x_interface_line_rec.approval_code := p_header_rec.credit_card_approval_code;
7345: ) ;
7346: IF l_debug_level > 0 THEN
7347: oe_debug_pub.add( ' AFTER CALLING FETCH_CURRENT_AUTH' ) ;
7348: -- Setup the CC Approval Info
7349: oe_debug_pub.add( 'TANGIBLE ID IS : '||L_TANGIBLE_ID , 5 ) ;
7350: END IF;
7351: p_x_interface_line_rec.approval_code := p_header_rec.credit_card_approval_code;
7352: p_x_interface_line_rec.payment_server_order_num := l_tangible_id;
7353: END IF; -- IF Approval Code Exists
7356: END IF; -- IF Credit Card Payment Exists
7357: --serla begin
7358: ELSE -- multiple payments enabled
7359: IF l_debug_level > 0 THEN
7360: oe_debug_pub.add('multiple payment enabled. getting payments data from line payments');
7361: END IF;
7362: -- R12 CC encryption
7363: BEGIN
7364: SELECT payment_type_code
7380: AND header_id = p_line_rec.header_id
7381: AND payment_type_code <> 'COMMITMENT'
7382: AND payment_collection_event = 'INVOICE';
7383: IF l_debug_level > 0 THEN
7384: 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);
7385: END IF;
7386: EXCEPTION
7387: WHEN NO_DATA_FOUND THEN
7388: IF l_debug_level > 0 THEN
7385: END IF;
7386: EXCEPTION
7387: WHEN NO_DATA_FOUND THEN
7388: IF l_debug_level > 0 THEN
7389: oe_debug_pub.add('No invoice payments at line level');
7390: END IF;
7391: l_payment_type_code := NULL;
7392: l_payment_trx_id := NULL;
7393: l_receipt_method_id := NULL;
7400:
7401: END;
7402:
7403: IF l_payment_type_code IS NULL THEN
7404: oe_debug_pub.add('Getting payments data from header payments');
7405: BEGIN
7406: SELECT payment_type_code
7407: , payment_trx_id
7408: , receipt_method_id
7421: WHERE header_id = p_line_rec.header_id
7422: AND line_id is NULL
7423: AND payment_collection_event = 'INVOICE';
7424: IF l_debug_level > 0 THEN
7425: 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);
7426: END IF;
7427: EXCEPTION
7428: WHEN NO_DATA_FOUND THEN
7429: l_payment_type_code := NULL;
7497: --bug5849568
7498: --Creating a receipt method assignment at the site level if it does not exist so that Autoinvoice goes through
7499: IF l_receipt_method_id IS NOT NULL THEN
7500: IF l_debug_level > 0 THEN
7501: oe_debug_pub.add('Before creating receipt method assignment at site level if it does not exist');
7502: END IF;
7503: l_trx_date := nvl(p_header_rec.ordered_date, sysdate)
7504: - nvl( to_number(fnd_profile.value('ONT_DAYS_TO_BACKDATE_BANK_ACCT')), 0);
7505: --bug6025064 Using SQL Statement since API arp_bank_pkg.process_cust_pay_method has been obsoleted
7520: AND primary_flag = 'Y';
7521: --bug6025064
7522:
7523: IF l_debug_level > 0 THEN
7524: 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);
7525: END IF;
7526:
7527: END IF;
7528: --bug5849568
7535: -- Added for bug 6911267, to get Invoice To Customer Id
7536: oe_oe_form_header.get_invoice_to_customer_id(p_site_use_id => p_header_rec.invoice_to_org_id,
7537: x_invoice_to_customer_id => l_invoice_to_customer_id);
7538: IF l_debug_level > 0 THEN
7539: oe_debug_pub.add('Before creating receipt method assignment at site level if it does not exist', 5);
7540: oe_debug_pub.add('Invoice To Customer : ' || l_invoice_to_customer_id ||'; Invoice To Site : ' || p_header_rec.invoice_to_org_id, 5);
7541: END IF;
7542: l_trx_date := nvl(p_header_rec.ordered_date, sysdate)
7543: - nvl( to_number(fnd_profile.value('ONT_DAYS_TO_BACKDATE_BANK_ACCT')), 0);
7536: oe_oe_form_header.get_invoice_to_customer_id(p_site_use_id => p_header_rec.invoice_to_org_id,
7537: x_invoice_to_customer_id => l_invoice_to_customer_id);
7538: IF l_debug_level > 0 THEN
7539: oe_debug_pub.add('Before creating receipt method assignment at site level if it does not exist', 5);
7540: oe_debug_pub.add('Invoice To Customer : ' || l_invoice_to_customer_id ||'; Invoice To Site : ' || p_header_rec.invoice_to_org_id, 5);
7541: END IF;
7542: l_trx_date := nvl(p_header_rec.ordered_date, sysdate)
7543: - nvl( to_number(fnd_profile.value('ONT_DAYS_TO_BACKDATE_BANK_ACCT')), 0);
7544:
7550: );
7551:
7552:
7553: IF l_debug_level > 0 THEN
7554: 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);
7555: END IF;
7556:
7557: END IF;
7558: --bug6086340
7570: , p_tangible_id => l_tangible_id
7571: ) ;
7572:
7573: IF l_debug_level > 0 THEN
7574: oe_debug_pub.add( ' AFTER CALLING FETCH_CURRENT_AUTH' ) ;
7575: -- Setup the CC Approval Info
7576: oe_debug_pub.add( 'TANGIBLE ID IS : '||L_TANGIBLE_ID , 5 ) ;
7577: END IF;
7578:
7572:
7573: IF l_debug_level > 0 THEN
7574: oe_debug_pub.add( ' AFTER CALLING FETCH_CURRENT_AUTH' ) ;
7575: -- Setup the CC Approval Info
7576: oe_debug_pub.add( 'TANGIBLE ID IS : '||L_TANGIBLE_ID , 5 ) ;
7577: END IF;
7578:
7579: END IF;
7580: p_x_interface_line_rec.payment_server_order_num := l_tangible_id;
7579: END IF;
7580: p_x_interface_line_rec.payment_server_order_num := l_tangible_id;
7581: END IF;
7582: */
7583: oe_debug_pub.add('l_receipt_method_id:'||l_receipt_method_id||'Name:'||p_x_interface_line_rec.receipt_method_name);
7584: END IF;
7585: END IF;
7586:
7587: --serla end
7586:
7587: --serla end
7588:
7589: IF l_debug_level > 0 THEN
7590: oe_debug_pub.add( 'FINISH CREDIT CARD PROCESSING' , 5 ) ;
7591: oe_debug_pub.add( 'START GLOBALIZATION' , 5 ) ;
7592: END IF;
7593: l_gdf_rec.interface_line_attribute3 := p_x_interface_line_rec.interface_line_attribute3;
7594: l_gdf_rec.interface_line_attribute6 := p_x_interface_line_rec.interface_line_attribute6;
7587: --serla end
7588:
7589: IF l_debug_level > 0 THEN
7590: oe_debug_pub.add( 'FINISH CREDIT CARD PROCESSING' , 5 ) ;
7591: oe_debug_pub.add( 'START GLOBALIZATION' , 5 ) ;
7592: END IF;
7593: l_gdf_rec.interface_line_attribute3 := p_x_interface_line_rec.interface_line_attribute3;
7594: l_gdf_rec.interface_line_attribute6 := p_x_interface_line_rec.interface_line_attribute6;
7595: l_gdf_rec.line_type := p_x_interface_line_rec.line_type;
7615: l_gdf_rec.line_gdf_attribute18 := substrb(p_line_rec.global_attribute18, 1, 150);
7616: l_gdf_rec.line_gdf_attribute19 := substrb(p_line_rec.global_attribute19, 1, 150);
7617: l_gdf_rec.line_gdf_attribute20 := substrb(p_line_rec.global_attribute20, 1, 150);
7618: IF l_debug_level > 0 THEN
7619: oe_debug_pub.add( 'CALLING THE GLOBALIZATION PACKAGE' , 5 ) ;
7620: END IF;
7621: JG_ZZ_OM_COMMON_PKG.copy_gdff(p_interface_line_rec => l_gdf_rec,
7622: x_interface_line_rec => l_gdf_rec,
7623: x_return_code => l_jg_return_code,
7622: x_interface_line_rec => l_gdf_rec,
7623: x_return_code => l_jg_return_code,
7624: x_error_buffer => l_jg_error_buffer);
7625: IF l_debug_level > 0 THEN
7626: oe_debug_pub.add( 'AFTER CALLING GLOBALIZATION PACKAGE' , 5 ) ;
7627: END IF;
7628: p_x_interface_line_rec.line_gdf_attr_category := l_gdf_rec.line_gdf_attr_category;
7629: p_x_interface_line_rec.line_gdf_attribute1 := l_gdf_rec.line_gdf_attribute1;
7630: p_x_interface_line_rec.line_gdf_attribute2 := l_gdf_rec.line_gdf_attribute2;
7678: p_x_interface_line_rec.header_gdf_attribute29 := l_gdf_rec.header_gdf_attribute29;
7679: p_x_interface_line_rec.header_gdf_attribute30 := l_gdf_rec.header_gdf_attribute30;
7680:
7681: IF l_debug_level > 0 THEN
7682: oe_debug_pub.add('Before calling Legal Entity Time Zone ');
7683: oe_debug_pub.add('Value of ship_date_actual '||p_x_interface_line_rec.ship_date_actual||
7684: ' Value of creation_date '|| p_x_interface_line_rec.creation_date);
7685: oe_debug_pub.add('Value of last_update_date '||p_x_interface_line_rec.last_update_date||
7686: ' Value of sales_order_date '||p_x_interface_line_rec.sales_order_date|| ' Value of trx_date '||p_x_interface_line_rec.trx_date);
7679: p_x_interface_line_rec.header_gdf_attribute30 := l_gdf_rec.header_gdf_attribute30;
7680:
7681: IF l_debug_level > 0 THEN
7682: oe_debug_pub.add('Before calling Legal Entity Time Zone ');
7683: oe_debug_pub.add('Value of ship_date_actual '||p_x_interface_line_rec.ship_date_actual||
7684: ' Value of creation_date '|| p_x_interface_line_rec.creation_date);
7685: oe_debug_pub.add('Value of last_update_date '||p_x_interface_line_rec.last_update_date||
7686: ' Value of sales_order_date '||p_x_interface_line_rec.sales_order_date|| ' Value of trx_date '||p_x_interface_line_rec.trx_date);
7687: END IF;
7681: IF l_debug_level > 0 THEN
7682: oe_debug_pub.add('Before calling Legal Entity Time Zone ');
7683: oe_debug_pub.add('Value of ship_date_actual '||p_x_interface_line_rec.ship_date_actual||
7684: ' Value of creation_date '|| p_x_interface_line_rec.creation_date);
7685: oe_debug_pub.add('Value of last_update_date '||p_x_interface_line_rec.last_update_date||
7686: ' Value of sales_order_date '||p_x_interface_line_rec.sales_order_date|| ' Value of trx_date '||p_x_interface_line_rec.trx_date);
7687: END IF;
7688:
7689: IF oe_code_control.code_release_level >= '110510' THEN
7718: END IF;
7719: END IF;
7720:
7721: IF l_debug_level > 0 THEN
7722: oe_debug_pub.add('After calling Legal Entity Time Zone ');
7723: oe_debug_pub.add('Value of ship_date_actual '||p_x_interface_line_rec.ship_date_actual||
7724: ' Value of creation_date '|| p_x_interface_line_rec.creation_date);
7725: oe_debug_pub.add('Value of last_update_date '||p_x_interface_line_rec.last_update_date||
7726: ' Value of sales_order_date '||p_x_interface_line_rec.sales_order_date|| ' Value of trx_date '||p_x_interface_line_rec.trx_date);
7719: END IF;
7720:
7721: IF l_debug_level > 0 THEN
7722: oe_debug_pub.add('After calling Legal Entity Time Zone ');
7723: oe_debug_pub.add('Value of ship_date_actual '||p_x_interface_line_rec.ship_date_actual||
7724: ' Value of creation_date '|| p_x_interface_line_rec.creation_date);
7725: oe_debug_pub.add('Value of last_update_date '||p_x_interface_line_rec.last_update_date||
7726: ' Value of sales_order_date '||p_x_interface_line_rec.sales_order_date|| ' Value of trx_date '||p_x_interface_line_rec.trx_date);
7727: END IF;
7721: IF l_debug_level > 0 THEN
7722: oe_debug_pub.add('After calling Legal Entity Time Zone ');
7723: oe_debug_pub.add('Value of ship_date_actual '||p_x_interface_line_rec.ship_date_actual||
7724: ' Value of creation_date '|| p_x_interface_line_rec.creation_date);
7725: oe_debug_pub.add('Value of last_update_date '||p_x_interface_line_rec.last_update_date||
7726: ' Value of sales_order_date '||p_x_interface_line_rec.sales_order_date|| ' Value of trx_date '||p_x_interface_line_rec.trx_date);
7727: END IF;
7728:
7729: IF l_debug_level > 0 THEN
7726: ' Value of sales_order_date '||p_x_interface_line_rec.sales_order_date|| ' Value of trx_date '||p_x_interface_line_rec.trx_date);
7727: END IF;
7728:
7729: IF l_debug_level > 0 THEN
7730: oe_debug_pub.add( 'END GLOBALIZATION' , 5 ) ;
7731: END IF;
7732: OE_DEBUG_PUB.dumpdebug;
7733: IF l_debug_level > 0 THEN
7734: oe_debug_pub.add( 'EXITING PREPARE_INTERFACE_LINE_REC ( ) PROCEDURE' , 5 ) ;
7728:
7729: IF l_debug_level > 0 THEN
7730: oe_debug_pub.add( 'END GLOBALIZATION' , 5 ) ;
7731: END IF;
7732: OE_DEBUG_PUB.dumpdebug;
7733: IF l_debug_level > 0 THEN
7734: oe_debug_pub.add( 'EXITING PREPARE_INTERFACE_LINE_REC ( ) PROCEDURE' , 5 ) ;
7735: END IF;
7736: END Prepare_Interface_Line_Rec;
7730: oe_debug_pub.add( 'END GLOBALIZATION' , 5 ) ;
7731: END IF;
7732: OE_DEBUG_PUB.dumpdebug;
7733: IF l_debug_level > 0 THEN
7734: oe_debug_pub.add( 'EXITING PREPARE_INTERFACE_LINE_REC ( ) PROCEDURE' , 5 ) ;
7735: END IF;
7736: END Prepare_Interface_Line_Rec;
7737:
7738: PROCEDURE Update_Invoice_Attributes
7750: l_notify_index NUMBER; -- jolin
7751: l_trxn_extension_id NUMBER:=NULL; --CC Reversal ER#16014135
7752:
7753: --
7754: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7755: --
7756: -- 8541809: Start
7757: l_item_key_sso NUMBER;
7758: l_header_rec Oe_Order_Pub.Header_Rec_Type;
7759: l_ret_stat Varchar2(30);
7760: -- 8541809: End
7761: BEGIN
7762: IF l_debug_level > 0 THEN
7763: oe_debug_pub.add( 'UPDATING INVOICE ATTRIBUTES' , 5 ) ;
7764: oe_debug_pub.add( 'STATUS= '||p_invoice_interface_status);
7765: END IF;
7766: IF OE_GLOBALS.G_ASO_INSTALLED IS NULL THEN
7767: OE_GLOBALS.G_ASO_INSTALLED := OE_GLOBALS.CHECK_PRODUCT_INSTALLED(697);
7760: -- 8541809: End
7761: BEGIN
7762: IF l_debug_level > 0 THEN
7763: oe_debug_pub.add( 'UPDATING INVOICE ATTRIBUTES' , 5 ) ;
7764: oe_debug_pub.add( 'STATUS= '||p_invoice_interface_status);
7765: END IF;
7766: IF OE_GLOBALS.G_ASO_INSTALLED IS NULL THEN
7767: OE_GLOBALS.G_ASO_INSTALLED := OE_GLOBALS.CHECK_PRODUCT_INSTALLED(697);
7768: END IF;
7781: IF p_invoice_interface_status= 'NOT_ELIGIBLE' THEN
7782: l_invoiced_quantity := null;
7783: END IF;
7784: IF l_debug_level > 0 THEN
7785: oe_debug_pub.add( 'INVOICED QUANTITY IS '|| TO_CHAR ( L_INVOICED_QUANTITY ) , 5 ) ;
7786: END IF;
7787:
7788: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL < '110510' THEN
7789: IF p_invoice_interface_status = 'YES' THEN
7817: END IF;
7818: END IF;
7819:
7820: IF l_debug_level > 0 THEN
7821: oe_debug_pub.add( 'UPDATING FLOW STATUS CODE AS '||L_FLOW_STATUS_CODE , 5 ) ;
7822: oe_debug_pub.add( ' UPDATING p_line_rec.SERVICE_START_DATE = '||p_line_rec.SERVICE_START_DATE , 5 ) ; -- bug# 7231974
7823: oe_debug_pub.add( ' p_line_rec.SERVICE_END_DATE = '|| p_line_rec.SERVICE_END_DATE , 5 ) ;
7824: END IF;
7825:
7818: END IF;
7819:
7820: IF l_debug_level > 0 THEN
7821: oe_debug_pub.add( 'UPDATING FLOW STATUS CODE AS '||L_FLOW_STATUS_CODE , 5 ) ;
7822: oe_debug_pub.add( ' UPDATING p_line_rec.SERVICE_START_DATE = '||p_line_rec.SERVICE_START_DATE , 5 ) ; -- bug# 7231974
7823: oe_debug_pub.add( ' p_line_rec.SERVICE_END_DATE = '|| p_line_rec.SERVICE_END_DATE , 5 ) ;
7824: END IF;
7825:
7826: UPDATE OE_ORDER_LINES_ALL
7819:
7820: IF l_debug_level > 0 THEN
7821: oe_debug_pub.add( 'UPDATING FLOW STATUS CODE AS '||L_FLOW_STATUS_CODE , 5 ) ;
7822: oe_debug_pub.add( ' UPDATING p_line_rec.SERVICE_START_DATE = '||p_line_rec.SERVICE_START_DATE , 5 ) ; -- bug# 7231974
7823: oe_debug_pub.add( ' p_line_rec.SERVICE_END_DATE = '|| p_line_rec.SERVICE_END_DATE , 5 ) ;
7824: END IF;
7825:
7826: UPDATE OE_ORDER_LINES_ALL
7827: SET INVOICE_INTERFACE_STATUS_CODE = p_invoice_interface_status,
7838: --CC Reversal ER#16014135 Start
7839: IF OE_VERIFY_PAYMENT_PUB.Get_CC_Rev_Reauth_Code(p_line_rec.header_id) IS NOT NULL THEN
7840:
7841: IF l_debug_level > 0 THEN
7842: oe_debug_pub.add( 'Credit card reversal ER is check begin ', 5 ) ;
7843: END IF;
7844: BEGIN
7845: SELECT trxn_extension_id
7846: INTO l_trxn_extension_id
7855: WHEN OTHERS THEN
7856: l_trxn_extension_id :=NULL;
7857: END;
7858: IF l_debug_level > 0 THEN
7859: oe_debug_pub.add( 'line level invoice payment exists with trxn_extension_id '||l_trxn_extension_id, 5 ) ;
7860: END IF;
7861: IF l_trxn_extension_id IS NULL THEN --if no line level invoice payment then only check for header level invoice payment
7862: IF l_debug_level > 0 THEN
7863: oe_debug_pub.add( 'checking header level level invoice payment ', 5 ) ;
7859: oe_debug_pub.add( 'line level invoice payment exists with trxn_extension_id '||l_trxn_extension_id, 5 ) ;
7860: END IF;
7861: IF l_trxn_extension_id IS NULL THEN --if no line level invoice payment then only check for header level invoice payment
7862: IF l_debug_level > 0 THEN
7863: oe_debug_pub.add( 'checking header level level invoice payment ', 5 ) ;
7864: END IF;
7865:
7866: BEGIN
7867: SELECT trxn_extension_id
7878: WHEN OTHERS THEN
7879: l_trxn_extension_id :=NULL;
7880: END;
7881: IF l_debug_level > 0 THEN
7882: oe_debug_pub.add( 'header level invoice payment exists with trxn_extension_id '||l_trxn_extension_id, 5 ) ;
7883: END IF;
7884:
7885:
7886: IF l_trxn_extension_id IS NOT NULL THEN --headerlevel invoice payment check for credit card
7884:
7885:
7886: IF l_trxn_extension_id IS NOT NULL THEN --headerlevel invoice payment check for credit card
7887: IF l_debug_level > 0 THEN
7888: oe_debug_pub.add( 'updating header level invoice payment ', 5 ) ;
7889: END IF;
7890:
7891: UPDATE OE_PAYMENTS
7892: SET INVOICED_FLAG ='Y'
7895: AND PAYMENT_LEVEL_CODE ='ORDER'
7896: AND PAYMENT_TYPE_CODE ='CREDIT_CARD'
7897: AND PAYMENT_COLLECTION_EVENT='INVOICE';
7898: IF l_debug_level > 0 THEN
7899: oe_debug_pub.add( 'updating header level invoice payment... done ', 5 ) ;
7900: END IF;
7901: END IF;
7902: END IF;--End if of line level l_trxn_extension_id check
7903: END IF;-- cc reversal ER flag check
7925: , x_index => l_notify_index
7926: , x_return_status => l_return_status);
7927:
7928: IF l_debug_level > 0 THEN
7929: oe_debug_pub.add( 'UPDATE_GLOBAL RET_STATUS FOR LINE_ID '||L_LINE_TBL ( 1 ) .LINE_ID ||' IS: ' || L_RETURN_STATUS , 1 ) ;
7930: oe_debug_pub.add( 'UPDATE_GLOBAL INDEX FOR LINE_ID '||L_LINE_TBL ( 1 ) .LINE_ID ||' IS: ' || L_NOTIFY_INDEX , 1 ) ;
7931: END IF;
7932:
7933: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7926: , x_return_status => l_return_status);
7927:
7928: IF l_debug_level > 0 THEN
7929: oe_debug_pub.add( 'UPDATE_GLOBAL RET_STATUS FOR LINE_ID '||L_LINE_TBL ( 1 ) .LINE_ID ||' IS: ' || L_RETURN_STATUS , 1 ) ;
7930: oe_debug_pub.add( 'UPDATE_GLOBAL INDEX FOR LINE_ID '||L_LINE_TBL ( 1 ) .LINE_ID ||' IS: ' || L_NOTIFY_INDEX , 1 ) ;
7931: END IF;
7932:
7933: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7934: RAISE FND_API.G_EXC_ERROR;
7957: OE_ORDER_UTIL.g_line_tbl(l_notify_index).header_id:=
7958: l_line_tbl(1).header_id;
7959:
7960: IF l_debug_level > 0 THEN
7961: oe_debug_pub.add( 'GLOBAL LINE INVOICED_QUANTITY IS: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .INVOICED_QUANTITY , 1 ) ;
7962: oe_debug_pub.add( 'GLOBAL LINE CALCULATE_PRICE_FLAG IS: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .CALCULATE_PRICE_FLAG , 1 ) ;
7963: 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 ) ;
7964: oe_debug_pub.add( 'GLOBAL LINE FLOW_STATUS_CODE IS: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .FLOW_STATUS_CODE , 1 ) ;
7965: END IF;
7958: l_line_tbl(1).header_id;
7959:
7960: IF l_debug_level > 0 THEN
7961: oe_debug_pub.add( 'GLOBAL LINE INVOICED_QUANTITY IS: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .INVOICED_QUANTITY , 1 ) ;
7962: oe_debug_pub.add( 'GLOBAL LINE CALCULATE_PRICE_FLAG IS: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .CALCULATE_PRICE_FLAG , 1 ) ;
7963: 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 ) ;
7964: oe_debug_pub.add( 'GLOBAL LINE FLOW_STATUS_CODE IS: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .FLOW_STATUS_CODE , 1 ) ;
7965: END IF;
7966:
7959:
7960: IF l_debug_level > 0 THEN
7961: oe_debug_pub.add( 'GLOBAL LINE INVOICED_QUANTITY IS: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .INVOICED_QUANTITY , 1 ) ;
7962: oe_debug_pub.add( 'GLOBAL LINE CALCULATE_PRICE_FLAG IS: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .CALCULATE_PRICE_FLAG , 1 ) ;
7963: 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 ) ;
7964: oe_debug_pub.add( 'GLOBAL LINE FLOW_STATUS_CODE IS: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .FLOW_STATUS_CODE , 1 ) ;
7965: END IF;
7966:
7967: -- Process requests is TRUE so still need to call it, but don't need to notify
7960: IF l_debug_level > 0 THEN
7961: oe_debug_pub.add( 'GLOBAL LINE INVOICED_QUANTITY IS: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .INVOICED_QUANTITY , 1 ) ;
7962: oe_debug_pub.add( 'GLOBAL LINE CALCULATE_PRICE_FLAG IS: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .CALCULATE_PRICE_FLAG , 1 ) ;
7963: 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 ) ;
7964: oe_debug_pub.add( 'GLOBAL LINE FLOW_STATUS_CODE IS: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .FLOW_STATUS_CODE , 1 ) ;
7965: END IF;
7966:
7967: -- Process requests is TRUE so still need to call it, but don't need to notify
7968: IF l_debug_level > 0 THEN
7965: END IF;
7966:
7967: -- Process requests is TRUE so still need to call it, but don't need to notify
7968: IF l_debug_level > 0 THEN
7969: oe_debug_pub.add( 'OEXPINVB: BEFORE CALLING LINE PROCESS_REQUESTS_AND_NOTIFY' ) ;
7970: END IF;
7971: OE_Order_PVT.PROCESS_REQUESTS_AND_NOTIFY(
7972: P_LINE_TBL =>l_Line_tbl,
7973: P_OLD_LINE_TBL =>l_Old_Line_tbl,
7984:
7985: ELSE /* pre-pack H */
7986:
7987: IF l_debug_level > 0 THEN
7988: oe_debug_pub.add( 'OEXPINVB: BEFORE CALLING LINE PROCESS_REQUESTS_AND_NOTIFY' ) ;
7989: END IF;
7990: OE_Order_PVT.PROCESS_REQUESTS_AND_NOTIFY(
7991: P_LINE_TBL =>l_Line_tbl,
7992: P_OLD_LINE_TBL =>l_Old_Line_tbl,
8006:
8007: x_return_status := FND_API.G_RET_STS_SUCCESS;
8008:
8009: IF l_debug_level > 0 THEN
8010: oe_debug_pub.add( 'RETURN STATUS : ' ||X_RETURN_STATUS ) ;
8011: END IF;
8012:
8013: -- 8541809: Start
8014: IF l_debug_level > 0 THEN
8011: END IF;
8012:
8013: -- 8541809: Start
8014: IF l_debug_level > 0 THEN
8015: oe_debug_pub.add('Calling O2C Sync for flow status... ', 1);
8016: END IF;
8017:
8018: Update_Line_Flow_Status(p_line_rec.line_id, l_flow_status_code,
8019: p_line_rec.order_source_id);
8018: Update_Line_Flow_Status(p_line_rec.line_id, l_flow_status_code,
8019: p_line_rec.order_source_id);
8020:
8021: IF l_debug_level > 0 THEN
8022: oe_debug_pub.add('Done with O2C Sync for flow status... ', 1);
8023: END IF;
8024: -- 8541809: End
8025:
8026: IF OE_Commitment_Pvt.DO_Commitment_Sequencing THEN --commitment sequencing ON
8026: IF OE_Commitment_Pvt.DO_Commitment_Sequencing THEN --commitment sequencing ON
8027: IF p_line_rec.commitment_id IS NOT NULL AND
8028: p_interface_line_rec.promised_commitment_amount IS NOT NULL THEN
8029: IF l_debug_level > 0 THEN
8030: oe_debug_pub.add( 'UPDATING OE_PAYMENTS' , 3 ) ;
8031: END IF;
8032: UPDATE oe_payments
8033: SET commitment_interfaced_amount = nvl(commitment_interfaced_amount, 0) + nvl(p_interface_line_rec.promised_commitment_amount, 0)
8034: WHERE LINE_ID = p_line_rec.line_id
8036: END IF;
8037: END IF;
8038:
8039: IF l_debug_level > 0 THEN
8040: oe_debug_pub.add( 'DONE UPDATING INVOICE ATTRIBUTES' , 1 ) ;
8041: END IF;
8042:
8043: EXCEPTION
8044: WHEN OTHERS THEN
8042:
8043: EXCEPTION
8044: WHEN OTHERS THEN
8045: IF l_debug_level > 0 THEN
8046: oe_debug_pub.add( 'EXCEPTION WHILE UPDATING INVOICE ATTRIBUTES : '||SQLERRM , 1 ) ;
8047: END IF;
8048: err_msg := 'Error in Update_Invoice_Attributes:\n '||SQLERRM;
8049: IF l_debug_level > 0 THEN
8050: oe_debug_pub.add( ERR_MSG ) ;
8046: oe_debug_pub.add( 'EXCEPTION WHILE UPDATING INVOICE ATTRIBUTES : '||SQLERRM , 1 ) ;
8047: END IF;
8048: err_msg := 'Error in Update_Invoice_Attributes:\n '||SQLERRM;
8049: IF l_debug_level > 0 THEN
8050: oe_debug_pub.add( ERR_MSG ) ;
8051: END IF;
8052: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8053: IF FND_MSG_PUB.Check_Msg_Level
8054: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8064: (p_line_id IN NUMBER
8065: ) RETURN BOOLEAN IS
8066: l_header_id NUMBER;
8067: --
8068: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8069: --
8070: BEGIN
8071: IF l_debug_level > 0 THEN
8072: oe_debug_pub.add( 'ENTER HEADER_ACTIVITY ( ) PROCEDURE ' , 5 ) ;
8068: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8069: --
8070: BEGIN
8071: IF l_debug_level > 0 THEN
8072: oe_debug_pub.add( 'ENTER HEADER_ACTIVITY ( ) PROCEDURE ' , 5 ) ;
8073: END IF;
8074: SELECT header_id
8075: INTO l_header_id
8076: FROM oe_order_lines
8084: FUNCTION Line_Activity
8085: (p_line_id IN NUMBER
8086: ) RETURN BOOLEAN IS
8087: --
8088: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8089: --
8090: BEGIN
8091: IF l_debug_level > 0 THEN
8092: oe_debug_pub.add( 'ENTER LINE_ACTIVITY ( ) PROCEDURE ' , 5 ) ;
8088: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8089: --
8090: BEGIN
8091: IF l_debug_level > 0 THEN
8092: oe_debug_pub.add( 'ENTER LINE_ACTIVITY ( ) PROCEDURE ' , 5 ) ;
8093: END IF;
8094: -- This function is provided by WF for our use with bug# 1040262.
8095: -- WF team removed this function at one stage and now provided the same
8096: -- for backward compatibility purpose with bug# 1869241.
8108: inv_num_index NUMBER;
8109: inv_num_base VARCHAR2(40);
8110: err_msg VARCHAR2(240);
8111: --
8112: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8113: --
8114: BEGIN
8115: IF l_debug_level > 0 THEN
8116: oe_debug_pub.add( 'ENTER UPDATE_INVOICE_NUMBERS ( ) PROCEDURE ' , 5 ) ;
8112: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8113: --
8114: BEGIN
8115: IF l_debug_level > 0 THEN
8116: oe_debug_pub.add( 'ENTER UPDATE_INVOICE_NUMBERS ( ) PROCEDURE ' , 5 ) ;
8117: oe_debug_pub.add( 'UPDATE INVOICE NUMBERS: DEL_ID ' || TO_CHAR ( P_DEL_ID ) ||' DEL NAME: ' || P_DEL_NAME , 5 ) ;
8118: END IF;
8119: inv_num_base := p_del_name;
8120: SELECT nvl((max(index_number)+1), 0)
8113: --
8114: BEGIN
8115: IF l_debug_level > 0 THEN
8116: oe_debug_pub.add( 'ENTER UPDATE_INVOICE_NUMBERS ( ) PROCEDURE ' , 5 ) ;
8117: oe_debug_pub.add( 'UPDATE INVOICE NUMBERS: DEL_ID ' || TO_CHAR ( P_DEL_ID ) ||' DEL NAME: ' || P_DEL_NAME , 5 ) ;
8118: END IF;
8119: inv_num_base := p_del_name;
8120: SELECT nvl((max(index_number)+1), 0)
8121: INTO inv_num_index
8129: ELSE
8130: inv_num := inv_num_base || '-' || to_char(inv_num_index);
8131: END IF;
8132: IF l_debug_level > 0 THEN
8133: oe_debug_pub.add( 'GLOBAL USER ' || NVL(oe_standard_wf.g_user_id, fnd_global.user_id)); -- 3169637
8134: oe_debug_pub.add( 'INV NUM INDEX ' || TO_CHAR ( INV_NUM_INDEX ) ) ;
8135: END IF;
8136: INSERT INTO OE_INVOICE_NUMBERS(
8137: INVOICE_NUMBER_ID
8130: inv_num := inv_num_base || '-' || to_char(inv_num_index);
8131: END IF;
8132: IF l_debug_level > 0 THEN
8133: oe_debug_pub.add( 'GLOBAL USER ' || NVL(oe_standard_wf.g_user_id, fnd_global.user_id)); -- 3169637
8134: oe_debug_pub.add( 'INV NUM INDEX ' || TO_CHAR ( INV_NUM_INDEX ) ) ;
8135: END IF;
8136: INSERT INTO OE_INVOICE_NUMBERS(
8137: INVOICE_NUMBER_ID
8138: , DELIVERY_ID
8150: , SYSDATE
8151: , NVL(oe_standard_wf.g_user_id, fnd_global.user_id)); -- 3169637
8152:
8153: IF l_debug_level > 0 THEN
8154: oe_debug_pub.add( 'DONE UPDATE_INVOICE_NUMBERS W/SUCCESS' , 5 ) ;
8155: END IF;
8156: RETURN 0;
8157: EXCEPTION
8158: WHEN OTHERS THEN
8157: EXCEPTION
8158: WHEN OTHERS THEN
8159: err_msg := 'Error in update_invoice_numbers:\n '||SQLERRM;
8160: IF l_debug_level > 0 THEN
8161: oe_debug_pub.add( ERR_MSG ) ;
8162: oe_debug_pub.add( 'WHEN OTHERS :EXITING UPDATE_INVOICE_NUMBERS' , 1 ) ;
8163: END IF;
8164: RETURN -1;
8165: END Update_Invoice_Numbers;
8158: WHEN OTHERS THEN
8159: err_msg := 'Error in update_invoice_numbers:\n '||SQLERRM;
8160: IF l_debug_level > 0 THEN
8161: oe_debug_pub.add( ERR_MSG ) ;
8162: oe_debug_pub.add( 'WHEN OTHERS :EXITING UPDATE_INVOICE_NUMBERS' , 1 ) ;
8163: END IF;
8164: RETURN -1;
8165: END Update_Invoice_Numbers;
8166:
8197: SELECT delivery_id
8198: FROM wsh_new_deliveries
8199: WHERE name = p_del_name;
8200: --
8201: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8202: --
8203: BEGIN
8204: IF l_debug_level > 0 THEN
8205: oe_debug_pub.add( 'ENTER UPDATE_NUMBERS ( ) PROCEDURE' , 5 ) ;
8201: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8202: --
8203: BEGIN
8204: IF l_debug_level > 0 THEN
8205: oe_debug_pub.add( 'ENTER UPDATE_NUMBERS ( ) PROCEDURE' , 5 ) ;
8206: END IF;
8207: SELECT count(*)
8208: INTO l_count
8209: FROM ra_interface_lines_all
8210: WHERE request_id = -1 * p_id;
8211:
8212: IF l_count = 0 THEN
8213: IF l_debug_level > 0 THEN
8214: oe_debug_pub.add( 'NO LINES NEED MANUAL NUMBERING' , 5 ) ;
8215: END IF;
8216: x_return_status := FND_API.G_RET_STS_SUCCESS;
8217: RETURN;
8218: END IF;
8232: END IF;
8233: END LOOP;
8234: CLOSE cur_get_cols;
8235: IF l_debug_level > 0 THEN
8236: oe_debug_pub.add( 'POSITION 2' ) ;
8237: -- Build the full select statement and using dbms_sql execute
8238: -- the statement
8239: oe_debug_pub.add( 'POSITION 2-1' ) ;
8240: END IF;
8235: IF l_debug_level > 0 THEN
8236: oe_debug_pub.add( 'POSITION 2' ) ;
8237: -- Build the full select statement and using dbms_sql execute
8238: -- the statement
8239: oe_debug_pub.add( 'POSITION 2-1' ) ;
8240: END IF;
8241: grp_stmt := 'Select ' || select_col || ' group_cols,' ||
8242: ' l.interface_line_attribute3, ROWID ' ||
8243: ' From RA_INTERFACE_LINES_ALL L' ||
8249: LOOP
8250: FETCH del_cursor INTO this_concat_cols, this_del_name, this_rowid;
8251: EXIT WHEN del_cursor%NOTFOUND;
8252: IF l_debug_level > 0 THEN
8253: oe_debug_pub.add( 'DELIVERY NAME: ' || THIS_DEL_NAME , 5 ) ;
8254: oe_debug_pub.add( 'CONCAT COLS: ' || THIS_CONCAT_COLS , 5 ) ;
8255: END IF;
8256: IF ( last_del_name is NULL OR
8257: last_del_name <> this_del_name ) THEN
8250: FETCH del_cursor INTO this_concat_cols, this_del_name, this_rowid;
8251: EXIT WHEN del_cursor%NOTFOUND;
8252: IF l_debug_level > 0 THEN
8253: oe_debug_pub.add( 'DELIVERY NAME: ' || THIS_DEL_NAME , 5 ) ;
8254: oe_debug_pub.add( 'CONCAT COLS: ' || THIS_CONCAT_COLS , 5 ) ;
8255: END IF;
8256: IF ( last_del_name is NULL OR
8257: last_del_name <> this_del_name ) THEN
8258: IF l_debug_level > 0 THEN
8255: END IF;
8256: IF ( last_del_name is NULL OR
8257: last_del_name <> this_del_name ) THEN
8258: IF l_debug_level > 0 THEN
8259: oe_debug_pub.add( 'POSITION 5' ) ;
8260: END IF;
8261: OPEN cur_get_del_id(this_del_name);
8262: FETCH cur_get_del_id Into this_del_id;
8263: IF (cur_get_del_id%NOTFOUND ) THEN
8264: fnd_message.set_token('DELIVERY_NAME', this_del_name);
8265: fnd_message.set_name('OE', 'WSH_AR_INVALID_DEL_NAME');
8266: err_msg := fnd_message.get;
8267: IF l_debug_level > 0 THEN
8268: oe_debug_pub.add( ERR_MSG ) ;
8269: END IF;
8270: CLOSE cur_get_del_id;
8271: --return;
8272: END IF;
8273: IF ( cur_get_del_id%ISOPEN ) THEN
8274: Close cur_get_del_id;
8275: END IF;
8276: IF l_debug_level > 0 THEN
8277: oe_debug_pub.add( 'DELIVERY ID: ' || TO_CHAR ( THIS_DEL_ID ) , 5 ) ;
8278: END IF;
8279: END IF;
8280: IF ( last_concat_cols is NULL OR
8281: last_concat_cols <> this_concat_cols ) THEN
8279: END IF;
8280: IF ( last_concat_cols is NULL OR
8281: last_concat_cols <> this_concat_cols ) THEN
8282: IF l_debug_level > 0 THEN
8283: oe_debug_pub.add( 'CONCAT COLS CHANGED , CALLING UPDATE_INVOICE' ) ;
8284: END IF;
8285: IF ( Update_Invoice_Numbers ( this_del_id, this_del_name) < 0 ) THEN
8286: x_return_status := FND_API.G_RET_STS_SUCCESS;
8287: RETURN;
8290: last_concat_cols := this_concat_cols;
8291: ELSE
8292: IF ( last_del_name <> this_del_name ) THEN
8293: IF l_debug_level > 0 THEN
8294: oe_debug_pub.add( 'DEL NAME CHANGED , CALLING UPDATE_INVOICE' ) ;
8295: END IF;
8296: IF ( update_invoice_numbers ( this_del_id, this_del_name) < 0 ) THEN
8297: x_return_status := FND_API.G_RET_STS_SUCCESS;
8298: RETURN;
8300: last_del_name := this_del_name;
8301: END IF;
8302: END IF;
8303: IF l_debug_level > 0 THEN
8304: oe_debug_pub.add( 'TRANSACTION NUMBER IS : '|| INV_NUM , 5 ) ;
8305: END IF;
8306: Update RA_INTERFACE_LINES_ALL
8307: set trx_number = substr(inv_num,1,20) -- substr(inv_num,20)--inv_num --bug#7592350 -- Bug 8216166
8308: where rowid = chartorowid(this_rowid);
8308: where rowid = chartorowid(this_rowid);
8309: END LOOP;
8310: CLOSE del_cursor;
8311: IF l_debug_level > 0 THEN
8312: oe_debug_pub.add( 'SETTING REQUEST ID TO NULL' , 5 ) ;
8313: END IF;
8314: update ra_interface_lines_all
8315: set request_id=null
8316: where request_id = -1 * p_id;
8315: set request_id=null
8316: where request_id = -1 * p_id;
8317: x_return_status := FND_API.G_RET_STS_SUCCESS;
8318: IF l_debug_level > 0 THEN
8319: oe_debug_pub.add( 'EXITING UPDATE_NUMBERS ( ) PROCEDURE' , 5 ) ;
8320: END IF;
8321: RETURN;
8322: EXCEPTION
8323: WHEN OTHERS THEN
8321: RETURN;
8322: EXCEPTION
8323: WHEN OTHERS THEN
8324: IF l_debug_level > 0 THEN
8325: oe_debug_pub.add( 'ORACLE ERROR: ' || SQLERRM , 1 ) ;
8326: END IF;
8327: err_msg := 'Error in update_numbers:\n '|| SQLERRM;
8328: IF l_debug_level > 0 THEN
8329: oe_debug_pub.add( ERR_MSG ) ;
8325: oe_debug_pub.add( 'ORACLE ERROR: ' || SQLERRM , 1 ) ;
8326: END IF;
8327: err_msg := 'Error in update_numbers:\n '|| SQLERRM;
8328: IF l_debug_level > 0 THEN
8329: oe_debug_pub.add( ERR_MSG ) ;
8330: END IF;
8331: x_return_status := FND_API.G_RET_STS_ERROR;
8332: IF (cur_get_cols%ISOPEN) THEN
8333: CLOSE cur_get_cols;
8335: IF (cur_get_del_id%ISOPEN) THEN
8336: CLOSE cur_get_del_id;
8337: END IF;
8338: IF l_debug_level > 0 THEN
8339: oe_debug_pub.add( 'EXITING UPDATE_NUMBERS' , 1 ) ;
8340: END IF;
8341: RETURN;
8342: IF l_debug_level > 0 THEN
8343: oe_debug_pub.add( 'EXITING UPDATE_NUMBERS' , 1 ) ;
8339: oe_debug_pub.add( 'EXITING UPDATE_NUMBERS' , 1 ) ;
8340: END IF;
8341: RETURN;
8342: IF l_debug_level > 0 THEN
8343: oe_debug_pub.add( 'EXITING UPDATE_NUMBERS' , 1 ) ;
8344: END IF;
8345: END Update_Numbers;
8346:
8347: PROCEDURE Interface_Single_Line
8374: l_line_invoiceable BOOLEAN;
8375: l_line_rejected BOOLEAN;
8376:
8377: --
8378: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8379: --
8380: -- sol_ord_er #16014165
8381: l_inv_stat varchar2(50) := '';
8382: BEGIN
8380: -- sol_ord_er #16014165
8381: l_inv_stat varchar2(50) := '';
8382: BEGIN
8383: IF l_debug_level > 0 THEN
8384: oe_debug_pub.add( 'ENTERING INTERFACE_SINGLE_LINE ( ) PROCEDURE' , 5 ) ;
8385: oe_debug_pub.add( 'INTERFACING LINE ID '||TO_CHAR ( P_LINE_REC.LINE_ID ) , 1 ) ;
8386: END IF;
8387: x_return_status := FND_API.G_RET_STS_SUCCESS;
8388: --Customer Acceptance
8381: l_inv_stat varchar2(50) := '';
8382: BEGIN
8383: IF l_debug_level > 0 THEN
8384: oe_debug_pub.add( 'ENTERING INTERFACE_SINGLE_LINE ( ) PROCEDURE' , 5 ) ;
8385: oe_debug_pub.add( 'INTERFACING LINE ID '||TO_CHAR ( P_LINE_REC.LINE_ID ) , 1 ) ;
8386: END IF;
8387: x_return_status := FND_API.G_RET_STS_SUCCESS;
8388: --Customer Acceptance
8389: l_line_invoiceable := Line_Invoiceable(p_line_rec);
8391:
8392: --gaynagar added code for handling non-invoiceable lines
8393: -- IF NOT Line_Invoiceable(p_line_rec) THEN
8394: IF NOT l_line_invoiceable OR l_line_rejected THEN --Customer Acceptance
8395: oe_debug_pub.add('Line is non invoiceable',1);
8396: /* Bug#2666125 start-check freight records and holds for non invoiceable items*/
8397: /* BEGIN
8398: IF oe_code_control.code_release_level < '110510' then
8399: SELECT count(*)
8427:
8428: EXCEPTION
8429: WHEN NO_DATA_FOUND THEN
8430: IF l_debug_level > 0 THEN
8431: oe_debug_pub.add('Non-invoiceable lines-In when no data found of freight');
8432: END IF;
8433: l_freight_count := 0;
8434: END;
8435: IF l_debug_level > 0 THEN
8432: END IF;
8433: l_freight_count := 0;
8434: END;
8435: IF l_debug_level > 0 THEN
8436: oe_debug_pub.add('l_freight_count: '||l_freight_count);
8437: END IF;
8438: IF l_freight_count >0 then
8439: Check_Invoicing_Holds(p_line_rec, g_itemtype, x_return_status);
8440: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
8473: --- some lines in RFR-PENDING block. We should invoice them.
8474: IF Is_PTO(p_line_rec) THEN
8475: IF Is_RFR(p_line_rec.line_id) THEN
8476: IF l_debug_level > 0 THEN
8477: oe_debug_pub.add( 'RFR: THIS LINE IS RFR BUT NOT ELIGIBLE FOR INVOICING- CHECKING FOR PENDING LINES' , 5 ) ;
8478: END IF;
8479: Open Pending_Lines;
8480: LOOP
8481: Fetch Pending_Lines Into l_pending_line_id;
8481: Fetch Pending_Lines Into l_pending_line_id;
8482: EXIT WHEN Pending_Lines%NOTFOUND;
8483: OE_Line_Util.Query_Row(p_line_id=>l_pending_line_id,x_line_rec=>l_pending_line_rec);
8484: IF l_debug_level > 0 THEN
8485: oe_debug_pub.add( 'RFR: PENDING LINE ID : ' || TO_CHAR ( L_PENDING_LINE_ID ) , 5 ) ;
8486: END IF;
8487: IF Something_To_Invoice(l_pending_line_rec) THEN -- the pending line now has something to
8488: -- invoice because current line has been shipped
8489: IF l_debug_level > 0 THEN
8486: END IF;
8487: IF Something_To_Invoice(l_pending_line_rec) THEN -- the pending line now has something to
8488: -- invoice because current line has been shipped
8489: IF l_debug_level > 0 THEN
8490: oe_debug_pub.add( 'RFR: INTERFACING PENDING LINE ID :'||L_PENDING_LINE_ID , 5 ) ;
8491: END IF;
8492: Interface_Single_line(p_line_rec => l_pending_line_rec
8493: ,p_header_rec => p_header_rec
8494: ,p_x_interface_line_rec => p_x_interface_line_rec
8494: ,p_x_interface_line_rec => p_x_interface_line_rec
8495: ,x_return_status => x_return_status
8496: ,x_result_out => x_result_out);
8497: IF l_debug_level > 0 THEN
8498: oe_debug_pub.add( 'INTERFACING PENDING LINE ID ' || L_PENDING_LINE_REC.LINE_ID , 5 ) ;
8499: END IF;
8500: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
8501: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
8502: RAISE FND_API.G_EXC_ERROR;
8505: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8506: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
8507: IF x_result_out = OE_GLOBALS.G_WFR_PRTL_COMPLETE THEN
8508: IF l_debug_level > 0 THEN
8509: oe_debug_pub.add( 'RFR PENDING LINE PARTIALLY INTERFACED' , 5 ) ;
8510: END IF;
8511: ELSE --x_result_out = OE_GLOBALS.G_WFR_COMPLETE THEN
8512: IF l_debug_level > 0 THEN
8513: oe_debug_pub.add( 'RFR-PENDING LINE INTERFACED SUCCESSFULLY' , 5 ) ;
8509: oe_debug_pub.add( 'RFR PENDING LINE PARTIALLY INTERFACED' , 5 ) ;
8510: END IF;
8511: ELSE --x_result_out = OE_GLOBALS.G_WFR_COMPLETE THEN
8512: IF l_debug_level > 0 THEN
8513: oe_debug_pub.add( 'RFR-PENDING LINE INTERFACED SUCCESSFULLY' , 5 ) ;
8514: END IF;
8515: WF_ENGINE.CompleteActivityInternalName(OE_GLOBALS.G_WFI_LIN, l_pending_line_rec.line_id, 'INVOICING_WAIT_FOR_RFR', 'COMPLETE');
8516: END IF;
8517: END IF;
8561:
8562: EXCEPTION
8563: WHEN NO_DATA_FOUND THEN
8564: IF l_debug_level > 0 THEN
8565: oe_debug_pub.add( 'IN WHEN NO DATA FOUND OF FREIGHT' ) ;
8566: END IF;
8567: l_freight_count := 0;
8568: END;
8569: IF l_debug_level > 0 THEN
8566: END IF;
8567: l_freight_count := 0;
8568: END;
8569: IF l_debug_level > 0 THEN
8570: oe_debug_pub.add( 'L_FREIGHT_COUNT: '||L_FREIGHT_COUNT ) ;
8571: END IF;
8572: IF l_freight_count > 0 THEN
8573: /* END Enhancement Request# 1915736 */
8574: IF l_debug_level > 0 THEN
8571: END IF;
8572: IF l_freight_count > 0 THEN
8573: /* END Enhancement Request# 1915736 */
8574: IF l_debug_level > 0 THEN
8575: oe_debug_pub.add( 'PREPARING INTERFACE LINE RECORD' , 5 ) ;
8576: END IF;
8577:
8578: Prepare_Interface_Line_Rec(p_line_rec => p_line_rec
8579: ,p_header_rec => p_header_rec
8579: ,p_header_rec => p_header_rec
8580: ,p_x_interface_line_rec => p_x_interface_line_rec
8581: ,x_result_code => l_result_code);
8582: IF l_debug_level > 0 THEN
8583: oe_debug_pub.add( 'VALIDATING REQUIRED ATTRIBUTES' , 5 ) ;
8584: END IF;
8585: IF NOT Validate_Required_Attributes(p_line_rec, p_x_interface_line_rec) THEN
8586: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
8587: RAISE FND_API.G_EXC_ERROR;
8586: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
8587: RAISE FND_API.G_EXC_ERROR;
8588: END IF;
8589: IF l_debug_level > 0 THEN
8590: oe_debug_pub.add( 'INTERFACING FREIGHT CHARGES' , 5 ) ;
8591: END IF;
8592: Interface_Freight_Charges(p_line_rec
8593: , p_x_interface_line_rec
8594: , x_return_status);
8611: -- sol_ord_er #16014165 end
8612: x_result_out := OE_GLOBALS.G_WFR_NOT_ELIGIBLE;
8613: end if; --sol_ord_er #16014165
8614: IF l_debug_level > 0 THEN
8615: oe_debug_pub.add( 'RETURN AFTER INVOICEABLE ELIGIBLE CHECK' , 1 ) ;
8616: END IF;
8617: --Customer Acceptance
8618: IF l_line_rejected AND p_line_rec.line_category_code = 'RETURN' THEN
8619: FND_MESSAGE.SET_NAME('ONT','ONT_RMA_NO_CREDIT');
8625: END IF;
8626: --gaynagar end
8627:
8628: IF l_debug_level > 0 THEN
8629: oe_debug_pub.add( 'PREPARING INTERFACE LINE RECORD' , 5 ) ;
8630: END IF;
8631: Prepare_Interface_Line_Rec(p_line_rec => p_line_rec
8632: ,p_header_rec => p_header_rec
8633: ,p_x_interface_line_rec => p_x_interface_line_rec
8632: ,p_header_rec => p_header_rec
8633: ,p_x_interface_line_rec => p_x_interface_line_rec
8634: ,x_result_code => l_result_code);
8635: IF l_debug_level > 0 THEN
8636: oe_debug_pub.add( 'REQUEST_ID: '||P_X_INTERFACE_LINE_REC.REQUEST_ID || ' RESULT_CODE: '||L_RESULT_CODE , 5 ) ;
8637: END IF;
8638: IF ((p_x_interface_line_rec.QUANTITY = 0 OR p_x_interface_line_rec.QUANTITY IS NULL) AND l_result_code = 'RFR-PENDING') THEN
8639: IF l_debug_level > 0 THEN
8640: oe_debug_pub.add( 'ZERO QUANTITY LINE - NOT INTERFACED' , 5 ) ;
8636: oe_debug_pub.add( 'REQUEST_ID: '||P_X_INTERFACE_LINE_REC.REQUEST_ID || ' RESULT_CODE: '||L_RESULT_CODE , 5 ) ;
8637: END IF;
8638: IF ((p_x_interface_line_rec.QUANTITY = 0 OR p_x_interface_line_rec.QUANTITY IS NULL) AND l_result_code = 'RFR-PENDING') THEN
8639: IF l_debug_level > 0 THEN
8640: oe_debug_pub.add( 'ZERO QUANTITY LINE - NOT INTERFACED' , 5 ) ;
8641: oe_debug_pub.add( 'UPDATING INVOICE FLAG AND QUANTITY' , 5 ) ;
8642: END IF;
8643: IF l_result_code = 'RFR-PENDING' THEN
8644: Update_Invoice_Attributes(p_line_rec
8637: END IF;
8638: IF ((p_x_interface_line_rec.QUANTITY = 0 OR p_x_interface_line_rec.QUANTITY IS NULL) AND l_result_code = 'RFR-PENDING') THEN
8639: IF l_debug_level > 0 THEN
8640: oe_debug_pub.add( 'ZERO QUANTITY LINE - NOT INTERFACED' , 5 ) ;
8641: oe_debug_pub.add( 'UPDATING INVOICE FLAG AND QUANTITY' , 5 ) ;
8642: END IF;
8643: IF l_result_code = 'RFR-PENDING' THEN
8644: Update_Invoice_Attributes(p_line_rec
8645: ,p_x_interface_line_rec
8650: OE_MSG_PUB.ADD;
8651: END IF;
8652: END IF;
8653: IF l_debug_level > 0 THEN
8654: oe_debug_pub.add( 'REQUEST_ID AFTER INSERTING '||P_X_INTERFACE_LINE_REC.REQUEST_ID , 5 ) ;
8655: END IF;
8656: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
8657: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
8658: RAISE FND_API.G_EXC_ERROR;
8662: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
8663: IF l_result_code = 'RFR-PENDING' THEN
8664: x_result_out := OE_GLOBALS.G_WFR_PRTL_COMPLETE;
8665: IF l_debug_level > 0 THEN
8666: 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 ) ;
8667: END IF;
8668: IF l_debug_level > 0 THEN
8669: oe_debug_pub.add( 'EXITING INTERFACE_SINGLE_LINE' , 5 ) ;
8670: END IF;
8665: IF l_debug_level > 0 THEN
8666: 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 ) ;
8667: END IF;
8668: IF l_debug_level > 0 THEN
8669: oe_debug_pub.add( 'EXITING INTERFACE_SINGLE_LINE' , 5 ) ;
8670: END IF;
8671: RETURN; --Do not need to interface this line
8672: END IF;
8673: END IF;
8671: RETURN; --Do not need to interface this line
8672: END IF;
8673: END IF;
8674: IF l_debug_level > 0 THEN
8675: oe_debug_pub.add( 'EXIT INTERFACE_SINGLE_LINE ( ) PROCEDURE ( 1 ) ' , 1 ) ;
8676: END IF;
8677: RETURN; --Do not need to interface this line
8678: END IF; -- Zero invoice quantity RFR
8679: IF l_debug_level > 0 THEN
8676: END IF;
8677: RETURN; --Do not need to interface this line
8678: END IF; -- Zero invoice quantity RFR
8679: IF l_debug_level > 0 THEN
8680: oe_debug_pub.add( 'VALIDATE REQUIRED ATTRIBUTES' , 5 ) ;
8681: END IF;
8682: IF NOT Validate_Required_Attributes(p_line_rec, p_x_interface_line_rec) THEN
8683: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
8684: RAISE FND_API.G_EXC_ERROR;
8683: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
8684: RAISE FND_API.G_EXC_ERROR;
8685: END IF;
8686: IF l_debug_level > 0 THEN
8687: oe_debug_pub.add( 'INSERTING LINE INTO RA_INTERFACE_LINES' , 5 ) ;
8688: END IF;
8689: Insert_Line(p_x_interface_line_rec
8690: ,x_return_status=>l_return_status);
8691: -- Fix for the bug 2187074
8698: -- Adjustments need not be queried here as it is anyway going to be queried in interface_detail_discounts
8699: IF (oe_sys_parameters.value('OE_DISCOUNT_DETAILS_ON_INVOICE',p_line_rec.org_id) = 'Y'
8700: AND NVL(p_line_rec.service_bill_option_code,'FBOM') = 'FBOM') THEN --moac --sol_ord_er #16014165
8701: IF l_debug_level > 0 THEN
8702: oe_debug_pub.add( 'INSERTING DISCOUNT DETAILS' , 5 ) ;
8703: END IF;
8704: Interface_Detail_Discounts(p_line_rec, p_x_interface_line_rec
8705: ,x_return_status);
8706: -- Fix for the bug 2187074
8709: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8710: END IF;
8711: END IF;
8712: IF l_debug_level > 0 THEN
8713: oe_debug_pub.add( 'INTERFACING FREIGHT CHARGES' , 5 ) ;
8714: END IF;
8715: /* Freight will be interfaced only if Billing is completely from OM */
8716: If (NVL(p_line_rec.service_bill_option_code,'FBOM') = 'FBOM') THEN -- sol_ord_er #16014165
8717: Interface_Freight_Charges(p_line_rec
8726: END IF;
8727: --sol_ord_er #16014165 start
8728: Else
8729: IF l_debug_level > 0 THEN
8730: oe_debug_pub.add( 'FREIGHT CHARGES will not be interfaced as Billing Option= '||p_line_rec.service_bill_option_code , 5 ) ;
8731: END IF;
8732: End If;
8733: --sol_ord_er #16014165 end
8734: IF l_debug_level > 0 THEN
8731: END IF;
8732: End If;
8733: --sol_ord_er #16014165 end
8734: IF l_debug_level > 0 THEN
8735: oe_debug_pub.add( 'INTERFACING SALES CREDITS' , 5 ) ;
8736: END IF;
8737: Interface_Salescredits(p_line_rec
8738: ,p_x_interface_line_rec
8739: ,x_return_status);
8746: END IF;
8747:
8748: --Customer Acceptance
8749: IF l_debug_level > 0 THEN
8750: oe_debug_pub.add( 'INTERFACING Contingencies' , 5 ) ;
8751: END IF;
8752: Interface_Contingencies
8753: ( p_line_rec => p_line_rec
8754: , p_interface_line_rec => p_x_interface_line_rec
8760: END IF;
8761: --Customer Acceptance
8762:
8763: IF l_debug_level > 0 THEN
8764: oe_debug_pub.add( 'UPDATING INVOICE FLAG AND QUANTITY' , 5 ) ;
8765: END IF;
8766: IF l_result_code = 'RFR-PENDING' THEN
8767: Update_Invoice_Attributes(p_line_rec
8768: ,p_x_interface_line_rec
8778: ,'YES'
8779: ,x_return_status);
8780: END IF;
8781: IF l_debug_level > 0 THEN
8782: oe_debug_pub.add( 'REQUEST_ID AFTER INSERTING '||P_X_INTERFACE_LINE_REC.REQUEST_ID ) ;
8783: END IF;
8784: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
8785: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
8786: RAISE FND_API.G_EXC_ERROR;
8790: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
8791: IF l_result_code = 'RFR-PENDING' THEN
8792: x_result_out := OE_GLOBALS.G_WFR_PRTL_COMPLETE;
8793: IF l_debug_level > 0 THEN
8794: oe_debug_pub.add( 'LINE ID '||TO_CHAR ( P_LINE_REC.LINE_ID ) ||' PARTIALLY INTERFACED SUCCESSFULLY' , 1 ) ;
8795: END IF;
8796: ELSE
8797: x_result_out := OE_GLOBALS.G_WFR_COMPLETE;
8798: IF l_debug_level > 0 THEN
8795: END IF;
8796: ELSE
8797: x_result_out := OE_GLOBALS.G_WFR_COMPLETE;
8798: IF l_debug_level > 0 THEN
8799: oe_debug_pub.add( 'LINE ID '||TO_CHAR ( P_LINE_REC.LINE_ID ) ||' INTERFACED SUCCESSFULLY' , 1 ) ;
8800: END IF;
8801: END IF;
8802: END IF;
8803:
8801: END IF;
8802: END IF;
8803:
8804: IF l_debug_level > 0 THEN
8805: oe_debug_pub.add( 'EXIT INTERFACE_SINGLE_LINE ( ) PROCEDURE SUCCESSFULLY' , 1 ) ;
8806: END IF;
8807: EXCEPTION
8808: WHEN FND_API.G_EXC_ERROR THEN
8809: IF l_debug_level > 0 THEN
8806: END IF;
8807: EXCEPTION
8808: WHEN FND_API.G_EXC_ERROR THEN
8809: IF l_debug_level > 0 THEN
8810: oe_debug_pub.add( 'EXPECTED ERROR. EXITING INTERFACE_SINGLE_LINE : '||SQLERRM , 1 ) ;
8811: END IF;
8812: x_return_status := FND_API.G_RET_STS_ERROR;
8813: IF l_debug_level > 0 THEN
8814: oe_debug_pub.add( 'RETURN STATUS :'||X_RETURN_STATUS||' OUT RESULT : '||X_RESULT_OUT , 5 ) ;
8810: oe_debug_pub.add( 'EXPECTED ERROR. EXITING INTERFACE_SINGLE_LINE : '||SQLERRM , 1 ) ;
8811: END IF;
8812: x_return_status := FND_API.G_RET_STS_ERROR;
8813: IF l_debug_level > 0 THEN
8814: oe_debug_pub.add( 'RETURN STATUS :'||X_RETURN_STATUS||' OUT RESULT : '||X_RESULT_OUT , 5 ) ;
8815: END IF;
8816: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8817: IF l_debug_level > 0 THEN
8818: oe_debug_pub.add( 'UNEXPECTED ERROR. EXITING INTERFACE_SINGLE_LINE '||SQLERRM , 1 ) ;
8814: oe_debug_pub.add( 'RETURN STATUS :'||X_RETURN_STATUS||' OUT RESULT : '||X_RESULT_OUT , 5 ) ;
8815: END IF;
8816: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8817: IF l_debug_level > 0 THEN
8818: oe_debug_pub.add( 'UNEXPECTED ERROR. EXITING INTERFACE_SINGLE_LINE '||SQLERRM , 1 ) ;
8819: oe_debug_pub.add( 'RETURN STATUS :'||X_RETURN_STATUS||' OUT RESULT : '||X_RESULT_OUT , 5 ) ;
8820: END IF;
8821: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8822: WHEN OTHERS THEN
8815: END IF;
8816: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8817: IF l_debug_level > 0 THEN
8818: oe_debug_pub.add( 'UNEXPECTED ERROR. EXITING INTERFACE_SINGLE_LINE '||SQLERRM , 1 ) ;
8819: oe_debug_pub.add( 'RETURN STATUS :'||X_RETURN_STATUS||' OUT RESULT : '||X_RESULT_OUT , 5 ) ;
8820: END IF;
8821: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8822: WHEN OTHERS THEN
8823: IF l_debug_level > 0 THEN
8820: END IF;
8821: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8822: WHEN OTHERS THEN
8823: IF l_debug_level > 0 THEN
8824: oe_debug_pub.add( 'OTHER EXCEPTION. EXITING INTERFACE_SINGLE_LINE : '||SQLERRM , 1 ) ;
8825: oe_debug_pub.add( 'RETURN STATUS :'||X_RETURN_STATUS||' OUT RESULT : '||X_RESULT_OUT , 5 ) ;
8826: END IF;
8827: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8828: OE_MSG_PUB.Add_Exc_Msg
8821: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8822: WHEN OTHERS THEN
8823: IF l_debug_level > 0 THEN
8824: oe_debug_pub.add( 'OTHER EXCEPTION. EXITING INTERFACE_SINGLE_LINE : '||SQLERRM , 1 ) ;
8825: oe_debug_pub.add( 'RETURN STATUS :'||X_RETURN_STATUS||' OUT RESULT : '||X_RESULT_OUT , 5 ) ;
8826: END IF;
8827: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8828: OE_MSG_PUB.Add_Exc_Msg
8829: ( G_PKG_NAME
8910: WHERE (Line.link_to_line_id = l_line_rec.link_to_line_id
8911: OR Line.line_id = l_line_rec.link_to_line_id)
8912: AND invoice_interface_status_code = 'RFR-PENDING';
8913: --
8914: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8915: --
8916: l_delivery_name VARCHAR2(30);
8917: --bug# 4094835
8918: delivery_line_processed VARCHAR2(1):='N';
8927: l_global_index NUMBER;
8928: -- 16620434 end
8929: BEGIN
8930: IF l_debug_level > 0 THEN
8931: oe_debug_pub.add( 'ENTERING INTERFACE_LINE ( ) PROCEDURE' , 1 ) ;
8932: oe_debug_pub.add( 'LINE ID : '|| P_LINE_ID , 5 ) ;
8933: oe_debug_pub.add( 'ITEM TYPE : '||P_ITEMTYPE , 5 ) ;
8934: END IF;
8935: IF p_itemtype = OE_GLOBALS.G_WFI_LIN THEN
8928: -- 16620434 end
8929: BEGIN
8930: IF l_debug_level > 0 THEN
8931: oe_debug_pub.add( 'ENTERING INTERFACE_LINE ( ) PROCEDURE' , 1 ) ;
8932: oe_debug_pub.add( 'LINE ID : '|| P_LINE_ID , 5 ) ;
8933: oe_debug_pub.add( 'ITEM TYPE : '||P_ITEMTYPE , 5 ) ;
8934: END IF;
8935: IF p_itemtype = OE_GLOBALS.G_WFI_LIN THEN
8936: SAVEPOINT INVOICE_INTERFACE;
8929: BEGIN
8930: IF l_debug_level > 0 THEN
8931: oe_debug_pub.add( 'ENTERING INTERFACE_LINE ( ) PROCEDURE' , 1 ) ;
8932: oe_debug_pub.add( 'LINE ID : '|| P_LINE_ID , 5 ) ;
8933: oe_debug_pub.add( 'ITEM TYPE : '||P_ITEMTYPE , 5 ) ;
8934: END IF;
8935: IF p_itemtype = OE_GLOBALS.G_WFI_LIN THEN
8936: SAVEPOINT INVOICE_INTERFACE;
8937: END IF;
8993: from oe_order_lines_all where line_id = l_line_rec.line_id
8994: FOR UPDATE NOWAIT;
8995:
8996: IF l_debug_level > 0 THEN
8997: oe_debug_pub.add('Locking successful');
8998: END IF;
8999:
9000: exception
9001: --- bug# 7600960 : Start
9001: --- bug# 7600960 : Start
9002: /*
9003: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
9004: IF l_debug_level > 0 THEN
9005: oe_debug_pub.add('in lock record exception, someone else working on the row');
9006: END IF;
9007: x_return_status := FND_API.G_RET_STS_ERROR;
9008: l_line_rec.return_status := FND_API.G_RET_STS_ERROR;
9009: l_line_rec.line_id := null;
9013: */
9014:
9015: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
9016: IF l_debug_level > 0 THEN
9017: oe_debug_pub.add(' in lock record exception, someone else working on the row ');
9018: oe_debug_pub.add(' SQLERRM = '|| SQLERRM );
9019: oe_debug_pub.add( ' Unable to LOCK this Line. Going to make it DEFERRED so that it can be picked by another WFBP ');
9020: END IF;
9021:
9014:
9015: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
9016: IF l_debug_level > 0 THEN
9017: oe_debug_pub.add(' in lock record exception, someone else working on the row ');
9018: oe_debug_pub.add(' SQLERRM = '|| SQLERRM );
9019: oe_debug_pub.add( ' Unable to LOCK this Line. Going to make it DEFERRED so that it can be picked by another WFBP ');
9020: END IF;
9021:
9022: IF p_itemtype = OE_GLOBALS.G_WFI_LIN THEN
9015: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
9016: IF l_debug_level > 0 THEN
9017: oe_debug_pub.add(' in lock record exception, someone else working on the row ');
9018: oe_debug_pub.add(' SQLERRM = '|| SQLERRM );
9019: oe_debug_pub.add( ' Unable to LOCK this Line. Going to make it DEFERRED so that it can be picked by another WFBP ');
9020: END IF;
9021:
9022: IF p_itemtype = OE_GLOBALS.G_WFI_LIN THEN
9023: ROLLBACK TO INVOICE_INTERFACE;
9030: --- bug# 7600960 : end
9031:
9032: WHEN NO_DATA_FOUND THEN
9033: IF l_debug_level > 0 THEN
9034: oe_debug_pub.add('no_data_found, record lock exception');
9035: END IF;
9036: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9037:
9038: WHEN OTHERS THEN
9036: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9037:
9038: WHEN OTHERS THEN
9039: IF l_debug_level > 0 THEN
9040: oe_debug_pub.add('record lock exception, others');
9041: oe_debug_pub.add('line id '|| v_line_id , 1);
9042: END IF;
9043: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9044: END;
9037:
9038: WHEN OTHERS THEN
9039: IF l_debug_level > 0 THEN
9040: oe_debug_pub.add('record lock exception, others');
9041: oe_debug_pub.add('line id '|| v_line_id , 1);
9042: END IF;
9043: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9044: END;
9045:
9051: if l_line_rec.source_document_type_id = 10 THEN
9052: x_result_out := OE_GLOBALS.G_WFR_NOT_ELIGIBLE;
9053: x_return_status := FND_API.G_RET_STS_SUCCESS ;
9054: IF l_debug_level > 0 THEN
9055: oe_debug_pub.add( ' This is Internal Sales Order line... not doing anything for ISO flow.' , 1 ) ;
9056: END IF;
9057: --- bug# 9370369 : Start --
9058: BEGIN
9059: Update_Invoice_Attributes(l_line_rec
9060: ,l_interface_line_rec
9061: ,'NOT_ELIGIBLE'
9062: ,x_return_status);
9063:
9064: oe_debug_pub.add( ' x_return_status after Update_Invoice_Attributes() : '|| x_return_status , 5 ) ;
9065:
9066: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
9067: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
9068: RAISE FND_API.G_EXC_ERROR;
9070: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
9071: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9072: END IF;
9073: END;
9074: oe_debug_pub.add( ' before returning ...',5);
9075: --- bug# 9370369 : End--
9076: RETURN;
9077: end if;
9078: ---Bug 8683948 : end
9077: end if;
9078: ---Bug 8683948 : end
9079:
9080: -- bug# 7231974 : before starting processing, fetch the service date
9081: oe_debug_pub.add( ' trying to fetch srv_start/end_date ... ' , 5 ) ;
9082: IF l_line_Rec.item_type_code = 'SERVICE' and l_line_Rec.accounting_rule_duration is null
9083: and (l_line_rec.SERVICE_START_DATE is null or l_line_rec.SERVICE_START_DATE is null) THEN
9084: --13724397 Start
9085: --Update_Service_Dates(l_line_Rec);
9090: THEN
9091: --16620434 Start
9092: -- Update the current line being processed
9093: IF l_debug_level > 0 THEN
9094: oe_debug_pub.add('OEXPINVB Update Service Start Date= '
9095: ||to_char(l_line_rec.SERVICE_START_DATE,'DD-MON-YYYY HH24:MI:SS')
9096: ||'and End Date'
9097: ||to_char(l_line_rec.SERVICE_END_DATE,'DD-MON-YYYY HH24:MI:SS')
9098: ||' for line_id= '||l_line_rec.line_id);
9113: p_line_id => l_line_rec.line_id,
9114: x_index => l_global_index,
9115: x_return_status => l_return_status );
9116: IF l_debug_level > 0 THEN
9117: oe_debug_pub.add('OEXPINVB 1: after update global picture, status: '
9118: || l_return_status, 1 ) ;
9119: oe_debug_pub.add('OEXPINVB 2: global picture index: ' || l_global_index , 1 ) ;
9120: END IF;
9121:
9115: x_return_status => l_return_status );
9116: IF l_debug_level > 0 THEN
9117: oe_debug_pub.add('OEXPINVB 1: after update global picture, status: '
9118: || l_return_status, 1 ) ;
9119: oe_debug_pub.add('OEXPINVB 2: global picture index: ' || l_global_index , 1 ) ;
9120: END IF;
9121:
9122: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9123: RAISE Fnd_Api.G_EXC_ERROR;
9131: END IF; -- on l_index being non-null
9132: END IF; -- on code release level
9133: --16620434 End
9134: IF l_debug_level > 0 THEN
9135: oe_Debug_pub.add(' ..101.. Calculating first period amount from OEXPINVB ');
9136: End If;
9137:
9138: oe_delayed_requests_util.First_period_bill_amt (
9139: p_header_id => '',
9148: where l.line_id = l_line_rec.line_id;
9149: EXCEPTION
9150: WHEN NO_DATA_FOUND THEN
9151: IF l_debug_level > 0 THEN
9152: oe_Debug_pub.add(' ..101.. No Data Found in OEXPINVB for line_id '||l_line_rec.line_id);
9153: End If;
9154: x_return_status := FND_API.G_RET_STS_ERROR;
9155: WHEN OTHERS THEN
9156: IF l_debug_level > 0 THEN
9153: End If;
9154: x_return_status := FND_API.G_RET_STS_ERROR;
9155: WHEN OTHERS THEN
9156: IF l_debug_level > 0 THEN
9157: oe_Debug_pub.add(' ..101.. UnExpected Error in OEXPINVB for line_id '||l_line_rec.line_id);
9158: End If;
9159: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9160: END;
9161: End If;
9180: IF NVL(OE_SYS_PARAMETERS.VALUE('ENABLE_FULFILLMENT_ACCEPTANCE'), 'N') = 'Y' AND
9181: OE_ACCEPTANCE_UTIL.Pre_billing_acceptance_on(l_line_rec)
9182: AND OE_ACCEPTANCE_UTIL.Acceptance_Status(l_line_rec) = 'NOT_ACCEPTED' THEN
9183: IF l_debug_level > 0 THEN
9184: oe_debug_pub.add('top_model_line_id:'||l_line_rec.top_model_line_id);
9185: END IF;
9186:
9187: -- added following for bug# 5232503
9188: -- If it is a child line then check if the parent is accepted.
9196: AND l_line_rec.service_reference_type_code='ORDER'
9197: AND l_line_rec.service_reference_line_id IS NOT NULL
9198: AND OE_ACCEPTANCE_UTIL.Acceptance_Status(l_line_rec.service_reference_line_id) = 'ACCEPTED')) THEN
9199: IF l_debug_level > 0 THEN
9200: oe_debug_pub.add('acceptance not required. item_type:'||l_line_rec.item_type_code);
9201: END IF;
9202: ELSE
9203: Update_Invoice_Attributes(l_line_rec ,l_interface_line_rec ,'ACCEPTANCE-PENDING' ,x_return_status);
9204: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
9258: END IF;
9259: EXCEPTION
9260: WHEN NO_DATA_FOUND THEN
9261: IF l_debug_level > 0 THEN
9262: oe_debug_pub.add('Non-invoiceable lines-In when no data found of freight');
9263: END IF;
9264: l_freight_count := 0;
9265: END;
9266: IF l_debug_level > 0 THEN
9263: END IF;
9264: l_freight_count := 0;
9265: END;
9266: IF l_debug_level > 0 THEN
9267: oe_debug_pub.add('l_freight_count: '||l_freight_count);
9268: END IF;
9269: IF l_freight_count >0 then
9270: Check_Invoicing_Holds(l_line_rec, p_itemtype, x_return_status);
9271: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
9280: /* Bug#2666125 end-check freight records and holds for non invoiceable items*/
9281: IF
9282: -- l_freight_count = 0 OR
9283: FND_PROFILE.VALUE('WSH_INVOICE_NUMBERING_METHOD') = 'A' THEN
9284: oe_debug_pub.add('Handling non-invoiceable lines with no freight or automatic numbering',1);
9285: -- sol_ord_er #16014165 end
9286: IF l_line_rec.service_bill_option_code = 'FBOKS' THEN
9287: l_inv_stat := 'BILLED_FROM_CONTRACTS';
9288: Else
9307: --- some lines in RFR-PENDING block. We should invoice them.
9308: IF Is_PTO(l_line_rec) THEN
9309: IF Is_RFR(l_line_rec.line_id) THEN
9310: IF l_debug_level > 0 THEN
9311: oe_debug_pub.add( 'RFR: THIS LINE IS RFR BUT NOT ELIGIBLE FOR INVOICING- CHECKING FOR PENDING LINES' , 5 ) ;
9312: END IF;
9313: Open Pending_Lines;
9314: LOOP
9315: Fetch Pending_Lines Into l_pending_line_id;
9315: Fetch Pending_Lines Into l_pending_line_id;
9316: EXIT WHEN Pending_Lines%NOTFOUND;
9317: OE_Line_Util.Query_Row(p_line_id=>l_pending_line_id,x_line_rec=>l_pending_line_rec);
9318: IF l_debug_level > 0 THEN
9319: oe_debug_pub.add( 'RFR: PENDING LINE ID : ' || TO_CHAR ( L_PENDING_LINE_ID ) , 5 ) ;
9320: END IF;
9321: IF Something_To_Invoice(l_pending_line_rec) THEN -- the pending line now has something to
9322: -- invoice because current line has been shipped
9323: IF l_debug_level > 0 THEN
9320: END IF;
9321: IF Something_To_Invoice(l_pending_line_rec) THEN -- the pending line now has something to
9322: -- invoice because current line has been shipped
9323: IF l_debug_level > 0 THEN
9324: oe_debug_pub.add( 'RFR: INTERFACING PENDING LINE ID :'||L_PENDING_LINE_ID , 5 ) ;
9325: END IF;
9326: Interface_Single_line(p_line_rec => l_pending_line_rec
9327: ,p_header_rec => l_header_rec
9328: ,p_x_interface_line_rec => l_interface_line_rec
9328: ,p_x_interface_line_rec => l_interface_line_rec
9329: ,x_return_status => x_return_status
9330: ,x_result_out => x_result_out);
9331: IF l_debug_level > 0 THEN
9332: oe_debug_pub.add( 'INTERFACING PENDING LINE ID ' || L_PENDING_LINE_REC.LINE_ID , 5 ) ;
9333: END IF;
9334: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
9335: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
9336: RAISE FND_API.G_EXC_ERROR;
9339: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9340: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
9341: IF x_result_out = OE_GLOBALS.G_WFR_PRTL_COMPLETE THEN
9342: IF l_debug_level > 0 THEN
9343: oe_debug_pub.add( 'RFR PENDING LINE PARTIALLY INTERFACED' , 5 ) ;
9344: END IF;
9345: ELSE --x_result_out = OE_GLOBALS.G_WFR_COMPLETE THEN
9346: IF l_debug_level > 0 THEN
9347: oe_debug_pub.add( 'RFR-PENDING LINE INTERFACED SUCCESSFULLY' , 5 ) ;
9343: oe_debug_pub.add( 'RFR PENDING LINE PARTIALLY INTERFACED' , 5 ) ;
9344: END IF;
9345: ELSE --x_result_out = OE_GLOBALS.G_WFR_COMPLETE THEN
9346: IF l_debug_level > 0 THEN
9347: oe_debug_pub.add( 'RFR-PENDING LINE INTERFACED SUCCESSFULLY' , 5 ) ;
9348: END IF;
9349: WF_ENGINE.CompleteActivityInternalName(OE_GLOBALS.G_WFI_LIN, l_pending_line_rec.line_id, 'INVOICING_WAIT_FOR_RFR', 'COMPLETE');
9350: END IF;
9351: END IF;
9393: END IF;
9394: EXCEPTION
9395: WHEN NO_DATA_FOUND THEN
9396: IF l_debug_level > 0 THEN
9397: oe_debug_pub.add( 'IN WHEN NO DATA FOUND OF FREIGHT' ) ;
9398: END IF;
9399: l_freight_count := 0;
9400: END;
9401: IF l_debug_level > 0 THEN
9398: END IF;
9399: l_freight_count := 0;
9400: END;
9401: IF l_debug_level > 0 THEN
9402: oe_debug_pub.add( 'L_FREIGHT_COUNT: '||L_FREIGHT_COUNT ) ;
9403: END IF;
9404: IF l_freight_count > 0 THEN
9405: /* END Enhancement Request# 1915736 */
9406: IF l_debug_level > 0 THEN
9403: END IF;
9404: IF l_freight_count > 0 THEN
9405: /* END Enhancement Request# 1915736 */
9406: IF l_debug_level > 0 THEN
9407: oe_debug_pub.add( 'PREPARING INTERFACE LINE RECORD' , 5 ) ;
9408: END IF;
9409: Prepare_Interface_Line_Rec(p_line_rec => l_line_rec
9410: ,p_header_rec => l_header_rec
9411: ,p_x_interface_line_rec => l_interface_line_rec
9410: ,p_header_rec => l_header_rec
9411: ,p_x_interface_line_rec => l_interface_line_rec
9412: ,x_result_code => l_result_code);
9413: IF l_debug_level > 0 THEN
9414: oe_debug_pub.add( 'VALIDATING REQUIRED ATTRIBUTES' , 5 ) ;
9415: END IF;
9416: IF NOT Validate_Required_Attributes(l_line_rec, l_interface_line_rec) THEN
9417: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
9418: RAISE FND_API.G_EXC_ERROR;
9417: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
9418: RAISE FND_API.G_EXC_ERROR;
9419: END IF;
9420: IF l_debug_level > 0 THEN
9421: oe_debug_pub.add( 'INTERFACING FREIGHT CHARGES' , 5 ) ;
9422: END IF;
9423: Interface_Freight_Charges(l_line_rec
9424: , l_interface_line_rec
9425: , x_return_status);
9441: -- sol_ord_er #16014165 end
9442: x_result_out := OE_GLOBALS.G_WFR_NOT_ELIGIBLE;
9443: end if; --sol_ord_er #16014165
9444: IF l_debug_level > 0 THEN
9445: oe_debug_pub.add( 'RETURN AFTER INVOICEABLE ELIGIBLE CHECK' , 1 ) ;
9446: END IF;
9447: --Customer Acceptance
9448: IF l_line_rejected AND l_line_rec.line_category_code = 'RETURN' THEN
9449: FND_MESSAGE.SET_NAME('ONT','ONT_RMA_NO_CREDIT');
9464: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9465: END IF;
9466: IF FND_PROFILE.VALUE('WSH_INVOICE_NUMBERING_METHOD') = 'D' THEN
9467: IF l_debug_level > 0 THEN
9468: oe_debug_pub.add( 'INVOICE NUMBERING SET TO MANUAL' , 5 ) ;
9469: END IF;
9470: IF Shipping_Info_Available(l_line_rec) AND NOT Return_Line(l_line_rec) THEN
9471: -- Fix for bug 2196494
9472: IF (l_line_rec.item_type_code NOT IN ('MODEL','CLASS','KIT')) THEN
9470: IF Shipping_Info_Available(l_line_rec) AND NOT Return_Line(l_line_rec) THEN
9471: -- Fix for bug 2196494
9472: IF (l_line_rec.item_type_code NOT IN ('MODEL','CLASS','KIT')) THEN
9473: IF l_debug_level > 0 THEN
9474: oe_debug_pub.add( 'SHIPPING INFORMATION IS AVAILABLE' ) ;
9475: END IF;
9476: --Bug2181628 TO retrieve the minimum delivery_id of a line,if it is present
9477: --in more than one delivery.Hence used "MIN"instead of "ROWNUM".
9478: SELECT min(dl.delivery_id)
9503:
9504: -- fix: temporary
9505: IF l_delivery_line_id IS NOT NULL THEN
9506: IF l_debug_level > 0 THEN
9507: oe_debug_pub.add( 'DELIVERY ID : '||L_DELIVERY_LINE_ID , 5 ) ;
9508: END IF;
9509:
9510: /* added for bug fix 4084965 */
9511: BEGIN
9509:
9510: /* added for bug fix 4084965 */
9511: BEGIN
9512: IF l_debug_level > 0 THEN
9513: oe_debug_pub.add( 'locking '||to_char(sysdate,'HH24:MI:SS') ,5 ) ;
9514: END IF;
9515: open cur1(l_delivery_line_id);
9516: close cur1;
9517: IF l_debug_level > 0 THEN
9514: END IF;
9515: open cur1(l_delivery_line_id);
9516: close cur1;
9517: IF l_debug_level > 0 THEN
9518: oe_debug_pub.add( 'locking: locked' , 5 ) ;
9519: END IF;
9520: EXCEPTION
9521: when app_exceptions.RECORD_LOCK_EXCEPTION then
9522: IF l_debug_level > 0 THEN
9519: END IF;
9520: EXCEPTION
9521: when app_exceptions.RECORD_LOCK_EXCEPTION then
9522: IF l_debug_level > 0 THEN
9523: oe_debug_pub.add( 'locking: cannot lock' , 5 ) ;
9524: END IF;
9525: x_return_status := 'DEFERRED';
9526: RETURN;
9527: when others then
9525: x_return_status := 'DEFERRED';
9526: RETURN;
9527: when others then
9528: IF l_debug_level > 0 THEN
9529: oe_debug_pub.add( 'locking: exception:'||sqlerrm , 5 ) ;
9530: END IF;
9531: END; -- end of bug fix 4084965
9532:
9533: OPEN delivery_lines_cursor(l_delivery_line_id);
9538: INTO l_interface_status_code, l_open_flag
9539: FROM oe_order_lines
9540: WHERE line_id = l_line_id;
9541: IF l_debug_level > 0 THEN
9542: oe_debug_pub.add( 'LINE ID : '||L_LINE_ID , 5 ) ;
9543: END IF;
9544: IF l_interface_status_code = 'YES' OR
9545: l_interface_status_code = 'NOT_ELIGIBLE' OR
9546: l_interface_status_code = 'MANUAL-PENDING' OR
9610: EXIT WHEN del_line_ready_flag = 'N';
9611: END LOOP;
9612: CLOSE delivery_lines_cursor;
9613: IF l_debug_level > 0 THEN
9614: oe_debug_pub.add( 'DELIVERY LINE READY FLAG : '||DEL_LINE_READY_FLAG , 5 ) ;
9615: END IF;
9616: IF del_line_ready_flag = 'N' THEN -- atleast one line in delivery is not ready to interface
9617: IF l_debug_level > 0 THEN
9618: oe_debug_pub.add( 'SOME OF THE LINES IN THE DELIVERY ARE NOT READY' , 5 ) ;
9614: oe_debug_pub.add( 'DELIVERY LINE READY FLAG : '||DEL_LINE_READY_FLAG , 5 ) ;
9615: END IF;
9616: IF del_line_ready_flag = 'N' THEN -- atleast one line in delivery is not ready to interface
9617: IF l_debug_level > 0 THEN
9618: oe_debug_pub.add( 'SOME OF THE LINES IN THE DELIVERY ARE NOT READY' , 5 ) ;
9619: END IF;
9620: IF p_itemtype = OE_GLOBALS.G_WFI_LIN THEN
9621: IF l_debug_level > 0 THEN
9622: oe_debug_pub.add( 'LINE LEVEL INVOICING-SET STATUS TO PENDING' , 5 ) ;
9618: oe_debug_pub.add( 'SOME OF THE LINES IN THE DELIVERY ARE NOT READY' , 5 ) ;
9619: END IF;
9620: IF p_itemtype = OE_GLOBALS.G_WFI_LIN THEN
9621: IF l_debug_level > 0 THEN
9622: oe_debug_pub.add( 'LINE LEVEL INVOICING-SET STATUS TO PENDING' , 5 ) ;
9623: END IF;
9624: Update_Invoice_Attributes(l_line_rec
9625: ,l_interface_line_rec
9626: ,'MANUAL-PENDING'
9636: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME',l_delivery_name);
9637: OE_MSG_PUB.ADD;
9638: END IF;
9639: IF l_debug_level > 0 THEN
9640: oe_debug_pub.add( 'INTERFACE STATUS : '||L_LINE_REC.INVOICE_INTERFACE_STATUS_CODE , 5 ) ;
9641: oe_debug_pub.add( 'X_RETURN_STATUS : '||X_RETURN_STATUS , 5 ) ;
9642: END IF;
9643: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
9644: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
9637: OE_MSG_PUB.ADD;
9638: END IF;
9639: IF l_debug_level > 0 THEN
9640: oe_debug_pub.add( 'INTERFACE STATUS : '||L_LINE_REC.INVOICE_INTERFACE_STATUS_CODE , 5 ) ;
9641: oe_debug_pub.add( 'X_RETURN_STATUS : '||X_RETURN_STATUS , 5 ) ;
9642: END IF;
9643: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
9644: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
9645: RAISE FND_API.G_EXC_ERROR;
9651: RETURN;
9652: END IF;
9653: ELSE -- header level invoice, all delivery lines are not ready to invoice. do not honor delivery.
9654: IF l_debug_level > 0 THEN
9655: oe_debug_pub.add( 'HDR INVOICING- PROCEED W/INVOICING' , 5 ) ;
9656: END IF;
9657: generate_invoice_number := 'Y';
9658: interface_this_line := 'Y';
9659: END IF;
9658: interface_this_line := 'Y';
9659: END IF;
9660: ELSIF del_line_ready_flag = 'Y' THEN --invoice all lines in delivery
9661: IF l_debug_level > 0 THEN
9662: oe_debug_pub.add( 'ALL LINES IN DELIVERY ARE READY' , 5 ) ;
9663: END IF;
9664: --except we need to check for any line in the delivery actually is not invoiciable
9665: --due to RFR
9666: OPEN delivery_lines_cursor(l_delivery_line_id);
9669: EXIT WHEN delivery_lines_cursor%NOTFOUND;
9670: OE_Line_Util.Query_Row(p_line_id=>l_line_id, x_line_rec=>l_line_rec);
9671: OE_Header_Util.Query_row(p_header_id=>l_line_rec.header_id,x_header_rec=>l_header_rec);
9672: IF l_debug_level > 0 THEN
9673: oe_debug_pub.add( 'LINE ID : '||L_LINE_REC.LINE_ID , 5 ) ;
9674: END IF;
9675: --gaynagar processing non-invoiceable lines with delivery lines
9676: IF l_line_rec.open_flag='Y' AND
9677: NVL(l_line_rec.invoice_interface_status_code, 'NO') <> 'YES' AND
9716: AND dd.top_model_line_id = l_line_id;
9717: END IF;
9718:
9719: IF l_debug_level > 0 THEN
9720: oe_debug_pub.add( 'CURRENT LINES DELIVERY ID = '||L_LINE_DELIVERY_ID , 5 ) ;
9721: END IF;
9722: ELSE
9723: IF l_line_rec.item_type_code in ('MODEL', 'CLASS', 'KIT') THEN
9724: SELECT min(dl.delivery_id)
9731: AND dd.source_code = 'OE'
9732: AND dd.released_status = 'C' -- bug 6721251
9733: AND dd.top_model_line_id = l_line_id;
9734: IF l_debug_level > 0 THEN
9735: oe_debug_pub.add( 'CURRENT LINES DELIVERY ID MODEL , CLASS , KIT = '||L_LINE_DELIVERY_ID , 5 ) ;
9736: END IF;
9737: END IF;
9738: END IF;
9739: END IF;
9747: generate_invoice_number := 'Y';
9748: l_old_interface_status_code := l_line_rec.invoice_interface_status_code;
9749: IF Is_PTO(l_line_rec) THEN
9750: IF l_debug_level > 0 THEN
9751: oe_debug_pub.add( 'RFR: PTO IS TRUE - IN DELIVERY HANDLING' , 5 ) ;
9752: END IF;
9753: IF Something_To_Invoice(l_line_rec) THEN
9754: IF l_debug_level > 0 THEN
9755: oe_debug_pub.add( 'RFR: SOMETHING_TO_INVOICE IS TRUE , GO AHEAD INTERFACE - IN DELIVERY HANDLING' , 5 ) ;
9751: oe_debug_pub.add( 'RFR: PTO IS TRUE - IN DELIVERY HANDLING' , 5 ) ;
9752: END IF;
9753: IF Something_To_Invoice(l_line_rec) THEN
9754: IF l_debug_level > 0 THEN
9755: oe_debug_pub.add( 'RFR: SOMETHING_TO_INVOICE IS TRUE , GO AHEAD INTERFACE - IN DELIVERY HANDLING' , 5 ) ;
9756: END IF;
9757: Interface_Single_line(p_line_rec => l_line_rec
9758: ,p_header_rec => l_header_rec
9759: ,p_x_interface_line_rec => l_interface_line_rec
9759: ,p_x_interface_line_rec => l_interface_line_rec
9760: ,x_return_status => x_return_status
9761: ,x_result_out => x_result_out);
9762: IF l_debug_level > 0 THEN
9763: oe_debug_pub.add( 'INTERFACED W/REQUEST_ID : '||L_INTERFACE_LINE_REC.REQUEST_ID , 5 ) ;
9764: -- if this line can only invoice partial, it will become RFR-PENDING while interfacing whatever it can
9765: -- x_result_out should have set appropriately
9766: oe_debug_pub.add( 'AFTER INTERFACE SINGLE LINE , RESULT_OUT IS ' || X_RESULT_OUT ||': And x_return_status:'||x_return_status, 5 ) ;
9767: END IF;
9762: IF l_debug_level > 0 THEN
9763: oe_debug_pub.add( 'INTERFACED W/REQUEST_ID : '||L_INTERFACE_LINE_REC.REQUEST_ID , 5 ) ;
9764: -- if this line can only invoice partial, it will become RFR-PENDING while interfacing whatever it can
9765: -- x_result_out should have set appropriately
9766: oe_debug_pub.add( 'AFTER INTERFACE SINGLE LINE , RESULT_OUT IS ' || X_RESULT_OUT ||': And x_return_status:'||x_return_status, 5 ) ;
9767: END IF;
9768: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
9769: RAISE FND_API.G_EXC_ERROR;
9770: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9773: -- bug# 4094835, if RFR line is fully is fully invoiced or not eligible
9774: IF (x_result_out = OE_GLOBALS.G_WFR_COMPLETE OR x_result_out=OE_GLOBALS.G_WFR_NOT_ELIGIBLE) THEN
9775: IF l_old_interface_status_code = 'MANUAL-PENDING' OR l_old_interface_status_code = 'RFR-PENDING' THEN
9776: IF l_debug_level > 0 THEN
9777: oe_debug_pub.add( 'RFR: MANUAL-PENDING + RFR LINE HAS BEEN FULLY INVOICED' , 5 ) ;
9778: oe_debug_pub.add( 'NOW COMPLETING THE WF BLOCK ACTIVITY' , 5 ) ;
9779: END IF;
9780: WF_ENGINE.CompleteActivityInternalName(OE_GLOBALS.G_WFI_LIN, l_line_rec.line_id, 'INVOICING_WAIT_FOR_RFR', 'COMPLETE');
9781: END IF;
9774: IF (x_result_out = OE_GLOBALS.G_WFR_COMPLETE OR x_result_out=OE_GLOBALS.G_WFR_NOT_ELIGIBLE) THEN
9775: IF l_old_interface_status_code = 'MANUAL-PENDING' OR l_old_interface_status_code = 'RFR-PENDING' THEN
9776: IF l_debug_level > 0 THEN
9777: oe_debug_pub.add( 'RFR: MANUAL-PENDING + RFR LINE HAS BEEN FULLY INVOICED' , 5 ) ;
9778: oe_debug_pub.add( 'NOW COMPLETING THE WF BLOCK ACTIVITY' , 5 ) ;
9779: END IF;
9780: WF_ENGINE.CompleteActivityInternalName(OE_GLOBALS.G_WFI_LIN, l_line_rec.line_id, 'INVOICING_WAIT_FOR_RFR', 'COMPLETE');
9781: END IF;
9782: END IF;
9781: END IF;
9782: END IF;
9783: IF x_result_out = OE_GLOBALS.G_WFR_PRTL_COMPLETE THEN -- RFR line is partially invoiced
9784: IF l_debug_level > 0 THEN
9785: oe_debug_pub.add( 'RFR: THIS LINE IS PARTIALLY INVOICED' , 5 ) ;
9786: END IF;
9787: END IF;
9788: -- real invoice_interface_status_code should have updated to right value
9789: -- from interface_single_line already
9789: -- from interface_single_line already
9790: END IF;
9791: ELSE -- PTO in a delivery, but nothing available to invoice, update to RFR-PENDING
9792: IF l_debug_level > 0 THEN
9793: oe_debug_pub.add( 'RFR: NOTHING AVAILABLE FOR PTO TO INVOICE , UDPATE RFR-PENDING' , 5 ) ;
9794: 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 ) ;
9795: END IF;
9796: l_interface_line_rec.quantity := 0; -- for bug# 4760143, setting the quantity to zero as nothing to invoice
9797: IF l_debug_level > 0 THEN
9790: END IF;
9791: ELSE -- PTO in a delivery, but nothing available to invoice, update to RFR-PENDING
9792: IF l_debug_level > 0 THEN
9793: oe_debug_pub.add( 'RFR: NOTHING AVAILABLE FOR PTO TO INVOICE , UDPATE RFR-PENDING' , 5 ) ;
9794: 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 ) ;
9795: END IF;
9796: l_interface_line_rec.quantity := 0; -- for bug# 4760143, setting the quantity to zero as nothing to invoice
9797: IF l_debug_level > 0 THEN
9798: oe_debug_pub.add( 'l_interface_line_rec.quantity after resetting:'|| l_interface_line_rec.quantity,5 ) ;
9794: 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 ) ;
9795: END IF;
9796: l_interface_line_rec.quantity := 0; -- for bug# 4760143, setting the quantity to zero as nothing to invoice
9797: IF l_debug_level > 0 THEN
9798: oe_debug_pub.add( 'l_interface_line_rec.quantity after resetting:'|| l_interface_line_rec.quantity,5 ) ;
9799: END IF;
9800: Update_Invoice_Attributes(l_line_rec
9801: ,l_interface_line_rec
9802: ,'RFR-PENDING'
9805: FND_MESSAGE.SET_NAME('ONT','OE_INVOICE_WAIT_FOR_RFR');
9806: OE_MSG_PUB.ADD;
9807: END IF;
9808: IF l_debug_level > 0 THEN
9809: oe_debug_pub.add( 'RFR: L_LINE_REC.INTERFACE_STATUS '||L_LINE_REC.INVOICE_INTERFACE_STATUS_CODE , 5 ) ;
9810: oe_debug_pub.add( 'RFR: X_RETURN_STATUS :'||X_RETURN_STATUS , 5 ) ;
9811: END IF;
9812: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
9813: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
9806: OE_MSG_PUB.ADD;
9807: END IF;
9808: IF l_debug_level > 0 THEN
9809: oe_debug_pub.add( 'RFR: L_LINE_REC.INTERFACE_STATUS '||L_LINE_REC.INVOICE_INTERFACE_STATUS_CODE , 5 ) ;
9810: oe_debug_pub.add( 'RFR: X_RETURN_STATUS :'||X_RETURN_STATUS , 5 ) ;
9811: END IF;
9812: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
9813: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
9814: RAISE FND_API.G_EXC_ERROR;
9818: --bug# 4094835
9819: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
9820: x_result_out := OE_GLOBALS.G_WFR_PRTL_COMPLETE;
9821: IF l_debug_level > 0 THEN
9822: oe_debug_pub.add( 'RFR: LINE ID '||TO_CHAR ( L_LINE_REC.LINE_ID ) ||' PARTIALLY INTERFACED SUCCESSFULLY ' || 'X_RESULT_OUT: '||X_RESULT_OUT) ;
9823: END IF;
9824: END IF; -- check for update_invoice_attribute results
9825: END IF; -- check for anything to invoice for this PTO
9826: ELSE -- not in a PTO
9829: ,p_x_interface_line_rec => l_interface_line_rec
9830: ,x_return_status => x_return_status
9831: ,x_result_out => x_result_out);
9832: IF l_debug_level > 0 THEN
9833: oe_debug_pub.add( 'INTERFACED W/REQUEST_ID : '||L_INTERFACE_LINE_REC.REQUEST_ID , 5 ) ;
9834: END IF;
9835: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
9836: RAISE FND_API.G_EXC_ERROR;
9837: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9837: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9838: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9839: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
9840: IF l_debug_level > 0 THEN
9841: 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 ) ;
9842: END IF;
9843: IF l_old_interface_status_code = 'MANUAL-PENDING' THEN
9844: IF l_debug_level > 0 THEN
9845: oe_debug_pub.add( 'MANUAL-PENDING LINE HAS BEEN INVOICED' , 5 ) ;
9841: 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 ) ;
9842: END IF;
9843: IF l_old_interface_status_code = 'MANUAL-PENDING' THEN
9844: IF l_debug_level > 0 THEN
9845: oe_debug_pub.add( 'MANUAL-PENDING LINE HAS BEEN INVOICED' , 5 ) ;
9846: oe_debug_pub.add( 'NOW COMPLETING THE WF BLOCK ACTIVITY' , 5 ) ;
9847: END IF;
9848: WF_ENGINE.CompleteActivityInternalName(OE_GLOBALS.G_WFI_LIN, l_line_rec.line_id, 'INVOICING_WAIT_FOR_RFR', 'COMPLETE');
9849: END IF;
9842: END IF;
9843: IF l_old_interface_status_code = 'MANUAL-PENDING' THEN
9844: IF l_debug_level > 0 THEN
9845: oe_debug_pub.add( 'MANUAL-PENDING LINE HAS BEEN INVOICED' , 5 ) ;
9846: oe_debug_pub.add( 'NOW COMPLETING THE WF BLOCK ACTIVITY' , 5 ) ;
9847: END IF;
9848: WF_ENGINE.CompleteActivityInternalName(OE_GLOBALS.G_WFI_LIN, l_line_rec.line_id, 'INVOICING_WAIT_FOR_RFR', 'COMPLETE');
9849: END IF;
9850: END IF; -- check for interface_single_line result
9857: delivery_line_processed := 'Y';
9858: current_line_return_status := x_return_status;
9859: current_line_result_out := x_result_out;
9860: IF l_debug_level > 0 THEN
9861: oe_debug_pub.add( 'Current line status:'||current_line_return_status||': Current line result_out:'||current_line_result_out);
9862: END IF;
9863: END IF;
9864: END LOOP;
9865: CLOSE delivery_lines_cursor;
9867: -- required if the current line is not processed at the end
9868: --bug# 4094835
9869: IF delivery_line_processed = 'Y' THEN
9870: IF l_debug_level > 0 THEN
9871: oe_debug_pub.add( 'Setting the current line status correctly.'||current_line_return_status||':'||current_line_result_out);
9872: END IF;
9873: x_return_status := current_line_return_status;
9874: x_result_out := current_line_result_out;
9875: END IF;
9878: ELSE -- delivery_id is null
9879: interface_this_line := 'Y';
9880: generate_invoice_number := 'N';
9881: IF l_debug_level > 0 THEN
9882: oe_debug_pub.add( 'DELIVERY ID IS NULL' , 5 ) ;
9883: END IF;
9884: END IF; -- delivery id
9885: END IF; --shipping info avaialable
9886: ELSE -- automatic invoice numbering
9886: ELSE -- automatic invoice numbering
9887: interface_this_line := 'Y';
9888: generate_invoice_number := 'N';
9889: IF l_debug_level > 0 THEN
9890: oe_debug_pub.add( 'AUTOMATIC INVOICE NUMBERING' , 5 ) ;
9891: END IF;
9892: END IF;
9893: IF interface_this_line = 'Y' THEN -- for automatic invoice numbering
9894: IF l_debug_level > 0 THEN
9891: END IF;
9892: END IF;
9893: IF interface_this_line = 'Y' THEN -- for automatic invoice numbering
9894: IF l_debug_level > 0 THEN
9895: oe_debug_pub.add( 'INTERFACING LINE ID : '||L_LINE_REC.LINE_ID , 5 ) ;
9896: END IF;
9897: IF generate_invoice_number = 'Y' THEN
9898: IF p_itemtype = OE_GLOBALS.G_WFI_LIN THEN
9899: l_interface_line_rec.request_id := -1 * p_line_id;
9900: ELSE
9901: l_interface_line_rec.request_id := -1 * p_header_id;
9902: END IF;
9903: IF l_debug_level > 0 THEN
9904: oe_debug_pub.add( 'SETTING REQUEST_ID' || L_INTERFACE_LINE_REC.REQUEST_ID , 5 ) ;
9905: END IF;
9906: END IF;
9907: -- Retrobilling:
9908: -- For RMAs that reference a retrobilled order line
9924: ,x_return_status => x_return_status
9925: ,x_result_out => x_result_out);
9926: END IF;
9927: IF l_debug_level > 0 THEN
9928: oe_debug_pub.add( 'INTERFACED W/REQUEST_ID : '||L_INTERFACE_LINE_REC.REQUEST_ID || ' X_RETURN_STATUS: '|| X_RETURN_STATUS , 5 ) ;
9929: END IF;
9930: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
9931: RAISE FND_API.G_EXC_ERROR;
9932: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9935: -- if this line is RFR and there are lines waiting for it, interface those lines
9936: IF Is_PTO(l_line_rec) THEN
9937: IF Is_RFR(l_line_rec.line_id) THEN
9938: IF l_debug_level > 0 THEN
9939: oe_debug_pub.add( 'RFR: THIS LINE ITSELF IS RFR' , 5 ) ;
9940: END IF;
9941: Open Pending_Lines;
9942: LOOP
9943: Fetch Pending_Lines Into l_pending_line_id;
9941: Open Pending_Lines;
9942: LOOP
9943: Fetch Pending_Lines Into l_pending_line_id;
9944: IF l_debug_level > 0 THEN
9945: oe_debug_pub.add( 'RFR: PENDING LINE ID ' || TO_CHAR ( L_PENDING_LINE_ID ) , 5 ) ;
9946: END IF;
9947: EXIT WHEN Pending_Lines%NOTFOUND;
9948: OE_Line_Util.Query_Row(p_line_id=>l_pending_line_id, x_line_rec=>l_pending_line_rec);
9949: IF Something_To_Invoice(l_pending_line_rec) THEN -- the pending line now has something to
9949: IF Something_To_Invoice(l_pending_line_rec) THEN -- the pending line now has something to
9950: -- invoice because current line has been shipped
9951: -- check for delivery and invoice delivery if necessarily
9952: IF l_debug_level > 0 THEN
9953: oe_debug_pub.add( 'RFR: LINE IS RFR AND DELIVERY INVOICING' , 5 ) ;
9954: END IF;
9955: Interface_Single_line(p_line_rec => l_pending_line_rec
9956: ,p_header_rec => l_header_rec
9957: ,p_x_interface_line_rec => l_interface_line_rec
9957: ,p_x_interface_line_rec => l_interface_line_rec
9958: ,x_return_status => x_return_status
9959: ,x_result_out => x_result_out);
9960: IF l_debug_level > 0 THEN
9961: oe_debug_pub.add( 'RFR: INTERFACE RFR-PENDING LINE , ID: ' || L_PENDING_LINE_REC.LINE_ID , 5 ) ;
9962: END IF;
9963: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
9964: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
9965: RAISE FND_API.G_EXC_ERROR;
9968: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9969: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
9970: IF x_result_out = OE_GLOBALS.G_WFR_PRTL_COMPLETE THEN
9971: IF l_debug_level > 0 THEN
9972: oe_debug_pub.add( 'RFR: RFR-PENDING LINE PARTIALLY INTERFACED' , 5 ) ;
9973: END IF;
9974: ELSE --x_result_out = OE_GLOBALS.G_WFR_COMPLETE THEN
9975: IF l_debug_level > 0 THEN
9976: oe_debug_pub.add( 'RFR: RFR-PENDING LINE INTERFACED SUCCESSFULLY , COMPLETING BLOCK' , 5 ) ;
9972: oe_debug_pub.add( 'RFR: RFR-PENDING LINE PARTIALLY INTERFACED' , 5 ) ;
9973: END IF;
9974: ELSE --x_result_out = OE_GLOBALS.G_WFR_COMPLETE THEN
9975: IF l_debug_level > 0 THEN
9976: oe_debug_pub.add( 'RFR: RFR-PENDING LINE INTERFACED SUCCESSFULLY , COMPLETING BLOCK' , 5 ) ;
9977: END IF;
9978: WF_ENGINE.CompleteActivityInternalName(OE_GLOBALS.G_WFI_LIN, l_pending_line_rec.line_id, 'INVOICING_WAIT_FOR_RFR', 'COMPLETE');
9979: END IF;
9980: END IF;
9984: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
9985: IF x_result_out = OE_GLOBALS.G_WFR_COMPLETE OR x_result_out = OE_GLOBALS.G_WFR_NOT_ELIGIBLE THEN
9986: IF generate_invoice_number = 'Y' THEN
9987: IF l_debug_level > 0 THEN
9988: oe_debug_pub.add( 'RFR:LINE ID '||TO_CHAR ( L_LINE_REC.LINE_ID ) ||' INTERFACED SUCCESSFULLY' , 5 ) ;
9989: oe_debug_pub.add( 'RFR: CALLING UPDATE_NUMBERS' , 5 ) ;
9990: END IF;
9991: IF p_itemtype = OE_GLOBALS.G_WFI_LIN THEN
9992: Update_Numbers(p_line_id, x_return_status);
9985: IF x_result_out = OE_GLOBALS.G_WFR_COMPLETE OR x_result_out = OE_GLOBALS.G_WFR_NOT_ELIGIBLE THEN
9986: IF generate_invoice_number = 'Y' THEN
9987: IF l_debug_level > 0 THEN
9988: oe_debug_pub.add( 'RFR:LINE ID '||TO_CHAR ( L_LINE_REC.LINE_ID ) ||' INTERFACED SUCCESSFULLY' , 5 ) ;
9989: oe_debug_pub.add( 'RFR: CALLING UPDATE_NUMBERS' , 5 ) ;
9990: END IF;
9991: IF p_itemtype = OE_GLOBALS.G_WFI_LIN THEN
9992: Update_Numbers(p_line_id, x_return_status);
9993: ELSE
9993: ELSE
9994: Update_Numbers(p_header_id, x_return_status);
9995: END IF;
9996: IF l_debug_level > 0 THEN
9997: oe_debug_pub.add( 'RFR: RETURN STATUS : '||X_RETURN_STATUS , 5 ) ;
9998: END IF;
9999: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
10000: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
10001: RAISE FND_API.G_EXC_ERROR;
10004: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10005: ELSE
10006: x_result_out := OE_GLOBALS.G_WFR_COMPLETE;
10007: IF l_debug_level > 0 THEN
10008: oe_debug_pub.add( 'RFR: UPDATE NUMBER DONE FOR RFR-PENDING LINE ( CURRENT LINE IS RFR ) ' , 5 ) ;
10009: END IF;
10010: END IF;
10011: ELSE
10012: IF l_debug_level > 0 THEN
10009: END IF;
10010: END IF;
10011: ELSE
10012: IF l_debug_level > 0 THEN
10013: oe_debug_pub.add( 'RFR:LINE ID '||TO_CHAR ( L_LINE_REC.LINE_ID ) ||' INTERFACED SUCCESSFULLY' , 5 ) ;
10014: oe_debug_pub.add( 'RFR:W/AUTOMATIC NUMBERING' , 5 ) ;
10015: END IF;
10016: END IF;
10017: END IF;
10010: END IF;
10011: ELSE
10012: IF l_debug_level > 0 THEN
10013: oe_debug_pub.add( 'RFR:LINE ID '||TO_CHAR ( L_LINE_REC.LINE_ID ) ||' INTERFACED SUCCESSFULLY' , 5 ) ;
10014: oe_debug_pub.add( 'RFR:W/AUTOMATIC NUMBERING' , 5 ) ;
10015: END IF;
10016: END IF;
10017: END IF;
10018: END IF;
10024: IF x_result_out = OE_GLOBALS.G_WFR_COMPLETE OR x_result_out = OE_GLOBALS.G_WFR_NOT_ELIGIBLE THEN
10025: IF p_itemtype = OE_GLOBALS.G_WFI_LIN THEN
10026: IF generate_invoice_number = 'Y' THEN
10027: IF l_debug_level > 0 THEN
10028: oe_debug_pub.add( 'LINE ID '||TO_CHAR ( L_LINE_REC.LINE_ID ) ||' INTERFACED SUCCESSFULLY' , 2 ) ;
10029: oe_debug_pub.add( 'CALLING UPDATE_NUMBERS' ) ;
10030: END IF;
10031: IF p_itemtype = OE_GLOBALS.G_WFI_LIN THEN
10032: Update_Numbers(p_line_id, x_return_status);
10025: IF p_itemtype = OE_GLOBALS.G_WFI_LIN THEN
10026: IF generate_invoice_number = 'Y' THEN
10027: IF l_debug_level > 0 THEN
10028: oe_debug_pub.add( 'LINE ID '||TO_CHAR ( L_LINE_REC.LINE_ID ) ||' INTERFACED SUCCESSFULLY' , 2 ) ;
10029: oe_debug_pub.add( 'CALLING UPDATE_NUMBERS' ) ;
10030: END IF;
10031: IF p_itemtype = OE_GLOBALS.G_WFI_LIN THEN
10032: Update_Numbers(p_line_id, x_return_status);
10033: ELSE
10033: ELSE
10034: Update_Numbers(p_header_id, x_return_status);
10035: END IF;
10036: IF l_debug_level > 0 THEN
10037: oe_debug_pub.add( 'RETURN STATUS : '||X_RETURN_STATUS , 5 ) ;
10038: END IF;
10039: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
10040: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
10041: RAISE FND_API.G_EXC_ERROR;
10044: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10045: ELSE
10046: x_result_out := OE_GLOBALS.G_WFR_COMPLETE;
10047: IF l_debug_level > 0 THEN
10048: oe_debug_pub.add( 'EXITING INTERFACE_LINE' , 5 ) ;
10049: END IF;
10050: RETURN;
10051: END IF;
10052: ELSE
10050: RETURN;
10051: END IF;
10052: ELSE
10053: IF l_debug_level > 0 THEN
10054: oe_debug_pub.add( 'LINE ID '||TO_CHAR ( L_LINE_REC.LINE_ID ) ||' INTERFACED SUCCESSFULLY' , 5 ) ;
10055: oe_debug_pub.add( 'W/AUTOMATIC NUMBERING' , 2 ) ;
10056: END IF;
10057: RETURN;
10058: END IF;
10051: END IF;
10052: ELSE
10053: IF l_debug_level > 0 THEN
10054: oe_debug_pub.add( 'LINE ID '||TO_CHAR ( L_LINE_REC.LINE_ID ) ||' INTERFACED SUCCESSFULLY' , 5 ) ;
10055: oe_debug_pub.add( 'W/AUTOMATIC NUMBERING' , 2 ) ;
10056: END IF;
10057: RETURN;
10058: END IF;
10059: END IF;
10061: END IF;
10062: EXCEPTION
10063: WHEN FND_API.G_EXC_ERROR THEN
10064: IF l_debug_level > 0 THEN
10065: oe_debug_pub.add( 'EXPECTED ERROR. EXIT LINE INVOICING : '||SQLERRM , 1 ) ;
10066: END IF;
10067: IF p_itemtype = OE_GLOBALS.G_WFI_LIN THEN
10068: ROLLBACK TO INVOICE_INTERFACE;
10069: END IF;
10085: );
10086: x_return_status := FND_API.G_RET_STS_ERROR;
10087: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10088: IF l_debug_level > 0 THEN
10089: oe_debug_pub.add( 'UNEXPECTED ERROR. EXITING FROM LINE INVOICING : '||SQLERRM , 1 ) ;
10090: END IF;
10091: IF p_itemtype = OE_GLOBALS.G_WFI_LIN THEN
10092: ROLLBACK TO INVOICE_INTERFACE;
10093: END IF;
10097: );
10098: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10099: WHEN OTHERS THEN
10100: IF l_debug_level > 0 THEN
10101: oe_debug_pub.add( 'EXCEPTION , OTHERS. EXITING FROM LINE INVOICING : '||SQLERRM , 1 ) ;
10102: END IF;
10103: IF (delivery_lines_cursor%ISOPEN) THEN
10104: CLOSE delivery_lines_cursor;
10105: END IF;
10141: WHERE ol.header_id = p_header_id
10142: AND ol.open_flag = 'Y';
10143: l_line_id NUMBER;
10144:
10145: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
10146:
10147: l_source_document_type_id NUMBER; --- Bug 8683948
10148:
10149: BEGIN
10147: l_source_document_type_id NUMBER; --- Bug 8683948
10148:
10149: BEGIN
10150: IF l_debug_level > 0 THEN
10151: oe_debug_pub.add( 'ENTER INTERFACE_HEADER ( ) PROCEDURE' , 5 ) ;
10152: END IF;
10153: SAVEPOINT HEADER_INVOICE_INTERFACE;
10154: -- Initialize API return status to success
10155: x_return_status := FND_API.G_RET_STS_SUCCESS;
10162: if l_source_document_type_id = 10 THEN
10163: x_result_out := OE_GLOBALS.G_WFR_NOT_ELIGIBLE;
10164: x_return_status := FND_API.G_RET_STS_SUCCESS ;
10165: IF l_debug_level > 0 THEN
10166: oe_debug_pub.add( ' This is Internal Sales Order ... not doing anything for ISO....' ) ;
10167: END IF;
10168: RETURN;
10169: end if;
10170: ---Bug 8683948 : End
10175: LOOP
10176: FETCH order_line_cursor INTO l_line_id;
10177: EXIT WHEN order_line_cursor%NOTFOUND;
10178: IF l_debug_level > 0 THEN
10179: oe_debug_pub.add( 'PROCESSING LINE_ID: '||L_LINE_ID , 5 ) ;
10180: END IF;
10181: Interface_Line(l_line_id, p_itemtype, l_result_out, l_return_status);
10182: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
10183: IF l_result_out = OE_GLOBALS.G_WFR_ON_HOLD THEN
10189: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10190: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10191: ELSE
10192: IF l_debug_level > 0 THEN
10193: oe_debug_pub.add( 'CONTINUE WITH NEXT LINE IF THIS IS NOT LAST ONE' , 5 ) ;
10194: END IF;
10195: END IF;
10196: END LOOP;
10197: CLOSE order_line_cursor;
10198:
10199: ---- Bug# 9370369 : Start
10200: select source_document_type_id into l_source_document_type_id
10201: from oe_order_headers_all where header_id = p_header_id;
10202: oe_debug_pub.add( ' l_source_document_type_id = '|| l_source_document_type_id , 5) ;
10203:
10204: if l_source_document_type_id = 10 THEN
10205: x_result_out := OE_GLOBALS.G_WFR_NOT_ELIGIBLE;
10206: x_return_status := FND_API.G_RET_STS_SUCCESS ;
10204: if l_source_document_type_id = 10 THEN
10205: x_result_out := OE_GLOBALS.G_WFR_NOT_ELIGIBLE;
10206: x_return_status := FND_API.G_RET_STS_SUCCESS ;
10207: IF l_debug_level > 0 THEN
10208: oe_debug_pub.add( ' This is Internal Sales Order ... not doing anything for ISO....', 5 ) ;
10209: END IF;
10210: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
10211: l_flow_status_code := 'INVOICE_NOT_APPLICABLE';
10212: Update_header_flow_status(p_header_id,l_flow_status_code);
10210: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
10211: l_flow_status_code := 'INVOICE_NOT_APPLICABLE';
10212: Update_header_flow_status(p_header_id,l_flow_status_code);
10213: END IF;
10214: oe_debug_pub.add( ' returning from Interface_Header() ...',5);
10215: RETURN;
10216: end if;
10217: --- bug: 9370369 : End
10218:
10216: end if;
10217: --- bug: 9370369 : End
10218:
10219: IF l_debug_level > 0 THEN
10220: oe_debug_pub.add( 'CALL UPDATE_NUMBERS FOR HEADER LEVEL INVOICING' , 5 ) ;
10221: END IF;
10222:
10223: Update_Numbers(p_header_id, x_return_status);
10224:
10222:
10223: Update_Numbers(p_header_id, x_return_status);
10224:
10225: IF l_debug_level > 0 THEN
10226: oe_debug_pub.add( 'RETURN STATUS : '||X_RETURN_STATUS , 5 ) ;
10227: END IF;
10228:
10229: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
10230: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
10234: ELSE
10235: x_return_status := FND_API.G_RET_STS_SUCCESS;
10236: x_result_out := OE_GLOBALS.G_WFR_COMPLETE;
10237: IF l_debug_level > 0 THEN
10238: oe_debug_pub.add( 'EXIT INTERFACE_LINE ( ) PROCEDURE' , 5 ) ;
10239: END IF;
10240: END IF;
10241:
10242: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
10244: Update_header_flow_status(p_header_id,l_flow_status_code);
10245: END IF;
10246:
10247: IF l_debug_level > 0 THEN
10248: oe_debug_pub.add( 'EXITING INTERFACE_HEADER ( ) PROCEDURE' , 5 ) ;
10249: END IF;
10250:
10251: EXCEPTION
10252: WHEN FND_API.G_EXC_ERROR THEN
10250:
10251: EXCEPTION
10252: WHEN FND_API.G_EXC_ERROR THEN
10253: IF l_debug_level > 0 THEN
10254: oe_debug_pub.add( 'EXPECTED ERROR. EXIT FROM HEADER INVOICING' , 5 ) ;
10255: END IF;
10256: IF (order_line_cursor%ISOPEN) THEN
10257: CLOSE order_line_cursor;
10258: END IF;
10273: );
10274: x_return_status := FND_API.G_RET_STS_ERROR;
10275: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10276: IF l_debug_level > 0 THEN
10277: oe_debug_pub.add( 'UNEXPECTED ERROR. EXITING FROM HEADER INVOICING' , 5 ) ;
10278: END IF;
10279: IF (order_line_cursor%ISOPEN) THEN
10280: CLOSE order_line_cursor;
10281: END IF;
10287: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10288: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
10289: WHEN OTHERS THEN
10290: IF l_debug_level > 0 THEN
10291: oe_debug_pub.add( 'EXCEPTION OTHERS. EXIT FROM HEADER INVOICING' , 5 ) ;
10292: END IF;
10293: IF (order_line_cursor%ISOPEN) THEN
10294: CLOSE order_line_cursor;
10295: END IF;
10367: END;
10368:
10369: IF line_payment_not_exists = 1 THEN
10370: p_result := 1;
10371: oe_debug_pub.add('skubendr going in');
10372: ELSE
10373: p_result := 0;
10374: END IF;
10375: ELSE
10488: l_line_id NUMBER ;
10489: this_line_interfaced NUMBER := 0;
10490: BEGIN
10491:
10492: oe_debug_pub.add(' Entering This_Line_ARInterfaced');
10493: l_line_id := OE_LINE_SECURITY.g_record.line_id;
10494:
10495: IF p_validation_entity_short_name = 'LINE_PAYMENT' THEN
10496: l_line_id := oe_line_payment_security.g_record.line_id;
10495: IF p_validation_entity_short_name = 'LINE_PAYMENT' THEN
10496: l_line_id := oe_line_payment_security.g_record.line_id;
10497: END IF;
10498:
10499: oe_debug_pub.add(' Line Id :'||l_line_id);
10500:
10501: IF l_line_id IS NULL OR
10502: l_line_id = FND_API.G_MISS_NUM
10503: THEN