The following lines contain the word 'select', 'insert', 'update' or 'delete':
p_selected_orgs IN varchar2
,p_resp_id IN varchar2
) IS
i number := 1;
select organization_id, sr_instance_id
from msc_selected_orgs_v mso
where mso.responsibility_id = p_resp_id;
select organization_id
from msc_selected_orgs_v mso
where mso.responsibility_id = trim(p_resp_id)
and mso.organization_id = lorg_id
and mso.sr_instance_id = linst_id;
select 1
from msc_org_access
where responsibility_id = to_number(trim(p_resp_id))
and organization_id = lorg_id1
and sr_instance_id = linst_id1;
if instr(p_selected_orgs, org_inst_id,1) = 0 then
update_row(org_id,
inst_id,
to_number(p_resp_id),
724,
sysdate,
sysdate-1,
'REMOVE');
v_len := length(p_selected_orgs);
one_len := instr(p_selected_orgs,';',1,i+1)-
instr(p_selected_orgs,';',1 ,i)-1;
org_inst_id := trim(substr(p_selected_orgs,
instr(p_selected_orgs,';',1,i)+1,one_len));
insert_row(org_id,
inst_id,
to_number(p_resp_id),
724,
sysdate,
to_date(null)
);
update_row( org_id1,
inst_id1,
to_number(p_resp_id),
724,
sysdate,
to_date(null),
'ADD'
);
'p_selected_orgs =>' || p_selected_orgs ||' ' ||
'p_resp_id=>' || p_resp_id);
select resp.responsibility_id
from fnd_responsibility_tl resp
where resp.responsibility_name = p_resp;
procedure insert_row (p_organization_id in number,
p_sr_instance_id in number,
p_responsibility_id in number,
p_resp_appl_id in number,
p_eff_from_date in date,
p_eff_to_date in date)
is
v_statement varchar2(4000);
select application_id
from fnd_responsibility
where responsibility_id = p_responsibility_id;
v_statement := 'insert into msc_org_access(' ||
'ORGANIZATION_ID' ||
',SR_INSTANCE_ID' ||
',RESPONSIBILITY_ID' ||
',RESP_APPLICATION_ID' ||
',EFFECTIVE_FROM_DATE' ||
',EFFECTIVE_TO_DATE' ||
',LAST_UPDATE_DATE' ||
',LAST_UPDATED_BY' ||
',CREATION_DATE' ||
',CREATED_BY' ||
',LAST_UPDATE_LOGIN' ||
')' ||
'values ( ' ||
' :1' ||
',:2' ||
',:3' ||
',:4' ||
',:5' ||
',:6' ||
',:7' ||
',:8' ||
',:9' ||
',:10' ||
',:11' ||
')';
end insert_row;
procedure update_row (p_organization_id in number,
p_sr_instance_id in number,
p_responsibility_id in number,
p_resp_appl_id in number,
p_eff_from_date in date,
p_eff_to_date in date,
p_action varchar2)
is
v_statement varchar2(2000);
select application_id
from fnd_responsibility
where responsibility_id = p_responsibility_id;
v_statement := 'update msc_org_access set' ;
' LAST_UPDATE_DATE = :3,' ||
' LAST_UPDATED_BY = :4,' ||
' LAST_UPDATE_LOGIN= :5 ' ||
'where responsibility_id = :6 and ' ||
'organization_id = :7 and ' ||
'sr_instance_id = :8 and ' ||
'resp_application_id = :9';
end update_row;