[Home] [Help]
40: l_sql VARCHAR2(4000);
41: l_count NUMBER;
42:
43: BEGIN
44: l_sql := 'SELECT 1 FROM DUAL WHERE EXISTS (SELECT 1 FROM ' || UPPER(p_table_name);
45: l_sql := l_sql || ' WHERE ' || UPPER(p_pk_name) || ' = :b1';
46:
47: IF p_additional_where_clause IS NOT NULL THEN
48: -- given time, incorporate bind_parse
89: FROM jtf_rs_role_relations role_reln, jtf_rs_roles_vl rl
90: WHERE rl.ROLE_TYPE_CODE = 'PRM'
91: AND rl.role_code = 'PV_VENDOR_ADMINISTRATOR'
92: AND rl.role_id = role_reln.role_id
93: AND role_reln.role_resource_type = 'RS_INDIVIDUAL'
94: AND role_reln.ROLE_RESOURCE_ID = p_res_id
95: AND delete_flag = 'N'
96: AND TRUNC(SYSDATE) BETWEEN TRUNC(role_reln.start_date_active)
97: AND TRUNC(NVL(role_reln.end_date_active,SYSDATE));
125: l_count NUMBER;
126:
127: BEGIN
128:
129: l_sql := 'SELECT 1 FROM DUAL WHERE EXISTS (SELECT 1 FROM ' || p_lookup_table_name;
130: l_sql := l_sql || ' WHERE LOOKUP_TYPE = :b1';
131: l_sql := l_sql || ' AND LOOKUP_CODE = :b2';
132: l_sql := l_sql || ' AND ENABLED_FLAG = ''Y'')';
133:
170: l_bind_tbl col_val_tbl;
171:
172: BEGIN
173:
174: l_sql := 'SELECT 1 FROM DUAL WHERE EXISTS (SELECT 1 FROM ' || UPPER(p_table_name);
175: -- l_sql := l_sql || ' WHERE ' || p_where_clause;
176:
177: bind_parse (p_where_clause, l_bind_tbl);
178:
766: --x1_object_version_number NUMBER(9) := 1;
767:
768: CURSOR c_id IS
769: SELECT PV_GE_HISTORY_LOG_B_S.NEXTVAL
770: FROM dual;
771:
772: CURSOR c_message_code (cv_message_code IN VARCHAR2) IS
773: SELECT 'Y'
774: FROM fnd_new_messages
780: l_lookup_code VARCHAR2(30);
781:
782: CURSOR c_param_id IS
783: SELECT PV_GE_HISTORY_LOG_PARAMS_S.NEXTVAL
784: FROM dual;
785:
786: BEGIN
787:
788: /* Standard Start of API savepoint */