APPS.BEN_BER_SHD dependencies on BEN_BER_SHD

Line 1: Package Body ben_ber_shd as

1: Package Body ben_ber_shd as
2: /* $Header: beberrhi.pkb 120.1.12010000.2 2008/08/05 14:08:07 ubhat ship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |

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

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

Line 76: ben_ber_shd.g_old_rec.elig_rslt_id and

72: --
73: l_fct_ret := false;
74: Else
75: If (p_elig_rslt_id =
76: ben_ber_shd.g_old_rec.elig_rslt_id and
77: p_object_version_number =
78: ben_ber_shd.g_old_rec.object_version_number
79: ) Then
80: --

Line 78: ben_ber_shd.g_old_rec.object_version_number

74: Else
75: If (p_elig_rslt_id =
76: ben_ber_shd.g_old_rec.elig_rslt_id and
77: p_object_version_number =
78: ben_ber_shd.g_old_rec.object_version_number
79: ) Then
80: --
81: -- The g_old_rec is current therefore we must
82: -- set the returning function to true

Line 90: Fetch C_Sel1 Into ben_ber_shd.g_old_rec;

86: --
87: -- Select the current row
88: --
89: Open C_Sel1;
90: Fetch C_Sel1 Into ben_ber_shd.g_old_rec;
91: If C_Sel1%notfound Then
92: Close C_Sel1;
93: --
94: -- The primary key is invalid therefore we must error

Line 101: <> ben_ber_shd.g_old_rec.object_version_number) Then

97: fnd_message.raise_error;
98: End If;
99: Close C_Sel1;
100: If (p_object_version_number
101: <> ben_ber_shd.g_old_rec.object_version_number) Then
102: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
103: fnd_message.raise_error;
104: End If;
105: l_fct_ret := true;

Line 320: Fetch C_Sel1 Into ben_ber_shd.g_old_rec;

316: --
317: -- We must select and lock the current row.
318: --
319: Open C_Sel1;
320: Fetch C_Sel1 Into ben_ber_shd.g_old_rec;
321: If C_Sel1%notfound then
322: Close C_Sel1;
323: --
324: -- The primary key is invalid therefore we must error

Line 331: <> ben_ber_shd.g_old_rec.object_version_number) Then

327: fnd_message.raise_error;
328: End If;
329: Close C_Sel1;
330: If (p_object_version_number
331: <> ben_ber_shd.g_old_rec.object_version_number) Then
332: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
333: fnd_message.raise_error;
334: End If;
335: --

Line 348: ,p_parent_key_value1 => ben_ber_shd.g_old_rec.elig_obj_id

344: ,p_base_key_column => 'elig_rslt_id'
345: ,p_base_key_value => p_elig_rslt_id
346: ,p_parent_table_name1 => 'ben_elig_obj_f'
347: ,p_parent_key_column1 => 'elig_obj_id'
348: ,p_parent_key_value1 => ben_ber_shd.g_old_rec.elig_obj_id
349: ,p_enforce_foreign_locking => false -- Bug 4525373
350: ,p_validation_start_date => l_validation_start_date
351: ,p_validation_end_date => l_validation_end_date
352: );

Line 423: end ben_ber_shd;

419: Return(l_rec);
420: --
421: End convert_args;
422: --
423: end ben_ber_shd;