[Home] [Help]
1: PACKAGE BODY PAY_ELEMENT_TYPE_RULES_PKG as
2: /* $Header: pyetr01t.pkb 115.0 99/07/17 06:02:13 porting ship $ */
3: --
4: /*==========================================================================+
5: | Copyright (c) 1993 Oracle Corporation |
6: | Redwood Shores, California, USA |
7: | All rights reserved. |
8: +===========================================================================+
9: Name
10: pay_element_type_rules_pkg
11: Purpose
12: Supports the ETR block in the form PAYWSDRP (Define Element and
13: Distributuion Set.
14: Notes
50: where ecr.element_set_id = p_element_set_id
51: and ecr.classification_id = p_classification_id
52: and not exists
53: (select null
54: from pay_element_type_rules etr
55: where etr.element_set_id = ecr.element_set_id
56: and etr.element_type_id = p_element_type_id
57: and etr.include_or_exclude = 'E');
58: --
87: --
88: end if;
89: --
90: -- Create an include element type rule for the element.
91: insert into pay_element_type_rules
92: (element_type_id,
93: element_set_id,
94: include_or_exclude,
95: last_update_date,
108: trunc(sysdate)
109: from sys.dual
110: where not exists
111: (select null
112: from pay_element_type_rules etr
113: where etr.element_set_id = p_element_set_id
114: and etr.element_type_id = p_element_type_id);
115: --
116: -- Element rule could not be created as there already exists an element rule
117: -- for this element. Remove the element rule if it is excluded ie. this will
118: -- then make the element part of the set.
119: if sql%notfound then
120: --
121: delete from pay_element_type_rules etr
122: where etr.element_set_id = p_element_set_id
123: and etr.element_type_id = p_element_type_id
124: and etr.include_or_exclude = 'E';
125: --
159: pay_element_sets_pkg.lock_element_set
160: (p_element_set_id);
161: --
162: -- Create an exclude element type rule for the element.
163: insert into pay_element_type_rules
164: (element_type_id,
165: element_set_id,
166: include_or_exclude,
167: last_update_date,
180: trunc(sysdate)
181: from sys.dual
182: where not exists
183: (select null
184: from pay_element_type_rules etr
185: where etr.element_set_id = p_element_set_id
186: and etr.element_type_id = p_element_type_id);
187: --
188: -- Element rule could not be created as there already exists an element rule
189: -- for this element. Remove the element rule if it is included ie. this will
190: -- then remove the element from the set.
191: if sql%notfound then
192: --
193: delete from pay_element_type_rules etr
194: where etr.element_set_id = p_element_set_id
195: and etr.element_type_id = p_element_type_id
196: and etr.include_or_exclude = 'I';
197: --
220: X_Last_Update_Login NUMBER,
221: X_Created_By NUMBER,
222: X_Creation_Date DATE) IS
223: --
224: CURSOR C IS SELECT rowid FROM pay_element_type_rules
225: WHERE element_set_id = X_Element_Set_Id
226: AND element_type_id = X_Element_Type_Id;
227: --
228: BEGIN
226: AND element_type_id = X_Element_Type_Id;
227: --
228: BEGIN
229: --
230: INSERT INTO pay_element_type_rules
231: (element_type_id,
232: element_set_id,
233: include_or_exclude,
234: last_update_date,
251: if (C%NOTFOUND) then
252: CLOSE C;
253: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
254: hr_utility.set_message_token('PROCEDURE',
255: 'pay_element_type_rules_pkg.insert_row');
256: hr_utility.set_message_token('STEP','1');
257: hr_utility.raise_error;
258: end if;
259: CLOSE C;
276: X_Element_Type_Id NUMBER,
277: X_Element_Set_Id NUMBER,
278: X_Include_Or_Exclude VARCHAR2) IS
279: --
280: CURSOR C IS SELECT * FROM pay_element_type_rules
281: WHERE rowid = X_Rowid FOR UPDATE of Element_Set_Id NOWAIT;
282: --
283: Recinfo C%ROWTYPE;
284: --
289: if (C%NOTFOUND) then
290: CLOSE C;
291: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
292: hr_utility.set_message_token('PROCEDURE',
293: 'pay_element_type_rules_pkg.lock_row');
294: hr_utility.set_message_token('STEP','1');
295: hr_utility.raise_error;
296: end if;
297: CLOSE C;
337: X_Last_Updated_By NUMBER,
338: X_Last_Update_Login NUMBER) IS
339: BEGIN
340: --
341: UPDATE pay_element_type_rules
342: SET element_type_id = X_Element_Type_Id,
343: element_set_id = X_Element_Set_Id,
344: include_or_exclude = X_Include_Or_Exclude,
345: last_update_date = X_Last_Update_Date,
349: --
350: if (SQL%NOTFOUND) then
351: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
352: hr_utility.set_message_token('PROCEDURE',
353: 'pay_element_type_rules_pkg.update_row');
354: hr_utility.set_message_token('STEP','1');
355: hr_utility.raise_error;
356: end if;
357: --
371: --
372: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
373: BEGIN
374: --
375: DELETE FROM pay_element_type_rules
376: WHERE rowid = X_Rowid;
377: --
378: if (SQL%NOTFOUND) then
379: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
377: --
378: if (SQL%NOTFOUND) then
379: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
380: hr_utility.set_message_token('PROCEDURE',
381: 'pay_element_type_rules_pkg.delete_row');
382: hr_utility.set_message_token('STEP','1');
383: hr_utility.raise_error;
384: end if;
385: --
384: end if;
385: --
386: END Delete_Row;
387: --
388: END PAY_ELEMENT_TYPE_RULES_PKG;