1: Package Body ota_cpr_shd as
2: /* $Header: otcprrhi.pkb 120.2 2006/10/09 11:33:40 sschauha noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' ota_cpr_shd.'; -- Global package name
9: --
10: -- ----------------------------------------------------------------------------
11: -- |---------------------------< constraint_error >---------------------------|
12: -- ----------------------------------------------------------------------------
81: --
82: l_fct_ret := false;
83: Else
84: If (p_activity_version_id
85: = ota_cpr_shd.g_old_rec.activity_version_id and
86: p_prerequisite_course_id
87: = ota_cpr_shd.g_old_rec.prerequisite_course_id and
88: p_object_version_number
89: = ota_cpr_shd.g_old_rec.object_version_number
83: Else
84: If (p_activity_version_id
85: = ota_cpr_shd.g_old_rec.activity_version_id and
86: p_prerequisite_course_id
87: = ota_cpr_shd.g_old_rec.prerequisite_course_id and
88: p_object_version_number
89: = ota_cpr_shd.g_old_rec.object_version_number
90: ) Then
91: --
85: = ota_cpr_shd.g_old_rec.activity_version_id and
86: p_prerequisite_course_id
87: = ota_cpr_shd.g_old_rec.prerequisite_course_id and
88: p_object_version_number
89: = ota_cpr_shd.g_old_rec.object_version_number
90: ) Then
91: --
92: -- The g_old_rec is current therefore we must
93: -- set the returning function to true
97: --
98: -- Select the current row into g_old_rec
99: --
100: Open C_Sel1;
101: Fetch C_Sel1 Into ota_cpr_shd.g_old_rec;
102: If C_Sel1%notfound Then
103: Close C_Sel1;
104: --
105: -- The primary key is invalid therefore we must error
108: fnd_message.raise_error;
109: End If;
110: Close C_Sel1;
111: If (p_object_version_number
112: <> ota_cpr_shd.g_old_rec.object_version_number) Then
113: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
114: fnd_message.raise_error;
115: End If;
116: l_fct_ret := true;
167: ,p_argument_value => p_object_version_number
168: );
169: --
170: Open C_Sel1;
171: Fetch C_Sel1 Into ota_cpr_shd.g_old_rec;
172: If C_Sel1%notfound then
173: Close C_Sel1;
174: --
175: -- The primary key is invalid therefore we must error
178: fnd_message.raise_error;
179: End If;
180: Close C_Sel1;
181: If (p_object_version_number
182: <> ota_cpr_shd.g_old_rec.object_version_number) Then
183: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
184: fnd_message.raise_error;
185: End If;
186: --
230: Return(l_rec);
231: --
232: End convert_args;
233: --
234: end ota_cpr_shd;