APPS.AME_RLU_SHD dependencies on AME_RLU_SHD

Line 1: Package Body ame_rlu_shd as

1: Package Body ame_rlu_shd as
2: /* $Header: amrlurhi.pkb 120.5 2005/11/22 03:19 santosin noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |

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

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

Line 83: ame_rlu_shd.g_old_rec.rule_id and

79: --
80: l_fct_ret := false;
81: Else
82: If (p_rule_id =
83: ame_rlu_shd.g_old_rec.rule_id and
84: p_item_id =
85: ame_rlu_shd.g_old_rec.item_id and
86: p_object_version_number =
87: ame_rlu_shd.g_old_rec.object_version_number) Then

Line 85: ame_rlu_shd.g_old_rec.item_id and

81: Else
82: If (p_rule_id =
83: ame_rlu_shd.g_old_rec.rule_id and
84: p_item_id =
85: ame_rlu_shd.g_old_rec.item_id and
86: p_object_version_number =
87: ame_rlu_shd.g_old_rec.object_version_number) Then
88: --
89: -- The g_old_rec is current therefore we must

Line 87: ame_rlu_shd.g_old_rec.object_version_number) Then

83: ame_rlu_shd.g_old_rec.rule_id and
84: p_item_id =
85: ame_rlu_shd.g_old_rec.item_id and
86: p_object_version_number =
87: ame_rlu_shd.g_old_rec.object_version_number) Then
88: --
89: -- The g_old_rec is current therefore we must
90: -- set the returning function to true
91: --

Line 98: Fetch C_Sel1 Into ame_rlu_shd.g_old_rec;

94: --
95: -- Select the current row
96: --
97: Open C_Sel1;
98: Fetch C_Sel1 Into ame_rlu_shd.g_old_rec;
99: If C_Sel1%notfound Then
100: Close C_Sel1;
101: --
102: -- The primary key is invalid therefore we must error

Line 109: <> ame_rlu_shd.g_old_rec.object_version_number) Then

105: fnd_message.raise_error;
106: End If;
107: Close C_Sel1;
108: If (p_object_version_number
109: <> ame_rlu_shd.g_old_rec.object_version_number) Then
110: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
111: fnd_message.raise_error;
112: End If;
113: l_fct_ret := true;

Line 145: ame_rlu_shd.get_object_version_number

141: -- Because we are updating a row we must get the next object
142: -- version number.
143: --
144: l_object_version_number :=
145: ame_rlu_shd.get_object_version_number
146: (p_rule_id => p_rule_id
147: ,p_item_id => p_item_id
148: ,p_old_start_date => p_old_start_date
149: );

Line 258: Fetch C_Sel1 Into ame_rlu_shd.g_old_rec;

254: --
255: -- We must select and lock the current row.
256: --
257: Open C_Sel1;
258: Fetch C_Sel1 Into ame_rlu_shd.g_old_rec;
259: If C_Sel1%notfound then
260: Close C_Sel1;
261: --
262: -- The primary key is invalid therefore we must error

Line 269: <> ame_rlu_shd.g_old_rec.object_version_number) Then

265: fnd_message.raise_error;
266: End If;
267: Close C_Sel1;
268: If (p_object_version_number
269: <> ame_rlu_shd.g_old_rec.object_version_number) Then
270: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
271: fnd_message.raise_error;
272: End If;
273: --

Line 292: p_validation_end_date := ame_rlu_shd.g_old_rec.end_date;

288: -- Set the validation start and end date OUT arguments
289: --
290: if (p_datetrack_mode = hr_api.g_update) then
291: p_validation_start_date := p_effective_date;
292: p_validation_end_date := ame_rlu_shd.g_old_rec.end_date;
293: elsif (p_datetrack_mode = hr_api.g_delete) then
294: p_validation_start_date := p_effective_date;
295: p_validation_end_date := p_effective_date;
296: end if;

Line 404: end ame_rlu_shd;

400: --
401: End get_object_version_number;
402: --
403: --
404: end ame_rlu_shd;