[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;