[Home] [Help]
PACKAGE BODY: APPS.AMS_LISTACTION_PUB_W
Source
1 package body ams_listaction_pub_w as
2 /* $Header: amszlsab.pls 115.7 2002/11/22 08:58:22 jieli ship $ */
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 function rosetta_g_miss_num_map(n number) return number as
7 a number := fnd_api.g_miss_num;
8 b number := 0-1962.0724;
9 begin
10 if n=a then return b; end if;
11 if n=b then return a; end if;
12 return n;
13 end;
14
15 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
16 function rosetta_g_miss_date_in_map(d date) return date as
17 begin
18 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
19 return d;
20 end;
21
22 procedure create_listaction(p_api_version 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_action_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 VARCHAR2 := fnd_api.g_miss_char
39 , p7_a9 VARCHAR2 := fnd_api.g_miss_char
40 , p7_a10 NUMBER := 0-1962.0724
41 , p7_a11 NUMBER := 0-1962.0724
42 , p7_a12 NUMBER := 0-1962.0724
43 , p7_a13 NUMBER := 0-1962.0724
44 , p7_a14 NUMBER := 0-1962.0724
45 , p7_a15 NUMBER := 0-1962.0724
46 , p7_a16 VARCHAR2 := fnd_api.g_miss_char
47 , p7_a17 VARCHAR2 := fnd_api.g_miss_char
48 , p7_a18 VARCHAR2 := fnd_api.g_miss_char
49 , p7_a19 NUMBER := 0-1962.0724
50 , p7_a20 NUMBER := 0-1962.0724
51 , p7_a21 VARCHAR2 := fnd_api.g_miss_char
52 )
53 as
54 ddp_action_rec ams_listaction_pvt.action_rec_type;
55 ddindx binary_integer; indx binary_integer;
56 begin
57
58 -- copy data to the local IN or IN-OUT args, if any
59
60
61
62
63
64
65
66 ddp_action_rec.list_select_action_id := rosetta_g_miss_num_map(p7_a0);
67 ddp_action_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a1);
68 ddp_action_rec.last_updated_by := rosetta_g_miss_num_map(p7_a2);
69 ddp_action_rec.creation_date := rosetta_g_miss_date_in_map(p7_a3);
70 ddp_action_rec.created_by := rosetta_g_miss_num_map(p7_a4);
71 ddp_action_rec.last_update_login := rosetta_g_miss_num_map(p7_a5);
72 ddp_action_rec.object_version_number := rosetta_g_miss_num_map(p7_a6);
73 ddp_action_rec.order_number := rosetta_g_miss_num_map(p7_a7);
74 ddp_action_rec.list_action_type := p7_a8;
75 ddp_action_rec.arc_incl_object_from := p7_a9;
76 ddp_action_rec.incl_object_id := rosetta_g_miss_num_map(p7_a10);
77 ddp_action_rec.rank := rosetta_g_miss_num_map(p7_a11);
78 ddp_action_rec.no_of_rows_available := rosetta_g_miss_num_map(p7_a12);
79 ddp_action_rec.no_of_rows_requested := rosetta_g_miss_num_map(p7_a13);
80 ddp_action_rec.no_of_rows_used := rosetta_g_miss_num_map(p7_a14);
81 ddp_action_rec.distribution_pct := rosetta_g_miss_num_map(p7_a15);
82 ddp_action_rec.result_text := p7_a16;
83 ddp_action_rec.description := p7_a17;
84 ddp_action_rec.arc_action_used_by := p7_a18;
85 ddp_action_rec.action_used_by_id := rosetta_g_miss_num_map(p7_a19);
86 ddp_action_rec.no_of_rows_targeted := rosetta_g_miss_num_map(p7_a20);
87 ddp_action_rec.incl_control_group := p7_a21;
88
89
90 -- here's the delegated call to the old PL/SQL routine
91 ams_listaction_pub.create_listaction(p_api_version,
92 p_init_msg_list,
93 p_commit,
94 p_validation_level,
95 x_return_status,
96 x_msg_count,
97 x_msg_data,
98 ddp_action_rec,
99 x_action_id);
100
101 -- copy data back from the local OUT or IN-OUT args, if any
102
103
104
105
106
107
108
109
110 end;
111
112 procedure update_listaction(p_api_version NUMBER
113 , p_init_msg_list VARCHAR2
114 , p_commit VARCHAR2
115 , p_validation_level NUMBER
116 , x_return_status OUT NOCOPY VARCHAR2
117 , x_msg_count OUT NOCOPY NUMBER
118 , x_msg_data OUT NOCOPY VARCHAR2
119 , p7_a0 NUMBER := 0-1962.0724
120 , p7_a1 DATE := fnd_api.g_miss_date
121 , p7_a2 NUMBER := 0-1962.0724
122 , p7_a3 DATE := fnd_api.g_miss_date
123 , p7_a4 NUMBER := 0-1962.0724
124 , p7_a5 NUMBER := 0-1962.0724
125 , p7_a6 NUMBER := 0-1962.0724
126 , p7_a7 NUMBER := 0-1962.0724
127 , p7_a8 VARCHAR2 := fnd_api.g_miss_char
128 , p7_a9 VARCHAR2 := fnd_api.g_miss_char
129 , p7_a10 NUMBER := 0-1962.0724
130 , p7_a11 NUMBER := 0-1962.0724
131 , p7_a12 NUMBER := 0-1962.0724
132 , p7_a13 NUMBER := 0-1962.0724
133 , p7_a14 NUMBER := 0-1962.0724
134 , p7_a15 NUMBER := 0-1962.0724
135 , p7_a16 VARCHAR2 := fnd_api.g_miss_char
136 , p7_a17 VARCHAR2 := fnd_api.g_miss_char
137 , p7_a18 VARCHAR2 := fnd_api.g_miss_char
138 , p7_a19 NUMBER := 0-1962.0724
139 , p7_a20 NUMBER := 0-1962.0724
140 , p7_a21 VARCHAR2 := fnd_api.g_miss_char
141 )
142 as
143 ddp_action_rec ams_listaction_pvt.action_rec_type;
144 ddindx binary_integer; indx binary_integer;
145 begin
146
147 -- copy data to the local IN or IN-OUT args, if any
148
149
150
151
152
153
154
155 ddp_action_rec.list_select_action_id := rosetta_g_miss_num_map(p7_a0);
156 ddp_action_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a1);
157 ddp_action_rec.last_updated_by := rosetta_g_miss_num_map(p7_a2);
158 ddp_action_rec.creation_date := rosetta_g_miss_date_in_map(p7_a3);
159 ddp_action_rec.created_by := rosetta_g_miss_num_map(p7_a4);
160 ddp_action_rec.last_update_login := rosetta_g_miss_num_map(p7_a5);
161 ddp_action_rec.object_version_number := rosetta_g_miss_num_map(p7_a6);
162 ddp_action_rec.order_number := rosetta_g_miss_num_map(p7_a7);
163 ddp_action_rec.list_action_type := p7_a8;
164 ddp_action_rec.arc_incl_object_from := p7_a9;
165 ddp_action_rec.incl_object_id := rosetta_g_miss_num_map(p7_a10);
166 ddp_action_rec.rank := rosetta_g_miss_num_map(p7_a11);
167 ddp_action_rec.no_of_rows_available := rosetta_g_miss_num_map(p7_a12);
168 ddp_action_rec.no_of_rows_requested := rosetta_g_miss_num_map(p7_a13);
169 ddp_action_rec.no_of_rows_used := rosetta_g_miss_num_map(p7_a14);
170 ddp_action_rec.distribution_pct := rosetta_g_miss_num_map(p7_a15);
171 ddp_action_rec.result_text := p7_a16;
172 ddp_action_rec.description := p7_a17;
173 ddp_action_rec.arc_action_used_by := p7_a18;
174 ddp_action_rec.action_used_by_id := rosetta_g_miss_num_map(p7_a19);
175 ddp_action_rec.no_of_rows_targeted := rosetta_g_miss_num_map(p7_a20);
176 ddp_action_rec.incl_control_group := p7_a21;
177
178 -- here's the delegated call to the old PL/SQL routine
179 ams_listaction_pub.update_listaction(p_api_version,
180 p_init_msg_list,
181 p_commit,
182 p_validation_level,
183 x_return_status,
184 x_msg_count,
185 x_msg_data,
186 ddp_action_rec);
187
188 -- copy data back from the local OUT or IN-OUT args, if any
189
190
191
192
193
194
195
196 end;
197
198 procedure validate_listaction(p_api_version NUMBER
199 , p_init_msg_list VARCHAR2
200 , p_validation_level NUMBER
201 , x_return_status OUT NOCOPY VARCHAR2
202 , x_msg_count OUT NOCOPY NUMBER
203 , x_msg_data OUT NOCOPY VARCHAR2
204 , p6_a0 NUMBER := 0-1962.0724
205 , p6_a1 DATE := fnd_api.g_miss_date
206 , p6_a2 NUMBER := 0-1962.0724
207 , p6_a3 DATE := fnd_api.g_miss_date
208 , p6_a4 NUMBER := 0-1962.0724
209 , p6_a5 NUMBER := 0-1962.0724
210 , p6_a6 NUMBER := 0-1962.0724
211 , p6_a7 NUMBER := 0-1962.0724
212 , p6_a8 VARCHAR2 := fnd_api.g_miss_char
213 , p6_a9 VARCHAR2 := fnd_api.g_miss_char
214 , p6_a10 NUMBER := 0-1962.0724
215 , p6_a11 NUMBER := 0-1962.0724
216 , p6_a12 NUMBER := 0-1962.0724
217 , p6_a13 NUMBER := 0-1962.0724
218 , p6_a14 NUMBER := 0-1962.0724
219 , p6_a15 NUMBER := 0-1962.0724
220 , p6_a16 VARCHAR2 := fnd_api.g_miss_char
221 , p6_a17 VARCHAR2 := fnd_api.g_miss_char
222 , p6_a18 VARCHAR2 := fnd_api.g_miss_char
223 , p6_a19 NUMBER := 0-1962.0724
224 , p6_a20 NUMBER := 0-1962.0724
225 , p6_a21 VARCHAR2 := fnd_api.g_miss_char
226 )
227 as
228 ddp_action_rec ams_listaction_pvt.action_rec_type;
229 ddindx binary_integer; indx binary_integer;
230 begin
231
232 -- copy data to the local IN or IN-OUT args, if any
233
234
235
236
237
238
239 ddp_action_rec.list_select_action_id := rosetta_g_miss_num_map(p6_a0);
240 ddp_action_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a1);
241 ddp_action_rec.last_updated_by := rosetta_g_miss_num_map(p6_a2);
242 ddp_action_rec.creation_date := rosetta_g_miss_date_in_map(p6_a3);
243 ddp_action_rec.created_by := rosetta_g_miss_num_map(p6_a4);
244 ddp_action_rec.last_update_login := rosetta_g_miss_num_map(p6_a5);
245 ddp_action_rec.object_version_number := rosetta_g_miss_num_map(p6_a6);
246 ddp_action_rec.order_number := rosetta_g_miss_num_map(p6_a7);
247 ddp_action_rec.list_action_type := p6_a8;
248 ddp_action_rec.arc_incl_object_from := p6_a9;
249 ddp_action_rec.incl_object_id := rosetta_g_miss_num_map(p6_a10);
250 ddp_action_rec.rank := rosetta_g_miss_num_map(p6_a11);
251 ddp_action_rec.no_of_rows_available := rosetta_g_miss_num_map(p6_a12);
252 ddp_action_rec.no_of_rows_requested := rosetta_g_miss_num_map(p6_a13);
253 ddp_action_rec.no_of_rows_used := rosetta_g_miss_num_map(p6_a14);
254 ddp_action_rec.distribution_pct := rosetta_g_miss_num_map(p6_a15);
255 ddp_action_rec.result_text := p6_a16;
256 ddp_action_rec.description := p6_a17;
257 ddp_action_rec.arc_action_used_by := p6_a18;
258 ddp_action_rec.action_used_by_id := rosetta_g_miss_num_map(p6_a19);
259 ddp_action_rec.no_of_rows_targeted := rosetta_g_miss_num_map(p6_a20);
260 ddp_action_rec.incl_control_group := p6_a21;
261
262 -- here's the delegated call to the old PL/SQL routine
263 ams_listaction_pub.validate_listaction(p_api_version,
264 p_init_msg_list,
265 p_validation_level,
266 x_return_status,
267 x_msg_count,
268 x_msg_data,
269 ddp_action_rec);
270
271 -- copy data back from the local OUT or IN-OUT args, if any
272
273
274
275
276
277
278 end;
279
280 end ams_listaction_pub_w;