[Home] [Help]
PACKAGE BODY: APPS.GHR_CAH_SHD
Source
1 Package Body ghr_cah_shd as
2 /* $Header: ghcahrhi.pkb 115.1 2003/01/30 19:24:56 asubrahm noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' ghr_cah_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_CA_HEADERS_PK') 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 = 'GHR_COMPL_CA_HEADERS_FK1') Then
27 fnd_message.set_name('GHR', 'GHR_38700_INVALID_COMPLAINT');
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_ca_header_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_ca_header_id
55 ,complaint_id
56 ,ca_source
57 ,last_compliance_report
58 ,compliance_closed
59 ,compl_docket_number
60 ,appeal_docket_number
61 ,pfe_docket_number
62 ,pfe_received
63 ,agency_brief_pfe_due
64 ,agency_brief_pfe_date
65 ,decision_pfe_date
66 ,decision_pfe
67 ,agency_recvd_pfe_decision
68 ,agency_pfe_brief_forwd
69 ,agency_notified_noncom
70 ,comrep_noncom_req
71 ,eeo_off_req_data_from_org
72 ,org_forwd_data_to_eeo_off
73 ,dec_implemented
74 ,complaint_reinstated
75 ,stage_complaint_reinstated
76 ,object_version_number
77 from ghr_compl_ca_headers
78 where compl_ca_header_id = p_compl_ca_header_id;
79 --
80 l_fct_ret boolean;
81 --
82 Begin
83 --
84 If (p_compl_ca_header_id is null and
85 p_object_version_number is null
86 ) Then
87 --
88 -- One of the primary key arguments is null therefore we must
89 -- set the returning function value to false
90 --
91 l_fct_ret := false;
92 Else
93 If (p_compl_ca_header_id
94 = ghr_cah_shd.g_old_rec.compl_ca_header_id and
95 p_object_version_number
96 = ghr_cah_shd.g_old_rec.object_version_number
97 ) Then
98 --
99 -- The g_old_rec is current therefore we must
100 -- set the returning function to true
101 --
102 l_fct_ret := true;
103 Else
104 --
105 -- Select the current row into g_old_rec
106 --
107 Open C_Sel1;
108 Fetch C_Sel1 Into ghr_cah_shd.g_old_rec;
109 If C_Sel1%notfound Then
110 Close C_Sel1;
111 --
112 -- The primary key is invalid therefore we must error
113 --
114 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
115 fnd_message.raise_error;
116 End If;
117 Close C_Sel1;
118 If (p_object_version_number
119 <> ghr_cah_shd.g_old_rec.object_version_number) Then
120 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
121 fnd_message.raise_error;
122 End If;
123 l_fct_ret := true;
124 End If;
125 End If;
126 Return (l_fct_ret);
127 --
128 End api_updating;
129 --
130 -- ----------------------------------------------------------------------------
131 -- |---------------------------------< lck >----------------------------------|
132 -- ----------------------------------------------------------------------------
133 Procedure lck
134 (p_compl_ca_header_id in number
135 ,p_object_version_number in number
136 ) is
137 --
138 -- Cursor selects the 'current' row from the HR Schema
139 --
140 Cursor C_Sel1 is
141 select
142 compl_ca_header_id
143 ,complaint_id
144 ,ca_source
145 ,last_compliance_report
146 ,compliance_closed
147 ,compl_docket_number
148 ,appeal_docket_number
149 ,pfe_docket_number
150 ,pfe_received
151 ,agency_brief_pfe_due
152 ,agency_brief_pfe_date
153 ,decision_pfe_date
154 ,decision_pfe
155 ,agency_recvd_pfe_decision
156 ,agency_pfe_brief_forwd
157 ,agency_notified_noncom
158 ,comrep_noncom_req
159 ,eeo_off_req_data_from_org
160 ,org_forwd_data_to_eeo_off
161 ,dec_implemented
162 ,complaint_reinstated
163 ,stage_complaint_reinstated
164 ,object_version_number
165 from ghr_compl_ca_headers
166 where compl_ca_header_id = p_compl_ca_header_id
167 for update nowait;
168 --
169 l_proc varchar2(72) := g_package||'lck';
170 --
171 Begin
172 hr_utility.set_location('Entering:'||l_proc, 5);
173 --
174 hr_api.mandatory_arg_error
175 (p_api_name => l_proc
176 ,p_argument => 'COMPL_CA_HEADER_ID'
177 ,p_argument_value => p_compl_ca_header_id
178 );
179 hr_utility.set_location(l_proc,6);
180 hr_api.mandatory_arg_error
181 (p_api_name => l_proc
182 ,p_argument => 'OBJECT_VERSION_NUMBER'
183 ,p_argument_value => p_object_version_number
184 );
185 --
186 Open C_Sel1;
187 Fetch C_Sel1 Into ghr_cah_shd.g_old_rec;
188 If C_Sel1%notfound then
189 Close C_Sel1;
190 --
191 -- The primary key is invalid therefore we must error
192 --
193 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
194 fnd_message.raise_error;
195 End If;
196 Close C_Sel1;
197 If (p_object_version_number
198 <> ghr_cah_shd.g_old_rec.object_version_number) Then
199 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
200 fnd_message.raise_error;
201 End If;
202 --
203 hr_utility.set_location(' Leaving:'||l_proc, 10);
204 --
205 -- We need to trap the ORA LOCK exception
206 --
207 Exception
208 When HR_Api.Object_Locked then
209 --
210 -- The object is locked therefore we need to supply a meaningful
211 -- error message.
212 --
213 fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
214 fnd_message.set_token('TABLE_NAME', 'ghr_compl_ca_headers');
215 fnd_message.raise_error;
216 End lck;
217 --
218 -- ----------------------------------------------------------------------------
219 -- |-----------------------------< convert_args >-----------------------------|
220 -- ----------------------------------------------------------------------------
221 Function convert_args
222 (p_compl_ca_header_id in number
223 ,p_complaint_id in number
224 ,p_ca_source in varchar2
225 ,p_last_compliance_report in date
226 ,p_compliance_closed in date
227 ,p_compl_docket_number in varchar2
228 ,p_appeal_docket_number in varchar2
229 ,p_pfe_docket_number in varchar2
230 ,p_pfe_received in date
231 ,p_agency_brief_pfe_due in date
232 ,p_agency_brief_pfe_date in date
233 ,p_decision_pfe_date in date
234 ,p_decision_pfe in varchar2
235 ,p_agency_recvd_pfe_decision in date
236 ,p_agency_pfe_brief_forwd in date
237 ,p_agency_notified_noncom in date
238 ,p_comrep_noncom_req in varchar2
239 ,p_eeo_off_req_data_from_org in date
240 ,p_org_forwd_data_to_eeo_off in date
241 ,p_dec_implemented in date
242 ,p_complaint_reinstated in date
243 ,p_stage_complaint_reinstated in varchar2
244 ,p_object_version_number in number
245 )
246 Return g_rec_type is
247 --
248 l_rec g_rec_type;
249 --
250 Begin
251 --
252 -- Convert arguments into local l_rec structure.
253 --
254 l_rec.compl_ca_header_id := p_compl_ca_header_id;
255 l_rec.complaint_id := p_complaint_id;
256 l_rec.ca_source := p_ca_source;
257 l_rec.last_compliance_report := p_last_compliance_report;
258 l_rec.compliance_closed := p_compliance_closed;
259 l_rec.compl_docket_number := p_compl_docket_number;
260 l_rec.appeal_docket_number := p_appeal_docket_number;
261 l_rec.pfe_docket_number := p_pfe_docket_number;
262 l_rec.pfe_received := p_pfe_received;
263 l_rec.agency_brief_pfe_due := p_agency_brief_pfe_due;
264 l_rec.agency_brief_pfe_date := p_agency_brief_pfe_date;
265 l_rec.decision_pfe_date := p_decision_pfe_date;
266 l_rec.decision_pfe := p_decision_pfe;
267 l_rec.agency_recvd_pfe_decision := p_agency_recvd_pfe_decision;
268 l_rec.agency_pfe_brief_forwd := p_agency_pfe_brief_forwd;
269 l_rec.agency_notified_noncom := p_agency_notified_noncom;
270 l_rec.comrep_noncom_req := p_comrep_noncom_req;
271 l_rec.eeo_off_req_data_from_org := p_eeo_off_req_data_from_org;
272 l_rec.org_forwd_data_to_eeo_off := p_org_forwd_data_to_eeo_off;
273 l_rec.dec_implemented := p_dec_implemented;
274 l_rec.complaint_reinstated := p_complaint_reinstated;
275 l_rec.stage_complaint_reinstated := p_stage_complaint_reinstated;
276 l_rec.object_version_number := p_object_version_number;
277 --
278 -- Return the plsql record structure.
279 --
280 Return(l_rec);
281 --
282 End convert_args;
283 --
284 end ghr_cah_shd;