[Home] [Help]
PACKAGE BODY: APPS.AHL_APPROVALS_PVT_W
Source
1 package body ahl_approvals_pvt_w as
2 /* $Header: AHLWAPRB.pls 120.1 2006/05/02 07:21 sathapli noship $ */
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 rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
6 rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
7
8 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
9 function rosetta_g_miss_date_in_map(d date) return date as
10 begin
11 if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
12 if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13 return d;
14 end;
15
16 procedure rosetta_table_copy_in_p2(t out nocopy ahl_approvals_pvt.approvers_tbl, a0 JTF_NUMBER_TABLE
17 , a1 JTF_NUMBER_TABLE
18 , a2 JTF_NUMBER_TABLE
19 , a3 JTF_VARCHAR2_TABLE_100
20 , a4 JTF_NUMBER_TABLE
21 , a5 JTF_NUMBER_TABLE
22 , a6 JTF_VARCHAR2_TABLE_100
23 , a7 JTF_DATE_TABLE
24 , a8 JTF_NUMBER_TABLE
25 , a9 JTF_DATE_TABLE
26 , a10 JTF_NUMBER_TABLE
27 , a11 JTF_NUMBER_TABLE
28 , a12 JTF_VARCHAR2_TABLE_100
29 , a13 JTF_VARCHAR2_TABLE_200
30 , a14 JTF_VARCHAR2_TABLE_200
31 , a15 JTF_VARCHAR2_TABLE_200
32 , a16 JTF_VARCHAR2_TABLE_200
33 , a17 JTF_VARCHAR2_TABLE_200
34 , a18 JTF_VARCHAR2_TABLE_200
35 , a19 JTF_VARCHAR2_TABLE_200
36 , a20 JTF_VARCHAR2_TABLE_200
37 , a21 JTF_VARCHAR2_TABLE_200
38 , a22 JTF_VARCHAR2_TABLE_200
39 , a23 JTF_VARCHAR2_TABLE_200
40 , a24 JTF_VARCHAR2_TABLE_200
41 , a25 JTF_VARCHAR2_TABLE_200
42 , a26 JTF_VARCHAR2_TABLE_200
43 , a27 JTF_VARCHAR2_TABLE_200
44 , a28 JTF_VARCHAR2_TABLE_100
45 ) as
46 ddindx binary_integer; indx binary_integer;
47 begin
48 if a0 is not null and a0.count > 0 then
49 if a0.count > 0 then
50 indx := a0.first;
51 ddindx := 1;
52 while true loop
53 t(ddindx).approval_approver_id := a0(indx);
54 t(ddindx).object_version_number := a1(indx);
55 t(ddindx).approval_rule_id := a2(indx);
56 t(ddindx).approver_type_code := a3(indx);
57 t(ddindx).approver_sequence := a4(indx);
58 t(ddindx).approver_id := a5(indx);
59 t(ddindx).approver_name := a6(indx);
60 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a7(indx));
61 t(ddindx).last_updated_by := a8(indx);
62 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a9(indx));
63 t(ddindx).created_by := a10(indx);
64 t(ddindx).last_update_login := a11(indx);
65 t(ddindx).attribute_category := a12(indx);
66 t(ddindx).attribute1 := a13(indx);
67 t(ddindx).attribute2 := a14(indx);
68 t(ddindx).attribute3 := a15(indx);
69 t(ddindx).attribute4 := a16(indx);
70 t(ddindx).attribute5 := a17(indx);
71 t(ddindx).attribute6 := a18(indx);
72 t(ddindx).attribute7 := a19(indx);
73 t(ddindx).attribute8 := a20(indx);
74 t(ddindx).attribute9 := a21(indx);
75 t(ddindx).attribute10 := a22(indx);
76 t(ddindx).attribute11 := a23(indx);
77 t(ddindx).attribute12 := a24(indx);
78 t(ddindx).attribute13 := a25(indx);
79 t(ddindx).attribute14 := a26(indx);
80 t(ddindx).attribute15 := a27(indx);
81 t(ddindx).operation_flag := a28(indx);
82 ddindx := ddindx+1;
83 if a0.last =indx
84 then exit;
85 end if;
86 indx := a0.next(indx);
87 end loop;
88 end if;
89 end if;
90 end rosetta_table_copy_in_p2;
91 procedure rosetta_table_copy_out_p2(t ahl_approvals_pvt.approvers_tbl, a0 out nocopy JTF_NUMBER_TABLE
92 , a1 out nocopy JTF_NUMBER_TABLE
93 , a2 out nocopy JTF_NUMBER_TABLE
94 , a3 out nocopy JTF_VARCHAR2_TABLE_100
95 , a4 out nocopy JTF_NUMBER_TABLE
96 , a5 out nocopy JTF_NUMBER_TABLE
97 , a6 out nocopy JTF_VARCHAR2_TABLE_100
98 , a7 out nocopy JTF_DATE_TABLE
99 , a8 out nocopy JTF_NUMBER_TABLE
100 , a9 out nocopy JTF_DATE_TABLE
101 , a10 out nocopy JTF_NUMBER_TABLE
102 , a11 out nocopy JTF_NUMBER_TABLE
103 , a12 out nocopy JTF_VARCHAR2_TABLE_100
104 , a13 out nocopy JTF_VARCHAR2_TABLE_200
105 , a14 out nocopy JTF_VARCHAR2_TABLE_200
106 , a15 out nocopy JTF_VARCHAR2_TABLE_200
107 , a16 out nocopy JTF_VARCHAR2_TABLE_200
108 , a17 out nocopy JTF_VARCHAR2_TABLE_200
109 , a18 out nocopy JTF_VARCHAR2_TABLE_200
110 , a19 out nocopy JTF_VARCHAR2_TABLE_200
111 , a20 out nocopy JTF_VARCHAR2_TABLE_200
112 , a21 out nocopy JTF_VARCHAR2_TABLE_200
113 , a22 out nocopy JTF_VARCHAR2_TABLE_200
114 , a23 out nocopy JTF_VARCHAR2_TABLE_200
115 , a24 out nocopy JTF_VARCHAR2_TABLE_200
116 , a25 out nocopy JTF_VARCHAR2_TABLE_200
117 , a26 out nocopy JTF_VARCHAR2_TABLE_200
118 , a27 out nocopy JTF_VARCHAR2_TABLE_200
119 , a28 out nocopy JTF_VARCHAR2_TABLE_100
120 ) as
121 ddindx binary_integer; indx binary_integer;
122 begin
123 if t is null or t.count = 0 then
124 a0 := JTF_NUMBER_TABLE();
125 a1 := JTF_NUMBER_TABLE();
126 a2 := JTF_NUMBER_TABLE();
127 a3 := JTF_VARCHAR2_TABLE_100();
128 a4 := JTF_NUMBER_TABLE();
129 a5 := JTF_NUMBER_TABLE();
130 a6 := JTF_VARCHAR2_TABLE_100();
131 a7 := JTF_DATE_TABLE();
132 a8 := JTF_NUMBER_TABLE();
133 a9 := JTF_DATE_TABLE();
134 a10 := JTF_NUMBER_TABLE();
135 a11 := JTF_NUMBER_TABLE();
136 a12 := JTF_VARCHAR2_TABLE_100();
137 a13 := JTF_VARCHAR2_TABLE_200();
138 a14 := JTF_VARCHAR2_TABLE_200();
139 a15 := JTF_VARCHAR2_TABLE_200();
140 a16 := JTF_VARCHAR2_TABLE_200();
141 a17 := JTF_VARCHAR2_TABLE_200();
142 a18 := JTF_VARCHAR2_TABLE_200();
143 a19 := JTF_VARCHAR2_TABLE_200();
144 a20 := JTF_VARCHAR2_TABLE_200();
145 a21 := JTF_VARCHAR2_TABLE_200();
146 a22 := JTF_VARCHAR2_TABLE_200();
147 a23 := JTF_VARCHAR2_TABLE_200();
148 a24 := JTF_VARCHAR2_TABLE_200();
149 a25 := JTF_VARCHAR2_TABLE_200();
150 a26 := JTF_VARCHAR2_TABLE_200();
151 a27 := JTF_VARCHAR2_TABLE_200();
152 a28 := JTF_VARCHAR2_TABLE_100();
153 else
154 a0 := JTF_NUMBER_TABLE();
155 a1 := JTF_NUMBER_TABLE();
156 a2 := JTF_NUMBER_TABLE();
157 a3 := JTF_VARCHAR2_TABLE_100();
158 a4 := JTF_NUMBER_TABLE();
159 a5 := JTF_NUMBER_TABLE();
160 a6 := JTF_VARCHAR2_TABLE_100();
161 a7 := JTF_DATE_TABLE();
162 a8 := JTF_NUMBER_TABLE();
163 a9 := JTF_DATE_TABLE();
164 a10 := JTF_NUMBER_TABLE();
165 a11 := JTF_NUMBER_TABLE();
166 a12 := JTF_VARCHAR2_TABLE_100();
167 a13 := JTF_VARCHAR2_TABLE_200();
168 a14 := JTF_VARCHAR2_TABLE_200();
169 a15 := JTF_VARCHAR2_TABLE_200();
170 a16 := JTF_VARCHAR2_TABLE_200();
171 a17 := JTF_VARCHAR2_TABLE_200();
172 a18 := JTF_VARCHAR2_TABLE_200();
173 a19 := JTF_VARCHAR2_TABLE_200();
174 a20 := JTF_VARCHAR2_TABLE_200();
175 a21 := JTF_VARCHAR2_TABLE_200();
176 a22 := JTF_VARCHAR2_TABLE_200();
177 a23 := JTF_VARCHAR2_TABLE_200();
178 a24 := JTF_VARCHAR2_TABLE_200();
179 a25 := JTF_VARCHAR2_TABLE_200();
180 a26 := JTF_VARCHAR2_TABLE_200();
181 a27 := JTF_VARCHAR2_TABLE_200();
182 a28 := JTF_VARCHAR2_TABLE_100();
183 if t.count > 0 then
184 a0.extend(t.count);
185 a1.extend(t.count);
186 a2.extend(t.count);
187 a3.extend(t.count);
188 a4.extend(t.count);
189 a5.extend(t.count);
190 a6.extend(t.count);
191 a7.extend(t.count);
192 a8.extend(t.count);
193 a9.extend(t.count);
194 a10.extend(t.count);
195 a11.extend(t.count);
196 a12.extend(t.count);
197 a13.extend(t.count);
198 a14.extend(t.count);
199 a15.extend(t.count);
200 a16.extend(t.count);
201 a17.extend(t.count);
202 a18.extend(t.count);
203 a19.extend(t.count);
204 a20.extend(t.count);
205 a21.extend(t.count);
206 a22.extend(t.count);
207 a23.extend(t.count);
208 a24.extend(t.count);
209 a25.extend(t.count);
210 a26.extend(t.count);
211 a27.extend(t.count);
212 a28.extend(t.count);
213 ddindx := t.first;
214 indx := 1;
215 while true loop
216 a0(indx) := t(ddindx).approval_approver_id;
217 a1(indx) := t(ddindx).object_version_number;
218 a2(indx) := t(ddindx).approval_rule_id;
219 a3(indx) := t(ddindx).approver_type_code;
220 a4(indx) := t(ddindx).approver_sequence;
221 a5(indx) := t(ddindx).approver_id;
222 a6(indx) := t(ddindx).approver_name;
223 a7(indx) := t(ddindx).last_update_date;
224 a8(indx) := t(ddindx).last_updated_by;
225 a9(indx) := t(ddindx).creation_date;
226 a10(indx) := t(ddindx).created_by;
227 a11(indx) := t(ddindx).last_update_login;
228 a12(indx) := t(ddindx).attribute_category;
229 a13(indx) := t(ddindx).attribute1;
230 a14(indx) := t(ddindx).attribute2;
231 a15(indx) := t(ddindx).attribute3;
232 a16(indx) := t(ddindx).attribute4;
233 a17(indx) := t(ddindx).attribute5;
234 a18(indx) := t(ddindx).attribute6;
235 a19(indx) := t(ddindx).attribute7;
236 a20(indx) := t(ddindx).attribute8;
237 a21(indx) := t(ddindx).attribute9;
238 a22(indx) := t(ddindx).attribute10;
239 a23(indx) := t(ddindx).attribute11;
240 a24(indx) := t(ddindx).attribute12;
241 a25(indx) := t(ddindx).attribute13;
242 a26(indx) := t(ddindx).attribute14;
243 a27(indx) := t(ddindx).attribute15;
244 a28(indx) := t(ddindx).operation_flag;
245 indx := indx+1;
246 if t.last =ddindx
247 then exit;
248 end if;
249 ddindx := t.next(ddindx);
250 end loop;
251 end if;
252 end if;
253 end rosetta_table_copy_out_p2;
254
255 procedure process_approvals(p_api_version NUMBER
256 , p_init_msg_list VARCHAR2
257 , p_commit VARCHAR2
258 , p_validation_level NUMBER
259 , p4_a0 in out nocopy NUMBER
260 , p4_a1 in out nocopy NUMBER
261 , p4_a2 in out nocopy VARCHAR2
262 , p4_a3 in out nocopy VARCHAR2
263 , p4_a4 in out nocopy VARCHAR2
264 , p4_a5 in out nocopy VARCHAR2
265 , p4_a6 in out nocopy VARCHAR2
266 , p4_a7 in out nocopy NUMBER
267 , p4_a8 in out nocopy VARCHAR2
268 , p4_a9 in out nocopy DATE
269 , p4_a10 in out nocopy DATE
270 , p4_a11 in out nocopy VARCHAR2
271 , p4_a12 in out nocopy VARCHAR2
272 , p4_a13 in out nocopy VARCHAR2
273 , p4_a14 in out nocopy VARCHAR2
274 , p4_a15 in out nocopy VARCHAR2
275 , p4_a16 in out nocopy VARCHAR2
276 , p4_a17 in out nocopy VARCHAR2
277 , p4_a18 in out nocopy VARCHAR2
278 , p4_a19 in out nocopy VARCHAR2
279 , p4_a20 in out nocopy VARCHAR2
280 , p4_a21 in out nocopy VARCHAR2
281 , p4_a22 in out nocopy VARCHAR2
282 , p4_a23 in out nocopy VARCHAR2
283 , p4_a24 in out nocopy VARCHAR2
284 , p4_a25 in out nocopy VARCHAR2
285 , p4_a26 in out nocopy VARCHAR2
286 , p4_a27 in out nocopy VARCHAR2
287 , p4_a28 in out nocopy VARCHAR2
288 , p4_a29 in out nocopy VARCHAR2
289 , p4_a30 in out nocopy VARCHAR2
290 , p4_a31 in out nocopy DATE
291 , p4_a32 in out nocopy NUMBER
292 , p4_a33 in out nocopy DATE
293 , p4_a34 in out nocopy NUMBER
294 , p4_a35 in out nocopy NUMBER
295 , p4_a36 in out nocopy VARCHAR2
296 , p5_a0 in out nocopy JTF_NUMBER_TABLE
297 , p5_a1 in out nocopy JTF_NUMBER_TABLE
298 , p5_a2 in out nocopy JTF_NUMBER_TABLE
299 , p5_a3 in out nocopy JTF_VARCHAR2_TABLE_100
300 , p5_a4 in out nocopy JTF_NUMBER_TABLE
301 , p5_a5 in out nocopy JTF_NUMBER_TABLE
302 , p5_a6 in out nocopy JTF_VARCHAR2_TABLE_100
303 , p5_a7 in out nocopy JTF_DATE_TABLE
304 , p5_a8 in out nocopy JTF_NUMBER_TABLE
305 , p5_a9 in out nocopy JTF_DATE_TABLE
306 , p5_a10 in out nocopy JTF_NUMBER_TABLE
307 , p5_a11 in out nocopy JTF_NUMBER_TABLE
308 , p5_a12 in out nocopy JTF_VARCHAR2_TABLE_100
309 , p5_a13 in out nocopy JTF_VARCHAR2_TABLE_200
310 , p5_a14 in out nocopy JTF_VARCHAR2_TABLE_200
311 , p5_a15 in out nocopy JTF_VARCHAR2_TABLE_200
312 , p5_a16 in out nocopy JTF_VARCHAR2_TABLE_200
313 , p5_a17 in out nocopy JTF_VARCHAR2_TABLE_200
314 , p5_a18 in out nocopy JTF_VARCHAR2_TABLE_200
315 , p5_a19 in out nocopy JTF_VARCHAR2_TABLE_200
316 , p5_a20 in out nocopy JTF_VARCHAR2_TABLE_200
317 , p5_a21 in out nocopy JTF_VARCHAR2_TABLE_200
318 , p5_a22 in out nocopy JTF_VARCHAR2_TABLE_200
319 , p5_a23 in out nocopy JTF_VARCHAR2_TABLE_200
320 , p5_a24 in out nocopy JTF_VARCHAR2_TABLE_200
321 , p5_a25 in out nocopy JTF_VARCHAR2_TABLE_200
322 , p5_a26 in out nocopy JTF_VARCHAR2_TABLE_200
323 , p5_a27 in out nocopy JTF_VARCHAR2_TABLE_200
324 , p5_a28 in out nocopy JTF_VARCHAR2_TABLE_100
325 , x_return_status out nocopy VARCHAR2
326 , x_msg_count out nocopy NUMBER
327 , x_msg_data out nocopy VARCHAR2
328 )
329
330 as
331 ddp_x_approval_rules_rec ahl_approvals_pvt.approval_rules_rec_type;
332 ddp_x_approvers_tbl ahl_approvals_pvt.approvers_tbl;
333 ddindx binary_integer; indx binary_integer;
334 begin
335
336 -- copy data to the local IN or IN-OUT args, if any
337
338
339
340
341 ddp_x_approval_rules_rec.approval_rule_id := p4_a0;
342 ddp_x_approval_rules_rec.object_version_number := p4_a1;
343 ddp_x_approval_rules_rec.approval_object_code := p4_a2;
344 ddp_x_approval_rules_rec.approval_priority_code := p4_a3;
345 ddp_x_approval_rules_rec.approval_type_code := p4_a4;
346 ddp_x_approval_rules_rec.application_usg_code := p4_a5;
347 ddp_x_approval_rules_rec.application_usg := p4_a6;
348 ddp_x_approval_rules_rec.operating_unit_id := p4_a7;
349 ddp_x_approval_rules_rec.operating_name := p4_a8;
350 ddp_x_approval_rules_rec.active_start_date := rosetta_g_miss_date_in_map(p4_a9);
351 ddp_x_approval_rules_rec.active_end_date := rosetta_g_miss_date_in_map(p4_a10);
352 ddp_x_approval_rules_rec.status_code := p4_a11;
353 ddp_x_approval_rules_rec.seeded_flag := p4_a12;
354 ddp_x_approval_rules_rec.attribute_category := p4_a13;
355 ddp_x_approval_rules_rec.attribute1 := p4_a14;
356 ddp_x_approval_rules_rec.attribute2 := p4_a15;
357 ddp_x_approval_rules_rec.attribute3 := p4_a16;
358 ddp_x_approval_rules_rec.attribute4 := p4_a17;
359 ddp_x_approval_rules_rec.attribute5 := p4_a18;
360 ddp_x_approval_rules_rec.attribute6 := p4_a19;
361 ddp_x_approval_rules_rec.attribute7 := p4_a20;
362 ddp_x_approval_rules_rec.attribute8 := p4_a21;
363 ddp_x_approval_rules_rec.attribute9 := p4_a22;
364 ddp_x_approval_rules_rec.attribute10 := p4_a23;
365 ddp_x_approval_rules_rec.attribute11 := p4_a24;
366 ddp_x_approval_rules_rec.attribute12 := p4_a25;
367 ddp_x_approval_rules_rec.attribute13 := p4_a26;
368 ddp_x_approval_rules_rec.attribute14 := p4_a27;
369 ddp_x_approval_rules_rec.attribute15 := p4_a28;
370 ddp_x_approval_rules_rec.approval_rule_name := p4_a29;
371 ddp_x_approval_rules_rec.description := p4_a30;
375 ddp_x_approval_rules_rec.last_updated_by := p4_a34;
372 ddp_x_approval_rules_rec.creation_date := rosetta_g_miss_date_in_map(p4_a31);
373 ddp_x_approval_rules_rec.created_by := p4_a32;
374 ddp_x_approval_rules_rec.last_update_date := rosetta_g_miss_date_in_map(p4_a33);
376 ddp_x_approval_rules_rec.last_update_login := p4_a35;
377 ddp_x_approval_rules_rec.operation_flag := p4_a36;
378
379 ahl_approvals_pvt_w.rosetta_table_copy_in_p2(ddp_x_approvers_tbl, p5_a0
380 , p5_a1
381 , p5_a2
382 , p5_a3
383 , p5_a4
384 , p5_a5
385 , p5_a6
386 , p5_a7
387 , p5_a8
388 , p5_a9
389 , p5_a10
390 , p5_a11
391 , p5_a12
392 , p5_a13
393 , p5_a14
394 , p5_a15
395 , p5_a16
396 , p5_a17
397 , p5_a18
398 , p5_a19
399 , p5_a20
400 , p5_a21
401 , p5_a22
402 , p5_a23
403 , p5_a24
404 , p5_a25
405 , p5_a26
406 , p5_a27
407 , p5_a28
408 );
409
410
411
412
413 -- here's the delegated call to the old PL/SQL routine
414 ahl_approvals_pvt.process_approvals(p_api_version,
415 p_init_msg_list,
416 p_commit,
417 p_validation_level,
418 ddp_x_approval_rules_rec,
419 ddp_x_approvers_tbl,
420 x_return_status,
421 x_msg_count,
422 x_msg_data);
423
424 -- copy data back from the local variables to OUT or IN-OUT args, if any
425
426
427
428
429 p4_a0 := ddp_x_approval_rules_rec.approval_rule_id;
430 p4_a1 := ddp_x_approval_rules_rec.object_version_number;
431 p4_a2 := ddp_x_approval_rules_rec.approval_object_code;
432 p4_a3 := ddp_x_approval_rules_rec.approval_priority_code;
433 p4_a4 := ddp_x_approval_rules_rec.approval_type_code;
434 p4_a5 := ddp_x_approval_rules_rec.application_usg_code;
435 p4_a6 := ddp_x_approval_rules_rec.application_usg;
436 p4_a7 := ddp_x_approval_rules_rec.operating_unit_id;
437 p4_a8 := ddp_x_approval_rules_rec.operating_name;
438 p4_a9 := ddp_x_approval_rules_rec.active_start_date;
439 p4_a10 := ddp_x_approval_rules_rec.active_end_date;
440 p4_a11 := ddp_x_approval_rules_rec.status_code;
441 p4_a12 := ddp_x_approval_rules_rec.seeded_flag;
442 p4_a13 := ddp_x_approval_rules_rec.attribute_category;
443 p4_a14 := ddp_x_approval_rules_rec.attribute1;
444 p4_a15 := ddp_x_approval_rules_rec.attribute2;
445 p4_a16 := ddp_x_approval_rules_rec.attribute3;
446 p4_a17 := ddp_x_approval_rules_rec.attribute4;
447 p4_a18 := ddp_x_approval_rules_rec.attribute5;
448 p4_a19 := ddp_x_approval_rules_rec.attribute6;
449 p4_a20 := ddp_x_approval_rules_rec.attribute7;
450 p4_a21 := ddp_x_approval_rules_rec.attribute8;
451 p4_a22 := ddp_x_approval_rules_rec.attribute9;
452 p4_a23 := ddp_x_approval_rules_rec.attribute10;
453 p4_a24 := ddp_x_approval_rules_rec.attribute11;
454 p4_a25 := ddp_x_approval_rules_rec.attribute12;
455 p4_a26 := ddp_x_approval_rules_rec.attribute13;
456 p4_a27 := ddp_x_approval_rules_rec.attribute14;
457 p4_a28 := ddp_x_approval_rules_rec.attribute15;
458 p4_a29 := ddp_x_approval_rules_rec.approval_rule_name;
459 p4_a30 := ddp_x_approval_rules_rec.description;
460 p4_a31 := ddp_x_approval_rules_rec.creation_date;
461 p4_a32 := ddp_x_approval_rules_rec.created_by;
462 p4_a33 := ddp_x_approval_rules_rec.last_update_date;
463 p4_a34 := ddp_x_approval_rules_rec.last_updated_by;
464 p4_a35 := ddp_x_approval_rules_rec.last_update_login;
465 p4_a36 := ddp_x_approval_rules_rec.operation_flag;
466
467 ahl_approvals_pvt_w.rosetta_table_copy_out_p2(ddp_x_approvers_tbl, p5_a0
468 , p5_a1
469 , p5_a2
470 , p5_a3
471 , p5_a4
472 , p5_a5
473 , p5_a6
474 , p5_a7
475 , p5_a8
476 , p5_a9
477 , p5_a10
478 , p5_a11
479 , p5_a12
480 , p5_a13
481 , p5_a14
482 , p5_a15
483 , p5_a16
484 , p5_a17
485 , p5_a18
486 , p5_a19
487 , p5_a20
488 , p5_a21
489 , p5_a22
490 , p5_a23
491 , p5_a24
492 , p5_a25
493 , p5_a26
494 , p5_a27
495 , p5_a28
496 );
497
498
499
500 end;
501
502 procedure create_approval_rules(p_api_version NUMBER
503 , p_init_msg_list VARCHAR2
504 , p_commit VARCHAR2
505 , p_validation_level NUMBER
506 , x_return_status out nocopy VARCHAR2
507 , x_msg_count out nocopy NUMBER
508 , x_msg_data out nocopy VARCHAR2
509 , p7_a0 NUMBER
510 , p7_a1 NUMBER
511 , p7_a2 VARCHAR2
512 , p7_a3 VARCHAR2
513 , p7_a4 VARCHAR2
514 , p7_a5 VARCHAR2
515 , p7_a6 VARCHAR2
516 , p7_a7 NUMBER
517 , p7_a8 VARCHAR2
518 , p7_a9 DATE
519 , p7_a10 DATE
520 , p7_a11 VARCHAR2
521 , p7_a12 VARCHAR2
522 , p7_a13 VARCHAR2
523 , p7_a14 VARCHAR2
524 , p7_a15 VARCHAR2
525 , p7_a16 VARCHAR2
529 , p7_a20 VARCHAR2
526 , p7_a17 VARCHAR2
527 , p7_a18 VARCHAR2
528 , p7_a19 VARCHAR2
530 , p7_a21 VARCHAR2
531 , p7_a22 VARCHAR2
532 , p7_a23 VARCHAR2
533 , p7_a24 VARCHAR2
534 , p7_a25 VARCHAR2
535 , p7_a26 VARCHAR2
536 , p7_a27 VARCHAR2
537 , p7_a28 VARCHAR2
538 , p7_a29 VARCHAR2
539 , p7_a30 VARCHAR2
540 , p7_a31 DATE
541 , p7_a32 NUMBER
542 , p7_a33 DATE
543 , p7_a34 NUMBER
544 , p7_a35 NUMBER
545 , p7_a36 VARCHAR2
546 , x_approval_rules_id out nocopy NUMBER
547 )
548
549 as
550 ddp_approval_rules_rec ahl_approvals_pvt.approval_rules_rec_type;
551 ddindx binary_integer; indx binary_integer;
552 begin
553
554 -- copy data to the local IN or IN-OUT args, if any
555
556
557
558
559
560
561
562 ddp_approval_rules_rec.approval_rule_id := p7_a0;
563 ddp_approval_rules_rec.object_version_number := p7_a1;
564 ddp_approval_rules_rec.approval_object_code := p7_a2;
565 ddp_approval_rules_rec.approval_priority_code := p7_a3;
566 ddp_approval_rules_rec.approval_type_code := p7_a4;
567 ddp_approval_rules_rec.application_usg_code := p7_a5;
568 ddp_approval_rules_rec.application_usg := p7_a6;
569 ddp_approval_rules_rec.operating_unit_id := p7_a7;
570 ddp_approval_rules_rec.operating_name := p7_a8;
571 ddp_approval_rules_rec.active_start_date := rosetta_g_miss_date_in_map(p7_a9);
572 ddp_approval_rules_rec.active_end_date := rosetta_g_miss_date_in_map(p7_a10);
573 ddp_approval_rules_rec.status_code := p7_a11;
574 ddp_approval_rules_rec.seeded_flag := p7_a12;
575 ddp_approval_rules_rec.attribute_category := p7_a13;
576 ddp_approval_rules_rec.attribute1 := p7_a14;
577 ddp_approval_rules_rec.attribute2 := p7_a15;
578 ddp_approval_rules_rec.attribute3 := p7_a16;
579 ddp_approval_rules_rec.attribute4 := p7_a17;
580 ddp_approval_rules_rec.attribute5 := p7_a18;
581 ddp_approval_rules_rec.attribute6 := p7_a19;
582 ddp_approval_rules_rec.attribute7 := p7_a20;
583 ddp_approval_rules_rec.attribute8 := p7_a21;
584 ddp_approval_rules_rec.attribute9 := p7_a22;
585 ddp_approval_rules_rec.attribute10 := p7_a23;
586 ddp_approval_rules_rec.attribute11 := p7_a24;
587 ddp_approval_rules_rec.attribute12 := p7_a25;
588 ddp_approval_rules_rec.attribute13 := p7_a26;
589 ddp_approval_rules_rec.attribute14 := p7_a27;
590 ddp_approval_rules_rec.attribute15 := p7_a28;
591 ddp_approval_rules_rec.approval_rule_name := p7_a29;
592 ddp_approval_rules_rec.description := p7_a30;
593 ddp_approval_rules_rec.creation_date := rosetta_g_miss_date_in_map(p7_a31);
594 ddp_approval_rules_rec.created_by := p7_a32;
595 ddp_approval_rules_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a33);
596 ddp_approval_rules_rec.last_updated_by := p7_a34;
597 ddp_approval_rules_rec.last_update_login := p7_a35;
598 ddp_approval_rules_rec.operation_flag := p7_a36;
599
600
601 -- here's the delegated call to the old PL/SQL routine
602 ahl_approvals_pvt.create_approval_rules(p_api_version,
603 p_init_msg_list,
604 p_commit,
605 p_validation_level,
606 x_return_status,
607 x_msg_count,
608 x_msg_data,
609 ddp_approval_rules_rec,
610 x_approval_rules_id);
611
612 -- copy data back from the local variables to OUT or IN-OUT args, if any
613
614
615
616
617
618
619
620
621 end;
622
623 procedure update_approval_rules(p_api_version NUMBER
624 , p_init_msg_list VARCHAR2
625 , p_commit VARCHAR2
626 , p_validation_level NUMBER
627 , x_return_status out nocopy VARCHAR2
628 , x_msg_count out nocopy NUMBER
629 , x_msg_data out nocopy VARCHAR2
630 , p7_a0 NUMBER
631 , p7_a1 NUMBER
632 , p7_a2 VARCHAR2
633 , p7_a3 VARCHAR2
634 , p7_a4 VARCHAR2
635 , p7_a5 VARCHAR2
636 , p7_a6 VARCHAR2
637 , p7_a7 NUMBER
638 , p7_a8 VARCHAR2
639 , p7_a9 DATE
640 , p7_a10 DATE
641 , p7_a11 VARCHAR2
642 , p7_a12 VARCHAR2
643 , p7_a13 VARCHAR2
644 , p7_a14 VARCHAR2
645 , p7_a15 VARCHAR2
646 , p7_a16 VARCHAR2
647 , p7_a17 VARCHAR2
648 , p7_a18 VARCHAR2
649 , p7_a19 VARCHAR2
650 , p7_a20 VARCHAR2
651 , p7_a21 VARCHAR2
652 , p7_a22 VARCHAR2
653 , p7_a23 VARCHAR2
654 , p7_a24 VARCHAR2
655 , p7_a25 VARCHAR2
656 , p7_a26 VARCHAR2
657 , p7_a27 VARCHAR2
658 , p7_a28 VARCHAR2
659 , p7_a29 VARCHAR2
660 , p7_a30 VARCHAR2
661 , p7_a31 DATE
662 , p7_a32 NUMBER
663 , p7_a33 DATE
664 , p7_a34 NUMBER
665 , p7_a35 NUMBER
666 , p7_a36 VARCHAR2
667 )
668
669 as
670 ddp_approval_rules_rec ahl_approvals_pvt.approval_rules_rec_type;
671 ddindx binary_integer; indx binary_integer;
672 begin
673
674 -- copy data to the local IN or IN-OUT args, if any
675
676
677
678
679
683 ddp_approval_rules_rec.object_version_number := p7_a1;
680
681
682 ddp_approval_rules_rec.approval_rule_id := p7_a0;
684 ddp_approval_rules_rec.approval_object_code := p7_a2;
685 ddp_approval_rules_rec.approval_priority_code := p7_a3;
686 ddp_approval_rules_rec.approval_type_code := p7_a4;
687 ddp_approval_rules_rec.application_usg_code := p7_a5;
688 ddp_approval_rules_rec.application_usg := p7_a6;
689 ddp_approval_rules_rec.operating_unit_id := p7_a7;
690 ddp_approval_rules_rec.operating_name := p7_a8;
691 ddp_approval_rules_rec.active_start_date := rosetta_g_miss_date_in_map(p7_a9);
692 ddp_approval_rules_rec.active_end_date := rosetta_g_miss_date_in_map(p7_a10);
693 ddp_approval_rules_rec.status_code := p7_a11;
694 ddp_approval_rules_rec.seeded_flag := p7_a12;
695 ddp_approval_rules_rec.attribute_category := p7_a13;
696 ddp_approval_rules_rec.attribute1 := p7_a14;
697 ddp_approval_rules_rec.attribute2 := p7_a15;
698 ddp_approval_rules_rec.attribute3 := p7_a16;
699 ddp_approval_rules_rec.attribute4 := p7_a17;
700 ddp_approval_rules_rec.attribute5 := p7_a18;
701 ddp_approval_rules_rec.attribute6 := p7_a19;
702 ddp_approval_rules_rec.attribute7 := p7_a20;
703 ddp_approval_rules_rec.attribute8 := p7_a21;
704 ddp_approval_rules_rec.attribute9 := p7_a22;
705 ddp_approval_rules_rec.attribute10 := p7_a23;
706 ddp_approval_rules_rec.attribute11 := p7_a24;
707 ddp_approval_rules_rec.attribute12 := p7_a25;
708 ddp_approval_rules_rec.attribute13 := p7_a26;
709 ddp_approval_rules_rec.attribute14 := p7_a27;
710 ddp_approval_rules_rec.attribute15 := p7_a28;
711 ddp_approval_rules_rec.approval_rule_name := p7_a29;
712 ddp_approval_rules_rec.description := p7_a30;
713 ddp_approval_rules_rec.creation_date := rosetta_g_miss_date_in_map(p7_a31);
714 ddp_approval_rules_rec.created_by := p7_a32;
715 ddp_approval_rules_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a33);
716 ddp_approval_rules_rec.last_updated_by := p7_a34;
717 ddp_approval_rules_rec.last_update_login := p7_a35;
718 ddp_approval_rules_rec.operation_flag := p7_a36;
719
720 -- here's the delegated call to the old PL/SQL routine
721 ahl_approvals_pvt.update_approval_rules(p_api_version,
722 p_init_msg_list,
723 p_commit,
724 p_validation_level,
725 x_return_status,
726 x_msg_count,
727 x_msg_data,
728 ddp_approval_rules_rec);
729
730 -- copy data back from the local variables to OUT or IN-OUT args, if any
731
732
733
734
735
736
737
738 end;
739
740 procedure validate_approval_rules(p_api_version NUMBER
741 , p_init_msg_list VARCHAR2
742 , p_commit VARCHAR2
743 , p_validation_level NUMBER
744 , x_return_status out nocopy VARCHAR2
745 , x_msg_count out nocopy NUMBER
746 , x_msg_data out nocopy VARCHAR2
747 , p7_a0 NUMBER
748 , p7_a1 NUMBER
749 , p7_a2 VARCHAR2
750 , p7_a3 VARCHAR2
751 , p7_a4 VARCHAR2
752 , p7_a5 VARCHAR2
753 , p7_a6 VARCHAR2
754 , p7_a7 NUMBER
755 , p7_a8 VARCHAR2
756 , p7_a9 DATE
757 , p7_a10 DATE
758 , p7_a11 VARCHAR2
759 , p7_a12 VARCHAR2
760 , p7_a13 VARCHAR2
761 , p7_a14 VARCHAR2
762 , p7_a15 VARCHAR2
763 , p7_a16 VARCHAR2
764 , p7_a17 VARCHAR2
765 , p7_a18 VARCHAR2
766 , p7_a19 VARCHAR2
767 , p7_a20 VARCHAR2
768 , p7_a21 VARCHAR2
769 , p7_a22 VARCHAR2
770 , p7_a23 VARCHAR2
771 , p7_a24 VARCHAR2
772 , p7_a25 VARCHAR2
773 , p7_a26 VARCHAR2
774 , p7_a27 VARCHAR2
775 , p7_a28 VARCHAR2
776 , p7_a29 VARCHAR2
777 , p7_a30 VARCHAR2
778 , p7_a31 DATE
779 , p7_a32 NUMBER
780 , p7_a33 DATE
781 , p7_a34 NUMBER
782 , p7_a35 NUMBER
783 , p7_a36 VARCHAR2
784 )
785
786 as
787 ddp_approval_rules_rec ahl_approvals_pvt.approval_rules_rec_type;
788 ddindx binary_integer; indx binary_integer;
789 begin
790
791 -- copy data to the local IN or IN-OUT args, if any
792
793
794
795
796
797
798
799 ddp_approval_rules_rec.approval_rule_id := p7_a0;
800 ddp_approval_rules_rec.object_version_number := p7_a1;
801 ddp_approval_rules_rec.approval_object_code := p7_a2;
802 ddp_approval_rules_rec.approval_priority_code := p7_a3;
803 ddp_approval_rules_rec.approval_type_code := p7_a4;
804 ddp_approval_rules_rec.application_usg_code := p7_a5;
805 ddp_approval_rules_rec.application_usg := p7_a6;
806 ddp_approval_rules_rec.operating_unit_id := p7_a7;
807 ddp_approval_rules_rec.operating_name := p7_a8;
808 ddp_approval_rules_rec.active_start_date := rosetta_g_miss_date_in_map(p7_a9);
809 ddp_approval_rules_rec.active_end_date := rosetta_g_miss_date_in_map(p7_a10);
810 ddp_approval_rules_rec.status_code := p7_a11;
811 ddp_approval_rules_rec.seeded_flag := p7_a12;
812 ddp_approval_rules_rec.attribute_category := p7_a13;
813 ddp_approval_rules_rec.attribute1 := p7_a14;
814 ddp_approval_rules_rec.attribute2 := p7_a15;
815 ddp_approval_rules_rec.attribute3 := p7_a16;
816 ddp_approval_rules_rec.attribute4 := p7_a17;
820 ddp_approval_rules_rec.attribute8 := p7_a21;
817 ddp_approval_rules_rec.attribute5 := p7_a18;
818 ddp_approval_rules_rec.attribute6 := p7_a19;
819 ddp_approval_rules_rec.attribute7 := p7_a20;
821 ddp_approval_rules_rec.attribute9 := p7_a22;
822 ddp_approval_rules_rec.attribute10 := p7_a23;
823 ddp_approval_rules_rec.attribute11 := p7_a24;
824 ddp_approval_rules_rec.attribute12 := p7_a25;
825 ddp_approval_rules_rec.attribute13 := p7_a26;
826 ddp_approval_rules_rec.attribute14 := p7_a27;
827 ddp_approval_rules_rec.attribute15 := p7_a28;
828 ddp_approval_rules_rec.approval_rule_name := p7_a29;
829 ddp_approval_rules_rec.description := p7_a30;
830 ddp_approval_rules_rec.creation_date := rosetta_g_miss_date_in_map(p7_a31);
831 ddp_approval_rules_rec.created_by := p7_a32;
832 ddp_approval_rules_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a33);
833 ddp_approval_rules_rec.last_updated_by := p7_a34;
834 ddp_approval_rules_rec.last_update_login := p7_a35;
835 ddp_approval_rules_rec.operation_flag := p7_a36;
836
837 -- here's the delegated call to the old PL/SQL routine
838 ahl_approvals_pvt.validate_approval_rules(p_api_version,
839 p_init_msg_list,
840 p_commit,
841 p_validation_level,
842 x_return_status,
843 x_msg_count,
844 x_msg_data,
845 ddp_approval_rules_rec);
846
847 -- copy data back from the local variables to OUT or IN-OUT args, if any
848
849
850
851
852
853
854
855 end;
856
857 procedure check_approval_rules_items(p0_a0 NUMBER
858 , p0_a1 NUMBER
859 , p0_a2 VARCHAR2
860 , p0_a3 VARCHAR2
861 , p0_a4 VARCHAR2
862 , p0_a5 VARCHAR2
863 , p0_a6 VARCHAR2
864 , p0_a7 NUMBER
865 , p0_a8 VARCHAR2
866 , p0_a9 DATE
867 , p0_a10 DATE
868 , p0_a11 VARCHAR2
869 , p0_a12 VARCHAR2
870 , p0_a13 VARCHAR2
871 , p0_a14 VARCHAR2
872 , p0_a15 VARCHAR2
873 , p0_a16 VARCHAR2
874 , p0_a17 VARCHAR2
875 , p0_a18 VARCHAR2
876 , p0_a19 VARCHAR2
877 , p0_a20 VARCHAR2
878 , p0_a21 VARCHAR2
879 , p0_a22 VARCHAR2
880 , p0_a23 VARCHAR2
881 , p0_a24 VARCHAR2
882 , p0_a25 VARCHAR2
883 , p0_a26 VARCHAR2
884 , p0_a27 VARCHAR2
885 , p0_a28 VARCHAR2
886 , p0_a29 VARCHAR2
887 , p0_a30 VARCHAR2
888 , p0_a31 DATE
889 , p0_a32 NUMBER
890 , p0_a33 DATE
891 , p0_a34 NUMBER
892 , p0_a35 NUMBER
893 , p0_a36 VARCHAR2
894 , p_validation_mode VARCHAR2
895 , x_return_status out nocopy VARCHAR2
896 )
897
898 as
899 ddp_approval_rules_rec ahl_approvals_pvt.approval_rules_rec_type;
900 ddindx binary_integer; indx binary_integer;
901 begin
902
903 -- copy data to the local IN or IN-OUT args, if any
904 ddp_approval_rules_rec.approval_rule_id := p0_a0;
905 ddp_approval_rules_rec.object_version_number := p0_a1;
906 ddp_approval_rules_rec.approval_object_code := p0_a2;
907 ddp_approval_rules_rec.approval_priority_code := p0_a3;
908 ddp_approval_rules_rec.approval_type_code := p0_a4;
909 ddp_approval_rules_rec.application_usg_code := p0_a5;
910 ddp_approval_rules_rec.application_usg := p0_a6;
911 ddp_approval_rules_rec.operating_unit_id := p0_a7;
912 ddp_approval_rules_rec.operating_name := p0_a8;
913 ddp_approval_rules_rec.active_start_date := rosetta_g_miss_date_in_map(p0_a9);
914 ddp_approval_rules_rec.active_end_date := rosetta_g_miss_date_in_map(p0_a10);
915 ddp_approval_rules_rec.status_code := p0_a11;
916 ddp_approval_rules_rec.seeded_flag := p0_a12;
917 ddp_approval_rules_rec.attribute_category := p0_a13;
918 ddp_approval_rules_rec.attribute1 := p0_a14;
919 ddp_approval_rules_rec.attribute2 := p0_a15;
920 ddp_approval_rules_rec.attribute3 := p0_a16;
921 ddp_approval_rules_rec.attribute4 := p0_a17;
922 ddp_approval_rules_rec.attribute5 := p0_a18;
923 ddp_approval_rules_rec.attribute6 := p0_a19;
924 ddp_approval_rules_rec.attribute7 := p0_a20;
925 ddp_approval_rules_rec.attribute8 := p0_a21;
926 ddp_approval_rules_rec.attribute9 := p0_a22;
927 ddp_approval_rules_rec.attribute10 := p0_a23;
928 ddp_approval_rules_rec.attribute11 := p0_a24;
929 ddp_approval_rules_rec.attribute12 := p0_a25;
930 ddp_approval_rules_rec.attribute13 := p0_a26;
931 ddp_approval_rules_rec.attribute14 := p0_a27;
932 ddp_approval_rules_rec.attribute15 := p0_a28;
933 ddp_approval_rules_rec.approval_rule_name := p0_a29;
934 ddp_approval_rules_rec.description := p0_a30;
935 ddp_approval_rules_rec.creation_date := rosetta_g_miss_date_in_map(p0_a31);
936 ddp_approval_rules_rec.created_by := p0_a32;
937 ddp_approval_rules_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a33);
938 ddp_approval_rules_rec.last_updated_by := p0_a34;
939 ddp_approval_rules_rec.last_update_login := p0_a35;
940 ddp_approval_rules_rec.operation_flag := p0_a36;
941
942
943
944 -- here's the delegated call to the old PL/SQL routine
945 ahl_approvals_pvt.check_approval_rules_items(ddp_approval_rules_rec,
946 p_validation_mode,
950
947 x_return_status);
948
949 -- copy data back from the local variables to OUT or IN-OUT args, if any
951
952 end;
953
954 procedure check_approval_rules_record(p0_a0 NUMBER
955 , p0_a1 NUMBER
956 , p0_a2 VARCHAR2
957 , p0_a3 VARCHAR2
958 , p0_a4 VARCHAR2
959 , p0_a5 VARCHAR2
960 , p0_a6 VARCHAR2
961 , p0_a7 NUMBER
962 , p0_a8 VARCHAR2
963 , p0_a9 DATE
964 , p0_a10 DATE
965 , p0_a11 VARCHAR2
966 , p0_a12 VARCHAR2
967 , p0_a13 VARCHAR2
968 , p0_a14 VARCHAR2
969 , p0_a15 VARCHAR2
970 , p0_a16 VARCHAR2
971 , p0_a17 VARCHAR2
972 , p0_a18 VARCHAR2
973 , p0_a19 VARCHAR2
974 , p0_a20 VARCHAR2
975 , p0_a21 VARCHAR2
976 , p0_a22 VARCHAR2
977 , p0_a23 VARCHAR2
978 , p0_a24 VARCHAR2
979 , p0_a25 VARCHAR2
980 , p0_a26 VARCHAR2
981 , p0_a27 VARCHAR2
982 , p0_a28 VARCHAR2
983 , p0_a29 VARCHAR2
984 , p0_a30 VARCHAR2
985 , p0_a31 DATE
986 , p0_a32 NUMBER
987 , p0_a33 DATE
988 , p0_a34 NUMBER
989 , p0_a35 NUMBER
990 , p0_a36 VARCHAR2
991 , p1_a0 NUMBER
992 , p1_a1 NUMBER
993 , p1_a2 VARCHAR2
994 , p1_a3 VARCHAR2
995 , p1_a4 VARCHAR2
996 , p1_a5 VARCHAR2
997 , p1_a6 VARCHAR2
998 , p1_a7 NUMBER
999 , p1_a8 VARCHAR2
1000 , p1_a9 DATE
1001 , p1_a10 DATE
1002 , p1_a11 VARCHAR2
1003 , p1_a12 VARCHAR2
1004 , p1_a13 VARCHAR2
1005 , p1_a14 VARCHAR2
1006 , p1_a15 VARCHAR2
1007 , p1_a16 VARCHAR2
1008 , p1_a17 VARCHAR2
1009 , p1_a18 VARCHAR2
1010 , p1_a19 VARCHAR2
1011 , p1_a20 VARCHAR2
1012 , p1_a21 VARCHAR2
1013 , p1_a22 VARCHAR2
1014 , p1_a23 VARCHAR2
1015 , p1_a24 VARCHAR2
1016 , p1_a25 VARCHAR2
1017 , p1_a26 VARCHAR2
1018 , p1_a27 VARCHAR2
1019 , p1_a28 VARCHAR2
1020 , p1_a29 VARCHAR2
1021 , p1_a30 VARCHAR2
1022 , p1_a31 DATE
1023 , p1_a32 NUMBER
1024 , p1_a33 DATE
1025 , p1_a34 NUMBER
1026 , p1_a35 NUMBER
1027 , p1_a36 VARCHAR2
1028 , x_return_status out nocopy VARCHAR2
1029 )
1030
1031 as
1032 ddp_approval_rules_rec ahl_approvals_pvt.approval_rules_rec_type;
1033 ddp_complete_rec ahl_approvals_pvt.approval_rules_rec_type;
1034 ddindx binary_integer; indx binary_integer;
1035 begin
1036
1037 -- copy data to the local IN or IN-OUT args, if any
1038 ddp_approval_rules_rec.approval_rule_id := p0_a0;
1039 ddp_approval_rules_rec.object_version_number := p0_a1;
1040 ddp_approval_rules_rec.approval_object_code := p0_a2;
1041 ddp_approval_rules_rec.approval_priority_code := p0_a3;
1042 ddp_approval_rules_rec.approval_type_code := p0_a4;
1043 ddp_approval_rules_rec.application_usg_code := p0_a5;
1044 ddp_approval_rules_rec.application_usg := p0_a6;
1045 ddp_approval_rules_rec.operating_unit_id := p0_a7;
1046 ddp_approval_rules_rec.operating_name := p0_a8;
1047 ddp_approval_rules_rec.active_start_date := rosetta_g_miss_date_in_map(p0_a9);
1048 ddp_approval_rules_rec.active_end_date := rosetta_g_miss_date_in_map(p0_a10);
1049 ddp_approval_rules_rec.status_code := p0_a11;
1050 ddp_approval_rules_rec.seeded_flag := p0_a12;
1051 ddp_approval_rules_rec.attribute_category := p0_a13;
1052 ddp_approval_rules_rec.attribute1 := p0_a14;
1053 ddp_approval_rules_rec.attribute2 := p0_a15;
1054 ddp_approval_rules_rec.attribute3 := p0_a16;
1055 ddp_approval_rules_rec.attribute4 := p0_a17;
1056 ddp_approval_rules_rec.attribute5 := p0_a18;
1057 ddp_approval_rules_rec.attribute6 := p0_a19;
1058 ddp_approval_rules_rec.attribute7 := p0_a20;
1059 ddp_approval_rules_rec.attribute8 := p0_a21;
1060 ddp_approval_rules_rec.attribute9 := p0_a22;
1061 ddp_approval_rules_rec.attribute10 := p0_a23;
1062 ddp_approval_rules_rec.attribute11 := p0_a24;
1063 ddp_approval_rules_rec.attribute12 := p0_a25;
1064 ddp_approval_rules_rec.attribute13 := p0_a26;
1065 ddp_approval_rules_rec.attribute14 := p0_a27;
1066 ddp_approval_rules_rec.attribute15 := p0_a28;
1067 ddp_approval_rules_rec.approval_rule_name := p0_a29;
1068 ddp_approval_rules_rec.description := p0_a30;
1069 ddp_approval_rules_rec.creation_date := rosetta_g_miss_date_in_map(p0_a31);
1070 ddp_approval_rules_rec.created_by := p0_a32;
1071 ddp_approval_rules_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a33);
1072 ddp_approval_rules_rec.last_updated_by := p0_a34;
1073 ddp_approval_rules_rec.last_update_login := p0_a35;
1074 ddp_approval_rules_rec.operation_flag := p0_a36;
1075
1076 ddp_complete_rec.approval_rule_id := p1_a0;
1077 ddp_complete_rec.object_version_number := p1_a1;
1078 ddp_complete_rec.approval_object_code := p1_a2;
1079 ddp_complete_rec.approval_priority_code := p1_a3;
1080 ddp_complete_rec.approval_type_code := p1_a4;
1081 ddp_complete_rec.application_usg_code := p1_a5;
1082 ddp_complete_rec.application_usg := p1_a6;
1083 ddp_complete_rec.operating_unit_id := p1_a7;
1084 ddp_complete_rec.operating_name := p1_a8;
1088 ddp_complete_rec.seeded_flag := p1_a12;
1085 ddp_complete_rec.active_start_date := rosetta_g_miss_date_in_map(p1_a9);
1086 ddp_complete_rec.active_end_date := rosetta_g_miss_date_in_map(p1_a10);
1087 ddp_complete_rec.status_code := p1_a11;
1089 ddp_complete_rec.attribute_category := p1_a13;
1090 ddp_complete_rec.attribute1 := p1_a14;
1091 ddp_complete_rec.attribute2 := p1_a15;
1092 ddp_complete_rec.attribute3 := p1_a16;
1093 ddp_complete_rec.attribute4 := p1_a17;
1094 ddp_complete_rec.attribute5 := p1_a18;
1095 ddp_complete_rec.attribute6 := p1_a19;
1096 ddp_complete_rec.attribute7 := p1_a20;
1097 ddp_complete_rec.attribute8 := p1_a21;
1098 ddp_complete_rec.attribute9 := p1_a22;
1099 ddp_complete_rec.attribute10 := p1_a23;
1100 ddp_complete_rec.attribute11 := p1_a24;
1101 ddp_complete_rec.attribute12 := p1_a25;
1102 ddp_complete_rec.attribute13 := p1_a26;
1103 ddp_complete_rec.attribute14 := p1_a27;
1104 ddp_complete_rec.attribute15 := p1_a28;
1105 ddp_complete_rec.approval_rule_name := p1_a29;
1106 ddp_complete_rec.description := p1_a30;
1107 ddp_complete_rec.creation_date := rosetta_g_miss_date_in_map(p1_a31);
1108 ddp_complete_rec.created_by := p1_a32;
1109 ddp_complete_rec.last_update_date := rosetta_g_miss_date_in_map(p1_a33);
1110 ddp_complete_rec.last_updated_by := p1_a34;
1111 ddp_complete_rec.last_update_login := p1_a35;
1112 ddp_complete_rec.operation_flag := p1_a36;
1113
1114
1115 -- here's the delegated call to the old PL/SQL routine
1116 ahl_approvals_pvt.check_approval_rules_record(ddp_approval_rules_rec,
1117 ddp_complete_rec,
1118 x_return_status);
1119
1120 -- copy data back from the local variables to OUT or IN-OUT args, if any
1121
1122
1123 end;
1124
1125 procedure complete_approval_rules_rec(p0_a0 NUMBER
1126 , p0_a1 NUMBER
1127 , p0_a2 VARCHAR2
1128 , p0_a3 VARCHAR2
1129 , p0_a4 VARCHAR2
1130 , p0_a5 VARCHAR2
1131 , p0_a6 VARCHAR2
1132 , p0_a7 NUMBER
1133 , p0_a8 VARCHAR2
1134 , p0_a9 DATE
1135 , p0_a10 DATE
1136 , p0_a11 VARCHAR2
1137 , p0_a12 VARCHAR2
1138 , p0_a13 VARCHAR2
1139 , p0_a14 VARCHAR2
1140 , p0_a15 VARCHAR2
1141 , p0_a16 VARCHAR2
1142 , p0_a17 VARCHAR2
1143 , p0_a18 VARCHAR2
1144 , p0_a19 VARCHAR2
1145 , p0_a20 VARCHAR2
1146 , p0_a21 VARCHAR2
1147 , p0_a22 VARCHAR2
1148 , p0_a23 VARCHAR2
1149 , p0_a24 VARCHAR2
1150 , p0_a25 VARCHAR2
1151 , p0_a26 VARCHAR2
1152 , p0_a27 VARCHAR2
1153 , p0_a28 VARCHAR2
1154 , p0_a29 VARCHAR2
1155 , p0_a30 VARCHAR2
1156 , p0_a31 DATE
1157 , p0_a32 NUMBER
1158 , p0_a33 DATE
1159 , p0_a34 NUMBER
1160 , p0_a35 NUMBER
1161 , p0_a36 VARCHAR2
1162 , p1_a0 out nocopy NUMBER
1163 , p1_a1 out nocopy NUMBER
1164 , p1_a2 out nocopy VARCHAR2
1165 , p1_a3 out nocopy VARCHAR2
1166 , p1_a4 out nocopy VARCHAR2
1167 , p1_a5 out nocopy VARCHAR2
1168 , p1_a6 out nocopy VARCHAR2
1169 , p1_a7 out nocopy NUMBER
1170 , p1_a8 out nocopy VARCHAR2
1171 , p1_a9 out nocopy DATE
1172 , p1_a10 out nocopy DATE
1173 , p1_a11 out nocopy VARCHAR2
1174 , p1_a12 out nocopy VARCHAR2
1175 , p1_a13 out nocopy VARCHAR2
1176 , p1_a14 out nocopy VARCHAR2
1177 , p1_a15 out nocopy VARCHAR2
1178 , p1_a16 out nocopy VARCHAR2
1179 , p1_a17 out nocopy VARCHAR2
1180 , p1_a18 out nocopy VARCHAR2
1181 , p1_a19 out nocopy VARCHAR2
1182 , p1_a20 out nocopy VARCHAR2
1183 , p1_a21 out nocopy VARCHAR2
1184 , p1_a22 out nocopy VARCHAR2
1185 , p1_a23 out nocopy VARCHAR2
1186 , p1_a24 out nocopy VARCHAR2
1187 , p1_a25 out nocopy VARCHAR2
1188 , p1_a26 out nocopy VARCHAR2
1189 , p1_a27 out nocopy VARCHAR2
1190 , p1_a28 out nocopy VARCHAR2
1191 , p1_a29 out nocopy VARCHAR2
1192 , p1_a30 out nocopy VARCHAR2
1193 , p1_a31 out nocopy DATE
1194 , p1_a32 out nocopy NUMBER
1195 , p1_a33 out nocopy DATE
1196 , p1_a34 out nocopy NUMBER
1197 , p1_a35 out nocopy NUMBER
1198 , p1_a36 out nocopy VARCHAR2
1199 )
1200
1201 as
1202 ddp_approval_rules_rec ahl_approvals_pvt.approval_rules_rec_type;
1203 ddx_complete_rec ahl_approvals_pvt.approval_rules_rec_type;
1204 ddindx binary_integer; indx binary_integer;
1205 begin
1206
1207 -- copy data to the local IN or IN-OUT args, if any
1208 ddp_approval_rules_rec.approval_rule_id := p0_a0;
1209 ddp_approval_rules_rec.object_version_number := p0_a1;
1210 ddp_approval_rules_rec.approval_object_code := p0_a2;
1211 ddp_approval_rules_rec.approval_priority_code := p0_a3;
1212 ddp_approval_rules_rec.approval_type_code := p0_a4;
1213 ddp_approval_rules_rec.application_usg_code := p0_a5;
1214 ddp_approval_rules_rec.application_usg := p0_a6;
1215 ddp_approval_rules_rec.operating_unit_id := p0_a7;
1216 ddp_approval_rules_rec.operating_name := p0_a8;
1217 ddp_approval_rules_rec.active_start_date := rosetta_g_miss_date_in_map(p0_a9);
1218 ddp_approval_rules_rec.active_end_date := rosetta_g_miss_date_in_map(p0_a10);
1222 ddp_approval_rules_rec.attribute1 := p0_a14;
1219 ddp_approval_rules_rec.status_code := p0_a11;
1220 ddp_approval_rules_rec.seeded_flag := p0_a12;
1221 ddp_approval_rules_rec.attribute_category := p0_a13;
1223 ddp_approval_rules_rec.attribute2 := p0_a15;
1224 ddp_approval_rules_rec.attribute3 := p0_a16;
1225 ddp_approval_rules_rec.attribute4 := p0_a17;
1226 ddp_approval_rules_rec.attribute5 := p0_a18;
1227 ddp_approval_rules_rec.attribute6 := p0_a19;
1228 ddp_approval_rules_rec.attribute7 := p0_a20;
1229 ddp_approval_rules_rec.attribute8 := p0_a21;
1230 ddp_approval_rules_rec.attribute9 := p0_a22;
1231 ddp_approval_rules_rec.attribute10 := p0_a23;
1232 ddp_approval_rules_rec.attribute11 := p0_a24;
1233 ddp_approval_rules_rec.attribute12 := p0_a25;
1234 ddp_approval_rules_rec.attribute13 := p0_a26;
1235 ddp_approval_rules_rec.attribute14 := p0_a27;
1236 ddp_approval_rules_rec.attribute15 := p0_a28;
1237 ddp_approval_rules_rec.approval_rule_name := p0_a29;
1238 ddp_approval_rules_rec.description := p0_a30;
1239 ddp_approval_rules_rec.creation_date := rosetta_g_miss_date_in_map(p0_a31);
1240 ddp_approval_rules_rec.created_by := p0_a32;
1241 ddp_approval_rules_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a33);
1242 ddp_approval_rules_rec.last_updated_by := p0_a34;
1243 ddp_approval_rules_rec.last_update_login := p0_a35;
1244 ddp_approval_rules_rec.operation_flag := p0_a36;
1245
1246
1247 -- here's the delegated call to the old PL/SQL routine
1248 ahl_approvals_pvt.complete_approval_rules_rec(ddp_approval_rules_rec,
1249 ddx_complete_rec);
1250
1251 -- copy data back from the local variables to OUT or IN-OUT args, if any
1252
1253 p1_a0 := ddx_complete_rec.approval_rule_id;
1254 p1_a1 := ddx_complete_rec.object_version_number;
1255 p1_a2 := ddx_complete_rec.approval_object_code;
1256 p1_a3 := ddx_complete_rec.approval_priority_code;
1257 p1_a4 := ddx_complete_rec.approval_type_code;
1258 p1_a5 := ddx_complete_rec.application_usg_code;
1259 p1_a6 := ddx_complete_rec.application_usg;
1260 p1_a7 := ddx_complete_rec.operating_unit_id;
1261 p1_a8 := ddx_complete_rec.operating_name;
1262 p1_a9 := ddx_complete_rec.active_start_date;
1263 p1_a10 := ddx_complete_rec.active_end_date;
1264 p1_a11 := ddx_complete_rec.status_code;
1265 p1_a12 := ddx_complete_rec.seeded_flag;
1266 p1_a13 := ddx_complete_rec.attribute_category;
1267 p1_a14 := ddx_complete_rec.attribute1;
1268 p1_a15 := ddx_complete_rec.attribute2;
1269 p1_a16 := ddx_complete_rec.attribute3;
1270 p1_a17 := ddx_complete_rec.attribute4;
1271 p1_a18 := ddx_complete_rec.attribute5;
1272 p1_a19 := ddx_complete_rec.attribute6;
1273 p1_a20 := ddx_complete_rec.attribute7;
1274 p1_a21 := ddx_complete_rec.attribute8;
1275 p1_a22 := ddx_complete_rec.attribute9;
1276 p1_a23 := ddx_complete_rec.attribute10;
1277 p1_a24 := ddx_complete_rec.attribute11;
1278 p1_a25 := ddx_complete_rec.attribute12;
1279 p1_a26 := ddx_complete_rec.attribute13;
1280 p1_a27 := ddx_complete_rec.attribute14;
1281 p1_a28 := ddx_complete_rec.attribute15;
1282 p1_a29 := ddx_complete_rec.approval_rule_name;
1283 p1_a30 := ddx_complete_rec.description;
1284 p1_a31 := ddx_complete_rec.creation_date;
1285 p1_a32 := ddx_complete_rec.created_by;
1286 p1_a33 := ddx_complete_rec.last_update_date;
1287 p1_a34 := ddx_complete_rec.last_updated_by;
1288 p1_a35 := ddx_complete_rec.last_update_login;
1289 p1_a36 := ddx_complete_rec.operation_flag;
1290 end;
1291
1292 procedure create_approvers(p_api_version NUMBER
1293 , p_init_msg_list VARCHAR2
1294 , p_commit VARCHAR2
1295 , p_validation_level NUMBER
1296 , x_return_status out nocopy VARCHAR2
1297 , x_msg_count out nocopy NUMBER
1298 , x_msg_data out nocopy VARCHAR2
1299 , p7_a0 NUMBER
1300 , p7_a1 NUMBER
1301 , p7_a2 NUMBER
1302 , p7_a3 VARCHAR2
1303 , p7_a4 NUMBER
1304 , p7_a5 NUMBER
1305 , p7_a6 VARCHAR2
1306 , p7_a7 DATE
1307 , p7_a8 NUMBER
1308 , p7_a9 DATE
1309 , p7_a10 NUMBER
1310 , p7_a11 NUMBER
1311 , p7_a12 VARCHAR2
1312 , p7_a13 VARCHAR2
1313 , p7_a14 VARCHAR2
1314 , p7_a15 VARCHAR2
1315 , p7_a16 VARCHAR2
1316 , p7_a17 VARCHAR2
1317 , p7_a18 VARCHAR2
1318 , p7_a19 VARCHAR2
1319 , p7_a20 VARCHAR2
1320 , p7_a21 VARCHAR2
1321 , p7_a22 VARCHAR2
1322 , p7_a23 VARCHAR2
1323 , p7_a24 VARCHAR2
1324 , p7_a25 VARCHAR2
1325 , p7_a26 VARCHAR2
1326 , p7_a27 VARCHAR2
1327 , p7_a28 VARCHAR2
1328 , x_approval_approver_id out nocopy NUMBER
1329 )
1330
1331 as
1332 ddp_approvers_rec ahl_approvals_pvt.approvers_rec_type;
1333 ddindx binary_integer; indx binary_integer;
1334 begin
1335
1336 -- copy data to the local IN or IN-OUT args, if any
1337
1338
1339
1340
1341
1342
1343
1344 ddp_approvers_rec.approval_approver_id := p7_a0;
1345 ddp_approvers_rec.object_version_number := p7_a1;
1346 ddp_approvers_rec.approval_rule_id := p7_a2;
1347 ddp_approvers_rec.approver_type_code := p7_a3;
1351 ddp_approvers_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a7);
1348 ddp_approvers_rec.approver_sequence := p7_a4;
1349 ddp_approvers_rec.approver_id := p7_a5;
1350 ddp_approvers_rec.approver_name := p7_a6;
1352 ddp_approvers_rec.last_updated_by := p7_a8;
1353 ddp_approvers_rec.creation_date := rosetta_g_miss_date_in_map(p7_a9);
1354 ddp_approvers_rec.created_by := p7_a10;
1355 ddp_approvers_rec.last_update_login := p7_a11;
1356 ddp_approvers_rec.attribute_category := p7_a12;
1357 ddp_approvers_rec.attribute1 := p7_a13;
1358 ddp_approvers_rec.attribute2 := p7_a14;
1359 ddp_approvers_rec.attribute3 := p7_a15;
1360 ddp_approvers_rec.attribute4 := p7_a16;
1361 ddp_approvers_rec.attribute5 := p7_a17;
1362 ddp_approvers_rec.attribute6 := p7_a18;
1363 ddp_approvers_rec.attribute7 := p7_a19;
1364 ddp_approvers_rec.attribute8 := p7_a20;
1365 ddp_approvers_rec.attribute9 := p7_a21;
1366 ddp_approvers_rec.attribute10 := p7_a22;
1367 ddp_approvers_rec.attribute11 := p7_a23;
1368 ddp_approvers_rec.attribute12 := p7_a24;
1369 ddp_approvers_rec.attribute13 := p7_a25;
1370 ddp_approvers_rec.attribute14 := p7_a26;
1371 ddp_approvers_rec.attribute15 := p7_a27;
1372 ddp_approvers_rec.operation_flag := p7_a28;
1373
1374
1375 -- here's the delegated call to the old PL/SQL routine
1376 ahl_approvals_pvt.create_approvers(p_api_version,
1377 p_init_msg_list,
1378 p_commit,
1379 p_validation_level,
1380 x_return_status,
1381 x_msg_count,
1382 x_msg_data,
1383 ddp_approvers_rec,
1384 x_approval_approver_id);
1385
1386 -- copy data back from the local variables to OUT or IN-OUT args, if any
1387
1388
1389
1390
1391
1392
1393
1394
1395 end;
1396
1397 procedure update_approvers(p_api_version NUMBER
1398 , p_init_msg_list VARCHAR2
1399 , p_commit VARCHAR2
1400 , p_validation_level NUMBER
1401 , p4_a0 NUMBER
1402 , p4_a1 NUMBER
1403 , p4_a2 NUMBER
1404 , p4_a3 VARCHAR2
1405 , p4_a4 NUMBER
1406 , p4_a5 NUMBER
1407 , p4_a6 VARCHAR2
1408 , p4_a7 DATE
1409 , p4_a8 NUMBER
1410 , p4_a9 DATE
1411 , p4_a10 NUMBER
1412 , p4_a11 NUMBER
1413 , p4_a12 VARCHAR2
1414 , p4_a13 VARCHAR2
1415 , p4_a14 VARCHAR2
1416 , p4_a15 VARCHAR2
1417 , p4_a16 VARCHAR2
1418 , p4_a17 VARCHAR2
1419 , p4_a18 VARCHAR2
1420 , p4_a19 VARCHAR2
1421 , p4_a20 VARCHAR2
1422 , p4_a21 VARCHAR2
1423 , p4_a22 VARCHAR2
1424 , p4_a23 VARCHAR2
1425 , p4_a24 VARCHAR2
1426 , p4_a25 VARCHAR2
1427 , p4_a26 VARCHAR2
1428 , p4_a27 VARCHAR2
1429 , p4_a28 VARCHAR2
1430 , x_return_status out nocopy VARCHAR2
1431 , x_msg_count out nocopy NUMBER
1432 , x_msg_data out nocopy VARCHAR2
1433 )
1434
1435 as
1436 ddp_approvers_rec ahl_approvals_pvt.approvers_rec_type;
1437 ddindx binary_integer; indx binary_integer;
1438 begin
1439
1440 -- copy data to the local IN or IN-OUT args, if any
1441
1442
1443
1444
1445 ddp_approvers_rec.approval_approver_id := p4_a0;
1446 ddp_approvers_rec.object_version_number := p4_a1;
1447 ddp_approvers_rec.approval_rule_id := p4_a2;
1448 ddp_approvers_rec.approver_type_code := p4_a3;
1449 ddp_approvers_rec.approver_sequence := p4_a4;
1450 ddp_approvers_rec.approver_id := p4_a5;
1451 ddp_approvers_rec.approver_name := p4_a6;
1452 ddp_approvers_rec.last_update_date := rosetta_g_miss_date_in_map(p4_a7);
1453 ddp_approvers_rec.last_updated_by := p4_a8;
1454 ddp_approvers_rec.creation_date := rosetta_g_miss_date_in_map(p4_a9);
1455 ddp_approvers_rec.created_by := p4_a10;
1456 ddp_approvers_rec.last_update_login := p4_a11;
1457 ddp_approvers_rec.attribute_category := p4_a12;
1458 ddp_approvers_rec.attribute1 := p4_a13;
1459 ddp_approvers_rec.attribute2 := p4_a14;
1460 ddp_approvers_rec.attribute3 := p4_a15;
1461 ddp_approvers_rec.attribute4 := p4_a16;
1462 ddp_approvers_rec.attribute5 := p4_a17;
1463 ddp_approvers_rec.attribute6 := p4_a18;
1464 ddp_approvers_rec.attribute7 := p4_a19;
1465 ddp_approvers_rec.attribute8 := p4_a20;
1466 ddp_approvers_rec.attribute9 := p4_a21;
1467 ddp_approvers_rec.attribute10 := p4_a22;
1468 ddp_approvers_rec.attribute11 := p4_a23;
1469 ddp_approvers_rec.attribute12 := p4_a24;
1470 ddp_approvers_rec.attribute13 := p4_a25;
1471 ddp_approvers_rec.attribute14 := p4_a26;
1472 ddp_approvers_rec.attribute15 := p4_a27;
1473 ddp_approvers_rec.operation_flag := p4_a28;
1474
1475
1476
1477
1478 -- here's the delegated call to the old PL/SQL routine
1479 ahl_approvals_pvt.update_approvers(p_api_version,
1480 p_init_msg_list,
1481 p_commit,
1482 p_validation_level,
1483 ddp_approvers_rec,
1484 x_return_status,
1485 x_msg_count,
1486 x_msg_data);
1487
1488 -- copy data back from the local variables to OUT or IN-OUT args, if any
1489
1490
1491
1492
1493
1494
1495
1496 end;
1497
1498 procedure validate_approvers(p_api_version NUMBER
1499 , p_init_msg_list VARCHAR2
1500 , p_commit VARCHAR2
1504 , x_msg_data out nocopy VARCHAR2
1501 , p_validation_level NUMBER
1502 , x_return_status out nocopy VARCHAR2
1503 , x_msg_count out nocopy NUMBER
1505 , p7_a0 NUMBER
1506 , p7_a1 NUMBER
1507 , p7_a2 NUMBER
1508 , p7_a3 VARCHAR2
1509 , p7_a4 NUMBER
1510 , p7_a5 NUMBER
1511 , p7_a6 VARCHAR2
1512 , p7_a7 DATE
1513 , p7_a8 NUMBER
1514 , p7_a9 DATE
1515 , p7_a10 NUMBER
1516 , p7_a11 NUMBER
1517 , p7_a12 VARCHAR2
1518 , p7_a13 VARCHAR2
1519 , p7_a14 VARCHAR2
1520 , p7_a15 VARCHAR2
1521 , p7_a16 VARCHAR2
1522 , p7_a17 VARCHAR2
1523 , p7_a18 VARCHAR2
1524 , p7_a19 VARCHAR2
1525 , p7_a20 VARCHAR2
1526 , p7_a21 VARCHAR2
1527 , p7_a22 VARCHAR2
1528 , p7_a23 VARCHAR2
1529 , p7_a24 VARCHAR2
1530 , p7_a25 VARCHAR2
1531 , p7_a26 VARCHAR2
1532 , p7_a27 VARCHAR2
1533 , p7_a28 VARCHAR2
1534 )
1535
1536 as
1537 ddp_approvers_rec ahl_approvals_pvt.approvers_rec_type;
1538 ddindx binary_integer; indx binary_integer;
1539 begin
1540
1541 -- copy data to the local IN or IN-OUT args, if any
1542
1543
1544
1545
1546
1547
1548
1549 ddp_approvers_rec.approval_approver_id := p7_a0;
1550 ddp_approvers_rec.object_version_number := p7_a1;
1551 ddp_approvers_rec.approval_rule_id := p7_a2;
1552 ddp_approvers_rec.approver_type_code := p7_a3;
1553 ddp_approvers_rec.approver_sequence := p7_a4;
1554 ddp_approvers_rec.approver_id := p7_a5;
1555 ddp_approvers_rec.approver_name := p7_a6;
1556 ddp_approvers_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a7);
1557 ddp_approvers_rec.last_updated_by := p7_a8;
1558 ddp_approvers_rec.creation_date := rosetta_g_miss_date_in_map(p7_a9);
1559 ddp_approvers_rec.created_by := p7_a10;
1560 ddp_approvers_rec.last_update_login := p7_a11;
1561 ddp_approvers_rec.attribute_category := p7_a12;
1562 ddp_approvers_rec.attribute1 := p7_a13;
1563 ddp_approvers_rec.attribute2 := p7_a14;
1564 ddp_approvers_rec.attribute3 := p7_a15;
1565 ddp_approvers_rec.attribute4 := p7_a16;
1566 ddp_approvers_rec.attribute5 := p7_a17;
1567 ddp_approvers_rec.attribute6 := p7_a18;
1568 ddp_approvers_rec.attribute7 := p7_a19;
1569 ddp_approvers_rec.attribute8 := p7_a20;
1570 ddp_approvers_rec.attribute9 := p7_a21;
1571 ddp_approvers_rec.attribute10 := p7_a22;
1572 ddp_approvers_rec.attribute11 := p7_a23;
1573 ddp_approvers_rec.attribute12 := p7_a24;
1574 ddp_approvers_rec.attribute13 := p7_a25;
1575 ddp_approvers_rec.attribute14 := p7_a26;
1576 ddp_approvers_rec.attribute15 := p7_a27;
1577 ddp_approvers_rec.operation_flag := p7_a28;
1578
1579 -- here's the delegated call to the old PL/SQL routine
1580 ahl_approvals_pvt.validate_approvers(p_api_version,
1581 p_init_msg_list,
1582 p_commit,
1583 p_validation_level,
1584 x_return_status,
1585 x_msg_count,
1586 x_msg_data,
1587 ddp_approvers_rec);
1588
1589 -- copy data back from the local variables to OUT or IN-OUT args, if any
1590
1591
1592
1593
1594
1595
1596
1597 end;
1598
1599 procedure check_approvers_items(p_validation_mode VARCHAR2
1600 , p1_a0 NUMBER
1601 , p1_a1 NUMBER
1602 , p1_a2 NUMBER
1603 , p1_a3 VARCHAR2
1604 , p1_a4 NUMBER
1605 , p1_a5 NUMBER
1606 , p1_a6 VARCHAR2
1607 , p1_a7 DATE
1608 , p1_a8 NUMBER
1609 , p1_a9 DATE
1610 , p1_a10 NUMBER
1611 , p1_a11 NUMBER
1612 , p1_a12 VARCHAR2
1613 , p1_a13 VARCHAR2
1614 , p1_a14 VARCHAR2
1615 , p1_a15 VARCHAR2
1616 , p1_a16 VARCHAR2
1617 , p1_a17 VARCHAR2
1618 , p1_a18 VARCHAR2
1619 , p1_a19 VARCHAR2
1620 , p1_a20 VARCHAR2
1621 , p1_a21 VARCHAR2
1622 , p1_a22 VARCHAR2
1623 , p1_a23 VARCHAR2
1624 , p1_a24 VARCHAR2
1625 , p1_a25 VARCHAR2
1626 , p1_a26 VARCHAR2
1627 , p1_a27 VARCHAR2
1628 , p1_a28 VARCHAR2
1629 , x_return_status out nocopy VARCHAR2
1630 )
1631
1632 as
1633 ddp_approvers_rec ahl_approvals_pvt.approvers_rec_type;
1634 ddindx binary_integer; indx binary_integer;
1635 begin
1636
1637 -- copy data to the local IN or IN-OUT args, if any
1638
1639 ddp_approvers_rec.approval_approver_id := p1_a0;
1640 ddp_approvers_rec.object_version_number := p1_a1;
1641 ddp_approvers_rec.approval_rule_id := p1_a2;
1642 ddp_approvers_rec.approver_type_code := p1_a3;
1643 ddp_approvers_rec.approver_sequence := p1_a4;
1644 ddp_approvers_rec.approver_id := p1_a5;
1645 ddp_approvers_rec.approver_name := p1_a6;
1646 ddp_approvers_rec.last_update_date := rosetta_g_miss_date_in_map(p1_a7);
1647 ddp_approvers_rec.last_updated_by := p1_a8;
1648 ddp_approvers_rec.creation_date := rosetta_g_miss_date_in_map(p1_a9);
1649 ddp_approvers_rec.created_by := p1_a10;
1650 ddp_approvers_rec.last_update_login := p1_a11;
1651 ddp_approvers_rec.attribute_category := p1_a12;
1652 ddp_approvers_rec.attribute1 := p1_a13;
1656 ddp_approvers_rec.attribute5 := p1_a17;
1653 ddp_approvers_rec.attribute2 := p1_a14;
1654 ddp_approvers_rec.attribute3 := p1_a15;
1655 ddp_approvers_rec.attribute4 := p1_a16;
1657 ddp_approvers_rec.attribute6 := p1_a18;
1658 ddp_approvers_rec.attribute7 := p1_a19;
1659 ddp_approvers_rec.attribute8 := p1_a20;
1660 ddp_approvers_rec.attribute9 := p1_a21;
1661 ddp_approvers_rec.attribute10 := p1_a22;
1662 ddp_approvers_rec.attribute11 := p1_a23;
1663 ddp_approvers_rec.attribute12 := p1_a24;
1664 ddp_approvers_rec.attribute13 := p1_a25;
1665 ddp_approvers_rec.attribute14 := p1_a26;
1666 ddp_approvers_rec.attribute15 := p1_a27;
1667 ddp_approvers_rec.operation_flag := p1_a28;
1668
1669
1670 -- here's the delegated call to the old PL/SQL routine
1671 ahl_approvals_pvt.check_approvers_items(p_validation_mode,
1672 ddp_approvers_rec,
1673 x_return_status);
1674
1675 -- copy data back from the local variables to OUT or IN-OUT args, if any
1676
1677
1678 end;
1679
1680 procedure complete_approvers_rec(p0_a0 NUMBER
1681 , p0_a1 NUMBER
1682 , p0_a2 NUMBER
1683 , p0_a3 VARCHAR2
1684 , p0_a4 NUMBER
1685 , p0_a5 NUMBER
1686 , p0_a6 VARCHAR2
1687 , p0_a7 DATE
1688 , p0_a8 NUMBER
1689 , p0_a9 DATE
1690 , p0_a10 NUMBER
1691 , p0_a11 NUMBER
1692 , p0_a12 VARCHAR2
1693 , p0_a13 VARCHAR2
1694 , p0_a14 VARCHAR2
1695 , p0_a15 VARCHAR2
1696 , p0_a16 VARCHAR2
1697 , p0_a17 VARCHAR2
1698 , p0_a18 VARCHAR2
1699 , p0_a19 VARCHAR2
1700 , p0_a20 VARCHAR2
1701 , p0_a21 VARCHAR2
1702 , p0_a22 VARCHAR2
1703 , p0_a23 VARCHAR2
1704 , p0_a24 VARCHAR2
1705 , p0_a25 VARCHAR2
1706 , p0_a26 VARCHAR2
1707 , p0_a27 VARCHAR2
1708 , p0_a28 VARCHAR2
1709 , p1_a0 out nocopy NUMBER
1710 , p1_a1 out nocopy NUMBER
1711 , p1_a2 out nocopy NUMBER
1712 , p1_a3 out nocopy VARCHAR2
1713 , p1_a4 out nocopy NUMBER
1714 , p1_a5 out nocopy NUMBER
1715 , p1_a6 out nocopy VARCHAR2
1716 , p1_a7 out nocopy DATE
1717 , p1_a8 out nocopy NUMBER
1718 , p1_a9 out nocopy DATE
1719 , p1_a10 out nocopy NUMBER
1720 , p1_a11 out nocopy NUMBER
1721 , p1_a12 out nocopy VARCHAR2
1722 , p1_a13 out nocopy VARCHAR2
1723 , p1_a14 out nocopy VARCHAR2
1724 , p1_a15 out nocopy VARCHAR2
1725 , p1_a16 out nocopy VARCHAR2
1726 , p1_a17 out nocopy VARCHAR2
1727 , p1_a18 out nocopy VARCHAR2
1728 , p1_a19 out nocopy VARCHAR2
1729 , p1_a20 out nocopy VARCHAR2
1730 , p1_a21 out nocopy VARCHAR2
1731 , p1_a22 out nocopy VARCHAR2
1732 , p1_a23 out nocopy VARCHAR2
1733 , p1_a24 out nocopy VARCHAR2
1734 , p1_a25 out nocopy VARCHAR2
1735 , p1_a26 out nocopy VARCHAR2
1736 , p1_a27 out nocopy VARCHAR2
1737 , p1_a28 out nocopy VARCHAR2
1738 )
1739
1740 as
1741 ddp_approvers_rec ahl_approvals_pvt.approvers_rec_type;
1742 ddx_complete_rec ahl_approvals_pvt.approvers_rec_type;
1743 ddindx binary_integer; indx binary_integer;
1744 begin
1745
1746 -- copy data to the local IN or IN-OUT args, if any
1747 ddp_approvers_rec.approval_approver_id := p0_a0;
1748 ddp_approvers_rec.object_version_number := p0_a1;
1749 ddp_approvers_rec.approval_rule_id := p0_a2;
1750 ddp_approvers_rec.approver_type_code := p0_a3;
1751 ddp_approvers_rec.approver_sequence := p0_a4;
1752 ddp_approvers_rec.approver_id := p0_a5;
1753 ddp_approvers_rec.approver_name := p0_a6;
1754 ddp_approvers_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a7);
1755 ddp_approvers_rec.last_updated_by := p0_a8;
1756 ddp_approvers_rec.creation_date := rosetta_g_miss_date_in_map(p0_a9);
1757 ddp_approvers_rec.created_by := p0_a10;
1758 ddp_approvers_rec.last_update_login := p0_a11;
1759 ddp_approvers_rec.attribute_category := p0_a12;
1760 ddp_approvers_rec.attribute1 := p0_a13;
1761 ddp_approvers_rec.attribute2 := p0_a14;
1762 ddp_approvers_rec.attribute3 := p0_a15;
1763 ddp_approvers_rec.attribute4 := p0_a16;
1764 ddp_approvers_rec.attribute5 := p0_a17;
1765 ddp_approvers_rec.attribute6 := p0_a18;
1766 ddp_approvers_rec.attribute7 := p0_a19;
1767 ddp_approvers_rec.attribute8 := p0_a20;
1768 ddp_approvers_rec.attribute9 := p0_a21;
1769 ddp_approvers_rec.attribute10 := p0_a22;
1770 ddp_approvers_rec.attribute11 := p0_a23;
1771 ddp_approvers_rec.attribute12 := p0_a24;
1772 ddp_approvers_rec.attribute13 := p0_a25;
1773 ddp_approvers_rec.attribute14 := p0_a26;
1774 ddp_approvers_rec.attribute15 := p0_a27;
1775 ddp_approvers_rec.operation_flag := p0_a28;
1776
1777
1778 -- here's the delegated call to the old PL/SQL routine
1779 ahl_approvals_pvt.complete_approvers_rec(ddp_approvers_rec,
1780 ddx_complete_rec);
1781
1782 -- copy data back from the local variables to OUT or IN-OUT args, if any
1783
1784 p1_a0 := ddx_complete_rec.approval_approver_id;
1785 p1_a1 := ddx_complete_rec.object_version_number;
1786 p1_a2 := ddx_complete_rec.approval_rule_id;
1787 p1_a3 := ddx_complete_rec.approver_type_code;
1788 p1_a4 := ddx_complete_rec.approver_sequence;
1789 p1_a5 := ddx_complete_rec.approver_id;
1790 p1_a6 := ddx_complete_rec.approver_name;
1791 p1_a7 := ddx_complete_rec.last_update_date;
1792 p1_a8 := ddx_complete_rec.last_updated_by;
1793 p1_a9 := ddx_complete_rec.creation_date;
1794 p1_a10 := ddx_complete_rec.created_by;
1795 p1_a11 := ddx_complete_rec.last_update_login;
1796 p1_a12 := ddx_complete_rec.attribute_category;
1797 p1_a13 := ddx_complete_rec.attribute1;
1801 p1_a17 := ddx_complete_rec.attribute5;
1798 p1_a14 := ddx_complete_rec.attribute2;
1799 p1_a15 := ddx_complete_rec.attribute3;
1800 p1_a16 := ddx_complete_rec.attribute4;
1802 p1_a18 := ddx_complete_rec.attribute6;
1803 p1_a19 := ddx_complete_rec.attribute7;
1804 p1_a20 := ddx_complete_rec.attribute8;
1805 p1_a21 := ddx_complete_rec.attribute9;
1806 p1_a22 := ddx_complete_rec.attribute10;
1807 p1_a23 := ddx_complete_rec.attribute11;
1808 p1_a24 := ddx_complete_rec.attribute12;
1809 p1_a25 := ddx_complete_rec.attribute13;
1810 p1_a26 := ddx_complete_rec.attribute14;
1811 p1_a27 := ddx_complete_rec.attribute15;
1812 p1_a28 := ddx_complete_rec.operation_flag;
1813 end;
1814
1815 end ahl_approvals_pvt_w;