finding Concurrent Program attached to responsibility

select frt.RESPONSIBILITY_NAME
,fcpt.USER_CONCURRENT_PROGRAM_NAME
from
fnd_request_groups frg,
FND_REQUEST_GROUP_UNITS frgu,
fnd_concurrent_programs_tl fcpt,
fnd_responsibility fr,
fnd_responsibility_tl frt
where frg.request_group_id=frgu.request_group_id
and frgu.request_unit_type='P'
and frgu.request_unit_id=fcpt.concurrent_program_id
and fr.REQUEST_GROUP_ID=frg.REQUEST_GROUP_ID
and fr.RESPONSIBILITY_ID=frt.RESPONSIBILITY_ID
and fcpt.USER_CONCURRENT_PROGRAM_NAME='Autoinvoice Master Program'

Submitting XML Publisher from procedure

PROCEDURE SUBMIT_REPORT(X_BATCH_NUMBER IN NUMBER,X_REQUEST_ID OUT NUMBER)
IS
PRAGMA AUTONOMOUS_TRANSACTION;
xml_layout boolean;
BEGIN
xml_layout := FND_REQUEST.ADD_LAYOUT('APPLICATION_SHORT_NAME',
'TEMPLATE_SHORT_NAME',
'LANGUAGE',
'TERRITORY',
'OUTPUT_FILE_TYPE');
X_REQUEST_ID:=fnd_request.submit_request(application => 'APPLICATION_SHORT_NAME',
program => 'CP_SHORT_NAME',
argument1=>'PARAMETERS');
COMMIT;
END SUBMIT_REPORT;