[Home] [Help]
PACKAGE BODY: APPS.AMS_METRIC_TEMPLATE_PVT_W
Source
1 package body ams_metric_template_pvt_w as
2 /* $Header: amswmthb.pls 115.4 2003/10/12 09:59:58 sunkumar ship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5
6 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7 function rosetta_g_miss_date_in_map(d date) return date as
8 begin
9 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10 return d;
11 end;
12
13 function rosetta_g_miss_num_map(n number) return number as
14 a number := fnd_api.g_miss_num;
15 b number := 0-1962.0724;
16 begin
17 if n=a then return b; end if;
18 if n=b then return a; end if;
19 return n;
20 end;
21
22 procedure rosetta_table_copy_in_p3(t out nocopy ams_metric_template_pvt.metric_tpl_header_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_DATE_TABLE
24 , a2 JTF_NUMBER_TABLE
25 , a3 JTF_DATE_TABLE
26 , a4 JTF_NUMBER_TABLE
27 , a5 JTF_NUMBER_TABLE
28 , a6 JTF_NUMBER_TABLE
29 , a7 JTF_NUMBER_TABLE
30 , a8 JTF_VARCHAR2_TABLE_100
31 , a9 JTF_VARCHAR2_TABLE_200
32 , a10 JTF_VARCHAR2_TABLE_4000
33 , a11 JTF_VARCHAR2_TABLE_100
34 , a12 JTF_VARCHAR2_TABLE_100
35 , a13 JTF_NUMBER_TABLE
36 , a14 JTF_VARCHAR2_TABLE_100
37 ) as
38 ddindx binary_integer; indx binary_integer;
39 begin
40 if a0 is not null and a0.count > 0 then
41 if a0.count > 0 then
42 indx := a0.first;
43 ddindx := 1;
44 while true loop
45 t(ddindx).metric_tpl_header_id := rosetta_g_miss_num_map(a0(indx));
46 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a1(indx));
47 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a2(indx));
48 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a3(indx));
49 t(ddindx).created_by := rosetta_g_miss_num_map(a4(indx));
50 t(ddindx).last_update_login := rosetta_g_miss_num_map(a5(indx));
51 t(ddindx).object_version_number := rosetta_g_miss_num_map(a6(indx));
52 t(ddindx).application_id := rosetta_g_miss_num_map(a7(indx));
53 t(ddindx).enabled_flag := a8(indx);
54 t(ddindx).metric_tpl_header_name := a9(indx);
55 t(ddindx).description := a10(indx);
56 t(ddindx).object_type := a11(indx);
57 t(ddindx).association_type := a12(indx);
58 t(ddindx).used_by_id := rosetta_g_miss_num_map(a13(indx));
59 t(ddindx).used_by_code := a14(indx);
60 ddindx := ddindx+1;
61 if a0.last =indx
62 then exit;
63 end if;
64 indx := a0.next(indx);
65 end loop;
66 end if;
67 end if;
68 end rosetta_table_copy_in_p3;
69 procedure rosetta_table_copy_out_p3(t ams_metric_template_pvt.metric_tpl_header_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
70 , a1 out nocopy JTF_DATE_TABLE
71 , a2 out nocopy JTF_NUMBER_TABLE
72 , a3 out nocopy JTF_DATE_TABLE
73 , a4 out nocopy JTF_NUMBER_TABLE
74 , a5 out nocopy JTF_NUMBER_TABLE
75 , a6 out nocopy JTF_NUMBER_TABLE
76 , a7 out nocopy JTF_NUMBER_TABLE
77 , a8 out nocopy JTF_VARCHAR2_TABLE_100
78 , a9 out nocopy JTF_VARCHAR2_TABLE_200
79 , a10 out nocopy JTF_VARCHAR2_TABLE_4000
80 , a11 out nocopy JTF_VARCHAR2_TABLE_100
81 , a12 out nocopy JTF_VARCHAR2_TABLE_100
82 , a13 out nocopy JTF_NUMBER_TABLE
83 , a14 out nocopy JTF_VARCHAR2_TABLE_100
84 ) as
85 ddindx binary_integer; indx binary_integer;
86 begin
87 if t is null or t.count = 0 then
88 a0 := JTF_NUMBER_TABLE();
89 a1 := JTF_DATE_TABLE();
90 a2 := JTF_NUMBER_TABLE();
91 a3 := JTF_DATE_TABLE();
92 a4 := JTF_NUMBER_TABLE();
93 a5 := JTF_NUMBER_TABLE();
94 a6 := JTF_NUMBER_TABLE();
95 a7 := JTF_NUMBER_TABLE();
96 a8 := JTF_VARCHAR2_TABLE_100();
97 a9 := JTF_VARCHAR2_TABLE_200();
98 a10 := JTF_VARCHAR2_TABLE_4000();
99 a11 := JTF_VARCHAR2_TABLE_100();
100 a12 := JTF_VARCHAR2_TABLE_100();
101 a13 := JTF_NUMBER_TABLE();
102 a14 := JTF_VARCHAR2_TABLE_100();
103 else
104 a0 := JTF_NUMBER_TABLE();
105 a1 := JTF_DATE_TABLE();
106 a2 := JTF_NUMBER_TABLE();
107 a3 := JTF_DATE_TABLE();
108 a4 := JTF_NUMBER_TABLE();
109 a5 := JTF_NUMBER_TABLE();
110 a6 := JTF_NUMBER_TABLE();
111 a7 := JTF_NUMBER_TABLE();
112 a8 := JTF_VARCHAR2_TABLE_100();
113 a9 := JTF_VARCHAR2_TABLE_200();
114 a10 := JTF_VARCHAR2_TABLE_4000();
115 a11 := JTF_VARCHAR2_TABLE_100();
116 a12 := JTF_VARCHAR2_TABLE_100();
117 a13 := JTF_NUMBER_TABLE();
118 a14 := JTF_VARCHAR2_TABLE_100();
119 if t.count > 0 then
120 a0.extend(t.count);
121 a1.extend(t.count);
122 a2.extend(t.count);
123 a3.extend(t.count);
124 a4.extend(t.count);
125 a5.extend(t.count);
126 a6.extend(t.count);
127 a7.extend(t.count);
128 a8.extend(t.count);
129 a9.extend(t.count);
130 a10.extend(t.count);
131 a11.extend(t.count);
132 a12.extend(t.count);
133 a13.extend(t.count);
134 a14.extend(t.count);
135 ddindx := t.first;
136 indx := 1;
137 while true loop
138 a0(indx) := rosetta_g_miss_num_map(t(ddindx).metric_tpl_header_id);
139 a1(indx) := t(ddindx).last_update_date;
140 a2(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
141 a3(indx) := t(ddindx).creation_date;
142 a4(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
143 a5(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
144 a6(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
145 a7(indx) := rosetta_g_miss_num_map(t(ddindx).application_id);
146 a8(indx) := t(ddindx).enabled_flag;
147 a9(indx) := t(ddindx).metric_tpl_header_name;
148 a10(indx) := t(ddindx).description;
149 a11(indx) := t(ddindx).object_type;
150 a12(indx) := t(ddindx).association_type;
151 a13(indx) := rosetta_g_miss_num_map(t(ddindx).used_by_id);
152 a14(indx) := t(ddindx).used_by_code;
153 indx := indx+1;
154 if t.last =ddindx
155 then exit;
156 end if;
157 ddindx := t.next(ddindx);
158 end loop;
159 end if;
160 end if;
161 end rosetta_table_copy_out_p3;
162
163 procedure create_metric_template(p_api_version_number NUMBER
164 , p_init_msg_list VARCHAR2
165 , p_commit VARCHAR2
166 , p_validation_level NUMBER
167 , x_return_status out nocopy VARCHAR2
168 , x_msg_count out nocopy NUMBER
169 , x_msg_data out nocopy VARCHAR2
170 , x_metric_tpl_header_id out nocopy NUMBER
171 , p7_a0 NUMBER := 0-1962.0724
172 , p7_a1 DATE := fnd_api.g_miss_date
173 , p7_a2 NUMBER := 0-1962.0724
174 , p7_a3 DATE := fnd_api.g_miss_date
175 , p7_a4 NUMBER := 0-1962.0724
176 , p7_a5 NUMBER := 0-1962.0724
177 , p7_a6 NUMBER := 0-1962.0724
178 , p7_a7 NUMBER := 0-1962.0724
179 , p7_a8 VARCHAR2 := fnd_api.g_miss_char
180 , p7_a9 VARCHAR2 := fnd_api.g_miss_char
181 , p7_a10 VARCHAR2 := fnd_api.g_miss_char
182 , p7_a11 VARCHAR2 := fnd_api.g_miss_char
183 , p7_a12 VARCHAR2 := fnd_api.g_miss_char
184 , p7_a13 NUMBER := 0-1962.0724
185 , p7_a14 VARCHAR2 := fnd_api.g_miss_char
186 )
187
188 as
189 ddp_metric_tpl_header_rec ams_metric_template_pvt.metric_tpl_header_rec_type;
190 ddindx binary_integer; indx binary_integer;
191 begin
192
193 -- copy data to the local IN or IN-OUT args, if any
194
195
196
197
198
199
200
201 ddp_metric_tpl_header_rec.metric_tpl_header_id := rosetta_g_miss_num_map(p7_a0);
202 ddp_metric_tpl_header_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a1);
203 ddp_metric_tpl_header_rec.last_updated_by := rosetta_g_miss_num_map(p7_a2);
204 ddp_metric_tpl_header_rec.creation_date := rosetta_g_miss_date_in_map(p7_a3);
205 ddp_metric_tpl_header_rec.created_by := rosetta_g_miss_num_map(p7_a4);
206 ddp_metric_tpl_header_rec.last_update_login := rosetta_g_miss_num_map(p7_a5);
207 ddp_metric_tpl_header_rec.object_version_number := rosetta_g_miss_num_map(p7_a6);
208 ddp_metric_tpl_header_rec.application_id := rosetta_g_miss_num_map(p7_a7);
209 ddp_metric_tpl_header_rec.enabled_flag := p7_a8;
210 ddp_metric_tpl_header_rec.metric_tpl_header_name := p7_a9;
211 ddp_metric_tpl_header_rec.description := p7_a10;
212 ddp_metric_tpl_header_rec.object_type := p7_a11;
213 ddp_metric_tpl_header_rec.association_type := p7_a12;
214 ddp_metric_tpl_header_rec.used_by_id := rosetta_g_miss_num_map(p7_a13);
215 ddp_metric_tpl_header_rec.used_by_code := p7_a14;
216
217
218 -- here's the delegated call to the old PL/SQL routine
219 ams_metric_template_pvt.create_metric_template(p_api_version_number,
220 p_init_msg_list,
221 p_commit,
222 p_validation_level,
223 x_return_status,
224 x_msg_count,
225 x_msg_data,
226 ddp_metric_tpl_header_rec,
227 x_metric_tpl_header_id);
228
229 -- copy data back from the local variables to OUT or IN-OUT args, if any
230
231
232
233
234
235
236
237
238 end;
239
240 procedure update_metric_template(p_api_version_number NUMBER
241 , p_init_msg_list VARCHAR2
242 , p_commit VARCHAR2
243 , p_validation_level NUMBER
244 , x_return_status out nocopy VARCHAR2
245 , x_msg_count out nocopy NUMBER
246 , x_msg_data out nocopy VARCHAR2
247 , x_object_version_number out nocopy NUMBER
248 , p7_a0 NUMBER := 0-1962.0724
249 , p7_a1 DATE := fnd_api.g_miss_date
250 , p7_a2 NUMBER := 0-1962.0724
251 , p7_a3 DATE := fnd_api.g_miss_date
252 , p7_a4 NUMBER := 0-1962.0724
253 , p7_a5 NUMBER := 0-1962.0724
254 , p7_a6 NUMBER := 0-1962.0724
255 , p7_a7 NUMBER := 0-1962.0724
256 , p7_a8 VARCHAR2 := fnd_api.g_miss_char
257 , p7_a9 VARCHAR2 := fnd_api.g_miss_char
258 , p7_a10 VARCHAR2 := fnd_api.g_miss_char
259 , p7_a11 VARCHAR2 := fnd_api.g_miss_char
260 , p7_a12 VARCHAR2 := fnd_api.g_miss_char
261 , p7_a13 NUMBER := 0-1962.0724
262 , p7_a14 VARCHAR2 := fnd_api.g_miss_char
263 )
264
265 as
266 ddp_metric_tpl_header_rec ams_metric_template_pvt.metric_tpl_header_rec_type;
267 ddindx binary_integer; indx binary_integer;
268 begin
269
270 -- copy data to the local IN or IN-OUT args, if any
271
272
273
274
275
276
277
278 ddp_metric_tpl_header_rec.metric_tpl_header_id := rosetta_g_miss_num_map(p7_a0);
279 ddp_metric_tpl_header_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a1);
280 ddp_metric_tpl_header_rec.last_updated_by := rosetta_g_miss_num_map(p7_a2);
281 ddp_metric_tpl_header_rec.creation_date := rosetta_g_miss_date_in_map(p7_a3);
282 ddp_metric_tpl_header_rec.created_by := rosetta_g_miss_num_map(p7_a4);
283 ddp_metric_tpl_header_rec.last_update_login := rosetta_g_miss_num_map(p7_a5);
284 ddp_metric_tpl_header_rec.object_version_number := rosetta_g_miss_num_map(p7_a6);
285 ddp_metric_tpl_header_rec.application_id := rosetta_g_miss_num_map(p7_a7);
286 ddp_metric_tpl_header_rec.enabled_flag := p7_a8;
287 ddp_metric_tpl_header_rec.metric_tpl_header_name := p7_a9;
288 ddp_metric_tpl_header_rec.description := p7_a10;
289 ddp_metric_tpl_header_rec.object_type := p7_a11;
290 ddp_metric_tpl_header_rec.association_type := p7_a12;
291 ddp_metric_tpl_header_rec.used_by_id := rosetta_g_miss_num_map(p7_a13);
292 ddp_metric_tpl_header_rec.used_by_code := p7_a14;
293
294
295 -- here's the delegated call to the old PL/SQL routine
296 ams_metric_template_pvt.update_metric_template(p_api_version_number,
297 p_init_msg_list,
298 p_commit,
299 p_validation_level,
300 x_return_status,
301 x_msg_count,
302 x_msg_data,
303 ddp_metric_tpl_header_rec,
304 x_object_version_number);
305
306 -- copy data back from the local variables to OUT or IN-OUT args, if any
307
308
309
310
311
312
313
314
315 end;
316
317 procedure validate_metric_template(p_api_version_number NUMBER
318 , p_init_msg_list VARCHAR2
319 , p_validation_level NUMBER
320 , p_validation_mode VARCHAR2
321 , x_return_status out nocopy VARCHAR2
322 , x_msg_count out nocopy NUMBER
323 , x_msg_data out nocopy VARCHAR2
324 , p3_a0 NUMBER := 0-1962.0724
325 , p3_a1 DATE := fnd_api.g_miss_date
326 , p3_a2 NUMBER := 0-1962.0724
327 , p3_a3 DATE := fnd_api.g_miss_date
328 , p3_a4 NUMBER := 0-1962.0724
329 , p3_a5 NUMBER := 0-1962.0724
330 , p3_a6 NUMBER := 0-1962.0724
331 , p3_a7 NUMBER := 0-1962.0724
332 , p3_a8 VARCHAR2 := fnd_api.g_miss_char
333 , p3_a9 VARCHAR2 := fnd_api.g_miss_char
334 , p3_a10 VARCHAR2 := fnd_api.g_miss_char
335 , p3_a11 VARCHAR2 := fnd_api.g_miss_char
336 , p3_a12 VARCHAR2 := fnd_api.g_miss_char
337 , p3_a13 NUMBER := 0-1962.0724
338 , p3_a14 VARCHAR2 := fnd_api.g_miss_char
339 )
340
341 as
342 ddp_metric_tpl_header_rec ams_metric_template_pvt.metric_tpl_header_rec_type;
343 ddindx binary_integer; indx binary_integer;
344 begin
345
346 -- copy data to the local IN or IN-OUT args, if any
347
348
349
350 ddp_metric_tpl_header_rec.metric_tpl_header_id := rosetta_g_miss_num_map(p3_a0);
351 ddp_metric_tpl_header_rec.last_update_date := rosetta_g_miss_date_in_map(p3_a1);
352 ddp_metric_tpl_header_rec.last_updated_by := rosetta_g_miss_num_map(p3_a2);
353 ddp_metric_tpl_header_rec.creation_date := rosetta_g_miss_date_in_map(p3_a3);
354 ddp_metric_tpl_header_rec.created_by := rosetta_g_miss_num_map(p3_a4);
355 ddp_metric_tpl_header_rec.last_update_login := rosetta_g_miss_num_map(p3_a5);
356 ddp_metric_tpl_header_rec.object_version_number := rosetta_g_miss_num_map(p3_a6);
357 ddp_metric_tpl_header_rec.application_id := rosetta_g_miss_num_map(p3_a7);
358 ddp_metric_tpl_header_rec.enabled_flag := p3_a8;
359 ddp_metric_tpl_header_rec.metric_tpl_header_name := p3_a9;
360 ddp_metric_tpl_header_rec.description := p3_a10;
361 ddp_metric_tpl_header_rec.object_type := p3_a11;
362 ddp_metric_tpl_header_rec.association_type := p3_a12;
363 ddp_metric_tpl_header_rec.used_by_id := rosetta_g_miss_num_map(p3_a13);
364 ddp_metric_tpl_header_rec.used_by_code := p3_a14;
365
366
367
368
369
370 -- here's the delegated call to the old PL/SQL routine
371 ams_metric_template_pvt.validate_metric_template(p_api_version_number,
372 p_init_msg_list,
373 p_validation_level,
374 ddp_metric_tpl_header_rec,
375 p_validation_mode,
376 x_return_status,
377 x_msg_count,
378 x_msg_data);
379
380 -- copy data back from the local variables to OUT or IN-OUT args, if any
381
382
383
384
385
386
387
388 end;
389
390 procedure check_met_tpl_hdr_items(p_validation_mode VARCHAR2
391 , x_return_status out nocopy VARCHAR2
392 , p0_a0 NUMBER := 0-1962.0724
393 , p0_a1 DATE := fnd_api.g_miss_date
394 , p0_a2 NUMBER := 0-1962.0724
395 , p0_a3 DATE := fnd_api.g_miss_date
396 , p0_a4 NUMBER := 0-1962.0724
397 , p0_a5 NUMBER := 0-1962.0724
398 , p0_a6 NUMBER := 0-1962.0724
399 , p0_a7 NUMBER := 0-1962.0724
400 , p0_a8 VARCHAR2 := fnd_api.g_miss_char
401 , p0_a9 VARCHAR2 := fnd_api.g_miss_char
402 , p0_a10 VARCHAR2 := fnd_api.g_miss_char
403 , p0_a11 VARCHAR2 := fnd_api.g_miss_char
404 , p0_a12 VARCHAR2 := fnd_api.g_miss_char
405 , p0_a13 NUMBER := 0-1962.0724
406 , p0_a14 VARCHAR2 := fnd_api.g_miss_char
407 )
408
409 as
410 ddp_metric_tpl_header_rec ams_metric_template_pvt.metric_tpl_header_rec_type;
411 ddindx binary_integer; indx binary_integer;
412 begin
413
414 -- copy data to the local IN or IN-OUT args, if any
415 ddp_metric_tpl_header_rec.metric_tpl_header_id := rosetta_g_miss_num_map(p0_a0);
416 ddp_metric_tpl_header_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a1);
417 ddp_metric_tpl_header_rec.last_updated_by := rosetta_g_miss_num_map(p0_a2);
418 ddp_metric_tpl_header_rec.creation_date := rosetta_g_miss_date_in_map(p0_a3);
419 ddp_metric_tpl_header_rec.created_by := rosetta_g_miss_num_map(p0_a4);
420 ddp_metric_tpl_header_rec.last_update_login := rosetta_g_miss_num_map(p0_a5);
421 ddp_metric_tpl_header_rec.object_version_number := rosetta_g_miss_num_map(p0_a6);
422 ddp_metric_tpl_header_rec.application_id := rosetta_g_miss_num_map(p0_a7);
423 ddp_metric_tpl_header_rec.enabled_flag := p0_a8;
424 ddp_metric_tpl_header_rec.metric_tpl_header_name := p0_a9;
425 ddp_metric_tpl_header_rec.description := p0_a10;
426 ddp_metric_tpl_header_rec.object_type := p0_a11;
427 ddp_metric_tpl_header_rec.association_type := p0_a12;
428 ddp_metric_tpl_header_rec.used_by_id := rosetta_g_miss_num_map(p0_a13);
429 ddp_metric_tpl_header_rec.used_by_code := p0_a14;
430
431
432
433 -- here's the delegated call to the old PL/SQL routine
434 ams_metric_template_pvt.check_met_tpl_hdr_items(ddp_metric_tpl_header_rec,
435 p_validation_mode,
436 x_return_status);
437
438 -- copy data back from the local variables to OUT or IN-OUT args, if any
439
440
441 end;
442
443 procedure validate_met_tpl_hdr_rec(p_api_version_number NUMBER
444 , p_init_msg_list VARCHAR2
445 , x_return_status out nocopy VARCHAR2
446 , x_msg_count out nocopy NUMBER
447 , x_msg_data out nocopy VARCHAR2
448 , p5_a0 NUMBER := 0-1962.0724
449 , p5_a1 DATE := fnd_api.g_miss_date
450 , p5_a2 NUMBER := 0-1962.0724
451 , p5_a3 DATE := fnd_api.g_miss_date
452 , p5_a4 NUMBER := 0-1962.0724
453 , p5_a5 NUMBER := 0-1962.0724
454 , p5_a6 NUMBER := 0-1962.0724
455 , p5_a7 NUMBER := 0-1962.0724
456 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
457 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
458 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
459 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
460 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
461 , p5_a13 NUMBER := 0-1962.0724
462 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
463 )
464
465 as
466 ddp_metric_tpl_header_rec ams_metric_template_pvt.metric_tpl_header_rec_type;
467 ddindx binary_integer; indx binary_integer;
468 begin
469
470 -- copy data to the local IN or IN-OUT args, if any
471
472
473
474
475
476 ddp_metric_tpl_header_rec.metric_tpl_header_id := rosetta_g_miss_num_map(p5_a0);
477 ddp_metric_tpl_header_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a1);
478 ddp_metric_tpl_header_rec.last_updated_by := rosetta_g_miss_num_map(p5_a2);
479 ddp_metric_tpl_header_rec.creation_date := rosetta_g_miss_date_in_map(p5_a3);
480 ddp_metric_tpl_header_rec.created_by := rosetta_g_miss_num_map(p5_a4);
481 ddp_metric_tpl_header_rec.last_update_login := rosetta_g_miss_num_map(p5_a5);
482 ddp_metric_tpl_header_rec.object_version_number := rosetta_g_miss_num_map(p5_a6);
483 ddp_metric_tpl_header_rec.application_id := rosetta_g_miss_num_map(p5_a7);
484 ddp_metric_tpl_header_rec.enabled_flag := p5_a8;
485 ddp_metric_tpl_header_rec.metric_tpl_header_name := p5_a9;
486 ddp_metric_tpl_header_rec.description := p5_a10;
487 ddp_metric_tpl_header_rec.object_type := p5_a11;
488 ddp_metric_tpl_header_rec.association_type := p5_a12;
489 ddp_metric_tpl_header_rec.used_by_id := rosetta_g_miss_num_map(p5_a13);
490 ddp_metric_tpl_header_rec.used_by_code := p5_a14;
491
492 -- here's the delegated call to the old PL/SQL routine
493 ams_metric_template_pvt.validate_met_tpl_hdr_rec(p_api_version_number,
494 p_init_msg_list,
495 x_return_status,
496 x_msg_count,
497 x_msg_data,
498 ddp_metric_tpl_header_rec);
499
500 -- copy data back from the local variables to OUT or IN-OUT args, if any
501
502
503
504
505
506 end;
507
508 end ams_metric_template_pvt_w;