110: x_return_status := FND_API.G_RET_STS_SUCCESS;
111:
112: --logging the input parameters
113:
114: IF FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level
115: THEN
116: FND_LOG.String
117: (
118: FND_LOG.level_procedure
112: --logging the input parameters
113:
114: IF FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level
115: THEN
116: FND_LOG.String
117: (
118: FND_LOG.level_procedure
119: , L_LOG_MODULE || 'start_time'
120: , 'The start time is ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI:SS')
114: IF FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level
115: THEN
116: FND_LOG.String
117: (
118: FND_LOG.level_procedure
119: , L_LOG_MODULE || 'start_time'
120: , 'The start time is ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI:SS')
121: );
122: FND_LOG.String
118: FND_LOG.level_procedure
119: , L_LOG_MODULE || 'start_time'
120: , 'The start time is ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI:SS')
121: );
122: FND_LOG.String
123: (
124: FND_LOG.level_procedure
125: , L_LOG_MODULE || 'start'
126: , 'Inside ' || L_API_NAME_FULL || ', called with parameters below:'
120: , 'The start time is ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI:SS')
121: );
122: FND_LOG.String
123: (
124: FND_LOG.level_procedure
125: , L_LOG_MODULE || 'start'
126: , 'Inside ' || L_API_NAME_FULL || ', called with parameters below:'
127: );
128: FND_LOG.String
124: FND_LOG.level_procedure
125: , L_LOG_MODULE || 'start'
126: , 'Inside ' || L_API_NAME_FULL || ', called with parameters below:'
127: );
128: FND_LOG.String
129: (
130: FND_LOG.level_procedure
131: , L_LOG_MODULE || 'param 1'
132: , 'errbuf:' || errbuf
126: , 'Inside ' || L_API_NAME_FULL || ', called with parameters below:'
127: );
128: FND_LOG.String
129: (
130: FND_LOG.level_procedure
131: , L_LOG_MODULE || 'param 1'
132: , 'errbuf:' || errbuf
133: );
134: FND_LOG.String
130: FND_LOG.level_procedure
131: , L_LOG_MODULE || 'param 1'
132: , 'errbuf:' || errbuf
133: );
134: FND_LOG.String
135: (
136: FND_LOG.level_procedure
137: , L_LOG_MODULE || 'param 2'
138: , 'errcode:' || errcode
132: , 'errbuf:' || errbuf
133: );
134: FND_LOG.String
135: (
136: FND_LOG.level_procedure
137: , L_LOG_MODULE || 'param 2'
138: , 'errcode:' || errcode
139: );
140: FND_LOG.String
136: FND_LOG.level_procedure
137: , L_LOG_MODULE || 'param 2'
138: , 'errcode:' || errcode
139: );
140: FND_LOG.String
141: (
142: FND_LOG.level_procedure
143: , L_LOG_MODULE || 'param 3'
144: , 'p_api_version_number:' || p_api_version_number
138: , 'errcode:' || errcode
139: );
140: FND_LOG.String
141: (
142: FND_LOG.level_procedure
143: , L_LOG_MODULE || 'param 3'
144: , 'p_api_version_number:' || p_api_version_number
145: );
146: FND_LOG.String
142: FND_LOG.level_procedure
143: , L_LOG_MODULE || 'param 3'
144: , 'p_api_version_number:' || p_api_version_number
145: );
146: FND_LOG.String
147: (
148: FND_LOG.level_procedure
149: , L_LOG_MODULE || 'param 4'
150: , 'p_init_msg_list:' || p_init_msg_list
144: , 'p_api_version_number:' || p_api_version_number
145: );
146: FND_LOG.String
147: (
148: FND_LOG.level_procedure
149: , L_LOG_MODULE || 'param 4'
150: , 'p_init_msg_list:' || p_init_msg_list
151: );
152: FND_LOG.String
148: FND_LOG.level_procedure
149: , L_LOG_MODULE || 'param 4'
150: , 'p_init_msg_list:' || p_init_msg_list
151: );
152: FND_LOG.String
153: (
154: FND_LOG.level_procedure
155: , L_LOG_MODULE || 'param 5'
156: , 'p_commit:' || p_commit
150: , 'p_init_msg_list:' || p_init_msg_list
151: );
152: FND_LOG.String
153: (
154: FND_LOG.level_procedure
155: , L_LOG_MODULE || 'param 5'
156: , 'p_commit:' || p_commit
157: );
158: FND_LOG.String
154: FND_LOG.level_procedure
155: , L_LOG_MODULE || 'param 5'
156: , 'p_commit:' || p_commit
157: );
158: FND_LOG.String
159: (
160: FND_LOG.level_procedure
161: , L_LOG_MODULE || 'param 6'
162: , 'p_validation_level:' || p_validation_level
156: , 'p_commit:' || p_commit
157: );
158: FND_LOG.String
159: (
160: FND_LOG.level_procedure
161: , L_LOG_MODULE || 'param 6'
162: , 'p_validation_level:' || p_validation_level
163: );
164: FND_LOG.String
160: FND_LOG.level_procedure
161: , L_LOG_MODULE || 'param 6'
162: , 'p_validation_level:' || p_validation_level
163: );
164: FND_LOG.String
165: (
166: FND_LOG.level_procedure
167: , L_LOG_MODULE || 'param 7'
168: , 'p_creation_from_date' ||p_creation_from_date
162: , 'p_validation_level:' || p_validation_level
163: );
164: FND_LOG.String
165: (
166: FND_LOG.level_procedure
167: , L_LOG_MODULE || 'param 7'
168: , 'p_creation_from_date' ||p_creation_from_date
169: );
170: FND_LOG.String
166: FND_LOG.level_procedure
167: , L_LOG_MODULE || 'param 7'
168: , 'p_creation_from_date' ||p_creation_from_date
169: );
170: FND_LOG.String
171: (
172: FND_LOG.level_procedure
173: , L_LOG_MODULE || 'param 8'
174: , 'p_creation_to_date' ||p_creation_to_date
168: , 'p_creation_from_date' ||p_creation_from_date
169: );
170: FND_LOG.String
171: (
172: FND_LOG.level_procedure
173: , L_LOG_MODULE || 'param 8'
174: , 'p_creation_to_date' ||p_creation_to_date
175: );
176: FND_LOG.String
172: FND_LOG.level_procedure
173: , L_LOG_MODULE || 'param 8'
174: , 'p_creation_to_date' ||p_creation_to_date
175: );
176: FND_LOG.String
177: (
178: FND_LOG.level_procedure
179: , L_LOG_MODULE || 'param 9'
180: , 'p_sr_status:' || p_sr_status
174: , 'p_creation_to_date' ||p_creation_to_date
175: );
176: FND_LOG.String
177: (
178: FND_LOG.level_procedure
179: , L_LOG_MODULE || 'param 9'
180: , 'p_sr_status:' || p_sr_status
181: );
182: FND_LOG.String
178: FND_LOG.level_procedure
179: , L_LOG_MODULE || 'param 9'
180: , 'p_sr_status:' || p_sr_status
181: );
182: FND_LOG.String
183: (
184: FND_LOG.level_procedure
185: , L_LOG_MODULE || 'param 10'
186: , 'p_number_of_workers:' || p_number_of_workers
180: , 'p_sr_status:' || p_sr_status
181: );
182: FND_LOG.String
183: (
184: FND_LOG.level_procedure
185: , L_LOG_MODULE || 'param 10'
186: , 'p_number_of_workers:' || p_number_of_workers
187: );
188: FND_LOG.String
184: FND_LOG.level_procedure
185: , L_LOG_MODULE || 'param 10'
186: , 'p_number_of_workers:' || p_number_of_workers
187: );
188: FND_LOG.String
189: (
190: FND_LOG.level_procedure
191: , L_LOG_MODULE || 'param 11'
192: , 'p_cost_batch_size:' ||p_cost_batch_size
186: , 'p_number_of_workers:' || p_number_of_workers
187: );
188: FND_LOG.String
189: (
190: FND_LOG.level_procedure
191: , L_LOG_MODULE || 'param 11'
192: , 'p_cost_batch_size:' ||p_cost_batch_size
193: );
194: END IF;
216: END IF ;
217:
218: ---
219:
220: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
221: THEN
222: FND_LOG.String
223: (
224: FND_LOG.level_statement
218: ---
219:
220: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
221: THEN
222: FND_LOG.String
223: (
224: FND_LOG.level_statement
225: , L_LOG_MODULE || 'get_request_info_start'
226: , 'Getting Current Concurrent Request ID '
220: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
221: THEN
222: FND_LOG.String
223: (
224: FND_LOG.level_statement
225: , L_LOG_MODULE || 'get_request_info_start'
226: , 'Getting Current Concurrent Request ID '
227: );
228: END IF;
249: -- that the request is started newly.
250:
251:
252:
253: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
254: THEN
255: FND_LOG.String
256: (
257: FND_LOG.level_statement
251:
252:
253: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
254: THEN
255: FND_LOG.String
256: (
257: FND_LOG.level_statement
258: , L_LOG_MODULE || 'cleanup_start'
259: , 'deleting rows in staging table that were not cleared earlier'
253: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
254: THEN
255: FND_LOG.String
256: (
257: FND_LOG.level_statement
258: , L_LOG_MODULE || 'cleanup_start'
259: , 'deleting rows in staging table that were not cleared earlier'
260: );
261: END IF;
285:
286: l_row_count := SQL%ROWCOUNT;
287:
288:
289: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
290: THEN
291: FND_LOG.String
292: (
293: FND_LOG.level_statement
287:
288:
289: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
290: THEN
291: FND_LOG.String
292: (
293: FND_LOG.level_statement
294: , L_LOG_MODULE || 'cleanup_end'
295: , 'after deleting rows in staging table that were not cleared earlier '
289: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
290: THEN
291: FND_LOG.String
292: (
293: FND_LOG.level_statement
294: , L_LOG_MODULE || 'cleanup_end'
295: , 'after deleting rows in staging table that were not cleared earlier '
296: || l_row_count || ' rows'
297: );
303:
304:
305:
306:
307: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
308: THEN
309: FND_LOG.String
310: (
311: FND_LOG.level_statement
305:
306:
307: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
308: THEN
309: FND_LOG.String
310: (
311: FND_LOG.level_statement
312: , L_LOG_MODULE || 'call_validate_param_start'
313: , 'Calling procedure to validate cost parameters'
307: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
308: THEN
309: FND_LOG.String
310: (
311: FND_LOG.level_statement
312: , L_LOG_MODULE || 'call_validate_param_start'
313: , 'Calling procedure to validate cost parameters'
314: );
315: END IF;
332: );
333:
334:
335:
336: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
337: THEN
338: FND_LOG.String
339: (
340: FND_LOG.level_statement
334:
335:
336: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
337: THEN
338: FND_LOG.String
339: (
340: FND_LOG.level_statement
341: , L_LOG_MODULE || 'call_validate_param_end'
342: , 'After calling procedure to validate cost parameters'
336: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
337: THEN
338: FND_LOG.String
339: (
340: FND_LOG.level_statement
341: , L_LOG_MODULE || 'call_validate_param_end'
342: , 'After calling procedure to validate cost parameters'
343: );
344: END IF;
349: ----------------------------------------------------------------------------
350: -- Preparation of Staging Table Data and Submission of Child Requests
351: ----------------------------------------------------------------------------
352:
353: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
354: THEN
355: FND_LOG.String
356: (
357: FND_LOG.level_statement
351: ----------------------------------------------------------------------------
352:
353: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
354: THEN
355: FND_LOG.String
356: (
357: FND_LOG.level_statement
358: , L_LOG_MODULE || 'call_form_and_exec_statement_start'
359: , 'Calling procedure to form and execute statement to fill staging table'
353: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
354: THEN
355: FND_LOG.String
356: (
357: FND_LOG.level_statement
358: , L_LOG_MODULE || 'call_form_and_exec_statement_start'
359: , 'Calling procedure to form and execute statement to fill staging table'
360: );
361: END IF;
372: , p_request_id => l_request_id
373: , p_row_count => l_row_count
374: );
375:
376: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
377: THEN
378: FND_LOG.String
379: (
380: FND_LOG.level_statement
374: );
375:
376: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
377: THEN
378: FND_LOG.String
379: (
380: FND_LOG.level_statement
381: , L_LOG_MODULE || 'call_form_and_exec_statement_end'
382: , 'After calling procedure to form and execute statement to '
376: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
377: THEN
378: FND_LOG.String
379: (
380: FND_LOG.level_statement
381: , L_LOG_MODULE || 'call_form_and_exec_statement_end'
382: , 'After calling procedure to form and execute statement to '
383: || 'fill staging table ' || l_row_count
384: );
390: THEN
391: -- If there were no SRs selected, return
392: -- from the concurrent program with a warning
393:
394: IF FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level
395: THEN
396: FND_LOG.String
397: (
398: FND_LOG.level_unexpected
392: -- from the concurrent program with a warning
393:
394: IF FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level
395: THEN
396: FND_LOG.String
397: (
398: FND_LOG.level_unexpected
399: , L_LOG_MODULE || 'no_rows'
400: , 'There were no rows picked up. Row count was ' || l_row_count
394: IF FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level
395: THEN
396: FND_LOG.String
397: (
398: FND_LOG.level_unexpected
399: , L_LOG_MODULE || 'no_rows'
400: , 'There were no rows picked up. Row count was ' || l_row_count
401: );
402: END IF ;
436: -- If the worker request was not created successfully
437: -- raise an unexpected exception and terminate the
438: -- process.
439:
440: IF FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level
441: THEN
442: FND_LOG.String
443: (
444: FND_LOG.level_unexpected
438: -- process.
439:
440: IF FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level
441: THEN
442: FND_LOG.String
443: (
444: FND_LOG.level_unexpected
445: , L_LOG_MODULE || 'create_workers_error'
446: , 'Failed while starting worker concurrent request'
440: IF FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level
441: THEN
442: FND_LOG.String
443: (
444: FND_LOG.level_unexpected
445: , L_LOG_MODULE || 'create_workers_error'
446: , 'Failed while starting worker concurrent request'
447: );
448: END IF;
452:
453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
454: END IF;
455:
456: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
457: THEN
458: FND_LOG.String
459: (
460: FND_LOG.level_statement
454: END IF;
455:
456: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
457: THEN
458: FND_LOG.String
459: (
460: FND_LOG.level_statement
461: , L_LOG_MODULE || 'create_workers_doing'
462: , 'After starting worker ' || l_worker_conc_req_arr(j)
456: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
457: THEN
458: FND_LOG.String
459: (
460: FND_LOG.level_statement
461: , L_LOG_MODULE || 'create_workers_doing'
462: , 'After starting worker ' || l_worker_conc_req_arr(j)
463: );
464: END IF;
470: COMMIT;
471:
472:
473:
474: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
475: THEN
476: FND_LOG.String
477: (
478: FND_LOG.level_statement
472:
473:
474: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
475: THEN
476: FND_LOG.String
477: (
478: FND_LOG.level_statement
479: , L_LOG_MODULE || 'create_workers_end'
480: , 'After starting all worker concurrent requests'
474: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
475: THEN
476: FND_LOG.String
477: (
478: FND_LOG.level_statement
479: , L_LOG_MODULE || 'create_workers_end'
480: , 'After starting all worker concurrent requests'
481: );
482: END IF;
482: END IF;
483:
484: ---
485:
486: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
487: THEN
488: FND_LOG.String
489: (
490: FND_LOG.level_statement
484: ---
485:
486: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
487: THEN
488: FND_LOG.String
489: (
490: FND_LOG.level_statement
491: , L_LOG_MODULE || 'move_parent_to_paused_start'
492: , 'Moving parent concurrent request to paused status'
486: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
487: THEN
488: FND_LOG.String
489: (
490: FND_LOG.level_statement
491: , L_LOG_MODULE || 'move_parent_to_paused_start'
492: , 'Moving parent concurrent request to paused status'
493: );
494: END IF;
494: END IF;
495:
496: COMMIT;
497:
498: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
499: THEN
500: FND_LOG.String
501: (
502: FND_LOG.level_statement
496: COMMIT;
497:
498: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
499: THEN
500: FND_LOG.String
501: (
502: FND_LOG.level_statement
503: , L_LOG_MODULE || 'move_parent_to_paused_end'
504: , 'After moving parent concurrent request to paused status'
498: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
499: THEN
500: FND_LOG.String
501: (
502: FND_LOG.level_statement
503: , L_LOG_MODULE || 'move_parent_to_paused_end'
504: , 'After moving parent concurrent request to paused status'
505: );
506: END IF;
534: -- completion status
535:
536: FOR r_child_request IN c_child_request(l_request_id)
537: LOOP
538: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
539: THEN
540: FND_LOG.String
541: (
542: FND_LOG.level_statement
536: FOR r_child_request IN c_child_request(l_request_id)
537: LOOP
538: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
539: THEN
540: FND_LOG.String
541: (
542: FND_LOG.level_statement
543: , L_LOG_MODULE || 'collect_a_child_status'
544: , 'Worker Concurrent Request No : ' || r_child_request.request_id
538: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
539: THEN
540: FND_LOG.String
541: (
542: FND_LOG.level_statement
543: , L_LOG_MODULE || 'collect_a_child_status'
544: , 'Worker Concurrent Request No : ' || r_child_request.request_id
545: );
546: END IF;
554: , dev_status => l_worker_conc_req_dev_status
555: , message => l_worker_conc_req_message
556: )
557: THEN
558: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
559: THEN
560: FND_LOG.String
561: (
562: FND_LOG.level_statement
556: )
557: THEN
558: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
559: THEN
560: FND_LOG.String
561: (
562: FND_LOG.level_statement
563: , L_LOG_MODULE || 'child_return_status'
564: , 'l_worker_conc_req_phase:' || l_worker_conc_req_phase
558: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
559: THEN
560: FND_LOG.String
561: (
562: FND_LOG.level_statement
563: , L_LOG_MODULE || 'child_return_status'
564: , 'l_worker_conc_req_phase:' || l_worker_conc_req_phase
565: );
566: FND_LOG.String
562: FND_LOG.level_statement
563: , L_LOG_MODULE || 'child_return_status'
564: , 'l_worker_conc_req_phase:' || l_worker_conc_req_phase
565: );
566: FND_LOG.String
567: (
568: FND_LOG.level_statement
569: , L_LOG_MODULE || 'child_return_status'
570: , 'l_worker_conc_req_status:' || l_worker_conc_req_status
564: , 'l_worker_conc_req_phase:' || l_worker_conc_req_phase
565: );
566: FND_LOG.String
567: (
568: FND_LOG.level_statement
569: , L_LOG_MODULE || 'child_return_status'
570: , 'l_worker_conc_req_status:' || l_worker_conc_req_status
571: );
572: FND_LOG.String
568: FND_LOG.level_statement
569: , L_LOG_MODULE || 'child_return_status'
570: , 'l_worker_conc_req_status:' || l_worker_conc_req_status
571: );
572: FND_LOG.String
573: (
574: FND_LOG.level_statement
575: , L_LOG_MODULE || 'child_return_status'
576: , 'l_worker_conc_req_dev_phase:' || l_worker_conc_req_dev_phase
570: , 'l_worker_conc_req_status:' || l_worker_conc_req_status
571: );
572: FND_LOG.String
573: (
574: FND_LOG.level_statement
575: , L_LOG_MODULE || 'child_return_status'
576: , 'l_worker_conc_req_dev_phase:' || l_worker_conc_req_dev_phase
577: );
578: FND_LOG.String
574: FND_LOG.level_statement
575: , L_LOG_MODULE || 'child_return_status'
576: , 'l_worker_conc_req_dev_phase:' || l_worker_conc_req_dev_phase
577: );
578: FND_LOG.String
579: (
580: FND_LOG.level_statement
581: , L_LOG_MODULE || 'child_return_status'
582: , 'l_worker_conc_req_dev_status:' || l_worker_conc_req_dev_status
576: , 'l_worker_conc_req_dev_phase:' || l_worker_conc_req_dev_phase
577: );
578: FND_LOG.String
579: (
580: FND_LOG.level_statement
581: , L_LOG_MODULE || 'child_return_status'
582: , 'l_worker_conc_req_dev_status:' || l_worker_conc_req_dev_status
583: );
584: FND_LOG.String
580: FND_LOG.level_statement
581: , L_LOG_MODULE || 'child_return_status'
582: , 'l_worker_conc_req_dev_status:' || l_worker_conc_req_dev_status
583: );
584: FND_LOG.String
585: (
586: FND_LOG.level_statement
587: , L_LOG_MODULE || 'child_return_status'
588: , 'l_worker_conc_req_message:' || l_worker_conc_req_message
582: , 'l_worker_conc_req_dev_status:' || l_worker_conc_req_dev_status
583: );
584: FND_LOG.String
585: (
586: FND_LOG.level_statement
587: , L_LOG_MODULE || 'child_return_status'
588: , 'l_worker_conc_req_message:' || l_worker_conc_req_message
589: );
590: END IF;
588: , 'l_worker_conc_req_message:' || l_worker_conc_req_message
589: );
590: END IF;
591:
592: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
593: THEN
594: FND_LOG.String
595: (
596: FND_LOG.level_statement
590: END IF;
591:
592: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
593: THEN
594: FND_LOG.String
595: (
596: FND_LOG.level_statement
597: , L_LOG_MODULE || 'resolve_main_dev_status_start'
598: , 'Resolving l_main_conc_req_dev_status'
592: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
593: THEN
594: FND_LOG.String
595: (
596: FND_LOG.level_statement
597: , L_LOG_MODULE || 'resolve_main_dev_status_start'
598: , 'Resolving l_main_conc_req_dev_status'
599: );
600: END IF;
617: l_child_message := l_worker_conc_req_message;
618: END IF;
619: END IF;
620:
621: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
622: THEN
623: FND_LOG.String
624: (
625: FND_LOG.level_statement
619: END IF;
620:
621: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
622: THEN
623: FND_LOG.String
624: (
625: FND_LOG.level_statement
626: , L_LOG_MODULE || 'resolve_main_dev_status_end'
627: , 'After resolving l_main_conc_req_dev_status:'
621: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
622: THEN
623: FND_LOG.String
624: (
625: FND_LOG.level_statement
626: , L_LOG_MODULE || 'resolve_main_dev_status_end'
627: , 'After resolving l_main_conc_req_dev_status:'
628: || l_main_conc_req_dev_status
629: );
626: , L_LOG_MODULE || 'resolve_main_dev_status_end'
627: , 'After resolving l_main_conc_req_dev_status:'
628: || l_main_conc_req_dev_status
629: );
630: FND_LOG.String
631: (
632: FND_LOG.level_statement
633: , L_LOG_MODULE || 'resolve_main_dev_status_end'
634: , 'After resolving l_main_conc_req_dev_status - child_message :'
628: || l_main_conc_req_dev_status
629: );
630: FND_LOG.String
631: (
632: FND_LOG.level_statement
633: , L_LOG_MODULE || 'resolve_main_dev_status_end'
634: , 'After resolving l_main_conc_req_dev_status - child_message :'
635: || l_child_message
636: );
640:
641: -- There was a failure while collecting a child request
642: -- status, raising an unexpected exception
643:
644: IF FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level
645: THEN
646: FND_LOG.String
647: (
648: FND_LOG.level_unexpected
642: -- status, raising an unexpected exception
643:
644: IF FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level
645: THEN
646: FND_LOG.String
647: (
648: FND_LOG.level_unexpected
649: , L_LOG_MODULE || 'collect_child_status_failed'
650: , 'Call to function fnd_concurrent.get_request_status failed. '
644: IF FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level
645: THEN
646: FND_LOG.String
647: (
648: FND_LOG.level_unexpected
649: , L_LOG_MODULE || 'collect_child_status_failed'
650: , 'Call to function fnd_concurrent.get_request_status failed. '
651: || l_main_conc_req_message
652: );
661:
662: END LOOP;
663:
664:
665: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
666: THEN
667: FND_LOG.String
668: (
669: FND_LOG.level_statement
663:
664:
665: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
666: THEN
667: FND_LOG.String
668: (
669: FND_LOG.level_statement
670: , L_LOG_MODULE || 'collect_child_status_end'
671: , 'After collecting child completion status'
665: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
666: THEN
667: FND_LOG.String
668: (
669: FND_LOG.level_statement
670: , L_LOG_MODULE || 'collect_child_status_end'
671: , 'After collecting child completion status'
672: );
673: END IF;
675:
676:
677:
678:
679: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
680: THEN
681: FND_LOG.String
682: (
683: FND_LOG.level_statement
677:
678:
679: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
680: THEN
681: FND_LOG.String
682: (
683: FND_LOG.level_statement
684: , L_LOG_MODULE || 'Write_cost_Output_start'
685: , 'Calling procedure to Write_cost_Output'
679: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
680: THEN
681: FND_LOG.String
682: (
683: FND_LOG.level_statement
684: , L_LOG_MODULE || 'Write_cost_Output_start'
685: , 'Calling procedure to Write_cost_Output'
686: );
687: END IF;
703: concurrent_request_id = l_request_id;
704:
705: l_row_count := SQL%ROWCOUNT;*/
706:
707: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
708: THEN
709: FND_LOG.String
710: (
711: FND_LOG.level_statement
705: l_row_count := SQL%ROWCOUNT;*/
706:
707: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
708: THEN
709: FND_LOG.String
710: (
711: FND_LOG.level_statement
712: , L_LOG_MODULE || 'staging_table_cleanup_end'
713: , 'After cleaning up staging table ' || l_row_count
707: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
708: THEN
709: FND_LOG.String
710: (
711: FND_LOG.level_statement
712: , L_LOG_MODULE || 'staging_table_cleanup_end'
713: , 'After cleaning up staging table ' || l_row_count
714: );
715: END IF;
715: END IF;
716:
717: ---
718:
719: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
720: THEN
721: FND_LOG.String
722: (
723: FND_LOG.level_statement
717: ---
718:
719: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
720: THEN
721: FND_LOG.String
722: (
723: FND_LOG.level_statement
724: , L_LOG_MODULE || 'act_on_ret_status_start'
725: , 'Acting on the main concurrent request return status:'
719: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
720: THEN
721: FND_LOG.String
722: (
723: FND_LOG.level_statement
724: , L_LOG_MODULE || 'act_on_ret_status_start'
725: , 'Acting on the main concurrent request return status:'
726: || l_main_conc_req_dev_status
727: );
758: RAISE FND_API.G_EXC_ERROR;
759: END IF;
760:
761:
762: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
763: THEN
764: FND_LOG.String
765: (
766: FND_LOG.level_statement
760:
761:
762: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
763: THEN
764: FND_LOG.String
765: (
766: FND_LOG.level_statement
767: , L_LOG_MODULE || 'act_on_ret_status_end'
768: , 'after Acting on the main concurrent request return status:'
762: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
763: THEN
764: FND_LOG.String
765: (
766: FND_LOG.level_statement
767: , L_LOG_MODULE || 'act_on_ret_status_end'
768: , 'after Acting on the main concurrent request return status:'
769: || l_main_conc_req_dev_status
770: );
771: END IF;
772:
773: ---
774:
775: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
776: THEN
777: FND_LOG.String
778: (
779: FND_LOG.level_statement
773: ---
774:
775: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
776: THEN
777: FND_LOG.String
778: (
779: FND_LOG.level_statement
780: , L_LOG_MODULE || 'set_comp_stat_normal_start'
781: , 'Setting completion status for parent concurrent request as NORMAL'
775: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
776: THEN
777: FND_LOG.String
778: (
779: FND_LOG.level_statement
780: , L_LOG_MODULE || 'set_comp_stat_normal_start'
781: , 'Setting completion status for parent concurrent request as NORMAL'
782: );
783: END IF;
791: 'NORMAL'
792: , ' '
793: );
794:
795: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
796: THEN
797: FND_LOG.String
798: (
799: FND_LOG.level_statement
793: );
794:
795: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
796: THEN
797: FND_LOG.String
798: (
799: FND_LOG.level_statement
800: , L_LOG_MODULE || 'set_comp_stat_normal_end'
801: , 'After setting completion status for parent concurrent '
795: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
796: THEN
797: FND_LOG.String
798: (
799: FND_LOG.level_statement
800: , L_LOG_MODULE || 'set_comp_stat_normal_end'
801: , 'After setting completion status for parent concurrent '
802: || 'request as NORMAL'
803: );
807:
808: end if;
809:
810:
811: IF FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level
812: THEN
813: IF FND_CONCURRENT.Get_Request_Status
814: (
815: request_id => l_request_id
819: , dev_status => l_main_conc_req_dev_status
820: , message => l_main_conc_req_message
821: )
822: THEN
823: FND_LOG.String
824: (
825: FND_LOG.level_procedure
826: , L_LOG_MODULE || 'request_status_1'
827: , 'l_main_conc_req_phase:' || l_main_conc_req_phase
821: )
822: THEN
823: FND_LOG.String
824: (
825: FND_LOG.level_procedure
826: , L_LOG_MODULE || 'request_status_1'
827: , 'l_main_conc_req_phase:' || l_main_conc_req_phase
828: );
829: FND_LOG.String
825: FND_LOG.level_procedure
826: , L_LOG_MODULE || 'request_status_1'
827: , 'l_main_conc_req_phase:' || l_main_conc_req_phase
828: );
829: FND_LOG.String
830: (
831: FND_LOG.level_procedure
832: , L_LOG_MODULE || 'request_status_2'
833: , 'l_main_conc_req_status:' || l_main_conc_req_status
827: , 'l_main_conc_req_phase:' || l_main_conc_req_phase
828: );
829: FND_LOG.String
830: (
831: FND_LOG.level_procedure
832: , L_LOG_MODULE || 'request_status_2'
833: , 'l_main_conc_req_status:' || l_main_conc_req_status
834: );
835: FND_LOG.String
831: FND_LOG.level_procedure
832: , L_LOG_MODULE || 'request_status_2'
833: , 'l_main_conc_req_status:' || l_main_conc_req_status
834: );
835: FND_LOG.String
836: (
837: FND_LOG.level_procedure
838: , L_LOG_MODULE || 'request_status_3'
839: , 'l_main_conc_req_dev_phase:' || l_main_conc_req_dev_phase
833: , 'l_main_conc_req_status:' || l_main_conc_req_status
834: );
835: FND_LOG.String
836: (
837: FND_LOG.level_procedure
838: , L_LOG_MODULE || 'request_status_3'
839: , 'l_main_conc_req_dev_phase:' || l_main_conc_req_dev_phase
840: );
841: FND_LOG.String
837: FND_LOG.level_procedure
838: , L_LOG_MODULE || 'request_status_3'
839: , 'l_main_conc_req_dev_phase:' || l_main_conc_req_dev_phase
840: );
841: FND_LOG.String
842: (
843: FND_LOG.level_procedure
844: , L_LOG_MODULE || 'request_status_4'
845: , 'l_main_conc_req_dev_status:' || l_main_conc_req_dev_status
839: , 'l_main_conc_req_dev_phase:' || l_main_conc_req_dev_phase
840: );
841: FND_LOG.String
842: (
843: FND_LOG.level_procedure
844: , L_LOG_MODULE || 'request_status_4'
845: , 'l_main_conc_req_dev_status:' || l_main_conc_req_dev_status
846: );
847: FND_LOG.String
843: FND_LOG.level_procedure
844: , L_LOG_MODULE || 'request_status_4'
845: , 'l_main_conc_req_dev_status:' || l_main_conc_req_dev_status
846: );
847: FND_LOG.String
848: (
849: FND_LOG.level_procedure
850: , L_LOG_MODULE || 'request_status_5'
851: , 'l_main_conc_req_message:' || l_main_conc_req_message
845: , 'l_main_conc_req_dev_status:' || l_main_conc_req_dev_status
846: );
847: FND_LOG.String
848: (
849: FND_LOG.level_procedure
850: , L_LOG_MODULE || 'request_status_5'
851: , 'l_main_conc_req_message:' || l_main_conc_req_message
852: );
853: END IF;
854: END IF ;
855:
856: ---
857:
858: IF FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level
859: THEN
860: FND_LOG.String
861: (
862: FND_LOG.level_procedure
856: ---
857:
858: IF FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level
859: THEN
860: FND_LOG.String
861: (
862: FND_LOG.level_procedure
863: , L_LOG_MODULE || 'end'
864: , 'Completed work in ' || L_API_NAME_FULL || ' with return status '
858: IF FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level
859: THEN
860: FND_LOG.String
861: (
862: FND_LOG.level_procedure
863: , L_LOG_MODULE || 'end'
864: , 'Completed work in ' || L_API_NAME_FULL || ' with return status '
865: || x_return_status
866: );
863: , L_LOG_MODULE || 'end'
864: , 'Completed work in ' || L_API_NAME_FULL || ' with return status '
865: || x_return_status
866: );
867: FND_LOG.String
868: (
869: FND_LOG.level_procedure
870: , L_LOG_MODULE || 'end_time'
871: , 'The end time is ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI:SS')
865: || x_return_status
866: );
867: FND_LOG.String
868: (
869: FND_LOG.level_procedure
870: , L_LOG_MODULE || 'end_time'
871: , 'The end time is ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI:SS')
872: );
873: END IF ;
904: --Added for bug 7168775
905: fnd_file.put_line(fnd_file.log, 'Error encountered is : ' || x_msg_data || ' [Index:' || x_msg_index_out || ']');
906:
907:
908: IF FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level
909: THEN
910: FND_LOG.String
911: (
912: FND_LOG.level_unexpected
906:
907:
908: IF FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level
909: THEN
910: FND_LOG.String
911: (
912: FND_LOG.level_unexpected
913: , L_LOG_MODULE || 'error'
914: , 'Inside WHEN L_EXC_COST_WARNING of ' || L_API_NAME_FULL
908: IF FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level
909: THEN
910: FND_LOG.String
911: (
912: FND_LOG.level_unexpected
913: , L_LOG_MODULE || 'error'
914: , 'Inside WHEN L_EXC_COST_WARNING of ' || L_API_NAME_FULL
915: );
916:
927: , p_encoded => 'F'
928: , p_data => x_msg_data
929: , p_msg_index_out => x_msg_index_out
930: );
931: FND_LOG.String
932: (
933: FND_LOG.level_unexpected
934: , L_LOG_MODULE || 'error'
935: , 'Error encountered is : ' || x_msg_data || ' [Index:'
929: , p_msg_index_out => x_msg_index_out
930: );
931: FND_LOG.String
932: (
933: FND_LOG.level_unexpected
934: , L_LOG_MODULE || 'error'
935: , 'Error encountered is : ' || x_msg_data || ' [Index:'
936: || x_msg_index_out || ']'
937: );
966:
967: --Added for bug 7168775
968: fnd_file.put_line(fnd_file.log, 'Error encountered is : ' || x_msg_data || ' [Index:' || x_msg_index_out || ']');
969:
970: IF FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level
971: THEN
972: FND_LOG.String
973: (
974: FND_LOG.level_unexpected
968: fnd_file.put_line(fnd_file.log, 'Error encountered is : ' || x_msg_data || ' [Index:' || x_msg_index_out || ']');
969:
970: IF FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level
971: THEN
972: FND_LOG.String
973: (
974: FND_LOG.level_unexpected
975: , L_LOG_MODULE || 'error'
976: , 'Inside WHEN FND_API.G_EXC_ERROR of ' || L_API_NAME_FULL
970: IF FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level
971: THEN
972: FND_LOG.String
973: (
974: FND_LOG.level_unexpected
975: , L_LOG_MODULE || 'error'
976: , 'Inside WHEN FND_API.G_EXC_ERROR of ' || L_API_NAME_FULL
977: );
978:
989: , p_encoded => 'F'
990: , p_data => x_msg_data
991: , p_msg_index_out => x_msg_index_out
992: );
993: FND_LOG.String
994: (
995: FND_LOG.level_unexpected
996: , L_LOG_MODULE || 'error'
997: , 'Error encountered is : ' || x_msg_data || ' [Index:'
991: , p_msg_index_out => x_msg_index_out
992: );
993: FND_LOG.String
994: (
995: FND_LOG.level_unexpected
996: , L_LOG_MODULE || 'error'
997: , 'Error encountered is : ' || x_msg_data || ' [Index:'
998: || x_msg_index_out || ']'
999: );
1029: --Added for bug 7168775
1030: fnd_file.put_line(fnd_file.log, 'Error encountered is : ' || x_msg_data || ' [Index:' || x_msg_index_out || ']');
1031:
1032:
1033: IF FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level
1034: THEN
1035: FND_LOG.String
1036: (
1037: FND_LOG.level_unexpected
1031:
1032:
1033: IF FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level
1034: THEN
1035: FND_LOG.String
1036: (
1037: FND_LOG.level_unexpected
1038: , L_LOG_MODULE || 'unexpected_error'
1039: , 'Inside WHEN FND_API.G_EXC_UNEXPECTED_ERROR of ' || L_API_NAME_FULL
1033: IF FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level
1034: THEN
1035: FND_LOG.String
1036: (
1037: FND_LOG.level_unexpected
1038: , L_LOG_MODULE || 'unexpected_error'
1039: , 'Inside WHEN FND_API.G_EXC_UNEXPECTED_ERROR of ' || L_API_NAME_FULL
1040: );
1041:
1052: , p_encoded => 'F'
1053: , p_data => x_msg_data
1054: , p_msg_index_out => x_msg_index_out
1055: );
1056: FND_LOG.String
1057: (
1058: FND_LOG.level_unexpected
1059: , L_LOG_MODULE || 'unexpected_error'
1060: , 'Error encountered is : ' || x_msg_data || ' [Index:'
1054: , p_msg_index_out => x_msg_index_out
1055: );
1056: FND_LOG.String
1057: (
1058: FND_LOG.level_unexpected
1059: , L_LOG_MODULE || 'unexpected_error'
1060: , 'Error encountered is : ' || x_msg_data || ' [Index:'
1061: || x_msg_index_out || ']'
1062: );
1097: --Added for bug 7168775
1098: fnd_file.put_line(fnd_file.log, 'Error encountered is : ' || x_msg_data || ' [Index:' || x_msg_index_out || ']');
1099:
1100:
1101: IF FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level
1102: THEN
1103: FND_LOG.String
1104: (
1105: FND_LOG.level_unexpected
1099:
1100:
1101: IF FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level
1102: THEN
1103: FND_LOG.String
1104: (
1105: FND_LOG.level_unexpected
1106: , L_LOG_MODULE || 'when_others'
1107: , 'Inside WHEN OTHERS of ' || L_API_NAME_FULL || '. Oracle Error was:'
1101: IF FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level
1102: THEN
1103: FND_LOG.String
1104: (
1105: FND_LOG.level_unexpected
1106: , L_LOG_MODULE || 'when_others'
1107: , 'Inside WHEN OTHERS of ' || L_API_NAME_FULL || '. Oracle Error was:'
1108: );
1109: FND_LOG.String
1105: FND_LOG.level_unexpected
1106: , L_LOG_MODULE || 'when_others'
1107: , 'Inside WHEN OTHERS of ' || L_API_NAME_FULL || '. Oracle Error was:'
1108: );
1109: FND_LOG.String
1110: (
1111: FND_LOG.level_unexpected
1112: , L_LOG_MODULE || 'when_others'
1113: , SQLERRM
1107: , 'Inside WHEN OTHERS of ' || L_API_NAME_FULL || '. Oracle Error was:'
1108: );
1109: FND_LOG.String
1110: (
1111: FND_LOG.level_unexpected
1112: , L_LOG_MODULE || 'when_others'
1113: , SQLERRM
1114: );
1115: END IF ;
1146:
1147: BEGIN
1148:
1149:
1150: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
1151: THEN
1152: FND_LOG.String
1153: (
1154: FND_LOG.level_statement
1148:
1149:
1150: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
1151: THEN
1152: FND_LOG.String
1153: (
1154: FND_LOG.level_statement
1155: , L_LOG_MODULE || 'check_blind_cost_start'
1156: , 'checking for blind search'
1150: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
1151: THEN
1152: FND_LOG.String
1153: (
1154: FND_LOG.level_statement
1155: , L_LOG_MODULE || 'check_blind_cost_start'
1156: , 'checking for blind search'
1157: );
1158: END IF;
1161: IF p_creation_from_date IS NULL
1162: OR p_creation_to_date IS NULL
1163: OR p_sr_status IS NULL
1164: THEN
1165: IF FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level
1166: THEN
1167: FND_LOG.String
1168: (
1169: FND_LOG.level_unexpected
1163: OR p_sr_status IS NULL
1164: THEN
1165: IF FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level
1166: THEN
1167: FND_LOG.String
1168: (
1169: FND_LOG.level_unexpected
1170: , L_LOG_MODULE || 'no_params'
1171: , 'no parameters were supplied to the Concurrent program'
1165: IF FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level
1166: THEN
1167: FND_LOG.String
1168: (
1169: FND_LOG.level_unexpected
1170: , L_LOG_MODULE || 'no_params'
1171: , 'no parameters were supplied to the Concurrent program'
1172: );
1173: END IF ;
1181:
1182: END IF;
1183:
1184:
1185: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
1186: THEN
1187: FND_LOG.String
1188: (
1189: FND_LOG.level_statement
1183:
1184:
1185: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
1186: THEN
1187: FND_LOG.String
1188: (
1189: FND_LOG.level_statement
1190: , L_LOG_MODULE || 'check_blind_cost_end'
1191: , 'after checking for blind search'
1185: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
1186: THEN
1187: FND_LOG.String
1188: (
1189: FND_LOG.level_statement
1190: , L_LOG_MODULE || 'check_blind_cost_end'
1191: , 'after checking for blind search'
1192: );
1193: END IF;
1193: END IF;
1194:
1195: IF p_creation_from_date IS NOT NULL
1196: THEN
1197: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
1198: THEN
1199: FND_LOG.String
1200: (
1201: FND_LOG.level_statement
1195: IF p_creation_from_date IS NOT NULL
1196: THEN
1197: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
1198: THEN
1199: FND_LOG.String
1200: (
1201: FND_LOG.level_statement
1202: , L_LOG_MODULE || 'check_date_format_start_1'
1203: , 'checking if p_creation_from_date is in the format '
1197: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
1198: THEN
1199: FND_LOG.String
1200: (
1201: FND_LOG.level_statement
1202: , L_LOG_MODULE || 'check_date_format_start_1'
1203: , 'checking if p_creation_from_date is in the format '
1204: || fnd_date.user_mask
1205: );
1217: );
1218:
1219: IF x_creation_from_date IS NULL
1220: THEN
1221: IF FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level
1222: THEN
1223: FND_LOG.String
1224: (
1225: FND_LOG.level_unexpected
1219: IF x_creation_from_date IS NULL
1220: THEN
1221: IF FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level
1222: THEN
1223: FND_LOG.String
1224: (
1225: FND_LOG.level_unexpected
1226: , L_LOG_MODULE || 'crtfrmdt_format_invalid'
1227: , 'format of field p_creation_from_date is invalid. should be '
1221: IF FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level
1222: THEN
1223: FND_LOG.String
1224: (
1225: FND_LOG.level_unexpected
1226: , L_LOG_MODULE || 'crtfrmdt_format_invalid'
1227: , 'format of field p_creation_from_date is invalid. should be '
1228: || fnd_date.user_mask
1229: );
1252:
1253:
1254: END IF;
1255:
1256: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
1257: THEN
1258: FND_LOG.String
1259: (
1260: FND_LOG.level_statement
1254: END IF;
1255:
1256: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
1257: THEN
1258: FND_LOG.String
1259: (
1260: FND_LOG.level_statement
1261: , L_LOG_MODULE || 'check_date_format_end_1'
1262: , 'after checking if p_creation_from_date is in the format '
1256: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
1257: THEN
1258: FND_LOG.String
1259: (
1260: FND_LOG.level_statement
1261: , L_LOG_MODULE || 'check_date_format_end_1'
1262: , 'after checking if p_creation_from_date is in the format '
1263: || fnd_date.user_mask
1264: );
1268: ------------------------------------------------------
1269:
1270: IF p_creation_to_date IS NOT NULL
1271: THEN
1272: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
1273: THEN
1274: FND_LOG.String
1275: (
1276: FND_LOG.level_statement
1270: IF p_creation_to_date IS NOT NULL
1271: THEN
1272: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
1273: THEN
1274: FND_LOG.String
1275: (
1276: FND_LOG.level_statement
1277: , L_LOG_MODULE || 'check_date_format_start_2'
1278: , 'checking if p_creation_to_date is in the format '
1272: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
1273: THEN
1274: FND_LOG.String
1275: (
1276: FND_LOG.level_statement
1277: , L_LOG_MODULE || 'check_date_format_start_2'
1278: , 'checking if p_creation_to_date is in the format '
1279: || fnd_date.user_mask
1280: );
1291: );
1292:
1293: IF x_creation_to_date IS NULL
1294: THEN
1295: IF FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level
1296: THEN
1297: FND_LOG.String
1298: (
1299: FND_LOG.level_unexpected
1293: IF x_creation_to_date IS NULL
1294: THEN
1295: IF FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level
1296: THEN
1297: FND_LOG.String
1298: (
1299: FND_LOG.level_unexpected
1300: , L_LOG_MODULE || 'crttodt_format_invalid'
1301: , 'format of field p_creation_to_date is invalid. should be ' ||
1295: IF FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level
1296: THEN
1297: FND_LOG.String
1298: (
1299: FND_LOG.level_unexpected
1300: , L_LOG_MODULE || 'crttodt_format_invalid'
1301: , 'format of field p_creation_to_date is invalid. should be ' ||
1302: fnd_date.user_mask
1303: );
1324:
1325:
1326: END IF;
1327:
1328: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
1329: THEN
1330: FND_LOG.String
1331: (
1332: FND_LOG.level_statement
1326: END IF;
1327:
1328: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
1329: THEN
1330: FND_LOG.String
1331: (
1332: FND_LOG.level_statement
1333: , L_LOG_MODULE || 'check_date_format_end_2'
1334: , 'after checking if p_creation_to_date is in the format ' ||
1328: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
1329: THEN
1330: FND_LOG.String
1331: (
1332: FND_LOG.level_statement
1333: , L_LOG_MODULE || 'check_date_format_end_2'
1334: , 'after checking if p_creation_to_date is in the format ' ||
1335: fnd_date.user_mask
1336: );
1353: -- satisfied.
1354:
1355: IF TRUNC(x_creation_to_date) = x_creation_to_date
1356: THEN
1357: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
1358: THEN
1359: FND_LOG.String
1360: (
1361: FND_LOG.level_statement
1355: IF TRUNC(x_creation_to_date) = x_creation_to_date
1356: THEN
1357: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
1358: THEN
1359: FND_LOG.String
1360: (
1361: FND_LOG.level_statement
1362: , L_LOG_MODULE || 'add_time_to_todate_start'
1363: , 'adding time to x_creation_to_date if it does not have time'
1357: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
1358: THEN
1359: FND_LOG.String
1360: (
1361: FND_LOG.level_statement
1362: , L_LOG_MODULE || 'add_time_to_todate_start'
1363: , 'adding time to x_creation_to_date if it does not have time'
1364: );
1365: END IF;
1365: END IF;
1366:
1367: x_creation_to_date := x_creation_to_date + TIME_23_59_59;
1368:
1369: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
1370: THEN
1371: FND_LOG.String
1372: (
1373: FND_LOG.level_statement
1367: x_creation_to_date := x_creation_to_date + TIME_23_59_59;
1368:
1369: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
1370: THEN
1371: FND_LOG.String
1372: (
1373: FND_LOG.level_statement
1374: , L_LOG_MODULE || 'add_time_to_todate_end'
1375: , 'adding time to x_creation_to_date if it does not have time ' ||
1369: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
1370: THEN
1371: FND_LOG.String
1372: (
1373: FND_LOG.level_statement
1374: , L_LOG_MODULE || 'add_time_to_todate_end'
1375: , 'adding time to x_creation_to_date if it does not have time ' ||
1376: TO_CHAR(x_creation_to_date, 'DD-MON-YYYY HH24:MI:SS')
1377: );
1385:
1386: IF x_creation_from_date IS NOT NULL
1387: AND x_creation_to_date IS NOT NULL
1388: THEN
1389: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
1390: THEN
1391: FND_LOG.String
1392: (
1393: FND_LOG.level_statement
1387: AND x_creation_to_date IS NOT NULL
1388: THEN
1389: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
1390: THEN
1391: FND_LOG.String
1392: (
1393: FND_LOG.level_statement
1394: , L_LOG_MODULE || 'date_crossvalid_start_1'
1395: , 'doing cross field validations x_creation_from_date '
1389: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
1390: THEN
1391: FND_LOG.String
1392: (
1393: FND_LOG.level_statement
1394: , L_LOG_MODULE || 'date_crossvalid_start_1'
1395: , 'doing cross field validations x_creation_from_date '
1396: || '> x_creation_to_date '
1397: );
1402: -- x_creation_to_date
1403:
1404: IF x_creation_from_date > x_creation_to_date
1405: THEN
1406: IF FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level
1407: THEN
1408: FND_LOG.String
1409: (
1410: FND_LOG.level_unexpected
1404: IF x_creation_from_date > x_creation_to_date
1405: THEN
1406: IF FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level
1407: THEN
1408: FND_LOG.String
1409: (
1410: FND_LOG.level_unexpected
1411: , L_LOG_MODULE || 'crtfrmdt_after_crttodt'
1412: , 'it is invalid to have x_creation_from_date > x_creation_to_date'
1406: IF FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level
1407: THEN
1408: FND_LOG.String
1409: (
1410: FND_LOG.level_unexpected
1411: , L_LOG_MODULE || 'crtfrmdt_after_crttodt'
1412: , 'it is invalid to have x_creation_from_date > x_creation_to_date'
1413: );
1414: END IF ;
1444:
1445: RAISE FND_API.G_EXC_ERROR;
1446: END IF;
1447:
1448: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
1449: THEN
1450: FND_LOG.String
1451: (
1452: FND_LOG.level_statement
1446: END IF;
1447:
1448: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
1449: THEN
1450: FND_LOG.String
1451: (
1452: FND_LOG.level_statement
1453: , L_LOG_MODULE || 'date_crossvalid_end_1'
1454: , 'after doing cross field validations x_creation_from_date > '
1448: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
1449: THEN
1450: FND_LOG.String
1451: (
1452: FND_LOG.level_statement
1453: , L_LOG_MODULE || 'date_crossvalid_end_1'
1454: , 'after doing cross field validations x_creation_from_date > '
1455: || 'x_creation_to_date '
1456: );
1692: OR p_cost_batch_size IS NULL
1693:
1694:
1695: THEN
1696: IF FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level
1697: THEN
1698: FND_LOG.String
1699: (
1700: FND_LOG.level_unexpected
1694:
1695: THEN
1696: IF FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level
1697: THEN
1698: FND_LOG.String
1699: (
1700: FND_LOG.level_unexpected
1701: , L_LOG_MODULE || 'worker_params_not_enuf'
1702: , 'no parameters were supplied to the cost worker program'
1696: IF FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level
1697: THEN
1698: FND_LOG.String
1699: (
1700: FND_LOG.level_unexpected
1701: , L_LOG_MODULE || 'worker_params_not_enuf'
1702: , 'no parameters were supplied to the cost worker program'
1703: );
1704: END IF ;
1725: AND r.status_code <> 'C';
1726:
1727: EXCEPTION
1728: WHEN NO_DATA_FOUND THEN
1729: IF FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level
1730: THEN
1731: FND_LOG.String
1732: (
1733: FND_LOG.level_unexpected
1727: EXCEPTION
1728: WHEN NO_DATA_FOUND THEN
1729: IF FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level
1730: THEN
1731: FND_LOG.String
1732: (
1733: FND_LOG.level_unexpected
1734: , L_LOG_MODULE || 'worker_purgset_invalid'
1735: , 'invalid cost set id supplied to the worker concurrent program'
1729: IF FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level
1730: THEN
1731: FND_LOG.String
1732: (
1733: FND_LOG.level_unexpected
1734: , L_LOG_MODULE || 'worker_purgset_invalid'
1735: , 'invalid cost set id supplied to the worker concurrent program'
1736: );
1737: END IF ;
1915: BEGIN
1916:
1917:
1918:
1919: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
1920: THEN
1921: FND_LOG.String
1922: (
1923: FND_LOG.level_statement
1917:
1918:
1919: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
1920: THEN
1921: FND_LOG.String
1922: (
1923: FND_LOG.level_statement
1924: , L_LOG_MODULE || 'sr_submit_count_start'
1925: , 'Getting number of SRs submitted for Cost Creation'
1919: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
1920: THEN
1921: FND_LOG.String
1922: (
1923: FND_LOG.level_statement
1924: , L_LOG_MODULE || 'sr_submit_count_start'
1925: , 'Getting number of SRs submitted for Cost Creation'
1926: );
1927: END IF;
2035: , '
2037: || l_row_count || ''
2038: );
2039: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
2040: THEN
2041: FND_LOG.String
2042: (
2043: FND_LOG.level_statement
2044: , L_LOG_MODULE || 'html_output_5'
2045: , '
2039: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
2040: THEN
2041: FND_LOG.String
2042: (
2043: FND_LOG.level_statement
2044: , L_LOG_MODULE || 'html_output_5'
2045: , '
2084: , '
2086: || ''
2087: );
2088: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
2089: THEN
2090: FND_LOG.String
2091: (
2092: FND_LOG.level_statement
2093: , L_LOG_MODULE || 'html_output_6'
2094: , '
2088: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
2089: THEN
2090: FND_LOG.String
2091: (
2092: FND_LOG.level_statement
2093: , L_LOG_MODULE || 'html_output_6'
2094: , '
2105: -- if there are any rows in the staging
2106: -- table with cost_status = E
2107:
2108: THEN
2109: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
2110: THEN
2111: FND_LOG.String
2112: (
2113: FND_LOG.level_statement
2107:
2108: THEN
2109: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
2110: THEN
2111: FND_LOG.String
2112: (
2113: FND_LOG.level_statement
2114: , L_LOG_MODULE || 'sr_failure_report_start'
2115: , 'Listing all SRs that failed with details and error message'
2109: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
2110: THEN
2111: FND_LOG.String
2112: (
2113: FND_LOG.level_statement
2114: , L_LOG_MODULE || 'sr_failure_report_start'
2115: , 'Listing all SRs that failed with details and error message'
2116: );
2117: END IF;
2123: (
2124: FND_FILE.OUTPUT
2125: , '
2125: , '
2127: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
2128: THEN
2129: FND_LOG.String
2130: (
2131: FND_LOG.level_statement
2132: , L_LOG_MODULE || 'html_output_7'
2133: , '
2143: (
2144: FND_FILE.OUTPUT
2145: , l_report_caption
2146: );
2147: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
2148: THEN
2149: FND_LOG.String
2150: (
2151: FND_LOG.level_statement
2145: , l_report_caption
2146: );
2147: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
2148: THEN
2149: FND_LOG.String
2150: (
2151: FND_LOG.level_statement
2152: , L_LOG_MODULE || 'html_output_8'
2153: , l_report_caption
2147: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
2148: THEN
2149: FND_LOG.String
2150: (
2151: FND_LOG.level_statement
2152: , L_LOG_MODULE || 'html_output_8'
2153: , l_report_caption
2154: );
2155: END IF;
2158: (
2159: FND_FILE.OUTPUT
2160: , ''
2161: );
2162: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
2163: THEN
2164: FND_LOG.String
2165: (
2166: FND_LOG.level_statement
2160: , ''
2161: );
2162: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
2163: THEN
2164: FND_LOG.String
2165: (
2166: FND_LOG.level_statement
2167: , L_LOG_MODULE || 'html_output_9'
2168: , ''
2162: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level
2163: THEN
2164: FND_LOG.String
2165: (
2166: FND_LOG.level_statement
2167: , L_LOG_MODULE || 'html_output_9'
2168: , ''
2169: );
2170: END IF;
2176: (
2177: FND_FILE.OUTPUT
2178: , '
' || NVL(l_line_number_arr(j), '-') 2287: -- || ' | ' || l_summary_arr(j) 2288: || ' | '; 2289: 2290: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level 2291: THEN 2292: FND_LOG.String 2293: ( 2294: FND_LOG.level_statement Line 2292: FND_LOG.String | '; 2289: 2290: IF FND_LOG.level_statement >= FND_LOG.g_current_runtime_level 2291: THEN 2292: FND_LOG.String 2293: ( 2294: FND_LOG.level_statement 2295: , L_LOG_MODULE || 'compute_text' 2296: , 'framing l_text = ' || l_text Line 2294: FND_LOG.level_statement |