1: Package Body ota_ugt_shd as
2: /* $Header: otugtrhi.pkb 120.2 2008/03/28 06:47:57 pekasi noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' ota_ugt_shd.'; -- Global package name
9: --
10: -- ----------------------------------------------------------------------------
11: -- |---------------------------< constraint_error >---------------------------|
12: -- ----------------------------------------------------------------------------
66: -- set the returning function value to false
67: --
68: l_fct_ret := false;
69: Else
70: If (p_user_group_id = ota_ugt_shd.g_old_rec.user_group_id and
71: p_language = ota_ugt_shd.g_old_rec.language ) Then
72: --
73: -- The g_old_rec is current therefore we must
74: -- set the returning function to true
67: --
68: l_fct_ret := false;
69: Else
70: If (p_user_group_id = ota_ugt_shd.g_old_rec.user_group_id and
71: p_language = ota_ugt_shd.g_old_rec.language ) Then
72: --
73: -- The g_old_rec is current therefore we must
74: -- set the returning function to true
75: --
78: --
79: -- Select the current row into g_old_rec
80: --
81: Open C_Sel1;
82: Fetch C_Sel1 Into ota_ugt_shd.g_old_rec;
83: If C_Sel1%notfound Then
84: Close C_Sel1;
85: --
86: -- The primary key is invalid therefore we must error
136: ,p_argument_value => p_language
137: );
138: --
139: Open C_Sel1;
140: Fetch C_Sel1 Into ota_ugt_shd.g_old_rec;
141: If C_Sel1%notfound then
142: Close C_Sel1;
143: --
144: -- The primary key is invalid therefore we must error
267: Return(l_rec);
268: --
269: End convert_args;
270: --
271: end ota_ugt_shd;