2172: l_data_migrator_mode varchar2(30);
2173: --
2174: begin
2175: --
2176: FND_FILE.NEW_LINE(FND_FILE.log, 1);
2177: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
2178: --
2179: open csr_get_release_name;
2180: fetch csr_get_release_name into l_release_name;
2173: --
2174: begin
2175: --
2176: FND_FILE.NEW_LINE(FND_FILE.log, 1);
2177: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
2178: --
2179: open csr_get_release_name;
2180: fetch csr_get_release_name into l_release_name;
2181: --
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');
2231: --
2232: --
2233: purge_parties();
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');
2231: --
2232: --
2233: purge_parties();
2234: --
2233: purge_parties();
2234: --
2235: commit;
2236: -- Log message
2237: FND_FILE.put_line(fnd_file.log,'End TCA process to identify/purge in HR tables');
2238: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'End TCA process to identify/purge in HR tables');
2239: --
2240: begin
2241: update hr_tca_party_unmerge
2234: --
2235: commit;
2236: -- Log message
2237: FND_FILE.put_line(fnd_file.log,'End TCA process to identify/purge in HR tables');
2238: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'End TCA process to identify/purge in HR tables');
2239: --
2240: begin
2241: update hr_tca_party_unmerge
2242: set status = 'PURGE COMPLETED'
2276: l_data_migrator_mode varchar2(30);
2277: --
2278: begin
2279: --
2280: FND_FILE.NEW_LINE(FND_FILE.log, 1);
2281: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
2282: --
2283: open chk_rows_exist;
2284: fetch chk_rows_exist into l_have_rows_topurge;
2277: --
2278: begin
2279: --
2280: FND_FILE.NEW_LINE(FND_FILE.log, 1);
2281: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
2282: --
2283: open chk_rows_exist;
2284: fetch chk_rows_exist into l_have_rows_topurge;
2285: close chk_rows_exist;
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');
2312: --
2313: --
2314: purge_parties();
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');
2312: --
2313: --
2314: purge_parties();
2315: --
2314: purge_parties();
2315: --
2316: commit;
2317: -- Log message
2318: FND_FILE.put_line(fnd_file.log,'End TCA process to identify/purge in HR tables');
2319: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'End TCA process to identify/purge in HR tables');
2320: --
2321: begin
2322: update hr_tca_party_unmerge
2315: --
2316: commit;
2317: -- Log message
2318: FND_FILE.put_line(fnd_file.log,'End TCA process to identify/purge in HR tables');
2319: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'End TCA process to identify/purge in HR tables');
2320: --
2321: begin
2322: update hr_tca_party_unmerge
2323: set status = 'PURGE COMPLETED'