eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.FUN_RULE_OBJECTS_PUB_W

Source


1 package body fun_rule_objects_pub_w as
2 /* $Header: FUNXTMRULROBRWB.pls 120.3 2006/01/10 14:35:35 ammishra noship $ */
3   procedure create_rule_object(p_init_msg_list  VARCHAR2
4     , p1_a0  NUMBER
5     , p1_a1  NUMBER
6     , p1_a2  VARCHAR2
7     , p1_a3  VARCHAR2
8     , p1_a4  VARCHAR2
9     , p1_a5  VARCHAR2
10     , p1_a6  VARCHAR2
11     , p1_a7  VARCHAR2
12     , p1_a8  NUMBER
13     , p1_a9  VARCHAR2
14     , p1_a10  NUMBER
15     , p1_a11  VARCHAR2
16     , p1_a12  VARCHAR2
17     , p1_a13  VARCHAR2
18     , p1_a14  VARCHAR2
19     , p1_a15  VARCHAR2
20     , p1_a16  VARCHAR2
21     , p1_a17  NUMBER
22     , p1_a18  DATE
23     , p1_a19  NUMBER
24     , p1_a20  DATE
25     , p1_a21  NUMBER
26     , p1_a22  NUMBER
27     , p1_a23  VARCHAR2
28     , x_rule_object_id out nocopy  NUMBER
29     , x_return_status out nocopy  VARCHAR2
30     , x_msg_count out nocopy  NUMBER
31     , x_msg_data out nocopy  VARCHAR2
32   )
33 
34   as
35     ddp_rule_object_rec fun_rule_objects_pub.rule_objects_rec_type;
36     ddindx binary_integer; indx binary_integer;
37   begin
38 
39     -- copy data to the local IN or IN-OUT args, if any
40 
41     ddp_rule_object_rec.rule_object_id := p1_a0;
42     ddp_rule_object_rec.application_id := p1_a1;
43     ddp_rule_object_rec.rule_object_name := p1_a2;
44     ddp_rule_object_rec.user_rule_object_name := p1_a3;
45     ddp_rule_object_rec.description := p1_a4;
46     ddp_rule_object_rec.result_type := p1_a5;
47     ddp_rule_object_rec.required_flag := p1_a6;
48     ddp_rule_object_rec.use_default_value_flag := p1_a7;
49     ddp_rule_object_rec.default_application_id := p1_a8;
50     ddp_rule_object_rec.default_value := p1_a9;
51     ddp_rule_object_rec.flex_value_set_id := p1_a10;
52     ddp_rule_object_rec.flexfield_name := p1_a11;
53     ddp_rule_object_rec.flexfield_app_short_name := p1_a12;
54     ddp_rule_object_rec.multi_rule_result_flag := p1_a13;
55     ddp_rule_object_rec.use_instance_flag := p1_a14;
56     ddp_rule_object_rec.instance_label := p1_a15;
57     ddp_rule_object_rec.parent_rule_object_id := p1_a16;
58     ddp_rule_object_rec.org_id := p1_a17;
59     ddp_rule_object_rec.creation_date := p1_a18;
60     ddp_rule_object_rec.created_by := p1_a19;
61     ddp_rule_object_rec.last_update_date := p1_a20;
62     ddp_rule_object_rec.last_updated_by := p1_a21;
63     ddp_rule_object_rec.last_update_login := p1_a22;
64     ddp_rule_object_rec.created_by_module := p1_a23;
65 
66 
67 
68 
69 
70     -- here's the delegated call to the old PL/SQL routine
71     fun_rule_objects_pub.create_rule_object(p_init_msg_list,
72       ddp_rule_object_rec,
73       x_rule_object_id,
74       x_return_status,
75       x_msg_count,
76       x_msg_data);
77 
78     -- copy data back from the local variables to OUT or IN-OUT args, if any
79 
80 
81 
82 
83 
84   end;
85 
86   procedure update_rule_object(p_init_msg_list  VARCHAR2
87     , p1_a0  NUMBER
88     , p1_a1  NUMBER
89     , p1_a2  VARCHAR2
90     , p1_a3  VARCHAR2
91     , p1_a4  VARCHAR2
92     , p1_a5  VARCHAR2
93     , p1_a6  VARCHAR2
94     , p1_a7  VARCHAR2
95     , p1_a8  NUMBER
96     , p1_a9  VARCHAR2
97     , p1_a10  NUMBER
98     , p1_a11  VARCHAR2
99     , p1_a12  VARCHAR2
100     , p1_a13  VARCHAR2
101     , p1_a14  VARCHAR2
102     , p1_a15  VARCHAR2
103     , p1_a16  VARCHAR2
104     , p1_a17  NUMBER
105     , p1_a18  DATE
106     , p1_a19  NUMBER
107     , p1_a20  DATE
108     , p1_a21  NUMBER
109     , p1_a22  NUMBER
110     , p1_a23  VARCHAR2
111     , p_object_version_number in out nocopy  NUMBER
112     , x_return_status out nocopy  VARCHAR2
113     , x_msg_count out nocopy  NUMBER
114     , x_msg_data out nocopy  VARCHAR2
115   )
116 
117   as
118     ddp_rule_object_rec fun_rule_objects_pub.rule_objects_rec_type;
119     ddindx binary_integer; indx binary_integer;
120   begin
121 
122     -- copy data to the local IN or IN-OUT args, if any
123 
124     ddp_rule_object_rec.rule_object_id := p1_a0;
125     ddp_rule_object_rec.application_id := p1_a1;
126     ddp_rule_object_rec.rule_object_name := p1_a2;
127     ddp_rule_object_rec.user_rule_object_name := p1_a3;
128     ddp_rule_object_rec.description := p1_a4;
129     ddp_rule_object_rec.result_type := p1_a5;
130     ddp_rule_object_rec.required_flag := p1_a6;
131     ddp_rule_object_rec.use_default_value_flag := p1_a7;
132     ddp_rule_object_rec.default_application_id := p1_a8;
133     ddp_rule_object_rec.default_value := p1_a9;
134     ddp_rule_object_rec.flex_value_set_id := p1_a10;
135     ddp_rule_object_rec.flexfield_name := p1_a11;
136     ddp_rule_object_rec.flexfield_app_short_name := p1_a12;
137     ddp_rule_object_rec.multi_rule_result_flag := p1_a13;
138     ddp_rule_object_rec.use_instance_flag := p1_a14;
139     ddp_rule_object_rec.instance_label := p1_a15;
140     ddp_rule_object_rec.parent_rule_object_id := p1_a16;
141     ddp_rule_object_rec.org_id := p1_a17;
142     ddp_rule_object_rec.creation_date := p1_a18;
143     ddp_rule_object_rec.created_by := p1_a19;
144     ddp_rule_object_rec.last_update_date := p1_a20;
145     ddp_rule_object_rec.last_updated_by := p1_a21;
146     ddp_rule_object_rec.last_update_login := p1_a22;
147     ddp_rule_object_rec.created_by_module := p1_a23;
148 
149 
150 
151 
152 
153     -- here's the delegated call to the old PL/SQL routine
154     fun_rule_objects_pub.update_rule_object(p_init_msg_list,
155       ddp_rule_object_rec,
156       p_object_version_number,
157       x_return_status,
158       x_msg_count,
159       x_msg_data);
160 
161     -- copy data back from the local variables to OUT or IN-OUT args, if any
162 
163 
164 
165 
166 
167   end;
168 
169   procedure get_rule_object_rec(p_init_msg_list  VARCHAR2
170     , p_rule_object_name  VARCHAR2
171     , p_application_id  NUMBER
172     , p_instance_label  VARCHAR2
173     , p_org_id  NUMBER
174     , p5_a0 out nocopy  NUMBER
175     , p5_a1 out nocopy  NUMBER
176     , p5_a2 out nocopy  VARCHAR2
177     , p5_a3 out nocopy  VARCHAR2
178     , p5_a4 out nocopy  VARCHAR2
179     , p5_a5 out nocopy  VARCHAR2
180     , p5_a6 out nocopy  VARCHAR2
181     , p5_a7 out nocopy  VARCHAR2
182     , p5_a8 out nocopy  NUMBER
183     , p5_a9 out nocopy  VARCHAR2
184     , p5_a10 out nocopy  NUMBER
185     , p5_a11 out nocopy  VARCHAR2
186     , p5_a12 out nocopy  VARCHAR2
187     , p5_a13 out nocopy  VARCHAR2
188     , p5_a14 out nocopy  VARCHAR2
189     , p5_a15 out nocopy  VARCHAR2
190     , p5_a16 out nocopy  VARCHAR2
191     , p5_a17 out nocopy  NUMBER
192     , p5_a18 out nocopy  DATE
193     , p5_a19 out nocopy  NUMBER
194     , p5_a20 out nocopy  DATE
195     , p5_a21 out nocopy  NUMBER
196     , p5_a22 out nocopy  NUMBER
197     , p5_a23 out nocopy  VARCHAR2
198     , x_return_status out nocopy  VARCHAR2
199     , x_msg_count out nocopy  NUMBER
200     , x_msg_data out nocopy  VARCHAR2
201   )
202 
203   as
204     ddx_rule_object_rec fun_rule_objects_pub.rule_objects_rec_type;
205     ddindx binary_integer; indx binary_integer;
206   begin
207 
208     -- copy data to the local IN or IN-OUT args, if any
209 
210 
211 
212 
213 
214 
215 
216 
217 
218     -- here's the delegated call to the old PL/SQL routine
219     fun_rule_objects_pub.get_rule_object_rec(p_init_msg_list,
220       p_rule_object_name,
221       p_application_id,
222       p_instance_label,
223       p_org_id,
224       ddx_rule_object_rec,
225       x_return_status,
226       x_msg_count,
227       x_msg_data);
228 
229     -- copy data back from the local variables to OUT or IN-OUT args, if any
230 
231 
232 
233 
234 
235     p5_a0 := ddx_rule_object_rec.rule_object_id;
236     p5_a1 := ddx_rule_object_rec.application_id;
237     p5_a2 := ddx_rule_object_rec.rule_object_name;
238     p5_a3 := ddx_rule_object_rec.user_rule_object_name;
239     p5_a4 := ddx_rule_object_rec.description;
240     p5_a5 := ddx_rule_object_rec.result_type;
241     p5_a6 := ddx_rule_object_rec.required_flag;
242     p5_a7 := ddx_rule_object_rec.use_default_value_flag;
243     p5_a8 := ddx_rule_object_rec.default_application_id;
244     p5_a9 := ddx_rule_object_rec.default_value;
245     p5_a10 := ddx_rule_object_rec.flex_value_set_id;
246     p5_a11 := ddx_rule_object_rec.flexfield_name;
247     p5_a12 := ddx_rule_object_rec.flexfield_app_short_name;
248     p5_a13 := ddx_rule_object_rec.multi_rule_result_flag;
249     p5_a14 := ddx_rule_object_rec.use_instance_flag;
250     p5_a15 := ddx_rule_object_rec.instance_label;
251     p5_a16 := ddx_rule_object_rec.parent_rule_object_id;
252     p5_a17 := ddx_rule_object_rec.org_id;
253     p5_a18 := ddx_rule_object_rec.creation_date;
254     p5_a19 := ddx_rule_object_rec.created_by;
255     p5_a20 := ddx_rule_object_rec.last_update_date;
256     p5_a21 := ddx_rule_object_rec.last_updated_by;
257     p5_a22 := ddx_rule_object_rec.last_update_login;
258     p5_a23 := ddx_rule_object_rec.created_by_module;
259 
260 
261 
262   end;
263 
264   procedure get_rule_object_rec(p_init_msg_list  VARCHAR2
265     , p_rule_object_id  NUMBER
266     , p2_a0 out nocopy  NUMBER
267     , p2_a1 out nocopy  NUMBER
268     , p2_a2 out nocopy  VARCHAR2
269     , p2_a3 out nocopy  VARCHAR2
270     , p2_a4 out nocopy  VARCHAR2
271     , p2_a5 out nocopy  VARCHAR2
272     , p2_a6 out nocopy  VARCHAR2
273     , p2_a7 out nocopy  VARCHAR2
274     , p2_a8 out nocopy  NUMBER
275     , p2_a9 out nocopy  VARCHAR2
276     , p2_a10 out nocopy  NUMBER
277     , p2_a11 out nocopy  VARCHAR2
278     , p2_a12 out nocopy  VARCHAR2
279     , p2_a13 out nocopy  VARCHAR2
280     , p2_a14 out nocopy  VARCHAR2
281     , p2_a15 out nocopy  VARCHAR2
282     , p2_a16 out nocopy  VARCHAR2
283     , p2_a17 out nocopy  NUMBER
284     , p2_a18 out nocopy  DATE
285     , p2_a19 out nocopy  NUMBER
286     , p2_a20 out nocopy  DATE
287     , p2_a21 out nocopy  NUMBER
288     , p2_a22 out nocopy  NUMBER
289     , p2_a23 out nocopy  VARCHAR2
290     , x_return_status out nocopy  VARCHAR2
291     , x_msg_count out nocopy  NUMBER
292     , x_msg_data out nocopy  VARCHAR2
293   )
294 
295   as
296     ddx_rule_object_rec fun_rule_objects_pub.rule_objects_rec_type;
297     ddindx binary_integer; indx binary_integer;
298   begin
299 
300     -- copy data to the local IN or IN-OUT args, if any
301 
302 
303 
304 
305 
306 
307     -- here's the delegated call to the old PL/SQL routine
308     fun_rule_objects_pub.get_rule_object_rec(p_init_msg_list,
309       p_rule_object_id,
310       ddx_rule_object_rec,
311       x_return_status,
312       x_msg_count,
313       x_msg_data);
314 
315     -- copy data back from the local variables to OUT or IN-OUT args, if any
316 
317 
318     p2_a0 := ddx_rule_object_rec.rule_object_id;
319     p2_a1 := ddx_rule_object_rec.application_id;
320     p2_a2 := ddx_rule_object_rec.rule_object_name;
321     p2_a3 := ddx_rule_object_rec.user_rule_object_name;
322     p2_a4 := ddx_rule_object_rec.description;
323     p2_a5 := ddx_rule_object_rec.result_type;
324     p2_a6 := ddx_rule_object_rec.required_flag;
325     p2_a7 := ddx_rule_object_rec.use_default_value_flag;
326     p2_a8 := ddx_rule_object_rec.default_application_id;
327     p2_a9 := ddx_rule_object_rec.default_value;
328     p2_a10 := ddx_rule_object_rec.flex_value_set_id;
329     p2_a11 := ddx_rule_object_rec.flexfield_name;
330     p2_a12 := ddx_rule_object_rec.flexfield_app_short_name;
331     p2_a13 := ddx_rule_object_rec.multi_rule_result_flag;
332     p2_a14 := ddx_rule_object_rec.use_instance_flag;
333     p2_a15 := ddx_rule_object_rec.instance_label;
334     p2_a16 := ddx_rule_object_rec.parent_rule_object_id;
335     p2_a17 := ddx_rule_object_rec.org_id;
336     p2_a18 := ddx_rule_object_rec.creation_date;
337     p2_a19 := ddx_rule_object_rec.created_by;
338     p2_a20 := ddx_rule_object_rec.last_update_date;
339     p2_a21 := ddx_rule_object_rec.last_updated_by;
340     p2_a22 := ddx_rule_object_rec.last_update_login;
341     p2_a23 := ddx_rule_object_rec.created_by_module;
342 
343 
344 
345   end;
346 
347   procedure rule_object_instance_exists(p_application_id  NUMBER
348     , p_rule_object_name  VARCHAR2
349     , p_instance_label  VARCHAR2
350     , p_org_id  NUMBER
351     , ddrosetta_retval_bool OUT NOCOPY NUMBER
352   )
353 
354   as
355     ddindx binary_integer; indx binary_integer;
356     ddrosetta_retval boolean;
357   begin
358 
359     -- copy data to the local IN or IN-OUT args, if any
360 
361 
362 
363 
364     -- here's the delegated call to the old PL/SQL routine
365     ddrosetta_retval := fun_rule_objects_pub.rule_object_instance_exists(p_application_id,
366       p_rule_object_name,
367       p_instance_label,
368       p_org_id);
369 
370     -- copy data back from the local variables to OUT or IN-OUT args, if any
371     if ddrosetta_retval is null
372       then ddrosetta_retval_bool := null;
373     elsif ddrosetta_retval
374       then ddrosetta_retval_bool := 1;
375     else ddrosetta_retval_bool := 0;
376     end if;
377 
378 
379 
380   end;
381 
382   procedure rule_object_uses_parameter(p_rule_object_name  VARCHAR2
383     , p_parameter_name  VARCHAR2
384     , ddrosetta_retval_bool OUT NOCOPY NUMBER
385   )
386 
387   as
388     ddindx binary_integer; indx binary_integer;
389     ddrosetta_retval boolean;
390   begin
391 
392     -- copy data to the local IN or IN-OUT args, if any
393 
394 
395     -- here's the delegated call to the old PL/SQL routine
396     ddrosetta_retval := fun_rule_objects_pub.rule_object_uses_parameter(p_rule_object_name,
397       p_parameter_name);
398 
399     -- copy data back from the local variables to OUT or IN-OUT args, if any
400     if ddrosetta_retval is null
401       then ddrosetta_retval_bool := null;
402     elsif ddrosetta_retval
403       then ddrosetta_retval_bool := 1;
404     else ddrosetta_retval_bool := 0;
405     end if;
406 
407   end;
408 
409 end fun_rule_objects_pub_w;