PACKAGE BODY: APPS.IBU_FNDPROFILE

Source

1 package body IBU_FNDPROFILE as
2 /* $Header: ibufndpb.pls 115.4 2002/11/26 03:30:23 nazhou noship $ */
3 
4 procedure GET_SPECIFIC (
5 	name_z              in varchar2,
6         user_id_z           in number,
7         responsibility_id_z in number,
8         application_id_z    in number,
9         val_z               out nocopy varchar2,
10         defined_z           out nocopy varchar2)
11 is
12 	defined_boolean_z   boolean;
13 begin
14 	FND_PROFILE.GET_SPECIFIC (
15 	name_z => name_z,
16 	user_id_z => user_id_z,
17 	responsibility_id_z =>responsibility_id_z,
18 	application_id_z => application_id_z ,
19 	val_z => val_z,
20 	defined_z => defined_boolean_z);
21 
22 	if (defined_boolean_z) then
23 		defined_z := FND_API.G_TRUE;
24 	else
25 		defined_z := FND_API.G_FALSE;
26 	end if;
27 
28 end GET_SPECIFIC;
29 function  SAVE (
30 	 X_NAME		    in varchar2,
31 	 X_VALUE	    in varchar2,
32 	 X_LEVEL_NAME 	    in varchar2,
33 	 X_LEVEL_VALUE	     in varchar2,
34  	 X_LEVEL_VALUE_APP_ID in varchar2)
35 	return varchar2
36 is
37 	 l_success_boolean   boolean;
38 begin
39 
40 	l_success_boolean := FND_PROFILE.SAVE (
41 	 X_NAME => X_NAME,
42 	 X_VALUE =>  X_VALUE,
43 	 X_LEVEL_NAME => X_LEVEL_NAME,
44 	 X_LEVEL_VALUE=>  X_LEVEL_VALUE,
45  	 X_LEVEL_VALUE_APP_ID => X_LEVEL_VALUE_APP_ID);
46 
47 	if (l_success_boolean) then
48 		return FND_API.G_TRUE;
49 	else
50 		return FND_API.G_FALSE;
51 	end if;
52 
53 
54 end SAVE;
55 end IBU_FNDPROFILE;