DBA Data[Home] [Help]

APPS.PN_DEBUG dependencies on PN_DEBUG

Line 1: PACKAGE BODY PN_DEBUG AS

1: PACKAGE BODY PN_DEBUG AS
2: /* $Header: PNDEBUKB.pls 120.2 2011/01/28 10:25:33 kmaddi noship $ */
3: -- Initialize PROCEDURE
4:
5: PROCEDURE initialize IS

Line 350: -- This procedure is deprecated. Please use PN_DEBUG.WRITE.

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

Line 497: --Called subprograms: PN_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: PN_DEBUG.write_file
498: --
499:
500: PROCEDURE Log_Message( p_message IN VARCHAR2
501: , p_write_mode IN NUMBER DEFAULT 0

Line 522: PN_DEBUG.write_file(p_write_file, g_space ||

518: THEN
519: -- Print Function Name
520: IF (p_msg_options = 'PLAIN')
521: THEN
522: PN_DEBUG.write_file(p_write_file, g_space ||
523: l_function || ': ' ||p_message, p_write_mode);
524:
525: ELSIF (p_msg_options = 'TIME')
526: THEN

Line 527: PN_DEBUG.write_file(p_write_file,

523: l_function || ': ' ||p_message, p_write_mode);
524:
525: ELSIF (p_msg_options = 'TIME')
526: THEN
527: PN_DEBUG.write_file(p_write_file,
528: TO_CHAR(SYSDATE,'HH24:MI:SS') || g_space ||
529: l_function || ': ' ||p_message, p_write_mode);
530: ELSE
531: -- Treat as DATETIME, including illegal values.

Line 532: PN_DEBUG.write_file(p_write_file,

528: TO_CHAR(SYSDATE,'HH24:MI:SS') || g_space ||
529: l_function || ': ' ||p_message, p_write_mode);
530: ELSE
531: -- Treat as DATETIME, including illegal values.
532: PN_DEBUG.write_file(p_write_file,
533: TO_CHAR(SYSDATE,'YYYY/MM/DD HH24:MI:SS') || g_space ||
534: l_function || ': ' ||p_message, p_write_mode);
535: END IF;
536:

Line 541: PN_DEBUG.write_file(p_write_file, g_space ||p_message, p_write_mode);

537: ELSE
538: -- Do Not Print Function Name
539: IF (p_msg_options = 'PLAIN')
540: THEN
541: PN_DEBUG.write_file(p_write_file, g_space ||p_message, p_write_mode);
542:
543: ELSIF (p_msg_options = 'TIME')
544: THEN
545: PN_DEBUG.write_file(p_write_file,

Line 545: PN_DEBUG.write_file(p_write_file,

541: PN_DEBUG.write_file(p_write_file, g_space ||p_message, p_write_mode);
542:
543: ELSIF (p_msg_options = 'TIME')
544: THEN
545: PN_DEBUG.write_file(p_write_file,
546: TO_CHAR(SYSDATE,'HH24:MI:SS') || g_space ||p_message, p_write_mode);
547: ELSE
548: -- Treat as DATETIME, including illegal values.
549: PN_DEBUG.write_file(p_write_file,

Line 549: PN_DEBUG.write_file(p_write_file,

545: PN_DEBUG.write_file(p_write_file,
546: TO_CHAR(SYSDATE,'HH24:MI:SS') || g_space ||p_message, p_write_mode);
547: ELSE
548: -- Treat as DATETIME, including illegal values.
549: PN_DEBUG.write_file(p_write_file,
550: TO_CHAR(SYSDATE,'YYYY/MM/DD HH24:MI:SS') || g_space ||p_message, p_write_mode);
551: END IF;
552: END IF;
553:

Line 577: --Called subprograms: PN_DEBUG.init_err_stack

573: -- set_err_stack procedure by nesting subroutine messages
574: -- within the overall program flow.
575: --
576: --
577: --Called subprograms: PN_DEBUG.init_err_stack
578: -- PN_DEBUG.set_process
579: -- PN_DEBUG.set_err_stack
580: --
581: --

Line 578: -- PN_DEBUG.set_process

574: -- within the overall program flow.
575: --
576: --
577: --Called subprograms: PN_DEBUG.init_err_stack
578: -- PN_DEBUG.set_process
579: -- PN_DEBUG.set_err_stack
580: --
581: --
582:

Line 579: -- PN_DEBUG.set_err_stack

575: --
576: --
577: --Called subprograms: PN_DEBUG.init_err_stack
578: -- PN_DEBUG.set_process
579: -- PN_DEBUG.set_err_stack
580: --
581: --
582:
583: PROCEDURE Set_Curr_Function(p_function IN VARCHAR2

Line 597: PN_DEBUG.init_err_stack(p_function);

593: G_Space := G_Space || ' ';
594:
595: IF ( G_Function_Counter = 1)
596: THEN
597: PN_DEBUG.init_err_stack(p_function);
598: PN_DEBUG.set_process (p_process, p_write_file, p_debug_mode);
599: ELSE
600: PN_DEBUG.set_err_stack(p_function);
601: END IF;

Line 598: PN_DEBUG.set_process (p_process, p_write_file, p_debug_mode);

594:
595: IF ( G_Function_Counter = 1)
596: THEN
597: PN_DEBUG.init_err_stack(p_function);
598: PN_DEBUG.set_process (p_process, p_write_file, p_debug_mode);
599: ELSE
600: PN_DEBUG.set_err_stack(p_function);
601: END IF;
602:

Line 600: PN_DEBUG.set_err_stack(p_function);

596: THEN
597: PN_DEBUG.init_err_stack(p_function);
598: PN_DEBUG.set_process (p_process, p_write_file, p_debug_mode);
599: ELSE
600: PN_DEBUG.set_err_stack(p_function);
601: END IF;
602:
603: END Set_Curr_Function;
604:

Line 613: --Called subprograms: PN_DEBUG.reset_err_stack

609: -- or function name from the error stack. This
610: -- procedure also adjusts the global for
611: -- indentation, accordingly.
612: --
613: --Called subprograms: PN_DEBUG.reset_err_stack
614: --
615: --
616:
617: PROCEDURE Reset_Curr_Function

Line 624: PN_DEBUG.reset_err_stack;

620:
621: G_Function_Stack.DELETE(G_Function_Counter);
622: G_Function_Counter := G_Function_Counter -1;
623: G_Space := SUBSTR(G_Space,1,LENGTH(G_Space)-2);
624: PN_DEBUG.reset_err_stack;
625:
626: END Reset_Curr_Function;
627:
628: -- =======================================================================

Line 654: PN_DEBUG.G_Stage := 'Entering procedure TrackPath().';

650: l_Value VARCHAR2(2000) := '->' || P_Value;
651:
652: BEGIN
653:
654: PN_DEBUG.G_Stage := 'Entering procedure TrackPath().';
655:
656: IF P_Function = 'ADD' THEN
657:
658: PN_DEBUG.G_Stage := 'TrackPath(): Adding to PN_DEBUG.G_Path.';

Line 658: PN_DEBUG.G_Stage := 'TrackPath(): Adding to PN_DEBUG.G_Path.';

654: PN_DEBUG.G_Stage := 'Entering procedure TrackPath().';
655:
656: IF P_Function = 'ADD' THEN
657:
658: PN_DEBUG.G_Stage := 'TrackPath(): Adding to PN_DEBUG.G_Path.';
659: PN_DEBUG.G_Path := PN_DEBUG.G_Path || l_Value;
660:
661: ELSIF P_Function = 'STRIP' THEN
662:

Line 659: PN_DEBUG.G_Path := PN_DEBUG.G_Path || l_Value;

655:
656: IF P_Function = 'ADD' THEN
657:
658: PN_DEBUG.G_Stage := 'TrackPath(): Adding to PN_DEBUG.G_Path.';
659: PN_DEBUG.G_Path := PN_DEBUG.G_Path || l_Value;
660:
661: ELSIF P_Function = 'STRIP' THEN
662:
663: PN_DEBUG.G_Stage := 'TrackPath(): Stripping from PN_DEBUG.G_Path.';

Line 663: PN_DEBUG.G_Stage := 'TrackPath(): Stripping from PN_DEBUG.G_Path.';

659: PN_DEBUG.G_Path := PN_DEBUG.G_Path || l_Value;
660:
661: ELSIF P_Function = 'STRIP' THEN
662:
663: PN_DEBUG.G_Stage := 'TrackPath(): Stripping from PN_DEBUG.G_Path.';
664: PN_DEBUG.G_Path := SUBSTR(PN_DEBUG.G_Path,1,INSTR(PN_DEBUG.G_Path,l_Value) - 1);
665:
666: END IF;
667:

Line 664: PN_DEBUG.G_Path := SUBSTR(PN_DEBUG.G_Path,1,INSTR(PN_DEBUG.G_Path,l_Value) - 1);

660:
661: ELSIF P_Function = 'STRIP' THEN
662:
663: PN_DEBUG.G_Stage := 'TrackPath(): Stripping from PN_DEBUG.G_Path.';
664: PN_DEBUG.G_Path := SUBSTR(PN_DEBUG.G_Path,1,INSTR(PN_DEBUG.G_Path,l_Value) - 1);
665:
666: END IF;
667:
668: PN_DEBUG.G_Stage := 'Leaving procedure TrackPath().';

Line 668: PN_DEBUG.G_Stage := 'Leaving procedure TrackPath().';

664: PN_DEBUG.G_Path := SUBSTR(PN_DEBUG.G_Path,1,INSTR(PN_DEBUG.G_Path,l_Value) - 1);
665:
666: END IF;
667:
668: PN_DEBUG.G_Stage := 'Leaving procedure TrackPath().';
669:
670: EXCEPTION
671: WHEN OTHERS THEN
672: RAISE;

Line 676: END PN_DEBUG;

672: RAISE;
673:
674: END TrackPath;
675:
676: END PN_DEBUG;