[Home] [Help]
PACKAGE BODY: APPS.PER_SUCCESSION_PLAN_UTILITY
Source
1 PACKAGE BODY per_succession_plan_utility AS
2 /* $Header: pesucutl.pkb 120.0.12000000.2 2007/11/21 17:37:53 kgowripe noship $ */
3 g_package VARCHAR2(40) := 'per_succession_plan_utility.';
4 PROCEDURE import_succession_plan
5 (
6 p_succession_plan_id in out nocopy number,
7 p_person_id in number default hr_api.g_number,
8 p_position_id in number default hr_api.g_number,
9 p_business_group_id in number default hr_api.g_number,
10 p_start_date in date default hr_api.g_date,
11 p_time_scale in varchar2 default hr_api.g_varchar2,
12 p_end_date in date default hr_api.g_date,
13 p_available_for_promotion in varchar2 default hr_api.g_varchar2,
14 p_manager_comments in varchar2 default hr_api.g_varchar2,
15 p_object_version_number in out nocopy number,
16 p_attribute_category in varchar2 default hr_api.g_varchar2,
17 p_attribute1 in varchar2 default hr_api.g_varchar2,
18 p_attribute2 in varchar2 default hr_api.g_varchar2,
19 p_attribute3 in varchar2 default hr_api.g_varchar2,
20 p_attribute4 in varchar2 default hr_api.g_varchar2,
21 p_attribute5 in varchar2 default hr_api.g_varchar2,
22 p_attribute6 in varchar2 default hr_api.g_varchar2,
23 p_attribute7 in varchar2 default hr_api.g_varchar2,
24 p_attribute8 in varchar2 default hr_api.g_varchar2,
25 p_attribute9 in varchar2 default hr_api.g_varchar2,
26 p_attribute10 in varchar2 default hr_api.g_varchar2,
27 p_attribute11 in varchar2 default hr_api.g_varchar2,
28 p_attribute12 in varchar2 default hr_api.g_varchar2,
29 p_attribute13 in varchar2 default hr_api.g_varchar2,
30 p_attribute14 in varchar2 default hr_api.g_varchar2,
31 p_attribute15 in varchar2 default hr_api.g_varchar2,
32 p_attribute16 in varchar2 default hr_api.g_varchar2,
33 p_attribute17 in varchar2 default hr_api.g_varchar2,
34 p_attribute18 in varchar2 default hr_api.g_varchar2,
35 p_attribute19 in varchar2 default hr_api.g_varchar2,
36 p_attribute20 in varchar2 default hr_api.g_varchar2,
37 p_effective_date in date default hr_api.g_date
38 ) IS
39 l_proc VARCHAR2(80) := g_package||'import_succession_plan';
40 BEGIN
41 hr_utility.set_location('Entering '||l_proc,10);
42 hr_utility.trace('p_succession_plan_id:'||p_succession_plan_id);
43 hr_utility.trace('p_person_id:'||p_person_id);
44 hr_utility.trace('p_position_id:'||p_position_id);
45 hr_utility.trace('p_business_group_id:'||p_business_group_id);
46 hr_utility.trace('p_object_versoin_number:'||p_object_version_number);
47 hr_utility.trace('p_effective_date:'||to_char(p_effective_date,'dd-mm-yyyy'));
48
49 IF p_succession_plan_id IS NULL THEN
50 hr_utility.set_location('INSERT Block '||l_proc,20);
51 per_suc_ins.ins(
52 p_succession_plan_id => p_succession_plan_id
53 ,p_person_id => p_person_id
54 ,p_position_id => p_position_id
55 ,p_business_group_id => fnd_profile.value('PER_BUSINESS_GROUP_ID')
56 ,p_start_date => p_start_date
57 ,p_time_scale => p_time_scale
58 ,p_end_date => p_end_date
59 ,p_available_for_promotion => p_available_for_promotion
60 ,p_manager_comments => p_manager_comments
61 ,p_object_version_number => p_object_version_number
62 ,p_attribute_category => NULL
63 ,p_attribute1 => NULL
64 ,p_attribute2 => NULL
65 ,p_attribute3 => NULL
66 ,p_attribute4 => NULL
67 ,p_attribute5 => NULL
68 ,p_attribute6 => NULL
69 ,p_attribute7 => NULL
70 ,p_attribute8 => NULL
71 ,p_attribute9 => NULL
72 ,p_attribute10 => NULL
73 ,p_attribute11 => NULL
74 ,p_attribute12 => NULL
75 ,p_attribute13 => NULL
76 ,p_attribute14 => NULL
77 ,p_attribute15 => NULL
78 ,p_attribute16 => NULL
79 ,p_attribute17 => NULL
80 ,p_attribute18 => NULL
81 ,p_attribute19 => NULL
82 ,p_attribute20 => NULL
83 ,p_effective_date => TRUNC(SYSDATE));
84 hr_utility.set_location('INSERT Complete '||l_proc,30);
85 ELSE
86 hr_utility.set_location('UPDATE Block '||l_proc,40);
87 per_suc_upd.upd(
88 p_succession_plan_id => p_succession_plan_id
89 ,p_person_id => p_person_id
90 ,p_position_id => p_position_id
91 ,p_business_group_id => fnd_profile.value('PER_BUSINESS_GROUP_ID')
92 ,p_start_date => p_start_date
93 ,p_time_scale => p_time_scale
94 ,p_end_date => p_end_date
95 ,p_available_for_promotion => p_available_for_promotion
96 ,p_manager_comments => p_manager_comments
97 ,p_object_version_number => p_object_version_number
98 ,p_attribute_category => NULL
99 ,p_attribute1 => NULL
100 ,p_attribute2 => NULL
101 ,p_attribute3 => NULL
102 ,p_attribute4 => NULL
103 ,p_attribute5 => NULL
104 ,p_attribute6 => NULL
105 ,p_attribute7 => NULL
106 ,p_attribute8 => NULL
107 ,p_attribute9 => NULL
108 ,p_attribute10 => NULL
109 ,p_attribute11 => NULL
110 ,p_attribute12 => NULL
111 ,p_attribute13 => NULL
112 ,p_attribute14 => NULL
113 ,p_attribute15 => NULL
114 ,p_attribute16 => NULL
115 ,p_attribute17 => NULL
116 ,p_attribute18 => NULL
117 ,p_attribute19 => NULL
118 ,p_attribute20 => NULL
119 ,p_effective_date => TRUNC(SYSDATE));
120 hr_utility.set_location('UPDATE Complete '||l_proc,50);
121 END IF;
122 hr_utility.set_location('Leaving '||l_proc,60);
123 EXCEPTION
124 WHEN OTHERS THEN
125 hr_utility.set_location('Error: '||l_proc,70);
126 RAISE;
127 END import_succession_plan;
128 END per_succession_plan_utility;