[Home] [Help]
PACKAGE BODY: APPS.JTF_FM_REQUEST_GRP_W
Source
1 package body jtf_fm_request_grp_w as
2 /* $Header: jtfgfmwb.pls 120.2 2005/12/27 00:33 anchaudh ship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5
6 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7 function rosetta_g_miss_date_in_map(d date) return date as
8 begin
9 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10 return d;
11 end;
12
13 function rosetta_g_miss_num_map(n number) return number as
14 a number := fnd_api.g_miss_num;
15 b number := 0-1962.0724;
16 begin
17 if n=a then return b; end if;
18 if n=b then return a; end if;
19 return n;
20 end;
21
22 procedure rosetta_table_copy_in_p3(t out nocopy jtf_fm_request_grp.g_varchar_tbl_type, a0 JTF_VARCHAR2_TABLE_1000) as
23 ddindx binary_integer; indx binary_integer;
24 begin
25 if a0 is not null and a0.count > 0 then
26 if a0.count > 0 then
27 indx := a0.first;
28 ddindx := 1;
29 while true loop
30 t(ddindx) := a0(indx);
31 ddindx := ddindx+1;
32 if a0.last =indx
33 then exit;
34 end if;
35 indx := a0.next(indx);
36 end loop;
37 end if;
38 end if;
39 end rosetta_table_copy_in_p3;
40 procedure rosetta_table_copy_out_p3(t jtf_fm_request_grp.g_varchar_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_1000) as
41 ddindx binary_integer; indx binary_integer;
42 begin
43 if t is null or t.count = 0 then
44 a0 := JTF_VARCHAR2_TABLE_1000();
45 else
46 a0 := JTF_VARCHAR2_TABLE_1000();
47 if t.count > 0 then
48 a0.extend(t.count);
49 ddindx := t.first;
50 indx := 1;
51 while true loop
52 a0(indx) := t(ddindx);
53 indx := indx+1;
54 if t.last =ddindx
55 then exit;
56 end if;
57 ddindx := t.next(ddindx);
58 end loop;
59 end if;
60 end if;
61 end rosetta_table_copy_out_p3;
62
63 procedure rosetta_table_copy_in_p5(t out nocopy jtf_fm_request_grp.g_number_tbl_type, a0 JTF_NUMBER_TABLE) as
64 ddindx binary_integer; indx binary_integer;
65 begin
66 if a0 is not null and a0.count > 0 then
67 if a0.count > 0 then
68 indx := a0.first;
69 ddindx := 1;
70 while true loop
71 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
72 ddindx := ddindx+1;
73 if a0.last =indx
74 then exit;
75 end if;
76 indx := a0.next(indx);
77 end loop;
78 end if;
79 end if;
80 end rosetta_table_copy_in_p5;
81 procedure rosetta_table_copy_out_p5(t jtf_fm_request_grp.g_number_tbl_type, a0 out nocopy JTF_NUMBER_TABLE) as
82 ddindx binary_integer; indx binary_integer;
83 begin
84 if t is null or t.count = 0 then
85 a0 := JTF_NUMBER_TABLE();
86 else
87 a0 := JTF_NUMBER_TABLE();
88 if t.count > 0 then
89 a0.extend(t.count);
90 ddindx := t.first;
91 indx := 1;
92 while true loop
93 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
94 indx := indx+1;
95 if t.last =ddindx
96 then exit;
97 end if;
98 ddindx := t.next(ddindx);
99 end loop;
100 end if;
101 end if;
102 end rosetta_table_copy_out_p5;
103
104 procedure get_content_xml(p_api_version NUMBER
105 , p_init_msg_list VARCHAR2
106 , p_commit VARCHAR2
107 , p_validation_level NUMBER
108 , x_return_status out nocopy VARCHAR2
109 , x_msg_count out nocopy NUMBER
110 , x_msg_data out nocopy VARCHAR2
111 , p_content_id NUMBER
112 , p_content_nm VARCHAR2
113 , p_document_type VARCHAR2
114 , p_quantity NUMBER
115 , p_media_type VARCHAR2
116 , p_printer VARCHAR2
117 , p_email VARCHAR2
118 , p_fax VARCHAR2
119 , p_file_path VARCHAR2
120 , p_user_note VARCHAR2
121 , p_content_type VARCHAR2
122 , p_bind_var JTF_VARCHAR2_TABLE_1000
123 , p_bind_val JTF_VARCHAR2_TABLE_1000
124 , p_bind_var_type JTF_VARCHAR2_TABLE_1000
125 , p_request_id NUMBER
126 , x_content_xml out nocopy VARCHAR2
127 )
128
129 as
130 ddp_bind_var jtf_fm_request_grp.g_varchar_tbl_type;
131 ddp_bind_val jtf_fm_request_grp.g_varchar_tbl_type;
132 ddp_bind_var_type jtf_fm_request_grp.g_varchar_tbl_type;
133 ddindx binary_integer; indx binary_integer;
134 begin
135
136 -- copy data to the local IN or IN-OUT args, if any
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155 jtf_fm_request_grp_w.rosetta_table_copy_in_p3(ddp_bind_var, p_bind_var);
156
157 jtf_fm_request_grp_w.rosetta_table_copy_in_p3(ddp_bind_val, p_bind_val);
158
159 jtf_fm_request_grp_w.rosetta_table_copy_in_p3(ddp_bind_var_type, p_bind_var_type);
160
161
162
163 -- here's the delegated call to the old PL/SQL routine
164 jtf_fm_request_grp.get_content_xml(p_api_version,
165 p_init_msg_list,
166 p_commit,
167 p_validation_level,
168 x_return_status,
169 x_msg_count,
170 x_msg_data,
171 p_content_id,
172 p_content_nm,
173 p_document_type,
174 p_quantity,
175 p_media_type,
176 p_printer,
177 p_email,
178 p_fax,
179 p_file_path,
180 p_user_note,
181 p_content_type,
182 ddp_bind_var,
183 ddp_bind_val,
184 ddp_bind_var_type,
185 p_request_id,
186 x_content_xml);
187
188 -- copy data back from the local variables to OUT or IN-OUT args, if any
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211 end;
212
213 procedure get_content_xml(p_api_version NUMBER
214 , p_init_msg_list VARCHAR2
215 , p_commit VARCHAR2
216 , p_validation_level NUMBER
217 , x_return_status out nocopy VARCHAR2
218 , x_msg_count out nocopy NUMBER
219 , x_msg_data out nocopy VARCHAR2
220 , p_content_id NUMBER
221 , p_content_nm VARCHAR2
222 , p_document_type VARCHAR2
223 , p_quantity NUMBER
224 , p_media_type VARCHAR2
225 , p_printer VARCHAR2
226 , p_email VARCHAR2
227 , p_fax VARCHAR2
228 , p_file_path VARCHAR2
229 , p_user_note VARCHAR2
230 , p_content_type VARCHAR2
231 , p_bind_var JTF_VARCHAR2_TABLE_1000
232 , p_bind_val JTF_VARCHAR2_TABLE_1000
233 , p_bind_var_type JTF_VARCHAR2_TABLE_1000
234 , p_request_id NUMBER
235 , x_content_xml out nocopy VARCHAR2
236 , p_content_source VARCHAR2
237 , p_version NUMBER
238 )
239
240 as
241 ddp_bind_var jtf_fm_request_grp.g_varchar_tbl_type;
242 ddp_bind_val jtf_fm_request_grp.g_varchar_tbl_type;
243 ddp_bind_var_type jtf_fm_request_grp.g_varchar_tbl_type;
244 ddindx binary_integer; indx binary_integer;
245 begin
246
247 -- copy data to the local IN or IN-OUT args, if any
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266 jtf_fm_request_grp_w.rosetta_table_copy_in_p3(ddp_bind_var, p_bind_var);
267
268 jtf_fm_request_grp_w.rosetta_table_copy_in_p3(ddp_bind_val, p_bind_val);
269
270 jtf_fm_request_grp_w.rosetta_table_copy_in_p3(ddp_bind_var_type, p_bind_var_type);
271
272
273
274
275
276 -- here's the delegated call to the old PL/SQL routine
277 jtf_fm_request_grp.get_content_xml(p_api_version,
278 p_init_msg_list,
279 p_commit,
280 p_validation_level,
281 x_return_status,
282 x_msg_count,
283 x_msg_data,
284 p_content_id,
285 p_content_nm,
286 p_document_type,
287 p_quantity,
288 p_media_type,
289 p_printer,
290 p_email,
291 p_fax,
292 p_file_path,
293 p_user_note,
294 p_content_type,
295 ddp_bind_var,
296 ddp_bind_val,
297 ddp_bind_var_type,
298 p_request_id,
299 x_content_xml,
300 p_content_source,
301 p_version);
302
303 -- copy data back from the local variables to OUT or IN-OUT args, if any
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328 end;
329
330 procedure cancel_request(p_api_version NUMBER
331 , p_init_msg_list VARCHAR2
332 , p_commit VARCHAR2
333 , p_validation_level NUMBER
334 , x_return_status out nocopy VARCHAR2
335 , x_msg_count out nocopy NUMBER
336 , x_msg_data out nocopy VARCHAR2
337 , p_request_id NUMBER
338 , p_submit_dt_tm date
339 )
340
341 as
342 ddp_submit_dt_tm date;
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
349
350
351
352
353
354
355 ddp_submit_dt_tm := rosetta_g_miss_date_in_map(p_submit_dt_tm);
356
357 -- here's the delegated call to the old PL/SQL routine
358 jtf_fm_request_grp.cancel_request(p_api_version,
359 p_init_msg_list,
360 p_commit,
361 p_validation_level,
362 x_return_status,
363 x_msg_count,
364 x_msg_data,
365 p_request_id,
366 ddp_submit_dt_tm);
367
368 -- copy data back from the local variables to OUT or IN-OUT args, if any
369
370
371
372
373
374
375
376
377 end;
378
379 procedure get_multiple_content_xml(p_api_version NUMBER
380 , p_init_msg_list VARCHAR2
381 , p_commit VARCHAR2
382 , p_validation_level NUMBER
383 , x_return_status out nocopy VARCHAR2
384 , x_msg_count out nocopy NUMBER
385 , x_msg_data out nocopy VARCHAR2
386 , p_request_id NUMBER
387 , p_content_type JTF_VARCHAR2_TABLE_1000
391 , p_media_type JTF_VARCHAR2_TABLE_1000
388 , p_content_id JTF_NUMBER_TABLE
389 , p_content_nm JTF_VARCHAR2_TABLE_1000
390 , p_document_type JTF_VARCHAR2_TABLE_1000
392 , p_printer JTF_VARCHAR2_TABLE_1000
393 , p_email JTF_VARCHAR2_TABLE_1000
394 , p_fax JTF_VARCHAR2_TABLE_1000
395 , p_file_path JTF_VARCHAR2_TABLE_1000
396 , p_user_note JTF_VARCHAR2_TABLE_1000
397 , p_quantity JTF_NUMBER_TABLE
398 , x_content_xml out nocopy VARCHAR2
399 )
400
401 as
402 ddp_content_type jtf_fm_request_grp.g_varchar_tbl_type;
403 ddp_content_id jtf_fm_request_grp.g_number_tbl_type;
404 ddp_content_nm jtf_fm_request_grp.g_varchar_tbl_type;
405 ddp_document_type jtf_fm_request_grp.g_varchar_tbl_type;
406 ddp_media_type jtf_fm_request_grp.g_varchar_tbl_type;
407 ddp_printer jtf_fm_request_grp.g_varchar_tbl_type;
408 ddp_email jtf_fm_request_grp.g_varchar_tbl_type;
409 ddp_fax jtf_fm_request_grp.g_varchar_tbl_type;
410 ddp_file_path jtf_fm_request_grp.g_varchar_tbl_type;
411 ddp_user_note jtf_fm_request_grp.g_varchar_tbl_type;
412 ddp_quantity jtf_fm_request_grp.g_number_tbl_type;
413 ddindx binary_integer; indx binary_integer;
414 begin
415
416 -- copy data to the local IN or IN-OUT args, if any
417
418
419
420
421
422
423
424
425 jtf_fm_request_grp_w.rosetta_table_copy_in_p3(ddp_content_type, p_content_type);
426
427 jtf_fm_request_grp_w.rosetta_table_copy_in_p5(ddp_content_id, p_content_id);
428
429 jtf_fm_request_grp_w.rosetta_table_copy_in_p3(ddp_content_nm, p_content_nm);
430
431 jtf_fm_request_grp_w.rosetta_table_copy_in_p3(ddp_document_type, p_document_type);
432
433 jtf_fm_request_grp_w.rosetta_table_copy_in_p3(ddp_media_type, p_media_type);
434
435 jtf_fm_request_grp_w.rosetta_table_copy_in_p3(ddp_printer, p_printer);
436
437 jtf_fm_request_grp_w.rosetta_table_copy_in_p3(ddp_email, p_email);
438
439 jtf_fm_request_grp_w.rosetta_table_copy_in_p3(ddp_fax, p_fax);
440
441 jtf_fm_request_grp_w.rosetta_table_copy_in_p3(ddp_file_path, p_file_path);
442
443 jtf_fm_request_grp_w.rosetta_table_copy_in_p3(ddp_user_note, p_user_note);
444
445 jtf_fm_request_grp_w.rosetta_table_copy_in_p5(ddp_quantity, p_quantity);
446
447
448 -- here's the delegated call to the old PL/SQL routine
449 jtf_fm_request_grp.get_multiple_content_xml(p_api_version,
450 p_init_msg_list,
451 p_commit,
452 p_validation_level,
453 x_return_status,
454 x_msg_count,
455 x_msg_data,
456 p_request_id,
457 ddp_content_type,
458 ddp_content_id,
459 ddp_content_nm,
460 ddp_document_type,
461 ddp_media_type,
462 ddp_printer,
463 ddp_email,
464 ddp_fax,
465 ddp_file_path,
466 ddp_user_note,
467 ddp_quantity,
468 x_content_xml);
469
470 -- copy data back from the local variables to OUT or IN-OUT args, if any
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490 end;
491
492 procedure submit_batch_request(p_api_version NUMBER
493 , p_init_msg_list VARCHAR2
494 , p_commit VARCHAR2
495 , p_validation_level NUMBER
496 , x_return_status out nocopy VARCHAR2
497 , x_msg_count out nocopy NUMBER
498 , x_msg_data out nocopy VARCHAR2
499 , p_template_id NUMBER
500 , p_subject VARCHAR2
501 , p_user_id NUMBER
502 , p_source_code_id NUMBER
503 , p_source_code VARCHAR2
504 , p_object_type VARCHAR2
505 , p_object_id NUMBER
506 , p_order_id NUMBER
507 , p_doc_id NUMBER
508 , p_doc_ref VARCHAR2
509 , p_list_type VARCHAR2
510 , p_view_nm VARCHAR2
511 , p_party_id JTF_NUMBER_TABLE
512 , p_party_name JTF_VARCHAR2_TABLE_1000
513 , p_printer JTF_VARCHAR2_TABLE_1000
514 , p_email JTF_VARCHAR2_TABLE_1000
515 , p_fax JTF_VARCHAR2_TABLE_1000
516 , p_file_path JTF_VARCHAR2_TABLE_1000
517 , p_server_id NUMBER
518 , p_queue_response VARCHAR2
519 , p_extended_header VARCHAR2
520 , p_content_xml VARCHAR2
521 , p_request_id NUMBER
522 , p_per_user_history VARCHAR2
523 )
524
525 as
526 ddp_party_id jtf_fm_request_grp.g_number_tbl_type;
527 ddp_party_name jtf_fm_request_grp.g_varchar_tbl_type;
528 ddp_printer jtf_fm_request_grp.g_varchar_tbl_type;
529 ddp_email jtf_fm_request_grp.g_varchar_tbl_type;
530 ddp_fax jtf_fm_request_grp.g_varchar_tbl_type;
531 ddp_file_path jtf_fm_request_grp.g_varchar_tbl_type;
532 ddindx binary_integer; indx binary_integer;
533 begin
534
535 -- copy data to the local IN or IN-OUT args, if any
536
537
538
542
539
540
541
543
544
545
546
547
548
549
550
551
552
553
554
555 jtf_fm_request_grp_w.rosetta_table_copy_in_p5(ddp_party_id, p_party_id);
556
557 jtf_fm_request_grp_w.rosetta_table_copy_in_p3(ddp_party_name, p_party_name);
558
559 jtf_fm_request_grp_w.rosetta_table_copy_in_p3(ddp_printer, p_printer);
560
561 jtf_fm_request_grp_w.rosetta_table_copy_in_p3(ddp_email, p_email);
562
563 jtf_fm_request_grp_w.rosetta_table_copy_in_p3(ddp_fax, p_fax);
564
565 jtf_fm_request_grp_w.rosetta_table_copy_in_p3(ddp_file_path, p_file_path);
566
567
568
569
570
571
572
573 -- here's the delegated call to the old PL/SQL routine
574 jtf_fm_request_grp.submit_batch_request(p_api_version,
575 p_init_msg_list,
576 p_commit,
577 p_validation_level,
578 x_return_status,
579 x_msg_count,
580 x_msg_data,
581 p_template_id,
582 p_subject,
583 p_user_id,
584 p_source_code_id,
585 p_source_code,
586 p_object_type,
587 p_object_id,
588 p_order_id,
589 p_doc_id,
590 p_doc_ref,
591 p_list_type,
592 p_view_nm,
593 ddp_party_id,
594 ddp_party_name,
595 ddp_printer,
596 ddp_email,
597 ddp_fax,
598 ddp_file_path,
599 p_server_id,
600 p_queue_response,
601 p_extended_header,
602 p_content_xml,
603 p_request_id,
604 p_per_user_history);
605
606 -- copy data back from the local variables to OUT or IN-OUT args, if any
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637 end;
638
639 procedure submit_mass_request(p_api_version NUMBER
640 , p_init_msg_list VARCHAR2
641 , p_commit VARCHAR2
642 , p_validation_level NUMBER
643 , x_return_status out nocopy VARCHAR2
644 , x_msg_count out nocopy NUMBER
645 , x_msg_data out nocopy VARCHAR2
646 , p_template_id NUMBER
647 , p_subject VARCHAR2
648 , p_user_id NUMBER
649 , p_source_code_id NUMBER
650 , p_source_code VARCHAR2
651 , p_object_type VARCHAR2
652 , p_object_id NUMBER
653 , p_order_id NUMBER
654 , p_doc_id NUMBER
655 , p_doc_ref VARCHAR2
656 , p_list_type VARCHAR2
657 , p_view_nm VARCHAR2
658 , p_server_id NUMBER
659 , p_queue_response VARCHAR2
660 , p_extended_header VARCHAR2
661 , p_content_xml VARCHAR2
662 , p_request_id NUMBER
663 , p_per_user_history VARCHAR2
664 , p_mass_query_id NUMBER
665 , p_mass_bind_var JTF_VARCHAR2_TABLE_1000
666 , p_mass_bind_var_type JTF_VARCHAR2_TABLE_1000
667 , p_mass_bind_val JTF_VARCHAR2_TABLE_1000
668 )
669
670 as
671 ddp_mass_bind_var jtf_fm_request_grp.g_varchar_tbl_type;
672 ddp_mass_bind_var_type jtf_fm_request_grp.g_varchar_tbl_type;
673 ddp_mass_bind_val jtf_fm_request_grp.g_varchar_tbl_type;
674 ddindx binary_integer; indx binary_integer;
675 begin
676
677 -- copy data to the local IN or IN-OUT args, if any
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704 jtf_fm_request_grp_w.rosetta_table_copy_in_p3(ddp_mass_bind_var, p_mass_bind_var);
705
706 jtf_fm_request_grp_w.rosetta_table_copy_in_p3(ddp_mass_bind_var_type, p_mass_bind_var_type);
707
708 jtf_fm_request_grp_w.rosetta_table_copy_in_p3(ddp_mass_bind_val, p_mass_bind_val);
709
710 -- here's the delegated call to the old PL/SQL routine
711 jtf_fm_request_grp.submit_mass_request(p_api_version,
712 p_init_msg_list,
713 p_commit,
714 p_validation_level,
715 x_return_status,
716 x_msg_count,
717 x_msg_data,
718 p_template_id,
719 p_subject,
720 p_user_id,
721 p_source_code_id,
722 p_source_code,
723 p_object_type,
724 p_object_id,
725 p_order_id,
726 p_doc_id,
727 p_doc_ref,
728 p_list_type,
729 p_view_nm,
730 p_server_id,
731 p_queue_response,
732 p_extended_header,
733 p_content_xml,
734 p_request_id,
735 p_per_user_history,
736 p_mass_query_id,
737 ddp_mass_bind_var,
738 ddp_mass_bind_var_type,
739 ddp_mass_bind_val);
740
741 -- copy data back from the local variables to OUT or IN-OUT args, if any
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770 end;
771
772 procedure new_cancel_request(p_api_version NUMBER
773 , p_init_msg_list VARCHAR2
774 , p_commit VARCHAR2
775 , p_validation_level NUMBER
776 , x_return_status out nocopy VARCHAR2
777 , x_msg_count out nocopy NUMBER
778 , x_msg_data out nocopy VARCHAR2
779 , p_request_id NUMBER
780 , p_submit_dt_tm date
781 )
782
783 as
784 ddp_submit_dt_tm date;
785 ddindx binary_integer; indx binary_integer;
786 begin
787
788 -- copy data to the local IN or IN-OUT args, if any
789
790
791
792
793
794
795
796
797 ddp_submit_dt_tm := rosetta_g_miss_date_in_map(p_submit_dt_tm);
798
799 -- here's the delegated call to the old PL/SQL routine
800 jtf_fm_request_grp.new_cancel_request(p_api_version,
801 p_init_msg_list,
802 p_commit,
803 p_validation_level,
804 x_return_status,
805 x_msg_count,
809
806 x_msg_data,
807 p_request_id,
808 ddp_submit_dt_tm);
810 -- copy data back from the local variables to OUT or IN-OUT args, if any
811
812
813
814
815
816
817
818
819 end;
820
821 procedure correct_malformed(p_api_version NUMBER
822 , p_init_msg_list VARCHAR2
823 , p_commit VARCHAR2
824 , p_validation_level NUMBER
825 , x_msg_count out nocopy NUMBER
826 , x_msg_data out nocopy VARCHAR2
827 , p_request_id NUMBER
828 , p_job JTF_NUMBER_TABLE
829 , p_corrected_address JTF_VARCHAR2_TABLE_1000
830 , x_return_status out nocopy VARCHAR2
831 )
832
833 as
834 ddp_job jtf_fm_request_grp.g_number_tbl_type;
835 ddp_corrected_address jtf_fm_request_grp.g_varchar_tbl_type;
836 ddindx binary_integer; indx binary_integer;
837 begin
838
839 -- copy data to the local IN or IN-OUT args, if any
840
841
842
843
844
845
846
847 jtf_fm_request_grp_w.rosetta_table_copy_in_p5(ddp_job, p_job);
848
849 jtf_fm_request_grp_w.rosetta_table_copy_in_p3(ddp_corrected_address, p_corrected_address);
850
851
852 -- here's the delegated call to the old PL/SQL routine
853 jtf_fm_request_grp.correct_malformed(p_api_version,
854 p_init_msg_list,
855 p_commit,
856 p_validation_level,
857 x_msg_count,
858 x_msg_data,
859 p_request_id,
860 ddp_job,
861 ddp_corrected_address,
862 x_return_status);
863
864 -- copy data back from the local variables to OUT or IN-OUT args, if any
865
866
867
868
869
870
871
872
873
874 end;
875
876 procedure resubmit_malformed(p_api_version NUMBER
877 , p_init_msg_list VARCHAR2
878 , p_commit VARCHAR2
879 , p_validation_level NUMBER
880 , x_msg_count out nocopy NUMBER
881 , x_msg_data out nocopy VARCHAR2
882 , p_request_id NUMBER
883 , x_request_id out nocopy JTF_NUMBER_TABLE
884 , x_return_status out nocopy VARCHAR2
885 )
886
887 as
888 ddx_request_id jtf_fm_request_grp.g_number_tbl_type;
889 ddindx binary_integer; indx binary_integer;
890 begin
891
892 -- copy data to the local IN or IN-OUT args, if any
893
894
895
896
897
898
899
900
901
902 -- here's the delegated call to the old PL/SQL routine
903 jtf_fm_request_grp.resubmit_malformed(p_api_version,
904 p_init_msg_list,
905 p_commit,
906 p_validation_level,
907 x_msg_count,
908 x_msg_data,
909 p_request_id,
910 ddx_request_id,
911 x_return_status);
912
913 -- copy data back from the local variables to OUT or IN-OUT args, if any
914
915
916
917
918
919
920
921 jtf_fm_request_grp_w.rosetta_table_copy_out_p5(ddx_request_id, x_request_id);
922
923 end;
924
925 end jtf_fm_request_grp_w;