4: TYPE char_tab IS TABLE OF pay_action_information.action_information1%type INDEX BY BINARY_INTEGER;
5: g_xml_nwr char_tab;
6: --
7: g_action_ctx_id NUMBER;
8: sqlstr DBMS_SQL.VARCHAR2S;
9: l_cntr_sql NUMBER;
10: g_year VARCHAR2(10);
11: g_report_type VARCHAR2(20);
12: EOL VARCHAR2(5) := fnd_global.local_chr(10); --7283669
330: -- Name : BUILD_SQL
331: -- Description : This procedure builds dynamic SQL string.
332: --------------------------------------------------------------------------------
333: --
334: PROCEDURE build_sql(p_sqlstr_tab IN OUT NOCOPY DBMS_SQL.VARCHAR2S
335: ,p_cntr IN OUT NOCOPY NUMBER
336: ,p_string VARCHAR2) AS
337: --
338: l_proc_name varchar2(100);
1477: build_sql(sqlstr, l_cntr_sql, 'pay_nl_nwr_xml_extract_pkg.load_xml(''CE'', NULL, ''Loonaangifte'', NULL);');
1478: END IF;
1479: build_sql(sqlstr, l_cntr_sql, 'END;');
1480: --
1481: csr := dbms_sql.open_cursor;
1482: dbms_sql.parse (csr,
1483: sqlstr,
1484: sqlstr.first(),
1485: sqlstr.last(),
1478: END IF;
1479: build_sql(sqlstr, l_cntr_sql, 'END;');
1480: --
1481: csr := dbms_sql.open_cursor;
1482: dbms_sql.parse (csr,
1483: sqlstr,
1484: sqlstr.first(),
1485: sqlstr.last(),
1486: false,
1483: sqlstr,
1484: sqlstr.first(),
1485: sqlstr.last(),
1486: false,
1487: dbms_sql.v7);
1488: ret := dbms_sql.execute(csr);
1489: dbms_sql.close_cursor(csr);
1490: --
1491: WritetoCLOB(p_xfdf_string => l_xml);
1484: sqlstr.first(),
1485: sqlstr.last(),
1486: false,
1487: dbms_sql.v7);
1488: ret := dbms_sql.execute(csr);
1489: dbms_sql.close_cursor(csr);
1490: --
1491: WritetoCLOB(p_xfdf_string => l_xml);
1492: --
1485: sqlstr.last(),
1486: false,
1487: dbms_sql.v7);
1488: ret := dbms_sql.execute(csr);
1489: dbms_sql.close_cursor(csr);
1490: --
1491: WritetoCLOB(p_xfdf_string => l_xml);
1492: --
1493: p_xml := l_xml;