The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Get_Updatedelivery_Params(itemtype IN VARCHAR2,
itemkey IN VARCHAR2,
actid IN NUMBER,
funcmode IN VARCHAR2,
resultout IN OUT NOCOPY VARCHAR2) IS
l_debug_level NUMBER;
cln_debug_pub.Add('ENTERING CLN_UPDTDLVY_PKG.Get_UpdateDelivery_Params', 1);
x_progress := 'CLN_UPDTDLVY_PKG.Raise_Updatedelivery_Event: Parameters Initialized';
SELECT h.vendor_id, h.vendor_site_id
INTO party_id, party_site_id
FROM rcv_shipment_headers h
WHERE h.shipment_header_id = p_shipment_header_id;
select FND_PROFILE.VALUE('ORG_ID')
into l_organization_id
from dual;
cln_debug_pub.Add('CLN_UPDTDLVY_PKG.Raise_Updatedelivery_Event: Parameter Lookups Completed', 1);
cln_debug_pub.Add('CLN_UPDTDLVY_PKG.Raise_Updatedelivery_Event : XML Trading Partner Setup Check Done', 1);
x_progress := 'CLN_UPDTDLVY_PKG.Raise_Updatedelivery_Event : XML Trading Partner Setup Check Failed';
x_progress := 'CLN_UPDTDLVY_PKG.Raise_Updatedelivery_Event : XML Trading Partner Setup Check Succeeded';
SELECT h.receipt_num INTO l_receipt_id FROM rcv_shipment_headers h
WHERE h.shipment_header_id = p_shipment_header_id;
SELECT CLN_UPDTDLVY_S.nextval into l_updtdlvy_seq from dual;
SELECT sysdate into l_date from dual;
x_progress := 'CLN_UPDTDLVY_PKG.Raise_Updatedelivery_Event : Created reference ID, unique key, and canonical date';
cln_debug_pub.Add('EXITING CLN_UPDTDLVY_PKG.Raise_UpdateDelivery_Event Successfully', 1);
x_progress := 'CLN_UPDTDLVY_PKG.Raise_Updatedelivery_Event : Error';
END Get_Updatedelivery_Params;
PROCEDURE Process_Update_Delivery (p_receipt_id IN VARCHAR2,
p_int_cnt_num IN NUMBER,
p_delivery_num IN VARCHAR2,
x_notification_code IN OUT NOCOPY VARCHAR2,
x_doc_status IN OUT NOCOPY VARCHAR2) IS
l_debug_level NUMBER;
l_update_cln_event VARCHAR2(100);
l_update_cln_parameter_list wf_parameter_list_t;
l_update_cln_event := 'oracle.apps.cln.ch.collaboration.add';
l_update_cln_parameter_list := wf_parameter_list_t();
cln_debug_pub.Add('Entering CLN_UPDTDLVY_PKG.Process_Update_Delivery', 1);
x_progress := 'CLN_UPDTDLVY_PKG.Raise_Updatedelivery_Event: 01';
SELECT CLN_UPDTDLVY_S.nextval into l_updtdlvy_seq from dual;
SELECT sysdate into l_date from dual;
p_parameterlist => l_update_cln_parameter_list);
p_parameterlist => l_update_cln_parameter_list);
p_parameterlist => l_update_cln_parameter_list);
p_parameterlist => l_update_cln_parameter_list);
p_parameterlist => l_update_cln_parameter_list);
x_progress := 'CLN_SYNCCTLG_PKG.Process_Update_Delivery : 03';
wf_event.raise(p_event_name => l_update_cln_event,
p_event_key => l_event_key,
p_parameters => l_update_cln_parameter_list);
x_progress := 'CLN_SYNCCTLG_PKG.Process_Update_Delivery : 04';
SELECT 1
INTO l_temp
FROM WSH_NEW_DELIVERIES
WHERE name = p_delivery_num;
wf_event.raise(p_event_name => l_update_cln_event,
p_event_key => l_event_key||'.2',
p_parameters => l_second_cln_parameter_list);
x_progress := 'CLN_UPDTDLVY_PKG.Raise_Updatedelivery_Event : 05';
END Process_Update_Delivery;
SELECT o.organization_id
INTO l_org_id
FROM per_people_f p, org_organization_definitions o, rcv_shipment_headers h
WHERE nvl(h.shipped_date, h.last_update_date)
BETWEEN NVL(p.effective_start_date, NVL(h.shipped_date, h.last_update_date))
AND NVL(p.effective_end_date, NVL(h.shipped_date, h.last_update_date))
AND p.person_id (+) = h.employee_id
AND o.organization_id (+) =NVL( h.organization_id,h.ship_to_org_id)
AND h.shipment_header_id = P_SHIPMENT_HEADER_ID;