APPS.AME_GCF_SHD dependencies on AME_GCF_SHD

Line 1: Package Body ame_gcf_shd as

1: Package Body ame_gcf_shd as
2: /* $Header: amgcfrhi.pkb 120.5 2006/10/05 16:08:09 pvelugul noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |

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

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

Line 78: ame_gcf_shd.g_old_rec.approval_group_id and

74: --
75: l_fct_ret := false;
76: Else
77: If (p_approval_group_id =
78: ame_gcf_shd.g_old_rec.approval_group_id and
79: p_object_version_number =
80: ame_gcf_shd.g_old_rec.object_version_number) Then
81: --
82: -- The g_old_rec is current therefore we must

Line 80: ame_gcf_shd.g_old_rec.object_version_number) Then

76: Else
77: If (p_approval_group_id =
78: ame_gcf_shd.g_old_rec.approval_group_id and
79: p_object_version_number =
80: ame_gcf_shd.g_old_rec.object_version_number) Then
81: --
82: -- The g_old_rec is current therefore we must
83: -- set the returning function to true
84: --

Line 91: Fetch C_Sel1 Into ame_gcf_shd.g_old_rec;

87: --
88: -- Select the current row
89: --
90: Open C_Sel1;
91: Fetch C_Sel1 Into ame_gcf_shd.g_old_rec;
92: If C_Sel1%notfound Then
93: Close C_Sel1;
94: --
95: -- The primary key is invalid therefore we must error

Line 102: <> ame_gcf_shd.g_old_rec.object_version_number) Then

98: fnd_message.raise_error;
99: End If;
100: Close C_Sel1;
101: If (p_object_version_number
102: <> ame_gcf_shd.g_old_rec.object_version_number) Then
103: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
104: fnd_message.raise_error;
105: End If;
106: l_fct_ret := true;

Line 134: ame_gcf_shd.get_object_version_number

130: -- Because we are updating a row we must get the next object
131: -- version number.
132: --
133: l_object_version_number :=
134: ame_gcf_shd.get_object_version_number
135: (p_approval_group_id => p_approval_group_id
136: ,p_application_id => p_application_id
137: );
138: --

Line 231: Fetch C_Sel1 Into ame_gcf_shd.g_old_rec;

227: --
228: -- We must select and lock the current row.
229: --
230: Open C_Sel1;
231: Fetch C_Sel1 Into ame_gcf_shd.g_old_rec;
232: If C_Sel1%notfound then
233: Close C_Sel1;
234: --
235: -- The primary key is invalid therefore we must error

Line 242: <> ame_gcf_shd.g_old_rec.object_version_number) Then

238: fnd_message.raise_error;
239: End If;
240: Close C_Sel1;
241: If (p_object_version_number
242: <> ame_gcf_shd.g_old_rec.object_version_number) Then
243: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
244: fnd_message.raise_error;
245: End If;
246: --

Line 265: p_validation_end_date := ame_gcf_shd.g_old_rec.end_date;

261: -- Set the validation start and end date OUT arguments
262: --
263: if (p_datetrack_mode = hr_api.g_update) then
264: p_validation_start_date := p_effective_date;
265: p_validation_end_date := ame_gcf_shd.g_old_rec.end_date;
266: elsif (p_datetrack_mode = hr_api.g_delete) then
267: p_validation_start_date := p_effective_date;
268: p_validation_end_date := p_effective_date;
269: end if;

Line 348: end ame_gcf_shd;

344: --
345: End get_object_version_number;
346: --
347: --
348: end ame_gcf_shd;