17: l_proc varchar2(72) := g_package||'constraint_error';
18: --
19: Begin
20: --
21: If (p_constraint_name = 'GHR_COMPL_CLAIMS_FK1') Then
22: fnd_message.set_name('GHR','GHR_38700_INVALID_COMPLAINT');
23: fnd_message.set_token('PROCEDURE', l_proc);
24: fnd_message.set_token('STEP','5');
25: fnd_message.raise_error;
22: fnd_message.set_name('GHR','GHR_38700_INVALID_COMPLAINT');
23: fnd_message.set_token('PROCEDURE', l_proc);
24: fnd_message.set_token('STEP','5');
25: fnd_message.raise_error;
26: Elsif (p_constraint_name = 'GHR_COMPL_CLAIMS_PK') Then
27: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
28: fnd_message.set_token('PROCEDURE', l_proc);
29: fnd_message.set_token('STEP','10');
30: fnd_message.raise_error;
61: ,agency_acceptance
62: ,aj_acceptance
63: ,agency_appeal
64: ,object_version_number
65: from ghr_compl_claims
66: where compl_claim_id = p_compl_claim_id;
67: --
68: l_fct_ret boolean;
69: --
137: ,agency_acceptance
138: ,aj_acceptance
139: ,agency_appeal
140: ,object_version_number
141: from ghr_compl_claims
142: where compl_claim_id = p_compl_claim_id
143: for update nowait;
144: --
145: l_proc varchar2(72) := g_package||'lck';
189: -- The object is locked therefore we need to supply a meaningful
190: -- error message.
191: --
192: fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
193: fnd_message.set_token('TABLE_NAME', 'ghr_compl_claims');
194: fnd_message.raise_error;
195: End lck;
196: --
197: -- ----------------------------------------------------------------------------