DBA Data[Home] [Help]

APPS.FUN_NET_ARAP_PKG dependencies on AP_PAYMENT_PUBLIC_PKG

Line 201: l_applieddisc := AP_PAYMENT_PUBLIC_PKG.Get_Disc_For_Netted_Amt( p_invoice_id,l_pmtno(j),p_txn_due_date,l_amt_to_net) + l_applieddisc;

197: LOOP
198: fun_net_util.Log_String(g_state_level,l_path,'l_amt_to_net :'|| l_amt_to_net);
199: fun_net_util.Log_String(g_state_level,l_path,'l_amt_remaining('||j||') :'|| l_amt_remaining(j));
200: IF l_amt_remaining(j)>=l_amt_to_net THEN
201: l_applieddisc := AP_PAYMENT_PUBLIC_PKG.Get_Disc_For_Netted_Amt( p_invoice_id,l_pmtno(j),p_txn_due_date,l_amt_to_net) + l_applieddisc;
202: EXIT;
203: ELSE
204: l_current_discount := AP_PAYMENT_PUBLIC_PKG.Get_Disc_For_Pmt_Schedule( p_invoice_id,l_pmtno(j),p_txn_due_date);
205: l_applieddisc := l_current_discount + l_applieddisc;

Line 204: l_current_discount := AP_PAYMENT_PUBLIC_PKG.Get_Disc_For_Pmt_Schedule( p_invoice_id,l_pmtno(j),p_txn_due_date);

200: IF l_amt_remaining(j)>=l_amt_to_net THEN
201: l_applieddisc := AP_PAYMENT_PUBLIC_PKG.Get_Disc_For_Netted_Amt( p_invoice_id,l_pmtno(j),p_txn_due_date,l_amt_to_net) + l_applieddisc;
202: EXIT;
203: ELSE
204: l_current_discount := AP_PAYMENT_PUBLIC_PKG.Get_Disc_For_Pmt_Schedule( p_invoice_id,l_pmtno(j),p_txn_due_date);
205: l_applieddisc := l_current_discount + l_applieddisc;
206: l_amt_to_net := l_amt_to_net - (l_amt_remaining(j) - l_current_discount);
207: END IF;
208: fun_net_util.Log_String(g_state_level,l_path,'l_current_discount('||j||') :'|| l_current_discount);

Line 736: sum(aps.amount_remaining - AP_PAYMENT_PUBLIC_PKG.Get_Disc_For_Pmt_Schedule(api.invoice_id,aps.payment_num,:SETTLEMENT_DATE)) AS OPEN_AMOUNT_AFTERDISC';

732: api.invoice_amount AS transaction_amount,
733: SUM(aps.amount_remaining) AS open_amount,
734: min(aps.payment_num),
735: max(aps.payment_num),
736: sum(aps.amount_remaining - AP_PAYMENT_PUBLIC_PKG.Get_Disc_For_Pmt_Schedule(api.invoice_id,aps.payment_num,:SETTLEMENT_DATE)) AS OPEN_AMOUNT_AFTERDISC';
737: END IF;
738: fun_net_util.Log_String(g_state_level,l_path,'SELECT : '||l_inv_select_clause);
739: /* Build the from clause */
740: l_inv_from_clause :=

Line 920: SUM(AP_PAYMENT_PUBLIC_PKG.Get_Disc_For_Pmt_Schedule(api.invoice_id,aps.payment_num,to_date(:SETTLEMENT_DATE))),:max_roll_days))) OPEN_AMOUNT_AFTERDISC,

916: min(aps.payment_num),
917: max(aps.payment_num),
918: ((gl_currency_api.convert_closest_amount_sql(api.invoice_currency_code,:batch_currency,trunc(:SETTLEMENT_DATE),:exchange_rate_type,:exchange_rate,SUM(aps.amount_remaining),:max_roll_days))
919: -(gl_currency_api.convert_closest_amount_sql(api.invoice_currency_code,:batch_currency,trunc(:SETTLEMENT_DATE),:exchange_rate_type,:exchange_rate,
920: SUM(AP_PAYMENT_PUBLIC_PKG.Get_Disc_For_Pmt_Schedule(api.invoice_id,aps.payment_num,to_date(:SETTLEMENT_DATE))),:max_roll_days))) OPEN_AMOUNT_AFTERDISC,
921: sum(aps.amount_remaining - AP_PAYMENT_PUBLIC_PKG.Get_Disc_For_Pmt_Schedule(api.invoice_id,aps.payment_num,:SETTLEMENT_DATE)) AS TXN_CURR_OPEN_AMOUNT_AFTERDISC';
922: END IF;
923: l_inv_from_clause := l_inv_from_clause || ', fnd_currencies fc ';
924: l_inv_where_clause := l_inv_where_clause || ' AND api.invoice_currency_code = fc.currency_code ';

Line 921: sum(aps.amount_remaining - AP_PAYMENT_PUBLIC_PKG.Get_Disc_For_Pmt_Schedule(api.invoice_id,aps.payment_num,:SETTLEMENT_DATE)) AS TXN_CURR_OPEN_AMOUNT_AFTERDISC';

917: max(aps.payment_num),
918: ((gl_currency_api.convert_closest_amount_sql(api.invoice_currency_code,:batch_currency,trunc(:SETTLEMENT_DATE),:exchange_rate_type,:exchange_rate,SUM(aps.amount_remaining),:max_roll_days))
919: -(gl_currency_api.convert_closest_amount_sql(api.invoice_currency_code,:batch_currency,trunc(:SETTLEMENT_DATE),:exchange_rate_type,:exchange_rate,
920: SUM(AP_PAYMENT_PUBLIC_PKG.Get_Disc_For_Pmt_Schedule(api.invoice_id,aps.payment_num,to_date(:SETTLEMENT_DATE))),:max_roll_days))) OPEN_AMOUNT_AFTERDISC,
921: sum(aps.amount_remaining - AP_PAYMENT_PUBLIC_PKG.Get_Disc_For_Pmt_Schedule(api.invoice_id,aps.payment_num,:SETTLEMENT_DATE)) AS TXN_CURR_OPEN_AMOUNT_AFTERDISC';
922: END IF;
923: l_inv_from_clause := l_inv_from_clause || ', fnd_currencies fc ';
924: l_inv_where_clause := l_inv_where_clause || ' AND api.invoice_currency_code = fc.currency_code ';
925: l_inv_group_by_clause := ' GROUP BY api.invoice_id,

Line 1730: l_applieddisc(i) := AP_PAYMENT_PUBLIC_PKG.Get_Disc_For_Netted_Amt(l_trx_id(i),l_pmtno(j),g_batch_details.settlement_date,l_amt_to_net) + l_applieddisc(i);

1726: FOR j IN 1..l_pmtno.COUNT
1727: LOOP
1728: IF l_amt_remaining(j)>=l_amt_to_net THEN
1729: -- chk this l_amt_to_net=
1730: l_applieddisc(i) := AP_PAYMENT_PUBLIC_PKG.Get_Disc_For_Netted_Amt(l_trx_id(i),l_pmtno(j),g_batch_details.settlement_date,l_amt_to_net) + l_applieddisc(i);
1731: -- should convert to batch currecny l_applieddisc(i)
1732: EXIT;
1733: ELSE
1734: -- chk this l_amt_remaining(j)

Line 1735: l_applieddisc(i) := AP_PAYMENT_PUBLIC_PKG.Get_Disc_For_Pmt_Schedule(l_trx_id(i),l_pmtno(j),g_batch_details.settlement_date) + l_applieddisc(i);

1731: -- should convert to batch currecny l_applieddisc(i)
1732: EXIT;
1733: ELSE
1734: -- chk this l_amt_remaining(j)
1735: l_applieddisc(i) := AP_PAYMENT_PUBLIC_PKG.Get_Disc_For_Pmt_Schedule(l_trx_id(i),l_pmtno(j),g_batch_details.settlement_date) + l_applieddisc(i);
1736: --l_applieddisc(i) := AP_PAYMENT_PUBLIC_PKG.Get_Disc_For_Netted_Amt(l_trx_id(i),l_pmtno(j),g_batch_details.settlement_date,l_amt_remaining(j)) + l_applieddisc(i);
1737: -- should convert to batch currecny l_applieddisc(i)
1738: l_amt_to_net := l_amt_to_net - (l_amt_remaining(j) - l_applieddisc(i));
1739: END IF;

Line 1736: --l_applieddisc(i) := AP_PAYMENT_PUBLIC_PKG.Get_Disc_For_Netted_Amt(l_trx_id(i),l_pmtno(j),g_batch_details.settlement_date,l_amt_remaining(j)) + l_applieddisc(i);

1732: EXIT;
1733: ELSE
1734: -- chk this l_amt_remaining(j)
1735: l_applieddisc(i) := AP_PAYMENT_PUBLIC_PKG.Get_Disc_For_Pmt_Schedule(l_trx_id(i),l_pmtno(j),g_batch_details.settlement_date) + l_applieddisc(i);
1736: --l_applieddisc(i) := AP_PAYMENT_PUBLIC_PKG.Get_Disc_For_Netted_Amt(l_trx_id(i),l_pmtno(j),g_batch_details.settlement_date,l_amt_remaining(j)) + l_applieddisc(i);
1737: -- should convert to batch currecny l_applieddisc(i)
1738: l_amt_to_net := l_amt_to_net - (l_amt_remaining(j) - l_applieddisc(i));
1739: END IF;
1740: END LOOP;

Line 3287: ap_payment_info_tab AP_PAYMENT_PUBLIC_PKG.Invoice_Payment_Info_Tab;

3283: amtDueTab ap_check_amt_type;
3284: ap_invoice ap_invoice_type;
3285: party_list party_type;
3286: party_site_list party_site_type;
3287: ap_payment_info_tab AP_PAYMENT_PUBLIC_PKG.Invoice_Payment_Info_Tab;
3288: ap_check_rec ap_checks_all%ROWTYPE;
3289: p_schd_tab pymt_sch_tab;
3290: BEGIN
3291: -- Group Invoices by Vendor , Vendor Site and Payment Currency .

Line 3507: l_applieddisc := AP_PAYMENT_PUBLIC_PKG.Get_Disc_For_Netted_Amt( ap_payment_info_tab(j).invoice_id,ap_payment_info_tab(j).payment_schedule_num,g_batch_details.settlement_date,l_amt_to_net);

3503: --Bug: 8548026
3504: IF( get_esd_flag(g_batch_details.batch_id)='Y' AND ap_payment_info_tab(j).amount_to_pay <> 0) THEN
3505: l_applieddisc := 0;
3506: IF (l_amt_to_net >0 AND amtDuetab(j) >= l_amt_to_net) OR (l_amt_to_net < 0 AND amtDuetab(j) <= l_amt_to_net) THEN
3507: l_applieddisc := AP_PAYMENT_PUBLIC_PKG.Get_Disc_For_Netted_Amt( ap_payment_info_tab(j).invoice_id,ap_payment_info_tab(j).payment_schedule_num,g_batch_details.settlement_date,l_amt_to_net);
3508: --Bug: 8543043.
3509: ap_payment_info_tab(j).amount_to_pay := l_amt_to_net;
3510: ELSE
3511: l_applieddisc := AP_PAYMENT_PUBLIC_PKG.Get_Disc_For_Pmt_Schedule( ap_payment_info_tab(j).invoice_id,ap_payment_info_tab(j).payment_schedule_num,g_batch_details.settlement_date);

Line 3511: l_applieddisc := AP_PAYMENT_PUBLIC_PKG.Get_Disc_For_Pmt_Schedule( ap_payment_info_tab(j).invoice_id,ap_payment_info_tab(j).payment_schedule_num,g_batch_details.settlement_date);

3507: l_applieddisc := AP_PAYMENT_PUBLIC_PKG.Get_Disc_For_Netted_Amt( ap_payment_info_tab(j).invoice_id,ap_payment_info_tab(j).payment_schedule_num,g_batch_details.settlement_date,l_amt_to_net);
3508: --Bug: 8543043.
3509: ap_payment_info_tab(j).amount_to_pay := l_amt_to_net;
3510: ELSE
3511: l_applieddisc := AP_PAYMENT_PUBLIC_PKG.Get_Disc_For_Pmt_Schedule( ap_payment_info_tab(j).invoice_id,ap_payment_info_tab(j).payment_schedule_num,g_batch_details.settlement_date);
3512: l_amt_to_net := l_amt_to_net - (amtDuetab(j) - l_applieddisc);
3513: ap_payment_info_tab(j).amount_to_pay := ap_payment_info_tab(j).amount_to_pay - l_applieddisc;
3514: END IF;
3515: ap_payment_info_tab(j).Discount_Taken := l_applieddisc;

Line 3519: AP_PAYMENT_PUBLIC_PKG.Create_Netting_Payment(

3515: ap_payment_info_tab(j).Discount_Taken := l_applieddisc;
3516: END IF;
3517: END LOOP;
3518: /* Call Payment API to create Check and Invoice Payments */
3519: AP_PAYMENT_PUBLIC_PKG.Create_Netting_Payment(
3520: P_Check_Rec => ap_check_rec,
3521: P_Invoice_Payment_Info_Tab => ap_payment_info_tab,
3522: P_Check_ID => l_check_id,
3523: P_Curr_Calling_Sequence => 'Netting Settlement Process',