223: -- ------------------------------------
224: -- Store Input Parameters in Global Variables
225: -- ------------------------------------
226: if v_debug then
227: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
228: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'START OF PROGRAM');
229: END IF;
230: end if;
231: parm_application_id := '101';
224: -- Store Input Parameters in Global Variables
225: -- ------------------------------------
226: if v_debug then
227: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
228: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'START OF PROGRAM');
229: END IF;
230: end if;
231: parm_application_id := '101';
232: parm_set_of_books_id := set_of_books_id;
247: -- ----------------------------------------
248: -- Display Program Initialization
249: -- ----------------------------------------
250:
251: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
252: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FVSF133 STARTING, '
253: ||' Run Mode is '||parm_run_mode);
254: END IF;
255:
248: -- Display Program Initialization
249: -- ----------------------------------------
250:
251: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
252: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FVSF133 STARTING, '
253: ||' Run Mode is '||parm_run_mode);
254: END IF;
255:
256:
253: ||' Run Mode is '||parm_run_mode);
254: END IF;
255:
256:
257: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
258: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'-- APID('||NVL(PARM_APPLICATION_ID,0) ||')'
259: ||' SoB('||NVL(parm_set_of_books_id,0) ||')'
260: ||' Year('||NVL(parm_gl_period_year,0) ||')'
261: ||' Period('||NVL(parm_gl_period_num,0) ||')'
254: END IF;
255:
256:
257: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
258: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'-- APID('||NVL(PARM_APPLICATION_ID,0) ||')'
259: ||' SoB('||NVL(parm_set_of_books_id,0) ||')'
260: ||' Year('||NVL(parm_gl_period_year,0) ||')'
261: ||' Period('||NVL(parm_gl_period_num,0) ||')'
262: ||' Fund Code('||NVL(parm_treasury_value_r1,'Null')
304: FROM fv_treasury_symbols
305: WHERE treasury_symbol = parm_treasury_value_r1
306: AND set_of_books_id = parm_set_of_books_id ;
307: -- dbms_sql.bind_variable(v_cursor_id,':cv_treasury_symbol_id',parm_treasury_symbol_id);
308: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
309: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'PROCESSING FOR TREASURY SYMBOL .......'|| PARM_TREASURY_VALUE_R1);
310: END IF;
311:
312: --Fetch the Federal Acct Symbol Id for the TS
305: WHERE treasury_symbol = parm_treasury_value_r1
306: AND set_of_books_id = parm_set_of_books_id ;
307: -- dbms_sql.bind_variable(v_cursor_id,':cv_treasury_symbol_id',parm_treasury_symbol_id);
308: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
309: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'PROCESSING FOR TREASURY SYMBOL .......'|| PARM_TREASURY_VALUE_R1);
310: END IF;
311:
312: --Fetch the Federal Acct Symbol Id for the TS
313:
320: build_report_lines;
321: IF g_error_code <> 0 THEN
322: errbuf := errbuf || 'Processing for Treasury Symbol .......'|| parm_treasury_value_r1 || 'FAILED'|| g_error_message;
323: ELSE
324: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
325: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'SUBMITTING SF133 REPORT FOR TREASURY SYMBOL......' || PARM_TREASURY_VALUE_R1);
326: END IF;
327: l_req_id := FND_REQUEST.SUBMIT_REQUEST('FV','FVXBEGLP','','',FALSE,parm_set_of_books_id,--g_chart_of_accounts_id,
328: parm_gl_period_year,parm_gl_period_name,parm_treasury_value_r1);
321: IF g_error_code <> 0 THEN
322: errbuf := errbuf || 'Processing for Treasury Symbol .......'|| parm_treasury_value_r1 || 'FAILED'|| g_error_message;
323: ELSE
324: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
325: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'SUBMITTING SF133 REPORT FOR TREASURY SYMBOL......' || PARM_TREASURY_VALUE_R1);
326: END IF;
327: l_req_id := FND_REQUEST.SUBMIT_REQUEST('FV','FVXBEGLP','','',FALSE,parm_set_of_books_id,--g_chart_of_accounts_id,
328: parm_gl_period_year,parm_gl_period_name,parm_treasury_value_r1);
329: IF l_req_id = 0 THEN
328: parm_gl_period_year,parm_gl_period_name,parm_treasury_value_r1);
329: IF l_req_id = 0 THEN
330: errbuf := 'Error submitting SF133 Report for Treasury Symbol'|| parm_treasury_value_r1 ;
331: retcode := -1;
332: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.error1', errbuf) ;
333: return;
334: ELSE
335: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
336: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CONCURRENT REQUEST ID FOR SF133 REPORT - ' || L_REQ_ID);
331: retcode := -1;
332: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.error1', errbuf) ;
333: return;
334: ELSE
335: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
336: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CONCURRENT REQUEST ID FOR SF133 REPORT - ' || L_REQ_ID);
337: END IF;
338: END IF;
339: END IF;
332: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.error1', errbuf) ;
333: return;
334: ELSE
335: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
336: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CONCURRENT REQUEST ID FOR SF133 REPORT - ' || L_REQ_ID);
337: END IF;
338: END IF;
339: END IF;
340:
348: RAISE abort_error;
349: END IF;
350: --
351: DBMS_SQL.CLOSE_CURSOR(v_cursor_id);
352: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
353: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'-- INSERT COUNT('||G_INSERT_COUNT||')');
354: END IF;
355: IF errbuf IS NOT null THEN
356: errbuf := 'Normal End of FVSF133 package';
349: END IF;
350: --
351: DBMS_SQL.CLOSE_CURSOR(v_cursor_id);
352: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
353: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'-- INSERT COUNT('||G_INSERT_COUNT||')');
354: END IF;
355: IF errbuf IS NOT null THEN
356: errbuf := 'Normal End of FVSF133 package';
357: END IF;
354: END IF;
355: IF errbuf IS NOT null THEN
356: errbuf := 'Normal End of FVSF133 package';
357: END IF;
358: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
359: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,ERRBUF);
360: END IF;
361: -- ------------------------------------
362: -- Exceptions
355: IF errbuf IS NOT null THEN
356: errbuf := 'Normal End of FVSF133 package';
357: END IF;
358: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
359: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,ERRBUF);
360: END IF;
361: -- ------------------------------------
362: -- Exceptions
363: -- ------------------------------------
365: --
366: WHEN abort_error THEN
367: retcode := g_error_code;
368: errbuf := g_error_message;
369: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.exception1', errbuf) ;
370: WHEN OTHERS THEN
371: g_error_code := SQLCODE;
372: g_error_message := SQLERRM;
373: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception', g_error_message) ;
369: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.exception1', errbuf) ;
370: WHEN OTHERS THEN
371: g_error_code := SQLCODE;
372: g_error_message := SQLERRM;
373: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception', g_error_message) ;
374: RAISE_APPLICATION_ERROR(-20222,'FVSF133 Exception-'||SQLERRM);
375: END Main;
376: -- ------------------------------------------------------------------
377: -- --------------------------------------------------------
387: BEGIN
388: l_module_name := g_module_name || 'determine_acct_flex_segments';
389: --
390: IF parm_run_mode = 'T' THEN
391: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
392: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'START DETERMINE_ACCT_FLEX_SEGMENTS');
393: END IF;
394: END IF;
395: --
388: l_module_name := g_module_name || 'determine_acct_flex_segments';
389: --
390: IF parm_run_mode = 'T' THEN
391: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
392: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'START DETERMINE_ACCT_FLEX_SEGMENTS');
393: END IF;
394: END IF;
395: --
396: -- -------------------------------------
485: AND id_flex_code = 'GL#'
486: AND id_flex_num = g_chart_of_accounts_id;
487: EXCEPTION
488: WHEN OTHERS THEN
489: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,'Error in getting the Value set attched ' ||
490: ' to the segemnt => ' || c_flex_column_name);
491: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,' SQLCODE => ' || SQLCODE ||
492: ' SQLERRM => ' || SQLERRM);
493: RAISE;
487: EXCEPTION
488: WHEN OTHERS THEN
489: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,'Error in getting the Value set attched ' ||
490: ' to the segemnt => ' || c_flex_column_name);
491: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,' SQLCODE => ' || SQLCODE ||
492: ' SQLERRM => ' || SQLERRM);
493: RAISE;
494: END;
495: -- + Rollup for the amount is the segment is a parent segment +
521: --
522: END LOOP;
523: */
524:
525: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
526: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,V_SELECT);
527: END IF;
528: --
529: v_cursor_id := DBMS_SQL.OPEN_CURSOR();
522: END LOOP;
523: */
524:
525: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
526: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,V_SELECT);
527: END IF;
528: --
529: v_cursor_id := DBMS_SQL.OPEN_CURSOR();
530: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
526: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,V_SELECT);
527: END IF;
528: --
529: v_cursor_id := DBMS_SQL.OPEN_CURSOR();
530: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
531: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'T1');
532: END IF;
533:
534: fnd_file.put_line (fnd_file.log, v_select);
527: END IF;
528: --
529: v_cursor_id := DBMS_SQL.OPEN_CURSOR();
530: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
531: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'T1');
532: END IF;
533:
534: fnd_file.put_line (fnd_file.log, v_select);
535:
538: dbms_sql.bind_variable(v_cursor_id,':cv_set_of_books_id',parm_set_of_books_id);
539: -- dbms_sql.bind_variable(v_cursor_id,':cv_chart_of_accounts_id',g_chart_of_accounts_id);
540: dbms_sql.bind_variable(v_cursor_id,':cv_currency_code',g_currency_code);
541:
542: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
543: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'T2');
544: END IF;
545: dbms_sql.define_column(v_cursor_id,1,c_total_balance);
546: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
539: -- dbms_sql.bind_variable(v_cursor_id,':cv_chart_of_accounts_id',g_chart_of_accounts_id);
540: dbms_sql.bind_variable(v_cursor_id,':cv_currency_code',g_currency_code);
541:
542: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
543: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'T2');
544: END IF;
545: dbms_sql.define_column(v_cursor_id,1,c_total_balance);
546: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
547: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'T3');
542: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
543: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'T2');
544: END IF;
545: dbms_sql.define_column(v_cursor_id,1,c_total_balance);
546: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
547: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'T3');
548: END IF;
549:
550:
543: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'T2');
544: END IF;
545: dbms_sql.define_column(v_cursor_id,1,c_total_balance);
546: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
547: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'T3');
548: END IF;
549:
550:
551: --
559: g_error_message := 'determine_acct_flex_segments/'||SQLERRM;
560: IF flex_field_column_name_cursor%ISOPEN THEN
561: close flex_field_column_name_cursor;
562: END IF;
563: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception', g_error_message) ;
564: --
565: END determine_acct_flex_segments;
566: -- --------------------------------------------------------
567: -- --------------------------------------------------------
573: BEGIN
574: l_module_name := g_module_name || 'purge_temp_table';
575: --
576: IF parm_run_mode = 'T' THEN
577: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
578: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'START PURGE_TEMP_TABLE');
579: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FUND SEGMENT ('||G_FUND_SEGMENT_NAME ||')');
580: END IF;
581: END IF;
574: l_module_name := g_module_name || 'purge_temp_table';
575: --
576: IF parm_run_mode = 'T' THEN
577: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
578: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'START PURGE_TEMP_TABLE');
579: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FUND SEGMENT ('||G_FUND_SEGMENT_NAME ||')');
580: END IF;
581: END IF;
582: --
575: --
576: IF parm_run_mode = 'T' THEN
577: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
578: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'START PURGE_TEMP_TABLE');
579: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' FUND SEGMENT ('||G_FUND_SEGMENT_NAME ||')');
580: END IF;
581: END IF;
582: --
583: DELETE
600: --
601: WHEN OTHERS THEN
602: g_error_code := SQLCODE;
603: g_error_message := SQLERRM;
604: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception', g_error_message) ;
605: --
606: END purge_temp_table;
607: -- --------------------------------------------------------
608: -- --------------------------------------------------------
624: BEGIN
625: l_module_name := g_module_name || 'build_report_lines';
626: --
627: IF parm_run_mode = 'T' THEN
628: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
629: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'START BUILD_REPORT_LINES');
630: END IF;
631: END IF;
632: --
625: l_module_name := g_module_name || 'build_report_lines';
626: --
627: IF parm_run_mode = 'T' THEN
628: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
629: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'START BUILD_REPORT_LINES');
630: END IF;
631: END IF;
632: --
633: -- ----------------------------------------------------------
665: --
666: FOR ts_report_line_entry IN ts_report_line_cursor LOOP
667: --
668: if v_debug then
669: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
670: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'LG 3 INSIDE LOOP ') ;
671: END IF;
672: end if;
673:
666: FOR ts_report_line_entry IN ts_report_line_cursor LOOP
667: --
668: if v_debug then
669: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
670: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'LG 3 INSIDE LOOP ') ;
671: END IF;
672: end if;
673:
674: c_sf133_ts_value := ts_report_line_entry.sf133_ts_value;
721: L_LOOP_YEAR := g_established_year - 1;
722:
723: l_sf133_ts_value := c_sf133_ts_value;
724:
725: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
726: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FEDERAL ACCT SYMBOL ID IS'|| TO_CHAR(L_FEDERAL_ACCT_SYMBOL_ID)) ;
727: END IF;
728:
729: For l_year_counter IN 1..5 Loop
722:
723: l_sf133_ts_value := c_sf133_ts_value;
724:
725: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
726: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FEDERAL ACCT SYMBOL ID IS'|| TO_CHAR(L_FEDERAL_ACCT_SYMBOL_ID)) ;
727: END IF;
728:
729: For l_year_counter IN 1..5 Loop
730:
760: and established_fiscal_yr = l_loop_year
761: and time_frame = 'SINGLE';
762:
763:
764: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
765: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TREASURY SYMBOL IS '||C_SF133_TS_VALUE );
766: END IF;
767: -- dbms_sql.bind_variable(v_cursor_id,':cv_treasury_symbol_id',
768: -- g_treasury_symbol_id);
761: and time_frame = 'SINGLE';
762:
763:
764: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
765: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TREASURY SYMBOL IS '||C_SF133_TS_VALUE );
766: END IF;
767: -- dbms_sql.bind_variable(v_cursor_id,':cv_treasury_symbol_id',
768: -- g_treasury_symbol_id);
769: -- Derive the Amount Values for the Previous Year
780: --LGOEL: Restore the treasury symbol variable value
781: c_sf133_ts_value := l_sf133_ts_value;
782:
783:
784: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
785: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PROCESS YEAR - ' || TO_CHAR(L_PROCESS_YEAR) ||
786: 'Beginning Period - ' || to_char(l_beg_period_prev) ||
787: 'Ending Period - ' || to_char(l_end_period_prev)) ;
788: END IF;
781: c_sf133_ts_value := l_sf133_ts_value;
782:
783:
784: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
785: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PROCESS YEAR - ' || TO_CHAR(L_PROCESS_YEAR) ||
786: 'Beginning Period - ' || to_char(l_beg_period_prev) ||
787: 'Ending Period - ' || to_char(l_end_period_prev)) ;
788: END IF;
789:
793: -- assignment after SET phrase, a litle round about way
794: -- is used by using Decode on the right side. Still one
795: -- SQL statement !!
796:
797: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
798: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'LOOP COUNTER ' || TO_CHAR(L_YEAR_COUNTER) || ' AMOUNT VALUE ' || TO_CHAR(O_SF133_COLUMN_AMOUNT)) ;
799: END IF;
800: UPDATE FV_SF133_DEFINITIONS_COLS_TEMP
801: SET
794: -- is used by using Decode on the right side. Still one
795: -- SQL statement !!
796:
797: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
798: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'LOOP COUNTER ' || TO_CHAR(L_YEAR_COUNTER) || ' AMOUNT VALUE ' || TO_CHAR(O_SF133_COLUMN_AMOUNT)) ;
799: END IF;
800: UPDATE FV_SF133_DEFINITIONS_COLS_TEMP
801: SET
802: SF133_COLUMN_2_AMOUNT = DECODE(L_YEAR_COUNTER, 1,
846: SF133_LINE_ID = O_SF133_LINE_ID ;
847:
848: ELSE
849:
850: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
851: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'BUILDING TOTAL LINE COLUMNS') ;
852: END IF;
853: build_total_line_columns;
854: END IF;
847:
848: ELSE
849:
850: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
851: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'BUILDING TOTAL LINE COLUMNS') ;
852: END IF;
853: build_total_line_columns;
854: END IF;
855: --
886:
887: IF ts_report_line_cursor%ISOPEN THEN
888: close ts_report_line_cursor;
889: END IF;
890: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception', g_error_message) ;
891: --
892: END build_report_lines;
893: -- --------------------------------------------------------
894: -- ----------------------------------------------
904: l_module_name := g_module_name || 'build_fiscal_line_columns';
905: --
906: IF parm_run_mode = 'T' THEN
907:
908: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
909: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'START BUILD_FISCAL_LINE_COLUMNS');
910: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'-- LINE('||C_SF133_LINE_NUMBER||')'
911: || ' Tresury Symbol('||c_sf133_ts_value ||')'
912: || ' '||to_char(SYSDATE,'mm/dd/yyyy hh:mi:ss'));
905: --
906: IF parm_run_mode = 'T' THEN
907:
908: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
909: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'START BUILD_FISCAL_LINE_COLUMNS');
910: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'-- LINE('||C_SF133_LINE_NUMBER||')'
911: || ' Tresury Symbol('||c_sf133_ts_value ||')'
912: || ' '||to_char(SYSDATE,'mm/dd/yyyy hh:mi:ss'));
913: END IF;
906: IF parm_run_mode = 'T' THEN
907:
908: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
909: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'START BUILD_FISCAL_LINE_COLUMNS');
910: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'-- LINE('||C_SF133_LINE_NUMBER||')'
911: || ' Tresury Symbol('||c_sf133_ts_value ||')'
912: || ' '||to_char(SYSDATE,'mm/dd/yyyy hh:mi:ss'));
913: END IF;
914: END IF;
969: END IF;
970: ELSE
971: c_rescission_flag := 'TRUE';
972: END IF;
973: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
974: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ADDITIONAL INFORMATION IS ' || UPPER(C_SF133_ADDITIONAL_INFO));
975: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'LINE NUMBER IS ' || C_SF133_REPORT_LINE_NUMBER);
976: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'RESOURCE TYPE IS ' || C_RESOURCE_TYPE);
977: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'RESOURCE FLAG IS ' || C_RESCISSION_FLAG);
970: ELSE
971: c_rescission_flag := 'TRUE';
972: END IF;
973: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
974: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ADDITIONAL INFORMATION IS ' || UPPER(C_SF133_ADDITIONAL_INFO));
975: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'LINE NUMBER IS ' || C_SF133_REPORT_LINE_NUMBER);
976: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'RESOURCE TYPE IS ' || C_RESOURCE_TYPE);
977: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'RESOURCE FLAG IS ' || C_RESCISSION_FLAG);
978: END IF;
971: c_rescission_flag := 'TRUE';
972: END IF;
973: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
974: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ADDITIONAL INFORMATION IS ' || UPPER(C_SF133_ADDITIONAL_INFO));
975: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'LINE NUMBER IS ' || C_SF133_REPORT_LINE_NUMBER);
976: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'RESOURCE TYPE IS ' || C_RESOURCE_TYPE);
977: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'RESOURCE FLAG IS ' || C_RESCISSION_FLAG);
978: END IF;
979: IF c_rescission_flag = 'TRUE' THEN
972: END IF;
973: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
974: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ADDITIONAL INFORMATION IS ' || UPPER(C_SF133_ADDITIONAL_INFO));
975: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'LINE NUMBER IS ' || C_SF133_REPORT_LINE_NUMBER);
976: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'RESOURCE TYPE IS ' || C_RESOURCE_TYPE);
977: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'RESOURCE FLAG IS ' || C_RESCISSION_FLAG);
978: END IF;
979: IF c_rescission_flag = 'TRUE' THEN
980:
973: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
974: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ADDITIONAL INFORMATION IS ' || UPPER(C_SF133_ADDITIONAL_INFO));
975: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'LINE NUMBER IS ' || C_SF133_REPORT_LINE_NUMBER);
976: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'RESOURCE TYPE IS ' || C_RESOURCE_TYPE);
977: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'RESOURCE FLAG IS ' || C_RESCISSION_FLAG);
978: END IF;
979: IF c_rescission_flag = 'TRUE' THEN
980:
981: IF c_sf133_balance_type = 'E' THEN
980:
981: IF c_sf133_balance_type = 'E' THEN
982: -- ending balance type
983:
984: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
985: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'LINE_ACCT_ID = '||C_SF133_LINE_ACCT_ID);
986: END IF;
987: /*Used Dynamice SQL instead of balance_cursor */
988: dbms_sql.bind_variable(v_cursor_id,':cv_balance_type','E');
981: IF c_sf133_balance_type = 'E' THEN
982: -- ending balance type
983:
984: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
985: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'LINE_ACCT_ID = '||C_SF133_LINE_ACCT_ID);
986: END IF;
987: /*Used Dynamice SQL instead of balance_cursor */
988: dbms_sql.bind_variable(v_cursor_id,':cv_balance_type','E');
989: dbms_sql.bind_variable(v_cursor_id,':cv_period',c_end_period);
988: dbms_sql.bind_variable(v_cursor_id,':cv_balance_type','E');
989: dbms_sql.bind_variable(v_cursor_id,':cv_period',c_end_period);
990: dbms_sql.bind_variable(v_cursor_id,':cv_fiscal_year',c_fiscal_year);
991: l_ignore := dbms_sql.execute_and_fetch(v_cursor_id);
992: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
993: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'L_IGNORE := '|| L_IGNORE);
994: END IF;
995: dbms_sql.column_value(v_cursor_id,1,c_total_balance);
996:
989: dbms_sql.bind_variable(v_cursor_id,':cv_period',c_end_period);
990: dbms_sql.bind_variable(v_cursor_id,':cv_fiscal_year',c_fiscal_year);
991: l_ignore := dbms_sql.execute_and_fetch(v_cursor_id);
992: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
993: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'L_IGNORE := '|| L_IGNORE);
994: END IF;
995: dbms_sql.column_value(v_cursor_id,1,c_total_balance);
996:
997: ELSIF c_sf133_balance_type = 'B' THEN
1000: dbms_sql.bind_variable(v_cursor_id,':cv_balance_type','B');
1001: dbms_sql.bind_variable(v_cursor_id,':cv_period',c_begin_period);
1002: dbms_sql.bind_variable(v_cursor_id,':cv_fiscal_year',c_fiscal_year);
1003: l_ignore := dbms_sql.execute_and_fetch(v_cursor_id);
1004: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1005: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'L_IGNORE := '|| L_IGNORE);
1006: END IF;
1007: dbms_sql.column_value(v_cursor_id,1,c_total_balance);
1008:
1001: dbms_sql.bind_variable(v_cursor_id,':cv_period',c_begin_period);
1002: dbms_sql.bind_variable(v_cursor_id,':cv_fiscal_year',c_fiscal_year);
1003: l_ignore := dbms_sql.execute_and_fetch(v_cursor_id);
1004: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1005: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'L_IGNORE := '|| L_IGNORE);
1006: END IF;
1007: dbms_sql.column_value(v_cursor_id,1,c_total_balance);
1008:
1009:
1013: dbms_sql.bind_variable(v_cursor_id,':cv_balance_type','P');
1014: dbms_sql.bind_variable(v_cursor_id,':cv_period',c_end_period);
1015: dbms_sql.bind_variable(v_cursor_id,':cv_fiscal_year',c_fiscal_year);
1016: l_ignore := dbms_sql.execute_and_fetch(v_cursor_id);
1017: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1018: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'L_IGNORE := '|| L_IGNORE);
1019: END IF;
1020: dbms_sql.column_value(v_cursor_id,1,c_total_balance);
1021:
1014: dbms_sql.bind_variable(v_cursor_id,':cv_period',c_end_period);
1015: dbms_sql.bind_variable(v_cursor_id,':cv_fiscal_year',c_fiscal_year);
1016: l_ignore := dbms_sql.execute_and_fetch(v_cursor_id);
1017: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1018: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'L_IGNORE := '|| L_IGNORE);
1019: END IF;
1020: dbms_sql.column_value(v_cursor_id,1,c_total_balance);
1021:
1022: ELSIF c_sf133_balance_type = 'N' THEN
1025: dbms_sql.bind_variable(v_cursor_id,':cv_balance_type','N');
1026: dbms_sql.bind_variable(v_cursor_id,':cv_period',c_end_period);
1027: dbms_sql.bind_variable(v_cursor_id,':cv_fiscal_year',c_fiscal_year);
1028: l_ignore := dbms_sql.execute_and_fetch(v_cursor_id);
1029: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1030: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'L_IGNORE := '|| L_IGNORE);
1031: END IF;
1032: dbms_sql.column_value(v_cursor_id,1,c_total_balance);
1033:
1026: dbms_sql.bind_variable(v_cursor_id,':cv_period',c_end_period);
1027: dbms_sql.bind_variable(v_cursor_id,':cv_fiscal_year',c_fiscal_year);
1028: l_ignore := dbms_sql.execute_and_fetch(v_cursor_id);
1029: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1030: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'L_IGNORE := '|| L_IGNORE);
1031: END IF;
1032: dbms_sql.column_value(v_cursor_id,1,c_total_balance);
1033:
1034: ELSIF c_sf133_balance_type in ('D','S') THEN
1039: dbms_sql.bind_variable(v_cursor_id,':cv_balance_type','E');
1040: dbms_sql.bind_variable(v_cursor_id,':cv_period',c_end_period);
1041: dbms_sql.bind_variable(v_cursor_id,':cv_fiscal_year',c_fiscal_year);
1042: l_ignore := dbms_sql.execute_and_fetch(v_cursor_id);
1043: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1044: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'L_IGNORE := '|| L_IGNORE);
1045: END IF;
1046: --Fixed bug # 2433012. Modified the following statement(dbms_sql.column_value) with column value c_ending_balance
1047: --in place of c_total_balance.
1040: dbms_sql.bind_variable(v_cursor_id,':cv_period',c_end_period);
1041: dbms_sql.bind_variable(v_cursor_id,':cv_fiscal_year',c_fiscal_year);
1042: l_ignore := dbms_sql.execute_and_fetch(v_cursor_id);
1043: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1044: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'L_IGNORE := '|| L_IGNORE);
1045: END IF;
1046: --Fixed bug # 2433012. Modified the following statement(dbms_sql.column_value) with column value c_ending_balance
1047: --in place of c_total_balance.
1048: dbms_sql.column_value(v_cursor_id,1,c_ending_balance);
1050: dbms_sql.bind_variable(v_cursor_id,':cv_balance_type','B');
1051: dbms_sql.bind_variable(v_cursor_id,':cv_period',c_begin_period);
1052: dbms_sql.bind_variable(v_cursor_id,':cv_fiscal_year',c_fiscal_year);
1053: l_ignore := dbms_sql.execute_and_fetch(v_cursor_id);
1054: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1055: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'L_IGNORE := '|| L_IGNORE);
1056: END IF;
1057: --Fixed bug # 2433012. Modified the following statement(dbms_sql.column_value) with column value c_begin_balance
1058: --in place of c_total_balance.
1051: dbms_sql.bind_variable(v_cursor_id,':cv_period',c_begin_period);
1052: dbms_sql.bind_variable(v_cursor_id,':cv_fiscal_year',c_fiscal_year);
1053: l_ignore := dbms_sql.execute_and_fetch(v_cursor_id);
1054: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1055: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'L_IGNORE := '|| L_IGNORE);
1056: END IF;
1057: --Fixed bug # 2433012. Modified the following statement(dbms_sql.column_value) with column value c_begin_balance
1058: --in place of c_total_balance.
1059: dbms_sql.column_value(v_cursor_id,1,c_begin_balance);
1098: o_sf133_column_amount := c_sf133_column_amount;
1099: o_sf133_amt_not_shown := c_sf133_amount_not_shown;
1100: o_sf133_treasury_symbol_id := c_sf133_treasury_symbol_id; --Bug 1575992
1101:
1102: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1103: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'COL AMT ='||O_SF133_COLUMN_AMOUNT);
1104: END IF;
1105: --
1106: -- ------------------------------------
1099: o_sf133_amt_not_shown := c_sf133_amount_not_shown;
1100: o_sf133_treasury_symbol_id := c_sf133_treasury_symbol_id; --Bug 1575992
1101:
1102: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1103: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'COL AMT ='||O_SF133_COLUMN_AMOUNT);
1104: END IF;
1105: --
1106: -- ------------------------------------
1107: -- Exceptions
1119: /* ELSIF balance_cursor%ISOPEN THEN
1120: close balance_cursor;*/
1121: END IF;
1122:
1123: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception', g_error_message) ;
1124: --
1125: END build_fiscal_line_columns;
1126: -- ----------------------------------------------
1127: -- ----------------------------------------------
1150: BEGIN
1151: l_module_name := g_module_name || 'build_total_line_columns';
1152: --
1153: IF parm_run_mode = 'T' THEN
1154: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1155: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'START BUILD_TOTAL_LINE_COLUMNS');
1156: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'-- LINE='||C_SF133_LINE_NUMBER
1157: ||' Start Total Line('||g_total_start_line_number||')'
1158: || ' Treasury Symbol('||c_sf133_ts_value||')');
1151: l_module_name := g_module_name || 'build_total_line_columns';
1152: --
1153: IF parm_run_mode = 'T' THEN
1154: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1155: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'START BUILD_TOTAL_LINE_COLUMNS');
1156: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'-- LINE='||C_SF133_LINE_NUMBER
1157: ||' Start Total Line('||g_total_start_line_number||')'
1158: || ' Treasury Symbol('||c_sf133_ts_value||')');
1159: END IF;
1152: --
1153: IF parm_run_mode = 'T' THEN
1154: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1155: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'START BUILD_TOTAL_LINE_COLUMNS');
1156: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'-- LINE='||C_SF133_LINE_NUMBER
1157: ||' Start Total Line('||g_total_start_line_number||')'
1158: || ' Treasury Symbol('||c_sf133_ts_value||')');
1159: END IF;
1160: END IF;
1192: DECODE(c_sf133_line_type_code, 'T', g_total_start_line_number, g_subtotal_start_line_number)
1193: AND sf133_line_number < c_sf133_line_number);
1194:
1195:
1196: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1197: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'NATURAL BAL TYPE = '||C_SF133_NATURAL_BAL_TYPE);
1198: END IF;
1199: IF c_sf133_natural_bal_type = 'C' THEN
1200:
1193: AND sf133_line_number < c_sf133_line_number);
1194:
1195:
1196: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1197: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'NATURAL BAL TYPE = '||C_SF133_NATURAL_BAL_TYPE);
1198: END IF;
1199: IF c_sf133_natural_bal_type = 'C' THEN
1200:
1201: -- Credit, so display opposite
1304: --
1305: WHEN OTHERS THEN
1306: g_error_code := SQLCODE;
1307: g_error_message := SQLERRM;
1308: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception', g_error_message) ;
1309: --
1310: END build_total_line_columns;
1311: -- ----------------------------------------------
1312: -- --------------------------------------------------------
1319: BEGIN
1320: l_module_name := g_module_name || 'populate_temp_table';
1321: --
1322: IF parm_run_mode = 'T' THEN
1323: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1324: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'START POPULATE_TEMP_TABLE');
1325: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, '-- '||C_SF133_LINE_NUMBER
1326: ||' ('||o_sf133_column_number||')'
1327: ||' ('||o_sf133_column_amount||')'
1320: l_module_name := g_module_name || 'populate_temp_table';
1321: --
1322: IF parm_run_mode = 'T' THEN
1323: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1324: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'START POPULATE_TEMP_TABLE');
1325: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, '-- '||C_SF133_LINE_NUMBER
1326: ||' ('||o_sf133_column_number||')'
1327: ||' ('||o_sf133_column_amount||')'
1328: ||' ('||o_sf133_amt_not_shown||')');
1321: --
1322: IF parm_run_mode = 'T' THEN
1323: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1324: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'START POPULATE_TEMP_TABLE');
1325: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, '-- '||C_SF133_LINE_NUMBER
1326: ||' ('||o_sf133_column_number||')'
1327: ||' ('||o_sf133_column_amount||')'
1328: ||' ('||o_sf133_amt_not_shown||')');
1329: END IF;
1357: WHEN OTHERS THEN
1358: g_error_code := SQLCODE;
1359: g_error_message := SQLERRM;
1360:
1361: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception', g_error_message) ;
1362: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,'-- POPULATE_TEMP_TABLE');
1363: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,'---- TREASURY SYMBOL:'||O_SF133_TS_VALUE
1364: ||' Line Id:'||o_sf133_line_id
1365: ||' Col:' ||o_sf133_column_number
1358: g_error_code := SQLCODE;
1359: g_error_message := SQLERRM;
1360:
1361: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception', g_error_message) ;
1362: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,'-- POPULATE_TEMP_TABLE');
1363: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,'---- TREASURY SYMBOL:'||O_SF133_TS_VALUE
1364: ||' Line Id:'||o_sf133_line_id
1365: ||' Col:' ||o_sf133_column_number
1366: ||' Amt:' ||o_sf133_column_amount);
1359: g_error_message := SQLERRM;
1360:
1361: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception', g_error_message) ;
1362: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,'-- POPULATE_TEMP_TABLE');
1363: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,'---- TREASURY SYMBOL:'||O_SF133_TS_VALUE
1364: ||' Line Id:'||o_sf133_line_id
1365: ||' Col:' ||o_sf133_column_number
1366: ||' Amt:' ||o_sf133_column_amount);
1367: --
1397: EXCEPTION
1398: WHEN OTHERS THEN
1399: g_error_code := SQLCODE;
1400: g_error_message := SQLERRM;
1401: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception', g_error_message) ;
1402: RAISE ;
1403:
1404: END GET_BEGIN_ENDING_PERIODS ;
1405:
1494:
1495: BEGIN
1496: l_module_name := g_module_name || 'populate_gtt_with_ccid';
1497:
1498: IF ( fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1499: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Entering Module '||l_module_name);
1500: END IF;
1501:
1502: FOR crec_rec IN crec_cursor (parm_set_of_books_id) LOOP
1495: BEGIN
1496: l_module_name := g_module_name || 'populate_gtt_with_ccid';
1497:
1498: IF ( fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1499: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Entering Module '||l_module_name);
1500: END IF;
1501:
1502: FOR crec_rec IN crec_cursor (parm_set_of_books_id) LOOP
1503:
1500: END IF;
1501:
1502: FOR crec_rec IN crec_cursor (parm_set_of_books_id) LOOP
1503:
1504: IF ( fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1505: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'sf133_line_acct_id = '||crec_rec.sf133_line_acct_id);
1506: END IF;
1507:
1508: v_seg(1) := crec_rec.segment1;
1501:
1502: FOR crec_rec IN crec_cursor (parm_set_of_books_id) LOOP
1503:
1504: IF ( fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1505: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'sf133_line_acct_id = '||crec_rec.sf133_line_acct_id);
1506: END IF;
1507:
1508: v_seg(1) := crec_rec.segment1;
1509: v_seg(2) := crec_rec.segment2;
1539: v_statement := NULL;
1540:
1541: FOR i IN 1 ..30 LOOP
1542: v_seg_str(i) := NULL;
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,'v_seg('||i||')='||v_seg(i));
1545: END IF;
1546: END LOOP;
1547:
1540:
1541: FOR i IN 1 ..30 LOOP
1542: v_seg_str(i) := NULL;
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,'v_seg('||i||')='||v_seg(i));
1545: END IF;
1546: END LOOP;
1547:
1548: l_no_of_seg := 0;
1547:
1548: l_no_of_seg := 0;
1549:
1550: FOR flex_rec IN flex_cursor (g_chart_of_accounts_id) LOOP
1551: IF ( fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1552: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'application_column_name = '||flex_rec.application_column_name);
1553: END IF;
1554: l_no_of_child := 0;
1555: l_and := NULL;
1548: l_no_of_seg := 0;
1549:
1550: FOR flex_rec IN flex_cursor (g_chart_of_accounts_id) LOOP
1551: IF ( fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1552: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'application_column_name = '||flex_rec.application_column_name);
1553: END IF;
1554: l_no_of_child := 0;
1555: l_and := NULL;
1556:
1555: l_and := NULL;
1556:
1557: /* check the segment values is parent */
1558: l_segno := SUBSTR(flex_rec.application_column_name,8,2);
1559: IF ( fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1560: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_segno = '||l_segno);
1561: END IF;
1562:
1563: IF (v_seg(l_segno) IS NOT NULL) THEN
1556:
1557: /* check the segment values is parent */
1558: l_segno := SUBSTR(flex_rec.application_column_name,8,2);
1559: IF ( fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1560: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_segno = '||l_segno);
1561: END IF;
1562:
1563: IF (v_seg(l_segno) IS NOT NULL) THEN
1564: SELECT COUNT(*)
1566: FROM fnd_flex_value_hierarchies
1567: WHERE parent_flex_value = v_seg(l_segno)
1568: AND flex_value_set_id = flex_rec.flex_value_set_id;
1569:
1570: IF ( fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1571: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_cnt = '||l_cnt);
1572: END IF;
1573:
1574: OPEN child_value_cursor(v_seg(l_segno) , flex_rec.flex_value_set_id);
1567: WHERE parent_flex_value = v_seg(l_segno)
1568: AND flex_value_set_id = flex_rec.flex_value_set_id;
1569:
1570: IF ( fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1571: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_cnt = '||l_cnt);
1572: END IF;
1573:
1574: OPEN child_value_cursor(v_seg(l_segno) , flex_rec.flex_value_set_id);
1575:
1573:
1574: OPEN child_value_cursor(v_seg(l_segno) , flex_rec.flex_value_set_id);
1575:
1576: IF (l_cnt > 0) THEN
1577: IF ( fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1578: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_cnt > 0');
1579: END IF;
1580:
1581: l_and := NULL;
1574: OPEN child_value_cursor(v_seg(l_segno) , flex_rec.flex_value_set_id);
1575:
1576: IF (l_cnt > 0) THEN
1577: IF ( fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1578: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_cnt > 0');
1579: END IF;
1580:
1581: l_and := NULL;
1582:
1610: l_and := NULL;
1611: v_statement := v_statement || l_and || l_child || fnd_global.local_chr(10);
1612:
1613: ELSE
1614: IF ( fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1615: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_cnt not > 0');
1616: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_no_of_seg='||l_no_of_seg);
1617: END IF;
1618: IF (l_no_of_seg > 0) THEN
1611: v_statement := v_statement || l_and || l_child || fnd_global.local_chr(10);
1612:
1613: ELSE
1614: IF ( fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1615: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_cnt not > 0');
1616: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_no_of_seg='||l_no_of_seg);
1617: END IF;
1618: IF (l_no_of_seg > 0) THEN
1619: l_and := ' AND ';
1612:
1613: ELSE
1614: IF ( fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1615: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_cnt not > 0');
1616: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'l_no_of_seg='||l_no_of_seg);
1617: END IF;
1618: IF (l_no_of_seg > 0) THEN
1619: l_and := ' AND ';
1620: END IF;
1629: END IF; --v_seg(l_segno) IS NOT NULL
1630:
1631: END LOOP; --FLEX_CURSOR
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,'v_statement = '||v_statement);
1635: END IF;
1636:
1637: IF (v_statement IS NOT NULL) THEN
1630:
1631: END LOOP; --FLEX_CURSOR
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,'v_statement = '||v_statement);
1635: END IF;
1636:
1637: IF (v_statement IS NOT NULL) THEN
1638: v_insert_statement := 'INSERT INTO fv_sf133_ccids_gt
1666: crec_rec.sf133_line_acct_id;
1667: END IF;
1668: END LOOP; --crec_cursor
1669:
1670: IF ( fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1671: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Exiting Module = '||l_module_name);
1672: END IF;
1673:
1674: EXCEPTION
1667: END IF;
1668: END LOOP; --crec_cursor
1669:
1670: IF ( fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1671: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Exiting Module = '||l_module_name);
1672: END IF;
1673:
1674: EXCEPTION
1675: WHEN OTHERS THEN
1674: EXCEPTION
1675: WHEN OTHERS THEN
1676: g_error_code := SQLCODE;
1677: g_error_message := SQLERRM;
1678: fv_utility.log_mesg(fnd_log.level_unexpected, l_module_name||'.exception',g_error_message);
1679: fv_utility.log_mesg(fnd_log.level_unexpected, l_module_name||'.exception','-- populate_gtt_with_ccid');
1680: END;
1681: -- + Global Varibale Declaration +
1682: BEGIN
1675: WHEN OTHERS THEN
1676: g_error_code := SQLCODE;
1677: g_error_message := SQLERRM;
1678: fv_utility.log_mesg(fnd_log.level_unexpected, l_module_name||'.exception',g_error_message);
1679: fv_utility.log_mesg(fnd_log.level_unexpected, l_module_name||'.exception','-- populate_gtt_with_ccid');
1680: END;
1681: -- + Global Varibale Declaration +
1682: BEGIN
1683: g_module_name := 'fv.plsql.fv_sf133_oneyear.';