[Home] [Help]
3407: IF l_debug_level > 0 THEN
3408: oe_debug_pub.add( 'ENTER LINE PREPARE_SALESCREDIT_REC ( ) PROCEDURE' , 5 ) ;
3409: END IF;
3410:
3411: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
3412: x_interface_scredit_rec.CREATION_DATE := INV_LE_TIMEZONE_PUB.Get_Le_Day_Time_For_Ou(sysdate,p_interface_line_rec.org_id);
3413: x_interface_scredit_rec.LAST_UPDATE_DATE := INV_LE_TIMEZONE_PUB.Get_Le_Day_Time_For_Ou(sysdate,p_interface_line_rec.org_id);
3414: ELSE
3415: x_interface_scredit_rec.CREATION_DATE := sysdate;
3488: IF l_debug_level > 0 THEN
3489: oe_debug_pub.add( 'ENTER HEADER PREPARE_SALESCREDIT_REC ( ) PROCEDURE ' , 5 ) ;
3490: END IF;
3491:
3492: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
3493: x_interface_scredit_rec.CREATION_DATE := INV_LE_TIMEZONE_PUB.Get_Le_Day_Time_For_Ou(sysdate,p_interface_line_rec.org_id);
3494: x_interface_scredit_rec.LAST_UPDATE_DATE := INV_LE_TIMEZONE_PUB.Get_Le_Day_Time_For_Ou(sysdate,p_interface_line_rec.org_id);
3495: ELSE
3496: x_interface_scredit_rec.CREATION_DATE := sysdate;
3572: IF l_debug_level > 0 THEN
3573: oe_debug_pub.add( 'SALES_CREDIT_TYPE_ID'||X_INTERFACE_SCREDIT_REC.SALES_CREDIT_TYPE_ID ) ;
3574: END IF;
3575:
3576: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
3577: x_interface_scredit_rec.CREATION_DATE := INV_LE_TIMEZONE_PUB.Get_Le_Day_Time_For_Ou(sysdate,p_interface_line_rec.org_id);
3578: x_interface_scredit_rec.LAST_UPDATE_DATE := INV_LE_TIMEZONE_PUB.Get_Le_Day_Time_For_Ou(sysdate,p_interface_line_rec.org_id);
3579: ELSE
3580: x_interface_scredit_rec.CREATION_DATE := sysdate;
3707: IF l_debug_level > 0 THEN
3708: oe_debug_pub.add( 'INSERTING SALES CREDIT RECORDS ' , 5 ) ;
3709: END IF;
3710:
3711: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
3712: --OE_Invoice_Ext_Pvt.Insert_Salescredit(p_salescredit_rec);
3713: convert_to_ar(p_oe_salescredit_rec=>p_salescredit_rec,
3714: x_ar_salescredit_rec=>l_ar_salescredit_rec);
3715:
4742:
4743: oe_debug_pub.add('Charges Amount '||p_adjusted_amount);
4744: oe_debug_pub.add('Invoiced Amount'||p_invoiced_amount);
4745:
4746: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
4747: UPDATE OE_PRICE_ADJUSTMENTS
4748: SET INVOICED_FLAG = 'Y'
4749: , INVOICED_AMOUNT = nvl(invoiced_amount,0) + p_invoiced_amount -- update with unrounded amount, for bug# 5400517
4750: , LOCK_CONTROL = LOCK_CONTROL + 1
4769: l_Header_Adj_tbl(1).Invoiced_Flag := 'Y';
4770: l_Header_Adj_tbl(1).lock_control := l_Header_Adj_tbl(1).lock_control + 1;
4771:
4772: -- jolin start
4773: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
4774:
4775: -- call notification framework to get header adj index position
4776: OE_ORDER_UTIL.Update_Global_Picture
4777: (p_Upd_New_Rec_If_Exists =>FALSE
4962: END IF;
4963:
4964: EXCEPTION
4965: WHEN NO_DATA_FOUND THEN
4966: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
4967: FND_MESSAGE.SET_NAME('ONT','ONT_FREIGHT_ITEM_REQUIRED');
4968: OE_MSG_PUB.ADD;
4969: END IF;
4970:
5478: END LOOP;
5479: CLOSE Header_Charges_Cursor;
5480: x_return_status := FND_API.G_RET_STS_SUCCESS;
5481:
5482: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
5483: IF l_debug_level > 0 THEN
5484: oe_debug_pub.add( 'INTERFACING Modified HEADER CHARGES...' , 1 ) ;
5485: END IF;
5486: l_charges_rec := p_interface_line_rec;
5788: oe_debug_pub.add( 'GETTING SHIP_VIA FROM SHIP_METHOD_CODE: '||L_SHIP_METHOD_CODE|| ' AND ORGANIZATION_ID: '||P_LINE_REC.SHIP_FROM_ORG_ID , 5 ) ;
5789: END IF;
5790: -- fix bug# 1382196
5791: IF l_ship_method_code IS NOT NULL THEN
5792: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110509' THEN
5793:
5794: SELECT substr(freight_code,1,25)
5795: INTO p_x_interface_line_rec.SHIP_VIA
5796: FROM wsh_carriers wsh_ca,wsh_carrier_services wsh,
5888: oe_debug_pub.add( 'GETTING SHIP_VIA FROM SHIP_METHOD_CODE: '||L_SHIP_METHOD_CODE|| ' AND ORGANIZATION_ID: '||P_LINE_REC.SHIP_FROM_ORG_ID , 5 ) ;
5889: END IF;
5890: -- fix bug# 1382196
5891: IF l_ship_method_code IS NOT NULL THEN
5892: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110509' THEN
5893:
5894: SELECT substr(freight_code,1,25)
5895: INTO p_x_interface_line_rec.SHIP_VIA
5896: FROM wsh_carriers wsh_ca,wsh_carrier_services wsh,
5933: IF l_debug_level > 0 THEN
5934: oe_debug_pub.add( 'GETTING SHIP_VIA FROM SHIP_METHOD_CODE: '||L_SHIP_METHOD_CODE|| ' AND ORGANIZATION_ID: '||P_LINE_REC.SHIP_FROM_ORG_ID ,5 ) ;
5935: END IF;
5936: IF l_ship_method_code IS NOT NULL THEN
5937: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110509' THEN
5938:
5939: SELECT substr(freight_code,1,25)
5940: INTO p_x_interface_line_rec.SHIP_VIA
5941: FROM wsh_carriers wsh_ca,wsh_carrier_services wsh,
6200:
6201: END IF;
6202:
6203: -- bug 2509121.
6204: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110509'
6205: AND p_line_rec.user_item_description IS NOT NULL
6206: AND p_line_rec.user_item_description <> FND_API.G_MISS_CHAR THEN
6207: p_x_interface_line_rec.translated_description := p_line_rec.user_item_description;
6208: END IF;
6609: FROM ra_rules
6610: WHERE rule_id = p_x_interface_line_rec.accounting_rule_id;
6611: IF l_accounting_rule_type = 'ACC_DUR' THEN
6612: -- accounting rule duration is required for regular (non service) lines at booking
6613: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
6614: IF l_debug_level > 0 THEN
6615: oe_debug_pub.add( 'INTERFACING ACCOUNTING_RULE_DURATION FOR REGULAR LINES:'|| P_LINE_REC.ACCOUNTING_RULE_DURATION ) ;
6616: END IF;
6617: p_x_interface_line_rec.ACCOUNTING_RULE_DURATION := p_line_rec.accounting_rule_duration;
6760: IF l_debug_level > 0 THEN
6761: oe_debug_pub.add( 'GET DEFAULT TERRITORY' , 5 ) ;
6762: END IF;
6763:
6764: IF oe_code_control.code_release_level < '110510' THEN
6765: SELECT asp.default_territory
6766: INTO l_territory_code
6767: FROM ar_system_parameters asp
6768: WHERE nvl(asp.org_id, -3114) = nvl(p_line_rec.org_id, -3114);
7397: oe_debug_pub.add('Value of last_update_date '||p_x_interface_line_rec.last_update_date||
7398: ' Value of sales_order_date '||p_x_interface_line_rec.sales_order_date|| ' Value of trx_date '||p_x_interface_line_rec.trx_date);
7399: END IF;
7400:
7401: IF oe_code_control.code_release_level >= '110510' THEN
7402: IF p_line_rec.org_id IS NOT NULL THEN
7403: IF p_x_interface_line_rec.ship_date_actual IS NOT NULL THEN
7404: p_x_interface_line_rec.ship_date_actual := INV_LE_TIMEZONE_PUB.Get_Le_Day_Time_For_Ou(p_x_interface_line_rec.ship_date_actual,p_line_rec.org_id);
7405: END IF;
7488: IF l_debug_level > 0 THEN
7489: oe_debug_pub.add( 'INVOICED QUANTITY IS '|| TO_CHAR ( L_INVOICED_QUANTITY ) , 5 ) ;
7490: END IF;
7491:
7492: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL < '110510' THEN
7493: IF p_invoice_interface_status = 'YES' THEN
7494: l_flow_status_code := 'INVOICED';
7495: ELSIF p_invoice_interface_status = 'RFR-PENDING' THEN
7496: l_flow_status_code := 'INVOICED_PARTIAL';
7543: l_Line_tbl(1).flow_status_code := l_flow_status_code;
7544: l_line_tbl(1).lock_control := l_line_tbl(1).lock_control + 1;
7545:
7546: -- jolin start
7547: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
7548:
7549: -- call notification framework to get this line's index position
7550: OE_ORDER_UTIL.Update_Global_Picture
7551: (p_Upd_New_Rec_If_Exists =>FALSE
8008: IF NOT l_line_invoiceable OR l_line_rejected THEN --Customer Acceptance
8009: oe_debug_pub.add('Line is non invoiceable',1);
8010: /* Bug#2666125 start-check freight records and holds for non invoiceable items*/
8011: /* BEGIN
8012: IF oe_code_control.code_release_level < '110510' then
8013: SELECT count(*)
8014: INTO l_freight_count
8015: FROM oe_price_adjustments p
8016: WHERE p.header_id = p_line_rec.header_id
8130: -- Prepare interface line rec only if there are any freight charges to interface (Enhancement Request# 1915736)
8131: IF NOT l_line_rejected THEN --Customer Acceptance
8132: BEGIN
8133:
8134: IF oe_code_control.code_release_level < '110510' then
8135: SELECT count(*)
8136: INTO l_freight_count
8137: FROM oe_price_adjustments p
8138: WHERE p.header_id = p_line_rec.header_id
8240: Update_Invoice_Attributes(p_line_rec
8241: ,p_x_interface_line_rec
8242: ,'RFR-PENDING'
8243: ,x_return_status);
8244: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
8245: FND_MESSAGE.SET_NAME('ONT','OE_INVOICE_WAIT_FOR_RFR');
8246: OE_MSG_PUB.ADD;
8247: END IF;
8248: END IF;
8353: Update_Invoice_Attributes(p_line_rec
8354: ,p_x_interface_line_rec
8355: ,'RFR-PENDING'
8356: ,x_return_status);
8357: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
8358: FND_MESSAGE.SET_NAME('ONT','OE_INVOICE_WAIT_FOR_RFR');
8359: OE_MSG_PUB.ADD;
8360: END IF;
8361: ELSE
8683: IF NOT l_line_invoiceable OR l_line_rejected THEN
8684: IF NOT l_line_Invoiceable THEN
8685: /* Bug#2666125 start-check freight records and holds for non invoiceable items*/
8686: BEGIN
8687: IF oe_code_control.code_release_level < '110510' then
8688: SELECT count(*)
8689: INTO l_freight_count
8690: FROM oe_price_adjustments p
8691: WHERE p.header_id = l_line_rec.header_id
8807: /* START Enhancement Request# 1915736 */
8808: -- Prepare interface line rec only if there are any freight charges to interface (Enhancement Request# 1915736)
8809: IF NOT l_line_rejected THEN --Customer Acceptance
8810: BEGIN
8811: IF oe_code_control.code_release_level < '110510' then
8812: SELECT count(*)
8813: INTO l_freight_count
8814: FROM oe_price_adjustments p
8815: WHERE p.header_id = l_line_rec.header_id
9064: Update_Invoice_Attributes(l_line_rec
9065: ,l_interface_line_rec
9066: ,'MANUAL-PENDING'
9067: ,x_return_status);
9068: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
9069: IF l_delivery_line_id Is Not Null Then
9070: SELECT NVL(SUBSTR(dl.name, 1, 30), '0')
9071: INTO l_delivery_name
9072: FROM wsh_new_deliveries dl
9240: Update_Invoice_Attributes(l_line_rec
9241: ,l_interface_line_rec
9242: ,'RFR-PENDING'
9243: ,x_return_status);
9244: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
9245: FND_MESSAGE.SET_NAME('ONT','OE_INVOICE_WAIT_FOR_RFR');
9246: OE_MSG_PUB.ADD;
9247: END IF;
9248: IF l_debug_level > 0 THEN
9346: END IF;
9347: -- Retrobilling:
9348: -- For RMAs that reference a retrobilled order line
9349: -- We might need to create multiple credit memos
9350: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
9351: and Oe_Retrobill_Pvt.retrobill_enabled
9352: and Return_Line(l_line_rec)
9353: and l_line_rec.reference_line_id IS NOT NULL
9354: THEN
9507: IF p_itemtype = OE_GLOBALS.G_WFI_LIN THEN
9508: ROLLBACK TO INVOICE_INTERFACE;
9509: END IF;
9510:
9511: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
9512: IF x_result_out = OE_GLOBALS.G_WFR_ON_HOLD Then
9513: l_flow_status_code := 'INVOICE_HOLD';
9514: ELSIF x_result_out = OE_GLOBALS.G_WFR_INCOMPLETE THEN
9515: l_flow_status_code := 'INVOICE_INCOMPLETE';
9634: oe_debug_pub.add( 'EXIT INTERFACE_LINE ( ) PROCEDURE' , 5 ) ;
9635: END IF;
9636: END IF;
9637:
9638: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
9639: l_flow_status_code := 'INVOICED';
9640: Update_header_flow_status(p_header_id,l_flow_status_code);
9641: END IF;
9642:
9653: CLOSE order_line_cursor;
9654: END IF;
9655: ROLLBACK TO HEADER_INVOICE_INTERFACE;
9656:
9657: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
9658: IF x_result_out = OE_GLOBALS.G_WFR_ON_HOLD Then
9659: l_flow_status_code := 'INVOICE_HOLD';
9660: ELSIF x_result_out = OE_GLOBALS.G_WFR_INCOMPLETE THEN
9661: l_flow_status_code := 'INVOICE_INCOMPLETE';