1: Package Body pay_tdf_shd as
2: /* $Header: pytdfrhi.pkb 120.4 2005/09/20 06:56 adkumar noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' pay_tdf_shd.'; -- Global package name
9: --
10: -- ----------------------------------------------------------------------------
11: -- |------------------------< return_api_dml_status >-------------------------|
12: -- ----------------------------------------------------------------------------
94: --
95: l_fct_ret := false;
96: Else
97: If (p_time_definition_id
98: = pay_tdf_shd.g_old_rec.time_definition_id and
99: p_object_version_number
100: = pay_tdf_shd.g_old_rec.object_version_number
101: ) Then
102: --
96: Else
97: If (p_time_definition_id
98: = pay_tdf_shd.g_old_rec.time_definition_id and
99: p_object_version_number
100: = pay_tdf_shd.g_old_rec.object_version_number
101: ) Then
102: --
103: -- The g_old_rec is current therefore we must
104: -- set the returning function to true
108: --
109: -- Select the current row into g_old_rec
110: --
111: Open C_Sel1;
112: Fetch C_Sel1 Into pay_tdf_shd.g_old_rec;
113: If C_Sel1%notfound Then
114: Close C_Sel1;
115: --
116: -- The primary key is invalid therefore we must error
119: fnd_message.raise_error;
120: End If;
121: Close C_Sel1;
122: If (p_object_version_number
123: <> pay_tdf_shd.g_old_rec.object_version_number) Then
124: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
125: fnd_message.raise_error;
126: End If;
127: l_fct_ret := true;
180: ,p_argument_value => p_object_version_number
181: );
182: --
183: Open C_Sel1;
184: Fetch C_Sel1 Into pay_tdf_shd.g_old_rec;
185: If C_Sel1%notfound then
186: Close C_Sel1;
187: --
188: -- The primary key is invalid therefore we must error
191: fnd_message.raise_error;
192: End If;
193: Close C_Sel1;
194: If (p_object_version_number
195: <> pay_tdf_shd.g_old_rec.object_version_number) Then
196: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
197: fnd_message.raise_error;
198: End If;
199: --
263: Return(l_rec);
264: --
265: End convert_args;
266: --
267: end pay_tdf_shd;