[Home] [Help]
PACKAGE BODY: APPS.AHL_MC_MASTERCONFIG_PVT_W
Source
1 package body ahl_mc_masterconfig_pvt_w as
2 /* $Header: AHLVMCWB.pls 120.1.12010000.2 2008/11/06 10:25:51 sathapli 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 rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
6 rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
7
8 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
9 function rosetta_g_miss_date_in_map(d date) return date as
10 begin
11 if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
12 if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13 return d;
14 end;
15
16 procedure create_master_config(p_api_version NUMBER
17 , p_init_msg_list VARCHAR2
18 , p_commit VARCHAR2
19 , p_validation_level NUMBER
20 , x_return_status out nocopy VARCHAR2
21 , x_msg_count out nocopy NUMBER
22 , x_msg_data out nocopy VARCHAR2
23 , p7_a0 in out nocopy NUMBER
24 , p7_a1 in out nocopy VARCHAR2
25 , p7_a2 in out nocopy VARCHAR2
26 , p7_a3 in out nocopy NUMBER
27 , p7_a4 in out nocopy NUMBER
28 , p7_a5 in out nocopy VARCHAR2
29 , p7_a6 in out nocopy VARCHAR2
30 , p7_a7 in out nocopy VARCHAR2
31 , p7_a8 in out nocopy VARCHAR2
32 , p7_a9 in out nocopy VARCHAR2
33 , p7_a10 in out nocopy NUMBER
34 , p7_a11 in out nocopy NUMBER
35 , p7_a12 in out nocopy VARCHAR2
36 , p7_a13 in out nocopy VARCHAR2
37 , p7_a14 in out nocopy VARCHAR2
38 , p7_a15 in out nocopy VARCHAR2
39 , p7_a16 in out nocopy VARCHAR2
40 , p7_a17 in out nocopy VARCHAR2
41 , p7_a18 in out nocopy VARCHAR2
42 , p7_a19 in out nocopy VARCHAR2
43 , p7_a20 in out nocopy VARCHAR2
44 , p7_a21 in out nocopy VARCHAR2
45 , p7_a22 in out nocopy VARCHAR2
46 , p7_a23 in out nocopy VARCHAR2
47 , p7_a24 in out nocopy VARCHAR2
48 , p7_a25 in out nocopy VARCHAR2
49 , p7_a26 in out nocopy VARCHAR2
50 , p7_a27 in out nocopy VARCHAR2
51 , p7_a28 in out nocopy VARCHAR2
52 , p8_a0 in out nocopy NUMBER
53 , p8_a1 in out nocopy NUMBER
54 , p8_a2 in out nocopy NUMBER
55 , p8_a3 in out nocopy VARCHAR2
56 , p8_a4 in out nocopy VARCHAR2
57 , p8_a5 in out nocopy VARCHAR2
58 , p8_a6 in out nocopy VARCHAR2
59 , p8_a7 in out nocopy VARCHAR2
60 , p8_a8 in out nocopy VARCHAR2
61 , p8_a9 in out nocopy VARCHAR2
62 , p8_a10 in out nocopy NUMBER
63 , p8_a11 in out nocopy NUMBER
64 , p8_a12 in out nocopy NUMBER
65 , p8_a13 in out nocopy VARCHAR2
66 , p8_a14 in out nocopy NUMBER
67 , p8_a15 in out nocopy DATE
68 , p8_a16 in out nocopy DATE
69 , p8_a17 in out nocopy NUMBER
70 , p8_a18 in out nocopy NUMBER
71 , p8_a19 in out nocopy VARCHAR2
72 , p8_a20 in out nocopy VARCHAR2
73 , p8_a21 in out nocopy VARCHAR2
74 , p8_a22 in out nocopy VARCHAR2
75 , p8_a23 in out nocopy VARCHAR2
76 , p8_a24 in out nocopy VARCHAR2
77 , p8_a25 in out nocopy VARCHAR2
78 , p8_a26 in out nocopy VARCHAR2
79 , p8_a27 in out nocopy VARCHAR2
80 , p8_a28 in out nocopy VARCHAR2
81 , p8_a29 in out nocopy VARCHAR2
82 , p8_a30 in out nocopy VARCHAR2
83 , p8_a31 in out nocopy VARCHAR2
84 , p8_a32 in out nocopy VARCHAR2
85 , p8_a33 in out nocopy VARCHAR2
86 , p8_a34 in out nocopy VARCHAR2
87 , p8_a35 in out nocopy VARCHAR2
88 , p8_a36 in out nocopy NUMBER
89 )
90
91 as
92 ddp_x_mc_header_rec ahl_mc_masterconfig_pvt.header_rec_type;
93 ddp_x_node_rec ahl_mc_node_pvt.node_rec_type;
94 ddindx binary_integer; indx binary_integer;
95 begin
96
97 -- copy data to the local IN or IN-OUT args, if any
98
99
100
101
102
103
104
105 ddp_x_mc_header_rec.mc_header_id := p7_a0;
106 ddp_x_mc_header_rec.name := p7_a1;
107 ddp_x_mc_header_rec.description := p7_a2;
108 ddp_x_mc_header_rec.mc_id := p7_a3;
109 ddp_x_mc_header_rec.version_number := p7_a4;
110 ddp_x_mc_header_rec.revision := p7_a5;
111 ddp_x_mc_header_rec.model_code := p7_a6;
112 ddp_x_mc_header_rec.model_meaning := p7_a7;
113 ddp_x_mc_header_rec.config_status_code := p7_a8;
114 ddp_x_mc_header_rec.config_status_meaning := p7_a9;
115 ddp_x_mc_header_rec.object_version_number := p7_a10;
116 ddp_x_mc_header_rec.security_group_id := p7_a11;
117 ddp_x_mc_header_rec.attribute_category := p7_a12;
118 ddp_x_mc_header_rec.attribute1 := p7_a13;
119 ddp_x_mc_header_rec.attribute2 := p7_a14;
120 ddp_x_mc_header_rec.attribute3 := p7_a15;
121 ddp_x_mc_header_rec.attribute4 := p7_a16;
122 ddp_x_mc_header_rec.attribute5 := p7_a17;
123 ddp_x_mc_header_rec.attribute6 := p7_a18;
124 ddp_x_mc_header_rec.attribute7 := p7_a19;
125 ddp_x_mc_header_rec.attribute8 := p7_a20;
126 ddp_x_mc_header_rec.attribute9 := p7_a21;
127 ddp_x_mc_header_rec.attribute10 := p7_a22;
128 ddp_x_mc_header_rec.attribute11 := p7_a23;
129 ddp_x_mc_header_rec.attribute12 := p7_a24;
130 ddp_x_mc_header_rec.attribute13 := p7_a25;
131 ddp_x_mc_header_rec.attribute14 := p7_a26;
132 ddp_x_mc_header_rec.attribute15 := p7_a27;
133 ddp_x_mc_header_rec.operation_flag := p7_a28;
134
135 ddp_x_node_rec.relationship_id := p8_a0;
136 ddp_x_node_rec.mc_header_id := p8_a1;
137 ddp_x_node_rec.position_key := p8_a2;
138 ddp_x_node_rec.position_ref_code := p8_a3;
139 ddp_x_node_rec.position_ref_meaning := p8_a4;
140 ddp_x_node_rec.ata_code := p8_a5;
141 ddp_x_node_rec.ata_meaning := p8_a6;
142 ddp_x_node_rec.position_necessity_code := p8_a7;
143 ddp_x_node_rec.position_necessity_meaning := p8_a8;
144 ddp_x_node_rec.uom_code := p8_a9;
145 ddp_x_node_rec.quantity := p8_a10;
146 ddp_x_node_rec.parent_relationship_id := p8_a11;
147 ddp_x_node_rec.item_group_id := p8_a12;
148 ddp_x_node_rec.item_group_name := p8_a13;
149 ddp_x_node_rec.display_order := p8_a14;
150 ddp_x_node_rec.active_start_date := rosetta_g_miss_date_in_map(p8_a15);
151 ddp_x_node_rec.active_end_date := rosetta_g_miss_date_in_map(p8_a16);
152 ddp_x_node_rec.object_version_number := p8_a17;
153 ddp_x_node_rec.security_group_id := p8_a18;
154 ddp_x_node_rec.attribute_category := p8_a19;
155 ddp_x_node_rec.attribute1 := p8_a20;
156 ddp_x_node_rec.attribute2 := p8_a21;
157 ddp_x_node_rec.attribute3 := p8_a22;
158 ddp_x_node_rec.attribute4 := p8_a23;
159 ddp_x_node_rec.attribute5 := p8_a24;
160 ddp_x_node_rec.attribute6 := p8_a25;
161 ddp_x_node_rec.attribute7 := p8_a26;
162 ddp_x_node_rec.attribute8 := p8_a27;
163 ddp_x_node_rec.attribute9 := p8_a28;
164 ddp_x_node_rec.attribute10 := p8_a29;
165 ddp_x_node_rec.attribute11 := p8_a30;
166 ddp_x_node_rec.attribute12 := p8_a31;
167 ddp_x_node_rec.attribute13 := p8_a32;
168 ddp_x_node_rec.attribute14 := p8_a33;
169 ddp_x_node_rec.attribute15 := p8_a34;
170 ddp_x_node_rec.operation_flag := p8_a35;
171 ddp_x_node_rec.parent_node_rec_index := p8_a36;
172
173 -- here's the delegated call to the old PL/SQL routine
174 ahl_mc_masterconfig_pvt.create_master_config(p_api_version,
175 p_init_msg_list,
176 p_commit,
177 p_validation_level,
178 x_return_status,
179 x_msg_count,
180 x_msg_data,
181 ddp_x_mc_header_rec,
182 ddp_x_node_rec);
183
184 -- copy data back from the local variables to OUT or IN-OUT args, if any
185
186
187
188
189
190
191
192 p7_a0 := ddp_x_mc_header_rec.mc_header_id;
193 p7_a1 := ddp_x_mc_header_rec.name;
194 p7_a2 := ddp_x_mc_header_rec.description;
195 p7_a3 := ddp_x_mc_header_rec.mc_id;
196 p7_a4 := ddp_x_mc_header_rec.version_number;
197 p7_a5 := ddp_x_mc_header_rec.revision;
198 p7_a6 := ddp_x_mc_header_rec.model_code;
199 p7_a7 := ddp_x_mc_header_rec.model_meaning;
200 p7_a8 := ddp_x_mc_header_rec.config_status_code;
201 p7_a9 := ddp_x_mc_header_rec.config_status_meaning;
202 p7_a10 := ddp_x_mc_header_rec.object_version_number;
203 p7_a11 := ddp_x_mc_header_rec.security_group_id;
204 p7_a12 := ddp_x_mc_header_rec.attribute_category;
205 p7_a13 := ddp_x_mc_header_rec.attribute1;
206 p7_a14 := ddp_x_mc_header_rec.attribute2;
207 p7_a15 := ddp_x_mc_header_rec.attribute3;
208 p7_a16 := ddp_x_mc_header_rec.attribute4;
209 p7_a17 := ddp_x_mc_header_rec.attribute5;
210 p7_a18 := ddp_x_mc_header_rec.attribute6;
211 p7_a19 := ddp_x_mc_header_rec.attribute7;
212 p7_a20 := ddp_x_mc_header_rec.attribute8;
213 p7_a21 := ddp_x_mc_header_rec.attribute9;
214 p7_a22 := ddp_x_mc_header_rec.attribute10;
215 p7_a23 := ddp_x_mc_header_rec.attribute11;
216 p7_a24 := ddp_x_mc_header_rec.attribute12;
217 p7_a25 := ddp_x_mc_header_rec.attribute13;
218 p7_a26 := ddp_x_mc_header_rec.attribute14;
219 p7_a27 := ddp_x_mc_header_rec.attribute15;
220 p7_a28 := ddp_x_mc_header_rec.operation_flag;
221
222 p8_a0 := ddp_x_node_rec.relationship_id;
223 p8_a1 := ddp_x_node_rec.mc_header_id;
224 p8_a2 := ddp_x_node_rec.position_key;
225 p8_a3 := ddp_x_node_rec.position_ref_code;
226 p8_a4 := ddp_x_node_rec.position_ref_meaning;
227 p8_a5 := ddp_x_node_rec.ata_code;
228 p8_a6 := ddp_x_node_rec.ata_meaning;
229 p8_a7 := ddp_x_node_rec.position_necessity_code;
230 p8_a8 := ddp_x_node_rec.position_necessity_meaning;
231 p8_a9 := ddp_x_node_rec.uom_code;
232 p8_a10 := ddp_x_node_rec.quantity;
233 p8_a11 := ddp_x_node_rec.parent_relationship_id;
234 p8_a12 := ddp_x_node_rec.item_group_id;
235 p8_a13 := ddp_x_node_rec.item_group_name;
236 p8_a14 := ddp_x_node_rec.display_order;
237 p8_a15 := ddp_x_node_rec.active_start_date;
238 p8_a16 := ddp_x_node_rec.active_end_date;
239 p8_a17 := ddp_x_node_rec.object_version_number;
240 p8_a18 := ddp_x_node_rec.security_group_id;
241 p8_a19 := ddp_x_node_rec.attribute_category;
242 p8_a20 := ddp_x_node_rec.attribute1;
243 p8_a21 := ddp_x_node_rec.attribute2;
244 p8_a22 := ddp_x_node_rec.attribute3;
245 p8_a23 := ddp_x_node_rec.attribute4;
246 p8_a24 := ddp_x_node_rec.attribute5;
247 p8_a25 := ddp_x_node_rec.attribute6;
248 p8_a26 := ddp_x_node_rec.attribute7;
249 p8_a27 := ddp_x_node_rec.attribute8;
250 p8_a28 := ddp_x_node_rec.attribute9;
251 p8_a29 := ddp_x_node_rec.attribute10;
252 p8_a30 := ddp_x_node_rec.attribute11;
253 p8_a31 := ddp_x_node_rec.attribute12;
254 p8_a32 := ddp_x_node_rec.attribute13;
255 p8_a33 := ddp_x_node_rec.attribute14;
256 p8_a34 := ddp_x_node_rec.attribute15;
257 p8_a35 := ddp_x_node_rec.operation_flag;
258 p8_a36 := ddp_x_node_rec.parent_node_rec_index;
259 end;
260
261 procedure modify_master_config(p_api_version NUMBER
262 , p_init_msg_list VARCHAR2
263 , p_commit VARCHAR2
264 , p_validation_level NUMBER
265 , x_return_status out nocopy VARCHAR2
266 , x_msg_count out nocopy NUMBER
267 , x_msg_data out nocopy VARCHAR2
268 , p7_a0 in out nocopy NUMBER
269 , p7_a1 in out nocopy VARCHAR2
270 , p7_a2 in out nocopy VARCHAR2
271 , p7_a3 in out nocopy NUMBER
272 , p7_a4 in out nocopy NUMBER
273 , p7_a5 in out nocopy VARCHAR2
274 , p7_a6 in out nocopy VARCHAR2
275 , p7_a7 in out nocopy VARCHAR2
276 , p7_a8 in out nocopy VARCHAR2
277 , p7_a9 in out nocopy VARCHAR2
278 , p7_a10 in out nocopy NUMBER
279 , p7_a11 in out nocopy NUMBER
280 , p7_a12 in out nocopy VARCHAR2
281 , p7_a13 in out nocopy VARCHAR2
282 , p7_a14 in out nocopy VARCHAR2
283 , p7_a15 in out nocopy VARCHAR2
284 , p7_a16 in out nocopy VARCHAR2
285 , p7_a17 in out nocopy VARCHAR2
286 , p7_a18 in out nocopy VARCHAR2
287 , p7_a19 in out nocopy VARCHAR2
288 , p7_a20 in out nocopy VARCHAR2
289 , p7_a21 in out nocopy VARCHAR2
290 , p7_a22 in out nocopy VARCHAR2
291 , p7_a23 in out nocopy VARCHAR2
292 , p7_a24 in out nocopy VARCHAR2
293 , p7_a25 in out nocopy VARCHAR2
294 , p7_a26 in out nocopy VARCHAR2
295 , p7_a27 in out nocopy VARCHAR2
296 , p7_a28 in out nocopy VARCHAR2
297 , p8_a0 in out nocopy NUMBER
298 , p8_a1 in out nocopy NUMBER
299 , p8_a2 in out nocopy NUMBER
300 , p8_a3 in out nocopy VARCHAR2
301 , p8_a4 in out nocopy VARCHAR2
302 , p8_a5 in out nocopy VARCHAR2
303 , p8_a6 in out nocopy VARCHAR2
304 , p8_a7 in out nocopy VARCHAR2
305 , p8_a8 in out nocopy VARCHAR2
306 , p8_a9 in out nocopy VARCHAR2
307 , p8_a10 in out nocopy NUMBER
308 , p8_a11 in out nocopy NUMBER
309 , p8_a12 in out nocopy NUMBER
310 , p8_a13 in out nocopy VARCHAR2
311 , p8_a14 in out nocopy NUMBER
312 , p8_a15 in out nocopy DATE
313 , p8_a16 in out nocopy DATE
314 , p8_a17 in out nocopy NUMBER
315 , p8_a18 in out nocopy NUMBER
316 , p8_a19 in out nocopy VARCHAR2
317 , p8_a20 in out nocopy VARCHAR2
318 , p8_a21 in out nocopy VARCHAR2
319 , p8_a22 in out nocopy VARCHAR2
320 , p8_a23 in out nocopy VARCHAR2
321 , p8_a24 in out nocopy VARCHAR2
322 , p8_a25 in out nocopy VARCHAR2
323 , p8_a26 in out nocopy VARCHAR2
324 , p8_a27 in out nocopy VARCHAR2
325 , p8_a28 in out nocopy VARCHAR2
326 , p8_a29 in out nocopy VARCHAR2
327 , p8_a30 in out nocopy VARCHAR2
328 , p8_a31 in out nocopy VARCHAR2
329 , p8_a32 in out nocopy VARCHAR2
330 , p8_a33 in out nocopy VARCHAR2
331 , p8_a34 in out nocopy VARCHAR2
332 , p8_a35 in out nocopy VARCHAR2
333 , p8_a36 in out nocopy NUMBER
334 )
335
336 as
337 ddp_x_mc_header_rec ahl_mc_masterconfig_pvt.header_rec_type;
338 ddp_x_node_rec ahl_mc_node_pvt.node_rec_type;
339 ddindx binary_integer; indx binary_integer;
340 begin
341
342 -- copy data to the local IN or IN-OUT args, if any
343
344
345
346
347
348
349
350 ddp_x_mc_header_rec.mc_header_id := p7_a0;
351 ddp_x_mc_header_rec.name := p7_a1;
352 ddp_x_mc_header_rec.description := p7_a2;
353 ddp_x_mc_header_rec.mc_id := p7_a3;
354 ddp_x_mc_header_rec.version_number := p7_a4;
355 ddp_x_mc_header_rec.revision := p7_a5;
356 ddp_x_mc_header_rec.model_code := p7_a6;
357 ddp_x_mc_header_rec.model_meaning := p7_a7;
358 ddp_x_mc_header_rec.config_status_code := p7_a8;
359 ddp_x_mc_header_rec.config_status_meaning := p7_a9;
360 ddp_x_mc_header_rec.object_version_number := p7_a10;
364 ddp_x_mc_header_rec.attribute2 := p7_a14;
361 ddp_x_mc_header_rec.security_group_id := p7_a11;
362 ddp_x_mc_header_rec.attribute_category := p7_a12;
363 ddp_x_mc_header_rec.attribute1 := p7_a13;
365 ddp_x_mc_header_rec.attribute3 := p7_a15;
366 ddp_x_mc_header_rec.attribute4 := p7_a16;
367 ddp_x_mc_header_rec.attribute5 := p7_a17;
368 ddp_x_mc_header_rec.attribute6 := p7_a18;
369 ddp_x_mc_header_rec.attribute7 := p7_a19;
370 ddp_x_mc_header_rec.attribute8 := p7_a20;
371 ddp_x_mc_header_rec.attribute9 := p7_a21;
372 ddp_x_mc_header_rec.attribute10 := p7_a22;
373 ddp_x_mc_header_rec.attribute11 := p7_a23;
374 ddp_x_mc_header_rec.attribute12 := p7_a24;
375 ddp_x_mc_header_rec.attribute13 := p7_a25;
376 ddp_x_mc_header_rec.attribute14 := p7_a26;
377 ddp_x_mc_header_rec.attribute15 := p7_a27;
378 ddp_x_mc_header_rec.operation_flag := p7_a28;
379
380 ddp_x_node_rec.relationship_id := p8_a0;
381 ddp_x_node_rec.mc_header_id := p8_a1;
382 ddp_x_node_rec.position_key := p8_a2;
383 ddp_x_node_rec.position_ref_code := p8_a3;
384 ddp_x_node_rec.position_ref_meaning := p8_a4;
385 ddp_x_node_rec.ata_code := p8_a5;
386 ddp_x_node_rec.ata_meaning := p8_a6;
387 ddp_x_node_rec.position_necessity_code := p8_a7;
388 ddp_x_node_rec.position_necessity_meaning := p8_a8;
389 ddp_x_node_rec.uom_code := p8_a9;
390 ddp_x_node_rec.quantity := p8_a10;
391 ddp_x_node_rec.parent_relationship_id := p8_a11;
392 ddp_x_node_rec.item_group_id := p8_a12;
393 ddp_x_node_rec.item_group_name := p8_a13;
394 ddp_x_node_rec.display_order := p8_a14;
395 ddp_x_node_rec.active_start_date := rosetta_g_miss_date_in_map(p8_a15);
396 ddp_x_node_rec.active_end_date := rosetta_g_miss_date_in_map(p8_a16);
397 ddp_x_node_rec.object_version_number := p8_a17;
398 ddp_x_node_rec.security_group_id := p8_a18;
399 ddp_x_node_rec.attribute_category := p8_a19;
400 ddp_x_node_rec.attribute1 := p8_a20;
401 ddp_x_node_rec.attribute2 := p8_a21;
402 ddp_x_node_rec.attribute3 := p8_a22;
403 ddp_x_node_rec.attribute4 := p8_a23;
404 ddp_x_node_rec.attribute5 := p8_a24;
405 ddp_x_node_rec.attribute6 := p8_a25;
406 ddp_x_node_rec.attribute7 := p8_a26;
407 ddp_x_node_rec.attribute8 := p8_a27;
408 ddp_x_node_rec.attribute9 := p8_a28;
409 ddp_x_node_rec.attribute10 := p8_a29;
410 ddp_x_node_rec.attribute11 := p8_a30;
411 ddp_x_node_rec.attribute12 := p8_a31;
412 ddp_x_node_rec.attribute13 := p8_a32;
413 ddp_x_node_rec.attribute14 := p8_a33;
414 ddp_x_node_rec.attribute15 := p8_a34;
415 ddp_x_node_rec.operation_flag := p8_a35;
416 ddp_x_node_rec.parent_node_rec_index := p8_a36;
417
418 -- here's the delegated call to the old PL/SQL routine
419 ahl_mc_masterconfig_pvt.modify_master_config(p_api_version,
420 p_init_msg_list,
421 p_commit,
422 p_validation_level,
423 x_return_status,
424 x_msg_count,
425 x_msg_data,
426 ddp_x_mc_header_rec,
427 ddp_x_node_rec);
428
429 -- copy data back from the local variables to OUT or IN-OUT args, if any
430
431
432
433
434
435
436
437 p7_a0 := ddp_x_mc_header_rec.mc_header_id;
438 p7_a1 := ddp_x_mc_header_rec.name;
439 p7_a2 := ddp_x_mc_header_rec.description;
440 p7_a3 := ddp_x_mc_header_rec.mc_id;
441 p7_a4 := ddp_x_mc_header_rec.version_number;
442 p7_a5 := ddp_x_mc_header_rec.revision;
443 p7_a6 := ddp_x_mc_header_rec.model_code;
444 p7_a7 := ddp_x_mc_header_rec.model_meaning;
445 p7_a8 := ddp_x_mc_header_rec.config_status_code;
446 p7_a9 := ddp_x_mc_header_rec.config_status_meaning;
447 p7_a10 := ddp_x_mc_header_rec.object_version_number;
448 p7_a11 := ddp_x_mc_header_rec.security_group_id;
449 p7_a12 := ddp_x_mc_header_rec.attribute_category;
450 p7_a13 := ddp_x_mc_header_rec.attribute1;
451 p7_a14 := ddp_x_mc_header_rec.attribute2;
452 p7_a15 := ddp_x_mc_header_rec.attribute3;
453 p7_a16 := ddp_x_mc_header_rec.attribute4;
454 p7_a17 := ddp_x_mc_header_rec.attribute5;
455 p7_a18 := ddp_x_mc_header_rec.attribute6;
456 p7_a19 := ddp_x_mc_header_rec.attribute7;
457 p7_a20 := ddp_x_mc_header_rec.attribute8;
458 p7_a21 := ddp_x_mc_header_rec.attribute9;
459 p7_a22 := ddp_x_mc_header_rec.attribute10;
460 p7_a23 := ddp_x_mc_header_rec.attribute11;
461 p7_a24 := ddp_x_mc_header_rec.attribute12;
462 p7_a25 := ddp_x_mc_header_rec.attribute13;
463 p7_a26 := ddp_x_mc_header_rec.attribute14;
464 p7_a27 := ddp_x_mc_header_rec.attribute15;
465 p7_a28 := ddp_x_mc_header_rec.operation_flag;
466
467 p8_a0 := ddp_x_node_rec.relationship_id;
468 p8_a1 := ddp_x_node_rec.mc_header_id;
469 p8_a2 := ddp_x_node_rec.position_key;
470 p8_a3 := ddp_x_node_rec.position_ref_code;
471 p8_a4 := ddp_x_node_rec.position_ref_meaning;
472 p8_a5 := ddp_x_node_rec.ata_code;
473 p8_a6 := ddp_x_node_rec.ata_meaning;
474 p8_a7 := ddp_x_node_rec.position_necessity_code;
475 p8_a8 := ddp_x_node_rec.position_necessity_meaning;
476 p8_a9 := ddp_x_node_rec.uom_code;
477 p8_a10 := ddp_x_node_rec.quantity;
478 p8_a11 := ddp_x_node_rec.parent_relationship_id;
479 p8_a12 := ddp_x_node_rec.item_group_id;
483 p8_a16 := ddp_x_node_rec.active_end_date;
480 p8_a13 := ddp_x_node_rec.item_group_name;
481 p8_a14 := ddp_x_node_rec.display_order;
482 p8_a15 := ddp_x_node_rec.active_start_date;
484 p8_a17 := ddp_x_node_rec.object_version_number;
485 p8_a18 := ddp_x_node_rec.security_group_id;
486 p8_a19 := ddp_x_node_rec.attribute_category;
487 p8_a20 := ddp_x_node_rec.attribute1;
488 p8_a21 := ddp_x_node_rec.attribute2;
489 p8_a22 := ddp_x_node_rec.attribute3;
490 p8_a23 := ddp_x_node_rec.attribute4;
491 p8_a24 := ddp_x_node_rec.attribute5;
492 p8_a25 := ddp_x_node_rec.attribute6;
493 p8_a26 := ddp_x_node_rec.attribute7;
494 p8_a27 := ddp_x_node_rec.attribute8;
495 p8_a28 := ddp_x_node_rec.attribute9;
496 p8_a29 := ddp_x_node_rec.attribute10;
497 p8_a30 := ddp_x_node_rec.attribute11;
498 p8_a31 := ddp_x_node_rec.attribute12;
499 p8_a32 := ddp_x_node_rec.attribute13;
500 p8_a33 := ddp_x_node_rec.attribute14;
501 p8_a34 := ddp_x_node_rec.attribute15;
502 p8_a35 := ddp_x_node_rec.operation_flag;
503 p8_a36 := ddp_x_node_rec.parent_node_rec_index;
504 end;
505
506 procedure copy_master_config(p_api_version NUMBER
507 , p_init_msg_list VARCHAR2
508 , p_commit VARCHAR2
509 , p_validation_level NUMBER
510 , x_return_status out nocopy VARCHAR2
511 , x_msg_count out nocopy NUMBER
512 , x_msg_data out nocopy VARCHAR2
513 , p7_a0 in out nocopy NUMBER
514 , p7_a1 in out nocopy VARCHAR2
515 , p7_a2 in out nocopy VARCHAR2
516 , p7_a3 in out nocopy NUMBER
517 , p7_a4 in out nocopy NUMBER
518 , p7_a5 in out nocopy VARCHAR2
519 , p7_a6 in out nocopy VARCHAR2
520 , p7_a7 in out nocopy VARCHAR2
521 , p7_a8 in out nocopy VARCHAR2
522 , p7_a9 in out nocopy VARCHAR2
523 , p7_a10 in out nocopy NUMBER
524 , p7_a11 in out nocopy NUMBER
525 , p7_a12 in out nocopy VARCHAR2
526 , p7_a13 in out nocopy VARCHAR2
527 , p7_a14 in out nocopy VARCHAR2
528 , p7_a15 in out nocopy VARCHAR2
529 , p7_a16 in out nocopy VARCHAR2
530 , p7_a17 in out nocopy VARCHAR2
531 , p7_a18 in out nocopy VARCHAR2
532 , p7_a19 in out nocopy VARCHAR2
533 , p7_a20 in out nocopy VARCHAR2
534 , p7_a21 in out nocopy VARCHAR2
535 , p7_a22 in out nocopy VARCHAR2
536 , p7_a23 in out nocopy VARCHAR2
537 , p7_a24 in out nocopy VARCHAR2
538 , p7_a25 in out nocopy VARCHAR2
539 , p7_a26 in out nocopy VARCHAR2
540 , p7_a27 in out nocopy VARCHAR2
541 , p7_a28 in out nocopy VARCHAR2
542 , p8_a0 in out nocopy NUMBER
543 , p8_a1 in out nocopy NUMBER
544 , p8_a2 in out nocopy NUMBER
545 , p8_a3 in out nocopy VARCHAR2
546 , p8_a4 in out nocopy VARCHAR2
547 , p8_a5 in out nocopy VARCHAR2
548 , p8_a6 in out nocopy VARCHAR2
549 , p8_a7 in out nocopy VARCHAR2
550 , p8_a8 in out nocopy VARCHAR2
551 , p8_a9 in out nocopy VARCHAR2
552 , p8_a10 in out nocopy NUMBER
553 , p8_a11 in out nocopy NUMBER
554 , p8_a12 in out nocopy NUMBER
555 , p8_a13 in out nocopy VARCHAR2
556 , p8_a14 in out nocopy NUMBER
557 , p8_a15 in out nocopy DATE
558 , p8_a16 in out nocopy DATE
559 , p8_a17 in out nocopy NUMBER
560 , p8_a18 in out nocopy NUMBER
561 , p8_a19 in out nocopy VARCHAR2
562 , p8_a20 in out nocopy VARCHAR2
563 , p8_a21 in out nocopy VARCHAR2
564 , p8_a22 in out nocopy VARCHAR2
565 , p8_a23 in out nocopy VARCHAR2
566 , p8_a24 in out nocopy VARCHAR2
567 , p8_a25 in out nocopy VARCHAR2
568 , p8_a26 in out nocopy VARCHAR2
569 , p8_a27 in out nocopy VARCHAR2
570 , p8_a28 in out nocopy VARCHAR2
571 , p8_a29 in out nocopy VARCHAR2
572 , p8_a30 in out nocopy VARCHAR2
573 , p8_a31 in out nocopy VARCHAR2
574 , p8_a32 in out nocopy VARCHAR2
575 , p8_a33 in out nocopy VARCHAR2
576 , p8_a34 in out nocopy VARCHAR2
577 , p8_a35 in out nocopy VARCHAR2
578 , p8_a36 in out nocopy NUMBER
579 )
580
581 as
582 ddp_x_mc_header_rec ahl_mc_masterconfig_pvt.header_rec_type;
583 ddp_x_node_rec ahl_mc_node_pvt.node_rec_type;
584 ddindx binary_integer; indx binary_integer;
585 begin
586
587 -- copy data to the local IN or IN-OUT args, if any
588
589
590
591
592
593
594
595 ddp_x_mc_header_rec.mc_header_id := p7_a0;
596 ddp_x_mc_header_rec.name := p7_a1;
597 ddp_x_mc_header_rec.description := p7_a2;
598 ddp_x_mc_header_rec.mc_id := p7_a3;
599 ddp_x_mc_header_rec.version_number := p7_a4;
600 ddp_x_mc_header_rec.revision := p7_a5;
601 ddp_x_mc_header_rec.model_code := p7_a6;
602 ddp_x_mc_header_rec.model_meaning := p7_a7;
603 ddp_x_mc_header_rec.config_status_code := p7_a8;
604 ddp_x_mc_header_rec.config_status_meaning := p7_a9;
605 ddp_x_mc_header_rec.object_version_number := p7_a10;
606 ddp_x_mc_header_rec.security_group_id := p7_a11;
607 ddp_x_mc_header_rec.attribute_category := p7_a12;
608 ddp_x_mc_header_rec.attribute1 := p7_a13;
609 ddp_x_mc_header_rec.attribute2 := p7_a14;
610 ddp_x_mc_header_rec.attribute3 := p7_a15;
611 ddp_x_mc_header_rec.attribute4 := p7_a16;
615 ddp_x_mc_header_rec.attribute8 := p7_a20;
612 ddp_x_mc_header_rec.attribute5 := p7_a17;
613 ddp_x_mc_header_rec.attribute6 := p7_a18;
614 ddp_x_mc_header_rec.attribute7 := p7_a19;
616 ddp_x_mc_header_rec.attribute9 := p7_a21;
617 ddp_x_mc_header_rec.attribute10 := p7_a22;
618 ddp_x_mc_header_rec.attribute11 := p7_a23;
619 ddp_x_mc_header_rec.attribute12 := p7_a24;
620 ddp_x_mc_header_rec.attribute13 := p7_a25;
621 ddp_x_mc_header_rec.attribute14 := p7_a26;
622 ddp_x_mc_header_rec.attribute15 := p7_a27;
623 ddp_x_mc_header_rec.operation_flag := p7_a28;
624
625 ddp_x_node_rec.relationship_id := p8_a0;
626 ddp_x_node_rec.mc_header_id := p8_a1;
627 ddp_x_node_rec.position_key := p8_a2;
628 ddp_x_node_rec.position_ref_code := p8_a3;
629 ddp_x_node_rec.position_ref_meaning := p8_a4;
630 ddp_x_node_rec.ata_code := p8_a5;
631 ddp_x_node_rec.ata_meaning := p8_a6;
632 ddp_x_node_rec.position_necessity_code := p8_a7;
633 ddp_x_node_rec.position_necessity_meaning := p8_a8;
634 ddp_x_node_rec.uom_code := p8_a9;
635 ddp_x_node_rec.quantity := p8_a10;
636 ddp_x_node_rec.parent_relationship_id := p8_a11;
637 ddp_x_node_rec.item_group_id := p8_a12;
638 ddp_x_node_rec.item_group_name := p8_a13;
639 ddp_x_node_rec.display_order := p8_a14;
640 ddp_x_node_rec.active_start_date := rosetta_g_miss_date_in_map(p8_a15);
641 ddp_x_node_rec.active_end_date := rosetta_g_miss_date_in_map(p8_a16);
642 ddp_x_node_rec.object_version_number := p8_a17;
643 ddp_x_node_rec.security_group_id := p8_a18;
644 ddp_x_node_rec.attribute_category := p8_a19;
645 ddp_x_node_rec.attribute1 := p8_a20;
646 ddp_x_node_rec.attribute2 := p8_a21;
647 ddp_x_node_rec.attribute3 := p8_a22;
648 ddp_x_node_rec.attribute4 := p8_a23;
649 ddp_x_node_rec.attribute5 := p8_a24;
650 ddp_x_node_rec.attribute6 := p8_a25;
651 ddp_x_node_rec.attribute7 := p8_a26;
652 ddp_x_node_rec.attribute8 := p8_a27;
653 ddp_x_node_rec.attribute9 := p8_a28;
654 ddp_x_node_rec.attribute10 := p8_a29;
655 ddp_x_node_rec.attribute11 := p8_a30;
656 ddp_x_node_rec.attribute12 := p8_a31;
657 ddp_x_node_rec.attribute13 := p8_a32;
658 ddp_x_node_rec.attribute14 := p8_a33;
659 ddp_x_node_rec.attribute15 := p8_a34;
660 ddp_x_node_rec.operation_flag := p8_a35;
661 ddp_x_node_rec.parent_node_rec_index := p8_a36;
662
663 -- here's the delegated call to the old PL/SQL routine
664 ahl_mc_masterconfig_pvt.copy_master_config(p_api_version,
665 p_init_msg_list,
666 p_commit,
667 p_validation_level,
668 x_return_status,
669 x_msg_count,
670 x_msg_data,
671 ddp_x_mc_header_rec,
672 ddp_x_node_rec);
673
674 -- copy data back from the local variables to OUT or IN-OUT args, if any
675
676
677
678
679
680
681
682 p7_a0 := ddp_x_mc_header_rec.mc_header_id;
683 p7_a1 := ddp_x_mc_header_rec.name;
684 p7_a2 := ddp_x_mc_header_rec.description;
685 p7_a3 := ddp_x_mc_header_rec.mc_id;
686 p7_a4 := ddp_x_mc_header_rec.version_number;
687 p7_a5 := ddp_x_mc_header_rec.revision;
688 p7_a6 := ddp_x_mc_header_rec.model_code;
689 p7_a7 := ddp_x_mc_header_rec.model_meaning;
690 p7_a8 := ddp_x_mc_header_rec.config_status_code;
691 p7_a9 := ddp_x_mc_header_rec.config_status_meaning;
692 p7_a10 := ddp_x_mc_header_rec.object_version_number;
693 p7_a11 := ddp_x_mc_header_rec.security_group_id;
694 p7_a12 := ddp_x_mc_header_rec.attribute_category;
695 p7_a13 := ddp_x_mc_header_rec.attribute1;
696 p7_a14 := ddp_x_mc_header_rec.attribute2;
697 p7_a15 := ddp_x_mc_header_rec.attribute3;
698 p7_a16 := ddp_x_mc_header_rec.attribute4;
699 p7_a17 := ddp_x_mc_header_rec.attribute5;
700 p7_a18 := ddp_x_mc_header_rec.attribute6;
701 p7_a19 := ddp_x_mc_header_rec.attribute7;
702 p7_a20 := ddp_x_mc_header_rec.attribute8;
703 p7_a21 := ddp_x_mc_header_rec.attribute9;
704 p7_a22 := ddp_x_mc_header_rec.attribute10;
705 p7_a23 := ddp_x_mc_header_rec.attribute11;
706 p7_a24 := ddp_x_mc_header_rec.attribute12;
707 p7_a25 := ddp_x_mc_header_rec.attribute13;
708 p7_a26 := ddp_x_mc_header_rec.attribute14;
709 p7_a27 := ddp_x_mc_header_rec.attribute15;
710 p7_a28 := ddp_x_mc_header_rec.operation_flag;
711
712 p8_a0 := ddp_x_node_rec.relationship_id;
713 p8_a1 := ddp_x_node_rec.mc_header_id;
714 p8_a2 := ddp_x_node_rec.position_key;
715 p8_a3 := ddp_x_node_rec.position_ref_code;
716 p8_a4 := ddp_x_node_rec.position_ref_meaning;
717 p8_a5 := ddp_x_node_rec.ata_code;
718 p8_a6 := ddp_x_node_rec.ata_meaning;
719 p8_a7 := ddp_x_node_rec.position_necessity_code;
720 p8_a8 := ddp_x_node_rec.position_necessity_meaning;
721 p8_a9 := ddp_x_node_rec.uom_code;
722 p8_a10 := ddp_x_node_rec.quantity;
723 p8_a11 := ddp_x_node_rec.parent_relationship_id;
724 p8_a12 := ddp_x_node_rec.item_group_id;
725 p8_a13 := ddp_x_node_rec.item_group_name;
726 p8_a14 := ddp_x_node_rec.display_order;
727 p8_a15 := ddp_x_node_rec.active_start_date;
728 p8_a16 := ddp_x_node_rec.active_end_date;
729 p8_a17 := ddp_x_node_rec.object_version_number;
730 p8_a18 := ddp_x_node_rec.security_group_id;
731 p8_a19 := ddp_x_node_rec.attribute_category;
732 p8_a20 := ddp_x_node_rec.attribute1;
733 p8_a21 := ddp_x_node_rec.attribute2;
734 p8_a22 := ddp_x_node_rec.attribute3;
735 p8_a23 := ddp_x_node_rec.attribute4;
736 p8_a24 := ddp_x_node_rec.attribute5;
737 p8_a25 := ddp_x_node_rec.attribute6;
738 p8_a26 := ddp_x_node_rec.attribute7;
739 p8_a27 := ddp_x_node_rec.attribute8;
740 p8_a28 := ddp_x_node_rec.attribute9;
741 p8_a29 := ddp_x_node_rec.attribute10;
742 p8_a30 := ddp_x_node_rec.attribute11;
743 p8_a31 := ddp_x_node_rec.attribute12;
744 p8_a32 := ddp_x_node_rec.attribute13;
745 p8_a33 := ddp_x_node_rec.attribute14;
746 p8_a34 := ddp_x_node_rec.attribute15;
747 p8_a35 := ddp_x_node_rec.operation_flag;
748 p8_a36 := ddp_x_node_rec.parent_node_rec_index;
749 end;
750
751 end ahl_mc_masterconfig_pvt_w;