[Home] [Help]
142:
143: begin
144:
145: if jai_pa_billing_pkg.gv_debug then
146: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, 'Start insert_gl_entry');
147: end if;
148:
149: if pr_gl_entry.credit_ccid is not null and nvl(pr_gl_entry.credit_amount,0) <> 0 then
150: if jai_pa_billing_pkg.gv_debug then
147: end if;
148:
149: if pr_gl_entry.credit_ccid is not null and nvl(pr_gl_entry.credit_amount,0) <> 0 then
150: if jai_pa_billing_pkg.gv_debug then
151: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '1 insert_gl_entry- Credit Entry');
152: end if;
153:
154: insert into gl_interface(
155: status,
253: end if;
254:
255: if pr_gl_entry.debit_ccid is not null and nvl(pr_gl_entry.debit_amount,0) <> 0 then
256: if jai_pa_billing_pkg.gv_debug then
257: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '2 insert_gl_entry- debit entry');
258: end if;
259:
260: insert into gl_interface(
261: status,
359: );
360: end if;
361:
362: if jai_pa_billing_pkg.gv_debug then
363: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, 'End insert_gl_entry');
364: end if;
365:
366: end insert_gl_entry;
367:
394: begin
395:
396: lv_statement_no := '1';
397: if jai_pa_billing_pkg.gv_debug then
398: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, 'Start process_draft_invoice_release');
399: end if;
400:
401: open c_draft_invoice_dtls(pr_draft_invoice.project_id, pr_draft_invoice.draft_invoice_num);
402: fetch c_draft_invoice_dtls into r_draft_invoice_dtls;
414: fetch c_tax_cnt into r_tax_cnt;
415: close c_tax_cnt;
416:
417: if jai_pa_billing_pkg.gv_debug then
418: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '1 pdir- ExcCnt:'||r_tax_cnt.excise_cnt||', VatCnt:'||r_tax_cnt.vat_cnt);
419: end if;
420:
421: if r_tax_cnt.excise_cnt > 0 then
422: lv_statement_no := '2';
420:
421: if r_tax_cnt.excise_cnt > 0 then
422: lv_statement_no := '2';
423: if jai_pa_billing_pkg.gv_debug then
424: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '2 pdir- BefCall to ProcExcise:');
425: end if;
426:
427: if nvl(r_draft_invoice_dtls.process_excise_flag, jai_constants.no) <> jai_constants.yes then
428:
436: pv_process_message => pv_process_message
437: ) ;
438:
439: if jai_pa_billing_pkg.gv_debug then
440: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '1.1 pdir- After process_excise. pv_process_message:'
441: ||pv_process_message);
442: end if;
443:
444: if pv_process_flag in (jai_constants.unexpected_error, jai_constants.expected_error, 'E') then
451:
452: if r_tax_cnt.vat_cnt > 0 then
453: lv_statement_no := '3';
454: if jai_pa_billing_pkg.gv_debug then
455: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '3 pdir- BefCall to ProcVat');
456: end if;
457:
458: if nvl(r_draft_invoice_dtls.process_vat_flag, jai_constants.no) <> jai_constants.yes then
459: process_vat(
465: pv_process_message => pv_process_message
466: ) ;
467:
468: if jai_pa_billing_pkg.gv_debug then
469: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '3.1 pdir- After process_vat. pv_process_message:'
470: ||pv_process_message);
471: end if;
472:
473: if pv_process_flag in (jai_constants.unexpected_error, jai_constants.expected_error, 'E') then
479: end if;
480:
481: lv_statement_no := '4';
482: if jai_pa_billing_pkg.gv_debug then
483: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '3 End pdir');
484: end if;
485:
486: <
487: if jai_pa_billing_pkg.gv_debug then
484: end if;
485:
486: <
487: if jai_pa_billing_pkg.gv_debug then
488: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '9 End of process_draft_invoice_release');
489: end if;
490:
491: exception
492: /*Added for Forward Port Bug 6503813 - Start*/
535:
536: begin
537:
538: if jai_pa_billing_pkg.gv_debug then
539: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '1 Start Process_Vat');
540: end if;
541:
542: lv_credit_memo_flag := jai_constants.no;
543:
568: end if;
569:
570: if lv_vat_invoice_no is null then
571: if jai_pa_billing_pkg.gv_debug then
572: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '2 rocess_Vat. BefCall to jai_cmn_rgm_setup_pkg.gen_invoice_number. Regime:'||ln_regime_id);
573: end if;
574:
575: /* generation of vat invoice number uses the Default VAT Doc sequence setup */
576: jai_cmn_rgm_setup_pkg.gen_invoice_number(
585: p_process_msg => pv_process_message
586: );
587:
588: if jai_pa_billing_pkg.gv_debug then
589: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '3 rocess_Vat. AftCall to jai_cmn_rgm_setup_pkg.gen_invoice_number. lv_vat_invoice_no:'||lv_vat_invoice_no);
590: end if;
591:
592: end if;
593:
606:
607: end if;
608:
609: if jai_pa_billing_pkg.gv_debug then
610: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '4 rocess_Vat. BefCall to jai_cmn_rgm_vat_accnt_pkg.process_order_invoice. DraftInvoceId:'||r_draft_invoice_dtls.draft_invoice_id);
611: end if;
612:
613: if lv_credit_memo_flag = jai_constants.yes then
614: lv_called_from := 'DRAFT_INVOICE_CM';
641: p_process_message => pv_process_message
642: );
643:
644: if jai_pa_billing_pkg.gv_debug then
645: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '6 process_Vat. AftCall to jai_cmn_rgm_vat_accnt_pkg.process_order_invoice. pv_process_message:'||pv_process_message);
646: end if;
647:
648: if pv_process_flag in (jai_constants.unexpected_error, jai_constants.expected_error, 'E') then
649: goto end_of_procedure;
659: WHERE draft_invoice_id = r_draft_invoice_dtls.draft_invoice_id;
660:
661: <
662: if jai_pa_billing_pkg.gv_debug then
663: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '7 End process_Vat. Aft UPDATE jai_pa_draft_invoices');
664: end if;
665:
666: exception
667: when others then
789:
790: BEGIN
791:
792: if jai_pa_billing_pkg.gv_debug then
793: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '1 Start process_excise');
794: end if;
795:
796: /* defaults initialization */
797: lv_transaction_type := jai_pa_billing_pkg.gv_trx_type_draft_invoice; -- 'DRAFT_INVOICE';
841:
842: /* Check if sufficient balances exist for the transaction to go through,
843: based on register preferences */
844: if jai_pa_billing_pkg.gv_debug then
845: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '2 process_excise. BefChkExcBal.'
846: ||', ln_basic_excise_amt:'||ln_basic_excise_amt
847: ||', ln_additional_excise_amt:'||ln_additional_excise_amt
848: ||', ln_other_excise_amt:'||ln_other_excise_amt
849: ||', ln_excise_cess_amt:'||ln_excise_cess_amt
866: pv_process_message => pv_process_message
867: );
868:
869: if jai_pa_billing_pkg.gv_debug then
870: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '3 process_excise. AftChkExcBal. lv_register:'||lv_register
871: ||', pv_process_message:'||pv_process_message);
872: end if;
873:
874: if pv_process_flag in (jai_constants.unexpected_error, jai_constants.expected_error, 'E') then
877: /**** Control comes here only if excise balance exists ****/
878:
879: ln_fin_year := jai_general_pkg.get_fin_year(r_jai_pa_draft_invoices.organization_id);
880: if jai_pa_billing_pkg.gv_debug then
881: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '5 process_excise. Before jai_cmn_setup_pkg.generate_excise_invoice_no');
882: end if;
883:
884: /* Generate Excise Invoice
885: for CREDIT MEMO the excise invoice number should not be generated
897: p_errbuf => pv_process_message
898: );
899:
900: if jai_pa_billing_pkg.gv_debug then
901: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '5 process_excise. After jai_cmn_setup_pkg.generate_excise_invoice_no. lv_excise_inv_no:'||lv_excise_inv_no
902: ||', pv_process_message:'||pv_process_message);
903: end if;
904:
905: if pv_process_message is not null then
949:
950: lv_remarks := 'For projects draft invoice number-'||pr_pa_draft_invoices_all.draft_invoice_num;
951:
952: if jai_pa_billing_pkg.gv_debug then
953: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '8 process_excise. Before jai_cmn_rg_23ac_ii_trxs_pkg.insert_row'
954: );
955: end if;
956:
957: jai_cmn_rg_23ac_ii_pkg.insert_row
993: p_process_message => pv_process_message
994: );
995:
996: if jai_pa_billing_pkg.gv_debug then
997: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '9 process_excise. After jai_cmn_rg_23ac_ii_pkg.insert_row'
998: ||', ln_register_id:'||ln_register_id||', pv_process_message:'||pv_process_message);
999: end if;
1000:
1001: if pv_process_flag in (jai_constants.unexpected_error, jai_constants.expected_error) then
1008:
1009: elsif lv_register = 'PLA' then
1010:
1011: if jai_pa_billing_pkg.gv_debug then
1012: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '11 process_excise. Before jai_cmn_rg_pla_trxs_pkg.insert_row'
1013: );
1014: end if;
1015:
1016: jai_cmn_rg_pla_trxs_pkg.insert_row
1051: p_cr_other_ed => null
1052: );
1053:
1054: if jai_pa_billing_pkg.gv_debug then
1055: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '12 process_excise. After jai_cmn_rg_pla_trxs_pkg.insert_row'
1056: ||', ln_register_id:'||ln_register_id||', pv_process_message:'||pv_process_message);
1057: end if;
1058:
1059: if pv_process_flag in (jai_constants.unexpected_error, jai_constants.expected_error, 'E') then
1070: /* Recording in Cess Register */
1071: if ln_register_id is not null and nvl(ln_excise_cess_amt,0) <> 0 then
1072:
1073: if jai_pa_billing_pkg.gv_debug then
1074: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '14 process_excise. Before jai_cmn_rg_others_pkg.insert_row');
1075: end if;
1076:
1077: jai_cmn_rg_others_pkg.insert_row
1078: (
1086: p_process_msg => pv_process_message
1087: );
1088:
1089: if jai_pa_billing_pkg.gv_debug then
1090: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '15 process_excise. After jai_cmn_rg_others_pkg.insert_row');
1091: end if;
1092:
1093: if pv_process_flag in (jai_constants.unexpected_error, jai_constants.expected_error, 'E') then
1094: goto exit_from_procedure;
1099: /* start- budget07 changes */
1100: if ln_register_id is not null and nvl(ln_sh_excise_cess_amt,0) <> 0 then
1101:
1102: if jai_pa_billing_pkg.gv_debug then
1103: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '14.1 process_excise. Before SH jai_cmn_rg_others_pkg.insert_row');
1104: end if;
1105:
1106: jai_cmn_rg_others_pkg.insert_row
1107: (
1115: p_process_msg => pv_process_message
1116: );
1117:
1118: if jai_pa_billing_pkg.gv_debug then
1119: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '15.1 process_excise. After SH jai_cmn_rg_others_pkg.insert_row');
1120: end if;
1121:
1122: if pv_process_flag in (jai_constants.unexpected_error, jai_constants.expected_error, 'E') then
1123: goto exit_from_procedure;
1185: r_gl_entry.source_table_name := jai_pa_billing_pkg.gv_draft_invoice_table; -- JAI_CMN_JOURNAL_ENTRIES.source_table_name%type,
1186: r_gl_entry.source_document_id := r_jai_pa_draft_invoices.draft_invoice_id; -- JAI_CMN_JOURNAL_ENTRIES.source_trx_id%type
1187:
1188: if jai_pa_billing_pkg.gv_debug then
1189: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '18 process_excise. Before insert_gl_entry- Excise');
1190: end if;
1191:
1192: insert_gl_entry(
1193: pr_gl_entry => r_gl_entry,
1238: r_gl_entry.debit_ccid := ln_debit_ccid; -- gl_interface.code_combination_id%TYPE,
1239: r_gl_entry.regime_code := 'EXCISE_EDUCATION_CESS'; -- varchar2(30),
1240:
1241: if jai_pa_billing_pkg.gv_debug then
1242: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '19 process_excise. Before insert_gl_entry- Excise Edu Cess');
1243: end if;
1244:
1245: insert_gl_entry(
1246: pr_gl_entry => r_gl_entry,
1293: r_gl_entry.debit_ccid := ln_debit_ccid; -- gl_interface.code_combination_id%TYPE,
1294: r_gl_entry.regime_code := jai_constants.tax_type_sh_exc_edu_cess; -- varchar2(30),
1295:
1296: if jai_pa_billing_pkg.gv_debug then
1297: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '19.1 process_excise. Before insert_gl_entry- SH Excise Edu Cess');
1298: end if;
1299:
1300: insert_gl_entry(
1301: pr_gl_entry => r_gl_entry,
1328: last_update_login = fnd_global.login_id
1329: WHERE draft_invoice_id = r_jai_pa_draft_invoices.draft_invoice_id;
1330:
1331: if jai_pa_billing_pkg.gv_debug then
1332: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '20 process_excise. After UPDATE jai_pa_draft_invoices');
1333: end if;
1334:
1335: << exit_from_procedure >>
1336: null;