50: l_event_key NUMBER;
51: l_entity_number VARCHAR2(30);
52: BEGIN
53: -- Sets the debug mode to be FILE
54: l_debug_mode := cln_debug_pub.Set_Debug_Mode('FILE');
55:
56: SAVEPOINT SO_PROCESSING_TXN;
57:
58: -- Initialize API return status to success
61: FND_MESSAGE.SET_NAME('CLN','CLN_G_RET_MSG_SUCCESS');
62: x_msg_data := FND_MESSAGE.GET;
63:
64: IF (l_Debug_Level <= 2) THEN
65: cln_debug_pub.Add('ENTERING CREATE_COLLABORATION', 2);
66: END IF;
67:
68: -- Parameters List
69: IF (l_Debug_Level <= 1) THEN
66: END IF;
67:
68: -- Parameters List
69: IF (l_Debug_Level <= 1) THEN
70: cln_debug_pub.Add('With the following parameters:', 1);
71: cln_debug_pub.Add('p_delivery_number:' || p_delivery_number, 1);
72: cln_debug_pub.Add('p_tp_type:' || p_tp_type, 1);
73: cln_debug_pub.Add('p_tp_id:' || p_tp_id, 1);
74: cln_debug_pub.Add('p_tp_site_id:' || p_tp_site_id, 1);
67:
68: -- Parameters List
69: IF (l_Debug_Level <= 1) THEN
70: cln_debug_pub.Add('With the following parameters:', 1);
71: cln_debug_pub.Add('p_delivery_number:' || p_delivery_number, 1);
72: cln_debug_pub.Add('p_tp_type:' || p_tp_type, 1);
73: cln_debug_pub.Add('p_tp_id:' || p_tp_id, 1);
74: cln_debug_pub.Add('p_tp_site_id:' || p_tp_site_id, 1);
75: cln_debug_pub.Add('p_doc_dir:' || p_doc_dir, 1);
68: -- Parameters List
69: IF (l_Debug_Level <= 1) THEN
70: cln_debug_pub.Add('With the following parameters:', 1);
71: cln_debug_pub.Add('p_delivery_number:' || p_delivery_number, 1);
72: cln_debug_pub.Add('p_tp_type:' || p_tp_type, 1);
73: cln_debug_pub.Add('p_tp_id:' || p_tp_id, 1);
74: cln_debug_pub.Add('p_tp_site_id:' || p_tp_site_id, 1);
75: cln_debug_pub.Add('p_doc_dir:' || p_doc_dir, 1);
76: cln_debug_pub.Add('p_txn_type:' || p_txn_type, 1);
69: IF (l_Debug_Level <= 1) THEN
70: cln_debug_pub.Add('With the following parameters:', 1);
71: cln_debug_pub.Add('p_delivery_number:' || p_delivery_number, 1);
72: cln_debug_pub.Add('p_tp_type:' || p_tp_type, 1);
73: cln_debug_pub.Add('p_tp_id:' || p_tp_id, 1);
74: cln_debug_pub.Add('p_tp_site_id:' || p_tp_site_id, 1);
75: cln_debug_pub.Add('p_doc_dir:' || p_doc_dir, 1);
76: cln_debug_pub.Add('p_txn_type:' || p_txn_type, 1);
77: cln_debug_pub.Add('p_txn_subtype:' || p_txn_subtype, 1);
70: cln_debug_pub.Add('With the following parameters:', 1);
71: cln_debug_pub.Add('p_delivery_number:' || p_delivery_number, 1);
72: cln_debug_pub.Add('p_tp_type:' || p_tp_type, 1);
73: cln_debug_pub.Add('p_tp_id:' || p_tp_id, 1);
74: cln_debug_pub.Add('p_tp_site_id:' || p_tp_site_id, 1);
75: cln_debug_pub.Add('p_doc_dir:' || p_doc_dir, 1);
76: cln_debug_pub.Add('p_txn_type:' || p_txn_type, 1);
77: cln_debug_pub.Add('p_txn_subtype:' || p_txn_subtype, 1);
78: cln_debug_pub.Add('p_xmlg_doc_id:' || p_xmlg_doc_id, 1);
71: cln_debug_pub.Add('p_delivery_number:' || p_delivery_number, 1);
72: cln_debug_pub.Add('p_tp_type:' || p_tp_type, 1);
73: cln_debug_pub.Add('p_tp_id:' || p_tp_id, 1);
74: cln_debug_pub.Add('p_tp_site_id:' || p_tp_site_id, 1);
75: cln_debug_pub.Add('p_doc_dir:' || p_doc_dir, 1);
76: cln_debug_pub.Add('p_txn_type:' || p_txn_type, 1);
77: cln_debug_pub.Add('p_txn_subtype:' || p_txn_subtype, 1);
78: cln_debug_pub.Add('p_xmlg_doc_id:' || p_xmlg_doc_id, 1);
79: cln_debug_pub.Add('p_doc_creation_date:' || p_doc_creation_date, 1);
72: cln_debug_pub.Add('p_tp_type:' || p_tp_type, 1);
73: cln_debug_pub.Add('p_tp_id:' || p_tp_id, 1);
74: cln_debug_pub.Add('p_tp_site_id:' || p_tp_site_id, 1);
75: cln_debug_pub.Add('p_doc_dir:' || p_doc_dir, 1);
76: cln_debug_pub.Add('p_txn_type:' || p_txn_type, 1);
77: cln_debug_pub.Add('p_txn_subtype:' || p_txn_subtype, 1);
78: cln_debug_pub.Add('p_xmlg_doc_id:' || p_xmlg_doc_id, 1);
79: cln_debug_pub.Add('p_doc_creation_date:' || p_doc_creation_date, 1);
80: cln_debug_pub.Add('p_appl_ref_id:' || p_appl_ref_id, 1);
73: cln_debug_pub.Add('p_tp_id:' || p_tp_id, 1);
74: cln_debug_pub.Add('p_tp_site_id:' || p_tp_site_id, 1);
75: cln_debug_pub.Add('p_doc_dir:' || p_doc_dir, 1);
76: cln_debug_pub.Add('p_txn_type:' || p_txn_type, 1);
77: cln_debug_pub.Add('p_txn_subtype:' || p_txn_subtype, 1);
78: cln_debug_pub.Add('p_xmlg_doc_id:' || p_xmlg_doc_id, 1);
79: cln_debug_pub.Add('p_doc_creation_date:' || p_doc_creation_date, 1);
80: cln_debug_pub.Add('p_appl_ref_id:' || p_appl_ref_id, 1);
81: END IF;
74: cln_debug_pub.Add('p_tp_site_id:' || p_tp_site_id, 1);
75: cln_debug_pub.Add('p_doc_dir:' || p_doc_dir, 1);
76: cln_debug_pub.Add('p_txn_type:' || p_txn_type, 1);
77: cln_debug_pub.Add('p_txn_subtype:' || p_txn_subtype, 1);
78: cln_debug_pub.Add('p_xmlg_doc_id:' || p_xmlg_doc_id, 1);
79: cln_debug_pub.Add('p_doc_creation_date:' || p_doc_creation_date, 1);
80: cln_debug_pub.Add('p_appl_ref_id:' || p_appl_ref_id, 1);
81: END IF;
82:
75: cln_debug_pub.Add('p_doc_dir:' || p_doc_dir, 1);
76: cln_debug_pub.Add('p_txn_type:' || p_txn_type, 1);
77: cln_debug_pub.Add('p_txn_subtype:' || p_txn_subtype, 1);
78: cln_debug_pub.Add('p_xmlg_doc_id:' || p_xmlg_doc_id, 1);
79: cln_debug_pub.Add('p_doc_creation_date:' || p_doc_creation_date, 1);
80: cln_debug_pub.Add('p_appl_ref_id:' || p_appl_ref_id, 1);
81: END IF;
82:
83: SELECT cln_generic_s.nextval INTO l_event_key FROM dual;
76: cln_debug_pub.Add('p_txn_type:' || p_txn_type, 1);
77: cln_debug_pub.Add('p_txn_subtype:' || p_txn_subtype, 1);
78: cln_debug_pub.Add('p_xmlg_doc_id:' || p_xmlg_doc_id, 1);
79: cln_debug_pub.Add('p_doc_creation_date:' || p_doc_creation_date, 1);
80: cln_debug_pub.Add('p_appl_ref_id:' || p_appl_ref_id, 1);
81: END IF;
82:
83: SELECT cln_generic_s.nextval INTO l_event_key FROM dual;
84:
112: WF_EVENT.Raise('oracle.apps.cln.ch.collaboration.create',
113: l_event_key, NULL, l_cln_ch_parameters, NULL);
114:
115: IF (l_Debug_Level <= 1) THEN
116: cln_debug_pub.Add('Workflow event- oracle.apps.cln.ch.collaboration.create raised', 1);
117: END IF;
118:
119: COMMIT;
120:
118:
119: COMMIT;
120:
121: IF (l_Debug_Level <= 2) THEN
122: cln_debug_pub.Add('EXITING CREATE_COLLABORATION', 2);
123: END IF;
124:
125: EXCEPTION
126: WHEN OTHERS THEN
125: EXCEPTION
126: WHEN OTHERS THEN
127: ROLLBACK;
128: IF (l_Debug_Level <= 6) THEN
129: cln_debug_pub.Add('Rolledback the autonomous transaction');
130: END IF;
131: l_error_code := SQLCODE;
132: l_error_msg := SQLERRM;
133: x_return_status := FND_API.G_RET_STS_ERROR ;
132: l_error_msg := SQLERRM;
133: x_return_status := FND_API.G_RET_STS_ERROR ;
134: x_msg_data := l_error_code||' : '||l_error_msg;
135: IF (l_Debug_Level <= 6) THEN
136: cln_debug_pub.Add(x_msg_data, 6);
137: END IF;
138: x_msg_data := 'While trying to create a collaboration'
139: || ' for 3B12 outbound document delivery number '
140: || l_entity_number
140: || l_entity_number
141: || ', the following error is encountered:'
142: || x_msg_data;
143: IF (l_Debug_Level <= 2) THEN
144: cln_debug_pub.Add('EXITING CREATE_COLLABORATION', 2);
145: END IF;
146: END CREATE_COLLABORATION;
147:
148:
181: l_entity_number VARCHAR2(30);
182:
183: BEGIN
184: -- Sets the debug mode to be FILE
185: l_debug_mode := cln_debug_pub.Set_Debug_Mode('FILE');
186:
187: -- Initialize API return status to success
188: x_return_status := FND_API.G_RET_STS_SUCCESS;
189:
191: -- Ship Order Request Generated
192: l_msg_text := FND_MESSAGE.GET;
193:
194: IF (l_Debug_Level <= 2) THEN
195: cln_debug_pub.Add('ENTERING UPDATE_COLLABORATION', 2);
196: END IF;
197:
198: -- Parameters List
199: IF (l_Debug_Level <= 1) THEN
196: END IF;
197:
198: -- Parameters List
199: IF (l_Debug_Level <= 1) THEN
200: cln_debug_pub.Add('With the following parameters:', 1);
201: cln_debug_pub.Add('p_delivery_number:' || p_delivery_number, 1);
202: cln_debug_pub.Add('p_tp_type:' || p_tp_type, 1);
203: cln_debug_pub.Add('p_tp_id:' || p_tp_id, 1);
204: cln_debug_pub.Add('p_tp_site_id:' || p_tp_site_id, 1);
197:
198: -- Parameters List
199: IF (l_Debug_Level <= 1) THEN
200: cln_debug_pub.Add('With the following parameters:', 1);
201: cln_debug_pub.Add('p_delivery_number:' || p_delivery_number, 1);
202: cln_debug_pub.Add('p_tp_type:' || p_tp_type, 1);
203: cln_debug_pub.Add('p_tp_id:' || p_tp_id, 1);
204: cln_debug_pub.Add('p_tp_site_id:' || p_tp_site_id, 1);
205: cln_debug_pub.Add('p_doc_dir:' || p_doc_dir, 1);
198: -- Parameters List
199: IF (l_Debug_Level <= 1) THEN
200: cln_debug_pub.Add('With the following parameters:', 1);
201: cln_debug_pub.Add('p_delivery_number:' || p_delivery_number, 1);
202: cln_debug_pub.Add('p_tp_type:' || p_tp_type, 1);
203: cln_debug_pub.Add('p_tp_id:' || p_tp_id, 1);
204: cln_debug_pub.Add('p_tp_site_id:' || p_tp_site_id, 1);
205: cln_debug_pub.Add('p_doc_dir:' || p_doc_dir, 1);
206: cln_debug_pub.Add('p_txn_type:' || p_txn_type, 1);
199: IF (l_Debug_Level <= 1) THEN
200: cln_debug_pub.Add('With the following parameters:', 1);
201: cln_debug_pub.Add('p_delivery_number:' || p_delivery_number, 1);
202: cln_debug_pub.Add('p_tp_type:' || p_tp_type, 1);
203: cln_debug_pub.Add('p_tp_id:' || p_tp_id, 1);
204: cln_debug_pub.Add('p_tp_site_id:' || p_tp_site_id, 1);
205: cln_debug_pub.Add('p_doc_dir:' || p_doc_dir, 1);
206: cln_debug_pub.Add('p_txn_type:' || p_txn_type, 1);
207: cln_debug_pub.Add('p_txn_subtype:' || p_txn_subtype, 1);
200: cln_debug_pub.Add('With the following parameters:', 1);
201: cln_debug_pub.Add('p_delivery_number:' || p_delivery_number, 1);
202: cln_debug_pub.Add('p_tp_type:' || p_tp_type, 1);
203: cln_debug_pub.Add('p_tp_id:' || p_tp_id, 1);
204: cln_debug_pub.Add('p_tp_site_id:' || p_tp_site_id, 1);
205: cln_debug_pub.Add('p_doc_dir:' || p_doc_dir, 1);
206: cln_debug_pub.Add('p_txn_type:' || p_txn_type, 1);
207: cln_debug_pub.Add('p_txn_subtype:' || p_txn_subtype, 1);
208: cln_debug_pub.Add('p_xmlg_doc_id:' || p_xmlg_doc_id, 1);
201: cln_debug_pub.Add('p_delivery_number:' || p_delivery_number, 1);
202: cln_debug_pub.Add('p_tp_type:' || p_tp_type, 1);
203: cln_debug_pub.Add('p_tp_id:' || p_tp_id, 1);
204: cln_debug_pub.Add('p_tp_site_id:' || p_tp_site_id, 1);
205: cln_debug_pub.Add('p_doc_dir:' || p_doc_dir, 1);
206: cln_debug_pub.Add('p_txn_type:' || p_txn_type, 1);
207: cln_debug_pub.Add('p_txn_subtype:' || p_txn_subtype, 1);
208: cln_debug_pub.Add('p_xmlg_doc_id:' || p_xmlg_doc_id, 1);
209: cln_debug_pub.Add('p_appl_ref_id:' || p_appl_ref_id, 1);
202: cln_debug_pub.Add('p_tp_type:' || p_tp_type, 1);
203: cln_debug_pub.Add('p_tp_id:' || p_tp_id, 1);
204: cln_debug_pub.Add('p_tp_site_id:' || p_tp_site_id, 1);
205: cln_debug_pub.Add('p_doc_dir:' || p_doc_dir, 1);
206: cln_debug_pub.Add('p_txn_type:' || p_txn_type, 1);
207: cln_debug_pub.Add('p_txn_subtype:' || p_txn_subtype, 1);
208: cln_debug_pub.Add('p_xmlg_doc_id:' || p_xmlg_doc_id, 1);
209: cln_debug_pub.Add('p_appl_ref_id:' || p_appl_ref_id, 1);
210: cln_debug_pub.Add('p_int_ctrl_num:' || p_int_ctrl_num, 1);
203: cln_debug_pub.Add('p_tp_id:' || p_tp_id, 1);
204: cln_debug_pub.Add('p_tp_site_id:' || p_tp_site_id, 1);
205: cln_debug_pub.Add('p_doc_dir:' || p_doc_dir, 1);
206: cln_debug_pub.Add('p_txn_type:' || p_txn_type, 1);
207: cln_debug_pub.Add('p_txn_subtype:' || p_txn_subtype, 1);
208: cln_debug_pub.Add('p_xmlg_doc_id:' || p_xmlg_doc_id, 1);
209: cln_debug_pub.Add('p_appl_ref_id:' || p_appl_ref_id, 1);
210: cln_debug_pub.Add('p_int_ctrl_num:' || p_int_ctrl_num, 1);
211: END IF;
204: cln_debug_pub.Add('p_tp_site_id:' || p_tp_site_id, 1);
205: cln_debug_pub.Add('p_doc_dir:' || p_doc_dir, 1);
206: cln_debug_pub.Add('p_txn_type:' || p_txn_type, 1);
207: cln_debug_pub.Add('p_txn_subtype:' || p_txn_subtype, 1);
208: cln_debug_pub.Add('p_xmlg_doc_id:' || p_xmlg_doc_id, 1);
209: cln_debug_pub.Add('p_appl_ref_id:' || p_appl_ref_id, 1);
210: cln_debug_pub.Add('p_int_ctrl_num:' || p_int_ctrl_num, 1);
211: END IF;
212:
205: cln_debug_pub.Add('p_doc_dir:' || p_doc_dir, 1);
206: cln_debug_pub.Add('p_txn_type:' || p_txn_type, 1);
207: cln_debug_pub.Add('p_txn_subtype:' || p_txn_subtype, 1);
208: cln_debug_pub.Add('p_xmlg_doc_id:' || p_xmlg_doc_id, 1);
209: cln_debug_pub.Add('p_appl_ref_id:' || p_appl_ref_id, 1);
210: cln_debug_pub.Add('p_int_ctrl_num:' || p_int_ctrl_num, 1);
211: END IF;
212:
213: -- This query can never fail
206: cln_debug_pub.Add('p_txn_type:' || p_txn_type, 1);
207: cln_debug_pub.Add('p_txn_subtype:' || p_txn_subtype, 1);
208: cln_debug_pub.Add('p_xmlg_doc_id:' || p_xmlg_doc_id, 1);
209: cln_debug_pub.Add('p_appl_ref_id:' || p_appl_ref_id, 1);
210: cln_debug_pub.Add('p_int_ctrl_num:' || p_int_ctrl_num, 1);
211: END IF;
212:
213: -- This query can never fail
214: SELECT ENTITY_NUMBER
237:
238: -- Raise update collaboration event
239: WF_EVENT.Raise('oracle.apps.cln.ch.collaboration.update',
240: l_event_key, NULL, l_cln_ch_parameters, NULL);
241: cln_debug_pub.Add('Workflow event- oracle.apps.cln.ch.collaboration.update raised', 1);
242:
243: IF (l_Debug_Level <= 2) THEN
244: cln_debug_pub.Add('EXITING UPDATE_COLLABORATION', 2);
245: END IF;
240: l_event_key, NULL, l_cln_ch_parameters, NULL);
241: cln_debug_pub.Add('Workflow event- oracle.apps.cln.ch.collaboration.update raised', 1);
242:
243: IF (l_Debug_Level <= 2) THEN
244: cln_debug_pub.Add('EXITING UPDATE_COLLABORATION', 2);
245: END IF;
246: EXCEPTION
247: WHEN OTHERS THEN
248: ROLLBACK;
246: EXCEPTION
247: WHEN OTHERS THEN
248: ROLLBACK;
249: IF (l_Debug_Level <= 6) THEN
250: cln_debug_pub.Add('Rolledback the autonomous transaction');
251: END IF;
252: l_error_code := SQLCODE;
253: l_error_msg := SQLERRM;
254: x_return_status := FND_API.G_RET_STS_ERROR ;
253: l_error_msg := SQLERRM;
254: x_return_status := FND_API.G_RET_STS_ERROR ;
255: x_msg_data := l_error_code||' : '||l_error_msg;
256: IF (l_Debug_Level <= 6) THEN
257: cln_debug_pub.Add(x_msg_data, 3);
258: END IF;
259: x_msg_data := 'While trying to update the collaboration'
260: || ' for 3B12 outbound document delivery number '
261: || l_entity_number
261: || l_entity_number
262: || ', the following error is encountered:'
263: || x_msg_data;
264: IF (l_Debug_Level <= 2) THEN
265: cln_debug_pub.Add('EXITING UPDATE_COLLABORATION', 2);
266: END IF;
267: END UPDATE_COLLABORATION;
268:
269:
290: l_error_code NUMBER;
291: l_error_msg VARCHAR2(2000);
292: BEGIN
293: -- Sets the debug mode to be FILE
294: l_debug_mode := cln_debug_pub.Set_Debug_Mode('FILE');
295:
296: -- Initialize API return status to success
297: x_return_status := FND_API.G_RET_STS_SUCCESS;
298:
296: -- Initialize API return status to success
297: x_return_status := FND_API.G_RET_STS_SUCCESS;
298:
299: IF (l_Debug_Level <= 2) THEN
300: cln_debug_pub.Add('ENTERING GET_DELIVERY_INFORMATION', 2);
301: END IF;
302:
303: -- Parameters List
304: IF (l_Debug_Level <= 1) THEN
301: END IF;
302:
303: -- Parameters List
304: IF (l_Debug_Level <= 1) THEN
305: cln_debug_pub.Add('With the following parameters:', 1);
306: cln_debug_pub.Add('p_document_number:' || p_document_number, 1);
307: END IF;
308:
309: SELECT WDD.CUST_PO_NUMBER, WDD.CUSTOMER_ID, WND.CREATION_DATE
302:
303: -- Parameters List
304: IF (l_Debug_Level <= 1) THEN
305: cln_debug_pub.Add('With the following parameters:', 1);
306: cln_debug_pub.Add('p_document_number:' || p_document_number, 1);
307: END IF;
308:
309: SELECT WDD.CUST_PO_NUMBER, WDD.CUSTOMER_ID, WND.CREATION_DATE
310: INTO x_customer_po_number, x_customer_id, x_delivery_creation_date
321: AND WDA.DELIVERY_ID = WND.DELIVERY_ID
322: AND ROWNUM < 2;
323:
324: IF (l_Debug_Level <= 1) THEN
325: cln_debug_pub.Add('x_customer_po_number:' || x_customer_po_number, 1);
326: cln_debug_pub.Add('x_customer_id:' || x_customer_id, 1);
327: cln_debug_pub.Add('x_delivery_creation_date:' || x_delivery_creation_date, 1);
328: END IF;
329:
322: AND ROWNUM < 2;
323:
324: IF (l_Debug_Level <= 1) THEN
325: cln_debug_pub.Add('x_customer_po_number:' || x_customer_po_number, 1);
326: cln_debug_pub.Add('x_customer_id:' || x_customer_id, 1);
327: cln_debug_pub.Add('x_delivery_creation_date:' || x_delivery_creation_date, 1);
328: END IF;
329:
330: IF (l_Debug_Level <= 2) THEN
323:
324: IF (l_Debug_Level <= 1) THEN
325: cln_debug_pub.Add('x_customer_po_number:' || x_customer_po_number, 1);
326: cln_debug_pub.Add('x_customer_id:' || x_customer_id, 1);
327: cln_debug_pub.Add('x_delivery_creation_date:' || x_delivery_creation_date, 1);
328: END IF;
329:
330: IF (l_Debug_Level <= 2) THEN
331: cln_debug_pub.Add('EXITING GET_DELIVERY_INFORMATION', 2);
327: cln_debug_pub.Add('x_delivery_creation_date:' || x_delivery_creation_date, 1);
328: END IF;
329:
330: IF (l_Debug_Level <= 2) THEN
331: cln_debug_pub.Add('EXITING GET_DELIVERY_INFORMATION', 2);
332: END IF;
333: EXCEPTION
334: WHEN OTHERS THEN
335: l_error_code := SQLCODE;
336: l_error_msg := SQLERRM;
337: x_return_status := FND_API.G_RET_STS_ERROR ;
338: x_msg_data := l_error_code||' : '||l_error_msg;
339: IF (l_Debug_Level <= 6) THEN
340: cln_debug_pub.Add(x_msg_data, 3);
341: END IF;
342: x_msg_data := 'While trying to retrieve the additional delivery information'
343: || ' for a 3B12 outbound document delivery number '
344: || p_document_number
344: || p_document_number
345: || ', the following error is encountered:'
346: || x_msg_data;
347: IF (l_Debug_Level <= 2) THEN
348: cln_debug_pub.Add('EXITING GET_DELIVERY_INFORMATION', 2);
349: END IF;
350: END GET_DELIVERY_INFORMATION;
351:
352:
371: l_error_msg VARCHAR2(2000);
372: BEGIN
373:
374: -- Sets the debug mode to be FILE
375: l_debug_mode := cln_debug_pub.Set_Debug_Mode('FILE');
376:
377: IF (l_Debug_Level <= 2) THEN
378: cln_debug_pub.Add('ENTERING GET_FROM_ROLE_ORG_ID', 2);
379: END IF;
374: -- Sets the debug mode to be FILE
375: l_debug_mode := cln_debug_pub.Set_Debug_Mode('FILE');
376:
377: IF (l_Debug_Level <= 2) THEN
378: cln_debug_pub.Add('ENTERING GET_FROM_ROLE_ORG_ID', 2);
379: END IF;
380:
381: -- Parameters List
382: IF (l_Debug_Level <= 1) THEN
379: END IF;
380:
381: -- Parameters List
382: IF (l_Debug_Level <= 1) THEN
383: cln_debug_pub.Add('With the following parameters:', 1);
384: cln_debug_pub.Add('P_DOCUMENT_NUMBER:' || P_DOCUMENT_NUMBER, 1);
385: END IF;
386:
387: SELECT WND.ORGANIZATION_ID
380:
381: -- Parameters List
382: IF (l_Debug_Level <= 1) THEN
383: cln_debug_pub.Add('With the following parameters:', 1);
384: cln_debug_pub.Add('P_DOCUMENT_NUMBER:' || P_DOCUMENT_NUMBER, 1);
385: END IF;
386:
387: SELECT WND.ORGANIZATION_ID
388: INTO l_org_id
393: AND WTH.DOCUMENT_DIRECTION = 'O'
394: AND WTH.DOCUMENT_NUMBER = P_DOCUMENT_NUMBER;
395:
396: IF (l_Debug_Level <= 1) THEN
397: cln_debug_pub.Add('l_org_id:' || l_org_id, 1);
398: END IF;
399:
400: IF (l_Debug_Level <= 2) THEN
401: cln_debug_pub.Add('EXITING GET_FROM_ROLE_ORG_ID', 2);
397: cln_debug_pub.Add('l_org_id:' || l_org_id, 1);
398: END IF;
399:
400: IF (l_Debug_Level <= 2) THEN
401: cln_debug_pub.Add('EXITING GET_FROM_ROLE_ORG_ID', 2);
402: END IF;
403:
404: RETURN l_org_id;
405: EXCEPTION
407: l_error_code := SQLCODE;
408: l_error_msg := SQLERRM;
409: l_return_msg := l_error_code||' : '||l_error_msg;
410: IF (l_Debug_Level <= 6) THEN
411: cln_debug_pub.Add(l_return_msg, 3);
412: END IF;
413: l_return_msg := 'While trying to get the organizationid '
414: || ' for 3B12 outbound document delivery number '
415: || P_DOCUMENT_NUMBER
415: || P_DOCUMENT_NUMBER
416: || ', the following error is encountered:'
417: || l_return_msg;
418: IF (l_Debug_Level <= 2) THEN
419: cln_debug_pub.Add('EXITING GET_FROM_ROLE_ORG_ID', 2);
420: END IF;
421: RETURN l_org_id;
422: END GET_FROM_ROLE_ORG_ID;
423:
443: l_error_msg VARCHAR2(2000);
444: BEGIN
445:
446: -- Sets the debug mode to be FILE
447: l_debug_mode := cln_debug_pub.Set_Debug_Mode('FILE');
448:
449: IF (l_Debug_Level <= 2) THEN
450: cln_debug_pub.Add('ENTERING GET_TO_ROLE_LOCATION_ID', 2);
451: END IF;
446: -- Sets the debug mode to be FILE
447: l_debug_mode := cln_debug_pub.Set_Debug_Mode('FILE');
448:
449: IF (l_Debug_Level <= 2) THEN
450: cln_debug_pub.Add('ENTERING GET_TO_ROLE_LOCATION_ID', 2);
451: END IF;
452:
453: -- Parameters List
454: IF (l_Debug_Level <= 1) THEN
451: END IF;
452:
453: -- Parameters List
454: IF (l_Debug_Level <= 1) THEN
455: cln_debug_pub.Add('With the following parameters:', 1);
456: cln_debug_pub.Add('P_DOCUMENT_NUMBER:' || P_DOCUMENT_NUMBER, 1);
457: END IF;
458:
459: SELECT WND.INITIAL_PICKUP_LOCATION_ID
452:
453: -- Parameters List
454: IF (l_Debug_Level <= 1) THEN
455: cln_debug_pub.Add('With the following parameters:', 1);
456: cln_debug_pub.Add('P_DOCUMENT_NUMBER:' || P_DOCUMENT_NUMBER, 1);
457: END IF;
458:
459: SELECT WND.INITIAL_PICKUP_LOCATION_ID
460: INTO l_loc_id
465: AND WTH.DOCUMENT_DIRECTION = 'O'
466: AND WTH.DOCUMENT_NUMBER = P_DOCUMENT_NUMBER;
467:
468: IF (l_Debug_Level <= 1) THEN
469: cln_debug_pub.Add('l_loc_id:' || l_loc_id, 1);
470: END IF;
471:
472: IF (l_Debug_Level <= 2) THEN
473: cln_debug_pub.Add('EXITING GET_TO_ROLE_LOCATION_ID', 2);
469: cln_debug_pub.Add('l_loc_id:' || l_loc_id, 1);
470: END IF;
471:
472: IF (l_Debug_Level <= 2) THEN
473: cln_debug_pub.Add('EXITING GET_TO_ROLE_LOCATION_ID', 2);
474: END IF;
475: RETURN l_loc_id;
476: EXCEPTION
477: WHEN OTHERS THEN
478: l_error_code := SQLCODE;
479: l_error_msg := SQLERRM;
480: l_return_msg := l_error_code||' : '||l_error_msg;
481: IF (l_Debug_Level <= 6) THEN
482: cln_debug_pub.Add(l_return_msg, 3);
483: END IF;
484: l_return_msg := 'While trying to get the toRole Location ID '
485: || ' for 3B12 outbound document delivery number '
486: || P_DOCUMENT_NUMBER
486: || P_DOCUMENT_NUMBER
487: || ', the following error is encountered:'
488: || l_return_msg;
489: IF (l_Debug_Level <= 2) THEN
490: cln_debug_pub.Add('EXITING GET_TO_ROLE_LOCATION_ID', 2);
491: END IF;
492: RETURN l_loc_id;
493: END GET_TO_ROLE_LOCATION_ID;
494: