1: Package Body per_abb_shd as
2: /* $Header: peabbrhi.pkb 120.3 2006/03/03 06:26 bshukla noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' per_abb_shd.'; -- Global package name
9: --
10: -- ----------------------------------------------------------------------------
11: -- |------------------------< return_api_dml_status >-------------------------|
12: -- ----------------------------------------------------------------------------
139: --
140: l_fct_ret := false;
141: Else
142: If (p_absence_attendance_type_id
143: = per_abb_shd.g_old_rec.absence_attendance_type_id and
144: p_object_version_number
145: = per_abb_shd.g_old_rec.object_version_number
146: ) Then
147: --
141: Else
142: If (p_absence_attendance_type_id
143: = per_abb_shd.g_old_rec.absence_attendance_type_id and
144: p_object_version_number
145: = per_abb_shd.g_old_rec.object_version_number
146: ) Then
147: --
148: -- The g_old_rec is current therefore we must
149: -- set the returning function to true
153: --
154: -- Select the current row into g_old_rec
155: --
156: Open C_Sel1;
157: Fetch C_Sel1 Into per_abb_shd.g_old_rec;
158: If C_Sel1%notfound Then
159: Close C_Sel1;
160: --
161: -- The primary key is invalid therefore we must error
164: fnd_message.raise_error;
165: End If;
166: Close C_Sel1;
167: If (p_object_version_number
168: <> per_abb_shd.g_old_rec.object_version_number) Then
169: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
170: fnd_message.raise_error;
171: End If;
172: l_fct_ret := true;
270: ,p_argument_value => p_object_version_number
271: );
272: --
273: Open C_Sel1;
274: Fetch C_Sel1 Into per_abb_shd.g_old_rec;
275: If C_Sel1%notfound then
276: Close C_Sel1;
277: --
278: -- The primary key is invalid therefore we must error
281: fnd_message.raise_error;
282: End If;
283: Close C_Sel1;
284: If (p_object_version_number
285: <> per_abb_shd.g_old_rec.object_version_number) Then
286: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
287: fnd_message.raise_error;
288: End If;
289: --
444: Return(l_rec);
445: --
446: End convert_args;
447: --
448: end per_abb_shd;