Create Executable and Concurrent Program And Assign It To Request Group From Back End
declare
v_executable varchar2(230):= 'XX_MOVE_ORDER_WIP';
v_conc_program_name varchar2(230):='TEI - Move Order Report';
v_count number;
v_assign_flag varchar2(1);
begin
fnd_program.EXECUTABLE(executable =>v_executable,
application=>'XXCUS',
short_name=>v_executable,
description=>'',
execution_method=>'Oracle Reports',
execution_file_name =>v_executable);
commit;
begin
select count(*)
into v_count
from fnd_executables fe where fe.EXECUTABLE_NAME=v_executable;
if v_count=1 then
FND_PROGRAM.REGISTER
(program => v_conc_program_name --- Concurrent Program Name
,application => 'XXCUS' --- Application Name
,enabled => 'Y' --- Enabled Flag
,short_name => v_executable --- Short Name of Conc Program
,description => '' --- Description
,executable_short_name => v_executable --- Executable of the Conc Program
,executable_application => 'XXCUS' --- Executable application
,execution_options => ''
,priority => ''
,save_output => 'Y'
,print => 'Y'
,cols => ''
,rows => ''
,style => 'Landscape'
,style_required => 'N'
,printer => ''
,request_type => ''
,request_type_application => ''
,use_in_srs => 'Y'
,allow_disabled_values => 'N'
,run_alone => 'N'
,output_type => 'XML' ---- Out put format
,enable_trace => 'N'
,restart => 'Y'
,nls_compliant => 'Y'
,icon_name => ''
,language_code => 'US'
,mls_function_short_name => ''
,mls_function_application => ''
,incrementor => '');
commit;
v_count:=null;
begin
select count(*)
into
v_count
from fnd_concurrent_programs fcp
where fcp.CONCURRENT_PROGRAM_NAME =v_executable;
if v_count=1 then
v_assign_flag :='Y';
fnd_program.parameter
(program_short_name => v_executable --- Short Name of Conc Program
,application => 'XXCUS' --- Application Name
,sequence => '1' --- Sequnce Number
,parameter => 'Operating Unit' --- Parameter Name
,description => '' --- Paramter Description
,enabled => 'y' --- Enabled Flag
,value_set => 'TEI_OPERATING_UNIT' --- Value Set Name
,default_type => ''
,default_value => ''
,required => 'y' --- Required flag ( Mandatory or not)
,enable_security => 'n'
,range => ''
,display => 'y'
,display_size => '15'
,description_size => '50'
,concatenated_description_size=> '25'
,prompt => 'Operating Unit'
,token => 'P_ORG_ID');
commit;
end if;
if v_assign_flag='Y' then
FND_PROGRAM.ADD_TO_GROUP
(program_short_name => v_executable --- Short Name of Conc Program
,program_application => 'XXCUS' --- Application Name
,request_group => 'XXCUS Request Group' --- Request group name
,group_application => 'XXCUS');
end if;
commit;
end;
end if;
end;
end;
No comments:
Post a Comment