[Home] [Help]
85: -- LOG: List all passed parameters
86: l_process_step := 'LOG_LIST_PARAMS';
87: FII_UTIL.put_line(' ');
88: FII_UTIL.put_line(FND_MESSAGE.get_string('FND', 'CONC-PARAMETERS') || ':');
89: FII_UTIL.put_line(FII_MESSAGE.get_message(
90: 'FII_RECONV_TRX_TYPE_PARAM_P', NULL
91: , 'P_VALUE', p_transaction_type));
92: FII_UTIL.put_line(FII_MESSAGE.get_message(
93: 'FII_RECONV_CURR_TYPE_PARAM_P', NULL
88: FII_UTIL.put_line(FND_MESSAGE.get_string('FND', 'CONC-PARAMETERS') || ':');
89: FII_UTIL.put_line(FII_MESSAGE.get_message(
90: 'FII_RECONV_TRX_TYPE_PARAM_P', NULL
91: , 'P_VALUE', p_transaction_type));
92: FII_UTIL.put_line(FII_MESSAGE.get_message(
93: 'FII_RECONV_CURR_TYPE_PARAM_P', NULL
94: , 'P_VALUE', p_currency_type));
95: FII_UTIL.put_line(FII_MESSAGE.get_message(
96: 'FII_RECONV_PRI_RTYPE_PARAM_P', NULL
91: , 'P_VALUE', p_transaction_type));
92: FII_UTIL.put_line(FII_MESSAGE.get_message(
93: 'FII_RECONV_CURR_TYPE_PARAM_P', NULL
94: , 'P_VALUE', p_currency_type));
95: FII_UTIL.put_line(FII_MESSAGE.get_message(
96: 'FII_RECONV_PRI_RTYPE_PARAM_P', NULL
97: , 'P_VALUE', p_primary_rate_type));
98: FII_UTIL.put_line(FII_MESSAGE.get_message(
99: 'FII_RECONV_SEC_RTYPE_PARAM_P', NULL
94: , 'P_VALUE', p_currency_type));
95: FII_UTIL.put_line(FII_MESSAGE.get_message(
96: 'FII_RECONV_PRI_RTYPE_PARAM_P', NULL
97: , 'P_VALUE', p_primary_rate_type));
98: FII_UTIL.put_line(FII_MESSAGE.get_message(
99: 'FII_RECONV_SEC_RTYPE_PARAM_P', NULL
100: , 'P_VALUE', p_secondary_rate_type));
101: FII_UTIL.put_line(FII_MESSAGE.get_message(
102: 'FII_RECONV_FROM_DATE_PARAM_P', NULL
97: , 'P_VALUE', p_primary_rate_type));
98: FII_UTIL.put_line(FII_MESSAGE.get_message(
99: 'FII_RECONV_SEC_RTYPE_PARAM_P', NULL
100: , 'P_VALUE', p_secondary_rate_type));
101: FII_UTIL.put_line(FII_MESSAGE.get_message(
102: 'FII_RECONV_FROM_DATE_PARAM_P', NULL
103: , 'P_VALUE', p_from_date));
104: FII_UTIL.put_line(FII_MESSAGE.get_message(
105: 'FII_RECONV_TO_DATE_PARAM_P', NULL
100: , 'P_VALUE', p_secondary_rate_type));
101: FII_UTIL.put_line(FII_MESSAGE.get_message(
102: 'FII_RECONV_FROM_DATE_PARAM_P', NULL
103: , 'P_VALUE', p_from_date));
104: FII_UTIL.put_line(FII_MESSAGE.get_message(
105: 'FII_RECONV_TO_DATE_PARAM_P', NULL
106: , 'P_VALUE', p_to_date));
107:
108: -- LOG: FII_RECONV_INIT_STEP || time stamp
106: , 'P_VALUE', p_to_date));
107:
108: -- LOG: FII_RECONV_INIT_STEP || time stamp
109: FII_UTIL.put_line(' ');
110: FII_UTIL.put_timestamp(FII_MESSAGE.get_message('FII_RECONV_INIT_STEP', NULL));
111: -- LOG: State debug mode is on if it does
112: FII_UTIL.debug_line('This process is running in debug mode');
113:
114: --
161: IF (p_transaction_type = 'GL')
162: THEN
163: -- Only GL is selected for reconversion but it's not installed
164: -- => Get error message and raise INVALID_SETUP exception
165: l_err_msg := FII_MESSAGE.get_message(
166: 'FII_RECONV_PROD_NOT_INSTALLED', NULL
167: , 'PROD_NAME', l_gl_name);
168: RAISE INVALID_SETUP;
169: END IF; -- IF (p_transaction_type = 'GL')
208: IF (p_transaction_type = 'AP')
209: THEN
210: -- Only AP is selected for reconversion but it's not installed
211: -- => Get error message and raise INVALID_SETUP exception
212: l_err_msg := FII_MESSAGE.get_message(
213: 'FII_RECONV_PROD_NOT_INSTALLED', NULL
214: , 'PROD_NAME', l_ap_name);
215: RAISE INVALID_SETUP;
216: END IF; -- IF (p_transaction_type = 'AP')
255: IF (p_transaction_type = 'AR')
256: THEN
257: -- Only AR is selected for reconversion but it's not installed
258: -- => Get error message and raise INVALID_SETUP exception
259: l_err_msg := FII_MESSAGE.get_message(
260: 'FII_RECONV_PROD_NOT_INSTALLED', NULL
261: , 'PROD_NAME', l_ar_name);
262: RAISE INVALID_SETUP;
263: END IF; -- IF (p_transaction_type = 'AR')
267: FII_UTIL.debug_line(' l_reconv_ar_flag = ' || l_reconv_ar_flag);
268:
269: l_process_step := 'GET_PRI_SEC_TEXT';
270: -- Set l_primaryText
271: l_primaryText := FII_MESSAGE.get_message('FII_RECONV_PRIMARY', NULL);
272: FII_UTIL.debug_line(' l_primaryText = ' || l_primaryText);
273: -- Set l_secondaryText
274: l_secondaryText := FII_MESSAGE.get_message('FII_RECONV_SECONDARY', NULL);
275: FII_UTIL.debug_line(' l_secondaryText = ' || l_secondaryText);
270: -- Set l_primaryText
271: l_primaryText := FII_MESSAGE.get_message('FII_RECONV_PRIMARY', NULL);
272: FII_UTIL.debug_line(' l_primaryText = ' || l_primaryText);
273: -- Set l_secondaryText
274: l_secondaryText := FII_MESSAGE.get_message('FII_RECONV_SECONDARY', NULL);
275: FII_UTIL.debug_line(' l_secondaryText = ' || l_secondaryText);
276:
277: -- Validate Primary global currency setup
278: l_process_step := 'VALIDATE_PRI_SETUP';
282: IF (p_primary_rate_type IS NULL)
283: THEN
284: -- It's not provided
285: -- => Get error message and raise INVALID_SETUP exception
286: l_err_msg := FII_MESSAGE.get_message( 'FII_RECONV_NO_RATE_TYPE', NULL
287: , 'CURR_TYPE1', l_primaryText
288: , 'CURR_TYPE2', l_primaryText);
289: RAISE INVALID_SETUP;
290:
299: IF (l_primary_currency IS NULL AND p_currency_type = 'PRIMARY')
300: THEN
301: -- Primary is selected only but fails to find its currency code
302: -- => Get error message and raise INVALID_SETUP exception
303: l_err_msg := FII_MESSAGE.get_message( 'FII_RECONV_CURR_NOT_FOUND', NULL
304: , 'CURR_TYPE', l_primaryText);
305: RAISE INVALID_SETUP;
306: END IF; -- IF (l_primary_currency IS NULL AND p_currency_type = 'PRIMARY')
307:
308: IF (l_primary_currency IS NOT NULL AND l_primary_mau IS NULL)
309: THEN
310: -- Cannot find the MAU for primary global currency
311: -- => Get error message and raise INVALID_SETUP exception
312: l_err_msg := FII_MESSAGE.get_message( 'FII_RECONV_INVALID_MAU', NULL
313: , 'CURR_TYPE', l_primaryText);
314: RAISE INVALID_SETUP;
315: END IF; -- IF (l_primary_currency IS NOT NULL AND l_primary_mau IS NULL)
316:
325: IF (p_secondary_rate_type IS NULL)
326: THEN
327: -- It's not provided
328: -- => Get error message and raise INVALID_SETUP exception
329: l_err_msg := FII_MESSAGE.get_message( 'FII_RECONV_NO_RATE_TYPE', NULL
330: , 'CURR_TYPE1', l_secondaryText
331: , 'CURR_TYPE2', l_secondaryText);
332: RAISE INVALID_SETUP;
333:
340: IF (l_secondary_currency IS NULL AND p_currency_type = 'SECONDARY')
341: THEN
342: -- Secondary is selected only but fails to find its currency code
343: -- => Get error message and raise INVALID_SETUP exception
344: l_err_msg := FII_MESSAGE.get_message( 'FII_RECONV_CURR_NOT_FOUND', NULL
345: , 'CURR_TYPE', l_secondaryText);
346: RAISE INVALID_SETUP;
347: END IF; -- IF (l_secondary_currency IS NULL AND p_currency_type = ...
348:
349: IF (l_secondary_currency IS NOT NULL AND l_secondary_mau IS NULL)
350: THEN
351: -- Cannot find the MAU for secondary global currency
352: -- => Get error message and raise INVALID_SETUP exception
353: l_err_msg := FII_MESSAGE.get_message( 'FII_RECONV_INVALID_MAU', NULL
354: , 'CURR_TYPE', l_secondaryText);
355: RAISE INVALID_SETUP;
356: END IF; -- IF (l_secondary_currency IS NOT NULL AND l_secondary_mau ...
357:
370: IF (l_from_date > l_to_date)
371: THEN
372: -- From Date is after To Date
373: -- => Get error message and raise INVALID_SETUP exception
374: l_err_msg := FII_MESSAGE.get_message('FII_RECONV_INVALID_DATE_RANGE', NULL);
375: RAISE INVALID_SETUP;
376:
377: ELSE
378: -- Validate the passed From Date which is defined in the global calendar
384: EXCEPTION
385: WHEN NO_DATA_FOUND THEN
386: -- From Date is not defined in the calendar
387: -- => Get error message and raise INVALID_SETUP exception
388: l_err_msg := FII_MESSAGE.get_message( 'FII_RECONV_INVALID_DATE', NULL
389: , 'P_DATE', l_from_date);
390: RAISE INVALID_SETUP;
391: END;
392: FII_UTIL.debug_line(' l_from_date_id = ' || l_from_date_id);
400: EXCEPTION
401: WHEN NO_DATA_FOUND THEN
402: -- To Date is not defined in the calendar
403: -- => Get error message and raise INVALID_SETUP exception
404: l_err_msg := FII_MESSAGE.get_message( 'FII_RECONV_INVALID_DATE', NULL
405: , 'P_DATE', l_to_date);
406: RAISE INVALID_SETUP;
407: END;
408: FII_UTIL.debug_line(' l_to_date_id = ' || l_to_date_id);
425: -- All required rates are cached successfully, so launch 1 sub-request to
426: -- reconvert global amounts for each product
427:
428: -- LOG: FII_RECONV_LAUNCH_STEP || time stamp
429: FII_UTIL.put_timestamp(FII_MESSAGE.get_message(
430: 'FII_RECONV_LAUNCH_STEP', NULL));
431:
432: -- ====================================================
433: -- 3. Launch request to reconvert global amounts for GL
465: IF (l_req_list(l_launched_ct).request_id = 0)
466: THEN
467: -- Fail to submit the child request
468: l_completion_status := 'E';
469: FII_UTIL.put_line(FII_MESSAGE.get_message(
470: 'FII_RECONV_LAUNCH_ERROR', NULL
471: , 'PROD_NAME', l_gl_name));
472: FII_UTIL.put_line(' ');
473: ELSE
473: ELSE
474: -- Succeed to submit the child request
475: -- Commit it in order to launch the child request
476: COMMIT;
477: FII_UTIL.put_line(FII_MESSAGE.get_message(
478: 'FII_RECONV_LAUNCH_SUCCESS', NULL
479: , 'REQ_ID', l_req_list(l_launched_ct).request_id
480: , 'PROD_NAME', l_gl_name));
481: l_running_ct := l_running_ct + 1;
518: IF (l_req_list(l_launched_ct).request_id = 0)
519: THEN
520: -- Fail to submit the child request
521: l_completion_status := 'E';
522: FII_UTIL.put_line(FII_MESSAGE.get_message(
523: 'FII_RECONV_LAUNCH_ERROR', NULL
524: , 'PROD_NAME', l_ap_name));
525: ELSE
526: -- Succeed to submit the child request
525: ELSE
526: -- Succeed to submit the child request
527: -- Commit it in order to launch the child request
528: COMMIT;
529: FII_UTIL.put_line(FII_MESSAGE.get_message(
530: 'FII_RECONV_LAUNCH_SUCCESS', NULL
531: , 'REQ_ID', l_req_list(l_launched_ct).request_id
532: , 'PROD_NAME', l_ap_name));
533: l_running_ct := l_running_ct + 1;
570: IF (l_req_list(l_launched_ct).request_id = 0)
571: THEN
572: -- Fail to submit the child request
573: l_completion_status := 'E';
574: FII_UTIL.put_line(FII_MESSAGE.get_message(
575: 'FII_RECONV_LAUNCH_ERROR', NULL
576: , 'PROD_NAME', l_ar_name));
577: ELSE
578: -- Succeed to submit the child request
577: ELSE
578: -- Succeed to submit the child request
579: -- Commit it in order to launch the child request
580: COMMIT;
581: FII_UTIL.put_line(FII_MESSAGE.get_message(
582: 'FII_RECONV_LAUNCH_SUCCESS', NULL
583: , 'REQ_ID', l_req_list(l_launched_ct).request_id
584: , 'PROD_NAME', l_ar_name));
585: l_running_ct := l_running_ct + 1;
595: -- complete before proceeding to print the execution report
596: l_process_step := 'WAIT_FOR_REQUESTS';
597: -- LOG: FII_RECONV_LAUNCH_STEP || time stamp
598: FII_UTIL.put_line(' ');
599: FII_UTIL.put_timestamp(FII_MESSAGE.get_message(
600: 'FII_RECONV_WAIT_STEP', NULL));
601:
602: WHILE (l_running_ct > 0 )
603: LOOP
620: IF (l_req_list(i).dev_phase = 'COMPLETE')
621: THEN
622: -- The launched request has completed
623: l_running_ct := l_running_ct - 1;
624: FII_UTIL.put_timestamp(FII_MESSAGE.get_message(
625: 'FII_RECONV_CHILD_COMPLETE', NULL
626: , 'REQ_ID', l_req_list(i).request_id
627: , 'STATUS', l_req_list(i).status));
628:
629: -- Check if it errors out
630: IF (l_req_list(i).dev_status = 'ERROR')
631: THEN
632: -- The child process errors out, so print error message
633: FII_UTIL.put_line(FII_MESSAGE.get_message(
634: 'FII_RECONV_CHILD_ERROR', NULL
635: , 'REQ_ID', l_req_list(i).request_id));
636: FII_UTIL.put_line(' ' || l_req_list(i).completion_msg);
637:
650: ELSIF (l_caching_status = 'M')
651: THEN
652: -- There are missing rates, so exit the program with error
653: l_completion_status := 'E';
654: l_err_msg := FII_MESSAGE.get_message('FII_RECONV_MISSING_RATES', NULL);
655:
656: ELSE
657: -- There are no transactions selected for reconversion. We will still
658: -- exit the program successfully
655:
656: ELSE
657: -- There are no transactions selected for reconversion. We will still
658: -- exit the program successfully
659: FII_UTIL.put_line(FII_MESSAGE.get_message(
660: 'FII_RECONV_NO_TRANSACTIONS', NULL));
661:
662: END IF; -- IF (l_caching_status = 'C')
663:
666: -- =========================
667: l_process_step := 'PRINT_EXECUTION_REPORT';
668: -- LOG: FII_RECONV_PRINT_RPT_STEP || time stamp
669: FII_UTIL.put_line(' ');
670: FII_UTIL.put_timestamp(FII_MESSAGE.get_message(
671: 'FII_RECONV_PRINT_RPT_STEP', NULL));
672: FII_RECONVERSION_PKG.print_report( l_conc_req_id
673: , p_transaction_type
674: , p_currency_type
685: -- 8. Cleanup the cached rates
686: -- ===========================
687: l_process_step := 'CLEANUP_CACHED_RATES';
688: -- LOG: FII_RECONV_EXIT_PROCESS_STEP || time stamp
689: FII_UTIL.put_timestamp(FII_MESSAGE.get_message(
690: 'FII_RECONV_CLEANUP_STEP', NULL));
691: -- Delete cached rates from FII_RECONV_RATES for this request and commit
692: DELETE FROM FII_RECONV_RATES
693: WHERE request_id = l_conc_req_id;
698: -- ===================
699: l_process_step := 'EXIT_PROCESS';
700: -- LOG: FII_RECONV_EXIT_PROCESS_STEP || time stamp
701: FII_UTIL.put_line(' ');
702: FII_UTIL.put_timestamp(FII_MESSAGE.get_message(
703: 'FII_RECONV_EXIT_PROCESS_STEP', NULL));
704:
705: IF (l_completion_status = 'E')
706: THEN
707: -- Process errors out
708: IF (l_caching_status = 'C')
709: THEN
710: FII_UTIL.debug_line('This process errors out because of sub-request(s)');
711: errbuf := FII_MESSAGE.get_message('FII_RECONV_PROCESS_FAIL', NULL);
712: l_process_step := 'LAUNCH_REQUESTS';
713: ELSE
714: FII_UTIL.debug_line('This process errors out because of missing rate(s)');
715: errbuf := l_err_msg;
821: l_process_step := 'CACHE_RATES_FOR_GL';
822:
823: -- LOG: FII_RECONV_CACHE_RATE_STEP || time stamp for GL
824: FII_UTIL.put_line(' ');
825: FII_UTIL.put_timestamp(FII_MESSAGE.get_message(
826: 'FII_RECONV_CACHE_RATE_STEP', NULL
827: , 'PROD_NAME', p_gl_name));
828:
829: -- Insert rates to FII_RECONV_RATES based on the transactions of
868: l_process_step := 'CACHE_RATES_FOR_AP';
869:
870: -- LOG: FII_RECONV_CACHE_RATE_STEP || time stamp for AP
871: FII_UTIL.put_line(' ');
872: FII_UTIL.put_timestamp(FII_MESSAGE.get_message(
873: 'FII_RECONV_CACHE_RATE_STEP', NULL
874: , 'PROD_NAME', p_ap_name));
875:
876: -- Insert rates to FII_RECONV_RATES based on the transactions of
917: l_process_step := 'CACHE_RATES_FOR_AR';
918:
919: -- LOG: FII_RECONV_CACHE_RATE_STEP || time stamp for AR
920: FII_UTIL.put_line(' ');
921: FII_UTIL.put_timestamp(FII_MESSAGE.get_message(
922: 'FII_RECONV_CACHE_RATE_STEP', NULL
923: , 'PROD_NAME', p_ar_name));
924:
925: -- Insert rates to FII_RECONV_RATES based on the transactions of
1044: -- LOG: Function enter
1045: FII_RECONVERSION_PKG.func_enter(l_procedure_name);
1046: -- LOG: FII_RECONV_INIT_STEP || time stamp
1047: FII_UTIL.put_line(' ');
1048: FII_UTIL.put_timestamp(FII_MESSAGE.get_message('FII_RECONV_INIT_STEP', NULL));
1049: -- LOG: State debug mode is on if it does
1050: FII_UTIL.debug_line('This process is running in debug mode');
1051:
1052: -- Determine if we should use ID columns or not
1090: END;
1091:
1092: -- LOG: FII_RECONV_RECONVERT_AMT_STEP || time stamp for GL
1093: FII_UTIL.put_line(' ');
1094: FII_UTIL.put_timestamp(FII_MESSAGE.get_message(
1095: 'FII_RECONV_RECONVERT_AMT_STEP', NULL
1096: , 'PROD_NAME', p_product_name));
1097:
1098: --
1786:
1787: END IF; -- IF (l_processed_rows > 0)
1788: -- LOG: Print out the number of updated rows for GL
1789: FII_UTIL.put_line(' ');
1790: l_message := FII_MESSAGE.get_message('FII_RECONV_UPDATED_ROWS', NULL,
1791: 'NUM_ROWS', l_processed_rows,
1792: 'PROD_NAME', p_product_name);
1793: FII_UTIL.put_line(l_message);
1794:
1797: --
1798: l_process_step := 'EXIT_PROCESS';
1799: -- LOG: FII_RECONV_EXIT_PROCESS_STEP || time stamp
1800: FII_UTIL.put_line(' ');
1801: FII_UTIL.put_timestamp(FII_MESSAGE.get_message(
1802: 'FII_RECONV_EXIT_PROCESS_STEP', NULL));
1803: FII_UTIL.debug_line('Process complete successfully');
1804:
1805: -- Commit changes to the database and print log messages
1877: FII_UTIL.put_line(' ');
1878: -- LOG: Function enter
1879: FII_RECONVERSION_PKG.func_enter(l_procedure_name);
1880: -- LOG: FII_RECONV_INIT_STEP || time stamp
1881: FII_UTIL.put_timestamp(FII_MESSAGE.get_message('FII_RECONV_INIT_STEP', NULL));
1882: -- LOG: State debug mode is on if it does
1883: FII_UTIL.debug_line('This process is running in debug mode');
1884:
1885: -- LOG: FII_RECONV_RECONVERT_AMT_STEP || time stamp for AP
1883: FII_UTIL.debug_line('This process is running in debug mode');
1884:
1885: -- LOG: FII_RECONV_RECONVERT_AMT_STEP || time stamp for AP
1886: FII_UTIL.put_line(' ');
1887: FII_UTIL.put_timestamp(FII_MESSAGE.get_message(
1888: 'FII_RECONV_RECONVERT_AMT_STEP', NULL
1889: , 'PROD_NAME', p_product_name));
1890:
1891: --
1930: l_processed_rows := SQL%ROWCOUNT;
1931: COMMIT;
1932:
1933: -- LOG: Print out the number of updated rows for AP
1934: l_message := FII_MESSAGE.get_message('FII_RECONV_UPDATED_ROWS', NULL,
1935: 'NUM_ROWS', NVL(l_processed_rows, 0),
1936: 'PROD_NAME', p_product_name);
1937: FII_UTIL.put_line(l_message);
1938:
1941: --
1942: l_process_step := 'EXIT_PROCESS';
1943: -- LOG: FII_RECONV_EXIT_PROCESS_STEP || time stamp
1944: FII_UTIL.put_line(' ');
1945: FII_UTIL.put_timestamp(FII_MESSAGE.get_message(
1946: 'FII_RECONV_EXIT_PROCESS_STEP', NULL));
1947: FII_UTIL.debug_line('Process complete successfully');
1948:
1949: -- Commit changes to the database and print log messages
2006: FII_UTIL.put_line(' ');
2007: -- LOG: Function enter
2008: FII_RECONVERSION_PKG.func_enter(l_procedure_name);
2009: -- LOG: FII_RECONV_INIT_STEP || time stamp
2010: FII_UTIL.put_timestamp(FII_MESSAGE.get_message('FII_RECONV_INIT_STEP', NULL));
2011: -- LOG: State debug mode is on if it does
2012: FII_UTIL.debug_line('This process is running in debug mode');
2013: -- LOG: FII_RECONV_RECONVERT_AMT_STEP || time stamp for AR
2014: FII_UTIL.put_line(' ');
2011: -- LOG: State debug mode is on if it does
2012: FII_UTIL.debug_line('This process is running in debug mode');
2013: -- LOG: FII_RECONV_RECONVERT_AMT_STEP || time stamp for AR
2014: FII_UTIL.put_line(' ');
2015: FII_UTIL.put_timestamp(FII_MESSAGE.get_message(
2016: 'FII_RECONV_RECONVERT_AMT_STEP', NULL
2017: , 'PROD_NAME', p_product_name));
2018:
2019: --
2056: l_processed_rows := SQL%ROWCOUNT;
2057: COMMIT;
2058:
2059: -- LOG: Print out the number of updated rows for AR
2060: l_message := FII_MESSAGE.get_message('FII_RECONV_UPDATED_ROWS', NULL,
2061: 'NUM_ROWS', NVL(l_processed_rows, 0),
2062: 'PROD_NAME', p_product_name);
2063: FII_UTIL.put_line(l_message);
2064:
2067: --
2068: l_process_step := 'EXIT_PROCESS';
2069: -- LOG: FII_RECONV_EXIT_PROCESS_STEP || time stamp
2070: FII_UTIL.put_line(' ');
2071: FII_UTIL.put_timestamp(FII_MESSAGE.get_message(
2072: 'FII_RECONV_EXIT_PROCESS_STEP', NULL));
2073: FII_UTIL.debug_line('Process complete successfully');
2074:
2075: -- Commit changes to the database and print log messages
2176: -- 6.2 List the passed IN parameters
2177: --
2178: l_process_step := 'PRINT_IN_PARAMS';
2179: FND_FILE.new_line(FND_FILE.output, 1);
2180: FII_MESSAGE.write_output( 'FII_RECONV_TRX_TYPE_PARAM_P', 1
2181: , 'P_VALUE', p_transaction_type);
2182: FII_MESSAGE.write_output( 'FII_RECONV_CURR_TYPE_PARAM_P', 1
2183: , 'P_VALUE', p_currency_type);
2184: FII_MESSAGE.write_output( 'FII_RECONV_PRI_RTYPE_PARAM_P', 1
2178: l_process_step := 'PRINT_IN_PARAMS';
2179: FND_FILE.new_line(FND_FILE.output, 1);
2180: FII_MESSAGE.write_output( 'FII_RECONV_TRX_TYPE_PARAM_P', 1
2181: , 'P_VALUE', p_transaction_type);
2182: FII_MESSAGE.write_output( 'FII_RECONV_CURR_TYPE_PARAM_P', 1
2183: , 'P_VALUE', p_currency_type);
2184: FII_MESSAGE.write_output( 'FII_RECONV_PRI_RTYPE_PARAM_P', 1
2185: , 'P_VALUE', p_primary_rate_type);
2186: FII_MESSAGE.write_output( 'FII_RECONV_SEC_RTYPE_PARAM_P', 1
2180: FII_MESSAGE.write_output( 'FII_RECONV_TRX_TYPE_PARAM_P', 1
2181: , 'P_VALUE', p_transaction_type);
2182: FII_MESSAGE.write_output( 'FII_RECONV_CURR_TYPE_PARAM_P', 1
2183: , 'P_VALUE', p_currency_type);
2184: FII_MESSAGE.write_output( 'FII_RECONV_PRI_RTYPE_PARAM_P', 1
2185: , 'P_VALUE', p_primary_rate_type);
2186: FII_MESSAGE.write_output( 'FII_RECONV_SEC_RTYPE_PARAM_P', 1
2187: , 'P_VALUE', p_secondary_rate_type);
2188: FII_MESSAGE.write_output( 'FII_RECONV_FROM_DATE_PARAM_P', 1
2182: FII_MESSAGE.write_output( 'FII_RECONV_CURR_TYPE_PARAM_P', 1
2183: , 'P_VALUE', p_currency_type);
2184: FII_MESSAGE.write_output( 'FII_RECONV_PRI_RTYPE_PARAM_P', 1
2185: , 'P_VALUE', p_primary_rate_type);
2186: FII_MESSAGE.write_output( 'FII_RECONV_SEC_RTYPE_PARAM_P', 1
2187: , 'P_VALUE', p_secondary_rate_type);
2188: FII_MESSAGE.write_output( 'FII_RECONV_FROM_DATE_PARAM_P', 1
2189: , 'P_VALUE', p_from_date);
2190: FII_MESSAGE.write_output('FII_RECONV_TO_DATE_PARAM_P', 1
2184: FII_MESSAGE.write_output( 'FII_RECONV_PRI_RTYPE_PARAM_P', 1
2185: , 'P_VALUE', p_primary_rate_type);
2186: FII_MESSAGE.write_output( 'FII_RECONV_SEC_RTYPE_PARAM_P', 1
2187: , 'P_VALUE', p_secondary_rate_type);
2188: FII_MESSAGE.write_output( 'FII_RECONV_FROM_DATE_PARAM_P', 1
2189: , 'P_VALUE', p_from_date);
2190: FII_MESSAGE.write_output('FII_RECONV_TO_DATE_PARAM_P', 1
2191: , 'P_VALUE', p_to_date);
2192: l_line_count := l_line_count + 7;
2186: FII_MESSAGE.write_output( 'FII_RECONV_SEC_RTYPE_PARAM_P', 1
2187: , 'P_VALUE', p_secondary_rate_type);
2188: FII_MESSAGE.write_output( 'FII_RECONV_FROM_DATE_PARAM_P', 1
2189: , 'P_VALUE', p_from_date);
2190: FII_MESSAGE.write_output('FII_RECONV_TO_DATE_PARAM_P', 1
2191: , 'P_VALUE', p_to_date);
2192: l_line_count := l_line_count + 7;
2193:
2194: --
2199: -- There are no transactions selected for reconversion
2200: l_process_step := 'PRINT_NO_TRX_MSG';
2201: FND_FILE.new_line(FND_FILE.output, 1);
2202: -- Print to report
2203: FII_MESSAGE.write_output('FII_RECONV_NO_TRANSACTIONS');
2204: l_line_count := l_line_count + 2;
2205:
2206: ELSE
2207: -- There are transactions selected for reconversion
2213:
2214: -- Print the error message
2215: l_process_step := 'PRINT_MRATE_MSG';
2216: FND_FILE.new_line(FND_FILE.output, 1);
2217: FII_MESSAGE.write_output('FII_RECONV_MISSING_RATES');
2218: FND_FILE.new_line(FND_FILE.output, 1);
2219: FII_MESSAGE.write_output('FII_RECONV_MRATE_LIST_PROMPT');
2220: l_line_count := l_line_count + 4;
2221:
2215: l_process_step := 'PRINT_MRATE_MSG';
2216: FND_FILE.new_line(FND_FILE.output, 1);
2217: FII_MESSAGE.write_output('FII_RECONV_MISSING_RATES');
2218: FND_FILE.new_line(FND_FILE.output, 1);
2219: FII_MESSAGE.write_output('FII_RECONV_MRATE_LIST_PROMPT');
2220: l_line_count := l_line_count + 4;
2221:
2222: -- Print Missing Rates table header
2223: l_process_step := 'PRINT_MTABLE_HDR';
2262: l_process_step := 'PRINT_CRATE_MSG';
2263: FND_FILE.new_line(FND_FILE.output, 1);
2264: IF (p_completion_status = 'S')
2265: THEN
2266: FII_MESSAGE.write_output('FII_RECONV_RECONVERT_SUCCESS');
2267: ELSE
2268: FII_MESSAGE.write_output('FII_RECONV_PROCESS_FAIL');
2269: END IF; -- IF (p_completion_status = 'N')
2270: l_line_count := l_line_count + 2;
2264: IF (p_completion_status = 'S')
2265: THEN
2266: FII_MESSAGE.write_output('FII_RECONV_RECONVERT_SUCCESS');
2267: ELSE
2268: FII_MESSAGE.write_output('FII_RECONV_PROCESS_FAIL');
2269: END IF; -- IF (p_completion_status = 'N')
2270: l_line_count := l_line_count + 2;
2271:
2272: END IF; -- IF (p_cache_rate_status = 'M')
2287: IF (l_print_common_msg)
2288: THEN
2289: -- Print common message
2290: FND_FILE.new_line(FND_FILE.output, 1);
2291: FII_MESSAGE.write_output('FII_RECONV_CRATE_LIST_PROMPT');
2292: l_line_count := l_line_count + 2;
2293:
2294: -- Print Cached Rates table header
2295: FII_RECONVERSION_PKG.print_ctable_hdr(l_line_count);
2371: l_line_text := l_line_text || LPAD(l_message, 48, ' ');
2372:
2373: -- Append page number
2374: l_process_step := 'APPEND_PAGE_NUMBER';
2375: l_message := FII_MESSAGE.get_message( 'FII_RECONV_PAGE_PROMPT', NULL
2376: , 'P_NUM', p_page_count);
2377: l_line_text := l_line_text || LPAD(l_message, 49, ' ');
2378:
2379: -- Print the header line
2410:
2411: -- 6.3.1 Print 1 blank line
2412: FND_FILE.new_line(FND_FILE.output, 1);
2413: -- 6.3.2 Print missing rate table column header
2414: FII_MESSAGE.write_output('FII_RECONV_MTABLE_COLS');
2415: -- 6.3.3 Print missing rate table column line header
2416: FII_MESSAGE.write_output('FII_RECONV_MTABLE_COL_LINE');
2417: p_line_count := p_line_count + 3;
2418:
2412: FND_FILE.new_line(FND_FILE.output, 1);
2413: -- 6.3.2 Print missing rate table column header
2414: FII_MESSAGE.write_output('FII_RECONV_MTABLE_COLS');
2415: -- 6.3.3 Print missing rate table column line header
2416: FII_MESSAGE.write_output('FII_RECONV_MTABLE_COL_LINE');
2417: p_line_count := p_line_count + 3;
2418:
2419: FII_RECONVERSION_PKG.func_succ(l_procedure_name);
2420: EXCEPTION
2443:
2444: -- 6.4.1 Print 1 blank line
2445: FND_FILE.new_line(FND_FILE.output, 1);
2446: -- 6.4.2 Print cached rate table column header
2447: FII_MESSAGE.write_output('FII_RECONV_CTABLE_COLS');
2448: -- 6.4.3 Print cached rate table column line header
2449: FII_MESSAGE.write_output('FII_RECONV_CTABLE_COL_LINE');
2450: p_line_count := p_line_count + 3;
2451:
2445: FND_FILE.new_line(FND_FILE.output, 1);
2446: -- 6.4.2 Print cached rate table column header
2447: FII_MESSAGE.write_output('FII_RECONV_CTABLE_COLS');
2448: -- 6.4.3 Print cached rate table column line header
2449: FII_MESSAGE.write_output('FII_RECONV_CTABLE_COL_LINE');
2450: p_line_count := p_line_count + 3;
2451:
2452: FII_RECONVERSION_PKG.func_succ(l_procedure_name);
2453: EXCEPTION
2493: -- func_enter()
2494: --
2495: -- DESCRIPTION:
2496: -- It will print some customerized output to log and then call
2497: -- FII_MESSAGE.func_enter() to print standard output for entering function
2498: PROCEDURE func_enter(p_func_name IN VARCHAR2) IS
2499: BEGIN
2500: FII_UTIL.put_line(' ');
2501: FII_MESSAGE.func_ent(p_func_name);
2497: -- FII_MESSAGE.func_enter() to print standard output for entering function
2498: PROCEDURE func_enter(p_func_name IN VARCHAR2) IS
2499: BEGIN
2500: FII_UTIL.put_line(' ');
2501: FII_MESSAGE.func_ent(p_func_name);
2502: END func_enter;
2503:
2504:
2505: -- PROCEDURE
2506: -- func_succ()
2507: --
2508: -- DESCRIPTION:
2509: -- It will print some customerized output to log and then call
2510: -- FII_MESSAGE.func_succ() to print standard output for exiting function
2511: -- successfully
2512: PROCEDURE func_succ(p_func_name IN VARCHAR2) IS
2513: BEGIN
2514: FII_MESSAGE.func_succ(p_func_name);
2510: -- FII_MESSAGE.func_succ() to print standard output for exiting function
2511: -- successfully
2512: PROCEDURE func_succ(p_func_name IN VARCHAR2) IS
2513: BEGIN
2514: FII_MESSAGE.func_succ(p_func_name);
2515: FII_UTIL.put_line(' ');
2516: END func_succ;
2517:
2518:
2520: -- func_fail()
2521: --
2522: -- DESCRIPTION:
2523: -- It will print some additional output/error message to log and then call
2524: -- FII_MESSAGE.func_fail() to print standard output for exiting function with
2525: -- error
2526: PROCEDURE func_fail( p_func_name IN VARCHAR2
2527: , p_debug_step IN VARCHAR2
2528: , p_err_msg IN VARCHAR2) IS
2532: FII_UTIL.debug_line('Raise error while ' || p_debug_step);
2533:
2534: -- Print the error message
2535: FII_UTIL.put_line(' ');
2536: FII_UTIL.put_line(FII_MESSAGE.get_message(
2537: 'FII_ERR_ENC_ROUT', NULL
2538: , 'ROUTINE_NAME', p_func_name || '()'));
2539: IF (p_err_msg IS NOT NULL)
2540: THEN
2542: END IF;
2543: FII_UTIL.put_line(' ');
2544:
2545: -- Print the standard output
2546: FII_MESSAGE.func_fail(p_func_name);
2547: FII_UTIL.put_line(' ');
2548: END func_fail;
2549:
2550: END FII_RECONVERSION_PKG;