1: Package Body ota_ftu_shd as
2: /* $Header: otfturhi.pkb 120.1 2005/09/21 02:31 aabalakr noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' ota_ftu_shd.'; -- Global package name
9: --
10: -- ----------------------------------------------------------------------------
11: -- |---------------------------< constraint_error >---------------------------|
12: -- ----------------------------------------------------------------------------
79: --
80: l_fct_ret := false;
81: Else
82: If (p_forum_thread_id
83: = ota_ftu_shd.g_old_rec.forum_thread_id and
84: p_forum_id
85: = ota_ftu_shd.g_old_rec.forum_id and
86: p_person_id
87: = ota_ftu_shd.g_old_rec.person_id and
81: Else
82: If (p_forum_thread_id
83: = ota_ftu_shd.g_old_rec.forum_thread_id and
84: p_forum_id
85: = ota_ftu_shd.g_old_rec.forum_id and
86: p_person_id
87: = ota_ftu_shd.g_old_rec.person_id and
88: p_contact_id
89: = ota_ftu_shd.g_old_rec.contact_id and
83: = ota_ftu_shd.g_old_rec.forum_thread_id and
84: p_forum_id
85: = ota_ftu_shd.g_old_rec.forum_id and
86: p_person_id
87: = ota_ftu_shd.g_old_rec.person_id and
88: p_contact_id
89: = ota_ftu_shd.g_old_rec.contact_id and
90: p_object_version_number
91: = ota_ftu_shd.g_old_rec.object_version_number
85: = ota_ftu_shd.g_old_rec.forum_id and
86: p_person_id
87: = ota_ftu_shd.g_old_rec.person_id and
88: p_contact_id
89: = ota_ftu_shd.g_old_rec.contact_id and
90: p_object_version_number
91: = ota_ftu_shd.g_old_rec.object_version_number
92: ) Then
93: --
87: = ota_ftu_shd.g_old_rec.person_id and
88: p_contact_id
89: = ota_ftu_shd.g_old_rec.contact_id and
90: p_object_version_number
91: = ota_ftu_shd.g_old_rec.object_version_number
92: ) Then
93: --
94: -- The g_old_rec is current therefore we must
95: -- set the returning function to true
99: --
100: -- Select the current row into g_old_rec
101: --
102: Open C_Sel1;
103: Fetch C_Sel1 Into ota_ftu_shd.g_old_rec;
104: If C_Sel1%notfound Then
105: Close C_Sel1;
106: --
107: -- The primary key is invalid therefore we must error
110: fnd_message.raise_error;
111: End If;
112: Close C_Sel1;
113: If (p_object_version_number
114: <> ota_ftu_shd.g_old_rec.object_version_number) Then
115: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
116: fnd_message.raise_error;
117: End If;
118: l_fct_ret := true;
187: ,p_argument_value => p_object_version_number
188: );
189: --
190: Open C_Sel1;
191: Fetch C_Sel1 Into ota_ftu_shd.g_old_rec;
192: If C_Sel1%notfound then
193: Close C_Sel1;
194: --
195: -- The primary key is invalid therefore we must error
198: fnd_message.raise_error;
199: End If;
200: Close C_Sel1;
201: If (p_object_version_number
202: <> ota_ftu_shd.g_old_rec.object_version_number) Then
203: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
204: fnd_message.raise_error;
205: End If;
206: --
254: Return(l_rec);
255: --
256: End convert_args;
257: --
258: end ota_ftu_shd;