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