[Home] [Help]
56: G_YES CONSTANT VARCHAR2(1) :='Y';
57:
58: G_ALLOW_UNREL_SHIPTO_FLAG VARCHAR2(1) := NVL(fnd_profile.value('OZF_CLAIM_UR_SHIPTO'),'N'); -- 4334023
59:
60: OZF_DEBUG_HIGH_ON BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
61: OZF_DEBUG_LOW_ON BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low);
62:
63: ---------------------------------------------------------------------
64: -- Definitions of some packagewise cursors.
57:
58: G_ALLOW_UNREL_SHIPTO_FLAG VARCHAR2(1) := NVL(fnd_profile.value('OZF_CLAIM_UR_SHIPTO'),'N'); -- 4334023
59:
60: OZF_DEBUG_HIGH_ON BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
61: OZF_DEBUG_LOW_ON BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low);
62:
63: ---------------------------------------------------------------------
64: -- Definitions of some packagewise cursors.
65: ---------------------------------------------------------------------
118:
119: EXCEPTION
120: WHEN OTHERS THEN
121: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
122: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
123: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_INVALID_STATUS_CODE');
124: FND_MSG_PUB.add;
125: END IF;
126: -- Standard call to get message count and if count=1, get the message
120: WHEN OTHERS THEN
121: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
122: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
123: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_INVALID_STATUS_CODE');
124: FND_MSG_PUB.add;
125: END IF;
126: -- Standard call to get message count and if count=1, get the message
127: FND_MSG_PUB.Count_And_Get (
128: p_encoded => FND_API.G_FALSE,
123: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_INVALID_STATUS_CODE');
124: FND_MSG_PUB.add;
125: END IF;
126: -- Standard call to get message count and if count=1, get the message
127: FND_MSG_PUB.Count_And_Get (
128: p_encoded => FND_API.G_FALSE,
129: p_count => x_msg_count,
130: p_data => x_msg_data
131: );
166: CLOSE Get_Status_csr;
167: EXCEPTION
168: WHEN OTHERS THEN
169: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
170: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
171: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_INVALID_USER_STATUS');
172: FND_MSG_PUB.add;
173: END IF;
174: END get_seeded_user_status;
168: WHEN OTHERS THEN
169: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
170: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
171: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_INVALID_USER_STATUS');
172: FND_MSG_PUB.add;
173: END IF;
174: END get_seeded_user_status;
175: ---------------------------------------------------------------------
176: -- PROCEDURE
243: FETCH prefix_csr INTO l_prefix;
244: CLOSE prefix_csr;
245:
246: IF l_prefix is NULL THEN
247: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
248: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_SUFFIX_NOT_FOUND');
249: FND_MSG_PUB.add;
250: END IF;
251: RAISE FND_API.G_EXC_ERROR;
245:
246: IF l_prefix is NULL THEN
247: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
248: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_SUFFIX_NOT_FOUND');
249: FND_MSG_PUB.add;
250: END IF;
251: RAISE FND_API.G_EXC_ERROR;
252: END IF;
253:
285:
286: --Bug fix 3354592
287: l_claim_number_length := length(l_parent_claim_number || '_' || l_number_of_split_claim);
288: IF l_claim_number_length > 30 THEN
289: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
290: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_NUMBER_TOO_LARGE');
291: FND_MSG_PUB.add;
292: END IF;
293: RAISE FND_API.G_EXC_ERROR;
287: l_claim_number_length := length(l_parent_claim_number || '_' || l_number_of_split_claim);
288: IF l_claim_number_length > 30 THEN
289: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
290: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_NUMBER_TOO_LARGE');
291: FND_MSG_PUB.add;
292: END IF;
293: RAISE FND_API.G_EXC_ERROR;
294: END IF;
295: --Bug fix 3354592
301: WHEN FND_API.G_EXC_ERROR THEN
302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
303: WHEN OTHERS THEN
304: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
305: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
306: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_NO_CLAIM_NUMBER');
307: FND_MSG_PUB.add;
308: END IF;
309: FND_MSG_PUB.Count_And_Get (
303: WHEN OTHERS THEN
304: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
305: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
306: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_NO_CLAIM_NUMBER');
307: FND_MSG_PUB.add;
308: END IF;
309: FND_MSG_PUB.Count_And_Get (
310: p_encoded => FND_API.G_FALSE,
311: p_count => x_msg_count,
305: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
306: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_NO_CLAIM_NUMBER');
307: FND_MSG_PUB.add;
308: END IF;
309: FND_MSG_PUB.Count_And_Get (
310: p_encoded => FND_API.G_FALSE,
311: p_count => x_msg_count,
312: p_data => x_msg_data
313: );
573: WHEN FND_API.G_EXC_ERROR THEN
574: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
575: WHEN OTHERS THEN
576: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
577: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
578: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CUSTOMER_INFO_ERR');
579: FND_MSG_PUB.add;
580: END IF;
581: END get_customer_info;
575: WHEN OTHERS THEN
576: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
577: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
578: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CUSTOMER_INFO_ERR');
579: FND_MSG_PUB.add;
580: END IF;
581: END get_customer_info;
582:
583: ---------------------------------------------------------------------
633: WHEN FND_API.G_EXC_ERROR THEN
634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
635: WHEN OTHERS THEN
636: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
637: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
638: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DAYS_DUE_ERR');
639: FND_MSG_PUB.add;
640: END IF;
641: END get_days_due;
635: WHEN OTHERS THEN
636: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
637: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
638: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DAYS_DUE_ERR');
639: FND_MSG_PUB.add;
640: END IF;
641: END get_days_due;
642:
643: ---------------------------------------------------------------------
844: WHEN FND_API.G_EXC_ERROR THEN
845: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
846: WHEN OTHERS THEN
847: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
848: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
849: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_OFF_QUAL_ERR');
850: FND_MSG_PUB.add;
851: END IF;
852: END get_offer_qualifiers;
846: WHEN OTHERS THEN
847: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
848: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
849: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_OFF_QUAL_ERR');
850: FND_MSG_PUB.add;
851: END IF;
852: END get_offer_qualifiers;
853: ---------------------------------------------------------------------
854: -- PROCEDURE
1329: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1330: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1331: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1332: WHEN OTHERS THEN
1333: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1334: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,'Get_owner');
1335: END IF;
1336: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1337: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1330: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1331: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1332: WHEN OTHERS THEN
1333: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1334: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,'Get_owner');
1335: END IF;
1336: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1337: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1338: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_GET_OWNER_ERR');
1333: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1334: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,'Get_owner');
1335: END IF;
1336: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1337: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1338: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_GET_OWNER_ERR');
1339: FND_MSG_PUB.add;
1340: END IF;
1341: END get_owner;
1335: END IF;
1336: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1337: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1338: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_GET_OWNER_ERR');
1339: FND_MSG_PUB.add;
1340: END IF;
1341: END get_owner;
1342:
1343: ---------------------------------------------------------------------
1384:
1385: IF OZF_DEBUG_LOW_ON THEN
1386: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1387: FND_MESSAGE.Set_Token('TEXT','create task from template');
1388: FND_MSG_PUB.Add;
1389: END IF;
1390:
1391: -- Generate taks template
1392: JTF_TASKS_PUB.create_task_from_template(
1413:
1414: IF OZF_DEBUG_LOW_ON THEN
1415: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1416: FND_MESSAGE.Set_Token('TEXT','create task assignment');
1417: FND_MSG_PUB.Add;
1418: END IF;
1419:
1420: JTF_TASK_ASSIGNMENTS_PUB.create_task_assignment (
1421: p_api_version => l_api_version,
1446: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1447: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1448: WHEN OTHERS THEN
1449: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1450: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1451: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_TASK_API_ERR');
1452: FND_MSG_PUB.add;
1453: END IF;
1454: END generate_tasks;
1448: WHEN OTHERS THEN
1449: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1450: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1451: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_TASK_API_ERR');
1452: FND_MSG_PUB.add;
1453: END IF;
1454: END generate_tasks;
1455:
1456:
1594: WHEN FND_API.G_EXC_ERROR THEN
1595: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1596: WHEN OTHERS THEN
1597: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1598: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1599: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_WO_THRESHOLD_ERROR');
1600: FND_MSG_PUB.ADD;
1601: END IF;
1602: END get_write_off_threshold;
1596: WHEN OTHERS THEN
1597: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1598: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1599: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_WO_THRESHOLD_ERROR');
1600: FND_MSG_PUB.ADD;
1601: END IF;
1602: END get_write_off_threshold;
1603:
1604: ---------------------------------------------------------------------
1709:
1710: --If the exchange rate type is null then raise an error
1711: IF (l_exchange_rate_type IS NULL
1712: OR l_exchange_rate_type = FND_API.G_MISS_CHAR) THEN
1713: IF FND_MSG_PUB.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1714: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CONTYPE_MISSING');
1715: FND_MSG_PUB.add;
1716: END IF;
1717: RAISE FND_API.G_EXC_ERROR;
1711: IF (l_exchange_rate_type IS NULL
1712: OR l_exchange_rate_type = FND_API.G_MISS_CHAR) THEN
1713: IF FND_MSG_PUB.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1714: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CONTYPE_MISSING');
1715: FND_MSG_PUB.add;
1716: END IF;
1717: RAISE FND_API.G_EXC_ERROR;
1718: END IF;
1719: END IF;
1806: WHEN FND_API.G_EXC_ERROR THEN
1807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1808: WHEN OTHERS THEN
1809: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1810: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1811: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_WRITE_OFF_SETUP_ERR');
1812: FND_MSG_PUB.add;
1813: END IF;
1814:
1808: WHEN OTHERS THEN
1809: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1810: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1811: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_WRITE_OFF_SETUP_ERR');
1812: FND_MSG_PUB.add;
1813: END IF;
1814:
1815: END get_write_off_eligibility;
1816:
1897: IF l_claim_reason_code_id is NOT NULL THEN
1898: l_reason_code_id := l_claim_reason_code_id;
1899: ELSE
1900: -- Mapping for the custome reason is not available. Throw an exception
1901: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1902: THEN
1903: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_NO_REASON_MAPPING');
1904: FND_MSG_PUB.add;
1905: END IF;
1900: -- Mapping for the custome reason is not available. Throw an exception
1901: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1902: THEN
1903: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_NO_REASON_MAPPING');
1904: FND_MSG_PUB.add;
1905: END IF;
1906: RAISE FND_API.G_EXC_ERROR;
1907: END IF;
1908: END IF;
1988:
1989: IF x_pass = true THEN
1990: x_pass := p_claim.cust_account_id = l_info.cust_account_id;
1991: IF x_pass = false THEN
1992: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1993: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_DED_CUST_CHANGED');
1994: FND_MSG_PUB.ADD;
1995: END IF;
1996: END IF;
1990: x_pass := p_claim.cust_account_id = l_info.cust_account_id;
1991: IF x_pass = false THEN
1992: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1993: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_DED_CUST_CHANGED');
1994: FND_MSG_PUB.ADD;
1995: END IF;
1996: END IF;
1997: ELSE
1998: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1994: FND_MSG_PUB.ADD;
1995: END IF;
1996: END IF;
1997: ELSE
1998: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1999: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_DED_AMT_CHANGED');
2000: FND_MSG_PUB.ADD;
2001: END IF;
2002: END IF;
1996: END IF;
1997: ELSE
1998: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1999: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_DED_AMT_CHANGED');
2000: FND_MSG_PUB.ADD;
2001: END IF;
2002: END IF;
2003: END IF;
2004:
2008: -- mchang 04/21/2004: add p_mode checking for subsequent receipt amount update in case of split
2009: p_mode = 'MANU' THEN
2010: x_pass := p_claim.amount = l_info.amount;
2011: IF x_pass = false THEN
2012: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2013: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_CHLD_AMT_CHANGED');
2014: FND_MSG_PUB.ADD;
2015: END IF;
2016: END IF;
2010: x_pass := p_claim.amount = l_info.amount;
2011: IF x_pass = false THEN
2012: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2013: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_CHLD_AMT_CHANGED');
2014: FND_MSG_PUB.ADD;
2015: END IF;
2016: END IF;
2017: END IF;
2018:
2057:
2058: EXCEPTION
2059: WHEN OTHERS THEN
2060: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2061: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2062: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_AMOUNT_CHANGE_ERR');
2063: FND_MSG_PUB.add;
2064: END IF;
2065: END check_amount;
2059: WHEN OTHERS THEN
2060: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2061: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2062: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_AMOUNT_CHANGE_ERR');
2063: FND_MSG_PUB.add;
2064: END IF;
2065: END check_amount;
2066: ---------------------------------------------------------------------
2067: -- PROCEDURE
2107: x_return_status := FND_API.G_RET_STS_SUCCESS;
2108:
2109: IF ((p_claim_number is null) OR
2110: (p_claim_number = FND_API.G_MISS_CHAR)) THEN
2111: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2112: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_MISSING_CLAIM_NUM');
2113: FND_MSG_PUB.add;
2114: END IF;
2115: x_return_status := FND_API.g_ret_sts_error;
2109: IF ((p_claim_number is null) OR
2110: (p_claim_number = FND_API.G_MISS_CHAR)) THEN
2111: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2112: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_MISSING_CLAIM_NUM');
2113: FND_MSG_PUB.add;
2114: END IF;
2115: x_return_status := FND_API.g_ret_sts_error;
2116: ELSE
2117: -- claim_id will never be not null at this point.
2129: FETCH get_claim_id_num_csr INTO l_count;
2130: CLOSE get_claim_id_num_csr;
2131:
2132: IF l_count <> 0 THEN
2133: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2134: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DUP_CLAIM_NUM_NEW');
2135: FND_MSG_PUB.add;
2136: END IF;
2137: x_return_status := FND_API.g_ret_sts_error;
2131:
2132: IF l_count <> 0 THEN
2133: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2134: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DUP_CLAIM_NUM_NEW');
2135: FND_MSG_PUB.add;
2136: END IF;
2137: x_return_status := FND_API.g_ret_sts_error;
2138: END IF;
2139: ELSE
2144: FETCH get_count_csr INTO l_count;
2145: CLOSE get_count_csr;
2146:
2147: IF l_count <> 1 THEN
2148: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2149: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_ID_NUM_MISS');
2150: FND_MSG_PUB.add;
2151: END IF;
2152: x_return_status := FND_API.g_ret_sts_error;
2146:
2147: IF l_count <> 1 THEN
2148: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2149: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_ID_NUM_MISS');
2150: FND_MSG_PUB.add;
2151: END IF;
2152: x_return_status := FND_API.g_ret_sts_error;
2153: ELSE
2154: l_count := 0;
2156: FETCH get_claim_id_num_csr INTO l_count;
2157: CLOSE get_claim_id_num_csr;
2158:
2159: IF l_count <> 1 THEN
2160: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2161: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DUP_CLAIM_NUM');
2162: FND_MSG_PUB.add;
2163: END IF;
2164: x_return_status := FND_API.g_ret_sts_error;
2158:
2159: IF l_count <> 1 THEN
2160: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2161: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DUP_CLAIM_NUM');
2162: FND_MSG_PUB.add;
2163: END IF;
2164: x_return_status := FND_API.g_ret_sts_error;
2165: END IF;
2166: END IF;
2168: END IF;
2169:
2170: EXCEPTION
2171: WHEN OTHERS THEN
2172: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2173: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_NUM_CHECK_ERROR');
2174: FND_MSG_PUB.add;
2175: END IF;
2176: x_return_status := FND_API.g_ret_sts_unexp_error;
2170: EXCEPTION
2171: WHEN OTHERS THEN
2172: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2173: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_NUM_CHECK_ERROR');
2174: FND_MSG_PUB.add;
2175: END IF;
2176: x_return_status := FND_API.g_ret_sts_unexp_error;
2177: END check_claim_number;
2178:
2309: (p_claim.exchange_rate <> l_deduction_info.exchange_rate) OR
2310: (p_claim.amount <> l_deduction_info.amount)) THEN
2311:
2312: x_pass := false;
2313: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2314: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_DED_AMT_CHANGED');
2315: FND_MSG_PUB.ADD;
2316: END IF;
2317: END IF;
2311:
2312: x_pass := false;
2313: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2314: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_DED_AMT_CHANGED');
2315: FND_MSG_PUB.ADD;
2316: END IF;
2317: END IF;
2318: END IF; -- End of BUG#2781186
2319:
2318: END IF; -- End of BUG#2781186
2319:
2320: IF p_claim.cust_account_id <> l_deduction_info.cust_account_id THEN
2321: x_pass := false;
2322: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2323: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_DED_CUST_CHANGED');
2324: FND_MSG_PUB.ADD;
2325: END IF;
2326: END IF;
2320: IF p_claim.cust_account_id <> l_deduction_info.cust_account_id THEN
2321: x_pass := false;
2322: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2323: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_DED_CUST_CHANGED');
2324: FND_MSG_PUB.ADD;
2325: END IF;
2326: END IF;
2327:
2328: EXCEPTION
2327:
2328: EXCEPTION
2329: WHEN OTHERS THEN
2330: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2331: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2332: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DED_CHK_ERR');
2333: FND_MSG_PUB.add;
2334: END IF;
2335: END check_deduction;
2329: WHEN OTHERS THEN
2330: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2331: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2332: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DED_CHK_ERR');
2333: FND_MSG_PUB.add;
2334: END IF;
2335: END check_deduction;
2336:
2337: ---------------------------------------------------------------------
2372: OPEN c_claim(p_claim_rec.claim_id);
2373: FETCH c_claim INTO l_claim_rec;
2374: IF c_claim%NOTFOUND THEN
2375: CLOSE c_claim;
2376: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2377: FND_MESSAGE.set_name('OZF','OZF_API_RECORD_NOT_FOUND');
2378: FND_MSG_PUB.add;
2379: END IF;
2380: RAISE FND_API.g_exc_error;
2374: IF c_claim%NOTFOUND THEN
2375: CLOSE c_claim;
2376: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2377: FND_MESSAGE.set_name('OZF','OZF_API_RECORD_NOT_FOUND');
2378: FND_MSG_PUB.add;
2379: END IF;
2380: RAISE FND_API.g_exc_error;
2381: END IF;
2382: CLOSE c_claim;
3216: EXCEPTION
3217: WHEN FND_API.G_EXC_ERROR THEN
3218: x_return_status := FND_API.G_RET_STS_ERROR;
3219: WHEN OTHERS THEN
3220: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3221: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_COMPLETE_ERROR');
3222: FND_MSG_PUB.add;
3223: END IF;
3224: x_return_status := FND_API.g_ret_sts_unexp_error;
3218: x_return_status := FND_API.G_RET_STS_ERROR;
3219: WHEN OTHERS THEN
3220: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3221: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_COMPLETE_ERROR');
3222: FND_MSG_PUB.add;
3223: END IF;
3224: x_return_status := FND_API.g_ret_sts_unexp_error;
3225: END Complete_Claim_Rec;
3226: ---------------------------------------------------------------------
3423: -- Debug Message
3424: IF OZF_DEBUG_LOW_ON THEN
3425: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
3426: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
3427: FND_MSG_PUB.Add;
3428: END IF;
3429: --Initialize message list if p_init_msg_list is TRUE.
3430: IF FND_API.To_Boolean (p_init_msg_list) THEN
3431: FND_MSG_PUB.initialize;
3427: FND_MSG_PUB.Add;
3428: END IF;
3429: --Initialize message list if p_init_msg_list is TRUE.
3430: IF FND_API.To_Boolean (p_init_msg_list) THEN
3431: FND_MSG_PUB.initialize;
3432: END IF;
3433:
3434: -- Initialize API return status to sucess
3435: x_return_status := FND_API.G_RET_STS_SUCCESS;
3451: l_claim.claim_class <> G_CHARGE_CLASS AND
3452: l_claim.claim_class <> G_GROUP_CLASS
3453: THEN
3454:
3455: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
3456: THEN
3457: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CLAIM_CLASS_WRG');
3458: FND_MSG_PUB.add;
3459: END IF;
3454:
3455: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
3456: THEN
3457: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CLAIM_CLASS_WRG');
3458: FND_MSG_PUB.add;
3459: END IF;
3460: RAISE FND_API.G_EXC_ERROR;
3461: END IF;
3462: END IF;
3463:
3464: IF l_claim.cust_account_id is NULL OR
3465: l_claim.cust_account_id = FND_API.G_MISS_NUM
3466: 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_CUST_ID_MISSING');
3469: FND_MSG_PUB.Add;
3470: END IF;
3471: RAISE FND_API.G_EXC_ERROR;
3465: l_claim.cust_account_id = FND_API.G_MISS_NUM
3466: 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_CUST_ID_MISSING');
3469: FND_MSG_PUB.Add;
3470: END IF;
3471: RAISE FND_API.G_EXC_ERROR;
3472: END IF;
3473:
3523:
3524: IF l_claim.custom_setup_id is NULL OR
3525: l_claim.custom_setup_id = FND_API.G_MISS_NUM
3526: THEN
3527: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
3528: THEN
3529: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CUST_SETUP_MISSING');
3530: FND_MSG_PUB.add;
3531: END IF;
3526: THEN
3527: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
3528: THEN
3529: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CUST_SETUP_MISSING');
3530: FND_MSG_PUB.add;
3531: END IF;
3532: RAISE FND_API.G_EXC_ERROR;
3533: END IF;
3534:
3542:
3543: IF l_claim.claim_type_id is NULL OR
3544: l_claim.claim_type_id = FND_API.G_MISS_NUM
3545: THEN
3546: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3547: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CLAIM_TYPE_MISSING');
3548: FND_MSG_PUB.Add;
3549: END IF;
3550: RAISE FND_API.G_EXC_ERROR;
3544: l_claim.claim_type_id = FND_API.G_MISS_NUM
3545: THEN
3546: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3547: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CLAIM_TYPE_MISSING');
3548: FND_MSG_PUB.Add;
3549: END IF;
3550: RAISE FND_API.G_EXC_ERROR;
3551: END IF;
3552:
3561:
3562: -- End Bug: 2732290 -----------------------------------------------------------
3563: IF l_claim.reason_code_id is NULL
3564: THEN
3565: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3566: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_REASON_CD_MISSING');
3567: FND_MSG_PUB.Add;
3568: END IF;
3569: RAISE FND_API.G_EXC_ERROR;
3563: IF l_claim.reason_code_id is NULL
3564: THEN
3565: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3566: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_REASON_CD_MISSING');
3567: FND_MSG_PUB.Add;
3568: END IF;
3569: RAISE FND_API.G_EXC_ERROR;
3570: END IF;
3571: --End of defalting values from Claim defaults.
3578:
3579: IF OZF_DEBUG_LOW_ON THEN
3580: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
3581: FND_MESSAGE.Set_Token('TEXT','l_claim.amount='||l_claim.amount);
3582: FND_MSG_PUB.Add;
3583: END IF;
3584:
3585: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3586: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_AMOUNT_MISSING');
3581: FND_MESSAGE.Set_Token('TEXT','l_claim.amount='||l_claim.amount);
3582: FND_MSG_PUB.Add;
3583: END IF;
3584:
3585: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3586: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_AMOUNT_MISSING');
3587: FND_MSG_PUB.Add;
3588: END IF;
3589: RAISE FND_API.G_EXC_ERROR;
3583: END IF;
3584:
3585: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3586: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_AMOUNT_MISSING');
3587: FND_MSG_PUB.Add;
3588: END IF;
3589: RAISE FND_API.G_EXC_ERROR;
3590: END IF;
3591:
3595: /* OPEN org_id_csr;
3596: FETCH org_id_csr INTO l_org_id;
3597: IF org_id_csr%NOTFOUND THEN
3598: CLOSE org_id_csr;
3599: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
3600: fnd_message.set_name('OZF', 'OZF_CLAIM_ORG_ID_MISSING');
3601: fnd_msg_pub.add;
3602: END IF;
3603: RAISE fnd_api.g_exc_error;
3597: IF org_id_csr%NOTFOUND THEN
3598: CLOSE org_id_csr;
3599: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
3600: fnd_message.set_name('OZF', 'OZF_CLAIM_ORG_ID_MISSING');
3601: fnd_msg_pub.add;
3602: END IF;
3603: RAISE fnd_api.g_exc_error;
3604: END IF;
3605: CLOSE org_id_csr;
3625: -- BUG 4600325 is fixed.
3626: IF l_claim.legal_entity_id is NULL OR
3627: l_claim.legal_entity_id = FND_API.G_MISS_NUM
3628: THEN
3629: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3630: FND_MESSAGE.Set_Name('OZF','OZF_LE_FOR_CLAIM_MISSING');
3631: FND_MSG_PUB.Add;
3632: END IF;
3633: RAISE FND_API.G_EXC_ERROR;
3627: l_claim.legal_entity_id = FND_API.G_MISS_NUM
3628: THEN
3629: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3630: FND_MESSAGE.Set_Name('OZF','OZF_LE_FOR_CLAIM_MISSING');
3631: FND_MSG_PUB.Add;
3632: END IF;
3633: RAISE FND_API.G_EXC_ERROR;
3634: END IF;
3635:
3666: FETCH claim_number_count_csr INTO l_count;
3667: CLOSE claim_number_count_csr;
3668:
3669: IF l_count > 0 THEN
3670: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3671: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DUP_CLAIM_NUM');
3672: FND_MSG_PUB.add;
3673: END IF;
3674: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3668:
3669: IF l_count > 0 THEN
3670: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3671: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DUP_CLAIM_NUM');
3672: FND_MSG_PUB.add;
3673: END IF;
3674: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3675: END IF;
3676: END IF;
3887: CLOSE exchange_rate_type_csr;
3888:
3889: IF l_claim.exchange_rate_type is null OR
3890: l_claim.exchange_rate_type = FND_API.G_MISS_CHAR THEN
3891: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
3892: fnd_message.set_name('OZF', 'OZF_CLAIM_CONTYPE_MISSING');
3893: fnd_msg_pub.add;
3894: END IF;
3895: RAISE fnd_api.g_exc_error;
3889: IF l_claim.exchange_rate_type is null OR
3890: l_claim.exchange_rate_type = FND_API.G_MISS_CHAR THEN
3891: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
3892: fnd_message.set_name('OZF', 'OZF_CLAIM_CONTYPE_MISSING');
3893: fnd_msg_pub.add;
3894: END IF;
3895: RAISE fnd_api.g_exc_error;
3896: END IF;
3897: END IF;
4166: p_close_status_id => l_claim.close_status_id
4167: );
4168: EXCEPTION
4169: WHEN OTHERS THEN
4170: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4171: FND_MESSAGE.set_name('OZF', 'OZF_TABLE_HANDLER_ERROR');
4172: FND_MSG_PUB.add;
4173: END IF;
4174: RAISE FND_API.g_exc_error;
4168: EXCEPTION
4169: WHEN OTHERS THEN
4170: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4171: FND_MESSAGE.set_name('OZF', 'OZF_TABLE_HANDLER_ERROR');
4172: FND_MSG_PUB.add;
4173: END IF;
4174: RAISE FND_API.g_exc_error;
4175: END;
4176:
4188:
4189: IF OZF_DEBUG_LOW_ON THEN
4190: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
4191: FND_MESSAGE.Set_Token('TEXT','After generate_task: '|| l_return_status);
4192: FND_MSG_PUB.Add;
4193: END IF;
4194: END IF;
4195:
4196: IF l_return_status = FND_API.g_ret_sts_error THEN
4289: -- Debug Message
4290: IF OZF_DEBUG_LOW_ON THEN
4291: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
4292: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
4293: FND_MSG_PUB.Add;
4294: END IF;
4295:
4296: --Standard call to get message count AND if count=1, get the message
4297: FND_MSG_PUB.Count_And_Get (
4293: FND_MSG_PUB.Add;
4294: END IF;
4295:
4296: --Standard call to get message count AND if count=1, get the message
4297: FND_MSG_PUB.Count_And_Get (
4298: p_encoded => FND_API.G_FALSE,
4299: p_count => x_msg_count,
4300: p_data => x_msg_data
4301: );
4303: WHEN FND_API.G_EXC_ERROR THEN
4304: ROLLBACK TO Create_Claim_PVT;
4305: x_return_status := FND_API.G_RET_STS_ERROR;
4306: -- Standard call to get message count AND if count=1, get the message
4307: FND_MSG_PUB.Count_And_Get (
4308: p_encoded => FND_API.G_FALSE,
4309: p_count => x_msg_count,
4310: p_data => x_msg_data
4311: );
4312: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4313: ROLLBACK TO Create_Claim_PVT;
4314: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4315: -- Standard call to get message count AND if count=1, get the message
4316: FND_MSG_PUB.Count_And_Get (
4317: p_encoded => FND_API.G_FALSE,
4318: p_count => x_msg_count,
4319: p_data => x_msg_data
4320: );
4320: );
4321: WHEN OTHERS THEN
4322: ROLLBACK TO Create_Claim_PVT;
4323: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4324: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4325: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4326: END IF;
4327: -- Standard call to get message count AND if count=1, get the message
4328: FND_MSG_PUB.Count_And_Get (
4321: WHEN OTHERS THEN
4322: ROLLBACK TO Create_Claim_PVT;
4323: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4324: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4325: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4326: END IF;
4327: -- Standard call to get message count AND if count=1, get the message
4328: FND_MSG_PUB.Count_And_Get (
4329: p_encoded => FND_API.G_FALSE,
4324: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4325: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4326: END IF;
4327: -- Standard call to get message count AND if count=1, get the message
4328: FND_MSG_PUB.Count_And_Get (
4329: p_encoded => FND_API.G_FALSE,
4330: p_count => x_msg_count,
4331: p_data => x_msg_data
4332: );
4445: -- Debug Message
4446: IF OZF_DEBUG_LOW_ON THEN
4447: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
4448: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
4449: FND_MSG_PUB.Add;
4450: END IF;
4451: --Initialize message list if p_init_msg_list is TRUE.
4452: IF FND_API.To_Boolean (p_init_msg_list) THEN
4453: FND_MSG_PUB.initialize;
4449: FND_MSG_PUB.Add;
4450: END IF;
4451: --Initialize message list if p_init_msg_list is TRUE.
4452: IF FND_API.To_Boolean (p_init_msg_list) THEN
4453: FND_MSG_PUB.initialize;
4454: END IF;
4455: -- Initialize API return status to sucess
4456: x_return_status := FND_API.G_RET_STS_SUCCESS;
4457:
4517: l_index := l_index +1;
4518: END LOOP;
4519: END IF;
4520: ELSE
4521: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4522: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_DEL_CLAIM');
4523: FND_MSG_PUB.add;
4524: END IF;
4525: END IF;
4519: END IF;
4520: ELSE
4521: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4522: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_DEL_CLAIM');
4523: FND_MSG_PUB.add;
4524: END IF;
4525: END IF;
4526: ELSE
4527: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4523: FND_MSG_PUB.add;
4524: END IF;
4525: END IF;
4526: ELSE
4527: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4528: FND_MESSAGE.set_name('OZF', 'OZF_REC_VERSION_CHANGED');
4529: FND_MSG_PUB.add;
4530: END IF;
4531: RAISE FND_API.g_exc_error;
4525: END IF;
4526: ELSE
4527: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4528: FND_MESSAGE.set_name('OZF', 'OZF_REC_VERSION_CHANGED');
4529: FND_MSG_PUB.add;
4530: END IF;
4531: RAISE FND_API.g_exc_error;
4532: END IF;
4533:
4538: -- Debug Message
4539: IF OZF_DEBUG_LOW_ON THEN
4540: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
4541: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
4542: FND_MSG_PUB.Add;
4543: END IF;
4544:
4545: --Standard call to get message count AND if count=1, get the message
4546: FND_MSG_PUB.Count_And_Get (
4542: FND_MSG_PUB.Add;
4543: END IF;
4544:
4545: --Standard call to get message count AND if count=1, get the message
4546: FND_MSG_PUB.Count_And_Get (
4547: p_encoded => FND_API.G_FALSE,
4548: p_count => x_msg_count,
4549: p_data => x_msg_data
4550: );
4552: WHEN FND_API.G_EXC_ERROR THEN
4553: ROLLBACK TO Val_Delete_Claim_PVT;
4554: x_return_status := FND_API.G_RET_STS_ERROR;
4555: -- Standard call to get message count AND if count=1, get the message
4556: FND_MSG_PUB.Count_And_Get (
4557: p_encoded => FND_API.G_FALSE,
4558: p_count => x_msg_count,
4559: p_data => x_msg_data
4560: );
4561: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4562: ROLLBACK TO Val_Delete_Claim_PVT;
4563: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4564: -- Standard call to get message count AND if count=1, get the message
4565: FND_MSG_PUB.Count_And_Get (
4566: p_encoded => FND_API.G_FALSE,
4567: p_count => x_msg_count,
4568: p_data => x_msg_data
4569: );
4569: );
4570: WHEN OTHERS THEN
4571: ROLLBACK TO Val_Delete_Claim_PVT;
4572: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4573: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4574: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4575: END IF;
4576: -- Standard call to get message count AND if count=1, get the message
4577: FND_MSG_PUB.Count_And_Get (
4570: WHEN OTHERS THEN
4571: ROLLBACK TO Val_Delete_Claim_PVT;
4572: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4573: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4574: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4575: END IF;
4576: -- Standard call to get message count AND if count=1, get the message
4577: FND_MSG_PUB.Count_And_Get (
4578: p_encoded => FND_API.G_FALSE,
4573: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4574: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4575: END IF;
4576: -- Standard call to get message count AND if count=1, get the message
4577: FND_MSG_PUB.Count_And_Get (
4578: p_encoded => FND_API.G_FALSE,
4579: p_count => x_msg_count,
4580: p_data => x_msg_data
4581: );
4684: -- Debug Message
4685: IF OZF_DEBUG_LOW_ON THEN
4686: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
4687: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
4688: FND_MSG_PUB.Add;
4689: END IF;
4690: --Initialize message list if p_init_msg_list is TRUE.
4691: IF FND_API.To_Boolean (p_init_msg_list) THEN
4692: FND_MSG_PUB.initialize;
4688: FND_MSG_PUB.Add;
4689: END IF;
4690: --Initialize message list if p_init_msg_list is TRUE.
4691: IF FND_API.To_Boolean (p_init_msg_list) THEN
4692: FND_MSG_PUB.initialize;
4693: END IF;
4694: -- Initialize API return status to sucess
4695: x_return_status := FND_API.G_RET_STS_SUCCESS;
4696:
4813: END IF;
4814:
4815: OZF_claims_PKG.Delete_Row(p_object_id);
4816: ELSE
4817: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4818: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_DEL_CLAIM');
4819: FND_MSG_PUB.add;
4820: END IF;
4821: END IF;
4815: OZF_claims_PKG.Delete_Row(p_object_id);
4816: ELSE
4817: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4818: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_DEL_CLAIM');
4819: FND_MSG_PUB.add;
4820: END IF;
4821: END IF;
4822:
4823: ELSE
4820: END IF;
4821: END IF;
4822:
4823: ELSE
4824: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4825: FND_MESSAGE.set_name('OZF', 'OZF_REC_VERSION_CHANGED');
4826: FND_MSG_PUB.add;
4827: END IF;
4828: RAISE FND_API.g_exc_error;
4822:
4823: ELSE
4824: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4825: FND_MESSAGE.set_name('OZF', 'OZF_REC_VERSION_CHANGED');
4826: FND_MSG_PUB.add;
4827: END IF;
4828: RAISE FND_API.g_exc_error;
4829: END IF;
4830:
4836: -- Debug Message
4837: IF OZF_DEBUG_LOW_ON THEN
4838: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
4839: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
4840: FND_MSG_PUB.Add;
4841: END IF;
4842:
4843: --Standard call to get message count and if count=1, get the message
4844: FND_MSG_PUB.Count_And_Get (
4840: FND_MSG_PUB.Add;
4841: END IF;
4842:
4843: --Standard call to get message count and if count=1, get the message
4844: FND_MSG_PUB.Count_And_Get (
4845: p_encoded => FND_API.G_FALSE,
4846: p_count => x_msg_count,
4847: p_data => x_msg_data
4848: );
4850: WHEN FND_API.G_EXC_ERROR THEN
4851: ROLLBACK TO Delete_Claim_PVT;
4852: x_return_status := FND_API.G_RET_STS_ERROR;
4853: -- Standard call to get message count and if count=1, get the message
4854: FND_MSG_PUB.Count_And_Get (
4855: p_encoded => FND_API.G_FALSE,
4856: p_count => x_msg_count,
4857: p_data => x_msg_data
4858: );
4859: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4860: ROLLBACK TO Delete_Claim_PVT;
4861: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4862: -- Standard call to get message count and if count=1, get the message
4863: FND_MSG_PUB.Count_And_Get (
4864: p_encoded => FND_API.G_FALSE,
4865: p_count => x_msg_count,
4866: p_data => x_msg_data
4867: );
4867: );
4868: WHEN OTHERS THEN
4869: ROLLBACK TO Delete_Claim_PVT;
4870: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4871: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4872: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4873: END IF;
4874: -- Standard call to get message count and if count=1, get the message
4875: FND_MSG_PUB.Count_And_Get (
4868: WHEN OTHERS THEN
4869: ROLLBACK TO Delete_Claim_PVT;
4870: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4871: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4872: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4873: END IF;
4874: -- Standard call to get message count and if count=1, get the message
4875: FND_MSG_PUB.Count_And_Get (
4876: p_encoded => FND_API.G_FALSE,
4871: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4872: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4873: END IF;
4874: -- Standard call to get message count and if count=1, get the message
4875: FND_MSG_PUB.Count_And_Get (
4876: p_encoded => FND_API.G_FALSE,
4877: p_count => x_msg_count,
4878: p_data => x_msg_data
4879: );
4962: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4963: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4964: WHEN OTHERS THEN
4965: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4966: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4967: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_REASON_CHANGE_ERR');
4968: FND_MSG_PUB.add;
4969: END IF;
4970: END reason_changed;
4964: WHEN OTHERS THEN
4965: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4966: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4967: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_REASON_CHANGE_ERR');
4968: FND_MSG_PUB.add;
4969: END IF;
4970: END reason_changed;
4971:
4972: ---------------------------------------------------------------------
5030: -- Debug Message
5031: IF OZF_DEBUG_LOW_ON THEN
5032: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
5033: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
5034: FND_MSG_PUB.Add;
5035: END IF;
5036: --Initialize message list if p_init_msg_list is TRUE.
5037: IF FND_API.To_Boolean (p_init_msg_list) THEN
5038: FND_MSG_PUB.initialize;
5034: FND_MSG_PUB.Add;
5035: END IF;
5036: --Initialize message list if p_init_msg_list is TRUE.
5037: IF FND_API.To_Boolean (p_init_msg_list) THEN
5038: FND_MSG_PUB.initialize;
5039: END IF;
5040: -- Initialize API return status to sucess
5041: x_return_status := FND_API.G_RET_STS_SUCCESS;
5042:
5101: -- Debug Message
5102: IF OZF_DEBUG_LOW_ON THEN
5103: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
5104: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
5105: FND_MSG_PUB.Add;
5106: END IF;
5107: --Standard call to get message count and if count=1, get the message
5108: FND_MSG_PUB.Count_And_Get (
5109: p_encoded => FND_API.G_FALSE,
5104: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
5105: FND_MSG_PUB.Add;
5106: END IF;
5107: --Standard call to get message count and if count=1, get the message
5108: FND_MSG_PUB.Count_And_Get (
5109: p_encoded => FND_API.G_FALSE,
5110: p_count => x_msg_count,
5111: p_data => x_msg_data
5112: );
5114: WHEN FND_API.G_EXC_ERROR THEN
5115: ROLLBACK TO Create_Claim_Hist_PVT;
5116: x_return_status := FND_API.G_RET_STS_ERROR;
5117: -- Standard call to get message count and if count=1, get the message
5118: FND_MSG_PUB.Count_And_Get (
5119: p_encoded => FND_API.G_FALSE,
5120: p_count => x_msg_count,
5121: p_data => x_msg_data
5122: );
5123: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5124: ROLLBACK TO Create_Claim_Hist_PVT;
5125: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5126: -- Standard call to get message count and if count=1, get the message
5127: FND_MSG_PUB.Count_And_Get (
5128: p_encoded => FND_API.G_FALSE,
5129: p_count => x_msg_count,
5130: p_data => x_msg_data
5131: );
5131: );
5132: WHEN OTHERS THEN
5133: ROLLBACK TO Create_Claim_Hist_PVT;
5134: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5135: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5136: THEN
5137: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5138: END IF;
5139: -- Standard call to get message count and if count=1, get the message
5133: ROLLBACK TO Create_Claim_Hist_PVT;
5134: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5135: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5136: THEN
5137: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5138: END IF;
5139: -- Standard call to get message count and if count=1, get the message
5140: FND_MSG_PUB.Count_And_Get (
5141: p_encoded => FND_API.G_FALSE,
5136: THEN
5137: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5138: END IF;
5139: -- Standard call to get message count and if count=1, get the message
5140: FND_MSG_PUB.Count_And_Get (
5141: p_encoded => FND_API.G_FALSE,
5142: p_count => x_msg_count,
5143: p_data => x_msg_data
5144: );
5396: -- Debug Message
5397: IF OZF_DEBUG_LOW_ON THEN
5398: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
5399: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
5400: FND_MSG_PUB.Add;
5401: END IF;
5402: --Initialize message list if p_init_msg_list is TRUE.
5403: IF FND_API.To_Boolean (p_init_msg_list) THEN
5404: FND_MSG_PUB.initialize;
5400: FND_MSG_PUB.Add;
5401: END IF;
5402: --Initialize message list if p_init_msg_list is TRUE.
5403: IF FND_API.To_Boolean (p_init_msg_list) THEN
5404: FND_MSG_PUB.initialize;
5405: END IF;
5406: -- Initialize API return status to sucess
5407: x_return_status := FND_API.G_RET_STS_SUCCESS;
5408:
5408:
5409: -- Varify object_version_number
5410: IF (l_claim.object_version_number is NULL or
5411: l_claim.object_version_number = FND_API.G_MISS_NUM ) THEN
5412: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5413: FND_MESSAGE.Set_Name('OZF', 'OZF_API_NO_OBJ_VER_NUM');
5414: FND_MSG_PUB.ADD;
5415: END IF;
5416: RAISE FND_API.G_EXC_ERROR;
5410: IF (l_claim.object_version_number is NULL or
5411: l_claim.object_version_number = FND_API.G_MISS_NUM ) THEN
5412: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5413: FND_MESSAGE.Set_Name('OZF', 'OZF_API_NO_OBJ_VER_NUM');
5414: FND_MSG_PUB.ADD;
5415: END IF;
5416: RAISE FND_API.G_EXC_ERROR;
5417: END IF;
5418:
5420: FETCH object_version_number_csr INTO l_object_version_number;
5421: CLOSE object_version_number_csr;
5422:
5423: IF l_object_version_number <> l_claim.object_version_number THEN
5424: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5425: FND_MESSAGE.Set_Name('OZF', 'OZF_API_RESOURCE_LOCKED');
5426: FND_MSG_PUB.ADD;
5427: END IF;
5428: RAISE FND_API.G_EXC_ERROR;
5422:
5423: IF l_object_version_number <> l_claim.object_version_number THEN
5424: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5425: FND_MESSAGE.Set_Name('OZF', 'OZF_API_RESOURCE_LOCKED');
5426: FND_MSG_PUB.ADD;
5427: END IF;
5428: RAISE FND_API.G_EXC_ERROR;
5429: END IF;
5430:
5467: X_Msg_Data => l_msg_data,
5468: X_access => l_access);
5469:
5470: IF l_access = 'N' THEN
5471: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5472: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_NO_ACCESS');
5473: FND_MSG_PUB.Add;
5474: END IF;
5475: RAISE FND_API.G_EXC_ERROR;
5469:
5470: IF l_access = 'N' THEN
5471: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5472: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_NO_ACCESS');
5473: FND_MSG_PUB.Add;
5474: END IF;
5475: RAISE FND_API.G_EXC_ERROR;
5476: END IF;
5477: END IF;
5588: -- Reason is a required field when the claim is updated.
5589: IF l_claim.reason_code_id is null
5590: OR l_claim.reason_code_id = FND_API.G_MISS_NUM
5591: THEN
5592: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5593: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_REASON_CD_MISSING');
5594: FND_MSG_PUB.Add;
5595: END IF;
5596: RAISE FND_API.G_EXC_ERROR;
5590: OR l_claim.reason_code_id = FND_API.G_MISS_NUM
5591: THEN
5592: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5593: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_REASON_CD_MISSING');
5594: FND_MSG_PUB.Add;
5595: END IF;
5596: RAISE FND_API.G_EXC_ERROR;
5597: END IF;
5598: -- End Bug: 3359914 -----------------------------------------------------------
5657: -- if user change status to dupliate, we need to have duplicate_claim_id as inputs
5658: IF l_claim.status_code = G_DUPLICATE_STATUS THEN
5659: IF l_claim.duplicate_claim_id is null OR
5660: l_claim.duplicate_claim_id = FND_API.G_MISS_NUM THEN
5661: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5662: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DUP_CLM_ID_MISSING');
5663: FND_MSG_PUB.add;
5664: END IF;
5665: RAISE FND_API.G_EXC_ERROR;
5659: IF l_claim.duplicate_claim_id is null OR
5660: l_claim.duplicate_claim_id = FND_API.G_MISS_NUM THEN
5661: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5662: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DUP_CLM_ID_MISSING');
5663: FND_MSG_PUB.add;
5664: END IF;
5665: RAISE FND_API.G_EXC_ERROR;
5666: END IF;
5667:
5667:
5668: -- Raise an error
5669: -- if the duplicate_claim_id equal to the current claim_id
5670: IF l_claim.duplicate_claim_id = l_claim.claim_id THEN
5671: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5672: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_DUP_ID_SAME');
5673: FND_MSG_PUB.Add;
5674: END IF;
5675: RAISE FND_API.G_EXC_ERROR;
5669: -- if the duplicate_claim_id equal to the current claim_id
5670: IF l_claim.duplicate_claim_id = l_claim.claim_id THEN
5671: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5672: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_DUP_ID_SAME');
5673: FND_MSG_PUB.Add;
5674: END IF;
5675: RAISE FND_API.G_EXC_ERROR;
5676: END IF;
5677: END IF;
5693: -- (OZF_access_PVT.Check_Admin_Access(l_resource_id) = false)) THEN
5694: IF ((l_old_owner_id <> l_resource_id) AND
5695: (l_access <> 'F') AND
5696: (p_mode = OZF_claim_Utility_pvt.G_MANU_MODE) ) THEN
5697: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5698: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_UPDT_OWNER_PERM');
5699: FND_MSG_PUB.ADD;
5700: END IF;
5701: RAISE FND_API.G_EXC_ERROR;
5695: (l_access <> 'F') AND
5696: (p_mode = OZF_claim_Utility_pvt.G_MANU_MODE) ) THEN
5697: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5698: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_UPDT_OWNER_PERM');
5699: FND_MSG_PUB.ADD;
5700: END IF;
5701: RAISE FND_API.G_EXC_ERROR;
5702: END IF;
5703: -- delete access for the current owner
5842: END LOOP;
5843: END IF;
5844: ELSE
5845: -- Should never be in this block.
5846: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5847: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_UPDATE_OWNER_ERR');
5848: FND_MSG_PUB.add;
5849: END IF;
5850: RAISE FND_API.g_exc_error;
5844: ELSE
5845: -- Should never be in this block.
5846: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5847: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_UPDATE_OWNER_ERR');
5848: FND_MSG_PUB.add;
5849: END IF;
5850: RAISE FND_API.g_exc_error;
5851: END IF;
5852: END IF;
5859: OPEN gp_func_currency_cd_csr;
5860: FETCH gp_func_currency_cd_csr INTO l_functional_currency_code;
5861: IF gp_func_currency_cd_csr%NOTFOUND THEN
5862: CLOSE gp_func_currency_cd_csr;
5863: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
5864: fnd_message.set_name('OZF', 'OZF_CLAIM_GL_FUNCUR_MISSING');
5865: fnd_msg_pub.add;
5866: END IF;
5867: RAISE fnd_api.g_exc_error;
5861: IF gp_func_currency_cd_csr%NOTFOUND THEN
5862: CLOSE gp_func_currency_cd_csr;
5863: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
5864: fnd_message.set_name('OZF', 'OZF_CLAIM_GL_FUNCUR_MISSING');
5865: fnd_msg_pub.add;
5866: END IF;
5867: RAISE fnd_api.g_exc_error;
5868: END IF;
5869: CLOSE gp_func_currency_cd_csr;
5874: -- We need to make sure that exchange_type is not null
5875: IF l_claim.currency_code <> l_functional_currency_code THEN
5876: IF l_claim.exchange_rate_type is null OR
5877: l_claim.exchange_rate_type = FND_API.G_MISS_CHAR THEN
5878: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
5879: fnd_message.set_name('OZF', 'OZF_CLAIM_CONTYPE_MISSING');
5880: fnd_msg_pub.add;
5881: END IF;
5882: RAISE fnd_api.g_exc_error;
5876: IF l_claim.exchange_rate_type is null OR
5877: l_claim.exchange_rate_type = FND_API.G_MISS_CHAR THEN
5878: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
5879: fnd_message.set_name('OZF', 'OZF_CLAIM_CONTYPE_MISSING');
5880: fnd_msg_pub.add;
5881: END IF;
5882: RAISE fnd_api.g_exc_error;
5883: END IF;
5884:
5977: IF p_mode <> OZF_claim_Utility_pvt.G_AUTO_MODE THEN --Bug:2781186
5978: IF l_claim.status_code NOT IN ('PENDING_CLOSE', 'CLOSED') AND
5979: ABS(l_claim.amount_remaining + l_claim.amount_settled) < ABS(l_claim_lines_sum) THEN
5980: -- [END FIX 04/29/02]
5981: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5982: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_AMT_REM_ERR');
5983: FND_MSG_PUB.add;
5984: END IF;
5985: RAISE FND_API.g_exc_error;
5979: ABS(l_claim.amount_remaining + l_claim.amount_settled) < ABS(l_claim_lines_sum) THEN
5980: -- [END FIX 04/29/02]
5981: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5982: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_AMT_REM_ERR');
5983: FND_MSG_PUB.add;
5984: END IF;
5985: RAISE FND_API.g_exc_error;
5986: END IF;
5987: END IF; --End of relaxation.
6190: -- message stack only allow to initialize in the begining
6191: -- of api, not at this point.
6192: /*
6193: IF FND_API.To_Boolean (p_init_msg_list) THEN
6194: FND_MSG_PUB.initialize;
6195: END IF;
6196: */
6197:
6198: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6194: FND_MSG_PUB.initialize;
6195: END IF;
6196: */
6197:
6198: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6199: FND_MESSAGE.Set_Name('AMS', 'OZF_CLAIM_API_NO_OPEN_STATUS');
6200: FND_MSG_PUB.ADD;
6201: END IF;
6202: RAISE FND_API.G_EXC_ERROR;
6196: */
6197:
6198: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6199: FND_MESSAGE.Set_Name('AMS', 'OZF_CLAIM_API_NO_OPEN_STATUS');
6200: FND_MSG_PUB.ADD;
6201: END IF;
6202: RAISE FND_API.G_EXC_ERROR;
6203: END IF;
6204: -- End Bug: 2732290 -----------------------------------------------------------
6350: );
6351:
6352: EXCEPTION
6353: WHEN OTHERS THEN
6354: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
6355: FND_MESSAGE.set_name('OZF', 'OZF_TABLE_HANDLER_ERROR');
6356: FND_MSG_PUB.add;
6357: END IF;
6358: RAISE FND_API.g_exc_error;
6352: EXCEPTION
6353: WHEN OTHERS THEN
6354: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
6355: FND_MESSAGE.set_name('OZF', 'OZF_TABLE_HANDLER_ERROR');
6356: FND_MSG_PUB.add;
6357: END IF;
6358: RAISE FND_API.g_exc_error;
6359: END;
6360: l_rec_num := 1;
6637: -- Debug Message
6638: IF OZF_DEBUG_LOW_ON THEN
6639: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
6640: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
6641: FND_MSG_PUB.Add;
6642: END IF;
6643: --Standard call to get message count and if count=1, get the message
6644: FND_MSG_PUB.Count_And_Get (
6645: p_encoded => FND_API.G_FALSE,
6640: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
6641: FND_MSG_PUB.Add;
6642: END IF;
6643: --Standard call to get message count and if count=1, get the message
6644: FND_MSG_PUB.Count_And_Get (
6645: p_encoded => FND_API.G_FALSE,
6646: p_count => x_msg_count,
6647: p_data => x_msg_data
6648: );
6652: ROLLBACK TO Update_Claim_PVT;
6653: -- END IF;
6654: x_return_status := FND_API.G_RET_STS_ERROR;
6655: -- Standard call to get message count and if count=1, get the message
6656: FND_MSG_PUB.Count_And_Get (
6657: p_encoded => FND_API.G_FALSE,
6658: p_count => x_msg_count,
6659: p_data => x_msg_data
6660: );
6663: ROLLBACK TO Update_Claim_PVT;
6664: -- END IF;
6665: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6666: -- Standard call to get message count and if count=1, get the message
6667: FND_MSG_PUB.Count_And_Get (
6668: p_encoded => FND_API.G_FALSE,
6669: p_count => x_msg_count,
6670: p_data => x_msg_data
6671: );
6673: -- IF ( NOT G_UPDATE_CALLED ) THEN
6674: ROLLBACK TO Update_Claim_PVT;
6675: -- END IF;
6676: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6677: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6678: THEN
6679: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
6680: END IF;
6681: -- Standard call to get message count and if count=1, get the message
6675: -- END IF;
6676: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6677: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6678: THEN
6679: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
6680: END IF;
6681: -- Standard call to get message count and if count=1, get the message
6682: FND_MSG_PUB.Count_And_Get (
6683: p_encoded => FND_API.G_FALSE,
6678: THEN
6679: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
6680: END IF;
6681: -- Standard call to get message count and if count=1, get the message
6682: FND_MSG_PUB.Count_And_Get (
6683: p_encoded => FND_API.G_FALSE,
6684: p_count => x_msg_count,
6685: p_data => x_msg_data
6686: );
6831: -- Debug Message
6832: IF OZF_DEBUG_LOW_ON THEN
6833: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
6834: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
6835: FND_MSG_PUB.Add;
6836: END IF;
6837:
6838: --Initialize message list if p_init_msg_list is TRUE.
6839: IF FND_API.To_Boolean (p_init_msg_list) THEN
6836: END IF;
6837:
6838: --Initialize message list if p_init_msg_list is TRUE.
6839: IF FND_API.To_Boolean (p_init_msg_list) THEN
6840: FND_MSG_PUB.initialize;
6841: END IF;
6842:
6843: -- Initialize API return status to sucess
6844: x_return_status := FND_API.G_RET_STS_SUCCESS;
6859:
6860: -- Raise an error
6861: -- Due_date must be later than the claim_date
6862: IF trunc(l_claim.DUE_DATE) < trunc(l_claim.claim_date) THEN
6863: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
6864: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DUE_DATE_ERR');
6865: FND_MSG_PUB.add;
6866: END IF;
6867: IF OZF_DEBUG_HIGH_ON THEN
6861: -- Due_date must be later than the claim_date
6862: IF trunc(l_claim.DUE_DATE) < trunc(l_claim.claim_date) THEN
6863: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
6864: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DUE_DATE_ERR');
6865: FND_MSG_PUB.add;
6866: END IF;
6867: IF OZF_DEBUG_HIGH_ON THEN
6868: ozf_utility_PVT.debug_message('claim date: ' || l_claim.claim_date);
6869: ozf_utility_PVT.debug_message('due date: ' || l_claim.DUE_DATE);
6875: -- if the current status code is not duplicate but the duplicate_claim_id is not null
6876: IF ((l_claim.status_code <> G_DUPLICATE_STATUS) AND
6877: (l_claim.duplicate_claim_id is not null) AND
6878: (l_claim.duplicate_claim_id <> FND_API.G_MISS_NUM)) THEN
6879: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6880: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CANT_DUP');
6881: FND_MSG_PUB.Add;
6882: END IF;
6883: RAISE FND_API.G_EXC_ERROR;
6877: (l_claim.duplicate_claim_id is not null) AND
6878: (l_claim.duplicate_claim_id <> FND_API.G_MISS_NUM)) THEN
6879: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6880: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CANT_DUP');
6881: FND_MSG_PUB.Add;
6882: END IF;
6883: RAISE FND_API.G_EXC_ERROR;
6884: END IF;
6885:
6896: FETCH cust_site_csr INTO l_count;
6897: CLOSE cust_site_csr;
6898:
6899: IF (l_count = 0) THEN
6900: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6901: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_BILL_TO_ST_WRNG');
6902: FND_MSG_PUB.Add;
6903: END IF;
6904: RAISE FND_API.G_EXC_ERROR;
6898:
6899: IF (l_count = 0) THEN
6900: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6901: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_BILL_TO_ST_WRNG');
6902: FND_MSG_PUB.Add;
6903: END IF;
6904: RAISE FND_API.G_EXC_ERROR;
6905: END IF;
6906: END IF;
6913: FETCH rel_cust_csr INTO l_count;
6914: CLOSE rel_cust_csr;
6915:
6916: IF (l_count = 0) THEN
6917: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6918: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_UNRELATED_SHIPTO');
6919: FND_MSG_PUB.Add;
6920: END IF;
6921: RAISE FND_API.G_EXC_ERROR;
6915:
6916: IF (l_count = 0) THEN
6917: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6918: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_UNRELATED_SHIPTO');
6919: FND_MSG_PUB.Add;
6920: END IF;
6921: RAISE FND_API.G_EXC_ERROR;
6922: END IF;
6923: END IF;
6932: FETCH cust_site_csr INTO l_count;
6933: CLOSE cust_site_csr;
6934:
6935: IF (l_count = 0) THEN
6936: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6937: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_SHIP_TO_ST_WRNG');
6938: FND_MSG_PUB.Add;
6939: END IF;
6940: RAISE FND_API.G_EXC_ERROR;
6934:
6935: IF (l_count = 0) THEN
6936: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6937: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_SHIP_TO_ST_WRNG');
6938: FND_MSG_PUB.Add;
6939: END IF;
6940: RAISE FND_API.G_EXC_ERROR;
6941: END IF;
6942: END IF; */
6952: FETCH party_csr INTO l_count;
6953: CLOSE party_csr;
6954:
6955: IF (l_count = 0) THEN
6956: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6957: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CONTACT_WRNG');
6958: FND_MSG_PUB.Add;
6959: END IF;
6960: RAISE FND_API.G_EXC_ERROR;
6954:
6955: IF (l_count = 0) THEN
6956: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6957: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CONTACT_WRNG');
6958: FND_MSG_PUB.Add;
6959: END IF;
6960: RAISE FND_API.G_EXC_ERROR;
6961: END IF;
6962: END IF;
6971: FETCH party_csr INTO l_count;
6972: CLOSE party_csr;
6973:
6974: IF (l_count = 0) THEN
6975: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6976: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_BROKER_WRNG');
6977: FND_MSG_PUB.Add;
6978: END IF;
6979: RAISE FND_API.G_EXC_ERROR;
6973:
6974: IF (l_count = 0) THEN
6975: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6976: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_BROKER_WRNG');
6977: FND_MSG_PUB.Add;
6978: END IF;
6979: RAISE FND_API.G_EXC_ERROR;
6980: END IF;
6981: END IF;
6990: FETCH sales_rep_num_csr INTO l_sales_rep_num;
6991: CLOSE sales_rep_num_csr;
6992:
6993: IF l_sales_rep_num = 0 THEN
6994: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
6995: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_SALES_REP_MISSING');
6996: FND_MSG_PUB.add;
6997: END IF;
6998: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6992:
6993: IF l_sales_rep_num = 0 THEN
6994: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
6995: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_SALES_REP_MISSING');
6996: FND_MSG_PUB.add;
6997: END IF;
6998: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6999: END IF;
7000: END IF;
7000: END IF;
7001: */
7002:
7003: ELSE
7004: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7005: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CUST_ID_MISSING');
7006: FND_MSG_PUB.Add;
7007: END IF;
7008: RAISE FND_API.G_EXC_ERROR;
7002:
7003: ELSE
7004: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7005: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CUST_ID_MISSING');
7006: FND_MSG_PUB.Add;
7007: END IF;
7008: RAISE FND_API.G_EXC_ERROR;
7009: END IF;
7010:
7019: FETCH status_count_csr INTO l_count;
7020: CLOSE status_count_csr;
7021:
7022: IF l_count <> 1 THEN
7023: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7024: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_STATUS_NOT_MAT');
7025: FND_MSG_PUB.Add;
7026:
7027: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
7021:
7022: IF l_count <> 1 THEN
7023: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7024: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_STATUS_NOT_MAT');
7025: FND_MSG_PUB.Add;
7026:
7027: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
7028: FND_MESSAGE.Set_Token('TEXT','code: '||l_claim.status_code||' id:'||l_claim.user_status_id);
7029: FND_MSG_PUB.Add;
7025: FND_MSG_PUB.Add;
7026:
7027: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
7028: FND_MESSAGE.Set_Token('TEXT','code: '||l_claim.status_code||' id:'||l_claim.user_status_id);
7029: FND_MSG_PUB.Add;
7030: END IF;
7031: RAISE FND_API.G_EXC_ERROR;
7032: END IF;
7033: */
7044: FETCH action_count_csr INTO l_count;
7045: CLOSE action_count_csr;
7046:
7047: IF l_count <> 1 THEN
7048: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7049: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_ACTION_NOT_MAT');
7050: FND_MSG_PUB.Add;
7051: END IF;
7052: RAISE FND_API.G_EXC_ERROR;
7046:
7047: IF l_count <> 1 THEN
7048: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7049: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_ACTION_NOT_MAT');
7050: FND_MSG_PUB.Add;
7051: END IF;
7052: RAISE FND_API.G_EXC_ERROR;
7053: END IF;
7054: END IF;
7056:
7057: -- raise an error if owner_id is not found
7058: IF (l_claim.owner_id is null OR
7059: l_claim.owner_id = FND_API.G_MISS_NUM) THEN
7060: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7061: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_OWNER_NOT_FOUND');
7062: FND_MSG_PUB.Add;
7063: END IF;
7064: RAISE FND_API.G_EXC_ERROR;
7058: IF (l_claim.owner_id is null OR
7059: l_claim.owner_id = FND_API.G_MISS_NUM) THEN
7060: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7061: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_OWNER_NOT_FOUND');
7062: FND_MSG_PUB.Add;
7063: END IF;
7064: RAISE FND_API.G_EXC_ERROR;
7065: END IF;
7066:
7066:
7067: -- raise an error if status_code is open and amount_remaining is 0
7068: IF (l_claim.status_code = G_OPEN_STATUS AND
7069: l_claim.amount_remaining = 0) THEN
7070: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7071: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_AMT_ZERO_WOPEN');
7072: FND_MSG_PUB.Add;
7073: END IF;
7074: RAISE FND_API.G_EXC_ERROR;
7068: IF (l_claim.status_code = G_OPEN_STATUS AND
7069: l_claim.amount_remaining = 0) THEN
7070: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7071: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_AMT_ZERO_WOPEN');
7072: FND_MSG_PUB.Add;
7073: END IF;
7074: RAISE FND_API.G_EXC_ERROR;
7075: END IF;
7076:
7078: -- raise an error if amount is >0 and claim_class = OVERPAYMENT or charge
7079: IF (l_claim.amount < 0 AND
7080: (l_claim.claim_class = G_CLAIM_CLASS OR
7081: l_claim.claim_class = G_DEDUCTION_CLASS)) THEN
7082: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7083: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_AMT_NEG');
7084: FND_MSG_PUB.Add;
7085: END IF;
7086: RAISE FND_API.G_EXC_ERROR;
7080: (l_claim.claim_class = G_CLAIM_CLASS OR
7081: l_claim.claim_class = G_DEDUCTION_CLASS)) THEN
7082: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7083: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_AMT_NEG');
7084: FND_MSG_PUB.Add;
7085: END IF;
7086: RAISE FND_API.G_EXC_ERROR;
7087: END IF;
7088:
7088:
7089: IF (l_claim.amount > 0 AND
7090: (l_claim.claim_class = G_OVERPAYMENT_CLASS OR
7091: l_claim.claim_class = G_CHARGE_CLASS )) THEN
7092: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7093: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_AMT_POS_OPM');
7094: FND_MSG_PUB.Add;
7095: END IF;
7096: RAISE FND_API.G_EXC_ERROR;
7090: (l_claim.claim_class = G_OVERPAYMENT_CLASS OR
7091: l_claim.claim_class = G_CHARGE_CLASS )) THEN
7092: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7093: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_AMT_POS_OPM');
7094: FND_MSG_PUB.Add;
7095: END IF;
7096: RAISE FND_API.G_EXC_ERROR;
7097: END IF;
7098:
7107: l_claim.source_object_type_id = FND_API.G_MISS_NUM) OR
7108: (l_claim.source_object_number IS NULL OR
7109: l_claim.source_object_number = FND_API.G_MISS_CHAR)) THEN
7110:
7111: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
7112: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_SRC_INFO_MISSING');
7113: FND_MSG_PUB.add;
7114: END IF;
7115: RAISE FND_API.g_exc_error;
7109: l_claim.source_object_number = FND_API.G_MISS_CHAR)) THEN
7110:
7111: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
7112: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_SRC_INFO_MISSING');
7113: FND_MSG_PUB.add;
7114: END IF;
7115: RAISE FND_API.g_exc_error;
7116: END IF;
7117: END IF;
7124: FETCH payment_method_csr into l_lookup_code_count;
7125: CLOSE payment_method_csr;
7126:
7127: IF l_lookup_code_count = 0 THEN
7128: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
7129: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_PAY_MTHD_WRG');
7130: FND_MSG_PUB.add;
7131: END IF;
7132: RAISE FND_API.g_exc_error;
7126:
7127: IF l_lookup_code_count = 0 THEN
7128: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
7129: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_PAY_MTHD_WRG');
7130: FND_MSG_PUB.add;
7131: END IF;
7132: RAISE FND_API.g_exc_error;
7133: END IF;
7134: END IF;
7139:
7140: IF (l_claim.pay_related_account_flag <> 'F' AND
7141: l_claim.pay_related_account_flag <> 'T') THEN
7142:
7143: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
7144: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_PAY_REL_FLG_WRG');
7145: FND_MSG_PUB.add;
7146: END IF;
7147: RAISE FND_API.g_exc_error;
7141: l_claim.pay_related_account_flag <> 'T') THEN
7142:
7143: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
7144: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_PAY_REL_FLG_WRG');
7145: FND_MSG_PUB.add;
7146: END IF;
7147: RAISE FND_API.g_exc_error;
7148: END IF;
7149: END IF;
7155: OPEN order_type_count_csr(l_claim.order_type_id);
7156: FETCH order_type_count_csr into l_order_type_count;
7157: CLOSE order_type_count_csr;
7158: IF l_order_type_count = 0 then
7159: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
7160: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_ODTYPE_WRG');
7161: FND_MSG_PUB.add;
7162: END IF;
7163: RAISE FND_API.g_exc_error;
7157: CLOSE order_type_count_csr;
7158: IF l_order_type_count = 0 then
7159: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
7160: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_ODTYPE_WRG');
7161: FND_MSG_PUB.add;
7162: END IF;
7163: RAISE FND_API.g_exc_error;
7164: END IF;
7165: END IF;
7167: -- Debug Message
7168: IF OZF_DEBUG_LOW_ON THEN
7169: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
7170: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
7171: FND_MSG_PUB.Add;
7172: END IF;
7173: --Standard call to get message count and if count=1, get the message
7174: FND_MSG_PUB.Count_And_Get (
7175: p_encoded => FND_API.G_FALSE,
7170: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
7171: FND_MSG_PUB.Add;
7172: END IF;
7173: --Standard call to get message count and if count=1, get the message
7174: FND_MSG_PUB.Count_And_Get (
7175: p_encoded => FND_API.G_FALSE,
7176: p_count => x_msg_count,
7177: p_data => x_msg_data
7178: );
7180: WHEN FND_API.G_EXC_ERROR THEN
7181: ROLLBACK TO Validate_Claim_PVT;
7182: x_return_status := FND_API.G_RET_STS_ERROR;
7183: -- Standard call to get message count and if count=1, get the message
7184: FND_MSG_PUB.Count_And_Get (
7185: p_encoded => FND_API.G_FALSE,
7186: p_count => x_msg_count,
7187: p_data => x_msg_data
7188: );
7189: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7190: ROLLBACK TO Validate_Claim_PVT;
7191: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7192: -- Standard call to get message count and if count=1, get the message
7193: FND_MSG_PUB.Count_And_Get (
7194: p_encoded => FND_API.G_FALSE,
7195: p_count => x_msg_count,
7196: p_data => x_msg_data
7197: );
7197: );
7198: WHEN OTHERS THEN
7199: ROLLBACK TO Validate_Claim_PVT;
7200: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7201: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7202: THEN
7203: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
7204: END IF;
7205: -- Standard call to get message count and if count=1, get the message
7199: ROLLBACK TO Validate_Claim_PVT;
7200: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7201: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7202: THEN
7203: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
7204: END IF;
7205: -- Standard call to get message count and if count=1, get the message
7206: FND_MSG_PUB.Count_And_Get (
7207: p_encoded => FND_API.G_FALSE,
7202: THEN
7203: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
7204: END IF;
7205: -- Standard call to get message count and if count=1, get the message
7206: FND_MSG_PUB.Count_And_Get (
7207: p_encoded => FND_API.G_FALSE,
7208: p_count => x_msg_count,
7209: p_data => x_msg_data
7210: );
7299: -- Debug Message
7300: IF OZF_DEBUG_LOW_ON THEN
7301: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
7302: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
7303: FND_MSG_PUB.Add;
7304: END IF;
7305:
7306: --Initialize message list if p_init_msg_list is TRUE.
7307: IF FND_API.To_Boolean (p_init_msg_list) THEN
7304: END IF;
7305:
7306: --Initialize message list if p_init_msg_list is TRUE.
7307: IF FND_API.To_Boolean (p_init_msg_list) THEN
7308: FND_MSG_PUB.initialize;
7309: END IF;
7310:
7311: -- Initialize API return status to sucess
7312: x_return_status := FND_API.G_RET_STS_SUCCESS;
7324: -- OPEN claim_type_id_csr;
7325: -- FETCH claim_type_id_csr into l_claim.claim_type_id;
7326: -- CLOSE claim_type_id_csr;
7327: -- IF l_claim.claim_type_id is NULL THEN
7328: -- IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
7329: -- FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CLAIM_TYPE_MISSING');
7330: -- FND_MSG_PUB.Add;
7331: -- END IF;
7332: -- RAISE FND_API.G_EXC_ERROR;
7326: -- CLOSE claim_type_id_csr;
7327: -- IF l_claim.claim_type_id is NULL THEN
7328: -- IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
7329: -- FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CLAIM_TYPE_MISSING');
7330: -- FND_MSG_PUB.Add;
7331: -- END IF;
7332: -- RAISE FND_API.G_EXC_ERROR;
7333: -- END IF;
7334: -- ELSE
7337: -- FETCH number_of_claim_type_id_csr INTO l_number_of_claim_type_id;
7338: -- CLOSE number_of_claim_type_id_csr;
7339: --
7340: -- IF l_number_of_claim_type_id = 0 THEN
7341: -- IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
7342: -- FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CLAIM_TYPE_NOT_IN_DB');
7343: -- FND_MSG_PUB.add;
7344: -- END IF;
7345: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7339: --
7340: -- IF l_number_of_claim_type_id = 0 THEN
7341: -- IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
7342: -- FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CLAIM_TYPE_NOT_IN_DB');
7343: -- FND_MSG_PUB.add;
7344: -- END IF;
7345: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7346: -- END IF;
7347: -- END IF;
7356: -- FETCH number_of_reason_code_id_csr INTO l_number_of_reason_code_id;
7357: -- CLOSE number_of_reason_code_id_csr;
7358:
7359: -- IF l_number_of_reason_code_id = 0 THEN
7360: -- IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
7361: -- FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_REASON_CD_NOT_IN_DB');
7362: -- FND_MSG_PUB.add;
7363: -- END IF;
7364: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7358:
7359: -- IF l_number_of_reason_code_id = 0 THEN
7360: -- IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
7361: -- FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_REASON_CD_NOT_IN_DB');
7362: -- FND_MSG_PUB.add;
7363: -- END IF;
7364: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7365: -- END IF;
7366: -- END IF;
7368: -- Check cust_account_id
7369: IF l_claim.cust_account_id is NULL OR
7370: l_claim.cust_account_id = FND_API.G_MISS_NUM THEN
7371:
7372: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
7373: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CUST_ID_MISSING');
7374: FND_MSG_PUB.Add;
7375: END IF;
7376: RAISE FND_API.G_EXC_ERROR;
7370: l_claim.cust_account_id = FND_API.G_MISS_NUM THEN
7371:
7372: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
7373: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CUST_ID_MISSING');
7374: FND_MSG_PUB.Add;
7375: END IF;
7376: RAISE FND_API.G_EXC_ERROR;
7377: ELSE
7378: -- check whether the customer is in the database.
7380: FETCH num_of_cust_acctid_csr INTO l_number_of_cust;
7381: CLOSE num_of_cust_acctid_csr;
7382:
7383: IF l_number_of_cust = 0 THEN
7384: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
7385: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CUST_NOT_IN_DB');
7386: FND_MSG_PUB.add;
7387: END IF;
7388: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7382:
7383: IF l_number_of_cust = 0 THEN
7384: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
7385: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CUST_NOT_IN_DB');
7386: FND_MSG_PUB.add;
7387: END IF;
7388: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7389: END IF;
7390: END IF;
7425: -- Debug Message
7426: IF OZF_DEBUG_LOW_ON THEN
7427: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
7428: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
7429: FND_MSG_PUB.Add;
7430: END IF;
7431: --Standard call to get message count and if count=1, get the message
7432: FND_MSG_PUB.Count_And_Get (
7433: p_encoded => FND_API.G_FALSE,
7428: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
7429: FND_MSG_PUB.Add;
7430: END IF;
7431: --Standard call to get message count and if count=1, get the message
7432: FND_MSG_PUB.Count_And_Get (
7433: p_encoded => FND_API.G_FALSE,
7434: p_count => x_msg_count,
7435: p_data => x_msg_data
7436: );
7438: WHEN FND_API.G_EXC_ERROR THEN
7439: ROLLBACK TO Check_Clm_Cmn_Element_PVT;
7440: x_return_status := FND_API.G_RET_STS_ERROR;
7441: -- Standard call to get message count and if count=1, get the message
7442: FND_MSG_PUB.Count_And_Get (
7443: p_encoded => FND_API.G_FALSE,
7444: p_count => x_msg_count,
7445: p_data => x_msg_data
7446: );
7447: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7448: ROLLBACK TO Check_Clm_Cmn_Element_PVT;
7449: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7450: -- Standard call to get message count and if count=1, get the message
7451: FND_MSG_PUB.Count_And_Get (
7452: p_encoded => FND_API.G_FALSE,
7453: p_count => x_msg_count,
7454: p_data => x_msg_data
7455: );
7455: );
7456: WHEN OTHERS THEN
7457: ROLLBACK TO Check_Clm_Cmn_Element_PVT;
7458: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7459: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7460: THEN
7461: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
7462: END IF;
7463: -- Standard call to get message count and if count=1, get the message
7457: ROLLBACK TO Check_Clm_Cmn_Element_PVT;
7458: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7459: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7460: THEN
7461: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
7462: END IF;
7463: -- Standard call to get message count and if count=1, get the message
7464: FND_MSG_PUB.Count_And_Get (
7465: p_encoded => FND_API.G_FALSE,
7460: THEN
7461: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
7462: END IF;
7463: -- Standard call to get message count and if count=1, get the message
7464: FND_MSG_PUB.Count_And_Get (
7465: p_encoded => FND_API.G_FALSE,
7466: p_count => x_msg_count,
7467: p_data => x_msg_data
7468: );
7528: -- Debug Message
7529: IF OZF_DEBUG_LOW_ON THEN
7530: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
7531: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
7532: FND_MSG_PUB.Add;
7533: END IF;
7534:
7535: --Initialize message list if p_init_msg_list is TRUE.
7536: IF FND_API.To_Boolean (p_init_msg_list) THEN
7533: END IF;
7534:
7535: --Initialize message list if p_init_msg_list is TRUE.
7536: IF FND_API.To_Boolean (p_init_msg_list) THEN
7537: FND_MSG_PUB.initialize;
7538: END IF;
7539:
7540: -- Initialize API return status to sucess
7541: x_return_status := FND_API.G_RET_STS_SUCCESS;
7605: -- Debug Message
7606: IF OZF_DEBUG_LOW_ON THEN
7607: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
7608: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
7609: FND_MSG_PUB.Add;
7610: END IF;
7611: --Standard call to get message count and if count=1, get the message
7612: FND_MSG_PUB.Count_And_Get (
7613: p_encoded => FND_API.G_FALSE,
7608: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
7609: FND_MSG_PUB.Add;
7610: END IF;
7611: --Standard call to get message count and if count=1, get the message
7612: FND_MSG_PUB.Count_And_Get (
7613: p_encoded => FND_API.G_FALSE,
7614: p_count => x_msg_count,
7615: p_data => x_msg_data
7616: );
7617: EXCEPTION
7618: WHEN FND_API.G_EXC_ERROR THEN
7619: ROLLBACK TO Create_Claim_Tbl_PVT;
7620: x_return_status := FND_API.G_RET_STS_ERROR;
7621: /* IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7622: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
7623: FND_MESSAGE.Set_Token('ROW',l_err_row);
7624: FND_MSG_PUB.Add;
7625: END IF;
7620: x_return_status := FND_API.G_RET_STS_ERROR;
7621: /* IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7622: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
7623: FND_MESSAGE.Set_Token('ROW',l_err_row);
7624: FND_MSG_PUB.Add;
7625: END IF;
7626: */
7627: -- Standard call to get message count and if count=1, get the message
7628: FND_MSG_PUB.Count_And_Get (
7624: FND_MSG_PUB.Add;
7625: END IF;
7626: */
7627: -- Standard call to get message count and if count=1, get the message
7628: FND_MSG_PUB.Count_And_Get (
7629: p_encoded => FND_API.G_FALSE,
7630: p_count => x_msg_count,
7631: p_data => x_msg_data
7632: );
7632: );
7633: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7634: ROLLBACK TO Create_Claim_Tbl_PVT;
7635: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7636: /* IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7637: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
7638: FND_MESSAGE.Set_Token('ROW',l_err_row);
7639: FND_MSG_PUB.Add;
7640: END IF;
7635: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7636: /* IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7637: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
7638: FND_MESSAGE.Set_Token('ROW',l_err_row);
7639: FND_MSG_PUB.Add;
7640: END IF;
7641: */
7642: -- Standard call to get message count and if count=1, get the message
7643: FND_MSG_PUB.Count_And_Get (
7639: FND_MSG_PUB.Add;
7640: END IF;
7641: */
7642: -- Standard call to get message count and if count=1, get the message
7643: FND_MSG_PUB.Count_And_Get (
7644: p_encoded => FND_API.G_FALSE,
7645: p_count => x_msg_count,
7646: p_data => x_msg_data
7647: );
7647: );
7648: WHEN OTHERS THEN
7649: ROLLBACK TO Create_Claim_Tbl_PVT;
7650: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7651: /* IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7652: THEN
7653: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
7654: FND_MESSAGE.Set_Token('ROW',l_err_row);
7655: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
7651: /* IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7652: THEN
7653: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
7654: FND_MESSAGE.Set_Token('ROW',l_err_row);
7655: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
7656: END IF;
7657: */ -- Standard call to get message count and if count=1, get the message
7658: FND_MSG_PUB.Count_And_Get (
7659: p_encoded => FND_API.G_FALSE,
7654: FND_MESSAGE.Set_Token('ROW',l_err_row);
7655: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
7656: END IF;
7657: */ -- Standard call to get message count and if count=1, get the message
7658: FND_MSG_PUB.Count_And_Get (
7659: p_encoded => FND_API.G_FALSE,
7660: p_count => x_msg_count,
7661: p_data => x_msg_data
7662: );
7724: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7725: END IF;
7726:
7727: -- Debug Message
7728: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
7729: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
7730: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
7731: FND_MSG_PUB.Add;
7732: END IF;
7727: -- Debug Message
7728: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
7729: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
7730: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
7731: FND_MSG_PUB.Add;
7732: END IF;
7733:
7734: --Initialize message list if p_init_msg_list is TRUE.
7735: IF FND_API.To_Boolean (p_init_msg_list) THEN
7732: END IF;
7733:
7734: --Initialize message list if p_init_msg_list is TRUE.
7735: IF FND_API.To_Boolean (p_init_msg_list) THEN
7736: FND_MSG_PUB.initialize;
7737: END IF;
7738:
7739: -- Initialize API return status to sucess
7740: x_return_status := FND_API.G_RET_STS_SUCCESS;
7743: l_claim := p_claim_tbl(i);
7744:
7745: -- Varify status code if NOT OPEN then raise error.
7746: IF upper(l_claim.status_code) <> 'OPEN' then
7747: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7748: l_err_row := i;
7749: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_API_NO_OPEN_STATUS');
7750: FND_MESSAGE.Set_Token('ROW',l_err_row);
7751: FND_MSG_PUB.ADD;
7747: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7748: l_err_row := i;
7749: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_API_NO_OPEN_STATUS');
7750: FND_MESSAGE.Set_Token('ROW',l_err_row);
7751: FND_MSG_PUB.ADD;
7752: END IF;
7753: RAISE FND_API.G_EXC_ERROR;
7754: END IF;
7755:
7783: END IF;
7784: END LOOP;
7785:
7786: -- Debug Message
7787: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
7788: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
7789: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
7790: FND_MSG_PUB.Add;
7791: END IF;
7786: -- Debug Message
7787: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
7788: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
7789: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
7790: FND_MSG_PUB.Add;
7791: END IF;
7792: --Standard call to get message count and if count=1, get the message
7793: FND_MSG_PUB.Count_And_Get (
7794: p_encoded => FND_API.G_FALSE,
7789: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
7790: FND_MSG_PUB.Add;
7791: END IF;
7792: --Standard call to get message count and if count=1, get the message
7793: FND_MSG_PUB.Count_And_Get (
7794: p_encoded => FND_API.G_FALSE,
7795: p_count => x_msg_count,
7796: p_data => x_msg_data
7797: );
7798: EXCEPTION
7799: WHEN FND_API.G_EXC_ERROR THEN
7800: ROLLBACK TO Update_Claim_Tbl_PVT;
7801: x_return_status := FND_API.G_RET_STS_ERROR;
7802: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7803: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
7804: FND_MESSAGE.Set_Token('ROW',l_err_row);
7805: FND_MSG_PUB.Add;
7806: END IF;
7801: x_return_status := FND_API.G_RET_STS_ERROR;
7802: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7803: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
7804: FND_MESSAGE.Set_Token('ROW',l_err_row);
7805: FND_MSG_PUB.Add;
7806: END IF;
7807: -- Standard call to get message count and if count=1, get the message
7808: FND_MSG_PUB.Count_And_Get (
7809: p_encoded => FND_API.G_FALSE,
7804: FND_MESSAGE.Set_Token('ROW',l_err_row);
7805: FND_MSG_PUB.Add;
7806: END IF;
7807: -- Standard call to get message count and if count=1, get the message
7808: FND_MSG_PUB.Count_And_Get (
7809: p_encoded => FND_API.G_FALSE,
7810: p_count => x_msg_count,
7811: p_data => x_msg_data
7812: );
7812: );
7813: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7814: ROLLBACK TO Update_Claim_Tbl_PVT;
7815: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7816: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7817: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
7818: FND_MESSAGE.Set_Token('ROW',l_err_row);
7819: FND_MSG_PUB.Add;
7820: END IF;
7815: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7816: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7817: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
7818: FND_MESSAGE.Set_Token('ROW',l_err_row);
7819: FND_MSG_PUB.Add;
7820: END IF;
7821: -- Standard call to get message count and if count=1, get the message
7822: FND_MSG_PUB.Count_And_Get (
7823: p_encoded => FND_API.G_FALSE,
7818: FND_MESSAGE.Set_Token('ROW',l_err_row);
7819: FND_MSG_PUB.Add;
7820: END IF;
7821: -- Standard call to get message count and if count=1, get the message
7822: FND_MSG_PUB.Count_And_Get (
7823: p_encoded => FND_API.G_FALSE,
7824: p_count => x_msg_count,
7825: p_data => x_msg_data
7826: );
7826: );
7827: WHEN OTHERS THEN
7828: ROLLBACK TO Update_Claim_Tbl_PVT;
7829: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7830: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7831: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
7832: FND_MESSAGE.Set_Token('ROW',l_err_row);
7833: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
7834: END IF;
7829: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7830: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7831: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
7832: FND_MESSAGE.Set_Token('ROW',l_err_row);
7833: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
7834: END IF;
7835: -- Standard call to get message count and if count=1, get the message
7836: FND_MSG_PUB.Count_And_Get (
7837: p_encoded => FND_API.G_FALSE,
7832: FND_MESSAGE.Set_Token('ROW',l_err_row);
7833: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
7834: END IF;
7835: -- Standard call to get message count and if count=1, get the message
7836: FND_MSG_PUB.Count_And_Get (
7837: p_encoded => FND_API.G_FALSE,
7838: p_count => x_msg_count,
7839: p_data => x_msg_data
7840: );