[Home] [Help]
PACKAGE BODY: APPS.PER_RI_ADI_WRAPPER_PKG
Source
1 Package Body per_ri_adi_wrapper_pkg As
2 /* $Header: periwrap.pkb 120.0 2005/05/31 18:10:24 appldev noship $ */
3 procedure up_vset_value
4 (p_upload_phase In Varchar2,
5 p_upload_mode In Varchar2,
6 p_custom_mode In Varchar2 Default Null,
7 p_flex_value_set_name In Varchar2,
8 p_parent_flex_value_low In Varchar2,
9 p_flex_value In Varchar2,
10 p_owner In Varchar2,
11 p_last_update_date In Varchar2 Default Null,
12 p_enabled_flag In Varchar2,
13 p_summary_flag In Varchar2,
14 p_start_date_active In Varchar2,
15 p_end_date_active In Varchar2,
16 p_parent_flex_value_high In Varchar2,
17 p_rollup_hierarchy_code In Varchar2,
18 p_hierarchy_level In Varchar2,
19 p_compiled_value_attributes In Varchar2,
20 p_value_category In Varchar2,
21 p_attribute1 In Varchar2,
22 p_attribute2 In Varchar2,
23 p_attribute3 In Varchar2,
24 p_attribute4 In Varchar2,
25 p_attribute5 In Varchar2,
26 p_attribute6 In Varchar2,
27 p_attribute7 In Varchar2,
28 p_attribute8 In Varchar2,
29 p_attribute9 In Varchar2,
30 p_attribute10 In Varchar2,
31 p_attribute11 In Varchar2,
32 p_attribute12 In Varchar2,
33 p_attribute13 In Varchar2,
34 p_attribute14 In Varchar2,
35 p_attribute15 In Varchar2,
36 p_attribute16 In Varchar2,
37 p_attribute17 In Varchar2,
38 p_attribute18 In Varchar2,
39 p_attribute19 In Varchar2,
40 p_attribute20 In Varchar2,
41 p_attribute21 In Varchar2,
42 p_attribute22 In Varchar2,
43 p_attribute23 In Varchar2,
44 p_attribute24 In Varchar2,
45 p_attribute25 In Varchar2,
46 p_attribute26 In Varchar2,
47 p_attribute27 In Varchar2,
48 p_attribute28 In Varchar2,
49 p_attribute29 In Varchar2,
50 p_attribute30 In Varchar2,
51 p_attribute31 In Varchar2,
52 p_attribute32 In Varchar2,
53 p_attribute33 In Varchar2,
54 p_attribute34 In Varchar2,
55 p_attribute35 In Varchar2,
56 p_attribute36 In Varchar2,
57 p_attribute37 In Varchar2,
58 p_attribute38 In Varchar2,
59 p_attribute39 In Varchar2,
60 p_attribute40 In Varchar2,
61 p_attribute41 In Varchar2,
62 p_attribute42 In Varchar2,
63 p_attribute43 In Varchar2,
64 p_attribute44 In Varchar2,
65 p_attribute45 In Varchar2,
66 p_attribute46 In Varchar2,
67 p_attribute47 In Varchar2,
68 p_attribute48 In Varchar2,
69 p_attribute49 In Varchar2,
70 p_attribute50 In Varchar2,
71 p_flex_value_meaning In Varchar2,
72 p_description In Varchar2) Is
73
74
75 Cursor csr_value_set_info Is
76
77 Select format_type, maximum_size, number_precision,alphanumeric_allowed_flag,
78 uppercase_only_flag, numeric_mode_enabled_flag,
79 minimum_value, maximum_value
80 From fnd_flex_value_sets
81 Where flex_value_set_name = p_flex_value_set_name ;
82
83 l_format_type varchar2(1) ;
84 l_maximum_size number(3);
85 l_number_precision number(2);
86 l_alphanumeric_allowed_flag varchar2(1);
87 l_uppercase_only_flag varchar2(1);
88 l_numeric_mode_enabled_flag varchar2(1);
89 l_minimum_value varchar2(150);
90 l_maximum_value varchar2(150);
91 l_storage_value Varchar2(2000);
92 l_display_value Varchar2(2000);
93 l_error_message Varchar2(2000);
94 l_success Boolean;
95
96 Begin
97
98
99 Open csr_value_set_info ;
100 Fetch csr_value_set_info Into l_format_type,l_maximum_size,l_number_precision,l_alphanumeric_allowed_flag,
101 l_uppercase_only_flag,l_numeric_mode_enabled_flag,l_minimum_value,l_maximum_value;
102 Close csr_value_set_info;
103
104
105 fnd_flex_val_util.validate_value
106 ( p_value => p_flex_value
107 ,p_is_displayed => True
108 ,p_vset_name => p_flex_value_set_name
109 ,p_vset_format => l_format_type
110 ,p_max_length => l_maximum_size
111 ,p_precision => l_number_precision
112 ,p_alpha_allowed => l_alphanumeric_allowed_flag
113 ,p_uppercase_only => l_uppercase_only_flag
114 ,p_zero_fill => l_numeric_mode_enabled_flag
115 ,p_min_value => l_minimum_value
116 ,p_max_value => l_maximum_value
117 ,x_storage_value => l_storage_value
118 ,x_display_value => l_display_value
119 ,x_success => l_success);
120
121 If l_success Then
122
123
124 fnd_flex_loader_apis.up_vset_value
125 ( p_upload_phase => p_upload_phase
126 ,p_upload_mode => p_upload_mode
127 ,p_custom_mode => 'FORCE'
128 ,p_flex_value_set_name => p_flex_value_set_name
129 ,p_parent_flex_value_low => p_parent_flex_value_low
130 ,p_flex_value => l_storage_value
131 ,p_owner => fnd_load_util.owner_name(p_owner)
132 ,p_last_update_date => p_last_update_date
133 ,p_enabled_flag => p_enabled_flag
134 ,p_summary_flag => p_summary_flag
135 ,p_start_date_active => p_start_date_active
136 ,p_end_date_active => p_end_date_active
137 ,p_parent_flex_value_high => p_parent_flex_value_high
138 ,p_rollup_hierarchy_code => p_rollup_hierarchy_code
139 ,p_hierarchy_level => p_hierarchy_level
140 ,p_compiled_value_attributes => p_compiled_value_attributes
141 ,p_value_category => p_value_category
142 ,p_attribute1 => p_attribute1
143 ,p_attribute2 => p_attribute2
144 ,p_attribute3 => p_attribute3
145 ,p_attribute4 => p_attribute4
146 ,p_attribute5 => p_attribute5
147 ,p_attribute6 => p_attribute6
148 ,p_attribute7 => p_attribute7
149 ,p_attribute8 => p_attribute8
150 ,p_attribute9 => p_attribute9
151 ,p_attribute10 => p_attribute10
152 ,p_attribute11 => p_attribute11
153 ,p_attribute12 => p_attribute12
154 ,p_attribute13 => p_attribute13
155 ,p_attribute14 => p_attribute14
156 ,p_attribute15 => p_attribute15
157 ,p_attribute16 => p_attribute16
158 ,p_attribute17 => p_attribute17
159 ,p_attribute18 => p_attribute18
160 ,p_attribute19 => p_attribute19
161 ,p_attribute20 => p_attribute20
162 ,p_attribute21 => p_attribute21
163 ,p_attribute22 => p_attribute22
164 ,p_attribute23 => p_attribute23
165 ,p_attribute24 => p_attribute24
166 ,p_attribute25 => p_attribute25
167 ,p_attribute26 => p_attribute26
168 ,p_attribute27 => p_attribute27
169 ,p_attribute28 => p_attribute28
170 ,p_attribute29 => p_attribute29
171 ,p_attribute30 => p_attribute30
172 ,p_attribute31 => p_attribute31
173 ,p_attribute32 => p_attribute32
174 ,p_attribute33 => p_attribute33
175 ,p_attribute34 => p_attribute34
176 ,p_attribute35 => p_attribute35
177 ,p_attribute36 => p_attribute36
178 ,p_attribute37 => p_attribute37
179 ,p_attribute38 => p_attribute38
180 ,p_attribute39 => p_attribute39
181 ,p_attribute40 => p_attribute40
182 ,p_attribute41 => p_attribute41
183 ,p_attribute42 => p_attribute42
184 ,p_attribute43 => p_attribute43
185 ,p_attribute44 => p_attribute44
186 ,p_attribute45 => p_attribute45
187 ,p_attribute46 => p_attribute46
188 ,p_attribute47 => p_attribute47
189 ,p_attribute48 => p_attribute48
190 ,p_attribute49 => p_attribute49
191 ,p_attribute50 => p_attribute50
192 ,p_flex_value_meaning => l_display_value
193 ,p_description => p_description
194 );
195 End If;
196
197 End up_vset_value;
198
199 Procedure create_organization(p_batch_id Number
200 ,p_data_pump_batch_line_id Number Default Null
201 ,p_user_sequence Number Default Null
202 ,p_link_value Number Default Null
203 ,p_effective_date Date
204 ,p_language_code Varchar2 Default Null
205 ,p_date_from Date
206 ,p_name Varchar2
207 ,p_date_to Date Default Null
208 ,p_internal_external_flag Varchar2 Default Null
212 ,p_attribute1 Varchar2 Default Null
209 ,p_internal_address_line Varchar2 Default Null
210 ,p_type Varchar2 Default Null
211 ,p_attribute_category Varchar2 Default Null
213 ,p_attribute2 Varchar2 Default Null
214 ,p_attribute3 Varchar2 Default Null
215 ,p_attribute4 Varchar2 Default Null
216 ,p_attribute5 Varchar2 Default Null
217 ,p_attribute6 Varchar2 Default Null
218 ,p_attribute7 Varchar2 Default Null
219 ,p_attribute8 Varchar2 Default Null
220 ,p_attribute9 Varchar2 Default Null
221 ,p_attribute10 Varchar2 Default Null
222 ,p_attribute11 Varchar2 Default Null
223 ,p_attribute12 Varchar2 Default Null
224 ,p_attribute13 Varchar2 Default Null
225 ,p_attribute14 Varchar2 Default Null
226 ,p_attribute15 Varchar2 Default Null
227 ,p_attribute16 Varchar2 Default Null
228 ,p_attribute17 Varchar2 Default Null
229 ,p_attribute18 Varchar2 Default Null
230 ,p_attribute19 Varchar2 Default Null
231 ,p_attribute20 Varchar2 Default Null
232 ,p_org_user_key Varchar2 Default Null
233 ,p_location_code Varchar2 Default Null
234 ,p_org_classification1 Varchar2 Default Null
235 ,p_org_classification2 Varchar2 Default Null
236 ,p_org_classification3 Varchar2 Default Null
237 ,p_org_classification4 Varchar2 Default Null
238 ,p_org_classification5 Varchar2 Default Null
239 ) Is
240
241 Type org_class Is VARRAY(5) Of Varchar2(60) ;
242 Type batch_line_ids Is Table of Number Index By Binary_Integer;
243
244 l_org_class org_class := org_class(p_org_classification1,p_org_classification2,p_org_classification3,p_org_classification4,p_org_classification5);
245
246 l_batch_line_id batch_line_ids;
247
248
249 Begin
250
251
252 If p_data_pump_batch_line_id Is Not Null Then
253
254 l_batch_line_id(1) := substr(p_data_pump_batch_line_id,0,instr(p_data_pump_batch_line_id,'X',1,1)-1);
255 l_batch_line_id(2) := substr(p_data_pump_batch_line_id,instr(p_data_pump_batch_line_id,'X',1,1)+1,instr(p_data_pump_batch_line_id,'X',1,2)-instr(p_data_pump_batch_line_id,'X',1,1)-1);
256 l_batch_line_id(3) := substr(p_data_pump_batch_line_id,instr(p_data_pump_batch_line_id,'X',1,2)+1,instr(p_data_pump_batch_line_id,'X',1,3)-instr(p_data_pump_batch_line_id,'X',1,2)-1);
257 l_batch_line_id(4) := substr(p_data_pump_batch_line_id,instr(p_data_pump_batch_line_id,'X',1,3)+1,instr(p_data_pump_batch_line_id,'X',1,4)-instr(p_data_pump_batch_line_id,'X',1,3)-1);
258 l_batch_line_id(5) := substr(p_data_pump_batch_line_id,instr(p_data_pump_batch_line_id,'X',1,4)+1,instr(p_data_pump_batch_line_id,'X',1,5)-instr(p_data_pump_batch_line_id,'X',1,4)-1);
259
260 End If;
261
262
263 hrdpp_create_organization.insert_batch_lines(p_batch_id => p_batch_id
264 ,p_data_pump_batch_line_id => p_data_pump_batch_line_id
265 ,p_user_sequence => p_user_sequence
266 ,p_link_value => p_link_value
267 ,p_effective_date => p_effective_date
268 ,p_language_code => p_language_code
269 ,p_date_from => p_date_from
270 ,p_name => p_name
271 ,p_date_to => p_date_to
272 ,p_internal_external_flag => p_internal_external_flag
273 ,p_internal_address_line => p_internal_address_line
274 ,p_type => p_type
275 ,p_attribute_category => p_attribute_category
276 ,p_attribute1 => p_attribute1
277 ,p_attribute2 => p_attribute2
278 ,p_attribute3 => p_attribute3
279 ,p_attribute4 => p_attribute4
280 ,p_attribute5 => p_attribute5
281 ,p_attribute6 => p_attribute6
282 ,p_attribute7 => p_attribute7
283 ,p_attribute8 => p_attribute8
284 ,p_attribute9 => p_attribute9
285 ,p_attribute10 => p_attribute10
286 ,p_attribute11 => p_attribute11
287 ,p_attribute12 => p_attribute12
291 ,p_attribute16 => p_attribute16
288 ,p_attribute13 => p_attribute13
289 ,p_attribute14 => p_attribute14
290 ,p_attribute15 => p_attribute15
292 ,p_attribute17 => p_attribute17
293 ,p_attribute18 => p_attribute18
294 ,p_attribute19 => p_attribute19
295 ,p_attribute20 => p_attribute20
296 ,p_org_user_key => p_org_user_key
297 ,p_location_code => p_location_code
298 );
299
300 For x in 1..5 Loop
301
302 If l_org_class(x) Is Not Null Then
303
304 hrdpp_create_org_classificatio.insert_batch_lines(
305 p_batch_id => p_batch_id
306 ,p_data_pump_batch_line_id => p_data_pump_batch_line_id
307 ,p_user_sequence => p_user_sequence
308 ,p_link_value => p_link_value
309 ,p_effective_date => p_effective_date
310 ,p_org_classif_code => l_org_class(x)
311 ,p_organization_name => p_name
312 ,p_language_code => p_language_code
313 );
314
315 End If;
316
317 End Loop;
318
319
320 End create_organization;
321
322 End per_ri_adi_wrapper_pkg;