[Home] [Help]
466:
467:
468: BEGIN
469:
470: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath,
471: 'jai_rcv_excise_processing_pkg.update_RTV_Diff_value', 'START');
472:
473:
474: lv_statement_id := '1';
471: 'jai_rcv_excise_processing_pkg.update_RTV_Diff_value', 'START');
472:
473:
474: lv_statement_id := '1';
475: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath);
476:
477: fnd_file.put_line(FND_FILE.LOG, ' Inside Update RTV Diff value ->statement id '
478: || lv_statement_id);
479: fnd_file.put_line(FND_FILE.LOG, ' source register ' || p_source_reg);
484: ELSE
485: lv_transaction_type := pr_tax.transaction_type;
486: END IF;
487: lv_statement_id := '2';
488: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath);
489: fnd_file.put_line(FND_FILE.LOG, ' Value of statement id ' || lv_statement_id);
490: jai_cmn_rg_pla_trxs_pkg.get_trxn_type_and_id(lv_transaction_type,
491: pr_base_trx.source_document_code,
492: ln_transaction_id);
490: jai_cmn_rg_pla_trxs_pkg.get_trxn_type_and_id(lv_transaction_type,
491: pr_base_trx.source_document_code,
492: ln_transaction_id);
493: lv_statement_id := '3';
494: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath);
495: FOR c_get_register_id IN
496: (SELECT register_id ,
497: cr_basic_ed,
498: cr_additional_ed,
511: AND transaction_source_num = ln_transaction_id
512: )
513: LOOP
514: lv_statement_id := '4';
515: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath);
516: fnd_file.put_line(FND_FILE.LOG, ' Value of statement id ' || lv_statement_id);
517: ln_register_id := c_get_register_id.register_id;
518: ln_dr_basic := c_get_register_id.dr_basic_ed;
519: ln_dr_addl := c_get_register_id.dr_additional_ed;
534: ln_dr_other||'--'||ln_other_tax_debit);
535: END LOOP ;
536:
537: lv_statement_id := '5';
538: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath);
539: fnd_file.put_line(FND_FILE.LOG, ' Value of statement id ' || lv_statement_id);
540:
541: lv_statement_id := '6';
542: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath);
538: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath);
539: fnd_file.put_line(FND_FILE.LOG, ' Value of statement id ' || lv_statement_id);
540:
541: lv_statement_id := '6';
542: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath);
543: fnd_file.put_line(FND_FILE.LOG, ' Value of statement id ' || lv_statement_id);
544:
545: lv_statement_id := '7';
546: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath);
542: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath);
543: fnd_file.put_line(FND_FILE.LOG, ' Value of statement id ' || lv_statement_id);
544:
545: lv_statement_id := '7';
546: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath);
547: fnd_file.put_line(FND_FILE.LOG, ' Value of statement id ' || lv_statement_id);
548: /* Set the value of credit and debit basic, additional and other */
549:
550: IF p_register_entry_type = CENVAT_DEBIT THEN
548: /* Set the value of credit and debit basic, additional and other */
549:
550: IF p_register_entry_type = CENVAT_DEBIT THEN
551: lv_statement_id := '8';
552: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath);
553: lv_upd_opening_bal_dr := ln_dr_basic + ln_dr_addl + ln_dr_other;
554: ln_dr_basic := ln_dr_basic+ pr_diff_tax.basic_excise;
555: ln_dr_addl := ln_dr_addl + pr_diff_tax.addl_excise + pr_diff_tax.cvd;
556: ln_dr_other := ln_dr_other + pr_diff_tax.other_excise;
594: P_PROCESS_STATUS => lv_process_status,
595: P_PROCESS_MESSAGE => lv_process_message
596: );
597: lv_statement_id := '9';
598: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath);
599: fnd_file.put_line(FND_FILE.LOG, ' Value of statement id ' || lv_statement_id);
600: ln_closing_balance := ln_opening_balance + ln_tr_amount;
601: ln_opening_balance := ln_opening_balance - (nvl(lv_upd_opening_bal_cr,0) - nvl(lv_upd_opening_bal_dr,0));
602:
602:
603: fnd_file.put_line(FND_FILE.LOG, 'Opening balance to be updated ' || ln_opening_balance);
604:
605: lv_statement_id := '10';
606: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath);
607: fnd_file.put_line(FND_FILE.LOG, ' Value of statement id ' || lv_statement_id);
608:
609: /* Update PLA with the latest difference amount to the existing amount */
610: JAI_CMN_RG_PLA_TRXS_PKG.update_row(
621: P_OTHER_TAX_CREDIT => ln_other_tax_credit,
622: P_OTHER_TAX_DEBIT => ln_other_tax_debit
623: );
624: lv_statement_id := '11';
625: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath);
626: fnd_file.put_line(FND_FILE.LOG, ' Value of statement id ' || lv_statement_id);
627: /* Update the balances with the latest amount*/
628:
629: jai_cmn_rg_balances_pkg.update_row(
637: );
638: p_register_id := ln_register_id;
639: /* If source register is RG23 part II */
640: ELSE
641: lv_register_type := jai_general_pkg.get_rg_register_type(pr_tax.item_class);
642: IF pr_tax.transaction_type = 'CORRECT' THEN
643: lv_transaction_type := pr_tax.parent_transaction_type;
644: ELSE
645: lv_transaction_type := pr_tax.transaction_type;
644: ELSE
645: lv_transaction_type := pr_tax.transaction_type;
646: END IF;
647: lv_statement_id := '2';
648: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath);
649: fnd_file.put_line(FND_FILE.LOG, ' Value of statement id ' || lv_statement_id);
650: jai_cmn_rg_23ac_ii_pkg.get_trxn_type_and_id(lv_transaction_type,
651: pr_base_trx.source_document_code,
652: ln_transaction_id);
650: jai_cmn_rg_23ac_ii_pkg.get_trxn_type_and_id(lv_transaction_type,
651: pr_base_trx.source_document_code,
652: ln_transaction_id);
653: lv_statement_id := '3';
654: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath);
655: FOR c_get_register_id IN
656: (SELECT register_id ,
657: cr_basic_ed,
658: cr_additional_ed,
693: ln_dr_other||'--'||ln_other_tax_debit);
694: END LOOP ;
695:
696: lv_statement_id := '5';
697: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath);
698: fnd_file.put_line(FND_FILE.LOG, ' Value of statement id ' || lv_statement_id);
699:
700:
701: lv_statement_id := '6';
698: fnd_file.put_line(FND_FILE.LOG, ' Value of statement id ' || lv_statement_id);
699:
700:
701: lv_statement_id := '6';
702: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath);
703: fnd_file.put_line(FND_FILE.LOG, ' Value of statement id ' || lv_statement_id);
704: /* Set the value of credit and debit basic, additional and other */
705: IF p_register_entry_type = CENVAT_DEBIT THEN
706: lv_statement_id := '7';
716: nvl(pr_diff_tax.addl_excise,0)+ nvl(pr_diff_tax.cvd,0) +
717: nvl(pr_diff_tax.other_excise,0);
718: ELSE
719: lv_statement_id := '8';
720: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath);
721: lv_upd_opening_bal_cr := ln_cr_basic + ln_cr_addl + ln_cr_other;
722: ln_cr_basic := ln_cr_basic + pr_diff_tax.basic_excise;
723: ln_cr_addl := ln_cr_addl + pr_diff_tax.addl_excise + pr_diff_tax.cvd;
724: ln_cr_other := ln_cr_other + pr_diff_tax.other_excise;
735:
736: ln_tr_amount := nvl(ln_reg_cr,0) - nvl(ln_reg_dr,0);
737:
738: lv_statement_id := '9';
739: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath);
740: fnd_file.put_line(FND_FILE.LOG, ' Value of statement id ' || lv_statement_id);
741:
742: /* Get the balance details */
743: jai_cmn_rg_balances_pkg.get_balance(
748: P_PROCESS_STATUS => lv_process_status,
749: P_PROCESS_MESSAGE => lv_process_message
750: );
751: lv_statement_id := '10';
752: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath);
753: fnd_file.put_line(FND_FILE.LOG, ' Value of statement id ' || lv_statement_id);
754: ln_closing_balance := ln_opening_balance + ln_tr_amount;
755: ln_opening_balance := ln_opening_balance - (nvl(lv_upd_opening_bal_cr,0) - nvl(lv_upd_opening_bal_dr,0));
756: fnd_file.put_line(FND_FILE.LOG, 'Opening balance to be updated ' || ln_opening_balance);
755: ln_opening_balance := ln_opening_balance - (nvl(lv_upd_opening_bal_cr,0) - nvl(lv_upd_opening_bal_dr,0));
756: fnd_file.put_line(FND_FILE.LOG, 'Opening balance to be updated ' || ln_opening_balance);
757:
758: lv_statement_id := '11';
759: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath);
760: fnd_file.put_line(FND_FILE.LOG, ' Value of statement id ' || lv_statement_id);
761:
762: /* Update RG 23 Part II with the latest difference amount to the existing amount */
763: jai_cmn_rg_23ac_ii_pkg.update_row(
777: p_process_status => lv_process_status,
778: p_process_message => lv_process_message
779: );
780: lv_statement_id := '12';
781: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath);
782: fnd_file.put_line(FND_FILE.LOG, ' Value of statement id ' || lv_statement_id);
783: /* Update the balances with the latest amount*/
784:
785: jai_cmn_rg_balances_pkg.update_row(
820: AND source_register_id = p_register_id
821: AND tax_type = jai_constants.tax_type_exc_edu_cess;
822: END IF; /* Excise cess*/
823:
824: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath);
825:
826: IF pr_diff_tax.cvd_edu_cess <> 0 THEN
827: IF p_register_entry_type = CENVAT_DEBIT THEN
828: ln_other_tax_debit := pr_diff_tax.cvd_edu_cess;
908: lv_process_status := 'E';
909: lv_process_message := 'EXC_PRC_PKG.update_RTV_Diff_value'||SQLERRM
910: ||', StmtId->'||lv_statement_id;
911: FND_FILE.put_line( FND_FILE.log, 'Error in '||lv_process_message);
912: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END');
913: END update_RTV_Diff_value;
914:
915: -- End for bug 5365346
916:
933: ||', Add CVD -> '|| pr_tax.addl_CVD
934: -- Date 30/10/2006 Bug 5228046 added by sacsethi
935: );
936:
937: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'cenvat_rg_pkg.do_cenvat_rounding', 'START');
938:
939: ln_total_cenvat := pr_tax.basic_excise +
940: pr_tax.addl_excise +
941: pr_tax.other_excise +
947: ln_rounded_amt := ln_total_cenvat - ln_total_cenvat_rounded;
948:
949: IF ln_rounded_amt <> 0 THEN
950:
951: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath);
952:
953: IF pr_tax.cvd <> 0 THEN
954: pr_tax.cvd := pr_tax.cvd - ln_rounded_amt;
955: ELSIF pr_tax.other_excise <> 0 THEN
973: );
974:
975: END IF;
976:
977: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath, null, 'END');
978: EXCEPTION
979: WHEN OTHERS THEN
980: pr_tax := null;
981: FND_MESSAGE.SET_NAME ('JA','JAI_EXCEPTION_OCCURED');
1263: FETCH cur_destination_type_code INTO lv_destination_type_code;
1264: CLOSE cur_destination_type_code;
1265:
1266: lv_statement_id := '0';
1267: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'cenvat_rg.process_trx', 'START'); /* 1 */
1268: FND_FILE.put_line( FND_FILE.log, '***** Start of jai_rcv_excise_processing_pkg.process_transaction. Time:'||to_char(SYSDATE, 'dd/mm/yyyy hh24:mi:ss') );
1269:
1270: lv_statement_id := '1';
1271: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
1267: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'cenvat_rg.process_trx', 'START'); /* 1 */
1268: FND_FILE.put_line( FND_FILE.log, '***** Start of jai_rcv_excise_processing_pkg.process_transaction. Time:'||to_char(SYSDATE, 'dd/mm/yyyy hh24:mi:ss') );
1269:
1270: lv_statement_id := '1';
1271: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
1272: OPEN c_trx(p_transaction_id);
1273: FETCH c_trx INTO r_trx;
1274: CLOSE c_trx;
1275:
1288: lv_transaction_type := r_trx.transaction_type;
1289: END IF;
1290:
1291: lv_statement_id := '2';
1292: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
1293:
1294: validate_transaction(
1295: p_transaction_id => p_transaction_id,
1296: p_validation_type => 'COMMON',
1311: lv_tax_breakup_type := 'MODVAT';
1312: END IF;
1313:
1314: lv_statement_id := '4';
1315: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
1316:
1317: -- ln_curr_conv_rate := r_trx.currency_conversion_rate;
1318: get_tax_amount_breakup(
1319: p_shipment_line_id => r_trx.shipment_line_id,
1354:
1355: -- Following is to calculate Tax Breakup Amount As Per Apportion Factor. This is calculated based on
1356: -- Transaction UOMs, Quantities of Parent RECEIVE and present trxn an
1357: lv_statement_id := '4a';
1358: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
1359:
1360: -- These variable are used for 2nd 50% Claim of RECEIVE Transaction of CGIN Items
1361:
1362: r_half_tax := get_apportioned_tax(r_tax, 0.5,null);/*uncommented by vkaranam and passed null to the p_claim_type parameter for bug 4704957*/
1387: OPEN c_orgn_info(r_trx.organization_id, r_trx.location_id);
1388: FETCH c_orgn_info INTO r_orgn_info;
1389: CLOSE c_orgn_info;
1390:
1391: lv_register_type := jai_general_pkg.get_rg_register_type( p_item_class => r_trx.item_class);
1392:
1393: lv_statement_id := '5';
1394: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
1395:
1390:
1391: lv_register_type := jai_general_pkg.get_rg_register_type( p_item_class => r_trx.item_class);
1392:
1393: lv_statement_id := '5';
1394: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
1395:
1396: /* Vijay Shankar for Bug#4346453. RCV DFF Elim. Enh.
1397: -- Excise Invoce Generation for Return to Vendor Transactions
1398: IF lv_transaction_type = 'RETURN TO VENDOR' THEN
1413: FND_FILE.put_line(FND_FILE.log, 'After ExciseInv Gen. ExInvNo:'||nvl(lv_excise_invoice_no, 'NULL') );
1414: end if;
1415:
1416: lv_statement_id := '6';
1417: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath);
1418: IF lv_excise_invoice_no IS NOT NULL THEN
1419: INSERT INTO JAI_RCV_RTV_DTLS(
1420: transaction_id, parent_transaction_id, shipment_line_id,
1421: excise_invoice_no, excise_invoice_date, rg_register_part_i,
1426: SYSDATE, FND_GLOBAL.user_id, SYSDATE, FND_GLOBAL.user_id, FND_GLOBAL.login_id
1427: );
1428:
1429: lv_statement_id := '7';
1430: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath);
1431: jai_rcv_transactions_pkg.update_excise_invoice_no(
1432: p_transaction_id => p_transaction_id,
1433: p_excise_invoice_no => lv_excise_invoice_no,
1434: p_excise_invoice_date => ld_excise_invoice_date
1474: -- and cenvat entries happen for DELIVER and RTR (code=2)cases only if subinventory is nonbonded
1475: -- 1. RECEIVE and RTV. We dont check for Subinventory for these transaction types
1476: -- 2. DELIVER and RTR. These were supported only if subinventory is non bonded or expense or non asset case
1477: lv_statement_id := '8';
1478: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
1479: IF lv_transaction_type IN ('RECEIVE', 'RETURN TO RECEIVING', 'DELIVER', 'RETURN TO VENDOR') THEN
1480:
1481: IF r_trx.organization_type = jai_rcv_trx_processing_pkg.MFG_ORGN THEN
1482:
1480:
1481: IF r_trx.organization_type = jai_rcv_trx_processing_pkg.MFG_ORGN THEN
1482:
1483: lv_statement_id := '9';
1484: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath); /* 11 */
1485:
1486: IF (r_base_trx.source_document_code = jai_rcv_trx_processing_pkg.source_rma -- 'India RMA Receipt'
1487: AND r_trx.item_class IN ('FGIN', 'FGEX', 'CCIN', 'CCEX'))
1488: /*Added by nprashar for bug 6710747 The following condition is added to support register update for Inter Org Transfer*/
1527:
1528: ELSIF r_trx.item_class IN ('RMIN', 'RMEX', 'CCIN', 'CCEX', 'CGIN', 'CGEX') THEN
1529:
1530: lv_statement_id := '10';
1531: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath); /* 12 */
1532:
1533: -- RG23 Part I Entry is already made during first Claim, in case of CGIN Items
1534: -- So no need of another entry during Second 50% Claim of CENVAT
1535: IF nvl(lv_cgin_code, 'XXX') <> 'REGULAR-HALF' THEN
1599:
1600: FND_FILE.put_line(FND_FILE.log, '<< Start 2nd 50% Claim of RECEIVE during RTV');
1601:
1602: lv_statement_id := '11';
1603: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath);
1604: ln_receive_trx_id := r_trx.tax_transaction_id;
1605:
1606: -- Pass an RG23 PartII Entry against Parent RECEIVE line to the tune of 50% of RTV Quantity
1607: rg23_part_ii_entry(
1647:
1648: END IF;
1649:
1650: lv_statement_id := '11a';
1651: p_codepath := jai_general_pkg.plot_codepath(14, p_codepath);
1652: -- Pass accounting for the remaining 50% Claim against Parent RECEIVE line to the tune of RTV Quantity.
1653: -- Full amount is passed here but half amount will be passed in accounting_entries procedure
1654: accounting_entries(
1655: p_transaction_id => r_trx.transaction_id,
1680: -- End PARENT Half Claim entry for RTV
1681: /*vkaranam for bug #4704957,end*/
1682:
1683: lv_statement_id := '11b';
1684: p_codepath := jai_general_pkg.plot_codepath(15, p_codepath); /* 15 */
1685: -- lv_cgin_code will have a value only in case of CGIN items wherein 1st 50% claim is 'REGULAR-FULL + REVERSAL-HALF'
1686: -- and 2nd 50% claim is done by 'REGULAR-HALF'
1687: IF lv_cgin_code IN ( 'REGULAR-FULL + REVERSAL-HALF', 'REGULAR-HALF') THEN
1688: ln_amount_factor := 0.5;
1696: -- following if condition modified by Vijay Shankar for RECEIPTS DEPLUG
1697: -- IF lv_transaction_type = 'RETURN TO VENDOR' AND r_orgn_info.pref_pla = 1 THEN
1698: IF lv_transaction_type = 'RETURN TO VENDOR' THEN
1699:
1700: p_codepath := jai_general_pkg.plot_codepath(16, p_codepath); /* 16 */
1701:
1702: derive_duty_registers(
1703: p_organization_id => r_trx.organization_id,
1704: p_location_id => r_trx.location_id,
1725: OR lv_cenvat_register_type IN (jai_constants.register_type_a, jai_constants.register_type_c)
1726: THEN
1727:
1728: lv_statement_id := '13';
1729: p_codepath := jai_general_pkg.plot_codepath(17, p_codepath);
1730:
1731: IF lv_transaction_type = 'RECEIVE' AND lv_cgin_code IS NOT NULL THEN
1732: -- 1st Claim
1733: IF nvl(p_cenvat_claimed_ptg, 0) = 0 THEN
1776:
1777: ELSIF lv_cenvat_register_type = jai_constants.register_type_pla THEN
1778:
1779: lv_statement_id := '13.2';
1780: p_codepath := jai_general_pkg.plot_codepath(17.1, p_codepath);
1781: pla_entry(
1782: p_transaction_id => p_transaction_id,
1783: pr_tax => get_apportioned_tax(r_tax,
1784: ln_amount_factor,
1800: END IF;
1801:
1802: ELSE
1803: lv_statement_id := '13.3';
1804: p_codepath := jai_general_pkg.plot_codepath(17.2, p_codepath);
1805: --p_process_status := 'E';
1806: lv_message := 'Duty Register cannot be derived';
1807: GOTO finish;
1808: END IF;
1810: /* END - DUTY REGISTER HITTING LOGIC */
1811:
1812: /* START - ACCOUNTING LOGIC */
1813: lv_statement_id := '13a';
1814: p_codepath := jai_general_pkg.plot_codepath(18, p_codepath); /* 18 */
1815:
1816: fnd_file.put_line(FND_FILE.LOG, '
1817:
1818: /* Added for bug #13362352 */
1850: -- IF r_trx.item_class IN ('FGIN', 'FGEX') THEN
1851: -- right now i am assuming that we need not pass any accouting entries. however we need to pass rg23d entry
1852:
1853: lv_statement_id := '15';
1854: p_codepath := jai_general_pkg.plot_codepath(20, p_codepath); /* 20 */
1855: rg23_d_entry(
1856: p_transaction_id => p_transaction_id,
1857: pr_tax => r_tax,
1858: p_register_entry_type => lv_register_entry_type,
1871: GOTO finish;
1872: END IF;
1873:
1874: lv_statement_id := '16';
1875: p_codepath := jai_general_pkg.plot_codepath(21, p_codepath); /* 21 */
1876: -- there is no part II entry for TRADING transactions
1877: IF lv_transaction_type IN ('RECEIVE', 'RETURN TO VENDOR') AND r_trx.excise_in_trading = 'Y' THEN
1878:
1879: lb_process_iso := jai_rcv_trx_processing_pkg.process_iso_transaction(
1891: AND r_base_trx.source_document_code <> jai_rcv_trx_processing_pkg.source_rma /*srjayara for bug#5155138 - change done for base bug 5110511 + DFF Elimination*/
1892:
1893: THEN
1894:
1895: p_codepath := jai_general_pkg.plot_codepath(21.2, p_codepath);
1896: accounting_entries(
1897: p_transaction_id => r_trx.transaction_id,
1898: pr_tax => r_tax,
1899: p_cgin_code => NULL, -- lv_cgin_code can be null as this is trading organization
1912:
1913: END IF;
1914:
1915: ELSE
1916: p_codepath := jai_general_pkg.plot_codepath(21.5, p_codepath);
1917: lv_message := 'Organization Type Not supported';
1918: GOTO finish;
1919: END IF;
1920:
1923: END IF;
1924:
1925: ELSE
1926: lv_statement_id := '18';
1927: p_codepath := jai_general_pkg.plot_codepath(22, p_codepath); /* 22 */
1928: lv_message := 'Transaction Type Not supported';
1929: GOTO finish;
1930: END IF;
1931:
1929: GOTO finish;
1930: END IF;
1931:
1932: lv_statement_id := '19';
1933: p_codepath := jai_general_pkg.plot_codepath(23, p_codepath); /* 23 */
1934: -- Updation of RG Part1 Registers with Payment Register, Register_Id_Part_II, ChargeAccountId
1935: update_registers(
1936: p_quantity_register_id => ln_part_i_register_id,
1937: p_quantity_register => lv_part_i_register,
1945: );
1946:
1947: IF lv_transaction_type = 'RETURN TO VENDOR' AND ln_part_i_register_id IS NOT NULL THEN
1948: lv_statement_id := '20';
1949: p_codepath := jai_general_pkg.plot_codepath(24, p_codepath); /* 24 */
1950: UPDATE JAI_RCV_RTV_DTLS
1951: SET rg_register_part_i = ln_part_i_register_id
1952: WHERE transaction_id = p_transaction_id;
1953: END IF;
1990: p_process_status := 'Y';
1991:
1992: <
1993: IF lv_message IS NOT NULL THEN
1994: p_codepath := jai_general_pkg.plot_codepath(25, p_codepath); /* 25 */
1995:
1996: FND_FILE.put_line(FND_FILE.log, 'CENVAT_RG_PKG.process_trxn:'||lv_message||', StatementId:'||lv_statement_id);
1997: p_process_status := 'E';
1998: p_process_message := 'CENVAT_RG_PKG.process_trxn:'||lv_message||', StatementId:'||lv_statement_id;
1997: p_process_status := 'E';
1998: p_process_message := 'CENVAT_RG_PKG.process_trxn:'||lv_message||', StatementId:'||lv_statement_id;
1999: END IF;
2000:
2001: p_codepath := jai_general_pkg.plot_codepath(26, p_codepath, null, 'END'); /* 26 */
2002: FND_FILE.put_line( FND_FILE.log, '----- END, jai_rcv_excise_processing_pkg.process_transaction. Time:'||to_char(SYSDATE, 'dd/mm/yyyy hh24:mi:ss') );
2003:
2004: EXCEPTION
2005: WHEN OTHERS THEN
2005: WHEN OTHERS THEN
2006: p_process_status := 'E';
2007: p_process_message := 'CENVAT_RG_PKG.process_transaction->'||SQLERRM||', StmtId->'||lv_statement_id;
2008: FND_FILE.put_line( FND_FILE.log, 'Error in '||p_process_message);
2009: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END');
2010:
2011: END process_transaction;
2012:
2013: -- this procedure to be called only for RMA case of FGIN, FGEX, CCIN, CCEX
2079: );
2080: end if;
2081:
2082: lv_statement_id := '1';
2083: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'cenvat_rg.rg_i_entry', 'START'); /* 1 */
2084:
2085: OPEN c_trx(p_transaction_id);
2086: FETCH c_trx INTO r_trx;
2087: CLOSE c_trx;
2086: FETCH c_trx INTO r_trx;
2087: CLOSE c_trx;
2088:
2089: lv_statement_id := '2';
2090: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
2091: OPEN c_base_trx(p_transaction_id);
2092: FETCH c_base_trx INTO r_base_trx;
2093: CLOSE c_base_trx;
2094:
2096: ln_customer_site_id := r_base_trx.customer_site_id;
2097:
2098: IF r_base_trx.source_document_code = 'REQ' THEN
2099: lv_statement_id := '4';
2100: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
2101: OPEN c_source_orgn_loc( r_base_trx.shipment_header_id, r_base_trx.requisition_line_id);
2102: FETCH c_source_orgn_loc INTO ln_vendor_id, ln_vendor_site_id;
2103: CLOSE c_source_orgn_loc;
2104:
2106: ln_vendor_site_id := -ln_vendor_site_id;
2107:
2108: ELSE
2109: lv_statement_id := '5';
2110: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
2111:
2112: get_changed_vendor_dtls(
2113: p_receive_trx_id => r_trx.tax_transaction_id,
2114: p_shipment_line_id => r_trx.shipment_line_id,
2137: END IF;
2138: END IF;
2139:
2140: lv_statement_id := '61';
2141: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
2142: jai_general_pkg.get_range_division(
2143: p_vendor_id => ln_vendor_id,
2144: p_vendor_site_id => ln_vendor_site_id,
2145: p_range_no => lv_range,
2138: END IF;
2139:
2140: lv_statement_id := '61';
2141: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
2142: jai_general_pkg.get_range_division(
2143: p_vendor_id => ln_vendor_id,
2144: p_vendor_site_id => ln_vendor_site_id,
2145: p_range_no => lv_range,
2146: p_division_no => lv_division
2149: lv_excise_invoice_no := r_trx.excise_invoice_no;
2150: ld_excise_invoice_date := r_trx.excise_invoice_date;
2151:
2152: lv_statement_id := '7';
2153: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
2154: -- Vijay Shankar for Bug#4346453. RCV DFF Elim. Enh. IF r_base_trx.attr_cat = 'India RMA Receipt' THEN
2155: IF r_base_trx.source_document_code = jai_rcv_trx_processing_pkg.source_rma then -- 'India RMA Receipt' THEN
2156: lv_transaction_type := 'CR';
2157: ELSE
2162: ln_entry_type := -1;
2163: END IF;
2164:
2165: lv_statement_id := '8';
2166: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
2167: ln_quantity := r_trx.quantity * ln_entry_type;
2168: ln_basic_ed := pr_tax.basic_excise * ln_entry_type;
2169: ln_additional_ed := (pr_tax.addl_excise + pr_tax.cvd) * ln_entry_type;
2170: ln_other_ed := pr_tax.other_excise * ln_entry_type;
2192: FND_FILE.put_line(FND_FILE.log,'Before call to RG1. ExDutyAmt:'||ln_excise_duty_amount);
2193: end if;
2194:
2195: lv_statement_id := '9';
2196: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
2197: jai_cmn_rg_i_trxs_pkg.create_rg1_entry(
2198: p_register_id => p_register_id,
2199: p_register_id_part_ii => null,
2200: p_fin_year => jai_general_pkg.get_fin_year(p_organization_id => r_trx.organization_id),
2196: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
2197: jai_cmn_rg_i_trxs_pkg.create_rg1_entry(
2198: p_register_id => p_register_id,
2199: p_register_id_part_ii => null,
2200: p_fin_year => jai_general_pkg.get_fin_year(p_organization_id => r_trx.organization_id),
2201: p_slno => lv_slno,
2202: p_transaction_id => null,
2203: p_organization_id => r_trx.organization_id,
2204: p_location_id => r_trx.location_id,
2250:
2251: /*bgowrava for forward porting Bug#5756676..end*/
2252:
2253:
2254: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath, null, 'END'); /* 9 */
2255:
2256: EXCEPTION
2257: WHEN OTHERS THEN
2258: p_process_status := 'E';
2257: WHEN OTHERS THEN
2258: p_process_status := 'E';
2259: p_process_message := 'CENVAT_RG_PKG.rg_i_entry->'||SQLERRM||', StmtId->'||lv_statement_id;
2260: FND_FILE.put_line( FND_FILE.log, 'Error in '||p_process_message);
2261: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END');
2262:
2263: END rg_i_entry;
2264:
2265: PROCEDURE rg23_part_i_entry(
2319: );
2320: end if;
2321:
2322: lv_statement_id := '1';
2323: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'cenvat_rg.23_part_i', 'START'); /* 1 */
2324: OPEN c_trx(p_transaction_id);
2325: FETCH c_trx INTO r_trx;
2326: CLOSE c_trx;
2327:
2332: --end bug#9854329
2333:
2334:
2335: lv_statement_id := '2';
2336: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
2337:
2338: OPEN c_base_trx(p_transaction_id);
2339: FETCH c_base_trx INTO r_base_trx;
2340: CLOSE c_base_trx;
2342: ln_customer_id := r_base_trx.customer_id;
2343: ln_customer_site_id := r_base_trx.customer_site_id;
2344:
2345: lv_statement_id := '3';
2346: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
2347: IF r_base_trx.po_header_id IS NOT NULL THEN
2348: OPEN c_po_header(r_base_trx.po_header_id);
2349: FETCH c_po_header INTO r_po_header;
2350: CLOSE c_po_header;
2351: END IF;
2352:
2353: IF r_base_trx.source_document_code = 'REQ' THEN
2354: lv_statement_id := '4';
2355: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
2356: OPEN c_source_orgn_loc( r_base_trx.shipment_header_id, r_base_trx.requisition_line_id);
2357: FETCH c_source_orgn_loc INTO ln_vendor_id, ln_vendor_site_id;
2358: CLOSE c_source_orgn_loc;
2359:
2361: ln_vendor_site_id := -ln_vendor_site_id;
2362:
2363: ELSE
2364: lv_statement_id := '5';
2365: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
2366:
2367: -- Vijay Shankar for Bug#3940588
2368: get_changed_vendor_dtls(
2369: p_receive_trx_id => r_trx.tax_transaction_id,
2406: lv_excise_invoice_no := r_trx.excise_invoice_no;
2407: ld_excise_invoice_date := r_trx.excise_invoice_date;
2408:
2409: lv_statement_id := '6';
2410: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
2411: ln_quantity := r_trx.quantity * ln_entry_type;
2412: ln_basic_ed := pr_tax.basic_excise * ln_entry_type;
2413: --added for bug#9854329,start
2414: IF (r_base_trx.transaction_type = 'RETURN TO VENDOR' AND
2428: FND_FILE.put_line(FND_FILE.log,'Before call to jai_cmn_rg_23ac_i_trxs_pkg.insert_row');
2429: end if;
2430:
2431: lv_statement_id := '7';
2432: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
2433: jai_cmn_rg_23ac_i_trxs_pkg.insert_row(
2434: p_register_id => p_register_id,
2435: p_inventory_item_id => r_trx.inventory_item_id,
2436: p_organization_id => r_trx.organization_id,
2456: p_excise_invoice_date => ld_excise_invoice_date,
2457: p_oth_receipt_quantity => NULL,
2458: p_oth_receipt_id => NULL,
2459: p_oth_receipt_date => NULL,
2460: p_register_type => jai_general_pkg.get_rg_register_type(p_item_class => r_trx.item_class),
2461: p_identification_no => NULL,
2462: p_identification_mark => NULL,
2463: p_brand_name => NULL,
2464: p_date_of_verification => NULL,
2494: FND_FILE.put_line(FND_FILE.log, 'Updating quantity register flag to Y');
2495:
2496: /*bgowrava for forward porting Bug#5756676..end*/
2497:
2498: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath, null, 'END'); /* 8 */
2499:
2500: EXCEPTION
2501: WHEN OTHERS THEN
2502: p_process_status := 'E';
2501: WHEN OTHERS THEN
2502: p_process_status := 'E';
2503: p_process_message := 'CENVAT_RG_PKG.rg23_part_i_entry->'||SQLERRM||', StmtId->'||lv_statement_id;
2504: FND_FILE.put_line( FND_FILE.log, 'Error in '||p_process_message);
2505: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END');
2506:
2507: END rg23_part_i_entry;
2508:
2509: PROCEDURE rg23_d_entry(
2587: );
2588: end if;
2589:
2590: lv_statement_id := '1';
2591: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'cenvat_rg.23_d', 'START'); /* 1 */
2592: OPEN c_trx(p_transaction_id);
2593: FETCH c_trx INTO r_trx;
2594: CLOSE c_trx;
2595:
2593: FETCH c_trx INTO r_trx;
2594: CLOSE c_trx;
2595:
2596: lv_statement_id := '2';
2597: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
2598: OPEN c_base_trx(p_transaction_id);
2599: FETCH c_base_trx INTO r_base_trx;
2600: CLOSE c_base_trx;
2601:
2603: ln_customer_site_id := r_base_trx.customer_site_id;
2604:
2605: IF r_base_trx.source_document_code = 'REQ' THEN
2606: lv_statement_id := '3';
2607: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
2608: OPEN c_source_orgn_loc( r_base_trx.shipment_header_id, r_base_trx.requisition_line_id);
2609: FETCH c_source_orgn_loc INTO ln_vendor_id, ln_vendor_site_id;
2610: CLOSE c_source_orgn_loc;
2611:
2627: END IF;
2628:
2629: IF r_base_trx.source_document_code = 'RMA' THEN
2630: lv_statement_id := '4';
2631: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
2632: OPEN c_rma_tax_rate(r_base_trx.oe_order_line_id);
2633: FETCH c_rma_tax_rate INTO ln_excise_duty_rate;
2634: CLOSE c_rma_tax_rate;
2635:
2647: END IF;
2648:
2649: ELSE
2650: lv_statement_id := '4.1';
2651: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
2652: OPEN c_tax_rate(r_trx.shipment_line_id);
2653: FETCH c_tax_rate INTO ln_excise_duty_rate;
2654: CLOSE c_tax_rate;
2655: END IF;
2654: CLOSE c_tax_rate;
2655: END IF;
2656:
2657: lv_statement_id := '5';
2658: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
2659: lv_transaction_uom_code := r_trx.uom_code;
2660:
2661: IF p_register_entry_type = CENVAT_DEBIT THEN
2662: ln_entry_type := -1;
2693: FND_FILE.put_line(FND_FILE.log,'Calling jai_cmn_rg_23d_trxs_pkg.insert_row');
2694: end if;
2695:
2696: lv_statement_id := '6';
2697: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
2698: jai_cmn_rg_23d_trxs_pkg.insert_row(
2699: p_register_id => p_register_id,
2700: p_organization_id => r_trx.organization_id,
2701: p_location_id => r_trx.location_id,
2713: p_register_code => NULL,
2714: p_released_date => NULL,
2715: p_comm_invoice_no => lv_excise_invoice_no,
2716: p_comm_invoice_date => ld_excise_invoice_date,
2717: p_receipt_boe_num => jai_general_pkg.get_matched_boe_no(p_transaction_id),
2718: p_oth_receipt_id => NULL,
2719: p_oth_receipt_date => NULL,
2720: p_oth_receipt_quantity => NULL,
2721: p_remarks => 'Live-Trx/PrntTrx:'||r_trx.transaction_id||'/'||r_trx.parent_transaction_id,
2759: p_process_status => p_process_status,
2760: p_process_message => p_process_message
2761: );
2762:
2763: p_codepath := jai_general_pkg.plot_codepath(7.1, p_codepath);
2764: lv_statement_id := '6.1';
2765: -- Vijay Shankar for Bug#3940588 EDUCATION CESS
2766: IF pr_tax.excise_edu_cess <> 0 THEN
2767: IF p_register_entry_type = CENVAT_DEBIT THEN
2780: );
2781: END IF;
2782:
2783: lv_statement_id := '6.2';
2784: p_codepath := jai_general_pkg.plot_codepath(7.2, p_codepath);
2785:
2786: IF pr_tax.cvd_edu_cess <> 0 THEN
2787: IF p_register_entry_type = CENVAT_DEBIT THEN
2788: ln_other_tax_debit := pr_tax.cvd_edu_cess;
2801: END IF;
2802: /*added the following by vkaranam for budget 07 impact - bug#5989740*/
2803: --start
2804: lv_statement_id := '6.3';
2805: p_codepath := jai_general_pkg.plot_codepath(7.3, p_codepath);
2806:
2807: IF pr_tax.sh_exc_edu_cess <> 0 THEN
2808: IF p_register_entry_type = CENVAT_DEBIT THEN
2809: ln_other_tax_debit := pr_tax.sh_exc_edu_cess;
2822: );
2823: END IF;
2824:
2825: lv_statement_id := '6.4';
2826: p_codepath := jai_general_pkg.plot_codepath(7.4, p_codepath);
2827:
2828: IF pr_tax.sh_cvd_edu_cess <> 0 THEN
2829: IF p_register_entry_type = CENVAT_DEBIT THEN
2830: ln_other_tax_debit := pr_tax.sh_cvd_edu_cess;
2844: --end bug#5989740
2845:
2846:
2847: lv_statement_id := '6.5';
2848: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
2849:
2850: -- following code to update parent RG23D entry with transaction qty
2851: IF lv_transaction_type = 'RETURN TO VENDOR' OR ln_quantity_received < 0 THEN
2852: FND_FILE.put_line(FND_FILE.log, 'To Update Qty_To_Adjust field of RG23D Table' );
2851: IF lv_transaction_type = 'RETURN TO VENDOR' OR ln_quantity_received < 0 THEN
2852: FND_FILE.put_line(FND_FILE.log, 'To Update Qty_To_Adjust field of RG23D Table' );
2853:
2854: lv_statement_id := '7';
2855: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
2856: ln_quantity_received := nvl(r_base_trx.primary_quantity, r_base_trx.quantity);
2857:
2858: -- this is to reduce main RG23D entry of RECEIVE transaction incase of -ve RECEIVE Correction
2859: IF lv_transaction_type = 'RECEIVE' THEN
2866: p_required_trx_type => 'RECEIVE'
2867: );
2868:
2869: lv_statement_id := '8';
2870: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
2871: OPEN c_parent_register_id(ln_ancestor_trxn_id, 18);
2872: FETCH c_parent_register_id INTO ln_ancestor_reg_id;
2873: CLOSE c_parent_register_id;
2874:
2876: FND_FILE.put_line(FND_FILE.log,'Calling jai_cmn_rg_23d_trxs_pkg.update_qty_to_adjust');
2877: end if;
2878:
2879: lv_statement_id := '9';
2880: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath); /* 11 */
2881: jai_cmn_rg_23d_trxs_pkg.update_qty_to_adjust(
2882: p_register_id => ln_ancestor_reg_id,
2883: p_quantity => ln_quantity_received ,
2884: p_simulate_flag => p_simulate_flag,
2887: );
2888:
2889: END IF;
2890:
2891: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath, null, 'END'); /* 12 */
2892:
2893: EXCEPTION
2894: WHEN OTHERS THEN
2895: p_process_status := 'E';
2894: WHEN OTHERS THEN
2895: p_process_status := 'E';
2896: p_process_message := 'CENVAT_RG_PKG.rg23_d_entry->'||SQLERRM||', StmtId->'||lv_statement_id;
2897: FND_FILE.put_line( FND_FILE.log, 'Error in '||p_process_message);
2898: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END');
2899:
2900: END rg23_d_entry;
2901:
2902: PROCEDURE rg23_part_ii_entry(
2969: );
2970: end if;
2971:
2972: lv_statement_id := '1';
2973: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'cenvat_rg.23_part_ii', 'START'); /* 1 */
2974: OPEN c_trx(p_transaction_id);
2975: FETCH c_trx INTO r_trx;
2976: CLOSE c_trx;
2977:
2975: FETCH c_trx INTO r_trx;
2976: CLOSE c_trx;
2977:
2978: lv_statement_id := '2';
2979: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
2980: OPEN c_base_trx(p_transaction_id);
2981: FETCH c_base_trx INTO r_base_trx;
2982: CLOSE c_base_trx;
2983:
2991: ln_customer_site_id := r_base_trx.customer_site_id;
2992:
2993: IF r_base_trx.source_document_code = 'REQ' THEN
2994: lv_statement_id := '3';
2995: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
2996: OPEN c_source_orgn_loc( r_base_trx.shipment_header_id, r_base_trx.requisition_line_id);
2997: FETCH c_source_orgn_loc INTO ln_vendor_id, ln_vendor_site_id;
2998: CLOSE c_source_orgn_loc;
2999:
3079: ld_excise_invoice_date := r_trx.excise_invoice_date;
3080: END IF;
3081:
3082: lv_statement_id := '4';
3083: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
3084: IF p_register_entry_type = CENVAT_DEBIT THEN
3085: ln_dr_basic := pr_tax.basic_excise;
3086: -- ln_dr_addl := pr_tax.addl_excise + pr_tax.cvd; 9854329
3087: ln_dr_other := pr_tax.other_excise;
3109: if lb_rg_debug then
3110: FND_FILE.put_line(FND_FILE.log,'Calling jai_cmn_rg_23ac_ii_pkg.insert_row');
3111: end if;
3112:
3113: lv_register_type := jai_general_pkg.get_rg_register_type(r_trx.item_class);
3114: if lv_register_type = jai_constants.register_type_a then
3115: lv_source_register := jai_constants.reg_rg23a_2;
3116: else
3117: lv_source_register := jai_constants.reg_rg23c_2;
3117: lv_source_register := jai_constants.reg_rg23c_2;
3118: end if;
3119:
3120: lv_statement_id := '5';
3121: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
3122: jai_cmn_rg_23ac_ii_pkg.insert_row(
3123: p_register_id => p_register_id,
3124: p_inventory_item_id => r_trx.inventory_item_id,
3125: p_organization_id => r_trx.organization_id,
3156: p_process_status => p_process_status,
3157: p_process_message => p_process_message
3158: );
3159:
3160: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath);
3161:
3162: -- Vijay Shankar for Bug#3940588 EDUCATION CESS
3163: IF pr_tax.excise_edu_cess <> 0 THEN
3164: IF p_register_entry_type = CENVAT_DEBIT THEN
3176: p_process_message => p_process_message
3177: );
3178: END IF;
3179:
3180: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath);
3181:
3182: IF pr_tax.cvd_edu_cess <> 0 THEN
3183: IF p_register_entry_type = CENVAT_DEBIT THEN
3184: --added for bug#9854329, start
3220: p_process_message => p_process_message
3221: );
3222: END IF;
3223:
3224: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath);
3225:
3226: IF pr_tax.sh_cvd_edu_cess <> 0 THEN
3227: IF p_register_entry_type = CENVAT_DEBIT THEN
3228: --added for bug#9854329, start
3247: END IF;
3248:
3249: -- END,Bgowrava for Bug#6071509
3250:
3251: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath, null, 'END');
3252:
3253: EXCEPTION
3254: WHEN OTHERS THEN
3255: p_process_status := 'E';
3254: WHEN OTHERS THEN
3255: p_process_status := 'E';
3256: p_process_message := 'CENVAT_RG_PKG.rg23_part_ii_entry->'||SQLERRM||', StmtId->'||lv_statement_id;
3257: FND_FILE.put_line( FND_FILE.log, 'Error in '||p_process_message);
3258: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END');
3259:
3260: END rg23_part_ii_entry;
3261:
3262: PROCEDURE pla_entry(
3313: FND_FILE.put_line(FND_FILE.log,'^ PLA_Entry');
3314: end if;
3315:
3316: lv_statement_id := '1';
3317: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'cenvat_rg.pla', 'START'); /* 1 */
3318: OPEN c_trx(p_transaction_id);
3319: FETCH c_trx INTO r_trx;
3320: CLOSE c_trx;
3321:
3325: close get_rev_flag;
3326: --end bug#9854329
3327:
3328: lv_statement_id := '2';
3329: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
3330: OPEN c_base_trx(p_transaction_id);
3331: FETCH c_base_trx INTO r_base_trx;
3332: CLOSE c_base_trx;
3333:
3332: CLOSE c_base_trx;
3333:
3334: IF r_base_trx.source_document_code = 'REQ' THEN
3335: lv_statement_id := '3';
3336: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
3337:
3338: OPEN c_source_orgn_loc( r_base_trx.shipment_header_id, r_base_trx.requisition_line_id);
3339: FETCH c_source_orgn_loc INTO ln_vendor_id, ln_vendor_site_id;
3340: CLOSE c_source_orgn_loc;
3366: lv_excise_invoice_no := r_trx.excise_invoice_no;
3367: ld_excise_invoice_date := r_trx.excise_invoice_date;
3368:
3369: lv_statement_id := '4';
3370: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
3371: IF p_register_entry_type = CENVAT_DEBIT THEN
3372: ln_dr_basic := pr_tax.basic_excise;
3373: -- ln_dr_addl := pr_tax.addl_excise + pr_tax.cvd; 9854329
3374: ln_dr_other := pr_tax.other_excise;
3392: FND_FILE.put_line(FND_FILE.log,'Calling jai_cmn_rg_pla_trxs_pkg.insert_row');
3393: end if;
3394:
3395: lv_statement_id := '5';
3396: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
3397: jai_cmn_rg_pla_trxs_pkg.insert_row(
3398: p_register_id => p_register_id,
3399: p_tr6_challan_no => NULL,
3400: p_tr6_challan_date => NULL,
3429: p_process_status => p_process_status,
3430: p_process_message => p_process_message
3431: );
3432:
3433: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath);
3434:
3435: -- Vijay Shankar for Bug#3940588 EDUCATION CESS
3436: IF pr_tax.excise_edu_cess <> 0 THEN
3437: IF p_register_entry_type = CENVAT_DEBIT THEN
3449: p_process_message => p_process_message
3450: );
3451: END IF;
3452:
3453: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath);
3454:
3455: IF pr_tax.cvd_edu_cess <> 0 THEN
3456: IF p_register_entry_type = CENVAT_DEBIT THEN
3457: -- added by vkaranam for bug#9854329, start
3476: END IF;
3477:
3478: /*added the following by vkaranam for budget 07 impact - bug#5989740*/
3479: --start
3480: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath);
3481: IF pr_tax.sh_exc_edu_cess <> 0 THEN
3482: IF p_register_entry_type = CENVAT_DEBIT THEN
3483: ln_other_tax_debit := nvl(pr_tax.sh_exc_edu_cess,0);
3484: ELSE
3495: p_process_message => p_process_message
3496: );
3497: END IF;
3498:
3499: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath);
3500:
3501: IF pr_tax.sh_cvd_edu_cess <> 0 THEN
3502: IF p_register_entry_type = CENVAT_DEBIT THEN
3503: -- added by vkaranam for bug#9854329, start
3523: --end #5989740
3524:
3525:
3526:
3527: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath, NULL, 'END'); /* 6 */
3528:
3529: EXCEPTION
3530: WHEN OTHERS THEN
3531: p_process_status := 'E';
3530: WHEN OTHERS THEN
3531: p_process_status := 'E';
3532: p_process_message := 'CENVAT_RG_PKG.pla_entry->'||SQLERRM||', StmtId->'||lv_statement_id;
3533: FND_FILE.put_line( FND_FILE.log, 'Error in '||p_process_message);
3534: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END');
3535:
3536: END pla_entry;
3537:
3538: /*~~~~~~~~~~~~~~~~~~~ ACCOUNTING_ENTRIES Main Procedure for Accounting ~~~~~~~~~~~~~~~~~~~~~*/
3643:
3644: fnd_file.put_line(FND_FILE.LOG, '
3646: lv_statement_id := '1';
3647: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'cenvat_rg.accounting', 'START'); /* 1 */
3648: OPEN c_trx(p_transaction_id);
3649: FETCH c_trx INTO r_trx;
3650: CLOSE c_trx;
3651: --start additions for bug#9854329
3654: close get_rev_flag;
3655: --end bug#9854329
3656:
3657: lv_statement_id := '2';
3658: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
3659:
3660: fnd_file.put_line(FND_FILE.LOG, '
3662: lv_reference10 := 'India Local Cenvat Entries for Receipt:' || r_trx.receipt_num ||'. Transaction Type '||r_trx.transaction_type;
3664: lv_reference10 := lv_reference10 || ' of '||r_trx.parent_transaction_type;
3665: end if;
3666:
3667: lv_statement_id := '3';
3668: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
3669: IF( NVL(r_trx.cenvat_claimed_ptg, 0) = 100 AND pv_retro_reference IS NULL ) THEN--Added by eric on Jan 18,2008 for retro
3670: p_process_status := 'E';
3671: p_process_message := 'Cenvat was fully claimed already. No more claims can happen';
3672: GOTO end_of_accounting;
3678: FETCH c_base_trx INTO r_base_trx;
3679: CLOSE c_base_trx;
3680:
3681: lv_statement_id := '4';
3682: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
3683:
3684: fnd_file.put_line(FND_FILE.LOG, '
3686: IF r_trx.transaction_type = 'CORRECT' THEN
3688: ELSE
3689: lv_transaction_type := r_trx.transaction_type;
3690: END IF;
3691:
3692: lv_register_type := jai_general_pkg.get_rg_register_type(r_trx.item_class);
3693:
3694: -- following cenvat_claimed_ptg corresponds to RECEIVE i.e parent of any other type of transaction
3695: -- ln_cenvat_claimed_ptg := get_receive_claimed_ptg(p_transaction_id, r_trx.shipment_line_id);
3696:
3694: -- following cenvat_claimed_ptg corresponds to RECEIVE i.e parent of any other type of transaction
3695: -- ln_cenvat_claimed_ptg := get_receive_claimed_ptg(p_transaction_id, r_trx.shipment_line_id);
3696:
3697: lv_statement_id := '5';
3698: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
3699: OPEN c_orgn_info(r_trx.organization_id, r_trx.location_id);
3700: FETCH c_orgn_info INTO r_orgn_info;
3701: CLOSE c_orgn_info;
3702:
3709:
3710: fnd_file.put_line(FND_FILE.LOG, '
3712: lv_statement_id := '5a';
3713: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
3714: IF r_trx.organization_type = 'M' THEN
3715: lv_statement_id := '6';
3716: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
3717: lv_accnt_nature := 'CENVAT';
3712: lv_statement_id := '5a';
3713: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
3714: IF r_trx.organization_type = 'M' THEN
3715: lv_statement_id := '6';
3716: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
3717: lv_accnt_nature := 'CENVAT';
3718: -- Vijay Shankar for Bug#4346453. RCV DFF Elim. Enh. IF r_base_trx.attr_cat = 'India RMA Receipt' THEN
3719: IF r_base_trx.source_document_code = jai_rcv_trx_processing_pkg.source_rma then
3720: ln_receiving_accnt_id := r_orgn_info.excise_rcvble_account; /* In front end this is shown as excise Paid Payable Accnt */
3789:
3790: --added for bug#9854329, end
3791:
3792: lv_statement_id := '7';
3793: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
3794: -- IF ln_cenvat_accnt_id IS NULL THEN
3795: IF ln_total_excise_amt <> 0 THEN
3796: IF ln_cenvat_accnt_id IS NULL THEN
3797: IF r_trx.organization_type = 'T' THEN
3882:
3883: fnd_file.put_line(FND_FILE.LOG, '
3885: lv_statement_id := '8';
3886: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
3887: IF lv_message IS NOT NULL THEN
3888: p_process_status := 'E';
3889: p_process_message := lv_message;
3890: RETURN;
3906: NULL;
3907: END IF;
3908:
3909: lv_statement_id := '9';
3910: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
3911: IF p_cenvat_accounting_type = CENVAT_DEBIT THEN
3912: ln_debit := ln_total_excise_amt;
3913: ln_balancing_credit := ln_total_excise_amt;
3914: ln_credit := NULL;
4038:
4039: fnd_file.put_line(FND_FILE.LOG, '
4041: lv_statement_id := '10';
4042: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath); /* 11 */
4043: IF p_cgin_code IS NULL OR (lv_register_type = 'C' AND p_cgin_code like 'REGULAR-FULL%') THEN
4044:
4045: if lb_rg_debug then
4046: FND_FILE.put_line(FND_FILE.log,'11_1 jai_rcv_accounting_pkg.process_transaction.'
4047: ||' Debit:'||ln_debit||', Credit:'||ln_credit||', CenvatAccntId:'||ln_cenvat_accnt_id);
4048: end if;
4049:
4050: lv_statement_id := '10a';
4051: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath); /* 12 */
4052: -- Actual Entry-1: Cenvat Accounting ( This Includes Edu Cess also if different account is not specified for cess)
4053: -- bug 5581319. Added by Lakshmi Gopalsami
4054: IF NVL(ln_debit,0) <> 0 OR NVL(ln_credit,0) <> 0 THEN
4055: fnd_file.put_line(FND_FILE.LOG, '
4091: ||' Dr:'||ln_edu_cess_debit||', Cr:'||ln_edu_cess_credit||', EduCessAccnt:'||ln_cenvat_accnt_id);
4092: end if;
4093: fnd_file.put_line(FND_FILE.LOG, '
4095: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath); /* 12 */
4096: -- Actual Entry-2: Cenvat Cess Accounting
4097: jai_rcv_accounting_pkg.process_transaction(
4098: P_TRANSACTION_ID => p_transaction_id,
4099: P_ACCT_TYPE => lv_accnt_type,
4132: ||' SH_Dr:'||ln_sh_edu_cess_debit||', SH_Cr:'||ln_sh_edu_cess_credit||', SH_EduCessAccnt:'||ln_sh_exc_edu_cess_accnt);
4133: end if;
4134:
4135: lv_statement_id := '10b';
4136: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath); /* 13 */
4137: -- Actual Entry-2: Cenvat Cess Accounting
4138: jai_rcv_accounting_pkg.process_transaction(
4139: P_TRANSACTION_ID => p_transaction_id,
4140: P_ACCT_TYPE => lv_accnt_type,
4172: ||' Debit:'||ln_balancing_debit||', Credit:'||ln_balancing_credit||', RecvngAccntId:'||ln_receiving_accnt_id);
4173: end if;
4174:
4175: lv_statement_id := '10b';
4176: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath); /* 13 */
4177: -- Balancing Entry: Receiving Accounting
4178: -- bug 5581319. Added by Lakshmi Gopalsami
4179: IF NVL(ln_balancing_debit,0) <> 0 OR NVL(ln_balancing_credit,0) <> 0 THEN
4180: fnd_file.put_line(FND_FILE.LOG, '
4218: AND nvl(ln_edu_cess_balancing_debit, ln_edu_cess_balancing_credit) <> 0
4219: THEN
4220:
4221: lv_statement_id := '10b';
4222: p_codepath := jai_general_pkg.plot_codepath(13.1, p_codepath);
4223: -- Balancing Entry: Receiving Accounting
4224: fnd_file.put_line(FND_FILE.LOG, '
4226: P_TRANSACTION_ID => p_transaction_id,
4264: AND nvl(ln_sh_edu_cess_balancin_debit, ln_sh_edu_cess_balancin_credit) <> 0
4265: THEN
4266:
4267: lv_statement_id := '10d';
4268: p_codepath := jai_general_pkg.plot_codepath(15.1, p_codepath);
4269: -- Balancing Entry: Receiving Accounting
4270: jai_rcv_accounting_pkg.process_transaction(
4271: P_TRANSACTION_ID => p_transaction_id,
4272: P_ACCT_TYPE => lv_accnt_type,
4310:
4311: IF nvl(p_cgin_code,'AA') IN ('REGULAR-HALF', 'REGULAR-FULL + REVERSAL-HALF') THEN
4312: fnd_file.put_line(FND_FILE.LOG, '
4314: p_codepath := jai_general_pkg.plot_codepath(15, p_codepath); /* 15 */
4315:
4316: -- this can happen only for RECEIVE type of transaction and that too for 2nd 50% Claim
4317: IF p_cgin_code = 'REGULAR-HALF' THEN
4318: lv_accnt_nature := 'CENVAT-REG-50%';
4503: GOTO end_of_accounting;
4504: END IF;
4505:
4506: lv_statement_id := '13';
4507: p_codepath := jai_general_pkg.plot_codepath(16, p_codepath); /* 16 */
4508: if lb_rg_debug then
4509: FND_FILE.put_line(FND_FILE.log,'21 jai_rcv_accounting_pkg.process_transaction'
4510: ||' Debit:'||ln_debit||', Credit:'||ln_credit||', CenvatAccntId:'||ln_cenvat_accnt_id);
4511: end if;
4510: ||' Debit:'||ln_debit||', Credit:'||ln_credit||', CenvatAccntId:'||ln_cenvat_accnt_id);
4511: end if;
4512:
4513: lv_statement_id := '13a';
4514: p_codepath := jai_general_pkg.plot_codepath(17, p_codepath); /* 17 */
4515: -- SecondSet First Entry_1: Cenvat Accounting
4516: -- bug 5581319. Added by Lakshmi Gopalsami
4517: IF NVL(ln_balancing_debit,0) <> 0 OR NVL(ln_balancing_credit,0) <> 0 THEN
4518:
4556: ||' Dr:'||ln_edu_cess_debit||', Cr:'||ln_edu_cess_credit||', Cess Accnt:'||ln_exc_edu_cess_accnt);
4557: end if;
4558: -- SecondSet First Entry_2: Education Cess Accounting
4559: lv_statement_id := '13z';
4560: p_codepath := jai_general_pkg.plot_codepath(17, p_codepath); /* 17 */
4561: -- SecondSet First Entry: cenvat Accounting
4562: fnd_file.put_line(FND_FILE.LOG, '
4564: P_TRANSACTION_ID => p_transaction_id,
4599: ||' Dr:'||ln_sh_edu_cess_debit||', Cr:'||ln_sh_edu_cess_credit||', SH Cess Accnt:'||ln_sh_exc_edu_cess_accnt);
4600: end if;
4601: -- SecondSet First Entry_2: SH Education Cess Accounting
4602: lv_statement_id := '13x';
4603: p_codepath := jai_general_pkg.plot_codepath(20, p_codepath);
4604: -- SecondSet First Entry: cenvat Accounting
4605: jai_rcv_accounting_pkg.process_transaction(
4606: P_TRANSACTION_ID => p_transaction_id,
4607: P_ACCT_TYPE => lv_accnt_type,
4641: ||' Debit:'||ln_balancing_debit||', Credit:'||ln_balancing_credit||', CenRcvbleAccntId:'||ln_cenvat_rcvble_accnt_id);
4642: end if;
4643:
4644: lv_statement_id := '13b';
4645: p_codepath := jai_general_pkg.plot_codepath(18, p_codepath); /* 18 */
4646: -- SecondSet Balancing Entry: Cenvat Receivable Accounting
4647: -- bug 5581319. Added by Lakshmi Gopalsami
4648: IF NVL(ln_balancing_debit,0) <> 0 OR NVL(ln_balancing_credit,0) <> 0 THEN
4649:
4687: ||' Dr:'||ln_bal_edu_cess_debit||', Cr:'||ln_bal_edu_cess_credit||', CessRcvbleAccnt:'||ln_cenvat_rcvble_accnt_id);
4688: end if;
4689:
4690: lv_statement_id := '13b';
4691: p_codepath := jai_general_pkg.plot_codepath(18, p_codepath); /* 18 */
4692: -- SecondSet Balancing Entry: Cenvat Receivable Accounting
4693: fnd_file.put_line(FND_FILE.LOG, '
4695: P_TRANSACTION_ID => p_transaction_id,
4731: ||' Dr:'||ln_sh_bal_edu_cess_debit||', Cr:'||ln_sh_bal_edu_cess_credit||', SH CessRcvbleAccnt:'||ln_cenvat_rcvble_accnt_id);
4732: end if;
4733:
4734: lv_statement_id := '13d';
4735: p_codepath := jai_general_pkg.plot_codepath(20, p_codepath); /* 18 */
4736: -- SecondSet Balancing Entry: Cenvat Receivable Accounting
4737: jai_rcv_accounting_pkg.process_transaction(
4738: P_TRANSACTION_ID => p_transaction_id,
4739: P_ACCT_TYPE => lv_accnt_type,
4773: <
4774: NULL;
4775:
4776: fnd_file.put_line(FND_FILE.LOG, '
4778: fnd_file.put_line(FND_FILE.LOG, '
4780: WHEN OTHERS THEN
4781: p_process_status := 'E';
4781: p_process_status := 'E';
4782: fnd_file.put_line(FND_FILE.LOG, '
4784: FND_FILE.put_line( FND_FILE.log, 'Error in '||p_process_message);
4785: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END');
4786:
4787: END accounting_entries;
4788:
4789:
4802: lv_statement_id VARCHAR2(5);
4803: BEGIN
4804:
4805: lv_statement_id := '1';
4806: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'cenvat_rg.update_reg' , 'START'); /* 1 */
4807: if lb_rg_debug then
4808: /*dbms_output.put_line('^ Upd_Regs. Payid:'||p_payment_register_id
4809: ||', PayReg:'||p_payment_register
4810: ||', Qtyid:'||p_quantity_register_id
4818: end if;
4819:
4820: IF p_quantity_register IN ('RG23A', 'RG23C') THEN
4821: lv_statement_id := '2';
4822: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
4823: jai_cmn_rg_23ac_i_trxs_pkg.update_payment_details(
4824: p_register_id => p_quantity_register_id,
4825: p_register_id_part_ii => p_payment_register_id,
4826: p_charge_account_id => p_charge_account_id
4827: );
4828:
4829: ELSIF p_quantity_register = 'RG23D' THEN
4830: lv_statement_id := '3';
4831: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
4832: jai_cmn_rg_23d_trxs_pkg.update_payment_details(
4833: p_register_id => p_quantity_register_id,
4834: p_charge_account_id => p_charge_account_id
4835: );
4835: );
4836:
4837: ELSIF p_quantity_register = 'RG1' THEN
4838: lv_statement_id := '4';
4839: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
4840: UPDATE JAI_CMN_RG_I_TRXS
4841: SET
4842: register_id_part_ii = p_payment_register_id,
4843: charge_account_id = p_charge_account_id,
4849: END IF;
4850:
4851: IF p_payment_register IN ('RG23A', 'RG23C') THEN
4852: lv_statement_id := '5';
4853: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
4854: jai_cmn_rg_23ac_ii_pkg.update_payment_details(
4855: p_register_id => p_payment_register_id,
4856: p_register_id_part_i => p_quantity_register_id,
4857: p_charge_account_id => p_charge_account_id
4858: );
4859:
4860: ELSIF p_payment_register = 'PLA' THEN
4861: lv_statement_id := '6';
4862: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
4863: jai_cmn_rg_pla_trxs_pkg.update_payment_details(
4864: p_register_id => p_payment_register_id,
4865: p_charge_account_id => p_charge_account_id
4866: );
4865: p_charge_account_id => p_charge_account_id
4866: );
4867:
4868: ELSE
4869: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
4870: FND_FILE.put_line( FND_FILE.log, 'JA_IN_RECEIPT_MODVAT_RG_PKG.update_registers: No Payment Register Updated');
4871: END IF;
4872:
4873: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath, NULL, 'END'); /* 8 */
4869: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
4870: FND_FILE.put_line( FND_FILE.log, 'JA_IN_RECEIPT_MODVAT_RG_PKG.update_registers: No Payment Register Updated');
4871: END IF;
4872:
4873: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath, NULL, 'END'); /* 8 */
4874:
4875: EXCEPTION
4876: WHEN OTHERS THEN
4877: p_process_status := 'E';
4876: WHEN OTHERS THEN
4877: p_process_status := 'E';
4878: p_process_message := 'CENVAT_RG_PKG.update_registers->'||SQLERRM||', StmtId->'||lv_statement_id;
4879: FND_FILE.put_line( FND_FILE.log, 'Error in '||p_process_message);
4880: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END');
4881:
4882: END update_registers;
4883:
4884: -- If this function returns a message, then it means there is some problem and processing should be stopped
4931: FND_FILE.put_line(FND_FILE.log,'^ Validate');
4932: end if;
4933:
4934: lv_statement_id := '1';
4935: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'cenvat_rg.validate', 'START'); /* 1 */
4936: OPEN c_trx(p_transaction_id);
4937: FETCH c_trx INTO r_trx;
4938: CLOSE c_trx;
4939:
4937: FETCH c_trx INTO r_trx;
4938: CLOSE c_trx;
4939:
4940: lv_statement_id := '2';
4941: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
4942: OPEN c_base_trx(p_transaction_id);
4943: FETCH c_base_trx INTO r_base_trx;
4944: CLOSE c_base_trx;
4945:
4960:
4961: IF p_validation_type = 'COMMON' THEN
4962:
4963: lv_statement_id := '5';
4964: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
4965: --upper added by narao.
4966: -- Vijay Shankar for Bug#4346453. RCV DFF Elim. Enh. IF r_base_trx.attr_cat = 'India RMA Receipt' AND upper(r_base_trx.rma_type) NOT IN ('PRODUCTION INPUT', 'GOODS RETURN') THEN
4967: /*
4968: ||Start of bug 5378630
4992: END IF;
4993:
4994: IF lv_transaction_type = 'RECEIVE' THEN
4995: lv_statement_id := '6';
4996: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
4997: IF r_trx.organization_type = 'M' THEN
4998: IF r_trx.item_cenvatable <> 'Y' THEN
4999: lv_validation_message := 'Item is not a Cenvatable one';
5000: END IF;
5013:
5014: ELSIF lv_transaction_type IN ('DELIVER', 'RETURN TO RECEIVING') THEN
5015:
5016: lv_statement_id := '7';
5017: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
5018: IF r_trx.organization_type = 'T' THEN
5019: lv_validation_message := 'No Cenvat/RG Entries are passed for '||lv_transaction_type;
5020: GOTO end_of_validation;
5021: END IF;
5020: GOTO end_of_validation;
5021: END IF;
5022:
5023: lv_statement_id := '7.1';
5024: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
5025: lv_include_cenvat_in_cost := jai_rcv_deliver_rtr_pkg.include_cenvat_in_costing(
5026: p_transaction_id => p_transaction_id,
5027: p_process_message => p_process_message,
5028: p_process_status => p_process_status,
5042:
5043: ELSIF lv_transaction_type = 'RETURN TO VENDOR' THEN
5044:
5045: lv_statement_id := '8';
5046: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
5047: IF r_trx.organization_type = 'T' THEN
5048: IF r_trx.item_trading_flag <> 'Y' THEN
5049: lv_validation_message := 'Item is not a Tradable one';
5050: --ELSIF r_trx.excise_in_trading <> 'Y' THEN
5068:
5069: <
5070:
5071: lv_statement_id := '9';
5072: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
5073: IF lv_validation_message IS NOT NULL THEN
5074: p_process_status := 'X';
5075: p_process_message := lv_validation_message;
5076: END IF;
5074: p_process_status := 'X';
5075: p_process_message := lv_validation_message;
5076: END IF;
5077:
5078: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath, NULL, 'END'); /* 9 */
5079:
5080: EXCEPTION
5081: WHEN OTHERS THEN
5082: p_process_status := 'E';
5081: WHEN OTHERS THEN
5082: p_process_status := 'E';
5083: p_process_message := 'CENVAT_RG_PKG.validate_transaction->'||SQLERRM||', StmtId->'||lv_statement_id;
5084: FND_FILE.put_line( FND_FILE.log, 'Error in '||p_process_message);
5085: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END');
5086:
5087: END validate_transaction;
5088:
5089: -- This procedure assumes that this is called only at the time of RTV
5111: FND_FILE.put_line(FND_FILE.log,'^ Gen_Exc_inv');
5112: end if;
5113:
5114: lv_statement_id := '1';
5115: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'cenvat_rg.generate_exc_inv', 'START'); /* 1 */
5116: OPEN c_trx(p_transaction_id);
5117: FETCH c_trx INTO r_trx;
5118: CLOSE c_trx;
5119:
5118: CLOSE c_trx;
5119:
5120: IF r_trx.transaction_type = 'CORRECT' THEN
5121: lv_statement_id := '2';
5122: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
5123:
5124: OPEN c_rtv_excise_inv_no(r_trx.parent_transaction_id);
5125: FETCH c_rtv_excise_inv_no INTO p_excise_invoice_no, p_excise_invoice_date;
5126: CLOSE c_rtv_excise_inv_no;
5125: FETCH c_rtv_excise_inv_no INTO p_excise_invoice_no, p_excise_invoice_date;
5126: CLOSE c_rtv_excise_inv_no;
5127: ELSE
5128: lv_statement_id := '3';
5129: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
5130: jai_cmn_setup_pkg.generate_excise_invoice_no(
5131: p_organization_id => p_organization_id,
5132: p_location_id => p_location_id,
5133: p_called_from => 'P', -- Required for excise generation during RTV
5131: p_organization_id => p_organization_id,
5132: p_location_id => p_location_id,
5133: p_called_from => 'P', -- Required for excise generation during RTV
5134: p_order_invoice_type_id => NULL,
5135: p_fin_year => jai_general_pkg.get_fin_year(p_organization_id),
5136: p_excise_inv_no => p_excise_invoice_no,
5137: p_errbuf => p_errbuf
5138: );
5139:
5141: p_excise_invoice_date := trunc(SYSDATE);
5142: END IF;
5143: END IF;
5144:
5145: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath, NULL, 'END'); /* 4 */
5146:
5147: EXCEPTION
5148: WHEN OTHERS THEN
5149: p_errbuf := 'CENVAT_RG_PKG.generate_excise_invoice->'||SQLERRM||', StmtId->'||lv_statement_id;
5147: EXCEPTION
5148: WHEN OTHERS THEN
5149: p_errbuf := 'CENVAT_RG_PKG.generate_excise_invoice->'||SQLERRM||', StmtId->'||lv_statement_id;
5150: FND_FILE.put_line( FND_FILE.log, 'Error in '||p_errbuf);
5151: p_codepath := jai_general_pkg.plot_codepath(999, p_errbuf, null, 'END');
5152: RAISE;
5153:
5154: END generate_excise_invoice;
5155:
5179: --ln_ancestor_receive_trxn_id :=
5180: -- jai_rcv_trx_processing_pkg.get_ancestor_id(p_transaction_id, p_shipment_line_id, 'RECEIVE');
5181:
5182: -- commented as pert of review and modified p_shipment_line_id -> p_transaction_id
5183: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'cenvat_rg.get_receive_claimed_ptg', 'START'); /* 1 */
5184: OPEN c_cenvat_claimed_ptg(p_shipment_line_id);
5185: FETCH c_cenvat_claimed_ptg INTO ln_cenvat_claimed_ptg;
5186: CLOSE c_cenvat_claimed_ptg;
5187:
5184: OPEN c_cenvat_claimed_ptg(p_shipment_line_id);
5185: FETCH c_cenvat_claimed_ptg INTO ln_cenvat_claimed_ptg;
5186: CLOSE c_cenvat_claimed_ptg;
5187:
5188: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath, NULL, 'END'); /* 2 */
5189:
5190: RETURN ln_cenvat_claimed_ptg;
5191: EXCEPTION
5192: WHEN OTHERS THEN
5217: If p_breakup_type is RG23D, then total tax amount should be added to excise amount instead of taking
5218: mod_cr_percentage into consideration
5219: */
5220:
5221: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'cenvat_rg.tax_breakup','START'); /* 1 */
5222: if lb_rg_debug then
5223: FND_FILE.put_line(FND_FILE.log,'^ tax_breakup');
5224: end if;
5225:
5239: WHERE rtl.shipment_line_id = p_shipment_line_id
5240: AND jtc.tax_id = rtl.tax_id)
5241: LOOP
5242:
5243: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
5244:
5245:
5246: IF tax_rec.currency <> jai_rcv_trx_processing_pkg.gv_func_curr THEN
5247: ln_curr_conv := NVL(p_curr_conv_rate, 1);
5249: ln_curr_conv := 1;
5250: END IF;
5251:
5252: IF p_breakup_type = 'RG23D' AND tax_rec.modvat_flag='Y' THEN -- trading case --11901294
5253: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
5254: IF upper(tax_rec.tax_type) = 'EXCISE' THEN
5255: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
5256: pr_tax.basic_excise := pr_tax.basic_excise + round(tax_rec.tax_amount * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
5257:
5251:
5252: IF p_breakup_type = 'RG23D' AND tax_rec.modvat_flag='Y' THEN -- trading case --11901294
5253: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
5254: IF upper(tax_rec.tax_type) = 'EXCISE' THEN
5255: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
5256: pr_tax.basic_excise := pr_tax.basic_excise + round(tax_rec.tax_amount * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
5257:
5258: ELSIF upper(tax_rec.tax_type) = 'ADDL. EXCISE' THEN
5259: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
5255: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
5256: pr_tax.basic_excise := pr_tax.basic_excise + round(tax_rec.tax_amount * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
5257:
5258: ELSIF upper(tax_rec.tax_type) = 'ADDL. EXCISE' THEN
5259: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
5260: pr_tax.addl_excise := pr_tax.addl_excise + round(tax_rec.tax_amount * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
5261:
5262: ELSIF upper(tax_rec.tax_type) = 'OTHER EXCISE' THEN
5263: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
5259: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
5260: pr_tax.addl_excise := pr_tax.addl_excise + round(tax_rec.tax_amount * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
5261:
5262: ELSIF upper(tax_rec.tax_type) = 'OTHER EXCISE' THEN
5263: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
5264: pr_tax.other_excise := pr_tax.other_excise + round(tax_rec.tax_amount * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
5265:
5266: ELSIF tax_rec.tax_type = 'CVD' THEN
5267: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
5263: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
5264: pr_tax.other_excise := pr_tax.other_excise + round(tax_rec.tax_amount * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
5265:
5266: ELSIF tax_rec.tax_type = 'CVD' THEN
5267: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
5268: pr_tax.cvd := pr_tax.cvd + round(tax_rec.tax_amount * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
5269:
5270: -- Start, Vijay Shankar for Bug#3940588
5271: ELSIF tax_rec.tax_type = jai_constants.tax_type_exc_edu_cess THEN
5284:
5285: --end bug #5989740*/
5286:
5287: ELSIF tax_rec.tax_type = jai_constants.tax_type_add_cvd THEN
5288: p_codepath := jai_general_pkg.plot_codepath(7.1, p_codepath); /* 7.1 */
5289: pr_tax.addl_cvd := pr_tax.addl_cvd + round(tax_rec.tax_amount * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
5290: --Added by Wenqiong for the bug12645490 on 22/06/2011 begin.
5291: ELSIF tax_rec.tax_type = jai_constants.tax_type_boe_other1 THEN
5292: pr_tax.any_other_boe_1 := pr_tax.any_other_boe_1 + round(tax_rec.tax_amount * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
5299: ELSIF tax_rec.tax_type = jai_constants.tax_type_boe_other5 THEN
5300: pr_tax.any_other_boe_5 := pr_tax.any_other_boe_5 + round(tax_rec.tax_amount * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
5301: --Added by Wenqiong for the bug12645490 on 22/06/2011 End.
5302: ELSE
5303: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
5304: pr_tax.non_cenvat := pr_tax.non_cenvat + round(tax_rec.tax_amount * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
5305: END IF;
5306:
5307: ELSE -- manufacturing case
5304: pr_tax.non_cenvat := pr_tax.non_cenvat + round(tax_rec.tax_amount * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
5305: END IF;
5306:
5307: ELSE -- manufacturing case
5308: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
5309:
5310: IF tax_rec.modvat_flag = 'Y' AND
5311: upper(tax_rec.tax_type) IN ('EXCISE', 'ADDL. EXCISE',
5312: 'OTHER EXCISE', 'CVD',
5327: --Added by Wenqiong for the bug12645490 on 22/06/2011 End.
5328: )
5329: THEN
5330:
5331: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
5332: IF upper(tax_rec.tax_type) = 'EXCISE' THEN
5333: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath); /* 11 */
5334: pr_tax.basic_excise := pr_tax.basic_excise
5335: + round(tax_rec.tax_amount * (tax_rec.mod_cr_percentage/100) * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
5329: THEN
5330:
5331: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
5332: IF upper(tax_rec.tax_type) = 'EXCISE' THEN
5333: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath); /* 11 */
5334: pr_tax.basic_excise := pr_tax.basic_excise
5335: + round(tax_rec.tax_amount * (tax_rec.mod_cr_percentage/100) * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
5336: --12817175
5337: If TAX_REC.inclusive_tax_flag='Y'
5346:
5347:
5348:
5349: ELSIF upper(tax_rec.tax_type) = 'ADDL. EXCISE' THEN
5350: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath); /* 12 */
5351: pr_tax.addl_excise := pr_tax.addl_excise
5352: + round(tax_rec.tax_amount * (tax_rec.mod_cr_percentage/100) * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
5353: --12817175
5354: If TAX_REC.inclusive_tax_flag='Y'
5362: end if;
5363:
5364:
5365: ELSIF upper(tax_rec.tax_type) = 'OTHER EXCISE' THEN
5366: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath); /* 13 */
5367: pr_tax.other_excise := pr_tax.other_excise
5368: + round(tax_rec.tax_amount * (tax_rec.mod_cr_percentage/100) * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
5369: --12817175
5370: If TAX_REC.inclusive_tax_flag='Y'
5379:
5380:
5381:
5382: ELSIF tax_rec.tax_type IN ('CVD') THEN
5383: p_codepath := jai_general_pkg.plot_codepath(14, p_codepath); /* 14 */
5384: pr_tax.cvd := pr_tax.cvd
5385: + round(tax_rec.tax_amount * (tax_rec.mod_cr_percentage/100) * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
5386: --12817175
5387: If TAX_REC.inclusive_tax_flag='Y'
5397:
5398: -- Date 04/06/2007 by sacsethi for bug 6109941
5399: -- Code review from bug 5228046
5400: ELSIF tax_rec.tax_type IN ( jai_constants.tax_type_add_cvd) THEN
5401: p_codepath := jai_general_pkg.plot_codepath(14, p_codepath); /* 14 */
5402: pr_tax.addl_cvd := pr_tax.addl_cvd
5403: + round(tax_rec.tax_amount * (tax_rec.mod_cr_percentage/100) * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
5404: --12817175
5405: If TAX_REC.inclusive_tax_flag='Y'
5514: + round(tax_rec.tax_amount * (1 - tax_rec.mod_cr_percentage/100) * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
5515:
5516: --Added by Wenqiong for the bug12645490 on 22/06/2011 End.
5517: ELSE
5518: p_codepath := jai_general_pkg.plot_codepath(15, p_codepath); /* 15 */
5519: ln_mod_problem_amt := ln_mod_problem_amt
5520: + round(tax_rec.tax_amount * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
5521: END IF;
5522:
5520: + round(tax_rec.tax_amount * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
5521: END IF;
5522:
5523: ELSIF tax_rec.modvat_flag = 'N' and tax_rec.tax_type NOT IN ('TDS', 'Modvat Recovery') THEN
5524: p_codepath := jai_general_pkg.plot_codepath(16, p_codepath); /* 16 */
5525: pr_tax.non_cenvat := pr_tax.non_cenvat
5526: + round(tax_rec.tax_amount * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
5527:
5528: ELSE
5525: pr_tax.non_cenvat := pr_tax.non_cenvat
5526: + round(tax_rec.tax_amount * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
5527:
5528: ELSE
5529: p_codepath := jai_general_pkg.plot_codepath(17, p_codepath); /* 17 */
5530: ln_nonmod_problem_amt := ln_nonmod_problem_amt
5531: + round(tax_rec.tax_amount * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
5532: END IF;
5533:
5543: FND_FILE.put_line(FND_FILE.log, '$tax_breakup. Basic:'||pr_tax.basic_excise||', Addl:'||pr_tax.addl_excise
5544: ||', Other:'||pr_tax.other_excise||', cvd:'||pr_tax.cvd||', Addl. CVD:'|| pr_tax.addl_cvd||', exc_ces:'||pr_tax.excise_edu_cess||', cvd_ces:'||pr_tax.cvd_edu_cess );
5545: end if;
5546:
5547: p_codepath := jai_general_pkg.plot_codepath(18, p_codepath, NULL, 'END'); /* 18 */
5548:
5549: EXCEPTION
5550: WHEN OTHERS THEN
5551: pr_tax := null;
5611: lv_object_name varchar2(200) := 'jai_rcv_excise_processing_pkg.dervice_cgin_scenario';
5612:
5613: BEGIN
5614:
5615: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'cenvat_rg.cgin_scenario' , 'START'); /* 1 */
5616: if lb_rg_debug then
5617: -- dbms_output.put_line('^ Drv_CGIN_Scnrio');
5618: FND_FILE.put_line(FND_FILE.log,'^ Drv_CGIN_Scnrio');
5619: end if;
5661: 3) 'REGULAR-FULL'
5662: 4) 'REGULAR-FULL + PARENT-REGULAR-HALF'
5663: */
5664:
5665: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
5666: OPEN c_trx(p_transaction_id);
5667: FETCH c_trx INTO r_trx;
5668: CLOSE c_trx;
5669:
5667: FETCH c_trx INTO r_trx;
5668: CLOSE c_trx;
5669:
5670: IF r_trx.cenvat_claimed_ptg = 100 THEN
5671: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
5672: lv_message := 'Transaction is already full claimed';
5673: GOTO end_of_call;
5674: END IF;
5675:
5673: GOTO end_of_call;
5674: END IF;
5675:
5676: ln_receive_claimed_ptg := get_receive_claimed_ptg(p_transaction_id, r_trx.shipment_line_id, p_codepath);
5677: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
5678:
5679: IF r_trx.transaction_type = 'CORRECT' THEN
5680: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
5681: lv_transaction_type := r_trx.parent_transaction_type;
5676: ln_receive_claimed_ptg := get_receive_claimed_ptg(p_transaction_id, r_trx.shipment_line_id, p_codepath);
5677: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
5678:
5679: IF r_trx.transaction_type = 'CORRECT' THEN
5680: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
5681: lv_transaction_type := r_trx.parent_transaction_type;
5682: ELSE
5683: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
5684: lv_transaction_type := r_trx.transaction_type;
5679: IF r_trx.transaction_type = 'CORRECT' THEN
5680: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
5681: lv_transaction_type := r_trx.parent_transaction_type;
5682: ELSE
5683: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
5684: lv_transaction_type := r_trx.transaction_type;
5685: END IF;
5686:
5687: --following if block only for RECEIVE transactions
5684: lv_transaction_type := r_trx.transaction_type;
5685: END IF;
5686:
5687: --following if block only for RECEIVE transactions
5688: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
5689: IF r_trx.transaction_type = 'RECEIVE' THEN --, 'DELIVER', 'RETURN TO RECEIVING') THEN
5690: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
5691:
5692: IF r_trx.cenvat_claimed_ptg = 0 THEN
5686:
5687: --following if block only for RECEIVE transactions
5688: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
5689: IF r_trx.transaction_type = 'RECEIVE' THEN --, 'DELIVER', 'RETURN TO RECEIVING') THEN
5690: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
5691:
5692: IF r_trx.cenvat_claimed_ptg = 0 THEN
5693: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
5694: p_cgin_code := 'REGULAR-FULL + REVERSAL-HALF';
5689: IF r_trx.transaction_type = 'RECEIVE' THEN --, 'DELIVER', 'RETURN TO RECEIVING') THEN
5690: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
5691:
5692: IF r_trx.cenvat_claimed_ptg = 0 THEN
5693: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
5694: p_cgin_code := 'REGULAR-FULL + REVERSAL-HALF';
5695:
5696: -- RECEIVE is 50% claimed case
5697: ELSIF r_trx.cenvat_claimed_ptg < 100 THEN
5694: p_cgin_code := 'REGULAR-FULL + REVERSAL-HALF';
5695:
5696: -- RECEIVE is 50% claimed case
5697: ELSIF r_trx.cenvat_claimed_ptg < 100 THEN
5698: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
5699: p_cgin_code := 'REGULAR-HALF';
5700:
5701: -- RECEIVE is 100% claimed case
5702: ELSIF r_trx.cenvat_claimed_ptg = 100 THEN
5699: p_cgin_code := 'REGULAR-HALF';
5700:
5701: -- RECEIVE is 100% claimed case
5702: ELSIF r_trx.cenvat_claimed_ptg = 100 THEN
5703: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath); /* 11 */
5704: lv_message := 'Transaction is Fully Claimed';
5705: GOTO end_of_call;
5706: END IF;
5707:
5706: END IF;
5707:
5708: -- this elsif for DELIVER, RETURN TO RECEIVING, CORRECT of RECEIVE, DELIVER and RETURN TO RECEIVING
5709: ELSIF lv_transaction_type IN ('RECEIVE', 'DELIVER', 'RETURN TO RECEIVING') THEN
5710: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath); /* 12 */
5711:
5712: IF ln_receive_claimed_ptg = 0 THEN
5713:
5714: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath); /* 13 */
5710: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath); /* 12 */
5711:
5712: IF ln_receive_claimed_ptg = 0 THEN
5713:
5714: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath); /* 13 */
5715: lv_message := 'Parent Receive Transaction is not Claimed';
5716: GOTO end_of_call;
5717:
5718: -- RECEIVE is 50% claimed case
5717:
5718: -- RECEIVE is 50% claimed case
5719: ELSIF ln_receive_claimed_ptg < 100 THEN
5720:
5721: p_codepath := jai_general_pkg.plot_codepath(14, p_codepath); /* 14 */
5722: IF r_trx.cenvat_claimed_ptg = 0 THEN
5723: p_codepath := jai_general_pkg.plot_codepath(15, p_codepath); /* 15 */
5724: p_cgin_code := 'REGULAR-FULL + REVERSAL-HALF';
5725: ELSIF r_trx.cenvat_claimed_ptg = 50 THEN
5719: ELSIF ln_receive_claimed_ptg < 100 THEN
5720:
5721: p_codepath := jai_general_pkg.plot_codepath(14, p_codepath); /* 14 */
5722: IF r_trx.cenvat_claimed_ptg = 0 THEN
5723: p_codepath := jai_general_pkg.plot_codepath(15, p_codepath); /* 15 */
5724: p_cgin_code := 'REGULAR-FULL + REVERSAL-HALF';
5725: ELSIF r_trx.cenvat_claimed_ptg = 50 THEN
5726: p_codepath := jai_general_pkg.plot_codepath(16, p_codepath); /* 16 */
5727: lv_message := 'Second Claim did not happen for Parent transaction';
5722: IF r_trx.cenvat_claimed_ptg = 0 THEN
5723: p_codepath := jai_general_pkg.plot_codepath(15, p_codepath); /* 15 */
5724: p_cgin_code := 'REGULAR-FULL + REVERSAL-HALF';
5725: ELSIF r_trx.cenvat_claimed_ptg = 50 THEN
5726: p_codepath := jai_general_pkg.plot_codepath(16, p_codepath); /* 16 */
5727: lv_message := 'Second Claim did not happen for Parent transaction';
5728: GOTO end_of_call;
5729: END IF;
5730:
5729: END IF;
5730:
5731: -- RECEIVE is 100% claimed case
5732: ELSIF ln_receive_claimed_ptg = 100 THEN
5733: p_codepath := jai_general_pkg.plot_codepath(17, p_codepath); /* 17 */
5734: IF r_trx.cenvat_claimed_ptg = 0 THEN
5735: p_codepath := jai_general_pkg.plot_codepath(18, p_codepath); /* 18 */
5736: p_cgin_code := 'REGULAR-FULL';
5737: ELSIF r_trx.cenvat_claimed_ptg < 100 THEN
5731: -- RECEIVE is 100% claimed case
5732: ELSIF ln_receive_claimed_ptg = 100 THEN
5733: p_codepath := jai_general_pkg.plot_codepath(17, p_codepath); /* 17 */
5734: IF r_trx.cenvat_claimed_ptg = 0 THEN
5735: p_codepath := jai_general_pkg.plot_codepath(18, p_codepath); /* 18 */
5736: p_cgin_code := 'REGULAR-FULL';
5737: ELSIF r_trx.cenvat_claimed_ptg < 100 THEN
5738: p_codepath := jai_general_pkg.plot_codepath(19, p_codepath); /* 19 */
5739: p_cgin_code := 'REGULAR-HALF';
5734: IF r_trx.cenvat_claimed_ptg = 0 THEN
5735: p_codepath := jai_general_pkg.plot_codepath(18, p_codepath); /* 18 */
5736: p_cgin_code := 'REGULAR-FULL';
5737: ELSIF r_trx.cenvat_claimed_ptg < 100 THEN
5738: p_codepath := jai_general_pkg.plot_codepath(19, p_codepath); /* 19 */
5739: p_cgin_code := 'REGULAR-HALF';
5740: END IF;
5741: END IF;
5742:
5741: END IF;
5742:
5743: ELSIF lv_transaction_type = 'RETURN TO VENDOR' THEN
5744:
5745: p_codepath := jai_general_pkg.plot_codepath(20, p_codepath); /* 20 */
5746: -- Need to implement this. Very Complicated One
5747: IF ln_receive_claimed_ptg = 0 THEN
5748: p_codepath := jai_general_pkg.plot_codepath(21, p_codepath); /* 21 */
5749: lv_message := 'Parent Receive Transaction is not Claimed';
5744:
5745: p_codepath := jai_general_pkg.plot_codepath(20, p_codepath); /* 20 */
5746: -- Need to implement this. Very Complicated One
5747: IF ln_receive_claimed_ptg = 0 THEN
5748: p_codepath := jai_general_pkg.plot_codepath(21, p_codepath); /* 21 */
5749: lv_message := 'Parent Receive Transaction is not Claimed';
5750: GOTO end_of_call;
5751:
5752: -- RECEIVE is 50% claimed case
5750: GOTO end_of_call;
5751:
5752: -- RECEIVE is 50% claimed case
5753: ELSIF ln_receive_claimed_ptg < 100 THEN
5754: p_codepath := jai_general_pkg.plot_codepath(22, p_codepath); /* 22 */
5755: -- following modified by Vijay Shankar for Bug#3940588
5756: p_cgin_code := 'REGULAR-FULL + PARENT-REGULAR-HALF';/*uncommented by vkaranam fro bug #4704957*/
5757: --p_cgin_code := 'REGULAR-FULL + REVERSAL-HALF';/*commented by vkaranam fro bug #4704957*/
5758:
5757: --p_cgin_code := 'REGULAR-FULL + REVERSAL-HALF';/*commented by vkaranam fro bug #4704957*/
5758:
5759: -- RECEIVE is 100% claimed case
5760: ELSIF ln_receive_claimed_ptg = 100 THEN
5761: p_codepath := jai_general_pkg.plot_codepath(23, p_codepath); /* 23 */
5762: p_cgin_code := 'REGULAR-FULL';
5763:
5764: END IF;
5765: p_codepath := jai_general_pkg.plot_codepath(24, p_codepath); /* 24 */
5761: p_codepath := jai_general_pkg.plot_codepath(23, p_codepath); /* 23 */
5762: p_cgin_code := 'REGULAR-FULL';
5763:
5764: END IF;
5765: p_codepath := jai_general_pkg.plot_codepath(24, p_codepath); /* 24 */
5766:
5767: END IF;
5768:
5769: <
5766:
5767: END IF;
5768:
5769: <
5770: p_codepath := jai_general_pkg.plot_codepath(25, p_codepath); /* 25 */
5771:
5772: IF lv_message IS NOT NULL THEN
5773: p_process_status := 'E';
5774: p_process_message := lv_message;
5773: p_process_status := 'E';
5774: p_process_message := lv_message;
5775: RETURN;
5776: END IF;
5777: p_codepath := jai_general_pkg.plot_codepath(26, p_codepath, NULL, 'END'); /* 26 */
5778: EXCEPTION
5779: WHEN OTHERS THEN
5780: p_cgin_code := null;
5781: FND_MESSAGE.SET_NAME ('JA','JAI_EXCEPTION_OCCURED');
5822:
5823: BEGIN
5824:
5825: FND_FILE.put_line( fnd_file.log, '^derive_duty_registers');
5826: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'CENVAT_RG_PKG.DRV_DUTY_REG' , 'START');
5827:
5828: OPEN c_orgn_info(p_organization_id, p_location_id);
5829: FETCH c_orgn_info INTO r_orgn_info;
5830: CLOSE c_orgn_info;
5833: lv_pref1_register := jai_constants.register_type_pla;
5834: lv_cess_pref1_register := jai_constants.reg_pla;
5835:
5836: IF p_item_class IN ('CGIN','CGEX') THEN
5837: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath);
5838: lv_pref2_register := jai_constants.register_type_c;
5839: lv_cess_pref2_register := jai_constants.reg_rg23c;
5840: ELSE
5841: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath);
5837: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath);
5838: lv_pref2_register := jai_constants.register_type_c;
5839: lv_cess_pref2_register := jai_constants.reg_rg23c;
5840: ELSE
5841: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath);
5842: lv_pref2_register := jai_constants.register_type_a;
5843: lv_cess_pref2_register := jai_constants.reg_rg23a;
5844: END IF;
5845:
5845:
5846: ELSE -- IF r_orgn_info.pref_rg23a = 1 THEN
5847:
5848: IF p_item_class IN ('CGIN','CGEX') THEN
5849: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath);
5850: lv_pref1_register := jai_constants.register_type_c;
5851: lv_cess_pref1_register := jai_constants.reg_rg23c;
5852: ELSE
5853: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath);
5849: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath);
5850: lv_pref1_register := jai_constants.register_type_c;
5851: lv_cess_pref1_register := jai_constants.reg_rg23c;
5852: ELSE
5853: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath);
5854: lv_pref1_register := jai_constants.register_type_a;
5855: lv_cess_pref1_register := jai_constants.reg_rg23a;
5856: END IF;
5857:
5873:
5874: IF lv_pref1_register = jai_constants.register_type_pla
5875: AND r_orgn_info.allow_negative_pla = jai_constants.yes
5876: THEN
5877: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath);
5878: p_cenvat_register_type := jai_constants.register_type_pla;
5879: GOTO end_of_procedure;
5880: END IF;
5881: --added for bug#9854329, start
5887: nvl(pr_tax.other_excise,0) + nvl(pr_tax.cvd,0) + nvl(pr_tax.addl_cvd,0);
5888: END IF;
5889: --added for bug#9854329, end
5890: /* BALANCES CHECKING */
5891: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath);
5892: check_cenvat_balances(
5893: p_organization_id => p_organization_id,
5894: p_location_id => p_location_id,
5895: /* p_transaction_amount => pr_tax.basic_excise +
5903: p_process_message => lv_process_message
5904: );
5905:
5906: IF lv_process_flag = jai_constants.unexpected_error THEN
5907: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath);
5908: p_process_flag := 'E';
5909: p_process_message := lv_process_message;
5910: GOTO end_of_procedure;
5911:
5909: p_process_message := lv_process_message;
5910: GOTO end_of_procedure;
5911:
5912: ELSIF lv_process_flag = jai_constants.expected_error THEN
5913: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath);
5914:
5915: ELSIF lv_process_flag = jai_constants.successful THEN
5916:
5917: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath);
5913: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath);
5914:
5915: ELSIF lv_process_flag = jai_constants.successful THEN
5916:
5917: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath);
5918: IF pr_tax.excise_edu_cess + pr_tax.cvd_edu_cess <> 0 THEN /* This if condition and its else added by ssumaith - bug# 4187859*/
5919:
5920: --added for bug#9854329, start
5921: IF (p_transaction_type = 'RETURN TO VENDOR' AND nvl(r_orgn_info.CENVAT_CR_REVRSL_FLAG,'N') = 'N') THEN
5934: p_process_message => lv_process_message
5935: );
5936:
5937: IF lv_process_flag = jai_constants.unexpected_error THEN
5938: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath);
5939: p_process_flag := 'E';
5940: p_process_message := lv_process_message;
5941: GOTO end_of_procedure;
5942:
5940: p_process_message := lv_process_message;
5941: GOTO end_of_procedure;
5942:
5943: ELSIF lv_process_flag = jai_constants.expected_error THEN
5944: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath);
5945: ELSIF lv_process_flag = jai_constants.successful THEN
5946: p_codepath := jai_general_pkg.plot_codepath(14, p_codepath);
5947: p_cenvat_register_type := lv_pref1_register;
5948: GOTO end_of_procedure;
5942:
5943: ELSIF lv_process_flag = jai_constants.expected_error THEN
5944: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath);
5945: ELSIF lv_process_flag = jai_constants.successful THEN
5946: p_codepath := jai_general_pkg.plot_codepath(14, p_codepath);
5947: p_cenvat_register_type := lv_pref1_register;
5948: GOTO end_of_procedure;
5949: END IF;
5950: /*added the following by vkaranam for budget 07 impact - bug#5989740*/
5967: p_process_message => lv_process_message
5968: );
5969:
5970: IF lv_process_flag = jai_constants.unexpected_error THEN
5971: p_codepath := jai_general_pkg.plot_codepath(14.1, p_codepath);
5972: p_process_flag := 'E';
5973: p_process_message := lv_process_message;
5974: GOTO end_of_procedure;
5975:
5973: p_process_message := lv_process_message;
5974: GOTO end_of_procedure;
5975:
5976: ELSIF lv_process_flag = jai_constants.expected_error THEN
5977: p_codepath := jai_general_pkg.plot_codepath(14.2, p_codepath);
5978: ELSIF lv_process_flag = jai_constants.successful THEN
5979: p_codepath := jai_general_pkg.plot_codepath(14.3, p_codepath);
5980: p_cenvat_register_type := lv_pref1_register;
5981: GOTO end_of_procedure;
5975:
5976: ELSIF lv_process_flag = jai_constants.expected_error THEN
5977: p_codepath := jai_general_pkg.plot_codepath(14.2, p_codepath);
5978: ELSIF lv_process_flag = jai_constants.successful THEN
5979: p_codepath := jai_general_pkg.plot_codepath(14.3, p_codepath);
5980: p_cenvat_register_type := lv_pref1_register;
5981: GOTO end_of_procedure;
5982: END IF;
5983: --end bug #5989740
5992:
5993: IF lv_pref2_register = jai_constants.register_type_pla
5994: AND r_orgn_info.allow_negative_pla = jai_constants.yes
5995: THEN
5996: p_codepath := jai_general_pkg.plot_codepath(15, p_codepath);
5997: p_cenvat_register_type := lv_pref2_register;
5998: GOTO end_of_procedure;
5999: END IF;
6000: --added for bug#9854329, start
6005: ln_trx_amount := nvl( pr_tax.basic_excise,0) + nvl(pr_tax.addl_excise,0) +
6006: nvl(pr_tax.other_excise,0) + nvl(pr_tax.cvd,0) + nvl(pr_tax.addl_cvd,0);
6007: END IF;
6008: --added for bug#9854329, end
6009: p_codepath := jai_general_pkg.plot_codepath(16, p_codepath);
6010: check_cenvat_balances(
6011: p_organization_id => p_organization_id,
6012: p_location_id => p_location_id,
6013: /* p_transaction_amount => pr_tax.basic_excise +
6021: p_process_message => lv_process_message
6022: );
6023:
6024: IF lv_process_flag = jai_constants.unexpected_error THEN
6025: p_codepath := jai_general_pkg.plot_codepath(17, p_codepath);
6026: p_process_flag := 'E';
6027: p_process_message := lv_process_message;
6028: GOTO end_of_procedure;
6029:
6027: p_process_message := lv_process_message;
6028: GOTO end_of_procedure;
6029:
6030: ELSIF lv_process_flag = jai_constants.expected_error THEN
6031: p_codepath := jai_general_pkg.plot_codepath(18, p_codepath);
6032: p_process_flag := 'E';
6033: p_process_message := 'Sufficient Balances are not available in both '||lv_pref1_register||' and '||lv_pref2_register||' registers';
6034: GOTO end_of_procedure;
6035:
6034: GOTO end_of_procedure;
6035:
6036: ELSIF lv_process_flag = jai_constants.successful THEN
6037:
6038: p_codepath := jai_general_pkg.plot_codepath(19, p_codepath);
6039:
6040: IF pr_tax.excise_edu_cess + pr_tax.cvd_edu_cess <> 0 THEN /* This if condition and its else added by ssumaith - bug# 4187859*/
6041: --added for bug#9854329, start
6042: IF (p_transaction_type = 'RETURN TO VENDOR' AND nvl(r_orgn_info.CENVAT_CR_REVRSL_FLAG,'N') = 'N') THEN
6054: p_process_flag => lv_process_flag,
6055: p_process_message => lv_process_message
6056: );
6057: IF lv_process_flag = jai_constants.unexpected_error THEN
6058: p_codepath := jai_general_pkg.plot_codepath(20, p_codepath);
6059: p_process_flag := 'E';
6060: p_process_message := lv_process_message;
6061: GOTO end_of_procedure;
6062:
6060: p_process_message := lv_process_message;
6061: GOTO end_of_procedure;
6062:
6063: ELSIF lv_process_flag = jai_constants.expected_error THEN
6064: p_codepath := jai_general_pkg.plot_codepath(21, p_codepath);
6065: p_process_flag := 'E';
6066: p_process_message := 'Sufficient Balances are not available in both '||lv_pref1_register||' and '||lv_pref2_register||' registers';
6067: GOTO end_of_procedure;
6068:
6066: p_process_message := 'Sufficient Balances are not available in both '||lv_pref1_register||' and '||lv_pref2_register||' registers';
6067: GOTO end_of_procedure;
6068:
6069: ELSIF lv_process_flag = jai_constants.successful THEN
6070: p_codepath := jai_general_pkg.plot_codepath(22, p_codepath);
6071: p_cenvat_register_type := lv_pref2_register;
6072: GOTO end_of_procedure;
6073: END IF;
6074: /*added the following by vkaranam for budget 07 impact - bug#5989740*/
6091: p_process_message => lv_process_message
6092: );
6093:
6094: IF lv_process_flag = jai_constants.unexpected_error THEN
6095: p_codepath := jai_general_pkg.plot_codepath(22.1, p_codepath);
6096: p_process_flag := 'E';
6097: p_process_message := lv_process_message;
6098: GOTO end_of_procedure;
6099:
6097: p_process_message := lv_process_message;
6098: GOTO end_of_procedure;
6099:
6100: ELSIF lv_process_flag = jai_constants.expected_error THEN
6101: p_codepath := jai_general_pkg.plot_codepath(22.2, p_codepath);
6102: p_process_flag := 'E';
6103: p_process_message := 'Sufficient Balances are not available in both '||lv_pref1_register||' and '||lv_pref2_register||' registers';
6104: GOTO end_of_procedure;
6105:
6103: p_process_message := 'Sufficient Balances are not available in both '||lv_pref1_register||' and '||lv_pref2_register||' registers';
6104: GOTO end_of_procedure;
6105:
6106: ELSIF lv_process_flag = jai_constants.successful THEN
6107: p_codepath := jai_general_pkg.plot_codepath(22.3, p_codepath);
6108: p_cenvat_register_type := lv_pref2_register;
6109: GOTO end_of_procedure;
6110: END IF;
6111:
6121: END IF;
6122:
6123: <
6124:
6125: p_codepath := jai_general_pkg.plot_codepath(25, p_codepath, 'CENVAT_RG_PKG.DRV_DUTY_REG' , 'END');
6126: FND_FILE.put_line( fnd_file.log, '$derive_duty_registers. Register Type:'||p_cenvat_register_type);
6127: -- dbms_output.put_line( '$derive_duty_registers. Register Type:'||p_cenvat_register_type);
6128:
6129: EXCEPTION
6129: EXCEPTION
6130: WHEN OTHERS THEN
6131: p_process_flag := 'E';
6132: p_process_message := 'DERIVE_DUTY_REGISTERS: Error:'||SQLERRM;
6133: p_codepath := jai_general_pkg.plot_codepath(-999, p_codepath, 'CENVAT_RG_PKG.DRV_DUTY_REG' , 'END');
6134:
6135: END derive_duty_registers;
6136:
6137: PROCEDURE check_cenvat_balances(
6266: r_base_trx c_base_trx%ROWTYPE;
6267: begin
6268:
6269: lv_statement_id := '1';
6270: pv_codepath := jai_general_pkg.plot_codepath(1, pv_codepath, 'jai_rcv_excise_processing_pkg.rtv_processing_for_ssi', 'START');
6271: lv_simulate_flag := jai_constants.no;
6272: lv_register_entry_type := jai_rcv_excise_processing_pkg.cenvat_debit;
6273:
6274: open c_trx(pn_transaction_id);
6297: end if;
6298:
6299: if r_diff_tax.excise_edu_cess <> 0 and ln_excise_cess_accnt_id is null then
6300: lv_statement_id := '2.1';
6301: pv_codepath := jai_general_pkg.plot_codepath(2.1, pv_codepath);
6302: pv_process_status := 'E';
6303: pv_process_message := 'Excise Education cess account is not defined in the tax. (TaxId:'||ln_excise_cess_tax_id||')';
6304: GOTO end_of_procedure;
6305: end if;
6316: end if;
6317:
6318: if r_diff_tax.sh_exc_edu_cess <> 0 and ln_excise_sh_cess_accnt_id is null then
6319: lv_statement_id := '2.1';
6320: pv_codepath := jai_general_pkg.plot_codepath(2.1, pv_codepath);
6321: pv_process_status := 'E';
6322: pv_process_message := 'Excise SH Education cess account is not defined in the tax. (TaxId:'||ln_excise_sh_cess_tax_id||')';
6323: GOTO end_of_procedure;
6324: end if;
6345:
6346: if lv_cenvat_register_type IN (jai_constants.register_type_a, jai_constants.register_type_c) then
6347:
6348: lv_statement_id := '5';
6349: pv_codepath := jai_general_pkg.plot_codepath(17, pv_codepath);
6350:
6351: lv_reference_num := 'CENVAT-SSI';
6352: /*
6353: jai_rcv_excise_processing_pkg.rg23_part_ii_entry(
6387: lv_reference_name := 'JAI_CMN_RG_23AC_II_TRXS';
6388: ln_reference_id := ln_part_ii_register_id;
6389: elsif lv_cenvat_register_type = jai_constants.register_type_pla THEN
6390: lv_statement_id := '7';
6391: pv_codepath := jai_general_pkg.plot_codepath(17.1, pv_codepath);
6392: /* Bug 5365346. Added by Lakshmi Gopalsami
6393: Commented the call to pla entry and added
6394: jai_rcv_excise_processing_pkg.pla_entry(
6395: p_transaction_id => r_trx.transaction_id,
6426: lv_reference_name := 'JAI_CMN_RG_PLA_TRXS';
6427: ln_reference_id := ln_part_ii_register_id;
6428: else
6429: lv_statement_id := '9';
6430: pv_codepath := jai_general_pkg.plot_codepath(17.2, pv_codepath);
6431: pv_process_status := 'E';
6432: pv_process_message := 'Duty Register cannot be derived';
6433: GOTO end_of_procedure;
6434: end if;
6762:
6763: lv_statement_id := '29';
6764: pv_process_status := jai_constants.yes;
6765: <
6766: pv_codepath := jai_general_pkg.plot_codepath(75, pv_codepath, 'jai_rcv_excise_processing_pkg.rtv_processing_for_ssi', 'END');
6767:
6768: exception
6769: when others then
6770: pv_process_status := 'E';
6769: when others then
6770: pv_process_status := 'E';
6771: pv_process_message := 'Unexpected error in jai_rcv_excise_processing_pkg.rtv_processing_for_ssi(StmtId:'
6772: ||lv_statement_id||'). ErrMsg:'||SQLERRM;
6773: pv_codepath := jai_general_pkg.plot_codepath(999, pv_codepath, 'jai_rcv_excise_processing_pkg.rtv_processing_for_ssi', 'END');
6774:
6775: end rtv_processing_for_ssi;
6776: --start additions for bug#4750798
6777: PROCEDURE get_excise_tax_rounding_factor(