[Home] [Help]
PACKAGE BODY: APPS.OKL_ECC_DEF_PVT_W
Source
1 package body okl_ecc_def_pvt_w as
2 /* $Header: OKLEECCB.pls 120.1 2005/10/30 04:58:22 appldev noship $ */
3 procedure create_ecc(p_api_version NUMBER
4 , p_init_msg_list VARCHAR2
5 , x_return_status out nocopy VARCHAR2
6 , x_msg_count out nocopy NUMBER
7 , x_msg_data out nocopy VARCHAR2
8 , p5_a0 NUMBER
9 , p5_a1 NUMBER
10 , p5_a2 VARCHAR2
11 , p5_a3 NUMBER
12 , p5_a4 VARCHAR2
13 , p5_a5 VARCHAR2
14 , p5_a6 VARCHAR2
15 , p5_a7 VARCHAR2
16 , p5_a8 VARCHAR2
17 , p5_a9 VARCHAR2
18 , p5_a10 VARCHAR2
19 , p5_a11 NUMBER
20 , p5_a12 VARCHAR2
21 , p5_a13 VARCHAR2
22 , p5_a14 NUMBER
23 , p5_a15 DATE
24 , p5_a16 NUMBER
25 , p5_a17 DATE
26 , p5_a18 NUMBER
27 , p6_a0 out nocopy NUMBER
28 , p6_a1 out nocopy NUMBER
29 , p6_a2 out nocopy VARCHAR2
30 , p6_a3 out nocopy NUMBER
31 , p6_a4 out nocopy VARCHAR2
32 , p6_a5 out nocopy VARCHAR2
33 , p6_a6 out nocopy VARCHAR2
34 , p6_a7 out nocopy VARCHAR2
35 , p6_a8 out nocopy VARCHAR2
36 , p6_a9 out nocopy VARCHAR2
37 , p6_a10 out nocopy VARCHAR2
38 , p6_a11 out nocopy NUMBER
39 , p6_a12 out nocopy VARCHAR2
40 , p6_a13 out nocopy VARCHAR2
41 , p6_a14 out nocopy NUMBER
42 , p6_a15 out nocopy DATE
43 , p6_a16 out nocopy NUMBER
44 , p6_a17 out nocopy DATE
45 , p6_a18 out nocopy NUMBER
46 , p7_a0 JTF_NUMBER_TABLE
47 , p7_a1 JTF_NUMBER_TABLE
48 , p7_a2 JTF_NUMBER_TABLE
49 , p7_a3 JTF_VARCHAR2_TABLE_100
50 , p7_a4 JTF_VARCHAR2_TABLE_100
51 , p7_a5 JTF_NUMBER_TABLE
52 , p7_a6 JTF_DATE_TABLE
53 , p7_a7 JTF_NUMBER_TABLE
54 , p7_a8 JTF_DATE_TABLE
55 , p7_a9 JTF_NUMBER_TABLE
56 , p8_a0 out nocopy JTF_NUMBER_TABLE
57 , p8_a1 out nocopy JTF_NUMBER_TABLE
58 , p8_a2 out nocopy JTF_NUMBER_TABLE
59 , p8_a3 out nocopy JTF_VARCHAR2_TABLE_100
60 , p8_a4 out nocopy JTF_VARCHAR2_TABLE_100
61 , p8_a5 out nocopy JTF_NUMBER_TABLE
62 , p8_a6 out nocopy JTF_DATE_TABLE
63 , p8_a7 out nocopy JTF_NUMBER_TABLE
64 , p8_a8 out nocopy JTF_DATE_TABLE
65 , p8_a9 out nocopy JTF_NUMBER_TABLE
66 )
67
68 as
69 ddp_eccv_rec okl_ecc_def_pvt.okl_eccv_rec;
70 ddx_eccv_rec okl_ecc_def_pvt.okl_eccv_rec;
71 ddp_eco_tbl okl_ecc_def_pvt.okl_eco_tbl;
72 ddx_eco_tbl okl_ecc_def_pvt.okl_eco_tbl;
73 ddindx binary_integer; indx binary_integer;
74 begin
75
76 -- copy data to the local IN or IN-OUT args, if any
77
78
79
80
81
82 ddp_eccv_rec.crit_cat_def_id := p5_a0;
83 ddp_eccv_rec.object_version_number := p5_a1;
84 ddp_eccv_rec.ecc_ac_flag := p5_a2;
85 ddp_eccv_rec.orig_crit_cat_def_id := p5_a3;
86 ddp_eccv_rec.crit_cat_name := p5_a4;
87 ddp_eccv_rec.crit_cat_desc := p5_a5;
88 ddp_eccv_rec.sfwt_flag := p5_a6;
89 ddp_eccv_rec.value_type_code := p5_a7;
90 ddp_eccv_rec.data_type_code := p5_a8;
91 ddp_eccv_rec.enabled_yn := p5_a9;
92 ddp_eccv_rec.seeded_yn := p5_a10;
93 ddp_eccv_rec.function_id := p5_a11;
94 ddp_eccv_rec.source_yn := p5_a12;
95 ddp_eccv_rec.sql_statement := p5_a13;
96 ddp_eccv_rec.created_by := p5_a14;
97 ddp_eccv_rec.creation_date := p5_a15;
98 ddp_eccv_rec.last_updated_by := p5_a16;
99 ddp_eccv_rec.last_update_date := p5_a17;
100 ddp_eccv_rec.last_update_login := p5_a18;
101
102
103 okl_eco_pvt_w.rosetta_table_copy_in_p1(ddp_eco_tbl, p7_a0
104 , p7_a1
105 , p7_a2
106 , p7_a3
107 , p7_a4
108 , p7_a5
109 , p7_a6
110 , p7_a7
111 , p7_a8
112 , p7_a9
113 );
114
115
116 -- here's the delegated call to the old PL/SQL routine
117 okl_ecc_def_pvt.create_ecc(p_api_version,
118 p_init_msg_list,
119 x_return_status,
120 x_msg_count,
121 x_msg_data,
122 ddp_eccv_rec,
123 ddx_eccv_rec,
124 ddp_eco_tbl,
125 ddx_eco_tbl);
126
127 -- copy data back from the local variables to OUT or IN-OUT args, if any
128
129
130
131
132
133
134 p6_a0 := ddx_eccv_rec.crit_cat_def_id;
135 p6_a1 := ddx_eccv_rec.object_version_number;
136 p6_a2 := ddx_eccv_rec.ecc_ac_flag;
137 p6_a3 := ddx_eccv_rec.orig_crit_cat_def_id;
138 p6_a4 := ddx_eccv_rec.crit_cat_name;
139 p6_a5 := ddx_eccv_rec.crit_cat_desc;
140 p6_a6 := ddx_eccv_rec.sfwt_flag;
141 p6_a7 := ddx_eccv_rec.value_type_code;
142 p6_a8 := ddx_eccv_rec.data_type_code;
143 p6_a9 := ddx_eccv_rec.enabled_yn;
144 p6_a10 := ddx_eccv_rec.seeded_yn;
145 p6_a11 := ddx_eccv_rec.function_id;
146 p6_a12 := ddx_eccv_rec.source_yn;
147 p6_a13 := ddx_eccv_rec.sql_statement;
148 p6_a14 := ddx_eccv_rec.created_by;
149 p6_a15 := ddx_eccv_rec.creation_date;
150 p6_a16 := ddx_eccv_rec.last_updated_by;
151 p6_a17 := ddx_eccv_rec.last_update_date;
152 p6_a18 := ddx_eccv_rec.last_update_login;
153
154
155 okl_eco_pvt_w.rosetta_table_copy_out_p1(ddx_eco_tbl, p8_a0
156 , p8_a1
157 , p8_a2
158 , p8_a3
159 , p8_a4
160 , p8_a5
161 , p8_a6
162 , p8_a7
163 , p8_a8
164 , p8_a9
165 );
166 end;
167
168 procedure update_ecc(p_api_version NUMBER
169 , p_init_msg_list VARCHAR2
170 , x_return_status out nocopy VARCHAR2
171 , x_msg_count out nocopy NUMBER
172 , x_msg_data out nocopy VARCHAR2
173 , p5_a0 NUMBER
174 , p5_a1 NUMBER
175 , p5_a2 VARCHAR2
176 , p5_a3 NUMBER
177 , p5_a4 VARCHAR2
178 , p5_a5 VARCHAR2
179 , p5_a6 VARCHAR2
180 , p5_a7 VARCHAR2
181 , p5_a8 VARCHAR2
182 , p5_a9 VARCHAR2
183 , p5_a10 VARCHAR2
184 , p5_a11 NUMBER
185 , p5_a12 VARCHAR2
186 , p5_a13 VARCHAR2
187 , p5_a14 NUMBER
188 , p5_a15 DATE
189 , p5_a16 NUMBER
190 , p5_a17 DATE
191 , p5_a18 NUMBER
192 , p6_a0 out nocopy NUMBER
193 , p6_a1 out nocopy NUMBER
194 , p6_a2 out nocopy VARCHAR2
195 , p6_a3 out nocopy NUMBER
196 , p6_a4 out nocopy VARCHAR2
197 , p6_a5 out nocopy VARCHAR2
198 , p6_a6 out nocopy VARCHAR2
199 , p6_a7 out nocopy VARCHAR2
200 , p6_a8 out nocopy VARCHAR2
201 , p6_a9 out nocopy VARCHAR2
202 , p6_a10 out nocopy VARCHAR2
203 , p6_a11 out nocopy NUMBER
204 , p6_a12 out nocopy VARCHAR2
205 , p6_a13 out nocopy VARCHAR2
206 , p6_a14 out nocopy NUMBER
207 , p6_a15 out nocopy DATE
208 , p6_a16 out nocopy NUMBER
209 , p6_a17 out nocopy DATE
210 , p6_a18 out nocopy NUMBER
211 , p7_a0 JTF_NUMBER_TABLE
212 , p7_a1 JTF_NUMBER_TABLE
213 , p7_a2 JTF_NUMBER_TABLE
214 , p7_a3 JTF_VARCHAR2_TABLE_100
215 , p7_a4 JTF_VARCHAR2_TABLE_100
216 , p7_a5 JTF_NUMBER_TABLE
217 , p7_a6 JTF_DATE_TABLE
218 , p7_a7 JTF_NUMBER_TABLE
219 , p7_a8 JTF_DATE_TABLE
220 , p7_a9 JTF_NUMBER_TABLE
221 , p8_a0 out nocopy JTF_NUMBER_TABLE
222 , p8_a1 out nocopy JTF_NUMBER_TABLE
223 , p8_a2 out nocopy JTF_NUMBER_TABLE
224 , p8_a3 out nocopy JTF_VARCHAR2_TABLE_100
225 , p8_a4 out nocopy JTF_VARCHAR2_TABLE_100
226 , p8_a5 out nocopy JTF_NUMBER_TABLE
227 , p8_a6 out nocopy JTF_DATE_TABLE
228 , p8_a7 out nocopy JTF_NUMBER_TABLE
229 , p8_a8 out nocopy JTF_DATE_TABLE
230 , p8_a9 out nocopy JTF_NUMBER_TABLE
231 )
232
233 as
234 ddp_eccv_rec okl_ecc_def_pvt.okl_eccv_rec;
235 ddx_eccv_rec okl_ecc_def_pvt.okl_eccv_rec;
236 ddp_eco_tbl okl_ecc_def_pvt.okl_eco_tbl;
237 ddx_eco_tbl okl_ecc_def_pvt.okl_eco_tbl;
238 ddindx binary_integer; indx binary_integer;
239 begin
240
241 -- copy data to the local IN or IN-OUT args, if any
242
243
244
245
246
247 ddp_eccv_rec.crit_cat_def_id := p5_a0;
248 ddp_eccv_rec.object_version_number := p5_a1;
249 ddp_eccv_rec.ecc_ac_flag := p5_a2;
250 ddp_eccv_rec.orig_crit_cat_def_id := p5_a3;
251 ddp_eccv_rec.crit_cat_name := p5_a4;
252 ddp_eccv_rec.crit_cat_desc := p5_a5;
253 ddp_eccv_rec.sfwt_flag := p5_a6;
254 ddp_eccv_rec.value_type_code := p5_a7;
255 ddp_eccv_rec.data_type_code := p5_a8;
256 ddp_eccv_rec.enabled_yn := p5_a9;
257 ddp_eccv_rec.seeded_yn := p5_a10;
258 ddp_eccv_rec.function_id := p5_a11;
259 ddp_eccv_rec.source_yn := p5_a12;
260 ddp_eccv_rec.sql_statement := p5_a13;
261 ddp_eccv_rec.created_by := p5_a14;
262 ddp_eccv_rec.creation_date := p5_a15;
263 ddp_eccv_rec.last_updated_by := p5_a16;
264 ddp_eccv_rec.last_update_date := p5_a17;
265 ddp_eccv_rec.last_update_login := p5_a18;
266
267
268 okl_eco_pvt_w.rosetta_table_copy_in_p1(ddp_eco_tbl, p7_a0
269 , p7_a1
270 , p7_a2
271 , p7_a3
272 , p7_a4
273 , p7_a5
274 , p7_a6
275 , p7_a7
276 , p7_a8
277 , p7_a9
278 );
279
280
281 -- here's the delegated call to the old PL/SQL routine
282 okl_ecc_def_pvt.update_ecc(p_api_version,
283 p_init_msg_list,
284 x_return_status,
285 x_msg_count,
286 x_msg_data,
287 ddp_eccv_rec,
288 ddx_eccv_rec,
289 ddp_eco_tbl,
290 ddx_eco_tbl);
291
292 -- copy data back from the local variables to OUT or IN-OUT args, if any
293
294
295
296
297
298
299 p6_a0 := ddx_eccv_rec.crit_cat_def_id;
300 p6_a1 := ddx_eccv_rec.object_version_number;
301 p6_a2 := ddx_eccv_rec.ecc_ac_flag;
302 p6_a3 := ddx_eccv_rec.orig_crit_cat_def_id;
303 p6_a4 := ddx_eccv_rec.crit_cat_name;
304 p6_a5 := ddx_eccv_rec.crit_cat_desc;
305 p6_a6 := ddx_eccv_rec.sfwt_flag;
306 p6_a7 := ddx_eccv_rec.value_type_code;
307 p6_a8 := ddx_eccv_rec.data_type_code;
308 p6_a9 := ddx_eccv_rec.enabled_yn;
309 p6_a10 := ddx_eccv_rec.seeded_yn;
310 p6_a11 := ddx_eccv_rec.function_id;
311 p6_a12 := ddx_eccv_rec.source_yn;
312 p6_a13 := ddx_eccv_rec.sql_statement;
313 p6_a14 := ddx_eccv_rec.created_by;
314 p6_a15 := ddx_eccv_rec.creation_date;
315 p6_a16 := ddx_eccv_rec.last_updated_by;
316 p6_a17 := ddx_eccv_rec.last_update_date;
317 p6_a18 := ddx_eccv_rec.last_update_login;
318
319
320 okl_eco_pvt_w.rosetta_table_copy_out_p1(ddx_eco_tbl, p8_a0
321 , p8_a1
322 , p8_a2
323 , p8_a3
324 , p8_a4
325 , p8_a5
326 , p8_a6
327 , p8_a7
328 , p8_a8
329 , p8_a9
330 );
331 end;
332
333 end okl_ecc_def_pvt_w;