APPS.PER_PSP_SHD dependencies on PER_PSP_SHD

Line 1: Package Body per_psp_shd as

1: Package Body per_psp_shd as
2: /* $Header: pepsprhi.pkb 115.5 2003/11/17 13:06:07 tpapired noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |

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

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

Line 128: = per_psp_shd.g_old_rec.spinal_point_id and

124: --
125: l_fct_ret := false;
126: Else
127: If (p_spinal_point_id
128: = per_psp_shd.g_old_rec.spinal_point_id and
129: p_object_version_number
130: = per_psp_shd.g_old_rec.object_version_number
131: ) Then
132: --

Line 130: = per_psp_shd.g_old_rec.object_version_number

126: Else
127: If (p_spinal_point_id
128: = per_psp_shd.g_old_rec.spinal_point_id and
129: p_object_version_number
130: = per_psp_shd.g_old_rec.object_version_number
131: ) Then
132: --
133: -- The g_old_rec is current therefore we must
134: -- set the returning function to true

Line 142: Fetch C_Sel1 Into per_psp_shd.g_old_rec;

138: --
139: -- Select the current row into g_old_rec
140: --
141: Open C_Sel1;
142: Fetch C_Sel1 Into per_psp_shd.g_old_rec;
143: If C_Sel1%notfound Then
144: Close C_Sel1;
145: --
146: -- The primary key is invalid therefore we must error

Line 153: <> per_psp_shd.g_old_rec.object_version_number) Then

149: fnd_message.raise_error;
150: End If;
151: Close C_Sel1;
152: If (p_object_version_number
153: <> per_psp_shd.g_old_rec.object_version_number) Then
154: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
155: fnd_message.raise_error;
156: End If;
157: l_fct_ret := true;

Line 239: Fetch C_Sel1 Into per_psp_shd.g_old_rec;

235: ,p_argument_value => p_object_version_number
236: );
237: --
238: Open C_Sel1;
239: Fetch C_Sel1 Into per_psp_shd.g_old_rec;
240: If C_Sel1%notfound then
241: Close C_Sel1;
242: --
243: -- The primary key is invalid therefore we must error

Line 250: <> per_psp_shd.g_old_rec.object_version_number) Then

246: fnd_message.raise_error;
247: End If;
248: Close C_Sel1;
249: If (p_object_version_number
250: <> per_psp_shd.g_old_rec.object_version_number) Then
251: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
252: fnd_message.raise_error;
253: End If;
254: --

Line 372: end per_psp_shd;

368: Return(l_rec);
369: --
370: End convert_args;
371: --
372: end per_psp_shd;