[Home] [Help]
The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE RAISE_UPDATE_EVENT(
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2,
p_coll_id IN NUMBER,
p_doc_status IN VARCHAR2,
p_org_ref IN VARCHAR2,
p_disposition IN VARCHAR2,
p_msg_text IN VARCHAR2,
p_internal_control_number IN VARCHAR2 )
IS
l_cln_ch_parameters wf_parameter_list_t;
cln_debug_pub.Add('-------- ENTERING RAISE_UPDATE_EVENT -----------', 2);
l_msg_data := 'Update event successfully raised';
FND_MESSAGE.SET_TOKEN('EVENT','Update');
SELECT cln_generic_s.nextval INTO l_event_key FROM dual;
cln_debug_pub.Add('Workflow event- oracle.apps.cln.ch.collaboration.update', 1);
WF_EVENT.Raise('oracle.apps.cln.ch.collaboration.update',l_event_key, NULL, l_cln_ch_parameters, NULL);
cln_debug_pub.Add('----------- EXITING RAISE_UPDATE_EVENT ------------', 2);
cln_debug_pub.Add('----------- ERROR :EXITING RAISE_UPDATE_EVENT ------------', 6);
cln_debug_pub.Add('----------- ERROR :EXITING RAISE_UPDATE_EVENT ------------', 2);
END RAISE_UPDATE_EVENT;
SELECT cln_generic_s.nextval INTO l_event_key FROM dual;
l_update_reqd BOOLEAN;
l_line_num_tab.delete;-- Initialize array of PO lines
CLN_CH_COLLABORATION_PKG.IS_UPDATE_REQUIRED(
x_return_status => x_return_status,
x_msg_data => x_msg_data,
p_doc_dir => 'IN',
p_xmlg_transaction_type => null,
p_xmlg_transaction_subtype => null,
p_tr_partner_type => null,
p_tr_partner_id => null,
p_tr_partner_site => null,
p_sender_component => p_sender_component,
x_update_reqd => l_update_reqd);
IF (l_update_reqd <> TRUE) THEN
x_cln_required := 'FALSE';
cln_debug_pub.Add('CLN history need not be updated',1);
SELECT COLLABORATION_ID,COLLABORATION_TYPE
INTO x_coll_id,x_collaboration_type
FROM CLN_COLL_HIST_HDR
WHERE APPLICATION_REFERENCE_ID = p_ref_id;
SELECT PARTY_ID, PARTY_SITE_ID
INTO l_tp_id, l_tp_site_id
FROM ECX_TP_HEADERS
WHERE TP_HEADER_ID = p_tp_header_id;
SELECT meaning INTO l_action FROM fnd_lookups
WHERE lookup_code = x_collaboration_type AND lookup_type = 'CLN_COLLABORATION_TYPE';
select cln_generic_s.NEXTVAL INTO l_txn_id FROM DUAL;
p_if_collaboration_updated IN OUT NOCOPY VARCHAR2,
-- Additional parameters added for new Change_PO API to
-- support split lines and cancellation at header and schedule level.
p_supp_doc_ref IN VARCHAR2 DEFAULT NULL,
p_supp_line_ref IN VARCHAR2 DEFAULT NULL,
p_supplier_shipment_ref IN VARCHAR2 DEFAULT NULL,
p_parent_shipment_number IN VARCHAR2 DEFAULT NULL)
IS
l_error_code NUMBER;
cln_debug_pub.Add('Collaboration Updated - '||p_if_collaboration_updated,1);
select cln_generic_s.NEXTVAL INTO l_txn_id FROM DUAL;
IF ((p_cln_required = 'TRUE') AND (p_if_collaboration_updated = 'FALSE'))THEN
IF (l_Debug_Level <= 1) THEN
cln_debug_pub.Add('Call to Raise Update Event.....',1);
RAISE_UPDATE_EVENT(
x_return_status => x_return_status,
x_msg_data => x_msg_data,
p_coll_id => p_coll_id,
p_doc_status => 'SUCCESS',
p_org_ref => p_org_ref,
p_disposition => l_disposition,
p_msg_text => p_msg_dtl_screen,
p_internal_control_number => p_internal_control_number );
p_if_collaboration_updated := 'ERROR';
l_msg_data := 'Error in RAISE_UPDATE_EVENT API';
p_if_collaboration_updated := 'TRUE';
p_if_collaboration_updated := 'ERROR';
cln_debug_pub.Add('------Calling RAISE_UPDATE_EVENT with ERROR status------',1);
RAISE_UPDATE_EVENT(
x_return_status => x_return_status,
x_msg_data => x_msg_data,
p_coll_id => p_coll_id,
p_doc_status => 'ERROR',
p_org_ref => p_org_ref,
p_disposition => NULL,
p_msg_text => l_error_msg,
p_internal_control_number => p_internal_control_number );
l_update_reqd BOOLEAN;
l_line_num_tab.delete;-- Initialize array of PO lines
CLN_CH_COLLABORATION_PKG.IS_UPDATE_REQUIRED(
x_return_status => x_return_status,
x_msg_data => x_msg_data,
p_doc_dir => 'IN',
p_xmlg_transaction_type => null,
p_xmlg_transaction_subtype => null,
p_tr_partner_type => null,
p_tr_partner_id => null,
p_tr_partner_site => null,
p_sender_component => p_sender_component,
x_update_reqd => l_update_reqd);
IF (l_update_reqd <> TRUE) THEN
x_cln_required := 'FALSE';
cln_debug_pub.Add('CLN history need not be updated',1);
SELECT PARTY_ID, PARTY_SITE_ID
INTO l_tp_id, l_tp_site_id
FROM ECX_TP_HEADERS
WHERE TP_HEADER_ID = p_tp_header_id;
SELECT meaning INTO l_action FROM fnd_lookups
WHERE lookup_code = p_collaboration_type AND lookup_type = 'CLN_COLLABORATION_TYPE';
select cln_generic_s.NEXTVAL INTO l_txn_id FROM DUAL;
p_if_collaboration_updated IN OUT NOCOPY VARCHAR2,
-- Additional parameters added for new Change_PO API to
-- support split lines and cancellation at header and schedule level.
p_supp_doc_ref IN VARCHAR2 DEFAULT NULL,
p_supp_line_ref IN VARCHAR2 DEFAULT NULL,
p_supplier_shipment_ref IN VARCHAR2 DEFAULT NULL,
p_parent_shipment_number IN VARCHAR2 DEFAULT NULL)
IS
l_error_code NUMBER;
cln_debug_pub.Add('Collaboration Updated - '||p_if_collaboration_updated,1);
select cln_generic_s.NEXTVAL INTO l_txn_id FROM DUAL;
IF ((p_cln_required = 'TRUE') AND (p_if_collaboration_updated = 'FALSE'))THEN
IF (l_Debug_Level <= 1) THEN
cln_debug_pub.Add('Call to Raise Update Event.....',1);
RAISE_UPDATE_EVENT(
x_return_status => x_return_status,
x_msg_data => x_msg_data,
p_coll_id => p_coll_id,
p_doc_status => 'SUCCESS',
p_org_ref => p_org_ref,
p_disposition => l_disposition,
p_msg_text => p_msg_dtl_screen,
p_internal_control_number => p_internal_control_number );
p_if_collaboration_updated := 'ERROR';
l_msg_data := 'Error in RAISE_UPDATE_EVENT API';
p_if_collaboration_updated := 'TRUE';
p_if_collaboration_updated := 'ERROR';
PROCEDURE UPDATE_COLL_FOR_HDR_ONLY_MSG(
x_return_status IN OUT NOCOPY VARCHAR2,
x_msg_data IN OUT NOCOPY VARCHAR2,
p_ackcode_header IN NUMBER,
p_ackcode_line IN NUMBER,
p_coll_id IN NUMBER,
p_org_ref IN VARCHAR2,
p_cln_required IN VARCHAR2,
p_internal_control_number IN VARCHAR2,
p_so_num IN VARCHAR2,
p_message IN OUT NOCOPY VARCHAR2,
p_if_collaboration_updated IN OUT NOCOPY VARCHAR2)
IS
l_error_code NUMBER;
cln_debug_pub.Add('----- Entering UPDATE_COLL_FOR_HDR_ONLY_MSG API ------- ',2);
cln_debug_pub.Add('Collaboration Updated - '||p_if_collaboration_updated,1);
IF ((p_cln_required = 'TRUE') AND (p_if_collaboration_updated = 'FALSE'))THEN
IF(p_ackcode_header = 0) THEN
l_disposition := 'ACCEPTED';
cln_debug_pub.Add('Call to Raise Update Event.....',1);
RAISE_UPDATE_EVENT(
x_return_status => x_return_status,
x_msg_data => x_msg_data,
p_coll_id => p_coll_id,
p_doc_status => 'SUCCESS',
p_org_ref => p_org_ref,
p_disposition => l_disposition,
p_msg_text => p_message,
p_internal_control_number => p_internal_control_number );
p_if_collaboration_updated := 'ERROR';
l_msg_data := 'Error in RAISE_UPDATE_EVENT API';
p_if_collaboration_updated := 'TRUE';
cln_debug_pub.Add('------- Exiting UPDATE_COLL_FOR_HDR_ONLY_MSG API --------- ',2);
cln_debug_pub.Add('------- ERROR :Exiting UPDATE_COLL_FOR_HDR_ONLY_MSG API --------- ',2);
l_msg_data :='Unexpected Error in UPDATE_COLL_FOR_HDR_ONLY_MSG -'||l_error_code||' : '||l_error_msg;
cln_debug_pub.Add('------- ERROR :Exiting UPDATE_COLL_FOR_HDR_ONLY_MSG API --------- ',2);
END UPDATE_COLL_FOR_HDR_ONLY_MSG;