[Home] [Help]
PACKAGE BODY: APPS.HZ_CLASSIFICATION_V2PUB_JW
Source
1 package body hz_classification_v2pub_jw as
2 /* $Header: ARH2CLJB.pls 120.3 2005/06/18 04:27:30 jhuang 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
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_class_category_1(p_init_msg_list VARCHAR2
23 , x_return_status out nocopy VARCHAR2
24 , x_msg_count out nocopy NUMBER
25 , x_msg_data out nocopy VARCHAR2
26 , p1_a0 VARCHAR2 := null
27 , p1_a1 VARCHAR2 := null
28 , p1_a2 VARCHAR2 := null
29 , p1_a3 VARCHAR2 := null
30 , p1_a4 VARCHAR2 := null
31 , p1_a5 NUMBER := null
32 , p1_a6 VARCHAR2 := null
33 )
34 as
35 ddp_class_category_rec hz_classification_v2pub.class_category_rec_type;
36 ddindx binary_integer; indx binary_integer;
37 begin
38
39 -- copy data to the local IN or IN-OUT args, if any
40
41 ddp_class_category_rec.class_category := p1_a0;
42 ddp_class_category_rec.allow_multi_parent_flag := p1_a1;
43 ddp_class_category_rec.allow_multi_assign_flag := p1_a2;
44 ddp_class_category_rec.allow_leaf_node_only_flag := p1_a3;
45 ddp_class_category_rec.created_by_module := p1_a4;
46 ddp_class_category_rec.application_id := rosetta_g_miss_num_map(p1_a5);
47 ddp_class_category_rec.delimiter := p1_a6;
48
49
50
51
52 -- here's the delegated call to the old PL/SQL routine
53 hz_classification_v2pub.create_class_category(p_init_msg_list,
54 ddp_class_category_rec,
55 x_return_status,
56 x_msg_count,
57 x_msg_data);
58
59 -- copy data back from the local OUT or IN-OUT args, if any
60
61
62
63
64 end;
65
66 procedure update_class_category_2(p_init_msg_list VARCHAR2
67 , p_object_version_number in out nocopy NUMBER
68 , x_return_status out nocopy VARCHAR2
69 , x_msg_count out nocopy NUMBER
70 , x_msg_data out nocopy VARCHAR2
71 , p1_a0 VARCHAR2 := null
72 , p1_a1 VARCHAR2 := null
73 , p1_a2 VARCHAR2 := null
74 , p1_a3 VARCHAR2 := null
75 , p1_a4 VARCHAR2 := null
76 , p1_a5 NUMBER := null
77 , p1_a6 VARCHAR2 := null
78 )
79 as
80 ddp_class_category_rec hz_classification_v2pub.class_category_rec_type;
81 ddindx binary_integer; indx binary_integer;
82 begin
83
84 -- copy data to the local IN or IN-OUT args, if any
85
86 ddp_class_category_rec.class_category := p1_a0;
87 ddp_class_category_rec.allow_multi_parent_flag := p1_a1;
88 ddp_class_category_rec.allow_multi_assign_flag := p1_a2;
89 ddp_class_category_rec.allow_leaf_node_only_flag := p1_a3;
90 ddp_class_category_rec.created_by_module := p1_a4;
91 ddp_class_category_rec.application_id := rosetta_g_miss_num_map(p1_a5);
92 ddp_class_category_rec.delimiter := p1_a6;
93
94
95
96
97
98 -- here's the delegated call to the old PL/SQL routine
99 hz_classification_v2pub.update_class_category(p_init_msg_list,
100 ddp_class_category_rec,
101 p_object_version_number,
102 x_return_status,
103 x_msg_count,
104 x_msg_data);
105
106 -- copy data back from the local OUT or IN-OUT args, if any
107
108
109
110
111
112 end;
113
114 procedure get_class_category_rec_3(p_init_msg_list VARCHAR2
115 , p_class_category VARCHAR2
116 , p2_a0 out nocopy VARCHAR2
117 , p2_a1 out nocopy VARCHAR2
118 , p2_a2 out nocopy VARCHAR2
119 , p2_a3 out nocopy VARCHAR2
120 , p2_a4 out nocopy VARCHAR2
121 , p2_a5 out nocopy NUMBER
122 , p2_a6 out nocopy VARCHAR2
123 , x_return_status out nocopy VARCHAR2
124 , x_msg_count out nocopy NUMBER
125 , x_msg_data out nocopy VARCHAR2
126 )
127 as
128 ddx_class_category_rec hz_classification_v2pub.class_category_rec_type;
129 ddindx binary_integer; indx binary_integer;
130 begin
131
132 -- copy data to the local IN or IN-OUT args, if any
133
134
135
136
137
138
139 -- here's the delegated call to the old PL/SQL routine
140 hz_classification_v2pub.get_class_category_rec(p_init_msg_list,
141 p_class_category,
142 ddx_class_category_rec,
143 x_return_status,
144 x_msg_count,
145 x_msg_data);
146
147 -- copy data back from the local OUT or IN-OUT args, if any
148
149
150 p2_a0 := ddx_class_category_rec.class_category;
151 p2_a1 := ddx_class_category_rec.allow_multi_parent_flag;
152 p2_a2 := ddx_class_category_rec.allow_multi_assign_flag;
153 p2_a3 := ddx_class_category_rec.allow_leaf_node_only_flag;
154 p2_a4 := ddx_class_category_rec.created_by_module;
155 p2_a5 := rosetta_g_miss_num_map(ddx_class_category_rec.application_id);
156 p2_a6 := ddx_class_category_rec.delimiter;
157
158
159
160 end;
161
162 procedure create_class_code_relation_4(p_init_msg_list VARCHAR2
163 , x_return_status out nocopy VARCHAR2
164 , x_msg_count out nocopy NUMBER
165 , x_msg_data out nocopy VARCHAR2
166 , p1_a0 VARCHAR2 := null
167 , p1_a1 VARCHAR2 := null
168 , p1_a2 VARCHAR2 := null
169 , p1_a3 DATE := null
170 , p1_a4 DATE := null
171 , p1_a5 VARCHAR2 := null
172 , p1_a6 NUMBER := null
173 )
174 as
175 ddp_class_code_relation_rec hz_classification_v2pub.class_code_relation_rec_type;
176 ddindx binary_integer; indx binary_integer;
177 begin
178
179 -- copy data to the local IN or IN-OUT args, if any
180
181 ddp_class_code_relation_rec.class_category := p1_a0;
182 ddp_class_code_relation_rec.class_code := p1_a1;
183 ddp_class_code_relation_rec.sub_class_code := p1_a2;
184 ddp_class_code_relation_rec.start_date_active := rosetta_g_miss_date_in_map(p1_a3);
185 ddp_class_code_relation_rec.end_date_active := rosetta_g_miss_date_in_map(p1_a4);
186 ddp_class_code_relation_rec.created_by_module := p1_a5;
187 ddp_class_code_relation_rec.application_id := rosetta_g_miss_num_map(p1_a6);
188
189
190
191
192 -- here's the delegated call to the old PL/SQL routine
193 hz_classification_v2pub.create_class_code_relation(p_init_msg_list,
194 ddp_class_code_relation_rec,
195 x_return_status,
196 x_msg_count,
197 x_msg_data);
198
199 -- copy data back from the local OUT or IN-OUT args, if any
200
201
202
203
204 end;
205
206 procedure update_class_code_relation_5(p_init_msg_list VARCHAR2
207 , p_object_version_number in out nocopy NUMBER
208 , x_return_status out nocopy VARCHAR2
209 , x_msg_count out nocopy NUMBER
210 , x_msg_data out nocopy VARCHAR2
211 , p1_a0 VARCHAR2 := null
212 , p1_a1 VARCHAR2 := null
213 , p1_a2 VARCHAR2 := null
214 , p1_a3 DATE := null
215 , p1_a4 DATE := null
216 , p1_a5 VARCHAR2 := null
217 , p1_a6 NUMBER := null
218 )
219 as
220 ddp_class_code_relation_rec hz_classification_v2pub.class_code_relation_rec_type;
221 ddindx binary_integer; indx binary_integer;
222 begin
223
224 -- copy data to the local IN or IN-OUT args, if any
225
226 ddp_class_code_relation_rec.class_category := p1_a0;
227 ddp_class_code_relation_rec.class_code := p1_a1;
228 ddp_class_code_relation_rec.sub_class_code := p1_a2;
229 ddp_class_code_relation_rec.start_date_active := rosetta_g_miss_date_in_map(p1_a3);
230 ddp_class_code_relation_rec.end_date_active := rosetta_g_miss_date_in_map(p1_a4);
231 ddp_class_code_relation_rec.created_by_module := p1_a5;
232 ddp_class_code_relation_rec.application_id := rosetta_g_miss_num_map(p1_a6);
233
234
235
236
237
238 -- here's the delegated call to the old PL/SQL routine
239 hz_classification_v2pub.update_class_code_relation(p_init_msg_list,
240 ddp_class_code_relation_rec,
241 p_object_version_number,
242 x_return_status,
243 x_msg_count,
244 x_msg_data);
245
246 -- copy data back from the local OUT or IN-OUT args, if any
247
248
249
250
251
252 end;
253
254 procedure get_class_code_relation_rec_6(p_init_msg_list VARCHAR2
255 , p_class_category VARCHAR2
256 , p_class_code VARCHAR2
257 , p_sub_class_code VARCHAR2
258 , p_start_date_active date
259 , p5_a0 out nocopy VARCHAR2
260 , p5_a1 out nocopy VARCHAR2
261 , p5_a2 out nocopy VARCHAR2
262 , p5_a3 out nocopy DATE
263 , p5_a4 out nocopy DATE
264 , p5_a5 out nocopy VARCHAR2
265 , p5_a6 out nocopy NUMBER
266 , x_return_status out nocopy VARCHAR2
267 , x_msg_count out nocopy NUMBER
268 , x_msg_data out nocopy VARCHAR2
269 )
270 as
271 ddp_start_date_active date;
272 ddx_class_code_relation_rec hz_classification_v2pub.class_code_relation_rec_type;
273 ddindx binary_integer; indx binary_integer;
274 begin
275
276 -- copy data to the local IN or IN-OUT args, if any
277
278
279
280
281 ddp_start_date_active := rosetta_g_miss_date_in_map(p_start_date_active);
282
283
284
285
286
287 -- here's the delegated call to the old PL/SQL routine
288 hz_classification_v2pub.get_class_code_relation_rec(p_init_msg_list,
289 p_class_category,
290 p_class_code,
291 p_sub_class_code,
292 ddp_start_date_active,
293 ddx_class_code_relation_rec,
294 x_return_status,
295 x_msg_count,
296 x_msg_data);
297
298 -- copy data back from the local OUT or IN-OUT args, if any
299
300
301
302
303
304 p5_a0 := ddx_class_code_relation_rec.class_category;
305 p5_a1 := ddx_class_code_relation_rec.class_code;
306 p5_a2 := ddx_class_code_relation_rec.sub_class_code;
307 p5_a3 := ddx_class_code_relation_rec.start_date_active;
308 p5_a4 := ddx_class_code_relation_rec.end_date_active;
309 p5_a5 := ddx_class_code_relation_rec.created_by_module;
310 p5_a6 := rosetta_g_miss_num_map(ddx_class_code_relation_rec.application_id);
311
312
313
314 end;
315
316 procedure create_code_assignment_7(p_init_msg_list VARCHAR2
317 , x_return_status out nocopy VARCHAR2
318 , x_msg_count out nocopy NUMBER
319 , x_msg_data out nocopy VARCHAR2
320 , x_code_assignment_id out nocopy NUMBER
321 , p1_a0 NUMBER := null
322 , p1_a1 VARCHAR2 := null
323 , p1_a2 NUMBER := null
324 , p1_a3 VARCHAR2 := null
325 , p1_a4 VARCHAR2 := null
326 , p1_a5 VARCHAR2 := null
327 , p1_a6 VARCHAR2 := null
328 , p1_a7 VARCHAR2 := null
329 , p1_a8 VARCHAR2 := null
330 , p1_a9 VARCHAR2 := null
331 , p1_a10 VARCHAR2 := null
332 , p1_a11 VARCHAR2 := null
333 , p1_a12 DATE := null
334 , p1_a13 DATE := null
335 , p1_a14 VARCHAR2 := null
336 , p1_a15 VARCHAR2 := null
337 , p1_a16 NUMBER := null
338 , p1_a17 NUMBER := null
339 , p1_a18 VARCHAR2 := null
340 )
341 as
342 ddp_code_assignment_rec hz_classification_v2pub.code_assignment_rec_type;
343 ddindx binary_integer; indx binary_integer;
344 begin
345
346 -- copy data to the local IN or IN-OUT args, if any
347
348 ddp_code_assignment_rec.code_assignment_id := rosetta_g_miss_num_map(p1_a0);
349 ddp_code_assignment_rec.owner_table_name := p1_a1;
350 ddp_code_assignment_rec.owner_table_id := rosetta_g_miss_num_map(p1_a2);
351 ddp_code_assignment_rec.owner_table_key_1 := p1_a3;
352 ddp_code_assignment_rec.owner_table_key_2 := p1_a4;
353 ddp_code_assignment_rec.owner_table_key_3 := p1_a5;
354 ddp_code_assignment_rec.owner_table_key_4 := p1_a6;
355 ddp_code_assignment_rec.owner_table_key_5 := p1_a7;
356 ddp_code_assignment_rec.class_category := p1_a8;
357 ddp_code_assignment_rec.class_code := p1_a9;
358 ddp_code_assignment_rec.primary_flag := p1_a10;
359 ddp_code_assignment_rec.content_source_type := p1_a11;
360 ddp_code_assignment_rec.start_date_active := rosetta_g_miss_date_in_map(p1_a12);
361 ddp_code_assignment_rec.end_date_active := rosetta_g_miss_date_in_map(p1_a13);
362 ddp_code_assignment_rec.status := p1_a14;
363 ddp_code_assignment_rec.created_by_module := p1_a15;
364 ddp_code_assignment_rec.rank := rosetta_g_miss_num_map(p1_a16);
365 ddp_code_assignment_rec.application_id := rosetta_g_miss_num_map(p1_a17);
366 ddp_code_assignment_rec.actual_content_source := p1_a18;
367
368
369
370
371
372 -- here's the delegated call to the old PL/SQL routine
373 hz_classification_v2pub.create_code_assignment(p_init_msg_list,
374 ddp_code_assignment_rec,
375 x_return_status,
376 x_msg_count,
377 x_msg_data,
378 x_code_assignment_id);
379
380 -- copy data back from the local OUT or IN-OUT args, if any
381
382
383
384
385
386 end;
387
388 procedure update_code_assignment_8(p_init_msg_list VARCHAR2
389 , p_object_version_number in out nocopy NUMBER
390 , x_return_status out nocopy VARCHAR2
391 , x_msg_count out nocopy NUMBER
392 , x_msg_data out nocopy VARCHAR2
393 , p1_a0 NUMBER := null
394 , p1_a1 VARCHAR2 := null
395 , p1_a2 NUMBER := null
396 , p1_a3 VARCHAR2 := null
397 , p1_a4 VARCHAR2 := null
398 , p1_a5 VARCHAR2 := null
399 , p1_a6 VARCHAR2 := null
400 , p1_a7 VARCHAR2 := null
401 , p1_a8 VARCHAR2 := null
402 , p1_a9 VARCHAR2 := null
403 , p1_a10 VARCHAR2 := null
404 , p1_a11 VARCHAR2 := null
405 , p1_a12 DATE := null
406 , p1_a13 DATE := null
407 , p1_a14 VARCHAR2 := null
408 , p1_a15 VARCHAR2 := null
409 , p1_a16 NUMBER := null
410 , p1_a17 NUMBER := null
411 , p1_a18 VARCHAR2 := null
412 )
413 as
414 ddp_code_assignment_rec hz_classification_v2pub.code_assignment_rec_type;
415 ddindx binary_integer; indx binary_integer;
416 begin
417
418 -- copy data to the local IN or IN-OUT args, if any
419
420 ddp_code_assignment_rec.code_assignment_id := rosetta_g_miss_num_map(p1_a0);
421 ddp_code_assignment_rec.owner_table_name := p1_a1;
422 ddp_code_assignment_rec.owner_table_id := rosetta_g_miss_num_map(p1_a2);
423 ddp_code_assignment_rec.owner_table_key_1 := p1_a3;
424 ddp_code_assignment_rec.owner_table_key_2 := p1_a4;
425 ddp_code_assignment_rec.owner_table_key_3 := p1_a5;
426 ddp_code_assignment_rec.owner_table_key_4 := p1_a6;
427 ddp_code_assignment_rec.owner_table_key_5 := p1_a7;
428 ddp_code_assignment_rec.class_category := p1_a8;
432 ddp_code_assignment_rec.start_date_active := rosetta_g_miss_date_in_map(p1_a12);
429 ddp_code_assignment_rec.class_code := p1_a9;
430 ddp_code_assignment_rec.primary_flag := p1_a10;
431 ddp_code_assignment_rec.content_source_type := p1_a11;
433 ddp_code_assignment_rec.end_date_active := rosetta_g_miss_date_in_map(p1_a13);
434 ddp_code_assignment_rec.status := p1_a14;
435 ddp_code_assignment_rec.created_by_module := p1_a15;
436 ddp_code_assignment_rec.rank := rosetta_g_miss_num_map(p1_a16);
437 ddp_code_assignment_rec.application_id := rosetta_g_miss_num_map(p1_a17);
438 ddp_code_assignment_rec.actual_content_source := p1_a18;
439
440
441
442
443
444 -- here's the delegated call to the old PL/SQL routine
445 hz_classification_v2pub.update_code_assignment(p_init_msg_list,
446 ddp_code_assignment_rec,
447 p_object_version_number,
448 x_return_status,
449 x_msg_count,
450 x_msg_data);
451
452 -- copy data back from the local OUT or IN-OUT args, if any
453
454
455
456
457
458 end;
459
460 procedure get_code_assignment_rec_9(p_init_msg_list VARCHAR2
461 , p_code_assignment_id NUMBER
462 , p2_a0 out nocopy NUMBER
463 , p2_a1 out nocopy VARCHAR2
464 , p2_a2 out nocopy NUMBER
465 , p2_a3 out nocopy VARCHAR2
466 , p2_a4 out nocopy VARCHAR2
467 , p2_a5 out nocopy VARCHAR2
468 , p2_a6 out nocopy VARCHAR2
469 , p2_a7 out nocopy VARCHAR2
470 , p2_a8 out nocopy VARCHAR2
471 , p2_a9 out nocopy VARCHAR2
472 , p2_a10 out nocopy VARCHAR2
473 , p2_a11 out nocopy VARCHAR2
474 , p2_a12 out nocopy DATE
475 , p2_a13 out nocopy DATE
476 , p2_a14 out nocopy VARCHAR2
477 , p2_a15 out nocopy VARCHAR2
478 , p2_a16 out nocopy NUMBER
479 , p2_a17 out nocopy NUMBER
480 , p2_a18 out nocopy VARCHAR2
481 , x_return_status out nocopy VARCHAR2
482 , x_msg_count out nocopy NUMBER
483 , x_msg_data out nocopy VARCHAR2
484 )
485 as
486 ddx_code_assignment_rec hz_classification_v2pub.code_assignment_rec_type;
487 ddindx binary_integer; indx binary_integer;
488 begin
489
490 -- copy data to the local IN or IN-OUT args, if any
491
492
493
494
495
496
497 -- here's the delegated call to the old PL/SQL routine
498 hz_classification_v2pub.get_code_assignment_rec(p_init_msg_list,
499 p_code_assignment_id,
500 ddx_code_assignment_rec,
501 x_return_status,
502 x_msg_count,
503 x_msg_data);
504
505 -- copy data back from the local OUT or IN-OUT args, if any
506
507
508 p2_a0 := rosetta_g_miss_num_map(ddx_code_assignment_rec.code_assignment_id);
509 p2_a1 := ddx_code_assignment_rec.owner_table_name;
510 p2_a2 := rosetta_g_miss_num_map(ddx_code_assignment_rec.owner_table_id);
511 p2_a3 := ddx_code_assignment_rec.owner_table_key_1;
512 p2_a4 := ddx_code_assignment_rec.owner_table_key_2;
513 p2_a5 := ddx_code_assignment_rec.owner_table_key_3;
514 p2_a6 := ddx_code_assignment_rec.owner_table_key_4;
515 p2_a7 := ddx_code_assignment_rec.owner_table_key_5;
516 p2_a8 := ddx_code_assignment_rec.class_category;
517 p2_a9 := ddx_code_assignment_rec.class_code;
518 p2_a10 := ddx_code_assignment_rec.primary_flag;
519 p2_a11 := ddx_code_assignment_rec.content_source_type;
520 p2_a12 := ddx_code_assignment_rec.start_date_active;
521 p2_a13 := ddx_code_assignment_rec.end_date_active;
522 p2_a14 := ddx_code_assignment_rec.status;
523 p2_a15 := ddx_code_assignment_rec.created_by_module;
524 p2_a16 := rosetta_g_miss_num_map(ddx_code_assignment_rec.rank);
525 p2_a17 := rosetta_g_miss_num_map(ddx_code_assignment_rec.application_id);
526 p2_a18 := ddx_code_assignment_rec.actual_content_source;
527
528
529
530 end;
531
532 procedure create_class_category_use_10(p_init_msg_list VARCHAR2
533 , x_return_status out nocopy VARCHAR2
534 , x_msg_count out nocopy NUMBER
535 , x_msg_data out nocopy VARCHAR2
536 , p1_a0 VARCHAR2 := null
537 , p1_a1 VARCHAR2 := null
538 , p1_a2 VARCHAR2 := null
539 , p1_a3 VARCHAR2 := null
540 , p1_a4 VARCHAR2 := null
541 , p1_a5 NUMBER := null
542 )
543 as
544 ddp_class_category_use_rec hz_classification_v2pub.class_category_use_rec_type;
545 ddindx binary_integer; indx binary_integer;
546 begin
547
548 -- copy data to the local IN or IN-OUT args, if any
549
550 ddp_class_category_use_rec.class_category := p1_a0;
551 ddp_class_category_use_rec.owner_table := p1_a1;
552 ddp_class_category_use_rec.column_name := p1_a2;
553 ddp_class_category_use_rec.additional_where_clause := p1_a3;
554 ddp_class_category_use_rec.created_by_module := p1_a4;
555 ddp_class_category_use_rec.application_id := rosetta_g_miss_num_map(p1_a5);
556
557
558
559
560 -- here's the delegated call to the old PL/SQL routine
561 hz_classification_v2pub.create_class_category_use(p_init_msg_list,
562 ddp_class_category_use_rec,
563 x_return_status,
564 x_msg_count,
565 x_msg_data);
566
570
567 -- copy data back from the local OUT or IN-OUT args, if any
568
569
571
572 end;
573
574 procedure update_class_category_use_11(p_init_msg_list VARCHAR2
575 , p_object_version_number in out nocopy NUMBER
576 , x_return_status out nocopy VARCHAR2
577 , x_msg_count out nocopy NUMBER
578 , x_msg_data out nocopy VARCHAR2
579 , p1_a0 VARCHAR2 := null
580 , p1_a1 VARCHAR2 := null
581 , p1_a2 VARCHAR2 := null
582 , p1_a3 VARCHAR2 := null
583 , p1_a4 VARCHAR2 := null
584 , p1_a5 NUMBER := null
585 )
586 as
587 ddp_class_category_use_rec hz_classification_v2pub.class_category_use_rec_type;
588 ddindx binary_integer; indx binary_integer;
589 begin
590
591 -- copy data to the local IN or IN-OUT args, if any
592
593 ddp_class_category_use_rec.class_category := p1_a0;
594 ddp_class_category_use_rec.owner_table := p1_a1;
595 ddp_class_category_use_rec.column_name := p1_a2;
596 ddp_class_category_use_rec.additional_where_clause := p1_a3;
597 ddp_class_category_use_rec.created_by_module := p1_a4;
598 ddp_class_category_use_rec.application_id := rosetta_g_miss_num_map(p1_a5);
599
600
601
602
603
604 -- here's the delegated call to the old PL/SQL routine
605 hz_classification_v2pub.update_class_category_use(p_init_msg_list,
606 ddp_class_category_use_rec,
607 p_object_version_number,
608 x_return_status,
609 x_msg_count,
610 x_msg_data);
611
612 -- copy data back from the local OUT or IN-OUT args, if any
613
614
615
616
617
618 end;
619
620 procedure get_class_category_use_rec_12(p_init_msg_list VARCHAR2
621 , p_class_category VARCHAR2
622 , p_owner_table VARCHAR2
623 , p3_a0 out nocopy VARCHAR2
624 , p3_a1 out nocopy VARCHAR2
625 , p3_a2 out nocopy VARCHAR2
626 , p3_a3 out nocopy VARCHAR2
627 , p3_a4 out nocopy VARCHAR2
628 , p3_a5 out nocopy NUMBER
629 , x_return_status out nocopy VARCHAR2
630 , x_msg_count out nocopy NUMBER
631 , x_msg_data out nocopy VARCHAR2
632 )
633 as
634 ddx_class_category_use_rec hz_classification_v2pub.class_category_use_rec_type;
635 ddindx binary_integer; indx binary_integer;
636 begin
637
638 -- copy data to the local IN or IN-OUT args, if any
639
640
641
642
643
644
645
646 -- here's the delegated call to the old PL/SQL routine
647 hz_classification_v2pub.get_class_category_use_rec(p_init_msg_list,
648 p_class_category,
649 p_owner_table,
650 ddx_class_category_use_rec,
651 x_return_status,
652 x_msg_count,
653 x_msg_data);
654
655 -- copy data back from the local OUT or IN-OUT args, if any
656
657
658
659 p3_a0 := ddx_class_category_use_rec.class_category;
660 p3_a1 := ddx_class_category_use_rec.owner_table;
661 p3_a2 := ddx_class_category_use_rec.column_name;
662 p3_a3 := ddx_class_category_use_rec.additional_where_clause;
663 p3_a4 := ddx_class_category_use_rec.created_by_module;
664 p3_a5 := rosetta_g_miss_num_map(ddx_class_category_use_rec.application_id);
665
666
667
668 end;
669
670 procedure create_class_code_13(p_init_msg_list VARCHAR2
671 , x_return_status out nocopy VARCHAR2
672 , x_msg_count out nocopy NUMBER
673 , x_msg_data out nocopy VARCHAR2
674 , p1_a0 VARCHAR2 := null
675 , p1_a1 VARCHAR2 := null
676 , p1_a2 VARCHAR2 := null
677 , p1_a3 VARCHAR2 := null
678 , p1_a4 DATE := null
679 , p1_a5 DATE := null
680 , p1_a6 VARCHAR2 := null
681 )
682 as
683 ddp_class_code_rec hz_classification_v2pub.class_code_rec_type;
684 ddindx binary_integer; indx binary_integer;
685 begin
686
687 -- copy data to the local IN or IN-OUT args, if any
688
689 ddp_class_code_rec.type := p1_a0;
690 ddp_class_code_rec.code := p1_a1;
691 ddp_class_code_rec.meaning := p1_a2;
692 ddp_class_code_rec.description := p1_a3;
693 ddp_class_code_rec.start_date_active := rosetta_g_miss_date_in_map(p1_a4);
694 ddp_class_code_rec.end_date_active := rosetta_g_miss_date_in_map(p1_a5);
695 ddp_class_code_rec.enabled_flag := p1_a6;
696
697
698
699
700 -- here's the delegated call to the old PL/SQL routine
701 hz_classification_v2pub.create_class_code(p_init_msg_list,
702 ddp_class_code_rec,
703 x_return_status,
704 x_msg_count,
705 x_msg_data);
706
707 -- copy data back from the local OUT or IN-OUT args, if any
708
709
710
711
712 end;
713
714 procedure update_class_code_14(p_init_msg_list VARCHAR2
715 , p_object_version_number in out nocopy NUMBER
716 , x_return_status out nocopy VARCHAR2
717 , x_msg_count out nocopy NUMBER
718 , x_msg_data out nocopy VARCHAR2
719 , p1_a0 VARCHAR2 := null
720 , p1_a1 VARCHAR2 := null
721 , p1_a2 VARCHAR2 := null
722 , p1_a3 VARCHAR2 := null
723 , p1_a4 DATE := null
724 , p1_a5 DATE := null
725 , p1_a6 VARCHAR2 := null
726 )
727 as
728 ddp_class_code_rec hz_classification_v2pub.class_code_rec_type;
729 ddindx binary_integer; indx binary_integer;
730 begin
731
732 -- copy data to the local IN or IN-OUT args, if any
733
734 ddp_class_code_rec.type := p1_a0;
735 ddp_class_code_rec.code := p1_a1;
736 ddp_class_code_rec.meaning := p1_a2;
740 ddp_class_code_rec.enabled_flag := p1_a6;
737 ddp_class_code_rec.description := p1_a3;
738 ddp_class_code_rec.start_date_active := rosetta_g_miss_date_in_map(p1_a4);
739 ddp_class_code_rec.end_date_active := rosetta_g_miss_date_in_map(p1_a5);
741
742
743
744
745
746 -- here's the delegated call to the old PL/SQL routine
747 hz_classification_v2pub.update_class_code(p_init_msg_list,
748 ddp_class_code_rec,
749 p_object_version_number,
750 x_return_status,
751 x_msg_count,
752 x_msg_data);
753
754 -- copy data back from the local OUT or IN-OUT args, if any
755
756
757
758
759
760 end;
761
762 end hz_classification_v2pub_jw;