[Home] [Help]
PACKAGE BODY: APPS.PAY_EVP_SHD
Source
1 Package Body pay_evp_shd as
2 /* $Header: pyevprhi.pkb 115.5 2002/12/10 18:44:32 dsaxby noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' pay_evp_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 = 'PAY_EVENT_PROCEDURES_FK1') 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 = 'PAY_EVENT_PROCEDURE_PK') Then
27 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
28 fnd_message.set_token('PROCEDURE', l_proc);
29 fnd_message.set_token('STEP','10');
30 fnd_message.raise_error;
31 Else
32 fnd_message.set_name('PAY', 'HR_7877_API_INVALID_CONSTRAINT');
33 fnd_message.set_token('PROCEDURE', l_proc);
34 fnd_message.set_token('CONSTRAINT_NAME', p_constraint_name);
35 fnd_message.raise_error;
36 End If;
37 --
38 End constraint_error;
39 --
40 -- ----------------------------------------------------------------------------
41 -- |-----------------------------< api_updating >-----------------------------|
42 -- ----------------------------------------------------------------------------
43 Function api_updating
44 (p_event_procedure_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 event_procedure_id
55 ,dated_table_id
56 ,procedure_name
57 ,business_group_id
58 ,legislation_code
59 ,column_name
60 ,object_version_number
61 from pay_event_procedures
62 where event_procedure_id = p_event_procedure_id;
63 --
64 l_fct_ret boolean;
65 --
66 Begin
67 --
68 If (p_event_procedure_id is null and
69 p_object_version_number is null
70 ) Then
71 --
72 -- One of the primary key arguments is null therefore we must
73 -- set the returning function value to false
74 --
75 l_fct_ret := false;
76 Else
77 If (p_event_procedure_id
78 = pay_evp_shd.g_old_rec.event_procedure_id and
79 p_object_version_number
80 = pay_evp_shd.g_old_rec.object_version_number
81 ) Then
82 --
83 -- The g_old_rec is current therefore we must
84 -- set the returning function to true
85 --
86 l_fct_ret := true;
87 Else
88 --
89 -- Select the current row into g_old_rec
90 --
91 Open C_Sel1;
92 Fetch C_Sel1 Into pay_evp_shd.g_old_rec;
93 If C_Sel1%notfound Then
94 Close C_Sel1;
95 --
96 -- The primary key is invalid therefore we must error
97 --
98 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
99 fnd_message.raise_error;
100 End If;
101 Close C_Sel1;
102 If (p_object_version_number
103 <> pay_evp_shd.g_old_rec.object_version_number) Then
104 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
105 fnd_message.raise_error;
106 End If;
107 l_fct_ret := true;
108 End If;
109 End If;
110 Return (l_fct_ret);
111 --
112 End api_updating;
113 --
114 -- ----------------------------------------------------------------------------
115 -- |---------------------------------< lck >----------------------------------|
116 -- ----------------------------------------------------------------------------
117 Procedure lck
118 (p_event_procedure_id in number
119 ,p_object_version_number in number
120 ) is
121 --
122 -- Cursor selects the 'current' row from the HR Schema
123 --
124 Cursor C_Sel1 is
125 select
126 event_procedure_id
127 ,dated_table_id
128 ,procedure_name
129 ,business_group_id
130 ,legislation_code
131 ,column_name
132 ,object_version_number
133 from pay_event_procedures
134 where event_procedure_id = p_event_procedure_id
135 for update nowait;
136 --
137 l_proc varchar2(72) := g_package||'lck';
138 --
139 Begin
140 hr_utility.set_location('Entering:'||l_proc, 5);
141 --
142 hr_api.mandatory_arg_error
143 (p_api_name => l_proc
144 ,p_argument => 'EVENT_PROCEDURE_ID'
145 ,p_argument_value => p_event_procedure_id
146 );
147 --
148 Open C_Sel1;
149 Fetch C_Sel1 Into pay_evp_shd.g_old_rec;
150 If C_Sel1%notfound then
151 Close C_Sel1;
152 --
153 -- The primary key is invalid therefore we must error
154 --
155 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
156 fnd_message.raise_error;
157 End If;
158 Close C_Sel1;
159 If (p_object_version_number
160 <> pay_evp_shd.g_old_rec.object_version_number) Then
161 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
162 fnd_message.raise_error;
163 End If;
164 --
165 hr_utility.set_location(' Leaving:'||l_proc, 10);
166 --
167 -- We need to trap the ORA LOCK exception
168 --
169 Exception
170 When HR_Api.Object_Locked then
171 --
172 -- The object is locked therefore we need to supply a meaningful
173 -- error message.
174 --
175 fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
176 fnd_message.set_token('TABLE_NAME', 'pay_event_procedures');
177 fnd_message.raise_error;
178 End lck;
179 --
180 -- ----------------------------------------------------------------------------
181 -- |-----------------------------< convert_args >-----------------------------|
182 -- ----------------------------------------------------------------------------
183 Function convert_args
184 (p_event_procedure_id in number
185 ,p_dated_table_id in number
186 ,p_procedure_name in varchar2
187 ,p_business_group_id in number
188 ,p_legislation_code in varchar2
189 ,p_column_name in varchar2
190 ,p_object_version_number in number
191 )
192 Return g_rec_type is
193 --
194 l_rec g_rec_type;
195 --
196 Begin
197 --
198 -- Convert arguments into local l_rec structure.
199 --
200 l_rec.event_procedure_id := p_event_procedure_id;
201 l_rec.dated_table_id := p_dated_table_id;
202 l_rec.procedure_name := p_procedure_name;
203 l_rec.business_group_id := p_business_group_id;
204 l_rec.legislation_code := p_legislation_code;
205 l_rec.column_name := p_column_name;
206 l_rec.object_version_number := p_object_version_number;
207 --
208 -- Return the plsql record structure.
209 --
210 Return(l_rec);
211 --
212 End convert_args;
213 --
214 end pay_evp_shd;