1535: http_resp UTL_HTTP.RESP;
1536: --
1537:
1538: BEGIN
1539: FND_FILE.PUT_LINE(FND_FILE.LOG, l_full_name||', start');
1540: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
1541: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start time: '||TO_CHAR(SYSDATE, 'Month DD, YYYY HH24:MI:SS'));
1542: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
1543:
1536: --
1537:
1538: BEGIN
1539: FND_FILE.PUT_LINE(FND_FILE.LOG, l_full_name||', start');
1540: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
1541: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start time: '||TO_CHAR(SYSDATE, 'Month DD, YYYY HH24:MI:SS'));
1542: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
1543:
1544: -- initialize return status to success
1537:
1538: BEGIN
1539: FND_FILE.PUT_LINE(FND_FILE.LOG, l_full_name||', start');
1540: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
1541: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start time: '||TO_CHAR(SYSDATE, 'Month DD, YYYY HH24:MI:SS'));
1542: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
1543:
1544: -- initialize return status to success
1545: retcode := 0;
1538: BEGIN
1539: FND_FILE.PUT_LINE(FND_FILE.LOG, l_full_name||', start');
1540: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
1541: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start time: '||TO_CHAR(SYSDATE, 'Month DD, YYYY HH24:MI:SS'));
1542: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
1543:
1544: -- initialize return status to success
1545: retcode := 0;
1546:
1546:
1547: -- fetch the BPEL IPC process AhlProcessIPCReports URL from the profile 'AHL: BPEL IPC Process (AhlProcessIPCReports) URL'
1548: l_process_URL := FND_PROFILE.VALUE('AHL_ENIGMA_BPEL_IPC_URL');
1549:
1550: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Prcoess URL: '||l_process_URL);
1551: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
1552:
1553: -- check for process URL
1554: IF (l_process_URL IS NULL) THEN
1547: -- fetch the BPEL IPC process AhlProcessIPCReports URL from the profile 'AHL: BPEL IPC Process (AhlProcessIPCReports) URL'
1548: l_process_URL := FND_PROFILE.VALUE('AHL_ENIGMA_BPEL_IPC_URL');
1549:
1550: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Prcoess URL: '||l_process_URL);
1551: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
1552:
1553: -- check for process URL
1554: IF (l_process_URL IS NULL) THEN
1555: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error occurred. Details: '||
1551: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
1552:
1553: -- check for process URL
1554: IF (l_process_URL IS NULL) THEN
1555: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error occurred. Details: '||
1556: 'profile AHL: BPEL IPC Process (AhlProcessIPCReports) URL is not set.');
1557: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
1558: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1559: END IF;
1553: -- check for process URL
1554: IF (l_process_URL IS NULL) THEN
1555: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error occurred. Details: '||
1556: 'profile AHL: BPEL IPC Process (AhlProcessIPCReports) URL is not set.');
1557: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
1558: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1559: END IF;
1560:
1561: -- create the empty XML input for the process
1568: ' '||
1569: ' '||
1570: ' ';
1571:
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
1569: ' '||
1570: ' ';
1571:
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,
1596: l_end_index := INSTR(l_xml_output, '');
1597: l_length := l_end_index - l_start_index;
1598: l_temp_string := SUBSTR(l_xml_output, l_start_index, l_length);
1599:
1600: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error occurred. Details:');
1601: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);
1602: FND_FILE.PUT_LINE(FND_FILE.LOG, l_temp_string);
1603: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);
1604:
1597: l_length := l_end_index - l_start_index;
1598: l_temp_string := SUBSTR(l_xml_output, l_start_index, l_length);
1599:
1600: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error occurred. Details:');
1601: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);
1602: FND_FILE.PUT_LINE(FND_FILE.LOG, l_temp_string);
1603: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);
1604:
1605: l_start_index := INSTR(l_xml_output, '
1598: l_temp_string := SUBSTR(l_xml_output, l_start_index, l_length);
1599:
1600: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error occurred. Details:');
1601: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);
1602: FND_FILE.PUT_LINE(FND_FILE.LOG, l_temp_string);
1603: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);
1604:
1605: l_start_index := INSTR(l_xml_output, '
1606: IF (l_start_index <> 9) THEN
1599:
1600: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error occurred. Details:');
1601: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);
1602: FND_FILE.PUT_LINE(FND_FILE.LOG, l_temp_string);
1603: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);
1604:
1605: l_start_index := INSTR(l_xml_output, '
1606: IF (l_start_index <> 9) THEN
1607: l_end_index := INSTR(l_xml_output, '
1607: l_end_index := INSTR(l_xml_output, '');
1608: l_length := l_end_index - l_start_index;
1609: l_temp_string := SUBSTR(l_xml_output, l_start_index, l_length);
1610:
1611: FND_FILE.PUT_LINE(FND_FILE.LOG, l_temp_string);
1612: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);
1613: END IF;
1614:
1615: l_start_index := INSTR(l_xml_output, '
1608: l_length := l_end_index - l_start_index;
1609: l_temp_string := SUBSTR(l_xml_output, l_start_index, l_length);
1610:
1611: FND_FILE.PUT_LINE(FND_FILE.LOG, l_temp_string);
1612: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);
1613: END IF;
1614:
1615: l_start_index := INSTR(l_xml_output, '
1616: IF (l_start_index <> 8) THEN
1617: l_end_index := INSTR(l_xml_output, '');
1618: l_length := l_end_index - l_start_index;
1619: l_temp_string := SUBSTR(l_xml_output, l_start_index, l_length);
1620:
1621: FND_FILE.PUT_LINE(FND_FILE.LOG, l_temp_string);
1622: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);
1623: END IF;
1624:
1625: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1618: l_length := l_end_index - l_start_index;
1619: l_temp_string := SUBSTR(l_xml_output, l_start_index, l_length);
1620:
1621: FND_FILE.PUT_LINE(FND_FILE.LOG, l_temp_string);
1622: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);
1623: END IF;
1624:
1625: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1626: END IF;
1630: l_end_index := INSTR(l_xml_output, '');
1631: l_length := l_end_index - l_start_index;
1632: l_xml_output := SUBSTR(l_xml_output, l_start_index, l_length);
1633:
1634: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Process output: '||l_xml_output);
1635: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
1636:
1637: -- put the process output in the Concurrent Program's output
1638: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_xml_output);
1631: l_length := l_end_index - l_start_index;
1632: l_xml_output := SUBSTR(l_xml_output, l_start_index, l_length);
1633:
1634: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Process output: '||l_xml_output);
1635: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
1636:
1637: -- put the process output in the Concurrent Program's output
1638: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_xml_output);
1639:
1634: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Process output: '||l_xml_output);
1635: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
1636:
1637: -- put the process output in the Concurrent Program's output
1638: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_xml_output);
1639:
1640: FND_FILE.PUT_LINE(FND_FILE.LOG, l_full_name||', end');
1641: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
1642: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End time: '||TO_CHAR(SYSDATE, 'Month DD, YYYY HH24:MI:SS'));
1636:
1637: -- put the process output in the Concurrent Program's output
1638: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_xml_output);
1639:
1640: FND_FILE.PUT_LINE(FND_FILE.LOG, l_full_name||', end');
1641: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
1642: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End time: '||TO_CHAR(SYSDATE, 'Month DD, YYYY HH24:MI:SS'));
1643:
1644: EXCEPTION
1637: -- put the process output in the Concurrent Program's output
1638: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_xml_output);
1639:
1640: FND_FILE.PUT_LINE(FND_FILE.LOG, l_full_name||', end');
1641: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
1642: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End time: '||TO_CHAR(SYSDATE, 'Month DD, YYYY HH24:MI:SS'));
1643:
1644: EXCEPTION
1645: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1638: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_xml_output);
1639:
1640: FND_FILE.PUT_LINE(FND_FILE.LOG, l_full_name||', end');
1641: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
1642: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End time: '||TO_CHAR(SYSDATE, 'Month DD, YYYY HH24:MI:SS'));
1643:
1644: EXCEPTION
1645: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1646: retcode := 2;
1644: EXCEPTION
1645: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1646: retcode := 2;
1647: errbuf := l_full_name||', error occurred.';
1648: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Process failed. View program logs for details.');
1649:
1650: WHEN OTHERS THEN
1651: retcode := 2;
1652: errbuf := l_full_name||': '||SUBSTRB(SQLERRM, 1, 200);
1649:
1650: WHEN OTHERS THEN
1651: retcode := 2;
1652: errbuf := l_full_name||': '||SUBSTRB(SQLERRM, 1, 200);
1653: FND_FILE.PUT_LINE(FND_FILE.LOG, l_full_name||', exception occurred: '||SUBSTRB(SQLERRM, 1, 200));
1654: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Process failed. View program logs for details.');
1655:
1656: END Invoke_IPC_Process;
1657:
1650: WHEN OTHERS THEN
1651: retcode := 2;
1652: errbuf := l_full_name||': '||SUBSTRB(SQLERRM, 1, 200);
1653: FND_FILE.PUT_LINE(FND_FILE.LOG, l_full_name||', exception occurred: '||SUBSTRB(SQLERRM, 1, 200));
1654: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Process failed. View program logs for details.');
1655:
1656: END Invoke_IPC_Process;
1657:
1658: END AHL_ENIGMA_IPC_PROCS_PVT;