DBA Data[Home] [Help]

APPS.PAY_ETP_SHD dependencies on PAY_ETP_SHD

Line 1: Package Body pay_etp_shd as

1: Package Body pay_etp_shd as
2: /* $Header: pyetprhi.pkb 120.6.12010000.6 2009/07/30 11:56:55 npannamp ship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |

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

4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' pay_etp_shd.'; -- Global package name
9: --
10: -- ----------------------------------------------------------------------------
11: -- |------------------------< return_api_dml_status >-------------------------|
12: -- ----------------------------------------------------------------------------

Line 246: pay_etp_shd.g_old_rec.element_type_id and

242: --
243: l_fct_ret := false;
244: Else
245: If (p_element_type_id =
246: pay_etp_shd.g_old_rec.element_type_id and
247: p_object_version_number =
248: pay_etp_shd.g_old_rec.object_version_number
249: ) Then
250: --

Line 248: pay_etp_shd.g_old_rec.object_version_number

244: Else
245: If (p_element_type_id =
246: pay_etp_shd.g_old_rec.element_type_id and
247: p_object_version_number =
248: pay_etp_shd.g_old_rec.object_version_number
249: ) Then
250: --
251: -- The g_old_rec is current therefore we must
252: -- set the returning function to true

Line 260: Fetch C_Sel1 Into pay_etp_shd.g_old_rec;

256: --
257: -- Select the current row
258: --
259: Open C_Sel1;
260: Fetch C_Sel1 Into pay_etp_shd.g_old_rec;
261: If C_Sel1%notfound Then
262: Close C_Sel1;
263: --
264: -- The primary key is invalid therefore we must error

Line 271: <> pay_etp_shd.g_old_rec.object_version_number) Then

267: fnd_message.raise_error;
268: End If;
269: Close C_Sel1;
270: If (p_object_version_number
271: <> pay_etp_shd.g_old_rec.object_version_number) Then
272: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
273: fnd_message.raise_error;
274: End If;
275: l_fct_ret := true;

Line 378: pay_etp_shd.g_api_dml := true; -- Set the api dml status

374: ,p_base_key_value => p_base_key_value
375: );
376: --
377: hr_utility.set_location(l_proc, 10);
378: pay_etp_shd.g_api_dml := true; -- Set the api dml status
379: --
380: -- Update the specified datetrack row setting the effective
381: -- end date to the specified new effective end date.
382: --

Line 390: pay_etp_shd.g_api_dml := false; -- Unset the api dml status

386: where t.element_type_id = p_base_key_value
387: and p_effective_date
388: between t.effective_start_date and t.effective_end_date;
389: --
390: pay_etp_shd.g_api_dml := false; -- Unset the api dml status
391: p_object_version_number := l_object_version_number;
392: hr_utility.set_location(' Leaving:'||l_proc, 15);
393: --
394: Exception

Line 396: pay_etp_shd.g_api_dml := false; -- Unset the api dml status

392: hr_utility.set_location(' Leaving:'||l_proc, 15);
393: --
394: Exception
395: When Others Then
396: pay_etp_shd.g_api_dml := false; -- Unset the api dml status
397: Raise;
398: --
399: End upd_effective_end_date;
400: --

Line 527: where hc.comment_id = pay_etp_shd.g_old_rec.comment_id;

523: --
524: Cursor C_Sel3 is
525: select hc.comment_text
526: from hr_comments hc
527: where hc.comment_id = pay_etp_shd.g_old_rec.comment_id;
528: --
529: Begin
530: hr_utility.set_location('Entering:'||l_proc, 5);
531: --

Line 561: Fetch C_Sel1 Into pay_etp_shd.g_old_rec;

557: --
558: -- We must select and lock the current row.
559: --
560: Open C_Sel1;
561: Fetch C_Sel1 Into pay_etp_shd.g_old_rec;
562: If C_Sel1%notfound then
563: Close C_Sel1;
564: --
565: -- The primary key is invalid therefore we must error

Line 572: <> pay_etp_shd.g_old_rec.object_version_number) Then

568: fnd_message.raise_error;
569: End If;
570: Close C_Sel1;
571: If (p_object_version_number
572: <> pay_etp_shd.g_old_rec.object_version_number) Then
573: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
574: fnd_message.raise_error;
575: End If;
576: --

Line 580: If ((pay_etp_shd.g_old_rec.comment_id is not null) and

576: --
577: -- Providing we are doing an update and a comment_id exists then
578: -- we select the comment text.
579: --
580: If ((pay_etp_shd.g_old_rec.comment_id is not null) and
581: (p_datetrack_mode = hr_api.g_update or
582: p_datetrack_mode = hr_api.g_correction or
583: p_datetrack_mode = hr_api.g_update_override or
584: p_datetrack_mode = hr_api.g_update_change_insert)) then

Line 586: Fetch C_Sel3 Into pay_etp_shd.g_old_rec.comments;

582: p_datetrack_mode = hr_api.g_correction or
583: p_datetrack_mode = hr_api.g_update_override or
584: p_datetrack_mode = hr_api.g_update_change_insert)) then
585: Open C_Sel3;
586: Fetch C_Sel3 Into pay_etp_shd.g_old_rec.comments;
587: If C_Sel3%notfound then
588: --
589: -- The comments for the specified comment_id does not exist.
590: -- We must error due to data integrity problems.

Line 862: end pay_etp_shd;

858: Return(l_rec);
859: --
860: End convert_args;
861: --
862: end pay_etp_shd;