1: PACKAGE BODY jai_ap_tcs_processing_pkg AS
2: /* $Header: jai_ap_tcs_prc.plb 120.3.12000000.1 2007/07/24 06:55:12 rallamse noship $ */
3: /* ----------------------------------------------------------------------------
4: FILENAME : jai_ap_tcs_prc.plb
5:
137: begin
138: /* */
139:
140: /* Get the statis fnd values for populating into the table */
141: Fnd_File.put_line(Fnd_File.LOG, '** Start of procedure jai_ap_tcs_processing_pkg.generate_tcs_certificates **');
142:
143: ln_user_id := fnd_global.user_id ;
144: ln_last_update_login := fnd_global.login_id ;
145: ln_program_id := fnd_global.conc_program_id ;
317:
318:
319: <
320: Fnd_File.put_line(Fnd_File.LOG, 'No of Certificates Generated : ' || to_char(ln_certificate_count));
321: Fnd_File.put_line(Fnd_File.LOG, '** Successful End of procedure jai_ap_tcs_processing_pkg.generate_tcs_certificates **');
322:
323: return;
324:
325: exception
324:
325: exception
326: when others then
327: retcode := 2;
328: errbuf := 'Error from jai_ap_tcs_processing_pkg.generate_tcs_certificates : ' || sqlerrm;
329: Fnd_File.put_line(Fnd_File.LOG, 'Error End of procedure jai_ap_tcs_processing_pkg.process_tds_payments : ' || sqlerrm);
330:
331: end generate_tcs_certificates;
332:
325: exception
326: when others then
327: retcode := 2;
328: errbuf := 'Error from jai_ap_tcs_processing_pkg.generate_tcs_certificates : ' || sqlerrm;
329: Fnd_File.put_line(Fnd_File.LOG, 'Error End of procedure jai_ap_tcs_processing_pkg.process_tds_payments : ' || sqlerrm);
330:
331: end generate_tcs_certificates;
332:
333: /* ****************************** generate_tcs_certificates ***************************************** */
331: end generate_tcs_certificates;
332:
333: /* ****************************** generate_tcs_certificates ***************************************** */
334:
335: END jai_ap_tcs_processing_pkg;