[Home] [Help]
92: l_prof_value VARCHAR2(240);
93: l_hash_value NUMBER;
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
93: l_hash_value NUMBER;
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;
577: END IF;
578:
579: --Added for bug # 6945716 start
580: IF p_line_rec.line_category_code = 'RETURN'
581: AND(NVL(FND_PROFILE.VALUE('ONT_GENERATE_CREDIT_REJECTED_RETURNS'), 'N')='N'
582: AND NVL(p_line_rec.shipped_quantity,0) = 0
583: AND NVL(p_line_rec.fulfilled_quantity,0) = 0 ) THEN
584:
585: IF l_debug_level > 0 THEN
1397: BEGIN
1398: IF l_debug_level > 0 THEN
1399: oe_debug_pub.add( ' ENTERING GET_INVOICE_SOURCE' , 5 ) ;
1400: END IF;
1401: IF FND_PROFILE.VALUE('WSH_INVOICE_NUMBERING_METHOD')= 'D' AND
1402: (Return_Line(p_line_rec) OR NOT Shipping_Info_Available(p_line_rec) OR
1403: (p_interface_line_rec.interface_line_attribute3 = '0')) THEN
1404: SELECT NVL(lt.non_delivery_invoice_source_id,
1405: ot.non_delivery_invoice_source_id)
4913: p_x_charges_rec.INTERFACE_LINE_ATTRIBUTE9 := '0'; -- customer item number
4914: p_x_charges_rec.INTERFACE_LINE_ATTRIBUTE12 := lpad('0', 30); -- shipment number
4915: p_x_charges_rec.INTERFACE_LINE_ATTRIBUTE13 := lpad('0', 30); -- option number
4916: p_x_charges_rec.INTERFACE_LINE_ATTRIBUTE14 := lpad('0', 30); -- service number
4917: -- l_vat_flag := NVL(FND_PROFILE.VALUE('AR_ALLOW_TAX_CODE_OVERRIDE'), 'N');
4918: l_freight_as_line := NVL(oe_sys_parameters.value('OE_INVOICE_FREIGHT_AS_LINE',p_line_rec.org_id), 'N'); --moac
4919: IF l_debug_level > 0 THEN
4920: oe_debug_pub.add( 'INVOICE FREIGHT AS REVENUE '||L_FREIGHT_AS_LINE ) ;
4921: END IF;
5085: -- END IF;
5086: p_x_charges_rec.PROMISED_COMMITMENT_AMOUNT := 0; -- For bug 6798675 NULL;
5087: -- Adding for bug# 4071445
5088: IF p_x_charges_rec.LINE_TYPE = 'FREIGHT' OR
5089: nvl(FND_PROFILE.VALUE('ONT_TAX_CODE_FOR_FREIGHT'), 'N') = 'N' THEN
5090: p_x_charges_rec.Tax_Code := NULL;
5091: IF l_debug_level > 0 THEN
5092: oe_debug_pub.add('tax_code for freight is set as ' ||p_x_charges_rec.tax_code , 5 ) ;
5093: END IF;
6000: END;
6001:
6002: --4483722
6003: IF l_max_actual_shipment_date IS NULL THEN
6004: IF (fnd_profile.value('OE_RECEIVABLES_DATE_FOR_NONSHIP_LINES') = 'Y') THEN
6005: l_max_actual_shipment_date := SYSDATE;
6006: ELSE
6007: --Should we let the date be null?
6008: Null;
6011: --4483722
6012:
6013: p_x_interface_line_rec.SHIP_DATE_ACTUAL := l_max_actual_shipment_date;
6014: -- for non-shippable line not in a fulfillment set
6015: ELSIF (fnd_profile.value('OE_RECEIVABLES_DATE_FOR_NONSHIP_LINES') = 'Y') THEN
6016: IF l_debug_level > 0 THEN
6017: oe_debug_pub.add( 'SETTING TRANSACTION DATE AS CURRENT DATE FOR THIS NONSHIP LINE ' , 5 ) ;
6018: END IF;
6019: p_x_interface_line_rec.SHIP_DATE_ACTUAL := SYSDATE;
6058: p_x_interface_line_rec.CREATED_BY := NVL(oe_standard_wf.g_user_id, fnd_global.user_id); -- 3169637
6059: p_x_interface_line_rec.CREATION_DATE := sysdate;
6060: p_x_interface_line_rec.LAST_UPDATED_BY := NVL(oe_standard_wf.g_user_id, fnd_global.user_id); -- 3169637
6061: p_x_interface_line_rec.LAST_UPDATE_DATE := sysdate;
6062: p_x_interface_line_rec.INTERFACE_LINE_CONTEXT := FND_PROFILE.VALUE('ONT_SOURCE_CODE');
6063: p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE1 := to_char(p_header_rec.order_number);
6064:
6065: SELECT tt.name
6066: INTO p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE2
6448: p_x_interface_line_rec.Primary_salesrep_Id := NVL(p_line_rec.Salesrep_Id, p_header_rec.Salesrep_Id);
6449: p_x_interface_line_rec.Sales_Order := to_char(p_header_rec.Order_Number);
6450: p_x_interface_line_rec.Sales_Order_Line := to_char(p_line_rec.Line_Number);
6451: p_x_interface_line_rec.Sales_Order_Date := p_header_rec.Ordered_Date;
6452: p_x_interface_line_rec.Sales_Order_Source := FND_PROFILE.VALUE('ONT_SOURCE_CODE');
6453: p_x_interface_line_rec.Agreement_Id := p_line_rec.Agreement_Id;
6454: p_x_interface_line_rec.Purchase_Order := p_line_rec.Cust_PO_Number;
6455: p_x_interface_line_rec.Inventory_Item_Id := p_line_rec.Inventory_Item_Id;
6456:
6494: oe_debug_pub.add('l_concat_segment'||l_concat_segment,1);
6495: l_table_index := FIND(l_concat_segment);
6496: IF l_table_index < TABLE_SIZE THEN
6497: IF l_debug_level > 0 THEN
6498: --oe_debug_pub.add( 'cached FND PROFILE AR_ALLOW_TAX_CODE_OVERRIDE: '||Prf_Tbl(l_table_index).prf_value,1);
6499: oe_debug_pub.add( 'cached FND PROFILE ZX_ALLOW_TAX_CLASSIF_OVERRIDE: '||Prf_Tbl(l_table_index).prf_value,1);
6500: END IF;
6501: l_prof_value := Prf_Tbl(l_table_index).prf_value;
6502: ELSE
6495: l_table_index := FIND(l_concat_segment);
6496: IF l_table_index < TABLE_SIZE THEN
6497: IF l_debug_level > 0 THEN
6498: --oe_debug_pub.add( 'cached FND PROFILE AR_ALLOW_TAX_CODE_OVERRIDE: '||Prf_Tbl(l_table_index).prf_value,1);
6499: oe_debug_pub.add( 'cached FND PROFILE ZX_ALLOW_TAX_CLASSIF_OVERRIDE: '||Prf_Tbl(l_table_index).prf_value,1);
6500: END IF;
6501: l_prof_value := Prf_Tbl(l_table_index).prf_value;
6502: ELSE
6503: put(l_concat_segment,l_user_id,l_resp_id,l_appl_id,l_prof_value);
6501: l_prof_value := Prf_Tbl(l_table_index).prf_value;
6502: ELSE
6503: put(l_concat_segment,l_user_id,l_resp_id,l_appl_id,l_prof_value);
6504: IF l_debug_level > 0 THEN
6505: --oe_debug_pub.add( ' Uncached first time FND PROFILE AR_ALLOW_TAX_CODE_OVERRIDE: '||l_prof_value,1);
6506: oe_debug_pub.add( ' Uncached first time FND PROFILE ZX_ALLOW_TAX_CLASSIF_OVERRIDE: '||l_prof_value,1);
6507: END IF;
6508: END IF;
6509: -- 3757279
6502: ELSE
6503: put(l_concat_segment,l_user_id,l_resp_id,l_appl_id,l_prof_value);
6504: IF l_debug_level > 0 THEN
6505: --oe_debug_pub.add( ' Uncached first time FND PROFILE AR_ALLOW_TAX_CODE_OVERRIDE: '||l_prof_value,1);
6506: oe_debug_pub.add( ' Uncached first time FND PROFILE ZX_ALLOW_TAX_CLASSIF_OVERRIDE: '||l_prof_value,1);
6507: END IF;
6508: END IF;
6509: -- 3757279
6510:
6546: p_line_rec.actual_shipment_date;
6547: END IF;
6548:
6549: IF p_x_interface_line_rec.Ship_Date_Actual is NULL THEN
6550: IF (fnd_profile.value('OE_RECEIVABLES_DATE_FOR_NONSHIP_LINES') = 'Y')
6551: THEN
6552: p_x_interface_line_rec.Ship_Date_Actual := SYSDATE;
6553: END IF;
6554: END IF;
6962: oe_debug_pub.add( 'BEFORE CALLING AR PACKAGE PROCESS_CUST_BANK_ACCOUNT ( ) ' , 5 ) ;
6963: END IF;
6964: --
6965: l_trx_date := nvl(p_header_rec.ordered_date, sysdate)
6966: - nvl( to_number(fnd_profile.value('ONT_DAYS_TO_BACKDATE_BANK_ACCT')), 0);
6967: BEGIN
6968: /*
6969: ** Fix Bug # 2438201
6970: ** p_trx_date to be passed as order creation date so that autoinvoice succceds
7006: p_x_interface_line_rec.customer_bank_account_name
7007: := p_header_rec.credit_card_holder_name;
7008: /* Fix FP Bug # 3647389: Get the Current Context Values */
7009: l_cur_user_id := fnd_global.user_id;
7010: fnd_profile.get('RESP_ID',l_cur_resp_id);
7011: fnd_profile.get('RESP_APPL_ID',l_cur_appl_id);
7012:
7013: /* Fix FP Bug # 3647389: Set the Context using Original Values */
7014: fnd_global.apps_initialize(l_user_id, l_resp_id, l_appl_id);
7007: := p_header_rec.credit_card_holder_name;
7008: /* Fix FP Bug # 3647389: Get the Current Context Values */
7009: l_cur_user_id := fnd_global.user_id;
7010: fnd_profile.get('RESP_ID',l_cur_resp_id);
7011: fnd_profile.get('RESP_APPL_ID',l_cur_appl_id);
7012:
7013: /* Fix FP Bug # 3647389: Set the Context using Original Values */
7014: fnd_global.apps_initialize(l_user_id, l_resp_id, l_appl_id);
7015:
7212: IF l_debug_level > 0 THEN
7213: oe_debug_pub.add('Before creating receipt method assignment at site level if it does not exist');
7214: END IF;
7215: l_trx_date := nvl(p_header_rec.ordered_date, sysdate)
7216: - nvl( to_number(fnd_profile.value('ONT_DAYS_TO_BACKDATE_BANK_ACCT')), 0);
7217: --bug6025064 Using SQL Statement since API arp_bank_pkg.process_cust_pay_method has been obsoleted
7218: l_cust_pay_method_id := arp_bank_pkg.process_cust_pay_method
7219: ( p_pay_method_id => l_receipt_method_id
7220: , p_customer_id => p_header_rec.sold_to_org_id
7251: oe_debug_pub.add('Before creating receipt method assignment at site level if it does not exist', 5);
7252: oe_debug_pub.add('Invoice To Customer : ' || l_invoice_to_customer_id ||'; Invoice To Site : ' || p_header_rec.invoice_to_org_id, 5);
7253: END IF;
7254: l_trx_date := nvl(p_header_rec.ordered_date, sysdate)
7255: - nvl( to_number(fnd_profile.value('ONT_DAYS_TO_BACKDATE_BANK_ACCT')), 0);
7256:
7257: l_cust_pay_method_id := arp_ext_bank_pkg.process_cust_pay_method
7258: ( p_pay_method_id => l_receipt_method_id
7259: , p_customer_id => l_invoice_to_customer_id -- p_header_rec.sold_to_org_id -- Bug 6911267
7532: CALCULATE_PRICE_FLAG = 'N',
7533: LOCK_CONTROL = LOCK_CONTROL + 1
7534: WHERE LINE_ID = p_line_rec.line_id;
7535: IF ( (OE_GLOBALS.G_ASO_INSTALLED = 'Y') OR
7536: (NVL(FND_PROFILE.VALUE('ONT_DBI_INSTALLED'),'N') = 'Y') ) THEN
7537:
7538: l_Line_tbl(1) := p_line_rec;
7539: l_Old_Line_tbl(1) := p_line_rec;
7540: l_Line_tbl(1).calculate_price_flag := 'N';
8736: END IF; -- noninvoiceable line
8737: /* Bug#2666125 end-check freight records and holds for non invoiceable items*/
8738: IF
8739: -- l_freight_count = 0 OR
8740: FND_PROFILE.VALUE('WSH_INVOICE_NUMBERING_METHOD') = 'A' THEN
8741: oe_debug_pub.add('Handling non-invoiceable lines with no freight or automatic numbering',1);
8742: Update_Invoice_Attributes(l_line_rec
8743: ,l_interface_line_rec
8744: ,'NOT_ELIGIBLE'
8902: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8903: x_result_out := OE_GLOBALS.G_WFR_INCOMPLETE;
8904: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8905: END IF;
8906: IF FND_PROFILE.VALUE('WSH_INVOICE_NUMBERING_METHOD') = 'D' THEN
8907: IF l_debug_level > 0 THEN
8908: oe_debug_pub.add( 'INVOICE NUMBERING SET TO MANUAL' , 5 ) ;
8909: END IF;
8910: IF Shipping_Info_Available(l_line_rec) AND NOT Return_Line(l_line_rec) THEN