2320: ' = :c_'||
2321: flex_rec.application_column_name;
2322: END LOOP;
2323:
2324: l_cursor_id := dbms_sql.open_cursor;
2325: dbms_sql.parse(l_cursor_id, l_ccid_select, dbms_sql.v7);
2326: dbms_sql.define_column(l_cursor_id, 1, vl_ccid);
2327: dbms_sql.bind_variable(l_cursor_id, ':coa_id', vg_coa_id);
2328:
2321: flex_rec.application_column_name;
2322: END LOOP;
2323:
2324: l_cursor_id := dbms_sql.open_cursor;
2325: dbms_sql.parse(l_cursor_id, l_ccid_select, dbms_sql.v7);
2326: dbms_sql.define_column(l_cursor_id, 1, vl_ccid);
2327: dbms_sql.bind_variable(l_cursor_id, ':coa_id', vg_coa_id);
2328:
2329: l_counter := 0;
2322: END LOOP;
2323:
2324: l_cursor_id := dbms_sql.open_cursor;
2325: dbms_sql.parse(l_cursor_id, l_ccid_select, dbms_sql.v7);
2326: dbms_sql.define_column(l_cursor_id, 1, vl_ccid);
2327: dbms_sql.bind_variable(l_cursor_id, ':coa_id', vg_coa_id);
2328:
2329: l_counter := 0;
2330: FOR flex_rec IN flex_cursor (vg_coa_id) LOOP
2323:
2324: l_cursor_id := dbms_sql.open_cursor;
2325: dbms_sql.parse(l_cursor_id, l_ccid_select, dbms_sql.v7);
2326: dbms_sql.define_column(l_cursor_id, 1, vl_ccid);
2327: dbms_sql.bind_variable(l_cursor_id, ':coa_id', vg_coa_id);
2328:
2329: l_counter := 0;
2330: FOR flex_rec IN flex_cursor (vg_coa_id) LOOP
2331: l_counter := l_counter + 1;
2328:
2329: l_counter := 0;
2330: FOR flex_rec IN flex_cursor (vg_coa_id) LOOP
2331: l_counter := l_counter + 1;
2332: dbms_sql.bind_variable(l_cursor_id, 'c_'||flex_rec.application_column_name, vt_segments(l_counter));
2333: END LOOP;
2334:
2335: l_ignore := dbms_sql.execute_and_fetch(l_cursor_id);
2336: dbms_sql.column_value(l_cursor_id, 1, vl_ccid);
2331: l_counter := l_counter + 1;
2332: dbms_sql.bind_variable(l_cursor_id, 'c_'||flex_rec.application_column_name, vt_segments(l_counter));
2333: END LOOP;
2334:
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');
2332: dbms_sql.bind_variable(l_cursor_id, 'c_'||flex_rec.application_column_name, vt_segments(l_counter));
2333: END LOOP;
2334:
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;
2333: END LOOP;
2334:
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
3405: vl_group_by_clause := ' GROUP BY ' || SUBSTR(vl_attribute_cols, 2);
3406: END IF;
3407: ---------------------------------------------------------------------------------------
3408: BEGIN
3409: c_gl_line_cur := DBMS_SQL.OPEN_CURSOR ;
3410: EXCEPTION
3411: WHEN OTHERS THEN
3412: vp_retcode := 2;
3413: vp_errbuf := SQLERRM||
3468:
3469:
3470:
3471: BEGIN
3472: dbms_sql.parse(c_gl_line_cur, vl_stmt, DBMS_SQL.V7) ;
3473: EXCEPTION
3474: WHEN OTHERS THEN
3475: vp_retcode := 2;
3476: vp_errbuf := SQLERRM||
3479: RETURN;
3480: END ;
3481:
3482: -- Bind the variables
3483: dbms_sql.bind_variable(c_gl_line_cur,':ccid', vl_ccid);
3484: dbms_sql.bind_variable(c_gl_line_cur,':sob_id', vg_sob_id);
3485: dbms_sql.bind_variable(c_gl_line_cur,':closing_fyr', vp_closing_fyr);
3486: dbms_sql.bind_variable(c_gl_line_cur,':je_status', 'P');
3487: dbms_sql.bind_variable(c_gl_line_cur,':sob_id', vg_sob_id);
3480: END ;
3481:
3482: -- Bind the variables
3483: dbms_sql.bind_variable(c_gl_line_cur,':ccid', vl_ccid);
3484: dbms_sql.bind_variable(c_gl_line_cur,':sob_id', vg_sob_id);
3485: dbms_sql.bind_variable(c_gl_line_cur,':closing_fyr', vp_closing_fyr);
3486: dbms_sql.bind_variable(c_gl_line_cur,':je_status', 'P');
3487: dbms_sql.bind_variable(c_gl_line_cur,':sob_id', vg_sob_id);
3488:
3481:
3482: -- Bind the variables
3483: dbms_sql.bind_variable(c_gl_line_cur,':ccid', vl_ccid);
3484: dbms_sql.bind_variable(c_gl_line_cur,':sob_id', vg_sob_id);
3485: dbms_sql.bind_variable(c_gl_line_cur,':closing_fyr', vp_closing_fyr);
3486: dbms_sql.bind_variable(c_gl_line_cur,':je_status', 'P');
3487: dbms_sql.bind_variable(c_gl_line_cur,':sob_id', vg_sob_id);
3488:
3489: dbms_sql.define_column(c_gl_line_cur, 1, vl_reference_1, 280);
3482: -- Bind the variables
3483: dbms_sql.bind_variable(c_gl_line_cur,':ccid', vl_ccid);
3484: dbms_sql.bind_variable(c_gl_line_cur,':sob_id', vg_sob_id);
3485: dbms_sql.bind_variable(c_gl_line_cur,':closing_fyr', vp_closing_fyr);
3486: dbms_sql.bind_variable(c_gl_line_cur,':je_status', 'P');
3487: dbms_sql.bind_variable(c_gl_line_cur,':sob_id', vg_sob_id);
3488:
3489: dbms_sql.define_column(c_gl_line_cur, 1, vl_reference_1, 280);
3490: dbms_sql.define_column(c_gl_line_cur, 2, vl_line_amount);
3483: dbms_sql.bind_variable(c_gl_line_cur,':ccid', vl_ccid);
3484: dbms_sql.bind_variable(c_gl_line_cur,':sob_id', vg_sob_id);
3485: dbms_sql.bind_variable(c_gl_line_cur,':closing_fyr', vp_closing_fyr);
3486: dbms_sql.bind_variable(c_gl_line_cur,':je_status', 'P');
3487: dbms_sql.bind_variable(c_gl_line_cur,':sob_id', vg_sob_id);
3488:
3489: dbms_sql.define_column(c_gl_line_cur, 1, vl_reference_1, 280);
3490: dbms_sql.define_column(c_gl_line_cur, 2, vl_line_amount);
3491:
3485: dbms_sql.bind_variable(c_gl_line_cur,':closing_fyr', vp_closing_fyr);
3486: dbms_sql.bind_variable(c_gl_line_cur,':je_status', 'P');
3487: dbms_sql.bind_variable(c_gl_line_cur,':sob_id', vg_sob_id);
3488:
3489: dbms_sql.define_column(c_gl_line_cur, 1, vl_reference_1, 280);
3490: dbms_sql.define_column(c_gl_line_cur, 2, vl_line_amount);
3491:
3492: vl_column_num := 3;
3493:
3486: dbms_sql.bind_variable(c_gl_line_cur,':je_status', 'P');
3487: dbms_sql.bind_variable(c_gl_line_cur,':sob_id', vg_sob_id);
3488:
3489: dbms_sql.define_column(c_gl_line_cur, 1, vl_reference_1, 280);
3490: dbms_sql.define_column(c_gl_line_cur, 2, vl_line_amount);
3491:
3492: vl_column_num := 3;
3493:
3494: IF vg_public_law_attribute IS NOT NULL THEN
3491:
3492: vl_column_num := 3;
3493:
3494: IF vg_public_law_attribute IS NOT NULL THEN
3495: dbms_sql.define_column(c_gl_line_cur, vl_column_num, vl_public_law_code, 150);
3496: vl_column_num := vl_column_num + 1;
3497: END IF;
3498:
3499: IF vg_advance_type_attribute IS NOT NULL THEN
3496: vl_column_num := vl_column_num + 1;
3497: END IF;
3498:
3499: IF vg_advance_type_attribute IS NOT NULL THEN
3500: dbms_sql.define_column(c_gl_line_cur, vl_column_num, vl_advance_type, 150);
3501: vl_column_num := vl_column_num + 1;
3502: END IF;
3503:
3504: IF vg_trf_dept_id_attribute IS NOT NULL THEN
3501: vl_column_num := vl_column_num + 1;
3502: END IF;
3503:
3504: IF vg_trf_dept_id_attribute IS NOT NULL THEN
3505: dbms_sql.define_column(c_gl_line_cur, vl_column_num, vl_trf_dept_id, 150);
3506: vl_column_num := vl_column_num + 1;
3507: dbms_sql.define_column(c_gl_line_cur, vl_column_num, vl_trf_main_acct, 150);
3508: END IF;
3509:
3503:
3504: IF vg_trf_dept_id_attribute IS NOT NULL THEN
3505: dbms_sql.define_column(c_gl_line_cur, vl_column_num, vl_trf_dept_id, 150);
3506: vl_column_num := vl_column_num + 1;
3507: dbms_sql.define_column(c_gl_line_cur, vl_column_num, vl_trf_main_acct, 150);
3508: END IF;
3509:
3510: BEGIN
3511: vl_exec_cur := dbms_sql.EXECUTE(c_gl_line_cur);
3507: dbms_sql.define_column(c_gl_line_cur, vl_column_num, vl_trf_main_acct, 150);
3508: END IF;
3509:
3510: BEGIN
3511: vl_exec_cur := dbms_sql.EXECUTE(c_gl_line_cur);
3512: EXCEPTION
3513: WHEN OTHERS THEN
3514: vp_retcode := 2 ;
3515: vp_errbuf := SQLERRM||
3523: vl_advance_type := NULL;
3524: vl_trf_dept_id := NULL;
3525: vl_trf_main_acct := NULL;
3526:
3527: IF dbms_sql.fetch_rows(c_gl_line_cur) = 0 THEN
3528: EXIT;
3529: ELSE
3530:
3531: dbms_sql.column_value(c_gl_line_cur, 1, vl_reference_1);
3527: IF dbms_sql.fetch_rows(c_gl_line_cur) = 0 THEN
3528: EXIT;
3529: ELSE
3530:
3531: dbms_sql.column_value(c_gl_line_cur, 1, vl_reference_1);
3532: dbms_sql.column_value(c_gl_line_cur, 2, vl_line_amount);
3533:
3534: vl_column_num := 3;
3535:
3528: EXIT;
3529: ELSE
3530:
3531: dbms_sql.column_value(c_gl_line_cur, 1, vl_reference_1);
3532: dbms_sql.column_value(c_gl_line_cur, 2, vl_line_amount);
3533:
3534: vl_column_num := 3;
3535:
3536: IF vg_public_law_attribute IS NOT NULL THEN
3533:
3534: vl_column_num := 3;
3535:
3536: IF vg_public_law_attribute IS NOT NULL THEN
3537: dbms_sql.column_value(c_gl_line_cur, vl_column_num, vl_public_law_code);
3538: vl_column_num := vl_column_num + 1;
3539: END IF;
3540:
3541: IF vg_advance_type_attribute IS NOT NULL THEN
3538: vl_column_num := vl_column_num + 1;
3539: END IF;
3540:
3541: IF vg_advance_type_attribute IS NOT NULL THEN
3542: dbms_sql.column_value(c_gl_line_cur, vl_column_num, vl_advance_type);
3543: vl_column_num := vl_column_num + 1;
3544: END IF;
3545:
3546: IF vg_trf_dept_id_attribute IS NOT NULL THEN
3543: vl_column_num := vl_column_num + 1;
3544: END IF;
3545:
3546: IF vg_trf_dept_id_attribute IS NOT NULL THEN
3547: dbms_sql.column_value(c_gl_line_cur, vl_column_num, vl_trf_dept_id);
3548: vl_column_num := vl_column_num + 1;
3549: dbms_sql.column_value(c_gl_line_cur, vl_column_num, vl_trf_main_acct);
3550: END IF;
3551:
3545:
3546: IF vg_trf_dept_id_attribute IS NOT NULL THEN
3547: dbms_sql.column_value(c_gl_line_cur, vl_column_num, vl_trf_dept_id);
3548: vl_column_num := vl_column_num + 1;
3549: dbms_sql.column_value(c_gl_line_cur, vl_column_num, vl_trf_main_acct);
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
3572: END IF;
3573: END LOOP;
3574:
3575: BEGIN
3576: dbms_sql.close_cursor(c_gl_line_cur);
3577: EXCEPTION
3578: WHEN OTHERS THEN
3579: vp_retcode := SQLCODE ;
3580: VP_ERRBUF := SQLERRM ;