[Home] [Help]
PACKAGE BODY: APPS.GHR_CCA_SHD
Source
1 Package Body ghr_cca_shd as
2 /* $Header: ghccarhi.pkb 115.1 2003/01/30 19:25:04 asubrahm noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' ghr_cca_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 = 'GHR_COMPL_APPEALS_FK1') Then
22 fnd_message.set_name('GHR', 'GHR_38700_INVALID_COMPLAINT');
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 = 'GHR_COMPL_APPEALS_PK') 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 Else
32 fnd_message.set_name('PAY', 'HR_7877_API_INVALID_CONSTRAINT');
33 fnd_message.set_token('PROCEDURE', l_proc);
34 fnd_message.set_token('CONSTRAINT_NAME', p_constraint_name);
35 fnd_message.raise_error;
36 End If;
37 --
38 End constraint_error;
39 --
40 -- ----------------------------------------------------------------------------
41 -- |-----------------------------< api_updating >-----------------------------|
42 -- ----------------------------------------------------------------------------
43 Function api_updating
44 (p_compl_appeal_id in number
45 ,p_object_version_number in number
46 )
47 Return Boolean Is
48 --
49 --
50 -- Cursor selects the 'current' row from the HR Schema
51 --
52 Cursor C_Sel1 is
53 select
54 compl_appeal_id
55 ,complaint_id
56 ,appeal_date
57 ,appealed_to
58 ,reason_for_appeal
59 ,source_decision_date
60 ,docket_num
61 ,org_notified_of_appeal
62 ,agency_recvd_req_for_files
63 ,files_due
64 ,files_forwd
65 ,agcy_recvd_appellant_brief
66 ,agency_brief_due
67 ,appellant_brief_forwd_org
68 ,org_forwd_brief_to_agency
69 ,agency_brief_forwd
70 ,decision_date
71 ,dec_recvd_by_agency
72 ,decision
73 ,dec_forwd_to_org
74 ,agency_rfr_suspense
75 ,request_for_rfr
76 ,rfr_docket_num
77 ,rfr_requested_by
78 ,agency_rfr_due
79 ,rfr_forwd_to_org
80 ,org_forwd_rfr_to_agency
81 ,agency_forwd_rfr_ofo
82 ,rfr_decision
83 ,rfr_decision_date
84 ,agency_recvd_rfr_dec
85 ,rfr_decision_forwd_to_org
86 ,object_version_number
87 from ghr_compl_appeals
88 where compl_appeal_id = p_compl_appeal_id;
89 --
90 l_fct_ret boolean;
91 --
92 Begin
93 --
94 If (p_compl_appeal_id is null and
95 p_object_version_number is null
96 ) Then
97 --
98 -- One of the primary key arguments is null therefore we must
99 -- set the returning function value to false
100 --
101 l_fct_ret := false;
102 Else
103 If (p_compl_appeal_id
104 = ghr_cca_shd.g_old_rec.compl_appeal_id and
105 p_object_version_number
106 = ghr_cca_shd.g_old_rec.object_version_number
107 ) Then
108 --
109 -- The g_old_rec is current therefore we must
110 -- set the returning function to true
111 --
112 l_fct_ret := true;
113 Else
114 --
115 -- Select the current row into g_old_rec
116 --
117 Open C_Sel1;
118 Fetch C_Sel1 Into ghr_cca_shd.g_old_rec;
119 If C_Sel1%notfound Then
120 Close C_Sel1;
121 --
122 -- The primary key is invalid therefore we must error
123 --
124 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
125 fnd_message.raise_error;
126 End If;
127 Close C_Sel1;
128 If (p_object_version_number
129 <> ghr_cca_shd.g_old_rec.object_version_number) Then
130 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
131 fnd_message.raise_error;
132 End If;
133 l_fct_ret := true;
134 End If;
135 End If;
136 Return (l_fct_ret);
137 --
138 End api_updating;
139 --
140 -- ----------------------------------------------------------------------------
141 -- |---------------------------------< lck >----------------------------------|
142 -- ----------------------------------------------------------------------------
143 Procedure lck
144 (p_compl_appeal_id in number
145 ,p_object_version_number in number
146 ) is
147 --
148 -- Cursor selects the 'current' row from the HR Schema
149 --
150 Cursor C_Sel1 is
151 select
152 compl_appeal_id
153 ,complaint_id
154 ,appeal_date
155 ,appealed_to
156 ,reason_for_appeal
157 ,source_decision_date
158 ,docket_num
159 ,org_notified_of_appeal
160 ,agency_recvd_req_for_files
161 ,files_due
162 ,files_forwd
163 ,agcy_recvd_appellant_brief
164 ,agency_brief_due
165 ,appellant_brief_forwd_org
166 ,org_forwd_brief_to_agency
167 ,agency_brief_forwd
168 ,decision_date
169 ,dec_recvd_by_agency
170 ,decision
171 ,dec_forwd_to_org
172 ,agency_rfr_suspense
173 ,request_for_rfr
174 ,rfr_docket_num
175 ,rfr_requested_by
176 ,agency_rfr_due
177 ,rfr_forwd_to_org
178 ,org_forwd_rfr_to_agency
179 ,agency_forwd_rfr_ofo
180 ,rfr_decision
181 ,rfr_decision_date
182 ,agency_recvd_rfr_dec
183 ,rfr_decision_forwd_to_org
184 ,object_version_number
185 from ghr_compl_appeals
186 where compl_appeal_id = p_compl_appeal_id
187 for update nowait;
188 --
189 l_proc varchar2(72) := g_package||'lck';
190 --
191 Begin
192 hr_utility.set_location('Entering:'||l_proc, 5);
193 --
194 hr_api.mandatory_arg_error
195 (p_api_name => l_proc
196 ,p_argument => 'COMPL_APPEAL_ID'
197 ,p_argument_value => p_compl_appeal_id
198 );
199 hr_utility.set_location(l_proc,6);
200 hr_api.mandatory_arg_error
201 (p_api_name => l_proc
202 ,p_argument => 'OBJECT_VERSION_NUMBER'
203 ,p_argument_value => p_object_version_number
204 );
205 --
206 Open C_Sel1;
207 Fetch C_Sel1 Into ghr_cca_shd.g_old_rec;
208 If C_Sel1%notfound then
209 Close C_Sel1;
210 --
211 -- The primary key is invalid therefore we must error
212 --
213 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
214 fnd_message.raise_error;
215 End If;
216 Close C_Sel1;
217 If (p_object_version_number
218 <> ghr_cca_shd.g_old_rec.object_version_number) Then
219 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
220 fnd_message.raise_error;
221 End If;
222 --
223 hr_utility.set_location(' Leaving:'||l_proc, 10);
224 --
225 -- We need to trap the ORA LOCK exception
226 --
227 Exception
228 When HR_Api.Object_Locked then
229 --
230 -- The object is locked therefore we need to supply a meaningful
231 -- error message.
232 --
233 fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
234 fnd_message.set_token('TABLE_NAME', 'ghr_compl_appeals');
235 fnd_message.raise_error;
236 End lck;
237 --
238 -- ----------------------------------------------------------------------------
239 -- |-----------------------------< convert_args >-----------------------------|
240 -- ----------------------------------------------------------------------------
241 Function convert_args
242 (p_compl_appeal_id in number
243 ,p_complaint_id in number
244 ,p_appeal_date in date
245 ,p_appealed_to in varchar2
246 ,p_reason_for_appeal in varchar2
247 ,p_source_decision_date in date
248 ,p_docket_num in varchar2
249 ,p_org_notified_of_appeal in date
250 ,p_agency_recvd_req_for_files in date
251 ,p_files_due in date
252 ,p_files_forwd in date
253 ,p_agcy_recvd_appellant_brief in date
254 ,p_agency_brief_due in date
255 ,p_appellant_brief_forwd_org in date
256 ,p_org_forwd_brief_to_agency in date
257 ,p_agency_brief_forwd in date
258 ,p_decision_date in date
259 ,p_dec_recvd_by_agency in date
260 ,p_decision in varchar2
261 ,p_dec_forwd_to_org in date
262 ,p_agency_rfr_suspense in date
263 ,p_request_for_rfr in date
264 ,p_rfr_docket_num in varchar2
265 ,p_rfr_requested_by in varchar2
266 ,p_agency_rfr_due in date
267 ,p_rfr_forwd_to_org in date
268 ,p_org_forwd_rfr_to_agency in date
269 ,p_agency_forwd_rfr_ofo in date
270 ,p_rfr_decision in varchar2
271 ,p_rfr_decision_date in date
272 ,p_agency_recvd_rfr_dec in date
273 ,p_rfr_decision_forwd_to_org in date
274 ,p_object_version_number in number
275 )
276 Return g_rec_type is
277 --
278 l_rec g_rec_type;
279 --
280 Begin
281 --
282 -- Convert arguments into local l_rec structure.
283 --
284 l_rec.compl_appeal_id := p_compl_appeal_id;
285 l_rec.complaint_id := p_complaint_id;
286 l_rec.appeal_date := p_appeal_date;
287 l_rec.appealed_to := p_appealed_to;
288 l_rec.reason_for_appeal := p_reason_for_appeal;
289 l_rec.source_decision_date := p_source_decision_date;
290 l_rec.docket_num := p_docket_num;
291 l_rec.org_notified_of_appeal := p_org_notified_of_appeal;
292 l_rec.agency_recvd_req_for_files := p_agency_recvd_req_for_files;
293 l_rec.files_due := p_files_due;
294 l_rec.files_forwd := p_files_forwd;
295 l_rec.agcy_recvd_appellant_brief := p_agcy_recvd_appellant_brief;
296 l_rec.agency_brief_due := p_agency_brief_due;
297 l_rec.appellant_brief_forwd_org := p_appellant_brief_forwd_org;
298 l_rec.org_forwd_brief_to_agency := p_org_forwd_brief_to_agency;
299 l_rec.agency_brief_forwd := p_agency_brief_forwd;
300 l_rec.decision_date := p_decision_date;
301 l_rec.dec_recvd_by_agency := p_dec_recvd_by_agency;
302 l_rec.decision := p_decision;
303 l_rec.dec_forwd_to_org := p_dec_forwd_to_org;
304 l_rec.agency_rfr_suspense := p_agency_rfr_suspense;
305 l_rec.request_for_rfr := p_request_for_rfr;
306 l_rec.rfr_docket_num := p_rfr_docket_num;
307 l_rec.rfr_requested_by := p_rfr_requested_by;
308 l_rec.agency_rfr_due := p_agency_rfr_due;
309 l_rec.rfr_forwd_to_org := p_rfr_forwd_to_org;
310 l_rec.org_forwd_rfr_to_agency := p_org_forwd_rfr_to_agency;
311 l_rec.agency_forwd_rfr_ofo := p_agency_forwd_rfr_ofo;
312 l_rec.rfr_decision := p_rfr_decision;
313 l_rec.rfr_decision_date := p_rfr_decision_date;
314 l_rec.agency_recvd_rfr_dec := p_agency_recvd_rfr_dec;
315 l_rec.rfr_decision_forwd_to_org := p_rfr_decision_forwd_to_org;
316 l_rec.object_version_number := p_object_version_number;
317 --
318 -- Return the plsql record structure.
319 --
320 Return(l_rec);
321 --
322 End convert_args;
323 --
324 end ghr_cca_shd;