DBA Data[Home] [Help]

PACKAGE BODY: APPS.AHL_UMP_NONROUTINES_PVT_W

Source


1 package body ahl_ump_nonroutines_pvt_w as
2   /* $Header: AHLWNRTB.pls 120.0 2005/07/04 03:58 tamdas noship $ */
3   procedure create_sr(p_api_version  NUMBER
4     , p_init_msg_list  VARCHAR2
5     , p_commit  VARCHAR2
6     , p_validation_level  NUMBER
7     , p_default  VARCHAR2
8     , p_module_type  VARCHAR2
9     , x_return_status out nocopy  VARCHAR2
10     , x_msg_count out nocopy  NUMBER
11     , x_msg_data out nocopy  VARCHAR2
12     , p9_a0 in out nocopy  NUMBER
13     , p9_a1 in out nocopy  VARCHAR2
14     , p9_a2 in out nocopy  NUMBER
15     , p9_a3 in out nocopy  DATE
16     , p9_a4 in out nocopy  NUMBER
17     , p9_a5 in out nocopy  VARCHAR2
18     , p9_a6 in out nocopy  NUMBER
19     , p9_a7 in out nocopy  VARCHAR2
20     , p9_a8 in out nocopy  NUMBER
21     , p9_a9 in out nocopy  VARCHAR2
22     , p9_a10 in out nocopy  NUMBER
23     , p9_a11 in out nocopy  VARCHAR2
24     , p9_a12 in out nocopy  VARCHAR2
25     , p9_a13 in out nocopy  NUMBER
26     , p9_a14 in out nocopy  VARCHAR2
27     , p9_a15 in out nocopy  VARCHAR2
28     , p9_a16 in out nocopy  VARCHAR2
29     , p9_a17 in out nocopy  NUMBER
30     , p9_a18 in out nocopy  VARCHAR2
31     , p9_a19 in out nocopy  VARCHAR2
32     , p9_a20 in out nocopy  NUMBER
33     , p9_a21 in out nocopy  VARCHAR2
34     , p9_a22 in out nocopy  VARCHAR2
35     , p9_a23 in out nocopy  VARCHAR2
36     , p9_a24 in out nocopy  VARCHAR2
37     , p9_a25 in out nocopy  VARCHAR2
38     , p9_a26 in out nocopy  VARCHAR2
39     , p9_a27 in out nocopy  DATE
40     , p9_a28 in out nocopy  DATE
41     , p9_a29 in out nocopy  NUMBER
42     , p9_a30 in out nocopy  NUMBER
43     , p9_a31 in out nocopy  VARCHAR2
44     , p9_a32 in out nocopy  VARCHAR2
45     , p9_a33 in out nocopy  NUMBER
46     , p9_a34 in out nocopy  VARCHAR2
47     , p9_a35 in out nocopy  VARCHAR2
48     , p9_a36 in out nocopy  VARCHAR2
49     , p9_a37 in out nocopy  NUMBER
50     , p9_a38 in out nocopy  VARCHAR2
51     , p9_a39 in out nocopy  VARCHAR2
52     , p9_a40 in out nocopy  NUMBER
53     , p9_a41 in out nocopy  VARCHAR2
54     , p9_a42 in out nocopy  NUMBER
55     , p9_a43 in out nocopy  VARCHAR2
56     , p9_a44 in out nocopy  NUMBER
57     , p9_a45 in out nocopy  VARCHAR2
58     , p9_a46 in out nocopy  NUMBER
59     , p9_a47 in out nocopy  VARCHAR2
60     , p9_a48 in out nocopy  VARCHAR2
61     , p9_a49 in out nocopy  NUMBER
62     , p9_a50 in out nocopy  VARCHAR2
63   )
64 
65   as
66     ddp_x_nonroutine_rec ahl_ump_nonroutines_pvt.nonroutine_rec_type;
67     ddindx binary_integer; indx binary_integer;
68   begin
69 
70     -- copy data to the local IN or IN-OUT args, if any
71 
72 
73 
74 
75 
76 
77 
78 
79 
80     ddp_x_nonroutine_rec.incident_id := p9_a0;
81     ddp_x_nonroutine_rec.incident_number := p9_a1;
82     ddp_x_nonroutine_rec.incident_object_version_number := p9_a2;
83     ddp_x_nonroutine_rec.incident_date := p9_a3;
84     ddp_x_nonroutine_rec.type_id := p9_a4;
85     ddp_x_nonroutine_rec.type_name := p9_a5;
86     ddp_x_nonroutine_rec.status_id := p9_a6;
87     ddp_x_nonroutine_rec.status_name := p9_a7;
88     ddp_x_nonroutine_rec.severity_id := p9_a8;
89     ddp_x_nonroutine_rec.severity_name := p9_a9;
90     ddp_x_nonroutine_rec.urgency_id := p9_a10;
91     ddp_x_nonroutine_rec.urgency_name := p9_a11;
92     ddp_x_nonroutine_rec.customer_type := p9_a12;
93     ddp_x_nonroutine_rec.customer_id := p9_a13;
94     ddp_x_nonroutine_rec.customer_number := p9_a14;
95     ddp_x_nonroutine_rec.customer_name := p9_a15;
96     ddp_x_nonroutine_rec.contact_type := p9_a16;
97     ddp_x_nonroutine_rec.contact_id := p9_a17;
98     ddp_x_nonroutine_rec.contact_number := p9_a18;
99     ddp_x_nonroutine_rec.contact_name := p9_a19;
100     ddp_x_nonroutine_rec.instance_id := p9_a20;
101     ddp_x_nonroutine_rec.instance_number := p9_a21;
102     ddp_x_nonroutine_rec.problem_code := p9_a22;
103     ddp_x_nonroutine_rec.problem_meaning := p9_a23;
104     ddp_x_nonroutine_rec.problem_summary := p9_a24;
105     ddp_x_nonroutine_rec.resolution_code := p9_a25;
106     ddp_x_nonroutine_rec.resolution_meaning := p9_a26;
107     ddp_x_nonroutine_rec.expected_resolution_date := p9_a27;
108     ddp_x_nonroutine_rec.actual_resolution_date := p9_a28;
109     ddp_x_nonroutine_rec.unit_effectivity_id := p9_a29;
110     ddp_x_nonroutine_rec.ue_object_version_number := p9_a30;
111     ddp_x_nonroutine_rec.log_series_code := p9_a31;
112     ddp_x_nonroutine_rec.log_series_meaning := p9_a32;
113     ddp_x_nonroutine_rec.log_series_number := p9_a33;
114     ddp_x_nonroutine_rec.flight_number := p9_a34;
115     ddp_x_nonroutine_rec.mel_cdl_type_code := p9_a35;
116     ddp_x_nonroutine_rec.mel_cdl_type_meaning := p9_a36;
117     ddp_x_nonroutine_rec.position_path_id := p9_a37;
118     ddp_x_nonroutine_rec.ata_code := p9_a38;
119     ddp_x_nonroutine_rec.ata_meaning := p9_a39;
120     ddp_x_nonroutine_rec.clear_station_org_id := p9_a40;
121     ddp_x_nonroutine_rec.clear_station_org := p9_a41;
122     ddp_x_nonroutine_rec.clear_station_dept_id := p9_a42;
123     ddp_x_nonroutine_rec.clear_station_dept := p9_a43;
124     ddp_x_nonroutine_rec.unit_config_header_id := p9_a44;
125     ddp_x_nonroutine_rec.unit_name := p9_a45;
126     ddp_x_nonroutine_rec.inventory_item_id := p9_a46;
127     ddp_x_nonroutine_rec.item_number := p9_a47;
128     ddp_x_nonroutine_rec.serial_number := p9_a48;
129     ddp_x_nonroutine_rec.ata_sequence_id := p9_a49;
130     ddp_x_nonroutine_rec.mel_cdl_qual_flag := p9_a50;
131 
132     -- here's the delegated call to the old PL/SQL routine
133     ahl_ump_nonroutines_pvt.create_sr(p_api_version,
134       p_init_msg_list,
135       p_commit,
136       p_validation_level,
137       p_default,
138       p_module_type,
139       x_return_status,
140       x_msg_count,
141       x_msg_data,
142       ddp_x_nonroutine_rec);
143 
144     -- copy data back from the local variables to OUT or IN-OUT args, if any
145 
146 
147 
148 
149 
150 
151 
152 
153 
154     p9_a0 := ddp_x_nonroutine_rec.incident_id;
155     p9_a1 := ddp_x_nonroutine_rec.incident_number;
156     p9_a2 := ddp_x_nonroutine_rec.incident_object_version_number;
157     p9_a3 := ddp_x_nonroutine_rec.incident_date;
158     p9_a4 := ddp_x_nonroutine_rec.type_id;
159     p9_a5 := ddp_x_nonroutine_rec.type_name;
160     p9_a6 := ddp_x_nonroutine_rec.status_id;
161     p9_a7 := ddp_x_nonroutine_rec.status_name;
162     p9_a8 := ddp_x_nonroutine_rec.severity_id;
163     p9_a9 := ddp_x_nonroutine_rec.severity_name;
164     p9_a10 := ddp_x_nonroutine_rec.urgency_id;
165     p9_a11 := ddp_x_nonroutine_rec.urgency_name;
166     p9_a12 := ddp_x_nonroutine_rec.customer_type;
167     p9_a13 := ddp_x_nonroutine_rec.customer_id;
168     p9_a14 := ddp_x_nonroutine_rec.customer_number;
169     p9_a15 := ddp_x_nonroutine_rec.customer_name;
170     p9_a16 := ddp_x_nonroutine_rec.contact_type;
171     p9_a17 := ddp_x_nonroutine_rec.contact_id;
172     p9_a18 := ddp_x_nonroutine_rec.contact_number;
173     p9_a19 := ddp_x_nonroutine_rec.contact_name;
174     p9_a20 := ddp_x_nonroutine_rec.instance_id;
175     p9_a21 := ddp_x_nonroutine_rec.instance_number;
176     p9_a22 := ddp_x_nonroutine_rec.problem_code;
177     p9_a23 := ddp_x_nonroutine_rec.problem_meaning;
178     p9_a24 := ddp_x_nonroutine_rec.problem_summary;
179     p9_a25 := ddp_x_nonroutine_rec.resolution_code;
180     p9_a26 := ddp_x_nonroutine_rec.resolution_meaning;
181     p9_a27 := ddp_x_nonroutine_rec.expected_resolution_date;
182     p9_a28 := ddp_x_nonroutine_rec.actual_resolution_date;
183     p9_a29 := ddp_x_nonroutine_rec.unit_effectivity_id;
184     p9_a30 := ddp_x_nonroutine_rec.ue_object_version_number;
185     p9_a31 := ddp_x_nonroutine_rec.log_series_code;
186     p9_a32 := ddp_x_nonroutine_rec.log_series_meaning;
187     p9_a33 := ddp_x_nonroutine_rec.log_series_number;
188     p9_a34 := ddp_x_nonroutine_rec.flight_number;
189     p9_a35 := ddp_x_nonroutine_rec.mel_cdl_type_code;
190     p9_a36 := ddp_x_nonroutine_rec.mel_cdl_type_meaning;
191     p9_a37 := ddp_x_nonroutine_rec.position_path_id;
192     p9_a38 := ddp_x_nonroutine_rec.ata_code;
193     p9_a39 := ddp_x_nonroutine_rec.ata_meaning;
194     p9_a40 := ddp_x_nonroutine_rec.clear_station_org_id;
195     p9_a41 := ddp_x_nonroutine_rec.clear_station_org;
196     p9_a42 := ddp_x_nonroutine_rec.clear_station_dept_id;
197     p9_a43 := ddp_x_nonroutine_rec.clear_station_dept;
198     p9_a44 := ddp_x_nonroutine_rec.unit_config_header_id;
199     p9_a45 := ddp_x_nonroutine_rec.unit_name;
200     p9_a46 := ddp_x_nonroutine_rec.inventory_item_id;
201     p9_a47 := ddp_x_nonroutine_rec.item_number;
202     p9_a48 := ddp_x_nonroutine_rec.serial_number;
203     p9_a49 := ddp_x_nonroutine_rec.ata_sequence_id;
204     p9_a50 := ddp_x_nonroutine_rec.mel_cdl_qual_flag;
205   end;
206 
207   procedure update_sr(p_api_version  NUMBER
208     , p_init_msg_list  VARCHAR2
209     , p_commit  VARCHAR2
210     , p_validation_level  NUMBER
211     , p_default  VARCHAR2
212     , p_module_type  VARCHAR2
213     , x_return_status out nocopy  VARCHAR2
214     , x_msg_count out nocopy  NUMBER
215     , x_msg_data out nocopy  VARCHAR2
216     , p9_a0 in out nocopy  NUMBER
217     , p9_a1 in out nocopy  VARCHAR2
218     , p9_a2 in out nocopy  NUMBER
219     , p9_a3 in out nocopy  DATE
220     , p9_a4 in out nocopy  NUMBER
221     , p9_a5 in out nocopy  VARCHAR2
222     , p9_a6 in out nocopy  NUMBER
223     , p9_a7 in out nocopy  VARCHAR2
224     , p9_a8 in out nocopy  NUMBER
225     , p9_a9 in out nocopy  VARCHAR2
226     , p9_a10 in out nocopy  NUMBER
227     , p9_a11 in out nocopy  VARCHAR2
228     , p9_a12 in out nocopy  VARCHAR2
229     , p9_a13 in out nocopy  NUMBER
230     , p9_a14 in out nocopy  VARCHAR2
231     , p9_a15 in out nocopy  VARCHAR2
232     , p9_a16 in out nocopy  VARCHAR2
233     , p9_a17 in out nocopy  NUMBER
234     , p9_a18 in out nocopy  VARCHAR2
235     , p9_a19 in out nocopy  VARCHAR2
236     , p9_a20 in out nocopy  NUMBER
237     , p9_a21 in out nocopy  VARCHAR2
238     , p9_a22 in out nocopy  VARCHAR2
239     , p9_a23 in out nocopy  VARCHAR2
240     , p9_a24 in out nocopy  VARCHAR2
241     , p9_a25 in out nocopy  VARCHAR2
242     , p9_a26 in out nocopy  VARCHAR2
243     , p9_a27 in out nocopy  DATE
244     , p9_a28 in out nocopy  DATE
245     , p9_a29 in out nocopy  NUMBER
246     , p9_a30 in out nocopy  NUMBER
247     , p9_a31 in out nocopy  VARCHAR2
248     , p9_a32 in out nocopy  VARCHAR2
249     , p9_a33 in out nocopy  NUMBER
250     , p9_a34 in out nocopy  VARCHAR2
251     , p9_a35 in out nocopy  VARCHAR2
252     , p9_a36 in out nocopy  VARCHAR2
253     , p9_a37 in out nocopy  NUMBER
254     , p9_a38 in out nocopy  VARCHAR2
255     , p9_a39 in out nocopy  VARCHAR2
256     , p9_a40 in out nocopy  NUMBER
257     , p9_a41 in out nocopy  VARCHAR2
258     , p9_a42 in out nocopy  NUMBER
259     , p9_a43 in out nocopy  VARCHAR2
260     , p9_a44 in out nocopy  NUMBER
261     , p9_a45 in out nocopy  VARCHAR2
262     , p9_a46 in out nocopy  NUMBER
263     , p9_a47 in out nocopy  VARCHAR2
264     , p9_a48 in out nocopy  VARCHAR2
265     , p9_a49 in out nocopy  NUMBER
266     , p9_a50 in out nocopy  VARCHAR2
267   )
268 
269   as
270     ddp_x_nonroutine_rec ahl_ump_nonroutines_pvt.nonroutine_rec_type;
271     ddindx binary_integer; indx binary_integer;
272   begin
273 
274     -- copy data to the local IN or IN-OUT args, if any
275 
276 
277 
278 
279 
280 
281 
282 
283 
284     ddp_x_nonroutine_rec.incident_id := p9_a0;
285     ddp_x_nonroutine_rec.incident_number := p9_a1;
286     ddp_x_nonroutine_rec.incident_object_version_number := p9_a2;
287     ddp_x_nonroutine_rec.incident_date := p9_a3;
288     ddp_x_nonroutine_rec.type_id := p9_a4;
289     ddp_x_nonroutine_rec.type_name := p9_a5;
290     ddp_x_nonroutine_rec.status_id := p9_a6;
291     ddp_x_nonroutine_rec.status_name := p9_a7;
292     ddp_x_nonroutine_rec.severity_id := p9_a8;
293     ddp_x_nonroutine_rec.severity_name := p9_a9;
294     ddp_x_nonroutine_rec.urgency_id := p9_a10;
295     ddp_x_nonroutine_rec.urgency_name := p9_a11;
296     ddp_x_nonroutine_rec.customer_type := p9_a12;
297     ddp_x_nonroutine_rec.customer_id := p9_a13;
298     ddp_x_nonroutine_rec.customer_number := p9_a14;
299     ddp_x_nonroutine_rec.customer_name := p9_a15;
300     ddp_x_nonroutine_rec.contact_type := p9_a16;
301     ddp_x_nonroutine_rec.contact_id := p9_a17;
302     ddp_x_nonroutine_rec.contact_number := p9_a18;
303     ddp_x_nonroutine_rec.contact_name := p9_a19;
304     ddp_x_nonroutine_rec.instance_id := p9_a20;
305     ddp_x_nonroutine_rec.instance_number := p9_a21;
306     ddp_x_nonroutine_rec.problem_code := p9_a22;
307     ddp_x_nonroutine_rec.problem_meaning := p9_a23;
308     ddp_x_nonroutine_rec.problem_summary := p9_a24;
309     ddp_x_nonroutine_rec.resolution_code := p9_a25;
310     ddp_x_nonroutine_rec.resolution_meaning := p9_a26;
311     ddp_x_nonroutine_rec.expected_resolution_date := p9_a27;
312     ddp_x_nonroutine_rec.actual_resolution_date := p9_a28;
313     ddp_x_nonroutine_rec.unit_effectivity_id := p9_a29;
314     ddp_x_nonroutine_rec.ue_object_version_number := p9_a30;
315     ddp_x_nonroutine_rec.log_series_code := p9_a31;
316     ddp_x_nonroutine_rec.log_series_meaning := p9_a32;
317     ddp_x_nonroutine_rec.log_series_number := p9_a33;
318     ddp_x_nonroutine_rec.flight_number := p9_a34;
319     ddp_x_nonroutine_rec.mel_cdl_type_code := p9_a35;
320     ddp_x_nonroutine_rec.mel_cdl_type_meaning := p9_a36;
321     ddp_x_nonroutine_rec.position_path_id := p9_a37;
322     ddp_x_nonroutine_rec.ata_code := p9_a38;
323     ddp_x_nonroutine_rec.ata_meaning := p9_a39;
324     ddp_x_nonroutine_rec.clear_station_org_id := p9_a40;
325     ddp_x_nonroutine_rec.clear_station_org := p9_a41;
326     ddp_x_nonroutine_rec.clear_station_dept_id := p9_a42;
327     ddp_x_nonroutine_rec.clear_station_dept := p9_a43;
328     ddp_x_nonroutine_rec.unit_config_header_id := p9_a44;
329     ddp_x_nonroutine_rec.unit_name := p9_a45;
330     ddp_x_nonroutine_rec.inventory_item_id := p9_a46;
331     ddp_x_nonroutine_rec.item_number := p9_a47;
332     ddp_x_nonroutine_rec.serial_number := p9_a48;
333     ddp_x_nonroutine_rec.ata_sequence_id := p9_a49;
334     ddp_x_nonroutine_rec.mel_cdl_qual_flag := p9_a50;
335 
336     -- here's the delegated call to the old PL/SQL routine
337     ahl_ump_nonroutines_pvt.update_sr(p_api_version,
338       p_init_msg_list,
339       p_commit,
340       p_validation_level,
341       p_default,
342       p_module_type,
343       x_return_status,
344       x_msg_count,
345       x_msg_data,
346       ddp_x_nonroutine_rec);
347 
348     -- copy data back from the local variables to OUT or IN-OUT args, if any
349 
350 
351 
352 
353 
354 
355 
356 
357 
358     p9_a0 := ddp_x_nonroutine_rec.incident_id;
359     p9_a1 := ddp_x_nonroutine_rec.incident_number;
360     p9_a2 := ddp_x_nonroutine_rec.incident_object_version_number;
361     p9_a3 := ddp_x_nonroutine_rec.incident_date;
362     p9_a4 := ddp_x_nonroutine_rec.type_id;
363     p9_a5 := ddp_x_nonroutine_rec.type_name;
364     p9_a6 := ddp_x_nonroutine_rec.status_id;
365     p9_a7 := ddp_x_nonroutine_rec.status_name;
366     p9_a8 := ddp_x_nonroutine_rec.severity_id;
367     p9_a9 := ddp_x_nonroutine_rec.severity_name;
368     p9_a10 := ddp_x_nonroutine_rec.urgency_id;
369     p9_a11 := ddp_x_nonroutine_rec.urgency_name;
370     p9_a12 := ddp_x_nonroutine_rec.customer_type;
371     p9_a13 := ddp_x_nonroutine_rec.customer_id;
372     p9_a14 := ddp_x_nonroutine_rec.customer_number;
373     p9_a15 := ddp_x_nonroutine_rec.customer_name;
374     p9_a16 := ddp_x_nonroutine_rec.contact_type;
375     p9_a17 := ddp_x_nonroutine_rec.contact_id;
376     p9_a18 := ddp_x_nonroutine_rec.contact_number;
377     p9_a19 := ddp_x_nonroutine_rec.contact_name;
378     p9_a20 := ddp_x_nonroutine_rec.instance_id;
379     p9_a21 := ddp_x_nonroutine_rec.instance_number;
380     p9_a22 := ddp_x_nonroutine_rec.problem_code;
381     p9_a23 := ddp_x_nonroutine_rec.problem_meaning;
382     p9_a24 := ddp_x_nonroutine_rec.problem_summary;
383     p9_a25 := ddp_x_nonroutine_rec.resolution_code;
384     p9_a26 := ddp_x_nonroutine_rec.resolution_meaning;
385     p9_a27 := ddp_x_nonroutine_rec.expected_resolution_date;
386     p9_a28 := ddp_x_nonroutine_rec.actual_resolution_date;
387     p9_a29 := ddp_x_nonroutine_rec.unit_effectivity_id;
388     p9_a30 := ddp_x_nonroutine_rec.ue_object_version_number;
389     p9_a31 := ddp_x_nonroutine_rec.log_series_code;
390     p9_a32 := ddp_x_nonroutine_rec.log_series_meaning;
391     p9_a33 := ddp_x_nonroutine_rec.log_series_number;
392     p9_a34 := ddp_x_nonroutine_rec.flight_number;
393     p9_a35 := ddp_x_nonroutine_rec.mel_cdl_type_code;
394     p9_a36 := ddp_x_nonroutine_rec.mel_cdl_type_meaning;
395     p9_a37 := ddp_x_nonroutine_rec.position_path_id;
396     p9_a38 := ddp_x_nonroutine_rec.ata_code;
397     p9_a39 := ddp_x_nonroutine_rec.ata_meaning;
398     p9_a40 := ddp_x_nonroutine_rec.clear_station_org_id;
399     p9_a41 := ddp_x_nonroutine_rec.clear_station_org;
400     p9_a42 := ddp_x_nonroutine_rec.clear_station_dept_id;
401     p9_a43 := ddp_x_nonroutine_rec.clear_station_dept;
402     p9_a44 := ddp_x_nonroutine_rec.unit_config_header_id;
403     p9_a45 := ddp_x_nonroutine_rec.unit_name;
404     p9_a46 := ddp_x_nonroutine_rec.inventory_item_id;
405     p9_a47 := ddp_x_nonroutine_rec.item_number;
406     p9_a48 := ddp_x_nonroutine_rec.serial_number;
407     p9_a49 := ddp_x_nonroutine_rec.ata_sequence_id;
408     p9_a50 := ddp_x_nonroutine_rec.mel_cdl_qual_flag;
409   end;
410 
411 end ahl_ump_nonroutines_pvt_w;