APPS.BEN_PRY_SHD dependencies on BEN_PRY_SHD

Line 1: Package Body ben_pry_shd as

1: Package Body ben_pry_shd as
2: /* $Header: bepryrhi.pkb 120.7 2008/04/29 07:14:34 sagnanas noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |

Line 8: g_package varchar2(33) := ' ben_pry_shd.'; -- Global package name

4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' ben_pry_shd.'; -- Global package name
9: --
10: -- ----------------------------------------------------------------------------
11: -- |------------------------< return_api_dml_status >-------------------------|
12: -- ----------------------------------------------------------------------------

Line 123: ben_pry_shd.g_old_rec.prtt_rmt_aprvd_fr_pymt_id and

119: --
120: l_fct_ret := false;
121: Else
122: If (p_prtt_rmt_aprvd_fr_pymt_id =
123: ben_pry_shd.g_old_rec.prtt_rmt_aprvd_fr_pymt_id and
124: p_object_version_number =
125: ben_pry_shd.g_old_rec.object_version_number
126: ) Then
127: --

Line 125: ben_pry_shd.g_old_rec.object_version_number

121: Else
122: If (p_prtt_rmt_aprvd_fr_pymt_id =
123: ben_pry_shd.g_old_rec.prtt_rmt_aprvd_fr_pymt_id and
124: p_object_version_number =
125: ben_pry_shd.g_old_rec.object_version_number
126: ) Then
127: --
128: -- The g_old_rec is current therefore we must
129: -- set the returning function to true

Line 137: Fetch C_Sel1 Into ben_pry_shd.g_old_rec;

133: --
134: -- Select the current row
135: --
136: Open C_Sel1;
137: Fetch C_Sel1 Into ben_pry_shd.g_old_rec;
138: If C_Sel1%notfound Then
139: Close C_Sel1;
140: --
141: -- The primary key is invalid therefore we must error

Line 148: <> ben_pry_shd.g_old_rec.object_version_number) Then

144: fnd_message.raise_error;
145: End If;
146: Close C_Sel1;
147: If (p_object_version_number
148: <> ben_pry_shd.g_old_rec.object_version_number) Then
149: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
150: fnd_message.raise_error;
151: End If;
152: l_fct_ret := true;

Line 302: ben_pry_shd.g_api_dml := true; -- Set the api dml status

298: ,p_base_key_value => p_base_key_value
299: );
300: --
301: hr_utility.set_location(l_proc, 10);
302: ben_pry_shd.g_api_dml := true; -- Set the api dml status
303: --
304: -- Update the specified datetrack row setting the effective
305: -- end date to the specified new effective end date.
306: --

Line 314: ben_pry_shd.g_api_dml := false; -- Unset the api dml status

310: where t.prtt_rmt_aprvd_fr_pymt_id = p_base_key_value
311: and p_effective_date
312: between t.effective_start_date and t.effective_end_date;
313: --
314: ben_pry_shd.g_api_dml := false; -- Unset the api dml status
315: p_object_version_number := l_object_version_number;
316: hr_utility.set_location(' Leaving:'||l_proc, 15);
317: --
318: Exception

Line 320: ben_pry_shd.g_api_dml := false; -- Unset the api dml status

316: hr_utility.set_location(' Leaving:'||l_proc, 15);
317: --
318: Exception
319: When Others Then
320: ben_pry_shd.g_api_dml := false; -- Unset the api dml status
321: Raise;
322: --
323: End upd_effective_end_date;
324: --

Line 432: Fetch C_Sel1 Into ben_pry_shd.g_old_rec;

428: --
429: -- We must select and lock the current row.
430: --
431: Open C_Sel1;
432: Fetch C_Sel1 Into ben_pry_shd.g_old_rec;
433: If C_Sel1%notfound then
434: Close C_Sel1;
435: --
436: -- The primary key is invalid therefore we must error

Line 443: <> ben_pry_shd.g_old_rec.object_version_number) Then

439: fnd_message.raise_error;
440: End If;
441: Close C_Sel1;
442: If (p_object_version_number
443: <> ben_pry_shd.g_old_rec.object_version_number) Then
444: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
445: fnd_message.raise_error;
446: End If;
447: --

Line 460: ,p_parent_key_value1 => ben_pry_shd.g_old_rec.prtt_reimbmt_rqst_id

456: ,p_base_key_column => 'prtt_rmt_aprvd_fr_pymt_id'
457: ,p_base_key_value => p_prtt_rmt_aprvd_fr_pymt_id
458: ,p_parent_table_name1 => 'ben_prtt_reimbmt_rqst_f'
459: ,p_parent_key_column1 => 'prtt_reimbmt_rqst_id'
460: ,p_parent_key_value1 => ben_pry_shd.g_old_rec.prtt_reimbmt_rqst_id
461: ,p_enforce_foreign_locking => false --true
462: ,p_validation_start_date => l_validation_start_date
463: ,p_validation_end_date => l_validation_end_date
464: );

Line 607: end ben_pry_shd;

603: Return(l_rec);
604: --
605: End convert_args;
606: --
607: end ben_pry_shd;