9:
10: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OZF_PARTNER_CLAIM_GRP';
11: G_FILE_NAME CONSTANT VARCHAR2(12) := 'ozfgpclb.pls';
12:
13: OZF_DEBUG_HIGH_ON CONSTANT BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
14: OZF_DEBUG_LOW_ON CONSTANT BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low);
15:
16: ---------------------------------------------------------------------
17: -- PROCEDURE: Create_Claim
10: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OZF_PARTNER_CLAIM_GRP';
11: G_FILE_NAME CONSTANT VARCHAR2(12) := 'ozfgpclb.pls';
12:
13: OZF_DEBUG_HIGH_ON CONSTANT BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
14: OZF_DEBUG_LOW_ON CONSTANT BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low);
15:
16: ---------------------------------------------------------------------
17: -- PROCEDURE: Create_Claim
18: --
110: END IF;
111:
112: -- Initialize message list if p_init_msg_list is set to TRUE.
113: IF FND_API.to_Boolean( p_init_msg_list ) THEN
114: FND_MSG_PUB.initialize;
115: END IF;
116:
117: -- Initialize API return status to SUCCESS
118: x_return_status := FND_API.G_RET_STS_SUCCESS;
128: END IF;
129:
130: -- Initialize message list if p_init_msg_list is set to TRUE.
131: IF FND_API.to_Boolean( p_init_msg_list ) THEN
132: FND_MSG_PUB.initialize;
133: END IF;
134:
135: -- Debug Message
136: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
132: FND_MSG_PUB.initialize;
133: END IF;
134:
135: -- Debug Message
136: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
137: FND_MESSAGE.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
138: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
139: FND_MSG_PUB.Add;
140: END IF;
135: -- Debug Message
136: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
137: FND_MESSAGE.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
138: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
139: FND_MSG_PUB.Add;
140: END IF;
141:
142: -- Initialize API return status to SUCCESS
143: x_return_status := FND_API.G_RET_STS_SUCCESS;
188: l_claim_pub_rec.source_object_class IS NULL OR
189: l_claim_pub_rec.source_object_number IS NULL OR
190: l_claim_pub_rec.currency_code IS NULL OR
191: l_claim_pub_rec.cust_account_id IS NULL THEN
192: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
193: FND_MESSAGE.Set_Name('OZF','OZF_REQUIRED_FIELDS_MISSING');
194: FND_MSG_PUB.Add;
195: END IF;
196: RAISE FND_API.G_EXC_ERROR;
190: l_claim_pub_rec.currency_code IS NULL OR
191: l_claim_pub_rec.cust_account_id IS NULL THEN
192: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
193: FND_MESSAGE.Set_Name('OZF','OZF_REQUIRED_FIELDS_MISSING');
194: FND_MSG_PUB.Add;
195: END IF;
196: RAISE FND_API.G_EXC_ERROR;
197: END IF;
198:
320: COMMIT WORK;
321: END IF;
322:
323: -- Debug Message
324: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
325: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
326: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
327: FND_MSG_PUB.Add;
328: END IF;
323: -- Debug Message
324: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
325: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
326: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
327: FND_MSG_PUB.Add;
328: END IF;
329:
330: -- Standard call to get message count and if count is 1, get message info.
331: FND_MSG_PUB.Count_And_Get(
327: FND_MSG_PUB.Add;
328: END IF;
329:
330: -- Standard call to get message count and if count is 1, get message info.
331: FND_MSG_PUB.Count_And_Get(
332: p_count => x_msg_count,
333: p_data => x_msg_data
334: );
335:
340: EXCEPTION
341: WHEN FND_API.G_EXC_ERROR THEN
342: ROLLBACK TO Create_Partner_Claim;
343: x_return_status := FND_API.G_RET_STS_ERROR;
344: FND_MSG_PUB.Count_And_Get (
345: p_encoded => FND_API.G_FALSE,
346: p_count => x_msg_count,
347: p_data => x_msg_data
348: );
349:
350: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
351: ROLLBACK TO Create_Partner_Claim;
352: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
353: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
354: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CRE_DEDU_ERR');
355: FND_MSG_PUB.add;
356: END IF;
357: FND_MSG_PUB.Count_And_Get (
351: ROLLBACK TO Create_Partner_Claim;
352: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
353: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
354: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CRE_DEDU_ERR');
355: FND_MSG_PUB.add;
356: END IF;
357: FND_MSG_PUB.Count_And_Get (
358: p_encoded => FND_API.G_FALSE,
359: p_count => x_msg_count,
353: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
354: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CRE_DEDU_ERR');
355: FND_MSG_PUB.add;
356: END IF;
357: FND_MSG_PUB.Count_And_Get (
358: p_encoded => FND_API.G_FALSE,
359: p_count => x_msg_count,
360: p_data => x_msg_data
361: );
362:
363: WHEN OTHERS THEN
364: ROLLBACK TO Create_Partner_Claim;
365: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
366: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
367: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CRE_DEDU_ERR');
368: FND_MSG_PUB.add;
369: END IF;
370: FND_MSG_PUB.Count_And_Get (
364: ROLLBACK TO Create_Partner_Claim;
365: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
366: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
367: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CRE_DEDU_ERR');
368: FND_MSG_PUB.add;
369: END IF;
370: FND_MSG_PUB.Count_And_Get (
371: p_encoded => FND_API.G_FALSE,
372: p_count => x_msg_count,
366: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
367: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CRE_DEDU_ERR');
368: FND_MSG_PUB.add;
369: END IF;
370: FND_MSG_PUB.Count_And_Get (
371: p_encoded => FND_API.G_FALSE,
372: p_count => x_msg_count,
373: p_data => x_msg_data
374: );
462: END IF;
463:
464: -- Initialize message list if p_init_msg_list is set to TRUE.
465: IF FND_API.to_Boolean( p_init_msg_list ) THEN
466: FND_MSG_PUB.initialize;
467: END IF;
468:
469: -- Initialize API return status to SUCCESS
470: x_return_status := FND_API.G_RET_STS_SUCCESS;
473: -- 1. Minimum required fields checking --
474: -----------------------------------------
475: IF p_claim_id IS NULL OR
476: p_status_code IS NULL THEN
477: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
478: FND_MESSAGE.Set_Name('OZF','OZF_REQUIRED_FIELDS_MISSING');
479: FND_MSG_PUB.Add;
480: END IF;
481: RAISE FND_API.G_EXC_ERROR;
475: IF p_claim_id IS NULL OR
476: p_status_code IS NULL THEN
477: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
478: FND_MESSAGE.Set_Name('OZF','OZF_REQUIRED_FIELDS_MISSING');
479: FND_MSG_PUB.Add;
480: END IF;
481: RAISE FND_API.G_EXC_ERROR;
482: ELSE
483: OPEN csr_claim_status(p_status_code);
483: OPEN csr_claim_status(p_status_code);
484: FETCH csr_claim_status INTO l_status_code;
485: CLOSE csr_claim_status;
486: IF l_status_code IS NULL THEN
487: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
488: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_INVALID_STATUS');
489: FND_MSG_PUB.Add;
490: END IF;
491: RAISE FND_API.G_EXC_ERROR;
485: CLOSE csr_claim_status;
486: IF l_status_code IS NULL THEN
487: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
488: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_INVALID_STATUS');
489: FND_MSG_PUB.Add;
490: END IF;
491: RAISE FND_API.G_EXC_ERROR;
492: END IF;
493: END IF;
524: WHEN OTHERS THEN
525: IF OZF_DEBUG_LOW_ON THEN
526: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
527: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
528: FND_MSG_PUB.Add;
529: END IF;
530: RAISE FND_API.g_exc_unexpected_error;
531: END;
532: l_claim_pvt_rec.status_code := 'CLOSED';
600: COMMIT WORK;
601: END IF;
602:
603: -- Standard call to get message count and if count is 1, get message info.
604: FND_MSG_PUB.Count_And_Get(
605: p_count => x_msg_count,
606: p_data => x_msg_data
607: );
608:
613: EXCEPTION
614: WHEN FND_API.G_EXC_ERROR THEN
615: ROLLBACK TO Update_Partner_Claim;
616: x_return_status := FND_API.G_RET_STS_ERROR;
617: FND_MSG_PUB.Count_And_Get (
618: p_encoded => FND_API.G_FALSE,
619: p_count => x_msg_count,
620: p_data => x_msg_data
621: );
622:
623: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
624: ROLLBACK TO Update_Partner_Claim;
625: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
626: FND_MSG_PUB.Count_And_Get (
627: p_encoded => FND_API.G_FALSE,
628: p_count => x_msg_count,
629: p_data => x_msg_data
630: );
631:
632: WHEN OTHERS THEN
633: ROLLBACK TO Update_Partner_Claim;
634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
635: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
636: FND_MESSAGE.set_name('AMS', 'AMS_CLAIM_UPD_DEDU_ERR');
637: FND_MSG_PUB.add;
638: END IF;
639: FND_MSG_PUB.Count_And_Get (
633: ROLLBACK TO Update_Partner_Claim;
634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
635: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
636: FND_MESSAGE.set_name('AMS', 'AMS_CLAIM_UPD_DEDU_ERR');
637: FND_MSG_PUB.add;
638: END IF;
639: FND_MSG_PUB.Count_And_Get (
640: p_encoded => FND_API.G_FALSE,
641: p_count => x_msg_count,
635: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
636: FND_MESSAGE.set_name('AMS', 'AMS_CLAIM_UPD_DEDU_ERR');
637: FND_MSG_PUB.add;
638: END IF;
639: FND_MSG_PUB.Count_And_Get (
640: p_encoded => FND_API.G_FALSE,
641: p_count => x_msg_count,
642: p_data => x_msg_data
643: );