eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.AHL_MC_NODE_PUB_W

Source


1 package body ahl_mc_node_pub_w as
2   /* $Header: AHLPNOWB.pls 120.1 2005/07/30 23:05 tamdas noship $ */
3   procedure process_node(p_api_version  NUMBER
4     , p_init_msg_list  VARCHAR2
5     , p_commit  VARCHAR2
6     , p_validation_level  NUMBER
7     , p_module_type  VARCHAR2
8     , x_return_status out nocopy  VARCHAR2
9     , x_msg_count out nocopy  NUMBER
10     , x_msg_data out nocopy  VARCHAR2
11     , p8_a0 in out nocopy  NUMBER
12     , p8_a1 in out nocopy  NUMBER
13     , p8_a2 in out nocopy  NUMBER
14     , p8_a3 in out nocopy  VARCHAR2
15     , p8_a4 in out nocopy  VARCHAR2
16     , p8_a5 in out nocopy  VARCHAR2
17     , p8_a6 in out nocopy  VARCHAR2
18     , p8_a7 in out nocopy  VARCHAR2
19     , p8_a8 in out nocopy  VARCHAR2
20     , p8_a9 in out nocopy  VARCHAR2
21     , p8_a10 in out nocopy  NUMBER
22     , p8_a11 in out nocopy  NUMBER
23     , p8_a12 in out nocopy  NUMBER
24     , p8_a13 in out nocopy  VARCHAR2
25     , p8_a14 in out nocopy  NUMBER
26     , p8_a15 in out nocopy  DATE
27     , p8_a16 in out nocopy  DATE
28     , p8_a17 in out nocopy  NUMBER
29     , p8_a18 in out nocopy  NUMBER
30     , p8_a19 in out nocopy  VARCHAR2
31     , p8_a20 in out nocopy  VARCHAR2
32     , p8_a21 in out nocopy  VARCHAR2
33     , p8_a22 in out nocopy  VARCHAR2
34     , p8_a23 in out nocopy  VARCHAR2
35     , p8_a24 in out nocopy  VARCHAR2
36     , p8_a25 in out nocopy  VARCHAR2
37     , p8_a26 in out nocopy  VARCHAR2
38     , p8_a27 in out nocopy  VARCHAR2
39     , p8_a28 in out nocopy  VARCHAR2
40     , p8_a29 in out nocopy  VARCHAR2
41     , p8_a30 in out nocopy  VARCHAR2
42     , p8_a31 in out nocopy  VARCHAR2
43     , p8_a32 in out nocopy  VARCHAR2
44     , p8_a33 in out nocopy  VARCHAR2
45     , p8_a34 in out nocopy  VARCHAR2
46     , p8_a35 in out nocopy  VARCHAR2
47     , p8_a36 in out nocopy  NUMBER
48     , p9_a0 in out nocopy JTF_NUMBER_TABLE
49     , p9_a1 in out nocopy JTF_NUMBER_TABLE
50     , p9_a2 in out nocopy JTF_VARCHAR2_TABLE_100
51     , p9_a3 in out nocopy JTF_VARCHAR2_TABLE_100
52     , p9_a4 in out nocopy JTF_VARCHAR2_TABLE_100
53     , p9_a5 in out nocopy JTF_NUMBER_TABLE
54     , p9_a6 in out nocopy JTF_NUMBER_TABLE
55     , p9_a7 in out nocopy JTF_NUMBER_TABLE
56     , p9_a8 in out nocopy JTF_VARCHAR2_TABLE_100
57     , p9_a9 in out nocopy JTF_VARCHAR2_TABLE_200
58     , p9_a10 in out nocopy JTF_VARCHAR2_TABLE_200
59     , p9_a11 in out nocopy JTF_VARCHAR2_TABLE_200
60     , p9_a12 in out nocopy JTF_VARCHAR2_TABLE_200
61     , p9_a13 in out nocopy JTF_VARCHAR2_TABLE_200
62     , p9_a14 in out nocopy JTF_VARCHAR2_TABLE_200
63     , p9_a15 in out nocopy JTF_VARCHAR2_TABLE_200
64     , p9_a16 in out nocopy JTF_VARCHAR2_TABLE_200
65     , p9_a17 in out nocopy JTF_VARCHAR2_TABLE_200
66     , p9_a18 in out nocopy JTF_VARCHAR2_TABLE_200
67     , p9_a19 in out nocopy JTF_VARCHAR2_TABLE_200
68     , p9_a20 in out nocopy JTF_VARCHAR2_TABLE_200
69     , p9_a21 in out nocopy JTF_VARCHAR2_TABLE_200
70     , p9_a22 in out nocopy JTF_VARCHAR2_TABLE_200
71     , p9_a23 in out nocopy JTF_VARCHAR2_TABLE_200
72     , p9_a24 in out nocopy JTF_VARCHAR2_TABLE_100
73     , p9_a25 in out nocopy JTF_NUMBER_TABLE
74     , p10_a0 in out nocopy JTF_NUMBER_TABLE
75     , p10_a1 in out nocopy JTF_NUMBER_TABLE
76     , p10_a2 in out nocopy JTF_VARCHAR2_TABLE_100
77     , p10_a3 in out nocopy JTF_NUMBER_TABLE
78     , p10_a4 in out nocopy JTF_NUMBER_TABLE
79     , p10_a5 in out nocopy JTF_DATE_TABLE
80     , p10_a6 in out nocopy JTF_DATE_TABLE
81     , p10_a7 in out nocopy JTF_NUMBER_TABLE
82     , p10_a8 in out nocopy JTF_NUMBER_TABLE
83     , p10_a9 in out nocopy JTF_NUMBER_TABLE
84     , p10_a10 in out nocopy JTF_VARCHAR2_TABLE_100
85     , p10_a11 in out nocopy JTF_VARCHAR2_TABLE_200
86     , p10_a12 in out nocopy JTF_VARCHAR2_TABLE_200
87     , p10_a13 in out nocopy JTF_VARCHAR2_TABLE_200
88     , p10_a14 in out nocopy JTF_VARCHAR2_TABLE_200
89     , p10_a15 in out nocopy JTF_VARCHAR2_TABLE_200
90     , p10_a16 in out nocopy JTF_VARCHAR2_TABLE_200
91     , p10_a17 in out nocopy JTF_VARCHAR2_TABLE_200
92     , p10_a18 in out nocopy JTF_VARCHAR2_TABLE_200
93     , p10_a19 in out nocopy JTF_VARCHAR2_TABLE_200
94     , p10_a20 in out nocopy JTF_VARCHAR2_TABLE_200
95     , p10_a21 in out nocopy JTF_VARCHAR2_TABLE_200
96     , p10_a22 in out nocopy JTF_VARCHAR2_TABLE_200
97     , p10_a23 in out nocopy JTF_VARCHAR2_TABLE_200
98     , p10_a24 in out nocopy JTF_VARCHAR2_TABLE_200
99     , p10_a25 in out nocopy JTF_VARCHAR2_TABLE_200
100     , p10_a26 in out nocopy JTF_VARCHAR2_TABLE_100
101   )
102 
103   as
104     ddp_x_node_rec ahl_mc_node_pvt.node_rec_type;
105     ddp_x_counter_rules_tbl ahl_mc_node_pvt.counter_rules_tbl_type;
106     ddp_x_subconfig_tbl ahl_mc_node_pvt.subconfig_tbl_type;
107     ddindx binary_integer; indx binary_integer;
108   begin
109 
110     -- copy data to the local IN or IN-OUT args, if any
111 
112 
113 
114 
115 
116 
117 
118 
119     ddp_x_node_rec.relationship_id := p8_a0;
120     ddp_x_node_rec.mc_header_id := p8_a1;
121     ddp_x_node_rec.position_key := p8_a2;
122     ddp_x_node_rec.position_ref_code := p8_a3;
123     ddp_x_node_rec.position_ref_meaning := p8_a4;
124     ddp_x_node_rec.ata_code := p8_a5;
125     ddp_x_node_rec.ata_meaning := p8_a6;
126     ddp_x_node_rec.position_necessity_code := p8_a7;
127     ddp_x_node_rec.position_necessity_meaning := p8_a8;
128     ddp_x_node_rec.uom_code := p8_a9;
129     ddp_x_node_rec.quantity := p8_a10;
130     ddp_x_node_rec.parent_relationship_id := p8_a11;
131     ddp_x_node_rec.item_group_id := p8_a12;
132     ddp_x_node_rec.item_group_name := p8_a13;
133     ddp_x_node_rec.display_order := p8_a14;
134     ddp_x_node_rec.active_start_date := p8_a15;
135     ddp_x_node_rec.active_end_date := p8_a16;
136     ddp_x_node_rec.object_version_number := p8_a17;
137     ddp_x_node_rec.security_group_id := p8_a18;
138     ddp_x_node_rec.attribute_category := p8_a19;
139     ddp_x_node_rec.attribute1 := p8_a20;
140     ddp_x_node_rec.attribute2 := p8_a21;
141     ddp_x_node_rec.attribute3 := p8_a22;
142     ddp_x_node_rec.attribute4 := p8_a23;
143     ddp_x_node_rec.attribute5 := p8_a24;
144     ddp_x_node_rec.attribute6 := p8_a25;
145     ddp_x_node_rec.attribute7 := p8_a26;
146     ddp_x_node_rec.attribute8 := p8_a27;
147     ddp_x_node_rec.attribute9 := p8_a28;
148     ddp_x_node_rec.attribute10 := p8_a29;
149     ddp_x_node_rec.attribute11 := p8_a30;
150     ddp_x_node_rec.attribute12 := p8_a31;
151     ddp_x_node_rec.attribute13 := p8_a32;
152     ddp_x_node_rec.attribute14 := p8_a33;
153     ddp_x_node_rec.attribute15 := p8_a34;
154     ddp_x_node_rec.operation_flag := p8_a35;
155     ddp_x_node_rec.parent_node_rec_index := p8_a36;
156 
157     ahl_mc_node_pvt_w.rosetta_table_copy_in_p8(ddp_x_counter_rules_tbl, p9_a0
158       , p9_a1
159       , p9_a2
160       , p9_a3
161       , p9_a4
162       , p9_a5
163       , p9_a6
164       , p9_a7
165       , p9_a8
166       , p9_a9
167       , p9_a10
168       , p9_a11
169       , p9_a12
170       , p9_a13
171       , p9_a14
172       , p9_a15
173       , p9_a16
174       , p9_a17
175       , p9_a18
176       , p9_a19
177       , p9_a20
178       , p9_a21
179       , p9_a22
180       , p9_a23
181       , p9_a24
182       , p9_a25
183       );
184 
185     ahl_mc_node_pvt_w.rosetta_table_copy_in_p10(ddp_x_subconfig_tbl, p10_a0
186       , p10_a1
187       , p10_a2
188       , p10_a3
189       , p10_a4
190       , p10_a5
191       , p10_a6
192       , p10_a7
193       , p10_a8
194       , p10_a9
195       , p10_a10
196       , p10_a11
197       , p10_a12
198       , p10_a13
199       , p10_a14
200       , p10_a15
201       , p10_a16
202       , p10_a17
203       , p10_a18
204       , p10_a19
205       , p10_a20
206       , p10_a21
207       , p10_a22
208       , p10_a23
209       , p10_a24
210       , p10_a25
211       , p10_a26
212       );
213 
214     -- here's the delegated call to the old PL/SQL routine
215     ahl_mc_node_pub.process_node(p_api_version,
216       p_init_msg_list,
217       p_commit,
218       p_validation_level,
219       p_module_type,
220       x_return_status,
221       x_msg_count,
222       x_msg_data,
223       ddp_x_node_rec,
224       ddp_x_counter_rules_tbl,
225       ddp_x_subconfig_tbl);
226 
227     -- copy data back from the local variables to OUT or IN-OUT args, if any
228 
229 
230 
231 
232 
233 
234 
235 
236     p8_a0 := ddp_x_node_rec.relationship_id;
237     p8_a1 := ddp_x_node_rec.mc_header_id;
238     p8_a2 := ddp_x_node_rec.position_key;
239     p8_a3 := ddp_x_node_rec.position_ref_code;
240     p8_a4 := ddp_x_node_rec.position_ref_meaning;
241     p8_a5 := ddp_x_node_rec.ata_code;
242     p8_a6 := ddp_x_node_rec.ata_meaning;
243     p8_a7 := ddp_x_node_rec.position_necessity_code;
244     p8_a8 := ddp_x_node_rec.position_necessity_meaning;
245     p8_a9 := ddp_x_node_rec.uom_code;
246     p8_a10 := ddp_x_node_rec.quantity;
247     p8_a11 := ddp_x_node_rec.parent_relationship_id;
248     p8_a12 := ddp_x_node_rec.item_group_id;
249     p8_a13 := ddp_x_node_rec.item_group_name;
250     p8_a14 := ddp_x_node_rec.display_order;
251     p8_a15 := ddp_x_node_rec.active_start_date;
252     p8_a16 := ddp_x_node_rec.active_end_date;
253     p8_a17 := ddp_x_node_rec.object_version_number;
254     p8_a18 := ddp_x_node_rec.security_group_id;
255     p8_a19 := ddp_x_node_rec.attribute_category;
256     p8_a20 := ddp_x_node_rec.attribute1;
257     p8_a21 := ddp_x_node_rec.attribute2;
258     p8_a22 := ddp_x_node_rec.attribute3;
259     p8_a23 := ddp_x_node_rec.attribute4;
260     p8_a24 := ddp_x_node_rec.attribute5;
261     p8_a25 := ddp_x_node_rec.attribute6;
262     p8_a26 := ddp_x_node_rec.attribute7;
263     p8_a27 := ddp_x_node_rec.attribute8;
264     p8_a28 := ddp_x_node_rec.attribute9;
265     p8_a29 := ddp_x_node_rec.attribute10;
266     p8_a30 := ddp_x_node_rec.attribute11;
267     p8_a31 := ddp_x_node_rec.attribute12;
268     p8_a32 := ddp_x_node_rec.attribute13;
269     p8_a33 := ddp_x_node_rec.attribute14;
270     p8_a34 := ddp_x_node_rec.attribute15;
271     p8_a35 := ddp_x_node_rec.operation_flag;
272     p8_a36 := ddp_x_node_rec.parent_node_rec_index;
273 
274     ahl_mc_node_pvt_w.rosetta_table_copy_out_p8(ddp_x_counter_rules_tbl, p9_a0
275       , p9_a1
276       , p9_a2
277       , p9_a3
278       , p9_a4
279       , p9_a5
280       , p9_a6
281       , p9_a7
282       , p9_a8
283       , p9_a9
284       , p9_a10
285       , p9_a11
286       , p9_a12
287       , p9_a13
288       , p9_a14
289       , p9_a15
290       , p9_a16
291       , p9_a17
292       , p9_a18
293       , p9_a19
294       , p9_a20
295       , p9_a21
296       , p9_a22
297       , p9_a23
301 
298       , p9_a24
299       , p9_a25
300       );
302     ahl_mc_node_pvt_w.rosetta_table_copy_out_p10(ddp_x_subconfig_tbl, p10_a0
303       , p10_a1
304       , p10_a2
305       , p10_a3
306       , p10_a4
307       , p10_a5
308       , p10_a6
309       , p10_a7
310       , p10_a8
311       , p10_a9
312       , p10_a10
313       , p10_a11
314       , p10_a12
315       , p10_a13
316       , p10_a14
317       , p10_a15
318       , p10_a16
319       , p10_a17
320       , p10_a18
321       , p10_a19
322       , p10_a20
323       , p10_a21
324       , p10_a22
325       , p10_a23
326       , p10_a24
327       , p10_a25
328       , p10_a26
329       );
330   end;
331 
332   procedure delete_nodes(p_api_version  NUMBER
333     , p_init_msg_list  VARCHAR2
334     , p_commit  VARCHAR2
335     , p_validation_level  NUMBER
336     , x_return_status out nocopy  VARCHAR2
337     , x_msg_count out nocopy  NUMBER
338     , x_msg_data out nocopy  VARCHAR2
339     , p7_a0 JTF_NUMBER_TABLE
340     , p7_a1 JTF_NUMBER_TABLE
341     , p7_a2 JTF_NUMBER_TABLE
342     , p7_a3 JTF_VARCHAR2_TABLE_100
343     , p7_a4 JTF_VARCHAR2_TABLE_100
344     , p7_a5 JTF_VARCHAR2_TABLE_100
345     , p7_a6 JTF_VARCHAR2_TABLE_100
346     , p7_a7 JTF_VARCHAR2_TABLE_100
347     , p7_a8 JTF_VARCHAR2_TABLE_100
348     , p7_a9 JTF_VARCHAR2_TABLE_100
349     , p7_a10 JTF_NUMBER_TABLE
350     , p7_a11 JTF_NUMBER_TABLE
351     , p7_a12 JTF_NUMBER_TABLE
352     , p7_a13 JTF_VARCHAR2_TABLE_100
353     , p7_a14 JTF_NUMBER_TABLE
354     , p7_a15 JTF_DATE_TABLE
355     , p7_a16 JTF_DATE_TABLE
356     , p7_a17 JTF_NUMBER_TABLE
357     , p7_a18 JTF_NUMBER_TABLE
358     , p7_a19 JTF_VARCHAR2_TABLE_100
359     , p7_a20 JTF_VARCHAR2_TABLE_200
360     , p7_a21 JTF_VARCHAR2_TABLE_200
361     , p7_a22 JTF_VARCHAR2_TABLE_200
362     , p7_a23 JTF_VARCHAR2_TABLE_200
363     , p7_a24 JTF_VARCHAR2_TABLE_200
364     , p7_a25 JTF_VARCHAR2_TABLE_200
365     , p7_a26 JTF_VARCHAR2_TABLE_200
366     , p7_a27 JTF_VARCHAR2_TABLE_200
367     , p7_a28 JTF_VARCHAR2_TABLE_200
368     , p7_a29 JTF_VARCHAR2_TABLE_200
369     , p7_a30 JTF_VARCHAR2_TABLE_200
370     , p7_a31 JTF_VARCHAR2_TABLE_200
371     , p7_a32 JTF_VARCHAR2_TABLE_200
372     , p7_a33 JTF_VARCHAR2_TABLE_200
373     , p7_a34 JTF_VARCHAR2_TABLE_200
374     , p7_a35 JTF_VARCHAR2_TABLE_100
375     , p7_a36 JTF_NUMBER_TABLE
376   )
377 
378   as
379     ddp_nodes_tbl ahl_mc_node_pvt.node_tbl_type;
380     ddindx binary_integer; indx binary_integer;
381   begin
382 
383     -- copy data to the local IN or IN-OUT args, if any
384 
385 
386 
387 
388 
389 
390 
391     ahl_mc_node_pvt_w.rosetta_table_copy_in_p6(ddp_nodes_tbl, p7_a0
392       , p7_a1
393       , p7_a2
394       , p7_a3
395       , p7_a4
396       , p7_a5
397       , p7_a6
398       , p7_a7
399       , p7_a8
400       , p7_a9
401       , p7_a10
402       , p7_a11
403       , p7_a12
404       , p7_a13
405       , p7_a14
406       , p7_a15
407       , p7_a16
408       , p7_a17
409       , p7_a18
410       , p7_a19
411       , p7_a20
412       , p7_a21
413       , p7_a22
414       , p7_a23
415       , p7_a24
416       , p7_a25
417       , p7_a26
418       , p7_a27
419       , p7_a28
420       , p7_a29
421       , p7_a30
422       , p7_a31
423       , p7_a32
424       , p7_a33
425       , p7_a34
426       , p7_a35
427       , p7_a36
428       );
429 
430     -- here's the delegated call to the old PL/SQL routine
431     ahl_mc_node_pub.delete_nodes(p_api_version,
432       p_init_msg_list,
433       p_commit,
434       p_validation_level,
435       x_return_status,
436       x_msg_count,
437       x_msg_data,
438       ddp_nodes_tbl);
439 
440     -- copy data back from the local variables to OUT or IN-OUT args, if any
441 
442 
443 
444 
445 
446 
447 
448   end;
449 
450 end ahl_mc_node_pub_w;