CREATE OR REPLACE PROCEDURE apps.xx_submit_journal_import_prg
AS
--DECLARE
v_request_id VARCHAR2 (100);
BEGIN
-- First set the environment of the user submitting
the request by submitting
-- fnd_global.apps_initialize().
-- The procedure requires three parameters
--
Fnd_Global.apps_initialize(userId,responsibilityId,applicationId)
-- replace the following code with correct value as
get from sql above
fnd_global.apps_initialize (2836, 20434, 101);
--( user_id ,
responsibility_id, application_id )
v_request_id :=
fnd_request.submit_request ('SQLGL', -- Application short name
'GLLEZLSRS', -- Program short name
'',
--'Allows customers to submit
Journal Import through the Standard Request Submission form.', -- description
(Not require)
'', -- start_time (start
immediately)
FALSE, -- sub_request (default
FALSE)
-- Next is the parameters
list of ARACCPB
'1000', -- Parameter
= Data access_set_id
'98',
-- Parameter
= Journal Source Name ( use
journal soure name not journal suer source name)
'1', -- Parameter
= Ledger ID
'', -- Parameter
= Group ID
'N', -- Parameter
= Post Error to Suspense
'N', -- Parameter
= Create Summary Journal
'N' -- Parameter
= Import Descriptive Flexfeild
);
DBMS_OUTPUT.put_line ('Request submitted. ID = ' || v_request_id);
fnd_file.put_line (fnd_file.output,
'Request submitted. ID = ' || v_request_id);
COMMIT;
EXCEPTION
WHEN OTHERS
THEN
DBMS_OUTPUT.put_line (
'Request set submission failed - unknown error: ' || SQLERRM);
fnd_file.put_line (
fnd_file.output,
'Request set submission failed - unknown error: ' || SQLERRM);
END;