[Home] [Help]
PACKAGE BODY: APPS.PV_PROCESS_RULES_PUB_W
Source
1 package body pv_process_rules_pub_w as
2 /* $Header: pvrwprub.pls 120.1 2005/09/07 12:03:11 appldev ship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5
6 function rosetta_g_miss_num_map(n number) return number as
7 a number := fnd_api.g_miss_num;
8 b number := 0-1962.0724;
9 begin
10 if n=a then return b; end if;
11 if n=b then return a; end if;
12 return n;
13 end;
14
15 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
16 function rosetta_g_miss_date_in_map(d date) return date as
17 begin
18 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
19 return d;
20 end;
21
22 procedure create_process_rules(p_api_version_number NUMBER
23 , p_init_msg_list VARCHAR2
24 , p_commit VARCHAR2
25 , p_validation_level NUMBER
26 , p_identity_resource_id NUMBER
27 , x_process_rule_id out nocopy NUMBER
28 , x_return_status out nocopy VARCHAR2
29 , x_msg_count out nocopy NUMBER
30 , x_msg_data out nocopy VARCHAR2
31 , p5_a0 NUMBER := 0-1962.0724
32 , p5_a1 DATE := fnd_api.g_miss_date
33 , p5_a2 NUMBER := 0-1962.0724
34 , p5_a3 DATE := fnd_api.g_miss_date
35 , p5_a4 NUMBER := 0-1962.0724
36 , p5_a5 NUMBER := 0-1962.0724
37 , p5_a6 NUMBER := 0-1962.0724
38 , p5_a7 NUMBER := 0-1962.0724
39 , p5_a8 NUMBER := 0-1962.0724
40 , p5_a9 NUMBER := 0-1962.0724
41 , p5_a10 DATE := fnd_api.g_miss_date
42 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
43 , p5_a12 NUMBER := 0-1962.0724
44 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
45 , p5_a14 NUMBER := 0-1962.0724
46 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
47 , p5_a16 DATE := fnd_api.g_miss_date
48 , p5_a17 DATE := fnd_api.g_miss_date
49 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
50 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
51 , p5_a20 NUMBER := 0-1962.0724
52 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
53 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
54 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
55 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
56 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
57 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
58 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
59 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
60 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
61 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
62 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
63 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
64 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
65 , p5_a34 VARCHAR2 := fnd_api.g_miss_char
66 , p5_a35 VARCHAR2 := fnd_api.g_miss_char
67 , p5_a36 VARCHAR2 := fnd_api.g_miss_char
68 , p5_a37 VARCHAR2 := fnd_api.g_miss_char
69 , p5_a38 VARCHAR2 := fnd_api.g_miss_char
70 , p5_a39 VARCHAR2 := fnd_api.g_miss_char
71 , p5_a40 VARCHAR2 := fnd_api.g_miss_char
72 )
73 as
74 ddp_rules_rec pv_rule_rectype_pub.rules_rec_type;
75 ddindx binary_integer; indx binary_integer;
76 begin
77
78 -- copy data to the local IN or IN-OUT args, if any
79
80
81
82
83
84 ddp_rules_rec.process_rule_id := rosetta_g_miss_num_map(p5_a0);
85 ddp_rules_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a1);
86 ddp_rules_rec.last_updated_by := rosetta_g_miss_num_map(p5_a2);
87 ddp_rules_rec.creation_date := rosetta_g_miss_date_in_map(p5_a3);
88 ddp_rules_rec.created_by := rosetta_g_miss_num_map(p5_a4);
89 ddp_rules_rec.last_update_login := rosetta_g_miss_num_map(p5_a5);
90 ddp_rules_rec.object_version_number := rosetta_g_miss_num_map(p5_a6);
91 ddp_rules_rec.request_id := rosetta_g_miss_num_map(p5_a7);
92 ddp_rules_rec.program_application_id := rosetta_g_miss_num_map(p5_a8);
93 ddp_rules_rec.program_id := rosetta_g_miss_num_map(p5_a9);
94 ddp_rules_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a10);
95 ddp_rules_rec.process_rule_name := p5_a11;
96 ddp_rules_rec.parent_rule_id := rosetta_g_miss_num_map(p5_a12);
97 ddp_rules_rec.process_type := p5_a13;
98 ddp_rules_rec.rank := rosetta_g_miss_num_map(p5_a14);
99 ddp_rules_rec.status_code := p5_a15;
100 ddp_rules_rec.start_date := rosetta_g_miss_date_in_map(p5_a16);
101 ddp_rules_rec.end_date := rosetta_g_miss_date_in_map(p5_a17);
102 ddp_rules_rec.action := p5_a18;
103 ddp_rules_rec.action_value := p5_a19;
104 ddp_rules_rec.owner_resource_id := rosetta_g_miss_num_map(p5_a20);
105 ddp_rules_rec.currency_code := p5_a21;
106 ddp_rules_rec.language := p5_a22;
107 ddp_rules_rec.source_lang := p5_a23;
108 ddp_rules_rec.description := p5_a24;
109 ddp_rules_rec.attribute_category := p5_a25;
110 ddp_rules_rec.attribute1 := p5_a26;
111 ddp_rules_rec.attribute2 := p5_a27;
112 ddp_rules_rec.attribute3 := p5_a28;
113 ddp_rules_rec.attribute4 := p5_a29;
114 ddp_rules_rec.attribute5 := p5_a30;
115 ddp_rules_rec.attribute6 := p5_a31;
116 ddp_rules_rec.attribute7 := p5_a32;
117 ddp_rules_rec.attribute8 := p5_a33;
118 ddp_rules_rec.attribute9 := p5_a34;
119 ddp_rules_rec.attribute10 := p5_a35;
120 ddp_rules_rec.attribute11 := p5_a36;
121 ddp_rules_rec.attribute12 := p5_a37;
122 ddp_rules_rec.attribute13 := p5_a38;
123 ddp_rules_rec.attribute14 := p5_a39;
124 ddp_rules_rec.attribute15 := p5_a40;
125
126
127
128
129
130 -- here's the delegated call to the old PL/SQL routine
131 pv_process_rules_pub.create_process_rules(p_api_version_number,
132 p_init_msg_list,
133 p_commit,
134 p_validation_level,
135 p_identity_resource_id,
136 ddp_rules_rec,
137 x_process_rule_id,
138 x_return_status,
139 x_msg_count,
140 x_msg_data);
141
142 -- copy data back from the local OUT or IN-OUT args, if any
143
144
145
146
147
148
149
150
151
152 end;
153
154 procedure update_process_rules(p_api_version_number NUMBER
155 , p_init_msg_list VARCHAR2
156 , p_commit VARCHAR2
157 , p_validation_level NUMBER
158 , p_identity_resource_id NUMBER
159 , x_return_status out nocopy VARCHAR2
160 , x_msg_count out nocopy NUMBER
161 , x_msg_data out nocopy VARCHAR2
162 , p5_a0 NUMBER := 0-1962.0724
163 , p5_a1 DATE := fnd_api.g_miss_date
164 , p5_a2 NUMBER := 0-1962.0724
165 , p5_a3 DATE := fnd_api.g_miss_date
166 , p5_a4 NUMBER := 0-1962.0724
167 , p5_a5 NUMBER := 0-1962.0724
168 , p5_a6 NUMBER := 0-1962.0724
169 , p5_a7 NUMBER := 0-1962.0724
170 , p5_a8 NUMBER := 0-1962.0724
171 , p5_a9 NUMBER := 0-1962.0724
172 , p5_a10 DATE := fnd_api.g_miss_date
173 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
174 , p5_a12 NUMBER := 0-1962.0724
175 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
176 , p5_a14 NUMBER := 0-1962.0724
177 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
178 , p5_a16 DATE := fnd_api.g_miss_date
179 , p5_a17 DATE := fnd_api.g_miss_date
180 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
181 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
182 , p5_a20 NUMBER := 0-1962.0724
183 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
184 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
185 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
186 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
187 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
188 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
189 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
190 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
191 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
192 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
193 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
194 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
195 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
196 , p5_a34 VARCHAR2 := fnd_api.g_miss_char
197 , p5_a35 VARCHAR2 := fnd_api.g_miss_char
198 , p5_a36 VARCHAR2 := fnd_api.g_miss_char
199 , p5_a37 VARCHAR2 := fnd_api.g_miss_char
200 , p5_a38 VARCHAR2 := fnd_api.g_miss_char
201 , p5_a39 VARCHAR2 := fnd_api.g_miss_char
202 , p5_a40 VARCHAR2 := fnd_api.g_miss_char
203 )
204 as
205 ddp_rules_rec pv_rule_rectype_pub.rules_rec_type;
206 ddindx binary_integer; indx binary_integer;
207 begin
208
209 -- copy data to the local IN or IN-OUT args, if any
210
211
212
213
214
215 ddp_rules_rec.process_rule_id := rosetta_g_miss_num_map(p5_a0);
216 ddp_rules_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a1);
217 ddp_rules_rec.last_updated_by := rosetta_g_miss_num_map(p5_a2);
218 ddp_rules_rec.creation_date := rosetta_g_miss_date_in_map(p5_a3);
219 ddp_rules_rec.created_by := rosetta_g_miss_num_map(p5_a4);
220 ddp_rules_rec.last_update_login := rosetta_g_miss_num_map(p5_a5);
221 ddp_rules_rec.object_version_number := rosetta_g_miss_num_map(p5_a6);
222 ddp_rules_rec.request_id := rosetta_g_miss_num_map(p5_a7);
223 ddp_rules_rec.program_application_id := rosetta_g_miss_num_map(p5_a8);
224 ddp_rules_rec.program_id := rosetta_g_miss_num_map(p5_a9);
225 ddp_rules_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a10);
226 ddp_rules_rec.process_rule_name := p5_a11;
227 ddp_rules_rec.parent_rule_id := rosetta_g_miss_num_map(p5_a12);
228 ddp_rules_rec.process_type := p5_a13;
229 ddp_rules_rec.rank := rosetta_g_miss_num_map(p5_a14);
230 ddp_rules_rec.status_code := p5_a15;
231 ddp_rules_rec.start_date := rosetta_g_miss_date_in_map(p5_a16);
232 ddp_rules_rec.end_date := rosetta_g_miss_date_in_map(p5_a17);
233 ddp_rules_rec.action := p5_a18;
234 ddp_rules_rec.action_value := p5_a19;
235 ddp_rules_rec.owner_resource_id := rosetta_g_miss_num_map(p5_a20);
236 ddp_rules_rec.currency_code := p5_a21;
237 ddp_rules_rec.language := p5_a22;
238 ddp_rules_rec.source_lang := p5_a23;
239 ddp_rules_rec.description := p5_a24;
240 ddp_rules_rec.attribute_category := p5_a25;
241 ddp_rules_rec.attribute1 := p5_a26;
242 ddp_rules_rec.attribute2 := p5_a27;
243 ddp_rules_rec.attribute3 := p5_a28;
244 ddp_rules_rec.attribute4 := p5_a29;
245 ddp_rules_rec.attribute5 := p5_a30;
246 ddp_rules_rec.attribute6 := p5_a31;
247 ddp_rules_rec.attribute7 := p5_a32;
248 ddp_rules_rec.attribute8 := p5_a33;
249 ddp_rules_rec.attribute9 := p5_a34;
250 ddp_rules_rec.attribute10 := p5_a35;
251 ddp_rules_rec.attribute11 := p5_a36;
252 ddp_rules_rec.attribute12 := p5_a37;
253 ddp_rules_rec.attribute13 := p5_a38;
254 ddp_rules_rec.attribute14 := p5_a39;
255 ddp_rules_rec.attribute15 := p5_a40;
256
257
258
259
260 -- here's the delegated call to the old PL/SQL routine
261 pv_process_rules_pub.update_process_rules(p_api_version_number,
262 p_init_msg_list,
263 p_commit,
264 p_validation_level,
265 p_identity_resource_id,
266 ddp_rules_rec,
267 x_return_status,
268 x_msg_count,
269 x_msg_data);
270
271 -- copy data back from the local OUT or IN-OUT args, if any
272
273
274
275
276
277
278
279
280 end;
281
282 procedure delete_process_rules(p_api_version_number NUMBER
283 , p_init_msg_list VARCHAR2
284 , p_commit VARCHAR2
285 , p_validation_level NUMBER
286 , p_identity_resource_id NUMBER
287 , x_return_status out nocopy VARCHAR2
288 , x_msg_count out nocopy NUMBER
289 , x_msg_data out nocopy VARCHAR2
290 , p5_a0 NUMBER := 0-1962.0724
291 , p5_a1 DATE := fnd_api.g_miss_date
292 , p5_a2 NUMBER := 0-1962.0724
293 , p5_a3 DATE := fnd_api.g_miss_date
294 , p5_a4 NUMBER := 0-1962.0724
295 , p5_a5 NUMBER := 0-1962.0724
296 , p5_a6 NUMBER := 0-1962.0724
297 , p5_a7 NUMBER := 0-1962.0724
298 , p5_a8 NUMBER := 0-1962.0724
299 , p5_a9 NUMBER := 0-1962.0724
300 , p5_a10 DATE := fnd_api.g_miss_date
301 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
302 , p5_a12 NUMBER := 0-1962.0724
303 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
304 , p5_a14 NUMBER := 0-1962.0724
305 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
306 , p5_a16 DATE := fnd_api.g_miss_date
307 , p5_a17 DATE := fnd_api.g_miss_date
308 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
309 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
310 , p5_a20 NUMBER := 0-1962.0724
311 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
312 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
313 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
314 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
315 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
316 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
317 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
318 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
319 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
320 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
321 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
322 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
323 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
324 , p5_a34 VARCHAR2 := fnd_api.g_miss_char
325 , p5_a35 VARCHAR2 := fnd_api.g_miss_char
326 , p5_a36 VARCHAR2 := fnd_api.g_miss_char
327 , p5_a37 VARCHAR2 := fnd_api.g_miss_char
328 , p5_a38 VARCHAR2 := fnd_api.g_miss_char
329 , p5_a39 VARCHAR2 := fnd_api.g_miss_char
330 , p5_a40 VARCHAR2 := fnd_api.g_miss_char
331 )
332 as
333 ddp_rules_rec pv_rule_rectype_pub.rules_rec_type;
334 ddindx binary_integer; indx binary_integer;
335 begin
336
337 -- copy data to the local IN or IN-OUT args, if any
338
339
340
341
342
343 ddp_rules_rec.process_rule_id := rosetta_g_miss_num_map(p5_a0);
344 ddp_rules_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a1);
345 ddp_rules_rec.last_updated_by := rosetta_g_miss_num_map(p5_a2);
346 ddp_rules_rec.creation_date := rosetta_g_miss_date_in_map(p5_a3);
347 ddp_rules_rec.created_by := rosetta_g_miss_num_map(p5_a4);
348 ddp_rules_rec.last_update_login := rosetta_g_miss_num_map(p5_a5);
349 ddp_rules_rec.object_version_number := rosetta_g_miss_num_map(p5_a6);
350 ddp_rules_rec.request_id := rosetta_g_miss_num_map(p5_a7);
351 ddp_rules_rec.program_application_id := rosetta_g_miss_num_map(p5_a8);
352 ddp_rules_rec.program_id := rosetta_g_miss_num_map(p5_a9);
353 ddp_rules_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a10);
354 ddp_rules_rec.process_rule_name := p5_a11;
355 ddp_rules_rec.parent_rule_id := rosetta_g_miss_num_map(p5_a12);
356 ddp_rules_rec.process_type := p5_a13;
357 ddp_rules_rec.rank := rosetta_g_miss_num_map(p5_a14);
358 ddp_rules_rec.status_code := p5_a15;
359 ddp_rules_rec.start_date := rosetta_g_miss_date_in_map(p5_a16);
360 ddp_rules_rec.end_date := rosetta_g_miss_date_in_map(p5_a17);
361 ddp_rules_rec.action := p5_a18;
362 ddp_rules_rec.action_value := p5_a19;
363 ddp_rules_rec.owner_resource_id := rosetta_g_miss_num_map(p5_a20);
364 ddp_rules_rec.currency_code := p5_a21;
365 ddp_rules_rec.language := p5_a22;
366 ddp_rules_rec.source_lang := p5_a23;
367 ddp_rules_rec.description := p5_a24;
368 ddp_rules_rec.attribute_category := p5_a25;
369 ddp_rules_rec.attribute1 := p5_a26;
370 ddp_rules_rec.attribute2 := p5_a27;
371 ddp_rules_rec.attribute3 := p5_a28;
372 ddp_rules_rec.attribute4 := p5_a29;
373 ddp_rules_rec.attribute5 := p5_a30;
374 ddp_rules_rec.attribute6 := p5_a31;
375 ddp_rules_rec.attribute7 := p5_a32;
376 ddp_rules_rec.attribute8 := p5_a33;
377 ddp_rules_rec.attribute9 := p5_a34;
378 ddp_rules_rec.attribute10 := p5_a35;
379 ddp_rules_rec.attribute11 := p5_a36;
380 ddp_rules_rec.attribute12 := p5_a37;
381 ddp_rules_rec.attribute13 := p5_a38;
382 ddp_rules_rec.attribute14 := p5_a39;
383 ddp_rules_rec.attribute15 := p5_a40;
384
385
386
387
388 -- here's the delegated call to the old PL/SQL routine
389 pv_process_rules_pub.delete_process_rules(p_api_version_number,
390 p_init_msg_list,
391 p_commit,
392 p_validation_level,
393 p_identity_resource_id,
394 ddp_rules_rec,
395 x_return_status,
396 x_msg_count,
397 x_msg_data);
398
399 -- copy data back from the local OUT or IN-OUT args, if any
400
401
402
403
404
405
406
407
408 end;
409
410 procedure copy_process_rules(p_api_version_number NUMBER
411 , p_init_msg_list VARCHAR2
412 , p_commit VARCHAR2
413 , p_validation_level NUMBER
414 , p_identity_resource_id NUMBER
415 , x_process_rule_id out nocopy NUMBER
416 , x_return_status out nocopy VARCHAR2
417 , x_msg_count out nocopy NUMBER
418 , x_msg_data out nocopy VARCHAR2
419 , p5_a0 NUMBER := 0-1962.0724
420 , p5_a1 DATE := fnd_api.g_miss_date
421 , p5_a2 NUMBER := 0-1962.0724
422 , p5_a3 DATE := fnd_api.g_miss_date
423 , p5_a4 NUMBER := 0-1962.0724
424 , p5_a5 NUMBER := 0-1962.0724
425 , p5_a6 NUMBER := 0-1962.0724
426 , p5_a7 NUMBER := 0-1962.0724
427 , p5_a8 NUMBER := 0-1962.0724
428 , p5_a9 NUMBER := 0-1962.0724
429 , p5_a10 DATE := fnd_api.g_miss_date
430 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
431 , p5_a12 NUMBER := 0-1962.0724
432 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
433 , p5_a14 NUMBER := 0-1962.0724
434 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
435 , p5_a16 DATE := fnd_api.g_miss_date
436 , p5_a17 DATE := fnd_api.g_miss_date
437 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
438 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
439 , p5_a20 NUMBER := 0-1962.0724
440 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
441 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
442 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
443 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
444 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
445 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
446 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
447 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
448 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
449 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
450 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
451 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
452 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
453 , p5_a34 VARCHAR2 := fnd_api.g_miss_char
454 , p5_a35 VARCHAR2 := fnd_api.g_miss_char
455 , p5_a36 VARCHAR2 := fnd_api.g_miss_char
456 , p5_a37 VARCHAR2 := fnd_api.g_miss_char
457 , p5_a38 VARCHAR2 := fnd_api.g_miss_char
458 , p5_a39 VARCHAR2 := fnd_api.g_miss_char
459 , p5_a40 VARCHAR2 := fnd_api.g_miss_char
460 )
461 as
462 ddp_rules_rec pv_rule_rectype_pub.rules_rec_type;
463 ddindx binary_integer; indx binary_integer;
464 begin
465
466 -- copy data to the local IN or IN-OUT args, if any
467
468
469
470
471
472 ddp_rules_rec.process_rule_id := rosetta_g_miss_num_map(p5_a0);
473 ddp_rules_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a1);
474 ddp_rules_rec.last_updated_by := rosetta_g_miss_num_map(p5_a2);
475 ddp_rules_rec.creation_date := rosetta_g_miss_date_in_map(p5_a3);
476 ddp_rules_rec.created_by := rosetta_g_miss_num_map(p5_a4);
477 ddp_rules_rec.last_update_login := rosetta_g_miss_num_map(p5_a5);
478 ddp_rules_rec.object_version_number := rosetta_g_miss_num_map(p5_a6);
479 ddp_rules_rec.request_id := rosetta_g_miss_num_map(p5_a7);
480 ddp_rules_rec.program_application_id := rosetta_g_miss_num_map(p5_a8);
481 ddp_rules_rec.program_id := rosetta_g_miss_num_map(p5_a9);
482 ddp_rules_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a10);
483 ddp_rules_rec.process_rule_name := p5_a11;
484 ddp_rules_rec.parent_rule_id := rosetta_g_miss_num_map(p5_a12);
485 ddp_rules_rec.process_type := p5_a13;
486 ddp_rules_rec.rank := rosetta_g_miss_num_map(p5_a14);
487 ddp_rules_rec.status_code := p5_a15;
488 ddp_rules_rec.start_date := rosetta_g_miss_date_in_map(p5_a16);
489 ddp_rules_rec.end_date := rosetta_g_miss_date_in_map(p5_a17);
490 ddp_rules_rec.action := p5_a18;
491 ddp_rules_rec.action_value := p5_a19;
492 ddp_rules_rec.owner_resource_id := rosetta_g_miss_num_map(p5_a20);
493 ddp_rules_rec.currency_code := p5_a21;
494 ddp_rules_rec.language := p5_a22;
495 ddp_rules_rec.source_lang := p5_a23;
496 ddp_rules_rec.description := p5_a24;
497 ddp_rules_rec.attribute_category := p5_a25;
498 ddp_rules_rec.attribute1 := p5_a26;
499 ddp_rules_rec.attribute2 := p5_a27;
500 ddp_rules_rec.attribute3 := p5_a28;
501 ddp_rules_rec.attribute4 := p5_a29;
502 ddp_rules_rec.attribute5 := p5_a30;
503 ddp_rules_rec.attribute6 := p5_a31;
504 ddp_rules_rec.attribute7 := p5_a32;
505 ddp_rules_rec.attribute8 := p5_a33;
506 ddp_rules_rec.attribute9 := p5_a34;
507 ddp_rules_rec.attribute10 := p5_a35;
508 ddp_rules_rec.attribute11 := p5_a36;
509 ddp_rules_rec.attribute12 := p5_a37;
510 ddp_rules_rec.attribute13 := p5_a38;
511 ddp_rules_rec.attribute14 := p5_a39;
512 ddp_rules_rec.attribute15 := p5_a40;
513
514
515
516
517
518 -- here's the delegated call to the old PL/SQL routine
519 pv_process_rules_pub.copy_process_rules(p_api_version_number,
520 p_init_msg_list,
521 p_commit,
522 p_validation_level,
523 p_identity_resource_id,
524 ddp_rules_rec,
525 x_process_rule_id,
526 x_return_status,
527 x_msg_count,
528 x_msg_data);
529
530 -- copy data back from the local OUT or IN-OUT args, if any
531
532
533
534
535
536
537
538
539
540 end;
541
542 end pv_process_rules_pub_w;