APPS.PER_PAC_SHD dependencies on PER_PAC_SHD

Line 1: Package Body per_pac_shd as

1: Package Body per_pac_shd as
2: /* $Header: pepacrhi.pkb 120.3 2006/10/19 07:29:26 sturlapa noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |

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

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

Line 117: = per_pac_shd.g_old_rec.allocated_checklist_id and

113: --
114: l_fct_ret := false;
115: Else
116: If (p_allocated_checklist_id
117: = per_pac_shd.g_old_rec.allocated_checklist_id and
118: p_object_version_number
119: = per_pac_shd.g_old_rec.object_version_number
120: ) Then
121: --

Line 119: = per_pac_shd.g_old_rec.object_version_number

115: Else
116: If (p_allocated_checklist_id
117: = per_pac_shd.g_old_rec.allocated_checklist_id and
118: p_object_version_number
119: = per_pac_shd.g_old_rec.object_version_number
120: ) Then
121: --
122: -- The g_old_rec is current therefore we must
123: -- set the returning function to true

Line 131: Fetch C_Sel1 Into per_pac_shd.g_old_rec;

127: --
128: -- Select the current row into g_old_rec
129: --
130: Open C_Sel1;
131: Fetch C_Sel1 Into per_pac_shd.g_old_rec;
132: If C_Sel1%notfound Then
133: Close C_Sel1;
134: --
135: -- The primary key is invalid therefore we must error

Line 142: <> per_pac_shd.g_old_rec.object_version_number) Then

138: fnd_message.raise_error;
139: End If;
140: Close C_Sel1;
141: If (p_object_version_number
142: <> per_pac_shd.g_old_rec.object_version_number) Then
143: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
144: fnd_message.raise_error;
145: End If;
146: l_fct_ret := true;

Line 237: Fetch C_Sel1 Into per_pac_shd.g_old_rec;

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

Line 248: <> per_pac_shd.g_old_rec.object_version_number) Then

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

Line 388: end per_pac_shd;

384: Return(l_rec);
385: --
386: End convert_args;
387: --
388: end per_pac_shd;