1 package body ams_listimport_pvt_w as
2 /* $Header: amswimlb.pls 115.15 2002/11/12 23:44:36 jieli 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 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 import_process(p_import_list_header_id NUMBER
23 , p_start_time date
24 , p_control_file VARCHAR2
25 , p_staged_only VARCHAR2
26 , p_owner_user_id NUMBER
27 , p_generate_list VARCHAR2
28 , p_list_name VARCHAR2
29 , x_request_id OUT NOCOPY NUMBER
30 )
31
32 as
33 ddp_start_time date;
34 ddindx binary_integer; indx binary_integer;
35 begin
36
37 -- copy data to the local IN or IN-OUT args, if any
38
39 ddp_start_time := rosetta_g_miss_date_in_map(p_start_time);
40
41
42
43
44
45
46
47 -- here's the delegated call to the old PL/SQL routine
48 ams_listimport_pvt.import_process(p_import_list_header_id,
49 ddp_start_time,
50 p_control_file,
51 p_staged_only,
52 p_owner_user_id,
53 p_generate_list,
54 p_list_name,
55 x_request_id);
56
57 -- copy data back from the local variables to OUT or IN-OUT args, if any
58
59
60
61
62
63
64
65 end;
66
67 end ams_listimport_pvt_w;