[Home] [Help]
1: PACKAGE BODY cn_calc_sql_exps_pvt AS
2: /*$Header: cnvcexpb.pls 120.10.12010000.2 2008/12/08 10:23:18 venjayar ship $*/
3: g_pkg_name CONSTANT VARCHAR2(30) := 'CN_CALC_SQL_EXPS_PVT';
4:
5: PROCEDURE get_usage_info(
1: PACKAGE BODY cn_calc_sql_exps_pvt AS
2: /*$Header: cnvcexpb.pls 120.10.12010000.2 2008/12/08 10:23:18 venjayar ship $*/
3: g_pkg_name CONSTANT VARCHAR2(30) := 'CN_CALC_SQL_EXPS_PVT';
4:
5: PROCEDURE get_usage_info(
6: p_exp_type_code IN cn_calc_sql_exps.exp_type_code%TYPE
7: , x_usage_info OUT NOCOPY VARCHAR2
1530: FROM cn_calc_sql_exps
1531: WHERE calc_sql_exp_id = p_current_id;
1532:
1533: l_current_id NUMBER;
1534: l_pe_tbl cn_calc_sql_exps_pvt.num_tbl_type;
1535: l_sql_sel VARCHAR2(4000);
1536: l_junk VARCHAR2(4000);
1537: BEGIN
1538: IF p_node_type = p_original_node_type AND p_current_id = p_original_node_id AND p_level > 0 THEN
1565: OPEN get_sql_sel;
1566: FETCH get_sql_sel INTO l_sql_sel;
1567: CLOSE get_sql_sel;
1568:
1569: cn_calc_sql_exps_pvt.parse_plan_elements(l_sql_sel, l_pe_tbl, l_junk);
1570:
1571: FOR x IN 1 .. l_pe_tbl.COUNT LOOP
1572: dfs(p_original_node_type, p_original_node_id, 'P', l_pe_tbl(x), p_level + 1, p_pe_arr);
1573: END LOOP;
1674: FROM cn_calc_edges
1675: WHERE edge_type = 'FE' AND child_id = p_current_id;
1676:
1677: l_current_id NUMBER;
1678: l_pe_tbl cn_calc_sql_exps_pvt.num_tbl_type;
1679: BEGIN
1680: IF p_node_type = p_original_node_type AND p_current_id = p_original_node_id AND p_level > 0 THEN
1681: fnd_message.set_name('CN', 'CN_PE_CANNOT_REF_ITSEF');
1682: fnd_msg_pub.ADD;
2840:
2841: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data
2842: , p_encoded => fnd_api.g_false);
2843: END duplicate_expression;
2844: END cn_calc_sql_exps_pvt;