1530: l_process_URL VARCHAR2(500) := NULL;
1531: l_start_index NUMBER;
1532: l_end_index NUMBER;
1533: l_length NUMBER;
1534: http_req UTL_HTTP.REQ;
1535: http_resp UTL_HTTP.RESP;
1536: --
1537:
1538: BEGIN
1531: l_start_index NUMBER;
1532: l_end_index NUMBER;
1533: l_length NUMBER;
1534: http_req UTL_HTTP.REQ;
1535: http_resp UTL_HTTP.RESP;
1536: --
1537:
1538: BEGIN
1539: FND_FILE.PUT_LINE(FND_FILE.LOG, l_full_name||', start');
1572: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Process input: '||l_xml_input);
1573: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
1574:
1575: -- create the HTTP request
1576: http_req := UTL_HTTP.BEGIN_REQUEST
1577: ( l_process_URL,
1578: 'POST',
1579: 'HTTP/1.1'
1580: );
1579: 'HTTP/1.1'
1580: );
1581:
1582: -- set the request header properties and write the XML input in it
1583: UTL_HTTP.SET_HEADER(http_req, 'Content-Type', 'text/xml');
1584: UTL_HTTP.SET_HEADER(http_req, 'Content-Length', LENGTH(l_xml_input));
1585: UTL_HTTP.SET_HEADER(http_req, 'SOAPAction', 'process');
1586: UTL_HTTP.WRITE_TEXT(http_req, l_xml_input);
1587:
1580: );
1581:
1582: -- set the request header properties and write the XML input in it
1583: UTL_HTTP.SET_HEADER(http_req, 'Content-Type', 'text/xml');
1584: UTL_HTTP.SET_HEADER(http_req, 'Content-Length', LENGTH(l_xml_input));
1585: UTL_HTTP.SET_HEADER(http_req, 'SOAPAction', 'process');
1586: UTL_HTTP.WRITE_TEXT(http_req, l_xml_input);
1587:
1588: -- get the response and write it in the XML output
1581:
1582: -- set the request header properties and write the XML input in it
1583: UTL_HTTP.SET_HEADER(http_req, 'Content-Type', 'text/xml');
1584: UTL_HTTP.SET_HEADER(http_req, 'Content-Length', LENGTH(l_xml_input));
1585: UTL_HTTP.SET_HEADER(http_req, 'SOAPAction', 'process');
1586: UTL_HTTP.WRITE_TEXT(http_req, l_xml_input);
1587:
1588: -- get the response and write it in the XML output
1589: http_resp := UTL_HTTP.GET_RESPONSE(http_req);
1582: -- set the request header properties and write the XML input in it
1583: UTL_HTTP.SET_HEADER(http_req, 'Content-Type', 'text/xml');
1584: UTL_HTTP.SET_HEADER(http_req, 'Content-Length', LENGTH(l_xml_input));
1585: UTL_HTTP.SET_HEADER(http_req, 'SOAPAction', 'process');
1586: UTL_HTTP.WRITE_TEXT(http_req, l_xml_input);
1587:
1588: -- get the response and write it in the XML output
1589: http_resp := UTL_HTTP.GET_RESPONSE(http_req);
1590: UTL_HTTP.READ_TEXT(http_resp, l_xml_output);
1585: UTL_HTTP.SET_HEADER(http_req, 'SOAPAction', 'process');
1586: UTL_HTTP.WRITE_TEXT(http_req, l_xml_input);
1587:
1588: -- get the response and write it in the XML output
1589: http_resp := UTL_HTTP.GET_RESPONSE(http_req);
1590: UTL_HTTP.READ_TEXT(http_resp, l_xml_output);
1591: UTL_HTTP.END_RESPONSE(http_resp);
1592:
1593: -- fetch the process errors, if any, from the
1586: UTL_HTTP.WRITE_TEXT(http_req, l_xml_input);
1587:
1588: -- get the response and write it in the XML output
1589: http_resp := UTL_HTTP.GET_RESPONSE(http_req);
1590: UTL_HTTP.READ_TEXT(http_resp, l_xml_output);
1591: UTL_HTTP.END_RESPONSE(http_resp);
1592:
1593: -- fetch the process errors, if any, from the
1594: l_start_index := INSTR(l_xml_output, '
1587:
1588: -- get the response and write it in the XML output
1589: http_resp := UTL_HTTP.GET_RESPONSE(http_req);
1590: UTL_HTTP.READ_TEXT(http_resp, l_xml_output);
1591: UTL_HTTP.END_RESPONSE(http_resp);
1592:
1593: -- fetch the process errors, if any, from the
1594: l_start_index := INSTR(l_xml_output, '
1595: IF (l_start_index <> 22) THEN