33: l_xml_event_key VARCHAR2(255);
34: NO_OUT_BOUND_DOCUMENT EXCEPTION;
35: BEGIN
36: -- Sets the debug mode to be FILE
37: --l_debug_mode :=cln_debug_pub.Set_Debug_Mode('FILE');
38: IF (l_Debug_Level <= 2) THEN
39: cln_debug_pub.Add('------ Entering RESEND_DOC API --------- ',2);
40: END IF;
41: IF (l_Debug_Level <= 1) THEN
35: BEGIN
36: -- Sets the debug mode to be FILE
37: --l_debug_mode :=cln_debug_pub.Set_Debug_Mode('FILE');
38: IF (l_Debug_Level <= 2) THEN
39: cln_debug_pub.Add('------ Entering RESEND_DOC API --------- ',2);
40: END IF;
41: IF (l_Debug_Level <= 1) THEN
42: cln_debug_pub.Add('Collaboration ID received -'||p_collaboration_id,1);
43: END IF;
38: IF (l_Debug_Level <= 2) THEN
39: cln_debug_pub.Add('------ Entering RESEND_DOC API --------- ',2);
40: END IF;
41: IF (l_Debug_Level <= 1) THEN
42: cln_debug_pub.Add('Collaboration ID received -'||p_collaboration_id,1);
43: END IF;
44: -- Initialize API return status to success
45: l_msg_data := 'Requested Document successfully sent';
46: IF (l_Debug_Level <= 1) THEN
43: END IF;
44: -- Initialize API return status to success
45: l_msg_data := 'Requested Document successfully sent';
46: IF (l_Debug_Level <= 1) THEN
47: cln_debug_pub.Add('Before Sql Query - cln_coll_hist_hdr',1);
48: END IF;
49: BEGIN
50: SELECT resend_count
51: INTO l_resend_count
51: INTO l_resend_count
52: FROM cln_coll_hist_hdr
53: WHERE collaboration_id = p_collaboration_id;
54: IF (l_Debug_Level <= 1) THEN
55: cln_debug_pub.Add('After Sql Query - cln_coll_hist_hdr',1);
56: cln_debug_pub.Add('Resend Count -'||l_resend_count,1);
57: cln_debug_pub.Add('Before Sql Query - cln_coll_hist_dtl',1);
58: END IF;
59: EXCEPTION
52: FROM cln_coll_hist_hdr
53: WHERE collaboration_id = p_collaboration_id;
54: IF (l_Debug_Level <= 1) THEN
55: cln_debug_pub.Add('After Sql Query - cln_coll_hist_hdr',1);
56: cln_debug_pub.Add('Resend Count -'||l_resend_count,1);
57: cln_debug_pub.Add('Before Sql Query - cln_coll_hist_dtl',1);
58: END IF;
59: EXCEPTION
60: WHEN OTHERS THEN
53: WHERE collaboration_id = p_collaboration_id;
54: IF (l_Debug_Level <= 1) THEN
55: cln_debug_pub.Add('After Sql Query - cln_coll_hist_hdr',1);
56: cln_debug_pub.Add('Resend Count -'||l_resend_count,1);
57: cln_debug_pub.Add('Before Sql Query - cln_coll_hist_dtl',1);
58: END IF;
59: EXCEPTION
60: WHEN OTHERS THEN
61: l_error_code :=SQLCODE;
62: l_error_msg :=SQLERRM;
63: l_msg_data :=l_error_code||' : '||l_error_msg;
64: -- Notifiy Administrator about the error
65: IF (l_Debug_Level <= 5) THEN
66: cln_debug_pub.Add(l_msg_data,6);
67: cln_debug_pub.Add('-------- Exiting RESEND_DOC API ------------- ',2);
68: RAISE NO_OUT_BOUND_DOCUMENT;
69: END IF;
70: RETURN;
63: l_msg_data :=l_error_code||' : '||l_error_msg;
64: -- Notifiy Administrator about the error
65: IF (l_Debug_Level <= 5) THEN
66: cln_debug_pub.Add(l_msg_data,6);
67: cln_debug_pub.Add('-------- Exiting RESEND_DOC API ------------- ',2);
68: RAISE NO_OUT_BOUND_DOCUMENT;
69: END IF;
70: RETURN;
71: END;
93: l_error_msg :=SQLERRM;
94: l_msg_data :=l_error_code||' : '||l_error_msg;
95: -- Notifiy Administrator about the error
96: IF (l_Debug_Level <= 5) THEN
97: cln_debug_pub.Add(l_msg_data,6);
98: cln_debug_pub.Add('-------- Exiting RESEND_DOC API ------------- ',2);
99: RAISE NO_OUT_BOUND_DOCUMENT;
100: END IF;
101: RETURN;
94: l_msg_data :=l_error_code||' : '||l_error_msg;
95: -- Notifiy Administrator about the error
96: IF (l_Debug_Level <= 5) THEN
97: cln_debug_pub.Add(l_msg_data,6);
98: cln_debug_pub.Add('-------- Exiting RESEND_DOC API ------------- ',2);
99: RAISE NO_OUT_BOUND_DOCUMENT;
100: END IF;
101: RETURN;
102: END;
100: END IF;
101: RETURN;
102: END;
103: IF (l_Debug_Level <= 1) THEN
104: cln_debug_pub.Add('After Sql Query - cln_coll_hist_dtl',1);
105: cln_debug_pub.Add('--------- Parameters Obtained ----------------',1);
106: cln_debug_pub.Add('XMLG TRANSACTION TYPE -'||l_xmlg_transaction_type,1);
107: cln_debug_pub.Add('XMLG TRANSACTION SUB TYPE -'||l_xmlg_transaction_subtype,1);
108: cln_debug_pub.Add('XMLG DOCUMENT ID -'||l_xmlg_doc_id,1);
101: RETURN;
102: END;
103: IF (l_Debug_Level <= 1) THEN
104: cln_debug_pub.Add('After Sql Query - cln_coll_hist_dtl',1);
105: cln_debug_pub.Add('--------- Parameters Obtained ----------------',1);
106: cln_debug_pub.Add('XMLG TRANSACTION TYPE -'||l_xmlg_transaction_type,1);
107: cln_debug_pub.Add('XMLG TRANSACTION SUB TYPE -'||l_xmlg_transaction_subtype,1);
108: cln_debug_pub.Add('XMLG DOCUMENT ID -'||l_xmlg_doc_id,1);
109: cln_debug_pub.Add('XMLG EVENT KEY -'||l_xml_event_key,1);
102: END;
103: IF (l_Debug_Level <= 1) THEN
104: cln_debug_pub.Add('After Sql Query - cln_coll_hist_dtl',1);
105: cln_debug_pub.Add('--------- Parameters Obtained ----------------',1);
106: cln_debug_pub.Add('XMLG TRANSACTION TYPE -'||l_xmlg_transaction_type,1);
107: cln_debug_pub.Add('XMLG TRANSACTION SUB TYPE -'||l_xmlg_transaction_subtype,1);
108: cln_debug_pub.Add('XMLG DOCUMENT ID -'||l_xmlg_doc_id,1);
109: cln_debug_pub.Add('XMLG EVENT KEY -'||l_xml_event_key,1);
110: cln_debug_pub.Add('MSG ID -'||l_xmlg_msgid,1);
103: IF (l_Debug_Level <= 1) THEN
104: cln_debug_pub.Add('After Sql Query - cln_coll_hist_dtl',1);
105: cln_debug_pub.Add('--------- Parameters Obtained ----------------',1);
106: cln_debug_pub.Add('XMLG TRANSACTION TYPE -'||l_xmlg_transaction_type,1);
107: cln_debug_pub.Add('XMLG TRANSACTION SUB TYPE -'||l_xmlg_transaction_subtype,1);
108: cln_debug_pub.Add('XMLG DOCUMENT ID -'||l_xmlg_doc_id,1);
109: cln_debug_pub.Add('XMLG EVENT KEY -'||l_xml_event_key,1);
110: cln_debug_pub.Add('MSG ID -'||l_xmlg_msgid,1);
111: cln_debug_pub.Add('Collaboration Dtl ID -'||l_coll_dtl_id,1);
104: cln_debug_pub.Add('After Sql Query - cln_coll_hist_dtl',1);
105: cln_debug_pub.Add('--------- Parameters Obtained ----------------',1);
106: cln_debug_pub.Add('XMLG TRANSACTION TYPE -'||l_xmlg_transaction_type,1);
107: cln_debug_pub.Add('XMLG TRANSACTION SUB TYPE -'||l_xmlg_transaction_subtype,1);
108: cln_debug_pub.Add('XMLG DOCUMENT ID -'||l_xmlg_doc_id,1);
109: cln_debug_pub.Add('XMLG EVENT KEY -'||l_xml_event_key,1);
110: cln_debug_pub.Add('MSG ID -'||l_xmlg_msgid,1);
111: cln_debug_pub.Add('Collaboration Dtl ID -'||l_coll_dtl_id,1);
112: cln_debug_pub.Add('----------------------------------------------',1);
105: cln_debug_pub.Add('--------- Parameters Obtained ----------------',1);
106: cln_debug_pub.Add('XMLG TRANSACTION TYPE -'||l_xmlg_transaction_type,1);
107: cln_debug_pub.Add('XMLG TRANSACTION SUB TYPE -'||l_xmlg_transaction_subtype,1);
108: cln_debug_pub.Add('XMLG DOCUMENT ID -'||l_xmlg_doc_id,1);
109: cln_debug_pub.Add('XMLG EVENT KEY -'||l_xml_event_key,1);
110: cln_debug_pub.Add('MSG ID -'||l_xmlg_msgid,1);
111: cln_debug_pub.Add('Collaboration Dtl ID -'||l_coll_dtl_id,1);
112: cln_debug_pub.Add('----------------------------------------------',1);
113: END IF;
106: cln_debug_pub.Add('XMLG TRANSACTION TYPE -'||l_xmlg_transaction_type,1);
107: cln_debug_pub.Add('XMLG TRANSACTION SUB TYPE -'||l_xmlg_transaction_subtype,1);
108: cln_debug_pub.Add('XMLG DOCUMENT ID -'||l_xmlg_doc_id,1);
109: cln_debug_pub.Add('XMLG EVENT KEY -'||l_xml_event_key,1);
110: cln_debug_pub.Add('MSG ID -'||l_xmlg_msgid,1);
111: cln_debug_pub.Add('Collaboration Dtl ID -'||l_coll_dtl_id,1);
112: cln_debug_pub.Add('----------------------------------------------',1);
113: END IF;
114: IF l_xmlg_msgid IS NULL THEN
107: cln_debug_pub.Add('XMLG TRANSACTION SUB TYPE -'||l_xmlg_transaction_subtype,1);
108: cln_debug_pub.Add('XMLG DOCUMENT ID -'||l_xmlg_doc_id,1);
109: cln_debug_pub.Add('XMLG EVENT KEY -'||l_xml_event_key,1);
110: cln_debug_pub.Add('MSG ID -'||l_xmlg_msgid,1);
111: cln_debug_pub.Add('Collaboration Dtl ID -'||l_coll_dtl_id,1);
112: cln_debug_pub.Add('----------------------------------------------',1);
113: END IF;
114: IF l_xmlg_msgid IS NULL THEN
115: IF (l_Debug_Level <= 1) THEN
108: cln_debug_pub.Add('XMLG DOCUMENT ID -'||l_xmlg_doc_id,1);
109: cln_debug_pub.Add('XMLG EVENT KEY -'||l_xml_event_key,1);
110: cln_debug_pub.Add('MSG ID -'||l_xmlg_msgid,1);
111: cln_debug_pub.Add('Collaboration Dtl ID -'||l_coll_dtl_id,1);
112: cln_debug_pub.Add('----------------------------------------------',1);
113: END IF;
114: IF l_xmlg_msgid IS NULL THEN
115: IF (l_Debug_Level <= 1) THEN
116: cln_debug_pub.Add('About to query xml message id ',2);
112: cln_debug_pub.Add('----------------------------------------------',1);
113: END IF;
114: IF l_xmlg_msgid IS NULL THEN
115: IF (l_Debug_Level <= 1) THEN
116: cln_debug_pub.Add('About to query xml message id ',2);
117: END IF;
118: BEGIN
119: SELECT MSGID
120: INTO l_xmlg_msgid
129: l_error_code :=SQLCODE;
130: l_error_msg :=SQLERRM;
131: l_msg_data :=l_error_code||' : '||l_error_msg;
132: IF (l_Debug_Level <= 5) THEN
133: cln_debug_pub.Add(l_msg_data,6);
134: cln_debug_pub.Add('-------- Exiting RESEND_DOC API ------------- ',2);
135: RAISE NO_OUT_BOUND_DOCUMENT;
136: END IF;
137: RETURN;
130: l_error_msg :=SQLERRM;
131: l_msg_data :=l_error_code||' : '||l_error_msg;
132: IF (l_Debug_Level <= 5) THEN
133: cln_debug_pub.Add(l_msg_data,6);
134: cln_debug_pub.Add('-------- Exiting RESEND_DOC API ------------- ',2);
135: RAISE NO_OUT_BOUND_DOCUMENT;
136: END IF;
137: RETURN;
138: END;
137: RETURN;
138: END;
139: END IF;
140: IF (l_Debug_Level <= 1) THEN
141: cln_debug_pub.Add('About to call ECX_DOCUMENT.RESEND',2);
142: END IF;
143: BEGIN
144: ECX_DOCUMENT.RESEND(l_xmlg_msgid, l_error_code, l_error_msg);
145: EXCEPTION
148: l_error_msg :=SQLERRM;
149: l_msg_data :=l_error_code||' : '||l_error_msg;
150: -- Notifiy Administrator about the error
151: IF (l_Debug_Level <= 5) THEN
152: cln_debug_pub.Add(l_msg_data,6);
153: cln_debug_pub.Add('-------- Exiting RESEND_DOC API ------------- ',2);
154: RAISE NO_OUT_BOUND_DOCUMENT;
155: END IF;
156: RETURN;
149: l_msg_data :=l_error_code||' : '||l_error_msg;
150: -- Notifiy Administrator about the error
151: IF (l_Debug_Level <= 5) THEN
152: cln_debug_pub.Add(l_msg_data,6);
153: cln_debug_pub.Add('-------- Exiting RESEND_DOC API ------------- ',2);
154: RAISE NO_OUT_BOUND_DOCUMENT;
155: END IF;
156: RETURN;
157: END;
155: END IF;
156: RETURN;
157: END;
158: IF (l_Debug_Level <= 1) THEN
159: cln_debug_pub.Add('Error Code returned by ECX_DOCUMENT.RESEND -'||l_error_code,1);
160: cln_debug_pub.Add('Error Msg returned by ECX_DOCUMENT.RESEND -'||l_error_msg,1);
161: END IF;
162: IF (l_error_code = 0) THEN
163: l_resend_count := nvl(l_resend_count,0)+1;
156: RETURN;
157: END;
158: IF (l_Debug_Level <= 1) THEN
159: cln_debug_pub.Add('Error Code returned by ECX_DOCUMENT.RESEND -'||l_error_code,1);
160: cln_debug_pub.Add('Error Msg returned by ECX_DOCUMENT.RESEND -'||l_error_msg,1);
161: END IF;
162: IF (l_error_code = 0) THEN
163: l_resend_count := nvl(l_resend_count,0)+1;
164: IF (l_Debug_Level <= 1) THEN
161: END IF;
162: IF (l_error_code = 0) THEN
163: l_resend_count := nvl(l_resend_count,0)+1;
164: IF (l_Debug_Level <= 1) THEN
165: cln_debug_pub.Add('----- Before calling Update Collaboration -------',1);
166: END IF;
167: CLN_CH_COLLABORATION_PKG.UPDATE_COLLABORATION(
168: x_return_status => l_return_status,
169: x_msg_data => l_msg_data,
229: p_rosettanet_check_required => NULL,
230: x_dtl_coll_id => l_dtl_coll_id
231: );
232: IF (l_Debug_Level <= 1) THEN
233: cln_debug_pub.Add('COLLABORATION_DETAIL_ID got as ----'||l_dtl_coll_id, 1);
234: cln_debug_pub.Add('RETURN_STATUS got as ----'||l_return_status, 1);
235: cln_debug_pub.Add('MESSAGE_DATA got as ----'||l_msg_data, 1);
236: END IF;
237: END IF;
230: x_dtl_coll_id => l_dtl_coll_id
231: );
232: IF (l_Debug_Level <= 1) THEN
233: cln_debug_pub.Add('COLLABORATION_DETAIL_ID got as ----'||l_dtl_coll_id, 1);
234: cln_debug_pub.Add('RETURN_STATUS got as ----'||l_return_status, 1);
235: cln_debug_pub.Add('MESSAGE_DATA got as ----'||l_msg_data, 1);
236: END IF;
237: END IF;
238: IF (l_Debug_Level <= 1) THEN
231: );
232: IF (l_Debug_Level <= 1) THEN
233: cln_debug_pub.Add('COLLABORATION_DETAIL_ID got as ----'||l_dtl_coll_id, 1);
234: cln_debug_pub.Add('RETURN_STATUS got as ----'||l_return_status, 1);
235: cln_debug_pub.Add('MESSAGE_DATA got as ----'||l_msg_data, 1);
236: END IF;
237: END IF;
238: IF (l_Debug_Level <= 1) THEN
239: cln_debug_pub.Add(l_msg_data,1);
235: cln_debug_pub.Add('MESSAGE_DATA got as ----'||l_msg_data, 1);
236: END IF;
237: END IF;
238: IF (l_Debug_Level <= 1) THEN
239: cln_debug_pub.Add(l_msg_data,1);
240: END IF;
241: IF (l_Debug_Level <= 2) THEN
242: cln_debug_pub.Add('-------- Exiting RESEND_DOC API ------------- ',2);
243: END IF;
238: IF (l_Debug_Level <= 1) THEN
239: cln_debug_pub.Add(l_msg_data,1);
240: END IF;
241: IF (l_Debug_Level <= 2) THEN
242: cln_debug_pub.Add('-------- Exiting RESEND_DOC API ------------- ',2);
243: END IF;
244: -- Exception Handling
245: EXCEPTION
246: WHEN FND_API.G_EXC_ERROR THEN
247: l_error_code :=SQLCODE;
248: l_error_msg :=SQLERRM;
249: l_msg_data :=l_error_code||' : '||l_error_msg;
250: IF (l_Debug_Level <= 5) THEN
251: cln_debug_pub.Add(l_msg_data,4);
252: cln_debug_pub.Add('-------- Exiting RESEND_DOC API ------------- ',2);
253: END IF;
254: RAISE FND_API.G_EXC_ERROR ;
255: END RESEND_DOC;
248: l_error_msg :=SQLERRM;
249: l_msg_data :=l_error_code||' : '||l_error_msg;
250: IF (l_Debug_Level <= 5) THEN
251: cln_debug_pub.Add(l_msg_data,4);
252: cln_debug_pub.Add('-------- Exiting RESEND_DOC API ------------- ',2);
253: END IF;
254: RAISE FND_API.G_EXC_ERROR ;
255: END RESEND_DOC;
256: