[Home] [Help]
PACKAGE BODY: APPS.OKL_PERD_STATUS_PUB_W
Source
1 package body okl_perd_status_pub_w as
2 /* $Header: OKLUPSMB.pls 120.1 2005/07/18 10:31:47 asawanka 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 search_period_status(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 , p6_a0 out nocopy JTF_NUMBER_TABLE
28 , p6_a1 out nocopy JTF_NUMBER_TABLE
29 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
30 , p6_a3 out nocopy JTF_DATE_TABLE
31 , p6_a4 out nocopy JTF_NUMBER_TABLE
32 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
33 , p6_a6 out nocopy JTF_DATE_TABLE
34 , p6_a7 out nocopy JTF_DATE_TABLE
35 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
36 , p6_a9 out nocopy JTF_NUMBER_TABLE
37 , p6_a10 out nocopy JTF_NUMBER_TABLE
38 , p6_a11 out nocopy JTF_NUMBER_TABLE
39 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
40 , p6_a13 out nocopy JTF_DATE_TABLE
41 , p6_a14 out nocopy JTF_NUMBER_TABLE
42 , p6_a15 out nocopy JTF_NUMBER_TABLE
43 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_200
44 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_200
45 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_200
46 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_200
47 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_200
48 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_200
49 , p6_a22 out nocopy JTF_DATE_TABLE
50 , p6_a23 out nocopy JTF_DATE_TABLE
51 , p6_a24 out nocopy JTF_NUMBER_TABLE
52 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_100
53 , p5_a0 NUMBER := 0-1962.0724
54 , p5_a1 NUMBER := 0-1962.0724
55 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
56 , p5_a3 DATE := fnd_api.g_miss_date
57 , p5_a4 NUMBER := 0-1962.0724
58 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
59 , p5_a6 DATE := fnd_api.g_miss_date
60 , p5_a7 DATE := fnd_api.g_miss_date
61 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
62 , p5_a9 NUMBER := 0-1962.0724
63 , p5_a10 NUMBER := 0-1962.0724
64 , p5_a11 NUMBER := 0-1962.0724
65 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
66 , p5_a13 DATE := fnd_api.g_miss_date
67 , p5_a14 NUMBER := 0-1962.0724
68 , p5_a15 NUMBER := 0-1962.0724
69 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
70 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
71 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
72 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
73 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
74 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
75 , p5_a22 DATE := fnd_api.g_miss_date
76 , p5_a23 DATE := fnd_api.g_miss_date
77 , p5_a24 NUMBER := 0-1962.0724
78 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
79 )
80
81 as
82 ddp_period_rec okl_perd_status_pub.period_rec_type;
83 ddx_period_tbl okl_perd_status_pub.period_tbl_type;
84 ddindx binary_integer; indx binary_integer;
85 begin
86
87 -- copy data to the local IN or IN-OUT args, if any
88
89
90
91
92
93 ddp_period_rec.application_id := rosetta_g_miss_num_map(p5_a0);
94 ddp_period_rec.set_of_books_id := rosetta_g_miss_num_map(p5_a1);
95 ddp_period_rec.period_name := p5_a2;
96 ddp_period_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a3);
97 ddp_period_rec.last_updated_by := rosetta_g_miss_num_map(p5_a4);
98 ddp_period_rec.closing_status := p5_a5;
99 ddp_period_rec.start_date := rosetta_g_miss_date_in_map(p5_a6);
100 ddp_period_rec.end_date := rosetta_g_miss_date_in_map(p5_a7);
101 ddp_period_rec.period_type := p5_a8;
102 ddp_period_rec.period_year := rosetta_g_miss_num_map(p5_a9);
103 ddp_period_rec.period_num := rosetta_g_miss_num_map(p5_a10);
104 ddp_period_rec.quarter_num := rosetta_g_miss_num_map(p5_a11);
105 ddp_period_rec.adjustment_period_flag := p5_a12;
106 ddp_period_rec.creation_date := rosetta_g_miss_date_in_map(p5_a13);
107 ddp_period_rec.created_by := rosetta_g_miss_num_map(p5_a14);
108 ddp_period_rec.last_update_login := rosetta_g_miss_num_map(p5_a15);
109 ddp_period_rec.attribute1 := p5_a16;
110 ddp_period_rec.attribute2 := p5_a17;
111 ddp_period_rec.attribute3 := p5_a18;
112 ddp_period_rec.attribute4 := p5_a19;
113 ddp_period_rec.attribute5 := p5_a20;
114 ddp_period_rec.context := p5_a21;
115 ddp_period_rec.year_start_date := rosetta_g_miss_date_in_map(p5_a22);
116 ddp_period_rec.quarter_start_date := rosetta_g_miss_date_in_map(p5_a23);
117 ddp_period_rec.effective_period_num := rosetta_g_miss_num_map(p5_a24);
118 ddp_period_rec.elimination_confirmed_flag := p5_a25;
119
120
121 -- here's the delegated call to the old PL/SQL routine
122 okl_perd_status_pub.search_period_status(p_api_version,
123 p_init_msg_list,
124 x_return_status,
125 x_msg_count,
126 x_msg_data,
127 ddp_period_rec,
128 ddx_period_tbl);
129
130 -- copy data back from the local variables to OUT or IN-OUT args, if any
131
132
133
134
135
136
137 okl_perd_status_pvt_w.rosetta_table_copy_out_p1(ddx_period_tbl, p6_a0
138 , p6_a1
139 , p6_a2
140 , p6_a3
141 , p6_a4
142 , p6_a5
143 , p6_a6
144 , p6_a7
145 , p6_a8
146 , p6_a9
147 , p6_a10
148 , p6_a11
149 , p6_a12
150 , p6_a13
151 , p6_a14
152 , p6_a15
153 , p6_a16
154 , p6_a17
155 , p6_a18
156 , p6_a19
157 , p6_a20
158 , p6_a21
159 , p6_a22
160 , p6_a23
161 , p6_a24
162 , p6_a25
163 );
164 end;
165
166 procedure update_period_status(p_api_version NUMBER
167 , p_init_msg_list VARCHAR2
168 , x_return_status out nocopy VARCHAR2
169 , x_msg_count out nocopy NUMBER
170 , x_msg_data out nocopy VARCHAR2
171 , p5_a0 JTF_NUMBER_TABLE
172 , p5_a1 JTF_NUMBER_TABLE
173 , p5_a2 JTF_VARCHAR2_TABLE_100
174 , p5_a3 JTF_DATE_TABLE
175 , p5_a4 JTF_NUMBER_TABLE
176 , p5_a5 JTF_VARCHAR2_TABLE_100
177 , p5_a6 JTF_DATE_TABLE
178 , p5_a7 JTF_DATE_TABLE
179 , p5_a8 JTF_VARCHAR2_TABLE_100
180 , p5_a9 JTF_NUMBER_TABLE
181 , p5_a10 JTF_NUMBER_TABLE
182 , p5_a11 JTF_NUMBER_TABLE
183 , p5_a12 JTF_VARCHAR2_TABLE_100
184 , p5_a13 JTF_DATE_TABLE
185 , p5_a14 JTF_NUMBER_TABLE
186 , p5_a15 JTF_NUMBER_TABLE
187 , p5_a16 JTF_VARCHAR2_TABLE_200
188 , p5_a17 JTF_VARCHAR2_TABLE_200
189 , p5_a18 JTF_VARCHAR2_TABLE_200
190 , p5_a19 JTF_VARCHAR2_TABLE_200
191 , p5_a20 JTF_VARCHAR2_TABLE_200
192 , p5_a21 JTF_VARCHAR2_TABLE_200
193 , p5_a22 JTF_DATE_TABLE
194 , p5_a23 JTF_DATE_TABLE
195 , p5_a24 JTF_NUMBER_TABLE
196 , p5_a25 JTF_VARCHAR2_TABLE_100
197 )
198
199 as
200 ddp_period_tbl okl_perd_status_pub.period_tbl_type;
201 ddindx binary_integer; indx binary_integer;
202 begin
203
204 -- copy data to the local IN or IN-OUT args, if any
205
206
207
208
209
210 okl_perd_status_pvt_w.rosetta_table_copy_in_p1(ddp_period_tbl, p5_a0
211 , p5_a1
212 , p5_a2
213 , p5_a3
214 , p5_a4
215 , p5_a5
216 , p5_a6
217 , p5_a7
218 , p5_a8
219 , p5_a9
220 , p5_a10
221 , p5_a11
222 , p5_a12
223 , p5_a13
224 , p5_a14
225 , p5_a15
226 , p5_a16
227 , p5_a17
228 , p5_a18
229 , p5_a19
230 , p5_a20
231 , p5_a21
232 , p5_a22
233 , p5_a23
234 , p5_a24
235 , p5_a25
236 );
237
238 -- here's the delegated call to the old PL/SQL routine
239 okl_perd_status_pub.update_period_status(p_api_version,
240 p_init_msg_list,
241 x_return_status,
242 x_msg_count,
243 x_msg_data,
244 ddp_period_tbl);
245
246 -- copy data back from the local variables to OUT or IN-OUT args, if any
247
248
249
250
251
252 end;
253
254 end okl_perd_status_pub_w;