The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE update_cln
(
p_doc_status VARCHAR2,
p_app_ref_id VARCHAR2,
p_orig_ref VARCHAR2,
p_intl_ctrl_no NUMBER,
p_msg_data VARCHAR2
)
AS
l_key VARCHAR2(250);
-- Generate the key value and raise the event to update the collaboration
--
-----------------------------------------------------------------------------------------
l_key := 'XNB'||'COLL_UPDATE'|| p_orig_ref||TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI:SS');
p_event_name => 'oracle.apps.cln.ch.collaboration.update',
p_event_key => l_key,
p_parameters => l_parameter_list
);
END update_cln;
SELECT SOURCE_TP_LOCATION_CODE
FROM ECX_TP_DETAILS_V
WHERE TRANSACTION_TYPE = 'XNB' AND TRANSACTION_SUBTYPE = 'CBODI';
select COUNT(clndtl.collaboration_dtl_id)
into l_num
from cln_coll_hist_hdr clnhdr,
cln_coll_hist_dtl clndtl
where
clnhdr.application_id = 881
and clnhdr.collaboration_type = p_collab_type
and clnhdr.document_no = p_doc_no
and clnhdr.collaboration_id = clndtl.collaboration_id
and clndtl.collaboration_document_type = 'CONFIRM_BOD'
and clndtl.originator_reference = l_tp_code
and clndtl.document_status = 'SUCCESS';
SELECT SOURCE_TP_LOCATION_CODE
FROM ECX_TP_DETAILS_V
WHERE TRANSACTION_TYPE = 'XNB' AND TRANSACTION_SUBTYPE = 'CBODI';
SELECT COUNT(clndtl.collaboration_dtl_id)
INTO l_num
FROM cln_coll_hist_hdr clnhdr,
cln_coll_hist_dtl clndtl
WHERE
clnhdr.application_id = 881
AND clnhdr.collaboration_type = p_collab_type
AND clnhdr.document_no = p_doc_no
AND clnhdr.collaboration_id = clndtl.collaboration_id
AND clndtl.collaboration_document_type = 'CONFIRM_BOD'
AND clndtl.originator_reference = p_tp_loc_code
AND clndtl.document_status = 'SUCCESS';
/* Account Update Functionality */
PROCEDURE return_qualifier
(
p_event_name IN VARCHAR2,
p_event_param IN VARCHAR2,
p_transaction_id IN VARCHAR2,
x_qualifier OUT NOCOPY VARCHAR2
)
AS
BEGIN
/*C547_XNB - Obsolete Billing Preference information*/
/*
IF p_event_name = 'oracle.apps.ar.hz.BillingPreference.create' AND p_event_param = p_transaction_id THEN
x_qualifier := 'I';
ELSIF p_event_name = 'oracle.apps.ar.hz.BillingPreference.update' AND p_event_param = p_transaction_id THEN
x_qualifier := 'U';
ELSIF p_event_name = 'oracle.apps.ar.hz.CustAcctRelate.update' AND p_event_param = p_transaction_id THEN
x_qualifier := 'U';
ELSIF p_event_name = 'oracle.apps.ar.hz.ContactPoint.update' AND p_event_param = p_transaction_id THEN
x_qualifier := 'U';
ELSIF p_event_name = 'oracle.apps.ar.hz.CustomerProfile.update' AND p_event_param = p_transaction_id THEN
x_qualifier := 'U';
ELSIF p_event_name = 'oracle.apps.ar.hz.CustProfileAmt.update' AND p_event_param = p_transaction_id THEN
x_qualifier := 'U';
SELECT
C.person_identifier,
C.person_title,
C.person_pre_name_adjunct,
C.person_first_name,
C.person_middle_name,
C.person_last_name,
C.person_name_suffix,
C.salutation,
D.email_address,
D.phone_line_type,
D.phone_country_code,
D.phone_area_code,
D.phone_number
INTO
x_person_identifier,
x_person_title,
x_person_pre_name_adjunct,
x_person_first_name,
x_person_middle_name,
x_person_last_name,
x_person_name_suffix,
x_salutation,
x_email_address,
x_phone_line_type,
x_phone_country_code,
x_phone_area_code,
x_phone_number
FROM
hz_cust_account_roles A,
hz_relationships B,
hz_parties C,
hz_contact_points D
WHERE
A.cust_account_role_id = p_ship_to_contact_id
and A.party_id = B.party_id
and B.directional_flag = 'F'
and B.subject_id = C.party_id
and B.party_id = D.owner_table_id(+)
and D.owner_table_name(+) = 'HZ_PARTIES';
SELECT locations.address1||DECODE(locations.address2
, NULL
, NULL
, ';'||locations.address2|| DECODE(locations.address3