1: Package Body ben_pdt_shd as
2: /* $Header: bepdtrhi.pkb 115.0 2003/10/30 09:33 rpillay noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' ben_pdt_shd.'; -- Global package name
9: --
10: -- ----------------------------------------------------------------------------
11: -- |---------------------------< constraint_error >---------------------------|
12: -- ----------------------------------------------------------------------------
100: --
101: l_fct_ret := false;
102: Else
103: If (p_pymt_check_det_id
104: = ben_pdt_shd.g_old_rec.pymt_check_det_id and
105: p_object_version_number
106: = ben_pdt_shd.g_old_rec.object_version_number
107: ) Then
108: --
102: Else
103: If (p_pymt_check_det_id
104: = ben_pdt_shd.g_old_rec.pymt_check_det_id and
105: p_object_version_number
106: = ben_pdt_shd.g_old_rec.object_version_number
107: ) Then
108: --
109: -- The g_old_rec is current therefore we must
110: -- set the returning function to true
114: --
115: -- Select the current row into g_old_rec
116: --
117: Open C_Sel1;
118: Fetch C_Sel1 Into ben_pdt_shd.g_old_rec;
119: If C_Sel1%notfound Then
120: Close C_Sel1;
121: --
122: -- The primary key is invalid therefore we must error
125: fnd_message.raise_error;
126: End If;
127: Close C_Sel1;
128: If (p_object_version_number
129: <> ben_pdt_shd.g_old_rec.object_version_number) Then
130: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
131: fnd_message.raise_error;
132: End If;
133: l_fct_ret := true;
208: ,p_argument_value => p_object_version_number
209: );
210: --
211: Open C_Sel1;
212: Fetch C_Sel1 Into ben_pdt_shd.g_old_rec;
213: If C_Sel1%notfound then
214: Close C_Sel1;
215: --
216: -- The primary key is invalid therefore we must error
219: fnd_message.raise_error;
220: End If;
221: Close C_Sel1;
222: If (p_object_version_number
223: <> ben_pdt_shd.g_old_rec.object_version_number) Then
224: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
225: fnd_message.raise_error;
226: End If;
227: --
335: Return(l_rec);
336: --
337: End convert_args;
338: --
339: end ben_pdt_shd;