[Home] [Help]
PACKAGE BODY: APPS.OKL_VP_STS_PUB_W
Source
1 package body okl_vp_sts_pub_w as
2 /* $Header: OKLUSSCB.pls 120.2 2005/08/04 03:07:35 manumanu noship $ */
3 procedure rosetta_table_copy_in_p1(t out nocopy okl_vp_sts_pub.vp_sts_tbl_type, a0 JTF_VARCHAR2_TABLE_100
4 , a1 JTF_VARCHAR2_TABLE_100
5 ) as
6 ddindx binary_integer; indx binary_integer;
7 begin
8 if a0 is not null and a0.count > 0 then
9 if a0.count > 0 then
10 indx := a0.first;
11 ddindx := 1;
12 while true loop
13 t(ddindx).status := a0(indx);
14 t(ddindx).status_code := a1(indx);
15 ddindx := ddindx+1;
16 if a0.last =indx
17 then exit;
18 end if;
19 indx := a0.next(indx);
20 end loop;
21 end if;
22 end if;
23 end rosetta_table_copy_in_p1;
24 procedure rosetta_table_copy_out_p1(t okl_vp_sts_pub.vp_sts_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
25 , a1 out nocopy JTF_VARCHAR2_TABLE_100
26 ) as
27 ddindx binary_integer; indx binary_integer;
28 begin
29 if t is null or t.count = 0 then
30 a0 := JTF_VARCHAR2_TABLE_100();
31 a1 := JTF_VARCHAR2_TABLE_100();
32 else
33 a0 := JTF_VARCHAR2_TABLE_100();
34 a1 := JTF_VARCHAR2_TABLE_100();
35 if t.count > 0 then
36 a0.extend(t.count);
37 a1.extend(t.count);
38 ddindx := t.first;
39 indx := 1;
40 while true loop
41 a0(indx) := t(ddindx).status;
42 a1(indx) := t(ddindx).status_code;
43 indx := indx+1;
44 if t.last =ddindx
45 then exit;
46 end if;
47 ddindx := t.next(ddindx);
48 end loop;
49 end if;
50 end if;
51 end rosetta_table_copy_out_p1;
52
53 procedure get_listof_new_statuses(p_api_version NUMBER
54 , p_init_msg_list VARCHAR2
55 , x_return_status out nocopy VARCHAR2
56 , x_msg_count out nocopy NUMBER
57 , x_msg_data out nocopy VARCHAR2
58 , p_ste_code VARCHAR2
59 , p_sts_code VARCHAR2
60 , p_start_date DATE
61 , p_end_date DATE
62 , p9_a0 out nocopy JTF_VARCHAR2_TABLE_100
63 , p9_a1 out nocopy JTF_VARCHAR2_TABLE_100
64 )
65
66 as
67 ddx_sts_tbl okl_vp_sts_pub.sts_tbl_type;
68 ddindx binary_integer; indx binary_integer;
69 begin
70
71 -- copy data to the local IN or IN-OUT args, if any
72
73
74
75
76
77
78
79
80
81
82 -- here's the delegated call to the old PL/SQL routine
83 okl_vp_sts_pub.get_listof_new_statuses(p_api_version,
84 p_init_msg_list,
85 x_return_status,
86 x_msg_count,
87 x_msg_data,
88 p_ste_code,
89 p_sts_code,
90 p_start_date,
91 p_end_date,
92 ddx_sts_tbl);
93
94 -- copy data back from the local variables to OUT or IN-OUT args, if any
95
96
97
98
99
100
101
102
103
104 okl_vp_sts_pvt_w.rosetta_table_copy_out_p1(ddx_sts_tbl, p9_a0
105 , p9_a1
106 );
107 end;
108
109 end okl_vp_sts_pub_w;