380: p_Excise_edu_cess_rf => v_excise_edu_cess_rf,
381: p_Excise_she_cess_rf => v_excise_she_cess_rf
382: );
383:
384: FND_FILE.put_line(FND_FILE.log, '^CENVAT_RG_PKG.post_cenvat_processor. v_excise_rf->'||v_excise_rf||'-v_excise_edu_cess_rf->'||v_excise_edu_cess_rf||'-v_excise_she_cess_rf->'||v_excise_she_cess_rf);
385:
386: IF r_trx.transaction_type = 'RECEIVE' THEN
387: UPDATE JAI_RCV_CENVAT_CLAIMS
388: SET cenvat_amt_for_2nd_claim = ROUND((NVL(cenvat_amount,0))-(NVL(cenvat_claimed_amt,0)),v_excise_rf),
400: close c_fetch_base_correct_qty;
401:
402: v_changed_cenvat_quantity := nvl(v_base_correct_quantity,0) + ln_trx_equivalent_of_receive;
403:
404: FND_FILE.put_line(FND_FILE.log, '^CENVAT_RG_PKG.post_cenvat_processor.ln_trx_equivalent_of_receive->'||ln_trx_equivalent_of_receive);
405: FND_FILE.put_line(FND_FILE.log, '^CENVAT_RG_PKG.post_cenvat_processor.v_changed_cenvat_quantity->'||v_changed_cenvat_quantity);
406:
407: UPDATE JAI_RCV_CENVAT_CLAIMS
408: SET cenvat_amt_for_2nd_claim = ROUND(nvl(v_changed_cenvat_quantity, 0) *nvl(cenvat_amount, 0) / nvl(ln_trx_equivalent_of_receive, 0), v_excise_rf) -cenvat_claimed_amt,
401:
402: v_changed_cenvat_quantity := nvl(v_base_correct_quantity,0) + ln_trx_equivalent_of_receive;
403:
404: FND_FILE.put_line(FND_FILE.log, '^CENVAT_RG_PKG.post_cenvat_processor.ln_trx_equivalent_of_receive->'||ln_trx_equivalent_of_receive);
405: FND_FILE.put_line(FND_FILE.log, '^CENVAT_RG_PKG.post_cenvat_processor.v_changed_cenvat_quantity->'||v_changed_cenvat_quantity);
406:
407: UPDATE JAI_RCV_CENVAT_CLAIMS
408: SET cenvat_amt_for_2nd_claim = ROUND(nvl(v_changed_cenvat_quantity, 0) *nvl(cenvat_amount, 0) / nvl(ln_trx_equivalent_of_receive, 0), v_excise_rf) -cenvat_claimed_amt,
409: other_cenvat_amt_for_2nd_claim = ROUND(nvl(v_changed_cenvat_quantity, 0) *nvl(other_cenvat_amt, 0) / nvl(ln_trx_equivalent_of_receive, 0), v_excise_edu_cess_rf) -other_cenvat_claimed_amt,
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);
480: /* If source register is PLA */
481: IF p_source_reg = 'PLA' THEN
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);
480: /* If source register is PLA */
481: IF p_source_reg = 'PLA' THEN
482: IF pr_tax.transaction_type = 'CORRECT' THEN
483: lv_transaction_type := pr_tax.parent_transaction_type;
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);
493: lv_statement_id := '3';
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;
520: ln_dr_other := c_get_register_id.dr_other_ed;
523: ln_cr_addl := c_get_register_id.cr_additional_ed;
524: ln_cr_other := c_get_register_id.cr_other_ed;
525: ln_other_tax_credit := c_get_register_id.other_tax_credit;
526: lv_remarks := c_get_register_id.remarks || 'RTV ADjustment';
527: fnd_file.put_line(FND_FILE.LOG, ' RTV Adjustment values --> ');
528: fnd_file.put_line(FND_FILE.LOG, ' Register id ' || ln_register_id);
529: fnd_file.put_line(FND_FILE.LOG, 'CR: Basic--Addl--Other--cess'||
530: ln_cr_basic||'--'||ln_cr_addl||'--'||
531: ln_cr_other||'--'||ln_other_tax_credit);
524: ln_cr_other := c_get_register_id.cr_other_ed;
525: ln_other_tax_credit := c_get_register_id.other_tax_credit;
526: lv_remarks := c_get_register_id.remarks || 'RTV ADjustment';
527: fnd_file.put_line(FND_FILE.LOG, ' RTV Adjustment values --> ');
528: fnd_file.put_line(FND_FILE.LOG, ' Register id ' || ln_register_id);
529: fnd_file.put_line(FND_FILE.LOG, 'CR: Basic--Addl--Other--cess'||
530: ln_cr_basic||'--'||ln_cr_addl||'--'||
531: ln_cr_other||'--'||ln_other_tax_credit);
532: fnd_file.put_line(FND_FILE.LOG, 'DR: Basic--Addl--Other--cess'||
525: ln_other_tax_credit := c_get_register_id.other_tax_credit;
526: lv_remarks := c_get_register_id.remarks || 'RTV ADjustment';
527: fnd_file.put_line(FND_FILE.LOG, ' RTV Adjustment values --> ');
528: fnd_file.put_line(FND_FILE.LOG, ' Register id ' || ln_register_id);
529: fnd_file.put_line(FND_FILE.LOG, 'CR: Basic--Addl--Other--cess'||
530: ln_cr_basic||'--'||ln_cr_addl||'--'||
531: ln_cr_other||'--'||ln_other_tax_credit);
532: fnd_file.put_line(FND_FILE.LOG, 'DR: Basic--Addl--Other--cess'||
533: ln_dr_basic||'--'||ln_dr_addl||'--'||
528: fnd_file.put_line(FND_FILE.LOG, ' Register id ' || ln_register_id);
529: fnd_file.put_line(FND_FILE.LOG, 'CR: Basic--Addl--Other--cess'||
530: ln_cr_basic||'--'||ln_cr_addl||'--'||
531: ln_cr_other||'--'||ln_other_tax_credit);
532: fnd_file.put_line(FND_FILE.LOG, 'DR: Basic--Addl--Other--cess'||
533: ln_dr_basic||'--'||ln_dr_addl||'--'||
534: ln_dr_other||'--'||ln_other_tax_debit);
535: END LOOP ;
536:
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);
543: fnd_file.put_line(FND_FILE.LOG, ' Value of statement id ' || lv_statement_id);
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);
547: fnd_file.put_line(FND_FILE.LOG, ' Value of statement id ' || lv_statement_id);
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
551: lv_statement_id := '8';
560: nvl(pr_diff_tax.sh_cvd_edu_cess,0); --Bgowrava for Bug#6071509, added SH related cess
561: ln_reg_dr := nvl(pr_diff_tax.basic_excise,0) +
562: nvl(pr_diff_tax.addl_excise,0)+ nvl(pr_diff_tax.cvd,0) +
563: nvl(pr_diff_tax.other_excise,0);
564: fnd_file.put_line(FND_FILE.LOG, ' Reg. dr' || ln_reg_dr);
565: ELSE
566: lv_statement_id := '10';
567: lv_upd_opening_bal_cr := ln_cr_basic + ln_cr_addl + ln_cr_other;
568: fnd_file.put_line(FND_FILE.LOG, ' Reg. open cr' || lv_upd_opening_bal_cr);
564: fnd_file.put_line(FND_FILE.LOG, ' Reg. dr' || ln_reg_dr);
565: ELSE
566: lv_statement_id := '10';
567: lv_upd_opening_bal_cr := ln_cr_basic + ln_cr_addl + ln_cr_other;
568: fnd_file.put_line(FND_FILE.LOG, ' Reg. open cr' || lv_upd_opening_bal_cr);
569: ln_cr_basic := ln_cr_basic + pr_diff_tax.basic_excise;
570: ln_cr_addl := ln_cr_addl + pr_diff_tax.addl_excise + pr_diff_tax.cvd;
571: ln_cr_other := ln_cr_other + pr_diff_tax.other_excise;
572: ln_other_tax_credit := ln_other_tax_credit +
575: nvl(pr_diff_tax.sh_cvd_edu_cess,0); --Bgowrava for Bug#6071509, added SH related cess
576: ln_reg_cr := nvl(pr_diff_tax.basic_excise,0) +
577: nvl(pr_diff_tax.addl_excise,0)+ nvl(pr_diff_tax.cvd,0) +
578: nvl(pr_diff_tax.other_excise,0);
579: fnd_file.put_line(FND_FILE.LOG, ' Reg. cr' || ln_reg_cr);
580: END IF;
581:
582: /* Calculate the transaction amount difference to be updated */
583:
582: /* Calculate the transaction amount difference to be updated */
583:
584: ln_tr_amount := nvl(ln_reg_cr,0) - nvl(ln_reg_dr,0);
585:
586: fnd_file.put_line(FND_FILE.LOG, ' Trx amt ' || ln_tr_amount);
587:
588: /* Get the balance details */
589: jai_cmn_rg_balances_pkg.get_balance(
590: P_ORGANIZATION_ID => pr_tax.organization_id,
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:
603: fnd_file.put_line(FND_FILE.LOG, 'Opening balance to be updated ' || ln_opening_balance);
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:
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);
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(
611: P_REGISTER_ID => ln_register_id,
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(
630: p_organization_id => pr_tax.organization_id,
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);
653: lv_statement_id := '3';
671: AND transaction_source_num = ln_transaction_id
672: )
673: LOOP
674: lv_statement_id := '4';
675: fnd_file.put_line(FND_FILE.LOG, ' Value of statement id ' || lv_statement_id);
676: ln_register_id := c_get_register_id.register_id;
677: ln_dr_basic := c_get_register_id.dr_basic_ed;
678: ln_dr_addl := c_get_register_id.dr_additional_ed;
679: ln_dr_other := c_get_register_id.dr_other_ed;
682: ln_cr_addl := c_get_register_id.cr_additional_ed;
683: ln_cr_other := c_get_register_id.cr_other_ed;
684: ln_other_tax_credit := c_get_register_id.other_tax_credit;
685: lv_remarks := c_get_register_id.remarks || 'RTV ADjustment';
686: fnd_file.put_line(FND_FILE.LOG, ' RTV Adjustment values --> ');
687: fnd_file.put_line(FND_FILE.LOG, ' Register id ' || ln_register_id);
688: fnd_file.put_line(FND_FILE.LOG, 'CR: Basic--Addl--Other--cess'||
689: ln_cr_basic||'--'||ln_cr_addl||'--'||
690: ln_cr_other||'--'||ln_other_tax_credit);
683: ln_cr_other := c_get_register_id.cr_other_ed;
684: ln_other_tax_credit := c_get_register_id.other_tax_credit;
685: lv_remarks := c_get_register_id.remarks || 'RTV ADjustment';
686: fnd_file.put_line(FND_FILE.LOG, ' RTV Adjustment values --> ');
687: fnd_file.put_line(FND_FILE.LOG, ' Register id ' || ln_register_id);
688: fnd_file.put_line(FND_FILE.LOG, 'CR: Basic--Addl--Other--cess'||
689: ln_cr_basic||'--'||ln_cr_addl||'--'||
690: ln_cr_other||'--'||ln_other_tax_credit);
691: fnd_file.put_line(FND_FILE.LOG, 'DR: Basic--Addl--Other--cess'||
684: ln_other_tax_credit := c_get_register_id.other_tax_credit;
685: lv_remarks := c_get_register_id.remarks || 'RTV ADjustment';
686: fnd_file.put_line(FND_FILE.LOG, ' RTV Adjustment values --> ');
687: fnd_file.put_line(FND_FILE.LOG, ' Register id ' || ln_register_id);
688: fnd_file.put_line(FND_FILE.LOG, 'CR: Basic--Addl--Other--cess'||
689: ln_cr_basic||'--'||ln_cr_addl||'--'||
690: ln_cr_other||'--'||ln_other_tax_credit);
691: fnd_file.put_line(FND_FILE.LOG, 'DR: Basic--Addl--Other--cess'||
692: ln_dr_basic||'--'||ln_dr_addl||'--'||
687: fnd_file.put_line(FND_FILE.LOG, ' Register id ' || ln_register_id);
688: fnd_file.put_line(FND_FILE.LOG, 'CR: Basic--Addl--Other--cess'||
689: ln_cr_basic||'--'||ln_cr_addl||'--'||
690: ln_cr_other||'--'||ln_other_tax_credit);
691: fnd_file.put_line(FND_FILE.LOG, 'DR: Basic--Addl--Other--cess'||
692: ln_dr_basic||'--'||ln_dr_addl||'--'||
693: ln_dr_other||'--'||ln_other_tax_debit);
694: END LOOP ;
695:
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';
702: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath);
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';
707: lv_upd_opening_bal_dr := ln_dr_basic + ln_dr_addl + ln_dr_other;
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(
744: P_ORGANIZATION_ID => pr_tax.organization_id,
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);
757:
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);
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);
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(
764: P_REGISTER_ID => ln_register_id,
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(
786: p_organization_id => pr_tax.organization_id,
907: WHEN OTHERS THEN
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
926:
927: lv_object_name CONSTANT VARCHAR2 (61) := 'jai_rcv_excise_processing_pkg.do_cenvat_rounding';
928: BEGIN
929:
930: FND_FILE.put_line(FND_FILE.log, '^CENVAT_RG_PKG.do_cenvat_rounding. Basic->'||pr_tax.basic_excise
931: ||', Additional->'||pr_tax.addl_excise
932: ||', Other->'|| pr_tax.other_excise||', CVD->'|| pr_tax.cvd
933: ||', Add CVD -> '|| pr_tax.addl_CVD
934: -- Date 30/10/2006 Bug 5228046 added by sacsethi
964: ELSE
965: pr_tax.basic_excise := pr_tax.basic_excise - ln_rounded_amt;
966: END IF;
967:
968: FND_FILE.put_line(FND_FILE.log, 'Rounded Amts. Basic->'||pr_tax.basic_excise||
969: ',Additional->'||pr_tax.addl_excise||
970: ', Other->'|| pr_tax.other_excise||
971: ', CVD->'|| pr_tax.cvd ||
972: ', Addl CVD-> ' || pr_tax.addl_cvd -- Date 30/10/2006 Bug 5228046 added by sacsethi
1253: -- this is to identify the path in SQL TRACE file if any problem occured
1254: SELECT 'jai_rcv_excise_processing_pkg-'||p_transaction_id INTO lv_temp FROM DUAL;
1255:
1256: if lb_rg_debug then
1257: FND_FILE.put_line(FND_FILE.log,'*** Start jai_rcv_excise_processing_pkg.process_transaction');
1258: -- FND_FILE.put_line(FND_FILE.log,'*** Start jai_rcv_excise_processing_pkg.process_transaction');
1259: end if;
1260:
1261: /* Added for bug #13362352 */
1254: SELECT 'jai_rcv_excise_processing_pkg-'||p_transaction_id INTO lv_temp FROM DUAL;
1255:
1256: if lb_rg_debug then
1257: FND_FILE.put_line(FND_FILE.log,'*** Start jai_rcv_excise_processing_pkg.process_transaction');
1258: -- FND_FILE.put_line(FND_FILE.log,'*** Start jai_rcv_excise_processing_pkg.process_transaction');
1259: end if;
1260:
1261: /* Added for bug #13362352 */
1262: OPEN cur_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 */
1272: OPEN c_trx(p_transaction_id);
1347: -- Date 01/11/2006 Bug 5228046 added by SACSETHI
1348: END IF;
1349:
1350: if lb_rg_debug then
1351: FND_FILE.put_line(FND_FILE.log,'*** Start jai_rcv_excise_processing_pkg.process_transaction');
1352: -- FND_FILE.put_line(FND_FILE.log,'*** Start jai_rcv_excise_processing_pkg.process_transaction');
1353: end if;
1354:
1355: -- Following is to calculate Tax Breakup Amount As Per Apportion Factor. This is calculated based on
1348: END IF;
1349:
1350: if lb_rg_debug then
1351: FND_FILE.put_line(FND_FILE.log,'*** Start jai_rcv_excise_processing_pkg.process_transaction');
1352: -- FND_FILE.put_line(FND_FILE.log,'*** Start jai_rcv_excise_processing_pkg.process_transaction');
1353: end if;
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
1378: if lb_rg_debug then
1379: --dbms_output.put_line('After Rounding. Basic:'||r_tax.basic_excise||', Addl:'||r_tax.addl_excise
1380: -- ||', Other:'||r_tax.other_excise||', cvd:'||r_tax.cvd ||', Addl. CVD:'||r_tax.addl_cvd);
1381: -- Date 30/10/2006 Bug 5228046 added by sacsethi
1382: FND_FILE.put_line(FND_FILE.log, 'After Rounding. Basic:'||r_tax.basic_excise||', Addl:'||r_tax.addl_excise
1383: ||', Other:'||r_tax.other_excise||', cvd:'||r_tax.cvd ||', Addl. CVD :'||r_tax.addl_cvd );
1384: end if;
1385: */
1386:
1409: );
1410:
1411: if lb_rg_debug then
1412: --dbms_output.put_line('After ExciseInv Gen. ExInvNo:'||nvl(lv_excise_invoice_no,'NULL') );
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);
1450: p_process_message => p_process_message,
1451: p_codepath => p_codepath
1452: );
1453:
1454: FND_FILE.put_line(FND_FILE.log, 'CGIN_CODE->'||lv_cgin_code);
1455: IF p_process_status IN ('E', 'X') THEN
1456: GOTO finish;
1457: END IF;
1458: END IF;
1466: lv_register_entry_type := CENVAT_DEBIT;
1467: END IF;
1468:
1469: if lb_rg_debug then
1470: FND_FILE.put_line(FND_FILE.log, 'AccntEntry Type:'||lv_cenvat_accounting_type||', RegEntryType:'|| lv_register_entry_type);
1471: end if;
1472:
1473: -- 90% of the cenvat entries entries happen only for RECEIVE and RTV entries (code=1)
1474: -- and cenvat entries happen for DELIVER and RTR (code=2)cases only if subinventory is nonbonded
1537: /*bgowrava for forward porting Bug#5756676..start*/
1538:
1539: IF nvl(r_trx.quantity_register_flag,'N') = 'Y' THEN
1540:
1541: FND_FILE.put_line(FND_FILE.log, 'Quantity register is already hit. So updating amounts');
1542:
1543: OPEN cur_rg23_1_register_id;
1544: FETCH cur_rg23_1_register_id INTO ln_part_i_register_id;
1545: CLOSE cur_rg23_1_register_id;
1543: OPEN cur_rg23_1_register_id;
1544: FETCH cur_rg23_1_register_id INTO ln_part_i_register_id;
1545: CLOSE cur_rg23_1_register_id;
1546:
1547: FND_FILE.put_line(FND_FILE.log, 'RG23 Part I Register Id:'||ln_part_i_register_id);
1548:
1549: UPDATE JAI_CMN_RG_23AC_I_TRXS
1550: SET basic_ed = r_tax.basic_excise,
1551: additional_ed = r_tax.addl_excise + r_tax.cvd,
1556: WHERE register_id = ln_part_i_register_id;
1557:
1558: ELSE
1559:
1560: FND_FILE.put_line(FND_FILE.log, 'Quantity register is not hit. So calling rg23_part_i_entry');
1561: rg23_part_i_entry(
1562: p_transaction_id => r_trx.transaction_id,
1563: pr_tax => r_tax,
1564: p_register_entry_type => lv_register_entry_type,
1572: END IF;
1573: /*bgowrava for forward porting Bug#5756676..end*/
1574:
1575: ELSE
1576: FND_FILE.put_line( FND_FILE.log, 'No Call to RG23_PART_I_ENTRY');
1577: END IF;
1578:
1579: IF ln_part_i_register_id IS NOT NULL THEN
1580: lv_part_i_register := 'RG23'||lv_register_type;
1596: AND lv_register_type = 'C'
1597: AND lv_cgin_code like '%PARENT-REGULAR-HALF%'
1598: 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;
1673: p_register_id_part_i => NULL,
1674: p_charge_account_id => ln_receive_charge_accnt
1675: );
1676:
1677: FND_FILE.put_line(FND_FILE.log, '>> END 2nd 50% Claim of RECEIVE during RTV');
1678:
1679: END IF;
1680: -- End PARENT Half Claim entry for RTV
1681: /*vkaranam for bug #4704957,end*/
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, '
1818: /* Added for bug #13362352 */
1819: IF ( lv_transaction_type = 'DELIVER' AND nvl(lv_destination_type_code,'xyz') <> 'SHOP FLOOR' ) OR
1820: ( lv_transaction_type = 'RETURN TO RECEIVING' AND parent_trx_rec.destination_type_code <> 'SHOP FLOOR' ) OR
1906: p_codepath => p_codepath
1907: );
1908:
1909: ELSE
1910: FND_FILE.put_line( FND_FILE.log, '..No Accounting Required for Trading Orgn');
1911: END IF;
1912:
1913: END IF;
1914:
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;
1999: END IF;
2000:
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
2006: p_process_status := 'E';
2004: EXCEPTION
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:
2072: BEGIN
2073:
2074: ln_entry_type := 1;
2075: if lb_rg_debug then
2076: FND_FILE.put_line(FND_FILE.log,'^ RG1 Entry. Basic:'||pr_tax.basic_excise
2077: ||', Addl:'||pr_tax.addl_excise||', Other:'||pr_tax.other_excise
2078: ||', CVD:'||pr_tax.cvd||', EntryType:'||p_register_entry_type ||', PrcSta:'||p_process_status
2079: );
2080: end if;
2188: /* ended, Vumaasha for Bug 4689713 */
2189:
2190:
2191: if lb_rg_debug then
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 */
2245: last_update_date = sysdate,
2246: last_update_login = fnd_global.login_id
2247: WHERE transaction_id = p_transaction_id ;
2248:
2249: FND_FILE.put_line(FND_FILE.log, 'Updating quantity register flag to Y');
2250:
2251: /*bgowrava for forward porting Bug#5756676..end*/
2252:
2253:
2256: EXCEPTION
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:
2312:
2313: ln_entry_type := 1;
2314: if lb_rg_debug then
2315: -- Date 30/10/2006 Bug 5228046 added by sacsethi
2316: FND_FILE.put_line(FND_FILE.log,'^ RG23_PART_I_Entry. Basic:'||pr_tax.basic_excise
2317: ||', Addl:'||pr_tax.addl_excise||', Other:'||pr_tax.other_excise
2318: ||', CVD:'||pr_tax.cvd ||', Addl. CVD: '|| pr_tax.addl_cvd||', EntryType:'||p_register_entry_type ||', PrcSta:'||p_process_status
2319: );
2320: end if;
2424: --added for bug#9854329,end
2425: ln_other_ed := pr_tax.other_excise * ln_entry_type;
2426:
2427: if lb_rg_debug then
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 */
2490: last_update_date = sysdate,
2491: last_update_login = fnd_global.login_id
2492: WHERE transaction_id = p_transaction_id ;
2493:
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 */
2500: EXCEPTION
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:
2580:
2581: if lb_rg_debug then
2582:
2583: -- Date 30/10/2006 Bug 5228046 added by sacsethi
2584: FND_FILE.put_line(FND_FILE.log,'^ RG23_D_Entry. Basic:'||pr_tax.basic_excise
2585: ||', Addl:'||pr_tax.addl_excise||', Other:'||pr_tax.other_excise
2586: ||', CVD:'||pr_tax.cvd||', Addl. CVD:'||pr_tax.addl_cvd||', EntryType:'||p_register_entry_type ||', PrcSta:'||p_process_status
2587: );
2588: end if;
2689: ln_qty_to_adjust := 0;
2690: END IF;
2691:
2692: if lb_rg_debug then
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 */
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' );
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);
2872: FETCH c_parent_register_id INTO ln_ancestor_reg_id;
2873: CLOSE c_parent_register_id;
2874:
2875: if lb_rg_debug then
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 */
2893: EXCEPTION
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:
2960:
2961: BEGIN
2962:
2963: if lb_rg_debug then
2964: FND_FILE.put_line(FND_FILE.log,'^ RG23_PART_II_Entry. Basic:'||pr_tax.basic_excise
2965: ||', Addl:'||pr_tax.addl_excise||', Other:'||pr_tax.other_excise
2966: ||', CVD:'||pr_tax.cvd||', ExCes:'||pr_tax.excise_edu_cess||', CvdCes:'||pr_tax.cvd_edu_cess
2967: ||', EntryType:'||p_register_entry_type ||', PrcSta:'||p_process_status
2968: ||', Part1Id:'||p_part_i_register_id||', RefNo:'||p_reference_num
3048:
3049: BEGIN
3050: ln_reference_num := to_number(p_reference_num);
3051: lv_exc_flag := 'A'; /*A indiactes auto claim for RTV*/
3052: FND_FILE.put_line(FND_FILE.log,'p_reference_num:'||p_reference_num);
3053: EXCEPTION
3054: WHEN OTHERS THEN
3055: /*this exception would come if p_reference_num does not contain a number. It means p_reference_num is not having any transaction_id
3056: This means this transaction belongs to normal RECEIVE transaction*/
3054: WHEN OTHERS THEN
3055: /*this exception would come if p_reference_num does not contain a number. It means p_reference_num is not having any transaction_id
3056: This means this transaction belongs to normal RECEIVE transaction*/
3057: lv_exc_flag := 'C'; /*C indicates claim for Receipt transaction*/
3058: FND_FILE.put_line(FND_FILE.log,'Exception '||sqlerrm||' occurred and is handled');
3059: FND_FILE.put_line(FND_FILE.log,'p_reference_num:'||p_reference_num);
3060: END;
3061: IF lv_exc_flag = 'A' THEN
3062: OPEN c_trx(ln_reference_num);
3055: /*this exception would come if p_reference_num does not contain a number. It means p_reference_num is not having any transaction_id
3056: This means this transaction belongs to normal RECEIVE transaction*/
3057: lv_exc_flag := 'C'; /*C indicates claim for Receipt transaction*/
3058: FND_FILE.put_line(FND_FILE.log,'Exception '||sqlerrm||' occurred and is handled');
3059: FND_FILE.put_line(FND_FILE.log,'p_reference_num:'||p_reference_num);
3060: END;
3061: IF lv_exc_flag = 'A' THEN
3062: OPEN c_trx(ln_reference_num);
3063: FETCH c_trx INTO r_rtv_trx;
3106: ln_other_tax_credit := pr_tax.excise_edu_cess + pr_tax.cvd_edu_cess+ nvl(pr_tax.sh_exc_edu_cess,0)+ nvl(pr_tax.sh_cvd_edu_cess,0); --Bgowrava for Bug #6071509 ,Added SH related cess
3107: END IF;
3108:
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
3253: EXCEPTION
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:
3300:
3301: BEGIN
3302:
3303: if lb_rg_debug then
3304: FND_FILE.put_line(FND_FILE.log,'^ PLA_Entry. Basic:'||pr_tax.basic_excise
3305: ||', Addl:'||pr_tax.addl_excise||', Other:'||pr_tax.other_excise||', ExCes:'||pr_tax.excise_edu_cess||', CvdCes:'||pr_tax.cvd_edu_cess
3306: ||', SH_ExCes:'||pr_tax.sh_exc_edu_cess||', SH_CvdCes:'||pr_tax.sh_cvd_edu_cess /*added by vkaranam for bug #5989740*/
3307: ||', CVD:'||pr_tax.cvd
3308: ||', EntryType:'||p_register_entry_type ||', PrcSta:'||p_process_status
3309: );
3310: end if;
3311:
3312: if lb_rg_debug then
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 */
3388: ln_other_tax_credit := pr_tax.excise_edu_cess + pr_tax.cvd_edu_cess+nvl(pr_tax.sh_exc_edu_cess,0)+ nvl(pr_tax.sh_cvd_edu_cess,0);/*added pr_tax.sh_exc_edu_cess + pr_tax.sh_cvd_edu_cess by vkaranam for budget 07 impact - bug#5989740*/
3389: END IF;
3390:
3391: if lb_rg_debug then
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 */
3529: EXCEPTION
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:
3616: BEGIN
3617:
3618: lv_accounting_date := trunc(SYSDATE);
3619:
3620: fnd_file.put_line(FND_FILE.LOG, '
3622: if lb_rg_debug then
3623: FND_FILE.put_line(FND_FILE.log,'^ Accounting Entries. CGIN Code->'||nvl(p_cgin_code, 'NULL')
3624: ||'. Basic:'||pr_tax.basic_excise ||', Addl:'||pr_tax.addl_excise||', Other:'||pr_tax.other_excise
3619:
3620: fnd_file.put_line(FND_FILE.LOG, '
3621:
3622: if lb_rg_debug then
3623: FND_FILE.put_line(FND_FILE.log,'^ Accounting Entries. CGIN Code->'||nvl(p_cgin_code, 'NULL')
3624: ||'. Basic:'||pr_tax.basic_excise ||', Addl:'||pr_tax.addl_excise||', Other:'||pr_tax.other_excise
3625: ||', ExCes:'||pr_tax.excise_edu_cess||', CvdCes:'||pr_tax.cvd_edu_cess
3626: --added by vkaranam fro bug #5989740
3627: ||', SH_ExCes:'||pr_tax.sh_exc_edu_cess||', SH_CvdCes:'||pr_tax.sh_cvd_edu_cess
3640: );
3641: end if;
3642:
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);
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;
3663: if r_trx.transaction_type = 'CORRECT' THEN
3664: lv_reference10 := lv_reference10 || ' of '||r_trx.parent_transaction_type;
3671: p_process_message := 'Cenvat was fully claimed already. No more claims can happen';
3672: GOTO end_of_accounting;
3673: END IF;
3674:
3675: fnd_file.put_line(FND_FILE.LOG, '
3677: OPEN c_base_trx(p_transaction_id);
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
3687: lv_transaction_type := r_trx.parent_transaction_type;
3688: ELSE
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:
3703: fnd_file.put_line(FND_FILE.LOG, '
3705: OPEN c_rcv_params(r_trx.organization_id);
3706: FETCH c_rcv_params INTO r_rcv_params; -- this is the default accnt and will be overriden later based on transaction requirement
3707: CLOSE c_rcv_params;
3706: FETCH c_rcv_params INTO r_rcv_params; -- this is the default accnt and will be overriden later based on transaction requirement
3707: CLOSE c_rcv_params;
3708: ln_receiving_accnt_id := r_rcv_params.receiving_account_id;
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
3762: ln_sh_exc_edu_cess_accnt := r_orgn_info.excise_23d_account; -- bug #5989740
3763: ln_cess_paid_payable_accnt_id := r_orgn_info.excise_23d_account; -- bug #5989740
3764: ELSE
3765: -- something wrong
3766: fnd_file.put_line(FND_FILE.LOG, '
3768: END IF;
3769: fnd_file.put_line(FND_FILE.LOG, '
3765: -- something wrong
3766: fnd_file.put_line(FND_FILE.LOG, '
3768: END IF;
3769: fnd_file.put_line(FND_FILE.LOG, '
3771: --added for bug#9854329,start
3772: IF (r_base_trx.transaction_type = 'RETURN TO VENDOR' AND nvl(lv_cr_rvrsl_flag,'N') = 'N') THEN
3773: ln_total_excise_amt := nvl(pr_tax.basic_excise,0) + nvl(pr_tax.addl_excise,0) +
3810: lv_message := 'Cenvat Receivable Account was not defined in Organization Setup';
3811: END IF;
3812: END IF;
3813:
3814: fnd_file.put_line(FND_FILE.LOG, '
3816: IF ln_receiving_accnt_id IS NULL THEN
3817: -- Vijay Shankar for Bug#4346453. RCV DFF Elim. Enh. IF r_base_trx.attr_cat = 'India RMA Receipt' THEN
3818: IF r_base_trx.source_document_code = jai_rcv_trx_processing_pkg.source_rma then
3821: lv_message := 'Receivable Account was not defined in RCV Parameters';
3822: END IF;
3823: END IF;
3824:
3825: fnd_file.put_line(FND_FILE.LOG, '
3827: /* following Added for EDUCATION CESS by Vijay Shankar*/
3828: IF ln_total_excise_edu_cess_amt <> 0 THEN
3829: /* Vijay Shankar for Bug#4211045 */
3879: END IF;
3880: --end bug #5989740
3881:
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
3890: RETURN;
3891: END IF;
3892:
3893:
3894: fnd_file.put_line(FND_FILE.LOG, '
3896: -- This will be used to update PART 1 and 2 Registers later
3897: p_cenvat_account_id := ln_cenvat_accnt_id;
3898:
3901: ELSIF lv_transaction_type IN ('DELIVER', 'RETURN TO VENDOR') THEN
3902: lv_accnt_type := 'REVERSAL';
3903: ELSE
3904: -- Sorry
3905: fnd_file.put_line(FND_FILE.LOG, '
3907: END IF;
3908:
3909: lv_statement_id := '9';
3976: END IF;
3977: --end bug#5989740
3978:
3979:
3980: fnd_file.put_line(FND_FILE.LOG, '
3982: /* edu_cess_balancing part was coded as part of Bug#4211045 */
3983: IF ln_total_excise_edu_cess_amt <> 0 THEN
3984: ln_edu_cess_balancing_debit := null;
4035: END IF;
4036: --end bug#5989740
4037:
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
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, '
4057: P_TRANSACTION_ID => p_transaction_id,
4058: P_ACCT_TYPE => lv_accnt_type,
4059: P_ACCT_NATURE => lv_accnt_nature,
4086: -- Start, EDUCATION CESS ACCCOUNTING
4087: IF nvl(ln_edu_cess_debit,0)<>0 OR nvl(ln_edu_cess_credit,0)<>0 THEN
4088:
4089: if lb_rg_debug then
4090: FND_FILE.put_line(FND_FILE.log,'11_2 Cen Accounting -- '
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, '
4089: if lb_rg_debug then
4090: FND_FILE.put_line(FND_FILE.log,'11_2 Cen Accounting -- '
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(
4127: --start SH_excise_edu_cess accounting
4128: IF nvl(ln_sh_edu_cess_debit,0)<>0 OR nvl(ln_sh_edu_cess_credit,0)<>0 THEN
4129:
4130: if lb_rg_debug then
4131: FND_FILE.put_line(FND_FILE.log,'11_3 Cen Accounting -- '
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';
4167: -- End 5989740
4168:
4169:
4170: if lb_rg_debug then
4171: FND_FILE.put_line(FND_FILE.log,'12 jai_rcv_accounting_pkg.process_transaction.'
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, '
4182: jai_rcv_accounting_pkg.process_transaction(
4183: P_TRANSACTION_ID => p_transaction_id,
4184: P_ACCT_TYPE => lv_accnt_type,
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,
4227: P_ACCT_TYPE => lv_accnt_type,
4228: P_ACCT_NATURE => lv_accnt_nature,
4254: END IF;
4255: /*added the following by vkaranam for budget 07 impact - bug#5989740*/
4256: --start
4257: if lb_rg_debug then
4258: FND_FILE.put_line(FND_FILE.log,'15 JA_IN_RECEIPT_ACCOUNTING_PKG.process_transaction.'
4259: ||' SH_Debit:'||ln_sh_edu_cess_balancin_debit||', SH_Credit:'||ln_sh_edu_cess_balancin_credit
4260: ||', ln_sh_cess_paid_payable_accnt:'||ln_sh_cess_paid_payable_accnt);
4261: end if;
4262:
4305:
4306: /*~~~~~~~~~ Reversal/Regular Entry of 50% for CGIN Items from MainCG/RcvbleCG account to RcvbleCG/MainCG account ~~~~~~~~~~~~~~~*/
4307:
4308: lv_statement_id := '11';
4309: fnd_file.put_line(FND_FILE.LOG, '
4311: IF nvl(p_cgin_code,'AA') IN ('REGULAR-HALF', 'REGULAR-FULL + REVERSAL-HALF') THEN
4312: fnd_file.put_line(FND_FILE.LOG, '
4308: lv_statement_id := '11';
4309: fnd_file.put_line(FND_FILE.LOG, '
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
4496:
4497: END IF;
4498:
4499: ELSE
4500: FND_FILE.put_line(FND_FILE.log, '**** CGIN_CODE Not Handled ****');
4501:
4502: p_process_message := 'CGIN_CODE Not Handled';
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;
4512:
4513: lv_statement_id := '13a';
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:
4519: fnd_file.put_line(FND_FILE.LOG, '
4521: P_TRANSACTION_ID => p_transaction_id,
4522: P_ACCT_TYPE => lv_accnt_type,
4523: P_ACCT_NATURE => lv_accnt_nature,
4551: -- Vijay Shankar for Bug#3940588 EDUCATION CESS Accoounting
4552: IF nvl(ln_edu_cess_debit,0)<>0 OR nvl(ln_edu_cess_credit,0)<>0 THEN
4553:
4554: if lb_rg_debug then
4555: FND_FILE.put_line(FND_FILE.log,'21_1 Cess Accnt - '
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';
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,
4565: P_ACCT_TYPE => lv_accnt_type,
4566: P_ACCT_NATURE => lv_accnt_nature,
4594: --start
4595: IF nvl(ln_sh_edu_cess_debit,0)<>0 OR nvl(ln_sh_edu_cess_credit,0)<>0 THEN
4596:
4597: if lb_rg_debug then
4598: FND_FILE.put_line(FND_FILE.log,'21_2 Cess Accnt - '
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';
4634: END IF;
4635: --end 5989740
4636:
4637:
4638: FND_FILE.put_line( FND_FILE.log, 'Codepath->'||p_codepath);
4639: if lb_rg_debug then
4640: FND_FILE.put_line(FND_FILE.log,'22 jai_rcv_accounting_pkg.process_transaction'
4641: ||' Debit:'||ln_balancing_debit||', Credit:'||ln_balancing_credit||', CenRcvbleAccntId:'||ln_cenvat_rcvble_accnt_id);
4642: end if;
4636:
4637:
4638: FND_FILE.put_line( FND_FILE.log, 'Codepath->'||p_codepath);
4639: if lb_rg_debug then
4640: FND_FILE.put_line(FND_FILE.log,'22 jai_rcv_accounting_pkg.process_transaction'
4641: ||' Debit:'||ln_balancing_debit||', Credit:'||ln_balancing_credit||', CenRcvbleAccntId:'||ln_cenvat_rcvble_accnt_id);
4642: end if;
4643:
4644: lv_statement_id := '13b';
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:
4650: fnd_file.put_line(FND_FILE.LOG, '
4652: P_TRANSACTION_ID => p_transaction_id,
4653: P_ACCT_TYPE => lv_accnt_type,
4654: P_ACCT_NATURE => lv_accnt_nature,
4682: -- Vijay Shankar for Bug#3940588 EDUCATION CESS ACCOUNTING
4683: IF nvl(ln_bal_edu_cess_debit,0)<>0 OR nvl(ln_bal_edu_cess_credit,0)<>0 THEN
4684:
4685: if lb_rg_debug then
4686: FND_FILE.put_line(FND_FILE.log,'22_2 Cess Rcvble accnt'
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';
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,
4696: P_ACCT_TYPE => lv_accnt_type,
4697: P_ACCT_NATURE => lv_accnt_nature,
4726: --start
4727: IF nvl(ln_sh_bal_edu_cess_debit,0)<>0 OR nvl(ln_sh_bal_edu_cess_credit,0)<>0 THEN
4728:
4729: if lb_rg_debug then
4730: FND_FILE.put_line(FND_FILE.log,'22_3 Cess Rcvble accnt'
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';
4772:
4773: <
4774: NULL;
4775:
4776: fnd_file.put_line(FND_FILE.LOG, '
4778: fnd_file.put_line(FND_FILE.LOG, '
4780: WHEN OTHERS THEN
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';
4782: fnd_file.put_line(FND_FILE.LOG, '
4778: fnd_file.put_line(FND_FILE.LOG, '
4780: WHEN OTHERS THEN
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:
4780: WHEN OTHERS THEN
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:
4809: ||', PayReg:'||p_payment_register
4810: ||', Qtyid:'||p_quantity_register_id
4811: ||', QtyReg:'||p_quantity_register
4812: ||', ChrgAccnt:'||p_charge_account_id); */
4813: fnd_file.put_line(fnd_file.log, '^ Upd_Regs. Payid:'||p_payment_register_id
4814: ||', PayReg:'||p_payment_register
4815: ||', Qtyid:'||p_quantity_register_id
4816: ||', QtyReg:'||p_quantity_register
4817: ||', ChrgAccnt:'||p_charge_account_id);
4844: payment_register = p_payment_register
4845: WHERE register_id = p_quantity_register_id;
4846:
4847: ELSE
4848: FND_FILE.put_line( FND_FILE.log, 'JA_IN_RECEIPT_MODVAT_RG_PKG.update_registers: No Quantity Register Updated');
4849: END IF;
4850:
4851: IF p_payment_register IN ('RG23A', 'RG23C') THEN
4852: lv_statement_id := '5';
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 */
4874:
4875: EXCEPTION
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:
4927:
4928: BEGIN
4929:
4930: if lb_rg_debug then
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 */
5080: EXCEPTION
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:
5107: lv_statement_id VARCHAR2(5);
5108: BEGIN
5109:
5110: if lb_rg_debug then
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 */
5146:
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;
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:
5226: ln_mod_problem_amt := 0;
5227: ln_nonmod_problem_amt := 0;
5539: /*dbms_output.put_line('$tax_breakup. Basic:'||pr_tax.basic_excise||', Addl:'||pr_tax.addl_excise
5540: ||', 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 );
5541:
5542: */
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 */
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;
5620:
5621:
5622: /*
5821: */
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;
5860:
5861: END IF;
5862:
5863: IF lb_rg_debug THEN
5864: FND_FILE.put_line( fnd_file.log, 'Org PlaPref:'||r_orgn_info.pref_pla||', 23aPref:'||r_orgn_info.pref_rg23a
5865: ||', 23cPref:'||r_orgn_info.pref_rg23c||', pref1_reg:'||lv_pref1_register||', pref2_reg:'||lv_pref2_register
5866: ||', AllowNegative:'||r_orgn_info.allow_negative_pla
5867: );
5868: /*dbms_output.put_line( 'Org PlaPref:'||r_orgn_info.pref_pla||', 23aPref:'||r_orgn_info.pref_rg23a
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
6130: WHEN OTHERS THEN
6377: p_process_message => pv_process_message
6378: );
6379: EXCEPTION
6380: WHEN OTHERS THEN
6381: fnd_file.put_line(FND_FILE.LOG, ' exception ' || SQLERRM);
6382: END ;
6383: lv_statement_id := '6';
6384: IF pv_process_status IN ('E', 'X') THEN
6385: GOTO end_of_procedure;
6416: p_process_message => pv_process_message
6417: );
6418: Exception
6419: WHEN OTHERS THEN
6420: fnd_file.put_line(FND_FILE.LOG, ' exception ' || SQLERRM);
6421: END ;
6422: lv_statement_id := '8';
6423: IF pv_process_status IN ('E', 'X') THEN
6424: GOTO end_of_procedure;
6714: p_process_message => pv_process_message
6715: ,p_reference_name => lv_reference_name,
6716: p_reference_id => ln_reference_id
6717: );
6718: fnd_file.put_line(FND_FILE.LOG, ' lv_statement_id ' || lv_statement_id);
6719: lv_statement_id := '31';
6720: if pv_process_status = 'E' then
6721: goto end_of_procedure;
6722: end if;
6748: p_process_message => pv_process_message
6749: ,p_reference_name => lv_reference_name,
6750: p_reference_id => ln_reference_id
6751: );
6752: fnd_file.put_line(FND_FILE.LOG, ' lv_statement_id ' || lv_statement_id);
6753: lv_statement_id := '28';
6754: if pv_process_status = 'E' then
6755: goto end_of_procedure;
6756: end if;