PACKAGE: APPS.QP_DEBUG_UTIL

Source

1 PACKAGE QP_DEBUG_UTIL AUTHID CURRENT_USER AS
2 /* $Header: QPXDUTLS.pls 120.3 2010/11/11 10:31:17 dnema 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    G_CURR_PRICE_EVENT VARCHAR2(30) := null;
15 
16 --  Index used by the Get function to keep track of the last fetched
17 --  Debug.
18 
19 TYPE t_TimeType IS RECORD(
20  Marker    VARCHAR2(200),
21  Description VARCHAR2(2000),
22  Time        NUMBER,
23  CallCount    NUMBER,
24  TotalTime    NUMBER,
25  ParentId     NUMBER,
26  IsRunning      BOOLEAN,
27  Deleted     BOOLEAN,
28  putLine  BOOLEAN
29  );
30 
31  --Summary Time Log Changes (Bug# 8933551)
32 TYPE t_Summery_Log IS RECORD(
33  logMesg VARCHAR2(2000),
34  paddingTop NUMBER,
35  paddingLeft NUMBER,
36  paddingBottom NUMBER
37  );
38 
39  TYPE t_TimeStack IS TABLE OF t_TimeType
40  INDEX BY BINARY_INTEGER;
41 
42  TYPE t_CallStack IS TABLE OF VARCHAR2(32767)
43  INDEX BY BINARY_INTEGER;
44 
45   --Summary Time Log Changes (Bug# 8933551)
46  TYPE t_SummarLogStack IS TABLE OF t_Summery_Log
47  INDEX BY BINARY_INTEGER;
48 
49 TYPE t_comm_attributes IS TABLE OF VARCHAR2(5000) INDEX BY VARCHAR2(500);
50 
51    g_TimeStack     t_TimeStack;
52    g_CallStack    t_CallStack;
53    --Summary Time Log Changes
54    g_summaryLog t_SummarLogStack;
55    g_comm_attribs t_comm_attributes;
56 
57 TYPE query_list is table of VARCHAR2(32767) index by BINARY_INTEGER;
58 
59 PROCEDURE write_output(x_Line IN VARCHAR2);
60 PROCEDURE  tstart(x_Marker IN VARCHAR2, x_Desc IN VARCHAR2 := NULL,
61    x_Accumalation IN BOOLEAN := true, x_PutLine IN BOOLEAN := false);
62 PROCEDURE  tstop(x_Marker IN VARCHAR2);
63 PROCEDURE  tdump;
64 PROCEDURE tflush;
65 Function ISQPDebugOn Return Boolean;
66 FUNCTION IsTimeLogDebugOn Return Boolean;
67 Procedure print_table_data_csv (p_table_name IN VARCHAR2,
68                                 p_file_id IN VARCHAR2,
69                                 p_where_clause IN VARCHAR2 := NULL,
70                                 p_append IN BOOLEAN := FALSE,
71   			        p_prefix_event IN BOOLEAN := TRUE);
72 Procedure print_query_data_csv (p_query IN VARCHAR2,
73                                 p_file_id IN VARCHAR2,
74 				 p_append IN BOOLEAN := FALSE,
75 				  p_prefix_event IN BOOLEAN := TRUE);
76 Procedure print_cursor_data_csv (p_cursor_id IN number, p_file_id IN VARCHAR2);
77 procedure print_querylist_data_csv (
78    p_query_list in query_list,
79    p_file_id IN VARCHAR2);
80 procedure print_support_csv(pos varchar2);
81 PROCEDURE print_development_csv;
82 PROCEDURE setCurrentEvent(currEvent varchar2);
83 
84 -- Summary Time Log changes (Bug# 8933551)
85 PROCEDURE addSummaryTimeLog(logMessage varchar2,
86                             paddingTop NUMBER := 0,
87 			    paddingLeft NUMBER := 0,
88 			    paddingBottom NUMBER := 0);
89 PROCEDURE dumpSummaryTimeLog;
90 PROCEDURE tstop(x_Marker IN VARCHAR2, x_Total_Time OUT NOCOPY NUMBER);
91 PROCEDURE setAttribute(pKey varchar2, pValue varchar2);
92 FUNCTION getAttribute(pKey varchar2) RETURN varchar2;
93 
94 END QP_DEBUG_UTIL;