APPS.GHR_EXEMP_PURGE dependencies on UTL_FILE

Line 34: WHERE name = 'utl_file_dir';

30: CURSOR c_get_dir
31: IS
32: SELECT value
33: FROM v$parameter
34: WHERE name = 'utl_file_dir';
35:
36: l_org_mgr VARCHAR2(1000);
37: l_exemp_rec EXEMP_PER_DET;
38: l_no_of_yrs NUMBER;

Line 581: p_ascii_fp UTL_FILE.FILE_TYPE;

577: PROCEDURE ReportExemp(p_exemp_rec EXEMP_PER_DET,
578: p_count number,
579: p_dir varchar2,
580: p_fname varchar2) IS
581: p_ascii_fp UTL_FILE.FILE_TYPE;
582: v_tags t_tags;
583: BEGIN
584: g_proc := g_package||'ReportExemp';
585: hr_utility.set_location('Entering:'|| g_proc, 10);

Line 586: p_ascii_fp := utl_file.fopen(p_dir,p_fname,'w',32767);

582: v_tags t_tags;
583: BEGIN
584: g_proc := g_package||'ReportExemp';
585: hr_utility.set_location('Entering:'|| g_proc, 10);
586: p_ascii_fp := utl_file.fopen(p_dir,p_fname,'w',32767);
587: WriteTagValues(p_exemp_rec,v_tags);
588: IF p_count = 1 THEN
589: WriteHeaderRow(p_ascii_fp,v_tags);
590: END IF;

Line 636: PROCEDURE WriteAsciivalues(p_l_fp utl_file.file_type,

632:
633: END WriteTagValues;
634:
635:
636: PROCEDURE WriteAsciivalues(p_l_fp utl_file.file_type,
637: p_tags t_tags)
638: IS
639: l_temp VARCHAR2(4000);
640: l_tot NUMBER;

Line 649: utl_file.put_line(p_l_fp,l_temp);

645: IF l_tot > 0 THEN
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);

Line 653: utl_file.put(p_l_fp,l_temp);

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);
655: END IF;
656: END LOOP;
657: END IF;

Line 666: PROCEDURE WriteHeaderRow(p_l_fp UTL_FILE.FILE_TYPE,

662:
663: ----------------------------------------------------------------------------
664: -- Writing the Header into FND Output file
665: -----------------------------------------------------------------------------
666: PROCEDURE WriteHeaderRow(p_l_fp UTL_FILE.FILE_TYPE,
667: p_tags T_TAGS)
668: IS
669: l_tot NUMBER;
670: l_temp VARCHAR2(1000);

Line 684: utl_file.put(p_l_fp,l_temp);

680: l_temp := p_tags(l_tags).tagname;
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);

Line 687: utl_file.new_line(p_l_fp);

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:
690: hr_utility.set_location('Leaving:'|| g_proc, 60);
691: