DBA Data[Home] [Help]

APPS.EAM_GENEALOGY_IMPORT_PVT dependencies on FND_FILE

Line 41: fnd_file.put_line(FND_FILE.LOG, 'Completed Successfully.');

37: l_retcode := import_genealogy(p_batch_id, p_purge_option);
38:
39: if l_retcode = 1 then
40: IF G_DEBUG = 'Y' THEN
41: fnd_file.put_line(FND_FILE.LOG, 'Completed Successfully.');
42: fnd_file.put_line(FND_FILE.LOG, Current_Error_Code);
43: END IF;
44: RETCODE := 'Success';
45: CONC_STATUS := FND_CONCURRENT.SET_COMPLETION_STATUS('NORMAL',Current_Error_Code);

Line 42: fnd_file.put_line(FND_FILE.LOG, Current_Error_Code);

38:
39: if l_retcode = 1 then
40: IF G_DEBUG = 'Y' THEN
41: fnd_file.put_line(FND_FILE.LOG, 'Completed Successfully.');
42: fnd_file.put_line(FND_FILE.LOG, Current_Error_Code);
43: END IF;
44: RETCODE := 'Success';
45: CONC_STATUS := FND_CONCURRENT.SET_COMPLETION_STATUS('NORMAL',Current_Error_Code);
46: elsif l_retcode = 3 then

Line 48: fnd_file.put_line(FND_FILE.LOG, 'Completed with Warning.');

44: RETCODE := 'Success';
45: CONC_STATUS := FND_CONCURRENT.SET_COMPLETION_STATUS('NORMAL',Current_Error_Code);
46: elsif l_retcode = 3 then
47: IF G_DEBUG = 'Y' THEN
48: fnd_file.put_line(FND_FILE.LOG, 'Completed with Warning.');
49: fnd_file.put_line(FND_FILE.LOG, Current_Error_Code);
50: END IF;
51: RETCODE := 'Warning';
52: CONC_STATUS := FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING',Current_Error_Code);

Line 49: fnd_file.put_line(FND_FILE.LOG, Current_Error_Code);

45: CONC_STATUS := FND_CONCURRENT.SET_COMPLETION_STATUS('NORMAL',Current_Error_Code);
46: elsif l_retcode = 3 then
47: IF G_DEBUG = 'Y' THEN
48: fnd_file.put_line(FND_FILE.LOG, 'Completed with Warning.');
49: fnd_file.put_line(FND_FILE.LOG, Current_Error_Code);
50: END IF;
51: RETCODE := 'Warning';
52: CONC_STATUS := FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING',Current_Error_Code);
53: else

Line 55: fnd_file.put_line(FND_FILE.LOG, 'Completed with Error.');

51: RETCODE := 'Warning';
52: CONC_STATUS := FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING',Current_Error_Code);
53: else
54: IF G_DEBUG = 'Y' THEN
55: fnd_file.put_line(FND_FILE.LOG, 'Completed with Error.');
56: fnd_file.put_line(FND_FILE.LOG, Current_Error_Code);
57: END IF;
58: RETCODE := 'Error';
59: CONC_STATUS := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',Current_Error_Code);

Line 56: fnd_file.put_line(FND_FILE.LOG, Current_Error_Code);

52: CONC_STATUS := FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING',Current_Error_Code);
53: else
54: IF G_DEBUG = 'Y' THEN
55: fnd_file.put_line(FND_FILE.LOG, 'Completed with Error.');
56: fnd_file.put_line(FND_FILE.LOG, Current_Error_Code);
57: END IF;
58: RETCODE := 'Error';
59: CONC_STATUS := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',Current_Error_Code);
60: end if;

Line 76: fnd_file.put_line(FND_FILE.LOG, 'Submitting Import Worker '||p_group_id

72: l_request_id NUMBER := 0;
73: BEGIN
74:
75: IF G_DEBUG = 'Y' THEN
76: fnd_file.put_line(FND_FILE.LOG, 'Submitting Import Worker '||p_group_id
77: || ' to process ' || p_count || ' genealogy');
78: END IF;
79:
80: COMMIT;

Line 104: fnd_file.put_line(FND_FILE.LOG, 'Failed to Launch the Process.');

100: AND mogi.group_id = p_group_id;
101: COMMIT;
102:
103: IF G_DEBUG = 'Y' THEN
104: fnd_file.put_line(FND_FILE.LOG, 'Failed to Launch the Process.');
105: fnd_file.new_line(FND_FILE.LOG,1);
106: END IF;
107:
108: RAISE fnd_api.g_exc_error;

Line 105: fnd_file.new_line(FND_FILE.LOG,1);

101: COMMIT;
102:
103: IF G_DEBUG = 'Y' THEN
104: fnd_file.put_line(FND_FILE.LOG, 'Failed to Launch the Process.');
105: fnd_file.new_line(FND_FILE.LOG,1);
106: END IF;
107:
108: RAISE fnd_api.g_exc_error;
109: ELSE

Line 111: fnd_file.put_line(FND_FILE.LOG, 'Import Worker '||p_group_id||' successfully submitted.');

107:
108: RAISE fnd_api.g_exc_error;
109: ELSE
110: IF G_DEBUG = 'Y' THEN
111: fnd_file.put_line(FND_FILE.LOG, 'Import Worker '||p_group_id||' successfully submitted.');
112: fnd_file.new_line(FND_FILE.LOG,1);
113: END IF;
114: END IF;
115: END Launch_Worker;

Line 112: fnd_file.new_line(FND_FILE.LOG,1);

108: RAISE fnd_api.g_exc_error;
109: ELSE
110: IF G_DEBUG = 'Y' THEN
111: fnd_file.put_line(FND_FILE.LOG, 'Import Worker '||p_group_id||' successfully submitted.');
112: fnd_file.new_line(FND_FILE.LOG,1);
113: END IF;
114: END IF;
115: END Launch_Worker;
116:

Line 163: fnd_file.put_line(FND_FILE.LOG,'Batch Id = '||p_batch_id);

159:
160: BEGIN
161:
162: IF G_DEBUG = 'Y' THEN
163: fnd_file.put_line(FND_FILE.LOG,'Batch Id = '||p_batch_id);
164: fnd_file.put_line(FND_FILE.LOG,'Purge Option = '||p_purge_option);
165: fnd_file.put_line(FND_FILE.LOG,'Max Rows to process = '||l_max_rows_to_process);
166: fnd_file.new_line(FND_FILE.LOG, 1);
167: END IF;

Line 164: fnd_file.put_line(FND_FILE.LOG,'Purge Option = '||p_purge_option);

160: BEGIN
161:
162: IF G_DEBUG = 'Y' THEN
163: fnd_file.put_line(FND_FILE.LOG,'Batch Id = '||p_batch_id);
164: fnd_file.put_line(FND_FILE.LOG,'Purge Option = '||p_purge_option);
165: fnd_file.put_line(FND_FILE.LOG,'Max Rows to process = '||l_max_rows_to_process);
166: fnd_file.new_line(FND_FILE.LOG, 1);
167: END IF;
168:

Line 165: fnd_file.put_line(FND_FILE.LOG,'Max Rows to process = '||l_max_rows_to_process);

161:
162: IF G_DEBUG = 'Y' THEN
163: fnd_file.put_line(FND_FILE.LOG,'Batch Id = '||p_batch_id);
164: fnd_file.put_line(FND_FILE.LOG,'Purge Option = '||p_purge_option);
165: fnd_file.put_line(FND_FILE.LOG,'Max Rows to process = '||l_max_rows_to_process);
166: fnd_file.new_line(FND_FILE.LOG, 1);
167: END IF;
168:
169:

Line 166: fnd_file.new_line(FND_FILE.LOG, 1);

162: IF G_DEBUG = 'Y' THEN
163: fnd_file.put_line(FND_FILE.LOG,'Batch Id = '||p_batch_id);
164: fnd_file.put_line(FND_FILE.LOG,'Purge Option = '||p_purge_option);
165: fnd_file.put_line(FND_FILE.LOG,'Max Rows to process = '||l_max_rows_to_process);
166: fnd_file.new_line(FND_FILE.LOG, 1);
167: END IF;
168:
169:
170: -- Validate Mode Values:

Line 175: fnd_file.put_line(FND_FILE.LOG,'Validating Mode Values.');

171: -- 0: Create
172: -- 1: Update
173:
174: IF G_DEBUG = 'Y' THEN
175: fnd_file.put_line(FND_FILE.LOG,'Validating Mode Values.');
176: END IF;
177:
178: UPDATE mtl_object_genealogy_interface mogi
179: SET mogi.process_status = 'E',

Line 189: fnd_file.put_line(FND_FILE.LOG, 'Validating Genealogy Origin');

185:
186:
187: -- validate that the genealogy origin of all entries is 3
188: IF G_DEBUG = 'Y' THEN
189: fnd_file.put_line(FND_FILE.LOG, 'Validating Genealogy Origin');
190: END IF;
191:
192: UPDATE MTL_OBJECT_GENEALOGY_INTERFACE
193: SET process_status = 'E',

Line 202: fnd_file.put_line(FND_FILE.LOG,'Validating Object Type');

198: and process_status = 'P';
199:
200: -- validate that the object type of all entries is 2
201: IF G_DEBUG = 'Y' THEN
202: fnd_file.put_line(FND_FILE.LOG,'Validating Object Type');
203: END IF;
204:
205: UPDATE MTL_OBJECT_GENEALOGY_INTERFACE
206: SET process_status = 'E',

Line 218: fnd_file.put_line(FND_FILE.LOG,'Validating Genealogy Type');

214: COMMIT;
215:
216: -- validate that the genealogy type of all entries is 5
217: IF G_DEBUG = 'Y' THEN
218: fnd_file.put_line(FND_FILE.LOG,'Validating Genealogy Type');
219: END IF;
220:
221: UPDATE MTL_OBJECT_GENEALOGY_INTERFACE
222: SET process_status = 'E',

Line 250: fnd_file.put_line(FND_FILE.LOG,'Validating Organization Code.');

246: -- Validate Organization Code:
247: -- If both organization_code and organization_id is provided, organization_id will be used.
248:
249: IF G_DEBUG = 'Y' THEN
250: fnd_file.put_line(FND_FILE.LOG,'Validating Organization Code.');
251: fnd_file.new_line(FND_FILE.LOG,1);
252: END IF;
253:
254:

Line 251: fnd_file.new_line(FND_FILE.LOG,1);

247: -- If both organization_code and organization_id is provided, organization_id will be used.
248:
249: IF G_DEBUG = 'Y' THEN
250: fnd_file.put_line(FND_FILE.LOG,'Validating Organization Code.');
251: fnd_file.new_line(FND_FILE.LOG,1);
252: END IF;
253:
254:
255: UPDATE mtl_object_genealogy_interface mogi

Line 285: fnd_file.put_line(FND_FILE.LOG,'Validating Parent Organization Code.');

281: -- Validate Parent Organization Code:
282: -- If both organization_code and organization_id is provided, organization_id will be used.
283:
284: IF G_DEBUG = 'Y' THEN
285: fnd_file.put_line(FND_FILE.LOG,'Validating Parent Organization Code.');
286: fnd_file.new_line(FND_FILE.LOG,1);
287: END IF;
288:
289: UPDATE mtl_object_genealogy_interface mogi

Line 286: fnd_file.new_line(FND_FILE.LOG,1);

282: -- If both organization_code and organization_id is provided, organization_id will be used.
283:
284: IF G_DEBUG = 'Y' THEN
285: fnd_file.put_line(FND_FILE.LOG,'Validating Parent Organization Code.');
286: fnd_file.new_line(FND_FILE.LOG,1);
287: END IF;
288:
289: UPDATE mtl_object_genealogy_interface mogi
290: SET parent_organization_code= (select organization_code from mtl_parameters

Line 320: fnd_file.put_line(FND_FILE.LOG,'Validating Parent Organization Id.');

316: -- Validate Parent Organization Code:
317: -- If both organization_code and organization_id is provided, organization_id will be used.
318:
319: IF G_DEBUG = 'Y' THEN
320: fnd_file.put_line(FND_FILE.LOG,'Validating Parent Organization Id.');
321: fnd_file.new_line(FND_FILE.LOG,1);
322: END IF;
323:
324: UPDATE mtl_object_genealogy_interface mogi

Line 321: fnd_file.new_line(FND_FILE.LOG,1);

317: -- If both organization_code and organization_id is provided, organization_id will be used.
318:
319: IF G_DEBUG = 'Y' THEN
320: fnd_file.put_line(FND_FILE.LOG,'Validating Parent Organization Id.');
321: fnd_file.new_line(FND_FILE.LOG,1);
322: END IF;
323:
324: UPDATE mtl_object_genealogy_interface mogi
325: SET object_id = (select gen_object_id from mtl_serial_numbers

Line 349: fnd_file.put_line(FND_FILE.LOG, 'Start record pre-processing. Time now is ' ||

345: AND process_status = 'P';
346:
347:
348: IF G_DEBUG = 'Y' THEN
349: fnd_file.put_line(FND_FILE.LOG, 'Start record pre-processing. Time now is ' ||
350: to_char(sysdate, 'Month DD, YYYY HH24:MI:SS'));
351: END IF;
352:
353: FOR genealogy IN genealogy_rows_cur

Line 393: fnd_file.new_line(FND_FILE.LOG,1);

389: l_num_workers := l_num_workers + 1;
390: end if;
391:
392: IF G_DEBUG = 'Y' THEN
393: fnd_file.new_line(FND_FILE.LOG,1);
394:
395: fnd_file.put_line(FND_FILE.LOG, 'Stop record pre-processing. Time now is ' ||
396: to_char(sysdate, 'Month DD, YYYY HH24:MI:SS'));
397: fnd_file.new_line(FND_FILE.LOG,1);

Line 395: fnd_file.put_line(FND_FILE.LOG, 'Stop record pre-processing. Time now is ' ||

391:
392: IF G_DEBUG = 'Y' THEN
393: fnd_file.new_line(FND_FILE.LOG,1);
394:
395: fnd_file.put_line(FND_FILE.LOG, 'Stop record pre-processing. Time now is ' ||
396: to_char(sysdate, 'Month DD, YYYY HH24:MI:SS'));
397: fnd_file.new_line(FND_FILE.LOG,1);
398: END IF;
399:

Line 397: fnd_file.new_line(FND_FILE.LOG,1);

393: fnd_file.new_line(FND_FILE.LOG,1);
394:
395: fnd_file.put_line(FND_FILE.LOG, 'Stop record pre-processing. Time now is ' ||
396: to_char(sysdate, 'Month DD, YYYY HH24:MI:SS'));
397: fnd_file.new_line(FND_FILE.LOG,1);
398: END IF;
399:
400: IF G_DEBUG = 'Y' THEN
401: fnd_file.put_line(FND_FILE.LOG, l_num_workers ||' Import Workers are processing '

Line 401: fnd_file.put_line(FND_FILE.LOG, l_num_workers ||' Import Workers are processing '

397: fnd_file.new_line(FND_FILE.LOG,1);
398: END IF;
399:
400: IF G_DEBUG = 'Y' THEN
401: fnd_file.put_line(FND_FILE.LOG, l_num_workers ||' Import Workers are processing '
402: ||l_num_genealogy_to_workers || ' Genealogy');
403: END IF;
404:
405: if not (l_num_genealogy_to_workers = l_num_genealogy) then

Line 407: fnd_file.put_line(FND_FILE.LOG, 'WARNING: There is a discrepancy. Total Genealogy ('

403: END IF;
404:
405: if not (l_num_genealogy_to_workers = l_num_genealogy) then
406: IF G_DEBUG = 'Y' THEN
407: fnd_file.put_line(FND_FILE.LOG, 'WARNING: There is a discrepancy. Total Genealogy ('
408: || l_num_genealogy || ') does not match total given to workers ('
409: || l_num_genealogy_to_workers || ')');
410: fnd_file.new_line(FND_FILE.LOG,1);
411:

Line 410: fnd_file.new_line(FND_FILE.LOG,1);

406: IF G_DEBUG = 'Y' THEN
407: fnd_file.put_line(FND_FILE.LOG, 'WARNING: There is a discrepancy. Total Genealogy ('
408: || l_num_genealogy || ') does not match total given to workers ('
409: || l_num_genealogy_to_workers || ')');
410: fnd_file.new_line(FND_FILE.LOG,1);
411:
412: END IF;
413:
414: end if;

Line 429: fnd_file.put_line(FND_FILE.LOG, error_number);

425: error_number := SQLCODE;
426: error_message := SUBSTR(SQLERRM, 1, 512);
427:
428: IF G_DEBUG = 'Y' THEN
429: fnd_file.put_line(FND_FILE.LOG, error_number);
430: fnd_file.put_line(FND_FILE.LOG, error_message);
431: fnd_file.new_line(FND_FILE.LOG,1);
432: END IF;
433:

Line 430: fnd_file.put_line(FND_FILE.LOG, error_message);

426: error_message := SUBSTR(SQLERRM, 1, 512);
427:
428: IF G_DEBUG = 'Y' THEN
429: fnd_file.put_line(FND_FILE.LOG, error_number);
430: fnd_file.put_line(FND_FILE.LOG, error_message);
431: fnd_file.new_line(FND_FILE.LOG,1);
432: END IF;
433:
434:

Line 431: fnd_file.new_line(FND_FILE.LOG,1);

427:
428: IF G_DEBUG = 'Y' THEN
429: fnd_file.put_line(FND_FILE.LOG, error_number);
430: fnd_file.put_line(FND_FILE.LOG, error_message);
431: fnd_file.new_line(FND_FILE.LOG,1);
432: END IF;
433:
434:
435: COMMIT;

Line 446: fnd_file.put_line(FND_FILE.LOG, error_number);

442: error_number := SQLCODE;
443: error_message := SUBSTR(SQLERRM, 1, 512);
444:
445: IF G_DEBUG = 'Y' THEN
446: fnd_file.put_line(FND_FILE.LOG, error_number);
447: fnd_file.put_line(FND_FILE.LOG, error_message);
448: fnd_file.new_line(FND_FILE.LOG,1);
449: END IF;
450:

Line 447: fnd_file.put_line(FND_FILE.LOG, error_message);

443: error_message := SUBSTR(SQLERRM, 1, 512);
444:
445: IF G_DEBUG = 'Y' THEN
446: fnd_file.put_line(FND_FILE.LOG, error_number);
447: fnd_file.put_line(FND_FILE.LOG, error_message);
448: fnd_file.new_line(FND_FILE.LOG,1);
449: END IF;
450:
451: COMMIT;

Line 448: fnd_file.new_line(FND_FILE.LOG,1);

444:
445: IF G_DEBUG = 'Y' THEN
446: fnd_file.put_line(FND_FILE.LOG, error_number);
447: fnd_file.put_line(FND_FILE.LOG, error_message);
448: fnd_file.new_line(FND_FILE.LOG,1);
449: END IF;
450:
451: COMMIT;
452: Return l_success;