1: PACKAGE BODY pay_pyr_shd AS
2: /* $Header: pypyrrhi.pkb 115.3 2003/09/15 04:18:59 adhunter noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package VARCHAR2(33) := ' pay_pyr_shd.'; -- Global package name
9: --
10: -- ----------------------------------------------------------------------------
11: -- |------------------------< return_api_dml_status >-------------------------|
12: -- ----------------------------------------------------------------------------
128: --
129: l_fct_ret := FALSE;
130: ELSE
131: IF (p_rate_id
132: = pay_pyr_shd.g_old_rec.rate_id AND
133: p_object_version_number
134: = pay_pyr_shd.g_old_rec.object_version_number
135: ) THEN
136: --
130: ELSE
131: IF (p_rate_id
132: = pay_pyr_shd.g_old_rec.rate_id AND
133: p_object_version_number
134: = pay_pyr_shd.g_old_rec.object_version_number
135: ) THEN
136: --
137: -- The g_old_rec IS current therefore we must
138: -- set the returning function to TRUE
142: --
143: -- Select the current row INTO g_old_rec
144: --
145: OPEN C_Sel1;
146: FETCH C_Sel1 INTO pay_pyr_shd.g_old_rec;
147: IF C_Sel1%notfound THEN
148: CLOSE C_Sel1;
149: --
150: -- The primary key IS invalid therefore we must error
153: fnd_message.raise_error;
154: END IF;
155: CLOSE C_Sel1;
156: IF (p_object_version_number
157: <> pay_pyr_shd.g_old_rec.object_version_number) THEN
158: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
159: fnd_message.raise_error;
160: END IF;
161: l_fct_ret := TRUE;
233: ,p_argument_value => p_object_version_number
234: );
235: --
236: OPEN C_Sel1;
237: FETCH C_Sel1 INTO pay_pyr_shd.g_old_rec;
238: IF C_Sel1%notfound THEN
239: CLOSE C_Sel1;
240: --
241: -- The primary key IS invalid therefore we must error
244: fnd_message.raise_error;
245: END IF;
246: CLOSE C_Sel1;
247: IF (p_object_version_number
248: <> pay_pyr_shd.g_old_rec.object_version_number) THEN
249: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
250: fnd_message.raise_error;
251: END IF;
252: --
346: RETURN(l_rec);
347: --
348: END convert_args;
349: --
350: END pay_pyr_shd;