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_INTEREST_MAINT_PUB_W

Source


1 package body okl_interest_maint_pub_w as
2   /* $Header: OKLUINMB.pls 120.1 2005/07/14 12:03:22 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 int_hdr_ins_updt(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     , p5_a0  NUMBER := 0-1962.0724
28     , p5_a1  NUMBER := 0-1962.0724
29     , p5_a2  VARCHAR2 := fnd_api.g_miss_char
30     , p5_a3  VARCHAR2 := fnd_api.g_miss_char
31     , p5_a4  VARCHAR2 := fnd_api.g_miss_char
32     , p5_a5  VARCHAR2 := fnd_api.g_miss_char
33     , p5_a6  VARCHAR2 := fnd_api.g_miss_char
34     , p5_a7  VARCHAR2 := fnd_api.g_miss_char
35     , p5_a8  VARCHAR2 := fnd_api.g_miss_char
36     , p5_a9  VARCHAR2 := fnd_api.g_miss_char
37     , p5_a10  VARCHAR2 := fnd_api.g_miss_char
38     , p5_a11  VARCHAR2 := fnd_api.g_miss_char
39     , p5_a12  VARCHAR2 := fnd_api.g_miss_char
40     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
41     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
42     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
43     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
44     , p5_a17  VARCHAR2 := fnd_api.g_miss_char
45     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
46     , p5_a19  VARCHAR2 := fnd_api.g_miss_char
47     , p5_a20  VARCHAR2 := fnd_api.g_miss_char
48     , p5_a21  VARCHAR2 := fnd_api.g_miss_char
49     , p5_a22  NUMBER := 0-1962.0724
50     , p5_a23  NUMBER := 0-1962.0724
51     , p5_a24  NUMBER := 0-1962.0724
52     , p5_a25  DATE := fnd_api.g_miss_date
53     , p5_a26  NUMBER := 0-1962.0724
54     , p5_a27  DATE := fnd_api.g_miss_date
55     , p5_a28  NUMBER := 0-1962.0724
56     , p5_a29  DATE := fnd_api.g_miss_date
57     , p5_a30  NUMBER := 0-1962.0724
58   )
59 
60   as
61     ddp_idxv_rec okl_interest_maint_pub.idxv_rec_type;
62     ddindx binary_integer; indx binary_integer;
63   begin
64 
65     -- copy data to the local IN or IN-OUT args, if any
66 
67 
68 
69 
70 
71     ddp_idxv_rec.id := rosetta_g_miss_num_map(p5_a0);
72     ddp_idxv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
73     ddp_idxv_rec.name := p5_a2;
74     ddp_idxv_rec.description := p5_a3;
75     ddp_idxv_rec.attribute_category := p5_a4;
76     ddp_idxv_rec.attribute1 := p5_a5;
77     ddp_idxv_rec.attribute2 := p5_a6;
78     ddp_idxv_rec.attribute3 := p5_a7;
79     ddp_idxv_rec.attribute4 := p5_a8;
80     ddp_idxv_rec.attribute5 := p5_a9;
81     ddp_idxv_rec.attribute6 := p5_a10;
82     ddp_idxv_rec.attribute7 := p5_a11;
83     ddp_idxv_rec.attribute8 := p5_a12;
84     ddp_idxv_rec.attribute9 := p5_a13;
85     ddp_idxv_rec.attribute10 := p5_a14;
86     ddp_idxv_rec.attribute11 := p5_a15;
87     ddp_idxv_rec.attribute12 := p5_a16;
88     ddp_idxv_rec.attribute13 := p5_a17;
89     ddp_idxv_rec.attribute14 := p5_a18;
90     ddp_idxv_rec.attribute15 := p5_a19;
91     ddp_idxv_rec.idx_type := p5_a20;
92     ddp_idxv_rec.idx_frequency := p5_a21;
93     ddp_idxv_rec.program_id := rosetta_g_miss_num_map(p5_a22);
94     ddp_idxv_rec.request_id := rosetta_g_miss_num_map(p5_a23);
95     ddp_idxv_rec.program_application_id := rosetta_g_miss_num_map(p5_a24);
96     ddp_idxv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a25);
97     ddp_idxv_rec.created_by := rosetta_g_miss_num_map(p5_a26);
98     ddp_idxv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a27);
99     ddp_idxv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a28);
100     ddp_idxv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a29);
101     ddp_idxv_rec.last_update_login := rosetta_g_miss_num_map(p5_a30);
102 
103     -- here's the delegated call to the old PL/SQL routine
104     okl_interest_maint_pub.int_hdr_ins_updt(p_api_version,
105       p_init_msg_list,
106       x_return_status,
107       x_msg_count,
108       x_msg_data,
109       ddp_idxv_rec);
110 
111     -- copy data back from the local variables to OUT or IN-OUT args, if any
112 
113 
114 
115 
116 
117   end;
118 
119   procedure int_hdr_ins_updt(p_api_version  NUMBER
120     , p_init_msg_list  VARCHAR2
121     , x_return_status out nocopy  VARCHAR2
122     , x_msg_count out nocopy  NUMBER
123     , x_msg_data out nocopy  VARCHAR2
124     , p5_a0 JTF_NUMBER_TABLE
125     , p5_a1 JTF_NUMBER_TABLE
126     , p5_a2 JTF_VARCHAR2_TABLE_200
127     , p5_a3 JTF_VARCHAR2_TABLE_2000
128     , p5_a4 JTF_VARCHAR2_TABLE_100
129     , p5_a5 JTF_VARCHAR2_TABLE_500
130     , p5_a6 JTF_VARCHAR2_TABLE_500
131     , p5_a7 JTF_VARCHAR2_TABLE_500
132     , p5_a8 JTF_VARCHAR2_TABLE_500
133     , p5_a9 JTF_VARCHAR2_TABLE_500
134     , p5_a10 JTF_VARCHAR2_TABLE_500
135     , p5_a11 JTF_VARCHAR2_TABLE_500
136     , p5_a12 JTF_VARCHAR2_TABLE_500
137     , p5_a13 JTF_VARCHAR2_TABLE_500
138     , p5_a14 JTF_VARCHAR2_TABLE_500
139     , p5_a15 JTF_VARCHAR2_TABLE_500
140     , p5_a16 JTF_VARCHAR2_TABLE_500
141     , p5_a17 JTF_VARCHAR2_TABLE_500
142     , p5_a18 JTF_VARCHAR2_TABLE_500
143     , p5_a19 JTF_VARCHAR2_TABLE_500
144     , p5_a20 JTF_VARCHAR2_TABLE_100
145     , p5_a21 JTF_VARCHAR2_TABLE_100
146     , p5_a22 JTF_NUMBER_TABLE
147     , p5_a23 JTF_NUMBER_TABLE
148     , p5_a24 JTF_NUMBER_TABLE
149     , p5_a25 JTF_DATE_TABLE
150     , p5_a26 JTF_NUMBER_TABLE
151     , p5_a27 JTF_DATE_TABLE
152     , p5_a28 JTF_NUMBER_TABLE
153     , p5_a29 JTF_DATE_TABLE
154     , p5_a30 JTF_NUMBER_TABLE
155   )
156 
157   as
158     ddp_idxv_tbl okl_interest_maint_pub.idxv_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     okl_idx_pvt_w.rosetta_table_copy_in_p5(ddp_idxv_tbl, p5_a0
169       , p5_a1
170       , p5_a2
171       , p5_a3
172       , p5_a4
173       , p5_a5
174       , p5_a6
175       , p5_a7
176       , p5_a8
177       , p5_a9
178       , p5_a10
179       , p5_a11
180       , p5_a12
181       , p5_a13
182       , p5_a14
183       , p5_a15
184       , p5_a16
185       , p5_a17
186       , p5_a18
187       , p5_a19
188       , p5_a20
189       , p5_a21
190       , p5_a22
191       , p5_a23
192       , p5_a24
193       , p5_a25
194       , p5_a26
195       , p5_a27
196       , p5_a28
197       , p5_a29
198       , p5_a30
199       );
200 
201     -- here's the delegated call to the old PL/SQL routine
202     okl_interest_maint_pub.int_hdr_ins_updt(p_api_version,
203       p_init_msg_list,
204       x_return_status,
205       x_msg_count,
206       x_msg_data,
207       ddp_idxv_tbl);
208 
209     -- copy data back from the local variables to OUT or IN-OUT args, if any
210 
211 
212 
213 
214 
215   end;
216 
217   procedure int_dtl_ins_updt(p_api_version  NUMBER
218     , p_init_msg_list  VARCHAR2
219     , x_return_status out nocopy  VARCHAR2
220     , x_msg_count out nocopy  NUMBER
221     , x_msg_data out nocopy  VARCHAR2
222     , p5_a0  NUMBER := 0-1962.0724
223     , p5_a1  NUMBER := 0-1962.0724
224     , p5_a2  NUMBER := 0-1962.0724
225     , p5_a3  NUMBER := 0-1962.0724
226     , p5_a4  DATE := fnd_api.g_miss_date
227     , p5_a5  DATE := fnd_api.g_miss_date
228     , p5_a6  NUMBER := 0-1962.0724
229     , p5_a7  NUMBER := 0-1962.0724
230     , p5_a8  NUMBER := 0-1962.0724
231     , p5_a9  DATE := fnd_api.g_miss_date
232     , p5_a10  NUMBER := 0-1962.0724
233     , p5_a11  DATE := fnd_api.g_miss_date
234     , p5_a12  NUMBER := 0-1962.0724
235     , p5_a13  DATE := fnd_api.g_miss_date
236     , p5_a14  NUMBER := 0-1962.0724
237   )
238 
239   as
240     ddp_ivev_rec okl_interest_maint_pub.ivev_rec_type;
241     ddindx binary_integer; indx binary_integer;
242   begin
243 
244     -- copy data to the local IN or IN-OUT args, if any
245 
246 
247 
248 
249 
250     ddp_ivev_rec.id := rosetta_g_miss_num_map(p5_a0);
251     ddp_ivev_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
252     ddp_ivev_rec.idx_id := rosetta_g_miss_num_map(p5_a2);
253     ddp_ivev_rec.value := rosetta_g_miss_num_map(p5_a3);
254     ddp_ivev_rec.datetime_valid := rosetta_g_miss_date_in_map(p5_a4);
255     ddp_ivev_rec.datetime_invalid := rosetta_g_miss_date_in_map(p5_a5);
256     ddp_ivev_rec.program_id := rosetta_g_miss_num_map(p5_a6);
257     ddp_ivev_rec.program_application_id := rosetta_g_miss_num_map(p5_a7);
258     ddp_ivev_rec.request_id := rosetta_g_miss_num_map(p5_a8);
259     ddp_ivev_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a9);
260     ddp_ivev_rec.created_by := rosetta_g_miss_num_map(p5_a10);
261     ddp_ivev_rec.creation_date := rosetta_g_miss_date_in_map(p5_a11);
262     ddp_ivev_rec.last_updated_by := rosetta_g_miss_num_map(p5_a12);
263     ddp_ivev_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a13);
264     ddp_ivev_rec.last_update_login := rosetta_g_miss_num_map(p5_a14);
265 
266     -- here's the delegated call to the old PL/SQL routine
267     okl_interest_maint_pub.int_dtl_ins_updt(p_api_version,
268       p_init_msg_list,
269       x_return_status,
270       x_msg_count,
271       x_msg_data,
272       ddp_ivev_rec);
273 
274     -- copy data back from the local variables to OUT or IN-OUT args, if any
275 
276 
277 
278 
279 
280   end;
281 
282   procedure int_dtl_ins_updt(p_api_version  NUMBER
283     , p_init_msg_list  VARCHAR2
284     , x_return_status out nocopy  VARCHAR2
285     , x_msg_count out nocopy  NUMBER
286     , x_msg_data out nocopy  VARCHAR2
287     , p5_a0 JTF_NUMBER_TABLE
288     , p5_a1 JTF_NUMBER_TABLE
289     , p5_a2 JTF_NUMBER_TABLE
290     , p5_a3 JTF_NUMBER_TABLE
291     , p5_a4 JTF_DATE_TABLE
292     , p5_a5 JTF_DATE_TABLE
293     , p5_a6 JTF_NUMBER_TABLE
294     , p5_a7 JTF_NUMBER_TABLE
295     , p5_a8 JTF_NUMBER_TABLE
296     , p5_a9 JTF_DATE_TABLE
297     , p5_a10 JTF_NUMBER_TABLE
298     , p5_a11 JTF_DATE_TABLE
299     , p5_a12 JTF_NUMBER_TABLE
300     , p5_a13 JTF_DATE_TABLE
301     , p5_a14 JTF_NUMBER_TABLE
302   )
303 
304   as
305     ddp_ivev_tbl okl_interest_maint_pub.ivev_tbl_type;
306     ddindx binary_integer; indx binary_integer;
307   begin
308 
309     -- copy data to the local IN or IN-OUT args, if any
310 
311 
312 
313 
314 
315     okl_ive_pvt_w.rosetta_table_copy_in_p5(ddp_ivev_tbl, p5_a0
316       , p5_a1
317       , p5_a2
318       , p5_a3
319       , p5_a4
320       , p5_a5
321       , p5_a6
322       , p5_a7
323       , p5_a8
324       , p5_a9
325       , p5_a10
326       , p5_a11
327       , p5_a12
328       , p5_a13
329       , p5_a14
330       );
331 
332     -- here's the delegated call to the old PL/SQL routine
333     okl_interest_maint_pub.int_dtl_ins_updt(p_api_version,
334       p_init_msg_list,
335       x_return_status,
336       x_msg_count,
337       x_msg_data,
338       ddp_ivev_tbl);
339 
340     -- copy data back from the local variables to OUT or IN-OUT args, if any
341 
342 
343 
344 
345 
346   end;
347 
348 end okl_interest_maint_pub_w;