[Home] [Help]
PACKAGE BODY: APPS.CN_SRP_PAY_GROUPS_PKG
Source
1 PACKAGE BODY CN_SRP_PAY_GROUPS_PKG as
2 -- $Header: cnpgratb.pls 120.1 2005/08/25 02:16:19 sjustina noship $
3
4
5 --PRIVATE VARIABLES
6 g_temp_status_code VARCHAR2(30) := NULL;
7
8
9 -- Procedure : get_UID
10 --
11 -- Purpose : Get the Sequence Number to Create a new Pay Group.
12
13 PROCEDURE Get_UID( X_srp_pay_group_id IN OUT NOCOPY NUMBER) IS
14 BEGIN
15
16 SELECT cn_srp_pay_groups_s.nextval
17 INTO X_srp_pay_group_id
18 FROM dual;
19
20 END Get_UID;
21
22
23 -- Procedure : Insert_Record
24 --
25 -- Purpose : Procedure to create an salesrep assignment to a pay group
26
27 PROCEDURE Insert_Record(
28 x_srp_pay_group_Id IN OUT NOCOPY NUMBER
29 ,x_salesrep_id NUMBER
30 ,x_pay_group_id NUMBER
31 ,x_start_date DATE
32 ,x_end_date DATE
33 ,x_lock_flag VARCHAR2
34 ,x_role_pay_group_id NUMBER
35 ,x_org_id NUMBER
36 ,x_attribute_category VARCHAR2
37 ,x_attribute1 VARCHAR2
38 ,x_attribute2 VARCHAR2
39 ,x_attribute3 VARCHAR2
40 ,x_attribute4 VARCHAR2
41 ,x_attribute5 VARCHAR2
42 ,x_attribute6 VARCHAR2
43 ,x_attribute7 VARCHAR2
44 ,x_attribute8 VARCHAR2
45 ,x_attribute9 VARCHAR2
46 ,x_attribute10 VARCHAR2
47 ,x_attribute11 VARCHAR2
48 ,x_attribute12 VARCHAR2
49 ,x_attribute13 VARCHAR2
50 ,x_attribute14 VARCHAR2
51 ,x_attribute15 VARCHAR2
52 ,x_Created_By NUMBER
53 ,x_Creation_Date DATE
54 ,x_Last_Updated_By NUMBER
55 ,x_Last_Update_Date DATE
56 ,x_Last_Update_Login NUMBER
57 ,x_object_version_number IN OUT NOCOPY number) IS
58
59 BEGIN
60
61 IF x_srp_pay_group_id is null
62 THEN
63 Get_UID( X_srp_pay_group_id );
64 END IF;
65
66 INSERT INTO cn_srp_pay_groups_all(
67 srp_pay_group_id
68 ,salesrep_id
69 ,pay_group_id
70 ,start_date
71 ,end_date
72 ,lock_flag
73 ,role_pay_group_id
74 ,org_id
75 ,attribute_category
76 ,attribute1
77 ,attribute2
78 ,attribute3
79 ,attribute4
80 ,attribute5
81 ,attribute6
82 ,attribute7
83 ,attribute8
84 ,attribute9
85 ,attribute10
86 ,attribute11
87 ,attribute12
88 ,attribute13
89 ,attribute14
90 ,attribute15
91 ,Created_By
92 ,Creation_Date
93 ,Last_Updated_By
94 ,Last_Update_Date
95 ,Last_Update_Login
96 ,object_version_number)
97 VALUES (
98 x_srp_pay_group_id
99 ,x_salesrep_id
100 ,x_pay_group_id
101 ,x_start_date
102 ,x_end_date
103 ,x_lock_flag
104 ,Decode(x_role_pay_group_id,cn_api.g_miss_num,NULL,x_role_pay_group_id)
105 ,x_org_id
106 ,Decode(x_attribute_category,cn_api.g_miss_char,NULL,x_attribute_category)
107 ,Decode(x_attribute1,cn_api.g_miss_char,NULL,x_attribute1)
108 ,Decode(x_attribute2,cn_api.g_miss_char,NULL,x_attribute2)
109 ,Decode(x_attribute3,cn_api.g_miss_char,NULL,x_attribute3)
110 ,Decode(x_attribute4,cn_api.g_miss_char,NULL,x_attribute4)
111 ,Decode(x_attribute5,cn_api.g_miss_char,NULL,x_attribute5)
112 ,Decode(x_attribute6,cn_api.g_miss_char,NULL,x_attribute6)
113 ,Decode(x_attribute7,cn_api.g_miss_char,NULL,x_attribute7)
114 ,Decode(x_attribute8,cn_api.g_miss_char,NULL,x_attribute8)
115 ,Decode(x_attribute9,cn_api.g_miss_char,NULL,x_attribute9)
116 ,Decode(x_attribute10,cn_api.g_miss_char,NULL,x_attribute10)
117 ,Decode(x_attribute11,cn_api.g_miss_char,NULL,x_attribute11)
118 ,Decode(x_attribute12,cn_api.g_miss_char,NULL,x_attribute12)
119 ,Decode(x_attribute13,cn_api.g_miss_char,NULL,x_attribute13)
120 ,Decode(x_attribute14,cn_api.g_miss_char,NULL,x_attribute14)
121 ,Decode(x_attribute15,cn_api.g_miss_char,NULL,x_attribute15)
122 ,x_Created_By
123 ,x_Creation_Date
124 ,x_Last_Updated_By
125 ,x_Last_Update_Date
126 ,x_Last_Update_Login
127 ,1
128 );
129 x_object_version_number := 1;
130
131 END Insert_Record;
132
133
134 -- Procedure : Update_Record
135 --
136 -- Description : Procedure to update the end_date for the pay group assignment
137
138 PROCEDURE Update_Record(
139 x_srp_pay_group_id NUMBER
140 ,x_salesrep_id NUMBER
141 ,x_pay_group_id NUMBER
142 ,x_start_date DATE
143 ,x_end_date DATE
144 ,x_lock_flag VARCHAR2
145 ,x_role_pay_group_id NUMBER
146 ,x_org_id NUMBER
147 ,x_attribute_category VARCHAR2
148 ,x_attribute1 VARCHAR2
149 ,x_attribute2 VARCHAR2
150 ,x_attribute3 VARCHAR2
151 ,x_attribute4 VARCHAR2
152 ,x_attribute5 VARCHAR2
153 ,x_attribute6 VARCHAR2
154 ,x_attribute7 VARCHAR2
155 ,x_attribute8 VARCHAR2
156 ,x_attribute9 VARCHAR2
157 ,x_attribute10 VARCHAR2
158 ,x_attribute11 VARCHAR2
159 ,x_attribute12 VARCHAR2
160 ,x_attribute13 VARCHAR2
161 ,x_attribute14 VARCHAR2
162 ,x_attribute15 VARCHAR2
163 ,x_Last_Updated_By NUMBER
164 ,x_Last_Update_Date DATE
165 ,x_Last_Update_Login NUMBER
166 ,x_object_version_number IN OUT NOCOPY number) IS
167
168 BEGIN
169 UPDATE cn_srp_pay_groups_all
170 SET
171 salesrep_id = x_salesrep_id,
172 pay_group_id = x_pay_group_id,
173 start_date = x_start_date,
174 end_date = x_end_date,
175 lock_flag = x_lock_flag,
176 role_pay_group_id = x_role_pay_group_id,
177 org_id = x_org_id,
178 attribute_category = x_attribute_category,
179 attribute1 = x_attribute1,
180 attribute2 = x_attribute2,
181 attribute3 = x_attribute3,
182 attribute4 = x_attribute4,
183 attribute5 = x_attribute5,
184 attribute6 = x_attribute6,
185 attribute7 = x_attribute7,
186 attribute8 = x_attribute8,
187 attribute9 = x_attribute9,
188 attribute10 = x_attribute10,
189 attribute11 = x_attribute11,
190 attribute12 = x_attribute12,
191 attribute13 = x_attribute13,
192 attribute14 = x_attribute14,
193 attribute15 = x_attribute15,
194 last_update_date = x_Last_Update_Date,
195 last_updated_by = x_Last_Updated_By,
196 last_update_login = x_Last_Update_Login,
197 object_version_number = object_version_number + 1
198 WHERE srp_pay_group_id = x_srp_pay_group_id ;
199
200 if (SQL%NOTFOUND) then
201 Raise NO_DATA_FOUND;
202 end if;
203
204 select object_version_number into x_object_version_number
205 from cn_srp_pay_groups_all where srp_pay_group_id = x_srp_pay_group_id;
206
207 END Update_Record;
208
209
210 -- Procedure : PUBLIC PROGRAM
211 -- Description : Main procedure which calls insert/update depending on the
212 -- value in x_operation
213 PROCEDURE Begin_Record(
214 X_Operation VARCHAR2
215 ,X_srp_pay_group_id IN OUT NOCOPY NUMBER
216 ,X_salesrep_id NUMBER
217 ,x_pay_group_id NUMBER
218 ,X_start_date VARCHAR2
219 ,X_end_date VARCHAR2
220 ,X_lock_flag VARCHAR2
221 ,X_role_pay_group_id NUMBER
222 ,x_org_id NUMBER
223 ,X_attribute_category VARCHAR2
224 ,X_attribute1 VARCHAR2
225 ,X_attribute2 VARCHAR2
226 ,X_attribute3 VARCHAR2
227 ,X_attribute4 VARCHAR2
228 ,X_attribute5 VARCHAR2
229 ,X_attribute6 VARCHAR2
230 ,X_attribute7 VARCHAR2
231 ,X_attribute8 VARCHAR2
232 ,X_attribute9 VARCHAR2
233 ,X_attribute10 VARCHAR2
234 ,X_attribute11 VARCHAR2
235 ,X_attribute12 VARCHAR2
236 ,X_attribute13 VARCHAR2
237 ,X_attribute14 VARCHAR2
238 ,X_attribute15 VARCHAR2
239 ,X_Created_By NUMBER
240 ,X_Creation_Date DATE
241 ,X_Last_Updated_By NUMBER
242 ,X_Last_Update_Date DATE
243 ,X_Last_Update_Login NUMBER
244 ,x_object_version_number IN OUT NOCOPY NUMBER) IS
245
246 BEGIN
247
248 --Initialize global variables
249 g_temp_status_code := 'COMPLETE'; -- Assume it is good to begin with
250
251 IF X_Operation = 'INSERT' THEN
252
253 Insert_Record( X_srp_pay_group_id
254 ,X_salesrep_id
255 ,X_pay_group_id
256 ,X_start_date
257 ,X_end_date
258 ,X_lock_flag
259 ,x_role_pay_group_id
260 ,X_org_id
261 ,X_attribute_category
262 ,X_attribute1
263 ,X_attribute2
264 ,X_attribute3
265 ,X_attribute4
266 ,X_attribute5
267 ,X_attribute6
268 ,X_attribute7
269 ,X_attribute8
270 ,X_attribute9
271 ,X_attribute10
272 ,X_attribute11
273 ,X_attribute12
274 ,X_attribute13
275 ,X_attribute14
276 ,X_attribute15
277 ,X_Created_By
278 ,X_Creation_Date
279 ,X_Last_Updated_By
280 ,X_Last_Update_Date
281 ,X_Last_Update_Login
282 ,x_object_version_number);
283
284 ELSIF X_Operation = 'UPDATE' THEN
285
286 Update_Record( X_srp_pay_group_id
287 ,X_salesrep_id
288 ,X_pay_group_id
289 ,X_start_date
290 ,X_end_date
291 ,X_lock_flag
292 ,x_role_pay_group_id
293 ,x_org_id
294 ,X_attribute_category
295 ,X_attribute1
296 ,X_attribute2
297 ,X_attribute3
298 ,X_attribute4
299 ,X_attribute5
300 ,X_attribute6
301 ,X_attribute7
302 ,X_attribute8
303 ,X_attribute9
304 ,X_attribute10
305 ,X_attribute11
306 ,X_attribute12
307 ,X_attribute13
308 ,X_attribute14
309 ,X_attribute15
310 ,X_Last_Updated_By
311 ,X_Last_Update_Date
312 ,X_Last_Update_Login
313 ,x_object_version_number);
314
315 END IF;
316
317 END Begin_Record;
318
319 END CN_SRP_PAY_GROUPS_PKG;