159: --
160: end if;
161:
162: -- write to logfile a successful completion message
163: fnd_message.set_name('BEN','BEN_91877_GENERAL_JOB_SUCCESS');
164: fnd_file.put_line(fnd_file.log, fnd_message.get);
165:
166:
167: -- write to logfile the record count
160: end if;
161:
162: -- write to logfile a successful completion message
163: fnd_message.set_name('BEN','BEN_91877_GENERAL_JOB_SUCCESS');
164: fnd_file.put_line(fnd_file.log, fnd_message.get);
165:
166:
167: -- write to logfile the record count
168: fnd_file.put_line(fnd_file.log, to_char(l_file_count) ||' '||'Results are purged') ;
174: EXCEPTION
175: --
176:
177: WHEN others THEN
178: fnd_message.set_name('PER','FFU10_GENERAL_ORACLE_ERROR');
179: fnd_message.set_token('2',substr(sqlerrm,1,200));
180: fnd_file.put_line(fnd_file.log, fnd_message.get);
181: fnd_message.raise_error;
182: --
175: --
176:
177: WHEN others THEN
178: fnd_message.set_name('PER','FFU10_GENERAL_ORACLE_ERROR');
179: fnd_message.set_token('2',substr(sqlerrm,1,200));
180: fnd_file.put_line(fnd_file.log, fnd_message.get);
181: fnd_message.raise_error;
182: --
183: END main;
176:
177: WHEN others THEN
178: fnd_message.set_name('PER','FFU10_GENERAL_ORACLE_ERROR');
179: fnd_message.set_token('2',substr(sqlerrm,1,200));
180: fnd_file.put_line(fnd_file.log, fnd_message.get);
181: fnd_message.raise_error;
182: --
183: END main;
184: --
177: WHEN others THEN
178: fnd_message.set_name('PER','FFU10_GENERAL_ORACLE_ERROR');
179: fnd_message.set_token('2',substr(sqlerrm,1,200));
180: fnd_file.put_line(fnd_file.log, fnd_message.get);
181: fnd_message.raise_error;
182: --
183: END main;
184: --
185:
236: --
237: hr_Utility.set_location('Entering'||l_proc, 5);
238:
239: if p_effective_date is null and p_actual_date is null then
240: fnd_message.set_name('PER','FFU10_GENERAL_ORACLE_ERROR');
241: fnd_message.set_token('2' , 'Either Effective date or Actual date must be entered' );
242: fnd_file.put_line(fnd_file.log,'Either Effective date or Actual date must be entered');
243: fnd_message.raise_error;
244:
237: hr_Utility.set_location('Entering'||l_proc, 5);
238:
239: if p_effective_date is null and p_actual_date is null then
240: fnd_message.set_name('PER','FFU10_GENERAL_ORACLE_ERROR');
241: fnd_message.set_token('2' , 'Either Effective date or Actual date must be entered' );
242: fnd_file.put_line(fnd_file.log,'Either Effective date or Actual date must be entered');
243: fnd_message.raise_error;
244:
245: end if ;
239: if p_effective_date is null and p_actual_date is null then
240: fnd_message.set_name('PER','FFU10_GENERAL_ORACLE_ERROR');
241: fnd_message.set_token('2' , 'Either Effective date or Actual date must be entered' );
242: fnd_file.put_line(fnd_file.log,'Either Effective date or Actual date must be entered');
243: fnd_message.raise_error;
244:
245: end if ;
246:
247: l_effective_date := to_date(p_effective_date, 'YYYY/MM/DD HH24:MI:SS');
325: --
326: end if;
327:
328: -- write to logfile a successful completion message
329: fnd_message.set_name('BEN','BEN_91877_GENERAL_JOB_SUCCESS');
330: fnd_file.put_line(fnd_file.log, fnd_message.get);
331: commit;
332: hr_utility.set_location('Exiting'||l_proc, 15);
333: --
326: end if;
327:
328: -- write to logfile a successful completion message
329: fnd_message.set_name('BEN','BEN_91877_GENERAL_JOB_SUCCESS');
330: fnd_file.put_line(fnd_file.log, fnd_message.get);
331: commit;
332: hr_utility.set_location('Exiting'||l_proc, 15);
333: --
334: --
334: --
335: EXCEPTION
336: --
337: WHEN others THEN
338: fnd_message.set_name('PER','FFU10_GENERAL_ORACLE_ERROR');
339: fnd_message.set_token('2',substr(sqlerrm,1,200));
340: fnd_file.put_line(fnd_file.log, fnd_message.get);
341: fnd_message.raise_error;
342:
335: EXCEPTION
336: --
337: WHEN others THEN
338: fnd_message.set_name('PER','FFU10_GENERAL_ORACLE_ERROR');
339: fnd_message.set_token('2',substr(sqlerrm,1,200));
340: fnd_file.put_line(fnd_file.log, fnd_message.get);
341: fnd_message.raise_error;
342:
343: End chg_log_purge ;
336: --
337: WHEN others THEN
338: fnd_message.set_name('PER','FFU10_GENERAL_ORACLE_ERROR');
339: fnd_message.set_token('2',substr(sqlerrm,1,200));
340: fnd_file.put_line(fnd_file.log, fnd_message.get);
341: fnd_message.raise_error;
342:
343: End chg_log_purge ;
344:
337: WHEN others THEN
338: fnd_message.set_name('PER','FFU10_GENERAL_ORACLE_ERROR');
339: fnd_message.set_token('2',substr(sqlerrm,1,200));
340: fnd_file.put_line(fnd_file.log, fnd_message.get);
341: fnd_message.raise_error;
342:
343: End chg_log_purge ;
344:
345: