DBA Data[Home] [Help]

PACKAGE BODY: APPS.GHR_CMP_UPD

Source


1 Package Body ghr_cmp_upd as
2 /* $Header: ghcmprhi.pkb 120.0 2005/05/29 02:54:02 appldev noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- |                     Private Global Definitions                           |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package  varchar2(33) := '  ghr_cmp_upd.';  -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |------------------------------< update_dml >------------------------------|
12 -- ----------------------------------------------------------------------------
13 -- {Start Of Comments}
14 --
15 -- Description:
16 --   This procedure controls the actual dml update logic. The processing of
17 --   this procedure is:
18 --   1) Increment the object_version_number by 1 if the object_version_number
19 --      is defined as an attribute for this entity.
20 --   2) To set and unset the g_api_dml status as required (as we are about to
21 --      perform dml).
22 --   3) To update the specified row in the schema using the primary key in
23 --      the predicates.
24 --   4) To trap any constraint violations that may have occurred.
25 --   5) To raise any other errors.
26 --
27 -- Prerequisites:
28 --   This is an internal private procedure which must be called from the upd
29 --   procedure.
30 --
31 -- In Parameters:
32 --   A Pl/Sql record structre.
33 --
34 -- Post Success:
35 --   The specified row will be updated in the schema.
36 --
37 -- Post Failure:
38 --   On the update dml failure it is important to note that we always reset the
39 --   g_api_dml status to false.
40 --   If a check, unique or parent integrity constraint violation is raised the
41 --   constraint_error procedure will be called.
42 --   If any other error is reported, the error will be raised after the
43 --   g_api_dml status is reset.
44 --
45 -- Developer Implementation Notes:
46 --   The update 'set' attribute list should be modified if any of your
47 --   attributes are not updateable.
48 --
49 -- Access Status:
50 --   Internal Row Handler Use Only.
51 --
52 -- {End Of Comments}
53 -- ----------------------------------------------------------------------------
54 Procedure update_dml
55   (p_rec in out nocopy ghr_cmp_shd.g_rec_type
56   ) is
57 --
58   l_proc  varchar2(72) := g_package||'update_dml';
59 --
60 Begin
61   hr_utility.set_location('Entering:'||l_proc, 5);
62   --
63   -- Increment the object version
64   p_rec.object_version_number := p_rec.object_version_number + 1;
65   --
66   --
67   --
68   -- Update the ghr_complaints2 Row
69   --
70   update ghr_complaints2
71     set
72      complaint_id                    = p_rec.complaint_id
73     ,complainant_person_id           = p_rec.complainant_person_id
74     ,business_group_id               = p_rec.business_group_id
75     ,docket_number                   = p_rec.docket_number
76     ,stage                           = p_rec.stage
77     ,class_flag                      = p_rec.class_flag
78     ,mixed_flag                      = p_rec.mixed_flag
79     ,consolidated_flag               = p_rec.consolidated_flag
80     ,remand_flag                     = p_rec.remand_flag
81     ,active_flag                     = p_rec.active_flag
82     ,information_inquiry             = p_rec.information_inquiry
83     ,pcom_init                       = p_rec.pcom_init
84     ,alleg_incident                  = p_rec.alleg_incident
85     ,alleg_discrim_org_id            = p_rec.alleg_discrim_org_id
86     ,rr_ltr_date                     = p_rec.rr_ltr_date
87     ,rr_ltr_recvd                    = p_rec.rr_ltr_recvd
88     ,pre_com_elec                    = p_rec.pre_com_elec
89     --,adr_offered                     = p_rec.adr_offered
90     ,class_agent_flag                = p_rec.class_agent_flag
91     ,pre_com_desc                    = p_rec.pre_com_desc
92     ,counselor_asg                   = p_rec.counselor_asg
93     ,init_counselor_interview        = p_rec.init_counselor_interview
94     ,anonymity_requested             = p_rec.anonymity_requested
95     ,counsel_ext_ltr                 = p_rec.counsel_ext_ltr
96     ,traditional_counsel_outcome     = p_rec.traditional_counsel_outcome
97     ,final_interview                 = p_rec.final_interview
98     ,notice_rtf_recvd                = p_rec.notice_rtf_recvd
99     ,precom_closed                   = p_rec.precom_closed
100     ,precom_closure_nature           = p_rec.precom_closure_nature
101     ,counselor_rpt_sub               = p_rec.counselor_rpt_sub
102     ,hr_office_org_id                = p_rec.hr_office_org_id
103     ,eeo_office_org_id               = p_rec.eeo_office_org_id
104     ,serviced_org_id                 = p_rec.serviced_org_id
105     ,formal_com_filed                = p_rec.formal_com_filed
106     ,ack_ltr                         = p_rec.ack_ltr
107     ,clarification_ltr_date          = p_rec.clarification_ltr_date
108     ,clarification_response_recvd    = p_rec.clarification_response_recvd
109     ,forwarded_legal_review          = p_rec.forwarded_legal_review
110     ,returned_from_legal             = p_rec.returned_from_legal
111     ,letter_type                     = p_rec.letter_type
112     ,letter_date                     = p_rec.letter_date
113     ,letter_recvd                    = p_rec.letter_recvd
114     ,investigation_source            = p_rec.investigation_source
115     ,investigator_recvd_req          = p_rec.investigator_recvd_req
116     ,agency_investigator_req         = p_rec.agency_investigator_req
117     ,investigator_asg                = p_rec.investigator_asg
118     ,investigation_start             = p_rec.investigation_start
119     ,investigation_end               = p_rec.investigation_end
120     ,investigation_extended          = p_rec.investigation_extended
121     ,invest_extension_desc           = p_rec.invest_extension_desc
122     ,agency_recvd_roi                = p_rec.agency_recvd_roi
123     ,comrep_recvd_roi                = p_rec.comrep_recvd_roi
124     ,options_ltr_date                = p_rec.options_ltr_date
125     ,comrep_recvd_opt_ltr            = p_rec.comrep_recvd_opt_ltr
126     ,comrep_opt_ltr_response         = p_rec.comrep_opt_ltr_response
127     ,resolution_offer                = p_rec.resolution_offer
128     ,comrep_resol_offer_recvd        = p_rec.comrep_resol_offer_recvd
129     ,comrep_resol_offer_response     = p_rec.comrep_resol_offer_response
130     ,comrep_resol_offer_desc         = p_rec.comrep_resol_offer_desc
131     ,resol_offer_signed              = p_rec.resol_offer_signed
132     ,resol_offer_desc                = p_rec.resol_offer_desc
133     ,hearing_source                  = p_rec.hearing_source
134     ,agency_notified_hearing         = p_rec.agency_notified_hearing
135     ,eeoc_hearing_docket_num         = p_rec.eeoc_hearing_docket_num
136     ,hearing_complete                = p_rec.hearing_complete
137     ,aj_merit_decision_date          = p_rec.aj_merit_decision_date
138     ,agency_recvd_aj_merit_dec       = p_rec.agency_recvd_aj_merit_dec
139     ,aj_merit_decision               = p_rec.aj_merit_decision
140     ,aj_ca_decision_date             = p_rec.aj_ca_decision_date
141     ,agency_recvd_aj_ca_dec          = p_rec.agency_recvd_aj_ca_dec
142     ,aj_ca_decision                  = p_rec.aj_ca_decision
143     ,fad_requested                   = p_rec.fad_requested
144     ,merit_fad                       = p_rec.merit_fad
145     ,attorney_fees_fad               = p_rec.attorney_fees_fad
146     ,comp_damages_fad                = p_rec.comp_damages_fad
147     ,non_compliance_fad              = p_rec.non_compliance_fad
148     ,fad_req_recvd_eeo_office        = p_rec.fad_req_recvd_eeo_office
149     ,fad_req_forwd_to_agency         = p_rec.fad_req_forwd_to_agency
150     ,agency_recvd_request            = p_rec.agency_recvd_request
151     ,fad_due                         = p_rec.fad_due
152     ,fad_date                        = p_rec.fad_date
153     ,fad_decision                    = p_rec.fad_decision
154    -- ,fad_final_action_closure        = p_rec.fad_final_action_closure
155     ,fad_forwd_to_comrep             = p_rec.fad_forwd_to_comrep
156     ,fad_recvd_by_comrep             = p_rec.fad_recvd_by_comrep
157     ,fad_imp_ltr_forwd_to_org        = p_rec.fad_imp_ltr_forwd_to_org
158     ,fad_decision_forwd_legal        = p_rec.fad_decision_forwd_legal
159     ,fad_decision_recvd_legal        = p_rec.fad_decision_recvd_legal
160     ,fa_source                       = p_rec.fa_source
161     ,final_action_due                = p_rec.final_action_due
162     --,final_action_nature_of_closure  = p_rec.final_action_nature_of_closure
163     ,final_act_forwd_comrep          = p_rec.final_act_forwd_comrep
164     ,final_act_recvd_comrep          = p_rec.final_act_recvd_comrep
165     ,final_action_decision_date      = p_rec.final_action_decision_date
166     ,final_action_decision           = p_rec.final_action_decision
167     ,fa_imp_ltr_forwd_to_org         = p_rec.fa_imp_ltr_forwd_to_org
168     ,fa_decision_forwd_legal         = p_rec.fa_decision_forwd_legal
169     ,fa_decision_recvd_legal         = p_rec.fa_decision_recvd_legal
170     ,civil_action_filed              = p_rec.civil_action_filed
171     ,agency_closure_confirmed        = p_rec.agency_closure_confirmed
172     ,consolidated_complaint_id       = p_rec.consolidated_complaint_id
173     ,consolidated                    = p_rec.consolidated
174     ,stage_of_consolidation          = p_rec.stage_of_consolidation
175     ,comrep_notif_consolidation      = p_rec.comrep_notif_consolidation
176     ,consolidation_desc              = p_rec.consolidation_desc
177     ,complaint_closed                = p_rec.complaint_closed
178     ,nature_of_closure               = p_rec.nature_of_closure
179     ,complaint_closed_desc           = p_rec.complaint_closed_desc
180     ,filed_formal_class              = p_rec.filed_formal_class
181     ,forwd_eeoc                      = p_rec.forwd_eeoc
182     ,aj_cert_decision_date           = p_rec.aj_cert_decision_date
183     ,aj_cert_decision_recvd          = p_rec.aj_cert_decision_recvd
184     ,aj_cert_decision                = p_rec.aj_cert_decision
185     ,class_members_notified          = p_rec.class_members_notified
186     ,number_of_complaintants         = p_rec.number_of_complaintants
187     ,class_hearing                   = p_rec.class_hearing
188     ,aj_dec                          = p_rec.aj_dec
189     ,agency_recvd_aj_dec             = p_rec.agency_recvd_aj_dec
190     ,aj_decision                     = p_rec.aj_decision
191     ,object_version_number           = p_rec.object_version_number
192     ,agency_brief_eeoc               = p_rec.agency_brief_eeoc
193     ,agency_notif_of_civil_action    = p_rec.agency_notif_of_civil_action
194     ,fad_source                      = p_rec.fad_source
195     ,agency_files_forwarded_eeoc     = p_rec.agency_files_forwarded_eeoc
196     ,hearing_req                     = p_rec.hearing_req
197     ,agency_code                     = p_rec.agency_code
198     ,audited_by                      = p_rec.audited_by
199     ,record_received                 = p_rec.record_received
200     ,attribute_category              = p_rec.attribute_category
201     ,attribute1                      = p_rec.attribute1
202     ,attribute2                      = p_rec.attribute2
203     ,attribute3                      = p_rec.attribute3
204     ,attribute4                      = p_rec.attribute4
205     ,attribute5                      = p_rec.attribute5
206     ,attribute6                      = p_rec.attribute6
207     ,attribute7                      = p_rec.attribute7
208     ,attribute8                      = p_rec.attribute8
209     ,attribute9                      = p_rec.attribute9
210     ,attribute10                     = p_rec.attribute10
211     ,attribute11                     = p_rec.attribute11
212     ,attribute12                     = p_rec.attribute12
213     ,attribute13                     = p_rec.attribute13
214     ,attribute14                     = p_rec.attribute14
215     ,attribute15                     = p_rec.attribute15
216     ,attribute16                     = p_rec.attribute16
217     ,attribute17                     = p_rec.attribute17
218     ,attribute18                     = p_rec.attribute18
219     ,attribute19                     = p_rec.attribute19
220     ,attribute20                     = p_rec.attribute20
221     ,attribute21                     = p_rec.attribute21
222     ,attribute22                     = p_rec.attribute22
223     ,attribute23                     = p_rec.attribute23
224     ,attribute24                     = p_rec.attribute24
225     ,attribute25                     = p_rec.attribute25
226     ,attribute26                     = p_rec.attribute26
227     ,attribute27                     = p_rec.attribute27
228     ,attribute28                     = p_rec.attribute28
229     ,attribute29                     = p_rec.attribute29
230     ,attribute30                     = p_rec.attribute30
231     where complaint_id = p_rec.complaint_id;
232   --
233   --
234   --
235   hr_utility.set_location(' Leaving:'||l_proc, 10);
236 --
237 Exception
238   When hr_api.check_integrity_violated Then
239     -- A check constraint has been violated
240     --
241     ghr_cmp_shd.constraint_error
242       (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
243   When hr_api.parent_integrity_violated Then
244     -- Parent integrity has been violated
245     --
246     ghr_cmp_shd.constraint_error
247       (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
248   When hr_api.unique_integrity_violated Then
249     -- Unique integrity has been violated
250     --
251     ghr_cmp_shd.constraint_error
252       (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
253   When Others Then
254     --
255     Raise;
256 End update_dml;
257 --
258 -- ----------------------------------------------------------------------------
259 -- |------------------------------< pre_update >------------------------------|
260 -- ----------------------------------------------------------------------------
261 -- {Start Of Comments}
262 --
263 -- Description:
264 --   This private procedure contains any processing which is required before
265 --   the update dml.
266 --
267 -- Prerequisites:
268 --   This is an internal procedure which is called from the upd procedure.
269 --
270 -- In Parameters:
271 --   A Pl/Sql record structure.
272 --
273 -- Post Success:
274 --   Processing continues.
275 --
276 -- Post Failure:
277 --   If an error has occurred, an error message and exception wil be raised
278 --   but not handled.
279 --
280 -- Developer Implementation Notes:
281 --   Any pre-processing required before the update dml is issued should be
282 --   coded within this procedure. It is important to note that any 3rd party
283 --   maintenance should be reviewed before placing in this procedure.
284 --
285 -- Access Status:
286 --   Internal Row Handler Use Only.
287 --
288 -- {End Of Comments}
289 -- ----------------------------------------------------------------------------
290 Procedure pre_update
291   (p_rec in ghr_cmp_shd.g_rec_type
292   ) is
293 --
294   l_proc  varchar2(72) := g_package||'pre_update';
295 --
296 Begin
297   hr_utility.set_location('Entering:'||l_proc, 5);
298   --
299   hr_utility.set_location(' Leaving:'||l_proc, 10);
300 End pre_update;
301 --
302 -- ----------------------------------------------------------------------------
303 -- |-----------------------------< post_update >------------------------------|
304 -- ----------------------------------------------------------------------------
305 -- {Start Of Comments}
306 --
307 -- Description:
308 --   This private procedure contains any processing which is required after
309 --   the update dml.
310 --
311 -- Prerequisites:
312 --   This is an internal procedure which is called from the upd procedure.
313 --
314 -- In Parameters:
315 --   A Pl/Sql record structure.
316 --
317 -- Post Success:
318 --   Processing continues.
319 --
320 -- Post Failure:
321 --   If an error has occurred, an error message and exception will be raised
322 --   but not handled.
323 --
324 -- Developer Implementation Notes:
325 --   Any post-processing required after the update dml is issued should be
326 --   coded within this procedure. It is important to note that any 3rd party
327 --   maintenance should be reviewed before placing in this procedure.
328 --
329 -- Access Status:
330 --   Internal Row Handler Use Only.
331 --
332 -- {End Of Comments}
333 -- ----------------------------------------------------------------------------
334 Procedure post_update
335   (p_effective_date               in date
336   ,p_rec                          in ghr_cmp_shd.g_rec_type
337   ) is
338 --
339   l_proc  varchar2(72) := g_package||'post_update';
340 --
341 Begin
342   hr_utility.set_location('Entering:'||l_proc, 5);
343 
344   begin
345     --
346 
347      ghr_cmp_rku.after_update
348       (p_effective_date               => p_effective_date
349       ,p_complaint_id                 => p_rec.complaint_id
350       ,p_complainant_person_id        => p_rec.complainant_person_id
351       ,p_business_group_id            => p_rec.business_group_id
352       ,p_docket_number                => p_rec.docket_number
353       ,p_stage                        => p_rec.stage
354       ,p_class_flag                   => p_rec.class_flag
355       ,p_mixed_flag                   => p_rec.mixed_flag
356       ,p_consolidated_flag            => p_rec.consolidated_flag
357       ,p_remand_flag                  => p_rec.remand_flag
358       ,p_active_flag                  => p_rec.active_flag
359       ,p_information_inquiry          => p_rec.information_inquiry
360       ,p_pcom_init                    => p_rec.pcom_init
361       ,p_alleg_incident               => p_rec.alleg_incident
362       ,p_alleg_discrim_org_id         => p_rec.alleg_discrim_org_id
363       ,p_rr_ltr_date                  => p_rec.rr_ltr_date
364       ,p_rr_ltr_recvd                 => p_rec.rr_ltr_recvd
365       ,p_pre_com_elec                 => p_rec.pre_com_elec
366       --,p_adr_offered                  => p_rec.adr_offered
367       ,p_class_agent_flag             => p_rec.class_agent_flag
368       ,p_pre_com_desc                 => p_rec.pre_com_desc
369       ,p_counselor_asg                => p_rec.counselor_asg
370       ,p_init_counselor_interview     => p_rec.init_counselor_interview
371       ,p_anonymity_requested          => p_rec.anonymity_requested
372       ,p_counsel_ext_ltr              => p_rec.counsel_ext_ltr
373       ,p_traditional_counsel_outcome  => p_rec.traditional_counsel_outcome
374       ,p_final_interview              => p_rec.final_interview
375       ,p_notice_rtf_recvd             => p_rec.notice_rtf_recvd
376       ,p_precom_closed                => p_rec.precom_closed
377       ,p_precom_closure_nature        => p_rec.precom_closure_nature
378       ,p_counselor_rpt_sub            => p_rec.counselor_rpt_sub
379       ,p_hr_office_org_id             => p_rec.hr_office_org_id
380       ,p_eeo_office_org_id            => p_rec.eeo_office_org_id
381       ,p_serviced_org_id              => p_rec.serviced_org_id
382       ,p_formal_com_filed             => p_rec.formal_com_filed
383       ,p_ack_ltr                      => p_rec.ack_ltr
384       ,p_clarification_ltr_date       => p_rec.clarification_ltr_date
385       ,p_clarification_response_recvd => p_rec.clarification_response_recvd
386       ,p_forwarded_legal_review       => p_rec.forwarded_legal_review
387       ,p_returned_from_legal          => p_rec.returned_from_legal
388       ,p_letter_type                  => p_rec.letter_type
389       ,p_letter_date                  => p_rec.letter_date
390       ,p_letter_recvd                 => p_rec.letter_recvd
391       ,p_investigation_source         => p_rec.investigation_source
392       ,p_investigator_recvd_req       => p_rec.investigator_recvd_req
393       ,p_agency_investigator_req      => p_rec.agency_investigator_req
394       ,p_investigator_asg             => p_rec.investigator_asg
395       ,p_investigation_start          => p_rec.investigation_start
396       ,p_investigation_end            => p_rec.investigation_end
397       ,p_investigation_extended       => p_rec.investigation_extended
398       ,p_invest_extension_desc        => p_rec.invest_extension_desc
399       ,p_agency_recvd_roi             => p_rec.agency_recvd_roi
400       ,p_comrep_recvd_roi             => p_rec.comrep_recvd_roi
401       ,p_options_ltr_date             => p_rec.options_ltr_date
402       ,p_comrep_recvd_opt_ltr         => p_rec.comrep_recvd_opt_ltr
403       ,p_comrep_opt_ltr_response      => p_rec.comrep_opt_ltr_response
404       ,p_resolution_offer             => p_rec.resolution_offer
405       ,p_comrep_resol_offer_recvd     => p_rec.comrep_resol_offer_recvd
406       ,p_comrep_resol_offer_response  => p_rec.comrep_resol_offer_response
407       ,p_comrep_resol_offer_desc      => p_rec.comrep_resol_offer_desc
408       ,p_resol_offer_signed           => p_rec.resol_offer_signed
409       ,p_resol_offer_desc             => p_rec.resol_offer_desc
410       ,p_hearing_source               => p_rec.hearing_source
411       ,p_agency_notified_hearing      => p_rec.agency_notified_hearing
412       ,p_eeoc_hearing_docket_num      => p_rec.eeoc_hearing_docket_num
413       ,p_hearing_complete             => p_rec.hearing_complete
414       ,p_aj_merit_decision_date       => p_rec.aj_merit_decision_date
415       ,p_agency_recvd_aj_merit_dec    => p_rec.agency_recvd_aj_merit_dec
416       ,p_aj_merit_decision            => p_rec.aj_merit_decision
417       ,p_aj_ca_decision_date          => p_rec.aj_ca_decision_date
418       ,p_agency_recvd_aj_ca_dec       => p_rec.agency_recvd_aj_ca_dec
419       ,p_aj_ca_decision               => p_rec.aj_ca_decision
420       ,p_fad_requested                => p_rec.fad_requested
421       ,p_merit_fad                    => p_rec.merit_fad
422       ,p_attorney_fees_fad            => p_rec.attorney_fees_fad
423       ,p_comp_damages_fad             => p_rec.comp_damages_fad
424       ,p_non_compliance_fad           => p_rec.non_compliance_fad
425       ,p_fad_req_recvd_eeo_office     => p_rec.fad_req_recvd_eeo_office
426       ,p_fad_req_forwd_to_agency      => p_rec.fad_req_forwd_to_agency
427       ,p_agency_recvd_request         => p_rec.agency_recvd_request
428       ,p_fad_due                      => p_rec.fad_due
429       ,p_fad_date                     => p_rec.fad_date
430       ,p_fad_decision                 => p_rec.fad_decision
431      -- ,p_fad_final_action_closure     => p_rec.fad_final_action_closure
432       ,p_fad_forwd_to_comrep          => p_rec.fad_forwd_to_comrep
433       ,p_fad_recvd_by_comrep          => p_rec.fad_recvd_by_comrep
434       ,p_fad_imp_ltr_forwd_to_org     => p_rec.fad_imp_ltr_forwd_to_org
435       ,p_fad_decision_forwd_legal     => p_rec.fad_decision_forwd_legal
436       ,p_fad_decision_recvd_legal     => p_rec.fad_decision_recvd_legal
437       ,p_fa_source                    => p_rec.fa_source
438       ,p_final_action_due             => p_rec.final_action_due
439       --,p_final_action_nature_of_closu => p_rec.final_action_nature_of_closure
440       ,p_final_act_forwd_comrep       => p_rec.final_act_forwd_comrep
441       ,p_final_act_recvd_comrep       => p_rec.final_act_recvd_comrep
442       ,p_final_action_decision_date   => p_rec.final_action_decision_date
443       ,p_final_action_decision        => p_rec.final_action_decision
444       ,p_fa_imp_ltr_forwd_to_org      => p_rec.fa_imp_ltr_forwd_to_org
445       ,p_fa_decision_forwd_legal      => p_rec.fa_decision_forwd_legal
446       ,p_fa_decision_recvd_legal      => p_rec.fa_decision_recvd_legal
447       ,p_civil_action_filed           => p_rec.civil_action_filed
448       ,p_agency_closure_confirmed     => p_rec.agency_closure_confirmed
449       ,p_consolidated_complaint_id    => p_rec.consolidated_complaint_id
450       ,p_consolidated                 => p_rec.consolidated
451       ,p_stage_of_consolidation       => p_rec.stage_of_consolidation
452       ,p_comrep_notif_consolidation   => p_rec.comrep_notif_consolidation
453       ,p_consolidation_desc           => p_rec.consolidation_desc
454       ,p_complaint_closed             => p_rec.complaint_closed
455       ,p_nature_of_closure            => p_rec.nature_of_closure
456       ,p_complaint_closed_desc        => p_rec.complaint_closed_desc
457       ,p_filed_formal_class           => p_rec.filed_formal_class
458       ,p_forwd_eeoc                   => p_rec.forwd_eeoc
459       ,p_aj_cert_decision_date        => p_rec.aj_cert_decision_date
460       ,p_aj_cert_decision_recvd       => p_rec.aj_cert_decision_recvd
461       ,p_aj_cert_decision             => p_rec.aj_cert_decision
462       ,p_class_members_notified       => p_rec.class_members_notified
463       ,p_number_of_complaintants      => p_rec.number_of_complaintants
464       ,p_class_hearing                => p_rec.class_hearing
465       ,p_aj_dec                       => p_rec.aj_dec
466       ,p_agency_recvd_aj_dec          => p_rec.agency_recvd_aj_dec
467       ,p_aj_decision                  => p_rec.aj_decision
468       ,p_object_version_number        => p_rec.object_version_number
469       ,p_agency_brief_eeoc            => p_rec.agency_brief_eeoc
470       ,p_agency_notif_of_civil_action => p_rec.agency_notif_of_civil_action
471       ,p_fad_source                   => p_rec.fad_source
472       ,p_agency_files_forwarded_eeoc  => p_rec.agency_files_forwarded_eeoc
473       ,p_hearing_req                  => p_rec.hearing_req
474       ,p_agency_code                  => p_rec.agency_code
475       ,p_audited_by                   => p_rec.audited_by
476       ,p_record_received              => p_rec.record_received
477       ,p_attribute_category           => p_rec.attribute_category
478       ,p_attribute1                   => p_rec.attribute1
479       ,p_attribute2                   => p_rec.attribute2
480       ,p_attribute3                   => p_rec.attribute3
481       ,p_attribute4                   => p_rec.attribute4
482       ,p_attribute5                   => p_rec.attribute5
483       ,p_attribute6                   => p_rec.attribute6
484       ,p_attribute7                   => p_rec.attribute7
485       ,p_attribute8                   => p_rec.attribute8
486       ,p_attribute9                   => p_rec.attribute9
487       ,p_attribute10                  => p_rec.attribute10
488       ,p_attribute11                  => p_rec.attribute11
489       ,p_attribute12                  => p_rec.attribute12
490       ,p_attribute13                  => p_rec.attribute13
491       ,p_attribute14                  => p_rec.attribute14
492       ,p_attribute15                  => p_rec.attribute15
493       ,p_attribute16                  => p_rec.attribute16
494       ,p_attribute17                  => p_rec.attribute17
495       ,p_attribute18                  => p_rec.attribute18
496       ,p_attribute19                  => p_rec.attribute19
497       ,p_attribute20                  => p_rec.attribute20
498       ,p_attribute21                  => p_rec.attribute21
499       ,p_attribute22                  => p_rec.attribute22
500       ,p_attribute23                  => p_rec.attribute23
501       ,p_attribute24                  => p_rec.attribute24
502       ,p_attribute25                  => p_rec.attribute25
503       ,p_attribute26                  => p_rec.attribute26
504       ,p_attribute27                  => p_rec.attribute27
505       ,p_attribute28                  => p_rec.attribute28
506       ,p_attribute29                  => p_rec.attribute29
507       ,p_attribute30                  => p_rec.attribute30
508       ,p_complainant_person_id_o      => ghr_cmp_shd.g_old_rec.complainant_person_id
509       ,p_business_group_id_o          => ghr_cmp_shd.g_old_rec.business_group_id
510       ,p_docket_number_o              => ghr_cmp_shd.g_old_rec.docket_number
511       ,p_stage_o                      => ghr_cmp_shd.g_old_rec.stage
512       ,p_class_flag_o                 => ghr_cmp_shd.g_old_rec.class_flag
513       ,p_mixed_flag_o                 => ghr_cmp_shd.g_old_rec.mixed_flag
514       ,p_consolidated_flag_o          => ghr_cmp_shd.g_old_rec.consolidated_flag
515       ,p_remand_flag_o                => ghr_cmp_shd.g_old_rec.remand_flag
516       ,p_active_flag_o                => ghr_cmp_shd.g_old_rec.active_flag
517       ,p_information_inquiry_o        => ghr_cmp_shd.g_old_rec.information_inquiry
518       ,p_pcom_init_o                  => ghr_cmp_shd.g_old_rec.pcom_init
519       ,p_alleg_incident_o             => ghr_cmp_shd.g_old_rec.alleg_incident
520       ,p_alleg_discrim_org_id_o       => ghr_cmp_shd.g_old_rec.alleg_discrim_org_id
521       ,p_rr_ltr_date_o                => ghr_cmp_shd.g_old_rec.rr_ltr_date
522       ,p_rr_ltr_recvd_o               => ghr_cmp_shd.g_old_rec.rr_ltr_recvd
523       ,p_pre_com_elec_o               => ghr_cmp_shd.g_old_rec.pre_com_elec
524       --,p_adr_offered_o                => ghr_cmp_shd.g_old_rec.adr_offered
525       ,p_class_agent_flag_o           => ghr_cmp_shd.g_old_rec.class_agent_flag
526       ,p_pre_com_desc_o               => ghr_cmp_shd.g_old_rec.pre_com_desc
527       ,p_counselor_asg_o              => ghr_cmp_shd.g_old_rec.counselor_asg
528       ,p_init_counselor_interview_o   => ghr_cmp_shd.g_old_rec.init_counselor_interview
529       ,p_anonymity_requested_o        => ghr_cmp_shd.g_old_rec.anonymity_requested
530       ,p_counsel_ext_ltr_o            => ghr_cmp_shd.g_old_rec.counsel_ext_ltr
531       ,p_traditional_counsel_outcom_o => ghr_cmp_shd.g_old_rec.traditional_counsel_outcome
532       ,p_final_interview_o            => ghr_cmp_shd.g_old_rec.final_interview
533       ,p_notice_rtf_recvd_o           => ghr_cmp_shd.g_old_rec.notice_rtf_recvd
534       ,p_precom_closed_o              => ghr_cmp_shd.g_old_rec.precom_closed
535       ,p_precom_closure_nature_o      => ghr_cmp_shd.g_old_rec.precom_closure_nature
536       ,p_counselor_rpt_sub_o          => ghr_cmp_shd.g_old_rec.counselor_rpt_sub
537       ,p_hr_office_org_id_o           => ghr_cmp_shd.g_old_rec.hr_office_org_id
538       ,p_eeo_office_org_id_o          => ghr_cmp_shd.g_old_rec.eeo_office_org_id
539       ,p_serviced_org_id_o            => ghr_cmp_shd.g_old_rec.serviced_org_id
540       ,p_formal_com_filed_o           => ghr_cmp_shd.g_old_rec.formal_com_filed
541       ,p_ack_ltr_o                    => ghr_cmp_shd.g_old_rec.ack_ltr
542       ,p_clarification_ltr_date_o     => ghr_cmp_shd.g_old_rec.clarification_ltr_date
543       ,p_clarification_response_rec_o => ghr_cmp_shd.g_old_rec.clarification_response_recvd
544       ,p_forwarded_legal_review_o     => ghr_cmp_shd.g_old_rec.forwarded_legal_review
545       ,p_returned_from_legal_o        => ghr_cmp_shd.g_old_rec.returned_from_legal
546       ,p_letter_type_o                => ghr_cmp_shd.g_old_rec.letter_type
547       ,p_letter_date_o                => ghr_cmp_shd.g_old_rec.letter_date
548       ,p_letter_recvd_o               => ghr_cmp_shd.g_old_rec.letter_recvd
549       ,p_investigation_source_o       => ghr_cmp_shd.g_old_rec.investigation_source
550       ,p_investigator_recvd_req_o     => ghr_cmp_shd.g_old_rec.investigator_recvd_req
551       ,p_agency_investigator_req_o    => ghr_cmp_shd.g_old_rec.agency_investigator_req
552       ,p_investigator_asg_o           => ghr_cmp_shd.g_old_rec.investigator_asg
553       ,p_investigation_start_o        => ghr_cmp_shd.g_old_rec.investigation_start
554       ,p_investigation_end_o          => ghr_cmp_shd.g_old_rec.investigation_end
555       ,p_investigation_extended_o     => ghr_cmp_shd.g_old_rec.investigation_extended
556       ,p_invest_extension_desc_o      => ghr_cmp_shd.g_old_rec.invest_extension_desc
557       ,p_agency_recvd_roi_o           => ghr_cmp_shd.g_old_rec.agency_recvd_roi
558       ,p_comrep_recvd_roi_o           => ghr_cmp_shd.g_old_rec.comrep_recvd_roi
559       ,p_options_ltr_date_o           => ghr_cmp_shd.g_old_rec.options_ltr_date
560       ,p_comrep_recvd_opt_ltr_o       => ghr_cmp_shd.g_old_rec.comrep_recvd_opt_ltr
561       ,p_comrep_opt_ltr_response_o    => ghr_cmp_shd.g_old_rec.comrep_opt_ltr_response
562       ,p_resolution_offer_o           => ghr_cmp_shd.g_old_rec.resolution_offer
563       ,p_comrep_resol_offer_recvd_o   => ghr_cmp_shd.g_old_rec.comrep_resol_offer_recvd
564       ,p_comrep_resol_offer_respons_o => ghr_cmp_shd.g_old_rec.comrep_resol_offer_response
565       ,p_comrep_resol_offer_desc_o    => ghr_cmp_shd.g_old_rec.comrep_resol_offer_desc
566       ,p_resol_offer_signed_o         => ghr_cmp_shd.g_old_rec.resol_offer_signed
567       ,p_resol_offer_desc_o           => ghr_cmp_shd.g_old_rec.resol_offer_desc
568       ,p_hearing_source_o             => ghr_cmp_shd.g_old_rec.hearing_source
569       ,p_agency_notified_hearing_o    => ghr_cmp_shd.g_old_rec.agency_notified_hearing
570       ,p_eeoc_hearing_docket_num_o    => ghr_cmp_shd.g_old_rec.eeoc_hearing_docket_num
571       ,p_hearing_complete_o           => ghr_cmp_shd.g_old_rec.hearing_complete
572       ,p_aj_merit_decision_date_o     => ghr_cmp_shd.g_old_rec.aj_merit_decision_date
573       ,p_agency_recvd_aj_merit_dec_o  => ghr_cmp_shd.g_old_rec.agency_recvd_aj_merit_dec
574       ,p_aj_merit_decision_o          => ghr_cmp_shd.g_old_rec.aj_merit_decision
575       ,p_aj_ca_decision_date_o        => ghr_cmp_shd.g_old_rec.aj_ca_decision_date
576       ,p_agency_recvd_aj_ca_dec_o     => ghr_cmp_shd.g_old_rec.agency_recvd_aj_ca_dec
577       ,p_aj_ca_decision_o             => ghr_cmp_shd.g_old_rec.aj_ca_decision
578       ,p_fad_requested_o              => ghr_cmp_shd.g_old_rec.fad_requested
579       ,p_merit_fad_o                  => ghr_cmp_shd.g_old_rec.merit_fad
580       ,p_attorney_fees_fad_o          => ghr_cmp_shd.g_old_rec.attorney_fees_fad
581       ,p_comp_damages_fad_o           => ghr_cmp_shd.g_old_rec.comp_damages_fad
582       ,p_non_compliance_fad_o         => ghr_cmp_shd.g_old_rec.non_compliance_fad
583       ,p_fad_req_recvd_eeo_office_o   => ghr_cmp_shd.g_old_rec.fad_req_recvd_eeo_office
584       ,p_fad_req_forwd_to_agency_o    => ghr_cmp_shd.g_old_rec.fad_req_forwd_to_agency
585       ,p_agency_recvd_request_o       => ghr_cmp_shd.g_old_rec.agency_recvd_request
586       ,p_fad_due_o                    => ghr_cmp_shd.g_old_rec.fad_due
587       ,p_fad_date_o                   => ghr_cmp_shd.g_old_rec.fad_date
588       ,p_fad_decision_o               => ghr_cmp_shd.g_old_rec.fad_decision
589      -- ,p_fad_final_action_closure_o   => ghr_cmp_shd.g_old_rec.fad_final_action_closure
590       ,p_fad_forwd_to_comrep_o        => ghr_cmp_shd.g_old_rec.fad_forwd_to_comrep
591       ,p_fad_recvd_by_comrep_o        => ghr_cmp_shd.g_old_rec.fad_recvd_by_comrep
592       ,p_fad_imp_ltr_forwd_to_org_o   => ghr_cmp_shd.g_old_rec.fad_imp_ltr_forwd_to_org
593       ,p_fad_decision_forwd_legal_o   => ghr_cmp_shd.g_old_rec.fad_decision_forwd_legal
594       ,p_fad_decision_recvd_legal_o   => ghr_cmp_shd.g_old_rec.fad_decision_recvd_legal
595       ,p_fa_source_o                  => ghr_cmp_shd.g_old_rec.fa_source
596       ,p_final_action_due_o           => ghr_cmp_shd.g_old_rec.final_action_due
597       --,p_final_action_nature_of_clo_o => ghr_cmp_shd.g_old_rec.final_action_nature_of_closure
598       ,p_final_act_forwd_comrep_o     => ghr_cmp_shd.g_old_rec.final_act_forwd_comrep
599       ,p_final_act_recvd_comrep_o     => ghr_cmp_shd.g_old_rec.final_act_recvd_comrep
600       ,p_final_action_decision_date_o => ghr_cmp_shd.g_old_rec.final_action_decision_date
601       ,p_final_action_decision_o      => ghr_cmp_shd.g_old_rec.final_action_decision
602       ,p_fa_imp_ltr_forwd_to_org_o    => ghr_cmp_shd.g_old_rec.fa_imp_ltr_forwd_to_org
603       ,p_fa_decision_forwd_legal_o    => ghr_cmp_shd.g_old_rec.fa_decision_forwd_legal
604       ,p_fa_decision_recvd_legal_o    => ghr_cmp_shd.g_old_rec.fa_decision_recvd_legal
605       ,p_civil_action_filed_o         => ghr_cmp_shd.g_old_rec.civil_action_filed
606       ,p_agency_closure_confirmed_o   => ghr_cmp_shd.g_old_rec.agency_closure_confirmed
607       ,p_consolidated_complaint_id_o  => ghr_cmp_shd.g_old_rec.consolidated_complaint_id
608       ,p_consolidated_o               => ghr_cmp_shd.g_old_rec.consolidated
609       ,p_stage_of_consolidation_o     => ghr_cmp_shd.g_old_rec.stage_of_consolidation
610       ,p_comrep_notif_consolidation_o => ghr_cmp_shd.g_old_rec.comrep_notif_consolidation
611       ,p_consolidation_desc_o         => ghr_cmp_shd.g_old_rec.consolidation_desc
612       ,p_complaint_closed_o           => ghr_cmp_shd.g_old_rec.complaint_closed
613       ,p_nature_of_closure_o          => ghr_cmp_shd.g_old_rec.nature_of_closure
614       ,p_complaint_closed_desc_o      => ghr_cmp_shd.g_old_rec.complaint_closed_desc
615       ,p_filed_formal_class_o         => ghr_cmp_shd.g_old_rec.filed_formal_class
616       ,p_forwd_eeoc_o                 => ghr_cmp_shd.g_old_rec.forwd_eeoc
617       ,p_aj_cert_decision_date_o      => ghr_cmp_shd.g_old_rec.aj_cert_decision_date
618       ,p_aj_cert_decision_recvd_o     => ghr_cmp_shd.g_old_rec.aj_cert_decision_recvd
619       ,p_aj_cert_decision_o           => ghr_cmp_shd.g_old_rec.aj_cert_decision
620       ,p_class_members_notified_o     => ghr_cmp_shd.g_old_rec.class_members_notified
621       ,p_number_of_complaintants_o    => ghr_cmp_shd.g_old_rec.number_of_complaintants
622       ,p_class_hearing_o              => ghr_cmp_shd.g_old_rec.class_hearing
623       ,p_aj_dec_o                     => ghr_cmp_shd.g_old_rec.aj_dec
624       ,p_agency_recvd_aj_dec_o        => ghr_cmp_shd.g_old_rec.agency_recvd_aj_dec
625       ,p_aj_decision_o                => ghr_cmp_shd.g_old_rec.aj_decision
626       ,p_object_version_number_o      => ghr_cmp_shd.g_old_rec.object_version_number
627       ,p_agency_brief_eeoc_o          => ghr_cmp_shd.g_old_rec.agency_brief_eeoc
628       ,p_agency_notif_of_civil_acti_o => ghr_cmp_shd.g_old_rec.agency_notif_of_civil_action
629       ,p_fad_source_o                 => ghr_cmp_shd.g_old_rec.fad_source
630       ,p_agency_files_forwarded_eeo_o => ghr_cmp_shd.g_old_rec.agency_files_forwarded_eeoc
631       ,p_hearing_req_o                => ghr_cmp_shd.g_old_rec.hearing_req
632       ,p_agency_code_o                => ghr_cmp_shd.g_old_rec.agency_code
633       ,p_audited_by_o                 => ghr_cmp_shd.g_old_rec.audited_by
634       ,p_record_received_o            => ghr_cmp_shd.g_old_rec.record_received
635       ,p_attribute_category_o         => ghr_cmp_shd.g_old_rec.attribute_category
636       ,p_attribute1_o                 => ghr_cmp_shd.g_old_rec.attribute1
637       ,p_attribute2_o                 => ghr_cmp_shd.g_old_rec.attribute2
638       ,p_attribute3_o                 => ghr_cmp_shd.g_old_rec.attribute3
639       ,p_attribute4_o                 => ghr_cmp_shd.g_old_rec.attribute4
640       ,p_attribute5_o                 => ghr_cmp_shd.g_old_rec.attribute5
641       ,p_attribute6_o                 => ghr_cmp_shd.g_old_rec.attribute6
642       ,p_attribute7_o                 => ghr_cmp_shd.g_old_rec.attribute7
643       ,p_attribute8_o                 => ghr_cmp_shd.g_old_rec.attribute8
644       ,p_attribute9_o                 => ghr_cmp_shd.g_old_rec.attribute9
645       ,p_attribute10_o                => ghr_cmp_shd.g_old_rec.attribute10
646       ,p_attribute11_o                => ghr_cmp_shd.g_old_rec.attribute11
647       ,p_attribute12_o                => ghr_cmp_shd.g_old_rec.attribute12
648       ,p_attribute13_o                => ghr_cmp_shd.g_old_rec.attribute13
649       ,p_attribute14_o                => ghr_cmp_shd.g_old_rec.attribute14
650       ,p_attribute15_o                => ghr_cmp_shd.g_old_rec.attribute15
651       ,p_attribute16_o                => ghr_cmp_shd.g_old_rec.attribute16
652       ,p_attribute17_o                => ghr_cmp_shd.g_old_rec.attribute17
653       ,p_attribute18_o                => ghr_cmp_shd.g_old_rec.attribute18
654       ,p_attribute19_o                => ghr_cmp_shd.g_old_rec.attribute19
655       ,p_attribute20_o                => ghr_cmp_shd.g_old_rec.attribute20
656       ,p_attribute21_o                => ghr_cmp_shd.g_old_rec.attribute21
657       ,p_attribute22_o                => ghr_cmp_shd.g_old_rec.attribute22
658       ,p_attribute23_o                => ghr_cmp_shd.g_old_rec.attribute23
659       ,p_attribute24_o                => ghr_cmp_shd.g_old_rec.attribute24
660       ,p_attribute25_o                => ghr_cmp_shd.g_old_rec.attribute25
661       ,p_attribute26_o                => ghr_cmp_shd.g_old_rec.attribute26
662       ,p_attribute27_o                => ghr_cmp_shd.g_old_rec.attribute27
663       ,p_attribute28_o                => ghr_cmp_shd.g_old_rec.attribute28
664       ,p_attribute29_o                => ghr_cmp_shd.g_old_rec.attribute29
665       ,p_attribute30_o                => ghr_cmp_shd.g_old_rec.attribute30
666       );
667     --
668   exception
669     --
670     when hr_api.cannot_find_prog_unit then
671       --
672       hr_api.cannot_find_prog_unit_error
673         (p_module_name => 'GHR_COMPLAINTS2'
674         ,p_hook_type   => 'AU');
675       --
676 
677   end;
678 
679   --
680   hr_utility.set_location(' Leaving:'||l_proc, 10);
681 End post_update;
682 --
683 -- ----------------------------------------------------------------------------
684 -- |-----------------------------< convert_defs >-----------------------------|
685 -- ----------------------------------------------------------------------------
686 -- {Start Of Comments}
687 --
688 -- Description:
689 --   The Convert_Defs procedure has one very important function:
690 --   It must return the record structure for the row with all system defaulted
691 --   values converted into its corresponding parameter value for update. When
692 --   we attempt to update a row through the Upd process , certain
693 --   parameters can be defaulted which enables flexibility in the calling of
694 --   the upd process (e.g. only attributes which need to be updated need to be
695 --   specified). For the upd process to determine which attributes
696 --   have NOT been specified we need to check if the parameter has a reserved
697 --   system default value. Therefore, for all parameters which have a
698 --   corresponding reserved system default mechanism specified we need to
699 --   check if a system default is being used. If a system default is being
700 --   used then we convert the defaulted value into its corresponding attribute
701 --   value held in the g_old_rec data structure.
702 --
703 -- Prerequisites:
704 --   This private function can only be called from the upd process.
705 --
706 -- In Parameters:
707 --   A Pl/Sql record structure.
708 --
709 -- Post Success:
710 --   The record structure will be returned with all system defaulted parameter
711 --   values converted into its current row attribute value.
712 --
713 -- Post Failure:
714 --   No direct error handling is required within this function. Any possible
715 --   errors within this procedure will be a PL/SQL value error due to
716 --   conversion of datatypes or data lengths.
717 --
718 -- Developer Implementation Notes:
719 --   None.
720 --
721 -- Access Status:
722 --   Internal Row Handler Use Only.
723 --
724 -- {End Of Comments}
725 -- ----------------------------------------------------------------------------
726 Procedure convert_defs
727   (p_rec in out nocopy ghr_cmp_shd.g_rec_type
728   ) is
729 --
730 Begin
731   --
732   -- We must now examine each argument value in the
733   -- p_rec plsql record structure
734   -- to see if a system default is being used. If a system default
735   -- is being used then we must set to the 'current' argument value.
736   --
737   If (p_rec.complainant_person_id = hr_api.g_number) then
738     p_rec.complainant_person_id :=
739     ghr_cmp_shd.g_old_rec.complainant_person_id;
740   End If;
741   If (p_rec.business_group_id = hr_api.g_number) then
742     p_rec.business_group_id :=
743     ghr_cmp_shd.g_old_rec.business_group_id;
744   End If;
745   If (p_rec.docket_number = hr_api.g_varchar2) then
746     p_rec.docket_number :=
747     ghr_cmp_shd.g_old_rec.docket_number;
748   End If;
749   If (p_rec.stage = hr_api.g_varchar2) then
750     p_rec.stage :=
751     ghr_cmp_shd.g_old_rec.stage;
752   End If;
753   If (p_rec.class_flag = hr_api.g_varchar2) then
754     p_rec.class_flag :=
755     ghr_cmp_shd.g_old_rec.class_flag;
756   End If;
757   If (p_rec.mixed_flag = hr_api.g_varchar2) then
758     p_rec.mixed_flag :=
759     ghr_cmp_shd.g_old_rec.mixed_flag;
760   End If;
761   If (p_rec.consolidated_flag = hr_api.g_varchar2) then
762     p_rec.consolidated_flag :=
763     ghr_cmp_shd.g_old_rec.consolidated_flag;
764   End If;
765   If (p_rec.remand_flag = hr_api.g_varchar2) then
766     p_rec.remand_flag :=
767     ghr_cmp_shd.g_old_rec.remand_flag;
768   End If;
769   If (p_rec.active_flag = hr_api.g_varchar2) then
770     p_rec.active_flag :=
771     ghr_cmp_shd.g_old_rec.active_flag;
772   End If;
773   If (p_rec.information_inquiry = hr_api.g_date) then
774     p_rec.information_inquiry :=
775     ghr_cmp_shd.g_old_rec.information_inquiry;
776   End If;
777   If (p_rec.pcom_init = hr_api.g_date) then
778     p_rec.pcom_init :=
779     ghr_cmp_shd.g_old_rec.pcom_init;
780   End If;
781   If (p_rec.alleg_incident = hr_api.g_date) then
782     p_rec.alleg_incident :=
783     ghr_cmp_shd.g_old_rec.alleg_incident;
784   End If;
785   If (p_rec.alleg_discrim_org_id = hr_api.g_number) then
786     p_rec.alleg_discrim_org_id :=
787     ghr_cmp_shd.g_old_rec.alleg_discrim_org_id;
788   End If;
789   If (p_rec.rr_ltr_date = hr_api.g_date) then
790     p_rec.rr_ltr_date :=
791     ghr_cmp_shd.g_old_rec.rr_ltr_date;
792   End If;
793   If (p_rec.rr_ltr_recvd = hr_api.g_date) then
794     p_rec.rr_ltr_recvd :=
795     ghr_cmp_shd.g_old_rec.rr_ltr_recvd;
796   End If;
797   If (p_rec.pre_com_elec = hr_api.g_varchar2) then
798     p_rec.pre_com_elec :=
799     ghr_cmp_shd.g_old_rec.pre_com_elec;
800   End If;
801 /*
802   If (p_rec.adr_offered = hr_api.g_varchar2) then
803     p_rec.adr_offered :=
804     ghr_cmp_shd.g_old_rec.adr_offered;
805   End If;
806 */
807   If (p_rec.class_agent_flag = hr_api.g_varchar2) then
808     p_rec.class_agent_flag :=
809     ghr_cmp_shd.g_old_rec.class_agent_flag;
810   End If;
811   If (p_rec.pre_com_desc = hr_api.g_varchar2) then
812     p_rec.pre_com_desc :=
813     ghr_cmp_shd.g_old_rec.pre_com_desc;
814   End If;
815   If (p_rec.counselor_asg = hr_api.g_date) then
816     p_rec.counselor_asg :=
817     ghr_cmp_shd.g_old_rec.counselor_asg;
818   End If;
819   If (p_rec.init_counselor_interview = hr_api.g_date) then
820     p_rec.init_counselor_interview :=
821     ghr_cmp_shd.g_old_rec.init_counselor_interview;
822   End If;
823   If (p_rec.anonymity_requested = hr_api.g_varchar2) then
824     p_rec.anonymity_requested :=
825     ghr_cmp_shd.g_old_rec.anonymity_requested;
826   End If;
827   If (p_rec.counsel_ext_ltr = hr_api.g_date) then
828     p_rec.counsel_ext_ltr :=
829     ghr_cmp_shd.g_old_rec.counsel_ext_ltr;
830   End If;
831   If (p_rec.traditional_counsel_outcome = hr_api.g_varchar2) then
832     p_rec.traditional_counsel_outcome :=
833     ghr_cmp_shd.g_old_rec.traditional_counsel_outcome;
834   End If;
835   If (p_rec.final_interview = hr_api.g_date) then
836     p_rec.final_interview :=
837     ghr_cmp_shd.g_old_rec.final_interview;
838   End If;
839   If (p_rec.notice_rtf_recvd = hr_api.g_date) then
840     p_rec.notice_rtf_recvd :=
841     ghr_cmp_shd.g_old_rec.notice_rtf_recvd;
842   End If;
843   If (p_rec.precom_closed = hr_api.g_date) then
844     p_rec.precom_closed :=
845     ghr_cmp_shd.g_old_rec.precom_closed;
846   End If;
847   If (p_rec.precom_closure_nature = hr_api.g_varchar2) then
848     p_rec.precom_closure_nature :=
849     ghr_cmp_shd.g_old_rec.precom_closure_nature;
850   End If;
851   If (p_rec.counselor_rpt_sub = hr_api.g_date) then
852     p_rec.counselor_rpt_sub :=
853     ghr_cmp_shd.g_old_rec.counselor_rpt_sub;
854   End If;
855   If (p_rec.hr_office_org_id = hr_api.g_number) then
856     p_rec.hr_office_org_id :=
857     ghr_cmp_shd.g_old_rec.hr_office_org_id;
858   End If;
859   If (p_rec.eeo_office_org_id = hr_api.g_number) then
860     p_rec.eeo_office_org_id :=
861     ghr_cmp_shd.g_old_rec.eeo_office_org_id;
862   End If;
863   If (p_rec.serviced_org_id = hr_api.g_number) then
864     p_rec.serviced_org_id :=
865     ghr_cmp_shd.g_old_rec.serviced_org_id;
866   End If;
867   If (p_rec.formal_com_filed = hr_api.g_date) then
868     p_rec.formal_com_filed :=
869     ghr_cmp_shd.g_old_rec.formal_com_filed;
870   End If;
871   If (p_rec.ack_ltr = hr_api.g_date) then
872     p_rec.ack_ltr :=
873     ghr_cmp_shd.g_old_rec.ack_ltr;
874   End If;
875   If (p_rec.clarification_ltr_date = hr_api.g_date) then
876     p_rec.clarification_ltr_date :=
877     ghr_cmp_shd.g_old_rec.clarification_ltr_date;
878   End If;
879   If (p_rec.clarification_response_recvd = hr_api.g_date) then
880     p_rec.clarification_response_recvd :=
881     ghr_cmp_shd.g_old_rec.clarification_response_recvd;
882   End If;
883   If (p_rec.forwarded_legal_review = hr_api.g_date) then
884     p_rec.forwarded_legal_review :=
885     ghr_cmp_shd.g_old_rec.forwarded_legal_review;
886   End If;
887   If (p_rec.returned_from_legal = hr_api.g_date) then
888     p_rec.returned_from_legal :=
889     ghr_cmp_shd.g_old_rec.returned_from_legal;
890   End If;
891   If (p_rec.letter_type = hr_api.g_varchar2) then
892     p_rec.letter_type :=
893     ghr_cmp_shd.g_old_rec.letter_type;
894   End If;
895   If (p_rec.letter_date = hr_api.g_date) then
896     p_rec.letter_date :=
897     ghr_cmp_shd.g_old_rec.letter_date;
898   End If;
899   If (p_rec.letter_recvd = hr_api.g_date) then
900     p_rec.letter_recvd :=
901     ghr_cmp_shd.g_old_rec.letter_recvd;
902   End If;
903   If (p_rec.investigation_source = hr_api.g_varchar2) then
904     p_rec.investigation_source :=
905     ghr_cmp_shd.g_old_rec.investigation_source;
906   End If;
907   If (p_rec.investigator_recvd_req = hr_api.g_date) then
908     p_rec.investigator_recvd_req :=
909     ghr_cmp_shd.g_old_rec.investigator_recvd_req;
910   End If;
911   If (p_rec.agency_investigator_req = hr_api.g_date) then
912     p_rec.agency_investigator_req :=
913     ghr_cmp_shd.g_old_rec.agency_investigator_req;
914   End If;
915   If (p_rec.investigator_asg = hr_api.g_date) then
916     p_rec.investigator_asg :=
917     ghr_cmp_shd.g_old_rec.investigator_asg;
918   End If;
919   If (p_rec.investigation_start = hr_api.g_date) then
920     p_rec.investigation_start :=
921     ghr_cmp_shd.g_old_rec.investigation_start;
922   End If;
923   If (p_rec.investigation_end = hr_api.g_date) then
924     p_rec.investigation_end :=
925     ghr_cmp_shd.g_old_rec.investigation_end;
926   End If;
927   If (p_rec.investigation_extended = hr_api.g_date) then
928     p_rec.investigation_extended :=
929     ghr_cmp_shd.g_old_rec.investigation_extended;
930   End If;
931   If (p_rec.invest_extension_desc = hr_api.g_varchar2) then
932     p_rec.invest_extension_desc :=
933     ghr_cmp_shd.g_old_rec.invest_extension_desc;
934   End If;
935   If (p_rec.agency_recvd_roi = hr_api.g_date) then
936     p_rec.agency_recvd_roi :=
937     ghr_cmp_shd.g_old_rec.agency_recvd_roi;
938   End If;
939   If (p_rec.comrep_recvd_roi = hr_api.g_date) then
940     p_rec.comrep_recvd_roi :=
941     ghr_cmp_shd.g_old_rec.comrep_recvd_roi;
942   End If;
943   If (p_rec.options_ltr_date = hr_api.g_date) then
944     p_rec.options_ltr_date :=
945     ghr_cmp_shd.g_old_rec.options_ltr_date;
946   End If;
947   If (p_rec.comrep_recvd_opt_ltr = hr_api.g_date) then
948     p_rec.comrep_recvd_opt_ltr :=
949     ghr_cmp_shd.g_old_rec.comrep_recvd_opt_ltr;
950   End If;
951   If (p_rec.comrep_opt_ltr_response = hr_api.g_varchar2) then
952     p_rec.comrep_opt_ltr_response :=
953     ghr_cmp_shd.g_old_rec.comrep_opt_ltr_response;
954   End If;
955   If (p_rec.resolution_offer = hr_api.g_date) then
956     p_rec.resolution_offer :=
957     ghr_cmp_shd.g_old_rec.resolution_offer;
958   End If;
959   If (p_rec.comrep_resol_offer_recvd = hr_api.g_date) then
960     p_rec.comrep_resol_offer_recvd :=
961     ghr_cmp_shd.g_old_rec.comrep_resol_offer_recvd;
962   End If;
963   If (p_rec.comrep_resol_offer_response = hr_api.g_date) then
964     p_rec.comrep_resol_offer_response :=
965     ghr_cmp_shd.g_old_rec.comrep_resol_offer_response;
966   End If;
967   If (p_rec.comrep_resol_offer_desc = hr_api.g_varchar2) then
968     p_rec.comrep_resol_offer_desc :=
969     ghr_cmp_shd.g_old_rec.comrep_resol_offer_desc;
970   End If;
971   If (p_rec.resol_offer_signed = hr_api.g_date) then
972     p_rec.resol_offer_signed :=
973     ghr_cmp_shd.g_old_rec.resol_offer_signed;
974   End If;
975   If (p_rec.resol_offer_desc = hr_api.g_varchar2) then
976     p_rec.resol_offer_desc :=
977     ghr_cmp_shd.g_old_rec.resol_offer_desc;
978   End If;
979   If (p_rec.hearing_source = hr_api.g_varchar2) then
980     p_rec.hearing_source :=
981     ghr_cmp_shd.g_old_rec.hearing_source;
982   End If;
983   If (p_rec.agency_notified_hearing = hr_api.g_date) then
984     p_rec.agency_notified_hearing :=
985     ghr_cmp_shd.g_old_rec.agency_notified_hearing;
986   End If;
987   If (p_rec.eeoc_hearing_docket_num = hr_api.g_varchar2) then
988     p_rec.eeoc_hearing_docket_num :=
989     ghr_cmp_shd.g_old_rec.eeoc_hearing_docket_num;
990   End If;
991   If (p_rec.hearing_complete = hr_api.g_date) then
992     p_rec.hearing_complete :=
993     ghr_cmp_shd.g_old_rec.hearing_complete;
994   End If;
995   If (p_rec.aj_merit_decision_date = hr_api.g_date) then
996     p_rec.aj_merit_decision_date :=
997     ghr_cmp_shd.g_old_rec.aj_merit_decision_date;
998   End If;
999   If (p_rec.agency_recvd_aj_merit_dec = hr_api.g_date) then
1000     p_rec.agency_recvd_aj_merit_dec :=
1001     ghr_cmp_shd.g_old_rec.agency_recvd_aj_merit_dec;
1002   End If;
1003   If (p_rec.aj_merit_decision = hr_api.g_varchar2) then
1004     p_rec.aj_merit_decision :=
1005     ghr_cmp_shd.g_old_rec.aj_merit_decision;
1006   End If;
1007   If (p_rec.aj_ca_decision_date = hr_api.g_date) then
1008     p_rec.aj_ca_decision_date :=
1009     ghr_cmp_shd.g_old_rec.aj_ca_decision_date;
1010   End If;
1011   If (p_rec.agency_recvd_aj_ca_dec = hr_api.g_date) then
1012     p_rec.agency_recvd_aj_ca_dec :=
1013     ghr_cmp_shd.g_old_rec.agency_recvd_aj_ca_dec;
1014   End If;
1015   If (p_rec.aj_ca_decision = hr_api.g_varchar2) then
1016     p_rec.aj_ca_decision :=
1017     ghr_cmp_shd.g_old_rec.aj_ca_decision;
1018   End If;
1019   If (p_rec.fad_requested = hr_api.g_date) then
1020     p_rec.fad_requested :=
1021     ghr_cmp_shd.g_old_rec.fad_requested;
1022   End If;
1023   If (p_rec.merit_fad = hr_api.g_varchar2) then
1024     p_rec.merit_fad :=
1025     ghr_cmp_shd.g_old_rec.merit_fad;
1026   End If;
1027   If (p_rec.attorney_fees_fad = hr_api.g_varchar2) then
1028     p_rec.attorney_fees_fad :=
1029     ghr_cmp_shd.g_old_rec.attorney_fees_fad;
1030   End If;
1031   If (p_rec.comp_damages_fad = hr_api.g_varchar2) then
1032     p_rec.comp_damages_fad :=
1033     ghr_cmp_shd.g_old_rec.comp_damages_fad;
1034   End If;
1035   If (p_rec.non_compliance_fad = hr_api.g_varchar2) then
1036     p_rec.non_compliance_fad :=
1037     ghr_cmp_shd.g_old_rec.non_compliance_fad;
1038   End If;
1039   If (p_rec.fad_req_recvd_eeo_office = hr_api.g_date) then
1040     p_rec.fad_req_recvd_eeo_office :=
1041     ghr_cmp_shd.g_old_rec.fad_req_recvd_eeo_office;
1042   End If;
1043   If (p_rec.fad_req_forwd_to_agency = hr_api.g_date) then
1044     p_rec.fad_req_forwd_to_agency :=
1045     ghr_cmp_shd.g_old_rec.fad_req_forwd_to_agency;
1046   End If;
1047   If (p_rec.agency_recvd_request = hr_api.g_date) then
1048     p_rec.agency_recvd_request :=
1049     ghr_cmp_shd.g_old_rec.agency_recvd_request;
1050   End If;
1051   If (p_rec.fad_due = hr_api.g_date) then
1052     p_rec.fad_due :=
1053     ghr_cmp_shd.g_old_rec.fad_due;
1054   End If;
1055   If (p_rec.fad_date = hr_api.g_date) then
1056     p_rec.fad_date :=
1057     ghr_cmp_shd.g_old_rec.fad_date;
1058   End If;
1059   If (p_rec.fad_decision = hr_api.g_varchar2) then
1060     p_rec.fad_decision :=
1061     ghr_cmp_shd.g_old_rec.fad_decision;
1062   End If;
1063 /*
1064   If (p_rec.fad_final_action_closure = hr_api.g_varchar2) then
1065     p_rec.fad_final_action_closure :=
1066     ghr_cmp_shd.g_old_rec.fad_final_action_closure;
1067   End If;
1068 */
1069   If (p_rec.fad_forwd_to_comrep = hr_api.g_date) then
1070     p_rec.fad_forwd_to_comrep :=
1071     ghr_cmp_shd.g_old_rec.fad_forwd_to_comrep;
1072   End If;
1073   If (p_rec.fad_recvd_by_comrep = hr_api.g_date) then
1074     p_rec.fad_recvd_by_comrep :=
1075     ghr_cmp_shd.g_old_rec.fad_recvd_by_comrep;
1076   End If;
1077   If (p_rec.fad_imp_ltr_forwd_to_org = hr_api.g_date) then
1078     p_rec.fad_imp_ltr_forwd_to_org :=
1079     ghr_cmp_shd.g_old_rec.fad_imp_ltr_forwd_to_org;
1080   End If;
1081   If (p_rec.fad_decision_forwd_legal = hr_api.g_date) then
1082     p_rec.fad_decision_forwd_legal :=
1083     ghr_cmp_shd.g_old_rec.fad_decision_forwd_legal;
1084   End If;
1085   If (p_rec.fad_decision_recvd_legal = hr_api.g_date) then
1086     p_rec.fad_decision_recvd_legal :=
1087     ghr_cmp_shd.g_old_rec.fad_decision_recvd_legal;
1088   End If;
1089   If (p_rec.fa_source = hr_api.g_varchar2) then
1090     p_rec.fa_source :=
1091     ghr_cmp_shd.g_old_rec.fa_source;
1092   End If;
1093   If (p_rec.final_action_due = hr_api.g_date) then
1094     p_rec.final_action_due :=
1095     ghr_cmp_shd.g_old_rec.final_action_due;
1096   End If;
1097 /*
1098   If (p_rec.final_action_nature_of_closure = hr_api.g_varchar2) then
1099     p_rec.final_action_nature_of_closure :=
1100     ghr_cmp_shd.g_old_rec.final_action_nature_of_closure;
1101   End If;
1102 */
1103   If (p_rec.final_act_forwd_comrep = hr_api.g_date) then
1104     p_rec.final_act_forwd_comrep :=
1105     ghr_cmp_shd.g_old_rec.final_act_forwd_comrep;
1106   End If;
1107   If (p_rec.final_act_recvd_comrep = hr_api.g_date) then
1108     p_rec.final_act_recvd_comrep :=
1109     ghr_cmp_shd.g_old_rec.final_act_recvd_comrep;
1110   End If;
1111    If (p_rec.final_action_decision_date = hr_api.g_date) then
1112     p_rec.final_action_decision_date :=
1113     ghr_cmp_shd.g_old_rec.final_action_decision_date;
1114   End If;
1115     If (p_rec.final_action_decision = hr_api.g_varchar2) then
1116     p_rec.final_action_decision :=
1117     ghr_cmp_shd.g_old_rec.final_action_decision;
1118   End If;
1119   If (p_rec.fa_imp_ltr_forwd_to_org = hr_api.g_date) then
1120     p_rec.fa_imp_ltr_forwd_to_org :=
1121     ghr_cmp_shd.g_old_rec.fa_imp_ltr_forwd_to_org;
1122   End If;
1123   If (p_rec.fa_decision_forwd_legal = hr_api.g_date) then
1124     p_rec.fa_decision_forwd_legal :=
1125     ghr_cmp_shd.g_old_rec.fa_decision_forwd_legal;
1126   End If;
1127   If (p_rec.fa_decision_recvd_legal = hr_api.g_date) then
1128     p_rec.fa_decision_recvd_legal :=
1129     ghr_cmp_shd.g_old_rec.fa_decision_recvd_legal;
1130   End If;
1131   If (p_rec.civil_action_filed = hr_api.g_date) then
1132     p_rec.civil_action_filed :=
1133     ghr_cmp_shd.g_old_rec.civil_action_filed;
1134   End If;
1135   If (p_rec.agency_closure_confirmed = hr_api.g_date) then
1136     p_rec.agency_closure_confirmed :=
1137     ghr_cmp_shd.g_old_rec.agency_closure_confirmed;
1138   End If;
1139   If (p_rec.consolidated_complaint_id = hr_api.g_number) then
1140     p_rec.consolidated_complaint_id :=
1141     ghr_cmp_shd.g_old_rec.consolidated_complaint_id;
1142   End If;
1143   If (p_rec.consolidated = hr_api.g_date) then
1144     p_rec.consolidated :=
1145     ghr_cmp_shd.g_old_rec.consolidated;
1146   End If;
1147   If (p_rec.stage_of_consolidation = hr_api.g_varchar2) then
1148     p_rec.stage_of_consolidation :=
1149     ghr_cmp_shd.g_old_rec.stage_of_consolidation;
1150   End If;
1151   If (p_rec.comrep_notif_consolidation = hr_api.g_date) then
1152     p_rec.comrep_notif_consolidation :=
1153     ghr_cmp_shd.g_old_rec.comrep_notif_consolidation;
1154   End If;
1155   If (p_rec.consolidation_desc = hr_api.g_varchar2) then
1156     p_rec.consolidation_desc :=
1157     ghr_cmp_shd.g_old_rec.consolidation_desc;
1158   End If;
1159   If (p_rec.complaint_closed = hr_api.g_date) then
1160     p_rec.complaint_closed :=
1161     ghr_cmp_shd.g_old_rec.complaint_closed;
1162   End If;
1163   If (p_rec.nature_of_closure = hr_api.g_varchar2) then
1164     p_rec.nature_of_closure :=
1165     ghr_cmp_shd.g_old_rec.nature_of_closure;
1166   End If;
1167   If (p_rec.complaint_closed_desc = hr_api.g_varchar2) then
1168     p_rec.complaint_closed_desc :=
1169     ghr_cmp_shd.g_old_rec.complaint_closed_desc;
1170   End If;
1171   If (p_rec.filed_formal_class = hr_api.g_date) then
1172     p_rec.filed_formal_class :=
1173     ghr_cmp_shd.g_old_rec.filed_formal_class;
1174   End If;
1175   If (p_rec.forwd_eeoc = hr_api.g_date) then
1176     p_rec.forwd_eeoc :=
1177     ghr_cmp_shd.g_old_rec.forwd_eeoc;
1178   End If;
1179   If (p_rec.aj_cert_decision_date = hr_api.g_date) then
1180     p_rec.aj_cert_decision_date :=
1181     ghr_cmp_shd.g_old_rec.aj_cert_decision_date;
1182   End If;
1183   If (p_rec.aj_cert_decision_recvd = hr_api.g_date) then
1184     p_rec.aj_cert_decision_recvd :=
1185     ghr_cmp_shd.g_old_rec.aj_cert_decision_recvd;
1186   End If;
1187   If (p_rec.aj_cert_decision = hr_api.g_varchar2) then
1188     p_rec.aj_cert_decision :=
1189     ghr_cmp_shd.g_old_rec.aj_cert_decision;
1190   End If;
1191   If (p_rec.class_members_notified = hr_api.g_date) then
1192     p_rec.class_members_notified :=
1193     ghr_cmp_shd.g_old_rec.class_members_notified;
1194   End If;
1195   If (p_rec.number_of_complaintants = hr_api.g_number) then
1196     p_rec.number_of_complaintants :=
1197     ghr_cmp_shd.g_old_rec.number_of_complaintants;
1198   End If;
1199   If (p_rec.class_hearing = hr_api.g_date) then
1200     p_rec.class_hearing :=
1201     ghr_cmp_shd.g_old_rec.class_hearing;
1202   End If;
1203   If (p_rec.aj_dec = hr_api.g_date) then
1204     p_rec.aj_dec :=
1205     ghr_cmp_shd.g_old_rec.aj_dec;
1206   End If;
1207   If (p_rec.agency_recvd_aj_dec = hr_api.g_date) then
1208     p_rec.agency_recvd_aj_dec :=
1209     ghr_cmp_shd.g_old_rec.agency_recvd_aj_dec;
1210   End If;
1211   If (p_rec.aj_decision = hr_api.g_varchar2) then
1212     p_rec.aj_decision :=
1213     ghr_cmp_shd.g_old_rec.aj_decision;
1214   End If;
1215   If (p_rec.agency_brief_eeoc = hr_api.g_date) then
1216     p_rec.agency_brief_eeoc :=
1217     ghr_cmp_shd.g_old_rec.agency_brief_eeoc;
1218   End If;
1219   If (p_rec.agency_notif_of_civil_action = hr_api.g_date) then
1220     p_rec.agency_notif_of_civil_action :=
1221     ghr_cmp_shd.g_old_rec.agency_notif_of_civil_action;
1222   End If;
1223   If (p_rec.fad_source = hr_api.g_varchar2) then
1224     p_rec.fad_source :=
1225     ghr_cmp_shd.g_old_rec.fad_source;
1226   End If;
1227   If (p_rec.agency_files_forwarded_eeoc = hr_api.g_date) then
1228     p_rec.agency_files_forwarded_eeoc :=
1229     ghr_cmp_shd.g_old_rec.agency_files_forwarded_eeoc;
1230   End If;
1231   If (p_rec.hearing_req = hr_api.g_date) then
1232     p_rec.hearing_req :=
1233     ghr_cmp_shd.g_old_rec.hearing_req;
1234   End If;
1235  If (p_rec.agency_code = hr_api.g_varchar2) then
1236     p_rec.agency_code :=
1237     ghr_cmp_shd.g_old_rec.agency_code;
1238  End If;
1239  If (p_rec.audited_by = hr_api.g_varchar2) then
1240     p_rec.audited_by :=
1241     ghr_cmp_shd.g_old_rec.audited_by;
1242  End If;
1243  If (p_rec.record_received = hr_api.g_date) then
1244     p_rec.record_received :=
1245     ghr_cmp_shd.g_old_rec.record_received;
1246  End If;
1247 ---------------------------------------------------------------------------
1248 
1249   If (p_rec.attribute_category = hr_api.g_varchar2) then
1250     p_rec.attribute_category :=
1251     ghr_cmp_shd.g_old_rec.attribute_category;
1252   End If;
1253   If (p_rec.attribute1 = hr_api.g_varchar2) then
1254     p_rec.attribute1 :=
1255     ghr_cmp_shd.g_old_rec.attribute1;
1256   End If;
1257   If (p_rec.attribute2 = hr_api.g_varchar2) then
1258     p_rec.attribute2 :=
1259     ghr_cmp_shd.g_old_rec.attribute2;
1260   End If;
1261   If (p_rec.attribute3 = hr_api.g_varchar2) then
1262     p_rec.attribute3 :=
1263     ghr_cmp_shd.g_old_rec.attribute3;
1264   End If;
1265   If (p_rec.attribute4 = hr_api.g_varchar2) then
1266     p_rec.attribute4 :=
1267     ghr_cmp_shd.g_old_rec.attribute4;
1268   End If;
1269   If (p_rec.attribute5 = hr_api.g_varchar2) then
1270     p_rec.attribute5 :=
1271     ghr_cmp_shd.g_old_rec.attribute5;
1272   End If;
1273   If (p_rec.attribute6 = hr_api.g_varchar2) then
1274     p_rec.attribute6 :=
1275     ghr_cmp_shd.g_old_rec.attribute6;
1276   End If;
1277   If (p_rec.attribute7 = hr_api.g_varchar2) then
1278     p_rec.attribute7 :=
1279     ghr_cmp_shd.g_old_rec.attribute7;
1280   End If;
1281   If (p_rec.attribute8 = hr_api.g_varchar2) then
1282     p_rec.attribute8 :=
1283     ghr_cmp_shd.g_old_rec.attribute8;
1284   End If;
1285   If (p_rec.attribute9 = hr_api.g_varchar2) then
1286     p_rec.attribute9 :=
1287     ghr_cmp_shd.g_old_rec.attribute9;
1288   End If;
1289   If (p_rec.attribute10 = hr_api.g_varchar2) then
1290     p_rec.attribute10 :=
1291     ghr_cmp_shd.g_old_rec.attribute10;
1292   End If;
1293   If (p_rec.attribute11 = hr_api.g_varchar2) then
1294     p_rec.attribute11 :=
1295     ghr_cmp_shd.g_old_rec.attribute11;
1296   End If;
1297   If (p_rec.attribute12 = hr_api.g_varchar2) then
1298     p_rec.attribute12 :=
1299     ghr_cmp_shd.g_old_rec.attribute12;
1300   End If;
1301   If (p_rec.attribute13 = hr_api.g_varchar2) then
1302     p_rec.attribute13 :=
1303     ghr_cmp_shd.g_old_rec.attribute13;
1304   End If;
1305   If (p_rec.attribute14 = hr_api.g_varchar2) then
1306     p_rec.attribute14 :=
1307     ghr_cmp_shd.g_old_rec.attribute14;
1308   End If;
1309   If (p_rec.attribute15 = hr_api.g_varchar2) then
1310     p_rec.attribute15 :=
1311     ghr_cmp_shd.g_old_rec.attribute15;
1312   End If;
1313   If (p_rec.attribute16 = hr_api.g_varchar2) then
1314     p_rec.attribute16 :=
1315     ghr_cmp_shd.g_old_rec.attribute16;
1316   End If;
1317   If (p_rec.attribute17 = hr_api.g_varchar2) then
1318     p_rec.attribute17 :=
1319     ghr_cmp_shd.g_old_rec.attribute17;
1320   End If;
1321   If (p_rec.attribute18 = hr_api.g_varchar2) then
1322     p_rec.attribute18 :=
1323     ghr_cmp_shd.g_old_rec.attribute18;
1324   End If;
1325   If (p_rec.attribute19 = hr_api.g_varchar2) then
1326     p_rec.attribute19 :=
1327     ghr_cmp_shd.g_old_rec.attribute19;
1328   End If;
1329   If (p_rec.attribute20 = hr_api.g_varchar2) then
1330     p_rec.attribute20 :=
1331     ghr_cmp_shd.g_old_rec.attribute20;
1332   End If;
1333   If (p_rec.attribute21 = hr_api.g_varchar2) then
1334     p_rec.attribute21 :=
1335     ghr_cmp_shd.g_old_rec.attribute21;
1336   End If;
1337   If (p_rec.attribute22 = hr_api.g_varchar2) then
1338     p_rec.attribute22 :=
1339     ghr_cmp_shd.g_old_rec.attribute22;
1340   End If;
1341   If (p_rec.attribute23 = hr_api.g_varchar2) then
1342     p_rec.attribute23 :=
1343     ghr_cmp_shd.g_old_rec.attribute23;
1344   End If;
1345   If (p_rec.attribute24 = hr_api.g_varchar2) then
1346     p_rec.attribute24 :=
1347     ghr_cmp_shd.g_old_rec.attribute24;
1348   End If;
1349   If (p_rec.attribute25 = hr_api.g_varchar2) then
1350     p_rec.attribute25 :=
1351     ghr_cmp_shd.g_old_rec.attribute25;
1352   End If;
1353   If (p_rec.attribute26 = hr_api.g_varchar2) then
1354     p_rec.attribute26 :=
1355     ghr_cmp_shd.g_old_rec.attribute26;
1356   End If;
1357   If (p_rec.attribute27 = hr_api.g_varchar2) then
1358     p_rec.attribute27 :=
1359     ghr_cmp_shd.g_old_rec.attribute27;
1360   End If;
1361   If (p_rec.attribute28 = hr_api.g_varchar2) then
1362     p_rec.attribute28 :=
1363     ghr_cmp_shd.g_old_rec.attribute28;
1364   End If;
1365   If (p_rec.attribute29 = hr_api.g_varchar2) then
1366     p_rec.attribute29 :=
1367     ghr_cmp_shd.g_old_rec.attribute29;
1368   End If;
1369   If (p_rec.attribute30 = hr_api.g_varchar2) then
1370     p_rec.attribute30 :=
1371     ghr_cmp_shd.g_old_rec.attribute30;
1372   End If;
1373 
1374   --
1375 End convert_defs;
1376 --
1377 -- ----------------------------------------------------------------------------
1378 -- |---------------------------------< upd >----------------------------------|
1379 -- ----------------------------------------------------------------------------
1380 Procedure upd
1381   (p_effective_date               in date
1382   ,p_rec                          in out nocopy ghr_cmp_shd.g_rec_type
1383   ) is
1384 --
1385   l_proc  varchar2(72) := g_package||'upd';
1386 --
1387 Begin
1388   hr_utility.set_location('Entering:'||l_proc, 5);
1389   --
1390   -- We must lock the row which we need to update.
1391   --
1392   ghr_cmp_shd.lck
1393     (p_rec.complaint_id
1394     ,p_rec.object_version_number
1395     );
1396   --
1397   -- 1. During an update system defaults are used to determine if
1398   --    arguments have been defaulted or not. We must therefore
1399   --    derive the full record structure values to be updated.
1400   --
1401   -- 2. Call the supporting update validate operations.
1402   --
1403   convert_defs(p_rec);
1404   ghr_cmp_bus.update_validate
1405      (p_effective_date
1406      ,p_rec
1407      );
1408   --
1409   -- Call the supporting pre-update operation
1410   --
1411   ghr_cmp_upd.pre_update(p_rec);
1412   --
1413   -- Update the row.
1414   --
1415   ghr_cmp_upd.update_dml(p_rec);
1416   --
1417   -- Call the supporting post-update operation
1418   --
1419   ghr_cmp_upd.post_update
1420      (p_effective_date
1421      ,p_rec
1422      );
1423 End upd;
1424 --
1425 -- ----------------------------------------------------------------------------
1426 -- |---------------------------------< upd >----------------------------------|
1427 -- ----------------------------------------------------------------------------
1428 Procedure upd
1429   (p_effective_date               in     date
1430   ,p_complaint_id                 in     number
1431   ,p_object_version_number        in out nocopy number
1432   ,p_complainant_person_id        in     number
1433   ,p_business_group_id            in     number
1434   ,p_docket_number                in     varchar2
1435   ,p_stage                        in     varchar2
1436   ,p_class_flag                   in     varchar2
1437   ,p_mixed_flag                   in     varchar2
1438   ,p_consolidated_flag            in     varchar2
1439   ,p_remand_flag                  in     varchar2
1440   ,p_active_flag                  in     varchar2
1441   ,p_information_inquiry          in     date
1442   ,p_pcom_init                    in     date
1443   ,p_alleg_incident               in     date
1444   ,p_alleg_discrim_org_id         in     number
1445   ,p_rr_ltr_date                  in     date
1446   ,p_rr_ltr_recvd                 in     date
1447   ,p_pre_com_elec                 in     varchar2
1448   --,p_adr_offered                  in     varchar2
1449   ,p_class_agent_flag             in     varchar2
1450   ,p_pre_com_desc                 in     varchar2
1451   ,p_counselor_asg                in     date
1452   ,p_init_counselor_interview     in     date
1453   ,p_anonymity_requested          in     varchar2
1454   ,p_counsel_ext_ltr              in     date
1455   ,p_traditional_counsel_outcome  in     varchar2
1456   ,p_final_interview              in     date
1457   ,p_notice_rtf_recvd             in     date
1458   ,p_precom_closed                in     date
1459   ,p_precom_closure_nature        in     varchar2
1460   ,p_counselor_rpt_sub            in     date
1461   ,p_hr_office_org_id             in     number
1462   ,p_eeo_office_org_id            in     number
1463   ,p_serviced_org_id              in     number
1464   ,p_formal_com_filed             in     date
1465   ,p_ack_ltr                      in     date
1466   ,p_clarification_ltr_date       in     date
1467   ,p_clarification_response_recvd in     date
1468   ,p_forwarded_legal_review       in     date
1469   ,p_returned_from_legal          in     date
1470   ,p_letter_type                  in     varchar2
1471   ,p_letter_date                  in     date
1472   ,p_letter_recvd                 in     date
1473   ,p_investigation_source         in     varchar2
1474   ,p_investigator_recvd_req       in     date
1475   ,p_agency_investigator_req      in     date
1476   ,p_investigator_asg             in     date
1477   ,p_investigation_start          in     date
1478   ,p_investigation_end            in     date
1479   ,p_investigation_extended       in     date
1480   ,p_invest_extension_desc        in     varchar2
1481   ,p_agency_recvd_roi             in     date
1482   ,p_comrep_recvd_roi             in     date
1483   ,p_options_ltr_date             in     date
1484   ,p_comrep_recvd_opt_ltr         in     date
1485   ,p_comrep_opt_ltr_response      in     varchar2
1486   ,p_resolution_offer             in     date
1487   ,p_comrep_resol_offer_recvd     in     date
1488   ,p_comrep_resol_offer_response  in     date
1489   ,p_comrep_resol_offer_desc      in     varchar2
1490   ,p_resol_offer_signed           in     date
1491   ,p_resol_offer_desc             in     varchar2
1492   ,p_hearing_source               in     varchar2
1493   ,p_agency_notified_hearing      in     date
1494   ,p_eeoc_hearing_docket_num      in     varchar2
1495   ,p_hearing_complete             in     date
1496   ,p_aj_merit_decision_date       in     date
1497   ,p_agency_recvd_aj_merit_dec    in     date
1498   ,p_aj_merit_decision            in     varchar2
1499   ,p_aj_ca_decision_date          in     date
1500   ,p_agency_recvd_aj_ca_dec       in     date
1501   ,p_aj_ca_decision               in     varchar2
1502   ,p_fad_requested                in     date
1503   ,p_merit_fad                    in     varchar2
1504   ,p_attorney_fees_fad            in     varchar2
1505   ,p_comp_damages_fad             in     varchar2
1506   ,p_non_compliance_fad           in     varchar2
1507   ,p_fad_req_recvd_eeo_office     in     date
1508   ,p_fad_req_forwd_to_agency      in     date
1509   ,p_agency_recvd_request         in     date
1510   ,p_fad_due                      in     date
1511   ,p_fad_date                     in     date
1512   ,p_fad_decision                 in     varchar2
1513   --p_fad_final_action_closure     in     varchar2
1514   ,p_fad_forwd_to_comrep          in     date
1515   ,p_fad_recvd_by_comrep          in     date
1516   ,p_fad_imp_ltr_forwd_to_org     in     date
1517   ,p_fad_decision_forwd_legal     in     date
1518   ,p_fad_decision_recvd_legal     in     date
1519   ,p_fa_source                    in     varchar2
1520   ,p_final_action_due             in     date
1521   --,p_final_action_nature_of_closu in     varchar2
1522   ,p_final_act_forwd_comrep       in     date
1523   ,p_final_act_recvd_comrep       in     date
1524   ,p_final_action_decision_date   in     date
1525   ,p_final_action_decision        in     varchar2
1526   ,p_fa_imp_ltr_forwd_to_org      in     date
1527   ,p_fa_decision_forwd_legal      in     date
1528   ,p_fa_decision_recvd_legal      in     date
1529   ,p_civil_action_filed           in     date
1530   ,p_agency_closure_confirmed     in     date
1531   ,p_consolidated_complaint_id    in     number
1532   ,p_consolidated                 in     date
1533   ,p_stage_of_consolidation       in     varchar2
1534   ,p_comrep_notif_consolidation   in     date
1535   ,p_consolidation_desc           in     varchar2
1536   ,p_complaint_closed             in     date
1537   ,p_nature_of_closure            in     varchar2
1538   ,p_complaint_closed_desc        in     varchar2
1539   ,p_filed_formal_class           in     date
1540   ,p_forwd_eeoc                   in     date
1541   ,p_aj_cert_decision_date        in     date
1542   ,p_aj_cert_decision_recvd       in     date
1543   ,p_aj_cert_decision             in     varchar2
1544   ,p_class_members_notified       in     date
1545   ,p_number_of_complaintants      in     number
1546   ,p_class_hearing                in     date
1547   ,p_aj_dec                       in     date
1548   ,p_agency_recvd_aj_dec          in     date
1549   ,p_aj_decision                  in     varchar2
1550   ,p_agency_brief_eeoc            in     date
1551   ,p_agency_notif_of_civil_action in     date
1552   ,p_fad_source                   in     varchar2
1553   ,p_agency_files_forwarded_eeoc  in     date
1554   ,p_hearing_req                  in     date
1555   ,p_agency_code                  in     varchar2
1556   ,p_audited_by                   in     varchar2
1557   ,p_record_received              in     date
1558   ,p_attribute_category           in     varchar2
1559   ,p_attribute1                   in     varchar2
1560   ,p_attribute2                   in     varchar2
1561   ,p_attribute3                   in     varchar2
1562   ,p_attribute4                   in     varchar2
1563   ,p_attribute5                   in     varchar2
1564   ,p_attribute6                   in     varchar2
1565   ,p_attribute7                   in     varchar2
1566   ,p_attribute8                   in     varchar2
1567   ,p_attribute9                   in     varchar2
1568   ,p_attribute10                  in     varchar2
1569   ,p_attribute11                  in     varchar2
1570   ,p_attribute12                  in     varchar2
1571   ,p_attribute13                  in     varchar2
1572   ,p_attribute14                  in     varchar2
1573   ,p_attribute15                  in     varchar2
1574   ,p_attribute16                  in     varchar2
1575   ,p_attribute17                  in     varchar2
1576   ,p_attribute18                  in     varchar2
1577   ,p_attribute19                  in     varchar2
1578   ,p_attribute20                  in     varchar2
1579   ,p_attribute21                  in     varchar2
1580   ,p_attribute22                  in     varchar2
1581   ,p_attribute23                  in     varchar2
1582   ,p_attribute24                  in     varchar2
1583   ,p_attribute25                  in     varchar2
1584   ,p_attribute26                  in     varchar2
1585   ,p_attribute27                  in     varchar2
1586   ,p_attribute28                  in     varchar2
1587   ,p_attribute29                  in     varchar2
1588   ,p_attribute30                  in     varchar2
1589   ) is
1590 --
1591   l_rec   ghr_cmp_shd.g_rec_type;
1592   l_proc  varchar2(72) := g_package||'upd';
1593 --
1594 Begin
1595   hr_utility.set_location('Entering:'||l_proc, 5);
1596   --
1597   -- Call conversion function to turn arguments into the
1598   -- l_rec structure.
1599   --
1600   l_rec :=
1601   ghr_cmp_shd.convert_args
1602   (p_complaint_id
1603   ,p_complainant_person_id
1604   ,p_business_group_id
1605   ,p_docket_number
1606   ,p_stage
1607   ,p_class_flag
1608   ,p_mixed_flag
1609   ,p_consolidated_flag
1610   ,p_remand_flag
1611   ,p_active_flag
1612   ,p_information_inquiry
1613   ,p_pcom_init
1614   ,p_alleg_incident
1615   ,p_alleg_discrim_org_id
1616   ,p_rr_ltr_date
1617   ,p_rr_ltr_recvd
1618   ,p_pre_com_elec
1619   --,p_adr_offered
1620   ,p_class_agent_flag
1621   ,p_pre_com_desc
1622   ,p_counselor_asg
1623   ,p_init_counselor_interview
1624   ,p_anonymity_requested
1625   ,p_counsel_ext_ltr
1626   ,p_traditional_counsel_outcome
1627   ,p_final_interview
1628   ,p_notice_rtf_recvd
1629   ,p_precom_closed
1630   ,p_precom_closure_nature
1631   ,p_counselor_rpt_sub
1632   ,p_hr_office_org_id
1633   ,p_eeo_office_org_id
1634   ,p_serviced_org_id
1635   ,p_formal_com_filed
1636   ,p_ack_ltr
1637   ,p_clarification_ltr_date
1638   ,p_clarification_response_recvd
1639   ,p_forwarded_legal_review
1640   ,p_returned_from_legal
1641   ,p_letter_type
1642   ,p_letter_date
1643   ,p_letter_recvd
1644   ,p_investigation_source
1645   ,p_investigator_recvd_req
1646   ,p_agency_investigator_req
1647   ,p_investigator_asg
1648   ,p_investigation_start
1649   ,p_investigation_end
1650   ,p_investigation_extended
1651   ,p_invest_extension_desc
1652   ,p_agency_recvd_roi
1653   ,p_comrep_recvd_roi
1654   ,p_options_ltr_date
1655   ,p_comrep_recvd_opt_ltr
1656   ,p_comrep_opt_ltr_response
1657   ,p_resolution_offer
1658   ,p_comrep_resol_offer_recvd
1659   ,p_comrep_resol_offer_response
1660   ,p_comrep_resol_offer_desc
1661   ,p_resol_offer_signed
1662   ,p_resol_offer_desc
1663   ,p_hearing_source
1664   ,p_agency_notified_hearing
1665   ,p_eeoc_hearing_docket_num
1666   ,p_hearing_complete
1667   ,p_aj_merit_decision_date
1668   ,p_agency_recvd_aj_merit_dec
1669   ,p_aj_merit_decision
1670   ,p_aj_ca_decision_date
1671   ,p_agency_recvd_aj_ca_dec
1672   ,p_aj_ca_decision
1673   ,p_fad_requested
1674   ,p_merit_fad
1675   ,p_attorney_fees_fad
1676   ,p_comp_damages_fad
1677   ,p_non_compliance_fad
1678   ,p_fad_req_recvd_eeo_office
1679   ,p_fad_req_forwd_to_agency
1680   ,p_agency_recvd_request
1681   ,p_fad_due
1682   ,p_fad_date
1683   ,p_fad_decision
1684   --,p_fad_final_action_closure
1685   ,p_fad_forwd_to_comrep
1686   ,p_fad_recvd_by_comrep
1687   ,p_fad_imp_ltr_forwd_to_org
1688   ,p_fad_decision_forwd_legal
1689   ,p_fad_decision_recvd_legal
1690   ,p_fa_source
1691   ,p_final_action_due
1692   --,p_final_action_nature_of_closu
1693   ,p_final_act_forwd_comrep
1694   ,p_final_act_recvd_comrep
1695   ,p_final_action_decision_date
1696   ,p_final_action_decision
1697   ,p_fa_imp_ltr_forwd_to_org
1698   ,p_fa_decision_forwd_legal
1699   ,p_fa_decision_recvd_legal
1700   ,p_civil_action_filed
1701   ,p_agency_closure_confirmed
1702   ,p_consolidated_complaint_id
1703   ,p_consolidated
1704   ,p_stage_of_consolidation
1705   ,p_comrep_notif_consolidation
1706   ,p_consolidation_desc
1707   ,p_complaint_closed
1708   ,p_nature_of_closure
1709   ,p_complaint_closed_desc
1710   ,p_filed_formal_class
1711   ,p_forwd_eeoc
1712   ,p_aj_cert_decision_date
1713   ,p_aj_cert_decision_recvd
1714   ,p_aj_cert_decision
1715   ,p_class_members_notified
1716   ,p_number_of_complaintants
1717   ,p_class_hearing
1718   ,p_aj_dec
1719   ,p_agency_recvd_aj_dec
1720   ,p_aj_decision
1721   ,p_object_version_number
1722   ,p_agency_brief_eeoc
1723   ,p_agency_notif_of_civil_action
1724   ,p_fad_source
1725   ,p_agency_files_forwarded_eeoc
1726   ,p_hearing_req
1727   ,p_agency_code
1728   ,p_audited_by
1729   ,p_record_received
1730   ,p_attribute_category
1731   ,p_attribute1
1732   ,p_attribute2
1733   ,p_attribute3
1734   ,p_attribute4
1735   ,p_attribute5
1736   ,p_attribute6
1737   ,p_attribute7
1738   ,p_attribute8
1739   ,p_attribute9
1740   ,p_attribute10
1741   ,p_attribute11
1742   ,p_attribute12
1743   ,p_attribute13
1744   ,p_attribute14
1745   ,p_attribute15
1746   ,p_attribute16
1747   ,p_attribute17
1748   ,p_attribute18
1749   ,p_attribute19
1750   ,p_attribute20
1751   ,p_attribute21
1752   ,p_attribute22
1753   ,p_attribute23
1754   ,p_attribute24
1755   ,p_attribute25
1756   ,p_attribute26
1757   ,p_attribute27
1758   ,p_attribute28
1759   ,p_attribute29
1760   ,p_attribute30
1761   );
1762   --
1763   -- Having converted the arguments into the
1764   -- plsql record structure we call the corresponding record
1765   -- business process.
1766   --
1767   ghr_cmp_upd.upd
1768      (p_effective_date
1769      ,l_rec
1770      );
1771   p_object_version_number := l_rec.object_version_number;
1772   --
1773   hr_utility.set_location(' Leaving:'||l_proc, 10);
1774 End upd;
1775 --
1776 end ghr_cmp_upd;