APPS.PER_RET_SHD dependencies on PER_RET_SHD

Line 1: Package Body per_ret_shd as

1: Package Body per_ret_shd as
2: /* $Header: peretrhi.pkb 115.1 2002/12/06 11:29:20 eumenyio noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |

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

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

Line 94: = per_ret_shd.g_old_rec.cagr_retained_right_id and

90: --
91: l_fct_ret := false;
92: Else
93: If (p_cagr_retained_right_id
94: = per_ret_shd.g_old_rec.cagr_retained_right_id and
95: p_object_version_number
96: = per_ret_shd.g_old_rec.object_version_number
97: ) Then
98: --

Line 96: = per_ret_shd.g_old_rec.object_version_number

92: Else
93: If (p_cagr_retained_right_id
94: = per_ret_shd.g_old_rec.cagr_retained_right_id and
95: p_object_version_number
96: = per_ret_shd.g_old_rec.object_version_number
97: ) Then
98: --
99: -- The g_old_rec is current therefore we must
100: -- set the returning function to true

Line 108: Fetch C_Sel1 Into per_ret_shd.g_old_rec;

104: --
105: -- Select the current row into g_old_rec
106: --
107: Open C_Sel1;
108: Fetch C_Sel1 Into per_ret_shd.g_old_rec;
109: If C_Sel1%notfound Then
110: Close C_Sel1;
111: --
112: -- The primary key is invalid therefore we must error

Line 119: <> per_ret_shd.g_old_rec.object_version_number) Then

115: fnd_message.raise_error;
116: End If;
117: Close C_Sel1;
118: If (p_object_version_number
119: <> per_ret_shd.g_old_rec.object_version_number) Then
120: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
121: fnd_message.raise_error;
122: End If;
123: l_fct_ret := true;

Line 192: Fetch C_Sel1 Into per_ret_shd.g_old_rec;

188: ,p_argument_value => p_object_version_number
189: );
190: --
191: Open C_Sel1;
192: Fetch C_Sel1 Into per_ret_shd.g_old_rec;
193: If C_Sel1%notfound then
194: Close C_Sel1;
195: --
196: -- The primary key is invalid therefore we must error

Line 203: <> per_ret_shd.g_old_rec.object_version_number) Then

199: fnd_message.raise_error;
200: End If;
201: Close C_Sel1;
202: If (p_object_version_number
203: <> per_ret_shd.g_old_rec.object_version_number) Then
204: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
205: fnd_message.raise_error;
206: End If;
207: --

Line 299: end per_ret_shd;

295: Return(l_rec);
296: --
297: End convert_args;
298: --
299: end per_ret_shd;