1: Package Body pqh_crd_shd as
2: /* $Header: pqcrdrhi.pkb 120.0 2005/05/29 01:45 appldev noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' pqh_crd_shd.'; -- Global package name
9: --
10: -- ----------------------------------------------------------------------------
11: -- |---------------------------< constraint_error >---------------------------|
12: -- ----------------------------------------------------------------------------
126: --
127: l_fct_ret := false;
128: Else
129: If (p_criteria_rate_defn_id
130: = pqh_crd_shd.g_old_rec.criteria_rate_defn_id and
131: p_object_version_number
132: = pqh_crd_shd.g_old_rec.object_version_number
133: ) Then
134: --
128: Else
129: If (p_criteria_rate_defn_id
130: = pqh_crd_shd.g_old_rec.criteria_rate_defn_id and
131: p_object_version_number
132: = pqh_crd_shd.g_old_rec.object_version_number
133: ) Then
134: --
135: -- The g_old_rec is current therefore we must
136: -- set the returning function to true
140: --
141: -- Select the current row into g_old_rec
142: --
143: Open C_Sel1;
144: Fetch C_Sel1 Into pqh_crd_shd.g_old_rec;
145: If C_Sel1%notfound Then
146: Close C_Sel1;
147: --
148: -- The primary key is invalid therefore we must error
151: fnd_message.raise_error;
152: End If;
153: Close C_Sel1;
154: If (p_object_version_number
155: <> pqh_crd_shd.g_old_rec.object_version_number) Then
156: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
157: fnd_message.raise_error;
158: End If;
159: l_fct_ret := true;
245: ,p_argument_value => p_object_version_number
246: );
247: --
248: Open C_Sel1;
249: Fetch C_Sel1 Into pqh_crd_shd.g_old_rec;
250: If C_Sel1%notfound then
251: Close C_Sel1;
252: --
253: -- The primary key is invalid therefore we must error
256: fnd_message.raise_error;
257: End If;
258: Close C_Sel1;
259: If (p_object_version_number
260: <> pqh_crd_shd.g_old_rec.object_version_number) Then
261: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
262: fnd_message.raise_error;
263: End If;
264: --
394: Return(l_rec);
395: --
396: End convert_args;
397: --
398: end pqh_crd_shd;