1: Package Body irc_ipt_shd as
2: /* $Header: iriptrhi.pkb 120.0 2005/07/26 15:10:09 mbocutt noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' irc_ipt_shd.'; -- Global package name
9: --
10: -- ----------------------------------------------------------------------------
11: -- |---------------------------< constraint_error >---------------------------|
12: -- ----------------------------------------------------------------------------
77: --
78: l_fct_ret := false;
79: Else
80: If (p_posting_content_id
81: = irc_ipt_shd.g_old_rec.posting_content_id and
82: p_language
83: = irc_ipt_shd.g_old_rec.language
84: ) Then
85: --
79: Else
80: If (p_posting_content_id
81: = irc_ipt_shd.g_old_rec.posting_content_id and
82: p_language
83: = irc_ipt_shd.g_old_rec.language
84: ) Then
85: --
86: -- The g_old_rec is current therefore we must
87: -- set the returning function to true
91: --
92: -- Select the current row into g_clob_old_rec
93: --
94: Open C_Sel1;
95: Fetch C_Sel1 Into irc_ipt_shd.g_clob_old_rec;
96: If C_Sel1%notfound Then
97: Close C_Sel1;
98: --
99: -- The primary key is invalid therefore we must error
185: ,p_argument_value => p_language
186: );
187: --
188: Open C_Sel1;
189: Fetch C_Sel1 Into irc_ipt_shd.g_clob_old_rec;
190: If C_Sel1%notfound then
191: Close C_Sel1;
192: --
193: -- The primary key is invalid therefore we must error
428: -- ----------------------------------------------------------------------------
429: -- |------------------------------< clob_dml >--------------------------------|
430: -- ----------------------------------------------------------------------------
431: Procedure clob_dml
432: (p_rec in out nocopy irc_ipt_shd.g_rec_type
433: ,p_api_updating boolean
434: ) is
435: --
436: l_proc varchar2(72) := g_package||'clob_dml';
625: Exception
626: When hr_api.check_integrity_violated Then
627: -- A check constraint has been violated
628: --
629: irc_ipt_shd.constraint_error
630: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
631: When hr_api.parent_integrity_violated Then
632: -- Parent integrity has been violated
633: --
630: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
631: When hr_api.parent_integrity_violated Then
632: -- Parent integrity has been violated
633: --
634: irc_ipt_shd.constraint_error
635: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
636: When hr_api.unique_integrity_violated Then
637: -- Unique integrity has been violated
638: --
635: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
636: When hr_api.unique_integrity_violated Then
637: -- Unique integrity has been violated
638: --
639: irc_ipt_shd.constraint_error
640: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
641: When Others Then
642: --
643: Raise;
643: Raise;
644: End clob_dml;
645: --
646: --
647: end irc_ipt_shd;