[Home] [Help]
PACKAGE BODY: APPS.IEX_TERR_WINNERS_PUB
Source
1 PACKAGE BODY IEX_TERR_WINNERS_PUB AS
2 /* $Header: iexttwpb.pls 120.1 2005/12/06 07:43:18 lkkumar noship $ */
3
4 ---------------------------------------------------------------------------
5 -- Start of Comments
6 ---------------------------------------------------------------------------
7 -- PACKAGE NAME: IEX_TERR_WINNERS_PUB
8 -- ---------------------------------------------------------------------
9 -- PURPOSE
10 --
11 -- Public Package for the concurrent program
12 -- "Generate Access Records".
13 --
14 -- Procedures:
15 -- (see below for specification)
16 --
17 -- NOTES
18 --
19 -- HISTORY
20 -- 04/14/2002 AXAVIER Francis Xavier Created.
21 --
22 ---------------------------------------------------------------------------
23
24
25 /*-------------------------------------------------------------------------+
26 | PRIVATE CONSTANTS
27 +-------------------------------------------------------------------------*/
28 G_PKG_NAME CONSTANT VARCHAR2(30):='IEX_TERR_WINNERS_PUB';
29 G_FILE_NAME CONSTANT VARCHAR2(12):='asxttwpb.pls';
30
31
32 /*-------------------------------------------------------------------------+
33 | PRIVATE DATATYPES
34 +-------------------------------------------------------------------------*/
35
36 /*-------------------------------------------------------------------------*
37 | PRIVATE VARIABLES
38 *-------------------------------------------------------------------------*/
39
40 /*-------------------------------------------------------------------------*
41 | PRIVATE ROUTINES SPECIFICATION
42 *-------------------------------------------------------------------------*/
43
44 /*------------------------------------------------------------------------*
45 | PUBLIC ROUTINES
46 *------------------------------------------------------------------------*/
47
48 /*-------------------------------------------------------------------------*
49 | PUBLIC ROUTINE
50 | Print_Debug
51 |
52 | PURPOSE
53 | Logs debug messages
54 |
55 | NOTES
56 |
57 | HISTORY
58 | 04/14/02 AXAVIER Created
59 *-------------------------------------------------------------------------*/
60
61
62 PROCEDURE Print_Debug( msg in VARCHAR2) IS
63 l_length NUMBER;
64 l_start NUMBER := 1;
65 l_substring VARCHAR2(255);
66 l_base VARCHAR2(12);
67 l_date_str VARCHAR2(255);
68
69 BEGIN
70 IF g_debug_flag = 'Y'
71 THEN
72 select to_char( sysdate, 'DD-Mon-YYYY HH24:MI:SS') into l_date_str from dual;
73 FND_FILE.PUT_LINE(FND_FILE.LOG,'---' || l_date_str || '--------------------------');
74
75 -- Crop the message to length 255 chars
76 l_length := length(msg);
77 WHILE l_length > 255 LOOP
78 l_substring := substr(msg, l_start, 255);
79 FND_FILE.PUT_LINE(FND_FILE.LOG, l_substring);
80 --Bug4221324. Fix by LKKUMAR on 06-Dec-2005. Start.
81 IEX_DEBUG_PUB.logmessage(l_substring);
82 --Bug4221324. Fix by LKKUMAR on 06-Dec-2005. End.
83 -- dbms_output.put_line(l_substring);
84 l_start := l_start + 255;
85 l_length := l_length - 255;
86 END LOOP;
87
88 l_substring := substr(msg, l_start);
89 FND_FILE.PUT_LINE(FND_FILE.LOG,l_substring);
90 --Bug4221324. Fix by LKKUMAR on 06-Dec-2005. Start.
91 IEX_DEBUG_PUB.logmessage(l_substring);
92 --Bug4221324. Fix by LKKUMAR on 06-Dec-2005. End.
93 -- dbms_output.put_line(l_substring);
94 END IF;
95 EXCEPTION
96 WHEN others THEN
97 FND_FILE.PUT_LINE(FND_FILE.LOG, 'Exception: others in Print_Debug');
98 FND_FILE.PUT_LINE(FND_FILE.LOG,
99 'SQLCODE ' || to_char(SQLCODE) ||
100 ' SQLERRM ' || substr(SQLERRM, 1, 100));
101 END Print_Debug;
102
103 PROCEDURE Analyze_Table(
104 schema IN VARCHAR2,
105 table_name IN VARCHAR2,
106 p_percent IN NUMBER) IS
107
108 BEGIN
109
110 DBMS_STATS.gather_table_stats(SCHEMA, TABLE_NAME, cascade=>TRUE, degree=>8, estimate_percent=>P_PERCENT);
111
112 EXCEPTION
113 WHEN others THEN
114 IEX_TERR_WINNERS_PUB.Print_Debug('Exception: others in Analyze_Table');
115 IEX_TERR_WINNERS_PUB.Print_Debug('SQLCODE: ' || to_char(SQLCODE) ||
116 ' SQLERRM: ' || SQLERRM);
117 RAISE;
118 END Analyze_Table;
119
120
121
122
123 END IEX_TERR_WINNERS_PUB;