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.GCS_INTERCO_DYN_BUILD_PKG dependencies on FND_LOG

Line 46: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN

42:
43: l_api_name VARCHAR2(50) := 'Interco_Create_Package';
44:
45: BEGIN
46: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
47: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
48: g_api || '.' || l_api_name,
49: GCS_UTILITY_PKG.g_module_enter || l_api_name ||
50: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));

Line 47: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,

43: l_api_name VARCHAR2(50) := 'Interco_Create_Package';
44:
45: BEGIN
46: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
47: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
48: g_api || '.' || l_api_name,
49: GCS_UTILITY_PKG.g_module_enter || l_api_name ||
50: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
51: END IF;

Line 64: g_fnd_login_id NUMBER := fnd_global.login_id;

60: -- PRIVATE GLOBAL VARIABLES
61: --
62: g_pkg_name VARCHAR2(100) := ''gcs.plsql.GCS_INTERCO_DYNAMIC_PKG'';
63: g_fnd_user_id NUMBER := fnd_global.user_id;
64: g_fnd_login_id NUMBER := fnd_global.login_id;
65: g_no_rows NUMBER :=0;
66: g_intercompany_org_code VARCHAR2(30) := ''DIFFERENT_ORG'' ;
67: g_specific_intercompany_id NUMBER:= 0;
68: g_cons_run_name VARCHAR2(80);

Line 93: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

89: -- Insert all eligible elimination lines from GCS_INTERCO_ELM_TRX
90: -- GCS_ENTRY-LINES.
91: BEGIN
92:
93: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
94: fnd_log.STRING (fnd_log.level_procedure,
95: g_pkg_name || ''.'' || l_api_name,
96: gcs_utility_pkg.g_module_enter
97: || '' ''

Line 94: fnd_log.STRING (fnd_log.level_procedure,

90: -- GCS_ENTRY-LINES.
91: BEGIN
92:
93: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
94: fnd_log.STRING (fnd_log.level_procedure,
95: g_pkg_name || ''.'' || l_api_name,
96: gcs_utility_pkg.g_module_enter
97: || '' ''
98: || l_api_name

Line 117: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

113:
114:
115: body_block := '
116:
117: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
118: fnd_log.STRING (fnd_log.level_procedure,
119: g_pkg_name || ''.'' || l_api_name,
120: '' Arguments passed to Insr_Interco_Lines() ''
121: ||'' Hierarchy_Id: ''||p_hierarchy_id

Line 118: fnd_log.STRING (fnd_log.level_procedure,

114:
115: body_block := '
116:
117: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
118: fnd_log.STRING (fnd_log.level_procedure,
119: g_pkg_name || ''.'' || l_api_name,
120: '' Arguments passed to Insr_Interco_Lines() ''
121: ||'' Hierarchy_Id: ''||p_hierarchy_id
122: ||'' Cal_Period_Id: ''||p_cal_period_id

Line 152: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

148: gbl_period_end_date := p_period_end_date;
149: IF (P_ELIM_MODE = ''IE'') THEN
150: IF (p_match_rule_code = ''COMPANY'') THEN /* In Intercompany option */
151: g_no_rows := 0;
152: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
153: fnd_log.STRING (fnd_log.level_procedure,
154: g_pkg_name || ''.'' || l_api_name,
155: ''Intercompany- Inserting entry lines''
156: || '' into GCS_ENTRY_LINES_GT''

Line 153: fnd_log.STRING (fnd_log.level_procedure,

149: IF (P_ELIM_MODE = ''IE'') THEN
150: IF (p_match_rule_code = ''COMPANY'') THEN /* In Intercompany option */
151: g_no_rows := 0;
152: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
153: fnd_log.STRING (fnd_log.level_procedure,
154: g_pkg_name || ''.'' || l_api_name,
155: ''Intercompany- Inserting entry lines''
156: || '' into GCS_ENTRY_LINES_GT''
157: || '' after matching by company-Receivables side''

Line 294: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

290: --******--
291: body_block := '
292: g_no_rows := NVL(SQL%ROWCOUNT,0);
293:
294: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
295: FND_MESSAGE.Set_Name(''SQLGL'',''SHRD0117'');
296: FND_MESSAGE.Set_Token(''NUM'',TO_CHAR(g_no_rows));
297: FND_MESSAGE.Set_Token(''TABLE'',''GCS_ENTRY_LINES_GT'');
298:

Line 299: FND_LOG.String (fnd_log.level_procedure,

295: FND_MESSAGE.Set_Name(''SQLGL'',''SHRD0117'');
296: FND_MESSAGE.Set_Token(''NUM'',TO_CHAR(g_no_rows));
297: FND_MESSAGE.Set_Token(''TABLE'',''GCS_ENTRY_LINES_GT'');
298:
299: FND_LOG.String (fnd_log.level_procedure,
300: g_pkg_name || ''.'' || l_api_name,
301: ''SHRD0117: ''||FND_MESSAGE.get);
302: END IF;
303:

Line 306: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

302: END IF;
303:
304: --****************************----
305: g_no_rows := 0;
306: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
307: fnd_log.STRING (fnd_log.level_procedure,
308: g_pkg_name || ''.'' || l_api_name,
309: ''Intercompany- Inserting entry lines''
310: || '' into GCS_ENTRY_LINES_GT''

Line 307: fnd_log.STRING (fnd_log.level_procedure,

303:
304: --****************************----
305: g_no_rows := 0;
306: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
307: fnd_log.STRING (fnd_log.level_procedure,
308: g_pkg_name || ''.'' || l_api_name,
309: ''Intercompany- Inserting entry lines''
310: || '' into GCS_ENTRY_LINES_GT''
311: || '' after matching by company - Payabales side''

Line 449: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

445: --******--
446: body_block := '
447: g_no_rows := NVL(SQL%ROWCOUNT,0);
448:
449: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
450: FND_MESSAGE.Set_Name(''SQLGL'',''SHRD0117'');
451: FND_MESSAGE.Set_Token(''NUM'',TO_CHAR(g_no_rows));
452: FND_MESSAGE.Set_Token(''TABLE'',''GCS_ENTRY_LINES_GT'');
453:

Line 454: FND_LOG.String (fnd_log.level_procedure,

450: FND_MESSAGE.Set_Name(''SQLGL'',''SHRD0117'');
451: FND_MESSAGE.Set_Token(''NUM'',TO_CHAR(g_no_rows));
452: FND_MESSAGE.Set_Token(''TABLE'',''GCS_ENTRY_LINES_GT'');
453:
454: FND_LOG.String (fnd_log.level_procedure,
455: g_pkg_name || ''.'' || l_api_name,
456: ''SHRD0117: ''||FND_MESSAGE.get);
457: END IF;
458:

Line 478: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

474:
475: ELSIF (p_match_rule_code = ''ORGANIZATION'') THEN
476: --In Intercompany option
477: g_no_rows := 0;
478: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
479: fnd_log.STRING (fnd_log.level_procedure,
480: g_pkg_name || ''.'' || l_api_name,
481: ''Intercompany- Inserting entry lines''
482: || '' into GCS_ENTRY_LINES_GT''

Line 479: fnd_log.STRING (fnd_log.level_procedure,

475: ELSIF (p_match_rule_code = ''ORGANIZATION'') THEN
476: --In Intercompany option
477: g_no_rows := 0;
478: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
479: fnd_log.STRING (fnd_log.level_procedure,
480: g_pkg_name || ''.'' || l_api_name,
481: ''Intercompany- Inserting entry lines''
482: || '' into GCS_ENTRY_LINES_GT''
483: || '' after matching by Org-Receivables side''

Line 636: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

632: --******--
633: body_block := '
634: g_no_rows := NVL(SQL%ROWCOUNT,0);
635:
636: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
637: FND_MESSAGE.Set_Name(''SQLGL'',''SHRD0117'');
638: FND_MESSAGE.Set_Token(''NUM'',TO_CHAR(g_no_rows));
639: FND_MESSAGE.Set_Token(''TABLE'',''GCS_ENTRY_LINES_GT'');
640:

Line 641: FND_LOG.String (fnd_log.level_procedure,

637: FND_MESSAGE.Set_Name(''SQLGL'',''SHRD0117'');
638: FND_MESSAGE.Set_Token(''NUM'',TO_CHAR(g_no_rows));
639: FND_MESSAGE.Set_Token(''TABLE'',''GCS_ENTRY_LINES_GT'');
640:
641: FND_LOG.String (fnd_log.level_procedure,
642: g_pkg_name || ''.'' || l_api_name,
643: ''SHRD0117: ''||FND_MESSAGE.get);
644: END IF;
645:

Line 661: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

657: --*****--------
658:
659: body_block :='
660: g_no_rows := 0;
661: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
662: fnd_log.STRING (fnd_log.level_procedure,
663: g_pkg_name || ''.'' || l_api_name,
664: ''Intercompany- Inserting entry lines''
665: || '' into GCS_ENTRY_LINES''

Line 662: fnd_log.STRING (fnd_log.level_procedure,

658:
659: body_block :='
660: g_no_rows := 0;
661: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
662: fnd_log.STRING (fnd_log.level_procedure,
663: g_pkg_name || ''.'' || l_api_name,
664: ''Intercompany- Inserting entry lines''
665: || '' into GCS_ENTRY_LINES''
666: || '' after matching by Org-Payables side''

Line 819: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

815: --******--
816: body_block := '
817: g_no_rows := NVL(SQL%ROWCOUNT,0);
818:
819: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
820: FND_MESSAGE.Set_Name(''SQLGL'',''SHRD0117'');
821: FND_MESSAGE.Set_Token(''NUM'',TO_CHAR(g_no_rows));
822: FND_MESSAGE.Set_Token(''TABLE'',''GCS_ENTRY_LINES_GT'');
823:

Line 824: FND_LOG.String (fnd_log.level_procedure,

820: FND_MESSAGE.Set_Name(''SQLGL'',''SHRD0117'');
821: FND_MESSAGE.Set_Token(''NUM'',TO_CHAR(g_no_rows));
822: FND_MESSAGE.Set_Token(''TABLE'',''GCS_ENTRY_LINES_GT'');
823:
824: FND_LOG.String (fnd_log.level_procedure,
825: g_pkg_name || ''.'' || l_api_name,
826: ''SHRD0117: ''||FND_MESSAGE.get);
827: END IF;
828: END IF; -- End if for match by

Line 847: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

843: body_block := '
844: ELSIF (P_ELIM_MODE = ''IA'') THEN
845: IF (p_match_rule_code = ''COMPANY'') THEN --In Intracompany option
846: g_no_rows := 0;
847: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
848: fnd_log.STRING (fnd_log.level_procedure,
849: g_pkg_name || ''.'' || l_api_name,
850: ''Intracompany- Inserting entry lines''
851: || '' into GCS_ENTRY_LINES_GT''

Line 848: fnd_log.STRING (fnd_log.level_procedure,

844: ELSIF (P_ELIM_MODE = ''IA'') THEN
845: IF (p_match_rule_code = ''COMPANY'') THEN --In Intracompany option
846: g_no_rows := 0;
847: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
848: fnd_log.STRING (fnd_log.level_procedure,
849: g_pkg_name || ''.'' || l_api_name,
850: ''Intracompany- Inserting entry lines''
851: || '' into GCS_ENTRY_LINES_GT''
852: || '' after matching by company''

Line 1027: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1023: --******--
1024: body_block := '
1025: g_no_rows := NVL(SQL%ROWCOUNT,0);
1026:
1027: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1028: FND_MESSAGE.Set_Name(''SQLGL'',''SHRD0117'');
1029: FND_MESSAGE.Set_Token(''NUM'',TO_CHAR(g_no_rows));
1030: FND_MESSAGE.Set_Token(''TABLE'',''GCS_ENTRY_LINES_GT'');
1031:

Line 1032: FND_LOG.String (fnd_log.level_procedure,

1028: FND_MESSAGE.Set_Name(''SQLGL'',''SHRD0117'');
1029: FND_MESSAGE.Set_Token(''NUM'',TO_CHAR(g_no_rows));
1030: FND_MESSAGE.Set_Token(''TABLE'',''GCS_ENTRY_LINES_GT'');
1031:
1032: FND_LOG.String (fnd_log.level_procedure,
1033: g_pkg_name || ''.'' || l_api_name,
1034: ''SHRD0117: ''||FND_MESSAGE.get);
1035: END IF;
1036:

Line 1053: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1049:
1050: ELSIF (p_match_rule_code = ''ORGANIZATION'') THEN
1051: -- In Intracompany option
1052: g_no_rows := 0;
1053: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1054: fnd_log.STRING (fnd_log.level_procedure,
1055: g_pkg_name || ''.'' || l_api_name,
1056: ''Intracompany- Inserting entry lines''
1057: || ''into GCS_ENTRY_LINES_GT''

Line 1054: fnd_log.STRING (fnd_log.level_procedure,

1050: ELSIF (p_match_rule_code = ''ORGANIZATION'') THEN
1051: -- In Intracompany option
1052: g_no_rows := 0;
1053: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1054: fnd_log.STRING (fnd_log.level_procedure,
1055: g_pkg_name || ''.'' || l_api_name,
1056: ''Intracompany- Inserting entry lines''
1057: || ''into GCS_ENTRY_LINES_GT''
1058: || ''after matching by Org''

Line 1252: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1248: --******--
1249: body_block := '
1250: g_no_rows := NVL(SQL%ROWCOUNT,0);
1251:
1252: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1253: FND_MESSAGE.Set_Name(''SQLGL'',''SHRD0117'');
1254: FND_MESSAGE.Set_Token(''NUM'',TO_CHAR(g_no_rows));
1255: FND_MESSAGE.Set_Token(''TABLE'',''GCS_ENTRY_LINES_GT'');
1256:

Line 1257: FND_LOG.String (fnd_log.level_procedure,

1253: FND_MESSAGE.Set_Name(''SQLGL'',''SHRD0117'');
1254: FND_MESSAGE.Set_Token(''NUM'',TO_CHAR(g_no_rows));
1255: FND_MESSAGE.Set_Token(''TABLE'',''GCS_ENTRY_LINES_GT'');
1256:
1257: FND_LOG.String (fnd_log.level_procedure,
1258: g_pkg_name || ''.'' || l_api_name,
1259: ''SHRD0117: ''||FND_MESSAGE.get);
1260: END IF;
1261: End If; -- End of matching rule code in intracompany

Line 1282: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN

1278:
1279: body_block :=
1280: '
1281: END If; -- End of elimination mode.
1282: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1283: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1284: g_pkg_name || ''.'' || l_api_name,
1285: GCS_UTILITY_PKG.g_module_success || l_api_name ||
1286: to_char(sysdate, '' DD-MON-YYYY HH:MI:SS''));

Line 1283: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,

1279: body_block :=
1280: '
1281: END If; -- End of elimination mode.
1282: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1283: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1284: g_pkg_name || ''.'' || l_api_name,
1285: GCS_UTILITY_PKG.g_module_success || l_api_name ||
1286: to_char(sysdate, '' DD-MON-YYYY HH:MI:SS''));
1287: END IF;

Line 1293: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

1289:
1290: EXCEPTION
1291:
1292: WHEN OTHERS THEN
1293: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1294: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1295: g_pkg_name || ''.'' || l_api_name,
1296: SUBSTR(SQLERRM, 1, 255));
1297: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,

Line 1294: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,

1290: EXCEPTION
1291:
1292: WHEN OTHERS THEN
1293: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1294: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1295: g_pkg_name || ''.'' || l_api_name,
1296: SUBSTR(SQLERRM, 1, 255));
1297: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1298: g_pkg_name || ''.'' || l_api_name,

Line 1297: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,

1293: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1294: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1295: g_pkg_name || ''.'' || l_api_name,
1296: SUBSTR(SQLERRM, 1, 255));
1297: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1298: g_pkg_name || ''.'' || l_api_name,
1299: GCS_UTILITY_PKG.g_module_failure || l_api_name ||
1300: to_char(sysdate, '' DD-MON-YYYY HH:MI:SS''));
1301: END IF;

Line 1361: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1357: -- Insert Suspense lines for unbalanced matched rows
1358: -- into GCS_ENTRY-LINES.
1359: BEGIN
1360:
1361: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1362: fnd_log.STRING (fnd_log.level_procedure,
1363: g_pkg_name || ''.'' || l_api_name,
1364: gcs_utility_pkg.g_module_enter
1365: || '' ''

Line 1362: fnd_log.STRING (fnd_log.level_procedure,

1358: -- into GCS_ENTRY-LINES.
1359: BEGIN
1360:
1361: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1362: fnd_log.STRING (fnd_log.level_procedure,
1363: g_pkg_name || ''.'' || l_api_name,
1364: gcs_utility_pkg.g_module_enter
1365: || '' ''
1366: || l_api_name

Line 1384: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1380: END LOOP;
1381:
1382: body_block := '
1383:
1384: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1385: fnd_log.STRING (fnd_log.level_procedure,
1386: g_pkg_name || ''.'' || l_api_name,
1387: '' Arguments passed to Insr_Suspense_Lines() ''
1388: ||'' Hierarchy_Id: ''||p_hierarchy_id

Line 1385: fnd_log.STRING (fnd_log.level_procedure,

1381:
1382: body_block := '
1383:
1384: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1385: fnd_log.STRING (fnd_log.level_procedure,
1386: g_pkg_name || ''.'' || l_api_name,
1387: '' Arguments passed to Insr_Suspense_Lines() ''
1388: ||'' Hierarchy_Id: ''||p_hierarchy_id
1389: ||'' Cal_Period_Id: ''||p_cal_period_id

Line 1416: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1412: (P_ELIM_MODE = ''IA'')) THEN
1413:
1414: IF (p_match_rule_code = ''COMPANY'') THEN
1415: g_no_rows := 0;
1416: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1417: fnd_log.STRING (fnd_log.level_procedure,
1418: g_pkg_name || ''.'' || l_api_name,
1419: ''Intercompany- Inserting necessary suspense lines''
1420: || '' into GCS_ENTRY_LINES_GT''

Line 1417: fnd_log.STRING (fnd_log.level_procedure,

1413:
1414: IF (p_match_rule_code = ''COMPANY'') THEN
1415: g_no_rows := 0;
1416: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1417: fnd_log.STRING (fnd_log.level_procedure,
1418: g_pkg_name || ''.'' || l_api_name,
1419: ''Intercompany- Inserting necessary suspense lines''
1420: || '' into GCS_ENTRY_LINES_GT''
1421: || '' after matching by company''

Line 1555: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1551:
1552: body_block := '
1553: g_no_rows := NVL(SQL%ROWCOUNT,0);
1554:
1555: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1556: FND_MESSAGE.Set_Name(''SQLGL'',''SHRD0117'');
1557: FND_MESSAGE.Set_Token(''NUM'',TO_CHAR(g_no_rows));
1558: FND_MESSAGE.Set_Token(''TABLE'',''GCS_ENTRY_LINES_GT'');
1559:

Line 1560: FND_LOG.String (fnd_log.level_procedure,

1556: FND_MESSAGE.Set_Name(''SQLGL'',''SHRD0117'');
1557: FND_MESSAGE.Set_Token(''NUM'',TO_CHAR(g_no_rows));
1558: FND_MESSAGE.Set_Token(''TABLE'',''GCS_ENTRY_LINES_GT'');
1559:
1560: FND_LOG.String (fnd_log.level_procedure,
1561: g_pkg_name || ''.'' || l_api_name,
1562: ''SHRD0117: ''||FND_MESSAGE.get);
1563: END IF;
1564: ';

Line 1580: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1576: body_block := '
1577: ELSIF (p_match_rule_code = ''ORGANIZATION'') THEN
1578: -- In Intercompany option
1579: g_no_rows := 0;
1580: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1581: fnd_log.STRING (fnd_log.level_procedure,
1582: g_pkg_name || ''.'' || l_api_name,
1583: ''Intercompany- Inserting necessary suspense lines''
1584: || '' into GCS_ENTRY_LINES_GT''

Line 1581: fnd_log.STRING (fnd_log.level_procedure,

1577: ELSIF (p_match_rule_code = ''ORGANIZATION'') THEN
1578: -- In Intercompany option
1579: g_no_rows := 0;
1580: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1581: fnd_log.STRING (fnd_log.level_procedure,
1582: g_pkg_name || ''.'' || l_api_name,
1583: ''Intercompany- Inserting necessary suspense lines''
1584: || '' into GCS_ENTRY_LINES_GT''
1585: || '' after matching by org ''

Line 1697: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1693:
1694: body_block := '
1695: g_no_rows := NVL(SQL%ROWCOUNT,0);
1696:
1697: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1698: FND_MESSAGE.Set_Name(''SQLGL'',''SHRD0117'');
1699: FND_MESSAGE.Set_Token(''NUM'',TO_CHAR(g_no_rows));
1700: FND_MESSAGE.Set_Token(''TABLE'',''GCS_ENTRY_LINES_GT'');
1701:

Line 1702: FND_LOG.String (fnd_log.level_procedure,

1698: FND_MESSAGE.Set_Name(''SQLGL'',''SHRD0117'');
1699: FND_MESSAGE.Set_Token(''NUM'',TO_CHAR(g_no_rows));
1700: FND_MESSAGE.Set_Token(''TABLE'',''GCS_ENTRY_LINES_GT'');
1701:
1702: FND_LOG.String (fnd_log.level_procedure,
1703: g_pkg_name || ''.'' || l_api_name,
1704: ''SHRD0117: ''||FND_MESSAGE.get);
1705:
1706: END IF;

Line 1722: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1718: END LOOP;
1719:
1720: body_block :='
1721: g_no_rows := 0;
1722: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1723: fnd_log.STRING (fnd_log.level_procedure,
1724: g_pkg_name || ''.'' || l_api_name,
1725: ''Intercompany- Inserting ''
1726: || '' into GCS_ENTRY_LINES''

Line 1723: fnd_log.STRING (fnd_log.level_procedure,

1719:
1720: body_block :='
1721: g_no_rows := 0;
1722: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1723: fnd_log.STRING (fnd_log.level_procedure,
1724: g_pkg_name || ''.'' || l_api_name,
1725: ''Intercompany- Inserting ''
1726: || '' into GCS_ENTRY_LINES''
1727: || '' after processing''

Line 1773: , SYSDATE, g_fnd_user_id, g_fnd_login_id

1769: , USER_DIM5_ID, USER_DIM6_ID, USER_DIM7_ID
1770: , USER_DIM8_ID, USER_DIM9_ID, USER_DIM10_ID
1771: , YTD_DEBIT_BALANCE_E , YTD_CREDIT_BALANCE_E
1772: , SYSDATE, g_fnd_user_id
1773: , SYSDATE, g_fnd_user_id, g_fnd_login_id
1774: , DESCRIPTION, YTD_BALANCE_E
1775: FROM GCS_ENTRY_LINES_GT
1776: WHERE DESCRIPTION <> ''SUSPENSE_LINE''
1777: ';

Line 1799: , SYSDATE, g_fnd_user_id, g_fnd_login_id

1795: , USER_DIM5_ID, USER_DIM6_ID, USER_DIM7_ID
1796: , USER_DIM8_ID, USER_DIM9_ID, USER_DIM10_ID
1797: , YTD_DEBIT_BALANCE_E , YTD_CREDIT_BALANCE_E
1798: , SYSDATE, g_fnd_user_id
1799: , SYSDATE, g_fnd_user_id, g_fnd_login_id
1800: , DESCRIPTION, YTD_BALANCE_E
1801: FROM GCS_ENTRY_LINES_GT
1802: WHERE (DESCRIPTION = ''SUSPENSE_LINE'' AND YTD_BALANCE_E <> 0);
1803: ';

Line 1817: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1813:
1814: body_block := '
1815: g_no_rows := NVL(SQL%ROWCOUNT,0);
1816:
1817: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1818: FND_MESSAGE.Set_Name(''SQLGL'',''SHRD0117'');
1819: FND_MESSAGE.Set_Token(''NUM'',TO_CHAR(g_no_rows));
1820: FND_MESSAGE.Set_Token(''TABLE'',''GCS_ENTRY_LINES'');
1821:

Line 1822: FND_LOG.String (fnd_log.level_procedure,

1818: FND_MESSAGE.Set_Name(''SQLGL'',''SHRD0117'');
1819: FND_MESSAGE.Set_Token(''NUM'',TO_CHAR(g_no_rows));
1820: FND_MESSAGE.Set_Token(''TABLE'',''GCS_ENTRY_LINES'');
1821:
1822: FND_LOG.String (fnd_log.level_procedure,
1823: g_pkg_name || ''.'' || l_api_name,
1824: ''SHRD0117: ''||FND_MESSAGE.get);
1825:
1826: END IF;

Line 1843: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN

1839: --*********** very last piece of this function ***********---
1840:
1841: body_block := '
1842:
1843: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1844: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1845: g_pkg_name || ''.'' || l_api_name,
1846: GCS_UTILITY_PKG.g_module_success || l_api_name ||
1847: to_char(sysdate, '' DD-MON-YYYY HH:MI:SS''));

Line 1844: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,

1840:
1841: body_block := '
1842:
1843: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1844: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1845: g_pkg_name || ''.'' || l_api_name,
1846: GCS_UTILITY_PKG.g_module_success || l_api_name ||
1847: to_char(sysdate, '' DD-MON-YYYY HH:MI:SS''));
1848: END IF;

Line 1871: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

1867:
1868: EXCEPTION
1869:
1870: WHEN OTHERS THEN
1871: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1872: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1873: g_pkg_name || ''.'' || l_api_name,
1874: SUBSTR(SQLERRM, 1, 255));
1875: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,

Line 1872: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,

1868: EXCEPTION
1869:
1870: WHEN OTHERS THEN
1871: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1872: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1873: g_pkg_name || ''.'' || l_api_name,
1874: SUBSTR(SQLERRM, 1, 255));
1875: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1876: g_pkg_name || ''.'' || l_api_name,

Line 1875: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,

1871: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1872: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1873: g_pkg_name || ''.'' || l_api_name,
1874: SUBSTR(SQLERRM, 1, 255));
1875: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1876: g_pkg_name || ''.'' || l_api_name,
1877: GCS_UTILITY_PKG.g_module_failure || l_api_name ||
1878: to_char(sysdate, '' DD-MON-YYYY HH:MI:SS''));
1879: END IF;

Line 2000: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1996: END LOOP;
1997:
1998:
1999: body_block := '
2000: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2001:
2002: fnd_log.STRING (fnd_log.level_procedure,
2003: g_pkg_name || ''.'' || l_api_name,
2004: gcs_utility_pkg.g_module_enter

Line 2002: fnd_log.STRING (fnd_log.level_procedure,

1998:
1999: body_block := '
2000: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2001:
2002: fnd_log.STRING (fnd_log.level_procedure,
2003: g_pkg_name || ''.'' || l_api_name,
2004: gcs_utility_pkg.g_module_enter
2005: || '' ''
2006: || l_api_name

Line 2016: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

2012: -- Get the matching rule for the given hierarchy_id
2013: -- for matching intercompany eliminations such as by organization,
2014: -- by company or by cost center.
2015:
2016: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2017: fnd_log.STRING (fnd_log.level_procedure,
2018: g_pkg_name || ''.'' || l_api_name,
2019: ''Get the matching rule information''
2020: );

Line 2017: fnd_log.STRING (fnd_log.level_procedure,

2013: -- for matching intercompany eliminations such as by organization,
2014: -- by company or by cost center.
2015:
2016: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2017: fnd_log.STRING (fnd_log.level_procedure,
2018: g_pkg_name || ''.'' || l_api_name,
2019: ''Get the matching rule information''
2020: );
2021: END IF;

Line 2062: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

2058: WHEN NO_DATA_FOUND Then
2059: Raise NO_MATCH_RULE_CODE;
2060: END;
2061:
2062: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2063: fnd_log.STRING (fnd_log.level_procedure,
2064: g_pkg_name || ''.'' || l_api_name,
2065: '' Arguments Hierarchy_id :''||p_hierarchy_id
2066: ||'' Stat Entry Id: ''|| p_stat_entry_id

Line 2063: fnd_log.STRING (fnd_log.level_procedure,

2059: Raise NO_MATCH_RULE_CODE;
2060: END;
2061:
2062: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2063: fnd_log.STRING (fnd_log.level_procedure,
2064: g_pkg_name || ''.'' || l_api_name,
2065: '' Arguments Hierarchy_id :''||p_hierarchy_id
2066: ||'' Stat Entry Id: ''|| p_stat_entry_id
2067: ||'' Entry id: ''||p_entry_id

Line 2100: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

2096:
2097: IF ((x_lob_reporting_enabled = ''Y'')
2098: AND (x_lob_hierarchy_obj_id IS NOT NULL)) THEN
2099:
2100: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2101: fnd_log.STRING (fnd_log.level_procedure,
2102: g_pkg_name || ''.'' || l_api_name,
2103: ''Entered into LOB support block''
2104: );

Line 2101: fnd_log.STRING (fnd_log.level_procedure,

2097: IF ((x_lob_reporting_enabled = ''Y'')
2098: AND (x_lob_hierarchy_obj_id IS NOT NULL)) THEN
2099:
2100: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2101: fnd_log.STRING (fnd_log.level_procedure,
2102: g_pkg_name || ''.'' || l_api_name,
2103: ''Entered into LOB support block''
2104: );
2105: END IF;

Line 2109: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

2105: END IF;
2106:
2107: BEGIN
2108:
2109: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2110: fnd_log.STRING (fnd_log.level_procedure,
2111: g_pkg_name || ''.'' || l_api_name,
2112: ''Checking Hierarchy date effectivity''
2113: );

Line 2110: fnd_log.STRING (fnd_log.level_procedure,

2106:
2107: BEGIN
2108:
2109: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2110: fnd_log.STRING (fnd_log.level_procedure,
2111: g_pkg_name || ''.'' || l_api_name,
2112: ''Checking Hierarchy date effectivity''
2113: );
2114: END IF;

Line 2130: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

2126: EXCEPTION
2127: WHEN NO_DATA_FOUND THEN
2128: l_valid_hierarchy_id :=0;
2129:
2130: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2131: fnd_log.STRING (fnd_log.level_procedure,
2132: g_pkg_name || ''.'' || l_api_name,
2133: ''Hierarchy date effectivity failed''
2134: || '' either due to wrong hierarchy or ''

Line 2131: fnd_log.STRING (fnd_log.level_procedure,

2127: WHEN NO_DATA_FOUND THEN
2128: l_valid_hierarchy_id :=0;
2129:
2130: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2131: fnd_log.STRING (fnd_log.level_procedure,
2132: g_pkg_name || ''.'' || l_api_name,
2133: ''Hierarchy date effectivity failed''
2134: || '' either due to wrong hierarchy or ''
2135: ||'' period end date is not falling ''

Line 2143: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

2139: null;
2140: --Raise Hierarchy_Check_Failed;
2141:
2142: WHEN OTHERS THEN
2143: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
2144: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
2145: g_pkg_name || ''.'' || l_api_name
2146: ||'' Hierarchy_Check '',
2147: SUBSTR(SQLERRM, 1, 255));

Line 2144: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,

2140: --Raise Hierarchy_Check_Failed;
2141:
2142: WHEN OTHERS THEN
2143: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
2144: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
2145: g_pkg_name || ''.'' || l_api_name
2146: ||'' Hierarchy_Check '',
2147: SUBSTR(SQLERRM, 1, 255));
2148:

Line 2170: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

2166: IF (x_intercompany_org_code = ''SPECIFIC_VALUE'') THEN
2167:
2168: l_no_rows := 0;
2169:
2170: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2171: fnd_log.STRING (fnd_log.level_procedure,
2172: g_pkg_name || ''.'' || l_api_name,
2173: ''Inserting intercompany transactions for matching by''
2174: || '' organization into GCS_INTERCO_ELM_TRX''

Line 2171: fnd_log.STRING (fnd_log.level_procedure,

2167:
2168: l_no_rows := 0;
2169:
2170: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2171: fnd_log.STRING (fnd_log.level_procedure,
2172: g_pkg_name || ''.'' || l_api_name,
2173: ''Inserting intercompany transactions for matching by''
2174: || '' organization into GCS_INTERCO_ELM_TRX''
2175: || '' - LOB REPORTING ENABLED '');

Line 2228: g_fnd_login_id,

2224:
2225: body_block := '
2226: SYSDATE, g_fnd_user_id,
2227: SYSDATE, g_fnd_user_id,
2228: g_fnd_login_id,
2229: DECODE(fcoa2.dim_attribute_numeric_member,
2230: fcoa3.dim_attribute_numeric_member,
2231: fcoa2.dim_attribute_numeric_member,
2232: fcca.dim_attribute_numeric_member)

Line 2378: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

2374: ' AND giet1.line_item_id = gel.line_item_id) ;
2375:
2376: l_no_rows := NVL(SQL%ROWCOUNT,0);
2377:
2378: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2379: FND_MESSAGE.Set_Name(''SQLGL'',''SHRD0117'');
2380: FND_MESSAGE.Set_Token(''NUM'',TO_CHAR(l_no_rows));
2381: FND_MESSAGE.Set_Token(''TABLE'',''GCS_INTERCO_ELM_TRX'');
2382:

Line 2383: FND_LOG.String (fnd_log.level_procedure,

2379: FND_MESSAGE.Set_Name(''SQLGL'',''SHRD0117'');
2380: FND_MESSAGE.Set_Token(''NUM'',TO_CHAR(l_no_rows));
2381: FND_MESSAGE.Set_Token(''TABLE'',''GCS_INTERCO_ELM_TRX'');
2382:
2383: FND_LOG.String (fnd_log.level_procedure,
2384: g_pkg_name || ''.'' || l_api_name,
2385: ''SHRD0117: ''||FND_MESSAGE.get);
2386: --FND_FILE.Put_Line(FND_FILE.Log,''SHRD0117: ''||FND_MESSAGE.get);
2387: END IF;

Line 2405: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

2401: ELSE
2402:
2403: l_no_rows := 0;
2404:
2405: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2406: fnd_log.STRING (fnd_log.level_procedure,
2407: g_pkg_name || ''.'' || l_api_name,
2408: ''Inserting intercompany transactions for matching by''
2409: || '' organization into GCS_INTERCO_ELM_TRX''

Line 2406: fnd_log.STRING (fnd_log.level_procedure,

2402:
2403: l_no_rows := 0;
2404:
2405: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2406: fnd_log.STRING (fnd_log.level_procedure,
2407: g_pkg_name || ''.'' || l_api_name,
2408: ''Inserting intercompany transactions for matching by''
2409: || '' organization into GCS_INTERCO_ELM_TRX''
2410: || '' - LOB REPORTING ENABLED '');

Line 2463: g_fnd_login_id,

2459:
2460: body_block := '
2461: SYSDATE, g_fnd_user_id,
2462: SYSDATE, g_fnd_user_id,
2463: g_fnd_login_id,
2464: DECODE(fcoa2.dim_attribute_numeric_member,
2465: fcoa3.dim_attribute_numeric_member,
2466: fcoa2.dim_attribute_numeric_member,
2467: fcca.dim_attribute_numeric_member)

Line 2613: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

2609: ' AND giet1.line_item_id = gel.line_item_id) ;
2610:
2611: l_no_rows := NVL(SQL%ROWCOUNT,0);
2612:
2613: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2614: FND_MESSAGE.Set_Name(''SQLGL'',''SHRD0117'');
2615: FND_MESSAGE.Set_Token(''NUM'',TO_CHAR(l_no_rows));
2616: FND_MESSAGE.Set_Token(''TABLE'',''GCS_INTERCO_ELM_TRX'');
2617:

Line 2618: FND_LOG.String (fnd_log.level_procedure,

2614: FND_MESSAGE.Set_Name(''SQLGL'',''SHRD0117'');
2615: FND_MESSAGE.Set_Token(''NUM'',TO_CHAR(l_no_rows));
2616: FND_MESSAGE.Set_Token(''TABLE'',''GCS_INTERCO_ELM_TRX'');
2617:
2618: FND_LOG.String (fnd_log.level_procedure,
2619: g_pkg_name || ''.'' || l_api_name,
2620: ''SHRD0117: ''||FND_MESSAGE.get);
2621: --FND_FILE.Put_Line(FND_FILE.Log,''SHRD0117: ''||FND_MESSAGE.get);
2622: END IF;

Line 2643: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

2639: -- Regular matching by organization.
2640: IF (x_intercompany_org_code = ''SPECIFIC_VALUE'') THEN
2641: l_no_rows := 0;
2642:
2643: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2644: fnd_log.STRING (fnd_log.level_procedure,
2645: g_pkg_name || ''.'' || l_api_name,
2646: ''Inserting intercompany transactions for matching by''
2647: || '' organization into GCS_INTERCO_ELM_TRX''

Line 2644: fnd_log.STRING (fnd_log.level_procedure,

2640: IF (x_intercompany_org_code = ''SPECIFIC_VALUE'') THEN
2641: l_no_rows := 0;
2642:
2643: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2644: fnd_log.STRING (fnd_log.level_procedure,
2645: g_pkg_name || ''.'' || l_api_name,
2646: ''Inserting intercompany transactions for matching by''
2647: || '' organization into GCS_INTERCO_ELM_TRX''
2648: || '' - LOB REPORTING Disabled'');

Line 2715: g_fnd_login_id

2711:
2712: body_block := '
2713: SYSDATE, g_fnd_user_id,
2714: SYSDATE, g_fnd_user_id,
2715: g_fnd_login_id
2716: FROM GCS_ENTRY_HEADERS geh,
2717: GCS_ENTRY_LINES gel,
2718: GCS_ENTITY_CCTR_ORGS geo,
2719: GCS_ENTITY_CCTR_ORGS geo1,

Line 2786: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

2782: AND giet1.line_item_id = gel.line_item_id);
2783:
2784: l_no_rows := NVL(SQL%ROWCOUNT,0);
2785:
2786: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2787: FND_MESSAGE.Set_Name(''SQLGL'',''SHRD0117'');
2788: FND_MESSAGE.Set_Token(''NUM'',TO_CHAR(l_no_rows));
2789: FND_MESSAGE.Set_Token(''TABLE'',''GCS_INTERCO_ELM_TRX'');
2790:

Line 2791: FND_LOG.String (fnd_log.level_procedure,

2787: FND_MESSAGE.Set_Name(''SQLGL'',''SHRD0117'');
2788: FND_MESSAGE.Set_Token(''NUM'',TO_CHAR(l_no_rows));
2789: FND_MESSAGE.Set_Token(''TABLE'',''GCS_INTERCO_ELM_TRX'');
2790:
2791: FND_LOG.String (fnd_log.level_procedure,
2792: g_pkg_name || ''.'' || l_api_name,
2793: ''SHRD0117: ''||FND_MESSAGE.get);
2794: --FND_FILE.Put_Line(FND_FILE.Log,''SHRD0117: ''||FND_MESSAGE.get);
2795: END IF;

Line 2800: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

2796:
2797: ELSE
2798: l_no_rows := 0;
2799:
2800: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2801: fnd_log.STRING (fnd_log.level_procedure,
2802: g_pkg_name || ''.'' || l_api_name,
2803: ''Inserting intercompany transactions for matching by''
2804: || '' organization into GCS_INTERCO_ELM_TRX''

Line 2801: fnd_log.STRING (fnd_log.level_procedure,

2797: ELSE
2798: l_no_rows := 0;
2799:
2800: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2801: fnd_log.STRING (fnd_log.level_procedure,
2802: g_pkg_name || ''.'' || l_api_name,
2803: ''Inserting intercompany transactions for matching by''
2804: || '' organization into GCS_INTERCO_ELM_TRX''
2805: || '' - LOB REPORTING Disabled'');

Line 2872: g_fnd_login_id

2868:
2869: body_block := '
2870: SYSDATE, g_fnd_user_id,
2871: SYSDATE, g_fnd_user_id,
2872: g_fnd_login_id
2873: FROM GCS_ENTRY_HEADERS geh,
2874: GCS_ENTRY_LINES gel,
2875: GCS_ENTITY_CCTR_ORGS geo,
2876: GCS_ENTITY_CCTR_ORGS geo1,

Line 2943: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

2939: AND giet1.line_item_id = gel.line_item_id);
2940:
2941: l_no_rows := NVL(SQL%ROWCOUNT,0);
2942:
2943: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2944: FND_MESSAGE.Set_Name(''SQLGL'',''SHRD0117'');
2945: FND_MESSAGE.Set_Token(''NUM'',TO_CHAR(l_no_rows));
2946: FND_MESSAGE.Set_Token(''TABLE'',''GCS_INTERCO_ELM_TRX'');
2947:

Line 2948: FND_LOG.String (fnd_log.level_procedure,

2944: FND_MESSAGE.Set_Name(''SQLGL'',''SHRD0117'');
2945: FND_MESSAGE.Set_Token(''NUM'',TO_CHAR(l_no_rows));
2946: FND_MESSAGE.Set_Token(''TABLE'',''GCS_INTERCO_ELM_TRX'');
2947:
2948: FND_LOG.String (fnd_log.level_procedure,
2949: g_pkg_name || ''.'' || l_api_name,
2950: ''SHRD0117: ''||FND_MESSAGE.get);
2951: --FND_FILE.Put_Line(FND_FILE.Log,''SHRD0117: ''||FND_MESSAGE.get);
2952: END IF;

Line 2974: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

2970:
2971: if (x_intercompany_org_code = ''SPECIFIC_VALUE'') THEN
2972:
2973: l_no_rows := 0;
2974: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2975: FND_LOG.String (fnd_log.level_procedure,
2976: g_pkg_name || ''.'' || l_api_name,
2977: ''Specific_Value - ''
2978: ||'' Inserting intercompany transactions for matching by''

Line 2975: FND_LOG.String (fnd_log.level_procedure,

2971: if (x_intercompany_org_code = ''SPECIFIC_VALUE'') THEN
2972:
2973: l_no_rows := 0;
2974: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2975: FND_LOG.String (fnd_log.level_procedure,
2976: g_pkg_name || ''.'' || l_api_name,
2977: ''Specific_Value - ''
2978: ||'' Inserting intercompany transactions for matching by''
2979: ||'' company intercompany into GCS_INTERCO_ELM_TRX'');

Line 3049: g_fnd_login_id

3045:
3046: body_block := '
3047: SYSDATE, g_fnd_user_id,
3048: SYSDATE, g_fnd_user_id,
3049: g_fnd_login_id
3050: FROM GCS_ENTRY_HEADERS geh,
3051: GCS_ENTRY_LINES gel,
3052: GCS_ENTITY_CCTR_ORGS geo,
3053: GCS_ENTITY_CCTR_ORGS geo1,

Line 3152: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

3148: AND giet1.line_item_id = gel.line_item_id);
3149:
3150: l_no_rows := NVL(SQL%ROWCOUNT,0);
3151:
3152: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3153: FND_MESSAGE.Set_Name(''SQLGL'',''SHRD0117'');
3154: FND_MESSAGE.Set_Token(''NUM'',TO_CHAR(l_no_rows));
3155: FND_MESSAGE.Set_Token(''TABLE'',''GCS_INTERCO_ELM_TRX'');
3156:

Line 3157: FND_LOG.String (fnd_log.level_procedure,

3153: FND_MESSAGE.Set_Name(''SQLGL'',''SHRD0117'');
3154: FND_MESSAGE.Set_Token(''NUM'',TO_CHAR(l_no_rows));
3155: FND_MESSAGE.Set_Token(''TABLE'',''GCS_INTERCO_ELM_TRX'');
3156:
3157: FND_LOG.String (fnd_log.level_procedure,
3158: g_pkg_name || ''.'' || l_api_name,
3159: ''SHRD0117: ''||FND_MESSAGE.get);
3160: --FND_FILE.Put_Line(FND_FILE.Log,''SHRD0117: ''||FND_MESSAGE.get);
3161:

Line 3183: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

3179:
3180: ELSE
3181:
3182: l_no_rows := 0;
3183: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3184: FND_LOG.String (fnd_log.level_procedure,
3185: g_pkg_name || ''.'' || l_api_name,
3186: '' Org and Interco are different - ''
3187: ||''Inserting intercompany transactions for matching by''

Line 3184: FND_LOG.String (fnd_log.level_procedure,

3180: ELSE
3181:
3182: l_no_rows := 0;
3183: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3184: FND_LOG.String (fnd_log.level_procedure,
3185: g_pkg_name || ''.'' || l_api_name,
3186: '' Org and Interco are different - ''
3187: ||''Inserting intercompany transactions for matching by''
3188: ||'' company intercompany into GCS_INTERCO_ELM_TRX'');

Line 3258: g_fnd_login_id

3254:
3255: body_block := '
3256: SYSDATE, g_fnd_user_id,
3257: SYSDATE, g_fnd_user_id,
3258: g_fnd_login_id
3259: FROM GCS_ENTRY_HEADERS geh,
3260: GCS_ENTRY_LINES gel,
3261: GCS_ENTITY_CCTR_ORGS geo,
3262: GCS_ENTITY_CCTR_ORGS geo1,

Line 3362: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

3358: AND giet1.line_item_id = gel.line_item_id);
3359:
3360: l_no_rows := NVL(SQL%ROWCOUNT,0);
3361:
3362: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3363: FND_MESSAGE.Set_Name(''SQLGL'',''SHRD0117'');
3364: FND_MESSAGE.Set_Token(''NUM'',TO_CHAR(l_no_rows));
3365: FND_MESSAGE.Set_Token(''TABLE'',''GCS_INTERCO_ELM_TRX'');
3366:

Line 3367: FND_LOG.String (fnd_log.level_procedure,

3363: FND_MESSAGE.Set_Name(''SQLGL'',''SHRD0117'');
3364: FND_MESSAGE.Set_Token(''NUM'',TO_CHAR(l_no_rows));
3365: FND_MESSAGE.Set_Token(''TABLE'',''GCS_INTERCO_ELM_TRX'');
3366:
3367: FND_LOG.String (fnd_log.level_procedure,
3368: g_pkg_name || ''.'' || l_api_name,
3369: ''SHRD0117: ''||FND_MESSAGE.get);
3370: --FND_FILE.Put_Line(FND_FILE.Log,''SHRD0117: ''||FND_MESSAGE.get);
3371:

Line 3390: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)

3386: END LOOP;
3387:
3388:
3389: body_block :='
3390: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
3391: THEN
3392:
3393: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
3394: g_pkg_name || ''.'' || l_api_name,

Line 3393: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,

3389: body_block :='
3390: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
3391: THEN
3392:
3393: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
3394: g_pkg_name || ''.'' || l_api_name,
3395: GCS_UTILITY_PKG.g_module_success || l_api_name ||
3396: to_char(sysdate, '' DD-MON-YYYY HH:MI:SS''));
3397: END IF;

Line 3408: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

3404: WHEN NO_MATCH_RULE_CODE THEN
3405:
3406: x_errbuf := SQLERRM;
3407:
3408: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3409: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
3410: g_pkg_name || ''.'' || l_api_name
3411: ||'' NO_MATCH_RULE_CODE'',
3412: SUBSTR(SQLERRM, 1, 255));

Line 3409: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,

3405:
3406: x_errbuf := SQLERRM;
3407:
3408: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3409: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
3410: g_pkg_name || ''.'' || l_api_name
3411: ||'' NO_MATCH_RULE_CODE'',
3412: SUBSTR(SQLERRM, 1, 255));
3413:

Line 3436: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)

3432: WHEN Hierarchy_Check_Failed THEN
3433:
3434: x_errbuf := SQLERRM;
3435:
3436: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
3437: THEN
3438: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
3439: g_pkg_name || ''.'' || l_api_name
3440: || '' Hierarchy_Check_Failed'',

Line 3438: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,

3434: x_errbuf := SQLERRM;
3435:
3436: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
3437: THEN
3438: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
3439: g_pkg_name || ''.'' || l_api_name
3440: || '' Hierarchy_Check_Failed'',
3441: ''Either hierarchy does not exist or the ''
3442: ||'' hierarchy date affectivity has not been ''

Line 3448: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

3444:
3445:
3446: END IF;
3447:
3448: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3449: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
3450: g_pkg_name || ''.'' || l_api_name,
3451: SUBSTR(SQLERRM, 1, 255));
3452:

Line 3449: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,

3445:
3446: END IF;
3447:
3448: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3449: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
3450: g_pkg_name || ''.'' || l_api_name,
3451: SUBSTR(SQLERRM, 1, 255));
3452:
3453:

Line 3477: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

3473: WHEN OTHERS THEN
3474:
3475: x_errbuf := SQLERRM;
3476:
3477: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3478: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
3479: g_pkg_name || ''.'' || l_api_name,
3480: SUBSTR(SQLERRM, 1, 255));
3481: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,

Line 3478: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,

3474:
3475: x_errbuf := SQLERRM;
3476:
3477: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3478: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
3479: g_pkg_name || ''.'' || l_api_name,
3480: SUBSTR(SQLERRM, 1, 255));
3481: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
3482: g_pkg_name || ''.'' || l_api_name,

Line 3481: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,

3477: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3478: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
3479: g_pkg_name || ''.'' || l_api_name,
3480: SUBSTR(SQLERRM, 1, 255));
3481: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
3482: g_pkg_name || ''.'' || l_api_name,
3483: GCS_UTILITY_PKG.g_module_failure || l_api_name ||
3484: to_char(sysdate, '' DD-MON-YYYY HH:MI:SS''));
3485: END IF;

Line 3508: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

3504:
3505:
3506: body_block := '
3507:
3508: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3509:
3510: fnd_log.STRING (fnd_log.level_procedure,
3511: g_pkg_name || ''.'' || l_api_name,
3512: gcs_utility_pkg.g_module_success

Line 3510: fnd_log.STRING (fnd_log.level_procedure,

3506: body_block := '
3507:
3508: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3509:
3510: fnd_log.STRING (fnd_log.level_procedure,
3511: g_pkg_name || ''.'' || l_api_name,
3512: gcs_utility_pkg.g_module_success
3513: || '' ''
3514: || l_api_name

Line 3554: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

3550:
3551: EXCEPTION
3552:
3553: WHEN OTHERS THEN
3554: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3555: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
3556: g_api || '.' || l_api_name,
3557:
3558: SUBSTR(SQLERRM, 1, 255));

Line 3555: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,

3551: EXCEPTION
3552:
3553: WHEN OTHERS THEN
3554: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3555: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
3556: g_api || '.' || l_api_name,
3557:
3558: SUBSTR(SQLERRM, 1, 255));
3559: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,

Line 3559: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,

3555: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
3556: g_api || '.' || l_api_name,
3557:
3558: SUBSTR(SQLERRM, 1, 255));
3559: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
3560: g_api || '.' || l_api_name,
3561: GCS_UTILITY_PKG.g_module_failure || l_api_name ||
3562: to_char(sysdate, 'DD-MON-YYYY HH:MI:SS'));
3563: END IF;