APPS.PER_PSV_SHD dependencies on PER_PSV_SHD

Line 1: Package Body per_psv_shd as

1: Package Body per_psv_shd as
2: /* $Header: pepsvrhi.pkb 115.7 2002/12/05 09:55:22 eumenyio noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |

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

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

Line 99: = per_psv_shd.g_old_rec.pos_structure_version_id and

95: --
96: l_fct_ret := false;
97: Else
98: If (p_pos_structure_version_id
99: = per_psv_shd.g_old_rec.pos_structure_version_id and
100: p_object_version_number
101: = per_psv_shd.g_old_rec.object_version_number
102: ) Then
103: --

Line 101: = per_psv_shd.g_old_rec.object_version_number

97: Else
98: If (p_pos_structure_version_id
99: = per_psv_shd.g_old_rec.pos_structure_version_id and
100: p_object_version_number
101: = per_psv_shd.g_old_rec.object_version_number
102: ) Then
103: --
104: -- The g_old_rec is current therefore we must
105: -- set the returning function to true

Line 113: Fetch C_Sel1 Into per_psv_shd.g_old_rec;

109: --
110: -- Select the current row into g_old_rec
111: --
112: Open C_Sel1;
113: Fetch C_Sel1 Into per_psv_shd.g_old_rec;
114: If C_Sel1%notfound Then
115: Close C_Sel1;
116: --
117: -- The primary key is invalid therefore we must error

Line 124: <> per_psv_shd.g_old_rec.object_version_number) Then

120: fnd_message.raise_error;
121: End If;
122: Close C_Sel1;
123: If (p_object_version_number
124: <> per_psv_shd.g_old_rec.object_version_number) Then
125: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
126: fnd_message.raise_error;
127: End If;
128: l_fct_ret := true;

Line 181: Fetch C_Sel1 Into per_psv_shd.g_old_rec;

177: ,p_argument_value => p_object_version_number
178: );
179: --
180: Open C_Sel1;
181: Fetch C_Sel1 Into per_psv_shd.g_old_rec;
182: If C_Sel1%notfound then
183: Close C_Sel1;
184: --
185: -- The primary key is invalid therefore we must error

Line 192: <> per_psv_shd.g_old_rec.object_version_number) Then

188: fnd_message.raise_error;
189: End If;
190: Close C_Sel1;
191: If (p_object_version_number
192: <> per_psv_shd.g_old_rec.object_version_number) Then
193: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
194: fnd_message.raise_error;
195: End If;
196: --

Line 256: end per_psv_shd;

252: Return(l_rec);
253: --
254: End convert_args;
255: --
256: end per_psv_shd;