[Home] [Help]
Skip to content
PACKAGE BODY: APPS.OKL_CREDIT_DATAPOINTS_PVT_W
Source
1 package body okl_credit_datapoints_pvt_w as
2 /* $Header: OKLECDPB.pls 120.0.12010000.1 2008/07/25 08:01:18 appldev ship $ */
3 procedure rosetta_table_copy_in_p4(t out nocopy okl_credit_datapoints_pvt.lap_dp_tbl_type, a0 JTF_NUMBER_TABLE
4 , a1 JTF_NUMBER_TABLE
5 , a2 JTF_NUMBER_TABLE
6 , a3 JTF_NUMBER_TABLE
7 , a4 JTF_VARCHAR2_TABLE_100
8 , a5 JTF_VARCHAR2_TABLE_200
9 , a6 JTF_VARCHAR2_TABLE_100
10 , a7 JTF_VARCHAR2_TABLE_200
11 ) as
12 ddindx binary_integer; indx binary_integer;
13 begin
14 if a0 is not null and a0.count > 0 then
15 if a0.count > 0 then
16 indx := a0.first;
17 ddindx := 1;
18 while true loop
19 t(ddindx).id := a0(indx);
20 t(ddindx).object_version_number := a1(indx);
21 t(ddindx).leaseapp_id := a2(indx);
22 t(ddindx).data_point_id := a3(indx);
23 t(ddindx).data_point_category := a4(indx);
24 t(ddindx).data_point_value := a5(indx);
25 t(ddindx).data_point_name := a6(indx);
26 t(ddindx).description := a7(indx);
27 ddindx := ddindx+1;
28 if a0.last =indx
29 then exit;
30 end if;
31 indx := a0.next(indx);
32 end loop;
33 end if;
34 end if;
35 end rosetta_table_copy_in_p4;
36 procedure rosetta_table_copy_out_p4(t okl_credit_datapoints_pvt.lap_dp_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
37 , a1 out nocopy JTF_NUMBER_TABLE
38 , a2 out nocopy JTF_NUMBER_TABLE
39 , a3 out nocopy JTF_NUMBER_TABLE
40 , a4 out nocopy JTF_VARCHAR2_TABLE_100
41 , a5 out nocopy JTF_VARCHAR2_TABLE_200
42 , a6 out nocopy JTF_VARCHAR2_TABLE_100
43 , a7 out nocopy JTF_VARCHAR2_TABLE_200
44 ) as
45 ddindx binary_integer; indx binary_integer;
46 begin
47 if t is null or t.count = 0 then
48 a0 := JTF_NUMBER_TABLE();
49 a1 := JTF_NUMBER_TABLE();
50 a2 := JTF_NUMBER_TABLE();
51 a3 := JTF_NUMBER_TABLE();
52 a4 := JTF_VARCHAR2_TABLE_100();
53 a5 := JTF_VARCHAR2_TABLE_200();
54 a6 := JTF_VARCHAR2_TABLE_100();
55 a7 := JTF_VARCHAR2_TABLE_200();
56 else
57 a0 := JTF_NUMBER_TABLE();
58 a1 := JTF_NUMBER_TABLE();
59 a2 := JTF_NUMBER_TABLE();
60 a3 := JTF_NUMBER_TABLE();
61 a4 := JTF_VARCHAR2_TABLE_100();
62 a5 := JTF_VARCHAR2_TABLE_200();
63 a6 := JTF_VARCHAR2_TABLE_100();
64 a7 := JTF_VARCHAR2_TABLE_200();
65 if t.count > 0 then
66 a0.extend(t.count);
67 a1.extend(t.count);
68 a2.extend(t.count);
69 a3.extend(t.count);
70 a4.extend(t.count);
71 a5.extend(t.count);
72 a6.extend(t.count);
73 a7.extend(t.count);
74 ddindx := t.first;
75 indx := 1;
76 while true loop
77 a0(indx) := t(ddindx).id;
78 a1(indx) := t(ddindx).object_version_number;
79 a2(indx) := t(ddindx).leaseapp_id;
80 a3(indx) := t(ddindx).data_point_id;
81 a4(indx) := t(ddindx).data_point_category;
82 a5(indx) := t(ddindx).data_point_value;
83 a6(indx) := t(ddindx).data_point_name;
84 a7(indx) := t(ddindx).description;
85 indx := indx+1;
86 if t.last =ddindx
87 then exit;
88 end if;
89 ddindx := t.next(ddindx);
90 end loop;
91 end if;
92 end if;
93 end rosetta_table_copy_out_p4;
94
95 procedure fetch_leaseapp_datapoints(p_api_version NUMBER
96 , p_init_msg_list VARCHAR2
97 , p_leaseapp_id NUMBER
98 , p3_a0 out nocopy JTF_NUMBER_TABLE
99 , p3_a1 out nocopy JTF_NUMBER_TABLE
100 , p3_a2 out nocopy JTF_NUMBER_TABLE
101 , p3_a3 out nocopy JTF_NUMBER_TABLE
102 , p3_a4 out nocopy JTF_VARCHAR2_TABLE_100
103 , p3_a5 out nocopy JTF_VARCHAR2_TABLE_200
104 , p3_a6 out nocopy JTF_VARCHAR2_TABLE_100
105 , p3_a7 out nocopy JTF_VARCHAR2_TABLE_200
106 , x_return_status out nocopy VARCHAR2
107 , x_msg_count out nocopy NUMBER
108 , x_msg_data out nocopy VARCHAR2
109 )
110
111 as
112 ddx_lap_dp_tbl_type okl_credit_datapoints_pvt.lap_dp_tbl_type;
113 ddindx binary_integer; indx binary_integer;
114 begin
115
116 -- copy data to the local IN or IN-OUT args, if any
117
118
119
120
121
122
123
124 -- here's the delegated call to the old PL/SQL routine
125 okl_credit_datapoints_pvt.fetch_leaseapp_datapoints(p_api_version,
126 p_init_msg_list,
127 p_leaseapp_id,
128 ddx_lap_dp_tbl_type,
129 x_return_status,
130 x_msg_count,
131 x_msg_data);
132
133 -- copy data back from the local variables to OUT or IN-OUT args, if any
134
135
136
137 okl_credit_datapoints_pvt_w.rosetta_table_copy_out_p4(ddx_lap_dp_tbl_type, p3_a0
138 , p3_a1
139 , p3_a2
140 , p3_a3
141 , p3_a4
142 , p3_a5
143 , p3_a6
144 , p3_a7
145 );
146
147
148
149 end;
150
151 procedure store_leaseapp_datapoints(p_api_version NUMBER
152 , p_init_msg_list VARCHAR2
153 , p2_a0 JTF_NUMBER_TABLE
154 , p2_a1 JTF_NUMBER_TABLE
155 , p2_a2 JTF_NUMBER_TABLE
156 , p2_a3 JTF_NUMBER_TABLE
157 , p2_a4 JTF_VARCHAR2_TABLE_100
158 , p2_a5 JTF_VARCHAR2_TABLE_200
159 , p2_a6 JTF_VARCHAR2_TABLE_100
160 , p2_a7 JTF_VARCHAR2_TABLE_200
161 , x_return_status out nocopy VARCHAR2
162 , x_msg_count out nocopy NUMBER
163 , x_msg_data out nocopy VARCHAR2
164 )
165
166 as
167 ddp_lap_dp_tbl okl_credit_datapoints_pvt.lap_dp_tbl_type;
168 ddindx binary_integer; indx binary_integer;
169 begin
170
171 -- copy data to the local IN or IN-OUT args, if any
172
173
174 okl_credit_datapoints_pvt_w.rosetta_table_copy_in_p4(ddp_lap_dp_tbl, p2_a0
175 , p2_a1
176 , p2_a2
177 , p2_a3
178 , p2_a4
179 , p2_a5
180 , p2_a6
181 , p2_a7
182 );
183
184
185
186
187 -- here's the delegated call to the old PL/SQL routine
188 okl_credit_datapoints_pvt.store_leaseapp_datapoints(p_api_version,
189 p_init_msg_list,
190 ddp_lap_dp_tbl,
191 x_return_status,
192 x_msg_count,
193 x_msg_data);
194
195 -- copy data back from the local variables to OUT or IN-OUT args, if any
196
197
198
199
200
201 end;
202
203 procedure leaseapp_datapoints_exists(p_leaseapp_id NUMBER
204 , ddrosetta_retval_bool OUT NOCOPY NUMBER
205 )
206
207 as
208 ddindx binary_integer; indx binary_integer;
209 ddrosetta_retval boolean;
210 begin
211
212 -- copy data to the local IN or IN-OUT args, if any
213
214 -- here's the delegated call to the old PL/SQL routine
215 ddrosetta_retval := okl_credit_datapoints_pvt.leaseapp_datapoints_exists(p_leaseapp_id);
216
217 -- copy data back from the local variables to OUT or IN-OUT args, if any
218 if ddrosetta_retval is null
219 then ddrosetta_retval_bool := null;
220 elsif ddrosetta_retval
221 then ddrosetta_retval_bool := 1;
222 else ddrosetta_retval_bool := 0;
223 end if;
224 end;
225
226 end okl_credit_datapoints_pvt_w;