[Home] [Help]
PACKAGE BODY: APPS.AMS_LISTGENERATION_PUB_W
Source
1 package body ams_listgeneration_pub_w as
2 /* $Header: amszlgnb.pls 120.1 2005/06/27 05:43:53 appldev 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_list_from_query(p_api_version NUMBER
23 , p_init_msg_list VARCHAR2
24 , p_commit VARCHAR2
25 , p_validation_level NUMBER
26 , p_list_name VARCHAR2
27 , p_list_type VARCHAR2
28 , p_owner_user_id NUMBER
29 , p_list_header_id NUMBER
30 , p_sql_string_tbl JTF_VARCHAR2_TABLE_4000
31 , p_primary_key VARCHAR2
32 , p_source_object_name VARCHAR2
33 , p_master_type VARCHAR2
34 , x_return_status OUT NOCOPY VARCHAR2
35 , x_msg_count OUT NOCOPY NUMBER
36 , x_msg_data OUT NOCOPY VARCHAR2
37 )
38 as
39 ddp_sql_string_tbl ams_list_query_pvt.sql_string_tbl;
40 ddindx binary_integer; indx binary_integer;
41 begin
42
43 -- copy data to the local IN or IN-OUT args, if any
44
45
46
47
48
49
50
51
52 ams_list_query_pvt_w.rosetta_table_copy_in_p2(ddp_sql_string_tbl, p_sql_string_tbl);
53
54
55
56
57
58
59
60 -- here's the delegated call to the old PL/SQL routine
61 ams_listgeneration_pub.create_list_from_query(p_api_version,
62 p_init_msg_list,
63 p_commit,
64 p_validation_level,
65 p_list_name,
66 p_list_type,
67 p_owner_user_id,
68 p_list_header_id,
69 ddp_sql_string_tbl,
70 p_primary_key,
71 p_source_object_name,
72 p_master_type,
73 x_return_status,
74 x_msg_count,
75 x_msg_data);
76
77 -- copy data back from the local OUT or IN-OUT args, if any
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92 end;
93
94 procedure create_list_from_query(p_api_version NUMBER
95 , p_init_msg_list VARCHAR2
96 , p_commit VARCHAR2
97 , p_validation_level NUMBER
98 , p_list_name VARCHAR2
99 , p_list_type VARCHAR2
100 , p_owner_user_id NUMBER
101 , p_list_header_id NUMBER
102 , p_sql_string_tbl JTF_VARCHAR2_TABLE_4000
103 , p_primary_key VARCHAR2
104 , p_source_object_name VARCHAR2
105 , p_master_type VARCHAR2
106 , p_query_param JTF_VARCHAR2_TABLE_4000
107 , x_return_status OUT NOCOPY VARCHAR2
108 , x_msg_count OUT NOCOPY NUMBER
109 , x_msg_data OUT NOCOPY VARCHAR2
110 )
111 as
112 ddp_sql_string_tbl ams_list_query_pvt.sql_string_tbl;
113 ddp_query_param ams_list_query_pvt.sql_string_tbl;
114 ddindx binary_integer; indx binary_integer;
115 begin
116
117 -- copy data to the local IN or IN-OUT args, if any
118
119
120
121
122
123
124
125
126 ams_list_query_pvt_w.rosetta_table_copy_in_p2(ddp_sql_string_tbl, p_sql_string_tbl);
127
128
129
130
131 ams_list_query_pvt_w.rosetta_table_copy_in_p2(ddp_query_param, p_query_param);
132
133
134
135
136 -- here's the delegated call to the old PL/SQL routine
137 ams_listgeneration_pub.create_list_from_query(p_api_version,
138 p_init_msg_list,
139 p_commit,
140 p_validation_level,
141 p_list_name,
142 p_list_type,
143 p_owner_user_id,
144 p_list_header_id,
145 ddp_sql_string_tbl,
146 p_primary_key,
147 p_source_object_name,
148 p_master_type,
149 ddp_query_param,
150 x_return_status,
151 x_msg_count,
152 x_msg_data);
153
154 -- copy data back from the local OUT or IN-OUT args, if any
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170 end;
171
172 end ams_listgeneration_pub_w;