1: Package Body per_raa_shd as
2: /* $Header: peraarhi.pkb 115.20 2003/11/21 02:05:11 vvayanip ship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' per_raa_shd.'; -- Global package name
9: --
10: -- ----------------------------------------------------------------------------
11: -- |---------------------------< constraint_error >---------------------------|
12: -- ----------------------------------------------------------------------------
135: --
136: l_fct_ret := false;
137: Else
138: If (p_recruitment_activity_id
139: = per_raa_shd.g_old_rec.recruitment_activity_id and
140: p_object_version_number
141: = per_raa_shd.g_old_rec.object_version_number
142: ) Then
143: --
137: Else
138: If (p_recruitment_activity_id
139: = per_raa_shd.g_old_rec.recruitment_activity_id and
140: p_object_version_number
141: = per_raa_shd.g_old_rec.object_version_number
142: ) Then
143: --
144: -- The g_old_rec is current therefore we must
145: -- set the returning function to true
149: --
150: -- Select the current row into g_old_rec
151: --
152: Open C_Sel1;
153: Fetch C_Sel1 Into per_raa_shd.g_old_rec;
154: If C_Sel1%notfound Then
155: Close C_Sel1;
156: --
157: -- The primary key is invalid therefore we must error
160: fnd_message.raise_error;
161: End If;
162: Close C_Sel1;
163: If (p_object_version_number
164: <> per_raa_shd.g_old_rec.object_version_number) Then
165: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
166: fnd_message.raise_error;
167: End If;
168: l_fct_ret := true;
253: ,p_argument_value => p_object_version_number
254: );
255: --
256: Open C_Sel1;
257: Fetch C_Sel1 Into per_raa_shd.g_old_rec;
258: If C_Sel1%notfound then
259: Close C_Sel1;
260: --
261: -- The primary key is invalid therefore we must error
264: fnd_message.raise_error;
265: End If;
266: Close C_Sel1;
267: If (p_object_version_number
268: <> per_raa_shd.g_old_rec.object_version_number) Then
269: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
270: fnd_message.raise_error;
271: End If;
272: --
405: Return(l_rec);
406: --
407: End convert_args;
408: --
409: end per_raa_shd;