99: buffer IN VARCHAR2) IS
100:
101: BEGIN
102:
103: fnd_file.put_line(which, buffer);
104:
105: EXCEPTION
106:
107: WHEN UTL_FILE.INVALID_PATH THEN
663: x_trx_count := 0;
664: x_bal_count := 0;
665:
666: fnd_message.set_name('FND', 'CONC-ARGUMENTS');
667: fnd_file.put_line( fnd_file.log, fnd_message.get);
668: fnd_file.put_line(fnd_file.log, '----------------------------------------');
669: fnd_message.set_name('JL', 'JL_CO_GL_MG_SET_OF_BOOKS_ID');
670: fnd_message.set_token('SET_OF_BOOKS_ID', p_set_of_books_id);
671: put_line( fnd_file.log, fnd_message.get);
664: x_bal_count := 0;
665:
666: fnd_message.set_name('FND', 'CONC-ARGUMENTS');
667: fnd_file.put_line( fnd_file.log, fnd_message.get);
668: fnd_file.put_line(fnd_file.log, '----------------------------------------');
669: fnd_message.set_name('JL', 'JL_CO_GL_MG_SET_OF_BOOKS_ID');
670: fnd_message.set_token('SET_OF_BOOKS_ID', p_set_of_books_id);
671: put_line( fnd_file.log, fnd_message.get);
672: fnd_message.set_name('JL', 'JL_CO_GL_MG_REPORTED_YEAR');
667: fnd_file.put_line( fnd_file.log, fnd_message.get);
668: fnd_file.put_line(fnd_file.log, '----------------------------------------');
669: fnd_message.set_name('JL', 'JL_CO_GL_MG_SET_OF_BOOKS_ID');
670: fnd_message.set_token('SET_OF_BOOKS_ID', p_set_of_books_id);
671: put_line( fnd_file.log, fnd_message.get);
672: fnd_message.set_name('JL', 'JL_CO_GL_MG_REPORTED_YEAR');
673: fnd_message.set_token('REPORTED_YEAR', p_reported_year);
674: put_line( fnd_file.log, fnd_message.get);
675: fnd_message.set_name('JL', 'JL_CO_GL_MG_PERIOD_START');
670: fnd_message.set_token('SET_OF_BOOKS_ID', p_set_of_books_id);
671: put_line( fnd_file.log, fnd_message.get);
672: fnd_message.set_name('JL', 'JL_CO_GL_MG_REPORTED_YEAR');
673: fnd_message.set_token('REPORTED_YEAR', p_reported_year);
674: put_line( fnd_file.log, fnd_message.get);
675: fnd_message.set_name('JL', 'JL_CO_GL_MG_PERIOD_START');
676: fnd_message.set_token('PERIOD_START', p_period_start);
677: put_line( fnd_file.log, fnd_message.get);
678: fnd_message.set_name('JL', 'JL_CO_GL_MG_PERIOD_END');
673: fnd_message.set_token('REPORTED_YEAR', p_reported_year);
674: put_line( fnd_file.log, fnd_message.get);
675: fnd_message.set_name('JL', 'JL_CO_GL_MG_PERIOD_START');
676: fnd_message.set_token('PERIOD_START', p_period_start);
677: put_line( fnd_file.log, fnd_message.get);
678: fnd_message.set_name('JL', 'JL_CO_GL_MG_PERIOD_END');
679: fnd_message.set_token('PERIOD_END', p_period_end);
680: put_line( fnd_file.log, fnd_message.get);
681: fnd_message.set_name('JL', 'JL_CO_GL_MG_LITERAL_START');
676: fnd_message.set_token('PERIOD_START', p_period_start);
677: put_line( fnd_file.log, fnd_message.get);
678: fnd_message.set_name('JL', 'JL_CO_GL_MG_PERIOD_END');
679: fnd_message.set_token('PERIOD_END', p_period_end);
680: put_line( fnd_file.log, fnd_message.get);
681: fnd_message.set_name('JL', 'JL_CO_GL_MG_LITERAL_START');
682: fnd_message.set_token('LITERAL_START', p_literal_start);
683: put_line( fnd_file.log, fnd_message.get);
684: fnd_message.set_name('JL', 'JL_CO_GL_MG_LITERAL_END');
679: fnd_message.set_token('PERIOD_END', p_period_end);
680: put_line( fnd_file.log, fnd_message.get);
681: fnd_message.set_name('JL', 'JL_CO_GL_MG_LITERAL_START');
682: fnd_message.set_token('LITERAL_START', p_literal_start);
683: put_line( fnd_file.log, fnd_message.get);
684: fnd_message.set_name('JL', 'JL_CO_GL_MG_LITERAL_END');
685: fnd_message.set_token('LITERAL_END', p_literal_end);
686: put_line( fnd_file.log, fnd_message.get);
687: fnd_file.put_line(fnd_file.log, '----------------------------------------');
682: fnd_message.set_token('LITERAL_START', p_literal_start);
683: put_line( fnd_file.log, fnd_message.get);
684: fnd_message.set_name('JL', 'JL_CO_GL_MG_LITERAL_END');
685: fnd_message.set_token('LITERAL_END', p_literal_end);
686: put_line( fnd_file.log, fnd_message.get);
687: fnd_file.put_line(fnd_file.log, '----------------------------------------');
688:
689:
690: /******************************************************
683: put_line( fnd_file.log, fnd_message.get);
684: fnd_message.set_name('JL', 'JL_CO_GL_MG_LITERAL_END');
685: fnd_message.set_token('LITERAL_END', p_literal_end);
686: put_line( fnd_file.log, fnd_message.get);
687: fnd_file.put_line(fnd_file.log, '----------------------------------------');
688:
689:
690: /******************************************************
691: Check for JL_CO_GL_MG_HEADERS.STATUS = 'Y'. If any row
742: COMMIT;
743: fnd_message.set_name('JL', 'JL_CO_GL_MG_DELETE');
744: fnd_message.set_token('NUMBER', TO_CHAR(SQL%ROWCOUNT));
745: fnd_message.set_token('TABLE', 'JL_CO_GL_MG_LINES');
746: put_line( fnd_file.log, fnd_message.get);
747: ELSE
748: NULL;
749: fnd_message.set_name('JL', 'JL_CO_GL_MG_NOT_DELETE');
750: fnd_message.set_token('TABLE', 'JL_CO_GL_MG_LINES');
747: ELSE
748: NULL;
749: fnd_message.set_name('JL', 'JL_CO_GL_MG_NOT_DELETE');
750: fnd_message.set_token('TABLE', 'JL_CO_GL_MG_LINES');
751: put_line( fnd_file.log, fnd_message.get);
752: END IF;
753:
754: EXCEPTION
755:
774: COMMIT;
775: fnd_message.set_name('JL', 'JL_CO_GL_MG_DELETE');
776: fnd_message.set_token('NUMBER', TO_CHAR(SQL%ROWCOUNT));
777: fnd_message.set_token('TABLE', 'JL_CO_GL_MG_HEADERS');
778: put_line( fnd_file.log, fnd_message.get);
779: ELSE
780: NULL;
781: fnd_message.set_name('JL', 'JL_CO_GL_MG_NOT_DELETE');
782: fnd_message.set_token('TABLE', 'JL_CO_GL_MG_HEADERS');
779: ELSE
780: NULL;
781: fnd_message.set_name('JL', 'JL_CO_GL_MG_NOT_DELETE');
782: fnd_message.set_token('TABLE', 'JL_CO_GL_MG_HEADERS');
783: put_line( fnd_file.log, fnd_message.get);
784: END IF;
785:
786: EXCEPTION
787:
841: fnd_message.set_name('JL', 'JL_CO_GL_MG_INSERT');
842: fnd_message.set_token('NUMBER', '1');
843: fnd_message.set_token('TYPE', ' ');
844: fnd_message.set_token('TABLE', 'JL_CO_GL_MG_HEADERS');
845: put_line( fnd_file.log, fnd_message.get);
846:
847: EXCEPTION
848:
849: WHEN OTHERS THEN
936: fnd_message.set_name('JL', 'JL_CO_GL_MG_INSERT');
937: fnd_message.set_token('NUMBER', TO_CHAR(x_trx_count));
938: fnd_message.set_token('TYPE', 'NIT_TRANSACTIONS');
939: fnd_message.set_token('TABLE', 'JL_CO_GL_MG_LINES');
940: put_line( fnd_file.log, fnd_message.get);
941:
942: END IF;
943:
944: IF x_bal_count > 0 THEN
946: fnd_message.set_name('JL', 'JL_CO_GL_MG_INSERT');
947: fnd_message.set_token('NUMBER', TO_CHAR(x_bal_count));
948: fnd_message.set_token('TYPE', 'NIT_BALANCES');
949: fnd_message.set_token('TABLE', 'JL_CO_GL_MG_LINES');
950: put_line( fnd_file.log, fnd_message.get);
951:
952: END IF;
953:
954: IF x_trx_count = 0 AND x_bal_count = 0 THEN
980:
981: WHEN HEADERS_STATUS_Y THEN
982:
983: x_message := '----***************** W A R N I N G **********************----';
984: put_line( fnd_file.log, x_message);
985: fnd_message.set_name('JL', 'JL_CO_GL_MG_FILE_SENT');
986: fnd_message.set_token('YEAR', p_reported_year);
987: x_error_text := fnd_message.get;
988: put_line( fnd_file.log, x_error_text);
984: put_line( fnd_file.log, x_message);
985: fnd_message.set_name('JL', 'JL_CO_GL_MG_FILE_SENT');
986: fnd_message.set_token('YEAR', p_reported_year);
987: x_error_text := fnd_message.get;
988: put_line( fnd_file.log, x_error_text);
989: x_error_text := SUBSTR(x_error_text, 1, 100);
990: x_message := '----******************************************************----';
991: put_line( fnd_file.log, x_message);
992: app_exception.raise_exception (exception_type => 'APP',
987: x_error_text := fnd_message.get;
988: put_line( fnd_file.log, x_error_text);
989: x_error_text := SUBSTR(x_error_text, 1, 100);
990: x_message := '----******************************************************----';
991: put_line( fnd_file.log, x_message);
992: app_exception.raise_exception (exception_type => 'APP',
993: exception_code =>
994: jl_zz_fa_utilities_pkg.get_app_errnum('JL', 'JL_CO_GL_MG_FILE_SENT'),
995: exception_text => x_error_text);
996:
997: WHEN OTHERS THEN
998:
999: fnd_message.set_name('JL', 'JL_CO_FA_GENERAL_ERROR');
1000: fnd_file.put_line( fnd_file.log, fnd_message.get);
1001: x_error_code := SQLCODE;
1002: x_error_text := SUBSTR(SQLERRM,1,200);
1003: ROLLBACK;
1004: RAISE_APPLICATION_ERROR( x_error_code, x_error_text);
1176:
1177: BEGIN <
1178:
1179: fnd_message.set_name('FND', 'CONC-ARGUMENTS');
1180: fnd_file.put_line( fnd_file.log, fnd_message.get);
1181: fnd_file.put_line(fnd_file.log, '----------------------------------------');
1182: fnd_message.set_name('JL', 'JL_CO_GL_MG_SET_OF_BOOKS_ID');
1183: fnd_message.set_token('SET_OF_BOOKS_ID', p_set_of_books_id);
1184: put_line( fnd_file.log, fnd_message.get);
1177: BEGIN <
1178:
1179: fnd_message.set_name('FND', 'CONC-ARGUMENTS');
1180: fnd_file.put_line( fnd_file.log, fnd_message.get);
1181: fnd_file.put_line(fnd_file.log, '----------------------------------------');
1182: fnd_message.set_name('JL', 'JL_CO_GL_MG_SET_OF_BOOKS_ID');
1183: fnd_message.set_token('SET_OF_BOOKS_ID', p_set_of_books_id);
1184: put_line( fnd_file.log, fnd_message.get);
1185: fnd_message.set_name('JL', 'JL_CO_GL_MG_REPORTED_YEAR');
1180: fnd_file.put_line( fnd_file.log, fnd_message.get);
1181: fnd_file.put_line(fnd_file.log, '----------------------------------------');
1182: fnd_message.set_name('JL', 'JL_CO_GL_MG_SET_OF_BOOKS_ID');
1183: fnd_message.set_token('SET_OF_BOOKS_ID', p_set_of_books_id);
1184: put_line( fnd_file.log, fnd_message.get);
1185: fnd_message.set_name('JL', 'JL_CO_GL_MG_REPORTED_YEAR');
1186: fnd_message.set_token('REPORTED_YEAR', p_reported_year);
1187: put_line( fnd_file.log, fnd_message.get);
1188: fnd_message.set_name('JL', 'JL_CO_GL_MG_LITERAL_START');
1183: fnd_message.set_token('SET_OF_BOOKS_ID', p_set_of_books_id);
1184: put_line( fnd_file.log, fnd_message.get);
1185: fnd_message.set_name('JL', 'JL_CO_GL_MG_REPORTED_YEAR');
1186: fnd_message.set_token('REPORTED_YEAR', p_reported_year);
1187: put_line( fnd_file.log, fnd_message.get);
1188: fnd_message.set_name('JL', 'JL_CO_GL_MG_LITERAL_START');
1189: fnd_message.set_token('LITERAL_START', p_literal_start);
1190: put_line( fnd_file.log, fnd_message.get);
1191: fnd_message.set_name('JL', 'JL_CO_GL_MG_LITERAL_END');
1186: fnd_message.set_token('REPORTED_YEAR', p_reported_year);
1187: put_line( fnd_file.log, fnd_message.get);
1188: fnd_message.set_name('JL', 'JL_CO_GL_MG_LITERAL_START');
1189: fnd_message.set_token('LITERAL_START', p_literal_start);
1190: put_line( fnd_file.log, fnd_message.get);
1191: fnd_message.set_name('JL', 'JL_CO_GL_MG_LITERAL_END');
1192: fnd_message.set_token('LITERAL_END', p_literal_end);
1193: put_line( fnd_file.log, fnd_message.get);
1194: fnd_file.put_line(fnd_file.log, '----------------------------------------');
1189: fnd_message.set_token('LITERAL_START', p_literal_start);
1190: put_line( fnd_file.log, fnd_message.get);
1191: fnd_message.set_name('JL', 'JL_CO_GL_MG_LITERAL_END');
1192: fnd_message.set_token('LITERAL_END', p_literal_end);
1193: put_line( fnd_file.log, fnd_message.get);
1194: fnd_file.put_line(fnd_file.log, '----------------------------------------');
1195:
1196: /******************************************************
1197: Check for JL_CO_GL_MG_HEADERS.STATUS = 'Y'. If any row
1190: put_line( fnd_file.log, fnd_message.get);
1191: fnd_message.set_name('JL', 'JL_CO_GL_MG_LITERAL_END');
1192: fnd_message.set_token('LITERAL_END', p_literal_end);
1193: put_line( fnd_file.log, fnd_message.get);
1194: fnd_file.put_line(fnd_file.log, '----------------------------------------');
1195:
1196: /******************************************************
1197: Check for JL_CO_GL_MG_HEADERS.STATUS = 'Y'. If any row
1198: exists with status of 'Y' then give a message to USER
1256:
1257: fnd_message.set_name('AR', 'GENERIC_MESSAGE');
1258: fnd_message.set_token('GENERIC_TEXT',
1259: 'Exception "NO_DATA_FOUND" for selection of flags from JL_CO_GL_MG_LITERALS table');
1260: put_line(fnd_file.log, fnd_message.get);
1261: x_error_code := SQLCODE;
1262: x_error_text := SUBSTR(SQLERRM,1,200);
1263: RAISE_APPLICATION_ERROR( x_error_code, x_error_text);
1264:
1266:
1267: fnd_message.set_name('AR', 'GENERIC_MESSAGE');
1268: fnd_message.set_token('GENERIC_TEXT',
1269: 'Exception "TOO_MANY_ROWS" for selection of flags from JL_CO_GL_MG_LITERALS table');
1270: put_line(fnd_file.log, fnd_message.get);
1271: x_error_code := SQLCODE;
1272: x_error_text := SUBSTR(SQLERRM,1,200);
1273: RAISE_APPLICATION_ERROR( x_error_code, x_error_text);
1274:
1276:
1277: fnd_message.set_name('AR', 'GENERIC_MESSAGE');
1278: fnd_message.set_token('GENERIC_TEXT',
1279: 'Exception "OTHERS" for selection of flags from JL_CO_GL_MG_LITERALS table');
1280: put_line(fnd_file.log, fnd_message.get);
1281: x_error_code := SQLCODE;
1282: x_error_text := SUBSTR(SQLERRM,1,200);
1283: RAISE_APPLICATION_ERROR( x_error_code, x_error_text);
1284:
1456:
1457: IF count_process_flag > 0 THEN
1458:
1459: x_message := '----***************** W A R N I N G **********************----';
1460: put_line( fnd_file.log, x_message);
1461: fnd_message.set_name('JL', 'JL_CO_GL_MG_TH_ALERT');
1462: fnd_message.set_token('NUMBER', TO_CHAR(count_process_flag));
1463: fnd_message.set_token('TABLE', 'JL_CO_GL_MG_LITERALS');
1464: x_error_text := fnd_message.get;
1461: fnd_message.set_name('JL', 'JL_CO_GL_MG_TH_ALERT');
1462: fnd_message.set_token('NUMBER', TO_CHAR(count_process_flag));
1463: fnd_message.set_token('TABLE', 'JL_CO_GL_MG_LITERALS');
1464: x_error_text := fnd_message.get;
1465: put_line( fnd_file.log, x_error_text);
1466: x_error_text := SUBSTR(x_error_text, 1, 100);
1467: x_message := '----******************************************************----';
1468: put_line( fnd_file.log, x_message);
1469: app_exception.raise_exception (exception_type => 'APP',
1464: x_error_text := fnd_message.get;
1465: put_line( fnd_file.log, x_error_text);
1466: x_error_text := SUBSTR(x_error_text, 1, 100);
1467: x_message := '----******************************************************----';
1468: put_line( fnd_file.log, x_message);
1469: app_exception.raise_exception (exception_type => 'APP',
1470: exception_code =>
1471: jl_zz_fa_utilities_pkg.get_app_errnum('JL', 'JL_CO_GL_MG_TH_ALERT'),
1472: exception_text => x_error_text);
1477:
1478: WHEN HEADERS_STATUS_Y THEN
1479:
1480: x_message := '----***************** W A R N I N G **********************----';
1481: put_line( fnd_file.log, x_message);
1482: fnd_message.set_name('JL', 'JL_CO_GL_MG_FILE_SENT');
1483: fnd_message.set_token('YEAR', p_reported_year);
1484: x_error_text := fnd_message.get;
1485: put_line( fnd_file.log, x_error_text);
1481: put_line( fnd_file.log, x_message);
1482: fnd_message.set_name('JL', 'JL_CO_GL_MG_FILE_SENT');
1483: fnd_message.set_token('YEAR', p_reported_year);
1484: x_error_text := fnd_message.get;
1485: put_line( fnd_file.log, x_error_text);
1486: x_error_text := SUBSTR(x_error_text, 1, 100);
1487: x_message := '----******************************************************----';
1488: put_line( fnd_file.log, x_message);
1489: app_exception.raise_exception (exception_type => 'APP',
1484: x_error_text := fnd_message.get;
1485: put_line( fnd_file.log, x_error_text);
1486: x_error_text := SUBSTR(x_error_text, 1, 100);
1487: x_message := '----******************************************************----';
1488: put_line( fnd_file.log, x_message);
1489: app_exception.raise_exception (exception_type => 'APP',
1490: exception_code =>
1491: jl_zz_fa_utilities_pkg.get_app_errnum('JL', 'JL_CO_GL_MG_FILE_SENT'),
1492: exception_text => x_error_text);
1493:
1494: WHEN OTHERS THEN
1495:
1496: fnd_message.set_name('JL', 'JL_CO_FA_GENERAL_ERROR');
1497: fnd_file.put_line( fnd_file.log, fnd_message.get);
1498: x_error_code := SQLCODE;
1499: x_error_text := SUBSTR(SQLERRM,1,200);
1500: ROLLBACK;
1501: RAISE_APPLICATION_ERROR( x_error_code, x_error_text);
1586:
1587: BEGIN <
1588:
1589: fnd_message.set_name('FND', 'CONC-ARGUMENTS');
1590: fnd_file.put_line( fnd_file.log, fnd_message.get);
1591: fnd_file.put_line(fnd_file.log, '----------------------------------------');
1592: fnd_message.set_name('JL', 'JL_CO_GL_MG_LEGAL_ENTITY_ID');
1593: fnd_message.set_token('LEGAL_ENTITY_ID', p_legal_entity_id);
1594: put_line( fnd_file.log, fnd_message.get);
1587: BEGIN <
1588:
1589: fnd_message.set_name('FND', 'CONC-ARGUMENTS');
1590: fnd_file.put_line( fnd_file.log, fnd_message.get);
1591: fnd_file.put_line(fnd_file.log, '----------------------------------------');
1592: fnd_message.set_name('JL', 'JL_CO_GL_MG_LEGAL_ENTITY_ID');
1593: fnd_message.set_token('LEGAL_ENTITY_ID', p_legal_entity_id);
1594: put_line( fnd_file.log, fnd_message.get);
1595: fnd_message.set_name('JL', 'JL_CO_GL_MG_SET_OF_BOOKS_ID');
1590: fnd_file.put_line( fnd_file.log, fnd_message.get);
1591: fnd_file.put_line(fnd_file.log, '----------------------------------------');
1592: fnd_message.set_name('JL', 'JL_CO_GL_MG_LEGAL_ENTITY_ID');
1593: fnd_message.set_token('LEGAL_ENTITY_ID', p_legal_entity_id);
1594: put_line( fnd_file.log, fnd_message.get);
1595: fnd_message.set_name('JL', 'JL_CO_GL_MG_SET_OF_BOOKS_ID');
1596: fnd_message.set_token('SET_OF_BOOKS_ID', p_set_of_books_id);
1597: put_line( fnd_file.log, fnd_message.get);
1598: fnd_message.set_name('JL', 'JL_CO_GL_MG_REPORTED_YEAR');
1593: fnd_message.set_token('LEGAL_ENTITY_ID', p_legal_entity_id);
1594: put_line( fnd_file.log, fnd_message.get);
1595: fnd_message.set_name('JL', 'JL_CO_GL_MG_SET_OF_BOOKS_ID');
1596: fnd_message.set_token('SET_OF_BOOKS_ID', p_set_of_books_id);
1597: put_line( fnd_file.log, fnd_message.get);
1598: fnd_message.set_name('JL', 'JL_CO_GL_MG_REPORTED_YEAR');
1599: fnd_message.set_token('REPORTED_YEAR', p_reported_year);
1600: put_line( fnd_file.log, fnd_message.get);
1601: fnd_message.set_name('JL', 'JL_CO_GL_MG_LABEL');
1596: fnd_message.set_token('SET_OF_BOOKS_ID', p_set_of_books_id);
1597: put_line( fnd_file.log, fnd_message.get);
1598: fnd_message.set_name('JL', 'JL_CO_GL_MG_REPORTED_YEAR');
1599: fnd_message.set_token('REPORTED_YEAR', p_reported_year);
1600: put_line( fnd_file.log, fnd_message.get);
1601: fnd_message.set_name('JL', 'JL_CO_GL_MG_LABEL');
1602: fnd_message.set_token('LABEL', p_label);
1603: put_line( fnd_file.log, fnd_message.get);
1604: fnd_file.put_line(fnd_file.log, '----------------------------------------');
1599: fnd_message.set_token('REPORTED_YEAR', p_reported_year);
1600: put_line( fnd_file.log, fnd_message.get);
1601: fnd_message.set_name('JL', 'JL_CO_GL_MG_LABEL');
1602: fnd_message.set_token('LABEL', p_label);
1603: put_line( fnd_file.log, fnd_message.get);
1604: fnd_file.put_line(fnd_file.log, '----------------------------------------');
1605:
1606:
1607: /******************************************************
1600: put_line( fnd_file.log, fnd_message.get);
1601: fnd_message.set_name('JL', 'JL_CO_GL_MG_LABEL');
1602: fnd_message.set_token('LABEL', p_label);
1603: put_line( fnd_file.log, fnd_message.get);
1604: fnd_file.put_line(fnd_file.log, '----------------------------------------');
1605:
1606:
1607: /******************************************************
1608: Check for JL_CO_GL_MG_HEADERS.STATUS = 'Y'. If any row
1697:
1698: fnd_message.set_name('AR', 'GENERIC_MESSAGE');
1699: fnd_message.set_token('GENERIC_TEXT',
1700: 'Exception "NO_DATA_FOUND" while selecting company information');
1701: put_line(fnd_file.log, fnd_message.get);
1702: x_error_code := SQLCODE;
1703: x_error_text := SUBSTR(SQLERRM,1,200);
1704: RAISE_APPLICATION_ERROR( x_error_code, x_error_text);
1705:
1707:
1708: fnd_message.set_name('AR', 'GENERIC_MESSAGE');
1709: fnd_message.set_token('GENERIC_TEXT',
1710: 'Exception "TOO_MANY_ROWS" while selecting company information');
1711: put_line(fnd_file.log, fnd_message.get);
1712: x_error_code := SQLCODE;
1713: x_error_text := SUBSTR(SQLERRM,1,200);
1714: RAISE_APPLICATION_ERROR( x_error_code, x_error_text);
1715:
1717:
1718: fnd_message.set_name('AR', 'GENERIC_MESSAGE');
1719: fnd_message.set_token('GENERIC_TEXT',
1720: 'Exception "OTHERS" while selecting company information');
1721: put_line(fnd_file.log, fnd_message.get);
1722: x_error_code := SQLCODE;
1723: x_error_text := SUBSTR(SQLERRM,1,200);
1724: RAISE_APPLICATION_ERROR( x_error_code, x_error_text);
1725:
1824: /**********************************************
1825: Write identification register to the flat file
1826: **********************************************/
1827:
1828: put_line(fnd_file.output, identifi_register);
1829:
1830: fnd_message.set_name('JL', 'JL_CO_GL_MG_INDENTI_REGISTER');
1831: put_line( fnd_file.log, fnd_message.get);
1832:
1827:
1828: put_line(fnd_file.output, identifi_register);
1829:
1830: fnd_message.set_name('JL', 'JL_CO_GL_MG_INDENTI_REGISTER');
1831: put_line( fnd_file.log, fnd_message.get);
1832:
1833: /****************************************
1834: Write movement_register to the flat file
1835: ****************************************/
1839: FOR g_count IN 1..tab_record_counter LOOP
1840:
1841: movement_register := tab_flat_file (g_count);
1842:
1843: put_line(fnd_file.output, movement_register);
1844:
1845: END LOOP;
1846:
1847: fnd_message.set_name('JL', 'JL_CO_GL_MG_MOVE_REGISTER');
1845: END LOOP;
1846:
1847: fnd_message.set_name('JL', 'JL_CO_GL_MG_MOVE_REGISTER');
1848: fnd_message.set_token('NUMBER', tab_record_counter);
1849: put_line( fnd_file.log, fnd_message.get);
1850:
1851: ELSE
1852:
1853: NULL;
1853: NULL;
1854:
1855: fnd_message.set_name('JL', 'JL_CO_GL_MG_NO_MOVE_REGISTER');
1856: x_message := fnd_message.get;
1857: put_line( fnd_file.log, x_message);
1858: put_line( fnd_file.output, x_message);
1859:
1860: END IF;
1861:
1854:
1855: fnd_message.set_name('JL', 'JL_CO_GL_MG_NO_MOVE_REGISTER');
1856: x_message := fnd_message.get;
1857: put_line( fnd_file.log, x_message);
1858: put_line( fnd_file.output, x_message);
1859:
1860: END IF;
1861:
1862: closed_register := '3'||
1872: /**************************************
1873: Write closed_register to the flat file
1874: **************************************/
1875:
1876: put_line(fnd_file.output, closed_register);
1877:
1878: fnd_message.set_name('JL', 'JL_CO_GL_MG_CLOSE_REGISTER');
1879: put_line( fnd_file.log, fnd_message.get);
1880:
1875:
1876: put_line(fnd_file.output, closed_register);
1877:
1878: fnd_message.set_name('JL', 'JL_CO_GL_MG_CLOSE_REGISTER');
1879: put_line( fnd_file.log, fnd_message.get);
1880:
1881: /********************************************
1882: Update the jl_co_gl_mg_headers.status to 'Y'
1883: for final generation is done for DIAN
1916:
1917: WHEN HEADERS_STATUS_Y THEN
1918:
1919: x_message := '----***************** W A R N I N G **********************----';
1920: put_line( fnd_file.log, x_message);
1921: fnd_message.set_name('JL', 'JL_CO_GL_MG_FILE_SENT');
1922: fnd_message.set_token('YEAR', p_reported_year);
1923: x_error_text := fnd_message.get;
1924: put_line( fnd_file.log, x_error_text);
1920: put_line( fnd_file.log, x_message);
1921: fnd_message.set_name('JL', 'JL_CO_GL_MG_FILE_SENT');
1922: fnd_message.set_token('YEAR', p_reported_year);
1923: x_error_text := fnd_message.get;
1924: put_line( fnd_file.log, x_error_text);
1925: x_error_text := SUBSTR(x_error_text, 1, 100);
1926: x_message := '----******************************************************----';
1927: put_line( fnd_file.log, x_message);
1928: app_exception.raise_exception (exception_type => 'APP',
1923: x_error_text := fnd_message.get;
1924: put_line( fnd_file.log, x_error_text);
1925: x_error_text := SUBSTR(x_error_text, 1, 100);
1926: x_message := '----******************************************************----';
1927: put_line( fnd_file.log, x_message);
1928: app_exception.raise_exception (exception_type => 'APP',
1929: exception_code =>
1930: jl_zz_fa_utilities_pkg.get_app_errnum('JL', 'JL_CO_GL_MG_FILE_SENT'),
1931: exception_text => x_error_text);
1933:
1934: WHEN MG_GENERAL_ALERT THEN
1935:
1936: x_message := '----***************** W A R N I N G **********************----';
1937: put_line( fnd_file.log, x_message);
1938: fnd_message.set_name('JL', 'JL_CO_GL_MG_GEN_ALERT');
1939: fnd_message.set_token('NUMBER', TO_CHAR(count_process_flag));
1940: fnd_message.set_token('TABLE', 'JL_CO_GL_MG_LITERALS');
1941: x_error_text := SUBSTR(fnd_message.get, 1, 200);
1938: fnd_message.set_name('JL', 'JL_CO_GL_MG_GEN_ALERT');
1939: fnd_message.set_token('NUMBER', TO_CHAR(count_process_flag));
1940: fnd_message.set_token('TABLE', 'JL_CO_GL_MG_LITERALS');
1941: x_error_text := SUBSTR(fnd_message.get, 1, 200);
1942: put_line( fnd_file.log, x_error_text);
1943: x_error_text := SUBSTR(x_error_text, 1, 100);
1944: x_message := '----******************************************************----';
1945: put_line( fnd_file.log, x_message);
1946: app_exception.raise_exception (exception_type => 'APP',
1941: x_error_text := SUBSTR(fnd_message.get, 1, 200);
1942: put_line( fnd_file.log, x_error_text);
1943: x_error_text := SUBSTR(x_error_text, 1, 100);
1944: x_message := '----******************************************************----';
1945: put_line( fnd_file.log, x_message);
1946: app_exception.raise_exception (exception_type => 'APP',
1947: exception_code =>
1948: jl_zz_fa_utilities_pkg.get_app_errnum('JL', 'JL_CO_GL_MG_GEN_ALERT'),
1949: exception_text => x_error_text);
1959:
1960: WHEN OTHERS THEN
1961:
1962: fnd_message.set_name('JL', 'JL_CO_FA_GENERAL_ERROR');
1963: fnd_file.put_line( fnd_file.log, fnd_message.get);
1964: x_error_code := SQLCODE;
1965: x_error_text := SUBSTR(SQLERRM,1,200);
1966: RAISE_APPLICATION_ERROR( x_error_code, x_error_text);
1967: