35: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
36: --
37: IF ( l_debug_on IS NULL )
38: THEN
39: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
40: END IF;
41: --
42: IF l_debug_on THEN
43: WSH_DEBUG_SV.Push(l_module_name);
39: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
40: END IF;
41: --
42: IF l_debug_on THEN
43: WSH_DEBUG_SV.Push(l_module_name);
44: WSH_DEBUG_SV.Log(l_module_name, 'p_request_control_id', p_request_control_id );
45: WSH_DEBUG_SV.Log(l_module_name, 'p_response_header_id', p_response_header_id );
46: WSH_DEBUG_SV.Log(l_module_name, 'p_process_flag', p_process_flag );
47: END IF;
40: END IF;
41: --
42: IF l_debug_on THEN
43: WSH_DEBUG_SV.Push(l_module_name);
44: WSH_DEBUG_SV.Log(l_module_name, 'p_request_control_id', p_request_control_id );
45: WSH_DEBUG_SV.Log(l_module_name, 'p_response_header_id', p_response_header_id );
46: WSH_DEBUG_SV.Log(l_module_name, 'p_process_flag', p_process_flag );
47: END IF;
48:
41: --
42: IF l_debug_on THEN
43: WSH_DEBUG_SV.Push(l_module_name);
44: WSH_DEBUG_SV.Log(l_module_name, 'p_request_control_id', p_request_control_id );
45: WSH_DEBUG_SV.Log(l_module_name, 'p_response_header_id', p_response_header_id );
46: WSH_DEBUG_SV.Log(l_module_name, 'p_process_flag', p_process_flag );
47: END IF;
48:
49: --UPDATING TABLE WSH_ITM_REQUEST_CONTROL WITH RESPECTIVE
42: IF l_debug_on THEN
43: WSH_DEBUG_SV.Push(l_module_name);
44: WSH_DEBUG_SV.Log(l_module_name, 'p_request_control_id', p_request_control_id );
45: WSH_DEBUG_SV.Log(l_module_name, 'p_response_header_id', p_response_header_id );
46: WSH_DEBUG_SV.Log(l_module_name, 'p_process_flag', p_process_flag );
47: END IF;
48:
49: --UPDATING TABLE WSH_ITM_REQUEST_CONTROL WITH RESPECTIVE
50: -- RESPONSE_HEADER_ID and PROCESS_FLAG
54: PROCESS_FLAG = p_process_flag
55: WHERE REQUEST_CONTROL_ID = p_request_control_id;
56: --
57: IF l_debug_on THEN
58: WSH_DEBUG_SV.Pop(l_module_name);
59: END IF;
60: --
61:
62: END UPDATE_REQCTRL_REC;
92: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
93: --
94: IF ( l_debug_on IS NULL )
95: THEN
96: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
97: END IF;
98: --
99: IF l_debug_on THEN
100: WSH_DEBUG_SV.Push(l_module_name);
96: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
97: END IF;
98: --
99: IF l_debug_on THEN
100: WSH_DEBUG_SV.Push(l_module_name);
101: WSH_DEBUG_SV.Log(l_module_name, 'p_message_id', p_message_id );
102: WSH_DEBUG_SV.Log(l_module_name, 'p_error_code', p_error_code );
103: WSH_DEBUG_SV.Log(l_module_name, 'p_error_type', p_error_type );
104: WSH_DEBUG_SV.Log(l_module_name, 'p_error_text', p_error_text );
97: END IF;
98: --
99: IF l_debug_on THEN
100: WSH_DEBUG_SV.Push(l_module_name);
101: WSH_DEBUG_SV.Log(l_module_name, 'p_message_id', p_message_id );
102: WSH_DEBUG_SV.Log(l_module_name, 'p_error_code', p_error_code );
103: WSH_DEBUG_SV.Log(l_module_name, 'p_error_type', p_error_type );
104: WSH_DEBUG_SV.Log(l_module_name, 'p_error_text', p_error_text );
105: END IF;
98: --
99: IF l_debug_on THEN
100: WSH_DEBUG_SV.Push(l_module_name);
101: WSH_DEBUG_SV.Log(l_module_name, 'p_message_id', p_message_id );
102: WSH_DEBUG_SV.Log(l_module_name, 'p_error_code', p_error_code );
103: WSH_DEBUG_SV.Log(l_module_name, 'p_error_type', p_error_type );
104: WSH_DEBUG_SV.Log(l_module_name, 'p_error_text', p_error_text );
105: END IF;
106: --
99: IF l_debug_on THEN
100: WSH_DEBUG_SV.Push(l_module_name);
101: WSH_DEBUG_SV.Log(l_module_name, 'p_message_id', p_message_id );
102: WSH_DEBUG_SV.Log(l_module_name, 'p_error_code', p_error_code );
103: WSH_DEBUG_SV.Log(l_module_name, 'p_error_type', p_error_type );
104: WSH_DEBUG_SV.Log(l_module_name, 'p_error_text', p_error_text );
105: END IF;
106: --
107:
100: WSH_DEBUG_SV.Push(l_module_name);
101: WSH_DEBUG_SV.Log(l_module_name, 'p_message_id', p_message_id );
102: WSH_DEBUG_SV.Log(l_module_name, 'p_error_code', p_error_code );
103: WSH_DEBUG_SV.Log(l_module_name, 'p_error_type', p_error_type );
104: WSH_DEBUG_SV.Log(l_module_name, 'p_error_text', p_error_text );
105: END IF;
106: --
107:
108: TOKENIZE_MESSAGEID(p_message_id, l_reqclrt_ids, l_service_type_code, l_vendor_id);
212: l_reqclrt_ids := SUBSTR(l_reqclrt_ids, (INSTR(l_reqclrt_ids, '-')+1));
213: END LOOP;
214: --
215: IF l_debug_on THEN
216: WSH_DEBUG_SV.Pop(l_module_name);
217: END IF;
218: --
219:
220: END INSERT_ERROR;
246: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
247: --
248: IF ( l_debug_on IS NULL )
249: THEN
250: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
251: END IF;
252: --
253: IF l_debug_on THEN
254: WSH_DEBUG_SV.Push(l_module_name);
250: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
251: END IF;
252: --
253: IF l_debug_on THEN
254: WSH_DEBUG_SV.Push(l_module_name);
255: WSH_DEBUG_SV.Log(l_module_name, 'p_message_id', p_message_id );
256: END IF;
257: --
258:
251: END IF;
252: --
253: IF l_debug_on THEN
254: WSH_DEBUG_SV.Push(l_module_name);
255: WSH_DEBUG_SV.Log(l_module_name, 'p_message_id', p_message_id );
256: END IF;
257: --
258:
259: x_reqclrt_ids := substr(p_message_id, 0, (instr(p_message_id, '~')-1));
261: x_service_type_code := substr(l_temp_id, 0, (instr(l_temp_id, '~')-1));
262: x_vendor_id := substr(l_temp_id, (instr(l_temp_id, '~')+1));
263: --
264: IF l_debug_on THEN
265: WSH_DEBUG_SV.Pop(l_module_name);
266: END IF;
267: --
268: END TOKENIZE_MESSAGEID;
269:
287: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
288: --
289: IF ( l_debug_on IS NULL )
290: THEN
291: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
292: END IF;
293: --
294: IF l_debug_on THEN
295: WSH_DEBUG_SV.Push(l_module_name);
291: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
292: END IF;
293: --
294: IF l_debug_on THEN
295: WSH_DEBUG_SV.Push(l_module_name);
296: WSH_DEBUG_SV.Log(l_module_name, 'p_party_id', p_party_id );
297: END IF;
298: --
299:
292: END IF;
293: --
294: IF l_debug_on THEN
295: WSH_DEBUG_SV.Push(l_module_name);
296: WSH_DEBUG_SV.Log(l_module_name, 'p_party_id', p_party_id );
297: END IF;
298: --
299:
300: x_actual_party_id := substr(p_party_id, (instr(p_party_id, '-')+1));
299:
300: x_actual_party_id := substr(p_party_id, (instr(p_party_id, '-')+1));
301: --
302: IF l_debug_on THEN
303: WSH_DEBUG_SV.Pop(l_module_name);
304: END IF;
305: --
306:
307: END TOKENIZE_PARTYID;
329: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
330: --
331: IF ( l_debug_on IS NULL )
332: THEN
333: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
334: END IF;
335: --
336: IF l_debug_on THEN
337: WSH_DEBUG_SV.Push(l_module_name);
333: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
334: END IF;
335: --
336: IF l_debug_on THEN
337: WSH_DEBUG_SV.Push(l_module_name);
338: WSH_DEBUG_SV.Log(l_module_name, 'p_message_id', p_message_id );
339: END IF;
340: --
341:
334: END IF;
335: --
336: IF l_debug_on THEN
337: WSH_DEBUG_SV.Push(l_module_name);
338: WSH_DEBUG_SV.Log(l_module_name, 'p_message_id', p_message_id );
339: END IF;
340: --
341:
342: --GET THE ERQUEST CONTROL IDS
362: l_reqclrt_ids := substr(l_reqclrt_ids, (instr(l_reqclrt_ids, '-')+1));
363: end loop;
364: --
365: IF l_debug_on THEN
366: WSH_DEBUG_SV.Pop(l_module_name);
367: END IF;
368: --
369:
370: END PROCESS_ACK_RECEIPT;
387: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
388: --
389: IF ( l_debug_on IS NULL )
390: THEN
391: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
392: END IF;
393: --
394: IF l_debug_on THEN
395: WSH_DEBUG_SV.Push(l_module_name);
391: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
392: END IF;
393: --
394: IF l_debug_on THEN
395: WSH_DEBUG_SV.Push(l_module_name);
396: WSH_DEBUG_SV.Log(l_module_name, 'p_response_line_id', p_response_line_id );
397: END IF;
398: --
399:
392: END IF;
393: --
394: IF l_debug_on THEN
395: WSH_DEBUG_SV.Push(l_module_name);
396: WSH_DEBUG_SV.Log(l_module_name, 'p_response_line_id', p_response_line_id );
397: END IF;
398: --
399:
400: --UPDATE WSH_ITM_RESPONSE_LINES SET DENIED_PARTY_MATCH = 'y'
402: SET DENIED_PARTY_FLAG = 'Y'
403: WHERE RESPONSE_LINE_ID = p_response_line_id;
404: --
405: IF l_debug_on THEN
406: WSH_DEBUG_SV.Pop(l_module_name);
407: END IF;
408: --
409: END UPDATE_DENIED_PARTY_MATCH;
410:
431: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
432: --
433: IF ( l_debug_on IS NULL )
434: THEN
435: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
436: END IF;
437: --
438: IF l_debug_on THEN
439: WSH_DEBUG_SV.Push(l_module_name);
435: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
436: END IF;
437: --
438: IF l_debug_on THEN
439: WSH_DEBUG_SV.Push(l_module_name);
440: WSH_DEBUG_SV.Log(l_module_name, 'p_request_control_id', p_request_control_id );
441: END IF;
442: --
443: BEGIN
436: END IF;
437: --
438: IF l_debug_on THEN
439: WSH_DEBUG_SV.Push(l_module_name);
440: WSH_DEBUG_SV.Log(l_module_name, 'p_request_control_id', p_request_control_id );
441: END IF;
442: --
443: BEGIN
444:
459: x_create_resp_hdr := NULL;
460: END IF;
461: --
462: IF l_debug_on THEN
463: WSH_DEBUG_SV.Pop(l_module_name);
464: END IF;
465: --
466: END GET_RESPONSE_HDR;
467:
490: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
491: --
492: IF ( l_debug_on IS NULL )
493: THEN
494: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
495: END IF;
496: --
497: IF l_debug_on THEN
498: WSH_DEBUG_SV.Push(l_module_name);
494: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
495: END IF;
496: --
497: IF l_debug_on THEN
498: WSH_DEBUG_SV.Push(l_module_name);
499: WSH_DEBUG_SV.Log(l_module_name, 'p_message_ID', p_message_ID );
500: END IF;
501: --
502:
495: END IF;
496: --
497: IF l_debug_on THEN
498: WSH_DEBUG_SV.Push(l_module_name);
499: WSH_DEBUG_SV.Log(l_module_name, 'p_message_ID', p_message_ID );
500: END IF;
501: --
502:
503:
539:
540: END LOOP;
541: --
542: IF l_debug_on THEN
543: WSH_DEBUG_SV.Pop(l_module_name);
544: END IF;
545: --
546:
547: Close_Debug;
569: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
570: --
571: IF ( l_debug_on IS NULL )
572: THEN
573: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
574: END IF;
575: --
576: IF l_debug_on THEN
577: WSH_DEBUG_SV.Push(l_module_name);
573: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
574: END IF;
575: --
576: IF l_debug_on THEN
577: WSH_DEBUG_SV.Push(l_module_name);
578: WSH_DEBUG_SV.Log(l_module_name, 'p_request_control_id', p_reqCtrlID );
579: END IF;
580: --
581:
574: END IF;
575: --
576: IF l_debug_on THEN
577: WSH_DEBUG_SV.Push(l_module_name);
578: WSH_DEBUG_SV.Log(l_module_name, 'p_request_control_id', p_reqCtrlID );
579: END IF;
580: --
581:
582: SELECT NVL(REQUEST_SET_ID, 0),
592: 'ITM');--Bug 9226895 replaced ECX with ITM
593:
594: --
595: IF l_debug_on THEN
596: WSH_DEBUG_SV.Pop(l_module_name);
597: END IF;
598: --
599: END MESSAGE_POSTPROCESS;
600: PROCEDURE Initialize_Debug(p_reference_id VARCHAR2) IS
664: l_file_ptr := UTL_FILE.Fopen(l_log_directory, G_LOG_FILENAME, 'a');
665:
666: --Debug messages will be generated in a log file instead of
667: --being printed in concurrent request log file
668: WSH_DEBUG_SV.G_ITM_ASYN_PROC := TRUE;
669:
670: WSH_DEBUG_INTERFACE.Start_Debugger(
671: p_dir_name => l_log_directory,
672: p_file_name => G_LOG_FILENAME,
681:
682: --Deleting pl/sql table g_CallStack so that debug messages
683: --will be indented properly if more than one ITM request
684: --controls are processed by same concurrent process.
685: WSH_DEBUG_SV.g_CallStack.DELETE;
686: --Calling Set_Debug_Count to reinitialize debug global
687: --variables in debug package WSH_DEBUG_SV
688: WSH_DEBUG_SV.Set_Debug_Count;
689:
683: --will be indented properly if more than one ITM request
684: --controls are processed by same concurrent process.
685: WSH_DEBUG_SV.g_CallStack.DELETE;
686: --Calling Set_Debug_Count to reinitialize debug global
687: --variables in debug package WSH_DEBUG_SV
688: WSH_DEBUG_SV.Set_Debug_Count;
689:
690: WSH_DEBUG_SV.Push(l_module_name);
691: WSH_DEBUG_SV.Log(l_module_name, 'Concurrent Request Id', fnd_global.conc_request_id );
684: --controls are processed by same concurrent process.
685: WSH_DEBUG_SV.g_CallStack.DELETE;
686: --Calling Set_Debug_Count to reinitialize debug global
687: --variables in debug package WSH_DEBUG_SV
688: WSH_DEBUG_SV.Set_Debug_Count;
689:
690: WSH_DEBUG_SV.Push(l_module_name);
691: WSH_DEBUG_SV.Log(l_module_name, 'Concurrent Request Id', fnd_global.conc_request_id );
692: WSH_DEBUG_SV.Log(l_module_name, 'User Name', fnd_global.user_name );
686: --Calling Set_Debug_Count to reinitialize debug global
687: --variables in debug package WSH_DEBUG_SV
688: WSH_DEBUG_SV.Set_Debug_Count;
689:
690: WSH_DEBUG_SV.Push(l_module_name);
691: WSH_DEBUG_SV.Log(l_module_name, 'Concurrent Request Id', fnd_global.conc_request_id );
692: WSH_DEBUG_SV.Log(l_module_name, 'User Name', fnd_global.user_name );
693: WSH_DEBUG_SV.Log(l_module_name, 'Responsibility Id', fnd_global.resp_id );
694: WSH_DEBUG_SV.Log(l_module_name, 'Responsibility Application Id', fnd_global.resp_appl_id );
687: --variables in debug package WSH_DEBUG_SV
688: WSH_DEBUG_SV.Set_Debug_Count;
689:
690: WSH_DEBUG_SV.Push(l_module_name);
691: WSH_DEBUG_SV.Log(l_module_name, 'Concurrent Request Id', fnd_global.conc_request_id );
692: WSH_DEBUG_SV.Log(l_module_name, 'User Name', fnd_global.user_name );
693: WSH_DEBUG_SV.Log(l_module_name, 'Responsibility Id', fnd_global.resp_id );
694: WSH_DEBUG_SV.Log(l_module_name, 'Responsibility Application Id', fnd_global.resp_appl_id );
695: WSH_DEBUG_SV.Pop(l_module_name);
688: WSH_DEBUG_SV.Set_Debug_Count;
689:
690: WSH_DEBUG_SV.Push(l_module_name);
691: WSH_DEBUG_SV.Log(l_module_name, 'Concurrent Request Id', fnd_global.conc_request_id );
692: WSH_DEBUG_SV.Log(l_module_name, 'User Name', fnd_global.user_name );
693: WSH_DEBUG_SV.Log(l_module_name, 'Responsibility Id', fnd_global.resp_id );
694: WSH_DEBUG_SV.Log(l_module_name, 'Responsibility Application Id', fnd_global.resp_appl_id );
695: WSH_DEBUG_SV.Pop(l_module_name);
696: ELSE
689:
690: WSH_DEBUG_SV.Push(l_module_name);
691: WSH_DEBUG_SV.Log(l_module_name, 'Concurrent Request Id', fnd_global.conc_request_id );
692: WSH_DEBUG_SV.Log(l_module_name, 'User Name', fnd_global.user_name );
693: WSH_DEBUG_SV.Log(l_module_name, 'Responsibility Id', fnd_global.resp_id );
694: WSH_DEBUG_SV.Log(l_module_name, 'Responsibility Application Id', fnd_global.resp_appl_id );
695: WSH_DEBUG_SV.Pop(l_module_name);
696: ELSE
697: G_DEBUG_PROCESS := FALSE;
690: WSH_DEBUG_SV.Push(l_module_name);
691: WSH_DEBUG_SV.Log(l_module_name, 'Concurrent Request Id', fnd_global.conc_request_id );
692: WSH_DEBUG_SV.Log(l_module_name, 'User Name', fnd_global.user_name );
693: WSH_DEBUG_SV.Log(l_module_name, 'Responsibility Id', fnd_global.resp_id );
694: WSH_DEBUG_SV.Log(l_module_name, 'Responsibility Application Id', fnd_global.resp_appl_id );
695: WSH_DEBUG_SV.Pop(l_module_name);
696: ELSE
697: G_DEBUG_PROCESS := FALSE;
698: END IF;
691: WSH_DEBUG_SV.Log(l_module_name, 'Concurrent Request Id', fnd_global.conc_request_id );
692: WSH_DEBUG_SV.Log(l_module_name, 'User Name', fnd_global.user_name );
693: WSH_DEBUG_SV.Log(l_module_name, 'Responsibility Id', fnd_global.resp_id );
694: WSH_DEBUG_SV.Log(l_module_name, 'Responsibility Application Id', fnd_global.resp_appl_id );
695: WSH_DEBUG_SV.Pop(l_module_name);
696: ELSE
697: G_DEBUG_PROCESS := FALSE;
698: END IF;
699:
716: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
717: --
718: IF ( l_debug_on IS NULL )
719: THEN
720: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
721: END IF;
722: --
723: IF l_debug_on THEN
724: WSH_DEBUG_SV.Push(l_module_name);
720: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
721: END IF;
722: --
723: IF l_debug_on THEN
724: WSH_DEBUG_SV.Push(l_module_name);
725: WSH_DEBUG_SV.Logmsg(l_module_name, 'Closing debug log file' );
726: WSH_DEBUG_SV.Pop(l_module_name);
727:
728: --If ITM Log Severity is set to DEBUG then disable Shipping and OM Debugging
721: END IF;
722: --
723: IF l_debug_on THEN
724: WSH_DEBUG_SV.Push(l_module_name);
725: WSH_DEBUG_SV.Logmsg(l_module_name, 'Closing debug log file' );
726: WSH_DEBUG_SV.Pop(l_module_name);
727:
728: --If ITM Log Severity is set to DEBUG then disable Shipping and OM Debugging
729: WSH_DEBUG_INTERFACE.stop_debugger;
722: --
723: IF l_debug_on THEN
724: WSH_DEBUG_SV.Push(l_module_name);
725: WSH_DEBUG_SV.Logmsg(l_module_name, 'Closing debug log file' );
726: WSH_DEBUG_SV.Pop(l_module_name);
727:
728: --If ITM Log Severity is set to DEBUG then disable Shipping and OM Debugging
729: WSH_DEBUG_INTERFACE.stop_debugger;
730: OE_DEBUG_PUB.STOP_ONT_DEBUGGER;
761: --
762: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
763: --
764: IF ( l_debug_on IS NULL ) THEN
765: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
766: END IF;
767: --
768: IF l_debug_on THEN
769: WSH_DEBUG_SV.push(l_module_name);
765: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
766: END IF;
767: --
768: IF l_debug_on THEN
769: WSH_DEBUG_SV.push(l_module_name);
770: WSH_DEBUG_SV.Log(l_module_name, 'p_reference_id',p_reference_id);
771: WSH_DEBUG_SV.Log(l_module_name, 'Request_control_id that will be removed from p_reference_id',p_request_ctrl_id);
772: END IF;
773:
766: END IF;
767: --
768: IF l_debug_on THEN
769: WSH_DEBUG_SV.push(l_module_name);
770: WSH_DEBUG_SV.Log(l_module_name, 'p_reference_id',p_reference_id);
771: WSH_DEBUG_SV.Log(l_module_name, 'Request_control_id that will be removed from p_reference_id',p_request_ctrl_id);
772: END IF;
773:
774: --
767: --
768: IF l_debug_on THEN
769: WSH_DEBUG_SV.push(l_module_name);
770: WSH_DEBUG_SV.Log(l_module_name, 'p_reference_id',p_reference_id);
771: WSH_DEBUG_SV.Log(l_module_name, 'Request_control_id that will be removed from p_reference_id',p_request_ctrl_id);
772: END IF;
773:
774: --
775: SELECT Decode(InStr(p_reference_id, '-' ||p_request_ctrl_id),0, REPLACE(p_reference_id, p_request_ctrl_id||'-', ''),REPLACE(p_reference_id, '-'||p_request_ctrl_id, '') )
777: l_reference_id
778: FROM dual;
779:
780: IF l_debug_on THEN
781: WSH_DEBUG_SV.Log(l_module_name, 'New p_reference_id',l_reference_id);
782: WSH_DEBUG_SV.pop(l_module_name);
783: END IF;
784:
785: p_reference_id := l_reference_id;
778: FROM dual;
779:
780: IF l_debug_on THEN
781: WSH_DEBUG_SV.Log(l_module_name, 'New p_reference_id',l_reference_id);
782: WSH_DEBUG_SV.pop(l_module_name);
783: END IF;
784:
785: p_reference_id := l_reference_id;
786: /*No exception block is being added, since The caller(ECX)