53: ghr_mto_int.set_log_program_name('GHR_EXEMP_PURGE');
54: IF NVL(fnd_profile.value('GHR_ALLOW_EXEMP_PURGE'),'N') = 'N' THEN
55: l_log_proc := 'User Restriction';
56: l_log_text := 'This Option of Reporting or Purging Ex- Employees, is not allowed for this User.';
57: fnd_file.put_line(fnd_file.log,l_log_text);
58: raise rep_purge_error;
59: END IF;
60:
61: l_cutoff_dt := ADD_MONTHS(SYSDATE, -(p_retention_period * 12));
220: END;
221: END LOOP;
222:
223: l_count := l_count - 1;
224: fnd_file.put_line(fnd_file.log,'------------------------------------------------');
225: fnd_file.put_line(fnd_file.log,'Total Records : ' || l_count );
226: fnd_file.put_line(fnd_file.log,'------------------------------------------------');
227: fnd_file.put_line(fnd_file.log,'------------Path of output file----------------');
228: fnd_file.put_line(fnd_file.log,'Text file : ' || l_output_ascii_fname);
221: END LOOP;
222:
223: l_count := l_count - 1;
224: fnd_file.put_line(fnd_file.log,'------------------------------------------------');
225: fnd_file.put_line(fnd_file.log,'Total Records : ' || l_count );
226: fnd_file.put_line(fnd_file.log,'------------------------------------------------');
227: fnd_file.put_line(fnd_file.log,'------------Path of output file----------------');
228: fnd_file.put_line(fnd_file.log,'Text file : ' || l_output_ascii_fname);
229: fnd_file.put_line(fnd_file.log,'-------------------------------------------');
222:
223: l_count := l_count - 1;
224: fnd_file.put_line(fnd_file.log,'------------------------------------------------');
225: fnd_file.put_line(fnd_file.log,'Total Records : ' || l_count );
226: fnd_file.put_line(fnd_file.log,'------------------------------------------------');
227: fnd_file.put_line(fnd_file.log,'------------Path of output file----------------');
228: fnd_file.put_line(fnd_file.log,'Text file : ' || l_output_ascii_fname);
229: fnd_file.put_line(fnd_file.log,'-------------------------------------------');
230: COMMIT;
223: l_count := l_count - 1;
224: fnd_file.put_line(fnd_file.log,'------------------------------------------------');
225: fnd_file.put_line(fnd_file.log,'Total Records : ' || l_count );
226: fnd_file.put_line(fnd_file.log,'------------------------------------------------');
227: fnd_file.put_line(fnd_file.log,'------------Path of output file----------------');
228: fnd_file.put_line(fnd_file.log,'Text file : ' || l_output_ascii_fname);
229: fnd_file.put_line(fnd_file.log,'-------------------------------------------');
230: COMMIT;
231:
224: fnd_file.put_line(fnd_file.log,'------------------------------------------------');
225: fnd_file.put_line(fnd_file.log,'Total Records : ' || l_count );
226: fnd_file.put_line(fnd_file.log,'------------------------------------------------');
227: fnd_file.put_line(fnd_file.log,'------------Path of output file----------------');
228: fnd_file.put_line(fnd_file.log,'Text file : ' || l_output_ascii_fname);
229: fnd_file.put_line(fnd_file.log,'-------------------------------------------');
230: COMMIT;
231:
232: hr_utility.set_location('Leaving:'|| g_proc, 60);
225: fnd_file.put_line(fnd_file.log,'Total Records : ' || l_count );
226: fnd_file.put_line(fnd_file.log,'------------------------------------------------');
227: fnd_file.put_line(fnd_file.log,'------------Path of output file----------------');
228: fnd_file.put_line(fnd_file.log,'Text file : ' || l_output_ascii_fname);
229: fnd_file.put_line(fnd_file.log,'-------------------------------------------');
230: COMMIT;
231:
232: hr_utility.set_location('Leaving:'|| g_proc, 60);
233:
646: FOR l_tags IN p_tags.FIRST .. p_tags.LAST LOOP
647: IF l_tags = l_tot THEN
648: l_temp := p_tags(l_tags).tagvalue;
649: utl_file.put_line(p_l_fp,l_temp);
650: fnd_file.put_line(fnd_file.output,l_temp);
651: ELSE
652: l_temp := p_tags(l_tags).tagvalue || '|';
653: utl_file.put(p_l_fp,l_temp);
654: fnd_file.put(fnd_file.output,l_temp);
650: fnd_file.put_line(fnd_file.output,l_temp);
651: ELSE
652: l_temp := p_tags(l_tags).tagvalue || '|';
653: utl_file.put(p_l_fp,l_temp);
654: fnd_file.put(fnd_file.output,l_temp);
655: END IF;
656: END LOOP;
657: END IF;
658:
681: IF NOT(l_tags = l_tot) THEN
682: l_temp := l_temp||'|';
683: END IF;
684: utl_file.put(p_l_fp,l_temp);
685: fnd_file.put(fnd_file.output,l_temp);
686: END LOOP;
687: utl_file.new_line(p_l_fp);
688: fnd_file.new_line(fnd_file.output);
689:
684: utl_file.put(p_l_fp,l_temp);
685: fnd_file.put(fnd_file.output,l_temp);
686: END LOOP;
687: utl_file.new_line(p_l_fp);
688: fnd_file.new_line(fnd_file.output);
689:
690: hr_utility.set_location('Leaving:'|| g_proc, 60);
691:
692: END WriteHeaderRow;