678: SET credit = credit + ln_other_tax_credit,
679: debit = debit + ln_other_tax_debit,
680: opening_balance = opening_balance,
681: closing_balance = closing_balance + ln_ex_cess_diff
682: WHERE source_register = decode(p_source_reg,'PLA', jai_constants.reg_pla,
683: decode(lv_register_type,
684: jai_constants.register_type_a,
685: jai_constants.reg_rg23a_2,
686: jai_constants.reg_rg23c_2
680: opening_balance = opening_balance,
681: closing_balance = closing_balance + ln_ex_cess_diff
682: WHERE source_register = decode(p_source_reg,'PLA', jai_constants.reg_pla,
683: decode(lv_register_type,
684: jai_constants.register_type_a,
685: jai_constants.reg_rg23a_2,
686: jai_constants.reg_rg23c_2
687: )
688: )
681: closing_balance = closing_balance + ln_ex_cess_diff
682: WHERE source_register = decode(p_source_reg,'PLA', jai_constants.reg_pla,
683: decode(lv_register_type,
684: jai_constants.register_type_a,
685: jai_constants.reg_rg23a_2,
686: jai_constants.reg_rg23c_2
687: )
688: )
689: AND source_register_id = p_register_id
682: WHERE source_register = decode(p_source_reg,'PLA', jai_constants.reg_pla,
683: decode(lv_register_type,
684: jai_constants.register_type_a,
685: jai_constants.reg_rg23a_2,
686: jai_constants.reg_rg23c_2
687: )
688: )
689: AND source_register_id = p_register_id
690: AND tax_type = jai_constants.tax_type_exc_edu_cess;
686: jai_constants.reg_rg23c_2
687: )
688: )
689: AND source_register_id = p_register_id
690: AND tax_type = jai_constants.tax_type_exc_edu_cess;
691: END IF; /* Excise cess*/
692:
693: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath);
694:
706: SET credit = credit + ln_other_tax_credit,
707: debit = debit + ln_other_tax_debit,
708: opening_balance = opening_balance,
709: closing_balance = closing_balance + ln_cvd_cess_diff
710: WHERE source_register = decode(p_source_reg,'PLA', jai_constants.reg_pla,
711: decode(lv_register_type,
712: jai_constants.register_type_a,
713: jai_constants.reg_rg23a_2,
714: jai_constants.reg_rg23c_2
708: opening_balance = opening_balance,
709: closing_balance = closing_balance + ln_cvd_cess_diff
710: WHERE source_register = decode(p_source_reg,'PLA', jai_constants.reg_pla,
711: decode(lv_register_type,
712: jai_constants.register_type_a,
713: jai_constants.reg_rg23a_2,
714: jai_constants.reg_rg23c_2
715: )
716: )
709: closing_balance = closing_balance + ln_cvd_cess_diff
710: WHERE source_register = decode(p_source_reg,'PLA', jai_constants.reg_pla,
711: decode(lv_register_type,
712: jai_constants.register_type_a,
713: jai_constants.reg_rg23a_2,
714: jai_constants.reg_rg23c_2
715: )
716: )
717: AND source_register_id = p_register_id
710: WHERE source_register = decode(p_source_reg,'PLA', jai_constants.reg_pla,
711: decode(lv_register_type,
712: jai_constants.register_type_a,
713: jai_constants.reg_rg23a_2,
714: jai_constants.reg_rg23c_2
715: )
716: )
717: AND source_register_id = p_register_id
718: AND tax_type = jai_constants.tax_type_cvd_edu_cess;
714: jai_constants.reg_rg23c_2
715: )
716: )
717: AND source_register_id = p_register_id
718: AND tax_type = jai_constants.tax_type_cvd_edu_cess;
719: END IF; /* CVD Cess */
720:
721: --For Excise SH Edu cess
722: IF pr_diff_tax.sh_exc_edu_cess <> 0 THEN
733: SET credit = credit + ln_other_tax_credit,
734: debit = debit + ln_other_tax_debit,
735: opening_balance = opening_balance,
736: closing_balance = closing_balance + ln_ex_sh_cess_diff
737: WHERE source_register = decode(p_source_reg,'PLA', jai_constants.reg_pla,
738: decode(lv_register_type,
739: jai_constants.register_type_a,
740: jai_constants.reg_rg23a_2,
741: jai_constants.reg_rg23c_2
735: opening_balance = opening_balance,
736: closing_balance = closing_balance + ln_ex_sh_cess_diff
737: WHERE source_register = decode(p_source_reg,'PLA', jai_constants.reg_pla,
738: decode(lv_register_type,
739: jai_constants.register_type_a,
740: jai_constants.reg_rg23a_2,
741: jai_constants.reg_rg23c_2
742: )
743: )
736: closing_balance = closing_balance + ln_ex_sh_cess_diff
737: WHERE source_register = decode(p_source_reg,'PLA', jai_constants.reg_pla,
738: decode(lv_register_type,
739: jai_constants.register_type_a,
740: jai_constants.reg_rg23a_2,
741: jai_constants.reg_rg23c_2
742: )
743: )
744: AND source_register_id = p_register_id
737: WHERE source_register = decode(p_source_reg,'PLA', jai_constants.reg_pla,
738: decode(lv_register_type,
739: jai_constants.register_type_a,
740: jai_constants.reg_rg23a_2,
741: jai_constants.reg_rg23c_2
742: )
743: )
744: AND source_register_id = p_register_id
745: AND tax_type = jai_constants.tax_type_sh_exc_edu_cess;
741: jai_constants.reg_rg23c_2
742: )
743: )
744: AND source_register_id = p_register_id
745: AND tax_type = jai_constants.tax_type_sh_exc_edu_cess;
746: END IF; /* Excise SH cess*/
747:
748: --For CVD SH cess
749: IF pr_diff_tax.sh_cvd_edu_cess <> 0 THEN
760: SET credit = credit + ln_other_tax_credit,
761: debit = debit + ln_other_tax_debit,
762: opening_balance = opening_balance,
763: closing_balance = closing_balance + ln_cvd_sh_cess_diff
764: WHERE source_register = decode(p_source_reg,'PLA', jai_constants.reg_pla,
765: decode(lv_register_type,
766: jai_constants.register_type_a,
767: jai_constants.reg_rg23a_2,
768: jai_constants.reg_rg23c_2
762: opening_balance = opening_balance,
763: closing_balance = closing_balance + ln_cvd_sh_cess_diff
764: WHERE source_register = decode(p_source_reg,'PLA', jai_constants.reg_pla,
765: decode(lv_register_type,
766: jai_constants.register_type_a,
767: jai_constants.reg_rg23a_2,
768: jai_constants.reg_rg23c_2
769: )
770: )
763: closing_balance = closing_balance + ln_cvd_sh_cess_diff
764: WHERE source_register = decode(p_source_reg,'PLA', jai_constants.reg_pla,
765: decode(lv_register_type,
766: jai_constants.register_type_a,
767: jai_constants.reg_rg23a_2,
768: jai_constants.reg_rg23c_2
769: )
770: )
771: AND source_register_id = p_register_id
764: WHERE source_register = decode(p_source_reg,'PLA', jai_constants.reg_pla,
765: decode(lv_register_type,
766: jai_constants.register_type_a,
767: jai_constants.reg_rg23a_2,
768: jai_constants.reg_rg23c_2
769: )
770: )
771: AND source_register_id = p_register_id
772: AND tax_type = jai_constants.tax_type_sh_cvd_edu_cess;
768: jai_constants.reg_rg23c_2
769: )
770: )
771: AND source_register_id = p_register_id
772: AND tax_type = jai_constants.tax_type_sh_cvd_edu_cess;
773: END IF; /* CVD SH Cess */
774:
775: EXCEPTION
776: WHEN OTHERS THEN
1561: lv_edu_cess_register_type := NULL;
1562: END IF;
1563:
1564: IF (lv_cenvat_register_type IS NULL AND lv_edu_cess_register_type IS NULL)
1565: OR lv_cenvat_register_type IN (jai_constants.register_type_a, jai_constants.register_type_c)
1566: THEN
1567:
1568: lv_statement_id := '13';
1569: p_codepath := jai_general_pkg.plot_codepath(17, p_codepath);
1604: IF ln_part_ii_register_id IS NOT NULL THEN
1605: lv_part_ii_register := 'RG23'||lv_register_type;
1606: END IF;
1607:
1608: ELSIF lv_cenvat_register_type = jai_constants.register_type_pla THEN
1609:
1610: lv_statement_id := '13.2';
1611: p_codepath := jai_general_pkg.plot_codepath(17.1, p_codepath);
1612: pla_entry(
2297: CURSOR c_tax_rate(cp_shipment_line_id IN NUMBER) IS
2298: SELECT tax_rate
2299: FROM JAI_RCV_LINE_TAXES
2300: WHERE shipment_line_id = cp_shipment_line_id
2301: AND tax_type IN (jai_constants.tax_type_excise,
2302: jai_constants.tax_type_exc_additional,
2303: jai_constants.tax_type_exc_other,
2304: jai_constants.tax_type_cvd,
2305: jai_constants.tax_type_add_cvd)
2298: SELECT tax_rate
2299: FROM JAI_RCV_LINE_TAXES
2300: WHERE shipment_line_id = cp_shipment_line_id
2301: AND tax_type IN (jai_constants.tax_type_excise,
2302: jai_constants.tax_type_exc_additional,
2303: jai_constants.tax_type_exc_other,
2304: jai_constants.tax_type_cvd,
2305: jai_constants.tax_type_add_cvd)
2306: --AND upper(tax_type) IN ('EXCISE', 'ADDL. EXCISE', 'OTHER EXCISE', 'CVD')
2299: FROM JAI_RCV_LINE_TAXES
2300: WHERE shipment_line_id = cp_shipment_line_id
2301: AND tax_type IN (jai_constants.tax_type_excise,
2302: jai_constants.tax_type_exc_additional,
2303: jai_constants.tax_type_exc_other,
2304: jai_constants.tax_type_cvd,
2305: jai_constants.tax_type_add_cvd)
2306: --AND upper(tax_type) IN ('EXCISE', 'ADDL. EXCISE', 'OTHER EXCISE', 'CVD')
2307: -- we need not include the CESS here, because the rate should correspond to actual tax instead of cess
2300: WHERE shipment_line_id = cp_shipment_line_id
2301: AND tax_type IN (jai_constants.tax_type_excise,
2302: jai_constants.tax_type_exc_additional,
2303: jai_constants.tax_type_exc_other,
2304: jai_constants.tax_type_cvd,
2305: jai_constants.tax_type_add_cvd)
2306: --AND upper(tax_type) IN ('EXCISE', 'ADDL. EXCISE', 'OTHER EXCISE', 'CVD')
2307: -- we need not include the CESS here, because the rate should correspond to actual tax instead of cess
2308: ORDER BY tax_line_no;
2301: AND tax_type IN (jai_constants.tax_type_excise,
2302: jai_constants.tax_type_exc_additional,
2303: jai_constants.tax_type_exc_other,
2304: jai_constants.tax_type_cvd,
2305: jai_constants.tax_type_add_cvd)
2306: --AND upper(tax_type) IN ('EXCISE', 'ADDL. EXCISE', 'OTHER EXCISE', 'CVD')
2307: -- we need not include the CESS here, because the rate should correspond to actual tax instead of cess
2308: ORDER BY tax_line_no;
2309:
2535: ELSE
2536: ln_other_tax_credit := pr_tax.excise_edu_cess;
2537: END IF;
2538: jai_rcv_excise_processing_pkg.other_cenvat_rg_recording(
2539: p_source_register => jai_constants.reg_rg23d,
2540: p_source_register_id => p_register_id,
2541: p_tax_type => jai_constants.tax_type_exc_edu_cess,
2542: p_credit => ln_other_tax_credit,
2543: p_debit => ln_other_tax_debit,
2537: END IF;
2538: jai_rcv_excise_processing_pkg.other_cenvat_rg_recording(
2539: p_source_register => jai_constants.reg_rg23d,
2540: p_source_register_id => p_register_id,
2541: p_tax_type => jai_constants.tax_type_exc_edu_cess,
2542: p_credit => ln_other_tax_credit,
2543: p_debit => ln_other_tax_debit,
2544: p_process_status => p_process_status,
2545: p_process_message => p_process_message
2555: ELSE
2556: ln_other_tax_credit := pr_tax.cvd_edu_cess;
2557: END IF;
2558: jai_rcv_excise_processing_pkg.other_cenvat_rg_recording(
2559: p_source_register => jai_constants.reg_rg23d,
2560: p_source_register_id => p_register_id,
2561: p_tax_type => jai_constants.tax_type_cvd_edu_cess,
2562: p_credit => ln_other_tax_credit,
2563: p_debit => ln_other_tax_debit,
2557: END IF;
2558: jai_rcv_excise_processing_pkg.other_cenvat_rg_recording(
2559: p_source_register => jai_constants.reg_rg23d,
2560: p_source_register_id => p_register_id,
2561: p_tax_type => jai_constants.tax_type_cvd_edu_cess,
2562: p_credit => ln_other_tax_credit,
2563: p_debit => ln_other_tax_debit,
2564: p_process_status => p_process_status,
2565: p_process_message => p_process_message
2577: ln_other_tax_credit := pr_tax.sh_exc_edu_cess;
2578: END IF;
2579:
2580: jai_rcv_excise_processing_pkg.other_cenvat_rg_recording(
2581: p_source_register => jai_constants.reg_rg23d,
2582: p_source_register_id => p_register_id,
2583: p_tax_type => jai_constants.tax_type_sh_exc_edu_cess,
2584: p_credit => ln_other_tax_credit,
2585: p_debit => ln_other_tax_debit,
2579:
2580: jai_rcv_excise_processing_pkg.other_cenvat_rg_recording(
2581: p_source_register => jai_constants.reg_rg23d,
2582: p_source_register_id => p_register_id,
2583: p_tax_type => jai_constants.tax_type_sh_exc_edu_cess,
2584: p_credit => ln_other_tax_credit,
2585: p_debit => ln_other_tax_debit,
2586: p_process_status => p_process_status,
2587: p_process_message => p_process_message
2597: ELSE
2598: ln_other_tax_credit := pr_tax.sh_cvd_edu_cess;
2599: END IF;
2600: jai_rcv_excise_processing_pkg.other_cenvat_rg_recording(
2601: p_source_register => jai_constants.reg_rg23d,
2602: p_source_register_id => p_register_id,
2603: p_tax_type => jai_constants.tax_type_sh_cvd_edu_cess,
2604: p_credit => ln_other_tax_credit,
2605: p_debit => ln_other_tax_debit,
2599: END IF;
2600: jai_rcv_excise_processing_pkg.other_cenvat_rg_recording(
2601: p_source_register => jai_constants.reg_rg23d,
2602: p_source_register_id => p_register_id,
2603: p_tax_type => jai_constants.tax_type_sh_cvd_edu_cess,
2604: p_credit => ln_other_tax_credit,
2605: p_debit => ln_other_tax_debit,
2606: p_process_status => p_process_status,
2607: p_process_message => p_process_message
2814: FND_FILE.put_line(FND_FILE.log,'Calling jai_cmn_rg_23ac_ii_pkg.insert_row');
2815: end if;
2816:
2817: lv_register_type := jai_general_pkg.get_rg_register_type(r_trx.item_class);
2818: if lv_register_type = jai_constants.register_type_a then
2819: lv_source_register := jai_constants.reg_rg23a_2;
2820: else
2821: lv_source_register := jai_constants.reg_rg23c_2;
2822: end if;
2815: end if;
2816:
2817: lv_register_type := jai_general_pkg.get_rg_register_type(r_trx.item_class);
2818: if lv_register_type = jai_constants.register_type_a then
2819: lv_source_register := jai_constants.reg_rg23a_2;
2820: else
2821: lv_source_register := jai_constants.reg_rg23c_2;
2822: end if;
2823:
2817: lv_register_type := jai_general_pkg.get_rg_register_type(r_trx.item_class);
2818: if lv_register_type = jai_constants.register_type_a then
2819: lv_source_register := jai_constants.reg_rg23a_2;
2820: else
2821: lv_source_register := jai_constants.reg_rg23c_2;
2822: end if;
2823:
2824: lv_statement_id := '5';
2825: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
2872: END IF;
2873: jai_rcv_excise_processing_pkg.other_cenvat_rg_recording(
2874: p_source_register => lv_source_register,
2875: p_source_register_id => p_register_id,
2876: p_tax_type => jai_constants.tax_type_exc_edu_cess,
2877: p_credit => ln_other_tax_credit,
2878: p_debit => ln_other_tax_debit,
2879: p_process_status => p_process_status,
2880: p_process_message => p_process_message
2891: END IF;
2892: jai_rcv_excise_processing_pkg.other_cenvat_rg_recording(
2893: p_source_register => lv_source_register,
2894: p_source_register_id => p_register_id,
2895: p_tax_type => jai_constants.tax_type_cvd_edu_cess,
2896: p_credit => ln_other_tax_credit,
2897: p_debit => ln_other_tax_debit,
2898: p_process_status => p_process_status,
2899: p_process_message => p_process_message
2910: END IF;
2911: jai_rcv_excise_processing_pkg.other_cenvat_rg_recording(
2912: p_source_register => lv_source_register,
2913: p_source_register_id => p_register_id,
2914: p_tax_type => jai_constants.tax_type_sh_exc_edu_cess,
2915: p_credit => ln_other_tax_credit,
2916: p_debit => ln_other_tax_debit,
2917: p_process_status => p_process_status,
2918: p_process_message => p_process_message
2929: END IF;
2930: jai_rcv_excise_processing_pkg.other_cenvat_rg_recording(
2931: p_source_register => lv_source_register,
2932: p_source_register_id => p_register_id,
2933: p_tax_type => jai_constants.tax_type_sh_cvd_edu_cess,
2934: p_credit => ln_other_tax_credit,
2935: p_debit => ln_other_tax_debit,
2936: p_process_status => p_process_status,
2937: p_process_message => p_process_message
3111: ELSE
3112: ln_other_tax_credit := pr_tax.excise_edu_cess;
3113: END IF;
3114: jai_rcv_excise_processing_pkg.other_cenvat_rg_recording(
3115: p_source_register => jai_constants.reg_pla,
3116: p_source_register_id => p_register_id,
3117: p_tax_type => jai_constants.tax_type_exc_edu_cess,
3118: p_credit => ln_other_tax_credit,
3119: p_debit => ln_other_tax_debit,
3113: END IF;
3114: jai_rcv_excise_processing_pkg.other_cenvat_rg_recording(
3115: p_source_register => jai_constants.reg_pla,
3116: p_source_register_id => p_register_id,
3117: p_tax_type => jai_constants.tax_type_exc_edu_cess,
3118: p_credit => ln_other_tax_credit,
3119: p_debit => ln_other_tax_debit,
3120: p_process_status => p_process_status,
3121: p_process_message => p_process_message
3130: ELSE
3131: ln_other_tax_credit := pr_tax.cvd_edu_cess;
3132: END IF;
3133: jai_rcv_excise_processing_pkg.other_cenvat_rg_recording(
3134: p_source_register => jai_constants.reg_pla,
3135: p_source_register_id => p_register_id,
3136: p_tax_type => jai_constants.tax_type_cvd_edu_cess,
3137: p_credit => ln_other_tax_credit,
3138: p_debit => ln_other_tax_debit,
3132: END IF;
3133: jai_rcv_excise_processing_pkg.other_cenvat_rg_recording(
3134: p_source_register => jai_constants.reg_pla,
3135: p_source_register_id => p_register_id,
3136: p_tax_type => jai_constants.tax_type_cvd_edu_cess,
3137: p_credit => ln_other_tax_credit,
3138: p_debit => ln_other_tax_debit,
3139: p_process_status => p_process_status,
3140: p_process_message => p_process_message
3151: ln_other_tax_credit := nvl(pr_tax.sh_exc_edu_cess,0);
3152: END IF;
3153:
3154: jai_rcv_excise_processing_pkg.other_cenvat_rg_recording(
3155: p_source_register => jai_constants.reg_pla,
3156: p_source_register_id => p_register_id,
3157: p_tax_type => jai_constants.tax_type_sh_exc_edu_cess,
3158: p_credit => ln_other_tax_credit,
3159: p_debit => ln_other_tax_debit,
3153:
3154: jai_rcv_excise_processing_pkg.other_cenvat_rg_recording(
3155: p_source_register => jai_constants.reg_pla,
3156: p_source_register_id => p_register_id,
3157: p_tax_type => jai_constants.tax_type_sh_exc_edu_cess,
3158: p_credit => ln_other_tax_credit,
3159: p_debit => ln_other_tax_debit,
3160: p_process_status => p_process_status,
3161: p_process_message => p_process_message
3170: ELSE
3171: ln_other_tax_credit := nvl(pr_tax.sh_cvd_edu_cess,0);
3172: END IF;
3173: jai_rcv_excise_processing_pkg.other_cenvat_rg_recording(
3174: p_source_register => jai_constants.reg_pla,
3175: p_source_register_id => p_register_id,
3176: p_tax_type => jai_constants.tax_type_sh_cvd_edu_cess,
3177: p_credit => ln_other_tax_credit,
3178: p_debit => ln_other_tax_debit,
3172: END IF;
3173: jai_rcv_excise_processing_pkg.other_cenvat_rg_recording(
3174: p_source_register => jai_constants.reg_pla,
3175: p_source_register_id => p_register_id,
3176: p_tax_type => jai_constants.tax_type_sh_cvd_edu_cess,
3177: p_credit => ln_other_tax_credit,
3178: p_debit => ln_other_tax_debit,
3179: p_process_status => p_process_status,
3180: p_process_message => p_process_message
4582: /* End of bug 5378630 */
4583: lv_validation_message := 'RMA Type Not supported';
4584:
4585: -- Vijay Shankar for Bug#4346453. RCV DFF Elim. Enh. ELSIF r_base_trx.attr_cat = 'India Receipt' THEN
4586: ELSIF r_base_trx.source_document_code IN ( jai_constants.source_po,lv_source_req ) THEN /* added by aiyer for the bug 5378630 */
4587: IF r_trx.organization_type = 'M' AND r_trx.item_class IN ('FGIN', 'FGEX')
4588: and r_base_trx.source_document_code <> 'INVENTORY' THEN /* 6030615 - interorg */
4589: lv_validation_message := 'Item Class not supported for Manufacturing Transactions';
4590:
4873: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
4874: pr_tax.cvd := pr_tax.cvd + round(tax_rec.tax_amount * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
4875:
4876: -- Start, Vijay Shankar for Bug#3940588
4877: ELSIF tax_rec.tax_type = jai_constants.tax_type_exc_edu_cess THEN
4878: pr_tax.excise_edu_cess := pr_tax.excise_edu_cess + round(tax_rec.tax_amount * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
4879:
4880: ELSIF tax_rec.tax_type = jai_constants.tax_type_cvd_edu_cess THEN
4881: pr_tax.cvd_edu_cess := pr_tax.cvd_edu_cess + round(tax_rec.tax_amount * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
4876: -- Start, Vijay Shankar for Bug#3940588
4877: ELSIF tax_rec.tax_type = jai_constants.tax_type_exc_edu_cess THEN
4878: pr_tax.excise_edu_cess := pr_tax.excise_edu_cess + round(tax_rec.tax_amount * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
4879:
4880: ELSIF tax_rec.tax_type = jai_constants.tax_type_cvd_edu_cess THEN
4881: pr_tax.cvd_edu_cess := pr_tax.cvd_edu_cess + round(tax_rec.tax_amount * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
4882: -- End, Vijay Shankar for Bug#3940588
4883: /*added the following by vkaranam for budget 07 impact - bug#5989740*/
4884: --start
4881: pr_tax.cvd_edu_cess := pr_tax.cvd_edu_cess + round(tax_rec.tax_amount * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
4882: -- End, Vijay Shankar for Bug#3940588
4883: /*added the following by vkaranam for budget 07 impact - bug#5989740*/
4884: --start
4885: ELSIF tax_rec.tax_type = jai_constants.tax_type_sh_cvd_edu_cess THEN
4886: pr_tax.sh_cvd_edu_cess := nvl(pr_tax.sh_cvd_edu_cess,0) + round(tax_rec.tax_amount * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
4887:
4888: ELSIF tax_rec.tax_type = jai_constants.tax_type_sh_exc_edu_cess THEN
4889: pr_tax.sh_exc_edu_cess := nvl(pr_tax.sh_exc_edu_cess,0) + round(tax_rec.tax_amount * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
4884: --start
4885: ELSIF tax_rec.tax_type = jai_constants.tax_type_sh_cvd_edu_cess THEN
4886: pr_tax.sh_cvd_edu_cess := nvl(pr_tax.sh_cvd_edu_cess,0) + round(tax_rec.tax_amount * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
4887:
4888: ELSIF tax_rec.tax_type = jai_constants.tax_type_sh_exc_edu_cess THEN
4889: pr_tax.sh_exc_edu_cess := nvl(pr_tax.sh_exc_edu_cess,0) + round(tax_rec.tax_amount * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
4890:
4891: --end bug #5989740*/
4892:
4889: pr_tax.sh_exc_edu_cess := nvl(pr_tax.sh_exc_edu_cess,0) + round(tax_rec.tax_amount * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
4890:
4891: --end bug #5989740*/
4892:
4893: ELSIF tax_rec.tax_type = jai_constants.tax_type_add_cvd THEN
4894: p_codepath := jai_general_pkg.plot_codepath(7.1, p_codepath); /* 7.1 */
4895: pr_tax.addl_cvd := pr_tax.addl_cvd + round(tax_rec.tax_amount * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
4896: ELSE
4897: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
4906: 'OTHER EXCISE', 'CVD',
4907: -- Bug 5143906. Added by Lakshmi Gopalsami
4908: -- Included Addl. CVD
4909: 'ADDITIONAL_CVD',
4910: jai_constants.tax_type_exc_edu_cess,
4911: jai_constants.tax_type_cvd_edu_cess,
4912: /*added the following by vkaranam for budget 07 impact - bug#5989740*/
4913: jai_constants.tax_type_sh_cvd_edu_cess,
4914: jai_constants.tax_type_sh_exc_edu_cess)
4907: -- Bug 5143906. Added by Lakshmi Gopalsami
4908: -- Included Addl. CVD
4909: 'ADDITIONAL_CVD',
4910: jai_constants.tax_type_exc_edu_cess,
4911: jai_constants.tax_type_cvd_edu_cess,
4912: /*added the following by vkaranam for budget 07 impact - bug#5989740*/
4913: jai_constants.tax_type_sh_cvd_edu_cess,
4914: jai_constants.tax_type_sh_exc_edu_cess)
4915: THEN
4909: 'ADDITIONAL_CVD',
4910: jai_constants.tax_type_exc_edu_cess,
4911: jai_constants.tax_type_cvd_edu_cess,
4912: /*added the following by vkaranam for budget 07 impact - bug#5989740*/
4913: jai_constants.tax_type_sh_cvd_edu_cess,
4914: jai_constants.tax_type_sh_exc_edu_cess)
4915: THEN
4916:
4917: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
4910: jai_constants.tax_type_exc_edu_cess,
4911: jai_constants.tax_type_cvd_edu_cess,
4912: /*added the following by vkaranam for budget 07 impact - bug#5989740*/
4913: jai_constants.tax_type_sh_cvd_edu_cess,
4914: jai_constants.tax_type_sh_exc_edu_cess)
4915: THEN
4916:
4917: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
4918: IF upper(tax_rec.tax_type) = 'EXCISE' THEN
4943: pr_tax.non_cenvat := pr_tax.non_cenvat
4944: + round(tax_rec.tax_amount * (1 - tax_rec.mod_cr_percentage/100) * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
4945: -- Date 04/06/2007 by sacsethi for bug 6109941
4946: -- Code review from bug 5228046
4947: ELSIF tax_rec.tax_type IN ( jai_constants.tax_type_add_cvd) THEN
4948: p_codepath := jai_general_pkg.plot_codepath(14, p_codepath); /* 14 */
4949: pr_tax.addl_cvd := pr_tax.addl_cvd
4950: + round(tax_rec.tax_amount * (tax_rec.mod_cr_percentage/100) * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
4951: pr_tax.non_cenvat := pr_tax.non_cenvat
4951: pr_tax.non_cenvat := pr_tax.non_cenvat
4952: + round(tax_rec.tax_amount * (1 - tax_rec.mod_cr_percentage/100) * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
4953: -------------------------------------------------
4954: -- Start, Vijay Shankar for Bug#3940588
4955: ELSIF tax_rec.tax_type = jai_constants.tax_type_exc_edu_cess THEN
4956: pr_tax.excise_edu_cess := pr_tax.excise_edu_cess +
4957: + round(tax_rec.tax_amount * (tax_rec.mod_cr_percentage/100) * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
4958: pr_tax.non_cenvat := pr_tax.non_cenvat
4959: + round(tax_rec.tax_amount * (1 - tax_rec.mod_cr_percentage/100) * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
4957: + round(tax_rec.tax_amount * (tax_rec.mod_cr_percentage/100) * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
4958: pr_tax.non_cenvat := pr_tax.non_cenvat
4959: + round(tax_rec.tax_amount * (1 - tax_rec.mod_cr_percentage/100) * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
4960:
4961: ELSIF tax_rec.tax_type = jai_constants.tax_type_cvd_edu_cess THEN
4962: pr_tax.cvd_edu_cess := pr_tax.cvd_edu_cess
4963: + round(tax_rec.tax_amount * (tax_rec.mod_cr_percentage/100) * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
4964: pr_tax.non_cenvat := pr_tax.non_cenvat
4965: + round(tax_rec.tax_amount * (1 - tax_rec.mod_cr_percentage/100) * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
4965: + round(tax_rec.tax_amount * (1 - tax_rec.mod_cr_percentage/100) * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
4966: -- End, Vijay Shankar for Bug#3940588
4967: /*added the following by vkaranam for budget 07 impact - bug#5989740*/
4968: --start
4969: ELSIF tax_rec.tax_type = jai_constants.tax_type_sh_exc_edu_cess THEN
4970:
4971: pr_tax.sh_exc_edu_cess := nvl(pr_tax.sh_exc_edu_cess,0)+
4972: + round(tax_rec.tax_amount * (tax_rec.mod_cr_percentage/100) * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
4973: pr_tax.non_cenvat := pr_tax.non_cenvat
4971: pr_tax.sh_exc_edu_cess := nvl(pr_tax.sh_exc_edu_cess,0)+
4972: + round(tax_rec.tax_amount * (tax_rec.mod_cr_percentage/100) * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
4973: pr_tax.non_cenvat := pr_tax.non_cenvat
4974: + round(tax_rec.tax_amount * (1 - tax_rec.mod_cr_percentage/100) * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
4975: ELSIF tax_rec.tax_type = jai_constants.tax_type_sh_cvd_edu_cess THEN
4976:
4977: pr_tax.sh_cvd_edu_cess := nvl(pr_tax.sh_cvd_edu_cess,0)+
4978: + round(tax_rec.tax_amount * (tax_rec.mod_cr_percentage/100) * ln_curr_conv * ln_apportion_factor, tax_rec.rnd);
4979: pr_tax.non_cenvat := pr_tax.non_cenvat
5033: ln_source_type NUMBER(2);
5034: lv_object_name CONSTANT VARCHAR2 (61) := 'jai_rcv_excise_processing_pkg.other_cenvat_rg_recording';
5035: BEGIN
5036:
5037: IF p_source_register IN (jai_constants.reg_rg23a_2, jai_constants.reg_rg23c_2) THEN
5038: ln_source_type := jai_constants.reg_rg23_2_code;
5039: ELSIF p_source_register = jai_constants.reg_rg23d THEN
5040: ln_source_type := jai_constants.reg_rg23d_code;
5041: ELSIF p_source_register = jai_constants.reg_pla THEN
5034: lv_object_name CONSTANT VARCHAR2 (61) := 'jai_rcv_excise_processing_pkg.other_cenvat_rg_recording';
5035: BEGIN
5036:
5037: IF p_source_register IN (jai_constants.reg_rg23a_2, jai_constants.reg_rg23c_2) THEN
5038: ln_source_type := jai_constants.reg_rg23_2_code;
5039: ELSIF p_source_register = jai_constants.reg_rg23d THEN
5040: ln_source_type := jai_constants.reg_rg23d_code;
5041: ELSIF p_source_register = jai_constants.reg_pla THEN
5042: ln_source_type := jai_constants.reg_pla_code;
5035: BEGIN
5036:
5037: IF p_source_register IN (jai_constants.reg_rg23a_2, jai_constants.reg_rg23c_2) THEN
5038: ln_source_type := jai_constants.reg_rg23_2_code;
5039: ELSIF p_source_register = jai_constants.reg_rg23d THEN
5040: ln_source_type := jai_constants.reg_rg23d_code;
5041: ELSIF p_source_register = jai_constants.reg_pla THEN
5042: ln_source_type := jai_constants.reg_pla_code;
5043: ELSIF p_source_register = jai_constants.reg_receipt_cenvat THEN
5036:
5037: IF p_source_register IN (jai_constants.reg_rg23a_2, jai_constants.reg_rg23c_2) THEN
5038: ln_source_type := jai_constants.reg_rg23_2_code;
5039: ELSIF p_source_register = jai_constants.reg_rg23d THEN
5040: ln_source_type := jai_constants.reg_rg23d_code;
5041: ELSIF p_source_register = jai_constants.reg_pla THEN
5042: ln_source_type := jai_constants.reg_pla_code;
5043: ELSIF p_source_register = jai_constants.reg_receipt_cenvat THEN
5044: ln_source_type := jai_constants.reg_receipt_cenvat_code;
5037: IF p_source_register IN (jai_constants.reg_rg23a_2, jai_constants.reg_rg23c_2) THEN
5038: ln_source_type := jai_constants.reg_rg23_2_code;
5039: ELSIF p_source_register = jai_constants.reg_rg23d THEN
5040: ln_source_type := jai_constants.reg_rg23d_code;
5041: ELSIF p_source_register = jai_constants.reg_pla THEN
5042: ln_source_type := jai_constants.reg_pla_code;
5043: ELSIF p_source_register = jai_constants.reg_receipt_cenvat THEN
5044: ln_source_type := jai_constants.reg_receipt_cenvat_code;
5045: END IF;
5038: ln_source_type := jai_constants.reg_rg23_2_code;
5039: ELSIF p_source_register = jai_constants.reg_rg23d THEN
5040: ln_source_type := jai_constants.reg_rg23d_code;
5041: ELSIF p_source_register = jai_constants.reg_pla THEN
5042: ln_source_type := jai_constants.reg_pla_code;
5043: ELSIF p_source_register = jai_constants.reg_receipt_cenvat THEN
5044: ln_source_type := jai_constants.reg_receipt_cenvat_code;
5045: END IF;
5046:
5039: ELSIF p_source_register = jai_constants.reg_rg23d THEN
5040: ln_source_type := jai_constants.reg_rg23d_code;
5041: ELSIF p_source_register = jai_constants.reg_pla THEN
5042: ln_source_type := jai_constants.reg_pla_code;
5043: ELSIF p_source_register = jai_constants.reg_receipt_cenvat THEN
5044: ln_source_type := jai_constants.reg_receipt_cenvat_code;
5045: END IF;
5046:
5047: INSERT INTO JAI_CMN_RG_OTHERS(
5040: ln_source_type := jai_constants.reg_rg23d_code;
5041: ELSIF p_source_register = jai_constants.reg_pla THEN
5042: ln_source_type := jai_constants.reg_pla_code;
5043: ELSIF p_source_register = jai_constants.reg_receipt_cenvat THEN
5044: ln_source_type := jai_constants.reg_receipt_cenvat_code;
5045: END IF;
5046:
5047: INSERT INTO JAI_CMN_RG_OTHERS(
5048: rg_other_id, source_type, source_register,
5294: FETCH c_orgn_info INTO r_orgn_info;
5295: CLOSE c_orgn_info;
5296:
5297: IF r_orgn_info.pref_pla = 1 THEN
5298: lv_pref1_register := jai_constants.register_type_pla;
5299: lv_cess_pref1_register := jai_constants.reg_pla;
5300:
5301: IF p_item_class IN ('CGIN','CGEX') THEN
5302: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath);
5295: CLOSE c_orgn_info;
5296:
5297: IF r_orgn_info.pref_pla = 1 THEN
5298: lv_pref1_register := jai_constants.register_type_pla;
5299: lv_cess_pref1_register := jai_constants.reg_pla;
5300:
5301: IF p_item_class IN ('CGIN','CGEX') THEN
5302: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath);
5303: lv_pref2_register := jai_constants.register_type_c;
5299: lv_cess_pref1_register := jai_constants.reg_pla;
5300:
5301: IF p_item_class IN ('CGIN','CGEX') THEN
5302: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath);
5303: lv_pref2_register := jai_constants.register_type_c;
5304: lv_cess_pref2_register := jai_constants.reg_rg23c;
5305: ELSE
5306: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath);
5307: lv_pref2_register := jai_constants.register_type_a;
5300:
5301: IF p_item_class IN ('CGIN','CGEX') THEN
5302: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath);
5303: lv_pref2_register := jai_constants.register_type_c;
5304: lv_cess_pref2_register := jai_constants.reg_rg23c;
5305: ELSE
5306: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath);
5307: lv_pref2_register := jai_constants.register_type_a;
5308: lv_cess_pref2_register := jai_constants.reg_rg23a;
5303: lv_pref2_register := jai_constants.register_type_c;
5304: lv_cess_pref2_register := jai_constants.reg_rg23c;
5305: ELSE
5306: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath);
5307: lv_pref2_register := jai_constants.register_type_a;
5308: lv_cess_pref2_register := jai_constants.reg_rg23a;
5309: END IF;
5310:
5311: ELSE -- IF r_orgn_info.pref_rg23a = 1 THEN
5304: lv_cess_pref2_register := jai_constants.reg_rg23c;
5305: ELSE
5306: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath);
5307: lv_pref2_register := jai_constants.register_type_a;
5308: lv_cess_pref2_register := jai_constants.reg_rg23a;
5309: END IF;
5310:
5311: ELSE -- IF r_orgn_info.pref_rg23a = 1 THEN
5312:
5311: ELSE -- IF r_orgn_info.pref_rg23a = 1 THEN
5312:
5313: IF p_item_class IN ('CGIN','CGEX') THEN
5314: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath);
5315: lv_pref1_register := jai_constants.register_type_c;
5316: lv_cess_pref1_register := jai_constants.reg_rg23c;
5317: ELSE
5318: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath);
5319: lv_pref1_register := jai_constants.register_type_a;
5312:
5313: IF p_item_class IN ('CGIN','CGEX') THEN
5314: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath);
5315: lv_pref1_register := jai_constants.register_type_c;
5316: lv_cess_pref1_register := jai_constants.reg_rg23c;
5317: ELSE
5318: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath);
5319: lv_pref1_register := jai_constants.register_type_a;
5320: lv_cess_pref1_register := jai_constants.reg_rg23a;
5315: lv_pref1_register := jai_constants.register_type_c;
5316: lv_cess_pref1_register := jai_constants.reg_rg23c;
5317: ELSE
5318: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath);
5319: lv_pref1_register := jai_constants.register_type_a;
5320: lv_cess_pref1_register := jai_constants.reg_rg23a;
5321: END IF;
5322:
5323: lv_pref2_register := jai_constants.register_type_pla;
5316: lv_cess_pref1_register := jai_constants.reg_rg23c;
5317: ELSE
5318: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath);
5319: lv_pref1_register := jai_constants.register_type_a;
5320: lv_cess_pref1_register := jai_constants.reg_rg23a;
5321: END IF;
5322:
5323: lv_pref2_register := jai_constants.register_type_pla;
5324: lv_cess_pref2_register := jai_constants.reg_pla;
5319: lv_pref1_register := jai_constants.register_type_a;
5320: lv_cess_pref1_register := jai_constants.reg_rg23a;
5321: END IF;
5322:
5323: lv_pref2_register := jai_constants.register_type_pla;
5324: lv_cess_pref2_register := jai_constants.reg_pla;
5325:
5326: END IF;
5327:
5320: lv_cess_pref1_register := jai_constants.reg_rg23a;
5321: END IF;
5322:
5323: lv_pref2_register := jai_constants.register_type_pla;
5324: lv_cess_pref2_register := jai_constants.reg_pla;
5325:
5326: END IF;
5327:
5328: IF lb_rg_debug THEN
5335: ||', AllowNegative:'||r_orgn_info.allow_negative_pla);
5336: */
5337: END IF;
5338:
5339: IF lv_pref1_register = jai_constants.register_type_pla
5340: AND r_orgn_info.allow_negative_pla = jai_constants.yes
5341: THEN
5342: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath);
5343: p_cenvat_register_type := jai_constants.register_type_pla;
5336: */
5337: END IF;
5338:
5339: IF lv_pref1_register = jai_constants.register_type_pla
5340: AND r_orgn_info.allow_negative_pla = jai_constants.yes
5341: THEN
5342: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath);
5343: p_cenvat_register_type := jai_constants.register_type_pla;
5344: GOTO end_of_procedure;
5339: IF lv_pref1_register = jai_constants.register_type_pla
5340: AND r_orgn_info.allow_negative_pla = jai_constants.yes
5341: THEN
5342: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath);
5343: p_cenvat_register_type := jai_constants.register_type_pla;
5344: GOTO end_of_procedure;
5345: END IF;
5346:
5347: /* BALANCES CHECKING */
5358: p_process_flag => lv_process_flag,
5359: p_process_message => lv_process_message
5360: );
5361:
5362: IF lv_process_flag = jai_constants.unexpected_error THEN
5363: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath);
5364: p_process_flag := 'E';
5365: p_process_message := lv_process_message;
5366: GOTO end_of_procedure;
5364: p_process_flag := 'E';
5365: p_process_message := lv_process_message;
5366: GOTO end_of_procedure;
5367:
5368: ELSIF lv_process_flag = jai_constants.expected_error THEN
5369: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath);
5370:
5371: ELSIF lv_process_flag = jai_constants.successful THEN
5372:
5367:
5368: ELSIF lv_process_flag = jai_constants.expected_error THEN
5369: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath);
5370:
5371: ELSIF lv_process_flag = jai_constants.successful THEN
5372:
5373: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath);
5374: IF pr_tax.excise_edu_cess + pr_tax.cvd_edu_cess <> 0 THEN /* This if condition and its else added by ssumaith - bug# 4187859*/
5375: jai_cmn_rg_others_pkg.check_balances(
5380: p_process_flag => lv_process_flag,
5381: p_process_message => lv_process_message
5382: );
5383:
5384: IF lv_process_flag = jai_constants.unexpected_error THEN
5385: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath);
5386: p_process_flag := 'E';
5387: p_process_message := lv_process_message;
5388: GOTO end_of_procedure;
5386: p_process_flag := 'E';
5387: p_process_message := lv_process_message;
5388: GOTO end_of_procedure;
5389:
5390: ELSIF lv_process_flag = jai_constants.expected_error THEN
5391: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath);
5392: ELSIF lv_process_flag = jai_constants.successful THEN
5393: p_codepath := jai_general_pkg.plot_codepath(14, p_codepath);
5394: p_cenvat_register_type := lv_pref1_register;
5388: GOTO end_of_procedure;
5389:
5390: ELSIF lv_process_flag = jai_constants.expected_error THEN
5391: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath);
5392: ELSIF lv_process_flag = jai_constants.successful THEN
5393: p_codepath := jai_general_pkg.plot_codepath(14, p_codepath);
5394: p_cenvat_register_type := lv_pref1_register;
5395: GOTO end_of_procedure;
5396: END IF;
5406: p_process_flag => lv_process_flag,
5407: p_process_message => lv_process_message
5408: );
5409:
5410: IF lv_process_flag = jai_constants.unexpected_error THEN
5411: p_codepath := jai_general_pkg.plot_codepath(14.1, p_codepath);
5412: p_process_flag := 'E';
5413: p_process_message := lv_process_message;
5414: GOTO end_of_procedure;
5412: p_process_flag := 'E';
5413: p_process_message := lv_process_message;
5414: GOTO end_of_procedure;
5415:
5416: ELSIF lv_process_flag = jai_constants.expected_error THEN
5417: p_codepath := jai_general_pkg.plot_codepath(14.2, p_codepath);
5418: ELSIF lv_process_flag = jai_constants.successful THEN
5419: p_codepath := jai_general_pkg.plot_codepath(14.3, p_codepath);
5420: p_cenvat_register_type := lv_pref1_register;
5414: GOTO end_of_procedure;
5415:
5416: ELSIF lv_process_flag = jai_constants.expected_error THEN
5417: p_codepath := jai_general_pkg.plot_codepath(14.2, p_codepath);
5418: ELSIF lv_process_flag = jai_constants.successful THEN
5419: p_codepath := jai_general_pkg.plot_codepath(14.3, p_codepath);
5420: p_cenvat_register_type := lv_pref1_register;
5421: GOTO end_of_procedure;
5422: END IF;
5422: END IF;
5423: --end bug #5989740
5424:
5425: ELSE
5426: lv_process_flag := jai_constants.successful;
5427: lv_process_message := NULL;
5428: goto end_of_procedure;
5429: END IF;
5430: END IF;
5428: goto end_of_procedure;
5429: END IF;
5430: END IF;
5431:
5432: IF lv_pref2_register = jai_constants.register_type_pla
5433: AND r_orgn_info.allow_negative_pla = jai_constants.yes
5434: THEN
5435: p_codepath := jai_general_pkg.plot_codepath(15, p_codepath);
5436: p_cenvat_register_type := lv_pref2_register;
5429: END IF;
5430: END IF;
5431:
5432: IF lv_pref2_register = jai_constants.register_type_pla
5433: AND r_orgn_info.allow_negative_pla = jai_constants.yes
5434: THEN
5435: p_codepath := jai_general_pkg.plot_codepath(15, p_codepath);
5436: p_cenvat_register_type := lv_pref2_register;
5437: GOTO end_of_procedure;
5450: p_process_flag => lv_process_flag,
5451: p_process_message => lv_process_message
5452: );
5453:
5454: IF lv_process_flag = jai_constants.unexpected_error THEN
5455: p_codepath := jai_general_pkg.plot_codepath(17, p_codepath);
5456: p_process_flag := 'E';
5457: p_process_message := lv_process_message;
5458: GOTO end_of_procedure;
5456: p_process_flag := 'E';
5457: p_process_message := lv_process_message;
5458: GOTO end_of_procedure;
5459:
5460: ELSIF lv_process_flag = jai_constants.expected_error THEN
5461: p_codepath := jai_general_pkg.plot_codepath(18, p_codepath);
5462: p_process_flag := 'E';
5463: p_process_message := 'Sufficient Balances are not available in both '||lv_pref1_register||' and '||lv_pref2_register||' registers';
5464: GOTO end_of_procedure;
5462: p_process_flag := 'E';
5463: p_process_message := 'Sufficient Balances are not available in both '||lv_pref1_register||' and '||lv_pref2_register||' registers';
5464: GOTO end_of_procedure;
5465:
5466: ELSIF lv_process_flag = jai_constants.successful THEN
5467:
5468: p_codepath := jai_general_pkg.plot_codepath(19, p_codepath);
5469:
5470: IF pr_tax.excise_edu_cess + pr_tax.cvd_edu_cess <> 0 THEN /* This if condition and its else added by ssumaith - bug# 4187859*/
5475: p_trx_amount => pr_tax.excise_edu_cess + pr_tax.cvd_edu_cess,
5476: p_process_flag => lv_process_flag,
5477: p_process_message => lv_process_message
5478: );
5479: IF lv_process_flag = jai_constants.unexpected_error THEN
5480: p_codepath := jai_general_pkg.plot_codepath(20, p_codepath);
5481: p_process_flag := 'E';
5482: p_process_message := lv_process_message;
5483: GOTO end_of_procedure;
5481: p_process_flag := 'E';
5482: p_process_message := lv_process_message;
5483: GOTO end_of_procedure;
5484:
5485: ELSIF lv_process_flag = jai_constants.expected_error THEN
5486: p_codepath := jai_general_pkg.plot_codepath(21, p_codepath);
5487: p_process_flag := 'E';
5488: p_process_message := 'Sufficient Balances are not available in both '||lv_pref1_register||' and '||lv_pref2_register||' registers';
5489: GOTO end_of_procedure;
5487: p_process_flag := 'E';
5488: p_process_message := 'Sufficient Balances are not available in both '||lv_pref1_register||' and '||lv_pref2_register||' registers';
5489: GOTO end_of_procedure;
5490:
5491: ELSIF lv_process_flag = jai_constants.successful THEN
5492: p_codepath := jai_general_pkg.plot_codepath(22, p_codepath);
5493: p_cenvat_register_type := lv_pref2_register;
5494: GOTO end_of_procedure;
5495: END IF;
5505: p_process_flag => lv_process_flag,
5506: p_process_message => lv_process_message
5507: );
5508:
5509: IF lv_process_flag = jai_constants.unexpected_error THEN
5510: p_codepath := jai_general_pkg.plot_codepath(22.1, p_codepath);
5511: p_process_flag := 'E';
5512: p_process_message := lv_process_message;
5513: GOTO end_of_procedure;
5511: p_process_flag := 'E';
5512: p_process_message := lv_process_message;
5513: GOTO end_of_procedure;
5514:
5515: ELSIF lv_process_flag = jai_constants.expected_error THEN
5516: p_codepath := jai_general_pkg.plot_codepath(22.2, p_codepath);
5517: p_process_flag := 'E';
5518: p_process_message := 'Sufficient Balances are not available in both '||lv_pref1_register||' and '||lv_pref2_register||' registers';
5519: GOTO end_of_procedure;
5517: p_process_flag := 'E';
5518: p_process_message := 'Sufficient Balances are not available in both '||lv_pref1_register||' and '||lv_pref2_register||' registers';
5519: GOTO end_of_procedure;
5520:
5521: ELSIF lv_process_flag = jai_constants.successful THEN
5522: p_codepath := jai_general_pkg.plot_codepath(22.3, p_codepath);
5523: p_cenvat_register_type := lv_pref2_register;
5524: GOTO end_of_procedure;
5525: END IF;
5527: --end bug #5989740
5528:
5529:
5530: ELSE
5531: lv_process_flag := jai_constants.successful;
5532: lv_process_message := NULL;
5533: goto end_of_procedure;
5534: END IF;
5535: END IF;
5558: ) IS
5559:
5560: CURSOR c_orgn_balances(cp_organization_id IN NUMBER, cp_location_id IN NUMBER, cp_register_type IN VARCHAR2) IS
5561: SELECT decode( cp_register_type,
5562: jai_constants.register_type_pla, pla_balance,
5563: jai_constants.register_type_a, rg23a_balance,
5564: jai_constants.register_type_c, rg23c_balance
5565: )
5566: FROM JAI_CMN_RG_BALANCES
5559:
5560: CURSOR c_orgn_balances(cp_organization_id IN NUMBER, cp_location_id IN NUMBER, cp_register_type IN VARCHAR2) IS
5561: SELECT decode( cp_register_type,
5562: jai_constants.register_type_pla, pla_balance,
5563: jai_constants.register_type_a, rg23a_balance,
5564: jai_constants.register_type_c, rg23c_balance
5565: )
5566: FROM JAI_CMN_RG_BALANCES
5567: WHERE organization_id = cp_organization_id
5560: CURSOR c_orgn_balances(cp_organization_id IN NUMBER, cp_location_id IN NUMBER, cp_register_type IN VARCHAR2) IS
5561: SELECT decode( cp_register_type,
5562: jai_constants.register_type_pla, pla_balance,
5563: jai_constants.register_type_a, rg23a_balance,
5564: jai_constants.register_type_c, rg23c_balance
5565: )
5566: FROM JAI_CMN_RG_BALANCES
5567: WHERE organization_id = cp_organization_id
5568: AND location_id = cp_location_id;
5575: FETCH c_orgn_balances INTO ln_current_balance;
5576: CLOSE c_orgn_balances;
5577:
5578: IF ( nvl(ln_current_balance,0) - nvl(p_transaction_amount,0)) < 0 THEN
5579: p_process_flag := jai_constants.expected_error;
5580: p_process_message := 'Sufficient Balances are not available in '''||p_register_type||''' register';
5581: ELSE
5582: p_process_flag := jai_constants.successful;
5583: END IF;
5578: IF ( nvl(ln_current_balance,0) - nvl(p_transaction_amount,0)) < 0 THEN
5579: p_process_flag := jai_constants.expected_error;
5580: p_process_message := 'Sufficient Balances are not available in '''||p_register_type||''' register';
5581: ELSE
5582: p_process_flag := jai_constants.successful;
5583: END IF;
5584:
5585: END check_cenvat_balances;
5586:
5602: select a.tax_rate, b.tax_account_id, a.tax_id
5603: from JAI_RCV_LINE_TAXES a, JAI_CMN_TAXES_ALL b
5604: where a.shipment_line_id = cp_shipment_line_id
5605: and a.tax_id = b.tax_id
5606: and ( a.tax_type = jai_constants.tax_type_exc_edu_cess
5607: -- following is to take care of Initial solution(Year2004) for Excise Cess func.
5608: or (a.tax_type = jai_constants.tax_type_other and b.stform_type = lv_stform_type) --'EXCISE - CESS') /* Modified by Ramananda for removal of SQL LITERALs :bug#4428980*/
5609: --or (a.tax_type = 'Other' and b.stform_type = 'EXCISE - CESS')
5610: );
5604: where a.shipment_line_id = cp_shipment_line_id
5605: and a.tax_id = b.tax_id
5606: and ( a.tax_type = jai_constants.tax_type_exc_edu_cess
5607: -- following is to take care of Initial solution(Year2004) for Excise Cess func.
5608: or (a.tax_type = jai_constants.tax_type_other and b.stform_type = lv_stform_type) --'EXCISE - CESS') /* Modified by Ramananda for removal of SQL LITERALs :bug#4428980*/
5609: --or (a.tax_type = 'Other' and b.stform_type = 'EXCISE - CESS')
5610: );
5611:
5612: --added by csahoo for bug#6078460
5614: select a.tax_rate, b.tax_account_id, a.tax_id
5615: from JAI_RCV_LINE_TAXES a, JAI_CMN_TAXES_ALL b
5616: where a.shipment_line_id = cp_shipment_line_id
5617: and a.tax_id = b.tax_id
5618: and ( a.tax_type = jai_constants.tax_type_sh_exc_edu_cess
5619: -- following is to take care of Initial solution(Year2004) for Excise sh Cess func.
5620: or (a.tax_type = jai_constants.tax_type_other and b.stform_type = lv_stform_type)
5621: );
5622:
5616: where a.shipment_line_id = cp_shipment_line_id
5617: and a.tax_id = b.tax_id
5618: and ( a.tax_type = jai_constants.tax_type_sh_exc_edu_cess
5619: -- following is to take care of Initial solution(Year2004) for Excise sh Cess func.
5620: or (a.tax_type = jai_constants.tax_type_other and b.stform_type = lv_stform_type)
5621: );
5622:
5623: cursor c_po_dist_accrual_accnt_id(cp_transaction_id in number) is
5624: select accrual_account_id
5681: begin
5682:
5683: lv_statement_id := '1';
5684: pv_codepath := jai_general_pkg.plot_codepath(1, pv_codepath, 'jai_rcv_excise_processing_pkg.rtv_processing_for_ssi', 'START');
5685: lv_simulate_flag := jai_constants.no;
5686: lv_register_entry_type := jai_rcv_excise_processing_pkg.cenvat_debit;
5687:
5688: open c_trx(pn_transaction_id);
5689: fetch c_trx into r_trx;
5755: if pv_process_status = 'E' then
5756: GOTO end_of_procedure;
5757: end if;
5758:
5759: if lv_cenvat_register_type IN (jai_constants.register_type_a, jai_constants.register_type_c) then
5760:
5761: lv_statement_id := '5';
5762: pv_codepath := jai_general_pkg.plot_codepath(17, pv_codepath);
5763:
5798: GOTO end_of_procedure;
5799: END IF;
5800: lv_reference_name := 'JAI_CMN_RG_23AC_II_TRXS';
5801: ln_reference_id := ln_part_ii_register_id;
5802: elsif lv_cenvat_register_type = jai_constants.register_type_pla THEN
5803: lv_statement_id := '7';
5804: pv_codepath := jai_general_pkg.plot_codepath(17.1, pv_codepath);
5805: /* Bug 5365346. Added by Lakshmi Gopalsami
5806: Commented the call to pla entry and added
5851: open c_orgn_info(r_trx.organization_id, r_trx.location_id);
5852: fetch c_orgn_info into r_orgn_info;
5853: close c_orgn_info;
5854:
5855: if lv_cenvat_register_type = jai_constants.register_type_a then
5856: lv_statement_id := '11';
5857: ln_ccid := r_orgn_info.modvat_rm_account_id;
5858: elsif lv_cenvat_register_type = jai_constants.register_type_c then
5859: lv_statement_id := '12';
5854:
5855: if lv_cenvat_register_type = jai_constants.register_type_a then
5856: lv_statement_id := '11';
5857: ln_ccid := r_orgn_info.modvat_rm_account_id;
5858: elsif lv_cenvat_register_type = jai_constants.register_type_c then
5859: lv_statement_id := '12';
5860: ln_ccid := r_orgn_info.modvat_cg_account_id;
5861: elsif lv_cenvat_register_type = jai_constants.register_type_pla then
5862: lv_statement_id := '13';
5857: ln_ccid := r_orgn_info.modvat_rm_account_id;
5858: elsif lv_cenvat_register_type = jai_constants.register_type_c then
5859: lv_statement_id := '12';
5860: ln_ccid := r_orgn_info.modvat_cg_account_id;
5861: elsif lv_cenvat_register_type = jai_constants.register_type_pla then
5862: lv_statement_id := '13';
5863: ln_ccid := r_orgn_info.modvat_pla_account_id;
5864: end if;
5865:
5869: pv_process_message := 'Modvat '||lv_cenvat_register_type||' account in Organization Setup doesnot exist';
5870: GOTO end_of_procedure;
5871: end if;
5872:
5873: if r_orgn_info.rtv_account_flag = jai_constants.yes then
5874: ln_balancing_ccid := r_orgn_info.rtv_expense_account_id;
5875: if ln_balancing_ccid is null then
5876: null;
5877: end if;
5874: ln_balancing_ccid := r_orgn_info.rtv_expense_account_id;
5875: if ln_balancing_ccid is null then
5876: null;
5877: end if;
5878: elsif r_orgn_info.rtv_account_flag = jai_constants.no then
5879:
5880: open c_po_dist_accrual_accnt_id(r_trx.transaction_id);
5881: fetch c_po_dist_accrual_accnt_id into ln_balancing_ccid;
5882: close c_po_dist_accrual_accnt_id;
6173:
6174: -- added by csahoo for bug#6078460, end
6175:
6176: lv_statement_id := '29';
6177: pv_process_status := jai_constants.yes;
6178: <
6179: pv_codepath := jai_general_pkg.plot_codepath(75, pv_codepath, 'jai_rcv_excise_processing_pkg.rtv_processing_for_ssi', 'END');
6180:
6181: exception