[Home] [Help]
PACKAGE BODY: APPS.PV_BATCH_CHG_PRTNR_PVT_W
Source
1 package body pv_batch_chg_prtnr_pvt_w as
2 /* $Header: pvxwchpb.pls 120.1 2005/09/05 23:06 appldev ship $ */
3 procedure rosetta_table_copy_in_p2(t out nocopy pv_batch_chg_prtnr_pvt.batch_chg_prtnrs_tbl_type, a0 JTF_NUMBER_TABLE
4 , a1 JTF_NUMBER_TABLE
5 , a2 JTF_DATE_TABLE
6 , a3 JTF_NUMBER_TABLE
7 , a4 JTF_DATE_TABLE
8 , a5 JTF_NUMBER_TABLE
9 , a6 JTF_NUMBER_TABLE
10 , a7 JTF_NUMBER_TABLE
11 , a8 JTF_NUMBER_TABLE
12 , a9 JTF_NUMBER_TABLE
13 , a10 JTF_NUMBER_TABLE
14 , a11 JTF_DATE_TABLE
15 , a12 JTF_VARCHAR2_TABLE_100
16 ) as
17 ddindx binary_integer; indx binary_integer;
18 begin
19 if a0 is not null and a0.count > 0 then
20 if a0.count > 0 then
21 indx := a0.first;
22 ddindx := 1;
23 while true loop
24 t(ddindx).partner_id := a0(indx);
25 t(ddindx).vad_partner_id := a1(indx);
26 t(ddindx).last_update_date := a2(indx);
27 t(ddindx).last_update_by := a3(indx);
28 t(ddindx).creation_date := a4(indx);
29 t(ddindx).created_by := a5(indx);
30 t(ddindx).last_update_login := a6(indx);
31 t(ddindx).object_version_number := a7(indx);
32 t(ddindx).request_id := a8(indx);
33 t(ddindx).program_application_id := a9(indx);
34 t(ddindx).program_id := a10(indx);
35 t(ddindx).program_update_date := a11(indx);
36 t(ddindx).processed_flag := a12(indx);
37 ddindx := ddindx+1;
38 if a0.last =indx
39 then exit;
40 end if;
41 indx := a0.next(indx);
42 end loop;
43 end if;
44 end if;
45 end rosetta_table_copy_in_p2;
46 procedure rosetta_table_copy_out_p2(t pv_batch_chg_prtnr_pvt.batch_chg_prtnrs_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
47 , a1 out nocopy JTF_NUMBER_TABLE
48 , a2 out nocopy JTF_DATE_TABLE
49 , a3 out nocopy JTF_NUMBER_TABLE
50 , a4 out nocopy JTF_DATE_TABLE
51 , a5 out nocopy JTF_NUMBER_TABLE
52 , a6 out nocopy JTF_NUMBER_TABLE
53 , a7 out nocopy JTF_NUMBER_TABLE
54 , a8 out nocopy JTF_NUMBER_TABLE
55 , a9 out nocopy JTF_NUMBER_TABLE
56 , a10 out nocopy JTF_NUMBER_TABLE
57 , a11 out nocopy JTF_DATE_TABLE
58 , a12 out nocopy JTF_VARCHAR2_TABLE_100
59 ) as
60 ddindx binary_integer; indx binary_integer;
61 begin
62 if t is null or t.count = 0 then
63 a0 := JTF_NUMBER_TABLE();
64 a1 := JTF_NUMBER_TABLE();
65 a2 := JTF_DATE_TABLE();
66 a3 := JTF_NUMBER_TABLE();
67 a4 := JTF_DATE_TABLE();
68 a5 := JTF_NUMBER_TABLE();
69 a6 := JTF_NUMBER_TABLE();
70 a7 := JTF_NUMBER_TABLE();
71 a8 := JTF_NUMBER_TABLE();
72 a9 := JTF_NUMBER_TABLE();
73 a10 := JTF_NUMBER_TABLE();
74 a11 := JTF_DATE_TABLE();
75 a12 := JTF_VARCHAR2_TABLE_100();
76 else
77 a0 := JTF_NUMBER_TABLE();
78 a1 := JTF_NUMBER_TABLE();
79 a2 := JTF_DATE_TABLE();
80 a3 := JTF_NUMBER_TABLE();
81 a4 := JTF_DATE_TABLE();
82 a5 := JTF_NUMBER_TABLE();
83 a6 := JTF_NUMBER_TABLE();
84 a7 := JTF_NUMBER_TABLE();
85 a8 := JTF_NUMBER_TABLE();
86 a9 := JTF_NUMBER_TABLE();
87 a10 := JTF_NUMBER_TABLE();
88 a11 := JTF_DATE_TABLE();
89 a12 := JTF_VARCHAR2_TABLE_100();
90 if t.count > 0 then
91 a0.extend(t.count);
92 a1.extend(t.count);
93 a2.extend(t.count);
94 a3.extend(t.count);
95 a4.extend(t.count);
96 a5.extend(t.count);
97 a6.extend(t.count);
98 a7.extend(t.count);
99 a8.extend(t.count);
100 a9.extend(t.count);
101 a10.extend(t.count);
102 a11.extend(t.count);
103 a12.extend(t.count);
104 ddindx := t.first;
105 indx := 1;
106 while true loop
107 a0(indx) := t(ddindx).partner_id;
108 a1(indx) := t(ddindx).vad_partner_id;
109 a2(indx) := t(ddindx).last_update_date;
110 a3(indx) := t(ddindx).last_update_by;
111 a4(indx) := t(ddindx).creation_date;
112 a5(indx) := t(ddindx).created_by;
113 a6(indx) := t(ddindx).last_update_login;
114 a7(indx) := t(ddindx).object_version_number;
115 a8(indx) := t(ddindx).request_id;
116 a9(indx) := t(ddindx).program_application_id;
117 a10(indx) := t(ddindx).program_id;
118 a11(indx) := t(ddindx).program_update_date;
119 a12(indx) := t(ddindx).processed_flag;
120 indx := indx+1;
121 if t.last =ddindx
122 then exit;
123 end if;
124 ddindx := t.next(ddindx);
125 end loop;
126 end if;
127 end if;
128 end rosetta_table_copy_out_p2;
129
130 procedure create_batch_chg_partners(p_api_version_number NUMBER
131 , p_init_msg_list VARCHAR2
132 , p_commit VARCHAR2
133 , p_validation_level NUMBER
134 , x_return_status out nocopy VARCHAR2
135 , x_msg_count out nocopy NUMBER
136 , x_msg_data out nocopy VARCHAR2
137 , p7_a0 NUMBER
138 , p7_a1 NUMBER
139 , p7_a2 DATE
140 , p7_a3 NUMBER
141 , p7_a4 DATE
142 , p7_a5 NUMBER
143 , p7_a6 NUMBER
144 , p7_a7 NUMBER
145 , p7_a8 NUMBER
146 , p7_a9 NUMBER
147 , p7_a10 NUMBER
148 , p7_a11 DATE
149 , p7_a12 VARCHAR2
150 , x_partner_id out nocopy NUMBER
151 )
152
153 as
154 ddp_batch_chg_prtnrs_rec pv_batch_chg_prtnr_pvt.batch_chg_prtnrs_rec_type;
155 ddindx binary_integer; indx binary_integer;
156 begin
157
158 -- copy data to the local IN or IN-OUT args, if any
159
160
161
162
163
164
165
166 ddp_batch_chg_prtnrs_rec.partner_id := p7_a0;
167 ddp_batch_chg_prtnrs_rec.vad_partner_id := p7_a1;
168 ddp_batch_chg_prtnrs_rec.last_update_date := p7_a2;
169 ddp_batch_chg_prtnrs_rec.last_update_by := p7_a3;
170 ddp_batch_chg_prtnrs_rec.creation_date := p7_a4;
171 ddp_batch_chg_prtnrs_rec.created_by := p7_a5;
172 ddp_batch_chg_prtnrs_rec.last_update_login := p7_a6;
173 ddp_batch_chg_prtnrs_rec.object_version_number := p7_a7;
174 ddp_batch_chg_prtnrs_rec.request_id := p7_a8;
175 ddp_batch_chg_prtnrs_rec.program_application_id := p7_a9;
176 ddp_batch_chg_prtnrs_rec.program_id := p7_a10;
177 ddp_batch_chg_prtnrs_rec.program_update_date := p7_a11;
178 ddp_batch_chg_prtnrs_rec.processed_flag := p7_a12;
179
180
181 -- here's the delegated call to the old PL/SQL routine
182 pv_batch_chg_prtnr_pvt.create_batch_chg_partners(p_api_version_number,
183 p_init_msg_list,
184 p_commit,
185 p_validation_level,
186 x_return_status,
187 x_msg_count,
188 x_msg_data,
189 ddp_batch_chg_prtnrs_rec,
190 x_partner_id);
191
192 -- copy data back from the local variables to OUT or IN-OUT args, if any
193
194
195
196
197
198
199
200
201 end;
202
203 procedure update_batch_chg_partners(p_api_version_number NUMBER
204 , p_init_msg_list VARCHAR2
205 , p_commit VARCHAR2
206 , p_validation_level NUMBER
207 , x_return_status out nocopy VARCHAR2
208 , x_msg_count out nocopy NUMBER
209 , x_msg_data out nocopy VARCHAR2
210 , p7_a0 NUMBER
211 , p7_a1 NUMBER
212 , p7_a2 DATE
213 , p7_a3 NUMBER
214 , p7_a4 DATE
215 , p7_a5 NUMBER
216 , p7_a6 NUMBER
217 , p7_a7 NUMBER
218 , p7_a8 NUMBER
219 , p7_a9 NUMBER
220 , p7_a10 NUMBER
221 , p7_a11 DATE
222 , p7_a12 VARCHAR2
223 )
224
225 as
226 ddp_batch_chg_prtnrs_rec pv_batch_chg_prtnr_pvt.batch_chg_prtnrs_rec_type;
227 ddindx binary_integer; indx binary_integer;
228 begin
229
230 -- copy data to the local IN or IN-OUT args, if any
231
232
233
234
235
236
237
238 ddp_batch_chg_prtnrs_rec.partner_id := p7_a0;
239 ddp_batch_chg_prtnrs_rec.vad_partner_id := p7_a1;
240 ddp_batch_chg_prtnrs_rec.last_update_date := p7_a2;
241 ddp_batch_chg_prtnrs_rec.last_update_by := p7_a3;
242 ddp_batch_chg_prtnrs_rec.creation_date := p7_a4;
243 ddp_batch_chg_prtnrs_rec.created_by := p7_a5;
244 ddp_batch_chg_prtnrs_rec.last_update_login := p7_a6;
245 ddp_batch_chg_prtnrs_rec.object_version_number := p7_a7;
246 ddp_batch_chg_prtnrs_rec.request_id := p7_a8;
247 ddp_batch_chg_prtnrs_rec.program_application_id := p7_a9;
248 ddp_batch_chg_prtnrs_rec.program_id := p7_a10;
249 ddp_batch_chg_prtnrs_rec.program_update_date := p7_a11;
250 ddp_batch_chg_prtnrs_rec.processed_flag := p7_a12;
251
252 -- here's the delegated call to the old PL/SQL routine
253 pv_batch_chg_prtnr_pvt.update_batch_chg_partners(p_api_version_number,
254 p_init_msg_list,
255 p_commit,
256 p_validation_level,
257 x_return_status,
258 x_msg_count,
259 x_msg_data,
260 ddp_batch_chg_prtnrs_rec);
261
262 -- copy data back from the local variables to OUT or IN-OUT args, if any
263
264
265
266
267
268
269
270 end;
271
272 procedure validate_batch_chg_partners(p_api_version_number NUMBER
273 , p_init_msg_list VARCHAR2
274 , p_validation_level NUMBER
275 , p3_a0 NUMBER
276 , p3_a1 NUMBER
277 , p3_a2 DATE
278 , p3_a3 NUMBER
279 , p3_a4 DATE
280 , p3_a5 NUMBER
281 , p3_a6 NUMBER
282 , p3_a7 NUMBER
283 , p3_a8 NUMBER
284 , p3_a9 NUMBER
285 , p3_a10 NUMBER
286 , p3_a11 DATE
287 , p3_a12 VARCHAR2
288 , p_validation_mode VARCHAR2
289 , x_return_status out nocopy VARCHAR2
290 , x_msg_count out nocopy NUMBER
291 , x_msg_data out nocopy VARCHAR2
292 )
293
294 as
295 ddp_batch_chg_prtnrs_rec pv_batch_chg_prtnr_pvt.batch_chg_prtnrs_rec_type;
296 ddindx binary_integer; indx binary_integer;
297 begin
298
299 -- copy data to the local IN or IN-OUT args, if any
300
301
302
303 ddp_batch_chg_prtnrs_rec.partner_id := p3_a0;
304 ddp_batch_chg_prtnrs_rec.vad_partner_id := p3_a1;
305 ddp_batch_chg_prtnrs_rec.last_update_date := p3_a2;
306 ddp_batch_chg_prtnrs_rec.last_update_by := p3_a3;
307 ddp_batch_chg_prtnrs_rec.creation_date := p3_a4;
308 ddp_batch_chg_prtnrs_rec.created_by := p3_a5;
309 ddp_batch_chg_prtnrs_rec.last_update_login := p3_a6;
310 ddp_batch_chg_prtnrs_rec.object_version_number := p3_a7;
311 ddp_batch_chg_prtnrs_rec.request_id := p3_a8;
312 ddp_batch_chg_prtnrs_rec.program_application_id := p3_a9;
313 ddp_batch_chg_prtnrs_rec.program_id := p3_a10;
314 ddp_batch_chg_prtnrs_rec.program_update_date := p3_a11;
315 ddp_batch_chg_prtnrs_rec.processed_flag := p3_a12;
316
317
318
319
320
321 -- here's the delegated call to the old PL/SQL routine
322 pv_batch_chg_prtnr_pvt.validate_batch_chg_partners(p_api_version_number,
323 p_init_msg_list,
324 p_validation_level,
325 ddp_batch_chg_prtnrs_rec,
326 p_validation_mode,
327 x_return_status,
328 x_msg_count,
329 x_msg_data);
330
331 -- copy data back from the local variables to OUT or IN-OUT args, if any
332
333
334
335
336
337
338
339 end;
340
341 procedure check_batch_chg_prtnrs_items(p0_a0 NUMBER
342 , p0_a1 NUMBER
343 , p0_a2 DATE
344 , p0_a3 NUMBER
345 , p0_a4 DATE
346 , p0_a5 NUMBER
347 , p0_a6 NUMBER
348 , p0_a7 NUMBER
349 , p0_a8 NUMBER
350 , p0_a9 NUMBER
351 , p0_a10 NUMBER
352 , p0_a11 DATE
353 , p0_a12 VARCHAR2
354 , p_validation_mode VARCHAR2
355 , x_return_status out nocopy VARCHAR2
356 )
357
358 as
359 ddp_batch_chg_prtnrs_rec pv_batch_chg_prtnr_pvt.batch_chg_prtnrs_rec_type;
360 ddindx binary_integer; indx binary_integer;
361 begin
362
363 -- copy data to the local IN or IN-OUT args, if any
364 ddp_batch_chg_prtnrs_rec.partner_id := p0_a0;
365 ddp_batch_chg_prtnrs_rec.vad_partner_id := p0_a1;
366 ddp_batch_chg_prtnrs_rec.last_update_date := p0_a2;
367 ddp_batch_chg_prtnrs_rec.last_update_by := p0_a3;
368 ddp_batch_chg_prtnrs_rec.creation_date := p0_a4;
369 ddp_batch_chg_prtnrs_rec.created_by := p0_a5;
370 ddp_batch_chg_prtnrs_rec.last_update_login := p0_a6;
371 ddp_batch_chg_prtnrs_rec.object_version_number := p0_a7;
372 ddp_batch_chg_prtnrs_rec.request_id := p0_a8;
373 ddp_batch_chg_prtnrs_rec.program_application_id := p0_a9;
374 ddp_batch_chg_prtnrs_rec.program_id := p0_a10;
375 ddp_batch_chg_prtnrs_rec.program_update_date := p0_a11;
376 ddp_batch_chg_prtnrs_rec.processed_flag := p0_a12;
377
378
379
380 -- here's the delegated call to the old PL/SQL routine
381 pv_batch_chg_prtnr_pvt.check_batch_chg_prtnrs_items(ddp_batch_chg_prtnrs_rec,
382 p_validation_mode,
383 x_return_status);
384
385 -- copy data back from the local variables to OUT or IN-OUT args, if any
386
387
388 end;
389
390 procedure validate_batch_chg_prtnrs_rec(p_api_version_number NUMBER
391 , p_init_msg_list VARCHAR2
392 , x_return_status out nocopy VARCHAR2
393 , x_msg_count out nocopy NUMBER
394 , x_msg_data out nocopy VARCHAR2
395 , p5_a0 NUMBER
396 , p5_a1 NUMBER
397 , p5_a2 DATE
398 , p5_a3 NUMBER
399 , p5_a4 DATE
400 , p5_a5 NUMBER
401 , p5_a6 NUMBER
402 , p5_a7 NUMBER
403 , p5_a8 NUMBER
404 , p5_a9 NUMBER
405 , p5_a10 NUMBER
406 , p5_a11 DATE
407 , p5_a12 VARCHAR2
408 )
409
410 as
411 ddp_batch_chg_prtnrs_rec pv_batch_chg_prtnr_pvt.batch_chg_prtnrs_rec_type;
412 ddindx binary_integer; indx binary_integer;
413 begin
414
415 -- copy data to the local IN or IN-OUT args, if any
416
417
418
419
420
421 ddp_batch_chg_prtnrs_rec.partner_id := p5_a0;
422 ddp_batch_chg_prtnrs_rec.vad_partner_id := p5_a1;
423 ddp_batch_chg_prtnrs_rec.last_update_date := p5_a2;
424 ddp_batch_chg_prtnrs_rec.last_update_by := p5_a3;
425 ddp_batch_chg_prtnrs_rec.creation_date := p5_a4;
426 ddp_batch_chg_prtnrs_rec.created_by := p5_a5;
427 ddp_batch_chg_prtnrs_rec.last_update_login := p5_a6;
428 ddp_batch_chg_prtnrs_rec.object_version_number := p5_a7;
429 ddp_batch_chg_prtnrs_rec.request_id := p5_a8;
430 ddp_batch_chg_prtnrs_rec.program_application_id := p5_a9;
431 ddp_batch_chg_prtnrs_rec.program_id := p5_a10;
432 ddp_batch_chg_prtnrs_rec.program_update_date := p5_a11;
433 ddp_batch_chg_prtnrs_rec.processed_flag := p5_a12;
434
435 -- here's the delegated call to the old PL/SQL routine
436 pv_batch_chg_prtnr_pvt.validate_batch_chg_prtnrs_rec(p_api_version_number,
437 p_init_msg_list,
438 x_return_status,
439 x_msg_count,
440 x_msg_data,
441 ddp_batch_chg_prtnrs_rec);
442
443 -- copy data back from the local variables to OUT or IN-OUT args, if any
444
445
446
447
448
449 end;
450
451 end pv_batch_chg_prtnr_pvt_w;