1: package body FND_PROFILE_SERVER as
2: /* $Header: AFPFPRSB.pls 115.0 99/07/16 23:25:46 porting ship $ */
3:
4: /*
5: ** PUT - sets a profile option to a value for this session,
7: */
8: procedure PUT(NAME in varchar2, VAL in varchar2)
9: is
10: begin
11: fnd_profile.put(name, val);
12: end PUT;
13:
14: /*
15: ** DEFINED - returns TRUE if a profile option has been stored
16: */
17: function DEFINED(NAME in varchar2) return boolean
18: is
19: begin
20: return(fnd_profile.defined(name));
21: end DEFINED;
22:
23: /*
24: ** GET - gets the value of a profile option
25: */
26: procedure GET(NAME in varchar2, VAL out varchar2)
27: is
28: begin
29: fnd_profile.get(name, val);
30: end GET;
31:
32: /*
33: ** VALUE - returns the value of a profile options
34: */
35: function VALUE(NAME in varchar2) return varchar2
36: is
37: begin
38: return(fnd_profile.value(name));
39: end VALUE;
40:
41: /*
42: ** VALUE_WNPS - returns the value of a profile option without caching it.
57: */
58: function VALUE_WNPS(NAME in varchar2) return varchar2
59: is
60: begin
61: return(fnd_profile.value_wnps(name));
62: end VALUE_WNPS;
63:
64:
65: /*
79: X_VALUE in varchar2 /* Profile value you are setting */
80: ) return boolean
81: is
82: begin
83: return(fnd_profile.save_user(x_name, x_value));
84: end SAVE_USER;
85:
86: /*
87: ** SAVE - sets the value of a profile option permanently
89: ** at runtime or during patching. This routine will not
90: ** actually commit the changes; the caller must commit.
91: ** ('SITE', 'APPL', 'RESP', or 'USER').
92: ** Examples of use:
93: ** FND_PROFILE.SAVE('P_NAME', 'P_VAL', 'SITE');
94: ** FND_PROFILE.SAVE('P_NAME', 'P_VAL', 'APPL', 321532);
95: ** FND_PROFILE.SAVE('P_NAME', 'P_VAL', 'RESP', 321532, 345234);
96: ** FND_PROFILE.SAVE('P_NAME', 'P_VAL', 'USER', 123321);
97: **
90: ** actually commit the changes; the caller must commit.
91: ** ('SITE', 'APPL', 'RESP', or 'USER').
92: ** Examples of use:
93: ** FND_PROFILE.SAVE('P_NAME', 'P_VAL', 'SITE');
94: ** FND_PROFILE.SAVE('P_NAME', 'P_VAL', 'APPL', 321532);
95: ** FND_PROFILE.SAVE('P_NAME', 'P_VAL', 'RESP', 321532, 345234);
96: ** FND_PROFILE.SAVE('P_NAME', 'P_VAL', 'USER', 123321);
97: **
98: ** returns: TRUE if successful, FALSE if failure.
91: ** ('SITE', 'APPL', 'RESP', or 'USER').
92: ** Examples of use:
93: ** FND_PROFILE.SAVE('P_NAME', 'P_VAL', 'SITE');
94: ** FND_PROFILE.SAVE('P_NAME', 'P_VAL', 'APPL', 321532);
95: ** FND_PROFILE.SAVE('P_NAME', 'P_VAL', 'RESP', 321532, 345234);
96: ** FND_PROFILE.SAVE('P_NAME', 'P_VAL', 'USER', 123321);
97: **
98: ** returns: TRUE if successful, FALSE if failure.
99: **
92: ** Examples of use:
93: ** FND_PROFILE.SAVE('P_NAME', 'P_VAL', 'SITE');
94: ** FND_PROFILE.SAVE('P_NAME', 'P_VAL', 'APPL', 321532);
95: ** FND_PROFILE.SAVE('P_NAME', 'P_VAL', 'RESP', 321532, 345234);
96: ** FND_PROFILE.SAVE('P_NAME', 'P_VAL', 'USER', 123321);
97: **
98: ** returns: TRUE if successful, FALSE if failure.
99: **
100: */
111: /* Resp Application_Dd. */
112: ) return boolean
113: is
114: begin
115: return(fnd_profile.save(x_name, x_value, x_level_name, x_level_value,
116: x_level_value_app_id));
117: end SAVE;
118:
119: /*
127: VAL_Z out varchar2,
128: DEFINED_Z out boolean)
129: is
130: begin
131: fnd_profile.get_specific(name_z, user_id_z, responsibility_id_z,
132: application_id_z, val_z, defined_z);
133: end GET_SPECIFIC;
134:
135:
143: APPLICATION_ID in number default null)
144: return varchar2
145: is
146: begin
147: return(fnd_profile.value_specific(name, user_id,
148: responsibility_id, application_id));
149: end VALUE_SPECIFIC;
150:
151: end FND_PROFILE_SERVER;
147: return(fnd_profile.value_specific(name, user_id,
148: responsibility_id, application_id));
149: end VALUE_SPECIFIC;
150:
151: end FND_PROFILE_SERVER;