DBA Data[Home] [Help]

APPS.AHL_ENIGMA_IPC_PROCS_PVT dependencies on FND_FILE

Line 1539: FND_FILE.PUT_LINE(FND_FILE.LOG, l_full_name||', start');

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:

Line 1540: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);

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

Line 1541: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start time: '||TO_CHAR(SYSDATE, 'Month DD, YYYY HH24:MI:SS'));

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;

Line 1542: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);

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:

Line 1550: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Prcoess URL: '||l_process_URL);

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

Line 1551: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);

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: '||

Line 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;

Line 1557: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);

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

Line 1572: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Process input: '||l_xml_input);

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

Line 1573: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);

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,

Line 1600: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error occurred. Details:');

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:

Line 1601: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);

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, '

') + 9; -- 9 is to accommodate length of ''

Line 1602: FND_FILE.PUT_LINE(FND_FILE.LOG, l_temp_string);

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, '

') + 9; -- 9 is to accommodate length of ''
1606: IF (l_start_index <> 9) THEN

Line 1603: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);

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, '

') + 9; -- 9 is to accommodate length of ''
1606: IF (l_start_index <> 9) THEN
1607: l_end_index := INSTR(l_xml_output, '
');

Line 1611: FND_FILE.PUT_LINE(FND_FILE.LOG, l_temp_string);

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, '') + 8; -- 8 is to accommodate length of ''

Line 1612: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);

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, '') + 8; -- 8 is to accommodate length of ''
1616: IF (l_start_index <> 8) THEN

Line 1621: FND_FILE.PUT_LINE(FND_FILE.LOG, l_temp_string);

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;

Line 1622: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);

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;

Line 1634: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Process output: '||l_xml_output);

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);

Line 1635: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);

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:

Line 1638: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_xml_output);

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'));

Line 1640: FND_FILE.PUT_LINE(FND_FILE.LOG, l_full_name||', end');

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

Line 1641: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);

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

Line 1642: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End time: '||TO_CHAR(SYSDATE, 'Month DD, YYYY HH24:MI:SS'));

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;

Line 1648: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Process failed. View program logs for details.');

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);

Line 1653: FND_FILE.PUT_LINE(FND_FILE.LOG, l_full_name||', exception occurred: '||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:

Line 1654: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Process failed. View program logs for details.');

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;