1: PACKAGE BODY eam_debug AS
2: /* $Header: EAMDBGJB.pls 120.1 2005/06/30 01:56:40 pkathoti noship $ */
3: /* Copied from pa_DEBUG */
4:
5: -- Initialize PROCEDURE
474: THEN
475: -- Print Function Name
476: IF (p_msg_options = 'PLAIN')
477: THEN
478: eam_debug.write_file(p_write_file, g_space ||
479: l_function || ': ' ||p_message, p_write_mode);
480:
481: ELSIF (p_msg_options = 'TIME')
482: THEN
479: l_function || ': ' ||p_message, p_write_mode);
480:
481: ELSIF (p_msg_options = 'TIME')
482: THEN
483: eam_debug.write_file(p_write_file,
484: to_char(sysdate,'HH24:MI:SS') || g_space ||
485: l_function || ': ' ||p_message, p_write_mode);
486: ELSE
487: -- Treat as DATETIME, including illegal values.
484: to_char(sysdate,'HH24:MI:SS') || g_space ||
485: l_function || ': ' ||p_message, p_write_mode);
486: ELSE
487: -- Treat as DATETIME, including illegal values.
488: eam_debug.write_file(p_write_file,
489: to_char(sysdate,'YYYY/MM/DD HH24:MI:SS') || g_space ||
490: l_function || ': ' ||p_message, p_write_mode);
491: END IF;
492:
493: ELSE
494: -- Do Not Print Function Name
495: IF (p_msg_options = 'PLAIN')
496: THEN
497: eam_debug.write_file(p_write_file, g_space ||p_message, p_write_mode);
498:
499: ELSIF (p_msg_options = 'TIME')
500: THEN
501: eam_debug.write_file(p_write_file,
497: eam_debug.write_file(p_write_file, g_space ||p_message, p_write_mode);
498:
499: ELSIF (p_msg_options = 'TIME')
500: THEN
501: eam_debug.write_file(p_write_file,
502: to_char(sysdate,'HH24:MI:SS') || g_space ||p_message, p_write_mode);
503: ELSE
504: -- Treat as DATETIME, including illegal values.
505: eam_debug.write_file(p_write_file,
501: eam_debug.write_file(p_write_file,
502: to_char(sysdate,'HH24:MI:SS') || g_space ||p_message, p_write_mode);
503: ELSE
504: -- Treat as DATETIME, including illegal values.
505: eam_debug.write_file(p_write_file,
506: to_char(sysdate,'YYYY/MM/DD HH24:MI:SS') || g_space ||p_message, p_write_mode);
507: END IF;
508: END IF;
509:
529: -- set_err_stack procedure by nesting subroutine messages
530: -- within the overall program flow.
531: --
532: --
533: --Called subprograms: eam_debug.init_err_stack
534: -- eam_debug.set_process
535: -- eam_debug.set_err_stack
536: --
537: --History:
530: -- within the overall program flow.
531: --
532: --
533: --Called subprograms: eam_debug.init_err_stack
534: -- eam_debug.set_process
535: -- eam_debug.set_err_stack
536: --
537: --History:
538: -- 29-NOV-00 jwhite Cloned
531: --
532: --
533: --Called subprograms: eam_debug.init_err_stack
534: -- eam_debug.set_process
535: -- eam_debug.set_err_stack
536: --
537: --History:
538: -- 29-NOV-00 jwhite Cloned
539: --
551: G_Space := G_Space || ' ';
552:
553: IF ( G_Function_Counter = 1)
554: THEN
555: eam_debug.init_err_stack(p_function);
556: eam_debug.set_process (p_process, p_write_file, p_debug_mode);
557: ELSE
558: eam_debug.set_err_stack(p_function);
559: END IF;
552:
553: IF ( G_Function_Counter = 1)
554: THEN
555: eam_debug.init_err_stack(p_function);
556: eam_debug.set_process (p_process, p_write_file, p_debug_mode);
557: ELSE
558: eam_debug.set_err_stack(p_function);
559: END IF;
560:
554: THEN
555: eam_debug.init_err_stack(p_function);
556: eam_debug.set_process (p_process, p_write_file, p_debug_mode);
557: ELSE
558: eam_debug.set_err_stack(p_function);
559: END IF;
560:
561: END Set_Curr_Function;
562:
567: -- or function name from the error stack. This
568: -- procedure also adjusts the global for
569: -- indentation, accordingly.
570: --
571: --Called subprograms: eam_debug.reset_err_stack
572: --
573: --History:
574: -- 29-NOV-00 jwhite Cloned
575: --
580:
581: G_Function_Stack.delete(G_Function_Counter);
582: G_Function_Counter := G_Function_Counter -1;
583: G_Space := substr(G_Space,1,length(G_Space)-2);
584: eam_debug.reset_err_stack;
585:
586: END Reset_Curr_Function;
587:
588:
586: END Reset_Curr_Function;
587:
588:
589:
590: END eam_debug;