DBA Data[Home] [Help]

APPS.PA_DEBUG dependencies on PA_DEBUG

Line 1: PACKAGE BODY Pa_Debug AS

1: PACKAGE BODY Pa_Debug AS
2: /* $Header: PADEBUGB.pls 120.5 2006/04/28 03:41:17 cmishra noship $ */
3:
4: -- Initialize PROCEDURE
5:

Line 351: -- This procedure is deprecated. Please use PA_DEBUG.WRITE.

347: Write_File( G_WriteFile, x_Msg, x_Write_Mode ) ;
348: END Write_File;
349: ---------------------------------------------------------------------
350:
351: -- This procedure is deprecated. Please use PA_DEBUG.WRITE.
352: PROCEDURE Write_Log ( x_Module IN VARCHAR2,
353: x_Msg IN VARCHAR2,
354: x_Log_Level IN NUMBER DEFAULT 6 )
355: IS

Line 497: --Called subprograms: pa_debug.write_file

493: --Description: This procedure writes sysdate date and time, the
494: -- current procedure name and the passed message
495: -- to the log file.
496: --
497: --Called subprograms: pa_debug.write_file
498: --
499: --History:
500: -- 29-NOV-00 jwhite Cloned
501: --

Line 514: -- PLEASE NOTE: If you place a pa_debug.log_message with either

510: -- function name,:, p_message.
511: -- 3. DATETIME: prints YYYY/MM/DD HH24:MI:SS,
512: -- space, function name,:, p_message.
513: --
514: -- PLEASE NOTE: If you place a pa_debug.log_message with either
515: -- the TIME or DATETIME p_msg_option just
516: -- before a SQL%ROWCOUNT,
517: -- the SQL%ROWCOUNT will return 1.
518: --

Line 545: Pa_Debug.write_file(p_write_file, g_space ||

541: THEN
542: -- Print Function Name
543: IF (p_msg_options = 'PLAIN')
544: THEN
545: Pa_Debug.write_file(p_write_file, g_space ||
546: l_function || ': ' ||p_message, p_write_mode);
547:
548: ELSIF (p_msg_options = 'TIME')
549: THEN

Line 550: Pa_Debug.write_file(p_write_file,

546: l_function || ': ' ||p_message, p_write_mode);
547:
548: ELSIF (p_msg_options = 'TIME')
549: THEN
550: Pa_Debug.write_file(p_write_file,
551: TO_CHAR(SYSDATE,'HH24:MI:SS') || g_space ||
552: l_function || ': ' ||p_message, p_write_mode);
553: ELSE
554: -- Treat as DATETIME, including illegal values.

Line 555: Pa_Debug.write_file(p_write_file,

551: TO_CHAR(SYSDATE,'HH24:MI:SS') || g_space ||
552: l_function || ': ' ||p_message, p_write_mode);
553: ELSE
554: -- Treat as DATETIME, including illegal values.
555: Pa_Debug.write_file(p_write_file,
556: TO_CHAR(SYSDATE,'YYYY/MM/DD HH24:MI:SS') || g_space ||
557: l_function || ': ' ||p_message, p_write_mode);
558: END IF;
559:

Line 564: Pa_Debug.write_file(p_write_file, g_space ||p_message, p_write_mode);

560: ELSE
561: -- Do Not Print Function Name
562: IF (p_msg_options = 'PLAIN')
563: THEN
564: Pa_Debug.write_file(p_write_file, g_space ||p_message, p_write_mode);
565:
566: ELSIF (p_msg_options = 'TIME')
567: THEN
568: Pa_Debug.write_file(p_write_file,

Line 568: Pa_Debug.write_file(p_write_file,

564: Pa_Debug.write_file(p_write_file, g_space ||p_message, p_write_mode);
565:
566: ELSIF (p_msg_options = 'TIME')
567: THEN
568: Pa_Debug.write_file(p_write_file,
569: TO_CHAR(SYSDATE,'HH24:MI:SS') || g_space ||p_message, p_write_mode);
570: ELSE
571: -- Treat as DATETIME, including illegal values.
572: Pa_Debug.write_file(p_write_file,

Line 572: Pa_Debug.write_file(p_write_file,

568: Pa_Debug.write_file(p_write_file,
569: TO_CHAR(SYSDATE,'HH24:MI:SS') || g_space ||p_message, p_write_mode);
570: ELSE
571: -- Treat as DATETIME, including illegal values.
572: Pa_Debug.write_file(p_write_file,
573: TO_CHAR(SYSDATE,'YYYY/MM/DD HH24:MI:SS') || g_space ||p_message, p_write_mode);
574: END IF;
575: END IF;
576:

Line 600: --Called subprograms: pa_debug.init_err_stack

596: -- set_err_stack procedure by nesting subroutine messages
597: -- within the overall program flow.
598: --
599: --
600: --Called subprograms: pa_debug.init_err_stack
601: -- pa_debug.set_process
602: -- pa_debug.set_err_stack
603: --
604: --History:

Line 601: -- pa_debug.set_process

597: -- within the overall program flow.
598: --
599: --
600: --Called subprograms: pa_debug.init_err_stack
601: -- pa_debug.set_process
602: -- pa_debug.set_err_stack
603: --
604: --History:
605: -- 29-NOV-00 jwhite Cloned

Line 602: -- pa_debug.set_err_stack

598: --
599: --
600: --Called subprograms: pa_debug.init_err_stack
601: -- pa_debug.set_process
602: -- pa_debug.set_err_stack
603: --
604: --History:
605: -- 29-NOV-00 jwhite Cloned
606: --

Line 622: Pa_Debug.init_err_stack(p_function);

618: G_Space := G_Space || ' ';
619:
620: IF ( G_Function_Counter = 1)
621: THEN
622: Pa_Debug.init_err_stack(p_function);
623: Pa_Debug.set_process (p_process, p_write_file, p_debug_mode);
624: ELSE
625: Pa_Debug.set_err_stack(p_function);
626: END IF;

Line 623: Pa_Debug.set_process (p_process, p_write_file, p_debug_mode);

619:
620: IF ( G_Function_Counter = 1)
621: THEN
622: Pa_Debug.init_err_stack(p_function);
623: Pa_Debug.set_process (p_process, p_write_file, p_debug_mode);
624: ELSE
625: Pa_Debug.set_err_stack(p_function);
626: END IF;
627:

Line 625: Pa_Debug.set_err_stack(p_function);

621: THEN
622: Pa_Debug.init_err_stack(p_function);
623: Pa_Debug.set_process (p_process, p_write_file, p_debug_mode);
624: ELSE
625: Pa_Debug.set_err_stack(p_function);
626: END IF;
627:
628: END Set_Curr_Function;
629:

Line 638: --Called subprograms: pa_debug.reset_err_stack

634: -- or function name from the error stack. This
635: -- procedure also adjusts the global for
636: -- indentation, accordingly.
637: --
638: --Called subprograms: pa_debug.reset_err_stack
639: --
640: --History:
641: -- 29-NOV-00 jwhite Cloned
642: --

Line 651: Pa_Debug.reset_err_stack;

647:
648: G_Function_Stack.DELETE(G_Function_Counter);
649: G_Function_Counter := G_Function_Counter -1;
650: G_Space := SUBSTR(G_Space,1,LENGTH(G_Space)-2);
651: Pa_Debug.reset_err_stack;
652:
653: END Reset_Curr_Function;
654:
655: -- =======================================================================

Line 681: Pa_Debug.G_Stage := 'Entering procedure TrackPath().';

677: l_Value VARCHAR2(2000) := '->' || P_Value;
678:
679: BEGIN
680:
681: Pa_Debug.G_Stage := 'Entering procedure TrackPath().';
682:
683: IF P_Function = 'ADD' THEN
684:
685: Pa_Debug.G_Stage := 'TrackPath(): Adding to Pa_Debug.G_Path.';

Line 685: Pa_Debug.G_Stage := 'TrackPath(): Adding to Pa_Debug.G_Path.';

681: Pa_Debug.G_Stage := 'Entering procedure TrackPath().';
682:
683: IF P_Function = 'ADD' THEN
684:
685: Pa_Debug.G_Stage := 'TrackPath(): Adding to Pa_Debug.G_Path.';
686: Pa_Debug.G_Path := Pa_Debug.G_Path || l_Value;
687:
688: ELSIF P_Function = 'STRIP' THEN
689:

Line 686: Pa_Debug.G_Path := Pa_Debug.G_Path || l_Value;

682:
683: IF P_Function = 'ADD' THEN
684:
685: Pa_Debug.G_Stage := 'TrackPath(): Adding to Pa_Debug.G_Path.';
686: Pa_Debug.G_Path := Pa_Debug.G_Path || l_Value;
687:
688: ELSIF P_Function = 'STRIP' THEN
689:
690: Pa_Debug.G_Stage := 'TrackPath(): Stripping from Pa_Debug.G_Path.';

Line 690: Pa_Debug.G_Stage := 'TrackPath(): Stripping from Pa_Debug.G_Path.';

686: Pa_Debug.G_Path := Pa_Debug.G_Path || l_Value;
687:
688: ELSIF P_Function = 'STRIP' THEN
689:
690: Pa_Debug.G_Stage := 'TrackPath(): Stripping from Pa_Debug.G_Path.';
691: Pa_Debug.G_Path := SUBSTR(Pa_Debug.G_Path,1,INSTR(Pa_Debug.G_Path,l_Value) - 1);
692:
693: END IF;
694:

Line 691: Pa_Debug.G_Path := SUBSTR(Pa_Debug.G_Path,1,INSTR(Pa_Debug.G_Path,l_Value) - 1);

687:
688: ELSIF P_Function = 'STRIP' THEN
689:
690: Pa_Debug.G_Stage := 'TrackPath(): Stripping from Pa_Debug.G_Path.';
691: Pa_Debug.G_Path := SUBSTR(Pa_Debug.G_Path,1,INSTR(Pa_Debug.G_Path,l_Value) - 1);
692:
693: END IF;
694:
695: Pa_Debug.G_Stage := 'Leaving procedure TrackPath().';

Line 695: Pa_Debug.G_Stage := 'Leaving procedure TrackPath().';

691: Pa_Debug.G_Path := SUBSTR(Pa_Debug.G_Path,1,INSTR(Pa_Debug.G_Path,l_Value) - 1);
692:
693: END IF;
694:
695: Pa_Debug.G_Stage := 'Leaving procedure TrackPath().';
696:
697: EXCEPTION
698: WHEN OTHERS THEN
699: RAISE;

Line 703: END Pa_Debug;

699: RAISE;
700:
701: END TrackPath;
702:
703: END Pa_Debug;