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

Source


1 package body as_interest_codes_pub_w as
2   /* $Header: asxwincb.pls 115.0 2003/10/09 14:52:57 gbatra 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 create_interest_code(p_api_version_number  NUMBER
23     , p_init_msg_list  VARCHAR2
24     , p_commit  VARCHAR2
25     , p_validation_level  NUMBER
26     , x_return_status out nocopy  VARCHAR2
27     , x_msg_count out nocopy  NUMBER
28     , x_msg_data out nocopy  VARCHAR2
29     , x_interest_code_id out nocopy  NUMBER
30     , p7_a0  NUMBER := 0-1962.0724
31     , p7_a1  DATE := fnd_api.g_miss_date
32     , p7_a2  NUMBER := 0-1962.0724
33     , p7_a3  DATE := fnd_api.g_miss_date
34     , p7_a4  NUMBER := 0-1962.0724
35     , p7_a5  NUMBER := 0-1962.0724
36     , p7_a6  NUMBER := 0-1962.0724
37     , p7_a7  NUMBER := 0-1962.0724
38     , p7_a8  NUMBER := 0-1962.0724
39     , p7_a9  DATE := fnd_api.g_miss_date
40     , p7_a10  NUMBER := 0-1962.0724
41     , p7_a11  NUMBER := 0-1962.0724
42     , p7_a12  VARCHAR2 := fnd_api.g_miss_char
43     , p7_a13  NUMBER := 0-1962.0724
44     , p7_a14  NUMBER := 0-1962.0724
45     , p7_a15  NUMBER := 0-1962.0724
46     , p7_a16  NUMBER := 0-1962.0724
47     , p7_a17  VARCHAR2 := fnd_api.g_miss_char
48     , p7_a18  NUMBER := 0-1962.0724
49     , p7_a19  VARCHAR2 := fnd_api.g_miss_char
50     , p7_a20  VARCHAR2 := fnd_api.g_miss_char
51     , p7_a21  VARCHAR2 := fnd_api.g_miss_char
52     , p7_a22  VARCHAR2 := fnd_api.g_miss_char
53     , p7_a23  VARCHAR2 := fnd_api.g_miss_char
54     , p7_a24  VARCHAR2 := fnd_api.g_miss_char
55     , p7_a25  VARCHAR2 := fnd_api.g_miss_char
56     , p7_a26  VARCHAR2 := fnd_api.g_miss_char
57     , p7_a27  VARCHAR2 := fnd_api.g_miss_char
58     , p7_a28  VARCHAR2 := fnd_api.g_miss_char
59     , p7_a29  VARCHAR2 := fnd_api.g_miss_char
60     , p7_a30  VARCHAR2 := fnd_api.g_miss_char
61     , p7_a31  VARCHAR2 := fnd_api.g_miss_char
62     , p7_a32  VARCHAR2 := fnd_api.g_miss_char
63     , p7_a33  VARCHAR2 := fnd_api.g_miss_char
64     , p7_a34  VARCHAR2 := fnd_api.g_miss_char
65     , p7_a35  VARCHAR2 := fnd_api.g_miss_char
66     , p7_a36  VARCHAR2 := fnd_api.g_miss_char
67     , p7_a37  NUMBER := 0-1962.0724
68     , p7_a38  NUMBER := 0-1962.0724
69   )
70 
71   as
72     ddp_interest_code_rec as_interest_codes_pub.interest_code_rec_type;
73     ddindx binary_integer; indx binary_integer;
74   begin
75 
76     -- copy data to the local IN or IN-OUT args, if any
77 
78 
79 
80 
81 
82 
83 
84     ddp_interest_code_rec.interest_code_id := rosetta_g_miss_num_map(p7_a0);
85     ddp_interest_code_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a1);
86     ddp_interest_code_rec.last_updated_by := rosetta_g_miss_num_map(p7_a2);
87     ddp_interest_code_rec.creation_date := rosetta_g_miss_date_in_map(p7_a3);
88     ddp_interest_code_rec.created_by := rosetta_g_miss_num_map(p7_a4);
89     ddp_interest_code_rec.last_update_login := rosetta_g_miss_num_map(p7_a5);
90     ddp_interest_code_rec.request_id := rosetta_g_miss_num_map(p7_a6);
91     ddp_interest_code_rec.program_application_id := rosetta_g_miss_num_map(p7_a7);
92     ddp_interest_code_rec.program_id := rosetta_g_miss_num_map(p7_a8);
93     ddp_interest_code_rec.program_update_date := rosetta_g_miss_date_in_map(p7_a9);
94     ddp_interest_code_rec.interest_type_id := rosetta_g_miss_num_map(p7_a10);
95     ddp_interest_code_rec.parent_interest_code_id := rosetta_g_miss_num_map(p7_a11);
96     ddp_interest_code_rec.master_enabled_flag := p7_a12;
97     ddp_interest_code_rec.category_id := rosetta_g_miss_num_map(p7_a13);
98     ddp_interest_code_rec.category_set_id := rosetta_g_miss_num_map(p7_a14);
99     ddp_interest_code_rec.pf_item_id := rosetta_g_miss_num_map(p7_a15);
100     ddp_interest_code_rec.pf_organization_id := rosetta_g_miss_num_map(p7_a16);
101     ddp_interest_code_rec.currency_code := p7_a17;
102     ddp_interest_code_rec.price := rosetta_g_miss_num_map(p7_a18);
103     ddp_interest_code_rec.attribute_category := p7_a19;
104     ddp_interest_code_rec.attribute1 := p7_a20;
105     ddp_interest_code_rec.attribute2 := p7_a21;
106     ddp_interest_code_rec.attribute3 := p7_a22;
107     ddp_interest_code_rec.attribute4 := p7_a23;
108     ddp_interest_code_rec.attribute5 := p7_a24;
109     ddp_interest_code_rec.attribute6 := p7_a25;
110     ddp_interest_code_rec.attribute7 := p7_a26;
111     ddp_interest_code_rec.attribute8 := p7_a27;
112     ddp_interest_code_rec.attribute9 := p7_a28;
113     ddp_interest_code_rec.attribute10 := p7_a29;
114     ddp_interest_code_rec.attribute11 := p7_a30;
115     ddp_interest_code_rec.attribute12 := p7_a31;
116     ddp_interest_code_rec.attribute13 := p7_a32;
117     ddp_interest_code_rec.attribute14 := p7_a33;
118     ddp_interest_code_rec.attribute15 := p7_a34;
119     ddp_interest_code_rec.code := p7_a35;
120     ddp_interest_code_rec.description := p7_a36;
121     ddp_interest_code_rec.prod_cat_set_id := rosetta_g_miss_num_map(p7_a37);
122     ddp_interest_code_rec.prod_cat_id := rosetta_g_miss_num_map(p7_a38);
123 
124 
125     -- here's the delegated call to the old PL/SQL routine
126     as_interest_codes_pub.create_interest_code(p_api_version_number,
127       p_init_msg_list,
128       p_commit,
129       p_validation_level,
130       x_return_status,
131       x_msg_count,
132       x_msg_data,
133       ddp_interest_code_rec,
134       x_interest_code_id);
135 
136     -- copy data back from the local variables to OUT or IN-OUT args, if any
137 
138 
139 
140 
141 
142 
143 
144 
145   end;
146 
147   procedure update_interest_code(p_api_version_number  NUMBER
148     , p_init_msg_list  VARCHAR2
149     , p_commit  VARCHAR2
150     , p_validation_level  NUMBER
151     , x_return_status out nocopy  VARCHAR2
152     , x_msg_count out nocopy  NUMBER
153     , x_msg_data out nocopy  VARCHAR2
154     , p7_a0  NUMBER := 0-1962.0724
155     , p7_a1  DATE := fnd_api.g_miss_date
156     , p7_a2  NUMBER := 0-1962.0724
157     , p7_a3  DATE := fnd_api.g_miss_date
158     , p7_a4  NUMBER := 0-1962.0724
159     , p7_a5  NUMBER := 0-1962.0724
160     , p7_a6  NUMBER := 0-1962.0724
161     , p7_a7  NUMBER := 0-1962.0724
162     , p7_a8  NUMBER := 0-1962.0724
163     , p7_a9  DATE := fnd_api.g_miss_date
164     , p7_a10  NUMBER := 0-1962.0724
165     , p7_a11  NUMBER := 0-1962.0724
166     , p7_a12  VARCHAR2 := fnd_api.g_miss_char
167     , p7_a13  NUMBER := 0-1962.0724
168     , p7_a14  NUMBER := 0-1962.0724
169     , p7_a15  NUMBER := 0-1962.0724
170     , p7_a16  NUMBER := 0-1962.0724
171     , p7_a17  VARCHAR2 := fnd_api.g_miss_char
172     , p7_a18  NUMBER := 0-1962.0724
173     , p7_a19  VARCHAR2 := fnd_api.g_miss_char
174     , p7_a20  VARCHAR2 := fnd_api.g_miss_char
175     , p7_a21  VARCHAR2 := fnd_api.g_miss_char
176     , p7_a22  VARCHAR2 := fnd_api.g_miss_char
177     , p7_a23  VARCHAR2 := fnd_api.g_miss_char
178     , p7_a24  VARCHAR2 := fnd_api.g_miss_char
179     , p7_a25  VARCHAR2 := fnd_api.g_miss_char
180     , p7_a26  VARCHAR2 := fnd_api.g_miss_char
181     , p7_a27  VARCHAR2 := fnd_api.g_miss_char
182     , p7_a28  VARCHAR2 := fnd_api.g_miss_char
183     , p7_a29  VARCHAR2 := fnd_api.g_miss_char
184     , p7_a30  VARCHAR2 := fnd_api.g_miss_char
185     , p7_a31  VARCHAR2 := fnd_api.g_miss_char
186     , p7_a32  VARCHAR2 := fnd_api.g_miss_char
187     , p7_a33  VARCHAR2 := fnd_api.g_miss_char
188     , p7_a34  VARCHAR2 := fnd_api.g_miss_char
189     , p7_a35  VARCHAR2 := fnd_api.g_miss_char
190     , p7_a36  VARCHAR2 := fnd_api.g_miss_char
191     , p7_a37  NUMBER := 0-1962.0724
192     , p7_a38  NUMBER := 0-1962.0724
193   )
194 
195   as
196     ddp_interest_code_rec as_interest_codes_pub.interest_code_rec_type;
197     ddindx binary_integer; indx binary_integer;
198   begin
199 
200     -- copy data to the local IN or IN-OUT args, if any
201 
202 
203 
204 
205 
206 
207 
208     ddp_interest_code_rec.interest_code_id := rosetta_g_miss_num_map(p7_a0);
209     ddp_interest_code_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a1);
210     ddp_interest_code_rec.last_updated_by := rosetta_g_miss_num_map(p7_a2);
211     ddp_interest_code_rec.creation_date := rosetta_g_miss_date_in_map(p7_a3);
212     ddp_interest_code_rec.created_by := rosetta_g_miss_num_map(p7_a4);
213     ddp_interest_code_rec.last_update_login := rosetta_g_miss_num_map(p7_a5);
214     ddp_interest_code_rec.request_id := rosetta_g_miss_num_map(p7_a6);
215     ddp_interest_code_rec.program_application_id := rosetta_g_miss_num_map(p7_a7);
216     ddp_interest_code_rec.program_id := rosetta_g_miss_num_map(p7_a8);
217     ddp_interest_code_rec.program_update_date := rosetta_g_miss_date_in_map(p7_a9);
218     ddp_interest_code_rec.interest_type_id := rosetta_g_miss_num_map(p7_a10);
219     ddp_interest_code_rec.parent_interest_code_id := rosetta_g_miss_num_map(p7_a11);
220     ddp_interest_code_rec.master_enabled_flag := p7_a12;
221     ddp_interest_code_rec.category_id := rosetta_g_miss_num_map(p7_a13);
222     ddp_interest_code_rec.category_set_id := rosetta_g_miss_num_map(p7_a14);
223     ddp_interest_code_rec.pf_item_id := rosetta_g_miss_num_map(p7_a15);
224     ddp_interest_code_rec.pf_organization_id := rosetta_g_miss_num_map(p7_a16);
225     ddp_interest_code_rec.currency_code := p7_a17;
226     ddp_interest_code_rec.price := rosetta_g_miss_num_map(p7_a18);
227     ddp_interest_code_rec.attribute_category := p7_a19;
228     ddp_interest_code_rec.attribute1 := p7_a20;
229     ddp_interest_code_rec.attribute2 := p7_a21;
230     ddp_interest_code_rec.attribute3 := p7_a22;
231     ddp_interest_code_rec.attribute4 := p7_a23;
232     ddp_interest_code_rec.attribute5 := p7_a24;
233     ddp_interest_code_rec.attribute6 := p7_a25;
234     ddp_interest_code_rec.attribute7 := p7_a26;
235     ddp_interest_code_rec.attribute8 := p7_a27;
236     ddp_interest_code_rec.attribute9 := p7_a28;
237     ddp_interest_code_rec.attribute10 := p7_a29;
238     ddp_interest_code_rec.attribute11 := p7_a30;
239     ddp_interest_code_rec.attribute12 := p7_a31;
240     ddp_interest_code_rec.attribute13 := p7_a32;
241     ddp_interest_code_rec.attribute14 := p7_a33;
242     ddp_interest_code_rec.attribute15 := p7_a34;
243     ddp_interest_code_rec.code := p7_a35;
244     ddp_interest_code_rec.description := p7_a36;
245     ddp_interest_code_rec.prod_cat_set_id := rosetta_g_miss_num_map(p7_a37);
246     ddp_interest_code_rec.prod_cat_id := rosetta_g_miss_num_map(p7_a38);
247 
248     -- here's the delegated call to the old PL/SQL routine
249     as_interest_codes_pub.update_interest_code(p_api_version_number,
250       p_init_msg_list,
251       p_commit,
252       p_validation_level,
253       x_return_status,
254       x_msg_count,
255       x_msg_data,
256       ddp_interest_code_rec);
257 
258     -- copy data back from the local variables to OUT or IN-OUT args, if any
259 
260 
261 
262 
263 
264 
265 
266   end;
267 
268 end as_interest_codes_pub_w;