--SET SERVEROUTPUT ON
--It will work for Paper Layout RDF report for Sure
DECLARE
l_request_id NUMBER := 60277934;--:P_REQ_ID; -- The request id
l_two_task VARCHAR2 (256);
l_gwyuid VARCHAR2 (256);
l_url VARCHAR2 (1024);
BEGIN
-- Get the value of the profile option named, Gateway User ID (GWYUID)
--- l_gwyuid := fnd_profile.VALUE ('APPLSYSPUB/PUB');
SELECT profile_option_value
INTO l_gwyuid
FROM fnd_profile_options o, fnd_profile_option_values ov
WHERE profile_option_name = 'GWYUID'
AND o.application_id = ov.application_id
AND o.profile_option_id = ov.profile_option_id;
-- Get the value of the profile option named, Two Task(TWO_TASK)
SELECT profile_option_value
INTO l_two_task
FROM fnd_profile_options o, fnd_profile_option_values ov
WHERE profile_option_name = 'TWO_TASK'
AND o.application_id = ov.application_id
AND o.profile_option_id = ov.profile_option_id;
l_url :=
fnd_webfile.get_url (file_type => fnd_webfile.request_out, -- for out file
ID => l_request_id,
gwyuid => l_gwyuid,
two_task => l_two_task,
expire_time => 500-- minutes, security!.
);
DBMS_OUTPUT.put_line (l_url);
END;
=========================================================================
--It will work for RDF-XML-RTF Report for Sure
DECLARE
l_outfile_name fnd_conc_req_outputs.file_name%TYPE;
l_outfile_node_name fnd_conc_req_outputs.file_node_name%TYPE;
l_mime_type fnd_mime_types_vl.mime_type%TYPE;
l_svc VARCHAR2 (100);
l_id VARCHAR2 (100);
l_base VARCHAR2 (100);
l_pos VARCHAR2 (100);
url VARCHAR2 (100);
l_request_id NUMBER;
BEGIN
xx_ff_calculation.xx_salary_slip_creation (:xx_payroll_header.month_year,
:xx_payroll_header.person_id
,l_request_id
);
SELECT file_name, file_node_name
INTO l_outfile_name, l_outfile_node_name
FROM fnd_conc_req_outputs
WHERE concurrent_request_id = l_request_id;
SELECT mime_type
INTO l_mime_type
FROM fnd_mime_types_vl
WHERE file_format_code = 'PDF';
l_svc := fnd_conc_private_utils.get_fs_svc_name (l_outfile_node_name);
l_id :=
fnd_webfile.create_id (l_outfile_name,
l_svc,
10,
l_mime_type,
l_request_id,
'BINARY',
'Y'
);
IF (l_id IS NULL)
THEN
fnd_message.retrieve;
fnd_message.error;
END IF;
fnd_profile.get ('APPS_WEB_AGENT', l_base);
l_pos := INSTR (l_base, '/', 1, 3);
IF (l_pos > 0)
THEN
l_base := SUBSTR (l_base, 1, l_pos - 1);
END IF;
url := l_base || '/OA_CGI/FNDWRR.exe?' || 'temp_id=' || l_id;
fnd_utilities.open_url (url);
END;
--It will work for Paper Layout RDF report for Sure
DECLARE
l_request_id NUMBER := 60277934;--:P_REQ_ID; -- The request id
l_two_task VARCHAR2 (256);
l_gwyuid VARCHAR2 (256);
l_url VARCHAR2 (1024);
BEGIN
-- Get the value of the profile option named, Gateway User ID (GWYUID)
--- l_gwyuid := fnd_profile.VALUE ('APPLSYSPUB/PUB');
SELECT profile_option_value
INTO l_gwyuid
FROM fnd_profile_options o, fnd_profile_option_values ov
WHERE profile_option_name = 'GWYUID'
AND o.application_id = ov.application_id
AND o.profile_option_id = ov.profile_option_id;
-- Get the value of the profile option named, Two Task(TWO_TASK)
SELECT profile_option_value
INTO l_two_task
FROM fnd_profile_options o, fnd_profile_option_values ov
WHERE profile_option_name = 'TWO_TASK'
AND o.application_id = ov.application_id
AND o.profile_option_id = ov.profile_option_id;
l_url :=
fnd_webfile.get_url (file_type => fnd_webfile.request_out, -- for out file
ID => l_request_id,
gwyuid => l_gwyuid,
two_task => l_two_task,
expire_time => 500-- minutes, security!.
);
DBMS_OUTPUT.put_line (l_url);
END;
=========================================================================
--It will work for RDF-XML-RTF Report for Sure
DECLARE
l_outfile_name fnd_conc_req_outputs.file_name%TYPE;
l_outfile_node_name fnd_conc_req_outputs.file_node_name%TYPE;
l_mime_type fnd_mime_types_vl.mime_type%TYPE;
l_svc VARCHAR2 (100);
l_id VARCHAR2 (100);
l_base VARCHAR2 (100);
l_pos VARCHAR2 (100);
url VARCHAR2 (100);
l_request_id NUMBER;
BEGIN
xx_ff_calculation.xx_salary_slip_creation (:xx_payroll_header.month_year,
:xx_payroll_header.person_id
,l_request_id
);
SELECT file_name, file_node_name
INTO l_outfile_name, l_outfile_node_name
FROM fnd_conc_req_outputs
WHERE concurrent_request_id = l_request_id;
SELECT mime_type
INTO l_mime_type
FROM fnd_mime_types_vl
WHERE file_format_code = 'PDF';
l_svc := fnd_conc_private_utils.get_fs_svc_name (l_outfile_node_name);
l_id :=
fnd_webfile.create_id (l_outfile_name,
l_svc,
10,
l_mime_type,
l_request_id,
'BINARY',
'Y'
);
IF (l_id IS NULL)
THEN
fnd_message.retrieve;
fnd_message.error;
END IF;
fnd_profile.get ('APPS_WEB_AGENT', l_base);
l_pos := INSTR (l_base, '/', 1, 3);
IF (l_pos > 0)
THEN
l_base := SUBSTR (l_base, 1, l_pos - 1);
END IF;
url := l_base || '/OA_CGI/FNDWRR.exe?' || 'temp_id=' || l_id;
fnd_utilities.open_url (url);
END;