[Home] [Help]
465: --Added by Wenqiong for Bug 14253668 end
466: BEGIN
467:
468: lv_statement := '0';
469: lv_codepath := jai_general_pkg.plot_codepath(1, lv_codepath, 'Insert_Repository_Entry', 'START');
470:
471: OPEN c_regime_code(p_regime_id);
472: FETCH c_regime_code INTO lv_regime_code;
473: CLOSE c_regime_code;
479:
480: lv_statement := '1';
481: -- REGIME Validation
482: IF lv_regime_code <> jai_constants.service_regime THEN
483: lv_codepath := jai_general_pkg.plot_codepath(2, lv_codepath);
484: p_process_flag := jai_constants.expected_error;
485: p_process_message := 'Transactions other than SERVICE regime are not supported';
486: FND_FILE.put_line( FND_FILE.log, p_process_message);
487: fnd_file.put_line(fnd_file.log,p_process_message);
499:
500: lv_statement := '2';
501: IF p_source IN (jai_constants.source_settle_in, jai_constants.source_settle_out) THEN
502: ld_transaction_date := p_transaction_date;
503: lv_codepath := jai_general_pkg.plot_codepath(2.1, lv_codepath);
504:
505: ELSE
506: ld_last_settlement_date := jai_cmn_rgm_settlement_pkg.get_last_settlement_date(pn_regime_id => p_regime_id,pn_org_id => p_organization_id,pn_location_id => p_location_id);/* added location id by ssawant for bug 5989740 */
507: IF ld_last_settlement_date > p_transaction_date THEN /*for bug 5662296 ,org_settlement. Replaced >= with >*/
505: ELSE
506: ld_last_settlement_date := jai_cmn_rgm_settlement_pkg.get_last_settlement_date(pn_regime_id => p_regime_id,pn_org_id => p_organization_id,pn_location_id => p_location_id);/* added location id by ssawant for bug 5989740 */
507: IF ld_last_settlement_date > p_transaction_date THEN /*for bug 5662296 ,org_settlement. Replaced >= with >*/
508: ld_transaction_date := ld_last_settlement_date + 1;
509: lv_codepath := jai_general_pkg.plot_codepath(2.2, lv_codepath);
510: ELSIF ld_last_settlement_date IS NULL or ld_last_settlement_date <= p_transaction_date THEN /* for bug 5662296 , org_settlement. Replaced < with <=*/
511: ld_transaction_date := p_transaction_date;
512: lv_codepath := jai_general_pkg.plot_codepath(2.3, lv_codepath);
513: END IF;
508: ld_transaction_date := ld_last_settlement_date + 1;
509: lv_codepath := jai_general_pkg.plot_codepath(2.2, lv_codepath);
510: ELSIF ld_last_settlement_date IS NULL or ld_last_settlement_date <= p_transaction_date THEN /* for bug 5662296 , org_settlement. Replaced < with <=*/
511: ld_transaction_date := p_transaction_date;
512: lv_codepath := jai_general_pkg.plot_codepath(2.3, lv_codepath);
513: END IF;
514: END IF;
515:
516: lv_statement := '2.1';
547: AND p_source_trx_type NOT IN ('REVERSE_PAID_ACCOUNTING','REVERSE_AVOID_ACCOUNTING','REVERSE_APPLY_ACCOUNTING','REVERSE_UNAPPLY_ACCOUNTING')
548: OR ( nvl(lv_ar_trx_type,'#') = jai_constants.ar_invoice_type_cm)--Added by Qiong for reverse charge bug#16001407
549: THEN--Updated for POT for CM/DM issue
550: lv_statement := '3';
551: lv_codepath := jai_general_pkg.plot_codepath(3, lv_codepath);
552: lv_register_entry_type := jai_constants.credit;
553: lv_account_name := jai_constants.recovery;
554: lv_charge_entry_type := jai_constants.debit;
555: lv_balancing_accnt_name := jai_constants.recovery_interim;
565: AND nvl(lv_ar_trx_type,'#') <> jai_constants.ar_invoice_type_cm --Added by Qiong for reverse charge bug#16001407
566: --Added by Qiong for reverse charge bug#16001407
567: OR p_source_trx_type IN ('REVERSE_PAID_ACCOUNTING','REVERSE_AVOID_ACCOUNTING','REVERSE_APPLY_ACCOUNTING','REVERSE_UNAPPLY_ACCOUNTING') THEN
568: lv_statement := '4';
569: lv_codepath := jai_general_pkg.plot_codepath(4, lv_codepath);
570: lv_register_entry_type := jai_constants.debit;
571: lv_account_name := jai_constants.liability;
572: lv_charge_entry_type := jai_constants.credit;
573: lv_balancing_accnt_name := jai_constants.liability_interim;
582: ELSIF p_source = jai_constants.source_manual_entry THEN
583: /*No need to Set Balancing Account Name as there is no need to derive balancing account because User ENTERs it in MANUAL
584: ENTRY Form*/
585: lv_statement := '5';
586: lv_codepath := jai_general_pkg.plot_codepath(5, lv_codepath);
587: lv_account_name := p_account_name;
588: IF lv_account_name IN (jai_constants.recovery, jai_constants.recovery_interim) THEN
589: lv_codepath := jai_general_pkg.plot_codepath(6, lv_codepath);
590: lv_register_entry_type := jai_constants.credit;
585: lv_statement := '5';
586: lv_codepath := jai_general_pkg.plot_codepath(5, lv_codepath);
587: lv_account_name := p_account_name;
588: IF lv_account_name IN (jai_constants.recovery, jai_constants.recovery_interim) THEN
589: lv_codepath := jai_general_pkg.plot_codepath(6, lv_codepath);
590: lv_register_entry_type := jai_constants.credit;
591: lv_charge_entry_type := jai_constants.debit;
592: lv_balancing_entry_type := jai_constants.credit;
593: ELSIF lv_account_name IN (jai_constants.liability, jai_constants.liability_interim) THEN
590: lv_register_entry_type := jai_constants.credit;
591: lv_charge_entry_type := jai_constants.debit;
592: lv_balancing_entry_type := jai_constants.credit;
593: ELSIF lv_account_name IN (jai_constants.liability, jai_constants.liability_interim) THEN
594: lv_codepath := jai_general_pkg.plot_codepath(7, lv_codepath);
595: lv_register_entry_type := jai_constants.debit;
596: lv_charge_entry_type := jai_constants.credit;
597: lv_balancing_entry_type := jai_constants.debit;
598: END IF;
600: /* Incase of Distributions and settlements, we hit only recovery account and decrease/increase
601: repository amounts as per _OUT/_IN trxns*/
602: ELSIF p_source IN (jai_constants.service_src_distribute_out, jai_constants.source_settle_out) THEN
603: lv_statement := '6';
604: lv_codepath := jai_general_pkg.plot_codepath(8, lv_codepath);
605: lv_register_entry_type := jai_constants.debit;
606: /* following is changed as per Shekhars finding. this is because incase of distributions and settlements,
607: we should hit only recovery accounts*/
608: lv_account_name := jai_constants.recovery; -- jai_constants.liability; This is changed as per Shekhars finding
614: -- END IF; /*Added by nprashar for bug 7525691*/
615:
616: ELSIF p_source IN (jai_constants.service_src_distribute_in, jai_constants.source_settle_in) THEN
617: lv_statement := '7';
618: lv_codepath := jai_general_pkg.plot_codepath(9, lv_codepath);
619: lv_register_entry_type := jai_constants.credit;
620: lv_account_name := jai_constants.recovery;
621: lv_charge_entry_type := jai_constants.debit;
622: lv_balancing_entry_type := jai_constants.credit;
630: --Added by Qiong for reverse charge bug#16001407
631: ELSIF p_source = jai_constants.source_ap AND p_source_trx_type = 'INVOICE_SETTLEMENT' THEN
632: lv_account_name := jai_constants.recovery;
633: lv_statement := '7.1';
634: lv_codepath := jai_general_pkg.plot_codepath(12, lv_codepath);
635: ln_debit := NULL;
636: ln_credit := p_amount;
637: ln_trx_debit := NULL;
638: ln_trx_credit := nvl(ln_trx_amount, p_amount);
641: --Added by Qiong for reverse charge bug#16001407
642:
643: IF lv_register_entry_type = jai_constants.debit THEN
644: lv_statement := '8';
645: lv_codepath := jai_general_pkg.plot_codepath(10, lv_codepath);
646: ln_debit := p_amount;
647: ln_credit := NULL;
648: ln_trx_debit := nvl(ln_trx_amount, p_amount);
649: ln_trx_credit := null;
648: ln_trx_debit := nvl(ln_trx_amount, p_amount);
649: ln_trx_credit := null;
650: ELSE
651: lv_statement := '9';
652: lv_codepath := jai_general_pkg.plot_codepath(11, lv_codepath);
653: ln_debit := NULL;
654: ln_credit := p_amount;
655: ln_trx_debit := null;
656: ln_trx_credit := nvl(ln_trx_amount, p_amount);
658: --start additions for bug#13593694
659: if p_source IN (jai_constants.service_src_distribute_out)
660: then
661: lv_statement := '8.1';
662: lv_codepath := jai_general_pkg.plot_codepath(10.1, lv_codepath);
663: ln_debit := NULL;
664: ln_credit := -p_amount;
665: ln_trx_debit := NULL;
666: ln_trx_credit := -nvl(ln_trx_amount, p_amount);
673: IF p_account_name IS NOT NULL THEN --Cancellation
674: lv_account_name := p_account_name;
675: IF p_account_name = jai_constants.recovery THEN
676: lv_statement := '10';
677: lv_codepath := jai_general_pkg.plot_codepath(10, lv_codepath);
678: ln_debit := NULL;
679: ln_credit := -p_amount;
680: ln_trx_debit := NULL;
681: ln_trx_credit := nvl(-ln_trx_amount, -p_amount);
681: ln_trx_credit := nvl(-ln_trx_amount, -p_amount);
682: lv_balancing_accnt_name := jai_constants.recovery_interim;
683: ELSIF p_account_name = jai_constants.liability THEN
684: lv_statement := '11';
685: lv_codepath := jai_general_pkg.plot_codepath(10, lv_codepath);
686: ln_debit := p_amount;
687: ln_credit := NULL;
688: ln_trx_debit := nvl(ln_trx_amount, p_amount);
689: ln_trx_credit := NULL;
703: , p_organization_id => p_organization_id
704: , p_location_id => p_location_id);
705: --lv_account_name := jai_constants.recovery;
706: lv_statement := '12';
707: lv_codepath := jai_general_pkg.plot_codepath(12, lv_codepath);
708: IF lv_account_name = jai_constants.recovery THEN
709: ln_debit := NULL;
710: ln_credit := -p_amount;
711: ln_trx_debit := NULL;
728: lv_balancing_accnt_name := jai_constants.recovery_interim;
729: ELSIF p_source = 'AP_CLAIM' THEN
730: lv_account_name := jai_constants.recovery;
731: lv_statement := '12';
732: lv_codepath := jai_general_pkg.plot_codepath(12, lv_codepath);
733: ln_debit := NULL;
734: ln_credit := p_amount;
735: ln_trx_debit := NULL;
736: ln_trx_credit := nvl(ln_trx_amount, p_amount);
737: lv_balancing_accnt_name := jai_constants.recovery_interim;
738: ELSIF p_source = 'AR_REVERSAL' THEN
739: lv_account_name := jai_constants.liability;
740: lv_statement := '12';
741: lv_codepath := jai_general_pkg.plot_codepath(12, lv_codepath);
742: ln_debit := -p_amount;
743: ln_credit := NULL;
744: ln_trx_debit := -nvl(ln_trx_amount, p_amount);
745: ln_trx_credit := NULL;
746: lv_balancing_accnt_name := jai_constants.reversal;--should be jai_constants.service_reversed
747: ELSIF p_source = 'AR_CLAIM' THEN
748: lv_account_name := jai_constants.liability;
749: lv_statement := '12';
750: lv_codepath := jai_general_pkg.plot_codepath(12, lv_codepath);
751: ln_debit := p_amount;
752: ln_credit := NULL;
753: ln_trx_debit := nvl(ln_trx_amount, p_amount);
754: ln_trx_credit := NULL;
760: --------------------------------------------------------------------------
761: --Add by Xiao for POT change, reg bug#12533434 on 28-May-2011, end
762: lv_statement := '13';
763: IF p_charge_account_id IS NULL THEN
764: lv_codepath := jai_general_pkg.plot_codepath(12, lv_codepath);
765: ln_charge_account_id := get_account(
766: p_regime_id => p_regime_id,
767: p_organization_type => p_organization_type,
768: p_organization_id => p_organization_id,
783: lv_balancing_accnt_name := nvl(p_balancing_accnt_name, lv_balancing_accnt_name);
784:
785: lv_statement := '12';
786: IF ln_balancing_orgn_id IS NULL THEN
787: lv_codepath := jai_general_pkg.plot_codepath(13, lv_codepath);
788: lv_balancing_orgn_type := p_organization_type;
789: ln_balancing_orgn_id := p_organization_id;
790: ln_balancing_location_id := p_location_id;
791: lv_balancing_tax_type := p_tax_type;
792: END IF;
793:
794: lv_statement := '17';
795: IF p_balancing_account_id IS NULL THEN -- AND lv_balancing_accnt_name IS NOT NULL THEN
796: lv_codepath := jai_general_pkg.plot_codepath(14, lv_codepath);
797: ln_balancing_account_id := get_account(
798: p_regime_id => p_regime_id,
799: p_organization_type => lv_balancing_orgn_type,
800: p_organization_id => ln_balancing_orgn_id,
815: OPEN c_primary_regno('PRIMARY'); --rchandan for bug#4428980
816: FETCH c_primary_regno into lv_primary_regime_regno;
817: CLOSE c_primary_regno;
818:
819: lv_codepath := jai_general_pkg.plot_codepath(15, lv_codepath);
820: INSERT INTO jai_rgm_trx_records(
821: repository_id, regime_code, tax_type, source,
822: source_document_id, source_table_name, transaction_date, debit_amount, credit_amount,
823: settled_amount, settled_flag, settlement_id, organization_type,
847: lv_statement := '11';
848: IF p_accntg_required_flag = jai_constants.yes THEN
849:
850: lv_statement := '15';
851: lv_codepath := jai_general_pkg.plot_codepath(16, lv_codepath);
852: IF ln_charge_account_id IS NULL THEN
853: lv_codepath := jai_general_pkg.plot_codepath(17, lv_codepath);
854: p_process_flag := jai_constants.expected_error;
855: p_process_message := 'Charge Account('||lv_account_name||') not defined for tax type '||p_tax_type;
849:
850: lv_statement := '15';
851: lv_codepath := jai_general_pkg.plot_codepath(16, lv_codepath);
852: IF ln_charge_account_id IS NULL THEN
853: lv_codepath := jai_general_pkg.plot_codepath(17, lv_codepath);
854: p_process_flag := jai_constants.expected_error;
855: p_process_message := 'Charge Account('||lv_account_name||') not defined for tax type '||p_tax_type;
856: FND_FILE.put_line( FND_FILE.log, p_process_message); fnd_file.put_line(fnd_file.log,p_process_message);
857: GOTO end_of_repository_entry;
866: END IF;
867:
868: lv_statement := '18';
869: IF ln_balancing_account_id IS NULL THEN
870: lv_codepath := jai_general_pkg.plot_codepath(18, lv_codepath);
871: p_process_flag := jai_constants.expected_error;
872: p_process_message := 'Balancing Account('||lv_balancing_accnt_name||') not defined for tax type '||lv_balancing_tax_type;
873: FND_FILE.put_line( FND_FILE.log, p_process_message); fnd_file.put_line(fnd_file.log,p_process_message);
874: GOTO end_of_repository_entry;
881:
882: lv_statement := '19';
883: -- INITIAL_ENTRY
884: IF lv_charge_entry_type = jai_constants.debit THEN
885: lv_codepath := jai_general_pkg.plot_codepath(19, lv_codepath);
886: ln_debit := p_amount;
887: ln_credit := NULL;
888: ln_trx_debit := nvl(ln_trx_amount, p_amount);
889: ln_trx_credit := null;
894: ln_trx_credit := nvl(ln_trx_amount, p_amount);
895: END IF;
896:
897: lv_statement := '20';
898: lv_codepath := jai_general_pkg.plot_codepath(20, lv_codepath);
899: -- make a call to post_accounting procedure
900: post_accounting(
901: p_regime_code => lv_regime_code,
902: p_tax_type => p_tax_type,
927: /* START of DISCOUNT ACCOUNTING */
928: IF nvl(p_discounted_amount, 0) <> 0 THEN
929: -- Discount related code needs to be added here
930: lv_statement := '20.1';
931: lv_codepath := jai_general_pkg.plot_codepath(21, lv_codepath);
932:
933: IF p_source = jai_constants.source_ar THEN
934:
935: lv_codepath := jai_general_pkg.plot_codepath(21.1, lv_codepath);
931: lv_codepath := jai_general_pkg.plot_codepath(21, lv_codepath);
932:
933: IF p_source = jai_constants.source_ar THEN
934:
935: lv_codepath := jai_general_pkg.plot_codepath(21.1, lv_codepath);
936: jai_ar_rgm_processing_pkg.get_ar_tax_disc_accnt (
937: p_receivable_application_id => p_source_document_id,
938: p_org_id => ln_org_id,/* added by ssawant for bug 5879769 */
939: p_total_disc_amount => p_discounted_amount, /* added by ssumaith - for bug# 4193633*/
945: p_process_message => p_process_message
946: );
947:
948: IF p_process_flag IN (jai_constants.expected_error, jai_constants.unexpected_error) THEN
949: lv_codepath := jai_general_pkg.plot_codepath(21.2, lv_codepath);
950: -- some problem in the above call
951: RETURN;
952: ELSIF nvl(ln_earned_discount, 0) + nvl(ln_unearned_discount, 0) <> NVL(p_discounted_amount,0) THEN
953: lv_codepath := jai_general_pkg.plot_codepath(21.3, lv_codepath);
949: lv_codepath := jai_general_pkg.plot_codepath(21.2, lv_codepath);
950: -- some problem in the above call
951: RETURN;
952: ELSIF nvl(ln_earned_discount, 0) + nvl(ln_unearned_discount, 0) <> NVL(p_discounted_amount,0) THEN
953: lv_codepath := jai_general_pkg.plot_codepath(21.3, lv_codepath);
954: p_process_flag := jai_constants.expected_error;
955: p_process_message := 'There is a discrepency in earned + unearned = discounted';
956: RETURN;
957: END IF;
959: --- following will be used for first accounting entry incase of AR Receipt Application
960: IF nvl(ln_earned_discount,0) <> 0 THEN
961: ln_discount_ccid := ln_earned_disc_accnt;
962: IF lv_charge_entry_type = jai_constants.debit THEN
963: lv_codepath := jai_general_pkg.plot_codepath(21.4, lv_codepath);
964: ln_disc_credit := null;
965: ln_disc_debit := ln_earned_discount;
966: ELSE
967: lv_codepath := jai_general_pkg.plot_codepath(21.5, lv_codepath);
963: lv_codepath := jai_general_pkg.plot_codepath(21.4, lv_codepath);
964: ln_disc_credit := null;
965: ln_disc_debit := ln_earned_discount;
966: ELSE
967: lv_codepath := jai_general_pkg.plot_codepath(21.5, lv_codepath);
968: ln_disc_credit := ln_earned_discount;
969: ln_disc_debit := null;
970: END IF;
971:
986: p_account_name => jai_cmn_rgm_recording_pkg.ap_discount_accnt
987: );
988:
989: IF ln_discount_ccid IS NULL THEN
990: lv_codepath := jai_general_pkg.plot_codepath(18, lv_codepath);
991: p_process_flag := jai_constants.expected_error;
992: p_process_message := 'Discount Account is not defined in '||p_source;
993: FND_FILE.put_line( FND_FILE.log, p_process_message); fnd_file.put_line(fnd_file.log,p_process_message);
994: FND_FILE.put_line( FND_FILE.log, ln_org_id);
1005:
1006: END IF;
1007:
1008: IF ln_disc_debit IS NOT NULL OR ln_disc_credit IS NOT NULL THEN
1009: lv_codepath := jai_general_pkg.plot_codepath(21.6, lv_codepath);
1010: -- make a call to post_accounting procedure
1011: post_accounting(
1012: p_regime_code => lv_regime_code,
1013: p_tax_type => p_tax_type,
1039: END IF;
1040:
1041: -- following entry will happen only in case of AR Transactions
1042: IF nvl(ln_unearned_discount,0) <> 0 THEN
1043: lv_codepath := jai_general_pkg.plot_codepath(21.7, lv_codepath);
1044: ln_discount_ccid := ln_unearned_disc_accnt;
1045: IF lv_charge_entry_type = jai_constants.debit THEN
1046: ln_disc_credit := null;
1047: ln_disc_debit := ln_unearned_discount;
1079: );
1080:
1081: END IF;
1082:
1083: lv_codepath := jai_general_pkg.plot_codepath(21.8, lv_codepath);
1084: END IF;
1085: /* END of DISCOUNT ACCOUNTING */
1086:
1087:
1096: AND (p_source NOT IN (jai_constants.service_src_distribute_out, jai_constants.service_src_distribute_in)
1097: OR nvl(p_distribution_type,'X')<>'S-S')THEN
1098: -- BALANCING_ENTRY
1099: IF lv_balancing_entry_type = jai_constants.debit THEN
1100: lv_codepath := jai_general_pkg.plot_codepath(22, lv_codepath);
1101: ln_debit := p_amount + (nvl(p_discounted_amount,0) * nvl(p_curr_conv_rate, 1));
1102: -- Added p_curr_conv_rate for Bug 7522584
1103: ln_credit := NULL;
1104: ln_trx_debit := nvl(ln_trx_amount, p_amount)+ nvl(p_discounted_amount,0);
1147: p_process_message := 'Successful';
1148:
1149: lv_statement := '24';
1150: <
1151: lv_codepath := jai_general_pkg.plot_codepath(23, lv_codepath, 'Insert_Repository_entry', 'END');
1152:
1153: EXCEPTION
1154: WHEN OTHERS THEN
1155: p_process_flag := jai_constants.unexpected_error;
1153: EXCEPTION
1154: WHEN OTHERS THEN
1155: p_process_flag := jai_constants.unexpected_error;
1156: p_process_message := 'Repository Error(Stmt:'||lv_statement||') Occured:'||SQLERRM;
1157: lv_codepath := jai_general_pkg.plot_codepath(-999, lv_codepath);
1158: Fnd_file.put_line( fnd_file.log, 'Error in Insert_Repository_entry. Codepath:'||lv_codepath);
1159:
1160: END insert_repository_entry;
1161:
1431: lv_message := 'Account not given';
1432: RAISE_APPLICATION_ERROR( -20011, lv_message);
1433: END IF;
1434:
1435: ln_currency_precision := jai_general_pkg.get_currency_precision(null); -- CURRENCY is INR
1436:
1437: -- Use of Currency Precision to round off the values when posting to GL is mandatory thing
1438: ln_entered_dr := round(p_entered_dr, ln_currency_precision);
1439: ln_entered_cr := round(p_entered_cr, ln_currency_precision);
2200: EXCEPTION
2201: WHEN OTHERS THEN
2202: pv_process_flag := jai_constants.unexpected_error;
2203: pv_process_message := 'insert_vat_repository_entry Error(Stmt:'||lv_statement_id||') Occured:'||SQLERRM;
2204: --lv_codepath := jai_general_pkg.plot_codepath(-999, lv_codepath);
2205: Fnd_file.put_line( fnd_file.log, 'Error in insert_vat_repository_entry. Stmt:'||lv_statement_id);
2206: END insert_vat_repository_entry;
2207:
2208:
2400: EXCEPTION
2401: WHEN OTHERS THEN
2402: pv_process_flag := jai_constants.unexpected_error;
2403: pv_process_message := 'doVatAccounting Error(Stmt:'||lv_statement_id||') Occured:'||SQLERRM;
2404: --lv_codepath := jai_general_pkg.plot_codepath(-999, lv_codepath);
2405: jai_cmn_utils_pkg.print_log('6395039.log', 'Error in doVatAccounting. Stmt:'||lv_statement_id);
2406: Fnd_file.put_line( fnd_file.log, 'Error in doVatAccounting. Stmt:'||lv_statement_id);
2407:
2408: END do_vat_accounting;
2549: FETCH cur_fetch_ou INTO ln_bal_org_id;
2550: CLOSE cur_fetch_ou;
2551:
2552: IF lv_regime_code <> jai_constants.service_regime THEN
2553: lv_codepath := jai_general_pkg.plot_codepath(2, lv_codepath);
2554: p_process_flag := jai_constants.expected_error;
2555: p_process_message := 'Transactions other than SERVICE regime are not supported';
2556: FND_FILE.put_line( fnd_file.log, p_process_message);
2557: RETURN;
2561: pn_org_id => p_organization_id,
2562: pn_location_id => p_location_id);
2563: IF ld_last_settlement_date > p_transaction_date THEN
2564: ld_transaction_date := ld_last_settlement_date + 1;
2565: lv_codepath := jai_general_pkg.plot_codepath(2.2, lv_codepath);
2566: ELSIF ld_last_settlement_date IS NULL or ld_last_settlement_date <= p_transaction_date THEN
2567: ld_transaction_date := p_transaction_date;
2568: lv_codepath := jai_general_pkg.plot_codepath(2.3, lv_codepath);
2569: END IF;
2564: ld_transaction_date := ld_last_settlement_date + 1;
2565: lv_codepath := jai_general_pkg.plot_codepath(2.2, lv_codepath);
2566: ELSIF ld_last_settlement_date IS NULL or ld_last_settlement_date <= p_transaction_date THEN
2567: ld_transaction_date := p_transaction_date;
2568: lv_codepath := jai_general_pkg.plot_codepath(2.3, lv_codepath);
2569: END IF;
2570: FND_FILE.put_line( fnd_file.log, 'p_source '|| p_source||' p_exc_gain_loss_amt '|| p_exc_gain_loss_amt);
2571: IF p_source = jai_constants.source_ar THEN
2572:
2569: END IF;
2570: FND_FILE.put_line( fnd_file.log, 'p_source '|| p_source||' p_exc_gain_loss_amt '|| p_exc_gain_loss_amt);
2571: IF p_source = jai_constants.source_ar THEN
2572:
2573: lv_codepath := jai_general_pkg.plot_codepath(4, lv_codepath);
2574:
2575: lv_balancing_accnt_name := jai_constants.liability_interim;
2576:
2577: OPEN cur_get_exc_gain_acc_ar(ln_org_id);
2588: lv_balancing_entry_type := jai_constants.debit;
2589: END IF;
2590: ELSIF p_source = jai_constants.source_ap THEN
2591:
2592: lv_codepath := jai_general_pkg.plot_codepath(3, lv_codepath);
2593:
2594: lv_balancing_accnt_name := jai_constants.recovery_interim;
2595:
2596:
2611: FND_FILE.put_line( fnd_file.log, 'ln_exc_ccid '|| ln_exc_ccid ||' lv_charge_entry_type '|| lv_charge_entry_type
2612: ||' lv_balancing_entry_type '|| lv_balancing_entry_type);
2613:
2614: IF ln_exc_ccid IS NULL THEN
2615: lv_codepath := jai_general_pkg.plot_codepath(21.10, lv_codepath);
2616: p_process_flag := jai_constants.expected_error;
2617: p_process_message := 'Foreign Exchange Gain or Loss Account is not defined in '||p_source;
2618: FND_FILE.put_line( fnd_file.log, p_process_message);
2619: RETURN;
2667: p_account_name => lv_balancing_accnt_name
2668: );
2669:
2670: IF ln_charge_account_id IS NULL THEN
2671: lv_codepath := jai_general_pkg.plot_codepath(21.10, lv_codepath);
2672: p_process_flag := jai_constants.expected_error;
2673: p_process_message := lv_balancing_accnt_name||' Account is not defined in '||p_source;
2674: FND_FILE.put_line( fnd_file.log, p_process_message);
2675: RETURN;