APPS.PER_REI_SHD dependencies on PER_REI_SHD

Line 1: Package Body per_rei_shd as

1: Package Body per_rei_shd as
2: /* $Header: pereirhi.pkb 115.6 2003/10/07 19:01:25 ttagawa noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |

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

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

Line 150: per_rei_shd.g_old_rec.contact_extra_info_id and

146: --
147: l_fct_ret := false;
148: Else
149: If (p_contact_extra_info_id =
150: per_rei_shd.g_old_rec.contact_extra_info_id and
151: p_object_version_number =
152: per_rei_shd.g_old_rec.object_version_number
153: ) Then
154: --

Line 152: per_rei_shd.g_old_rec.object_version_number

148: Else
149: If (p_contact_extra_info_id =
150: per_rei_shd.g_old_rec.contact_extra_info_id and
151: p_object_version_number =
152: per_rei_shd.g_old_rec.object_version_number
153: ) Then
154: --
155: -- The g_old_rec is current therefore we must
156: -- set the returning function to true

Line 164: Fetch C_Sel1 Into per_rei_shd.g_old_rec;

160: --
161: -- Select the current row
162: --
163: Open C_Sel1;
164: Fetch C_Sel1 Into per_rei_shd.g_old_rec;
165: If C_Sel1%notfound Then
166: Close C_Sel1;
167: --
168: -- The primary key is invalid therefore we must error

Line 175: <> per_rei_shd.g_old_rec.object_version_number) Then

171: fnd_message.raise_error;
172: End If;
173: Close C_Sel1;
174: If (p_object_version_number
175: <> per_rei_shd.g_old_rec.object_version_number) Then
176: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
177: fnd_message.raise_error;
178: End If;
179: l_fct_ret := true;

Line 282: per_rei_shd.g_api_dml := true; -- Set the api dml status

278: ,p_base_key_value => p_base_key_value
279: );
280: --
281: hr_utility.set_location(l_proc, 10);
282: per_rei_shd.g_api_dml := true; -- Set the api dml status
283: --
284: -- Update the specified datetrack row setting the effective
285: -- end date to the specified new effective end date.
286: --

Line 294: per_rei_shd.g_api_dml := false; -- Unset the api dml status

290: where t.contact_extra_info_id = p_base_key_value
291: and p_effective_date
292: between t.effective_start_date and t.effective_end_date;
293: --
294: per_rei_shd.g_api_dml := false; -- Unset the api dml status
295: p_object_version_number := l_object_version_number;
296: hr_utility.set_location(' Leaving:'||l_proc, 15);
297: --
298: Exception

Line 300: per_rei_shd.g_api_dml := false; -- Unset the api dml status

296: hr_utility.set_location(' Leaving:'||l_proc, 15);
297: --
298: Exception
299: When Others Then
300: per_rei_shd.g_api_dml := false; -- Unset the api dml status
301: Raise;
302: --
303: End upd_effective_end_date;
304: --

Line 430: Fetch C_Sel1 Into per_rei_shd.g_old_rec;

426: --
427: -- We must select and lock the current row.
428: --
429: Open C_Sel1;
430: Fetch C_Sel1 Into per_rei_shd.g_old_rec;
431: If C_Sel1%notfound then
432: Close C_Sel1;
433: --
434: -- The primary key is invalid therefore we must error

Line 441: <> per_rei_shd.g_old_rec.object_version_number) Then

437: fnd_message.raise_error;
438: End If;
439: Close C_Sel1;
440: If (p_object_version_number
441: <> per_rei_shd.g_old_rec.object_version_number) Then
442: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
443: fnd_message.raise_error;
444: End If;
445: --

Line 657: end per_rei_shd;

653: BEGIN
654: g_called_from_form := p_flag;
655: END set_called_from_form;
656: --
657: end per_rei_shd;