script for Create Concurrent Program Executable from backend

CREATE OR REPLACE PACKAGE APPS.XXXXALL_CONPRG_DETAIL

AS

procedure xxcreate_cpexecuitable(

--===============================================

--Create Concurrent Program Executable FROM BACK END

--===============================================

v_executable varchar2,

v_application varchar2,

v_short_name varchar2,

v_execution_method varchar2,

v_execution_file_name varchar2);

---###################################

PROCEDURE xxdelete_cpexecuitable(

/*--===================================================

TO DELETE CONCURRENT PROGRAM EXECUTABLE FROM BACK END

--===================================================*/

v_executable_short_name varchar2,

v_application varchar2);

procedure XXCREATE_CONCURRENT_PROGRAM(

--===========================================

--Create Concurrent Program Define FROM BACK END

--===========================================

V_PROGRAME VARCHAR2,

V_APPLICATION VARCHAR2,

V_ENABLED VARCHAR2,

V_SHORT_NAME VARCHAR2,

V_EXECUTABLE_SHORT_NAME VARCHAR2,

V_EXECUTABLE_APPLICATION VARCHAR2,

V_STYLE VARCHAR2,

V_USE_IN_SRS VARCHAR2,

V_OUTPUT_TYPE VARCHAR2

);

procedure XXDELETE_CONCURRENT_PROGRAM(

v_program_short_name varchar2,v_application varchar2);

procedure XXCREATE_CON_PROG_PARAMETOR(

--===============================================

--Creating Parameters For Concurrent Program

--===============================================

V_program_short_name VARCHAR2,

V_application VARCHAR2,

V_sequence NUMBER,

V_parameter VARCHAR2,

V_description VARCHAR2,

V_enabled VARCHAR2,

V_value_set VARCHAR2,

V_display_size NUMBER,

V_description_size NUMBER,

V_concat_des_size NUMBER,

V_prompt VARCHAR2,

V_token VARCHAR2);

procedure XXDELETE_CON_PROG_PARAMETOR(

/* --===============================================

TO DELETE PARAMETER FROM BACK END

--===============================================*/

V_program_short_name VARCHAR2,

V_application VARCHAR2,

V_parameter VARCHAR2 );

procedure XXADD_CP_TO_REQST_GROUP(

/*--===============================================

-- Add To The Request Group

--===============================================*/

V_program_short_name VARCHAR2,

V_prog_application VARCHAR2,

V_request_group VARCHAR2,

V_grp_appl VARCHAR2

);

procedure XXREMOV_CP_FROM_REQST_GROUP(

/*--===============================================

TO REMOVE PROGRAM FROM REQUEST GROUP

--===============================================*/

V_program_short_name VARCHAR2,

V_prg_appl VARCHAR2,

V_reqst_grp VARCHAR2,

V_grp_appl VARCHAR2);

PROCEDURE xxsubmit_xml_cp_4m_bkend (

v_template_appl_name VARCHAR2,

v_template_code VARCHAR2,

v_template_language VARCHAR2,

v_template_territory VARCHAR2,

v_output_format VARCHAR2,

v_application VARCHAR2,

v_program VARCHAR2,

v_description VARCHAR2,

v_start_time VARCHAR2,

v_sub_request BOOLEAN := FALSE,

v_argument1 VARCHAR2 DEFAULT CHR (0),

v_argument2 VARCHAR2 DEFAULT CHR (0),

v_argument3 VARCHAR2 DEFAULT CHR (0),

v_argument4 VARCHAR2 DEFAULT CHR (0),

v_argument5 VARCHAR2 DEFAULT CHR (0)

);

END;

/

----------------------------------------------------------------

------package body

----------------------------------------------------------------

CREATE OR REPLACE PACKAGE BODY APPS.XXXXALL_CONPRG_DETAIL

AS

procedure xxcreate_cpexecuitable(

--===============================================

--Create Concurrent Program Executable FROM BACK END

--===============================================

v_executable varchar2,

v_application varchar2,

v_short_name varchar2,

v_execution_method varchar2,

v_execution_file_name varchar2)

is

begin

FND_GLOBAL.APPS_INITIALIZE(user_id =>0,resp_id=>20434 ,resp_appl_id=>101); -- userid,responcibility,application detail

commit;

fnd_program.EXECUTABLE(executable => v_executable , -- 'XXPRDBANKOVERDRAFT' ,

application => v_application , -- 'PFC Records',

short_name => v_short_name, -- 'XXPRDBANKOVERDRAFT',

execution_method => v_execution_method, --'Oracle Reports',

execution_file_name => v_execution_file_name); -- 'XXPRDBANKOVERDRAFT'

commit;

end;

PROCEDURE xxdelete_cpexecuitable(

/*--===================================================

TO DELETE CONCURRENT PROGRAM EXECUTABLE FROM BACK END

--===================================================*/

v_executable_short_name varchar2,

v_application varchar2)

is

begin

FND_GLOBAL.APPS_INITIALIZE(user_id =>0,resp_id=>20434 ,resp_appl_id=>101); -- userid,responcibility,application detail

FND_PROGRAM.DELETE_EXECUTABLE(executable_short_name => v_executable_short_name, -- 'XXPRD_PTL_MREPT',

application => v_application -- 'PFC Records'

);

commit;

end;

procedure XXCREATE_CONCURRENT_PROGRAM(

--===========================================

--Create Concurrent Program Define FROM BACK END

--===========================================

V_PROGRAME VARCHAR2,

V_APPLICATION VARCHAR2,

V_ENABLED VARCHAR2,

V_SHORT_NAME VARCHAR2,

V_EXECUTABLE_SHORT_NAME VARCHAR2,

V_EXECUTABLE_APPLICATION VARCHAR2,

V_STYLE VARCHAR2,

V_USE_IN_SRS VARCHAR2,

V_OUTPUT_TYPE VARCHAR2

)

IS

begin

FND_GLOBAL.APPS_INITIALIZE(user_id =>0,resp_id=>20434 ,resp_appl_id=>101); -- userid,responcibility,application detail

fnd_program.register(program => V_PROGRAME, -- 'Auto Posting MIS Report',

application => V_APPLICATION,-- 'PFC Records',

enabled => V_ENABLED, -- 'Y',

short_name => V_SHORT_NAME, --'XXPRDAUTOPOSTMIS',

executable_short_name => V_EXECUTABLE_SHORT_NAME, -- 'XXPRDAUTOPOSTMIS',

executable_application => V_EXECUTABLE_APPLICATION, -- 'PFC Records',

style => V_STYLE, -- 'A4',

use_in_srs => V_USE_IN_SRS, -- 'Y',

output_type => V_OUTPUT_TYPE --'XML'

);

commit;

end;

procedure XXDELETE_CONCURRENT_PROGRAM(

v_program_short_name varchar2,v_application varchar2) is

/* --===============================================

TO DELETE CONCURRENT PROGRAM FROM BACK END

--===============================================*/

begin

FND_GLOBAL.APPS_INITIALIZE(user_id =>0,resp_id=>20434 ,resp_appl_id=>101); -- userid,responcibility,application detail

FND_PROGRAM.DELETE_PROGRAM(program_short_name => v_program_short_name, --'XXPRD_PTL_MREPT',

application => v_application -- 'PFC Records'

);

commit;

end;

procedure XXCREATE_CON_PROG_PARAMETOR(

--===============================================

--Creating Parameters For Concurrent Program

--===============================================

V_program_short_name VARCHAR2,

V_application VARCHAR2,

V_sequence NUMBER,

V_parameter VARCHAR2,

V_description VARCHAR2,

V_enabled VARCHAR2,

V_value_set VARCHAR2,

V_display_size NUMBER,

V_description_size NUMBER,

V_concat_des_size NUMBER,

V_prompt VARCHAR2,

V_token VARCHAR2)

IS

begin

FND_GLOBAL.APPS_INITIALIZE(user_id =>0,resp_id=>20434 ,resp_appl_id=>101); -- userid,responcibility,application detail

FND_PROGRAM.parameter(

program_short_name => V_program_short_name, --'XXC_AJ_ORDER1',

application => V_application, -- 'Order Management',

sequence => V_sequence, -- 5,

parameter => V_parameter, -- 'P_Order_from',

description => V_description, -- 'asdfghjklmnopqrstuvxyz123245',

enabled => V_enabled, -- 'Y',

value_set => V_value_set, -- 'XDO_15_DIGIT_NUMBER',

display_size => V_display_size, -- 25,

description_size => V_description_size, -- 50,

concatenated_description_size => V_concat_des_size, -- 30,

prompt => V_prompt, -- 'P_order_from',

token => V_token --'P_ORDER1'

);

commit;

end;

procedure XXDELETE_CON_PROG_PARAMETOR(

/* --===============================================

TO DELETE PARAMETER FROM BACK END

--===============================================*/

V_program_short_name VARCHAR2,

V_application VARCHAR2,

V_parameter VARCHAR2 )

IS

begin

FND_GLOBAL.APPS_INITIALIZE(user_id =>0,resp_id=>20434 ,resp_appl_id=>101); -- userid,responcibility,application detail

FND_PROGRAM.DELETE_PARAMETER(

program_short_name => V_program_short_name, --'XXC_AJ_ORDER',

application =>V_application,-- 'Order Management',

parameter =>V_parameter --'P_Order_to');

);

commit;

end;

procedure XXADD_CP_TO_REQST_GROUP(

/*--===============================================

-- Add To The Request Group

--===============================================*/

V_program_short_name VARCHAR2,

V_prog_application VARCHAR2,

V_request_group VARCHAR2,

V_grp_appl VARCHAR2

)

IS

begin

FND_GLOBAL.APPS_INITIALIZE(user_id =>0,resp_id=>20434 ,resp_appl_id=>101); -- userid,responcibility,application detail

fnd_program.ADD_TO_GROUP (program_short_name => V_program_short_name, -- 'XXPRDAUTOPOSTMIS',

program_application => V_prog_application, -- 'PFC Records',

request_group => V_request_group, -- 'GL Concurrent Program Group',-- 'OM Concurrent Programs',

group_application => V_grp_appl -- 'General Ledger'

);

commit;

end;

procedure XXREMOV_CP_FROM_REQST_GROUP(

/*--===============================================

TO REMOVE PROGRAM FROM REQUEST GROUP

--===============================================*/

V_program_short_name VARCHAR2,

V_prg_appl VARCHAR2,

V_reqst_grp VARCHAR2,

V_grp_appl VARCHAR2)

IS

begin

FND_GLOBAL.APPS_INITIALIZE(user_id =>0,resp_id=>20434 ,resp_appl_id=>101); -- userid,responcibility,application detail

fnd_program.REMOVE_FROM_GROUP(program_short_name => V_program_short_name, -- 'ORDER_DETAILS',

program_application => V_prg_appl, --'Order Management',

request_group => V_reqst_grp, -- 'OM Concurrent Programs',

group_application => V_grp_appl -- 'Order Management'

);

commit;

end;

PROCEDURE xxsubmit_xml_cp_4m_bkend (

v_template_appl_name VARCHAR2,

v_template_code VARCHAR2,

v_template_language VARCHAR2,

v_template_territory VARCHAR2,

v_output_format VARCHAR2,

v_application VARCHAR2,

v_program VARCHAR2,

v_description VARCHAR2,

v_start_time VARCHAR2,

v_sub_request BOOLEAN := FALSE,

v_argument1 VARCHAR2 DEFAULT CHR (0),

v_argument2 VARCHAR2 DEFAULT CHR (0),

v_argument3 VARCHAR2 DEFAULT CHR (0),

v_argument4 VARCHAR2 DEFAULT CHR (0),

v_argument5 VARCHAR2 DEFAULT CHR (0)

)

IS

v_return BOOLEAN;

v_request NUMBER;

BEGIN

fnd_global.apps_initialize (user_id => 2836,

resp_id => 20434,

resp_appl_id => 101

);

-- santosh userid,responcibility,application detail

v_return :=

fnd_request.add_layout (template_appl_name => v_template_appl_name,

template_code => v_template_code,

template_language => v_template_language,

template_territory => v_template_territory,

output_format => v_output_format

);

v_request :=

fnd_request.submit_request (application => v_application,

program => v_program,

description => v_description,

start_time => v_start_time,

sub_request => v_sub_request,

argument1 => v_argument1,

argument2 => v_argument2,

argument3 => v_argument3,

argument4 => v_argument4,

argument5 => v_argument5

);

DBMS_OUTPUT.put_line ('Request Number' || v_request);

END;

END;

/