[Home] [Help]
29: IS
30: i binary_integer;
31: BEGIN
32: IF (l_Debug_Level <= 2) THEN
33: cln_debug_pub.Add('ENTERING PROCESS_ORDER_HEADER,p_requestor:' || p_line_num, 2);
34: END IF;
35:
36: i := l_line_num_tab.first();
37: while i is not null loop
35:
36: i := l_line_num_tab.first();
37: while i is not null loop
38: IF (l_Debug_Level <= 1) THEN
39: cln_debug_pub.Add('next element:' || l_line_num_tab(i), 1);
40: END IF;
41: IF (l_line_num_tab(i) = p_line_num ) THEN
42: IF (l_Debug_Level <= 2) THEN
43: cln_debug_pub.Add('EXITING PROCESS_ORDER_HEADER:Line is duplicate', 1);
39: cln_debug_pub.Add('next element:' || l_line_num_tab(i), 1);
40: END IF;
41: IF (l_line_num_tab(i) = p_line_num ) THEN
42: IF (l_Debug_Level <= 2) THEN
43: cln_debug_pub.Add('EXITING PROCESS_ORDER_HEADER:Line is duplicate', 1);
44: END IF;
45: RETURN TRUE;
46: END IF;
47: i := l_line_num_tab.next(i);
47: i := l_line_num_tab.next(i);
48: end loop;
49: l_line_num_tab(l_line_num_tab.count()+1) := p_line_num;
50: IF (l_Debug_Level <= 2) THEN
51: cln_debug_pub.Add('EXITING PROCESS_ORDER_HEADER:Line is not duplicate', 1);
52: END IF;
53: RETURN FALSE;
54: END;
55:
95: l_error_id NUMBER;
96: l_error_status VARCHAR2(1000);
97: BEGIN
98: -- Sets the debug mode to be FILE
99: --l_debug_mode := cln_debug_pub.Set_Debug_Mode('FILE');
100:
101: -- Initialize API return status to success
102: x_error_id_out := 0;
103: FND_MESSAGE.SET_NAME('CLN','CLN_G_RET_MSG_SUCCESS');
103: FND_MESSAGE.SET_NAME('CLN','CLN_G_RET_MSG_SUCCESS');
104: x_error_status_out := FND_MESSAGE.GET;
105:
106: IF (l_Debug_Level <= 2) THEN
107: cln_debug_pub.Add('ENTERING PROCESS_ORDER_HEADER', 2);
108: END IF;
109:
110: IF (l_Debug_Level <= 1) THEN
111: cln_debug_pub.Add('With the following parameters:', 1);
107: cln_debug_pub.Add('ENTERING PROCESS_ORDER_HEADER', 2);
108: END IF;
109:
110: IF (l_Debug_Level <= 1) THEN
111: cln_debug_pub.Add('With the following parameters:', 1);
112: cln_debug_pub.Add('p_requestor:' || p_requestor, 1);
113: cln_debug_pub.Add('p_int_cont_num:' || p_int_cont_num, 1);
114: cln_debug_pub.Add('p_app_ref_id:' || p_app_ref_id, 1);
115: cln_debug_pub.Add('p_request_origin:' || p_request_origin, 1);
108: END IF;
109:
110: IF (l_Debug_Level <= 1) THEN
111: cln_debug_pub.Add('With the following parameters:', 1);
112: cln_debug_pub.Add('p_requestor:' || p_requestor, 1);
113: cln_debug_pub.Add('p_int_cont_num:' || p_int_cont_num, 1);
114: cln_debug_pub.Add('p_app_ref_id:' || p_app_ref_id, 1);
115: cln_debug_pub.Add('p_request_origin:' || p_request_origin, 1);
116: cln_debug_pub.Add('p_request_type:' || p_request_type, 1);
109:
110: IF (l_Debug_Level <= 1) THEN
111: cln_debug_pub.Add('With the following parameters:', 1);
112: cln_debug_pub.Add('p_requestor:' || p_requestor, 1);
113: cln_debug_pub.Add('p_int_cont_num:' || p_int_cont_num, 1);
114: cln_debug_pub.Add('p_app_ref_id:' || p_app_ref_id, 1);
115: cln_debug_pub.Add('p_request_origin:' || p_request_origin, 1);
116: cln_debug_pub.Add('p_request_type:' || p_request_type, 1);
117: cln_debug_pub.Add('p_tp_id:' || p_tp_id, 1);
110: IF (l_Debug_Level <= 1) THEN
111: cln_debug_pub.Add('With the following parameters:', 1);
112: cln_debug_pub.Add('p_requestor:' || p_requestor, 1);
113: cln_debug_pub.Add('p_int_cont_num:' || p_int_cont_num, 1);
114: cln_debug_pub.Add('p_app_ref_id:' || p_app_ref_id, 1);
115: cln_debug_pub.Add('p_request_origin:' || p_request_origin, 1);
116: cln_debug_pub.Add('p_request_type:' || p_request_type, 1);
117: cln_debug_pub.Add('p_tp_id:' || p_tp_id, 1);
118: cln_debug_pub.Add('p_tp_site_id:' || p_tp_site_id, 1);
111: cln_debug_pub.Add('With the following parameters:', 1);
112: cln_debug_pub.Add('p_requestor:' || p_requestor, 1);
113: cln_debug_pub.Add('p_int_cont_num:' || p_int_cont_num, 1);
114: cln_debug_pub.Add('p_app_ref_id:' || p_app_ref_id, 1);
115: cln_debug_pub.Add('p_request_origin:' || p_request_origin, 1);
116: cln_debug_pub.Add('p_request_type:' || p_request_type, 1);
117: cln_debug_pub.Add('p_tp_id:' || p_tp_id, 1);
118: cln_debug_pub.Add('p_tp_site_id:' || p_tp_site_id, 1);
119: cln_debug_pub.Add('p_po_number:' || p_po_number, 1);
112: cln_debug_pub.Add('p_requestor:' || p_requestor, 1);
113: cln_debug_pub.Add('p_int_cont_num:' || p_int_cont_num, 1);
114: cln_debug_pub.Add('p_app_ref_id:' || p_app_ref_id, 1);
115: cln_debug_pub.Add('p_request_origin:' || p_request_origin, 1);
116: cln_debug_pub.Add('p_request_type:' || p_request_type, 1);
117: cln_debug_pub.Add('p_tp_id:' || p_tp_id, 1);
118: cln_debug_pub.Add('p_tp_site_id:' || p_tp_site_id, 1);
119: cln_debug_pub.Add('p_po_number:' || p_po_number, 1);
120: cln_debug_pub.Add('p_so_number:' || p_so_number, 1);
113: cln_debug_pub.Add('p_int_cont_num:' || p_int_cont_num, 1);
114: cln_debug_pub.Add('p_app_ref_id:' || p_app_ref_id, 1);
115: cln_debug_pub.Add('p_request_origin:' || p_request_origin, 1);
116: cln_debug_pub.Add('p_request_type:' || p_request_type, 1);
117: cln_debug_pub.Add('p_tp_id:' || p_tp_id, 1);
118: cln_debug_pub.Add('p_tp_site_id:' || p_tp_site_id, 1);
119: cln_debug_pub.Add('p_po_number:' || p_po_number, 1);
120: cln_debug_pub.Add('p_so_number:' || p_so_number, 1);
121: cln_debug_pub.Add('p_release_number:' || p_release_number, 1);
114: cln_debug_pub.Add('p_app_ref_id:' || p_app_ref_id, 1);
115: cln_debug_pub.Add('p_request_origin:' || p_request_origin, 1);
116: cln_debug_pub.Add('p_request_type:' || p_request_type, 1);
117: cln_debug_pub.Add('p_tp_id:' || p_tp_id, 1);
118: cln_debug_pub.Add('p_tp_site_id:' || p_tp_site_id, 1);
119: cln_debug_pub.Add('p_po_number:' || p_po_number, 1);
120: cln_debug_pub.Add('p_so_number:' || p_so_number, 1);
121: cln_debug_pub.Add('p_release_number:' || p_release_number, 1);
122: cln_debug_pub.Add('p_revision_num:' || p_revision_num, 1);
115: cln_debug_pub.Add('p_request_origin:' || p_request_origin, 1);
116: cln_debug_pub.Add('p_request_type:' || p_request_type, 1);
117: cln_debug_pub.Add('p_tp_id:' || p_tp_id, 1);
118: cln_debug_pub.Add('p_tp_site_id:' || p_tp_site_id, 1);
119: cln_debug_pub.Add('p_po_number:' || p_po_number, 1);
120: cln_debug_pub.Add('p_so_number:' || p_so_number, 1);
121: cln_debug_pub.Add('p_release_number:' || p_release_number, 1);
122: cln_debug_pub.Add('p_revision_num:' || p_revision_num, 1);
123: cln_debug_pub.Add('x_error_id_in:' || x_error_id_in, 1);
116: cln_debug_pub.Add('p_request_type:' || p_request_type, 1);
117: cln_debug_pub.Add('p_tp_id:' || p_tp_id, 1);
118: cln_debug_pub.Add('p_tp_site_id:' || p_tp_site_id, 1);
119: cln_debug_pub.Add('p_po_number:' || p_po_number, 1);
120: cln_debug_pub.Add('p_so_number:' || p_so_number, 1);
121: cln_debug_pub.Add('p_release_number:' || p_release_number, 1);
122: cln_debug_pub.Add('p_revision_num:' || p_revision_num, 1);
123: cln_debug_pub.Add('x_error_id_in:' || x_error_id_in, 1);
124: cln_debug_pub.Add('x_error_status_in:' || x_error_status_in, 1);
117: cln_debug_pub.Add('p_tp_id:' || p_tp_id, 1);
118: cln_debug_pub.Add('p_tp_site_id:' || p_tp_site_id, 1);
119: cln_debug_pub.Add('p_po_number:' || p_po_number, 1);
120: cln_debug_pub.Add('p_so_number:' || p_so_number, 1);
121: cln_debug_pub.Add('p_release_number:' || p_release_number, 1);
122: cln_debug_pub.Add('p_revision_num:' || p_revision_num, 1);
123: cln_debug_pub.Add('x_error_id_in:' || x_error_id_in, 1);
124: cln_debug_pub.Add('x_error_status_in:' || x_error_status_in, 1);
125: cln_debug_pub.Add('x_error_id_out:' || x_error_id_out, 1);
118: cln_debug_pub.Add('p_tp_site_id:' || p_tp_site_id, 1);
119: cln_debug_pub.Add('p_po_number:' || p_po_number, 1);
120: cln_debug_pub.Add('p_so_number:' || p_so_number, 1);
121: cln_debug_pub.Add('p_release_number:' || p_release_number, 1);
122: cln_debug_pub.Add('p_revision_num:' || p_revision_num, 1);
123: cln_debug_pub.Add('x_error_id_in:' || x_error_id_in, 1);
124: cln_debug_pub.Add('x_error_status_in:' || x_error_status_in, 1);
125: cln_debug_pub.Add('x_error_id_out:' || x_error_id_out, 1);
126: cln_debug_pub.Add('x_error_status_out:' || x_error_status_out, 1);
119: cln_debug_pub.Add('p_po_number:' || p_po_number, 1);
120: cln_debug_pub.Add('p_so_number:' || p_so_number, 1);
121: cln_debug_pub.Add('p_release_number:' || p_release_number, 1);
122: cln_debug_pub.Add('p_revision_num:' || p_revision_num, 1);
123: cln_debug_pub.Add('x_error_id_in:' || x_error_id_in, 1);
124: cln_debug_pub.Add('x_error_status_in:' || x_error_status_in, 1);
125: cln_debug_pub.Add('x_error_id_out:' || x_error_id_out, 1);
126: cln_debug_pub.Add('x_error_status_out:' || x_error_status_out, 1);
127:
120: cln_debug_pub.Add('p_so_number:' || p_so_number, 1);
121: cln_debug_pub.Add('p_release_number:' || p_release_number, 1);
122: cln_debug_pub.Add('p_revision_num:' || p_revision_num, 1);
123: cln_debug_pub.Add('x_error_id_in:' || x_error_id_in, 1);
124: cln_debug_pub.Add('x_error_status_in:' || x_error_status_in, 1);
125: cln_debug_pub.Add('x_error_id_out:' || x_error_id_out, 1);
126: cln_debug_pub.Add('x_error_status_out:' || x_error_status_out, 1);
127:
128: cln_debug_pub.Add('G_ERROR_ID:' || G_ERROR_ID, 1);
121: cln_debug_pub.Add('p_release_number:' || p_release_number, 1);
122: cln_debug_pub.Add('p_revision_num:' || p_revision_num, 1);
123: cln_debug_pub.Add('x_error_id_in:' || x_error_id_in, 1);
124: cln_debug_pub.Add('x_error_status_in:' || x_error_status_in, 1);
125: cln_debug_pub.Add('x_error_id_out:' || x_error_id_out, 1);
126: cln_debug_pub.Add('x_error_status_out:' || x_error_status_out, 1);
127:
128: cln_debug_pub.Add('G_ERROR_ID:' || G_ERROR_ID, 1);
129: cln_debug_pub.Add('G_ERROR_MESSAGE:' || G_ERROR_MESSAGE, 1);
122: cln_debug_pub.Add('p_revision_num:' || p_revision_num, 1);
123: cln_debug_pub.Add('x_error_id_in:' || x_error_id_in, 1);
124: cln_debug_pub.Add('x_error_status_in:' || x_error_status_in, 1);
125: cln_debug_pub.Add('x_error_id_out:' || x_error_id_out, 1);
126: cln_debug_pub.Add('x_error_status_out:' || x_error_status_out, 1);
127:
128: cln_debug_pub.Add('G_ERROR_ID:' || G_ERROR_ID, 1);
129: cln_debug_pub.Add('G_ERROR_MESSAGE:' || G_ERROR_MESSAGE, 1);
130: END IF;
124: cln_debug_pub.Add('x_error_status_in:' || x_error_status_in, 1);
125: cln_debug_pub.Add('x_error_id_out:' || x_error_id_out, 1);
126: cln_debug_pub.Add('x_error_status_out:' || x_error_status_out, 1);
127:
128: cln_debug_pub.Add('G_ERROR_ID:' || G_ERROR_ID, 1);
129: cln_debug_pub.Add('G_ERROR_MESSAGE:' || G_ERROR_MESSAGE, 1);
130: END IF;
131:
132:
125: cln_debug_pub.Add('x_error_id_out:' || x_error_id_out, 1);
126: cln_debug_pub.Add('x_error_status_out:' || x_error_status_out, 1);
127:
128: cln_debug_pub.Add('G_ERROR_ID:' || G_ERROR_ID, 1);
129: cln_debug_pub.Add('G_ERROR_MESSAGE:' || G_ERROR_MESSAGE, 1);
130: END IF;
131:
132:
133: -- Intialize call may be failed, hence consider the error id
138:
139: SAVEPOINT PO_UPDATE_TXN;
140:
141: IF (l_Debug_Level <= 1) THEN
142: cln_debug_pub.Add('G_ERROR_ID:' || G_ERROR_ID, 1);
143: cln_debug_pub.Add('G_ERROR_MESSAGE:' || G_ERROR_MESSAGE, 1);
144: END IF;
145:
146:
139: SAVEPOINT PO_UPDATE_TXN;
140:
141: IF (l_Debug_Level <= 1) THEN
142: cln_debug_pub.Add('G_ERROR_ID:' || G_ERROR_ID, 1);
143: cln_debug_pub.Add('G_ERROR_MESSAGE:' || G_ERROR_MESSAGE, 1);
144: END IF;
145:
146:
147: -- If and only if none has failed until now
149: -- Document Processed
150: FND_MESSAGE.SET_NAME('CLN','CLN_DOCUMENT_PROCESSED');
151: l_msg_text := FND_MESSAGE.GET;
152: IF (l_Debug_Level <= 1) THEN
153: cln_debug_pub.Add('l_msg_text:' || l_msg_text, 1);
154: END IF;
155:
156: RAISE_UPDATE_COLLABORATION(
157: x_return_status => l_return_status,
163: p_status_code => 0,
164: p_int_ctl_num => p_int_cont_num);
165: IF l_return_status <> 'S' THEN
166: IF (l_Debug_Level <= 1) THEN
167: cln_debug_pub.Add('RAISE_UPDATE_COLLABORATION CALL FAILED',1);
168: END IF;
169:
170: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
171: END IF;
175: IF (p_release_number IS NOT NULL AND p_release_number > 0) THEN
176: l_po_type := 'RELEASE';
177: END IF;
178: IF (l_Debug_Level <= 1) THEN
179: cln_debug_pub.Add('l_po_type:' || l_po_type,1);
180: END IF;
181:
182:
183: PO_CHG_REQUEST_GRP.validate_header (
196: x_error_status_in => l_error_status,
197: x_error_id_out => l_error_id,
198: x_error_status_out => l_error_status);
199: IF (l_Debug_Level <= 1) THEN
200: cln_debug_pub.Add('l_error_id:' || l_error_id,1);
201: cln_debug_pub.Add('l_error_status:' || l_error_status,1);
202: END IF;
203:
204:
197: x_error_id_out => l_error_id,
198: x_error_status_out => l_error_status);
199: IF (l_Debug_Level <= 1) THEN
200: cln_debug_pub.Add('l_error_id:' || l_error_id,1);
201: cln_debug_pub.Add('l_error_status:' || l_error_status,1);
202: END IF;
203:
204:
205: -- If validate header errored out
209: G_ERROR_MESSAGE := l_error_status;
210: x_error_id_out := l_error_id;
211: x_error_status_out:= l_error_status;
212: IF (l_Debug_Level <= 1) THEN
213: cln_debug_pub.Add('G_ERROR_ID:' || G_ERROR_ID, 1);
214: cln_debug_pub.Add('G_ERROR_MESSAGE:' || G_ERROR_MESSAGE, 1);
215: cln_debug_pub.Add('validate_header call failed',1);
216: END IF;
217:
210: x_error_id_out := l_error_id;
211: x_error_status_out:= l_error_status;
212: IF (l_Debug_Level <= 1) THEN
213: cln_debug_pub.Add('G_ERROR_ID:' || G_ERROR_ID, 1);
214: cln_debug_pub.Add('G_ERROR_MESSAGE:' || G_ERROR_MESSAGE, 1);
215: cln_debug_pub.Add('validate_header call failed',1);
216: END IF;
217:
218: ROLLBACK TO PO_UPDATE_TXN;
211: x_error_status_out:= l_error_status;
212: IF (l_Debug_Level <= 1) THEN
213: cln_debug_pub.Add('G_ERROR_ID:' || G_ERROR_ID, 1);
214: cln_debug_pub.Add('G_ERROR_MESSAGE:' || G_ERROR_MESSAGE, 1);
215: cln_debug_pub.Add('validate_header call failed',1);
216: END IF;
217:
218: ROLLBACK TO PO_UPDATE_TXN;
219: IF (l_Debug_Level <= 1) THEN
216: END IF;
217:
218: ROLLBACK TO PO_UPDATE_TXN;
219: IF (l_Debug_Level <= 1) THEN
220: cln_debug_pub.Add('Rolledback PO_UPDATE_TXN transaction');
221: END IF;
222:
223:
224: RAISE_UPDATE_COLLABORATION(
231: p_status_code => 1,
232: p_int_ctl_num => p_int_cont_num);
233: IF l_return_status <> 'S' THEN
234: IF (l_Debug_Level <= 1) THEN
235: cln_debug_pub.Add('RAISE_UPDATE_COLLABORATION CALL FAILED',1);
236: END IF;
237:
238: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
239: END IF;
249: p_ref5 => NULL,
250: p_dtl_msg => NULL);
251: IF l_return_status <> 'S' THEN
252: IF (l_Debug_Level <= 1) THEN
253: cln_debug_pub.Add('RAISE_ADD_MESSAGE CALL FAILED', 1);
254: END IF;
255:
256: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
257: END IF;
256: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
257: END IF;
258:
259: IF (l_Debug_Level <= 1) THEN
260: cln_debug_pub.Add(x_error_status_out, 1);
261: END IF;
262:
263: IF (l_Debug_Level <= 2) THEN
264: cln_debug_pub.Add('EXITING PROCESS_ORDER_HEADER', 2);
260: cln_debug_pub.Add(x_error_status_out, 1);
261: END IF;
262:
263: IF (l_Debug_Level <= 2) THEN
264: cln_debug_pub.Add('EXITING PROCESS_ORDER_HEADER', 2);
265: END IF;
266:
267: RETURN;
268: END IF; -- IF Error ID is not zero
271: x_error_id_out := G_ERROR_ID;
272: x_error_status_out := G_ERROR_MESSAGE;
273: END IF; -- if G_ERROR_ID is not zero
274: IF (l_Debug_Level <= 2) THEN
275: cln_debug_pub.Add('EXITING PROCESS_ORDER_HEADER', 2);
276: END IF;
277:
278:
279: EXCEPTION
279: EXCEPTION
280: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
281: ROLLBACK TO PO_UPDATE_TXN;
282: IF (l_Debug_Level <= 5) THEN
283: cln_debug_pub.Add('Rolledback PO_UPDATE_TXN transaction',5);
284: END IF;
285:
286: -- Assaign global error info and set return values
287: x_error_id_out := -1;
288: G_ERROR_ID := -1;
289: x_error_status_out := l_return_msg;
290: G_ERROR_MESSAGE := l_return_msg;
291: IF (l_Debug_Level <= 5) THEN
292: cln_debug_pub.Add(x_error_status_out, 3);
293: END IF;
294:
295: x_error_status_out := 'While trying to process order header'
296: || ' for the inbound change sales order#'
303: || p_release_number
304: || ', the following error is encountered:'
305: || x_error_status_out;
306: IF (l_Debug_Level <= 5) THEN
307: cln_debug_pub.Add('EXITING PROCESS_ORDER_HEADER', 2);
308: END IF;
309:
310: WHEN OTHERS THEN
311: ROLLBACK TO PO_UPDATE_TXN;
309:
310: WHEN OTHERS THEN
311: ROLLBACK TO PO_UPDATE_TXN;
312: IF (l_Debug_Level <= 5) THEN
313: cln_debug_pub.Add('Rolledback PO_UPDATE_TXN transaction',5);
314: END IF;
315:
316: l_error_code := SQLCODE;
317: l_error_msg := SQLERRM;
319: G_ERROR_ID := -2;
320: x_error_status_out := l_error_code||' : '||l_error_msg;
321: G_ERROR_MESSAGE := x_error_status_out;
322: IF (l_Debug_Level <= 5) THEN
323: cln_debug_pub.Add(x_error_status_out, 3);
324: END IF;
325:
326: x_error_status_out := 'While trying to process order header'
327: || ' for the inbound change sales order#'
334: || p_release_number
335: || ', the following error is encountered:'
336: || x_error_status_out;
337: IF (l_Debug_Level <= 5) THEN
338: cln_debug_pub.Add('EXITING PROCESS_ORDER_HEADER', 2);
339: END IF;
340:
341: END PROCESS_ORDER_HEADER;
342:
393: l_po_type := 'RELEASE';
394: END IF;
395:
396: -- Sets the debug mode to be FILE
397: --l_debug_mode := cln_debug_pub.Set_Debug_Mode('FILE');
398:
399: -- Initialize API return status to success
400: l_error_id := 0;
401: x_error_id := 0;
403: FND_MESSAGE.SET_NAME('CLN','CLN_G_RET_MSG_SUCCESS');
404: x_msg_data := FND_MESSAGE.GET;
405:
406: IF (l_Debug_Level <= 2) THEN
407: cln_debug_pub.Add('ENTERING PROCESS_ORDER_LINE', 2);
408: END IF;
409:
410: IF (l_Debug_Level <= 1) THEN
411: cln_debug_pub.Add('With the following parameters:', 1);
407: cln_debug_pub.Add('ENTERING PROCESS_ORDER_LINE', 2);
408: END IF;
409:
410: IF (l_Debug_Level <= 1) THEN
411: cln_debug_pub.Add('With the following parameters:', 1);
412: cln_debug_pub.Add('p_requstor:' || p_requstor, 1);
413: cln_debug_pub.Add('p_po_id:' || p_po_id, 1);
414: cln_debug_pub.Add('p_po_rel_num:' || p_po_rel_num, 1);
415: cln_debug_pub.Add('p_po_rev_num:' || p_po_rev_num, 1);
408: END IF;
409:
410: IF (l_Debug_Level <= 1) THEN
411: cln_debug_pub.Add('With the following parameters:', 1);
412: cln_debug_pub.Add('p_requstor:' || p_requstor, 1);
413: cln_debug_pub.Add('p_po_id:' || p_po_id, 1);
414: cln_debug_pub.Add('p_po_rel_num:' || p_po_rel_num, 1);
415: cln_debug_pub.Add('p_po_rev_num:' || p_po_rev_num, 1);
416: cln_debug_pub.Add('p_po_line_num:' || p_po_line_num, 1);
409:
410: IF (l_Debug_Level <= 1) THEN
411: cln_debug_pub.Add('With the following parameters:', 1);
412: cln_debug_pub.Add('p_requstor:' || p_requstor, 1);
413: cln_debug_pub.Add('p_po_id:' || p_po_id, 1);
414: cln_debug_pub.Add('p_po_rel_num:' || p_po_rel_num, 1);
415: cln_debug_pub.Add('p_po_rev_num:' || p_po_rev_num, 1);
416: cln_debug_pub.Add('p_po_line_num:' || p_po_line_num, 1);
417: cln_debug_pub.Add('p_po_price:' || p_po_price, 1);
410: IF (l_Debug_Level <= 1) THEN
411: cln_debug_pub.Add('With the following parameters:', 1);
412: cln_debug_pub.Add('p_requstor:' || p_requstor, 1);
413: cln_debug_pub.Add('p_po_id:' || p_po_id, 1);
414: cln_debug_pub.Add('p_po_rel_num:' || p_po_rel_num, 1);
415: cln_debug_pub.Add('p_po_rev_num:' || p_po_rev_num, 1);
416: cln_debug_pub.Add('p_po_line_num:' || p_po_line_num, 1);
417: cln_debug_pub.Add('p_po_price:' || p_po_price, 1);
418: cln_debug_pub.Add('p_po_price_currency:' || p_po_price_currency, 1);
411: cln_debug_pub.Add('With the following parameters:', 1);
412: cln_debug_pub.Add('p_requstor:' || p_requstor, 1);
413: cln_debug_pub.Add('p_po_id:' || p_po_id, 1);
414: cln_debug_pub.Add('p_po_rel_num:' || p_po_rel_num, 1);
415: cln_debug_pub.Add('p_po_rev_num:' || p_po_rev_num, 1);
416: cln_debug_pub.Add('p_po_line_num:' || p_po_line_num, 1);
417: cln_debug_pub.Add('p_po_price:' || p_po_price, 1);
418: cln_debug_pub.Add('p_po_price_currency:' || p_po_price_currency, 1);
419: cln_debug_pub.Add('p_po_price_uom:' || p_po_price_uom, 1);
412: cln_debug_pub.Add('p_requstor:' || p_requstor, 1);
413: cln_debug_pub.Add('p_po_id:' || p_po_id, 1);
414: cln_debug_pub.Add('p_po_rel_num:' || p_po_rel_num, 1);
415: cln_debug_pub.Add('p_po_rev_num:' || p_po_rev_num, 1);
416: cln_debug_pub.Add('p_po_line_num:' || p_po_line_num, 1);
417: cln_debug_pub.Add('p_po_price:' || p_po_price, 1);
418: cln_debug_pub.Add('p_po_price_currency:' || p_po_price_currency, 1);
419: cln_debug_pub.Add('p_po_price_uom:' || p_po_price_uom, 1);
420: cln_debug_pub.Add('p_supplier_part_number:' || p_supplier_part_number, 1);
413: cln_debug_pub.Add('p_po_id:' || p_po_id, 1);
414: cln_debug_pub.Add('p_po_rel_num:' || p_po_rel_num, 1);
415: cln_debug_pub.Add('p_po_rev_num:' || p_po_rev_num, 1);
416: cln_debug_pub.Add('p_po_line_num:' || p_po_line_num, 1);
417: cln_debug_pub.Add('p_po_price:' || p_po_price, 1);
418: cln_debug_pub.Add('p_po_price_currency:' || p_po_price_currency, 1);
419: cln_debug_pub.Add('p_po_price_uom:' || p_po_price_uom, 1);
420: cln_debug_pub.Add('p_supplier_part_number:' || p_supplier_part_number, 1);
421: cln_debug_pub.Add('p_so_num:' || p_so_num, 1);
414: cln_debug_pub.Add('p_po_rel_num:' || p_po_rel_num, 1);
415: cln_debug_pub.Add('p_po_rev_num:' || p_po_rev_num, 1);
416: cln_debug_pub.Add('p_po_line_num:' || p_po_line_num, 1);
417: cln_debug_pub.Add('p_po_price:' || p_po_price, 1);
418: cln_debug_pub.Add('p_po_price_currency:' || p_po_price_currency, 1);
419: cln_debug_pub.Add('p_po_price_uom:' || p_po_price_uom, 1);
420: cln_debug_pub.Add('p_supplier_part_number:' || p_supplier_part_number, 1);
421: cln_debug_pub.Add('p_so_num:' || p_so_num, 1);
422: cln_debug_pub.Add('p_so_line_num:' || p_so_line_num, 1);
415: cln_debug_pub.Add('p_po_rev_num:' || p_po_rev_num, 1);
416: cln_debug_pub.Add('p_po_line_num:' || p_po_line_num, 1);
417: cln_debug_pub.Add('p_po_price:' || p_po_price, 1);
418: cln_debug_pub.Add('p_po_price_currency:' || p_po_price_currency, 1);
419: cln_debug_pub.Add('p_po_price_uom:' || p_po_price_uom, 1);
420: cln_debug_pub.Add('p_supplier_part_number:' || p_supplier_part_number, 1);
421: cln_debug_pub.Add('p_so_num:' || p_so_num, 1);
422: cln_debug_pub.Add('p_so_line_num:' || p_so_line_num, 1);
423: cln_debug_pub.Add('p_so_line_status:' || p_so_line_status, 1);
416: cln_debug_pub.Add('p_po_line_num:' || p_po_line_num, 1);
417: cln_debug_pub.Add('p_po_price:' || p_po_price, 1);
418: cln_debug_pub.Add('p_po_price_currency:' || p_po_price_currency, 1);
419: cln_debug_pub.Add('p_po_price_uom:' || p_po_price_uom, 1);
420: cln_debug_pub.Add('p_supplier_part_number:' || p_supplier_part_number, 1);
421: cln_debug_pub.Add('p_so_num:' || p_so_num, 1);
422: cln_debug_pub.Add('p_so_line_num:' || p_so_line_num, 1);
423: cln_debug_pub.Add('p_so_line_status:' || p_so_line_status, 1);
424: cln_debug_pub.Add('p_reason:' || p_reason, 1);
417: cln_debug_pub.Add('p_po_price:' || p_po_price, 1);
418: cln_debug_pub.Add('p_po_price_currency:' || p_po_price_currency, 1);
419: cln_debug_pub.Add('p_po_price_uom:' || p_po_price_uom, 1);
420: cln_debug_pub.Add('p_supplier_part_number:' || p_supplier_part_number, 1);
421: cln_debug_pub.Add('p_so_num:' || p_so_num, 1);
422: cln_debug_pub.Add('p_so_line_num:' || p_so_line_num, 1);
423: cln_debug_pub.Add('p_so_line_status:' || p_so_line_status, 1);
424: cln_debug_pub.Add('p_reason:' || p_reason, 1);
425: cln_debug_pub.Add('p_app_ref_id:' || p_app_ref_id, 1);
418: cln_debug_pub.Add('p_po_price_currency:' || p_po_price_currency, 1);
419: cln_debug_pub.Add('p_po_price_uom:' || p_po_price_uom, 1);
420: cln_debug_pub.Add('p_supplier_part_number:' || p_supplier_part_number, 1);
421: cln_debug_pub.Add('p_so_num:' || p_so_num, 1);
422: cln_debug_pub.Add('p_so_line_num:' || p_so_line_num, 1);
423: cln_debug_pub.Add('p_so_line_status:' || p_so_line_status, 1);
424: cln_debug_pub.Add('p_reason:' || p_reason, 1);
425: cln_debug_pub.Add('p_app_ref_id:' || p_app_ref_id, 1);
426: cln_debug_pub.Add('p_tp_id:' || p_tp_id, 1);
419: cln_debug_pub.Add('p_po_price_uom:' || p_po_price_uom, 1);
420: cln_debug_pub.Add('p_supplier_part_number:' || p_supplier_part_number, 1);
421: cln_debug_pub.Add('p_so_num:' || p_so_num, 1);
422: cln_debug_pub.Add('p_so_line_num:' || p_so_line_num, 1);
423: cln_debug_pub.Add('p_so_line_status:' || p_so_line_status, 1);
424: cln_debug_pub.Add('p_reason:' || p_reason, 1);
425: cln_debug_pub.Add('p_app_ref_id:' || p_app_ref_id, 1);
426: cln_debug_pub.Add('p_tp_id:' || p_tp_id, 1);
427: cln_debug_pub.Add('p_tp_site_id:' || p_tp_site_id, 1);
420: cln_debug_pub.Add('p_supplier_part_number:' || p_supplier_part_number, 1);
421: cln_debug_pub.Add('p_so_num:' || p_so_num, 1);
422: cln_debug_pub.Add('p_so_line_num:' || p_so_line_num, 1);
423: cln_debug_pub.Add('p_so_line_status:' || p_so_line_status, 1);
424: cln_debug_pub.Add('p_reason:' || p_reason, 1);
425: cln_debug_pub.Add('p_app_ref_id:' || p_app_ref_id, 1);
426: cln_debug_pub.Add('p_tp_id:' || p_tp_id, 1);
427: cln_debug_pub.Add('p_tp_site_id:' || p_tp_site_id, 1);
428: cln_debug_pub.Add('p_int_ctl_num:' || p_int_ctl_num, 1);
421: cln_debug_pub.Add('p_so_num:' || p_so_num, 1);
422: cln_debug_pub.Add('p_so_line_num:' || p_so_line_num, 1);
423: cln_debug_pub.Add('p_so_line_status:' || p_so_line_status, 1);
424: cln_debug_pub.Add('p_reason:' || p_reason, 1);
425: cln_debug_pub.Add('p_app_ref_id:' || p_app_ref_id, 1);
426: cln_debug_pub.Add('p_tp_id:' || p_tp_id, 1);
427: cln_debug_pub.Add('p_tp_site_id:' || p_tp_site_id, 1);
428: cln_debug_pub.Add('p_int_ctl_num:' || p_int_ctl_num, 1);
429: cln_debug_pub.Add('p_supp_doc_ref:' || p_supp_doc_ref, 1);
422: cln_debug_pub.Add('p_so_line_num:' || p_so_line_num, 1);
423: cln_debug_pub.Add('p_so_line_status:' || p_so_line_status, 1);
424: cln_debug_pub.Add('p_reason:' || p_reason, 1);
425: cln_debug_pub.Add('p_app_ref_id:' || p_app_ref_id, 1);
426: cln_debug_pub.Add('p_tp_id:' || p_tp_id, 1);
427: cln_debug_pub.Add('p_tp_site_id:' || p_tp_site_id, 1);
428: cln_debug_pub.Add('p_int_ctl_num:' || p_int_ctl_num, 1);
429: cln_debug_pub.Add('p_supp_doc_ref:' || p_supp_doc_ref, 1);
430: cln_debug_pub.Add('p_supp_line_ref:' || p_supp_line_ref, 1);
423: cln_debug_pub.Add('p_so_line_status:' || p_so_line_status, 1);
424: cln_debug_pub.Add('p_reason:' || p_reason, 1);
425: cln_debug_pub.Add('p_app_ref_id:' || p_app_ref_id, 1);
426: cln_debug_pub.Add('p_tp_id:' || p_tp_id, 1);
427: cln_debug_pub.Add('p_tp_site_id:' || p_tp_site_id, 1);
428: cln_debug_pub.Add('p_int_ctl_num:' || p_int_ctl_num, 1);
429: cln_debug_pub.Add('p_supp_doc_ref:' || p_supp_doc_ref, 1);
430: cln_debug_pub.Add('p_supp_line_ref:' || p_supp_line_ref, 1);
431:
424: cln_debug_pub.Add('p_reason:' || p_reason, 1);
425: cln_debug_pub.Add('p_app_ref_id:' || p_app_ref_id, 1);
426: cln_debug_pub.Add('p_tp_id:' || p_tp_id, 1);
427: cln_debug_pub.Add('p_tp_site_id:' || p_tp_site_id, 1);
428: cln_debug_pub.Add('p_int_ctl_num:' || p_int_ctl_num, 1);
429: cln_debug_pub.Add('p_supp_doc_ref:' || p_supp_doc_ref, 1);
430: cln_debug_pub.Add('p_supp_line_ref:' || p_supp_line_ref, 1);
431:
432: cln_debug_pub.Add('G_ERROR_ID:' || G_ERROR_ID, 1);
425: cln_debug_pub.Add('p_app_ref_id:' || p_app_ref_id, 1);
426: cln_debug_pub.Add('p_tp_id:' || p_tp_id, 1);
427: cln_debug_pub.Add('p_tp_site_id:' || p_tp_site_id, 1);
428: cln_debug_pub.Add('p_int_ctl_num:' || p_int_ctl_num, 1);
429: cln_debug_pub.Add('p_supp_doc_ref:' || p_supp_doc_ref, 1);
430: cln_debug_pub.Add('p_supp_line_ref:' || p_supp_line_ref, 1);
431:
432: cln_debug_pub.Add('G_ERROR_ID:' || G_ERROR_ID, 1);
433: cln_debug_pub.Add('G_ERROR_MESSAGE:' || G_ERROR_MESSAGE, 1);
426: cln_debug_pub.Add('p_tp_id:' || p_tp_id, 1);
427: cln_debug_pub.Add('p_tp_site_id:' || p_tp_site_id, 1);
428: cln_debug_pub.Add('p_int_ctl_num:' || p_int_ctl_num, 1);
429: cln_debug_pub.Add('p_supp_doc_ref:' || p_supp_doc_ref, 1);
430: cln_debug_pub.Add('p_supp_line_ref:' || p_supp_line_ref, 1);
431:
432: cln_debug_pub.Add('G_ERROR_ID:' || G_ERROR_ID, 1);
433: cln_debug_pub.Add('G_ERROR_MESSAGE:' || G_ERROR_MESSAGE, 1);
434: END IF;
428: cln_debug_pub.Add('p_int_ctl_num:' || p_int_ctl_num, 1);
429: cln_debug_pub.Add('p_supp_doc_ref:' || p_supp_doc_ref, 1);
430: cln_debug_pub.Add('p_supp_line_ref:' || p_supp_line_ref, 1);
431:
432: cln_debug_pub.Add('G_ERROR_ID:' || G_ERROR_ID, 1);
433: cln_debug_pub.Add('G_ERROR_MESSAGE:' || G_ERROR_MESSAGE, 1);
434: END IF;
435:
436:
429: cln_debug_pub.Add('p_supp_doc_ref:' || p_supp_doc_ref, 1);
430: cln_debug_pub.Add('p_supp_line_ref:' || p_supp_line_ref, 1);
431:
432: cln_debug_pub.Add('G_ERROR_ID:' || G_ERROR_ID, 1);
433: cln_debug_pub.Add('G_ERROR_MESSAGE:' || G_ERROR_MESSAGE, 1);
434: END IF;
435:
436:
437: -- If and only if none has failed until now
439: IF l_po_type = 'RELEASE' THEN
440: -- Nothing to do since the changes happens only at shipment level
441: -- Collaboration history too is not updated
442: IF (l_Debug_Level <= 1) THEN
443: cln_debug_pub.Add('Since this a RELEASE, Nothing to do', 1);
444: END IF;
445:
446: RETURN;
447: ELSIF IS_ALREADY_PROCESSED_LINE(p_po_line_num) THEN
447: ELSIF IS_ALREADY_PROCESSED_LINE(p_po_line_num) THEN
448: -- Nothing to do since the changes happens only once per each po line
449: -- Collaboration history too is not updated
450: IF (l_Debug_Level <= 1) THEN
451: cln_debug_pub.Add('Since this an already processed line, Nothing to do', 1);
452: END IF;
453: RETURN;
454: ELSE
455: IF p_reason = 'Cancelled' THEN
493: p_supplier_doc_ref => p_supp_doc_ref,
494: p_supplier_line_ref => p_supp_line_ref,
495: p_supplier_shipment_ref => NULL);
496: IF (l_Debug_Level <= 1) THEN
497: cln_debug_pub.Add('store_supplier_request');
498: cln_debug_pub.Add('l_error_id:' || l_error_id);
499: cln_debug_pub.Add('l_error_status:' || l_error_status);
500: END IF;
501:
494: p_supplier_line_ref => p_supp_line_ref,
495: p_supplier_shipment_ref => NULL);
496: IF (l_Debug_Level <= 1) THEN
497: cln_debug_pub.Add('store_supplier_request');
498: cln_debug_pub.Add('l_error_id:' || l_error_id);
499: cln_debug_pub.Add('l_error_status:' || l_error_status);
500: END IF;
501:
502: END IF; -- if itz a standard po
495: p_supplier_shipment_ref => NULL);
496: IF (l_Debug_Level <= 1) THEN
497: cln_debug_pub.Add('store_supplier_request');
498: cln_debug_pub.Add('l_error_id:' || l_error_id);
499: cln_debug_pub.Add('l_error_status:' || l_error_status);
500: END IF;
501:
502: END IF; -- if itz a standard po
503:
514: p_ref5 => p_po_price_uom,
515: p_dtl_msg => p_reason);
516: IF l_return_status <> 'S' THEN
517: IF (l_Debug_Level <= 1) THEN
518: cln_debug_pub.Add('RAISE_ADD_MESSAGE CALL FAILED', 1);
519: END IF;
520:
521: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
522: END IF;
527: G_ERROR_MESSAGE := l_error_status;
528: x_error_id := l_error_id;
529: x_msg_data := l_error_status;
530: IF (l_Debug_Level <= 1) THEN
531: cln_debug_pub.Add('PO API Call failed', 1);
532: END IF;
533:
534: ROLLBACK TO PO_UPDATE_TXN;
535: IF (l_Debug_Level <= 1) THEN
532: END IF;
533:
534: ROLLBACK TO PO_UPDATE_TXN;
535: IF (l_Debug_Level <= 1) THEN
536: cln_debug_pub.Add('Rolledback PO_UPDATE_TXN transaction',1);
537: END IF;
538:
539: RAISE_UPDATE_COLLABORATION(
540: x_return_status => l_return_status,
546: p_status_code => 1,
547: p_int_ctl_num => p_int_ctl_num);
548: IF l_return_status <> 'S' THEN
549: IF (l_Debug_Level <= 1) THEN
550: cln_debug_pub.Add('RAISE_UPDATE_COLLABORATION CALL FAILED',1);
551: END IF;
552:
553: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
554: END IF;
563: p_ref5 => p_po_price_uom,
564: p_dtl_msg => p_reason);
565: IF l_return_status <> 'S' THEN
566: IF (l_Debug_Level <= 1) THEN
567: cln_debug_pub.Add('RAISE_ADD_MESSAGE CALL FAILED', 1);
568: END IF;
569:
570: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
571: END IF;
569:
570: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
571: END IF;
572: IF (l_Debug_Level <= 1) THEN
573: cln_debug_pub.Add(x_msg_data, 1);
574: END IF;
575:
576: IF (l_Debug_Level <= 2) THEN
577: cln_debug_pub.Add('EXITING PROCESS_ORDER_LINE', 2);
573: cln_debug_pub.Add(x_msg_data, 1);
574: END IF;
575:
576: IF (l_Debug_Level <= 2) THEN
577: cln_debug_pub.Add('EXITING PROCESS_ORDER_LINE', 2);
578: END IF;
579:
580: RETURN;
581: END IF; -- If Error ID is not zero
583: x_error_id := G_ERROR_ID;
584: x_msg_data := G_ERROR_MESSAGE;
585: END IF;
586: IF (l_Debug_Level <= 2) THEN
587: cln_debug_pub.Add('EXITING PROCESS_ORDER_LINE', 2);
588: END IF;
589:
590: EXCEPTION
591: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
590: EXCEPTION
591: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
592: ROLLBACK TO PO_UPDATE_TXN;
593: IF (l_Debug_Level <= 5) THEN
594: cln_debug_pub.Add('Rolledback PO_UPDATE_TXN transaction',5);
595: END IF;
596:
597: x_error_id := -1;
598: G_ERROR_ID := -1;
598: G_ERROR_ID := -1;
599: x_msg_data := l_return_msg;
600: G_ERROR_MESSAGE := l_return_msg;
601: IF (l_Debug_Level <= 5) THEN
602: cln_debug_pub.Add(x_msg_data, 5);
603: END IF;
604:
605: x_msg_data := 'While trying to process order line'
606: || ' for the inbound change sales order#'
615: || p_po_line_num
616: || ', the following error is encountered:'
617: || x_msg_data;
618: IF (l_Debug_Level <= 5) THEN
619: cln_debug_pub.Add('EXITING PROCESS_ORDER_LINE', 2);
620: END IF;
621:
622: WHEN OTHERS THEN
623: ROLLBACK TO PO_UPDATE_TXN;
621:
622: WHEN OTHERS THEN
623: ROLLBACK TO PO_UPDATE_TXN;
624: IF (l_Debug_Level <= 5) THEN
625: cln_debug_pub.Add('Rolledback PO_UPDATE_TXN transaction',5);
626: END IF;
627:
628: l_error_code := SQLCODE;
629: l_error_msg := SQLERRM;
631: G_ERROR_ID := -2;
632: x_msg_data := l_error_code||' : '||l_error_msg;
633: G_ERROR_MESSAGE := x_msg_data;
634: IF (l_Debug_Level <= 5) THEN
635: cln_debug_pub.Add(x_msg_data, 5);
636: END IF;
637:
638: x_msg_data := 'While trying to process order line'
639: || ' for the inbound change sales order#'
648: || p_po_line_num
649: || ', the following error is encountered:'
650: || x_msg_data;
651: IF (l_Debug_Level <= 5) THEN
652: cln_debug_pub.Add('EXITING PROCESS_ORDER_LINE', 2);
653: END IF;
654:
655: END PROCESS_ORDER_LINE;
656:
710: l_ack_type VARCHAR2(50);
711: BEGIN
712:
713: -- Sets the debug mode to be FILE
714: --l_debug_mode := cln_debug_pub.Set_Debug_Mode('FILE');
715:
716: -- Initialize API return status to success
717: l_error_id := 0;
718: x_error_id := 0;
720: FND_MESSAGE.SET_NAME('CLN','CLN_G_RET_MSG_SUCCESS');
721: x_msg_data := FND_MESSAGE.GET;
722:
723: IF (l_Debug_Level <= 2) THEN
724: cln_debug_pub.Add('ENTERING PROCESS_ORDER_LINE_SHIPMENT', 2);
725: END IF;
726:
727: IF (l_Debug_Level <= 1) THEN
728: cln_debug_pub.Add('With the following parameters:', 1);
724: cln_debug_pub.Add('ENTERING PROCESS_ORDER_LINE_SHIPMENT', 2);
725: END IF;
726:
727: IF (l_Debug_Level <= 1) THEN
728: cln_debug_pub.Add('With the following parameters:', 1);
729: cln_debug_pub.Add('p_requstor:' || p_requstor, 1);
730: cln_debug_pub.Add('p_po_id:' || p_po_id, 1);
731: cln_debug_pub.Add('p_po_rel_num:' || p_po_rel_num, 1);
732: cln_debug_pub.Add('p_po_rev_num:' || p_po_rev_num, 1);
725: END IF;
726:
727: IF (l_Debug_Level <= 1) THEN
728: cln_debug_pub.Add('With the following parameters:', 1);
729: cln_debug_pub.Add('p_requstor:' || p_requstor, 1);
730: cln_debug_pub.Add('p_po_id:' || p_po_id, 1);
731: cln_debug_pub.Add('p_po_rel_num:' || p_po_rel_num, 1);
732: cln_debug_pub.Add('p_po_rev_num:' || p_po_rev_num, 1);
733: cln_debug_pub.Add('p_po_line_num:' || p_po_line_num, 1);
726:
727: IF (l_Debug_Level <= 1) THEN
728: cln_debug_pub.Add('With the following parameters:', 1);
729: cln_debug_pub.Add('p_requstor:' || p_requstor, 1);
730: cln_debug_pub.Add('p_po_id:' || p_po_id, 1);
731: cln_debug_pub.Add('p_po_rel_num:' || p_po_rel_num, 1);
732: cln_debug_pub.Add('p_po_rev_num:' || p_po_rev_num, 1);
733: cln_debug_pub.Add('p_po_line_num:' || p_po_line_num, 1);
734: cln_debug_pub.Add('p_po_ship_num:' || p_po_ship_num, 1);
727: IF (l_Debug_Level <= 1) THEN
728: cln_debug_pub.Add('With the following parameters:', 1);
729: cln_debug_pub.Add('p_requstor:' || p_requstor, 1);
730: cln_debug_pub.Add('p_po_id:' || p_po_id, 1);
731: cln_debug_pub.Add('p_po_rel_num:' || p_po_rel_num, 1);
732: cln_debug_pub.Add('p_po_rev_num:' || p_po_rev_num, 1);
733: cln_debug_pub.Add('p_po_line_num:' || p_po_line_num, 1);
734: cln_debug_pub.Add('p_po_ship_num:' || p_po_ship_num, 1);
735: cln_debug_pub.Add('p_po_quantity:' || p_po_quantity, 1);
728: cln_debug_pub.Add('With the following parameters:', 1);
729: cln_debug_pub.Add('p_requstor:' || p_requstor, 1);
730: cln_debug_pub.Add('p_po_id:' || p_po_id, 1);
731: cln_debug_pub.Add('p_po_rel_num:' || p_po_rel_num, 1);
732: cln_debug_pub.Add('p_po_rev_num:' || p_po_rev_num, 1);
733: cln_debug_pub.Add('p_po_line_num:' || p_po_line_num, 1);
734: cln_debug_pub.Add('p_po_ship_num:' || p_po_ship_num, 1);
735: cln_debug_pub.Add('p_po_quantity:' || p_po_quantity, 1);
736: cln_debug_pub.Add('p_po_quantity_uom:' || p_po_quantity_uom, 1);
729: cln_debug_pub.Add('p_requstor:' || p_requstor, 1);
730: cln_debug_pub.Add('p_po_id:' || p_po_id, 1);
731: cln_debug_pub.Add('p_po_rel_num:' || p_po_rel_num, 1);
732: cln_debug_pub.Add('p_po_rev_num:' || p_po_rev_num, 1);
733: cln_debug_pub.Add('p_po_line_num:' || p_po_line_num, 1);
734: cln_debug_pub.Add('p_po_ship_num:' || p_po_ship_num, 1);
735: cln_debug_pub.Add('p_po_quantity:' || p_po_quantity, 1);
736: cln_debug_pub.Add('p_po_quantity_uom:' || p_po_quantity_uom, 1);
737: cln_debug_pub.Add('p_po_price:' || p_po_price, 1);
730: cln_debug_pub.Add('p_po_id:' || p_po_id, 1);
731: cln_debug_pub.Add('p_po_rel_num:' || p_po_rel_num, 1);
732: cln_debug_pub.Add('p_po_rev_num:' || p_po_rev_num, 1);
733: cln_debug_pub.Add('p_po_line_num:' || p_po_line_num, 1);
734: cln_debug_pub.Add('p_po_ship_num:' || p_po_ship_num, 1);
735: cln_debug_pub.Add('p_po_quantity:' || p_po_quantity, 1);
736: cln_debug_pub.Add('p_po_quantity_uom:' || p_po_quantity_uom, 1);
737: cln_debug_pub.Add('p_po_price:' || p_po_price, 1);
738: cln_debug_pub.Add('p_po_price_currency:' || p_po_price_currency, 1);
731: cln_debug_pub.Add('p_po_rel_num:' || p_po_rel_num, 1);
732: cln_debug_pub.Add('p_po_rev_num:' || p_po_rev_num, 1);
733: cln_debug_pub.Add('p_po_line_num:' || p_po_line_num, 1);
734: cln_debug_pub.Add('p_po_ship_num:' || p_po_ship_num, 1);
735: cln_debug_pub.Add('p_po_quantity:' || p_po_quantity, 1);
736: cln_debug_pub.Add('p_po_quantity_uom:' || p_po_quantity_uom, 1);
737: cln_debug_pub.Add('p_po_price:' || p_po_price, 1);
738: cln_debug_pub.Add('p_po_price_currency:' || p_po_price_currency, 1);
739: cln_debug_pub.Add('p_po_price_uom:' || p_po_price_uom, 1);
732: cln_debug_pub.Add('p_po_rev_num:' || p_po_rev_num, 1);
733: cln_debug_pub.Add('p_po_line_num:' || p_po_line_num, 1);
734: cln_debug_pub.Add('p_po_ship_num:' || p_po_ship_num, 1);
735: cln_debug_pub.Add('p_po_quantity:' || p_po_quantity, 1);
736: cln_debug_pub.Add('p_po_quantity_uom:' || p_po_quantity_uom, 1);
737: cln_debug_pub.Add('p_po_price:' || p_po_price, 1);
738: cln_debug_pub.Add('p_po_price_currency:' || p_po_price_currency, 1);
739: cln_debug_pub.Add('p_po_price_uom:' || p_po_price_uom, 1);
740: cln_debug_pub.Add('p_po_promised_date:' || p_po_promised_date, 1);
733: cln_debug_pub.Add('p_po_line_num:' || p_po_line_num, 1);
734: cln_debug_pub.Add('p_po_ship_num:' || p_po_ship_num, 1);
735: cln_debug_pub.Add('p_po_quantity:' || p_po_quantity, 1);
736: cln_debug_pub.Add('p_po_quantity_uom:' || p_po_quantity_uom, 1);
737: cln_debug_pub.Add('p_po_price:' || p_po_price, 1);
738: cln_debug_pub.Add('p_po_price_currency:' || p_po_price_currency, 1);
739: cln_debug_pub.Add('p_po_price_uom:' || p_po_price_uom, 1);
740: cln_debug_pub.Add('p_po_promised_date:' || p_po_promised_date, 1);
741: cln_debug_pub.Add('p_supplier_part_number:' || p_supplier_part_number, 1);
734: cln_debug_pub.Add('p_po_ship_num:' || p_po_ship_num, 1);
735: cln_debug_pub.Add('p_po_quantity:' || p_po_quantity, 1);
736: cln_debug_pub.Add('p_po_quantity_uom:' || p_po_quantity_uom, 1);
737: cln_debug_pub.Add('p_po_price:' || p_po_price, 1);
738: cln_debug_pub.Add('p_po_price_currency:' || p_po_price_currency, 1);
739: cln_debug_pub.Add('p_po_price_uom:' || p_po_price_uom, 1);
740: cln_debug_pub.Add('p_po_promised_date:' || p_po_promised_date, 1);
741: cln_debug_pub.Add('p_supplier_part_number:' || p_supplier_part_number, 1);
742: cln_debug_pub.Add('p_so_num:' || p_so_num, 1);
735: cln_debug_pub.Add('p_po_quantity:' || p_po_quantity, 1);
736: cln_debug_pub.Add('p_po_quantity_uom:' || p_po_quantity_uom, 1);
737: cln_debug_pub.Add('p_po_price:' || p_po_price, 1);
738: cln_debug_pub.Add('p_po_price_currency:' || p_po_price_currency, 1);
739: cln_debug_pub.Add('p_po_price_uom:' || p_po_price_uom, 1);
740: cln_debug_pub.Add('p_po_promised_date:' || p_po_promised_date, 1);
741: cln_debug_pub.Add('p_supplier_part_number:' || p_supplier_part_number, 1);
742: cln_debug_pub.Add('p_so_num:' || p_so_num, 1);
743: cln_debug_pub.Add('p_so_line_num:' || p_so_line_num, 1);
736: cln_debug_pub.Add('p_po_quantity_uom:' || p_po_quantity_uom, 1);
737: cln_debug_pub.Add('p_po_price:' || p_po_price, 1);
738: cln_debug_pub.Add('p_po_price_currency:' || p_po_price_currency, 1);
739: cln_debug_pub.Add('p_po_price_uom:' || p_po_price_uom, 1);
740: cln_debug_pub.Add('p_po_promised_date:' || p_po_promised_date, 1);
741: cln_debug_pub.Add('p_supplier_part_number:' || p_supplier_part_number, 1);
742: cln_debug_pub.Add('p_so_num:' || p_so_num, 1);
743: cln_debug_pub.Add('p_so_line_num:' || p_so_line_num, 1);
744: cln_debug_pub.Add('p_so_line_status:' || p_so_line_status, 1);
737: cln_debug_pub.Add('p_po_price:' || p_po_price, 1);
738: cln_debug_pub.Add('p_po_price_currency:' || p_po_price_currency, 1);
739: cln_debug_pub.Add('p_po_price_uom:' || p_po_price_uom, 1);
740: cln_debug_pub.Add('p_po_promised_date:' || p_po_promised_date, 1);
741: cln_debug_pub.Add('p_supplier_part_number:' || p_supplier_part_number, 1);
742: cln_debug_pub.Add('p_so_num:' || p_so_num, 1);
743: cln_debug_pub.Add('p_so_line_num:' || p_so_line_num, 1);
744: cln_debug_pub.Add('p_so_line_status:' || p_so_line_status, 1);
745: cln_debug_pub.Add('p_reason:' || p_reason, 1);
738: cln_debug_pub.Add('p_po_price_currency:' || p_po_price_currency, 1);
739: cln_debug_pub.Add('p_po_price_uom:' || p_po_price_uom, 1);
740: cln_debug_pub.Add('p_po_promised_date:' || p_po_promised_date, 1);
741: cln_debug_pub.Add('p_supplier_part_number:' || p_supplier_part_number, 1);
742: cln_debug_pub.Add('p_so_num:' || p_so_num, 1);
743: cln_debug_pub.Add('p_so_line_num:' || p_so_line_num, 1);
744: cln_debug_pub.Add('p_so_line_status:' || p_so_line_status, 1);
745: cln_debug_pub.Add('p_reason:' || p_reason, 1);
746: cln_debug_pub.Add('p_app_ref_id:' || p_app_ref_id, 1);
739: cln_debug_pub.Add('p_po_price_uom:' || p_po_price_uom, 1);
740: cln_debug_pub.Add('p_po_promised_date:' || p_po_promised_date, 1);
741: cln_debug_pub.Add('p_supplier_part_number:' || p_supplier_part_number, 1);
742: cln_debug_pub.Add('p_so_num:' || p_so_num, 1);
743: cln_debug_pub.Add('p_so_line_num:' || p_so_line_num, 1);
744: cln_debug_pub.Add('p_so_line_status:' || p_so_line_status, 1);
745: cln_debug_pub.Add('p_reason:' || p_reason, 1);
746: cln_debug_pub.Add('p_app_ref_id:' || p_app_ref_id, 1);
747: cln_debug_pub.Add('p_tp_id:' || p_tp_id, 1);
740: cln_debug_pub.Add('p_po_promised_date:' || p_po_promised_date, 1);
741: cln_debug_pub.Add('p_supplier_part_number:' || p_supplier_part_number, 1);
742: cln_debug_pub.Add('p_so_num:' || p_so_num, 1);
743: cln_debug_pub.Add('p_so_line_num:' || p_so_line_num, 1);
744: cln_debug_pub.Add('p_so_line_status:' || p_so_line_status, 1);
745: cln_debug_pub.Add('p_reason:' || p_reason, 1);
746: cln_debug_pub.Add('p_app_ref_id:' || p_app_ref_id, 1);
747: cln_debug_pub.Add('p_tp_id:' || p_tp_id, 1);
748: cln_debug_pub.Add('p_tp_site_id:' || p_tp_site_id, 1);
741: cln_debug_pub.Add('p_supplier_part_number:' || p_supplier_part_number, 1);
742: cln_debug_pub.Add('p_so_num:' || p_so_num, 1);
743: cln_debug_pub.Add('p_so_line_num:' || p_so_line_num, 1);
744: cln_debug_pub.Add('p_so_line_status:' || p_so_line_status, 1);
745: cln_debug_pub.Add('p_reason:' || p_reason, 1);
746: cln_debug_pub.Add('p_app_ref_id:' || p_app_ref_id, 1);
747: cln_debug_pub.Add('p_tp_id:' || p_tp_id, 1);
748: cln_debug_pub.Add('p_tp_site_id:' || p_tp_site_id, 1);
749: cln_debug_pub.Add('p_int_ctl_num:' || p_int_ctl_num, 1);
742: cln_debug_pub.Add('p_so_num:' || p_so_num, 1);
743: cln_debug_pub.Add('p_so_line_num:' || p_so_line_num, 1);
744: cln_debug_pub.Add('p_so_line_status:' || p_so_line_status, 1);
745: cln_debug_pub.Add('p_reason:' || p_reason, 1);
746: cln_debug_pub.Add('p_app_ref_id:' || p_app_ref_id, 1);
747: cln_debug_pub.Add('p_tp_id:' || p_tp_id, 1);
748: cln_debug_pub.Add('p_tp_site_id:' || p_tp_site_id, 1);
749: cln_debug_pub.Add('p_int_ctl_num:' || p_int_ctl_num, 1);
750: cln_debug_pub.Add('p_supp_doc_ref:' || p_supp_doc_ref, 1);
743: cln_debug_pub.Add('p_so_line_num:' || p_so_line_num, 1);
744: cln_debug_pub.Add('p_so_line_status:' || p_so_line_status, 1);
745: cln_debug_pub.Add('p_reason:' || p_reason, 1);
746: cln_debug_pub.Add('p_app_ref_id:' || p_app_ref_id, 1);
747: cln_debug_pub.Add('p_tp_id:' || p_tp_id, 1);
748: cln_debug_pub.Add('p_tp_site_id:' || p_tp_site_id, 1);
749: cln_debug_pub.Add('p_int_ctl_num:' || p_int_ctl_num, 1);
750: cln_debug_pub.Add('p_supp_doc_ref:' || p_supp_doc_ref, 1);
751: cln_debug_pub.Add('p_supp_line_ref:' || p_supp_line_ref, 1);
744: cln_debug_pub.Add('p_so_line_status:' || p_so_line_status, 1);
745: cln_debug_pub.Add('p_reason:' || p_reason, 1);
746: cln_debug_pub.Add('p_app_ref_id:' || p_app_ref_id, 1);
747: cln_debug_pub.Add('p_tp_id:' || p_tp_id, 1);
748: cln_debug_pub.Add('p_tp_site_id:' || p_tp_site_id, 1);
749: cln_debug_pub.Add('p_int_ctl_num:' || p_int_ctl_num, 1);
750: cln_debug_pub.Add('p_supp_doc_ref:' || p_supp_doc_ref, 1);
751: cln_debug_pub.Add('p_supp_line_ref:' || p_supp_line_ref, 1);
752: cln_debug_pub.Add('p_supplier_shipment_ref:' || p_supplier_shipment_ref, 1);
745: cln_debug_pub.Add('p_reason:' || p_reason, 1);
746: cln_debug_pub.Add('p_app_ref_id:' || p_app_ref_id, 1);
747: cln_debug_pub.Add('p_tp_id:' || p_tp_id, 1);
748: cln_debug_pub.Add('p_tp_site_id:' || p_tp_site_id, 1);
749: cln_debug_pub.Add('p_int_ctl_num:' || p_int_ctl_num, 1);
750: cln_debug_pub.Add('p_supp_doc_ref:' || p_supp_doc_ref, 1);
751: cln_debug_pub.Add('p_supp_line_ref:' || p_supp_line_ref, 1);
752: cln_debug_pub.Add('p_supplier_shipment_ref:' || p_supplier_shipment_ref, 1);
753: cln_debug_pub.Add('p_parent_shipment_number:' || p_parent_shipment_number, 1);
746: cln_debug_pub.Add('p_app_ref_id:' || p_app_ref_id, 1);
747: cln_debug_pub.Add('p_tp_id:' || p_tp_id, 1);
748: cln_debug_pub.Add('p_tp_site_id:' || p_tp_site_id, 1);
749: cln_debug_pub.Add('p_int_ctl_num:' || p_int_ctl_num, 1);
750: cln_debug_pub.Add('p_supp_doc_ref:' || p_supp_doc_ref, 1);
751: cln_debug_pub.Add('p_supp_line_ref:' || p_supp_line_ref, 1);
752: cln_debug_pub.Add('p_supplier_shipment_ref:' || p_supplier_shipment_ref, 1);
753: cln_debug_pub.Add('p_parent_shipment_number:' || p_parent_shipment_number, 1);
754: END IF;
747: cln_debug_pub.Add('p_tp_id:' || p_tp_id, 1);
748: cln_debug_pub.Add('p_tp_site_id:' || p_tp_site_id, 1);
749: cln_debug_pub.Add('p_int_ctl_num:' || p_int_ctl_num, 1);
750: cln_debug_pub.Add('p_supp_doc_ref:' || p_supp_doc_ref, 1);
751: cln_debug_pub.Add('p_supp_line_ref:' || p_supp_line_ref, 1);
752: cln_debug_pub.Add('p_supplier_shipment_ref:' || p_supplier_shipment_ref, 1);
753: cln_debug_pub.Add('p_parent_shipment_number:' || p_parent_shipment_number, 1);
754: END IF;
755:
748: cln_debug_pub.Add('p_tp_site_id:' || p_tp_site_id, 1);
749: cln_debug_pub.Add('p_int_ctl_num:' || p_int_ctl_num, 1);
750: cln_debug_pub.Add('p_supp_doc_ref:' || p_supp_doc_ref, 1);
751: cln_debug_pub.Add('p_supp_line_ref:' || p_supp_line_ref, 1);
752: cln_debug_pub.Add('p_supplier_shipment_ref:' || p_supplier_shipment_ref, 1);
753: cln_debug_pub.Add('p_parent_shipment_number:' || p_parent_shipment_number, 1);
754: END IF;
755:
756:
749: cln_debug_pub.Add('p_int_ctl_num:' || p_int_ctl_num, 1);
750: cln_debug_pub.Add('p_supp_doc_ref:' || p_supp_doc_ref, 1);
751: cln_debug_pub.Add('p_supp_line_ref:' || p_supp_line_ref, 1);
752: cln_debug_pub.Add('p_supplier_shipment_ref:' || p_supplier_shipment_ref, 1);
753: cln_debug_pub.Add('p_parent_shipment_number:' || p_parent_shipment_number, 1);
754: END IF;
755:
756:
757: l_po_type := 'STANDARD';
759: l_po_type := 'RELEASE';
760: END IF;
761:
762: IF (l_Debug_Level <= 1) THEN
763: cln_debug_pub.Add('l_po_type:' || l_po_type, 1);
764:
765: cln_debug_pub.Add('G_ERROR_ID:' || G_ERROR_ID, 1);
766: cln_debug_pub.Add('G_ERROR_MESSAGE:' || G_ERROR_MESSAGE, 1);
767: END IF;
761:
762: IF (l_Debug_Level <= 1) THEN
763: cln_debug_pub.Add('l_po_type:' || l_po_type, 1);
764:
765: cln_debug_pub.Add('G_ERROR_ID:' || G_ERROR_ID, 1);
766: cln_debug_pub.Add('G_ERROR_MESSAGE:' || G_ERROR_MESSAGE, 1);
767: END IF;
768:
769: IF p_reason = 'Cancelled' THEN
762: IF (l_Debug_Level <= 1) THEN
763: cln_debug_pub.Add('l_po_type:' || l_po_type, 1);
764:
765: cln_debug_pub.Add('G_ERROR_ID:' || G_ERROR_ID, 1);
766: cln_debug_pub.Add('G_ERROR_MESSAGE:' || G_ERROR_MESSAGE, 1);
767: END IF;
768:
769: IF p_reason = 'Cancelled' THEN
770: l_ack_type := 'CANCELLED';
812: p_supplier_doc_ref => p_supp_doc_ref,
813: p_supplier_line_ref => p_supp_line_ref,
814: p_supplier_shipment_ref => p_supplier_shipment_ref);
815: IF (l_Debug_Level <= 1) THEN
816: cln_debug_pub.Add('store_supplier_request');
817: cln_debug_pub.Add('l_error_id:' || l_error_id);
818: cln_debug_pub.Add('l_error_status:' || l_error_status);
819: END IF;
820:
813: p_supplier_line_ref => p_supp_line_ref,
814: p_supplier_shipment_ref => p_supplier_shipment_ref);
815: IF (l_Debug_Level <= 1) THEN
816: cln_debug_pub.Add('store_supplier_request');
817: cln_debug_pub.Add('l_error_id:' || l_error_id);
818: cln_debug_pub.Add('l_error_status:' || l_error_status);
819: END IF;
820:
821: ELSE
814: p_supplier_shipment_ref => p_supplier_shipment_ref);
815: IF (l_Debug_Level <= 1) THEN
816: cln_debug_pub.Add('store_supplier_request');
817: cln_debug_pub.Add('l_error_id:' || l_error_id);
818: cln_debug_pub.Add('l_error_status:' || l_error_status);
819: END IF;
820:
821: ELSE
822: PO_CHG_REQUEST_GRP.store_supplier_request (
854: p_supplier_doc_ref => p_supp_doc_ref,
855: p_supplier_line_ref => p_supp_line_ref,
856: p_supplier_shipment_ref => p_supplier_shipment_ref);
857: IF (l_Debug_Level <= 1) THEN
858: cln_debug_pub.Add('store_supplier_request');
859: cln_debug_pub.Add('l_error_id:' || l_error_id);
860: cln_debug_pub.Add('l_error_status:' || l_error_status);
861: END IF;
862:
855: p_supplier_line_ref => p_supp_line_ref,
856: p_supplier_shipment_ref => p_supplier_shipment_ref);
857: IF (l_Debug_Level <= 1) THEN
858: cln_debug_pub.Add('store_supplier_request');
859: cln_debug_pub.Add('l_error_id:' || l_error_id);
860: cln_debug_pub.Add('l_error_status:' || l_error_status);
861: END IF;
862:
863: END IF; -- if itz a standard po
856: p_supplier_shipment_ref => p_supplier_shipment_ref);
857: IF (l_Debug_Level <= 1) THEN
858: cln_debug_pub.Add('store_supplier_request');
859: cln_debug_pub.Add('l_error_id:' || l_error_id);
860: cln_debug_pub.Add('l_error_status:' || l_error_status);
861: END IF;
862:
863: END IF; -- if itz a standard po
864:
875: p_ref5 => p_po_promised_date,
876: p_dtl_msg => p_reason);
877: IF l_return_status <> 'S' THEN
878: IF (l_Debug_Level <= 1) THEN
879: cln_debug_pub.Add('RAISE_ADD_MESSAGE CALL FAILED', 1);
880: END IF;
881:
882: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
883: END IF;
888: G_ERROR_MESSAGE := l_error_status;
889: x_error_id := l_error_id;
890: x_msg_data := l_error_status;
891: IF (l_Debug_Level <= 1) THEN
892: cln_debug_pub.Add('PO API Call failed', 1);
893: END IF;
894:
895: ROLLBACK TO PO_UPDATE_TXN;
896: IF (l_Debug_Level <= 1) THEN
893: END IF;
894:
895: ROLLBACK TO PO_UPDATE_TXN;
896: IF (l_Debug_Level <= 1) THEN
897: cln_debug_pub.Add('Rolledback PO_UPDATE_TXN transaction',1);
898: END IF;
899:
900: RAISE_UPDATE_COLLABORATION(
901: x_return_status => l_return_status,
907: p_status_code => 1,
908: p_int_ctl_num => p_int_ctl_num);
909: IF l_return_status <> 'S' THEN
910: IF (l_Debug_Level <= 1) THEN
911: cln_debug_pub.Add('RAISE_UPDATE_COLLABORATION CALL FAILED',1);
912: END IF;
913:
914: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
915: END IF;
924: p_ref5 => p_po_promised_date,
925: p_dtl_msg => p_reason);
926: IF l_return_status <> 'S' THEN
927: IF (l_Debug_Level <= 1) THEN
928: cln_debug_pub.Add('RAISE_ADD_MESSAGE CALL FAILED', 1);
929: END IF;
930:
931: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
932: END IF;
930:
931: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
932: END IF;
933: IF (l_Debug_Level <= 1) THEN
934: cln_debug_pub.Add(x_msg_data, 1);
935: END IF;
936:
937: IF (l_Debug_Level <= 2) THEN
938: cln_debug_pub.Add('EXITING PROCESS_ORDER_LINE_SHIPMENT', 2);
934: cln_debug_pub.Add(x_msg_data, 1);
935: END IF;
936:
937: IF (l_Debug_Level <= 2) THEN
938: cln_debug_pub.Add('EXITING PROCESS_ORDER_LINE_SHIPMENT', 2);
939: END IF;
940:
941: RETURN;
942: END IF; -- If Error ID is not zero
944: x_error_id := G_ERROR_ID;
945: x_msg_data := G_ERROR_MESSAGE;
946: END IF;
947: IF (l_Debug_Level <= 2) THEN
948: cln_debug_pub.Add('EXITING PROCESS_ORDER_LINE_SHIPMENT', 2);
949: END IF;
950:
951: EXCEPTION
952: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
951: EXCEPTION
952: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
953: ROLLBACK TO PO_UPDATE_TXN;
954: IF (l_Debug_Level <= 5) THEN
955: cln_debug_pub.Add('Rolledback PO_UPDATE_TXN transaction',5);
956: END IF;
957:
958: x_error_id := -1;
959: G_ERROR_ID := -1;
959: G_ERROR_ID := -1;
960: x_msg_data := l_return_msg;
961: G_ERROR_MESSAGE := l_return_msg;
962: IF (l_Debug_Level <= 5) THEN
963: cln_debug_pub.Add(x_msg_data, 5);
964: END IF;
965:
966: x_msg_data := 'While trying to process order line shipment'
967: || ' for the inbound change sales order#'
978: || p_po_ship_num
979: || ', the following error is encountered:'
980: || x_msg_data;
981: IF (l_Debug_Level <= 5) THEN
982: cln_debug_pub.Add('EXITING PROCESS_ORDER_LINE_SHIPMENT', 2);
983: END IF;
984:
985: WHEN OTHERS THEN
986: ROLLBACK TO PO_UPDATE_TXN;
984:
985: WHEN OTHERS THEN
986: ROLLBACK TO PO_UPDATE_TXN;
987: IF (l_Debug_Level <= 5) THEN
988: cln_debug_pub.Add('Rolledback PO_UPDATE_TXN transaction',5);
989: END IF;
990:
991: l_error_code := SQLCODE;
992: l_error_msg := SQLERRM;
994: G_ERROR_ID := -2;
995: x_msg_data := l_error_code||' : '||l_error_msg;
996: G_ERROR_MESSAGE := x_msg_data;
997: IF (l_Debug_Level <= 5) THEN
998: cln_debug_pub.Add(x_msg_data, 5);
999: END IF;
1000:
1001: x_msg_data := 'While trying to process order line shipment'
1002: || ' for the inbound change sales order#'
1013: || p_po_ship_num
1014: || ', the following error is encountered:'
1015: || x_msg_data;
1016: IF (l_Debug_Level <= 5) THEN
1017: cln_debug_pub.Add('EXITING PROCESS_ORDER_LINE_SHIPMENT', 2);
1018: END IF;
1019:
1020: END PROCESS_ORDER_LINE_SHIPMENT;
1021:
1048: l_error_id NUMBER;
1049: l_error_status VARCHAR2(1000);
1050: BEGIN
1051: -- Sets the debug mode to be FILE
1052: --l_debug_mode := cln_debug_pub.Set_Debug_Mode('FILE');
1053:
1054: -- Initialize API return status to success
1055: l_error_id := 0;
1056: x_error_id := 0;
1058: FND_MESSAGE.SET_NAME('CLN','CLN_G_RET_MSG_SUCCESS');
1059: x_msg_data := FND_MESSAGE.GET;
1060:
1061: IF (l_Debug_Level <= 2) THEN
1062: cln_debug_pub.Add('ENTERING LOAD_CHANGES', 2);
1063: END IF;
1064:
1065: IF (l_Debug_Level <= 1) THEN
1066: cln_debug_pub.Add('With the following parameters:', 1);
1062: cln_debug_pub.Add('ENTERING LOAD_CHANGES', 2);
1063: END IF;
1064:
1065: IF (l_Debug_Level <= 1) THEN
1066: cln_debug_pub.Add('With the following parameters:', 1);
1067: cln_debug_pub.Add('p_app_ref_id:' || p_app_ref_id, 1);
1068: cln_debug_pub.Add('p_po_id:' || p_po_id, 1);
1069: cln_debug_pub.Add('p_so_num:' || p_so_num, 1);
1070: cln_debug_pub.Add('p_int_ctl_num:' || p_int_ctl_num, 1);
1063: END IF;
1064:
1065: IF (l_Debug_Level <= 1) THEN
1066: cln_debug_pub.Add('With the following parameters:', 1);
1067: cln_debug_pub.Add('p_app_ref_id:' || p_app_ref_id, 1);
1068: cln_debug_pub.Add('p_po_id:' || p_po_id, 1);
1069: cln_debug_pub.Add('p_so_num:' || p_so_num, 1);
1070: cln_debug_pub.Add('p_int_ctl_num:' || p_int_ctl_num, 1);
1071:
1064:
1065: IF (l_Debug_Level <= 1) THEN
1066: cln_debug_pub.Add('With the following parameters:', 1);
1067: cln_debug_pub.Add('p_app_ref_id:' || p_app_ref_id, 1);
1068: cln_debug_pub.Add('p_po_id:' || p_po_id, 1);
1069: cln_debug_pub.Add('p_so_num:' || p_so_num, 1);
1070: cln_debug_pub.Add('p_int_ctl_num:' || p_int_ctl_num, 1);
1071:
1072: cln_debug_pub.Add('G_ERROR_ID:' || G_ERROR_ID, 1);
1065: IF (l_Debug_Level <= 1) THEN
1066: cln_debug_pub.Add('With the following parameters:', 1);
1067: cln_debug_pub.Add('p_app_ref_id:' || p_app_ref_id, 1);
1068: cln_debug_pub.Add('p_po_id:' || p_po_id, 1);
1069: cln_debug_pub.Add('p_so_num:' || p_so_num, 1);
1070: cln_debug_pub.Add('p_int_ctl_num:' || p_int_ctl_num, 1);
1071:
1072: cln_debug_pub.Add('G_ERROR_ID:' || G_ERROR_ID, 1);
1073: cln_debug_pub.Add('G_ERROR_MESSAGE:' || G_ERROR_MESSAGE, 1);
1066: cln_debug_pub.Add('With the following parameters:', 1);
1067: cln_debug_pub.Add('p_app_ref_id:' || p_app_ref_id, 1);
1068: cln_debug_pub.Add('p_po_id:' || p_po_id, 1);
1069: cln_debug_pub.Add('p_so_num:' || p_so_num, 1);
1070: cln_debug_pub.Add('p_int_ctl_num:' || p_int_ctl_num, 1);
1071:
1072: cln_debug_pub.Add('G_ERROR_ID:' || G_ERROR_ID, 1);
1073: cln_debug_pub.Add('G_ERROR_MESSAGE:' || G_ERROR_MESSAGE, 1);
1074: END IF;
1068: cln_debug_pub.Add('p_po_id:' || p_po_id, 1);
1069: cln_debug_pub.Add('p_so_num:' || p_so_num, 1);
1070: cln_debug_pub.Add('p_int_ctl_num:' || p_int_ctl_num, 1);
1071:
1072: cln_debug_pub.Add('G_ERROR_ID:' || G_ERROR_ID, 1);
1073: cln_debug_pub.Add('G_ERROR_MESSAGE:' || G_ERROR_MESSAGE, 1);
1074: END IF;
1075:
1076:
1069: cln_debug_pub.Add('p_so_num:' || p_so_num, 1);
1070: cln_debug_pub.Add('p_int_ctl_num:' || p_int_ctl_num, 1);
1071:
1072: cln_debug_pub.Add('G_ERROR_ID:' || G_ERROR_ID, 1);
1073: cln_debug_pub.Add('G_ERROR_MESSAGE:' || G_ERROR_MESSAGE, 1);
1074: END IF;
1075:
1076:
1077: -- If and only if none has failed until now
1082: x_error_status_in => l_error_status,
1083: x_error_id_out => l_error_id,
1084: x_error_status_out => l_error_status);
1085: IF (l_Debug_Level <= 1) THEN
1086: cln_debug_pub.Add('process_supplier_request', 1);
1087: cln_debug_pub.Add('l_error_id:' || l_error_id,1);
1088: cln_debug_pub.Add('l_error_status:' || l_error_status,1);
1089: END IF;
1090:
1083: x_error_id_out => l_error_id,
1084: x_error_status_out => l_error_status);
1085: IF (l_Debug_Level <= 1) THEN
1086: cln_debug_pub.Add('process_supplier_request', 1);
1087: cln_debug_pub.Add('l_error_id:' || l_error_id,1);
1088: cln_debug_pub.Add('l_error_status:' || l_error_status,1);
1089: END IF;
1090:
1091: IF l_error_id IS NOT NULL AND l_error_id <> 0 THEN
1084: x_error_status_out => l_error_status);
1085: IF (l_Debug_Level <= 1) THEN
1086: cln_debug_pub.Add('process_supplier_request', 1);
1087: cln_debug_pub.Add('l_error_id:' || l_error_id,1);
1088: cln_debug_pub.Add('l_error_status:' || l_error_status,1);
1089: END IF;
1090:
1091: IF l_error_id IS NOT NULL AND l_error_id <> 0 THEN
1092: G_ERROR_ID := l_error_id;
1093: G_ERROR_MESSAGE := l_error_status;
1094: x_error_id := l_error_id;
1095: x_msg_data := l_error_status;
1096: IF (l_Debug_Level <= 1) THEN
1097: cln_debug_pub.Add('PO API Call failed', 1);
1098: END IF;
1099:
1100: ROLLBACK TO PO_UPDATE_TXN;
1101: IF (l_Debug_Level <= 1) THEN
1098: END IF;
1099:
1100: ROLLBACK TO PO_UPDATE_TXN;
1101: IF (l_Debug_Level <= 1) THEN
1102: cln_debug_pub.Add('Rolledback PO_UPDATE_TXN transaction',1);
1103: END IF;
1104:
1105: RAISE_UPDATE_COLLABORATION(
1106: x_return_status => l_return_status,
1112: p_status_code => 1,
1113: p_int_ctl_num => p_int_ctl_num);
1114: IF l_return_status <> 'S' THEN
1115: IF (l_Debug_Level <= 1) THEN
1116: cln_debug_pub.Add('RAISE_UPDATE_COLLABORATION CALL FAILED',1);
1117: END IF;
1118:
1119: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1120: END IF;
1118:
1119: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1120: END IF;
1121: IF (l_Debug_Level <= 1) THEN
1122: cln_debug_pub.Add(x_msg_data, 1);
1123: END IF;
1124:
1125: IF (l_Debug_Level <= 2) THEN
1126: cln_debug_pub.Add('EXITING LOAD_CHANGES', 2);
1122: cln_debug_pub.Add(x_msg_data, 1);
1123: END IF;
1124:
1125: IF (l_Debug_Level <= 2) THEN
1126: cln_debug_pub.Add('EXITING LOAD_CHANGES', 2);
1127: END IF;
1128:
1129: RETURN;
1130: END IF; -- If Error ID is not zero
1132: x_error_id := G_ERROR_ID;
1133: x_msg_data := G_ERROR_MESSAGE;
1134: END IF;
1135: IF (l_Debug_Level <= 2) THEN
1136: cln_debug_pub.Add('EXITING LOAD_CHANGES', 2);
1137: END IF;
1138:
1139: EXCEPTION
1140: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1139: EXCEPTION
1140: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1141: ROLLBACK TO PO_UPDATE_TXN;
1142: IF (l_Debug_Level <= 5) THEN
1143: cln_debug_pub.Add('Rolledback PO_UPDATE_TXN transaction',5);
1144: END IF;
1145:
1146: x_error_id := -1;
1147: G_ERROR_ID := -1;
1147: G_ERROR_ID := -1;
1148: x_msg_data := l_return_msg;
1149: G_ERROR_MESSAGE := l_return_msg;
1150: IF (l_Debug_Level <= 5) THEN
1151: cln_debug_pub.Add(x_msg_data, 5);
1152: END IF;
1153:
1154: x_msg_data := 'While trying load changes in to interface tables'
1155: || ' for the inbound change sales order#'
1158: || p_po_id
1159: || ', the following error is encountered:'
1160: || x_msg_data;
1161: IF (l_Debug_Level <= 5) THEN
1162: cln_debug_pub.Add('EXITING LOAD_CHANGES', 2);
1163: END IF;
1164:
1165: WHEN OTHERS THEN
1166: ROLLBACK TO PO_UPDATE_TXN;
1164:
1165: WHEN OTHERS THEN
1166: ROLLBACK TO PO_UPDATE_TXN;
1167: IF (l_Debug_Level <= 5) THEN
1168: cln_debug_pub.Add('Rolledback PO_UPDATE_TXN transaction',5);
1169: END IF;
1170:
1171: l_error_code := SQLCODE;
1172: l_error_msg := SQLERRM;
1174: G_ERROR_ID := -2;
1175: x_msg_data := l_error_code||' : '||l_error_msg;
1176: G_ERROR_MESSAGE := x_msg_data;
1177: IF (l_Debug_Level <= 5) THEN
1178: cln_debug_pub.Add(x_msg_data, 5);
1179: END IF;
1180:
1181: x_msg_data := 'While trying to load changes in to interface tables'
1182: || ' for the inbound change sales order#'
1185: || p_po_id
1186: || ', the following error is encountered:'
1187: || x_msg_data;
1188: IF (l_Debug_Level <= 5) THEN
1189: cln_debug_pub.Add('EXITING LOAD_CHANGES', 2);
1190: END IF;
1191:
1192: END LOAD_CHANGES;
1193:
1214: l_tp_id NUMBER;
1215: l_tp_site_id NUMBER;
1216: BEGIN
1217: -- Sets the debug mode to be FILE
1218: --l_debug_mode := cln_debug_pub.Set_Debug_Mode('FILE');
1219: IF (l_Debug_Level <= 2) THEN
1220: cln_debug_pub.Add('ENTERING GET_TRADING_PARTNER_DETAILS', 2);
1221: END IF;
1222:
1216: BEGIN
1217: -- Sets the debug mode to be FILE
1218: --l_debug_mode := cln_debug_pub.Set_Debug_Mode('FILE');
1219: IF (l_Debug_Level <= 2) THEN
1220: cln_debug_pub.Add('ENTERING GET_TRADING_PARTNER_DETAILS', 2);
1221: END IF;
1222:
1223:
1224: IF (l_Debug_Level <= 1) THEN
1221: END IF;
1222:
1223:
1224: IF (l_Debug_Level <= 1) THEN
1225: cln_debug_pub.Add('p_tp_header_id:' || p_tp_header_id, 1);
1226: END IF;
1227:
1228:
1229: SELECT PARTY_ID, PARTY_SITE_ID
1231: FROM ECX_TP_HEADERS
1232: WHERE TP_HEADER_ID = p_tp_header_id;
1233:
1234: IF (l_Debug_Level <= 1) THEN
1235: cln_debug_pub.Add('l_tp_id:' || l_tp_id, 1);
1236: cln_debug_pub.Add('l_tp_site_id:' || l_tp_site_id, 1);
1237: END IF;
1238:
1239:
1232: WHERE TP_HEADER_ID = p_tp_header_id;
1233:
1234: IF (l_Debug_Level <= 1) THEN
1235: cln_debug_pub.Add('l_tp_id:' || l_tp_id, 1);
1236: cln_debug_pub.Add('l_tp_site_id:' || l_tp_site_id, 1);
1237: END IF;
1238:
1239:
1240: x_tp_id := l_tp_id;
1240: x_tp_id := l_tp_id;
1241: x_tp_site_id := l_tp_site_id;
1242:
1243: IF (l_Debug_Level <= 2) THEN
1244: cln_debug_pub.Add('GET_TRADING_PARTNER_DETAILS', 2);
1245: END IF;
1246:
1247: END GET_TRADING_PARTNER_DETAILS;
1248:
1276: l_debug_mode VARCHAR2(255);
1277: l_doc_status VARCHAR2(255);
1278: BEGIN
1279: -- Sets the debug mode to be FILE
1280: --l_debug_mode := cln_debug_pub.Set_Debug_Mode('FILE');
1281: IF (l_Debug_Level <= 2) THEN
1282: cln_debug_pub.Add('ENTERING RAISE_UPDATE_COLLABORATION', 2);
1283: END IF;
1284:
1278: BEGIN
1279: -- Sets the debug mode to be FILE
1280: --l_debug_mode := cln_debug_pub.Set_Debug_Mode('FILE');
1281: IF (l_Debug_Level <= 2) THEN
1282: cln_debug_pub.Add('ENTERING RAISE_UPDATE_COLLABORATION', 2);
1283: END IF;
1284:
1285:
1286: -- Initialize API return status to success
1292:
1293: SELECT cln_generic_s.nextval INTO l_event_key FROM dual;
1294:
1295: IF (l_Debug_Level <= 1) THEN
1296: cln_debug_pub.Add('With the following parameters', 1);
1297: cln_debug_pub.Add('p_ref_id' || p_ref_id, 1);
1298: cln_debug_pub.Add('p_doc_no:' || p_doc_no, 1);
1299: cln_debug_pub.Add('p_status_code:' || p_status_code, 1);
1300: cln_debug_pub.Add('p_msg_text:' || p_msg_text, 1);
1293: SELECT cln_generic_s.nextval INTO l_event_key FROM dual;
1294:
1295: IF (l_Debug_Level <= 1) THEN
1296: cln_debug_pub.Add('With the following parameters', 1);
1297: cln_debug_pub.Add('p_ref_id' || p_ref_id, 1);
1298: cln_debug_pub.Add('p_doc_no:' || p_doc_no, 1);
1299: cln_debug_pub.Add('p_status_code:' || p_status_code, 1);
1300: cln_debug_pub.Add('p_msg_text:' || p_msg_text, 1);
1301: cln_debug_pub.Add('p_part_doc_no:' || p_part_doc_no, 1);
1294:
1295: IF (l_Debug_Level <= 1) THEN
1296: cln_debug_pub.Add('With the following parameters', 1);
1297: cln_debug_pub.Add('p_ref_id' || p_ref_id, 1);
1298: cln_debug_pub.Add('p_doc_no:' || p_doc_no, 1);
1299: cln_debug_pub.Add('p_status_code:' || p_status_code, 1);
1300: cln_debug_pub.Add('p_msg_text:' || p_msg_text, 1);
1301: cln_debug_pub.Add('p_part_doc_no:' || p_part_doc_no, 1);
1302: cln_debug_pub.Add('p_int_ctl_num:' || p_int_ctl_num, 1);
1295: IF (l_Debug_Level <= 1) THEN
1296: cln_debug_pub.Add('With the following parameters', 1);
1297: cln_debug_pub.Add('p_ref_id' || p_ref_id, 1);
1298: cln_debug_pub.Add('p_doc_no:' || p_doc_no, 1);
1299: cln_debug_pub.Add('p_status_code:' || p_status_code, 1);
1300: cln_debug_pub.Add('p_msg_text:' || p_msg_text, 1);
1301: cln_debug_pub.Add('p_part_doc_no:' || p_part_doc_no, 1);
1302: cln_debug_pub.Add('p_int_ctl_num:' || p_int_ctl_num, 1);
1303: END IF;
1296: cln_debug_pub.Add('With the following parameters', 1);
1297: cln_debug_pub.Add('p_ref_id' || p_ref_id, 1);
1298: cln_debug_pub.Add('p_doc_no:' || p_doc_no, 1);
1299: cln_debug_pub.Add('p_status_code:' || p_status_code, 1);
1300: cln_debug_pub.Add('p_msg_text:' || p_msg_text, 1);
1301: cln_debug_pub.Add('p_part_doc_no:' || p_part_doc_no, 1);
1302: cln_debug_pub.Add('p_int_ctl_num:' || p_int_ctl_num, 1);
1303: END IF;
1304:
1297: cln_debug_pub.Add('p_ref_id' || p_ref_id, 1);
1298: cln_debug_pub.Add('p_doc_no:' || p_doc_no, 1);
1299: cln_debug_pub.Add('p_status_code:' || p_status_code, 1);
1300: cln_debug_pub.Add('p_msg_text:' || p_msg_text, 1);
1301: cln_debug_pub.Add('p_part_doc_no:' || p_part_doc_no, 1);
1302: cln_debug_pub.Add('p_int_ctl_num:' || p_int_ctl_num, 1);
1303: END IF;
1304:
1305:
1298: cln_debug_pub.Add('p_doc_no:' || p_doc_no, 1);
1299: cln_debug_pub.Add('p_status_code:' || p_status_code, 1);
1300: cln_debug_pub.Add('p_msg_text:' || p_msg_text, 1);
1301: cln_debug_pub.Add('p_part_doc_no:' || p_part_doc_no, 1);
1302: cln_debug_pub.Add('p_int_ctl_num:' || p_int_ctl_num, 1);
1303: END IF;
1304:
1305:
1306: IF p_status_code = 0 THEN
1309: l_doc_status := 'ERROR';
1310: END IF;
1311:
1312: IF (l_Debug_Level <= 1) THEN
1313: cln_debug_pub.Add('l_doc_status:' || l_doc_status, 1);
1314: END IF;
1315:
1316:
1317: l_cln_ch_parameters := wf_parameter_list_t();
1328:
1329: WF_EVENT.Raise('oracle.apps.cln.ch.collaboration.update',
1330: l_event_key, NULL, l_cln_ch_parameters, NULL);
1331: IF (l_Debug_Level <= 1) THEN
1332: cln_debug_pub.Add('Workflow event- oracle.apps.cln.ch.collaboration.update raised', 1);
1333: END IF;
1334:
1335:
1336: IF (l_Debug_Level <= 2) THEN
1333: END IF;
1334:
1335:
1336: IF (l_Debug_Level <= 2) THEN
1337: cln_debug_pub.Add('EXITING RAISE_UPDATE_COLLABORATION', 2);
1338: END IF;
1339:
1340: EXCEPTION
1341: WHEN OTHERS THEN
1343: l_error_msg := SQLERRM;
1344: x_return_status := FND_API.G_RET_STS_ERROR;
1345: x_msg_data := l_error_code || ':' || l_error_msg;
1346: IF (l_Debug_Level <= 5) THEN
1347: cln_debug_pub.Add(x_msg_data, 4);
1348: cln_debug_pub.Add('EXITING RAISE_UPDATE_COLLABORATION', 2);
1349: END IF;
1350:
1351: END RAISE_UPDATE_COLLABORATION;
1344: x_return_status := FND_API.G_RET_STS_ERROR;
1345: x_msg_data := l_error_code || ':' || l_error_msg;
1346: IF (l_Debug_Level <= 5) THEN
1347: cln_debug_pub.Add(x_msg_data, 4);
1348: cln_debug_pub.Add('EXITING RAISE_UPDATE_COLLABORATION', 2);
1349: END IF;
1350:
1351: END RAISE_UPDATE_COLLABORATION;
1352:
1383: l_dtl_coll_id NUMBER;
1384: l_msg_data VARCHAR2(2000);
1385: BEGIN
1386: -- Sets the debug mode to be FILE
1387: --l_debug_mode :=cln_debug_pub.Set_Debug_Mode('FILE');
1388: IF (l_Debug_Level <= 2) THEN
1389: cln_debug_pub.Add('ENTERING RAISE_ADD_MESSAGE', 2);
1390: END IF;
1391:
1385: BEGIN
1386: -- Sets the debug mode to be FILE
1387: --l_debug_mode :=cln_debug_pub.Set_Debug_Mode('FILE');
1388: IF (l_Debug_Level <= 2) THEN
1389: cln_debug_pub.Add('ENTERING RAISE_ADD_MESSAGE', 2);
1390: END IF;
1391:
1392: -- Parameters received
1393: IF (l_Debug_Level <= 1) THEN
1390: END IF;
1391:
1392: -- Parameters received
1393: IF (l_Debug_Level <= 1) THEN
1394: cln_debug_pub.Add('With the following parameters',1);
1395: cln_debug_pub.Add('p_ictrl_no - ' || p_ictrl_no,1);
1396: cln_debug_pub.Add('p_ref1 - ' || p_ref1,1);
1397: cln_debug_pub.Add('p_ref2 - ' || p_ref2,1);
1398: cln_debug_pub.Add('p_ref3 - ' || p_ref3,1);
1391:
1392: -- Parameters received
1393: IF (l_Debug_Level <= 1) THEN
1394: cln_debug_pub.Add('With the following parameters',1);
1395: cln_debug_pub.Add('p_ictrl_no - ' || p_ictrl_no,1);
1396: cln_debug_pub.Add('p_ref1 - ' || p_ref1,1);
1397: cln_debug_pub.Add('p_ref2 - ' || p_ref2,1);
1398: cln_debug_pub.Add('p_ref3 - ' || p_ref3,1);
1399: cln_debug_pub.Add('p_ref4 - ' || p_ref4,1);
1392: -- Parameters received
1393: IF (l_Debug_Level <= 1) THEN
1394: cln_debug_pub.Add('With the following parameters',1);
1395: cln_debug_pub.Add('p_ictrl_no - ' || p_ictrl_no,1);
1396: cln_debug_pub.Add('p_ref1 - ' || p_ref1,1);
1397: cln_debug_pub.Add('p_ref2 - ' || p_ref2,1);
1398: cln_debug_pub.Add('p_ref3 - ' || p_ref3,1);
1399: cln_debug_pub.Add('p_ref4 - ' || p_ref4,1);
1400: cln_debug_pub.Add('p_ref5 - ' || p_ref5,1);
1393: IF (l_Debug_Level <= 1) THEN
1394: cln_debug_pub.Add('With the following parameters',1);
1395: cln_debug_pub.Add('p_ictrl_no - ' || p_ictrl_no,1);
1396: cln_debug_pub.Add('p_ref1 - ' || p_ref1,1);
1397: cln_debug_pub.Add('p_ref2 - ' || p_ref2,1);
1398: cln_debug_pub.Add('p_ref3 - ' || p_ref3,1);
1399: cln_debug_pub.Add('p_ref4 - ' || p_ref4,1);
1400: cln_debug_pub.Add('p_ref5 - ' || p_ref5,1);
1401: cln_debug_pub.Add('p_dtl_msg - ' || p_dtl_msg,1);
1394: cln_debug_pub.Add('With the following parameters',1);
1395: cln_debug_pub.Add('p_ictrl_no - ' || p_ictrl_no,1);
1396: cln_debug_pub.Add('p_ref1 - ' || p_ref1,1);
1397: cln_debug_pub.Add('p_ref2 - ' || p_ref2,1);
1398: cln_debug_pub.Add('p_ref3 - ' || p_ref3,1);
1399: cln_debug_pub.Add('p_ref4 - ' || p_ref4,1);
1400: cln_debug_pub.Add('p_ref5 - ' || p_ref5,1);
1401: cln_debug_pub.Add('p_dtl_msg - ' || p_dtl_msg,1);
1402: END IF;
1395: cln_debug_pub.Add('p_ictrl_no - ' || p_ictrl_no,1);
1396: cln_debug_pub.Add('p_ref1 - ' || p_ref1,1);
1397: cln_debug_pub.Add('p_ref2 - ' || p_ref2,1);
1398: cln_debug_pub.Add('p_ref3 - ' || p_ref3,1);
1399: cln_debug_pub.Add('p_ref4 - ' || p_ref4,1);
1400: cln_debug_pub.Add('p_ref5 - ' || p_ref5,1);
1401: cln_debug_pub.Add('p_dtl_msg - ' || p_dtl_msg,1);
1402: END IF;
1403:
1396: cln_debug_pub.Add('p_ref1 - ' || p_ref1,1);
1397: cln_debug_pub.Add('p_ref2 - ' || p_ref2,1);
1398: cln_debug_pub.Add('p_ref3 - ' || p_ref3,1);
1399: cln_debug_pub.Add('p_ref4 - ' || p_ref4,1);
1400: cln_debug_pub.Add('p_ref5 - ' || p_ref5,1);
1401: cln_debug_pub.Add('p_dtl_msg - ' || p_dtl_msg,1);
1402: END IF;
1403:
1404:
1397: cln_debug_pub.Add('p_ref2 - ' || p_ref2,1);
1398: cln_debug_pub.Add('p_ref3 - ' || p_ref3,1);
1399: cln_debug_pub.Add('p_ref4 - ' || p_ref4,1);
1400: cln_debug_pub.Add('p_ref5 - ' || p_ref5,1);
1401: cln_debug_pub.Add('p_dtl_msg - ' || p_dtl_msg,1);
1402: END IF;
1403:
1404:
1405: -- Initialize API return status to success
1426:
1427: WF_EVENT.Raise('oracle.apps.cln.ch.collaboration.addmessage',
1428: l_event_key, NULL, l_cln_ch_parameters, NULL);
1429: IF (l_Debug_Level <= 1) THEN
1430: cln_debug_pub.Add('Workflow event- oracle.apps.cln.ch.collaboration.addmessage', 1);
1431: END IF;
1432:
1433:
1434: IF (l_Debug_Level <= 2) THEN
1431: END IF;
1432:
1433:
1434: IF (l_Debug_Level <= 2) THEN
1435: cln_debug_pub.Add('EXITING RAISE_ADD_MESSAGE', 2);
1436: END IF;
1437:
1438: EXCEPTION
1439: WHEN OTHERS THEN
1441: l_error_msg := SQLERRM;
1442: x_return_status := FND_API.G_RET_STS_ERROR;
1443: x_msg_data := l_error_code || ':' || l_error_msg;
1444: IF (l_Debug_Level <= 5) THEN
1445: cln_debug_pub.Add(x_msg_data, 4);
1446: cln_debug_pub.Add('EXITING RAISE_ADD_MESSAGE', 2);
1447: END IF;
1448:
1449: END RAISE_ADD_MESSAGE;
1442: x_return_status := FND_API.G_RET_STS_ERROR;
1443: x_msg_data := l_error_code || ':' || l_error_msg;
1444: IF (l_Debug_Level <= 5) THEN
1445: cln_debug_pub.Add(x_msg_data, 4);
1446: cln_debug_pub.Add('EXITING RAISE_ADD_MESSAGE', 2);
1447: END IF;
1448:
1449: END RAISE_ADD_MESSAGE;
1450:
1482: l_error_id NUMBER;
1483: BEGIN
1484:
1485: -- Sets the debug mode to be FILE
1486: --l_debug_mode :=cln_debug_pub.Set_Debug_Mode('FILE');
1487:
1488: x_resultout:='Yes';
1489:
1490: IF (l_Debug_Level <= 2) THEN
1487:
1488: x_resultout:='Yes';
1489:
1490: IF (l_Debug_Level <= 2) THEN
1491: cln_debug_pub.Add('ENTERING CALL_TAKE_ACTIONS API', 2);
1492: END IF;
1493:
1494: IF (l_Debug_Level <= 1) THEN
1495: cln_debug_pub.Add('Parameters:', 1);
1491: cln_debug_pub.Add('ENTERING CALL_TAKE_ACTIONS API', 2);
1492: END IF;
1493:
1494: IF (l_Debug_Level <= 1) THEN
1495: cln_debug_pub.Add('Parameters:', 1);
1496: END IF;
1497:
1498:
1499: -- l_error_id := TO_NUMBER(wf_engine.GetItemAttrText(itemtype, itemkey, actid, 'PARAMETER6'));
1498:
1499: -- l_error_id := TO_NUMBER(wf_engine.GetItemAttrText(itemtype, itemkey, actid, 'PARAMETER6'));
1500: l_error_id := wf_engine.GetItemAttrNumber(p_itemtype, p_itemkey, 'PARAMETER6', TRUE);
1501: IF (l_Debug_Level <= 1) THEN
1502: cln_debug_pub.Add('l_error_id:' || l_error_id, 1);
1503: END IF;
1504:
1505:
1506: IF (l_error_id = 0) THEN
1514: ELSE
1515: l_doc_status := 'ERROR';
1516: l_msg_data := wf_engine.GetItemAttrText(p_itemtype, p_itemkey, 'PARAMETER7', TRUE);
1517: IF (l_Debug_Level <= 1) THEN
1518: cln_debug_pub.Add('l_msg_data:' || l_msg_data, 1);
1519: END IF;
1520:
1521: -- Error while processing change sales order
1522: FND_MESSAGE.SET_NAME('CLN','CLN_PO_CHANGE_ERROR');
1528: END IF;
1529:
1530: l_trp_id := wf_engine.GetItemAttrText(p_itemtype, p_itemkey, 'PARAMETER10', TRUE);
1531: IF (l_Debug_Level <= 1) THEN
1532: cln_debug_pub.Add('l_tp_id:' || l_trp_id, 1);
1533: END IF;
1534:
1535: l_app_ref_id := wf_engine.GetItemAttrText(p_itemtype, p_itemkey, 'PARAMETER4', TRUE);
1536: IF (l_Debug_Level <= 1) THEN
1533: END IF;
1534:
1535: l_app_ref_id := wf_engine.GetItemAttrText(p_itemtype, p_itemkey, 'PARAMETER4', TRUE);
1536: IF (l_Debug_Level <= 1) THEN
1537: cln_debug_pub.Add('l_app_ref_id:' || l_app_ref_id, 1);
1538: END IF;
1539:
1540: CLN_UTILS.GET_TRADING_PARTNER(l_trp_id, l_tp_id);
1541: IF (l_Debug_Level <= 1) THEN
1538: END IF;
1539:
1540: CLN_UTILS.GET_TRADING_PARTNER(l_trp_id, l_tp_id);
1541: IF (l_Debug_Level <= 1) THEN
1542: cln_debug_pub.Add('Trading Partner ID:' || l_tp_id, 1);
1543: END IF;
1544:
1545:
1546: -- Error occured
1556: p_coll_point => 'APPS',
1557: p_int_con_no => NULL);
1558: IF l_return_status <> 'S' THEN
1559: IF (l_Debug_Level <= 1) THEN
1560: cln_debug_pub.Add('CALL_TAKE_ACTIONS CALL FAILED', 1);
1561: END IF;
1562:
1563: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1564: END IF;
1579: p_coll_point => 'APPS',
1580: p_int_con_no => NULL);
1581: IF l_return_status <> 'S' THEN
1582: IF (l_Debug_Level <= 1) THEN
1583: cln_debug_pub.Add('CALL_TAKE_ACTIONS CALL FAILED', 1);
1584: END IF;
1585:
1586: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1587: END IF;
1586: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1587: END IF;
1588:
1589: IF (l_Debug_Level <= 2) THEN
1590: cln_debug_pub.Add('EXITING CALL_TAKE_ACTIONS API', 2);
1591: END IF;
1592:
1593: EXCEPTION
1594: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1592:
1593: EXCEPTION
1594: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1595: IF (l_Debug_Level <= 5) THEN
1596: cln_debug_pub.Add(l_return_msg, 6);
1597: END IF;
1598:
1599: CLN_NP_PROCESSOR_PKG.NOTIFY_ADMINISTRATOR(l_return_msg);
1600: IF (l_Debug_Level <= 5) THEN
1597: END IF;
1598:
1599: CLN_NP_PROCESSOR_PKG.NOTIFY_ADMINISTRATOR(l_return_msg);
1600: IF (l_Debug_Level <= 5) THEN
1601: cln_debug_pub.Add('EXITING CALL_TAKE_ACTIONS API', 2);
1602: END IF;
1603:
1604: WHEN OTHERS THEN
1605: l_error_code := SQLCODE;
1605: l_error_code := SQLCODE;
1606: l_error_msg := SQLERRM;
1607: l_not_msg := l_error_code || ':' || l_error_msg;
1608: IF (l_Debug_Level <= 2) THEN
1609: cln_debug_pub.Add(l_not_msg, 6);
1610: END IF;
1611:
1612: CLN_NP_PROCESSOR_PKG.NOTIFY_ADMINISTRATOR(l_not_msg);
1613: IF (l_Debug_Level <= 5) THEN
1610: END IF;
1611:
1612: CLN_NP_PROCESSOR_PKG.NOTIFY_ADMINISTRATOR(l_not_msg);
1613: IF (l_Debug_Level <= 5) THEN
1614: cln_debug_pub.Add('EXITING CALL_TAKE_ACTIONS API', 2);
1615: END IF;
1616:
1617: END CALL_TAKE_ACTIONS;
1618: