105: option_value out varchar2 ,
106: defined out boolean ) is
107: cursor c1 is
108: select V.PROFILE_OPTION_VALUE
109: from FND_PROFILE_OPTIONS O, FND_PROFILE_OPTION_VALUES V
110: where O.PROFILE_OPTION_NAME = option_name
111: and V.LEVEL_ID = 10003 and V.LEVEL_VALUE = to_char(resp_id)
112: and V.LEVEL_VALUE_APPLICATION_ID = to_char(appl_id)
113: and O.PROFILE_OPTION_ID = V.PROFILE_OPTION_ID
123: end get_resp_level ;
124:
125: --
126: -- Gets the Application Level setting of the given profile option
127: -- Note that the GET_ functions in the FND_PROFILE package does
128: -- not detect whether the profile option is set already
129: --
130: procedure get_app_level ( option_name in varchar2,
131: appl_id in number,
132: option_value out varchar2 ,
133: defined out boolean ) is
134: cursor c1 is
135: select V.PROFILE_OPTION_VALUE
136: from FND_PROFILE_OPTIONS O, FND_PROFILE_OPTION_VALUES V
137: where O.PROFILE_OPTION_NAME = option_name
138: and V.LEVEL_ID = 10002 and V.LEVEL_VALUE = to_char(appl_id)
139: and O.PROFILE_OPTION_ID = V.PROFILE_OPTION_ID
140: and O.APPLICATION_ID = V.APPLICATION_ID ;
157: -- security profile is not then set the security profile to be the
158: -- view all profile associated with that business group.
159: --
160:
161: l_site_value := fnd_profile.value_specific(name =>'PER_BUSINESS_GROUP_ID');
162:
163: if l_site_value is not null then
164:
165: get_details ( p_bg_id => l_site_value , p_output => bg_profile ) ;
163: if l_site_value is not null then
164:
165: get_details ( p_bg_id => l_site_value , p_output => bg_profile ) ;
166:
167: l_site_value := fnd_profile.value_specific(
168: name=>'PER_SECURITY_PROFILE_ID');
169: output_line('Site Level :business group profile is '||
170: bg_profile.bg_name) ;
171:
171:
172: if ( l_site_value is null or l_site_value = 0 ) then
173:
174: output_line('Setting site level security profile',true) ;
175: if NOT fnd_profile.save ( 'PER_SECURITY_PROFILE_ID',
176: bg_profile.security_profile_id,
177: 'SITE' )
178: then
179: raise_error('ERROR - Setting Security Profile at SITE level') ;
247: --
248:
249: output_line( 'Setting Business Group profile for resp '||
250: rpad(resp.responsibility_name,30),true) ;
251: if NOT fnd_profile.save ( 'PER_BUSINESS_GROUP_ID',
252: l_appl_value,
253: 'RESP',
254: resp.responsibility_id,
255: rec.application_id )
284: else
285:
286: output_line( 'Setting Security Profile for Resp '||
287: rpad(resp.responsibility_name,30),true) ;
288: if NOT fnd_profile.save ( 'PER_SECURITY_PROFILE_ID',
289: bg_profile.security_profile_id,
290: 'RESP',
291: resp.responsibility_id,
292: rec.application_id )
307: if ( l_appl_defined = true ) then
308:
309: output_line('Clearing Application level Business Group profile '
310: ||'option value',true);
311: if NOT fnd_profile.save ('PER_BUSINESS_GROUP_ID',
312: NULL,
313: 'APPL',
314: rec.application_id )
315: then