[Home] [Help]
PACKAGE BODY: APPS.AHL_WBS_RULES_PVT_W
Source
1 package body ahl_wbs_rules_pvt_w as
2 /* $Header: AHLWWBSB.pls 120.0.12020000.2 2012/12/11 06:05:30 prakkum noship $ */
3 procedure create_rule(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 DATE
14 , p8_a3 in out nocopy NUMBER
15 , p8_a4 in out nocopy DATE
16 , p8_a5 in out nocopy NUMBER
17 , p8_a6 in out nocopy NUMBER
18 , p8_a7 in out nocopy NUMBER
19 , p8_a8 in out nocopy VARCHAR2
20 , p8_a9 in out nocopy VARCHAR2
21 , p8_a10 in out nocopy VARCHAR2
22 , p8_a11 in out nocopy VARCHAR2
23 , p8_a12 in out nocopy VARCHAR2
24 , p8_a13 in out nocopy VARCHAR2
25 , p8_a14 in out nocopy VARCHAR2
26 , p8_a15 in out nocopy VARCHAR2
27 , p8_a16 in out nocopy VARCHAR2
28 , p8_a17 in out nocopy VARCHAR2
29 , p8_a18 in out nocopy VARCHAR2
30 , p8_a19 in out nocopy VARCHAR2
31 , p8_a20 in out nocopy VARCHAR2
32 , p8_a21 in out nocopy NUMBER
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 VARCHAR2
48 , p8_a37 in out nocopy VARCHAR2
49 )
50
51 as
52 ddp_x_wbs_rules_rec ahl_wbs_rules_pvt.wbs_rules_rec_type;
53 ddindx binary_integer; indx binary_integer;
54 begin
55
56 -- copy data to the local IN or IN-OUT args, if any
57
58
59
60
61
62
63
64
65 ddp_x_wbs_rules_rec.rule_id := p8_a0;
66 ddp_x_wbs_rules_rec.object_version_number := p8_a1;
67 ddp_x_wbs_rules_rec.last_update_date := p8_a2;
68 ddp_x_wbs_rules_rec.last_updated_by := p8_a3;
69 ddp_x_wbs_rules_rec.creation_date := p8_a4;
70 ddp_x_wbs_rules_rec.created_by := p8_a5;
71 ddp_x_wbs_rules_rec.last_update_login := p8_a6;
72 ddp_x_wbs_rules_rec.rule_number := p8_a7;
73 ddp_x_wbs_rules_rec.rule_text := p8_a8;
74 ddp_x_wbs_rules_rec.pre_route_number := p8_a9;
75 ddp_x_wbs_rules_rec.pre_route_type_code := p8_a10;
76 ddp_x_wbs_rules_rec.pre_system_code := p8_a11;
77 ddp_x_wbs_rules_rec.pre_process_code := p8_a12;
78 ddp_x_wbs_rules_rec.post_route_number := p8_a13;
79 ddp_x_wbs_rules_rec.post_route_type_code := p8_a14;
80 ddp_x_wbs_rules_rec.post_system_code := p8_a15;
81 ddp_x_wbs_rules_rec.post_process_code := p8_a16;
82 ddp_x_wbs_rules_rec.pre_route_type_meaning := p8_a17;
83 ddp_x_wbs_rules_rec.pre_process_meaning := p8_a18;
84 ddp_x_wbs_rules_rec.post_route_type_meaning := p8_a19;
85 ddp_x_wbs_rules_rec.post_process_meaning := p8_a20;
86 ddp_x_wbs_rules_rec.security_group_id := p8_a21;
87 ddp_x_wbs_rules_rec.attribute_category := p8_a22;
88 ddp_x_wbs_rules_rec.attribute1 := p8_a23;
89 ddp_x_wbs_rules_rec.attribute2 := p8_a24;
90 ddp_x_wbs_rules_rec.attribute3 := p8_a25;
91 ddp_x_wbs_rules_rec.attribute4 := p8_a26;
92 ddp_x_wbs_rules_rec.attribute5 := p8_a27;
93 ddp_x_wbs_rules_rec.attribute6 := p8_a28;
94 ddp_x_wbs_rules_rec.attribute7 := p8_a29;
95 ddp_x_wbs_rules_rec.attribute8 := p8_a30;
96 ddp_x_wbs_rules_rec.attribute9 := p8_a31;
97 ddp_x_wbs_rules_rec.attribute10 := p8_a32;
98 ddp_x_wbs_rules_rec.attribute11 := p8_a33;
99 ddp_x_wbs_rules_rec.attribute12 := p8_a34;
100 ddp_x_wbs_rules_rec.attribute13 := p8_a35;
101 ddp_x_wbs_rules_rec.attribute14 := p8_a36;
102 ddp_x_wbs_rules_rec.attribute15 := p8_a37;
103
104 -- here's the delegated call to the old PL/SQL routine
105 ahl_wbs_rules_pvt.create_rule(p_api_version,
106 p_init_msg_list,
107 p_commit,
108 p_validation_level,
109 p_module_type,
110 x_return_status,
111 x_msg_count,
112 x_msg_data,
113 ddp_x_wbs_rules_rec);
114
115 -- copy data back from the local variables to OUT or IN-OUT args, if any
116
117
118
119
120
121
122
123
124 p8_a0 := ddp_x_wbs_rules_rec.rule_id;
125 p8_a1 := ddp_x_wbs_rules_rec.object_version_number;
126 p8_a2 := ddp_x_wbs_rules_rec.last_update_date;
127 p8_a3 := ddp_x_wbs_rules_rec.last_updated_by;
128 p8_a4 := ddp_x_wbs_rules_rec.creation_date;
129 p8_a5 := ddp_x_wbs_rules_rec.created_by;
130 p8_a6 := ddp_x_wbs_rules_rec.last_update_login;
131 p8_a7 := ddp_x_wbs_rules_rec.rule_number;
132 p8_a8 := ddp_x_wbs_rules_rec.rule_text;
133 p8_a9 := ddp_x_wbs_rules_rec.pre_route_number;
134 p8_a10 := ddp_x_wbs_rules_rec.pre_route_type_code;
135 p8_a11 := ddp_x_wbs_rules_rec.pre_system_code;
136 p8_a12 := ddp_x_wbs_rules_rec.pre_process_code;
137 p8_a13 := ddp_x_wbs_rules_rec.post_route_number;
138 p8_a14 := ddp_x_wbs_rules_rec.post_route_type_code;
139 p8_a15 := ddp_x_wbs_rules_rec.post_system_code;
140 p8_a16 := ddp_x_wbs_rules_rec.post_process_code;
141 p8_a17 := ddp_x_wbs_rules_rec.pre_route_type_meaning;
142 p8_a18 := ddp_x_wbs_rules_rec.pre_process_meaning;
143 p8_a19 := ddp_x_wbs_rules_rec.post_route_type_meaning;
144 p8_a20 := ddp_x_wbs_rules_rec.post_process_meaning;
145 p8_a21 := ddp_x_wbs_rules_rec.security_group_id;
146 p8_a22 := ddp_x_wbs_rules_rec.attribute_category;
147 p8_a23 := ddp_x_wbs_rules_rec.attribute1;
148 p8_a24 := ddp_x_wbs_rules_rec.attribute2;
149 p8_a25 := ddp_x_wbs_rules_rec.attribute3;
150 p8_a26 := ddp_x_wbs_rules_rec.attribute4;
151 p8_a27 := ddp_x_wbs_rules_rec.attribute5;
152 p8_a28 := ddp_x_wbs_rules_rec.attribute6;
153 p8_a29 := ddp_x_wbs_rules_rec.attribute7;
154 p8_a30 := ddp_x_wbs_rules_rec.attribute8;
155 p8_a31 := ddp_x_wbs_rules_rec.attribute9;
156 p8_a32 := ddp_x_wbs_rules_rec.attribute10;
157 p8_a33 := ddp_x_wbs_rules_rec.attribute11;
158 p8_a34 := ddp_x_wbs_rules_rec.attribute12;
159 p8_a35 := ddp_x_wbs_rules_rec.attribute13;
160 p8_a36 := ddp_x_wbs_rules_rec.attribute14;
161 p8_a37 := ddp_x_wbs_rules_rec.attribute15;
162 end;
163
164 procedure update_rule(p_api_version NUMBER
165 , p_init_msg_list VARCHAR2
166 , p_commit VARCHAR2
167 , p_validation_level NUMBER
168 , p_module_type VARCHAR2
169 , x_return_status out nocopy VARCHAR2
170 , x_msg_count out nocopy NUMBER
171 , x_msg_data out nocopy VARCHAR2
172 , p8_a0 in out nocopy NUMBER
173 , p8_a1 in out nocopy NUMBER
174 , p8_a2 in out nocopy DATE
175 , p8_a3 in out nocopy NUMBER
176 , p8_a4 in out nocopy DATE
177 , p8_a5 in out nocopy NUMBER
178 , p8_a6 in out nocopy NUMBER
179 , p8_a7 in out nocopy NUMBER
180 , p8_a8 in out nocopy VARCHAR2
181 , p8_a9 in out nocopy VARCHAR2
182 , p8_a10 in out nocopy VARCHAR2
183 , p8_a11 in out nocopy VARCHAR2
184 , p8_a12 in out nocopy VARCHAR2
185 , p8_a13 in out nocopy VARCHAR2
186 , p8_a14 in out nocopy VARCHAR2
187 , p8_a15 in out nocopy VARCHAR2
188 , p8_a16 in out nocopy VARCHAR2
189 , p8_a17 in out nocopy VARCHAR2
190 , p8_a18 in out nocopy VARCHAR2
191 , p8_a19 in out nocopy VARCHAR2
192 , p8_a20 in out nocopy VARCHAR2
193 , p8_a21 in out nocopy NUMBER
194 , p8_a22 in out nocopy VARCHAR2
195 , p8_a23 in out nocopy VARCHAR2
196 , p8_a24 in out nocopy VARCHAR2
197 , p8_a25 in out nocopy VARCHAR2
198 , p8_a26 in out nocopy VARCHAR2
199 , p8_a27 in out nocopy VARCHAR2
200 , p8_a28 in out nocopy VARCHAR2
201 , p8_a29 in out nocopy VARCHAR2
202 , p8_a30 in out nocopy VARCHAR2
203 , p8_a31 in out nocopy VARCHAR2
204 , p8_a32 in out nocopy VARCHAR2
205 , p8_a33 in out nocopy VARCHAR2
206 , p8_a34 in out nocopy VARCHAR2
207 , p8_a35 in out nocopy VARCHAR2
208 , p8_a36 in out nocopy VARCHAR2
209 , p8_a37 in out nocopy VARCHAR2
210 )
211
212 as
213 ddp_x_wbs_rules_rec ahl_wbs_rules_pvt.wbs_rules_rec_type;
214 ddindx binary_integer; indx binary_integer;
215 begin
216
217 -- copy data to the local IN or IN-OUT args, if any
218
219
220
221
222
223
224
225
226 ddp_x_wbs_rules_rec.rule_id := p8_a0;
227 ddp_x_wbs_rules_rec.object_version_number := p8_a1;
228 ddp_x_wbs_rules_rec.last_update_date := p8_a2;
229 ddp_x_wbs_rules_rec.last_updated_by := p8_a3;
230 ddp_x_wbs_rules_rec.creation_date := p8_a4;
231 ddp_x_wbs_rules_rec.created_by := p8_a5;
232 ddp_x_wbs_rules_rec.last_update_login := p8_a6;
233 ddp_x_wbs_rules_rec.rule_number := p8_a7;
234 ddp_x_wbs_rules_rec.rule_text := p8_a8;
235 ddp_x_wbs_rules_rec.pre_route_number := p8_a9;
236 ddp_x_wbs_rules_rec.pre_route_type_code := p8_a10;
237 ddp_x_wbs_rules_rec.pre_system_code := p8_a11;
238 ddp_x_wbs_rules_rec.pre_process_code := p8_a12;
239 ddp_x_wbs_rules_rec.post_route_number := p8_a13;
240 ddp_x_wbs_rules_rec.post_route_type_code := p8_a14;
241 ddp_x_wbs_rules_rec.post_system_code := p8_a15;
242 ddp_x_wbs_rules_rec.post_process_code := p8_a16;
243 ddp_x_wbs_rules_rec.pre_route_type_meaning := p8_a17;
244 ddp_x_wbs_rules_rec.pre_process_meaning := p8_a18;
245 ddp_x_wbs_rules_rec.post_route_type_meaning := p8_a19;
246 ddp_x_wbs_rules_rec.post_process_meaning := p8_a20;
247 ddp_x_wbs_rules_rec.security_group_id := p8_a21;
248 ddp_x_wbs_rules_rec.attribute_category := p8_a22;
249 ddp_x_wbs_rules_rec.attribute1 := p8_a23;
250 ddp_x_wbs_rules_rec.attribute2 := p8_a24;
251 ddp_x_wbs_rules_rec.attribute3 := p8_a25;
252 ddp_x_wbs_rules_rec.attribute4 := p8_a26;
253 ddp_x_wbs_rules_rec.attribute5 := p8_a27;
254 ddp_x_wbs_rules_rec.attribute6 := p8_a28;
255 ddp_x_wbs_rules_rec.attribute7 := p8_a29;
256 ddp_x_wbs_rules_rec.attribute8 := p8_a30;
257 ddp_x_wbs_rules_rec.attribute9 := p8_a31;
258 ddp_x_wbs_rules_rec.attribute10 := p8_a32;
259 ddp_x_wbs_rules_rec.attribute11 := p8_a33;
260 ddp_x_wbs_rules_rec.attribute12 := p8_a34;
261 ddp_x_wbs_rules_rec.attribute13 := p8_a35;
262 ddp_x_wbs_rules_rec.attribute14 := p8_a36;
263 ddp_x_wbs_rules_rec.attribute15 := p8_a37;
264
265 -- here's the delegated call to the old PL/SQL routine
266 ahl_wbs_rules_pvt.update_rule(p_api_version,
267 p_init_msg_list,
268 p_commit,
269 p_validation_level,
270 p_module_type,
271 x_return_status,
272 x_msg_count,
273 x_msg_data,
274 ddp_x_wbs_rules_rec);
275
276 -- copy data back from the local variables to OUT or IN-OUT args, if any
277
278
279
280
281
282
283
284
285 p8_a0 := ddp_x_wbs_rules_rec.rule_id;
286 p8_a1 := ddp_x_wbs_rules_rec.object_version_number;
287 p8_a2 := ddp_x_wbs_rules_rec.last_update_date;
288 p8_a3 := ddp_x_wbs_rules_rec.last_updated_by;
289 p8_a4 := ddp_x_wbs_rules_rec.creation_date;
290 p8_a5 := ddp_x_wbs_rules_rec.created_by;
291 p8_a6 := ddp_x_wbs_rules_rec.last_update_login;
292 p8_a7 := ddp_x_wbs_rules_rec.rule_number;
293 p8_a8 := ddp_x_wbs_rules_rec.rule_text;
294 p8_a9 := ddp_x_wbs_rules_rec.pre_route_number;
295 p8_a10 := ddp_x_wbs_rules_rec.pre_route_type_code;
296 p8_a11 := ddp_x_wbs_rules_rec.pre_system_code;
297 p8_a12 := ddp_x_wbs_rules_rec.pre_process_code;
298 p8_a13 := ddp_x_wbs_rules_rec.post_route_number;
299 p8_a14 := ddp_x_wbs_rules_rec.post_route_type_code;
300 p8_a15 := ddp_x_wbs_rules_rec.post_system_code;
301 p8_a16 := ddp_x_wbs_rules_rec.post_process_code;
302 p8_a17 := ddp_x_wbs_rules_rec.pre_route_type_meaning;
303 p8_a18 := ddp_x_wbs_rules_rec.pre_process_meaning;
304 p8_a19 := ddp_x_wbs_rules_rec.post_route_type_meaning;
305 p8_a20 := ddp_x_wbs_rules_rec.post_process_meaning;
306 p8_a21 := ddp_x_wbs_rules_rec.security_group_id;
307 p8_a22 := ddp_x_wbs_rules_rec.attribute_category;
308 p8_a23 := ddp_x_wbs_rules_rec.attribute1;
309 p8_a24 := ddp_x_wbs_rules_rec.attribute2;
310 p8_a25 := ddp_x_wbs_rules_rec.attribute3;
311 p8_a26 := ddp_x_wbs_rules_rec.attribute4;
312 p8_a27 := ddp_x_wbs_rules_rec.attribute5;
313 p8_a28 := ddp_x_wbs_rules_rec.attribute6;
314 p8_a29 := ddp_x_wbs_rules_rec.attribute7;
315 p8_a30 := ddp_x_wbs_rules_rec.attribute8;
316 p8_a31 := ddp_x_wbs_rules_rec.attribute9;
317 p8_a32 := ddp_x_wbs_rules_rec.attribute10;
318 p8_a33 := ddp_x_wbs_rules_rec.attribute11;
319 p8_a34 := ddp_x_wbs_rules_rec.attribute12;
320 p8_a35 := ddp_x_wbs_rules_rec.attribute13;
321 p8_a36 := ddp_x_wbs_rules_rec.attribute14;
322 p8_a37 := ddp_x_wbs_rules_rec.attribute15;
323 end;
324
325 end ahl_wbs_rules_pvt_w;