[Home] [Help]
10: g_path VARCHAR2(100);
11: --===========================FND_LOG.END=======================================
12: --Declare all required global variables
13: TYPE batch_rec IS RECORD
14: (batch_id fun_net_batches_all.batch_id%TYPE,
15: agreement_id fun_net_agreements_all.agreement_id%TYPE,
16: currency gl_ledgers.currency_code%TYPE);
17: TYPE batch_table IS TABLE OF batch_rec INDEX BY BINARY_INTEGER;
18: SUBTYPE batch_details_rec IS fun_net_batches_all%ROWTYPE;
14: (batch_id fun_net_batches_all.batch_id%TYPE,
15: agreement_id fun_net_agreements_all.agreement_id%TYPE,
16: currency gl_ledgers.currency_code%TYPE);
17: TYPE batch_table IS TABLE OF batch_rec INDEX BY BINARY_INTEGER;
18: SUBTYPE batch_details_rec IS fun_net_batches_all%ROWTYPE;
19: g_batch_details batch_details_rec;
20: g_batch_list batch_table;
21: g_idx BINARY_INTEGER;
22: -- TYPE txnCurType IS REF CURSOR;
57: remittance_bank_account_name ce_bank_accounts.bank_account_name%TYPE ,
58: receipt_method_id ar_receipt_methods.receipt_method_id%TYPE,
59: org_id fun_net_batches.org_id%TYPE
60: );
61: g_batch_id fun_net_batches_all.batch_id%TYPE;
62: g_net_currency_rule fun_net_agreements_all.net_currency_rule_code%TYPE;
63: g_net_order_rule fun_net_agreements_all.net_order_rule_code%TYPE;
64: g_net_balance_rule fun_net_agreements_all.net_balance_rule_code%TYPE;
65: g_net_currency fun_net_agreements_all.net_currency_code%TYPE;
96: /* Derives Conv Amt . Returns the same amount if from and to are of the same currency, else returns the converted currency amount */
97: FUNCTION Derive_Conv_Amt(p_batch_id NUMBER,p_trx_id NUMBER,p_amount NUMBER,ap_ar VARCHAR2)
98: RETURN NUMBER
99: IS
100: l_exg_rate fun_net_batches_all.exchange_rate%TYPE;
101: l_exg_rate_1 fun_net_batches_all.exchange_rate%TYPE;
102: l_exchange_rate_type fun_net_batches_all.exchange_rate_type%TYPE;
103: l_inv_currency fnd_currencies.currency_code%TYPE;
104: l_precision fnd_currencies.precision%TYPE;
97: FUNCTION Derive_Conv_Amt(p_batch_id NUMBER,p_trx_id NUMBER,p_amount NUMBER,ap_ar VARCHAR2)
98: RETURN NUMBER
99: IS
100: l_exg_rate fun_net_batches_all.exchange_rate%TYPE;
101: l_exg_rate_1 fun_net_batches_all.exchange_rate%TYPE;
102: l_exchange_rate_type fun_net_batches_all.exchange_rate_type%TYPE;
103: l_inv_currency fnd_currencies.currency_code%TYPE;
104: l_precision fnd_currencies.precision%TYPE;
105: l_batch_currency fun_net_batches_all.BATCH_CURRENCY%TYPE;
98: RETURN NUMBER
99: IS
100: l_exg_rate fun_net_batches_all.exchange_rate%TYPE;
101: l_exg_rate_1 fun_net_batches_all.exchange_rate%TYPE;
102: l_exchange_rate_type fun_net_batches_all.exchange_rate_type%TYPE;
103: l_inv_currency fnd_currencies.currency_code%TYPE;
104: l_precision fnd_currencies.precision%TYPE;
105: l_batch_currency fun_net_batches_all.BATCH_CURRENCY%TYPE;
106: l_settlement_date fun_net_batches_all.SETTLEMENT_DATE%TYPE;
101: l_exg_rate_1 fun_net_batches_all.exchange_rate%TYPE;
102: l_exchange_rate_type fun_net_batches_all.exchange_rate_type%TYPE;
103: l_inv_currency fnd_currencies.currency_code%TYPE;
104: l_precision fnd_currencies.precision%TYPE;
105: l_batch_currency fun_net_batches_all.BATCH_CURRENCY%TYPE;
106: l_settlement_date fun_net_batches_all.SETTLEMENT_DATE%TYPE;
107: l_exchange_rate fun_net_batches_all.EXCHANGE_RATE%TYPE;
108: l_org_id fun_net_batches_all.ORG_ID%TYPE;
109: l_path varchar2(100);
102: l_exchange_rate_type fun_net_batches_all.exchange_rate_type%TYPE;
103: l_inv_currency fnd_currencies.currency_code%TYPE;
104: l_precision fnd_currencies.precision%TYPE;
105: l_batch_currency fun_net_batches_all.BATCH_CURRENCY%TYPE;
106: l_settlement_date fun_net_batches_all.SETTLEMENT_DATE%TYPE;
107: l_exchange_rate fun_net_batches_all.EXCHANGE_RATE%TYPE;
108: l_org_id fun_net_batches_all.ORG_ID%TYPE;
109: l_path varchar2(100);
110: BEGIN
103: l_inv_currency fnd_currencies.currency_code%TYPE;
104: l_precision fnd_currencies.precision%TYPE;
105: l_batch_currency fun_net_batches_all.BATCH_CURRENCY%TYPE;
106: l_settlement_date fun_net_batches_all.SETTLEMENT_DATE%TYPE;
107: l_exchange_rate fun_net_batches_all.EXCHANGE_RATE%TYPE;
108: l_org_id fun_net_batches_all.ORG_ID%TYPE;
109: l_path varchar2(100);
110: BEGIN
111: l_path := g_path || 'Derive Converted Amount';
104: l_precision fnd_currencies.precision%TYPE;
105: l_batch_currency fun_net_batches_all.BATCH_CURRENCY%TYPE;
106: l_settlement_date fun_net_batches_all.SETTLEMENT_DATE%TYPE;
107: l_exchange_rate fun_net_batches_all.EXCHANGE_RATE%TYPE;
108: l_org_id fun_net_batches_all.ORG_ID%TYPE;
109: l_path varchar2(100);
110: BEGIN
111: l_path := g_path || 'Derive Converted Amount';
112: IF ap_ar='AP' THEN
123: AND rct.invoice_currency_code = fc.currency_code;
124: END IF;
125: SELECT BATCH_CURRENCY,SETTLEMENT_DATE,EXCHANGE_RATE_TYPE,EXCHANGE_RATE,ORG_ID
126: INTO l_batch_currency,l_settlement_date,l_exchange_rate_type,l_exg_rate,l_org_id
127: FROM FUN_NET_BATCHES_ALL
128: WHERE batch_id=p_batch_id;
129: IF l_exchange_rate_type = 'User' then
130: l_exg_rate := l_exg_rate_1;
131: ELSIF l_exchange_rate_type IS NULL THEN
157: RETURN NULL;
158: END Derive_Conv_Amt;
159: --This function will return the discount amount for a given invoice and amount
160: FUNCTION get_ap_discount(p_batch_id NUMBER, p_invoice_id NUMBER, p_amt_to_net NUMBER, p_txn_due_date DATE) RETURN NUMBER IS
161: TYPE amt_type IS TABLE OF fun_net_batches_all.total_netted_amt%TYPE INDEX BY BINARY_INTEGER;
162: TYPE tnxCurTyp IS REF CURSOR;
163: l_sql_stmt VARCHAR2(500);
164: l_applieddisc NUMBER;
165: pmt_rec tnxCurTyp;
180: l_amt_to_net := p_amt_to_net;
181: fun_net_util.Log_String(g_state_level,l_path,'l_amt_to_net :'|| l_amt_to_net);
182: SELECT FNA.net_currency_rule_code, FNB.batch_currency, FNB.exchange_rate_type, FNB.settlement_date
183: INTO l_net_currency_rule_code, l_currency_code, l_exchange_rate_type, l_settlement_date
184: FROM FUN_NET_BATCHES_ALL FNB,
185: FUN_NET_AGREEMENTS_ALL FNA
186: where
187: FNB.BATCH_ID = p_batch_id
188: AND FNB.AGREEMENT_ID = FNA.AGREEMENT_ID;
227: RETURN 0;
228: END get_ap_discount;
229: --This function will return the discount amount for a given invoice and amount
230: FUNCTION get_ar_discount(p_batch_id NUMBER, p_cust_txn_id NUMBER, p_amt_to_net NUMBER, p_txn_due_date DATE) RETURN NUMBER IS
231: TYPE amt_type IS TABLE OF fun_net_batches_all.total_netted_amt%TYPE INDEX BY BINARY_INTEGER;
232: TYPE tnxCurTyp IS REF CURSOR;
233: l_applieddisc NUMBER;
234: l_pmtno amt_type;
235: l_amt_remaining amt_type;
249: l_amt_to_net := p_amt_to_net;
250: fun_net_util.Log_String(g_state_level,l_path,' p_amt_to_net :: '||p_amt_to_net);
251: SELECT FNA.net_currency_rule_code, FNB.batch_currency, FNB.exchange_rate_type, FNB.settlement_date
252: INTO l_net_currency_rule_code, l_currency_code, l_exchange_rate_type, l_settlement_date
253: FROM FUN_NET_BATCHES_ALL FNB,
254: FUN_NET_AGREEMENTS_ALL FNA
255: where
256: FNB.BATCH_ID = p_batch_id
257: AND FNB.AGREEMENT_ID = FNA.AGREEMENT_ID;
341: attribute18,
342: attribute19,
343: attribute20,
344: checkrun_id
345: FROM fun_net_batches_all
346: WHERE batch_id = g_batch_id;
347: BEGIN
348: --Get all the batch details into global variables from the table fun_net_batches_all
349: OPEN c_get_batch_details;
344: checkrun_id
345: FROM fun_net_batches_all
346: WHERE batch_id = g_batch_id;
347: BEGIN
348: --Get all the batch details into global variables from the table fun_net_batches_all
349: OPEN c_get_batch_details;
350: FETCH c_get_batch_details
351: INTO g_batch_details.batch_id,
352: g_batch_details.object_version_number,
541: AND arm.payment_type_code = ''CREDIT_CARD'')
542: AND NOT EXISTS
543: (SELECT ''X''
544: FROM fun_net_ar_txns_all fnar,
545: fun_net_batches_all fnba
546: WHERE Fnar.customer_trx_id = rct.customer_trx_id
547: AND fnar.batch_id = fnba.batch_id
548: AND fnba.batch_status_code <> ''CANCELLED''
549: AND fnba.batch_status_code <> ''COMPLETE''
776: AND TRUNC(:v_agr_end_date)
777: AND NOT EXISTS
778: (SELECT ''X''
779: FROM fun_net_ap_invs_all fnap,
780: fun_net_batches_all fnba
781: WHERE fnap.invoice_id = api.invoice_id
782: AND fnap.batch_id = fnba.batch_id
783: AND fnba.batch_status_code <> ''CANCELLED''
784: AND fnba.batch_status_code <> ''COMPLETE''
814: AND TRUNC(:v_agr_end_date)
815: AND NOT EXISTS
816: (SELECT ''X''
817: FROM fun_net_ap_invs_all fnap,
818: fun_net_batches_all fnba
819: WHERE fnap.invoice_id = api.invoice_id
820: AND fnap.batch_id = fnba.batch_id
821: AND fnba.batch_status_code <> ''CANCELLED''
822: AND fnba.batch_status_code <> ''COMPLETE''
1003: END IF;
1004: --AND TRUNC(due_date) <= NVL(p_trx_due_date,TRUNC(due_date))
1005: select checkrun_id
1006: INTO l_checkrun_id
1007: from FUN_NET_BATCHES_ALL
1008: WHERE batch_id = p_batch_id;
1009: -- Bug:8234111.
1010: -- Update AP Payment Schedules with the Checkrun id
1011: FOR i in 1..p_schd_tab.COUNT LOOP
1032: l_batch_exists VARCHAR2(1);
1033: --l_inv_rank NUMBER;
1034: TYPE InvCurTyp IS REF CURSOR;
1035: inv_rec InvCurTyp;
1036: TYPE amt_type IS TABLE OF fun_net_batches_all.total_netted_amt%TYPE INDEX BY BINARY_INTEGER;
1037: TYPE trx_type IS TABLE OF fun_net_ar_txns_all.customer_trx_id%TYPE INDEX BY BINARY_INTEGER;
1038: TYPE payment_num IS TABLE OF ap_payment_schedules_all.payment_num%TYPE INDEX BY BINARY_INTEGER;
1039: TYPE inv_rank IS TABLE OF fun_net_ap_invs_all.ap_txn_rank%TYPE INDEX BY BINARY_INTEGER;
1040: TYPE exchange_rate IS TABLE OF ap_invoices_all.exchange_rate%TYPE INDEX BY BINARY_INTEGER;
1093: END IF;
1094: END IF ;
1095: select checkrun_id
1096: INTO l_checkrun_id
1097: from FUN_NET_BATCHES_ALL
1098: WHERE batch_id = g_batch_id;
1099: IF l_checkrun_id is NULL THEN
1100: SELECT ap_inv_selection_criteria_s.nextval
1101: INTO l_checkrun_id
1101: INTO l_checkrun_id
1102: FROM dual;
1103: fun_net_util.Log_String(g_state_level,l_path,'l_checkrun_id :'||l_checkrun_id);
1104: -- Update Netting Batch with the Checkrun id
1105: UPDATE FUN_NET_BATCHES_ALL
1106: SET checkrun_id = l_checkrun_id
1107: WHERE batch_id = g_batch_id;
1108: fun_net_util.Log_String(g_state_level,l_path,'Batch updated');
1109: END IF;
1639: AND UPDATE THE APPROPRIATE AP AND AR FUN TABLES WITH THE APPLIED DISCOUNT AMOUNT */
1640: PROCEDURE update_net_balances_esd(p_sql_stmt VARCHAR2,
1641: p_amt_to_net NUMBER,
1642: p_appln VARCHAR2) IS
1643: TYPE amt_type IS TABLE OF fun_net_batches_all.total_netted_amt%TYPE index by pls_integer;
1644: TYPE trx_type IS TABLE OF fun_net_ar_txns_all.customer_trx_id%TYPE;
1645: l_open_amt_afterdisc amt_type;
1646: l_tc_open_amt_afterdisc amt_type;
1647: l_applieddisc amt_type;
1652: l_net_amt amt_type;
1653: l_trx_id trx_type;
1654: l_inv_curr_open_amt amt_type;
1655: l_inv_curr_net_amt amt_type;
1656: l_amt_to_net fun_net_batches_all.total_netted_amt%TYPE;
1657: l_inv_currency fnd_currencies.currency_code%TYPE;
1658: l_precision fnd_currencies.precision%TYPE;
1659: l_sql_stmt Varchar2(150);
1660: l_net_amt_cur NUMBER;
1845: PROCEDURE calculate_AP_AR_balances(p_amt_to_net OUT NOCOPY NUMBER,
1846: p_status_flag OUT NOCOPY VARCHAR2) IS
1847: l_ap_bal fun_net_ap_invs_all.open_amt%TYPE;
1848: l_ar_bal fun_net_ar_txns_all.open_amt%TYPE;
1849: l_amt_to_net fun_net_batches_all.total_netted_amt%TYPE;
1850: l_status_flag VARCHAR2(1);
1851: l_sql_stmt VARCHAR2(2000);
1852: l_path varchar2(100);
1853: BEGIN
1876: l_sql_stmt := 'SELECT open_amt,customer_trx_id,0, txn_curr_open_amt,0 FROM fun_net_ar_txns_all WHERE batch_id = :v_batch_id ORDER BY ar_txn_rank';
1877: update_net_balances(l_sql_stmt,l_amt_to_net,'AR');
1878: END IF;
1879: fun_net_util.Log_String(g_state_level,l_path,'Total Netted Amount :'||l_amt_to_net);
1880: /*UPDATE fun_net_batches_all
1881: SET total_netted_amt = l_amt_to_net
1882: WHERE batch_id = g_batch_id; */
1883: p_amt_to_net := l_amt_to_net;
1884: p_status_flag := FND_API.G_TRUE;
1938: PROCEDURE calculate_approx_netted_amount(p_amt_to_net OUT NOCOPY NUMBER,
1939: p_status_flag OUT NOCOPY VARCHAR2) IS
1940: l_ap_bal fun_net_ap_invs_all.open_amt%TYPE;
1941: l_ar_bal fun_net_ar_txns_all.open_amt%TYPE;
1942: l_amt_to_net fun_net_batches_all.total_netted_amt%TYPE;
1943: l_status_flag VARCHAR2(1);
1944: l_sql_stmt VARCHAR2(2000);
1945: l_path varchar2(100);
1946: BEGIN
2009: fun_net_util.Log_String(g_state_level,l_path,'AR open amount :'||p_ar_bal);
2010: IF nvl(p_ap_bal,0) = 0 OR nvl(p_ar_bal,0) = 0 THEN
2011: /* Error out the Batch to say netting cannot continue and set the Batch to Error and put message in the log*/
2012: --ERROR MESSAGE : 'Netting cannot be performed as the Outstanding balance is zero'
2013: /*UPDATE fun_net_batches_all
2014: SET batch_status_code = 'ERROR'
2015: WHERE batch_id = g_batch_id; */
2016: p_status_flag := FND_API.G_FALSE;
2017: /*IF NOT update_Batch_Status('ERROR') THEN
2029: WHEN OTHERS THEN
2030: fun_net_util.Log_String(g_proc_level,l_path,'EXCEPTION : '||sqlerrm);
2031: END validate_AP_AR_balances;
2032: PROCEDURE insert_batch_record(p_currency_code VARCHAR2) IS
2033: l_batch_id fun_net_batches_all.batch_id%TYPE;
2034: l_path varchar2(200);
2035: BEGIN
2036: l_path := g_path||'insert_batch_record';
2037: /* Check for mandatory parameters and all values that are going to be inserted */
2037: /* Check for mandatory parameters and all values that are going to be inserted */
2038: SELECT fun_net_batches_s.NEXTVAL
2039: INTO g_batch_id
2040: FROM DUAL;
2041: INSERT INTO FUN_NET_BATCHES_ALL
2042: (batch_id,
2043: object_version_number,
2044: agreement_id,
2045: batch_name,
2171: WHERE rct.customer_trx_id = fnart.customer_trx_id
2172: AND fnart.batch_id = g_batch_id;
2173: l_count NUMBER;
2174: l_exc_rate NUMBER;
2175: l_conv_rate fun_net_batches_all.exchange_rate_type%TYPE;
2176: l_path VARCHAR2(100);
2177: l_msg_count NUMBER;
2178: l_msg_data VARCHAR2(2000);
2179: BEGIN
2221: END validate_exch_rate;
2222: PROCEDURE update_net_balances(p_sql_stmt VARCHAR2,
2223: p_amt_to_net NUMBER,
2224: p_appln VARCHAR2) IS
2225: TYPE amt_type IS TABLE OF fun_net_batches_all.total_netted_amt%TYPE;
2226: TYPE trx_type IS TABLE OF fun_net_ar_txns_all.customer_trx_id%TYPE;
2227: l_open_amt amt_type;
2228: l_exc_rate NUMBER;
2229: l_net_amt amt_type;
2229: l_net_amt amt_type;
2230: l_trx_id trx_type;
2231: l_inv_curr_open_amt amt_type;
2232: l_inv_curr_net_amt amt_type;
2233: l_amt_to_net fun_net_batches_all.total_netted_amt%TYPE;
2234: l_inv_currency fnd_currencies.currency_code%TYPE;
2235: l_precision fnd_currencies.precision%TYPE;
2236: TYPE tnxCurTyp IS REF CURSOR;
2237: tnx_rec tnxCurTyp;
2344: l_return_status VARCHAR2(1);
2345: l_msg_count NUMBER;
2346: l_msg_data VARCHAR2(2000);
2347: l_path VARCHAR2(100);
2348: l_amt_to_net fun_net_batches_all.total_netted_amt%TYPE;
2349: l_status_flag VARCHAR2(1);
2350: batch_status_flag BOOLEAN;
2351: CURSOR c_agreement_cur IS
2352: SELECT agreement_id,
2494: END IF;
2495: END IF;
2496: /* Set the status of the Batch to Selected */
2497: IF l_status_flag = FND_API.G_TRUE THEN
2498: UPDATE fun_net_batches_all
2499: SET batch_status_code = 'SELECTED',
2500: batch_currency = g_batch_list(i).currency,
2501: agreement_id = g_batch_list(i).agreement_id,
2502: total_netted_amt = l_amt_to_net
2502: total_netted_amt = l_amt_to_net
2503: WHERE batch_id = g_batch_id;
2504: g_batch_details.batch_status_code := 'SELECTED';
2505: ELSE
2506: UPDATE fun_net_batches_all
2507: SET batch_status_code = 'ERROR',
2508: batch_currency = g_batch_list(i).currency,
2509: agreement_id = g_batch_list(i).agreement_id,
2510: total_netted_amt = l_amt_to_net
2573: END create_net_batch;
2574: PROCEDURE Validate_multi_currency_flag IS
2575: l_count number(3);
2576: l_flag varchar2(3);
2577: l_batch_currency fun_net_batches_all.batch_currency%type;
2578: l_msg_data VARCHAR2(2000);
2579: BEGIN
2580: l_count:=0;
2581: l_flag := 'N';
2582: if(g_net_currency_rule<>'ACCOUNTING_CURRENCY') then
2583: if(g_net_currency_rule='SINGLE_CURRENCY') then
2584: begin
2585: select batch_currency into l_batch_currency
2586: from fun_net_batches_all
2587: where batch_id = g_batch_id;
2588: exception
2589: when others then
2590: RAISE FND_API.G_EXC_ERROR;
2666: l_TP_approver fun_net_agreements_all.approver_name%TYPE;
2667: l_return_status VARCHAR2(1);
2668: l_msg_count NUMBER;
2669: l_msg_data VARCHAR2(2000);
2670: l_batch_status fun_net_batches_all.settlement_date%TYPE;
2671: l_Request_id fnd_concurrent_requests.request_id%TYPE;
2672: l_batch_status_flag BOOLEAN;
2673: VALIDATE_SETTLEMENT_DATE_FAIL EXCEPTION;
2674: CURSOR c_TP_approver IS
3129: -- Select the checkrun ID for the
3130: -- Netting Batch
3131: SELECT checkrun_id , org_id
3132: INTO l_checkrun_id , l_org_id
3133: FROM fun_net_batches_all
3134: WHERE batch_id = p_batch_id ;
3135: UPDATE AP_PAYMENT_SCHEDULES_ALL
3136: SET checkrun_id = NULL
3137: WHERE checkrun_id =l_checkrun_id
3141: ELSIF SQL%NOTFOUND THEN
3142: ROLLBACK;
3143: RETURN;
3144: END IF;
3145: UPDATE FUN_NET_BATCHES_ALL
3146: SET checkrun_id = NULL
3147: WHERE batch_id = p_batch_id ;
3148: IF SQL%FOUND THEN
3149: COMMIT;
3163: FUNCTION Derive_Net_Exchg_Rate(x_from_currency IN VARCHAR2,
3164: x_to_currency IN VARCHAR2)
3165: RETURN NUMBER
3166: IS
3167: x_exchange_rate fun_net_batches_all.exchange_rate%TYPE;
3168: l_exchange_rate_type fun_net_batches_all.exchange_rate_type%TYPE;
3169: l_path varchar2(100);
3170: BEGIN
3171: l_path := g_path || 'Derive net exchange';
3164: x_to_currency IN VARCHAR2)
3165: RETURN NUMBER
3166: IS
3167: x_exchange_rate fun_net_batches_all.exchange_rate%TYPE;
3168: l_exchange_rate_type fun_net_batches_all.exchange_rate_type%TYPE;
3169: l_path varchar2(100);
3170: BEGIN
3171: l_path := g_path || 'Derive net exchange';
3172: IF x_from_currency = x_to_currency THEN
3977: l_open_amt ra_customer_trx_lines.extended_amount%TYPE;
3978: l_running_amt ra_customer_trx_lines.extended_amount%TYPE;
3979: current_amt_due AR_PAYMENT_SCHEDULES.amount_due_remaining%TYPE;
3980: l_applied_from ra_customer_trx_lines.extended_amount%TYPE;
3981: l_exchange_rate fun_net_batches_all.exchange_rate%TYPE;
3982: l_original_amt ra_customer_trx_lines.extended_amount%TYPE;
3983: l_trans_to_func_rate fun_net_batches_all.exchange_rate%TYPE;
3984: l_func_to_trans_rate fun_net_batches_all.exchange_rate%TYPE;
3985: l_return_status VARCHAR2(1);
3979: current_amt_due AR_PAYMENT_SCHEDULES.amount_due_remaining%TYPE;
3980: l_applied_from ra_customer_trx_lines.extended_amount%TYPE;
3981: l_exchange_rate fun_net_batches_all.exchange_rate%TYPE;
3982: l_original_amt ra_customer_trx_lines.extended_amount%TYPE;
3983: l_trans_to_func_rate fun_net_batches_all.exchange_rate%TYPE;
3984: l_func_to_trans_rate fun_net_batches_all.exchange_rate%TYPE;
3985: l_return_status VARCHAR2(1);
3986: l_exchange_rate_type varchar2(20);
3987: l_exchange_rate_date fun_net_batches.settlement_date%TYPE;
3980: l_applied_from ra_customer_trx_lines.extended_amount%TYPE;
3981: l_exchange_rate fun_net_batches_all.exchange_rate%TYPE;
3982: l_original_amt ra_customer_trx_lines.extended_amount%TYPE;
3983: l_trans_to_func_rate fun_net_batches_all.exchange_rate%TYPE;
3984: l_func_to_trans_rate fun_net_batches_all.exchange_rate%TYPE;
3985: l_return_status VARCHAR2(1);
3986: l_exchange_rate_type varchar2(20);
3987: l_exchange_rate_date fun_net_batches.settlement_date%TYPE;
3988: l_msg_count NUMBER;
4610: p_batch_id IN NUMBER) IS
4611: l_schd_tab pymt_sch_tab;
4612: l_status_flag VARCHAR2(1);
4613: l_return_status VARCHAR2(1);
4614: l_batch_status fun_net_batches_all.settlement_date%TYPE;
4615: l_bank_acct_use_id ce_bank_acct_uses_all.bank_acct_use_id%TYPE;
4616: l_bank_acct_name ce_bank_accounts.bank_account_name%TYPE;
4617: l_bank_acct_num ce_bank_accounts.bank_account_num%TYPE;
4618: l_le_id xle_entity_profiles.legal_entity_id%TYPE;
4892: l_allow_disc_flag varchar2(3);
4893: BEGIN
4894: SELECT distinct allow_disc_flag
4895: INTO l_allow_disc_flag
4896: FROM fun_net_batches_all fnb,
4897: fun_net_agreements_all fna
4898: WHERE fnb.batch_id = p_batch_id
4899: and fna.agreement_id = fnb.agreement_id;
4900: RETURN l_allow_disc_flag;