[Home] [Help]
155:
156: begin
157:
158: if jai_pa_billing_pkg.gv_debug then
159: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, 'Start insert_gl_entry');
160: end if;
161:
162: if pr_gl_entry.credit_ccid is not null and nvl(pr_gl_entry.credit_amount,0) <> 0 then
163: if jai_pa_billing_pkg.gv_debug then
160: end if;
161:
162: if pr_gl_entry.credit_ccid is not null and nvl(pr_gl_entry.credit_amount,0) <> 0 then
163: if jai_pa_billing_pkg.gv_debug then
164: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '1 insert_gl_entry- Credit Entry');
165: end if;
166:
167: insert into gl_interface(
168: status,
266: end if;
267:
268: if pr_gl_entry.debit_ccid is not null and nvl(pr_gl_entry.debit_amount,0) <> 0 then
269: if jai_pa_billing_pkg.gv_debug then
270: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '2 insert_gl_entry- debit entry');
271: end if;
272:
273: insert into gl_interface(
274: status,
372: );
373: end if;
374:
375: if jai_pa_billing_pkg.gv_debug then
376: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, 'End insert_gl_entry');
377: end if;
378:
379: end insert_gl_entry;
380:
416: begin
417:
418: lv_statement_no := '1';
419: if jai_pa_billing_pkg.gv_debug then
420: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, 'Start process_draft_invoice_release');
421: end if;
422:
423: open c_draft_invoice_dtls(pr_draft_invoice.project_id, pr_draft_invoice.draft_invoice_num);
424: fetch c_draft_invoice_dtls into r_draft_invoice_dtls;
444: fetch c_tax_cnt into r_tax_cnt;
445: close c_tax_cnt;
446:
447: if jai_pa_billing_pkg.gv_debug then
448: 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);
449: end if;
450:
451: if r_tax_cnt.excise_cnt > 0 then
452: lv_statement_no := '2';
450:
451: if r_tax_cnt.excise_cnt > 0 then
452: lv_statement_no := '2';
453: if jai_pa_billing_pkg.gv_debug then
454: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '2 pdir- BefCall to ProcExcise:');
455: end if;
456:
457: if nvl(r_draft_invoice_dtls.process_excise_flag, jai_constants.no) <> jai_constants.yes then
458:
466: pv_process_message => pv_process_message
467: ) ;
468:
469: if jai_pa_billing_pkg.gv_debug then
470: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '1.1 pdir- After process_excise. pv_process_message:'
471: ||pv_process_message);
472: end if;
473:
474: if pv_process_flag in (jai_constants.unexpected_error, jai_constants.expected_error, 'E') then
481:
482: if r_tax_cnt.vat_cnt > 0 then
483: lv_statement_no := '3';
484: if jai_pa_billing_pkg.gv_debug then
485: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '3 pdir- BefCall to ProcVat');
486: end if;
487:
488: if nvl(r_draft_invoice_dtls.process_vat_flag, jai_constants.no) <> jai_constants.yes then
489: process_vat(
496: pv_process_message => pv_process_message
497: ) ;
498:
499: if jai_pa_billing_pkg.gv_debug then
500: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '3.1 pdir- After process_vat. pv_process_message:'
501: ||pv_process_message);
502: end if;
503:
504: if pv_process_flag in (jai_constants.unexpected_error, jai_constants.expected_error, 'E') then
510: end if;
511:
512: lv_statement_no := '4';
513: if jai_pa_billing_pkg.gv_debug then
514: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '3 End pdir');
515: end if;
516:
517: <
518: if jai_pa_billing_pkg.gv_debug then
515: end if;
516:
517: <
518: if jai_pa_billing_pkg.gv_debug then
519: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '9 End of process_draft_invoice_release');
520: end if;
521:
522: exception
523: /*Added for Forward Port Bug 6503813 - Start*/
568:
569: begin
570:
571: if jai_pa_billing_pkg.gv_debug then
572: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '1 Start Process_Vat');
573: end if;
574:
575: lv_credit_memo_flag := jai_constants.no;
576: ld_gl_date := pr_pa_draft_invoices_all.gl_date; /*Bug 12611009 - Fetch GL Date of the PA Draft Invoice*/
602: end if;
603:
604: if lv_vat_invoice_no is null then
605: if jai_pa_billing_pkg.gv_debug then
606: 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);
607: end if;
608:
609: /* generation of vat invoice number uses the Default VAT Doc sequence setup */
610: jai_cmn_rgm_setup_pkg.gen_invoice_number(
619: p_process_msg => pv_process_message
620: );
621:
622: if jai_pa_billing_pkg.gv_debug then
623: 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);
624: end if;
625:
626: end if;
627:
640:
641: end if;
642:
643: if jai_pa_billing_pkg.gv_debug then
644: 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);
645: end if;
646:
647: if lv_credit_memo_flag = jai_constants.yes then
648: lv_called_from := 'DRAFT_INVOICE_CM';
675: p_process_message => pv_process_message
676: );
677:
678: if jai_pa_billing_pkg.gv_debug then
679: 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);
680: end if;
681:
682: if pv_process_flag in (jai_constants.unexpected_error, jai_constants.expected_error, 'E') then
683: goto end_of_procedure;
693: WHERE draft_invoice_id = r_draft_invoice_dtls.draft_invoice_id;
694:
695: <
696: if jai_pa_billing_pkg.gv_debug then
697: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '7 End process_Vat. Aft UPDATE jai_pa_draft_invoices');
698: end if;
699:
700: exception
701: when others then
824:
825: BEGIN
826:
827: if jai_pa_billing_pkg.gv_debug then
828: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '1 Start process_excise');
829: end if;
830:
831: /* defaults initialization */
832: lv_transaction_type := jai_pa_billing_pkg.gv_trx_type_draft_invoice; -- 'DRAFT_INVOICE';
877:
878: /* Check if sufficient balances exist for the transaction to go through,
879: based on register preferences */
880: if jai_pa_billing_pkg.gv_debug then
881: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '2 process_excise. BefChkExcBal.'
882: ||', ln_basic_excise_amt:'||ln_basic_excise_amt
883: ||', ln_additional_excise_amt:'||ln_additional_excise_amt
884: ||', ln_other_excise_amt:'||ln_other_excise_amt
885: ||', ln_excise_cess_amt:'||ln_excise_cess_amt
902: pv_process_message => pv_process_message
903: );
904:
905: if jai_pa_billing_pkg.gv_debug then
906: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '3 process_excise. AftChkExcBal. lv_register:'||lv_register
907: ||', pv_process_message:'||pv_process_message);
908: end if;
909:
910: if pv_process_flag in (jai_constants.unexpected_error, jai_constants.expected_error, 'E') then
913: /**** Control comes here only if excise balance exists ****/
914:
915: ln_fin_year := jai_general_pkg.get_fin_year(r_jai_pa_draft_invoices.organization_id);
916: if jai_pa_billing_pkg.gv_debug then
917: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '5 process_excise. Before jai_cmn_setup_pkg.generate_excise_invoice_no');
918: end if;
919:
920: /* Generate Excise Invoice
921: for CREDIT MEMO the excise invoice number should not be generated
933: p_errbuf => pv_process_message
934: );
935:
936: if jai_pa_billing_pkg.gv_debug then
937: 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
938: ||', pv_process_message:'||pv_process_message);
939: end if;
940:
941: if pv_process_message is not null then
985:
986: lv_remarks := 'For projects draft invoice number-'||pr_pa_draft_invoices_all.draft_invoice_num;
987:
988: if jai_pa_billing_pkg.gv_debug then
989: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '8 process_excise. Before jai_cmn_rg_23ac_ii_trxs_pkg.insert_row'
990: );
991: end if;
992:
993: jai_cmn_rg_23ac_ii_pkg.insert_row
1029: p_process_message => pv_process_message
1030: );
1031:
1032: if jai_pa_billing_pkg.gv_debug then
1033: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '9 process_excise. After jai_cmn_rg_23ac_ii_pkg.insert_row'
1034: ||', ln_register_id:'||ln_register_id||', pv_process_message:'||pv_process_message);
1035: end if;
1036:
1037: if pv_process_flag in (jai_constants.unexpected_error, jai_constants.expected_error) then
1044:
1045: elsif lv_register = 'PLA' then
1046:
1047: if jai_pa_billing_pkg.gv_debug then
1048: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '11 process_excise. Before jai_cmn_rg_pla_trxs_pkg.insert_row'
1049: );
1050: end if;
1051:
1052: jai_cmn_rg_pla_trxs_pkg.insert_row
1087: p_cr_other_ed => null
1088: );
1089:
1090: if jai_pa_billing_pkg.gv_debug then
1091: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '12 process_excise. After jai_cmn_rg_pla_trxs_pkg.insert_row'
1092: ||', ln_register_id:'||ln_register_id||', pv_process_message:'||pv_process_message);
1093: end if;
1094:
1095: if pv_process_flag in (jai_constants.unexpected_error, jai_constants.expected_error, 'E') then
1106: /* Recording in Cess Register */
1107: if ln_register_id is not null and nvl(ln_excise_cess_amt,0) <> 0 then
1108:
1109: if jai_pa_billing_pkg.gv_debug then
1110: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '14 process_excise. Before jai_cmn_rg_others_pkg.insert_row');
1111: end if;
1112:
1113: jai_cmn_rg_others_pkg.insert_row
1114: (
1122: p_process_msg => pv_process_message
1123: );
1124:
1125: if jai_pa_billing_pkg.gv_debug then
1126: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '15 process_excise. After jai_cmn_rg_others_pkg.insert_row');
1127: end if;
1128:
1129: if pv_process_flag in (jai_constants.unexpected_error, jai_constants.expected_error, 'E') then
1130: goto exit_from_procedure;
1135: /* start- budget07 changes */
1136: if ln_register_id is not null and nvl(ln_sh_excise_cess_amt,0) <> 0 then
1137:
1138: if jai_pa_billing_pkg.gv_debug then
1139: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '14.1 process_excise. Before SH jai_cmn_rg_others_pkg.insert_row');
1140: end if;
1141:
1142: jai_cmn_rg_others_pkg.insert_row
1143: (
1151: p_process_msg => pv_process_message
1152: );
1153:
1154: if jai_pa_billing_pkg.gv_debug then
1155: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '15.1 process_excise. After SH jai_cmn_rg_others_pkg.insert_row');
1156: end if;
1157:
1158: if pv_process_flag in (jai_constants.unexpected_error, jai_constants.expected_error, 'E') then
1159: goto exit_from_procedure;
1221: r_gl_entry.source_table_name := jai_pa_billing_pkg.gv_draft_invoice_table; -- JAI_CMN_JOURNAL_ENTRIES.source_table_name%type,
1222: r_gl_entry.source_document_id := r_jai_pa_draft_invoices.draft_invoice_id; -- JAI_CMN_JOURNAL_ENTRIES.source_trx_id%type
1223:
1224: if jai_pa_billing_pkg.gv_debug then
1225: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '18 process_excise. Before insert_gl_entry- Excise');
1226: end if;
1227:
1228: insert_gl_entry(
1229: pr_gl_entry => r_gl_entry,
1274: r_gl_entry.debit_ccid := ln_debit_ccid; -- gl_interface.code_combination_id%TYPE,
1275: r_gl_entry.regime_code := 'EXCISE_EDUCATION_CESS'; -- varchar2(30),
1276:
1277: if jai_pa_billing_pkg.gv_debug then
1278: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '19 process_excise. Before insert_gl_entry- Excise Edu Cess');
1279: end if;
1280:
1281: insert_gl_entry(
1282: pr_gl_entry => r_gl_entry,
1329: r_gl_entry.debit_ccid := ln_debit_ccid; -- gl_interface.code_combination_id%TYPE,
1330: r_gl_entry.regime_code := jai_constants.tax_type_sh_exc_edu_cess; -- varchar2(30),
1331:
1332: if jai_pa_billing_pkg.gv_debug then
1333: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '19.1 process_excise. Before insert_gl_entry- SH Excise Edu Cess');
1334: end if;
1335:
1336: insert_gl_entry(
1337: pr_gl_entry => r_gl_entry,
1364: last_update_login = fnd_global.login_id
1365: WHERE draft_invoice_id = r_jai_pa_draft_invoices.draft_invoice_id;
1366:
1367: if jai_pa_billing_pkg.gv_debug then
1368: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '20 process_excise. After UPDATE jai_pa_draft_invoices');
1369: end if;
1370:
1371: << exit_from_procedure >>
1372: null;