[Home] [Help]
PACKAGE BODY: APPS.OZF_CLAIM_LINE_HIST_PVT
Source
1 PACKAGE BODY OZF_Claim_Line_Hist_PVT as
2 /* $Header: ozfvclhb.pls 120.1 2005/09/15 22:40:17 appldev ship $ */
3 -- ===============================================================
4 -- Start of Comments
5 -- Package name
6 -- OZF_Claim_Line_Hist_PVT
7 -- Purpose
8 --
9 -- History
10 --
11 -- MCHANG 23-OCT-2001 Remove security_group_id.
12 --
13 -- NOTE
14 --
15 -- End of Comments
16 -- ===============================================================
17
18
19 G_PKG_NAME CONSTANT VARCHAR2(30) := 'OZF_Claim_Line_Hist_PVT';
20 G_FILE_NAME CONSTANT VARCHAR2(12) := 'ozfvclhb.pls';
21
22 G_DEBUG BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
23
24 PROCEDURE Create_Claim_Line_Hist(
25 p_api_version_number IN NUMBER,
26 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
27 p_commit IN VARCHAR2 := FND_API.G_FALSE,
28 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
29
30 x_return_status OUT NOCOPY VARCHAR2,
31 x_msg_count OUT NOCOPY NUMBER,
32 x_msg_data OUT NOCOPY VARCHAR2,
33
34 p_claim_line_hist_rec IN claim_line_hist_rec_type := g_miss_claim_line_hist_rec,
35 x_claim_line_history_id OUT NOCOPY NUMBER
36 )
37 IS
38 l_api_name CONSTANT VARCHAR2(30) := 'Create_Claim_Line_Hist';
39 l_api_version_number CONSTANT NUMBER := 1.0;
40 l_return_status_full VARCHAR2(1);
41 l_object_version_number NUMBER := 1;
42 l_org_id NUMBER;
43 l_claim_line_history_id NUMBER;
44 l_dummy NUMBER;
45 l_claim_line_hist_rec claim_line_hist_rec_type := p_claim_line_hist_rec;
46
47 CURSOR c_id IS
48 SELECT OZF_CLAIM_LINES_HIST_ALL_s.NEXTVAL
49 FROM dual;
50
51 CURSOR c_id_exists (l_id IN NUMBER) IS
52 SELECT 1
53 FROM OZF_CLAIM_LINES_HIST_ALL
54 WHERE CLAIM_LINE_HISTORY_ID = l_id;
55
56 BEGIN
57 -- Standard Start of API savepoint
58 SAVEPOINT CREATE_Claim_Line_Hist_PVT;
59
60 -- Standard call to check for call compatibility.
61 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
62 p_api_version_number,
63 l_api_name,
64 G_PKG_NAME) THEN
65 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
66 END IF;
67
68 -- Initialize message list if p_init_msg_list is set to TRUE.
69 IF FND_API.to_Boolean(p_init_msg_list) THEN
70 FND_MSG_PUB.initialize;
71 END IF;
72
73 -- Debug Message
74 IF g_debug THEN
75 OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
76 END IF;
77
78 -- Initialize API return status to SUCCESS
79 x_return_status := FND_API.G_RET_STS_SUCCESS;
80
81 -- Local variable initialization
82
83 IF p_claim_line_hist_rec.claim_line_history_id IS NULL OR
84 p_claim_line_hist_rec.claim_line_history_id = FND_API.g_miss_num THEN
85 LOOP
86 l_dummy := NULL;
87 OPEN c_id;
88 FETCH c_id INTO l_claim_line_history_id;
89 CLOSE c_id;
90
91 OPEN c_id_exists(l_claim_line_history_id);
92 FETCH c_id_exists INTO l_dummy;
93 CLOSE c_id_exists;
94 EXIT WHEN l_dummy IS NULL;
95 END LOOP;
96 END IF;
97
98 l_claim_line_hist_rec.claim_line_history_id := l_claim_line_history_id;
99 l_claim_line_hist_rec.object_version_number := l_object_version_number;
100 l_claim_line_hist_rec.last_update_date := SYSDATE;
101 l_claim_line_hist_rec.last_updated_by := FND_GLOBAL.USER_ID;
102 l_claim_line_hist_rec.creation_date := SYSDATE;
103 l_claim_line_hist_rec.created_by := FND_GLOBAL.USER_ID;
104 l_claim_line_hist_rec.claim_history_id := p_claim_line_hist_rec.claim_history_id;
105 l_claim_line_hist_rec.claim_id := p_claim_line_hist_rec.claim_id;
106 l_claim_line_hist_rec.claim_line_id := p_claim_line_hist_rec.claim_line_id;
107 l_claim_line_hist_rec.line_number := p_claim_line_hist_rec.line_number;
108 l_claim_line_hist_rec.set_of_books_id := p_claim_line_hist_rec.set_of_books_id;
109 l_claim_line_hist_rec.valid_flag := p_claim_line_hist_rec.valid_flag;
110
111 -- =========================================================================
112 -- Validate Environment
113 -- =========================================================================
114
115 IF FND_GLOBAL.User_Id IS NULL THEN
116 OZF_Utility_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
117 RAISE FND_API.G_EXC_ERROR;
118 END IF;
119
120 IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
121 -- Debug message
122 IF g_debug THEN
123 OZF_UTILITY_PVT.debug_message('Private API: Validate_Claim_Line_Hist');
124 END IF;
125
126 -- Invoke validation procedures
127 Validate_claim_line_hist(
128 p_api_version_number => 1.0,
129 p_init_msg_list => FND_API.G_FALSE,
130 p_validation_level => p_validation_level,
131 --p_claim_line_hist_rec => p_claim_line_hist_rec,
132 p_claim_line_hist_rec => l_claim_line_hist_rec,
133 x_return_status => x_return_status,
134 x_msg_count => x_msg_count,
135 x_msg_data => x_msg_data
136 );
137 END IF;
138
139 IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
140 RAISE FND_API.G_EXC_ERROR;
141 END IF;
142
143
144 -- Debug Message
145 IF g_debug THEN
146 OZF_UTILITY_PVT.debug_message( 'Private API: Calling create table handler');
147 END IF;
148
149 l_org_id := l_claim_line_hist_rec.org_id;
150 BEGIN
151 -- Invoke table handler(OZF_CLAIM_LINES_HIST_PKG.Insert_Row)
152 OZF_CLAIM_LINES_HIST_PKG.Insert_Row(
153 px_claim_line_history_id => l_claim_line_history_id,
154 px_object_version_number => l_object_version_number,
155 p_last_update_date => SYSDATE,
156 p_last_updated_by => FND_GLOBAL.USER_ID,
157 p_creation_date => SYSDATE,
158 p_created_by => FND_GLOBAL.USER_ID,
159 p_last_update_login => FND_GLOBAL.CONC_LOGIN_ID,
160 p_request_id => FND_GLOBAL.conc_request_id,
161 p_program_application_id => FND_GLOBAL.prog_appl_id,
162 p_program_update_date => SYSDATE,
163 p_program_id => FND_GLOBAL.conc_program_id,
164 p_created_from => p_claim_line_hist_rec.created_from,
165 p_claim_history_id => p_claim_line_hist_rec.claim_history_id,
166 p_claim_id => p_claim_line_hist_rec.claim_id,
167 p_claim_line_id => p_claim_line_hist_rec.claim_line_id,
168 p_line_number => p_claim_line_hist_rec.line_number,
169 p_split_from_claim_line_id => p_claim_line_hist_rec.split_from_claim_line_id,
170 p_amount => p_claim_line_hist_rec.amount,
171 p_acctd_amount => p_claim_line_hist_rec.acctd_amount,
172 p_currency_code => p_claim_line_hist_rec.currency_code,
173 p_exchange_rate_type => p_claim_line_hist_rec.exchange_rate_type,
174 p_exchange_rate_date => p_claim_line_hist_rec.exchange_rate_date,
175 p_exchange_rate => p_claim_line_hist_rec.exchange_rate,
176 p_set_of_books_id => p_claim_line_hist_rec.set_of_books_id,
177 p_valid_flag => p_claim_line_hist_rec.valid_flag,
178 p_source_object_id => p_claim_line_hist_rec.source_object_id,
179 p_source_object_class => p_claim_line_hist_rec.source_object_class,
180 p_source_object_type_id => p_claim_line_hist_rec.source_object_type_id,
181 p_source_object_line_id => p_claim_line_hist_rec.source_object_line_id,
182 p_plan_id => p_claim_line_hist_rec.plan_id,
183 p_offer_id => p_claim_line_hist_rec.offer_id,
184 p_payment_method => p_claim_line_hist_rec.payment_method,
185 p_payment_reference_id => p_claim_line_hist_rec.payment_reference_id,
186 p_payment_reference_number => p_claim_line_hist_rec.payment_reference_number,
187 p_payment_reference_date => p_claim_line_hist_rec.payment_reference_date,
188 p_voucher_id => p_claim_line_hist_rec.voucher_id,
189 p_voucher_number => p_claim_line_hist_rec.voucher_number,
190 p_payment_status => p_claim_line_hist_rec.payment_status,
191 p_approved_flag => p_claim_line_hist_rec.approved_flag,
192 p_approved_date => p_claim_line_hist_rec.approved_date,
193 p_approved_by => p_claim_line_hist_rec.approved_by,
194 p_settled_date => p_claim_line_hist_rec.settled_date,
195 p_settled_by => p_claim_line_hist_rec.settled_by,
196 p_performance_complete_flag => p_claim_line_hist_rec.performance_complete_flag,
197 p_performance_attached_flag => p_claim_line_hist_rec.performance_attached_flag,
198 p_attribute_category => p_claim_line_hist_rec.attribute_category,
199 p_attribute1 => p_claim_line_hist_rec.attribute1,
200 p_attribute2 => p_claim_line_hist_rec.attribute2,
201 p_attribute3 => p_claim_line_hist_rec.attribute3,
202 p_attribute4 => p_claim_line_hist_rec.attribute4,
203 p_attribute5 => p_claim_line_hist_rec.attribute5,
204 p_attribute6 => p_claim_line_hist_rec.attribute6,
205 p_attribute7 => p_claim_line_hist_rec.attribute7,
206 p_attribute8 => p_claim_line_hist_rec.attribute8,
207 p_attribute9 => p_claim_line_hist_rec.attribute9,
208 p_attribute10 => p_claim_line_hist_rec.attribute10,
209 p_attribute11 => p_claim_line_hist_rec.attribute11,
210 p_attribute12 => p_claim_line_hist_rec.attribute12,
211 p_attribute13 => p_claim_line_hist_rec.attribute13,
212 p_attribute14 => p_claim_line_hist_rec.attribute14,
213 p_attribute15 => p_claim_line_hist_rec.attribute15,
214 px_org_id => l_org_id,
215 p_utilization_id => p_claim_line_hist_rec.utilization_id,
216 p_claim_currency_amount => p_claim_line_hist_rec.claim_currency_amount,
217 p_item_id => p_claim_line_hist_rec.item_id,
218 p_item_description => p_claim_line_hist_rec.item_description,
219 p_quantity => p_claim_line_hist_rec.quantity,
220 p_quantity_uom => p_claim_line_hist_rec.quantity_uom,
221 p_rate => p_claim_line_hist_rec.rate,
222 p_activity_type => p_claim_line_hist_rec.activity_type,
223 p_activity_id => p_claim_line_hist_rec.activity_id,
224 p_earnings_associated_flag => p_claim_line_hist_rec.earnings_associated_flag,
225 p_comments => p_claim_line_hist_rec.comments,
226 p_related_cust_account_id => p_claim_line_hist_rec.related_cust_account_id,
227 p_relationship_type => p_claim_line_hist_rec.relationship_type,
228 p_tax_code => p_claim_line_hist_rec.tax_code,
229 p_select_cust_children_flag => p_claim_line_hist_rec.select_cust_children_flag,
230 p_buy_group_cust_account_id => p_claim_line_hist_rec.buy_group_cust_account_id,
231 p_credit_to => p_claim_line_hist_rec.credit_to,
232 p_sale_date => p_claim_line_hist_rec.sale_date,
233 p_item_type => p_claim_line_hist_rec.item_type,
234 p_tax_amount => p_claim_line_hist_rec.tax_amount,
235 p_claim_curr_tax_amount => p_claim_line_hist_rec.claim_curr_tax_amount,
236 p_activity_line_id => p_claim_line_hist_rec.activity_line_id,
237 p_offer_type => p_claim_line_hist_rec.offer_type,
238 p_prorate_earnings_flag => p_claim_line_hist_rec.prorate_earnings_flag,
239 p_earnings_end_date => p_claim_line_hist_rec.earnings_end_date
240
241 );
242 EXCEPTION
243 WHEN OTHERS THEN
244 IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
245 FND_MESSAGE.set_name('OZF', 'OZF_TABLE_HANDLER_ERROR');
246 FND_MSG_PUB.add;
247 END IF;
248 RAISE FND_API.g_exc_error;
249 END;
250
251 -- Standard check for p_commit
252 IF FND_API.to_Boolean( p_commit )
253 THEN
254 COMMIT WORK;
255 END IF;
256
257 -- Debug Message
258 IF g_debug THEN
259 OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
260 END IF;
261
262 -- Standard call to get message count and if count is 1, get message info.
263 FND_MSG_PUB.Count_And_Get(
264 p_count => x_msg_count,
265 p_data => x_msg_data
266 );
267
268 EXCEPTION
269 WHEN OZF_Utility_PVT.resource_locked THEN
270 x_return_status := FND_API.g_ret_sts_error;
271 OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
272
273 WHEN FND_API.G_EXC_ERROR THEN
274 ROLLBACK TO CREATE_Claim_Line_Hist_PVT;
275 x_return_status := FND_API.G_RET_STS_ERROR;
276 -- Standard call to get message count and if count=1, get the message
277 FND_MSG_PUB.Count_And_Get (
278 p_encoded => FND_API.G_FALSE,
279 p_count => x_msg_count,
280 p_data => x_msg_data
281 );
282
283 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
284 ROLLBACK TO CREATE_Claim_Line_Hist_PVT;
285 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
286 -- Standard call to get message count and if count=1, get the message
287 FND_MSG_PUB.Count_And_Get (
288 p_encoded => FND_API.G_FALSE,
289 p_count => x_msg_count,
290 p_data => x_msg_data
291 );
292
293 WHEN OTHERS THEN
294 ROLLBACK TO CREATE_Claim_Line_Hist_PVT;
295 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
296 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
297 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
298 END IF;
299 -- Standard call to get message count and if count=1, get the message
300 FND_MSG_PUB.Count_And_Get(
301 p_encoded => FND_API.G_FALSE,
302 p_count => x_msg_count,
303 p_data => x_msg_data
304 );
305
306 End Create_Claim_Line_Hist;
307
308
309 PROCEDURE Update_Claim_Line_Hist(
310 p_api_version_number IN NUMBER,
311 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
312 p_commit IN VARCHAR2 := FND_API.G_FALSE,
313 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
314
315 x_return_status OUT NOCOPY VARCHAR2,
316 x_msg_count OUT NOCOPY NUMBER,
317 x_msg_data OUT NOCOPY VARCHAR2,
318
319 p_claim_line_hist_rec IN claim_line_hist_rec_type,
320 x_object_version_number OUT NOCOPY NUMBER
321 )
322 IS
323 /*
324 CURSOR c_get_claim_line_hist(claim_line_history_id NUMBER) IS
325 SELECT *
326 FROM OZF_CLAIM_LINES_HIST_ALL
327 -- Hint: Developer need to provide Where clause
328 */
329 l_api_name CONSTANT VARCHAR2(30) := 'Update_Claim_Line_Hist';
330 l_api_version_number CONSTANT NUMBER := 1.0;
331 -- Local Variables
332 l_object_version_number NUMBER;
333 l_CLAIM_LINE_HISTORY_ID NUMBER;
334 --l_ref_claim_line_hist_rec c_get_Claim_Line_Hist%ROWTYPE ;
335 --l_tar_claim_line_hist_rec OZF_Claim_Line_Hist_PVT.claim_line_hist_rec_type := P_claim_line_hist_rec;
336 l_rowid ROWID;
337
338
339 CURSOR csr_line_hist_obj_ver(cv_claim_line_hist_id IN NUMBER) IS
340 SELECT object_version_number
341 FROM ozf_claim_lines_hist_all
342 WHERE claim_line_history_id = cv_claim_line_hist_id;
343
344 BEGIN
345 -- Standard Start of API savepoint
346 SAVEPOINT UPDATE_Claim_Line_Hist_PVT;
347
348 -- Standard call to check for call compatibility.
349 IF NOT FND_API.Compatible_API_Call (l_api_version_number,
350 p_api_version_number,
351 l_api_name,
352 G_PKG_NAME) THEN
353 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
354 END IF;
355
356 -- Initialize message list if p_init_msg_list is set to TRUE.
357 IF FND_API.to_Boolean( p_init_msg_list ) THEN
358 FND_MSG_PUB.initialize;
359 END IF;
360
361 -- Debug Message
362 IF g_debug THEN
363 OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
364 END IF;
365
366 -- Initialize API return status to SUCCESS
367 x_return_status := FND_API.G_RET_STS_SUCCESS;
368
369 -- Varify object_version_number
370 IF p_claim_line_hist_rec.object_version_number is NULL or
371 p_claim_line_hist_rec.object_version_number = FND_API.G_MISS_NUM THEN
372 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.g_msg_lvl_error) THEN
373 FND_MESSAGE.Set_Name('OZF', 'OZF_API_NO_OBJ_VER_NUM');
374 FND_MSG_PUB.ADD;
375 END IF;
376 RAISE FND_API.G_EXC_ERROR;
377 END IF;
378
379 OPEN csr_line_hist_obj_ver(p_claim_line_hist_rec.claim_line_history_id);
380 FETCH csr_line_hist_obj_ver INTO l_object_version_number;
381 CLOSE csr_line_hist_obj_ver;
382
383 IF l_object_version_number <> p_claim_line_hist_rec.object_version_number THEN
384 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.g_msg_lvl_error) THEN
385 FND_MESSAGE.Set_Name('OZF', 'OZF_API_RESOURCE_LOCKED');
386 FND_MSG_PUB.ADD;
387 END IF;
388 RAISE OZF_Utility_PVT.resource_locked;
389 END IF;
390
391 l_object_version_number := l_object_version_number + 1;
392
393
394 IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
395 -- Debug message
396 IF g_debug THEN
397 OZF_UTILITY_PVT.debug_message('Private API: Validate_Claim_Line_Hist');
398 END IF;
399
400 -- Invoke validation procedures
401 Validate_claim_line_hist(
402 p_api_version_number => 1.0,
403 p_init_msg_list => FND_API.G_FALSE,
404 p_validation_level => p_validation_level,
405 p_claim_line_hist_rec => p_claim_line_hist_rec,
406 x_return_status => x_return_status,
407 x_msg_count => x_msg_count,
408 x_msg_data => x_msg_data
409 );
410 END IF;
411
412 IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
413 RAISE FND_API.G_EXC_ERROR;
414 END IF;
415
416
417 -- Debug Message
418 IF g_debug THEN
419 OZF_UTILITY_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: Calling update table handler');
420 END IF;
421
422 BEGIN
423 -- Invoke table handler(OZF_CLAIM_LINES_HIST_PKG.Update_Row)
424 OZF_CLAIM_LINES_HIST_PKG.Update_Row(
425 p_claim_line_history_id => p_claim_line_hist_rec.claim_line_history_id,
426 p_object_version_number => p_claim_line_hist_rec.object_version_number,
427 p_last_update_date => SYSDATE,
428 p_last_updated_by => FND_GLOBAL.USER_ID,
429 p_last_update_login => FND_GLOBAL.CONC_LOGIN_ID,
430 p_request_id => p_claim_line_hist_rec.request_id,
431 p_program_application_id => p_claim_line_hist_rec.program_application_id,
432 p_program_update_date => p_claim_line_hist_rec.program_update_date,
433 p_program_id => p_claim_line_hist_rec.program_id,
434 p_created_from => p_claim_line_hist_rec.created_from,
435 p_claim_history_id => p_claim_line_hist_rec.claim_history_id,
436 p_claim_id => p_claim_line_hist_rec.claim_id,
437 p_claim_line_id => p_claim_line_hist_rec.claim_line_id,
438 p_line_number => p_claim_line_hist_rec.line_number,
439 p_split_from_claim_line_id => p_claim_line_hist_rec.split_from_claim_line_id,
440 p_amount => p_claim_line_hist_rec.amount,
441 p_acctd_amount => p_claim_line_hist_rec.acctd_amount,
442 p_currency_code => p_claim_line_hist_rec.currency_code,
443 p_exchange_rate_type => p_claim_line_hist_rec.exchange_rate_type,
444 p_exchange_rate_date => p_claim_line_hist_rec.exchange_rate_date,
445 p_exchange_rate => p_claim_line_hist_rec.exchange_rate,
446 p_set_of_books_id => p_claim_line_hist_rec.set_of_books_id,
447 p_valid_flag => p_claim_line_hist_rec.valid_flag,
448 p_source_object_id => p_claim_line_hist_rec.source_object_id,
449 p_source_object_class => p_claim_line_hist_rec.source_object_class,
450 p_source_object_type_id => p_claim_line_hist_rec.source_object_type_id,
451 p_source_object_line_id => p_claim_line_hist_rec.source_object_line_id,
452 p_plan_id => p_claim_line_hist_rec.plan_id,
453 p_offer_id => p_claim_line_hist_rec.offer_id,
454 p_payment_method => p_claim_line_hist_rec.payment_method,
455 p_payment_reference_id => p_claim_line_hist_rec.payment_reference_id,
456 p_payment_reference_number => p_claim_line_hist_rec.payment_reference_number,
457 p_payment_reference_date => p_claim_line_hist_rec.payment_reference_date,
458 p_voucher_id => p_claim_line_hist_rec.voucher_id,
459 p_voucher_number => p_claim_line_hist_rec.voucher_number,
460 p_payment_status => p_claim_line_hist_rec.payment_status,
461 p_approved_flag => p_claim_line_hist_rec.approved_flag,
462 p_approved_date => p_claim_line_hist_rec.approved_date,
463 p_approved_by => p_claim_line_hist_rec.approved_by,
464 p_settled_date => p_claim_line_hist_rec.settled_date,
465 p_settled_by => p_claim_line_hist_rec.settled_by,
466 p_performance_complete_flag => p_claim_line_hist_rec.performance_complete_flag,
467 p_performance_attached_flag => p_claim_line_hist_rec.performance_attached_flag,
468 p_attribute_category => p_claim_line_hist_rec.attribute_category,
469 p_attribute1 => p_claim_line_hist_rec.attribute1,
470 p_attribute2 => p_claim_line_hist_rec.attribute2,
471 p_attribute3 => p_claim_line_hist_rec.attribute3,
472 p_attribute4 => p_claim_line_hist_rec.attribute4,
473 p_attribute5 => p_claim_line_hist_rec.attribute5,
474 p_attribute6 => p_claim_line_hist_rec.attribute6,
475 p_attribute7 => p_claim_line_hist_rec.attribute7,
476 p_attribute8 => p_claim_line_hist_rec.attribute8,
477 p_attribute9 => p_claim_line_hist_rec.attribute9,
478 p_attribute10 => p_claim_line_hist_rec.attribute10,
479 p_attribute11 => p_claim_line_hist_rec.attribute11,
480 p_attribute12 => p_claim_line_hist_rec.attribute12,
481 p_attribute13 => p_claim_line_hist_rec.attribute13,
482 p_attribute14 => p_claim_line_hist_rec.attribute14,
483 p_attribute15 => p_claim_line_hist_rec.attribute15,
484 p_org_id => p_claim_line_hist_rec.org_id,
485 p_utilization_id => p_claim_line_hist_rec.utilization_id,
486 p_claim_currency_amount => p_claim_line_hist_rec.claim_currency_amount,
487 p_item_id => p_claim_line_hist_rec.item_id,
488 p_item_description => p_claim_line_hist_rec.item_description,
489 p_quantity => p_claim_line_hist_rec.quantity,
490 p_quantity_uom => p_claim_line_hist_rec.quantity_uom,
491 p_rate => p_claim_line_hist_rec.rate,
492 p_activity_type => p_claim_line_hist_rec.activity_type,
493 p_activity_id => p_claim_line_hist_rec.activity_id,
494 p_earnings_associated_flag => p_claim_line_hist_rec.earnings_associated_flag,
495 p_comments => p_claim_line_hist_rec.comments,
496 p_related_cust_account_id => p_claim_line_hist_rec.related_cust_account_id,
497 p_relationship_type => p_claim_line_hist_rec.relationship_type,
498 p_tax_code => p_claim_line_hist_rec.tax_code,
499 p_select_cust_children_flag => p_claim_line_hist_rec.select_cust_children_flag,
500 p_buy_group_cust_account_id => p_claim_line_hist_rec.buy_group_cust_account_id,
501 p_credit_to => p_claim_line_hist_rec.credit_to,
502 p_sale_date => p_claim_line_hist_rec.sale_date,
503 p_item_type => p_claim_line_hist_rec.item_type,
504 p_tax_amount => p_claim_line_hist_rec.tax_amount,
505 p_claim_curr_tax_amount => p_claim_line_hist_rec.claim_curr_tax_amount,
506 p_activity_line_id => p_claim_line_hist_rec.activity_line_id,
507 p_offer_type => p_claim_line_hist_rec.offer_type,
508 p_prorate_earnings_flag => p_claim_line_hist_rec.prorate_earnings_flag,
509 p_earnings_end_date => p_claim_line_hist_rec.earnings_end_date
510 );
511 EXCEPTION
512 WHEN OTHERS THEN
513 IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
514 FND_MESSAGE.set_name('OZF', 'OZF_TABLE_HANDLER_ERROR');
515 FND_MSG_PUB.add;
516 END IF;
517 RAISE FND_API.g_exc_error;
518 END;
519
520 -- Standard check for p_commit
521 IF FND_API.to_Boolean( p_commit ) THEN
522 COMMIT WORK;
523 END IF;
524
525 -- Debug Message
526 IF g_debug THEN
527 OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
528 END IF;
529
530 -- Standard call to get message count and if count is 1, get message info.
531 FND_MSG_PUB.Count_And_Get(
532 p_count => x_msg_count,
533 p_data => x_msg_data
534 );
535
536 EXCEPTION
537 WHEN OZF_Utility_PVT.resource_locked THEN
538 x_return_status := FND_API.g_ret_sts_error;
539 OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
540
541 WHEN FND_API.G_EXC_ERROR THEN
542 ROLLBACK TO UPDATE_Claim_Line_Hist_PVT;
543 x_return_status := FND_API.G_RET_STS_ERROR;
544 -- Standard call to get message count and if count=1, get the message
545 FND_MSG_PUB.Count_And_Get (
546 p_encoded => FND_API.G_FALSE,
547 p_count => x_msg_count,
548 p_data => x_msg_data
549 );
550
551 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
552 ROLLBACK TO UPDATE_Claim_Line_Hist_PVT;
553 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
554 -- Standard call to get message count and if count=1, get the message
555 FND_MSG_PUB.Count_And_Get(
556 p_encoded => FND_API.G_FALSE,
557 p_count => x_msg_count,
558 p_data => x_msg_data
559 );
560
561 WHEN OTHERS THEN
562 ROLLBACK TO UPDATE_Claim_Line_Hist_PVT;
563 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
564 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
565 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
566 END IF;
567 -- Standard call to get message count and if count=1, get the message
568 FND_MSG_PUB.Count_And_Get (
569 p_encoded => FND_API.G_FALSE,
570 p_count => x_msg_count,
571 p_data => x_msg_data
572 );
573
574 END Update_Claim_Line_Hist;
575
576
577 PROCEDURE Delete_Claim_Line_Hist(
578 p_api_version_number IN NUMBER,
579 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
580 p_commit IN VARCHAR2 := FND_API.G_FALSE,
581 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
582 x_return_status OUT NOCOPY VARCHAR2,
583 x_msg_count OUT NOCOPY NUMBER,
584 x_msg_data OUT NOCOPY VARCHAR2,
585 p_claim_line_history_id IN NUMBER,
586 p_object_version_number IN NUMBER
587 )
588 IS
589 l_api_name CONSTANT VARCHAR2(30) := 'Delete_Claim_Line_Hist';
590 l_api_version_number CONSTANT NUMBER := 1.0;
591 l_object_version_number NUMBER;
592
593 CURSOR csr_line_hist_obj_ver(cv_line_hist_id IN NUMBER) IS
594 SELECT object_version_number
595 FROM ozf_claim_lines_hist_all
596 WHERE claim_line_history_id = cv_line_hist_id;
597
598 BEGIN
599 -- Standard Start of API savepoint
600 SAVEPOINT DELETE_Claim_Line_Hist_PVT;
601
602 -- Standard call to check for call compatibility.
603 IF NOT FND_API.Compatible_API_Call(l_api_version_number,
604 p_api_version_number,
605 l_api_name,
606 G_PKG_NAME) THEN
607 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
608 END IF;
609
610 -- Initialize message list if p_init_msg_list is set to TRUE.
611 IF FND_API.to_Boolean( p_init_msg_list ) THEN
612 FND_MSG_PUB.initialize;
613 END IF;
614
615 -- Debug Message
616 IF g_debug THEN
617 OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
618 END IF;
619
620
621 -- Initialize API return status to SUCCESS
622 x_return_status := FND_API.G_RET_STS_SUCCESS;
623
624 -- Validate object_version_number
625 OPEN csr_line_hist_obj_ver(p_claim_line_history_id);
626 FETCH csr_line_hist_obj_ver INTO l_object_version_number;
627 CLOSE csr_line_hist_obj_ver;
628
629
630 IF p_object_version_number = l_object_version_number THEN
631 BEGIN
632 -- Debug Message
633 IF g_debug THEN
634 OZF_UTILITY_PVT.debug_message( 'Private API: Calling delete table handler');
635 END IF;
636
637 -- Invoke table handler(OZF_CLAIM_LINES_HIST_PKG.Delete_Row)
638 OZF_CLAIM_LINES_HIST_PKG.Delete_Row(
639 p_claim_line_history_id => p_claim_line_history_id
640 );
641 EXCEPTION
642 WHEN OTHERS THEN
643 IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
644 FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
645 FND_MSG_PUB.add;
646 END IF;
647 RAISE FND_API.g_exc_error;
648 END;
649 ELSE
650 IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
651 FND_MESSAGE.set_name('OZF', 'OZF_REC_VERSION_CHANGED');
652 FND_MSG_PUB.add;
653 END IF;
654 RAISE FND_API.g_exc_error;
655 END IF;
656
657 -- Standard check for p_commit
658 IF FND_API.to_Boolean(p_commit) THEN
659 COMMIT WORK;
660 END IF;
661
662 -- Debug Message
663 IF g_debug THEN
664 OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
665 END IF;
666
667 -- Standard call to get message count and if count is 1, get message info.
668 FND_MSG_PUB.Count_And_Get
669 (p_count => x_msg_count,
670 p_data => x_msg_data
671 );
672
673 EXCEPTION
674 WHEN OZF_Utility_PVT.resource_locked THEN
675 x_return_status := FND_API.g_ret_sts_error;
676 OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
677
678 WHEN FND_API.G_EXC_ERROR THEN
679 ROLLBACK TO DELETE_Claim_Line_Hist_PVT;
680 x_return_status := FND_API.G_RET_STS_ERROR;
681 -- Standard call to get message count and if count=1, get the message
682 FND_MSG_PUB.Count_And_Get (
683 p_encoded => FND_API.G_FALSE,
684 p_count => x_msg_count,
685 p_data => x_msg_data
686 );
687
688 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
689 ROLLBACK TO DELETE_Claim_Line_Hist_PVT;
690 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
691 -- Standard call to get message count and if count=1, get the message
692 FND_MSG_PUB.Count_And_Get (
693 p_encoded => FND_API.G_FALSE,
694 p_count => x_msg_count,
695 p_data => x_msg_data
696 );
697
698 WHEN OTHERS THEN
699 ROLLBACK TO DELETE_Claim_Line_Hist_PVT;
700 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
701 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
702 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
703 END IF;
704 -- Standard call to get message count and if count=1, get the message
705 FND_MSG_PUB.Count_And_Get (
706 p_encoded => FND_API.G_FALSE,
707 p_count => x_msg_count,
708 p_data => x_msg_data
709 );
710
711 End Delete_Claim_Line_Hist;
712
713
714 PROCEDURE Lock_Claim_Line_Hist(
715 p_api_version_number IN NUMBER,
716 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
717
718 x_return_status OUT NOCOPY VARCHAR2,
719 x_msg_count OUT NOCOPY NUMBER,
720 x_msg_data OUT NOCOPY VARCHAR2,
721
722 p_claim_line_history_id IN NUMBER,
723 p_object_version IN NUMBER
724 )
725 IS
726 l_api_name CONSTANT VARCHAR2(30) := 'Lock_Claim_Line_Hist';
727 l_api_version_number CONSTANT NUMBER := 1.0;
728 l_full_name CONSTANT VARCHAR2(60) := g_pkg_name ||'.'|| l_api_name;
729 l_claim_line_history_id NUMBER;
730
731 CURSOR c_Claim_Line_Hist IS
732 SELECT claim_line_history_id
733 FROM ozf_claim_lines_hist_all
734 WHERE claim_line_history_id = p_claim_line_history_id
735 AND object_version_number = p_object_version
736 FOR UPDATE NOWAIT;
737
738 BEGIN
739 -- Debug Message
740 IF g_debug THEN
741 OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
742 END IF;
743
744 -- Initialize message list if p_init_msg_list is set to TRUE.
745 IF FND_API.to_Boolean( p_init_msg_list ) THEN
746 FND_MSG_PUB.initialize;
747 END IF;
748
749 -- Standard call to check for call compatibility.
750 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
751 p_api_version_number,
752 l_api_name,
753 G_PKG_NAME) THEN
754 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
755 END IF;
756
757 -- Initialize API return status to SUCCESS
758 x_return_status := FND_API.G_RET_STS_SUCCESS;
759
760 ------------------------ lock -------------------------
761 IF g_debug THEN
762 OZF_Utility_PVT.debug_message(l_full_name||': start');
763 END IF;
764
765 OPEN c_Claim_Line_Hist;
766 FETCH c_Claim_Line_Hist INTO l_CLAIM_LINE_HISTORY_ID;
767 IF (c_Claim_Line_Hist%NOTFOUND) THEN
768 CLOSE c_Claim_Line_Hist;
769 IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
770 FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
771 FND_MSG_PUB.add;
772 END IF;
773 RAISE FND_API.g_exc_error;
774 END IF;
775 CLOSE c_Claim_Line_Hist;
776
777 -------------------- finish --------------------------
778 FND_MSG_PUB.count_and_get(
779 p_encoded => FND_API.g_false,
780 p_count => x_msg_count,
781 p_data => x_msg_data
782 );
783
784 IF g_debug THEN
785 OZF_Utility_PVT.debug_message(l_full_name ||': end');
786 END IF;
787
788 EXCEPTION
789 WHEN OZF_Utility_PVT.resource_locked THEN
790 x_return_status := FND_API.g_ret_sts_error;
791 OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
792
793 WHEN FND_API.G_EXC_ERROR THEN
794 ROLLBACK TO LOCK_Claim_Line_Hist_PVT;
795 x_return_status := FND_API.G_RET_STS_ERROR;
796 -- Standard call to get message count and if count=1, get the message
797 FND_MSG_PUB.Count_And_Get (
798 p_encoded => FND_API.G_FALSE,
799 p_count => x_msg_count,
800 p_data => x_msg_data
801 );
802
803 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
804 ROLLBACK TO LOCK_Claim_Line_Hist_PVT;
805 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
806 -- Standard call to get message count and if count=1, get the message
807 FND_MSG_PUB.Count_And_Get (
808 p_encoded => FND_API.G_FALSE,
809 p_count => x_msg_count,
810 p_data => x_msg_data
811 );
812
813 WHEN OTHERS THEN
814 ROLLBACK TO LOCK_Claim_Line_Hist_PVT;
815 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
816 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
817 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
818 END IF;
819 -- Standard call to get message count and if count=1, get the message
820 FND_MSG_PUB.Count_And_Get (
821 p_encoded => FND_API.G_FALSE,
822 p_count => x_msg_count,
823 p_data => x_msg_data
824 );
825
826 End Lock_Claim_Line_Hist;
827
828
829 PROCEDURE check_line_hist_uk_items(
830 p_claim_line_hist_rec IN claim_line_hist_rec_type,
831 p_validation_mode IN VARCHAR2 := JTF_PLSQL_API.g_create,
832 x_return_status OUT NOCOPY VARCHAR2
833 )
834 IS
835 l_valid_flag VARCHAR2(1);
836
837 BEGIN
838 x_return_status := FND_API.g_ret_sts_success;
839
840 IF p_validation_mode = JTF_PLSQL_API.g_create THEN
841 l_valid_flag := OZF_Utility_PVT.check_uniqueness(
842 'OZF_CLAIM_LINES_HIST_ALL',
843 'CLAIM_LINE_HISTORY_ID = ''' || p_claim_line_hist_rec.CLAIM_LINE_HISTORY_ID ||''''
844 );
845 ELSE
846 l_valid_flag := OZF_Utility_PVT.check_uniqueness(
847 'OZF_CLAIM_LINES_HIST_ALL',
848 'CLAIM_LINE_HISTORY_ID = ''' || p_claim_line_hist_rec.CLAIM_LINE_HISTORY_ID ||
849 ''' AND CLAIM_LINE_HISTORY_ID <> ' || p_claim_line_hist_rec.CLAIM_LINE_HISTORY_ID
850 );
851 END IF;
852
853 IF l_valid_flag = FND_API.g_false THEN
854 OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_CLAIM_LINE_HIST_ID_DUP');
855 x_return_status := FND_API.g_ret_sts_error;
856 RETURN;
857 END IF;
858
859 END check_line_hist_uk_items;
860
861
862 PROCEDURE check_line_hist_req_items(
863 p_claim_line_hist_rec IN claim_line_hist_rec_type,
864 p_validation_mode IN VARCHAR2 := JTF_PLSQL_API.g_create,
865 x_return_status OUT NOCOPY VARCHAR2
866 )
867 IS
868 BEGIN
869 x_return_status := FND_API.g_ret_sts_success;
870
871 IF p_validation_mode = JTF_PLSQL_API.g_create THEN
872 IF p_claim_line_hist_rec.claim_line_history_id = FND_API.g_miss_num OR
873 p_claim_line_hist_rec.claim_line_history_id IS NULL THEN
874 OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CLAIM_LINE_HISTORY_ID' );
875 x_return_status := FND_API.g_ret_sts_error;
876 RETURN;
877 END IF;
878
879 IF p_claim_line_hist_rec.object_version_number = FND_API.g_miss_num OR
880 p_claim_line_hist_rec.object_version_number IS NULL THEN
881 OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OBJECT_VERSION_NUMBER' );
882 x_return_status := FND_API.g_ret_sts_error;
883 RETURN;
884 END IF;
885
886 IF p_claim_line_hist_rec.last_update_date = FND_API.g_miss_date OR
887 p_claim_line_hist_rec.last_update_date IS NULL THEN
888 OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'LAST_UPDATE_DATE' );
889 x_return_status := FND_API.g_ret_sts_error;
890 RETURN;
891 END IF;
892
893 IF p_claim_line_hist_rec.last_updated_by = FND_API.g_miss_num OR
894 p_claim_line_hist_rec.last_updated_by IS NULL THEN
895 OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'LAST_UPDATED_BY' );
896 x_return_status := FND_API.g_ret_sts_error;
897 RETURN;
898 END IF;
899
900 IF p_claim_line_hist_rec.creation_date = FND_API.g_miss_date OR p_claim_line_hist_rec.creation_date IS NULL THEN
901 OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CREATION_DATE' );
902 x_return_status := FND_API.g_ret_sts_error;
903 RETURN;
904 END IF;
905
906 IF p_claim_line_hist_rec.created_by = FND_API.g_miss_num OR
907 p_claim_line_hist_rec.created_by IS NULL THEN
908 OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CREATED_BY' );
909 x_return_status := FND_API.g_ret_sts_error;
910 RETURN;
911 END IF;
912
913 IF p_claim_line_hist_rec.claim_history_id = FND_API.g_miss_num OR
914 p_claim_line_hist_rec.claim_history_id IS NULL THEN
915 OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CLAIM_HISTORY_ID' );
916 x_return_status := FND_API.g_ret_sts_error;
917 RETURN;
918 END IF;
919
920 IF p_claim_line_hist_rec.claim_id = FND_API.g_miss_num OR
921 p_claim_line_hist_rec.claim_id IS NULL THEN
922 OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CLAIM_ID' );
923 x_return_status := FND_API.g_ret_sts_error;
924 RETURN;
925 END IF;
926
927 IF p_claim_line_hist_rec.claim_line_id = FND_API.g_miss_num OR
928 p_claim_line_hist_rec.claim_line_id IS NULL THEN
929 OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CLAIM_LINE_ID' );
930 x_return_status := FND_API.g_ret_sts_error;
931 RETURN;
932 END IF;
933
934 IF p_claim_line_hist_rec.line_number = FND_API.g_miss_num OR
935 p_claim_line_hist_rec.line_number IS NULL THEN
936 OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'LINE_NUMBER' );
937 x_return_status := FND_API.g_ret_sts_error;
938 RETURN;
939 END IF;
940
941 IF p_claim_line_hist_rec.set_of_books_id = FND_API.g_miss_num OR
942 p_claim_line_hist_rec.set_of_books_id IS NULL THEN
943 OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'SET_OF_BOOKS_ID' );
944 x_return_status := FND_API.g_ret_sts_error;
945 RETURN;
946 END IF;
947
948 IF p_claim_line_hist_rec.valid_flag = FND_API.g_miss_char OR
949 p_claim_line_hist_rec.valid_flag IS NULL THEN
950 OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VALID_FLAG' );
951 x_return_status := FND_API.g_ret_sts_error;
952 RETURN;
953 END IF;
954 ELSE
955 IF p_claim_line_hist_rec.claim_line_history_id IS NULL THEN
956 OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CLAIM_LINE_HISTORY_ID' );
957 x_return_status := FND_API.g_ret_sts_error;
958 RETURN;
959 END IF;
960
961 IF p_claim_line_hist_rec.object_version_number IS NULL THEN
962 OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OBJECT_VERSION_NUMBER' );
963 x_return_status := FND_API.g_ret_sts_error;
964 RETURN;
965 END IF;
966
967 IF p_claim_line_hist_rec.last_update_date IS NULL THEN
968 OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'LAST_UPDATE_DATE' );
969 x_return_status := FND_API.g_ret_sts_error;
970 RETURN;
971 END IF;
972
973 IF p_claim_line_hist_rec.last_updated_by IS NULL THEN
974 OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'LAST_UPDATED_BY' );
975 x_return_status := FND_API.g_ret_sts_error;
976 RETURN;
977 END IF;
978
979 IF p_claim_line_hist_rec.creation_date IS NULL THEN
980 OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CREATION_DATE' );
981 x_return_status := FND_API.g_ret_sts_error;
982 RETURN;
983 END IF;
984
985 IF p_claim_line_hist_rec.created_by IS NULL THEN
986 OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CREATED_BY' );
987 x_return_status := FND_API.g_ret_sts_error;
988 RETURN;
989 END IF;
990
991 IF p_claim_line_hist_rec.claim_history_id IS NULL THEN
992 OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CLAIM_HISTORY_ID' );
993 x_return_status := FND_API.g_ret_sts_error;
994 RETURN;
995 END IF;
996
997 IF p_claim_line_hist_rec.claim_id IS NULL THEN
998 OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CLAIM_ID' );
999 x_return_status := FND_API.g_ret_sts_error;
1000 RETURN;
1001 END IF;
1002
1003 IF p_claim_line_hist_rec.claim_line_id IS NULL THEN
1004 OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CLAIM_LINE_ID' );
1005 x_return_status := FND_API.g_ret_sts_error;
1006 RETURN;
1007 END IF;
1008
1009 IF p_claim_line_hist_rec.line_number IS NULL THEN
1010 OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'LINE_NUMBER' );
1011 x_return_status := FND_API.g_ret_sts_error;
1012 RETURN;
1013 END IF;
1014
1015 IF p_claim_line_hist_rec.set_of_books_id IS NULL THEN
1016 OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'SET_OF_BOOKS_ID' );
1017 x_return_status := FND_API.g_ret_sts_error;
1018 RETURN;
1019 END IF;
1020
1021 IF p_claim_line_hist_rec.valid_flag IS NULL THEN
1022 OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VALID_FLAG' );
1023 x_return_status := FND_API.g_ret_sts_error;
1024 RETURN;
1025 END IF;
1026 END IF;
1027
1028 END check_line_hist_req_items;
1029
1030
1031 PROCEDURE check_line_hist_FK_items(
1032 p_claim_line_hist_rec IN claim_line_hist_rec_type,
1033 x_return_status OUT NOCOPY VARCHAR2
1034 )
1035 IS
1036 BEGIN
1037 x_return_status := FND_API.g_ret_sts_success;
1038
1039 -- Enter custom code here
1040
1041 END check_line_hist_FK_items;
1042
1043
1044 PROCEDURE check_line_hist_Lookup_items(
1045 p_claim_line_hist_rec IN claim_line_hist_rec_type,
1046 x_return_status OUT NOCOPY VARCHAR2
1047 )
1048 IS
1049 BEGIN
1050 x_return_status := FND_API.g_ret_sts_success;
1051
1052 -- Enter custom code here
1053
1054 END check_line_hist_Lookup_items;
1055
1056
1057 PROCEDURE Check_claim_line_hist_Items (
1058 P_claim_line_hist_rec IN claim_line_hist_rec_type,
1059 p_validation_mode IN VARCHAR2,
1060 x_return_status OUT NOCOPY VARCHAR2
1061 )
1062 IS
1063 BEGIN
1064
1065 -- Check Items Uniqueness API calls
1066 check_line_hist_uk_items(
1067 p_claim_line_hist_rec => p_claim_line_hist_rec,
1068 p_validation_mode => p_validation_mode,
1069 x_return_status => x_return_status
1070 );
1071 IF x_return_status <> FND_API.g_ret_sts_success THEN
1072 RETURN;
1073 END IF;
1074
1075 -- Check Items Required/NOT NULL API calls
1076 check_line_hist_req_items(
1077 p_claim_line_hist_rec => p_claim_line_hist_rec,
1078 p_validation_mode => p_validation_mode,
1079 x_return_status => x_return_status
1080 );
1081 IF x_return_status <> FND_API.g_ret_sts_success THEN
1082 RETURN;
1083 END IF;
1084
1085 -- Check Items Foreign Keys API calls
1086 check_line_hist_FK_items(
1087 p_claim_line_hist_rec => p_claim_line_hist_rec,
1088 x_return_status => x_return_status
1089 );
1090 IF x_return_status <> FND_API.g_ret_sts_success THEN
1091 RETURN;
1092 END IF;
1093
1094 -- Check Items Lookups
1095 check_line_hist_Lookup_items(
1096 p_claim_line_hist_rec => p_claim_line_hist_rec,
1097 x_return_status => x_return_status
1098 );
1099 IF x_return_status <> FND_API.g_ret_sts_success THEN
1100 RETURN;
1101 END IF;
1102
1103 END Check_claim_line_hist_Items;
1104
1105
1106 PROCEDURE Complete_claim_line_hist_Rec (
1107 p_claim_line_hist_rec IN claim_line_hist_rec_type,
1108 x_complete_rec OUT NOCOPY claim_line_hist_rec_type
1109 )
1110 IS
1111 l_return_status VARCHAR2(1);
1112
1113 CURSOR c_complete IS
1114 SELECT *
1115 FROM ozf_claim_lines_hist
1116 WHERE claim_line_history_id = p_claim_line_hist_rec.claim_line_history_id;
1117
1118 l_claim_line_hist_rec c_complete%ROWTYPE;
1119
1120 BEGIN
1121 x_complete_rec := p_claim_line_hist_rec;
1122
1123 OPEN c_complete;
1124 FETCH c_complete INTO l_claim_line_hist_rec;
1125 CLOSE c_complete;
1126
1127 -- claim_line_history_id
1128 IF p_claim_line_hist_rec.claim_line_history_id = FND_API.g_miss_num THEN
1129 x_complete_rec.claim_line_history_id := NULL;
1130 END IF;
1131 IF p_claim_line_hist_rec.claim_line_history_id IS NULL THEN
1132 x_complete_rec.claim_line_history_id := l_claim_line_hist_rec.claim_line_history_id;
1133 END IF;
1134
1135 -- object_version_number
1136 IF p_claim_line_hist_rec.object_version_number = FND_API.g_miss_num THEN
1137 x_complete_rec.object_version_number := NULL;
1138 END IF;
1139 IF p_claim_line_hist_rec.object_version_number IS NULL THEN
1140 x_complete_rec.object_version_number := l_claim_line_hist_rec.object_version_number;
1141 END IF;
1142
1143 -- last_update_date
1144 IF p_claim_line_hist_rec.last_update_date = FND_API.g_miss_date THEN
1145 x_complete_rec.last_update_date := NULL;
1146 END IF;
1147 IF p_claim_line_hist_rec.last_update_date IS NULL THEN
1148 x_complete_rec.last_update_date := l_claim_line_hist_rec.last_update_date;
1149 END IF;
1150
1151 -- last_updated_by
1152 IF p_claim_line_hist_rec.last_updated_by = FND_API.g_miss_num THEN
1153 x_complete_rec.last_updated_by := NULL;
1154 END IF;
1155 IF p_claim_line_hist_rec.last_updated_by IS NULL THEN
1156 x_complete_rec.last_updated_by := l_claim_line_hist_rec.last_updated_by;
1157 END IF;
1158
1159 -- creation_date
1160 IF p_claim_line_hist_rec.creation_date = FND_API.g_miss_date THEN
1161 x_complete_rec.creation_date := NULL;
1162 END IF;
1163 IF p_claim_line_hist_rec.creation_date IS NULL THEN
1164 x_complete_rec.creation_date := l_claim_line_hist_rec.creation_date;
1165 END IF;
1166
1167 -- created_by
1168 IF p_claim_line_hist_rec.created_by = FND_API.g_miss_num THEN
1169 x_complete_rec.created_by := NULL;
1170 END IF;
1171 IF p_claim_line_hist_rec.created_by IS NULL THEN
1172 x_complete_rec.created_by := l_claim_line_hist_rec.created_by;
1173 END IF;
1174
1175 -- last_update_login
1176 IF p_claim_line_hist_rec.last_update_login = FND_API.g_miss_num THEN
1177 x_complete_rec.last_update_login := NULL;
1178 END IF;
1179 IF p_claim_line_hist_rec.last_update_login IS NULL THEN
1180 x_complete_rec.last_update_login := l_claim_line_hist_rec.last_update_login;
1181 END IF;
1182
1183 -- request_id
1184 IF p_claim_line_hist_rec.request_id = FND_API.g_miss_num THEN
1185 x_complete_rec.request_id := NULL;
1186 END IF;
1187 IF p_claim_line_hist_rec.request_id IS NULL THEN
1188 x_complete_rec.request_id := l_claim_line_hist_rec.request_id;
1189 END IF;
1190
1191 -- program_application_id
1192 IF p_claim_line_hist_rec.program_application_id = FND_API.g_miss_num THEN
1193 x_complete_rec.program_application_id := NULL;
1194 END IF;
1195 IF p_claim_line_hist_rec.program_application_id IS NULL THEN
1196 x_complete_rec.program_application_id := l_claim_line_hist_rec.program_application_id;
1197 END IF;
1198
1199 -- program_update_date
1200 IF p_claim_line_hist_rec.program_update_date = FND_API.g_miss_date THEN
1201 x_complete_rec.program_update_date := NULL;
1202 END IF;
1203 IF p_claim_line_hist_rec.program_update_date IS NULL THEN
1204 x_complete_rec.program_update_date := l_claim_line_hist_rec.program_update_date;
1205 END IF;
1206
1207 -- program_id
1208 IF p_claim_line_hist_rec.program_id = FND_API.g_miss_num THEN
1209 x_complete_rec.program_id := NULL;
1210 END IF;
1211 IF p_claim_line_hist_rec.program_id IS NULL THEN
1212 x_complete_rec.program_id := l_claim_line_hist_rec.program_id;
1213 END IF;
1214
1215 -- created_from
1216 IF p_claim_line_hist_rec.created_from = FND_API.g_miss_char THEN
1217 x_complete_rec.created_from := NULL;
1218 END IF;
1219 IF p_claim_line_hist_rec.created_from IS NULL THEN
1220 x_complete_rec.created_from := l_claim_line_hist_rec.created_from;
1221 END IF;
1222
1223 -- claim_history_id
1224 IF p_claim_line_hist_rec.claim_history_id = FND_API.g_miss_num THEN
1225 x_complete_rec.claim_history_id := NULL;
1226 END IF;
1227 IF p_claim_line_hist_rec.claim_history_id IS NULL THEN
1228 x_complete_rec.claim_history_id := l_claim_line_hist_rec.claim_history_id;
1229 END IF;
1230
1231 -- claim_id
1232 IF p_claim_line_hist_rec.claim_id = FND_API.g_miss_num THEN
1233 x_complete_rec.claim_id := NULL;
1234 END IF;
1235 IF p_claim_line_hist_rec.claim_id IS NULL THEN
1236 x_complete_rec.claim_id := l_claim_line_hist_rec.claim_id;
1237 END IF;
1238
1239 -- claim_line_id
1240 IF p_claim_line_hist_rec.claim_line_id = FND_API.g_miss_num THEN
1241 x_complete_rec.claim_line_id := NULL;
1242 END IF;
1243 IF p_claim_line_hist_rec.claim_line_id IS NULL THEN
1244 x_complete_rec.claim_line_id := l_claim_line_hist_rec.claim_line_id;
1245 END IF;
1246
1247 -- line_number
1248 IF p_claim_line_hist_rec.line_number = FND_API.g_miss_num THEN
1249 x_complete_rec.line_number := NULL;
1250 END IF;
1251 IF p_claim_line_hist_rec.line_number IS NULL THEN
1252 x_complete_rec.line_number := l_claim_line_hist_rec.line_number;
1253 END IF;
1254
1255 -- split_from_claim_line_id
1256 IF p_claim_line_hist_rec.split_from_claim_line_id = FND_API.g_miss_num THEN
1257 x_complete_rec.split_from_claim_line_id := NULL;
1258 END IF;
1259 IF p_claim_line_hist_rec.split_from_claim_line_id IS NULL THEN
1260 x_complete_rec.split_from_claim_line_id := l_claim_line_hist_rec.split_from_claim_line_id;
1261 END IF;
1262
1263 -- amount
1264 IF p_claim_line_hist_rec.amount = FND_API.g_miss_num THEN
1265 x_complete_rec.amount := NULL;
1266 END IF;
1267 IF p_claim_line_hist_rec.amount IS NULL THEN
1268 x_complete_rec.amount := l_claim_line_hist_rec.amount;
1269 END IF;
1270
1271 -- acctd_amount
1272 IF p_claim_line_hist_rec.acctd_amount = FND_API.g_miss_num THEN
1273 x_complete_rec.acctd_amount := NULL;
1274 END IF;
1275 IF p_claim_line_hist_rec.acctd_amount IS NULL THEN
1276 x_complete_rec.acctd_amount := l_claim_line_hist_rec.acctd_amount;
1277 END IF;
1278
1279 -- currency_code
1280 IF p_claim_line_hist_rec.currency_code = FND_API.g_miss_char THEN
1281 x_complete_rec.currency_code := NULL;
1282 END IF;
1283 IF p_claim_line_hist_rec.currency_code IS NULL THEN
1284 x_complete_rec.currency_code := l_claim_line_hist_rec.currency_code;
1285 END IF;
1286
1287 -- exchange_rate_type
1288 IF p_claim_line_hist_rec.exchange_rate_type = FND_API.g_miss_char THEN
1289 x_complete_rec.exchange_rate_type := NULL;
1290 END IF;
1291 IF p_claim_line_hist_rec.exchange_rate_type IS NULL THEN
1292 x_complete_rec.exchange_rate_type := l_claim_line_hist_rec.exchange_rate_type;
1293 END IF;
1294
1295 -- exchange_rate_date
1296 IF p_claim_line_hist_rec.exchange_rate_date = FND_API.g_miss_date THEN
1297 x_complete_rec.exchange_rate_date := NULL;
1298 END IF;
1299 IF p_claim_line_hist_rec.exchange_rate_date IS NULL THEN
1300 x_complete_rec.exchange_rate_date := l_claim_line_hist_rec.exchange_rate_date;
1301 END IF;
1302
1303 -- exchange_rate
1304 IF p_claim_line_hist_rec.exchange_rate = FND_API.g_miss_num THEN
1305 x_complete_rec.exchange_rate := NULL;
1306 END IF;
1307 IF p_claim_line_hist_rec.exchange_rate IS NULL THEN
1308 x_complete_rec.exchange_rate := l_claim_line_hist_rec.exchange_rate;
1309 END IF;
1310
1311 -- set_of_books_id
1312 IF p_claim_line_hist_rec.set_of_books_id = FND_API.g_miss_num THEN
1313 x_complete_rec.set_of_books_id := NULL;
1314 END IF;
1315 IF p_claim_line_hist_rec.set_of_books_id IS NULL THEN
1316 x_complete_rec.set_of_books_id := l_claim_line_hist_rec.set_of_books_id;
1317 END IF;
1318
1319 -- valid_flag
1320 IF p_claim_line_hist_rec.valid_flag = FND_API.g_miss_char THEN
1321 x_complete_rec.valid_flag := NULL;
1322 END IF;
1323 IF p_claim_line_hist_rec.valid_flag IS NULL THEN
1324 x_complete_rec.valid_flag := l_claim_line_hist_rec.valid_flag;
1325 END IF;
1326
1327 -- source_object_id
1328 IF p_claim_line_hist_rec.source_object_id = FND_API.g_miss_num THEN
1329 x_complete_rec.source_object_id := NULL;
1330 END IF;
1331 IF p_claim_line_hist_rec.source_object_id IS NULL THEN
1332 x_complete_rec.source_object_id := l_claim_line_hist_rec.source_object_id;
1333 END IF;
1334
1335 -- source_object_class
1336 IF p_claim_line_hist_rec.source_object_class = FND_API.g_miss_char THEN
1337 x_complete_rec.source_object_class := NULL;
1338 END IF;
1339 IF p_claim_line_hist_rec.source_object_class IS NULL THEN
1340 x_complete_rec.source_object_class := l_claim_line_hist_rec.source_object_class;
1341 END IF;
1342
1343 -- source_object_type_id
1344 IF p_claim_line_hist_rec.source_object_type_id = FND_API.g_miss_num THEN
1345 x_complete_rec.source_object_type_id := NULL;
1346 END IF;
1347 IF p_claim_line_hist_rec.source_object_type_id IS NULL THEN
1348 x_complete_rec.source_object_type_id := l_claim_line_hist_rec.source_object_type_id;
1349 END IF;
1350
1351 -- source_object_line_id
1352 IF p_claim_line_hist_rec.source_object_line_id = FND_API.g_miss_num THEN
1353 x_complete_rec.source_object_line_id := NULL;
1354 END IF;
1355 IF p_claim_line_hist_rec.source_object_line_id IS NULL THEN
1356 x_complete_rec.source_object_line_id := l_claim_line_hist_rec.source_object_line_id;
1357 END IF;
1358
1359 -- plan_id
1360 IF p_claim_line_hist_rec.plan_id = FND_API.g_miss_num THEN
1361 x_complete_rec.plan_id := NULL;
1362 END IF;
1363 IF p_claim_line_hist_rec.plan_id IS NULL THEN
1364 x_complete_rec.plan_id := l_claim_line_hist_rec.plan_id;
1365 END IF;
1366
1367 -- offer_id
1368 IF p_claim_line_hist_rec.offer_id = FND_API.g_miss_num THEN
1369 x_complete_rec.offer_id := NULL;
1370 END IF;
1371 IF p_claim_line_hist_rec.offer_id IS NULL THEN
1372 x_complete_rec.offer_id := l_claim_line_hist_rec.offer_id;
1373 END IF;
1374
1375 -- payment_method
1376 IF p_claim_line_hist_rec.payment_method = FND_API.g_miss_char THEN
1377 x_complete_rec.payment_method := NULL;
1378 END IF;
1379 IF p_claim_line_hist_rec.payment_method IS NULL THEN
1380 x_complete_rec.payment_method := l_claim_line_hist_rec.payment_method;
1381 END IF;
1382
1383 -- payment_reference_id
1384 IF p_claim_line_hist_rec.payment_reference_id = FND_API.g_miss_num THEN
1385 x_complete_rec.payment_reference_id := NULL;
1386 END IF;
1387 IF p_claim_line_hist_rec.payment_reference_id IS NULL THEN
1388 x_complete_rec.payment_reference_id := l_claim_line_hist_rec.payment_reference_id;
1389 END IF;
1390
1391 -- payment_reference_number
1392 IF p_claim_line_hist_rec.payment_reference_number = FND_API.g_miss_char THEN
1393 x_complete_rec.payment_reference_number := NULL;
1394 END IF;
1395 IF p_claim_line_hist_rec.payment_reference_number IS NULL THEN
1396 x_complete_rec.payment_reference_number := l_claim_line_hist_rec.payment_reference_number;
1397 END IF;
1398
1399 -- payment_reference_date
1400 IF p_claim_line_hist_rec.payment_reference_date = FND_API.g_miss_date THEN
1401 x_complete_rec.payment_reference_date := NULL;
1402 END IF;
1403 IF p_claim_line_hist_rec.payment_reference_date IS NULL THEN
1404 x_complete_rec.payment_reference_date := l_claim_line_hist_rec.payment_reference_date;
1405 END IF;
1406
1407 -- voucher_id
1408 IF p_claim_line_hist_rec.voucher_id = FND_API.g_miss_num THEN
1409 x_complete_rec.voucher_id := NULL;
1410 END IF;
1411 IF p_claim_line_hist_rec.voucher_id IS NULL THEN
1412 x_complete_rec.voucher_id := l_claim_line_hist_rec.voucher_id;
1413 END IF;
1414
1415 -- voucher_number
1416 IF p_claim_line_hist_rec.voucher_number = FND_API.g_miss_char THEN
1417 x_complete_rec.voucher_number := NULL;
1418 END IF;
1419 IF p_claim_line_hist_rec.voucher_number IS NULL THEN
1420 x_complete_rec.voucher_number := l_claim_line_hist_rec.voucher_number;
1421 END IF;
1422
1423 -- payment_status
1424 IF p_claim_line_hist_rec.payment_status = FND_API.g_miss_char THEN
1425 x_complete_rec.payment_status := NULL;
1426 END IF;
1427 IF p_claim_line_hist_rec.payment_status IS NULL THEN
1428 x_complete_rec.payment_status := l_claim_line_hist_rec.payment_status;
1429 END IF;
1430
1431 -- approved_flag
1432 IF p_claim_line_hist_rec.approved_flag = FND_API.g_miss_char THEN
1433 x_complete_rec.approved_flag := NULL;
1434 END IF;
1435 IF p_claim_line_hist_rec.approved_flag IS NULL THEN
1436 x_complete_rec.approved_flag := l_claim_line_hist_rec.approved_flag;
1437 END IF;
1438
1439 -- approved_date
1440 IF p_claim_line_hist_rec.approved_date = FND_API.g_miss_date THEN
1441 x_complete_rec.approved_date := NULL;
1442 END IF;
1443 IF p_claim_line_hist_rec.approved_date IS NULL THEN
1444 x_complete_rec.approved_date := l_claim_line_hist_rec.approved_date;
1445 END IF;
1446
1447 -- approved_by
1448 IF p_claim_line_hist_rec.approved_by = FND_API.g_miss_num THEN
1449 x_complete_rec.approved_by := NULL;
1450 END IF;
1451 IF p_claim_line_hist_rec.approved_by IS NULL THEN
1452 x_complete_rec.approved_by := l_claim_line_hist_rec.approved_by;
1453 END IF;
1454
1455 -- settled_date
1456 IF p_claim_line_hist_rec.settled_date = FND_API.g_miss_date THEN
1457 x_complete_rec.settled_date := NULL;
1458 END IF;
1459 IF p_claim_line_hist_rec.settled_date IS NULL THEN
1460 x_complete_rec.settled_date := l_claim_line_hist_rec.settled_date;
1461 END IF;
1462
1463 -- settled_by
1464 IF p_claim_line_hist_rec.settled_by = FND_API.g_miss_num THEN
1465 x_complete_rec.settled_by := NULL;
1466 END IF;
1467 IF p_claim_line_hist_rec.settled_by IS NULL THEN
1468 x_complete_rec.settled_by := l_claim_line_hist_rec.settled_by;
1469 END IF;
1470
1471 -- performance_complete_flag
1472 IF p_claim_line_hist_rec.performance_complete_flag = FND_API.g_miss_char THEN
1473 x_complete_rec.performance_complete_flag := NULL;
1474 END IF;
1475 IF p_claim_line_hist_rec.performance_complete_flag IS NULL THEN
1476 x_complete_rec.performance_complete_flag := l_claim_line_hist_rec.performance_complete_flag;
1477 END IF;
1478
1479 -- performance_attached_flag
1480 IF p_claim_line_hist_rec.performance_attached_flag = FND_API.g_miss_char THEN
1481 x_complete_rec.performance_attached_flag := NULL;
1482 END IF;
1483 IF p_claim_line_hist_rec.performance_attached_flag IS NULL THEN
1484 x_complete_rec.performance_attached_flag := l_claim_line_hist_rec.performance_attached_flag;
1485 END IF;
1486
1487 -- attribute_category
1488 IF p_claim_line_hist_rec.attribute_category = FND_API.g_miss_char THEN
1489 x_complete_rec.attribute_category := NULL;
1490 END IF;
1491 IF p_claim_line_hist_rec.attribute_category IS NULL THEN
1492 x_complete_rec.attribute_category := l_claim_line_hist_rec.attribute_category;
1493 END IF;
1494
1495 -- attribute1
1496 IF p_claim_line_hist_rec.attribute1 = FND_API.g_miss_char THEN
1497 x_complete_rec.attribute1 := NULL;
1498 END IF;
1499 IF p_claim_line_hist_rec.attribute1 IS NULL THEN
1500 x_complete_rec.attribute1 := l_claim_line_hist_rec.attribute1;
1501 END IF;
1502
1503 -- attribute2
1504 IF p_claim_line_hist_rec.attribute2 = FND_API.g_miss_char THEN
1505 x_complete_rec.attribute2 := NULL;
1506 END IF;
1507 IF p_claim_line_hist_rec.attribute2 IS NULL THEN
1508 x_complete_rec.attribute2 := l_claim_line_hist_rec.attribute2;
1509 END IF;
1510
1511 -- attribute3
1512 IF p_claim_line_hist_rec.attribute3 = FND_API.g_miss_char THEN
1513 x_complete_rec.attribute3 := NULL;
1514 END IF;
1515 IF p_claim_line_hist_rec.attribute3 IS NULL THEN
1516 x_complete_rec.attribute3 := l_claim_line_hist_rec.attribute3;
1517 END IF;
1518
1519 -- attribute4
1520 IF p_claim_line_hist_rec.attribute4 = FND_API.g_miss_char THEN
1521 x_complete_rec.attribute4 := NULL;
1522 END IF;
1523 IF p_claim_line_hist_rec.attribute4 IS NULL THEN
1524 x_complete_rec.attribute4 := l_claim_line_hist_rec.attribute4;
1525 END IF;
1526
1527 -- attribute5
1528 IF p_claim_line_hist_rec.attribute5 = FND_API.g_miss_char THEN
1529 x_complete_rec.attribute5 := NULL;
1530 END IF;
1531 IF p_claim_line_hist_rec.attribute5 IS NULL THEN
1532 x_complete_rec.attribute5 := l_claim_line_hist_rec.attribute5;
1533 END IF;
1534
1535 -- attribute6
1536 IF p_claim_line_hist_rec.attribute6 = FND_API.g_miss_char THEN
1537 x_complete_rec.attribute6 := NULL;
1538 END IF;
1539 IF p_claim_line_hist_rec.attribute6 IS NULL THEN
1540 x_complete_rec.attribute6 := l_claim_line_hist_rec.attribute6;
1541 END IF;
1542
1543 -- attribute7
1544 IF p_claim_line_hist_rec.attribute7 = FND_API.g_miss_char THEN
1545 x_complete_rec.attribute7 := NULL;
1546 END IF;
1547 IF p_claim_line_hist_rec.attribute7 IS NULL THEN
1548 x_complete_rec.attribute7 := l_claim_line_hist_rec.attribute7;
1549 END IF;
1550
1551 -- attribute8
1552 IF p_claim_line_hist_rec.attribute8 = FND_API.g_miss_char THEN
1553 x_complete_rec.attribute8 := NULL;
1554 END IF;
1555 IF p_claim_line_hist_rec.attribute8 IS NULL THEN
1556 x_complete_rec.attribute8 := l_claim_line_hist_rec.attribute8;
1557 END IF;
1558
1559 -- attribute9
1560 IF p_claim_line_hist_rec.attribute9 = FND_API.g_miss_char THEN
1561 x_complete_rec.attribute9 := NULL;
1562 END IF;
1563 IF p_claim_line_hist_rec.attribute9 IS NULL THEN
1564 x_complete_rec.attribute9 := l_claim_line_hist_rec.attribute9;
1565 END IF;
1566
1567 -- attribute10
1568 IF p_claim_line_hist_rec.attribute10 = FND_API.g_miss_char THEN
1569 x_complete_rec.attribute10 := NULL;
1570 END IF;
1571 IF p_claim_line_hist_rec.attribute10 IS NULL THEN
1572 x_complete_rec.attribute10 := l_claim_line_hist_rec.attribute10;
1573 END IF;
1574
1575 -- attribute11
1576 IF p_claim_line_hist_rec.attribute11 = FND_API.g_miss_char THEN
1577 x_complete_rec.attribute11 := NULL;
1578 END IF;
1579 IF p_claim_line_hist_rec.attribute11 IS NULL THEN
1580 x_complete_rec.attribute11 := l_claim_line_hist_rec.attribute11;
1581 END IF;
1582
1583 -- attribute12
1584 IF p_claim_line_hist_rec.attribute12 = FND_API.g_miss_char THEN
1585 x_complete_rec.attribute12 := NULL;
1586 END IF;
1587 IF p_claim_line_hist_rec.attribute12 IS NULL THEN
1588 x_complete_rec.attribute12 := l_claim_line_hist_rec.attribute12;
1589 END IF;
1590
1591 -- attribute13
1592 IF p_claim_line_hist_rec.attribute13 = FND_API.g_miss_char THEN
1593 x_complete_rec.attribute13 := NULL;
1594 END IF;
1595 IF p_claim_line_hist_rec.attribute13 IS NULL THEN
1596 x_complete_rec.attribute13 := l_claim_line_hist_rec.attribute13;
1597 END IF;
1598
1599 -- attribute14
1600 IF p_claim_line_hist_rec.attribute14 = FND_API.g_miss_char THEN
1601 x_complete_rec.attribute14 := NULL;
1602 END IF;
1603 IF p_claim_line_hist_rec.attribute14 IS NULL THEN
1604 x_complete_rec.attribute14 := l_claim_line_hist_rec.attribute14;
1605 END IF;
1606
1607 -- attribute15
1608 IF p_claim_line_hist_rec.attribute15 = FND_API.g_miss_char THEN
1609 x_complete_rec.attribute15 := NULL;
1610 END IF;
1611 IF p_claim_line_hist_rec.attribute15 IS NULL THEN
1612 x_complete_rec.attribute15 := l_claim_line_hist_rec.attribute15;
1613 END IF;
1614
1615 -- org_id
1616 IF p_claim_line_hist_rec.org_id = FND_API.g_miss_num THEN
1617 x_complete_rec.org_id := NULL;
1618 END IF;
1619 IF p_claim_line_hist_rec.org_id IS NULL THEN
1620 x_complete_rec.org_id := l_claim_line_hist_rec.org_id;
1621 END IF;
1622
1623 -- utilization_id
1624 IF p_claim_line_hist_rec.utilization_id = FND_API.g_miss_num THEN
1625 x_complete_rec.utilization_id := NULL;
1626 END IF;
1627 IF p_claim_line_hist_rec.utilization_id IS NULL THEN
1628 x_complete_rec.utilization_id := l_claim_line_hist_rec.utilization_id;
1629 END IF;
1630
1631 -- claim_currency_amount
1632 IF p_claim_line_hist_rec.claim_currency_amount = FND_API.g_miss_num THEN
1633 x_complete_rec.claim_currency_amount := NULL;
1634 END IF;
1635 IF p_claim_line_hist_rec.claim_currency_amount IS NULL THEN
1636 x_complete_rec.claim_currency_amount := l_claim_line_hist_rec.claim_currency_amount;
1637 END IF;
1638
1639 -- item_id
1640 IF p_claim_line_hist_rec.item_id = FND_API.g_miss_num THEN
1641 x_complete_rec.item_id := NULL;
1642 END IF;
1643 IF p_claim_line_hist_rec.item_id IS NULL THEN
1644 x_complete_rec.item_id := l_claim_line_hist_rec.item_id;
1645 END IF;
1646
1647 -- item_description
1648 IF p_claim_line_hist_rec.item_description = FND_API.g_miss_char THEN
1649 x_complete_rec.item_description := NULL;
1650 END IF;
1651 IF p_claim_line_hist_rec.item_description IS NULL THEN
1652 x_complete_rec.item_description := l_claim_line_hist_rec.item_description;
1653 END IF;
1654
1655 -- quantity
1656 IF p_claim_line_hist_rec.quantity = FND_API.g_miss_num THEN
1657 x_complete_rec.quantity := NULL;
1658 END IF;
1659 IF p_claim_line_hist_rec.quantity IS NULL THEN
1660 x_complete_rec.quantity := l_claim_line_hist_rec.quantity;
1661 END IF;
1662
1663 -- quantity_uom
1664 IF p_claim_line_hist_rec.quantity_uom = FND_API.g_miss_char THEN
1665 x_complete_rec.quantity_uom := NULL;
1666 END IF;
1667 IF p_claim_line_hist_rec.quantity_uom IS NULL THEN
1668 x_complete_rec.quantity_uom := l_claim_line_hist_rec.quantity_uom;
1669 END IF;
1670
1671 -- rate
1672 IF p_claim_line_hist_rec.rate = FND_API.g_miss_num THEN
1673 x_complete_rec.rate := NULL;
1674 END IF;
1675 IF p_claim_line_hist_rec.rate IS NULL THEN
1676 x_complete_rec.rate := l_claim_line_hist_rec.rate;
1677 END IF;
1678
1679 -- activity_type
1680 IF p_claim_line_hist_rec.activity_type = FND_API.g_miss_char THEN
1681 x_complete_rec.activity_type := NULL;
1682 END IF;
1683 IF p_claim_line_hist_rec.activity_type IS NULL THEN
1684 x_complete_rec.activity_type := l_claim_line_hist_rec.activity_type;
1685 END IF;
1686
1687 -- activity_id
1688 IF p_claim_line_hist_rec.activity_id = FND_API.g_miss_num THEN
1689 x_complete_rec.activity_id := NULL;
1690 END IF;
1691 IF p_claim_line_hist_rec.activity_id IS NULL THEN
1692 x_complete_rec.activity_id := l_claim_line_hist_rec.activity_id;
1693 END IF;
1694
1695 -- earnings_associated_flag
1696 IF p_claim_line_hist_rec.earnings_associated_flag = FND_API.g_miss_char THEN
1697 x_complete_rec.earnings_associated_flag := NULL;
1698 END IF;
1699 IF p_claim_line_hist_rec.earnings_associated_flag IS NULL THEN
1700 x_complete_rec.earnings_associated_flag := l_claim_line_hist_rec.earnings_associated_flag;
1701 END IF;
1702
1703 -- comments
1704 IF p_claim_line_hist_rec.comments = FND_API.g_miss_char THEN
1705 x_complete_rec.comments := NULL;
1706 END IF;
1707 IF p_claim_line_hist_rec.comments IS NULL THEN
1708 x_complete_rec.comments := l_claim_line_hist_rec.comments;
1709 END IF;
1710
1711 -- related_cust_account_id
1712 IF p_claim_line_hist_rec.related_cust_account_id = FND_API.g_miss_num THEN
1713 x_complete_rec.related_cust_account_id := NULL;
1714 END IF;
1715 IF p_claim_line_hist_rec.related_cust_account_id IS NULL THEN
1716 x_complete_rec.related_cust_account_id := l_claim_line_hist_rec.related_cust_account_id;
1717 END IF;
1718
1719 -- relationship_type
1720 IF p_claim_line_hist_rec.relationship_type = FND_API.g_miss_char THEN
1721 x_complete_rec.relationship_type := NULL;
1722 END IF;
1723 IF p_claim_line_hist_rec.relationship_type IS NULL THEN
1724 x_complete_rec.relationship_type := l_claim_line_hist_rec.relationship_type;
1725 END IF;
1726
1727 -- tax_code
1728 IF p_claim_line_hist_rec.tax_code = FND_API.g_miss_char THEN
1729 x_complete_rec.tax_code := NULL;
1730 END IF;
1731 IF p_claim_line_hist_rec.tax_code IS NULL THEN
1732 x_complete_rec.tax_code := l_claim_line_hist_rec.tax_code;
1733 END IF;
1734
1735 -- select_cust_children_flag
1736 IF p_claim_line_hist_rec.select_cust_children_flag = FND_API.g_miss_char THEN
1737 x_complete_rec.select_cust_children_flag := NULL;
1738 END IF;
1739 IF p_claim_line_hist_rec.select_cust_children_flag IS NULL THEN
1740 x_complete_rec.select_cust_children_flag := l_claim_line_hist_rec.select_cust_children_flag;
1741 END IF;
1742
1743 -- buy_group_cust_account_id
1744 IF p_claim_line_hist_rec.buy_group_cust_account_id = FND_API.g_miss_num THEN
1745 x_complete_rec.buy_group_cust_account_id := NULL;
1746 END IF;
1747 IF p_claim_line_hist_rec.buy_group_cust_account_id IS NULL THEN
1748 x_complete_rec.buy_group_cust_account_id := l_claim_line_hist_rec.buy_group_cust_account_id;
1749 END IF;
1750
1751 -- credit_to
1752 IF p_claim_line_hist_rec.credit_to = FND_API.g_miss_char THEN
1753 x_complete_rec.credit_to := NULL;
1754 END IF;
1755 IF p_claim_line_hist_rec.credit_to IS NULL THEN
1756 x_complete_rec.credit_to := l_claim_line_hist_rec.credit_to;
1757 END IF;
1758
1759 -- sale_date
1760 IF p_claim_line_hist_rec.sale_date = FND_API.g_miss_date THEN
1761 x_complete_rec.sale_date := NULL;
1762 END IF;
1763 IF p_claim_line_hist_rec.sale_date IS NULL THEN
1764 x_complete_rec.sale_date := l_claim_line_hist_rec.sale_date;
1765 END IF;
1766
1767 -- item_type
1768 IF p_claim_line_hist_rec.item_type = FND_API.g_miss_char THEN
1769 x_complete_rec.item_type := NULL;
1770 END IF;
1771 IF p_claim_line_hist_rec.item_type IS NULL THEN
1772 x_complete_rec.item_type := l_claim_line_hist_rec.item_type;
1773 END IF;
1774
1775 -- tax_amount
1776 IF p_claim_line_hist_rec.tax_amount = FND_API.g_miss_num THEN
1777 x_complete_rec.tax_amount := NULL;
1778 END IF;
1779 IF p_claim_line_hist_rec.tax_amount IS NULL THEN
1780 x_complete_rec.tax_amount := l_claim_line_hist_rec.tax_amount;
1781 END IF;
1782
1783 -- claim_curr_tax_amount
1784 IF p_claim_line_hist_rec.claim_curr_tax_amount = FND_API.g_miss_num THEN
1785 x_complete_rec.claim_curr_tax_amount := NULL;
1786 END IF;
1787 IF p_claim_line_hist_rec.claim_curr_tax_amount IS NULL THEN
1788 x_complete_rec.claim_curr_tax_amount := l_claim_line_hist_rec.claim_curr_tax_amount;
1789 END IF;
1790
1791 -- activity_line_id
1792 IF p_claim_line_hist_rec.activity_line_id = FND_API.g_miss_num THEN
1793 x_complete_rec.activity_line_id := NULL;
1794 END IF;
1795 IF p_claim_line_hist_rec.activity_line_id IS NULL THEN
1796 x_complete_rec.activity_line_id := l_claim_line_hist_rec.activity_line_id;
1797 END IF;
1798
1799 IF p_claim_line_hist_rec.offer_type = FND_API.g_miss_char THEN
1800 x_complete_rec.offer_type := NULL;
1801 END IF;
1802 IF p_claim_line_hist_rec.offer_type IS NULL THEN
1803 x_complete_rec.offer_type := l_claim_line_hist_rec.offer_type;
1804 END IF;
1805
1806 IF p_claim_line_hist_rec.prorate_earnings_flag = FND_API.g_miss_char THEN
1807 x_complete_rec.prorate_earnings_flag := NULL;
1808 END IF;
1809 IF p_claim_line_hist_rec.prorate_earnings_flag IS NULL THEN
1810 x_complete_rec.prorate_earnings_flag := l_claim_line_hist_rec.prorate_earnings_flag;
1811 END IF;
1812
1813 IF p_claim_line_hist_rec.earnings_end_date = FND_API.g_miss_date THEN
1814 x_complete_rec.earnings_end_date := NULL;
1815 END IF;
1816 IF p_claim_line_hist_rec.earnings_end_date IS NULL THEN
1817 x_complete_rec.earnings_end_date := l_claim_line_hist_rec.earnings_end_date;
1818 END IF;
1819
1820
1821
1822 END Complete_claim_line_hist_Rec;
1823
1824
1825 PROCEDURE Validate_claim_line_hist(
1826 p_api_version_number IN NUMBER,
1827 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1828 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1829 p_claim_line_hist_rec IN claim_line_hist_rec_type,
1830 x_return_status OUT NOCOPY VARCHAR2,
1831 x_msg_count OUT NOCOPY NUMBER,
1832 x_msg_data OUT NOCOPY VARCHAR2
1833 )
1834 IS
1835 l_api_name CONSTANT VARCHAR2(30) := 'Validate_Claim_Line_Hist';
1836 l_api_version_number CONSTANT NUMBER := 1.0;
1837 l_object_version_number NUMBER;
1838 l_claim_line_hist_rec OZF_Claim_Line_Hist_PVT.claim_line_hist_rec_type;
1839
1840 BEGIN
1841 -- Standard Start of API savepoint
1842 SAVEPOINT VALIDATE_Claim_Line_Hist_;
1843
1844 -- Standard call to check for call compatibility.
1845 IF NOT FND_API.Compatible_API_Call(l_api_version_number,
1846 p_api_version_number,
1847 l_api_name,
1848 G_PKG_NAME) THEN
1849 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1850 END IF;
1851
1852 -- Initialize message list if p_init_msg_list is set to TRUE.
1853 IF FND_API.to_Boolean( p_init_msg_list ) THEN
1854 FND_MSG_PUB.initialize;
1855 END IF;
1856
1857 -- Debug Message
1858 IF g_debug THEN
1859 OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
1860 END IF;
1861
1862 -- Initialize API return status to SUCCESS
1863 x_return_status := FND_API.G_RET_STS_SUCCESS;
1864
1865 IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1866 Check_claim_line_hist_Items(
1867 p_claim_line_hist_rec => p_claim_line_hist_rec,
1868 p_validation_mode => JTF_PLSQL_API.g_update,
1869 x_return_status => x_return_status
1870 );
1871
1872 IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1873 RAISE FND_API.G_EXC_ERROR;
1874 ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1875 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1876 END IF;
1877 END IF;
1878
1879 Complete_claim_line_hist_Rec(
1880 p_claim_line_hist_rec => p_claim_line_hist_rec,
1881 x_complete_rec => l_claim_line_hist_rec
1882 );
1883
1884 IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1885 Validate_claim_line_hist_Rec(
1886 p_api_version_number => 1.0,
1887 p_init_msg_list => FND_API.G_FALSE,
1888 x_return_status => x_return_status,
1889 x_msg_count => x_msg_count,
1890 x_msg_data => x_msg_data,
1891 p_claim_line_hist_rec => l_claim_line_hist_rec
1892 );
1893
1894 IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1895 RAISE FND_API.G_EXC_ERROR;
1896 ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1897 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1898 END IF;
1899 END IF;
1900
1901 -- Debug Message
1902 IF g_debug THEN
1903 OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
1904 END IF;
1905
1906 -- Standard call to get message count and if count is 1, get message info.
1907 FND_MSG_PUB.Count_And_Get(
1908 p_count => x_msg_count,
1909 p_data => x_msg_data
1910 );
1911
1912 EXCEPTION
1913 WHEN OZF_Utility_PVT.resource_locked THEN
1914 x_return_status := FND_API.g_ret_sts_error;
1915 OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1916
1917 WHEN FND_API.G_EXC_ERROR THEN
1918 ROLLBACK TO VALIDATE_Claim_Line_Hist_;
1919 x_return_status := FND_API.G_RET_STS_ERROR;
1920 -- Standard call to get message count and if count=1, get the message
1921 FND_MSG_PUB.Count_And_Get (
1922 p_encoded => FND_API.G_FALSE,
1923 p_count => x_msg_count,
1924 p_data => x_msg_data
1925 );
1926
1927 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1928 ROLLBACK TO VALIDATE_Claim_Line_Hist_;
1929 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1930 -- Standard call to get message count and if count=1, get the message
1931 FND_MSG_PUB.Count_And_Get (
1932 p_encoded => FND_API.G_FALSE,
1933 p_count => x_msg_count,
1934 p_data => x_msg_data
1935 );
1936
1937 WHEN OTHERS THEN
1938 ROLLBACK TO VALIDATE_Claim_Line_Hist_;
1939 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1940 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1941 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
1942 END IF;
1943 -- Standard call to get message count and if count=1, get the message
1944 FND_MSG_PUB.Count_And_Get (
1945 p_encoded => FND_API.G_FALSE,
1946 p_count => x_msg_count,
1947 p_data => x_msg_data
1948 );
1949
1950 End Validate_Claim_Line_Hist;
1951
1952
1953 PROCEDURE Validate_claim_line_hist_rec(
1954 p_api_version_number IN NUMBER,
1955 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1956 x_return_status OUT NOCOPY VARCHAR2,
1957 x_msg_count OUT NOCOPY NUMBER,
1958 x_msg_data OUT NOCOPY VARCHAR2,
1959 p_claim_line_hist_rec IN claim_line_hist_rec_type
1960 )
1961 IS
1962 BEGIN
1963 -- Initialize message list if p_init_msg_list is set to TRUE.
1964 IF FND_API.to_Boolean( p_init_msg_list ) THEN
1965 FND_MSG_PUB.initialize;
1966 END IF;
1967
1968 -- Initialize API return status to SUCCESS
1969 x_return_status := FND_API.G_RET_STS_SUCCESS;
1970
1971 -- Hint: Validate data
1972 -- If data not valid
1973 -- THEN
1974 -- x_return_status := FND_API.G_RET_STS_ERROR;
1975
1976 -- Debug Message
1977 IF g_debug THEN
1978 OZF_UTILITY_PVT.debug_message('Private API: Validate_dm_model_rec');
1979 END IF;
1980 -- Standard call to get message count and if count is 1, get message info.
1981 FND_MSG_PUB.Count_And_Get(
1982 p_count => x_msg_count,
1983 p_data => x_msg_data
1984 );
1985 END Validate_claim_line_hist_Rec;
1986
1987 END OZF_Claim_Line_Hist_PVT;