[Home] [Help]
122: l_module_name := g_module_name || 'Main ';
123:
124: vg_sob_id := LEDGER_ID;
125:
126: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
127: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'START YEAR END CLOSING PROCESS.....');
128: END IF;
129:
130: -- Assign initial values
123:
124: vg_sob_id := LEDGER_ID;
125:
126: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
127: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'START YEAR END CLOSING PROCESS.....');
128: END IF;
129:
130: -- Assign initial values
131: vp_retcode := 0;
147: and set_of_books_id = vg_sob_id
148: and period_name = closing_period
149: and period_year = closing_fyr;
150:
151: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
152: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'THE PARAMETERS PASSED TO THE YEAR END CLOSING PROCESS ARE: '||
153: 'Post to GL = '||vp_post_to_gl);
154: END IF;
155: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
148: and period_name = closing_period
149: and period_year = closing_fyr;
150:
151: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
152: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'THE PARAMETERS PASSED TO THE YEAR END CLOSING PROCESS ARE: '||
153: 'Post to GL = '||vp_post_to_gl);
154: END IF;
155: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
156: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CLOSING METHOD = ' ||vp_closing_method ||'TIME FRAME = '||VP_TIMEFRAME||
151: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
152: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'THE PARAMETERS PASSED TO THE YEAR END CLOSING PROCESS ARE: '||
153: 'Post to GL = '||vp_post_to_gl);
154: END IF;
155: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
156: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CLOSING METHOD = ' ||vp_closing_method ||'TIME FRAME = '||VP_TIMEFRAME||
157: ', Fund Group = '||vp_fundgroup);
158: END IF;
159: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
152: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'THE PARAMETERS PASSED TO THE YEAR END CLOSING PROCESS ARE: '||
153: 'Post to GL = '||vp_post_to_gl);
154: END IF;
155: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
156: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CLOSING METHOD = ' ||vp_closing_method ||'TIME FRAME = '||VP_TIMEFRAME||
157: ', Fund Group = '||vp_fundgroup);
158: END IF;
159: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
160: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TREASURY SYMBOL = '||VP_TRSYMBOL||
155: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
156: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CLOSING METHOD = ' ||vp_closing_method ||'TIME FRAME = '||VP_TIMEFRAME||
157: ', Fund Group = '||vp_fundgroup);
158: END IF;
159: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
160: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TREASURY SYMBOL = '||VP_TRSYMBOL||
161: ', Closing Fiscal Year = '||TO_CHAR(vp_closing_fyr));
162: END IF;
163:
156: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CLOSING METHOD = ' ||vp_closing_method ||'TIME FRAME = '||VP_TIMEFRAME||
157: ', Fund Group = '||vp_fundgroup);
158: END IF;
159: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
160: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TREASURY SYMBOL = '||VP_TRSYMBOL||
161: ', Closing Fiscal Year = '||TO_CHAR(vp_closing_fyr));
162: END IF;
163:
164: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
160: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TREASURY SYMBOL = '||VP_TRSYMBOL||
161: ', Closing Fiscal Year = '||TO_CHAR(vp_closing_fyr));
162: END IF;
163:
164: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
165: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TREASURY SYMBOL = '||VP_TRSYMBOL||
166: ', Closing Period Number = '||TO_CHAR(vp_closing_num));
167: END IF;
168:
161: ', Closing Fiscal Year = '||TO_CHAR(vp_closing_fyr));
162: END IF;
163:
164: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
165: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TREASURY SYMBOL = '||VP_TRSYMBOL||
166: ', Closing Period Number = '||TO_CHAR(vp_closing_num));
167: END IF;
168:
169: -- Get the Sob, Coa and Currency Code
166: ', Closing Period Number = '||TO_CHAR(vp_closing_num));
167: END IF;
168:
169: -- Get the Sob, Coa and Currency Code
170: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
171: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'GETTING THE SET OF BOOKS,CHART OF ACCOUNTS AND CURRENCY CODE');
172: END IF;
173: Get_Required_Parameters;
174:
167: END IF;
168:
169: -- Get the Sob, Coa and Currency Code
170: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
171: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'GETTING THE SET OF BOOKS,CHART OF ACCOUNTS AND CURRENCY CODE');
172: END IF;
173: Get_Required_Parameters;
174:
175: IF (vp_retcode = 0) THEN
173: Get_Required_Parameters;
174:
175: IF (vp_retcode = 0) THEN
176: -- Get the Start Date, End Date and Last Period for the Closing Fyr
177: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
178: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'GETTING THE START DATE, END DATE AND LAST PERIOD '||
179: 'of the Closing Fiscal Year');
180: END IF;
181: Get_Closing_Fyr_Details;
174:
175: IF (vp_retcode = 0) THEN
176: -- Get the Start Date, End Date and Last Period for the Closing Fyr
177: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
178: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'GETTING THE START DATE, END DATE AND LAST PERIOD '||
179: 'of the Closing Fiscal Year');
180: END IF;
181: Get_Closing_Fyr_Details;
182: END IF;
182: END IF;
183:
184: IF (vp_retcode = 0) THEN
185: -- Check if Dynamic Insertion is on
186: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
187: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CHECKING IF DYNAMIC INSERTION IS ON.');
188: END IF;
189: Chk_Dynamic_Insertion;
190: END IF;
183:
184: IF (vp_retcode = 0) THEN
185: -- Check if Dynamic Insertion is on
186: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
187: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CHECKING IF DYNAMIC INSERTION IS ON.');
188: END IF;
189: Chk_Dynamic_Insertion;
190: END IF;
191:
190: END IF;
191:
192: IF (vp_retcode = 0) THEN
193: -- Get the balancing and the natural account segments
194: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
195: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'GETTING THE BALANCING AND THE NATURAL ACCOUNT SEGMENTS.');
196: END IF;
197: Get_Balance_Account_Segments;
198: END IF;
191:
192: IF (vp_retcode = 0) THEN
193: -- Get the balancing and the natural account segments
194: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
195: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'GETTING THE BALANCING AND THE NATURAL ACCOUNT SEGMENTS.');
196: END IF;
197: Get_Balance_Account_Segments;
198: END IF;
199:
198: END IF;
199:
200: IF (vp_retcode = 0) THEN
201: -- Check if there are any parent account values for the To Account
202: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
203: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CHECKING THE TO ACCOUNT VALUES IN THE SETUP FORM.....');
204: END IF;
205: Chk_To_Accounts;
206: END IF;
199:
200: IF (vp_retcode = 0) THEN
201: -- Check if there are any parent account values for the To Account
202: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
203: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CHECKING THE TO ACCOUNT VALUES IN THE SETUP FORM.....');
204: END IF;
205: Chk_To_Accounts;
206: END IF;
207:
206: END IF;
207:
208: IF (vp_retcode = 0) THEN
209: -- Purging the Fv_Ye_Seq_Bal_Temp Table
210: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
211: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PURGING THE FV_YE_SEQ_BAL_TEMP TABLE.');
212: END IF;
213: Purge_Bal_Temp_Table;
214: END IF;
207:
208: IF (vp_retcode = 0) THEN
209: -- Purging the Fv_Ye_Seq_Bal_Temp Table
210: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
211: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PURGING THE FV_YE_SEQ_BAL_TEMP TABLE.');
212: END IF;
213: Purge_Bal_Temp_Table;
214: END IF;
215:
214: END IF;
215:
216: IF (vp_retcode = 0) THEN
217: -- Checking for the Year End Parameters
218: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
219: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CHECKING FOR THE YEAR END PARAMETERS.');
220: END IF;
221: Check_Year_End_Parameters;
222: END IF;
215:
216: IF (vp_retcode = 0) THEN
217: -- Checking for the Year End Parameters
218: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
219: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CHECKING FOR THE YEAR END PARAMETERS.');
220: END IF;
221: Check_Year_End_Parameters;
222: END IF;
223:
222: END IF;
223:
224: IF (vp_retcode = 0) THEN
225: -- Checking for the data in GL
226: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
227: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CHECKING FOR THE DATA IN General Ledger.');
228: END IF;
229: Check_Gl_Data;
230: END IF;
223:
224: IF (vp_retcode = 0) THEN
225: -- Checking for the data in GL
226: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
227: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CHECKING FOR THE DATA IN General Ledger.');
228: END IF;
229: Check_Gl_Data;
230: END IF;
231:
232: IF (vp_retcode = 0) THEN
233: if (vp_mode='F' ) then
234: -- Populating the GL_Interface table when MODE is F
235: -- Process D
236: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
237: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'POPULATING THE GL_INTERFACE TABLE .');
238: END IF;
239: Populate_Gl_Interface;
240: END IF;
233: if (vp_mode='F' ) then
234: -- Populating the GL_Interface table when MODE is F
235: -- Process D
236: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
237: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'POPULATING THE GL_INTERFACE TABLE .');
238: END IF;
239: Populate_Gl_Interface;
240: END IF;
241: END IF;
241: END IF;
242:
243: IF (vp_retcode = 0) THEN
244: -- Submitting the Execution Report
245: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
246: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'SUBMITTING THE EXECUTION REPORT.');
247: END IF;
248: Submit_Report;
249: END IF;
242:
243: IF (vp_retcode = 0) THEN
244: -- Submitting the Execution Report
245: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
246: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'SUBMITTING THE EXECUTION REPORT.');
247: END IF;
248: Submit_Report;
249: END IF;
250:
260: THEN
261: retcode := 1;
262: errbuf := 'Year End Closing Process completed with warning because the Public Law, Advance,
263: AND Transfer attribute COLUMNS are NOT established ON Define SYSTEM Parameters FORM.';
264: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,'Year End Closing Process completed with warning because the Public Law, Advance,
265: AND Transfer attribute COLUMNS are NOT established ON Define SYSTEM Parameters FORM.');
266: ELSE
267: retcode := 0;
268: errbuf := '** Year End Closing Process completed successfully **';
269: END IF;
270: COMMIT;
271: END IF;
272:
273: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
274: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENDING THE YEAR END CLOSING PROCESS ......');
275: END IF;
276:
277: EXCEPTION
270: COMMIT;
271: END IF;
272:
273: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
274: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENDING THE YEAR END CLOSING PROCESS ......');
275: END IF;
276:
277: EXCEPTION
278: WHEN OTHERS THEN
278: WHEN OTHERS THEN
279: ROLLBACK;
280: errbuf := '** Year End Closing Process Failed ** '||SQLERRM;
281: retcode := 2;
282: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
283: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
284: 'When Others Exception ' || errbuf );
285: END IF;
286:
279: ROLLBACK;
280: errbuf := '** Year End Closing Process Failed ** '||SQLERRM;
281: retcode := 2;
282: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
283: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
284: 'When Others Exception ' || errbuf );
285: END IF;
286:
287: END Main;
300: ' Get_Required_Parameters';
301:
302: -- Get the Sob
303: /* vg_sob_id := TO_NUMBER(Fnd_Profile.Value('GL_SET_OF_BKS_ID'));
304: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
305: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SET OF BOOKS ID = '||TO_CHAR(VG_SOB_ID));
306: END IF;
307:
308: -- Get the Coa
301:
302: -- Get the Sob
303: /* vg_sob_id := TO_NUMBER(Fnd_Profile.Value('GL_SET_OF_BKS_ID'));
304: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
305: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SET OF BOOKS ID = '||TO_CHAR(VG_SOB_ID));
306: END IF;
307:
308: -- Get the Coa
309: vg_coa_id := Sys_Context('FV_CONTEXT','CHART_OF_ACCOUNTS_ID');
306: END IF;
307:
308: -- Get the Coa
309: vg_coa_id := Sys_Context('FV_CONTEXT','CHART_OF_ACCOUNTS_ID');
310: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
311: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CHART OF ACCOUNTS ID = '||TO_CHAR(VG_COA_ID));
312: END IF;
313:
314: -- Get the Currency code
307:
308: -- Get the Coa
309: vg_coa_id := Sys_Context('FV_CONTEXT','CHART_OF_ACCOUNTS_ID');
310: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
311: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CHART OF ACCOUNTS ID = '||TO_CHAR(VG_COA_ID));
312: END IF;
313:
314: -- Get the Currency code
315: BEGIN
317: INTO vg_currency
318: FROM gl_sets_of_books
319: WHERE set_of_books_id = vg_sob_id;
320:
321: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
322: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CURRENCY CODE = '||VG_CURRENCY);
323: END IF;
324: EXCEPTION
325: WHEN NO_DATA_FOUND THEN
318: FROM gl_sets_of_books
319: WHERE set_of_books_id = vg_sob_id;
320:
321: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
322: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CURRENCY CODE = '||VG_CURRENCY);
323: END IF;
324: EXCEPTION
325: WHEN NO_DATA_FOUND THEN
326: vp_errbuf := 'Error in Get_Required_Parameters:'||
344: FROM gl_ledgers_public_v
345: WHERE ledger_id = vg_sob_id;
346:
347:
348: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
349: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
350: l_module_name,
351: ' CHART OF ACCOUNTS ID = '||TO_CHAR(VG_COA_ID));
352: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
345: WHERE ledger_id = vg_sob_id;
346:
347:
348: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
349: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
350: l_module_name,
351: ' CHART OF ACCOUNTS ID = '||TO_CHAR(VG_COA_ID));
352: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
353: l_module_name,
348: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
349: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
350: l_module_name,
351: ' CHART OF ACCOUNTS ID = '||TO_CHAR(VG_COA_ID));
352: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
353: l_module_name,
354: ' CURRENCY CODE = '||VG_CURRENCY);
355: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
356: l_module_name,
351: ' CHART OF ACCOUNTS ID = '||TO_CHAR(VG_COA_ID));
352: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
353: l_module_name,
354: ' CURRENCY CODE = '||VG_CURRENCY);
355: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
356: l_module_name,
357: ' BALANCE SEGMENT OPTION CODE = '|| vg_bal_seg_val_opt_code);
358: END IF;
359: EXCEPTION
379: vg_trf_main_acct_attribute
380: FROM Fv_System_Parameters;
381:
382: IF (vg_factsi_attribute IS NULL) THEN
383: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
384: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BALANCES WILL NOT BE CLOSED BY '||
385:
386: 'the FACTS I F/N and trading partner attributes since the '||
387: 'FACTS I Journal Trading Partner field is not populated in '||
380: FROM Fv_System_Parameters;
381:
382: IF (vg_factsi_attribute IS NULL) THEN
383: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
384: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BALANCES WILL NOT BE CLOSED BY '||
385:
386: 'the FACTS I F/N and trading partner attributes since the '||
387: 'FACTS I Journal Trading Partner field is not populated in '||
388: 'the Define Federal System Parameters window.');
386: 'the FACTS I F/N and trading partner attributes since the '||
387: 'FACTS I Journal Trading Partner field is not populated in '||
388: 'the Define Federal System Parameters window.');
389: END IF;
390: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
391: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TO CLOSE BY FACTS I F/N AND '||
392: 'trading partner attributes, delete the journal entries '||
393: 'created by this process, if any, enter the attribute in '||
394: 'the FACTS I Journal Trading Partner field of the Define '||
387: 'FACTS I Journal Trading Partner field is not populated in '||
388: 'the Define Federal System Parameters window.');
389: END IF;
390: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
391: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TO CLOSE BY FACTS I F/N AND '||
392: 'trading partner attributes, delete the journal entries '||
393: 'created by this process, if any, enter the attribute in '||
394: 'the FACTS I Journal Trading Partner field of the Define '||
395: 'Federal System Parameters window, and rerun the Year End '||
396: 'Close Program.');
397: END IF;
398: vg_factsi_attr_exists := 'N';
399: ELSE
400: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
401: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FACTS I JOURNAL TRADING PARTNER ATTRIBUTE IS '||
402:
403: vg_factsi_attribute);
404: END IF;
397: END IF;
398: vg_factsi_attr_exists := 'N';
399: ELSE
400: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
401: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FACTS I JOURNAL TRADING PARTNER ATTRIBUTE IS '||
402:
403: vg_factsi_attribute);
404: END IF;
405: vg_factsi_attr_exists := 'Y';
427: EXCEPTION
428: WHEN OTHERS THEN
429: vp_retcode := 2 ;
430: vp_errbuf := SQLERRM||' -- Error in Get_Required_Parameters procedure.' ;
431: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
432: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
433: 'When Others Exception ' || vp_errbuf );
434: END IF;
435: RETURN ;
428: WHEN OTHERS THEN
429: vp_retcode := 2 ;
430: vp_errbuf := SQLERRM||' -- Error in Get_Required_Parameters procedure.' ;
431: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
432: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
433: 'When Others Exception ' || vp_errbuf );
434: END IF;
435: RETURN ;
436: END Get_Required_Parameters;
462: AND gsob.chart_of_accounts_id = vg_coa_id
463: AND gsob.set_of_books_id = vg_sob_id
464: and glp.period_num = vp_closing_num;
465:
466: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
467: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' START DATE OF THE CLOSING FISCAL YEAR = '
468: ||TO_CHAR(vg_start_date));
469: END IF;
470: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
463: AND gsob.set_of_books_id = vg_sob_id
464: and glp.period_num = vp_closing_num;
465:
466: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
467: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' START DATE OF THE CLOSING FISCAL YEAR = '
468: ||TO_CHAR(vg_start_date));
469: END IF;
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,' END DATE OF THE CLOSING FISCAL YEAR = '
466: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
467: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' START DATE OF THE CLOSING FISCAL YEAR = '
468: ||TO_CHAR(vg_start_date));
469: END IF;
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,' END DATE OF THE CLOSING FISCAL YEAR = '
472: ||TO_CHAR(vg_end_date));
473: END IF;
474: vg_closing_period_num := vp_closing_num;
467: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' START DATE OF THE CLOSING FISCAL YEAR = '
468: ||TO_CHAR(vg_start_date));
469: END IF;
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,' END DATE OF THE CLOSING FISCAL YEAR = '
472: ||TO_CHAR(vg_end_date));
473: END IF;
474: vg_closing_period_num := vp_closing_num;
475:
491: AND fiscal_year = vp_closing_fyr
492: and period_num = vp_closing_num;
493:
494: IF (vg_factsi_bal_cnt = 0) THEN
495: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
496: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BALANCES WILL NOT BE CLOSED BY '||
497: 'the FACTS I F/N and trading partner attributes since there '||
498: 'are no balances in Fv_Facts1_Run table for '||
499: 'the period '||vg_closing_period);
492: and period_num = vp_closing_num;
493:
494: IF (vg_factsi_bal_cnt = 0) THEN
495: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
496: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BALANCES WILL NOT BE CLOSED BY '||
497: 'the FACTS I F/N and trading partner attributes since there '||
498: 'are no balances in Fv_Facts1_Run table for '||
499: 'the period '||vg_closing_period);
500: END IF;
497: 'the FACTS I F/N and trading partner attributes since there '||
498: 'are no balances in Fv_Facts1_Run table for '||
499: 'the period '||vg_closing_period);
500: END IF;
501: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
502: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TO CLOSE BY FACTS I F/N AND '||
503: 'trading partner attributes, delete the journal entries '||
504: 'created by this process, if any, run the FACTS I Interface '||
505: 'program with all edit checks passed by period '||
498: 'are no balances in Fv_Facts1_Run table for '||
499: 'the period '||vg_closing_period);
500: END IF;
501: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
502: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TO CLOSE BY FACTS I F/N AND '||
503: 'trading partner attributes, delete the journal entries '||
504: 'created by this process, if any, run the FACTS I Interface '||
505: 'program with all edit checks passed by period '||
506: vg_closing_period||' and rerun the Year End Close Program.');
505: 'program with all edit checks passed by period '||
506: vg_closing_period||' and rerun the Year End Close Program.');
507: END IF;
508: ELSE
509: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
510: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BALANCES MAY EXIST FOR FACTS I '||
511: 'for the period '||vg_closing_period);
512: END IF;
513: END IF;
506: vg_closing_period||' and rerun the Year End Close Program.');
507: END IF;
508: ELSE
509: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
510: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BALANCES MAY EXIST FOR FACTS I '||
511: 'for the period '||vg_closing_period);
512: END IF;
513: END IF;
514: EXCEPTION
519: END;
520: EXCEPTION
521: WHEN OTHERS THEN
522: vp_errbuf := SQLERRM;
523: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
524: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
525: 'When Others Exception ' || vp_errbuf );
526: END IF;
527: RAISE;
520: EXCEPTION
521: WHEN OTHERS THEN
522: vp_errbuf := SQLERRM;
523: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
524: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
525: 'When Others Exception ' || vp_errbuf );
526: END IF;
527: RAISE;
528:
561: RETURN;
562: WHEN OTHERS THEN
563: vp_retcode := 2;
564: vp_errbuf := SQLERRM ||' -- Error in Chk_Dyanmic_Insertionprocedure.';
565: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
566: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
567: 'When Others Exception ' || vp_errbuf );
568: END IF;
569: RETURN;
562: WHEN OTHERS THEN
563: vp_retcode := 2;
564: vp_errbuf := SQLERRM ||' -- Error in Chk_Dyanmic_Insertionprocedure.';
565: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
566: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
567: 'When Others Exception ' || vp_errbuf );
568: END IF;
569: RETURN;
570: END Chk_Dynamic_Insertion;
603: );
604:
605: IF (vl_errcode) THEN
606: vp_retcode := 2 ;
607: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
608: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
609: 'Call fv_utility.get_segment_col_names' || vp_errbuf );
610: END IF;
611: RETURN;
604:
605: IF (vl_errcode) THEN
606: vp_retcode := 2 ;
607: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
608: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
609: 'Call fv_utility.get_segment_col_names' || vp_errbuf );
610: END IF;
611: RETURN;
612: END IF;
610: END IF;
611: RETURN;
612: END IF;
613:
614: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
615: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BALANCING SEGMENT IS '||VG_BAL_SEGMENT);
616: END IF;
617: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
618: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NATURAL ACCOUNTING SEGMENT IS '||VG_ACCT_SEGMENT);
611: RETURN;
612: END IF;
613:
614: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
615: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BALANCING SEGMENT IS '||VG_BAL_SEGMENT);
616: END IF;
617: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
618: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NATURAL ACCOUNTING SEGMENT IS '||VG_ACCT_SEGMENT);
619: END IF;
613:
614: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
615: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BALANCING SEGMENT IS '||VG_BAL_SEGMENT);
616: END IF;
617: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
618: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NATURAL ACCOUNTING SEGMENT IS '||VG_ACCT_SEGMENT);
619: END IF;
620:
621: -- Get the Account segment number
614: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
615: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BALANCING SEGMENT IS '||VG_BAL_SEGMENT);
616: END IF;
617: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
618: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NATURAL ACCOUNTING SEGMENT IS '||VG_ACCT_SEGMENT);
619: END IF;
620:
621: -- Get the Account segment number
622: FOR flex_fields_rec IN flex_fields
632: END LOOP;
633:
634: vg_acct_segnum := vl_acct_segnum;
635:
636: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
637: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NATURAL ACCOUNTING SEGMENT NUMBER IS ' ||TO_CHAR(vg_acct_segnum));
638: END IF;
639:
640: -- Get the Account Flex Value set ID
633:
634: vg_acct_segnum := vl_acct_segnum;
635:
636: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
637: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NATURAL ACCOUNTING SEGMENT NUMBER IS ' ||TO_CHAR(vg_acct_segnum));
638: END IF;
639:
640: -- Get the Account Flex Value set ID
641: BEGIN
655: -- 'procedure,while getting the Account Flex Value Set Id .';
656: RETURN ;
657:
658: END;
659: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
660: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCOUNT FLEX VALUE SET ID IS ' ||TO_CHAR(vg_acct_val_set_id));
661: END IF;
662:
663: -- Get the Number of segments in the chart of accounts
656: RETURN ;
657:
658: END;
659: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
660: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCOUNT FLEX VALUE SET ID IS ' ||TO_CHAR(vg_acct_val_set_id));
661: END IF;
662:
663: -- Get the Number of segments in the chart of accounts
664: BEGIN
675: vp_errbuf := SQLERRM ||' -- Error in Get_Balance_Account_Segments '||
676: 'procedure,while getting the number of segments .';
677: RETURN ;
678: END;
679: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
680: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NUMBER OF SEGMENTS ARE ' ||TO_CHAR(vg_num_segs));
681: END IF;
682: EXCEPTION
683: WHEN OTHERS THEN
676: 'procedure,while getting the number of segments .';
677: RETURN ;
678: END;
679: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
680: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NUMBER OF SEGMENTS ARE ' ||TO_CHAR(vg_num_segs));
681: END IF;
682: EXCEPTION
683: WHEN OTHERS THEN
684: vp_retcode := 2 ;
683: WHEN OTHERS THEN
684: vp_retcode := 2 ;
685: vp_errbuf := SQLERRM ||' -- Error in Get_Balance_Account_Segments
686: PROCEDURE.' ;
687: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
688: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
689: 'When Others Exception ' || vp_errbuf );
690: END IF;
691:
684: vp_retcode := 2 ;
685: vp_errbuf := SQLERRM ||' -- Error in Get_Balance_Account_Segments
686: PROCEDURE.' ;
687: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
688: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
689: 'When Others Exception ' || vp_errbuf );
690: END IF;
691:
692: RETURN ;
722: l_module_name := g_module_name || ' Chk_To_Accounts ';
723: vl_parent_flag := 'N';
724:
725:
726: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
727: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN CHK_TO_ACCOUNTS PROCEDURE');
728: END IF;
729:
730: FOR vc_getaccts IN get_toaccts_cur LOOP
723: vl_parent_flag := 'N';
724:
725:
726: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
727: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN CHK_TO_ACCOUNTS PROCEDURE');
728: END IF;
729:
730: FOR vc_getaccts IN get_toaccts_cur LOOP
731: vl_acct := vc_getaccts.to_account;
743: EXCEPTION
744: WHEN OTHERS THEN
745: vp_retcode := 2 ;
746: vp_errbuf := SQLERRM ||' -- Error in Chk_To_Accounts procedure.' ;
747: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
748: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
749: 'When Others Exception ' || vp_errbuf );
750: END IF;
751: RETURN ;
744: WHEN OTHERS THEN
745: vp_retcode := 2 ;
746: vp_errbuf := SQLERRM ||' -- Error in Chk_To_Accounts procedure.' ;
747: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
748: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
749: 'When Others Exception ' || vp_errbuf );
750: END IF;
751: RETURN ;
752: END Chk_To_Accounts;
769: EXCEPTION
770: WHEN OTHERS THEN
771: vp_retcode := 2 ;
772: vp_errbuf := SQLERRM ||' -- Error in Purge_Bal_Temp_Table procedure.' ;
773: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
774: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
775: 'When Others Exception ' || vp_errbuf );
776: END IF;
777:
770: WHEN OTHERS THEN
771: vp_retcode := 2 ;
772: vp_errbuf := SQLERRM ||' -- Error in Purge_Bal_Temp_Table procedure.' ;
773: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
774: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
775: 'When Others Exception ' || vp_errbuf );
776: END IF;
777:
778: RETURN ;
811:
812: WHEN OTHERS THEN
813: vp_retcode := 2 ;
814: vp_errbuf := SQLERRM ||' -- Error in Check_Gl_Date procedure.' ;
815: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
816: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
817: 'When Others Exception ' || vp_errbuf );
818: END IF;
819: RETURN ;
812: WHEN OTHERS THEN
813: vp_retcode := 2 ;
814: vp_errbuf := SQLERRM ||' -- Error in Check_Gl_Date procedure.' ;
815: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
816: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
817: 'When Others Exception ' || vp_errbuf );
818: END IF;
819: RETURN ;
820: END Check_Gl_Data;
848: vl_rec_found_flag := 'N';
849:
850:
851:
852: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
853: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN CHECK_YEAR_END_PARAMETERS PROCEDURE '||
854: 'with the following Parameters passed to the process:');
855: END IF;
856: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
849:
850:
851:
852: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
853: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN CHECK_YEAR_END_PARAMETERS PROCEDURE '||
854: 'with the following Parameters passed to the process:');
855: END IF;
856: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
857: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CLOSING_METHOD = '|| vp_closing_method ||' TREASURY SYMBOL = '||VP_TRSYMBOL||
852: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
853: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN CHECK_YEAR_END_PARAMETERS PROCEDURE '||
854: 'with the following Parameters passed to the process:');
855: END IF;
856: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
857: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CLOSING_METHOD = '|| vp_closing_method ||' TREASURY SYMBOL = '||VP_TRSYMBOL||
858: ', Fund Group Code = '||vp_fundgroup||
859: ', Time Frame = '||vp_timeframe);
860: END IF;
853: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN CHECK_YEAR_END_PARAMETERS PROCEDURE '||
854: 'with the following Parameters passed to the process:');
855: END IF;
856: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
857: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CLOSING_METHOD = '|| vp_closing_method ||' TREASURY SYMBOL = '||VP_TRSYMBOL||
858: ', Fund Group Code = '||vp_fundgroup||
859: ', Time Frame = '||vp_timeframe);
860: END IF;
861:
868: vg_end_date ) ;
869:
870:
871: IF (vp_trsymbol IS NOT NULL ) THEN
872: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
873: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASE1: WHEN TREASURY SYMBOL PARAMETER IS PROVIDED.');
874: END IF;
875:
876: OPEN vc_checkpara FOR
869:
870:
871: IF (vp_trsymbol IS NOT NULL ) THEN
872: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
873: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASE1: WHEN TREASURY SYMBOL PARAMETER IS PROVIDED.');
874: END IF;
875:
876: OPEN vc_checkpara FOR
877: 'SELECT time_frame,fund_group_code,
907:
908: CLOSE vc_checkpara;
909:
910: ELSIF (vp_fundgroup IS NOT NULL) THEN -- vp_trsymbol
911: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
912: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASE2: WHEN FUND GROUP CODE PARAMETER IS PROVIDED.');
913: END IF;
914:
915: -- IF timeframe is one year, then only the treasury symbols which are
908: CLOSE vc_checkpara;
909:
910: ELSIF (vp_fundgroup IS NOT NULL) THEN -- vp_trsymbol
911: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
912: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASE2: WHEN FUND GROUP CODE PARAMETER IS PROVIDED.');
913: END IF;
914:
915: -- IF timeframe is one year, then only the treasury symbols which are
916: -- either expired or cancelled are selected for processsing. For multi-year
950: ORDER BY treasury_symbol'
951: USING vg_sob_id,vp_timeframe,vp_fundgroup;
952: END IF; -- timeframe 1
953: ELSE -- vp_trsymbol
954: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
955: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASE3: WHEN ONLY THE TIME FRAME PARAMETER IS PROVIDED.');
956: END IF;
957:
958: -- IF timeframe is one year, then only the treasury symbols which are
951: USING vg_sob_id,vp_timeframe,vp_fundgroup;
952: END IF; -- timeframe 1
953: ELSE -- vp_trsymbol
954: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
955: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASE3: WHEN ONLY THE TIME FRAME PARAMETER IS PROVIDED.');
956: END IF;
957:
958: -- IF timeframe is one year, then only the treasury symbols which are
959: -- either expired or cancelled are selected for processsing. For multi-year
1048:
1049: WHEN OTHERS THEN
1050: vp_retcode := 2 ;
1051: vp_errbuf := SQLERRM ||' -- Error in Check_Year_End_Parameters procedure.' ;
1052: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1053: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
1054: 'When Others Exception ' || vp_errbuf );
1055: END IF;
1056:
1049: WHEN OTHERS THEN
1050: vp_retcode := 2 ;
1051: vp_errbuf := SQLERRM ||' -- Error in Check_Year_End_Parameters procedure.' ;
1052: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1053: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
1054: 'When Others Exception ' || vp_errbuf );
1055: END IF;
1056:
1057: RETURN ;
1084:
1085:
1086:
1087:
1088: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1089: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ******************************************************');
1090: END IF;
1091: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1092: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN GET_YEAR_END_RECORD PROCEDURE,'||
1085:
1086:
1087:
1088: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1089: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ******************************************************');
1090: END IF;
1091: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1092: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN GET_YEAR_END_RECORD PROCEDURE,'||
1093:
1087:
1088: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1089: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ******************************************************');
1090: END IF;
1091: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1092: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN GET_YEAR_END_RECORD PROCEDURE,'||
1093:
1094: 'processing the following:');
1095: END IF;
1088: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1089: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ******************************************************');
1090: END IF;
1091: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1092: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN GET_YEAR_END_RECORD PROCEDURE,'||
1093:
1094: 'processing the following:');
1095: END IF;
1096: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1092: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN GET_YEAR_END_RECORD PROCEDURE,'||
1093:
1094: 'processing the following:');
1095: END IF;
1096: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1097: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TREASURY SYMBOL: '||TRSYMBOL||' FUND GROUP: '||
1098:
1099: fundgroup||' Time Frame: '||timeframe);
1100: END IF;
1093:
1094: 'processing the following:');
1095: END IF;
1096: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1097: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TREASURY SYMBOL: '||TRSYMBOL||' FUND GROUP: '||
1098:
1099: fundgroup||' Time Frame: '||timeframe);
1100: END IF;
1101:
1107: -- Get the Treasury Symbol ID
1108: OPEN get_trsymid_cur;
1109: FETCH get_trsymid_cur INTO vg_trsymbol_id;
1110: CLOSE get_trsymid_cur;
1111: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1112: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING THE TREASURY_SYMBOL_ID '||
1113: TO_CHAR(vg_trsymbol_id));
1114: END IF;
1115:
1108: OPEN get_trsymid_cur;
1109: FETCH get_trsymid_cur INTO vg_trsymbol_id;
1110: CLOSE get_trsymid_cur;
1111: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1112: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING THE TREASURY_SYMBOL_ID '||
1113: TO_CHAR(vg_trsymbol_id));
1114: END IF;
1115:
1116: OPEN vc_groupid FOR
1125:
1126: FETCH vc_groupid INTO vg_group_id;
1127:
1128: IF vc_groupid%FOUND THEN --vc_groupid(1)
1129: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1130: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GROUP ID AND CLOSING METHOD FOUND FOR TIMEFRAME '||TIMEFRAME||
1131: ' and Fund Group '||fundgroup||' and Treasury Symbol '||
1132: trsymbol||' is '||TO_CHAR(vg_group_id)|| ' '||vp_closing_method);
1133: END IF;
1126: FETCH vc_groupid INTO vg_group_id;
1127:
1128: IF vc_groupid%FOUND THEN --vc_groupid(1)
1129: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1130: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GROUP ID AND CLOSING METHOD FOUND FOR TIMEFRAME '||TIMEFRAME||
1131: ' and Fund Group '||fundgroup||' and Treasury Symbol '||
1132: trsymbol||' is '||TO_CHAR(vg_group_id)|| ' '||vp_closing_method);
1133: END IF;
1134:
1148:
1149: FETCH vc_groupid INTO vg_group_id;
1150:
1151: IF vc_groupid%FOUND THEN --vc_groupid(2)
1152: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1153: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GROUP ID AND CLOSING METHOD FOUND FOR TIME FRAME '||TIMEFRAME||
1154: ' and Fund Group '||fundgroup||' is '||TO_CHAR(vg_group_id)|| ' '||vp_closing_method);
1155: END IF;
1156:
1149: FETCH vc_groupid INTO vg_group_id;
1150:
1151: IF vc_groupid%FOUND THEN --vc_groupid(2)
1152: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1153: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GROUP ID AND CLOSING METHOD FOUND FOR TIME FRAME '||TIMEFRAME||
1154: ' and Fund Group '||fundgroup||' is '||TO_CHAR(vg_group_id)|| ' '||vp_closing_method);
1155: END IF;
1156:
1157: ELSE --vc_groupid(2)
1170:
1171: FETCH vc_groupid INTO vg_group_id;
1172:
1173: IF vc_groupid%FOUND THEN --vc_groupid(3)
1174: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1175: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GROUP ID AND CLOSING METHOD FOUND FOR THE TIME FRAME '||TIMEFRAME||
1176: ' is '||TO_CHAR(vg_group_id)|| ' '||vp_closing_method);
1177: END IF;
1178:
1171: FETCH vc_groupid INTO vg_group_id;
1172:
1173: IF vc_groupid%FOUND THEN --vc_groupid(3)
1174: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1175: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GROUP ID AND CLOSING METHOD FOUND FOR THE TIME FRAME '||TIMEFRAME||
1176: ' is '||TO_CHAR(vg_group_id)|| ' '||vp_closing_method);
1177: END IF;
1178:
1179: ELSE --vc_groupid(3)
1178:
1179: ELSE --vc_groupid(3)
1180: CLOSE vc_groupid;
1181:
1182: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1183: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' YEAR END CLOSE RECORD IS NOT DEFINED '||
1184:
1185: 'for any of the combination of :');
1186: END IF;
1179: ELSE --vc_groupid(3)
1180: CLOSE vc_groupid;
1181:
1182: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1183: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' YEAR END CLOSE RECORD IS NOT DEFINED '||
1184:
1185: 'for any of the combination of :');
1186: END IF;
1187: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1183: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' YEAR END CLOSE RECORD IS NOT DEFINED '||
1184:
1185: 'for any of the combination of :');
1186: END IF;
1187: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1188: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TIMEFRAME: '||TIMEFRAME||
1189:
1190: ', Fund Group: '||fundgroup||', Treasury Symbol: '||trsymbol||' Closing Method: '||vp_closing_method);
1191: END IF;
1184:
1185: 'for any of the combination of :');
1186: END IF;
1187: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1188: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TIMEFRAME: '||TIMEFRAME||
1189:
1190: ', Fund Group: '||fundgroup||', Treasury Symbol: '||trsymbol||' Closing Method: '||vp_closing_method);
1191: END IF;
1192: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1188: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TIMEFRAME: '||TIMEFRAME||
1189:
1190: ', Fund Group: '||fundgroup||', Treasury Symbol: '||trsymbol||' Closing Method: '||vp_closing_method);
1191: END IF;
1192: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1193: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING THE NEXT TREASURY SYMBOL....');
1194: END IF;
1195:
1196: -- Process the next treasury symbol
1189:
1190: ', Fund Group: '||fundgroup||', Treasury Symbol: '||trsymbol||' Closing Method: '||vp_closing_method);
1191: END IF;
1192: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1193: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING THE NEXT TREASURY SYMBOL....');
1194: END IF;
1195:
1196: -- Process the next treasury symbol
1197: RETURN;
1219: CLOSE vc_groupid;
1220: END IF;
1221: vp_retcode := 2 ;
1222: vp_errbuf := SQLERRM ||' -- Error in Get_Year_End_Record procedure.' ;
1223: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1224: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
1225: 'When Others Exception ' || vp_errbuf );
1226: END IF;
1227:
1220: END IF;
1221: vp_retcode := 2 ;
1222: vp_errbuf := SQLERRM ||' -- Error in Get_Year_End_Record procedure.' ;
1223: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1224: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
1225: 'When Others Exception ' || vp_errbuf );
1226: END IF;
1227:
1228: RETURN ;
1250: BEGIN
1251: vl_rec_found_flag := 'N';
1252:
1253: l_module_name := g_module_name ||'Get_Fund_Value ';
1254: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1255: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN GET_FUND_VALUE PROC WITH TREASURY SYMBOL ID '||
1256:
1257: TO_CHAR(vg_trsymbol_id));
1258: END IF;
1251: vl_rec_found_flag := 'N';
1252:
1253: l_module_name := g_module_name ||'Get_Fund_Value ';
1254: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1255: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN GET_FUND_VALUE PROC WITH TREASURY SYMBOL ID '||
1256:
1257: TO_CHAR(vg_trsymbol_id));
1258: END IF;
1259: OPEN get_fund_cur;
1258: END IF;
1259: OPEN get_fund_cur;
1260: LOOP
1261: FETCH get_fund_cur INTO vg_fund_value;
1262: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1263: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' --------------------------------------------------');
1264: END IF;
1265:
1266: IF get_fund_cur%FOUND THEN -- get_fund_cur%found
1259: OPEN get_fund_cur;
1260: LOOP
1261: FETCH get_fund_cur INTO vg_fund_value;
1262: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1263: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' --------------------------------------------------');
1264: END IF;
1265:
1266: IF get_fund_cur%FOUND THEN -- get_fund_cur%found
1267: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1263: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' --------------------------------------------------');
1264: END IF;
1265:
1266: IF get_fund_cur%FOUND THEN -- get_fund_cur%found
1267: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1268: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING THE FUND '||VG_FUND_VALUE||
1269:
1270: ' for the Treasury Symbol '||vg_trsymbol);
1271: END IF;
1264: END IF;
1265:
1266: IF get_fund_cur%FOUND THEN -- get_fund_cur%found
1267: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1268: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING THE FUND '||VG_FUND_VALUE||
1269:
1270: ' for the Treasury Symbol '||vg_trsymbol);
1271: END IF;
1272:
1290:
1291: ELSE -- get_fund_cur%found
1292: IF (vl_rec_found_flag = 'N') THEN
1293: IF (vp_trsymbol IS NOT NULL) THEN
1294: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1295: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO FUND VALUE FOUND FOR THE TREASURY SYMBOL '
1296:
1297: ||vg_trsymbol);
1298: END IF;
1291: ELSE -- get_fund_cur%found
1292: IF (vl_rec_found_flag = 'N') THEN
1293: IF (vp_trsymbol IS NOT NULL) THEN
1294: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1295: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO FUND VALUE FOUND FOR THE TREASURY SYMBOL '
1296:
1297: ||vg_trsymbol);
1298: END IF;
1299: vp_retcode := 1;
1299: vp_retcode := 1;
1300: vp_errbuf := 'No Fund Value found for the Treasury Symbol '||
1301: vg_trsymbol;
1302: ELSE
1303: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1304: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO FUND VALUE FOUND FOR THE TREASURY SYMBOL '
1305: ||vg_trsymbol);
1306: END IF;
1307: END IF;
1300: vp_errbuf := 'No Fund Value found for the Treasury Symbol '||
1301: vg_trsymbol;
1302: ELSE
1303: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1304: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO FUND VALUE FOUND FOR THE TREASURY SYMBOL '
1305: ||vg_trsymbol);
1306: END IF;
1307: END IF;
1308: RETURN;
1326: CLOSE get_fund_cur;
1327: END IF;
1328: vp_retcode := 2 ;
1329: vp_errbuf := SQLERRM ||' -- Error in Get_Fund_Value procedure.' ;
1330: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1331: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
1332: 'When Others Exception ' || vp_errbuf );
1333: END IF;
1334:
1327: END IF;
1328: vp_retcode := 2 ;
1329: vp_errbuf := SQLERRM ||' -- Error in Get_Fund_Value procedure.' ;
1330: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1331: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
1332: 'When Others Exception ' || vp_errbuf );
1333: END IF;
1334:
1335: RETURN ;
1364: BEGIN
1365:
1366: l_module_name := g_module_name || 'Determine_Acct_Flag ' ;
1367:
1368: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1369: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE DETERMINE_ACCT_FLAG PROCEDURE:WITH TREASURY '||
1370:
1371: 'Symbol = '||vg_trsymbol||' and Fund Value = '||vg_fund_value);
1372: END IF;
1365:
1366: l_module_name := g_module_name || 'Determine_Acct_Flag ' ;
1367:
1368: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1369: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE DETERMINE_ACCT_FLAG PROCEDURE:WITH TREASURY '||
1370:
1371: 'Symbol = '||vg_trsymbol||' and Fund Value = '||vg_fund_value);
1372: END IF;
1373:
1377: CLOSE acctflag_cur;
1378:
1379: -- Determing whether the fund is expired, cancelled or unexpired
1380: IF ((vl_exp_date <= vg_end_date) AND (vl_can_date <= vg_end_date)) THEN
1381: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1382: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FUND IS BOTH EXPIRED AND CANCELLED...');
1383: END IF;
1384: -- Set status flag to B(both expired and cancelled)
1385: vl_status_flag := 'B';
1378:
1379: -- Determing whether the fund is expired, cancelled or unexpired
1380: IF ((vl_exp_date <= vg_end_date) AND (vl_can_date <= vg_end_date)) THEN
1381: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1382: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FUND IS BOTH EXPIRED AND CANCELLED...');
1383: END IF;
1384: -- Set status flag to B(both expired and cancelled)
1385: vl_status_flag := 'B';
1386: ELSIF ((vl_exp_date <= vg_end_date) AND (vl_can_date > vg_end_date)) THEN
1383: END IF;
1384: -- Set status flag to B(both expired and cancelled)
1385: vl_status_flag := 'B';
1386: ELSIF ((vl_exp_date <= vg_end_date) AND (vl_can_date > vg_end_date)) THEN
1387: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1388: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FUND IS EXPIRED BUT NOT CANCELLED...');
1389: END IF;
1390: -- Set status flag to E(expired)
1391: vl_status_flag := 'E';
1384: -- Set status flag to B(both expired and cancelled)
1385: vl_status_flag := 'B';
1386: ELSIF ((vl_exp_date <= vg_end_date) AND (vl_can_date > vg_end_date)) THEN
1387: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1388: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FUND IS EXPIRED BUT NOT CANCELLED...');
1389: END IF;
1390: -- Set status flag to E(expired)
1391: vl_status_flag := 'E';
1392: ELSIF ((vl_exp_date > vg_end_date) AND (vl_can_date <= vg_end_date)) THEN
1389: END IF;
1390: -- Set status flag to E(expired)
1391: vl_status_flag := 'E';
1392: ELSIF ((vl_exp_date > vg_end_date) AND (vl_can_date <= vg_end_date)) THEN
1393: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1394: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FUND IS CANCELLED BUT NOT EXPIRED...');
1395: END IF;
1396: -- Set status flag to C(cancelled)
1397: vl_status_flag := 'C';
1390: -- Set status flag to E(expired)
1391: vl_status_flag := 'E';
1392: ELSIF ((vl_exp_date > vg_end_date) AND (vl_can_date <= vg_end_date)) THEN
1393: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1394: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FUND IS CANCELLED BUT NOT EXPIRED...');
1395: END IF;
1396: -- Set status flag to C(cancelled)
1397: vl_status_flag := 'C';
1398: ELSIF (vl_timeframe IN ('X','M')) THEN --CGAC
1395: END IF;
1396: -- Set status flag to C(cancelled)
1397: vl_status_flag := 'C';
1398: ELSIF (vl_timeframe IN ('X','M')) THEN --CGAC
1399: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1400: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FUND IS UNEXPIRED...');
1401: END IF;
1402: -- Set status flag to U(unexpired)
1403: vl_status_flag := 'U';
1396: -- Set status flag to C(cancelled)
1397: vl_status_flag := 'C';
1398: ELSIF (vl_timeframe IN ('X','M')) THEN --CGAC
1399: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1400: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FUND IS UNEXPIRED...');
1401: END IF;
1402: -- Set status flag to U(unexpired)
1403: vl_status_flag := 'U';
1404: END IF;
1401: END IF;
1402: -- Set status flag to U(unexpired)
1403: vl_status_flag := 'U';
1404: END IF;
1405: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1406: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' VL_STATUS_FLAG '||VL_STATUS_FLAG);
1407: END IF;
1408:
1409: -- Based on status flag, set vg_acct_flag and call Get_Year_End_SeqAcct_Info proc
1402: -- Set status flag to U(unexpired)
1403: vl_status_flag := 'U';
1404: END IF;
1405: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1406: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' VL_STATUS_FLAG '||VL_STATUS_FLAG);
1407: END IF;
1408:
1409: -- Based on status flag, set vg_acct_flag and call Get_Year_End_SeqAcct_Info proc
1410: IF (vl_status_flag = 'B') THEN
1412: FOR i IN 1..2 LOOP
1413: SELECT DECODE(i,1,'Expired',2,'Canceled')
1414: INTO vg_acct_flag
1415: FROM DUAL;
1416: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1417: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' VG_ACCT_FLAG '||VG_ACCT_FLAG);
1418: END IF;
1419:
1420: -- Get the Sequence Information
1413: SELECT DECODE(i,1,'Expired',2,'Canceled')
1414: INTO vg_acct_flag
1415: FROM DUAL;
1416: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1417: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' VG_ACCT_FLAG '||VG_ACCT_FLAG);
1418: END IF;
1419:
1420: -- Get the Sequence Information
1421: Get_Year_End_SeqAcct_Info;
1427: ELSE
1428: SELECT DECODE(vl_status_flag,'E','Expired','C','Canceled','U','Unexpired')
1429: INTO vg_acct_flag
1430: FROM DUAL;
1431: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1432: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' VG_ACCT_FLAG '||VG_ACCT_FLAG);
1433: END IF;
1434:
1435: -- Get the Sequence Information
1428: SELECT DECODE(vl_status_flag,'E','Expired','C','Canceled','U','Unexpired')
1429: INTO vg_acct_flag
1430: FROM DUAL;
1431: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1432: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' VG_ACCT_FLAG '||VG_ACCT_FLAG);
1433: END IF;
1434:
1435: -- Get the Sequence Information
1436: Get_Year_End_SeqAcct_Info;
1446:
1447: WHEN OTHERS THEN
1448: vp_retcode := 2 ;
1449: vp_errbuf := SQLERRM ||' -- Error in Detemine_Acct_Flag procedure.' ;
1450: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1451: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
1452: 'When Others Exception ' || vp_errbuf );
1453: END IF;
1454:
1447: WHEN OTHERS THEN
1448: vp_retcode := 2 ;
1449: vp_errbuf := SQLERRM ||' -- Error in Detemine_Acct_Flag procedure.' ;
1450: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1451: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
1452: 'When Others Exception ' || vp_errbuf );
1453: END IF;
1454:
1455: RETURN ;
1499: vl_cnt := 0;
1500:
1501:
1502:
1503: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1504: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE GET_YEAR_END_SEQACCT_INFO PROCEDURE...');
1505: END IF;
1506:
1507: OPEN get_seq_cur;
1500:
1501:
1502:
1503: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1504: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE GET_YEAR_END_SEQACCT_INFO PROCEDURE...');
1505: END IF;
1506:
1507: OPEN get_seq_cur;
1508: LOOP -- getseq loop
1508: LOOP -- getseq loop
1509: FETCH get_seq_cur INTO vg_seq_id, vg_seq;
1510:
1511: IF get_seq_cur%FOUND THEN -- get_seq_cur
1512: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1513: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING SEQUENCE '||TO_CHAR(VG_SEQ)||
1514: ' and sequence_id '||TO_CHAR(vg_seq_id));
1515: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Treasury Symbol is '||vg_trsymbol );
1516: END IF;
1509: FETCH get_seq_cur INTO vg_seq_id, vg_seq;
1510:
1511: IF get_seq_cur%FOUND THEN -- get_seq_cur
1512: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1513: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING SEQUENCE '||TO_CHAR(VG_SEQ)||
1514: ' and sequence_id '||TO_CHAR(vg_seq_id));
1515: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Treasury Symbol is '||vg_trsymbol );
1516: END IF;
1517:
1511: IF get_seq_cur%FOUND THEN -- get_seq_cur
1512: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1513: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING SEQUENCE '||TO_CHAR(VG_SEQ)||
1514: ' and sequence_id '||TO_CHAR(vg_seq_id));
1515: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Treasury Symbol is '||vg_trsymbol );
1516: END IF;
1517:
1518: vl_seqrec_flag := 'Y';
1519:
1538:
1539: OPEN get_acct_cur;
1540: LOOP -- getacct loop
1541: FETCH get_acct_cur INTO vg_from_acct,vg_to_acct,vg_requisition;
1542: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1543: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Closing method is '||
1544: 'flag:'||vg_closing_method||', treasury_closing_method:'||treasury_closing_method || 'vg_acct_flag '||vg_acct_flag);
1545: END IF;
1546:
1539: OPEN get_acct_cur;
1540: LOOP -- getacct loop
1541: FETCH get_acct_cur INTO vg_from_acct,vg_to_acct,vg_requisition;
1542: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1543: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Closing method is '||
1544: 'flag:'||vg_closing_method||', treasury_closing_method:'||treasury_closing_method || 'vg_acct_flag '||vg_acct_flag);
1545: END IF;
1546:
1547: IF get_acct_cur%FOUND THEN -- get_acct_cur
1550: --the closing method of year end record or (ii)if requisition checkbox is not checked
1551: -- Bug 9322307
1552: IF (vg_requisition = 'Y' and treasury_closing_method is not null and vg_closing_method = treasury_closing_method) or (vg_requisition = 'N' or vg_requisition is null) THEN
1553:
1554: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1555: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING THE RECORD WITH ACCOUNT '||
1556: 'flag:'||vg_acct_flag||', From Account:'||vg_from_acct
1557: ||', To Account:'|| vg_to_acct);
1558: END IF;
1551: -- Bug 9322307
1552: IF (vg_requisition = 'Y' and treasury_closing_method is not null and vg_closing_method = treasury_closing_method) or (vg_requisition = 'N' or vg_requisition is null) THEN
1553:
1554: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1555: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING THE RECORD WITH ACCOUNT '||
1556: 'flag:'||vg_acct_flag||', From Account:'||vg_from_acct
1557: ||', To Account:'|| vg_to_acct);
1558: END IF;
1559:
1573: FETCH get_count_cur INTO vl_cnt;
1574: CLOSE get_count_cur;
1575:
1576: IF (vl_cnt > 0) THEN
1577: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1578: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO ACCOUNT INFORMATION FOUND '||
1579: 'with '||vg_acct_flag||' appropriation status for '||
1580: 'the Sequence '||TO_CHAR(vg_seq));
1581: END IF;
1574: CLOSE get_count_cur;
1575:
1576: IF (vl_cnt > 0) THEN
1577: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1578: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO ACCOUNT INFORMATION FOUND '||
1579: 'with '||vg_acct_flag||' appropriation status for '||
1580: 'the Sequence '||TO_CHAR(vg_seq));
1581: END IF;
1582: ELSE
1579: 'with '||vg_acct_flag||' appropriation status for '||
1580: 'the Sequence '||TO_CHAR(vg_seq));
1581: END IF;
1582: ELSE
1583: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1584: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO ACCOUNT INFORMATION FOUND '||
1585: 'for the Sequence '||TO_CHAR(vg_seq));
1586: END IF;
1587: END IF;
1580: 'the Sequence '||TO_CHAR(vg_seq));
1581: END IF;
1582: ELSE
1583: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1584: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO ACCOUNT INFORMATION FOUND '||
1585: 'for the Sequence '||TO_CHAR(vg_seq));
1586: END IF;
1587: END IF;
1588: ELSE
1585: 'for the Sequence '||TO_CHAR(vg_seq));
1586: END IF;
1587: END IF;
1588: ELSE
1589: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1590: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1591: ' PROCESSING IS DONE FOR THE SEQUENCE '
1592: ||TO_CHAR(vg_seq));
1593: END IF;
1586: END IF;
1587: END IF;
1588: ELSE
1589: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1590: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1591: ' PROCESSING IS DONE FOR THE SEQUENCE '
1592: ||TO_CHAR(vg_seq));
1593: END IF;
1594: END IF;
1600: END IF; -- IF vg_closing_method = vp_closing_method THEN
1601: ELSE -- get_seq_cur
1602:
1603: IF (vl_seqrec_flag = 'N') THEN
1604: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1605: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO SEQUENCES FOUND FOR THE GROUP ID '
1606: ||TO_CHAR(vg_group_id));
1607: END IF;
1608: RETURN;
1601: ELSE -- get_seq_cur
1602:
1603: IF (vl_seqrec_flag = 'N') THEN
1604: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1605: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO SEQUENCES FOUND FOR THE GROUP ID '
1606: ||TO_CHAR(vg_group_id));
1607: END IF;
1608: RETURN;
1609: ELSE
1606: ||TO_CHAR(vg_group_id));
1607: END IF;
1608: RETURN;
1609: ELSE
1610: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1611: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING IS DONE FOR THE GROUP ID '
1612:
1613: ||TO_CHAR(vg_group_id));
1614: END IF;
1607: END IF;
1608: RETURN;
1609: ELSE
1610: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1611: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING IS DONE FOR THE GROUP ID '
1612:
1613: ||TO_CHAR(vg_group_id));
1614: END IF;
1615: EXIT;
1629:
1630: WHEN OTHERS THEN
1631: vp_retcode := 2 ;
1632: vp_errbuf := SQLERRM ||' -- Error in Get_Year_End_SeqAcct_Info procedure.' ;
1633: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1634: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
1635: 'When Others Exception ' || vp_errbuf );
1636: END IF;
1637: RETURN ;
1630: WHEN OTHERS THEN
1631: vp_retcode := 2 ;
1632: vp_errbuf := SQLERRM ||' -- Error in Get_Year_End_SeqAcct_Info procedure.' ;
1633: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1634: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
1635: 'When Others Exception ' || vp_errbuf );
1636: END IF;
1637: RETURN ;
1638:
1678:
1679: l_module_name := g_module_name || 'Determine_Child_Accounts ';
1680:
1681:
1682: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1683: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN DETERMINE_CHILD_ACCOUNTS PROCEDURE...');
1684: END IF;
1685:
1686: BEGIN
1679: l_module_name := g_module_name || 'Determine_Child_Accounts ';
1680:
1681:
1682: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1683: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN DETERMINE_CHILD_ACCOUNTS PROCEDURE...');
1684: END IF;
1685:
1686: BEGIN
1687: -- Check to see if the from account is a parent
1701: END;
1702:
1703: IF (vl_parent_cnt = 0) THEN -- parent_cnt
1704: -- the from account is not a parent
1705: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1706: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FROM ACCOUNT IS NOT A PARENT');
1707: END IF;
1708: vg_child_acct := vg_from_acct;
1709:
1702:
1703: IF (vl_parent_cnt = 0) THEN -- parent_cnt
1704: -- the from account is not a parent
1705: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1706: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FROM ACCOUNT IS NOT A PARENT');
1707: END IF;
1708: vg_child_acct := vg_from_acct;
1709:
1710: -- Call Determine_Balance_Read_Flag procedure
1712:
1713: IF (vp_retcode <> 0) THEN
1714: RAISE e_error;
1715: END IF;
1716: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1717: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BALANCE_READ_FLAG IS '||
1718: vg_balance_read_flag);
1719: END IF;
1720:
1713: IF (vp_retcode <> 0) THEN
1714: RAISE e_error;
1715: END IF;
1716: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1717: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BALANCE_READ_FLAG IS '||
1718: vg_balance_read_flag);
1719: END IF;
1720:
1721: -- Call Get_Balances procedure to get balances for the from account
1725: RAISE e_error;
1726: END IF;
1727: ELSE -- parent_cnt
1728: -- the from account is a parent
1729: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1730: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FROM ACCOUNT IS A PARENT');
1731: END IF;
1732:
1733: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1726: END IF;
1727: ELSE -- parent_cnt
1728: -- the from account is a parent
1729: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1730: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FROM ACCOUNT IS A PARENT');
1731: END IF;
1732:
1733: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1734: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CHECKING TO SEE IF THE PARENT HAS '||
1729: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1730: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FROM ACCOUNT IS A PARENT');
1731: END IF;
1732:
1733: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1734: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CHECKING TO SEE IF THE PARENT HAS '||
1735: 'any balances.');
1736: END IF;
1737:
1730: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FROM ACCOUNT IS A PARENT');
1731: END IF;
1732:
1733: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1734: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CHECKING TO SEE IF THE PARENT HAS '||
1735: 'any balances.');
1736: END IF;
1737:
1738: vl_select := 'SELECT COUNT(*)
1754: vg_fund_value,vg_from_acct,vg_sob_id,
1755: vg_coa_id,vp_closing_fyr,vg_closing_period,vg_currency;
1756:
1757: IF (vl_bal_cnt > 0) THEN -- bal_check
1758: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1759: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PARENT ACCOUNT HAS BALANCES IN '||
1760: 'General Ledger. This is the scenario, when a child account '||
1761: 'has later been defined as a parent account.Getting the balances.');
1762: END IF;
1755: vg_coa_id,vp_closing_fyr,vg_closing_period,vg_currency;
1756:
1757: IF (vl_bal_cnt > 0) THEN -- bal_check
1758: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1759: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PARENT ACCOUNT HAS BALANCES IN '||
1760: 'General Ledger. This is the scenario, when a child account '||
1761: 'has later been defined as a parent account.Getting the balances.');
1762: END IF;
1763:
1761: 'has later been defined as a parent account.Getting the balances.');
1762: END IF;
1763:
1764: vg_child_acct := vg_from_acct;
1765: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1766: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING THE ACCT:'||
1767: vg_child_acct);
1768: END IF;
1769:
1762: END IF;
1763:
1764: vg_child_acct := vg_from_acct;
1765: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1766: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING THE ACCT:'||
1767: vg_child_acct);
1768: END IF;
1769:
1770: -- Call Process_Acct procedure
1774: RAISE e_error;
1775: END IF;
1776:
1777: ELSE -- bal_check
1778: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1779: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PARENT ACCOUNT HAS NO BALANCES IN '||
1780: 'General Ledger.');
1781: END IF;
1782: END IF; -- bal_check
1775: END IF;
1776:
1777: ELSE -- bal_check
1778: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1779: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PARENT ACCOUNT HAS NO BALANCES IN '||
1780: 'General Ledger.');
1781: END IF;
1782: END IF; -- bal_check
1783:
1784: -- For each child hierarchy range, get low and high value
1785: FOR vc_hierarchies IN get_hierarchies_cur LOOP -- Hierarchies
1786: vl_child_low := vc_hierarchies.child_flex_value_low;
1787: vl_child_high := vc_hierarchies.child_flex_value_high;
1788: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1789: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING HIERARCHY WITH LOW: '||
1790: vl_child_low||' and high: '||vl_child_high);
1791: END IF;
1792:
1785: FOR vc_hierarchies IN get_hierarchies_cur LOOP -- Hierarchies
1786: vl_child_low := vc_hierarchies.child_flex_value_low;
1787: vl_child_high := vc_hierarchies.child_flex_value_high;
1788: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1789: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING HIERARCHY WITH LOW: '||
1790: vl_child_low||' and high: '||vl_child_high);
1791: END IF;
1792:
1793: -- For each child hierarchy, find the child values
1793: -- For each child hierarchy, find the child values
1794: FOR vc_children IN get_child_values_cur LOOP -- children
1795: -- set the child account
1796: vg_child_acct := vc_children.flex_value;
1797: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1798: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING THE CHILD VALUE: '||
1799: vg_child_acct);
1800: END IF;
1801:
1794: FOR vc_children IN get_child_values_cur LOOP -- children
1795: -- set the child account
1796: vg_child_acct := vc_children.flex_value;
1797: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1798: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING THE CHILD VALUE: '||
1799: vg_child_acct);
1800: END IF;
1801:
1802: -- Call Process_Acct procedure
1816:
1817: WHEN OTHERS THEN
1818: vp_retcode := 2 ;
1819: vp_errbuf := SQLERRM ||' -- Error in Determine_Child_Accounts procedure.' ;
1820: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1821: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
1822: 'When Others Exception ' || vp_errbuf );
1823: END IF;
1824: RETURN ;
1817: WHEN OTHERS THEN
1818: vp_retcode := 2 ;
1819: vp_errbuf := SQLERRM ||' -- Error in Determine_Child_Accounts procedure.' ;
1820: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1821: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
1822: 'When Others Exception ' || vp_errbuf );
1823: END IF;
1824: RETURN ;
1825:
1842:
1843: IF (vp_retcode <> 0) THEN
1844: RAISE e_error;
1845: END IF;
1846: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1847: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BALANCE_READ_FLAG IS '||
1848: vg_balance_read_flag);
1849: END IF;
1850:
1843: IF (vp_retcode <> 0) THEN
1844: RAISE e_error;
1845: END IF;
1846: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1847: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BALANCE_READ_FLAG IS '||
1848: vg_balance_read_flag);
1849: END IF;
1850:
1851: -- Call Get_Balances procedure to get balances for the from account
1861:
1862: WHEN OTHERS THEN
1863: vp_retcode := 2 ;
1864: vp_errbuf := SQLERRM ||' -- Error in Process_Acct procedure.' ;
1865: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1866: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
1867: 'When Others Exception ' || vp_errbuf );
1868: END IF;
1869: RETURN ;
1862: WHEN OTHERS THEN
1863: vp_retcode := 2 ;
1864: vp_errbuf := SQLERRM ||' -- Error in Process_Acct procedure.' ;
1865: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1866: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
1867: 'When Others Exception ' || vp_errbuf );
1868: END IF;
1869: RETURN ;
1870: END Process_Acct;
1901: WHEN OTHERS THEN
1902: vp_retcode := 2;
1903: vp_errbuf := SQLERRM ||
1904: ' -- Error in Determine_Balance_Read_Flag procedure.' ;
1905: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1906: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
1907: 'When Others Exception ' || vp_errbuf );
1908: END IF;
1909: RETURN;
1902: vp_retcode := 2;
1903: vp_errbuf := SQLERRM ||
1904: ' -- Error in Determine_Balance_Read_Flag procedure.' ;
1905: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1906: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
1907: 'When Others Exception ' || vp_errbuf );
1908: END IF;
1909: RETURN;
1910: END Determine_Balance_Read_Flag;
1980: ' Get_Balances ';
1981: vl_rec_found_flag := 'N';
1982: i := 1;
1983: vl_exists := 'N';
1984: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1985: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE GET_BALANCES PROCEDURE, '||
1986:
1987: 'processing the account '||vg_child_acct||
1988: ' with balance_read_flag = '||vg_balance_read_flag);
1981: vl_rec_found_flag := 'N';
1982: i := 1;
1983: vl_exists := 'N';
1984: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1985: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE GET_BALANCES PROCEDURE, '||
1986:
1987: 'processing the account '||vg_child_acct||
1988: ' with balance_read_flag = '||vg_balance_read_flag);
1989: END IF;
1993: /* If there are no records defined in the Fv_Ye_Seq_Bal_Temp table *
1994: * for the fund and the from acct within the group that is being *
1995: * processed. This is the scenario when vg_balance_read_flag = N */
1996: IF (vg_balance_read_flag = 'N') THEN -- vg_balance_read_flag
1997: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1998: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASE: WHEN BALANCE_READ_FLAG = N');
1999: END IF;
2000:
2001: vl_select := 'SELECT glb.code_combination_id,
1994: * for the fund and the from acct within the group that is being *
1995: * processed. This is the scenario when vg_balance_read_flag = N */
1996: IF (vg_balance_read_flag = 'N') THEN -- vg_balance_read_flag
1997: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1998: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASE: WHEN BALANCE_READ_FLAG = N');
1999: END IF;
2000:
2001: vl_select := 'SELECT glb.code_combination_id,
2002: NVL(SUM(NVL(begin_balance_dr,0) + NVL(period_net_dr,0)) -
2014: AND glb.period_name = :closing_period
2015: AND glb.currency_code = :currency
2016: GROUP BY glb.code_combination_id ';
2017:
2018: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,vl_select);
2019: -- Open thru' native dynamic sql
2020: OPEN vc_getbal FOR vl_select USING vg_fund_value,
2021: vg_child_acct,
2022: vg_sob_id,
2034: IF (vc_getbal%FOUND) THEN -- vc_getbal found
2035: vl_rec_found_flag := 'Y';
2036:
2037: vg_bal_seq_amt := 0;
2038: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2039: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING THE CCID '
2040: ||TO_CHAR(vl_ccid)||
2041: ' and GL balance amt(vg_gl_bal_amt) is '
2042: ||TO_CHAR(vg_gl_bal_amt));
2035: vl_rec_found_flag := 'Y';
2036:
2037: vg_bal_seq_amt := 0;
2038: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2039: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING THE CCID '
2040: ||TO_CHAR(vl_ccid)||
2041: ' and GL balance amt(vg_gl_bal_amt) is '
2042: ||TO_CHAR(vg_gl_bal_amt));
2043: END IF;
2057: EXCEPTION
2058: WHEN NO_DATA_FOUND THEN
2059: vg_bal_seq_amt := 0;
2060: END;
2061: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2062: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AMOUNT FROM TEMP TABLE, '||
2063: 'for the ccid being processed is ' ||TO_CHAR(vg_bal_seq_amt));
2064: END IF;
2065:
2058: WHEN NO_DATA_FOUND THEN
2059: vg_bal_seq_amt := 0;
2060: END;
2061: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2062: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AMOUNT FROM TEMP TABLE, '||
2063: 'for the ccid being processed is ' ||TO_CHAR(vg_bal_seq_amt));
2064: END IF;
2065:
2066: -- set the balance_read_flag
2067: vg_balance_read_flag := 'Y';
2068:
2069: -- Sum the amt from the gl_balances and the temp table.
2070: vg_bal_seq_amt := vg_bal_seq_amt + vg_gl_bal_amt;
2071: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2072: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TOTAL AMOUNT IS '||
2073: TO_CHAR(vg_bal_seq_amt));
2074: END IF;
2075: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2068:
2069: -- Sum the amt from the gl_balances and the temp table.
2070: vg_bal_seq_amt := vg_bal_seq_amt + vg_gl_bal_amt;
2071: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2072: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TOTAL AMOUNT IS '||
2073: TO_CHAR(vg_bal_seq_amt));
2074: END IF;
2075: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2076: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CALLING DETERMINE_DRCR PROC.'||
2071: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2072: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TOTAL AMOUNT IS '||
2073: TO_CHAR(vg_bal_seq_amt));
2074: END IF;
2075: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2076: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CALLING DETERMINE_DRCR PROC.'||
2077: 'Case 1D');
2078: END IF;
2079: -- Call Determine_DrCr procedure
2072: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TOTAL AMOUNT IS '||
2073: TO_CHAR(vg_bal_seq_amt));
2074: END IF;
2075: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2076: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CALLING DETERMINE_DRCR PROC.'||
2077: 'Case 1D');
2078: END IF;
2079: -- Call Determine_DrCr procedure
2080: -- Case 1D:
2103:
2104: IF (vl_rec_found_flag = 'Y') THEN -- vl_rec_found_flag
2105: EXIT;
2106: ELSE -- vl_rec_found_flag
2107: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2108: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO BALANCES FOUND IN General Ledger.'||
2109: 'Looking for balances in the Temp table');
2110: END IF;
2111: vg_bal_seq_amt := 0;
2104: IF (vl_rec_found_flag = 'Y') THEN -- vl_rec_found_flag
2105: EXIT;
2106: ELSE -- vl_rec_found_flag
2107: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2108: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO BALANCES FOUND IN General Ledger.'||
2109: 'Looking for balances in the Temp table');
2110: END IF;
2111: vg_bal_seq_amt := 0;
2112:
2110: END IF;
2111: vg_bal_seq_amt := 0;
2112:
2113: FOR vc_getsumtemp IN get_sumtemp_cur LOOP -- getsum loop
2114: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2115: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FOUND BALANCES '||
2116: 'in Temp Table.');
2117: END IF;
2118:
2111: vg_bal_seq_amt := 0;
2112:
2113: FOR vc_getsumtemp IN get_sumtemp_cur LOOP -- getsum loop
2114: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2115: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FOUND BALANCES '||
2116: 'in Temp Table.');
2117: END IF;
2118:
2119: -- put the ccid into the pl/sql table
2121: i := i + 1;
2122:
2123: -- Get the amt from the temp table
2124: vg_bal_seq_amt := vc_getsumtemp.amt;
2125: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2126: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AMOUNT FROM TEMP TABLE '||
2127: 'is '|| TO_CHAR(vg_bal_seq_amt));
2128: END IF;
2129:
2122:
2123: -- Get the amt from the temp table
2124: vg_bal_seq_amt := vc_getsumtemp.amt;
2125: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2126: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AMOUNT FROM TEMP TABLE '||
2127: 'is '|| TO_CHAR(vg_bal_seq_amt));
2128: END IF;
2129:
2130: -- Set the balance_read_flag
2129:
2130: -- Set the balance_read_flag
2131: vg_balance_read_flag := 'Y';
2132:
2133: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2134: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CALLING DETERMINE_DRCR'||
2135: ' proc. Case 2D');
2136: END IF;
2137: -- Call Determine_DrCr procedure
2130: -- Set the balance_read_flag
2131: vg_balance_read_flag := 'Y';
2132:
2133: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2134: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CALLING DETERMINE_DRCR'||
2135: ' proc. Case 2D');
2136: END IF;
2137: -- Call Determine_DrCr procedure
2138: -- Case 2D:
2149: END LOOP; -- loop for balances
2150:
2151: -- Get the count of ccids in pl/sql table
2152: vl_ccid_cnt := vt_ccid.COUNT;
2153: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2154: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' THE NUMBER OF CCIDS PROCESSED FROM '||
2155: 'gl_balances for the from acct is '||TO_CHAR(vl_ccid_cnt));
2156: END IF;
2157:
2150:
2151: -- Get the count of ccids in pl/sql table
2152: vl_ccid_cnt := vt_ccid.COUNT;
2153: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2154: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' THE NUMBER OF CCIDS PROCESSED FROM '||
2155: 'gl_balances for the from acct is '||TO_CHAR(vl_ccid_cnt));
2156: END IF;
2157:
2158: /* The below code is needed to handle the following scenrio: *
2170: * 4450 should also be moved to acct 4650. */
2171:
2172: FOR vc_addccid IN get_addccid_cur LOOP -- additional ccid
2173: vl_ccid := vc_addccid.code_combination_id;
2174: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2175: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING THE ADDITIONAL CCID '||
2176: TO_CHAR(vl_ccid));
2177: END IF;
2178:
2171:
2172: FOR vc_addccid IN get_addccid_cur LOOP -- additional ccid
2173: vl_ccid := vc_addccid.code_combination_id;
2174: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2175: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING THE ADDITIONAL CCID '||
2176: TO_CHAR(vl_ccid));
2177: END IF;
2178:
2179: FOR j IN 1..vl_ccid_cnt LOOP
2184: vl_exists := 'N';
2185: END IF;
2186: END LOOP;
2187:
2188: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2189: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' VL_EXISTS = '||VL_EXISTS);
2190: END IF;
2191:
2192: IF (vl_exists = 'N') THEN
2185: END IF;
2186: END LOOP;
2187:
2188: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2189: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' VL_EXISTS = '||VL_EXISTS);
2190: END IF;
2191:
2192: IF (vl_exists = 'N') THEN
2193: -- Get the amt from the temp table
2191:
2192: IF (vl_exists = 'N') THEN
2193: -- Get the amt from the temp table
2194: vg_bal_seq_amt := vc_addccid.amt;
2195: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2196: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AMOUNT FROM TEMP TABLE '||
2197: 'is '|| TO_CHAR(vg_bal_seq_amt)||
2198: ' for the additional ccid '||TO_CHAR(vl_ccid));
2199: END IF;
2192: IF (vl_exists = 'N') THEN
2193: -- Get the amt from the temp table
2194: vg_bal_seq_amt := vc_addccid.amt;
2195: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2196: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AMOUNT FROM TEMP TABLE '||
2197: 'is '|| TO_CHAR(vg_bal_seq_amt)||
2198: ' for the additional ccid '||TO_CHAR(vl_ccid));
2199: END IF;
2200:
2200:
2201: -- Set the balance_read_flag
2202: vg_balance_read_flag := 'Y';
2203:
2204: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2205: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CALLING DETERMINE_DRCR'||
2206: ' proc. Case 4D');
2207: END IF;
2208: -- Call Determine_DrCr procedure
2201: -- Set the balance_read_flag
2202: vg_balance_read_flag := 'Y';
2203:
2204: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2205: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CALLING DETERMINE_DRCR'||
2206: ' proc. Case 4D');
2207: END IF;
2208: -- Call Determine_DrCr procedure
2209: -- Case 4D:
2216:
2217: END LOOP; -- additional ccid
2218:
2219: ELSE -- vg_balance_read_flag
2220: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2221: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASE: WHEN BALANCE_READ_FLAG = Y');
2222: END IF;
2223:
2224: FOR vc_getsumseq IN get_sumtemp_seqcur LOOP -- getsumseq loop
2217: END LOOP; -- additional ccid
2218:
2219: ELSE -- vg_balance_read_flag
2220: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2221: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASE: WHEN BALANCE_READ_FLAG = Y');
2222: END IF;
2223:
2224: FOR vc_getsumseq IN get_sumtemp_seqcur LOOP -- getsumseq loop
2225: -- Get the amt from the temp table
2227:
2228: -- Set the balance_read_flag
2229: vg_balance_read_flag := 'Y';
2230:
2231: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2232: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CALLING DETERMINE_DRCR PROC.'||
2233: 'Case 3D');
2234: END IF;
2235: -- Call Determine_DrCr procedure
2228: -- Set the balance_read_flag
2229: vg_balance_read_flag := 'Y';
2230:
2231: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2232: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CALLING DETERMINE_DRCR PROC.'||
2233: 'Case 3D');
2234: END IF;
2235: -- Call Determine_DrCr procedure
2236: -- Case 3D:
2252:
2253: WHEN OTHERS THEN
2254: vp_retcode := 2 ;
2255: vp_errbuf := SQLERRM ||' -- Error in Get_Balances procedure.' ;
2256: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2257: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
2258: 'When Others Exception ' || vp_errbuf );
2259: END IF;
2260: RETURN;
2253: WHEN OTHERS THEN
2254: vp_retcode := 2 ;
2255: vp_errbuf := SQLERRM ||' -- Error in Get_Balances procedure.' ;
2256: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2257: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
2258: 'When Others Exception ' || vp_errbuf );
2259: END IF;
2260: RETURN;
2261: END Get_Balances;
2304:
2305:
2306:
2307:
2308: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2309: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN DETERMINE_DRCR PROCEDURE,'||
2310:
2311: ' processing ccid '||TO_CHAR(ccid));
2312: END IF;
2305:
2306:
2307:
2308: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2309: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN DETERMINE_DRCR PROCEDURE,'||
2310:
2311: ' processing ccid '||TO_CHAR(ccid));
2312: END IF;
2313: -- Determine the debit and credit flag
2384: l_ignore := dbms_sql.execute_and_fetch(l_cursor_id);
2385: dbms_sql.column_value(l_cursor_id, 1, vl_ccid);
2386: dbms_sql.close_cursor (l_cursor_id);
2387: IF (vl_ccid IS NULL) THEN
2388: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'No CCID Exists for the following Combination');
2389: l_counter := 0;
2390: FOR flex_rec IN flex_cursor (vg_coa_id) LOOP
2391: l_counter := l_counter + 1;
2392: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,flex_rec.application_column_name||'='|| vt_segments(l_counter));
2388: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'No CCID Exists for the following Combination');
2389: l_counter := 0;
2390: FOR flex_rec IN flex_cursor (vg_coa_id) LOOP
2391: l_counter := l_counter + 1;
2392: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,flex_rec.application_column_name||'='|| vt_segments(l_counter));
2393: END LOOP;
2394: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Please Create the CCID');
2395: RAISE e_invalid;
2396: END IF;
2390: FOR flex_rec IN flex_cursor (vg_coa_id) LOOP
2391: l_counter := l_counter + 1;
2392: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,flex_rec.application_column_name||'='|| vt_segments(l_counter));
2393: END LOOP;
2394: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Please Create the CCID');
2395: RAISE e_invalid;
2396: END IF;
2397: END IF;
2398: END IF;
2463: WHEN OTHERS THEN
2464: vp_retcode := 2 ;
2465: vp_errbuf := SQLERRM ||' -- Error in Determine_DrCr procedure.' ;
2466:
2467: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2468: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
2469: 'When Others Exception ' || vp_errbuf );
2470: END IF;
2471: RETURN;
2464: vp_retcode := 2 ;
2465: vp_errbuf := SQLERRM ||' -- Error in Determine_DrCr procedure.' ;
2466:
2467: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2468: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
2469: 'When Others Exception ' || vp_errbuf );
2470: END IF;
2471: RETURN;
2472:
2486:
2487: l_module_name := g_module_name ||
2488: 'Get_Segment_Values ';
2489:
2490: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2491: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN GET_SEGMENT_VALUES PROCEDURE,'||
2492:
2493: 'determing the segments for the ccid '||TO_CHAR(ccid));
2494: END IF;
2487: l_module_name := g_module_name ||
2488: 'Get_Segment_Values ';
2489:
2490: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2491: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN GET_SEGMENT_VALUES PROCEDURE,'||
2492:
2493: 'determing the segments for the ccid '||TO_CHAR(ccid));
2494: END IF;
2495:
2508:
2509: WHEN OTHERS THEN
2510: vp_retcode := 2 ;
2511: vp_errbuf := SQLERRM ||' -- Error in Get_Segment_Values procedure.' ;
2512: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2513: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
2514: 'When Others Exception ' || vp_errbuf );
2515: END IF;
2516:
2509: WHEN OTHERS THEN
2510: vp_retcode := 2 ;
2511: vp_errbuf := SQLERRM ||' -- Error in Get_Segment_Values procedure.' ;
2512: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2513: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
2514: 'When Others Exception ' || vp_errbuf );
2515: END IF;
2516:
2517: RETURN ;
2567: vl_found_flag := 'N';
2568:
2569:
2570:
2571: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2572: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN DETERMINE_PROCESSING_TYPE PROCEDURE'||
2573: ' with acct '||vg_child_acct);
2574: END IF;
2575:
2568:
2569:
2570:
2571: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2572: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN DETERMINE_PROCESSING_TYPE PROCEDURE'||
2573: ' with acct '||vg_child_acct);
2574: END IF;
2575:
2576: OPEN get_attrcnt_csr(vg_child_acct);
2578: CLOSE get_attrcnt_csr;
2579:
2580: IF (vl_cnt = 1) THEN -- child cnt
2581: -- Case when the processing acct has attributes in Facts Attributes table
2582: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2583: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASE: WHEN PROCESSING ACCT IS IN '||
2584: 'Facts Attributes Table');
2585: END IF;
2586: OPEN get_attributes_csr(vg_child_acct);
2579:
2580: IF (vl_cnt = 1) THEN -- child cnt
2581: -- Case when the processing acct has attributes in Facts Attributes table
2582: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2583: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASE: WHEN PROCESSING ACCT IS IN '||
2584: 'Facts Attributes Table');
2585: END IF;
2586: OPEN get_attributes_csr(vg_child_acct);
2587: FETCH get_attributes_csr INTO
2591: vl_found_flag := 'Y';
2592: ELSIF (vl_cnt = 0) THEN -- child cnt
2593: -- Case when the child acct has no attributes in Facts Attributes table,
2594: -- hence looking for the parent.
2595: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2596: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASE: WHEN PROCESSING ACCT IS NOT IN '||
2597: 'Facts Attributes Table, hence looking for the parent');
2598: END IF;
2599: vl_cnt := 0;
2592: ELSIF (vl_cnt = 0) THEN -- child cnt
2593: -- Case when the child acct has no attributes in Facts Attributes table,
2594: -- hence looking for the parent.
2595: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2596: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASE: WHEN PROCESSING ACCT IS NOT IN '||
2597: 'Facts Attributes Table, hence looking for the parent');
2598: END IF;
2599: vl_cnt := 0;
2600: FOR vc_parent IN get_parent_csr LOOP
2598: END IF;
2599: vl_cnt := 0;
2600: FOR vc_parent IN get_parent_csr LOOP
2601: vl_parent := vc_parent.parent_flex_value;
2602: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2603: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING PARENT '||VL_PARENT);
2604: END IF;
2605:
2606: OPEN get_attrcnt_csr(vl_parent);
2599: vl_cnt := 0;
2600: FOR vc_parent IN get_parent_csr LOOP
2601: vl_parent := vc_parent.parent_flex_value;
2602: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2603: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING PARENT '||VL_PARENT);
2604: END IF;
2605:
2606: OPEN get_attrcnt_csr(vl_parent);
2607: FETCH get_attrcnt_csr INTO vl_cnt;
2615: vl_plcode,vl_advflag,vl_transflag,vl_govtflag;
2616: CLOSE get_attributes_csr;
2617:
2618: vl_found_flag := 'Y';
2619: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2620: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASE: WHEN PARENT '||
2621: 'has attributes in FACTS Table');
2622: END IF;
2623: ELSE -- found flag
2616: CLOSE get_attributes_csr;
2617:
2618: vl_found_flag := 'Y';
2619: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2620: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASE: WHEN PARENT '||
2621: 'has attributes in FACTS Table');
2622: END IF;
2623: ELSE -- found flag
2624: -- Case when more than one parent is in the Facts Attributes table.
2623: ELSE -- found flag
2624: -- Case when more than one parent is in the Facts Attributes table.
2625: -- In this case, the processing type should be 0,since we do not
2626: -- know which acct to consider for getting the attributes.
2627: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2628: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASE: WHEN MORE THAN ONE '||
2629: 'parent has attributes in FACTS table');
2630: END IF;
2631: vl_found_flag := 'N';
2624: -- Case when more than one parent is in the Facts Attributes table.
2625: -- In this case, the processing type should be 0,since we do not
2626: -- know which acct to consider for getting the attributes.
2627: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2628: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASE: WHEN MORE THAN ONE '||
2629: 'parent has attributes in FACTS table');
2630: END IF;
2631: vl_found_flag := 'N';
2632: EXIT;
2657: vl_process_type := 'FACTS I';
2658: ELSE
2659: vl_process_type := 'Regular';
2660: END IF;
2661: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2662: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING BY '||VL_PROCESS_TYPE);
2663: END IF;
2664:
2665: EXCEPTION
2658: ELSE
2659: vl_process_type := 'Regular';
2660: END IF;
2661: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2662: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING BY '||VL_PROCESS_TYPE);
2663: END IF;
2664:
2665: EXCEPTION
2666: WHEN OTHERS THEN
2665: EXCEPTION
2666: WHEN OTHERS THEN
2667: vp_retcode := 2 ;
2668: vp_errbuf := SQLERRM ||' -- Error in Determine_Processing_Type procedure.' ;
2669: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2670: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
2671: 'When Others Exception ' || vp_errbuf );
2672: END IF;
2673:
2666: WHEN OTHERS THEN
2667: vp_retcode := 2 ;
2668: vp_errbuf := SQLERRM ||' -- Error in Determine_Processing_Type procedure.' ;
2669: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2670: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
2671: 'When Others Exception ' || vp_errbuf );
2672: END IF;
2673:
2674: RETURN ;
2724: 'while deriving the period_net_dr and period_net_cr.' ;
2725: RETURN;
2726:
2727: END;
2728: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2729: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN INSERT_BALANCES PROCEDURE,'||
2730: 'inserting the following:');
2731: END IF;
2732: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2725: RETURN;
2726:
2727: END;
2728: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2729: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN INSERT_BALANCES PROCEDURE,'||
2730: 'inserting the following:');
2731: END IF;
2732: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2733: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CCID:'||TO_CHAR(CCID)||' ACCT:'||ACCT||
2728: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2729: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN INSERT_BALANCES PROCEDURE,'||
2730: 'inserting the following:');
2731: END IF;
2732: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2733: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CCID:'||TO_CHAR(CCID)||' ACCT:'||ACCT||
2734: ' balance read flag: '||read_flag);
2735: END IF;
2736: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2729: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN INSERT_BALANCES PROCEDURE,'||
2730: 'inserting the following:');
2731: END IF;
2732: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2733: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CCID:'||TO_CHAR(CCID)||' ACCT:'||ACCT||
2734: ' balance read flag: '||read_flag);
2735: END IF;
2736: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2737: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PERIOD NET DR:'||TO_CHAR(VL_PERIOD_DR)||
2732: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2733: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CCID:'||TO_CHAR(CCID)||' ACCT:'||ACCT||
2734: ' balance read flag: '||read_flag);
2735: END IF;
2736: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2737: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PERIOD NET DR:'||TO_CHAR(VL_PERIOD_DR)||
2738: ' period net cr:'|| TO_CHAR(vl_period_cr)||
2739: ' remaining balance:'||TO_CHAR(remaining_bal) );
2740: END IF;
2733: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CCID:'||TO_CHAR(CCID)||' ACCT:'||ACCT||
2734: ' balance read flag: '||read_flag);
2735: END IF;
2736: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2737: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PERIOD NET DR:'||TO_CHAR(VL_PERIOD_DR)||
2738: ' period net cr:'|| TO_CHAR(vl_period_cr)||
2739: ' remaining balance:'||TO_CHAR(remaining_bal) );
2740: END IF;
2741:
2829: EXCEPTION
2830: WHEN OTHERS THEN
2831: vp_retcode := 2 ;
2832: vp_errbuf := SQLERRM ||' -- Error in Insert_Balances procedure.' ;
2833: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2834: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
2835: 'When Others Exception ' || vp_errbuf );
2836: END IF;
2837:
2830: WHEN OTHERS THEN
2831: vp_retcode := 2 ;
2832: vp_errbuf := SQLERRM ||' -- Error in Insert_Balances procedure.' ;
2833: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2834: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
2835: 'When Others Exception ' || vp_errbuf );
2836: END IF;
2837:
2838: RETURN ;
2914: vl_ctr := 0;
2915: vl_prev_header_id := 0;
2916: vl_head_ctr := 0;
2917:
2918: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2919: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE UPDATE_CLOSING_STATUS PROCEDURE.....');
2920: END IF;
2921:
2922: -- Get the close requisition
2915: vl_prev_header_id := 0;
2916: vl_head_ctr := 0;
2917:
2918: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2919: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE UPDATE_CLOSING_STATUS PROCEDURE.....');
2920: END IF;
2921:
2922: -- Get the close requisition
2923: OPEN get_closereq_cur;
2924: FETCH get_closereq_cur INTO vl_close_req;
2925: CLOSE get_closereq_cur;
2926:
2927: /* IF (vl_close_req = 'N') THEN -- vl_close_req
2928: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2929: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CLOSE REQUISITIONS = P');
2930: END IF;
2931: RETURN;
2932: ELSE -- vl_close_req*/
2925: CLOSE get_closereq_cur;
2926:
2927: /* IF (vl_close_req = 'N') THEN -- vl_close_req
2928: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2929: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CLOSE REQUISITIONS = P');
2930: END IF;
2931: RETURN;
2932: ELSE -- vl_close_req*/
2933: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2929: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CLOSE REQUISITIONS = P');
2930: END IF;
2931: RETURN;
2932: ELSE -- vl_close_req*/
2933: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2934: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CLOSE REQUISITIONS = ' || vl_close_req );
2935: END IF;
2936:
2937: IF (vl_close_req = vp_closing_method) THEN
2930: END IF;
2931: RETURN;
2932: ELSE -- vl_close_req*/
2933: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2934: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CLOSE REQUISITIONS = ' || vl_close_req );
2935: END IF;
2936:
2937: IF (vl_close_req = vp_closing_method) THEN
2938:
2959: LOOP -- distrdetails loop
2960: FETCH vl_dist_retcur INTO vl_distr_id, vl_line_id,vl_req_num;
2961:
2962: IF vl_dist_retcur%FOUND THEN -- details found
2963: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2964: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING THE REQUISITION NUMBER '||
2965: vl_req_num||' with requisition line id '
2966: ||TO_CHAR(vl_line_id)||' and the distribution id '
2967: ||TO_CHAR(vl_distr_id) );
2960: FETCH vl_dist_retcur INTO vl_distr_id, vl_line_id,vl_req_num;
2961:
2962: IF vl_dist_retcur%FOUND THEN -- details found
2963: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2964: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING THE REQUISITION NUMBER '||
2965: vl_req_num||' with requisition line id '
2966: ||TO_CHAR(vl_line_id)||' and the distribution id '
2967: ||TO_CHAR(vl_distr_id) );
2968: END IF;
2985: -- Update the Po_Req_Distributions_All table
2986: UPDATE Po_Req_Distributions_All
2987: SET gl_closed_date = vg_end_date
2988: WHERE distribution_id = vl_distr_id;
2989: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2990: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CLOSED THE DISTRIBUTION WITH '||
2991: 'distribution_id '||TO_CHAR(vl_distr_id));
2992: END IF;
2993:
2986: UPDATE Po_Req_Distributions_All
2987: SET gl_closed_date = vg_end_date
2988: WHERE distribution_id = vl_distr_id;
2989: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2990: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CLOSED THE DISTRIBUTION WITH '||
2991: 'distribution_id '||TO_CHAR(vl_distr_id));
2992: END IF;
2993:
2994: ELSE -- details found
2994: ELSE -- details found
2995: IF (vl_rec_found_flag = 'Y') THEN
2996: EXIT;
2997: ELSE
2998: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2999: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO REQUISITIONS FOUND TO '||
3000: 'be processed, where the balancing segment matches '||
3001: 'the fund value '|| vg_fund_value);
3002: END IF;
2995: IF (vl_rec_found_flag = 'Y') THEN
2996: EXIT;
2997: ELSE
2998: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2999: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO REQUISITIONS FOUND TO '||
3000: 'be processed, where the balancing segment matches '||
3001: 'the fund value '|| vg_fund_value);
3002: END IF;
3003: RETURN;
3006: END LOOP; -- distrdetails loop
3007: CLOSE vl_dist_retcur;
3008: END IF; -- vl_close_req
3009:
3010: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3011: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEGININNING PROCESSING FOR THE LINES....');
3012: END IF;
3013: vl_no_of_rows := vt_lines.COUNT;
3014: vl_last_row := vt_lines.LAST;
3007: CLOSE vl_dist_retcur;
3008: END IF; -- vl_close_req
3009:
3010: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3011: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEGININNING PROCESSING FOR THE LINES....');
3012: END IF;
3013: vl_no_of_rows := vt_lines.COUNT;
3014: vl_last_row := vt_lines.LAST;
3015: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3011: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEGININNING PROCESSING FOR THE LINES....');
3012: END IF;
3013: vl_no_of_rows := vt_lines.COUNT;
3014: vl_last_row := vt_lines.LAST;
3015: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3016: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NUMBER OF ROWS:'|| TO_CHAR(VL_NO_OF_ROWS)||
3017: ' Last Row: '||TO_CHAR(vl_Last_row));
3018: END IF;
3019:
3012: END IF;
3013: vl_no_of_rows := vt_lines.COUNT;
3014: vl_last_row := vt_lines.LAST;
3015: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3016: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NUMBER OF ROWS:'|| TO_CHAR(VL_NO_OF_ROWS)||
3017: ' Last Row: '||TO_CHAR(vl_Last_row));
3018: END IF;
3019:
3020: IF (vl_no_of_rows <> 0) THEN -- vl_no_of_rows lines
3024: -- Get the Line count
3025: OPEN get_lcount_cur;
3026: FETCH get_lcount_cur INTO vl_lines_count;
3027: CLOSE get_lcount_cur;
3028: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3029: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' VL_LINES_COUNT IS '||TO_CHAR(VL_LINES_COUNT));
3030: END IF;
3031:
3032: IF (vl_lines_count = 0) THEN -- vl_lines_count
3025: OPEN get_lcount_cur;
3026: FETCH get_lcount_cur INTO vl_lines_count;
3027: CLOSE get_lcount_cur;
3028: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3029: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' VL_LINES_COUNT IS '||TO_CHAR(VL_LINES_COUNT));
3030: END IF;
3031:
3032: IF (vl_lines_count = 0) THEN -- vl_lines_count
3033: -- Update the Po_Requisition_Lines_All table
3035: SET closed_code = 'FINALLY CLOSED'
3036: WHERE requisition_line_id = vt_lines(vl_index);
3037:
3038: vl_prt_line_id := vt_lines(vl_index);
3039: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3040: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CLOSED THE LINE WITH REQUISITION_LINE_ID '||
3041: TO_CHAR(vl_prt_line_id));
3042: END IF;
3043:
3036: WHERE requisition_line_id = vt_lines(vl_index);
3037:
3038: vl_prt_line_id := vt_lines(vl_index);
3039: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3040: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CLOSED THE LINE WITH REQUISITION_LINE_ID '||
3041: TO_CHAR(vl_prt_line_id));
3042: END IF;
3043:
3044: OPEN get_header_cur;
3061: vl_index := vl_index + 1;
3062: END LOOP; -- vl_index
3063:
3064: ELSE -- vl_no_of_rows lines
3065: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3066: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO REQUISITION LINES FOUND TO BE PROCESSED....');
3067: END IF;
3068: RETURN;
3069: END IF; -- vl_no_of_rows lines
3062: END LOOP; -- vl_index
3063:
3064: ELSE -- vl_no_of_rows lines
3065: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3066: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO REQUISITION LINES FOUND TO BE PROCESSED....');
3067: END IF;
3068: RETURN;
3069: END IF; -- vl_no_of_rows lines
3070: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3066: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO REQUISITION LINES FOUND TO BE PROCESSED....');
3067: END IF;
3068: RETURN;
3069: END IF; -- vl_no_of_rows lines
3070: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3071: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ENDING PROCESSING FOR THE LINES....');
3072: END IF;
3073:
3074: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3067: END IF;
3068: RETURN;
3069: END IF; -- vl_no_of_rows lines
3070: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3071: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ENDING PROCESSING FOR THE LINES....');
3072: END IF;
3073:
3074: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3075: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEGINNING PROCESSING FOR THE HEADERS....');
3070: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3071: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ENDING PROCESSING FOR THE LINES....');
3072: END IF;
3073:
3074: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3075: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEGINNING PROCESSING FOR THE HEADERS....');
3076: END IF;
3077: vl_no_of_rows := vt_headers.COUNT;
3078: vl_last_row := vt_headers.LAST;
3071: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ENDING PROCESSING FOR THE LINES....');
3072: END IF;
3073:
3074: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3075: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEGINNING PROCESSING FOR THE HEADERS....');
3076: END IF;
3077: vl_no_of_rows := vt_headers.COUNT;
3078: vl_last_row := vt_headers.LAST;
3079: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3075: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEGINNING PROCESSING FOR THE HEADERS....');
3076: END IF;
3077: vl_no_of_rows := vt_headers.COUNT;
3078: vl_last_row := vt_headers.LAST;
3079: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3080: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NUMBER OF ROWS:'|| TO_CHAR(VL_NO_OF_ROWS)||
3081: ' Last Row: '||TO_CHAR(vl_Last_row));
3082: END IF;
3083:
3076: END IF;
3077: vl_no_of_rows := vt_headers.COUNT;
3078: vl_last_row := vt_headers.LAST;
3079: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3080: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NUMBER OF ROWS:'|| TO_CHAR(VL_NO_OF_ROWS)||
3081: ' Last Row: '||TO_CHAR(vl_Last_row));
3082: END IF;
3083:
3084: IF (vl_no_of_rows <> 0) THEN -- vl_no_of_rows headers
3088: -- Get the Header count
3089: OPEN get_hcount_cur;
3090: FETCH get_hcount_cur INTO vl_lines_count;
3091: CLOSE get_hcount_cur;
3092: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3093: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' VL_LINES_COUNT(HDR) IS '||
3094: TO_CHAR(vl_lines_count));
3095: END IF;
3096:
3089: OPEN get_hcount_cur;
3090: FETCH get_hcount_cur INTO vl_lines_count;
3091: CLOSE get_hcount_cur;
3092: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3093: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' VL_LINES_COUNT(HDR) IS '||
3094: TO_CHAR(vl_lines_count));
3095: END IF;
3096:
3097: IF (vl_lines_count = 0) THEN -- vl_lines_count header
3100: SET closed_code = 'FINALLY CLOSED'
3101: WHERE requisition_header_id = vt_headers(vl_index);
3102:
3103: vl_prt_hdr_id := vt_headers(vl_index);
3104: -- IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3105: --FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3106: --' CLOSED THE HEADER WITH '|| 'requisition_header_id '|| TO_CHAR(vl_prt_hdr_id));
3107: -- END IF;
3108: END IF; -- vl_lines_count header
3101: WHERE requisition_header_id = vt_headers(vl_index);
3102:
3103: vl_prt_hdr_id := vt_headers(vl_index);
3104: -- IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3105: --FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3106: --' CLOSED THE HEADER WITH '|| 'requisition_header_id '|| TO_CHAR(vl_prt_hdr_id));
3107: -- END IF;
3108: END IF; -- vl_lines_count header
3109:
3112: END IF;
3113: vl_index := vl_index + 1;
3114: END LOOP; -- headers loop
3115: ELSE -- vl_no_of_rows headers
3116: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3117: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO REQUISITION HEADERS FOUND TO BE PROCESSED....');
3118: END IF;
3119: END IF; -- vl_no_of_rows headers
3120: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3113: vl_index := vl_index + 1;
3114: END LOOP; -- headers loop
3115: ELSE -- vl_no_of_rows headers
3116: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3117: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO REQUISITION HEADERS FOUND TO BE PROCESSED....');
3118: END IF;
3119: END IF; -- vl_no_of_rows headers
3120: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3121: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ENDING PROCESSING FOR THE HEADERS....');
3116: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3117: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO REQUISITION HEADERS FOUND TO BE PROCESSED....');
3118: END IF;
3119: END IF; -- vl_no_of_rows headers
3120: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3121: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ENDING PROCESSING FOR THE HEADERS....');
3122: END IF;
3123:
3124: vt_lines.DELETE;
3117: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO REQUISITION HEADERS FOUND TO BE PROCESSED....');
3118: END IF;
3119: END IF; -- vl_no_of_rows headers
3120: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3121: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ENDING PROCESSING FOR THE HEADERS....');
3122: END IF;
3123:
3124: vt_lines.DELETE;
3125: vt_headers.DELETE;
3126: EXCEPTION
3127: WHEN OTHERS THEN
3128: vp_retcode := 2 ;
3129: vp_errbuf := SQLERRM ||' -- Error in Update_Closing_Status procedure.' ;
3130: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3131: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
3132: 'When Others Exception ' || vp_errbuf );
3133: END IF;
3134: RETURN ;
3127: WHEN OTHERS THEN
3128: vp_retcode := 2 ;
3129: vp_errbuf := SQLERRM ||' -- Error in Update_Closing_Status procedure.' ;
3130: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3131: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
3132: 'When Others Exception ' || vp_errbuf );
3133: END IF;
3134: RETURN ;
3135: END Update_Closing_Status;
3262: 'Populate_Gl_Interface ';
3263:
3264: vl_gl_source := '(''Budgetary Transaction'',''Year End Close'', ''Manual'')';
3265:
3266: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3267: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN POPULATE_GL_INTERFACE PROCEDURE....');
3268: END IF;
3269:
3270: -- Get the interface_run_id
3263:
3264: vl_gl_source := '(''Budgetary Transaction'',''Year End Close'', ''Manual'')';
3265:
3266: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3267: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN POPULATE_GL_INTERFACE PROCEDURE....');
3268: END IF;
3269:
3270: -- Get the interface_run_id
3271: vg_interface_run_id := Gl_Interface_Control_Pkg.Get_Unique_Run_Id;
3274: SELECT Gl_Interface_Control_S.NEXTVAL
3275: INTO vg_jrnl_group_id
3276: FROM DUAL;
3277:
3278: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3279: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' INTERFACE RUN ID: '||TO_CHAR(VG_INTERFACE_RUN_ID));
3280: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' JOURNAL GROUP ID: '||TO_CHAR(VG_JRNL_GROUP_ID));
3281: END IF;
3282:
3275: INTO vg_jrnl_group_id
3276: FROM DUAL;
3277:
3278: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3279: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' INTERFACE RUN ID: '||TO_CHAR(VG_INTERFACE_RUN_ID));
3280: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' JOURNAL GROUP ID: '||TO_CHAR(VG_JRNL_GROUP_ID));
3281: END IF;
3282:
3283: --Insert a control record in gl_interface_control for gl_import to work
3276: FROM DUAL;
3277:
3278: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3279: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' INTERFACE RUN ID: '||TO_CHAR(VG_INTERFACE_RUN_ID));
3280: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' JOURNAL GROUP ID: '||TO_CHAR(VG_JRNL_GROUP_ID));
3281: END IF;
3282:
3283: --Insert a control record in gl_interface_control for gl_import to work
3284: INSERT INTO Gl_Interface_Control
3334: vl_line_amount := 0;
3335:
3336:
3337: IF (vc_journals.balance_read_flag = 'N') THEN -- balance_read_flag
3338: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3339: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PROCESSING TO ACCOUNT ' || VC_JOURNALS.ACCOUNT_SEG);
3340: END IF;
3341: Insert_Gl_Interface_Record(vc_journals.period_net_dr,
3342: vc_journals.period_net_cr, vl_reference_1,
3335:
3336:
3337: IF (vc_journals.balance_read_flag = 'N') THEN -- balance_read_flag
3338: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3339: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PROCESSING TO ACCOUNT ' || VC_JOURNALS.ACCOUNT_SEG);
3340: END IF;
3341: Insert_Gl_Interface_Record(vc_journals.period_net_dr,
3342: vc_journals.period_net_cr, vl_reference_1,
3343: vl_period_name,vl_trading_partner);
3343: vl_period_name,vl_trading_partner);
3344:
3345: ELSE -- balance_read_flag
3346: -- If it is a from account, then check which processing to be done.
3347: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3348: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PROCESSING FROM ACCOUNT: ' || VC_JOURNALS.ACCOUNT_SEG||
3349: ' CCID: '||vl_ccid);
3350: END IF;
3351:
3344:
3345: ELSE -- balance_read_flag
3346: -- If it is a from account, then check which processing to be done.
3347: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3348: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PROCESSING FROM ACCOUNT: ' || VC_JOURNALS.ACCOUNT_SEG||
3349: ' CCID: '||vl_ccid);
3350: END IF;
3351:
3352: IF (vl_ptype = 1) THEN -- vl_ptype
3351:
3352: IF (vl_ptype = 1) THEN -- vl_ptype
3353: -- FACTS I processing
3354: -- Check if the attribute exits and there are balances in the Facts table
3355: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3356: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FACTS I PROCESSING');
3357: END IF;
3358:
3359: vl_amount := (NVL(vc_journals.period_net_cr,0)
3352: IF (vl_ptype = 1) THEN -- vl_ptype
3353: -- FACTS I processing
3354: -- Check if the attribute exits and there are balances in the Facts table
3355: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3356: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FACTS I PROCESSING');
3357: END IF;
3358:
3359: vl_amount := (NVL(vc_journals.period_net_cr,0)
3360: - NVL(vc_journals.period_net_dr,0) );
3357: END IF;
3358:
3359: vl_amount := (NVL(vc_journals.period_net_cr,0)
3360: - NVL(vc_journals.period_net_dr,0) );
3361: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3362: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'AMOUNT TO BE MATCHED ' || VL_AMOUNT);
3363: END IF;
3364:
3365: IF ((vg_factsi_attr_exists = 'Y')
3358:
3359: vl_amount := (NVL(vc_journals.period_net_cr,0)
3360: - NVL(vc_journals.period_net_dr,0) );
3361: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3362: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'AMOUNT TO BE MATCHED ' || VL_AMOUNT);
3363: END IF;
3364:
3365: IF ((vg_factsi_attr_exists = 'Y')
3366: AND (vg_factsi_bal_cnt > 0)) THEN -- facts attr
3363: END IF;
3364:
3365: IF ((vg_factsi_attr_exists = 'Y')
3366: AND (vg_factsi_bal_cnt > 0)) THEN -- facts attr
3367: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3368: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FACTS I ATTRIBUTE EXISTS AND THERE ARE '||
3369: 'balances in FACTS table.');
3370: END IF;
3371:
3364:
3365: IF ((vg_factsi_attr_exists = 'Y')
3366: AND (vg_factsi_bal_cnt > 0)) THEN -- facts attr
3367: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3368: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FACTS I ATTRIBUTE EXISTS AND THERE ARE '||
3369: 'balances in FACTS table.');
3370: END IF;
3371:
3372: OPEN ccid_cnt_csr;
3374: CLOSE ccid_cnt_csr;
3375:
3376: IF (vl_ccid_cnt = 0) THEN -- ccid cnt
3377: -- ccid does not exist in facts table
3378: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3379: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'BALANCES WILL NOT BE CLOSED BY '||
3380:
3381: 'the FACTS I F/N and trading partner attributes for the '||
3382: 'code combination id '||vl_ccid||', since the code '||
3375:
3376: IF (vl_ccid_cnt = 0) THEN -- ccid cnt
3377: -- ccid does not exist in facts table
3378: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3379: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'BALANCES WILL NOT BE CLOSED BY '||
3380:
3381: 'the FACTS I F/N and trading partner attributes for the '||
3382: 'code combination id '||vl_ccid||', since the code '||
3383: 'combination id does not exist in Fv_Facts1_Period_Balances_v.');
3381: 'the FACTS I F/N and trading partner attributes for the '||
3382: 'code combination id '||vl_ccid||', since the code '||
3383: 'combination id does not exist in Fv_Facts1_Period_Balances_v.');
3384: END IF;
3385: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3386: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TO CLOSE BY FACTS I F/N AND '||
3387:
3388: 'trading partner attributes for this code combination id, '||
3389: 'delete the journal entries created by this process, '||
3382: 'code combination id '||vl_ccid||', since the code '||
3383: 'combination id does not exist in Fv_Facts1_Period_Balances_v.');
3384: END IF;
3385: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3386: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TO CLOSE BY FACTS I F/N AND '||
3387:
3388: 'trading partner attributes for this code combination id, '||
3389: 'delete the journal entries created by this process, '||
3390: 'if any, run the FACTS I Interface Program with all edit '||
3398: -- ccid exists in facts table
3399: IF (vl_amount <> vl_factsi_amount) THEN -- amt matching
3400: -- amount from year end table does not match with amt from
3401: -- facts table.
3402: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3403: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'BALANCES WILL NOT BE CLOSED BY '||
3404: 'the FACTS I F/N and trading partner attributes for the '||
3405: 'code combination id '||vl_ccid||', since the balances '||
3406: 'in GL does not equal to the balances in '||
3399: IF (vl_amount <> vl_factsi_amount) THEN -- amt matching
3400: -- amount from year end table does not match with amt from
3401: -- facts table.
3402: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3403: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'BALANCES WILL NOT BE CLOSED BY '||
3404: 'the FACTS I F/N and trading partner attributes for the '||
3405: 'code combination id '||vl_ccid||', since the balances '||
3406: 'in GL does not equal to the balances in '||
3407: 'Fv_Facts1_Period_Balances_v.');
3405: 'code combination id '||vl_ccid||', since the balances '||
3406: 'in GL does not equal to the balances in '||
3407: 'Fv_Facts1_Period_Balances_v.');
3408: END IF;
3409: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3410: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TO CLOSE BY FACTS I F/N AND '|| 'trading partner attributes for this code combination id, '||
3411: 'delete the journal entries created by this process, '||
3412: 'if any, run the FACTS I Interface Program with all edit '||
3413: 'checks passed by period '||vg_closing_period||
3406: 'in GL does not equal to the balances in '||
3407: 'Fv_Facts1_Period_Balances_v.');
3408: END IF;
3409: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3410: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TO CLOSE BY FACTS I F/N AND '|| 'trading partner attributes for this code combination id, '||
3411: 'delete the journal entries created by this process, '||
3412: 'if any, run the FACTS I Interface Program with all edit '||
3413: 'checks passed by period '||vg_closing_period||
3414: 'and rerun the Year End Close Program.');
3419: vl_period_name,vl_trading_partner);
3420: ELSE -- amt matching
3421: -- amount from year end table matches with amt from
3422: -- facts table.
3423: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3424: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'AMOUNT MATCHED');
3425: END IF;
3426: FOR vc_factsi IN factsi_bal_csr LOOP -- bal loop
3427: vl_factsi_tempamt := vc_factsi.amount;
3420: ELSE -- amt matching
3421: -- amount from year end table matches with amt from
3422: -- facts table.
3423: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3424: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'AMOUNT MATCHED');
3425: END IF;
3426: FOR vc_factsi IN factsi_bal_csr LOOP -- bal loop
3427: vl_factsi_tempamt := vc_factsi.amount;
3428: IF (vl_factsi_tempamt > 0) THEN
3443:
3444: END IF; -- ccid cnt
3445:
3446: ELSE -- facts attr
3447: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3448: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' EITHER FACTS I ATTRIBUTE DOES NOT EXISTS '||
3449: 'or there are no balances in FACTS table.');
3450: END IF;
3451: Insert_Gl_Interface_Record(vc_journals.period_net_dr,
3444: END IF; -- ccid cnt
3445:
3446: ELSE -- facts attr
3447: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3448: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' EITHER FACTS I ATTRIBUTE DOES NOT EXISTS '||
3449: 'or there are no balances in FACTS table.');
3450: END IF;
3451: Insert_Gl_Interface_Record(vc_journals.period_net_dr,
3452: vc_journals.period_net_cr, vl_reference_1,
3563: WHEN OTHERS THEN
3564: vp_retcode := 2;
3565: vp_errbuf := SQLERRM||
3566: ' Parse cursor error in Populate_Gl_Interface procedure.';
3567: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,l_module_name, vp_errbuf) ;
3568: RETURN;
3569: END ;
3570:
3571: -- Bind the variables
3602: WHEN OTHERS THEN
3603: vp_retcode := 2 ;
3604: vp_errbuf := SQLERRM||
3605: ' Execute cursor error in Populate_Gl_Interface procedure.';
3606: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,l_module_name, vp_errbuf) ;
3607: END ;
3608:
3609: LOOP
3610:
3639: END IF;
3640:
3641: -- vl_reference_1 := gl_record.reference_1;
3642: IF vl_line_amount <> 0 THEN -- consider only non zero balance lines
3643: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3644: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE AMOUNT ' || VL_LINE_AMOUNT);
3645: END IF;
3646: vl_running_amount := vl_running_amount + vl_line_amount;
3647:
3640:
3641: -- vl_reference_1 := gl_record.reference_1;
3642: IF vl_line_amount <> 0 THEN -- consider only non zero balance lines
3643: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3644: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE AMOUNT ' || VL_LINE_AMOUNT);
3645: END IF;
3646: vl_running_amount := vl_running_amount + vl_line_amount;
3647:
3648: vl_amount_dr := 0;
3666: EXCEPTION
3667: WHEN OTHERS THEN
3668: vp_retcode := SQLCODE ;
3669: VP_ERRBUF := SQLERRM ;
3670: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,l_module_name, vp_errbuf) ;
3671: RETURN ;
3672: END ;
3673:
3674: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3670: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,l_module_name, vp_errbuf) ;
3671: RETURN ;
3672: END ;
3673:
3674: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3675: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'AMOUNT MATCHED ' || VL_RUNNING_AMOUNT);
3676: END IF;
3677:
3678: FOR facts2_ending_balance_rec IN (SELECT ffeb.ending_balance_cr,
3671: RETURN ;
3672: END ;
3673:
3674: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3675: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'AMOUNT MATCHED ' || VL_RUNNING_AMOUNT);
3676: END IF;
3677:
3678: FOR facts2_ending_balance_rec IN (SELECT ffeb.ending_balance_cr,
3679: ffeb.ending_balance_dr,
3705: -- IF (vl_amount < 0) THEN
3706:
3707: IF (vl_amount + vl_running_amount < 0) THEN
3708: vl_amount_cr := ABS(vl_amount + vl_running_amount);
3709: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3710: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'DIFFERENCE CR AMOUNT ADDED ' || VL_AMOUNT_CR);
3711: END IF;
3712: ELSE
3713: vl_amount_dr := ABS(vl_amount + vl_running_amount);
3706:
3707: IF (vl_amount + vl_running_amount < 0) THEN
3708: vl_amount_cr := ABS(vl_amount + vl_running_amount);
3709: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3710: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'DIFFERENCE CR AMOUNT ADDED ' || VL_AMOUNT_CR);
3711: END IF;
3712: ELSE
3713: vl_amount_dr := ABS(vl_amount + vl_running_amount);
3714: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3710: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'DIFFERENCE CR AMOUNT ADDED ' || VL_AMOUNT_CR);
3711: END IF;
3712: ELSE
3713: vl_amount_dr := ABS(vl_amount + vl_running_amount);
3714: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3715: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'DIFFERENCE DR AMOUNT ADDED ' || VL_AMOUNT_DR);
3716: END IF;
3717: END IF;
3718: -- Bug 7150443. Added vl_public_law_code to the call below.
3711: END IF;
3712: ELSE
3713: vl_amount_dr := ABS(vl_amount + vl_running_amount);
3714: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3715: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'DIFFERENCE DR AMOUNT ADDED ' || VL_AMOUNT_DR);
3716: END IF;
3717: END IF;
3718: -- Bug 7150443. Added vl_public_law_code to the call below.
3719: -- Reverted the change made for above.
3729: END IF; -- balance_read_flag
3730: END LOOP; -- journal_entries loop
3731:
3732:
3733: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3734: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AFTER INSERTING INTO GL_INTERFACE....');
3735: END IF;
3736:
3737: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3730: END LOOP; -- journal_entries loop
3731:
3732:
3733: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3734: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AFTER INSERTING INTO GL_INTERFACE....');
3735: END IF;
3736:
3737: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3738: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CALLING THE JOURNAL IMPORT PROGRAM....');
3733: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3734: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AFTER INSERTING INTO GL_INTERFACE....');
3735: END IF;
3736:
3737: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3738: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CALLING THE JOURNAL IMPORT PROGRAM....');
3739: END IF;
3740: -- Submit a Concurrent request to invoke journal import
3741:
3734: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AFTER INSERTING INTO GL_INTERFACE....');
3735: END IF;
3736:
3737: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3738: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CALLING THE JOURNAL IMPORT PROGRAM....');
3739: END IF;
3740: -- Submit a Concurrent request to invoke journal import
3741:
3742: vl_req_id := FND_REQUEST.SUBMIT_REQUEST('SQLGL',
3747: TO_CHAR(vg_interface_run_id),
3748: TO_CHAR(vg_sob_id),
3749: 'N', '', '', 'N', 'W');
3750:
3751: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3752: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' THE REQUEST_ID IS '||VL_REQ_ID);
3753: END IF;
3754:
3755: -- if concurrent request submission failed then abort process
3748: TO_CHAR(vg_sob_id),
3749: 'N', '', '', 'N', 'W');
3750:
3751: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3752: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' THE REQUEST_ID IS '||VL_REQ_ID);
3753: END IF;
3754:
3755: -- if concurrent request submission failed then abort process
3756: IF (vl_req_id = 0) THEN
3753: END IF;
3754:
3755: -- if concurrent request submission failed then abort process
3756: IF (vl_req_id = 0) THEN
3757: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3758: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' JOURNAL IMPORT REQUEST NOT SUBMITTED.');
3759: END IF;
3760: vp_errbuf := 'Cannot submit journal import program';
3761: vp_retcode := 1;
3754:
3755: -- if concurrent request submission failed then abort process
3756: IF (vl_req_id = 0) THEN
3757: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3758: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' JOURNAL IMPORT REQUEST NOT SUBMITTED.');
3759: END IF;
3760: vp_errbuf := 'Cannot submit journal import program';
3761: vp_retcode := 1;
3762: ROLLBACK;
3761: vp_retcode := 1;
3762: ROLLBACK;
3763: RETURN;
3764: ELSE
3765: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3766: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' JOURNAL IMPORT REQUEST SUBMITTED SUCCESSFULLY.');
3767: END IF;
3768: COMMIT;
3769: END IF;
3762: ROLLBACK;
3763: RETURN;
3764: ELSE
3765: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3766: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' JOURNAL IMPORT REQUEST SUBMITTED SUCCESSFULLY.');
3767: END IF;
3768: COMMIT;
3769: END IF;
3770:
3780: END IF;
3781:
3782: --code to call Posting:Single Ledger program
3783: -- Submit a Concurrent request to invoke journal post
3784: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' THE vp_retcode IS '||vp_retcode);
3785: IF (vp_post_to_gl='Y' and vp_retcode <> 1) then
3786: begin
3787:
3788: select je_batch_id into l_je_batch_id from gl_je_batches where group_id = vg_jrnl_group_id ;
3791:
3792: Update gl_je_batches
3793: set status = 'S', posting_run_id = je_batch_id where je_batch_id = l_je_batch_id;
3794:
3795: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3796: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Batch ID IS '||l_je_batch_id);
3797: END IF;
3798:
3799:
3792: Update gl_je_batches
3793: set status = 'S', posting_run_id = je_batch_id where je_batch_id = l_je_batch_id;
3794:
3795: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3796: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Batch ID IS '||l_je_batch_id);
3797: END IF;
3798:
3799:
3800: -- Set single_ledger_id to the journal ledger id if the batch
3815: END IF;
3816: CLOSE CHK_ALC_EXISTS_CUR;
3817: END IF;
3818:
3819: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3820: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Single Ledger ID is '||single_led_id);
3821: END IF;
3822:
3823: IF (single_led_id = -99) THEN
3816: CLOSE CHK_ALC_EXISTS_CUR;
3817: END IF;
3818:
3819: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3820: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Single Ledger ID is '||single_led_id);
3821: END IF;
3822:
3823: IF (single_led_id = -99) THEN
3824: vl_req_id := Fnd_Request.submit_request(
3844: , argument4 => l_je_batch_id
3845: , argument5 => chr(0));
3846: END IF;
3847:
3848: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3849: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' THE REQUEST_ID IS '||VL_REQ_ID);
3850: END IF;
3851:
3852: -- if concurrent request submission failed then abort process
3845: , argument5 => chr(0));
3846: END IF;
3847:
3848: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3849: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' THE REQUEST_ID IS '||VL_REQ_ID);
3850: END IF;
3851:
3852: -- if concurrent request submission failed then abort process
3853: IF (vl_req_id = 0) THEN
3850: END IF;
3851:
3852: -- if concurrent request submission failed then abort process
3853: IF (vl_req_id = 0) THEN
3854: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3855: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' POSTING: SINGLE JOURNAL REQUEST NOT SUBMITTED.');
3856: END IF;
3857: vp_errbuf := 'Cannot submit posting: single journal program';
3858: vp_retcode := 1;
3851:
3852: -- if concurrent request submission failed then abort process
3853: IF (vl_req_id = 0) THEN
3854: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3855: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' POSTING: SINGLE JOURNAL REQUEST NOT SUBMITTED.');
3856: END IF;
3857: vp_errbuf := 'Cannot submit posting: single journal program';
3858: vp_retcode := 1;
3859: ROLLBACK;
3858: vp_retcode := 1;
3859: ROLLBACK;
3860: RETURN;
3861: ELSE
3862: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3863: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' POSTING: SINGLE JOURNAL REQUEST SUBMITTED SUCCESSFULLY.');
3864: END IF;
3865: COMMIT;
3866: END IF;
3859: ROLLBACK;
3860: RETURN;
3861: ELSE
3862: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3863: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' POSTING: SINGLE JOURNAL REQUEST SUBMITTED SUCCESSFULLY.');
3864: END IF;
3865: COMMIT;
3866: END IF;
3867:
3894: EXCEPTION
3895: WHEN OTHERS THEN
3896: vp_retcode := 2;
3897: vp_errbuf := SQLERRM || '--Error in Populate_Gl_Interface procedure.';
3898: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3899: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
3900: 'When Others Exception ' || vp_errbuf );
3901: END IF;
3902: RETURN;
3895: WHEN OTHERS THEN
3896: vp_retcode := 2;
3897: vp_errbuf := SQLERRM || '--Error in Populate_Gl_Interface procedure.';
3898: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3899: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
3900: 'When Others Exception ' || vp_errbuf );
3901: END IF;
3902: RETURN;
3903: END Populate_Gl_Interface;
3913: BEGIN
3914:
3915: l_module_name := g_module_name || 'Cleanup_Gl_Interface ';
3916:
3917: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3918: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE CLEANUP_GL_INTERFACE PROCEDURE....');
3919: END IF;
3920:
3921: -- Delete from Gl_Interface table
3914:
3915: l_module_name := g_module_name || 'Cleanup_Gl_Interface ';
3916:
3917: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3918: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE CLEANUP_GL_INTERFACE PROCEDURE....');
3919: END IF;
3920:
3921: -- Delete from Gl_Interface table
3922: DELETE FROM Gl_Interface
3927: EXCEPTION
3928: WHEN OTHERS THEN
3929: vp_retcode := 2;
3930: vp_errbuf := SQLERRM || '--Error in Cleanup_Gl_Interface procedure.';
3931: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3932: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
3933: 'When Others Exception ' || vp_errbuf );
3934: END IF;
3935:
3928: WHEN OTHERS THEN
3929: vp_retcode := 2;
3930: vp_errbuf := SQLERRM || '--Error in Cleanup_Gl_Interface procedure.';
3931: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3932: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
3933: 'When Others Exception ' || vp_errbuf );
3934: END IF;
3935:
3936: RETURN;
3954:
3955: BEGIN
3956: l_module_name := g_module_name || 'Submit_Report ';
3957:
3958: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3959: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE SUBMIT_REPORT PROCEDURE....');
3960: END IF;
3961:
3962: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3955: BEGIN
3956: l_module_name := g_module_name || 'Submit_Report ';
3957:
3958: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3959: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE SUBMIT_REPORT PROCEDURE....');
3960: END IF;
3961:
3962: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3963: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Parameters: LEDGER_ID: '||vg_sob_id || ', CLOSING_METHOD: '
3958: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3959: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE SUBMIT_REPORT PROCEDURE....');
3960: END IF;
3961:
3962: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3963: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Parameters: LEDGER_ID: '||vg_sob_id || ', CLOSING_METHOD: '
3964: ||vp_closing_method||', APPROPRIATION_TIME_FRAME: '||vp_timeframe||
3965: ', APPROPRIATION_GROUP: '||vp_fundgroup ||', TREASURY_SYMBOL: '||vp_trsymbol||', CLOSING_FYR: '||
3966: vp_closing_fyr ||', CLOSING_PERIOD: '||vp_closing_num||', MODE: '||vp_mode||', POST_IN_GL: '||vp_post_to_gl);
3959: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE SUBMIT_REPORT PROCEDURE....');
3960: END IF;
3961:
3962: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3963: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Parameters: LEDGER_ID: '||vg_sob_id || ', CLOSING_METHOD: '
3964: ||vp_closing_method||', APPROPRIATION_TIME_FRAME: '||vp_timeframe||
3965: ', APPROPRIATION_GROUP: '||vp_fundgroup ||', TREASURY_SYMBOL: '||vp_trsymbol||', CLOSING_FYR: '||
3966: vp_closing_fyr ||', CLOSING_PERIOD: '||vp_closing_num||', MODE: '||vp_mode||', POST_IN_GL: '||vp_post_to_gl);
3967: END IF;
3976: ' Year End Execution Report';
3977: RETURN;
3978: ELSE
3979: COMMIT;
3980: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3981: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' YEAR END EXECUTION REPORT IS SUCCESSFULLY '||
3982: 'submitted.....');
3983: END IF;
3984: END IF;
3977: RETURN;
3978: ELSE
3979: COMMIT;
3980: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3981: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' YEAR END EXECUTION REPORT IS SUCCESSFULLY '||
3982: 'submitted.....');
3983: END IF;
3984: END IF;
3985:
4121: EXCEPTION
4122: WHEN OTHERS THEN
4123: vp_retcode := 2;
4124: vp_errbuf := SQLERRM || '--Error in Insert_Gl_Interface_Record procedure.';
4125: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4126: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
4127: 'When Others Exception ' || vp_errbuf );
4128: END IF;
4129: END insert_gl_interface_record;
4122: WHEN OTHERS THEN
4123: vp_retcode := 2;
4124: vp_errbuf := SQLERRM || '--Error in Insert_Gl_Interface_Record procedure.';
4125: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4126: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
4127: 'When Others Exception ' || vp_errbuf );
4128: END IF;
4129: END insert_gl_interface_record;
4130: -----------------------------------------------------------------------------
4157: vl_invalid_fund varchar2(1);
4158: BEGIN
4159: l_module_name := g_module_name || 'Check_bal_seg_value ';
4160: vl_invalid_fund := 'Y';
4161: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4162: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
4163: l_module_name,
4164: ' IN CHECK_BAL_SEG_VALUE PROCEDURE '||
4165: 'with the following Parameters passed to the process:');
4158: BEGIN
4159: l_module_name := g_module_name || 'Check_bal_seg_value ';
4160: vl_invalid_fund := 'Y';
4161: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4162: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
4163: l_module_name,
4164: ' IN CHECK_BAL_SEG_VALUE PROCEDURE '||
4165: 'with the following Parameters passed to the process:');
4166: END IF;
4163: l_module_name,
4164: ' IN CHECK_BAL_SEG_VALUE PROCEDURE '||
4165: 'with the following Parameters passed to the process:');
4166: END IF;
4167: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4168: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
4169: l_module_name,
4170: ' FUND GROUP= '||VP_FUND_GRP);
4171: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
4164: ' IN CHECK_BAL_SEG_VALUE PROCEDURE '||
4165: 'with the following Parameters passed to the process:');
4166: END IF;
4167: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4168: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
4169: l_module_name,
4170: ' FUND GROUP= '||VP_FUND_GRP);
4171: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
4172: l_module_name,
4167: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4168: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
4169: l_module_name,
4170: ' FUND GROUP= '||VP_FUND_GRP);
4171: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
4172: l_module_name,
4173: ' TIME FRAME= '||VP_TIME_FRAME);
4174: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
4175: l_module_name,
4170: ' FUND GROUP= '||VP_FUND_GRP);
4171: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
4172: l_module_name,
4173: ' TIME FRAME= '||VP_TIME_FRAME);
4174: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
4175: l_module_name,
4176: ' TREASURY SYMBOL ID= '||VP_TSYMBOL_ID);
4177: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
4178: l_module_name,
4173: ' TIME FRAME= '||VP_TIME_FRAME);
4174: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
4175: l_module_name,
4176: ' TREASURY SYMBOL ID= '||VP_TSYMBOL_ID);
4177: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
4178: l_module_name,
4179: ' SET OF BOOKS ID= '||VP_SOB_ID);
4180: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
4181: l_module_name,
4176: ' TREASURY SYMBOL ID= '||VP_TSYMBOL_ID);
4177: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
4178: l_module_name,
4179: ' SET OF BOOKS ID= '||VP_SOB_ID);
4180: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
4181: l_module_name,
4182: ' END DATE= '||VP_END_DATE);
4183: END IF;
4184:
4237: EXCEPTION
4238: WHEN OTHERS THEN
4239: vp_retcode := 2 ;
4240: vp_errbuf := SQLERRM ||' -- Error in Check Check_bal_seg_value procedure.' ;
4241: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4242: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED,
4243: l_module_name,
4244: 'When Others Exception ' || vp_errbuf );
4245: END IF;
4238: WHEN OTHERS THEN
4239: vp_retcode := 2 ;
4240: vp_errbuf := SQLERRM ||' -- Error in Check Check_bal_seg_value procedure.' ;
4241: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4242: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED,
4243: l_module_name,
4244: 'When Others Exception ' || vp_errbuf );
4245: END IF;
4246: RETURN ;