[Home] [Help]
1236: l_api_name CONSTANT VARCHAR2(50) := 'status_update_chk_validate()';
1237:
1238: begin
1239: jai_cmn_utils_pkg.WRITE_FND_LOG(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_api_name||'.BEGIN', G_PKG_NAME || ': '||l_api_name||'()+');
1240: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_ap_tds_generation_pkg.status_update_chk_validate', 'START'); /* 1 */
1241:
1242: get_org_id(p_invoice_id, lp_org_id);
1243: l_po_encum_flag := 'N';
1244: if lp_org_id is NOT NULL THEN
1268:
1269: fnd_file.put_line(FND_FILE.LOG, ' Value of validated A cnt '|| ln_validated_a_cnt);
1270: fnd_file.put_line(FND_FILE.LOG, ' Value of validated T cnt '|| ln_validated_t_cnt);
1271:
1272: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
1273:
1274: if ln_total_count = (ln_validated_a_cnt + ln_validated_t_cnt) then
1275: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
1276:
1271:
1272: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
1273:
1274: if ln_total_count = (ln_validated_a_cnt + ln_validated_t_cnt) then
1275: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
1276:
1277: p_is_invoice_validated := 'Y';
1278: else
1279: p_is_invoice_validated := 'N';
1276:
1277: p_is_invoice_validated := 'Y';
1278: else
1279: p_is_invoice_validated := 'N';
1280: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
1281: end if;
1282:
1283: if l_po_encum_flag = 'Y' and ln_validated_t_cnt > 0 then
1284: p_is_invoice_validated := 'N';
1281: end if;
1282:
1283: if l_po_encum_flag = 'Y' and ln_validated_t_cnt > 0 then
1284: p_is_invoice_validated := 'N';
1285: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
1286: end if;
1287:
1288: if p_match_status_flag is not null then
1289: /* Scenarios other than holds release */
1292: close c_ap_holds_all;
1293:
1294: if nvl(ln_no_of_holds, 0) > 0 then
1295: p_is_invoice_validated := 'N';
1296: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
1297: end if;
1298:
1299: end if;
1300:
1301: fnd_file.put_line(FND_FILE.LOG, 'Status_update_chk_validate - Status of parent invoice '|| p_is_invoice_validated);
1302: jai_cmn_utils_pkg.WRITE_FND_LOG(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_api_name, 'Status_update_chk_validate - Status of parent invoice '|| p_is_invoice_validated);
1303:
1304: << exit_from_procedure >>
1305: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath, null, 'END'); /* 7 */
1306: jai_cmn_utils_pkg.WRITE_FND_LOG(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_api_name||'.END', G_PKG_NAME || ': '||l_api_name||'()-');
1307: return;
1308:
1309: exception
1789:
1790: begin
1791:
1792: jai_cmn_utils_pkg.WRITE_FND_LOG(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_api_name||'.BEGIN', G_PKG_NAME || ': '||l_api_name||'()+');
1793: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_ap_dtc_generation_pkg.maintain_thhold_grps', 'START'); /* 1 */
1794:
1795:
1796: /* Validate the input */
1797: ln_threshold_grp_id := nvl(p_threshold_grp_id, 0);
1798:
1799:
1800: if ln_threshold_grp_id = 0 then
1801:
1802: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /*2*/
1803:
1804: if p_vendor_id is null then
1805: p_process_flag := 'E';
1806: P_process_message := 'Vendor must be specified as threshold group identifier is null(jai_ap_tds_generation_pkg.maintain_thhold_grps) ';
1838: end if;
1839:
1840: end if; /* Validate the input */
1841:
1842: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /*3*/
1843:
1844: if ln_threshold_grp_id = 0 then
1845:
1846: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
1842: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /*3*/
1843:
1844: if ln_threshold_grp_id = 0 then
1845:
1846: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
1847: /* Threshold has not been given as an input, check if exists */
1848:
1849: /*open c_get_threshold_grp_id
1850: (p_vendor_id, p_org_tan_num, p_vendor_pan_num, p_section_type, p_section_code, p_fin_year);
1860: --Added by Zhiwei Hou for Bug#13359892 on 20111224 end
1861:
1862: if nvl(ln_threshold_grp_id, 0) = 0 then
1863:
1864: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
1865:
1866: insert into jai_ap_tds_thhold_grps
1867: (
1868: threshold_grp_id ,
1902: end if; /* ln_threshold_grp_id does not exist */
1903:
1904: p_threshold_grp_id := ln_threshold_grp_id;--Added By Zhiwei Hou for DTC bug#13767951 on 20120305
1905:
1906: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
1907:
1908: end if; /* ln_threshold_grp_id is not given as an input */
1909:
1910:
1908: end if; /* ln_threshold_grp_id is not given as an input */
1909:
1910:
1911: /* Get the old value of teh threshold group */
1912: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
1913:
1914: open c_jai_ap_tds_thhold_grps(ln_threshold_grp_id);
1915: fetch c_jai_ap_tds_thhold_grps into r_jai_ap_tds_thhold_grps;
1916: close c_jai_ap_tds_thhold_grps;
1966: END IF;
1967:
1968: -- End if ;
1969:
1970: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
1971: update jai_ap_tds_thhold_grps
1972: set
1973: total_invoice_amount = nvl(total_invoice_amount, 0) + nvl(p_trx_invoice_amount, 0),
1974: total_invoice_cancel_amount = nvl(total_invoice_cancel_amount, 0) + nvl(p_trx_invoice_cancel_amount, 0),
2001: /*Bug 5751783*/
2002: ln_calc_new_tax_paid := r_jai_ap_tds_thhold_grps.total_calc_tax_paid;
2003:
2004: /* Insert into the audite table */
2005: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
2006: insert into jai_ap_tds_thgrp_audits
2007: (
2008: threshold_grp_audit_id ,
2009: threshold_grp_id ,
2084: ln_calc_new_tax_paid
2085: )
2086: returning threshold_grp_audit_id into p_threshold_grp_audit_id;
2087:
2088: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
2089: <
2090:
2091: p_codepath := jai_general_pkg.plot_codepath(100, p_codepath, null, 'END'); /* 1 */
2092: jai_cmn_utils_pkg.WRITE_FND_LOG(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_api_name||'.END', G_PKG_NAME || ': '||l_api_name||'()-');
2087:
2088: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
2089: <
2090:
2091: p_codepath := jai_general_pkg.plot_codepath(100, p_codepath, null, 'END'); /* 1 */
2092: jai_cmn_utils_pkg.WRITE_FND_LOG(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_api_name||'.END', G_PKG_NAME || ': '||l_api_name||'()-');
2093:
2094: return;
2095:
3230: jai_cmn_utils_pkg.WRITE_FND_LOG(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_api_name||'.Parameters', 'p_set_of_books_id: '||p_set_of_books_id);
3231: jai_cmn_utils_pkg.WRITE_FND_LOG(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_api_name||'.Parameters', 'p_org_id: '||p_org_id);
3232: jai_cmn_utils_pkg.WRITE_FND_LOG(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_api_name||'.Parameters', 'p_call_from: '|| p_call_from);
3233: jai_cmn_utils_pkg.WRITE_FND_LOG(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_api_name||'.Parameters', 'p_creation_date: ' || p_creation_date);
3234: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_ap_dtc_generation_pkg.process_dtc_at_inv_validate', 'START'); /* 1 */
3235:
3236: --Added by Chong for Bug#13802244 2012/09/17 Start
3237: ---------------------------------------------------------------------------------
3238: IF p_call_from = G_CALL_FROM_ROLLBACK THEN
3259:
3260: --fnd_file.put_line(FND_FILE.LOG, '1. Check for tax count'|| ln_count);
3261:
3262: /*if nvl(ln_count, 0) = 0 then
3263: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); \* 2 *\
3264: fnd_file.put_line(FND_FILE.LOG, '2. TDS tax is not applicable');
3265: p_process_flag := 'X';
3266: p_process_message := ' TDS tax is not applicable';
3267: goto exit_from_procedure;
3266: p_process_message := ' TDS tax is not applicable';
3267: goto exit_from_procedure;
3268: end if;*/
3269:
3270: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
3271: open c_check_if_processed(p_invoice_id,'P');
3272: fetch c_check_if_processed into ln_cnt_already_processed;
3273: close c_check_if_processed;
3274:
3285:
3286: --fnd_file.put_line(FND_FILE.LOG, '3. Check for processed already '|| ln_cnt_already_processed);
3287:
3288: if nvl(ln_cnt_already_processed, 0) > 0 then
3289: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
3290: p_process_flag := 'X';
3291: p_process_message := 'TDS invoices have already been processed for this invoice';
3292: goto exit_from_procedure;
3293: end if;
3293: end if;
3294:
3295:
3296: /* Update actual value from default value if actual is null for TDS section taxes only*/
3297: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
3298: --Commented by Zhiwei for Bug#13359892 on 20111123, removed logic for column Default_Tax_ID
3299: /*update jai_ap_tds_inv_taxes
3300: set actual_tax_id = default_tax_id
3301: where nvl(consider_amt_for_tds, 'Y') = 'Y' -- Added by mmurtuza for bug12858951
3314: --and nvl(user_deleted_tax_flag, 'N') = 'Y';--
3315:
3316: END IF; -- p_call_from = G_CALL_FROM_ROLLBACK --Added by Chong for Bug#13802244 2012/09/17
3317:
3318: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
3319:
3320: open c_gl_sets_of_books(p_set_of_books_id);
3321: fetch c_gl_sets_of_books into r_gl_sets_of_books;
3322: close c_gl_sets_of_books;
3322: close c_gl_sets_of_books;
3323:
3324: if r_gl_sets_of_books.currency_code <> p_invoice_currency_code then
3325: /* Foreign currency invoice */
3326: p_codepath := jai_general_pkg.plot_codepath(6.1, p_codepath); /* 6.1 */
3327: ln_exchange_rate := p_exchange_rate;
3328: end if;
3329:
3330: --Added by Zhiwei Hou for bug#13767335 on 20120305 begin
3488: END IF; --( ln_proc_level >= ln_dbg_level) ;
3489:
3490: --fnd_file.put_line(FND_FILE.LOG, '20 Process flag '|| p_process_flag);
3491: --fnd_file.put_line(FND_FILE.LOG, '20 Process message '|| p_process_message);
3492: p_codepath := jai_general_pkg.plot_codepath(21, p_codepath); /* 21 */
3493: goto exit_from_procedure;
3494: end if;
3495: --Call defaulting logic (default_tds_from_setup) with P_REDEFAULT_SECTION_CODE = 'Y' and P_REDEFAULT_TAX_CATEGORY = 'Y'.
3496: ELSE
3517: );
3518: END IF; --( ln_proc_level >= ln_dbg_level) ;
3519: --fnd_file.put_line(FND_FILE.LOG, '21 Process flag '|| p_process_flag);
3520: --fnd_file.put_line(FND_FILE.LOG, '21 Process message '|| p_process_message);
3521: p_codepath := jai_general_pkg.plot_codepath(21, p_codepath); /* 21 */
3522: goto exit_from_procedure;
3523: end if;
3524: --Call defaulting logic (default_tds_from_setup) with P_REDEFAULT_SECTION_CODE = 'N' and P_REDEFAULT_TAX_CATEGORY = 'Y'.
3525: END IF;
3565: );
3566: END IF; --( ln_proc_level >= ln_dbg_level) ;
3567: --fnd_file.put_line(FND_FILE.LOG, '22 Process flag '|| p_process_flag);
3568: --fnd_file.put_line(FND_FILE.LOG, '22 Process message '|| p_process_message);
3569: p_codepath := jai_general_pkg.plot_codepath(21, p_codepath); /* 21 */
3570: goto exit_from_procedure;
3571: end if;
3572: --Call defaulting logic (default_tds_from_setup) with P_REDEFAULT_SECTION_CODE = 'Y' and P_REDEFAULT_TAX_CATEGORY = 'Y'.
3573: ELSE
3594: );
3595: END IF; --( ln_proc_level >= ln_dbg_level) ;
3596: --fnd_file.put_line(FND_FILE.LOG, '23 Process flag '|| p_process_flag);
3597: --fnd_file.put_line(FND_FILE.LOG, '23 Process message '|| p_process_message);
3598: p_codepath := jai_general_pkg.plot_codepath(21, p_codepath); /* 21 */
3599: goto exit_from_procedure;
3600: end if;
3601: --Call defaulting logic (default_tds_from_setup) with P_REDEFAULT_SECTION_CODE = 'N' and P_REDEFAULT_TAX_CATEGORY = 'Y'.
3602: END IF;
3654: fetch c_get_threshold_normal into ln_threshold_hdr_id;
3655: close c_get_threshold_normal;
3656:
3657: if nvl(ln_threshold_hdr_id, 0) = 0 then
3658: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /*10 */
3659: p_process_flag := 'E';
3660: p_process_message := 'Error - Threshold is not defined for the applicable TDS section :' ||
3661: r_ja_in_tax_codes.section_code ;
3662: goto exit_from_procedure;
3939: END LOOP;
3940:
3941:
3942: /* Get vendor_type_lookup_code */
3943: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
3944:
3945:
3946: open c_po_vendors(p_vendor_id);
3947: fetch c_po_vendors into lv_vendor_type_lookup_code;
4019: )
4020: LOOP
4021:
4022: jai_cmn_utils_pkg.WRITE_FND_LOG(G_LEVEL_STATEMENT, G_MODULE_NAME||l_api_name, 'Process section: '||r_section_cod.SECTION_CODE);
4023: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
4024: ln_threshold_grp_id := 0;
4025:
4026: --Added by Zhiwei Hou on 20120109 begin
4027: ------------------------------------------
4033: p_accounting_date => p_accounting_date, --Added by Chong for bug#16580553
4034: xn_hdr_id => ln_threshold_hdr_id
4035: );
4036: if nvl(ln_threshold_hdr_id, 0) = 0 then
4037: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /*10 */
4038: p_process_flag := 'E';
4039: p_process_message := 'Error - Threshold is not defined for the applicable TDS section :' ||
4040: r_section_cod.section_code ;
4041: goto exit_from_procedure;
4071:
4072:
4073: if nvl(ln_threshold_grp_id, 0) <> 0 then
4074:
4075: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath); /* 13 */
4076:
4077: r_jai_ap_tds_thhold_grps := null;
4078:
4079: open c_jai_ap_tds_thhold_grps(ln_threshold_grp_id);
4083: ln_total_invoice_amount := r_jai_ap_tds_thhold_grps.total_invoice_amount;
4084:
4085: else
4086:
4087: p_codepath := jai_general_pkg.plot_codepath(14, p_codepath); /* 14 */
4088:
4089: ln_total_invoice_amount := 0;
4090:
4091: end if;
4099: ------------------------------------------------------------------------------------------
4100: --Added by Chong for Bug#13802244 2012/09/17 End
4101: if nvl(ln_threshold_grp_id, 0) = 0 then
4102:
4103: p_codepath := jai_general_pkg.plot_codepath(19.1, p_codepath); /* 19.1 */
4104:
4105: fnd_file.put_line(FND_FILE.LOG, '19.1 Call maintain thhold grps ');
4106:
4107: if (ln_exception_flag = 'Y') then
4155: --fnd_file.put_line(FND_FILE.LOG, '19.1 Process message '|| p_process_message);
4156:
4157: else
4158:
4159: p_codepath := jai_general_pkg.plot_codepath(19.2, p_codepath); /* 19.2 */
4160:
4161: jai_ap_dtc_generation_pkg.maintain_thhold_grps
4162: (
4163: p_threshold_grp_id => ln_threshold_grp_id,
4188: end if;
4189:
4190: IF p_process_flag = 'E' THEN
4191:
4192: p_codepath := jai_general_pkg.plot_codepath(19.3, p_codepath); /* 19.3 */
4193: goto exit_from_procedure;
4194:
4195: END IF;
4196: END IF; --p_call_from = G_CALL_FROM_ROLLBACK --Added by Chong for Bug#13802244 2012/09/17
4214: --fnd_file.put_line(FND_FILE.LOG,' 9. Threshold hdr id-> '|| ln_threshold_hdr_id);
4215:
4216:
4217: /* Get the threshold group id */
4218: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath); /* 11 */
4219: /*
4220: Threshold Group to be maintained based on Threshold Header ID, PAN Number, Vendor ID, TAN Number, Financial Year and TDS Section if the Vendor has Exception Setup and Tax Calculation is Prospective.
4221: If Tax Calculation is not prospective use the existing Threshold Group or create a Threshold Group based on PAN Number, Vendor ID, TAN Number, Financial Year and TDS Section
4222: */
4272: END IF; --( ln_proc_level >= ln_dbg_level) ;
4273: --fnd_file.put_line(FND_FILE.LOG, '11. Threshold grp id ->'||ln_threshold_grp_id);
4274:
4275: /* Get the threshold group details */
4276: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath); /* 12 */
4277:
4278: /*if nvl(ln_threshold_grp_id, 0) <> 0 then
4279:
4280: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath); \* 13 *\
4276: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath); /* 12 */
4277:
4278: /*if nvl(ln_threshold_grp_id, 0) <> 0 then
4279:
4280: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath); \* 13 *\
4281:
4282: r_jai_ap_tds_thhold_grps := null;
4283:
4284: open c_jai_ap_tds_thhold_grps(ln_threshold_grp_id);
4288: ln_total_invoice_amount := r_jai_ap_tds_thhold_grps.total_invoice_amount;
4289:
4290: else
4291:
4292: p_codepath := jai_general_pkg.plot_codepath(14, p_codepath); \* 14 *\
4293:
4294: ln_total_invoice_amount := 0;
4295:
4296: end if;*/
4305: END IF; --( ln_proc_level >= ln_dbg_level) ;
4306: --fnd_file.put_line(FND_FILE.LOG, '12. Total invoice amount -> '||ln_total_invoice_amount);
4307:
4308: /* Get the threshold position before this invoice impact */
4309: p_codepath := jai_general_pkg.plot_codepath(15, p_codepath); /* 15 */
4310:
4311: ---=======================================================================
4312:
4313:
4358: END IF; --( ln_proc_level >= ln_dbg_level) ;
4359: --fnd_file.put_line(FND_FILE.LOG, '15. Threshold slab id before '||ln_threshold_slab_id_before);
4360:
4361: /* Get the threshold position after this invoice impact */
4362: p_codepath := jai_general_pkg.plot_codepath(16, p_codepath); /* 16 */
4363:
4364: r_jai_ap_tds_thhold_slabs := null;
4365:
4366: --Added by Chong for Bug#13802244 2012/09/17 Start
4421:
4422: END IF; --( ln_proc_level >= ln_dbg_level) ;
4423: --fnd_file.put_line(FND_FILE.LOG, '16. Threshold slab id after ->'|| ln_threshold_slab_id_after);
4424:
4425: p_codepath := jai_general_pkg.plot_codepath(17, p_codepath); /* 17 */
4426:
4427: if ln_threshold_slab_id_after <> 0 then
4428: /* Threshold has reached */
4429: p_codepath := jai_general_pkg.plot_codepath(18, p_codepath); /* 18 */
4425: p_codepath := jai_general_pkg.plot_codepath(17, p_codepath); /* 17 */
4426:
4427: if ln_threshold_slab_id_after <> 0 then
4428: /* Threshold has reached */
4429: p_codepath := jai_general_pkg.plot_codepath(18, p_codepath); /* 18 */
4430: lv_generate_all_invoices := 'Y';
4431: else
4432: lv_generate_all_invoices := 'N';
4433: p_codepath := jai_general_pkg.plot_codepath(19, p_codepath); /* 19 */
4429: p_codepath := jai_general_pkg.plot_codepath(18, p_codepath); /* 18 */
4430: lv_generate_all_invoices := 'Y';
4431: else
4432: lv_generate_all_invoices := 'N';
4433: p_codepath := jai_general_pkg.plot_codepath(19, p_codepath); /* 19 */
4434: end if; /* if ln_threshold_slab_id_after <> 0 */
4435: IF ( ln_proc_level >= ln_dbg_level)
4436: THEN
4437:
4488: nvl(PPAY_AMT(r_section_cod.SECTION_CODE),0)
4489: )
4490: LOOP
4491:
4492: p_codepath := jai_general_pkg.plot_codepath(20, p_codepath); /* 20 */
4493:
4494: /*START, Bgowrava for Bug# 8254510*/
4495: ln_tds_tax_amount := cur_rec.tax_amount;
4496:
4579: );
4580: END IF; --( ln_proc_level >= ln_dbg_level) ;
4581: --fnd_file.put_line(FND_FILE.LOG, '20 Process flag '|| p_process_flag);
4582: --fnd_file.put_line(FND_FILE.LOG, '20 Process message '|| p_process_message);
4583: p_codepath := jai_general_pkg.plot_codepath(21, p_codepath); /* 21 */
4584: goto exit_from_procedure;
4585: end if;
4586:
4587: p_codepath := jai_general_pkg.plot_codepath(22, p_codepath); /* 22 */
4583: p_codepath := jai_general_pkg.plot_codepath(21, p_codepath); /* 21 */
4584: goto exit_from_procedure;
4585: end if;
4586:
4587: p_codepath := jai_general_pkg.plot_codepath(22, p_codepath); /* 22 */
4588:
4589: if ln_start_threshold_trx_id is null then
4590: ln_start_threshold_trx_id := ln_threshold_trx_id;
4591: end if;
4604: --fnd_file.put_line(FND_FILE.LOG,' 22. start thhold trx id '||ln_start_threshold_trx_id);
4605:
4606: --fnd_file.put_line(FND_FILE.LOG, ' Bug 7280925 - value of tmp tds before maintain thhold grps'||ln_tax_amount);
4607:
4608: p_codepath := jai_general_pkg.plot_codepath(23, p_codepath); /* 23 */
4609:
4610: jai_ap_dtc_generation_pkg.maintain_thhold_grps
4611: (
4612: p_threshold_grp_id => ln_threshold_grp_id,
4636: --fnd_file.put_line(FND_FILE.LOG, '23 Process message '|| p_process_message);
4637:
4638: --Added by Sanjikum for Bug#5131075(4722011)
4639: IF p_process_flag = 'E' THEN
4640: p_codepath := jai_general_pkg.plot_codepath(23.1, p_codepath); /* 23.1 */
4641: goto exit_from_procedure;
4642: END IF;
4643:
4644:
4663:
4664: ln_no_of_tds_inv_generated := ln_no_of_tds_inv_generated + 2;
4665: /* TDS invoices are always generated in pair */
4666:
4667: p_codepath := jai_general_pkg.plot_codepath(24, p_codepath); /* 24 */
4668: END LOOP;
4669: /* Loop and generate invoices */
4670:
4671: --Added by Chong for bug#16414088 eTDS ER Start
4716: END IF; --n_threshold_trx_id IS NULL
4717: ----------------------------------------------------------------------
4718: --Added by Chong for bug#16414088 eTDS ER End
4719:
4720: p_codepath := jai_general_pkg.plot_codepath(25, p_codepath); /* 25 */
4721: update jai_ap_tds_inv_taxes
4722: set threshold_grp_id = ln_threshold_grp_id,
4723: threshold_hdr_id = ln_threshold_hdr_id,
4724: threshold_slab_id = ln_threshold_slab_id_after,
4729: and actual_section_code = cur_rec_section.actual_section_code;
4730:
4731: if ln_threshold_slab_id_before <> ln_threshold_slab_id_after then
4732: /* Transition in threshold has happened */
4733: p_codepath := jai_general_pkg.plot_codepath(26, p_codepath); /* 26 */
4734:
4735: --4407184
4736: lv_slab_transition_tds_event := 'THRESHOLD TRANSITION(from slab id -' || ln_threshold_slab_id_before ||
4737: 'to slab id - ' || ln_threshold_slab_id_after || ')';
4826:
4827: --fnd_file.put_line(FND_FILE.LOG, '27 Process flag '|| p_process_flag);
4828: --fnd_file.put_line(FND_FILE.LOG, '27 Process message '|| p_process_message);
4829:
4830: p_codepath := jai_general_pkg.plot_codepath(27, p_codepath); /* 27 */
4831: goto exit_from_procedure;
4832: end if;
4833:
4834:
4838: end if;--Added by Zhiwei
4839: --end if;--Added by Zhiwei --Comment by Zhiwei Hou on 20120113
4840:
4841:
4842: p_codepath := jai_general_pkg.plot_codepath(28, p_codepath); /* 28 */
4843: end if;
4844:
4845: p_codepath := jai_general_pkg.plot_codepath(29, p_codepath); /* 29 */
4846:
4841:
4842: p_codepath := jai_general_pkg.plot_codepath(28, p_codepath); /* 28 */
4843: end if;
4844:
4845: p_codepath := jai_general_pkg.plot_codepath(29, p_codepath); /* 29 */
4846:
4847: -------------------------------------------------------------
4848: END LOOP;
4849:
4878: --------------------------------------------------------------
4879: --Added by Zhiwei Hou on 20120302 for bug#13720981 end
4880:
4881:
4882: p_codepath := jai_general_pkg.plot_codepath(30, p_codepath); /* 30 */
4883:
4884: /* Check if any non-TDS Section taxes are applicable and generate invoices if required. */
4885: --Update by Zhiwei Hou on 20120111 begin
4886: --------------------------------------------------------------------------------------------------------
4889: --------------------------------------------------------------------------------------------------------
4890: --Update by Zhiwei Hou on 20120111 end
4891: LOOP --rchandan for bug#4428980
4892:
4893: p_codepath := jai_general_pkg.plot_codepath(31, p_codepath); /* 31 */
4894: ln_threshold_trx_id := null;
4895: lv_tds_invoice_num := null;
4896: lv_tds_cm_num := null;
4897: p_process_flag := null;
4981: END IF; --( ln_proc_level >= ln_dbg_level) ;
4982: --fnd_file.put_line(FND_FILE.LOG, '31 Process flag '|| p_process_flag);
4983: --fnd_file.put_line(FND_FILE.LOG, '31 Process message '|| p_process_message);
4984:
4985: p_codepath := jai_general_pkg.plot_codepath(32, p_codepath); /* 32 */
4986: goto exit_from_procedure;
4987: end if;
4988:
4989: p_codepath := jai_general_pkg.plot_codepath(33, p_codepath); /* 33 */
4985: p_codepath := jai_general_pkg.plot_codepath(32, p_codepath); /* 32 */
4986: goto exit_from_procedure;
4987: end if;
4988:
4989: p_codepath := jai_general_pkg.plot_codepath(33, p_codepath); /* 33 */
4990:
4991: if ln_start_threshold_trx_id is null then
4992: p_codepath := jai_general_pkg.plot_codepath(34, p_codepath); /* 34 */
4993: ln_start_threshold_trx_id := ln_threshold_trx_id;
4988:
4989: p_codepath := jai_general_pkg.plot_codepath(33, p_codepath); /* 33 */
4990:
4991: if ln_start_threshold_trx_id is null then
4992: p_codepath := jai_general_pkg.plot_codepath(34, p_codepath); /* 34 */
4993: ln_start_threshold_trx_id := ln_threshold_trx_id;
4994: end if;
4995: IF ( ln_proc_level >= ln_dbg_level)
4996: THEN
5017: --and actual_tax_id = cur_non_tds_rec.actual_tax_id;---- Comment by Zhiwei Hou on 20120111
5018:
5019: END LOOP; /* cur_non_tds_rec */
5020:
5021: p_codepath := jai_general_pkg.plot_codepath(35, p_codepath); /* 35 */
5022:
5023:
5024: /* If the process is called from batch do not fire import request */
5025: IF ( ln_proc_level >= ln_dbg_level)
5035:
5036: IF p_call_from <> 'BATCH' THEN
5037: /* Not Called from Batch */
5038:
5039: p_codepath := jai_general_pkg.plot_codepath(36, p_codepath); /* 36 */
5040:
5041: IF ln_start_threshold_trx_id is not null THEN
5042: IF ( ln_proc_level >= ln_dbg_level)
5043: THEN
5049:
5050: END IF; --( ln_proc_level >= ln_dbg_level) ;
5051: --fnd_file.put_line(FND_FILE.LOG, '36 start thhold trx id '|| ln_start_threshold_trx_id);
5052:
5053: p_codepath := jai_general_pkg.plot_codepath(37, p_codepath); /* 37 */
5054: import_and_approve
5055: (
5056: p_invoice_id => p_invoice_id,
5057: p_start_thhold_trx_id => ln_start_threshold_trx_id,
5075: --fnd_file.put_line(FND_FILE.LOG, '37 Process message '|| p_process_message);
5076:
5077: --Added by Sanjikum for Bug#5131075(4722011)
5078: IF p_process_flag = 'E' THEN
5079: p_codepath := jai_general_pkg.plot_codepath(37.1, p_codepath); /* 37.1 */
5080: goto exit_from_procedure;
5081: END IF;
5082:
5083: END IF; /* if ln_no_of_tds_inv_generated > 0 then */
5084:
5085: END IF; /* p_call_from <> 'BATCH' then */
5086:
5087: <
5088: p_codepath := jai_general_pkg.plot_codepath(100, p_codepath); /* 100 */
5089: jai_cmn_utils_pkg.WRITE_FND_LOG(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_api_name||'.END', G_PKG_NAME || ': '||l_api_name||'()-');
5090: return;
5091:
5092: exception
9578: );
9579:
9580: if p_process_flag = 'E' then
9581:
9582: lv_codepath := jai_general_pkg.plot_codepath(1.01, lv_codepath); /* 1.01*/
9583: lv_process_flag := p_process_flag;
9584: lv_process_message := p_process_message;
9585: goto exit_from_procedure;
9586: end if;
9596: P_process_message => P_process_message,
9597: p_codepath => lv_codepath);
9598: if p_process_flag = 'E' then
9599:
9600: lv_codepath := jai_general_pkg.plot_codepath(1.02, lv_codepath); /* 1.02*/
9601: lv_process_flag := p_process_flag;
9602: lv_process_message := p_process_message;
9603: goto exit_from_procedure;
9604: end if;
9617: );
9618:
9619: if p_process_flag = 'E' then
9620:
9621: lv_codepath := jai_general_pkg.plot_codepath(1.03, lv_codepath); /* 1.03*/
9622: lv_process_flag := p_process_flag;
9623: lv_process_message := p_process_message;
9624: goto exit_from_procedure;
9625: end if;
9661: ,p_codepath => p_codepath
9662: );
9663:
9664: IF p_process_flag = 'E' THEN
9665: p_codepath := jai_general_pkg.plot_codepath(1.04, p_codepath); /* 1.04*/
9666: GOTO exit_from_procedure;
9667: END IF;
9668: END LOOP;
9669:
9810: END IF;
9811:
9812: /* Check if the invoice to TDS authority is already canccelled,
9813: if yes, no need to do the cancel processing of the invoice */
9814: lv_codepath := jai_general_pkg.plot_codepath(5, lv_codepath); /* 5 */
9815: if r_ap_invoices_all_au.cancelled_date is not null then
9816: lv_codepath := jai_general_pkg.plot_codepath(6,lv_codepath); /* 6 */
9817: lv_tds_invoice_flag := 'X';
9818: lv_tds_invoice_message := ' Invoice to TDS Authority is already Cancelled.';
9812: /* Check if the invoice to TDS authority is already canccelled,
9813: if yes, no need to do the cancel processing of the invoice */
9814: lv_codepath := jai_general_pkg.plot_codepath(5, lv_codepath); /* 5 */
9815: if r_ap_invoices_all_au.cancelled_date is not null then
9816: lv_codepath := jai_general_pkg.plot_codepath(6,lv_codepath); /* 6 */
9817: lv_tds_invoice_flag := 'X';
9818: lv_tds_invoice_message := ' Invoice to TDS Authority is already Cancelled.';
9819: goto credit_memo_processing;
9820: end if;
9833: ln_out_original_prepay_amount := null;
9834: ln_out_pay_curr_inv_amount := null;
9835: lv_token := null;
9836:
9837: lv_codepath := jai_general_pkg.plot_codepath(7, lv_codepath); /* 7 */
9838:
9839: /* Fetch the accounting date of TDS invoice distribution
9840: | so that the same will be passed for reversal line which will get
9841: | created for cancellation.
9844: lv_open_period := ap_utilities_pkg.get_current_gl_date(P_Date => ld_accounting_date,
9845: P_Org_Id => r_ap_invoices_all_au.org_id);
9846: if lv_open_period is null then
9847:
9848: lv_codepath := jai_general_pkg.plot_codepath(1.1, lv_codepath); /* 1.1 */
9849:
9850: ap_utilities_pkg.get_open_gl_date(p_date => ld_accounting_date, /* In date */
9851: p_period_name => lv_open_period, /* out Period */
9852: p_gl_date => ld_accounting_date, /* out date */
9852: p_gl_date => ld_accounting_date, /* out date */
9853: P_Org_Id => r_ap_invoices_all_au.org_id);
9854:
9855: if lv_open_period is null then
9856: lv_codepath := jai_general_pkg.plot_codepath(1.2,lv_codepath); /* 1.2 */
9857: lv_process_flag := 'E';
9858: lv_process_message := 'No open accounting Period after : ' || ld_accounting_date;
9859: goto exit_from_procedure;
9860: end if;
9883: P_pay_curr_invoice_amount => ln_out_pay_curr_inv_amount,
9884: P_Token => lv_token,
9885: P_calling_sequence => 'India Localization - TDS thrreshold rollback');
9886:
9887: lv_codepath := jai_general_pkg.plot_codepath(8, lv_codepath); /* 8 */
9888:
9889: /*Check whether any value is returned in lv_token.
9890: IF it is not null display the error message. */
9891:
9910: /*What if ap_cancel_pkg.ap_cancel_single_invoice is not there ?? */
9911: lv_tds_invoice_flag := 'Y';
9912: lv_tds_invoice_message := 'Invoice to TDS Authority is Cancelled ';
9913:
9914: lv_codepath := jai_general_pkg.plot_codepath(9, lv_codepath); /* 9 */
9915:
9916:
9917: <
9918: /*Derivced the accounting_date of the original distribution
9935: /* Check if the Credit memo to the supplier for TDS already canccelled,
9936: if yes, no need to cancel it again here */
9937:
9938: if r_ap_invoices_all_cm.cancelled_date is not null then
9939: lv_codepath := jai_general_pkg.plot_codepath(10,
9940: lv_codepath); /* 10 */
9941: lv_tds_credit_memo_flag := 'X';
9942: lv_tds_credit_memo_message := 'Credit memo to the supplier for TDS is already Cancelled.';
9943: goto Continue_with_next_record;
9945:
9946: /*Check if the Credit memo to the supplier for TDS is paid,
9947: if yes a separate invoice needs to be generated, or else the same credit memo can be cancelled */
9948: IF r_ap_invoices_all_cm.payment_status_flag = 'N' THEN
9949: lv_codepath := jai_general_pkg.plot_codepath(11, lv_codepath); /* 11 */
9950: /* Credit memo not paid, can cancel the same */
9951: lv_tds_credit_memo_flag := 'Y';
9952: lv_tds_credit_memo_message := 'Cancelling Credit memo to the supplier for TDS as it is not paid ';
9953:
9964: ln_out_original_prepay_amount := null;
9965: ln_out_pay_curr_inv_amount := null;
9966: lv_token := NULL;
9967:
9968: lv_codepath := jai_general_pkg.plot_codepath(12, lv_codepath); /* 12 */
9969:
9970: /*Fetch the accounting date of TDS invoice distribution
9971: | so that the same will be passed for reversal line which will get
9972: | created for cancellation.
9975: lv_open_period := ap_utilities_pkg.get_current_gl_date(P_Date => ld_accounting_date,
9976: P_Org_Id => r_ap_invoices_all_cm.org_id);
9977: if lv_open_period is null then
9978:
9979: lv_codepath := jai_general_pkg.plot_codepath(1.1, lv_codepath); /* 1.1 */
9980:
9981: ap_utilities_pkg.get_open_gl_date(p_date => ld_accounting_date, /* In date */
9982: p_period_name => lv_open_period, /* out Period */
9983: p_gl_date => ld_accounting_date, /* out date */
9983: p_gl_date => ld_accounting_date, /* out date */
9984: P_Org_Id => r_ap_invoices_all_cm.org_id);
9985:
9986: if lv_open_period is null then
9987: lv_codepath := jai_general_pkg.plot_codepath(1.2,
9988: lv_codepath); /* 1.2 */
9989: lv_process_flag := 'E';
9990: lv_process_message := 'No open accounting Period after : ' ||
9991: ld_accounting_date;
10015: P_pay_curr_invoice_amount => ln_out_pay_curr_inv_amount,
10016: P_token => lv_token,
10017: P_calling_sequence => 'India Localization - TDS thrreshold rollback');
10018:
10019: lv_codepath := jai_general_pkg.plot_codepath(13, lv_codepath); /* 13 */
10020:
10021: IF nvl(lv_token, 'A') <> 'A' Then
10022: APP_EXCEPTION.RAISE_EXCEPTION(EXCEPTION_TYPE => 'APP',
10023: EXCEPTION_CODE => NULL,
10037: where invoice_id = cur_rec.invoice_to_vendor_id;
10038:
10039: ELSE
10040: /* Credit memo has already been paid, have to generate a new invoice to nagate the effect */
10041: lv_codepath := jai_general_pkg.plot_codepath(14,
10042: lv_codepath); /* 14 */
10043: ln_threshold_trx_id := 0;
10044: lv_invoice_to_tds_num := null;
10045: lv_invoice_to_vendor_num := null;
10062: pd_creation_Date => sysdate,
10063: pn_calc_tax_amount => 0);
10064:
10065: if lv_tds_credit_memo_flag = 'E' then
10066: lv_codepath := jai_general_pkg.plot_codepath(15, lv_codepath); /* 15 */
10067: goto Continue_with_next_record;
10068: end if;
10069:
10070: lv_tds_credit_memo_flag := 'Y';
10068: end if;
10069:
10070: lv_tds_credit_memo_flag := 'Y';
10071: lv_tds_credit_memo_message := 'Generated Standard invoice to suppliet : ' || lv_invoice_to_vendor_num;
10072: lv_codepath := jai_general_pkg.plot_codepath(16,lv_codepath); /* 16 */
10073:
10074: if ln_start_threshold_trx_id is null then
10075: ln_start_threshold_trx_id := ln_threshold_trx_id;
10076: end if;
10074: if ln_start_threshold_trx_id is null then
10075: ln_start_threshold_trx_id := ln_threshold_trx_id;
10076: end if;
10077:
10078: lv_codepath := jai_general_pkg.plot_codepath(17, lv_codepath); /* 17 */
10079:
10080: END IF; /* Credit memo to the supplier paid / not paid */
10081:
10082: /* Control comes here when either the credit memo for the tds authority is cancelled or a
10243: p_process_message => P_process_message);
10244: END IF;
10245:
10246: <
10247: lv_codepath := jai_general_pkg.plot_codepath(100,lv_codepath,NULL,'END'); /* 100 */
10248: jai_cmn_utils_pkg.WRITE_FND_LOG(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_api_name||'.END', G_PKG_NAME || ': '||l_api_name||'()-');
10249:
10250: /* IF lv_process_flag = 'E' THEN
10251: raise_application_error(-20012, lv_process_message);