[Home] [Help]
71: from pay_element_classifications ecl
72: where ecl.classification_id = p_classification_id
73: and not exists
74: (select null
75: from pay_balance_classifications bcl
76: where bcl.balance_type_id = p_balance_type_id
77: and bcl.classification_id = ecl.classification_id
78: and (p_row_id is null or
79: (p_row_id is not null and
81: and ((p_startup_mode is null
82: and ((ecl.parent_classification_id is null and
83: not exists
84: (select null
85: from pay_balance_classifications bcl2,
86: pay_element_classifications ecl2
87: where bcl2.balance_type_id = p_balance_type_id
88: and ecl2.classification_id = bcl2.classification_id
89: and ecl2.parent_classification_id = ecl.classification_id
92: chartorowid(p_row_id) <> bcl2.rowid))))
93: or (ecl.parent_classification_id is not null and
94: not exists
95: (select null
96: from pay_balance_classifications bcl3,
97: pay_element_classifications ecl3
98: where bcl3.balance_type_id = p_balance_type_id
99: and ecl3.classification_id = bcl3.classification_id
100: and (ecl3.parent_classification_id =
156: X_Legislation_Subgroup VARCHAR2,
157: X_mode VARCHAR2 default null)
158: IS
159: --
160: CURSOR C IS SELECT rowid FROM pay_balance_classifications
161: WHERE balance_classification_id = X_Balance_Classification_Id;
162: --
163: CURSOR C2 IS SELECT pay_balance_classifications_s.nextval FROM sys.dual;
164: --
159: --
160: CURSOR C IS SELECT rowid FROM pay_balance_classifications
161: WHERE balance_classification_id = X_Balance_Classification_Id;
162: --
163: CURSOR C2 IS SELECT pay_balance_classifications_s.nextval FROM sys.dual;
164: --
165: BEGIN
166: --
167: -- Lock balance type to stop other users changing the balance.
192: FETCH C2 INTO X_Balance_Classification_Id;
193: CLOSE C2;
194: end if;
195: --
196: INSERT INTO pay_balance_classifications
197: (balance_classification_id,
198: business_group_id,
199: legislation_code,
200: balance_type_id,
253: X_Classification_Id NUMBER,
254: X_Scale NUMBER,
255: X_Legislation_Subgroup VARCHAR2) IS
256: --
257: CURSOR C IS SELECT * FROM pay_balance_classifications
258: WHERE rowid = X_Rowid FOR UPDATE of Balance_Classification_Id
259: NOWAIT;
260: --
261: Recinfo C%ROWTYPE;
329: X_Scale NUMBER,
330: X_Legislation_Subgroup VARCHAR2) IS
331: BEGIN
332: --
333: UPDATE pay_balance_classifications
334: SET balance_classification_id = X_Balance_Classification_Id,
335: business_group_id = X_Business_Group_Id,
336: legislation_code = X_Legislation_Code,
337: balance_type_id = X_Balance_Type_Id,
380: ('DELETE',
381: X_Balance_Classification_Id,
382: null);
383: --
384: DELETE FROM pay_balance_classifications
385: WHERE rowid = X_Rowid;
386: --
387: if (SQL%NOTFOUND) then
388: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');