APPS.IRC_ISC_SHD dependencies on IRC_ISC_SHD

Line 1: Package Body irc_isc_shd as

1: Package Body irc_isc_shd as
2: /* $Header: iriscrhi.pkb 120.0 2005/07/26 15:11:17 mbocutt noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |

Line 8: g_package varchar2(33) := ' irc_isc_shd.'; -- Global package name

4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' irc_isc_shd.'; -- Global package name
9: --
10: -- ----------------------------------------------------------------------------
11: -- |------------------------< return_api_dml_status >-------------------------|
12: -- ----------------------------------------------------------------------------

Line 189: = irc_isc_shd.g_old_rec.search_criteria_id and

185: --
186: l_fct_ret := false;
187: Else
188: If (p_search_criteria_id
189: = irc_isc_shd.g_old_rec.search_criteria_id and
190: p_object_version_number
191: = irc_isc_shd.g_old_rec.object_version_number
192: ) Then
193: --

Line 191: = irc_isc_shd.g_old_rec.object_version_number

187: Else
188: If (p_search_criteria_id
189: = irc_isc_shd.g_old_rec.search_criteria_id and
190: p_object_version_number
191: = irc_isc_shd.g_old_rec.object_version_number
192: ) Then
193: --
194: -- The g_old_rec is current therefore we must
195: -- set the returning function to true

Line 203: Fetch C_Sel1 Into irc_isc_shd.g_old_rec;

199: --
200: -- Select the current row into g_old_rec
201: --
202: Open C_Sel1;
203: Fetch C_Sel1 Into irc_isc_shd.g_old_rec;
204: If C_Sel1%notfound Then
205: Close C_Sel1;
206: --
207: -- The primary key is invalid therefore we must error

Line 214: irc_isc_shd.g_old_rec.description

210: fnd_message.raise_error;
211: End If;
212: Close C_Sel1;
213: -- Convert description from clob to varchar
214: irc_isc_shd.g_old_rec.description
215: := dbms_lob.substr(irc_isc_shd.g_old_rec.description_c);
216:
217: If (p_object_version_number
218: <> irc_isc_shd.g_old_rec.object_version_number) Then

Line 215: := dbms_lob.substr(irc_isc_shd.g_old_rec.description_c);

211: End If;
212: Close C_Sel1;
213: -- Convert description from clob to varchar
214: irc_isc_shd.g_old_rec.description
215: := dbms_lob.substr(irc_isc_shd.g_old_rec.description_c);
216:
217: If (p_object_version_number
218: <> irc_isc_shd.g_old_rec.object_version_number) Then
219: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');

Line 218: <> irc_isc_shd.g_old_rec.object_version_number) Then

214: irc_isc_shd.g_old_rec.description
215: := dbms_lob.substr(irc_isc_shd.g_old_rec.description_c);
216:
217: If (p_object_version_number
218: <> irc_isc_shd.g_old_rec.object_version_number) Then
219: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
220: fnd_message.raise_error;
221: End If;
222: l_fct_ret := true;

Line 360: Fetch C_Sel1 Into irc_isc_shd.g_old_rec;

356: ,p_argument_value => p_object_version_number
357: );
358: --
359: Open C_Sel1;
360: Fetch C_Sel1 Into irc_isc_shd.g_old_rec;
361: If C_Sel1%notfound then
362: Close C_Sel1;
363: --
364: -- The primary key is invalid therefore we must error

Line 371: irc_isc_shd.g_old_rec.description

367: fnd_message.raise_error;
368: End If;
369: Close C_Sel1;
370: -- Convert description from clob to varchar
371: irc_isc_shd.g_old_rec.description
372: := dbms_lob.substr(irc_isc_shd.g_old_rec.description_c);
373:
374: If (p_object_version_number
375: <> irc_isc_shd.g_old_rec.object_version_number) Then

Line 372: := dbms_lob.substr(irc_isc_shd.g_old_rec.description_c);

368: End If;
369: Close C_Sel1;
370: -- Convert description from clob to varchar
371: irc_isc_shd.g_old_rec.description
372: := dbms_lob.substr(irc_isc_shd.g_old_rec.description_c);
373:
374: If (p_object_version_number
375: <> irc_isc_shd.g_old_rec.object_version_number) Then
376: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');

Line 375: <> irc_isc_shd.g_old_rec.object_version_number) Then

371: irc_isc_shd.g_old_rec.description
372: := dbms_lob.substr(irc_isc_shd.g_old_rec.description_c);
373:
374: If (p_object_version_number
375: <> irc_isc_shd.g_old_rec.object_version_number) Then
376: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
377: fnd_message.raise_error;
378: End If;
379: --

Line 607: end irc_isc_shd;

603: Return(l_rec);
604: --
605: End convert_args;
606: --
607: end irc_isc_shd;