[Home] [Help]
PACKAGE BODY: APPS.OKL_CASH_APPLN_RULE_PUB_W
Source
1 package body okl_cash_appln_rule_pub_w as
2 /* $Header: OKLUCSLB.pls 120.2 2005/10/30 03:48:47 appldev 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 maint_cash_appln_rule(p_api_version NUMBER
23 , p_init_msg_list VARCHAR2
24 , p2_a0 JTF_NUMBER_TABLE
25 , p2_a1 JTF_NUMBER_TABLE
26 , p2_a2 JTF_VARCHAR2_TABLE_200
27 , p2_a3 JTF_VARCHAR2_TABLE_2000
28 , p2_a4 JTF_DATE_TABLE
29 , p2_a5 JTF_DATE_TABLE
30 , p2_a6 JTF_NUMBER_TABLE
31 , p2_a7 JTF_NUMBER_TABLE
32 , p2_a8 JTF_NUMBER_TABLE
33 , p2_a9 JTF_VARCHAR2_TABLE_100
34 , p2_a10 JTF_VARCHAR2_TABLE_100
35 , p2_a11 JTF_VARCHAR2_TABLE_100
36 , p2_a12 JTF_VARCHAR2_TABLE_100
37 , p2_a13 JTF_VARCHAR2_TABLE_100
38 , p2_a14 JTF_VARCHAR2_TABLE_500
39 , p2_a15 JTF_VARCHAR2_TABLE_500
40 , p2_a16 JTF_VARCHAR2_TABLE_500
41 , p2_a17 JTF_VARCHAR2_TABLE_500
42 , p2_a18 JTF_VARCHAR2_TABLE_500
43 , p2_a19 JTF_VARCHAR2_TABLE_500
44 , p2_a20 JTF_VARCHAR2_TABLE_500
45 , p2_a21 JTF_VARCHAR2_TABLE_500
46 , p2_a22 JTF_VARCHAR2_TABLE_500
47 , p2_a23 JTF_VARCHAR2_TABLE_500
48 , p2_a24 JTF_VARCHAR2_TABLE_500
49 , p2_a25 JTF_VARCHAR2_TABLE_500
50 , p2_a26 JTF_VARCHAR2_TABLE_500
51 , p2_a27 JTF_VARCHAR2_TABLE_500
52 , p2_a28 JTF_VARCHAR2_TABLE_500
53 , p2_a29 JTF_NUMBER_TABLE
54 , p2_a30 JTF_NUMBER_TABLE
55 , p2_a31 JTF_DATE_TABLE
56 , p2_a32 JTF_NUMBER_TABLE
57 , p2_a33 JTF_DATE_TABLE
58 , p2_a34 JTF_NUMBER_TABLE
59 , p2_a35 JTF_NUMBER_TABLE
60 , p2_a36 JTF_NUMBER_TABLE
61 , p3_a0 out nocopy JTF_NUMBER_TABLE
62 , p3_a1 out nocopy JTF_NUMBER_TABLE
63 , p3_a2 out nocopy JTF_VARCHAR2_TABLE_200
64 , p3_a3 out nocopy JTF_VARCHAR2_TABLE_2000
65 , p3_a4 out nocopy JTF_DATE_TABLE
66 , p3_a5 out nocopy JTF_DATE_TABLE
67 , p3_a6 out nocopy JTF_NUMBER_TABLE
68 , p3_a7 out nocopy JTF_NUMBER_TABLE
69 , p3_a8 out nocopy JTF_NUMBER_TABLE
70 , p3_a9 out nocopy JTF_VARCHAR2_TABLE_100
71 , p3_a10 out nocopy JTF_VARCHAR2_TABLE_100
72 , p3_a11 out nocopy JTF_VARCHAR2_TABLE_100
73 , p3_a12 out nocopy JTF_VARCHAR2_TABLE_100
74 , p3_a13 out nocopy JTF_VARCHAR2_TABLE_100
75 , p3_a14 out nocopy JTF_VARCHAR2_TABLE_500
76 , p3_a15 out nocopy JTF_VARCHAR2_TABLE_500
77 , p3_a16 out nocopy JTF_VARCHAR2_TABLE_500
78 , p3_a17 out nocopy JTF_VARCHAR2_TABLE_500
79 , p3_a18 out nocopy JTF_VARCHAR2_TABLE_500
80 , p3_a19 out nocopy JTF_VARCHAR2_TABLE_500
81 , p3_a20 out nocopy JTF_VARCHAR2_TABLE_500
82 , p3_a21 out nocopy JTF_VARCHAR2_TABLE_500
83 , p3_a22 out nocopy JTF_VARCHAR2_TABLE_500
84 , p3_a23 out nocopy JTF_VARCHAR2_TABLE_500
85 , p3_a24 out nocopy JTF_VARCHAR2_TABLE_500
86 , p3_a25 out nocopy JTF_VARCHAR2_TABLE_500
87 , p3_a26 out nocopy JTF_VARCHAR2_TABLE_500
88 , p3_a27 out nocopy JTF_VARCHAR2_TABLE_500
89 , p3_a28 out nocopy JTF_VARCHAR2_TABLE_500
90 , p3_a29 out nocopy JTF_NUMBER_TABLE
91 , p3_a30 out nocopy JTF_NUMBER_TABLE
92 , p3_a31 out nocopy JTF_DATE_TABLE
93 , p3_a32 out nocopy JTF_NUMBER_TABLE
94 , p3_a33 out nocopy JTF_DATE_TABLE
95 , p3_a34 out nocopy JTF_NUMBER_TABLE
96 , p3_a35 out nocopy JTF_NUMBER_TABLE
97 , p3_a36 out nocopy JTF_NUMBER_TABLE
98 , x_return_status out nocopy VARCHAR2
99 , x_msg_count out nocopy NUMBER
100 , x_msg_data out nocopy VARCHAR2
101 )
102
103 as
104 ddp_catv_tbl okl_cash_appln_rule_pub.catv_tbl_type;
105 ddx_catv_tbl okl_cash_appln_rule_pub.catv_tbl_type;
106 ddindx binary_integer; indx binary_integer;
107 begin
108
109 -- copy data to the local IN or IN-OUT args, if any
110
111
112 okl_cat_pvt_w.rosetta_table_copy_in_p5(ddp_catv_tbl, p2_a0
113 , p2_a1
114 , p2_a2
115 , p2_a3
116 , p2_a4
117 , p2_a5
118 , p2_a6
119 , p2_a7
120 , p2_a8
121 , p2_a9
122 , p2_a10
123 , p2_a11
124 , p2_a12
125 , p2_a13
126 , p2_a14
127 , p2_a15
128 , p2_a16
129 , p2_a17
130 , p2_a18
131 , p2_a19
132 , p2_a20
133 , p2_a21
134 , p2_a22
135 , p2_a23
136 , p2_a24
137 , p2_a25
138 , p2_a26
139 , p2_a27
140 , p2_a28
141 , p2_a29
142 , p2_a30
143 , p2_a31
144 , p2_a32
145 , p2_a33
146 , p2_a34
147 , p2_a35
148 , p2_a36
149 );
150
151
152
153
154
155 -- here's the delegated call to the old PL/SQL routine
156 okl_cash_appln_rule_pub.maint_cash_appln_rule(p_api_version,
157 p_init_msg_list,
158 ddp_catv_tbl,
159 ddx_catv_tbl,
160 x_return_status,
161 x_msg_count,
162 x_msg_data);
163
164 -- copy data back from the local variables to OUT or IN-OUT args, if any
165
166
167
168 okl_cat_pvt_w.rosetta_table_copy_out_p5(ddx_catv_tbl, p3_a0
169 , p3_a1
170 , p3_a2
171 , p3_a3
172 , p3_a4
173 , p3_a5
174 , p3_a6
175 , p3_a7
176 , p3_a8
177 , p3_a9
178 , p3_a10
179 , p3_a11
180 , p3_a12
181 , p3_a13
182 , p3_a14
183 , p3_a15
184 , p3_a16
185 , p3_a17
186 , p3_a18
187 , p3_a19
188 , p3_a20
189 , p3_a21
190 , p3_a22
191 , p3_a23
192 , p3_a24
193 , p3_a25
194 , p3_a26
195 , p3_a27
196 , p3_a28
197 , p3_a29
198 , p3_a30
199 , p3_a31
200 , p3_a32
201 , p3_a33
202 , p3_a34
203 , p3_a35
204 , p3_a36
205 );
206
207
208
209 end;
210
211 end okl_cash_appln_rule_pub_w;