DBA Data[Home] [Help]

APPS.JTF_FM_HISTORY_UTIL_PVT dependencies on FND_FILE

Line 80: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);

76: l_message VARCHAR2(4000);
77: e_error_found EXCEPTION;
78: BEGIN
79: l_message := 'Starting the purge program....';
80: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
81:
82: l_message := 'Requests processed on or prior to '||TO_CHAR((SYSDATE - p_data_age), 'DD-MON-RRRR')||' will be purged.';
83: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
84:

Line 83: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);

79: l_message := 'Starting the purge program....';
80: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
81:
82: l_message := 'Requests processed on or prior to '||TO_CHAR((SYSDATE - p_data_age), 'DD-MON-RRRR')||' will be purged.';
83: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
84:
85: l_message := '';
86: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
87:

Line 86: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);

82: l_message := 'Requests processed on or prior to '||TO_CHAR((SYSDATE - p_data_age), 'DD-MON-RRRR')||' will be purged.';
83: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
84:
85: l_message := '';
86: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
87:
88: FOR c_header_record IN c_headers
89: LOOP
90: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);

Line 90: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);

86: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
87:
88: FOR c_header_record IN c_headers
89: LOOP
90: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);
91: l_message := 'Starting purging for request ID: '|| c_header_record.request_id ||' (Last Updated On: '|| TO_CHAR(c_header_record.last_update_date, 'DD-MON-RRRR') ||')';
92: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
93:
94: BEGIN

Line 92: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);

88: FOR c_header_record IN c_headers
89: LOOP
90: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);
91: l_message := 'Starting purging for request ID: '|| c_header_record.request_id ||' (Last Updated On: '|| TO_CHAR(c_header_record.last_update_date, 'DD-MON-RRRR') ||')';
92: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
93:
94: BEGIN
95: SAVEPOINT before_delete;
96: delete_processed ( p_request_id => c_header_record.request_id

Line 149: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);

145: EXCEPTION
146: WHEN e_error_found
147: THEN
148: ROLLBACK TO before_delete;
149: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
150: x_return_code := 2;
151: x_error_buffer := SQLERRM;
152: END;
153:

Line 155: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);

151: x_error_buffer := SQLERRM;
152: END;
153:
154: l_message := 'Ending purging for request ID: '|| c_header_record.request_id;
155: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
156: END LOOP;
157:
158: l_message := 'Purging funished.';
159: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);

Line 159: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);

155: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
156: END LOOP;
157:
158: l_message := 'Purging funished.';
159: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
160: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
161:
162:
163: x_return_code := 0;

Line 160: FND_FILE.PUT_LINE(FND_FILE.LOG, '');

156: END LOOP;
157:
158: l_message := 'Purging funished.';
159: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
160: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
161:
162:
163: x_return_code := 0;
164: EXCEPTION

Line 196: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);

192:
193: l_count := SQL%ROWCOUNT;
194:
195: l_message := RPAD('JTF_FM_REQUEST_CONTENTS table, records purged: ', 60, ' ') || l_count;
196: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
197:
198: x_return_status := FND_API.G_RET_STS_SUCCESS;
199: EXCEPTION
200: WHEN OTHERS

Line 230: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);

226:
227: l_count := SQL%ROWCOUNT;
228:
229: l_message := RPAD('JTF_FM_PROCESSED table, records purged: ', 60, ' ') || l_count;
230: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
231:
232: x_return_status := FND_API.G_RET_STS_SUCCESS;
233: EXCEPTION
234: WHEN OTHERS

Line 264: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);

260:
261: l_count := SQL%ROWCOUNT;
262:
263: l_message := RPAD('JTF_FM_CONTENT_FAILURES table, records purged: ', 60, ' ') || l_count;
264: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
265:
266: x_return_status := FND_API.G_RET_STS_SUCCESS;
267: EXCEPTION
268: WHEN OTHERS

Line 298: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);

294:
295: l_count := SQL%ROWCOUNT;
296:
297: l_message := RPAD('JTF_FM_EMAIL_STAT table, records purged: ', 60, ' ') || l_count;
298: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
299:
300: x_return_status := FND_API.G_RET_STS_SUCCESS;
301: EXCEPTION
302: WHEN OTHERS

Line 332: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);

328:
329: l_count := SQL%ROWCOUNT;
330:
331: l_message := RPAD('JTF_FM_REQUEST_HISTORY table, records purged: ', 60, ' ') || l_count;
332: FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
333:
334: x_return_status := FND_API.G_RET_STS_SUCCESS;
335: EXCEPTION
336: WHEN OTHERS

Line 390: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Starting purge program.....');

386: , x_num_workers => p_num_workers
387: , x_argument4 => l_conc_request_id
388: );
389:
390: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Starting purge program.....');
391: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Requests processed on or prior to '||TO_CHAR((SYSDATE - p_data_age), 'DD-MON-RRRR')||' will be purged.');
392: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);
393:
394: l_children_done := FND_CONCURRENT.children_done ( parent_request_id => l_conc_request_id

Line 391: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Requests processed on or prior to '||TO_CHAR((SYSDATE - p_data_age), 'DD-MON-RRRR')||' will be purged.');

387: , x_argument4 => l_conc_request_id
388: );
389:
390: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Starting purge program.....');
391: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Requests processed on or prior to '||TO_CHAR((SYSDATE - p_data_age), 'DD-MON-RRRR')||' will be purged.');
392: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);
393:
394: l_children_done := FND_CONCURRENT.children_done ( parent_request_id => l_conc_request_id
395: , recursive_flag => 'N'

Line 392: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);

388: );
389:
390: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Starting purge program.....');
391: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Requests processed on or prior to '||TO_CHAR((SYSDATE - p_data_age), 'DD-MON-RRRR')||' will be purged.');
392: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);
393:
394: l_children_done := FND_CONCURRENT.children_done ( parent_request_id => l_conc_request_id
395: , recursive_flag => 'N'
396: , interval => 15

Line 411: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);

407: ORDER BY hist_req_id ASC;
408: TYPE typ_request_id IS TABLE OF jtf_fm_request_history_all.hist_req_id%TYPE;
409: tab_request_id typ_request_id;
410: BEGIN
411: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);
412: FND_FILE.PUT_LINE(FND_FILE.LOG, 'JTF_FM_PROCESSED table purged.');
413: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Starting purging of other child tables....');
414:
415: OPEN c_history_id;

Line 412: FND_FILE.PUT_LINE(FND_FILE.LOG, 'JTF_FM_PROCESSED table purged.');

408: TYPE typ_request_id IS TABLE OF jtf_fm_request_history_all.hist_req_id%TYPE;
409: tab_request_id typ_request_id;
410: BEGIN
411: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);
412: FND_FILE.PUT_LINE(FND_FILE.LOG, 'JTF_FM_PROCESSED table purged.');
413: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Starting purging of other child tables....');
414:
415: OPEN c_history_id;
416: LOOP

Line 413: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Starting purging of other child tables....');

409: tab_request_id typ_request_id;
410: BEGIN
411: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);
412: FND_FILE.PUT_LINE(FND_FILE.LOG, 'JTF_FM_PROCESSED table purged.');
413: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Starting purging of other child tables....');
414:
415: OPEN c_history_id;
416: LOOP
417: FETCH c_history_id BULK COLLECT INTO tab_request_id LIMIT 1000;

Line 457: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);

453: ;
454:
455: COMMIT;
456:
457: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
458:
459: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Number of Requests Purged: '|| l_count);
460:
461: EXCEPTION

Line 459: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Number of Requests Purged: '|| l_count);

455: COMMIT;
456:
457: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
458:
459: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Number of Requests Purged: '|| l_count);
460:
461: EXCEPTION
462: WHEN OTHERS
463: THEN

Line 531: FND_FILE.PUT_LINE( FND_FILE.LOG, 'X_Worker_Id: '|| x_worker_id );

527: THEN
528: RAISE_APPLICATION_ERROR(-20001, 'Cannot get schema name for product: '|| l_product );
529: END IF;
530:
531: FND_FILE.PUT_LINE( FND_FILE.LOG, 'X_Worker_Id: '|| x_worker_id );
532: FND_FILE.PUT_LINE( FND_FILE.LOG, 'X_Num_Workers: '|| x_num_workers );
533:
534: l_update_name := x_argument4;
535:

Line 532: FND_FILE.PUT_LINE( FND_FILE.LOG, 'X_Num_Workers: '|| x_num_workers );

528: RAISE_APPLICATION_ERROR(-20001, 'Cannot get schema name for product: '|| l_product );
529: END IF;
530:
531: FND_FILE.PUT_LINE( FND_FILE.LOG, 'X_Worker_Id: '|| x_worker_id );
532: FND_FILE.PUT_LINE( FND_FILE.LOG, 'X_Num_Workers: '|| x_num_workers );
533:
534: l_update_name := x_argument4;
535:
536: