1: Package Body irc_iav_shd as
2: /* $Header: iriavrhi.pkb 120.1 2005/12/22 21:07:08 gganesan noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' irc_iav_shd.'; -- Global package name
9: --
10: -- ----------------------------------------------------------------------------
11: -- |---------------------------< constraint_error >---------------------------|
12: -- ----------------------------------------------------------------------------
101: --
102: l_fct_ret := false;
103: Else
104: If (p_agency_vacancy_id
105: = irc_iav_shd.g_old_rec.agency_vacancy_id and
106: p_object_version_number
107: = irc_iav_shd.g_old_rec.object_version_number
108: ) Then
109: --
103: Else
104: If (p_agency_vacancy_id
105: = irc_iav_shd.g_old_rec.agency_vacancy_id and
106: p_object_version_number
107: = irc_iav_shd.g_old_rec.object_version_number
108: ) Then
109: --
110: -- The g_old_rec is current therefore we must
111: -- set the returning function to true
115: --
116: -- Select the current row into g_old_rec
117: --
118: Open C_Sel1;
119: Fetch C_Sel1 Into irc_iav_shd.g_old_rec;
120: If C_Sel1%notfound Then
121: Close C_Sel1;
122: --
123: -- The primary key is invalid therefore we must error
126: fnd_message.raise_error;
127: End If;
128: Close C_Sel1;
129: If (p_object_version_number
130: <> irc_iav_shd.g_old_rec.object_version_number) Then
131: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
132: fnd_message.raise_error;
133: End If;
134: l_fct_ret := true;
210: ,p_argument_value => p_object_version_number
211: );
212: --
213: Open C_Sel1;
214: Fetch C_Sel1 Into irc_iav_shd.g_old_rec;
215: If C_Sel1%notfound then
216: Close C_Sel1;
217: --
218: -- The primary key is invalid therefore we must error
221: fnd_message.raise_error;
222: End If;
223: Close C_Sel1;
224: If (p_object_version_number
225: <> irc_iav_shd.g_old_rec.object_version_number) Then
226: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
227: fnd_message.raise_error;
228: End If;
229: --
339: Return(l_rec);
340: --
341: End convert_args;
342: --
343: end irc_iav_shd;