[Home] [Help]
27: IS
28: i binary_integer;
29: BEGIN
30: IF (l_Debug_Level <= 2) THEN
31: cln_debug_pub.Add('ENTERING PROCESS_ORDER_HEADER,p_requestor:' || p_line_num, 2);
32: END IF;
33:
34: i := l_line_num_tab.first();
35: while i is not null loop
33:
34: i := l_line_num_tab.first();
35: while i is not null loop
36: IF (l_Debug_Level <= 1) THEN
37: cln_debug_pub.Add('next element:' || l_line_num_tab(i), 1);
38: END IF;
39: IF (l_line_num_tab(i) = p_line_num ) THEN
40: IF (l_Debug_Level <= 2) THEN
41: cln_debug_pub.Add('EXITING PROCESS_ORDER_HEADER:Line is duplicate', 1);
37: cln_debug_pub.Add('next element:' || l_line_num_tab(i), 1);
38: END IF;
39: IF (l_line_num_tab(i) = p_line_num ) THEN
40: IF (l_Debug_Level <= 2) THEN
41: cln_debug_pub.Add('EXITING PROCESS_ORDER_HEADER:Line is duplicate', 1);
42: END IF;
43: RETURN TRUE;
44: END IF;
45: i := l_line_num_tab.next(i);
45: i := l_line_num_tab.next(i);
46: end loop;
47: l_line_num_tab(l_line_num_tab.count()+1) := p_line_num;
48: IF (l_Debug_Level <= 2) THEN
49: cln_debug_pub.Add('EXITING PROCESS_ORDER_HEADER:Line is not duplicate', 1);
50: END IF;
51: RETURN FALSE;
52: END;
53:
86: l_msg_data VARCHAR2(255);
87:
88: BEGIN
89: -- Sets the debug mode to be FILE
90: --l_debug_mode := cln_debug_pub.Set_Debug_Mode('FILE');
91: IF (l_Debug_Level <= 2) THEN
92: cln_debug_pub.Add('-------- ENTERING RAISE_UPDATE_EVENT -----------', 2);
93: END IF;
94:
88: BEGIN
89: -- Sets the debug mode to be FILE
90: --l_debug_mode := cln_debug_pub.Set_Debug_Mode('FILE');
91: IF (l_Debug_Level <= 2) THEN
92: cln_debug_pub.Add('-------- ENTERING RAISE_UPDATE_EVENT -----------', 2);
93: END IF;
94:
95: -- Initialize API return status to success
96: x_return_status := FND_API.G_RET_STS_SUCCESS;
102:
103: SELECT cln_generic_s.nextval INTO l_event_key FROM dual;
104:
105: IF (l_Debug_Level <= 1) THEN
106: cln_debug_pub.Add('----------- PARAMETERS OBTAINED ----------', 1);
107: cln_debug_pub.Add('Collaboration ID ---- '||p_coll_id, 1);
108: cln_debug_pub.Add('Document Status ---- '||p_doc_status, 1);
109: cln_debug_pub.Add('Disposition ---- '||p_disposition, 1);
110: cln_debug_pub.Add('Originator Reference (SO Number) ---- '||p_org_ref, 1);
103: SELECT cln_generic_s.nextval INTO l_event_key FROM dual;
104:
105: IF (l_Debug_Level <= 1) THEN
106: cln_debug_pub.Add('----------- PARAMETERS OBTAINED ----------', 1);
107: cln_debug_pub.Add('Collaboration ID ---- '||p_coll_id, 1);
108: cln_debug_pub.Add('Document Status ---- '||p_doc_status, 1);
109: cln_debug_pub.Add('Disposition ---- '||p_disposition, 1);
110: cln_debug_pub.Add('Originator Reference (SO Number) ---- '||p_org_ref, 1);
111: cln_debug_pub.Add('Message Text ---- '||p_msg_text, 1);
104:
105: IF (l_Debug_Level <= 1) THEN
106: cln_debug_pub.Add('----------- PARAMETERS OBTAINED ----------', 1);
107: cln_debug_pub.Add('Collaboration ID ---- '||p_coll_id, 1);
108: cln_debug_pub.Add('Document Status ---- '||p_doc_status, 1);
109: cln_debug_pub.Add('Disposition ---- '||p_disposition, 1);
110: cln_debug_pub.Add('Originator Reference (SO Number) ---- '||p_org_ref, 1);
111: cln_debug_pub.Add('Message Text ---- '||p_msg_text, 1);
112: cln_debug_pub.Add('Internal Control Number ---- '||p_internal_control_number, 1);
105: IF (l_Debug_Level <= 1) THEN
106: cln_debug_pub.Add('----------- PARAMETERS OBTAINED ----------', 1);
107: cln_debug_pub.Add('Collaboration ID ---- '||p_coll_id, 1);
108: cln_debug_pub.Add('Document Status ---- '||p_doc_status, 1);
109: cln_debug_pub.Add('Disposition ---- '||p_disposition, 1);
110: cln_debug_pub.Add('Originator Reference (SO Number) ---- '||p_org_ref, 1);
111: cln_debug_pub.Add('Message Text ---- '||p_msg_text, 1);
112: cln_debug_pub.Add('Internal Control Number ---- '||p_internal_control_number, 1);
113: cln_debug_pub.Add('------------------------------------------', 1);
106: cln_debug_pub.Add('----------- PARAMETERS OBTAINED ----------', 1);
107: cln_debug_pub.Add('Collaboration ID ---- '||p_coll_id, 1);
108: cln_debug_pub.Add('Document Status ---- '||p_doc_status, 1);
109: cln_debug_pub.Add('Disposition ---- '||p_disposition, 1);
110: cln_debug_pub.Add('Originator Reference (SO Number) ---- '||p_org_ref, 1);
111: cln_debug_pub.Add('Message Text ---- '||p_msg_text, 1);
112: cln_debug_pub.Add('Internal Control Number ---- '||p_internal_control_number, 1);
113: cln_debug_pub.Add('------------------------------------------', 1);
114: cln_debug_pub.Add('----------- SETTING DEFAULT VALUES ----------', 1);
107: cln_debug_pub.Add('Collaboration ID ---- '||p_coll_id, 1);
108: cln_debug_pub.Add('Document Status ---- '||p_doc_status, 1);
109: cln_debug_pub.Add('Disposition ---- '||p_disposition, 1);
110: cln_debug_pub.Add('Originator Reference (SO Number) ---- '||p_org_ref, 1);
111: cln_debug_pub.Add('Message Text ---- '||p_msg_text, 1);
112: cln_debug_pub.Add('Internal Control Number ---- '||p_internal_control_number, 1);
113: cln_debug_pub.Add('------------------------------------------', 1);
114: cln_debug_pub.Add('----------- SETTING DEFAULT VALUES ----------', 1);
115: END IF;
108: cln_debug_pub.Add('Document Status ---- '||p_doc_status, 1);
109: cln_debug_pub.Add('Disposition ---- '||p_disposition, 1);
110: cln_debug_pub.Add('Originator Reference (SO Number) ---- '||p_org_ref, 1);
111: cln_debug_pub.Add('Message Text ---- '||p_msg_text, 1);
112: cln_debug_pub.Add('Internal Control Number ---- '||p_internal_control_number, 1);
113: cln_debug_pub.Add('------------------------------------------', 1);
114: cln_debug_pub.Add('----------- SETTING DEFAULT VALUES ----------', 1);
115: END IF;
116: l_rosettanet_check_required := 'TRUE' ;
109: cln_debug_pub.Add('Disposition ---- '||p_disposition, 1);
110: cln_debug_pub.Add('Originator Reference (SO Number) ---- '||p_org_ref, 1);
111: cln_debug_pub.Add('Message Text ---- '||p_msg_text, 1);
112: cln_debug_pub.Add('Internal Control Number ---- '||p_internal_control_number, 1);
113: cln_debug_pub.Add('------------------------------------------', 1);
114: cln_debug_pub.Add('----------- SETTING DEFAULT VALUES ----------', 1);
115: END IF;
116: l_rosettanet_check_required := 'TRUE' ;
117:
110: cln_debug_pub.Add('Originator Reference (SO Number) ---- '||p_org_ref, 1);
111: cln_debug_pub.Add('Message Text ---- '||p_msg_text, 1);
112: cln_debug_pub.Add('Internal Control Number ---- '||p_internal_control_number, 1);
113: cln_debug_pub.Add('------------------------------------------', 1);
114: cln_debug_pub.Add('----------- SETTING DEFAULT VALUES ----------', 1);
115: END IF;
116: l_rosettanet_check_required := 'TRUE' ;
117:
118: l_cln_ch_parameters := wf_parameter_list_t();
116: l_rosettanet_check_required := 'TRUE' ;
117:
118: l_cln_ch_parameters := wf_parameter_list_t();
119: IF (l_Debug_Level <= 1) THEN
120: cln_debug_pub.Add('-------- SETTING EVENT PARAMETERS -----------', 1);
121: END IF;
122: WF_EVENT.AddParameterToList('COLLABORATION_ID', p_coll_id, l_cln_ch_parameters);
123: WF_EVENT.AddParameterToList('DOCUMENT_STATUS', p_doc_status, l_cln_ch_parameters);
124: WF_EVENT.AddParameterToList('DISPOSITION', p_disposition, l_cln_ch_parameters);
127: WF_EVENT.AddParameterToList('ROSETTANET_CHECK_REQUIRED',l_rosettanet_check_required,l_cln_ch_parameters);
128: WF_EVENT.AddParameterToList('XMLG_INTERNAL_CONTROL_NUMBER',p_internal_control_number,l_cln_ch_parameters);
129: WF_EVENT.AddParameterToList('PARTNER_DOCUMENT_NO',p_org_ref,l_cln_ch_parameters);
130: IF (l_Debug_Level <= 1) THEN
131: cln_debug_pub.Add('-------- EVENT PARAMETERS SET-----------', 1);
132: cln_debug_pub.Add('Workflow event- oracle.apps.cln.ch.collaboration.update', 1);
133: END IF;
134:
135: WF_EVENT.Raise('oracle.apps.cln.ch.collaboration.update',l_event_key, NULL, l_cln_ch_parameters, NULL);
128: WF_EVENT.AddParameterToList('XMLG_INTERNAL_CONTROL_NUMBER',p_internal_control_number,l_cln_ch_parameters);
129: WF_EVENT.AddParameterToList('PARTNER_DOCUMENT_NO',p_org_ref,l_cln_ch_parameters);
130: IF (l_Debug_Level <= 1) THEN
131: cln_debug_pub.Add('-------- EVENT PARAMETERS SET-----------', 1);
132: cln_debug_pub.Add('Workflow event- oracle.apps.cln.ch.collaboration.update', 1);
133: END IF;
134:
135: WF_EVENT.Raise('oracle.apps.cln.ch.collaboration.update',l_event_key, NULL, l_cln_ch_parameters, NULL);
136: IF (l_Debug_Level <= 2) THEN
133: END IF;
134:
135: WF_EVENT.Raise('oracle.apps.cln.ch.collaboration.update',l_event_key, NULL, l_cln_ch_parameters, NULL);
136: IF (l_Debug_Level <= 2) THEN
137: cln_debug_pub.Add('----------- EXITING RAISE_UPDATE_EVENT ------------', 2);
138: END IF;
139:
140:
141: EXCEPTION
144: l_error_msg := SQLERRM;
145: x_return_status := FND_API.G_RET_STS_ERROR ;
146: x_msg_data := l_error_code||' : '||l_error_msg;
147: IF (l_Debug_Level <= 6) THEN
148: cln_debug_pub.Add('Error:' || l_error_code || ':' || l_error_msg, 6);
149: cln_debug_pub.Add('----------- ERROR :EXITING RAISE_UPDATE_EVENT ------------', 6);
150: END IF;
151:
152: WHEN OTHERS THEN
145: x_return_status := FND_API.G_RET_STS_ERROR ;
146: x_msg_data := l_error_code||' : '||l_error_msg;
147: IF (l_Debug_Level <= 6) THEN
148: cln_debug_pub.Add('Error:' || l_error_code || ':' || l_error_msg, 6);
149: cln_debug_pub.Add('----------- ERROR :EXITING RAISE_UPDATE_EVENT ------------', 6);
150: END IF;
151:
152: WHEN OTHERS THEN
153: l_error_code := SQLCODE;
157: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
158: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
159: x_msg_data := FND_MESSAGE.GET;
160: IF (l_Debug_Level <= 6) THEN
161: cln_debug_pub.Add('Unexpected Error:' || l_error_code || ':' || l_error_msg, 6);
162: cln_debug_pub.Add('----------- ERROR :EXITING RAISE_UPDATE_EVENT ------------', 2);
163: END IF;
164:
165: END RAISE_UPDATE_EVENT;
158: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
159: x_msg_data := FND_MESSAGE.GET;
160: IF (l_Debug_Level <= 6) THEN
161: cln_debug_pub.Add('Unexpected Error:' || l_error_code || ':' || l_error_msg, 6);
162: cln_debug_pub.Add('----------- ERROR :EXITING RAISE_UPDATE_EVENT ------------', 2);
163: END IF;
164:
165: END RAISE_UPDATE_EVENT;
166:
200: l_msg_data VARCHAR2(255);
201:
202: BEGIN
203: -- Sets the debug mode to be FILE
204: --l_debug_mode := cln_debug_pub.Set_Debug_Mode('FILE');
205: IF (l_Debug_Level <= 2) THEN
206: cln_debug_pub.Add('-------- ENTERING RAISE_ADD_MSG_EVENT ------------', 2);
207: END IF;
208:
202: BEGIN
203: -- Sets the debug mode to be FILE
204: --l_debug_mode := cln_debug_pub.Set_Debug_Mode('FILE');
205: IF (l_Debug_Level <= 2) THEN
206: cln_debug_pub.Add('-------- ENTERING RAISE_ADD_MSG_EVENT ------------', 2);
207: END IF;
208:
209: -- Initialize API return status to success
210: x_return_status := FND_API.G_RET_STS_SUCCESS;
217:
218: SELECT cln_generic_s.nextval INTO l_event_key FROM dual;
219:
220: IF (l_Debug_Level <= 1) THEN
221: cln_debug_pub.Add('----------- PARAMETERS OBTAINED ----------',1);
222: cln_debug_pub.Add('Collaboration ID ---- '||p_coll_id, 1);
223: cln_debug_pub.Add('Reference 1 ---- '||p_ref1,1);
224: cln_debug_pub.Add('Reference 2 ---- '||p_ref2,1);
225: cln_debug_pub.Add('Reference 3 ---- '||p_ref3,1);
218: SELECT cln_generic_s.nextval INTO l_event_key FROM dual;
219:
220: IF (l_Debug_Level <= 1) THEN
221: cln_debug_pub.Add('----------- PARAMETERS OBTAINED ----------',1);
222: cln_debug_pub.Add('Collaboration ID ---- '||p_coll_id, 1);
223: cln_debug_pub.Add('Reference 1 ---- '||p_ref1,1);
224: cln_debug_pub.Add('Reference 2 ---- '||p_ref2,1);
225: cln_debug_pub.Add('Reference 3 ---- '||p_ref3,1);
226: cln_debug_pub.Add('Reference 4 ---- '||p_ref4,1);
219:
220: IF (l_Debug_Level <= 1) THEN
221: cln_debug_pub.Add('----------- PARAMETERS OBTAINED ----------',1);
222: cln_debug_pub.Add('Collaboration ID ---- '||p_coll_id, 1);
223: cln_debug_pub.Add('Reference 1 ---- '||p_ref1,1);
224: cln_debug_pub.Add('Reference 2 ---- '||p_ref2,1);
225: cln_debug_pub.Add('Reference 3 ---- '||p_ref3,1);
226: cln_debug_pub.Add('Reference 4 ---- '||p_ref4,1);
227: cln_debug_pub.Add('Reference 5 ---- '||p_ref5,1);
220: IF (l_Debug_Level <= 1) THEN
221: cln_debug_pub.Add('----------- PARAMETERS OBTAINED ----------',1);
222: cln_debug_pub.Add('Collaboration ID ---- '||p_coll_id, 1);
223: cln_debug_pub.Add('Reference 1 ---- '||p_ref1,1);
224: cln_debug_pub.Add('Reference 2 ---- '||p_ref2,1);
225: cln_debug_pub.Add('Reference 3 ---- '||p_ref3,1);
226: cln_debug_pub.Add('Reference 4 ---- '||p_ref4,1);
227: cln_debug_pub.Add('Reference 5 ---- '||p_ref5,1);
228: cln_debug_pub.Add('Detail Message ---- '||p_dtl_msg,1);
221: cln_debug_pub.Add('----------- PARAMETERS OBTAINED ----------',1);
222: cln_debug_pub.Add('Collaboration ID ---- '||p_coll_id, 1);
223: cln_debug_pub.Add('Reference 1 ---- '||p_ref1,1);
224: cln_debug_pub.Add('Reference 2 ---- '||p_ref2,1);
225: cln_debug_pub.Add('Reference 3 ---- '||p_ref3,1);
226: cln_debug_pub.Add('Reference 4 ---- '||p_ref4,1);
227: cln_debug_pub.Add('Reference 5 ---- '||p_ref5,1);
228: cln_debug_pub.Add('Detail Message ---- '||p_dtl_msg,1);
229: cln_debug_pub.Add('Internal Control Number ---- '||p_internal_control_number, 1);
222: cln_debug_pub.Add('Collaboration ID ---- '||p_coll_id, 1);
223: cln_debug_pub.Add('Reference 1 ---- '||p_ref1,1);
224: cln_debug_pub.Add('Reference 2 ---- '||p_ref2,1);
225: cln_debug_pub.Add('Reference 3 ---- '||p_ref3,1);
226: cln_debug_pub.Add('Reference 4 ---- '||p_ref4,1);
227: cln_debug_pub.Add('Reference 5 ---- '||p_ref5,1);
228: cln_debug_pub.Add('Detail Message ---- '||p_dtl_msg,1);
229: cln_debug_pub.Add('Internal Control Number ---- '||p_internal_control_number, 1);
230: cln_debug_pub.Add('------------------------------------------',1);
223: cln_debug_pub.Add('Reference 1 ---- '||p_ref1,1);
224: cln_debug_pub.Add('Reference 2 ---- '||p_ref2,1);
225: cln_debug_pub.Add('Reference 3 ---- '||p_ref3,1);
226: cln_debug_pub.Add('Reference 4 ---- '||p_ref4,1);
227: cln_debug_pub.Add('Reference 5 ---- '||p_ref5,1);
228: cln_debug_pub.Add('Detail Message ---- '||p_dtl_msg,1);
229: cln_debug_pub.Add('Internal Control Number ---- '||p_internal_control_number, 1);
230: cln_debug_pub.Add('------------------------------------------',1);
231: END IF;
224: cln_debug_pub.Add('Reference 2 ---- '||p_ref2,1);
225: cln_debug_pub.Add('Reference 3 ---- '||p_ref3,1);
226: cln_debug_pub.Add('Reference 4 ---- '||p_ref4,1);
227: cln_debug_pub.Add('Reference 5 ---- '||p_ref5,1);
228: cln_debug_pub.Add('Detail Message ---- '||p_dtl_msg,1);
229: cln_debug_pub.Add('Internal Control Number ---- '||p_internal_control_number, 1);
230: cln_debug_pub.Add('------------------------------------------',1);
231: END IF;
232:
225: cln_debug_pub.Add('Reference 3 ---- '||p_ref3,1);
226: cln_debug_pub.Add('Reference 4 ---- '||p_ref4,1);
227: cln_debug_pub.Add('Reference 5 ---- '||p_ref5,1);
228: cln_debug_pub.Add('Detail Message ---- '||p_dtl_msg,1);
229: cln_debug_pub.Add('Internal Control Number ---- '||p_internal_control_number, 1);
230: cln_debug_pub.Add('------------------------------------------',1);
231: END IF;
232:
233:
226: cln_debug_pub.Add('Reference 4 ---- '||p_ref4,1);
227: cln_debug_pub.Add('Reference 5 ---- '||p_ref5,1);
228: cln_debug_pub.Add('Detail Message ---- '||p_dtl_msg,1);
229: cln_debug_pub.Add('Internal Control Number ---- '||p_internal_control_number, 1);
230: cln_debug_pub.Add('------------------------------------------',1);
231: END IF;
232:
233:
234: l_cln_ch_parameters := wf_parameter_list_t();
232:
233:
234: l_cln_ch_parameters := wf_parameter_list_t();
235: IF (l_Debug_Level <= 1) THEN
236: cln_debug_pub.Add('---------- SETTING WORKFLOW PARAMETERS---------', 1);
237: END IF;
238: WF_EVENT.AddParameterToList('REFERENCE_ID1',p_ref1,l_cln_ch_parameters);
239: WF_EVENT.AddParameterToList('REFERENCE_ID2',p_ref2,l_cln_ch_parameters);
240: WF_EVENT.AddParameterToList('REFERENCE_ID3',p_ref3,l_cln_ch_parameters);
246: WF_EVENT.AddParameterToList('DOCUMENT_DIRECTION', 'IN', l_cln_ch_parameters);
247: WF_EVENT.AddParameterToList('COLLABORATION_POINT', 'APPS', l_cln_ch_parameters);
248: WF_EVENT.AddParameterToList('XMLG_INTERNAL_CONTROL_NUMBER',p_internal_control_number,l_cln_ch_parameters);
249: IF (l_Debug_Level <= 1) THEN
250: cln_debug_pub.Add('----------------------------------------------', 1);
251: cln_debug_pub.Add('Workflow event- oracle.apps.cln.ch.collaboration.addmessage', 1);
252: END IF;
253:
254: WF_EVENT.Raise('oracle.apps.cln.ch.collaboration.addmessage',l_event_key, NULL, l_cln_ch_parameters, NULL);
247: WF_EVENT.AddParameterToList('COLLABORATION_POINT', 'APPS', l_cln_ch_parameters);
248: WF_EVENT.AddParameterToList('XMLG_INTERNAL_CONTROL_NUMBER',p_internal_control_number,l_cln_ch_parameters);
249: IF (l_Debug_Level <= 1) THEN
250: cln_debug_pub.Add('----------------------------------------------', 1);
251: cln_debug_pub.Add('Workflow event- oracle.apps.cln.ch.collaboration.addmessage', 1);
252: END IF;
253:
254: WF_EVENT.Raise('oracle.apps.cln.ch.collaboration.addmessage',l_event_key, NULL, l_cln_ch_parameters, NULL);
255: IF (l_Debug_Level <= 2) THEN
252: END IF;
253:
254: WF_EVENT.Raise('oracle.apps.cln.ch.collaboration.addmessage',l_event_key, NULL, l_cln_ch_parameters, NULL);
255: IF (l_Debug_Level <= 2) THEN
256: cln_debug_pub.Add('--------- EXITING RAISE_ADD_MSG_EVENT -------------', 2);
257: END IF;
258:
259:
260: EXCEPTION
260: EXCEPTION
261: WHEN FND_API.G_EXC_ERROR THEN
262: x_return_status :=FND_API.G_RET_STS_ERROR ;
263: IF (l_Debug_Level <= 5) THEN
264: cln_debug_pub.Add('Error:' || x_msg_data, 4);
265: cln_debug_pub.Add('--------- ERROR :EXITING RAISE_ADD_MSG_EVENT -------------', 2);
266: END IF;
267:
268: WHEN OTHERS THEN
261: WHEN FND_API.G_EXC_ERROR THEN
262: x_return_status :=FND_API.G_RET_STS_ERROR ;
263: IF (l_Debug_Level <= 5) THEN
264: cln_debug_pub.Add('Error:' || x_msg_data, 4);
265: cln_debug_pub.Add('--------- ERROR :EXITING RAISE_ADD_MSG_EVENT -------------', 2);
266: END IF;
267:
268: WHEN OTHERS THEN
269: l_error_code := SQLCODE;
273: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
274: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
275: x_msg_data :=FND_MESSAGE.GET;
276: IF (l_Debug_Level <= 2) THEN
277: cln_debug_pub.Add('Error:' || l_error_code || ':' || l_error_msg, 4);
278: cln_debug_pub.Add('--------- ERROR :EXITING RAISE_ADD_MSG_EVENT -------------', 2);
279: END IF;
280:
281: END RAISE_ADD_MSG_EVENT;
274: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
275: x_msg_data :=FND_MESSAGE.GET;
276: IF (l_Debug_Level <= 2) THEN
277: cln_debug_pub.Add('Error:' || l_error_code || ':' || l_error_msg, 4);
278: cln_debug_pub.Add('--------- ERROR :EXITING RAISE_ADD_MSG_EVENT -------------', 2);
279: END IF;
280:
281: END RAISE_ADD_MSG_EVENT;
282:
338:
339: BEGIN
340:
341: -- Sets the debug mode to be FILE
342: --l_debug_mode :=cln_debug_pub.Set_Debug_Mode('FILE');
343:
344: IF (l_Debug_Level <= 1) THEN
345: cln_debug_pub.Add('############################################################',1);
346: cln_debug_pub.Add('############### START OF XGM DEBUG FILE #################',1);
341: -- Sets the debug mode to be FILE
342: --l_debug_mode :=cln_debug_pub.Set_Debug_Mode('FILE');
343:
344: IF (l_Debug_Level <= 1) THEN
345: cln_debug_pub.Add('############################################################',1);
346: cln_debug_pub.Add('############### START OF XGM DEBUG FILE #################',1);
347: cln_debug_pub.Add('############################################################',1);
348: END IF;
349:
342: --l_debug_mode :=cln_debug_pub.Set_Debug_Mode('FILE');
343:
344: IF (l_Debug_Level <= 1) THEN
345: cln_debug_pub.Add('############################################################',1);
346: cln_debug_pub.Add('############### START OF XGM DEBUG FILE #################',1);
347: cln_debug_pub.Add('############################################################',1);
348: END IF;
349:
350: IF (l_Debug_Level <= 2) THEN
343:
344: IF (l_Debug_Level <= 1) THEN
345: cln_debug_pub.Add('############################################################',1);
346: cln_debug_pub.Add('############### START OF XGM DEBUG FILE #################',1);
347: cln_debug_pub.Add('############################################################',1);
348: END IF;
349:
350: IF (l_Debug_Level <= 2) THEN
351: cln_debug_pub.Add('---- Entering PROCESS_HEADER API ----- ', 2);
347: cln_debug_pub.Add('############################################################',1);
348: END IF;
349:
350: IF (l_Debug_Level <= 2) THEN
351: cln_debug_pub.Add('---- Entering PROCESS_HEADER API ----- ', 2);
352: END IF;
353:
354: -- Standard Start of API savepoint
355: SAVEPOINT CHECK_COLLABORATION_PUB;
362:
363:
364: -- Parameters received
365: IF (l_Debug_Level <= 1) THEN
366: cln_debug_pub.Add('----- PARAMETERS RECEIVED ------- ',1);
367: cln_debug_pub.Add('Status received - '||x_return_status,1);
368: cln_debug_pub.Add('Message received - '||x_msg_data,1);
369: cln_debug_pub.Add('Reference ID - '||p_ref_id,1);
370: cln_debug_pub.Add('Sender Component - '||p_sender_component,1);
363:
364: -- Parameters received
365: IF (l_Debug_Level <= 1) THEN
366: cln_debug_pub.Add('----- PARAMETERS RECEIVED ------- ',1);
367: cln_debug_pub.Add('Status received - '||x_return_status,1);
368: cln_debug_pub.Add('Message received - '||x_msg_data,1);
369: cln_debug_pub.Add('Reference ID - '||p_ref_id,1);
370: cln_debug_pub.Add('Sender Component - '||p_sender_component,1);
371: cln_debug_pub.Add('PO Number - '||p_po_number,1);
364: -- Parameters received
365: IF (l_Debug_Level <= 1) THEN
366: cln_debug_pub.Add('----- PARAMETERS RECEIVED ------- ',1);
367: cln_debug_pub.Add('Status received - '||x_return_status,1);
368: cln_debug_pub.Add('Message received - '||x_msg_data,1);
369: cln_debug_pub.Add('Reference ID - '||p_ref_id,1);
370: cln_debug_pub.Add('Sender Component - '||p_sender_component,1);
371: cln_debug_pub.Add('PO Number - '||p_po_number,1);
372: cln_debug_pub.Add('Release Number - '||p_release_number,1);
365: IF (l_Debug_Level <= 1) THEN
366: cln_debug_pub.Add('----- PARAMETERS RECEIVED ------- ',1);
367: cln_debug_pub.Add('Status received - '||x_return_status,1);
368: cln_debug_pub.Add('Message received - '||x_msg_data,1);
369: cln_debug_pub.Add('Reference ID - '||p_ref_id,1);
370: cln_debug_pub.Add('Sender Component - '||p_sender_component,1);
371: cln_debug_pub.Add('PO Number - '||p_po_number,1);
372: cln_debug_pub.Add('Release Number - '||p_release_number,1);
373: cln_debug_pub.Add('Revision Number - '||p_revision_number,1);
366: cln_debug_pub.Add('----- PARAMETERS RECEIVED ------- ',1);
367: cln_debug_pub.Add('Status received - '||x_return_status,1);
368: cln_debug_pub.Add('Message received - '||x_msg_data,1);
369: cln_debug_pub.Add('Reference ID - '||p_ref_id,1);
370: cln_debug_pub.Add('Sender Component - '||p_sender_component,1);
371: cln_debug_pub.Add('PO Number - '||p_po_number,1);
372: cln_debug_pub.Add('Release Number - '||p_release_number,1);
373: cln_debug_pub.Add('Revision Number - '||p_revision_number,1);
374: cln_debug_pub.Add('Ackcode at header level - '||p_ackcode_header,1);
367: cln_debug_pub.Add('Status received - '||x_return_status,1);
368: cln_debug_pub.Add('Message received - '||x_msg_data,1);
369: cln_debug_pub.Add('Reference ID - '||p_ref_id,1);
370: cln_debug_pub.Add('Sender Component - '||p_sender_component,1);
371: cln_debug_pub.Add('PO Number - '||p_po_number,1);
372: cln_debug_pub.Add('Release Number - '||p_release_number,1);
373: cln_debug_pub.Add('Revision Number - '||p_revision_number,1);
374: cln_debug_pub.Add('Ackcode at header level - '||p_ackcode_header,1);
375: cln_debug_pub.Add('Note - '||p_note,1);
368: cln_debug_pub.Add('Message received - '||x_msg_data,1);
369: cln_debug_pub.Add('Reference ID - '||p_ref_id,1);
370: cln_debug_pub.Add('Sender Component - '||p_sender_component,1);
371: cln_debug_pub.Add('PO Number - '||p_po_number,1);
372: cln_debug_pub.Add('Release Number - '||p_release_number,1);
373: cln_debug_pub.Add('Revision Number - '||p_revision_number,1);
374: cln_debug_pub.Add('Ackcode at header level - '||p_ackcode_header,1);
375: cln_debug_pub.Add('Note - '||p_note,1);
376: cln_debug_pub.Add('CLN reqd - '||x_cln_required,1);
369: cln_debug_pub.Add('Reference ID - '||p_ref_id,1);
370: cln_debug_pub.Add('Sender Component - '||p_sender_component,1);
371: cln_debug_pub.Add('PO Number - '||p_po_number,1);
372: cln_debug_pub.Add('Release Number - '||p_release_number,1);
373: cln_debug_pub.Add('Revision Number - '||p_revision_number,1);
374: cln_debug_pub.Add('Ackcode at header level - '||p_ackcode_header,1);
375: cln_debug_pub.Add('Note - '||p_note,1);
376: cln_debug_pub.Add('CLN reqd - '||x_cln_required,1);
377: cln_debug_pub.Add('p_tp_header_id - '|| p_tp_header_id, 1);
370: cln_debug_pub.Add('Sender Component - '||p_sender_component,1);
371: cln_debug_pub.Add('PO Number - '||p_po_number,1);
372: cln_debug_pub.Add('Release Number - '||p_release_number,1);
373: cln_debug_pub.Add('Revision Number - '||p_revision_number,1);
374: cln_debug_pub.Add('Ackcode at header level - '||p_ackcode_header,1);
375: cln_debug_pub.Add('Note - '||p_note,1);
376: cln_debug_pub.Add('CLN reqd - '||x_cln_required,1);
377: cln_debug_pub.Add('p_tp_header_id - '|| p_tp_header_id, 1);
378: cln_debug_pub.Add('Requestor - '||p_requestor,1);
371: cln_debug_pub.Add('PO Number - '||p_po_number,1);
372: cln_debug_pub.Add('Release Number - '||p_release_number,1);
373: cln_debug_pub.Add('Revision Number - '||p_revision_number,1);
374: cln_debug_pub.Add('Ackcode at header level - '||p_ackcode_header,1);
375: cln_debug_pub.Add('Note - '||p_note,1);
376: cln_debug_pub.Add('CLN reqd - '||x_cln_required,1);
377: cln_debug_pub.Add('p_tp_header_id - '|| p_tp_header_id, 1);
378: cln_debug_pub.Add('Requestor - '||p_requestor,1);
379: cln_debug_pub.Add('Internal Ctrl Number - '||p_int_cont_num,1);
372: cln_debug_pub.Add('Release Number - '||p_release_number,1);
373: cln_debug_pub.Add('Revision Number - '||p_revision_number,1);
374: cln_debug_pub.Add('Ackcode at header level - '||p_ackcode_header,1);
375: cln_debug_pub.Add('Note - '||p_note,1);
376: cln_debug_pub.Add('CLN reqd - '||x_cln_required,1);
377: cln_debug_pub.Add('p_tp_header_id - '|| p_tp_header_id, 1);
378: cln_debug_pub.Add('Requestor - '||p_requestor,1);
379: cln_debug_pub.Add('Internal Ctrl Number - '||p_int_cont_num,1);
380: cln_debug_pub.Add('Request Origin - '||p_request_origin,1);
373: cln_debug_pub.Add('Revision Number - '||p_revision_number,1);
374: cln_debug_pub.Add('Ackcode at header level - '||p_ackcode_header,1);
375: cln_debug_pub.Add('Note - '||p_note,1);
376: cln_debug_pub.Add('CLN reqd - '||x_cln_required,1);
377: cln_debug_pub.Add('p_tp_header_id - '|| p_tp_header_id, 1);
378: cln_debug_pub.Add('Requestor - '||p_requestor,1);
379: cln_debug_pub.Add('Internal Ctrl Number - '||p_int_cont_num,1);
380: cln_debug_pub.Add('Request Origin - '||p_request_origin,1);
381: cln_debug_pub.Add('----------------------------------',1);
374: cln_debug_pub.Add('Ackcode at header level - '||p_ackcode_header,1);
375: cln_debug_pub.Add('Note - '||p_note,1);
376: cln_debug_pub.Add('CLN reqd - '||x_cln_required,1);
377: cln_debug_pub.Add('p_tp_header_id - '|| p_tp_header_id, 1);
378: cln_debug_pub.Add('Requestor - '||p_requestor,1);
379: cln_debug_pub.Add('Internal Ctrl Number - '||p_int_cont_num,1);
380: cln_debug_pub.Add('Request Origin - '||p_request_origin,1);
381: cln_debug_pub.Add('----------------------------------',1);
382: END IF;
375: cln_debug_pub.Add('Note - '||p_note,1);
376: cln_debug_pub.Add('CLN reqd - '||x_cln_required,1);
377: cln_debug_pub.Add('p_tp_header_id - '|| p_tp_header_id, 1);
378: cln_debug_pub.Add('Requestor - '||p_requestor,1);
379: cln_debug_pub.Add('Internal Ctrl Number - '||p_int_cont_num,1);
380: cln_debug_pub.Add('Request Origin - '||p_request_origin,1);
381: cln_debug_pub.Add('----------------------------------',1);
382: END IF;
383:
376: cln_debug_pub.Add('CLN reqd - '||x_cln_required,1);
377: cln_debug_pub.Add('p_tp_header_id - '|| p_tp_header_id, 1);
378: cln_debug_pub.Add('Requestor - '||p_requestor,1);
379: cln_debug_pub.Add('Internal Ctrl Number - '||p_int_cont_num,1);
380: cln_debug_pub.Add('Request Origin - '||p_request_origin,1);
381: cln_debug_pub.Add('----------------------------------',1);
382: END IF;
383:
384: l_line_num_tab.delete;-- Initialize array of PO lines
377: cln_debug_pub.Add('p_tp_header_id - '|| p_tp_header_id, 1);
378: cln_debug_pub.Add('Requestor - '||p_requestor,1);
379: cln_debug_pub.Add('Internal Ctrl Number - '||p_int_cont_num,1);
380: cln_debug_pub.Add('Request Origin - '||p_request_origin,1);
381: cln_debug_pub.Add('----------------------------------',1);
382: END IF;
383:
384: l_line_num_tab.delete;-- Initialize array of PO lines
385:
412: END IF;
413:
414: IF (x_cln_required <>'TRUE')THEN
415: IF (l_Debug_Level <= 1) THEN
416: cln_debug_pub.Add('CLN history need not be updated',1);
417: cln_debug_pub.Add('Defaulting Collaboration Type to ACKNOWLEDGE_PO',1);
418: END IF;
419: x_collaboration_type := 'ACKNOWLEDGE_PO';
420: END IF;
413:
414: IF (x_cln_required <>'TRUE')THEN
415: IF (l_Debug_Level <= 1) THEN
416: cln_debug_pub.Add('CLN history need not be updated',1);
417: cln_debug_pub.Add('Defaulting Collaboration Type to ACKNOWLEDGE_PO',1);
418: END IF;
419: x_collaboration_type := 'ACKNOWLEDGE_PO';
420: END IF;
421: -- Getting Collaboration ID for the Application Refernce ID
421: -- Getting Collaboration ID for the Application Refernce ID
422: IF (x_cln_required = 'TRUE')THEN
423: IF p_ref_id IS NULL THEN
424: IF (l_Debug_Level <= 1) THEN
425: cln_debug_pub.Add('Application Reference ID is null',1);
426: END IF;
427: FND_MESSAGE.SET_NAME('CLN','CLN_CH_PARAM_NULL');
428: FND_MESSAGE.SET_TOKEN('PARAM','Application reference ID');
429: x_coll_id := null;
432: RAISE FND_API.G_EXC_ERROR;
433: END IF;
434:
435: IF (l_Debug_Level <= 1) THEN
436: cln_debug_pub.Add('Application Reference ID is not null',1);
437: END IF;
438:
439: BEGIN
440: SELECT COLLABORATION_ID,COLLABORATION_TYPE
451: l_msg_data :='Collaboration Not Found For Application reference ID :'||p_ref_id;
452: RAISE FND_API.G_EXC_ERROR;
453: END;
454: IF (l_Debug_Level <= 1) THEN
455: cln_debug_pub.Add('Collaboration ID retrieved as : '||x_coll_id,1);
456: cln_debug_pub.Add('Collaboration Type retrieved as : '||x_collaboration_type,1);
457: END IF;
458: END IF;
459:
452: RAISE FND_API.G_EXC_ERROR;
453: END;
454: IF (l_Debug_Level <= 1) THEN
455: cln_debug_pub.Add('Collaboration ID retrieved as : '||x_coll_id,1);
456: cln_debug_pub.Add('Collaboration Type retrieved as : '||x_collaboration_type,1);
457: END IF;
458: END IF;
459:
460:
458: END IF;
459:
460:
461: IF (l_Debug_Level <= 1) THEN
462: cln_debug_pub.Add('Getting Trading partner details using TP_HEADER_ID',1);
463: END IF;
464:
465: BEGIN
466: SELECT PARTY_ID, PARTY_SITE_ID
469: WHERE TP_HEADER_ID = p_tp_header_id;
470: EXCEPTION
471: WHEN NO_DATA_FOUND THEN
472: IF (l_Debug_Level <= 2) THEN
473: cln_debug_pub.Add('TP details not found for the TP Header ID = '||p_tp_header_id,2);
474: END IF;
475: END;
476:
477: IF (l_Debug_Level <= 2) THEN
474: END IF;
475: END;
476:
477: IF (l_Debug_Level <= 2) THEN
478: cln_debug_pub.Add('Trading Partner ID - '||l_tp_id,1);
479: cln_debug_pub.Add('Trading Partner Site ID - '||l_tp_site_id,1);
480: END IF;
481:
482: p_tp_id := l_tp_id;
475: END;
476:
477: IF (l_Debug_Level <= 2) THEN
478: cln_debug_pub.Add('Trading Partner ID - '||l_tp_id,1);
479: cln_debug_pub.Add('Trading Partner Site ID - '||l_tp_site_id,1);
480: END IF;
481:
482: p_tp_id := l_tp_id;
483: p_tp_site_id := l_tp_site_id;
484:
485: IF (x_collaboration_type = 'CANCEL_ORDER' OR x_collaboration_type = 'SUPP_CHANGE_ORDER') THEN
486: l_call_po_apis := 'NO';
487: IF (l_Debug_Level <= 2) THEN
488: cln_debug_pub.Add('PO APIs should not be called....',1);
489: END IF;
490: END IF;
491:
492:
491:
492:
493: IF (l_call_po_apis = 'YES') THEN
494: IF (l_Debug_Level <= 2) THEN
495: cln_debug_pub.Add('--- Calling PO_CHG_REQUEST_GRP.initialize_chn_ack_inbound ----- ',1);
496: END IF;
497: PO_CHG_REQUEST_GRP.initialize_chn_ack_inbound (
498: p_requestor => p_requestor,
499: p_int_cont_num => p_int_cont_num,
503: x_error_id => l_error_id,
504: x_error_status => l_error_status);
505:
506: IF (l_Debug_Level <= 2) THEN
507: cln_debug_pub.Add('ERROR ID : ' || l_error_id,1);
508: cln_debug_pub.Add('ERROR STATUS : ' || l_error_status,1);
509: END IF;
510:
511: -- If initialize_chn_ack_inbound errored out
504: x_error_status => l_error_status);
505:
506: IF (l_Debug_Level <= 2) THEN
507: cln_debug_pub.Add('ERROR ID : ' || l_error_id,1);
508: cln_debug_pub.Add('ERROR STATUS : ' || l_error_status,1);
509: END IF;
510:
511: -- If initialize_chn_ack_inbound errored out
512: IF l_error_id IS NOT NULL AND l_error_id <> 0 THEN
514: l_msg_data := l_error_status;
515: RAISE FND_API.G_EXC_ERROR;
516: END IF;
517: IF (l_Debug_Level <= 2) THEN
518: cln_debug_pub.Add('PO_CHG_REQUEST_GRP.initialize_chn_ack_inbound returned Success',1);
519: END IF;
520: END IF;
521:
522: l_action := x_collaboration_type;
532: END IF;
533:
534: SELECT meaning INTO l_action FROM fnd_lookups
535: WHERE lookup_code = x_collaboration_type AND lookup_type = 'CLN_COLLABORATION_TYPE';
536: cln_debug_pub.Add('Collaboration Type found as - '||l_action,1);
537:
538: EXCEPTION
539: WHEN NO_DATA_FOUND THEN
540: l_msg_data := 'Collaboration Type not found for the lookup_code as ORDER and lookup_type as CLN_COLLABORATION_TYPE ';
548: l_action := 'Acknowledge PO';
549: END IF;
550:
551: IF (l_Debug_Level <= 2) THEN
552: cln_debug_pub.Add('Action is set as : '||l_action,1);
553: cln_debug_pub.Add('Return status is : '||x_return_status,1);
554: END IF;
555:
556: -- get the sequence number for Transaction id.
549: END IF;
550:
551: IF (l_Debug_Level <= 2) THEN
552: cln_debug_pub.Add('Action is set as : '||l_action,1);
553: cln_debug_pub.Add('Return status is : '||x_return_status,1);
554: END IF;
555:
556: -- get the sequence number for Transaction id.
557: select cln_generic_s.NEXTVAL INTO l_txn_id FROM DUAL;
555:
556: -- get the sequence number for Transaction id.
557: select cln_generic_s.NEXTVAL INTO l_txn_id FROM DUAL;
558: IF (l_Debug_Level <= 2) THEN
559: cln_debug_pub.Add('Transaction ID :' || l_txn_id, 1);
560: END IF;
561:
562: -- Find the Request Type
563: IF p_ackcode_header = 1 THEN
565: ELSE
566: l_request_type := 'ACKNOWLEDGE';
567: END IF;
568: IF (l_Debug_Level <= 2) THEN
569: cln_debug_pub.Add('PO Request Type is : ' || l_request_type,1);
570: END IF;
571:
572: -- Identify PO Type based on release number
573: l_po_type := 'STANDARD';
575: IF (p_release_number IS NOT NULL AND p_release_number > 0) THEN
576: l_po_type := 'RELEASE';
577: END IF;
578: IF (l_Debug_Level <= 2) THEN
579: cln_debug_pub.Add('PO Type is : ' || l_po_type,1);
580: cln_debug_pub.Add('--- Calling PO_CHG_REQUEST_GRP.validate_header ----- ',1);
581: END IF;
582:
583:
576: l_po_type := 'RELEASE';
577: END IF;
578: IF (l_Debug_Level <= 2) THEN
579: cln_debug_pub.Add('PO Type is : ' || l_po_type,1);
580: cln_debug_pub.Add('--- Calling PO_CHG_REQUEST_GRP.validate_header ----- ',1);
581: END IF;
582:
583:
584: IF (l_call_po_apis = 'YES') THEN
600: x_error_id_out => l_error_id,
601: x_error_status_out => l_error_status);
602:
603: IF (l_Debug_Level <= 2) THEN
604: cln_debug_pub.Add('ERROR ID : ' || l_error_id,1);
605: cln_debug_pub.Add('ERROR STATUS : ' || l_error_status,1);
606: END IF;
607:
608: -- If validate header errored out
601: x_error_status_out => l_error_status);
602:
603: IF (l_Debug_Level <= 2) THEN
604: cln_debug_pub.Add('ERROR ID : ' || l_error_id,1);
605: cln_debug_pub.Add('ERROR STATUS : ' || l_error_status,1);
606: END IF;
607:
608: -- If validate header errored out
609: IF l_error_id IS NOT NULL AND l_error_id <> 0 THEN
611: l_msg_data := l_error_status;
612: RAISE FND_API.G_EXC_ERROR;
613: END IF;
614: IF (l_Debug_Level <= 2) THEN
615: cln_debug_pub.Add('PO_CHG_REQUEST_GRP.validate_header returned Success',1);
616: END IF;
617: END IF;
618:
619: IF (l_call_po_apis = 'YES') THEN -- should not be called for 3A9 and 3A8 Response
618:
619: IF (l_call_po_apis = 'YES') THEN -- should not be called for 3A9 and 3A8 Response
620: IF (l_request_type = 'ACKNOWLEDGE') THEN
621: IF (l_Debug_Level <= 2) THEN
622: cln_debug_pub.Add('--- Calling PO_CHG_REQUEST_GRP.acknowledge_po ----- ',1);
623: END IF;
624: IF p_ackcode_header = 3 THEN --If pending treat it as accept
625: l_po_ackcode := 0;
626: ELSE
642: x_error_status => l_error_status -- Error message
643: );
644:
645: IF (l_Debug_Level <= 2) THEN
646: cln_debug_pub.Add('ERROR ID : ' || l_error_id,1);
647: cln_debug_pub.Add('ERROR STATUS : ' || l_error_status,1);
648: END IF;
649:
650: IF l_error_id IS NOT NULL AND l_error_id <> 0 THEN
643: );
644:
645: IF (l_Debug_Level <= 2) THEN
646: cln_debug_pub.Add('ERROR ID : ' || l_error_id,1);
647: cln_debug_pub.Add('ERROR STATUS : ' || l_error_status,1);
648: END IF;
649:
650: IF l_error_id IS NOT NULL AND l_error_id <> 0 THEN
651: x_msg_data := l_error_status;
668: x_return_status_tp := '00';
669: x_call_po_apis := l_call_po_apis;
670:
671: IF (l_Debug_Level <= 2) THEN
672: cln_debug_pub.Add('Notification Code set as :'||x_notification_code,1);
673: cln_debug_pub.Add('Notification Status set as :'||x_notification_status,1);
674: cln_debug_pub.Add('Return Status set as :'||x_notification_code,1);
675: END IF;
676:
669: x_call_po_apis := l_call_po_apis;
670:
671: IF (l_Debug_Level <= 2) THEN
672: cln_debug_pub.Add('Notification Code set as :'||x_notification_code,1);
673: cln_debug_pub.Add('Notification Status set as :'||x_notification_status,1);
674: cln_debug_pub.Add('Return Status set as :'||x_notification_code,1);
675: END IF;
676:
677: IF (l_Debug_Level <= 2) THEN
670:
671: IF (l_Debug_Level <= 2) THEN
672: cln_debug_pub.Add('Notification Code set as :'||x_notification_code,1);
673: cln_debug_pub.Add('Notification Status set as :'||x_notification_status,1);
674: cln_debug_pub.Add('Return Status set as :'||x_notification_code,1);
675: END IF;
676:
677: IF (l_Debug_Level <= 2) THEN
678: cln_debug_pub.Add('---- Exiting PROCESS_HEADER API ----- ', 2);
674: cln_debug_pub.Add('Return Status set as :'||x_notification_code,1);
675: END IF;
676:
677: IF (l_Debug_Level <= 2) THEN
678: cln_debug_pub.Add('---- Exiting PROCESS_HEADER API ----- ', 2);
679: END IF;
680:
681: -- Exception Handling
682: EXCEPTION
691: x_msg_data := FND_MESSAGE.GET;
692: x_call_po_apis := 'NO';
693:
694: IF (l_Debug_Level <= 5) THEN
695: cln_debug_pub.Add(l_msg_data,4);
696: cln_debug_pub.Add('---- ERROR :Exiting PROCESS_HEADER API ----- ', 2);
697: END IF;
698:
699:
692: x_call_po_apis := 'NO';
693:
694: IF (l_Debug_Level <= 5) THEN
695: cln_debug_pub.Add(l_msg_data,4);
696: cln_debug_pub.Add('---- ERROR :Exiting PROCESS_HEADER API ----- ', 2);
697: END IF;
698:
699:
700: WHEN OTHERS THEN
714: FND_MESSAGE.SET_TOKEN('MSG',x_msg_data);
715: x_msg_data := FND_MESSAGE.GET;
716: l_msg_data :='Unexpected Error -'||l_error_code||' : '||l_error_msg;
717: IF (l_Debug_Level <= 5) THEN
718: cln_debug_pub.Add(l_msg_data,6);
719: cln_debug_pub.Add('---- ERROR :Exiting PROCESS_HEADER API ----- ', 2);
720: END IF;
721:
722: END PROCESS_HEADER;
715: x_msg_data := FND_MESSAGE.GET;
716: l_msg_data :='Unexpected Error -'||l_error_code||' : '||l_error_msg;
717: IF (l_Debug_Level <= 5) THEN
718: cln_debug_pub.Add(l_msg_data,6);
719: cln_debug_pub.Add('---- ERROR :Exiting PROCESS_HEADER API ----- ', 2);
720: END IF;
721:
722: END PROCESS_HEADER;
723:
793:
794: BEGIN
795:
796: -- Sets the debug mode to be FILE
797: --l_debug_mode := cln_debug_pub.Set_Debug_Mode('FILE');
798:
799: IF (l_Debug_Level <= 2) THEN
800: cln_debug_pub.Add('----- Entering PROCESS_HEADER_LINES API ------- ',2);
801: END IF;
796: -- Sets the debug mode to be FILE
797: --l_debug_mode := cln_debug_pub.Set_Debug_Mode('FILE');
798:
799: IF (l_Debug_Level <= 2) THEN
800: cln_debug_pub.Add('----- Entering PROCESS_HEADER_LINES API ------- ',2);
801: END IF;
802:
803: l_msg_txt_lines := p_msg_txt_lines;
804:
815: l_msg_data := 'ACKPO successfully consumed for PO : '||p_po_number||' with Line : '||p_line_number;
816:
817: -- Parameters received
818: IF (l_Debug_Level <= 1) THEN
819: cln_debug_pub.Add('----- PARAMETERS RECEIVED ------- ',1);
820: cln_debug_pub.Add('Status received - '||x_return_status,1);
821: cln_debug_pub.Add('Message received - '||x_msg_data,1);
822: cln_debug_pub.Add('PO Number - '||p_po_number,1);
823: cln_debug_pub.Add('Release Number - '||p_release_number,1);
816:
817: -- Parameters received
818: IF (l_Debug_Level <= 1) THEN
819: cln_debug_pub.Add('----- PARAMETERS RECEIVED ------- ',1);
820: cln_debug_pub.Add('Status received - '||x_return_status,1);
821: cln_debug_pub.Add('Message received - '||x_msg_data,1);
822: cln_debug_pub.Add('PO Number - '||p_po_number,1);
823: cln_debug_pub.Add('Release Number - '||p_release_number,1);
824: cln_debug_pub.Add('Revision Number - '||p_revision_number,1);
817: -- Parameters received
818: IF (l_Debug_Level <= 1) THEN
819: cln_debug_pub.Add('----- PARAMETERS RECEIVED ------- ',1);
820: cln_debug_pub.Add('Status received - '||x_return_status,1);
821: cln_debug_pub.Add('Message received - '||x_msg_data,1);
822: cln_debug_pub.Add('PO Number - '||p_po_number,1);
823: cln_debug_pub.Add('Release Number - '||p_release_number,1);
824: cln_debug_pub.Add('Revision Number - '||p_revision_number,1);
825: cln_debug_pub.Add('Previous Line Number - '||p_previous_line_number,1);
818: IF (l_Debug_Level <= 1) THEN
819: cln_debug_pub.Add('----- PARAMETERS RECEIVED ------- ',1);
820: cln_debug_pub.Add('Status received - '||x_return_status,1);
821: cln_debug_pub.Add('Message received - '||x_msg_data,1);
822: cln_debug_pub.Add('PO Number - '||p_po_number,1);
823: cln_debug_pub.Add('Release Number - '||p_release_number,1);
824: cln_debug_pub.Add('Revision Number - '||p_revision_number,1);
825: cln_debug_pub.Add('Previous Line Number - '||p_previous_line_number,1);
826: cln_debug_pub.Add('Line Number - '||p_line_number,1);
819: cln_debug_pub.Add('----- PARAMETERS RECEIVED ------- ',1);
820: cln_debug_pub.Add('Status received - '||x_return_status,1);
821: cln_debug_pub.Add('Message received - '||x_msg_data,1);
822: cln_debug_pub.Add('PO Number - '||p_po_number,1);
823: cln_debug_pub.Add('Release Number - '||p_release_number,1);
824: cln_debug_pub.Add('Revision Number - '||p_revision_number,1);
825: cln_debug_pub.Add('Previous Line Number - '||p_previous_line_number,1);
826: cln_debug_pub.Add('Line Number - '||p_line_number,1);
827: cln_debug_pub.Add('Shipment Number - '||p_shipment_number,1);
820: cln_debug_pub.Add('Status received - '||x_return_status,1);
821: cln_debug_pub.Add('Message received - '||x_msg_data,1);
822: cln_debug_pub.Add('PO Number - '||p_po_number,1);
823: cln_debug_pub.Add('Release Number - '||p_release_number,1);
824: cln_debug_pub.Add('Revision Number - '||p_revision_number,1);
825: cln_debug_pub.Add('Previous Line Number - '||p_previous_line_number,1);
826: cln_debug_pub.Add('Line Number - '||p_line_number,1);
827: cln_debug_pub.Add('Shipment Number - '||p_shipment_number,1);
828: cln_debug_pub.Add('New Quantity - '||p_new_quantity,1);
821: cln_debug_pub.Add('Message received - '||x_msg_data,1);
822: cln_debug_pub.Add('PO Number - '||p_po_number,1);
823: cln_debug_pub.Add('Release Number - '||p_release_number,1);
824: cln_debug_pub.Add('Revision Number - '||p_revision_number,1);
825: cln_debug_pub.Add('Previous Line Number - '||p_previous_line_number,1);
826: cln_debug_pub.Add('Line Number - '||p_line_number,1);
827: cln_debug_pub.Add('Shipment Number - '||p_shipment_number,1);
828: cln_debug_pub.Add('New Quantity - '||p_new_quantity,1);
829: cln_debug_pub.Add('New Price - '||p_new_price,1);
822: cln_debug_pub.Add('PO Number - '||p_po_number,1);
823: cln_debug_pub.Add('Release Number - '||p_release_number,1);
824: cln_debug_pub.Add('Revision Number - '||p_revision_number,1);
825: cln_debug_pub.Add('Previous Line Number - '||p_previous_line_number,1);
826: cln_debug_pub.Add('Line Number - '||p_line_number,1);
827: cln_debug_pub.Add('Shipment Number - '||p_shipment_number,1);
828: cln_debug_pub.Add('New Quantity - '||p_new_quantity,1);
829: cln_debug_pub.Add('New Price - '||p_new_price,1);
830: cln_debug_pub.Add('Promised Date - '||p_new_promised_date,1);
823: cln_debug_pub.Add('Release Number - '||p_release_number,1);
824: cln_debug_pub.Add('Revision Number - '||p_revision_number,1);
825: cln_debug_pub.Add('Previous Line Number - '||p_previous_line_number,1);
826: cln_debug_pub.Add('Line Number - '||p_line_number,1);
827: cln_debug_pub.Add('Shipment Number - '||p_shipment_number,1);
828: cln_debug_pub.Add('New Quantity - '||p_new_quantity,1);
829: cln_debug_pub.Add('New Price - '||p_new_price,1);
830: cln_debug_pub.Add('Promised Date - '||p_new_promised_date,1);
831: cln_debug_pub.Add('Ackcode at header level - '||p_ackcode_header,1);
824: cln_debug_pub.Add('Revision Number - '||p_revision_number,1);
825: cln_debug_pub.Add('Previous Line Number - '||p_previous_line_number,1);
826: cln_debug_pub.Add('Line Number - '||p_line_number,1);
827: cln_debug_pub.Add('Shipment Number - '||p_shipment_number,1);
828: cln_debug_pub.Add('New Quantity - '||p_new_quantity,1);
829: cln_debug_pub.Add('New Price - '||p_new_price,1);
830: cln_debug_pub.Add('Promised Date - '||p_new_promised_date,1);
831: cln_debug_pub.Add('Ackcode at header level - '||p_ackcode_header,1);
832: cln_debug_pub.Add('Ackcode at line level - '||p_ackcode_line,1);
825: cln_debug_pub.Add('Previous Line Number - '||p_previous_line_number,1);
826: cln_debug_pub.Add('Line Number - '||p_line_number,1);
827: cln_debug_pub.Add('Shipment Number - '||p_shipment_number,1);
828: cln_debug_pub.Add('New Quantity - '||p_new_quantity,1);
829: cln_debug_pub.Add('New Price - '||p_new_price,1);
830: cln_debug_pub.Add('Promised Date - '||p_new_promised_date,1);
831: cln_debug_pub.Add('Ackcode at header level - '||p_ackcode_header,1);
832: cln_debug_pub.Add('Ackcode at line level - '||p_ackcode_line,1);
833: cln_debug_pub.Add('Collaboration Type - '||p_collaboration_type,1);
826: cln_debug_pub.Add('Line Number - '||p_line_number,1);
827: cln_debug_pub.Add('Shipment Number - '||p_shipment_number,1);
828: cln_debug_pub.Add('New Quantity - '||p_new_quantity,1);
829: cln_debug_pub.Add('New Price - '||p_new_price,1);
830: cln_debug_pub.Add('Promised Date - '||p_new_promised_date,1);
831: cln_debug_pub.Add('Ackcode at header level - '||p_ackcode_header,1);
832: cln_debug_pub.Add('Ackcode at line level - '||p_ackcode_line,1);
833: cln_debug_pub.Add('Collaboration Type - '||p_collaboration_type,1);
834: cln_debug_pub.Add('Originator Reference - '||p_org_ref,1);
827: cln_debug_pub.Add('Shipment Number - '||p_shipment_number,1);
828: cln_debug_pub.Add('New Quantity - '||p_new_quantity,1);
829: cln_debug_pub.Add('New Price - '||p_new_price,1);
830: cln_debug_pub.Add('Promised Date - '||p_new_promised_date,1);
831: cln_debug_pub.Add('Ackcode at header level - '||p_ackcode_header,1);
832: cln_debug_pub.Add('Ackcode at line level - '||p_ackcode_line,1);
833: cln_debug_pub.Add('Collaboration Type - '||p_collaboration_type,1);
834: cln_debug_pub.Add('Originator Reference - '||p_org_ref,1);
835: cln_debug_pub.Add('Collaboration ID - '||p_coll_id,1);
828: cln_debug_pub.Add('New Quantity - '||p_new_quantity,1);
829: cln_debug_pub.Add('New Price - '||p_new_price,1);
830: cln_debug_pub.Add('Promised Date - '||p_new_promised_date,1);
831: cln_debug_pub.Add('Ackcode at header level - '||p_ackcode_header,1);
832: cln_debug_pub.Add('Ackcode at line level - '||p_ackcode_line,1);
833: cln_debug_pub.Add('Collaboration Type - '||p_collaboration_type,1);
834: cln_debug_pub.Add('Originator Reference - '||p_org_ref,1);
835: cln_debug_pub.Add('Collaboration ID - '||p_coll_id,1);
836: cln_debug_pub.Add('Detail Header Message - '||p_msg_dtl_screen,1);
829: cln_debug_pub.Add('New Price - '||p_new_price,1);
830: cln_debug_pub.Add('Promised Date - '||p_new_promised_date,1);
831: cln_debug_pub.Add('Ackcode at header level - '||p_ackcode_header,1);
832: cln_debug_pub.Add('Ackcode at line level - '||p_ackcode_line,1);
833: cln_debug_pub.Add('Collaboration Type - '||p_collaboration_type,1);
834: cln_debug_pub.Add('Originator Reference - '||p_org_ref,1);
835: cln_debug_pub.Add('Collaboration ID - '||p_coll_id,1);
836: cln_debug_pub.Add('Detail Header Message - '||p_msg_dtl_screen,1);
837: cln_debug_pub.Add('Detail Line Message - '||p_msg_txt_lines,1);
830: cln_debug_pub.Add('Promised Date - '||p_new_promised_date,1);
831: cln_debug_pub.Add('Ackcode at header level - '||p_ackcode_header,1);
832: cln_debug_pub.Add('Ackcode at line level - '||p_ackcode_line,1);
833: cln_debug_pub.Add('Collaboration Type - '||p_collaboration_type,1);
834: cln_debug_pub.Add('Originator Reference - '||p_org_ref,1);
835: cln_debug_pub.Add('Collaboration ID - '||p_coll_id,1);
836: cln_debug_pub.Add('Detail Header Message - '||p_msg_dtl_screen,1);
837: cln_debug_pub.Add('Detail Line Message - '||p_msg_txt_lines,1);
838: cln_debug_pub.Add('Internal Control Number - '||p_internal_control_number,1);
831: cln_debug_pub.Add('Ackcode at header level - '||p_ackcode_header,1);
832: cln_debug_pub.Add('Ackcode at line level - '||p_ackcode_line,1);
833: cln_debug_pub.Add('Collaboration Type - '||p_collaboration_type,1);
834: cln_debug_pub.Add('Originator Reference - '||p_org_ref,1);
835: cln_debug_pub.Add('Collaboration ID - '||p_coll_id,1);
836: cln_debug_pub.Add('Detail Header Message - '||p_msg_dtl_screen,1);
837: cln_debug_pub.Add('Detail Line Message - '||p_msg_txt_lines,1);
838: cln_debug_pub.Add('Internal Control Number - '||p_internal_control_number,1);
839: cln_debug_pub.Add('Collaboration Updated - '||p_if_collaboration_updated,1);
832: cln_debug_pub.Add('Ackcode at line level - '||p_ackcode_line,1);
833: cln_debug_pub.Add('Collaboration Type - '||p_collaboration_type,1);
834: cln_debug_pub.Add('Originator Reference - '||p_org_ref,1);
835: cln_debug_pub.Add('Collaboration ID - '||p_coll_id,1);
836: cln_debug_pub.Add('Detail Header Message - '||p_msg_dtl_screen,1);
837: cln_debug_pub.Add('Detail Line Message - '||p_msg_txt_lines,1);
838: cln_debug_pub.Add('Internal Control Number - '||p_internal_control_number,1);
839: cln_debug_pub.Add('Collaboration Updated - '||p_if_collaboration_updated,1);
840: cln_debug_pub.Add('Disposition - '||l_disposition,1);
833: cln_debug_pub.Add('Collaboration Type - '||p_collaboration_type,1);
834: cln_debug_pub.Add('Originator Reference - '||p_org_ref,1);
835: cln_debug_pub.Add('Collaboration ID - '||p_coll_id,1);
836: cln_debug_pub.Add('Detail Header Message - '||p_msg_dtl_screen,1);
837: cln_debug_pub.Add('Detail Line Message - '||p_msg_txt_lines,1);
838: cln_debug_pub.Add('Internal Control Number - '||p_internal_control_number,1);
839: cln_debug_pub.Add('Collaboration Updated - '||p_if_collaboration_updated,1);
840: cln_debug_pub.Add('Disposition - '||l_disposition,1);
841: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
834: cln_debug_pub.Add('Originator Reference - '||p_org_ref,1);
835: cln_debug_pub.Add('Collaboration ID - '||p_coll_id,1);
836: cln_debug_pub.Add('Detail Header Message - '||p_msg_dtl_screen,1);
837: cln_debug_pub.Add('Detail Line Message - '||p_msg_txt_lines,1);
838: cln_debug_pub.Add('Internal Control Number - '||p_internal_control_number,1);
839: cln_debug_pub.Add('Collaboration Updated - '||p_if_collaboration_updated,1);
840: cln_debug_pub.Add('Disposition - '||l_disposition,1);
841: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
842: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
835: cln_debug_pub.Add('Collaboration ID - '||p_coll_id,1);
836: cln_debug_pub.Add('Detail Header Message - '||p_msg_dtl_screen,1);
837: cln_debug_pub.Add('Detail Line Message - '||p_msg_txt_lines,1);
838: cln_debug_pub.Add('Internal Control Number - '||p_internal_control_number,1);
839: cln_debug_pub.Add('Collaboration Updated - '||p_if_collaboration_updated,1);
840: cln_debug_pub.Add('Disposition - '||l_disposition,1);
841: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
842: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
843: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
836: cln_debug_pub.Add('Detail Header Message - '||p_msg_dtl_screen,1);
837: cln_debug_pub.Add('Detail Line Message - '||p_msg_txt_lines,1);
838: cln_debug_pub.Add('Internal Control Number - '||p_internal_control_number,1);
839: cln_debug_pub.Add('Collaboration Updated - '||p_if_collaboration_updated,1);
840: cln_debug_pub.Add('Disposition - '||l_disposition,1);
841: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
842: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
843: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
844: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
837: cln_debug_pub.Add('Detail Line Message - '||p_msg_txt_lines,1);
838: cln_debug_pub.Add('Internal Control Number - '||p_internal_control_number,1);
839: cln_debug_pub.Add('Collaboration Updated - '||p_if_collaboration_updated,1);
840: cln_debug_pub.Add('Disposition - '||l_disposition,1);
841: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
842: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
843: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
844: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
845: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
838: cln_debug_pub.Add('Internal Control Number - '||p_internal_control_number,1);
839: cln_debug_pub.Add('Collaboration Updated - '||p_if_collaboration_updated,1);
840: cln_debug_pub.Add('Disposition - '||l_disposition,1);
841: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
842: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
843: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
844: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
845: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
846: cln_debug_pub.Add('----------------------------------',1);
839: cln_debug_pub.Add('Collaboration Updated - '||p_if_collaboration_updated,1);
840: cln_debug_pub.Add('Disposition - '||l_disposition,1);
841: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
842: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
843: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
844: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
845: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
846: cln_debug_pub.Add('----------------------------------',1);
847: END IF;
840: cln_debug_pub.Add('Disposition - '||l_disposition,1);
841: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
842: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
843: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
844: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
845: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
846: cln_debug_pub.Add('----------------------------------',1);
847: END IF;
848:
841: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
842: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
843: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
844: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
845: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
846: cln_debug_pub.Add('----------------------------------',1);
847: END IF;
848:
849: -- get the sequence number for Transaction id.
842: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
843: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
844: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
845: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
846: cln_debug_pub.Add('----------------------------------',1);
847: END IF;
848:
849: -- get the sequence number for Transaction id.
850: select cln_generic_s.NEXTVAL INTO l_txn_id FROM DUAL;
848:
849: -- get the sequence number for Transaction id.
850: select cln_generic_s.NEXTVAL INTO l_txn_id FROM DUAL;
851: IF (l_Debug_Level <= 1) THEN
852: cln_debug_pub.Add('Transaction ID:' || l_txn_id, 1);
853: END IF;
854:
855: -- Identify PO Type based on release number
856:
858:
859: IF (p_release_number IS NOT NULL AND p_release_number > 0) THEN
860: l_po_type := 'RELEASE';
861: END IF;
862: cln_debug_pub.Add('PO Type is : ' || l_po_type,1);
863:
864:
865: IF((p_ackcode_header = 1 and p_ackcode_line = 1) AND ((p_collaboration_type = 'ORDER') or (p_collaboration_type = 'ACKNOWLEDGE_PO'))) THEN
866: IF l_po_type = 'RELEASE' THEN
864:
865: IF((p_ackcode_header = 1 and p_ackcode_line = 1) AND ((p_collaboration_type = 'ORDER') or (p_collaboration_type = 'ACKNOWLEDGE_PO'))) THEN
866: IF l_po_type = 'RELEASE' THEN
867: IF (l_Debug_Level <= 1) THEN
868: cln_debug_pub.Add('Calling PO_CHG_REQUEST_GRP.store_supplier_request API For PO Release',1);
869: END IF;
870: PO_CHG_REQUEST_GRP.store_supplier_request (
871: p_requestor => p_requestor,
872: p_int_cont_num => p_internal_control_number,
905:
906:
907:
908: IF (l_Debug_Level <= 1) THEN
909: cln_debug_pub.Add('ERROR ID : ' || l_error_id,1);
910: END IF;
911: IF (l_Debug_Level <= 1) THEN
912: cln_debug_pub.Add('ERROR STATUS : ' || l_error_status,1);
913: END IF;
908: IF (l_Debug_Level <= 1) THEN
909: cln_debug_pub.Add('ERROR ID : ' || l_error_id,1);
910: END IF;
911: IF (l_Debug_Level <= 1) THEN
912: cln_debug_pub.Add('ERROR STATUS : ' || l_error_status,1);
913: END IF;
914:
915: IF l_error_id IS NOT NULL AND l_error_id <> 0 THEN
916: x_msg_data := l_error_status;
920:
921: ELSE
922:
923: IF (l_Debug_Level <= 1) THEN
924: cln_debug_pub.Add('Previous and new line number are not same..',1);
925: END IF;
926: IF (p_previous_line_number <> p_line_number) THEN
927: IF (l_Debug_Level <= 1) THEN
928: cln_debug_pub.Add('Calling PO_CHG_REQUEST_GRP.store_supplier_request API For Standard PO',1);
924: cln_debug_pub.Add('Previous and new line number are not same..',1);
925: END IF;
926: IF (p_previous_line_number <> p_line_number) THEN
927: IF (l_Debug_Level <= 1) THEN
928: cln_debug_pub.Add('Calling PO_CHG_REQUEST_GRP.store_supplier_request API For Standard PO',1);
929: cln_debug_pub.Add('Call is at Line Level......',1);
930: END IF;
931: p_previous_line_number := p_line_number;
932:
925: END IF;
926: IF (p_previous_line_number <> p_line_number) THEN
927: IF (l_Debug_Level <= 1) THEN
928: cln_debug_pub.Add('Calling PO_CHG_REQUEST_GRP.store_supplier_request API For Standard PO',1);
929: cln_debug_pub.Add('Call is at Line Level......',1);
930: END IF;
931: p_previous_line_number := p_line_number;
932:
933: IF IS_ALREADY_PROCESSED_LINE(p_line_number) THEN
933: IF IS_ALREADY_PROCESSED_LINE(p_line_number) THEN
934: -- Nothing to do since the changes happens only once per each po line
935: -- Collaboration history too is not updated
936: IF (l_Debug_Level <= 1) THEN
937: cln_debug_pub.Add('Since this an already processed line, Nothing to do', 1);
938: END IF;
939: RETURN;
940: END IF;
941:
976: p_supplier_shipment_ref => p_supplier_shipment_ref*/);
977:
978:
979: IF (l_Debug_Level <= 1) THEN
980: cln_debug_pub.Add('ERROR ID : ' || l_error_id,1);
981: cln_debug_pub.Add('ERROR STATUS : ' || l_error_status,1);
982: END IF;
983: END IF;
984: END IF;
977:
978:
979: IF (l_Debug_Level <= 1) THEN
980: cln_debug_pub.Add('ERROR ID : ' || l_error_id,1);
981: cln_debug_pub.Add('ERROR STATUS : ' || l_error_status,1);
982: END IF;
983: END IF;
984: END IF;
985:
983: END IF;
984: END IF;
985:
986: IF (l_Debug_Level <= 1) THEN
987: cln_debug_pub.Add('Calling PO_CHG_REQUEST_GRP.store_supplier_request API For Standard PO',1);
988: cln_debug_pub.Add('Call is at Shipment Line Level......',1);
989: END IF;
990: PO_CHG_REQUEST_GRP.store_supplier_request (
991: p_requestor => p_requestor,
984: END IF;
985:
986: IF (l_Debug_Level <= 1) THEN
987: cln_debug_pub.Add('Calling PO_CHG_REQUEST_GRP.store_supplier_request API For Standard PO',1);
988: cln_debug_pub.Add('Call is at Shipment Line Level......',1);
989: END IF;
990: PO_CHG_REQUEST_GRP.store_supplier_request (
991: p_requestor => p_requestor,
992: p_int_cont_num => p_internal_control_number,
1023: p_supplier_shipment_ref => p_supplier_shipment_ref*/);
1024:
1025:
1026: IF (l_Debug_Level <= 1) THEN
1027: cln_debug_pub.Add('ERROR ID : ' || l_error_id,1);
1028: cln_debug_pub.Add('ERROR STATUS : ' || l_error_status,1);
1029: END IF;
1030:
1031: IF l_error_id IS NOT NULL AND l_error_id <> 0 THEN
1024:
1025:
1026: IF (l_Debug_Level <= 1) THEN
1027: cln_debug_pub.Add('ERROR ID : ' || l_error_id,1);
1028: cln_debug_pub.Add('ERROR STATUS : ' || l_error_status,1);
1029: END IF;
1030:
1031: IF l_error_id IS NOT NULL AND l_error_id <> 0 THEN
1032: x_msg_data := l_error_status;
1043: END IF;
1044:
1045: /*
1046: IF l_error_id IS NULL OR l_error_id = 0 THEN
1047: cln_debug_pub.Add('Calling PO_CHG_REQUEST_GRP.process_supplier_request API',1);
1048:
1049: PO_CHG_REQUEST_GRP.process_supplier_request (
1050: p_int_cont_num => p_internal_control_number,
1051: x_error_id_in => l_error_id,
1053: x_error_id_out => l_error_id,
1054: x_error_status_out => l_error_status
1055: );
1056:
1057: cln_debug_pub.Add('ERROR ID : ' || l_error_id,1);
1058: cln_debug_pub.Add('ERROR STATUS : ' || l_error_status,1);
1059: END IF;
1060: */
1061: END IF;
1054: x_error_status_out => l_error_status
1055: );
1056:
1057: cln_debug_pub.Add('ERROR ID : ' || l_error_id,1);
1058: cln_debug_pub.Add('ERROR STATUS : ' || l_error_status,1);
1059: END IF;
1060: */
1061: END IF;
1062:
1068:
1069:
1070: IF ((p_cln_required = 'TRUE') AND (p_if_collaboration_updated = 'FALSE'))THEN
1071: IF (l_Debug_Level <= 1) THEN
1072: cln_debug_pub.Add('Call to Raise Update Event.....',1);
1073: END IF;
1074: RAISE_UPDATE_EVENT(
1075: x_return_status => x_return_status,
1076: x_msg_data => x_msg_data,
1100: l_dtl_status := 'Pending';
1101: END IF;
1102:
1103: IF (l_Debug_Level <= 1) THEN
1104: cln_debug_pub.Add('Call to Raise Message Event.....',1);
1105: END IF;
1106: RAISE_ADD_MSG_EVENT(
1107: x_return_status => x_return_status,
1108: x_msg_data => x_msg_data,
1130: p_msg_txt_lines := NULL;
1131: x_return_status := FND_API.G_RET_STS_SUCCESS;
1132:
1133: IF (l_Debug_Level <= 1) THEN
1134: cln_debug_pub.Add(l_msg_data,1);
1135: END IF;
1136: IF (l_Debug_Level <= 2) THEN
1137: cln_debug_pub.Add('------- Exiting PROCESS_HEADER_LINES API --------- ',2);
1138: END IF;
1133: IF (l_Debug_Level <= 1) THEN
1134: cln_debug_pub.Add(l_msg_data,1);
1135: END IF;
1136: IF (l_Debug_Level <= 2) THEN
1137: cln_debug_pub.Add('------- Exiting PROCESS_HEADER_LINES API --------- ',2);
1138: END IF;
1139:
1140: -- Exception Handling
1141: EXCEPTION
1148: FND_MESSAGE.SET_TOKEN('REVNUM',p_revision_number);
1149: FND_MESSAGE.SET_TOKEN('MSG',x_msg_data);
1150: x_msg_data := FND_MESSAGE.GET;
1151: IF (l_Debug_Level <= 5) THEN
1152: cln_debug_pub.Add(l_msg_data,4);
1153: cln_debug_pub.Add('------- ERROR :Exiting PROCESS_HEADER_LINES API --------- ',2);
1154: END IF;
1155:
1156:
1149: FND_MESSAGE.SET_TOKEN('MSG',x_msg_data);
1150: x_msg_data := FND_MESSAGE.GET;
1151: IF (l_Debug_Level <= 5) THEN
1152: cln_debug_pub.Add(l_msg_data,4);
1153: cln_debug_pub.Add('------- ERROR :Exiting PROCESS_HEADER_LINES API --------- ',2);
1154: END IF;
1155:
1156:
1157: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1159: l_error_msg :=SQLERRM;
1160: x_return_status :=FND_API.G_RET_STS_UNEXP_ERROR ;
1161: l_msg_data :=l_error_code||' : '||l_error_msg;
1162: IF (l_Debug_Level <= 5) THEN
1163: cln_debug_pub.Add(l_msg_data,6);
1164: cln_debug_pub.Add('------- ERROR :Exiting PROCESS_HEADER_LINES API --------- ',2);
1165: END IF;
1166:
1167: WHEN OTHERS THEN
1160: x_return_status :=FND_API.G_RET_STS_UNEXP_ERROR ;
1161: l_msg_data :=l_error_code||' : '||l_error_msg;
1162: IF (l_Debug_Level <= 5) THEN
1163: cln_debug_pub.Add(l_msg_data,6);
1164: cln_debug_pub.Add('------- ERROR :Exiting PROCESS_HEADER_LINES API --------- ',2);
1165: END IF;
1166:
1167: WHEN OTHERS THEN
1168: l_error_code :=SQLCODE;
1173: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
1174: x_msg_data :=FND_MESSAGE.GET;
1175: l_msg_data :='Unexpected Error in PROCESS_HEADER_LINES -'||l_error_code||' : '||l_error_msg;
1176: IF (l_Debug_Level <= 5) THEN
1177: cln_debug_pub.Add(l_msg_data,6);
1178: cln_debug_pub.Add('------- ERROR :Exiting PROCESS_HEADER_LINES API --------- ',2);
1179: END IF;
1180:
1181: END PROCESS_HEADER_LINES;
1174: x_msg_data :=FND_MESSAGE.GET;
1175: l_msg_data :='Unexpected Error in PROCESS_HEADER_LINES -'||l_error_code||' : '||l_error_msg;
1176: IF (l_Debug_Level <= 5) THEN
1177: cln_debug_pub.Add(l_msg_data,6);
1178: cln_debug_pub.Add('------- ERROR :Exiting PROCESS_HEADER_LINES API --------- ',2);
1179: END IF;
1180:
1181: END PROCESS_HEADER_LINES;
1182:
1214:
1215: BEGIN
1216:
1217: -- Sets the debug mode to be FILE
1218: --l_debug_mode := cln_debug_pub.Set_Debug_Mode('FILE');
1219: l_error_id := 0;
1220:
1221: IF (l_Debug_Level <= 2) THEN
1222: cln_debug_pub.Add('----- Entering LOAD_CHANGES API ------- ',2);
1218: --l_debug_mode := cln_debug_pub.Set_Debug_Mode('FILE');
1219: l_error_id := 0;
1220:
1221: IF (l_Debug_Level <= 2) THEN
1222: cln_debug_pub.Add('----- Entering LOAD_CHANGES API ------- ',2);
1223: END IF;
1224:
1225: l_msg_data := 'Changes in PO successfully loaded';
1226:
1225: l_msg_data := 'Changes in PO successfully loaded';
1226:
1227: -- Parameters received
1228: IF (l_Debug_Level <= 1) THEN
1229: cln_debug_pub.Add('----- PARAMETERS RECEIVED ------- ',1);
1230: cln_debug_pub.Add('Call PO APIs - '||p_call_po_apis,1);
1231: cln_debug_pub.Add('Internal Control Number - '||p_internal_ctrl_num,1);
1232: cln_debug_pub.Add('Requestor - '||p_requestor,1);
1233: cln_debug_pub.Add('Request Origin - '||p_request_origin,1);
1226:
1227: -- Parameters received
1228: IF (l_Debug_Level <= 1) THEN
1229: cln_debug_pub.Add('----- PARAMETERS RECEIVED ------- ',1);
1230: cln_debug_pub.Add('Call PO APIs - '||p_call_po_apis,1);
1231: cln_debug_pub.Add('Internal Control Number - '||p_internal_ctrl_num,1);
1232: cln_debug_pub.Add('Requestor - '||p_requestor,1);
1233: cln_debug_pub.Add('Request Origin - '||p_request_origin,1);
1234: cln_debug_pub.Add('Trading Partner ID - '||p_tp_id,1);
1227: -- Parameters received
1228: IF (l_Debug_Level <= 1) THEN
1229: cln_debug_pub.Add('----- PARAMETERS RECEIVED ------- ',1);
1230: cln_debug_pub.Add('Call PO APIs - '||p_call_po_apis,1);
1231: cln_debug_pub.Add('Internal Control Number - '||p_internal_ctrl_num,1);
1232: cln_debug_pub.Add('Requestor - '||p_requestor,1);
1233: cln_debug_pub.Add('Request Origin - '||p_request_origin,1);
1234: cln_debug_pub.Add('Trading Partner ID - '||p_tp_id,1);
1235: cln_debug_pub.Add('Trading Partner Site ID - '||p_tp_site_id,1);
1228: IF (l_Debug_Level <= 1) THEN
1229: cln_debug_pub.Add('----- PARAMETERS RECEIVED ------- ',1);
1230: cln_debug_pub.Add('Call PO APIs - '||p_call_po_apis,1);
1231: cln_debug_pub.Add('Internal Control Number - '||p_internal_ctrl_num,1);
1232: cln_debug_pub.Add('Requestor - '||p_requestor,1);
1233: cln_debug_pub.Add('Request Origin - '||p_request_origin,1);
1234: cln_debug_pub.Add('Trading Partner ID - '||p_tp_id,1);
1235: cln_debug_pub.Add('Trading Partner Site ID - '||p_tp_site_id,1);
1236: cln_debug_pub.Add('Return status got - '||x_return_status,1);
1229: cln_debug_pub.Add('----- PARAMETERS RECEIVED ------- ',1);
1230: cln_debug_pub.Add('Call PO APIs - '||p_call_po_apis,1);
1231: cln_debug_pub.Add('Internal Control Number - '||p_internal_ctrl_num,1);
1232: cln_debug_pub.Add('Requestor - '||p_requestor,1);
1233: cln_debug_pub.Add('Request Origin - '||p_request_origin,1);
1234: cln_debug_pub.Add('Trading Partner ID - '||p_tp_id,1);
1235: cln_debug_pub.Add('Trading Partner Site ID - '||p_tp_site_id,1);
1236: cln_debug_pub.Add('Return status got - '||x_return_status,1);
1237: cln_debug_pub.Add('Return msg got - '||x_msg_data,1);
1230: cln_debug_pub.Add('Call PO APIs - '||p_call_po_apis,1);
1231: cln_debug_pub.Add('Internal Control Number - '||p_internal_ctrl_num,1);
1232: cln_debug_pub.Add('Requestor - '||p_requestor,1);
1233: cln_debug_pub.Add('Request Origin - '||p_request_origin,1);
1234: cln_debug_pub.Add('Trading Partner ID - '||p_tp_id,1);
1235: cln_debug_pub.Add('Trading Partner Site ID - '||p_tp_site_id,1);
1236: cln_debug_pub.Add('Return status got - '||x_return_status,1);
1237: cln_debug_pub.Add('Return msg got - '||x_msg_data,1);
1238: cln_debug_pub.Add('----------------------------------',1);
1231: cln_debug_pub.Add('Internal Control Number - '||p_internal_ctrl_num,1);
1232: cln_debug_pub.Add('Requestor - '||p_requestor,1);
1233: cln_debug_pub.Add('Request Origin - '||p_request_origin,1);
1234: cln_debug_pub.Add('Trading Partner ID - '||p_tp_id,1);
1235: cln_debug_pub.Add('Trading Partner Site ID - '||p_tp_site_id,1);
1236: cln_debug_pub.Add('Return status got - '||x_return_status,1);
1237: cln_debug_pub.Add('Return msg got - '||x_msg_data,1);
1238: cln_debug_pub.Add('----------------------------------',1);
1239: END IF;
1232: cln_debug_pub.Add('Requestor - '||p_requestor,1);
1233: cln_debug_pub.Add('Request Origin - '||p_request_origin,1);
1234: cln_debug_pub.Add('Trading Partner ID - '||p_tp_id,1);
1235: cln_debug_pub.Add('Trading Partner Site ID - '||p_tp_site_id,1);
1236: cln_debug_pub.Add('Return status got - '||x_return_status,1);
1237: cln_debug_pub.Add('Return msg got - '||x_msg_data,1);
1238: cln_debug_pub.Add('----------------------------------',1);
1239: END IF;
1240:
1233: cln_debug_pub.Add('Request Origin - '||p_request_origin,1);
1234: cln_debug_pub.Add('Trading Partner ID - '||p_tp_id,1);
1235: cln_debug_pub.Add('Trading Partner Site ID - '||p_tp_site_id,1);
1236: cln_debug_pub.Add('Return status got - '||x_return_status,1);
1237: cln_debug_pub.Add('Return msg got - '||x_msg_data,1);
1238: cln_debug_pub.Add('----------------------------------',1);
1239: END IF;
1240:
1241:
1234: cln_debug_pub.Add('Trading Partner ID - '||p_tp_id,1);
1235: cln_debug_pub.Add('Trading Partner Site ID - '||p_tp_site_id,1);
1236: cln_debug_pub.Add('Return status got - '||x_return_status,1);
1237: cln_debug_pub.Add('Return msg got - '||x_msg_data,1);
1238: cln_debug_pub.Add('----------------------------------',1);
1239: END IF;
1240:
1241:
1242: IF p_call_po_apis <> 'YES' THEN
1244: END IF;
1245:
1246: IF x_return_status = 'S' THEN
1247: IF (l_Debug_Level <= 1) THEN
1248: cln_debug_pub.Add('Calling PO_CHG_REQUEST_GRP.process_supplier_request API',1);
1249: END IF;
1250:
1251: PO_CHG_REQUEST_GRP.process_supplier_request (
1252: p_int_cont_num => p_internal_ctrl_num,
1256: x_error_status_out => l_error_status
1257: );
1258:
1259: IF (l_Debug_Level <= 1) THEN
1260: cln_debug_pub.Add('ERROR ID : ' || l_error_id,1);
1261: cln_debug_pub.Add('ERROR STATUS : ' || l_error_status,1);
1262: END IF;
1263:
1264: IF l_error_id IS NOT NULL AND l_error_id <> 0 THEN
1257: );
1258:
1259: IF (l_Debug_Level <= 1) THEN
1260: cln_debug_pub.Add('ERROR ID : ' || l_error_id,1);
1261: cln_debug_pub.Add('ERROR STATUS : ' || l_error_status,1);
1262: END IF;
1263:
1264: IF l_error_id IS NOT NULL AND l_error_id <> 0 THEN
1265: x_msg_data := l_error_status;
1269: END IF;
1270: END IF;
1271:
1272: IF (l_Debug_Level <= 1) THEN
1273: cln_debug_pub.Add('Calling PO_CHG_REQUEST_GRP.windup_chn_ack_inbound API',1);
1274: END IF;
1275:
1276:
1277: -- we have to call this even in case of error.
1287: x_error_status_out => l_error_status
1288: );
1289:
1290: IF (l_Debug_Level <= 1) THEN
1291: cln_debug_pub.Add('ERROR ID : ' || l_error_id,1);
1292: cln_debug_pub.Add('ERROR STATUS : ' || l_error_status,1);
1293: END IF;
1294:
1295: -- Whatever be the status of PO_CHG_REQUEST_GRP.windup_chn_ack_inbound API,
1288: );
1289:
1290: IF (l_Debug_Level <= 1) THEN
1291: cln_debug_pub.Add('ERROR ID : ' || l_error_id,1);
1292: cln_debug_pub.Add('ERROR STATUS : ' || l_error_status,1);
1293: END IF;
1294:
1295: -- Whatever be the status of PO_CHG_REQUEST_GRP.windup_chn_ack_inbound API,
1296: -- we are returning back the failure incase the initial code returned was error.
1313:
1314: x_return_status := 'S';
1315:
1316: IF (l_Debug_Level <= 1) THEN
1317: cln_debug_pub.Add(l_msg_data,1);
1318: END IF;
1319: IF (l_Debug_Level <= 2) THEN
1320: cln_debug_pub.Add('----- EXITING LOAD_CHANGES WITH SUCCESS-----', 2);
1321: END IF;
1316: IF (l_Debug_Level <= 1) THEN
1317: cln_debug_pub.Add(l_msg_data,1);
1318: END IF;
1319: IF (l_Debug_Level <= 2) THEN
1320: cln_debug_pub.Add('----- EXITING LOAD_CHANGES WITH SUCCESS-----', 2);
1321: END IF;
1322:
1323: EXCEPTION
1324: WHEN FND_API.G_EXC_ERROR THEN
1323: EXCEPTION
1324: WHEN FND_API.G_EXC_ERROR THEN
1325: x_return_status := FND_API.G_RET_STS_ERROR ;
1326: IF (l_Debug_Level <= 5) THEN
1327: cln_debug_pub.Add(l_msg_data,4);
1328: cln_debug_pub.Add('------- ERROR :Exiting LOAD_CHANGES API --------- ',2);
1329: END IF;
1330:
1331: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1324: WHEN FND_API.G_EXC_ERROR THEN
1325: x_return_status := FND_API.G_RET_STS_ERROR ;
1326: IF (l_Debug_Level <= 5) THEN
1327: cln_debug_pub.Add(l_msg_data,4);
1328: cln_debug_pub.Add('------- ERROR :Exiting LOAD_CHANGES API --------- ',2);
1329: END IF;
1330:
1331: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1332: l_error_code :=SQLCODE;
1333: l_error_msg :=SQLERRM;
1334: x_return_status :=FND_API.G_RET_STS_UNEXP_ERROR ;
1335: l_msg_data :=l_error_code||' : '||l_error_msg;
1336: IF (l_Debug_Level <= 5) THEN
1337: cln_debug_pub.Add(l_msg_data,5);
1338: cln_debug_pub.Add('------- ERROR :Exiting LOAD_CHANGES API --------- ',2);
1339: END IF;
1340:
1341: WHEN OTHERS THEN
1334: x_return_status :=FND_API.G_RET_STS_UNEXP_ERROR ;
1335: l_msg_data :=l_error_code||' : '||l_error_msg;
1336: IF (l_Debug_Level <= 5) THEN
1337: cln_debug_pub.Add(l_msg_data,5);
1338: cln_debug_pub.Add('------- ERROR :Exiting LOAD_CHANGES API --------- ',2);
1339: END IF;
1340:
1341: WHEN OTHERS THEN
1342: l_error_code :=SQLCODE;
1347: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
1348: x_msg_data :=FND_MESSAGE.GET;
1349: l_msg_data :='Unexpected Error in LOAD_CHANGES -'||l_error_code||' : '||l_error_msg;
1350: IF (l_Debug_Level <= 5) THEN
1351: cln_debug_pub.Add(l_msg_data,5);
1352: cln_debug_pub.Add('------- ERROR :Exiting LOAD_CHANGES API --------- ',2);
1353: END IF;
1354: END LOAD_CHANGES;
1355:
1348: x_msg_data :=FND_MESSAGE.GET;
1349: l_msg_data :='Unexpected Error in LOAD_CHANGES -'||l_error_code||' : '||l_error_msg;
1350: IF (l_Debug_Level <= 5) THEN
1351: cln_debug_pub.Add(l_msg_data,5);
1352: cln_debug_pub.Add('------- ERROR :Exiting LOAD_CHANGES API --------- ',2);
1353: END IF;
1354: END LOAD_CHANGES;
1355:
1356:
1387:
1388: BEGIN
1389:
1390: -- Sets the debug mode to be FILE
1391: --l_debug_mode :=cln_debug_pub.Set_Debug_Mode('FILE');
1392:
1393: IF (l_Debug_Level <= 2) THEN
1394: cln_debug_pub.Add('------ Entering ACKPO_ERROR_HANDLER API ------ ', 2);
1395: END IF;
1390: -- Sets the debug mode to be FILE
1391: --l_debug_mode :=cln_debug_pub.Set_Debug_Mode('FILE');
1392:
1393: IF (l_Debug_Level <= 2) THEN
1394: cln_debug_pub.Add('------ Entering ACKPO_ERROR_HANDLER API ------ ', 2);
1395: END IF;
1396:
1397: -- Initialize API return status to success
1398: l_msg_data :='Parameters set to their correct values when the return status is ERROR';
1398: l_msg_data :='Parameters set to their correct values when the return status is ERROR';
1399:
1400: -- Parameters received
1401: IF (l_Debug_Level <= 1) THEN
1402: cln_debug_pub.Add('------ Parameters Received ------ ', 1);
1403: cln_debug_pub.Add('Return Status - '||x_return_status,1);
1404: cln_debug_pub.Add('Message Data - '||x_msg_data,1);
1405: cln_debug_pub.Add('PO Number - '||p_po_number,1);
1406: cln_debug_pub.Add('Originator Reference - '||p_org_ref,1);
1399:
1400: -- Parameters received
1401: IF (l_Debug_Level <= 1) THEN
1402: cln_debug_pub.Add('------ Parameters Received ------ ', 1);
1403: cln_debug_pub.Add('Return Status - '||x_return_status,1);
1404: cln_debug_pub.Add('Message Data - '||x_msg_data,1);
1405: cln_debug_pub.Add('PO Number - '||p_po_number,1);
1406: cln_debug_pub.Add('Originator Reference - '||p_org_ref,1);
1407: cln_debug_pub.Add('Collaboration ID - '||p_coll_id,1);
1400: -- Parameters received
1401: IF (l_Debug_Level <= 1) THEN
1402: cln_debug_pub.Add('------ Parameters Received ------ ', 1);
1403: cln_debug_pub.Add('Return Status - '||x_return_status,1);
1404: cln_debug_pub.Add('Message Data - '||x_msg_data,1);
1405: cln_debug_pub.Add('PO Number - '||p_po_number,1);
1406: cln_debug_pub.Add('Originator Reference - '||p_org_ref,1);
1407: cln_debug_pub.Add('Collaboration ID - '||p_coll_id,1);
1408: cln_debug_pub.Add('Internal Control Number - '||p_internal_control_number,1);
1401: IF (l_Debug_Level <= 1) THEN
1402: cln_debug_pub.Add('------ Parameters Received ------ ', 1);
1403: cln_debug_pub.Add('Return Status - '||x_return_status,1);
1404: cln_debug_pub.Add('Message Data - '||x_msg_data,1);
1405: cln_debug_pub.Add('PO Number - '||p_po_number,1);
1406: cln_debug_pub.Add('Originator Reference - '||p_org_ref,1);
1407: cln_debug_pub.Add('Collaboration ID - '||p_coll_id,1);
1408: cln_debug_pub.Add('Internal Control Number - '||p_internal_control_number,1);
1409: cln_debug_pub.Add('CLN Required - '||p_cln_required,1);
1402: cln_debug_pub.Add('------ Parameters Received ------ ', 1);
1403: cln_debug_pub.Add('Return Status - '||x_return_status,1);
1404: cln_debug_pub.Add('Message Data - '||x_msg_data,1);
1405: cln_debug_pub.Add('PO Number - '||p_po_number,1);
1406: cln_debug_pub.Add('Originator Reference - '||p_org_ref,1);
1407: cln_debug_pub.Add('Collaboration ID - '||p_coll_id,1);
1408: cln_debug_pub.Add('Internal Control Number - '||p_internal_control_number,1);
1409: cln_debug_pub.Add('CLN Required - '||p_cln_required,1);
1410: cln_debug_pub.Add('------------------------------------- ', 1);
1403: cln_debug_pub.Add('Return Status - '||x_return_status,1);
1404: cln_debug_pub.Add('Message Data - '||x_msg_data,1);
1405: cln_debug_pub.Add('PO Number - '||p_po_number,1);
1406: cln_debug_pub.Add('Originator Reference - '||p_org_ref,1);
1407: cln_debug_pub.Add('Collaboration ID - '||p_coll_id,1);
1408: cln_debug_pub.Add('Internal Control Number - '||p_internal_control_number,1);
1409: cln_debug_pub.Add('CLN Required - '||p_cln_required,1);
1410: cln_debug_pub.Add('------------------------------------- ', 1);
1411:
1404: cln_debug_pub.Add('Message Data - '||x_msg_data,1);
1405: cln_debug_pub.Add('PO Number - '||p_po_number,1);
1406: cln_debug_pub.Add('Originator Reference - '||p_org_ref,1);
1407: cln_debug_pub.Add('Collaboration ID - '||p_coll_id,1);
1408: cln_debug_pub.Add('Internal Control Number - '||p_internal_control_number,1);
1409: cln_debug_pub.Add('CLN Required - '||p_cln_required,1);
1410: cln_debug_pub.Add('------------------------------------- ', 1);
1411:
1412: cln_debug_pub.Add('Rollback all previous changes....',1);
1405: cln_debug_pub.Add('PO Number - '||p_po_number,1);
1406: cln_debug_pub.Add('Originator Reference - '||p_org_ref,1);
1407: cln_debug_pub.Add('Collaboration ID - '||p_coll_id,1);
1408: cln_debug_pub.Add('Internal Control Number - '||p_internal_control_number,1);
1409: cln_debug_pub.Add('CLN Required - '||p_cln_required,1);
1410: cln_debug_pub.Add('------------------------------------- ', 1);
1411:
1412: cln_debug_pub.Add('Rollback all previous changes....',1);
1413: END IF;
1406: cln_debug_pub.Add('Originator Reference - '||p_org_ref,1);
1407: cln_debug_pub.Add('Collaboration ID - '||p_coll_id,1);
1408: cln_debug_pub.Add('Internal Control Number - '||p_internal_control_number,1);
1409: cln_debug_pub.Add('CLN Required - '||p_cln_required,1);
1410: cln_debug_pub.Add('------------------------------------- ', 1);
1411:
1412: cln_debug_pub.Add('Rollback all previous changes....',1);
1413: END IF;
1414: ROLLBACK TO CHECK_COLLABORATION_PUB;
1408: cln_debug_pub.Add('Internal Control Number - '||p_internal_control_number,1);
1409: cln_debug_pub.Add('CLN Required - '||p_cln_required,1);
1410: cln_debug_pub.Add('------------------------------------- ', 1);
1411:
1412: cln_debug_pub.Add('Rollback all previous changes....',1);
1413: END IF;
1414: ROLLBACK TO CHECK_COLLABORATION_PUB;
1415:
1416: IF (p_coll_id IS NULL) THEN --If not null take action will be done
1425:
1426:
1427: -- if collaboration id is null, then skip this API.
1428: IF (l_Debug_Level <= 1) THEN
1429: cln_debug_pub.Add('------ERROR status------',1);
1430: END IF;
1431: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ERROR_PO_UPDATION');
1432: FND_MESSAGE.SET_TOKEN('POID',p_po_number);
1433: l_error_msg := FND_MESSAGE.GET;
1437: x_return_status_tp := '99';
1438:
1439:
1440: IF (l_Debug_Level <= 1) THEN
1441: cln_debug_pub.Add('-----Parameters set ------ ',1);
1442: cln_debug_pub.Add('Msg for collaboration detail - '||l_error_msg,1);
1443: cln_debug_pub.Add('--------------------------------------------------',1);
1444: END IF;
1445:
1438:
1439:
1440: IF (l_Debug_Level <= 1) THEN
1441: cln_debug_pub.Add('-----Parameters set ------ ',1);
1442: cln_debug_pub.Add('Msg for collaboration detail - '||l_error_msg,1);
1443: cln_debug_pub.Add('--------------------------------------------------',1);
1444: END IF;
1445:
1446: l_msg_buffer := x_msg_data;-- preserving the error message
1439:
1440: IF (l_Debug_Level <= 1) THEN
1441: cln_debug_pub.Add('-----Parameters set ------ ',1);
1442: cln_debug_pub.Add('Msg for collaboration detail - '||l_error_msg,1);
1443: cln_debug_pub.Add('--------------------------------------------------',1);
1444: END IF;
1445:
1446: l_msg_buffer := x_msg_data;-- preserving the error message
1447:
1446: l_msg_buffer := x_msg_data;-- preserving the error message
1447:
1448: IF(p_cln_required = 'TRUE') THEN
1449: IF (l_Debug_Level <= 1) THEN
1450: cln_debug_pub.Add('------Calling RAISE_UPDATE_EVENT with ERROR status------',1);
1451: END IF;
1452: RAISE_UPDATE_EVENT(
1453: x_return_status => x_return_status,
1454: x_msg_data => x_msg_data,
1467:
1468: END IF;
1469:
1470: IF (l_Debug_Level <= 1) THEN
1471: cln_debug_pub.Add(l_msg_data,1);
1472: END IF;
1473: IF (l_Debug_Level <= 2) THEN
1474: cln_debug_pub.Add('------- Exiting ACKPO_ERROR_HANDLER API --------- ',2);
1475: END IF;
1470: IF (l_Debug_Level <= 1) THEN
1471: cln_debug_pub.Add(l_msg_data,1);
1472: END IF;
1473: IF (l_Debug_Level <= 2) THEN
1474: cln_debug_pub.Add('------- Exiting ACKPO_ERROR_HANDLER API --------- ',2);
1475: END IF;
1476:
1477:
1478:
1481:
1482: WHEN FND_API.G_EXC_ERROR THEN
1483: x_return_status := FND_API.G_RET_STS_ERROR ;
1484: IF (l_Debug_Level <= 5) THEN
1485: cln_debug_pub.Add(l_msg_data,4);
1486: cln_debug_pub.Add('------- ERROR :Exiting ACKPO_ERROR_HANDLER API --------- ',2);
1487: END IF;
1488:
1489: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1482: WHEN FND_API.G_EXC_ERROR THEN
1483: x_return_status := FND_API.G_RET_STS_ERROR ;
1484: IF (l_Debug_Level <= 5) THEN
1485: cln_debug_pub.Add(l_msg_data,4);
1486: cln_debug_pub.Add('------- ERROR :Exiting ACKPO_ERROR_HANDLER API --------- ',2);
1487: END IF;
1488:
1489: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1490: l_error_code :=SQLCODE;
1491: l_error_msg :=SQLERRM;
1492: x_return_status :=FND_API.G_RET_STS_UNEXP_ERROR ;
1493: l_msg_data :=l_error_code||' : '||l_error_msg;
1494: IF (l_Debug_Level <= 5) THEN
1495: cln_debug_pub.Add(l_msg_data,6);
1496: cln_debug_pub.Add('------- ERROR :Exiting ACKPO_ERROR_HANDLER API --------- ',2);
1497: END IF;
1498:
1499: WHEN OTHERS THEN
1492: x_return_status :=FND_API.G_RET_STS_UNEXP_ERROR ;
1493: l_msg_data :=l_error_code||' : '||l_error_msg;
1494: IF (l_Debug_Level <= 5) THEN
1495: cln_debug_pub.Add(l_msg_data,6);
1496: cln_debug_pub.Add('------- ERROR :Exiting ACKPO_ERROR_HANDLER API --------- ',2);
1497: END IF;
1498:
1499: WHEN OTHERS THEN
1500: l_error_code :=SQLCODE;
1505: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
1506: x_msg_data :=FND_MESSAGE.GET;
1507: l_msg_data :='Unexpected Error in ACKPO_ERROR_HANDLER -'||l_error_code||' : '||l_error_msg;
1508: IF (l_Debug_Level <= 5) THEN
1509: cln_debug_pub.Add(l_msg_data,6);
1510: cln_debug_pub.Add('------- ERROR :Exiting ACKPO_ERROR_HANDLER API --------- ',2);
1511: END IF;
1512:
1513: END ACKPO_ERROR_HANDLER;
1506: x_msg_data :=FND_MESSAGE.GET;
1507: l_msg_data :='Unexpected Error in ACKPO_ERROR_HANDLER -'||l_error_code||' : '||l_error_msg;
1508: IF (l_Debug_Level <= 5) THEN
1509: cln_debug_pub.Add(l_msg_data,6);
1510: cln_debug_pub.Add('------- ERROR :Exiting ACKPO_ERROR_HANDLER API --------- ',2);
1511: END IF;
1512:
1513: END ACKPO_ERROR_HANDLER;
1514:
1565:
1566: BEGIN
1567:
1568: -- Sets the debug mode to be FILE
1569: --l_debug_mode :=cln_debug_pub.Set_Debug_Mode('FILE');
1570:
1571: IF (l_Debug_Level <= 1) THEN
1572: cln_debug_pub.Add('############################################################',1);
1573: cln_debug_pub.Add('############### START OF XGM DEBUG FILE #################',1);
1568: -- Sets the debug mode to be FILE
1569: --l_debug_mode :=cln_debug_pub.Set_Debug_Mode('FILE');
1570:
1571: IF (l_Debug_Level <= 1) THEN
1572: cln_debug_pub.Add('############################################################',1);
1573: cln_debug_pub.Add('############### START OF XGM DEBUG FILE #################',1);
1574: cln_debug_pub.Add('############################################################',1);
1575: END IF;
1576:
1569: --l_debug_mode :=cln_debug_pub.Set_Debug_Mode('FILE');
1570:
1571: IF (l_Debug_Level <= 1) THEN
1572: cln_debug_pub.Add('############################################################',1);
1573: cln_debug_pub.Add('############### START OF XGM DEBUG FILE #################',1);
1574: cln_debug_pub.Add('############################################################',1);
1575: END IF;
1576:
1577: IF (l_Debug_Level <= 2) THEN
1570:
1571: IF (l_Debug_Level <= 1) THEN
1572: cln_debug_pub.Add('############################################################',1);
1573: cln_debug_pub.Add('############### START OF XGM DEBUG FILE #################',1);
1574: cln_debug_pub.Add('############################################################',1);
1575: END IF;
1576:
1577: IF (l_Debug_Level <= 2) THEN
1578: cln_debug_pub.Add('---- Entering PROCESS_HEADER API ----- ', 2);
1574: cln_debug_pub.Add('############################################################',1);
1575: END IF;
1576:
1577: IF (l_Debug_Level <= 2) THEN
1578: cln_debug_pub.Add('---- Entering PROCESS_HEADER API ----- ', 2);
1579: END IF;
1580:
1581: -- Standard Start of API savepoint
1582: SAVEPOINT CHECK_COLLABORATION_PUB;
1589:
1590:
1591: -- Parameters received
1592: IF (l_Debug_Level <= 1) THEN
1593: cln_debug_pub.Add('----- PARAMETERS RECEIVED ------- ',1);
1594: cln_debug_pub.Add('Status received - '||x_return_status,1);
1595: cln_debug_pub.Add('Message received - '||x_msg_data,1);
1596: cln_debug_pub.Add('Sender Component - '||p_sender_component,1);
1597: cln_debug_pub.Add('PO Number - '||p_po_number,1);
1590:
1591: -- Parameters received
1592: IF (l_Debug_Level <= 1) THEN
1593: cln_debug_pub.Add('----- PARAMETERS RECEIVED ------- ',1);
1594: cln_debug_pub.Add('Status received - '||x_return_status,1);
1595: cln_debug_pub.Add('Message received - '||x_msg_data,1);
1596: cln_debug_pub.Add('Sender Component - '||p_sender_component,1);
1597: cln_debug_pub.Add('PO Number - '||p_po_number,1);
1598: cln_debug_pub.Add('Release Number - '||p_release_number,1);
1591: -- Parameters received
1592: IF (l_Debug_Level <= 1) THEN
1593: cln_debug_pub.Add('----- PARAMETERS RECEIVED ------- ',1);
1594: cln_debug_pub.Add('Status received - '||x_return_status,1);
1595: cln_debug_pub.Add('Message received - '||x_msg_data,1);
1596: cln_debug_pub.Add('Sender Component - '||p_sender_component,1);
1597: cln_debug_pub.Add('PO Number - '||p_po_number,1);
1598: cln_debug_pub.Add('Release Number - '||p_release_number,1);
1599: cln_debug_pub.Add('Revision Number - '||p_revision_number,1);
1592: IF (l_Debug_Level <= 1) THEN
1593: cln_debug_pub.Add('----- PARAMETERS RECEIVED ------- ',1);
1594: cln_debug_pub.Add('Status received - '||x_return_status,1);
1595: cln_debug_pub.Add('Message received - '||x_msg_data,1);
1596: cln_debug_pub.Add('Sender Component - '||p_sender_component,1);
1597: cln_debug_pub.Add('PO Number - '||p_po_number,1);
1598: cln_debug_pub.Add('Release Number - '||p_release_number,1);
1599: cln_debug_pub.Add('Revision Number - '||p_revision_number,1);
1600: cln_debug_pub.Add('Ackcode at header level - '||p_ackcode_header,1);
1593: cln_debug_pub.Add('----- PARAMETERS RECEIVED ------- ',1);
1594: cln_debug_pub.Add('Status received - '||x_return_status,1);
1595: cln_debug_pub.Add('Message received - '||x_msg_data,1);
1596: cln_debug_pub.Add('Sender Component - '||p_sender_component,1);
1597: cln_debug_pub.Add('PO Number - '||p_po_number,1);
1598: cln_debug_pub.Add('Release Number - '||p_release_number,1);
1599: cln_debug_pub.Add('Revision Number - '||p_revision_number,1);
1600: cln_debug_pub.Add('Ackcode at header level - '||p_ackcode_header,1);
1601: cln_debug_pub.Add('Note - '||p_note,1);
1594: cln_debug_pub.Add('Status received - '||x_return_status,1);
1595: cln_debug_pub.Add('Message received - '||x_msg_data,1);
1596: cln_debug_pub.Add('Sender Component - '||p_sender_component,1);
1597: cln_debug_pub.Add('PO Number - '||p_po_number,1);
1598: cln_debug_pub.Add('Release Number - '||p_release_number,1);
1599: cln_debug_pub.Add('Revision Number - '||p_revision_number,1);
1600: cln_debug_pub.Add('Ackcode at header level - '||p_ackcode_header,1);
1601: cln_debug_pub.Add('Note - '||p_note,1);
1602: cln_debug_pub.Add('CLN reqd - '||x_cln_required,1);
1595: cln_debug_pub.Add('Message received - '||x_msg_data,1);
1596: cln_debug_pub.Add('Sender Component - '||p_sender_component,1);
1597: cln_debug_pub.Add('PO Number - '||p_po_number,1);
1598: cln_debug_pub.Add('Release Number - '||p_release_number,1);
1599: cln_debug_pub.Add('Revision Number - '||p_revision_number,1);
1600: cln_debug_pub.Add('Ackcode at header level - '||p_ackcode_header,1);
1601: cln_debug_pub.Add('Note - '||p_note,1);
1602: cln_debug_pub.Add('CLN reqd - '||x_cln_required,1);
1603: cln_debug_pub.Add('p_tp_header_id - '|| p_tp_header_id, 1);
1596: cln_debug_pub.Add('Sender Component - '||p_sender_component,1);
1597: cln_debug_pub.Add('PO Number - '||p_po_number,1);
1598: cln_debug_pub.Add('Release Number - '||p_release_number,1);
1599: cln_debug_pub.Add('Revision Number - '||p_revision_number,1);
1600: cln_debug_pub.Add('Ackcode at header level - '||p_ackcode_header,1);
1601: cln_debug_pub.Add('Note - '||p_note,1);
1602: cln_debug_pub.Add('CLN reqd - '||x_cln_required,1);
1603: cln_debug_pub.Add('p_tp_header_id - '|| p_tp_header_id, 1);
1604: cln_debug_pub.Add('Requestor - '||p_requestor,1);
1597: cln_debug_pub.Add('PO Number - '||p_po_number,1);
1598: cln_debug_pub.Add('Release Number - '||p_release_number,1);
1599: cln_debug_pub.Add('Revision Number - '||p_revision_number,1);
1600: cln_debug_pub.Add('Ackcode at header level - '||p_ackcode_header,1);
1601: cln_debug_pub.Add('Note - '||p_note,1);
1602: cln_debug_pub.Add('CLN reqd - '||x_cln_required,1);
1603: cln_debug_pub.Add('p_tp_header_id - '|| p_tp_header_id, 1);
1604: cln_debug_pub.Add('Requestor - '||p_requestor,1);
1605: cln_debug_pub.Add('Internal Ctrl Number - '||p_int_cont_num,1);
1598: cln_debug_pub.Add('Release Number - '||p_release_number,1);
1599: cln_debug_pub.Add('Revision Number - '||p_revision_number,1);
1600: cln_debug_pub.Add('Ackcode at header level - '||p_ackcode_header,1);
1601: cln_debug_pub.Add('Note - '||p_note,1);
1602: cln_debug_pub.Add('CLN reqd - '||x_cln_required,1);
1603: cln_debug_pub.Add('p_tp_header_id - '|| p_tp_header_id, 1);
1604: cln_debug_pub.Add('Requestor - '||p_requestor,1);
1605: cln_debug_pub.Add('Internal Ctrl Number - '||p_int_cont_num,1);
1606: cln_debug_pub.Add('Request Origin - '||p_request_origin,1);
1599: cln_debug_pub.Add('Revision Number - '||p_revision_number,1);
1600: cln_debug_pub.Add('Ackcode at header level - '||p_ackcode_header,1);
1601: cln_debug_pub.Add('Note - '||p_note,1);
1602: cln_debug_pub.Add('CLN reqd - '||x_cln_required,1);
1603: cln_debug_pub.Add('p_tp_header_id - '|| p_tp_header_id, 1);
1604: cln_debug_pub.Add('Requestor - '||p_requestor,1);
1605: cln_debug_pub.Add('Internal Ctrl Number - '||p_int_cont_num,1);
1606: cln_debug_pub.Add('Request Origin - '||p_request_origin,1);
1607: cln_debug_pub.Add('Collaboration Type - '||p_collaboration_type,1);
1600: cln_debug_pub.Add('Ackcode at header level - '||p_ackcode_header,1);
1601: cln_debug_pub.Add('Note - '||p_note,1);
1602: cln_debug_pub.Add('CLN reqd - '||x_cln_required,1);
1603: cln_debug_pub.Add('p_tp_header_id - '|| p_tp_header_id, 1);
1604: cln_debug_pub.Add('Requestor - '||p_requestor,1);
1605: cln_debug_pub.Add('Internal Ctrl Number - '||p_int_cont_num,1);
1606: cln_debug_pub.Add('Request Origin - '||p_request_origin,1);
1607: cln_debug_pub.Add('Collaboration Type - '||p_collaboration_type,1);
1608: cln_debug_pub.Add('----------------------------------',1);
1601: cln_debug_pub.Add('Note - '||p_note,1);
1602: cln_debug_pub.Add('CLN reqd - '||x_cln_required,1);
1603: cln_debug_pub.Add('p_tp_header_id - '|| p_tp_header_id, 1);
1604: cln_debug_pub.Add('Requestor - '||p_requestor,1);
1605: cln_debug_pub.Add('Internal Ctrl Number - '||p_int_cont_num,1);
1606: cln_debug_pub.Add('Request Origin - '||p_request_origin,1);
1607: cln_debug_pub.Add('Collaboration Type - '||p_collaboration_type,1);
1608: cln_debug_pub.Add('----------------------------------',1);
1609: END IF;
1602: cln_debug_pub.Add('CLN reqd - '||x_cln_required,1);
1603: cln_debug_pub.Add('p_tp_header_id - '|| p_tp_header_id, 1);
1604: cln_debug_pub.Add('Requestor - '||p_requestor,1);
1605: cln_debug_pub.Add('Internal Ctrl Number - '||p_int_cont_num,1);
1606: cln_debug_pub.Add('Request Origin - '||p_request_origin,1);
1607: cln_debug_pub.Add('Collaboration Type - '||p_collaboration_type,1);
1608: cln_debug_pub.Add('----------------------------------',1);
1609: END IF;
1610:
1603: cln_debug_pub.Add('p_tp_header_id - '|| p_tp_header_id, 1);
1604: cln_debug_pub.Add('Requestor - '||p_requestor,1);
1605: cln_debug_pub.Add('Internal Ctrl Number - '||p_int_cont_num,1);
1606: cln_debug_pub.Add('Request Origin - '||p_request_origin,1);
1607: cln_debug_pub.Add('Collaboration Type - '||p_collaboration_type,1);
1608: cln_debug_pub.Add('----------------------------------',1);
1609: END IF;
1610:
1611: l_line_num_tab.delete;-- Initialize array of PO lines
1604: cln_debug_pub.Add('Requestor - '||p_requestor,1);
1605: cln_debug_pub.Add('Internal Ctrl Number - '||p_int_cont_num,1);
1606: cln_debug_pub.Add('Request Origin - '||p_request_origin,1);
1607: cln_debug_pub.Add('Collaboration Type - '||p_collaboration_type,1);
1608: cln_debug_pub.Add('----------------------------------',1);
1609: END IF;
1610:
1611: l_line_num_tab.delete;-- Initialize array of PO lines
1612:
1639: END IF;
1640:
1641: /* IF (x_cln_required <>'TRUE')THEN
1642: IF (l_Debug_Level <= 1) THEN
1643: cln_debug_pub.Add('CLN history need not be updated',1);
1644: cln_debug_pub.Add('Defaulting Collaboration Type to ACKNOWLEDGE_PO',1);
1645: END IF;
1646: x_collaboration_type := 'ACKNOWLEDGE_PO';
1647: END IF;
1640:
1641: /* IF (x_cln_required <>'TRUE')THEN
1642: IF (l_Debug_Level <= 1) THEN
1643: cln_debug_pub.Add('CLN history need not be updated',1);
1644: cln_debug_pub.Add('Defaulting Collaboration Type to ACKNOWLEDGE_PO',1);
1645: END IF;
1646: x_collaboration_type := 'ACKNOWLEDGE_PO';
1647: END IF;
1648: */
1648: */
1649:
1650:
1651: IF (l_Debug_Level <= 1) THEN
1652: cln_debug_pub.Add('Getting Trading partner details using TP_HEADER_ID',1);
1653: END IF;
1654:
1655: BEGIN
1656: SELECT PARTY_ID, PARTY_SITE_ID
1659: WHERE TP_HEADER_ID = p_tp_header_id;
1660: EXCEPTION
1661: WHEN NO_DATA_FOUND THEN
1662: IF (l_Debug_Level <= 2) THEN
1663: cln_debug_pub.Add('TP details not found for the TP Header ID = '||p_tp_header_id,2);
1664: END IF;
1665: END;
1666:
1667: IF (l_Debug_Level <= 2) THEN
1664: END IF;
1665: END;
1666:
1667: IF (l_Debug_Level <= 2) THEN
1668: cln_debug_pub.Add('Trading Partner ID - '||l_tp_id,1);
1669: cln_debug_pub.Add('Trading Partner Site ID - '||l_tp_site_id,1);
1670: END IF;
1671:
1672: p_tp_id := l_tp_id;
1665: END;
1666:
1667: IF (l_Debug_Level <= 2) THEN
1668: cln_debug_pub.Add('Trading Partner ID - '||l_tp_id,1);
1669: cln_debug_pub.Add('Trading Partner Site ID - '||l_tp_site_id,1);
1670: END IF;
1671:
1672: p_tp_id := l_tp_id;
1673: p_tp_site_id := l_tp_site_id;
1674:
1675:
1676: IF (l_call_po_apis = 'YES') THEN
1677: IF (l_Debug_Level <= 2) THEN
1678: cln_debug_pub.Add('--- Calling PO_CHG_REQUEST_GRP.initialize_chn_ack_inbound ----- ',1);
1679: END IF;
1680: PO_CHG_REQUEST_GRP.initialize_chn_ack_inbound (
1681: p_requestor => p_requestor,
1682: p_int_cont_num => p_int_cont_num,
1686: x_error_id => l_error_id,
1687: x_error_status => l_error_status);
1688:
1689: IF (l_Debug_Level <= 2) THEN
1690: cln_debug_pub.Add('ERROR ID : ' || l_error_id,1);
1691: cln_debug_pub.Add('ERROR STATUS : ' || l_error_status,1);
1692: END IF;
1693:
1694: -- If initialize_chn_ack_inbound errored out
1687: x_error_status => l_error_status);
1688:
1689: IF (l_Debug_Level <= 2) THEN
1690: cln_debug_pub.Add('ERROR ID : ' || l_error_id,1);
1691: cln_debug_pub.Add('ERROR STATUS : ' || l_error_status,1);
1692: END IF;
1693:
1694: -- If initialize_chn_ack_inbound errored out
1695: IF l_error_id IS NOT NULL AND l_error_id <> 0 THEN
1697: l_msg_data := l_error_status;
1698: RAISE FND_API.G_EXC_ERROR;
1699: END IF;
1700: IF (l_Debug_Level <= 2) THEN
1701: cln_debug_pub.Add('PO_CHG_REQUEST_GRP.initialize_chn_ack_inbound returned Success',1);
1702: END IF;
1703: END IF;
1704:
1705: l_action := p_collaboration_type;
1715: END IF;
1716:
1717: SELECT meaning INTO l_action FROM fnd_lookups
1718: WHERE lookup_code = p_collaboration_type AND lookup_type = 'CLN_COLLABORATION_TYPE';
1719: cln_debug_pub.Add('Collaboration Type found as - '||l_action,1);
1720:
1721: EXCEPTION
1722: WHEN NO_DATA_FOUND THEN
1723: l_msg_data := 'Collaboration Type not found for the lookup_code as ORDER and lookup_type as CLN_COLLABORATION_TYPE ';
1731: l_action := 'Acknowledge PO';
1732: END IF;
1733:
1734: IF (l_Debug_Level <= 2) THEN
1735: cln_debug_pub.Add('Action is set as : '||l_action,1);
1736: cln_debug_pub.Add('Return status is : '||x_return_status,1);
1737: END IF;
1738:
1739: -- get the sequence number for Transaction id.
1732: END IF;
1733:
1734: IF (l_Debug_Level <= 2) THEN
1735: cln_debug_pub.Add('Action is set as : '||l_action,1);
1736: cln_debug_pub.Add('Return status is : '||x_return_status,1);
1737: END IF;
1738:
1739: -- get the sequence number for Transaction id.
1740: select cln_generic_s.NEXTVAL INTO l_txn_id FROM DUAL;
1738:
1739: -- get the sequence number for Transaction id.
1740: select cln_generic_s.NEXTVAL INTO l_txn_id FROM DUAL;
1741: IF (l_Debug_Level <= 2) THEN
1742: cln_debug_pub.Add('Transaction ID :' || l_txn_id, 1);
1743: END IF;
1744:
1745: -- Find the Request Type
1746: IF p_ackcode_header = 1 THEN
1748: ELSE
1749: l_request_type := 'ACKNOWLEDGE';
1750: END IF;
1751: IF (l_Debug_Level <= 2) THEN
1752: cln_debug_pub.Add('PO Request Type is : ' || l_request_type,1);
1753: END IF;
1754:
1755: -- Identify PO Type based on release number
1756: l_po_type := 'STANDARD';
1758: IF (p_release_number IS NOT NULL AND p_release_number > 0) THEN
1759: l_po_type := 'RELEASE';
1760: END IF;
1761: IF (l_Debug_Level <= 2) THEN
1762: cln_debug_pub.Add('PO Type is : ' || l_po_type,1);
1763: cln_debug_pub.Add('--- Calling PO_CHG_REQUEST_GRP.validate_header ----- ',1);
1764: END IF;
1765:
1766:
1759: l_po_type := 'RELEASE';
1760: END IF;
1761: IF (l_Debug_Level <= 2) THEN
1762: cln_debug_pub.Add('PO Type is : ' || l_po_type,1);
1763: cln_debug_pub.Add('--- Calling PO_CHG_REQUEST_GRP.validate_header ----- ',1);
1764: END IF;
1765:
1766:
1767: IF (l_call_po_apis = 'YES') THEN
1783: x_error_id_out => l_error_id,
1784: x_error_status_out => l_error_status);
1785:
1786: IF (l_Debug_Level <= 2) THEN
1787: cln_debug_pub.Add('ERROR ID : ' || l_error_id,1);
1788: cln_debug_pub.Add('ERROR STATUS : ' || l_error_status,1);
1789: END IF;
1790:
1791: -- If validate header errored out
1784: x_error_status_out => l_error_status);
1785:
1786: IF (l_Debug_Level <= 2) THEN
1787: cln_debug_pub.Add('ERROR ID : ' || l_error_id,1);
1788: cln_debug_pub.Add('ERROR STATUS : ' || l_error_status,1);
1789: END IF;
1790:
1791: -- If validate header errored out
1792: IF l_error_id IS NOT NULL AND l_error_id <> 0 THEN
1794: l_msg_data := l_error_status;
1795: RAISE FND_API.G_EXC_ERROR;
1796: END IF;
1797: IF (l_Debug_Level <= 2) THEN
1798: cln_debug_pub.Add('PO_CHG_REQUEST_GRP.validate_header returned Success',1);
1799: END IF;
1800: END IF;
1801:
1802: IF (l_call_po_apis = 'YES') THEN -- should not be called for 3A9 and 3A8 Response
1801:
1802: IF (l_call_po_apis = 'YES') THEN -- should not be called for 3A9 and 3A8 Response
1803: IF (l_request_type = 'ACKNOWLEDGE') THEN
1804: IF (l_Debug_Level <= 2) THEN
1805: cln_debug_pub.Add('--- Calling PO_CHG_REQUEST_GRP.acknowledge_po ----- ',1);
1806: END IF;
1807: IF p_ackcode_header = 3 THEN --If pending treat it as accept
1808: l_po_ackcode := 0;
1809: ELSE
1825: x_error_status => l_error_status -- Error message
1826: );
1827:
1828: IF (l_Debug_Level <= 2) THEN
1829: cln_debug_pub.Add('ERROR ID : ' || l_error_id,1);
1830: cln_debug_pub.Add('ERROR STATUS : ' || l_error_status,1);
1831: END IF;
1832:
1833: IF l_error_id IS NOT NULL AND l_error_id <> 0 THEN
1826: );
1827:
1828: IF (l_Debug_Level <= 2) THEN
1829: cln_debug_pub.Add('ERROR ID : ' || l_error_id,1);
1830: cln_debug_pub.Add('ERROR STATUS : ' || l_error_status,1);
1831: END IF;
1832:
1833: IF l_error_id IS NOT NULL AND l_error_id <> 0 THEN
1834: x_msg_data := l_error_status;
1851: x_return_status_tp := '00';
1852: x_call_po_apis := l_call_po_apis;
1853:
1854: IF (l_Debug_Level <= 2) THEN
1855: cln_debug_pub.Add('Notification Code set as :'||x_notification_code,1);
1856: cln_debug_pub.Add('Notification Status set as :'||x_notification_status,1);
1857: cln_debug_pub.Add('Return Status set as :'||x_notification_code,1);
1858: END IF;
1859:
1852: x_call_po_apis := l_call_po_apis;
1853:
1854: IF (l_Debug_Level <= 2) THEN
1855: cln_debug_pub.Add('Notification Code set as :'||x_notification_code,1);
1856: cln_debug_pub.Add('Notification Status set as :'||x_notification_status,1);
1857: cln_debug_pub.Add('Return Status set as :'||x_notification_code,1);
1858: END IF;
1859:
1860: IF (l_Debug_Level <= 2) THEN
1853:
1854: IF (l_Debug_Level <= 2) THEN
1855: cln_debug_pub.Add('Notification Code set as :'||x_notification_code,1);
1856: cln_debug_pub.Add('Notification Status set as :'||x_notification_status,1);
1857: cln_debug_pub.Add('Return Status set as :'||x_notification_code,1);
1858: END IF;
1859:
1860: IF (l_Debug_Level <= 2) THEN
1861: cln_debug_pub.Add('---- Exiting PROCESS_HEADER API ----- ', 2);
1857: cln_debug_pub.Add('Return Status set as :'||x_notification_code,1);
1858: END IF;
1859:
1860: IF (l_Debug_Level <= 2) THEN
1861: cln_debug_pub.Add('---- Exiting PROCESS_HEADER API ----- ', 2);
1862: END IF;
1863:
1864: -- Exception Handling
1865: EXCEPTION
1874: x_msg_data := FND_MESSAGE.GET;
1875: x_call_po_apis := 'NO';
1876:
1877: IF (l_Debug_Level <= 5) THEN
1878: cln_debug_pub.Add(l_msg_data,4);
1879: cln_debug_pub.Add('---- ERROR :Exiting PROCESS_HEADER API ----- ', 2);
1880: END IF;
1881:
1882:
1875: x_call_po_apis := 'NO';
1876:
1877: IF (l_Debug_Level <= 5) THEN
1878: cln_debug_pub.Add(l_msg_data,4);
1879: cln_debug_pub.Add('---- ERROR :Exiting PROCESS_HEADER API ----- ', 2);
1880: END IF;
1881:
1882:
1883: WHEN OTHERS THEN
1897: FND_MESSAGE.SET_TOKEN('MSG',x_msg_data);
1898: x_msg_data := FND_MESSAGE.GET;
1899: l_msg_data :='Unexpected Error -'||l_error_code||' : '||l_error_msg;
1900: IF (l_Debug_Level <= 5) THEN
1901: cln_debug_pub.Add(l_msg_data,6);
1902: cln_debug_pub.Add('---- ERROR :Exiting PROCESS_HEADER API ----- ', 2);
1903: END IF;
1904:
1905: END PROCESS_HEADER_RN;
1898: x_msg_data := FND_MESSAGE.GET;
1899: l_msg_data :='Unexpected Error -'||l_error_code||' : '||l_error_msg;
1900: IF (l_Debug_Level <= 5) THEN
1901: cln_debug_pub.Add(l_msg_data,6);
1902: cln_debug_pub.Add('---- ERROR :Exiting PROCESS_HEADER API ----- ', 2);
1903: END IF;
1904:
1905: END PROCESS_HEADER_RN;
1906:
1977:
1978: BEGIN
1979:
1980: -- Sets the debug mode to be FILE
1981: --l_debug_mode := cln_debug_pub.Set_Debug_Mode('FILE');
1982:
1983: IF (l_Debug_Level <= 2) THEN
1984: cln_debug_pub.Add('----- Entering PROCESS_HEADER_LINES API ------- ',2);
1985: END IF;
1980: -- Sets the debug mode to be FILE
1981: --l_debug_mode := cln_debug_pub.Set_Debug_Mode('FILE');
1982:
1983: IF (l_Debug_Level <= 2) THEN
1984: cln_debug_pub.Add('----- Entering PROCESS_HEADER_LINES API ------- ',2);
1985: END IF;
1986:
1987: l_msg_txt_lines := p_msg_txt_lines;
1988:
1999: l_msg_data := 'ACKPO successfully consumed for PO : '||p_po_number||' with Line : '||p_line_number;
2000:
2001: -- Parameters received
2002: IF (l_Debug_Level <= 1) THEN
2003: cln_debug_pub.Add('----- PARAMETERS RECEIVED ------- ',1);
2004: cln_debug_pub.Add('Status received - '||x_return_status,1);
2005: cln_debug_pub.Add('Message received - '||x_msg_data,1);
2006: cln_debug_pub.Add('PO Number - '||p_po_number,1);
2007: cln_debug_pub.Add('Release Number - '||p_release_number,1);
2000:
2001: -- Parameters received
2002: IF (l_Debug_Level <= 1) THEN
2003: cln_debug_pub.Add('----- PARAMETERS RECEIVED ------- ',1);
2004: cln_debug_pub.Add('Status received - '||x_return_status,1);
2005: cln_debug_pub.Add('Message received - '||x_msg_data,1);
2006: cln_debug_pub.Add('PO Number - '||p_po_number,1);
2007: cln_debug_pub.Add('Release Number - '||p_release_number,1);
2008: cln_debug_pub.Add('Revision Number - '||p_revision_number,1);
2001: -- Parameters received
2002: IF (l_Debug_Level <= 1) THEN
2003: cln_debug_pub.Add('----- PARAMETERS RECEIVED ------- ',1);
2004: cln_debug_pub.Add('Status received - '||x_return_status,1);
2005: cln_debug_pub.Add('Message received - '||x_msg_data,1);
2006: cln_debug_pub.Add('PO Number - '||p_po_number,1);
2007: cln_debug_pub.Add('Release Number - '||p_release_number,1);
2008: cln_debug_pub.Add('Revision Number - '||p_revision_number,1);
2009: cln_debug_pub.Add('Previous Line Number - '||p_previous_line_number,1);
2002: IF (l_Debug_Level <= 1) THEN
2003: cln_debug_pub.Add('----- PARAMETERS RECEIVED ------- ',1);
2004: cln_debug_pub.Add('Status received - '||x_return_status,1);
2005: cln_debug_pub.Add('Message received - '||x_msg_data,1);
2006: cln_debug_pub.Add('PO Number - '||p_po_number,1);
2007: cln_debug_pub.Add('Release Number - '||p_release_number,1);
2008: cln_debug_pub.Add('Revision Number - '||p_revision_number,1);
2009: cln_debug_pub.Add('Previous Line Number - '||p_previous_line_number,1);
2010: cln_debug_pub.Add('Line Number - '||p_line_number,1);
2003: cln_debug_pub.Add('----- PARAMETERS RECEIVED ------- ',1);
2004: cln_debug_pub.Add('Status received - '||x_return_status,1);
2005: cln_debug_pub.Add('Message received - '||x_msg_data,1);
2006: cln_debug_pub.Add('PO Number - '||p_po_number,1);
2007: cln_debug_pub.Add('Release Number - '||p_release_number,1);
2008: cln_debug_pub.Add('Revision Number - '||p_revision_number,1);
2009: cln_debug_pub.Add('Previous Line Number - '||p_previous_line_number,1);
2010: cln_debug_pub.Add('Line Number - '||p_line_number,1);
2011: cln_debug_pub.Add('Shipment Number - '||p_shipment_number,1);
2004: cln_debug_pub.Add('Status received - '||x_return_status,1);
2005: cln_debug_pub.Add('Message received - '||x_msg_data,1);
2006: cln_debug_pub.Add('PO Number - '||p_po_number,1);
2007: cln_debug_pub.Add('Release Number - '||p_release_number,1);
2008: cln_debug_pub.Add('Revision Number - '||p_revision_number,1);
2009: cln_debug_pub.Add('Previous Line Number - '||p_previous_line_number,1);
2010: cln_debug_pub.Add('Line Number - '||p_line_number,1);
2011: cln_debug_pub.Add('Shipment Number - '||p_shipment_number,1);
2012: cln_debug_pub.Add('New Quantity - '||p_new_quantity,1);
2005: cln_debug_pub.Add('Message received - '||x_msg_data,1);
2006: cln_debug_pub.Add('PO Number - '||p_po_number,1);
2007: cln_debug_pub.Add('Release Number - '||p_release_number,1);
2008: cln_debug_pub.Add('Revision Number - '||p_revision_number,1);
2009: cln_debug_pub.Add('Previous Line Number - '||p_previous_line_number,1);
2010: cln_debug_pub.Add('Line Number - '||p_line_number,1);
2011: cln_debug_pub.Add('Shipment Number - '||p_shipment_number,1);
2012: cln_debug_pub.Add('New Quantity - '||p_new_quantity,1);
2013: cln_debug_pub.Add('New Price - '||p_new_price,1);
2006: cln_debug_pub.Add('PO Number - '||p_po_number,1);
2007: cln_debug_pub.Add('Release Number - '||p_release_number,1);
2008: cln_debug_pub.Add('Revision Number - '||p_revision_number,1);
2009: cln_debug_pub.Add('Previous Line Number - '||p_previous_line_number,1);
2010: cln_debug_pub.Add('Line Number - '||p_line_number,1);
2011: cln_debug_pub.Add('Shipment Number - '||p_shipment_number,1);
2012: cln_debug_pub.Add('New Quantity - '||p_new_quantity,1);
2013: cln_debug_pub.Add('New Price - '||p_new_price,1);
2014: cln_debug_pub.Add('Promised Date - '||p_new_promised_date,1);
2007: cln_debug_pub.Add('Release Number - '||p_release_number,1);
2008: cln_debug_pub.Add('Revision Number - '||p_revision_number,1);
2009: cln_debug_pub.Add('Previous Line Number - '||p_previous_line_number,1);
2010: cln_debug_pub.Add('Line Number - '||p_line_number,1);
2011: cln_debug_pub.Add('Shipment Number - '||p_shipment_number,1);
2012: cln_debug_pub.Add('New Quantity - '||p_new_quantity,1);
2013: cln_debug_pub.Add('New Price - '||p_new_price,1);
2014: cln_debug_pub.Add('Promised Date - '||p_new_promised_date,1);
2015: cln_debug_pub.Add('Ackcode at header level - '||p_ackcode_header,1);
2008: cln_debug_pub.Add('Revision Number - '||p_revision_number,1);
2009: cln_debug_pub.Add('Previous Line Number - '||p_previous_line_number,1);
2010: cln_debug_pub.Add('Line Number - '||p_line_number,1);
2011: cln_debug_pub.Add('Shipment Number - '||p_shipment_number,1);
2012: cln_debug_pub.Add('New Quantity - '||p_new_quantity,1);
2013: cln_debug_pub.Add('New Price - '||p_new_price,1);
2014: cln_debug_pub.Add('Promised Date - '||p_new_promised_date,1);
2015: cln_debug_pub.Add('Ackcode at header level - '||p_ackcode_header,1);
2016: cln_debug_pub.Add('Ackcode at line level - '||p_ackcode_line,1);
2009: cln_debug_pub.Add('Previous Line Number - '||p_previous_line_number,1);
2010: cln_debug_pub.Add('Line Number - '||p_line_number,1);
2011: cln_debug_pub.Add('Shipment Number - '||p_shipment_number,1);
2012: cln_debug_pub.Add('New Quantity - '||p_new_quantity,1);
2013: cln_debug_pub.Add('New Price - '||p_new_price,1);
2014: cln_debug_pub.Add('Promised Date - '||p_new_promised_date,1);
2015: cln_debug_pub.Add('Ackcode at header level - '||p_ackcode_header,1);
2016: cln_debug_pub.Add('Ackcode at line level - '||p_ackcode_line,1);
2017: cln_debug_pub.Add('Collaboration Type - '||p_collaboration_type,1);
2010: cln_debug_pub.Add('Line Number - '||p_line_number,1);
2011: cln_debug_pub.Add('Shipment Number - '||p_shipment_number,1);
2012: cln_debug_pub.Add('New Quantity - '||p_new_quantity,1);
2013: cln_debug_pub.Add('New Price - '||p_new_price,1);
2014: cln_debug_pub.Add('Promised Date - '||p_new_promised_date,1);
2015: cln_debug_pub.Add('Ackcode at header level - '||p_ackcode_header,1);
2016: cln_debug_pub.Add('Ackcode at line level - '||p_ackcode_line,1);
2017: cln_debug_pub.Add('Collaboration Type - '||p_collaboration_type,1);
2018: cln_debug_pub.Add('Originator Reference - '||p_org_ref,1);
2011: cln_debug_pub.Add('Shipment Number - '||p_shipment_number,1);
2012: cln_debug_pub.Add('New Quantity - '||p_new_quantity,1);
2013: cln_debug_pub.Add('New Price - '||p_new_price,1);
2014: cln_debug_pub.Add('Promised Date - '||p_new_promised_date,1);
2015: cln_debug_pub.Add('Ackcode at header level - '||p_ackcode_header,1);
2016: cln_debug_pub.Add('Ackcode at line level - '||p_ackcode_line,1);
2017: cln_debug_pub.Add('Collaboration Type - '||p_collaboration_type,1);
2018: cln_debug_pub.Add('Originator Reference - '||p_org_ref,1);
2019: cln_debug_pub.Add('Collaboration ID - '||p_coll_id,1);
2012: cln_debug_pub.Add('New Quantity - '||p_new_quantity,1);
2013: cln_debug_pub.Add('New Price - '||p_new_price,1);
2014: cln_debug_pub.Add('Promised Date - '||p_new_promised_date,1);
2015: cln_debug_pub.Add('Ackcode at header level - '||p_ackcode_header,1);
2016: cln_debug_pub.Add('Ackcode at line level - '||p_ackcode_line,1);
2017: cln_debug_pub.Add('Collaboration Type - '||p_collaboration_type,1);
2018: cln_debug_pub.Add('Originator Reference - '||p_org_ref,1);
2019: cln_debug_pub.Add('Collaboration ID - '||p_coll_id,1);
2020: cln_debug_pub.Add('Detail Header Message - '||p_msg_dtl_screen,1);
2013: cln_debug_pub.Add('New Price - '||p_new_price,1);
2014: cln_debug_pub.Add('Promised Date - '||p_new_promised_date,1);
2015: cln_debug_pub.Add('Ackcode at header level - '||p_ackcode_header,1);
2016: cln_debug_pub.Add('Ackcode at line level - '||p_ackcode_line,1);
2017: cln_debug_pub.Add('Collaboration Type - '||p_collaboration_type,1);
2018: cln_debug_pub.Add('Originator Reference - '||p_org_ref,1);
2019: cln_debug_pub.Add('Collaboration ID - '||p_coll_id,1);
2020: cln_debug_pub.Add('Detail Header Message - '||p_msg_dtl_screen,1);
2021: cln_debug_pub.Add('Detail Line Message - '||p_msg_txt_lines,1);
2014: cln_debug_pub.Add('Promised Date - '||p_new_promised_date,1);
2015: cln_debug_pub.Add('Ackcode at header level - '||p_ackcode_header,1);
2016: cln_debug_pub.Add('Ackcode at line level - '||p_ackcode_line,1);
2017: cln_debug_pub.Add('Collaboration Type - '||p_collaboration_type,1);
2018: cln_debug_pub.Add('Originator Reference - '||p_org_ref,1);
2019: cln_debug_pub.Add('Collaboration ID - '||p_coll_id,1);
2020: cln_debug_pub.Add('Detail Header Message - '||p_msg_dtl_screen,1);
2021: cln_debug_pub.Add('Detail Line Message - '||p_msg_txt_lines,1);
2022: cln_debug_pub.Add('Internal Control Number - '||p_internal_control_number,1);
2015: cln_debug_pub.Add('Ackcode at header level - '||p_ackcode_header,1);
2016: cln_debug_pub.Add('Ackcode at line level - '||p_ackcode_line,1);
2017: cln_debug_pub.Add('Collaboration Type - '||p_collaboration_type,1);
2018: cln_debug_pub.Add('Originator Reference - '||p_org_ref,1);
2019: cln_debug_pub.Add('Collaboration ID - '||p_coll_id,1);
2020: cln_debug_pub.Add('Detail Header Message - '||p_msg_dtl_screen,1);
2021: cln_debug_pub.Add('Detail Line Message - '||p_msg_txt_lines,1);
2022: cln_debug_pub.Add('Internal Control Number - '||p_internal_control_number,1);
2023: cln_debug_pub.Add('Collaboration Updated - '||p_if_collaboration_updated,1);
2016: cln_debug_pub.Add('Ackcode at line level - '||p_ackcode_line,1);
2017: cln_debug_pub.Add('Collaboration Type - '||p_collaboration_type,1);
2018: cln_debug_pub.Add('Originator Reference - '||p_org_ref,1);
2019: cln_debug_pub.Add('Collaboration ID - '||p_coll_id,1);
2020: cln_debug_pub.Add('Detail Header Message - '||p_msg_dtl_screen,1);
2021: cln_debug_pub.Add('Detail Line Message - '||p_msg_txt_lines,1);
2022: cln_debug_pub.Add('Internal Control Number - '||p_internal_control_number,1);
2023: cln_debug_pub.Add('Collaboration Updated - '||p_if_collaboration_updated,1);
2024: cln_debug_pub.Add('Disposition - '||l_disposition,1);
2017: cln_debug_pub.Add('Collaboration Type - '||p_collaboration_type,1);
2018: cln_debug_pub.Add('Originator Reference - '||p_org_ref,1);
2019: cln_debug_pub.Add('Collaboration ID - '||p_coll_id,1);
2020: cln_debug_pub.Add('Detail Header Message - '||p_msg_dtl_screen,1);
2021: cln_debug_pub.Add('Detail Line Message - '||p_msg_txt_lines,1);
2022: cln_debug_pub.Add('Internal Control Number - '||p_internal_control_number,1);
2023: cln_debug_pub.Add('Collaboration Updated - '||p_if_collaboration_updated,1);
2024: cln_debug_pub.Add('Disposition - '||l_disposition,1);
2025: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2018: cln_debug_pub.Add('Originator Reference - '||p_org_ref,1);
2019: cln_debug_pub.Add('Collaboration ID - '||p_coll_id,1);
2020: cln_debug_pub.Add('Detail Header Message - '||p_msg_dtl_screen,1);
2021: cln_debug_pub.Add('Detail Line Message - '||p_msg_txt_lines,1);
2022: cln_debug_pub.Add('Internal Control Number - '||p_internal_control_number,1);
2023: cln_debug_pub.Add('Collaboration Updated - '||p_if_collaboration_updated,1);
2024: cln_debug_pub.Add('Disposition - '||l_disposition,1);
2025: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2026: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2019: cln_debug_pub.Add('Collaboration ID - '||p_coll_id,1);
2020: cln_debug_pub.Add('Detail Header Message - '||p_msg_dtl_screen,1);
2021: cln_debug_pub.Add('Detail Line Message - '||p_msg_txt_lines,1);
2022: cln_debug_pub.Add('Internal Control Number - '||p_internal_control_number,1);
2023: cln_debug_pub.Add('Collaboration Updated - '||p_if_collaboration_updated,1);
2024: cln_debug_pub.Add('Disposition - '||l_disposition,1);
2025: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2026: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2027: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2020: cln_debug_pub.Add('Detail Header Message - '||p_msg_dtl_screen,1);
2021: cln_debug_pub.Add('Detail Line Message - '||p_msg_txt_lines,1);
2022: cln_debug_pub.Add('Internal Control Number - '||p_internal_control_number,1);
2023: cln_debug_pub.Add('Collaboration Updated - '||p_if_collaboration_updated,1);
2024: cln_debug_pub.Add('Disposition - '||l_disposition,1);
2025: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2026: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2027: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2028: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2021: cln_debug_pub.Add('Detail Line Message - '||p_msg_txt_lines,1);
2022: cln_debug_pub.Add('Internal Control Number - '||p_internal_control_number,1);
2023: cln_debug_pub.Add('Collaboration Updated - '||p_if_collaboration_updated,1);
2024: cln_debug_pub.Add('Disposition - '||l_disposition,1);
2025: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2026: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2027: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2028: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2029: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2022: cln_debug_pub.Add('Internal Control Number - '||p_internal_control_number,1);
2023: cln_debug_pub.Add('Collaboration Updated - '||p_if_collaboration_updated,1);
2024: cln_debug_pub.Add('Disposition - '||l_disposition,1);
2025: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2026: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2027: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2028: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2029: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2030: cln_debug_pub.Add('----------------------------------',1);
2023: cln_debug_pub.Add('Collaboration Updated - '||p_if_collaboration_updated,1);
2024: cln_debug_pub.Add('Disposition - '||l_disposition,1);
2025: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2026: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2027: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2028: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2029: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2030: cln_debug_pub.Add('----------------------------------',1);
2031: END IF;
2024: cln_debug_pub.Add('Disposition - '||l_disposition,1);
2025: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2026: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2027: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2028: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2029: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2030: cln_debug_pub.Add('----------------------------------',1);
2031: END IF;
2032:
2025: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2026: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2027: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2028: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2029: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2030: cln_debug_pub.Add('----------------------------------',1);
2031: END IF;
2032:
2033: -- get the sequence number for Transaction id.
2026: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2027: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2028: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2029: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2030: cln_debug_pub.Add('----------------------------------',1);
2031: END IF;
2032:
2033: -- get the sequence number for Transaction id.
2034: select cln_generic_s.NEXTVAL INTO l_txn_id FROM DUAL;
2032:
2033: -- get the sequence number for Transaction id.
2034: select cln_generic_s.NEXTVAL INTO l_txn_id FROM DUAL;
2035: IF (l_Debug_Level <= 1) THEN
2036: cln_debug_pub.Add('Transaction ID:' || l_txn_id, 1);
2037: END IF;
2038:
2039: -- Identify PO Type based on release number
2040:
2042:
2043: IF (p_release_number IS NOT NULL AND p_release_number > 0) THEN
2044: l_po_type := 'RELEASE';
2045: END IF;
2046: cln_debug_pub.Add('PO Type is : ' || l_po_type,1);
2047:
2048:
2049: IF((p_ackcode_header = 1 and p_ackcode_line = 1) AND ((p_collaboration_type = 'ORDER') or (p_collaboration_type = 'ACKNOWLEDGE_PO'))) THEN
2050: IF l_po_type = 'RELEASE' THEN
2048:
2049: IF((p_ackcode_header = 1 and p_ackcode_line = 1) AND ((p_collaboration_type = 'ORDER') or (p_collaboration_type = 'ACKNOWLEDGE_PO'))) THEN
2050: IF l_po_type = 'RELEASE' THEN
2051: IF (l_Debug_Level <= 1) THEN
2052: cln_debug_pub.Add('Calling PO_CHG_REQUEST_GRP.store_supplier_request API For PO Release',1);
2053: END IF;
2054: PO_CHG_REQUEST_GRP.store_supplier_request (
2055: p_requestor => p_requestor,
2056: p_int_cont_num => p_internal_control_number,
2089:
2090:
2091:
2092: IF (l_Debug_Level <= 1) THEN
2093: cln_debug_pub.Add('ERROR ID : ' || l_error_id,1);
2094: END IF;
2095: IF (l_Debug_Level <= 1) THEN
2096: cln_debug_pub.Add('ERROR STATUS : ' || l_error_status,1);
2097: END IF;
2092: IF (l_Debug_Level <= 1) THEN
2093: cln_debug_pub.Add('ERROR ID : ' || l_error_id,1);
2094: END IF;
2095: IF (l_Debug_Level <= 1) THEN
2096: cln_debug_pub.Add('ERROR STATUS : ' || l_error_status,1);
2097: END IF;
2098:
2099: IF l_error_id IS NOT NULL AND l_error_id <> 0 THEN
2100: x_msg_data := l_error_status;
2104:
2105: ELSE
2106:
2107: IF (l_Debug_Level <= 1) THEN
2108: cln_debug_pub.Add('Previous and new line number are not same..',1);
2109: END IF;
2110: IF (p_previous_line_number <> p_line_number) THEN
2111: IF (l_Debug_Level <= 1) THEN
2112: cln_debug_pub.Add('Calling PO_CHG_REQUEST_GRP.store_supplier_request API For Standard PO',1);
2108: cln_debug_pub.Add('Previous and new line number are not same..',1);
2109: END IF;
2110: IF (p_previous_line_number <> p_line_number) THEN
2111: IF (l_Debug_Level <= 1) THEN
2112: cln_debug_pub.Add('Calling PO_CHG_REQUEST_GRP.store_supplier_request API For Standard PO',1);
2113: cln_debug_pub.Add('Call is at Line Level......',1);
2114: END IF;
2115: p_previous_line_number := p_line_number;
2116:
2109: END IF;
2110: IF (p_previous_line_number <> p_line_number) THEN
2111: IF (l_Debug_Level <= 1) THEN
2112: cln_debug_pub.Add('Calling PO_CHG_REQUEST_GRP.store_supplier_request API For Standard PO',1);
2113: cln_debug_pub.Add('Call is at Line Level......',1);
2114: END IF;
2115: p_previous_line_number := p_line_number;
2116:
2117: IF IS_ALREADY_PROCESSED_LINE(p_line_number) THEN
2117: IF IS_ALREADY_PROCESSED_LINE(p_line_number) THEN
2118: -- Nothing to do since the changes happens only once per each po line
2119: -- Collaboration history too is not updated
2120: IF (l_Debug_Level <= 1) THEN
2121: cln_debug_pub.Add('Since this an already processed line, Nothing to do', 1);
2122: END IF;
2123: RETURN;
2124: END IF;
2125:
2160: p_supplier_shipment_ref => p_supplier_shipment_ref*/);
2161:
2162:
2163: IF (l_Debug_Level <= 1) THEN
2164: cln_debug_pub.Add('ERROR ID : ' || l_error_id,1);
2165: cln_debug_pub.Add('ERROR STATUS : ' || l_error_status,1);
2166: END IF;
2167: END IF;
2168: END IF;
2161:
2162:
2163: IF (l_Debug_Level <= 1) THEN
2164: cln_debug_pub.Add('ERROR ID : ' || l_error_id,1);
2165: cln_debug_pub.Add('ERROR STATUS : ' || l_error_status,1);
2166: END IF;
2167: END IF;
2168: END IF;
2169:
2167: END IF;
2168: END IF;
2169:
2170: IF (l_Debug_Level <= 1) THEN
2171: cln_debug_pub.Add('Calling PO_CHG_REQUEST_GRP.store_supplier_request API For Standard PO',1);
2172: cln_debug_pub.Add('Call is at Shipment Line Level......',1);
2173: END IF;
2174: PO_CHG_REQUEST_GRP.store_supplier_request (
2175: p_requestor => p_requestor,
2168: END IF;
2169:
2170: IF (l_Debug_Level <= 1) THEN
2171: cln_debug_pub.Add('Calling PO_CHG_REQUEST_GRP.store_supplier_request API For Standard PO',1);
2172: cln_debug_pub.Add('Call is at Shipment Line Level......',1);
2173: END IF;
2174: PO_CHG_REQUEST_GRP.store_supplier_request (
2175: p_requestor => p_requestor,
2176: p_int_cont_num => p_internal_control_number,
2207: p_supplier_shipment_ref => p_supplier_shipment_ref*/);
2208:
2209:
2210: IF (l_Debug_Level <= 1) THEN
2211: cln_debug_pub.Add('ERROR ID : ' || l_error_id,1);
2212: cln_debug_pub.Add('ERROR STATUS : ' || l_error_status,1);
2213: END IF;
2214:
2215: IF l_error_id IS NOT NULL AND l_error_id <> 0 THEN
2208:
2209:
2210: IF (l_Debug_Level <= 1) THEN
2211: cln_debug_pub.Add('ERROR ID : ' || l_error_id,1);
2212: cln_debug_pub.Add('ERROR STATUS : ' || l_error_status,1);
2213: END IF;
2214:
2215: IF l_error_id IS NOT NULL AND l_error_id <> 0 THEN
2216: x_msg_data := l_error_status;
2227: END IF;
2228:
2229: /*
2230: IF l_error_id IS NULL OR l_error_id = 0 THEN
2231: cln_debug_pub.Add('Calling PO_CHG_REQUEST_GRP.process_supplier_request API',1);
2232:
2233: PO_CHG_REQUEST_GRP.process_supplier_request (
2234: p_int_cont_num => p_internal_control_number,
2235: x_error_id_in => l_error_id,
2237: x_error_id_out => l_error_id,
2238: x_error_status_out => l_error_status
2239: );
2240:
2241: cln_debug_pub.Add('ERROR ID : ' || l_error_id,1);
2242: cln_debug_pub.Add('ERROR STATUS : ' || l_error_status,1);
2243: END IF;
2244: */
2245: END IF;
2238: x_error_status_out => l_error_status
2239: );
2240:
2241: cln_debug_pub.Add('ERROR ID : ' || l_error_id,1);
2242: cln_debug_pub.Add('ERROR STATUS : ' || l_error_status,1);
2243: END IF;
2244: */
2245: END IF;
2246:
2252:
2253:
2254: IF ((p_cln_required = 'TRUE') AND (p_if_collaboration_updated = 'FALSE'))THEN
2255: IF (l_Debug_Level <= 1) THEN
2256: cln_debug_pub.Add('Call to Raise Update Event.....',1);
2257: END IF;
2258: RAISE_UPDATE_EVENT(
2259: x_return_status => x_return_status,
2260: x_msg_data => x_msg_data,
2284: l_dtl_status := 'Pending';
2285: END IF;
2286:
2287: IF (l_Debug_Level <= 1) THEN
2288: cln_debug_pub.Add('Call to Raise Message Event.....',1);
2289: END IF;
2290: RAISE_ADD_MSG_EVENT(
2291: x_return_status => x_return_status,
2292: x_msg_data => x_msg_data,
2314: p_msg_txt_lines := NULL;
2315: x_return_status := FND_API.G_RET_STS_SUCCESS;
2316:
2317: IF (l_Debug_Level <= 1) THEN
2318: cln_debug_pub.Add(l_msg_data,1);
2319: END IF;
2320: IF (l_Debug_Level <= 2) THEN
2321: cln_debug_pub.Add('------- Exiting PROCESS_HEADER_LINES API --------- ',2);
2322: END IF;
2317: IF (l_Debug_Level <= 1) THEN
2318: cln_debug_pub.Add(l_msg_data,1);
2319: END IF;
2320: IF (l_Debug_Level <= 2) THEN
2321: cln_debug_pub.Add('------- Exiting PROCESS_HEADER_LINES API --------- ',2);
2322: END IF;
2323:
2324: -- Exception Handling
2325: EXCEPTION
2332: FND_MESSAGE.SET_TOKEN('REVNUM',p_revision_number);
2333: FND_MESSAGE.SET_TOKEN('MSG',x_msg_data);
2334: x_msg_data := FND_MESSAGE.GET;
2335: IF (l_Debug_Level <= 5) THEN
2336: cln_debug_pub.Add(l_msg_data,4);
2337: cln_debug_pub.Add('------- ERROR :Exiting PROCESS_HEADER_LINES API --------- ',2);
2338: END IF;
2339:
2340:
2333: FND_MESSAGE.SET_TOKEN('MSG',x_msg_data);
2334: x_msg_data := FND_MESSAGE.GET;
2335: IF (l_Debug_Level <= 5) THEN
2336: cln_debug_pub.Add(l_msg_data,4);
2337: cln_debug_pub.Add('------- ERROR :Exiting PROCESS_HEADER_LINES API --------- ',2);
2338: END IF;
2339:
2340:
2341: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2343: l_error_msg :=SQLERRM;
2344: x_return_status :=FND_API.G_RET_STS_UNEXP_ERROR ;
2345: l_msg_data :=l_error_code||' : '||l_error_msg;
2346: IF (l_Debug_Level <= 5) THEN
2347: cln_debug_pub.Add(l_msg_data,6);
2348: cln_debug_pub.Add('------- ERROR :Exiting PROCESS_HEADER_LINES API --------- ',2);
2349: END IF;
2350:
2351: WHEN OTHERS THEN
2344: x_return_status :=FND_API.G_RET_STS_UNEXP_ERROR ;
2345: l_msg_data :=l_error_code||' : '||l_error_msg;
2346: IF (l_Debug_Level <= 5) THEN
2347: cln_debug_pub.Add(l_msg_data,6);
2348: cln_debug_pub.Add('------- ERROR :Exiting PROCESS_HEADER_LINES API --------- ',2);
2349: END IF;
2350:
2351: WHEN OTHERS THEN
2352: l_error_code :=SQLCODE;
2357: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
2358: x_msg_data :=FND_MESSAGE.GET;
2359: l_msg_data :='Unexpected Error in PROCESS_HEADER_LINES -'||l_error_code||' : '||l_error_msg;
2360: IF (l_Debug_Level <= 5) THEN
2361: cln_debug_pub.Add(l_msg_data,6);
2362: cln_debug_pub.Add('------- ERROR :Exiting PROCESS_HEADER_LINES API --------- ',2);
2363: END IF;
2364:
2365: END PROCESS_HEADER_LINES_RN;
2358: x_msg_data :=FND_MESSAGE.GET;
2359: l_msg_data :='Unexpected Error in PROCESS_HEADER_LINES -'||l_error_code||' : '||l_error_msg;
2360: IF (l_Debug_Level <= 5) THEN
2361: cln_debug_pub.Add(l_msg_data,6);
2362: cln_debug_pub.Add('------- ERROR :Exiting PROCESS_HEADER_LINES API --------- ',2);
2363: END IF;
2364:
2365: END PROCESS_HEADER_LINES_RN;
2366:
2382: p_po_status_code IN VARCHAR2,
2383: x_po_ack_code OUT NOCOPY VARCHAR2) IS
2384: BEGIN
2385: IF (l_Debug_Level <= 2) THEN
2386: cln_debug_pub.Add('---- Entering CLN_GET_PO_AKC_CODE_RN API ----- ', 2);
2387: END IF;
2388:
2389: IF (l_Debug_Level <= 1) THEN
2390: cln_debug_pub.Add('----- PARAMETERS RECEIVED ------- ',1);
2386: cln_debug_pub.Add('---- Entering CLN_GET_PO_AKC_CODE_RN API ----- ', 2);
2387: END IF;
2388:
2389: IF (l_Debug_Level <= 1) THEN
2390: cln_debug_pub.Add('----- PARAMETERS RECEIVED ------- ',1);
2391: cln_debug_pub.Add('PO Ack Reason Code received - '||p_po_ack_reason_code,1);
2392: cln_debug_pub.Add('PO Status Code received - '||p_po_status_code,1);
2393: END IF;
2394:
2387: END IF;
2388:
2389: IF (l_Debug_Level <= 1) THEN
2390: cln_debug_pub.Add('----- PARAMETERS RECEIVED ------- ',1);
2391: cln_debug_pub.Add('PO Ack Reason Code received - '||p_po_ack_reason_code,1);
2392: cln_debug_pub.Add('PO Status Code received - '||p_po_status_code,1);
2393: END IF;
2394:
2395: IF (p_po_ack_reason_code = 'Accept with changes' AND p_po_status_code = 'Accept') THEN
2388:
2389: IF (l_Debug_Level <= 1) THEN
2390: cln_debug_pub.Add('----- PARAMETERS RECEIVED ------- ',1);
2391: cln_debug_pub.Add('PO Ack Reason Code received - '||p_po_ack_reason_code,1);
2392: cln_debug_pub.Add('PO Status Code received - '||p_po_status_code,1);
2393: END IF;
2394:
2395: IF (p_po_ack_reason_code = 'Accept with changes' AND p_po_status_code = 'Accept') THEN
2396: x_po_ack_code := 1;
2403: END IF;
2404:
2405:
2406: IF (l_Debug_Level <= 2) THEN
2407: cln_debug_pub.Add('---- Exiting CLN_GET_PO_AKC_CODE_RN API ----- ', 2);
2408: END IF;
2409:
2410: END CLN_GET_PO_ACK_CODE_RN;
2411:
2436:
2437: BEGIN
2438:
2439: IF (l_Debug_Level <= 2) THEN
2440: cln_debug_pub.Add('----- Entering UPDATE_COLL_FOR_HDR_ONLY_MSG API ------- ',2);
2441: END IF;
2442: IF (l_Debug_Level <= 1) THEN
2443: cln_debug_pub.Add('----- PARAMETERS RECEIVED ------- ',1);
2444: cln_debug_pub.Add('Status received - '||x_return_status,1);
2439: IF (l_Debug_Level <= 2) THEN
2440: cln_debug_pub.Add('----- Entering UPDATE_COLL_FOR_HDR_ONLY_MSG API ------- ',2);
2441: END IF;
2442: IF (l_Debug_Level <= 1) THEN
2443: cln_debug_pub.Add('----- PARAMETERS RECEIVED ------- ',1);
2444: cln_debug_pub.Add('Status received - '||x_return_status,1);
2445: cln_debug_pub.Add('Message received - '||x_msg_data,1);
2446: cln_debug_pub.Add('Ackcode at header level - '||p_ackcode_header,1);
2447: cln_debug_pub.Add('Originator Reference - '||p_org_ref,1);
2440: cln_debug_pub.Add('----- Entering UPDATE_COLL_FOR_HDR_ONLY_MSG API ------- ',2);
2441: END IF;
2442: IF (l_Debug_Level <= 1) THEN
2443: cln_debug_pub.Add('----- PARAMETERS RECEIVED ------- ',1);
2444: cln_debug_pub.Add('Status received - '||x_return_status,1);
2445: cln_debug_pub.Add('Message received - '||x_msg_data,1);
2446: cln_debug_pub.Add('Ackcode at header level - '||p_ackcode_header,1);
2447: cln_debug_pub.Add('Originator Reference - '||p_org_ref,1);
2448: cln_debug_pub.Add('Collaboration ID - '||p_coll_id,1);
2441: END IF;
2442: IF (l_Debug_Level <= 1) THEN
2443: cln_debug_pub.Add('----- PARAMETERS RECEIVED ------- ',1);
2444: cln_debug_pub.Add('Status received - '||x_return_status,1);
2445: cln_debug_pub.Add('Message received - '||x_msg_data,1);
2446: cln_debug_pub.Add('Ackcode at header level - '||p_ackcode_header,1);
2447: cln_debug_pub.Add('Originator Reference - '||p_org_ref,1);
2448: cln_debug_pub.Add('Collaboration ID - '||p_coll_id,1);
2449: cln_debug_pub.Add('Detail Header Message - '||p_message,1);
2442: IF (l_Debug_Level <= 1) THEN
2443: cln_debug_pub.Add('----- PARAMETERS RECEIVED ------- ',1);
2444: cln_debug_pub.Add('Status received - '||x_return_status,1);
2445: cln_debug_pub.Add('Message received - '||x_msg_data,1);
2446: cln_debug_pub.Add('Ackcode at header level - '||p_ackcode_header,1);
2447: cln_debug_pub.Add('Originator Reference - '||p_org_ref,1);
2448: cln_debug_pub.Add('Collaboration ID - '||p_coll_id,1);
2449: cln_debug_pub.Add('Detail Header Message - '||p_message,1);
2450: cln_debug_pub.Add('Internal Control Number - '||p_internal_control_number,1);
2443: cln_debug_pub.Add('----- PARAMETERS RECEIVED ------- ',1);
2444: cln_debug_pub.Add('Status received - '||x_return_status,1);
2445: cln_debug_pub.Add('Message received - '||x_msg_data,1);
2446: cln_debug_pub.Add('Ackcode at header level - '||p_ackcode_header,1);
2447: cln_debug_pub.Add('Originator Reference - '||p_org_ref,1);
2448: cln_debug_pub.Add('Collaboration ID - '||p_coll_id,1);
2449: cln_debug_pub.Add('Detail Header Message - '||p_message,1);
2450: cln_debug_pub.Add('Internal Control Number - '||p_internal_control_number,1);
2451: cln_debug_pub.Add('Collaboration Updated - '||p_if_collaboration_updated,1);
2444: cln_debug_pub.Add('Status received - '||x_return_status,1);
2445: cln_debug_pub.Add('Message received - '||x_msg_data,1);
2446: cln_debug_pub.Add('Ackcode at header level - '||p_ackcode_header,1);
2447: cln_debug_pub.Add('Originator Reference - '||p_org_ref,1);
2448: cln_debug_pub.Add('Collaboration ID - '||p_coll_id,1);
2449: cln_debug_pub.Add('Detail Header Message - '||p_message,1);
2450: cln_debug_pub.Add('Internal Control Number - '||p_internal_control_number,1);
2451: cln_debug_pub.Add('Collaboration Updated - '||p_if_collaboration_updated,1);
2452: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2445: cln_debug_pub.Add('Message received - '||x_msg_data,1);
2446: cln_debug_pub.Add('Ackcode at header level - '||p_ackcode_header,1);
2447: cln_debug_pub.Add('Originator Reference - '||p_org_ref,1);
2448: cln_debug_pub.Add('Collaboration ID - '||p_coll_id,1);
2449: cln_debug_pub.Add('Detail Header Message - '||p_message,1);
2450: cln_debug_pub.Add('Internal Control Number - '||p_internal_control_number,1);
2451: cln_debug_pub.Add('Collaboration Updated - '||p_if_collaboration_updated,1);
2452: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2453: cln_debug_pub.Add('----------------------------------',1);
2446: cln_debug_pub.Add('Ackcode at header level - '||p_ackcode_header,1);
2447: cln_debug_pub.Add('Originator Reference - '||p_org_ref,1);
2448: cln_debug_pub.Add('Collaboration ID - '||p_coll_id,1);
2449: cln_debug_pub.Add('Detail Header Message - '||p_message,1);
2450: cln_debug_pub.Add('Internal Control Number - '||p_internal_control_number,1);
2451: cln_debug_pub.Add('Collaboration Updated - '||p_if_collaboration_updated,1);
2452: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2453: cln_debug_pub.Add('----------------------------------',1);
2454: END IF;
2447: cln_debug_pub.Add('Originator Reference - '||p_org_ref,1);
2448: cln_debug_pub.Add('Collaboration ID - '||p_coll_id,1);
2449: cln_debug_pub.Add('Detail Header Message - '||p_message,1);
2450: cln_debug_pub.Add('Internal Control Number - '||p_internal_control_number,1);
2451: cln_debug_pub.Add('Collaboration Updated - '||p_if_collaboration_updated,1);
2452: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2453: cln_debug_pub.Add('----------------------------------',1);
2454: END IF;
2455: IF ((p_cln_required = 'TRUE') AND (p_if_collaboration_updated = 'FALSE'))THEN
2448: cln_debug_pub.Add('Collaboration ID - '||p_coll_id,1);
2449: cln_debug_pub.Add('Detail Header Message - '||p_message,1);
2450: cln_debug_pub.Add('Internal Control Number - '||p_internal_control_number,1);
2451: cln_debug_pub.Add('Collaboration Updated - '||p_if_collaboration_updated,1);
2452: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2453: cln_debug_pub.Add('----------------------------------',1);
2454: END IF;
2455: IF ((p_cln_required = 'TRUE') AND (p_if_collaboration_updated = 'FALSE'))THEN
2456:
2449: cln_debug_pub.Add('Detail Header Message - '||p_message,1);
2450: cln_debug_pub.Add('Internal Control Number - '||p_internal_control_number,1);
2451: cln_debug_pub.Add('Collaboration Updated - '||p_if_collaboration_updated,1);
2452: cln_debug_pub.Add('CLN reqd - '||p_cln_required,1);
2453: cln_debug_pub.Add('----------------------------------',1);
2454: END IF;
2455: IF ((p_cln_required = 'TRUE') AND (p_if_collaboration_updated = 'FALSE'))THEN
2456:
2457: IF(p_ackcode_header = 0) THEN
2468:
2469: -- Identify PO Type based on release number
2470:
2471: IF (l_Debug_Level <= 1) THEN
2472: cln_debug_pub.Add('Call to Raise Update Event.....',1);
2473: END IF;
2474: RAISE_UPDATE_EVENT(
2475: x_return_status => x_return_status,
2476: x_msg_data => x_msg_data,
2490: END IF;
2491:
2492: x_return_status := FND_API.G_RET_STS_SUCCESS;
2493: IF (l_Debug_Level <= 1) THEN
2494: cln_debug_pub.Add(l_msg_data,1);
2495: END IF;
2496: IF (l_Debug_Level <= 2) THEN
2497: cln_debug_pub.Add('------- Exiting UPDATE_COLL_FOR_HDR_ONLY_MSG API --------- ',2);
2498: END IF;
2493: IF (l_Debug_Level <= 1) THEN
2494: cln_debug_pub.Add(l_msg_data,1);
2495: END IF;
2496: IF (l_Debug_Level <= 2) THEN
2497: cln_debug_pub.Add('------- Exiting UPDATE_COLL_FOR_HDR_ONLY_MSG API --------- ',2);
2498: END IF;
2499:
2500: -- Exception Handling
2501: EXCEPTION
2506: l_error_msg :=SQLERRM;
2507: x_return_status :=FND_API.G_RET_STS_UNEXP_ERROR ;
2508: l_msg_data :=l_error_code||' : '||l_error_msg;
2509: IF (l_Debug_Level <= 5) THEN
2510: cln_debug_pub.Add(l_msg_data,6);
2511: cln_debug_pub.Add('------- ERROR :Exiting UPDATE_COLL_FOR_HDR_ONLY_MSG API --------- ',2);
2512: END IF;
2513:
2514: WHEN OTHERS THEN
2507: x_return_status :=FND_API.G_RET_STS_UNEXP_ERROR ;
2508: l_msg_data :=l_error_code||' : '||l_error_msg;
2509: IF (l_Debug_Level <= 5) THEN
2510: cln_debug_pub.Add(l_msg_data,6);
2511: cln_debug_pub.Add('------- ERROR :Exiting UPDATE_COLL_FOR_HDR_ONLY_MSG API --------- ',2);
2512: END IF;
2513:
2514: WHEN OTHERS THEN
2515: l_error_code :=SQLCODE;
2520: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
2521: x_msg_data :=FND_MESSAGE.GET;
2522: l_msg_data :='Unexpected Error in UPDATE_COLL_FOR_HDR_ONLY_MSG -'||l_error_code||' : '||l_error_msg;
2523: IF (l_Debug_Level <= 5) THEN
2524: cln_debug_pub.Add(l_msg_data,6);
2525: cln_debug_pub.Add('------- ERROR :Exiting UPDATE_COLL_FOR_HDR_ONLY_MSG API --------- ',2);
2526: END IF;
2527:
2528: END UPDATE_COLL_FOR_HDR_ONLY_MSG;
2521: x_msg_data :=FND_MESSAGE.GET;
2522: l_msg_data :='Unexpected Error in UPDATE_COLL_FOR_HDR_ONLY_MSG -'||l_error_code||' : '||l_error_msg;
2523: IF (l_Debug_Level <= 5) THEN
2524: cln_debug_pub.Add(l_msg_data,6);
2525: cln_debug_pub.Add('------- ERROR :Exiting UPDATE_COLL_FOR_HDR_ONLY_MSG API --------- ',2);
2526: END IF;
2527:
2528: END UPDATE_COLL_FOR_HDR_ONLY_MSG;
2529: