1: Package Body ota_fns_shd as
2: /* $Header: otfnsrhi.pkb 120.1 2005/07/18 05:29 aabalakr noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' ota_fns_shd.'; -- Global package name
9: --
10: -- ----------------------------------------------------------------------------
11: -- |------------------------< return_api_dml_status >-------------------------|
12: -- ----------------------------------------------------------------------------
84: --
85: l_fct_ret := false;
86: Else
87: If (p_forum_id
88: = ota_fns_shd.g_old_rec.forum_id and
89: p_object_version_number
90: = ota_fns_shd.g_old_rec.object_version_number and
91: p_person_id
92: = ota_fns_shd.g_old_rec.person_id and
86: Else
87: If (p_forum_id
88: = ota_fns_shd.g_old_rec.forum_id and
89: p_object_version_number
90: = ota_fns_shd.g_old_rec.object_version_number and
91: p_person_id
92: = ota_fns_shd.g_old_rec.person_id and
93: p_contact_id
94: = ota_fns_shd.g_old_rec.contact_id
88: = ota_fns_shd.g_old_rec.forum_id and
89: p_object_version_number
90: = ota_fns_shd.g_old_rec.object_version_number and
91: p_person_id
92: = ota_fns_shd.g_old_rec.person_id and
93: p_contact_id
94: = ota_fns_shd.g_old_rec.contact_id
95: ) Then
96: --
90: = ota_fns_shd.g_old_rec.object_version_number and
91: p_person_id
92: = ota_fns_shd.g_old_rec.person_id and
93: p_contact_id
94: = ota_fns_shd.g_old_rec.contact_id
95: ) Then
96: --
97: -- The g_old_rec is current therefore we must
98: -- set the returning function to true
102: --
103: -- Select the current row into g_old_rec
104: --
105: Open C_Sel1;
106: Fetch C_Sel1 Into ota_fns_shd.g_old_rec;
107: If C_Sel1%notfound Then
108: Close C_Sel1;
109: --
110: -- The primary key is invalid therefore we must error
113: fnd_message.raise_error;
114: End If;
115: Close C_Sel1;
116: If (p_object_version_number
117: <> ota_fns_shd.g_old_rec.object_version_number) Then
118: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
119: fnd_message.raise_error;
120: End If;
121: l_fct_ret := true;
179: -- ,p_argument_value => p_contact_id
180: -- );
181: --
182: Open C_Sel1;
183: Fetch C_Sel1 Into ota_fns_shd.g_old_rec;
184: If C_Sel1%notfound then
185: Close C_Sel1;
186: --
187: -- The primary key is invalid therefore we must error
190: fnd_message.raise_error;
191: End If;
192: Close C_Sel1;
193: If (p_object_version_number
194: <> ota_fns_shd.g_old_rec.object_version_number) Then
195: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
196: fnd_message.raise_error;
197: End If;
198: --
240: Return(l_rec);
241: --
242: End convert_args;
243: --
244: end ota_fns_shd;