[Home] [Help]
PACKAGE BODY: APPS.OKC_PON_INT_GRP
Source
1 PACKAGE BODY OKC_PON_INT_GRP AS
2 /* $Header: OKCGISOB.pls 120.1 2005/10/11 02:47:44 ndoddi noship $ */
3
4 l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
5
6 ---------------------------------------------------------------------------
7 -- GLOBAL MESSAGE CONSTANTS
8 ---------------------------------------------------------------------------
9 G_FND_APP CONSTANT VARCHAR2(200) := OKC_API.G_FND_APP;
10 ---------------------------------------------------------------------------
11 -- GLOBAL VARIABLES
12 ---------------------------------------------------------------------------
13 G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKC_PON_INT_GRP';
14 G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
15
16 ------------------------------------------------------------------------------
17 -- GLOBAL CONSTANTS
18 ------------------------------------------------------------------------------
19 G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
20 G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
21 G_RET_STS_SUCCESS CONSTANT varchar2(1) := FND_API.G_RET_STS_SUCCESS;
22 G_RET_STS_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_ERROR ;
23 G_RET_STS_UNEXP_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
24 G_UNEXPECTED_ERROR CONSTANT varchar2(200) := 'OKC_UNEXPECTED_ERROR';
25 G_SQLERRM_TOKEN CONSTANT varchar2(200) := 'ERROR_MESSAGE';
26 G_SQLCODE_TOKEN CONSTANT varchar2(200) := 'ERROR_CODE';
27
28 G_DBG_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
29 G_PROC_LEVEL NUMBER := FND_LOG.LEVEL_PROCEDURE;
30 G_EXCP_LEVEL NUMBER := FND_LOG.LEVEL_EXCEPTION;
31
32
33 Procedure get_article_variable_values(
34 p_api_version IN Number,
35 p_init_msg_list IN Varchar2 default FND_API.G_FALSE,
36 p_doc_type IN Varchar2,
37 p_doc_id IN Number,
38 p_sys_var_value_tbl IN OUT NOCOPY sys_var_value_tbl_type,
39 x_return_status OUT NOCOPY Varchar2,
40 x_msg_data OUT NOCOPY Varchar2,
41 x_msg_count OUT NOCOPY Number
42 )IS
43 l_api_version CONSTANT NUMBER := 1;
44 l_api_name CONSTANT VARCHAR2(30) := 'g_get_article_variable_values';
45 BEGIN
46 x_return_status := FND_API.G_RET_STS_SUCCESS;
47
48 IF l_debug='Y' THEN
49 okc_util.print_trace(1,' Calling PON_CONTERMS_UTL_GRP.Get_PO_Attribute_values');
50 END IF;
51
52 PON_CONTERMS_UTL_GRP.get_article_variable_values(
53 p_api_version => l_api_version,
54 p_init_msg_list => FND_API.G_FALSE,
55 p_doctype_id => p_doc_type,
56 p_doc_id => p_doc_id,
57 p_sys_var_value_tbl => p_sys_var_value_tbl,
58 x_return_status => x_return_status,
59 x_msg_data => x_msg_data,
60 x_msg_count => x_msg_count);
61
62 --------------------------------------------
63 IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
64 RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
65 ELSIF (x_return_status = G_RET_STS_ERROR) THEN
66 RAISE FND_API.G_EXC_ERROR ;
67 END IF;
68 --------------------------------------------
69 IF l_debug='Y' THEN
70 okc_util.print_trace(1,' Leaving PON_CONTERMS_UTL_GRP.Get_PO_Attribute_values');
71 END IF;
72 FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
73
74 EXCEPTION
75 WHEN FND_API.G_EXC_ERROR THEN
76
77 /*IF (l_debug = 'Y') THEN
78 okc_debug.log('2400: Leaving get_article_variable_values: OKC_API.G_EXCEPTION_ERROR Exception', 2);
79 END IF;*/
80
81 IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
82 FND_LOG.STRING(G_EXCP_LEVEL,
83 G_PKG_NAME, '2400: Leaving get_article_variable_values: OKC_API.G_EXCEPTION_ERROR Exception' );
84 END IF;
85
86 x_return_status := G_RET_STS_ERROR ;
87 FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
88
89 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
90 /*IF (l_debug = 'Y') THEN
91 okc_debug.log('2500: Leaving get_article_variable_values: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
92 END IF;*/
93
94 IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
95 FND_LOG.STRING(G_EXCP_LEVEL,
96 G_PKG_NAME, '2500: Leaving get_article_variable_values: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception' );
97 END IF;
98
99 x_return_status := G_RET_STS_UNEXP_ERROR ;
100 FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
101 WHEN OTHERS THEN
102 /*IF (l_debug = 'Y') THEN
103 okc_debug.log('2600: Leaving get_article_variable_values because of EXCEPTION: '||sqlerrm, 2);
104 END IF;*/
105
106 IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
107 FND_LOG.STRING(G_EXCP_LEVEL,
108 G_PKG_NAME, '2600: Leaving get_article_variable_values because of EXCEPTION: '||sqlerrm );
109 END IF;
110
111 x_return_status := G_RET_STS_UNEXP_ERROR ;
112
113 IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
114 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
115 END IF;
116 FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
117 END get_article_variable_values;
118
119 Procedure get_changed_variables(
120 p_api_version IN Number,
121 p_init_msg_list IN Varchar2 default FND_API.G_FALSE,
122 p_doc_type IN Varchar2,
123 p_doc_id IN Number,
124 p_sys_var_tbl IN OUT NOCOPY sys_var_tbl_type,
125 x_return_status OUT NOCOPY Varchar2,
126 x_msg_data OUT NOCOPY Varchar2,
127 x_msg_count OUT NOCOPY Number
128 ) IS
129 l_api_version CONSTANT NUMBER := 1;
130 l_api_name CONSTANT VARCHAR2(30) := 'g_get_changed_variables';
131 BEGIN
132 x_return_status := FND_API.G_RET_STS_SUCCESS;
133
134 IF l_debug='Y' THEN
135 okc_util.print_trace(1,' Calling PON_CONTERMS_UTL_GRP.attribute_value_changed');
136 END IF;
137
138 PON_CONTERMS_UTL_GRP.get_changed_variables(
139 p_api_version => l_api_version,
140 p_init_msg_list => FND_API.G_FALSE,
141 p_doc_id => p_doc_id,
142 p_doctype_id => p_doc_type,
143 p_sys_var_tbl => p_sys_var_tbl,
144 x_return_status => x_return_status,
145 x_msg_data => x_msg_data,
146 x_msg_count => x_msg_count);
147
148 --------------------------------------------
149 IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
150 RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
151 ELSIF (x_return_status = G_RET_STS_ERROR) THEN
152 RAISE FND_API.G_EXC_ERROR ;
153 END IF;
154 --------------------------------------------
155 IF l_debug='Y' THEN
156 okc_util.print_trace(1,' Leaving PON_CONTERMS_UTL_GRP.attribute_value_changed');
157 END IF;
158 FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
159
160 EXCEPTION
161 WHEN FND_API.G_EXC_ERROR THEN
162
163 /*IF (l_debug = 'Y') THEN
164 okc_debug.log('2400: Leaving get_changed_variables: OKC_API.G_EXCEPTION_ERROR Exception', 2);
165 END IF;*/
166
167 IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
168 FND_LOG.STRING(G_EXCP_LEVEL,
169 G_PKG_NAME, '2400: Leaving get_changed_variables: OKC_API.G_EXCEPTION_ERROR Exception' );
170 END IF;
171
172 x_return_status := G_RET_STS_ERROR ;
173 FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
174
175 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
176 /*IF (l_debug = 'Y') THEN
177 okc_debug.log('2500: Leaving get_changed_variables: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
178 END IF;*/
179
180 IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
181 FND_LOG.STRING(G_EXCP_LEVEL,
182 G_PKG_NAME, '2500: Leaving get_changed_variables: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception' );
183 END IF;
184
185 x_return_status := G_RET_STS_UNEXP_ERROR ;
186 FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
187 WHEN OTHERS THEN
188 /*IF (l_debug = 'Y') THEN
189 okc_debug.log('2600: Leaving get_changed_variables because of EXCEPTION: '||sqlerrm, 2);
190 END IF;*/
191
192 IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
193 FND_LOG.STRING(G_EXCP_LEVEL,
194 G_PKG_NAME, '2600: Leaving get_changed_variables because of EXCEPTION: '||sqlerrm );
195 END IF;
196
197 x_return_status := G_RET_STS_UNEXP_ERROR ;
198
199 IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
200 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
201 END IF;
202 FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
203 END get_changed_variables;
204
205 Procedure get_item_dtl_for_expert(
206 p_api_version IN Number,
207 p_init_msg_list IN Varchar2 default FND_API.G_FALSE,
208 p_doc_type IN Varchar2,
209 p_doc_id IN Number,
210 x_category_tbl OUT NOCOPY item_tbl_type,
211 x_item_tbl OUT NOCOPY item_tbl_type,
212 x_return_status OUT NOCOPY Varchar2,
213 x_msg_data OUT NOCOPY Varchar2,
214 x_msg_count OUT NOCOPY Number
215 )IS
216 l_api_version CONSTANT NUMBER := 1;
217 l_api_name CONSTANT VARCHAR2(30) := 'g_get_item_dtl_for_expert';
218 BEGIN
219 x_return_status := FND_API.G_RET_STS_SUCCESS;
220
221 IF l_debug='Y' THEN
222 okc_util.print_trace(1,' Calling PON_CONTERMS_UTL_GRP.get_item_dtl_for_expert');
223 END IF;
224
225 PON_CONTERMS_UTL_GRP.get_item_category(
226 p_api_version => l_api_version,
227 p_init_msg_list => FND_API.G_FALSE,
228 p_doctype_id => p_doc_type,
229 p_doc_id => p_doc_id,
230 x_category_tbl => x_category_tbl,
231 x_item_tbl => x_item_tbl,
232 x_return_status => x_return_status,
233 x_msg_data => x_msg_data,
234 x_msg_count => x_msg_count);
235
236 --------------------------------------------
237 IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
238 RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
239 ELSIF (x_return_status = G_RET_STS_ERROR) THEN
240 RAISE FND_API.G_EXC_ERROR ;
241 END IF;
242 --------------------------------------------
243 IF l_debug='Y' THEN
244 okc_util.print_trace(1,' Leaving PON_CONTERMS_UTL_GRP.get_item_dtl_for_expert');
245 END IF;
246 FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
247
248 EXCEPTION
249 WHEN FND_API.G_EXC_ERROR THEN
250
251 /*IF (l_debug = 'Y') THEN
252 okc_debug.log('2400: Leaving get_item_dtl_for_expert: OKC_API.G_EXCEPTION_ERROR Exception', 2);
253 END IF;*/
254
255 IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
256 FND_LOG.STRING(G_EXCP_LEVEL,
257 G_PKG_NAME, '2400: Leaving get_item_dtl_for_expert: OKC_API.G_EXCEPTION_ERROR Exception' );
258 END IF;
259
260 x_return_status := G_RET_STS_ERROR ;
261 FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
262
263 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
264 /*IF (l_debug = 'Y') THEN
265 okc_debug.log('2500: Leaving get_item_dtl_for_expert: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
266 END IF;*/
267
268 IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
269 FND_LOG.STRING(G_EXCP_LEVEL,
270 G_PKG_NAME, '2500: Leaving get_item_dtl_for_expert: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception' );
271 END IF;
272
273 x_return_status := G_RET_STS_UNEXP_ERROR ;
274 FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
275 WHEN OTHERS THEN
276 /*IF (l_debug = 'Y') THEN
277 okc_debug.log('2600: Leaving get_item_dtl_for_expert because of EXCEPTION: '||sqlerrm, 2);
278 END IF;*/
279
280 IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
281 FND_LOG.STRING(G_EXCP_LEVEL,
282 G_PKG_NAME, '2600: Leaving get_item_dtl_for_expert because of EXCEPTION: '||sqlerrm );
283 END IF;
284
285 x_return_status := G_RET_STS_UNEXP_ERROR ;
286
287 IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
288 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
289 END IF;
290 FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
291 END get_item_dtl_for_expert;
292
293 Function ok_to_commit (
294 p_api_version IN Number,
295 p_init_msg_list IN Varchar2 default FND_API.G_FALSE,
296 p_doc_type IN Varchar2,
297 p_doc_id IN Number,
298 p_validation_string IN Varchar2 default NULL,
299 x_return_status OUT NOCOPY Varchar2,
300 x_msg_data OUT NOCOPY Varchar2,
301 x_msg_count OUT NOCOPY Number
302 )
303 Return Varchar2 IS
304
305 l_api_version CONSTANT NUMBER := 1;
306 l_api_name CONSTANT VARCHAR2(30) := 'g_ok_to_commit';
307 l_update_allowed Varchar2(10);
308 BEGIN
309
310 x_return_status := FND_API.G_RET_STS_SUCCESS;
311
312 PON_CONTERMS_UTL_GRP.ok_to_commit(
313 p_api_version => l_api_version,
314 p_init_msg_list => FND_API.G_FALSE,
315 p_doc_id => p_doc_id,
316 p_doctype_id => p_doc_type,
317 x_update_allowed => l_update_allowed,
318 x_return_status => x_return_status,
319 x_msg_data => x_msg_data,
320 x_msg_count => x_msg_count);
321 --------------------------------------------
322 IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
323 RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
324 ELSIF (x_return_status = G_RET_STS_ERROR) THEN
325 RAISE FND_API.G_EXC_ERROR ;
326 END IF;
327 --------------------------------------------
328
329 FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
330
331 return nvl(l_update_allowed, FND_API.G_FALSE);
332
333 EXCEPTION
334 WHEN FND_API.G_EXC_ERROR THEN
335 /*IF (l_debug = 'Y') THEN
336 okc_debug.log('2400: Leaving ok_to_commit: OKC_API.G_EXCEPTION_ERROR Exception', 2);
337 END IF;*/
338
339 IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
340 FND_LOG.STRING(G_EXCP_LEVEL,
341 G_PKG_NAME, '2400: Leaving ok_to_commit: OKC_API.G_EXCEPTION_ERROR Exception' );
342 END IF;
343
344 x_return_status := G_RET_STS_ERROR ;
345 FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
346 return FND_API.G_FALSE;
347
348 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
349 /*IF (l_debug = 'Y') THEN
350 okc_debug.log('2500: Leaving ok_to_commit: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
351 END IF;*/
352
353 IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
354 FND_LOG.STRING(G_EXCP_LEVEL,
355 G_PKG_NAME, '2500: Leaving ok_to_commit: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception' );
356 END IF;
357
358 x_return_status := G_RET_STS_UNEXP_ERROR ;
359 FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
360 return FND_API.G_FALSE;
361 WHEN OTHERS THEN
362 /*IF (l_debug = 'Y') THEN
363 okc_debug.log('2600: Leaving ok_to_commit because of EXCEPTION: '||sqlerrm, 2);
364 END IF;*/
365
366 IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
367 FND_LOG.STRING(G_EXCP_LEVEL,
368 G_PKG_NAME, '2600: Leaving ok_to_commit because of EXCEPTION: '||sqlerrm );
369 END IF;
370
371 x_return_status := G_RET_STS_UNEXP_ERROR ;
372
373 IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
374 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
375 END IF;
376 FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
377 return FND_API.G_FALSE;
378
379 END ok_to_commit;
380 END OKC_PON_INT_GRP;