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.OKL_RULE_EXTRACT_PUB_W

Source


1 package body okl_rule_extract_pub_w as
2   /* $Header: OKLUREXB.pls 115.8 2003/10/14 18:51:35 ashariff 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.0724;
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 get_subclass_rgs(p_api_version  NUMBER
23     , p_init_msg_list  VARCHAR2
24     , x_return_status out nocopy  VARCHAR2
25     , x_msg_count out nocopy  NUMBER
26     , x_msg_data out nocopy  VARCHAR2
27     , p_chr_id  VARCHAR2
28     , p6_a0 out nocopy JTF_VARCHAR2_TABLE_100
29     , p6_a1 out nocopy JTF_VARCHAR2_TABLE_100
30     , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
31     , p6_a3 out nocopy JTF_VARCHAR2_TABLE_300
32   )
33 
34   as
35     ddx_sc_rg_tbl okl_rule_extract_pub.sc_rg_tbl_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 
42 
43 
44 
45 
46 
47     -- here's the delegated call to the old PL/SQL routine
48     okl_rule_extract_pub.get_subclass_rgs(p_api_version,
49       p_init_msg_list,
50       x_return_status,
51       x_msg_count,
52       x_msg_data,
53       p_chr_id,
54       ddx_sc_rg_tbl);
55 
56     -- copy data back from the local variables to OUT or IN-OUT args, if any
57 
58 
59 
60 
61 
62 
63     okl_rule_extract_pvt_w.rosetta_table_copy_out_p24(ddx_sc_rg_tbl, p6_a0
64       , p6_a1
65       , p6_a2
66       , p6_a3
67       );
68   end;
69 
70   procedure get_rg_rules(p_api_version  NUMBER
71     , p_init_msg_list  VARCHAR2
72     , x_return_status out nocopy  VARCHAR2
73     , x_msg_count out nocopy  NUMBER
74     , x_msg_data out nocopy  VARCHAR2
75     , p_rgd_code  VARCHAR2
76     , p6_a0 out nocopy JTF_VARCHAR2_TABLE_100
77     , p6_a1 out nocopy JTF_VARCHAR2_TABLE_100
78     , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
79     , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
80     , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
81     , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
82     , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
83   )
84 
85   as
86     ddx_rg_rules_tbl okl_rule_extract_pub.rg_rules_tbl_type;
87     ddindx binary_integer; indx binary_integer;
88   begin
89 
90     -- copy data to the local IN or IN-OUT args, if any
91 
92 
93 
94 
95 
96 
97 
98     -- here's the delegated call to the old PL/SQL routine
99     okl_rule_extract_pub.get_rg_rules(p_api_version,
100       p_init_msg_list,
101       x_return_status,
102       x_msg_count,
103       x_msg_data,
104       p_rgd_code,
105       ddx_rg_rules_tbl);
106 
107     -- copy data back from the local variables to OUT or IN-OUT args, if any
108 
109 
110 
111 
112 
113 
114     okl_rule_extract_pvt_w.rosetta_table_copy_out_p26(ddx_rg_rules_tbl, p6_a0
115       , p6_a1
116       , p6_a2
117       , p6_a3
118       , p6_a4
119       , p6_a5
120       , p6_a6
121       );
122   end;
123 
124   procedure get_rule_def(p_api_version  NUMBER
125     , p_init_msg_list  VARCHAR2
126     , x_return_status out nocopy  VARCHAR2
127     , x_msg_count out nocopy  NUMBER
128     , x_msg_data out nocopy  VARCHAR2
129     , p_rgd_code  VARCHAR2
130     , p_rgs_code  VARCHAR2
131     , p_buy_or_sell  VARCHAR2
132     , p8_a0 out nocopy JTF_VARCHAR2_TABLE_100
133     , p8_a1 out nocopy JTF_VARCHAR2_TABLE_100
134     , p8_a2 out nocopy JTF_VARCHAR2_TABLE_100
135     , p8_a3 out nocopy JTF_VARCHAR2_TABLE_100
136     , p8_a4 out nocopy JTF_VARCHAR2_TABLE_100
137     , p8_a5 out nocopy JTF_VARCHAR2_TABLE_100
138     , p8_a6 out nocopy JTF_VARCHAR2_TABLE_100
139     , p8_a7 out nocopy JTF_VARCHAR2_TABLE_100
140     , p8_a8 out nocopy JTF_VARCHAR2_TABLE_100
141     , p8_a9 out nocopy JTF_VARCHAR2_TABLE_100
142     , p8_a10 out nocopy JTF_VARCHAR2_TABLE_2000
143     , p8_a11 out nocopy JTF_VARCHAR2_TABLE_2000
144     , p8_a12 out nocopy JTF_VARCHAR2_TABLE_2000
145     , p8_a13 out nocopy JTF_VARCHAR2_TABLE_2000
146     , p8_a14 out nocopy JTF_VARCHAR2_TABLE_100
147     , p8_a15 out nocopy JTF_VARCHAR2_TABLE_100
148     , p8_a16 out nocopy JTF_VARCHAR2_TABLE_100
149     , p8_a17 out nocopy JTF_VARCHAR2_TABLE_100
150     , p8_a18 out nocopy JTF_VARCHAR2_TABLE_100
151     , p8_a19 out nocopy JTF_VARCHAR2_TABLE_100
152     , p8_a20 out nocopy JTF_VARCHAR2_TABLE_100
153     , p8_a21 out nocopy JTF_VARCHAR2_TABLE_100
154     , p8_a22 out nocopy JTF_VARCHAR2_TABLE_300
155   )
156 
157   as
158     ddx_rule_segment_tbl okl_rule_extract_pub.rule_segment_tbl_type;
159     ddindx binary_integer; indx binary_integer;
160   begin
161 
162     -- copy data to the local IN or IN-OUT args, if any
163 
164 
165 
166 
167 
168 
169 
170 
171 
172     -- here's the delegated call to the old PL/SQL routine
173     okl_rule_extract_pub.get_rule_def(p_api_version,
174       p_init_msg_list,
175       x_return_status,
176       x_msg_count,
177       x_msg_data,
178       p_rgd_code,
179       p_rgs_code,
180       p_buy_or_sell,
181       ddx_rule_segment_tbl);
182 
183     -- copy data back from the local variables to OUT or IN-OUT args, if any
184 
185 
186 
187 
188 
189 
190 
191 
192     okl_rule_extract_pvt_w.rosetta_table_copy_out_p28(ddx_rule_segment_tbl, p8_a0
193       , p8_a1
194       , p8_a2
195       , p8_a3
196       , p8_a4
197       , p8_a5
198       , p8_a6
199       , p8_a7
200       , p8_a8
201       , p8_a9
202       , p8_a10
203       , p8_a11
204       , p8_a12
205       , p8_a13
206       , p8_a14
207       , p8_a15
208       , p8_a16
209       , p8_a17
210       , p8_a18
211       , p8_a19
212       , p8_a20
213       , p8_a21
214       , p8_a22
215       );
216   end;
217 
218   procedure get_rules_metadata(p_api_version  NUMBER
219     , p_init_msg_list  VARCHAR2
220     , x_return_status out nocopy  VARCHAR2
221     , x_msg_count out nocopy  NUMBER
222     , x_msg_data out nocopy  VARCHAR2
223     , p_rgd_code  VARCHAR2
224     , p_rgs_code  VARCHAR2
225     , p_buy_or_sell  VARCHAR2
226     , p_contract_id  NUMBER
227     , p_line_id  NUMBER
228     , p_party_id  NUMBER
229     , p_template_table  VARCHAR2
230     , p_rule_id_column  VARCHAR2
231     , p_entity_column  VARCHAR2
232     , p14_a0 out nocopy JTF_VARCHAR2_TABLE_100
233     , p14_a1 out nocopy JTF_VARCHAR2_TABLE_100
234     , p14_a2 out nocopy JTF_VARCHAR2_TABLE_100
235     , p14_a3 out nocopy JTF_VARCHAR2_TABLE_100
236     , p14_a4 out nocopy JTF_VARCHAR2_TABLE_100
237     , p14_a5 out nocopy JTF_VARCHAR2_TABLE_100
238     , p14_a6 out nocopy JTF_VARCHAR2_TABLE_100
239     , p14_a7 out nocopy JTF_VARCHAR2_TABLE_100
240     , p14_a8 out nocopy JTF_VARCHAR2_TABLE_100
241     , p14_a9 out nocopy JTF_VARCHAR2_TABLE_100
242     , p14_a10 out nocopy JTF_VARCHAR2_TABLE_2000
243     , p14_a11 out nocopy JTF_VARCHAR2_TABLE_2000
244     , p14_a12 out nocopy JTF_VARCHAR2_TABLE_2000
245     , p14_a13 out nocopy JTF_VARCHAR2_TABLE_2000
246     , p14_a14 out nocopy JTF_VARCHAR2_TABLE_100
247     , p14_a15 out nocopy JTF_VARCHAR2_TABLE_100
248     , p14_a16 out nocopy JTF_VARCHAR2_TABLE_100
249     , p14_a17 out nocopy JTF_VARCHAR2_TABLE_100
250     , p14_a18 out nocopy JTF_VARCHAR2_TABLE_100
251     , p14_a19 out nocopy JTF_VARCHAR2_TABLE_100
252     , p14_a20 out nocopy JTF_VARCHAR2_TABLE_100
253     , p14_a21 out nocopy JTF_VARCHAR2_TABLE_100
254     , p14_a22 out nocopy JTF_VARCHAR2_TABLE_300
255     , p14_a23 out nocopy JTF_VARCHAR2_TABLE_300
256     , p14_a24 out nocopy JTF_VARCHAR2_TABLE_300
257     , p14_a25 out nocopy JTF_VARCHAR2_TABLE_1000
258     , p14_a26 out nocopy JTF_VARCHAR2_TABLE_1000
259     , p14_a27 out nocopy JTF_VARCHAR2_TABLE_100
260   )
261 
262   as
263     ddx_rule_segment_tbl okl_rule_extract_pub.rule_segment_tbl_type2;
264     ddindx binary_integer; indx binary_integer;
265   begin
266 
267     -- copy data to the local IN or IN-OUT args, if any
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283     -- here's the delegated call to the old PL/SQL routine
284     okl_rule_extract_pub.get_rules_metadata(p_api_version,
285       p_init_msg_list,
286       x_return_status,
287       x_msg_count,
288       x_msg_data,
289       p_rgd_code,
290       p_rgs_code,
291       p_buy_or_sell,
292       p_contract_id,
293       p_line_id,
294       p_party_id,
295       p_template_table,
296       p_rule_id_column,
297       p_entity_column,
298       ddx_rule_segment_tbl);
299 
300     -- copy data back from the local variables to OUT or IN-OUT args, if any
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315     okl_rule_extract_pvt_w.rosetta_table_copy_out_p30(ddx_rule_segment_tbl, p14_a0
316       , p14_a1
317       , p14_a2
318       , p14_a3
319       , p14_a4
320       , p14_a5
321       , p14_a6
322       , p14_a7
323       , p14_a8
324       , p14_a9
325       , p14_a10
326       , p14_a11
327       , p14_a12
328       , p14_a13
329       , p14_a14
330       , p14_a15
331       , p14_a16
332       , p14_a17
333       , p14_a18
334       , p14_a19
335       , p14_a20
336       , p14_a21
337       , p14_a22
338       , p14_a23
339       , p14_a24
340       , p14_a25
341       , p14_a26
342       , p14_a27
343       );
344   end;
345 
346 end okl_rule_extract_pub_w;