[Home] [Help]
PACKAGE BODY: APPS.HR_FIM_SHD
Source
1 Package Body hr_fim_shd as
2 /* $Header: hrfimrhi.pkb 115.5 2002/12/03 11:18:58 hjonnala noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' hr_fim_shd.'; -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |---------------------------< constraint_error >---------------------------|
12 -- ----------------------------------------------------------------------------
13 Procedure constraint_error
14 (p_constraint_name in all_constraints.constraint_name%TYPE
15 ) Is
16 --
17 l_proc varchar2(72) := g_package||'constraint_error';
18 --
19 Begin
20 --
21 If (p_constraint_name = 'HR_FORM_ITEMS_B_FK2') Then
22 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
23 fnd_message.set_token('PROCEDURE', l_proc);
24 fnd_message.set_token('STEP','5');
25 fnd_message.raise_error;
26 ElsIf (p_constraint_name = 'HR_FORM_ITEMS_B_FK3') Then
27 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
28 fnd_message.set_token('PROCEDURE', l_proc);
29 fnd_message.set_token('STEP','10');
30 fnd_message.raise_error;
31 ElsIf (p_constraint_name = 'HR_FORM_ITEMS_B_FK4') Then
32 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
33 fnd_message.set_token('PROCEDURE', l_proc);
34 fnd_message.set_token('STEP','15');
35 fnd_message.raise_error;
36 ElsIf (p_constraint_name = 'HR_FORM_ITEMS_B_PK') Then
37 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
38 fnd_message.set_token('PROCEDURE', l_proc);
39 fnd_message.set_token('STEP','20');
40 fnd_message.raise_error;
41 ElsIf (p_constraint_name = 'HR_FORM_ITEMS_B_UK') Then
42 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
43 fnd_message.set_token('PROCEDURE', l_proc);
44 fnd_message.set_token('STEP','25');
45 fnd_message.raise_error;
46 Else
47 fnd_message.set_name('PAY', 'HR_7877_API_INVALID_CONSTRAINT');
48 fnd_message.set_token('PROCEDURE', l_proc);
49 fnd_message.set_token('CONSTRAINT_NAME', p_constraint_name);
50 fnd_message.raise_error;
51 End If;
52 --
53 End constraint_error;
54 --
55 -- ----------------------------------------------------------------------------
56 -- |-----------------------------< api_updating >-----------------------------|
57 -- ----------------------------------------------------------------------------
58 Function api_updating
59 (p_form_item_id in number
60 ,p_object_version_number in number
61 )
62 Return Boolean Is
63 --
64 --
65 -- Cursor selects the 'current' row from the HR Schema
66 --
67 Cursor C_Sel1 is
68 select
69 form_item_id
70 ,object_version_number
71 ,application_id
72 ,form_id
73 ,form_canvas_id
74 ,full_item_name
75 ,item_type
76 ,form_tab_page_id
77 ,radio_button_name
78 ,required_override
79 ,form_tab_page_id_override
80 ,visible_override
81 from hr_form_items_b
82 where form_item_id = p_form_item_id;
83 --
84 l_fct_ret boolean;
85 --
86 Begin
87 --
88 If (p_form_item_id is null and
89 p_object_version_number is null
90 ) Then
91 --
92 -- One of the primary key arguments is null therefore we must
93 -- set the returning function value to false
94 --
95 l_fct_ret := false;
96 Else
97 If (p_form_item_id
98 = hr_fim_shd.g_old_rec.form_item_id and
99 p_object_version_number
100 = hr_fim_shd.g_old_rec.object_version_number
101 ) Then
102 --
103 -- The g_old_rec is current therefore we must
104 -- set the returning function to true
105 --
106 l_fct_ret := true;
107 Else
108 --
109 -- Select the current row into g_old_rec
110 --
111 Open C_Sel1;
112 Fetch C_Sel1 Into hr_fim_shd.g_old_rec;
113 If C_Sel1%notfound Then
114 Close C_Sel1;
115 --
116 -- The primary key is invalid therefore we must error
117 --
118 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
119 fnd_message.raise_error;
120 End If;
121 Close C_Sel1;
122 If (p_object_version_number
123 <> hr_fim_shd.g_old_rec.object_version_number) Then
124 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
125 fnd_message.raise_error;
126 End If;
127 l_fct_ret := true;
128 End If;
129 End If;
130 Return (l_fct_ret);
131 --
132 End api_updating;
133 --
134 -- ----------------------------------------------------------------------------
135 -- |---------------------------------< lck >----------------------------------|
136 -- ----------------------------------------------------------------------------
137 Procedure lck
138 (p_form_item_id in number
139 ,p_object_version_number in number
140 ) is
141 --
142 -- Cursor selects the 'current' row from the HR Schema
143 --
144 Cursor C_Sel1 is
145 select
146 form_item_id
147 ,object_version_number
148 ,application_id
149 ,form_id
150 ,form_canvas_id
151 ,full_item_name
152 ,item_type
153 ,form_tab_page_id
154 ,radio_button_name
155 ,required_override
156 ,form_tab_page_id_override
157 ,visible_override
158 from hr_form_items_b
159 where form_item_id = p_form_item_id
160 for update nowait;
161 --
162 l_proc varchar2(72) := g_package||'lck';
163 --
164 Begin
165 hr_utility.set_location('Entering:'||l_proc, 5);
166 --
167 hr_api.mandatory_arg_error
168 (p_api_name => l_proc
169 ,p_argument => 'FORM_ITEM_ID'
170 ,p_argument_value => p_form_item_id
171 );
172 --Bug:1790746 fix Start
173 hr_api.mandatory_arg_error
174 (p_api_name => l_proc
175 ,p_argument => 'object_version_number'
176 ,p_argument_value => p_object_version_number
177 );
178 --Bug:1790746 fix End
179 Open C_Sel1;
180 Fetch C_Sel1 Into hr_fim_shd.g_old_rec;
181 If C_Sel1%notfound then
182 Close C_Sel1;
183 --
184 -- The primary key is invalid therefore we must error
185 --
186 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
187 fnd_message.raise_error;
188 End If;
189 Close C_Sel1;
190 If (p_object_version_number
191 <> hr_fim_shd.g_old_rec.object_version_number) Then
192 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
193 fnd_message.raise_error;
194 End If;
195 --
196 hr_utility.set_location(' Leaving:'||l_proc, 10);
197 --
198 -- We need to trap the ORA LOCK exception
199 --
200 Exception
201 When HR_Api.Object_Locked then
202 --
203 -- The object is locked therefore we need to supply a meaningful
204 -- error message.
205 --
206 fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
207 fnd_message.set_token('TABLE_NAME', 'hr_form_items_b');
208 fnd_message.raise_error;
209 End lck;
210 --
211 -- ----------------------------------------------------------------------------
212 -- |-----------------------------< convert_args >-----------------------------|
213 -- ----------------------------------------------------------------------------
214 Function convert_args
215 (p_form_item_id in number
216 ,p_object_version_number in number
217 ,p_application_id in number
218 ,p_form_id in number
219 ,p_form_canvas_id in number
220 ,p_full_item_name in varchar2
221 ,p_item_type in varchar2
222 ,p_form_tab_page_id in number
223 ,p_radio_button_name in varchar2
224 ,p_required_override in number
225 ,p_form_tab_page_id_override in number
226 ,p_visible_override in number
227 )
228 Return g_rec_type is
229 --
230 l_rec g_rec_type;
231 --
232 Begin
233 --
234 -- Convert arguments into local l_rec structure.
235 --
236 l_rec.form_item_id := p_form_item_id;
237 l_rec.object_version_number := p_object_version_number;
238 l_rec.application_id := p_application_id;
239 l_rec.form_id := p_form_id;
240 l_rec.form_canvas_id := p_form_canvas_id;
241 IF p_full_item_name <> hr_api.g_varchar2 THEN
242 l_rec.full_item_name := UPPER(p_full_item_name);
243 ELSE
244 l_rec.full_item_name := p_full_item_name;
245 END IF;
246 l_rec.item_type := p_item_type;
247 l_rec.form_tab_page_id := p_form_tab_page_id;
248 IF (p_radio_button_name <> hr_api.g_varchar2) THEN
249 l_rec.radio_button_name := UPPER(p_radio_button_name);
250 ELSE
251 l_rec.radio_button_name := p_radio_button_name;
252 END IF;
253 l_rec.required_override := p_required_override;
254 l_rec.form_tab_page_id_override := p_form_tab_page_id_override;
255 l_rec.visible_override := p_visible_override;
256 --
257 -- Return the plsql record structure.
258 --
259 Return(l_rec);
260 --
261 End convert_args;
262 --
263 end hr_fim_shd;