DBA Data[Home] [Help]

APPS.PAY_ETP_SHD_ND dependencies on PAY_ETP_SHD_ND

Line 1: Package Body pay_etp_shd_nd as

1: Package Body pay_etp_shd_nd as
2: /* $Header: pyetpmhi.pkb 120.3.12010000.3 2008/08/06 07:12:57 ubhat ship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |

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

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

Line 244: pay_etp_shd_nd.g_old_rec.element_type_id and

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

Line 246: pay_etp_shd_nd.g_old_rec.object_version_number

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

Line 258: Fetch C_Sel1 Into pay_etp_shd_nd.g_old_rec;

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

Line 269: <> pay_etp_shd_nd.g_old_rec.object_version_number) Then

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

Line 376: pay_etp_shd_nd.g_api_dml := true; -- Set the api dml status

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

Line 388: pay_etp_shd_nd.g_api_dml := false; -- Unset the api dml status

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

Line 394: pay_etp_shd_nd.g_api_dml := false; -- Unset the api dml status

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

Line 523: where hc.comment_id = pay_etp_shd_nd.g_old_rec.comment_id;

519: --
520: Cursor C_Sel3 is
521: select hc.comment_text
522: from hr_comments hc
523: where hc.comment_id = pay_etp_shd_nd.g_old_rec.comment_id;
524: --
525: Begin
526: hr_utility.set_location('Entering:'||l_proc, 5);
527: --

Line 557: Fetch C_Sel1 Into pay_etp_shd_nd.g_old_rec;

553: --
554: -- We must select and lock the current row.
555: --
556: Open C_Sel1;
557: Fetch C_Sel1 Into pay_etp_shd_nd.g_old_rec;
558: If C_Sel1%notfound then
559: Close C_Sel1;
560: --
561: -- The primary key is invalid therefore we must error

Line 568: <> pay_etp_shd_nd.g_old_rec.object_version_number) Then

564: fnd_message.raise_error;
565: End If;
566: Close C_Sel1;
567: If (p_object_version_number
568: <> pay_etp_shd_nd.g_old_rec.object_version_number) Then
569: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
570: fnd_message.raise_error;
571: End If;
572: --

Line 576: If ((pay_etp_shd_nd.g_old_rec.comment_id is not null) and

572: --
573: -- Providing we are doing an update and a comment_id exists then
574: -- we select the comment text.
575: --
576: If ((pay_etp_shd_nd.g_old_rec.comment_id is not null) and
577: (p_datetrack_mode = hr_api.g_update or
578: p_datetrack_mode = hr_api.g_correction or
579: p_datetrack_mode = hr_api.g_update_override or
580: p_datetrack_mode = hr_api.g_update_change_insert)) then

Line 582: Fetch C_Sel3 Into pay_etp_shd_nd.g_old_rec.comments;

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

Line 854: end pay_etp_shd_nd;

850: Return(l_rec);
851: --
852: End convert_args;
853: --
854: end pay_etp_shd_nd;