[Home] [Help]
25: -- FUNCTION
26: -- Compare_Line_Items
27: --
28: -- NOTES
29: -- 1. Compare_Line_Items function will return FND_API.g_true/false;
30: -- 2. Return FND_API.g_true: Compare is the same;
31: -- 3. Return FND_API.g_false: Compare is not the same;
32: --
33: -- HISTORY
26: -- Compare_Line_Items
27: --
28: -- NOTES
29: -- 1. Compare_Line_Items function will return FND_API.g_true/false;
30: -- 2. Return FND_API.g_true: Compare is the same;
31: -- 3. Return FND_API.g_false: Compare is not the same;
32: --
33: -- HISTORY
34: -- 02/01/2001 mchang Created.
27: --
28: -- NOTES
29: -- 1. Compare_Line_Items function will return FND_API.g_true/false;
30: -- 2. Return FND_API.g_true: Compare is the same;
31: -- 3. Return FND_API.g_false: Compare is not the same;
32: --
33: -- HISTORY
34: -- 02/01/2001 mchang Created.
35: -- 07/02/2001 mchang Incorporated with AMS_COLUMN_RULES to look up history
52: AND object_type = 'CLAM'
53: AND object_attribute = cv_object_attribute;
54:
55: l_line_hist_col VARCHAR2(80);
56: l_return VARCHAR2(1) := FND_API.g_true;
57:
58: BEGIN
59: OPEN csr_user_hist_cols(p_object_attribute);
60: LOOP
59: OPEN csr_user_hist_cols(p_object_attribute);
60: LOOP
61: FETCH csr_user_hist_cols INTO l_line_hist_col;
62: EXIT WHEN csr_user_hist_cols%NOTFOUND;
63: EXIT WHEN l_return = FND_API.g_false;
64: IF l_line_hist_col = 'VALID_FLAG' AND
65: p_old_rec.valid_flag <> p_new_rec.valid_flag THEN
66: l_return := FND_API.g_false;
67: ELSIF l_line_hist_col = 'PERFORMANCE_COMPLETE_FLAG' AND
62: EXIT WHEN csr_user_hist_cols%NOTFOUND;
63: EXIT WHEN l_return = FND_API.g_false;
64: IF l_line_hist_col = 'VALID_FLAG' AND
65: p_old_rec.valid_flag <> p_new_rec.valid_flag THEN
66: l_return := FND_API.g_false;
67: ELSIF l_line_hist_col = 'PERFORMANCE_COMPLETE_FLAG' AND
68: p_old_rec.performance_complete_flag <> p_new_rec.performance_complete_flag THEN
69: l_return := FND_API.g_false;
70: ELSIF l_line_hist_col = 'PERFORMANCE_ATTACHED_FLAG' AND
65: p_old_rec.valid_flag <> p_new_rec.valid_flag THEN
66: l_return := FND_API.g_false;
67: ELSIF l_line_hist_col = 'PERFORMANCE_COMPLETE_FLAG' AND
68: p_old_rec.performance_complete_flag <> p_new_rec.performance_complete_flag THEN
69: l_return := FND_API.g_false;
70: ELSIF l_line_hist_col = 'PERFORMANCE_ATTACHED_FLAG' AND
71: p_old_rec.performance_attached_flag <> p_new_rec.performance_attached_flag THEN
72: l_return := FND_API.g_false;
73: ELSIF l_line_hist_col = 'EARNINGS_ASSOCIATED_FLAG' AND
68: p_old_rec.performance_complete_flag <> p_new_rec.performance_complete_flag THEN
69: l_return := FND_API.g_false;
70: ELSIF l_line_hist_col = 'PERFORMANCE_ATTACHED_FLAG' AND
71: p_old_rec.performance_attached_flag <> p_new_rec.performance_attached_flag THEN
72: l_return := FND_API.g_false;
73: ELSIF l_line_hist_col = 'EARNINGS_ASSOCIATED_FLAG' AND
74: p_old_rec.earnings_associated_flag <> p_new_rec.earnings_associated_flag THEN
75: l_return := FND_API.g_false;
76: ELSIF l_line_hist_col = 'CLAIM_CURRENCY_AMOUNT' AND
71: p_old_rec.performance_attached_flag <> p_new_rec.performance_attached_flag THEN
72: l_return := FND_API.g_false;
73: ELSIF l_line_hist_col = 'EARNINGS_ASSOCIATED_FLAG' AND
74: p_old_rec.earnings_associated_flag <> p_new_rec.earnings_associated_flag THEN
75: l_return := FND_API.g_false;
76: ELSIF l_line_hist_col = 'CLAIM_CURRENCY_AMOUNT' AND
77: p_old_rec.claim_currency_amount <> p_new_rec.claim_currency_amount THEN
78: l_return := FND_API.g_false;
79: ELSIF l_line_hist_col = 'ACTIVITY_TYPE' AND
74: p_old_rec.earnings_associated_flag <> p_new_rec.earnings_associated_flag THEN
75: l_return := FND_API.g_false;
76: ELSIF l_line_hist_col = 'CLAIM_CURRENCY_AMOUNT' AND
77: p_old_rec.claim_currency_amount <> p_new_rec.claim_currency_amount THEN
78: l_return := FND_API.g_false;
79: ELSIF l_line_hist_col = 'ACTIVITY_TYPE' AND
80: p_old_rec.activity_type <> p_new_rec.activity_type THEN
81: l_return := FND_API.g_false;
82: ELSIF l_line_hist_col = 'ACTIVITY_ID' AND
77: p_old_rec.claim_currency_amount <> p_new_rec.claim_currency_amount THEN
78: l_return := FND_API.g_false;
79: ELSIF l_line_hist_col = 'ACTIVITY_TYPE' AND
80: p_old_rec.activity_type <> p_new_rec.activity_type THEN
81: l_return := FND_API.g_false;
82: ELSIF l_line_hist_col = 'ACTIVITY_ID' AND
83: p_old_rec.activity_id <> p_new_rec.activity_id THEN
84: l_return := FND_API.g_false;
85: ELSIF l_line_hist_col = 'PLAN_ID' AND
80: p_old_rec.activity_type <> p_new_rec.activity_type THEN
81: l_return := FND_API.g_false;
82: ELSIF l_line_hist_col = 'ACTIVITY_ID' AND
83: p_old_rec.activity_id <> p_new_rec.activity_id THEN
84: l_return := FND_API.g_false;
85: ELSIF l_line_hist_col = 'PLAN_ID' AND
86: p_old_rec.plan_id <> p_new_rec.plan_id THEN
87: l_return := FND_API.g_false;
88: ELSIF l_line_hist_col = 'OFFER_ID' AND
83: p_old_rec.activity_id <> p_new_rec.activity_id THEN
84: l_return := FND_API.g_false;
85: ELSIF l_line_hist_col = 'PLAN_ID' AND
86: p_old_rec.plan_id <> p_new_rec.plan_id THEN
87: l_return := FND_API.g_false;
88: ELSIF l_line_hist_col = 'OFFER_ID' AND
89: p_old_rec.offer_id <> p_new_rec.offer_id THEN
90: l_return := FND_API.g_false;
91: ELSIF l_line_hist_col = 'SOURCE_OBJECT_ID' AND
86: p_old_rec.plan_id <> p_new_rec.plan_id THEN
87: l_return := FND_API.g_false;
88: ELSIF l_line_hist_col = 'OFFER_ID' AND
89: p_old_rec.offer_id <> p_new_rec.offer_id THEN
90: l_return := FND_API.g_false;
91: ELSIF l_line_hist_col = 'SOURCE_OBJECT_ID' AND
92: p_old_rec.source_object_id <> p_new_rec.source_object_id THEN
93: l_return := FND_API.g_false;
94: ELSIF l_line_hist_col = 'SOURCE_OBJECT_LINE_ID' AND
89: p_old_rec.offer_id <> p_new_rec.offer_id THEN
90: l_return := FND_API.g_false;
91: ELSIF l_line_hist_col = 'SOURCE_OBJECT_ID' AND
92: p_old_rec.source_object_id <> p_new_rec.source_object_id THEN
93: l_return := FND_API.g_false;
94: ELSIF l_line_hist_col = 'SOURCE_OBJECT_LINE_ID' AND
95: p_old_rec.source_object_line_id <> p_new_rec.source_object_line_id THEN
96: l_return := FND_API.g_false;
97: ELSIF l_line_hist_col = 'SOURCE_OBJECT_CLASS' AND
92: p_old_rec.source_object_id <> p_new_rec.source_object_id THEN
93: l_return := FND_API.g_false;
94: ELSIF l_line_hist_col = 'SOURCE_OBJECT_LINE_ID' AND
95: p_old_rec.source_object_line_id <> p_new_rec.source_object_line_id THEN
96: l_return := FND_API.g_false;
97: ELSIF l_line_hist_col = 'SOURCE_OBJECT_CLASS' AND
98: p_old_rec.source_object_class <> p_new_rec.source_object_class THEN
99: l_return := FND_API.g_false;
100: ELSIF l_line_hist_col = 'QUANTITY' AND
95: p_old_rec.source_object_line_id <> p_new_rec.source_object_line_id THEN
96: l_return := FND_API.g_false;
97: ELSIF l_line_hist_col = 'SOURCE_OBJECT_CLASS' AND
98: p_old_rec.source_object_class <> p_new_rec.source_object_class THEN
99: l_return := FND_API.g_false;
100: ELSIF l_line_hist_col = 'QUANTITY' AND
101: p_old_rec.quantity <> p_new_rec.quantity THEN
102: l_return := FND_API.g_false;
103: ELSIF l_line_hist_col = 'RATE' AND
98: p_old_rec.source_object_class <> p_new_rec.source_object_class THEN
99: l_return := FND_API.g_false;
100: ELSIF l_line_hist_col = 'QUANTITY' AND
101: p_old_rec.quantity <> p_new_rec.quantity THEN
102: l_return := FND_API.g_false;
103: ELSIF l_line_hist_col = 'RATE' AND
104: p_old_rec.rate <> p_new_rec.rate THEN
105: l_return := FND_API.g_false;
106: ELSIF l_line_hist_col = 'QUANTITY_UOM' AND
101: p_old_rec.quantity <> p_new_rec.quantity THEN
102: l_return := FND_API.g_false;
103: ELSIF l_line_hist_col = 'RATE' AND
104: p_old_rec.rate <> p_new_rec.rate THEN
105: l_return := FND_API.g_false;
106: ELSIF l_line_hist_col = 'QUANTITY_UOM' AND
107: p_old_rec.quantity_uom <> p_new_rec.quantity_uom THEN
108: l_return := FND_API.g_false;
109: ELSIF l_line_hist_col = 'ITEM_ID' AND
104: p_old_rec.rate <> p_new_rec.rate THEN
105: l_return := FND_API.g_false;
106: ELSIF l_line_hist_col = 'QUANTITY_UOM' AND
107: p_old_rec.quantity_uom <> p_new_rec.quantity_uom THEN
108: l_return := FND_API.g_false;
109: ELSIF l_line_hist_col = 'ITEM_ID' AND
110: p_old_rec.item_id <> p_new_rec.item_id THEN
111: l_return := FND_API.g_false;
112: ELSIF l_line_hist_col = 'ITEM_DESCRIPTION' AND
107: p_old_rec.quantity_uom <> p_new_rec.quantity_uom THEN
108: l_return := FND_API.g_false;
109: ELSIF l_line_hist_col = 'ITEM_ID' AND
110: p_old_rec.item_id <> p_new_rec.item_id THEN
111: l_return := FND_API.g_false;
112: ELSIF l_line_hist_col = 'ITEM_DESCRIPTION' AND
113: p_old_rec.item_description <> p_new_rec.item_description THEN
114: l_return := FND_API.g_false;
115: ELSIF l_line_hist_col = 'COMMENTS' AND
110: p_old_rec.item_id <> p_new_rec.item_id THEN
111: l_return := FND_API.g_false;
112: ELSIF l_line_hist_col = 'ITEM_DESCRIPTION' AND
113: p_old_rec.item_description <> p_new_rec.item_description THEN
114: l_return := FND_API.g_false;
115: ELSIF l_line_hist_col = 'COMMENTS' AND
116: p_old_rec.comments <> p_new_rec.comments THEN
117: l_return := FND_API.g_false;
118: ELSIF l_line_hist_col = 'TAX_CODE' AND
113: p_old_rec.item_description <> p_new_rec.item_description THEN
114: l_return := FND_API.g_false;
115: ELSIF l_line_hist_col = 'COMMENTS' AND
116: p_old_rec.comments <> p_new_rec.comments THEN
117: l_return := FND_API.g_false;
118: ELSIF l_line_hist_col = 'TAX_CODE' AND
119: p_old_rec.tax_code <> p_new_rec.tax_code THEN
120: l_return := FND_API.g_false;
121: ELSIF l_line_hist_col = 'CREDIT_TO' AND
116: p_old_rec.comments <> p_new_rec.comments THEN
117: l_return := FND_API.g_false;
118: ELSIF l_line_hist_col = 'TAX_CODE' AND
119: p_old_rec.tax_code <> p_new_rec.tax_code THEN
120: l_return := FND_API.g_false;
121: ELSIF l_line_hist_col = 'CREDIT_TO' AND
122: p_old_rec.credit_to <> p_new_rec.credit_to THEN
123: l_return := FND_API.g_false;
124: -- ELSE
119: p_old_rec.tax_code <> p_new_rec.tax_code THEN
120: l_return := FND_API.g_false;
121: ELSIF l_line_hist_col = 'CREDIT_TO' AND
122: p_old_rec.credit_to <> p_new_rec.credit_to THEN
123: l_return := FND_API.g_false;
124: -- ELSE
125: -- l_return := FND_API.g_true;
126: END IF;
127: END LOOP;
121: ELSIF l_line_hist_col = 'CREDIT_TO' AND
122: p_old_rec.credit_to <> p_new_rec.credit_to THEN
123: l_return := FND_API.g_false;
124: -- ELSE
125: -- l_return := FND_API.g_true;
126: END IF;
127: END LOOP;
128: CLOSE csr_user_hist_cols;
129:
158:
159: l_default_uom varchar2(30);
160: BEGIN
161:
162: If ((p_product_id is not null and p_product_id <> FND_API.G_MISS_NUM)
163: AND (p_org_id is not null and p_org_id <> FND_API.G_MISS_NUM))
164: THEN
165: OPEN default_uom_csr(p_product_id, p_org_id);
166: FETCH default_uom_csr into l_default_uom;
159: l_default_uom varchar2(30);
160: BEGIN
161:
162: If ((p_product_id is not null and p_product_id <> FND_API.G_MISS_NUM)
163: AND (p_org_id is not null and p_org_id <> FND_API.G_MISS_NUM))
164: THEN
165: OPEN default_uom_csr(p_product_id, p_org_id);
166: FETCH default_uom_csr into l_default_uom;
167: CLOSE default_uom_csr;
189: -- 08/13/2001 mchang Add p_object_attribute as passing in parameter.
190: ---------------------------------------------------------------------
191: PROCEDURE Check_Create_Line_Hist(
192: p_api_version IN NUMBER
193: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
194:
195: ,x_return_status OUT NOCOPY VARCHAR2
196: ,x_msg_count OUT NOCOPY NUMBER
197: ,x_msg_data OUT NOCOPY VARCHAR2
247: IF OZF_DEBUG_HIGH_ON THEN
248: OZF_Utility_PVT.debug_message(l_full_name||': start');
249: END IF;
250:
251: IF FND_API.to_boolean(p_init_msg_list) THEN
252: FND_MSG_PUB.initialize;
253: END IF;
254:
255: IF NOT FND_API.compatible_api_call(
251: IF FND_API.to_boolean(p_init_msg_list) THEN
252: FND_MSG_PUB.initialize;
253: END IF;
254:
255: IF NOT FND_API.compatible_api_call(
256: l_api_version,
257: p_api_version,
258: l_api_name,
259: g_pkg_name
257: p_api_version,
258: l_api_name,
259: g_pkg_name
260: ) THEN
261: RAISE FND_API.g_exc_unexpected_error;
262: END IF;
263:
264: IF p_mode <> 'CREATE' THEN
265: -- replace g_miss_char/num/date with current column values
271: l_new_line_rec := p_claim_line_rec;
272: END IF;
273:
274:
275: x_return_status := FND_API.g_ret_sts_success;
276:
277: ------------------------ start -------------------------
278: -- fetch out old claim line record
279: IF p_mode = JTF_PLSQL_API.g_create THEN
278: -- fetch out old claim line record
279: IF p_mode = JTF_PLSQL_API.g_create THEN
280: l_old_line_rec := null;
281: ELSE
282: IF p_claim_line_rec.claim_line_id <> FND_API.g_miss_num
283: AND p_claim_line_rec.claim_line_id IS NOT NULL THEN
284: OPEN c_claim_old_line(p_claim_line_rec.claim_line_id);
285: FETCH c_claim_old_line INTO l_old_line_rec.claim_id
286: , l_old_line_rec.valid_flag
323: -- p_old_rec => l_old_line_rec
324: -- ,p_new_rec => l_new_line_rec
325: -- ,p_object_attribute => p_object_attribute
326: -- );
327: -- IF l_compare_result = FND_API.g_true THEN
328: -- x_create_hist_flag := 'N';
329: -- ELSE
330: -- x_create_hist_flag := 'Y';
331: -- END IF;
337: p_old_rec => l_old_line_rec
338: ,p_new_rec => l_new_line_rec
339: ,p_object_attribute => p_object_attribute
340: );
341: IF l_compare_result = FND_API.g_true THEN
342: x_create_hist_flag := 'N';
343: ELSE
344: x_create_hist_flag := 'Y';
345: END IF;
348: p_old_rec => l_old_line_rec
349: ,p_new_rec => l_new_line_rec
350: ,p_object_attribute => p_object_attribute
351: );
352: IF l_compare_result = FND_API.g_true THEN
353: x_create_hist_flag := 'N';
354: ELSE
355: x_create_hist_flag := 'Y';
356: END IF;
357: ELSE
358: IF OZF_DEBUG_HIGH_ON THEN
359: OZF_Utility_PVT.debug_message(l_full_name||': p_mode should be CREATE, UPDATE, or DELETE');
360: END IF;
361: RAISE FND_API.g_exc_error;
362: END IF;
363:
364: ------------------------- finish -------------------------------
365: FND_MSG_PUB.count_and_get(
362: END IF;
363:
364: ------------------------- finish -------------------------------
365: FND_MSG_PUB.count_and_get(
366: p_encoded => FND_API.g_false,
367: p_count => x_msg_count,
368: p_data => x_msg_data
369: );
370:
372: OZF_Utility_PVT.debug_message(l_full_name ||': end');
373: END IF;
374:
375: EXCEPTION
376: WHEN FND_API.g_exc_error THEN
377: ROLLBACK TO Check_Create_Line_Hist;
378: x_return_status := FND_API.g_ret_sts_error;
379: FND_MSG_PUB.count_and_get (
380: p_encoded => FND_API.g_false
374:
375: EXCEPTION
376: WHEN FND_API.g_exc_error THEN
377: ROLLBACK TO Check_Create_Line_Hist;
378: x_return_status := FND_API.g_ret_sts_error;
379: FND_MSG_PUB.count_and_get (
380: p_encoded => FND_API.g_false
381: ,p_count => x_msg_count
382: ,p_data => x_msg_data
376: WHEN FND_API.g_exc_error THEN
377: ROLLBACK TO Check_Create_Line_Hist;
378: x_return_status := FND_API.g_ret_sts_error;
379: FND_MSG_PUB.count_and_get (
380: p_encoded => FND_API.g_false
381: ,p_count => x_msg_count
382: ,p_data => x_msg_data
383: );
384:
381: ,p_count => x_msg_count
382: ,p_data => x_msg_data
383: );
384:
385: WHEN FND_API.g_exc_unexpected_error THEN
386: ROLLBACK TO Check_Create_Line_Hist;
387: x_return_status := FND_API.g_ret_sts_unexp_error ;
388: FND_MSG_PUB.count_and_get (
389: p_encoded => FND_API.g_false
383: );
384:
385: WHEN FND_API.g_exc_unexpected_error THEN
386: ROLLBACK TO Check_Create_Line_Hist;
387: x_return_status := FND_API.g_ret_sts_unexp_error ;
388: FND_MSG_PUB.count_and_get (
389: p_encoded => FND_API.g_false
390: ,p_count => x_msg_count
391: ,p_data => x_msg_data
385: WHEN FND_API.g_exc_unexpected_error THEN
386: ROLLBACK TO Check_Create_Line_Hist;
387: x_return_status := FND_API.g_ret_sts_unexp_error ;
388: FND_MSG_PUB.count_and_get (
389: p_encoded => FND_API.g_false
390: ,p_count => x_msg_count
391: ,p_data => x_msg_data
392: );
393:
392: );
393:
394: WHEN OTHERS THEN
395: ROLLBACK TO Check_Create_Line_Hist;
396: x_return_status := FND_API.g_ret_sts_unexp_error ;
397: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
398: THEN
399: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
400: END IF;
398: THEN
399: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
400: END IF;
401: FND_MSG_PUB.count_and_get(
402: p_encoded => FND_API.g_false
403: ,p_count => x_msg_count
404: ,p_data => x_msg_data
405: );
406:
482:
483: l_claim_line_rec claim_line_rec_type := p_claim_line_rec;
484:
485: BEGIN
486: x_return_status := FND_API.g_ret_sts_success;
487:
488: IF p_claim_line_rec.source_object_id IS NOT NULL THEN
489: IF p_claim_line_rec.source_object_class IN ('INVOICE', 'CB', 'DM') THEN
490: OPEN csr_invoice_default_exc(p_claim_line_rec.source_object_id);
531: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
532: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_TRIANG_API_ERR');
533: FND_MSG_PUB.add;
534: END IF;
535: RAISE FND_API.g_exc_error;
536: END;
537:
538: l_line_amount := p_claim_line_rec.claim_currency_amount * l_rate;
539: */
557: ,x_return_status => l_return_status
558: ,x_to_amount => l_line_amount
559: ,x_rate => l_rate
560: );
561: IF l_return_status = FND_API.g_ret_sts_error THEN
562: RAISE FND_API.g_exc_error;
563: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
564: RAISE FND_API.g_exc_unexpected_error;
565: END IF;
558: ,x_to_amount => l_line_amount
559: ,x_rate => l_rate
560: );
561: IF l_return_status = FND_API.g_ret_sts_error THEN
562: RAISE FND_API.g_exc_error;
563: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
564: RAISE FND_API.g_exc_unexpected_error;
565: END IF;
566:
559: ,x_rate => l_rate
560: );
561: IF l_return_status = FND_API.g_ret_sts_error THEN
562: RAISE FND_API.g_exc_error;
563: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
564: RAISE FND_API.g_exc_unexpected_error;
565: END IF;
566:
567: l_claim_line_rec.currency_code := l_default_currency;
560: );
561: IF l_return_status = FND_API.g_ret_sts_error THEN
562: RAISE FND_API.g_exc_error;
563: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
564: RAISE FND_API.g_exc_unexpected_error;
565: END IF;
566:
567: l_claim_line_rec.currency_code := l_default_currency;
568: l_claim_line_rec.exchange_rate_type := l_default_exc_type;
574:
575: x_claim_line_rec := l_claim_line_rec;
576:
577: EXCEPTION
578: WHEN FND_API.g_exc_error THEN
579: x_return_status := FND_API.g_ret_sts_error;
580:
581: WHEN FND_API.g_exc_unexpected_error THEN
582: x_return_status := FND_API.g_ret_sts_unexp_error ;
575: x_claim_line_rec := l_claim_line_rec;
576:
577: EXCEPTION
578: WHEN FND_API.g_exc_error THEN
579: x_return_status := FND_API.g_ret_sts_error;
580:
581: WHEN FND_API.g_exc_unexpected_error THEN
582: x_return_status := FND_API.g_ret_sts_unexp_error ;
583:
577: EXCEPTION
578: WHEN FND_API.g_exc_error THEN
579: x_return_status := FND_API.g_ret_sts_error;
580:
581: WHEN FND_API.g_exc_unexpected_error THEN
582: x_return_status := FND_API.g_ret_sts_unexp_error ;
583:
584: WHEN OTHERS THEN
585: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
578: WHEN FND_API.g_exc_error THEN
579: x_return_status := FND_API.g_ret_sts_error;
580:
581: WHEN FND_API.g_exc_unexpected_error THEN
582: x_return_status := FND_API.g_ret_sts_unexp_error ;
583:
584: WHEN OTHERS THEN
585: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
586: IF OZF_DEBUG_LOW_ON THEN
581: WHEN FND_API.g_exc_unexpected_error THEN
582: x_return_status := FND_API.g_ret_sts_unexp_error ;
583:
584: WHEN OTHERS THEN
585: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
586: IF OZF_DEBUG_LOW_ON THEN
587: FND_MESSAGE.set_name('OZF', 'OZF_API_DEBUG_MESSAGE');
588: FND_MESSAGE.set_token('TEXT', l_full_name||': An error happened while converting line amount');
589: FND_MSG_PUB.add;
600: -- 07/26/2001 mchang Create.
601: ---------------------------------------------------------------------
602: PROCEDURE Update_Line_Fm_Claim(
603: p_api_version IN NUMBER
604: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
605: ,p_commit IN VARCHAR2 := FND_API.g_false
606: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
607:
608: ,x_return_status OUT NOCOPY VARCHAR2
601: ---------------------------------------------------------------------
602: PROCEDURE Update_Line_Fm_Claim(
603: p_api_version IN NUMBER
604: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
605: ,p_commit IN VARCHAR2 := FND_API.g_false
606: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
607:
608: ,x_return_status OUT NOCOPY VARCHAR2
609: ,x_msg_data OUT NOCOPY VARCHAR2
602: PROCEDURE Update_Line_Fm_Claim(
603: p_api_version IN NUMBER
604: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
605: ,p_commit IN VARCHAR2 := FND_API.g_false
606: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
607:
608: ,x_return_status OUT NOCOPY VARCHAR2
609: ,x_msg_data OUT NOCOPY VARCHAR2
610: ,x_msg_count OUT NOCOPY NUMBER
620: l_msg_count NUMBER;
621: l_msg_data VARCHAR2(4000);
622:
623: l_old_claim_rec OZF_CLAIM_PVT.claim_rec_type;
624: l_upd_line_flag VARCHAR2(1) := FND_API.g_false;
625: l_remove_tax_code VARCHAR2(1) := FND_API.g_false;
626: l_remove_related_cust VARCHAR2(1) := FND_API.g_false;
627: l_amount_change_flag VARCHAR2(1) := FND_API.g_false; --Bug:2781186
628:
621: l_msg_data VARCHAR2(4000);
622:
623: l_old_claim_rec OZF_CLAIM_PVT.claim_rec_type;
624: l_upd_line_flag VARCHAR2(1) := FND_API.g_false;
625: l_remove_tax_code VARCHAR2(1) := FND_API.g_false;
626: l_remove_related_cust VARCHAR2(1) := FND_API.g_false;
627: l_amount_change_flag VARCHAR2(1) := FND_API.g_false; --Bug:2781186
628:
629: l_claim_line_tbl claim_line_tbl_type;
622:
623: l_old_claim_rec OZF_CLAIM_PVT.claim_rec_type;
624: l_upd_line_flag VARCHAR2(1) := FND_API.g_false;
625: l_remove_tax_code VARCHAR2(1) := FND_API.g_false;
626: l_remove_related_cust VARCHAR2(1) := FND_API.g_false;
627: l_amount_change_flag VARCHAR2(1) := FND_API.g_false; --Bug:2781186
628:
629: l_claim_line_tbl claim_line_tbl_type;
630: l_line_counter NUMBER := 1;
623: l_old_claim_rec OZF_CLAIM_PVT.claim_rec_type;
624: l_upd_line_flag VARCHAR2(1) := FND_API.g_false;
625: l_remove_tax_code VARCHAR2(1) := FND_API.g_false;
626: l_remove_related_cust VARCHAR2(1) := FND_API.g_false;
627: l_amount_change_flag VARCHAR2(1) := FND_API.g_false; --Bug:2781186
628:
629: l_claim_line_tbl claim_line_tbl_type;
630: l_line_counter NUMBER := 1;
631: l_object_version NUMBER;
678: IF OZF_DEBUG_HIGH_ON THEN
679: OZF_Utility_PVT.debug_message(l_full_name||': start');
680: END IF;
681:
682: IF FND_API.to_boolean(p_init_msg_list) THEN
683: FND_MSG_PUB.initialize;
684: END IF;
685:
686: IF NOT FND_API.compatible_api_call(
682: IF FND_API.to_boolean(p_init_msg_list) THEN
683: FND_MSG_PUB.initialize;
684: END IF;
685:
686: IF NOT FND_API.compatible_api_call(
687: l_api_version,
688: p_api_version,
689: l_api_name,
690: g_pkg_name
688: p_api_version,
689: l_api_name,
690: g_pkg_name
691: ) THEN
692: RAISE FND_API.g_exc_unexpected_error;
693: END IF;
694:
695: x_return_status := FND_API.g_ret_sts_success;
696:
691: ) THEN
692: RAISE FND_API.g_exc_unexpected_error;
693: END IF;
694:
695: x_return_status := FND_API.g_ret_sts_success;
696:
697: -------------------------- start ----------------------------
698: OPEN csr_claim_old_rec(p_new_claim_rec.claim_id);
699: FETCH csr_claim_old_rec INTO l_old_claim_rec.currency_code
707: , l_old_claim_rec.amount; --Bug:2781186
708: CLOSE csr_claim_old_rec;
709:
710: -- change in currency_code and exchange_rates
711: IF ( p_new_claim_rec.currency_code <> FND_API.g_miss_char
712: AND
713: p_new_claim_rec.currency_code <> l_old_claim_rec.currency_code )
714: THEN
715: l_upd_line_flag := FND_API.g_true;
711: IF ( p_new_claim_rec.currency_code <> FND_API.g_miss_char
712: AND
713: p_new_claim_rec.currency_code <> l_old_claim_rec.currency_code )
714: THEN
715: l_upd_line_flag := FND_API.g_true;
716: G_CLAIM_CURRENCY := p_new_claim_rec.currency_code;
717: ELSE
718: G_CLAIM_CURRENCY := l_old_claim_rec.currency_code;
719: END IF;
718: G_CLAIM_CURRENCY := l_old_claim_rec.currency_code;
719: END IF;
720:
721:
722: IF ( p_new_claim_rec.exchange_rate_type <> FND_API.g_miss_char
723: AND
724: NVL(p_new_claim_rec.exchange_rate_type,FND_API.g_miss_char) <> NVL(l_old_claim_rec.exchange_rate_type,FND_API.g_miss_char))
725: THEN
726: l_upd_line_flag := FND_API.g_true;
720:
721:
722: IF ( p_new_claim_rec.exchange_rate_type <> FND_API.g_miss_char
723: AND
724: NVL(p_new_claim_rec.exchange_rate_type,FND_API.g_miss_char) <> NVL(l_old_claim_rec.exchange_rate_type,FND_API.g_miss_char))
725: THEN
726: l_upd_line_flag := FND_API.g_true;
727: G_CLAIM_EXC_TYPE := p_new_claim_rec.exchange_rate_type;
728: ELSE
722: IF ( p_new_claim_rec.exchange_rate_type <> FND_API.g_miss_char
723: AND
724: NVL(p_new_claim_rec.exchange_rate_type,FND_API.g_miss_char) <> NVL(l_old_claim_rec.exchange_rate_type,FND_API.g_miss_char))
725: THEN
726: l_upd_line_flag := FND_API.g_true;
727: G_CLAIM_EXC_TYPE := p_new_claim_rec.exchange_rate_type;
728: ELSE
729: G_CLAIM_EXC_TYPE := l_old_claim_rec.exchange_rate_type;
730: END IF;
728: ELSE
729: G_CLAIM_EXC_TYPE := l_old_claim_rec.exchange_rate_type;
730: END IF;
731:
732: IF ( p_new_claim_rec.exchange_rate_date <> FND_API.g_miss_date
733: AND
734: NVL(p_new_claim_rec.exchange_rate_date,FND_API.g_miss_date) <> NVL(l_old_claim_rec.exchange_rate_date,FND_API.g_miss_date))
735: THEN
736: l_upd_line_flag := FND_API.g_true;
730: END IF;
731:
732: IF ( p_new_claim_rec.exchange_rate_date <> FND_API.g_miss_date
733: AND
734: NVL(p_new_claim_rec.exchange_rate_date,FND_API.g_miss_date) <> NVL(l_old_claim_rec.exchange_rate_date,FND_API.g_miss_date))
735: THEN
736: l_upd_line_flag := FND_API.g_true;
737: G_CLAIM_EXC_DATE := p_new_claim_rec.exchange_rate_date;
738: ELSE
732: IF ( p_new_claim_rec.exchange_rate_date <> FND_API.g_miss_date
733: AND
734: NVL(p_new_claim_rec.exchange_rate_date,FND_API.g_miss_date) <> NVL(l_old_claim_rec.exchange_rate_date,FND_API.g_miss_date))
735: THEN
736: l_upd_line_flag := FND_API.g_true;
737: G_CLAIM_EXC_DATE := p_new_claim_rec.exchange_rate_date;
738: ELSE
739: G_CLAIM_EXC_DATE := l_old_claim_rec.exchange_rate_date;
740: END IF;
738: ELSE
739: G_CLAIM_EXC_DATE := l_old_claim_rec.exchange_rate_date;
740: END IF;
741:
742: IF ( p_new_claim_rec.exchange_rate <> FND_API.g_miss_num
743: AND
744: NVL(p_new_claim_rec.exchange_rate,FND_API.g_miss_num) <> NVL(l_old_claim_rec.exchange_rate,FND_API.g_miss_num))
745: THEN
746: l_upd_line_flag := FND_API.g_true;
740: END IF;
741:
742: IF ( p_new_claim_rec.exchange_rate <> FND_API.g_miss_num
743: AND
744: NVL(p_new_claim_rec.exchange_rate,FND_API.g_miss_num) <> NVL(l_old_claim_rec.exchange_rate,FND_API.g_miss_num))
745: THEN
746: l_upd_line_flag := FND_API.g_true;
747: G_CLAIM_EXC_RATE := p_new_claim_rec.exchange_rate;
748: ELSE
742: IF ( p_new_claim_rec.exchange_rate <> FND_API.g_miss_num
743: AND
744: NVL(p_new_claim_rec.exchange_rate,FND_API.g_miss_num) <> NVL(l_old_claim_rec.exchange_rate,FND_API.g_miss_num))
745: THEN
746: l_upd_line_flag := FND_API.g_true;
747: G_CLAIM_EXC_RATE := p_new_claim_rec.exchange_rate;
748: ELSE
749: G_CLAIM_EXC_RATE := l_old_claim_rec.exchange_rate;
750: END IF;
750: END IF;
751:
752:
753: -- change in cust_account_id
754: IF ( p_new_claim_rec.cust_account_id <> FND_API.g_miss_num
755: AND p_new_claim_rec.cust_account_id <> l_old_claim_rec.cust_account_id) THEN
756: l_upd_line_flag := FND_API.g_true;
757: l_remove_related_cust := FND_API.g_true;
758: END IF;
752:
753: -- change in cust_account_id
754: IF ( p_new_claim_rec.cust_account_id <> FND_API.g_miss_num
755: AND p_new_claim_rec.cust_account_id <> l_old_claim_rec.cust_account_id) THEN
756: l_upd_line_flag := FND_API.g_true;
757: l_remove_related_cust := FND_API.g_true;
758: END IF;
759:
760: -- change in settlement method
753: -- change in cust_account_id
754: IF ( p_new_claim_rec.cust_account_id <> FND_API.g_miss_num
755: AND p_new_claim_rec.cust_account_id <> l_old_claim_rec.cust_account_id) THEN
756: l_upd_line_flag := FND_API.g_true;
757: l_remove_related_cust := FND_API.g_true;
758: END IF;
759:
760: -- change in settlement method
761: IF ( p_new_claim_rec.payment_method <> FND_API.g_miss_char
757: l_remove_related_cust := FND_API.g_true;
758: END IF;
759:
760: -- change in settlement method
761: IF ( p_new_claim_rec.payment_method <> FND_API.g_miss_char
762: AND
763: NVL(p_new_claim_rec.payment_method,FND_API.g_miss_char) <> NVL(l_old_claim_rec.payment_method,FND_API.g_miss_char))
764: THEN
765: l_upd_line_flag := FND_API.g_true;
759:
760: -- change in settlement method
761: IF ( p_new_claim_rec.payment_method <> FND_API.g_miss_char
762: AND
763: NVL(p_new_claim_rec.payment_method,FND_API.g_miss_char) <> NVL(l_old_claim_rec.payment_method,FND_API.g_miss_char))
764: THEN
765: l_upd_line_flag := FND_API.g_true;
766: l_remove_tax_code := FND_API.g_true;
767: END IF;
761: IF ( p_new_claim_rec.payment_method <> FND_API.g_miss_char
762: AND
763: NVL(p_new_claim_rec.payment_method,FND_API.g_miss_char) <> NVL(l_old_claim_rec.payment_method,FND_API.g_miss_char))
764: THEN
765: l_upd_line_flag := FND_API.g_true;
766: l_remove_tax_code := FND_API.g_true;
767: END IF;
768:
769: -- change in tax_code
762: AND
763: NVL(p_new_claim_rec.payment_method,FND_API.g_miss_char) <> NVL(l_old_claim_rec.payment_method,FND_API.g_miss_char))
764: THEN
765: l_upd_line_flag := FND_API.g_true;
766: l_remove_tax_code := FND_API.g_true;
767: END IF;
768:
769: -- change in tax_code
770: IF ( p_new_claim_rec.tax_code <> FND_API.g_miss_char
766: l_remove_tax_code := FND_API.g_true;
767: END IF;
768:
769: -- change in tax_code
770: IF ( p_new_claim_rec.tax_code <> FND_API.g_miss_char
771: AND
772: NVL(p_new_claim_rec.tax_code,FND_API.g_miss_char) <> NVL(l_old_claim_rec.tax_code,FND_API.g_miss_char))
773: THEN
774: l_upd_line_flag := FND_API.g_true;
768:
769: -- change in tax_code
770: IF ( p_new_claim_rec.tax_code <> FND_API.g_miss_char
771: AND
772: NVL(p_new_claim_rec.tax_code,FND_API.g_miss_char) <> NVL(l_old_claim_rec.tax_code,FND_API.g_miss_char))
773: THEN
774: l_upd_line_flag := FND_API.g_true;
775: END IF;
776:
770: IF ( p_new_claim_rec.tax_code <> FND_API.g_miss_char
771: AND
772: NVL(p_new_claim_rec.tax_code,FND_API.g_miss_char) <> NVL(l_old_claim_rec.tax_code,FND_API.g_miss_char))
773: THEN
774: l_upd_line_flag := FND_API.g_true;
775: END IF;
776:
777:
778: -- Bug4489415: Pass tax_action to claim line
775: END IF;
776:
777:
778: -- Bug4489415: Pass tax_action to claim line
779: IF (p_new_claim_rec.tax_action is not null AND p_new_claim_rec.tax_action <> FND_API.g_miss_char) THEN
780: l_upd_line_flag := FND_API.g_true;
781: END IF;
782:
783: -- ----------------------------------------------------------------------------
776:
777:
778: -- Bug4489415: Pass tax_action to claim line
779: IF (p_new_claim_rec.tax_action is not null AND p_new_claim_rec.tax_action <> FND_API.g_miss_char) THEN
780: l_upd_line_flag := FND_API.g_true;
781: END IF;
782:
783: -- ----------------------------------------------------------------------------
784: -- Bug : 2781186
784: -- Bug : 2781186
785: -- Changed by : Uday Poluri Date: 03-Jun-2003
786: -- Comments : Check for change in deduction amount
787: -- ----------------------------------------------------------------------------
788: IF (p_new_claim_rec.amount is not null AND p_new_claim_rec.amount <> FND_API.g_miss_num)
789: AND p_new_claim_rec.amount <> l_old_claim_rec.amount THEN
790:
791: --Count how many records are present in claim_lines
792: OPEN csr_claim_line_count(p_new_claim_rec.claim_id);
803: --Compare new deduction amount with line amount if it is less then only update.
804: --IF p_new_claim_rec.amount < l_claim_line_amount THEN
805: --IF p_new_claim_rec.amount_remaining <> l_claim_line_amount THEN --Changed on 11-Mar-03
806: IF p_new_claim_rec.amount <> l_claim_line_amount THEN --Changed on 12-Mar-03
807: l_upd_line_flag := FND_API.g_true;
808: l_amount_change_flag := FND_API.g_true;
809: END IF;
810:
811: END IF;
804: --IF p_new_claim_rec.amount < l_claim_line_amount THEN
805: --IF p_new_claim_rec.amount_remaining <> l_claim_line_amount THEN --Changed on 11-Mar-03
806: IF p_new_claim_rec.amount <> l_claim_line_amount THEN --Changed on 12-Mar-03
807: l_upd_line_flag := FND_API.g_true;
808: l_amount_change_flag := FND_API.g_true;
809: END IF;
810:
811: END IF;
812: END IF;
813: -- End Bug: 2781186 -----------------------------------------------------------
814:
815:
816: -------------------- Update Claim Line ----------------------
817: IF l_upd_line_flag = FND_API.g_true THEN
818: OPEN csr_line_rec_upd(p_new_claim_rec.claim_id);
819: LOOP
820: Init_Claim_Line_Rec(
821: x_claim_line_rec => l_claim_line_tbl(l_line_counter)
837: -- assign new value in claim line rec
838: FOR i IN l_claim_line_tbl.FIRST..l_claim_line_tbl.LAST LOOP
839:
840: IF l_claim_line_tbl(i).claim_line_id IS NOT NULL AND
841: l_claim_line_tbl(i).claim_line_id <> FND_API.g_miss_num THEN
842:
843: -- Modified for Bug4489415
844: IF l_remove_tax_code = FND_API.g_true THEN
845: l_claim_line_tbl(i).tax_code := NVL(p_new_claim_rec.tax_code,FND_API.g_miss_char);
840: IF l_claim_line_tbl(i).claim_line_id IS NOT NULL AND
841: l_claim_line_tbl(i).claim_line_id <> FND_API.g_miss_num THEN
842:
843: -- Modified for Bug4489415
844: IF l_remove_tax_code = FND_API.g_true THEN
845: l_claim_line_tbl(i).tax_code := NVL(p_new_claim_rec.tax_code,FND_API.g_miss_char);
846: l_claim_line_tbl(i).tax_amount := FND_API.g_miss_num;
847: l_claim_line_tbl(i).acctd_tax_amount := FND_API.g_miss_num;
848: l_claim_line_tbl(i).claim_curr_tax_amount := FND_API.g_miss_num;
841: l_claim_line_tbl(i).claim_line_id <> FND_API.g_miss_num THEN
842:
843: -- Modified for Bug4489415
844: IF l_remove_tax_code = FND_API.g_true THEN
845: l_claim_line_tbl(i).tax_code := NVL(p_new_claim_rec.tax_code,FND_API.g_miss_char);
846: l_claim_line_tbl(i).tax_amount := FND_API.g_miss_num;
847: l_claim_line_tbl(i).acctd_tax_amount := FND_API.g_miss_num;
848: l_claim_line_tbl(i).claim_curr_tax_amount := FND_API.g_miss_num;
849: ELSE
842:
843: -- Modified for Bug4489415
844: IF l_remove_tax_code = FND_API.g_true THEN
845: l_claim_line_tbl(i).tax_code := NVL(p_new_claim_rec.tax_code,FND_API.g_miss_char);
846: l_claim_line_tbl(i).tax_amount := FND_API.g_miss_num;
847: l_claim_line_tbl(i).acctd_tax_amount := FND_API.g_miss_num;
848: l_claim_line_tbl(i).claim_curr_tax_amount := FND_API.g_miss_num;
849: ELSE
850: IF l_claim_line_tbl(i).tax_code = l_old_claim_rec.tax_code
843: -- Modified for Bug4489415
844: IF l_remove_tax_code = FND_API.g_true THEN
845: l_claim_line_tbl(i).tax_code := NVL(p_new_claim_rec.tax_code,FND_API.g_miss_char);
846: l_claim_line_tbl(i).tax_amount := FND_API.g_miss_num;
847: l_claim_line_tbl(i).acctd_tax_amount := FND_API.g_miss_num;
848: l_claim_line_tbl(i).claim_curr_tax_amount := FND_API.g_miss_num;
849: ELSE
850: IF l_claim_line_tbl(i).tax_code = l_old_claim_rec.tax_code
851: OR l_claim_line_tbl(i).tax_code IS NULL THEN
844: IF l_remove_tax_code = FND_API.g_true THEN
845: l_claim_line_tbl(i).tax_code := NVL(p_new_claim_rec.tax_code,FND_API.g_miss_char);
846: l_claim_line_tbl(i).tax_amount := FND_API.g_miss_num;
847: l_claim_line_tbl(i).acctd_tax_amount := FND_API.g_miss_num;
848: l_claim_line_tbl(i).claim_curr_tax_amount := FND_API.g_miss_num;
849: ELSE
850: IF l_claim_line_tbl(i).tax_code = l_old_claim_rec.tax_code
851: OR l_claim_line_tbl(i).tax_code IS NULL THEN
852: l_claim_line_tbl(i).tax_code := p_new_claim_rec.tax_code;
856:
857:
858: l_claim_line_tbl(i).tax_action := p_new_claim_rec.tax_action; -- Bug4489415
859:
860: IF l_remove_related_cust = FND_API.g_true THEN
861: l_claim_line_tbl(i).earnings_associated_flag := FND_API.g_false;
862: l_claim_line_tbl(i).relationship_type := FND_API.g_miss_char;
863: l_claim_line_tbl(i).related_cust_account_id := FND_API.g_miss_num;
864: END IF;
857:
858: l_claim_line_tbl(i).tax_action := p_new_claim_rec.tax_action; -- Bug4489415
859:
860: IF l_remove_related_cust = FND_API.g_true THEN
861: l_claim_line_tbl(i).earnings_associated_flag := FND_API.g_false;
862: l_claim_line_tbl(i).relationship_type := FND_API.g_miss_char;
863: l_claim_line_tbl(i).related_cust_account_id := FND_API.g_miss_num;
864: END IF;
865:
858: l_claim_line_tbl(i).tax_action := p_new_claim_rec.tax_action; -- Bug4489415
859:
860: IF l_remove_related_cust = FND_API.g_true THEN
861: l_claim_line_tbl(i).earnings_associated_flag := FND_API.g_false;
862: l_claim_line_tbl(i).relationship_type := FND_API.g_miss_char;
863: l_claim_line_tbl(i).related_cust_account_id := FND_API.g_miss_num;
864: END IF;
865:
866: -- ----------------------------------------------------------------------------
859:
860: IF l_remove_related_cust = FND_API.g_true THEN
861: l_claim_line_tbl(i).earnings_associated_flag := FND_API.g_false;
862: l_claim_line_tbl(i).relationship_type := FND_API.g_miss_char;
863: l_claim_line_tbl(i).related_cust_account_id := FND_API.g_miss_num;
864: END IF;
865:
866: -- ----------------------------------------------------------------------------
867: -- Bug : 2781186
866: -- ----------------------------------------------------------------------------
867: -- Bug : 2781186
868: -- Comments : Check for amount_change_flag
869: -- ----------------------------------------------------------------------------
870: IF l_amount_change_flag = FND_API.g_true THEN
871: l_claim_line_tbl(i).claim_currency_amount := p_new_claim_rec.amount;
872: IF l_claim_line_tbl(i).earnings_associated_flag = 'T' THEN
873: --Delete associated earnings lines.
874: l_claim_line_tbl(i).earnings_associated_flag := FND_API.g_false;
870: IF l_amount_change_flag = FND_API.g_true THEN
871: l_claim_line_tbl(i).claim_currency_amount := p_new_claim_rec.amount;
872: IF l_claim_line_tbl(i).earnings_associated_flag = 'T' THEN
873: --Delete associated earnings lines.
874: l_claim_line_tbl(i).earnings_associated_flag := FND_API.g_false;
875: END IF;
876: END IF;
877: -- End Bug: 2781186 -----------------------------------------------------------
878:
876: END IF;
877: -- End Bug: 2781186 -----------------------------------------------------------
878:
879:
880: l_claim_line_tbl(i).update_from_tbl_flag := FND_API.g_true;
881:
882: -- Call the update_claim_line API
883: Update_Claim_Line(
884: p_api_version => 1.0
881:
882: -- Call the update_claim_line API
883: Update_Claim_Line(
884: p_api_version => 1.0
885: , p_init_msg_list => FND_API.g_false
886: , p_commit => FND_API.g_false
887: , p_validation_level => p_validation_level
888: , x_return_status => l_return_status
889: , x_msg_data => x_msg_data
882: -- Call the update_claim_line API
883: Update_Claim_Line(
884: p_api_version => 1.0
885: , p_init_msg_list => FND_API.g_false
886: , p_commit => FND_API.g_false
887: , p_validation_level => p_validation_level
888: , x_return_status => l_return_status
889: , x_msg_data => x_msg_data
890: , x_msg_count => x_msg_count
890: , x_msg_count => x_msg_count
891: , p_claim_line_rec => l_claim_line_tbl(i)
892: , x_object_version => l_object_version
893: );
894: IF l_return_status = fnd_api.g_ret_sts_error THEN
895: RAISE FND_API.g_exc_error;
896: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
897: RAISE FND_API.g_exc_unexpected_error;
898: END IF;
891: , p_claim_line_rec => l_claim_line_tbl(i)
892: , x_object_version => l_object_version
893: );
894: IF l_return_status = fnd_api.g_ret_sts_error THEN
895: RAISE FND_API.g_exc_error;
896: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
897: RAISE FND_API.g_exc_unexpected_error;
898: END IF;
899: END IF;
892: , x_object_version => l_object_version
893: );
894: IF l_return_status = fnd_api.g_ret_sts_error THEN
895: RAISE FND_API.g_exc_error;
896: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
897: RAISE FND_API.g_exc_unexpected_error;
898: END IF;
899: END IF;
900: END LOOP;
893: );
894: IF l_return_status = fnd_api.g_ret_sts_error THEN
895: RAISE FND_API.g_exc_error;
896: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
897: RAISE FND_API.g_exc_unexpected_error;
898: END IF;
899: END IF;
900: END LOOP;
901: END IF;
900: END LOOP;
901: END IF;
902:
903: ------------------------- finish -------------------------------
904: IF FND_API.to_boolean(p_commit) THEN
905: COMMIT;
906: END IF;
907:
908: FND_MSG_PUB.count_and_get(
905: COMMIT;
906: END IF;
907:
908: FND_MSG_PUB.count_and_get(
909: p_encoded => FND_API.g_false,
910: p_count => x_msg_count,
911: p_data => x_msg_data
912: );
913:
915: OZF_Utility_PVT.debug_message(l_full_name ||': end');
916: END IF;
917:
918: EXCEPTION
919: WHEN FND_API.g_exc_error THEN
920: ROLLBACK TO Update_Line_Fm_Claim;
921: x_return_status := FND_API.g_ret_sts_error;
922: FND_MSG_PUB.count_and_get (
923: p_encoded => FND_API.g_false
917:
918: EXCEPTION
919: WHEN FND_API.g_exc_error THEN
920: ROLLBACK TO Update_Line_Fm_Claim;
921: x_return_status := FND_API.g_ret_sts_error;
922: FND_MSG_PUB.count_and_get (
923: p_encoded => FND_API.g_false
924: ,p_count => x_msg_count
925: ,p_data => x_msg_data
919: WHEN FND_API.g_exc_error THEN
920: ROLLBACK TO Update_Line_Fm_Claim;
921: x_return_status := FND_API.g_ret_sts_error;
922: FND_MSG_PUB.count_and_get (
923: p_encoded => FND_API.g_false
924: ,p_count => x_msg_count
925: ,p_data => x_msg_data
926: );
927:
924: ,p_count => x_msg_count
925: ,p_data => x_msg_data
926: );
927:
928: WHEN FND_API.g_exc_unexpected_error THEN
929: ROLLBACK TO Update_Line_Fm_Claim;
930: x_return_status := FND_API.g_ret_sts_unexp_error ;
931: FND_MSG_PUB.count_and_get (
932: p_encoded => FND_API.g_false
926: );
927:
928: WHEN FND_API.g_exc_unexpected_error THEN
929: ROLLBACK TO Update_Line_Fm_Claim;
930: x_return_status := FND_API.g_ret_sts_unexp_error ;
931: FND_MSG_PUB.count_and_get (
932: p_encoded => FND_API.g_false
933: ,p_count => x_msg_count
934: ,p_data => x_msg_data
928: WHEN FND_API.g_exc_unexpected_error THEN
929: ROLLBACK TO Update_Line_Fm_Claim;
930: x_return_status := FND_API.g_ret_sts_unexp_error ;
931: FND_MSG_PUB.count_and_get (
932: p_encoded => FND_API.g_false
933: ,p_count => x_msg_count
934: ,p_data => x_msg_data
935: );
936:
935: );
936:
937: WHEN OTHERS THEN
938: ROLLBACK TO Update_Line_Fm_Claim;
939: x_return_status := FND_API.g_ret_sts_unexp_error ;
940: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
941: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
942: END IF;
943: FND_MSG_PUB.count_and_get(
940: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
941: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
942: END IF;
943: FND_MSG_PUB.count_and_get(
944: p_encoded => FND_API.g_false
945: ,p_count => x_msg_count
946: ,p_data => x_msg_data
947: );
948:
961: -- 07/22/2002 yizhang add p_mode for security check
962: ---------------------------------------------------------------------
963: PROCEDURE Create_Claim_Line_Tbl(
964: p_api_version IN NUMBER
965: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
966: ,p_commit IN VARCHAR2 := FND_API.g_false
967: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
968:
969: ,x_return_status OUT NOCOPY VARCHAR2
962: ---------------------------------------------------------------------
963: PROCEDURE Create_Claim_Line_Tbl(
964: p_api_version IN NUMBER
965: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
966: ,p_commit IN VARCHAR2 := FND_API.g_false
967: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
968:
969: ,x_return_status OUT NOCOPY VARCHAR2
970: ,x_msg_data OUT NOCOPY VARCHAR2
963: PROCEDURE Create_Claim_Line_Tbl(
964: p_api_version IN NUMBER
965: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
966: ,p_commit IN VARCHAR2 := FND_API.g_false
967: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
968:
969: ,x_return_status OUT NOCOPY VARCHAR2
970: ,x_msg_data OUT NOCOPY VARCHAR2
971: ,x_msg_count OUT NOCOPY NUMBER
1019: IF OZF_DEBUG_HIGH_ON THEN
1020: OZF_Utility_PVT.debug_message(l_full_name||': start');
1021: END IF;
1022:
1023: IF FND_API.to_boolean(p_init_msg_list) THEN
1024: FND_MSG_PUB.initialize;
1025: END IF;
1026:
1027: IF NOT FND_API.compatible_api_call(
1023: IF FND_API.to_boolean(p_init_msg_list) THEN
1024: FND_MSG_PUB.initialize;
1025: END IF;
1026:
1027: IF NOT FND_API.compatible_api_call(
1028: l_api_version,
1029: p_api_version,
1030: l_api_name,
1031: g_pkg_name
1030: l_api_name,
1031: g_pkg_name
1032: )
1033: THEN
1034: RAISE FND_API.g_exc_unexpected_error;
1035: END IF;
1036:
1037: x_return_status := FND_API.g_ret_sts_success;
1038:
1033: THEN
1034: RAISE FND_API.g_exc_unexpected_error;
1035: END IF;
1036:
1037: x_return_status := FND_API.g_ret_sts_success;
1038:
1039: l_claim_line_tbl := p_claim_line_tbl;
1040:
1041: ---------------------- check claim access ------------------------
1043: FOR j IN p_claim_line_tbl.FIRST..p_claim_line_tbl.LAST LOOP
1044: IF p_claim_line_tbl.EXISTS(j) THEN
1045: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
1046: P_Api_Version_Number => 1.0
1047: , P_Init_Msg_List => FND_API.G_FALSE
1048: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1049: , P_Commit => FND_API.G_FALSE
1050: , P_object_id => p_claim_line_tbl(j).claim_id
1051: , P_object_type => G_CLAIM_OBJECT_TYPE
1044: IF p_claim_line_tbl.EXISTS(j) THEN
1045: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
1046: P_Api_Version_Number => 1.0
1047: , P_Init_Msg_List => FND_API.G_FALSE
1048: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1049: , P_Commit => FND_API.G_FALSE
1050: , P_object_id => p_claim_line_tbl(j).claim_id
1051: , P_object_type => G_CLAIM_OBJECT_TYPE
1052: , P_user_id => OZF_UTILITY_PVT.get_resource_id(NVL(FND_GLOBAL.user_id,-1))
1045: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
1046: P_Api_Version_Number => 1.0
1047: , P_Init_Msg_List => FND_API.G_FALSE
1048: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1049: , P_Commit => FND_API.G_FALSE
1050: , P_object_id => p_claim_line_tbl(j).claim_id
1051: , P_object_type => G_CLAIM_OBJECT_TYPE
1052: , P_user_id => OZF_UTILITY_PVT.get_resource_id(NVL(FND_GLOBAL.user_id,-1))
1053: , X_Return_Status => l_return_status
1059: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1060: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
1061: FND_MSG_PUB.add;
1062: END IF;
1063: RAISE FND_API.G_EXC_ERROR;
1064: END IF;
1065: EXIT;
1066: END IF;
1067: END LOOP;
1069:
1070: ------------ Default Claim Line by Settlement Method ----------------
1071: OZF_CLAIM_SETTLEMENT_VAL_PVT.Default_Claim_Line_Tbl(
1072: p_api_version => l_api_version
1073: ,p_init_msg_list => FND_API.g_false
1074: ,p_validation_level => p_validation_level
1075: ,x_return_status => l_return_status
1076: ,x_msg_data => x_msg_data
1077: ,x_msg_count => x_msg_count
1076: ,x_msg_data => x_msg_data
1077: ,x_msg_count => x_msg_count
1078: ,p_x_claim_line_tbl => l_claim_line_tbl
1079: );
1080: IF l_return_status = fnd_api.g_ret_sts_error THEN
1081: RAISE FND_API.g_exc_error;
1082: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1083: RAISE FND_API.g_exc_unexpected_error;
1084: END IF;
1077: ,x_msg_count => x_msg_count
1078: ,p_x_claim_line_tbl => l_claim_line_tbl
1079: );
1080: IF l_return_status = fnd_api.g_ret_sts_error THEN
1081: RAISE FND_API.g_exc_error;
1082: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1083: RAISE FND_API.g_exc_unexpected_error;
1084: END IF;
1085:
1078: ,p_x_claim_line_tbl => l_claim_line_tbl
1079: );
1080: IF l_return_status = fnd_api.g_ret_sts_error THEN
1081: RAISE FND_API.g_exc_error;
1082: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1083: RAISE FND_API.g_exc_unexpected_error;
1084: END IF;
1085:
1086: --------------------- Amount Checking -----------------------
1079: );
1080: IF l_return_status = fnd_api.g_ret_sts_error THEN
1081: RAISE FND_API.g_exc_error;
1082: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1083: RAISE FND_API.g_exc_unexpected_error;
1084: END IF;
1085:
1086: --------------------- Amount Checking -----------------------
1087: IF l_claim_line_tbl.count > 0 THEN
1107: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_AMT_NULL');
1108: FND_MSG_PUB.add;
1109: END IF;
1110: x_error_index := j;
1111: RAISE FND_API.g_exc_error;
1112: ELSE
1113: IF OZF_DEBUG_HIGH_ON THEN
1114: OZF_Utility_PVT.debug_message('Before CurrRound :: claim line currency_currency_amount = '||l_claim_line_tbl(j).claim_currency_amount);
1115: OZF_Utility_PVT.debug_message('Before CurrRound :: claim currency code = '||l_currency_code);
1144: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1145: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_AMT_SIGN_ERR');
1146: FND_MSG_PUB.add;
1147: END IF;
1148: RAISE FND_API.g_exc_error;
1149: END IF;
1150: END IF;
1151:
1152:
1155: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1156: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_EXCESS_AMOUNT');
1157: FND_MSG_PUB.add;
1158: END IF;
1159: RAISE FND_API.g_exc_error;
1160: END IF;
1161: END IF;
1162:
1163: --------------------- Create Claim Line Table -----------------------
1177: l_claim_line_rec.quantity IS NOT NULL OR
1178: l_claim_line_rec.rate IS NOT NULL OR
1179: l_claim_line_rec.tax_code IS NOT NULL OR
1180: l_claim_line_rec.item_description IS NOT NULL THEN
1181: l_claim_line_rec.update_from_tbl_flag := FND_API.g_true;
1182:
1183: -- Call the create claim line API
1184: Create_Claim_Line(
1185: p_api_version => 1.0
1182:
1183: -- Call the create claim line API
1184: Create_Claim_Line(
1185: p_api_version => 1.0
1186: , p_init_msg_list => FND_API.g_false
1187: , p_commit => FND_API.g_false
1188: , p_validation_level => p_validation_level
1189: , x_return_status => l_return_status
1190: , x_msg_data => x_msg_data
1183: -- Call the create claim line API
1184: Create_Claim_Line(
1185: p_api_version => 1.0
1186: , p_init_msg_list => FND_API.g_false
1187: , p_commit => FND_API.g_false
1188: , p_validation_level => p_validation_level
1189: , x_return_status => l_return_status
1190: , x_msg_data => x_msg_data
1191: , x_msg_count => x_msg_count
1192: , p_claim_line_rec => l_claim_line_rec
1193: , p_mode => OZF_CLAIM_UTILITY_PVT.g_auto_mode
1194: , x_claim_line_id => l_claim_line_id
1195: );
1196: IF l_return_status = fnd_api.g_ret_sts_error THEN
1197: x_error_index := i;
1198: RAISE FND_API.g_exc_error;
1199: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1200: x_error_index := i;
1194: , x_claim_line_id => l_claim_line_id
1195: );
1196: IF l_return_status = fnd_api.g_ret_sts_error THEN
1197: x_error_index := i;
1198: RAISE FND_API.g_exc_error;
1199: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1200: x_error_index := i;
1201: RAISE FND_API.g_exc_unexpected_error;
1202: END IF;
1195: );
1196: IF l_return_status = fnd_api.g_ret_sts_error THEN
1197: x_error_index := i;
1198: RAISE FND_API.g_exc_error;
1199: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1200: x_error_index := i;
1201: RAISE FND_API.g_exc_unexpected_error;
1202: END IF;
1203: END IF;
1197: x_error_index := i;
1198: RAISE FND_API.g_exc_error;
1199: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1200: x_error_index := i;
1201: RAISE FND_API.g_exc_unexpected_error;
1202: END IF;
1203: END IF;
1204: END IF;
1205: END LOOP;
1204: END IF;
1205: END LOOP;
1206: END IF;
1207: ------------------------- finish -------------------------------
1208: IF FND_API.to_boolean(p_commit) THEN
1209: COMMIT;
1210: END IF;
1211:
1212: FND_MSG_PUB.count_and_get(
1209: COMMIT;
1210: END IF;
1211:
1212: FND_MSG_PUB.count_and_get(
1213: p_encoded => FND_API.g_false,
1214: p_count => x_msg_count,
1215: p_data => x_msg_data
1216: );
1217:
1219: OZF_Utility_PVT.debug_message(l_full_name ||': end');
1220: END IF;
1221:
1222: EXCEPTION
1223: WHEN FND_API.g_exc_error THEN
1224: ROLLBACK TO Create_Claim_Line_Tbl;
1225: x_return_status := FND_API.g_ret_sts_error;
1226: FND_MSG_PUB.count_and_get (
1227: p_encoded => FND_API.g_false
1221:
1222: EXCEPTION
1223: WHEN FND_API.g_exc_error THEN
1224: ROLLBACK TO Create_Claim_Line_Tbl;
1225: x_return_status := FND_API.g_ret_sts_error;
1226: FND_MSG_PUB.count_and_get (
1227: p_encoded => FND_API.g_false
1228: ,p_count => x_msg_count
1229: ,p_data => x_msg_data
1223: WHEN FND_API.g_exc_error THEN
1224: ROLLBACK TO Create_Claim_Line_Tbl;
1225: x_return_status := FND_API.g_ret_sts_error;
1226: FND_MSG_PUB.count_and_get (
1227: p_encoded => FND_API.g_false
1228: ,p_count => x_msg_count
1229: ,p_data => x_msg_data
1230: );
1231:
1228: ,p_count => x_msg_count
1229: ,p_data => x_msg_data
1230: );
1231:
1232: WHEN FND_API.g_exc_unexpected_error THEN
1233: ROLLBACK TO Create_Claim_Line_Tbl;
1234: x_return_status := FND_API.g_ret_sts_unexp_error ;
1235: FND_MSG_PUB.count_and_get (
1236: p_encoded => FND_API.g_false
1230: );
1231:
1232: WHEN FND_API.g_exc_unexpected_error THEN
1233: ROLLBACK TO Create_Claim_Line_Tbl;
1234: x_return_status := FND_API.g_ret_sts_unexp_error ;
1235: FND_MSG_PUB.count_and_get (
1236: p_encoded => FND_API.g_false
1237: ,p_count => x_msg_count
1238: ,p_data => x_msg_data
1232: WHEN FND_API.g_exc_unexpected_error THEN
1233: ROLLBACK TO Create_Claim_Line_Tbl;
1234: x_return_status := FND_API.g_ret_sts_unexp_error ;
1235: FND_MSG_PUB.count_and_get (
1236: p_encoded => FND_API.g_false
1237: ,p_count => x_msg_count
1238: ,p_data => x_msg_data
1239: );
1240:
1239: );
1240:
1241: WHEN OTHERS THEN
1242: ROLLBACK TO Create_Claim_Line_Tbl;
1243: x_return_status := FND_API.g_ret_sts_unexp_error ;
1244: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1245: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1246: END IF;
1247: FND_MSG_PUB.count_and_get(
1244: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1245: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1246: END IF;
1247: FND_MSG_PUB.count_and_get(
1248: p_encoded => FND_API.g_false
1249: ,p_count => x_msg_count
1250: ,p_data => x_msg_data
1251: );
1252:
1271: -- 07/22/2002 yizhang add p_mode for security check
1272: ---------------------------------------------------------------------
1273: PROCEDURE Create_Claim_Line(
1274: p_api_version IN NUMBER
1275: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
1276: ,p_commit IN VARCHAR2 := FND_API.g_false
1277: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
1278:
1279: ,x_return_status OUT NOCOPY VARCHAR2
1272: ---------------------------------------------------------------------
1273: PROCEDURE Create_Claim_Line(
1274: p_api_version IN NUMBER
1275: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
1276: ,p_commit IN VARCHAR2 := FND_API.g_false
1277: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
1278:
1279: ,x_return_status OUT NOCOPY VARCHAR2
1280: ,x_msg_count OUT NOCOPY NUMBER
1273: PROCEDURE Create_Claim_Line(
1274: p_api_version IN NUMBER
1275: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
1276: ,p_commit IN VARCHAR2 := FND_API.g_false
1277: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
1278:
1279: ,x_return_status OUT NOCOPY VARCHAR2
1280: ,x_msg_count OUT NOCOPY NUMBER
1281: ,x_msg_data OUT NOCOPY VARCHAR2
1381: IF OZF_DEBUG_HIGH_ON THEN
1382: OZF_Utility_PVT.debug_message(l_full_name||': start');
1383: END IF;
1384:
1385: IF FND_API.to_boolean(p_init_msg_list) THEN
1386: FND_MSG_PUB.initialize;
1387: END IF;
1388:
1389: IF NOT FND_API.compatible_api_call(
1385: IF FND_API.to_boolean(p_init_msg_list) THEN
1386: FND_MSG_PUB.initialize;
1387: END IF;
1388:
1389: IF NOT FND_API.compatible_api_call(
1390: l_api_version,
1391: p_api_version,
1392: l_api_name,
1393: g_pkg_name
1391: p_api_version,
1392: l_api_name,
1393: g_pkg_name
1394: ) THEN
1395: RAISE FND_API.g_exc_unexpected_error;
1396: END IF;
1397:
1398: x_return_status := FND_API.g_ret_sts_success;
1399:
1394: ) THEN
1395: RAISE FND_API.g_exc_unexpected_error;
1396: END IF;
1397:
1398: x_return_status := FND_API.g_ret_sts_success;
1399:
1400: l_claim_line_rec := p_claim_line_rec;
1401:
1402: ----------------- check claim access -------------------
1402: ----------------- check claim access -------------------
1403: IF p_mode = OZF_CLAIM_UTILITY_PVT.g_manu_mode THEN
1404: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
1405: P_Api_Version_Number => 1.0
1406: , P_Init_Msg_List => FND_API.G_FALSE
1407: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1408: , P_Commit => FND_API.G_FALSE
1409: , P_object_id => l_claim_line_rec.claim_id
1410: , P_object_type => G_CLAIM_OBJECT_TYPE
1403: IF p_mode = OZF_CLAIM_UTILITY_PVT.g_manu_mode THEN
1404: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
1405: P_Api_Version_Number => 1.0
1406: , P_Init_Msg_List => FND_API.G_FALSE
1407: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1408: , P_Commit => FND_API.G_FALSE
1409: , P_object_id => l_claim_line_rec.claim_id
1410: , P_object_type => G_CLAIM_OBJECT_TYPE
1411: , P_user_id => OZF_UTILITY_PVT.get_resource_id(NVL(FND_GLOBAL.user_id,-1))
1404: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
1405: P_Api_Version_Number => 1.0
1406: , P_Init_Msg_List => FND_API.G_FALSE
1407: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1408: , P_Commit => FND_API.G_FALSE
1409: , P_object_id => l_claim_line_rec.claim_id
1410: , P_object_type => G_CLAIM_OBJECT_TYPE
1411: , P_user_id => OZF_UTILITY_PVT.get_resource_id(NVL(FND_GLOBAL.user_id,-1))
1412: , X_Return_Status => l_return_status
1418: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1419: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
1420: FND_MSG_PUB.add;
1421: END IF;
1422: RAISE FND_API.G_EXC_ERROR;
1423: END IF;
1424: END IF;
1425:
1426: /*-------------------------------------------------------*
1428: *-------------------------------------------------------*/
1429: l_created_by := NVL(FND_GLOBAL.user_id,-1);
1430: l_updated_by := NVL(FND_GLOBAL.user_id,-1);
1431: l_last_update_login := NVL(FND_GLOBAL.conc_login_id,-1);
1432: l_valid_flag := NVL(l_claim_line_rec.valid_flag, FND_API.g_false);
1433:
1434: -- get org_id, set_of_books_id and tax_code from claim
1435: OPEN csr_default_fm_claim(l_claim_line_rec.claim_id);
1436: FETCH csr_default_fm_claim INTO l_set_of_books_id
1456:
1457: -- Default UOM for product.
1458: IF l_claim_line_rec.item_type = 'PRODUCT'
1459: AND (l_claim_line_rec.item_id is not null
1460: AND l_claim_line_rec.item_id <> FND_API.G_MISS_NUM )
1461: AND (l_claim_line_rec.quantity_uom is null
1462: OR l_claim_line_rec.quantity_uom = FND_API.G_MISS_CHAR)
1463: THEN
1464: --Bugfix 5182181
1458: IF l_claim_line_rec.item_type = 'PRODUCT'
1459: AND (l_claim_line_rec.item_id is not null
1460: AND l_claim_line_rec.item_id <> FND_API.G_MISS_NUM )
1461: AND (l_claim_line_rec.quantity_uom is null
1462: OR l_claim_line_rec.quantity_uom = FND_API.G_MISS_CHAR)
1463: THEN
1464: --Bugfix 5182181
1465: l_claim_line_rec.quantity_uom := Get_Default_Product_UOM
1466: ( p_product_id => l_claim_line_rec.item_id
1481: l_claim_line_rec.tax_code := l_tax_code;
1482: END IF;
1483:
1484: -- default claim line by settlement method
1485: IF l_claim_line_rec.update_from_tbl_flag = FND_API.g_false THEN
1486: OZF_CLAIM_SETTLEMENT_VAL_PVT.Default_Claim_Line(
1487: p_api_version => l_api_version
1488: ,p_init_msg_list => FND_API.g_false
1489: ,p_validation_level => FND_API.g_valid_level_full
1484: -- default claim line by settlement method
1485: IF l_claim_line_rec.update_from_tbl_flag = FND_API.g_false THEN
1486: OZF_CLAIM_SETTLEMENT_VAL_PVT.Default_Claim_Line(
1487: p_api_version => l_api_version
1488: ,p_init_msg_list => FND_API.g_false
1489: ,p_validation_level => FND_API.g_valid_level_full
1490: ,x_return_status => l_return_status
1491: ,x_msg_data => x_msg_data
1492: ,x_msg_count => x_msg_count
1485: IF l_claim_line_rec.update_from_tbl_flag = FND_API.g_false THEN
1486: OZF_CLAIM_SETTLEMENT_VAL_PVT.Default_Claim_Line(
1487: p_api_version => l_api_version
1488: ,p_init_msg_list => FND_API.g_false
1489: ,p_validation_level => FND_API.g_valid_level_full
1490: ,x_return_status => l_return_status
1491: ,x_msg_data => x_msg_data
1492: ,x_msg_count => x_msg_count
1493: ,p_x_claim_line_rec => l_claim_line_rec
1491: ,x_msg_data => x_msg_data
1492: ,x_msg_count => x_msg_count
1493: ,p_x_claim_line_rec => l_claim_line_rec
1494: );
1495: IF l_return_status = FND_API.g_ret_sts_error THEN
1496: RAISE FND_API.g_exc_error;
1497: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1498: RAISE FND_API.g_exc_unexpected_error;
1499: END IF;
1492: ,x_msg_count => x_msg_count
1493: ,p_x_claim_line_rec => l_claim_line_rec
1494: );
1495: IF l_return_status = FND_API.g_ret_sts_error THEN
1496: RAISE FND_API.g_exc_error;
1497: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1498: RAISE FND_API.g_exc_unexpected_error;
1499: END IF;
1500: END IF;
1493: ,p_x_claim_line_rec => l_claim_line_rec
1494: );
1495: IF l_return_status = FND_API.g_ret_sts_error THEN
1496: RAISE FND_API.g_exc_error;
1497: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1498: RAISE FND_API.g_exc_unexpected_error;
1499: END IF;
1500: END IF;
1501:
1494: );
1495: IF l_return_status = FND_API.g_ret_sts_error THEN
1496: RAISE FND_API.g_exc_error;
1497: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1498: RAISE FND_API.g_exc_unexpected_error;
1499: END IF;
1500: END IF;
1501:
1502: -- get functional currency
1505: CLOSE csr_function_currency;
1506:
1507: ------------------ checking quantity * rate -------------------
1508: -- added by slkrishn since the condition below is moved to tbl api
1509: IF l_claim_line_rec.update_from_tbl_flag = FND_API.g_false THEN
1510: IF l_claim_line_rec.quantity IS NOT NULL AND
1511: l_claim_line_rec.rate IS NOT NULL THEN
1512: l_claim_line_rec.claim_currency_amount := l_claim_line_rec.quantity * l_claim_line_rec.rate;
1513: END IF;
1533: X_RETURN_STATUS => l_return_status,
1534: X_ACC_AMOUNT => l_claim_line_rec.acctd_amount,
1535: X_RATE => l_claim_line_rec.exchange_rate
1536: );
1537: IF l_return_status = FND_API.g_ret_sts_error THEN
1538: RAISE FND_API.g_exc_error;
1539: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1540: RAISE FND_API.g_exc_unexpected_error;
1541: END IF;
1534: X_ACC_AMOUNT => l_claim_line_rec.acctd_amount,
1535: X_RATE => l_claim_line_rec.exchange_rate
1536: );
1537: IF l_return_status = FND_API.g_ret_sts_error THEN
1538: RAISE FND_API.g_exc_error;
1539: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1540: RAISE FND_API.g_exc_unexpected_error;
1541: END IF;
1542:
1535: X_RATE => l_claim_line_rec.exchange_rate
1536: );
1537: IF l_return_status = FND_API.g_ret_sts_error THEN
1538: RAISE FND_API.g_exc_error;
1539: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1540: RAISE FND_API.g_exc_unexpected_error;
1541: END IF;
1542:
1543: -- Convert Line AMOUNT
1536: );
1537: IF l_return_status = FND_API.g_ret_sts_error THEN
1538: RAISE FND_API.g_exc_error;
1539: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1540: RAISE FND_API.g_exc_unexpected_error;
1541: END IF;
1542:
1543: -- Convert Line AMOUNT
1544: -- bug fix for #2528435
1555: p_claim_line_rec => l_claim_line_rec
1556: ,x_claim_line_rec => l_x_claim_line_rec
1557: ,x_return_status => l_return_status
1558: );
1559: IF l_return_status = FND_API.g_ret_sts_error THEN
1560: RAISE FND_API.g_exc_error;
1561: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1562: RAISE FND_API.g_exc_unexpected_error;
1563: END IF;
1556: ,x_claim_line_rec => l_x_claim_line_rec
1557: ,x_return_status => l_return_status
1558: );
1559: IF l_return_status = FND_API.g_ret_sts_error THEN
1560: RAISE FND_API.g_exc_error;
1561: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1562: RAISE FND_API.g_exc_unexpected_error;
1563: END IF;
1564: l_claim_line_rec := l_x_claim_line_rec;
1557: ,x_return_status => l_return_status
1558: );
1559: IF l_return_status = FND_API.g_ret_sts_error THEN
1560: RAISE FND_API.g_exc_error;
1561: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1562: RAISE FND_API.g_exc_unexpected_error;
1563: END IF;
1564: l_claim_line_rec := l_x_claim_line_rec;
1565: END IF;
1558: );
1559: IF l_return_status = FND_API.g_ret_sts_error THEN
1560: RAISE FND_API.g_exc_error;
1561: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1562: RAISE FND_API.g_exc_unexpected_error;
1563: END IF;
1564: l_claim_line_rec := l_x_claim_line_rec;
1565: END IF;
1566: -- raise error if claim currency amount is null
1568: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1569: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_AMT_NULL');
1570: FND_MSG_PUB.add;
1571: END IF;
1572: RAISE FND_API.g_exc_error;
1573: END IF;
1574:
1575: /*-------------------------------------------------------*
1576: | validate |
1587: x_msg_count => x_msg_count,
1588: x_msg_data => x_msg_data,
1589: p_claim_line_rec => l_claim_line_rec
1590: );
1591: IF l_return_status = FND_API.g_ret_sts_error THEN
1592: RAISE FND_API.g_exc_error;
1593: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1594: RAISE FND_API.g_exc_unexpected_error;
1595: END IF;
1588: x_msg_data => x_msg_data,
1589: p_claim_line_rec => l_claim_line_rec
1590: );
1591: IF l_return_status = FND_API.g_ret_sts_error THEN
1592: RAISE FND_API.g_exc_error;
1593: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1594: RAISE FND_API.g_exc_unexpected_error;
1595: END IF;
1596:
1589: p_claim_line_rec => l_claim_line_rec
1590: );
1591: IF l_return_status = FND_API.g_ret_sts_error THEN
1592: RAISE FND_API.g_exc_error;
1593: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1594: RAISE FND_API.g_exc_unexpected_error;
1595: END IF;
1596:
1597: ------------------- amount rounding --------------------
1590: );
1591: IF l_return_status = FND_API.g_ret_sts_error THEN
1592: RAISE FND_API.g_exc_error;
1593: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1594: RAISE FND_API.g_exc_unexpected_error;
1595: END IF;
1596:
1597: ------------------- amount rounding --------------------
1598: IF l_claim_line_rec.claim_currency_amount IS NOT NULL THEN
1621: -- IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1622: -- FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_AMT_SIGN_ERR');
1623: -- FND_MSG_PUB.add;
1624: -- END IF;
1625: -- RAISE FND_API.g_exc_error;
1626: --END IF;
1627:
1628: -- skip amount comparison if it's updating from tbl.
1629: -- update_from_tbl_flag condition commented by slkrishn
1628: -- skip amount comparison if it's updating from tbl.
1629: -- update_from_tbl_flag condition commented by slkrishn
1630: -- amount condition not working at table
1631: -- mchnag: open the checking again to fix BUG#2242664
1632: IF l_claim_line_rec.update_from_tbl_flag = FND_API.g_false AND
1633: l_claim_class <> 'GROUP' THEN
1634: -- get total of existing line amount (sum of claim_currency_amount)
1635: OPEN c_line_sum_amt(l_claim_line_rec.claim_id);
1636: FETCH c_line_sum_amt INTO l_line_sum_amt;
1642: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1643: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_EXCESS_AMOUNT');
1644: FND_MSG_PUB.add;
1645: END IF;
1646: RAISE FND_API.g_exc_error;
1647: END IF;
1648: ELSIF ABS(l_claim_line_rec.claim_currency_amount) > ABS(l_claim_amount) THEN
1649: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1650: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_EXCESS_AMOUNT');
1649: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1650: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_EXCESS_AMOUNT');
1651: FND_MSG_PUB.add;
1652: END IF;
1653: RAISE FND_API.g_exc_error;
1654: END IF;
1655: END IF;
1656: END IF;
1657:
1656: END IF;
1657:
1658: OZF_CLAIM_SETTLEMENT_VAL_PVT.Validate_Claim_Line(
1659: p_api_version => l_api_version
1660: ,p_init_msg_list => FND_API.g_false
1661: ,p_validation_level => FND_API.g_valid_level_full
1662: ,x_return_status => l_return_status
1663: ,x_msg_data => x_msg_data
1664: ,x_msg_count => x_msg_count
1657:
1658: OZF_CLAIM_SETTLEMENT_VAL_PVT.Validate_Claim_Line(
1659: p_api_version => l_api_version
1660: ,p_init_msg_list => FND_API.g_false
1661: ,p_validation_level => FND_API.g_valid_level_full
1662: ,x_return_status => l_return_status
1663: ,x_msg_data => x_msg_data
1664: ,x_msg_count => x_msg_count
1665: ,p_claim_line_rec => l_claim_line_rec
1663: ,x_msg_data => x_msg_data
1664: ,x_msg_count => x_msg_count
1665: ,p_claim_line_rec => l_claim_line_rec
1666: );
1667: IF l_return_status = FND_API.g_ret_sts_error THEN
1668: RAISE FND_API.g_exc_error;
1669: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1670: RAISE FND_API.g_exc_unexpected_error;
1671: END IF;
1664: ,x_msg_count => x_msg_count
1665: ,p_claim_line_rec => l_claim_line_rec
1666: );
1667: IF l_return_status = FND_API.g_ret_sts_error THEN
1668: RAISE FND_API.g_exc_error;
1669: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1670: RAISE FND_API.g_exc_unexpected_error;
1671: END IF;
1672:
1665: ,p_claim_line_rec => l_claim_line_rec
1666: );
1667: IF l_return_status = FND_API.g_ret_sts_error THEN
1668: RAISE FND_API.g_exc_error;
1669: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1670: RAISE FND_API.g_exc_unexpected_error;
1671: END IF;
1672:
1673:
1666: );
1667: IF l_return_status = FND_API.g_ret_sts_error THEN
1668: RAISE FND_API.g_exc_error;
1669: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1670: RAISE FND_API.g_exc_unexpected_error;
1671: END IF;
1672:
1673:
1674: IF l_claim_line_rec.claim_line_id IS NULL THEN
1691: l_claim_line_rec.amount IS NOT NULL THEN
1692:
1693: OZF_CLAIM_TAX_PVT.Calculate_Claim_Line_Tax(
1694: p_api_version => l_api_version
1695: ,p_init_msg_list => FND_API.g_false
1696: ,p_validation_level => FND_API.g_valid_level_full
1697: ,x_return_status => l_return_status
1698: ,x_msg_data => x_msg_data
1699: ,x_msg_count => x_msg_count
1692:
1693: OZF_CLAIM_TAX_PVT.Calculate_Claim_Line_Tax(
1694: p_api_version => l_api_version
1695: ,p_init_msg_list => FND_API.g_false
1696: ,p_validation_level => FND_API.g_valid_level_full
1697: ,x_return_status => l_return_status
1698: ,x_msg_data => x_msg_data
1699: ,x_msg_count => x_msg_count
1700: ,p_x_claim_line_rec => l_claim_line_rec
1698: ,x_msg_data => x_msg_data
1699: ,x_msg_count => x_msg_count
1700: ,p_x_claim_line_rec => l_claim_line_rec
1701: );
1702: IF l_return_status = FND_API.g_ret_sts_error THEN
1703: RAISE FND_API.g_exc_error;
1704: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1705: RAISE FND_API.g_exc_unexpected_error;
1706: END IF;
1699: ,x_msg_count => x_msg_count
1700: ,p_x_claim_line_rec => l_claim_line_rec
1701: );
1702: IF l_return_status = FND_API.g_ret_sts_error THEN
1703: RAISE FND_API.g_exc_error;
1704: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1705: RAISE FND_API.g_exc_unexpected_error;
1706: END IF;
1707:
1700: ,p_x_claim_line_rec => l_claim_line_rec
1701: );
1702: IF l_return_status = FND_API.g_ret_sts_error THEN
1703: RAISE FND_API.g_exc_error;
1704: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1705: RAISE FND_API.g_exc_unexpected_error;
1706: END IF;
1707:
1708: END IF;
1701: );
1702: IF l_return_status = FND_API.g_ret_sts_error THEN
1703: RAISE FND_API.g_exc_error;
1704: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1705: RAISE FND_API.g_exc_unexpected_error;
1706: END IF;
1707:
1708: END IF;
1709:
1901: ------------------------- finish -------------------------------
1902: x_claim_line_id := l_claim_line_rec.claim_line_id;
1903:
1904: -- Check for commit
1905: IF FND_API.to_boolean(p_commit) THEN
1906: COMMIT;
1907: END IF;
1908:
1909: FND_MSG_PUB.count_and_get(
1906: COMMIT;
1907: END IF;
1908:
1909: FND_MSG_PUB.count_and_get(
1910: p_encoded => FND_API.g_false,
1911: p_count => x_msg_count,
1912: p_data => x_msg_data
1913: );
1914:
1916: OZF_Utility_PVT.debug_message(l_full_name ||': end');
1917: END IF;
1918:
1919: EXCEPTION
1920: WHEN FND_API.g_exc_error THEN
1921: ROLLBACK TO Create_Claim_Line;
1922: x_return_status := FND_API.g_ret_sts_error;
1923: FND_MSG_PUB.count_and_get (
1924: p_encoded => FND_API.g_false
1918:
1919: EXCEPTION
1920: WHEN FND_API.g_exc_error THEN
1921: ROLLBACK TO Create_Claim_Line;
1922: x_return_status := FND_API.g_ret_sts_error;
1923: FND_MSG_PUB.count_and_get (
1924: p_encoded => FND_API.g_false
1925: ,p_count => x_msg_count
1926: ,p_data => x_msg_data
1920: WHEN FND_API.g_exc_error THEN
1921: ROLLBACK TO Create_Claim_Line;
1922: x_return_status := FND_API.g_ret_sts_error;
1923: FND_MSG_PUB.count_and_get (
1924: p_encoded => FND_API.g_false
1925: ,p_count => x_msg_count
1926: ,p_data => x_msg_data
1927: );
1928:
1925: ,p_count => x_msg_count
1926: ,p_data => x_msg_data
1927: );
1928:
1929: WHEN FND_API.g_exc_unexpected_error THEN
1930: ROLLBACK TO Create_Claim_Line;
1931: x_return_status := FND_API.g_ret_sts_unexp_error ;
1932: FND_MSG_PUB.count_and_get (
1933: p_encoded => FND_API.g_false
1927: );
1928:
1929: WHEN FND_API.g_exc_unexpected_error THEN
1930: ROLLBACK TO Create_Claim_Line;
1931: x_return_status := FND_API.g_ret_sts_unexp_error ;
1932: FND_MSG_PUB.count_and_get (
1933: p_encoded => FND_API.g_false
1934: ,p_count => x_msg_count
1935: ,p_data => x_msg_data
1929: WHEN FND_API.g_exc_unexpected_error THEN
1930: ROLLBACK TO Create_Claim_Line;
1931: x_return_status := FND_API.g_ret_sts_unexp_error ;
1932: FND_MSG_PUB.count_and_get (
1933: p_encoded => FND_API.g_false
1934: ,p_count => x_msg_count
1935: ,p_data => x_msg_data
1936: );
1937:
1936: );
1937:
1938: WHEN OTHERS THEN
1939: ROLLBACK TO Create_Claim_Line;
1940: x_return_status := FND_API.g_ret_sts_unexp_error ;
1941: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1942: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1943: END IF;
1944: FND_MSG_PUB.count_and_get(
1941: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1942: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1943: END IF;
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:
1961: -- 07/22/2002 yizhang add p_mode for security check
1962: ---------------------------------------------------------------------
1963: PROCEDURE Delete_Claim_Line_Tbl(
1964: p_api_version IN NUMBER
1965: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
1966: ,p_commit IN VARCHAR2 := FND_API.g_false
1967: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
1968:
1969: ,x_return_status OUT NOCOPY VARCHAR2
1962: ---------------------------------------------------------------------
1963: PROCEDURE Delete_Claim_Line_Tbl(
1964: p_api_version IN NUMBER
1965: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
1966: ,p_commit IN VARCHAR2 := FND_API.g_false
1967: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
1968:
1969: ,x_return_status OUT NOCOPY VARCHAR2
1970: ,x_msg_data OUT NOCOPY VARCHAR2
1963: PROCEDURE Delete_Claim_Line_Tbl(
1964: p_api_version IN NUMBER
1965: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
1966: ,p_commit IN VARCHAR2 := FND_API.g_false
1967: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
1968:
1969: ,x_return_status OUT NOCOPY VARCHAR2
1970: ,x_msg_data OUT NOCOPY VARCHAR2
1971: ,x_msg_count OUT NOCOPY NUMBER
1970: ,x_msg_data OUT NOCOPY VARCHAR2
1971: ,x_msg_count OUT NOCOPY NUMBER
1972:
1973: ,p_claim_line_tbl IN claim_line_tbl_type
1974: ,p_change_object_version IN VARCHAR2 := FND_API.g_false
1975: ,p_mode IN VARCHAR2 := OZF_CLAIM_UTILITY_PVT.g_auto_mode
1976: ,x_error_index OUT NOCOPY NUMBER
1977: ) IS
1978: l_api_version CONSTANT NUMBER := 1.0;
2021: IF OZF_DEBUG_HIGH_ON THEN
2022: OZF_Utility_PVT.debug_message(l_full_name||': start');
2023: END IF;
2024:
2025: IF FND_API.to_boolean(p_init_msg_list) THEN
2026: FND_MSG_PUB.initialize;
2027: END IF;
2028:
2029: IF NOT FND_API.compatible_api_call(
2025: IF FND_API.to_boolean(p_init_msg_list) THEN
2026: FND_MSG_PUB.initialize;
2027: END IF;
2028:
2029: IF NOT FND_API.compatible_api_call(
2030: l_api_version,
2031: p_api_version,
2032: l_api_name,
2033: g_pkg_name
2031: p_api_version,
2032: l_api_name,
2033: g_pkg_name
2034: ) THEN
2035: RAISE FND_API.g_exc_unexpected_error;
2036: END IF;
2037:
2038: x_return_status := FND_API.g_ret_sts_success;
2039:
2034: ) THEN
2035: RAISE FND_API.g_exc_unexpected_error;
2036: END IF;
2037:
2038: x_return_status := FND_API.g_ret_sts_success;
2039:
2040: ---------------------- check claim access ------------------------
2041: IF p_mode = OZF_CLAIM_UTILITY_PVT.g_manu_mode AND p_claim_line_tbl.count > 0 THEN
2042: FOR j IN p_claim_line_tbl.FIRST..p_claim_line_tbl.LAST LOOP
2042: FOR j IN p_claim_line_tbl.FIRST..p_claim_line_tbl.LAST LOOP
2043: IF p_claim_line_tbl.EXISTS(j) THEN
2044: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
2045: P_Api_Version_Number => 1.0
2046: , P_Init_Msg_List => FND_API.G_FALSE
2047: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2048: , P_Commit => FND_API.G_FALSE
2049: , P_object_id => p_claim_line_tbl(j).claim_id
2050: , P_object_type => G_CLAIM_OBJECT_TYPE
2043: IF p_claim_line_tbl.EXISTS(j) THEN
2044: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
2045: P_Api_Version_Number => 1.0
2046: , P_Init_Msg_List => FND_API.G_FALSE
2047: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2048: , P_Commit => FND_API.G_FALSE
2049: , P_object_id => p_claim_line_tbl(j).claim_id
2050: , P_object_type => G_CLAIM_OBJECT_TYPE
2051: , P_user_id => OZF_UTILITY_PVT.get_resource_id(NVL(FND_GLOBAL.user_id,-1))
2044: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
2045: P_Api_Version_Number => 1.0
2046: , P_Init_Msg_List => FND_API.G_FALSE
2047: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2048: , P_Commit => FND_API.G_FALSE
2049: , P_object_id => p_claim_line_tbl(j).claim_id
2050: , P_object_type => G_CLAIM_OBJECT_TYPE
2051: , P_user_id => OZF_UTILITY_PVT.get_resource_id(NVL(FND_GLOBAL.user_id,-1))
2052: , X_Return_Status => l_return_status
2058: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2059: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
2060: FND_MSG_PUB.add;
2061: END IF;
2062: RAISE FND_API.G_EXC_ERROR;
2063: END IF;
2064: EXIT;
2065: END IF;
2066: END LOOP;
2094: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2095: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_AMT_SIGN_ERR');
2096: FND_MSG_PUB.add;
2097: END IF;
2098: RAISE FND_API.g_exc_error;
2099: END IF;
2100:
2101: IF ABS(l_effective_line_amount) > ABS(l_claim_amount)
2102: THEN
2103: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2104: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_EXCESS_AMOUNT');
2105: FND_MSG_PUB.add;
2106: END IF;
2107: RAISE FND_API.g_exc_error;
2108: END IF;
2109: END IF;
2110: END IF;
2111: --------------------- End of Amount Checking -----------------------
2114: IF p_claim_line_tbl.count > 0 THEN
2115: FOR i IN p_claim_line_tbl.FIRST..p_claim_line_tbl.LAST LOOP
2116: IF p_claim_line_tbl.EXISTS(i) THEN
2117: l_claim_line_id := p_claim_line_tbl(i).claim_line_id;
2118: IF p_change_object_version = FND_API.g_true THEN
2119: --l_object_version := p_claim_line_tbl(i).object_version_number + 1;
2120: OPEN csr_line_obj_ver(p_claim_line_tbl(i).claim_line_id);
2121: FETCH csr_line_obj_ver INTO l_object_version;
2122: CLOSE csr_line_obj_ver;
2125: END IF;
2126: -- Call the delete claim line API
2127: Delete_Claim_Line(
2128: p_api_version => 1.0
2129: , p_init_msg_list => FND_API.g_false
2130: , p_commit => FND_API.g_false
2131: , x_return_status => l_return_status
2132: , x_msg_data => x_msg_data
2133: , x_msg_count => x_msg_count
2126: -- Call the delete claim line API
2127: Delete_Claim_Line(
2128: p_api_version => 1.0
2129: , p_init_msg_list => FND_API.g_false
2130: , p_commit => FND_API.g_false
2131: , x_return_status => l_return_status
2132: , x_msg_data => x_msg_data
2133: , x_msg_count => x_msg_count
2134: , p_claim_line_id => l_claim_line_id
2134: , p_claim_line_id => l_claim_line_id
2135: , p_object_version => l_object_version
2136: , p_mode => OZF_CLAIM_UTILITY_PVT.g_auto_mode
2137: );
2138: IF l_return_status = fnd_api.g_ret_sts_error THEN
2139: x_error_index := i;
2140: RAISE FND_API.g_exc_error;
2141: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2142: x_error_index := i;
2136: , p_mode => OZF_CLAIM_UTILITY_PVT.g_auto_mode
2137: );
2138: IF l_return_status = fnd_api.g_ret_sts_error THEN
2139: x_error_index := i;
2140: RAISE FND_API.g_exc_error;
2141: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2142: x_error_index := i;
2143: RAISE FND_API.g_exc_unexpected_error;
2144: END IF;
2137: );
2138: IF l_return_status = fnd_api.g_ret_sts_error THEN
2139: x_error_index := i;
2140: RAISE FND_API.g_exc_error;
2141: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2142: x_error_index := i;
2143: RAISE FND_API.g_exc_unexpected_error;
2144: END IF;
2145: END IF;
2139: x_error_index := i;
2140: RAISE FND_API.g_exc_error;
2141: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2142: x_error_index := i;
2143: RAISE FND_API.g_exc_unexpected_error;
2144: END IF;
2145: END IF;
2146: END LOOP;
2147: END IF;
2146: END LOOP;
2147: END IF;
2148:
2149: ------------------------- finish -------------------------------
2150: IF FND_API.to_boolean(p_commit) THEN
2151: COMMIT;
2152: END IF;
2153:
2154: FND_MSG_PUB.count_and_get(
2151: COMMIT;
2152: END IF;
2153:
2154: FND_MSG_PUB.count_and_get(
2155: p_encoded => FND_API.g_false,
2156: p_count => x_msg_count,
2157: p_data => x_msg_data
2158: );
2159:
2161: OZF_Utility_PVT.debug_message(l_full_name ||': end');
2162: END IF;
2163:
2164: EXCEPTION
2165: WHEN FND_API.g_exc_error THEN
2166: ROLLBACK TO Delete_Claim_Line_Tbl;
2167: x_return_status := FND_API.g_ret_sts_error;
2168: FND_MSG_PUB.count_and_get (
2169: p_encoded => FND_API.g_false
2163:
2164: EXCEPTION
2165: WHEN FND_API.g_exc_error THEN
2166: ROLLBACK TO Delete_Claim_Line_Tbl;
2167: x_return_status := FND_API.g_ret_sts_error;
2168: FND_MSG_PUB.count_and_get (
2169: p_encoded => FND_API.g_false
2170: ,p_count => x_msg_count
2171: ,p_data => x_msg_data
2165: WHEN FND_API.g_exc_error THEN
2166: ROLLBACK TO Delete_Claim_Line_Tbl;
2167: x_return_status := FND_API.g_ret_sts_error;
2168: FND_MSG_PUB.count_and_get (
2169: p_encoded => FND_API.g_false
2170: ,p_count => x_msg_count
2171: ,p_data => x_msg_data
2172: );
2173:
2170: ,p_count => x_msg_count
2171: ,p_data => x_msg_data
2172: );
2173:
2174: WHEN FND_API.g_exc_unexpected_error THEN
2175: ROLLBACK TO Delete_Claim_Line_Tbl;
2176: x_return_status := FND_API.g_ret_sts_unexp_error ;
2177: FND_MSG_PUB.count_and_get (
2178: p_encoded => FND_API.g_false
2172: );
2173:
2174: WHEN FND_API.g_exc_unexpected_error THEN
2175: ROLLBACK TO Delete_Claim_Line_Tbl;
2176: x_return_status := FND_API.g_ret_sts_unexp_error ;
2177: FND_MSG_PUB.count_and_get (
2178: p_encoded => FND_API.g_false
2179: ,p_count => x_msg_count
2180: ,p_data => x_msg_data
2174: WHEN FND_API.g_exc_unexpected_error THEN
2175: ROLLBACK TO Delete_Claim_Line_Tbl;
2176: x_return_status := FND_API.g_ret_sts_unexp_error ;
2177: FND_MSG_PUB.count_and_get (
2178: p_encoded => FND_API.g_false
2179: ,p_count => x_msg_count
2180: ,p_data => x_msg_data
2181: );
2182:
2181: );
2182:
2183: WHEN OTHERS THEN
2184: ROLLBACK TO Delete_Claim_Line_Tbl;
2185: x_return_status := FND_API.g_ret_sts_unexp_error ;
2186: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2187: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2188: END IF;
2189: FND_MSG_PUB.count_and_get(
2186: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2187: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2188: END IF;
2189: FND_MSG_PUB.count_and_get(
2190: p_encoded => FND_API.g_false
2191: ,p_count => x_msg_count
2192: ,p_data => x_msg_data
2193: );
2194:
2210: -- 07/22/2002 yizhang add p_mode for security check
2211: ---------------------------------------------------------------
2212: PROCEDURE Delete_Claim_Line(
2213: p_api_version IN NUMBER
2214: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
2215: ,p_commit IN VARCHAR2 := FND_API.g_false
2216:
2217: ,x_return_status OUT NOCOPY VARCHAR2
2218: ,x_msg_count OUT NOCOPY NUMBER
2211: ---------------------------------------------------------------
2212: PROCEDURE Delete_Claim_Line(
2213: p_api_version IN NUMBER
2214: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
2215: ,p_commit IN VARCHAR2 := FND_API.g_false
2216:
2217: ,x_return_status OUT NOCOPY VARCHAR2
2218: ,x_msg_count OUT NOCOPY NUMBER
2219: ,x_msg_data OUT NOCOPY VARCHAR2
2270: IF OZF_DEBUG_HIGH_ON THEN
2271: OZF_Utility_PVT.debug_message(l_full_name||': start');
2272: END IF;
2273:
2274: IF FND_API.to_boolean(p_init_msg_list) THEN
2275: FND_MSG_PUB.initialize;
2276: END IF;
2277:
2278: IF NOT FND_API.compatible_api_call(
2274: IF FND_API.to_boolean(p_init_msg_list) THEN
2275: FND_MSG_PUB.initialize;
2276: END IF;
2277:
2278: IF NOT FND_API.compatible_api_call(
2279: l_api_version,
2280: p_api_version,
2281: l_api_name,
2282: g_pkg_name
2280: p_api_version,
2281: l_api_name,
2282: g_pkg_name
2283: ) THEN
2284: RAISE FND_API.g_exc_unexpected_error;
2285: END IF;
2286:
2287: x_return_status := FND_API.G_RET_STS_SUCCESS;
2288:
2283: ) THEN
2284: RAISE FND_API.g_exc_unexpected_error;
2285: END IF;
2286:
2287: x_return_status := FND_API.G_RET_STS_SUCCESS;
2288:
2289: OPEN csr_claim_id(p_claim_line_id);
2290: FETCH csr_claim_id INTO l_claim_id;
2291: CLOSE csr_claim_id;
2293: ---------------------- check claim access ------------------------
2294: IF p_mode = OZF_CLAIM_UTILITY_PVT.g_manu_mode THEN
2295: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
2296: P_Api_Version_Number => 1.0
2297: , P_Init_Msg_List => FND_API.G_FALSE
2298: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2299: , P_Commit => FND_API.G_FALSE
2300: , P_object_id => l_claim_id
2301: , P_object_type => G_CLAIM_OBJECT_TYPE
2294: IF p_mode = OZF_CLAIM_UTILITY_PVT.g_manu_mode THEN
2295: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
2296: P_Api_Version_Number => 1.0
2297: , P_Init_Msg_List => FND_API.G_FALSE
2298: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2299: , P_Commit => FND_API.G_FALSE
2300: , P_object_id => l_claim_id
2301: , P_object_type => G_CLAIM_OBJECT_TYPE
2302: , P_user_id => OZF_UTILITY_PVT.get_resource_id(NVL(FND_GLOBAL.user_id,-1))
2295: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
2296: P_Api_Version_Number => 1.0
2297: , P_Init_Msg_List => FND_API.G_FALSE
2298: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2299: , P_Commit => FND_API.G_FALSE
2300: , P_object_id => l_claim_id
2301: , P_object_type => G_CLAIM_OBJECT_TYPE
2302: , P_user_id => OZF_UTILITY_PVT.get_resource_id(NVL(FND_GLOBAL.user_id,-1))
2303: , X_Return_Status => l_return_status
2309: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2310: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
2311: FND_MSG_PUB.add;
2312: END IF;
2313: RAISE FND_API.G_EXC_ERROR;
2314: END IF;
2315: END IF;
2316:
2317: --------------------- claim amount checking -----------------------
2331: --IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2332: -- FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_EXCESS_AMOUNT');
2333: --FND_MSG_PUB.add;
2334: --END IF;
2335: --RAISE FND_API.g_exc_error;
2336: --END IF;
2337: --END IF;
2338:
2339: ------------------ Remove Associate Earnings ----------------
2350:
2351: IF l_counter > 1 THEN
2352: OZF_Claim_Accrual_PVT.Delete_Line_Util_Tbl(
2353: p_api_version => l_api_version
2354: ,p_init_msg_list => FND_API.g_false
2355: ,p_commit => FND_API.g_false
2356: ,p_validation_level => FND_API.g_valid_level_full
2357: ,x_return_status => l_return_status
2358: ,x_msg_data => x_msg_data
2351: IF l_counter > 1 THEN
2352: OZF_Claim_Accrual_PVT.Delete_Line_Util_Tbl(
2353: p_api_version => l_api_version
2354: ,p_init_msg_list => FND_API.g_false
2355: ,p_commit => FND_API.g_false
2356: ,p_validation_level => FND_API.g_valid_level_full
2357: ,x_return_status => l_return_status
2358: ,x_msg_data => x_msg_data
2359: ,x_msg_count => x_msg_count
2352: OZF_Claim_Accrual_PVT.Delete_Line_Util_Tbl(
2353: p_api_version => l_api_version
2354: ,p_init_msg_list => FND_API.g_false
2355: ,p_commit => FND_API.g_false
2356: ,p_validation_level => FND_API.g_valid_level_full
2357: ,x_return_status => l_return_status
2358: ,x_msg_data => x_msg_data
2359: ,x_msg_count => x_msg_count
2360: ,p_line_util_tbl => l_line_util_tbl
2360: ,p_line_util_tbl => l_line_util_tbl
2361: ,p_mode => OZF_CLAIM_UTILITY_PVT.g_auto_mode
2362: ,x_error_index => l_error_index
2363: );
2364: IF l_return_status = fnd_api.g_ret_sts_error THEN
2365: RAISE FND_API.g_exc_error;
2366: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2367: RAISE FND_API.g_exc_unexpected_error;
2368: END IF;
2361: ,p_mode => OZF_CLAIM_UTILITY_PVT.g_auto_mode
2362: ,x_error_index => l_error_index
2363: );
2364: IF l_return_status = fnd_api.g_ret_sts_error THEN
2365: RAISE FND_API.g_exc_error;
2366: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2367: RAISE FND_API.g_exc_unexpected_error;
2368: END IF;
2369: END IF;
2362: ,x_error_index => l_error_index
2363: );
2364: IF l_return_status = fnd_api.g_ret_sts_error THEN
2365: RAISE FND_API.g_exc_error;
2366: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2367: RAISE FND_API.g_exc_unexpected_error;
2368: END IF;
2369: END IF;
2370:
2363: );
2364: IF l_return_status = fnd_api.g_ret_sts_error THEN
2365: RAISE FND_API.g_exc_error;
2366: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2367: RAISE FND_API.g_exc_unexpected_error;
2368: END IF;
2369: END IF;
2370:
2371: ------------------------ Delete ------------------------
2381: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2382: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
2383: FND_MSG_PUB.add;
2384: END IF;
2385: RAISE FND_API.g_exc_error;
2386: END IF;
2387:
2388: -------------------- finish --------------------------
2389: IF FND_API.to_boolean(p_commit) THEN
2385: RAISE FND_API.g_exc_error;
2386: END IF;
2387:
2388: -------------------- finish --------------------------
2389: IF FND_API.to_boolean(p_commit) THEN
2390: COMMIT;
2391: END IF;
2392:
2393: FND_MSG_PUB.count_and_get(
2390: COMMIT;
2391: END IF;
2392:
2393: FND_MSG_PUB.count_and_get(
2394: p_encoded => FND_API.g_false,
2395: p_count => x_msg_count,
2396: p_data => x_msg_data
2397: );
2398:
2400: OZF_Utility_PVT.debug_message(l_full_name ||': end');
2401: END IF;
2402:
2403: EXCEPTION
2404: WHEN FND_API.g_exc_error THEN
2405: ROLLBACK TO Delete_Claim_Line;
2406: x_return_status := FND_API.g_ret_sts_error;
2407: FND_MSG_PUB.count_and_get(
2408: p_encoded => FND_API.g_false,
2402:
2403: EXCEPTION
2404: WHEN FND_API.g_exc_error THEN
2405: ROLLBACK TO Delete_Claim_Line;
2406: x_return_status := FND_API.g_ret_sts_error;
2407: FND_MSG_PUB.count_and_get(
2408: p_encoded => FND_API.g_false,
2409: p_count => x_msg_count,
2410: p_data => x_msg_data
2404: WHEN FND_API.g_exc_error THEN
2405: ROLLBACK TO Delete_Claim_Line;
2406: x_return_status := FND_API.g_ret_sts_error;
2407: FND_MSG_PUB.count_and_get(
2408: p_encoded => FND_API.g_false,
2409: p_count => x_msg_count,
2410: p_data => x_msg_data
2411: );
2412:
2409: p_count => x_msg_count,
2410: p_data => x_msg_data
2411: );
2412:
2413: WHEN FND_API.g_exc_unexpected_error THEN
2414: ROLLBACK TO Delete_Claim_Line;
2415: x_return_status := FND_API.g_ret_sts_unexp_error ;
2416: FND_MSG_PUB.count_and_get(
2417: p_encoded => FND_API.g_false,
2411: );
2412:
2413: WHEN FND_API.g_exc_unexpected_error THEN
2414: ROLLBACK TO Delete_Claim_Line;
2415: x_return_status := FND_API.g_ret_sts_unexp_error ;
2416: FND_MSG_PUB.count_and_get(
2417: p_encoded => FND_API.g_false,
2418: p_count => x_msg_count,
2419: p_data => x_msg_data
2413: WHEN FND_API.g_exc_unexpected_error THEN
2414: ROLLBACK TO Delete_Claim_Line;
2415: x_return_status := FND_API.g_ret_sts_unexp_error ;
2416: FND_MSG_PUB.count_and_get(
2417: p_encoded => FND_API.g_false,
2418: p_count => x_msg_count,
2419: p_data => x_msg_data
2420: );
2421:
2420: );
2421:
2422: WHEN OTHERS THEN
2423: ROLLBACK TO Delete_Claim_Line;
2424: x_return_status := FND_API.g_ret_sts_unexp_error ;
2425: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2426: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2427: END IF;
2428: FND_MSG_PUB.count_and_get(
2425: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2426: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2427: END IF;
2428: FND_MSG_PUB.count_and_get(
2429: p_encoded => FND_API.g_false,
2430: p_count => x_msg_count,
2431: p_data => x_msg_data
2432: );
2433:
2442: -- 07/11/2000 mchang Create.
2443: --------------------------------------------------------------------
2444: PROCEDURE Lock_Claim_Line(
2445: p_api_version IN NUMBER
2446: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
2447:
2448: ,x_return_status OUT NOCOPY VARCHAR2
2449: ,x_msg_count OUT NOCOPY NUMBER
2450: ,x_msg_data OUT NOCOPY VARCHAR2
2471: IF OZF_DEBUG_HIGH_ON THEN
2472: OZF_Utility_PVT.debug_message(l_full_name||': start');
2473: END IF;
2474:
2475: IF FND_API.to_boolean(p_init_msg_list) THEN
2476: FND_MSG_PUB.initialize;
2477: END IF;
2478:
2479: IF NOT FND_API.compatible_api_call(
2475: IF FND_API.to_boolean(p_init_msg_list) THEN
2476: FND_MSG_PUB.initialize;
2477: END IF;
2478:
2479: IF NOT FND_API.compatible_api_call(
2480: l_api_version,
2481: p_api_version,
2482: l_api_name,
2483: g_pkg_name
2481: p_api_version,
2482: l_api_name,
2483: g_pkg_name
2484: ) THEN
2485: RAISE FND_API.g_exc_unexpected_error;
2486: END IF;
2487:
2488: x_return_status := FND_API.g_ret_sts_success;
2489:
2484: ) THEN
2485: RAISE FND_API.g_exc_unexpected_error;
2486: END IF;
2487:
2488: x_return_status := FND_API.g_ret_sts_success;
2489:
2490: ------------------------ lock -------------------------
2491: IF OZF_DEBUG_HIGH_ON THEN
2492: OZF_Utility_PVT.debug_message(l_full_name||': lock');
2499: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2500: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
2501: FND_MSG_PUB.add;
2502: END IF;
2503: RAISE FND_API.g_exc_error;
2504: END IF;
2505: CLOSE c_claim_line;
2506:
2507: -------------------- finish --------------------------
2505: CLOSE c_claim_line;
2506:
2507: -------------------- finish --------------------------
2508: FND_MSG_PUB.count_and_get(
2509: p_encoded => FND_API.g_false,
2510: p_count => x_msg_count,
2511: p_data => x_msg_data
2512: );
2513:
2516: END IF;
2517:
2518: EXCEPTION
2519: WHEN OZF_Utility_PVT.resource_locked THEN
2520: x_return_status := FND_API.g_ret_sts_error;
2521: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2522: FND_MESSAGE.set_name('OZF', 'OZF_API_RESOURCE_LOCKED');
2523: FND_MSG_PUB.add;
2524: END IF;
2522: FND_MESSAGE.set_name('OZF', 'OZF_API_RESOURCE_LOCKED');
2523: FND_MSG_PUB.add;
2524: END IF;
2525: FND_MSG_PUB.count_and_get(
2526: p_encoded => FND_API.g_false,
2527: p_count => x_msg_count,
2528: p_data => x_msg_data
2529: );
2530:
2527: p_count => x_msg_count,
2528: p_data => x_msg_data
2529: );
2530:
2531: WHEN FND_API.g_exc_error THEN
2532: x_return_status := FND_API.g_ret_sts_error;
2533: FND_MSG_PUB.count_and_get(
2534: p_encoded => FND_API.g_false,
2535: p_count => x_msg_count,
2528: p_data => x_msg_data
2529: );
2530:
2531: WHEN FND_API.g_exc_error THEN
2532: x_return_status := FND_API.g_ret_sts_error;
2533: FND_MSG_PUB.count_and_get(
2534: p_encoded => FND_API.g_false,
2535: p_count => x_msg_count,
2536: p_data => x_msg_data
2530:
2531: WHEN FND_API.g_exc_error THEN
2532: x_return_status := FND_API.g_ret_sts_error;
2533: FND_MSG_PUB.count_and_get(
2534: p_encoded => FND_API.g_false,
2535: p_count => x_msg_count,
2536: p_data => x_msg_data
2537: );
2538:
2535: p_count => x_msg_count,
2536: p_data => x_msg_data
2537: );
2538:
2539: WHEN FND_API.g_exc_unexpected_error THEN
2540: x_return_status := FND_API.g_ret_sts_unexp_error ;
2541: FND_MSG_PUB.count_and_get(
2542: p_encoded => FND_API.g_false,
2543: p_count => x_msg_count,
2536: p_data => x_msg_data
2537: );
2538:
2539: WHEN FND_API.g_exc_unexpected_error THEN
2540: x_return_status := FND_API.g_ret_sts_unexp_error ;
2541: FND_MSG_PUB.count_and_get(
2542: p_encoded => FND_API.g_false,
2543: p_count => x_msg_count,
2544: p_data => x_msg_data
2538:
2539: WHEN FND_API.g_exc_unexpected_error THEN
2540: x_return_status := FND_API.g_ret_sts_unexp_error ;
2541: FND_MSG_PUB.count_and_get(
2542: p_encoded => FND_API.g_false,
2543: p_count => x_msg_count,
2544: p_data => x_msg_data
2545: );
2546:
2544: p_data => x_msg_data
2545: );
2546:
2547: WHEN OTHERS THEN
2548: x_return_status := FND_API.g_ret_sts_unexp_error ;
2549: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2550: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2551: END IF;
2552: FND_MSG_PUB.count_and_get(
2549: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2550: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2551: END IF;
2552: FND_MSG_PUB.count_and_get(
2553: p_encoded => FND_API.g_false,
2554: p_count => x_msg_count,
2555: p_data => x_msg_data
2556: );
2557:
2582: l_activity_id NUMBER := NULL;
2583: l_earnings_associated_flag VARCHAR2(1);
2584:
2585: CURSOR csr_line_lock_items(cv_claim_line_id IN NUMBER) IS
2586: SELECT NVL(source_object_id, FND_API.g_miss_num)
2587: , NVL(source_object_class, FND_API.g_miss_char)
2588: , NVL(source_object_type_id, FND_API.g_miss_num)
2589: , NVL(plan_id, FND_API.g_miss_num)
2590: , NVL(item_id, FND_API.g_miss_num)
2583: l_earnings_associated_flag VARCHAR2(1);
2584:
2585: CURSOR csr_line_lock_items(cv_claim_line_id IN NUMBER) IS
2586: SELECT NVL(source_object_id, FND_API.g_miss_num)
2587: , NVL(source_object_class, FND_API.g_miss_char)
2588: , NVL(source_object_type_id, FND_API.g_miss_num)
2589: , NVL(plan_id, FND_API.g_miss_num)
2590: , NVL(item_id, FND_API.g_miss_num)
2591: , NVL(item_description, FND_API.g_miss_char)
2584:
2585: CURSOR csr_line_lock_items(cv_claim_line_id IN NUMBER) IS
2586: SELECT NVL(source_object_id, FND_API.g_miss_num)
2587: , NVL(source_object_class, FND_API.g_miss_char)
2588: , NVL(source_object_type_id, FND_API.g_miss_num)
2589: , NVL(plan_id, FND_API.g_miss_num)
2590: , NVL(item_id, FND_API.g_miss_num)
2591: , NVL(item_description, FND_API.g_miss_char)
2592: , NVL(activity_type, FND_API.g_miss_char)
2585: CURSOR csr_line_lock_items(cv_claim_line_id IN NUMBER) IS
2586: SELECT NVL(source_object_id, FND_API.g_miss_num)
2587: , NVL(source_object_class, FND_API.g_miss_char)
2588: , NVL(source_object_type_id, FND_API.g_miss_num)
2589: , NVL(plan_id, FND_API.g_miss_num)
2590: , NVL(item_id, FND_API.g_miss_num)
2591: , NVL(item_description, FND_API.g_miss_char)
2592: , NVL(activity_type, FND_API.g_miss_char)
2593: , NVL(activity_id, FND_API.g_miss_num)
2586: SELECT NVL(source_object_id, FND_API.g_miss_num)
2587: , NVL(source_object_class, FND_API.g_miss_char)
2588: , NVL(source_object_type_id, FND_API.g_miss_num)
2589: , NVL(plan_id, FND_API.g_miss_num)
2590: , NVL(item_id, FND_API.g_miss_num)
2591: , NVL(item_description, FND_API.g_miss_char)
2592: , NVL(activity_type, FND_API.g_miss_char)
2593: , NVL(activity_id, FND_API.g_miss_num)
2594: , earnings_associated_flag
2587: , NVL(source_object_class, FND_API.g_miss_char)
2588: , NVL(source_object_type_id, FND_API.g_miss_num)
2589: , NVL(plan_id, FND_API.g_miss_num)
2590: , NVL(item_id, FND_API.g_miss_num)
2591: , NVL(item_description, FND_API.g_miss_char)
2592: , NVL(activity_type, FND_API.g_miss_char)
2593: , NVL(activity_id, FND_API.g_miss_num)
2594: , earnings_associated_flag
2595: FROM ozf_claim_lines
2588: , NVL(source_object_type_id, FND_API.g_miss_num)
2589: , NVL(plan_id, FND_API.g_miss_num)
2590: , NVL(item_id, FND_API.g_miss_num)
2591: , NVL(item_description, FND_API.g_miss_char)
2592: , NVL(activity_type, FND_API.g_miss_char)
2593: , NVL(activity_id, FND_API.g_miss_num)
2594: , earnings_associated_flag
2595: FROM ozf_claim_lines
2596: WHERE claim_line_id = cv_claim_line_id;
2589: , NVL(plan_id, FND_API.g_miss_num)
2590: , NVL(item_id, FND_API.g_miss_num)
2591: , NVL(item_description, FND_API.g_miss_char)
2592: , NVL(activity_type, FND_API.g_miss_char)
2593: , NVL(activity_id, FND_API.g_miss_num)
2594: , earnings_associated_flag
2595: FROM ozf_claim_lines
2596: WHERE claim_line_id = cv_claim_line_id;
2597: BEGIN
2594: , earnings_associated_flag
2595: FROM ozf_claim_lines
2596: WHERE claim_line_id = cv_claim_line_id;
2597: BEGIN
2598: x_return_status := FND_API.g_ret_sts_success;
2599:
2600: -- get old claim line values
2601: OPEN csr_line_lock_items(p_claim_line_rec.claim_line_id);
2602: FETCH csr_line_lock_items INTO l_source_object_id
2610: , l_earnings_associated_flag;
2611: CLOSE csr_line_lock_items;
2612:
2613: -------------- Lock items when earnings is associated --------------
2614: IF l_earnings_associated_flag = FND_API.g_true THEN
2615: IF NVL(p_claim_line_rec.source_object_id,FND_API.g_miss_num) <> l_source_object_id THEN
2616: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2617: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
2618: FND_MESSAGE.set_token('LOCK', 'Name OR Line / Product');
2611: CLOSE csr_line_lock_items;
2612:
2613: -------------- Lock items when earnings is associated --------------
2614: IF l_earnings_associated_flag = FND_API.g_true THEN
2615: IF NVL(p_claim_line_rec.source_object_id,FND_API.g_miss_num) <> l_source_object_id THEN
2616: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2617: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
2618: FND_MESSAGE.set_token('LOCK', 'Name OR Line / Product');
2619: FND_MSG_PUB.add;
2617: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
2618: FND_MESSAGE.set_token('LOCK', 'Name OR Line / Product');
2619: FND_MSG_PUB.add;
2620: END IF;
2621: x_return_status := FND_API.g_ret_sts_error;
2622: RETURN;
2623: END IF;
2624: IF NVL(p_claim_line_rec.source_object_class,FND_API.g_miss_char) <> l_source_object_class THEN
2625: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2620: END IF;
2621: x_return_status := FND_API.g_ret_sts_error;
2622: RETURN;
2623: END IF;
2624: IF NVL(p_claim_line_rec.source_object_class,FND_API.g_miss_char) <> l_source_object_class THEN
2625: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2626: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
2627: FND_MESSAGE.set_token('LOCK', 'Type');
2628: FND_MSG_PUB.add;
2626: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
2627: FND_MESSAGE.set_token('LOCK', 'Type');
2628: FND_MSG_PUB.add;
2629: END IF;
2630: x_return_status := FND_API.g_ret_sts_error;
2631: RETURN;
2632: END IF;
2633: IF NVL(p_claim_line_rec.source_object_type_id,FND_API.g_miss_num) <> l_source_object_type_id THEN
2634: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2629: END IF;
2630: x_return_status := FND_API.g_ret_sts_error;
2631: RETURN;
2632: END IF;
2633: IF NVL(p_claim_line_rec.source_object_type_id,FND_API.g_miss_num) <> l_source_object_type_id THEN
2634: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2635: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
2636: FND_MESSAGE.set_token('LOCK', 'Type');
2637: FND_MSG_PUB.add;
2635: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
2636: FND_MESSAGE.set_token('LOCK', 'Type');
2637: FND_MSG_PUB.add;
2638: END IF;
2639: x_return_status := FND_API.g_ret_sts_error;
2640: RETURN;
2641: END IF;
2642: IF NVL(p_claim_line_rec.plan_id,FND_API.g_miss_num) <> l_plan_id THEN
2643: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2638: END IF;
2639: x_return_status := FND_API.g_ret_sts_error;
2640: RETURN;
2641: END IF;
2642: IF NVL(p_claim_line_rec.plan_id,FND_API.g_miss_num) <> l_plan_id THEN
2643: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2644: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
2645: FND_MESSAGE.set_token('LOCK', 'Type');
2646: FND_MSG_PUB.add;
2644: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
2645: FND_MESSAGE.set_token('LOCK', 'Type');
2646: FND_MSG_PUB.add;
2647: END IF;
2648: x_return_status := FND_API.g_ret_sts_error;
2649: RETURN;
2650: END IF;
2651: IF NVL(p_claim_line_rec.item_id,FND_API.g_miss_num) <> l_item_id THEN
2652: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2647: END IF;
2648: x_return_status := FND_API.g_ret_sts_error;
2649: RETURN;
2650: END IF;
2651: IF NVL(p_claim_line_rec.item_id,FND_API.g_miss_num) <> l_item_id THEN
2652: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2653: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
2654: FND_MESSAGE.set_token('LOCK', 'Line / Product');
2655: FND_MSG_PUB.add;
2653: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
2654: FND_MESSAGE.set_token('LOCK', 'Line / Product');
2655: FND_MSG_PUB.add;
2656: END IF;
2657: x_return_status := FND_API.g_ret_sts_error;
2658: RETURN;
2659: END IF;
2660: /*
2661: IF NVL(p_claim_line_rec.item_description,FND_API.g_miss_char) <> l_item_description THEN
2657: x_return_status := FND_API.g_ret_sts_error;
2658: RETURN;
2659: END IF;
2660: /*
2661: IF NVL(p_claim_line_rec.item_description,FND_API.g_miss_char) <> l_item_description THEN
2662: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2663: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
2664: FND_MESSAGE.set_token('LOCK', 'ITEM_DESCRIPTION');
2665: FND_MSG_PUB.add;
2663: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
2664: FND_MESSAGE.set_token('LOCK', 'ITEM_DESCRIPTION');
2665: FND_MSG_PUB.add;
2666: END IF;
2667: x_return_status := FND_API.g_ret_sts_error;
2668: RETURN;
2669: END IF;
2670: */
2671: IF NVL(p_claim_line_rec.activity_type,FND_API.g_miss_char) <> l_activity_type THEN
2667: x_return_status := FND_API.g_ret_sts_error;
2668: RETURN;
2669: END IF;
2670: */
2671: IF NVL(p_claim_line_rec.activity_type,FND_API.g_miss_char) <> l_activity_type THEN
2672: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2673: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
2674: FND_MESSAGE.set_token('LOCK', 'Name');
2675: FND_MSG_PUB.add;
2673: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
2674: FND_MESSAGE.set_token('LOCK', 'Name');
2675: FND_MSG_PUB.add;
2676: END IF;
2677: x_return_status := FND_API.g_ret_sts_error;
2678: RETURN;
2679: END IF;
2680: IF NVL(p_claim_line_rec.activity_id,FND_API.g_miss_num) <> l_activity_id THEN
2681: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2676: END IF;
2677: x_return_status := FND_API.g_ret_sts_error;
2678: RETURN;
2679: END IF;
2680: IF NVL(p_claim_line_rec.activity_id,FND_API.g_miss_num) <> l_activity_id THEN
2681: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2682: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
2683: FND_MESSAGE.set_token('LOCK', 'Name');
2684: FND_MSG_PUB.add;
2682: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
2683: FND_MESSAGE.set_token('LOCK', 'Name');
2684: FND_MSG_PUB.add;
2685: END IF;
2686: x_return_status := FND_API.g_ret_sts_error;
2687: RETURN;
2688: END IF;
2689: END IF;
2690:
2702: -- 23/01/2002 slkrishn modified amount checking conditions
2703: ---------------------------------------------------------------------
2704: PROCEDURE Update_Claim_Line_Tbl(
2705: p_api_version IN NUMBER
2706: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
2707: ,p_commit IN VARCHAR2 := FND_API.g_false
2708: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
2709:
2710: ,x_return_status OUT NOCOPY VARCHAR2
2703: ---------------------------------------------------------------------
2704: PROCEDURE Update_Claim_Line_Tbl(
2705: p_api_version IN NUMBER
2706: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
2707: ,p_commit IN VARCHAR2 := FND_API.g_false
2708: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
2709:
2710: ,x_return_status OUT NOCOPY VARCHAR2
2711: ,x_msg_data OUT NOCOPY VARCHAR2
2704: PROCEDURE Update_Claim_Line_Tbl(
2705: p_api_version IN NUMBER
2706: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
2707: ,p_commit IN VARCHAR2 := FND_API.g_false
2708: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
2709:
2710: ,x_return_status OUT NOCOPY VARCHAR2
2711: ,x_msg_data OUT NOCOPY VARCHAR2
2712: ,x_msg_count OUT NOCOPY NUMBER
2711: ,x_msg_data OUT NOCOPY VARCHAR2
2712: ,x_msg_count OUT NOCOPY NUMBER
2713:
2714: ,p_claim_line_tbl IN claim_line_tbl_type
2715: ,p_change_object_version IN VARCHAR2 := FND_API.g_false
2716: ,p_mode IN VARCHAR2 := OZF_CLAIM_UTILITY_PVT.g_auto_mode
2717:
2718: ,x_error_index OUT NOCOPY NUMBER
2719: ) IS
2772: IF OZF_DEBUG_HIGH_ON THEN
2773: OZF_Utility_PVT.debug_message(l_full_name||': start');
2774: END IF;
2775:
2776: IF FND_API.to_boolean(p_init_msg_list) THEN
2777: FND_MSG_PUB.initialize;
2778: END IF;
2779:
2780: IF NOT FND_API.compatible_api_call(
2776: IF FND_API.to_boolean(p_init_msg_list) THEN
2777: FND_MSG_PUB.initialize;
2778: END IF;
2779:
2780: IF NOT FND_API.compatible_api_call(
2781: l_api_version,
2782: p_api_version,
2783: l_api_name,
2784: g_pkg_name
2782: p_api_version,
2783: l_api_name,
2784: g_pkg_name
2785: ) THEN
2786: RAISE FND_API.g_exc_unexpected_error;
2787: END IF;
2788:
2789: x_return_status := FND_API.g_ret_sts_success;
2790:
2785: ) THEN
2786: RAISE FND_API.g_exc_unexpected_error;
2787: END IF;
2788:
2789: x_return_status := FND_API.g_ret_sts_success;
2790:
2791: l_claim_line_tbl := p_claim_line_tbl;
2792:
2793: ---------------------- check claim access ------------------------
2795: FOR j IN p_claim_line_tbl.FIRST..p_claim_line_tbl.LAST LOOP
2796: IF p_claim_line_tbl.EXISTS(j) THEN
2797: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
2798: P_Api_Version_Number => 1.0
2799: , P_Init_Msg_List => FND_API.G_FALSE
2800: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2801: , P_Commit => FND_API.G_FALSE
2802: , P_object_id => p_claim_line_tbl(j).claim_id
2803: , P_object_type => G_CLAIM_OBJECT_TYPE
2796: IF p_claim_line_tbl.EXISTS(j) THEN
2797: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
2798: P_Api_Version_Number => 1.0
2799: , P_Init_Msg_List => FND_API.G_FALSE
2800: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2801: , P_Commit => FND_API.G_FALSE
2802: , P_object_id => p_claim_line_tbl(j).claim_id
2803: , P_object_type => G_CLAIM_OBJECT_TYPE
2804: , P_user_id => OZF_UTILITY_PVT.get_resource_id(NVL(FND_GLOBAL.user_id,-1))
2797: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
2798: P_Api_Version_Number => 1.0
2799: , P_Init_Msg_List => FND_API.G_FALSE
2800: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2801: , P_Commit => FND_API.G_FALSE
2802: , P_object_id => p_claim_line_tbl(j).claim_id
2803: , P_object_type => G_CLAIM_OBJECT_TYPE
2804: , P_user_id => OZF_UTILITY_PVT.get_resource_id(NVL(FND_GLOBAL.user_id,-1))
2805: , X_Return_Status => l_return_status
2811: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2812: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
2813: FND_MSG_PUB.add;
2814: END IF;
2815: RAISE FND_API.G_EXC_ERROR;
2816: END IF;
2817: EXIT;
2818: END IF;
2819: END LOOP;
2821:
2822: ------------ Default Claim Line by Settlement Method ----------------
2823: OZF_CLAIM_SETTLEMENT_VAL_PVT.Default_Claim_Line_Tbl(
2824: p_api_version => l_api_version
2825: ,p_init_msg_list => FND_API.g_false
2826: ,p_validation_level => p_validation_level
2827: ,x_return_status => l_return_status
2828: ,x_msg_data => x_msg_data
2829: ,x_msg_count => x_msg_count
2828: ,x_msg_data => x_msg_data
2829: ,x_msg_count => x_msg_count
2830: ,p_x_claim_line_tbl => l_claim_line_tbl
2831: );
2832: IF l_return_status = fnd_api.g_ret_sts_error THEN
2833: RAISE FND_API.g_exc_error;
2834: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2835: RAISE FND_API.g_exc_unexpected_error;
2836: END IF;
2829: ,x_msg_count => x_msg_count
2830: ,p_x_claim_line_tbl => l_claim_line_tbl
2831: );
2832: IF l_return_status = fnd_api.g_ret_sts_error THEN
2833: RAISE FND_API.g_exc_error;
2834: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2835: RAISE FND_API.g_exc_unexpected_error;
2836: END IF;
2837:
2830: ,p_x_claim_line_tbl => l_claim_line_tbl
2831: );
2832: IF l_return_status = fnd_api.g_ret_sts_error THEN
2833: RAISE FND_API.g_exc_error;
2834: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2835: RAISE FND_API.g_exc_unexpected_error;
2836: END IF;
2837:
2838: --------------------- Amount Checking -----------------------
2831: );
2832: IF l_return_status = fnd_api.g_ret_sts_error THEN
2833: RAISE FND_API.g_exc_error;
2834: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2835: RAISE FND_API.g_exc_unexpected_error;
2836: END IF;
2837:
2838: --------------------- Amount Checking -----------------------
2839: IF l_claim_line_tbl.count > 0 THEN
2858: CLOSE c_old_line_amt;
2859:
2860: -- added by slkrishn
2861: IF (l_claim_line_tbl(j).quantity IS NOT NULL AND
2862: l_claim_line_tbl(j).quantity <> FND_API.g_miss_num)
2863: AND (l_claim_line_tbl(j).rate IS NOT NULL AND
2864: l_claim_line_tbl(j).rate <> FND_API.g_miss_num)
2865: THEN
2866: l_claim_line_tbl(j).claim_currency_amount :=
2860: -- added by slkrishn
2861: IF (l_claim_line_tbl(j).quantity IS NOT NULL AND
2862: l_claim_line_tbl(j).quantity <> FND_API.g_miss_num)
2863: AND (l_claim_line_tbl(j).rate IS NOT NULL AND
2864: l_claim_line_tbl(j).rate <> FND_API.g_miss_num)
2865: THEN
2866: l_claim_line_tbl(j).claim_currency_amount :=
2867: l_claim_line_tbl(j).quantity * l_claim_line_tbl(j).rate;
2868: END IF;
2873: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_AMT_NULL');
2874: FND_MSG_PUB.add;
2875: END IF;
2876: x_error_index := j;
2877: RAISE FND_API.g_exc_error;
2878: ELSE
2879: IF OZF_DEBUG_HIGH_ON THEN
2880: OZF_Utility_PVT.debug_message('Before CurrRound :: claim line currency_currency_amount = '||l_claim_line_tbl(j).claim_currency_amount);
2881: OZF_Utility_PVT.debug_message('Before CurrRound :: claim currency code = '||l_currency_code);
2906: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2907: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_AMT_SIGN_ERR');
2908: FND_MSG_PUB.add;
2909: END IF;
2910: RAISE FND_API.g_exc_error;
2911: END IF;
2912: END IF;
2913: -- Skip this check if the Claim line is updated from Request.
2914: IF p_mode <> OZF_CLAIM_UTILITY_PVT.g_request_mode OR
2917: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2918: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_EXCESS_AMOUNT');
2919: FND_MSG_PUB.add;
2920: END IF;
2921: RAISE FND_API.g_exc_error;
2922: END IF;
2923: END IF;
2924: END IF;
2925:
2927: IF l_claim_line_tbl.count > 0 THEN
2928: FOR i IN l_claim_line_tbl.FIRST..l_claim_line_tbl.LAST LOOP
2929: IF l_claim_line_tbl.EXISTS(i) THEN
2930: l_claim_line_rec := l_claim_line_tbl(i);
2931: IF p_change_object_version = FND_API.g_true THEN
2932: --l_claim_line_rec.object_version_number := l_claim_line_rec.object_version_number + 1;
2933: OPEN csr_line_obj_ver(l_claim_line_tbl(i).claim_line_id);
2934: FETCH csr_line_obj_ver INTO l_claim_line_rec.object_version_number;
2935: CLOSE csr_line_obj_ver;
2933: OPEN csr_line_obj_ver(l_claim_line_tbl(i).claim_line_id);
2934: FETCH csr_line_obj_ver INTO l_claim_line_rec.object_version_number;
2935: CLOSE csr_line_obj_ver;
2936: END IF;
2937: l_claim_line_rec.update_from_tbl_flag := FND_API.g_true;
2938:
2939: -- Call the update claim line API
2940: Update_Claim_Line(
2941: p_api_version => 1.0
2938:
2939: -- Call the update claim line API
2940: Update_Claim_Line(
2941: p_api_version => 1.0
2942: , p_init_msg_list => FND_API.g_false
2943: , p_commit => FND_API.g_false
2944: , p_validation_level => p_validation_level
2945: , x_return_status => l_return_status
2946: , x_msg_data => x_msg_data
2939: -- Call the update claim line API
2940: Update_Claim_Line(
2941: p_api_version => 1.0
2942: , p_init_msg_list => FND_API.g_false
2943: , p_commit => FND_API.g_false
2944: , p_validation_level => p_validation_level
2945: , x_return_status => l_return_status
2946: , x_msg_data => x_msg_data
2947: , x_msg_count => x_msg_count
2948: , p_claim_line_rec => l_claim_line_rec
2949: , p_mode => OZF_CLAIM_UTILITY_PVT.g_auto_mode
2950: , x_object_version => l_object_version
2951: );
2952: IF l_return_status = fnd_api.g_ret_sts_error THEN
2953: x_error_index := i;
2954: RAISE FND_API.g_exc_error;
2955: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2956: x_error_index := i;
2950: , x_object_version => l_object_version
2951: );
2952: IF l_return_status = fnd_api.g_ret_sts_error THEN
2953: x_error_index := i;
2954: RAISE FND_API.g_exc_error;
2955: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2956: x_error_index := i;
2957: RAISE FND_API.g_exc_unexpected_error;
2958: END IF;
2951: );
2952: IF l_return_status = fnd_api.g_ret_sts_error THEN
2953: x_error_index := i;
2954: RAISE FND_API.g_exc_error;
2955: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2956: x_error_index := i;
2957: RAISE FND_API.g_exc_unexpected_error;
2958: END IF;
2959: END IF;
2953: x_error_index := i;
2954: RAISE FND_API.g_exc_error;
2955: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2956: x_error_index := i;
2957: RAISE FND_API.g_exc_unexpected_error;
2958: END IF;
2959: END IF;
2960: END LOOP;
2961: END IF;
2960: END LOOP;
2961: END IF;
2962:
2963: ------------------------- finish -------------------------------
2964: IF FND_API.to_boolean(p_commit) THEN
2965: COMMIT;
2966: END IF;
2967:
2968: FND_MSG_PUB.count_and_get(
2965: COMMIT;
2966: END IF;
2967:
2968: FND_MSG_PUB.count_and_get(
2969: p_encoded => FND_API.g_false,
2970: p_count => x_msg_count,
2971: p_data => x_msg_data
2972: );
2973:
2975: OZF_Utility_PVT.debug_message(l_full_name ||': end');
2976: END IF;
2977:
2978: EXCEPTION
2979: WHEN FND_API.g_exc_error THEN
2980: ROLLBACK TO Update_Claim_Line_Tbl;
2981: x_return_status := FND_API.g_ret_sts_error;
2982: FND_MSG_PUB.count_and_get (
2983: p_encoded => FND_API.g_false
2977:
2978: EXCEPTION
2979: WHEN FND_API.g_exc_error THEN
2980: ROLLBACK TO Update_Claim_Line_Tbl;
2981: x_return_status := FND_API.g_ret_sts_error;
2982: FND_MSG_PUB.count_and_get (
2983: p_encoded => FND_API.g_false
2984: ,p_count => x_msg_count
2985: ,p_data => x_msg_data
2979: WHEN FND_API.g_exc_error THEN
2980: ROLLBACK TO Update_Claim_Line_Tbl;
2981: x_return_status := FND_API.g_ret_sts_error;
2982: FND_MSG_PUB.count_and_get (
2983: p_encoded => FND_API.g_false
2984: ,p_count => x_msg_count
2985: ,p_data => x_msg_data
2986: );
2987:
2984: ,p_count => x_msg_count
2985: ,p_data => x_msg_data
2986: );
2987:
2988: WHEN FND_API.g_exc_unexpected_error THEN
2989: ROLLBACK TO Update_Claim_Line_Tbl;
2990: x_return_status := FND_API.g_ret_sts_unexp_error ;
2991: FND_MSG_PUB.count_and_get (
2992: p_encoded => FND_API.g_false
2986: );
2987:
2988: WHEN FND_API.g_exc_unexpected_error THEN
2989: ROLLBACK TO Update_Claim_Line_Tbl;
2990: x_return_status := FND_API.g_ret_sts_unexp_error ;
2991: FND_MSG_PUB.count_and_get (
2992: p_encoded => FND_API.g_false
2993: ,p_count => x_msg_count
2994: ,p_data => x_msg_data
2988: WHEN FND_API.g_exc_unexpected_error THEN
2989: ROLLBACK TO Update_Claim_Line_Tbl;
2990: x_return_status := FND_API.g_ret_sts_unexp_error ;
2991: FND_MSG_PUB.count_and_get (
2992: p_encoded => FND_API.g_false
2993: ,p_count => x_msg_count
2994: ,p_data => x_msg_data
2995: );
2996:
2995: );
2996:
2997: WHEN OTHERS THEN
2998: ROLLBACK TO Update_Claim_Line_Tbl;
2999: x_return_status := FND_API.g_ret_sts_unexp_error ;
3000: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3001: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3002: END IF;
3003: FND_MSG_PUB.count_and_get(
3000: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3001: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3002: END IF;
3003: FND_MSG_PUB.count_and_get(
3004: p_encoded => FND_API.g_false
3005: ,p_count => x_msg_count
3006: ,p_data => x_msg_data
3007: );
3008:
3027: -- 07/22/2002 yizhang add p_mode for security check
3028: ----------------------------------------------------------------------
3029: PROCEDURE Update_Claim_Line(
3030: p_api_version IN NUMBER
3031: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
3032: ,p_commit IN VARCHAR2 := FND_API.g_false
3033: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
3034:
3035: ,x_return_status OUT NOCOPY VARCHAR2
3028: ----------------------------------------------------------------------
3029: PROCEDURE Update_Claim_Line(
3030: p_api_version IN NUMBER
3031: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
3032: ,p_commit IN VARCHAR2 := FND_API.g_false
3033: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
3034:
3035: ,x_return_status OUT NOCOPY VARCHAR2
3036: ,x_msg_count OUT NOCOPY NUMBER
3029: PROCEDURE Update_Claim_Line(
3030: p_api_version IN NUMBER
3031: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
3032: ,p_commit IN VARCHAR2 := FND_API.g_false
3033: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
3034:
3035: ,x_return_status OUT NOCOPY VARCHAR2
3036: ,x_msg_count OUT NOCOPY NUMBER
3037: ,x_msg_data OUT NOCOPY VARCHAR2
3140: IF OZF_DEBUG_HIGH_ON THEN
3141: OZF_Utility_PVT.debug_message(l_full_name||': start');
3142: END IF;
3143:
3144: IF FND_API.to_boolean(p_init_msg_list) THEN
3145: FND_MSG_PUB.initialize;
3146: END IF;
3147:
3148: IF NOT FND_API.compatible_api_call(
3144: IF FND_API.to_boolean(p_init_msg_list) THEN
3145: FND_MSG_PUB.initialize;
3146: END IF;
3147:
3148: IF NOT FND_API.compatible_api_call(
3149: l_api_version,
3150: p_api_version,
3151: l_api_name,
3152: g_pkg_name
3150: p_api_version,
3151: l_api_name,
3152: g_pkg_name
3153: ) THEN
3154: RAISE FND_API.g_exc_unexpected_error;
3155: END IF;
3156:
3157: x_return_status := FND_API.g_ret_sts_success;
3158:
3153: ) THEN
3154: RAISE FND_API.g_exc_unexpected_error;
3155: END IF;
3156:
3157: x_return_status := FND_API.g_ret_sts_success;
3158:
3159: ---------------------- check claim access ------------------------
3160: IF p_mode = OZF_CLAIM_UTILITY_PVT.g_manu_mode THEN
3161: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
3159: ---------------------- check claim access ------------------------
3160: IF p_mode = OZF_CLAIM_UTILITY_PVT.g_manu_mode THEN
3161: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
3162: P_Api_Version_Number => 1.0
3163: , P_Init_Msg_List => FND_API.G_FALSE
3164: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
3165: , P_Commit => FND_API.G_FALSE
3166: , P_object_id => p_claim_line_rec.claim_id
3167: , P_object_type => G_CLAIM_OBJECT_TYPE
3160: IF p_mode = OZF_CLAIM_UTILITY_PVT.g_manu_mode THEN
3161: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
3162: P_Api_Version_Number => 1.0
3163: , P_Init_Msg_List => FND_API.G_FALSE
3164: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
3165: , P_Commit => FND_API.G_FALSE
3166: , P_object_id => p_claim_line_rec.claim_id
3167: , P_object_type => G_CLAIM_OBJECT_TYPE
3168: , P_user_id => OZF_UTILITY_PVT.get_resource_id(NVL(FND_GLOBAL.user_id,-1))
3161: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
3162: P_Api_Version_Number => 1.0
3163: , P_Init_Msg_List => FND_API.G_FALSE
3164: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
3165: , P_Commit => FND_API.G_FALSE
3166: , P_object_id => p_claim_line_rec.claim_id
3167: , P_object_type => G_CLAIM_OBJECT_TYPE
3168: , P_user_id => OZF_UTILITY_PVT.get_resource_id(NVL(FND_GLOBAL.user_id,-1))
3169: , X_Return_Status => l_return_status
3175: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3176: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
3177: FND_MSG_PUB.add;
3178: END IF;
3179: RAISE FND_API.G_EXC_ERROR;
3180: END IF;
3181: END IF;
3182:
3183: l_object_version_number := p_claim_line_rec.object_version_number + 1;
3187:
3188: -- Default UOM for product.
3189: IF l_claim_line_rec.item_type = 'PRODUCT'
3190: AND (l_claim_line_rec.item_id is not null
3191: AND l_claim_line_rec.item_id <> FND_API.G_MISS_NUM )
3192: AND (l_claim_line_rec.quantity_uom is null
3193: OR l_claim_line_rec.quantity_uom = FND_API.G_MISS_CHAR)
3194: THEN
3195: -- Bugfix 5182181
3189: IF l_claim_line_rec.item_type = 'PRODUCT'
3190: AND (l_claim_line_rec.item_id is not null
3191: AND l_claim_line_rec.item_id <> FND_API.G_MISS_NUM )
3192: AND (l_claim_line_rec.quantity_uom is null
3193: OR l_claim_line_rec.quantity_uom = FND_API.G_MISS_CHAR)
3194: THEN
3195: -- Bugfix 5182181
3196: l_claim_line_rec.quantity_uom := Get_Default_Product_UOM
3197: ( p_product_id => l_claim_line_rec.item_id
3208: p_validation_mode => JTF_PLSQL_API.g_update,
3209: x_return_status => l_return_status
3210: );
3211:
3212: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3213: RAISE FND_API.g_exc_unexpected_error;
3214: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
3215: RAISE FND_API.g_exc_error;
3216: END IF;
3209: x_return_status => l_return_status
3210: );
3211:
3212: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3213: RAISE FND_API.g_exc_unexpected_error;
3214: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
3215: RAISE FND_API.g_exc_error;
3216: END IF;
3217: END IF;
3210: );
3211:
3212: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3213: RAISE FND_API.g_exc_unexpected_error;
3214: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
3215: RAISE FND_API.g_exc_error;
3216: END IF;
3217: END IF;
3218:
3211:
3212: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3213: RAISE FND_API.g_exc_unexpected_error;
3214: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
3215: RAISE FND_API.g_exc_error;
3216: END IF;
3217: END IF;
3218:
3219: -- replace g_miss_char/num/date with current column values
3222: ,x_complete_rec => l_claim_line_rec
3223: );
3224:
3225: -- default claim line based on claim settlement method
3226: IF l_claim_line_rec.update_from_tbl_flag = FND_API.g_false THEN
3227: OZF_CLAIM_SETTLEMENT_VAL_PVT.Default_Claim_Line(
3228: p_api_version => l_api_version
3229: ,p_init_msg_list => FND_API.g_false
3230: ,p_validation_level => FND_API.g_valid_level_full
3225: -- default claim line based on claim settlement method
3226: IF l_claim_line_rec.update_from_tbl_flag = FND_API.g_false THEN
3227: OZF_CLAIM_SETTLEMENT_VAL_PVT.Default_Claim_Line(
3228: p_api_version => l_api_version
3229: ,p_init_msg_list => FND_API.g_false
3230: ,p_validation_level => FND_API.g_valid_level_full
3231: ,x_return_status => l_return_status
3232: ,x_msg_data => x_msg_data
3233: ,x_msg_count => x_msg_count
3226: IF l_claim_line_rec.update_from_tbl_flag = FND_API.g_false THEN
3227: OZF_CLAIM_SETTLEMENT_VAL_PVT.Default_Claim_Line(
3228: p_api_version => l_api_version
3229: ,p_init_msg_list => FND_API.g_false
3230: ,p_validation_level => FND_API.g_valid_level_full
3231: ,x_return_status => l_return_status
3232: ,x_msg_data => x_msg_data
3233: ,x_msg_count => x_msg_count
3234: ,p_x_claim_line_rec => l_claim_line_rec
3232: ,x_msg_data => x_msg_data
3233: ,x_msg_count => x_msg_count
3234: ,p_x_claim_line_rec => l_claim_line_rec
3235: );
3236: IF l_return_status = FND_API.g_ret_sts_error THEN
3237: RAISE FND_API.g_exc_error;
3238: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3239: RAISE FND_API.g_exc_unexpected_error;
3240: END IF;
3233: ,x_msg_count => x_msg_count
3234: ,p_x_claim_line_rec => l_claim_line_rec
3235: );
3236: IF l_return_status = FND_API.g_ret_sts_error THEN
3237: RAISE FND_API.g_exc_error;
3238: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3239: RAISE FND_API.g_exc_unexpected_error;
3240: END IF;
3241: END IF;
3234: ,p_x_claim_line_rec => l_claim_line_rec
3235: );
3236: IF l_return_status = FND_API.g_ret_sts_error THEN
3237: RAISE FND_API.g_exc_error;
3238: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3239: RAISE FND_API.g_exc_unexpected_error;
3240: END IF;
3241: END IF;
3242:
3235: );
3236: IF l_return_status = FND_API.g_ret_sts_error THEN
3237: RAISE FND_API.g_exc_error;
3238: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3239: RAISE FND_API.g_exc_unexpected_error;
3240: END IF;
3241: END IF;
3242:
3243: -- lock line items when earning is associated
3245: p_claim_line_rec => l_claim_line_rec
3246: ,x_return_status => l_return_status
3247: );
3248:
3249: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3250: RAISE FND_API.g_exc_unexpected_error;
3251: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
3252: RAISE FND_API.g_exc_error;
3253: END IF;
3246: ,x_return_status => l_return_status
3247: );
3248:
3249: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3250: RAISE FND_API.g_exc_unexpected_error;
3251: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
3252: RAISE FND_API.g_exc_error;
3253: END IF;
3254:
3247: );
3248:
3249: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3250: RAISE FND_API.g_exc_unexpected_error;
3251: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
3252: RAISE FND_API.g_exc_error;
3253: END IF;
3254:
3255: -- record level validation
3248:
3249: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3250: RAISE FND_API.g_exc_unexpected_error;
3251: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
3252: RAISE FND_API.g_exc_error;
3253: END IF;
3254:
3255: -- record level validation
3256: IF l_claim_line_rec.update_from_tbl_flag = FND_API.g_false THEN
3252: RAISE FND_API.g_exc_error;
3253: END IF;
3254:
3255: -- record level validation
3256: IF l_claim_line_rec.update_from_tbl_flag = FND_API.g_false THEN
3257: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_record THEN
3258: Check_Claim_Line_Record(
3259: p_claim_line_rec => p_claim_line_rec,
3260: p_complete_rec => l_claim_line_rec,
3259: p_claim_line_rec => p_claim_line_rec,
3260: p_complete_rec => l_claim_line_rec,
3261: x_return_status => l_return_status
3262: );
3263: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3264: RAISE FND_API.g_exc_unexpected_error;
3265: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
3266: RAISE FND_API.g_exc_error;
3267: END IF;
3260: p_complete_rec => l_claim_line_rec,
3261: x_return_status => l_return_status
3262: );
3263: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3264: RAISE FND_API.g_exc_unexpected_error;
3265: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
3266: RAISE FND_API.g_exc_error;
3267: END IF;
3268: END IF;
3261: x_return_status => l_return_status
3262: );
3263: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3264: RAISE FND_API.g_exc_unexpected_error;
3265: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
3266: RAISE FND_API.g_exc_error;
3267: END IF;
3268: END IF;
3269: END IF;
3262: );
3263: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3264: RAISE FND_API.g_exc_unexpected_error;
3265: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
3266: RAISE FND_API.g_exc_error;
3267: END IF;
3268: END IF;
3269: END IF;
3270:
3269: END IF;
3270:
3271: -- skip qty*rate calc if it's updating from tbl.
3272: -- updated by slkrishn
3273: IF l_claim_line_rec.update_from_tbl_flag = FND_API.g_false THEN
3274: ------------------ checking quantity * rate -------------------
3275: IF (p_claim_line_rec.quantity IS NOT NULL AND
3276: p_claim_line_rec.quantity <> FND_API.g_miss_num) AND
3277: (p_claim_line_rec.rate IS NOT NULL
3272: -- updated by slkrishn
3273: IF l_claim_line_rec.update_from_tbl_flag = FND_API.g_false THEN
3274: ------------------ checking quantity * rate -------------------
3275: IF (p_claim_line_rec.quantity IS NOT NULL AND
3276: p_claim_line_rec.quantity <> FND_API.g_miss_num) AND
3277: (p_claim_line_rec.rate IS NOT NULL
3278: AND p_claim_line_rec.rate <> FND_API.g_miss_num)
3279: THEN
3280: l_claim_line_rec.claim_currency_amount := l_claim_line_rec.quantity * l_claim_line_rec.rate;
3274: ------------------ checking quantity * rate -------------------
3275: IF (p_claim_line_rec.quantity IS NOT NULL AND
3276: p_claim_line_rec.quantity <> FND_API.g_miss_num) AND
3277: (p_claim_line_rec.rate IS NOT NULL
3278: AND p_claim_line_rec.rate <> FND_API.g_miss_num)
3279: THEN
3280: l_claim_line_rec.claim_currency_amount := l_claim_line_rec.quantity * l_claim_line_rec.rate;
3281: END IF;
3282:
3285: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3286: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_AMT_NULL');
3287: FND_MSG_PUB.add;
3288: END IF;
3289: RAISE FND_API.g_exc_error;
3290: END IF;
3291: END IF;
3292:
3293: ---------------- get claim exchange data -------------------
3291: END IF;
3292:
3293: ---------------- get claim exchange data -------------------
3294: -- No need to set global claim exc info if it's updating from tbl
3295: IF l_claim_line_rec.update_from_tbl_flag = FND_API.g_false THEN
3296: OPEN c_claim_default_exc(l_claim_line_rec.claim_id);
3297: FETCH c_claim_default_exc INTO G_CLAIM_SET_OF_BOOKS_ID
3298: , G_CLAIM_CURRENCY
3299: , G_CLAIM_EXC_TYPE
3327: OZF_Utility_PVT.debug_message('l_line_util_sum =' ||l_line_util_sum);
3328: OZF_Utility_PVT.debug_message('l_claim_line_rec.claim_currency_amount =' ||l_claim_line_rec.claim_currency_amount);
3329: END IF;
3330:
3331: IF (p_claim_line_rec.acctd_amount IS NULL OR p_claim_line_rec.acctd_amount = FND_API.g_miss_num) THEN
3332: IF l_claim_line_rec.claim_currency_amount IS NULL THEN
3333: l_claim_line_rec.acctd_amount := NULL;
3334: l_claim_line_rec.amount := NULL;
3335: ELSE
3351: X_RETURN_STATUS => l_return_status,
3352: X_ACC_AMOUNT => l_claim_line_rec.acctd_amount,
3353: X_RATE => l_rate
3354: );
3355: IF l_return_status = FND_API.g_ret_sts_error THEN
3356: RAISE FND_API.g_exc_error;
3357: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3358: RAISE FND_API.g_exc_unexpected_error;
3359: END IF;
3352: X_ACC_AMOUNT => l_claim_line_rec.acctd_amount,
3353: X_RATE => l_rate
3354: );
3355: IF l_return_status = FND_API.g_ret_sts_error THEN
3356: RAISE FND_API.g_exc_error;
3357: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3358: RAISE FND_API.g_exc_unexpected_error;
3359: END IF;
3360: END IF;
3353: X_RATE => l_rate
3354: );
3355: IF l_return_status = FND_API.g_ret_sts_error THEN
3356: RAISE FND_API.g_exc_error;
3357: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3358: RAISE FND_API.g_exc_unexpected_error;
3359: END IF;
3360: END IF;
3361:
3354: );
3355: IF l_return_status = FND_API.g_ret_sts_error THEN
3356: RAISE FND_API.g_exc_error;
3357: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3358: RAISE FND_API.g_exc_unexpected_error;
3359: END IF;
3360: END IF;
3361:
3362: -- Convert Line Amount
3364: -- Fix for 7443072
3365: -- Bugfix 7811671
3366: IF ((l_claim_line_rec.source_object_class IS NULL OR l_claim_line_rec.source_object_class IN('PPCUSTOMER','PPVENDOR','PPINCVENDOR','SD_SUPPLIER'))
3367: AND l_claim_line_rec.source_object_id IS NULL) THEN
3368: IF (p_claim_line_rec.claim_currency_amount <> FND_API.g_miss_num
3369: AND p_claim_line_rec.claim_currency_amount IS NOT NULL ) THEN
3370: l_claim_line_rec.currency_code := G_CLAIM_CURRENCY;
3371: l_claim_line_rec.exchange_rate_type := G_CLAIM_EXC_TYPE;
3372: l_claim_line_rec.exchange_rate_date := G_CLAIM_EXC_DATE;
3378: p_claim_line_rec => l_claim_line_rec
3379: ,x_claim_line_rec => l_x_claim_line_rec
3380: ,x_return_status => l_return_status
3381: );
3382: IF l_return_status = FND_API.g_ret_sts_error THEN
3383: RAISE FND_API.g_exc_error;
3384: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3385: RAISE FND_API.g_exc_unexpected_error;
3386: END IF;
3379: ,x_claim_line_rec => l_x_claim_line_rec
3380: ,x_return_status => l_return_status
3381: );
3382: IF l_return_status = FND_API.g_ret_sts_error THEN
3383: RAISE FND_API.g_exc_error;
3384: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3385: RAISE FND_API.g_exc_unexpected_error;
3386: END IF;
3387: l_claim_line_rec := l_x_claim_line_rec;
3380: ,x_return_status => l_return_status
3381: );
3382: IF l_return_status = FND_API.g_ret_sts_error THEN
3383: RAISE FND_API.g_exc_error;
3384: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3385: RAISE FND_API.g_exc_unexpected_error;
3386: END IF;
3387: l_claim_line_rec := l_x_claim_line_rec;
3388: END IF;
3381: );
3382: IF l_return_status = FND_API.g_ret_sts_error THEN
3383: RAISE FND_API.g_exc_error;
3384: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3385: RAISE FND_API.g_exc_unexpected_error;
3386: END IF;
3387: l_claim_line_rec := l_x_claim_line_rec;
3388: END IF;
3389: END IF;
3428: -- IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3429: -- FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_AMT_SIGN_ERR');
3430: -- FND_MSG_PUB.add;
3431: -- END IF;
3432: -- RAISE FND_API.g_exc_error;
3433: -- END IF;
3434: --END IF;
3435: --END IF; --Bug:2781186
3436:
3437: -- skip amount comparison if it's updating from tbl.
3438: -- commenting update_from_tbl_flag since checking does not happen
3439: -- updated by skrishn
3440: -- mchang: open the cursor again to fix BUG#2242644
3441: IF l_claim_line_rec.update_from_tbl_flag = FND_API.g_false THEN
3442: -- get total of existing line amount (sum of claim_currency_amount)
3443: OPEN c_line_sum_amt(l_claim_line_rec.claim_id, l_claim_line_rec.claim_line_id);
3444: FETCH c_line_sum_amt INTO l_line_sum_amt;
3445: CLOSE c_line_sum_amt;
3460: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3461: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_EXCESS_AMOUNT');
3462: FND_MSG_PUB.add;
3463: END IF;
3464: RAISE FND_API.g_exc_error;
3465: END IF;
3466: ELSIF ABS(l_claim_line_rec.claim_currency_amount) > ABS(l_claim_amount) THEN
3467: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3468: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_EXCESS_AMOUNT');
3467: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3468: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_EXCESS_AMOUNT');
3469: FND_MSG_PUB.add;
3470: END IF;
3471: RAISE FND_API.g_exc_error;
3472: END IF;
3473: END IF;
3474: END IF;
3475: END IF;
3474: END IF;
3475: END IF;
3476:
3477: ---------------- check associate earnings flag ------------------------
3478: IF p_claim_line_rec.earnings_associated_flag = FND_API.g_false THEN
3479: -- remove associated earnings
3480: OPEN csr_get_lines_util(l_claim_line_rec.claim_line_id);
3481: LOOP
3482: FETCH csr_get_lines_util INTO l_line_util_tbl(l_counter).claim_line_util_id
3490:
3491: IF l_counter > 1 THEN
3492: OZF_Claim_Accrual_PVT.Delete_Line_Util_Tbl(
3493: p_api_version => l_api_version
3494: ,p_init_msg_list => FND_API.g_false
3495: ,p_commit => FND_API.g_false
3496: ,p_validation_level => FND_API.g_valid_level_full
3497: ,x_return_status => l_return_status
3498: ,x_msg_data => x_msg_data
3491: IF l_counter > 1 THEN
3492: OZF_Claim_Accrual_PVT.Delete_Line_Util_Tbl(
3493: p_api_version => l_api_version
3494: ,p_init_msg_list => FND_API.g_false
3495: ,p_commit => FND_API.g_false
3496: ,p_validation_level => FND_API.g_valid_level_full
3497: ,x_return_status => l_return_status
3498: ,x_msg_data => x_msg_data
3499: ,x_msg_count => x_msg_count
3492: OZF_Claim_Accrual_PVT.Delete_Line_Util_Tbl(
3493: p_api_version => l_api_version
3494: ,p_init_msg_list => FND_API.g_false
3495: ,p_commit => FND_API.g_false
3496: ,p_validation_level => FND_API.g_valid_level_full
3497: ,x_return_status => l_return_status
3498: ,x_msg_data => x_msg_data
3499: ,x_msg_count => x_msg_count
3500: ,p_line_util_tbl => l_line_util_tbl
3500: ,p_line_util_tbl => l_line_util_tbl
3501: ,p_mode => OZF_CLAIM_UTILITY_PVT.g_auto_mode
3502: ,x_error_index => l_error_index
3503: );
3504: IF l_return_status = fnd_api.g_ret_sts_error THEN
3505: RAISE FND_API.g_exc_error;
3506: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3507: RAISE FND_API.g_exc_unexpected_error;
3508: END IF;
3501: ,p_mode => OZF_CLAIM_UTILITY_PVT.g_auto_mode
3502: ,x_error_index => l_error_index
3503: );
3504: IF l_return_status = fnd_api.g_ret_sts_error THEN
3505: RAISE FND_API.g_exc_error;
3506: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3507: RAISE FND_API.g_exc_unexpected_error;
3508: END IF;
3509: END IF;
3502: ,x_error_index => l_error_index
3503: );
3504: IF l_return_status = fnd_api.g_ret_sts_error THEN
3505: RAISE FND_API.g_exc_error;
3506: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3507: RAISE FND_API.g_exc_unexpected_error;
3508: END IF;
3509: END IF;
3510:
3503: );
3504: IF l_return_status = fnd_api.g_ret_sts_error THEN
3505: RAISE FND_API.g_exc_error;
3506: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3507: RAISE FND_API.g_exc_unexpected_error;
3508: END IF;
3509: END IF;
3510:
3511: ELSE
3515: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3516: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_EXCESS_LINE_AMT');
3517: FND_MSG_PUB.add;
3518: END IF;
3519: RAISE FND_API.g_exc_error;
3520: END IF;
3521:
3522: END IF;
3523:
3521:
3522: END IF;
3523:
3524: -- validate claim line record based on claim settlement method
3525: IF l_claim_line_rec.update_from_tbl_flag = FND_API.g_false THEN
3526: OZF_CLAIM_SETTLEMENT_VAL_PVT.Validate_Claim_Line(
3527: p_api_version => l_api_version
3528: ,p_init_msg_list => FND_API.g_false
3529: ,p_validation_level => FND_API.g_valid_level_full
3524: -- validate claim line record based on claim settlement method
3525: IF l_claim_line_rec.update_from_tbl_flag = FND_API.g_false THEN
3526: OZF_CLAIM_SETTLEMENT_VAL_PVT.Validate_Claim_Line(
3527: p_api_version => l_api_version
3528: ,p_init_msg_list => FND_API.g_false
3529: ,p_validation_level => FND_API.g_valid_level_full
3530: ,x_return_status => l_return_status
3531: ,x_msg_data => x_msg_data
3532: ,x_msg_count => x_msg_count
3525: IF l_claim_line_rec.update_from_tbl_flag = FND_API.g_false THEN
3526: OZF_CLAIM_SETTLEMENT_VAL_PVT.Validate_Claim_Line(
3527: p_api_version => l_api_version
3528: ,p_init_msg_list => FND_API.g_false
3529: ,p_validation_level => FND_API.g_valid_level_full
3530: ,x_return_status => l_return_status
3531: ,x_msg_data => x_msg_data
3532: ,x_msg_count => x_msg_count
3533: ,p_claim_line_rec => l_claim_line_rec
3531: ,x_msg_data => x_msg_data
3532: ,x_msg_count => x_msg_count
3533: ,p_claim_line_rec => l_claim_line_rec
3534: );
3535: IF l_return_status = FND_API.g_ret_sts_error THEN
3536: RAISE FND_API.g_exc_error;
3537: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3538: RAISE FND_API.g_exc_unexpected_error;
3539: END IF;
3532: ,x_msg_count => x_msg_count
3533: ,p_claim_line_rec => l_claim_line_rec
3534: );
3535: IF l_return_status = FND_API.g_ret_sts_error THEN
3536: RAISE FND_API.g_exc_error;
3537: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3538: RAISE FND_API.g_exc_unexpected_error;
3539: END IF;
3540: END IF;
3533: ,p_claim_line_rec => l_claim_line_rec
3534: );
3535: IF l_return_status = FND_API.g_ret_sts_error THEN
3536: RAISE FND_API.g_exc_error;
3537: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3538: RAISE FND_API.g_exc_unexpected_error;
3539: END IF;
3540: END IF;
3541:
3534: );
3535: IF l_return_status = FND_API.g_ret_sts_error THEN
3536: RAISE FND_API.g_exc_error;
3537: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3538: RAISE FND_API.g_exc_unexpected_error;
3539: END IF;
3540: END IF;
3541:
3542:
3557: IF l_payment_method IS NOT NULL THEN
3558:
3559: OZF_CLAIM_TAX_PVT.Calculate_Claim_Line_Tax(
3560: p_api_version => l_api_version
3561: ,p_init_msg_list => FND_API.g_false
3562: ,p_validation_level => FND_API.g_valid_level_full
3563: ,x_return_status => l_return_status
3564: ,x_msg_data => x_msg_data
3565: ,x_msg_count => x_msg_count
3558:
3559: OZF_CLAIM_TAX_PVT.Calculate_Claim_Line_Tax(
3560: p_api_version => l_api_version
3561: ,p_init_msg_list => FND_API.g_false
3562: ,p_validation_level => FND_API.g_valid_level_full
3563: ,x_return_status => l_return_status
3564: ,x_msg_data => x_msg_data
3565: ,x_msg_count => x_msg_count
3566: ,p_x_claim_line_rec => l_claim_line_rec
3564: ,x_msg_data => x_msg_data
3565: ,x_msg_count => x_msg_count
3566: ,p_x_claim_line_rec => l_claim_line_rec
3567: );
3568: IF l_return_status = FND_API.g_ret_sts_error THEN
3569: RAISE FND_API.g_exc_error;
3570: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3571: RAISE FND_API.g_exc_unexpected_error;
3572: END IF;
3565: ,x_msg_count => x_msg_count
3566: ,p_x_claim_line_rec => l_claim_line_rec
3567: );
3568: IF l_return_status = FND_API.g_ret_sts_error THEN
3569: RAISE FND_API.g_exc_error;
3570: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3571: RAISE FND_API.g_exc_unexpected_error;
3572: END IF;
3573:
3566: ,p_x_claim_line_rec => l_claim_line_rec
3567: );
3568: IF l_return_status = FND_API.g_ret_sts_error THEN
3569: RAISE FND_API.g_exc_error;
3570: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3571: RAISE FND_API.g_exc_unexpected_error;
3572: END IF;
3573:
3574: END IF;
3567: );
3568: IF l_return_status = FND_API.g_ret_sts_error THEN
3569: RAISE FND_API.g_exc_error;
3570: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3571: RAISE FND_API.g_exc_unexpected_error;
3572: END IF;
3573:
3574: END IF;
3575:
3674: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3675: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
3676: FND_MSG_PUB.add;
3677: END IF;
3678: RAISE FND_API.g_exc_error;
3679: END IF;
3680:
3681: -------------------- finish --------------------------
3682: x_object_version := l_object_version_number;
3681: -------------------- finish --------------------------
3682: x_object_version := l_object_version_number;
3683:
3684: -- Check for commit
3685: IF FND_API.to_boolean(p_commit) THEN
3686: COMMIT;
3687: END IF;
3688:
3689: FND_MSG_PUB.count_and_get(
3686: COMMIT;
3687: END IF;
3688:
3689: FND_MSG_PUB.count_and_get(
3690: p_encoded => FND_API.g_false,
3691: p_count => x_msg_count,
3692: p_data => x_msg_data
3693: );
3694:
3696: OZF_Utility_PVT.debug_message(l_full_name ||': end');
3697: END IF;
3698:
3699: EXCEPTION
3700: WHEN FND_API.g_exc_error THEN
3701: ROLLBACK TO Update_Claim_Line;
3702: x_return_status := FND_API.g_ret_sts_error;
3703: FND_MSG_PUB.count_and_get(
3704: p_encoded => FND_API.g_false,
3698:
3699: EXCEPTION
3700: WHEN FND_API.g_exc_error THEN
3701: ROLLBACK TO Update_Claim_Line;
3702: x_return_status := FND_API.g_ret_sts_error;
3703: FND_MSG_PUB.count_and_get(
3704: p_encoded => FND_API.g_false,
3705: p_count => x_msg_count,
3706: p_data => x_msg_data
3700: WHEN FND_API.g_exc_error THEN
3701: ROLLBACK TO Update_Claim_Line;
3702: x_return_status := FND_API.g_ret_sts_error;
3703: FND_MSG_PUB.count_and_get(
3704: p_encoded => FND_API.g_false,
3705: p_count => x_msg_count,
3706: p_data => x_msg_data
3707: );
3708:
3705: p_count => x_msg_count,
3706: p_data => x_msg_data
3707: );
3708:
3709: WHEN FND_API.g_exc_unexpected_error THEN
3710: ROLLBACK TO Update_Claim_Line;
3711: x_return_status := FND_API.g_ret_sts_unexp_error ;
3712: FND_MSG_PUB.count_and_get(
3713: p_encoded => FND_API.g_false,
3707: );
3708:
3709: WHEN FND_API.g_exc_unexpected_error THEN
3710: ROLLBACK TO Update_Claim_Line;
3711: x_return_status := FND_API.g_ret_sts_unexp_error ;
3712: FND_MSG_PUB.count_and_get(
3713: p_encoded => FND_API.g_false,
3714: p_count => x_msg_count,
3715: p_data => x_msg_data
3709: WHEN FND_API.g_exc_unexpected_error THEN
3710: ROLLBACK TO Update_Claim_Line;
3711: x_return_status := FND_API.g_ret_sts_unexp_error ;
3712: FND_MSG_PUB.count_and_get(
3713: p_encoded => FND_API.g_false,
3714: p_count => x_msg_count,
3715: p_data => x_msg_data
3716: );
3717:
3716: );
3717:
3718: WHEN OTHERS THEN
3719: ROLLBACK TO Update_Claim_Line;
3720: x_return_status := FND_API.g_ret_sts_unexp_error ;
3721: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3722: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3723: END IF;
3724: FND_MSG_PUB.count_and_get(
3721: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3722: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3723: END IF;
3724: FND_MSG_PUB.count_and_get(
3725: p_encoded => FND_API.g_false,
3726: p_count => x_msg_count,
3727: p_data => x_msg_data
3728: );
3729:
3738: -- 07/11/2000 mchang Create.
3739: --------------------------------------------------------------------
3740: PROCEDURE Validate_Claim_Line(
3741: p_api_version IN NUMBER
3742: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
3743: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
3744:
3745: ,x_return_status OUT NOCOPY VARCHAR2
3746: ,x_msg_count OUT NOCOPY NUMBER
3739: --------------------------------------------------------------------
3740: PROCEDURE Validate_Claim_Line(
3741: p_api_version IN NUMBER
3742: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
3743: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
3744:
3745: ,x_return_status OUT NOCOPY VARCHAR2
3746: ,x_msg_count OUT NOCOPY NUMBER
3747: ,x_msg_data OUT NOCOPY VARCHAR2
3760: IF OZF_DEBUG_HIGH_ON THEN
3761: OZF_Utility_PVT.debug_message(l_full_name||': start');
3762: END IF;
3763:
3764: IF FND_API.to_boolean(p_init_msg_list) THEN
3765: FND_MSG_PUB.initialize;
3766: END IF;
3767:
3768: IF NOT FND_API.compatible_api_call(
3764: IF FND_API.to_boolean(p_init_msg_list) THEN
3765: FND_MSG_PUB.initialize;
3766: END IF;
3767:
3768: IF NOT FND_API.compatible_api_call(
3769: l_api_version,
3770: p_api_version,
3771: l_api_name,
3772: g_pkg_name
3770: p_api_version,
3771: l_api_name,
3772: g_pkg_name
3773: ) THEN
3774: RAISE FND_API.g_exc_unexpected_error;
3775: END IF;
3776:
3777: x_return_status := FND_API.g_ret_sts_success;
3778:
3773: ) THEN
3774: RAISE FND_API.g_exc_unexpected_error;
3775: END IF;
3776:
3777: x_return_status := FND_API.g_ret_sts_success;
3778:
3779: ---------------------- validate ------------------------
3780: IF OZF_DEBUG_HIGH_ON THEN
3781: OZF_Utility_PVT.debug_message(l_full_name||': check items');
3787: p_validation_mode => JTF_PLSQL_API.g_create,
3788: x_return_status => l_return_status
3789: );
3790:
3791: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3792: RAISE FND_API.g_exc_unexpected_error;
3793: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
3794: RAISE FND_API.g_exc_error;
3795: END IF;
3788: x_return_status => l_return_status
3789: );
3790:
3791: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3792: RAISE FND_API.g_exc_unexpected_error;
3793: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
3794: RAISE FND_API.g_exc_error;
3795: END IF;
3796: END IF;
3789: );
3790:
3791: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3792: RAISE FND_API.g_exc_unexpected_error;
3793: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
3794: RAISE FND_API.g_exc_error;
3795: END IF;
3796: END IF;
3797:
3790:
3791: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3792: RAISE FND_API.g_exc_unexpected_error;
3793: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
3794: RAISE FND_API.g_exc_error;
3795: END IF;
3796: END IF;
3797:
3798: IF OZF_DEBUG_HIGH_ON THEN
3805: p_complete_rec => NULL,
3806: x_return_status => l_return_status
3807: );
3808:
3809: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3810: RAISE FND_API.g_exc_unexpected_error;
3811: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
3812: RAISE FND_API.g_exc_error;
3813: END IF;
3806: x_return_status => l_return_status
3807: );
3808:
3809: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3810: RAISE FND_API.g_exc_unexpected_error;
3811: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
3812: RAISE FND_API.g_exc_error;
3813: END IF;
3814: END IF;
3807: );
3808:
3809: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3810: RAISE FND_API.g_exc_unexpected_error;
3811: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
3812: RAISE FND_API.g_exc_error;
3813: END IF;
3814: END IF;
3815:
3808:
3809: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3810: RAISE FND_API.g_exc_unexpected_error;
3811: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
3812: RAISE FND_API.g_exc_error;
3813: END IF;
3814: END IF;
3815:
3816: -------------------- finish --------------------------
3814: END IF;
3815:
3816: -------------------- finish --------------------------
3817: FND_MSG_PUB.count_and_get(
3818: p_encoded => FND_API.g_false,
3819: p_count => x_msg_count,
3820: p_data => x_msg_data
3821: );
3822:
3824: OZF_Utility_PVT.debug_message(l_full_name ||': end');
3825: END IF;
3826:
3827: EXCEPTION
3828: WHEN FND_API.g_exc_error THEN
3829: x_return_status := FND_API.g_ret_sts_error;
3830: FND_MSG_PUB.count_and_get(
3831: p_encoded => FND_API.g_false,
3832: p_count => x_msg_count,
3825: END IF;
3826:
3827: EXCEPTION
3828: WHEN FND_API.g_exc_error THEN
3829: x_return_status := FND_API.g_ret_sts_error;
3830: FND_MSG_PUB.count_and_get(
3831: p_encoded => FND_API.g_false,
3832: p_count => x_msg_count,
3833: p_data => x_msg_data
3827: EXCEPTION
3828: WHEN FND_API.g_exc_error THEN
3829: x_return_status := FND_API.g_ret_sts_error;
3830: FND_MSG_PUB.count_and_get(
3831: p_encoded => FND_API.g_false,
3832: p_count => x_msg_count,
3833: p_data => x_msg_data
3834: );
3835:
3832: p_count => x_msg_count,
3833: p_data => x_msg_data
3834: );
3835:
3836: WHEN FND_API.g_exc_unexpected_error THEN
3837: x_return_status := FND_API.g_ret_sts_unexp_error ;
3838: FND_MSG_PUB.count_and_get(
3839: p_encoded => FND_API.g_false,
3840: p_count => x_msg_count,
3833: p_data => x_msg_data
3834: );
3835:
3836: WHEN FND_API.g_exc_unexpected_error THEN
3837: x_return_status := FND_API.g_ret_sts_unexp_error ;
3838: FND_MSG_PUB.count_and_get(
3839: p_encoded => FND_API.g_false,
3840: p_count => x_msg_count,
3841: p_data => x_msg_data
3835:
3836: WHEN FND_API.g_exc_unexpected_error THEN
3837: x_return_status := FND_API.g_ret_sts_unexp_error ;
3838: FND_MSG_PUB.count_and_get(
3839: p_encoded => FND_API.g_false,
3840: p_count => x_msg_count,
3841: p_data => x_msg_data
3842: );
3843:
3841: p_data => x_msg_data
3842: );
3843:
3844: WHEN OTHERS THEN
3845: x_return_status := FND_API.g_ret_sts_unexp_error;
3846: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3847: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3848: END IF;
3849: FND_MSG_PUB.count_and_get(
3846: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3847: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3848: END IF;
3849: FND_MSG_PUB.count_and_get(
3850: p_encoded => FND_API.g_false,
3851: p_count => x_msg_count,
3852: p_data => x_msg_data
3853: );
3854:
3868: )
3869: IS
3870: BEGIN
3871:
3872: x_return_status := FND_API.g_ret_sts_success;
3873:
3874: ------------------------ CLAIM_ID -------------------------------
3875: IF p_claim_line_rec.claim_id <> FND_API.g_miss_num AND
3876: p_claim_line_rec.claim_id IS NULL THEN
3871:
3872: x_return_status := FND_API.g_ret_sts_success;
3873:
3874: ------------------------ CLAIM_ID -------------------------------
3875: IF p_claim_line_rec.claim_id <> FND_API.g_miss_num AND
3876: p_claim_line_rec.claim_id IS NULL THEN
3877: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3878: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_MISSING_COLUMN');
3879: FND_MESSAGE.set_token('COLUMN', 'CLAIM_ID');
3879: FND_MESSAGE.set_token('COLUMN', 'CLAIM_ID');
3880: FND_MSG_PUB.add;
3881: END IF;
3882:
3883: x_return_status := FND_API.g_ret_sts_error;
3884: RETURN;
3885: ------------------------ LINE_NUMBER -------------------------------
3886: ELSIF p_claim_line_rec.line_number <> FND_API.g_miss_num AND
3887: p_claim_line_rec.line_number IS NULL THEN
3882:
3883: x_return_status := FND_API.g_ret_sts_error;
3884: RETURN;
3885: ------------------------ LINE_NUMBER -------------------------------
3886: ELSIF p_claim_line_rec.line_number <> FND_API.g_miss_num AND
3887: p_claim_line_rec.line_number IS NULL THEN
3888: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3889: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_MISSING_COLUMN');
3890: FND_MESSAGE.set_token('COLUMN', 'LINE_NUMBER');
3890: FND_MESSAGE.set_token('COLUMN', 'LINE_NUMBER');
3891: FND_MSG_PUB.add;
3892: END IF;
3893:
3894: x_return_status := FND_API.g_ret_sts_error;
3895: RETURN;
3896: ------------------------ SET_OF_BOOKS_ID -------------------------------
3897: ELSIF p_claim_line_rec.set_of_books_id <> FND_API.g_miss_num AND
3898: p_claim_line_rec.set_of_books_id IS NULL THEN
3893:
3894: x_return_status := FND_API.g_ret_sts_error;
3895: RETURN;
3896: ------------------------ SET_OF_BOOKS_ID -------------------------------
3897: ELSIF p_claim_line_rec.set_of_books_id <> FND_API.g_miss_num AND
3898: p_claim_line_rec.set_of_books_id IS NULL THEN
3899: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3900: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_MISSING_COLUMN');
3901: FND_MESSAGE.set_token('COLUMN', 'SET_OF_BOOKS_ID');
3901: FND_MESSAGE.set_token('COLUMN', 'SET_OF_BOOKS_ID');
3902: FND_MSG_PUB.add;
3903: END IF;
3904:
3905: x_return_status := FND_API.g_ret_sts_error;
3906: RETURN;
3907: END IF;
3908:
3909: END Check_Claim_Line_Req_Items;
3924: IS
3925: l_valid_flag VARCHAR2(1);
3926:
3927: BEGIN
3928: x_return_status := FND_API.g_ret_sts_success;
3929:
3930: -- For Create_Claim_Line, when claim_line_id is passed in, we need to
3931: -- check if this claim_line_id is unique.
3932: IF p_validation_mode = JTF_PLSQL_API.g_create AND
3933: p_claim_line_rec.claim_line_id IS NOT NULL THEN
3934: IF OZF_Utility_PVT.check_uniqueness(
3935: 'ozf_claim_lines',
3936: 'claim_line_id = ' || p_claim_line_rec.claim_line_id
3937: ) = FND_API.g_false THEN
3938: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3939: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DUPLICATE_VALUE');
3940: FND_MESSAGE.set_token('COLLUMN', 'CLAIM_LINE_ID');
3941: FND_MSG_PUB.add;
3939: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DUPLICATE_VALUE');
3940: FND_MESSAGE.set_token('COLLUMN', 'CLAIM_LINE_ID');
3941: FND_MSG_PUB.add;
3942: END IF;
3943: x_return_status := FND_API.g_ret_sts_error;
3944: RETURN;
3945: END IF;
3946: END IF;
3947:
3963: )
3964: IS
3965: BEGIN
3966:
3967: x_return_status := FND_API.g_ret_sts_success;
3968:
3969: -- check other fk items
3970:
3971: END Check_Claim_Line_Fk_Items;
3984: )
3985: IS
3986: BEGIN
3987:
3988: x_return_status := FND_API.g_ret_sts_success;
3989:
3990: -- check other lookup codes
3991:
3992: END Check_Claim_Line_Lookup_Items;
4004: ,x_return_status OUT NOCOPY VARCHAR2
4005: )
4006: IS
4007: BEGIN
4008: x_return_status := FND_API.g_ret_sts_success;
4009:
4010: ----------------------- VALID_FLAG ------------------------
4011: IF p_claim_line_rec.valid_flag <> FND_API.g_miss_char AND
4012: p_claim_line_rec.valid_flag IS NOT NULL THEN
4007: BEGIN
4008: x_return_status := FND_API.g_ret_sts_success;
4009:
4010: ----------------------- VALID_FLAG ------------------------
4011: IF p_claim_line_rec.valid_flag <> FND_API.g_miss_char AND
4012: p_claim_line_rec.valid_flag IS NOT NULL THEN
4013: IF p_claim_line_rec.valid_flag <> FND_API.g_true AND
4014: p_claim_line_rec.valid_flag <> FND_API.g_false THEN
4015: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4009:
4010: ----------------------- VALID_FLAG ------------------------
4011: IF p_claim_line_rec.valid_flag <> FND_API.g_miss_char AND
4012: p_claim_line_rec.valid_flag IS NOT NULL THEN
4013: IF p_claim_line_rec.valid_flag <> FND_API.g_true AND
4014: p_claim_line_rec.valid_flag <> FND_API.g_false THEN
4015: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4016: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_BAD_FLAG');
4017: FND_MESSAGE.set_token('FLAG', 'VALID_FLAG');
4010: ----------------------- VALID_FLAG ------------------------
4011: IF p_claim_line_rec.valid_flag <> FND_API.g_miss_char AND
4012: p_claim_line_rec.valid_flag IS NOT NULL THEN
4013: IF p_claim_line_rec.valid_flag <> FND_API.g_true AND
4014: p_claim_line_rec.valid_flag <> FND_API.g_false THEN
4015: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4016: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_BAD_FLAG');
4017: FND_MESSAGE.set_token('FLAG', 'VALID_FLAG');
4018: FND_MSG_PUB.add;
4016: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_BAD_FLAG');
4017: FND_MESSAGE.set_token('FLAG', 'VALID_FLAG');
4018: FND_MSG_PUB.add;
4019: END IF;
4020: x_return_status := FND_API.g_ret_sts_error;
4021: RETURN;
4022: END IF;
4023: END IF;
4024:
4022: END IF;
4023: END IF;
4024:
4025: ----------------------- APPROVED_FLAG ------------------------
4026: IF p_claim_line_rec.approved_flag <> FND_API.g_miss_char AND
4027: p_claim_line_rec.approved_flag IS NOT NULL THEN
4028: IF p_claim_line_rec.approved_flag <> FND_API.g_true AND
4029: p_claim_line_rec.approved_flag <> FND_API.g_false THEN
4030: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4024:
4025: ----------------------- APPROVED_FLAG ------------------------
4026: IF p_claim_line_rec.approved_flag <> FND_API.g_miss_char AND
4027: p_claim_line_rec.approved_flag IS NOT NULL THEN
4028: IF p_claim_line_rec.approved_flag <> FND_API.g_true AND
4029: p_claim_line_rec.approved_flag <> FND_API.g_false THEN
4030: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4031: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_BAD_FLAG');
4032: FND_MESSAGE.set_token('FLAG', 'APPROVED_FLAG');
4025: ----------------------- APPROVED_FLAG ------------------------
4026: IF p_claim_line_rec.approved_flag <> FND_API.g_miss_char AND
4027: p_claim_line_rec.approved_flag IS NOT NULL THEN
4028: IF p_claim_line_rec.approved_flag <> FND_API.g_true AND
4029: p_claim_line_rec.approved_flag <> FND_API.g_false THEN
4030: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4031: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_BAD_FLAG');
4032: FND_MESSAGE.set_token('FLAG', 'APPROVED_FLAG');
4033: FND_MSG_PUB.add;
4031: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_BAD_FLAG');
4032: FND_MESSAGE.set_token('FLAG', 'APPROVED_FLAG');
4033: FND_MSG_PUB.add;
4034: END IF;
4035: x_return_status := FND_API.g_ret_sts_error;
4036: RETURN;
4037: END IF;
4038: END IF;
4039:
4037: END IF;
4038: END IF;
4039:
4040: ----------------------- PERFORMANCE_COMPLETE_FLAG ------------------------
4041: IF p_claim_line_rec.performance_complete_flag <> FND_API.g_miss_char AND
4042: p_claim_line_rec.performance_complete_flag IS NOT NULL THEN
4043: IF p_claim_line_rec.performance_complete_flag <> FND_API.g_true AND
4044: p_claim_line_rec.performance_complete_flag <> FND_API.g_false THEN
4045: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4039:
4040: ----------------------- PERFORMANCE_COMPLETE_FLAG ------------------------
4041: IF p_claim_line_rec.performance_complete_flag <> FND_API.g_miss_char AND
4042: p_claim_line_rec.performance_complete_flag IS NOT NULL THEN
4043: IF p_claim_line_rec.performance_complete_flag <> FND_API.g_true AND
4044: p_claim_line_rec.performance_complete_flag <> FND_API.g_false THEN
4045: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4046: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_BAD_FLAG');
4047: FND_MESSAGE.set_token('FLAG', 'PERFORMANCE_COMPLETE_FLAG');
4040: ----------------------- PERFORMANCE_COMPLETE_FLAG ------------------------
4041: IF p_claim_line_rec.performance_complete_flag <> FND_API.g_miss_char AND
4042: p_claim_line_rec.performance_complete_flag IS NOT NULL THEN
4043: IF p_claim_line_rec.performance_complete_flag <> FND_API.g_true AND
4044: p_claim_line_rec.performance_complete_flag <> FND_API.g_false THEN
4045: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4046: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_BAD_FLAG');
4047: FND_MESSAGE.set_token('FLAG', 'PERFORMANCE_COMPLETE_FLAG');
4048: FND_MSG_PUB.add;
4046: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_BAD_FLAG');
4047: FND_MESSAGE.set_token('FLAG', 'PERFORMANCE_COMPLETE_FLAG');
4048: FND_MSG_PUB.add;
4049: END IF;
4050: x_return_status := FND_API.g_ret_sts_error;
4051: RETURN;
4052: END IF;
4053: END IF;
4054:
4052: END IF;
4053: END IF;
4054:
4055: ----------------------- PERFORMANCE_ATTACHED_FLAG ------------------------
4056: IF p_claim_line_rec.performance_attached_flag <> FND_API.g_miss_char AND
4057: p_claim_line_rec.performance_attached_flag IS NOT NULL THEN
4058: IF p_claim_line_rec.performance_attached_flag <> FND_API.g_true AND
4059: p_claim_line_rec.performance_attached_flag <> FND_API.g_false THEN
4060: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4054:
4055: ----------------------- PERFORMANCE_ATTACHED_FLAG ------------------------
4056: IF p_claim_line_rec.performance_attached_flag <> FND_API.g_miss_char AND
4057: p_claim_line_rec.performance_attached_flag IS NOT NULL THEN
4058: IF p_claim_line_rec.performance_attached_flag <> FND_API.g_true AND
4059: p_claim_line_rec.performance_attached_flag <> FND_API.g_false THEN
4060: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4061: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_BAD_FLAG');
4062: FND_MESSAGE.set_token('FLAG', 'PERFORMANCE_ATTACHED_FLAG');
4055: ----------------------- PERFORMANCE_ATTACHED_FLAG ------------------------
4056: IF p_claim_line_rec.performance_attached_flag <> FND_API.g_miss_char AND
4057: p_claim_line_rec.performance_attached_flag IS NOT NULL THEN
4058: IF p_claim_line_rec.performance_attached_flag <> FND_API.g_true AND
4059: p_claim_line_rec.performance_attached_flag <> FND_API.g_false THEN
4060: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4061: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_BAD_FLAG');
4062: FND_MESSAGE.set_token('FLAG', 'PERFORMANCE_ATTACHED_FLAG');
4063: FND_MSG_PUB.add;
4061: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_BAD_FLAG');
4062: FND_MESSAGE.set_token('FLAG', 'PERFORMANCE_ATTACHED_FLAG');
4063: FND_MSG_PUB.add;
4064: END IF;
4065: x_return_status := FND_API.g_ret_sts_error;
4066: RETURN;
4067: END IF;
4068: END IF;
4069:
4067: END IF;
4068: END IF;
4069:
4070: ----------------------- EARNINGS_ASSOCIATED_FLAG ------------------------
4071: IF p_claim_line_rec.earnings_associated_flag <> FND_API.g_miss_char AND
4072: p_claim_line_rec.earnings_associated_flag IS NOT NULL THEN
4073: IF p_claim_line_rec.earnings_associated_flag <> FND_API.g_true AND
4074: p_claim_line_rec.earnings_associated_flag <> FND_API.g_false THEN
4075: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4069:
4070: ----------------------- EARNINGS_ASSOCIATED_FLAG ------------------------
4071: IF p_claim_line_rec.earnings_associated_flag <> FND_API.g_miss_char AND
4072: p_claim_line_rec.earnings_associated_flag IS NOT NULL THEN
4073: IF p_claim_line_rec.earnings_associated_flag <> FND_API.g_true AND
4074: p_claim_line_rec.earnings_associated_flag <> FND_API.g_false THEN
4075: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4076: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_BAD_FLAG');
4077: FND_MESSAGE.set_token('FLAG', 'EARNINGS_ASSOCIATED_FLAG');
4070: ----------------------- EARNINGS_ASSOCIATED_FLAG ------------------------
4071: IF p_claim_line_rec.earnings_associated_flag <> FND_API.g_miss_char AND
4072: p_claim_line_rec.earnings_associated_flag IS NOT NULL THEN
4073: IF p_claim_line_rec.earnings_associated_flag <> FND_API.g_true AND
4074: p_claim_line_rec.earnings_associated_flag <> FND_API.g_false THEN
4075: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4076: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_BAD_FLAG');
4077: FND_MESSAGE.set_token('FLAG', 'EARNINGS_ASSOCIATED_FLAG');
4078: FND_MSG_PUB.add;
4076: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_BAD_FLAG');
4077: FND_MESSAGE.set_token('FLAG', 'EARNINGS_ASSOCIATED_FLAG');
4078: FND_MSG_PUB.add;
4079: END IF;
4080: x_return_status := FND_API.g_ret_sts_error;
4081: RETURN;
4082: END IF;
4083: END IF;
4084:
4104: p_claim_line_rec => p_claim_line_rec
4105: ,x_return_status => x_return_status
4106: );
4107:
4108: IF x_return_status <> FND_API.g_ret_sts_success THEN
4109: RETURN;
4110: END IF;
4111:
4112: Check_Claim_Line_Uk_Items(
4114: ,p_validation_mode => p_validation_mode
4115: ,x_return_status => x_return_status
4116: );
4117:
4118: IF x_return_status <> FND_API.g_ret_sts_success THEN
4119: RETURN;
4120: END IF;
4121:
4122: Check_Claim_Line_Fk_Items(
4123: p_claim_line_rec => p_claim_line_rec
4124: ,x_return_status => x_return_status
4125: );
4126:
4127: IF x_return_status <> FND_API.g_ret_sts_success THEN
4128: RETURN;
4129: END IF;
4130:
4131: Check_Claim_Line_Lookup_Items(
4132: p_claim_line_rec => p_claim_line_rec
4133: ,x_return_status => x_return_status
4134: );
4135:
4136: IF x_return_status <> FND_API.g_ret_sts_success THEN
4137: RETURN;
4138: END IF;
4139:
4140: Check_Claim_Line_Flag_Items(
4141: p_claim_line_rec => p_claim_line_rec
4142: ,x_return_status => x_return_status
4143: );
4144:
4145: IF x_return_status <> FND_API.g_ret_sts_success THEN
4146: RETURN;
4147: END IF;
4148:
4149: END Check_Claim_Line_Items;
4195: FROM ra_customer_trx_lines
4196: WHERE customer_trx_line_id = cv_customer_trx_line_id;
4197:
4198: BEGIN
4199: x_return_status := FND_API.g_ret_sts_success;
4200:
4201: -- check if tax code belonging to the right settlement method
4202: IF p_complete_rec.tax_code IS NOT NULL THEN
4203: OPEN csr_claim_settle_method(p_complete_rec.claim_id);
4213: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4214: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_TAX_CODE_ERR');
4215: FND_MSG_PUB.add;
4216: END IF;
4217: x_return_status := FND_API.g_ret_sts_error;
4218: RETURN;
4219: END IF;
4220: ELSIF l_tax_for = 'AR' THEN
4221: OPEN csr_ar_tax_code(p_complete_rec.tax_code);
4226: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4227: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_TAX_CODE_ERR');
4228: FND_MSG_PUB.add;
4229: END IF;
4230: x_return_status := FND_API.g_ret_sts_error;
4231: RETURN;
4232: END IF;
4233: ELSIF l_tax_for IS NULL THEN
4234: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4234: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4235: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_TAX_CODE_ERR');
4236: FND_MSG_PUB.add;
4237: END IF;
4238: x_return_status := FND_API.g_ret_sts_error;
4239: RETURN;
4240: END IF;
4241: END IF;
4242:
4252: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4253: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_INVLINE_NOT_IN_INV');
4254: FND_MSG_PUB.add;
4255: END IF;
4256: x_return_status := FND_API.g_ret_sts_error;
4257: RETURN;
4258: END IF;
4259: END IF;
4260: END IF;
4385: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4386: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
4387: FND_MSG_PUB.add;
4388: END IF;
4389: RAISE FND_API.g_exc_error;
4390: END IF;
4391: CLOSE c_claim_line;
4392:
4393: IF p_claim_line_rec.object_version_number = FND_API.G_MISS_NUM THEN
4389: RAISE FND_API.g_exc_error;
4390: END IF;
4391: CLOSE c_claim_line;
4392:
4393: IF p_claim_line_rec.object_version_number = FND_API.G_MISS_NUM THEN
4394: x_complete_rec.object_version_number := NULL;
4395: END IF;
4396: IF p_claim_line_rec.object_version_number IS NULL THEN
4397: x_complete_rec.object_version_number := l_claim_line_rec.object_version_number;
4396: IF p_claim_line_rec.object_version_number IS NULL THEN
4397: x_complete_rec.object_version_number := l_claim_line_rec.object_version_number;
4398: END IF;
4399:
4400: IF p_claim_line_rec.claim_id = FND_API.G_MISS_NUM THEN
4401: x_complete_rec.claim_id := NULL;
4402: END IF;
4403: IF p_claim_line_rec.claim_id IS NULL THEN
4404: x_complete_rec.claim_id := l_claim_line_rec.claim_id;
4403: IF p_claim_line_rec.claim_id IS NULL THEN
4404: x_complete_rec.claim_id := l_claim_line_rec.claim_id;
4405: END IF;
4406:
4407: IF p_claim_line_rec.line_number = FND_API.G_MISS_NUM THEN
4408: x_complete_rec.line_number := NULL;
4409: END IF;
4410: IF p_claim_line_rec.line_number IS NULL THEN
4411: x_complete_rec.line_number := l_claim_line_rec.line_number;
4410: IF p_claim_line_rec.line_number IS NULL THEN
4411: x_complete_rec.line_number := l_claim_line_rec.line_number;
4412: END IF;
4413:
4414: IF p_claim_line_rec.split_from_claim_line_id = FND_API.G_MISS_NUM THEN
4415: x_complete_rec.split_from_claim_line_id := NULL;
4416: END IF;
4417: IF p_claim_line_rec.split_from_claim_line_id IS NULL THEN
4418: x_complete_rec.split_from_claim_line_id := l_claim_line_rec.split_from_claim_line_id;
4417: IF p_claim_line_rec.split_from_claim_line_id IS NULL THEN
4418: x_complete_rec.split_from_claim_line_id := l_claim_line_rec.split_from_claim_line_id;
4419: END IF;
4420:
4421: IF p_claim_line_rec.amount = FND_API.G_MISS_NUM THEN
4422: x_complete_rec.amount := NULL;
4423: END IF;
4424: IF p_claim_line_rec.amount IS NULL THEN
4425: x_complete_rec.amount := l_claim_line_rec.amount;
4424: IF p_claim_line_rec.amount IS NULL THEN
4425: x_complete_rec.amount := l_claim_line_rec.amount;
4426: END IF;
4427:
4428: IF p_claim_line_rec.claim_currency_amount = FND_API.G_MISS_NUM THEN
4429: x_complete_rec.claim_currency_amount := NULL;
4430: END IF;
4431: IF p_claim_line_rec.claim_currency_amount IS NULL THEN
4432: x_complete_rec.claim_currency_amount := l_claim_line_rec.claim_currency_amount;
4431: IF p_claim_line_rec.claim_currency_amount IS NULL THEN
4432: x_complete_rec.claim_currency_amount := l_claim_line_rec.claim_currency_amount;
4433: END IF;
4434:
4435: IF p_claim_line_rec.acctd_amount = FND_API.G_MISS_NUM THEN
4436: x_complete_rec.acctd_amount := NULL;
4437: END IF;
4438: IF p_claim_line_rec.acctd_amount IS NULL THEN
4439: x_complete_rec.acctd_amount := l_claim_line_rec.acctd_amount;
4438: IF p_claim_line_rec.acctd_amount IS NULL THEN
4439: x_complete_rec.acctd_amount := l_claim_line_rec.acctd_amount;
4440: END IF;
4441:
4442: IF p_claim_line_rec.currency_code = FND_API.G_MISS_CHAR THEN
4443: x_complete_rec.currency_code := NULL;
4444: END IF;
4445: IF p_claim_line_rec.currency_code IS NULL THEN
4446: x_complete_rec.currency_code := l_claim_line_rec.currency_code;
4445: IF p_claim_line_rec.currency_code IS NULL THEN
4446: x_complete_rec.currency_code := l_claim_line_rec.currency_code;
4447: END IF;
4448:
4449: IF p_claim_line_rec.exchange_rate_type = FND_API.G_MISS_CHAR THEN
4450: x_complete_rec.exchange_rate_type := NULL;
4451: END IF;
4452: IF p_claim_line_rec.exchange_rate_type IS NULL THEN
4453: x_complete_rec.exchange_rate_type := l_claim_line_rec.exchange_rate_type;
4452: IF p_claim_line_rec.exchange_rate_type IS NULL THEN
4453: x_complete_rec.exchange_rate_type := l_claim_line_rec.exchange_rate_type;
4454: END IF;
4455:
4456: IF p_claim_line_rec.exchange_rate_date = FND_API.G_MISS_DATE THEN
4457: x_complete_rec.exchange_rate_date := NULL;
4458: END IF;
4459: IF p_claim_line_rec.exchange_rate_date IS NULL THEN
4460: x_complete_rec.exchange_rate_date := l_claim_line_rec.exchange_rate_date;
4459: IF p_claim_line_rec.exchange_rate_date IS NULL THEN
4460: x_complete_rec.exchange_rate_date := l_claim_line_rec.exchange_rate_date;
4461: END IF;
4462:
4463: IF p_claim_line_rec.exchange_rate = FND_API.G_MISS_NUM THEN
4464: x_complete_rec.exchange_rate := NULL;
4465: END IF;
4466: IF p_claim_line_rec.exchange_rate IS NULL THEN
4467: x_complete_rec.exchange_rate := l_claim_line_rec.exchange_rate;
4466: IF p_claim_line_rec.exchange_rate IS NULL THEN
4467: x_complete_rec.exchange_rate := l_claim_line_rec.exchange_rate;
4468: END IF;
4469:
4470: IF p_claim_line_rec.set_of_books_id = FND_API.G_MISS_NUM THEN
4471: x_complete_rec.set_of_books_id := NULL;
4472: END IF;
4473: IF p_claim_line_rec.set_of_books_id IS NULL THEN
4474: x_complete_rec.set_of_books_id := l_claim_line_rec.set_of_books_id;
4473: IF p_claim_line_rec.set_of_books_id IS NULL THEN
4474: x_complete_rec.set_of_books_id := l_claim_line_rec.set_of_books_id;
4475: END IF;
4476:
4477: IF p_claim_line_rec.valid_flag = FND_API.G_MISS_CHAR THEN
4478: x_complete_rec.valid_flag := NULL;
4479: END IF;
4480: IF p_claim_line_rec.valid_flag IS NULL THEN
4481: x_complete_rec.valid_flag := l_claim_line_rec.valid_flag;
4480: IF p_claim_line_rec.valid_flag IS NULL THEN
4481: x_complete_rec.valid_flag := l_claim_line_rec.valid_flag;
4482: END IF;
4483:
4484: IF p_claim_line_rec.source_object_id = FND_API.G_MISS_NUM THEN
4485: x_complete_rec.source_object_id := NULL;
4486: END IF;
4487: IF p_claim_line_rec.source_object_id IS NULL THEN
4488: x_complete_rec.source_object_id := l_claim_line_rec.source_object_id;
4487: IF p_claim_line_rec.source_object_id IS NULL THEN
4488: x_complete_rec.source_object_id := l_claim_line_rec.source_object_id;
4489: END IF;
4490:
4491: IF p_claim_line_rec.source_object_line_id = FND_API.G_MISS_NUM THEN
4492: x_complete_rec.source_object_line_id := NULL;
4493: END IF;
4494: IF p_claim_line_rec.source_object_line_id IS NULL THEN
4495: x_complete_rec.source_object_line_id := l_claim_line_rec.source_object_line_id;
4494: IF p_claim_line_rec.source_object_line_id IS NULL THEN
4495: x_complete_rec.source_object_line_id := l_claim_line_rec.source_object_line_id;
4496: END IF;
4497:
4498: IF p_claim_line_rec.source_object_class = FND_API.G_MISS_CHAR THEN
4499: x_complete_rec.source_object_class := NULL;
4500: END IF;
4501: IF p_claim_line_rec.source_object_class IS NULL THEN
4502: x_complete_rec.source_object_class := l_claim_line_rec.source_object_class;
4501: IF p_claim_line_rec.source_object_class IS NULL THEN
4502: x_complete_rec.source_object_class := l_claim_line_rec.source_object_class;
4503: END IF;
4504:
4505: IF p_claim_line_rec.source_object_type_id = FND_API.G_MISS_NUM THEN
4506: x_complete_rec.source_object_type_id := NULL;
4507: END IF;
4508: IF p_claim_line_rec.source_object_type_id IS NULL THEN
4509: x_complete_rec.source_object_type_id := l_claim_line_rec.source_object_type_id;
4508: IF p_claim_line_rec.source_object_type_id IS NULL THEN
4509: x_complete_rec.source_object_type_id := l_claim_line_rec.source_object_type_id;
4510: END IF;
4511:
4512: IF p_claim_line_rec.plan_id = FND_API.G_MISS_NUM THEN
4513: x_complete_rec.plan_id := NULL;
4514: END IF;
4515: IF p_claim_line_rec.plan_id IS NULL THEN
4516: x_complete_rec.plan_id := l_claim_line_rec.plan_id;
4515: IF p_claim_line_rec.plan_id IS NULL THEN
4516: x_complete_rec.plan_id := l_claim_line_rec.plan_id;
4517: END IF;
4518:
4519: IF p_claim_line_rec.offer_id = FND_API.G_MISS_NUM THEN
4520: x_complete_rec.offer_id := NULL;
4521: END IF;
4522: IF p_claim_line_rec.offer_id IS NULL THEN
4523: x_complete_rec.offer_id := l_claim_line_rec.offer_id;
4522: IF p_claim_line_rec.offer_id IS NULL THEN
4523: x_complete_rec.offer_id := l_claim_line_rec.offer_id;
4524: END IF;
4525:
4526: IF p_claim_line_rec.utilization_id = FND_API.G_MISS_NUM THEN
4527: x_complete_rec.utilization_id := NULL;
4528: END IF;
4529: IF p_claim_line_rec.utilization_id IS NULL THEN
4530: x_complete_rec.utilization_id := l_claim_line_rec.utilization_id;
4529: IF p_claim_line_rec.utilization_id IS NULL THEN
4530: x_complete_rec.utilization_id := l_claim_line_rec.utilization_id;
4531: END IF;
4532:
4533: IF p_claim_line_rec.payment_method = FND_API.G_MISS_CHAR THEN
4534: x_complete_rec.payment_method := NULL;
4535: END IF;
4536: IF p_claim_line_rec.payment_method IS NULL THEN
4537: x_complete_rec.payment_method := l_claim_line_rec.payment_method;
4536: IF p_claim_line_rec.payment_method IS NULL THEN
4537: x_complete_rec.payment_method := l_claim_line_rec.payment_method;
4538: END IF;
4539:
4540: IF p_claim_line_rec.payment_reference_id = FND_API.G_MISS_NUM THEN
4541: x_complete_rec.payment_reference_id := NULL;
4542: END IF;
4543: IF p_claim_line_rec.payment_reference_id IS NULL THEN
4544: x_complete_rec.payment_reference_id := l_claim_line_rec.payment_reference_id;
4543: IF p_claim_line_rec.payment_reference_id IS NULL THEN
4544: x_complete_rec.payment_reference_id := l_claim_line_rec.payment_reference_id;
4545: END IF;
4546:
4547: IF p_claim_line_rec.payment_reference_number = FND_API.G_MISS_CHAR THEN
4548: x_complete_rec.payment_reference_number := NULL;
4549: END IF;
4550: IF p_claim_line_rec.payment_reference_number IS NULL THEN
4551: x_complete_rec.payment_reference_number := l_claim_line_rec.payment_reference_number;
4550: IF p_claim_line_rec.payment_reference_number IS NULL THEN
4551: x_complete_rec.payment_reference_number := l_claim_line_rec.payment_reference_number;
4552: END IF;
4553:
4554: IF p_claim_line_rec.payment_reference_date = FND_API.G_MISS_DATE THEN
4555: x_complete_rec.payment_reference_date := NULL;
4556: END IF;
4557: IF p_claim_line_rec.payment_reference_date IS NULL THEN
4558: x_complete_rec.payment_reference_date := l_claim_line_rec.payment_reference_date;
4557: IF p_claim_line_rec.payment_reference_date IS NULL THEN
4558: x_complete_rec.payment_reference_date := l_claim_line_rec.payment_reference_date;
4559: END IF;
4560:
4561: IF p_claim_line_rec.voucher_id = FND_API.G_MISS_NUM THEN
4562: x_complete_rec.voucher_id := NULL;
4563: END IF;
4564: IF p_claim_line_rec.voucher_id IS NULL THEN
4565: x_complete_rec.voucher_id := l_claim_line_rec.voucher_id;
4564: IF p_claim_line_rec.voucher_id IS NULL THEN
4565: x_complete_rec.voucher_id := l_claim_line_rec.voucher_id;
4566: END IF;
4567:
4568: IF p_claim_line_rec.voucher_number = FND_API.G_MISS_CHAR THEN
4569: x_complete_rec.voucher_number := NULL;
4570: END IF;
4571: IF p_claim_line_rec.voucher_number IS NULL THEN
4572: x_complete_rec.voucher_number := l_claim_line_rec.voucher_number;
4571: IF p_claim_line_rec.voucher_number IS NULL THEN
4572: x_complete_rec.voucher_number := l_claim_line_rec.voucher_number;
4573: END IF;
4574:
4575: IF p_claim_line_rec.payment_status = FND_API.G_MISS_CHAR THEN
4576: x_complete_rec.payment_status := NULL;
4577: END IF;
4578: IF p_claim_line_rec.payment_status IS NULL THEN
4579: x_complete_rec.payment_status := l_claim_line_rec.payment_status;
4578: IF p_claim_line_rec.payment_status IS NULL THEN
4579: x_complete_rec.payment_status := l_claim_line_rec.payment_status;
4580: END IF;
4581:
4582: IF p_claim_line_rec.approved_flag = FND_API.G_MISS_CHAR THEN
4583: x_complete_rec.approved_flag := NULL;
4584: END IF;
4585: IF p_claim_line_rec.approved_flag IS NULL THEN
4586: x_complete_rec.approved_flag := l_claim_line_rec.approved_flag;
4585: IF p_claim_line_rec.approved_flag IS NULL THEN
4586: x_complete_rec.approved_flag := l_claim_line_rec.approved_flag;
4587: END IF;
4588:
4589: IF p_claim_line_rec.approved_date = FND_API.G_MISS_DATE THEN
4590: x_complete_rec.approved_date := NULL;
4591: END IF;
4592: IF p_claim_line_rec.approved_date IS NULL THEN
4593: x_complete_rec.approved_date := l_claim_line_rec.approved_date;
4592: IF p_claim_line_rec.approved_date IS NULL THEN
4593: x_complete_rec.approved_date := l_claim_line_rec.approved_date;
4594: END IF;
4595:
4596: IF p_claim_line_rec.approved_by = FND_API.G_MISS_NUM THEN
4597: x_complete_rec.approved_by := NULL;
4598: END IF;
4599: IF p_claim_line_rec.approved_by IS NULL THEN
4600: x_complete_rec.approved_by := l_claim_line_rec.approved_by;
4599: IF p_claim_line_rec.approved_by IS NULL THEN
4600: x_complete_rec.approved_by := l_claim_line_rec.approved_by;
4601: END IF;
4602:
4603: IF p_claim_line_rec.settled_date = FND_API.G_MISS_DATE THEN
4604: x_complete_rec.settled_date := NULL;
4605: END IF;
4606: IF p_claim_line_rec.settled_date IS NULL THEN
4607: x_complete_rec.settled_date := l_claim_line_rec.settled_date;
4606: IF p_claim_line_rec.settled_date IS NULL THEN
4607: x_complete_rec.settled_date := l_claim_line_rec.settled_date;
4608: END IF;
4609:
4610: IF p_claim_line_rec.settled_by = FND_API.G_MISS_NUM THEN
4611: x_complete_rec.settled_by := NULL;
4612: END IF;
4613: IF p_claim_line_rec.settled_by IS NULL THEN
4614: x_complete_rec.settled_by := l_claim_line_rec.settled_by;
4613: IF p_claim_line_rec.settled_by IS NULL THEN
4614: x_complete_rec.settled_by := l_claim_line_rec.settled_by;
4615: END IF;
4616:
4617: IF p_claim_line_rec.performance_complete_flag = FND_API.G_MISS_CHAR THEN
4618: x_complete_rec.performance_complete_flag := NULL;
4619: END IF;
4620: IF p_claim_line_rec.performance_complete_flag IS NULL THEN
4621: x_complete_rec.performance_complete_flag := l_claim_line_rec.performance_complete_flag;
4620: IF p_claim_line_rec.performance_complete_flag IS NULL THEN
4621: x_complete_rec.performance_complete_flag := l_claim_line_rec.performance_complete_flag;
4622: END IF;
4623:
4624: IF p_claim_line_rec.performance_attached_flag = FND_API.G_MISS_CHAR THEN
4625: x_complete_rec.performance_attached_flag := NULL;
4626: END IF;
4627: IF p_claim_line_rec.performance_attached_flag IS NULL THEN
4628: x_complete_rec.performance_attached_flag := l_claim_line_rec.performance_attached_flag;
4627: IF p_claim_line_rec.performance_attached_flag IS NULL THEN
4628: x_complete_rec.performance_attached_flag := l_claim_line_rec.performance_attached_flag;
4629: END IF;
4630:
4631: IF p_claim_line_rec.select_cust_children_flag = FND_API.G_MISS_CHAR THEN
4632: x_complete_rec.select_cust_children_flag := NULL;
4633: END IF;
4634: IF p_claim_line_rec.select_cust_children_flag IS NULL THEN
4635: x_complete_rec.select_cust_children_flag := l_claim_line_rec.select_cust_children_flag;
4634: IF p_claim_line_rec.select_cust_children_flag IS NULL THEN
4635: x_complete_rec.select_cust_children_flag := l_claim_line_rec.select_cust_children_flag;
4636: END IF;
4637:
4638: IF p_claim_line_rec.attribute_category = FND_API.G_MISS_CHAR THEN
4639: x_complete_rec.attribute_category := NULL;
4640: END IF;
4641: IF p_claim_line_rec.attribute_category IS NULL THEN
4642: x_complete_rec.attribute_category := l_claim_line_rec.attribute_category;
4641: IF p_claim_line_rec.attribute_category IS NULL THEN
4642: x_complete_rec.attribute_category := l_claim_line_rec.attribute_category;
4643: END IF;
4644:
4645: IF p_claim_line_rec.item_id = FND_API.G_MISS_NUM THEN
4646: x_complete_rec.item_id := NULL;
4647: END IF;
4648: IF p_claim_line_rec.item_id IS NULL THEN
4649: x_complete_rec.item_id := l_claim_line_rec.item_id;
4648: IF p_claim_line_rec.item_id IS NULL THEN
4649: x_complete_rec.item_id := l_claim_line_rec.item_id;
4650: END IF;
4651:
4652: IF p_claim_line_rec.item_description = FND_API.G_MISS_CHAR THEN
4653: x_complete_rec.item_description := NULL;
4654: END IF;
4655: IF p_claim_line_rec.item_description IS NULL THEN
4656: x_complete_rec.item_description := l_claim_line_rec.item_description;
4655: IF p_claim_line_rec.item_description IS NULL THEN
4656: x_complete_rec.item_description := l_claim_line_rec.item_description;
4657: END IF;
4658:
4659: IF p_claim_line_rec.quantity = FND_API.G_MISS_NUM THEN
4660: x_complete_rec.quantity := NULL;
4661: END IF;
4662: IF p_claim_line_rec.quantity IS NULL THEN
4663: x_complete_rec.quantity := l_claim_line_rec.quantity;
4662: IF p_claim_line_rec.quantity IS NULL THEN
4663: x_complete_rec.quantity := l_claim_line_rec.quantity;
4664: END IF;
4665:
4666: IF p_claim_line_rec.quantity_uom = FND_API.G_MISS_CHAR THEN
4667: x_complete_rec.quantity_uom := NULL;
4668: END IF;
4669: IF p_claim_line_rec.quantity_uom IS NULL THEN
4670: x_complete_rec.quantity_uom := l_claim_line_rec.quantity_uom;
4669: IF p_claim_line_rec.quantity_uom IS NULL THEN
4670: x_complete_rec.quantity_uom := l_claim_line_rec.quantity_uom;
4671: END IF;
4672:
4673: IF p_claim_line_rec.rate = FND_API.G_MISS_NUM THEN
4674: x_complete_rec.rate := NULL;
4675: END IF;
4676: IF p_claim_line_rec.rate IS NULL THEN
4677: x_complete_rec.rate := l_claim_line_rec.rate;
4676: IF p_claim_line_rec.rate IS NULL THEN
4677: x_complete_rec.rate := l_claim_line_rec.rate;
4678: END IF;
4679:
4680: IF p_claim_line_rec.activity_type = FND_API.G_MISS_CHAR THEN
4681: x_complete_rec.activity_type := NULL;
4682: END IF;
4683: IF p_claim_line_rec.activity_type IS NULL THEN
4684: x_complete_rec.activity_type := l_claim_line_rec.activity_type;
4683: IF p_claim_line_rec.activity_type IS NULL THEN
4684: x_complete_rec.activity_type := l_claim_line_rec.activity_type;
4685: END IF;
4686:
4687: IF p_claim_line_rec.activity_id = FND_API.G_MISS_NUM THEN
4688: x_complete_rec.activity_id := NULL;
4689: END IF;
4690: IF p_claim_line_rec.activity_id IS NULL THEN
4691: x_complete_rec.activity_id := l_claim_line_rec.activity_id;
4690: IF p_claim_line_rec.activity_id IS NULL THEN
4691: x_complete_rec.activity_id := l_claim_line_rec.activity_id;
4692: END IF;
4693:
4694: IF p_claim_line_rec.related_cust_account_id = FND_API.G_MISS_NUM THEN
4695: x_complete_rec.related_cust_account_id := NULL;
4696: END IF;
4697: IF p_claim_line_rec.related_cust_account_id IS NULL THEN
4698: x_complete_rec.related_cust_account_id := l_claim_line_rec.related_cust_account_id;
4697: IF p_claim_line_rec.related_cust_account_id IS NULL THEN
4698: x_complete_rec.related_cust_account_id := l_claim_line_rec.related_cust_account_id;
4699: END IF;
4700:
4701: IF p_claim_line_rec.buy_group_cust_account_id = FND_API.G_MISS_NUM THEN
4702: x_complete_rec.buy_group_cust_account_id := NULL;
4703: END IF;
4704: IF p_claim_line_rec.buy_group_cust_account_id IS NULL THEN
4705: x_complete_rec.buy_group_cust_account_id := l_claim_line_rec.buy_group_cust_account_id;
4704: IF p_claim_line_rec.buy_group_cust_account_id IS NULL THEN
4705: x_complete_rec.buy_group_cust_account_id := l_claim_line_rec.buy_group_cust_account_id;
4706: END IF;
4707:
4708: IF p_claim_line_rec.relationship_type = FND_API.G_MISS_CHAR THEN
4709: x_complete_rec.relationship_type := NULL;
4710: END IF;
4711: IF p_claim_line_rec.relationship_type IS NULL THEN
4712: x_complete_rec.relationship_type := l_claim_line_rec.relationship_type;
4711: IF p_claim_line_rec.relationship_type IS NULL THEN
4712: x_complete_rec.relationship_type := l_claim_line_rec.relationship_type;
4713: END IF;
4714:
4715: IF p_claim_line_rec.earnings_associated_flag = FND_API.G_MISS_CHAR THEN
4716: x_complete_rec.earnings_associated_flag := NULL;
4717: END IF;
4718: IF p_claim_line_rec.earnings_associated_flag IS NULL THEN
4719: x_complete_rec.earnings_associated_flag := l_claim_line_rec.earnings_associated_flag;
4718: IF p_claim_line_rec.earnings_associated_flag IS NULL THEN
4719: x_complete_rec.earnings_associated_flag := l_claim_line_rec.earnings_associated_flag;
4720: END IF;
4721:
4722: IF p_claim_line_rec.comments = FND_API.G_MISS_CHAR THEN
4723: x_complete_rec.comments := NULL;
4724: END IF;
4725: IF p_claim_line_rec.comments IS NULL THEN
4726: x_complete_rec.comments := l_claim_line_rec.comments;
4725: IF p_claim_line_rec.comments IS NULL THEN
4726: x_complete_rec.comments := l_claim_line_rec.comments;
4727: END IF;
4728:
4729: IF p_claim_line_rec.tax_code = FND_API.G_MISS_CHAR THEN
4730: x_complete_rec.tax_code := NULL;
4731: END IF;
4732: IF p_claim_line_rec.tax_code IS NULL THEN
4733: x_complete_rec.tax_code := l_claim_line_rec.tax_code;
4732: IF p_claim_line_rec.tax_code IS NULL THEN
4733: x_complete_rec.tax_code := l_claim_line_rec.tax_code;
4734: END IF;
4735:
4736: IF p_claim_line_rec.credit_to = FND_API.G_MISS_CHAR THEN
4737: x_complete_rec.credit_to := NULL;
4738: END IF;
4739: IF p_claim_line_rec.credit_to IS NULL THEN
4740: x_complete_rec.credit_to := l_claim_line_rec.credit_to;
4739: IF p_claim_line_rec.credit_to IS NULL THEN
4740: x_complete_rec.credit_to := l_claim_line_rec.credit_to;
4741: END IF;
4742:
4743: IF p_claim_line_rec.attribute1 = FND_API.G_MISS_CHAR THEN
4744: x_complete_rec.attribute1 := NULL;
4745: END IF;
4746: IF p_claim_line_rec.attribute1 IS NULL THEN
4747: x_complete_rec.attribute1 := l_claim_line_rec.attribute1;
4746: IF p_claim_line_rec.attribute1 IS NULL THEN
4747: x_complete_rec.attribute1 := l_claim_line_rec.attribute1;
4748: END IF;
4749:
4750: IF p_claim_line_rec.attribute2 = FND_API.G_MISS_CHAR THEN
4751: x_complete_rec.attribute2 := NULL;
4752: END IF;
4753: IF p_claim_line_rec.attribute2 IS NULL THEN
4754: x_complete_rec.attribute2 := l_claim_line_rec.attribute2;
4753: IF p_claim_line_rec.attribute2 IS NULL THEN
4754: x_complete_rec.attribute2 := l_claim_line_rec.attribute2;
4755: END IF;
4756:
4757: IF p_claim_line_rec.attribute3 = FND_API.G_MISS_CHAR THEN
4758: x_complete_rec.attribute3 := NULL;
4759: END IF;
4760: IF p_claim_line_rec.attribute3 IS NULL THEN
4761: x_complete_rec.attribute3 := l_claim_line_rec.attribute3;
4760: IF p_claim_line_rec.attribute3 IS NULL THEN
4761: x_complete_rec.attribute3 := l_claim_line_rec.attribute3;
4762: END IF;
4763:
4764: IF p_claim_line_rec.attribute4 = FND_API.G_MISS_CHAR THEN
4765: x_complete_rec.attribute4 := NULL;
4766: END IF;
4767: IF p_claim_line_rec.attribute4 IS NULL THEN
4768: x_complete_rec.attribute4 := l_claim_line_rec.attribute4;
4767: IF p_claim_line_rec.attribute4 IS NULL THEN
4768: x_complete_rec.attribute4 := l_claim_line_rec.attribute4;
4769: END IF;
4770:
4771: IF p_claim_line_rec.attribute5 = FND_API.G_MISS_CHAR THEN
4772: x_complete_rec.attribute5 := NULL;
4773: END IF;
4774: IF p_claim_line_rec.attribute5 IS NULL THEN
4775: x_complete_rec.attribute5 := l_claim_line_rec.attribute5;
4774: IF p_claim_line_rec.attribute5 IS NULL THEN
4775: x_complete_rec.attribute5 := l_claim_line_rec.attribute5;
4776: END IF;
4777:
4778: IF p_claim_line_rec.attribute6 = FND_API.G_MISS_CHAR THEN
4779: x_complete_rec.attribute6 := NULL;
4780: END IF;
4781: IF p_claim_line_rec.attribute6 IS NULL THEN
4782: x_complete_rec.attribute6 := l_claim_line_rec.attribute6;
4781: IF p_claim_line_rec.attribute6 IS NULL THEN
4782: x_complete_rec.attribute6 := l_claim_line_rec.attribute6;
4783: END IF;
4784:
4785: IF p_claim_line_rec.attribute7 = FND_API.G_MISS_CHAR THEN
4786: x_complete_rec.attribute7 := NULL;
4787: END IF;
4788: IF p_claim_line_rec.attribute7 IS NULL THEN
4789: x_complete_rec.attribute7 := l_claim_line_rec.attribute7;
4788: IF p_claim_line_rec.attribute7 IS NULL THEN
4789: x_complete_rec.attribute7 := l_claim_line_rec.attribute7;
4790: END IF;
4791:
4792: IF p_claim_line_rec.attribute8 = FND_API.G_MISS_CHAR THEN
4793: x_complete_rec.attribute8 := NULL;
4794: END IF;
4795: IF p_claim_line_rec.attribute8 IS NULL THEN
4796: x_complete_rec.attribute8 := l_claim_line_rec.attribute8;
4795: IF p_claim_line_rec.attribute8 IS NULL THEN
4796: x_complete_rec.attribute8 := l_claim_line_rec.attribute8;
4797: END IF;
4798:
4799: IF p_claim_line_rec.attribute9 = FND_API.G_MISS_CHAR THEN
4800: x_complete_rec.attribute9 := NULL;
4801: END IF;
4802: IF p_claim_line_rec.attribute9 IS NULL THEN
4803: x_complete_rec.attribute9 := l_claim_line_rec.attribute9;
4802: IF p_claim_line_rec.attribute9 IS NULL THEN
4803: x_complete_rec.attribute9 := l_claim_line_rec.attribute9;
4804: END IF;
4805:
4806: IF p_claim_line_rec.attribute10 = FND_API.G_MISS_CHAR THEN
4807: x_complete_rec.attribute10 := NULL;
4808: END IF;
4809: IF p_claim_line_rec.attribute10 IS NULL THEN
4810: x_complete_rec.attribute10 := l_claim_line_rec.attribute10;
4809: IF p_claim_line_rec.attribute10 IS NULL THEN
4810: x_complete_rec.attribute10 := l_claim_line_rec.attribute10;
4811: END IF;
4812:
4813: IF p_claim_line_rec.attribute11 = FND_API.G_MISS_CHAR THEN
4814: x_complete_rec.attribute11 := NULL;
4815: END IF;
4816: IF p_claim_line_rec.attribute11 IS NULL THEN
4817: x_complete_rec.attribute11 := l_claim_line_rec.attribute11;
4816: IF p_claim_line_rec.attribute11 IS NULL THEN
4817: x_complete_rec.attribute11 := l_claim_line_rec.attribute11;
4818: END IF;
4819:
4820: IF p_claim_line_rec.attribute12 = FND_API.G_MISS_CHAR THEN
4821: x_complete_rec.attribute12 := NULL;
4822: END IF;
4823: IF p_claim_line_rec.attribute12 IS NULL THEN
4824: x_complete_rec.attribute12 := l_claim_line_rec.attribute12;
4823: IF p_claim_line_rec.attribute12 IS NULL THEN
4824: x_complete_rec.attribute12 := l_claim_line_rec.attribute12;
4825: END IF;
4826:
4827: IF p_claim_line_rec.attribute13 = FND_API.G_MISS_CHAR THEN
4828: x_complete_rec.attribute13 := NULL;
4829: END IF;
4830: IF p_claim_line_rec.attribute13 IS NULL THEN
4831: x_complete_rec.attribute13 := l_claim_line_rec.attribute13;
4830: IF p_claim_line_rec.attribute13 IS NULL THEN
4831: x_complete_rec.attribute13 := l_claim_line_rec.attribute13;
4832: END IF;
4833:
4834: IF p_claim_line_rec.attribute14 = FND_API.G_MISS_CHAR THEN
4835: x_complete_rec.attribute14 := NULL;
4836: END IF;
4837: IF p_claim_line_rec.attribute14 IS NULL THEN
4838: x_complete_rec.attribute14 := l_claim_line_rec.attribute14;
4837: IF p_claim_line_rec.attribute14 IS NULL THEN
4838: x_complete_rec.attribute14 := l_claim_line_rec.attribute14;
4839: END IF;
4840:
4841: IF p_claim_line_rec.attribute15 = FND_API.G_MISS_CHAR THEN
4842: x_complete_rec.attribute15 := NULL;
4843: END IF;
4844: IF p_claim_line_rec.attribute15 IS NULL THEN
4845: x_complete_rec.attribute15 := l_claim_line_rec.attribute15;
4844: IF p_claim_line_rec.attribute15 IS NULL THEN
4845: x_complete_rec.attribute15 := l_claim_line_rec.attribute15;
4846: END IF;
4847:
4848: IF p_claim_line_rec.update_from_tbl_flag = FND_API.G_MISS_CHAR THEN
4849: x_complete_rec.update_from_tbl_flag := NULL;
4850: END IF;
4851: IF p_claim_line_rec.update_from_tbl_flag IS NULL THEN
4852: x_complete_rec.update_from_tbl_flag := FND_API.g_false;
4848: IF p_claim_line_rec.update_from_tbl_flag = FND_API.G_MISS_CHAR THEN
4849: x_complete_rec.update_from_tbl_flag := NULL;
4850: END IF;
4851: IF p_claim_line_rec.update_from_tbl_flag IS NULL THEN
4852: x_complete_rec.update_from_tbl_flag := FND_API.g_false;
4853: END IF;
4854:
4855: IF p_claim_line_rec.sale_date = FND_API.G_MISS_DATE THEN
4856: x_complete_rec.sale_date := NULL;
4851: IF p_claim_line_rec.update_from_tbl_flag IS NULL THEN
4852: x_complete_rec.update_from_tbl_flag := FND_API.g_false;
4853: END IF;
4854:
4855: IF p_claim_line_rec.sale_date = FND_API.G_MISS_DATE THEN
4856: x_complete_rec.sale_date := NULL;
4857: END IF;
4858: IF p_claim_line_rec.sale_date IS NULL THEN
4859: x_complete_rec.sale_date := l_claim_line_rec.sale_date;
4858: IF p_claim_line_rec.sale_date IS NULL THEN
4859: x_complete_rec.sale_date := l_claim_line_rec.sale_date;
4860: END IF;
4861:
4862: IF p_claim_line_rec.item_type = FND_API.G_MISS_CHAR THEN
4863: x_complete_rec.item_type := NULL;
4864: END IF;
4865: IF p_claim_line_rec.item_type IS NULL THEN
4866: x_complete_rec.item_type := l_claim_line_rec.item_type;
4865: IF p_claim_line_rec.item_type IS NULL THEN
4866: x_complete_rec.item_type := l_claim_line_rec.item_type;
4867: END IF;
4868:
4869: IF p_claim_line_rec.tax_amount = FND_API.G_MISS_NUM THEN
4870: x_complete_rec.tax_amount := NULL;
4871: END IF;
4872: IF p_claim_line_rec.tax_amount IS NULL THEN
4873: x_complete_rec.tax_amount := l_claim_line_rec.tax_amount;
4872: IF p_claim_line_rec.tax_amount IS NULL THEN
4873: x_complete_rec.tax_amount := l_claim_line_rec.tax_amount;
4874: END IF;
4875:
4876: IF p_claim_line_rec.claim_curr_tax_amount = FND_API.G_MISS_NUM THEN
4877: x_complete_rec.claim_curr_tax_amount := NULL;
4878: END IF;
4879: IF p_claim_line_rec.claim_curr_tax_amount IS NULL THEN
4880: x_complete_rec.claim_curr_tax_amount := l_claim_line_rec.claim_curr_tax_amount;
4880: x_complete_rec.claim_curr_tax_amount := l_claim_line_rec.claim_curr_tax_amount;
4881: END IF;
4882:
4883: -- Added for Bug4489415
4884: IF p_claim_line_rec.acctd_tax_amount = FND_API.G_MISS_NUM THEN
4885: x_complete_rec.acctd_tax_amount := NULL;
4886: END IF;
4887: IF p_claim_line_rec.acctd_tax_amount IS NULL THEN
4888: x_complete_rec.acctd_tax_amount := l_claim_line_rec.acctd_tax_amount;
4887: IF p_claim_line_rec.acctd_tax_amount IS NULL THEN
4888: x_complete_rec.acctd_tax_amount := l_claim_line_rec.acctd_tax_amount;
4889: END IF;
4890:
4891: IF p_claim_line_rec.activity_line_id = FND_API.G_MISS_NUM THEN
4892: x_complete_rec.activity_line_id := NULL;
4893: END IF;
4894: IF p_claim_line_rec.activity_line_id IS NULL THEN
4895: x_complete_rec.activity_line_id := l_claim_line_rec.activity_line_id;
4894: IF p_claim_line_rec.activity_line_id IS NULL THEN
4895: x_complete_rec.activity_line_id := l_claim_line_rec.activity_line_id;
4896: END IF;
4897:
4898: IF p_claim_line_rec.offer_type = FND_API.G_MISS_CHAR THEN
4899: x_complete_rec.offer_type := NULL;
4900: END IF;
4901: IF p_claim_line_rec.offer_type IS NULL THEN
4902: x_complete_rec.offer_type := l_claim_line_rec.offer_type;
4901: IF p_claim_line_rec.offer_type IS NULL THEN
4902: x_complete_rec.offer_type := l_claim_line_rec.offer_type;
4903: END IF;
4904:
4905: IF p_claim_line_rec.prorate_earnings_flag = FND_API.G_MISS_CHAR THEN
4906: x_complete_rec.prorate_earnings_flag := NULL;
4907: END IF;
4908: IF p_claim_line_rec.prorate_earnings_flag IS NULL THEN
4909: x_complete_rec.prorate_earnings_flag := l_claim_line_rec.prorate_earnings_flag;
4909: x_complete_rec.prorate_earnings_flag := l_claim_line_rec.prorate_earnings_flag;
4910: END IF;
4911:
4912:
4913: IF p_claim_line_rec.earnings_end_date = FND_API.G_MISS_DATE THEN
4914: x_complete_rec.earnings_end_date := NULL;
4915: END IF;
4916: IF p_claim_line_rec.earnings_end_date IS NULL THEN
4917: x_complete_rec.earnings_end_date := l_claim_line_rec.earnings_end_date;
4916: IF p_claim_line_rec.earnings_end_date IS NULL THEN
4917: x_complete_rec.earnings_end_date := l_claim_line_rec.earnings_end_date;
4918: END IF;
4919:
4920: IF p_claim_line_rec.buy_group_party_id = FND_API.G_MISS_NUM THEN
4921: x_complete_rec.buy_group_party_id := NULL;
4922: END IF;
4923: IF p_claim_line_rec.buy_group_party_id IS NULL THEN
4924: x_complete_rec.buy_group_party_id := l_claim_line_rec.buy_group_party_id;
4924: x_complete_rec.buy_group_party_id := l_claim_line_rec.buy_group_party_id;
4925: END IF;
4926:
4927: -- Bug4489415
4928: IF p_claim_line_rec.tax_action = FND_API.G_MISS_CHAR THEN
4929: x_complete_rec.tax_action := NULL;
4930: END IF;
4931:
4932: --12.1 Enhancement : Price Protection
4949: -- 03-Mar-06 azahmed bugfix 5075837 line number increment
4950: ---------------------------------------------------------------------
4951: PROCEDURE split_claim_line(
4952: p_api_version IN NUMBER
4953: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4954: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
4955: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4956:
4957: ,p_claim_line_id IN NUMBER
4950: ---------------------------------------------------------------------
4951: PROCEDURE split_claim_line(
4952: p_api_version IN NUMBER
4953: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4954: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
4955: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4956:
4957: ,p_claim_line_id IN NUMBER
4958: ,x_return_status OUT NOCOPY VARCHAR2
4951: PROCEDURE split_claim_line(
4952: p_api_version IN NUMBER
4953: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4954: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
4955: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4956:
4957: ,p_claim_line_id IN NUMBER
4958: ,x_return_status OUT NOCOPY VARCHAR2
4959: ,x_msg_count OUT NOCOPY NUMBER
5138: IF OZF_DEBUG_HIGH_ON THEN
5139: OZF_Utility_PVT.debug_message(l_full_name||': start');
5140: END IF;
5141:
5142: IF FND_API.to_boolean(p_init_msg_list) THEN
5143: FND_MSG_PUB.initialize;
5144: END IF;
5145:
5146: IF NOT FND_API.compatible_api_call(
5142: IF FND_API.to_boolean(p_init_msg_list) THEN
5143: FND_MSG_PUB.initialize;
5144: END IF;
5145:
5146: IF NOT FND_API.compatible_api_call(
5147: l_api_version,
5148: p_api_version,
5149: l_api_name,
5150: g_pkg_name
5148: p_api_version,
5149: l_api_name,
5150: g_pkg_name
5151: ) THEN
5152: RAISE FND_API.g_exc_unexpected_error;
5153: END IF;
5154:
5155: x_return_status := FND_API.g_ret_sts_success;
5156:
5151: ) THEN
5152: RAISE FND_API.g_exc_unexpected_error;
5153: END IF;
5154:
5155: x_return_status := FND_API.g_ret_sts_success;
5156:
5157:
5158:
5159: -- Get the line being processed
5288: l_claim_line_rec.acctd_amount := l_acctd_amount;
5289: l_claim_line_rec.claim_currency_amount := l_claim_line_amount; -- Modified
5290: l_claim_line_rec.activity_id := NVL(l_old_line_rec.activity_id, l_offer_id);
5291: l_claim_line_rec.activity_type := NVL(l_old_line_rec.activity_type, 'OFFR');
5292: l_claim_line_rec.update_from_tbl_flag := FND_API.g_true;
5293:
5294:
5295: -- Call API to create new claim line
5296: ozf_claim_line_pvt.Create_Claim_Line(
5294:
5295: -- Call API to create new claim line
5296: ozf_claim_line_pvt.Create_Claim_Line(
5297: p_api_version => 1.0
5298: , p_init_msg_list => FND_API.g_false
5299: , p_commit => FND_API.g_false
5300: , p_validation_level => p_validation_level
5301: , x_return_status => x_return_status
5302: , x_msg_data => x_msg_data
5295: -- Call API to create new claim line
5296: ozf_claim_line_pvt.Create_Claim_Line(
5297: p_api_version => 1.0
5298: , p_init_msg_list => FND_API.g_false
5299: , p_commit => FND_API.g_false
5300: , p_validation_level => p_validation_level
5301: , x_return_status => x_return_status
5302: , x_msg_data => x_msg_data
5303: , x_msg_count => x_msg_count
5304: , p_claim_line_rec => l_claim_line_rec
5305: , p_mode => OZF_CLAIM_UTILITY_PVT.g_auto_mode
5306: , x_claim_line_id => l_claim_line_id
5307: );
5308: IF x_return_status = fnd_api.g_ret_sts_error THEN
5309: RAISE FND_API.g_exc_error;
5310: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5311: RAISE FND_API.g_exc_unexpected_error;
5312: END IF;
5305: , p_mode => OZF_CLAIM_UTILITY_PVT.g_auto_mode
5306: , x_claim_line_id => l_claim_line_id
5307: );
5308: IF x_return_status = fnd_api.g_ret_sts_error THEN
5309: RAISE FND_API.g_exc_error;
5310: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5311: RAISE FND_API.g_exc_unexpected_error;
5312: END IF;
5313:
5306: , x_claim_line_id => l_claim_line_id
5307: );
5308: IF x_return_status = fnd_api.g_ret_sts_error THEN
5309: RAISE FND_API.g_exc_error;
5310: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5311: RAISE FND_API.g_exc_unexpected_error;
5312: END IF;
5313:
5314: -- Point the utilizations to the new claim line
5307: );
5308: IF x_return_status = fnd_api.g_ret_sts_error THEN
5309: RAISE FND_API.g_exc_error;
5310: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5311: RAISE FND_API.g_exc_unexpected_error;
5312: END IF;
5313:
5314: -- Point the utilizations to the new claim line
5315: IF l_util_product_id IS NULL AND l_util_product_level IS NULL THEN
5381: CLOSE csr_line_utils;
5382:
5383:
5384: -- Check for commit
5385: IF FND_API.to_boolean(p_commit) THEN
5386: COMMIT;
5387: END IF;
5388:
5389: FND_MSG_PUB.count_and_get(
5386: COMMIT;
5387: END IF;
5388:
5389: FND_MSG_PUB.count_and_get(
5390: p_encoded => FND_API.g_false,
5391: p_count => x_msg_count,
5392: p_data => x_msg_data
5393: );
5394:
5396: OZF_Utility_PVT.debug_message(l_full_name ||': end');
5397: END IF;
5398:
5399: EXCEPTION
5400: WHEN FND_API.g_exc_error THEN
5401: ROLLBACK TO split_claim_line;
5402: x_return_status := FND_API.g_ret_sts_error;
5403: FND_MSG_PUB.count_and_get(
5404: p_encoded => FND_API.g_false,
5398:
5399: EXCEPTION
5400: WHEN FND_API.g_exc_error THEN
5401: ROLLBACK TO split_claim_line;
5402: x_return_status := FND_API.g_ret_sts_error;
5403: FND_MSG_PUB.count_and_get(
5404: p_encoded => FND_API.g_false,
5405: p_count => x_msg_count,
5406: p_data => x_msg_data
5400: WHEN FND_API.g_exc_error THEN
5401: ROLLBACK TO split_claim_line;
5402: x_return_status := FND_API.g_ret_sts_error;
5403: FND_MSG_PUB.count_and_get(
5404: p_encoded => FND_API.g_false,
5405: p_count => x_msg_count,
5406: p_data => x_msg_data
5407: );
5408:
5405: p_count => x_msg_count,
5406: p_data => x_msg_data
5407: );
5408:
5409: WHEN FND_API.g_exc_unexpected_error THEN
5410: ROLLBACK TO split_claim_line;
5411: x_return_status := FND_API.g_ret_sts_unexp_error ;
5412: FND_MSG_PUB.count_and_get(
5413: p_encoded => FND_API.g_false,
5407: );
5408:
5409: WHEN FND_API.g_exc_unexpected_error THEN
5410: ROLLBACK TO split_claim_line;
5411: x_return_status := FND_API.g_ret_sts_unexp_error ;
5412: FND_MSG_PUB.count_and_get(
5413: p_encoded => FND_API.g_false,
5414: p_count => x_msg_count,
5415: p_data => x_msg_data
5409: WHEN FND_API.g_exc_unexpected_error THEN
5410: ROLLBACK TO split_claim_line;
5411: x_return_status := FND_API.g_ret_sts_unexp_error ;
5412: FND_MSG_PUB.count_and_get(
5413: p_encoded => FND_API.g_false,
5414: p_count => x_msg_count,
5415: p_data => x_msg_data
5416: );
5417:
5416: );
5417:
5418: WHEN OTHERS THEN
5419: ROLLBACK TO split_claim_line;
5420: x_return_status := FND_API.g_ret_sts_unexp_error ;
5421: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5422: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
5423: END IF;
5424: FND_MSG_PUB.count_and_get(
5421: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5422: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
5423: END IF;
5424: FND_MSG_PUB.count_and_get(
5425: p_encoded => FND_API.g_false,
5426: p_count => x_msg_count,
5427: p_data => x_msg_data
5428: );
5429: