52: END stripped_string;
53:
54: PROCEDURE Create_Extract
55: (
56: p_extract_code IN iby_extracts_vl.extract_code%TYPE,
57: p_extract_version IN iby_extracts_vl.extract_version%TYPE,
58: p_params IN OUT NOCOPY JTF_VARCHAR2_TABLE_200,
59: x_extract_doc OUT NOCOPY CLOB
60: )
53:
54: PROCEDURE Create_Extract
55: (
56: p_extract_code IN iby_extracts_vl.extract_code%TYPE,
57: p_extract_version IN iby_extracts_vl.extract_version%TYPE,
58: p_params IN OUT NOCOPY JTF_VARCHAR2_TABLE_200,
59: x_extract_doc OUT NOCOPY CLOB
60: )
61: IS
84: CURSOR c_x_info(ci_extract_code IN iby_extracts_b.extract_code%TYPE,
85: ci_extract_version IN iby_extracts_b.extract_version%TYPE)
86: IS
87: SELECT gen_code_package,gen_code_entry_point
88: FROM iby_extracts_vl
89: WHERE (extract_code=ci_extract_code)
90: AND (extract_version=ci_extract_version)
91: AND (gen_code_language='PLSQL');
92: BEGIN
116: CLOSE c_x_info;
117:
118: IF (l_x_not_found) THEN
119: raise_application_error(-20000,
120: 'IBY_20590#TABLE=IBY_EXTRACTS_VL' || '#ID=' || p_extract_code,
121: FALSE);
122: END IF;
123: -- test_debug('l_code_pkg: '|| l_code_pkg);
124: