[Home] [Help]
72: --
73: --
74: if l_request_data is not null then
75: --
76: fnd_file.put_line(fnd_file.log,'restart' );
77: --
78: l_call_status := fnd_concurrent.get_request_status(
79: request_id => l_request_data,
80: phase => l_phase,
195: */
196: --
197: IF l_prev_mig_successful = 'Y' THEN
198: --
199: FND_FILE.PUT_LINE(FND_FILE.LOG, 'For the selected business group, the migration has already completed successfully.');
200: FND_FILE.PUT_LINE(FND_FILE.LOG, 'You cannot repeat the migration process.');
201: --
202: -- mark the request as warning.
203: --
196: --
197: IF l_prev_mig_successful = 'Y' THEN
198: --
199: FND_FILE.PUT_LINE(FND_FILE.LOG, 'For the selected business group, the migration has already completed successfully.');
200: FND_FILE.PUT_LINE(FND_FILE.LOG, 'You cannot repeat the migration process.');
201: --
202: -- mark the request as warning.
203: --
204: retcode := 1;
205: --
206: ELSIF l_count1 = 0 OR l_count2 <> 0 THEN
207: --
208: --
209: FND_FILE.PUT_LINE(FND_FILE.LOG, 'You must map all Person DFF contexts that need migration');
210: FND_FILE.PUT_LINE(FND_FILE.LOG, 'before you start the migration process.');
211: --
212: -- Fix for bug 4018678. Mark the request as errored.
213: --
206: ELSIF l_count1 = 0 OR l_count2 <> 0 THEN
207: --
208: --
209: FND_FILE.PUT_LINE(FND_FILE.LOG, 'You must map all Person DFF contexts that need migration');
210: FND_FILE.PUT_LINE(FND_FILE.LOG, 'before you start the migration process.');
211: --
212: -- Fix for bug 4018678. Mark the request as errored.
213: --
214: retcode := 2;
215: --
216: /*
217: ELSIF l_count3 <> 0 THEN
218: --
219: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Person DFF data for all the Persons is already migrated.');
220: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No need to run the migration process again.');
221: --
222: */
223: ELSE
216: /*
217: ELSIF l_count3 <> 0 THEN
218: --
219: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Person DFF data for all the Persons is already migrated.');
220: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No need to run the migration process again.');
221: --
222: */
223: ELSE
224: --
1628: l_start number;
1629: --
1630: begin
1631: --
1632: fnd_file.put_line(fnd_file.log, rpad('-', 78, '-'));
1633: --
1634: l_start := 1;
1635: --
1636: -- In chunks of 75 characters per line add this
1640: --
1641: l_data := substr(p_data_str,l_start,75);
1642: l_start := l_start+75;
1643: exit when l_data is null;
1644: fnd_file.put_line(fnd_file.log,l_data);
1645: --
1646: END LOOP;
1647: --
1648: end write_log;
2191: WHERE PERSON_ID = l_mig_rec.person_id;
2192: --
2193: -- Maintain the log for success person IDs.
2194: --
2195: fnd_file.put_line(fnd_file.log, 'Successfully migrated the person DFF data.');
2196: --
2197: EXCEPTION
2198: --
2199: WHEN others THEN
2208: -- Maintain the log for the failure record.
2209: --
2210: -- Fix for bug 4012947. Corrected the following log message.
2211: --
2212: fnd_file.put_line(fnd_file.log, 'Failed migrating the person DFF data.');
2213: fnd_file.put_line(fnd_file.log, l_error_code||' '||l_error_desc);
2214: --
2215: -- Update if exists otherwise insert using the autonomous proc..
2216: --
2209: --
2210: -- Fix for bug 4012947. Corrected the following log message.
2211: --
2212: fnd_file.put_line(fnd_file.log, 'Failed migrating the person DFF data.');
2213: fnd_file.put_line(fnd_file.log, l_error_code||' '||l_error_desc);
2214: --
2215: -- Update if exists otherwise insert using the autonomous proc..
2216: --
2217: maintain_failed_people_data
2463: -- Summary Report in LOG file.
2464: --
2465: l_count := SQL%ROWCOUNT;
2466: --
2467: fnd_file.put_line (fnd_file.log, 'Context='||l_context_rec.PER_DFF_CONTEXT_FIELD_CODE||
2468: ' Records Updated= '||to_char(l_count));
2469: --
2470: END LOOP;
2471: --