157: begin
158: /* */
159:
160: /* Get the statis fnd values for populating into the table */
161: Fnd_File.put_line(Fnd_File.LOG, '** Start of procedure jai_ap_tcs_processing_pkg.generate_tcs_certificates **');
162:
163: ln_user_id := fnd_global.user_id ;
164: ln_last_update_login := fnd_global.login_id ;
165: ln_program_id := fnd_global.conc_program_id ;
175: CLOSE cur_regime_id;
176:
177: /* Group for TCS Certificates */
178:
179: Fnd_File.put_line(Fnd_File.LOG, ' Generating Certificates ' );
180:
181: for cur_rec in
182: c_group_for_certificate
183: (
229: if sql%rowcount = 0 then
230: goto continue_with_next_certificate;
231: end if;
232:
233: Fnd_File.put_line(Fnd_File.LOG, 'Certificate Number : ' || ln_certificate_num);
234: Fnd_File.put_line(Fnd_File.LOG, ' No of Records for the Certificate : ' || to_char(sql%rowcount) );
235: ln_certificate_count := ln_certificate_count + 1;
236:
237: if ln_certificate_num = 1 then
230: goto continue_with_next_certificate;
231: end if;
232:
233: Fnd_File.put_line(Fnd_File.LOG, 'Certificate Number : ' || ln_certificate_num);
234: Fnd_File.put_line(Fnd_File.LOG, ' No of Records for the Certificate : ' || to_char(sql%rowcount) );
235: ln_certificate_count := ln_certificate_count + 1;
236:
237: if ln_certificate_num = 1 then
238: Fnd_File.put_line(Fnd_File.LOG, 'Created a certificate record in jai_ap_tds_cert_nums');
234: Fnd_File.put_line(Fnd_File.LOG, ' No of Records for the Certificate : ' || to_char(sql%rowcount) );
235: ln_certificate_count := ln_certificate_count + 1;
236:
237: if ln_certificate_num = 1 then
238: Fnd_File.put_line(Fnd_File.LOG, 'Created a certificate record in jai_ap_tds_cert_nums');
239: insert into jai_ap_tds_cert_nums
240: (
241: FIN_YR_CERT_ID , -- Date 22/06/2007 by sacsethi for bug 6144923
242: regime_code ,
265:
266: else
267:
268:
269: Fnd_File.put_line(Fnd_File.LOG, 'Updated certificate number in jai_ap_tds_cert_nums');
270: update jai_ap_tds_cert_nums
271: set certificate_num = ln_certificate_num
272: where org_tan_num = pv_org_tan_num
273: and fin_yr = cur_rec.fin_year
274: and regime_code = jai_constants.tcs_regime;
275: end if;
276:
277: /* insert into JAI_RGM_CERTIFICATES */
278: Fnd_File.put_line(Fnd_File.LOG, 'Inserting record in JAI_RGM_CERTIFICATES with certificate_id : ' || to_char(ln_certificate_id));
279:
280: INSERT INTO
281: jai_rgm_certificates( CERTIFICATE_ID ,
282: CERTIFICATE_NUM ,
338: end loop; /* c_group_for_certificate */
339:
340:
341: <
342: Fnd_File.put_line(Fnd_File.LOG, 'No of Certificates Generated : ' || to_char(ln_certificate_count));
343: Fnd_File.put_line(Fnd_File.LOG, '** Successful End of procedure jai_ap_tcs_processing_pkg.generate_tcs_certificates **');
344:
345: return;
346:
339:
340:
341: <
342: Fnd_File.put_line(Fnd_File.LOG, 'No of Certificates Generated : ' || to_char(ln_certificate_count));
343: Fnd_File.put_line(Fnd_File.LOG, '** Successful End of procedure jai_ap_tcs_processing_pkg.generate_tcs_certificates **');
344:
345: return;
346:
347: exception
347: exception
348: when others then
349: retcode := 2;
350: errbuf := 'Error from jai_ap_tcs_processing_pkg.generate_tcs_certificates : ' || sqlerrm;
351: Fnd_File.put_line(Fnd_File.LOG, 'Error End of procedure jai_ap_tcs_processing_pkg.process_tds_payments : ' || sqlerrm);
352:
353: end generate_tcs_certificates;
354:
355: /* ****************************** generate_tcs_certificates ***************************************** */