1: PACKAGE BODY jl_zz_fa_reval_rules_pkg AS
2: /* $Header: jlzzfrrb.pls 120.16 2006/12/22 18:59:54 abuissa ship $ */
3:
4: /* ======================================================================*
5: | FND Logging infrastructure |
6: * ======================================================================*/
7: G_PKG_NAME CONSTANT VARCHAR2(30) := 'JL_ZZ_FA_REVAL_RULES_PKG';
8: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
9: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
4: /* ======================================================================*
5: | FND Logging infrastructure |
6: * ======================================================================*/
7: G_PKG_NAME CONSTANT VARCHAR2(30) := 'JL_ZZ_FA_REVAL_RULES_PKG';
8: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
9: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
10: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
11: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
12: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
5: | FND Logging infrastructure |
6: * ======================================================================*/
7: G_PKG_NAME CONSTANT VARCHAR2(30) := 'JL_ZZ_FA_REVAL_RULES_PKG';
8: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
9: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
10: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
11: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
12: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
13: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
6: * ======================================================================*/
7: G_PKG_NAME CONSTANT VARCHAR2(30) := 'JL_ZZ_FA_REVAL_RULES_PKG';
8: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
9: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
10: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
11: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
12: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
13: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
14: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
7: G_PKG_NAME CONSTANT VARCHAR2(30) := 'JL_ZZ_FA_REVAL_RULES_PKG';
8: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
9: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
10: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
11: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
12: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
13: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
14: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
15: G_MODULE_NAME CONSTANT VARCHAR2(80) := 'JL.PLSQL.JL_ZZ_FA_REVAL_RULES_PKG.';
8: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
9: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
10: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
11: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
12: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
13: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
14: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
15: G_MODULE_NAME CONSTANT VARCHAR2(80) := 'JL.PLSQL.JL_ZZ_FA_REVAL_RULES_PKG.';
16:
9: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
10: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
11: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
12: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
13: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
14: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
15: G_MODULE_NAME CONSTANT VARCHAR2(80) := 'JL.PLSQL.JL_ZZ_FA_REVAL_RULES_PKG.';
16:
17:
10: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
11: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
12: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
13: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
14: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
15: G_MODULE_NAME CONSTANT VARCHAR2(80) := 'JL.PLSQL.JL_ZZ_FA_REVAL_RULES_PKG.';
16:
17:
18: /*+=========================================================================+
152:
153: BEGIN
154:
155: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
156: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'(+)');
157: END IF;
158: ------------------------------------------------------------
159: -- Gets the country code where the program is executed. --
160: ------------------------------------------------------------
166:
167: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
168: g_char := 'Start Debugging';
169: fnd_file.put_line (FND_FILE.LOG, g_char);
170: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
171:
172: g_char := ' ';
173: fnd_file.put_line (FND_FILE.LOG, g_char);
174: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
170: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
171:
172: g_char := ' ';
173: fnd_file.put_line (FND_FILE.LOG, g_char);
174: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
175:
176: g_char := 'Procedure initialize_process';
177: fnd_file.put_line (FND_FILE.LOG, g_char);
178: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
174: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
175:
176: g_char := 'Procedure initialize_process';
177: fnd_file.put_line (FND_FILE.LOG, g_char);
178: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
179:
180: g_char := 'Country :'||g_country_code;
181: fnd_file.put_line (FND_FILE.LOG, g_char);
182: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
178: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
179:
180: g_char := 'Country :'||g_country_code;
181: fnd_file.put_line (FND_FILE.LOG, g_char);
182: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
183:
184: g_char := 'Precision :'||g_precision;
185: fnd_file.put_line (FND_FILE.LOG, g_char);
186: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
182: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
183:
184: g_char := 'Precision :'||g_precision;
185: fnd_file.put_line (FND_FILE.LOG, g_char);
186: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
187: END IF;
188:
189:
190: IF g_precision IS NULL THEN
199:
200: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
201: g_char := 'Deleting fa_mass_revaluation_rules table';
202: fnd_file.put_line (FND_FILE.LOG, g_char);
203: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
204: END IF;
205:
206: DELETE FROM fa_mass_revaluation_rules
207: Where mass_reval_id = p_mass_reval_id;
318: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
319:
320: g_char := 'Period counter :'||TO_CHAR(g_current_period_counter1);
321: fnd_file.put_line (FND_FILE.LOG, g_char);
322: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
323:
324: g_char := ' ';
325: fnd_file.put_line (FND_FILE.LOG, g_char);
326: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
322: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
323:
324: g_char := ' ';
325: fnd_file.put_line (FND_FILE.LOG, g_char);
326: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
327: g_char := 'End of procedure initialize_process';
328: fnd_file.put_line (FND_FILE.LOG, g_char);
329: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
330: END IF;
325: fnd_file.put_line (FND_FILE.LOG, g_char);
326: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
327: g_char := 'End of procedure initialize_process';
328: fnd_file.put_line (FND_FILE.LOG, g_char);
329: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
330: END IF;
331:
332: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
333: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'(-)');
329: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
330: END IF;
331:
332: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
333: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'(-)');
334: END IF;
335:
336: END initialize_process;
337:
355:
356: BEGIN
357:
358: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
359: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'(+)');
360: END IF;
361:
362: ------------------------------------------------------------
363: -- Fetch the index for the depreciation book and category --
367:
368: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
369: g_char := 'Procedure initialize_category';
370: fnd_file.put_line (FND_FILE.LOG, g_char);
371: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
372: END IF;
373:
374: SELECT price_index_id
375: INTO g_price_index
384:
385: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
386: g_char := 'Price index :'||TO_CHAR(g_price_index);
387: fnd_file.put_line (FND_FILE.LOG, g_char);
388: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
389: END IF;
390:
391: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
392: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'(-)');
388: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
389: END IF;
390:
391: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
392: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'(-)');
393: END IF;
394:
395: END initialize_category;
396:
411:
412: BEGIN
413:
414: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
415: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'(+)');
416: END IF;
417:
418: g_step := 'MISSING PERIOD';
419:
420: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
421: g_char := 'Procedure get_close_date parameter p_date is '||p_date||
422: ' and must be in canonical format YYYY/MM/DD HH24:MI:SS';
423: fnd_file.put_line (FND_FILE.LOG, g_char);
424: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
425: END IF;
426:
427:
428: SELECT decode(g_country_code, 'CL',(start_date-1), end_date)
434:
435: g_step := '';
436:
437: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
438: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'(-)');
439: END IF;
440:
441: END get_close_date;
442:
504:
505: BEGIN
506:
507: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
508: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'(+)');
509: END IF;
510:
511: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
512: g_char := 'Function first_deprn';
510:
511: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
512: g_char := 'Function first_deprn';
513: fnd_file.put_line (FND_FILE.LOG, g_char);
514: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
515: END IF;
516:
517: --
518: --BUGS 2808946/2872684. Logic to identify First Depreciation period
543: RETURN(FALSE);
544: END IF;
545:
546: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
547: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'(-)');
548: END IF;
549:
550: END first_deprn;
551:
621:
622: BEGIN
623:
624: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
625: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'(+)');
626: END IF;
627:
628: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
629: g_char := 'Function get_revaluation_rates ';
627:
628: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
629: g_char := 'Function get_revaluation_rates ';
630: fnd_file.put_line (FND_FILE.LOG, g_char);
631: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
632: g_char := 'Asset id :'||TO_CHAR(p_asset_id);
633: fnd_file.put_line (FND_FILE.LOG, g_char);
634: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
635: g_char := 'Asset start date :'||TO_CHAR(p_asset_start_date);
630: fnd_file.put_line (FND_FILE.LOG, g_char);
631: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
632: g_char := 'Asset id :'||TO_CHAR(p_asset_id);
633: fnd_file.put_line (FND_FILE.LOG, g_char);
634: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
635: g_char := 'Asset start date :'||TO_CHAR(p_asset_start_date);
636: fnd_file.put_line (FND_FILE.LOG, g_char);
637: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
638: END IF;
633: fnd_file.put_line (FND_FILE.LOG, g_char);
634: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
635: g_char := 'Asset start date :'||TO_CHAR(p_asset_start_date);
636: fnd_file.put_line (FND_FILE.LOG, g_char);
637: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
638: END IF;
639:
640: ------------------------------------------------------------
641: -- Inflation adjustment rate will be computed here --
675:
676: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
677: g_char := 'In eval_reinstatements';
678: fnd_file.put_line (FND_FILE.LOG, g_char);
679: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
680: END IF;
681:
682: get_close_date(p_date_retired,l_close_date);
683:
699:
700: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
701: g_char := 'In first_deprn';
702: fnd_file.put_line (FND_FILE.LOG, g_char);
703: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
704: END IF;
705:
706: get_close_date(p_asset_start_date,l_close_date);
707:
717:
718: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
719: g_char := 'Normal Indexes';
720: fnd_file.put_line (FND_FILE.LOG, g_char);
721: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
722: END IF;
723:
724: get_price_index_rate (g_previous_period_to_date
725: , l_previous_index_value);
746:
747: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
748: g_char := 'Asset CIP, previous cost, current cost :'||TO_CHAR(l_previous_period_cost)||','||TO_CHAR(p_current_cost);
749: fnd_file.put_line (FND_FILE.LOG, g_char);
750: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
751: END IF;
752:
753: l_rate := ((p_current_cost + l_previous_period_cost * l_rate)/p_current_cost)-1;
754:
761: END IF;
762:
763:
764: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
765: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'(-)');
766: END IF;
767:
768: RETURN(l_rate);
769:
784: BEGIN
785: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
786: g_char := 'Procedure create_revaluation_rule(+)';
787: fnd_file.put_line (FND_FILE.LOG, g_char);
788: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
789: g_char := 'values inserted into fa_mass_revaluation_rules:';
790: fnd_file.put_line (FND_FILE.LOG, g_char);
791: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
792: g_char := 'asset id:'||to_char(p_asset_id)||
787: fnd_file.put_line (FND_FILE.LOG, g_char);
788: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
789: g_char := 'values inserted into fa_mass_revaluation_rules:';
790: fnd_file.put_line (FND_FILE.LOG, g_char);
791: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
792: g_char := 'asset id:'||to_char(p_asset_id)||
793: ' override_defaults_flag:'||'No'||
794: ' revalue_cip_assets_flag:'||g_revalue_cip_assets_flag||
795: ' reval_fully_rsvd_flag:'||g_reval_fully_rsvd_flag||
794: ' revalue_cip_assets_flag:'||g_revalue_cip_assets_flag||
795: ' reval_fully_rsvd_flag:'||g_reval_fully_rsvd_flag||
796: ' life_extension_factor:'||to_char(g_life_extension_factor);
797: fnd_file.put_line (FND_FILE.LOG, g_char);
798: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
799: END IF;
800:
801: --
802: --Bug 3073126. As indicated by FA masethur.in we have put following
835:
836: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
837: g_char := 'Procedure create_revaluation_rule(-)';
838: fnd_file.put_line (FND_FILE.LOG, g_char);
839: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
840: END IF;
841:
842: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
843: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'(-)');
839: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
840: END IF;
841:
842: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
843: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'(-)');
844: END IF;
845:
846: END create_revaluation_rule;
847:
859:
860: BEGIN
861:
862: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
863: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'(+)');
864: END IF;
865:
866: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
867: g_char := 'Procedure update_control_tables';
865:
866: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
867: g_char := 'Procedure update_control_tables';
868: fnd_file.put_line (FND_FILE.LOG, g_char);
869: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
870: END IF;
871: UPDATE fa_book_controls
872: SET global_attribute2 = g_current_period_counter1,
873: global_attribute3 = p_mass_reval_id
880: WHERE mass_reval_id = p_mass_reval_id;
881: */
882:
883: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
884: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'(-)');
885: END IF;
886:
887: END update_control_tables;
888:
901:
902: BEGIN
903:
904: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
905: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'(+)');
906: END IF;
907:
908: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
909: g_char := 'Submiting Preview Report.';
907:
908: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
909: g_char := 'Submiting Preview Report.';
910: fnd_file.put_line (FND_FILE.LOG, g_char);
911: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, g_char);
912: END IF;
913:
914: l_request_id := FND_REQUEST.SUBMIT_REQUEST('OFA',
915: 'FASRVPVW','','', FALSE,
934: FND_FILE.PUT_LINE(FND_FILE.log, l_message_text);
935: END IF;
936:
937: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
938: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'(-)');
939: END IF;
940:
941: END preview_report;
942: