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

Line 70: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN

66: l_module_name VARCHAR2(200) ;
67: l_bc_count NUMBER;
68: BEGIN
69: l_module_name := g_module_name || 'main ';
70: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
71: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'STARTING THE CARRY FORWARD BUDGETARY ACCOUNT ' ||
72: 'Balances Process.....');
73: END IF;
74: -- Assign initial values

Line 71: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'STARTING THE CARRY FORWARD BUDGETARY ACCOUNT ' ||

67: l_bc_count NUMBER;
68: BEGIN
69: l_module_name := g_module_name || 'main ';
70: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
71: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'STARTING THE CARRY FORWARD BUDGETARY ACCOUNT ' ||
72: 'Balances Process.....');
73: END IF;
74: -- Assign initial values
75: vp_retcode := 0;

Line 80: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN

76: vp_errbuf := NULL;
77: -- Load the parameter global variables
78: vp_sob_id := sob;
79: vp_carryfor_fyr := carryfor_fyr;
80: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
81: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'THE PARAMETERS PASSED TO THE CARRY FORWARD PROCESS ARE: '||
82: 'Set of books id = '||TO_CHAR(vp_sob_id)||
83: ',Carry Forward Fiscal Year = '||TO_CHAR(vp_carryfor_fyr));
84: END IF;

Line 81: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'THE PARAMETERS PASSED TO THE CARRY FORWARD PROCESS ARE: '||

77: -- Load the parameter global variables
78: vp_sob_id := sob;
79: vp_carryfor_fyr := carryfor_fyr;
80: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
81: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'THE PARAMETERS PASSED TO THE CARRY FORWARD PROCESS ARE: '||
82: 'Set of books id = '||TO_CHAR(vp_sob_id)||
83: ',Carry Forward Fiscal Year = '||TO_CHAR(vp_carryfor_fyr));
84: END IF;
85:

Line 95: FV_UTILITY.LOG_MESG (FND_LOG.LEVEL_ERROR, l_module_name, 'Carry forward process is not allowed for this year.');

91: AND period_year = vp_carryfor_fyr
92: AND NVL(track_bc_ytd_flag, 'N') = 'Y';
93:
94: IF (l_bc_count > 0) THEN
95: FV_UTILITY.LOG_MESG (FND_LOG.LEVEL_ERROR, l_module_name, 'Carry forward process is not allowed for this year.');
96: vp_retcode := -1;
97: retcode := vp_retcode;
98: RETURN;
99: END IF;

Line 101: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN

97: retcode := vp_retcode;
98: RETURN;
99: END IF;
100: -- Get the Coa and Currency Code
101: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
102: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'GETTING THE CHART OF ACCOUNTS AND CURRENCY CODE');
103: END IF;
104: Get_Required_Parameters;
105: IF (vp_retcode = 0) THEN

Line 102: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'GETTING THE CHART OF ACCOUNTS AND CURRENCY CODE');

98: RETURN;
99: END IF;
100: -- Get the Coa and Currency Code
101: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
102: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'GETTING THE CHART OF ACCOUNTS AND CURRENCY CODE');
103: END IF;
104: Get_Required_Parameters;
105: IF (vp_retcode = 0) THEN
106: -- Get the Closing Fyr,Last Period for the Closing Fyr and

Line 108: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN

104: Get_Required_Parameters;
105: IF (vp_retcode = 0) THEN
106: -- Get the Closing Fyr,Last Period for the Closing Fyr and
107: -- First Period for the Carry Forward Fyr
108: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
109: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'GETTING THE CLOSING FYR, LAST PERIOD '||
110: 'of the Closing Fiscal Year and '||
111: 'First Period of the Carry Forward Fiscal Year');
112: END IF;

Line 109: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'GETTING THE CLOSING FYR, LAST PERIOD '||

105: IF (vp_retcode = 0) THEN
106: -- Get the Closing Fyr,Last Period for the Closing Fyr and
107: -- First Period for the Carry Forward Fyr
108: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
109: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'GETTING THE CLOSING FYR, LAST PERIOD '||
110: 'of the Closing Fiscal Year and '||
111: 'First Period of the Carry Forward Fiscal Year');
112: END IF;
113: Get_Period_Details;

Line 123: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN

119: END IF;
120: IF (vp_retcode = 0) THEN
121: -- Check if the Carry Forward process has been run earlier
122: -- for the same period.
123: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
124: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CHECKING IF THE CARRYFORWARD PROCESS HAS BEEN '||
125: 'run earlier for the same period.');
126: END IF;
127:

Line 124: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CHECKING IF THE CARRYFORWARD PROCESS HAS BEEN '||

120: IF (vp_retcode = 0) THEN
121: -- Check if the Carry Forward process has been run earlier
122: -- for the same period.
123: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
124: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CHECKING IF THE CARRYFORWARD PROCESS HAS BEEN '||
125: 'run earlier for the same period.');
126: END IF;
127:
128: Check_Carryforward_Process;

Line 141: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN

137: retcode := 0;
138: errbuf := '** Carry Forward Budgetary Account Balances Process '||
139: 'completed successfully **';
140: END IF;
141: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
142: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENDING THE CARRY FORWARD BUGETARY ACCOUNT BALANCES '||
143: 'Process ......');
144: END IF;
145: EXCEPTION

Line 142: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENDING THE CARRY FORWARD BUGETARY ACCOUNT BALANCES '||

138: errbuf := '** Carry Forward Budgetary Account Balances Process '||
139: 'completed successfully **';
140: END IF;
141: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
142: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENDING THE CARRY FORWARD BUGETARY ACCOUNT BALANCES '||
143: 'Process ......');
144: END IF;
145: EXCEPTION
146: WHEN OTHERS THEN

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

148: errbuf := '** Carry Forward Budgetary Account Balances Process Failed ** '
149: ||SQLERRM;
150:
151: retcode := 2;
152: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
153: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name
154: ,errbuf);
155: END IF;
156: END Main;

Line 153: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name

149: ||SQLERRM;
150:
151: retcode := 2;
152: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
153: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name
154: ,errbuf);
155: END IF;
156: END Main;
157: -- ------------------------------------------------------------------

Line 178: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

174: vg_coa_id ,
175: vg_bal_seg_val_opt_code
176: FROM gl_ledgers_public_v
177: WHERE ledger_id = vp_sob_id;
178: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
179: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CHART OF ACCOUNTS ID = '||TO_CHAR(VG_COA_ID));
180: END IF;
181:
182: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

Line 179: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CHART OF ACCOUNTS ID = '||TO_CHAR(VG_COA_ID));

175: vg_bal_seg_val_opt_code
176: FROM gl_ledgers_public_v
177: WHERE ledger_id = vp_sob_id;
178: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
179: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CHART OF ACCOUNTS ID = '||TO_CHAR(VG_COA_ID));
180: END IF;
181:
182: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
183: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CURRENCY CODE = '||VG_CURRENCY);

Line 182: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

178: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
179: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CHART OF ACCOUNTS ID = '||TO_CHAR(VG_COA_ID));
180: END IF;
181:
182: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
183: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CURRENCY CODE = '||VG_CURRENCY);
184: END IF;
185: EXCEPTION
186: WHEN NO_DATA_FOUND THEN

Line 183: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CURRENCY CODE = '||VG_CURRENCY);

179: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CHART OF ACCOUNTS ID = '||TO_CHAR(VG_COA_ID));
180: END IF;
181:
182: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
183: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CURRENCY CODE = '||VG_CURRENCY);
184: END IF;
185: EXCEPTION
186: WHEN NO_DATA_FOUND THEN
187: vp_errbuf := 'Error in Get_Required_Parameters:'||

Line 231: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN

227: EXCEPTION
228: WHEN OTHERS THEN
229: vp_retcode := 2 ;
230: vp_errbuf := SQLERRM ||' -- Error in Get_Required_Parameters procedure.';
231: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
232: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name
233: ,vp_errbuf );
234: END IF;
235: RETURN ;

Line 232: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name

228: WHEN OTHERS THEN
229: vp_retcode := 2 ;
230: vp_errbuf := SQLERRM ||' -- Error in Get_Required_Parameters procedure.';
231: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
232: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name
233: ,vp_errbuf );
234: END IF;
235: RETURN ;
236: END Get_Required_Parameters;

Line 253: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN

249: l_module_name := g_module_name ||
250: 'Get_Period_Details ';
251: -- Get the Closing Fyr
252: vg_closing_fyr := vp_carryfor_fyr - 1;
253: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
254: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CLOSING FISCAL YEAR IS = '||TO_CHAR(VG_CLOSING_FYR));
255: END IF;
256: -- Get the Last Period of the Closing Fyr
257: BEGIN

Line 254: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CLOSING FISCAL YEAR IS = '||TO_CHAR(VG_CLOSING_FYR));

250: 'Get_Period_Details ';
251: -- Get the Closing Fyr
252: vg_closing_fyr := vp_carryfor_fyr - 1;
253: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
254: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CLOSING FISCAL YEAR IS = '||TO_CHAR(VG_CLOSING_FYR));
255: END IF;
256: -- Get the Last Period of the Closing Fyr
257: BEGIN
258: SELECT period_name

Line 269: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN

265: FROM gl_period_statuses
266: WHERE ledger_id = vp_sob_id
267: AND application_id = 101
268: AND period_year = vg_closing_fyr);
269: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
270: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LAST PERIOD OF THE CLOSING FISCAL YEAR = '
271: ||vg_closing_period);
272: END IF;
273: EXCEPTION

Line 270: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LAST PERIOD OF THE CLOSING FISCAL YEAR = '

266: WHERE ledger_id = vp_sob_id
267: AND application_id = 101
268: AND period_year = vg_closing_fyr);
269: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
270: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LAST PERIOD OF THE CLOSING FISCAL YEAR = '
271: ||vg_closing_period);
272: END IF;
273: EXCEPTION
274: WHEN NO_DATA_FOUND THEN

Line 300: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN

296: FROM gl_period_statuses
297: WHERE ledger_id = vp_sob_id
298: AND application_id = 101
299: AND period_year = vp_carryfor_fyr);
300: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
301: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FIRST PERIOD OF THE CARRY FORWARD FISCAL YEAR = '
302: ||vg_carryfor_period||', adjustment period flag = '
303: ||vl_adj_flag||', and closing status = '
304: ||vl_closing_status);

Line 301: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FIRST PERIOD OF THE CARRY FORWARD FISCAL YEAR = '

297: WHERE ledger_id = vp_sob_id
298: AND application_id = 101
299: AND period_year = vp_carryfor_fyr);
300: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
301: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FIRST PERIOD OF THE CARRY FORWARD FISCAL YEAR = '
302: ||vg_carryfor_period||', adjustment period flag = '
303: ||vl_adj_flag||', and closing status = '
304: ||vl_closing_status);
305: END IF;

Line 335: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN

331: SELECT period_set_name
332: INTO vg_period_set_name
333: FROM Gl_Sets_Of_Books
334: WHERE set_of_books_id = vp_sob_id;
335: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
336: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PERIOD SET NAME = '||VG_PERIOD_SET_NAME);
337: END IF;
338: EXCEPTION
339: WHEN OTHERS THEN

Line 336: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PERIOD SET NAME = '||VG_PERIOD_SET_NAME);

332: INTO vg_period_set_name
333: FROM Gl_Sets_Of_Books
334: WHERE set_of_books_id = vp_sob_id;
335: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
336: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PERIOD SET NAME = '||VG_PERIOD_SET_NAME);
337: END IF;
338: EXCEPTION
339: WHEN OTHERS THEN
340: vp_retcode := 2 ;

Line 343: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN

339: WHEN OTHERS THEN
340: vp_retcode := 2 ;
341: vp_errbuf := SQLERRM||' -- Error in Get_Period_Details procedure,'||
342: 'while getting the period set name.' ;
343: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
344: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name
345: ,vp_errbuf );
346: END IF;
347: RETURN ;

Line 344: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name

340: vp_retcode := 2 ;
341: vp_errbuf := SQLERRM||' -- Error in Get_Period_Details procedure,'||
342: 'while getting the period set name.' ;
343: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
344: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name
345: ,vp_errbuf );
346: END IF;
347: RETURN ;
348: END;

Line 355: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN

351: EXCEPTION
352: WHEN OTHERS THEN
353: vp_retcode := 2 ;
354: vp_errbuf := SQLERRM ||' -- Error in Get_Period_Details procedure.';
355: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
356: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name
357: ,vp_errbuf );
358: END IF;
359: RETURN ;

Line 356: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name

352: WHEN OTHERS THEN
353: vp_retcode := 2 ;
354: vp_errbuf := SQLERRM ||' -- Error in Get_Period_Details procedure.';
355: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
356: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name
357: ,vp_errbuf );
358: END IF;
359: RETURN ;
360: END Get_Period_Details;

Line 405: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN

401: -- for the same period.
402: OPEN get_count_cur;
403: FETCH get_count_cur INTO vl_cnt;
404: CLOSE get_count_cur;
405: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
406: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' THE NUMBER OF RECORDS EXISTING IN GL ARE '
407: ||TO_CHAR(vl_cnt));
408: END IF;
409: IF (vl_cnt > 0) THEN

Line 406: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' THE NUMBER OF RECORDS EXISTING IN GL ARE '

402: OPEN get_count_cur;
403: FETCH get_count_cur INTO vl_cnt;
404: CLOSE get_count_cur;
405: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
406: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' THE NUMBER OF RECORDS EXISTING IN GL ARE '
407: ||TO_CHAR(vl_cnt));
408: END IF;
409: IF (vl_cnt > 0) THEN
410: FOR vc_hdrs IN get_hdrs_cur LOOP

Line 415: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

411: vl_header_id := vc_hdrs.je_header_id;
412: vl_accrrev_status := vc_hdrs.accrual_rev_status;
413: vl_rev_header_id := vc_hdrs.accrual_rev_je_header_id;
414: vl_status := vc_hdrs.status;
415: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
416: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE LOOP FOR GETTING HEADERS, '||
417: 'processing the following:');
418: END IF;
419: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

Line 416: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE LOOP FOR GETTING HEADERS, '||

412: vl_accrrev_status := vc_hdrs.accrual_rev_status;
413: vl_rev_header_id := vc_hdrs.accrual_rev_je_header_id;
414: vl_status := vc_hdrs.status;
415: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
416: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE LOOP FOR GETTING HEADERS, '||
417: 'processing the following:');
418: END IF;
419: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
420: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' JE_HEADER_ID: '||TO_CHAR(VL_HEADER_ID) ||

Line 419: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

415: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
416: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE LOOP FOR GETTING HEADERS, '||
417: 'processing the following:');
418: END IF;
419: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
420: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' JE_HEADER_ID: '||TO_CHAR(VL_HEADER_ID) ||
421: ', accrual_rev_status: '||vl_accrrev_status||
422: ', accrual_rev_je_header_id: '||TO_CHAR(vl_rev_header_id));
423: END IF;

Line 420: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' JE_HEADER_ID: '||TO_CHAR(VL_HEADER_ID) ||

416: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE LOOP FOR GETTING HEADERS, '||
417: 'processing the following:');
418: END IF;
419: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
420: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' JE_HEADER_ID: '||TO_CHAR(VL_HEADER_ID) ||
421: ', accrual_rev_status: '||vl_accrrev_status||
422: ', accrual_rev_je_header_id: '||TO_CHAR(vl_rev_header_id));
423: END IF;
424: IF (vc_hdrs.accrual_rev_status IS NULL) THEN

Line 425: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

421: ', accrual_rev_status: '||vl_accrrev_status||
422: ', accrual_rev_je_header_id: '||TO_CHAR(vl_rev_header_id));
423: END IF;
424: IF (vc_hdrs.accrual_rev_status IS NULL) THEN
425: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
426: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCRUAL REV STATUS IS NULL, I.E. <> R');
427: END IF;
428: IF (vc_hdrs.accrual_rev_je_header_id IS NULL) THEN
429: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

Line 426: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCRUAL REV STATUS IS NULL, I.E. <> R');

422: ', accrual_rev_je_header_id: '||TO_CHAR(vl_rev_header_id));
423: END IF;
424: IF (vc_hdrs.accrual_rev_status IS NULL) THEN
425: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
426: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCRUAL REV STATUS IS NULL, I.E. <> R');
427: END IF;
428: IF (vc_hdrs.accrual_rev_je_header_id IS NULL) THEN
429: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
430: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCRUAL REV JE HEADER ID IS NULL');

Line 429: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

425: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
426: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCRUAL REV STATUS IS NULL, I.E. <> R');
427: END IF;
428: IF (vc_hdrs.accrual_rev_je_header_id IS NULL) THEN
429: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
430: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCRUAL REV JE HEADER ID IS NULL');
431: END IF;
432: vp_retcode := 1;
433: IF (vc_hdrs.status = 'P') THEN

Line 430: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCRUAL REV JE HEADER ID IS NULL');

426: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCRUAL REV STATUS IS NULL, I.E. <> R');
427: END IF;
428: IF (vc_hdrs.accrual_rev_je_header_id IS NULL) THEN
429: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
430: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCRUAL REV JE HEADER ID IS NULL');
431: END IF;
432: vp_retcode := 1;
433: IF (vc_hdrs.status = 'P') THEN
434: vp_errbuf := 'Carry Forward journal entries exist in GL:'||

Line 445: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

441: END IF;
442: RETURN;
443: END IF;
444: ELSE
445: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
446: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCRUAL REV STATUS = R');
447: END IF;
448: OPEN get_revstat_cur;
449: FETCH get_revstat_cur INTO vl_rev_status;

Line 446: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCRUAL REV STATUS = R');

442: RETURN;
443: END IF;
444: ELSE
445: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
446: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCRUAL REV STATUS = R');
447: END IF;
448: OPEN get_revstat_cur;
449: FETCH get_revstat_cur INTO vl_rev_status;
450: CLOSE get_revstat_cur;

Line 451: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

447: END IF;
448: OPEN get_revstat_cur;
449: FETCH get_revstat_cur INTO vl_rev_status;
450: CLOSE get_revstat_cur;
451: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
452: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' THE STATUS OF THE REVERSED JE IS = '||
453: vl_rev_status);
454: END IF;
455: IF (vl_rev_status <> 'P') THEN

Line 452: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' THE STATUS OF THE REVERSED JE IS = '||

448: OPEN get_revstat_cur;
449: FETCH get_revstat_cur INTO vl_rev_status;
450: CLOSE get_revstat_cur;
451: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
452: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' THE STATUS OF THE REVERSED JE IS = '||
453: vl_rev_status);
454: END IF;
455: IF (vl_rev_status <> 'P') THEN
456: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

Line 456: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

452: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' THE STATUS OF THE REVERSED JE IS = '||
453: vl_rev_status);
454: END IF;
455: IF (vl_rev_status <> 'P') THEN
456: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
457: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' STATUS <> POSTED');
458: END IF;
459: vp_retcode := 1;
460: vp_errbuf := 'Reverse Carry Forward journal entries exist '||

Line 457: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' STATUS <> POSTED');

453: vl_rev_status);
454: END IF;
455: IF (vl_rev_status <> 'P') THEN
456: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
457: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' STATUS <> POSTED');
458: END IF;
459: vp_retcode := 1;
460: vp_errbuf := 'Reverse Carry Forward journal entries exist '||
461: 'in GL, which are not posted.'||

Line 470: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN

466: END IF;
467: END LOOP;
468: END IF;
469: -- Get Balances and ccid's
470: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
471: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CALLING GET_BALANCES PROCEDURE');
472: END IF;
473: Get_Balances;
474: IF (vp_retcode <> 0) THEN

Line 471: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CALLING GET_BALANCES PROCEDURE');

467: END LOOP;
468: END IF;
469: -- Get Balances and ccid's
470: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
471: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CALLING GET_BALANCES PROCEDURE');
472: END IF;
473: Get_Balances;
474: IF (vp_retcode <> 0) THEN
475: RAISE e_error;

Line 483: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN

479: RETURN;
480: WHEN OTHERS THEN
481: vp_retcode := 2 ;
482: vp_errbuf := SQLERRM||' -- Error in Get_Carryforward_process procedure.';
483: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
484: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name
485: ,vp_errbuf );
486: END IF;
487: RETURN ;

Line 484: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name

480: WHEN OTHERS THEN
481: vp_retcode := 2 ;
482: vp_errbuf := SQLERRM||' -- Error in Get_Carryforward_process procedure.';
483: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
484: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name
485: ,vp_errbuf );
486: END IF;
487: RETURN ;
488: END Check_Carryforward_Process;

Line 511: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

507: BEGIN
508: vl_rec_found_flag := 'N';
509: l_user_id := fnd_global.user_id ;
510: l_module_name := g_module_name || 'Get_Balances ';
511: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
512: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN GET_BALANCES PROCEDURE');
513: END IF;
514:
515: -- Setup Gl Interface

Line 512: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN GET_BALANCES PROCEDURE');

508: vl_rec_found_flag := 'N';
509: l_user_id := fnd_global.user_id ;
510: l_module_name := g_module_name || 'Get_Balances ';
511: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
512: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN GET_BALANCES PROCEDURE');
513: END IF;
514:
515: -- Setup Gl Interface
516: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

Line 516: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

512: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN GET_BALANCES PROCEDURE');
513: END IF;
514:
515: -- Setup Gl Interface
516: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
517: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CALLING SETUP_GL_INTERFACE PROCEDURE');
518: END IF;
519: Setup_Gl_Interface;
520: IF (vp_retcode <> 0) THEN

Line 517: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CALLING SETUP_GL_INTERFACE PROCEDURE');

513: END IF;
514:
515: -- Setup Gl Interface
516: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
517: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CALLING SETUP_GL_INTERFACE PROCEDURE');
518: END IF;
519: Setup_Gl_Interface;
520: IF (vp_retcode <> 0) THEN
521: RAISE e_error;

Line 558: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,vp_errbuf);

554: EXCEPTION
555: WHEN OTHERS THEN
556: vp_retcode := 2;
557: vp_errbuf := SQLERRM|| ' Open cursor error in Populate_Gl_Interface procedure.';
558: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,vp_errbuf);
559: RAISE e_error;
560: END ;
561:
562: -- Constructing the insert into Gl interface from the select of the query

Line 689: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

685:
686:
687: l_select_stmt := l_insert_stmt || '( ' || l_select_stmt || ')';
688:
689: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
690: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,l_select_stmt);
691: END IF;
692: dbms_sql.parse(c_gl_line_cur, l_select_stmt, DBMS_SQL.V7) ;
693: --dbms_sql.bind_variable(c_gl_line_cur,':vg_currency', vg_currency); -- 5570564

Line 690: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,l_select_stmt);

686:
687: l_select_stmt := l_insert_stmt || '( ' || l_select_stmt || ')';
688:
689: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
690: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,l_select_stmt);
691: END IF;
692: dbms_sql.parse(c_gl_line_cur, l_select_stmt, DBMS_SQL.V7) ;
693: --dbms_sql.bind_variable(c_gl_line_cur,':vg_currency', vg_currency); -- 5570564
694: dbms_sql.bind_variable(c_gl_line_cur,':c_coa', vg_coa_id);

Line 707: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,vp_errbuf);

703: EXCEPTION
704: WHEN OTHERS THEN
705: vp_retcode := 2;
706: vp_errbuf := SQLERRM|| ' Parse cursor error in Get_Balances procedure.';
707: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,vp_errbuf);
708: RAISE e_error;
709: END ;
710:
711: IF dbms_sql.is_open(c_gl_line_cur) THEN

Line 714: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

710:
711: IF dbms_sql.is_open(c_gl_line_cur) THEN
712: dbms_sql.close_cursor(c_gl_line_cur);
713: END IF;
714: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
715: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SUBMITTING JOURNAL IMPORT.');
716: END IF;
717: Submit_Journal_Import;
718: IF (vp_retcode <> 0) THEN

Line 715: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SUBMITTING JOURNAL IMPORT.');

711: IF dbms_sql.is_open(c_gl_line_cur) THEN
712: dbms_sql.close_cursor(c_gl_line_cur);
713: END IF;
714: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
715: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SUBMITTING JOURNAL IMPORT.');
716: END IF;
717: Submit_Journal_Import;
718: IF (vp_retcode <> 0) THEN
719: RAISE e_error;

Line 758: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN

754: l_module_name VARCHAR2(200);
755: BEGIN
756: l_module_name := g_module_name ||
757: 'Setup_Gl_Interface ';
758: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
759: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN SETUP_GL_INTERFACE PROCEDURE....');
760: END IF;
761: -- Get the interface_run_id
762: vg_interface_run_id := Gl_Interface_Control_Pkg.Get_Unique_Run_Id;

Line 759: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN SETUP_GL_INTERFACE PROCEDURE....');

755: BEGIN
756: l_module_name := g_module_name ||
757: 'Setup_Gl_Interface ';
758: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
759: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN SETUP_GL_INTERFACE PROCEDURE....');
760: END IF;
761: -- Get the interface_run_id
762: vg_interface_run_id := Gl_Interface_Control_Pkg.Get_Unique_Run_Id;
763: -- Get the journal group_id

Line 767: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

763: -- Get the journal group_id
764: SELECT Gl_Interface_Control_S.NEXTVAL
765: INTO vg_jrnl_group_id
766: FROM DUAL;
767: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
768: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' INTERFACE RUN ID: '
769: ||TO_CHAR(vg_interface_run_id));
770: END IF;
771: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

Line 768: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' INTERFACE RUN ID: '

764: SELECT Gl_Interface_Control_S.NEXTVAL
765: INTO vg_jrnl_group_id
766: FROM DUAL;
767: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
768: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' INTERFACE RUN ID: '
769: ||TO_CHAR(vg_interface_run_id));
770: END IF;
771: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
772: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' JOURNAL GROUP ID: '

Line 771: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

767: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
768: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' INTERFACE RUN ID: '
769: ||TO_CHAR(vg_interface_run_id));
770: END IF;
771: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
772: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' JOURNAL GROUP ID: '
773: ||TO_CHAR(vg_jrnl_group_id));
774: END IF;
775: --Insert a control record in gl_interface_control for gl_import to work

Line 772: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' JOURNAL GROUP ID: '

768: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' INTERFACE RUN ID: '
769: ||TO_CHAR(vg_interface_run_id));
770: END IF;
771: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
772: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' JOURNAL GROUP ID: '
773: ||TO_CHAR(vg_jrnl_group_id));
774: END IF;
775: --Insert a control record in gl_interface_control for gl_import to work
776: INSERT INTO Gl_Interface_Control

Line 791: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN

787: EXCEPTION
788: WHEN OTHERS THEN
789: vp_retcode := 2;
790: vp_errbuf := SQLERRM || '--Error in Setup_Gl_Interface procedure.';
791: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
792: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name
793: ,vp_errbuf);
794: END IF;
795: RETURN;

Line 792: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name

788: WHEN OTHERS THEN
789: vp_retcode := 2;
790: vp_errbuf := SQLERRM || '--Error in Setup_Gl_Interface procedure.';
791: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
792: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name
793: ,vp_errbuf);
794: END IF;
795: RETURN;
796: END Setup_Gl_Interface;

Line 813: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

809: l_module_name VARCHAR2(200);
810:
811: BEGIN
812: l_module_name := g_module_name || 'Submit_Journal_Import ';
813: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
814: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AFTER INSERTING INTO GL_INTERFACE....');
815: END IF;
816: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
817: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CALLING THE JOURNAL IMPORT PROGRAM....');

Line 814: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AFTER INSERTING INTO GL_INTERFACE....');

810:
811: BEGIN
812: l_module_name := g_module_name || 'Submit_Journal_Import ';
813: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
814: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AFTER INSERTING INTO GL_INTERFACE....');
815: END IF;
816: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
817: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CALLING THE JOURNAL IMPORT PROGRAM....');
818: END IF;

Line 816: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

812: l_module_name := g_module_name || 'Submit_Journal_Import ';
813: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
814: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AFTER INSERTING INTO GL_INTERFACE....');
815: END IF;
816: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
817: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CALLING THE JOURNAL IMPORT PROGRAM....');
818: END IF;
819: -- Submit a Concurrent request to invoke journal import
820: vl_req_id := FND_REQUEST.SUBMIT_REQUEST('SQLGL',

Line 817: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CALLING THE JOURNAL IMPORT PROGRAM....');

813: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
814: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AFTER INSERTING INTO GL_INTERFACE....');
815: END IF;
816: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
817: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CALLING THE JOURNAL IMPORT PROGRAM....');
818: END IF;
819: -- Submit a Concurrent request to invoke journal import
820: vl_req_id := FND_REQUEST.SUBMIT_REQUEST('SQLGL',
821: 'GLLEZL',

Line 828: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

824: FALSE,
825: TO_CHAR(vg_interface_run_id),
826: TO_CHAR(vp_sob_id),
827: 'N', '', '', 'N', 'W');
828: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
829: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' THE REQUEST_ID IS '||VL_REQ_ID);
830: END IF;
831: -- if concurrent request submission failed then abort process
832: IF (vl_req_id = 0) THEN

Line 829: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' THE REQUEST_ID IS '||VL_REQ_ID);

825: TO_CHAR(vg_interface_run_id),
826: TO_CHAR(vp_sob_id),
827: 'N', '', '', 'N', 'W');
828: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
829: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' THE REQUEST_ID IS '||VL_REQ_ID);
830: END IF;
831: -- if concurrent request submission failed then abort process
832: IF (vl_req_id = 0) THEN
833: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

Line 833: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

829: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' THE REQUEST_ID IS '||VL_REQ_ID);
830: END IF;
831: -- if concurrent request submission failed then abort process
832: IF (vl_req_id = 0) THEN
833: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
834: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' JOURNAL IMPORT REQUEST NOT SUBMITTED.');
835: END IF;
836: vp_errbuf := 'Cannot submit journal import program';
837: vp_retcode := 1;

Line 834: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' JOURNAL IMPORT REQUEST NOT SUBMITTED.');

830: END IF;
831: -- if concurrent request submission failed then abort process
832: IF (vl_req_id = 0) THEN
833: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
834: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' JOURNAL IMPORT REQUEST NOT SUBMITTED.');
835: END IF;
836: vp_errbuf := 'Cannot submit journal import program';
837: vp_retcode := 1;
838: ROLLBACK;

Line 841: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

837: vp_retcode := 1;
838: ROLLBACK;
839: RETURN;
840: ELSE
841: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
842: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' JOURNAL IMPORT REQUEST SUBMITTED '||
843: 'successfully.');
844: END IF;
845: COMMIT;

Line 842: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' JOURNAL IMPORT REQUEST SUBMITTED '||

838: ROLLBACK;
839: RETURN;
840: ELSE
841: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
842: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' JOURNAL IMPORT REQUEST SUBMITTED '||
843: 'successfully.');
844: END IF;
845: COMMIT;
846: END IF;

Line 861: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN

857: EXCEPTION
858: WHEN OTHERS THEN
859: vp_retcode := 2;
860: vp_errbuf := SQLERRM || '--Error in Submit_Journal_Import procedure.';
861: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
862: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name
863: ,vp_errbuf);
864: END IF;
865: RETURN;

Line 862: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name

858: WHEN OTHERS THEN
859: vp_retcode := 2;
860: vp_errbuf := SQLERRM || '--Error in Submit_Journal_Import procedure.';
861: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
862: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name
863: ,vp_errbuf);
864: END IF;
865: RETURN;
866: END Submit_Journal_Import;

Line 878: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN

874: PROCEDURE Cleanup_Gl_Interface IS
875: l_module_name VARCHAR2(200) ;
876: BEGIN
877: l_module_name := g_module_name || 'Cleanup_Gl_Interface';
878: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
879: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE CLEANUP_GL_INTERFACE PROCEDURE....');
880: END IF;
881: -- Delete from Gl_Interface table
882: DELETE FROM Gl_Interface

Line 879: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE CLEANUP_GL_INTERFACE PROCEDURE....');

875: l_module_name VARCHAR2(200) ;
876: BEGIN
877: l_module_name := g_module_name || 'Cleanup_Gl_Interface';
878: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
879: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE CLEANUP_GL_INTERFACE PROCEDURE....');
880: END IF;
881: -- Delete from Gl_Interface table
882: DELETE FROM Gl_Interface
883: WHERE user_je_source_name = 'Year End Close'

Line 890: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN

886: EXCEPTION
887: WHEN OTHERS THEN
888: vp_retcode := 2;
889: vp_errbuf := SQLERRM || '-- Error in Cleanup_Gl_Interface procedure.';
890: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
891: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name
892: ,vp_errbuf);
893: END IF;
894: RETURN;

Line 891: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name

887: WHEN OTHERS THEN
888: vp_retcode := 2;
889: vp_errbuf := SQLERRM || '-- Error in Cleanup_Gl_Interface procedure.';
890: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
891: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name
892: ,vp_errbuf);
893: END IF;
894: RETURN;
895: END Cleanup_Gl_Interface;

Line 940: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

936: IF Vp_bal_seg_val_opt_code <> 'I' THEN
937: RETURN 'Y';
938: END IF;
939:
940: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
941: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
942: l_module_name,
943: ' IN CHECK_BAL_SEG_VALUE PROCEDURE '||
944: 'with the following Parameters passed to the process:');

Line 941: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,

937: RETURN 'Y';
938: END IF;
939:
940: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
941: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
942: l_module_name,
943: ' IN CHECK_BAL_SEG_VALUE PROCEDURE '||
944: 'with the following Parameters passed to the process:');
945: END IF;

Line 946: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

942: l_module_name,
943: ' IN CHECK_BAL_SEG_VALUE PROCEDURE '||
944: 'with the following Parameters passed to the process:');
945: END IF;
946: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
947: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
948: l_module_name,
949: ' FUND VALUE= '||VP_FUND_VALUE);
950: END IF;

Line 947: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,

943: ' IN CHECK_BAL_SEG_VALUE PROCEDURE '||
944: 'with the following Parameters passed to the process:');
945: END IF;
946: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
947: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
948: l_module_name,
949: ' FUND VALUE= '||VP_FUND_VALUE);
950: END IF;
951:

Line 976: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

972: WHEN OTHERS THEN
973: vp_retcode := 2 ;
974: vp_errbuf := SQLERRM ||
975: ' -- Error in Check Check_bal_seg_value procedure.' ;
976: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
977: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED,
978: l_module_name,
979: 'When Others Exception ' || vp_errbuf );
980: END IF;

Line 977: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED,

973: vp_retcode := 2 ;
974: vp_errbuf := SQLERRM ||
975: ' -- Error in Check Check_bal_seg_value procedure.' ;
976: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
977: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED,
978: l_module_name,
979: 'When Others Exception ' || vp_errbuf );
980: END IF;
981: RETURN 'N';