36: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
37: --
38: IF ( l_debug_on IS NULL )
39: THEN
40: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
41: END IF;
42: --
43: IF l_debug_on THEN
44: WSH_DEBUG_SV.Push(l_module_name);
40: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
41: END IF;
42: --
43: IF l_debug_on THEN
44: WSH_DEBUG_SV.Push(l_module_name);
45: WSH_DEBUG_SV.Log(l_module_name, 'p_request_control_id', p_request_control_id );
46: WSH_DEBUG_SV.Log(l_module_name, 'p_response_header_id', p_response_header_id );
47: WSH_DEBUG_SV.Log(l_module_name, 'p_process_flag', p_process_flag );
48: END IF;
41: END IF;
42: --
43: IF l_debug_on THEN
44: WSH_DEBUG_SV.Push(l_module_name);
45: WSH_DEBUG_SV.Log(l_module_name, 'p_request_control_id', p_request_control_id );
46: WSH_DEBUG_SV.Log(l_module_name, 'p_response_header_id', p_response_header_id );
47: WSH_DEBUG_SV.Log(l_module_name, 'p_process_flag', p_process_flag );
48: END IF;
49:
42: --
43: IF l_debug_on THEN
44: WSH_DEBUG_SV.Push(l_module_name);
45: WSH_DEBUG_SV.Log(l_module_name, 'p_request_control_id', p_request_control_id );
46: WSH_DEBUG_SV.Log(l_module_name, 'p_response_header_id', p_response_header_id );
47: WSH_DEBUG_SV.Log(l_module_name, 'p_process_flag', p_process_flag );
48: END IF;
49:
50: --UPDATING TABLE WSH_ITM_REQUEST_CONTROL WITH RESPECTIVE
43: IF l_debug_on THEN
44: WSH_DEBUG_SV.Push(l_module_name);
45: WSH_DEBUG_SV.Log(l_module_name, 'p_request_control_id', p_request_control_id );
46: WSH_DEBUG_SV.Log(l_module_name, 'p_response_header_id', p_response_header_id );
47: WSH_DEBUG_SV.Log(l_module_name, 'p_process_flag', p_process_flag );
48: END IF;
49:
50: --UPDATING TABLE WSH_ITM_REQUEST_CONTROL WITH RESPECTIVE
51: -- RESPONSE_HEADER_ID and PROCESS_FLAG
55: PROCESS_FLAG = p_process_flag
56: WHERE REQUEST_CONTROL_ID = p_request_control_id;
57: --
58: IF l_debug_on THEN
59: WSH_DEBUG_SV.Pop(l_module_name);
60: END IF;
61: --
62:
63: END UPDATE_REQCTRL_REC;
94: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
95: --
96: IF ( l_debug_on IS NULL )
97: THEN
98: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
99: END IF;
100: --
101: IF l_debug_on THEN
102: WSH_DEBUG_SV.Push(l_module_name);
98: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
99: END IF;
100: --
101: IF l_debug_on THEN
102: WSH_DEBUG_SV.Push(l_module_name);
103: WSH_DEBUG_SV.Log(l_module_name, 'p_message_id', p_message_id );
104: WSH_DEBUG_SV.Log(l_module_name, 'p_error_code', p_error_code );
105: WSH_DEBUG_SV.Log(l_module_name, 'p_error_type', p_error_type );
106: WSH_DEBUG_SV.Log(l_module_name, 'p_error_text', p_error_text );
99: END IF;
100: --
101: IF l_debug_on THEN
102: WSH_DEBUG_SV.Push(l_module_name);
103: WSH_DEBUG_SV.Log(l_module_name, 'p_message_id', p_message_id );
104: WSH_DEBUG_SV.Log(l_module_name, 'p_error_code', p_error_code );
105: WSH_DEBUG_SV.Log(l_module_name, 'p_error_type', p_error_type );
106: WSH_DEBUG_SV.Log(l_module_name, 'p_error_text', p_error_text );
107: END IF;
100: --
101: IF l_debug_on THEN
102: WSH_DEBUG_SV.Push(l_module_name);
103: WSH_DEBUG_SV.Log(l_module_name, 'p_message_id', p_message_id );
104: WSH_DEBUG_SV.Log(l_module_name, 'p_error_code', p_error_code );
105: WSH_DEBUG_SV.Log(l_module_name, 'p_error_type', p_error_type );
106: WSH_DEBUG_SV.Log(l_module_name, 'p_error_text', p_error_text );
107: END IF;
108: --
101: IF l_debug_on THEN
102: WSH_DEBUG_SV.Push(l_module_name);
103: WSH_DEBUG_SV.Log(l_module_name, 'p_message_id', p_message_id );
104: WSH_DEBUG_SV.Log(l_module_name, 'p_error_code', p_error_code );
105: WSH_DEBUG_SV.Log(l_module_name, 'p_error_type', p_error_type );
106: WSH_DEBUG_SV.Log(l_module_name, 'p_error_text', p_error_text );
107: END IF;
108: --
109:
102: WSH_DEBUG_SV.Push(l_module_name);
103: WSH_DEBUG_SV.Log(l_module_name, 'p_message_id', p_message_id );
104: WSH_DEBUG_SV.Log(l_module_name, 'p_error_code', p_error_code );
105: WSH_DEBUG_SV.Log(l_module_name, 'p_error_type', p_error_type );
106: WSH_DEBUG_SV.Log(l_module_name, 'p_error_text', p_error_text );
107: END IF;
108: --
109:
110: TOKENIZE_MESSAGEID(p_message_id, l_reqclrt_ids, l_service_type_code, l_vendor_id);
214: l_reqclrt_ids := SUBSTR(l_reqclrt_ids, (INSTR(l_reqclrt_ids, '-')+1));
215: END LOOP;
216: --
217: IF l_debug_on THEN
218: WSH_DEBUG_SV.Pop(l_module_name);
219: END IF;
220: --
221:
222: END INSERT_ERROR;
251: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
252: --
253: IF ( l_debug_on IS NULL )
254: THEN
255: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
256: END IF;
257: --
258: IF l_debug_on THEN
259: WSH_DEBUG_SV.Push(l_module_name);
255: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
256: END IF;
257: --
258: IF l_debug_on THEN
259: WSH_DEBUG_SV.Push(l_module_name);
260: WSH_DEBUG_SV.Log(l_module_name, 'p_message_id', p_message_id );
261: END IF;
262: --
263:
256: END IF;
257: --
258: IF l_debug_on THEN
259: WSH_DEBUG_SV.Push(l_module_name);
260: WSH_DEBUG_SV.Log(l_module_name, 'p_message_id', p_message_id );
261: END IF;
262: --
263:
264: x_reqclrt_ids := substr(p_message_id, 0, (instr(p_message_id, '~')-1));
266: x_service_type_code := substr(l_temp_id, 0, (instr(l_temp_id, '~')-1));
267: x_vendor_id := substr(l_temp_id, (instr(l_temp_id, '~')+1));
268: --
269: IF l_debug_on THEN
270: WSH_DEBUG_SV.Pop(l_module_name);
271: END IF;
272: --
273: END TOKENIZE_MESSAGEID;
274:
293: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
294: --
295: IF ( l_debug_on IS NULL )
296: THEN
297: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
298: END IF;
299: --
300: IF l_debug_on THEN
301: WSH_DEBUG_SV.Push(l_module_name);
297: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
298: END IF;
299: --
300: IF l_debug_on THEN
301: WSH_DEBUG_SV.Push(l_module_name);
302: WSH_DEBUG_SV.Log(l_module_name, 'p_party_id', p_party_id );
303: END IF;
304: --
305:
298: END IF;
299: --
300: IF l_debug_on THEN
301: WSH_DEBUG_SV.Push(l_module_name);
302: WSH_DEBUG_SV.Log(l_module_name, 'p_party_id', p_party_id );
303: END IF;
304: --
305:
306: x_actual_party_id := substr(p_party_id, (instr(p_party_id, '-')+1));
305:
306: x_actual_party_id := substr(p_party_id, (instr(p_party_id, '-')+1));
307: --
308: IF l_debug_on THEN
309: WSH_DEBUG_SV.Pop(l_module_name);
310: END IF;
311: --
312:
313: END TOKENIZE_PARTYID;
336: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
337: --
338: IF ( l_debug_on IS NULL )
339: THEN
340: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
341: END IF;
342: --
343: IF l_debug_on THEN
344: WSH_DEBUG_SV.Push(l_module_name);
340: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
341: END IF;
342: --
343: IF l_debug_on THEN
344: WSH_DEBUG_SV.Push(l_module_name);
345: WSH_DEBUG_SV.Log(l_module_name, 'p_message_id', p_message_id );
346: END IF;
347: --
348:
341: END IF;
342: --
343: IF l_debug_on THEN
344: WSH_DEBUG_SV.Push(l_module_name);
345: WSH_DEBUG_SV.Log(l_module_name, 'p_message_id', p_message_id );
346: END IF;
347: --
348:
349: --GET THE ERQUEST CONTROL IDS
369: l_reqclrt_ids := substr(l_reqclrt_ids, (instr(l_reqclrt_ids, '-')+1));
370: end loop;
371: --
372: IF l_debug_on THEN
373: WSH_DEBUG_SV.Pop(l_module_name);
374: END IF;
375: --
376:
377: END PROCESS_ACK_RECEIPT;
395: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
396: --
397: IF ( l_debug_on IS NULL )
398: THEN
399: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
400: END IF;
401: --
402: IF l_debug_on THEN
403: WSH_DEBUG_SV.Push(l_module_name);
399: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
400: END IF;
401: --
402: IF l_debug_on THEN
403: WSH_DEBUG_SV.Push(l_module_name);
404: WSH_DEBUG_SV.Log(l_module_name, 'p_response_line_id', p_response_line_id );
405: END IF;
406: --
407:
400: END IF;
401: --
402: IF l_debug_on THEN
403: WSH_DEBUG_SV.Push(l_module_name);
404: WSH_DEBUG_SV.Log(l_module_name, 'p_response_line_id', p_response_line_id );
405: END IF;
406: --
407:
408: --UPDATE WSH_ITM_RESPONSE_LINES SET DENIED_PARTY_MATCH = 'y'
410: SET DENIED_PARTY_FLAG = 'Y'
411: WHERE RESPONSE_LINE_ID = p_response_line_id;
412: --
413: IF l_debug_on THEN
414: WSH_DEBUG_SV.Pop(l_module_name);
415: END IF;
416: --
417: END UPDATE_DENIED_PARTY_MATCH;
418:
440: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
441: --
442: IF ( l_debug_on IS NULL )
443: THEN
444: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
445: END IF;
446: --
447: IF l_debug_on THEN
448: WSH_DEBUG_SV.Push(l_module_name);
444: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
445: END IF;
446: --
447: IF l_debug_on THEN
448: WSH_DEBUG_SV.Push(l_module_name);
449: WSH_DEBUG_SV.Log(l_module_name, 'p_request_control_id', p_request_control_id );
450: END IF;
451: --
452: BEGIN
445: END IF;
446: --
447: IF l_debug_on THEN
448: WSH_DEBUG_SV.Push(l_module_name);
449: WSH_DEBUG_SV.Log(l_module_name, 'p_request_control_id', p_request_control_id );
450: END IF;
451: --
452: BEGIN
453:
468: x_create_resp_hdr := NULL;
469: END IF;
470: --
471: IF l_debug_on THEN
472: WSH_DEBUG_SV.Pop(l_module_name);
473: END IF;
474: --
475: END GET_RESPONSE_HDR;
476:
500: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
501: --
502: IF ( l_debug_on IS NULL )
503: THEN
504: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
505: END IF;
506: --
507: IF l_debug_on THEN
508: WSH_DEBUG_SV.Push(l_module_name);
504: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
505: END IF;
506: --
507: IF l_debug_on THEN
508: WSH_DEBUG_SV.Push(l_module_name);
509: WSH_DEBUG_SV.Log(l_module_name, 'p_message_ID', p_message_ID );
510: END IF;
511: --
512:
505: END IF;
506: --
507: IF l_debug_on THEN
508: WSH_DEBUG_SV.Push(l_module_name);
509: WSH_DEBUG_SV.Log(l_module_name, 'p_message_ID', p_message_ID );
510: END IF;
511: --
512:
513:
549:
550: END LOOP;
551: --
552: IF l_debug_on THEN
553: WSH_DEBUG_SV.Pop(l_module_name);
554: END IF;
555: --
556:
557: Close_Debug;
580: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
581: --
582: IF ( l_debug_on IS NULL )
583: THEN
584: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
585: END IF;
586: --
587: IF l_debug_on THEN
588: WSH_DEBUG_SV.Push(l_module_name);
584: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
585: END IF;
586: --
587: IF l_debug_on THEN
588: WSH_DEBUG_SV.Push(l_module_name);
589: WSH_DEBUG_SV.Log(l_module_name, 'p_request_control_id', p_reqCtrlID );
590: END IF;
591: --
592:
585: END IF;
586: --
587: IF l_debug_on THEN
588: WSH_DEBUG_SV.Push(l_module_name);
589: WSH_DEBUG_SV.Log(l_module_name, 'p_request_control_id', p_reqCtrlID );
590: END IF;
591: --
592:
593: SELECT NVL(REQUEST_SET_ID, 0),
603: 'ECX');
604:
605: --
606: IF l_debug_on THEN
607: WSH_DEBUG_SV.Pop(l_module_name);
608: END IF;
609: --
610: END MESSAGE_POSTPROCESS;
611: PROCEDURE Initialize_Debug IS
662: l_file_ptr := UTL_FILE.Fopen(l_log_directory, G_LOG_FILENAME, 'a');
663:
664: --Debug messages will be generated in a log file instead of
665: --being printed in concurrent request log file
666: WSH_DEBUG_SV.G_ITM_ASYN_PROC := TRUE;
667:
668: WSH_DEBUG_INTERFACE.Start_Debugger(
669: p_dir_name => l_log_directory,
670: p_file_name => G_LOG_FILENAME,
679:
680: --Deleting pl/sql table g_CallStack so that debug messages
681: --will be indented properly if more than one ITM request
682: --controls are processed by same concurrent process.
683: WSH_DEBUG_SV.g_CallStack.DELETE;
684: --Calling Set_Debug_Count to reinitialize debug global
685: --variables in debug package WSH_DEBUG_SV
686: WSH_DEBUG_SV.Set_Debug_Count;
687:
681: --will be indented properly if more than one ITM request
682: --controls are processed by same concurrent process.
683: WSH_DEBUG_SV.g_CallStack.DELETE;
684: --Calling Set_Debug_Count to reinitialize debug global
685: --variables in debug package WSH_DEBUG_SV
686: WSH_DEBUG_SV.Set_Debug_Count;
687:
688: WSH_DEBUG_SV.Push(l_module_name);
689: WSH_DEBUG_SV.Log(l_module_name, 'Concurrent Request Id', fnd_global.conc_request_id );
682: --controls are processed by same concurrent process.
683: WSH_DEBUG_SV.g_CallStack.DELETE;
684: --Calling Set_Debug_Count to reinitialize debug global
685: --variables in debug package WSH_DEBUG_SV
686: WSH_DEBUG_SV.Set_Debug_Count;
687:
688: WSH_DEBUG_SV.Push(l_module_name);
689: WSH_DEBUG_SV.Log(l_module_name, 'Concurrent Request Id', fnd_global.conc_request_id );
690: WSH_DEBUG_SV.Log(l_module_name, 'User Name', fnd_global.user_name );
684: --Calling Set_Debug_Count to reinitialize debug global
685: --variables in debug package WSH_DEBUG_SV
686: WSH_DEBUG_SV.Set_Debug_Count;
687:
688: WSH_DEBUG_SV.Push(l_module_name);
689: WSH_DEBUG_SV.Log(l_module_name, 'Concurrent Request Id', fnd_global.conc_request_id );
690: WSH_DEBUG_SV.Log(l_module_name, 'User Name', fnd_global.user_name );
691: WSH_DEBUG_SV.Log(l_module_name, 'Responsibility Id', fnd_global.resp_id );
692: WSH_DEBUG_SV.Log(l_module_name, 'Responsibility Application Id', fnd_global.resp_appl_id );
685: --variables in debug package WSH_DEBUG_SV
686: WSH_DEBUG_SV.Set_Debug_Count;
687:
688: WSH_DEBUG_SV.Push(l_module_name);
689: WSH_DEBUG_SV.Log(l_module_name, 'Concurrent Request Id', fnd_global.conc_request_id );
690: WSH_DEBUG_SV.Log(l_module_name, 'User Name', fnd_global.user_name );
691: WSH_DEBUG_SV.Log(l_module_name, 'Responsibility Id', fnd_global.resp_id );
692: WSH_DEBUG_SV.Log(l_module_name, 'Responsibility Application Id', fnd_global.resp_appl_id );
693: WSH_DEBUG_SV.Pop(l_module_name);
686: WSH_DEBUG_SV.Set_Debug_Count;
687:
688: WSH_DEBUG_SV.Push(l_module_name);
689: WSH_DEBUG_SV.Log(l_module_name, 'Concurrent Request Id', fnd_global.conc_request_id );
690: WSH_DEBUG_SV.Log(l_module_name, 'User Name', fnd_global.user_name );
691: WSH_DEBUG_SV.Log(l_module_name, 'Responsibility Id', fnd_global.resp_id );
692: WSH_DEBUG_SV.Log(l_module_name, 'Responsibility Application Id', fnd_global.resp_appl_id );
693: WSH_DEBUG_SV.Pop(l_module_name);
694: ELSE
687:
688: WSH_DEBUG_SV.Push(l_module_name);
689: WSH_DEBUG_SV.Log(l_module_name, 'Concurrent Request Id', fnd_global.conc_request_id );
690: WSH_DEBUG_SV.Log(l_module_name, 'User Name', fnd_global.user_name );
691: WSH_DEBUG_SV.Log(l_module_name, 'Responsibility Id', fnd_global.resp_id );
692: WSH_DEBUG_SV.Log(l_module_name, 'Responsibility Application Id', fnd_global.resp_appl_id );
693: WSH_DEBUG_SV.Pop(l_module_name);
694: ELSE
695: G_DEBUG_PROCESS := FALSE;
688: WSH_DEBUG_SV.Push(l_module_name);
689: WSH_DEBUG_SV.Log(l_module_name, 'Concurrent Request Id', fnd_global.conc_request_id );
690: WSH_DEBUG_SV.Log(l_module_name, 'User Name', fnd_global.user_name );
691: WSH_DEBUG_SV.Log(l_module_name, 'Responsibility Id', fnd_global.resp_id );
692: WSH_DEBUG_SV.Log(l_module_name, 'Responsibility Application Id', fnd_global.resp_appl_id );
693: WSH_DEBUG_SV.Pop(l_module_name);
694: ELSE
695: G_DEBUG_PROCESS := FALSE;
696: END IF;
689: WSH_DEBUG_SV.Log(l_module_name, 'Concurrent Request Id', fnd_global.conc_request_id );
690: WSH_DEBUG_SV.Log(l_module_name, 'User Name', fnd_global.user_name );
691: WSH_DEBUG_SV.Log(l_module_name, 'Responsibility Id', fnd_global.resp_id );
692: WSH_DEBUG_SV.Log(l_module_name, 'Responsibility Application Id', fnd_global.resp_appl_id );
693: WSH_DEBUG_SV.Pop(l_module_name);
694: ELSE
695: G_DEBUG_PROCESS := FALSE;
696: END IF;
697:
714: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
715: --
716: IF ( l_debug_on IS NULL )
717: THEN
718: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
719: END IF;
720: --
721: IF l_debug_on THEN
722: WSH_DEBUG_SV.Push(l_module_name);
718: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
719: END IF;
720: --
721: IF l_debug_on THEN
722: WSH_DEBUG_SV.Push(l_module_name);
723: WSH_DEBUG_SV.Logmsg(l_module_name, 'Closing debug log file' );
724: WSH_DEBUG_SV.Pop(l_module_name);
725:
726: --If ITM Log Severity is set to DEBUG then disable Shipping and OM Debugging
719: END IF;
720: --
721: IF l_debug_on THEN
722: WSH_DEBUG_SV.Push(l_module_name);
723: WSH_DEBUG_SV.Logmsg(l_module_name, 'Closing debug log file' );
724: WSH_DEBUG_SV.Pop(l_module_name);
725:
726: --If ITM Log Severity is set to DEBUG then disable Shipping and OM Debugging
727: WSH_DEBUG_INTERFACE.stop_debugger;
720: --
721: IF l_debug_on THEN
722: WSH_DEBUG_SV.Push(l_module_name);
723: WSH_DEBUG_SV.Logmsg(l_module_name, 'Closing debug log file' );
724: WSH_DEBUG_SV.Pop(l_module_name);
725:
726: --If ITM Log Severity is set to DEBUG then disable Shipping and OM Debugging
727: WSH_DEBUG_INTERFACE.stop_debugger;
728: OE_DEBUG_PUB.STOP_ONT_DEBUGGER;