DBA Data[Home] [Help]

PACKAGE BODY: APPS.AML_MONITOR_CONDITIONS_PUB_W

Source


1 package body aml_monitor_conditions_pub_w as
2   /* $Header: amlwlmcb.pls 115.0 2002/12/06 02:01:37 ajchatto noship $ */
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 
6   -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7   function rosetta_g_miss_date_in_map(d date) return date as
8   begin
9     if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10     return d;
11   end;
12 
13   function rosetta_g_miss_num_map(n number) return number as
14     a number := fnd_api.g_miss_num;
15     b number := 0-1962.072;
16   begin
17     if n=a then return b; end if;
18     if n=b then return a; end if;
19     return n;
20   end;
21 
22   procedure create_monitor_condition(p_api_version_number  NUMBER
23     , p_init_msg_list  VARCHAR2
24     , p_commit  VARCHAR2
25     , p_validation_level  NUMBER
26     , p_identity_resource_id  NUMBER
27     , x_monitor_condition_id out nocopy  NUMBER
28     , x_return_status out nocopy  VARCHAR2
29     , x_msg_count out nocopy  NUMBER
30     , x_msg_data out nocopy  VARCHAR2
31     , p5_a0  NUMBER := 0-1962.072
32     , p5_a1  DATE := fnd_api.g_miss_date
33     , p5_a2  NUMBER := 0-1962.072
34     , p5_a3  DATE := fnd_api.g_miss_date
35     , p5_a4  NUMBER := 0-1962.072
36     , p5_a5  NUMBER := 0-1962.072
37     , p5_a6  NUMBER := 0-1962.072
38     , p5_a7  NUMBER := 0-1962.072
39     , p5_a8  NUMBER := 0-1962.072
40     , p5_a9  NUMBER := 0-1962.072
41     , p5_a10  DATE := fnd_api.g_miss_date
42     , p5_a11  NUMBER := 0-1962.072
43     , p5_a12  VARCHAR2 := fnd_api.g_miss_char
44     , p5_a13  NUMBER := 0-1962.072
45     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
46     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
47     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
48     , p5_a17  VARCHAR2 := fnd_api.g_miss_char
49     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
50     , p5_a19  NUMBER := 0-1962.072
51     , p5_a20  NUMBER := 0-1962.072
52     , p5_a21  VARCHAR2 := fnd_api.g_miss_char
53     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
54     , p5_a23  NUMBER := 0-1962.072
55     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
56     , p5_a25  VARCHAR2 := fnd_api.g_miss_char
57     , p5_a26  VARCHAR2 := fnd_api.g_miss_char
58     , p5_a27  VARCHAR2 := fnd_api.g_miss_char
59     , p5_a28  VARCHAR2 := fnd_api.g_miss_char
60     , p5_a29  VARCHAR2 := fnd_api.g_miss_char
61     , p5_a30  VARCHAR2 := fnd_api.g_miss_char
62     , p5_a31  VARCHAR2 := fnd_api.g_miss_char
63     , p5_a32  VARCHAR2 := fnd_api.g_miss_char
64     , p5_a33  VARCHAR2 := fnd_api.g_miss_char
65     , p5_a34  VARCHAR2 := fnd_api.g_miss_char
66     , p5_a35  VARCHAR2 := fnd_api.g_miss_char
67     , p5_a36  VARCHAR2 := fnd_api.g_miss_char
68     , p5_a37  VARCHAR2 := fnd_api.g_miss_char
69     , p5_a38  VARCHAR2 := fnd_api.g_miss_char
70     , p5_a39  VARCHAR2 := fnd_api.g_miss_char
71     , p5_a40  VARCHAR2 := fnd_api.g_miss_char
72     , p5_a41  VARCHAR2 := fnd_api.g_miss_char
73     , p5_a42  VARCHAR2 := fnd_api.g_miss_char
74   )
75 
76   as
77     ddp_condition_rec aml_monitor_conditions_pub.condition_rec_type;
78     ddindx binary_integer; indx binary_integer;
79   begin
80 
81     -- copy data to the local IN or IN-OUT args, if any
82 
83 
84 
85 
86 
87     ddp_condition_rec.monitor_condition_id := rosetta_g_miss_num_map(p5_a0);
88     ddp_condition_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a1);
89     ddp_condition_rec.last_updated_by := rosetta_g_miss_num_map(p5_a2);
90     ddp_condition_rec.creation_date := rosetta_g_miss_date_in_map(p5_a3);
91     ddp_condition_rec.created_by := rosetta_g_miss_num_map(p5_a4);
92     ddp_condition_rec.last_update_login := rosetta_g_miss_num_map(p5_a5);
93     ddp_condition_rec.object_version_number := rosetta_g_miss_num_map(p5_a6);
94     ddp_condition_rec.request_id := rosetta_g_miss_num_map(p5_a7);
95     ddp_condition_rec.program_application_id := rosetta_g_miss_num_map(p5_a8);
96     ddp_condition_rec.program_id := rosetta_g_miss_num_map(p5_a9);
97     ddp_condition_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a10);
98     ddp_condition_rec.process_rule_id := rosetta_g_miss_num_map(p5_a11);
99     ddp_condition_rec.monitor_type_code := p5_a12;
100     ddp_condition_rec.time_lag_num := rosetta_g_miss_num_map(p5_a13);
101     ddp_condition_rec.time_lag_uom_code := p5_a14;
102     ddp_condition_rec.time_lag_from_stage := p5_a15;
103     ddp_condition_rec.time_lag_to_stage := p5_a16;
104     ddp_condition_rec.expiration_relative := p5_a17;
105     ddp_condition_rec.reminder_defined := p5_a18;
106     ddp_condition_rec.total_reminders := rosetta_g_miss_num_map(p5_a19);
107     ddp_condition_rec.reminder_frequency := rosetta_g_miss_num_map(p5_a20);
108     ddp_condition_rec.reminder_freq_uom_code := p5_a21;
109     ddp_condition_rec.timeout_defined := p5_a22;
110     ddp_condition_rec.timeout_duration := rosetta_g_miss_num_map(p5_a23);
111     ddp_condition_rec.timeout_uom_code := p5_a24;
112     ddp_condition_rec.notify_owner := p5_a25;
113     ddp_condition_rec.notify_owner_manager := p5_a26;
114     ddp_condition_rec.attribute_category := p5_a27;
115     ddp_condition_rec.attribute1 := p5_a28;
116     ddp_condition_rec.attribute2 := p5_a29;
117     ddp_condition_rec.attribute3 := p5_a30;
118     ddp_condition_rec.attribute4 := p5_a31;
119     ddp_condition_rec.attribute5 := p5_a32;
120     ddp_condition_rec.attribute6 := p5_a33;
121     ddp_condition_rec.attribute7 := p5_a34;
122     ddp_condition_rec.attribute8 := p5_a35;
123     ddp_condition_rec.attribute9 := p5_a36;
124     ddp_condition_rec.attribute10 := p5_a37;
125     ddp_condition_rec.attribute11 := p5_a38;
126     ddp_condition_rec.attribute12 := p5_a39;
127     ddp_condition_rec.attribute13 := p5_a40;
128     ddp_condition_rec.attribute14 := p5_a41;
129     ddp_condition_rec.attribute15 := p5_a42;
130 
131 
132 
133 
134 
135     -- here's the delegated call to the old PL/SQL routine
136     aml_monitor_conditions_pub.create_monitor_condition(p_api_version_number,
137       p_init_msg_list,
138       p_commit,
139       p_validation_level,
140       p_identity_resource_id,
141       ddp_condition_rec,
142       x_monitor_condition_id,
143       x_return_status,
144       x_msg_count,
145       x_msg_data);
146 
147     -- copy data back from the local variables to OUT or IN-OUT args, if any
148 
149 
150 
151 
152 
153 
154 
155 
156 
157   end;
158 
159   procedure update_monitor_condition(p_api_version_number  NUMBER
160     , p_init_msg_list  VARCHAR2
161     , p_commit  VARCHAR2
162     , p_validation_level  NUMBER
163     , p_identity_salesforce_id  NUMBER
164     , x_return_status out nocopy  VARCHAR2
165     , x_msg_count out nocopy  NUMBER
166     , x_msg_data out nocopy  VARCHAR2
167     , p5_a0  NUMBER := 0-1962.072
168     , p5_a1  DATE := fnd_api.g_miss_date
169     , p5_a2  NUMBER := 0-1962.072
170     , p5_a3  DATE := fnd_api.g_miss_date
171     , p5_a4  NUMBER := 0-1962.072
172     , p5_a5  NUMBER := 0-1962.072
173     , p5_a6  NUMBER := 0-1962.072
174     , p5_a7  NUMBER := 0-1962.072
175     , p5_a8  NUMBER := 0-1962.072
176     , p5_a9  NUMBER := 0-1962.072
177     , p5_a10  DATE := fnd_api.g_miss_date
178     , p5_a11  NUMBER := 0-1962.072
179     , p5_a12  VARCHAR2 := fnd_api.g_miss_char
180     , p5_a13  NUMBER := 0-1962.072
181     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
182     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
183     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
184     , p5_a17  VARCHAR2 := fnd_api.g_miss_char
185     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
186     , p5_a19  NUMBER := 0-1962.072
187     , p5_a20  NUMBER := 0-1962.072
188     , p5_a21  VARCHAR2 := fnd_api.g_miss_char
189     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
190     , p5_a23  NUMBER := 0-1962.072
191     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
192     , p5_a25  VARCHAR2 := fnd_api.g_miss_char
193     , p5_a26  VARCHAR2 := fnd_api.g_miss_char
194     , p5_a27  VARCHAR2 := fnd_api.g_miss_char
195     , p5_a28  VARCHAR2 := fnd_api.g_miss_char
196     , p5_a29  VARCHAR2 := fnd_api.g_miss_char
197     , p5_a30  VARCHAR2 := fnd_api.g_miss_char
198     , p5_a31  VARCHAR2 := fnd_api.g_miss_char
199     , p5_a32  VARCHAR2 := fnd_api.g_miss_char
200     , p5_a33  VARCHAR2 := fnd_api.g_miss_char
201     , p5_a34  VARCHAR2 := fnd_api.g_miss_char
202     , p5_a35  VARCHAR2 := fnd_api.g_miss_char
203     , p5_a36  VARCHAR2 := fnd_api.g_miss_char
204     , p5_a37  VARCHAR2 := fnd_api.g_miss_char
205     , p5_a38  VARCHAR2 := fnd_api.g_miss_char
206     , p5_a39  VARCHAR2 := fnd_api.g_miss_char
207     , p5_a40  VARCHAR2 := fnd_api.g_miss_char
208     , p5_a41  VARCHAR2 := fnd_api.g_miss_char
209     , p5_a42  VARCHAR2 := fnd_api.g_miss_char
210   )
211 
212   as
213     ddp_condition_rec aml_monitor_conditions_pub.condition_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     ddp_condition_rec.monitor_condition_id := rosetta_g_miss_num_map(p5_a0);
224     ddp_condition_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a1);
225     ddp_condition_rec.last_updated_by := rosetta_g_miss_num_map(p5_a2);
226     ddp_condition_rec.creation_date := rosetta_g_miss_date_in_map(p5_a3);
227     ddp_condition_rec.created_by := rosetta_g_miss_num_map(p5_a4);
228     ddp_condition_rec.last_update_login := rosetta_g_miss_num_map(p5_a5);
229     ddp_condition_rec.object_version_number := rosetta_g_miss_num_map(p5_a6);
230     ddp_condition_rec.request_id := rosetta_g_miss_num_map(p5_a7);
231     ddp_condition_rec.program_application_id := rosetta_g_miss_num_map(p5_a8);
232     ddp_condition_rec.program_id := rosetta_g_miss_num_map(p5_a9);
233     ddp_condition_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a10);
234     ddp_condition_rec.process_rule_id := rosetta_g_miss_num_map(p5_a11);
235     ddp_condition_rec.monitor_type_code := p5_a12;
236     ddp_condition_rec.time_lag_num := rosetta_g_miss_num_map(p5_a13);
237     ddp_condition_rec.time_lag_uom_code := p5_a14;
238     ddp_condition_rec.time_lag_from_stage := p5_a15;
239     ddp_condition_rec.time_lag_to_stage := p5_a16;
240     ddp_condition_rec.expiration_relative := p5_a17;
241     ddp_condition_rec.reminder_defined := p5_a18;
242     ddp_condition_rec.total_reminders := rosetta_g_miss_num_map(p5_a19);
243     ddp_condition_rec.reminder_frequency := rosetta_g_miss_num_map(p5_a20);
244     ddp_condition_rec.reminder_freq_uom_code := p5_a21;
245     ddp_condition_rec.timeout_defined := p5_a22;
246     ddp_condition_rec.timeout_duration := rosetta_g_miss_num_map(p5_a23);
247     ddp_condition_rec.timeout_uom_code := p5_a24;
248     ddp_condition_rec.notify_owner := p5_a25;
249     ddp_condition_rec.notify_owner_manager := p5_a26;
250     ddp_condition_rec.attribute_category := p5_a27;
251     ddp_condition_rec.attribute1 := p5_a28;
252     ddp_condition_rec.attribute2 := p5_a29;
253     ddp_condition_rec.attribute3 := p5_a30;
254     ddp_condition_rec.attribute4 := p5_a31;
255     ddp_condition_rec.attribute5 := p5_a32;
256     ddp_condition_rec.attribute6 := p5_a33;
257     ddp_condition_rec.attribute7 := p5_a34;
258     ddp_condition_rec.attribute8 := p5_a35;
259     ddp_condition_rec.attribute9 := p5_a36;
260     ddp_condition_rec.attribute10 := p5_a37;
261     ddp_condition_rec.attribute11 := p5_a38;
262     ddp_condition_rec.attribute12 := p5_a39;
263     ddp_condition_rec.attribute13 := p5_a40;
264     ddp_condition_rec.attribute14 := p5_a41;
265     ddp_condition_rec.attribute15 := p5_a42;
266 
267 
268 
269 
270     -- here's the delegated call to the old PL/SQL routine
271     aml_monitor_conditions_pub.update_monitor_condition(p_api_version_number,
272       p_init_msg_list,
273       p_commit,
274       p_validation_level,
275       p_identity_salesforce_id,
276       ddp_condition_rec,
277       x_return_status,
278       x_msg_count,
279       x_msg_data);
280 
281     -- copy data back from the local variables to OUT or IN-OUT args, if any
282 
283 
284 
285 
286 
287 
288 
289 
290   end;
291 
292   procedure delete_monitor_condition(p_api_version_number  NUMBER
293     , p_init_msg_list  VARCHAR2
294     , p_commit  VARCHAR2
295     , p_validation_level  NUMBER
296     , p_identity_salesforce_id  NUMBER
297     , x_return_status out nocopy  VARCHAR2
298     , x_msg_count out nocopy  NUMBER
299     , x_msg_data out nocopy  VARCHAR2
300     , p5_a0  NUMBER := 0-1962.072
301     , p5_a1  DATE := fnd_api.g_miss_date
302     , p5_a2  NUMBER := 0-1962.072
303     , p5_a3  DATE := fnd_api.g_miss_date
304     , p5_a4  NUMBER := 0-1962.072
305     , p5_a5  NUMBER := 0-1962.072
306     , p5_a6  NUMBER := 0-1962.072
307     , p5_a7  NUMBER := 0-1962.072
308     , p5_a8  NUMBER := 0-1962.072
309     , p5_a9  NUMBER := 0-1962.072
310     , p5_a10  DATE := fnd_api.g_miss_date
311     , p5_a11  NUMBER := 0-1962.072
312     , p5_a12  VARCHAR2 := fnd_api.g_miss_char
313     , p5_a13  NUMBER := 0-1962.072
314     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
315     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
316     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
317     , p5_a17  VARCHAR2 := fnd_api.g_miss_char
318     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
319     , p5_a19  NUMBER := 0-1962.072
320     , p5_a20  NUMBER := 0-1962.072
321     , p5_a21  VARCHAR2 := fnd_api.g_miss_char
322     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
323     , p5_a23  NUMBER := 0-1962.072
324     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
325     , p5_a25  VARCHAR2 := fnd_api.g_miss_char
326     , p5_a26  VARCHAR2 := fnd_api.g_miss_char
327     , p5_a27  VARCHAR2 := fnd_api.g_miss_char
328     , p5_a28  VARCHAR2 := fnd_api.g_miss_char
329     , p5_a29  VARCHAR2 := fnd_api.g_miss_char
330     , p5_a30  VARCHAR2 := fnd_api.g_miss_char
331     , p5_a31  VARCHAR2 := fnd_api.g_miss_char
332     , p5_a32  VARCHAR2 := fnd_api.g_miss_char
333     , p5_a33  VARCHAR2 := fnd_api.g_miss_char
334     , p5_a34  VARCHAR2 := fnd_api.g_miss_char
335     , p5_a35  VARCHAR2 := fnd_api.g_miss_char
336     , p5_a36  VARCHAR2 := fnd_api.g_miss_char
337     , p5_a37  VARCHAR2 := fnd_api.g_miss_char
338     , p5_a38  VARCHAR2 := fnd_api.g_miss_char
339     , p5_a39  VARCHAR2 := fnd_api.g_miss_char
340     , p5_a40  VARCHAR2 := fnd_api.g_miss_char
341     , p5_a41  VARCHAR2 := fnd_api.g_miss_char
342     , p5_a42  VARCHAR2 := fnd_api.g_miss_char
343   )
344 
345   as
346     ddp_condition_rec aml_monitor_conditions_pub.condition_rec_type;
347     ddindx binary_integer; indx binary_integer;
348   begin
349 
350     -- copy data to the local IN or IN-OUT args, if any
351 
352 
353 
354 
355 
356     ddp_condition_rec.monitor_condition_id := rosetta_g_miss_num_map(p5_a0);
357     ddp_condition_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a1);
358     ddp_condition_rec.last_updated_by := rosetta_g_miss_num_map(p5_a2);
359     ddp_condition_rec.creation_date := rosetta_g_miss_date_in_map(p5_a3);
360     ddp_condition_rec.created_by := rosetta_g_miss_num_map(p5_a4);
361     ddp_condition_rec.last_update_login := rosetta_g_miss_num_map(p5_a5);
362     ddp_condition_rec.object_version_number := rosetta_g_miss_num_map(p5_a6);
363     ddp_condition_rec.request_id := rosetta_g_miss_num_map(p5_a7);
364     ddp_condition_rec.program_application_id := rosetta_g_miss_num_map(p5_a8);
365     ddp_condition_rec.program_id := rosetta_g_miss_num_map(p5_a9);
366     ddp_condition_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a10);
367     ddp_condition_rec.process_rule_id := rosetta_g_miss_num_map(p5_a11);
368     ddp_condition_rec.monitor_type_code := p5_a12;
369     ddp_condition_rec.time_lag_num := rosetta_g_miss_num_map(p5_a13);
370     ddp_condition_rec.time_lag_uom_code := p5_a14;
371     ddp_condition_rec.time_lag_from_stage := p5_a15;
372     ddp_condition_rec.time_lag_to_stage := p5_a16;
373     ddp_condition_rec.expiration_relative := p5_a17;
374     ddp_condition_rec.reminder_defined := p5_a18;
375     ddp_condition_rec.total_reminders := rosetta_g_miss_num_map(p5_a19);
376     ddp_condition_rec.reminder_frequency := rosetta_g_miss_num_map(p5_a20);
377     ddp_condition_rec.reminder_freq_uom_code := p5_a21;
378     ddp_condition_rec.timeout_defined := p5_a22;
379     ddp_condition_rec.timeout_duration := rosetta_g_miss_num_map(p5_a23);
380     ddp_condition_rec.timeout_uom_code := p5_a24;
381     ddp_condition_rec.notify_owner := p5_a25;
382     ddp_condition_rec.notify_owner_manager := p5_a26;
383     ddp_condition_rec.attribute_category := p5_a27;
384     ddp_condition_rec.attribute1 := p5_a28;
385     ddp_condition_rec.attribute2 := p5_a29;
386     ddp_condition_rec.attribute3 := p5_a30;
387     ddp_condition_rec.attribute4 := p5_a31;
388     ddp_condition_rec.attribute5 := p5_a32;
389     ddp_condition_rec.attribute6 := p5_a33;
390     ddp_condition_rec.attribute7 := p5_a34;
391     ddp_condition_rec.attribute8 := p5_a35;
392     ddp_condition_rec.attribute9 := p5_a36;
393     ddp_condition_rec.attribute10 := p5_a37;
394     ddp_condition_rec.attribute11 := p5_a38;
395     ddp_condition_rec.attribute12 := p5_a39;
396     ddp_condition_rec.attribute13 := p5_a40;
397     ddp_condition_rec.attribute14 := p5_a41;
398     ddp_condition_rec.attribute15 := p5_a42;
399 
400 
401 
402 
403     -- here's the delegated call to the old PL/SQL routine
404     aml_monitor_conditions_pub.delete_monitor_condition(p_api_version_number,
405       p_init_msg_list,
406       p_commit,
407       p_validation_level,
408       p_identity_salesforce_id,
409       ddp_condition_rec,
410       x_return_status,
411       x_msg_count,
412       x_msg_data);
413 
414     -- copy data back from the local variables to OUT or IN-OUT args, if any
415 
416 
417 
418 
419 
420 
421 
422 
423   end;
424 
425 end aml_monitor_conditions_pub_w;