37: l_sql := ' SELECT '||p_select||' FROM '||p_from;
38: END IF;
39:
40: --Bug 9733446 - RGOOTY
41: if dbms_sql.is_open(l_cursor) then
42: DBMS_SQL.CLOSE_CURSOR(l_cursor);
43: end if;
44: l_cursor := DBMS_SQL.OPEN_CURSOR;
45: DBMS_SQL.PARSE(l_cursor, l_sql , DBMS_SQL.V7);
38: END IF;
39:
40: --Bug 9733446 - RGOOTY
41: if dbms_sql.is_open(l_cursor) then
42: DBMS_SQL.CLOSE_CURSOR(l_cursor);
43: end if;
44: l_cursor := DBMS_SQL.OPEN_CURSOR;
45: DBMS_SQL.PARSE(l_cursor, l_sql , DBMS_SQL.V7);
46:
40: --Bug 9733446 - RGOOTY
41: if dbms_sql.is_open(l_cursor) then
42: DBMS_SQL.CLOSE_CURSOR(l_cursor);
43: end if;
44: l_cursor := DBMS_SQL.OPEN_CURSOR;
45: DBMS_SQL.PARSE(l_cursor, l_sql , DBMS_SQL.V7);
46:
47: DBMS_SQL.DEFINE_COLUMN(l_cursor, 1, x_inv_total);
48: DBMS_SQL.DEFINE_COLUMN(l_cursor, 2, x_rec_total);
41: if dbms_sql.is_open(l_cursor) then
42: DBMS_SQL.CLOSE_CURSOR(l_cursor);
43: end if;
44: l_cursor := DBMS_SQL.OPEN_CURSOR;
45: DBMS_SQL.PARSE(l_cursor, l_sql , DBMS_SQL.V7);
46:
47: DBMS_SQL.DEFINE_COLUMN(l_cursor, 1, x_inv_total);
48: DBMS_SQL.DEFINE_COLUMN(l_cursor, 2, x_rec_total);
49: DBMS_SQL.DEFINE_COLUMN(l_cursor, 3, x_due_total);
43: end if;
44: l_cursor := DBMS_SQL.OPEN_CURSOR;
45: DBMS_SQL.PARSE(l_cursor, l_sql , DBMS_SQL.V7);
46:
47: DBMS_SQL.DEFINE_COLUMN(l_cursor, 1, x_inv_total);
48: DBMS_SQL.DEFINE_COLUMN(l_cursor, 2, x_rec_total);
49: DBMS_SQL.DEFINE_COLUMN(l_cursor, 3, x_due_total);
50: IF p_from IN ('OKL_CS_BILLINGTRX_UV','OKL_CS_ACCOUNT_CONT_INV_UV','OKL_CS_ACCOUNT_INV_UV') THEN
51: DBMS_SQL.DEFINE_COLUMN(l_cursor, 4, x_credit_total);
44: l_cursor := DBMS_SQL.OPEN_CURSOR;
45: DBMS_SQL.PARSE(l_cursor, l_sql , DBMS_SQL.V7);
46:
47: DBMS_SQL.DEFINE_COLUMN(l_cursor, 1, x_inv_total);
48: DBMS_SQL.DEFINE_COLUMN(l_cursor, 2, x_rec_total);
49: DBMS_SQL.DEFINE_COLUMN(l_cursor, 3, x_due_total);
50: IF p_from IN ('OKL_CS_BILLINGTRX_UV','OKL_CS_ACCOUNT_CONT_INV_UV','OKL_CS_ACCOUNT_INV_UV') THEN
51: DBMS_SQL.DEFINE_COLUMN(l_cursor, 4, x_credit_total);
52: DBMS_SQL.DEFINE_COLUMN(l_cursor, 5, x_adjust_total);
45: DBMS_SQL.PARSE(l_cursor, l_sql , DBMS_SQL.V7);
46:
47: DBMS_SQL.DEFINE_COLUMN(l_cursor, 1, x_inv_total);
48: DBMS_SQL.DEFINE_COLUMN(l_cursor, 2, x_rec_total);
49: DBMS_SQL.DEFINE_COLUMN(l_cursor, 3, x_due_total);
50: IF p_from IN ('OKL_CS_BILLINGTRX_UV','OKL_CS_ACCOUNT_CONT_INV_UV','OKL_CS_ACCOUNT_INV_UV') THEN
51: DBMS_SQL.DEFINE_COLUMN(l_cursor, 4, x_credit_total);
52: DBMS_SQL.DEFINE_COLUMN(l_cursor, 5, x_adjust_total);
53: END IF;
47: DBMS_SQL.DEFINE_COLUMN(l_cursor, 1, x_inv_total);
48: DBMS_SQL.DEFINE_COLUMN(l_cursor, 2, x_rec_total);
49: DBMS_SQL.DEFINE_COLUMN(l_cursor, 3, x_due_total);
50: IF p_from IN ('OKL_CS_BILLINGTRX_UV','OKL_CS_ACCOUNT_CONT_INV_UV','OKL_CS_ACCOUNT_INV_UV') THEN
51: DBMS_SQL.DEFINE_COLUMN(l_cursor, 4, x_credit_total);
52: DBMS_SQL.DEFINE_COLUMN(l_cursor, 5, x_adjust_total);
53: END IF;
54:
55: l_rows := DBMS_SQL.EXECUTE_AND_FETCH(l_cursor);
48: DBMS_SQL.DEFINE_COLUMN(l_cursor, 2, x_rec_total);
49: DBMS_SQL.DEFINE_COLUMN(l_cursor, 3, x_due_total);
50: IF p_from IN ('OKL_CS_BILLINGTRX_UV','OKL_CS_ACCOUNT_CONT_INV_UV','OKL_CS_ACCOUNT_INV_UV') THEN
51: DBMS_SQL.DEFINE_COLUMN(l_cursor, 4, x_credit_total);
52: DBMS_SQL.DEFINE_COLUMN(l_cursor, 5, x_adjust_total);
53: END IF;
54:
55: l_rows := DBMS_SQL.EXECUTE_AND_FETCH(l_cursor);
56:
51: DBMS_SQL.DEFINE_COLUMN(l_cursor, 4, x_credit_total);
52: DBMS_SQL.DEFINE_COLUMN(l_cursor, 5, x_adjust_total);
53: END IF;
54:
55: l_rows := DBMS_SQL.EXECUTE_AND_FETCH(l_cursor);
56:
57: IF l_rows = 1 THEN
58:
59: DBMS_SQL.COLUMN_VALUE(l_cursor, 1, x_inv_total);
55: l_rows := DBMS_SQL.EXECUTE_AND_FETCH(l_cursor);
56:
57: IF l_rows = 1 THEN
58:
59: DBMS_SQL.COLUMN_VALUE(l_cursor, 1, x_inv_total);
60: DBMS_SQL.COLUMN_VALUE(l_cursor, 2, x_rec_total);
61: DBMS_SQL.COLUMN_VALUE(l_cursor, 3, x_due_total);
62: IF p_from IN ('OKL_CS_BILLINGTRX_UV','OKL_CS_ACCOUNT_CONT_INV_UV','OKL_CS_ACCOUNT_INV_UV') THEN
63: DBMS_SQL.COLUMN_VALUE(l_cursor, 4, x_credit_total);
56:
57: IF l_rows = 1 THEN
58:
59: DBMS_SQL.COLUMN_VALUE(l_cursor, 1, x_inv_total);
60: DBMS_SQL.COLUMN_VALUE(l_cursor, 2, x_rec_total);
61: DBMS_SQL.COLUMN_VALUE(l_cursor, 3, x_due_total);
62: IF p_from IN ('OKL_CS_BILLINGTRX_UV','OKL_CS_ACCOUNT_CONT_INV_UV','OKL_CS_ACCOUNT_INV_UV') THEN
63: DBMS_SQL.COLUMN_VALUE(l_cursor, 4, x_credit_total);
64: DBMS_SQL.COLUMN_VALUE(l_cursor, 5, x_adjust_total);
57: IF l_rows = 1 THEN
58:
59: DBMS_SQL.COLUMN_VALUE(l_cursor, 1, x_inv_total);
60: DBMS_SQL.COLUMN_VALUE(l_cursor, 2, x_rec_total);
61: DBMS_SQL.COLUMN_VALUE(l_cursor, 3, x_due_total);
62: IF p_from IN ('OKL_CS_BILLINGTRX_UV','OKL_CS_ACCOUNT_CONT_INV_UV','OKL_CS_ACCOUNT_INV_UV') THEN
63: DBMS_SQL.COLUMN_VALUE(l_cursor, 4, x_credit_total);
64: DBMS_SQL.COLUMN_VALUE(l_cursor, 5, x_adjust_total);
65: END IF;
59: DBMS_SQL.COLUMN_VALUE(l_cursor, 1, x_inv_total);
60: DBMS_SQL.COLUMN_VALUE(l_cursor, 2, x_rec_total);
61: DBMS_SQL.COLUMN_VALUE(l_cursor, 3, x_due_total);
62: IF p_from IN ('OKL_CS_BILLINGTRX_UV','OKL_CS_ACCOUNT_CONT_INV_UV','OKL_CS_ACCOUNT_INV_UV') THEN
63: DBMS_SQL.COLUMN_VALUE(l_cursor, 4, x_credit_total);
64: DBMS_SQL.COLUMN_VALUE(l_cursor, 5, x_adjust_total);
65: END IF;
66:
67: x_return_status := OKL_API.G_RET_STS_SUCCESS;
60: DBMS_SQL.COLUMN_VALUE(l_cursor, 2, x_rec_total);
61: DBMS_SQL.COLUMN_VALUE(l_cursor, 3, x_due_total);
62: IF p_from IN ('OKL_CS_BILLINGTRX_UV','OKL_CS_ACCOUNT_CONT_INV_UV','OKL_CS_ACCOUNT_INV_UV') THEN
63: DBMS_SQL.COLUMN_VALUE(l_cursor, 4, x_credit_total);
64: DBMS_SQL.COLUMN_VALUE(l_cursor, 5, x_adjust_total);
65: END IF;
66:
67: x_return_status := OKL_API.G_RET_STS_SUCCESS;
68:
73: END IF;
74:
75: x_row_count := l_rows;
76: --Bug 9733446 - RGOOTY
77: if dbms_sql.is_open(l_cursor) then
78: DBMS_SQL.CLOSE_CURSOR(l_cursor);
79: end if;
80:
81: EXCEPTION
74:
75: x_row_count := l_rows;
76: --Bug 9733446 - RGOOTY
77: if dbms_sql.is_open(l_cursor) then
78: DBMS_SQL.CLOSE_CURSOR(l_cursor);
79: end if;
80:
81: EXCEPTION
82:
90: p_token2_value => SQLERRM);
91:
92: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
93: --Bug 9733446 - RGOOTY
94: if dbms_sql.is_open(l_cursor) then
95: DBMS_SQL.CLOSE_CURSOR(l_cursor);
96: end if;
97:
98: END get_totals;
91:
92: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
93: --Bug 9733446 - RGOOTY
94: if dbms_sql.is_open(l_cursor) then
95: DBMS_SQL.CLOSE_CURSOR(l_cursor);
96: end if;
97:
98: END get_totals;
99: