[Home] [Help]
PACKAGE BODY: APPS.PV_GE_HL_PARAM_PVT_W
Source
1 package body pv_ge_hl_param_pvt_w as
2 /* $Header: pvxwghpb.pls 120.1 2005/09/06 04:57 appldev ship $ */
3 procedure rosetta_table_copy_in_p2(t out nocopy pv_ge_hl_param_pvt.ge_hl_param_tbl_type, a0 JTF_NUMBER_TABLE
4 , a1 JTF_NUMBER_TABLE
5 , a2 JTF_VARCHAR2_TABLE_100
6 , a3 JTF_NUMBER_TABLE
7 , a4 JTF_VARCHAR2_TABLE_2000
8 , a5 JTF_NUMBER_TABLE
9 , a6 JTF_DATE_TABLE
10 , a7 JTF_NUMBER_TABLE
11 , a8 JTF_DATE_TABLE
12 , a9 JTF_NUMBER_TABLE
13 , a10 JTF_VARCHAR2_TABLE_100
14 , a11 JTF_VARCHAR2_TABLE_100
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).history_log_param_id := a0(indx);
24 t(ddindx).entity_history_log_id := a1(indx);
25 t(ddindx).param_name := a2(indx);
26 t(ddindx).object_version_number := a3(indx);
27 t(ddindx).param_value := a4(indx);
28 t(ddindx).created_by := a5(indx);
29 t(ddindx).creation_date := a6(indx);
30 t(ddindx).last_updated_by := a7(indx);
31 t(ddindx).last_update_date := a8(indx);
32 t(ddindx).last_update_login := a9(indx);
33 t(ddindx).param_type := a10(indx);
34 t(ddindx).lookup_type := 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_ge_hl_param_pvt.ge_hl_param_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
45 , a1 out nocopy JTF_NUMBER_TABLE
46 , a2 out nocopy JTF_VARCHAR2_TABLE_100
47 , a3 out nocopy JTF_NUMBER_TABLE
48 , a4 out nocopy JTF_VARCHAR2_TABLE_2000
49 , a5 out nocopy JTF_NUMBER_TABLE
50 , a6 out nocopy JTF_DATE_TABLE
51 , a7 out nocopy JTF_NUMBER_TABLE
52 , a8 out nocopy JTF_DATE_TABLE
53 , a9 out nocopy JTF_NUMBER_TABLE
54 , a10 out nocopy JTF_VARCHAR2_TABLE_100
55 , a11 out nocopy JTF_VARCHAR2_TABLE_100
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_VARCHAR2_TABLE_100();
63 a3 := JTF_NUMBER_TABLE();
64 a4 := JTF_VARCHAR2_TABLE_2000();
65 a5 := JTF_NUMBER_TABLE();
66 a6 := JTF_DATE_TABLE();
67 a7 := JTF_NUMBER_TABLE();
68 a8 := JTF_DATE_TABLE();
69 a9 := JTF_NUMBER_TABLE();
70 a10 := JTF_VARCHAR2_TABLE_100();
71 a11 := JTF_VARCHAR2_TABLE_100();
72 else
73 a0 := JTF_NUMBER_TABLE();
74 a1 := JTF_NUMBER_TABLE();
75 a2 := JTF_VARCHAR2_TABLE_100();
76 a3 := JTF_NUMBER_TABLE();
77 a4 := JTF_VARCHAR2_TABLE_2000();
78 a5 := JTF_NUMBER_TABLE();
79 a6 := JTF_DATE_TABLE();
80 a7 := JTF_NUMBER_TABLE();
81 a8 := JTF_DATE_TABLE();
82 a9 := JTF_NUMBER_TABLE();
83 a10 := JTF_VARCHAR2_TABLE_100();
84 a11 := JTF_VARCHAR2_TABLE_100();
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).history_log_param_id;
102 a1(indx) := t(ddindx).entity_history_log_id;
103 a2(indx) := t(ddindx).param_name;
104 a3(indx) := t(ddindx).object_version_number;
105 a4(indx) := t(ddindx).param_value;
106 a5(indx) := t(ddindx).created_by;
107 a6(indx) := t(ddindx).creation_date;
108 a7(indx) := t(ddindx).last_updated_by;
109 a8(indx) := t(ddindx).last_update_date;
110 a9(indx) := t(ddindx).last_update_login;
111 a10(indx) := t(ddindx).param_type;
112 a11(indx) := t(ddindx).lookup_type;
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_ge_hl_param(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 VARCHAR2
133 , p7_a3 NUMBER
134 , p7_a4 VARCHAR2
135 , p7_a5 NUMBER
136 , p7_a6 DATE
137 , p7_a7 NUMBER
138 , p7_a8 DATE
139 , p7_a9 NUMBER
140 , p7_a10 VARCHAR2
141 , p7_a11 VARCHAR2
142 , x_history_log_param_id out nocopy NUMBER
143 )
144
145 as
146 ddp_ge_hl_param_rec pv_ge_hl_param_pvt.ge_hl_param_rec_type;
147 ddindx binary_integer; indx binary_integer;
148 begin
149
150 -- copy data to the local IN or IN-OUT args, if any
151
152
153
154
155
156
157
158 ddp_ge_hl_param_rec.history_log_param_id := p7_a0;
159 ddp_ge_hl_param_rec.entity_history_log_id := p7_a1;
160 ddp_ge_hl_param_rec.param_name := p7_a2;
161 ddp_ge_hl_param_rec.object_version_number := p7_a3;
162 ddp_ge_hl_param_rec.param_value := p7_a4;
163 ddp_ge_hl_param_rec.created_by := p7_a5;
164 ddp_ge_hl_param_rec.creation_date := p7_a6;
165 ddp_ge_hl_param_rec.last_updated_by := p7_a7;
166 ddp_ge_hl_param_rec.last_update_date := p7_a8;
167 ddp_ge_hl_param_rec.last_update_login := p7_a9;
168 ddp_ge_hl_param_rec.param_type := p7_a10;
169 ddp_ge_hl_param_rec.lookup_type := p7_a11;
170
171
172 -- here's the delegated call to the old PL/SQL routine
173 pv_ge_hl_param_pvt.create_ge_hl_param(p_api_version_number,
174 p_init_msg_list,
175 p_commit,
176 p_validation_level,
177 x_return_status,
178 x_msg_count,
179 x_msg_data,
180 ddp_ge_hl_param_rec,
181 x_history_log_param_id);
182
183 -- copy data back from the local variables to OUT or IN-OUT args, if any
184
185
186
187
188
189
190
191
192 end;
193
194 procedure update_ge_hl_param(p_api_version_number NUMBER
195 , p_init_msg_list VARCHAR2
196 , p_commit VARCHAR2
197 , p_validation_level NUMBER
198 , x_return_status out nocopy VARCHAR2
199 , x_msg_count out nocopy NUMBER
200 , x_msg_data out nocopy VARCHAR2
201 , p7_a0 NUMBER
202 , p7_a1 NUMBER
203 , p7_a2 VARCHAR2
204 , p7_a3 NUMBER
205 , p7_a4 VARCHAR2
206 , p7_a5 NUMBER
207 , p7_a6 DATE
208 , p7_a7 NUMBER
209 , p7_a8 DATE
210 , p7_a9 NUMBER
211 , p7_a10 VARCHAR2
212 , p7_a11 VARCHAR2
213 )
214
215 as
216 ddp_ge_hl_param_rec pv_ge_hl_param_pvt.ge_hl_param_rec_type;
217 ddindx binary_integer; indx binary_integer;
218 begin
219
220 -- copy data to the local IN or IN-OUT args, if any
221
222
223
224
225
226
227
228 ddp_ge_hl_param_rec.history_log_param_id := p7_a0;
229 ddp_ge_hl_param_rec.entity_history_log_id := p7_a1;
230 ddp_ge_hl_param_rec.param_name := p7_a2;
231 ddp_ge_hl_param_rec.object_version_number := p7_a3;
232 ddp_ge_hl_param_rec.param_value := p7_a4;
233 ddp_ge_hl_param_rec.created_by := p7_a5;
234 ddp_ge_hl_param_rec.creation_date := p7_a6;
235 ddp_ge_hl_param_rec.last_updated_by := p7_a7;
236 ddp_ge_hl_param_rec.last_update_date := p7_a8;
237 ddp_ge_hl_param_rec.last_update_login := p7_a9;
238 ddp_ge_hl_param_rec.param_type := p7_a10;
239 ddp_ge_hl_param_rec.lookup_type := p7_a11;
240
241 -- here's the delegated call to the old PL/SQL routine
242 pv_ge_hl_param_pvt.update_ge_hl_param(p_api_version_number,
243 p_init_msg_list,
244 p_commit,
245 p_validation_level,
246 x_return_status,
247 x_msg_count,
248 x_msg_data,
249 ddp_ge_hl_param_rec);
250
251 -- copy data back from the local variables to OUT or IN-OUT args, if any
252
253
254
255
256
257
258
259 end;
260
261 procedure validate_ge_hl_param(p_api_version_number NUMBER
262 , p_init_msg_list VARCHAR2
263 , p_validation_level NUMBER
264 , p3_a0 NUMBER
265 , p3_a1 NUMBER
266 , p3_a2 VARCHAR2
267 , p3_a3 NUMBER
268 , p3_a4 VARCHAR2
269 , p3_a5 NUMBER
270 , p3_a6 DATE
271 , p3_a7 NUMBER
272 , p3_a8 DATE
273 , p3_a9 NUMBER
274 , p3_a10 VARCHAR2
275 , p3_a11 VARCHAR2
276 , p_validation_mode VARCHAR2
277 , x_return_status out nocopy VARCHAR2
278 , x_msg_count out nocopy NUMBER
279 , x_msg_data out nocopy VARCHAR2
280 )
281
282 as
283 ddp_ge_hl_param_rec pv_ge_hl_param_pvt.ge_hl_param_rec_type;
284 ddindx binary_integer; indx binary_integer;
285 begin
286
287 -- copy data to the local IN or IN-OUT args, if any
288
289
290
291 ddp_ge_hl_param_rec.history_log_param_id := p3_a0;
292 ddp_ge_hl_param_rec.entity_history_log_id := p3_a1;
293 ddp_ge_hl_param_rec.param_name := p3_a2;
294 ddp_ge_hl_param_rec.object_version_number := p3_a3;
295 ddp_ge_hl_param_rec.param_value := p3_a4;
296 ddp_ge_hl_param_rec.created_by := p3_a5;
297 ddp_ge_hl_param_rec.creation_date := p3_a6;
298 ddp_ge_hl_param_rec.last_updated_by := p3_a7;
299 ddp_ge_hl_param_rec.last_update_date := p3_a8;
300 ddp_ge_hl_param_rec.last_update_login := p3_a9;
301 ddp_ge_hl_param_rec.param_type := p3_a10;
302 ddp_ge_hl_param_rec.lookup_type := p3_a11;
303
304
305
306
307
308 -- here's the delegated call to the old PL/SQL routine
309 pv_ge_hl_param_pvt.validate_ge_hl_param(p_api_version_number,
310 p_init_msg_list,
311 p_validation_level,
312 ddp_ge_hl_param_rec,
313 p_validation_mode,
314 x_return_status,
315 x_msg_count,
316 x_msg_data);
317
318 -- copy data back from the local variables to OUT or IN-OUT args, if any
319
320
321
322
323
324
325
326 end;
327
328 procedure check_ge_hl_param_items(p0_a0 NUMBER
329 , p0_a1 NUMBER
330 , p0_a2 VARCHAR2
331 , p0_a3 NUMBER
332 , p0_a4 VARCHAR2
333 , p0_a5 NUMBER
334 , p0_a6 DATE
335 , p0_a7 NUMBER
336 , p0_a8 DATE
337 , p0_a9 NUMBER
338 , p0_a10 VARCHAR2
339 , p0_a11 VARCHAR2
340 , p_validation_mode VARCHAR2
341 , x_return_status out nocopy VARCHAR2
342 )
343
344 as
345 ddp_ge_hl_param_rec pv_ge_hl_param_pvt.ge_hl_param_rec_type;
346 ddindx binary_integer; indx binary_integer;
347 begin
348
349 -- copy data to the local IN or IN-OUT args, if any
350 ddp_ge_hl_param_rec.history_log_param_id := p0_a0;
351 ddp_ge_hl_param_rec.entity_history_log_id := p0_a1;
352 ddp_ge_hl_param_rec.param_name := p0_a2;
353 ddp_ge_hl_param_rec.object_version_number := p0_a3;
354 ddp_ge_hl_param_rec.param_value := p0_a4;
355 ddp_ge_hl_param_rec.created_by := p0_a5;
356 ddp_ge_hl_param_rec.creation_date := p0_a6;
357 ddp_ge_hl_param_rec.last_updated_by := p0_a7;
358 ddp_ge_hl_param_rec.last_update_date := p0_a8;
359 ddp_ge_hl_param_rec.last_update_login := p0_a9;
360 ddp_ge_hl_param_rec.param_type := p0_a10;
361 ddp_ge_hl_param_rec.lookup_type := p0_a11;
362
363
364
365 -- here's the delegated call to the old PL/SQL routine
366 pv_ge_hl_param_pvt.check_ge_hl_param_items(ddp_ge_hl_param_rec,
367 p_validation_mode,
368 x_return_status);
369
370 -- copy data back from the local variables to OUT or IN-OUT args, if any
371
372
373 end;
374
375 procedure validate_ge_hl_param_rec(p_api_version_number NUMBER
376 , p_init_msg_list VARCHAR2
377 , x_return_status out nocopy VARCHAR2
378 , x_msg_count out nocopy NUMBER
379 , x_msg_data out nocopy VARCHAR2
380 , p5_a0 NUMBER
381 , p5_a1 NUMBER
382 , p5_a2 VARCHAR2
383 , p5_a3 NUMBER
384 , p5_a4 VARCHAR2
385 , p5_a5 NUMBER
386 , p5_a6 DATE
387 , p5_a7 NUMBER
388 , p5_a8 DATE
389 , p5_a9 NUMBER
390 , p5_a10 VARCHAR2
391 , p5_a11 VARCHAR2
392 )
393
394 as
395 ddp_ge_hl_param_rec pv_ge_hl_param_pvt.ge_hl_param_rec_type;
396 ddindx binary_integer; indx binary_integer;
397 begin
398
399 -- copy data to the local IN or IN-OUT args, if any
400
401
402
403
404
405 ddp_ge_hl_param_rec.history_log_param_id := p5_a0;
406 ddp_ge_hl_param_rec.entity_history_log_id := p5_a1;
407 ddp_ge_hl_param_rec.param_name := p5_a2;
408 ddp_ge_hl_param_rec.object_version_number := p5_a3;
409 ddp_ge_hl_param_rec.param_value := p5_a4;
410 ddp_ge_hl_param_rec.created_by := p5_a5;
411 ddp_ge_hl_param_rec.creation_date := p5_a6;
412 ddp_ge_hl_param_rec.last_updated_by := p5_a7;
413 ddp_ge_hl_param_rec.last_update_date := p5_a8;
414 ddp_ge_hl_param_rec.last_update_login := p5_a9;
415 ddp_ge_hl_param_rec.param_type := p5_a10;
416 ddp_ge_hl_param_rec.lookup_type := p5_a11;
417
418 -- here's the delegated call to the old PL/SQL routine
419 pv_ge_hl_param_pvt.validate_ge_hl_param_rec(p_api_version_number,
420 p_init_msg_list,
421 x_return_status,
422 x_msg_count,
423 x_msg_data,
424 ddp_ge_hl_param_rec);
425
426 -- copy data back from the local variables to OUT or IN-OUT args, if any
427
428
429
430
431
432 end;
433
434 end pv_ge_hl_param_pvt_w;