[Home] [Help]
PACKAGE BODY: APPS.DOM_DOC_TEXT_PVT
Source
1 PACKAGE BODY DOM_DOC_TEXT_PVT AS
2 /* $Header: DOMVIDXB.pls 120.3 2011/03/30 06:25:58 pnagasur ship $ */
3
4 G_PKG_NAME CONSTANT VARCHAR2(30) := 'DOM_TEXT_PVT';
5
6 -- -----------------------------------------------------------------------------
7 -- Private Globals
8 -- -----------------------------------------------------------------------------
9
10 g_Ctx_Schema CONSTANT VARCHAR2(30) := 'CTXSYS';
11 --g_Apps_Schema VARCHAR2(30);
12 g_Prod_Schema VARCHAR2(30);
13 g_Index_Owner VARCHAR2(30);
14 g_Pref_Owner VARCHAR2(30);
15
16 g_installed BOOLEAN;
17 g_inst_status VARCHAR2(1);
18 g_industry VARCHAR2(1);
19
20 --g_Debug VARCHAR2(1) := NVL(fnd_profile.value('AFLOG_ENABLED'), 'N');
21 --g_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'), 0);
22
23 -- Log mode
24 g_Log_Mode VARCHAR2(30) := NULL;
25 g_Conc_Req_flag BOOLEAN := TRUE;
26 g_Log_Sqlplus_Flag BOOLEAN := FALSE;
27 g_Log_File_Flag BOOLEAN := TRUE;
28 g_Log_Dbdrv_Flag BOOLEAN := FALSE;
29
30 g_Msg_Text VARCHAR2(1000);
31
32 -- Log directory
33 g_Log_Dir v$parameter.value%TYPE;
34 g_Dump_Dir v$parameter.value%TYPE;
35
36 -- Log files for Sqlplus
37 g_Log_File VARCHAR2(30) := 'dom_doc_text_tl_srs.log';
38 g_Out_File VARCHAR2(30) := 'dom_doc_text_tl_srs.out';
39
40 -- -----------------------------------------------------------------------------
41 -- Log_Line
42 -- -----------------------------------------------------------------------------
43
44 PROCEDURE Log_Line ( p_Buffer IN VARCHAR2 )
45 IS
46 BEGIN
47 IF ( g_Log_File_Flag ) THEN
48 FOR l IN 0 .. ( FLOOR( (NVL(LENGTH(p_Buffer),0) - 1)/240 ) ) LOOP
49 FND_FILE.Put_Line (FND_FILE.Log, SUBSTRB(p_Buffer, l*240 + 1, 240));
50 END LOOP;
51 END IF;
52
53 IF ( g_Log_Sqlplus_Flag ) THEN
54 FOR l IN 0 .. ( FLOOR( (NVL(LENGTH(p_Buffer),0) - 1)/255 ) ) LOOP
55 --DBMS_OUTPUT.Put_Line( SUBSTR(p_Buffer, l*255 + 1, 255) );
56 NULL;
57 END LOOP;
58 END IF;
59
60 IF ( g_Log_Dbdrv_Flag ) THEN
61 --IF ( (INSTR(p_Buffer, 'Error:') + INSTR(p_Buffer, 'Warning:')) > 0 ) THEN
62 IF ( ( INSTR(p_Buffer, 'Error:') > 0 )
63 OR ( INSTR(p_Buffer, 'Warning:') > 0 )
64 OR ( INSTR(p_Buffer, 'Executing:') > 0 )
65 OR ( INSTR(p_Buffer, 'Done.') > 0 )
66 OR ( INSTR(p_Buffer, 'Upgrade:') > 0 ) )
67 THEN
68 g_Msg_Text := g_Msg_Text || SUBSTRB(p_Buffer, 1, 255) || FND_GLOBAL.Newline;
69 END IF;
70 END IF;
71
72 EXCEPTION
73
74 WHEN others THEN
75 NULL;
76
77 END Log_Line;
78
79 PROCEDURE Out_Line ( p_Buffer IN VARCHAR2 )
80 IS
81 BEGIN
82 IF ( g_Log_File_Flag ) THEN
83 FOR l IN 0 .. ( FLOOR( (NVL(LENGTH(p_Buffer),0) - 1)/240 ) ) LOOP
84 FND_FILE.Put_Line (FND_FILE.Log, SUBSTRB(p_Buffer, l*240 + 1, 240));
85 END LOOP;
86 END IF;
87
88 IF ( g_Log_Sqlplus_Flag ) THEN
89 FOR l IN 0 .. ( FLOOR( (NVL(LENGTH(p_Buffer),0) - 1)/255 ) ) LOOP
90 --DBMS_OUTPUT.Put_Line( SUBSTR(p_Buffer, l*255 + 1, 255) );
91 NULL;
92 END LOOP;
93 END IF;
94
95 IF ( g_Log_Dbdrv_Flag ) THEN
96 IF ( INSTR(p_Buffer, 'Completed ') > 0 ) THEN
97 g_Msg_Text := g_Msg_Text || SUBSTRB(p_Buffer, 1, 255) || FND_GLOBAL.Newline;
98 END IF;
99 END IF;
100 END Out_Line;
101
102 -- -----------------------------------------------------------------------------
103 -- set_Log_Mode
104 -- -----------------------------------------------------------------------------
105
106 FUNCTION set_Log_Mode ( p_Mode IN VARCHAR2 )
107 RETURN VARCHAR2
108 IS
109 l_api_name CONSTANT VARCHAR2(30) := 'set_Log_Mode';
110 BEGIN
111 g_Log_Mode := p_Mode;
112
113 g_Log_Sqlplus_Flag := ( INSTR(g_Log_Mode, 'SQLPLUS') > 0 );
114 g_Log_File_Flag := ( (INSTR(g_Log_Mode, 'FILE') + INSTR(g_Log_Mode, 'SRS')) > 0 );
115 g_Log_Dbdrv_Flag := ( INSTR(g_Log_Mode, 'DBDRV') > 0 );
116
117 g_Msg_Text := NULL;
118
119 -- Determine log directory
120
121 BEGIN
122 SELECT value INTO g_Dump_Dir
123 FROM v$parameter WHERE name = 'user_dump_dest';
124
125 SELECT TRANSLATE(LTRIM(value), ',', ' ') INTO g_Log_Dir
126 FROM v$parameter
127 WHERE name = 'utl_file_dir';
128
129 IF ( g_Log_Dir IS NOT NULL ) THEN
130 IF ( INSTR(g_Log_Dir, ' ') > 0 ) THEN
131 g_Log_Dir := SUBSTRB(g_Log_Dir, 1, INSTR(g_Log_Dir,' ')-1);
132 END IF;
133 END IF;
134
135 --EXCEPTION
136 -- WHEN others THEN
137 -- Log_Line ('Error determining CTX log directory: ' || SQLERRM);
138 END;
139
140 IF ( NVL(FND_GLOBAL.CONC_REQUEST_ID,-1) < 0 ) THEN
141 g_Conc_Req_flag := FALSE;
142 FND_FILE.Put_Names (g_Log_File, g_Out_File, g_Log_Dir);
143 Log_Line (l_api_name || ': standalone execution');
144 ELSE
145 Log_Line (l_api_name || ': concurrent request');
146 END IF;
147
148 Log_Line (l_api_name || ': log mode: ' || g_Log_Mode);
149 Log_Line (l_api_name || ': dump directory: ' || g_Dump_Dir);
150 Log_Line (l_api_name || ': CTX log directory: ' || g_Log_Dir);
151
152 RETURN (NULL);
153
154 END set_Log_Mode;
155
156 PROCEDURE set_Log_Mode ( p_Mode IN VARCHAR2 )
157 IS
158 l_output_name VARCHAR2(255);
159 BEGIN
160 l_output_name := set_Log_Mode (p_Mode);
161 END set_Log_Mode;
162
163 -- -----------------------------------------------------------------------------
164 -- Process_Index_Preferences
165 -- -----------------------------------------------------------------------------
166
167 PROCEDURE Process_Index_Preferences
168 (
169 p_Index_Name IN VARCHAR2
170 , x_return_status OUT NOCOPY VARCHAR2
171 )
172 IS
173 l_api_name CONSTANT VARCHAR2(30) := 'Process_Index_Preferences';
174 l_return_status VARCHAR2(1);
175
176 tspace_tbl_param VARCHAR2(256);
177 tspace_idx_param VARCHAR2(256);
178
179 Lang_Code VARCHAR2(4);
180 Lexer_Name VARCHAR2(30);
181
182 TYPE Lang_Code_List_type IS TABLE OF VARCHAR2(4);
183 --TYPE Lang_ISO_List_type IS TABLE OF VARCHAR2(2);
184
185 Lang_Code_List Lang_Code_List_type := Lang_Code_List_type
186 ( 'US', 'GB', 'NL', 'D', 'DK', 'S', 'N',
187 'F', 'I', 'E', 'ESA', 'EL',
188 'JA', 'KO', 'ZHS', 'ZHT' );
189
190 --Lang_ISO_List Lang_ISO_List_type :=
191 -- Lang_ISO_List_type ('EN', '', 'DE', 'SV', 'NO', 'FR', '', '');
192
193 BEGIN
194 --Null out entire method, as it is not referred anywhere,also not supporting Document Management in 12.2
195 x_return_status := G_STATUS_ERROR;
196
197
198 END Process_Index_Preferences;
199
200 -- -----------------------------------------------------------------------------
201 -- Process_Doc_Text_Index
202 -- -----------------------------------------------------------------------------
203
204 PROCEDURE Process_Doc_Text_Index
205 (
206 p_Index_Name IN VARCHAR2
207 , p_Action IN VARCHAR2
208 , x_return_status OUT NOCOPY CLOB
209 )
210 IS
211
212 BEGIN
213 --Null out entire method, as it is not referred anywhere,also not supporting Document Management in 12.2
214 x_return_status := G_STATUS_SUCCESS;
215
216
217 END Process_Doc_Text_Index;
218
219 -- -----------------------------------------------------------------------------
220 -- Build_Doc_Text_Index
221 -- -----------------------------------------------------------------------------
222
223 PROCEDURE Build_Doc_Text_Index
224 (
225 ERRBUF OUT NOCOPY VARCHAR2
226 , RETCODE OUT NOCOPY NUMBER
227 , p_Action IN VARCHAR2
228 )
229 IS
230
231 BEGIN
232
233 --Null out entire method, as it is not referred anywhere,also not supporting Document Management in 12.2
234
235 RETCODE := G_STATUS_SUCCESS;
236
237
238 END Build_Doc_Text_Index;
239
240
241 -- -----------------------------------------------------------------------------
242 -- get_Msg_Text
243 -- -----------------------------------------------------------------------------
244
245 FUNCTION get_Msg_Text
246 RETURN VARCHAR2
247 IS
248 BEGIN
249 RETURN (g_Msg_Text);
250 END get_Msg_Text;
251
252 -- *****************************************************************************
253 -- ** Package initialization block **
254 -- *****************************************************************************
255
256 BEGIN
257
258 -- Get DOM product schema name
259 --
260 g_installed := FND_INSTALLATION.Get_App_Info ('DOM', g_inst_status, g_industry, g_Prod_Schema);
261
262 g_Index_Owner := g_Prod_Schema;
263 g_Pref_Owner := g_Prod_Schema;
264
265 END DOM_DOC_TEXT_PVT;