[Home] [Help]
PACKAGE BODY: APPS.AS_SALES_METHODOLOGY_PVT_W
Source
1 package body as_sales_methodology_pvt_w as
2 /* $Header: asxsmwb.pls 120.1 2005/06/17 03:00 appldev $ */
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_sales_methodology(p_api_version NUMBER
23 , p_init_msg_list VARCHAR2
24 , p_commit VARCHAR2
25 , p_validate_level VARCHAR2
26 , p_sales_methodology_name VARCHAR2
27 , p_start_date_active date
28 , p_end_date_active date
29 , p_autocreatetask_flag VARCHAR2
30 , p_description VARCHAR2
31 , p_attribute1 VARCHAR2
32 , p_attribute2 VARCHAR2
33 , p_attribute3 VARCHAR2
34 , p_attribute4 VARCHAR2
35 , p_attribute5 VARCHAR2
36 , p_attribute6 VARCHAR2
37 , p_attribute7 VARCHAR2
38 , p_attribute8 VARCHAR2
39 , p_attribute9 VARCHAR2
40 , p_attribute10 VARCHAR2
41 , p_attribute11 VARCHAR2
42 , p_attribute12 VARCHAR2
43 , p_attribute13 VARCHAR2
44 , p_attribute14 VARCHAR2
45 , p_attribute15 VARCHAR2
46 , p_attribute_category VARCHAR2
47 , x_return_status out nocopy VARCHAR2
48 , x_msg_count out nocopy NUMBER
49 , x_msg_data out nocopy VARCHAR2
50 , x_sales_methodology_id out nocopy NUMBER
51 )
52
53 as
54 ddp_start_date_active date;
55 ddp_end_date_active date;
56 ddindx binary_integer; indx binary_integer;
57 begin
58
59 -- copy data to the local IN or IN-OUT args, if any
60
61
62
63
64
65 ddp_start_date_active := rosetta_g_miss_date_in_map(p_start_date_active);
66
67 ddp_end_date_active := rosetta_g_miss_date_in_map(p_end_date_active);
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91 -- here's the delegated call to the old PL/SQL routine
92 as_sales_methodology_pvt.create_sales_methodology(p_api_version,
93 p_init_msg_list,
94 p_commit,
95 p_validate_level,
96 p_sales_methodology_name,
97 ddp_start_date_active,
98 ddp_end_date_active,
99 p_autocreatetask_flag,
100 p_description,
101 p_attribute1,
102 p_attribute2,
103 p_attribute3,
104 p_attribute4,
105 p_attribute5,
106 p_attribute6,
107 p_attribute7,
108 p_attribute8,
109 p_attribute9,
110 p_attribute10,
111 p_attribute11,
112 p_attribute12,
113 p_attribute13,
114 p_attribute14,
115 p_attribute15,
116 p_attribute_category,
117 x_return_status,
118 x_msg_count,
119 x_msg_data,
120 x_sales_methodology_id);
121
122 -- copy data back from the local variables to OUT or IN-OUT args, if any
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151 end;
152
153 procedure update_sales_methodology(p_api_version NUMBER
154 , p_init_msg_list VARCHAR2
155 , p_commit VARCHAR2
156 , p_validate_level VARCHAR2
157 , p_sales_methodology_id NUMBER
158 , p_sales_methodology_name VARCHAR2
159 , p_start_date_active date
160 , p_end_date_active date
161 , p_autocreatetask_flag VARCHAR2
162 , p_description VARCHAR2
163 , p_attribute1 VARCHAR2
164 , p_attribute2 VARCHAR2
165 , p_attribute3 VARCHAR2
166 , p_attribute4 VARCHAR2
167 , p_attribute5 VARCHAR2
168 , p_attribute6 VARCHAR2
169 , p_attribute7 VARCHAR2
170 , p_attribute8 VARCHAR2
171 , p_attribute9 VARCHAR2
172 , p_attribute10 VARCHAR2
173 , p_attribute11 VARCHAR2
174 , p_attribute12 VARCHAR2
175 , p_attribute13 VARCHAR2
176 , p_attribute14 VARCHAR2
177 , p_attribute15 VARCHAR2
178 , p_attribute_category VARCHAR2
179 , x_return_status out nocopy VARCHAR2
180 , x_msg_count out nocopy NUMBER
181 , x_msg_data out nocopy VARCHAR2
182 , x_object_version_number in out nocopy NUMBER
183 )
184
185 as
186 ddp_start_date_active date;
187 ddp_end_date_active date;
188 ddindx binary_integer; indx binary_integer;
189 begin
190
191 -- copy data to the local IN or IN-OUT args, if any
192
193
194
195
196
197
198 ddp_start_date_active := rosetta_g_miss_date_in_map(p_start_date_active);
199
200 ddp_end_date_active := rosetta_g_miss_date_in_map(p_end_date_active);
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224 -- here's the delegated call to the old PL/SQL routine
225 as_sales_methodology_pvt.update_sales_methodology(p_api_version,
226 p_init_msg_list,
227 p_commit,
228 p_validate_level,
229 p_sales_methodology_id,
230 p_sales_methodology_name,
231 ddp_start_date_active,
232 ddp_end_date_active,
233 p_autocreatetask_flag,
234 p_description,
235 p_attribute1,
236 p_attribute2,
237 p_attribute3,
238 p_attribute4,
239 p_attribute5,
240 p_attribute6,
241 p_attribute7,
242 p_attribute8,
243 p_attribute9,
244 p_attribute10,
245 p_attribute11,
246 p_attribute12,
247 p_attribute13,
248 p_attribute14,
249 p_attribute15,
250 p_attribute_category,
251 x_return_status,
252 x_msg_count,
253 x_msg_data,
254 x_object_version_number);
255
256 -- copy data back from the local variables to OUT or IN-OUT args, if any
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286 end;
287
288 end as_sales_methodology_pvt_w;