eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.JL_CO_FA_PURGE_PKG dependencies on JL_CO_FA_PURGE

Line 1: PACKAGE BODY jl_co_fa_purge_pkg AS

1: PACKAGE BODY jl_co_fa_purge_pkg AS
2: /* $Header: jlcoftpb.pls 120.7.12020000.2 2012/11/29 13:40:09 mbarrett ship $ */
3:
4: /* ======================================================================*
5: | FND Logging infrastructure |

Line 7: G_PKG_NAME CONSTANT VARCHAR2(30) := 'JL_CO_FA_PURGE_PKG';

3:
4: /* ======================================================================*
5: | FND Logging infrastructure |
6: * ======================================================================*/
7: G_PKG_NAME CONSTANT VARCHAR2(30) := 'JL_CO_FA_PURGE_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;

Line 15: G_MODULE_NAME CONSTANT VARCHAR2(80) := 'JL.PLSQL.JL_CO_FA_PURGE_PKG.';

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_CO_FA_PURGE_PKG.';
16:
17: TYPE varchar2s is table of VARCHAR2(256) INDEX BY BINARY_INTEGER;
18: x_last_updated_by NUMBER(15);
19: x_last_update_login NUMBER(15);

Line 117: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_OPTION');

113: fnd_file.put_line( 1, fnd_message.get);
114: fnd_message.set_name('JL', 'JL_CO_FA_FISCAL_YEAR');
115: fnd_message.set_token('FISCAL_YEAR', p_fiscal_year);
116: fnd_file.put_line( 1, fnd_message.get);
117: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_OPTION');
118: fnd_message.set_token('OPTION', p_option);
119: fnd_file.put_line( 1, fnd_message.get);
120: fnd_file.put_line(FND_FILE.LOG, '----------------------------------------');
121: ---------------------------------------------------------

Line 216: -- book-year in jl_co_fa_purge and their status is --

212: IF p_option = 'ARCHIVE' THEN
213:
214: ---------------------------------------------------------
215: -- Stop the program if row exists for the couple --
216: -- book-year in jl_co_fa_purge and their status is --
217: -- 'RESTORED' or 'PURGED' --
218: ---------------------------------------------------------
219:
220: SELECT count(*)

Line 222: FROM jl_co_fa_purge

218: ---------------------------------------------------------
219:
220: SELECT count(*)
221: INTO x_count
222: FROM jl_co_fa_purge
223: WHERE book_type_code = p_book
224: AND fiscal_year = p_fiscal_year
225: AND status IN ( 'RESTORED', 'PURGED');
226: IF x_count <> 0 then

Line 239: FROM jl_co_fa_purge

235:
236: IF (p_fiscal_year > x_initial_fiscal_year) THEN
237: SELECT count(*)
238: INTO x_count
239: FROM jl_co_fa_purge
240: WHERE book_type_code = p_book
241: AND fiscal_year = (p_fiscal_year -1)
242: AND status IN ('PURGED', 'ARCHIVED', 'RESTORE');
243: IF (x_count = 0) THEN

Line 260: -- book-year in jl_co_fa_purge and their status is --

256: IF (p_option = 'DELETE') THEN
257:
258: ---------------------------------------------------------
259: -- Stop the program if row exists for the couple --
260: -- book-year in jl_co_fa_purge and their status is --
261: -- different from 'RESTORED' or 'ARCHAIVED' --
262: ---------------------------------------------------------
263:
264: SELECT count(*)

Line 266: FROM jl_co_fa_purge

262: ---------------------------------------------------------
263:
264: SELECT count(*)
265: INTO x_count
266: FROM jl_co_fa_purge
267: WHERE book_type_code = p_book
268: AND fiscal_year = p_fiscal_year
269: AND status IN ('ARCHIVED', 'RESTORED');
270:

Line 285: FROM jl_co_fa_purge

281:
282: IF (p_fiscal_year > x_initial_fiscal_year) THEN
283: SELECT count(*)
284: INTO x_count
285: FROM jl_co_fa_purge
286: WHERE book_type_code = p_book
287: AND fiscal_year = (p_fiscal_year -1)
288: AND status IN ('PURGED');
289: IF (x_count = 0) THEN

Line 306: -- book-year in jl_co_fa_purge and their status is --

302: IF (p_option = 'RESTORE') THEN
303:
304: ---------------------------------------------------------
305: -- Stop the program if row exists for the couple --
306: -- book-year in jl_co_fa_purge and their status is --
307: -- different from 'PURGED' --
308: ---------------------------------------------------------
309:
310: SELECT count(*)

Line 312: FROM jl_co_fa_purge

308: ---------------------------------------------------------
309:
310: SELECT count(*)
311: INTO x_count
312: FROM jl_co_fa_purge
313: WHERE book_type_code = p_book
314: AND fiscal_year = p_fiscal_year
315: AND status = 'PURGED';
316: IF (x_count = 0) THEN

Line 330: FROM jl_co_fa_purge

326: IF (p_fiscal_year < x_current_fiscal_year) THEN
327:
328: SELECT count(*)
329: INTO x_count
330: FROM jl_co_fa_purge
331: WHERE book_type_code = p_book
332: AND fiscal_year = (p_fiscal_year +1)
333: ANd status = 'PURGED';
334: IF (x_count <> 0) THEN

Line 343: -- find the row from jl_co_fa_purge --

339: END IF;
340: END IF;
341:
342: ---------------------------------------------------------
343: -- find the row from jl_co_fa_purge --
344: ---------------------------------------------------------
345:
346: SELECT count(*)
347: INTO x_count

Line 348: FROM jl_co_fa_purge

344: ---------------------------------------------------------
345:
346: SELECT count(*)
347: INTO x_count
348: FROM jl_co_fa_purge
349: WHERE book_type_code = p_book
350: AND fiscal_year = p_fiscal_year;
351:
352: ---------------------------------------------------------

Line 354: -- jl_co_fa_purge --

350: AND fiscal_year = p_fiscal_year;
351:
352: ---------------------------------------------------------
353: -- Insert a row if row is not available in --
354: -- jl_co_fa_purge --
355: ---------------------------------------------------------
356:
357: IF x_count = 0 THEN
358: INSERT INTO jl_co_fa_purge(

Line 358: INSERT INTO jl_co_fa_purge(

354: -- jl_co_fa_purge --
355: ---------------------------------------------------------
356:
357: IF x_count = 0 THEN
358: INSERT INTO jl_co_fa_purge(
359: purge_id,
360: book_type_code,
361: fiscal_year,
362: status,

Line 380: VALUES (jl_co_fa_purge_s.NEXTVAL,

376: request_id,
377: program_application_id,
378: program_id,
379: program_update_date)
380: VALUES (jl_co_fa_purge_s.NEXTVAL,
381: p_book,
382: p_fiscal_year,
383: 'NEW',
384: 0,

Line 410: FROM jl_co_fa_purge

406: ---------------------------------------------------------
407:
408: SELECT purge_id
409: INTO x_index
410: FROM jl_co_fa_purge
411: WHERE book_type_code = p_book
412: AND fiscal_year = p_fiscal_year;
413:
414: x_adj_table := 'JL_CO_FA_ADJUSTMENTS'||TO_CHAR(x_index);

Line 523: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_MESG');

519: ---------------------------------------------------------
520:
521: IF (p_option = 'ARCHIVE') THEN
522:
523: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_MESG');
524: fnd_message.set_token('OPTION', p_option);
525: fnd_file.put_line( 1, fnd_message.get);
526:
527: ---------------------------------------------------------

Line 592: -- change the status in jl_co_fa_purge to 'ARCHIVE' --

588:
589:
590:
591: ---------------------------------------------------------
592: -- change the status in jl_co_fa_purge to 'ARCHIVE' --
593: ---------------------------------------------------------
594: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
595: fnd_file.put_line( 1, 'Updating JL_CO_FA_PURGE');
596: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Updating JL_CO_FA_PURGE');

Line 595: fnd_file.put_line( 1, 'Updating JL_CO_FA_PURGE');

591: ---------------------------------------------------------
592: -- change the status in jl_co_fa_purge to 'ARCHIVE' --
593: ---------------------------------------------------------
594: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
595: fnd_file.put_line( 1, 'Updating JL_CO_FA_PURGE');
596: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Updating JL_CO_FA_PURGE');
597: END IF;
598:
599:

Line 596: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Updating JL_CO_FA_PURGE');

592: -- change the status in jl_co_fa_purge to 'ARCHIVE' --
593: ---------------------------------------------------------
594: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
595: fnd_file.put_line( 1, 'Updating JL_CO_FA_PURGE');
596: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Updating JL_CO_FA_PURGE');
597: END IF;
598:
599:
600: UPDATE jl_co_fa_purge SET

Line 600: UPDATE jl_co_fa_purge SET

596: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Updating JL_CO_FA_PURGE');
597: END IF;
598:
599:
600: UPDATE jl_co_fa_purge SET
601: adjustments_rows_archived = x_adjustments_rows,
602: adjustments_check_sum = x_adjustments_amount,
603: status = 'ARCHIVED',
604: last_update_date = x_sysdate,

Line 611: fnd_file.put_line( 1, 'Updated JL_CO_FA_PURGE');

607: program_update_date = x_sysdate
608: WHERE purge_id = x_index;
609:
610: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
611: fnd_file.put_line( 1, 'Updated JL_CO_FA_PURGE');
612: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Updated JL_CO_FA_PURGE');
613: END IF;
614:
615:

Line 612: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Updated JL_CO_FA_PURGE');

608: WHERE purge_id = x_index;
609:
610: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
611: fnd_file.put_line( 1, 'Updated JL_CO_FA_PURGE');
612: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Updated JL_CO_FA_PURGE');
613: END IF;
614:
615:
616: ELSE

Line 618: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_MESG');

614:
615:
616: ELSE
617:
618: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_MESG');
619: fnd_message.set_token('OPTION', p_option);
620: fnd_file.put_line( 1, fnd_message.get);
621:
622: ---------------------------------------------------------

Line 630: FROM jl_co_fa_purge

626: ---------------------------------------------------------
627:
628: SELECT COUNT(*)
629: INTO x_count
630: FROM jl_co_fa_purge
631: WHERE purge_id = x_index
632: AND adjustments_rows_archived = x_adjustments_rows
633: AND adjustments_check_sum = x_adjustments_amount;
634: IF x_count = 0 THEN

Line 642: -- change the status in jl_co_fa_purge to 'PURGED' --

638:
639: ---------------------------------------------------------
640: -- Delete the rows from jl_co_fa_adjustments and --
641:
642: -- change the status in jl_co_fa_purge to 'PURGED' --
643: ---------------------------------------------------------
644: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
645: fnd_file.put_line( 1, 'Deleting JL_CO_FA_ADJUSTMENTS');
646: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Deleting JL_CO_FA_ADJUSTMENTS');

Line 661: fnd_file.put_line( 1, 'Updating JL_CO_FA_PURGE');

657: END IF;
658:
659:
660: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
661: fnd_file.put_line( 1, 'Updating JL_CO_FA_PURGE');
662: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Updating JL_CO_FA_PURGE');
663: END IF;
664:
665:

Line 662: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Updating JL_CO_FA_PURGE');

658:
659:
660: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
661: fnd_file.put_line( 1, 'Updating JL_CO_FA_PURGE');
662: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Updating JL_CO_FA_PURGE');
663: END IF;
664:
665:
666: UPDATE jl_co_fa_purge

Line 666: UPDATE jl_co_fa_purge

662: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Updating JL_CO_FA_PURGE');
663: END IF;
664:
665:
666: UPDATE jl_co_fa_purge
667: SET status = 'PURGED',
668: last_update_date = x_sysdate,
669: last_updated_by = x_last_updated_by,
670: last_update_login = x_last_update_login,

Line 675: fnd_file.put_line( 1, 'Updated JL_CO_FA_PURGE');

671: program_update_date = x_sysdate
672: WHERE purge_id = x_index;
673:
674: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
675: fnd_file.put_line( 1, 'Updated JL_CO_FA_PURGE');
676: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Updated JL_CO_FA_PURGE');
677: END IF;
678:
679: END IF;

Line 676: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Updated JL_CO_FA_PURGE');

672: WHERE purge_id = x_index;
673:
674: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
675: fnd_file.put_line( 1, 'Updated JL_CO_FA_PURGE');
676: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Updated JL_CO_FA_PURGE');
677: END IF;
678:
679: END IF;
680: END IF;

Line 683: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_MESG');

679: END IF;
680: END IF;
681: ELSE
682:
683: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_MESG');
684: fnd_message.set_token('OPTION', p_option);
685: fnd_file.put_line( 1, fnd_message.get);
686:
687: ---------------------------------------------------------

Line 702: fnd_file.put_line( 1, 'Updating JL_CO_FA_PURGE');

698: RAISE UNABLE_TO_DO_SQL;
699: END IF;
700:
701: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
702: fnd_file.put_line( 1, 'Updating JL_CO_FA_PURGE');
703: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Updating JL_CO_FA_PURGE');
704: END IF;
705:
706:

Line 703: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Updating JL_CO_FA_PURGE');

699: END IF;
700:
701: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
702: fnd_file.put_line( 1, 'Updating JL_CO_FA_PURGE');
703: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Updating JL_CO_FA_PURGE');
704: END IF;
705:
706:
707: UPDATE jl_co_fa_purge

Line 707: UPDATE jl_co_fa_purge

703: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Updating JL_CO_FA_PURGE');
704: END IF;
705:
706:
707: UPDATE jl_co_fa_purge
708: SET status = 'RESTORED',
709: last_update_date = x_sysdate,
710: last_updated_by = x_last_updated_by,
711: last_update_login = x_last_update_login,

Line 716: fnd_file.put_line( 1, 'Updated JL_CO_FA_PURGE');

712: program_update_date = x_sysdate
713: WHERE purge_id = x_index;
714:
715: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
716: fnd_file.put_line( 1, 'Updated JL_CO_FA_PURGE');
717: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Updated JL_CO_FA_PURGE');
718: END IF;
719:
720: END IF;

Line 717: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Updated JL_CO_FA_PURGE');

713: WHERE purge_id = x_index;
714:
715: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
716: fnd_file.put_line( 1, 'Updated JL_CO_FA_PURGE');
717: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Updated JL_CO_FA_PURGE');
718: END IF;
719:
720: END IF;
721: commit;

Line 816: fnd_message.set_name('JL', 'JL_CO_FA_PURGED');

812: */
813:
814:
815: WHEN STATUS_PURGED THEN
816: fnd_message.set_name('JL', 'JL_CO_FA_PURGED');
817: fnd_message.set_token('FISCAL_YEAR', TO_CHAR(p_fiscal_year +1));
818: err_msg := fnd_message.get;
819: fnd_file.put_line(fnd_file.log, err_msg);
820: call_status := fnd_concurrent.set_completion_status('ERROR','');

Line 928: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_OPTION');

924: fnd_file.put_line(FND_FILE.LOG, '----------------------------------------');
925: fnd_message.set_name('JL', 'JL_CO_FA_FISCAL_YEAR');
926: fnd_message.set_token('FISCAL_YEAR', p_fiscal_year);
927: fnd_file.put_line( 1, fnd_message.get);
928: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_OPTION');
929: fnd_message.set_token('OPTION', p_option);
930: fnd_file.put_line( 1, fnd_message.get);
931: fnd_file.put_line(FND_FILE.LOG, '----------------------------------------');
932: ---------------------------------------------------------

Line 1011: -- in jl_co_fa_purge and their status is --

1007: END IF;
1008:
1009: ---------------------------------------------------------
1010: -- Stop the program if row exists for the year --
1011: -- in jl_co_fa_purge and their status is --
1012: -- 'RESTORED' or 'PURGED' --
1013: ---------------------------------------------------------
1014:
1015: SELECT count(*)

Line 1017: FROM jl_co_fa_purge

1013: ---------------------------------------------------------
1014:
1015: SELECT count(*)
1016: INTO x_counT
1017: FROM jl_co_fa_purge
1018: WHERE book_type_code IS NULL
1019: AND fiscal_year = p_fiscal_year
1020: AND status IN ( 'RESTORED', 'PURGED');
1021: IF x_count <> 0 then

Line 1040: FROM jl_co_fa_purge

1036: IF x_count <> 0 THEN
1037:
1038: SELECT count(*)
1039: INTO x_count
1040: FROM jl_co_fa_purge
1041: WHERE book_type_code IS NULL
1042: AND fiscal_year = (p_fiscal_year -1)
1043: AND status IN ('PURGED', 'ARCHIVED', 'RESTORE');
1044: IF (x_count <> 0) THEN

Line 1061: -- book-year in jl_co_fa_purge and their status is --

1057: IF (p_option = 'DELETE') THEN
1058:
1059: ---------------------------------------------------------
1060: -- Stop the program if row exists for the couple --
1061: -- book-year in jl_co_fa_purge and their status is --
1062: -- different from 'RESTORED' or 'ARCHAIVED' --
1063: ---------------------------------------------------------
1064:
1065: SELECT count(*)

Line 1067: FROM jl_co_fa_purge

1063: ---------------------------------------------------------
1064:
1065: SELECT count(*)
1066: INTO x_count
1067: FROM jl_co_fa_purge
1068: WHERE book_type_code IS NULL
1069: AND fiscal_year = p_fiscal_year
1070: AND status IN ('ARCHIVED', 'RESTORED');
1071: IF (x_count = 0) THEN

Line 1086: FROM jl_co_fa_purge

1082: WHERE fiscal_year = (p_fiscal_year - 1);
1083: IF x_count <> 0 THEN
1084: SELECT count(*)
1085: INTO x_count
1086: FROM jl_co_fa_purge
1087: WHERE book_type_code IS NULL
1088: AND fiscal_year = (p_fiscal_year -1)
1089: AND status IN ('PURGED');
1090: IF (x_count = 0) THEN

Line 1107: -- book-year in jl_co_fa_purge and their status is --

1103: IF (p_option = 'RESTORE') THEN
1104:
1105: ---------------------------------------------------------
1106: -- Stop the program if row exists for the couple --
1107: -- book-year in jl_co_fa_purge and their status is --
1108: -- different from 'PURGED' --
1109: ---------------------------------------------------------
1110:
1111: SELECT count(*)

Line 1113: FROM jl_co_fa_purge

1109: ---------------------------------------------------------
1110:
1111: SELECT count(*)
1112: INTO x_count
1113: FROM jl_co_fa_purge
1114: WHERE book_type_code IS NULL
1115: AND fiscal_year = p_fiscal_year
1116: AND status = 'PURGED';
1117: IF (x_count = 0) THEN

Line 1131: FROM jl_co_fa_purge

1127:
1128:
1129: SELECT count(*)
1130: INTO x_count
1131: FROM jl_co_fa_purge
1132: WHERE book_type_code IS NULL
1133: AND fiscal_year = (p_fiscal_year +1)
1134: ANd status = 'PURGED';
1135: IF (x_count <> 0) THEN

Line 1143: -- find the row from jl_co_fa_purge --

1139:
1140: END IF;
1141:
1142: ---------------------------------------------------------
1143: -- find the row from jl_co_fa_purge --
1144: ---------------------------------------------------------
1145:
1146: SELECT count(*)
1147: INTO x_count

Line 1148: FROM jl_co_fa_purge

1144: ---------------------------------------------------------
1145:
1146: SELECT count(*)
1147: INTO x_count
1148: FROM jl_co_fa_purge
1149: WHERE book_type_code IS NULL
1150: AND fiscal_year = p_fiscal_year;
1151:
1152: ---------------------------------------------------------

Line 1154: -- jl_co_fa_purge --

1150: AND fiscal_year = p_fiscal_year;
1151:
1152: ---------------------------------------------------------
1153: -- Insert a row if row is not available in --
1154: -- jl_co_fa_purge --
1155: ---------------------------------------------------------
1156:
1157: IF x_count = 0 THEN
1158:

Line 1160: fnd_file.put_line( 1, 'Inserting row into JL_CO_FA_PURGE');

1156:
1157: IF x_count = 0 THEN
1158:
1159: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1160: fnd_file.put_line( 1, 'Inserting row into JL_CO_FA_PURGE');
1161: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Inserting row into JL_CO_FA_PURGE');
1162: END IF;
1163:
1164: INSERT INTO jl_co_fa_purge(

Line 1161: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Inserting row into JL_CO_FA_PURGE');

1157: IF x_count = 0 THEN
1158:
1159: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1160: fnd_file.put_line( 1, 'Inserting row into JL_CO_FA_PURGE');
1161: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Inserting row into JL_CO_FA_PURGE');
1162: END IF;
1163:
1164: INSERT INTO jl_co_fa_purge(
1165: purge_id,

Line 1164: INSERT INTO jl_co_fa_purge(

1160: fnd_file.put_line( 1, 'Inserting row into JL_CO_FA_PURGE');
1161: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Inserting row into JL_CO_FA_PURGE');
1162: END IF;
1163:
1164: INSERT INTO jl_co_fa_purge(
1165: purge_id,
1166: fiscal_year,
1167: status,
1168: appraisals_rows_archived,

Line 1185: VALUES (jl_co_fa_purge_s.NEXTVAL,

1181: request_id,
1182: program_application_id,
1183: program_id,
1184: program_update_date)
1185: VALUES (jl_co_fa_purge_s.NEXTVAL,
1186: p_fiscal_year,
1187: 'NEW',
1188: 0,
1189: 0,

Line 1207: fnd_file.put_line( 1, 'Inserted row into JL_CO_FA_PURGE');

1203: x_program_id,
1204: x_sysdate);
1205:
1206: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1207: fnd_file.put_line( 1, 'Inserted row into JL_CO_FA_PURGE');
1208: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Inserted row into JL_CO_FA_PURGE');
1209: END IF;
1210:
1211:

Line 1208: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Inserted row into JL_CO_FA_PURGE');

1204: x_sysdate);
1205:
1206: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1207: fnd_file.put_line( 1, 'Inserted row into JL_CO_FA_PURGE');
1208: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Inserted row into JL_CO_FA_PURGE');
1209: END IF;
1210:
1211:
1212:

Line 1221: FROM jl_co_fa_purge

1217: ---------------------------------------------------------
1218:
1219: SELECT purge_id
1220: INTO x_index
1221: FROM jl_co_fa_purge
1222: WHERE book_type_code IS NULL
1223: AND fiscal_year = p_fiscal_year;
1224:
1225: x_appr_table := 'JL_CO_FA_APPRAISALS'||TO_CHAR(x_index);

Line 1320: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_MESG');

1316: ---------------------------------------------------------
1317:
1318: IF (p_option = 'ARCHIVE') THEN
1319:
1320: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_MESG');
1321: fnd_message.set_token('OPTION', p_option);
1322: fnd_file.put_line( 1, fnd_message.get);
1323:
1324: ---------------------------------------------------------

Line 1491: -- change the status in jl_co_fa_purge to 'ARCHIVE' --

1487: END IF;
1488:
1489:
1490: ---------------------------------------------------------
1491: -- change the status in jl_co_fa_purge to 'ARCHIVE' --
1492: ---------------------------------------------------------
1493: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1494: fnd_file.put_line( 1, 'Updating JL_CO_FA_PURGE');
1495: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Updating JL_CO_FA_PURGE');

Line 1494: fnd_file.put_line( 1, 'Updating JL_CO_FA_PURGE');

1490: ---------------------------------------------------------
1491: -- change the status in jl_co_fa_purge to 'ARCHIVE' --
1492: ---------------------------------------------------------
1493: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1494: fnd_file.put_line( 1, 'Updating JL_CO_FA_PURGE');
1495: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Updating JL_CO_FA_PURGE');
1496: END IF;
1497:
1498:

Line 1495: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Updating JL_CO_FA_PURGE');

1491: -- change the status in jl_co_fa_purge to 'ARCHIVE' --
1492: ---------------------------------------------------------
1493: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1494: fnd_file.put_line( 1, 'Updating JL_CO_FA_PURGE');
1495: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Updating JL_CO_FA_PURGE');
1496: END IF;
1497:
1498:
1499: UPDATE jl_co_fa_purge SET

Line 1499: UPDATE jl_co_fa_purge SET

1495: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Updating JL_CO_FA_PURGE');
1496: END IF;
1497:
1498:
1499: UPDATE jl_co_fa_purge SET
1500: appraisals_rows_archived = x_appraisal_rows,
1501: appraisals_check_sum = x_appraisal_amount,
1502: asset_apprs_rows_archived = x_asset_rows,
1503: asset_apprs_check_sum = x_asset_amount,

Line 1514: fnd_file.put_line( 1, 'Updated JL_CO_FA_PURGE');

1510: program_update_date = x_sysdate
1511: WHERE purge_id = x_index;
1512:
1513: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1514: fnd_file.put_line( 1, 'Updated JL_CO_FA_PURGE');
1515: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Updated JL_CO_FA_PURGE');
1516: END IF;
1517:
1518: ELSE

Line 1515: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Updated JL_CO_FA_PURGE');

1511: WHERE purge_id = x_index;
1512:
1513: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1514: fnd_file.put_line( 1, 'Updated JL_CO_FA_PURGE');
1515: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Updated JL_CO_FA_PURGE');
1516: END IF;
1517:
1518: ELSE
1519:

Line 1520: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_MESG');

1516: END IF;
1517:
1518: ELSE
1519:
1520: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_MESG');
1521: fnd_message.set_token('OPTION', p_option);
1522: fnd_file.put_line( 1, fnd_message.get);
1523:
1524: ---------------------------------------------------------

Line 1532: FROM jl_co_fa_purge

1528: ---------------------------------------------------------
1529:
1530: SELECT COUNT(*)
1531: INTO x_count
1532: FROM jl_co_fa_purge
1533: WHERE purge_id = x_index
1534: AND appraisals_rows_archived = x_appraisal_rows
1535: AND appraisals_check_sum = x_appraisal_amount
1536: AND asset_apprs_rows_archived = x_asset_rows

Line 1548: -- and change the status in jl_co_fa_purge to 'PURGED' --

1544:
1545: ---------------------------------------------------------
1546: -- Delete the rows from jl_co_fa_adjustments, --
1547: -- jl_co_fa_appraisals and jl_co_fa_appraisal_books --
1548: -- and change the status in jl_co_fa_purge to 'PURGED' --
1549: ---------------------------------------------------------
1550:
1551: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1552: fnd_file.put_line( 1, 'Deleting JL_CO_FA_APPRAISALS');

Line 1587: fnd_file.put_line( 1, 'Updating JL_CO_FA_PURGE');

1583: fnd_file.put_line( 1, 'Deleted JL_CO_FA_Appraisals');
1584: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Deleted JL_CO_FA_Appraisals');
1585: END IF;
1586: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1587: fnd_file.put_line( 1, 'Updating JL_CO_FA_PURGE');
1588: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Updating JL_CO_FA_PURGE');
1589: END IF;
1590:
1591:

Line 1588: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Updating JL_CO_FA_PURGE');

1584: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Deleted JL_CO_FA_Appraisals');
1585: END IF;
1586: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1587: fnd_file.put_line( 1, 'Updating JL_CO_FA_PURGE');
1588: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Updating JL_CO_FA_PURGE');
1589: END IF;
1590:
1591:
1592: UPDATE jl_co_fa_purge

Line 1592: UPDATE jl_co_fa_purge

1588: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Updating JL_CO_FA_PURGE');
1589: END IF;
1590:
1591:
1592: UPDATE jl_co_fa_purge
1593: SET status = 'PURGED',
1594: last_update_date = x_sysdate,
1595: last_updated_by = x_last_updated_by,
1596: last_update_login = x_last_update_login,

Line 1601: fnd_file.put_line( 1, 'Updated JL_CO_FA_PURGE');

1597: program_update_date = x_sysdate
1598: WHERE purge_id = x_index;
1599:
1600: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1601: fnd_file.put_line( 1, 'Updated JL_CO_FA_PURGE');
1602: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Updated JL_CO_FA_PURGE');
1603: END IF;
1604:
1605: END IF;

Line 1602: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Updated JL_CO_FA_PURGE');

1598: WHERE purge_id = x_index;
1599:
1600: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1601: fnd_file.put_line( 1, 'Updated JL_CO_FA_PURGE');
1602: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Updated JL_CO_FA_PURGE');
1603: END IF;
1604:
1605: END IF;
1606: END IF;

Line 1610: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_MESG');

1606: END IF;
1607:
1608: ELSE
1609:
1610: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_MESG');
1611: fnd_message.set_token('OPTION', p_option);
1612: fnd_file.put_line( 1, fnd_message.get);
1613:
1614: ---------------------------------------------------------

Line 1633: fnd_file.put_line( 1, 'Updating JL_CO_FA_PURGE');

1629: RAISE UNABLE_TO_DO_SQL;
1630: END IF;
1631:
1632: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1633: fnd_file.put_line( 1, 'Updating JL_CO_FA_PURGE');
1634: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Updating JL_CO_FA_PURGE');
1635: END IF;
1636:
1637: UPDATE jl_co_fa_purge

Line 1634: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Updating JL_CO_FA_PURGE');

1630: END IF;
1631:
1632: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1633: fnd_file.put_line( 1, 'Updating JL_CO_FA_PURGE');
1634: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Updating JL_CO_FA_PURGE');
1635: END IF;
1636:
1637: UPDATE jl_co_fa_purge
1638: SET status = 'RESTORED',

Line 1637: UPDATE jl_co_fa_purge

1633: fnd_file.put_line( 1, 'Updating JL_CO_FA_PURGE');
1634: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Updating JL_CO_FA_PURGE');
1635: END IF;
1636:
1637: UPDATE jl_co_fa_purge
1638: SET status = 'RESTORED',
1639: last_update_date = x_sysdate,
1640: last_updated_by = x_last_updated_by,
1641: last_update_login = x_last_update_login,

Line 1646: fnd_file.put_line( 1, 'Updated JL_CO_FA_PURGE');

1642: program_update_date = x_sysdate
1643: WHERE purge_id = x_index;
1644:
1645: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1646: fnd_file.put_line( 1, 'Updated JL_CO_FA_PURGE');
1647: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Updated JL_CO_FA_PURGE');
1648: END IF;
1649:
1650: END IF;

Line 1647: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Updated JL_CO_FA_PURGE');

1643: WHERE purge_id = x_index;
1644:
1645: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1646: fnd_file.put_line( 1, 'Updated JL_CO_FA_PURGE');
1647: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Updated JL_CO_FA_PURGE');
1648: END IF;
1649:
1650: END IF;
1651:

Line 1731: fnd_message.set_name('JL', 'JL_CO_FA_PURGED');

1727: fnd_message.raise_error;
1728: */
1729:
1730: WHEN STATUS_PURGED THEN
1731: fnd_message.set_name('JL', 'JL_CO_FA_PURGED');
1732: fnd_message.set_token('FISCAL_YEAR', TO_CHAR(p_fiscal_year + 1));
1733: err_msg := fnd_message.get;
1734: fnd_file.put_line(fnd_file.log, err_msg);
1735: call_status := fnd_concurrent.set_completion_status('ERROR','');

Line 2025: END jl_co_fa_purge_pkg;

2021: END LOOP;
2022:
2023: END create_output_headings;
2024:
2025: END jl_co_fa_purge_pkg;