[Home] [Help]
1: Package Body pay_apr_shd as
2: /* $Header: pyaprrhi.pkb 120.0.12000000.1 2007/01/17 15:39:22 appldev noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
89: --
90: l_fct_ret := false;
91: Else
92: If (p_process_id
93: = pay_apr_shd.g_old_rec.process_id and
94: p_object_version_number
95: = pay_apr_shd.g_old_rec.object_version_number
96: ) Then
97: --
91: Else
92: If (p_process_id
93: = pay_apr_shd.g_old_rec.process_id and
94: p_object_version_number
95: = pay_apr_shd.g_old_rec.object_version_number
96: ) Then
97: --
98: -- The g_old_rec is current therefore we must
99: -- set the returning function to true
103: --
104: -- Select the current row into g_old_rec
105: --
106: Open C_Sel1;
107: Fetch C_Sel1 Into pay_apr_shd.g_old_rec;
108: If C_Sel1%notfound Then
109: Close C_Sel1;
110: --
111: -- The primary key is invalid therefore we must error
114: fnd_message.raise_error;
115: End If;
116: Close C_Sel1;
117: If (p_object_version_number
118: <> pay_apr_shd.g_old_rec.object_version_number) Then
119: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
120: fnd_message.raise_error;
121: End If;
122: l_fct_ret := true;
170: ,p_argument_value => p_object_version_number
171: );
172: --
173: Open C_Sel1;
174: Fetch C_Sel1 Into pay_apr_shd.g_old_rec;
175: If C_Sel1%notfound then
176: Close C_Sel1;
177: --
178: -- The primary key is invalid therefore we must error
181: fnd_message.raise_error;
182: End If;
183: Close C_Sel1;
184: If (p_object_version_number
185: <> pay_apr_shd.g_old_rec.object_version_number) Then
186: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
187: fnd_message.raise_error;
188: End If;
189: --
240: --
241: End convert_args;
242: --
243: Begin
244: g_package := ' pay_apr_shd.'; -- Global package name
245: end pay_apr_shd;
241: End convert_args;
242: --
243: Begin
244: g_package := ' pay_apr_shd.'; -- Global package name
245: end pay_apr_shd;