[Home] [Help]
PACKAGE BODY: APPS.CN_SCA_CRRULEATTR_PVT_W
Source
1 package body cn_sca_crruleattr_pvt_w as
2 /* $Header: cnwscrrb.pls 120.2 2005/09/14 03:43 vensrini noship $ */
3 procedure rosetta_table_copy_in_p1(t out nocopy cn_sca_crruleattr_pvt.credit_rule_attr_tbl_type, a0 JTF_NUMBER_TABLE
4 , a1 JTF_VARCHAR2_TABLE_100
5 , a2 JTF_VARCHAR2_TABLE_100
6 , a3 JTF_VARCHAR2_TABLE_100
7 , a4 JTF_NUMBER_TABLE
8 , a5 JTF_VARCHAR2_TABLE_100
9 , a6 JTF_VARCHAR2_TABLE_100
10 , a7 JTF_VARCHAR2_TABLE_100
11 , a8 JTF_VARCHAR2_TABLE_100
12 , a9 JTF_VARCHAR2_TABLE_300
13 , a10 JTF_VARCHAR2_TABLE_300
14 , a11 JTF_VARCHAR2_TABLE_300
15 , a12 JTF_VARCHAR2_TABLE_300
16 , a13 JTF_VARCHAR2_TABLE_300
17 , a14 JTF_VARCHAR2_TABLE_300
18 , a15 JTF_VARCHAR2_TABLE_300
19 , a16 JTF_VARCHAR2_TABLE_300
20 , a17 JTF_VARCHAR2_TABLE_300
21 , a18 JTF_VARCHAR2_TABLE_300
22 , a19 JTF_VARCHAR2_TABLE_300
23 , a20 JTF_VARCHAR2_TABLE_300
24 , a21 JTF_VARCHAR2_TABLE_300
25 , a22 JTF_VARCHAR2_TABLE_300
26 , a23 JTF_VARCHAR2_TABLE_300
27 , a24 JTF_NUMBER_TABLE
28 ) as
29 ddindx binary_integer; indx binary_integer;
30 begin
31 if a0 is not null and a0.count > 0 then
32 if a0.count > 0 then
33 indx := a0.first;
34 ddindx := 1;
35 while true loop
36 t(ddindx).sca_rule_attribute_id := a0(indx);
37 t(ddindx).transaction_source := a1(indx);
38 t(ddindx).destination_column := a2(indx);
39 t(ddindx).user_name := a3(indx);
40 t(ddindx).value_set_id := a4(indx);
41 t(ddindx).data_type := a5(indx);
42 t(ddindx).source_column := a6(indx);
43 t(ddindx).enable_flag := a7(indx);
44 t(ddindx).attribute_category := a8(indx);
45 t(ddindx).attribute1 := a9(indx);
46 t(ddindx).attribute2 := a10(indx);
47 t(ddindx).attribute3 := a11(indx);
48 t(ddindx).attribute4 := a12(indx);
49 t(ddindx).attribute5 := a13(indx);
50 t(ddindx).attribute6 := a14(indx);
51 t(ddindx).attribute7 := a15(indx);
52 t(ddindx).attribute8 := a16(indx);
53 t(ddindx).attribute9 := a17(indx);
54 t(ddindx).attribute10 := a18(indx);
55 t(ddindx).attribute11 := a19(indx);
56 t(ddindx).attribute12 := a20(indx);
57 t(ddindx).attribute13 := a21(indx);
58 t(ddindx).attribute14 := a22(indx);
59 t(ddindx).attribute15 := a23(indx);
60 t(ddindx).object_version_number := a24(indx);
61 ddindx := ddindx+1;
62 if a0.last =indx
63 then exit;
64 end if;
65 indx := a0.next(indx);
66 end loop;
67 end if;
68 end if;
69 end rosetta_table_copy_in_p1;
70 procedure rosetta_table_copy_out_p1(t cn_sca_crruleattr_pvt.credit_rule_attr_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
71 , a1 out nocopy JTF_VARCHAR2_TABLE_100
72 , a2 out nocopy JTF_VARCHAR2_TABLE_100
73 , a3 out nocopy JTF_VARCHAR2_TABLE_100
74 , a4 out nocopy JTF_NUMBER_TABLE
75 , a5 out nocopy JTF_VARCHAR2_TABLE_100
76 , a6 out nocopy JTF_VARCHAR2_TABLE_100
77 , a7 out nocopy JTF_VARCHAR2_TABLE_100
78 , a8 out nocopy JTF_VARCHAR2_TABLE_100
79 , a9 out nocopy JTF_VARCHAR2_TABLE_300
80 , a10 out nocopy JTF_VARCHAR2_TABLE_300
81 , a11 out nocopy JTF_VARCHAR2_TABLE_300
82 , a12 out nocopy JTF_VARCHAR2_TABLE_300
83 , a13 out nocopy JTF_VARCHAR2_TABLE_300
84 , a14 out nocopy JTF_VARCHAR2_TABLE_300
85 , a15 out nocopy JTF_VARCHAR2_TABLE_300
86 , a16 out nocopy JTF_VARCHAR2_TABLE_300
87 , a17 out nocopy JTF_VARCHAR2_TABLE_300
88 , a18 out nocopy JTF_VARCHAR2_TABLE_300
89 , a19 out nocopy JTF_VARCHAR2_TABLE_300
90 , a20 out nocopy JTF_VARCHAR2_TABLE_300
91 , a21 out nocopy JTF_VARCHAR2_TABLE_300
92 , a22 out nocopy JTF_VARCHAR2_TABLE_300
93 , a23 out nocopy JTF_VARCHAR2_TABLE_300
94 , a24 out nocopy JTF_NUMBER_TABLE
95 ) as
96 ddindx binary_integer; indx binary_integer;
97 begin
98 if t is null or t.count = 0 then
99 a0 := JTF_NUMBER_TABLE();
100 a1 := JTF_VARCHAR2_TABLE_100();
101 a2 := JTF_VARCHAR2_TABLE_100();
102 a3 := JTF_VARCHAR2_TABLE_100();
103 a4 := JTF_NUMBER_TABLE();
104 a5 := JTF_VARCHAR2_TABLE_100();
105 a6 := JTF_VARCHAR2_TABLE_100();
106 a7 := JTF_VARCHAR2_TABLE_100();
107 a8 := JTF_VARCHAR2_TABLE_100();
108 a9 := JTF_VARCHAR2_TABLE_300();
109 a10 := JTF_VARCHAR2_TABLE_300();
110 a11 := JTF_VARCHAR2_TABLE_300();
111 a12 := JTF_VARCHAR2_TABLE_300();
112 a13 := JTF_VARCHAR2_TABLE_300();
113 a14 := JTF_VARCHAR2_TABLE_300();
114 a15 := JTF_VARCHAR2_TABLE_300();
115 a16 := JTF_VARCHAR2_TABLE_300();
116 a17 := JTF_VARCHAR2_TABLE_300();
117 a18 := JTF_VARCHAR2_TABLE_300();
118 a19 := JTF_VARCHAR2_TABLE_300();
119 a20 := JTF_VARCHAR2_TABLE_300();
120 a21 := JTF_VARCHAR2_TABLE_300();
121 a22 := JTF_VARCHAR2_TABLE_300();
122 a23 := JTF_VARCHAR2_TABLE_300();
123 a24 := JTF_NUMBER_TABLE();
124 else
125 a0 := JTF_NUMBER_TABLE();
126 a1 := JTF_VARCHAR2_TABLE_100();
127 a2 := JTF_VARCHAR2_TABLE_100();
128 a3 := JTF_VARCHAR2_TABLE_100();
129 a4 := JTF_NUMBER_TABLE();
130 a5 := JTF_VARCHAR2_TABLE_100();
131 a6 := JTF_VARCHAR2_TABLE_100();
132 a7 := JTF_VARCHAR2_TABLE_100();
133 a8 := JTF_VARCHAR2_TABLE_100();
134 a9 := JTF_VARCHAR2_TABLE_300();
135 a10 := JTF_VARCHAR2_TABLE_300();
136 a11 := JTF_VARCHAR2_TABLE_300();
137 a12 := JTF_VARCHAR2_TABLE_300();
138 a13 := JTF_VARCHAR2_TABLE_300();
139 a14 := JTF_VARCHAR2_TABLE_300();
140 a15 := JTF_VARCHAR2_TABLE_300();
141 a16 := JTF_VARCHAR2_TABLE_300();
142 a17 := JTF_VARCHAR2_TABLE_300();
143 a18 := JTF_VARCHAR2_TABLE_300();
144 a19 := JTF_VARCHAR2_TABLE_300();
145 a20 := JTF_VARCHAR2_TABLE_300();
146 a21 := JTF_VARCHAR2_TABLE_300();
147 a22 := JTF_VARCHAR2_TABLE_300();
148 a23 := JTF_VARCHAR2_TABLE_300();
149 a24 := JTF_NUMBER_TABLE();
150 if t.count > 0 then
151 a0.extend(t.count);
152 a1.extend(t.count);
153 a2.extend(t.count);
154 a3.extend(t.count);
155 a4.extend(t.count);
156 a5.extend(t.count);
157 a6.extend(t.count);
158 a7.extend(t.count);
159 a8.extend(t.count);
160 a9.extend(t.count);
161 a10.extend(t.count);
162 a11.extend(t.count);
163 a12.extend(t.count);
164 a13.extend(t.count);
165 a14.extend(t.count);
166 a15.extend(t.count);
167 a16.extend(t.count);
168 a17.extend(t.count);
169 a18.extend(t.count);
170 a19.extend(t.count);
171 a20.extend(t.count);
172 a21.extend(t.count);
173 a22.extend(t.count);
174 a23.extend(t.count);
175 a24.extend(t.count);
176 ddindx := t.first;
177 indx := 1;
178 while true loop
179 a0(indx) := t(ddindx).sca_rule_attribute_id;
180 a1(indx) := t(ddindx).transaction_source;
181 a2(indx) := t(ddindx).destination_column;
182 a3(indx) := t(ddindx).user_name;
183 a4(indx) := t(ddindx).value_set_id;
184 a5(indx) := t(ddindx).data_type;
185 a6(indx) := t(ddindx).source_column;
186 a7(indx) := t(ddindx).enable_flag;
187 a8(indx) := t(ddindx).attribute_category;
188 a9(indx) := t(ddindx).attribute1;
189 a10(indx) := t(ddindx).attribute2;
190 a11(indx) := t(ddindx).attribute3;
191 a12(indx) := t(ddindx).attribute4;
192 a13(indx) := t(ddindx).attribute5;
193 a14(indx) := t(ddindx).attribute6;
194 a15(indx) := t(ddindx).attribute7;
195 a16(indx) := t(ddindx).attribute8;
196 a17(indx) := t(ddindx).attribute9;
197 a18(indx) := t(ddindx).attribute10;
198 a19(indx) := t(ddindx).attribute11;
199 a20(indx) := t(ddindx).attribute12;
200 a21(indx) := t(ddindx).attribute13;
201 a22(indx) := t(ddindx).attribute14;
202 a23(indx) := t(ddindx).attribute15;
203 a24(indx) := t(ddindx).object_version_number;
204 indx := indx+1;
205 if t.last =ddindx
206 then exit;
207 end if;
208 ddindx := t.next(ddindx);
209 end loop;
210 end if;
211 end if;
212 end rosetta_table_copy_out_p1;
213
214 procedure create_credit_ruleattr(p_api_version NUMBER
215 , p_init_msg_list VARCHAR2
216 , p_commit VARCHAR2
217 , p_valdiation_level VARCHAR2
218 , p_org_id NUMBER
219 , p5_a0 NUMBER
220 , p5_a1 VARCHAR2
221 , p5_a2 VARCHAR2
222 , p5_a3 VARCHAR2
223 , p5_a4 NUMBER
224 , p5_a5 VARCHAR2
225 , p5_a6 VARCHAR2
226 , p5_a7 VARCHAR2
227 , p5_a8 VARCHAR2
228 , p5_a9 VARCHAR2
229 , p5_a10 VARCHAR2
230 , p5_a11 VARCHAR2
231 , p5_a12 VARCHAR2
232 , p5_a13 VARCHAR2
233 , p5_a14 VARCHAR2
234 , p5_a15 VARCHAR2
235 , p5_a16 VARCHAR2
236 , p5_a17 VARCHAR2
237 , p5_a18 VARCHAR2
238 , p5_a19 VARCHAR2
239 , p5_a20 VARCHAR2
240 , p5_a21 VARCHAR2
241 , p5_a22 VARCHAR2
242 , p5_a23 VARCHAR2
243 , p5_a24 NUMBER
244 , x_return_status out nocopy VARCHAR2
245 , x_msg_count out nocopy NUMBER
246 , x_msg_data out nocopy VARCHAR2
247 )
248
249 as
250 ddp_credit_rule_attr_rec cn_sca_crruleattr_pvt.credit_rule_attr_rec;
251 ddindx binary_integer; indx binary_integer;
252 begin
253
254 -- copy data to the local IN or IN-OUT args, if any
255
256
257
258
259
260 ddp_credit_rule_attr_rec.sca_rule_attribute_id := p5_a0;
261 ddp_credit_rule_attr_rec.transaction_source := p5_a1;
262 ddp_credit_rule_attr_rec.destination_column := p5_a2;
263 ddp_credit_rule_attr_rec.user_name := p5_a3;
264 ddp_credit_rule_attr_rec.value_set_id := p5_a4;
265 ddp_credit_rule_attr_rec.data_type := p5_a5;
266 ddp_credit_rule_attr_rec.source_column := p5_a6;
267 ddp_credit_rule_attr_rec.enable_flag := p5_a7;
268 ddp_credit_rule_attr_rec.attribute_category := p5_a8;
269 ddp_credit_rule_attr_rec.attribute1 := p5_a9;
270 ddp_credit_rule_attr_rec.attribute2 := p5_a10;
271 ddp_credit_rule_attr_rec.attribute3 := p5_a11;
272 ddp_credit_rule_attr_rec.attribute4 := p5_a12;
273 ddp_credit_rule_attr_rec.attribute5 := p5_a13;
274 ddp_credit_rule_attr_rec.attribute6 := p5_a14;
275 ddp_credit_rule_attr_rec.attribute7 := p5_a15;
276 ddp_credit_rule_attr_rec.attribute8 := p5_a16;
277 ddp_credit_rule_attr_rec.attribute9 := p5_a17;
278 ddp_credit_rule_attr_rec.attribute10 := p5_a18;
279 ddp_credit_rule_attr_rec.attribute11 := p5_a19;
280 ddp_credit_rule_attr_rec.attribute12 := p5_a20;
281 ddp_credit_rule_attr_rec.attribute13 := p5_a21;
282 ddp_credit_rule_attr_rec.attribute14 := p5_a22;
283 ddp_credit_rule_attr_rec.attribute15 := p5_a23;
284 ddp_credit_rule_attr_rec.object_version_number := p5_a24;
285
286
287
288
289 -- here's the delegated call to the old PL/SQL routine
290 cn_sca_crruleattr_pvt.create_credit_ruleattr(p_api_version,
291 p_init_msg_list,
292 p_commit,
293 p_valdiation_level,
294 p_org_id,
295 ddp_credit_rule_attr_rec,
296 x_return_status,
297 x_msg_count,
298 x_msg_data);
299
300 -- copy data back from the local variables to OUT or IN-OUT args, if any
301
302
303
304
305
306
307
308
309 end;
310
311 procedure update_credit_ruleattr(p_api_version NUMBER
312 , p_init_msg_list VARCHAR2
313 , p_commit VARCHAR2
314 , p_valdiation_level VARCHAR2
315 , p_org_id NUMBER
316 , p5_a0 NUMBER
317 , p5_a1 VARCHAR2
318 , p5_a2 VARCHAR2
319 , p5_a3 VARCHAR2
320 , p5_a4 NUMBER
321 , p5_a5 VARCHAR2
322 , p5_a6 VARCHAR2
323 , p5_a7 VARCHAR2
324 , p5_a8 VARCHAR2
325 , p5_a9 VARCHAR2
326 , p5_a10 VARCHAR2
327 , p5_a11 VARCHAR2
328 , p5_a12 VARCHAR2
329 , p5_a13 VARCHAR2
330 , p5_a14 VARCHAR2
331 , p5_a15 VARCHAR2
332 , p5_a16 VARCHAR2
333 , p5_a17 VARCHAR2
334 , p5_a18 VARCHAR2
335 , p5_a19 VARCHAR2
336 , p5_a20 VARCHAR2
337 , p5_a21 VARCHAR2
338 , p5_a22 VARCHAR2
339 , p5_a23 VARCHAR2
340 , p5_a24 NUMBER
341 , x_return_status out nocopy VARCHAR2
342 , x_msg_count out nocopy NUMBER
343 , x_msg_data out nocopy VARCHAR2
344 )
345
346 as
347 ddp_credit_rule_attr_rec cn_sca_crruleattr_pvt.credit_rule_attr_rec;
348 ddindx binary_integer; indx binary_integer;
349 begin
350
351 -- copy data to the local IN or IN-OUT args, if any
352
353
354
355
356
357 ddp_credit_rule_attr_rec.sca_rule_attribute_id := p5_a0;
358 ddp_credit_rule_attr_rec.transaction_source := p5_a1;
359 ddp_credit_rule_attr_rec.destination_column := p5_a2;
360 ddp_credit_rule_attr_rec.user_name := p5_a3;
361 ddp_credit_rule_attr_rec.value_set_id := p5_a4;
362 ddp_credit_rule_attr_rec.data_type := p5_a5;
363 ddp_credit_rule_attr_rec.source_column := p5_a6;
364 ddp_credit_rule_attr_rec.enable_flag := p5_a7;
365 ddp_credit_rule_attr_rec.attribute_category := p5_a8;
366 ddp_credit_rule_attr_rec.attribute1 := p5_a9;
367 ddp_credit_rule_attr_rec.attribute2 := p5_a10;
368 ddp_credit_rule_attr_rec.attribute3 := p5_a11;
369 ddp_credit_rule_attr_rec.attribute4 := p5_a12;
370 ddp_credit_rule_attr_rec.attribute5 := p5_a13;
371 ddp_credit_rule_attr_rec.attribute6 := p5_a14;
372 ddp_credit_rule_attr_rec.attribute7 := p5_a15;
373 ddp_credit_rule_attr_rec.attribute8 := p5_a16;
374 ddp_credit_rule_attr_rec.attribute9 := p5_a17;
375 ddp_credit_rule_attr_rec.attribute10 := p5_a18;
376 ddp_credit_rule_attr_rec.attribute11 := p5_a19;
377 ddp_credit_rule_attr_rec.attribute12 := p5_a20;
378 ddp_credit_rule_attr_rec.attribute13 := p5_a21;
379 ddp_credit_rule_attr_rec.attribute14 := p5_a22;
380 ddp_credit_rule_attr_rec.attribute15 := p5_a23;
381 ddp_credit_rule_attr_rec.object_version_number := p5_a24;
382
383
384
385
386 -- here's the delegated call to the old PL/SQL routine
387 cn_sca_crruleattr_pvt.update_credit_ruleattr(p_api_version,
388 p_init_msg_list,
389 p_commit,
390 p_valdiation_level,
391 p_org_id,
392 ddp_credit_rule_attr_rec,
393 x_return_status,
394 x_msg_count,
395 x_msg_data);
396
397 -- copy data back from the local variables to OUT or IN-OUT args, if any
398
399
400
401
402
403
404
405
406 end;
407
408 end cn_sca_crruleattr_pvt_w;