42: Begin
43: --
44: hr_utility.set_location('Entering:'||l_proc, 5);
45: --
46: l_api_updating := pqh_pte_shd.api_updating
47: (p_ptx_extra_info_id => p_ptx_extra_info_id,
48: p_object_version_number => p_object_version_number);
49: --
50: if (l_api_updating
48: p_object_version_number => p_object_version_number);
49: --
50: if (l_api_updating
51: and nvl(p_ptx_extra_info_id,hr_api.g_number)
52: <> pqh_pte_shd.g_old_rec.ptx_extra_info_id) then
53: --
54: -- raise error as PK has changed
55: --
56: pqh_pte_shd.constraint_error('PQH_PTX_EXTRA_INFO_PK');
52: <> pqh_pte_shd.g_old_rec.ptx_extra_info_id) then
53: --
54: -- raise error as PK has changed
55: --
56: pqh_pte_shd.constraint_error('PQH_PTX_EXTRA_INFO_PK');
57: --
58: elsif not l_api_updating then
59: --
60: -- check if PK is null
62: if p_ptx_extra_info_id is not null then
63: --
64: -- raise error as PK is not null
65: --
66: pqh_pte_shd.constraint_error('PQH_PTX_EXTRA_INFO_PK');
67: --
68: end if;
69: --
70: end if;
114: Begin
115: --
116: hr_utility.set_location('Entering:'||l_proc,5);
117: --
118: l_api_updating := pqh_pte_shd.api_updating
119: (p_ptx_extra_info_id => p_ptx_extra_info_id,
120: p_object_version_number => p_object_version_number);
121: --
122: if (l_api_updating
120: p_object_version_number => p_object_version_number);
121: --
122: if (l_api_updating
123: and nvl(p_position_transaction_id,hr_api.g_number)
124: <> nvl(pqh_pte_shd.g_old_rec.position_transaction_id,hr_api.g_number)
125: or not l_api_updating) then
126: --
127: -- check if position_transaction_id value exists in pqh_position_transactions table
128: --
135: --
136: -- raise error as FK does not relate to PK in pqh_position_transactions
137: -- table.
138: --
139: pqh_pte_shd.constraint_error('PQH_PTX_EXTRA_INFO_FK2');
140: --
141: end if;
142: --
143: close c1;
189: Begin
190: --
191: hr_utility.set_location('Entering:'||l_proc,5);
192: --
193: l_api_updating := pqh_pte_shd.api_updating
194: (p_ptx_extra_info_id => p_ptx_extra_info_id,
195: p_object_version_number => p_object_version_number);
196: --
197: if (l_api_updating
195: p_object_version_number => p_object_version_number);
196: --
197: if (l_api_updating
198: and nvl(p_information_type,hr_api.g_varchar2)
199: <> nvl(pqh_pte_shd.g_old_rec.information_type,hr_api.g_varchar2)
200: or not l_api_updating) then
201: --
202: -- check if information_type value exists in per_position_info_types table
203: --
213: --
214: hr_utility.set_message(800, 'PQH_INVALID_POS_INFO_TYPE');
215: hr_utility.set_message_token('POS_INFO_TYPE',p_information_type );
216: hr_utility.raise_error;
217: -- pqh_pte_shd.constraint_error('PQH_PTX_EXTRA_INFO_FK1');
218: --
219: end if;
220: --
221: close c1;
229: --
230: -- ----------------------------------------------------------------------------
231: -- |---------------------------< insert_validate >----------------------------|
232: -- ----------------------------------------------------------------------------
233: Procedure insert_validate(p_rec in pqh_pte_shd.g_rec_type) is
234: --
235: l_proc varchar2(72) := g_package||'insert_validate';
236: --
237: l_ptx_rec pqh_position_transactions%rowtype;
326: --
327: -- ----------------------------------------------------------------------------
328: -- |---------------------------< update_validate >----------------------------|
329: -- ----------------------------------------------------------------------------
330: Procedure update_validate(p_rec in pqh_pte_shd.g_rec_type) is
331: --
332: l_proc varchar2(72) := g_package||'update_validate';
333: --
334: Begin
389: --
390: -- ----------------------------------------------------------------------------
391: -- |---------------------------< delete_validate >----------------------------|
392: -- ----------------------------------------------------------------------------
393: Procedure delete_validate(p_rec in pqh_pte_shd.g_rec_type) is
394: --
395: l_proc varchar2(72) := g_package||'delete_validate';
396: --
397: Begin