1885: begin
1886:
1887: hr_utility.set_location('Entering : '||l_proc,10);
1888:
1889: /* Insert the details into HZ_PURGE_BATCHES.
1890: */
1891: hr_utility.set_location(l_proc,30);
1892: select hz_purge_batches_s.nextval
1893: into l_batchid
1888:
1889: /* Insert the details into HZ_PURGE_BATCHES.
1890: */
1891: hr_utility.set_location(l_proc,30);
1892: select hz_purge_batches_s.nextval
1893: into l_batchid
1894: from sys.dual;
1895:
1896: hr_utility.set_location(l_proc,40);
1893: into l_batchid
1894: from sys.dual;
1895:
1896: hr_utility.set_location(l_proc,40);
1897: insert into hz_purge_batches (batch_id,
1898: batch_name,
1899: subset_sql,
1900: creation_date,
1901: created_by,
1911:
1912: /* Process the batch and determine the candidate parties for the purge..
1913: */
1914: hr_utility.set_location(l_proc,50);
1915: hz_purge.identify_purge_parties(l_errbuf, l_retcode,
1916: to_char(l_batchid), 'N');
1917:
1918: if l_retcode = 2 then
1919: /*
1932: */
1933: l_errbuf := null;
1934: l_retcode := null;
1935: hr_utility.set_location(l_proc,60);
1936: hz_purge.purge_parties(l_errbuf, l_retcode, to_char(l_batchid), 'N');
1937:
1938: if l_retcode = 2 then
1939: /*
1940: ** The purge got an error, details of which are in l_errbuf.
2222: end;
2223:
2224: /*
2225: ** Process the set of parties which require removing from an HRMS
2226: ** perspective. This routine actually calls the HZ purge process.
2227: */
2228: -- Log message
2229: FND_FILE.put_line(fnd_file.log,'Begin TCA process to identify/purge in HR tables');
2230: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Begin HRMS process to identify/purge in HR tables');
2303: end;
2304:
2305: /*
2306: ** Process the set of parties which require removing from an HRMS
2307: ** perspective. This routine actually calls the HZ purge process.
2308: */
2309: -- Log message
2310: FND_FILE.put_line(fnd_file.log,'Begin TCA process to identify/purge in HR tables');
2311: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Begin HRMS process to identify/purge in HR tables');