1: Package Body ghr_cdt_shd as
2: /* $Header: ghcdtrhi.pkb 115.4 2003/01/30 19:25:13 asubrahm noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' ghr_cdt_shd.'; -- Global package name
9: --
10: -- ----------------------------------------------------------------------------
11: -- |---------------------------< constraint_error >---------------------------|
12: -- ----------------------------------------------------------------------------
82: --
83: l_fct_ret := false;
84: Else
85: If (p_compl_ca_detail_id
86: = ghr_cdt_shd.g_old_rec.compl_ca_detail_id and
87: p_object_version_number
88: = ghr_cdt_shd.g_old_rec.object_version_number
89: ) Then
90: --
84: Else
85: If (p_compl_ca_detail_id
86: = ghr_cdt_shd.g_old_rec.compl_ca_detail_id and
87: p_object_version_number
88: = ghr_cdt_shd.g_old_rec.object_version_number
89: ) Then
90: --
91: -- The g_old_rec is current therefore we must
92: -- set the returning function to true
96: --
97: -- Select the current row into g_old_rec
98: --
99: Open C_Sel1;
100: Fetch C_Sel1 Into ghr_cdt_shd.g_old_rec;
101: If C_Sel1%notfound Then
102: Close C_Sel1;
103: --
104: -- The primary key is invalid therefore we must error
107: fnd_message.raise_error;
108: End If;
109: Close C_Sel1;
110: If (p_object_version_number
111: <> ghr_cdt_shd.g_old_rec.object_version_number) Then
112: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
113: fnd_message.raise_error;
114: End If;
115: l_fct_ret := true;
167: ,p_argument_value => p_object_version_number
168: );
169: --
170: Open C_Sel1;
171: Fetch C_Sel1 Into ghr_cdt_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: <> ghr_cdt_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: --
248: Return(l_rec);
249: --
250: End convert_args;
251: --
252: end ghr_cdt_shd;