[Home] [Help]
PACKAGE BODY: APPS.CN_IMP_HEADERS_PVT_W
Source
1 package body cn_imp_headers_pvt_w as
2 /* $Header: cnwimhrb.pls 120.1 2006/03/22 23:04 hanaraya 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 rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
6 rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
7
8 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
9 function rosetta_g_miss_date_in_map(d date) return date as
10 begin
11 if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
12 if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13 return d;
14 end;
15
16 procedure create_imp_header(p_api_version NUMBER
17 , p_init_msg_list VARCHAR2
18 , p_commit VARCHAR2
19 , p_validation_level NUMBER
20 , x_return_status out nocopy VARCHAR2
21 , x_msg_count out nocopy NUMBER
22 , x_msg_data out nocopy VARCHAR2
23 , p7_a0 NUMBER
24 , p7_a1 VARCHAR2
25 , p7_a2 VARCHAR2
26 , p7_a3 VARCHAR2
27 , p7_a4 VARCHAR2
28 , p7_a5 VARCHAR2
29 , p7_a6 VARCHAR2
30 , p7_a7 VARCHAR2
31 , p7_a8 VARCHAR2
32 , p7_a9 VARCHAR2
33 , p7_a10 VARCHAR2
34 , p7_a11 NUMBER
35 , p7_a12 NUMBER
36 , p7_a13 NUMBER
37 , p7_a14 VARCHAR2
38 , p7_a15 NUMBER
39 , p7_a16 NUMBER
40 , p7_a17 NUMBER
41 , p7_a18 VARCHAR2
42 , p7_a19 VARCHAR2
43 , p7_a20 VARCHAR2
44 , p7_a21 VARCHAR2
45 , p7_a22 VARCHAR2
46 , p7_a23 VARCHAR2
47 , p7_a24 VARCHAR2
48 , p7_a25 VARCHAR2
49 , p7_a26 VARCHAR2
50 , p7_a27 VARCHAR2
51 , p7_a28 VARCHAR2
52 , p7_a29 VARCHAR2
53 , p7_a30 VARCHAR2
54 , p7_a31 VARCHAR2
55 , p7_a32 VARCHAR2
56 , p7_a33 VARCHAR2
57 , p7_a34 DATE
58 , p7_a35 NUMBER
59 , p7_a36 DATE
60 , p7_a37 NUMBER
61 , p7_a38 NUMBER
62 , x_imp_header_id out nocopy NUMBER
63 )
64
65 as
66 ddp_imp_header cn_imp_headers_pvt.imp_headers_rec_type;
67 ddindx binary_integer; indx binary_integer;
68 begin
69
70 -- copy data to the local IN or IN-OUT args, if any
71
72
73
74
75
76
77
78 ddp_imp_header.imp_header_id := p7_a0;
79 ddp_imp_header.name := p7_a1;
80 ddp_imp_header.description := p7_a2;
81 ddp_imp_header.import_type_code := p7_a3;
82 ddp_imp_header.operation := p7_a4;
83 ddp_imp_header.server_flag := p7_a5;
84 ddp_imp_header.user_filename := p7_a6;
85 ddp_imp_header.data_filename := p7_a7;
86 ddp_imp_header.terminated_by := p7_a8;
87 ddp_imp_header.enclosed_by := p7_a9;
88 ddp_imp_header.headings_flag := p7_a10;
89 ddp_imp_header.staged_row := p7_a11;
90 ddp_imp_header.processed_row := p7_a12;
91 ddp_imp_header.failed_row := p7_a13;
92 ddp_imp_header.status_code := p7_a14;
93 ddp_imp_header.imp_map_id := p7_a15;
94 ddp_imp_header.source_column_num := p7_a16;
95 ddp_imp_header.object_version_number := p7_a17;
96 ddp_imp_header.attribute_category := p7_a18;
97 ddp_imp_header.attribute1 := p7_a19;
98 ddp_imp_header.attribute2 := p7_a20;
99 ddp_imp_header.attribute3 := p7_a21;
100 ddp_imp_header.attribute4 := p7_a22;
101 ddp_imp_header.attribute5 := p7_a23;
102 ddp_imp_header.attribute6 := p7_a24;
103 ddp_imp_header.attribute7 := p7_a25;
104 ddp_imp_header.attribute8 := p7_a26;
105 ddp_imp_header.attribute9 := p7_a27;
106 ddp_imp_header.attribute10 := p7_a28;
107 ddp_imp_header.attribute11 := p7_a29;
108 ddp_imp_header.attribute12 := p7_a30;
109 ddp_imp_header.attribute13 := p7_a31;
110 ddp_imp_header.attribute14 := p7_a32;
111 ddp_imp_header.attribute15 := p7_a33;
112 ddp_imp_header.creation_date := rosetta_g_miss_date_in_map(p7_a34);
113 ddp_imp_header.created_by := p7_a35;
114 ddp_imp_header.last_update_date := rosetta_g_miss_date_in_map(p7_a36);
115 ddp_imp_header.last_updated_by := p7_a37;
116 ddp_imp_header.last_update_login := p7_a38;
117
118
119 -- here's the delegated call to the old PL/SQL routine
120 cn_imp_headers_pvt.create_imp_header(p_api_version,
121 p_init_msg_list,
122 p_commit,
123 p_validation_level,
124 x_return_status,
125 x_msg_count,
126 x_msg_data,
127 ddp_imp_header,
128 x_imp_header_id);
129
130 -- copy data back from the local variables to OUT or IN-OUT args, if any
131
132
133
134
135
136
137
138
139 end;
140
141 procedure update_imp_header(p_api_version NUMBER
142 , p_init_msg_list VARCHAR2
143 , p_commit VARCHAR2
144 , p_validation_level NUMBER
145 , x_return_status out nocopy VARCHAR2
146 , x_msg_count out nocopy NUMBER
147 , x_msg_data out nocopy VARCHAR2
148 , p7_a0 NUMBER
149 , p7_a1 VARCHAR2
150 , p7_a2 VARCHAR2
151 , p7_a3 VARCHAR2
152 , p7_a4 VARCHAR2
153 , p7_a5 VARCHAR2
154 , p7_a6 VARCHAR2
155 , p7_a7 VARCHAR2
156 , p7_a8 VARCHAR2
157 , p7_a9 VARCHAR2
158 , p7_a10 VARCHAR2
159 , p7_a11 NUMBER
160 , p7_a12 NUMBER
161 , p7_a13 NUMBER
162 , p7_a14 VARCHAR2
163 , p7_a15 NUMBER
164 , p7_a16 NUMBER
165 , p7_a17 NUMBER
166 , p7_a18 VARCHAR2
167 , p7_a19 VARCHAR2
168 , p7_a20 VARCHAR2
169 , p7_a21 VARCHAR2
170 , p7_a22 VARCHAR2
171 , p7_a23 VARCHAR2
172 , p7_a24 VARCHAR2
173 , p7_a25 VARCHAR2
174 , p7_a26 VARCHAR2
175 , p7_a27 VARCHAR2
176 , p7_a28 VARCHAR2
177 , p7_a29 VARCHAR2
178 , p7_a30 VARCHAR2
179 , p7_a31 VARCHAR2
180 , p7_a32 VARCHAR2
181 , p7_a33 VARCHAR2
182 , p7_a34 DATE
183 , p7_a35 NUMBER
184 , p7_a36 DATE
185 , p7_a37 NUMBER
186 , p7_a38 NUMBER
187 )
188
189 as
190 ddp_imp_header cn_imp_headers_pvt.imp_headers_rec_type;
191 ddindx binary_integer; indx binary_integer;
192 begin
193
194 -- copy data to the local IN or IN-OUT args, if any
195
196
197
198
199
200
201
202 ddp_imp_header.imp_header_id := p7_a0;
203 ddp_imp_header.name := p7_a1;
204 ddp_imp_header.description := p7_a2;
205 ddp_imp_header.import_type_code := p7_a3;
206 ddp_imp_header.operation := p7_a4;
207 ddp_imp_header.server_flag := p7_a5;
208 ddp_imp_header.user_filename := p7_a6;
209 ddp_imp_header.data_filename := p7_a7;
210 ddp_imp_header.terminated_by := p7_a8;
211 ddp_imp_header.enclosed_by := p7_a9;
212 ddp_imp_header.headings_flag := p7_a10;
213 ddp_imp_header.staged_row := p7_a11;
214 ddp_imp_header.processed_row := p7_a12;
215 ddp_imp_header.failed_row := p7_a13;
216 ddp_imp_header.status_code := p7_a14;
217 ddp_imp_header.imp_map_id := p7_a15;
218 ddp_imp_header.source_column_num := p7_a16;
219 ddp_imp_header.object_version_number := p7_a17;
220 ddp_imp_header.attribute_category := p7_a18;
221 ddp_imp_header.attribute1 := p7_a19;
222 ddp_imp_header.attribute2 := p7_a20;
223 ddp_imp_header.attribute3 := p7_a21;
224 ddp_imp_header.attribute4 := p7_a22;
225 ddp_imp_header.attribute5 := p7_a23;
226 ddp_imp_header.attribute6 := p7_a24;
227 ddp_imp_header.attribute7 := p7_a25;
228 ddp_imp_header.attribute8 := p7_a26;
229 ddp_imp_header.attribute9 := p7_a27;
230 ddp_imp_header.attribute10 := p7_a28;
231 ddp_imp_header.attribute11 := p7_a29;
232 ddp_imp_header.attribute12 := p7_a30;
233 ddp_imp_header.attribute13 := p7_a31;
234 ddp_imp_header.attribute14 := p7_a32;
235 ddp_imp_header.attribute15 := p7_a33;
236 ddp_imp_header.creation_date := rosetta_g_miss_date_in_map(p7_a34);
237 ddp_imp_header.created_by := p7_a35;
238 ddp_imp_header.last_update_date := rosetta_g_miss_date_in_map(p7_a36);
239 ddp_imp_header.last_updated_by := p7_a37;
240 ddp_imp_header.last_update_login := p7_a38;
241
242 -- here's the delegated call to the old PL/SQL routine
243 cn_imp_headers_pvt.update_imp_header(p_api_version,
244 p_init_msg_list,
245 p_commit,
246 p_validation_level,
247 x_return_status,
248 x_msg_count,
249 x_msg_data,
250 ddp_imp_header);
251
252 -- copy data back from the local variables to OUT or IN-OUT args, if any
253
254
255
256
257
258
259
260 end;
261
262 procedure delete_imp_header(p_api_version NUMBER
263 , p_init_msg_list VARCHAR2
264 , p_commit VARCHAR2
265 , p_validation_level NUMBER
266 , x_return_status out nocopy VARCHAR2
267 , x_msg_count out nocopy NUMBER
268 , x_msg_data out nocopy VARCHAR2
269 , p_map_obj_num NUMBER
270 , p8_a0 NUMBER
271 , p8_a1 VARCHAR2
272 , p8_a2 VARCHAR2
273 , p8_a3 VARCHAR2
274 , p8_a4 VARCHAR2
275 , p8_a5 VARCHAR2
276 , p8_a6 VARCHAR2
277 , p8_a7 VARCHAR2
278 , p8_a8 VARCHAR2
279 , p8_a9 VARCHAR2
280 , p8_a10 VARCHAR2
281 , p8_a11 NUMBER
282 , p8_a12 NUMBER
283 , p8_a13 NUMBER
284 , p8_a14 VARCHAR2
285 , p8_a15 NUMBER
286 , p8_a16 NUMBER
287 , p8_a17 NUMBER
288 , p8_a18 VARCHAR2
289 , p8_a19 VARCHAR2
290 , p8_a20 VARCHAR2
291 , p8_a21 VARCHAR2
292 , p8_a22 VARCHAR2
293 , p8_a23 VARCHAR2
294 , p8_a24 VARCHAR2
295 , p8_a25 VARCHAR2
296 , p8_a26 VARCHAR2
297 , p8_a27 VARCHAR2
298 , p8_a28 VARCHAR2
299 , p8_a29 VARCHAR2
300 , p8_a30 VARCHAR2
301 , p8_a31 VARCHAR2
302 , p8_a32 VARCHAR2
303 , p8_a33 VARCHAR2
304 , p8_a34 DATE
305 , p8_a35 NUMBER
306 , p8_a36 DATE
307 , p8_a37 NUMBER
308 , p8_a38 NUMBER
309 )
310
311 as
312 ddp_imp_header cn_imp_headers_pvt.imp_headers_rec_type;
313 ddindx binary_integer; indx binary_integer;
314 begin
315
316 -- copy data to the local IN or IN-OUT args, if any
317
318
319
320
321
322
323
324
325 ddp_imp_header.imp_header_id := p8_a0;
326 ddp_imp_header.name := p8_a1;
327 ddp_imp_header.description := p8_a2;
328 ddp_imp_header.import_type_code := p8_a3;
329 ddp_imp_header.operation := p8_a4;
330 ddp_imp_header.server_flag := p8_a5;
331 ddp_imp_header.user_filename := p8_a6;
332 ddp_imp_header.data_filename := p8_a7;
333 ddp_imp_header.terminated_by := p8_a8;
334 ddp_imp_header.enclosed_by := p8_a9;
335 ddp_imp_header.headings_flag := p8_a10;
336 ddp_imp_header.staged_row := p8_a11;
337 ddp_imp_header.processed_row := p8_a12;
338 ddp_imp_header.failed_row := p8_a13;
339 ddp_imp_header.status_code := p8_a14;
340 ddp_imp_header.imp_map_id := p8_a15;
341 ddp_imp_header.source_column_num := p8_a16;
342 ddp_imp_header.object_version_number := p8_a17;
343 ddp_imp_header.attribute_category := p8_a18;
344 ddp_imp_header.attribute1 := p8_a19;
345 ddp_imp_header.attribute2 := p8_a20;
346 ddp_imp_header.attribute3 := p8_a21;
347 ddp_imp_header.attribute4 := p8_a22;
348 ddp_imp_header.attribute5 := p8_a23;
349 ddp_imp_header.attribute6 := p8_a24;
350 ddp_imp_header.attribute7 := p8_a25;
351 ddp_imp_header.attribute8 := p8_a26;
352 ddp_imp_header.attribute9 := p8_a27;
353 ddp_imp_header.attribute10 := p8_a28;
354 ddp_imp_header.attribute11 := p8_a29;
355 ddp_imp_header.attribute12 := p8_a30;
356 ddp_imp_header.attribute13 := p8_a31;
357 ddp_imp_header.attribute14 := p8_a32;
358 ddp_imp_header.attribute15 := p8_a33;
359 ddp_imp_header.creation_date := rosetta_g_miss_date_in_map(p8_a34);
360 ddp_imp_header.created_by := p8_a35;
361 ddp_imp_header.last_update_date := rosetta_g_miss_date_in_map(p8_a36);
362 ddp_imp_header.last_updated_by := p8_a37;
363 ddp_imp_header.last_update_login := p8_a38;
364
365 -- here's the delegated call to the old PL/SQL routine
366 cn_imp_headers_pvt.delete_imp_header(p_api_version,
367 p_init_msg_list,
368 p_commit,
369 p_validation_level,
370 x_return_status,
371 x_msg_count,
372 x_msg_data,
373 p_map_obj_num,
374 ddp_imp_header);
375
376 -- copy data back from the local variables to OUT or IN-OUT args, if any
377
378
379
380
381
382
383
384
385 end;
386
387 end cn_imp_headers_pvt_w;