1: Package Body ben_rts_shd as
2: /* $Header: bertsrhi.pkb 120.1 2006/01/09 14:37:17 maagrawa noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' ben_rts_shd.'; -- Global package name
9: g_debug boolean := hr_utility.debug_enabled;
10: --
11: -- ----------------------------------------------------------------------------
12: -- |------------------------< return_api_dml_status >-------------------------|
132: --
133: l_fct_ret := false;
134: Else
135: If (p_group_per_in_ler_id
136: = ben_rts_shd.g_old_rec.group_per_in_ler_id and
137: p_pl_id
138: = ben_rts_shd.g_old_rec.pl_id and
139: p_oipl_id
140: = ben_rts_shd.g_old_rec.oipl_id and
134: Else
135: If (p_group_per_in_ler_id
136: = ben_rts_shd.g_old_rec.group_per_in_ler_id and
137: p_pl_id
138: = ben_rts_shd.g_old_rec.pl_id and
139: p_oipl_id
140: = ben_rts_shd.g_old_rec.oipl_id and
141: p_object_version_number
142: = ben_rts_shd.g_old_rec.object_version_number
136: = ben_rts_shd.g_old_rec.group_per_in_ler_id and
137: p_pl_id
138: = ben_rts_shd.g_old_rec.pl_id and
139: p_oipl_id
140: = ben_rts_shd.g_old_rec.oipl_id and
141: p_object_version_number
142: = ben_rts_shd.g_old_rec.object_version_number
143: ) Then
144: --
138: = ben_rts_shd.g_old_rec.pl_id and
139: p_oipl_id
140: = ben_rts_shd.g_old_rec.oipl_id and
141: p_object_version_number
142: = ben_rts_shd.g_old_rec.object_version_number
143: ) Then
144: --
145: -- The g_old_rec is current therefore we must
146: -- set the returning function to true
150: --
151: -- Select the current row into g_old_rec
152: --
153: Open C_Sel1;
154: Fetch C_Sel1 Into ben_rts_shd.g_old_rec;
155: If C_Sel1%notfound Then
156: Close C_Sel1;
157: --
158: -- The primary key is invalid therefore we must error
161: fnd_message.raise_error;
162: End If;
163: Close C_Sel1;
164: If (p_object_version_number
165: <> ben_rts_shd.g_old_rec.object_version_number) Then
166: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
167: fnd_message.raise_error;
168: End If;
169: l_fct_ret := true;
274: ,p_argument_value => p_object_version_number
275: );
276: --
277: Open C_Sel1;
278: Fetch C_Sel1 Into ben_rts_shd.g_old_rec;
279: If C_Sel1%notfound then
280: Close C_Sel1;
281: --
282: -- The primary key is invalid therefore we must error
285: fnd_message.raise_error;
286: End If;
287: Close C_Sel1;
288: If (p_object_version_number
289: <> ben_rts_shd.g_old_rec.object_version_number) Then
290: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
291: fnd_message.raise_error;
292: End If;
293: --
429: Return(l_rec);
430: --
431: End convert_args;
432: --
433: end ben_rts_shd;