[Home] [Help]
PACKAGE BODY: APPS.AHL_MC_MASTERCONFIG_PUB_W
Source
1 package body ahl_mc_masterconfig_pub_w as
2 /* $Header: AHLPMCWB.pls 120.1.12010000.2 2008/11/06 09:54:49 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 process_master_config(p_api_version NUMBER
17 , p_init_msg_list VARCHAR2
18 , p_commit VARCHAR2
19 , p_validation_level NUMBER
20 , p_module_type VARCHAR2
21 , x_return_status out nocopy VARCHAR2
22 , x_msg_count out nocopy NUMBER
23 , x_msg_data out nocopy VARCHAR2
24 , p8_a0 in out nocopy NUMBER
25 , p8_a1 in out nocopy VARCHAR2
26 , p8_a2 in out nocopy VARCHAR2
27 , p8_a3 in out nocopy NUMBER
28 , p8_a4 in out nocopy NUMBER
29 , p8_a5 in out nocopy VARCHAR2
30 , p8_a6 in out nocopy VARCHAR2
31 , p8_a7 in out nocopy VARCHAR2
32 , p8_a8 in out nocopy VARCHAR2
33 , p8_a9 in out nocopy VARCHAR2
34 , p8_a10 in out nocopy NUMBER
35 , p8_a11 in out nocopy NUMBER
36 , p8_a12 in out nocopy VARCHAR2
37 , p8_a13 in out nocopy VARCHAR2
38 , p8_a14 in out nocopy VARCHAR2
39 , p8_a15 in out nocopy VARCHAR2
40 , p8_a16 in out nocopy VARCHAR2
41 , p8_a17 in out nocopy VARCHAR2
42 , p8_a18 in out nocopy VARCHAR2
43 , p8_a19 in out nocopy VARCHAR2
44 , p8_a20 in out nocopy VARCHAR2
45 , p8_a21 in out nocopy VARCHAR2
46 , p8_a22 in out nocopy VARCHAR2
47 , p8_a23 in out nocopy VARCHAR2
48 , p8_a24 in out nocopy VARCHAR2
49 , p8_a25 in out nocopy VARCHAR2
50 , p8_a26 in out nocopy VARCHAR2
51 , p8_a27 in out nocopy VARCHAR2
52 , p8_a28 in out nocopy VARCHAR2
53 , p9_a0 in out nocopy NUMBER
54 , p9_a1 in out nocopy NUMBER
55 , p9_a2 in out nocopy NUMBER
56 , p9_a3 in out nocopy VARCHAR2
57 , p9_a4 in out nocopy VARCHAR2
58 , p9_a5 in out nocopy VARCHAR2
59 , p9_a6 in out nocopy VARCHAR2
60 , p9_a7 in out nocopy VARCHAR2
61 , p9_a8 in out nocopy VARCHAR2
62 , p9_a9 in out nocopy VARCHAR2
63 , p9_a10 in out nocopy NUMBER
64 , p9_a11 in out nocopy NUMBER
65 , p9_a12 in out nocopy NUMBER
66 , p9_a13 in out nocopy VARCHAR2
67 , p9_a14 in out nocopy NUMBER
68 , p9_a15 in out nocopy DATE
69 , p9_a16 in out nocopy DATE
70 , p9_a17 in out nocopy NUMBER
71 , p9_a18 in out nocopy NUMBER
72 , p9_a19 in out nocopy VARCHAR2
73 , p9_a20 in out nocopy VARCHAR2
74 , p9_a21 in out nocopy VARCHAR2
75 , p9_a22 in out nocopy VARCHAR2
76 , p9_a23 in out nocopy VARCHAR2
77 , p9_a24 in out nocopy VARCHAR2
78 , p9_a25 in out nocopy VARCHAR2
79 , p9_a26 in out nocopy VARCHAR2
80 , p9_a27 in out nocopy VARCHAR2
81 , p9_a28 in out nocopy VARCHAR2
82 , p9_a29 in out nocopy VARCHAR2
83 , p9_a30 in out nocopy VARCHAR2
84 , p9_a31 in out nocopy VARCHAR2
85 , p9_a32 in out nocopy VARCHAR2
86 , p9_a33 in out nocopy VARCHAR2
87 , p9_a34 in out nocopy VARCHAR2
88 , p9_a35 in out nocopy VARCHAR2
89 , p9_a36 in out nocopy NUMBER
90 )
91
92 as
93 ddp_x_mc_header_rec ahl_mc_masterconfig_pvt.header_rec_type;
94 ddp_x_node_rec ahl_mc_node_pvt.node_rec_type;
95 ddindx binary_integer; indx binary_integer;
96 begin
97
98 -- copy data to the local IN or IN-OUT args, if any
99
100
101
102
103
104
105
106
107 ddp_x_mc_header_rec.mc_header_id := p8_a0;
108 ddp_x_mc_header_rec.name := p8_a1;
109 ddp_x_mc_header_rec.description := p8_a2;
110 ddp_x_mc_header_rec.mc_id := p8_a3;
111 ddp_x_mc_header_rec.version_number := p8_a4;
112 ddp_x_mc_header_rec.revision := p8_a5;
113 ddp_x_mc_header_rec.model_code := p8_a6;
114 ddp_x_mc_header_rec.model_meaning := p8_a7;
115 ddp_x_mc_header_rec.config_status_code := p8_a8;
116 ddp_x_mc_header_rec.config_status_meaning := p8_a9;
117 ddp_x_mc_header_rec.object_version_number := p8_a10;
118 ddp_x_mc_header_rec.security_group_id := p8_a11;
119 ddp_x_mc_header_rec.attribute_category := p8_a12;
120 ddp_x_mc_header_rec.attribute1 := p8_a13;
121 ddp_x_mc_header_rec.attribute2 := p8_a14;
122 ddp_x_mc_header_rec.attribute3 := p8_a15;
123 ddp_x_mc_header_rec.attribute4 := p8_a16;
124 ddp_x_mc_header_rec.attribute5 := p8_a17;
125 ddp_x_mc_header_rec.attribute6 := p8_a18;
126 ddp_x_mc_header_rec.attribute7 := p8_a19;
127 ddp_x_mc_header_rec.attribute8 := p8_a20;
128 ddp_x_mc_header_rec.attribute9 := p8_a21;
129 ddp_x_mc_header_rec.attribute10 := p8_a22;
130 ddp_x_mc_header_rec.attribute11 := p8_a23;
131 ddp_x_mc_header_rec.attribute12 := p8_a24;
132 ddp_x_mc_header_rec.attribute13 := p8_a25;
133 ddp_x_mc_header_rec.attribute14 := p8_a26;
134 ddp_x_mc_header_rec.attribute15 := p8_a27;
135 ddp_x_mc_header_rec.operation_flag := p8_a28;
136
137 ddp_x_node_rec.relationship_id := p9_a0;
138 ddp_x_node_rec.mc_header_id := p9_a1;
139 ddp_x_node_rec.position_key := p9_a2;
140 ddp_x_node_rec.position_ref_code := p9_a3;
141 ddp_x_node_rec.position_ref_meaning := p9_a4;
142 ddp_x_node_rec.ata_code := p9_a5;
143 ddp_x_node_rec.ata_meaning := p9_a6;
144 ddp_x_node_rec.position_necessity_code := p9_a7;
145 ddp_x_node_rec.position_necessity_meaning := p9_a8;
146 ddp_x_node_rec.uom_code := p9_a9;
147 ddp_x_node_rec.quantity := p9_a10;
148 ddp_x_node_rec.parent_relationship_id := p9_a11;
149 ddp_x_node_rec.item_group_id := p9_a12;
150 ddp_x_node_rec.item_group_name := p9_a13;
151 ddp_x_node_rec.display_order := p9_a14;
152 ddp_x_node_rec.active_start_date := rosetta_g_miss_date_in_map(p9_a15);
153 ddp_x_node_rec.active_end_date := rosetta_g_miss_date_in_map(p9_a16);
154 ddp_x_node_rec.object_version_number := p9_a17;
155 ddp_x_node_rec.security_group_id := p9_a18;
156 ddp_x_node_rec.attribute_category := p9_a19;
157 ddp_x_node_rec.attribute1 := p9_a20;
158 ddp_x_node_rec.attribute2 := p9_a21;
159 ddp_x_node_rec.attribute3 := p9_a22;
160 ddp_x_node_rec.attribute4 := p9_a23;
161 ddp_x_node_rec.attribute5 := p9_a24;
162 ddp_x_node_rec.attribute6 := p9_a25;
163 ddp_x_node_rec.attribute7 := p9_a26;
164 ddp_x_node_rec.attribute8 := p9_a27;
165 ddp_x_node_rec.attribute9 := p9_a28;
166 ddp_x_node_rec.attribute10 := p9_a29;
167 ddp_x_node_rec.attribute11 := p9_a30;
168 ddp_x_node_rec.attribute12 := p9_a31;
169 ddp_x_node_rec.attribute13 := p9_a32;
170 ddp_x_node_rec.attribute14 := p9_a33;
171 ddp_x_node_rec.attribute15 := p9_a34;
172 ddp_x_node_rec.operation_flag := p9_a35;
173 ddp_x_node_rec.parent_node_rec_index := p9_a36;
174
175 -- here's the delegated call to the old PL/SQL routine
176 ahl_mc_masterconfig_pub.process_master_config(p_api_version,
177 p_init_msg_list,
178 p_commit,
179 p_validation_level,
180 p_module_type,
181 x_return_status,
182 x_msg_count,
183 x_msg_data,
184 ddp_x_mc_header_rec,
185 ddp_x_node_rec);
186
187 -- copy data back from the local variables to OUT or IN-OUT args, if any
188
189
190
191
192
193
194
195
196 p8_a0 := ddp_x_mc_header_rec.mc_header_id;
197 p8_a1 := ddp_x_mc_header_rec.name;
198 p8_a2 := ddp_x_mc_header_rec.description;
199 p8_a3 := ddp_x_mc_header_rec.mc_id;
200 p8_a4 := ddp_x_mc_header_rec.version_number;
201 p8_a5 := ddp_x_mc_header_rec.revision;
202 p8_a6 := ddp_x_mc_header_rec.model_code;
203 p8_a7 := ddp_x_mc_header_rec.model_meaning;
204 p8_a8 := ddp_x_mc_header_rec.config_status_code;
205 p8_a9 := ddp_x_mc_header_rec.config_status_meaning;
206 p8_a10 := ddp_x_mc_header_rec.object_version_number;
207 p8_a11 := ddp_x_mc_header_rec.security_group_id;
208 p8_a12 := ddp_x_mc_header_rec.attribute_category;
209 p8_a13 := ddp_x_mc_header_rec.attribute1;
210 p8_a14 := ddp_x_mc_header_rec.attribute2;
211 p8_a15 := ddp_x_mc_header_rec.attribute3;
212 p8_a16 := ddp_x_mc_header_rec.attribute4;
213 p8_a17 := ddp_x_mc_header_rec.attribute5;
214 p8_a18 := ddp_x_mc_header_rec.attribute6;
215 p8_a19 := ddp_x_mc_header_rec.attribute7;
216 p8_a20 := ddp_x_mc_header_rec.attribute8;
217 p8_a21 := ddp_x_mc_header_rec.attribute9;
218 p8_a22 := ddp_x_mc_header_rec.attribute10;
219 p8_a23 := ddp_x_mc_header_rec.attribute11;
220 p8_a24 := ddp_x_mc_header_rec.attribute12;
221 p8_a25 := ddp_x_mc_header_rec.attribute13;
222 p8_a26 := ddp_x_mc_header_rec.attribute14;
223 p8_a27 := ddp_x_mc_header_rec.attribute15;
224 p8_a28 := ddp_x_mc_header_rec.operation_flag;
225
226 p9_a0 := ddp_x_node_rec.relationship_id;
227 p9_a1 := ddp_x_node_rec.mc_header_id;
228 p9_a2 := ddp_x_node_rec.position_key;
229 p9_a3 := ddp_x_node_rec.position_ref_code;
230 p9_a4 := ddp_x_node_rec.position_ref_meaning;
231 p9_a5 := ddp_x_node_rec.ata_code;
232 p9_a6 := ddp_x_node_rec.ata_meaning;
233 p9_a7 := ddp_x_node_rec.position_necessity_code;
234 p9_a8 := ddp_x_node_rec.position_necessity_meaning;
235 p9_a9 := ddp_x_node_rec.uom_code;
236 p9_a10 := ddp_x_node_rec.quantity;
237 p9_a11 := ddp_x_node_rec.parent_relationship_id;
238 p9_a12 := ddp_x_node_rec.item_group_id;
239 p9_a13 := ddp_x_node_rec.item_group_name;
240 p9_a14 := ddp_x_node_rec.display_order;
241 p9_a15 := ddp_x_node_rec.active_start_date;
242 p9_a16 := ddp_x_node_rec.active_end_date;
243 p9_a17 := ddp_x_node_rec.object_version_number;
244 p9_a18 := ddp_x_node_rec.security_group_id;
245 p9_a19 := ddp_x_node_rec.attribute_category;
246 p9_a20 := ddp_x_node_rec.attribute1;
247 p9_a21 := ddp_x_node_rec.attribute2;
248 p9_a22 := ddp_x_node_rec.attribute3;
249 p9_a23 := ddp_x_node_rec.attribute4;
250 p9_a24 := ddp_x_node_rec.attribute5;
251 p9_a25 := ddp_x_node_rec.attribute6;
252 p9_a26 := ddp_x_node_rec.attribute7;
253 p9_a27 := ddp_x_node_rec.attribute8;
254 p9_a28 := ddp_x_node_rec.attribute9;
255 p9_a29 := ddp_x_node_rec.attribute10;
256 p9_a30 := ddp_x_node_rec.attribute11;
257 p9_a31 := ddp_x_node_rec.attribute12;
258 p9_a32 := ddp_x_node_rec.attribute13;
259 p9_a33 := ddp_x_node_rec.attribute14;
260 p9_a34 := ddp_x_node_rec.attribute15;
261 p9_a35 := ddp_x_node_rec.operation_flag;
262 p9_a36 := ddp_x_node_rec.parent_node_rec_index;
263 end;
264
265 end ahl_mc_masterconfig_pub_w;