1: Package Body per_naa_shd as
2: /* $Header: penaarhi.pkb 120.1 2006/04/25 06:01:33 niljain noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' per_naa_shd.'; -- Global package name
9: --
10: -- ----------------------------------------------------------------------------
11: -- |------------------------< return_api_dml_status >-------------------------|
12: -- ----------------------------------------------------------------------------
87: --
88: l_fct_ret := false;
89: Else
90: If (p_absence_action_id
91: = per_naa_shd.g_old_rec.absence_action_id and
92: p_absence_attendance_id
93: = per_naa_shd.g_old_rec.absence_attendance_id and
94: p_object_version_number
95: = per_naa_shd.g_old_rec.object_version_number
89: Else
90: If (p_absence_action_id
91: = per_naa_shd.g_old_rec.absence_action_id and
92: p_absence_attendance_id
93: = per_naa_shd.g_old_rec.absence_attendance_id and
94: p_object_version_number
95: = per_naa_shd.g_old_rec.object_version_number
96: ) Then
97: --
91: = per_naa_shd.g_old_rec.absence_action_id and
92: p_absence_attendance_id
93: = per_naa_shd.g_old_rec.absence_attendance_id and
94: p_object_version_number
95: = per_naa_shd.g_old_rec.object_version_number
96: ) Then
97: --
98: -- The g_old_rec is current therefore we must
99: -- set the returning function to true
103: --
104: -- Select the current row into g_old_rec
105: --
106: Open C_Sel1;
107: Fetch C_Sel1 Into per_naa_shd.g_old_rec;
108: If C_Sel1%notfound Then
109: Close C_Sel1;
110: --
111: -- The primary key is invalid therefore we must error
114: fnd_message.raise_error;
115: End If;
116: Close C_Sel1;
117: If (p_object_version_number
118: <> per_naa_shd.g_old_rec.object_version_number) Then
119: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
120: fnd_message.raise_error;
121: End If;
122: l_fct_ret := true;
171: ,p_argument_value => p_object_version_number
172: );
173: --
174: Open C_Sel1;
175: Fetch C_Sel1 Into per_naa_shd.g_old_rec;
176: If C_Sel1%notfound then
177: Close C_Sel1;
178: --
179: -- The primary key is invalid therefore we must error
182: fnd_message.raise_error;
183: End If;
184: Close C_Sel1;
185: If (p_object_version_number
186: <> per_naa_shd.g_old_rec.object_version_number) Then
187: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
188: fnd_message.raise_error;
189: End If;
190: --
246: Return(l_rec);
247: --
248: End convert_args;
249: --
250: end per_naa_shd;