1: package body hxc_tat_shd as
2: /* $Header: hxtatrhi.pkb 120.2 2005/09/23 07:03:57 rchennur noship $ */
3: -- --------------------------------------------------------------------------
4: -- | Private Global Definitions |
5: -- --------------------------------------------------------------------------
2: /* $Header: hxtatrhi.pkb 120.2 2005/09/23 07:03:57 rchennur noship $ */
3: -- --------------------------------------------------------------------------
4: -- | Private Global Definitions |
5: -- --------------------------------------------------------------------------
6: g_package varchar2(33) := ' hxc_tat_shd.'; -- global package name
7: g_debug boolean := hr_utility.debug_enabled;
8: -- --------------------------------------------------------------------------
9: -- |---------------------------< constraint_error >-------------------------|
10: -- --------------------------------------------------------------------------
85:
86: else
87:
88: if (p_time_attribute_id
89: = hxc_tat_shd.g_old_rec.time_attribute_id and
90: p_object_version_number
91: = hxc_tat_shd.g_old_rec.object_version_number
92: ) then
93:
87:
88: if (p_time_attribute_id
89: = hxc_tat_shd.g_old_rec.time_attribute_id and
90: p_object_version_number
91: = hxc_tat_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
100:
101: -- select the current row into g_old_rec
102:
103: open c_sel1;
104: fetch c_sel1 into hxc_tat_shd.g_old_rec;
105:
106: if c_sel1%notfound then
107: close c_sel1;
108:
114:
115: close c_sel1;
116:
117: if (p_object_version_number
118: <> hxc_tat_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:
196: ,p_argument_value => p_time_attribute_id
197: );
198:
199: open c_sel1;
200: fetch c_sel1 into hxc_tat_shd.g_old_rec;
201:
202: if c_sel1%notfound then
203: close c_sel1;
204:
210:
211: close c_sel1;
212:
213: if (p_object_version_number
214: <> hxc_tat_shd.g_old_rec.object_version_number) then
215: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
216: fnd_message.raise_error;
217: end if;
218:
315: return(l_rec);
316:
317: end convert_args;
318:
319: end hxc_tat_shd;