74: p_reason IN VARCHAR2)
75: IS
76: l_api_name CONSTANT VARCHAR2(50) := 'gen_xml_data_collcamp';
77: l_api_version CONSTANT NUMBER := 1.0;
78: ctx DBMS_XMLQUERY.ctxType;
79: result CLOB;
80: qryCtx DBMS_XMLquery.ctxHandle;
81: l_result CLOB;
82: tempResult CLOB;
76: l_api_name CONSTANT VARCHAR2(50) := 'gen_xml_data_collcamp';
77: l_api_version CONSTANT NUMBER := 1.0;
78: ctx DBMS_XMLQUERY.ctxType;
79: result CLOB;
80: qryCtx DBMS_XMLquery.ctxHandle;
81: l_result CLOB;
82: tempResult CLOB;
83: l_where VARCHAR2(8000):='';
84: l_group_by VARCHAR2(4000);
92: l_xml_header CLOB;--varchar2(4000);
93: l_xml_header_length NUMBER;
94: l_errNo NUMBER;
95: l_errMsg VARCHAR2(200);
96: queryCtx DBMS_XMLquery.ctxType;
97: l_xml_query VARCHAR2(32767);
98: TYPE ref_cur
99: IS
100: REF
234: l_query:=l_query||l_where;
235: l_query:=l_query||l_group_by;
236: FND_FILE.put_line( FND_FILE.LOG,'qry-->'||l_query);
237: LogMessage(FND_LOG.LEVEL_STATEMENT, 'query: ' || l_query);
238: ctx := DBMS_XMLQUERY.newContext(l_query);
239: DBMS_XMLQUERY.setRaiseNoRowsException(ctx,TRUE);
240: -- Bind Mandatory Variables
241: --DBMS_XMLQUERY.setBindValue(ctx, 'p_date_from', p_date_from);
242: --DBMS_XMLQUERY.setBindValue(ctx, 'p_date_to', p_date_to);
235: l_query:=l_query||l_group_by;
236: FND_FILE.put_line( FND_FILE.LOG,'qry-->'||l_query);
237: LogMessage(FND_LOG.LEVEL_STATEMENT, 'query: ' || l_query);
238: ctx := DBMS_XMLQUERY.newContext(l_query);
239: DBMS_XMLQUERY.setRaiseNoRowsException(ctx,TRUE);
240: -- Bind Mandatory Variables
241: --DBMS_XMLQUERY.setBindValue(ctx, 'p_date_from', p_date_from);
242: --DBMS_XMLQUERY.setBindValue(ctx, 'p_date_to', p_date_to);
243: -- DBMS_XMLQUERY.setBindValue(ctx, 'p_pro_state', p_pro_state);
237: LogMessage(FND_LOG.LEVEL_STATEMENT, 'query: ' || l_query);
238: ctx := DBMS_XMLQUERY.newContext(l_query);
239: DBMS_XMLQUERY.setRaiseNoRowsException(ctx,TRUE);
240: -- Bind Mandatory Variables
241: --DBMS_XMLQUERY.setBindValue(ctx, 'p_date_from', p_date_from);
242: --DBMS_XMLQUERY.setBindValue(ctx, 'p_date_to', p_date_to);
243: -- DBMS_XMLQUERY.setBindValue(ctx, 'p_pro_state', p_pro_state);
244: -- DBMS_XMLQUERY.setBindValue(ctx, 'p_pro_status', p_pro_status);
245: --get the result
238: ctx := DBMS_XMLQUERY.newContext(l_query);
239: DBMS_XMLQUERY.setRaiseNoRowsException(ctx,TRUE);
240: -- Bind Mandatory Variables
241: --DBMS_XMLQUERY.setBindValue(ctx, 'p_date_from', p_date_from);
242: --DBMS_XMLQUERY.setBindValue(ctx, 'p_date_to', p_date_to);
243: -- DBMS_XMLQUERY.setBindValue(ctx, 'p_pro_state', p_pro_state);
244: -- DBMS_XMLQUERY.setBindValue(ctx, 'p_pro_status', p_pro_status);
245: --get the result
246: BEGIN
239: DBMS_XMLQUERY.setRaiseNoRowsException(ctx,TRUE);
240: -- Bind Mandatory Variables
241: --DBMS_XMLQUERY.setBindValue(ctx, 'p_date_from', p_date_from);
242: --DBMS_XMLQUERY.setBindValue(ctx, 'p_date_to', p_date_to);
243: -- DBMS_XMLQUERY.setBindValue(ctx, 'p_pro_state', p_pro_state);
244: -- DBMS_XMLQUERY.setBindValue(ctx, 'p_pro_status', p_pro_status);
245: --get the result
246: BEGIN
247: l_result := DBMS_XMLQUERY.getXML(ctx);
240: -- Bind Mandatory Variables
241: --DBMS_XMLQUERY.setBindValue(ctx, 'p_date_from', p_date_from);
242: --DBMS_XMLQUERY.setBindValue(ctx, 'p_date_to', p_date_to);
243: -- DBMS_XMLQUERY.setBindValue(ctx, 'p_pro_state', p_pro_state);
244: -- DBMS_XMLQUERY.setBindValue(ctx, 'p_pro_status', p_pro_status);
245: --get the result
246: BEGIN
247: l_result := DBMS_XMLQUERY.getXML(ctx);
248: DBMS_XMLQUERY.closeContext(ctx);
243: -- DBMS_XMLQUERY.setBindValue(ctx, 'p_pro_state', p_pro_state);
244: -- DBMS_XMLQUERY.setBindValue(ctx, 'p_pro_status', p_pro_status);
245: --get the result
246: BEGIN
247: l_result := DBMS_XMLQUERY.getXML(ctx);
248: DBMS_XMLQUERY.closeContext(ctx);
249: l_rows_processed := 1;
250: EXCEPTION
251: WHEN OTHERS THEN
244: -- DBMS_XMLQUERY.setBindValue(ctx, 'p_pro_status', p_pro_status);
245: --get the result
246: BEGIN
247: l_result := DBMS_XMLQUERY.getXML(ctx);
248: DBMS_XMLQUERY.closeContext(ctx);
249: l_rows_processed := 1;
250: EXCEPTION
251: WHEN OTHERS THEN
252: DBMS_XMLQUERY.getExceptionContent(ctx,l_errNo,l_errMsg);
248: DBMS_XMLQUERY.closeContext(ctx);
249: l_rows_processed := 1;
250: EXCEPTION
251: WHEN OTHERS THEN
252: DBMS_XMLQUERY.getExceptionContent(ctx,l_errNo,l_errMsg);
253: IF l_errNo = 1403 THEN
254: l_rows_processed := 0;
255: --l_no_data_flag:=0;
256: END IF;
253: IF l_errNo = 1403 THEN
254: l_rows_processed := 0;
255: --l_no_data_flag:=0;
256: END IF;
257: DBMS_XMLQUERY.closeContext(ctx);
258: END;
259: IF l_rows_processed <> 0 THEN
260: FND_FILE.put_line( FND_FILE.LOG,'8') ;
261: --get the length og the rowset header