[Home] [Help]
110: l_module_name := g_module_name || 'Main ';
111:
112: vg_sob_id := LEDGER_ID;
113:
114: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
115: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'START YEAR END CLOSING PROCESS.....');
116: END IF;
117:
118: -- Assign initial values
111:
112: vg_sob_id := LEDGER_ID;
113:
114: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
115: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'START YEAR END CLOSING PROCESS.....');
116: END IF;
117:
118: -- Assign initial values
119: vp_retcode := 0;
125: vp_trsymbol := treasury_symbol;
126: vp_closing_fyr := closing_fyr;
127: vp_journal_import := journal_import;
128:
129: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
130: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'THE PARAMETERS PASSED TO THE YEAR END CLOSING PROCESS ARE: '||
131: 'Submit Journal Import = '||vp_journal_import);
132: END IF;
133: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
126: vp_closing_fyr := closing_fyr;
127: vp_journal_import := journal_import;
128:
129: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
130: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'THE PARAMETERS PASSED TO THE YEAR END CLOSING PROCESS ARE: '||
131: 'Submit Journal Import = '||vp_journal_import);
132: END IF;
133: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
134: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TIME FRAME = '||VP_TIMEFRAME||
129: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
130: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'THE PARAMETERS PASSED TO THE YEAR END CLOSING PROCESS ARE: '||
131: 'Submit Journal Import = '||vp_journal_import);
132: END IF;
133: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
134: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TIME FRAME = '||VP_TIMEFRAME||
135:
136: ', Fund Group = '||vp_fundgroup);
137: END IF;
130: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'THE PARAMETERS PASSED TO THE YEAR END CLOSING PROCESS ARE: '||
131: 'Submit Journal Import = '||vp_journal_import);
132: END IF;
133: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
134: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TIME FRAME = '||VP_TIMEFRAME||
135:
136: ', Fund Group = '||vp_fundgroup);
137: END IF;
138: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
134: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TIME FRAME = '||VP_TIMEFRAME||
135:
136: ', Fund Group = '||vp_fundgroup);
137: END IF;
138: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
139: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TREASURY SYMBOL = '||VP_TRSYMBOL||
140:
141: ', Closing Fiscal Year = '||TO_CHAR(vp_closing_fyr));
142: END IF;
135:
136: ', Fund Group = '||vp_fundgroup);
137: END IF;
138: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
139: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TREASURY SYMBOL = '||VP_TRSYMBOL||
140:
141: ', Closing Fiscal Year = '||TO_CHAR(vp_closing_fyr));
142: END IF;
143:
141: ', Closing Fiscal Year = '||TO_CHAR(vp_closing_fyr));
142: END IF;
143:
144: -- Get the Sob, Coa and Currency Code
145: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
146: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'GETTING THE SET OF BOOKS,CHART OF ACCOUNTS AND CURRENCY CODE');
147: END IF;
148: Get_Required_Parameters;
149:
142: END IF;
143:
144: -- Get the Sob, Coa and Currency Code
145: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
146: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'GETTING THE SET OF BOOKS,CHART OF ACCOUNTS AND CURRENCY CODE');
147: END IF;
148: Get_Required_Parameters;
149:
150: IF (vp_retcode = 0) THEN
148: Get_Required_Parameters;
149:
150: IF (vp_retcode = 0) THEN
151: -- Get the Start Date, End Date and Last Period for the Closing Fyr
152: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
153: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'GETTING THE START DATE, END DATE AND LAST PERIOD '||
154:
155: 'of the Closing Fiscal Year');
156: END IF;
149:
150: IF (vp_retcode = 0) THEN
151: -- Get the Start Date, End Date and Last Period for the Closing Fyr
152: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
153: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'GETTING THE START DATE, END DATE AND LAST PERIOD '||
154:
155: 'of the Closing Fiscal Year');
156: END IF;
157: Get_Closing_Fyr_Details;
158: END IF;
159:
160: IF (vp_retcode = 0) THEN
161: -- Check if Dynamic Insertion is on
162: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
163: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CHECKING IF DYNAMIC INSERTION IS ON.');
164: END IF;
165: Chk_Dynamic_Insertion;
166: END IF;
159:
160: IF (vp_retcode = 0) THEN
161: -- Check if Dynamic Insertion is on
162: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
163: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CHECKING IF DYNAMIC INSERTION IS ON.');
164: END IF;
165: Chk_Dynamic_Insertion;
166: END IF;
167:
166: END IF;
167:
168: IF (vp_retcode = 0) THEN
169: -- Get the balancing and the natural account segments
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 BALANCING AND THE NATURAL ACCOUNT SEGMENTS.');
172: END IF;
173: Get_Balance_Account_Segments;
174: END IF;
167:
168: IF (vp_retcode = 0) THEN
169: -- Get the balancing and the natural account segments
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 BALANCING AND THE NATURAL ACCOUNT SEGMENTS.');
172: END IF;
173: Get_Balance_Account_Segments;
174: END IF;
175:
174: END IF;
175:
176: IF (vp_retcode = 0) THEN
177: -- Check if there are any parent account values for the To Account
178: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
179: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CHECKING THE TO ACCOUNT VALUES IN THE SETUP FORM.....');
180: END IF;
181: Chk_To_Accounts;
182: END IF;
175:
176: IF (vp_retcode = 0) THEN
177: -- Check if there are any parent account values for the To Account
178: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
179: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CHECKING THE TO ACCOUNT VALUES IN THE SETUP FORM.....');
180: END IF;
181: Chk_To_Accounts;
182: END IF;
183:
182: END IF;
183:
184: IF (vp_retcode = 0) THEN
185: -- Purging the Fv_Ye_Seq_Bal_Temp Table
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,'PURGING THE FV_YE_SEQ_BAL_TEMP TABLE.');
188: END IF;
189: Purge_Bal_Temp_Table;
190: END IF;
183:
184: IF (vp_retcode = 0) THEN
185: -- Purging the Fv_Ye_Seq_Bal_Temp Table
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,'PURGING THE FV_YE_SEQ_BAL_TEMP TABLE.');
188: END IF;
189: Purge_Bal_Temp_Table;
190: END IF;
191:
190: END IF;
191:
192: IF (vp_retcode = 0) THEN
193: -- Checking for the Year End Parameters
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,'CHECKING FOR THE YEAR END PARAMETERS.');
196: END IF;
197: Check_Year_End_Parameters;
198: END IF;
191:
192: IF (vp_retcode = 0) THEN
193: -- Checking for the Year End Parameters
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,'CHECKING FOR THE YEAR END PARAMETERS.');
196: END IF;
197: Check_Year_End_Parameters;
198: END IF;
199:
198: END IF;
199:
200: IF (vp_retcode = 0) THEN
201: -- Checking for the data in GL
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 FOR THE DATA IN General Ledger.');
204: END IF;
205: Check_Gl_Data;
206: END IF;
199:
200: IF (vp_retcode = 0) THEN
201: -- Checking for the data in GL
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 FOR THE DATA IN General Ledger.');
204: END IF;
205: Check_Gl_Data;
206: END IF;
207:
208: IF (vp_retcode = 0) THEN
209: IF (vp_journal_import = 'Y') THEN
210: -- Populating the GL_Interface table when submit_journal_import is Y
211: -- Process D
212: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
213: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'POPULATING THE GL_INTERFACE TABLE .');
214: END IF;
215: Populate_Gl_Interface;
216: END IF;
209: IF (vp_journal_import = 'Y') THEN
210: -- Populating the GL_Interface table when submit_journal_import is Y
211: -- Process D
212: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
213: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'POPULATING THE GL_INTERFACE TABLE .');
214: END IF;
215: Populate_Gl_Interface;
216: END IF;
217: END IF;
217: END IF;
218:
219: IF (vp_retcode = 0) THEN
220: -- Submitting the Execution Report
221: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
222: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'SUBMITTING THE EXECUTION REPORT.');
223: END IF;
224: Submit_Report;
225: END IF;
218:
219: IF (vp_retcode = 0) THEN
220: -- Submitting the Execution Report
221: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
222: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'SUBMITTING THE EXECUTION REPORT.');
223: END IF;
224: Submit_Report;
225: END IF;
226:
236: THEN
237: retcode := 1;
238: errbuf := 'Year End Closing Process completed with warning because the Public Law, Advance,
239: AND Transfer attribute COLUMNS are NOT established ON Define SYSTEM Parameters FORM.';
240: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,'Year End Closing Process completed with warning because the Public Law, Advance,
241: AND Transfer attribute COLUMNS are NOT established ON Define SYSTEM Parameters FORM.');
242: ELSE
243: retcode := 0;
244: errbuf := '** Year End Closing Process completed successfully **';
245: END IF;
246: COMMIT;
247: END IF;
248:
249: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
250: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENDING THE YEAR END CLOSING PROCESS ......');
251: END IF;
252:
253: EXCEPTION
246: COMMIT;
247: END IF;
248:
249: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
250: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENDING THE YEAR END CLOSING PROCESS ......');
251: END IF;
252:
253: EXCEPTION
254: WHEN OTHERS THEN
254: WHEN OTHERS THEN
255: ROLLBACK;
256: errbuf := '** Year End Closing Process Failed ** '||SQLERRM;
257: retcode := 2;
258: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
259: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
260: 'When Others Exception ' || errbuf );
261: END IF;
262:
255: ROLLBACK;
256: errbuf := '** Year End Closing Process Failed ** '||SQLERRM;
257: retcode := 2;
258: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
259: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
260: 'When Others Exception ' || errbuf );
261: END IF;
262:
263: END Main;
276: ' Get_Required_Parameters';
277:
278: -- Get the Sob
279: /* vg_sob_id := TO_NUMBER(Fnd_Profile.Value('GL_SET_OF_BKS_ID'));
280: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
281: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SET OF BOOKS ID = '||TO_CHAR(VG_SOB_ID));
282: END IF;
283:
284: -- Get the Coa
277:
278: -- Get the Sob
279: /* vg_sob_id := TO_NUMBER(Fnd_Profile.Value('GL_SET_OF_BKS_ID'));
280: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
281: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SET OF BOOKS ID = '||TO_CHAR(VG_SOB_ID));
282: END IF;
283:
284: -- Get the Coa
285: vg_coa_id := Sys_Context('FV_CONTEXT','CHART_OF_ACCOUNTS_ID');
282: END IF;
283:
284: -- Get the Coa
285: vg_coa_id := Sys_Context('FV_CONTEXT','CHART_OF_ACCOUNTS_ID');
286: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
287: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CHART OF ACCOUNTS ID = '||TO_CHAR(VG_COA_ID));
288: END IF;
289:
290: -- Get the Currency code
283:
284: -- Get the Coa
285: vg_coa_id := Sys_Context('FV_CONTEXT','CHART_OF_ACCOUNTS_ID');
286: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
287: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CHART OF ACCOUNTS ID = '||TO_CHAR(VG_COA_ID));
288: END IF;
289:
290: -- Get the Currency code
291: BEGIN
293: INTO vg_currency
294: FROM gl_sets_of_books
295: WHERE set_of_books_id = vg_sob_id;
296:
297: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
298: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CURRENCY CODE = '||VG_CURRENCY);
299: END IF;
300: EXCEPTION
301: WHEN NO_DATA_FOUND THEN
294: FROM gl_sets_of_books
295: WHERE set_of_books_id = vg_sob_id;
296:
297: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
298: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CURRENCY CODE = '||VG_CURRENCY);
299: END IF;
300: EXCEPTION
301: WHEN NO_DATA_FOUND THEN
302: vp_errbuf := 'Error in Get_Required_Parameters:'||
320: FROM gl_ledgers_public_v
321: WHERE ledger_id = vg_sob_id;
322:
323:
324: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
325: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
326: l_module_name,
327: ' CHART OF ACCOUNTS ID = '||TO_CHAR(VG_COA_ID));
328: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
321: WHERE ledger_id = vg_sob_id;
322:
323:
324: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
325: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
326: l_module_name,
327: ' CHART OF ACCOUNTS ID = '||TO_CHAR(VG_COA_ID));
328: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
329: l_module_name,
324: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
325: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
326: l_module_name,
327: ' CHART OF ACCOUNTS ID = '||TO_CHAR(VG_COA_ID));
328: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
329: l_module_name,
330: ' CURRENCY CODE = '||VG_CURRENCY);
331: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
332: l_module_name,
327: ' CHART OF ACCOUNTS ID = '||TO_CHAR(VG_COA_ID));
328: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
329: l_module_name,
330: ' CURRENCY CODE = '||VG_CURRENCY);
331: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
332: l_module_name,
333: ' BALANCE SEGMENT OPTION CODE = '|| vg_bal_seg_val_opt_code);
334: END IF;
335: EXCEPTION
355: vg_trf_main_acct_attribute
356: FROM Fv_System_Parameters;
357:
358: IF (vg_factsi_attribute IS NULL) THEN
359: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
360: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BALANCES WILL NOT BE CLOSED BY '||
361:
362: 'the FACTS I F/N and trading partner attributes since the '||
363: 'FACTS I Journal Trading Partner field is not populated in '||
356: FROM Fv_System_Parameters;
357:
358: IF (vg_factsi_attribute IS NULL) THEN
359: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
360: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BALANCES WILL NOT BE CLOSED BY '||
361:
362: 'the FACTS I F/N and trading partner attributes since the '||
363: 'FACTS I Journal Trading Partner field is not populated in '||
364: 'the Define Federal System Parameters window.');
362: 'the FACTS I F/N and trading partner attributes since the '||
363: 'FACTS I Journal Trading Partner field is not populated in '||
364: 'the Define Federal System Parameters window.');
365: END IF;
366: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
367: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TO CLOSE BY FACTS I F/N AND '||
368: 'trading partner attributes, delete the journal entries '||
369: 'created by this process, if any, enter the attribute in '||
370: 'the FACTS I Journal Trading Partner field of the Define '||
363: 'FACTS I Journal Trading Partner field is not populated in '||
364: 'the Define Federal System Parameters window.');
365: END IF;
366: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
367: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TO CLOSE BY FACTS I F/N AND '||
368: 'trading partner attributes, delete the journal entries '||
369: 'created by this process, if any, enter the attribute in '||
370: 'the FACTS I Journal Trading Partner field of the Define '||
371: 'Federal System Parameters window, and rerun the Year End '||
372: 'Close Program.');
373: END IF;
374: vg_factsi_attr_exists := 'N';
375: ELSE
376: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
377: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FACTS I JOURNAL TRADING PARTNER ATTRIBUTE IS '||
378:
379: vg_factsi_attribute);
380: END IF;
373: END IF;
374: vg_factsi_attr_exists := 'N';
375: ELSE
376: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
377: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FACTS I JOURNAL TRADING PARTNER ATTRIBUTE IS '||
378:
379: vg_factsi_attribute);
380: END IF;
381: vg_factsi_attr_exists := 'Y';
403: EXCEPTION
404: WHEN OTHERS THEN
405: vp_retcode := 2 ;
406: vp_errbuf := SQLERRM||' -- Error in Get_Required_Parameters procedure.' ;
407: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
408: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
409: 'When Others Exception ' || vp_errbuf );
410: END IF;
411: RETURN ;
404: WHEN OTHERS THEN
405: vp_retcode := 2 ;
406: vp_errbuf := SQLERRM||' -- Error in Get_Required_Parameters procedure.' ;
407: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
408: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
409: 'When Others Exception ' || vp_errbuf );
410: END IF;
411: RETURN ;
412: END Get_Required_Parameters;
436: AND glp.period_set_name = gsob.period_set_name
437: AND gsob.chart_of_accounts_id = vg_coa_id
438: AND gsob.set_of_books_id = vg_sob_id;
439:
440: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
441: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' START DATE OF THE CLOSING FISCAL YEAR = '
442: ||TO_CHAR(vg_start_date));
443: END IF;
444: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
437: AND gsob.chart_of_accounts_id = vg_coa_id
438: AND gsob.set_of_books_id = vg_sob_id;
439:
440: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
441: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' START DATE OF THE CLOSING FISCAL YEAR = '
442: ||TO_CHAR(vg_start_date));
443: END IF;
444: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
445: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' END DATE OF THE CLOSING FISCAL YEAR = '
440: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
441: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' START DATE OF THE CLOSING FISCAL YEAR = '
442: ||TO_CHAR(vg_start_date));
443: END IF;
444: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
445: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' END DATE OF THE CLOSING FISCAL YEAR = '
446: ||TO_CHAR(vg_end_date));
447: END IF;
448: EXCEPTION
441: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' START DATE OF THE CLOSING FISCAL YEAR = '
442: ||TO_CHAR(vg_start_date));
443: END IF;
444: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
445: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' END DATE OF THE CLOSING FISCAL YEAR = '
446: ||TO_CHAR(vg_end_date));
447: END IF;
448: EXCEPTION
449: WHEN OTHERS THEN
466: WHERE ledger_id = vg_sob_id
467: AND application_id = 101
468: AND period_year = vp_closing_fyr);
469:
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,' LAST PERIOD OF THE CLOSING FISCAL YEAR = '
472: ||vg_closing_period);
473: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LAST PERIOD NUM OF THE CLOSING FISCAL YEAR = '
474: ||vg_closing_period_num);
467: AND application_id = 101
468: AND period_year = vp_closing_fyr);
469:
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,' LAST PERIOD OF THE CLOSING FISCAL YEAR = '
472: ||vg_closing_period);
473: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LAST PERIOD NUM OF THE CLOSING FISCAL YEAR = '
474: ||vg_closing_period_num);
475: END IF;
469:
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,' LAST PERIOD OF THE CLOSING FISCAL YEAR = '
472: ||vg_closing_period);
473: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LAST PERIOD NUM OF THE CLOSING FISCAL YEAR = '
474: ||vg_closing_period_num);
475: END IF;
476: EXCEPTION
477: WHEN NO_DATA_FOUND THEN
496: AND set_of_books_id = vg_sob_id
497: AND fiscal_year = vp_closing_fyr;
498:
499: IF (vg_factsi_bal_cnt = 0) THEN
500: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
501: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BALANCES WILL NOT BE CLOSED BY '||
502:
503: 'the FACTS I F/N and trading partner attributes since there '||
504: 'are no balances in Fv_Facts1_Run table for '||
497: AND fiscal_year = vp_closing_fyr;
498:
499: IF (vg_factsi_bal_cnt = 0) THEN
500: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
501: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BALANCES WILL NOT BE CLOSED BY '||
502:
503: 'the FACTS I F/N and trading partner attributes since there '||
504: 'are no balances in Fv_Facts1_Run table for '||
505: 'the period '||vg_closing_period);
503: 'the FACTS I F/N and trading partner attributes since there '||
504: 'are no balances in Fv_Facts1_Run table for '||
505: 'the period '||vg_closing_period);
506: END IF;
507: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
508: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TO CLOSE BY FACTS I F/N AND '||
509: 'trading partner attributes, delete the journal entries '||
510: 'created by this process, if any, run the FACTS I Interface '||
511: 'program with all edit checks passed by period '||
504: 'are no balances in Fv_Facts1_Run table for '||
505: 'the period '||vg_closing_period);
506: END IF;
507: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
508: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TO CLOSE BY FACTS I F/N AND '||
509: 'trading partner attributes, delete the journal entries '||
510: 'created by this process, if any, run the FACTS I Interface '||
511: 'program with all edit checks passed by period '||
512: vg_closing_period||' and rerun the Year End Close Program.');
511: 'program with all edit checks passed by period '||
512: vg_closing_period||' and rerun the Year End Close Program.');
513: END IF;
514: ELSE
515: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
516: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BALANCES MAY EXIST FOR FACTS I '||
517: 'for the period '||vg_closing_period);
518: END IF;
519: END IF;
512: vg_closing_period||' and rerun the Year End Close Program.');
513: END IF;
514: ELSE
515: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
516: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BALANCES MAY EXIST FOR FACTS I '||
517: 'for the period '||vg_closing_period);
518: END IF;
519: END IF;
520: EXCEPTION
525: END;
526: EXCEPTION
527: WHEN OTHERS THEN
528: vp_errbuf := SQLERRM;
529: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
530: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
531: 'When Others Exception ' || vp_errbuf );
532: END IF;
533: RAISE;
526: EXCEPTION
527: WHEN OTHERS THEN
528: vp_errbuf := SQLERRM;
529: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
530: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
531: 'When Others Exception ' || vp_errbuf );
532: END IF;
533: RAISE;
534:
568: RETURN;
569: WHEN OTHERS THEN
570: vp_retcode := 2;
571: vp_errbuf := SQLERRM ||' -- Error in Chk_Dyanmic_Insertionprocedure.';
572: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
573: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
574: 'When Others Exception ' || vp_errbuf );
575: END IF;
576: RETURN;
569: WHEN OTHERS THEN
570: vp_retcode := 2;
571: vp_errbuf := SQLERRM ||' -- Error in Chk_Dyanmic_Insertionprocedure.';
572: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
573: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
574: 'When Others Exception ' || vp_errbuf );
575: END IF;
576: RETURN;
577: END Chk_Dynamic_Insertion;
610: );
611:
612: IF (vl_errcode) THEN
613: vp_retcode := 2 ;
614: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
615: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
616: 'Call fv_utility.get_segment_col_names' || vp_errbuf );
617: END IF;
618: RETURN;
611:
612: IF (vl_errcode) THEN
613: vp_retcode := 2 ;
614: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
615: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
616: 'Call fv_utility.get_segment_col_names' || vp_errbuf );
617: END IF;
618: RETURN;
619: END IF;
617: END IF;
618: RETURN;
619: END IF;
620:
621: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
622: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BALANCING SEGMENT IS '||VG_BAL_SEGMENT);
623: END IF;
624: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
625: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NATURAL ACCOUNTING SEGMENT IS '||VG_ACCT_SEGMENT);
618: RETURN;
619: END IF;
620:
621: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
622: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BALANCING SEGMENT IS '||VG_BAL_SEGMENT);
623: END IF;
624: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
625: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NATURAL ACCOUNTING SEGMENT IS '||VG_ACCT_SEGMENT);
626: END IF;
620:
621: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
622: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BALANCING SEGMENT IS '||VG_BAL_SEGMENT);
623: END IF;
624: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
625: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NATURAL ACCOUNTING SEGMENT IS '||VG_ACCT_SEGMENT);
626: END IF;
627:
628: -- Get the Account segment number
621: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
622: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BALANCING SEGMENT IS '||VG_BAL_SEGMENT);
623: END IF;
624: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
625: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NATURAL ACCOUNTING SEGMENT IS '||VG_ACCT_SEGMENT);
626: END IF;
627:
628: -- Get the Account segment number
629: FOR flex_fields_rec IN flex_fields
639: END LOOP;
640:
641: vg_acct_segnum := vl_acct_segnum;
642:
643: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
644: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NATURAL ACCOUNTING SEGMENT NUMBER IS ' ||TO_CHAR(vg_acct_segnum));
645: END IF;
646:
647: -- Get the Account Flex Value set ID
640:
641: vg_acct_segnum := vl_acct_segnum;
642:
643: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
644: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NATURAL ACCOUNTING SEGMENT NUMBER IS ' ||TO_CHAR(vg_acct_segnum));
645: END IF;
646:
647: -- Get the Account Flex Value set ID
648: BEGIN
662: -- 'procedure,while getting the Account Flex Value Set Id .';
663: RETURN ;
664:
665: END;
666: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
667: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCOUNT FLEX VALUE SET ID IS ' ||TO_CHAR(vg_acct_val_set_id));
668: END IF;
669:
670: -- Get the Number of segments in the chart of accounts
663: RETURN ;
664:
665: END;
666: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
667: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ACCOUNT FLEX VALUE SET ID IS ' ||TO_CHAR(vg_acct_val_set_id));
668: END IF;
669:
670: -- Get the Number of segments in the chart of accounts
671: BEGIN
682: vp_errbuf := SQLERRM ||' -- Error in Get_Balance_Account_Segments '||
683: 'procedure,while getting the number of segments .';
684: RETURN ;
685: END;
686: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
687: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NUMBER OF SEGMENTS ARE ' ||TO_CHAR(vg_num_segs));
688: END IF;
689: EXCEPTION
690: WHEN OTHERS THEN
683: 'procedure,while getting the number of segments .';
684: RETURN ;
685: END;
686: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
687: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NUMBER OF SEGMENTS ARE ' ||TO_CHAR(vg_num_segs));
688: END IF;
689: EXCEPTION
690: WHEN OTHERS THEN
691: vp_retcode := 2 ;
690: WHEN OTHERS THEN
691: vp_retcode := 2 ;
692: vp_errbuf := SQLERRM ||' -- Error in Get_Balance_Account_Segments
693: PROCEDURE.' ;
694: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
695: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
696: 'When Others Exception ' || vp_errbuf );
697: END IF;
698:
691: vp_retcode := 2 ;
692: vp_errbuf := SQLERRM ||' -- Error in Get_Balance_Account_Segments
693: PROCEDURE.' ;
694: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
695: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
696: 'When Others Exception ' || vp_errbuf );
697: END IF;
698:
699: RETURN ;
729: l_module_name := g_module_name || ' Chk_To_Accounts ';
730: vl_parent_flag := 'N';
731:
732:
733: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
734: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN CHK_TO_ACCOUNTS PROCEDURE');
735: END IF;
736:
737: FOR vc_getaccts IN get_toaccts_cur LOOP
730: vl_parent_flag := 'N';
731:
732:
733: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
734: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN CHK_TO_ACCOUNTS PROCEDURE');
735: END IF;
736:
737: FOR vc_getaccts IN get_toaccts_cur LOOP
738: vl_acct := vc_getaccts.to_account;
750: EXCEPTION
751: WHEN OTHERS THEN
752: vp_retcode := 2 ;
753: vp_errbuf := SQLERRM ||' -- Error in Chk_To_Accounts procedure.' ;
754: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
755: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
756: 'When Others Exception ' || vp_errbuf );
757: END IF;
758: RETURN ;
751: WHEN OTHERS THEN
752: vp_retcode := 2 ;
753: vp_errbuf := SQLERRM ||' -- Error in Chk_To_Accounts procedure.' ;
754: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
755: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
756: 'When Others Exception ' || vp_errbuf );
757: END IF;
758: RETURN ;
759: END Chk_To_Accounts;
776: EXCEPTION
777: WHEN OTHERS THEN
778: vp_retcode := 2 ;
779: vp_errbuf := SQLERRM ||' -- Error in Purge_Bal_Temp_Table procedure.' ;
780: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
781: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
782: 'When Others Exception ' || vp_errbuf );
783: END IF;
784:
777: WHEN OTHERS THEN
778: vp_retcode := 2 ;
779: vp_errbuf := SQLERRM ||' -- Error in Purge_Bal_Temp_Table procedure.' ;
780: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
781: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
782: 'When Others Exception ' || vp_errbuf );
783: END IF;
784:
785: RETURN ;
818:
819: WHEN OTHERS THEN
820: vp_retcode := 2 ;
821: vp_errbuf := SQLERRM ||' -- Error in Check_Gl_Date procedure.' ;
822: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
823: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
824: 'When Others Exception ' || vp_errbuf );
825: END IF;
826: RETURN ;
819: WHEN OTHERS THEN
820: vp_retcode := 2 ;
821: vp_errbuf := SQLERRM ||' -- Error in Check_Gl_Date procedure.' ;
822: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
823: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
824: 'When Others Exception ' || vp_errbuf );
825: END IF;
826: RETURN ;
827: END Check_Gl_Data;
855: vl_rec_found_flag := 'N';
856:
857:
858:
859: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
860: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN CHECK_YEAR_END_PARAMETERS PROCEDURE '||
861: 'with the following Parameters passed to the process:');
862: END IF;
863: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
856:
857:
858:
859: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
860: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN CHECK_YEAR_END_PARAMETERS PROCEDURE '||
861: 'with the following Parameters passed to the process:');
862: END IF;
863: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
864: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TREASURY SYMBOL = '||VP_TRSYMBOL||
859: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
860: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN CHECK_YEAR_END_PARAMETERS PROCEDURE '||
861: 'with the following Parameters passed to the process:');
862: END IF;
863: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
864: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TREASURY SYMBOL = '||VP_TRSYMBOL||
865: ', Fund Group Code = '||vp_fundgroup||
866: ', Time Frame = '||vp_timeframe);
867: END IF;
860: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN CHECK_YEAR_END_PARAMETERS PROCEDURE '||
861: 'with the following Parameters passed to the process:');
862: END IF;
863: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
864: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TREASURY SYMBOL = '||VP_TRSYMBOL||
865: ', Fund Group Code = '||vp_fundgroup||
866: ', Time Frame = '||vp_timeframe);
867: END IF;
868:
875: vg_end_date ) ;
876:
877:
878: IF (vp_trsymbol IS NOT NULL) THEN
879: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
880: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASE1: WHEN TREASURY SYMBOL PARAMETER IS PROVIDED.');
881: END IF;
882:
883: OPEN vc_checkpara FOR
876:
877:
878: IF (vp_trsymbol IS NOT NULL) THEN
879: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
880: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASE1: WHEN TREASURY SYMBOL PARAMETER IS PROVIDED.');
881: END IF;
882:
883: OPEN vc_checkpara FOR
884: 'SELECT time_frame,fund_group_code,
914:
915: CLOSE vc_checkpara;
916:
917: ELSIF (vp_fundgroup IS NOT NULL) THEN -- vp_trsymbol
918: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
919: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASE2: WHEN FUND GROUP CODE PARAMETER IS PROVIDED.');
920: END IF;
921:
922: -- IF timeframe is one year, then only the treasury symbols which are
915: CLOSE vc_checkpara;
916:
917: ELSIF (vp_fundgroup IS NOT NULL) THEN -- vp_trsymbol
918: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
919: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASE2: WHEN FUND GROUP CODE PARAMETER IS PROVIDED.');
920: END IF;
921:
922: -- IF timeframe is one year, then only the treasury symbols which are
923: -- either expired or cancelled are selected for processsing. For multi-year
949: ORDER BY treasury_symbol'
950: USING vg_sob_id,vp_timeframe,vp_fundgroup;
951: END IF; -- timeframe 1
952: ELSE -- vp_trsymbol
953: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
954: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASE3: WHEN ONLY THE TIME FRAME PARAMETER IS PROVIDED.');
955: END IF;
956:
957: -- IF timeframe is one year, then only the treasury symbols which are
950: USING vg_sob_id,vp_timeframe,vp_fundgroup;
951: END IF; -- timeframe 1
952: ELSE -- vp_trsymbol
953: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
954: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASE3: WHEN ONLY THE TIME FRAME PARAMETER IS PROVIDED.');
955: END IF;
956:
957: -- IF timeframe is one year, then only the treasury symbols which are
958: -- either expired or cancelled are selected for processsing. For multi-year
1035:
1036: WHEN OTHERS THEN
1037: vp_retcode := 2 ;
1038: vp_errbuf := SQLERRM ||' -- Error in Check_Year_End_Parameters procedure.' ;
1039: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1040: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
1041: 'When Others Exception ' || vp_errbuf );
1042: END IF;
1043:
1036: WHEN OTHERS THEN
1037: vp_retcode := 2 ;
1038: vp_errbuf := SQLERRM ||' -- Error in Check_Year_End_Parameters procedure.' ;
1039: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1040: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
1041: 'When Others Exception ' || vp_errbuf );
1042: END IF;
1043:
1044: RETURN ;
1071:
1072:
1073:
1074:
1075: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1076: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ******************************************************');
1077: END IF;
1078: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1079: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN GET_YEAR_END_RECORD PROCEDURE,'||
1072:
1073:
1074:
1075: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1076: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ******************************************************');
1077: END IF;
1078: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1079: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN GET_YEAR_END_RECORD PROCEDURE,'||
1080:
1074:
1075: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1076: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ******************************************************');
1077: END IF;
1078: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1079: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN GET_YEAR_END_RECORD PROCEDURE,'||
1080:
1081: 'processing the following:');
1082: END IF;
1075: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1076: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ******************************************************');
1077: END IF;
1078: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1079: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN GET_YEAR_END_RECORD PROCEDURE,'||
1080:
1081: 'processing the following:');
1082: END IF;
1083: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1079: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN GET_YEAR_END_RECORD PROCEDURE,'||
1080:
1081: 'processing the following:');
1082: END IF;
1083: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1084: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TREASURY SYMBOL: '||TRSYMBOL||' FUND GROUP: '||
1085:
1086: fundgroup||' Time Frame: '||timeframe);
1087: END IF;
1080:
1081: 'processing the following:');
1082: END IF;
1083: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1084: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TREASURY SYMBOL: '||TRSYMBOL||' FUND GROUP: '||
1085:
1086: fundgroup||' Time Frame: '||timeframe);
1087: END IF;
1088:
1094: -- Get the Treasury Symbol ID
1095: OPEN get_trsymid_cur;
1096: FETCH get_trsymid_cur INTO vg_trsymbol_id;
1097: CLOSE get_trsymid_cur;
1098: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1099: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING THE TREASURY_SYMBOL_ID '||
1100: TO_CHAR(vg_trsymbol_id));
1101: END IF;
1102:
1095: OPEN get_trsymid_cur;
1096: FETCH get_trsymid_cur INTO vg_trsymbol_id;
1097: CLOSE get_trsymid_cur;
1098: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1099: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING THE TREASURY_SYMBOL_ID '||
1100: TO_CHAR(vg_trsymbol_id));
1101: END IF;
1102:
1103: OPEN vc_groupid FOR
1111:
1112: FETCH vc_groupid INTO vg_group_id;
1113:
1114: IF vc_groupid%FOUND THEN --vc_groupid(1)
1115: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1116: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GROUP ID FOUND FOR TIMEFRAME '||TIMEFRAME||
1117: ' and Fund Group '||fundgroup||' and Treasury Symbol '||
1118: trsymbol||' is '||TO_CHAR(vg_group_id));
1119: END IF;
1112: FETCH vc_groupid INTO vg_group_id;
1113:
1114: IF vc_groupid%FOUND THEN --vc_groupid(1)
1115: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1116: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GROUP ID FOUND FOR TIMEFRAME '||TIMEFRAME||
1117: ' and Fund Group '||fundgroup||' and Treasury Symbol '||
1118: trsymbol||' is '||TO_CHAR(vg_group_id));
1119: END IF;
1120:
1133:
1134: FETCH vc_groupid INTO vg_group_id;
1135:
1136: IF vc_groupid%FOUND THEN --vc_groupid(2)
1137: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1138: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GROUP ID FOUND FOR TIME FRAME '||TIMEFRAME||
1139: ' and Fund Group '||fundgroup||' is '||TO_CHAR(vg_group_id));
1140: END IF;
1141:
1134: FETCH vc_groupid INTO vg_group_id;
1135:
1136: IF vc_groupid%FOUND THEN --vc_groupid(2)
1137: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1138: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GROUP ID FOUND FOR TIME FRAME '||TIMEFRAME||
1139: ' and Fund Group '||fundgroup||' is '||TO_CHAR(vg_group_id));
1140: END IF;
1141:
1142: ELSE --vc_groupid(2)
1154:
1155: FETCH vc_groupid INTO vg_group_id;
1156:
1157: IF vc_groupid%FOUND THEN --vc_groupid(3)
1158: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1159: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GROUP ID FOUND FOR THE TIME FRAME '||TIMEFRAME||
1160: ' is '||TO_CHAR(vg_group_id));
1161: END IF;
1162:
1155: FETCH vc_groupid INTO vg_group_id;
1156:
1157: IF vc_groupid%FOUND THEN --vc_groupid(3)
1158: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1159: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GROUP ID FOUND FOR THE TIME FRAME '||TIMEFRAME||
1160: ' is '||TO_CHAR(vg_group_id));
1161: END IF;
1162:
1163: ELSE --vc_groupid(3)
1162:
1163: ELSE --vc_groupid(3)
1164: CLOSE vc_groupid;
1165:
1166: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1167: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' YEAR END CLOSE RECORD IS NOT DEFINED '||
1168:
1169: 'for any of the combination of :');
1170: END IF;
1163: ELSE --vc_groupid(3)
1164: CLOSE vc_groupid;
1165:
1166: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1167: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' YEAR END CLOSE RECORD IS NOT DEFINED '||
1168:
1169: 'for any of the combination of :');
1170: END IF;
1171: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1167: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' YEAR END CLOSE RECORD IS NOT DEFINED '||
1168:
1169: 'for any of the combination of :');
1170: END IF;
1171: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1172: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TIMEFRAME: '||TIMEFRAME||
1173:
1174: ', Fund Group: '||fundgroup||', Treasury Symbol: '||trsymbol);
1175: END IF;
1168:
1169: 'for any of the combination of :');
1170: END IF;
1171: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1172: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TIMEFRAME: '||TIMEFRAME||
1173:
1174: ', Fund Group: '||fundgroup||', Treasury Symbol: '||trsymbol);
1175: END IF;
1176: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1172: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TIMEFRAME: '||TIMEFRAME||
1173:
1174: ', Fund Group: '||fundgroup||', Treasury Symbol: '||trsymbol);
1175: END IF;
1176: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1177: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING THE NEXT TREASURY SYMBOL....');
1178: END IF;
1179:
1180: -- Process the next treasury symbol
1173:
1174: ', Fund Group: '||fundgroup||', Treasury Symbol: '||trsymbol);
1175: END IF;
1176: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1177: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING THE NEXT TREASURY SYMBOL....');
1178: END IF;
1179:
1180: -- Process the next treasury symbol
1181: RETURN;
1203: CLOSE vc_groupid;
1204: END IF;
1205: vp_retcode := 2 ;
1206: vp_errbuf := SQLERRM ||' -- Error in Get_Year_End_Record procedure.' ;
1207: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1208: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
1209: 'When Others Exception ' || vp_errbuf );
1210: END IF;
1211:
1204: END IF;
1205: vp_retcode := 2 ;
1206: vp_errbuf := SQLERRM ||' -- Error in Get_Year_End_Record procedure.' ;
1207: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1208: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
1209: 'When Others Exception ' || vp_errbuf );
1210: END IF;
1211:
1212: RETURN ;
1234: BEGIN
1235: vl_rec_found_flag := 'N';
1236:
1237: l_module_name := g_module_name ||'Get_Fund_Value ';
1238: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1239: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN GET_FUND_VALUE PROC WITH TREASURY SYMBOL ID '||
1240:
1241: TO_CHAR(vg_trsymbol_id));
1242: END IF;
1235: vl_rec_found_flag := 'N';
1236:
1237: l_module_name := g_module_name ||'Get_Fund_Value ';
1238: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1239: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN GET_FUND_VALUE PROC WITH TREASURY SYMBOL ID '||
1240:
1241: TO_CHAR(vg_trsymbol_id));
1242: END IF;
1243: OPEN get_fund_cur;
1242: END IF;
1243: OPEN get_fund_cur;
1244: LOOP
1245: FETCH get_fund_cur INTO vg_fund_value;
1246: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1247: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' --------------------------------------------------');
1248: END IF;
1249:
1250: IF get_fund_cur%FOUND THEN -- get_fund_cur%found
1243: OPEN get_fund_cur;
1244: LOOP
1245: FETCH get_fund_cur INTO vg_fund_value;
1246: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1247: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' --------------------------------------------------');
1248: END IF;
1249:
1250: IF get_fund_cur%FOUND THEN -- get_fund_cur%found
1251: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1247: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' --------------------------------------------------');
1248: END IF;
1249:
1250: IF get_fund_cur%FOUND THEN -- get_fund_cur%found
1251: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1252: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING THE FUND '||VG_FUND_VALUE||
1253:
1254: ' for the Treasury Symbol '||vg_trsymbol);
1255: END IF;
1248: END IF;
1249:
1250: IF get_fund_cur%FOUND THEN -- get_fund_cur%found
1251: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1252: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING THE FUND '||VG_FUND_VALUE||
1253:
1254: ' for the Treasury Symbol '||vg_trsymbol);
1255: END IF;
1256:
1274:
1275: ELSE -- get_fund_cur%found
1276: IF (vl_rec_found_flag = 'N') THEN
1277: IF (vp_trsymbol IS NOT NULL) THEN
1278: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1279: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO FUND VALUE FOUND FOR THE TREASURY SYMBOL '
1280:
1281: ||vg_trsymbol);
1282: END IF;
1275: ELSE -- get_fund_cur%found
1276: IF (vl_rec_found_flag = 'N') THEN
1277: IF (vp_trsymbol IS NOT NULL) THEN
1278: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1279: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO FUND VALUE FOUND FOR THE TREASURY SYMBOL '
1280:
1281: ||vg_trsymbol);
1282: END IF;
1283: vp_retcode := 1;
1283: vp_retcode := 1;
1284: vp_errbuf := 'No Fund Value found for the Treasury Symbol '||
1285: vg_trsymbol;
1286: ELSE
1287: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1288: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO FUND VALUE FOUND FOR THE TREASURY SYMBOL '
1289: ||vg_trsymbol);
1290: END IF;
1291: END IF;
1284: vp_errbuf := 'No Fund Value found for the Treasury Symbol '||
1285: vg_trsymbol;
1286: ELSE
1287: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1288: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO FUND VALUE FOUND FOR THE TREASURY SYMBOL '
1289: ||vg_trsymbol);
1290: END IF;
1291: END IF;
1292: RETURN;
1310: CLOSE get_fund_cur;
1311: END IF;
1312: vp_retcode := 2 ;
1313: vp_errbuf := SQLERRM ||' -- Error in Get_Fund_Value procedure.' ;
1314: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1315: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
1316: 'When Others Exception ' || vp_errbuf );
1317: END IF;
1318:
1311: END IF;
1312: vp_retcode := 2 ;
1313: vp_errbuf := SQLERRM ||' -- Error in Get_Fund_Value procedure.' ;
1314: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1315: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
1316: 'When Others Exception ' || vp_errbuf );
1317: END IF;
1318:
1319: RETURN ;
1348: BEGIN
1349:
1350: l_module_name := g_module_name || 'Determine_Acct_Flag ' ;
1351:
1352: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1353: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE DETERMINE_ACCT_FLAG PROCEDURE:WITH TREASURY '||
1354:
1355: 'Symbol = '||vg_trsymbol||' and Fund Value = '||vg_fund_value);
1356: END IF;
1349:
1350: l_module_name := g_module_name || 'Determine_Acct_Flag ' ;
1351:
1352: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1353: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE DETERMINE_ACCT_FLAG PROCEDURE:WITH TREASURY '||
1354:
1355: 'Symbol = '||vg_trsymbol||' and Fund Value = '||vg_fund_value);
1356: END IF;
1357:
1361: CLOSE acctflag_cur;
1362:
1363: -- Determing whether the fund is expired, cancelled or unexpired
1364: IF ((vl_exp_date <= vg_end_date) AND (vl_can_date <= vg_end_date)) THEN
1365: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1366: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FUND IS BOTH EXPIRED AND CANCELLED...');
1367: END IF;
1368: -- Set status flag to B(both expired and cancelled)
1369: vl_status_flag := 'B';
1362:
1363: -- Determing whether the fund is expired, cancelled or unexpired
1364: IF ((vl_exp_date <= vg_end_date) AND (vl_can_date <= vg_end_date)) THEN
1365: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1366: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FUND IS BOTH EXPIRED AND CANCELLED...');
1367: END IF;
1368: -- Set status flag to B(both expired and cancelled)
1369: vl_status_flag := 'B';
1370: ELSIF ((vl_exp_date <= vg_end_date) AND (vl_can_date > vg_end_date)) THEN
1367: END IF;
1368: -- Set status flag to B(both expired and cancelled)
1369: vl_status_flag := 'B';
1370: ELSIF ((vl_exp_date <= vg_end_date) AND (vl_can_date > vg_end_date)) THEN
1371: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1372: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FUND IS EXPIRED BUT NOT CANCELLED...');
1373: END IF;
1374: -- Set status flag to E(expired)
1375: vl_status_flag := 'E';
1368: -- Set status flag to B(both expired and cancelled)
1369: vl_status_flag := 'B';
1370: ELSIF ((vl_exp_date <= vg_end_date) AND (vl_can_date > vg_end_date)) THEN
1371: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1372: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FUND IS EXPIRED BUT NOT CANCELLED...');
1373: END IF;
1374: -- Set status flag to E(expired)
1375: vl_status_flag := 'E';
1376: ELSIF ((vl_exp_date > vg_end_date) AND (vl_can_date <= vg_end_date)) THEN
1373: END IF;
1374: -- Set status flag to E(expired)
1375: vl_status_flag := 'E';
1376: ELSIF ((vl_exp_date > vg_end_date) AND (vl_can_date <= vg_end_date)) THEN
1377: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1378: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FUND IS CANCELLED BUT NOT EXPIRED...');
1379: END IF;
1380: -- Set status flag to C(cancelled)
1381: vl_status_flag := 'C';
1374: -- Set status flag to E(expired)
1375: vl_status_flag := 'E';
1376: ELSIF ((vl_exp_date > vg_end_date) AND (vl_can_date <= vg_end_date)) THEN
1377: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1378: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FUND IS CANCELLED BUT NOT EXPIRED...');
1379: END IF;
1380: -- Set status flag to C(cancelled)
1381: vl_status_flag := 'C';
1382: ELSIF (vl_timeframe IN ('NO_YEAR','MULTIPLE')) THEN
1379: END IF;
1380: -- Set status flag to C(cancelled)
1381: vl_status_flag := 'C';
1382: ELSIF (vl_timeframe IN ('NO_YEAR','MULTIPLE')) THEN
1383: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1384: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FUND IS UNEXPIRED...');
1385: END IF;
1386: -- Set status flag to U(unexpired)
1387: vl_status_flag := 'U';
1380: -- Set status flag to C(cancelled)
1381: vl_status_flag := 'C';
1382: ELSIF (vl_timeframe IN ('NO_YEAR','MULTIPLE')) THEN
1383: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1384: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FUND IS UNEXPIRED...');
1385: END IF;
1386: -- Set status flag to U(unexpired)
1387: vl_status_flag := 'U';
1388: END IF;
1385: END IF;
1386: -- Set status flag to U(unexpired)
1387: vl_status_flag := 'U';
1388: END IF;
1389: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1390: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' VL_STATUS_FLAG '||VL_STATUS_FLAG);
1391: END IF;
1392:
1393: -- Based on status flag, set vg_acct_flag and call Get_Year_End_SeqAcct_Info proc
1386: -- Set status flag to U(unexpired)
1387: vl_status_flag := 'U';
1388: END IF;
1389: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1390: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' VL_STATUS_FLAG '||VL_STATUS_FLAG);
1391: END IF;
1392:
1393: -- Based on status flag, set vg_acct_flag and call Get_Year_End_SeqAcct_Info proc
1394: IF (vl_status_flag = 'B') THEN
1396: FOR i IN 1..2 LOOP
1397: SELECT DECODE(i,1,'Expired',2,'Canceled')
1398: INTO vg_acct_flag
1399: FROM DUAL;
1400: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1401: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' VG_ACCT_FLAG '||VG_ACCT_FLAG);
1402: END IF;
1403:
1404: -- Get the Sequence Information
1397: SELECT DECODE(i,1,'Expired',2,'Canceled')
1398: INTO vg_acct_flag
1399: FROM DUAL;
1400: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1401: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' VG_ACCT_FLAG '||VG_ACCT_FLAG);
1402: END IF;
1403:
1404: -- Get the Sequence Information
1405: Get_Year_End_SeqAcct_Info;
1411: ELSE
1412: SELECT DECODE(vl_status_flag,'E','Expired','C','Canceled','U','Unexpired')
1413: INTO vg_acct_flag
1414: FROM DUAL;
1415: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1416: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' VG_ACCT_FLAG '||VG_ACCT_FLAG);
1417: END IF;
1418:
1419: -- Get the Sequence Information
1412: SELECT DECODE(vl_status_flag,'E','Expired','C','Canceled','U','Unexpired')
1413: INTO vg_acct_flag
1414: FROM DUAL;
1415: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1416: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' VG_ACCT_FLAG '||VG_ACCT_FLAG);
1417: END IF;
1418:
1419: -- Get the Sequence Information
1420: Get_Year_End_SeqAcct_Info;
1430:
1431: WHEN OTHERS THEN
1432: vp_retcode := 2 ;
1433: vp_errbuf := SQLERRM ||' -- Error in Detemine_Acct_Flag procedure.' ;
1434: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1435: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
1436: 'When Others Exception ' || vp_errbuf );
1437: END IF;
1438:
1431: WHEN OTHERS THEN
1432: vp_retcode := 2 ;
1433: vp_errbuf := SQLERRM ||' -- Error in Detemine_Acct_Flag procedure.' ;
1434: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1435: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
1436: 'When Others Exception ' || vp_errbuf );
1437: END IF;
1438:
1439: RETURN ;
1484:
1485:
1486:
1487:
1488: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1489: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE GET_YEAR_END_SEQACCT_INFO PROCEDURE...');
1490: END IF;
1491:
1492: OPEN get_seq_cur;
1485:
1486:
1487:
1488: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1489: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE GET_YEAR_END_SEQACCT_INFO PROCEDURE...');
1490: END IF;
1491:
1492: OPEN get_seq_cur;
1493: LOOP -- getseq loop
1493: LOOP -- getseq loop
1494: FETCH get_seq_cur INTO vg_seq_id, vg_seq;
1495:
1496: IF get_seq_cur%FOUND THEN -- get_seq_cur
1497: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1498: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING SEQUENCE '||TO_CHAR(VG_SEQ)||
1499: ' and sequence_id '||TO_CHAR(vg_seq_id));
1500: END IF;
1501:
1494: FETCH get_seq_cur INTO vg_seq_id, vg_seq;
1495:
1496: IF get_seq_cur%FOUND THEN -- get_seq_cur
1497: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1498: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING SEQUENCE '||TO_CHAR(VG_SEQ)||
1499: ' and sequence_id '||TO_CHAR(vg_seq_id));
1500: END IF;
1501:
1502: vl_seqrec_flag := 'Y';
1505: LOOP -- getacct loop
1506: FETCH get_acct_cur INTO vg_from_acct,vg_to_acct;
1507:
1508: IF get_acct_cur%FOUND THEN -- get_acct_cur
1509: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1510: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING THE RECORD WITH ACCOUNT '||
1511: 'flag:'||vg_acct_flag||', From Account:'||vg_from_acct
1512: ||', To Account:'|| vg_to_acct);
1513: END IF;
1506: FETCH get_acct_cur INTO vg_from_acct,vg_to_acct;
1507:
1508: IF get_acct_cur%FOUND THEN -- get_acct_cur
1509: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1510: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING THE RECORD WITH ACCOUNT '||
1511: 'flag:'||vg_acct_flag||', From Account:'||vg_from_acct
1512: ||', To Account:'|| vg_to_acct);
1513: END IF;
1514:
1526: FETCH get_count_cur INTO vl_cnt;
1527: CLOSE get_count_cur;
1528:
1529: IF (vl_cnt > 0) THEN
1530: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1531: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO ACCOUNT INFORMATION FOUND '||
1532: 'with '||vg_acct_flag||' appropriation status for '||
1533: 'the Sequence '||TO_CHAR(vg_seq));
1534: END IF;
1527: CLOSE get_count_cur;
1528:
1529: IF (vl_cnt > 0) THEN
1530: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1531: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO ACCOUNT INFORMATION FOUND '||
1532: 'with '||vg_acct_flag||' appropriation status for '||
1533: 'the Sequence '||TO_CHAR(vg_seq));
1534: END IF;
1535: ELSE
1532: 'with '||vg_acct_flag||' appropriation status for '||
1533: 'the Sequence '||TO_CHAR(vg_seq));
1534: END IF;
1535: ELSE
1536: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1537: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO ACCOUNT INFORMATION FOUND '||
1538: 'for the Sequence '||TO_CHAR(vg_seq));
1539: END IF;
1540: END IF;
1533: 'the Sequence '||TO_CHAR(vg_seq));
1534: END IF;
1535: ELSE
1536: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1537: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO ACCOUNT INFORMATION FOUND '||
1538: 'for the Sequence '||TO_CHAR(vg_seq));
1539: END IF;
1540: END IF;
1541: --RETURN;
1539: END IF;
1540: END IF;
1541: --RETURN;
1542: ELSE
1543: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1544: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1545: ' PROCESSING IS DONE FOR THE SEQUENCE '
1546: ||TO_CHAR(vg_seq));
1547: END IF;
1540: END IF;
1541: --RETURN;
1542: ELSE
1543: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1544: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1545: ' PROCESSING IS DONE FOR THE SEQUENCE '
1546: ||TO_CHAR(vg_seq));
1547: END IF;
1548: --EXIT;
1553: END LOOP; -- getacct loop
1554: CLOSE get_acct_cur;
1555: ELSE -- get_seq_cur
1556: IF (vl_seqrec_flag = 'N') THEN
1557: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1558: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO SEQUENCES FOUND FOR THE GROUP ID '
1559: ||TO_CHAR(vg_group_id));
1560: END IF;
1561: RETURN;
1554: CLOSE get_acct_cur;
1555: ELSE -- get_seq_cur
1556: IF (vl_seqrec_flag = 'N') THEN
1557: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1558: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO SEQUENCES FOUND FOR THE GROUP ID '
1559: ||TO_CHAR(vg_group_id));
1560: END IF;
1561: RETURN;
1562: ELSE
1559: ||TO_CHAR(vg_group_id));
1560: END IF;
1561: RETURN;
1562: ELSE
1563: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1564: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING IS DONE FOR THE GROUP ID '
1565:
1566: ||TO_CHAR(vg_group_id));
1567: END IF;
1560: END IF;
1561: RETURN;
1562: ELSE
1563: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1564: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING IS DONE FOR THE GROUP ID '
1565:
1566: ||TO_CHAR(vg_group_id));
1567: END IF;
1568: EXIT;
1580:
1581: WHEN OTHERS THEN
1582: vp_retcode := 2 ;
1583: vp_errbuf := SQLERRM ||' -- Error in Get_Year_End_SeqAcct_Info procedure.' ;
1584: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1585: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
1586: 'When Others Exception ' || vp_errbuf );
1587: END IF;
1588: RETURN ;
1581: WHEN OTHERS THEN
1582: vp_retcode := 2 ;
1583: vp_errbuf := SQLERRM ||' -- Error in Get_Year_End_SeqAcct_Info procedure.' ;
1584: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1585: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
1586: 'When Others Exception ' || vp_errbuf );
1587: END IF;
1588: RETURN ;
1589:
1629:
1630: l_module_name := g_module_name || 'Determine_Child_Accounts ';
1631:
1632:
1633: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1634: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN DETERMINE_CHILD_ACCOUNTS PROCEDURE...');
1635: END IF;
1636:
1637: BEGIN
1630: l_module_name := g_module_name || 'Determine_Child_Accounts ';
1631:
1632:
1633: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1634: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN DETERMINE_CHILD_ACCOUNTS PROCEDURE...');
1635: END IF;
1636:
1637: BEGIN
1638: -- Check to see if the from account is a parent
1652: END;
1653:
1654: IF (vl_parent_cnt = 0) THEN -- parent_cnt
1655: -- the from account is not a parent
1656: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1657: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FROM ACCOUNT IS NOT A PARENT');
1658: END IF;
1659: vg_child_acct := vg_from_acct;
1660:
1653:
1654: IF (vl_parent_cnt = 0) THEN -- parent_cnt
1655: -- the from account is not a parent
1656: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1657: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FROM ACCOUNT IS NOT A PARENT');
1658: END IF;
1659: vg_child_acct := vg_from_acct;
1660:
1661: -- Call Determine_Balance_Read_Flag procedure
1663:
1664: IF (vp_retcode <> 0) THEN
1665: RAISE e_error;
1666: END IF;
1667: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1668: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BALANCE_READ_FLAG IS '||
1669: vg_balance_read_flag);
1670: END IF;
1671:
1664: IF (vp_retcode <> 0) THEN
1665: RAISE e_error;
1666: END IF;
1667: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1668: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BALANCE_READ_FLAG IS '||
1669: vg_balance_read_flag);
1670: END IF;
1671:
1672: -- Call Get_Balances procedure to get balances for the from account
1676: RAISE e_error;
1677: END IF;
1678: ELSE -- parent_cnt
1679: -- the from account is a parent
1680: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1681: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FROM ACCOUNT IS A PARENT');
1682: END IF;
1683:
1684: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1677: END IF;
1678: ELSE -- parent_cnt
1679: -- the from account is a parent
1680: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1681: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FROM ACCOUNT IS A PARENT');
1682: END IF;
1683:
1684: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1685: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CHECKING TO SEE IF THE PARENT HAS '||
1680: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1681: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FROM ACCOUNT IS A PARENT');
1682: END IF;
1683:
1684: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1685: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CHECKING TO SEE IF THE PARENT HAS '||
1686: 'any balances.');
1687: END IF;
1688:
1681: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FROM ACCOUNT IS A PARENT');
1682: END IF;
1683:
1684: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1685: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CHECKING TO SEE IF THE PARENT HAS '||
1686: 'any balances.');
1687: END IF;
1688:
1689: vl_select := 'SELECT COUNT(*)
1705: vg_fund_value,vg_from_acct,vg_sob_id,
1706: vg_coa_id,vp_closing_fyr,vg_closing_period,vg_currency;
1707:
1708: IF (vl_bal_cnt > 0) THEN -- bal_check
1709: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1710: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PARENT ACCOUNT HAS BALANCES IN '||
1711: 'General Ledger. This is the scenario, when a child account '||
1712: 'has later been defined as a parent account.Getting the balances.');
1713: END IF;
1706: vg_coa_id,vp_closing_fyr,vg_closing_period,vg_currency;
1707:
1708: IF (vl_bal_cnt > 0) THEN -- bal_check
1709: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1710: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PARENT ACCOUNT HAS BALANCES IN '||
1711: 'General Ledger. This is the scenario, when a child account '||
1712: 'has later been defined as a parent account.Getting the balances.');
1713: END IF;
1714:
1712: 'has later been defined as a parent account.Getting the balances.');
1713: END IF;
1714:
1715: vg_child_acct := vg_from_acct;
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,' PROCESSING THE ACCT:'||
1718: vg_child_acct);
1719: END IF;
1720:
1713: END IF;
1714:
1715: vg_child_acct := vg_from_acct;
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,' PROCESSING THE ACCT:'||
1718: vg_child_acct);
1719: END IF;
1720:
1721: -- Call Process_Acct procedure
1725: RAISE e_error;
1726: END IF;
1727:
1728: ELSE -- bal_check
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,' PARENT ACCOUNT HAS NO BALANCES IN '||
1731: 'General Ledger.');
1732: END IF;
1733: END IF; -- bal_check
1726: END IF;
1727:
1728: ELSE -- bal_check
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,' PARENT ACCOUNT HAS NO BALANCES IN '||
1731: 'General Ledger.');
1732: END IF;
1733: END IF; -- bal_check
1734:
1735: -- For each child hierarchy range, get low and high value
1736: FOR vc_hierarchies IN get_hierarchies_cur LOOP -- Hierarchies
1737: vl_child_low := vc_hierarchies.child_flex_value_low;
1738: vl_child_high := vc_hierarchies.child_flex_value_high;
1739: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1740: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING HIERARCHY WITH LOW: '||
1741: vl_child_low||' and high: '||vl_child_high);
1742: END IF;
1743:
1736: FOR vc_hierarchies IN get_hierarchies_cur LOOP -- Hierarchies
1737: vl_child_low := vc_hierarchies.child_flex_value_low;
1738: vl_child_high := vc_hierarchies.child_flex_value_high;
1739: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1740: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING HIERARCHY WITH LOW: '||
1741: vl_child_low||' and high: '||vl_child_high);
1742: END IF;
1743:
1744: -- For each child hierarchy, find the child values
1744: -- For each child hierarchy, find the child values
1745: FOR vc_children IN get_child_values_cur LOOP -- children
1746: -- set the child account
1747: vg_child_acct := vc_children.flex_value;
1748: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1749: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING THE CHILD VALUE: '||
1750: vg_child_acct);
1751: END IF;
1752:
1745: FOR vc_children IN get_child_values_cur LOOP -- children
1746: -- set the child account
1747: vg_child_acct := vc_children.flex_value;
1748: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1749: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING THE CHILD VALUE: '||
1750: vg_child_acct);
1751: END IF;
1752:
1753: -- Call Process_Acct procedure
1767:
1768: WHEN OTHERS THEN
1769: vp_retcode := 2 ;
1770: vp_errbuf := SQLERRM ||' -- Error in Determine_Child_Accounts procedure.' ;
1771: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1772: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
1773: 'When Others Exception ' || vp_errbuf );
1774: END IF;
1775: RETURN ;
1768: WHEN OTHERS THEN
1769: vp_retcode := 2 ;
1770: vp_errbuf := SQLERRM ||' -- Error in Determine_Child_Accounts procedure.' ;
1771: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1772: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
1773: 'When Others Exception ' || vp_errbuf );
1774: END IF;
1775: RETURN ;
1776:
1793:
1794: IF (vp_retcode <> 0) THEN
1795: RAISE e_error;
1796: END IF;
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,' BALANCE_READ_FLAG IS '||
1799: vg_balance_read_flag);
1800: END IF;
1801:
1794: IF (vp_retcode <> 0) THEN
1795: RAISE e_error;
1796: END IF;
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,' BALANCE_READ_FLAG IS '||
1799: vg_balance_read_flag);
1800: END IF;
1801:
1802: -- Call Get_Balances procedure to get balances for the from account
1812:
1813: WHEN OTHERS THEN
1814: vp_retcode := 2 ;
1815: vp_errbuf := SQLERRM ||' -- Error in Process_Acct procedure.' ;
1816: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1817: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
1818: 'When Others Exception ' || vp_errbuf );
1819: END IF;
1820: RETURN ;
1813: WHEN OTHERS THEN
1814: vp_retcode := 2 ;
1815: vp_errbuf := SQLERRM ||' -- Error in Process_Acct procedure.' ;
1816: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1817: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
1818: 'When Others Exception ' || vp_errbuf );
1819: END IF;
1820: RETURN ;
1821: END Process_Acct;
1852: WHEN OTHERS THEN
1853: vp_retcode := 2;
1854: vp_errbuf := SQLERRM ||
1855: ' -- Error in Determine_Balance_Read_Flag procedure.' ;
1856: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1857: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
1858: 'When Others Exception ' || vp_errbuf );
1859: END IF;
1860: RETURN;
1853: vp_retcode := 2;
1854: vp_errbuf := SQLERRM ||
1855: ' -- Error in Determine_Balance_Read_Flag procedure.' ;
1856: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1857: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
1858: 'When Others Exception ' || vp_errbuf );
1859: END IF;
1860: RETURN;
1861: END Determine_Balance_Read_Flag;
1931: ' Get_Balances ';
1932: vl_rec_found_flag := 'N';
1933: i := 1;
1934: vl_exists := 'N';
1935: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1936: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE GET_BALANCES PROCEDURE, '||
1937:
1938: 'processing the account '||vg_child_acct||
1939: ' with balance_read_flag = '||vg_balance_read_flag);
1932: vl_rec_found_flag := 'N';
1933: i := 1;
1934: vl_exists := 'N';
1935: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1936: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE GET_BALANCES PROCEDURE, '||
1937:
1938: 'processing the account '||vg_child_acct||
1939: ' with balance_read_flag = '||vg_balance_read_flag);
1940: END IF;
1944: /* If there are no records defined in the Fv_Ye_Seq_Bal_Temp table *
1945: * for the fund and the from acct within the group that is being *
1946: * processed. This is the scenario when vg_balance_read_flag = N */
1947: IF (vg_balance_read_flag = 'N') THEN -- vg_balance_read_flag
1948: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1949: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASE: WHEN BALANCE_READ_FLAG = N');
1950: END IF;
1951:
1952: vl_select := 'SELECT glb.code_combination_id,
1945: * for the fund and the from acct within the group that is being *
1946: * processed. This is the scenario when vg_balance_read_flag = N */
1947: IF (vg_balance_read_flag = 'N') THEN -- vg_balance_read_flag
1948: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1949: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASE: WHEN BALANCE_READ_FLAG = N');
1950: END IF;
1951:
1952: vl_select := 'SELECT glb.code_combination_id,
1953: NVL(SUM(NVL(begin_balance_dr,0) + NVL(period_net_dr,0)) -
1965: AND glb.period_name = :closing_period
1966: AND glb.currency_code = :currency
1967: GROUP BY glb.code_combination_id ';
1968:
1969: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,vl_select);
1970: -- Open thru' native dynamic sql
1971: OPEN vc_getbal FOR vl_select USING vg_fund_value,
1972: vg_child_acct,
1973: vg_sob_id,
1985: IF (vc_getbal%FOUND) THEN -- vc_getbal found
1986: vl_rec_found_flag := 'Y';
1987:
1988: vg_bal_seq_amt := 0;
1989: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1990: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING THE CCID '
1991: ||TO_CHAR(vl_ccid)||
1992: ' and GL balance amt(vg_gl_bal_amt) is '
1993: ||TO_CHAR(vg_gl_bal_amt));
1986: vl_rec_found_flag := 'Y';
1987:
1988: vg_bal_seq_amt := 0;
1989: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1990: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING THE CCID '
1991: ||TO_CHAR(vl_ccid)||
1992: ' and GL balance amt(vg_gl_bal_amt) is '
1993: ||TO_CHAR(vg_gl_bal_amt));
1994: END IF;
2008: EXCEPTION
2009: WHEN NO_DATA_FOUND THEN
2010: vg_bal_seq_amt := 0;
2011: END;
2012: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2013: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AMOUNT FROM TEMP TABLE, '||
2014: 'for the ccid being processed is ' ||TO_CHAR(vg_bal_seq_amt));
2015: END IF;
2016:
2009: WHEN NO_DATA_FOUND THEN
2010: vg_bal_seq_amt := 0;
2011: END;
2012: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2013: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AMOUNT FROM TEMP TABLE, '||
2014: 'for the ccid being processed is ' ||TO_CHAR(vg_bal_seq_amt));
2015: END IF;
2016:
2017: -- set the balance_read_flag
2018: vg_balance_read_flag := 'Y';
2019:
2020: -- Sum the amt from the gl_balances and the temp table.
2021: vg_bal_seq_amt := vg_bal_seq_amt + vg_gl_bal_amt;
2022: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2023: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TOTAL AMOUNT IS '||
2024: TO_CHAR(vg_bal_seq_amt));
2025: END IF;
2026: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2019:
2020: -- Sum the amt from the gl_balances and the temp table.
2021: vg_bal_seq_amt := vg_bal_seq_amt + vg_gl_bal_amt;
2022: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2023: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TOTAL AMOUNT IS '||
2024: TO_CHAR(vg_bal_seq_amt));
2025: END IF;
2026: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2027: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CALLING DETERMINE_DRCR PROC.'||
2022: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2023: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TOTAL AMOUNT IS '||
2024: TO_CHAR(vg_bal_seq_amt));
2025: END IF;
2026: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2027: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CALLING DETERMINE_DRCR PROC.'||
2028: 'Case 1D');
2029: END IF;
2030: -- Call Determine_DrCr procedure
2023: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' TOTAL AMOUNT IS '||
2024: TO_CHAR(vg_bal_seq_amt));
2025: END IF;
2026: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2027: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CALLING DETERMINE_DRCR PROC.'||
2028: 'Case 1D');
2029: END IF;
2030: -- Call Determine_DrCr procedure
2031: -- Case 1D:
2054:
2055: IF (vl_rec_found_flag = 'Y') THEN -- vl_rec_found_flag
2056: EXIT;
2057: ELSE -- vl_rec_found_flag
2058: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2059: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO BALANCES FOUND IN General Ledger.'||
2060: 'Looking for balances in the Temp table');
2061: END IF;
2062: vg_bal_seq_amt := 0;
2055: IF (vl_rec_found_flag = 'Y') THEN -- vl_rec_found_flag
2056: EXIT;
2057: ELSE -- vl_rec_found_flag
2058: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2059: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO BALANCES FOUND IN General Ledger.'||
2060: 'Looking for balances in the Temp table');
2061: END IF;
2062: vg_bal_seq_amt := 0;
2063:
2061: END IF;
2062: vg_bal_seq_amt := 0;
2063:
2064: FOR vc_getsumtemp IN get_sumtemp_cur LOOP -- getsum loop
2065: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2066: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FOUND BALANCES '||
2067: 'in Temp Table.');
2068: END IF;
2069:
2062: vg_bal_seq_amt := 0;
2063:
2064: FOR vc_getsumtemp IN get_sumtemp_cur LOOP -- getsum loop
2065: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2066: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FOUND BALANCES '||
2067: 'in Temp Table.');
2068: END IF;
2069:
2070: -- put the ccid into the pl/sql table
2072: i := i + 1;
2073:
2074: -- Get the amt from the temp table
2075: vg_bal_seq_amt := vc_getsumtemp.amt;
2076: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2077: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AMOUNT FROM TEMP TABLE '||
2078: 'is '|| TO_CHAR(vg_bal_seq_amt));
2079: END IF;
2080:
2073:
2074: -- Get the amt from the temp table
2075: vg_bal_seq_amt := vc_getsumtemp.amt;
2076: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2077: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AMOUNT FROM TEMP TABLE '||
2078: 'is '|| TO_CHAR(vg_bal_seq_amt));
2079: END IF;
2080:
2081: -- Set the balance_read_flag
2080:
2081: -- Set the balance_read_flag
2082: vg_balance_read_flag := 'Y';
2083:
2084: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2085: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CALLING DETERMINE_DRCR'||
2086: ' proc. Case 2D');
2087: END IF;
2088: -- Call Determine_DrCr procedure
2081: -- Set the balance_read_flag
2082: vg_balance_read_flag := 'Y';
2083:
2084: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2085: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CALLING DETERMINE_DRCR'||
2086: ' proc. Case 2D');
2087: END IF;
2088: -- Call Determine_DrCr procedure
2089: -- Case 2D:
2100: END LOOP; -- loop for balances
2101:
2102: -- Get the count of ccids in pl/sql table
2103: vl_ccid_cnt := vt_ccid.COUNT;
2104: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2105: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' THE NUMBER OF CCIDS PROCESSED FROM '||
2106: 'gl_balances for the from acct is '||TO_CHAR(vl_ccid_cnt));
2107: END IF;
2108:
2101:
2102: -- Get the count of ccids in pl/sql table
2103: vl_ccid_cnt := vt_ccid.COUNT;
2104: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2105: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' THE NUMBER OF CCIDS PROCESSED FROM '||
2106: 'gl_balances for the from acct is '||TO_CHAR(vl_ccid_cnt));
2107: END IF;
2108:
2109: /* The below code is needed to handle the following scenrio: *
2121: * 4450 should also be moved to acct 4650. */
2122:
2123: FOR vc_addccid IN get_addccid_cur LOOP -- additional ccid
2124: vl_ccid := vc_addccid.code_combination_id;
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,' PROCESSING THE ADDITIONAL CCID '||
2127: TO_CHAR(vl_ccid));
2128: END IF;
2129:
2122:
2123: FOR vc_addccid IN get_addccid_cur LOOP -- additional ccid
2124: vl_ccid := vc_addccid.code_combination_id;
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,' PROCESSING THE ADDITIONAL CCID '||
2127: TO_CHAR(vl_ccid));
2128: END IF;
2129:
2130: FOR j IN 1..vl_ccid_cnt LOOP
2135: vl_exists := 'N';
2136: END IF;
2137: END LOOP;
2138:
2139: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2140: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' VL_EXISTS = '||VL_EXISTS);
2141: END IF;
2142:
2143: IF (vl_exists = 'N') THEN
2136: END IF;
2137: END LOOP;
2138:
2139: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2140: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' VL_EXISTS = '||VL_EXISTS);
2141: END IF;
2142:
2143: IF (vl_exists = 'N') THEN
2144: -- Get the amt from the temp table
2142:
2143: IF (vl_exists = 'N') THEN
2144: -- Get the amt from the temp table
2145: vg_bal_seq_amt := vc_addccid.amt;
2146: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2147: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AMOUNT FROM TEMP TABLE '||
2148: 'is '|| TO_CHAR(vg_bal_seq_amt)||
2149: ' for the additional ccid '||TO_CHAR(vl_ccid));
2150: END IF;
2143: IF (vl_exists = 'N') THEN
2144: -- Get the amt from the temp table
2145: vg_bal_seq_amt := vc_addccid.amt;
2146: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2147: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AMOUNT FROM TEMP TABLE '||
2148: 'is '|| TO_CHAR(vg_bal_seq_amt)||
2149: ' for the additional ccid '||TO_CHAR(vl_ccid));
2150: END IF;
2151:
2151:
2152: -- Set the balance_read_flag
2153: vg_balance_read_flag := 'Y';
2154:
2155: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2156: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CALLING DETERMINE_DRCR'||
2157: ' proc. Case 4D');
2158: END IF;
2159: -- Call Determine_DrCr procedure
2152: -- Set the balance_read_flag
2153: vg_balance_read_flag := 'Y';
2154:
2155: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2156: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CALLING DETERMINE_DRCR'||
2157: ' proc. Case 4D');
2158: END IF;
2159: -- Call Determine_DrCr procedure
2160: -- Case 4D:
2167:
2168: END LOOP; -- additional ccid
2169:
2170: ELSE -- vg_balance_read_flag
2171: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2172: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASE: WHEN BALANCE_READ_FLAG = Y');
2173: END IF;
2174:
2175: FOR vc_getsumseq IN get_sumtemp_seqcur LOOP -- getsumseq loop
2168: END LOOP; -- additional ccid
2169:
2170: ELSE -- vg_balance_read_flag
2171: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2172: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASE: WHEN BALANCE_READ_FLAG = Y');
2173: END IF;
2174:
2175: FOR vc_getsumseq IN get_sumtemp_seqcur LOOP -- getsumseq loop
2176: -- Get the amt from the temp table
2178:
2179: -- Set the balance_read_flag
2180: vg_balance_read_flag := 'Y';
2181:
2182: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2183: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CALLING DETERMINE_DRCR PROC.'||
2184: 'Case 3D');
2185: END IF;
2186: -- Call Determine_DrCr procedure
2179: -- Set the balance_read_flag
2180: vg_balance_read_flag := 'Y';
2181:
2182: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2183: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CALLING DETERMINE_DRCR PROC.'||
2184: 'Case 3D');
2185: END IF;
2186: -- Call Determine_DrCr procedure
2187: -- Case 3D:
2203:
2204: WHEN OTHERS THEN
2205: vp_retcode := 2 ;
2206: vp_errbuf := SQLERRM ||' -- Error in Get_Balances procedure.' ;
2207: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2208: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
2209: 'When Others Exception ' || vp_errbuf );
2210: END IF;
2211: RETURN;
2204: WHEN OTHERS THEN
2205: vp_retcode := 2 ;
2206: vp_errbuf := SQLERRM ||' -- Error in Get_Balances procedure.' ;
2207: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2208: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
2209: 'When Others Exception ' || vp_errbuf );
2210: END IF;
2211: RETURN;
2212: END Get_Balances;
2255:
2256:
2257:
2258:
2259: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2260: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN DETERMINE_DRCR PROCEDURE,'||
2261:
2262: ' processing ccid '||TO_CHAR(ccid));
2263: END IF;
2256:
2257:
2258:
2259: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2260: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN DETERMINE_DRCR PROCEDURE,'||
2261:
2262: ' processing ccid '||TO_CHAR(ccid));
2263: END IF;
2264: -- Determine the debit and credit flag
2335: l_ignore := dbms_sql.execute_and_fetch(l_cursor_id);
2336: dbms_sql.column_value(l_cursor_id, 1, vl_ccid);
2337: dbms_sql.close_cursor (l_cursor_id);
2338: IF (vl_ccid IS NULL) THEN
2339: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'No CCID Exists for the following Combination');
2340: l_counter := 0;
2341: FOR flex_rec IN flex_cursor (vg_coa_id) LOOP
2342: l_counter := l_counter + 1;
2343: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,flex_rec.application_column_name||'='|| vt_segments(l_counter));
2339: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'No CCID Exists for the following Combination');
2340: l_counter := 0;
2341: FOR flex_rec IN flex_cursor (vg_coa_id) LOOP
2342: l_counter := l_counter + 1;
2343: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,flex_rec.application_column_name||'='|| vt_segments(l_counter));
2344: END LOOP;
2345: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Please Create the CCID');
2346: RAISE e_invalid;
2347: END IF;
2341: FOR flex_rec IN flex_cursor (vg_coa_id) LOOP
2342: l_counter := l_counter + 1;
2343: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,flex_rec.application_column_name||'='|| vt_segments(l_counter));
2344: END LOOP;
2345: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Please Create the CCID');
2346: RAISE e_invalid;
2347: END IF;
2348: END IF;
2349: END IF;
2414: WHEN OTHERS THEN
2415: vp_retcode := 2 ;
2416: vp_errbuf := SQLERRM ||' -- Error in Determine_DrCr procedure.' ;
2417:
2418: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2419: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
2420: 'When Others Exception ' || vp_errbuf );
2421: END IF;
2422: RETURN;
2415: vp_retcode := 2 ;
2416: vp_errbuf := SQLERRM ||' -- Error in Determine_DrCr procedure.' ;
2417:
2418: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2419: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
2420: 'When Others Exception ' || vp_errbuf );
2421: END IF;
2422: RETURN;
2423:
2437:
2438: l_module_name := g_module_name ||
2439: 'Get_Segment_Values ';
2440:
2441: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2442: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN GET_SEGMENT_VALUES PROCEDURE,'||
2443:
2444: 'determing the segments for the ccid '||TO_CHAR(ccid));
2445: END IF;
2438: l_module_name := g_module_name ||
2439: 'Get_Segment_Values ';
2440:
2441: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2442: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN GET_SEGMENT_VALUES PROCEDURE,'||
2443:
2444: 'determing the segments for the ccid '||TO_CHAR(ccid));
2445: END IF;
2446:
2459:
2460: WHEN OTHERS THEN
2461: vp_retcode := 2 ;
2462: vp_errbuf := SQLERRM ||' -- Error in Get_Segment_Values procedure.' ;
2463: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2464: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
2465: 'When Others Exception ' || vp_errbuf );
2466: END IF;
2467:
2460: WHEN OTHERS THEN
2461: vp_retcode := 2 ;
2462: vp_errbuf := SQLERRM ||' -- Error in Get_Segment_Values procedure.' ;
2463: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2464: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
2465: 'When Others Exception ' || vp_errbuf );
2466: END IF;
2467:
2468: RETURN ;
2518: vl_found_flag := 'N';
2519:
2520:
2521:
2522: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2523: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN DETERMINE_PROCESSING_TYPE PROCEDURE'||
2524: ' with acct '||vg_child_acct);
2525: END IF;
2526:
2519:
2520:
2521:
2522: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2523: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN DETERMINE_PROCESSING_TYPE PROCEDURE'||
2524: ' with acct '||vg_child_acct);
2525: END IF;
2526:
2527: OPEN get_attrcnt_csr(vg_child_acct);
2529: CLOSE get_attrcnt_csr;
2530:
2531: IF (vl_cnt = 1) THEN -- child cnt
2532: -- Case when the processing acct has attributes in Facts Attributes table
2533: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2534: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASE: WHEN PROCESSING ACCT IS IN '||
2535: 'Facts Attributes Table');
2536: END IF;
2537: OPEN get_attributes_csr(vg_child_acct);
2530:
2531: IF (vl_cnt = 1) THEN -- child cnt
2532: -- Case when the processing acct has attributes in Facts Attributes table
2533: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2534: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASE: WHEN PROCESSING ACCT IS IN '||
2535: 'Facts Attributes Table');
2536: END IF;
2537: OPEN get_attributes_csr(vg_child_acct);
2538: FETCH get_attributes_csr INTO
2542: vl_found_flag := 'Y';
2543: ELSIF (vl_cnt = 0) THEN -- child cnt
2544: -- Case when the child acct has no attributes in Facts Attributes table,
2545: -- hence looking for the parent.
2546: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2547: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASE: WHEN PROCESSING ACCT IS NOT IN '||
2548: 'Facts Attributes Table, hence looking for the parent');
2549: END IF;
2550: vl_cnt := 0;
2543: ELSIF (vl_cnt = 0) THEN -- child cnt
2544: -- Case when the child acct has no attributes in Facts Attributes table,
2545: -- hence looking for the parent.
2546: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2547: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASE: WHEN PROCESSING ACCT IS NOT IN '||
2548: 'Facts Attributes Table, hence looking for the parent');
2549: END IF;
2550: vl_cnt := 0;
2551: FOR vc_parent IN get_parent_csr LOOP
2549: END IF;
2550: vl_cnt := 0;
2551: FOR vc_parent IN get_parent_csr LOOP
2552: vl_parent := vc_parent.parent_flex_value;
2553: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2554: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING PARENT '||VL_PARENT);
2555: END IF;
2556:
2557: OPEN get_attrcnt_csr(vl_parent);
2550: vl_cnt := 0;
2551: FOR vc_parent IN get_parent_csr LOOP
2552: vl_parent := vc_parent.parent_flex_value;
2553: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2554: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING PARENT '||VL_PARENT);
2555: END IF;
2556:
2557: OPEN get_attrcnt_csr(vl_parent);
2558: FETCH get_attrcnt_csr INTO vl_cnt;
2566: vl_plcode,vl_advflag,vl_transflag,vl_govtflag;
2567: CLOSE get_attributes_csr;
2568:
2569: vl_found_flag := 'Y';
2570: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2571: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASE: WHEN PARENT '||
2572: 'has attributes in FACTS Table');
2573: END IF;
2574: ELSE -- found flag
2567: CLOSE get_attributes_csr;
2568:
2569: vl_found_flag := 'Y';
2570: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2571: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASE: WHEN PARENT '||
2572: 'has attributes in FACTS Table');
2573: END IF;
2574: ELSE -- found flag
2575: -- Case when more than one parent is in the Facts Attributes table.
2574: ELSE -- found flag
2575: -- Case when more than one parent is in the Facts Attributes table.
2576: -- In this case, the processing type should be 0,since we do not
2577: -- know which acct to consider for getting the attributes.
2578: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2579: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASE: WHEN MORE THAN ONE '||
2580: 'parent has attributes in FACTS table');
2581: END IF;
2582: vl_found_flag := 'N';
2575: -- Case when more than one parent is in the Facts Attributes table.
2576: -- In this case, the processing type should be 0,since we do not
2577: -- know which acct to consider for getting the attributes.
2578: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2579: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CASE: WHEN MORE THAN ONE '||
2580: 'parent has attributes in FACTS table');
2581: END IF;
2582: vl_found_flag := 'N';
2583: EXIT;
2608: vl_process_type := 'FACTS I';
2609: ELSE
2610: vl_process_type := 'Regular';
2611: END IF;
2612: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2613: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING BY '||VL_PROCESS_TYPE);
2614: END IF;
2615:
2616: EXCEPTION
2609: ELSE
2610: vl_process_type := 'Regular';
2611: END IF;
2612: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2613: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING BY '||VL_PROCESS_TYPE);
2614: END IF;
2615:
2616: EXCEPTION
2617: WHEN OTHERS THEN
2616: EXCEPTION
2617: WHEN OTHERS THEN
2618: vp_retcode := 2 ;
2619: vp_errbuf := SQLERRM ||' -- Error in Determine_Processing_Type procedure.' ;
2620: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2621: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
2622: 'When Others Exception ' || vp_errbuf );
2623: END IF;
2624:
2617: WHEN OTHERS THEN
2618: vp_retcode := 2 ;
2619: vp_errbuf := SQLERRM ||' -- Error in Determine_Processing_Type procedure.' ;
2620: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2621: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
2622: 'When Others Exception ' || vp_errbuf );
2623: END IF;
2624:
2625: RETURN ;
2675: 'while deriving the period_net_dr and period_net_cr.' ;
2676: RETURN;
2677:
2678: END;
2679: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2680: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN INSERT_BALANCES PROCEDURE,'||
2681: 'inserting the following:');
2682: END IF;
2683: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2676: RETURN;
2677:
2678: END;
2679: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2680: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN INSERT_BALANCES PROCEDURE,'||
2681: 'inserting the following:');
2682: END IF;
2683: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2684: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CCID:'||TO_CHAR(CCID)||' ACCT:'||ACCT||
2679: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2680: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN INSERT_BALANCES PROCEDURE,'||
2681: 'inserting the following:');
2682: END IF;
2683: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2684: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CCID:'||TO_CHAR(CCID)||' ACCT:'||ACCT||
2685: ' balance read flag: '||read_flag);
2686: END IF;
2687: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2680: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN INSERT_BALANCES PROCEDURE,'||
2681: 'inserting the following:');
2682: END IF;
2683: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2684: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CCID:'||TO_CHAR(CCID)||' ACCT:'||ACCT||
2685: ' balance read flag: '||read_flag);
2686: END IF;
2687: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2688: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PERIOD NET DR:'||TO_CHAR(VL_PERIOD_DR)||
2683: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2684: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CCID:'||TO_CHAR(CCID)||' ACCT:'||ACCT||
2685: ' balance read flag: '||read_flag);
2686: END IF;
2687: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2688: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PERIOD NET DR:'||TO_CHAR(VL_PERIOD_DR)||
2689: ' period net cr:'|| TO_CHAR(vl_period_cr)||
2690: ' remaining balance:'||TO_CHAR(remaining_bal) );
2691: END IF;
2684: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CCID:'||TO_CHAR(CCID)||' ACCT:'||ACCT||
2685: ' balance read flag: '||read_flag);
2686: END IF;
2687: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2688: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PERIOD NET DR:'||TO_CHAR(VL_PERIOD_DR)||
2689: ' period net cr:'|| TO_CHAR(vl_period_cr)||
2690: ' remaining balance:'||TO_CHAR(remaining_bal) );
2691: END IF;
2692:
2780: EXCEPTION
2781: WHEN OTHERS THEN
2782: vp_retcode := 2 ;
2783: vp_errbuf := SQLERRM ||' -- Error in Insert_Balances procedure.' ;
2784: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2785: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
2786: 'When Others Exception ' || vp_errbuf );
2787: END IF;
2788:
2781: WHEN OTHERS THEN
2782: vp_retcode := 2 ;
2783: vp_errbuf := SQLERRM ||' -- Error in Insert_Balances procedure.' ;
2784: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2785: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
2786: 'When Others Exception ' || vp_errbuf );
2787: END IF;
2788:
2789: RETURN ;
2863: vl_ctr := 0;
2864: vl_prev_header_id := 0;
2865: vl_head_ctr := 0;
2866:
2867: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2868: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE UPDATE_CLOSING_STATUS PROCEDURE.....');
2869: END IF;
2870:
2871: -- Get the close requisition
2864: vl_prev_header_id := 0;
2865: vl_head_ctr := 0;
2866:
2867: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2868: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE UPDATE_CLOSING_STATUS PROCEDURE.....');
2869: END IF;
2870:
2871: -- Get the close requisition
2872: OPEN get_closereq_cur;
2873: FETCH get_closereq_cur INTO vl_close_req;
2874: CLOSE get_closereq_cur;
2875:
2876: IF (vl_close_req = 'N') THEN -- vl_close_req
2877: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2878: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CLOSE REQUISITIONS = N');
2879: END IF;
2880: RETURN;
2881: ELSE -- vl_close_req
2874: CLOSE get_closereq_cur;
2875:
2876: IF (vl_close_req = 'N') THEN -- vl_close_req
2877: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2878: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CLOSE REQUISITIONS = N');
2879: END IF;
2880: RETURN;
2881: ELSE -- vl_close_req
2882: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2878: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CLOSE REQUISITIONS = N');
2879: END IF;
2880: RETURN;
2881: ELSE -- vl_close_req
2882: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2883: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CLOSE REQUISITIONS = Y');
2884: END IF;
2885:
2886: -- Build the select statement to get the distribution details
2879: END IF;
2880: RETURN;
2881: ELSE -- vl_close_req
2882: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2883: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CLOSE REQUISITIONS = Y');
2884: END IF;
2885:
2886: -- Build the select statement to get the distribution details
2887: vl_dist_select := 'SELECT po.distribution_id,
2906: LOOP -- distrdetails loop
2907: FETCH vl_dist_retcur INTO vl_distr_id, vl_line_id,vl_req_num;
2908:
2909: IF vl_dist_retcur%FOUND THEN -- details found
2910: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2911: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING THE REQUISITION NUMBER '||
2912: vl_req_num||' with requisition line id '
2913: ||TO_CHAR(vl_line_id)||' and the distribution id '
2914: ||TO_CHAR(vl_distr_id) );
2907: FETCH vl_dist_retcur INTO vl_distr_id, vl_line_id,vl_req_num;
2908:
2909: IF vl_dist_retcur%FOUND THEN -- details found
2910: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2911: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' PROCESSING THE REQUISITION NUMBER '||
2912: vl_req_num||' with requisition line id '
2913: ||TO_CHAR(vl_line_id)||' and the distribution id '
2914: ||TO_CHAR(vl_distr_id) );
2915: END IF;
2932: -- Update the Po_Req_Distributions_All table
2933: UPDATE Po_Req_Distributions_All
2934: SET gl_closed_date = vg_end_date
2935: WHERE distribution_id = vl_distr_id;
2936: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2937: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CLOSED THE DISTRIBUTION WITH '||
2938: 'distribution_id '||TO_CHAR(vl_distr_id));
2939: END IF;
2940:
2933: UPDATE Po_Req_Distributions_All
2934: SET gl_closed_date = vg_end_date
2935: WHERE distribution_id = vl_distr_id;
2936: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2937: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CLOSED THE DISTRIBUTION WITH '||
2938: 'distribution_id '||TO_CHAR(vl_distr_id));
2939: END IF;
2940:
2941: ELSE -- details found
2941: ELSE -- details found
2942: IF (vl_rec_found_flag = 'Y') THEN
2943: EXIT;
2944: ELSE
2945: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2946: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO REQUISITIONS FOUND TO '||
2947: 'be processed, where the balancing segment matches '||
2948: 'the fund value '|| vg_fund_value);
2949: END IF;
2942: IF (vl_rec_found_flag = 'Y') THEN
2943: EXIT;
2944: ELSE
2945: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2946: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO REQUISITIONS FOUND TO '||
2947: 'be processed, where the balancing segment matches '||
2948: 'the fund value '|| vg_fund_value);
2949: END IF;
2950: RETURN;
2953: END LOOP; -- distrdetails loop
2954: CLOSE vl_dist_retcur;
2955: END IF; -- vl_close_req
2956:
2957: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2958: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEGININNING PROCESSING FOR THE LINES....');
2959: END IF;
2960: vl_no_of_rows := vt_lines.COUNT;
2961: vl_last_row := vt_lines.LAST;
2954: CLOSE vl_dist_retcur;
2955: END IF; -- vl_close_req
2956:
2957: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2958: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEGININNING PROCESSING FOR THE LINES....');
2959: END IF;
2960: vl_no_of_rows := vt_lines.COUNT;
2961: vl_last_row := vt_lines.LAST;
2962: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2958: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEGININNING PROCESSING FOR THE LINES....');
2959: END IF;
2960: vl_no_of_rows := vt_lines.COUNT;
2961: vl_last_row := vt_lines.LAST;
2962: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2963: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NUMBER OF ROWS:'|| TO_CHAR(VL_NO_OF_ROWS)||
2964: ' Last Row: '||TO_CHAR(vl_Last_row));
2965: END IF;
2966:
2959: END IF;
2960: vl_no_of_rows := vt_lines.COUNT;
2961: vl_last_row := vt_lines.LAST;
2962: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2963: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NUMBER OF ROWS:'|| TO_CHAR(VL_NO_OF_ROWS)||
2964: ' Last Row: '||TO_CHAR(vl_Last_row));
2965: END IF;
2966:
2967: IF (vl_no_of_rows <> 0) THEN -- vl_no_of_rows lines
2971: -- Get the Line count
2972: OPEN get_lcount_cur;
2973: FETCH get_lcount_cur INTO vl_lines_count;
2974: CLOSE get_lcount_cur;
2975: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2976: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' VL_LINES_COUNT IS '||TO_CHAR(VL_LINES_COUNT));
2977: END IF;
2978:
2979: IF (vl_lines_count = 0) THEN -- vl_lines_count
2972: OPEN get_lcount_cur;
2973: FETCH get_lcount_cur INTO vl_lines_count;
2974: CLOSE get_lcount_cur;
2975: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2976: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' VL_LINES_COUNT IS '||TO_CHAR(VL_LINES_COUNT));
2977: END IF;
2978:
2979: IF (vl_lines_count = 0) THEN -- vl_lines_count
2980: -- Update the Po_Requisition_Lines_All table
2982: SET closed_code = 'FINALLY CLOSED'
2983: WHERE requisition_line_id = vt_lines(vl_index);
2984:
2985: vl_prt_line_id := vt_lines(vl_index);
2986: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2987: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CLOSED THE LINE WITH REQUISITION_LINE_ID '||
2988: TO_CHAR(vl_prt_line_id));
2989: END IF;
2990:
2983: WHERE requisition_line_id = vt_lines(vl_index);
2984:
2985: vl_prt_line_id := vt_lines(vl_index);
2986: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2987: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CLOSED THE LINE WITH REQUISITION_LINE_ID '||
2988: TO_CHAR(vl_prt_line_id));
2989: END IF;
2990:
2991: OPEN get_header_cur;
3008: vl_index := vl_index + 1;
3009: END LOOP; -- vl_index
3010:
3011: ELSE -- vl_no_of_rows lines
3012: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3013: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO REQUISITION LINES FOUND TO BE PROCESSED....');
3014: END IF;
3015: RETURN;
3016: END IF; -- vl_no_of_rows lines
3009: END LOOP; -- vl_index
3010:
3011: ELSE -- vl_no_of_rows lines
3012: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3013: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO REQUISITION LINES FOUND TO BE PROCESSED....');
3014: END IF;
3015: RETURN;
3016: END IF; -- vl_no_of_rows lines
3017: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3013: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO REQUISITION LINES FOUND TO BE PROCESSED....');
3014: END IF;
3015: RETURN;
3016: END IF; -- vl_no_of_rows lines
3017: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3018: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ENDING PROCESSING FOR THE LINES....');
3019: END IF;
3020:
3021: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3014: END IF;
3015: RETURN;
3016: END IF; -- vl_no_of_rows lines
3017: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3018: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ENDING PROCESSING FOR THE LINES....');
3019: END IF;
3020:
3021: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3022: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEGINNING PROCESSING FOR THE HEADERS....');
3017: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3018: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ENDING PROCESSING FOR THE LINES....');
3019: END IF;
3020:
3021: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3022: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEGINNING PROCESSING FOR THE HEADERS....');
3023: END IF;
3024: vl_no_of_rows := vt_headers.COUNT;
3025: vl_last_row := vt_headers.LAST;
3018: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ENDING PROCESSING FOR THE LINES....');
3019: END IF;
3020:
3021: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3022: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEGINNING PROCESSING FOR THE HEADERS....');
3023: END IF;
3024: vl_no_of_rows := vt_headers.COUNT;
3025: vl_last_row := vt_headers.LAST;
3026: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3022: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' BEGINNING PROCESSING FOR THE HEADERS....');
3023: END IF;
3024: vl_no_of_rows := vt_headers.COUNT;
3025: vl_last_row := vt_headers.LAST;
3026: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3027: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NUMBER OF ROWS:'|| TO_CHAR(VL_NO_OF_ROWS)||
3028: ' Last Row: '||TO_CHAR(vl_Last_row));
3029: END IF;
3030:
3023: END IF;
3024: vl_no_of_rows := vt_headers.COUNT;
3025: vl_last_row := vt_headers.LAST;
3026: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3027: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NUMBER OF ROWS:'|| TO_CHAR(VL_NO_OF_ROWS)||
3028: ' Last Row: '||TO_CHAR(vl_Last_row));
3029: END IF;
3030:
3031: IF (vl_no_of_rows <> 0) THEN -- vl_no_of_rows headers
3035: -- Get the Header count
3036: OPEN get_hcount_cur;
3037: FETCH get_hcount_cur INTO vl_lines_count;
3038: CLOSE get_hcount_cur;
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,' VL_LINES_COUNT(HDR) IS '||
3041: TO_CHAR(vl_lines_count));
3042: END IF;
3043:
3036: OPEN get_hcount_cur;
3037: FETCH get_hcount_cur INTO vl_lines_count;
3038: CLOSE get_hcount_cur;
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,' VL_LINES_COUNT(HDR) IS '||
3041: TO_CHAR(vl_lines_count));
3042: END IF;
3043:
3044: IF (vl_lines_count = 0) THEN -- vl_lines_count header
3047: SET closed_code = 'FINALLY CLOSED'
3048: WHERE requisition_header_id = vt_headers(vl_index);
3049:
3050: vl_prt_hdr_id := vt_headers(vl_index);
3051: -- IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3052: --FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3053: --' CLOSED THE HEADER WITH '|| 'requisition_header_id '|| TO_CHAR(vl_prt_hdr_id));
3054: -- END IF;
3055: END IF; -- vl_lines_count header
3048: WHERE requisition_header_id = vt_headers(vl_index);
3049:
3050: vl_prt_hdr_id := vt_headers(vl_index);
3051: -- IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3052: --FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
3053: --' CLOSED THE HEADER WITH '|| 'requisition_header_id '|| TO_CHAR(vl_prt_hdr_id));
3054: -- END IF;
3055: END IF; -- vl_lines_count header
3056:
3059: END IF;
3060: vl_index := vl_index + 1;
3061: END LOOP; -- headers loop
3062: ELSE -- vl_no_of_rows headers
3063: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3064: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO REQUISITION HEADERS FOUND TO BE PROCESSED....');
3065: END IF;
3066: END IF; -- vl_no_of_rows headers
3067: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3060: vl_index := vl_index + 1;
3061: END LOOP; -- headers loop
3062: ELSE -- vl_no_of_rows headers
3063: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3064: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO REQUISITION HEADERS FOUND TO BE PROCESSED....');
3065: END IF;
3066: END IF; -- vl_no_of_rows headers
3067: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3068: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ENDING PROCESSING FOR THE HEADERS....');
3063: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3064: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO REQUISITION HEADERS FOUND TO BE PROCESSED....');
3065: END IF;
3066: END IF; -- vl_no_of_rows headers
3067: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3068: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ENDING PROCESSING FOR THE HEADERS....');
3069: END IF;
3070:
3071: vt_lines.DELETE;
3064: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' NO REQUISITION HEADERS FOUND TO BE PROCESSED....');
3065: END IF;
3066: END IF; -- vl_no_of_rows headers
3067: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3068: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ENDING PROCESSING FOR THE HEADERS....');
3069: END IF;
3070:
3071: vt_lines.DELETE;
3072: vt_headers.DELETE;
3073: EXCEPTION
3074: WHEN OTHERS THEN
3075: vp_retcode := 2 ;
3076: vp_errbuf := SQLERRM ||' -- Error in Update_Closing_Status procedure.' ;
3077: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3078: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
3079: 'When Others Exception ' || vp_errbuf );
3080: END IF;
3081: RETURN ;
3074: WHEN OTHERS THEN
3075: vp_retcode := 2 ;
3076: vp_errbuf := SQLERRM ||' -- Error in Update_Closing_Status procedure.' ;
3077: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3078: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
3079: 'When Others Exception ' || vp_errbuf );
3080: END IF;
3081: RETURN ;
3082: END Update_Closing_Status;
3173: 'Populate_Gl_Interface ';
3174:
3175: vl_gl_source := '(''Budgetary Transaction'',''Year End Close'', ''Manual'')';
3176:
3177: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3178: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN POPULATE_GL_INTERFACE PROCEDURE....');
3179: END IF;
3180:
3181: -- Get the interface_run_id
3174:
3175: vl_gl_source := '(''Budgetary Transaction'',''Year End Close'', ''Manual'')';
3176:
3177: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3178: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN POPULATE_GL_INTERFACE PROCEDURE....');
3179: END IF;
3180:
3181: -- Get the interface_run_id
3182: vg_interface_run_id := Gl_Interface_Control_Pkg.Get_Unique_Run_Id;
3185: SELECT Gl_Interface_Control_S.NEXTVAL
3186: INTO vg_jrnl_group_id
3187: FROM DUAL;
3188:
3189: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3190: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' INTERFACE RUN ID: '||TO_CHAR(VG_INTERFACE_RUN_ID));
3191: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' JOURNAL GROUP ID: '||TO_CHAR(VG_JRNL_GROUP_ID));
3192: END IF;
3193:
3186: INTO vg_jrnl_group_id
3187: FROM DUAL;
3188:
3189: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3190: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' INTERFACE RUN ID: '||TO_CHAR(VG_INTERFACE_RUN_ID));
3191: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' JOURNAL GROUP ID: '||TO_CHAR(VG_JRNL_GROUP_ID));
3192: END IF;
3193:
3194: --Insert a control record in gl_interface_control for gl_import to work
3187: FROM DUAL;
3188:
3189: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3190: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' INTERFACE RUN ID: '||TO_CHAR(VG_INTERFACE_RUN_ID));
3191: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' JOURNAL GROUP ID: '||TO_CHAR(VG_JRNL_GROUP_ID));
3192: END IF;
3193:
3194: --Insert a control record in gl_interface_control for gl_import to work
3195: INSERT INTO Gl_Interface_Control
3245: vl_line_amount := 0;
3246:
3247:
3248: IF (vc_journals.balance_read_flag = 'N') THEN -- balance_read_flag
3249: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3250: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PROCESSING TO ACCOUNT ' || VC_JOURNALS.ACCOUNT_SEG);
3251: END IF;
3252: Insert_Gl_Interface_Record(vc_journals.period_net_dr,
3253: vc_journals.period_net_cr, vl_reference_1,
3246:
3247:
3248: IF (vc_journals.balance_read_flag = 'N') THEN -- balance_read_flag
3249: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3250: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PROCESSING TO ACCOUNT ' || VC_JOURNALS.ACCOUNT_SEG);
3251: END IF;
3252: Insert_Gl_Interface_Record(vc_journals.period_net_dr,
3253: vc_journals.period_net_cr, vl_reference_1,
3254: vl_period_name,vl_trading_partner);
3254: vl_period_name,vl_trading_partner);
3255:
3256: ELSE -- balance_read_flag
3257: -- If it is a from account, then check which processing to be done.
3258: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3259: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PROCESSING FROM ACCOUNT: ' || VC_JOURNALS.ACCOUNT_SEG||
3260: ' CCID: '||vl_ccid);
3261: END IF;
3262:
3255:
3256: ELSE -- balance_read_flag
3257: -- If it is a from account, then check which processing to be done.
3258: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3259: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PROCESSING FROM ACCOUNT: ' || VC_JOURNALS.ACCOUNT_SEG||
3260: ' CCID: '||vl_ccid);
3261: END IF;
3262:
3263: IF (vl_ptype = 1) THEN -- vl_ptype
3262:
3263: IF (vl_ptype = 1) THEN -- vl_ptype
3264: -- FACTS I processing
3265: -- Check if the attribute exits and there are balances in the Facts table
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,'FACTS I PROCESSING');
3268: END IF;
3269:
3270: vl_amount := (NVL(vc_journals.period_net_cr,0)
3263: IF (vl_ptype = 1) THEN -- vl_ptype
3264: -- FACTS I processing
3265: -- Check if the attribute exits and there are balances in the Facts table
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,'FACTS I PROCESSING');
3268: END IF;
3269:
3270: vl_amount := (NVL(vc_journals.period_net_cr,0)
3271: - NVL(vc_journals.period_net_dr,0) );
3268: END IF;
3269:
3270: vl_amount := (NVL(vc_journals.period_net_cr,0)
3271: - NVL(vc_journals.period_net_dr,0) );
3272: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3273: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'AMOUNT TO BE MATCHED ' || VL_AMOUNT);
3274: END IF;
3275:
3276: IF ((vg_factsi_attr_exists = 'Y')
3269:
3270: vl_amount := (NVL(vc_journals.period_net_cr,0)
3271: - NVL(vc_journals.period_net_dr,0) );
3272: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3273: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'AMOUNT TO BE MATCHED ' || VL_AMOUNT);
3274: END IF;
3275:
3276: IF ((vg_factsi_attr_exists = 'Y')
3277: AND (vg_factsi_bal_cnt > 0)) THEN -- facts attr
3274: END IF;
3275:
3276: IF ((vg_factsi_attr_exists = 'Y')
3277: AND (vg_factsi_bal_cnt > 0)) THEN -- facts attr
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,'FACTS I ATTRIBUTE EXISTS AND THERE ARE '||
3280: 'balances in FACTS table.');
3281: END IF;
3282:
3275:
3276: IF ((vg_factsi_attr_exists = 'Y')
3277: AND (vg_factsi_bal_cnt > 0)) THEN -- facts attr
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,'FACTS I ATTRIBUTE EXISTS AND THERE ARE '||
3280: 'balances in FACTS table.');
3281: END IF;
3282:
3283: OPEN ccid_cnt_csr;
3285: CLOSE ccid_cnt_csr;
3286:
3287: IF (vl_ccid_cnt = 0) THEN -- ccid cnt
3288: -- ccid does not exist in facts table
3289: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3290: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'BALANCES WILL NOT BE CLOSED BY '||
3291:
3292: 'the FACTS I F/N and trading partner attributes for the '||
3293: 'code combination id '||vl_ccid||', since the code '||
3286:
3287: IF (vl_ccid_cnt = 0) THEN -- ccid cnt
3288: -- ccid does not exist in facts table
3289: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3290: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'BALANCES WILL NOT BE CLOSED BY '||
3291:
3292: 'the FACTS I F/N and trading partner attributes for the '||
3293: 'code combination id '||vl_ccid||', since the code '||
3294: 'combination id does not exist in Fv_Facts1_Period_Balances_v.');
3292: 'the FACTS I F/N and trading partner attributes for the '||
3293: 'code combination id '||vl_ccid||', since the code '||
3294: 'combination id does not exist in Fv_Facts1_Period_Balances_v.');
3295: END IF;
3296: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3297: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TO CLOSE BY FACTS I F/N AND '||
3298:
3299: 'trading partner attributes for this code combination id, '||
3300: 'delete the journal entries created by this process, '||
3293: 'code combination id '||vl_ccid||', since the code '||
3294: 'combination id does not exist in Fv_Facts1_Period_Balances_v.');
3295: END IF;
3296: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3297: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TO CLOSE BY FACTS I F/N AND '||
3298:
3299: 'trading partner attributes for this code combination id, '||
3300: 'delete the journal entries created by this process, '||
3301: 'if any, run the FACTS I Interface Program with all edit '||
3309: -- ccid exists in facts table
3310: IF (vl_amount <> vl_factsi_amount) THEN -- amt matching
3311: -- amount from year end table does not match with amt from
3312: -- facts table.
3313: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3314: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'BALANCES WILL NOT BE CLOSED BY '||
3315: 'the FACTS I F/N and trading partner attributes for the '||
3316: 'code combination id '||vl_ccid||', since the balances '||
3317: 'in GL does not equal to the balances in '||
3310: IF (vl_amount <> vl_factsi_amount) THEN -- amt matching
3311: -- amount from year end table does not match with amt from
3312: -- facts table.
3313: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3314: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'BALANCES WILL NOT BE CLOSED BY '||
3315: 'the FACTS I F/N and trading partner attributes for the '||
3316: 'code combination id '||vl_ccid||', since the balances '||
3317: 'in GL does not equal to the balances in '||
3318: 'Fv_Facts1_Period_Balances_v.');
3316: 'code combination id '||vl_ccid||', since the balances '||
3317: 'in GL does not equal to the balances in '||
3318: 'Fv_Facts1_Period_Balances_v.');
3319: END IF;
3320: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3321: 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, '||
3322: 'delete the journal entries created by this process, '||
3323: 'if any, run the FACTS I Interface Program with all edit '||
3324: 'checks passed by period '||vg_closing_period||
3317: 'in GL does not equal to the balances in '||
3318: 'Fv_Facts1_Period_Balances_v.');
3319: END IF;
3320: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3321: 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, '||
3322: 'delete the journal entries created by this process, '||
3323: 'if any, run the FACTS I Interface Program with all edit '||
3324: 'checks passed by period '||vg_closing_period||
3325: 'and rerun the Year End Close Program.');
3330: vl_period_name,vl_trading_partner);
3331: ELSE -- amt matching
3332: -- amount from year end table matches with amt from
3333: -- facts table.
3334: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3335: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'AMOUNT MATCHED');
3336: END IF;
3337: FOR vc_factsi IN factsi_bal_csr LOOP -- bal loop
3338: vl_factsi_tempamt := vc_factsi.amount;
3331: ELSE -- amt matching
3332: -- amount from year end table matches with amt from
3333: -- facts table.
3334: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3335: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'AMOUNT MATCHED');
3336: END IF;
3337: FOR vc_factsi IN factsi_bal_csr LOOP -- bal loop
3338: vl_factsi_tempamt := vc_factsi.amount;
3339: IF (vl_factsi_tempamt > 0) THEN
3354:
3355: END IF; -- ccid cnt
3356:
3357: ELSE -- facts attr
3358: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3359: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' EITHER FACTS I ATTRIBUTE DOES NOT EXISTS '||
3360: 'or there are no balances in FACTS table.');
3361: END IF;
3362: Insert_Gl_Interface_Record(vc_journals.period_net_dr,
3355: END IF; -- ccid cnt
3356:
3357: ELSE -- facts attr
3358: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3359: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' EITHER FACTS I ATTRIBUTE DOES NOT EXISTS '||
3360: 'or there are no balances in FACTS table.');
3361: END IF;
3362: Insert_Gl_Interface_Record(vc_journals.period_net_dr,
3363: vc_journals.period_net_cr, vl_reference_1,
3474: WHEN OTHERS THEN
3475: vp_retcode := 2;
3476: vp_errbuf := SQLERRM||
3477: ' Parse cursor error in Populate_Gl_Interface procedure.';
3478: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,l_module_name, vp_errbuf) ;
3479: RETURN;
3480: END ;
3481:
3482: -- Bind the variables
3513: WHEN OTHERS THEN
3514: vp_retcode := 2 ;
3515: vp_errbuf := SQLERRM||
3516: ' Execute cursor error in Populate_Gl_Interface procedure.';
3517: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,l_module_name, vp_errbuf) ;
3518: END ;
3519:
3520: LOOP
3521:
3550: END IF;
3551:
3552: -- vl_reference_1 := gl_record.reference_1;
3553: IF vl_line_amount <> 0 THEN -- consider only non zero balance lines
3554: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3555: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE AMOUNT ' || VL_LINE_AMOUNT);
3556: END IF;
3557: vl_running_amount := vl_running_amount + vl_line_amount;
3558:
3551:
3552: -- vl_reference_1 := gl_record.reference_1;
3553: IF vl_line_amount <> 0 THEN -- consider only non zero balance lines
3554: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3555: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' LINE AMOUNT ' || VL_LINE_AMOUNT);
3556: END IF;
3557: vl_running_amount := vl_running_amount + vl_line_amount;
3558:
3559: vl_amount_dr := 0;
3577: EXCEPTION
3578: WHEN OTHERS THEN
3579: vp_retcode := SQLCODE ;
3580: VP_ERRBUF := SQLERRM ;
3581: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,l_module_name, vp_errbuf) ;
3582: RETURN ;
3583: END ;
3584:
3585: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3581: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,l_module_name, vp_errbuf) ;
3582: RETURN ;
3583: END ;
3584:
3585: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3586: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'AMOUNT MATCHED ' || VL_RUNNING_AMOUNT);
3587: END IF;
3588:
3589: FOR facts2_ending_balance_rec IN (SELECT ffeb.ending_balance_cr,
3582: RETURN ;
3583: END ;
3584:
3585: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3586: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'AMOUNT MATCHED ' || VL_RUNNING_AMOUNT);
3587: END IF;
3588:
3589: FOR facts2_ending_balance_rec IN (SELECT ffeb.ending_balance_cr,
3590: ffeb.ending_balance_dr,
3616: -- IF (vl_amount < 0) THEN
3617:
3618: IF (vl_amount + vl_running_amount < 0) THEN
3619: vl_amount_cr := ABS(vl_amount + vl_running_amount);
3620: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3621: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'DIFFERENCE CR AMOUNT ADDED ' || VL_AMOUNT_CR);
3622: END IF;
3623: ELSE
3624: vl_amount_dr := ABS(vl_amount + vl_running_amount);
3617:
3618: IF (vl_amount + vl_running_amount < 0) THEN
3619: vl_amount_cr := ABS(vl_amount + vl_running_amount);
3620: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3621: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'DIFFERENCE CR AMOUNT ADDED ' || VL_AMOUNT_CR);
3622: END IF;
3623: ELSE
3624: vl_amount_dr := ABS(vl_amount + vl_running_amount);
3625: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3621: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'DIFFERENCE CR AMOUNT ADDED ' || VL_AMOUNT_CR);
3622: END IF;
3623: ELSE
3624: vl_amount_dr := ABS(vl_amount + vl_running_amount);
3625: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3626: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'DIFFERENCE DR AMOUNT ADDED ' || VL_AMOUNT_DR);
3627: END IF;
3628: END IF;
3629: -- Bug 7150443. Added vl_public_law_code to the call below.
3622: END IF;
3623: ELSE
3624: vl_amount_dr := ABS(vl_amount + vl_running_amount);
3625: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3626: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'DIFFERENCE DR AMOUNT ADDED ' || VL_AMOUNT_DR);
3627: END IF;
3628: END IF;
3629: -- Bug 7150443. Added vl_public_law_code to the call below.
3630: -- Reverted the change made for above.
3640: END IF; -- balance_read_flag
3641: END LOOP; -- journal_entries loop
3642:
3643:
3644: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3645: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AFTER INSERTING INTO GL_INTERFACE....');
3646: END IF;
3647:
3648: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3641: END LOOP; -- journal_entries loop
3642:
3643:
3644: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3645: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AFTER INSERTING INTO GL_INTERFACE....');
3646: END IF;
3647:
3648: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3649: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CALLING THE JOURNAL IMPORT PROGRAM....');
3644: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3645: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AFTER INSERTING INTO GL_INTERFACE....');
3646: END IF;
3647:
3648: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3649: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CALLING THE JOURNAL IMPORT PROGRAM....');
3650: END IF;
3651: -- Submit a Concurrent request to invoke journal import
3652: vl_req_id := FND_REQUEST.SUBMIT_REQUEST('SQLGL',
3645: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AFTER INSERTING INTO GL_INTERFACE....');
3646: END IF;
3647:
3648: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3649: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CALLING THE JOURNAL IMPORT PROGRAM....');
3650: END IF;
3651: -- Submit a Concurrent request to invoke journal import
3652: vl_req_id := FND_REQUEST.SUBMIT_REQUEST('SQLGL',
3653: 'GLLEZL',
3657: TO_CHAR(vg_interface_run_id),
3658: TO_CHAR(vg_sob_id),
3659: 'N', '', '', 'N', 'W');
3660:
3661: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3662: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' THE REQUEST_ID IS '||VL_REQ_ID);
3663: END IF;
3664:
3665: -- if concurrent request submission failed then abort process
3658: TO_CHAR(vg_sob_id),
3659: 'N', '', '', 'N', 'W');
3660:
3661: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3662: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' THE REQUEST_ID IS '||VL_REQ_ID);
3663: END IF;
3664:
3665: -- if concurrent request submission failed then abort process
3666: IF (vl_req_id = 0) THEN
3663: END IF;
3664:
3665: -- if concurrent request submission failed then abort process
3666: IF (vl_req_id = 0) THEN
3667: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3668: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' JOURNAL IMPORT REQUEST NOT SUBMITTED.');
3669: END IF;
3670: vp_errbuf := 'Cannot submit journal import program';
3671: vp_retcode := 1;
3664:
3665: -- if concurrent request submission failed then abort process
3666: IF (vl_req_id = 0) THEN
3667: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3668: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' JOURNAL IMPORT REQUEST NOT SUBMITTED.');
3669: END IF;
3670: vp_errbuf := 'Cannot submit journal import program';
3671: vp_retcode := 1;
3672: ROLLBACK;
3671: vp_retcode := 1;
3672: ROLLBACK;
3673: RETURN;
3674: ELSE
3675: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3676: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' JOURNAL IMPORT REQUEST SUBMITTED SUCCESSFULLY.');
3677: END IF;
3678: COMMIT;
3679: END IF;
3672: ROLLBACK;
3673: RETURN;
3674: ELSE
3675: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3676: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' JOURNAL IMPORT REQUEST SUBMITTED SUCCESSFULLY.');
3677: END IF;
3678: COMMIT;
3679: END IF;
3680:
3699: EXCEPTION
3700: WHEN OTHERS THEN
3701: vp_retcode := 2;
3702: vp_errbuf := SQLERRM || '--Error in Populate_Gl_Interface procedure.';
3703: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3704: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
3705: 'When Others Exception ' || vp_errbuf );
3706: END IF;
3707: RETURN;
3700: WHEN OTHERS THEN
3701: vp_retcode := 2;
3702: vp_errbuf := SQLERRM || '--Error in Populate_Gl_Interface procedure.';
3703: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3704: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
3705: 'When Others Exception ' || vp_errbuf );
3706: END IF;
3707: RETURN;
3708: END Populate_Gl_Interface;
3718: BEGIN
3719:
3720: l_module_name := g_module_name || 'Cleanup_Gl_Interface ';
3721:
3722: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3723: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE CLEANUP_GL_INTERFACE PROCEDURE....');
3724: END IF;
3725:
3726: -- Delete from Gl_Interface table
3719:
3720: l_module_name := g_module_name || 'Cleanup_Gl_Interface ';
3721:
3722: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3723: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE CLEANUP_GL_INTERFACE PROCEDURE....');
3724: END IF;
3725:
3726: -- Delete from Gl_Interface table
3727: DELETE FROM Gl_Interface
3732: EXCEPTION
3733: WHEN OTHERS THEN
3734: vp_retcode := 2;
3735: vp_errbuf := SQLERRM || '--Error in Cleanup_Gl_Interface procedure.';
3736: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3737: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
3738: 'When Others Exception ' || vp_errbuf );
3739: END IF;
3740:
3733: WHEN OTHERS THEN
3734: vp_retcode := 2;
3735: vp_errbuf := SQLERRM || '--Error in Cleanup_Gl_Interface procedure.';
3736: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3737: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
3738: 'When Others Exception ' || vp_errbuf );
3739: END IF;
3740:
3741: RETURN;
3759:
3760: BEGIN
3761: l_module_name := g_module_name || 'Submit_Report ';
3762:
3763: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3764: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE SUBMIT_REPORT PROCEDURE....');
3765: END IF;
3766:
3767: vl_req_id := Fnd_Request.Submit_Request('FV','FVXYECER','','',FALSE,
3760: BEGIN
3761: l_module_name := g_module_name || 'Submit_Report ';
3762:
3763: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3764: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE SUBMIT_REPORT PROCEDURE....');
3765: END IF;
3766:
3767: vl_req_id := Fnd_Request.Submit_Request('FV','FVXYECER','','',FALSE,
3768: vg_sob_id,vp_closing_fyr,vp_timeframe,
3774: ' Year End Execution Report';
3775: RETURN;
3776: ELSE
3777: COMMIT;
3778: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3779: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' YEAR END EXECUTION REPORT IS SUCCESSFULLY '||
3780: 'submitted.....');
3781: END IF;
3782: END IF;
3775: RETURN;
3776: ELSE
3777: COMMIT;
3778: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3779: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' YEAR END EXECUTION REPORT IS SUCCESSFULLY '||
3780: 'submitted.....');
3781: END IF;
3782: END IF;
3783:
3917: EXCEPTION
3918: WHEN OTHERS THEN
3919: vp_retcode := 2;
3920: vp_errbuf := SQLERRM || '--Error in Insert_Gl_Interface_Record procedure.';
3921: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3922: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
3923: 'When Others Exception ' || vp_errbuf );
3924: END IF;
3925: END insert_gl_interface_record;
3918: WHEN OTHERS THEN
3919: vp_retcode := 2;
3920: vp_errbuf := SQLERRM || '--Error in Insert_Gl_Interface_Record procedure.';
3921: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3922: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
3923: 'When Others Exception ' || vp_errbuf );
3924: END IF;
3925: END insert_gl_interface_record;
3926: -----------------------------------------------------------------------------
3953: vl_invalid_fund varchar2(1);
3954: BEGIN
3955: l_module_name := g_module_name || 'Check_bal_seg_value ';
3956: vl_invalid_fund := 'Y';
3957: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3958: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
3959: l_module_name,
3960: ' IN CHECK_BAL_SEG_VALUE PROCEDURE '||
3961: 'with the following Parameters passed to the process:');
3954: BEGIN
3955: l_module_name := g_module_name || 'Check_bal_seg_value ';
3956: vl_invalid_fund := 'Y';
3957: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3958: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
3959: l_module_name,
3960: ' IN CHECK_BAL_SEG_VALUE PROCEDURE '||
3961: 'with the following Parameters passed to the process:');
3962: END IF;
3959: l_module_name,
3960: ' IN CHECK_BAL_SEG_VALUE PROCEDURE '||
3961: 'with the following Parameters passed to the process:');
3962: END IF;
3963: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3964: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
3965: l_module_name,
3966: ' FUND GROUP= '||VP_FUND_GRP);
3967: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
3960: ' IN CHECK_BAL_SEG_VALUE PROCEDURE '||
3961: 'with the following Parameters passed to the process:');
3962: END IF;
3963: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3964: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
3965: l_module_name,
3966: ' FUND GROUP= '||VP_FUND_GRP);
3967: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
3968: l_module_name,
3963: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3964: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
3965: l_module_name,
3966: ' FUND GROUP= '||VP_FUND_GRP);
3967: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
3968: l_module_name,
3969: ' TIME FRAME= '||VP_TIME_FRAME);
3970: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
3971: l_module_name,
3966: ' FUND GROUP= '||VP_FUND_GRP);
3967: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
3968: l_module_name,
3969: ' TIME FRAME= '||VP_TIME_FRAME);
3970: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
3971: l_module_name,
3972: ' TREASURY SYMBOL ID= '||VP_TSYMBOL_ID);
3973: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
3974: l_module_name,
3969: ' TIME FRAME= '||VP_TIME_FRAME);
3970: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
3971: l_module_name,
3972: ' TREASURY SYMBOL ID= '||VP_TSYMBOL_ID);
3973: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
3974: l_module_name,
3975: ' SET OF BOOKS ID= '||VP_SOB_ID);
3976: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
3977: l_module_name,
3972: ' TREASURY SYMBOL ID= '||VP_TSYMBOL_ID);
3973: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
3974: l_module_name,
3975: ' SET OF BOOKS ID= '||VP_SOB_ID);
3976: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,
3977: l_module_name,
3978: ' END DATE= '||VP_END_DATE);
3979: END IF;
3980:
4032: EXCEPTION
4033: WHEN OTHERS THEN
4034: vp_retcode := 2 ;
4035: vp_errbuf := SQLERRM ||' -- Error in Check Check_bal_seg_value procedure.' ;
4036: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4037: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED,
4038: l_module_name,
4039: 'When Others Exception ' || vp_errbuf );
4040: END IF;
4033: WHEN OTHERS THEN
4034: vp_retcode := 2 ;
4035: vp_errbuf := SQLERRM ||' -- Error in Check Check_bal_seg_value procedure.' ;
4036: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4037: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED,
4038: l_module_name,
4039: 'When Others Exception ' || vp_errbuf );
4040: END IF;
4041: RETURN ;