[Home] [Help]
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);
3642: x_interface_scredit_rec.LAST_UPDATE_DATE := INV_LE_TIMEZONE_PUB.Get_Le_Day_Time_For_Ou(sysdate,p_interface_line_rec.org_id);
3643: ELSE
3644: x_interface_scredit_rec.CREATION_DATE := sysdate;
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);
3723: x_interface_scredit_rec.LAST_UPDATE_DATE := INV_LE_TIMEZONE_PUB.Get_Le_Day_Time_For_Ou(sysdate,p_interface_line_rec.org_id);
3724: ELSE
3725: x_interface_scredit_rec.CREATION_DATE := sysdate;
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);
3807: x_interface_scredit_rec.LAST_UPDATE_DATE := INV_LE_TIMEZONE_PUB.Get_Le_Day_Time_For_Ou(sysdate,p_interface_line_rec.org_id);
3808: ELSE
3809: x_interface_scredit_rec.CREATION_DATE := sysdate;
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);
3942: convert_to_ar(p_oe_salescredit_rec=>p_salescredit_rec,
3943: x_ar_salescredit_rec=>l_ar_salescredit_rec);
3944:
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'
4980: , INVOICED_AMOUNT = nvl(invoiced_amount,0) + p_invoiced_amount -- update with unrounded amount, for bug# 5400517
4981: , LOCK_CONTROL = LOCK_CONTROL + 1
5000: l_Header_Adj_tbl(1).Invoiced_Flag := 'Y';
5001: l_Header_Adj_tbl(1).lock_control := l_Header_Adj_tbl(1).lock_control + 1;
5002:
5003: -- jolin start
5004: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
5005:
5006: -- call notification framework to get header adj index position
5007: OE_ORDER_UTIL.Update_Global_Picture
5008: (p_Upd_New_Rec_If_Exists =>FALSE
5193: END IF;
5194:
5195: EXCEPTION
5196: WHEN NO_DATA_FOUND THEN
5197: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
5198: FND_MESSAGE.SET_NAME('ONT','ONT_FREIGHT_ITEM_REQUIRED');
5199: OE_MSG_PUB.ADD;
5200: END IF;
5201:
5722: END LOOP;
5723: CLOSE Header_Charges_Cursor;
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;
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
6038:
6039: SELECT substr(freight_code,1,25)
6040: INTO p_x_interface_line_rec.SHIP_VIA
6041: FROM wsh_carriers wsh_ca,wsh_carrier_services wsh,
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
6138:
6139: SELECT substr(freight_code,1,25)
6140: INTO p_x_interface_line_rec.SHIP_VIA
6141: FROM wsh_carriers wsh_ca,wsh_carrier_services wsh,
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:
6184: SELECT substr(freight_code,1,25)
6185: INTO p_x_interface_line_rec.SHIP_VIA
6186: FROM wsh_carriers wsh_ca,wsh_carrier_services wsh,
6458:
6459: END IF;
6460:
6461: -- bug 2509121.
6462: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110509'
6463: AND p_line_rec.user_item_description IS NOT NULL
6464: AND p_line_rec.user_item_description <> FND_API.G_MISS_CHAR THEN
6465: p_x_interface_line_rec.translated_description := p_line_rec.user_item_description;
6466: END IF;
6882: FROM ra_rules
6883: WHERE rule_id = p_x_interface_line_rec.accounting_rule_id;
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;
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
7051: INTO l_territory_code
7052: FROM ar_system_parameters asp
7053: WHERE nvl(asp.org_id, -3114) = nvl(p_line_rec.org_id, -3114);
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
7690: IF p_line_rec.org_id IS NOT NULL THEN
7691: IF p_x_interface_line_rec.ship_date_actual IS NOT NULL THEN
7692: 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);
7693: 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
7790: l_flow_status_code := 'INVOICED';
7791: ELSIF p_invoice_interface_status = 'RFR-PENDING' THEN
7792: l_flow_status_code := 'INVOICED_PARTIAL';
7913: l_Line_tbl(1).flow_status_code := l_flow_status_code;
7914: l_line_tbl(1).lock_control := l_line_tbl(1).lock_control + 1;
7915:
7916: -- jolin start
7917: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
7918:
7919: -- call notification framework to get this line's index position
7920: OE_ORDER_UTIL.Update_Global_Picture
7921: (p_Upd_New_Rec_If_Exists =>FALSE
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(*)
8400: INTO l_freight_count
8401: FROM oe_price_adjustments p
8402: WHERE p.header_id = p_line_rec.header_id
8525: -- Prepare interface line rec only if there are any freight charges to interface (Enhancement Request# 1915736)
8526: IF NOT l_line_rejected THEN --Customer Acceptance
8527: BEGIN
8528:
8529: IF oe_code_control.code_release_level < '110510' then
8530: SELECT count(*)
8531: INTO l_freight_count
8532: FROM oe_price_adjustments p
8533: WHERE p.header_id = p_line_rec.header_id
8644: Update_Invoice_Attributes(p_line_rec
8645: ,p_x_interface_line_rec
8646: ,'RFR-PENDING'
8647: ,x_return_status);
8648: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
8649: FND_MESSAGE.SET_NAME('ONT','OE_INVOICE_WAIT_FOR_RFR');
8650: OE_MSG_PUB.ADD;
8651: END IF;
8652: END IF;
8767: Update_Invoice_Attributes(p_line_rec
8768: ,p_x_interface_line_rec
8769: ,'RFR-PENDING'
8770: ,x_return_status);
8771: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
8772: FND_MESSAGE.SET_NAME('ONT','OE_INVOICE_WAIT_FOR_RFR');
8773: OE_MSG_PUB.ADD;
8774: END IF;
8775: ELSE
9104: l_old_line_tbl(1) := l_line_rec;
9105: l_line_tbl(1) := l_line_rec;
9106: l_line_tbl(1).SERVICE_START_DATE := l_line_rec.SERVICE_START_DATE;
9107: l_line_tbl(1).SERVICE_END_DATE := l_line_rec.SERVICE_END_DATE;
9108: IF (Oe_Code_Control.Code_Release_Level >= '110508') THEN
9109: Oe_Order_Util.Update_Global_Picture ( p_Upd_New_Rec_If_Exists => FALSE,
9110: p_header_id => l_line_rec.header_id,
9111: p_old_line_rec => l_old_line_tbl(1),
9112: p_line_rec => l_line_tbl(1),
9223: IF NOT l_line_invoiceable OR l_line_rejected THEN
9224: IF NOT l_line_Invoiceable THEN
9225: /* Bug#2666125 start-check freight records and holds for non invoiceable items*/
9226: BEGIN
9227: IF oe_code_control.code_release_level < '110510' then
9228: SELECT count(*)
9229: INTO l_freight_count
9230: FROM oe_price_adjustments p
9231: WHERE p.header_id = l_line_rec.header_id
9358: /* START Enhancement Request# 1915736 */
9359: -- Prepare interface line rec only if there are any freight charges to interface (Enhancement Request# 1915736)
9360: IF NOT l_line_rejected THEN --Customer Acceptance
9361: BEGIN
9362: IF oe_code_control.code_release_level < '110510' then
9363: SELECT count(*)
9364: INTO l_freight_count
9365: FROM oe_price_adjustments p
9366: WHERE p.header_id = l_line_rec.header_id
9624: Update_Invoice_Attributes(l_line_rec
9625: ,l_interface_line_rec
9626: ,'MANUAL-PENDING'
9627: ,x_return_status);
9628: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
9629: IF l_delivery_line_id Is Not Null Then
9630: SELECT NVL(SUBSTR(dl.name, 1, 30), '0')
9631: INTO l_delivery_name
9632: FROM wsh_new_deliveries dl
9800: Update_Invoice_Attributes(l_line_rec
9801: ,l_interface_line_rec
9802: ,'RFR-PENDING'
9803: ,x_return_status);
9804: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
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
9906: END IF;
9907: -- Retrobilling:
9908: -- For RMAs that reference a retrobilled order line
9909: -- We might need to create multiple credit memos
9910: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
9911: and Oe_Retrobill_Pvt.retrobill_enabled
9912: and Return_Line(l_line_rec)
9913: and l_line_rec.reference_line_id IS NOT NULL
9914: THEN
10067: IF p_itemtype = OE_GLOBALS.G_WFI_LIN THEN
10068: ROLLBACK TO INVOICE_INTERFACE;
10069: END IF;
10070:
10071: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
10072: IF x_result_out = OE_GLOBALS.G_WFR_ON_HOLD Then
10073: l_flow_status_code := 'INVOICE_HOLD';
10074: ELSIF x_result_out = OE_GLOBALS.G_WFR_INCOMPLETE THEN
10075: l_flow_status_code := 'INVOICE_INCOMPLETE';
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);
10213: END IF;
10214: oe_debug_pub.add( ' returning from Interface_Header() ...',5);
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
10243: l_flow_status_code := 'INVOICED';
10244: Update_header_flow_status(p_header_id,l_flow_status_code);
10245: END IF;
10246:
10257: CLOSE order_line_cursor;
10258: END IF;
10259: ROLLBACK TO HEADER_INVOICE_INTERFACE;
10260:
10261: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
10262: IF x_result_out = OE_GLOBALS.G_WFR_ON_HOLD Then
10263: l_flow_status_code := 'INVOICE_HOLD';
10264: ELSIF x_result_out = OE_GLOBALS.G_WFR_INCOMPLETE THEN
10265: l_flow_status_code := 'INVOICE_INCOMPLETE';