[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:
460: if p_debug = 'Y' then
461: Fnd_File.put_line(Fnd_File.LOG, '**** Start of procedure jai_rcv_rcv_rtv_pkg.process_transaction ****');
462: end if;
463:
464: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_rcv_rtv_pkg.process_transaction', 'START'); /* 1 */
465:
466: open c_rcv_transactions(p_transaction_id);
467: fetch c_rcv_transactions into r_rcv_transactions;
468: close c_rcv_transactions;
466: open c_rcv_transactions(p_transaction_id);
467: fetch c_rcv_transactions into r_rcv_transactions;
468: close c_rcv_transactions;
469:
470: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
471: open c_ja_in_rcv_transactions(p_transaction_id);
472: fetch c_ja_in_rcv_transactions into r_ja_in_rcv_transactions;
473: close c_ja_in_rcv_transactions;
474:
471: open c_ja_in_rcv_transactions(p_transaction_id);
472: fetch c_ja_in_rcv_transactions into r_ja_in_rcv_transactions;
473: close c_ja_in_rcv_transactions;
474:
475: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
476: open c_rcv_shipment_headers(r_rcv_transactions.shipment_header_id);
477: fetch c_rcv_shipment_headers into r_rcv_shipment_headers;
478: close c_rcv_shipment_headers;
479:
476: open c_rcv_shipment_headers(r_rcv_transactions.shipment_header_id);
477: fetch c_rcv_shipment_headers into r_rcv_shipment_headers;
478: close c_rcv_shipment_headers;
479:
480: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
481: open c_rcv_shipment_lines(r_rcv_transactions.shipment_line_id);
482: fetch c_rcv_shipment_lines into r_rcv_shipment_lines;
483: close c_rcv_shipment_lines;
484:
487: -- Fnd_File.put_line(Fnd_File.LOG, ' Code Path :' || p_codepath );/*Bug 5527885*/
488: end if;
489:
490: /* Get the Details for service tax interim accounting and check if it is needed */
491: p_codepath := jai_general_pkg.plot_codepath(4.11, p_codepath); /* 4.11 */
492: /*lv_accounting_method_option :=
493: jai_general_pkg.get_accounting_method
494: (
495: p_org_id => null,
489:
490: /* Get the Details for service tax interim accounting and check if it is needed */
491: p_codepath := jai_general_pkg.plot_codepath(4.11, p_codepath); /* 4.11 */
492: /*lv_accounting_method_option :=
493: jai_general_pkg.get_accounting_method
494: (
495: p_org_id => null,
496: p_organization_id => r_ja_in_rcv_transactions.organization_id,
497: p_sob_id => null
497: p_sob_id => null
498: );*/
499: --commented the above by Sanjikum for Bug#4474501
500:
501: p_codepath := jai_general_pkg.plot_codepath(4.12, p_codepath); /* 4.12 */
502: lv_accrue_on_receipt_flag :=
503: jai_rcv_trx_processing_pkg.get_accrue_on_receipt
504: (p_po_distribution_id => r_rcv_transactions.po_distribution_id,
505: -- added by Vijay Shankar for Bug#4215402
506: p_po_line_location_id => r_rcv_transactions.po_line_location_id
507: );
508:
509:
510: p_codepath := jai_general_pkg.plot_codepath(4.13, p_codepath); /* 4.13 */
511: /*if ( (lv_accrue_on_receipt_flag = 'N')
512: or
513: (lv_accounting_method_option = 'Cash' and
514: nvl(r_ja_in_rcv_transactions.inv_item_flag, 'N') = 'N'
517: --commented the above and added the below for Bug#4474501
518: if lv_accrue_on_receipt_flag = 'N'
519:
520: then
521: p_codepath := jai_general_pkg.plot_codepath(4.14, p_codepath); /* 4.14 */
522: lb_account_service_interim := false;
523: else
524: p_codepath := jai_general_pkg.plot_codepath(4.15, p_codepath); /* 4.15 */
525: lb_account_service_interim := true;
520: then
521: p_codepath := jai_general_pkg.plot_codepath(4.14, p_codepath); /* 4.14 */
522: lb_account_service_interim := false;
523: else
524: p_codepath := jai_general_pkg.plot_codepath(4.15, p_codepath); /* 4.15 */
525: lb_account_service_interim := true;
526: end if;
527: /*Bug 5527885 Start*/
528: gn_currency_precision :=
525: lb_account_service_interim := true;
526: end if;
527: /*Bug 5527885 Start*/
528: gn_currency_precision :=
529: jai_general_pkg.get_currency_precision(r_ja_in_rcv_transactions.organization_id);
530: if gn_currency_precision is null then
531: p_process_flag := 'E';
532: p_process_message := 'Currency Precision is null. Organization:'||r_ja_in_rcv_transactions.organization_id;
533: goto exit_from_procedure;
533: goto exit_from_procedure;
534: end if;
535: /*Bug 5527885 End*/
536:
537: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
538: get_accounts
539: (
540: p_organization_id => r_ja_in_rcv_transactions.organization_id,
541: p_location_id => r_ja_in_rcv_transactions.location_id,
574: Fnd_File.put_line(Fnd_File.LOG, ' Call to -> get_tax_breakup');
575: -- Fnd_File.put_line(Fnd_File.LOG, ' Code Path :' || p_codepath );/*Bug 5527885*/
576: end if;
577:
578: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
579: get_tax_breakup
580: (
581: p_transaction_id => p_transaction_id,
582: p_shipment_line_id => r_rcv_transactions.shipment_line_id,
630: Fnd_File.put_line(Fnd_File.LOG, ' Call to -> validate_transaction_tax_accnt');
631: -- Fnd_File.put_line(Fnd_File.LOG, ' Code Path :' || p_codepath );/*Bug 5527885*/
632: end if;
633:
634: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
635:
636: validate_transaction_tax_accnt
637: (
638: p_transaction_type => r_ja_in_rcv_transactions.transaction_type,
672: Fnd_File.put_line(Fnd_File.LOG, ' Call to -> apply_relieve_boe');
673: -- Fnd_File.put_line(Fnd_File.LOG, ' Code Path :' || p_codepath );/*Bug 5527885*/
674: end if;
675:
676: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
677:
678: apply_relieve_boe
679: (
680: p_transaction_id => p_transaction_id,
726: Fnd_File.put_line(Fnd_File.LOG, ' ln_interorg_receivables_accnt:'||ln_interorg_receivables_accnt);
727: Fnd_File.put_line(Fnd_File.LOG, ' p_interorg_payables_account:'||ln_interorg_payables_account);
728: Fnd_File.put_line(Fnd_File.LOG, 'ln_inclu_service_recoverable '||ln_inclu_service_recoverable);--11936596
729:
730: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
731: post_entries
732: (
733: p_transaction_id => p_transaction_id,
734: p_transaction_type => r_ja_in_rcv_transactions.transaction_type,
792: /* post_entries procedure has hit an error, cannot continue processing */
793: goto exit_from_procedure;
794: end if;
795:
796: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
797: /*Bug 5632406 Start*/
798: if (lb_account_service_interim and nvl(ln_service_recoverable, 0) <> 0 )
799: and r_rcv_shipment_headers.receipt_source_code <> 'CUSTOMER'
800: /* bug#5632406 - bduvarag used the p_receipt_source_code
800: /* bug#5632406 - bduvarag used the p_receipt_source_code
801: instead of nvl(r_rcv_transactions.attribute_category, 'XX') <> 'INDIA RMA RECEIPT'*/
802: then
803: /*Bug 5632406 End*/
804: p_codepath := jai_general_pkg.plot_codepath(10.1, p_codepath); /* 10.1 */
805:
806: regime_tax_accounting_interim
807: (
808: p_transaction_id => p_transaction_id,
834:
835: /* following call added by Vijay Shankar for Bug#4250236(4245089). VAT Impl. */
836: if (nvl(ln_vat_recoverable, 0) <> 0 OR nvl(ln_inclu_vat_recoverable,0) <> 0) /*Bug 16598602 VAT interim accounting required as inclusive vat tax exists*/
837: and r_rcv_shipment_headers.receipt_source_code <> 'CUSTOMER' then/*Bug 5527885*/
838: p_codepath := jai_general_pkg.plot_codepath(10.2, p_codepath); /* 10.2 */ /*Bug 5527885*/
839: /* VAT interim accounting required as recoverable vat tax exists */
840: regime_tax_accounting_interim
841: (
842: p_transaction_id => p_transaction_id,
878: p_process_flag=>p_process_flag,
879: p_process_message=>p_process_message);
880:
881: /*Bug 5527885 Start*/
882: p_codepath := jai_general_pkg.plot_codepath(10.3, p_codepath); /* 11 */
883: /* START 5478427 */
884: /* Code for rounding logic */
885: ln_cum_dr_amt := 0;
886: ln_cum_cr_amt := 0;
918: v_rounding_diff_to := (1/(2*(power(10,gn_currency_precision)))) * v_line_count;
919: v_rounding_diff_from := (-1) * v_rounding_diff_to;
920:
921:
922: p_codepath := jai_general_pkg.plot_codepath(10.4, p_codepath); /* 11 */
923: if p_debug = 'Y' then
924: Fnd_File.put_line(Fnd_File.LOG,
925: 'For Rounding- CumDr:'||ln_cum_dr_amt||', CumCr:'||ln_cum_cr_amt||', ProbRec:'||ln_jv_num_of_max_rec
926: ||', v_rounding_diff_from:'||v_rounding_diff_from||', v_rounding_diff_to:'||v_rounding_diff_to
931: -- if ln_diff_amt_between_dr_cr <> 0 then
932: if (ln_diff_amt_between_dr_cr >= v_rounding_diff_from)
933: and (ln_diff_amt_between_dr_cr <= v_rounding_diff_to) /* Added for Bug#5527885 */
934: then
935: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath); /* 11 */
936: if ln_max_jv_amt_type = gv_debit then
937: tr_jv(ln_jv_num_of_max_rec).entered_dr :=
938: tr_jv(ln_jv_num_of_max_rec).entered_dr - ln_diff_amt_between_dr_cr;
939: else /* means credit */
976: for jv_num in tr_jv.FIRST..tr_jv.LAST loop
977:
978: if tr_jv.exists(jv_num) = true then
979:
980: p_codepath := jai_general_pkg.plot_codepath('12.'||tr_jv(jv_num).line_num, p_codepath); /* 10 */
981: if p_debug = 'Y' then
982: Fnd_File.put_line(Fnd_File.LOG,
983: rpad(tr_jv(jv_num).account_name,30, ' ')
984: ||' '||rpad(tr_jv(jv_num).ccid,10, ' ')
1026: -- All the Processing Went Through fine. So Setting the process_flag to 'Y'
1027: p_process_flag := 'Y';
1028:
1029: << exit_from_procedure >>
1030: p_codepath := jai_general_pkg.plot_codepath(99, p_codepath, null, 'END'); /* 11 *//*Bug 5527885*/
1031:
1032: if p_debug = 'Y' then
1033: -- Fnd_File.put_line(Fnd_File.LOG, ' Code Path :' || p_codepath );/*Bug 5527885*/
1034: Fnd_File.put_line(Fnd_File.LOG, '**** End of procedure jai_rcv_rcv_rtv_pkg.process_transaction ****');
1145: if p_debug = 'Y' then
1146: Fnd_File.put_line(Fnd_File.LOG, ' ** Start of procedure jai_rcv_rcv_rtv_pkg.get_accounts **');
1147: end if;
1148:
1149: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_rcv_rtv_pkg.get_accounts', 'START'); /* 1 */
1150: open c_ja_in_hr_organization_units(p_organization_id,p_location_id);
1151: fetch c_ja_in_hr_organization_units into r_ja_in_hr_organization_units;
1152: close c_ja_in_hr_organization_units;
1153:
1151: fetch c_ja_in_hr_organization_units into r_ja_in_hr_organization_units;
1152: close c_ja_in_hr_organization_units;
1153:
1154:
1155: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
1156: open c_ja_in_hr_organization_units(p_organization_id, 0);
1157: fetch c_ja_in_hr_organization_units into r_ja_in_hr_organization_units1;
1158: close c_ja_in_hr_organization_units;
1159:
1160: /** check value for all accounts for the given location ..
1161: if null get value for null location **/
1162:
1163: /** BOE account **/
1164: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
1165: if r_ja_in_hr_organization_units.boe_account_id is not null then
1166: p_boe_account_id := r_ja_in_hr_organization_units.boe_account_id ;
1167: elsif r_ja_in_hr_organization_units1.boe_account_id is not null then
1168: p_boe_account_id := r_ja_in_hr_organization_units1.boe_account_id ;
1168: p_boe_account_id := r_ja_in_hr_organization_units1.boe_account_id ;
1169: end if;
1170:
1171: /** rtv_expense_account_id **/
1172: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
1173: if r_ja_in_hr_organization_units.rtv_expense_account_id is not null then
1174: p_rtv_expense_account_id := r_ja_in_hr_organization_units.rtv_expense_account_id ;
1175: elsif r_ja_in_hr_organization_units1.rtv_expense_account_id is not null then
1176: p_rtv_expense_account_id := r_ja_in_hr_organization_units1.rtv_expense_account_id ;
1176: p_rtv_expense_account_id := r_ja_in_hr_organization_units1.rtv_expense_account_id ;
1177: end if;
1178:
1179: /** excise_expense_account **/
1180: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
1181: if r_ja_in_hr_organization_units.excise_expense_account is not null then
1182: p_excise_expense_account := r_ja_in_hr_organization_units.excise_expense_account ;
1183: elsif r_ja_in_hr_organization_units1.excise_expense_account is not null then
1184: p_excise_expense_account := r_ja_in_hr_organization_units1.excise_expense_account ;
1184: p_excise_expense_account := r_ja_in_hr_organization_units1.excise_expense_account ;
1185: end if;
1186:
1187: /** excise_rcvble_account **/
1188: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
1189: if r_ja_in_hr_organization_units.excise_rcvble_account is not null then
1190: p_excise_rcvble_account := r_ja_in_hr_organization_units.excise_rcvble_account ;
1191: elsif r_ja_in_hr_organization_units1.excise_expense_account is not null then
1192: p_excise_rcvble_account := r_ja_in_hr_organization_units1.excise_rcvble_account ;
1191: elsif r_ja_in_hr_organization_units1.excise_expense_account is not null then
1192: p_excise_rcvble_account := r_ja_in_hr_organization_units1.excise_rcvble_account ;
1193: end if;
1194:
1195: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
1196: open c_rcv_parameters(p_organization_id);
1197: fetch c_rcv_parameters into r_rcv_parameters;
1198: close c_rcv_parameters;
1199:
1198: close c_rcv_parameters;
1199:
1200: p_receiving_account_id := r_rcv_parameters.receiving_account_id;
1201:
1202: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
1203: open c_mtl_parameters(p_organization_id);
1204: fetch c_mtl_parameters into r_mtl_parameters;
1205: close c_mtl_parameters;
1206:
1206:
1207: p_ap_accrual_account := r_mtl_parameters.ap_accrual_account;
1208:
1209:
1210: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
1211: if p_po_distribution_id is not null then
1212:
1213: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
1214: open c_po_distributions_all(p_po_distribution_id);
1209:
1210: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
1211: if p_po_distribution_id is not null then
1212:
1213: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
1214: open c_po_distributions_all(p_po_distribution_id);
1215: fetch c_po_distributions_all into r_po_distributions_all;
1216: close c_po_distributions_all;
1217:
1222:
1223: if r_po_distributions_all.accrual_account_id is null and
1224: p_po_line_location_id is not null then
1225:
1226: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath); /* 11 */
1227: open c_po_distributions_all_1(p_po_line_location_id);
1228: fetch c_po_distributions_all_1 into r_po_distributions_all_1;
1229: close c_po_distributions_all_1;
1230:
1229: close c_po_distributions_all_1;
1230:
1231: p_po_accrual_account_id := r_po_distributions_all_1.accrual_account_id;
1232:
1233: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath); /* 12 */
1234:
1235: end if;
1236:
1237:
1234:
1235: end if;
1236:
1237:
1238: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath); /* 13 */
1239: p_trading_to_trading_iso := 'N';
1240: if p_receipt_source_code in('INTERNAL ORDER','INVENTORY')then -- bug 6030615
1241:
1242: p_codepath := jai_general_pkg.plot_codepath(14, p_codepath); /* 14 */
1238: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath); /* 13 */
1239: p_trading_to_trading_iso := 'N';
1240: if p_receipt_source_code in('INTERNAL ORDER','INVENTORY')then -- bug 6030615
1241:
1242: p_codepath := jai_general_pkg.plot_codepath(14, p_codepath); /* 14 */
1243: open c_mtl_interorg_parameters(p_from_organization_id, p_to_organization_id);
1244: fetch c_mtl_interorg_parameters into r_mtl_interorg_parameters;
1245: close c_mtl_interorg_parameters;
1246:
1260: r_ja_in_hr_organization_units1.receiving_org_manufacturing = 'Y' Commenting Ends here */
1261: )
1262:
1263: then
1264: p_codepath := jai_general_pkg.plot_codepath(14.1, p_codepath); /* 14.1 */
1265: p_trading_to_trading_iso := 'Y';
1266:
1267: end if;
1268:
1265: p_trading_to_trading_iso := 'Y';
1266:
1267: end if;
1268:
1269: p_codepath := jai_general_pkg.plot_codepath(15, p_codepath); /* 15 */
1270: p_interorg_payables_account := r_mtl_interorg_parameters.interorg_payables_account;
1271: p_intransit_inv_account := r_mtl_interorg_parameters.intransit_inv_account;
1272: p_interorg_receivables_account := r_mtl_interorg_parameters.interorg_receivables_account;
1273: p_intransit_type := r_mtl_interorg_parameters.intransit_type;
1276: end if; /*p_receipt_source_code = 'INTERNAL ORDER'*/
1277:
1278:
1279: << exit_from_procedure >>
1280: p_codepath := jai_general_pkg.plot_codepath(16, p_codepath, null, 'END'); /* 16 */
1281: if p_process_flag is null then
1282: p_process_flag := 'Y';
1283: end if;
1284:
1295: p_process_flag := 'E';
1296: p_process_message := 'RECEIVE_RTV_PKG.get_accounts:' || sqlerrm;
1297: FND_FILE.put_line( FND_FILE.log, 'Error in '||p_process_message);
1298: Fnd_File.put_line(Fnd_File.LOG, 'Code Path:' || p_codepath );
1299: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END'); /* 24 */
1300: return;
1301:
1302: end get_accounts;
1303:
1427: Fnd_File.put_line(Fnd_File.LOG, ' ** Start of procedure jai_rcv_rcv_rtv_pkg.get_tax_breakup **');
1428: end if;
1429:
1430:
1431: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_rcv_rtv_pkg.get_tax_breakup', 'START'); /* 1 */
1432:
1433: ln_tax_apportion_factor :=
1434: jai_rcv_trx_processing_pkg.get_apportion_factor(p_transaction_id);
1435: --start additions by vkaranam for bug#10167393
1437: fetch c_ja_in_rcv_transactions into r_ja_in_rcv_transactions;
1438: close c_ja_in_rcv_transactions;
1439: --end additions by vkaranam for bug#10167393
1440:
1441: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
1442: p_all_taxes := 0;
1443: p_tds_taxes := 0;
1444: p_modvat_recovery_taxes := 0;
1445: p_cvd_taxes := 0;
1480: fetch c_jai_regimes into r_jai_regimes_vat;
1481: close c_jai_regimes;
1482: */
1483:
1484: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
1485:
1486: for cur_rec in c_ja_in_receipt_tax_lines(p_shipment_line_id) loop
1487:
1488: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
1484: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
1485:
1486: for cur_rec in c_ja_in_receipt_tax_lines(p_shipment_line_id) loop
1487:
1488: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
1489: --start additions for POT 11936596
1490: if cur_rec.inclusive_tax_flag='Y' and cur_rec.tax_type not in (
1491: jai_constants.tax_type_excise, jai_constants.tax_type_exc_additional, jai_constants.tax_type_exc_other,
1492: jai_constants.tax_type_exc_edu_cess, jai_constants.tax_type_sh_exc_edu_cess) /*Added not in condition by mmurtuza for bug 16101545*/
1496: ln_tax_amount := cur_rec.tax_amount;
1497: end if;
1498: -- end additions for POT 11936596
1499:
1500: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
1501: --start additions by vkaranam for bug#10167393
1502: if nvl(cur_rec.adhoc_flag,'N')='Y' and nvl(cur_rec.vat_flag,'N')<>'Q' and cur_rec.tax_type in ('Freight','Insurance','Octrai','Other','PURCHASE TAX','ENTRY TAX') and r_ja_in_rcv_transactions.transaction_type='CORRECT'
1503: then
1504: ln_tax_amount := 0;
1508: --end additions by vkaranam for bug#12316065
1509:
1510: /* apportionment for uom and quantity change wrt the parent RECEIVE
1511: line for which taxes exist */
1512: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
1513: if nvl(cur_rec.currency, jai_rcv_trx_processing_pkg.gv_func_curr) <>
1514: jai_rcv_trx_processing_pkg.gv_func_curr
1515: then
1516: /* Tax not in functional currency, need to convert*/
1530:
1531: /* ln_tax_amount := round(ln_tax_amount, cur_rec.rounding_factor); Vijay. Final Observation */
1532: p_all_taxes := p_all_taxes + ln_tax_amount;
1533:
1534: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
1535:
1536: if cur_rec.tax_type = jai_constants.tax_type_tds then /* TDS*/
1537:
1538: p_codepath := jai_general_pkg.plot_codepath(7.1, p_codepath); /* 7.1 */
1534: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
1535:
1536: if cur_rec.tax_type = jai_constants.tax_type_tds then /* TDS*/
1537:
1538: p_codepath := jai_general_pkg.plot_codepath(7.1, p_codepath); /* 7.1 */
1539: p_tds_taxes := p_tds_taxes + ln_tax_amount;
1540:
1541:
1542: elsif cur_rec.tax_type = jai_constants.tax_type_modvat_recovery then /* MODVAT RECOVERY*/
1540:
1541:
1542: elsif cur_rec.tax_type = jai_constants.tax_type_modvat_recovery then /* MODVAT RECOVERY*/
1543:
1544: p_codepath := jai_general_pkg.plot_codepath(7.2, p_codepath); /* 7.2 */
1545: p_modvat_recovery_taxes := p_modvat_recovery_taxes + ln_tax_amount;
1546:
1547: elsif cur_rec.tax_type = jai_constants.tax_type_customs then /* CUSTOMS */
1548:
1545: p_modvat_recovery_taxes := p_modvat_recovery_taxes + ln_tax_amount;
1546:
1547: elsif cur_rec.tax_type = jai_constants.tax_type_customs then /* CUSTOMS */
1548:
1549: p_codepath := jai_general_pkg.plot_codepath(7.3, p_codepath); /* 7.3 */
1550: p_customs_taxes := p_customs_taxes + ln_tax_amount;
1551:
1552: elsif cur_rec.tax_type = jai_constants.tax_type_cvd then /* CVD */
1553:
1550: p_customs_taxes := p_customs_taxes + ln_tax_amount;
1551:
1552: elsif cur_rec.tax_type = jai_constants.tax_type_cvd then /* CVD */
1553:
1554: p_codepath := jai_general_pkg.plot_codepath(7.4, p_codepath); /* 7.4 */
1555: p_cvd_taxes := p_cvd_taxes + ln_tax_amount;
1556:
1557: elsif cur_rec.tax_type = jai_constants.tax_type_add_cvd then /* ADDITIONAL CVD - Enhancement 5228046 */
1558:
1555: p_cvd_taxes := p_cvd_taxes + ln_tax_amount;
1556:
1557: elsif cur_rec.tax_type = jai_constants.tax_type_add_cvd then /* ADDITIONAL CVD - Enhancement 5228046 */
1558:
1559: p_codepath := jai_general_pkg.plot_codepath(7.4, p_codepath); /* 7.4 */
1560: p_add_cvd_taxes := p_add_cvd_taxes + ln_tax_amount;
1561:
1562: elsif cur_rec.tax_type = jai_constants.tax_type_exc_edu_cess then /* Educational Cess Excise */
1563:
1560: p_add_cvd_taxes := p_add_cvd_taxes + ln_tax_amount;
1561:
1562: elsif cur_rec.tax_type = jai_constants.tax_type_exc_edu_cess then /* Educational Cess Excise */
1563:
1564: p_codepath := jai_general_pkg.plot_codepath(7.5, p_codepath); /* 7.5 */
1565: p_excise_edu_cess := p_excise_edu_cess + ln_tax_amount;
1566: /*Bug 5989740 bduvarag start*/
1567: elsif cur_rec.tax_type = jai_constants.tax_type_sh_exc_edu_cess then /* Higher Secondary Educational Cess Excise */
1568:
1565: p_excise_edu_cess := p_excise_edu_cess + ln_tax_amount;
1566: /*Bug 5989740 bduvarag start*/
1567: elsif cur_rec.tax_type = jai_constants.tax_type_sh_exc_edu_cess then /* Higher Secondary Educational Cess Excise */
1568:
1569: p_codepath := jai_general_pkg.plot_codepath(7.51, p_codepath); /* 7.51 */
1570: p_excise_sh_edu_cess := p_excise_sh_edu_cess + ln_tax_amount;
1571:
1572: /*Bug 5989740 bduvarag end*/
1573: elsif cur_rec.tax_type = jai_constants.tax_type_cvd_edu_cess then /* Educational Cess CVD */
1571:
1572: /*Bug 5989740 bduvarag end*/
1573: elsif cur_rec.tax_type = jai_constants.tax_type_cvd_edu_cess then /* Educational Cess CVD */
1574:
1575: p_codepath := jai_general_pkg.plot_codepath(7.6, p_codepath); /* 7.6 */
1576: p_cvd_edu_cess := p_cvd_edu_cess + ln_tax_amount;
1577: /*Bug 5989740 bduvarag start*/
1578: elsif cur_rec.tax_type = jai_constants.tax_type_sh_cvd_edu_cess then /* Higher Secondary Educational Cess CVD */
1579:
1576: p_cvd_edu_cess := p_cvd_edu_cess + ln_tax_amount;
1577: /*Bug 5989740 bduvarag start*/
1578: elsif cur_rec.tax_type = jai_constants.tax_type_sh_cvd_edu_cess then /* Higher Secondary Educational Cess CVD */
1579:
1580: p_codepath := jai_general_pkg.plot_codepath(7.61, p_codepath); /* 7.61 */
1581: p_cvd_sh_edu_cess := p_cvd_sh_edu_cess + ln_tax_amount;
1582:
1583: /*Bug 5989740 bduvarag end*/
1584: elsif cur_rec.tax_type = jai_constants.tax_type_customs_edu_cess then /* Educational Cess CVD */
1582:
1583: /*Bug 5989740 bduvarag end*/
1584: elsif cur_rec.tax_type = jai_constants.tax_type_customs_edu_cess then /* Educational Cess CVD */
1585:
1586: p_codepath := jai_general_pkg.plot_codepath(7.7, p_codepath); /* 7.7 */
1587: p_customs_edu_cess := p_customs_edu_cess + ln_tax_amount;
1588: /*Bug 5989740 bduvarag start*/
1589: elsif cur_rec.tax_type = jai_constants.tax_type_sh_customs_edu_cess then /* Higher Secondary Educational Cess CVD */
1590:
1587: p_customs_edu_cess := p_customs_edu_cess + ln_tax_amount;
1588: /*Bug 5989740 bduvarag start*/
1589: elsif cur_rec.tax_type = jai_constants.tax_type_sh_customs_edu_cess then /* Higher Secondary Educational Cess CVD */
1590:
1591: p_codepath := jai_general_pkg.plot_codepath(7.71, p_codepath); /* 7.71 */
1592: p_customs_sh_edu_cess := p_customs_sh_edu_cess + ln_tax_amount;
1593: /*Bug 5989740 bduvarag end*/
1594:
1595:
1597: ---------------------------------------------------------------------------------
1598:
1599: elsif cur_rec.tax_type = jai_constants.tax_type_boe_other1 then
1600:
1601: p_codepath := jai_general_pkg.plot_codepath(7.72, p_codepath); /* 7.72 */
1602: p_boe_other1 := p_boe_other1 + ln_tax_amount;
1603:
1604: elsif cur_rec.tax_type = jai_constants.tax_type_boe_other2 then
1605:
1602: p_boe_other1 := p_boe_other1 + ln_tax_amount;
1603:
1604: elsif cur_rec.tax_type = jai_constants.tax_type_boe_other2 then
1605:
1606: p_codepath := jai_general_pkg.plot_codepath(7.73, p_codepath); /* 7.73 */
1607: p_boe_other2 := p_boe_other2 + ln_tax_amount;
1608:
1609: elsif cur_rec.tax_type = jai_constants.tax_type_boe_other3 then
1610:
1607: p_boe_other2 := p_boe_other2 + ln_tax_amount;
1608:
1609: elsif cur_rec.tax_type = jai_constants.tax_type_boe_other3 then
1610:
1611: p_codepath := jai_general_pkg.plot_codepath(7.74, p_codepath); /* 7.74 */
1612: p_boe_other3 := p_boe_other3 + ln_tax_amount;
1613:
1614: elsif cur_rec.tax_type = jai_constants.tax_type_boe_other4 then
1615:
1612: p_boe_other3 := p_boe_other3 + ln_tax_amount;
1613:
1614: elsif cur_rec.tax_type = jai_constants.tax_type_boe_other4 then
1615:
1616: p_codepath := jai_general_pkg.plot_codepath(7.75, p_codepath); /* 7.75 */
1617: p_boe_other4 := p_boe_other4 + ln_tax_amount;
1618:
1619: elsif cur_rec.tax_type = jai_constants.tax_type_boe_other5 then
1620:
1617: p_boe_other4 := p_boe_other4 + ln_tax_amount;
1618:
1619: elsif cur_rec.tax_type = jai_constants.tax_type_boe_other5 then
1620:
1621: p_codepath := jai_general_pkg.plot_codepath(7.76, p_codepath); /* 7.76 */
1622: p_boe_other5 := p_boe_other5 + ln_tax_amount;
1623:
1624: elsif cur_rec.tax_type = jai_constants.tax_type_boe_surcharge_duty then
1625:
1622: p_boe_other5 := p_boe_other5 + ln_tax_amount;
1623:
1624: elsif cur_rec.tax_type = jai_constants.tax_type_boe_surcharge_duty then
1625:
1626: p_codepath := jai_general_pkg.plot_codepath(7.77, p_codepath); /* 7.77 */
1627: p_boe_surcharge_duty := p_boe_surcharge_duty + ln_tax_amount;
1628:
1629: elsif cur_rec.tax_type = jai_constants.tax_type_boe_add_customs then
1630:
1627: p_boe_surcharge_duty := p_boe_surcharge_duty + ln_tax_amount;
1628:
1629: elsif cur_rec.tax_type = jai_constants.tax_type_boe_add_customs then
1630:
1631: p_codepath := jai_general_pkg.plot_codepath(7.78, p_codepath); /* 7.78 */
1632: p_boe_add_customs := p_boe_add_customs + ln_tax_amount;
1633: ---------------------------------------------------------------------------------
1634: --Added by zhiwei for BOE ER bug 11684111 end
1635:
1640: jai_constants.tax_type_exc_other /* EXCISE OTHERS */
1641: )
1642: then
1643:
1644: p_codepath := jai_general_pkg.plot_codepath(7.8, p_codepath); /* 7.8 */
1645: p_excise_tax := p_excise_tax + ln_tax_amount;
1646:
1647: else
1648:
1647: else
1648:
1649: /* Check tax type by regime, Service and then VAT */
1650:
1651: p_codepath := jai_general_pkg.plot_codepath(7.9, p_codepath); /* 7.9 */
1652:
1653: /*
1654: r_is_tax_type_in_regime := null;
1655:
1660: if r_is_tax_type_in_regime.regime_tax_type is not null then*/
1661:
1662: /* Service type of Tax */
1663: if cur_rec.regime_code = jai_constants.service_regime then
1664: p_codepath := jai_general_pkg.plot_codepath(7.11, p_codepath); /* 7.11 */
1665:
1666: /*bug 8488470 - modified the if block.
1667: Issue - Unbalanced entries in GL for correct / RTV transactions.
1668: Cause - In case of recoverable VAT, the individual tax line is rounded, and the credit / debit
1673: in p_all_taxes variable also.
1674: Though issue was observed for VAT related transactions, same is possible with Service tax
1675: also.*/
1676: if ( cur_rec.modvatable = 'Y' ) then
1677: p_codepath := jai_general_pkg.plot_codepath(7.12, p_codepath); /* 7.12 */
1678: /*Bug 5527885 start*/
1679: p_service_recoverable := p_service_recoverable + Round(ln_tax_amount * cur_rec.recoverable/100, cur_rec.rounding_factor);
1680: --start additions for POT 11936596
1681: if cur_rec.inclusive_tax_flag='Y'
1685: --end additions for POT 11936596
1686: p_service_not_recoverable := p_service_not_recoverable + (ln_tax_amount * (100-cur_rec.recoverable)/100);
1687: p_all_taxes := p_all_taxes - ln_tax_amount + Round(ln_tax_amount * cur_rec.recoverable/100, cur_rec.rounding_factor) + (ln_tax_amount * (100-cur_rec.recoverable)/100);
1688: else
1689: p_codepath := jai_general_pkg.plot_codepath(7.13, p_codepath); /* 7.13 */
1690: p_service_not_recoverable := p_service_not_recoverable + ln_tax_amount;
1691: end if;
1692:
1693: /*Bug 5527885 End*/
1692:
1693: /*Bug 5527885 End*/
1694: else
1695:
1696: p_codepath := jai_general_pkg.plot_codepath(7.14, p_codepath); /* 7.14 */
1697:
1698: /*
1699: r_is_tax_type_in_regime := null;
1700: open c_is_tax_type_in_regime(r_jai_regimes_vat.regime_id, cur_rec.tax_type);
1704: if r_is_tax_type_in_regime.regime_tax_type is not null then */
1705:
1706: /* VAT type of Tax */
1707: if cur_rec.regime_code = jai_constants.vat_regime then
1708: p_codepath := jai_general_pkg.plot_codepath(7.15, p_codepath); /* 7.15 */
1709:
1710: /*bug 8488470 - modified the if block.
1711: Issue - Unbalanced entries in GL for correct / RTV transactions.
1712: Cause - In case of recoverable VAT, the individual tax line is rounded, and the credit / debit
1715: partially recoverable taxes here. Rounding should be applied for fully recoverable taxes
1716: also. Moreover, the rounded amount should be considered for the total amount being stored
1717: in p_all_taxes variable also..*/
1718: if (cur_rec.modvatable = 'Y' ) then
1719: p_codepath := jai_general_pkg.plot_codepath(7.16, p_codepath); /* 7.16 */
1720: p_vat_recoverable := p_vat_recoverable + Round(ln_tax_amount * cur_rec.recoverable/100, cur_rec.rounding_factor);
1721: p_vat_not_recoverable := p_vat_not_recoverable + (ln_tax_amount * (100 - cur_rec.recoverable)/100);
1722: /*Bug 14185068 - VAT Inclusive Tax must also be accounted - Start*/
1723: /*VAT Interim Account is not set off to Receving Inventory Account*/
1728: /*Bug 14185068 - Inclusive Tax must also be accounted - End*/
1729: p_all_taxes := p_all_taxes - ln_tax_amount + Round(ln_tax_amount * cur_rec.recoverable/100, cur_rec.rounding_factor) + (ln_tax_amount * (100 - cur_rec.recoverable)/100);
1730: -- End 6971526
1731: else
1732: p_codepath := jai_general_pkg.plot_codepath(7.17, p_codepath); /* 7.17 */
1733: p_vat_not_recoverable := p_vat_not_recoverable + ln_tax_amount;
1734: end if;
1735:
1736: end if; /* Service and VAT */
1740: end if; /* Check all tax and tax type */
1741:
1742:
1743: /* get third party amount */
1744: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
1745: if
1746: cur_rec.vendor_id <> p_po_vendor_id and
1747: cur_rec.vendor_id > 0 and
1748: cur_rec.tax_type not in (jai_constants.tax_type_tds, jai_constants.tax_type_modvat_recovery)
1754:
1755: end loop; /* c_ja_in_receipt_tax_lines */
1756:
1757: << exit_from_procedure >>
1758: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath, null, 'END'); /* 9 */
1759:
1760: if p_process_flag is null then
1761: p_process_flag := 'Y';
1762: end if;
1773: p_process_flag := 'E';
1774: p_process_message := 'RECEIVE_RTV_PKG.get_tax_breakup:' || sqlerrm;
1775: FND_FILE.put_line( FND_FILE.log, 'Error in '||p_process_message);
1776: Fnd_File.put_line(Fnd_File.LOG, 'Code Path:' || p_codepath );
1777: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END'); /* 24 */
1778: return;
1779:
1780: end get_tax_breakup;
1781:
1821: if p_debug = 'Y' then
1822: Fnd_File.put_line(Fnd_File.LOG, ' ** Start of procedure jai_rcv_rcv_rtv_pkg.validate_transaction_tax_accnt **');
1823: end if;
1824:
1825: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_rcv_rtv_pkg.validate_transaction_tax_accnt', 'START'); /* 1 */
1826:
1827: -- Vijay Shankar for Bug#4346453. RCV DFF Elim. Enh. if p_attribute_category = 'INDIA RMA RECEIPT' then
1828: if p_receipt_source_code = 'CUSTOMER' then
1829:
1826:
1827: -- Vijay Shankar for Bug#4346453. RCV DFF Elim. Enh. if p_attribute_category = 'INDIA RMA RECEIPT' then
1828: if p_receipt_source_code = 'CUSTOMER' then
1829:
1830: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
1831:
1832: if p_excise_expense_account is null then
1833:
1834: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
1830: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
1831:
1832: if p_excise_expense_account is null then
1833:
1834: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
1835: p_process_flag := 'E';
1836: p_process_message := 'Excise Expense Account is not defined in JAI_CMN_INVENTORY_ORGS, ' ||
1837: 'for the organization location or null location, cannot proceed as transaction type is RMA';
1838:
1839: goto exit_from_procedure;
1840:
1841: else
1842:
1843: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
1844: p_receiving_account_id := p_excise_expense_account;
1845:
1846: end if;
1847:
1846: end if;
1847:
1848: elsif p_receiving_account_id is null then
1849:
1850: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
1851: p_process_flag := 'E';
1852: p_process_message := 'Receiving Account is not defined in rcv_parameters for the organization.';
1853: goto exit_from_procedure;
1854:
1859:
1860:
1861: /* Start Validate Accrual Account */
1862:
1863: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
1864: if p_receipt_source_code in ('INTERNAL ORDER','INVENTORY') then /*added INVENTORY for bug #6030615 by vkaranam*/
1865:
1866:
1867: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
1863: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
1864: if p_receipt_source_code in ('INTERNAL ORDER','INVENTORY') then /*added INVENTORY for bug #6030615 by vkaranam*/
1865:
1866:
1867: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
1868: /*6488406*/
1869: if ( ( (p_intransit_type = 2) and (p_fob_point = 1) ) or
1870: (p_trading_to_trading_iso = 'Y' and p_receipt_source_code = 'INTERNAL ORDER' and p_fob_point <> 2) )then /* Bug#4171469 */
1871: /*added condition of p_fob_point <> 2 by mmurtuza for bug 14307860 (In case of fob point as receipt, accrual account should be interorg payables)*/
1869: if ( ( (p_intransit_type = 2) and (p_fob_point = 1) ) or
1870: (p_trading_to_trading_iso = 'Y' and p_receipt_source_code = 'INTERNAL ORDER' and p_fob_point <> 2) )then /* Bug#4171469 */
1871: /*added condition of p_fob_point <> 2 by mmurtuza for bug 14307860 (In case of fob point as receipt, accrual account should be interorg payables)*/
1872:
1873: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
1874: if p_intransit_inv_account is null then
1875:
1876: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
1877: p_process_flag := 'E';
1872:
1873: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
1874: if p_intransit_inv_account is null then
1875:
1876: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
1877: p_process_flag := 'E';
1878: p_process_message := 'Intransit Inventory Account is not defined in mtl_interorg_parameters for ' ||
1879: 'from and to organization of the ISO. ';
1880: goto exit_from_procedure;
1878: p_process_message := 'Intransit Inventory Account is not defined in mtl_interorg_parameters for ' ||
1879: 'from and to organization of the ISO. ';
1880: goto exit_from_procedure;
1881: else
1882: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
1883: p_ap_accrual_account := p_intransit_inv_account;
1884: end if;
1885:
1886: else
1884: end if;
1885:
1886: else
1887:
1888: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath); /* 11 */
1889:
1890: if p_interorg_payables_account is null then
1891: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath); /* 12 */
1892: p_process_flag := 'E';
1887:
1888: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath); /* 11 */
1889:
1890: if p_interorg_payables_account is null then
1891: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath); /* 12 */
1892: p_process_flag := 'E';
1893: p_process_message := 'Inter-org Payables Account is not defined in mtl_interorg_parameters for ' ||
1894: 'from and to organization of the ISO. ';
1895: goto exit_from_procedure;
1893: p_process_message := 'Inter-org Payables Account is not defined in mtl_interorg_parameters for ' ||
1894: 'from and to organization of the ISO. ';
1895: goto exit_from_procedure;
1896: else
1897: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath); /* 13 */
1898: p_ap_accrual_account := p_interorg_payables_account;
1899: end if;
1900:
1901: end if;
1902:
1903: elsif p_receipt_source_code = 'CUSTOMER' then
1904: -- Vijay Shankar for Bug#4346453. RCV DFF Elim. Enh. if p_attribute_category = 'INDIA RMA RECEIPT' then
1905:
1906: p_codepath := jai_general_pkg.plot_codepath(14, p_codepath); /* 14 */
1907:
1908: if p_excise_rcvble_account is null then
1909: p_codepath := jai_general_pkg.plot_codepath(15, p_codepath); /* 15 */
1910: p_process_flag := 'E';
1905:
1906: p_codepath := jai_general_pkg.plot_codepath(14, p_codepath); /* 14 */
1907:
1908: if p_excise_rcvble_account is null then
1909: p_codepath := jai_general_pkg.plot_codepath(15, p_codepath); /* 15 */
1910: p_process_flag := 'E';
1911: p_process_message := 'Excise Receivable Account is not defined in JAI_CMN_INVENTORY_ORGS, ' ||
1912: 'for the organization location or null location, cannot proceed as transaction type is RMA';
1913: goto exit_from_procedure;
1911: p_process_message := 'Excise Receivable Account is not defined in JAI_CMN_INVENTORY_ORGS, ' ||
1912: 'for the organization location or null location, cannot proceed as transaction type is RMA';
1913: goto exit_from_procedure;
1914: else
1915: p_codepath := jai_general_pkg.plot_codepath(16, p_codepath); /* 16 */
1916: p_ap_accrual_account := p_excise_rcvble_account;
1917: end if;
1918:
1919:
1918:
1919:
1920: elsif p_po_accrual_account_id is not null then
1921:
1922: p_codepath := jai_general_pkg.plot_codepath(17, p_codepath); /* 17 */
1923: p_ap_accrual_account := p_po_accrual_account_id;
1924:
1925: elsif p_ap_accrual_account is null then
1926:
1923: p_ap_accrual_account := p_po_accrual_account_id;
1924:
1925: elsif p_ap_accrual_account is null then
1926:
1927: p_codepath := jai_general_pkg.plot_codepath(18, p_codepath); /* 18 */
1928: p_process_flag := 'E';
1929: p_process_message := 'AP Accrual Account is not defined in mtl_parameters for the organization.';
1930: goto exit_from_procedure;
1931:
1935:
1936:
1937: /* Start 'RETURN TO VENDOR' RTV expense account check */
1938:
1939: p_codepath := jai_general_pkg.plot_codepath(19, p_codepath); /* 19 */
1940: if ( (p_transaction_type = 'RETURN TO VENDOR')
1941: or
1942: (p_transaction_type = 'CORRECT' and p_parent_transaction_type = 'RETURN TO VENDOR')
1943: )
1943: )
1944: then
1945:
1946: /* Check if Customs, CVD (BOE) or third party type taxes exist */
1947: p_codepath := jai_general_pkg.plot_codepath(20, p_codepath); /* 20 */
1948:
1949: if ( (p_cvd_taxes <> 0) OR
1950: (p_add_cvd_taxes <> 0) OR /*5228046 Additional cvd Enhancement*/
1951: (p_customs_taxes <> 0) OR
1951: (p_customs_taxes <> 0) OR
1952: (p_third_party_taxes <> 0)
1953: ) then
1954:
1955: p_codepath := jai_general_pkg.plot_codepath(21, p_codepath); /* 21 */
1956:
1957: if p_rtv_expense_account_id is null then
1958: p_codepath := jai_general_pkg.plot_codepath(22, p_codepath); /* 22 */
1959: p_process_flag := 'E';
1954:
1955: p_codepath := jai_general_pkg.plot_codepath(21, p_codepath); /* 21 */
1956:
1957: if p_rtv_expense_account_id is null then
1958: p_codepath := jai_general_pkg.plot_codepath(22, p_codepath); /* 22 */
1959: p_process_flag := 'E';
1960: p_process_message := 'RTV Expense Account is not defined in JAI_CMN_INVENTORY_ORGS, ' ||
1961: 'for the organization location or null location, cannot proceed as transaction type is RTV';
1962: goto exit_from_procedure;
1981: (p_add_cvd_taxes <> 0) OR /*5228046 Additional cvd Enhancement*/
1982: (p_customs_taxes <> 0)
1983: ) then
1984:
1985: p_codepath := jai_general_pkg.plot_codepath(23, p_codepath); /* 23 */
1986:
1987: if p_boe_account_id is null then
1988: p_codepath := jai_general_pkg.plot_codepath(24, p_codepath); /* 24 */
1989: p_process_flag := 'E';
1984:
1985: p_codepath := jai_general_pkg.plot_codepath(23, p_codepath); /* 23 */
1986:
1987: if p_boe_account_id is null then
1988: p_codepath := jai_general_pkg.plot_codepath(24, p_codepath); /* 24 */
1989: p_process_flag := 'E';
1990: p_process_message := 'BOE Account is not defined in JAI_CMN_INVENTORY_ORGS, ' ||
1991: 'for the organization location or null location.';
1992: goto exit_from_procedure;
1997: /* End BOE a/c check */
1998:
1999:
2000: << exit_from_procedure >>
2001: p_codepath := jai_general_pkg.plot_codepath(25, p_codepath, null, 'END'); /* 25 */
2002:
2003: if p_process_flag is null then
2004: p_process_flag := 'Y';
2005: end if;
2016: p_process_flag := 'E';
2017: p_process_message := 'RECEIVE_RTV_PKG.validate_transaction_tax_accnt:'|| sqlerrm;
2018: FND_FILE.put_line( FND_FILE.log, 'Error in '||p_process_message);
2019: Fnd_File.put_line(Fnd_File.LOG, 'Code Path:' || p_codepath );
2020: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END'); /* 24 */
2021: return;
2022:
2023: end validate_transaction_tax_accnt;
2024:
2074: if p_debug = 'Y' then
2075: Fnd_File.put_line(Fnd_File.LOG, ' ** Start of procedure jai_rcv_rcv_rtv_pkg.apply_relieve_boe **');
2076: end if;
2077:
2078: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_rcv_rtv_pkg.apply_relieve_boe', 'START'); /* 1 */
2079:
2080: if not (p_transaction_type = 'CORRECT' and p_parent_transaction_type = 'RECEIVE') then
2081: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
2082: -- ABC
2077:
2078: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_rcv_rtv_pkg.apply_relieve_boe', 'START'); /* 1 */
2079:
2080: if not (p_transaction_type = 'CORRECT' and p_parent_transaction_type = 'RECEIVE') then
2081: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
2082: -- ABC
2083: --p_process_flag := 'Y';
2084: --p_process_message := 'apply_relieve_boe is not required as this is not a case of CORRECT to RECEIVE';
2085: FND_FILE.put_line( FND_FILE.log, 'Apply_relieve_boe is not required as this is not a case of CORRECT to RECEIVE');
2084: --p_process_message := 'apply_relieve_boe is not required as this is not a case of CORRECT to RECEIVE';
2085: FND_FILE.put_line( FND_FILE.log, 'Apply_relieve_boe is not required as this is not a case of CORRECT to RECEIVE');
2086: goto exit_from_procedure;
2087: elsif (p_cvd_taxes + p_add_cvd_taxes + p_customs_taxes) = 0 then /*5228046 Additional cvd Enhancement added p_add_cvd_taxes*/
2088: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
2089: -- ABC
2090: --p_process_flag := 'Y';
2091: --p_process_message := 'apply_relieve_boe is not required as no CVD or Customs type of tax';
2092: FND_FILE.put_line( FND_FILE.log, 'Apply_relieve_boe is not required as no CVD or ADDITIONAL_CVD or Customs type of tax');
2093: goto exit_from_procedure;
2094: end if;
2095:
2096: /* Check if BOE has been applied for the parent transaction */
2097: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
2098: open c_is_boe_applied(p_shipment_line_id, p_parent_transaction_id);
2099: fetch c_is_boe_applied into ln_boe_count;
2100: close c_is_boe_applied;
2101:
2099: fetch c_is_boe_applied into ln_boe_count;
2100: close c_is_boe_applied;
2101:
2102: if nvl(ln_boe_count, 0) = 0 then
2103: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
2104: -- ABC
2105: --p_process_flag := 'Y';
2106: --p_process_message := 'apply_relieve_boe is not required parent transaction has no BOE applied';
2107: FND_FILE.put_line( FND_FILE.log, 'Apply_relieve_boe is not required parent transaction has no BOE applied');
2113:
2114: if p_debug = 'Y' then
2115: Fnd_File.put_line(Fnd_File.LOG, ' Call to -> apply_boe');
2116: end if;
2117: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
2118: apply_boe
2119: (
2120: p_shipment_header_id => p_shipment_header_id,
2121: p_shipment_line_id => p_shipment_line_id,
2149:
2150: if p_debug = 'Y' then
2151: Fnd_File.put_line(Fnd_File.LOG, ' Call to -> relieve_boe');
2152: end if;
2153: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
2154: relieve_boe
2155: (
2156: p_shipment_header_id => p_shipment_header_id,
2157: p_shipment_line_id => p_shipment_line_id,
2184:
2185: /* If apply relieve BOE has been done successfully, update the boe_applied_flag in ja_in_rcv_transaction */
2186: if p_process_flag = 'Y' and nvl(p_simulation , 'Y') <> 'Y' then
2187:
2188: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
2189: update JAI_RCV_TRANSACTIONS
2190: set boe_applied_flag = 'Y'
2191: where transaction_id = p_transaction_id;
2192:
2192:
2193: end if;
2194:
2195: << exit_from_procedure >>
2196: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath, null, 'END'); /* 9 */
2197:
2198: if p_process_flag is null then
2199: p_process_flag := 'Y';
2200: end if;
2206: p_process_flag := 'E';
2207: p_process_message := 'RECEIVE_RTV_PKG.apply_relieve_boe:' || sqlerrm;
2208: FND_FILE.put_line( FND_FILE.log, 'Error in '||p_process_message);
2209: Fnd_File.put_line(Fnd_File.LOG, 'Code Path:' || p_codepath );
2210: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END'); /* 24 */
2211: return;
2212:
2213: end apply_relieve_boe;
2214:
2259: if p_debug = 'Y' then
2260: Fnd_File.put_line(Fnd_File.LOG, ' ** Start of procedure jai_rcv_rcv_rtv_pkg.apply_boe **');
2261: end if;
2262:
2263: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_rcv_rtv_pkg.apply_boe', 'START'); /* 1 */
2264:
2265: ln_bal_boe_amount := p_boe_tax;
2266:
2267: for cur_available_boe in c_ja_in_boe_hdr(p_organization_id, p_inventory_item_id) loop
2265: ln_bal_boe_amount := p_boe_tax;
2266:
2267: for cur_available_boe in c_ja_in_boe_hdr(p_organization_id, p_inventory_item_id) loop
2268:
2269: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
2270:
2271: if ln_bal_boe_amount <= 0 then
2272: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
2273: goto finish_apply;
2268:
2269: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
2270:
2271: if ln_bal_boe_amount <= 0 then
2272: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
2273: goto finish_apply;
2274: end if;
2275:
2276: if cur_available_boe.available_amount <= ln_bal_boe_amount then
2273: goto finish_apply;
2274: end if;
2275:
2276: if cur_available_boe.available_amount <= ln_bal_boe_amount then
2277: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
2278: ln_boe_amount_to_apply := cur_available_boe.available_amount;
2279: else
2280: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
2281: ln_boe_amount_to_apply := ln_bal_boe_amount;
2276: if cur_available_boe.available_amount <= ln_bal_boe_amount then
2277: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
2278: ln_boe_amount_to_apply := cur_available_boe.available_amount;
2279: else
2280: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
2281: ln_boe_amount_to_apply := ln_bal_boe_amount;
2282: end if;
2283:
2284: if nvl(p_simulation , 'Y') <> 'Y' then
2282: end if;
2283:
2284: if nvl(p_simulation , 'Y') <> 'Y' then
2285:
2286: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
2287:
2288: /* Insert a apply record in JAI_CMN_BOE_MATCHINGS */
2289: insert into JAI_CMN_BOE_MATCHINGS
2290: (BOE_MATCHING_ID,
2310: sysdate,
2311: fnd_global.user_id
2312: );
2313:
2314: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
2315: /* update the boe header amount */
2316: update JAI_CMN_BOE_HDRS
2317: set amount_applied = nvl(amount_applied, 0) + ln_boe_amount_to_apply,
2318: last_update_date = sysdate,
2321: where boe_id = cur_available_boe.boe_id;
2322:
2323: ln_bal_boe_amount := ln_bal_boe_amount - ln_boe_amount_to_apply;
2324:
2325: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
2326:
2327: end if;
2328:
2329: /* To indicate second pass of the loop, first means F, statement id need not be incremented in code path*/
2331: end loop;
2332:
2333: << finish_apply >>
2334: if ln_bal_boe_amount > 0 then
2335: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
2336: p_process_flag := 'E';
2337: P_process_message := 'Matching BOE not available for applying the BOE tax, cannot proceed ' ||
2338: '(jai_rcv_rcv_rtv_pkg.apply_boe)';
2339: end if;
2338: '(jai_rcv_rcv_rtv_pkg.apply_boe)';
2339: end if;
2340:
2341: << exit_from_procedure >>
2342: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath, null, 'END'); /* 10 */
2343:
2344: if p_process_flag is null then
2345: p_process_flag := 'Y';
2346: end if;
2357: p_process_flag := 'E';
2358: p_process_message := 'RECEIVE_RTV_PKG.apply_boe:'|| sqlerrm;
2359: FND_FILE.put_line( FND_FILE.log, 'Error in '||p_process_message);
2360: Fnd_File.put_line(Fnd_File.LOG, 'Code Path:' || p_codepath );
2361: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END'); /* 24 */
2362: return;
2363:
2364: end apply_boe;
2365:
2397: if p_debug = 'Y' then
2398: Fnd_File.put_line(Fnd_File.LOG, ' ** Start of procedure jai_rcv_rcv_rtv_pkg.relieve_boe **');
2399: end if;
2400:
2401: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_rcv_rtv_pkg.relieve_boe', 'START'); /* 1 */
2402: ln_bal_boe_amount := p_boe_tax;
2403:
2404: for applied_boe_rec in c_ja_in_rcp_boe(p_shipment_line_id, p_parent_transaction_id) loop
2405:
2402: ln_bal_boe_amount := p_boe_tax;
2403:
2404: for applied_boe_rec in c_ja_in_rcp_boe(p_shipment_line_id, p_parent_transaction_id) loop
2405:
2406: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
2407: if ln_bal_boe_amount = 0 then
2408: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
2409: goto finished_unapply;
2410: end if;
2404: for applied_boe_rec in c_ja_in_rcp_boe(p_shipment_line_id, p_parent_transaction_id) loop
2405:
2406: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
2407: if ln_bal_boe_amount = 0 then
2408: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
2409: goto finished_unapply;
2410: end if;
2411:
2412: if applied_boe_rec.amount <= abs(ln_bal_boe_amount) then
2409: goto finished_unapply;
2410: end if;
2411:
2412: if applied_boe_rec.amount <= abs(ln_bal_boe_amount) then
2413: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
2414: ln_boe_amount_to_unapply := -1 * applied_boe_rec.amount;
2415: else
2416: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
2417: ln_boe_amount_to_unapply := ln_bal_boe_amount;
2412: if applied_boe_rec.amount <= abs(ln_bal_boe_amount) then
2413: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
2414: ln_boe_amount_to_unapply := -1 * applied_boe_rec.amount;
2415: else
2416: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
2417: ln_boe_amount_to_unapply := ln_bal_boe_amount;
2418: end if;
2419:
2420: if nvl(p_simulation , 'Y') <> 'Y' then
2418: end if;
2419:
2420: if nvl(p_simulation , 'Y') <> 'Y' then
2421: /* Insert a unapply record in JAI_CMN_BOE_MATCHINGS */
2422: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
2423: insert into JAI_CMN_BOE_MATCHINGS
2424: (BOE_MATCHING_ID,
2425: transaction_id,
2426: shipment_header_id,
2445: fnd_global.user_id
2446: );
2447:
2448: /* update the boe header amount */
2449: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
2450: update JAI_CMN_BOE_HDRS
2451: set amount_applied = nvl(amount_applied, 0) + ln_boe_amount_to_unapply,
2452: last_update_date = sysdate,
2453: last_updated_by = fnd_global.user_id,
2455: where boe_id = applied_boe_rec.boe_id;
2456:
2457: end if; /* p_simulation = 'Y' */
2458:
2459: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
2460: ln_bal_boe_amount := ln_bal_boe_amount - ln_boe_amount_to_unapply;
2461:
2462:
2463: end loop;
2465: << finished_unapply >>
2466: p_process_flag := 'Y';
2467:
2468: << exit_from_procedure >>
2469: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath, null, 'END'); /* 9 */
2470:
2471: if p_process_flag is null then
2472: p_process_flag := 'Y';
2473: end if;
2484: p_process_flag := 'E';
2485: p_process_message := 'RECEIVE_RTV_PKG.relieve_boe:' || sqlerrm;
2486: FND_FILE.put_line( FND_FILE.log, 'Error in '||p_process_message);
2487: Fnd_File.put_line(Fnd_File.LOG, 'Code Path:' || p_codepath );
2488: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END'); /* 24 */
2489: return;
2490:
2491: end relieve_boe;
2492:
2697: if p_debug = 'Y' then
2698: Fnd_File.put_line(Fnd_File.LOG, ' ** Start of procedure jai_rcv_rcv_rtv_pkg.post_entries **');
2699: end if;
2700:
2701: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_rcv_rtv_pkg.post_entries', 'START'); /* 1 */
2702: /* Set varaiable values for accounting entries with GL link */
2703: if ( (p_transaction_type = 'RETURN TO VENDOR')
2704: or
2705: (p_transaction_type = 'CORRECT' and p_parent_transaction_type = 'RETURN TO VENDOR')
2704: or
2705: (p_transaction_type = 'CORRECT' and p_parent_transaction_type = 'RETURN TO VENDOR')
2706: )
2707: then
2708: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
2709: lv_acct_type := 'REVERSAL';
2710: else
2711: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
2712: lv_acct_type := 'REGULAR';
2707: then
2708: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
2709: lv_acct_type := 'REVERSAL';
2710: else
2711: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
2712: lv_acct_type := 'REGULAR';
2713: end if;
2714:
2715: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
2711: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
2712: lv_acct_type := 'REGULAR';
2713: end if;
2714:
2715: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
2716: lv_reference_10 := 'India Local Receiving Entry for the Receipt Number ' || p_receipt_num ||
2717: ' for the Transaction Type ' || p_transaction_type ;
2718:
2719: if p_transaction_type = 'CORRECT' then
2728: ln_debit := null;
2729: Fnd_File.put_line(Fnd_File.LOG, ' p_receiving_account_id :' || p_receiving_account_id );
2730: if p_receiving_account_id is not null then
2731:
2732: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
2733:
2734: if ( (p_transaction_type = 'RETURN TO VENDOR')
2735: or
2736: (p_transaction_type = 'CORRECT' and p_parent_transaction_type = 'RETURN TO VENDOR')
2736: (p_transaction_type = 'CORRECT' and p_parent_transaction_type = 'RETURN TO VENDOR')
2737: )
2738: then
2739:
2740: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
2741: ln_debit := null;
2742: ln_credit :=
2743: p_all_taxes -
2744: (p_tds_taxes + p_modvat_recovery_taxes + p_service_recoverable + p_vat_recoverable); /* Service */
2757: (p_transaction_type = 'CORRECT' and p_parent_transaction_type = 'RECEIVE')
2758: )
2759: then
2760:
2761: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
2762: ln_debit := p_cvd_taxes +
2763: p_add_cvd_taxes + /*5228046 Additional cvd Enhancement*/
2764: p_excise_tax +
2765: p_cvd_edu_cess +
2769: ln_credit := null;
2770:
2771: else
2772:
2773: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
2774:
2775: ln_debit :=
2776: p_all_taxes -
2777: (p_tds_taxes + p_modvat_recovery_taxes + p_service_recoverable + p_vat_recoverable);
2794: /*Bug 14185068 - End*/
2795:
2796: end if;
2797:
2798: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
2799: Fnd_File.put_line(Fnd_File.LOG, ' ln_debit :' || ln_debit );
2800: Fnd_File.put_line(Fnd_File.LOG, ' ln_credit :' || ln_credit );
2801: if ( nvl(ln_debit, 0) <> 0 or nvl(ln_credit, 0) <> 0 ) then
2802: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
2798: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
2799: Fnd_File.put_line(Fnd_File.LOG, ' ln_debit :' || ln_debit );
2800: Fnd_File.put_line(Fnd_File.LOG, ' ln_credit :' || ln_credit );
2801: if ( nvl(ln_debit, 0) <> 0 or nvl(ln_credit, 0) <> 0 ) then
2802: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
2803: /* procedure to populate gl inetrface, JAI_RCV_JOURNAL_ENTRIES and receiving subledger */
2804: Fnd_File.put_line(Fnd_File.LOG, 'Acc for inventory Receiving Account ' );
2805:
2806: ptr_jv(1).line_num := 1;
2831: end if; /* Accounting Entry # 1. Receiving Account Id */
2832:
2833:
2834: /* Accounting Entry # 2 : AP Accrual Account Id. Non mandatory entry values may be 0*/
2835: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath); /* 12 */
2836:
2837: ln_credit := null;
2838: ln_debit := null;
2839: Fnd_File.put_line(Fnd_File.LOG, 'p_ap_accrual_account:'||p_ap_accrual_account );
2844: (p_transaction_type = 'CORRECT' and p_parent_transaction_type = 'RETURN TO VENDOR')
2845: )
2846: then
2847:
2848: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath); /* 13 */
2849: ln_debit := p_all_taxes -
2850: ( p_tds_taxes +
2851: p_modvat_recovery_taxes +
2852: p_cvd_taxes +
2872: ln_credit := null;
2873:
2874: if not p_account_service_interim then
2875: /* Separate Accounting for recoverable service tax not required */
2876: p_codepath := jai_general_pkg.plot_codepath(13.1, p_codepath); /* 13.1 */
2877: ln_debit := ln_debit - p_service_recoverable;
2878: end if;
2879:
2880:
2880:
2881: elsif p_receipt_source_code = 'CUSTOMER' then
2882: -- Vijay Shankar for Bug#4346453. RCV DFF Elim. Enh. if p_attribute_category = 'INDIA RMA RECEIPT' then
2883:
2884: p_codepath := jai_general_pkg.plot_codepath(14, p_codepath); /* 14 */
2885: ln_debit := null;
2886: 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_sh_edu_cess /*Bug 5989740 bduvarag*/;
2887: /* Replaced p_excise_edu_cess with p_excise_sh_edu_cess for bug# 8691046 */
2888:
2887: /* Replaced p_excise_edu_cess with p_excise_sh_edu_cess for bug# 8691046 */
2888:
2889: else
2890:
2891: p_codepath := jai_general_pkg.plot_codepath(15, p_codepath); /* 15 */
2892: ln_debit := null;
2893: ln_credit := p_all_taxes -
2894: ( p_tds_taxes + p_modvat_recovery_taxes +
2895: p_cvd_taxes + p_add_cvd_taxes /*5228046 Additional cvd Enhancement*/ +
2911: p_customs_sh_edu_cess );
2912:
2913: if not p_account_service_interim then
2914: /* Separate Accounting for recoverable service tax not required */
2915: p_codepath := jai_general_pkg.plot_codepath(15.1, p_codepath); /* 15.1 */
2916: ln_credit := ln_credit - p_service_recoverable;
2917: --start additions by vkaranam for bug#11935696
2918: if nvl(p_inclu_service_recoverable,0) <>0
2919: then
2926: end if;
2927:
2928: Fnd_File.put_line(Fnd_File.LOG, 'ln_debit:'||ln_debit );
2929: Fnd_File.put_line(Fnd_File.LOG, 'ln_credit:'||ln_credit );
2930: p_codepath := jai_general_pkg.plot_codepath(16, p_codepath); /* 16 */
2931: if ( nvl(ln_debit, 0) <> 0 or nvl(ln_credit, 0) <> 0 ) then
2932: p_codepath := jai_general_pkg.plot_codepath(17, p_codepath); /* 17 */
2933:
2934: Fnd_File.put_line(Fnd_File.LOG, 'Accounting for interorg payables Acc' );
2928: Fnd_File.put_line(Fnd_File.LOG, 'ln_debit:'||ln_debit );
2929: Fnd_File.put_line(Fnd_File.LOG, 'ln_credit:'||ln_credit );
2930: p_codepath := jai_general_pkg.plot_codepath(16, p_codepath); /* 16 */
2931: if ( nvl(ln_debit, 0) <> 0 or nvl(ln_credit, 0) <> 0 ) then
2932: p_codepath := jai_general_pkg.plot_codepath(17, p_codepath); /* 17 */
2933:
2934: Fnd_File.put_line(Fnd_File.LOG, 'Accounting for interorg payables Acc' );
2935: /*
2936: IF p_receipt_source_code = 'INVENTORY' THEN 6488406
2964: ptr_jv(2).account_name := gv_ap_accrual;/*6488406*/
2965: ptr_jv(2).summary_jv_flag := 'Y';
2966: /*Bug 5527885 End*/
2967: /* Inserting into JAI_RCV_REP_ACCRUAL_T if no record is already inserted */
2968: p_codepath := jai_general_pkg.plot_codepath(18, p_codepath); /* 18 */
2969: open c_ja_in_temp_po_accrual(p_transaction_id);
2970: fetch c_ja_in_temp_po_accrual into ln_ja_in_temp_po_accrual;
2971: close c_ja_in_temp_po_accrual;
2972:
2970: fetch c_ja_in_temp_po_accrual into ln_ja_in_temp_po_accrual;
2971: close c_ja_in_temp_po_accrual;
2972:
2973: if nvl(ln_ja_in_temp_po_accrual, 0) = 0 then
2974: p_codepath := jai_general_pkg.plot_codepath(19, p_codepath); /* 19 */
2975: insert into JAI_RCV_REP_ACCRUAL_T
2976: (
2977: transaction_id,
2978: accrual_amount,
3001: end if; /* p_ap_accrual_account */
3002:
3003:
3004: /* Accounting Entry # 3 : BOE Accounting Entry. Non mandatory entry */
3005: p_codepath := jai_general_pkg.plot_codepath(21, p_codepath); /* 21 */
3006:
3007: ln_credit := null;
3008: ln_debit := null;
3009:
3012: (p_transaction_type = 'CORRECT' and p_parent_transaction_type = 'RECEIVE')
3013: )
3014: then
3015:
3016: p_codepath := jai_general_pkg.plot_codepath(22, p_codepath); /* 22 */
3017: --Comments by zhiwei for BOE ER bug 11684111 begin
3018: /*
3019: if (p_cvd_taxes + p_add_cvd_taxes \*5228046 Additional cvd Enhancement*\
3020: + p_customs_taxes
3021: + p_cvd_edu_cess
3022: + p_cvd_sh_edu_cess \*Bug 5989740 bduvarag*\
3023: + p_customs_edu_cess
3024: +p_customs_sh_edu_cess) <> 0 THEN
3025: p_codepath := jai_general_pkg.plot_codepath(23, p_codepath); \* 23 *\
3026: ln_debit := null;
3027: ln_credit := (p_cvd_taxes + p_add_cvd_taxes \*5228046 Additional cvd Enhancement*\
3028: + p_customs_taxes
3029: + p_cvd_edu_cess
3067:
3068:
3069:
3070: if p_cvd_taxes > 0 then
3071: p_codepath := jai_general_pkg.plot_codepath(23.01, p_codepath); /* 23.01 */
3072: ln_debit := null;
3073: ln_credit := p_cvd_taxes;
3074: ln_boe_account_id := jai_boe_general_pkg.get_boe_accounting(
3075: pv_tax_type_code =>jai_constants.tax_type_cvd
3104: ptr_jv(7).summary_jv_flag := 'N';
3105: end if;
3106:
3107: if p_add_cvd_taxes > 0 then
3108: p_codepath := jai_general_pkg.plot_codepath(23.02, p_codepath); /* 23.02 */
3109: ln_debit := null;
3110: ln_credit := p_add_cvd_taxes;
3111: ln_boe_account_id := jai_boe_general_pkg.get_boe_accounting(
3112: pv_tax_type_code =>jai_constants.tax_type_add_cvd
3140: ptr_jv(8).account_name := gv_boe;
3141: ptr_jv(8).summary_jv_flag := 'N';
3142: end if;
3143: if p_customs_taxes > 0 then
3144: p_codepath := jai_general_pkg.plot_codepath(23.03, p_codepath); /* 23.03 */
3145: ln_debit := null;
3146: ln_credit := p_customs_taxes;
3147: ln_boe_account_id := jai_boe_general_pkg.get_boe_accounting(
3148: pv_tax_type_code =>jai_constants.tax_type_customs
3178: ptr_jv(9).account_name := gv_boe;
3179: ptr_jv(9).summary_jv_flag := 'N';
3180: end if;
3181: if p_cvd_edu_cess > 0 then
3182: p_codepath := jai_general_pkg.plot_codepath(23.04, p_codepath); /* 23.04 */
3183: ln_debit := null;
3184: ln_credit := p_cvd_edu_cess;
3185: ln_boe_account_id := jai_boe_general_pkg.get_boe_accounting(
3186: pv_tax_type_code =>jai_constants.tax_type_cvd_edu_cess
3216: ptr_jv(10).summary_jv_flag := 'N';
3217: end if;
3218:
3219: if p_cvd_sh_edu_cess > 0 then
3220: p_codepath := jai_general_pkg.plot_codepath(23.05, p_codepath); /* 23.05 */
3221: ln_debit := null;
3222: ln_credit := p_cvd_sh_edu_cess;
3223: ln_boe_account_id := jai_boe_general_pkg.get_boe_accounting(
3224: pv_tax_type_code =>jai_constants.tax_type_sh_cvd_edu_cess
3255: ptr_jv(11).account_name := gv_boe;
3256: ptr_jv(11).summary_jv_flag := 'N';
3257: end if;
3258: if p_customs_edu_cess > 0 then
3259: p_codepath := jai_general_pkg.plot_codepath(23.06, p_codepath); /* 23.06 */
3260: ln_debit := null;
3261: ln_credit := p_customs_edu_cess;
3262: ln_boe_account_id := jai_boe_general_pkg.get_boe_accounting(
3263: pv_tax_type_code =>jai_constants.tax_type_customs_edu_cess
3291: ptr_jv(12).account_name := gv_boe;
3292: ptr_jv(12).summary_jv_flag := 'N';
3293: end if;
3294: if p_customs_sh_edu_cess > 0 then
3295: p_codepath := jai_general_pkg.plot_codepath(23.07, p_codepath); /* 23.07 */
3296: ln_debit := null;
3297: ln_credit := p_customs_sh_edu_cess;
3298: ln_boe_account_id := jai_boe_general_pkg.get_boe_accounting(
3299: pv_tax_type_code =>jai_constants.tax_type_sh_customs_edu_Cess
3328: ptr_jv(13).account_name := gv_boe;
3329: ptr_jv(13).summary_jv_flag := 'N';
3330: end if;
3331: if p_boe_other1 > 0 then
3332: p_codepath := jai_general_pkg.plot_codepath(23.08, p_codepath); /* 23.08 */
3333: ln_debit := null;
3334: ln_credit := p_boe_other1;
3335: ln_boe_account_id := jai_boe_general_pkg.get_boe_accounting(
3336: pv_tax_type_code =>jai_constants.tax_type_boe_other1
3366: ptr_jv(14).summary_jv_flag := 'N';
3367: end if;
3368:
3369: if p_boe_other2 > 0 then
3370: p_codepath := jai_general_pkg.plot_codepath(23.09, p_codepath); /* 23.09 */
3371: ln_debit := null;
3372: ln_credit := p_boe_other2;
3373: ln_boe_account_id := jai_boe_general_pkg.get_boe_accounting(pv_tax_type_code =>jai_constants.tax_type_boe_other2
3374: ,pv_account_type =>'PAID_PAYABLES'
3402: ptr_jv(15).summary_jv_flag := 'N';
3403: end if;
3404:
3405: if p_boe_other3 > 0 then
3406: p_codepath := jai_general_pkg.plot_codepath(23.10, p_codepath); /* 23.10 */
3407: ln_debit := null;
3408: ln_credit := p_boe_other3;
3409: ln_boe_account_id := jai_boe_general_pkg.get_boe_accounting(
3410: pv_tax_type_code =>jai_constants.tax_type_boe_other3
3439: ptr_jv(16).summary_jv_flag := 'N';
3440: end if;
3441:
3442: if p_boe_other4 > 0 then
3443: p_codepath := jai_general_pkg.plot_codepath(23.11, p_codepath); /* 23.11 */
3444: ln_debit := null;
3445: ln_credit := p_boe_other4;
3446: ln_boe_account_id := jai_boe_general_pkg.get_boe_accounting(
3447: pv_tax_type_code =>jai_constants.tax_type_boe_other4
3476: ptr_jv(17).summary_jv_flag := 'N';
3477: end if;
3478:
3479: if p_boe_other5 > 0 then
3480: p_codepath := jai_general_pkg.plot_codepath(23.12, p_codepath); /* 23.12 */
3481: ln_debit := null;
3482: ln_credit := p_boe_other5;
3483: ln_boe_account_id := jai_boe_general_pkg.get_boe_accounting(
3484: pv_tax_type_code =>jai_constants.tax_type_boe_other5
3514: ptr_jv(18).summary_jv_flag := 'N';
3515: end if;
3516:
3517: if p_boe_surcharge_duty > 0 then
3518: p_codepath := jai_general_pkg.plot_codepath(23.13, p_codepath); /* 23.13 */
3519: ln_debit := null;
3520: ln_credit := p_boe_surcharge_duty;
3521: ln_boe_account_id := jai_boe_general_pkg.get_boe_accounting(
3522: pv_tax_type_code =>jai_constants.tax_type_boe_surcharge_duty
3552: end if;
3553:
3554:
3555: if p_boe_add_customs > 0 then
3556: p_codepath := jai_general_pkg.plot_codepath(23.14, p_codepath); /* 23.14 */
3557: ln_debit := null;
3558: ln_credit := p_boe_add_customs;
3559: ln_boe_account_id := jai_boe_general_pkg.get_boe_accounting(
3560: pv_tax_type_code =>jai_constants.tax_type_boe_add_customs
3595:
3596:
3597:
3598: /* Accounting Entry # 4 : RTV expense Accounting Entry, non mandatory entry */
3599: p_codepath := jai_general_pkg.plot_codepath(24, p_codepath); /* 24 */
3600:
3601: ln_credit := null;
3602: ln_debit := null;
3603:
3606: (p_transaction_type = 'CORRECT' and p_parent_transaction_type = 'RETURN TO VENDOR')
3607: )
3608: then
3609:
3610: p_codepath := jai_general_pkg.plot_codepath(25, p_codepath); /* 25 */
3611: IF ( p_cvd_taxes +
3612: p_add_cvd_taxes + /*5228046 Additional cvd Enhancement*/
3613: p_customs_taxes +
3614: p_cvd_edu_cess +
3618: p_third_party_taxes
3619: ) <> 0 THEN
3620:
3621:
3622: p_codepath := jai_general_pkg.plot_codepath(26, p_codepath); /* 26 */
3623: ln_debit := ( p_cvd_taxes + p_add_cvd_taxes /*5228046 Additional cvd Enhancement*/ +
3624: p_customs_taxes + p_cvd_edu_cess +
3625: p_cvd_sh_edu_cess /*Bug 5989740 bduvarag*/
3626: +p_customs_edu_cess + p_customs_sh_edu_cess + p_third_party_taxes
3655:
3656: end if; /* RTV Expense Accounting Entry */
3657:
3658:
3659: p_codepath := jai_general_pkg.plot_codepath(27, p_codepath); /* 27 */
3660: ln_credit := null;
3661: ln_debit := null;
3662:
3663: Fnd_File.put_line(Fnd_File.LOG, ' p_trading_to_trading_iso :' || p_trading_to_trading_iso );
3665: --bug 6030615 added inventory
3666: if p_receipt_source_code IN ('INTERNAL ORDER', 'INVENTORY')-- and p_trading_to_trading_iso = 'N'
3667: then /* Bug#4171469 */
3668:
3669: p_codepath := jai_general_pkg.plot_codepath(28, p_codepath); /* 28 */
3670: Fnd_File.put_line(Fnd_File.LOG, 'p_intransit_type:'||p_intransit_type );
3671: Fnd_File.put_line(Fnd_File.LOG, 'p_fob_point:'||p_fob_point );
3672: if ( (p_intransit_type = 2) and (p_fob_point = 2) ) then
3673: /* 2 extra accounting entries need to be passed */
3671: Fnd_File.put_line(Fnd_File.LOG, 'p_fob_point:'||p_fob_point );
3672: if ( (p_intransit_type = 2) and (p_fob_point = 2) ) then
3673: /* 2 extra accounting entries need to be passed */
3674:
3675: p_codepath := jai_general_pkg.plot_codepath(29, p_codepath); /* 29 */
3676: IF p_all_taxes -
3677: ( p_tds_taxes + p_modvat_recovery_taxes +
3678: p_cvd_taxes + p_add_cvd_taxes /*5228046 Additional cvd Enhancement*/ +
3679: p_customs_taxes + p_cvd_edu_cess +p_cvd_sh_edu_cess /*Bug 5989740 bduvarag*/
3680: + p_customs_edu_cess
3681: +p_customs_sh_edu_cess) <> 0
3682: THEN
3683:
3684: p_codepath := jai_general_pkg.plot_codepath(30, p_codepath); /* 30 */
3685: /* Accounting Entry # 5 : Debit InterOrg Receivable */
3686:
3687: ln_debit := p_all_taxes -
3688: ( p_tds_taxes + p_modvat_recovery_taxes + p_cvd_taxes + p_add_cvd_taxes /*5228046 Additional cvd Enhancement*/ + p_customs_taxes +
3720: ptr_jv(5).summary_jv_flag := 'N';
3721:
3722: /* Accounting Entry # 6 : Credit in-transit inventory */
3723:
3724: p_codepath := jai_general_pkg.plot_codepath(31, p_codepath); /* 31 */
3725: ln_credit := ln_debit;
3726: ln_debit := null;
3727:
3728: Fnd_File.put_line(Fnd_File.LOG, 'ln_credit:'||ln_credit );
3760: end if; /* p_receipt_source_code = 'INTERNAL ORDER' */
3761:
3762:
3763: << exit_from_procedure >>
3764: p_codepath := jai_general_pkg.plot_codepath(32, p_codepath, null, 'END'); /* 32 */
3765:
3766: if p_process_flag is null then
3767: p_process_flag := 'Y';
3768: end if;
3778: when others then
3779: p_process_flag := 'E';
3780: p_process_message := 'RECEIVE_RTV_PKG.post_entries:' || sqlerrm;
3781: FND_FILE.put_line( FND_FILE.log, 'Error in '||p_process_message);
3782: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END');
3783: Fnd_File.put_line(Fnd_File.LOG, 'Code Path:' || p_codepath );
3784: return;
3785:
3786: end post_entries;
3934: if p_debug = 'Y' then
3935: Fnd_File.put_line(Fnd_File.LOG, ' ** Start of procedure jai_rcv_rcv_rtv_pkg.regime_tax_accounting_interim **');
3936: end if;
3937:
3938: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_rcv_rcv_rtv_pkg.regime_tax_accounting_interim', 'START'); /* 1 */
3939: /* Set varaiable values for accounting entries with GL link */
3940: if ( (p_transaction_type = 'RETURN TO VENDOR')
3941: or
3942: (p_transaction_type = 'CORRECT' and p_parent_transaction_type = 'RETURN TO VENDOR')
3941: or
3942: (p_transaction_type = 'CORRECT' and p_parent_transaction_type = 'RETURN TO VENDOR')
3943: )
3944: then
3945: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
3946: lv_acct_type := 'REVERSAL';
3947: else
3948: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
3949: lv_acct_type := 'REGULAR';
3944: then
3945: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
3946: lv_acct_type := 'REVERSAL';
3947: else
3948: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
3949: lv_acct_type := 'REGULAR';
3950: end if;
3951:
3952: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
3948: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
3949: lv_acct_type := 'REGULAR';
3950: end if;
3951:
3952: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
3953: lv_reference_10 := p_regime_code||' Regime. India Local Receiving Entry for Receipt Number ' || p_receipt_num ||
3954: ', for Transaction Type ' || p_transaction_type ;
3955:
3956: if p_transaction_type = 'CORRECT' then
3953: lv_reference_10 := p_regime_code||' Regime. India Local Receiving Entry for Receipt Number ' || p_receipt_num ||
3954: ', for Transaction Type ' || p_transaction_type ;
3955:
3956: if p_transaction_type = 'CORRECT' then
3957: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
3958: lv_reference_10 := lv_reference_10 || ' of type ' || p_parent_transaction_type;
3959: end if;
3960:
3961: lv_reference_26 := to_char(p_transaction_id);
3967: close c_jai_regimes;
3968:
3969: if p_regime_code = jai_constants.service_regime then
3970:
3971: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
3972: Fnd_File.put_line(Fnd_File.LOG, 'In Service Regime ');
3973: lv_organization_type := jai_constants.orgn_type_io;
3974: ln_organization_id := p_organization_id;
3975: ln_location_id := p_location_id;
3978: 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);
3979:
3980: elsif p_regime_code = jai_constants.vat_regime then
3981:
3982: p_codepath := jai_general_pkg.plot_codepath(6.1, p_codepath); /* 6.1 */
3983: lv_organization_type := jai_constants.orgn_type_io;
3984: ln_organization_id := p_organization_id;
3985: ln_location_id := p_location_id;
3986: l_jv_line_num_generator := 41;/*Bug 5527885*/
3986: l_jv_line_num_generator := 41;/*Bug 5527885*/
3987: end if;
3988: /* Loop through Taxes of Service/VAT Regime by interim service/vat account
3989: of tax type and pass the accounting entries */
3990: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
3991:
3992: for cur_rec in
3993: c_ja_in_tax_amt_by_account
3994: (
4005: loop
4006: ln_regime_recovery_interim := cur_rec.interim_regime_account;
4007:
4008: if ln_regime_recovery_interim is null then
4009: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
4010: p_process_flag := 'E';
4011: p_process_message :=
4012: 'RECEIVE_RTV_PKG.service_tax_accounting: Interim Service/vat tax recovery account not defined for some tax type';
4013: goto exit_from_procedure;
4018: (p_transaction_type = 'CORRECT' and p_parent_transaction_type = 'RETURN TO VENDOR')
4019: )
4020: then
4021:
4022: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
4023: ln_debit := null;
4024: ln_credit := cur_rec.tax_amount_by_account; /* Service/Vat */
4025:
4026: else
4024: ln_credit := cur_rec.tax_amount_by_account; /* Service/Vat */
4025:
4026: else
4027:
4028: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
4029: ln_debit := cur_rec.tax_amount_by_account;
4030: ln_credit := null;
4031:
4032: end if;
4030: ln_credit := null;
4031:
4032: end if;
4033:
4034: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath); /* 11 */
4035:
4036: --if (ln_debit is not null or ln_credit is not null) then
4037: --commented the above and added the below by Ramananda for Bug#4514461
4038: if (NVL(ln_debit,0) <> 0 OR NVL(ln_credit,0) <> 0) then
4035:
4036: --if (ln_debit is not null or ln_credit is not null) then
4037: --commented the above and added the below by Ramananda for Bug#4514461
4038: if (NVL(ln_debit,0) <> 0 OR NVL(ln_credit,0) <> 0) then
4039: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath); /* 12 */
4040: /* procedure to populate gl inetrface, JAI_RCV_JOURNAL_ENTRIES and receiving subledger */
4041: /*Bug 5527885 Start*/
4042: /*
4043: if p_debug = 'Y' then
4106: end loop;
4107:
4108:
4109: << exit_from_procedure >>
4110: p_codepath := jai_general_pkg.plot_codepath(32, p_codepath, null, 'END'); /* 32 */
4111:
4112: if p_process_flag is null then
4113: p_process_flag := 'Y';
4114: end if;
4124: when others then
4125: p_process_flag := 'E';
4126: p_process_message := 'RECEIVE_RTV_PKG.regime_tax_accounting_interim:' || sqlerrm;
4127: FND_FILE.put_line( FND_FILE.log, 'Error in '||p_process_message);
4128: p_codepath := jai_general_pkg.plot_codepath(999, p_codepath, null, 'END');
4129: Fnd_File.put_line(Fnd_File.LOG, 'Code Path:' || p_codepath );
4130: return;
4131:
4132: end regime_tax_accounting_interim;