APPS.IRC_IRF_SHD dependencies on IRC_IRF_SHD

Line 1: Package Body irc_irf_shd as

1: Package Body irc_irf_shd as
2: /* $Header: irirfrhi.pkb 120.1 2008/04/16 07:34:32 vmummidi noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |

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

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

Line 117: = irc_irf_shd.g_old_rec.referral_info_id and

113: --
114: l_fct_ret := false;
115: Else
116: If (p_referral_info_id
117: = irc_irf_shd.g_old_rec.referral_info_id and
118: p_object_version_number
119: = irc_irf_shd.g_old_rec.object_version_number
120: ) Then
121: --

Line 119: = irc_irf_shd.g_old_rec.object_version_number

115: Else
116: If (p_referral_info_id
117: = irc_irf_shd.g_old_rec.referral_info_id and
118: p_object_version_number
119: = irc_irf_shd.g_old_rec.object_version_number
120: ) Then
121: --
122: -- The g_old_rec is current therefore we must
123: -- set the returning function to true

Line 131: Fetch C_Sel1 Into irc_irf_shd.g_old_rec;

127: --
128: -- Select the current row into g_old_rec
129: --
130: Open C_Sel1;
131: Fetch C_Sel1 Into irc_irf_shd.g_old_rec;
132: If C_Sel1%notfound Then
133: Close C_Sel1;
134: --
135: -- The primary key is invalid therefore we must error

Line 142: <> irc_irf_shd.g_old_rec.object_version_number) Then

138: fnd_message.raise_error;
139: End If;
140: Close C_Sel1;
141: If (p_object_version_number
142: <> irc_irf_shd.g_old_rec.object_version_number) Then
143: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
144: fnd_message.raise_error;
145: End If;
146: l_fct_ret := true;

Line 173: irc_irf_shd.get_object_version_number

169: -- Because we are updating a row we must get the next object
170: -- version number.
171: --
172: l_object_version_number :=
173: irc_irf_shd.get_object_version_number
174: (p_referral_info_id => p_referral_info_id
175: );
176: --
177: hr_utility.set_location(l_proc, 10);

Line 302: Fetch C_Sel1 Into irc_irf_shd.g_old_rec;

298: --
299: -- We must select and lock the current row.
300: --
301: Open C_Sel1;
302: Fetch C_Sel1 Into irc_irf_shd.g_old_rec;
303: If C_Sel1%notfound then
304: Close C_Sel1;
305: --
306: -- The primary key is invalid therefore we must error

Line 313: <> irc_irf_shd.g_old_rec.object_version_number) Then

309: fnd_message.raise_error;
310: End If;
311: Close C_Sel1;
312: If (p_object_version_number
313: <> irc_irf_shd.g_old_rec.object_version_number) Then
314: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
315: fnd_message.raise_error;
316: End If;
317: --

Line 336: p_validation_end_date := irc_irf_shd.g_old_rec.end_date;

332: -- Set the validation start and end date OUT arguments
333: --
334: if (p_datetrack_mode = hr_api.g_update) then
335: p_validation_start_date := p_effective_date;
336: p_validation_end_date := irc_irf_shd.g_old_rec.end_date;
337: elsif (p_datetrack_mode = hr_api.g_delete) then
338: p_validation_start_date := p_effective_date;
339: p_validation_end_date := p_effective_date;
340: end if;

Line 490: end irc_irf_shd;

486: Return(l_ovn);
487: --
488: End get_object_version_number;
489: --
490: end irc_irf_shd;