PACKAGE: APPS.QP_DEBUG_UTIL

Source

1 PACKAGE QP_DEBUG_UTIL AS
2 /* $Header: QPXDUTLS.pls 120.0.12010000.1 2008/10/16 11:42:07 jputta noship $ */
3 
4 --  Constants used as tokens for unexpected error Debugs.
5 
6    G_PKG_NAME  CONSTANT    VARCHAR2(15):=  'QP_DEBUG_UTIL';
7    G_DEBUG VARCHAR2(1)  := OE_DEBUG_PUB.G_DEBUG;
8 
9 --  Global variable holding the desired debug_level.
10 
11    G_Debug_Level   NUMBER :=  FND_PROFILE.VALUE('ONT_DEBUG_LEVEL');
12    G_qp_debug        VARCHAR2(1):=  FND_PROFILE.VALUE('QP_DEBUG');
13 
14 --  Index used by the Get function to keep track of the last fetched
15 --  Debug.
16 
17 TYPE t_TimeType IS RECORD(
18  Marker    VARCHAR2(200),
19  Description VARCHAR2(2000),
20  Time        NUMBER,
21  CallCount    NUMBER,
22  TotalTime    NUMBER,
23  ParentId     NUMBER,
24  IsRunning      BOOLEAN,
25  Deleted     BOOLEAN,
26  putLine  BOOLEAN
27  );
28  TYPE t_TimeStack IS TABLE OF t_TimeType
29  INDEX BY BINARY_INTEGER;
30 
31  TYPE t_CallStack IS TABLE OF VARCHAR2(32767)
32  INDEX BY BINARY_INTEGER;
33    g_TimeStack     t_TimeStack;
34    g_CallStack    t_CallStack;
35 
36 PROCEDURE write_output(x_Line IN VARCHAR2);
37 PROCEDURE  tstart(x_Marker IN VARCHAR2, x_Desc IN VARCHAR2 := NULL,
38    x_Accumalation IN BOOLEAN := true, x_PutLine IN BOOLEAN := false);
39 PROCEDURE  tstop(x_Marker IN VARCHAR2);
40 PROCEDURE  tdump;
41 PROCEDURE tflush;
42 Function ISQPDebugOn Return Boolean;
43 
44 END QP_DEBUG_UTIL;