[Home] [Help]
1: package body jai_cmn_reverse_charge_pkg AS
2: /* $Header: jai_cmn_reverse_charge_pkg.plb 120.1.12020000.4 2013/03/13 06:42:20 anupgupt noship $ */
3:
4: CURSOR c_rgm_repository_id(cp_source IN VARCHAR2,
5: cp_source_table_name IN VARCHAR2,
1: package body jai_cmn_reverse_charge_pkg AS
2: /* $Header: jai_cmn_reverse_charge_pkg.plb 120.1.12020000.4 2013/03/13 06:42:20 anupgupt noship $ */
3:
4: CURSOR c_rgm_repository_id(cp_source IN VARCHAR2,
5: cp_source_table_name IN VARCHAR2,
6: cp_source_document_id IN NUMBER,
166: AND a.invoice_id = aida.invoice_id
167: AND a.accounting_date < cp_start_date
168: AND nvl(b.future_pay_due_date, ld_today) <= ld_today
169: AND a.amount <> 0
170: AND jai_cmn_reverse_charge_pkg.is_rvs_chrg_liablity_dist(aida.invoice_distribution_id) = 'Y'
171: AND NOT EXISTS
172: (select 1
173: from jai_rgm_trx_records -- CHK is this required
174: where source = lv_source_reverse_charge
230: AND jrtr.SOURCE = jai_constants.source_ap
231: AND jrtr.invoice_id = ainvd.invoice_id
232: AND apinvp.invoice_id = ainvd.invoice_id
233: AND jrtr.line_id = ainvd.invoice_distribution_id
234: AND jai_cmn_reverse_charge_pkg.is_rvs_chrg_liablity_dist(ainvd.invoice_distribution_id) = 'Y'
235: ORDER BY invoice_payment_id, invoice_distribution_id;
236:
237: CURSOR c_previous_prepayment_app(cp_invoice_id IN NUMBER,
238: cp_start_date IN DATE) IS
252: jai_rgm_trx_refs jrtr
253: WHERE prepay.invoice_id = cp_invoice_id
254: AND ap_dist.invoice_id = prepay.invoice_id
255: AND prepay.line_type_lookup_code = jai_constants.prepay_line
256: AND jai_cmn_reverse_charge_pkg.is_rvs_chrg_liablity_dist(ap_dist.invoice_distribution_id) = 'Y'
257: AND prepay.accounting_date < cp_start_date
258: AND jrtr.SOURCE = jai_constants.source_ap
259: AND jrtr.invoice_id = ap_dist.invoice_id
260: AND jrtr.line_id = ap_dist.invoice_distribution_id
292: AND prepay.line_type_lookup_code = jai_constants.prepay_line
293: AND jrtr.SOURCE = jai_constants.source_ap
294: AND jrtr.invoice_id = ap_dist.invoice_id
295: AND jrtr.line_id = ap_dist.invoice_distribution_id
296: AND jai_cmn_reverse_charge_pkg.is_rvs_chrg_liablity_dist(ap_dist.invoice_distribution_id) = 'Y'
297: /* AND ((cp_start_date IS NULL AND
298: prepay.accounting_date < cp_till_date) OR
299: (cp_start_date IS NOT NULL AND
300: trunc(prepay.accounting_date) BETWEEN cp_start_date AND
1141:
1142: IF lv_process_flag = jai_constants.expected_error OR
1143: lv_process_flag = jai_constants.unexpected_error THEN
1144: fnd_file.put_line(fnd_file.log,
1145: '5.1 ERROR IN CALL TO jai_cmn_reverse_charge_pkg.process_charge_acct - lv_process_flag ' ||
1146: lv_process_flag || ', lv_process_message' ||
1147: lv_process_message);
1148: p_process_flag := lv_process_flag;
1149: p_process_message := lv_process_message;
1179: lv_process_flag = jai_constants.unexpected_error THEN
1180: p_process_flag := lv_process_flag;
1181: p_process_message := lv_process_message;
1182: fnd_file.put_line(fnd_file.log,
1183: 'error in call to jai_cmn_reverse_charge_pkg.process_charge_acct - lv_process_flag ' ||
1184: lv_process_flag || ', lv_process_message' ||
1185: lv_process_message);
1186: RETURN;
1187: END IF;
1219: REM ----------------------- ------ ------------------ ---------- ------------------------------------
1220: REM pn_distribution_id IN NUMBER Y AP distribution line id.
1221: REM
1222: REM CALLED BY
1223: REM cursors of jai_cmn_reverse_charge_pkg
1224: REM +=====================================================================================================+
1225: */
1226: FUNCTION is_reverse_charge_dist(pn_distribution_id IN NUMBER)
1227: RETURN VARCHAR2 IS
1268: REM ----------------------- ------ ------------------ ---------- ------------------------------------
1269: REM pn_distribution_id IN NUMBER Y AP distribution line id.
1270: REM
1271: REM CALLED BY
1272: REM cursors of jai_cmn_reverse_charge_pkg
1273: REM +=====================================================================================================+
1274: */
1275: FUNCTION is_rvs_chrg_liablity_dist(pn_distribution_id IN NUMBER)
1276: RETURN VARCHAR2 IS
1552: p_account_name => jai_constants.recovery
1553: );
1554:
1555:
1556: jai_cmn_reverse_charge_pkg.post_accounting(
1557: p_regime_code => lv_regime_code,
1558: p_tax_type => r_rec.tax_type,
1559: p_organization_type => lv_organization_type,
1560: p_organization_id => r_rec.organization_id,
1586: p_tax_type => r_rec.tax_type,
1587: p_account_name => 'REVERSE_CHARGE'
1588: );
1589:
1590: jai_cmn_reverse_charge_pkg.post_accounting(
1591: p_regime_code => lv_regime_code,
1592: p_tax_type => r_rec.tax_type,
1593: p_organization_type => lv_organization_type,
1594: p_organization_id => r_rec.organization_id,
1960: lv_service_type_code jai_rgm_trx_records.service_type_code%type;
1961: lv_repository_flag VARCHAR2(2);
1962: ln_discounted_amount number :=0 ;
1963: ln_reference_id NUMBER;
1964: lv_called_from varchar2(100) := 'jai_cmn_reverse_charge_pkg.process_settlement_repository';
1965: BEGIN
1966: FOR r_sel in c_settle loop
1967: FOR r_rec in c_rev_chg(r_sel.settlement_id) loop
1968: OPEN c_get_reference_id( r_rec.invoice_id,r_rec.invoice_line_id, r_rec.tax_id);
2029:
2030: IF lv_process_flag = jai_constants.expected_error OR
2031: lv_process_flag = jai_constants.unexpected_error THEN
2032: fnd_file.put_line( fnd_file.log,
2033: '5.1 ERROR IN CALL TO jai_cmn_reverse_charge_pkg.process_settlement_repository - lv_process_flag '||lv_process_flag
2034: ||', lv_process_message'||lv_process_message);
2035: p_process_flag := lv_process_flag;
2036: p_process_message := lv_process_message;
2037: END IF;
2045: p_process_message := 'Repository Error SQLCODE='||TO_CHAR(SQLCODE)||' SQLERRM=:'||SQLERRM;
2046: Fnd_file.put_line( fnd_file.log, p_process_message);
2047: END process_settlement_repository;
2048:
2049: end jai_cmn_reverse_charge_pkg;