[Home] [Help]
PACKAGE BODY: APPS.JTF_PERZ_LF_PUB
Source
1 PACKAGE BODY JTF_PERZ_LF_PUB as
2 /* $Header: jtfzplfb.pls 120.2 2005/11/02 03:27:07 skothe ship $ */
3
4 -- Start of Comments
5 --
6 -- NAME
7 -- JTF_PERZ_LF_PUB
8 --
9 -- PURPOSE
10 -- Private API for the look and feel objects.
11 --
12 -- NOTES
13 -- This is a pulicly accessible pacakge. It should be used by all
14 -- sources for creating, getting and updating look and feel objects
15 -- in the Personalization framework.
16 --
17 --
18 -- HISTORY
19 -- 06/15/99 SMATTEGU Created
20 -- 07/21/99 SMATTEGU Updated
21 --
22 -- End of Comments
23
24 G_PKG_NAME CONSTANT VARCHAR2(30):='JTF_PERZ_LF_PUB';
25 G_FILE_NAME CONSTANT VARCHAR2(12):='jtfpplfb.pls';
26
27 PROCEDURE Create_lf_object
28 ( p_api_version_number IN NUMBER,
29 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
30 p_commit IN VARCHAR2 := FND_API.G_FALSE,
31
32 p_profile_id IN NUMBER,
33 p_profile_name IN VARCHAR2,
34
35 p_application_id IN NUMBER,
36 p_parent_id IN NUMBER,
37 p_object_id IN NUMBER,
38 p_object_name IN VARCHAR2,
39
40 p_object_type_id IN NUMBER,
41 p_object_type IN VARCHAR2,
42
43 p_attrib_value_tbl IN JTF_PERZ_LF_PUB.ATTRIB_VALUE_TBL_TYPE
44 := JTF_PERZ_LF_PUB.G_MISS_ATTRIB_VALUE_TBL,
45
46 x_object_id OUT NOCOPY /* file.sql.39 change */ NUMBER,
47 x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
48 x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
49 x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
50 )IS
51
52 -- ******* Local Variables ********
53
54 l_api_version_number NUMBER := p_api_version_number;
55 l_api_name CONSTANT VARCHAR2(30) := 'Create Object';
56 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
57
58 BEGIN
59
60 -- ******* Standard Begins ********
61
62 -- Standard Start of API savepoint
63 SAVEPOINT CREATE_PERZ_LF_PUB;
64
65 -- Standard call to check for call compatibility.
66 -- IF NOT FND_API.Compatible_API_Call ( l_api_version_number, p_api_version_number, l_api_name, G_PKG_NAME)
67 -- THEN
68 -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
69 -- END IF;
70
71 -- Initialize message list if p_init_msg_list is set to TRUE.
72 IF FND_API.to_Boolean( p_init_msg_list )
73 THEN
74 FND_MSG_PUB.initialize;
75 END IF;
76
77 -- Initialize API return status to success
78 l_return_status := FND_API.G_RET_STS_SUCCESS;
79
80 JTF_PERZ_LF_PVT. Create_lf_object
81 ( p_api_version_number,
82 p_init_msg_list,
83 p_commit,
84 p_profile_id,
85 p_profile_name,
86 p_application_id,
87 p_parent_id,
88 p_object_id,
89 p_object_name,
90 p_object_type_id,
91 p_object_type,
92 p_attrib_value_tbl,
93 x_object_id,
94 l_return_status,
95 x_msg_count,
96 x_msg_data
97 );
98 x_return_status := l_return_status ;
99
100 -- ******** Standard Ends ***********
101 --
102 -- End of API body.
103 --
104 -- 7. Commit the whole thing
105
106 -- Standard check of p_commit.
107 IF FND_API.To_Boolean ( p_commit )
108 THEN
109 COMMIT WORK;
110 END IF;
111
112 -- Debug Message
113 -- Standard call to get message count and if count is 1, get message info.
114 FND_MSG_PUB.Count_And_Get
115 (
116 p_count => x_msg_count,
117 p_data => x_msg_data
118 );
119
120
121 EXCEPTION
122
123 WHEN FND_API.G_EXC_ERROR THEN
124
125 ROLLBACK TO CREATE_PERZ_LF_PUB;
126 x_return_status := FND_API.G_RET_STS_ERROR ;
127
128 FND_MSG_PUB.Count_And_Get
129 ( p_count => x_msg_count,
130 p_data => x_msg_data
131 );
132
133 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
134 THEN
135 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
136 END IF;
137
138 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
139
140 ROLLBACK TO CREATE_PERZ_LF_PUB;
141 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
142
143 FND_MSG_PUB.Count_And_Get
144 ( p_count => x_msg_count,
145 p_data => x_msg_data
146 );
147
148 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
149 THEN
150 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
151 END IF;
152
153 WHEN OTHERS THEN
154
155 ROLLBACK TO CREATE_PERZ_LF_PUB;
156 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
157
158 FND_MSG_PUB.Count_And_Get
159 ( p_count => x_msg_count,
160 p_data => x_msg_data
161 );
162
163 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
164 THEN
165 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
166 END IF;
167
168 END Create_lf_object;
169
170
171 -- *****************************************************************************
172 PROCEDURE Update_lf_object
173 ( p_api_version_number IN NUMBER,
174 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
175 p_commit IN VARCHAR2 := FND_API.G_FALSE,
176
177 p_profile_id IN NUMBER,
178 p_profile_name IN VARCHAR2,
179
180 p_application_id IN NUMBER,
181 p_parent_id IN NUMBER,
182 p_object_Id IN NUMBER,
183 p_object_name IN VARCHAR2,
184 p_active_flag IN VARCHAR2,
185
186 p_object_type_id IN NUMBER,
187 p_object_type IN VARCHAR2,
188
189 p_attrib_value_tbl IN JTF_PERZ_LF_PUB.ATTRIB_VALUE_TBL_TYPE
190 := JTF_PERZ_LF_PUB.G_MISS_ATTRIB_VALUE_TBL,
191
192 x_object_id OUT NOCOPY /* file.sql.39 change */ NUMBER,
193 x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
194 x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
195 x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
196 )IS
197
198 -- ******* Update_lf_object Local Variables ********
199 l_api_version_number NUMBER := p_api_version_number;
200 l_api_name VARCHAR2(60) := 'Update Object';
201 l_return_status VARCHAR2(1) := FND_API.G_TRUE;
202
203 BEGIN
204
205 -- ******* Standard Begins ********
206
207 -- Standard Start of API savepoint
208 SAVEPOINT UPDATE_PERZ_LF_PUB;
209
210 -- Standard call to check for call compatibility.
211 --IF NOT FND_API.Compatible_API_Call
212 --( l_api_version_number, p_api_version_number,
213 -- l_api_name, G_PKG_NAME) THEN
214 -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
215 --END IF;
216
217 -- Initialize message list if p_init_msg_list is set to TRUE.
218 IF FND_API.to_Boolean( p_init_msg_list ) THEN
219 FND_MSG_PUB.initialize;
220 END IF;
221
222 -- Initialize API return status to success
223 JTF_PERZ_LF_PVT.Update_lf_object
224 ( p_api_version_number,
225 p_init_msg_list,
226 p_commit,
227 p_profile_id,
228 p_profile_name,
229 p_application_id,
230 p_parent_id,
231 p_Object_Id,
232 p_object_name,
233 p_active_flag,
234 p_object_type_id,
235 p_object_type,
236 p_attrib_value_tbl,
237 x_object_id,
238 x_return_status,
239 x_msg_count,
240 x_msg_data
241 );
242
243
244 -- ******** Standard Ends ***********
245 --
246 -- End of API body.
247 --
248 -- 5. Commit the whole thing
249
250 -- Standard check of p_commit.
251 IF FND_API.To_Boolean ( p_commit )
252 THEN
253 COMMIT WORK;
254 END IF;
255
256 -- Debug Message
257 -- Standard call to get message count and if count is 1, get message info.
258 FND_MSG_PUB.Count_And_Get(
259 p_count => x_msg_count,
260 p_data => x_msg_data
261 );
262
263
264 EXCEPTION
265
266 WHEN FND_API.G_EXC_ERROR THEN
267
268 ROLLBACK TO UPDATE_PERZ_LF_PUB;
269 x_return_status := FND_API.G_RET_STS_ERROR ;
270
271 FND_MSG_PUB.Count_And_Get
272 ( p_count => x_msg_count,
273 p_data => x_msg_data
274 );
275
276
277 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
278 THEN
279 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
280 END IF;
281
282 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
283
284 ROLLBACK TO UPDATE_PERZ_LF_PUB;
285 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
286
287 FND_MSG_PUB.Count_And_Get
288 ( p_count => x_msg_count,
289 p_data => x_msg_data
290 );
291
292 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
293 THEN
294 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
295 END IF;
296
297 WHEN OTHERS THEN
298
299 ROLLBACK TO UPDATE_PERZ_LF_PUB;
300 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
301
302 FND_MSG_PUB.Count_And_Get
303 ( p_count => x_msg_count,
304 p_data => x_msg_data
305 );
306
307 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
308 THEN
309 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
310 END IF;
311 END Update_LF_Object;
312 -- *****************************************************************************
313
314 PROCEDURE save_lf_object
315 ( p_api_version_number IN NUMBER,
316 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
317 p_commit IN VARCHAR2 := FND_API.G_FALSE,
318 p_profile_id IN NUMBER,
319 p_profile_name IN VARCHAR2,
320 p_profile_type IN VARCHAR2,
321 p_profile_attrib_tbl IN JTF_PERZ_PROFILE_PUB.PROFILE_ATTRIB_TBL_TYPE
322 := JTF_PERZ_PROFILE_PUB.G_MISS_PROFILE_ATTRIB_TBL,
323 p_application_id IN NUMBER,
324 p_parent_id IN NUMBER,
325 p_object_type_id IN NUMBER,
326 p_object_type IN VARCHAR2,
327 p_object_id IN NUMBER,
328 p_object_name IN VARCHAR2,
329 p_object_description IN VARCHAR2,
330 p_active_flag IN VARCHAR2,
331 p_attrib_value_tbl IN JTF_PERZ_LF_PUB.ATTRIB_VALUE_TBL_TYPE
332 := JTF_PERZ_LF_PUB.G_MISS_ATTRIB_VALUE_TBL,
333
334 x_object_id OUT NOCOPY /* file.sql.39 change */ NUMBER,
335 x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
336 x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
337 x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
338 )IS
339
340 -- ******* save_lf_object Local Variables ********
341 l_api_version_number NUMBER := p_api_version_number;
342 l_return_status VARCHAR2(60) := FND_API.G_RET_STS_SUCCESS;
343 l_api_name CONSTANT VARCHAR2(30) := 'Personalize LF Object';
344
345 BEGIN
346
347 -- ******* Standard Begins ********
348
349 -- Standard Start of API savepoint
350 SAVEPOINT PERSONALIZE_LF_OBJECT_PUB;
351
352 -- Standard call to check for call compatibility.
353 IF NOT FND_API.Compatible_API_Call ( l_api_version_number, p_api_version_number, l_api_name, G_PKG_NAME)
354 THEN
355 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
356 END IF;
357
358 -- Initialize message list if p_init_msg_list is set to TRUE.
359 IF FND_API.to_Boolean( p_init_msg_list )
360 THEN
361 FND_MSG_PUB.initialize;
362 END IF;
363
364 JTF_PERZ_LF_PVT.save_lf_object
365 ( p_api_version_number,
366 p_init_msg_list,
367 p_commit,
368 p_profile_id ,
369 p_profile_name,
370 p_profile_type,
371 p_profile_attrib_tbl,
372 p_application_id,
373 p_parent_id,
374 p_object_type_id,
375 p_object_type,
376 p_object_id,
377 p_object_name,
378 p_object_description,
379 p_active_flag ,
380 p_attrib_value_tbl,
381 x_object_id,
382 l_return_status,
383 x_msg_count,
384 x_msg_data
385 );
386
387 x_return_status := l_return_status;
388
389 -- update the description of the object, not being done in the PVT package !
390 if (l_return_status = FND_API.G_RET_STS_SUCCESS) then
391 UPDATE JTF_PERZ_LF_OBJECT SET OBJECT_DESCRIPTION = p_object_description WHERE OBJECT_ID = x_object_id;
392 end if;
393
394
395 -- ******** Standard Ends ***********
396 --
397 -- End of API body.
398 --
399
400 -- Standard check of p_commit.
401 IF FND_API.To_Boolean ( p_commit )
402 THEN
403 COMMIT WORK;
404 END IF;
405
406 -- Debug Message
407 -- Standard call to get message count and if count is 1, get message info.
408 FND_MSG_PUB.Count_And_Get
409 ( p_count => x_msg_count,
410 p_data => x_msg_data
411 );
412
413
414 EXCEPTION
415
416 WHEN FND_API.G_EXC_ERROR THEN
417
418 ROLLBACK TO PERSONALIZE_LF_OBJECT_PUB;
419 x_return_status := FND_API.G_RET_STS_ERROR ;
420
421 FND_MSG_PUB.Count_And_Get
422 ( p_count => x_msg_count,
423 p_data => x_msg_data
424 );
425
429 END IF;
426 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
427 THEN
428 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
430
431 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
432
433 ROLLBACK TO PERSONALIZE_LF_OBJECT_PUB;
434 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
435
436 FND_MSG_PUB.Count_And_Get
437 ( p_count => x_msg_count,
438 p_data => x_msg_data
439 );
440
441 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
442 THEN
443 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
444 END IF;
445
446 WHEN OTHERS THEN
447
448 ROLLBACK TO PERSONALIZE_LF_OBJECT_PUB;
449 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
450
451 FND_MSG_PUB.Count_And_Get
452 ( p_count => x_msg_count,
453 p_data => x_msg_data
454 );
455
456 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
457 THEN
458 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
459 END IF;
460 END save_lf_object;
461
462 -- ***************************************************************************
463 PROCEDURE Get_lf_object
464 ( p_api_version_number IN NUMBER,
465 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
466
467 p_application_id IN NUMBER,
468 p_priority IN NUMBER,
469 p_profile_id IN NUMBER,
470 p_profile_name IN VARCHAR2,
471 P_Object_Id IN NUMBER,
472 p_Object_Name IN VARCHAR,
473 p_obj_active_flag IN VARCHAR2,
474 p_get_children_flag IN VARCHAR2,
475 x_Object_Tbl OUT NOCOPY /* file.sql.39 change */ JTF_PERZ_LF_PUB.LF_OBJECT_OUT_TBL_TYPE,
476 x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
477 x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
478 x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
479 )IS
480 l_api_version_number NUMBER := p_api_version_number;
481 l_return_status VARCHAR2(60) := FND_API.G_RET_STS_SUCCESS;
482 l_api_name CONSTANT VARCHAR2(30) := 'Personalize LF Object';
483
484 BEGIN
485
486 -- ******* Standard Begins ********
487
488 -- Standard call to check for call compatibility.
489 IF NOT FND_API.Compatible_API_Call ( l_api_version_number, p_api_version_number, l_api_name, G_PKG_NAME)
490 THEN
491 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
492 END IF;
493
494 -- Initialize message list if p_init_msg_list is set to TRUE.
495 IF FND_API.to_Boolean( p_init_msg_list )
496 THEN
497 FND_MSG_PUB.initialize;
498 END IF;
499
500
501
502 -- ******* Get_lf_object implementation ********
503
504 JTF_PERZ_LF_PVT.Get_lf_object
505 ( p_api_version_number,
506 p_init_msg_list,
507 p_application_id,
508 p_priority,
509 p_profile_id,
510 p_profile_name,
511 P_Object_Id,
512 p_Object_Name,
513 p_obj_active_flag,
514 p_get_children_flag,
515 x_Object_Tbl,
516 l_return_status,
517 x_msg_count,
518 x_msg_data
519 );
520
521 x_return_status := l_return_status;
522
523 END Get_lf_object;
524
525
526 -- ***************************************************************************
527 PROCEDURE save_lf_object_type
528 ( p_api_version_number IN NUMBER,
529 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
530 p_commit IN VARCHAR2 := FND_API.G_FALSE,
531
532 p_object_type_id IN NUMBER,
533 p_object_type IN VARCHAR2,
534 p_object_type_desc IN VARCHAR2,
535
536 p_attrib_rec_tbl IN JTF_PERZ_LF_PUB.ATTRIB_REC_TBL_TYPE
537 := JTF_PERZ_LF_PUB.G_MISS_ATTRIB_REC_TBL,
538
539 x_object_type_id OUT NOCOPY /* file.sql.39 change */ NUMBER,
540 x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
541 x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
542 x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
543 )IS
544
545 -- ******* save_lf_object Local Variables ********
546 l_api_version_number NUMBER := p_api_version_number;
547 l_return_status VARCHAR2(60) := FND_API.G_RET_STS_SUCCESS;
548 l_api_name CONSTANT VARCHAR2(30) := 'Personalize LF Object';
549
550 l_obj_type_map_tbl JTF_PERZ_LF_PVT.OBJ_TYPE_MAP_TBL_TYPE;
551 BEGIN
552
553 -- ******* Standard Begins ********
554
555 -- Standard Start of API savepoint
556 SAVEPOINT save_lf_object_type;
557
558 -- Standard call to check for call compatibility.
559 IF NOT FND_API.Compatible_API_Call ( l_api_version_number, p_api_version_number, l_api_name, G_PKG_NAME)
560 THEN
561 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
562 END IF;
563
564 -- Initialize message list if p_init_msg_list is set to TRUE.
565 IF FND_API.to_Boolean( p_init_msg_list )
566 THEN
567 FND_MSG_PUB.initialize;
568 END IF;
569
570 JTF_PERZ_LF_PVT.save_lf_object_type
574 p_object_type_id,
571 ( p_api_version_number,
572 p_init_msg_list,
573 p_commit,
575 p_object_type,
576 p_object_type_desc,
577 p_attrib_rec_tbl,
578 x_object_type_id,
579 l_obj_type_map_tbl,
580 l_return_status,
581 x_msg_count,
582 x_msg_data
583 );
584
585 x_return_status := l_return_status;
586
587 -- ******** Standard Ends ***********
588 --
589 -- End of API body.
590 --
591
592 -- Standard check of p_commit.
593 IF FND_API.To_Boolean ( p_commit )
594 THEN
595 COMMIT WORK;
596 END IF;
597
598 -- Debug Message
599 -- Standard call to get message count and if count is 1, get message info.
600 FND_MSG_PUB.Count_And_Get
601 ( p_count => x_msg_count,
602 p_data => x_msg_data
603 );
604
605
606 EXCEPTION
607
608 WHEN FND_API.G_EXC_ERROR THEN
609
610 ROLLBACK TO save_lf_object_type;
611 x_return_status := FND_API.G_RET_STS_ERROR ;
612
613 FND_MSG_PUB.Count_And_Get
614 ( p_count => x_msg_count,
615 p_data => x_msg_data
616 );
617
618 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
619 THEN
620 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
621 END IF;
622
623 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
624
625 ROLLBACK TO save_lf_object_type;
626 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
627
628 FND_MSG_PUB.Count_And_Get
629 ( p_count => x_msg_count,
630 p_data => x_msg_data
631 );
632
633 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
634 THEN
635 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
636 END IF;
637
638 WHEN OTHERS THEN
639
640 ROLLBACK TO save_lf_object_type;
641 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
642
643 FND_MSG_PUB.Count_And_Get
644 ( p_count => x_msg_count,
645 p_data => x_msg_data
646 );
647
648 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
649 THEN
650 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
651 END IF;
652 END save_lf_object_type;
653 -- ***************************************************************************
654 PROCEDURE Get_lf_object_type
655 ( p_api_version_number IN NUMBER,
656 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
657
658 p_Object_type IN VARCHAR,
659 p_Object_type_Id IN NUMBER,
660
661 x_Object_type_Id OUT NOCOPY /* file.sql.39 change */ NUMBER,
662 x_object_type_desc OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
663
664 x_attrib_rec_tbl OUT NOCOPY /* file.sql.39 change */ JTF_PERZ_LF_PUB.ATTRIB_REC_TBL_TYPE,
665
666 x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
667 x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
668 x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
669 )IS
670 l_api_version_number NUMBER := p_api_version_number;
671 l_return_status VARCHAR2(60) := FND_API.G_RET_STS_SUCCESS;
672 l_api_name CONSTANT VARCHAR2(30) := 'Personalize LF Object';
673
674 BEGIN
675
676 -- ******* Standard Begins ********
677
678 -- Standard call to check for call compatibility.
679 IF NOT FND_API.Compatible_API_Call ( l_api_version_number, p_api_version_number, l_api_name, G_PKG_NAME)
680 THEN
681 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
682 END IF;
683
684 -- Initialize message list if p_init_msg_list is set to TRUE.
685 IF FND_API.to_Boolean( p_init_msg_list )
686 THEN
687 FND_MSG_PUB.initialize;
688 END IF;
689
690
691
692
693 -- ******* Get_lf_object_type implementation ********
694
695 JTF_PERZ_LF_PVT.Get_lf_object_type
696 ( p_api_version_number,
697 p_init_msg_list,
698 p_object_type,
699 p_object_type_id,
700 x_object_type_id,
701 x_object_type_desc,
702 x_attrib_rec_tbl,
703 l_return_status,
704 x_msg_count,
705 x_msg_data
706 );
707
708 x_return_status := l_return_status;
709 END Get_lf_object_type;
710 END JTF_PERZ_LF_PUB ;