[Home] [Help]
PACKAGE BODY: APPS.PAY_AUD_SHD
Source
1 Package Body pay_aud_shd as
2 /* $Header: pyaudrhi.pkb 115.4 2002/12/09 10:29:32 alogue ship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' pay_aud_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_stat_trans_AUDIT_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 Else
27 fnd_message.set_name('PAY', 'HR_7877_API_INVALID_CONSTRAINT');
28 fnd_message.set_token('PROCEDURE', l_proc);
29 fnd_message.set_token('CONSTRAINT_NAME', p_constraint_name);
30 fnd_message.raise_error;
31 End If;
32 --
33 End constraint_error;
34 -- ----------------------------------------------------------------------------
35 -- |---------------------------------< lck >----------------------------------|
36 -- ----------------------------------------------------------------------------
37 Procedure lck
38 (p_stat_trans_audit_id in number
39 ,p_object_version_number in number
40 ) is
41 --
42 -- Cursor selects the 'current' row from the HR Schema
43 --
44 Cursor C_Sel1 is
45 select
46 stat_trans_audit_id
47 ,transaction_type
48 ,transaction_subtype
49 ,transaction_date
50 ,transaction_effective_date
51 ,business_group_id
52 ,person_id
53 ,assignment_id
54 ,source1
55 ,source1_type
56 ,source2
57 ,source2_type
58 ,source3
59 ,source3_type
60 ,source4
61 ,source4_type
62 ,source5
63 ,source5_type
64 ,transaction_parent_id
65 ,audit_information_category
66 ,audit_information1
67 ,audit_information2
68 ,audit_information3
69 ,audit_information4
70 ,audit_information5
71 ,audit_information6
72 ,audit_information7
73 ,audit_information8
74 ,audit_information9
75 ,audit_information10
76 ,audit_information11
77 ,audit_information12
78 ,audit_information13
79 ,audit_information14
80 ,audit_information15
81 ,audit_information16
82 ,audit_information17
83 ,audit_information18
84 ,audit_information19
85 ,audit_information20
86 ,audit_information21
87 ,audit_information22
88 ,audit_information23
89 ,audit_information24
90 ,audit_information25
91 ,audit_information26
92 ,audit_information27
93 ,audit_information28
94 ,audit_information29
95 ,audit_information30
96 ,title
97 ,object_version_number
98 from pay_stat_trans_audit
99 where stat_trans_audit_id = p_stat_trans_audit_id
100 for update nowait;
101 --
102 l_proc varchar2(72) := g_package||'lck';
103 --
104 Begin
105 hr_utility.set_location('Entering:'||l_proc, 5);
106 --
107 hr_api.mandatory_arg_error
108 (p_api_name => l_proc
109 ,p_argument => 'STAT_TRANS_AUDIT_ID'
110 ,p_argument_value => p_stat_trans_audit_id
111 );
112 --
113 Open C_Sel1;
114 Fetch C_Sel1 Into pay_aud_shd.g_old_rec;
115 If C_Sel1%notfound then
116 Close C_Sel1;
117 --
118 -- The primary key is invalid therefore we must error
119 --
120 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
121 fnd_message.raise_error;
122 End If;
123 Close C_Sel1;
124 If (p_object_version_number
125 <> pay_aud_shd.g_old_rec.object_version_number) Then
126 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
127 fnd_message.raise_error;
128 End If;
129 --
130 hr_utility.set_location(' Leaving:'||l_proc, 10);
131 --
132 -- We need to trap the ORA LOCK exception
133 --
134 Exception
135 When HR_Api.Object_Locked then
136 --
137 -- The object is locked therefore we need to supply a meaningful
138 -- error message.
139 --
140 fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
141 fnd_message.set_token('TABLE_NAME', 'pay_stat_trans_audit');
142 fnd_message.raise_error;
143 End lck;
144 --
145 -- ----------------------------------------------------------------------------
146 -- |-----------------------------< convert_args >-----------------------------|
147 -- ----------------------------------------------------------------------------
148 Function convert_args
149 (p_stat_trans_audit_id in number
150 ,p_transaction_type in varchar2
151 ,p_transaction_subtype in varchar2
152 ,p_transaction_date in date
153 ,p_transaction_effective_date in date
154 ,p_business_group_id in number
155 ,p_person_id in number
156 ,p_assignment_id in number
157 ,p_source1 in varchar2
158 ,p_source1_type in varchar2
159 ,p_source2 in varchar2
160 ,p_source2_type in varchar2
161 ,p_source3 in varchar2
162 ,p_source3_type in varchar2
163 ,p_source4 in varchar2
164 ,p_source4_type in varchar2
165 ,p_source5 in varchar2
166 ,p_source5_type in varchar2
167 ,p_transaction_parent_id in number
168 ,p_audit_information_category in varchar2
169 ,p_audit_information1 in varchar2
170 ,p_audit_information2 in varchar2
171 ,p_audit_information3 in varchar2
172 ,p_audit_information4 in varchar2
173 ,p_audit_information5 in varchar2
174 ,p_audit_information6 in varchar2
175 ,p_audit_information7 in varchar2
176 ,p_audit_information8 in varchar2
177 ,p_audit_information9 in varchar2
178 ,p_audit_information10 in varchar2
179 ,p_audit_information11 in varchar2
180 ,p_audit_information12 in varchar2
181 ,p_audit_information13 in varchar2
182 ,p_audit_information14 in varchar2
183 ,p_audit_information15 in varchar2
184 ,p_audit_information16 in varchar2
185 ,p_audit_information17 in varchar2
186 ,p_audit_information18 in varchar2
187 ,p_audit_information19 in varchar2
188 ,p_audit_information20 in varchar2
189 ,p_audit_information21 in varchar2
190 ,p_audit_information22 in varchar2
191 ,p_audit_information23 in varchar2
192 ,p_audit_information24 in varchar2
193 ,p_audit_information25 in varchar2
194 ,p_audit_information26 in varchar2
195 ,p_audit_information27 in varchar2
196 ,p_audit_information28 in varchar2
197 ,p_audit_information29 in varchar2
198 ,p_audit_information30 in varchar2
199 ,p_title in varchar2
200 ,p_object_version_number in number
201 )
202 Return g_rec_type is
203 --
204 l_rec g_rec_type;
205 --
206 Begin
207 --
208 -- Convert arguments into local l_rec structure.
209 --
210 l_rec.stat_trans_audit_id := p_stat_trans_audit_id;
211 l_rec.transaction_type := p_transaction_type;
212 l_rec.transaction_subtype := p_transaction_subtype;
213 l_rec.transaction_date := p_transaction_date;
214 l_rec.transaction_effective_date := p_transaction_effective_date;
215 l_rec.business_group_id := p_business_group_id;
216 l_rec.person_id := p_person_id;
217 l_rec.assignment_id := p_assignment_id;
218 l_rec.source1 := p_source1;
219 l_rec.source1_type := p_source1_type;
220 l_rec.source2 := p_source2;
221 l_rec.source2_type := p_source2_type;
222 l_rec.source3 := p_source3;
223 l_rec.source3_type := p_source3_type;
224 l_rec.source4 := p_source4;
225 l_rec.source4_type := p_source4_type;
226 l_rec.source5 := p_source5;
227 l_rec.source5_type := p_source5_type;
228 l_rec.transaction_parent_id := p_transaction_parent_id;
229 l_rec.audit_information_category := p_audit_information_category;
230 l_rec.audit_information1 := p_audit_information1;
231 l_rec.audit_information2 := p_audit_information2;
232 l_rec.audit_information3 := p_audit_information3;
233 l_rec.audit_information4 := p_audit_information4;
234 l_rec.audit_information5 := p_audit_information5;
235 l_rec.audit_information6 := p_audit_information6;
236 l_rec.audit_information7 := p_audit_information7;
237 l_rec.audit_information8 := p_audit_information8;
238 l_rec.audit_information9 := p_audit_information9;
239 l_rec.audit_information10 := p_audit_information10;
240 l_rec.audit_information11 := p_audit_information11;
241 l_rec.audit_information12 := p_audit_information12;
242 l_rec.audit_information13 := p_audit_information13;
243 l_rec.audit_information14 := p_audit_information14;
244 l_rec.audit_information15 := p_audit_information15;
245 l_rec.audit_information16 := p_audit_information16;
246 l_rec.audit_information17 := p_audit_information17;
247 l_rec.audit_information18 := p_audit_information18;
248 l_rec.audit_information19 := p_audit_information19;
249 l_rec.audit_information20 := p_audit_information20;
250 l_rec.audit_information21 := p_audit_information21;
251 l_rec.audit_information22 := p_audit_information22;
252 l_rec.audit_information23 := p_audit_information23;
253 l_rec.audit_information24 := p_audit_information24;
254 l_rec.audit_information25 := p_audit_information25;
255 l_rec.audit_information26 := p_audit_information26;
256 l_rec.audit_information27 := p_audit_information27;
257 l_rec.audit_information28 := p_audit_information28;
258 l_rec.audit_information29 := p_audit_information29;
259 l_rec.audit_information30 := p_audit_information30;
260 l_rec.title := p_title;
261 l_rec.object_version_number := p_object_version_number;
262 --
263 -- Return the plsql record structure.
264 --
265 Return(l_rec);
266 --
267 End convert_args;
268 --
269 end pay_aud_shd;