APPS.PER_PDP_SHD dependencies on PER_PDP_SHD

Line 1: Package Body per_pdp_shd as

1: Package Body per_pdp_shd as
2: /* $Header: pepdprhi.pkb 115.8 2004/01/29 05:53:10 adudekul noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |

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

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

Line 143: = per_pdp_shd.g_old_rec.object_version_number and

139: --
140: l_fct_ret := false;
141: Else
142: If (p_object_version_number
143: = per_pdp_shd.g_old_rec.object_version_number and
144: p_period_of_placement_id
145: = per_pdp_shd.g_old_rec.period_of_placement_id
146: ) Then
147: --

Line 145: = per_pdp_shd.g_old_rec.period_of_placement_id

141: Else
142: If (p_object_version_number
143: = per_pdp_shd.g_old_rec.object_version_number and
144: p_period_of_placement_id
145: = per_pdp_shd.g_old_rec.period_of_placement_id
146: ) Then
147: --
148: -- The g_old_rec is current therefore we must
149: -- set the returning function to true

Line 157: Fetch C_Sel1 Into per_pdp_shd.g_old_rec;

153: --
154: -- Select the current row into g_old_rec
155: --
156: Open C_Sel1;
157: Fetch C_Sel1 Into per_pdp_shd.g_old_rec;
158: If C_Sel1%notfound Then
159: Close C_Sel1;
160: --
161: -- The primary key is invalid therefore we must error

Line 168: <> per_pdp_shd.g_old_rec.object_version_number) Then

164: fnd_message.raise_error;
165: End If;
166: Close C_Sel1;
167: If (p_object_version_number
168: <> per_pdp_shd.g_old_rec.object_version_number) Then
169: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
170: fnd_message.raise_error;
171: End If;
172: l_fct_ret := true;

Line 285: Fetch C_Sel1 Into per_pdp_shd.g_old_rec;

281: ,p_argument_value => p_period_of_placement_id
282: );
283: --
284: Open C_Sel1;
285: Fetch C_Sel1 Into per_pdp_shd.g_old_rec;
286: If C_Sel1%notfound then
287: Close C_Sel1;
288: --
289: -- The primary key is invalid therefore we must error

Line 296: <> per_pdp_shd.g_old_rec.object_version_number) Then

292: fnd_message.raise_error;
293: End If;
294: Close C_Sel1;
295: If (p_object_version_number
296: <> per_pdp_shd.g_old_rec.object_version_number) Then
297: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
298: fnd_message.raise_error;
299: End If;
300: --

Line 480: end per_pdp_shd;

476: Return(l_rec);
477: --
478: End convert_args;
479: --
480: end per_pdp_shd;