[Home] [Help]
PACKAGE BODY: APPS.OKL_SETUPPDTTEMPLATES_PUB_W
Source
1 package body okl_setuppdttemplates_pub_w as
2 /* $Header: OKLUSPTB.pls 115.2 2002/12/24 04:20:57 sgorantl 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 -- 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 get_rec(x_return_status out nocopy VARCHAR2
23 , x_msg_data out nocopy VARCHAR2
24 , x_no_data_found out nocopy number
25 , p4_a0 out nocopy NUMBER
26 , p4_a1 out nocopy NUMBER
27 , p4_a2 out nocopy VARCHAR2
28 , p4_a3 out nocopy VARCHAR2
29 , p4_a4 out nocopy VARCHAR2
30 , p4_a5 out nocopy DATE
31 , p4_a6 out nocopy DATE
32 , p4_a7 out nocopy NUMBER
33 , p4_a8 out nocopy DATE
34 , p4_a9 out nocopy NUMBER
35 , p4_a10 out nocopy DATE
36 , p4_a11 out nocopy NUMBER
37 , p0_a0 NUMBER := 0-1962.0724
38 , p0_a1 NUMBER := 0-1962.0724
39 , p0_a2 VARCHAR2 := fnd_api.g_miss_char
40 , p0_a3 VARCHAR2 := fnd_api.g_miss_char
41 , p0_a4 VARCHAR2 := fnd_api.g_miss_char
42 , p0_a5 DATE := fnd_api.g_miss_date
43 , p0_a6 DATE := fnd_api.g_miss_date
44 , p0_a7 NUMBER := 0-1962.0724
45 , p0_a8 DATE := fnd_api.g_miss_date
46 , p0_a9 NUMBER := 0-1962.0724
47 , p0_a10 DATE := fnd_api.g_miss_date
48 , p0_a11 NUMBER := 0-1962.0724
49 )
50
51 as
52 ddp_ptlv_rec okl_setuppdttemplates_pub.ptlv_rec_type;
53 ddx_no_data_found boolean;
54 ddx_ptlv_rec okl_setuppdttemplates_pub.ptlv_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 ddp_ptlv_rec.id := rosetta_g_miss_num_map(p0_a0);
60 ddp_ptlv_rec.object_version_number := rosetta_g_miss_num_map(p0_a1);
61 ddp_ptlv_rec.name := p0_a2;
62 ddp_ptlv_rec.version := p0_a3;
63 ddp_ptlv_rec.description := p0_a4;
64 ddp_ptlv_rec.from_date := rosetta_g_miss_date_in_map(p0_a5);
65 ddp_ptlv_rec.to_date := rosetta_g_miss_date_in_map(p0_a6);
66 ddp_ptlv_rec.created_by := rosetta_g_miss_num_map(p0_a7);
67 ddp_ptlv_rec.creation_date := rosetta_g_miss_date_in_map(p0_a8);
68 ddp_ptlv_rec.last_updated_by := rosetta_g_miss_num_map(p0_a9);
69 ddp_ptlv_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a10);
70 ddp_ptlv_rec.last_update_login := rosetta_g_miss_num_map(p0_a11);
71
72
73
74
75
76 -- here's the delegated call to the old PL/SQL routine
77 okl_setuppdttemplates_pub.get_rec(ddp_ptlv_rec,
78 x_return_status,
79 x_msg_data,
80 ddx_no_data_found,
81 ddx_ptlv_rec);
82
83 -- copy data back from the local variables to OUT or IN-OUT args, if any
84
85
86
87 if ddx_no_data_found is null
88 then x_no_data_found := null;
89 elsif ddx_no_data_found
90 then x_no_data_found := 1;
91 else x_no_data_found := 0;
92 end if;
93
94 p4_a0 := rosetta_g_miss_num_map(ddx_ptlv_rec.id);
95 p4_a1 := rosetta_g_miss_num_map(ddx_ptlv_rec.object_version_number);
96 p4_a2 := ddx_ptlv_rec.name;
97 p4_a3 := ddx_ptlv_rec.version;
98 p4_a4 := ddx_ptlv_rec.description;
99 p4_a5 := ddx_ptlv_rec.from_date;
100 p4_a6 := ddx_ptlv_rec.to_date;
101 p4_a7 := rosetta_g_miss_num_map(ddx_ptlv_rec.created_by);
102 p4_a8 := ddx_ptlv_rec.creation_date;
103 p4_a9 := rosetta_g_miss_num_map(ddx_ptlv_rec.last_updated_by);
104 p4_a10 := ddx_ptlv_rec.last_update_date;
105 p4_a11 := rosetta_g_miss_num_map(ddx_ptlv_rec.last_update_login);
106 end;
107
108 procedure insert_pdttemplates(p_api_version NUMBER
109 , p_init_msg_list VARCHAR2
110 , x_return_status out nocopy VARCHAR2
111 , x_msg_count out nocopy NUMBER
112 , x_msg_data out nocopy VARCHAR2
113 , p6_a0 out nocopy NUMBER
114 , p6_a1 out nocopy NUMBER
115 , p6_a2 out nocopy VARCHAR2
116 , p6_a3 out nocopy VARCHAR2
117 , p6_a4 out nocopy VARCHAR2
118 , p6_a5 out nocopy DATE
119 , p6_a6 out nocopy DATE
120 , p6_a7 out nocopy NUMBER
121 , p6_a8 out nocopy DATE
122 , p6_a9 out nocopy NUMBER
123 , p6_a10 out nocopy DATE
124 , p6_a11 out nocopy NUMBER
125 , p5_a0 NUMBER := 0-1962.0724
126 , p5_a1 NUMBER := 0-1962.0724
127 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
128 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
129 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
130 , p5_a5 DATE := fnd_api.g_miss_date
131 , p5_a6 DATE := fnd_api.g_miss_date
132 , p5_a7 NUMBER := 0-1962.0724
133 , p5_a8 DATE := fnd_api.g_miss_date
134 , p5_a9 NUMBER := 0-1962.0724
135 , p5_a10 DATE := fnd_api.g_miss_date
136 , p5_a11 NUMBER := 0-1962.0724
137 )
138
139 as
140 ddp_ptlv_rec okl_setuppdttemplates_pub.ptlv_rec_type;
141 ddx_ptlv_rec okl_setuppdttemplates_pub.ptlv_rec_type;
142 ddindx binary_integer; indx binary_integer;
143 begin
144
145 -- copy data to the local IN or IN-OUT args, if any
146
147
148
149
150
151 ddp_ptlv_rec.id := rosetta_g_miss_num_map(p5_a0);
152 ddp_ptlv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
153 ddp_ptlv_rec.name := p5_a2;
154 ddp_ptlv_rec.version := p5_a3;
155 ddp_ptlv_rec.description := p5_a4;
156 ddp_ptlv_rec.from_date := rosetta_g_miss_date_in_map(p5_a5);
157 ddp_ptlv_rec.to_date := rosetta_g_miss_date_in_map(p5_a6);
158 ddp_ptlv_rec.created_by := rosetta_g_miss_num_map(p5_a7);
159 ddp_ptlv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a8);
160 ddp_ptlv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a9);
161 ddp_ptlv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a10);
162 ddp_ptlv_rec.last_update_login := rosetta_g_miss_num_map(p5_a11);
163
164
165 -- here's the delegated call to the old PL/SQL routine
166 okl_setuppdttemplates_pub.insert_pdttemplates(p_api_version,
167 p_init_msg_list,
168 x_return_status,
169 x_msg_count,
170 x_msg_data,
171 ddp_ptlv_rec,
172 ddx_ptlv_rec);
173
174 -- copy data back from the local variables to OUT or IN-OUT args, if any
175
176
177
178
179
180
181 p6_a0 := rosetta_g_miss_num_map(ddx_ptlv_rec.id);
182 p6_a1 := rosetta_g_miss_num_map(ddx_ptlv_rec.object_version_number);
183 p6_a2 := ddx_ptlv_rec.name;
184 p6_a3 := ddx_ptlv_rec.version;
185 p6_a4 := ddx_ptlv_rec.description;
186 p6_a5 := ddx_ptlv_rec.from_date;
187 p6_a6 := ddx_ptlv_rec.to_date;
188 p6_a7 := rosetta_g_miss_num_map(ddx_ptlv_rec.created_by);
189 p6_a8 := ddx_ptlv_rec.creation_date;
190 p6_a9 := rosetta_g_miss_num_map(ddx_ptlv_rec.last_updated_by);
191 p6_a10 := ddx_ptlv_rec.last_update_date;
192 p6_a11 := rosetta_g_miss_num_map(ddx_ptlv_rec.last_update_login);
193 end;
194
195 procedure update_pdttemplates(p_api_version NUMBER
196 , p_init_msg_list VARCHAR2
197 , x_return_status out nocopy VARCHAR2
198 , x_msg_count out nocopy NUMBER
199 , x_msg_data out nocopy VARCHAR2
200 , p6_a0 out nocopy NUMBER
201 , p6_a1 out nocopy NUMBER
202 , p6_a2 out nocopy VARCHAR2
203 , p6_a3 out nocopy VARCHAR2
204 , p6_a4 out nocopy VARCHAR2
205 , p6_a5 out nocopy DATE
206 , p6_a6 out nocopy DATE
207 , p6_a7 out nocopy NUMBER
208 , p6_a8 out nocopy DATE
209 , p6_a9 out nocopy NUMBER
210 , p6_a10 out nocopy DATE
211 , p6_a11 out nocopy NUMBER
212 , p5_a0 NUMBER := 0-1962.0724
213 , p5_a1 NUMBER := 0-1962.0724
214 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
215 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
216 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
217 , p5_a5 DATE := fnd_api.g_miss_date
218 , p5_a6 DATE := fnd_api.g_miss_date
219 , p5_a7 NUMBER := 0-1962.0724
220 , p5_a8 DATE := fnd_api.g_miss_date
221 , p5_a9 NUMBER := 0-1962.0724
222 , p5_a10 DATE := fnd_api.g_miss_date
223 , p5_a11 NUMBER := 0-1962.0724
224 )
225
226 as
227 ddp_ptlv_rec okl_setuppdttemplates_pub.ptlv_rec_type;
228 ddx_ptlv_rec okl_setuppdttemplates_pub.ptlv_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 ddp_ptlv_rec.id := rosetta_g_miss_num_map(p5_a0);
239 ddp_ptlv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
240 ddp_ptlv_rec.name := p5_a2;
241 ddp_ptlv_rec.version := p5_a3;
242 ddp_ptlv_rec.description := p5_a4;
243 ddp_ptlv_rec.from_date := rosetta_g_miss_date_in_map(p5_a5);
244 ddp_ptlv_rec.to_date := rosetta_g_miss_date_in_map(p5_a6);
245 ddp_ptlv_rec.created_by := rosetta_g_miss_num_map(p5_a7);
246 ddp_ptlv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a8);
247 ddp_ptlv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a9);
248 ddp_ptlv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a10);
249 ddp_ptlv_rec.last_update_login := rosetta_g_miss_num_map(p5_a11);
250
251
252 -- here's the delegated call to the old PL/SQL routine
253 okl_setuppdttemplates_pub.update_pdttemplates(p_api_version,
254 p_init_msg_list,
255 x_return_status,
256 x_msg_count,
257 x_msg_data,
258 ddp_ptlv_rec,
259 ddx_ptlv_rec);
260
261 -- copy data back from the local variables to OUT or IN-OUT args, if any
262
263
264
265
266
267
268 p6_a0 := rosetta_g_miss_num_map(ddx_ptlv_rec.id);
269 p6_a1 := rosetta_g_miss_num_map(ddx_ptlv_rec.object_version_number);
270 p6_a2 := ddx_ptlv_rec.name;
271 p6_a3 := ddx_ptlv_rec.version;
272 p6_a4 := ddx_ptlv_rec.description;
273 p6_a5 := ddx_ptlv_rec.from_date;
274 p6_a6 := ddx_ptlv_rec.to_date;
275 p6_a7 := rosetta_g_miss_num_map(ddx_ptlv_rec.created_by);
276 p6_a8 := ddx_ptlv_rec.creation_date;
277 p6_a9 := rosetta_g_miss_num_map(ddx_ptlv_rec.last_updated_by);
278 p6_a10 := ddx_ptlv_rec.last_update_date;
279 p6_a11 := rosetta_g_miss_num_map(ddx_ptlv_rec.last_update_login);
280 end;
281
282 end okl_setuppdttemplates_pub_w;