[Home] [Help]
PACKAGE BODY: APPS.OKC_ALLOWED_TMPL_USAGES_GRP
Source
1 PACKAGE BODY OKC_ALLOWED_TMPL_USAGES_GRP AS
2 /* $Header: OKCGALDTMPLUSGB.pls 120.0 2005/05/26 09:52:56 appldev 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_ALLOWED_TMPL_USAGES_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_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
22 G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
23 G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
24
25 G_RET_STS_SUCCESS CONSTANT varchar2(1) := FND_API.G_RET_STS_SUCCESS;
26 G_RET_STS_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_ERROR;
27 G_RET_STS_UNEXP_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
28
29 G_UNEXPECTED_ERROR CONSTANT varchar2(200) := 'OKC_UNEXPECTED_ERROR';
30 G_SQLERRM_TOKEN CONSTANT varchar2(200) := 'ERROR_MESSAGE';
31 G_SQLCODE_TOKEN CONSTANT varchar2(200) := 'ERROR_CODE';
32
33 ---------------------------------------
34 -- PROCEDURE Validate_Allowed_Tmpl_Usages --
35 ---------------------------------------
36 PROCEDURE Validate_Allowed_Tmpl_Usages(
37 p_api_version IN NUMBER,
38 p_init_msg_list IN VARCHAR2 ,
39 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
40
41 x_return_status OUT NOCOPY VARCHAR2,
42 x_msg_count OUT NOCOPY NUMBER,
43 x_msg_data OUT NOCOPY VARCHAR2,
44
45 p_template_id IN NUMBER,
46 p_document_type IN VARCHAR2,
47 p_default_yn IN VARCHAR2,
48 p_allowed_tmpl_usages_id IN NUMBER,
49
50 p_attribute_category IN VARCHAR2 := NULL,
51 p_attribute1 IN VARCHAR2 := NULL,
52 p_attribute2 IN VARCHAR2 := NULL,
53 p_attribute3 IN VARCHAR2 := NULL,
54 p_attribute4 IN VARCHAR2 := NULL,
55 p_attribute5 IN VARCHAR2 := NULL,
56 p_attribute6 IN VARCHAR2 := NULL,
57 p_attribute7 IN VARCHAR2 := NULL,
58 p_attribute8 IN VARCHAR2 := NULL,
59 p_attribute9 IN VARCHAR2 := NULL,
60 p_attribute10 IN VARCHAR2 := NULL,
61 p_attribute11 IN VARCHAR2 := NULL,
62 p_attribute12 IN VARCHAR2 := NULL,
63 p_attribute13 IN VARCHAR2 := NULL,
64 p_attribute14 IN VARCHAR2 := NULL,
65 p_attribute15 IN VARCHAR2 := NULL,
66
67 p_object_version_number IN NUMBER
68 ) IS
69 l_api_version CONSTANT NUMBER := 1;
70 l_api_name CONSTANT VARCHAR2(30) := 'g_Validate_Allowed_Tmpl_Usages';
71
72 BEGIN
73
74 IF (l_debug = 'Y') THEN
75 okc_debug.log('100: Entered Validate_Allowed_Tmpl_Usages', 2);
76 END IF;
77
78 -- Standard Start of API savepoint
79 SAVEPOINT g_Validate_Allowed_Usages_GRP;
80 -- Standard call to check for call compatibility.
81 IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
82 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
83 END IF;
84 -- Initialize message list if p_init_msg_list is set to TRUE.
85 IF FND_API.to_Boolean( p_init_msg_list ) THEN
86 FND_MSG_PUB.initialize;
87 END IF;
88 -- Initialize API return status to success
89 x_return_status := FND_API.G_RET_STS_SUCCESS;
90
91 --------------------------------------------
92 -- Calling Simple API for Validation
93 --------------------------------------------
94 OKC_ALLOWED_TMPL_USAGES_PVT.Validate_Row(
95 p_validation_level => p_validation_level,
96 x_return_status => x_return_status,
97 p_template_id => p_template_id,
98 p_document_type => p_document_type,
99 p_default_yn => p_default_yn,
100 p_allowed_tmpl_usages_id => p_allowed_tmpl_usages_id,
101 p_attribute_category => p_attribute_category,
102 p_attribute1 => p_attribute1,
103 p_attribute2 => p_attribute2,
104 p_attribute3 => p_attribute3,
105 p_attribute4 => p_attribute4,
106 p_attribute5 => p_attribute5,
107 p_attribute6 => p_attribute6,
108 p_attribute7 => p_attribute7,
109 p_attribute8 => p_attribute8,
110 p_attribute9 => p_attribute9,
111 p_attribute10 => p_attribute10,
112 p_attribute11 => p_attribute11,
113 p_attribute12 => p_attribute12,
114 p_attribute13 => p_attribute13,
115 p_attribute14 => p_attribute14,
116 p_attribute15 => p_attribute15,
117 p_object_version_number => p_object_version_number
118 );
119 --------------------------------------------
120 IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
121 RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
122 ELSIF (x_return_status = G_RET_STS_ERROR) THEN
123 RAISE FND_API.G_EXC_ERROR ;
124 END IF;
125 --------------------------------------------
126
127 -- Standard call to get message count and if count is 1, get message info.
128 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
129
130 IF (l_debug = 'Y') THEN
131 okc_debug.log('200: Leaving Validate_Allowed_Tmpl_Usages', 2);
132 END IF;
133
134 EXCEPTION
135 WHEN FND_API.G_EXC_ERROR THEN
136 IF (l_debug = 'Y') THEN
137 okc_debug.log('300: Leaving Validate_Allowed_Tmpl_Usages: OKC_API.G_EXCEPTION_ERROR Exception', 2);
138 END IF;
139 ROLLBACK TO g_Validate_Allowed_Usages_GRP;
140 x_return_status := G_RET_STS_ERROR ;
141 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
142
143 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
144 IF (l_debug = 'Y') THEN
145 okc_debug.log('400: Leaving Validate_Allowed_Tmpl_Usages: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
146 END IF;
147 ROLLBACK TO g_Validate_Allowed_Usages_GRP;
148 x_return_status := G_RET_STS_UNEXP_ERROR ;
149 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
150
151 WHEN OTHERS THEN
152 IF (l_debug = 'Y') THEN
153 okc_debug.log('500: Leaving Validate_Allowed_Tmpl_Usages because of EXCEPTION: '||sqlerrm, 2);
154 END IF;
155
156 ROLLBACK TO g_Validate_Allowed_Usages_GRP;
157 x_return_status := G_RET_STS_UNEXP_ERROR ;
158 IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
159 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
160 END IF;
161 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
162
163 END Validate_Allowed_Tmpl_Usages;
164
165 -------------------------------------
166 -- PROCEDURE Create_Allowed_Tmpl_Usages
167 -------------------------------------
168 PROCEDURE Create_Allowed_Tmpl_Usages(
169 p_api_version IN NUMBER,
170 p_init_msg_list IN VARCHAR2 ,
171 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
172 p_commit IN VARCHAR2 := FND_API.G_FALSE,
173
174 x_return_status OUT NOCOPY VARCHAR2,
175 x_msg_count OUT NOCOPY NUMBER,
176 x_msg_data OUT NOCOPY VARCHAR2,
177
178 p_template_id IN NUMBER,
179 p_document_type IN VARCHAR2,
180 p_default_yn IN VARCHAR2,
181 p_allowed_tmpl_usages_id IN NUMBER := NULL,
182
183 p_attribute_category IN VARCHAR2 := NULL,
184 p_attribute1 IN VARCHAR2 := NULL,
185 p_attribute2 IN VARCHAR2 := NULL,
186 p_attribute3 IN VARCHAR2 := NULL,
187 p_attribute4 IN VARCHAR2 := NULL,
188 p_attribute5 IN VARCHAR2 := NULL,
189 p_attribute6 IN VARCHAR2 := NULL,
190 p_attribute7 IN VARCHAR2 := NULL,
191 p_attribute8 IN VARCHAR2 := NULL,
192 p_attribute9 IN VARCHAR2 := NULL,
193 p_attribute10 IN VARCHAR2 := NULL,
194 p_attribute11 IN VARCHAR2 := NULL,
195 p_attribute12 IN VARCHAR2 := NULL,
196 p_attribute13 IN VARCHAR2 := NULL,
197 p_attribute14 IN VARCHAR2 := NULL,
198 p_attribute15 IN VARCHAR2 := NULL,
199
200 x_allowed_tmpl_usages_id OUT NOCOPY NUMBER
201
202 ) IS
203
204 l_api_version CONSTANT NUMBER := 1;
205 l_api_name CONSTANT VARCHAR2(30) := 'g_Lock_Allowed_Tmpl_Usages';
206 l_object_version_number OKC_ALLOWED_TMPL_USAGES.OBJECT_VERSION_NUMBER%TYPE := 1;
207 l_created_by OKC_ALLOWED_TMPL_USAGES.CREATED_BY%TYPE;
208 l_creation_date OKC_ALLOWED_TMPL_USAGES.CREATION_DATE%TYPE;
209 l_last_updated_by OKC_ALLOWED_TMPL_USAGES.LAST_UPDATED_BY%TYPE;
210 l_last_update_login OKC_ALLOWED_TMPL_USAGES.LAST_UPDATE_LOGIN%TYPE;
211 l_last_update_date OKC_ALLOWED_TMPL_USAGES.LAST_UPDATE_DATE%TYPE;
212 BEGIN
213
214 IF (l_debug = 'Y') THEN
215 okc_debug.log('600: Entered Create_Allowed_Tmpl_Usages', 2);
216 END IF;
217
218 -- Standard Start of API savepoint
219 SAVEPOINT g_Create_Allowed_Usages_GRP;
220 -- Standard call to check for call compatibility.
221 IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
222 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
223 END IF;
224 -- Initialize message list if p_init_msg_list is set to TRUE.
225 IF FND_API.to_Boolean( p_init_msg_list ) THEN
226 FND_MSG_PUB.initialize;
227 END IF;
228 -- Initialize API return status to success
229 x_return_status := FND_API.G_RET_STS_SUCCESS;
230
231 --------------------------------------------
232 -- Calling Simple API for Creating A Row
233 --------------------------------------------
234 OKC_ALLOWED_TMPL_USAGES_PVT.Insert_Row(
235 p_validation_level => p_validation_level,
236 x_return_status => x_return_status,
237 p_template_id => p_template_id,
238 p_document_type => p_document_type,
239 p_default_yn => p_default_yn,
240 p_allowed_tmpl_usages_id => p_allowed_tmpl_usages_id,
241 p_attribute_category => p_attribute_category,
242 p_attribute1 => p_attribute1,
243 p_attribute2 => p_attribute2,
244 p_attribute3 => p_attribute3,
245 p_attribute4 => p_attribute4,
246 p_attribute5 => p_attribute5,
247 p_attribute6 => p_attribute6,
248 p_attribute7 => p_attribute7,
249 p_attribute8 => p_attribute8,
250 p_attribute9 => p_attribute9,
251 p_attribute10 => p_attribute10,
252 p_attribute11 => p_attribute11,
253 p_attribute12 => p_attribute12,
254 p_attribute13 => p_attribute13,
255 p_attribute14 => p_attribute14,
256 p_attribute15 => p_attribute15,
257 x_allowed_tmpl_usages_id => x_allowed_tmpl_usages_id
258 );
259 --------------------------------------------
260 IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
261 RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
262 ELSIF (x_return_status = G_RET_STS_ERROR) THEN
263 RAISE FND_API.G_EXC_ERROR ;
264 END IF;
265 --------------------------------------------
266
267 -- Standard check of p_commit
268 IF FND_API.To_Boolean( p_commit ) THEN
269 COMMIT WORK;
270 END IF;
271 -- Standard call to get message count and if count is 1, get message info.
272 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
273
274 IF (l_debug = 'Y') THEN
275 okc_debug.log('700: Leaving Create_Allowed_Tmpl_Usages', 2);
276 END IF;
277
278 EXCEPTION
279 WHEN FND_API.G_EXC_ERROR THEN
280 IF (l_debug = 'Y') THEN
281 okc_debug.log('800: Leaving Create_Allowed_Tmpl_Usages: OKC_API.G_EXCEPTION_ERROR Exception', 2);
282 END IF;
283 ROLLBACK TO g_Create_Allowed_Usages_GRP;
284 x_return_status := G_RET_STS_ERROR ;
285 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
286
287 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
288 IF (l_debug = 'Y') THEN
289 okc_debug.log('900: Leaving Create_Allowed_Tmpl_Usages: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
290 END IF;
291 ROLLBACK TO g_Create_Allowed_Usages_GRP;
292 x_return_status := G_RET_STS_UNEXP_ERROR ;
293 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
294
295 WHEN OTHERS THEN
296 IF (l_debug = 'Y') THEN
297 okc_debug.log('1000: Leaving Create_Allowed_Tmpl_Usages because of EXCEPTION: '||sqlerrm, 2);
298 END IF;
299
300 ROLLBACK TO g_Create_Allowed_Usages_GRP;
301 x_return_status := G_RET_STS_UNEXP_ERROR ;
302 IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
303 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
304 END IF;
305 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
306
307 END Create_Allowed_Tmpl_Usages;
308 ---------------------------------------------------------------------------
309 -- PROCEDURE Lock_Allowed_Tmpl_Usages
310 ---------------------------------------------------------------------------
311 PROCEDURE Lock_Allowed_Tmpl_Usages(
312 p_api_version IN NUMBER,
313 p_init_msg_list IN VARCHAR2 ,
314
315 x_return_status OUT NOCOPY VARCHAR2,
319 p_allowed_tmpl_usages_id IN NUMBER,
316 x_msg_count OUT NOCOPY NUMBER,
317 x_msg_data OUT NOCOPY VARCHAR2,
318
320 p_object_version_number IN NUMBER
321 ) IS
322 l_api_version CONSTANT NUMBER := 1;
323 l_api_name CONSTANT VARCHAR2(30) := 'g_Lock_Allowed_Tmpl_Usages';
324 BEGIN
325
326 IF (l_debug = 'Y') THEN
327 okc_debug.log('1100: Entered Lock_Allowed_Tmpl_Usages', 2);
328 END IF;
329
330 -- Standard Start of API savepoint
331 SAVEPOINT g_Lock_Allowed_Usages_GRP;
332 -- Standard call to check for call compatibility.
333 IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
334 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
335 END IF;
336 -- Initialize message list if p_init_msg_list is set to TRUE.
337 IF FND_API.to_Boolean( p_init_msg_list ) THEN
338 FND_MSG_PUB.initialize;
339 END IF;
340 -- Initialize API return status to success
341 x_return_status := FND_API.G_RET_STS_SUCCESS;
342
343 --------------------------------------------
344 -- Calling Simple API for Locking A Row
345 --------------------------------------------
346 OKC_ALLOWED_TMPL_USAGES_PVT.lock_row(
347 x_return_status => x_return_status,
348 p_allowed_tmpl_usages_id => p_allowed_tmpl_usages_id,
349 p_object_version_number => p_object_version_number
350 );
351 --------------------------------------------
352 IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
353 RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
354 ELSIF (x_return_status = G_RET_STS_ERROR) THEN
355 RAISE FND_API.G_EXC_ERROR ;
356 END IF;
357 --------------------------------------------
358
359 -- Standard call to get message count and if count is 1, get message info.
360 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
361
362 IF (l_debug = 'Y') THEN
363 okc_debug.log('1200: Leaving Lock_Allowed_Tmpl_Usages', 2);
364 END IF;
365
366 EXCEPTION
367 WHEN FND_API.G_EXC_ERROR THEN
368 IF (l_debug = 'Y') THEN
369 okc_debug.log('1300: Leaving Lock_Allowed_Tmpl_Usages: OKC_API.G_EXCEPTION_ERROR Exception', 2);
370 END IF;
371 ROLLBACK TO g_Lock_Allowed_Usages_GRP;
372 x_return_status := G_RET_STS_ERROR ;
373 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
374
375 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
376 IF (l_debug = 'Y') THEN
377 okc_debug.log('1400: Leaving Lock_Allowed_Tmpl_Usages: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
378 END IF;
379 ROLLBACK TO g_Lock_Allowed_Usages_GRP;
380 x_return_status := G_RET_STS_UNEXP_ERROR ;
381 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
382
383 WHEN OTHERS THEN
384 IF (l_debug = 'Y') THEN
385 okc_debug.log('1500: Leaving Lock_Allowed_Tmpl_Usages because of EXCEPTION: '||sqlerrm, 2);
386 END IF;
387
388 ROLLBACK TO g_Lock_Allowed_Usages_GRP;
389 x_return_status := G_RET_STS_UNEXP_ERROR ;
390 IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
391 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
392 END IF;
393 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
394
395 END Lock_Allowed_Tmpl_Usages;
396 ---------------------------------------------------------------------------
397 -- PROCEDURE Update_Allowed_Tmpl_Usages
398 ---------------------------------------------------------------------------
399 PROCEDURE Update_Allowed_Tmpl_Usages(
400 p_api_version IN NUMBER,
401 p_init_msg_list IN VARCHAR2 ,
402 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
403 p_commit IN VARCHAR2 := FND_API.G_FALSE,
404
405 x_return_status OUT NOCOPY VARCHAR2,
406 x_msg_count OUT NOCOPY NUMBER,
407 x_msg_data OUT NOCOPY VARCHAR2,
408
409 p_template_id IN NUMBER,
410 p_document_type IN VARCHAR2,
411 p_default_yn IN VARCHAR2,
412 p_allowed_tmpl_usages_id IN NUMBER,
413
414 p_attribute_category IN VARCHAR2 := NULL,
415 p_attribute1 IN VARCHAR2 := NULL,
416 p_attribute2 IN VARCHAR2 := NULL,
417 p_attribute3 IN VARCHAR2 := NULL,
418 p_attribute4 IN VARCHAR2 := NULL,
419 p_attribute5 IN VARCHAR2 := NULL,
420 p_attribute6 IN VARCHAR2 := NULL,
421 p_attribute7 IN VARCHAR2 := NULL,
422 p_attribute8 IN VARCHAR2 := NULL,
423 p_attribute9 IN VARCHAR2 := NULL,
424 p_attribute10 IN VARCHAR2 := NULL,
425 p_attribute11 IN VARCHAR2 := NULL,
426 p_attribute12 IN VARCHAR2 := NULL,
427 p_attribute13 IN VARCHAR2 := NULL,
428 p_attribute14 IN VARCHAR2 := NULL,
429 p_attribute15 IN VARCHAR2 := NULL,
430
431 p_object_version_number IN NUMBER
432
433 ) IS
434
435 l_api_version CONSTANT NUMBER := 1;
436 l_api_name CONSTANT VARCHAR2(30) := 'g_Update_Allowed_Tmpl_Usages';
437
438 BEGIN
439
443 END IF;
440 IF (l_debug = 'Y') THEN
441 okc_debug.log('1600: Entered Update_Allowed_Tmpl_Usages', 2);
442 okc_debug.log('1700: Locking row', 2);
444
445 -- Standard Start of API savepoint
446 SAVEPOINT g_Update_Allowed_Usages_GRP;
447 -- Standard call to check for call compatibility.
448 IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
449 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
450 END IF;
451 -- Initialize message list if p_init_msg_list is set to TRUE.
452 IF FND_API.to_Boolean( p_init_msg_list ) THEN
453 FND_MSG_PUB.initialize;
454 END IF;
455 -- Initialize API return status to success
456 x_return_status := FND_API.G_RET_STS_SUCCESS;
457
458 --------------------------------------------
459 -- Calling Simple API for Updating A Row
460 --------------------------------------------
461 OKC_ALLOWED_TMPL_USAGES_PVT.Update_Row(
462 p_validation_level => p_validation_level,
463 x_return_status => x_return_status,
464 p_template_id => p_template_id,
465 p_document_type => p_document_type,
466 p_default_yn => p_default_yn,
467 p_allowed_tmpl_usages_id => p_allowed_tmpl_usages_id,
468 p_attribute_category => p_attribute_category,
469 p_attribute1 => p_attribute1,
470 p_attribute2 => p_attribute2,
471 p_attribute3 => p_attribute3,
472 p_attribute4 => p_attribute4,
473 p_attribute5 => p_attribute5,
474 p_attribute6 => p_attribute6,
475 p_attribute7 => p_attribute7,
476 p_attribute8 => p_attribute8,
477 p_attribute9 => p_attribute9,
478 p_attribute10 => p_attribute10,
479 p_attribute11 => p_attribute11,
480 p_attribute12 => p_attribute12,
481 p_attribute13 => p_attribute13,
482 p_attribute14 => p_attribute14,
483 p_attribute15 => p_attribute15,
484 p_object_version_number => p_object_version_number
485 );
486 --------------------------------------------
487 IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
488 RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
489 ELSIF (x_return_status = G_RET_STS_ERROR) THEN
490 RAISE FND_API.G_EXC_ERROR ;
491 END IF;
492 --------------------------------------------
493
494 -- Standard check of p_commit
495 IF FND_API.To_Boolean( p_commit ) THEN
496 COMMIT WORK;
497 END IF;
498 -- Standard call to get message count and if count is 1, get message info.
499 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
500
501 IF (l_debug = 'Y') THEN
502 okc_debug.log('1800: Leaving Update_Allowed_Tmpl_Usages', 2);
503 END IF;
504
505 EXCEPTION
506 WHEN FND_API.G_EXC_ERROR THEN
507 IF (l_debug = 'Y') THEN
508 okc_debug.log('1900: Leaving Update_Allowed_Tmpl_Usages: OKC_API.G_EXCEPTION_ERROR Exception', 2);
509 END IF;
510 ROLLBACK TO g_Update_Allowed_Usages_GRP;
511 x_return_status := G_RET_STS_ERROR ;
512 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
513
514 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
515 IF (l_debug = 'Y') THEN
516 okc_debug.log('2000: Leaving Update_Allowed_Tmpl_Usages: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
517 END IF;
518 ROLLBACK TO g_Update_Allowed_Usages_GRP;
519 x_return_status := G_RET_STS_UNEXP_ERROR ;
520 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
521
522 WHEN OTHERS THEN
523 IF (l_debug = 'Y') THEN
524 okc_debug.log('2100: Leaving Update_Allowed_Tmpl_Usages because of EXCEPTION: '||sqlerrm, 2);
525 END IF;
526
527 ROLLBACK TO g_Update_Allowed_Usages_GRP;
528 x_return_status := G_RET_STS_UNEXP_ERROR ;
529 IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
530 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
531 END IF;
532 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
533
534 END Update_Allowed_Tmpl_Usages;
535
536 ---------------------------------------------------------------------------
537 -- PROCEDURE Delete_Allowed_Tmpl_Usages
538 ---------------------------------------------------------------------------
539 PROCEDURE Delete_Allowed_Tmpl_Usages(
540 p_api_version IN NUMBER,
541 p_init_msg_list IN VARCHAR2 ,
542 p_commit IN VARCHAR2 := FND_API.G_FALSE,
543
544 x_return_status OUT NOCOPY VARCHAR2,
545 x_msg_count OUT NOCOPY NUMBER,
546 x_msg_data OUT NOCOPY VARCHAR2,
547
548 p_allowed_tmpl_usages_id IN NUMBER,
549 p_object_version_number IN NUMBER
550 ) IS
551 l_api_version CONSTANT NUMBER := 1;
552 l_api_name CONSTANT VARCHAR2(30) := 'g_Delete_Allowed_Tmpl_Usages';
553 BEGIN
554
555 IF (l_debug = 'Y') THEN
556 okc_debug.log('2200: Entered Delete_Allowed_Tmpl_Usages', 2);
557 END IF;
558
559 -- Standard Start of API savepoint
560 SAVEPOINT g_Delete_Allowed_Usages_GRP;
564 END IF;
561 -- Standard call to check for call compatibility.
562 IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
563 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
565 -- Initialize message list if p_init_msg_list is set to TRUE.
566 IF FND_API.to_Boolean( p_init_msg_list ) THEN
567 FND_MSG_PUB.initialize;
568 END IF;
569 -- Initialize API return status to success
570 x_return_status := FND_API.G_RET_STS_SUCCESS;
571
572 --------------------------------------------
573 -- Calling Simple API for Deleting A Row
574 --------------------------------------------
575 OKC_ALLOWED_TMPL_USAGES_PVT.Delete_Row(
576 x_return_status => x_return_status,
577 p_allowed_tmpl_usages_id => p_allowed_tmpl_usages_id,
578 p_object_version_number => p_object_version_number
579 );
580 --------------------------------------------
581 IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
582 RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
583 ELSIF (x_return_status = G_RET_STS_ERROR) THEN
584 RAISE FND_API.G_EXC_ERROR ;
585 END IF;
586 --------------------------------------------
587
588 -- Standard check of p_commit
589 IF FND_API.To_Boolean( p_commit ) THEN
590 COMMIT WORK;
591 END IF;
592 -- Standard call to get message count and if count is 1, get message info.
593 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
594
595 IF (l_debug = 'Y') THEN
596 okc_debug.log('2300: Leaving Delete_Allowed_Tmpl_Usages', 2);
597 END IF;
598
599 EXCEPTION
600 WHEN FND_API.G_EXC_ERROR THEN
601 IF (l_debug = 'Y') THEN
602 okc_debug.log('2400: Leaving Delete_Allowed_Tmpl_Usages: OKC_API.G_EXCEPTION_ERROR Exception', 2);
603 END IF;
604 ROLLBACK TO g_Delete_Allowed_Usages_GRP;
605 x_return_status := G_RET_STS_ERROR ;
606 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
607
608 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
609 IF (l_debug = 'Y') THEN
610 okc_debug.log('2500: Leaving Delete_Allowed_Tmpl_Usages: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
611 END IF;
612 ROLLBACK TO g_Delete_Allowed_Usages_GRP;
613 x_return_status := G_RET_STS_UNEXP_ERROR ;
614 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
615
616 WHEN OTHERS THEN
617 IF (l_debug = 'Y') THEN
618 okc_debug.log('2600: Leaving Delete_Allowed_Tmpl_Usages because of EXCEPTION: '||sqlerrm, 2);
619 END IF;
620
621 ROLLBACK TO g_Delete_Allowed_Usages_GRP;
622 x_return_status := G_RET_STS_UNEXP_ERROR ;
623 IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
624 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
625 END IF;
626 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
627
628 END Delete_Allowed_Tmpl_Usages;
629
630 END OKC_ALLOWED_TMPL_USAGES_GRP;