[Home] [Help]
PACKAGE BODY: APPS.AHL_FMP_MR_HEADER_PVT_W
Source
1 package body ahl_fmp_mr_header_pvt_w as
2 /* $Header: AHLWMRHB.pls 120.3.12020000.2 2012/12/13 06:14:02 shnatu 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_mr_header(p_api_version NUMBER
17 , p_init_msg_list VARCHAR2
18 , p_commit VARCHAR2
19 , p_validation_level NUMBER
20 , p_default VARCHAR2
21 , p_module_type VARCHAR2
22 , x_return_status out nocopy VARCHAR2
23 , x_msg_count out nocopy NUMBER
24 , x_msg_data out nocopy VARCHAR2
25 , p9_a0 in out nocopy NUMBER
26 , p9_a1 in out nocopy NUMBER
27 , p9_a2 in out nocopy DATE
28 , p9_a3 in out nocopy NUMBER
29 , p9_a4 in out nocopy DATE
30 , p9_a5 in out nocopy NUMBER
31 , p9_a6 in out nocopy NUMBER
32 , p9_a7 in out nocopy VARCHAR2
33 , p9_a8 in out nocopy VARCHAR2
34 , p9_a9 in out nocopy NUMBER
35 , p9_a10 in out nocopy VARCHAR2
36 , p9_a11 in out nocopy VARCHAR2
37 , p9_a12 in out nocopy VARCHAR2
38 , p9_a13 in out nocopy VARCHAR2
39 , p9_a14 in out nocopy VARCHAR2
40 , p9_a15 in out nocopy VARCHAR2
41 , p9_a16 in out nocopy VARCHAR2
42 , p9_a17 in out nocopy VARCHAR2
43 , p9_a18 in out nocopy VARCHAR2
44 , p9_a19 in out nocopy VARCHAR2
45 , p9_a20 in out nocopy VARCHAR2
46 , p9_a21 in out nocopy VARCHAR2
47 , p9_a22 in out nocopy DATE
48 , p9_a23 in out nocopy DATE
49 , p9_a24 in out nocopy VARCHAR2
50 , p9_a25 in out nocopy VARCHAR2
51 , p9_a26 in out nocopy VARCHAR2
52 , p9_a27 in out nocopy VARCHAR2
53 , p9_a28 in out nocopy VARCHAR2
54 , p9_a29 in out nocopy VARCHAR2
55 , p9_a30 in out nocopy VARCHAR2
56 , p9_a31 in out nocopy VARCHAR2
57 , p9_a32 in out nocopy NUMBER
58 , p9_a33 in out nocopy VARCHAR2
59 , p9_a34 in out nocopy VARCHAR2
60 , p9_a35 in out nocopy VARCHAR2
61 , p9_a36 in out nocopy VARCHAR2
62 , p9_a37 in out nocopy VARCHAR2
63 , p9_a38 in out nocopy NUMBER
64 , p9_a39 in out nocopy VARCHAR2
65 , p9_a40 in out nocopy VARCHAR2
66 , p9_a41 in out nocopy NUMBER
67 , p9_a42 in out nocopy VARCHAR2
68 , p9_a43 in out nocopy NUMBER
69 , p9_a44 in out nocopy VARCHAR2
70 , p9_a45 in out nocopy VARCHAR2
71 , p9_a46 in out nocopy VARCHAR2
72 , p9_a47 in out nocopy NUMBER
73 , p9_a48 in out nocopy VARCHAR2
74 , p9_a49 in out nocopy VARCHAR2
75 , p9_a50 in out nocopy VARCHAR2
76 , p9_a51 in out nocopy VARCHAR2
77 , p9_a52 in out nocopy VARCHAR2
78 , p9_a53 in out nocopy VARCHAR2
79 , p9_a54 in out nocopy VARCHAR2
80 , p9_a55 in out nocopy VARCHAR2
81 , p9_a56 in out nocopy VARCHAR2
82 , p9_a57 in out nocopy VARCHAR2
83 , p9_a58 in out nocopy VARCHAR2
84 , p9_a59 in out nocopy VARCHAR2
85 , p9_a60 in out nocopy VARCHAR2
86 , p9_a61 in out nocopy VARCHAR2
87 , p9_a62 in out nocopy VARCHAR2
88 , p9_a63 in out nocopy VARCHAR2
89 , p9_a64 in out nocopy VARCHAR2
90 , p9_a65 in out nocopy VARCHAR2
91 , p9_a66 in out nocopy VARCHAR2
92 , p9_a67 in out nocopy VARCHAR2
93 , p9_a68 in out nocopy VARCHAR2
94 , p9_a69 in out nocopy VARCHAR2
95 , p9_a70 in out nocopy VARCHAR2
96 , p9_a71 in out nocopy VARCHAR2
97 )
98
99 as
100 ddp_x_mr_header_rec ahl_fmp_mr_header_pvt.mr_header_rec;
101 ddindx binary_integer; indx binary_integer;
102 begin
103
104 -- copy data to the local IN or IN-OUT args, if any
105
106
107
108
109
110
111
112
113
114 ddp_x_mr_header_rec.mr_header_id := p9_a0;
115 ddp_x_mr_header_rec.object_version_number := p9_a1;
116 ddp_x_mr_header_rec.last_update_date := rosetta_g_miss_date_in_map(p9_a2);
117 ddp_x_mr_header_rec.last_updated_by := p9_a3;
118 ddp_x_mr_header_rec.creation_date := rosetta_g_miss_date_in_map(p9_a4);
119 ddp_x_mr_header_rec.created_by := p9_a5;
120 ddp_x_mr_header_rec.last_update_login := p9_a6;
121 ddp_x_mr_header_rec.title := p9_a7;
122 ddp_x_mr_header_rec.revision := p9_a8;
123 ddp_x_mr_header_rec.version_number := p9_a9;
124 ddp_x_mr_header_rec.category_code := p9_a10;
125 ddp_x_mr_header_rec.category := p9_a11;
126 ddp_x_mr_header_rec.program_type_code := p9_a12;
127 ddp_x_mr_header_rec.program_type := p9_a13;
128 ddp_x_mr_header_rec.program_subtype_code := p9_a14;
129 ddp_x_mr_header_rec.program_subtype := p9_a15;
130 ddp_x_mr_header_rec.service_type_code := p9_a16;
131 ddp_x_mr_header_rec.service_type := p9_a17;
132 ddp_x_mr_header_rec.mr_status_code := p9_a18;
133 ddp_x_mr_header_rec.mr_status := p9_a19;
134 ddp_x_mr_header_rec.implement_status_code := p9_a20;
135 ddp_x_mr_header_rec.implement_status := p9_a21;
136 ddp_x_mr_header_rec.effective_from := rosetta_g_miss_date_in_map(p9_a22);
137 ddp_x_mr_header_rec.effective_to := rosetta_g_miss_date_in_map(p9_a23);
138 ddp_x_mr_header_rec.repetitive_flag := p9_a24;
139 ddp_x_mr_header_rec.repetitive := p9_a25;
140 ddp_x_mr_header_rec.show_repetitive_code := p9_a26;
141 ddp_x_mr_header_rec.show_repetitive := p9_a27;
142 ddp_x_mr_header_rec.whichever_first_code := p9_a28;
143 ddp_x_mr_header_rec.whichever_first := p9_a29;
144 ddp_x_mr_header_rec.copy_accomplishment_flag := p9_a30;
145 ddp_x_mr_header_rec.copy_accomplishment := p9_a31;
146 ddp_x_mr_header_rec.preceding_mr_header_id := p9_a32;
147 ddp_x_mr_header_rec.preceding_mr_title := p9_a33;
148 ddp_x_mr_header_rec.preceding_mr_revision := p9_a34;
149 ddp_x_mr_header_rec.description := p9_a35;
150 ddp_x_mr_header_rec.comments := p9_a36;
151 ddp_x_mr_header_rec.superuser_role := p9_a37;
152 ddp_x_mr_header_rec.service_request_template_id := p9_a38;
153 ddp_x_mr_header_rec.type_code := p9_a39;
154 ddp_x_mr_header_rec.type_code_meaning := p9_a40;
155 ddp_x_mr_header_rec.down_time := p9_a41;
156 ddp_x_mr_header_rec.warranty_template_name := p9_a42;
157 ddp_x_mr_header_rec.warranty_template_id := p9_a43;
158 ddp_x_mr_header_rec.uom_code := p9_a44;
159 ddp_x_mr_header_rec.uom_meaning := p9_a45;
160 ddp_x_mr_header_rec.billing_item := p9_a46;
161 ddp_x_mr_header_rec.billing_item_id := p9_a47;
162 ddp_x_mr_header_rec.qa_inspection_type := p9_a48;
163 ddp_x_mr_header_rec.qa_inspection_type_code := p9_a49;
164 ddp_x_mr_header_rec.space_category := p9_a50;
165 ddp_x_mr_header_rec.space_category_code := p9_a51;
166 ddp_x_mr_header_rec.auto_signoff_flag := p9_a52;
167 ddp_x_mr_header_rec.copy_init_accompl_flag := p9_a53;
168 ddp_x_mr_header_rec.copy_deferrals_flag := p9_a54;
169 ddp_x_mr_header_rec.attribute_category := p9_a55;
170 ddp_x_mr_header_rec.attribute1 := p9_a56;
171 ddp_x_mr_header_rec.attribute2 := p9_a57;
172 ddp_x_mr_header_rec.attribute3 := p9_a58;
173 ddp_x_mr_header_rec.attribute4 := p9_a59;
174 ddp_x_mr_header_rec.attribute5 := p9_a60;
175 ddp_x_mr_header_rec.attribute6 := p9_a61;
176 ddp_x_mr_header_rec.attribute7 := p9_a62;
177 ddp_x_mr_header_rec.attribute8 := p9_a63;
178 ddp_x_mr_header_rec.attribute9 := p9_a64;
179 ddp_x_mr_header_rec.attribute10 := p9_a65;
180 ddp_x_mr_header_rec.attribute11 := p9_a66;
181 ddp_x_mr_header_rec.attribute12 := p9_a67;
182 ddp_x_mr_header_rec.attribute13 := p9_a68;
183 ddp_x_mr_header_rec.attribute14 := p9_a69;
184 ddp_x_mr_header_rec.attribute15 := p9_a70;
185 ddp_x_mr_header_rec.dml_operation := p9_a71;
186
187 -- here's the delegated call to the old PL/SQL routine
188 ahl_fmp_mr_header_pvt.create_mr_header(p_api_version,
189 p_init_msg_list,
190 p_commit,
191 p_validation_level,
192 p_default,
193 p_module_type,
194 x_return_status,
195 x_msg_count,
196 x_msg_data,
197 ddp_x_mr_header_rec);
198
199 -- copy data back from the local variables to OUT or IN-OUT args, if any
200
201
202
203
204
205
206
207
208
209 p9_a0 := ddp_x_mr_header_rec.mr_header_id;
210 p9_a1 := ddp_x_mr_header_rec.object_version_number;
211 p9_a2 := ddp_x_mr_header_rec.last_update_date;
212 p9_a3 := ddp_x_mr_header_rec.last_updated_by;
213 p9_a4 := ddp_x_mr_header_rec.creation_date;
214 p9_a5 := ddp_x_mr_header_rec.created_by;
215 p9_a6 := ddp_x_mr_header_rec.last_update_login;
216 p9_a7 := ddp_x_mr_header_rec.title;
217 p9_a8 := ddp_x_mr_header_rec.revision;
218 p9_a9 := ddp_x_mr_header_rec.version_number;
219 p9_a10 := ddp_x_mr_header_rec.category_code;
220 p9_a11 := ddp_x_mr_header_rec.category;
221 p9_a12 := ddp_x_mr_header_rec.program_type_code;
222 p9_a13 := ddp_x_mr_header_rec.program_type;
223 p9_a14 := ddp_x_mr_header_rec.program_subtype_code;
224 p9_a15 := ddp_x_mr_header_rec.program_subtype;
225 p9_a16 := ddp_x_mr_header_rec.service_type_code;
226 p9_a17 := ddp_x_mr_header_rec.service_type;
227 p9_a18 := ddp_x_mr_header_rec.mr_status_code;
228 p9_a19 := ddp_x_mr_header_rec.mr_status;
229 p9_a20 := ddp_x_mr_header_rec.implement_status_code;
230 p9_a21 := ddp_x_mr_header_rec.implement_status;
231 p9_a22 := ddp_x_mr_header_rec.effective_from;
232 p9_a23 := ddp_x_mr_header_rec.effective_to;
233 p9_a24 := ddp_x_mr_header_rec.repetitive_flag;
234 p9_a25 := ddp_x_mr_header_rec.repetitive;
235 p9_a26 := ddp_x_mr_header_rec.show_repetitive_code;
236 p9_a27 := ddp_x_mr_header_rec.show_repetitive;
237 p9_a28 := ddp_x_mr_header_rec.whichever_first_code;
238 p9_a29 := ddp_x_mr_header_rec.whichever_first;
239 p9_a30 := ddp_x_mr_header_rec.copy_accomplishment_flag;
240 p9_a31 := ddp_x_mr_header_rec.copy_accomplishment;
241 p9_a32 := ddp_x_mr_header_rec.preceding_mr_header_id;
242 p9_a33 := ddp_x_mr_header_rec.preceding_mr_title;
243 p9_a34 := ddp_x_mr_header_rec.preceding_mr_revision;
244 p9_a35 := ddp_x_mr_header_rec.description;
245 p9_a36 := ddp_x_mr_header_rec.comments;
246 p9_a37 := ddp_x_mr_header_rec.superuser_role;
247 p9_a38 := ddp_x_mr_header_rec.service_request_template_id;
248 p9_a39 := ddp_x_mr_header_rec.type_code;
249 p9_a40 := ddp_x_mr_header_rec.type_code_meaning;
250 p9_a41 := ddp_x_mr_header_rec.down_time;
251 p9_a42 := ddp_x_mr_header_rec.warranty_template_name;
252 p9_a43 := ddp_x_mr_header_rec.warranty_template_id;
253 p9_a44 := ddp_x_mr_header_rec.uom_code;
254 p9_a45 := ddp_x_mr_header_rec.uom_meaning;
255 p9_a46 := ddp_x_mr_header_rec.billing_item;
256 p9_a47 := ddp_x_mr_header_rec.billing_item_id;
257 p9_a48 := ddp_x_mr_header_rec.qa_inspection_type;
258 p9_a49 := ddp_x_mr_header_rec.qa_inspection_type_code;
259 p9_a50 := ddp_x_mr_header_rec.space_category;
260 p9_a51 := ddp_x_mr_header_rec.space_category_code;
261 p9_a52 := ddp_x_mr_header_rec.auto_signoff_flag;
262 p9_a53 := ddp_x_mr_header_rec.copy_init_accompl_flag;
263 p9_a54 := ddp_x_mr_header_rec.copy_deferrals_flag;
264 p9_a55 := ddp_x_mr_header_rec.attribute_category;
265 p9_a56 := ddp_x_mr_header_rec.attribute1;
266 p9_a57 := ddp_x_mr_header_rec.attribute2;
267 p9_a58 := ddp_x_mr_header_rec.attribute3;
268 p9_a59 := ddp_x_mr_header_rec.attribute4;
269 p9_a60 := ddp_x_mr_header_rec.attribute5;
270 p9_a61 := ddp_x_mr_header_rec.attribute6;
271 p9_a62 := ddp_x_mr_header_rec.attribute7;
272 p9_a63 := ddp_x_mr_header_rec.attribute8;
273 p9_a64 := ddp_x_mr_header_rec.attribute9;
274 p9_a65 := ddp_x_mr_header_rec.attribute10;
275 p9_a66 := ddp_x_mr_header_rec.attribute11;
276 p9_a67 := ddp_x_mr_header_rec.attribute12;
277 p9_a68 := ddp_x_mr_header_rec.attribute13;
278 p9_a69 := ddp_x_mr_header_rec.attribute14;
279 p9_a70 := ddp_x_mr_header_rec.attribute15;
280 p9_a71 := ddp_x_mr_header_rec.dml_operation;
281 end;
282
283 procedure update_mr_header(p_api_version NUMBER
284 , p_init_msg_list VARCHAR2
285 , p_commit VARCHAR2
286 , p_validation_level NUMBER
287 , p_default VARCHAR2
288 , p_module_type VARCHAR2
289 , x_return_status out nocopy VARCHAR2
290 , x_msg_count out nocopy NUMBER
291 , x_msg_data out nocopy VARCHAR2
292 , p9_a0 in out nocopy NUMBER
293 , p9_a1 in out nocopy NUMBER
294 , p9_a2 in out nocopy DATE
295 , p9_a3 in out nocopy NUMBER
296 , p9_a4 in out nocopy DATE
297 , p9_a5 in out nocopy NUMBER
298 , p9_a6 in out nocopy NUMBER
299 , p9_a7 in out nocopy VARCHAR2
300 , p9_a8 in out nocopy VARCHAR2
301 , p9_a9 in out nocopy NUMBER
302 , p9_a10 in out nocopy VARCHAR2
303 , p9_a11 in out nocopy VARCHAR2
304 , p9_a12 in out nocopy VARCHAR2
305 , p9_a13 in out nocopy VARCHAR2
306 , p9_a14 in out nocopy VARCHAR2
307 , p9_a15 in out nocopy VARCHAR2
308 , p9_a16 in out nocopy VARCHAR2
309 , p9_a17 in out nocopy VARCHAR2
310 , p9_a18 in out nocopy VARCHAR2
311 , p9_a19 in out nocopy VARCHAR2
312 , p9_a20 in out nocopy VARCHAR2
313 , p9_a21 in out nocopy VARCHAR2
314 , p9_a22 in out nocopy DATE
315 , p9_a23 in out nocopy DATE
316 , p9_a24 in out nocopy VARCHAR2
317 , p9_a25 in out nocopy VARCHAR2
318 , p9_a26 in out nocopy VARCHAR2
319 , p9_a27 in out nocopy VARCHAR2
320 , p9_a28 in out nocopy VARCHAR2
321 , p9_a29 in out nocopy VARCHAR2
322 , p9_a30 in out nocopy VARCHAR2
323 , p9_a31 in out nocopy VARCHAR2
324 , p9_a32 in out nocopy NUMBER
325 , p9_a33 in out nocopy VARCHAR2
326 , p9_a34 in out nocopy VARCHAR2
327 , p9_a35 in out nocopy VARCHAR2
328 , p9_a36 in out nocopy VARCHAR2
329 , p9_a37 in out nocopy VARCHAR2
330 , p9_a38 in out nocopy NUMBER
331 , p9_a39 in out nocopy VARCHAR2
332 , p9_a40 in out nocopy VARCHAR2
333 , p9_a41 in out nocopy NUMBER
334 , p9_a42 in out nocopy VARCHAR2
335 , p9_a43 in out nocopy NUMBER
336 , p9_a44 in out nocopy VARCHAR2
337 , p9_a45 in out nocopy VARCHAR2
338 , p9_a46 in out nocopy VARCHAR2
339 , p9_a47 in out nocopy NUMBER
340 , p9_a48 in out nocopy VARCHAR2
341 , p9_a49 in out nocopy VARCHAR2
342 , p9_a50 in out nocopy VARCHAR2
343 , p9_a51 in out nocopy VARCHAR2
344 , p9_a52 in out nocopy VARCHAR2
345 , p9_a53 in out nocopy VARCHAR2
346 , p9_a54 in out nocopy VARCHAR2
347 , p9_a55 in out nocopy VARCHAR2
348 , p9_a56 in out nocopy VARCHAR2
349 , p9_a57 in out nocopy VARCHAR2
350 , p9_a58 in out nocopy VARCHAR2
351 , p9_a59 in out nocopy VARCHAR2
352 , p9_a60 in out nocopy VARCHAR2
353 , p9_a61 in out nocopy VARCHAR2
354 , p9_a62 in out nocopy VARCHAR2
355 , p9_a63 in out nocopy VARCHAR2
356 , p9_a64 in out nocopy VARCHAR2
357 , p9_a65 in out nocopy VARCHAR2
358 , p9_a66 in out nocopy VARCHAR2
359 , p9_a67 in out nocopy VARCHAR2
360 , p9_a68 in out nocopy VARCHAR2
361 , p9_a69 in out nocopy VARCHAR2
362 , p9_a70 in out nocopy VARCHAR2
363 , p9_a71 in out nocopy VARCHAR2
364 )
365
366 as
367 ddp_x_mr_header_rec ahl_fmp_mr_header_pvt.mr_header_rec;
368 ddindx binary_integer; indx binary_integer;
369 begin
370
371 -- copy data to the local IN or IN-OUT args, if any
372
373
374
375
376
377
378
379
380
381 ddp_x_mr_header_rec.mr_header_id := p9_a0;
382 ddp_x_mr_header_rec.object_version_number := p9_a1;
383 ddp_x_mr_header_rec.last_update_date := rosetta_g_miss_date_in_map(p9_a2);
384 ddp_x_mr_header_rec.last_updated_by := p9_a3;
385 ddp_x_mr_header_rec.creation_date := rosetta_g_miss_date_in_map(p9_a4);
386 ddp_x_mr_header_rec.created_by := p9_a5;
387 ddp_x_mr_header_rec.last_update_login := p9_a6;
388 ddp_x_mr_header_rec.title := p9_a7;
389 ddp_x_mr_header_rec.revision := p9_a8;
390 ddp_x_mr_header_rec.version_number := p9_a9;
391 ddp_x_mr_header_rec.category_code := p9_a10;
392 ddp_x_mr_header_rec.category := p9_a11;
393 ddp_x_mr_header_rec.program_type_code := p9_a12;
394 ddp_x_mr_header_rec.program_type := p9_a13;
395 ddp_x_mr_header_rec.program_subtype_code := p9_a14;
396 ddp_x_mr_header_rec.program_subtype := p9_a15;
397 ddp_x_mr_header_rec.service_type_code := p9_a16;
398 ddp_x_mr_header_rec.service_type := p9_a17;
399 ddp_x_mr_header_rec.mr_status_code := p9_a18;
400 ddp_x_mr_header_rec.mr_status := p9_a19;
401 ddp_x_mr_header_rec.implement_status_code := p9_a20;
402 ddp_x_mr_header_rec.implement_status := p9_a21;
403 ddp_x_mr_header_rec.effective_from := rosetta_g_miss_date_in_map(p9_a22);
404 ddp_x_mr_header_rec.effective_to := rosetta_g_miss_date_in_map(p9_a23);
405 ddp_x_mr_header_rec.repetitive_flag := p9_a24;
406 ddp_x_mr_header_rec.repetitive := p9_a25;
407 ddp_x_mr_header_rec.show_repetitive_code := p9_a26;
408 ddp_x_mr_header_rec.show_repetitive := p9_a27;
409 ddp_x_mr_header_rec.whichever_first_code := p9_a28;
410 ddp_x_mr_header_rec.whichever_first := p9_a29;
411 ddp_x_mr_header_rec.copy_accomplishment_flag := p9_a30;
412 ddp_x_mr_header_rec.copy_accomplishment := p9_a31;
413 ddp_x_mr_header_rec.preceding_mr_header_id := p9_a32;
414 ddp_x_mr_header_rec.preceding_mr_title := p9_a33;
415 ddp_x_mr_header_rec.preceding_mr_revision := p9_a34;
416 ddp_x_mr_header_rec.description := p9_a35;
417 ddp_x_mr_header_rec.comments := p9_a36;
418 ddp_x_mr_header_rec.superuser_role := p9_a37;
419 ddp_x_mr_header_rec.service_request_template_id := p9_a38;
420 ddp_x_mr_header_rec.type_code := p9_a39;
421 ddp_x_mr_header_rec.type_code_meaning := p9_a40;
422 ddp_x_mr_header_rec.down_time := p9_a41;
423 ddp_x_mr_header_rec.warranty_template_name := p9_a42;
424 ddp_x_mr_header_rec.warranty_template_id := p9_a43;
425 ddp_x_mr_header_rec.uom_code := p9_a44;
426 ddp_x_mr_header_rec.uom_meaning := p9_a45;
427 ddp_x_mr_header_rec.billing_item := p9_a46;
428 ddp_x_mr_header_rec.billing_item_id := p9_a47;
429 ddp_x_mr_header_rec.qa_inspection_type := p9_a48;
430 ddp_x_mr_header_rec.qa_inspection_type_code := p9_a49;
431 ddp_x_mr_header_rec.space_category := p9_a50;
432 ddp_x_mr_header_rec.space_category_code := p9_a51;
433 ddp_x_mr_header_rec.auto_signoff_flag := p9_a52;
434 ddp_x_mr_header_rec.copy_init_accompl_flag := p9_a53;
435 ddp_x_mr_header_rec.copy_deferrals_flag := p9_a54;
436 ddp_x_mr_header_rec.attribute_category := p9_a55;
437 ddp_x_mr_header_rec.attribute1 := p9_a56;
438 ddp_x_mr_header_rec.attribute2 := p9_a57;
439 ddp_x_mr_header_rec.attribute3 := p9_a58;
440 ddp_x_mr_header_rec.attribute4 := p9_a59;
441 ddp_x_mr_header_rec.attribute5 := p9_a60;
442 ddp_x_mr_header_rec.attribute6 := p9_a61;
443 ddp_x_mr_header_rec.attribute7 := p9_a62;
444 ddp_x_mr_header_rec.attribute8 := p9_a63;
445 ddp_x_mr_header_rec.attribute9 := p9_a64;
446 ddp_x_mr_header_rec.attribute10 := p9_a65;
447 ddp_x_mr_header_rec.attribute11 := p9_a66;
448 ddp_x_mr_header_rec.attribute12 := p9_a67;
449 ddp_x_mr_header_rec.attribute13 := p9_a68;
450 ddp_x_mr_header_rec.attribute14 := p9_a69;
451 ddp_x_mr_header_rec.attribute15 := p9_a70;
452 ddp_x_mr_header_rec.dml_operation := p9_a71;
453
454 -- here's the delegated call to the old PL/SQL routine
455 ahl_fmp_mr_header_pvt.update_mr_header(p_api_version,
456 p_init_msg_list,
457 p_commit,
458 p_validation_level,
459 p_default,
460 p_module_type,
461 x_return_status,
462 x_msg_count,
463 x_msg_data,
464 ddp_x_mr_header_rec);
465
466 -- copy data back from the local variables to OUT or IN-OUT args, if any
467
468
469
470
471
472
473
474
475
476 p9_a0 := ddp_x_mr_header_rec.mr_header_id;
477 p9_a1 := ddp_x_mr_header_rec.object_version_number;
478 p9_a2 := ddp_x_mr_header_rec.last_update_date;
479 p9_a3 := ddp_x_mr_header_rec.last_updated_by;
480 p9_a4 := ddp_x_mr_header_rec.creation_date;
481 p9_a5 := ddp_x_mr_header_rec.created_by;
482 p9_a6 := ddp_x_mr_header_rec.last_update_login;
483 p9_a7 := ddp_x_mr_header_rec.title;
484 p9_a8 := ddp_x_mr_header_rec.revision;
485 p9_a9 := ddp_x_mr_header_rec.version_number;
486 p9_a10 := ddp_x_mr_header_rec.category_code;
487 p9_a11 := ddp_x_mr_header_rec.category;
488 p9_a12 := ddp_x_mr_header_rec.program_type_code;
489 p9_a13 := ddp_x_mr_header_rec.program_type;
490 p9_a14 := ddp_x_mr_header_rec.program_subtype_code;
491 p9_a15 := ddp_x_mr_header_rec.program_subtype;
492 p9_a16 := ddp_x_mr_header_rec.service_type_code;
493 p9_a17 := ddp_x_mr_header_rec.service_type;
494 p9_a18 := ddp_x_mr_header_rec.mr_status_code;
495 p9_a19 := ddp_x_mr_header_rec.mr_status;
496 p9_a20 := ddp_x_mr_header_rec.implement_status_code;
497 p9_a21 := ddp_x_mr_header_rec.implement_status;
498 p9_a22 := ddp_x_mr_header_rec.effective_from;
499 p9_a23 := ddp_x_mr_header_rec.effective_to;
500 p9_a24 := ddp_x_mr_header_rec.repetitive_flag;
501 p9_a25 := ddp_x_mr_header_rec.repetitive;
502 p9_a26 := ddp_x_mr_header_rec.show_repetitive_code;
503 p9_a27 := ddp_x_mr_header_rec.show_repetitive;
504 p9_a28 := ddp_x_mr_header_rec.whichever_first_code;
505 p9_a29 := ddp_x_mr_header_rec.whichever_first;
506 p9_a30 := ddp_x_mr_header_rec.copy_accomplishment_flag;
507 p9_a31 := ddp_x_mr_header_rec.copy_accomplishment;
508 p9_a32 := ddp_x_mr_header_rec.preceding_mr_header_id;
509 p9_a33 := ddp_x_mr_header_rec.preceding_mr_title;
510 p9_a34 := ddp_x_mr_header_rec.preceding_mr_revision;
511 p9_a35 := ddp_x_mr_header_rec.description;
512 p9_a36 := ddp_x_mr_header_rec.comments;
513 p9_a37 := ddp_x_mr_header_rec.superuser_role;
514 p9_a38 := ddp_x_mr_header_rec.service_request_template_id;
515 p9_a39 := ddp_x_mr_header_rec.type_code;
516 p9_a40 := ddp_x_mr_header_rec.type_code_meaning;
517 p9_a41 := ddp_x_mr_header_rec.down_time;
518 p9_a42 := ddp_x_mr_header_rec.warranty_template_name;
519 p9_a43 := ddp_x_mr_header_rec.warranty_template_id;
520 p9_a44 := ddp_x_mr_header_rec.uom_code;
521 p9_a45 := ddp_x_mr_header_rec.uom_meaning;
522 p9_a46 := ddp_x_mr_header_rec.billing_item;
523 p9_a47 := ddp_x_mr_header_rec.billing_item_id;
524 p9_a48 := ddp_x_mr_header_rec.qa_inspection_type;
525 p9_a49 := ddp_x_mr_header_rec.qa_inspection_type_code;
526 p9_a50 := ddp_x_mr_header_rec.space_category;
527 p9_a51 := ddp_x_mr_header_rec.space_category_code;
528 p9_a52 := ddp_x_mr_header_rec.auto_signoff_flag;
529 p9_a53 := ddp_x_mr_header_rec.copy_init_accompl_flag;
530 p9_a54 := ddp_x_mr_header_rec.copy_deferrals_flag;
531 p9_a55 := ddp_x_mr_header_rec.attribute_category;
532 p9_a56 := ddp_x_mr_header_rec.attribute1;
533 p9_a57 := ddp_x_mr_header_rec.attribute2;
534 p9_a58 := ddp_x_mr_header_rec.attribute3;
535 p9_a59 := ddp_x_mr_header_rec.attribute4;
536 p9_a60 := ddp_x_mr_header_rec.attribute5;
537 p9_a61 := ddp_x_mr_header_rec.attribute6;
538 p9_a62 := ddp_x_mr_header_rec.attribute7;
539 p9_a63 := ddp_x_mr_header_rec.attribute8;
540 p9_a64 := ddp_x_mr_header_rec.attribute9;
541 p9_a65 := ddp_x_mr_header_rec.attribute10;
542 p9_a66 := ddp_x_mr_header_rec.attribute11;
543 p9_a67 := ddp_x_mr_header_rec.attribute12;
544 p9_a68 := ddp_x_mr_header_rec.attribute13;
545 p9_a69 := ddp_x_mr_header_rec.attribute14;
546 p9_a70 := ddp_x_mr_header_rec.attribute15;
547 p9_a71 := ddp_x_mr_header_rec.dml_operation;
548 end;
549
550 end ahl_fmp_mr_header_pvt_w;