[Home] [Help]
PACKAGE BODY: APPS.CN_SRP_PAYGROUP_PUB_W
Source
1 package body cn_srp_paygroup_pub_w as
2 /* $Header: cnwspgpb.pls 115.7 2002/12/08 09:28:03 pramadas 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 -- 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 procedure assign_salesreps(p_api_version NUMBER
14 , p_init_msg_list VARCHAR2
15 , p_commit VARCHAR2
16 , p_validation_level NUMBER
17 , x_return_status out nocopy VARCHAR2
18 , x_msg_count out nocopy NUMBER
19 , x_msg_data out nocopy VARCHAR2
20 , p7_a0 VARCHAR2
21 , p7_a1 VARCHAR2
22 , p7_a2 VARCHAR2
23 , p7_a3 NUMBER
24 , p7_a4 DATE
25 , p7_a5 DATE
26 , p7_a6 VARCHAR2
27 , p7_a7 NUMBER
28 , p7_a8 VARCHAR2
29 , p7_a9 VARCHAR2
30 , p7_a10 VARCHAR2
31 , p7_a11 VARCHAR2
32 , p7_a12 VARCHAR2
33 , p7_a13 VARCHAR2
34 , p7_a14 VARCHAR2
35 , p7_a15 VARCHAR2
36 , p7_a16 VARCHAR2
37 , p7_a17 VARCHAR2
38 , p7_a18 VARCHAR2
39 , p7_a19 VARCHAR2
40 , p7_a20 VARCHAR2
41 , p7_a21 VARCHAR2
42 , p7_a22 VARCHAR2
43 , p7_a23 VARCHAR2
44 , x_loading_status out nocopy VARCHAR2
45 , x_status out nocopy VARCHAR2
46 )
47
48 as
49 ddp_paygroup_assign_rec cn_srp_paygroup_pub.paygroup_assign_rec;
50 ddindx binary_integer; indx binary_integer;
51 begin
52
53 -- copy data to the local IN or IN-OUT args, if any
54
55
56
57
58
59
60
61 ddp_paygroup_assign_rec.pay_group_name := p7_a0;
62 ddp_paygroup_assign_rec.employee_type := p7_a1;
63 ddp_paygroup_assign_rec.employee_number := p7_a2;
64 ddp_paygroup_assign_rec.source_id := p7_a3;
65 ddp_paygroup_assign_rec.assignment_start_date := rosetta_g_miss_date_in_map(p7_a4);
66 ddp_paygroup_assign_rec.assignment_end_date := rosetta_g_miss_date_in_map(p7_a5);
67 ddp_paygroup_assign_rec.lock_flag := p7_a6;
68 ddp_paygroup_assign_rec.role_pay_group_id := p7_a7;
69 ddp_paygroup_assign_rec.attribute_category := p7_a8;
70 ddp_paygroup_assign_rec.attribute1 := p7_a9;
71 ddp_paygroup_assign_rec.attribute2 := p7_a10;
72 ddp_paygroup_assign_rec.attribute3 := p7_a11;
73 ddp_paygroup_assign_rec.attribute4 := p7_a12;
74 ddp_paygroup_assign_rec.attribute5 := p7_a13;
75 ddp_paygroup_assign_rec.attribute6 := p7_a14;
76 ddp_paygroup_assign_rec.attribute7 := p7_a15;
77 ddp_paygroup_assign_rec.attribute8 := p7_a16;
78 ddp_paygroup_assign_rec.attribute9 := p7_a17;
79 ddp_paygroup_assign_rec.attribute10 := p7_a18;
80 ddp_paygroup_assign_rec.attribute11 := p7_a19;
81 ddp_paygroup_assign_rec.attribute12 := p7_a20;
82 ddp_paygroup_assign_rec.attribute13 := p7_a21;
83 ddp_paygroup_assign_rec.attribute14 := p7_a22;
84 ddp_paygroup_assign_rec.attribute15 := p7_a23;
85
86
87
88 -- here's the delegated call to the old PL/SQL routine
89 cn_srp_paygroup_pub.assign_salesreps(p_api_version,
90 p_init_msg_list,
91 p_commit,
92 p_validation_level,
93 x_return_status,
94 x_msg_count,
95 x_msg_data,
96 ddp_paygroup_assign_rec,
97 x_loading_status,
98 x_status);
99
100 -- copy data back from the local variables to OUT or IN-OUT args, if any
101
102
103
104
105
106
107
108
109
110 end;
111
112 procedure update_srp_assignment(p_api_version NUMBER
113 , p_init_msg_list VARCHAR2
114 , p_commit VARCHAR2
115 , p_validation_level NUMBER
116 , x_return_status out nocopy VARCHAR2
117 , x_msg_count out nocopy NUMBER
118 , x_msg_data out nocopy VARCHAR2
119 , p7_a0 VARCHAR2
120 , p7_a1 VARCHAR2
121 , p7_a2 VARCHAR2
122 , p7_a3 NUMBER
123 , p7_a4 DATE
124 , p7_a5 DATE
125 , p7_a6 VARCHAR2
126 , p7_a7 NUMBER
127 , p7_a8 VARCHAR2
128 , p7_a9 VARCHAR2
129 , p7_a10 VARCHAR2
130 , p7_a11 VARCHAR2
131 , p7_a12 VARCHAR2
132 , p7_a13 VARCHAR2
133 , p7_a14 VARCHAR2
134 , p7_a15 VARCHAR2
135 , p7_a16 VARCHAR2
136 , p7_a17 VARCHAR2
137 , p7_a18 VARCHAR2
138 , p7_a19 VARCHAR2
139 , p7_a20 VARCHAR2
140 , p7_a21 VARCHAR2
141 , p7_a22 VARCHAR2
142 , p7_a23 VARCHAR2
143 , p8_a0 VARCHAR2
144 , p8_a1 VARCHAR2
145 , p8_a2 VARCHAR2
146 , p8_a3 NUMBER
147 , p8_a4 DATE
148 , p8_a5 DATE
149 , p8_a6 VARCHAR2
150 , p8_a7 NUMBER
151 , p8_a8 VARCHAR2
152 , p8_a9 VARCHAR2
153 , p8_a10 VARCHAR2
154 , p8_a11 VARCHAR2
155 , p8_a12 VARCHAR2
156 , p8_a13 VARCHAR2
157 , p8_a14 VARCHAR2
158 , p8_a15 VARCHAR2
159 , p8_a16 VARCHAR2
160 , p8_a17 VARCHAR2
161 , p8_a18 VARCHAR2
162 , p8_a19 VARCHAR2
163 , p8_a20 VARCHAR2
164 , p8_a21 VARCHAR2
165 , p8_a22 VARCHAR2
166 , p8_a23 VARCHAR2
167 , p_ovn NUMBER
168 , x_loading_status out nocopy VARCHAR2
169 , x_status out nocopy VARCHAR2
170 )
171
172 as
173 ddp_old_paygroup_assign_rec cn_srp_paygroup_pub.paygroup_assign_rec;
174 ddp_paygroup_assign_rec cn_srp_paygroup_pub.paygroup_assign_rec;
175 ddindx binary_integer; indx binary_integer;
176 begin
177
178 -- copy data to the local IN or IN-OUT args, if any
179
180
181
182
183
184
185
186 ddp_old_paygroup_assign_rec.pay_group_name := p7_a0;
187 ddp_old_paygroup_assign_rec.employee_type := p7_a1;
188 ddp_old_paygroup_assign_rec.employee_number := p7_a2;
189 ddp_old_paygroup_assign_rec.source_id := p7_a3;
190 ddp_old_paygroup_assign_rec.assignment_start_date := rosetta_g_miss_date_in_map(p7_a4);
191 ddp_old_paygroup_assign_rec.assignment_end_date := rosetta_g_miss_date_in_map(p7_a5);
192 ddp_old_paygroup_assign_rec.lock_flag := p7_a6;
193 ddp_old_paygroup_assign_rec.role_pay_group_id := p7_a7;
194 ddp_old_paygroup_assign_rec.attribute_category := p7_a8;
195 ddp_old_paygroup_assign_rec.attribute1 := p7_a9;
196 ddp_old_paygroup_assign_rec.attribute2 := p7_a10;
197 ddp_old_paygroup_assign_rec.attribute3 := p7_a11;
198 ddp_old_paygroup_assign_rec.attribute4 := p7_a12;
199 ddp_old_paygroup_assign_rec.attribute5 := p7_a13;
200 ddp_old_paygroup_assign_rec.attribute6 := p7_a14;
201 ddp_old_paygroup_assign_rec.attribute7 := p7_a15;
202 ddp_old_paygroup_assign_rec.attribute8 := p7_a16;
203 ddp_old_paygroup_assign_rec.attribute9 := p7_a17;
204 ddp_old_paygroup_assign_rec.attribute10 := p7_a18;
205 ddp_old_paygroup_assign_rec.attribute11 := p7_a19;
206 ddp_old_paygroup_assign_rec.attribute12 := p7_a20;
207 ddp_old_paygroup_assign_rec.attribute13 := p7_a21;
208 ddp_old_paygroup_assign_rec.attribute14 := p7_a22;
209 ddp_old_paygroup_assign_rec.attribute15 := p7_a23;
210
211 ddp_paygroup_assign_rec.pay_group_name := p8_a0;
212 ddp_paygroup_assign_rec.employee_type := p8_a1;
213 ddp_paygroup_assign_rec.employee_number := p8_a2;
214 ddp_paygroup_assign_rec.source_id := p8_a3;
215 ddp_paygroup_assign_rec.assignment_start_date := rosetta_g_miss_date_in_map(p8_a4);
216 ddp_paygroup_assign_rec.assignment_end_date := rosetta_g_miss_date_in_map(p8_a5);
217 ddp_paygroup_assign_rec.lock_flag := p8_a6;
218 ddp_paygroup_assign_rec.role_pay_group_id := p8_a7;
219 ddp_paygroup_assign_rec.attribute_category := p8_a8;
220 ddp_paygroup_assign_rec.attribute1 := p8_a9;
221 ddp_paygroup_assign_rec.attribute2 := p8_a10;
222 ddp_paygroup_assign_rec.attribute3 := p8_a11;
223 ddp_paygroup_assign_rec.attribute4 := p8_a12;
224 ddp_paygroup_assign_rec.attribute5 := p8_a13;
225 ddp_paygroup_assign_rec.attribute6 := p8_a14;
226 ddp_paygroup_assign_rec.attribute7 := p8_a15;
227 ddp_paygroup_assign_rec.attribute8 := p8_a16;
228 ddp_paygroup_assign_rec.attribute9 := p8_a17;
229 ddp_paygroup_assign_rec.attribute10 := p8_a18;
230 ddp_paygroup_assign_rec.attribute11 := p8_a19;
231 ddp_paygroup_assign_rec.attribute12 := p8_a20;
232 ddp_paygroup_assign_rec.attribute13 := p8_a21;
233 ddp_paygroup_assign_rec.attribute14 := p8_a22;
234 ddp_paygroup_assign_rec.attribute15 := p8_a23;
235
236
237
238
239 -- here's the delegated call to the old PL/SQL routine
240 cn_srp_paygroup_pub.update_srp_assignment(p_api_version,
241 p_init_msg_list,
242 p_commit,
243 p_validation_level,
244 x_return_status,
245 x_msg_count,
246 x_msg_data,
247 ddp_old_paygroup_assign_rec,
248 ddp_paygroup_assign_rec,
249 p_ovn,
250 x_loading_status,
251 x_status);
252
253 -- copy data back from the local variables to OUT or IN-OUT args, if any
254
255
256
257
258
259
260
261
262
263
264
265 end;
266
267 end cn_srp_paygroup_pub_w;