19: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
20: --
21: IF l_debug_on IS NULL
22: THEN
23: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
24: END IF;
25: --
26: IF l_debug_on THEN
27: wsh_debug_sv.push(l_module_name);
23: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
24: END IF;
25: --
26: IF l_debug_on THEN
27: wsh_debug_sv.push(l_module_name);
28: END IF;
29:
30: IF wsh_dcp_pvt.g_email_server IS NOT NULL THEN
31:
29:
30: IF wsh_dcp_pvt.g_email_server IS NOT NULL THEN
31:
32: IF l_debug_on THEN
33: WSH_DEBUG_SV.LOG(l_module_name, 'server name cache', wsh_dcp_pvt.g_email_server);
34: wsh_debug_sv.pop(l_module_name);
35: END IF;
36:
37: RETURN wsh_dcp_pvt.g_email_server;
30: IF wsh_dcp_pvt.g_email_server IS NOT NULL THEN
31:
32: IF l_debug_on THEN
33: WSH_DEBUG_SV.LOG(l_module_name, 'server name cache', wsh_dcp_pvt.g_email_server);
34: wsh_debug_sv.pop(l_module_name);
35: END IF;
36:
37: RETURN wsh_dcp_pvt.g_email_server;
38: END IF;
39:
40: wsh_dcp_pvt.g_email_server := fnd_profile.value('WSH_DCP_EMAIL_SERVER');
41:
42: IF l_debug_on THEN
43: WSH_DEBUG_SV.LOG(l_module_name, 'server name profile', wsh_dcp_pvt.g_email_server);
44: wsh_debug_sv.pop(l_module_name);
45: END IF;
46: RETURN wsh_dcp_pvt.g_email_server;
47:
40: wsh_dcp_pvt.g_email_server := fnd_profile.value('WSH_DCP_EMAIL_SERVER');
41:
42: IF l_debug_on THEN
43: WSH_DEBUG_SV.LOG(l_module_name, 'server name profile', wsh_dcp_pvt.g_email_server);
44: wsh_debug_sv.pop(l_module_name);
45: END IF;
46: RETURN wsh_dcp_pvt.g_email_server;
47:
48:
48:
49: EXCEPTION
50: WHEN OTHERS THEN
51: IF l_debug_on THEN
52: wsh_debug_sv.logmsg(l_module_name, 'When others error has occured. Oracle error message is ' || SQLERRM, wsh_debug_sv.c_unexpec_err_level);
53: wsh_debug_sv.pop(l_module_name);
54: END IF;
55: RETURN NULL;
56: END Get_email_server;
49: EXCEPTION
50: WHEN OTHERS THEN
51: IF l_debug_on THEN
52: wsh_debug_sv.logmsg(l_module_name, 'When others error has occured. Oracle error message is ' || SQLERRM, wsh_debug_sv.c_unexpec_err_level);
53: wsh_debug_sv.pop(l_module_name);
54: END IF;
55: RETURN NULL;
56: END Get_email_server;
57:
64: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
65: --
66: IF l_debug_on IS NULL
67: THEN
68: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
69: END IF;
70: --
71: IF l_debug_on THEN
72: wsh_debug_sv.push(l_module_name);
68: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
69: END IF;
70: --
71: IF l_debug_on THEN
72: wsh_debug_sv.push(l_module_name);
73: END IF;
74:
75: IF wsh_dcp_pvt.g_email_address IS NOT NULL THEN
76: IF l_debug_on THEN
73: END IF;
74:
75: IF wsh_dcp_pvt.g_email_address IS NOT NULL THEN
76: IF l_debug_on THEN
77: WSH_DEBUG_SV.LOG(l_module_name, 'Email Address cache', wsh_dcp_pvt.g_email_address);
78: wsh_debug_sv.pop(l_module_name);
79: END IF;
80: RETURN wsh_dcp_pvt.g_email_address;
81: END IF;
74:
75: IF wsh_dcp_pvt.g_email_address IS NOT NULL THEN
76: IF l_debug_on THEN
77: WSH_DEBUG_SV.LOG(l_module_name, 'Email Address cache', wsh_dcp_pvt.g_email_address);
78: wsh_debug_sv.pop(l_module_name);
79: END IF;
80: RETURN wsh_dcp_pvt.g_email_address;
81: END IF;
82:
82:
83: wsh_dcp_pvt.g_email_address := fnd_profile.value('WSH_DCP_EMAIL_ADDRESSES');
84:
85: IF l_debug_on THEN
86: WSH_DEBUG_SV.LOG(l_module_name, 'Email Address profile', wsh_dcp_pvt.g_email_address);
87: wsh_debug_sv.pop(l_module_name);
88: END IF;
89: RETURN wsh_dcp_pvt.g_email_address;
90:
83: wsh_dcp_pvt.g_email_address := fnd_profile.value('WSH_DCP_EMAIL_ADDRESSES');
84:
85: IF l_debug_on THEN
86: WSH_DEBUG_SV.LOG(l_module_name, 'Email Address profile', wsh_dcp_pvt.g_email_address);
87: wsh_debug_sv.pop(l_module_name);
88: END IF;
89: RETURN wsh_dcp_pvt.g_email_address;
90:
91: EXCEPTION
90:
91: EXCEPTION
92: WHEN OTHERS THEN
93: IF l_debug_on THEN
94: wsh_debug_sv.logmsg(l_module_name, 'When others error has occured. Oracle error message is ' || SQLERRM, wsh_debug_sv.c_unexpec_err_level);
95: wsh_debug_sv.pop(l_module_name);
96: END IF;
97: RETURN NULL;
98: END Get_email_address;
91: EXCEPTION
92: WHEN OTHERS THEN
93: IF l_debug_on THEN
94: wsh_debug_sv.logmsg(l_module_name, 'When others error has occured. Oracle error message is ' || SQLERRM, wsh_debug_sv.c_unexpec_err_level);
95: wsh_debug_sv.pop(l_module_name);
96: END IF;
97: RETURN NULL;
98: END Get_email_address;
99:
128: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
129: --
130: IF l_debug_on IS NULL
131: THEN
132: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
133: END IF;
134: --
135: IF l_debug_on THEN
136: WSH_DEBUG_SV.push(l_module_name);
132: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
133: END IF;
134: --
135: IF l_debug_on THEN
136: WSH_DEBUG_SV.push(l_module_name);
137: WSH_DEBUG_SV.log(l_module_name, 'sender', sender);
138: WSH_DEBUG_SV.log(l_module_name, 'recipient1', recipient1);
139: WSH_DEBUG_SV.log(l_module_name, 'recipient2', recipient2);
140: WSH_DEBUG_SV.log(l_module_name, 'recipient3', recipient3);
133: END IF;
134: --
135: IF l_debug_on THEN
136: WSH_DEBUG_SV.push(l_module_name);
137: WSH_DEBUG_SV.log(l_module_name, 'sender', sender);
138: WSH_DEBUG_SV.log(l_module_name, 'recipient1', recipient1);
139: WSH_DEBUG_SV.log(l_module_name, 'recipient2', recipient2);
140: WSH_DEBUG_SV.log(l_module_name, 'recipient3', recipient3);
141: WSH_DEBUG_SV.log(l_module_name, 'recipient4', recipient4);
134: --
135: IF l_debug_on THEN
136: WSH_DEBUG_SV.push(l_module_name);
137: WSH_DEBUG_SV.log(l_module_name, 'sender', sender);
138: WSH_DEBUG_SV.log(l_module_name, 'recipient1', recipient1);
139: WSH_DEBUG_SV.log(l_module_name, 'recipient2', recipient2);
140: WSH_DEBUG_SV.log(l_module_name, 'recipient3', recipient3);
141: WSH_DEBUG_SV.log(l_module_name, 'recipient4', recipient4);
142: END IF;
135: IF l_debug_on THEN
136: WSH_DEBUG_SV.push(l_module_name);
137: WSH_DEBUG_SV.log(l_module_name, 'sender', sender);
138: WSH_DEBUG_SV.log(l_module_name, 'recipient1', recipient1);
139: WSH_DEBUG_SV.log(l_module_name, 'recipient2', recipient2);
140: WSH_DEBUG_SV.log(l_module_name, 'recipient3', recipient3);
141: WSH_DEBUG_SV.log(l_module_name, 'recipient4', recipient4);
142: END IF;
143:
136: WSH_DEBUG_SV.push(l_module_name);
137: WSH_DEBUG_SV.log(l_module_name, 'sender', sender);
138: WSH_DEBUG_SV.log(l_module_name, 'recipient1', recipient1);
139: WSH_DEBUG_SV.log(l_module_name, 'recipient2', recipient2);
140: WSH_DEBUG_SV.log(l_module_name, 'recipient3', recipient3);
141: WSH_DEBUG_SV.log(l_module_name, 'recipient4', recipient4);
142: END IF;
143:
144: --Call function that will return the email server name
137: WSH_DEBUG_SV.log(l_module_name, 'sender', sender);
138: WSH_DEBUG_SV.log(l_module_name, 'recipient1', recipient1);
139: WSH_DEBUG_SV.log(l_module_name, 'recipient2', recipient2);
140: WSH_DEBUG_SV.log(l_module_name, 'recipient3', recipient3);
141: WSH_DEBUG_SV.log(l_module_name, 'recipient4', recipient4);
142: END IF;
143:
144: --Call function that will return the email server name
145: l_mailhost := get_email_server;
148: l_email_addrs := get_email_address;
149:
150: --Parse to get individual recipients
151: IF l_debug_on THEN
152: wsh_debug_sv.log(l_module_name, 'l_mailhost', l_mailhost);
153: wsh_debug_sv.log(l_module_name, 'l_email_addrs', l_email_addrs);
154: END IF;
155:
156: IF l_mailhost IS NOT NULL
149:
150: --Parse to get individual recipients
151: IF l_debug_on THEN
152: wsh_debug_sv.log(l_module_name, 'l_mailhost', l_mailhost);
153: wsh_debug_sv.log(l_module_name, 'l_email_addrs', l_email_addrs);
154: END IF;
155:
156: IF l_mailhost IS NOT NULL
157: AND l_email_addrs IS NOT NULL
190: end if;
191: l_recipient5 := substrb(l_email_addrs, l_start_pos, l_end_pos-l_start_pos);
192:
193: IF l_debug_on THEN
194: WSH_DEBUG_SV.log(l_module_name, 'sender', l_sender);
195: WSH_DEBUG_SV.log(l_module_name, 'recipient1', l_recipient1);
196: WSH_DEBUG_SV.log(l_module_name, 'recipient2', l_recipient2);
197: WSH_DEBUG_SV.log(l_module_name, 'recipient3', l_recipient3);
198: WSH_DEBUG_SV.log(l_module_name, 'recipient4', l_recipient4);
191: l_recipient5 := substrb(l_email_addrs, l_start_pos, l_end_pos-l_start_pos);
192:
193: IF l_debug_on THEN
194: WSH_DEBUG_SV.log(l_module_name, 'sender', l_sender);
195: WSH_DEBUG_SV.log(l_module_name, 'recipient1', l_recipient1);
196: WSH_DEBUG_SV.log(l_module_name, 'recipient2', l_recipient2);
197: WSH_DEBUG_SV.log(l_module_name, 'recipient3', l_recipient3);
198: WSH_DEBUG_SV.log(l_module_name, 'recipient4', l_recipient4);
199: WSH_DEBUG_SV.log(l_module_name, 'recipient5', l_recipient5);
192:
193: IF l_debug_on THEN
194: WSH_DEBUG_SV.log(l_module_name, 'sender', l_sender);
195: WSH_DEBUG_SV.log(l_module_name, 'recipient1', l_recipient1);
196: WSH_DEBUG_SV.log(l_module_name, 'recipient2', l_recipient2);
197: WSH_DEBUG_SV.log(l_module_name, 'recipient3', l_recipient3);
198: WSH_DEBUG_SV.log(l_module_name, 'recipient4', l_recipient4);
199: WSH_DEBUG_SV.log(l_module_name, 'recipient5', l_recipient5);
200: END IF;
193: IF l_debug_on THEN
194: WSH_DEBUG_SV.log(l_module_name, 'sender', l_sender);
195: WSH_DEBUG_SV.log(l_module_name, 'recipient1', l_recipient1);
196: WSH_DEBUG_SV.log(l_module_name, 'recipient2', l_recipient2);
197: WSH_DEBUG_SV.log(l_module_name, 'recipient3', l_recipient3);
198: WSH_DEBUG_SV.log(l_module_name, 'recipient4', l_recipient4);
199: WSH_DEBUG_SV.log(l_module_name, 'recipient5', l_recipient5);
200: END IF;
201:
194: WSH_DEBUG_SV.log(l_module_name, 'sender', l_sender);
195: WSH_DEBUG_SV.log(l_module_name, 'recipient1', l_recipient1);
196: WSH_DEBUG_SV.log(l_module_name, 'recipient2', l_recipient2);
197: WSH_DEBUG_SV.log(l_module_name, 'recipient3', l_recipient3);
198: WSH_DEBUG_SV.log(l_module_name, 'recipient4', l_recipient4);
199: WSH_DEBUG_SV.log(l_module_name, 'recipient5', l_recipient5);
200: END IF;
201:
202: utl_smtp.helo(l_mail_conn, l_mailhost);
195: WSH_DEBUG_SV.log(l_module_name, 'recipient1', l_recipient1);
196: WSH_DEBUG_SV.log(l_module_name, 'recipient2', l_recipient2);
197: WSH_DEBUG_SV.log(l_module_name, 'recipient3', l_recipient3);
198: WSH_DEBUG_SV.log(l_module_name, 'recipient4', l_recipient4);
199: WSH_DEBUG_SV.log(l_module_name, 'recipient5', l_recipient5);
200: END IF;
201:
202: utl_smtp.helo(l_mail_conn, l_mailhost);
203:
228:
229: utl_smtp.quit(l_mail_conn);
230: ELSE
231: IF l_debug_on THEN
232: wsh_debug_sv.logmsg(l_module_name, 'Not sending mail. Server Name or Email id is null');
233: END IF;
234:
235: --}
236: END IF;
235: --}
236: END IF;
237:
238: IF l_debug_on THEN
239: wsh_debug_sv.pop(l_module_name);
240: END IF;
241:
242: EXCEPTION
243: WHEN others THEN
241:
242: EXCEPTION
243: WHEN others THEN
244: IF l_debug_on THEN
245: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
246: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
247: END IF;
248: END Send_Mail;
249:
242: EXCEPTION
243: WHEN others THEN
244: IF l_debug_on THEN
245: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
246: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
247: END IF;
248: END Send_Mail;
249:
250: /*===========================================================================
317: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
318: --
319: IF l_debug_on IS NULL
320: THEN
321: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
322: END IF;
323: --
324: IF l_debug_on THEN
325: WSH_DEBUG_SV.push(l_module_name);
321: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
322: END IF;
323: --
324: IF l_debug_on THEN
325: WSH_DEBUG_SV.push(l_module_name);
326: WSH_DEBUG_SV.log(l_module_name, 'p_action_code', p_action_code);
327: WSH_DEBUG_SV.log(l_module_name, 'p_raise_exception', p_raise_Exception);
328: END IF;
329:
322: END IF;
323: --
324: IF l_debug_on THEN
325: WSH_DEBUG_SV.push(l_module_name);
326: WSH_DEBUG_SV.log(l_module_name, 'p_action_code', p_action_code);
327: WSH_DEBUG_SV.log(l_module_name, 'p_raise_exception', p_raise_Exception);
328: END IF;
329:
330: -- NO NEED TO CHECK USER EMAIL. USING HARDCODED EMAIL IDS
323: --
324: IF l_debug_on THEN
325: WSH_DEBUG_SV.push(l_module_name);
326: WSH_DEBUG_SV.log(l_module_name, 'p_action_code', p_action_code);
327: WSH_DEBUG_SV.log(l_module_name, 'p_raise_exception', p_raise_Exception);
328: END IF;
329:
330: -- NO NEED TO CHECK USER EMAIL. USING HARDCODED EMAIL IDS
331: IF g_userid IS NULL THEN
345: l_conc_request_id := fnd_global.conc_request_id;
346: END IF;
347:
348: IF l_debug_on THEN
349: wsh_debug_sv.log(l_module_name, 'User Id', g_userid);
350: wsh_debug_sv.log(l_module_name, 'User Name', g_user_name);
351: wsh_debug_sv.log(l_module_name, 'Env', g_env);
352: END IF;
353:
346: END IF;
347:
348: IF l_debug_on THEN
349: wsh_debug_sv.log(l_module_name, 'User Id', g_userid);
350: wsh_debug_sv.log(l_module_name, 'User Name', g_user_name);
351: wsh_debug_sv.log(l_module_name, 'Env', g_env);
352: END IF;
353:
354:
347:
348: IF l_debug_on THEN
349: wsh_debug_sv.log(l_module_name, 'User Id', g_userid);
350: wsh_debug_sv.log(l_module_name, 'User Name', g_user_name);
351: wsh_debug_sv.log(l_module_name, 'Env', g_env);
352: END IF;
353:
354:
355: IF p_action_code IN('ITS', 'SPLIT-LINE', 'CYCLE-COUNT', 'PACK', 'AUTO-PACK', 'CONFIRM', 'OM') THEN
368: l_rollback_allowed := 'N';
369: g_add_to_debug := 1;
370: END IF;
371:
372: l_debug_dir := WSH_DEBUG_SV.g_dir;
373:
374: IF g_dc_table.count > 0
375: AND l_rollback_allowed = 'Y' THEN
376: --{
403: l_debug_on := FALSE;
404: END IF;
405:
406: IF l_debug_on THEN
407: wsh_debug_sv.log(l_module_name, 'l_comma_pos', l_comma_pos);
408: END IF;
409:
410: IF nvl(l_level, 9999) > WSH_DEBUG_SV.C_STMT_LEVEL THEN
411: --Debug level is either not set or is set to a higher level
406: IF l_debug_on THEN
407: wsh_debug_sv.log(l_module_name, 'l_comma_pos', l_comma_pos);
408: END IF;
409:
410: IF nvl(l_level, 9999) > WSH_DEBUG_SV.C_STMT_LEVEL THEN
411: --Debug level is either not set or is set to a higher level
412: --Need to set to statement level.
413: fnd_profile.put('WSH_DEBUG_LEVEL', WSH_DEBUG_SV.C_STMT_LEVEL);
414: IF l_debug_on THEN
409:
410: IF nvl(l_level, 9999) > WSH_DEBUG_SV.C_STMT_LEVEL THEN
411: --Debug level is either not set or is set to a higher level
412: --Need to set to statement level.
413: fnd_profile.put('WSH_DEBUG_LEVEL', WSH_DEBUG_SV.C_STMT_LEVEL);
414: IF l_debug_on THEN
415: l_debug_reset := 'Y';
416: END IF;
417: l_debug_on := FALSE;
424: l_conc_request_id := fnd_global.conc_request_id;
425: END IF;
426:
427: IF l_debug_on THEN
428: wsh_debug_sv.log(l_module_name, 'l_debug_dir', l_debug_dir);
429: wsh_debug_sv.log(l_module_name, 'g_dc_table count' , g_dc_table.count);
430: wsh_debug_sv.log(l_module_name, 'l_rollback_allowed', l_rollback_allowed);
431: wsh_debug_sv.log(l_module_name, 'conc request id', l_conc_request_id);
432: WSH_DEBUG_SV.log(l_module_name, 'g_add_to_debug', g_add_to_debug);
425: END IF;
426:
427: IF l_debug_on THEN
428: wsh_debug_sv.log(l_module_name, 'l_debug_dir', l_debug_dir);
429: wsh_debug_sv.log(l_module_name, 'g_dc_table count' , g_dc_table.count);
430: wsh_debug_sv.log(l_module_name, 'l_rollback_allowed', l_rollback_allowed);
431: wsh_debug_sv.log(l_module_name, 'conc request id', l_conc_request_id);
432: WSH_DEBUG_SV.log(l_module_name, 'g_add_to_debug', g_add_to_debug);
433: END IF;
426:
427: IF l_debug_on THEN
428: wsh_debug_sv.log(l_module_name, 'l_debug_dir', l_debug_dir);
429: wsh_debug_sv.log(l_module_name, 'g_dc_table count' , g_dc_table.count);
430: wsh_debug_sv.log(l_module_name, 'l_rollback_allowed', l_rollback_allowed);
431: wsh_debug_sv.log(l_module_name, 'conc request id', l_conc_request_id);
432: WSH_DEBUG_SV.log(l_module_name, 'g_add_to_debug', g_add_to_debug);
433: END IF;
434:
427: IF l_debug_on THEN
428: wsh_debug_sv.log(l_module_name, 'l_debug_dir', l_debug_dir);
429: wsh_debug_sv.log(l_module_name, 'g_dc_table count' , g_dc_table.count);
430: wsh_debug_sv.log(l_module_name, 'l_rollback_allowed', l_rollback_allowed);
431: wsh_debug_sv.log(l_module_name, 'conc request id', l_conc_request_id);
432: WSH_DEBUG_SV.log(l_module_name, 'g_add_to_debug', g_add_to_debug);
433: END IF;
434:
435: IF g_dc_table.count > 0
428: wsh_debug_sv.log(l_module_name, 'l_debug_dir', l_debug_dir);
429: wsh_debug_sv.log(l_module_name, 'g_dc_table count' , g_dc_table.count);
430: wsh_debug_sv.log(l_module_name, 'l_rollback_allowed', l_rollback_allowed);
431: wsh_debug_sv.log(l_module_name, 'conc request id', l_conc_request_id);
432: WSH_DEBUG_SV.log(l_module_name, 'g_add_to_debug', g_add_to_debug);
433: END IF;
434:
435: IF g_dc_table.count > 0
436: THEN
444: l_om_debug_enabled := 'Y';
445: END IF;
446:
447: IF l_debug_on THEN
448: wsh_debug_sv.log(l_module_name, 'l_om_debug_enabled', l_om_debug_enabled);
449: END IF;
450:
451: -- turn debug on
452: IF NOT l_debug_on THEN
449: END IF;
450:
451: -- turn debug on
452: IF NOT l_debug_on THEN
453: wsh_debug_sv.start_debugger(
454: x_file_name => l_debug_file,
455: x_return_status => l_return_status,
456: x_msg_count => l_msg_count,
457: x_msg_data => l_msg_data);
475:
476: IF l_om_debug_enabled = 'N' THEN
477:
478: IF l_debug_on THEN
479: wsh_debug_sv.logmsg(l_module_name, 'Starting OM DEBUG');
480: wsh_debug_sv.log(l_module_name, 'Directory', wsh_debug_sv.g_dir);
481: wsh_debug_sv.log(l_module_name, 'File', wsh_debug_sv.g_file);
482: END IF;
483: oe_debug_pub.start_ont_debugger(
476: IF l_om_debug_enabled = 'N' THEN
477:
478: IF l_debug_on THEN
479: wsh_debug_sv.logmsg(l_module_name, 'Starting OM DEBUG');
480: wsh_debug_sv.log(l_module_name, 'Directory', wsh_debug_sv.g_dir);
481: wsh_debug_sv.log(l_module_name, 'File', wsh_debug_sv.g_file);
482: END IF;
483: oe_debug_pub.start_ont_debugger(
484: p_directory => wsh_debug_sv.g_dir,
477:
478: IF l_debug_on THEN
479: wsh_debug_sv.logmsg(l_module_name, 'Starting OM DEBUG');
480: wsh_debug_sv.log(l_module_name, 'Directory', wsh_debug_sv.g_dir);
481: wsh_debug_sv.log(l_module_name, 'File', wsh_debug_sv.g_file);
482: END IF;
483: oe_debug_pub.start_ont_debugger(
484: p_directory => wsh_debug_sv.g_dir,
485: p_filename => wsh_debug_sv.g_file,
480: wsh_debug_sv.log(l_module_name, 'Directory', wsh_debug_sv.g_dir);
481: wsh_debug_sv.log(l_module_name, 'File', wsh_debug_sv.g_file);
482: END IF;
483: oe_debug_pub.start_ont_debugger(
484: p_directory => wsh_debug_sv.g_dir,
485: p_filename => wsh_debug_sv.g_file,
486: p_file_handle => null);
487: --Only OM debug is being started
488: G_DEBUG_STARTED := 'O';
481: wsh_debug_sv.log(l_module_name, 'File', wsh_debug_sv.g_file);
482: END IF;
483: oe_debug_pub.start_ont_debugger(
484: p_directory => wsh_debug_sv.g_dir,
485: p_filename => wsh_debug_sv.g_file,
486: p_file_handle => null);
487: --Only OM debug is being started
488: G_DEBUG_STARTED := 'O';
489: ELSE
487: --Only OM debug is being started
488: G_DEBUG_STARTED := 'O';
489: ELSE
490: g_add_to_debug := 1;
491: l_debug_file := WSH_DEBUG_SV.g_file;
492: END IF;
493:
494: END IF;
495:
494: END IF;
495:
496:
497: IF l_debug_on THEN
498: wsh_debug_sv.log(l_module_name, 'G_DEBUG_STARTED', G_DEBUG_STARTED);
499: wsh_Debug_sv.log(l_module_name, 'g_add_to_debug', g_add_to_debug);
500: WSH_DEBUG_SV.log(l_module_name, 'p_action_code', p_action_code);
501: END IF;
502:
495:
496:
497: IF l_debug_on THEN
498: wsh_debug_sv.log(l_module_name, 'G_DEBUG_STARTED', G_DEBUG_STARTED);
499: wsh_Debug_sv.log(l_module_name, 'g_add_to_debug', g_add_to_debug);
500: WSH_DEBUG_SV.log(l_module_name, 'p_action_code', p_action_code);
501: END IF;
502:
503: IF g_add_to_debug > 0 THEN
496:
497: IF l_debug_on THEN
498: wsh_debug_sv.log(l_module_name, 'G_DEBUG_STARTED', G_DEBUG_STARTED);
499: wsh_Debug_sv.log(l_module_name, 'g_add_to_debug', g_add_to_debug);
500: WSH_DEBUG_SV.log(l_module_name, 'p_action_code', p_action_code);
501: END IF;
502:
503: IF g_add_to_debug > 0 THEN
504: --{
526: -- dump the call stack and pl/sql table
527: -- if global was set , turn debug off
528: -- Put CallStack in debug file
529: if l_debug_on then
530: wsh_debug_sv.log(l_module_name, 'l_call_stack', l_call_stack);
531: end if;
532:
533: k := g_dc_table.first;
534:
541: ' || l_temp_message;
542: END IF;
543:
544: IF l_debug_on THEN
545: wsh_debug_sv.logmsg(l_module_name, l_temp_message);
546: END IF;
547: k := g_dc_table.next(k);
548: --}
549: END LOOP;
550:
551: IF instrb(get_email_server, 'oracle') > 0
552: AND length(l_message) < 32300 THEN
553: IF l_debug_on THEN
554: wsh_debug_sv.logmsg(l_module_name, 'Adding link to email message');
555: END IF;
556:
557: l_temp_message := '---------------------------------------------------------------------
558: For a description of the data mismatch, please refer to the following link:
590: --Delete additional messages from stack.
591: l_curr_msg_count := fnd_msg_pub.count_msg;
592:
593: if l_debug_on then
594: wsh_debug_sv.log(l_module_name, 'G_INIT_MSG_COUNT', G_INIT_MSG_COUNT);
595: wsh_debug_sv.log(l_module_name, 'l_curr_msg_count', l_curr_msg_count);
596: end if;
597:
598: FOR k IN REVERSE (G_INIT_MSG_COUNT+1)..l_curr_msg_count LOOP
591: l_curr_msg_count := fnd_msg_pub.count_msg;
592:
593: if l_debug_on then
594: wsh_debug_sv.log(l_module_name, 'G_INIT_MSG_COUNT', G_INIT_MSG_COUNT);
595: wsh_debug_sv.log(l_module_name, 'l_curr_msg_count', l_curr_msg_count);
596: end if;
597:
598: FOR k IN REVERSE (G_INIT_MSG_COUNT+1)..l_curr_msg_count LOOP
599: --{
600: fnd_msg_pub.delete_msg(p_msg_index => k);
601: --}
602: END LOOP;
603: if l_debug_on then
604: wsh_debug_sv.log(l_module_name, 'new count', fnd_msg_pub.count_msg);
605: end if;
606: RAISE dcp_caught;
607: ELSE
608:
616: END IF;
617: --}
618: END IF;
619: IF l_debug_on THEN
620: wsh_debug_sv.pop(l_module_name);
621: END IF;
622: EXCEPTION
623: WHEN dcp_caught THEN
624: IF l_debug_on THEN
621: END IF;
622: EXCEPTION
623: WHEN dcp_caught THEN
624: IF l_debug_on THEN
625: wsh_debug_sv.logmsg(l_module_name, 'DCP Caught: Post Process');
626: wsh_debug_sv.pop(l_module_name, 'Exception: dcp_caught');
627: END IF;
628: RAISE dcp_caught;
629: WHEN others THEN
622: EXCEPTION
623: WHEN dcp_caught THEN
624: IF l_debug_on THEN
625: wsh_debug_sv.logmsg(l_module_name, 'DCP Caught: Post Process');
626: wsh_debug_sv.pop(l_module_name, 'Exception: dcp_caught');
627: END IF;
628: RAISE dcp_caught;
629: WHEN others THEN
630: IF l_debug_on THEN
627: END IF;
628: RAISE dcp_caught;
629: WHEN others THEN
630: IF l_debug_on THEN
631: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
632: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
633: END IF;
634: END Post_Process;
635:
628: RAISE dcp_caught;
629: WHEN others THEN
630: IF l_debug_on THEN
631: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
632: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
633: END IF;
634: END Post_Process;
635:
636: Procedure Check_Scripts(p_source_header_id IN NUMBER,
1036: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1037: --
1038: IF l_debug_on IS NULL
1039: THEN
1040: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1041: END IF;
1042: --
1043: IF l_debug_on THEN
1044: WSH_DEBUG_SV.push(l_module_name);
1040: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1041: END IF;
1042: --
1043: IF l_debug_on THEN
1044: WSH_DEBUG_SV.push(l_module_name);
1045: WSH_DEBUG_SV.log(l_module_name,' p_source_header_id', p_source_header_id);
1046: WSH_DEBUG_SV.log(l_module_name, 'p_source_line_id', p_source_line_id);
1047: WSH_DEBUG_SV.log(l_module_name, 'p_delivery_id', p_delivery_id);
1048: WSH_DEBUG_SV.log(l_module_name, 'p_batch_id', p_batch_id);
1041: END IF;
1042: --
1043: IF l_debug_on THEN
1044: WSH_DEBUG_SV.push(l_module_name);
1045: WSH_DEBUG_SV.log(l_module_name,' p_source_header_id', p_source_header_id);
1046: WSH_DEBUG_SV.log(l_module_name, 'p_source_line_id', p_source_line_id);
1047: WSH_DEBUG_SV.log(l_module_name, 'p_delivery_id', p_delivery_id);
1048: WSH_DEBUG_SV.log(l_module_name, 'p_batch_id', p_batch_id);
1049: END IF;
1042: --
1043: IF l_debug_on THEN
1044: WSH_DEBUG_SV.push(l_module_name);
1045: WSH_DEBUG_SV.log(l_module_name,' p_source_header_id', p_source_header_id);
1046: WSH_DEBUG_SV.log(l_module_name, 'p_source_line_id', p_source_line_id);
1047: WSH_DEBUG_SV.log(l_module_name, 'p_delivery_id', p_delivery_id);
1048: WSH_DEBUG_SV.log(l_module_name, 'p_batch_id', p_batch_id);
1049: END IF;
1050:
1043: IF l_debug_on THEN
1044: WSH_DEBUG_SV.push(l_module_name);
1045: WSH_DEBUG_SV.log(l_module_name,' p_source_header_id', p_source_header_id);
1046: WSH_DEBUG_SV.log(l_module_name, 'p_source_line_id', p_source_line_id);
1047: WSH_DEBUG_SV.log(l_module_name, 'p_delivery_id', p_delivery_id);
1048: WSH_DEBUG_SV.log(l_module_name, 'p_batch_id', p_batch_id);
1049: END IF;
1050:
1051: x_data_inconsistent := 'N';
1044: WSH_DEBUG_SV.push(l_module_name);
1045: WSH_DEBUG_SV.log(l_module_name,' p_source_header_id', p_source_header_id);
1046: WSH_DEBUG_SV.log(l_module_name, 'p_source_line_id', p_source_line_id);
1047: WSH_DEBUG_SV.log(l_module_name, 'p_delivery_id', p_delivery_id);
1048: WSH_DEBUG_SV.log(l_module_name, 'p_batch_id', p_batch_id);
1049: END IF;
1050:
1051: x_data_inconsistent := 'N';
1052:
1161: g_dc_table(k).dcp_script := 'C8';
1162:
1163: if l_debug_on then
1164:
1165: wsh_debug_sv.logmsg(l_module_name, 'DD attributes dates:' || to_char(l_rec.wdd_date_requested, 'dd-mon-yy hh24:mi:ss') || '-' || to_char(l_rec.wdd_date_scheduled, 'dd-mon-yy hh24:mi:ss'));
1166:
1167: wsh_debug_sv.logmsg(l_module_name, 'DD attributes contact use:' || l_rec.wdd_ship_to_contact_id || '-' || l_rec.wdd_ship_to_site_use_id);
1168:
1169: wsh_debug_sv.logmsg(l_module_name, 'OL attributes dates:' || to_char(l_rec.ol_request_date,'dd-mon-yy hh24:mi:ss') || '-' || to_char(l_rec.ol_schedule_ship_date, 'dd-mon-yy hh24:mi:ss'));
1163: if l_debug_on then
1164:
1165: wsh_debug_sv.logmsg(l_module_name, 'DD attributes dates:' || to_char(l_rec.wdd_date_requested, 'dd-mon-yy hh24:mi:ss') || '-' || to_char(l_rec.wdd_date_scheduled, 'dd-mon-yy hh24:mi:ss'));
1166:
1167: wsh_debug_sv.logmsg(l_module_name, 'DD attributes contact use:' || l_rec.wdd_ship_to_contact_id || '-' || l_rec.wdd_ship_to_site_use_id);
1168:
1169: wsh_debug_sv.logmsg(l_module_name, 'OL attributes dates:' || to_char(l_rec.ol_request_date,'dd-mon-yy hh24:mi:ss') || '-' || to_char(l_rec.ol_schedule_ship_date, 'dd-mon-yy hh24:mi:ss'));
1170:
1171: wsh_debug_sv.logmsg(l_module_name, 'OL attributes contact use:' || l_rec.ol_ship_to_contact_id || '-' || l_rec.ol_ship_to_org_id);
1165: wsh_debug_sv.logmsg(l_module_name, 'DD attributes dates:' || to_char(l_rec.wdd_date_requested, 'dd-mon-yy hh24:mi:ss') || '-' || to_char(l_rec.wdd_date_scheduled, 'dd-mon-yy hh24:mi:ss'));
1166:
1167: wsh_debug_sv.logmsg(l_module_name, 'DD attributes contact use:' || l_rec.wdd_ship_to_contact_id || '-' || l_rec.wdd_ship_to_site_use_id);
1168:
1169: wsh_debug_sv.logmsg(l_module_name, 'OL attributes dates:' || to_char(l_rec.ol_request_date,'dd-mon-yy hh24:mi:ss') || '-' || to_char(l_rec.ol_schedule_ship_date, 'dd-mon-yy hh24:mi:ss'));
1170:
1171: wsh_debug_sv.logmsg(l_module_name, 'OL attributes contact use:' || l_rec.ol_ship_to_contact_id || '-' || l_rec.ol_ship_to_org_id);
1172:
1173: end if;
1167: wsh_debug_sv.logmsg(l_module_name, 'DD attributes contact use:' || l_rec.wdd_ship_to_contact_id || '-' || l_rec.wdd_ship_to_site_use_id);
1168:
1169: wsh_debug_sv.logmsg(l_module_name, 'OL attributes dates:' || to_char(l_rec.ol_request_date,'dd-mon-yy hh24:mi:ss') || '-' || to_char(l_rec.ol_schedule_ship_date, 'dd-mon-yy hh24:mi:ss'));
1170:
1171: wsh_debug_sv.logmsg(l_module_name, 'OL attributes contact use:' || l_rec.ol_ship_to_contact_id || '-' || l_rec.ol_ship_to_org_id);
1172:
1173: end if;
1174: end if;
1175:
1439:
1440: end if;
1441:
1442: IF l_debug_on THEN
1443: wsh_debug_sv.log(l_module_name, 'x_data_inconsistent', x_data_inconsistent);
1444: wsh_debug_sv.log(l_module_name, 'g_dc_table count', g_dc_table.count);
1445: END IF;
1446:
1447:
1440: end if;
1441:
1442: IF l_debug_on THEN
1443: wsh_debug_sv.log(l_module_name, 'x_data_inconsistent', x_data_inconsistent);
1444: wsh_debug_sv.log(l_module_name, 'g_dc_table count', g_dc_table.count);
1445: END IF;
1446:
1447:
1448: IF l_debug_on THEN
1445: END IF;
1446:
1447:
1448: IF l_debug_on THEN
1449: wsh_debug_sv.pop(l_module_name);
1450: END IF;
1451: EXCEPTION
1452: WHEN others THEN
1453: IF c_combine_hdr%ISOPEN THEN
1459: ELSIF c_combine_batch%ISOPEN THEN
1460: CLOSE c_combine_batch;
1461: END IF;
1462: IF l_debug_on THEN
1463: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1464: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1465: END IF;
1466: END Check_Scripts;
1467:
1460: CLOSE c_combine_batch;
1461: END IF;
1462: IF l_debug_on THEN
1463: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1464: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1465: END IF;
1466: END Check_Scripts;
1467:
1468: Procedure Check_ITS(p_bulk_mode IN VARCHAR2,
1482: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1483: --
1484: IF l_debug_on IS NULL
1485: THEN
1486: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1487: END IF;
1488: --
1489: IF l_debug_on THEN
1490: WSH_DEBUG_SV.push(l_module_name);
1486: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1487: END IF;
1488: --
1489: IF l_debug_on THEN
1490: WSH_DEBUG_SV.push(l_module_name);
1491: WSH_DEBUG_SV.log(l_module_name, 'p_bulk_mode', p_bulk_mode);
1492: WSH_DEBUG_SV.log(l_module_name, 'p_start_index', p_start_index);
1493: WSH_DEBUG_SV.log(l_module_name, 'p_end_index', p_end_index);
1494: WSH_DEBUG_SV.log(l_module_name, 'p_raise_exception', p_raise_Exception);
1487: END IF;
1488: --
1489: IF l_debug_on THEN
1490: WSH_DEBUG_SV.push(l_module_name);
1491: WSH_DEBUG_SV.log(l_module_name, 'p_bulk_mode', p_bulk_mode);
1492: WSH_DEBUG_SV.log(l_module_name, 'p_start_index', p_start_index);
1493: WSH_DEBUG_SV.log(l_module_name, 'p_end_index', p_end_index);
1494: WSH_DEBUG_SV.log(l_module_name, 'p_raise_exception', p_raise_Exception);
1495: END IF;
1488: --
1489: IF l_debug_on THEN
1490: WSH_DEBUG_SV.push(l_module_name);
1491: WSH_DEBUG_SV.log(l_module_name, 'p_bulk_mode', p_bulk_mode);
1492: WSH_DEBUG_SV.log(l_module_name, 'p_start_index', p_start_index);
1493: WSH_DEBUG_SV.log(l_module_name, 'p_end_index', p_end_index);
1494: WSH_DEBUG_SV.log(l_module_name, 'p_raise_exception', p_raise_Exception);
1495: END IF;
1496:
1489: IF l_debug_on THEN
1490: WSH_DEBUG_SV.push(l_module_name);
1491: WSH_DEBUG_SV.log(l_module_name, 'p_bulk_mode', p_bulk_mode);
1492: WSH_DEBUG_SV.log(l_module_name, 'p_start_index', p_start_index);
1493: WSH_DEBUG_SV.log(l_module_name, 'p_end_index', p_end_index);
1494: WSH_DEBUG_SV.log(l_module_name, 'p_raise_exception', p_raise_Exception);
1495: END IF;
1496:
1497: g_dc_table.delete;
1490: WSH_DEBUG_SV.push(l_module_name);
1491: WSH_DEBUG_SV.log(l_module_name, 'p_bulk_mode', p_bulk_mode);
1492: WSH_DEBUG_SV.log(l_module_name, 'p_start_index', p_start_index);
1493: WSH_DEBUG_SV.log(l_module_name, 'p_end_index', p_end_index);
1494: WSH_DEBUG_SV.log(l_module_name, 'p_raise_exception', p_raise_Exception);
1495: END IF;
1496:
1497: g_dc_table.delete;
1498:
1526: p_raise_exception => p_raise_exception);
1527:
1528:
1529: IF l_debug_on THEN
1530: wsh_debug_sv.pop(l_module_name);
1531: END IF;
1532:
1533: EXCEPTION
1534: WHEN dcp_caught THEN
1532:
1533: EXCEPTION
1534: WHEN dcp_caught THEN
1535: if NOT l_debug_on OR l_debug_on IS NULL THEN
1536: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1537: end if;
1538: IF l_debug_on THEN
1539: WSH_DEBUG_SV.logmsg(l_module_name,'dcp_caught exception: CHECK_ITS');
1540: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DCP_CAUGHT: CHECK_ITS');
1535: if NOT l_debug_on OR l_debug_on IS NULL THEN
1536: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1537: end if;
1538: IF l_debug_on THEN
1539: WSH_DEBUG_SV.logmsg(l_module_name,'dcp_caught exception: CHECK_ITS');
1540: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DCP_CAUGHT: CHECK_ITS');
1541: END IF;
1542: RAISE data_inconsistency_exception;
1543: WHEN others THEN
1536: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1537: end if;
1538: IF l_debug_on THEN
1539: WSH_DEBUG_SV.logmsg(l_module_name,'dcp_caught exception: CHECK_ITS');
1540: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DCP_CAUGHT: CHECK_ITS');
1541: END IF;
1542: RAISE data_inconsistency_exception;
1543: WHEN others THEN
1544: IF l_debug_on THEN
1541: END IF;
1542: RAISE data_inconsistency_exception;
1543: WHEN others THEN
1544: IF l_debug_on THEN
1545: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1546: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1547: END IF;
1548: END Check_ITS;
1549:
1542: RAISE data_inconsistency_exception;
1543: WHEN others THEN
1544: IF l_debug_on THEN
1545: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1546: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1547: END IF;
1548: END Check_ITS;
1549:
1550: Procedure Check_Delivery(p_action_code IN VARCHAR2,
1559: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1560: --
1561: IF l_debug_on IS NULL
1562: THEN
1563: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1564: END IF;
1565: --
1566: IF l_debug_on THEN
1567: WSH_DEBUG_SV.push(l_module_name);
1563: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1564: END IF;
1565: --
1566: IF l_debug_on THEN
1567: WSH_DEBUG_SV.push(l_module_name);
1568: WSH_DEBUG_SV.LOG(l_module_name, 'p_action_code', p_action_code);
1569: END IF;
1570:
1571: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1564: END IF;
1565: --
1566: IF l_debug_on THEN
1567: WSH_DEBUG_SV.push(l_module_name);
1568: WSH_DEBUG_SV.LOG(l_module_name, 'p_action_code', p_action_code);
1569: END IF;
1570:
1571: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1572:
1570:
1571: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1572:
1573: IF l_debug_on IS NULL THEN
1574: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1575: END IF;
1576:
1577: g_dc_table.delete;
1578:
1590:
1591: Post_Process(p_action_code => p_action_code);
1592:
1593: IF l_debug_on THEN
1594: wsh_debug_sv.pop(l_module_name);
1595: END IF;
1596:
1597: EXCEPTION
1598: WHEN dcp_caught THEN
1596:
1597: EXCEPTION
1598: WHEN dcp_caught THEN
1599: if NOT l_debug_on OR l_debug_on IS NULL THEN
1600: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1601: end if;
1602: IF l_debug_on THEN
1603: WSH_DEBUG_SV.logmsg(l_module_name,'dcp_caught exception');
1604: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DCP_CAUGHT');
1599: if NOT l_debug_on OR l_debug_on IS NULL THEN
1600: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1601: end if;
1602: IF l_debug_on THEN
1603: WSH_DEBUG_SV.logmsg(l_module_name,'dcp_caught exception');
1604: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DCP_CAUGHT');
1605: END IF;
1606: RAISE data_inconsistency_exception;
1607: WHEN others THEN
1600: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1601: end if;
1602: IF l_debug_on THEN
1603: WSH_DEBUG_SV.logmsg(l_module_name,'dcp_caught exception');
1604: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DCP_CAUGHT');
1605: END IF;
1606: RAISE data_inconsistency_exception;
1607: WHEN others THEN
1608: IF l_debug_on THEN
1605: END IF;
1606: RAISE data_inconsistency_exception;
1607: WHEN others THEN
1608: IF l_debug_on THEN
1609: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1610: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1611: END IF;
1612: END Check_Delivery;
1613:
1606: RAISE data_inconsistency_exception;
1607: WHEN others THEN
1608: IF l_debug_on THEN
1609: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1610: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1611: END IF;
1612: END Check_Delivery;
1613:
1614:
1624: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1625: --
1626: IF l_debug_on IS NULL
1627: THEN
1628: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1629: END IF;
1630: --
1631: IF l_debug_on THEN
1632: WSH_DEBUG_SV.push(l_module_name);
1628: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1629: END IF;
1630: --
1631: IF l_debug_on THEN
1632: WSH_DEBUG_SV.push(l_module_name);
1633: WSH_DEBUG_SV.LOG(l_module_name, 'p_action_code', p_action_code);
1634: END IF;
1635:
1636: g_dc_table.delete;
1629: END IF;
1630: --
1631: IF l_debug_on THEN
1632: WSH_DEBUG_SV.push(l_module_name);
1633: WSH_DEBUG_SV.LOG(l_module_name, 'p_action_code', p_action_code);
1634: END IF;
1635:
1636: g_dc_table.delete;
1637:
1649:
1650: Post_Process(p_action_code => p_action_code);
1651:
1652: IF l_debug_on THEN
1653: wsh_debug_sv.pop(l_module_name);
1654: END IF;
1655:
1656: EXCEPTION
1657: WHEN dcp_caught THEN
1655:
1656: EXCEPTION
1657: WHEN dcp_caught THEN
1658: if NOT l_debug_on OR l_debug_on IS NULL THEN
1659: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1660: end if;
1661: IF l_debug_on THEN
1662: WSH_DEBUG_SV.logmsg(l_module_name,'dcp_caught exception');
1663: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DCP_CAUGHT');
1658: if NOT l_debug_on OR l_debug_on IS NULL THEN
1659: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1660: end if;
1661: IF l_debug_on THEN
1662: WSH_DEBUG_SV.logmsg(l_module_name,'dcp_caught exception');
1663: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DCP_CAUGHT');
1664: END IF;
1665: RAISE data_inconsistency_exception;
1666: WHEN others THEN
1659: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1660: end if;
1661: IF l_debug_on THEN
1662: WSH_DEBUG_SV.logmsg(l_module_name,'dcp_caught exception');
1663: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DCP_CAUGHT');
1664: END IF;
1665: RAISE data_inconsistency_exception;
1666: WHEN others THEN
1667: IF l_debug_on THEN
1664: END IF;
1665: RAISE data_inconsistency_exception;
1666: WHEN others THEN
1667: IF l_debug_on THEN
1668: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1669: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1670: END IF;
1671: END Check_Detail;
1672:
1665: RAISE data_inconsistency_exception;
1666: WHEN others THEN
1667: IF l_debug_on THEN
1668: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1669: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1670: END IF;
1671: END Check_Detail;
1672:
1673: Procedure Check_Pick_Release(p_batch_id IN NUMBER) IS
1678: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1679: --
1680: IF l_debug_on IS NULL
1681: THEN
1682: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1683: END IF;
1684: --
1685: IF l_debug_on THEN
1686: WSH_DEBUG_SV.push(l_module_name);
1682: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1683: END IF;
1684: --
1685: IF l_debug_on THEN
1686: WSH_DEBUG_SV.push(l_module_name);
1687: WSH_DEBUG_SV.LOG(l_module_name, 'p_BATCH_ID', p_batch_id);
1688: END IF;
1689:
1690: g_dc_table.delete;
1683: END IF;
1684: --
1685: IF l_debug_on THEN
1686: WSH_DEBUG_SV.push(l_module_name);
1687: WSH_DEBUG_SV.LOG(l_module_name, 'p_BATCH_ID', p_batch_id);
1688: END IF;
1689:
1690: g_dc_table.delete;
1691:
1694:
1695: Post_Process(p_action_code => 'PICK-RELEASE');
1696:
1697: IF l_debug_on THEN
1698: wsh_debug_sv.pop(l_module_name);
1699: END IF;
1700:
1701: EXCEPTION
1702: WHEN dcp_caught THEN
1700:
1701: EXCEPTION
1702: WHEN dcp_caught THEN
1703: if NOT l_debug_on OR l_debug_on IS NULL THEN
1704: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1705: end if;
1706: IF l_debug_on THEN
1707: WSH_DEBUG_SV.logmsg(l_module_name,'dcp_caught exception');
1708: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DCP_CAUGHT');
1703: if NOT l_debug_on OR l_debug_on IS NULL THEN
1704: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1705: end if;
1706: IF l_debug_on THEN
1707: WSH_DEBUG_SV.logmsg(l_module_name,'dcp_caught exception');
1708: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DCP_CAUGHT');
1709: END IF;
1710: RAISE data_inconsistency_exception;
1711: WHEN others THEN
1704: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1705: end if;
1706: IF l_debug_on THEN
1707: WSH_DEBUG_SV.logmsg(l_module_name,'dcp_caught exception');
1708: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DCP_CAUGHT');
1709: END IF;
1710: RAISE data_inconsistency_exception;
1711: WHEN others THEN
1712: IF l_debug_on THEN
1709: END IF;
1710: RAISE data_inconsistency_exception;
1711: WHEN others THEN
1712: IF l_debug_on THEN
1713: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1714: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1715: END IF;
1716: END Check_Pick_Release;
1717:
1710: RAISE data_inconsistency_exception;
1711: WHEN others THEN
1712: IF l_debug_on THEN
1713: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1714: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1715: END IF;
1716: END Check_Pick_Release;
1717:
1718: