[Home] [Help]
100: 13-Jun-2005 Ramananda for bug#4428980. File Version: 116.3
101: Removal of SQL LITERALs is done
102:
103: 06-Jul-2005 Sanjikum for Bug#4474501
104: Commented the Call to function - jai_general_pkg.get_accounting_method
105:
106: Ramananda for bug#4477004. File Version: 116.4
107: GL Sources and GL Categories got changed. Refer bug for the details
108:
371: if p_debug = 'Y' then
372: Fnd_File.put_line(Fnd_File.LOG, '**** Start of procedure jai_rcv_rcv_rtv_pkg.process_transaction ****');
373: end if;
374:
375: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_rcv_rtv_pkg.process_transaction', 'START'); /* 1 */
376:
377: open c_rcv_transactions(p_transaction_id);
378: fetch c_rcv_transactions into r_rcv_transactions;
379: close c_rcv_transactions;
377: open c_rcv_transactions(p_transaction_id);
378: fetch c_rcv_transactions into r_rcv_transactions;
379: close c_rcv_transactions;
380:
381: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
382: open c_ja_in_rcv_transactions(p_transaction_id);
383: fetch c_ja_in_rcv_transactions into r_ja_in_rcv_transactions;
384: close c_ja_in_rcv_transactions;
385:
382: open c_ja_in_rcv_transactions(p_transaction_id);
383: fetch c_ja_in_rcv_transactions into r_ja_in_rcv_transactions;
384: close c_ja_in_rcv_transactions;
385:
386: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
387: open c_rcv_shipment_headers(r_rcv_transactions.shipment_header_id);
388: fetch c_rcv_shipment_headers into r_rcv_shipment_headers;
389: close c_rcv_shipment_headers;
390:
387: open c_rcv_shipment_headers(r_rcv_transactions.shipment_header_id);
388: fetch c_rcv_shipment_headers into r_rcv_shipment_headers;
389: close c_rcv_shipment_headers;
390:
391: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
392: open c_rcv_shipment_lines(r_rcv_transactions.shipment_line_id);
393: fetch c_rcv_shipment_lines into r_rcv_shipment_lines;
394: close c_rcv_shipment_lines;
395:
398: -- Fnd_File.put_line(Fnd_File.LOG, ' Code Path :' || p_codepath );/*Bug 5527885*/
399: end if;
400:
401: /* Get the Details for service tax interim accounting and check if it is needed */
402: p_codepath := jai_general_pkg.plot_codepath(4.11, p_codepath); /* 4.11 */
403: /*lv_accounting_method_option :=
404: jai_general_pkg.get_accounting_method
405: (
406: p_org_id => null,
400:
401: /* Get the Details for service tax interim accounting and check if it is needed */
402: p_codepath := jai_general_pkg.plot_codepath(4.11, p_codepath); /* 4.11 */
403: /*lv_accounting_method_option :=
404: jai_general_pkg.get_accounting_method
405: (
406: p_org_id => null,
407: p_organization_id => r_ja_in_rcv_transactions.organization_id,
408: p_sob_id => null
408: p_sob_id => null
409: );*/
410: --commented the above by Sanjikum for Bug#4474501
411:
412: p_codepath := jai_general_pkg.plot_codepath(4.12, p_codepath); /* 4.12 */
413: lv_accrue_on_receipt_flag :=
414: jai_rcv_trx_processing_pkg.get_accrue_on_receipt
415: (p_po_distribution_id => r_rcv_transactions.po_distribution_id,
416: -- added by Vijay Shankar for Bug#4215402
417: p_po_line_location_id => r_rcv_transactions.po_line_location_id
418: );
419:
420:
421: p_codepath := jai_general_pkg.plot_codepath(4.13, p_codepath); /* 4.13 */
422: /*if ( (lv_accrue_on_receipt_flag = 'N')
423: or
424: (lv_accounting_method_option = 'Cash' and
425: nvl(r_ja_in_rcv_transactions.inv_item_flag, 'N') = 'N'
428: --commented the above and added the below for Bug#4474501
429: if lv_accrue_on_receipt_flag = 'N'
430:
431: then
432: p_codepath := jai_general_pkg.plot_codepath(4.14, p_codepath); /* 4.14 */
433: lb_account_service_interim := false;
434: else
435: p_codepath := jai_general_pkg.plot_codepath(4.15, p_codepath); /* 4.15 */
436: lb_account_service_interim := true;
431: then
432: p_codepath := jai_general_pkg.plot_codepath(4.14, p_codepath); /* 4.14 */
433: lb_account_service_interim := false;
434: else
435: p_codepath := jai_general_pkg.plot_codepath(4.15, p_codepath); /* 4.15 */
436: lb_account_service_interim := true;
437: end if;
438: /*Bug 5527885 Start*/
439: gn_currency_precision :=
436: lb_account_service_interim := true;
437: end if;
438: /*Bug 5527885 Start*/
439: gn_currency_precision :=
440: jai_general_pkg.get_currency_precision(r_ja_in_rcv_transactions.organization_id);
441: if gn_currency_precision is null then
442: p_process_flag := 'E';
443: p_process_message := 'Currency Precision is null. Organization:'||r_ja_in_rcv_transactions.organization_id;
444: goto exit_from_procedure;
444: goto exit_from_procedure;
445: end if;
446: /*Bug 5527885 End*/
447:
448: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
449: get_accounts
450: (
451: p_organization_id => r_ja_in_rcv_transactions.organization_id,
452: p_location_id => r_ja_in_rcv_transactions.location_id,
485: Fnd_File.put_line(Fnd_File.LOG, ' Call to -> get_tax_breakup');
486: -- Fnd_File.put_line(Fnd_File.LOG, ' Code Path :' || p_codepath );/*Bug 5527885*/
487: end if;
488:
489: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
490: get_tax_breakup
491: (
492: p_transaction_id => p_transaction_id,
493: p_shipment_line_id => r_rcv_transactions.shipment_line_id,
527: Fnd_File.put_line(Fnd_File.LOG, ' Call to -> validate_transaction_tax_accnt');
528: -- Fnd_File.put_line(Fnd_File.LOG, ' Code Path :' || p_codepath );/*Bug 5527885*/
529: end if;
530:
531: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
532:
533: validate_transaction_tax_accnt
534: (
535: p_transaction_type => r_ja_in_rcv_transactions.transaction_type,
569: Fnd_File.put_line(Fnd_File.LOG, ' Call to -> apply_relieve_boe');
570: -- Fnd_File.put_line(Fnd_File.LOG, ' Code Path :' || p_codepath );/*Bug 5527885*/
571: end if;
572:
573: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
574:
575: apply_relieve_boe
576: (
577: p_transaction_id => p_transaction_id,
612: Fnd_File.put_line(Fnd_File.LOG, ' ln_interorg_receivables_accnt:'||ln_interorg_receivables_accnt);
613: Fnd_File.put_line(Fnd_File.LOG, ' p_interorg_payables_account:'||ln_interorg_payables_account);
614:
615:
616: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
617: post_entries
618: (
619: p_transaction_id => p_transaction_id,
620: p_transaction_type => r_ja_in_rcv_transactions.transaction_type,
663: /* post_entries procedure has hit an error, cannot continue processing */
664: goto exit_from_procedure;
665: end if;
666:
667: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
668: /*Bug 5632406 Start*/
669: if (lb_account_service_interim and nvl(ln_service_recoverable, 0) <> 0 )
670: and r_rcv_shipment_headers.receipt_source_code <> 'CUSTOMER'
671: /* bug#5632406 - bduvarag used the p_receipt_source_code
671: /* bug#5632406 - bduvarag used the p_receipt_source_code
672: instead of nvl(r_rcv_transactions.attribute_category, 'XX') <> 'INDIA RMA RECEIPT'*/
673: then
674: /*Bug 5632406 End*/
675: p_codepath := jai_general_pkg.plot_codepath(10.1, p_codepath); /* 10.1 */
676:
677: regime_tax_accounting_interim
678: (
679: p_transaction_id => p_transaction_id,
704: end if;
705:
706: /* following call added by Vijay Shankar for Bug#4250236(4245089). VAT Impl. */
707: if nvl(ln_vat_recoverable, 0) <> 0 and r_rcv_shipment_headers.receipt_source_code <> 'CUSTOMER' then/*Bug 5527885*/
708: p_codepath := jai_general_pkg.plot_codepath(10.2, p_codepath); /* 10.2 */ /*Bug 5527885*/
709: /* VAT interim accounting required as recoverable vat tax exists */
710: regime_tax_accounting_interim
711: (
712: p_transaction_id => p_transaction_id,
735: end if;
736:
737: end if; /* VAT interim accounting */
738: /*Bug 5527885 Start*/
739: p_codepath := jai_general_pkg.plot_codepath(10.3, p_codepath); /* 11 */
740: /* START 5478427 */
741: /* Code for rounding logic */
742: ln_cum_dr_amt := 0;
743: ln_cum_cr_amt := 0;
775: v_rounding_diff_to := (1/(2*(power(10,gn_currency_precision)))) * v_line_count;
776: v_rounding_diff_from := (-1) * v_rounding_diff_to;
777:
778:
779: p_codepath := jai_general_pkg.plot_codepath(10.4, p_codepath); /* 11 */
780: if p_debug = 'Y' then
781: Fnd_File.put_line(Fnd_File.LOG,
782: 'For Rounding- CumDr:'||ln_cum_dr_amt||', CumCr:'||ln_cum_cr_amt||', ProbRec:'||ln_jv_num_of_max_rec
783: ||', v_rounding_diff_from:'||v_rounding_diff_from||', v_rounding_diff_to:'||v_rounding_diff_to
788: -- if ln_diff_amt_between_dr_cr <> 0 then
789: if (ln_diff_amt_between_dr_cr >= v_rounding_diff_from)
790: and (ln_diff_amt_between_dr_cr <= v_rounding_diff_to) /* Added for Bug#5527885 */
791: then
792: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath); /* 11 */
793: if ln_max_jv_amt_type = gv_debit then
794: tr_jv(ln_jv_num_of_max_rec).entered_dr :=
795: tr_jv(ln_jv_num_of_max_rec).entered_dr - ln_diff_amt_between_dr_cr;
796: else /* means credit */
833: for jv_num in tr_jv.FIRST..tr_jv.LAST loop
834:
835: if tr_jv.exists(jv_num) = true then
836:
837: p_codepath := jai_general_pkg.plot_codepath('12.'||tr_jv(jv_num).line_num, p_codepath); /* 10 */
838: if p_debug = 'Y' then
839: Fnd_File.put_line(Fnd_File.LOG,
840: rpad(tr_jv(jv_num).account_name,30, ' ')
841: ||' '||rpad(tr_jv(jv_num).ccid,10, ' ')
883: -- All the Processing Went Through fine. So Setting the process_flag to 'Y'
884: p_process_flag := 'Y';
885:
886: << exit_from_procedure >>
887: p_codepath := jai_general_pkg.plot_codepath(99, p_codepath, null, 'END'); /* 11 *//*Bug 5527885*/
888:
889: if p_debug = 'Y' then
890: -- Fnd_File.put_line(Fnd_File.LOG, ' Code Path :' || p_codepath );/*Bug 5527885*/
891: Fnd_File.put_line(Fnd_File.LOG, '**** End of procedure jai_rcv_rcv_rtv_pkg.process_transaction ****');
1002: if p_debug = 'Y' then
1003: Fnd_File.put_line(Fnd_File.LOG, ' ** Start of procedure jai_rcv_rcv_rtv_pkg.get_accounts **');
1004: end if;
1005:
1006: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_rcv_rtv_pkg.get_accounts', 'START'); /* 1 */
1007: open c_ja_in_hr_organization_units(p_organization_id,p_location_id);
1008: fetch c_ja_in_hr_organization_units into r_ja_in_hr_organization_units;
1009: close c_ja_in_hr_organization_units;
1010:
1008: fetch c_ja_in_hr_organization_units into r_ja_in_hr_organization_units;
1009: close c_ja_in_hr_organization_units;
1010:
1011:
1012: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
1013: open c_ja_in_hr_organization_units(p_organization_id, 0);
1014: fetch c_ja_in_hr_organization_units into r_ja_in_hr_organization_units1;
1015: close c_ja_in_hr_organization_units;
1016:
1017: /** check value for all accounts for the given location ..
1018: if null get value for null location **/
1019:
1020: /** BOE account **/
1021: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
1022: if r_ja_in_hr_organization_units.boe_account_id is not null then
1023: p_boe_account_id := r_ja_in_hr_organization_units.boe_account_id ;
1024: elsif r_ja_in_hr_organization_units1.boe_account_id is not null then
1025: p_boe_account_id := r_ja_in_hr_organization_units1.boe_account_id ;
1025: p_boe_account_id := r_ja_in_hr_organization_units1.boe_account_id ;
1026: end if;
1027:
1028: /** rtv_expense_account_id **/
1029: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
1030: if r_ja_in_hr_organization_units.rtv_expense_account_id is not null then
1031: p_rtv_expense_account_id := r_ja_in_hr_organization_units.rtv_expense_account_id ;
1032: elsif r_ja_in_hr_organization_units1.rtv_expense_account_id is not null then
1033: p_rtv_expense_account_id := r_ja_in_hr_organization_units1.rtv_expense_account_id ;
1033: p_rtv_expense_account_id := r_ja_in_hr_organization_units1.rtv_expense_account_id ;
1034: end if;
1035:
1036: /** excise_expense_account **/
1037: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
1038: if r_ja_in_hr_organization_units.excise_expense_account is not null then
1039: p_excise_expense_account := r_ja_in_hr_organization_units.excise_expense_account ;
1040: elsif r_ja_in_hr_organization_units1.excise_expense_account is not null then
1041: p_excise_expense_account := r_ja_in_hr_organization_units1.excise_expense_account ;
1041: p_excise_expense_account := r_ja_in_hr_organization_units1.excise_expense_account ;
1042: end if;
1043:
1044: /** excise_rcvble_account **/
1045: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
1046: if r_ja_in_hr_organization_units.excise_rcvble_account is not null then
1047: p_excise_rcvble_account := r_ja_in_hr_organization_units.excise_rcvble_account ;
1048: elsif r_ja_in_hr_organization_units1.excise_expense_account is not null then
1049: p_excise_rcvble_account := r_ja_in_hr_organization_units1.excise_rcvble_account ;
1048: elsif r_ja_in_hr_organization_units1.excise_expense_account is not null then
1049: p_excise_rcvble_account := r_ja_in_hr_organization_units1.excise_rcvble_account ;
1050: end if;
1051:
1052: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
1053: open c_rcv_parameters(p_organization_id);
1054: fetch c_rcv_parameters into r_rcv_parameters;
1055: close c_rcv_parameters;
1056:
1055: close c_rcv_parameters;
1056:
1057: p_receiving_account_id := r_rcv_parameters.receiving_account_id;
1058:
1059: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
1060: open c_mtl_parameters(p_organization_id);
1061: fetch c_mtl_parameters into r_mtl_parameters;
1062: close c_mtl_parameters;
1063:
1063:
1064: p_ap_accrual_account := r_mtl_parameters.ap_accrual_account;
1065:
1066:
1067: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
1068: if p_po_distribution_id is not null then
1069:
1070: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
1071: open c_po_distributions_all(p_po_distribution_id);
1066:
1067: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
1068: if p_po_distribution_id is not null then
1069:
1070: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
1071: open c_po_distributions_all(p_po_distribution_id);
1072: fetch c_po_distributions_all into r_po_distributions_all;
1073: close c_po_distributions_all;
1074:
1079:
1080: if r_po_distributions_all.accrual_account_id is null and
1081: p_po_line_location_id is not null then
1082:
1083: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath); /* 11 */
1084: open c_po_distributions_all_1(p_po_line_location_id);
1085: fetch c_po_distributions_all_1 into r_po_distributions_all_1;
1086: close c_po_distributions_all_1;
1087:
1086: close c_po_distributions_all_1;
1087:
1088: p_po_accrual_account_id := r_po_distributions_all_1.accrual_account_id;
1089:
1090: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath); /* 12 */
1091:
1092: end if;
1093:
1094:
1091:
1092: end if;
1093:
1094:
1095: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath); /* 13 */
1096: p_trading_to_trading_iso := 'N';
1097: if p_receipt_source_code in('INTERNAL ORDER','INVENTORY')then -- bug 6030615
1098:
1099: p_codepath := jai_general_pkg.plot_codepath(14, p_codepath); /* 14 */
1095: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath); /* 13 */
1096: p_trading_to_trading_iso := 'N';
1097: if p_receipt_source_code in('INTERNAL ORDER','INVENTORY')then -- bug 6030615
1098:
1099: p_codepath := jai_general_pkg.plot_codepath(14, p_codepath); /* 14 */
1100: open c_mtl_interorg_parameters(p_from_organization_id, p_to_organization_id);
1101: fetch c_mtl_interorg_parameters into r_mtl_interorg_parameters;
1102: close c_mtl_interorg_parameters;
1103:
1117: r_ja_in_hr_organization_units1.receiving_org_manufacturing = 'Y' Commenting Ends here */
1118: )
1119:
1120: then
1121: p_codepath := jai_general_pkg.plot_codepath(14.1, p_codepath); /* 14.1 */
1122: p_trading_to_trading_iso := 'Y';
1123:
1124: end if;
1125:
1122: p_trading_to_trading_iso := 'Y';
1123:
1124: end if;
1125:
1126: p_codepath := jai_general_pkg.plot_codepath(15, p_codepath); /* 15 */
1127: p_interorg_payables_account := r_mtl_interorg_parameters.interorg_payables_account;
1128: p_intransit_inv_account := r_mtl_interorg_parameters.intransit_inv_account;
1129: p_interorg_receivables_account := r_mtl_interorg_parameters.interorg_receivables_account;
1130: p_intransit_type := r_mtl_interorg_parameters.intransit_type;
1133: end if; /*p_receipt_source_code = 'INTERNAL ORDER'*/
1134:
1135:
1136: << exit_from_procedure >>
1137: p_codepath := jai_general_pkg.plot_codepath(16, p_codepath, null, 'END'); /* 16 */
1138: if p_process_flag is null then
1139: p_process_flag := 'Y';
1140: end if;
1141:
1152: p_process_flag := 'E';
1153: p_process_message := 'RECEIVE_RTV_PKG.get_accounts:' || sqlerrm;
1154: FND_FILE.put_line( FND_FILE.log, 'Error in '||p_process_message);
1155: Fnd_File.put_line(Fnd_File.LOG, 'Code Path:' || p_codepath );
1156: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END'); /* 24 */
1157: return;
1158:
1159: end get_accounts;
1160:
1241: Fnd_File.put_line(Fnd_File.LOG, ' ** Start of procedure jai_rcv_rcv_rtv_pkg.get_tax_breakup **');
1242: end if;
1243:
1244:
1245: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_rcv_rtv_pkg.get_tax_breakup', 'START'); /* 1 */
1246:
1247: ln_tax_apportion_factor :=
1248: jai_rcv_trx_processing_pkg.get_apportion_factor(p_transaction_id);
1249:
1246:
1247: ln_tax_apportion_factor :=
1248: jai_rcv_trx_processing_pkg.get_apportion_factor(p_transaction_id);
1249:
1250: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
1251: p_all_taxes := 0;
1252: p_tds_taxes := 0;
1253: p_modvat_recovery_taxes := 0;
1254: p_cvd_taxes := 0;
1277: fetch c_jai_regimes into r_jai_regimes_vat;
1278: close c_jai_regimes;
1279: */
1280:
1281: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
1282:
1283: for cur_rec in c_ja_in_receipt_tax_lines(p_shipment_line_id) loop
1284:
1285: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
1281: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
1282:
1283: for cur_rec in c_ja_in_receipt_tax_lines(p_shipment_line_id) loop
1284:
1285: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
1286: ln_tax_amount := cur_rec.tax_amount;
1287:
1288: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
1289: ln_tax_amount := ln_tax_amount * ln_tax_apportion_factor;
1284:
1285: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
1286: ln_tax_amount := cur_rec.tax_amount;
1287:
1288: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
1289: ln_tax_amount := ln_tax_amount * ln_tax_apportion_factor;
1290: /* apportionment for uom and quantity change wrt the parent RECEIVE
1291: line for which taxes exist */
1292: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
1288: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
1289: ln_tax_amount := ln_tax_amount * ln_tax_apportion_factor;
1290: /* apportionment for uom and quantity change wrt the parent RECEIVE
1291: line for which taxes exist */
1292: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
1293: if nvl(cur_rec.currency, jai_rcv_trx_processing_pkg.gv_func_curr) <>
1294: jai_rcv_trx_processing_pkg.gv_func_curr
1295: then
1296: /* Tax not in functional currency, need to convert*/
1299:
1300: /* ln_tax_amount := round(ln_tax_amount, cur_rec.rounding_factor); Vijay. Final Observation */
1301: p_all_taxes := p_all_taxes + ln_tax_amount;
1302:
1303: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
1304:
1305: if cur_rec.tax_type = jai_constants.tax_type_tds then /* TDS*/
1306:
1307: p_codepath := jai_general_pkg.plot_codepath(7.1, p_codepath); /* 7.1 */
1303: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
1304:
1305: if cur_rec.tax_type = jai_constants.tax_type_tds then /* TDS*/
1306:
1307: p_codepath := jai_general_pkg.plot_codepath(7.1, p_codepath); /* 7.1 */
1308: p_tds_taxes := p_tds_taxes + ln_tax_amount;
1309:
1310:
1311: elsif cur_rec.tax_type = jai_constants.tax_type_modvat_recovery then /* MODVAT RECOVERY*/
1309:
1310:
1311: elsif cur_rec.tax_type = jai_constants.tax_type_modvat_recovery then /* MODVAT RECOVERY*/
1312:
1313: p_codepath := jai_general_pkg.plot_codepath(7.2, p_codepath); /* 7.2 */
1314: p_modvat_recovery_taxes := p_modvat_recovery_taxes + ln_tax_amount;
1315:
1316: elsif cur_rec.tax_type = jai_constants.tax_type_customs then /* CUSTOMS */
1317:
1314: p_modvat_recovery_taxes := p_modvat_recovery_taxes + ln_tax_amount;
1315:
1316: elsif cur_rec.tax_type = jai_constants.tax_type_customs then /* CUSTOMS */
1317:
1318: p_codepath := jai_general_pkg.plot_codepath(7.3, p_codepath); /* 7.3 */
1319: p_customs_taxes := p_customs_taxes + ln_tax_amount;
1320:
1321: elsif cur_rec.tax_type = jai_constants.tax_type_cvd then /* CVD */
1322:
1319: p_customs_taxes := p_customs_taxes + ln_tax_amount;
1320:
1321: elsif cur_rec.tax_type = jai_constants.tax_type_cvd then /* CVD */
1322:
1323: p_codepath := jai_general_pkg.plot_codepath(7.4, p_codepath); /* 7.4 */
1324: p_cvd_taxes := p_cvd_taxes + ln_tax_amount;
1325:
1326: elsif cur_rec.tax_type = jai_constants.tax_type_add_cvd then /* ADDITIONAL CVD - Enhancement 5228046 */
1327:
1324: p_cvd_taxes := p_cvd_taxes + ln_tax_amount;
1325:
1326: elsif cur_rec.tax_type = jai_constants.tax_type_add_cvd then /* ADDITIONAL CVD - Enhancement 5228046 */
1327:
1328: p_codepath := jai_general_pkg.plot_codepath(7.4, p_codepath); /* 7.4 */
1329: p_add_cvd_taxes := p_add_cvd_taxes + ln_tax_amount;
1330:
1331: elsif cur_rec.tax_type = jai_constants.tax_type_exc_edu_cess then /* Educational Cess Excise */
1332:
1329: p_add_cvd_taxes := p_add_cvd_taxes + ln_tax_amount;
1330:
1331: elsif cur_rec.tax_type = jai_constants.tax_type_exc_edu_cess then /* Educational Cess Excise */
1332:
1333: p_codepath := jai_general_pkg.plot_codepath(7.5, p_codepath); /* 7.5 */
1334: p_excise_edu_cess := p_excise_edu_cess + ln_tax_amount;
1335: /*Bug 5989740 bduvarag start*/
1336: elsif cur_rec.tax_type = jai_constants.tax_type_sh_exc_edu_cess then /* Higher Secondary Educational Cess Excise */
1337:
1334: p_excise_edu_cess := p_excise_edu_cess + ln_tax_amount;
1335: /*Bug 5989740 bduvarag start*/
1336: elsif cur_rec.tax_type = jai_constants.tax_type_sh_exc_edu_cess then /* Higher Secondary Educational Cess Excise */
1337:
1338: p_codepath := jai_general_pkg.plot_codepath(7.51, p_codepath); /* 7.51 */
1339: p_excise_sh_edu_cess := p_excise_sh_edu_cess + ln_tax_amount;
1340:
1341: /*Bug 5989740 bduvarag end*/
1342: elsif cur_rec.tax_type = jai_constants.tax_type_cvd_edu_cess then /* Educational Cess CVD */
1340:
1341: /*Bug 5989740 bduvarag end*/
1342: elsif cur_rec.tax_type = jai_constants.tax_type_cvd_edu_cess then /* Educational Cess CVD */
1343:
1344: p_codepath := jai_general_pkg.plot_codepath(7.6, p_codepath); /* 7.6 */
1345: p_cvd_edu_cess := p_cvd_edu_cess + ln_tax_amount;
1346: /*Bug 5989740 bduvarag start*/
1347: elsif cur_rec.tax_type = jai_constants.tax_type_sh_cvd_edu_cess then /* Higher Secondary Educational Cess CVD */
1348:
1345: p_cvd_edu_cess := p_cvd_edu_cess + ln_tax_amount;
1346: /*Bug 5989740 bduvarag start*/
1347: elsif cur_rec.tax_type = jai_constants.tax_type_sh_cvd_edu_cess then /* Higher Secondary Educational Cess CVD */
1348:
1349: p_codepath := jai_general_pkg.plot_codepath(7.61, p_codepath); /* 7.61 */
1350: p_cvd_sh_edu_cess := p_cvd_sh_edu_cess + ln_tax_amount;
1351:
1352: /*Bug 5989740 bduvarag end*/
1353: elsif cur_rec.tax_type = jai_constants.tax_type_customs_edu_cess then /* Educational Cess CVD */
1351:
1352: /*Bug 5989740 bduvarag end*/
1353: elsif cur_rec.tax_type = jai_constants.tax_type_customs_edu_cess then /* Educational Cess CVD */
1354:
1355: p_codepath := jai_general_pkg.plot_codepath(7.7, p_codepath); /* 7.7 */
1356: p_customs_edu_cess := p_customs_edu_cess + ln_tax_amount;
1357: /*Bug 5989740 bduvarag start*/
1358: elsif cur_rec.tax_type = jai_constants.tax_type_sh_customs_edu_cess then /* Higher Secondary Educational Cess CVD */
1359:
1356: p_customs_edu_cess := p_customs_edu_cess + ln_tax_amount;
1357: /*Bug 5989740 bduvarag start*/
1358: elsif cur_rec.tax_type = jai_constants.tax_type_sh_customs_edu_cess then /* Higher Secondary Educational Cess CVD */
1359:
1360: p_codepath := jai_general_pkg.plot_codepath(7.71, p_codepath); /* 7.71 */
1361: p_customs_sh_edu_cess := p_customs_sh_edu_cess + ln_tax_amount;
1362: /*Bug 5989740 bduvarag end*/
1363: elsif cur_rec.tax_type in
1364: (
1367: jai_constants.tax_type_exc_other /* EXCISE OTHERS */
1368: )
1369: then
1370:
1371: p_codepath := jai_general_pkg.plot_codepath(7.8, p_codepath); /* 7.8 */
1372: p_excise_tax := p_excise_tax + ln_tax_amount;
1373:
1374: else
1375:
1374: else
1375:
1376: /* Check tax type by regime, Service and then VAT */
1377:
1378: p_codepath := jai_general_pkg.plot_codepath(7.9, p_codepath); /* 7.9 */
1379:
1380: /*
1381: r_is_tax_type_in_regime := null;
1382:
1387: if r_is_tax_type_in_regime.regime_tax_type is not null then*/
1388:
1389: /* Service type of Tax */
1390: if cur_rec.regime_code = jai_constants.service_regime then
1391: p_codepath := jai_general_pkg.plot_codepath(7.11, p_codepath); /* 7.11 */
1392:
1393: if ( cur_rec.recoverable = 100 and cur_rec.modvatable = 'Y' ) then
1394: p_codepath := jai_general_pkg.plot_codepath(7.12, p_codepath); /* 7.12 */
1395: p_service_recoverable := p_service_recoverable + ln_tax_amount;
1390: if cur_rec.regime_code = jai_constants.service_regime then
1391: p_codepath := jai_general_pkg.plot_codepath(7.11, p_codepath); /* 7.11 */
1392:
1393: if ( cur_rec.recoverable = 100 and cur_rec.modvatable = 'Y' ) then
1394: p_codepath := jai_general_pkg.plot_codepath(7.12, p_codepath); /* 7.12 */
1395: p_service_recoverable := p_service_recoverable + ln_tax_amount;
1396: /*Bug 5527885 start*/
1397: elsif cur_rec.modvatable = 'Y' then
1398: p_codepath := jai_general_pkg.plot_codepath(7.13, p_codepath); /* 7.13 */
1394: p_codepath := jai_general_pkg.plot_codepath(7.12, p_codepath); /* 7.12 */
1395: p_service_recoverable := p_service_recoverable + ln_tax_amount;
1396: /*Bug 5527885 start*/
1397: elsif cur_rec.modvatable = 'Y' then
1398: p_codepath := jai_general_pkg.plot_codepath(7.13, p_codepath); /* 7.13 */
1399: p_service_not_recoverable := p_service_not_recoverable +((ln_tax_amount * (100 - cur_rec.recoverable) ) /100);
1400: p_service_recoverable := p_service_recoverable + round(((ln_tax_amount * cur_rec.recoverable)/100), cur_rec.rounding_factor) ; -- added By rchandan for bug 6971526
1401:
1402: else
1399: p_service_not_recoverable := p_service_not_recoverable +((ln_tax_amount * (100 - cur_rec.recoverable) ) /100);
1400: p_service_recoverable := p_service_recoverable + round(((ln_tax_amount * cur_rec.recoverable)/100), cur_rec.rounding_factor) ; -- added By rchandan for bug 6971526
1401:
1402: else
1403: p_codepath := jai_general_pkg.plot_codepath(7.131, p_codepath); /* 7.13 */
1404: p_service_not_recoverable := p_service_not_recoverable + ln_tax_amount;
1405: end if;
1406: /*Bug 5527885 End*/
1407: else
1405: end if;
1406: /*Bug 5527885 End*/
1407: else
1408:
1409: p_codepath := jai_general_pkg.plot_codepath(7.14, p_codepath); /* 7.14 */
1410:
1411: /*
1412: r_is_tax_type_in_regime := null;
1413: open c_is_tax_type_in_regime(r_jai_regimes_vat.regime_id, cur_rec.tax_type);
1417: if r_is_tax_type_in_regime.regime_tax_type is not null then */
1418:
1419: /* VAT type of Tax */
1420: if cur_rec.regime_code = jai_constants.vat_regime then
1421: p_codepath := jai_general_pkg.plot_codepath(7.15, p_codepath); /* 7.15 */
1422:
1423: if ( cur_rec.recoverable = 100 and cur_rec.modvatable = 'Y' ) then
1424: p_codepath := jai_general_pkg.plot_codepath(7.16, p_codepath); /* 7.16 */
1425: p_vat_recoverable := p_vat_recoverable + ln_tax_amount;
1420: if cur_rec.regime_code = jai_constants.vat_regime then
1421: p_codepath := jai_general_pkg.plot_codepath(7.15, p_codepath); /* 7.15 */
1422:
1423: if ( cur_rec.recoverable = 100 and cur_rec.modvatable = 'Y' ) then
1424: p_codepath := jai_general_pkg.plot_codepath(7.16, p_codepath); /* 7.16 */
1425: p_vat_recoverable := p_vat_recoverable + ln_tax_amount;
1426: /* elsif added By rchandan for bug 6971526
1427: start */
1428: elsif cur_rec.modvatable = 'Y' then
1425: p_vat_recoverable := p_vat_recoverable + ln_tax_amount;
1426: /* elsif added By rchandan for bug 6971526
1427: start */
1428: elsif cur_rec.modvatable = 'Y' then
1429: p_codepath := jai_general_pkg.plot_codepath(7.16, p_codepath); /* 7.16 */
1430: p_vat_recoverable := p_vat_recoverable + round(((ln_tax_amount * cur_rec.recoverable)/100) , cur_rec.rounding_factor) ;
1431: p_vat_not_recoverable := p_vat_not_recoverable +round(((ln_tax_amount * (100 - cur_rec.recoverable) ) /100), cur_rec.rounding_factor);
1432: -- End 6971526
1433: else
1430: p_vat_recoverable := p_vat_recoverable + round(((ln_tax_amount * cur_rec.recoverable)/100) , cur_rec.rounding_factor) ;
1431: p_vat_not_recoverable := p_vat_not_recoverable +round(((ln_tax_amount * (100 - cur_rec.recoverable) ) /100), cur_rec.rounding_factor);
1432: -- End 6971526
1433: else
1434: p_codepath := jai_general_pkg.plot_codepath(7.17, p_codepath); /* 7.17 */
1435: p_vat_not_recoverable := p_vat_not_recoverable + ln_tax_amount;
1436: end if;
1437:
1438: end if; /* Service and VAT */
1442: end if; /* Check all tax and tax type */
1443:
1444:
1445: /* get third party amount */
1446: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
1447: if
1448: cur_rec.vendor_id <> p_po_vendor_id and
1449: cur_rec.vendor_id > 0 and
1450: cur_rec.tax_type not in (jai_constants.tax_type_tds, jai_constants.tax_type_modvat_recovery)
1456:
1457: end loop; /* c_ja_in_receipt_tax_lines */
1458:
1459: << exit_from_procedure >>
1460: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath, null, 'END'); /* 9 */
1461:
1462: if p_process_flag is null then
1463: p_process_flag := 'Y';
1464: end if;
1475: p_process_flag := 'E';
1476: p_process_message := 'RECEIVE_RTV_PKG.get_tax_breakup:' || sqlerrm;
1477: FND_FILE.put_line( FND_FILE.log, 'Error in '||p_process_message);
1478: Fnd_File.put_line(Fnd_File.LOG, 'Code Path:' || p_codepath );
1479: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END'); /* 24 */
1480: return;
1481:
1482: end get_tax_breakup;
1483:
1523: if p_debug = 'Y' then
1524: Fnd_File.put_line(Fnd_File.LOG, ' ** Start of procedure jai_rcv_rcv_rtv_pkg.validate_transaction_tax_accnt **');
1525: end if;
1526:
1527: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_rcv_rtv_pkg.validate_transaction_tax_accnt', 'START'); /* 1 */
1528:
1529: -- Vijay Shankar for Bug#4346453. RCV DFF Elim. Enh. if p_attribute_category = 'INDIA RMA RECEIPT' then
1530: if p_receipt_source_code = 'CUSTOMER' then
1531:
1528:
1529: -- Vijay Shankar for Bug#4346453. RCV DFF Elim. Enh. if p_attribute_category = 'INDIA RMA RECEIPT' then
1530: if p_receipt_source_code = 'CUSTOMER' then
1531:
1532: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
1533:
1534: if p_excise_expense_account is null then
1535:
1536: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
1532: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
1533:
1534: if p_excise_expense_account is null then
1535:
1536: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
1537: p_process_flag := 'E';
1538: p_process_message := 'Excise Expense Account is not defined in JAI_CMN_INVENTORY_ORGS, ' ||
1539: 'for the organization location or null location, cannot proceed as transaction type is RMA';
1540:
1541: goto exit_from_procedure;
1542:
1543: else
1544:
1545: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
1546: p_receiving_account_id := p_excise_expense_account;
1547:
1548: end if;
1549:
1548: end if;
1549:
1550: elsif p_receiving_account_id is null then
1551:
1552: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
1553: p_process_flag := 'E';
1554: p_process_message := 'Receiving Account is not defined in rcv_parameters for the organization.';
1555: goto exit_from_procedure;
1556:
1561:
1562:
1563: /* Start Validate Accrual Account */
1564:
1565: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
1566: if p_receipt_source_code in ('INTERNAL ORDER','INVENTORY') then /*added INVENTORY for bug #6030615 by vkaranam*/
1567:
1568:
1569: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
1565: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
1566: if p_receipt_source_code in ('INTERNAL ORDER','INVENTORY') then /*added INVENTORY for bug #6030615 by vkaranam*/
1567:
1568:
1569: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
1570: /*6488406*/
1571: if ( ( (p_intransit_type = 2) and (p_fob_point = 1) ) or
1572: (p_trading_to_trading_iso = 'Y' and p_receipt_source_code = 'INTERNAL ORDER') )then /* Bug#4171469 */
1573:
1570: /*6488406*/
1571: if ( ( (p_intransit_type = 2) and (p_fob_point = 1) ) or
1572: (p_trading_to_trading_iso = 'Y' and p_receipt_source_code = 'INTERNAL ORDER') )then /* Bug#4171469 */
1573:
1574: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
1575: if p_intransit_inv_account is null then
1576:
1577: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
1578: p_process_flag := 'E';
1573:
1574: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
1575: if p_intransit_inv_account is null then
1576:
1577: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
1578: p_process_flag := 'E';
1579: p_process_message := 'Intransit Inventory Account is not defined in mtl_interorg_parameters for ' ||
1580: 'from and to organization of the ISO. ';
1581: goto exit_from_procedure;
1579: p_process_message := 'Intransit Inventory Account is not defined in mtl_interorg_parameters for ' ||
1580: 'from and to organization of the ISO. ';
1581: goto exit_from_procedure;
1582: else
1583: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
1584: p_ap_accrual_account := p_intransit_inv_account;
1585: end if;
1586:
1587: else
1585: end if;
1586:
1587: else
1588:
1589: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath); /* 11 */
1590:
1591: if p_interorg_payables_account is null then
1592: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath); /* 12 */
1593: p_process_flag := 'E';
1588:
1589: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath); /* 11 */
1590:
1591: if p_interorg_payables_account is null then
1592: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath); /* 12 */
1593: p_process_flag := 'E';
1594: p_process_message := 'Inter-org Payables Account is not defined in mtl_interorg_parameters for ' ||
1595: 'from and to organization of the ISO. ';
1596: goto exit_from_procedure;
1594: p_process_message := 'Inter-org Payables Account is not defined in mtl_interorg_parameters for ' ||
1595: 'from and to organization of the ISO. ';
1596: goto exit_from_procedure;
1597: else
1598: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath); /* 13 */
1599: p_ap_accrual_account := p_interorg_payables_account;
1600: end if;
1601:
1602: end if;
1603:
1604: elsif p_receipt_source_code = 'CUSTOMER' then
1605: -- Vijay Shankar for Bug#4346453. RCV DFF Elim. Enh. if p_attribute_category = 'INDIA RMA RECEIPT' then
1606:
1607: p_codepath := jai_general_pkg.plot_codepath(14, p_codepath); /* 14 */
1608:
1609: if p_excise_rcvble_account is null then
1610: p_codepath := jai_general_pkg.plot_codepath(15, p_codepath); /* 15 */
1611: p_process_flag := 'E';
1606:
1607: p_codepath := jai_general_pkg.plot_codepath(14, p_codepath); /* 14 */
1608:
1609: if p_excise_rcvble_account is null then
1610: p_codepath := jai_general_pkg.plot_codepath(15, p_codepath); /* 15 */
1611: p_process_flag := 'E';
1612: p_process_message := 'Excise Receivable Account is not defined in JAI_CMN_INVENTORY_ORGS, ' ||
1613: 'for the organization location or null location, cannot proceed as transaction type is RMA';
1614: goto exit_from_procedure;
1612: p_process_message := 'Excise Receivable Account is not defined in JAI_CMN_INVENTORY_ORGS, ' ||
1613: 'for the organization location or null location, cannot proceed as transaction type is RMA';
1614: goto exit_from_procedure;
1615: else
1616: p_codepath := jai_general_pkg.plot_codepath(16, p_codepath); /* 16 */
1617: p_ap_accrual_account := p_excise_rcvble_account;
1618: end if;
1619:
1620:
1619:
1620:
1621: elsif p_po_accrual_account_id is not null then
1622:
1623: p_codepath := jai_general_pkg.plot_codepath(17, p_codepath); /* 17 */
1624: p_ap_accrual_account := p_po_accrual_account_id;
1625:
1626: elsif p_ap_accrual_account is null then
1627:
1624: p_ap_accrual_account := p_po_accrual_account_id;
1625:
1626: elsif p_ap_accrual_account is null then
1627:
1628: p_codepath := jai_general_pkg.plot_codepath(18, p_codepath); /* 18 */
1629: p_process_flag := 'E';
1630: p_process_message := 'AP Accrual Account is not defined in mtl_parameters for the organization.';
1631: goto exit_from_procedure;
1632:
1636:
1637:
1638: /* Start 'RETURN TO VENDOR' RTV expense account check */
1639:
1640: p_codepath := jai_general_pkg.plot_codepath(19, p_codepath); /* 19 */
1641: if ( (p_transaction_type = 'RETURN TO VENDOR')
1642: or
1643: (p_transaction_type = 'CORRECT' and p_parent_transaction_type = 'RETURN TO VENDOR')
1644: )
1644: )
1645: then
1646:
1647: /* Check if Customs, CVD (BOE) or third party type taxes exist */
1648: p_codepath := jai_general_pkg.plot_codepath(20, p_codepath); /* 20 */
1649:
1650: if ( (p_cvd_taxes <> 0) OR
1651: (p_add_cvd_taxes <> 0) OR /*5228046 Additional cvd Enhancement*/
1652: (p_customs_taxes <> 0) OR
1652: (p_customs_taxes <> 0) OR
1653: (p_third_party_taxes <> 0)
1654: ) then
1655:
1656: p_codepath := jai_general_pkg.plot_codepath(21, p_codepath); /* 21 */
1657:
1658: if p_rtv_expense_account_id is null then
1659: p_codepath := jai_general_pkg.plot_codepath(22, p_codepath); /* 22 */
1660: p_process_flag := 'E';
1655:
1656: p_codepath := jai_general_pkg.plot_codepath(21, p_codepath); /* 21 */
1657:
1658: if p_rtv_expense_account_id is null then
1659: p_codepath := jai_general_pkg.plot_codepath(22, p_codepath); /* 22 */
1660: p_process_flag := 'E';
1661: p_process_message := 'RTV Expense Account is not defined in JAI_CMN_INVENTORY_ORGS, ' ||
1662: 'for the organization location or null location, cannot proceed as transaction type is RTV';
1663: goto exit_from_procedure;
1682: (p_add_cvd_taxes <> 0) OR /*5228046 Additional cvd Enhancement*/
1683: (p_customs_taxes <> 0)
1684: ) then
1685:
1686: p_codepath := jai_general_pkg.plot_codepath(23, p_codepath); /* 23 */
1687:
1688: if p_boe_account_id is null then
1689: p_codepath := jai_general_pkg.plot_codepath(24, p_codepath); /* 24 */
1690: p_process_flag := 'E';
1685:
1686: p_codepath := jai_general_pkg.plot_codepath(23, p_codepath); /* 23 */
1687:
1688: if p_boe_account_id is null then
1689: p_codepath := jai_general_pkg.plot_codepath(24, p_codepath); /* 24 */
1690: p_process_flag := 'E';
1691: p_process_message := 'BOE Account is not defined in JAI_CMN_INVENTORY_ORGS, ' ||
1692: 'for the organization location or null location.';
1693: goto exit_from_procedure;
1698: /* End BOE a/c check */
1699:
1700:
1701: << exit_from_procedure >>
1702: p_codepath := jai_general_pkg.plot_codepath(25, p_codepath, null, 'END'); /* 25 */
1703:
1704: if p_process_flag is null then
1705: p_process_flag := 'Y';
1706: end if;
1717: p_process_flag := 'E';
1718: p_process_message := 'RECEIVE_RTV_PKG.validate_transaction_tax_accnt:'|| sqlerrm;
1719: FND_FILE.put_line( FND_FILE.log, 'Error in '||p_process_message);
1720: Fnd_File.put_line(Fnd_File.LOG, 'Code Path:' || p_codepath );
1721: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END'); /* 24 */
1722: return;
1723:
1724: end validate_transaction_tax_accnt;
1725:
1764: if p_debug = 'Y' then
1765: Fnd_File.put_line(Fnd_File.LOG, ' ** Start of procedure jai_rcv_rcv_rtv_pkg.apply_relieve_boe **');
1766: end if;
1767:
1768: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_rcv_rtv_pkg.apply_relieve_boe', 'START'); /* 1 */
1769:
1770: if not (p_transaction_type = 'CORRECT' and p_parent_transaction_type = 'RECEIVE') then
1771: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
1772: -- ABC
1767:
1768: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_rcv_rtv_pkg.apply_relieve_boe', 'START'); /* 1 */
1769:
1770: if not (p_transaction_type = 'CORRECT' and p_parent_transaction_type = 'RECEIVE') then
1771: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
1772: -- ABC
1773: --p_process_flag := 'Y';
1774: --p_process_message := 'apply_relieve_boe is not required as this is not a case of CORRECT to RECEIVE';
1775: FND_FILE.put_line( FND_FILE.log, 'Apply_relieve_boe is not required as this is not a case of CORRECT to RECEIVE');
1774: --p_process_message := 'apply_relieve_boe is not required as this is not a case of CORRECT to RECEIVE';
1775: FND_FILE.put_line( FND_FILE.log, 'Apply_relieve_boe is not required as this is not a case of CORRECT to RECEIVE');
1776: goto exit_from_procedure;
1777: elsif (p_cvd_taxes + p_add_cvd_taxes + p_customs_taxes) = 0 then /*5228046 Additional cvd Enhancement added p_add_cvd_taxes*/
1778: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
1779: -- ABC
1780: --p_process_flag := 'Y';
1781: --p_process_message := 'apply_relieve_boe is not required as no CVD or Customs type of tax';
1782: FND_FILE.put_line( FND_FILE.log, 'Apply_relieve_boe is not required as no CVD or ADDITIONAL_CVD or Customs type of tax');
1783: goto exit_from_procedure;
1784: end if;
1785:
1786: /* Check if BOE has been applied for the parent transaction */
1787: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
1788: open c_is_boe_applied(p_shipment_line_id, p_parent_transaction_id);
1789: fetch c_is_boe_applied into ln_boe_count;
1790: close c_is_boe_applied;
1791:
1789: fetch c_is_boe_applied into ln_boe_count;
1790: close c_is_boe_applied;
1791:
1792: if nvl(ln_boe_count, 0) = 0 then
1793: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
1794: -- ABC
1795: --p_process_flag := 'Y';
1796: --p_process_message := 'apply_relieve_boe is not required parent transaction has no BOE applied';
1797: FND_FILE.put_line( FND_FILE.log, 'Apply_relieve_boe is not required parent transaction has no BOE applied');
1803:
1804: if p_debug = 'Y' then
1805: Fnd_File.put_line(Fnd_File.LOG, ' Call to -> apply_boe');
1806: end if;
1807: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
1808: apply_boe
1809: (
1810: p_shipment_header_id => p_shipment_header_id,
1811: p_shipment_line_id => p_shipment_line_id,
1830:
1831: if p_debug = 'Y' then
1832: Fnd_File.put_line(Fnd_File.LOG, ' Call to -> relieve_boe');
1833: end if;
1834: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
1835: relieve_boe
1836: (
1837: p_shipment_header_id => p_shipment_header_id,
1838: p_shipment_line_id => p_shipment_line_id,
1856:
1857: /* If apply relieve BOE has been done successfully, update the boe_applied_flag in ja_in_rcv_transaction */
1858: if p_process_flag = 'Y' and nvl(p_simulation , 'Y') <> 'Y' then
1859:
1860: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
1861: update JAI_RCV_TRANSACTIONS
1862: set boe_applied_flag = 'Y'
1863: where transaction_id = p_transaction_id;
1864:
1864:
1865: end if;
1866:
1867: << exit_from_procedure >>
1868: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath, null, 'END'); /* 9 */
1869:
1870: if p_process_flag is null then
1871: p_process_flag := 'Y';
1872: end if;
1878: p_process_flag := 'E';
1879: p_process_message := 'RECEIVE_RTV_PKG.apply_relieve_boe:' || sqlerrm;
1880: FND_FILE.put_line( FND_FILE.log, 'Error in '||p_process_message);
1881: Fnd_File.put_line(Fnd_File.LOG, 'Code Path:' || p_codepath );
1882: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END'); /* 24 */
1883: return;
1884:
1885: end apply_relieve_boe;
1886:
1931: if p_debug = 'Y' then
1932: Fnd_File.put_line(Fnd_File.LOG, ' ** Start of procedure jai_rcv_rcv_rtv_pkg.apply_boe **');
1933: end if;
1934:
1935: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_rcv_rtv_pkg.apply_boe', 'START'); /* 1 */
1936:
1937: ln_bal_boe_amount := p_boe_tax;
1938:
1939: for cur_available_boe in c_ja_in_boe_hdr(p_organization_id, p_inventory_item_id) loop
1937: ln_bal_boe_amount := p_boe_tax;
1938:
1939: for cur_available_boe in c_ja_in_boe_hdr(p_organization_id, p_inventory_item_id) loop
1940:
1941: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
1942:
1943: if ln_bal_boe_amount <= 0 then
1944: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
1945: goto finish_apply;
1940:
1941: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
1942:
1943: if ln_bal_boe_amount <= 0 then
1944: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
1945: goto finish_apply;
1946: end if;
1947:
1948: if cur_available_boe.available_amount <= ln_bal_boe_amount then
1945: goto finish_apply;
1946: end if;
1947:
1948: if cur_available_boe.available_amount <= ln_bal_boe_amount then
1949: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
1950: ln_boe_amount_to_apply := cur_available_boe.available_amount;
1951: else
1952: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
1953: ln_boe_amount_to_apply := ln_bal_boe_amount;
1948: if cur_available_boe.available_amount <= ln_bal_boe_amount then
1949: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
1950: ln_boe_amount_to_apply := cur_available_boe.available_amount;
1951: else
1952: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
1953: ln_boe_amount_to_apply := ln_bal_boe_amount;
1954: end if;
1955:
1956: if nvl(p_simulation , 'Y') <> 'Y' then
1954: end if;
1955:
1956: if nvl(p_simulation , 'Y') <> 'Y' then
1957:
1958: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
1959:
1960: /* Insert a apply record in JAI_CMN_BOE_MATCHINGS */
1961: insert into JAI_CMN_BOE_MATCHINGS
1962: (BOE_MATCHING_ID,
1982: sysdate,
1983: fnd_global.user_id
1984: );
1985:
1986: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
1987: /* update the boe header amount */
1988: update JAI_CMN_BOE_HDRS
1989: set amount_applied = nvl(amount_applied, 0) + ln_boe_amount_to_apply,
1990: last_update_date = sysdate,
1993: where boe_id = cur_available_boe.boe_id;
1994:
1995: ln_bal_boe_amount := ln_bal_boe_amount - ln_boe_amount_to_apply;
1996:
1997: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
1998:
1999: end if;
2000:
2001: /* To indicate second pass of the loop, first means F, statement id need not be incremented in code path*/
2003: end loop;
2004:
2005: << finish_apply >>
2006: if ln_bal_boe_amount > 0 then
2007: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
2008: p_process_flag := 'E';
2009: P_process_message := 'Matching BOE not available for applying the BOE tax, cannot proceed ' ||
2010: '(jai_rcv_rcv_rtv_pkg.apply_boe)';
2011: end if;
2010: '(jai_rcv_rcv_rtv_pkg.apply_boe)';
2011: end if;
2012:
2013: << exit_from_procedure >>
2014: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath, null, 'END'); /* 10 */
2015:
2016: if p_process_flag is null then
2017: p_process_flag := 'Y';
2018: end if;
2029: p_process_flag := 'E';
2030: p_process_message := 'RECEIVE_RTV_PKG.apply_boe:'|| sqlerrm;
2031: FND_FILE.put_line( FND_FILE.log, 'Error in '||p_process_message);
2032: Fnd_File.put_line(Fnd_File.LOG, 'Code Path:' || p_codepath );
2033: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END'); /* 24 */
2034: return;
2035:
2036: end apply_boe;
2037:
2069: if p_debug = 'Y' then
2070: Fnd_File.put_line(Fnd_File.LOG, ' ** Start of procedure jai_rcv_rcv_rtv_pkg.relieve_boe **');
2071: end if;
2072:
2073: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_rcv_rtv_pkg.relieve_boe', 'START'); /* 1 */
2074: ln_bal_boe_amount := p_boe_tax;
2075:
2076: for applied_boe_rec in c_ja_in_rcp_boe(p_shipment_line_id, p_parent_transaction_id) loop
2077:
2074: ln_bal_boe_amount := p_boe_tax;
2075:
2076: for applied_boe_rec in c_ja_in_rcp_boe(p_shipment_line_id, p_parent_transaction_id) loop
2077:
2078: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
2079: if ln_bal_boe_amount = 0 then
2080: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
2081: goto finished_unapply;
2082: end if;
2076: for applied_boe_rec in c_ja_in_rcp_boe(p_shipment_line_id, p_parent_transaction_id) loop
2077:
2078: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
2079: if ln_bal_boe_amount = 0 then
2080: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
2081: goto finished_unapply;
2082: end if;
2083:
2084: if applied_boe_rec.amount <= abs(ln_bal_boe_amount) then
2081: goto finished_unapply;
2082: end if;
2083:
2084: if applied_boe_rec.amount <= abs(ln_bal_boe_amount) then
2085: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
2086: ln_boe_amount_to_unapply := -1 * applied_boe_rec.amount;
2087: else
2088: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
2089: ln_boe_amount_to_unapply := ln_bal_boe_amount;
2084: if applied_boe_rec.amount <= abs(ln_bal_boe_amount) then
2085: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
2086: ln_boe_amount_to_unapply := -1 * applied_boe_rec.amount;
2087: else
2088: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
2089: ln_boe_amount_to_unapply := ln_bal_boe_amount;
2090: end if;
2091:
2092: if nvl(p_simulation , 'Y') <> 'Y' then
2090: end if;
2091:
2092: if nvl(p_simulation , 'Y') <> 'Y' then
2093: /* Insert a unapply record in JAI_CMN_BOE_MATCHINGS */
2094: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
2095: insert into JAI_CMN_BOE_MATCHINGS
2096: (BOE_MATCHING_ID,
2097: transaction_id,
2098: shipment_header_id,
2117: fnd_global.user_id
2118: );
2119:
2120: /* update the boe header amount */
2121: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
2122: update JAI_CMN_BOE_HDRS
2123: set amount_applied = nvl(amount_applied, 0) + ln_boe_amount_to_unapply,
2124: last_update_date = sysdate,
2125: last_updated_by = fnd_global.user_id,
2127: where boe_id = applied_boe_rec.boe_id;
2128:
2129: end if; /* p_simulation = 'Y' */
2130:
2131: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
2132: ln_bal_boe_amount := ln_bal_boe_amount - ln_boe_amount_to_unapply;
2133:
2134:
2135: end loop;
2137: << finished_unapply >>
2138: p_process_flag := 'Y';
2139:
2140: << exit_from_procedure >>
2141: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath, null, 'END'); /* 9 */
2142:
2143: if p_process_flag is null then
2144: p_process_flag := 'Y';
2145: end if;
2156: p_process_flag := 'E';
2157: p_process_message := 'RECEIVE_RTV_PKG.relieve_boe:' || sqlerrm;
2158: FND_FILE.put_line( FND_FILE.log, 'Error in '||p_process_message);
2159: Fnd_File.put_line(Fnd_File.LOG, 'Code Path:' || p_codepath );
2160: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END'); /* 24 */
2161: return;
2162:
2163: end relieve_boe;
2164:
2352: if p_debug = 'Y' then
2353: Fnd_File.put_line(Fnd_File.LOG, ' ** Start of procedure jai_rcv_rcv_rtv_pkg.post_entries **');
2354: end if;
2355:
2356: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_rcv_rtv_pkg.post_entries', 'START'); /* 1 */
2357: /* Set varaiable values for accounting entries with GL link */
2358: if ( (p_transaction_type = 'RETURN TO VENDOR')
2359: or
2360: (p_transaction_type = 'CORRECT' and p_parent_transaction_type = 'RETURN TO VENDOR')
2359: or
2360: (p_transaction_type = 'CORRECT' and p_parent_transaction_type = 'RETURN TO VENDOR')
2361: )
2362: then
2363: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
2364: lv_acct_type := 'REVERSAL';
2365: else
2366: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
2367: lv_acct_type := 'REGULAR';
2362: then
2363: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
2364: lv_acct_type := 'REVERSAL';
2365: else
2366: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
2367: lv_acct_type := 'REGULAR';
2368: end if;
2369:
2370: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
2366: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
2367: lv_acct_type := 'REGULAR';
2368: end if;
2369:
2370: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
2371: lv_reference_10 := 'India Local Receiving Entry for the Receipt Number ' || p_receipt_num ||
2372: ' for the Transaction Type ' || p_transaction_type ;
2373:
2374: if p_transaction_type = 'CORRECT' then
2383: ln_debit := null;
2384: Fnd_File.put_line(Fnd_File.LOG, ' p_receiving_account_id :' || p_receiving_account_id );
2385: if p_receiving_account_id is not null then
2386:
2387: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
2388:
2389: if ( (p_transaction_type = 'RETURN TO VENDOR')
2390: or
2391: (p_transaction_type = 'CORRECT' and p_parent_transaction_type = 'RETURN TO VENDOR')
2391: (p_transaction_type = 'CORRECT' and p_parent_transaction_type = 'RETURN TO VENDOR')
2392: )
2393: then
2394:
2395: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
2396: ln_debit := null;
2397: ln_credit :=
2398: p_all_taxes -
2399: (p_tds_taxes + p_modvat_recovery_taxes + p_service_recoverable + p_vat_recoverable); /* Service */
2406: (p_transaction_type = 'CORRECT' and p_parent_transaction_type = 'RECEIVE')
2407: )
2408: then
2409:
2410: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
2411: ln_debit := p_cvd_taxes +
2412: p_add_cvd_taxes + /*5228046 Additional cvd Enhancement*/
2413: p_excise_tax +
2414: p_cvd_edu_cess +
2418: ln_credit := null;
2419:
2420: else
2421:
2422: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
2423:
2424: ln_debit :=
2425: p_all_taxes -
2426: (p_tds_taxes + p_modvat_recovery_taxes + p_service_recoverable + p_vat_recoverable);
2429: ln_credit := null;
2430:
2431: end if;
2432:
2433: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
2434: Fnd_File.put_line(Fnd_File.LOG, ' ln_debit :' || ln_debit );
2435: Fnd_File.put_line(Fnd_File.LOG, ' ln_credit :' || ln_credit );
2436: if ( nvl(ln_debit, 0) <> 0 or nvl(ln_credit, 0) <> 0 ) then
2437: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
2433: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
2434: Fnd_File.put_line(Fnd_File.LOG, ' ln_debit :' || ln_debit );
2435: Fnd_File.put_line(Fnd_File.LOG, ' ln_credit :' || ln_credit );
2436: if ( nvl(ln_debit, 0) <> 0 or nvl(ln_credit, 0) <> 0 ) then
2437: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
2438: /* procedure to populate gl inetrface, JAI_RCV_JOURNAL_ENTRIES and receiving subledger */
2439: Fnd_File.put_line(Fnd_File.LOG, 'Acc for inventory Receiving Account ' );
2440:
2441: ptr_jv(1).line_num := 1;
2466: end if; /* Accounting Entry # 1. Receiving Account Id */
2467:
2468:
2469: /* Accounting Entry # 2 : AP Accrual Account Id. Non mandatory entry values may be 0*/
2470: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath); /* 12 */
2471:
2472: ln_credit := null;
2473: ln_debit := null;
2474: Fnd_File.put_line(Fnd_File.LOG, 'p_ap_accrual_account:'||p_ap_accrual_account );
2479: (p_transaction_type = 'CORRECT' and p_parent_transaction_type = 'RETURN TO VENDOR')
2480: )
2481: then
2482:
2483: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath); /* 13 */
2484: ln_debit := p_all_taxes -
2485: ( p_tds_taxes +
2486: p_modvat_recovery_taxes +
2487: p_cvd_taxes +
2496: ln_credit := null;
2497:
2498: if not p_account_service_interim then
2499: /* Separate Accounting for recoverable service tax not required */
2500: p_codepath := jai_general_pkg.plot_codepath(13.1, p_codepath); /* 13.1 */
2501: ln_debit := ln_debit - p_service_recoverable;
2502: end if;
2503:
2504:
2504:
2505: elsif p_receipt_source_code = 'CUSTOMER' then
2506: -- Vijay Shankar for Bug#4346453. RCV DFF Elim. Enh. if p_attribute_category = 'INDIA RMA RECEIPT' then
2507:
2508: p_codepath := jai_general_pkg.plot_codepath(14, p_codepath); /* 14 */
2509: ln_debit := null;
2510: ln_credit := p_cvd_taxes + p_add_cvd_taxes /*5143906 Additional cvd Enhancement*/ + p_excise_tax + p_cvd_edu_cess+ p_cvd_sh_edu_cess /*Bug 5989740 bduvarag*/ + p_excise_edu_cess +p_excise_edu_cess /*Bug 5989740 bduvarag*/;
2511:
2512: else
2510: ln_credit := p_cvd_taxes + p_add_cvd_taxes /*5143906 Additional cvd Enhancement*/ + p_excise_tax + p_cvd_edu_cess+ p_cvd_sh_edu_cess /*Bug 5989740 bduvarag*/ + p_excise_edu_cess +p_excise_edu_cess /*Bug 5989740 bduvarag*/;
2511:
2512: else
2513:
2514: p_codepath := jai_general_pkg.plot_codepath(15, p_codepath); /* 15 */
2515: ln_debit := null;
2516: ln_credit := p_all_taxes -
2517: ( p_tds_taxes + p_modvat_recovery_taxes +
2518: p_cvd_taxes + p_add_cvd_taxes /*5228046 Additional cvd Enhancement*/ +
2523: p_customs_sh_edu_cess );
2524:
2525: if not p_account_service_interim then
2526: /* Separate Accounting for recoverable service tax not required */
2527: p_codepath := jai_general_pkg.plot_codepath(15.1, p_codepath); /* 15.1 */
2528: ln_credit := ln_credit - p_service_recoverable;
2529: end if;
2530:
2531: end if;
2531: end if;
2532:
2533: Fnd_File.put_line(Fnd_File.LOG, 'ln_debit:'||ln_debit );
2534: Fnd_File.put_line(Fnd_File.LOG, 'ln_credit:'||ln_credit );
2535: p_codepath := jai_general_pkg.plot_codepath(16, p_codepath); /* 16 */
2536: if ( nvl(ln_debit, 0) <> 0 or nvl(ln_credit, 0) <> 0 ) then
2537: p_codepath := jai_general_pkg.plot_codepath(17, p_codepath); /* 17 */
2538:
2539: Fnd_File.put_line(Fnd_File.LOG, 'Accounting for interorg payables Acc' );
2533: Fnd_File.put_line(Fnd_File.LOG, 'ln_debit:'||ln_debit );
2534: Fnd_File.put_line(Fnd_File.LOG, 'ln_credit:'||ln_credit );
2535: p_codepath := jai_general_pkg.plot_codepath(16, p_codepath); /* 16 */
2536: if ( nvl(ln_debit, 0) <> 0 or nvl(ln_credit, 0) <> 0 ) then
2537: p_codepath := jai_general_pkg.plot_codepath(17, p_codepath); /* 17 */
2538:
2539: Fnd_File.put_line(Fnd_File.LOG, 'Accounting for interorg payables Acc' );
2540: /*
2541: IF p_receipt_source_code = 'INVENTORY' THEN 6488406
2569: ptr_jv(2).account_name := gv_ap_accrual;/*6488406*/
2570: ptr_jv(2).summary_jv_flag := 'Y';
2571: /*Bug 5527885 End*/
2572: /* Inserting into JAI_RCV_REP_ACCRUAL_T if no record is already inserted */
2573: p_codepath := jai_general_pkg.plot_codepath(18, p_codepath); /* 18 */
2574: open c_ja_in_temp_po_accrual(p_transaction_id);
2575: fetch c_ja_in_temp_po_accrual into ln_ja_in_temp_po_accrual;
2576: close c_ja_in_temp_po_accrual;
2577:
2575: fetch c_ja_in_temp_po_accrual into ln_ja_in_temp_po_accrual;
2576: close c_ja_in_temp_po_accrual;
2577:
2578: if nvl(ln_ja_in_temp_po_accrual, 0) = 0 then
2579: p_codepath := jai_general_pkg.plot_codepath(19, p_codepath); /* 19 */
2580: insert into JAI_RCV_REP_ACCRUAL_T
2581: (
2582: transaction_id,
2583: accrual_amount,
2606: end if; /* p_ap_accrual_account */
2607:
2608:
2609: /* Accounting Entry # 3 : BOE Accounting Entry. Non mandatory entry */
2610: p_codepath := jai_general_pkg.plot_codepath(21, p_codepath); /* 21 */
2611:
2612: ln_credit := null;
2613: ln_debit := null;
2614:
2617: (p_transaction_type = 'CORRECT' and p_parent_transaction_type = 'RECEIVE')
2618: )
2619: then
2620:
2621: p_codepath := jai_general_pkg.plot_codepath(22, p_codepath); /* 22 */
2622: if (p_cvd_taxes + p_add_cvd_taxes /*5228046 Additional cvd Enhancement*/
2623: + p_customs_taxes
2624: + p_cvd_edu_cess
2625: + p_cvd_sh_edu_cess /*Bug 5989740 bduvarag*/
2624: + p_cvd_edu_cess
2625: + p_cvd_sh_edu_cess /*Bug 5989740 bduvarag*/
2626: + p_customs_edu_cess
2627: +p_customs_sh_edu_cess) <> 0 THEN
2628: p_codepath := jai_general_pkg.plot_codepath(23, p_codepath); /* 23 */
2629: ln_debit := null;
2630: ln_credit := (p_cvd_taxes + p_add_cvd_taxes /*5228046 Additional cvd Enhancement*/
2631: + p_customs_taxes
2632: + p_cvd_edu_cess
2664:
2665:
2666:
2667: /* Accounting Entry # 4 : RTV expense Accounting Entry, non mandatory entry */
2668: p_codepath := jai_general_pkg.plot_codepath(24, p_codepath); /* 24 */
2669:
2670: ln_credit := null;
2671: ln_debit := null;
2672:
2675: (p_transaction_type = 'CORRECT' and p_parent_transaction_type = 'RETURN TO VENDOR')
2676: )
2677: then
2678:
2679: p_codepath := jai_general_pkg.plot_codepath(25, p_codepath); /* 25 */
2680: IF ( p_cvd_taxes +
2681: p_add_cvd_taxes + /*5228046 Additional cvd Enhancement*/
2682: p_customs_taxes +
2683: p_cvd_edu_cess +
2687: p_third_party_taxes
2688: ) <> 0 THEN
2689:
2690:
2691: p_codepath := jai_general_pkg.plot_codepath(26, p_codepath); /* 26 */
2692: ln_debit := ( p_cvd_taxes + p_add_cvd_taxes /*5228046 Additional cvd Enhancement*/ +
2693: p_customs_taxes + p_cvd_edu_cess +
2694: p_cvd_sh_edu_cess /*Bug 5989740 bduvarag*/
2695: +p_customs_edu_cess + p_customs_sh_edu_cess + p_third_party_taxes
2724:
2725: end if; /* RTV Expense Accounting Entry */
2726:
2727:
2728: p_codepath := jai_general_pkg.plot_codepath(27, p_codepath); /* 27 */
2729: ln_credit := null;
2730: ln_debit := null;
2731:
2732: Fnd_File.put_line(Fnd_File.LOG, ' p_trading_to_trading_iso :' || p_trading_to_trading_iso );
2734: --bug 6030615 added inventory
2735: if p_receipt_source_code IN ('INTERNAL ORDER', 'INVENTORY')-- and p_trading_to_trading_iso = 'N'
2736: then /* Bug#4171469 */
2737:
2738: p_codepath := jai_general_pkg.plot_codepath(28, p_codepath); /* 28 */
2739: Fnd_File.put_line(Fnd_File.LOG, 'p_intransit_type:'||p_intransit_type );
2740: Fnd_File.put_line(Fnd_File.LOG, 'p_fob_point:'||p_fob_point );
2741: if ( (p_intransit_type = 2) and (p_fob_point = 2) ) then
2742: /* 2 extra accounting entries need to be passed */
2740: Fnd_File.put_line(Fnd_File.LOG, 'p_fob_point:'||p_fob_point );
2741: if ( (p_intransit_type = 2) and (p_fob_point = 2) ) then
2742: /* 2 extra accounting entries need to be passed */
2743:
2744: p_codepath := jai_general_pkg.plot_codepath(29, p_codepath); /* 29 */
2745: IF p_all_taxes -
2746: ( p_tds_taxes + p_modvat_recovery_taxes +
2747: p_cvd_taxes + p_add_cvd_taxes /*5228046 Additional cvd Enhancement*/ +
2748: p_customs_taxes + p_cvd_edu_cess +p_cvd_sh_edu_cess /*Bug 5989740 bduvarag*/
2749: + p_customs_edu_cess
2750: +p_customs_sh_edu_cess) <> 0
2751: THEN
2752:
2753: p_codepath := jai_general_pkg.plot_codepath(30, p_codepath); /* 30 */
2754: /* Accounting Entry # 5 : Debit InterOrg Receivable */
2755:
2756: ln_debit := p_all_taxes -
2757: ( p_tds_taxes + p_modvat_recovery_taxes + p_cvd_taxes + p_add_cvd_taxes /*5228046 Additional cvd Enhancement*/ + p_customs_taxes +
2789: ptr_jv(5).summary_jv_flag := 'N';
2790:
2791: /* Accounting Entry # 6 : Credit in-transit inventory */
2792:
2793: p_codepath := jai_general_pkg.plot_codepath(31, p_codepath); /* 31 */
2794: ln_credit := ln_debit;
2795: ln_debit := null;
2796:
2797: Fnd_File.put_line(Fnd_File.LOG, 'ln_credit:'||ln_credit );
2829: end if; /* p_receipt_source_code = 'INTERNAL ORDER' */
2830:
2831:
2832: << exit_from_procedure >>
2833: p_codepath := jai_general_pkg.plot_codepath(32, p_codepath, null, 'END'); /* 32 */
2834:
2835: if p_process_flag is null then
2836: p_process_flag := 'Y';
2837: end if;
2847: when others then
2848: p_process_flag := 'E';
2849: p_process_message := 'RECEIVE_RTV_PKG.post_entries:' || sqlerrm;
2850: FND_FILE.put_line( FND_FILE.log, 'Error in '||p_process_message);
2851: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END');
2852: Fnd_File.put_line(Fnd_File.LOG, 'Code Path:' || p_codepath );
2853: return;
2854:
2855: end post_entries;
2998: if p_debug = 'Y' then
2999: Fnd_File.put_line(Fnd_File.LOG, ' ** Start of procedure jai_rcv_rcv_rtv_pkg.regime_tax_accounting_interim **');
3000: end if;
3001:
3002: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_rcv_rtv_pkg.regime_tax_accounting_interim', 'START'); /* 1 */
3003: /* Set varaiable values for accounting entries with GL link */
3004: if ( (p_transaction_type = 'RETURN TO VENDOR')
3005: or
3006: (p_transaction_type = 'CORRECT' and p_parent_transaction_type = 'RETURN TO VENDOR')
3005: or
3006: (p_transaction_type = 'CORRECT' and p_parent_transaction_type = 'RETURN TO VENDOR')
3007: )
3008: then
3009: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
3010: lv_acct_type := 'REVERSAL';
3011: else
3012: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
3013: lv_acct_type := 'REGULAR';
3008: then
3009: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
3010: lv_acct_type := 'REVERSAL';
3011: else
3012: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
3013: lv_acct_type := 'REGULAR';
3014: end if;
3015:
3016: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
3012: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
3013: lv_acct_type := 'REGULAR';
3014: end if;
3015:
3016: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
3017: lv_reference_10 := p_regime_code||' Regime. India Local Receiving Entry for Receipt Number ' || p_receipt_num ||
3018: ', for Transaction Type ' || p_transaction_type ;
3019:
3020: if p_transaction_type = 'CORRECT' then
3017: lv_reference_10 := p_regime_code||' Regime. India Local Receiving Entry for Receipt Number ' || p_receipt_num ||
3018: ', for Transaction Type ' || p_transaction_type ;
3019:
3020: if p_transaction_type = 'CORRECT' then
3021: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
3022: lv_reference_10 := lv_reference_10 || ' of type ' || p_parent_transaction_type;
3023: end if;
3024:
3025: lv_reference_26 := to_char(p_transaction_id);
3031: close c_jai_regimes;
3032:
3033: if p_regime_code = jai_constants.service_regime then
3034:
3035: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
3036: Fnd_File.put_line(Fnd_File.LOG, 'In Service Regime ');
3037: lv_organization_type := jai_constants.orgn_type_io;
3038: ln_organization_id := p_organization_id;
3039: ln_location_id := p_location_id;
3042: Fnd_File.put_line(Fnd_File.LOG, 'In Service Regime lv_organization_type =' ||lv_organization_type||' ln_organization_id='||p_organization_id||'ln_location_id='||p_location_id);
3043:
3044: elsif p_regime_code = jai_constants.vat_regime then
3045:
3046: p_codepath := jai_general_pkg.plot_codepath(6.1, p_codepath); /* 6.1 */
3047: lv_organization_type := jai_constants.orgn_type_io;
3048: ln_organization_id := p_organization_id;
3049: ln_location_id := p_location_id;
3050: l_jv_line_num_generator := 41;/*Bug 5527885*/
3050: l_jv_line_num_generator := 41;/*Bug 5527885*/
3051: end if;
3052: /* Loop through Taxes of Service/VAT Regime by interim service/vat account
3053: of tax type and pass the accounting entries */
3054: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
3055:
3056: for cur_rec in
3057: c_ja_in_tax_amt_by_account
3058: (
3069: loop
3070: ln_regime_recovery_interim := cur_rec.interim_regime_account;
3071:
3072: if ln_regime_recovery_interim is null then
3073: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
3074: p_process_flag := 'E';
3075: p_process_message :=
3076: 'RECEIVE_RTV_PKG.service_tax_accounting: Interim Service/vat tax recovery account not defined for some tax type';
3077: goto exit_from_procedure;
3082: (p_transaction_type = 'CORRECT' and p_parent_transaction_type = 'RETURN TO VENDOR')
3083: )
3084: then
3085:
3086: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
3087: ln_debit := null;
3088: ln_credit := cur_rec.tax_amount_by_account; /* Service/Vat */
3089:
3090: else
3088: ln_credit := cur_rec.tax_amount_by_account; /* Service/Vat */
3089:
3090: else
3091:
3092: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
3093: ln_debit := cur_rec.tax_amount_by_account;
3094: ln_credit := null;
3095:
3096: end if;
3094: ln_credit := null;
3095:
3096: end if;
3097:
3098: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath); /* 11 */
3099:
3100: --if (ln_debit is not null or ln_credit is not null) then
3101: --commented the above and added the below by Ramananda for Bug#4514461
3102: if (NVL(ln_debit,0) <> 0 OR NVL(ln_credit,0) <> 0) then
3099:
3100: --if (ln_debit is not null or ln_credit is not null) then
3101: --commented the above and added the below by Ramananda for Bug#4514461
3102: if (NVL(ln_debit,0) <> 0 OR NVL(ln_credit,0) <> 0) then
3103: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath); /* 12 */
3104: /* procedure to populate gl inetrface, JAI_RCV_JOURNAL_ENTRIES and receiving subledger */
3105: /*Bug 5527885 Start*/
3106: /*
3107: if p_debug = 'Y' then
3170: end loop;
3171:
3172:
3173: << exit_from_procedure >>
3174: p_codepath := jai_general_pkg.plot_codepath(32, p_codepath, null, 'END'); /* 32 */
3175:
3176: if p_process_flag is null then
3177: p_process_flag := 'Y';
3178: end if;
3188: when others then
3189: p_process_flag := 'E';
3190: p_process_message := 'RECEIVE_RTV_PKG.regime_tax_accounting_interim:' || sqlerrm;
3191: FND_FILE.put_line( FND_FILE.log, 'Error in '||p_process_message);
3192: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END');
3193: Fnd_File.put_line(Fnd_File.LOG, 'Code Path:' || p_codepath );
3194: return;
3195:
3196: end regime_tax_accounting_interim;