1: Package Body pay_ppr_shd as
2: /* $Header: pypprrhi.pkb 115.3 2004/02/25 21:33 adkumar noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' pay_ppr_shd.'; -- Global package name
9: --
10: -- ----------------------------------------------------------------------------
11: -- |------------------------< return_api_dml_status >-------------------------|
12: -- ----------------------------------------------------------------------------
101: --
102: l_fct_ret := false;
103: Else
104: If (p_status_processing_rule_id =
105: pay_ppr_shd.g_old_rec.status_processing_rule_id and
106: p_object_version_number =
107: pay_ppr_shd.g_old_rec.object_version_number
108: ) Then
109: --
103: Else
104: If (p_status_processing_rule_id =
105: pay_ppr_shd.g_old_rec.status_processing_rule_id and
106: p_object_version_number =
107: pay_ppr_shd.g_old_rec.object_version_number
108: ) Then
109: --
110: -- The g_old_rec is current therefore we must
111: -- set the returning function to true
115: --
116: -- Select the current row
117: --
118: Open C_Sel1;
119: Fetch C_Sel1 Into pay_ppr_shd.g_old_rec;
120: If C_Sel1%notfound Then
121: Close C_Sel1;
122: --
123: -- The primary key is invalid therefore we must error
126: fnd_message.raise_error;
127: End If;
128: Close C_Sel1;
129: If (p_object_version_number
130: <> pay_ppr_shd.g_old_rec.object_version_number) Then
131: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
132: fnd_message.raise_error;
133: End If;
134: l_fct_ret := true;
233: ,p_base_key_value => p_base_key_value
234: );
235: --
236: hr_utility.set_location(l_proc, 10);
237: pay_ppr_shd.g_api_dml := true; -- Set the api dml status
238: --
239: -- Update the specified datetrack row setting the effective
240: -- end date to the specified new effective end date.
241: --
245: where t.status_processing_rule_id = p_base_key_value
246: and p_effective_date
247: between t.effective_start_date and t.effective_end_date;
248: --
249: pay_ppr_shd.g_api_dml := false; -- Unset the api dml status
250: p_object_version_number := l_object_version_number;
251: hr_utility.set_location(' Leaving:'||l_proc, 15);
252: --
253: Exception
251: hr_utility.set_location(' Leaving:'||l_proc, 15);
252: --
253: Exception
254: When Others Then
255: pay_ppr_shd.g_api_dml := false; -- Unset the api dml status
256: Raise;
257: --
258: End upd_effective_end_date;
259: --
302: --
303: Cursor C_Sel3 is
304: select hc.comment_text
305: from hr_comments hc
306: where hc.comment_id = pay_ppr_shd.g_old_rec.comment_id;
307: --
308: Begin
309: hr_utility.set_location('Entering:'||l_proc, 5);
310: --
336: --
337: -- We must select and lock the current row.
338: --
339: Open C_Sel1;
340: Fetch C_Sel1 Into pay_ppr_shd.g_old_rec;
341: If C_Sel1%notfound then
342: Close C_Sel1;
343: --
344: -- The primary key is invalid therefore we must error
347: fnd_message.raise_error;
348: End If;
349: Close C_Sel1;
350: If (p_object_version_number
351: <> pay_ppr_shd.g_old_rec.object_version_number) Then
352: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
353: fnd_message.raise_error;
354: End If;
355: --
355: --
356: -- Providing we are doing an update and a comment_id exists then
357: -- we select the comment text.
358: --
359: If ((pay_ppr_shd.g_old_rec.comment_id is not null) and
360: (p_datetrack_mode = hr_api.g_update or
361: p_datetrack_mode = hr_api.g_correction or
362: p_datetrack_mode = hr_api.g_update_override or
363: p_datetrack_mode = hr_api.g_update_change_insert)) then
361: p_datetrack_mode = hr_api.g_correction or
362: p_datetrack_mode = hr_api.g_update_override or
363: p_datetrack_mode = hr_api.g_update_change_insert)) then
364: Open C_Sel3;
365: Fetch C_Sel3 Into pay_ppr_shd.g_old_rec.comments;
366: If C_Sel3%notfound then
367: --
368: -- The comments for the specified comment_id does not exist.
369: -- We must error due to data integrity problems.
466: Return(l_rec);
467: --
468: End convert_args;
469: --
470: end pay_ppr_shd;