[Home] [Help]
PACKAGE BODY: APPS.OZF_APPROVAL_PVT_OAW
Source
1 package body ozf_approval_pvt_oaw as
2 /* $Header: ozfaappb.pls 115.1 2003/12/10 16:03:42 feliu noship $ */
3 procedure rosetta_table_copy_in_p1(t out nocopy ozf_approval_pvt.action_tbl_type, a0 JTF_VARCHAR2_TABLE_100
4 , a1 JTF_NUMBER_TABLE
5 , a2 JTF_VARCHAR2_TABLE_100
6 , a3 JTF_VARCHAR2_TABLE_100
7 , a4 JTF_NUMBER_TABLE
8 ) as
9 ddindx binary_integer; indx binary_integer;
10 begin
11 if a0 is not null and a0.count=0 then
12 t := ozf_approval_pvt.action_tbl_type();
13 elsif a0 is not null and a0.count > 0 then
14 if a0.count > 0 then
15 t := ozf_approval_pvt.action_tbl_type();
16 t.extend(a0.count);
17 indx := a0.first;
18 ddindx := 1;
19 while true loop
20 t(ddindx).object_type := a0(indx);
21 t(ddindx).object_id := a1(indx);
22 t(ddindx).status_code := a2(indx);
23 t(ddindx).action_code := a3(indx);
24 t(ddindx).action_performed_by := a4(indx);
25 ddindx := ddindx+1;
26 if a0.last =indx
27 then exit;
28 end if;
29 indx := a0.next(indx);
30 end loop;
31 end if;
32 end if;
33 end rosetta_table_copy_in_p1;
34 procedure rosetta_table_copy_out_p1(t ozf_approval_pvt.action_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
35 , a1 out nocopy JTF_NUMBER_TABLE
36 , a2 out nocopy JTF_VARCHAR2_TABLE_100
37 , a3 out nocopy JTF_VARCHAR2_TABLE_100
38 , a4 out nocopy JTF_NUMBER_TABLE
39 ) as
40 ddindx binary_integer; indx binary_integer;
41 begin
42 if t is null then
43 a0 := null;
44 a1 := null;
45 a2 := null;
46 a3 := null;
47 a4 := null;
48 elsif t.count = 0 then
49 a0 := JTF_VARCHAR2_TABLE_100();
50 a1 := JTF_NUMBER_TABLE();
51 a2 := JTF_VARCHAR2_TABLE_100();
52 a3 := JTF_VARCHAR2_TABLE_100();
53 a4 := JTF_NUMBER_TABLE();
54 else
55 a0 := JTF_VARCHAR2_TABLE_100();
56 a1 := JTF_NUMBER_TABLE();
57 a2 := JTF_VARCHAR2_TABLE_100();
58 a3 := JTF_VARCHAR2_TABLE_100();
59 a4 := JTF_NUMBER_TABLE();
60 if t.count > 0 then
61 a0.extend(t.count);
62 a1.extend(t.count);
63 a2.extend(t.count);
64 a3.extend(t.count);
65 a4.extend(t.count);
66 ddindx := t.first;
67 indx := 1;
68 while true loop
69 a0(indx) := t(ddindx).object_type;
70 a1(indx) := t(ddindx).object_id;
71 a2(indx) := t(ddindx).status_code;
72 a3(indx) := t(ddindx).action_code;
73 a4(indx) := t(ddindx).action_performed_by;
74 indx := indx+1;
75 if t.last =ddindx
76 then exit;
77 end if;
78 ddindx := t.next(ddindx);
79 end loop;
80 end if;
81 end if;
82 end rosetta_table_copy_out_p1;
83
84 procedure rosetta_table_copy_in_p3(t out nocopy ozf_approval_pvt.approvers_tbl_type, a0 JTF_VARCHAR2_TABLE_100
85 , a1 JTF_NUMBER_TABLE
86 , a2 JTF_NUMBER_TABLE
87 ) as
88 ddindx binary_integer; indx binary_integer;
89 begin
90 if a0 is not null and a0.count=0 then
91 t := ozf_approval_pvt.approvers_tbl_type();
92 elsif a0 is not null and a0.count > 0 then
93 if a0.count > 0 then
94 t := ozf_approval_pvt.approvers_tbl_type();
95 t.extend(a0.count);
96 indx := a0.first;
97 ddindx := 1;
98 while true loop
99 t(ddindx).approver_type := a0(indx);
100 t(ddindx).approver_id := a1(indx);
101 t(ddindx).approver_level := a2(indx);
102 ddindx := ddindx+1;
103 if a0.last =indx
104 then exit;
105 end if;
106 indx := a0.next(indx);
107 end loop;
108 end if;
109 end if;
110 end rosetta_table_copy_in_p3;
111 procedure rosetta_table_copy_out_p3(t ozf_approval_pvt.approvers_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
112 , a1 out nocopy JTF_NUMBER_TABLE
113 , a2 out nocopy JTF_NUMBER_TABLE
114 ) as
115 ddindx binary_integer; indx binary_integer;
116 begin
117 if t is null then
118 a0 := null;
119 a1 := null;
120 a2 := null;
121 elsif t.count = 0 then
122 a0 := JTF_VARCHAR2_TABLE_100();
123 a1 := JTF_NUMBER_TABLE();
124 a2 := JTF_NUMBER_TABLE();
125 else
126 a0 := JTF_VARCHAR2_TABLE_100();
127 a1 := JTF_NUMBER_TABLE();
128 a2 := JTF_NUMBER_TABLE();
129 if t.count > 0 then
130 a0.extend(t.count);
131 a1.extend(t.count);
132 a2.extend(t.count);
133 ddindx := t.first;
134 indx := 1;
135 while true loop
136 a0(indx) := t(ddindx).approver_type;
137 a1(indx) := t(ddindx).approver_id;
138 a2(indx) := t(ddindx).approver_level;
139 indx := indx+1;
140 if t.last =ddindx
141 then exit;
142 end if;
143 ddindx := t.next(ddindx);
144 end loop;
145 end if;
146 end if;
147 end rosetta_table_copy_out_p3;
148
149 procedure update_user_action(p_api_version NUMBER
150 , p_init_msg_list VARCHAR2
151 , p_validation_level NUMBER
152 , x_return_status out nocopy VARCHAR2
153 , x_msg_data out nocopy VARCHAR2
154 , x_msg_count out nocopy NUMBER
155 , p6_a0 VARCHAR2
156 , p6_a1 NUMBER
157 , p6_a2 VARCHAR2
158 , p6_a3 VARCHAR2
159 , p6_a4 NUMBER
160 )
161
162 as
163 ddp_approval_rec ozf_approval_pvt.approval_rec_type;
164 ddindx binary_integer; indx binary_integer;
165 begin
166
167 -- copy data to the local IN or IN-OUT args, if any
168
169
170
171
172
173
174 ddp_approval_rec.object_type := p6_a0;
175 ddp_approval_rec.object_id := p6_a1;
176 ddp_approval_rec.status_code := p6_a2;
177 ddp_approval_rec.action_code := p6_a3;
178 ddp_approval_rec.action_performed_by := p6_a4;
179
180 -- here's the delegated call to the old PL/SQL routine
181 ozf_approval_pvt.update_user_action(p_api_version,
182 p_init_msg_list,
183 p_validation_level,
184 x_return_status,
185 x_msg_data,
186 x_msg_count,
187 ddp_approval_rec);
188
189 -- copy data back from the local variables to OUT or IN-OUT args, if any
190
191
192
193
194
195
196 end;
197
198 procedure get_approvers(p_api_version NUMBER
199 , p_init_msg_list VARCHAR2
200 , p_validation_level NUMBER
201 , x_return_status out nocopy VARCHAR2
202 , x_msg_data out nocopy VARCHAR2
203 , x_msg_count out nocopy NUMBER
204 , p6_a0 VARCHAR2
205 , p6_a1 NUMBER
206 , p6_a2 VARCHAR2
207 , p6_a3 VARCHAR2
208 , p6_a4 NUMBER
209 , p7_a0 out nocopy JTF_VARCHAR2_TABLE_100
210 , p7_a1 out nocopy JTF_NUMBER_TABLE
211 , p7_a2 out nocopy JTF_NUMBER_TABLE
212 , x_final_approval_flag out nocopy VARCHAR2
213 )
214
215 as
216 ddp_approval_rec ozf_approval_pvt.approval_rec_type;
217 ddx_approvers ozf_approval_pvt.approvers_tbl_type;
218 ddindx binary_integer; indx binary_integer;
219 begin
220
221 -- copy data to the local IN or IN-OUT args, if any
222
223
224
225
226
227
228 ddp_approval_rec.object_type := p6_a0;
229 ddp_approval_rec.object_id := p6_a1;
230 ddp_approval_rec.status_code := p6_a2;
231 ddp_approval_rec.action_code := p6_a3;
232 ddp_approval_rec.action_performed_by := p6_a4;
233
234
235
236 -- here's the delegated call to the old PL/SQL routine
237 ozf_approval_pvt.get_approvers(p_api_version,
238 p_init_msg_list,
239 p_validation_level,
240 x_return_status,
241 x_msg_data,
242 x_msg_count,
243 ddp_approval_rec,
244 ddx_approvers,
245 x_final_approval_flag);
246
247 -- copy data back from the local variables to OUT or IN-OUT args, if any
248
249
250
251
252
253
254
255 ozf_approval_pvt_oaw.rosetta_table_copy_out_p3(ddx_approvers, p7_a0
256 , p7_a1
257 , p7_a2
258 );
259
260 end;
261
262 procedure add_access(p_api_version NUMBER
263 , p_init_msg_list VARCHAR2
264 , p_commit VARCHAR2
265 , p_validation_level NUMBER
266 , x_msg_data out nocopy VARCHAR2
267 , x_msg_count out nocopy NUMBER
268 , x_return_status out nocopy VARCHAR2
269 , p7_a0 VARCHAR2
270 , p7_a1 NUMBER
271 , p7_a2 VARCHAR2
272 , p7_a3 VARCHAR2
273 , p7_a4 NUMBER
274 , p8_a0 JTF_VARCHAR2_TABLE_100
275 , p8_a1 JTF_NUMBER_TABLE
276 , p8_a2 JTF_NUMBER_TABLE
277 )
278
279 as
280 ddp_approval_rec ozf_approval_pvt.approval_rec_type;
281 ddp_approvers ozf_approval_pvt.approvers_tbl_type;
282 ddindx binary_integer; indx binary_integer;
283 begin
284
285 -- copy data to the local IN or IN-OUT args, if any
286
287
288
289
290
291
292
293 ddp_approval_rec.object_type := p7_a0;
294 ddp_approval_rec.object_id := p7_a1;
295 ddp_approval_rec.status_code := p7_a2;
296 ddp_approval_rec.action_code := p7_a3;
297 ddp_approval_rec.action_performed_by := p7_a4;
298
299 ozf_approval_pvt_oaw.rosetta_table_copy_in_p3(ddp_approvers, p8_a0
300 , p8_a1
301 , p8_a2
302 );
303
304 -- here's the delegated call to the old PL/SQL routine
305 ozf_approval_pvt.add_access(p_api_version,
306 p_init_msg_list,
307 p_commit,
308 p_validation_level,
309 x_msg_data,
310 x_msg_count,
311 x_return_status,
312 ddp_approval_rec,
313 ddp_approvers);
314
315 -- copy data back from the local variables to OUT or IN-OUT args, if any
316
317
318
319
320
321
322
323
324 end;
325
326 procedure raise_event(x_return_status out nocopy VARCHAR2
327 , x_msg_data out nocopy VARCHAR2
328 , x_msg_count out nocopy NUMBER
329 , p_event_name VARCHAR2
330 , p_event_key VARCHAR2
331 , p5_a0 VARCHAR2
332 , p5_a1 NUMBER
333 , p5_a2 VARCHAR2
334 , p5_a3 VARCHAR2
335 , p5_a4 NUMBER
336 )
337
338 as
339 ddp_approval_rec ozf_approval_pvt.approval_rec_type;
340 ddindx binary_integer; indx binary_integer;
341 begin
342
343 -- copy data to the local IN or IN-OUT args, if any
344
345
346
347
348
349 ddp_approval_rec.object_type := p5_a0;
350 ddp_approval_rec.object_id := p5_a1;
351 ddp_approval_rec.status_code := p5_a2;
352 ddp_approval_rec.action_code := p5_a3;
353 ddp_approval_rec.action_performed_by := p5_a4;
354
355 -- here's the delegated call to the old PL/SQL routine
356 ozf_approval_pvt.raise_event(x_return_status,
357 x_msg_data,
358 x_msg_count,
359 p_event_name,
360 p_event_key,
361 ddp_approval_rec);
362
363 -- copy data back from the local variables to OUT or IN-OUT args, if any
364
365
366
367
368
369 end;
370
371 procedure send_notification(p_api_version NUMBER
372 , p_init_msg_list VARCHAR2
373 , p_commit VARCHAR2
374 , p_validation_level NUMBER
375 , x_return_status out nocopy VARCHAR2
376 , x_msg_data out nocopy VARCHAR2
377 , x_msg_count out nocopy NUMBER
378 , p_benefit_id NUMBER
379 , p_partner_id NUMBER
380 , p_msg_callback_api VARCHAR2
381 , p_user_callback_api VARCHAR2
382 , p11_a0 VARCHAR2
383 , p11_a1 NUMBER
384 , p11_a2 VARCHAR2
385 , p11_a3 VARCHAR2
386 , p11_a4 NUMBER
387 )
388
389 as
390 ddp_approval_rec ozf_approval_pvt.approval_rec_type;
391 ddindx binary_integer; indx binary_integer;
392 begin
393
394 -- copy data to the local IN or IN-OUT args, if any
395
396
397
398
399
400
401
402
403
404
405
406 ddp_approval_rec.object_type := p11_a0;
407 ddp_approval_rec.object_id := p11_a1;
408 ddp_approval_rec.status_code := p11_a2;
409 ddp_approval_rec.action_code := p11_a3;
410 ddp_approval_rec.action_performed_by := p11_a4;
411
412 -- here's the delegated call to the old PL/SQL routine
413 ozf_approval_pvt.send_notification(p_api_version,
414 p_init_msg_list,
415 p_commit,
416 p_validation_level,
417 x_return_status,
418 x_msg_data,
419 x_msg_count,
420 p_benefit_id,
421 p_partner_id,
422 p_msg_callback_api,
423 p_user_callback_api,
424 ddp_approval_rec);
425
426 -- copy data back from the local variables to OUT or IN-OUT args, if any
427
428
429
430
431
432
433
434
435
436
437
438 end;
439
440 procedure process_user_action(p_api_version NUMBER
441 , p_init_msg_list VARCHAR2
442 , p_commit VARCHAR2
443 , p_validation_level NUMBER
444 , x_return_status out nocopy VARCHAR2
445 , x_msg_data out nocopy VARCHAR2
446 , x_msg_count out nocopy NUMBER
447 , p7_a0 VARCHAR2
448 , p7_a1 NUMBER
449 , p7_a2 VARCHAR2
450 , p7_a3 VARCHAR2
451 , p7_a4 NUMBER
452 , p_approver_id NUMBER
453 , x_final_approval_flag out nocopy VARCHAR2
454 )
455
456 as
457 ddp_approval_rec ozf_approval_pvt.approval_rec_type;
458 ddindx binary_integer; indx binary_integer;
459 begin
460
461 -- copy data to the local IN or IN-OUT args, if any
462
463
464
465
466
467
468
469 ddp_approval_rec.object_type := p7_a0;
470 ddp_approval_rec.object_id := p7_a1;
471 ddp_approval_rec.status_code := p7_a2;
472 ddp_approval_rec.action_code := p7_a3;
473 ddp_approval_rec.action_performed_by := p7_a4;
474
475
476
477 -- here's the delegated call to the old PL/SQL routine
478 ozf_approval_pvt.process_user_action(p_api_version,
479 p_init_msg_list,
480 p_commit,
481 p_validation_level,
482 x_return_status,
483 x_msg_data,
484 x_msg_count,
485 ddp_approval_rec,
486 p_approver_id,
487 x_final_approval_flag);
488
489 -- copy data back from the local variables to OUT or IN-OUT args, if any
490
491
492
493
494
495
496
497
498
499 end;
500
501 end ozf_approval_pvt_oaw;