The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE SELECTOR (
itemtype IN VARCHAR2,
itemkey IN VARCHAR2,
actid IN NUMBER,
funcmode IN VARCHAR2,
result OUT NOCOPY VARCHAR2 ) IS
l_user_id number;
select user_id into l_user_id
from fnd_user
where user_name = l_forward_to_username;
select user_id into l_user_id
from fnd_user
where user_name = l_forward_to_username;
WF_CORE.context(OKS_CT_EVENTS_WFA.l_pkg_name,'Selector',itemtype,itemkey,actid,funcmode);
END SELECTOR;
select cpl.object1_id1 customer_id,opv.name customer_name,opv.party_number party_number
from okc_k_lines_v cle,
okc_k_headers_v chr,
okc_k_party_roles_b cpl,
okx_parties_v opv
where cle.id = l_k_line_id
and cle.dnz_chr_id = chr.id
and cpl.chr_id = chr.id
and cpl.cle_id is null
and cpl.dnz_chr_id = chr.id
and cpl.rle_code= 'CUSTOMER'
and cpl.jtot_object1_code = 'OKX_PARTY'
and cpl.object1_id1 = opv.id1 --to_char(opv.id1) -- commented because of performance bug 3157787
and opv.party_type = 'ORGANIZATION';
select 'CONTRACT - '||okhv.contract_number||'; MODIFIER - '||okhv.contract_number_modifier||
select user_id into l_user_id
from fnd_user
where user_name = l_forward_to_username;
select chcpv.party_id party_id,
chcpv.contact_point_id contact_point_id,
chcpv.CONTACT_POINT_TYPE CONTACT_POINT_TYPE,
chcpv.PRIMARY_FLAG PRIMARY_FLAG,
chcpv.party_type party_type
from csc_hz_parties_v chpv,
csc_hz_contact_points_v chcpv
where obj_party_type = 'ORGANIZATION'
and object_id = (select object1_id1 from okc_k_party_roles_v
where jtot_object1_code = 'OKX_PARTY'
and chr_id = (select chr_id from okc_k_lines_v where id = l_k_line_id)
and rownum = 1) --l_party_id
and chpv.party_id = chcpv.party_id --and chpv.subject_id = chcpv.party_id
and chcpv.PRIMARY_FLAG = 'Y'
and chcpv.party_TYPE = 'PARTY_RELATIONSHIP' --'PERSON'
and rownum = 1;
select chcpv.party_id party_id,
chcpv.contact_point_id contact_point_id,
chcpv.CONTACT_POINT_TYPE CONTACT_POINT_TYPE,
chcpv.PRIMARY_FLAG PRIMARY_FLAG,
chcpv.party_type party_type,
chpv.sub_status
from csc_hz_parties_v chpv,
csc_hz_contact_points_v chcpv,
hz_relationships r
where chpv.obj_party_type = 'ORGANIZATION'
and chpv.object_id = (select object1_id1 from okc_k_party_roles_v
where jtot_object1_code = 'OKX_PARTY'
and chr_id = (select chr_id from okc_k_lines_v where
id = l_k_line_id)
and rownum = 1)
and chpv.party_id = chcpv.party_id
and chcpv.PRIMARY_FLAG = 'Y'
and chcpv.party_TYPE = 'PARTY_RELATIONSHIP' --'PERSON'
and chpv.subject_id = r.subject_id
and chpv.object_id = r.object_id
and r.status = 'A'
and chpv.sub_status = 'A'
and chpv.obj_status = 'A'
and rownum = 1;
select assent.opn_code opn_code
from okc_assents_v assent,
okc_k_lines_v cle ,
okc_k_headers_v okh
where cle.id = l_k_line_id
and okh.id = cle.dnz_chr_id
and assent.sts_code = cle.sts_code
and assent.scs_code = okh.scs_code
and assent.opn_code = 'ENTITLE'
and assent.allowed_yn = 'Y';
select resp.responsibility_id,
resp.responsibility_application_id
from fnd_user_resp_groups resp,
cs_sr_type_mapping srmap
where resp.user_id = l_user_id
and resp.responsibility_id = srmap.responsibility_id
and srmap.incident_type_id = l_SR_type_id
and rownum = 1;
l_service_request_rec.last_update_program_code := 'OKS_CT_EVENTS_WFA';
PROCEDURE UPDATE_EVENT (
itemtype in varchar2,
itemkey in varchar2,
actid in number,
funcmode in varchar2,
result out nocopy varchar2 ) is
l_event_id NUMBER;
/* UPDATE CS_EVENTS
SET LAST_EVENT_DATE = sysdate
WHERE EVENT_ID = l_event_id;*/
WF_CORE.context(OKS_CT_EVENTS_WFA.l_pkg_name,'Update_Event',itemtype,itemkey,actid,funcmode);
END UPDATE_EVENT;