APPS.PER_MEA_SHD dependencies on PER_MEA_SHD

Line 1: Package Body per_mea_shd as

1: Package Body per_mea_shd as
2: /* $Header: pemearhi.pkb 115.9 2002/12/06 12:20:50 pkakar noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |

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

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

Line 161: = per_mea_shd.g_old_rec.medical_assessment_id and

157: --
158: l_fct_ret := false;
159: Else
160: If (p_medical_assessment_id
161: = per_mea_shd.g_old_rec.medical_assessment_id and
162: p_object_version_number
163: = per_mea_shd.g_old_rec.object_version_number
164: ) Then
165: --

Line 163: = per_mea_shd.g_old_rec.object_version_number

159: Else
160: If (p_medical_assessment_id
161: = per_mea_shd.g_old_rec.medical_assessment_id and
162: p_object_version_number
163: = per_mea_shd.g_old_rec.object_version_number
164: ) Then
165: --
166: -- The g_old_rec is current therefore we must
167: -- set the returning function to true

Line 175: Fetch C_Sel1 Into per_mea_shd.g_old_rec;

171: --
172: -- Select the current row into g_old_rec
173: --
174: Open C_Sel1;
175: Fetch C_Sel1 Into per_mea_shd.g_old_rec;
176: If C_Sel1%notfound Then
177: Close C_Sel1;
178: --
179: -- The primary key is invalid therefore we must error

Line 186: <> per_mea_shd.g_old_rec.object_version_number) Then

182: fnd_message.raise_error;
183: End If;
184: Close C_Sel1;
185: If (p_object_version_number
186: <> per_mea_shd.g_old_rec.object_version_number) Then
187: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
188: fnd_message.raise_error;
189: End If;
190: l_fct_ret := true;

Line 300: Fetch C_Sel1 Into per_mea_shd.g_old_rec;

296: ,p_argument_value => p_medical_assessment_id
297: );
298: --
299: Open C_Sel1;
300: Fetch C_Sel1 Into per_mea_shd.g_old_rec;
301: If C_Sel1%notfound then
302: Close C_Sel1;
303: --
304: -- The primary key is invalid therefore we must error

Line 311: <> per_mea_shd.g_old_rec.object_version_number) Then

307: fnd_message.raise_error;
308: End If;
309: Close C_Sel1;
310: If (p_object_version_number
311: <> per_mea_shd.g_old_rec.object_version_number) Then
312: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
313: fnd_message.raise_error;
314: End If;
315: --

Line 501: end per_mea_shd;

497: Return(l_rec);
498: --
499: End convert_args;
500: --
501: end per_mea_shd;