APPS.PER_PEM_SHD dependencies on PER_PEM_SHD

Line 1: Package Body per_pem_shd as

1: Package Body per_pem_shd as
2: /* $Header: pepemrhi.pkb 120.1.12010000.2 2008/08/06 09:21:48 ubhat ship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |

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

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

Line 145: = per_pem_shd.g_old_rec.previous_employer_id and

141: --
142: l_fct_ret := false;
143: Else
144: If (p_previous_employer_id
145: = per_pem_shd.g_old_rec.previous_employer_id and
146: p_object_version_number
147: = per_pem_shd.g_old_rec.object_version_number
148: ) Then
149: --

Line 147: = per_pem_shd.g_old_rec.object_version_number

143: Else
144: If (p_previous_employer_id
145: = per_pem_shd.g_old_rec.previous_employer_id and
146: p_object_version_number
147: = per_pem_shd.g_old_rec.object_version_number
148: ) Then
149: --
150: -- The g_old_rec is current therefore we must
151: -- set the returning function to true

Line 159: Fetch C_Sel1 Into per_pem_shd.g_old_rec;

155: --
156: -- Select the current row into g_old_rec
157: --
158: Open C_Sel1;
159: Fetch C_Sel1 Into per_pem_shd.g_old_rec;
160: If C_Sel1%notfound Then
161: Close C_Sel1;
162: --
163: -- The primary key is invalid therefore we must error

Line 170: <> per_pem_shd.g_old_rec.object_version_number) Then

166: fnd_message.raise_error;
167: End If;
168: Close C_Sel1;
169: If (p_object_version_number
170: <> per_pem_shd.g_old_rec.object_version_number) Then
171: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
172: fnd_message.raise_error;
173: End If;
174: l_fct_ret := true;

Line 294: Fetch C_Sel1 Into per_pem_shd.g_old_rec;

290: ,p_argument_value => p_object_version_number
291: );
292: --
293: Open C_Sel1;
294: Fetch C_Sel1 Into per_pem_shd.g_old_rec;
295: If C_Sel1%notfound then
296: Close C_Sel1;
297: --
298: -- The primary key is invalid therefore we must error

Line 305: <> per_pem_shd.g_old_rec.object_version_number) Then

301: fnd_message.raise_error;
302: End If;
303: Close C_Sel1;
304: If (p_object_version_number
305: <> per_pem_shd.g_old_rec.object_version_number) Then
306: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
307: fnd_message.raise_error;
308: End If;
309: --

Line 503: end per_pem_shd;

499: Return(l_rec);
500: --
501: End convert_args;
502: --
503: end per_pem_shd;