DBA Data[Home] [Help]

APPS.PAY_PPR_SHD dependencies on PAY_PPR_SHD

Line 1: Package Body pay_ppr_shd as

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 |

Line 8: g_package varchar2(33) := ' pay_ppr_shd.'; -- Global package name

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: -- ----------------------------------------------------------------------------

Line 105: pay_ppr_shd.g_old_rec.status_processing_rule_id and

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: --

Line 107: pay_ppr_shd.g_old_rec.object_version_number

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

Line 119: Fetch C_Sel1 Into pay_ppr_shd.g_old_rec;

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

Line 130: <> pay_ppr_shd.g_old_rec.object_version_number) Then

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;

Line 237: pay_ppr_shd.g_api_dml := true; -- Set the api dml status

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: --

Line 249: pay_ppr_shd.g_api_dml := false; -- Unset the api dml status

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

Line 255: pay_ppr_shd.g_api_dml := false; -- Unset the api dml status

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: --

Line 306: where hc.comment_id = pay_ppr_shd.g_old_rec.comment_id;

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: --

Line 340: Fetch C_Sel1 Into pay_ppr_shd.g_old_rec;

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

Line 351: <> pay_ppr_shd.g_old_rec.object_version_number) Then

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: --

Line 359: If ((pay_ppr_shd.g_old_rec.comment_id is not null) and

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

Line 365: Fetch C_Sel3 Into pay_ppr_shd.g_old_rec.comments;

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.

Line 470: end pay_ppr_shd;

466: Return(l_rec);
467: --
468: End convert_args;
469: --
470: end pay_ppr_shd;