[Home] [Help]
63:
64: --//12970850 TPM Integration
65: G_TPM_PROCESS_ENABLED VARCHAR2 (1) := NVL(fnd_profile.VALUE ('OZF_TPM_PROCESS_ENABLED'),'N');
66:
67: OZF_DEBUG_HIGH_ON BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
68: OZF_DEBUG_LOW_ON BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low);
69:
70: ---------------------------------------------------------------------
71: -- Definitions of some packagewise cursors.
64: --//12970850 TPM Integration
65: G_TPM_PROCESS_ENABLED VARCHAR2 (1) := NVL(fnd_profile.VALUE ('OZF_TPM_PROCESS_ENABLED'),'N');
66:
67: OZF_DEBUG_HIGH_ON BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
68: OZF_DEBUG_LOW_ON BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low);
69:
70: ---------------------------------------------------------------------
71: -- Definitions of some packagewise cursors.
72: ---------------------------------------------------------------------
125:
126: EXCEPTION
127: WHEN OTHERS THEN
128: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
129: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
130: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_INVALID_STATUS_CODE');
131: FND_MSG_PUB.add;
132: END IF;
133: -- Standard call to get message count and if count=1, get the message
127: WHEN OTHERS THEN
128: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
129: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
130: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_INVALID_STATUS_CODE');
131: FND_MSG_PUB.add;
132: END IF;
133: -- Standard call to get message count and if count=1, get the message
134: FND_MSG_PUB.Count_And_Get (
135: p_encoded => FND_API.G_FALSE,
130: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_INVALID_STATUS_CODE');
131: FND_MSG_PUB.add;
132: END IF;
133: -- Standard call to get message count and if count=1, get the message
134: FND_MSG_PUB.Count_And_Get (
135: p_encoded => FND_API.G_FALSE,
136: p_count => x_msg_count,
137: p_data => x_msg_data
138: );
173: CLOSE Get_Status_csr;
174: EXCEPTION
175: WHEN OTHERS THEN
176: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
177: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
178: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_INVALID_USER_STATUS');
179: FND_MSG_PUB.add;
180: END IF;
181: END get_seeded_user_status;
175: WHEN OTHERS THEN
176: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
177: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
178: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_INVALID_USER_STATUS');
179: FND_MSG_PUB.add;
180: END IF;
181: END get_seeded_user_status;
182: ---------------------------------------------------------------------
183: -- PROCEDURE
265: FETCH prefix_csr INTO l_prefix;
266: CLOSE prefix_csr;
267:
268: IF l_prefix is NULL THEN
269: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
270: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_SUFFIX_NOT_FOUND');
271: FND_MSG_PUB.add;
272: END IF;
273: RAISE FND_API.G_EXC_ERROR;
267:
268: IF l_prefix is NULL THEN
269: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
270: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_SUFFIX_NOT_FOUND');
271: FND_MSG_PUB.add;
272: END IF;
273: RAISE FND_API.G_EXC_ERROR;
274: END IF;
275:
335: l_temp_claim_number := substr(l_temp_claim_number ,1,(length(l_temp_claim_number) - l_numOfTruncates));
336: l_parent_claim_number := l_temp_claim_number || l_suffix;
337:
338: --AMITAMKU fix for bug 15874396 commented this as part of fix
339: /* IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
340: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_NUMBER_TOO_LARGE');
341: FND_MSG_PUB.add;
342: END IF;
343: RAISE FND_API.G_EXC_ERROR; */
337:
338: --AMITAMKU fix for bug 15874396 commented this as part of fix
339: /* IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
340: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_NUMBER_TOO_LARGE');
341: FND_MSG_PUB.add;
342: END IF;
343: RAISE FND_API.G_EXC_ERROR; */
344:
345: ELSE
354: WHEN FND_API.G_EXC_ERROR THEN
355: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
356: WHEN OTHERS THEN
357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
358: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
359: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_NO_CLAIM_NUMBER');
360: FND_MSG_PUB.add;
361: END IF;
362: FND_MSG_PUB.Count_And_Get (
356: WHEN OTHERS THEN
357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
358: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
359: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_NO_CLAIM_NUMBER');
360: FND_MSG_PUB.add;
361: END IF;
362: FND_MSG_PUB.Count_And_Get (
363: p_encoded => FND_API.G_FALSE,
364: p_count => x_msg_count,
358: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
359: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_NO_CLAIM_NUMBER');
360: FND_MSG_PUB.add;
361: END IF;
362: FND_MSG_PUB.Count_And_Get (
363: p_encoded => FND_API.G_FALSE,
364: p_count => x_msg_count,
365: p_data => x_msg_data
366: );
626: WHEN FND_API.G_EXC_ERROR THEN
627: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
628: WHEN OTHERS THEN
629: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
630: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
631: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CUSTOMER_INFO_ERR');
632: FND_MSG_PUB.add;
633: END IF;
634: END get_customer_info;
628: WHEN OTHERS THEN
629: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
630: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
631: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CUSTOMER_INFO_ERR');
632: FND_MSG_PUB.add;
633: END IF;
634: END get_customer_info;
635:
636: ---------------------------------------------------------------------
686: WHEN FND_API.G_EXC_ERROR THEN
687: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
688: WHEN OTHERS THEN
689: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
690: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
691: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DAYS_DUE_ERR');
692: FND_MSG_PUB.add;
693: END IF;
694: END get_days_due;
688: WHEN OTHERS THEN
689: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
690: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
691: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DAYS_DUE_ERR');
692: FND_MSG_PUB.add;
693: END IF;
694: END get_days_due;
695:
696: ---------------------------------------------------------------------
921: WHEN FND_API.G_EXC_ERROR THEN
922: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
923: WHEN OTHERS THEN
924: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
925: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
926: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_OFF_QUAL_ERR');
927: FND_MSG_PUB.add;
928: END IF;
929: END get_offer_qualifiers;
923: WHEN OTHERS THEN
924: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
925: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
926: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_OFF_QUAL_ERR');
927: FND_MSG_PUB.add;
928: END IF;
929: END get_offer_qualifiers;
930: ---------------------------------------------------------------------
931: -- PROCEDURE
1406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1407: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1408: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1409: WHEN OTHERS THEN
1410: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1411: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,'Get_owner');
1412: END IF;
1413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1414: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1407: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1408: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1409: WHEN OTHERS THEN
1410: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1411: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,'Get_owner');
1412: END IF;
1413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1414: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1415: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_GET_OWNER_ERR');
1410: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1411: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,'Get_owner');
1412: END IF;
1413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1414: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1415: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_GET_OWNER_ERR');
1416: FND_MSG_PUB.add;
1417: END IF;
1418: END get_owner;
1412: END IF;
1413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1414: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1415: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_GET_OWNER_ERR');
1416: FND_MSG_PUB.add;
1417: END IF;
1418: END get_owner;
1419:
1420: ---------------------------------------------------------------------
1461:
1462: IF OZF_DEBUG_LOW_ON THEN
1463: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1464: FND_MESSAGE.Set_Token('TEXT','create task from template');
1465: FND_MSG_PUB.Add;
1466: END IF;
1467:
1468: -- Generate taks template
1469: JTF_TASKS_PUB.create_task_from_template(
1490:
1491: IF OZF_DEBUG_LOW_ON THEN
1492: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1493: FND_MESSAGE.Set_Token('TEXT','create task assignment');
1494: FND_MSG_PUB.Add;
1495: END IF;
1496:
1497: JTF_TASK_ASSIGNMENTS_PUB.create_task_assignment (
1498: p_api_version => l_api_version,
1523: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1524: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1525: WHEN OTHERS THEN
1526: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1527: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1528: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_TASK_API_ERR');
1529: FND_MSG_PUB.add;
1530: END IF;
1531: END generate_tasks;
1525: WHEN OTHERS THEN
1526: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1527: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1528: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_TASK_API_ERR');
1529: FND_MSG_PUB.add;
1530: END IF;
1531: END generate_tasks;
1532:
1533:
1671: WHEN FND_API.G_EXC_ERROR THEN
1672: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1673: WHEN OTHERS THEN
1674: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1675: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1676: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_WO_THRESHOLD_ERROR');
1677: FND_MSG_PUB.ADD;
1678: END IF;
1679: END get_write_off_threshold;
1673: WHEN OTHERS THEN
1674: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1675: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1676: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_WO_THRESHOLD_ERROR');
1677: FND_MSG_PUB.ADD;
1678: END IF;
1679: END get_write_off_threshold;
1680:
1681: ---------------------------------------------------------------------
1786:
1787: --If the exchange rate type is null then raise an error
1788: IF (l_exchange_rate_type IS NULL
1789: OR l_exchange_rate_type = FND_API.G_MISS_CHAR) THEN
1790: IF FND_MSG_PUB.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1791: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CONTYPE_MISSING');
1792: FND_MSG_PUB.add;
1793: END IF;
1794: RAISE FND_API.G_EXC_ERROR;
1788: IF (l_exchange_rate_type IS NULL
1789: OR l_exchange_rate_type = FND_API.G_MISS_CHAR) THEN
1790: IF FND_MSG_PUB.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1791: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CONTYPE_MISSING');
1792: FND_MSG_PUB.add;
1793: END IF;
1794: RAISE FND_API.G_EXC_ERROR;
1795: END IF;
1796: END IF;
1885: WHEN FND_API.G_EXC_ERROR THEN
1886: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1887: WHEN OTHERS THEN
1888: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1889: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1890: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_WRITE_OFF_SETUP_ERR');
1891: FND_MSG_PUB.add;
1892: END IF;
1893:
1887: WHEN OTHERS THEN
1888: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1889: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1890: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_WRITE_OFF_SETUP_ERR');
1891: FND_MSG_PUB.add;
1892: END IF;
1893:
1894: END get_write_off_eligibility;
1895:
1976: IF l_claim_reason_code_id is NOT NULL THEN
1977: l_reason_code_id := l_claim_reason_code_id;
1978: ELSE
1979: -- Mapping for the custome reason is not available. Throw an exception
1980: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1981: THEN
1982: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_NO_REASON_MAPPING');
1983: FND_MSG_PUB.add;
1984: END IF;
1979: -- Mapping for the custome reason is not available. Throw an exception
1980: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1981: THEN
1982: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_NO_REASON_MAPPING');
1983: FND_MSG_PUB.add;
1984: END IF;
1985: RAISE FND_API.G_EXC_ERROR;
1986: END IF;
1987: END IF;
2082: -- Debug Message
2083: IF OZF_DEBUG_LOW_ON THEN
2084: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2085: FND_MESSAGE.Set_Token('TEXT',l_api_name||': Start');
2086: FND_MSG_PUB.Add;
2087: END IF;
2088: --Initialize message list if p_init_msg_list is TRUE.
2089: IF FND_API.To_Boolean (p_init_msg_list) THEN
2090: FND_MSG_PUB.initialize;
2086: FND_MSG_PUB.Add;
2087: END IF;
2088: --Initialize message list if p_init_msg_list is TRUE.
2089: IF FND_API.To_Boolean (p_init_msg_list) THEN
2090: FND_MSG_PUB.initialize;
2091: END IF;
2092:
2093: x_return_status := FND_API.G_RET_STS_SUCCESS;
2094:
2110: OZF_Utility_PVT.debug_message('Accrual Customer Account ID:' ||l_acc_cust_account_id );
2111: END IF;
2112:
2113: IF (l_acc_cust_account_id IS NULL OR l_claim_cust_account_id <> l_acc_cust_account_id) THEN
2114: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2115: fnd_message.set_name('OZF', 'OZF_OFF_DIFF_CLAIM_CUSTOMER');
2116: fnd_msg_pub.add;
2117: END IF;
2118: RAISE fnd_api.g_exc_error;
2112:
2113: IF (l_acc_cust_account_id IS NULL OR l_claim_cust_account_id <> l_acc_cust_account_id) THEN
2114: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2115: fnd_message.set_name('OZF', 'OZF_OFF_DIFF_CLAIM_CUSTOMER');
2116: fnd_msg_pub.add;
2117: END IF;
2118: RAISE fnd_api.g_exc_error;
2119: END IF;
2120:
2192: ROLLBACK TO Create_Claim_Association;
2193: -- END IF;
2194: x_return_status := FND_API.G_RET_STS_ERROR;
2195: -- Standard call to get message count and if count=1, get the message
2196: FND_MSG_PUB.Count_And_Get (
2197: p_encoded => FND_API.G_FALSE,
2198: p_count => x_msg_count,
2199: p_data => x_msg_data
2200: );
2203: ROLLBACK TO Create_Claim_Association;
2204: -- END IF;
2205: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2206: -- Standard call to get message count and if count=1, get the message
2207: FND_MSG_PUB.Count_And_Get (
2208: p_encoded => FND_API.G_FALSE,
2209: p_count => x_msg_count,
2210: p_data => x_msg_data
2211: );
2213: -- IF ( NOT G_UPDATE_CALLED ) THEN
2214: ROLLBACK TO Create_Claim_Association;
2215: -- END IF;
2216: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2217: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2218: THEN
2219: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2220: END IF;
2221: -- Standard call to get message count and if count=1, get the message
2215: -- END IF;
2216: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2217: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2218: THEN
2219: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2220: END IF;
2221: -- Standard call to get message count and if count=1, get the message
2222: FND_MSG_PUB.Count_And_Get (
2223: p_encoded => FND_API.G_FALSE,
2218: THEN
2219: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2220: END IF;
2221: -- Standard call to get message count and if count=1, get the message
2222: FND_MSG_PUB.Count_And_Get (
2223: p_encoded => FND_API.G_FALSE,
2224: p_count => x_msg_count,
2225: p_data => x_msg_data
2226: );
2301:
2302: IF x_pass = true THEN
2303: x_pass := p_claim.cust_account_id = l_info.cust_account_id;
2304: IF x_pass = false THEN
2305: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2306: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_DED_CUST_CHANGED');
2307: FND_MSG_PUB.ADD;
2308: END IF;
2309: END IF;
2303: x_pass := p_claim.cust_account_id = l_info.cust_account_id;
2304: IF x_pass = false THEN
2305: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2306: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_DED_CUST_CHANGED');
2307: FND_MSG_PUB.ADD;
2308: END IF;
2309: END IF;
2310: ELSE
2311: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2307: FND_MSG_PUB.ADD;
2308: END IF;
2309: END IF;
2310: ELSE
2311: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2312: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_DED_AMT_CHANGED');
2313: FND_MSG_PUB.ADD;
2314: END IF;
2315: END IF;
2309: END IF;
2310: ELSE
2311: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2312: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_DED_AMT_CHANGED');
2313: FND_MSG_PUB.ADD;
2314: END IF;
2315: END IF;
2316: END IF;
2317:
2321: -- mchang 04/21/2004: add p_mode checking for subsequent receipt amount update in case of split
2322: p_mode = 'MANU' THEN
2323: x_pass := p_claim.amount = l_info.amount;
2324: IF x_pass = false THEN
2325: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2326: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_CHLD_AMT_CHANGED');
2327: FND_MSG_PUB.ADD;
2328: END IF;
2329: END IF;
2323: x_pass := p_claim.amount = l_info.amount;
2324: IF x_pass = false THEN
2325: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2326: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_CHLD_AMT_CHANGED');
2327: FND_MSG_PUB.ADD;
2328: END IF;
2329: END IF;
2330: END IF;
2331:
2389:
2390: EXCEPTION
2391: WHEN OTHERS THEN
2392: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2393: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2394: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_AMOUNT_CHANGE_ERR');
2395: FND_MSG_PUB.add;
2396: END IF;
2397: END check_amount;
2391: WHEN OTHERS THEN
2392: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2393: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2394: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_AMOUNT_CHANGE_ERR');
2395: FND_MSG_PUB.add;
2396: END IF;
2397: END check_amount;
2398: ---------------------------------------------------------------------
2399: -- PROCEDURE
2439: x_return_status := FND_API.G_RET_STS_SUCCESS;
2440:
2441: IF ((p_claim_number is null) OR
2442: (p_claim_number = FND_API.G_MISS_CHAR)) THEN
2443: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2444: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_MISSING_CLAIM_NUM');
2445: FND_MSG_PUB.add;
2446: END IF;
2447: x_return_status := FND_API.g_ret_sts_error;
2441: IF ((p_claim_number is null) OR
2442: (p_claim_number = FND_API.G_MISS_CHAR)) THEN
2443: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2444: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_MISSING_CLAIM_NUM');
2445: FND_MSG_PUB.add;
2446: END IF;
2447: x_return_status := FND_API.g_ret_sts_error;
2448: ELSE
2449: -- claim_id will never be not null at this point.
2461: FETCH get_claim_id_num_csr INTO l_count;
2462: CLOSE get_claim_id_num_csr;
2463:
2464: IF l_count <> 0 THEN
2465: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2466: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DUP_CLAIM_NUM_NEW');
2467: FND_MSG_PUB.add;
2468: END IF;
2469: x_return_status := FND_API.g_ret_sts_error;
2463:
2464: IF l_count <> 0 THEN
2465: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2466: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DUP_CLAIM_NUM_NEW');
2467: FND_MSG_PUB.add;
2468: END IF;
2469: x_return_status := FND_API.g_ret_sts_error;
2470: END IF;
2471: ELSE
2476: FETCH get_count_csr INTO l_count;
2477: CLOSE get_count_csr;
2478:
2479: IF l_count <> 1 THEN
2480: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2481: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_ID_NUM_MISS');
2482: FND_MSG_PUB.add;
2483: END IF;
2484: x_return_status := FND_API.g_ret_sts_error;
2478:
2479: IF l_count <> 1 THEN
2480: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2481: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_ID_NUM_MISS');
2482: FND_MSG_PUB.add;
2483: END IF;
2484: x_return_status := FND_API.g_ret_sts_error;
2485: ELSE
2486: l_count := 0;
2488: FETCH get_claim_id_num_csr INTO l_count;
2489: CLOSE get_claim_id_num_csr;
2490:
2491: IF l_count <> 1 THEN
2492: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2493: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DUP_CLAIM_NUM');
2494: FND_MSG_PUB.add;
2495: END IF;
2496: x_return_status := FND_API.g_ret_sts_error;
2490:
2491: IF l_count <> 1 THEN
2492: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2493: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DUP_CLAIM_NUM');
2494: FND_MSG_PUB.add;
2495: END IF;
2496: x_return_status := FND_API.g_ret_sts_error;
2497: END IF;
2498: END IF;
2500: END IF;
2501:
2502: EXCEPTION
2503: WHEN OTHERS THEN
2504: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2505: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_NUM_CHECK_ERROR');
2506: FND_MSG_PUB.add;
2507: END IF;
2508: x_return_status := FND_API.g_ret_sts_unexp_error;
2502: EXCEPTION
2503: WHEN OTHERS THEN
2504: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2505: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_NUM_CHECK_ERROR');
2506: FND_MSG_PUB.add;
2507: END IF;
2508: x_return_status := FND_API.g_ret_sts_unexp_error;
2509: END check_claim_number;
2510:
2641: (p_claim.exchange_rate <> l_deduction_info.exchange_rate) OR
2642: (p_claim.amount <> l_deduction_info.amount)) THEN
2643:
2644: x_pass := false;
2645: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2646: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_DED_AMT_CHANGED');
2647: FND_MSG_PUB.ADD;
2648: END IF;
2649: END IF;
2643:
2644: x_pass := false;
2645: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2646: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_DED_AMT_CHANGED');
2647: FND_MSG_PUB.ADD;
2648: END IF;
2649: END IF;
2650: END IF; -- End of BUG#2781186
2651:
2650: END IF; -- End of BUG#2781186
2651:
2652: IF p_claim.cust_account_id <> l_deduction_info.cust_account_id THEN
2653: x_pass := false;
2654: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2655: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_DED_CUST_CHANGED');
2656: FND_MSG_PUB.ADD;
2657: END IF;
2658: END IF;
2652: IF p_claim.cust_account_id <> l_deduction_info.cust_account_id THEN
2653: x_pass := false;
2654: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2655: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_DED_CUST_CHANGED');
2656: FND_MSG_PUB.ADD;
2657: END IF;
2658: END IF;
2659:
2660: EXCEPTION
2659:
2660: EXCEPTION
2661: WHEN OTHERS THEN
2662: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2663: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2664: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DED_CHK_ERR');
2665: FND_MSG_PUB.add;
2666: END IF;
2667: END check_deduction;
2661: WHEN OTHERS THEN
2662: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2663: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2664: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DED_CHK_ERR');
2665: FND_MSG_PUB.add;
2666: END IF;
2667: END check_deduction;
2668:
2669: ---------------------------------------------------------------------
2704: OPEN c_claim(p_claim_rec.claim_id);
2705: FETCH c_claim INTO l_claim_rec;
2706: IF c_claim%NOTFOUND THEN
2707: CLOSE c_claim;
2708: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2709: FND_MESSAGE.set_name('OZF','OZF_API_RECORD_NOT_FOUND');
2710: FND_MSG_PUB.add;
2711: END IF;
2712: RAISE FND_API.g_exc_error;
2706: IF c_claim%NOTFOUND THEN
2707: CLOSE c_claim;
2708: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2709: FND_MESSAGE.set_name('OZF','OZF_API_RECORD_NOT_FOUND');
2710: FND_MSG_PUB.add;
2711: END IF;
2712: RAISE FND_API.g_exc_error;
2713: END IF;
2714: CLOSE c_claim;
3582: EXCEPTION
3583: WHEN FND_API.G_EXC_ERROR THEN
3584: x_return_status := FND_API.G_RET_STS_ERROR;
3585: WHEN OTHERS THEN
3586: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3587: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_COMPLETE_ERROR');
3588: FND_MSG_PUB.add;
3589: END IF;
3590: x_return_status := FND_API.g_ret_sts_unexp_error;
3584: x_return_status := FND_API.G_RET_STS_ERROR;
3585: WHEN OTHERS THEN
3586: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3587: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_COMPLETE_ERROR');
3588: FND_MSG_PUB.add;
3589: END IF;
3590: x_return_status := FND_API.g_ret_sts_unexp_error;
3591: END Complete_Claim_Rec;
3592:
3871: -- Debug Message
3872: IF OZF_DEBUG_LOW_ON THEN
3873: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
3874: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
3875: FND_MSG_PUB.Add;
3876: END IF;
3877: --Initialize message list if p_init_msg_list is TRUE.
3878: IF FND_API.To_Boolean (p_init_msg_list) THEN
3879: FND_MSG_PUB.initialize;
3875: FND_MSG_PUB.Add;
3876: END IF;
3877: --Initialize message list if p_init_msg_list is TRUE.
3878: IF FND_API.To_Boolean (p_init_msg_list) THEN
3879: FND_MSG_PUB.initialize;
3880: END IF;
3881:
3882: -- Initialize API return status to sucess
3883: x_return_status := FND_API.G_RET_STS_SUCCESS;
3904: l_claim.claim_class <> G_CHARGE_CLASS AND
3905: l_claim.claim_class <> G_GROUP_CLASS
3906: THEN
3907:
3908: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
3909: THEN
3910: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CLAIM_CLASS_WRG');
3911: FND_MSG_PUB.add;
3912: END IF;
3907:
3908: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
3909: THEN
3910: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CLAIM_CLASS_WRG');
3911: FND_MSG_PUB.add;
3912: END IF;
3913: RAISE FND_API.G_EXC_ERROR;
3914: END IF;
3915: END IF;
3916:
3917: IF l_claim.cust_account_id is NULL OR
3918: l_claim.cust_account_id = FND_API.G_MISS_NUM
3919: THEN
3920: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3921: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CUST_ID_MISSING');
3922: FND_MSG_PUB.Add;
3923: END IF;
3924: RAISE FND_API.G_EXC_ERROR;
3918: l_claim.cust_account_id = FND_API.G_MISS_NUM
3919: THEN
3920: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3921: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CUST_ID_MISSING');
3922: FND_MSG_PUB.Add;
3923: END IF;
3924: RAISE FND_API.G_EXC_ERROR;
3925: END IF;
3926:
3976:
3977: IF l_claim.custom_setup_id is NULL OR
3978: l_claim.custom_setup_id = FND_API.G_MISS_NUM
3979: THEN
3980: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
3981: THEN
3982: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CUST_SETUP_MISSING');
3983: FND_MSG_PUB.add;
3984: END IF;
3979: THEN
3980: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
3981: THEN
3982: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CUST_SETUP_MISSING');
3983: FND_MSG_PUB.add;
3984: END IF;
3985: RAISE FND_API.G_EXC_ERROR;
3986: END IF;
3987:
3995:
3996: IF l_claim.claim_type_id is NULL OR
3997: l_claim.claim_type_id = FND_API.G_MISS_NUM
3998: THEN
3999: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4000: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CLAIM_TYPE_MISSING');
4001: FND_MSG_PUB.Add;
4002: END IF;
4003: RAISE FND_API.G_EXC_ERROR;
3997: l_claim.claim_type_id = FND_API.G_MISS_NUM
3998: THEN
3999: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4000: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CLAIM_TYPE_MISSING');
4001: FND_MSG_PUB.Add;
4002: END IF;
4003: RAISE FND_API.G_EXC_ERROR;
4004: END IF;
4005:
4014:
4015: -- End Bug: 2732290 -----------------------------------------------------------
4016: IF l_claim.reason_code_id is NULL
4017: THEN
4018: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4019: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_REASON_CD_MISSING');
4020: FND_MSG_PUB.Add;
4021: END IF;
4022: RAISE FND_API.G_EXC_ERROR;
4016: IF l_claim.reason_code_id is NULL
4017: THEN
4018: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4019: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_REASON_CD_MISSING');
4020: FND_MSG_PUB.Add;
4021: END IF;
4022: RAISE FND_API.G_EXC_ERROR;
4023: END IF;
4024: --End of defalting values from Claim defaults.
4031:
4032: IF OZF_DEBUG_LOW_ON THEN
4033: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
4034: FND_MESSAGE.Set_Token('TEXT','l_claim.amount='||l_claim.amount);
4035: FND_MSG_PUB.Add;
4036: END IF;
4037:
4038: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4039: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_AMOUNT_MISSING');
4034: FND_MESSAGE.Set_Token('TEXT','l_claim.amount='||l_claim.amount);
4035: FND_MSG_PUB.Add;
4036: END IF;
4037:
4038: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4039: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_AMOUNT_MISSING');
4040: FND_MSG_PUB.Add;
4041: END IF;
4042: RAISE FND_API.G_EXC_ERROR;
4036: END IF;
4037:
4038: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4039: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_AMOUNT_MISSING');
4040: FND_MSG_PUB.Add;
4041: END IF;
4042: RAISE FND_API.G_EXC_ERROR;
4043: END IF;
4044:
4048: /* OPEN org_id_csr;
4049: FETCH org_id_csr INTO l_org_id;
4050: IF org_id_csr%NOTFOUND THEN
4051: CLOSE org_id_csr;
4052: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
4053: fnd_message.set_name('OZF', 'OZF_CLAIM_ORG_ID_MISSING');
4054: fnd_msg_pub.add;
4055: END IF;
4056: RAISE fnd_api.g_exc_error;
4050: IF org_id_csr%NOTFOUND THEN
4051: CLOSE org_id_csr;
4052: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
4053: fnd_message.set_name('OZF', 'OZF_CLAIM_ORG_ID_MISSING');
4054: fnd_msg_pub.add;
4055: END IF;
4056: RAISE fnd_api.g_exc_error;
4057: END IF;
4058: CLOSE org_id_csr;
4078: -- BUG 4600325 is fixed.
4079: IF l_claim.legal_entity_id is NULL OR
4080: l_claim.legal_entity_id = FND_API.G_MISS_NUM
4081: THEN
4082: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4083: FND_MESSAGE.Set_Name('OZF','OZF_LE_FOR_CLAIM_MISSING');
4084: FND_MSG_PUB.Add;
4085: END IF;
4086: RAISE FND_API.G_EXC_ERROR;
4080: l_claim.legal_entity_id = FND_API.G_MISS_NUM
4081: THEN
4082: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4083: FND_MESSAGE.Set_Name('OZF','OZF_LE_FOR_CLAIM_MISSING');
4084: FND_MSG_PUB.Add;
4085: END IF;
4086: RAISE FND_API.G_EXC_ERROR;
4087: END IF;
4088:
4119: FETCH claim_number_count_csr INTO l_count;
4120: CLOSE claim_number_count_csr;
4121:
4122: IF l_count > 0 THEN
4123: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4124: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DUP_CLAIM_NUM');
4125: FND_MSG_PUB.add;
4126: END IF;
4127: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4121:
4122: IF l_count > 0 THEN
4123: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4124: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DUP_CLAIM_NUM');
4125: FND_MSG_PUB.add;
4126: END IF;
4127: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4128: END IF;
4129: END IF;
4380: CLOSE exchange_rate_type_csr;
4381:
4382: IF l_claim.exchange_rate_type is null OR
4383: l_claim.exchange_rate_type = FND_API.G_MISS_CHAR THEN
4384: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
4385: fnd_message.set_name('OZF', 'OZF_CLAIM_CONTYPE_MISSING');
4386: fnd_msg_pub.add;
4387: END IF;
4388: RAISE fnd_api.g_exc_error;
4382: IF l_claim.exchange_rate_type is null OR
4383: l_claim.exchange_rate_type = FND_API.G_MISS_CHAR THEN
4384: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
4385: fnd_message.set_name('OZF', 'OZF_CLAIM_CONTYPE_MISSING');
4386: fnd_msg_pub.add;
4387: END IF;
4388: RAISE fnd_api.g_exc_error;
4389: END IF;
4390: END IF;
4807: p_approval_in_prog => l_claim.approval_in_prog
4808: );
4809: EXCEPTION
4810: WHEN OTHERS THEN
4811: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4812: FND_MESSAGE.set_name('OZF', 'OZF_TABLE_HANDLER_ERROR');
4813: FND_MSG_PUB.add;
4814: END IF;
4815: RAISE FND_API.g_exc_error;
4809: EXCEPTION
4810: WHEN OTHERS THEN
4811: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4812: FND_MESSAGE.set_name('OZF', 'OZF_TABLE_HANDLER_ERROR');
4813: FND_MSG_PUB.add;
4814: END IF;
4815: RAISE FND_API.g_exc_error;
4816: END;
4817:
4829:
4830: IF OZF_DEBUG_LOW_ON THEN
4831: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
4832: FND_MESSAGE.Set_Token('TEXT','After generate_task: '|| l_return_status);
4833: FND_MSG_PUB.Add;
4834: END IF;
4835: END IF;
4836:
4837: IF l_return_status = FND_API.g_ret_sts_error THEN
5134: -- Debug Message
5135: IF OZF_DEBUG_LOW_ON THEN
5136: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
5137: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
5138: FND_MSG_PUB.Add;
5139: END IF;
5140:
5141: --Standard call to get message count AND if count=1, get the message
5142: FND_MSG_PUB.Count_And_Get (
5138: FND_MSG_PUB.Add;
5139: END IF;
5140:
5141: --Standard call to get message count AND if count=1, get the message
5142: FND_MSG_PUB.Count_And_Get (
5143: p_encoded => FND_API.G_FALSE,
5144: p_count => x_msg_count,
5145: p_data => x_msg_data
5146: );
5148: WHEN FND_API.G_EXC_ERROR THEN
5149: ROLLBACK TO Create_Claim_PVT;
5150: x_return_status := FND_API.G_RET_STS_ERROR;
5151: -- Standard call to get message count AND if count=1, get the message
5152: FND_MSG_PUB.Count_And_Get (
5153: p_encoded => FND_API.G_FALSE,
5154: p_count => x_msg_count,
5155: p_data => x_msg_data
5156: );
5157: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5158: ROLLBACK TO Create_Claim_PVT;
5159: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5160: -- Standard call to get message count AND if count=1, get the message
5161: FND_MSG_PUB.Count_And_Get (
5162: p_encoded => FND_API.G_FALSE,
5163: p_count => x_msg_count,
5164: p_data => x_msg_data
5165: );
5165: );
5166: WHEN OTHERS THEN
5167: ROLLBACK TO Create_Claim_PVT;
5168: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5169: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5170: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5171: END IF;
5172: -- Standard call to get message count AND if count=1, get the message
5173: FND_MSG_PUB.Count_And_Get (
5166: WHEN OTHERS THEN
5167: ROLLBACK TO Create_Claim_PVT;
5168: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5169: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5170: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5171: END IF;
5172: -- Standard call to get message count AND if count=1, get the message
5173: FND_MSG_PUB.Count_And_Get (
5174: p_encoded => FND_API.G_FALSE,
5169: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5170: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5171: END IF;
5172: -- Standard call to get message count AND if count=1, get the message
5173: FND_MSG_PUB.Count_And_Get (
5174: p_encoded => FND_API.G_FALSE,
5175: p_count => x_msg_count,
5176: p_data => x_msg_data
5177: );
5313: -- Debug Message
5314: IF OZF_DEBUG_LOW_ON THEN
5315: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
5316: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
5317: FND_MSG_PUB.Add;
5318: END IF;
5319: --Initialize message list if p_init_msg_list is TRUE.
5320: IF FND_API.To_Boolean (p_init_msg_list) THEN
5321: FND_MSG_PUB.initialize;
5317: FND_MSG_PUB.Add;
5318: END IF;
5319: --Initialize message list if p_init_msg_list is TRUE.
5320: IF FND_API.To_Boolean (p_init_msg_list) THEN
5321: FND_MSG_PUB.initialize;
5322: END IF;
5323: -- Initialize API return status to sucess
5324: x_return_status := FND_API.G_RET_STS_SUCCESS;
5325:
5385: l_index := l_index +1;
5386: END LOOP;
5387: END IF;
5388: ELSE
5389: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5390: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_DEL_CLAIM');
5391: FND_MSG_PUB.add;
5392: END IF;
5393: END IF;
5387: END IF;
5388: ELSE
5389: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5390: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_DEL_CLAIM');
5391: FND_MSG_PUB.add;
5392: END IF;
5393: END IF;
5394: ELSE
5395: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5391: FND_MSG_PUB.add;
5392: END IF;
5393: END IF;
5394: ELSE
5395: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5396: FND_MESSAGE.set_name('OZF', 'OZF_REC_VERSION_CHANGED');
5397: FND_MSG_PUB.add;
5398: END IF;
5399: RAISE FND_API.g_exc_error;
5393: END IF;
5394: ELSE
5395: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5396: FND_MESSAGE.set_name('OZF', 'OZF_REC_VERSION_CHANGED');
5397: FND_MSG_PUB.add;
5398: END IF;
5399: RAISE FND_API.g_exc_error;
5400: END IF;
5401:
5406: -- Debug Message
5407: IF OZF_DEBUG_LOW_ON THEN
5408: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
5409: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
5410: FND_MSG_PUB.Add;
5411: END IF;
5412:
5413: --Standard call to get message count AND if count=1, get the message
5414: FND_MSG_PUB.Count_And_Get (
5410: FND_MSG_PUB.Add;
5411: END IF;
5412:
5413: --Standard call to get message count AND if count=1, get the message
5414: FND_MSG_PUB.Count_And_Get (
5415: p_encoded => FND_API.G_FALSE,
5416: p_count => x_msg_count,
5417: p_data => x_msg_data
5418: );
5420: WHEN FND_API.G_EXC_ERROR THEN
5421: ROLLBACK TO Val_Delete_Claim_PVT;
5422: x_return_status := FND_API.G_RET_STS_ERROR;
5423: -- Standard call to get message count AND if count=1, get the message
5424: FND_MSG_PUB.Count_And_Get (
5425: p_encoded => FND_API.G_FALSE,
5426: p_count => x_msg_count,
5427: p_data => x_msg_data
5428: );
5429: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5430: ROLLBACK TO Val_Delete_Claim_PVT;
5431: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5432: -- Standard call to get message count AND if count=1, get the message
5433: FND_MSG_PUB.Count_And_Get (
5434: p_encoded => FND_API.G_FALSE,
5435: p_count => x_msg_count,
5436: p_data => x_msg_data
5437: );
5437: );
5438: WHEN OTHERS THEN
5439: ROLLBACK TO Val_Delete_Claim_PVT;
5440: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5441: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5442: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5443: END IF;
5444: -- Standard call to get message count AND if count=1, get the message
5445: FND_MSG_PUB.Count_And_Get (
5438: WHEN OTHERS THEN
5439: ROLLBACK TO Val_Delete_Claim_PVT;
5440: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5441: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5442: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5443: END IF;
5444: -- Standard call to get message count AND if count=1, get the message
5445: FND_MSG_PUB.Count_And_Get (
5446: p_encoded => FND_API.G_FALSE,
5441: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5442: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5443: END IF;
5444: -- Standard call to get message count AND if count=1, get the message
5445: FND_MSG_PUB.Count_And_Get (
5446: p_encoded => FND_API.G_FALSE,
5447: p_count => x_msg_count,
5448: p_data => x_msg_data
5449: );
5560: -- Debug Message
5561: IF OZF_DEBUG_LOW_ON THEN
5562: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
5563: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
5564: FND_MSG_PUB.Add;
5565: END IF;
5566: --Initialize message list if p_init_msg_list is TRUE.
5567: IF FND_API.To_Boolean (p_init_msg_list) THEN
5568: FND_MSG_PUB.initialize;
5564: FND_MSG_PUB.Add;
5565: END IF;
5566: --Initialize message list if p_init_msg_list is TRUE.
5567: IF FND_API.To_Boolean (p_init_msg_list) THEN
5568: FND_MSG_PUB.initialize;
5569: END IF;
5570: -- Initialize API return status to sucess
5571: x_return_status := FND_API.G_RET_STS_SUCCESS;
5572:
5689: END IF;
5690:
5691: OZF_claims_PKG.Delete_Row(p_object_id);
5692: ELSE
5693: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5694: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_DEL_CLAIM');
5695: FND_MSG_PUB.add;
5696: END IF;
5697: END IF;
5691: OZF_claims_PKG.Delete_Row(p_object_id);
5692: ELSE
5693: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5694: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_DEL_CLAIM');
5695: FND_MSG_PUB.add;
5696: END IF;
5697: END IF;
5698:
5699: ELSE
5696: END IF;
5697: END IF;
5698:
5699: ELSE
5700: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5701: FND_MESSAGE.set_name('OZF', 'OZF_REC_VERSION_CHANGED');
5702: FND_MSG_PUB.add;
5703: END IF;
5704: RAISE FND_API.g_exc_error;
5698:
5699: ELSE
5700: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5701: FND_MESSAGE.set_name('OZF', 'OZF_REC_VERSION_CHANGED');
5702: FND_MSG_PUB.add;
5703: END IF;
5704: RAISE FND_API.g_exc_error;
5705: END IF;
5706:
5712: -- Debug Message
5713: IF OZF_DEBUG_LOW_ON THEN
5714: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
5715: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
5716: FND_MSG_PUB.Add;
5717: END IF;
5718:
5719: --Standard call to get message count and if count=1, get the message
5720: FND_MSG_PUB.Count_And_Get (
5716: FND_MSG_PUB.Add;
5717: END IF;
5718:
5719: --Standard call to get message count and if count=1, get the message
5720: FND_MSG_PUB.Count_And_Get (
5721: p_encoded => FND_API.G_FALSE,
5722: p_count => x_msg_count,
5723: p_data => x_msg_data
5724: );
5726: WHEN FND_API.G_EXC_ERROR THEN
5727: ROLLBACK TO Delete_Claim_PVT;
5728: x_return_status := FND_API.G_RET_STS_ERROR;
5729: -- Standard call to get message count and if count=1, get the message
5730: FND_MSG_PUB.Count_And_Get (
5731: p_encoded => FND_API.G_FALSE,
5732: p_count => x_msg_count,
5733: p_data => x_msg_data
5734: );
5735: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5736: ROLLBACK TO Delete_Claim_PVT;
5737: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5738: -- Standard call to get message count and if count=1, get the message
5739: FND_MSG_PUB.Count_And_Get (
5740: p_encoded => FND_API.G_FALSE,
5741: p_count => x_msg_count,
5742: p_data => x_msg_data
5743: );
5743: );
5744: WHEN OTHERS THEN
5745: ROLLBACK TO Delete_Claim_PVT;
5746: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5747: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5748: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5749: END IF;
5750: -- Standard call to get message count and if count=1, get the message
5751: FND_MSG_PUB.Count_And_Get (
5744: WHEN OTHERS THEN
5745: ROLLBACK TO Delete_Claim_PVT;
5746: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5747: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5748: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5749: END IF;
5750: -- Standard call to get message count and if count=1, get the message
5751: FND_MSG_PUB.Count_And_Get (
5752: p_encoded => FND_API.G_FALSE,
5747: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5748: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5749: END IF;
5750: -- Standard call to get message count and if count=1, get the message
5751: FND_MSG_PUB.Count_And_Get (
5752: p_encoded => FND_API.G_FALSE,
5753: p_count => x_msg_count,
5754: p_data => x_msg_data
5755: );
5838: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5839: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5840: WHEN OTHERS THEN
5841: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5842: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5843: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_REASON_CHANGE_ERR');
5844: FND_MSG_PUB.add;
5845: END IF;
5846: END reason_changed;
5840: WHEN OTHERS THEN
5841: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5842: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5843: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_REASON_CHANGE_ERR');
5844: FND_MSG_PUB.add;
5845: END IF;
5846: END reason_changed;
5847:
5848: ---------------------------------------------------------------------
5906: -- Debug Message
5907: IF OZF_DEBUG_LOW_ON THEN
5908: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
5909: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
5910: FND_MSG_PUB.Add;
5911: END IF;
5912: --Initialize message list if p_init_msg_list is TRUE.
5913: IF FND_API.To_Boolean (p_init_msg_list) THEN
5914: FND_MSG_PUB.initialize;
5910: FND_MSG_PUB.Add;
5911: END IF;
5912: --Initialize message list if p_init_msg_list is TRUE.
5913: IF FND_API.To_Boolean (p_init_msg_list) THEN
5914: FND_MSG_PUB.initialize;
5915: END IF;
5916: -- Initialize API return status to sucess
5917: x_return_status := FND_API.G_RET_STS_SUCCESS;
5918:
5977: -- Debug Message
5978: IF OZF_DEBUG_LOW_ON THEN
5979: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
5980: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
5981: FND_MSG_PUB.Add;
5982: END IF;
5983: --Standard call to get message count and if count=1, get the message
5984: FND_MSG_PUB.Count_And_Get (
5985: p_encoded => FND_API.G_FALSE,
5980: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
5981: FND_MSG_PUB.Add;
5982: END IF;
5983: --Standard call to get message count and if count=1, get the message
5984: FND_MSG_PUB.Count_And_Get (
5985: p_encoded => FND_API.G_FALSE,
5986: p_count => x_msg_count,
5987: p_data => x_msg_data
5988: );
5990: WHEN FND_API.G_EXC_ERROR THEN
5991: ROLLBACK TO Create_Claim_Hist_PVT;
5992: x_return_status := FND_API.G_RET_STS_ERROR;
5993: -- Standard call to get message count and if count=1, get the message
5994: FND_MSG_PUB.Count_And_Get (
5995: p_encoded => FND_API.G_FALSE,
5996: p_count => x_msg_count,
5997: p_data => x_msg_data
5998: );
5999: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6000: ROLLBACK TO Create_Claim_Hist_PVT;
6001: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6002: -- Standard call to get message count and if count=1, get the message
6003: FND_MSG_PUB.Count_And_Get (
6004: p_encoded => FND_API.G_FALSE,
6005: p_count => x_msg_count,
6006: p_data => x_msg_data
6007: );
6007: );
6008: WHEN OTHERS THEN
6009: ROLLBACK TO Create_Claim_Hist_PVT;
6010: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6011: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6012: THEN
6013: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
6014: END IF;
6015: -- Standard call to get message count and if count=1, get the message
6009: ROLLBACK TO Create_Claim_Hist_PVT;
6010: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6011: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6012: THEN
6013: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
6014: END IF;
6015: -- Standard call to get message count and if count=1, get the message
6016: FND_MSG_PUB.Count_And_Get (
6017: p_encoded => FND_API.G_FALSE,
6012: THEN
6013: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
6014: END IF;
6015: -- Standard call to get message count and if count=1, get the message
6016: FND_MSG_PUB.Count_And_Get (
6017: p_encoded => FND_API.G_FALSE,
6018: p_count => x_msg_count,
6019: p_data => x_msg_data
6020: );
6415: -- Debug Message
6416: IF OZF_DEBUG_LOW_ON THEN
6417: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
6418: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
6419: FND_MSG_PUB.Add;
6420: END IF;
6421: --Initialize message list if p_init_msg_list is TRUE.
6422: IF FND_API.To_Boolean (p_init_msg_list) THEN
6423: FND_MSG_PUB.initialize;
6419: FND_MSG_PUB.Add;
6420: END IF;
6421: --Initialize message list if p_init_msg_list is TRUE.
6422: IF FND_API.To_Boolean (p_init_msg_list) THEN
6423: FND_MSG_PUB.initialize;
6424: END IF;
6425: -- Initialize API return status to sucess
6426: x_return_status := FND_API.G_RET_STS_SUCCESS;
6427:
6433:
6434: -- Varify object_version_number
6435: IF (l_claim.object_version_number is NULL or
6436: l_claim.object_version_number = FND_API.G_MISS_NUM ) THEN
6437: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6438: FND_MESSAGE.Set_Name('OZF', 'OZF_API_NO_OBJ_VER_NUM');
6439: FND_MSG_PUB.ADD;
6440: END IF;
6441: RAISE FND_API.G_EXC_ERROR;
6435: IF (l_claim.object_version_number is NULL or
6436: l_claim.object_version_number = FND_API.G_MISS_NUM ) THEN
6437: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6438: FND_MESSAGE.Set_Name('OZF', 'OZF_API_NO_OBJ_VER_NUM');
6439: FND_MSG_PUB.ADD;
6440: END IF;
6441: RAISE FND_API.G_EXC_ERROR;
6442: END IF;
6443:
6445: FETCH object_version_number_csr INTO l_object_version_number;
6446: CLOSE object_version_number_csr;
6447:
6448: IF l_object_version_number <> l_claim.object_version_number THEN
6449: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6450: FND_MESSAGE.Set_Name('OZF', 'OZF_API_RESOURCE_LOCKED');
6451: FND_MSG_PUB.ADD;
6452: END IF;
6453: RAISE FND_API.G_EXC_ERROR;
6447:
6448: IF l_object_version_number <> l_claim.object_version_number THEN
6449: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6450: FND_MESSAGE.Set_Name('OZF', 'OZF_API_RESOURCE_LOCKED');
6451: FND_MSG_PUB.ADD;
6452: END IF;
6453: RAISE FND_API.G_EXC_ERROR;
6454: END IF;
6455:
6492: X_Msg_Data => l_msg_data,
6493: X_access => l_access);
6494:
6495: IF l_access = 'N' THEN
6496: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6497: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_NO_ACCESS');
6498: FND_MSG_PUB.Add;
6499: END IF;
6500: RAISE FND_API.G_EXC_ERROR;
6494:
6495: IF l_access = 'N' THEN
6496: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6497: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_NO_ACCESS');
6498: FND_MSG_PUB.Add;
6499: END IF;
6500: RAISE FND_API.G_EXC_ERROR;
6501: END IF;
6502: END IF;
6551:
6552: --ninarasi fix for bug 13395562
6553: IF (l_old_status_code = 'PENDING_CLOSE' AND l_claim.status_code = 'CLOSED' AND l_payment_status <> 'PAID') OR (l_old_status_code = 'PENDING_APPROVAL' AND l_claim.status_code = 'CLOSED' AND l_claim.approved_by IS NULL) THEN
6554: --ozf_utility_PVT.debug_message('Claim is either in pending close or pending approval');
6555: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6556: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_UPDATE_ERROR');
6557: FND_MSG_PUB.ADD;
6558: END IF;
6559: RAISE FND_API.G_EXC_ERROR;
6553: IF (l_old_status_code = 'PENDING_CLOSE' AND l_claim.status_code = 'CLOSED' AND l_payment_status <> 'PAID') OR (l_old_status_code = 'PENDING_APPROVAL' AND l_claim.status_code = 'CLOSED' AND l_claim.approved_by IS NULL) THEN
6554: --ozf_utility_PVT.debug_message('Claim is either in pending close or pending approval');
6555: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6556: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_UPDATE_ERROR');
6557: FND_MSG_PUB.ADD;
6558: END IF;
6559: RAISE FND_API.G_EXC_ERROR;
6560: END IF;
6561:
6642: -- Reason is a required field when the claim is updated.
6643: IF l_claim.reason_code_id is null
6644: OR l_claim.reason_code_id = FND_API.G_MISS_NUM
6645: THEN
6646: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6647: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_REASON_CD_MISSING');
6648: FND_MSG_PUB.Add;
6649: END IF;
6650: RAISE FND_API.G_EXC_ERROR;
6644: OR l_claim.reason_code_id = FND_API.G_MISS_NUM
6645: THEN
6646: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6647: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_REASON_CD_MISSING');
6648: FND_MSG_PUB.Add;
6649: END IF;
6650: RAISE FND_API.G_EXC_ERROR;
6651: END IF;
6652: -- End Bug: 3359914 -----------------------------------------------------------
6712: -- if user change status to dupliate, we need to have duplicate_claim_id as inputs
6713: IF l_claim.status_code = G_DUPLICATE_STATUS THEN
6714: IF l_claim.duplicate_claim_id is null OR
6715: l_claim.duplicate_claim_id = FND_API.G_MISS_NUM THEN
6716: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6717: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DUP_CLM_ID_MISSING');
6718: FND_MSG_PUB.add;
6719: END IF;
6720: RAISE FND_API.G_EXC_ERROR;
6714: IF l_claim.duplicate_claim_id is null OR
6715: l_claim.duplicate_claim_id = FND_API.G_MISS_NUM THEN
6716: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6717: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DUP_CLM_ID_MISSING');
6718: FND_MSG_PUB.add;
6719: END IF;
6720: RAISE FND_API.G_EXC_ERROR;
6721: END IF;
6722:
6722:
6723: -- Raise an error
6724: -- if the duplicate_claim_id equal to the current claim_id
6725: IF l_claim.duplicate_claim_id = l_claim.claim_id THEN
6726: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6727: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_DUP_ID_SAME');
6728: FND_MSG_PUB.Add;
6729: END IF;
6730: RAISE FND_API.G_EXC_ERROR;
6724: -- if the duplicate_claim_id equal to the current claim_id
6725: IF l_claim.duplicate_claim_id = l_claim.claim_id THEN
6726: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6727: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_DUP_ID_SAME');
6728: FND_MSG_PUB.Add;
6729: END IF;
6730: RAISE FND_API.G_EXC_ERROR;
6731: END IF;
6732: END IF;
6748: -- (OZF_access_PVT.Check_Admin_Access(l_resource_id) = false)) THEN
6749: IF ((l_old_owner_id <> l_resource_id) AND
6750: (l_access <> 'F') AND
6751: (p_mode = OZF_claim_Utility_pvt.G_MANU_MODE) ) THEN
6752: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6753: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_UPDT_OWNER_PERM');
6754: FND_MSG_PUB.ADD;
6755: END IF;
6756: RAISE FND_API.G_EXC_ERROR;
6750: (l_access <> 'F') AND
6751: (p_mode = OZF_claim_Utility_pvt.G_MANU_MODE) ) THEN
6752: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6753: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_UPDT_OWNER_PERM');
6754: FND_MSG_PUB.ADD;
6755: END IF;
6756: RAISE FND_API.G_EXC_ERROR;
6757: END IF;
6758: -- delete access for the current owner
6897: END LOOP;
6898: END IF;
6899: ELSE
6900: -- Should never be in this block.
6901: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
6902: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_UPDATE_OWNER_ERR');
6903: FND_MSG_PUB.add;
6904: END IF;
6905: RAISE FND_API.g_exc_error;
6899: ELSE
6900: -- Should never be in this block.
6901: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
6902: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_UPDATE_OWNER_ERR');
6903: FND_MSG_PUB.add;
6904: END IF;
6905: RAISE FND_API.g_exc_error;
6906: END IF;
6907: END IF;
6911: OPEN gp_func_currency_cd_csr;
6912: FETCH gp_func_currency_cd_csr INTO l_functional_currency_code;
6913: IF gp_func_currency_cd_csr%NOTFOUND THEN
6914: CLOSE gp_func_currency_cd_csr;
6915: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
6916: fnd_message.set_name('OZF', 'OZF_CLAIM_GL_FUNCUR_MISSING');
6917: fnd_msg_pub.add;
6918: END IF;
6919: RAISE fnd_api.g_exc_error;
6913: IF gp_func_currency_cd_csr%NOTFOUND THEN
6914: CLOSE gp_func_currency_cd_csr;
6915: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
6916: fnd_message.set_name('OZF', 'OZF_CLAIM_GL_FUNCUR_MISSING');
6917: fnd_msg_pub.add;
6918: END IF;
6919: RAISE fnd_api.g_exc_error;
6920: END IF;
6921: CLOSE gp_func_currency_cd_csr;
6921: CLOSE gp_func_currency_cd_csr;
6922: IF l_claim.currency_code <> l_functional_currency_code THEN
6923: IF l_claim.exchange_rate_type is null OR
6924: l_claim.exchange_rate_type = FND_API.G_MISS_CHAR THEN
6925: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
6926: fnd_message.set_name('OZF', 'OZF_CLAIM_CONTYPE_MISSING');
6927: fnd_msg_pub.add;
6928: END IF;
6929: RAISE fnd_api.g_exc_error;
6923: IF l_claim.exchange_rate_type is null OR
6924: l_claim.exchange_rate_type = FND_API.G_MISS_CHAR THEN
6925: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
6926: fnd_message.set_name('OZF', 'OZF_CLAIM_CONTYPE_MISSING');
6927: fnd_msg_pub.add;
6928: END IF;
6929: RAISE fnd_api.g_exc_error;
6930: END IF;
6931: IF l_claim.acctd_amount IS NOT NULL THEN
6982: OPEN gp_func_currency_cd_csr;
6983: FETCH gp_func_currency_cd_csr INTO l_functional_currency_code;
6984: IF gp_func_currency_cd_csr%NOTFOUND THEN
6985: CLOSE gp_func_currency_cd_csr;
6986: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
6987: fnd_message.set_name('OZF', 'OZF_CLAIM_GL_FUNCUR_MISSING');
6988: fnd_msg_pub.add;
6989: END IF;
6990: RAISE fnd_api.g_exc_error;
6984: IF gp_func_currency_cd_csr%NOTFOUND THEN
6985: CLOSE gp_func_currency_cd_csr;
6986: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
6987: fnd_message.set_name('OZF', 'OZF_CLAIM_GL_FUNCUR_MISSING');
6988: fnd_msg_pub.add;
6989: END IF;
6990: RAISE fnd_api.g_exc_error;
6991: END IF;
6992: CLOSE gp_func_currency_cd_csr;
7011: CLOSE exchange_rate_type_csr;
7012:
7013: IF l_claim.exchange_rate_type is null OR
7014: l_claim.exchange_rate_type = FND_API.G_MISS_CHAR THEN
7015: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
7016: fnd_message.set_name('OZF', 'OZF_CLAIM_CONTYPE_MISSING');
7017: fnd_msg_pub.add;
7018: END IF;
7019: RAISE fnd_api.g_exc_error;
7013: IF l_claim.exchange_rate_type is null OR
7014: l_claim.exchange_rate_type = FND_API.G_MISS_CHAR THEN
7015: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
7016: fnd_message.set_name('OZF', 'OZF_CLAIM_CONTYPE_MISSING');
7017: fnd_msg_pub.add;
7018: END IF;
7019: RAISE fnd_api.g_exc_error;
7020: END IF;
7021: END IF;
7111: IF p_mode <> OZF_claim_Utility_pvt.G_AUTO_MODE THEN --Bug:2781186
7112: IF l_claim.status_code NOT IN ('PENDING_CLOSE', 'CLOSED') AND
7113: ABS(l_claim.amount_remaining + l_claim.amount_settled) < ABS(l_claim_lines_sum) THEN
7114: -- [END FIX 04/29/02]
7115: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
7116: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_AMT_REM_ERR');
7117: FND_MSG_PUB.add;
7118: END IF;
7119: RAISE FND_API.g_exc_error;
7113: ABS(l_claim.amount_remaining + l_claim.amount_settled) < ABS(l_claim_lines_sum) THEN
7114: -- [END FIX 04/29/02]
7115: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
7116: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_AMT_REM_ERR');
7117: FND_MSG_PUB.add;
7118: END IF;
7119: RAISE FND_API.g_exc_error;
7120: END IF;
7121: END IF; --End of relaxation.
7321: IF (l_claim_line_count <> 0)THEN
7322: IF OZF_DEBUG_HIGH_ON THEN
7323: OZF_Utility_PVT.debug_message('Caim Line Exists :');
7324: END IF;
7325: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7326: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_LINE_EXISTS');
7327: FND_MSG_PUB.Add;
7328: END IF;
7329: RAISE FND_API.G_EXC_ERROR;
7323: OZF_Utility_PVT.debug_message('Caim Line Exists :');
7324: END IF;
7325: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7326: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_LINE_EXISTS');
7327: FND_MSG_PUB.Add;
7328: END IF;
7329: RAISE FND_API.G_EXC_ERROR;
7330: END IF;
7331: END IF;
7372: ELSE
7373: IF OZF_DEBUG_HIGH_ON THEN
7374: OZF_Utility_PVT.debug_message('COUNT >1 And raise error');
7375: END IF;
7376: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7377: FND_MESSAGE.Set_Name('OZF','OZF_DED_LINE_UPDATED');
7378: FND_MSG_PUB.Add;
7379: END IF;
7380: END IF; --IF(l_invoice_count = 1) THEN
7374: OZF_Utility_PVT.debug_message('COUNT >1 And raise error');
7375: END IF;
7376: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7377: FND_MESSAGE.Set_Name('OZF','OZF_DED_LINE_UPDATED');
7378: FND_MSG_PUB.Add;
7379: END IF;
7380: END IF; --IF(l_invoice_count = 1) THEN
7381:
7382: END IF; --l_claim_line_count > 0
7632: -- message stack only allow to initialize in the begining
7633: -- of api, not at this point.
7634: /*
7635: IF FND_API.To_Boolean (p_init_msg_list) THEN
7636: FND_MSG_PUB.initialize;
7637: END IF;
7638: */
7639:
7640: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7636: FND_MSG_PUB.initialize;
7637: END IF;
7638: */
7639:
7640: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7641: FND_MESSAGE.Set_Name('AMS', 'OZF_CLAIM_API_NO_OPEN_STATUS');
7642: FND_MSG_PUB.ADD;
7643: END IF;
7644: RAISE FND_API.G_EXC_ERROR;
7638: */
7639:
7640: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7641: FND_MESSAGE.Set_Name('AMS', 'OZF_CLAIM_API_NO_OPEN_STATUS');
7642: FND_MSG_PUB.ADD;
7643: END IF;
7644: RAISE FND_API.G_EXC_ERROR;
7645: END IF;
7646: -- End Bug: 2732290 -----------------------------------------------------------
7801: );
7802:
7803: EXCEPTION
7804: WHEN OTHERS THEN
7805: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
7806: FND_MESSAGE.set_name('OZF', 'OZF_TABLE_HANDLER_ERROR');
7807: FND_MSG_PUB.add;
7808: END IF;
7809: RAISE FND_API.g_exc_error;
7803: EXCEPTION
7804: WHEN OTHERS THEN
7805: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
7806: FND_MESSAGE.set_name('OZF', 'OZF_TABLE_HANDLER_ERROR');
7807: FND_MSG_PUB.add;
7808: END IF;
7809: RAISE FND_API.g_exc_error;
7810: END;
7811: l_rec_num := 1;
8290: -- Debug Message
8291: IF OZF_DEBUG_LOW_ON THEN
8292: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
8293: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
8294: FND_MSG_PUB.Add;
8295: END IF;
8296: --Standard call to get message count and if count=1, get the message
8297: FND_MSG_PUB.Count_And_Get (
8298: p_encoded => FND_API.G_FALSE,
8293: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
8294: FND_MSG_PUB.Add;
8295: END IF;
8296: --Standard call to get message count and if count=1, get the message
8297: FND_MSG_PUB.Count_And_Get (
8298: p_encoded => FND_API.G_FALSE,
8299: p_count => x_msg_count,
8300: p_data => x_msg_data
8301: );
8305: ROLLBACK TO Update_Claim_PVT;
8306: -- END IF;
8307: x_return_status := FND_API.G_RET_STS_ERROR;
8308: -- Standard call to get message count and if count=1, get the message
8309: FND_MSG_PUB.Count_And_Get (
8310: p_encoded => FND_API.G_FALSE,
8311: p_count => x_msg_count,
8312: p_data => x_msg_data
8313: );
8316: ROLLBACK TO Update_Claim_PVT;
8317: -- END IF;
8318: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8319: -- Standard call to get message count and if count=1, get the message
8320: FND_MSG_PUB.Count_And_Get (
8321: p_encoded => FND_API.G_FALSE,
8322: p_count => x_msg_count,
8323: p_data => x_msg_data
8324: );
8326: -- IF ( NOT G_UPDATE_CALLED ) THEN
8327: ROLLBACK TO Update_Claim_PVT;
8328: -- END IF;
8329: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8330: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8331: THEN
8332: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
8333: END IF;
8334: -- Standard call to get message count and if count=1, get the message
8328: -- END IF;
8329: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8330: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8331: THEN
8332: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
8333: END IF;
8334: -- Standard call to get message count and if count=1, get the message
8335: FND_MSG_PUB.Count_And_Get (
8336: p_encoded => FND_API.G_FALSE,
8331: THEN
8332: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
8333: END IF;
8334: -- Standard call to get message count and if count=1, get the message
8335: FND_MSG_PUB.Count_And_Get (
8336: p_encoded => FND_API.G_FALSE,
8337: p_count => x_msg_count,
8338: p_data => x_msg_data
8339: );
8500: -- Debug Message
8501: IF OZF_DEBUG_LOW_ON THEN
8502: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
8503: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
8504: FND_MSG_PUB.Add;
8505: END IF;
8506:
8507: --Initialize message list if p_init_msg_list is TRUE.
8508: IF FND_API.To_Boolean (p_init_msg_list) THEN
8505: END IF;
8506:
8507: --Initialize message list if p_init_msg_list is TRUE.
8508: IF FND_API.To_Boolean (p_init_msg_list) THEN
8509: FND_MSG_PUB.initialize;
8510: END IF;
8511:
8512: -- Initialize API return status to sucess
8513: x_return_status := FND_API.G_RET_STS_SUCCESS;
8528:
8529: -- Raise an error
8530: -- Due_date must be later than the claim_date
8531: IF trunc(l_claim.DUE_DATE) < trunc(l_claim.claim_date) THEN
8532: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8533: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DUE_DATE_ERR');
8534: FND_MSG_PUB.add;
8535: END IF;
8536: IF OZF_DEBUG_HIGH_ON THEN
8530: -- Due_date must be later than the claim_date
8531: IF trunc(l_claim.DUE_DATE) < trunc(l_claim.claim_date) THEN
8532: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8533: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DUE_DATE_ERR');
8534: FND_MSG_PUB.add;
8535: END IF;
8536: IF OZF_DEBUG_HIGH_ON THEN
8537: ozf_utility_PVT.debug_message('claim date: ' || l_claim.claim_date);
8538: ozf_utility_PVT.debug_message('due date: ' || l_claim.DUE_DATE);
8544: -- if the current status code is not duplicate but the duplicate_claim_id is not null
8545: IF ((l_claim.status_code <> G_DUPLICATE_STATUS) AND
8546: (l_claim.duplicate_claim_id is not null) AND
8547: (l_claim.duplicate_claim_id <> FND_API.G_MISS_NUM)) THEN
8548: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
8549: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CANT_DUP');
8550: FND_MSG_PUB.Add;
8551: END IF;
8552: RAISE FND_API.G_EXC_ERROR;
8546: (l_claim.duplicate_claim_id is not null) AND
8547: (l_claim.duplicate_claim_id <> FND_API.G_MISS_NUM)) THEN
8548: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
8549: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CANT_DUP');
8550: FND_MSG_PUB.Add;
8551: END IF;
8552: RAISE FND_API.G_EXC_ERROR;
8553: END IF;
8554:
8565: FETCH cust_site_csr INTO l_count;
8566: CLOSE cust_site_csr;
8567:
8568: IF (l_count = 0) THEN
8569: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
8570: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_BILL_TO_ST_WRNG');
8571: FND_MSG_PUB.Add;
8572: END IF;
8573: RAISE FND_API.G_EXC_ERROR;
8567:
8568: IF (l_count = 0) THEN
8569: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
8570: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_BILL_TO_ST_WRNG');
8571: FND_MSG_PUB.Add;
8572: END IF;
8573: RAISE FND_API.G_EXC_ERROR;
8574: END IF;
8575: END IF;
8582: FETCH rel_cust_csr INTO l_count;
8583: CLOSE rel_cust_csr;
8584:
8585: IF (l_count = 0) THEN
8586: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
8587: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_UNRELATED_SHIPTO');
8588: FND_MSG_PUB.Add;
8589: END IF;
8590: RAISE FND_API.G_EXC_ERROR;
8584:
8585: IF (l_count = 0) THEN
8586: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
8587: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_UNRELATED_SHIPTO');
8588: FND_MSG_PUB.Add;
8589: END IF;
8590: RAISE FND_API.G_EXC_ERROR;
8591: END IF;
8592: END IF;
8601: FETCH cust_site_csr INTO l_count;
8602: CLOSE cust_site_csr;
8603:
8604: IF (l_count = 0) THEN
8605: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
8606: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_SHIP_TO_ST_WRNG');
8607: FND_MSG_PUB.Add;
8608: END IF;
8609: RAISE FND_API.G_EXC_ERROR;
8603:
8604: IF (l_count = 0) THEN
8605: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
8606: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_SHIP_TO_ST_WRNG');
8607: FND_MSG_PUB.Add;
8608: END IF;
8609: RAISE FND_API.G_EXC_ERROR;
8610: END IF;
8611: END IF; */
8621: FETCH party_csr INTO l_count;
8622: CLOSE party_csr;
8623:
8624: IF (l_count = 0) THEN
8625: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
8626: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CONTACT_WRNG');
8627: FND_MSG_PUB.Add;
8628: END IF;
8629: RAISE FND_API.G_EXC_ERROR;
8623:
8624: IF (l_count = 0) THEN
8625: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
8626: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CONTACT_WRNG');
8627: FND_MSG_PUB.Add;
8628: END IF;
8629: RAISE FND_API.G_EXC_ERROR;
8630: END IF;
8631: END IF;
8640: FETCH party_csr INTO l_count;
8641: CLOSE party_csr;
8642:
8643: IF (l_count = 0) THEN
8644: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
8645: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_BROKER_WRNG');
8646: FND_MSG_PUB.Add;
8647: END IF;
8648: RAISE FND_API.G_EXC_ERROR;
8642:
8643: IF (l_count = 0) THEN
8644: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
8645: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_BROKER_WRNG');
8646: FND_MSG_PUB.Add;
8647: END IF;
8648: RAISE FND_API.G_EXC_ERROR;
8649: END IF;
8650: END IF;
8659: FETCH sales_rep_num_csr INTO l_sales_rep_num;
8660: CLOSE sales_rep_num_csr;
8661:
8662: IF l_sales_rep_num = 0 THEN
8663: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8664: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_SALES_REP_MISSING');
8665: FND_MSG_PUB.add;
8666: END IF;
8667: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8661:
8662: IF l_sales_rep_num = 0 THEN
8663: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8664: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_SALES_REP_MISSING');
8665: FND_MSG_PUB.add;
8666: END IF;
8667: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8668: END IF;
8669: END IF;
8669: END IF;
8670: */
8671:
8672: ELSE
8673: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
8674: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CUST_ID_MISSING');
8675: FND_MSG_PUB.Add;
8676: END IF;
8677: RAISE FND_API.G_EXC_ERROR;
8671:
8672: ELSE
8673: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
8674: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CUST_ID_MISSING');
8675: FND_MSG_PUB.Add;
8676: END IF;
8677: RAISE FND_API.G_EXC_ERROR;
8678: END IF;
8679:
8688: FETCH status_count_csr INTO l_count;
8689: CLOSE status_count_csr;
8690:
8691: IF l_count <> 1 THEN
8692: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
8693: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_STATUS_NOT_MAT');
8694: FND_MSG_PUB.Add;
8695:
8696: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
8690:
8691: IF l_count <> 1 THEN
8692: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
8693: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_STATUS_NOT_MAT');
8694: FND_MSG_PUB.Add;
8695:
8696: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
8697: FND_MESSAGE.Set_Token('TEXT','code: '||l_claim.status_code||' id:'||l_claim.user_status_id);
8698: FND_MSG_PUB.Add;
8694: FND_MSG_PUB.Add;
8695:
8696: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
8697: FND_MESSAGE.Set_Token('TEXT','code: '||l_claim.status_code||' id:'||l_claim.user_status_id);
8698: FND_MSG_PUB.Add;
8699: END IF;
8700: RAISE FND_API.G_EXC_ERROR;
8701: END IF;
8702: */
8713: FETCH action_count_csr INTO l_count;
8714: CLOSE action_count_csr;
8715:
8716: IF l_count <> 1 THEN
8717: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
8718: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_ACTION_NOT_MAT');
8719: FND_MSG_PUB.Add;
8720: END IF;
8721: RAISE FND_API.G_EXC_ERROR;
8715:
8716: IF l_count <> 1 THEN
8717: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
8718: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_ACTION_NOT_MAT');
8719: FND_MSG_PUB.Add;
8720: END IF;
8721: RAISE FND_API.G_EXC_ERROR;
8722: END IF;
8723: END IF;
8725:
8726: -- raise an error if owner_id is not found
8727: IF (l_claim.owner_id is null OR
8728: l_claim.owner_id = FND_API.G_MISS_NUM) THEN
8729: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
8730: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_OWNER_NOT_FOUND');
8731: FND_MSG_PUB.Add;
8732: END IF;
8733: RAISE FND_API.G_EXC_ERROR;
8727: IF (l_claim.owner_id is null OR
8728: l_claim.owner_id = FND_API.G_MISS_NUM) THEN
8729: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
8730: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_OWNER_NOT_FOUND');
8731: FND_MSG_PUB.Add;
8732: END IF;
8733: RAISE FND_API.G_EXC_ERROR;
8734: END IF;
8735:
8735:
8736: -- raise an error if status_code is open and amount_remaining is 0
8737: IF (l_claim.status_code = G_OPEN_STATUS AND
8738: l_claim.amount_remaining = 0) THEN
8739: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
8740: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_AMT_ZERO_WOPEN');
8741: FND_MSG_PUB.Add;
8742: END IF;
8743: RAISE FND_API.G_EXC_ERROR;
8737: IF (l_claim.status_code = G_OPEN_STATUS AND
8738: l_claim.amount_remaining = 0) THEN
8739: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
8740: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_AMT_ZERO_WOPEN');
8741: FND_MSG_PUB.Add;
8742: END IF;
8743: RAISE FND_API.G_EXC_ERROR;
8744: END IF;
8745:
8747: -- raise an error if amount is >0 and claim_class = OVERPAYMENT or charge
8748: IF (l_claim.amount < 0 AND
8749: (l_claim.claim_class = G_CLAIM_CLASS OR
8750: l_claim.claim_class = G_DEDUCTION_CLASS)) THEN
8751: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
8752: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_AMT_NEG');
8753: FND_MSG_PUB.Add;
8754: END IF;
8755: RAISE FND_API.G_EXC_ERROR;
8749: (l_claim.claim_class = G_CLAIM_CLASS OR
8750: l_claim.claim_class = G_DEDUCTION_CLASS)) THEN
8751: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
8752: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_AMT_NEG');
8753: FND_MSG_PUB.Add;
8754: END IF;
8755: RAISE FND_API.G_EXC_ERROR;
8756: END IF;
8757:
8757:
8758: IF (l_claim.amount > 0 AND
8759: (l_claim.claim_class = G_OVERPAYMENT_CLASS OR
8760: l_claim.claim_class = G_CHARGE_CLASS )) THEN
8761: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
8762: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_AMT_POS_OPM');
8763: FND_MSG_PUB.Add;
8764: END IF;
8765: RAISE FND_API.G_EXC_ERROR;
8759: (l_claim.claim_class = G_OVERPAYMENT_CLASS OR
8760: l_claim.claim_class = G_CHARGE_CLASS )) THEN
8761: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
8762: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_AMT_POS_OPM');
8763: FND_MSG_PUB.Add;
8764: END IF;
8765: RAISE FND_API.G_EXC_ERROR;
8766: END IF;
8767:
8776: l_claim.source_object_type_id = FND_API.G_MISS_NUM) OR
8777: (l_claim.source_object_number IS NULL OR
8778: l_claim.source_object_number = FND_API.G_MISS_CHAR)) THEN
8779:
8780: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8781: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_SRC_INFO_MISSING');
8782: FND_MSG_PUB.add;
8783: END IF;
8784: RAISE FND_API.g_exc_error;
8778: l_claim.source_object_number = FND_API.G_MISS_CHAR)) THEN
8779:
8780: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8781: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_SRC_INFO_MISSING');
8782: FND_MSG_PUB.add;
8783: END IF;
8784: RAISE FND_API.g_exc_error;
8785: END IF;
8786: END IF;
8793: FETCH payment_method_csr into l_lookup_code_count;
8794: CLOSE payment_method_csr;
8795:
8796: IF l_lookup_code_count = 0 THEN
8797: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8798: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_PAY_MTHD_WRG');
8799: FND_MSG_PUB.add;
8800: END IF;
8801: RAISE FND_API.g_exc_error;
8795:
8796: IF l_lookup_code_count = 0 THEN
8797: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8798: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_PAY_MTHD_WRG');
8799: FND_MSG_PUB.add;
8800: END IF;
8801: RAISE FND_API.g_exc_error;
8802: END IF;
8803: END IF;
8808:
8809: IF (l_claim.pay_related_account_flag <> 'F' AND
8810: l_claim.pay_related_account_flag <> 'T') THEN
8811:
8812: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8813: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_PAY_REL_FLG_WRG');
8814: FND_MSG_PUB.add;
8815: END IF;
8816: RAISE FND_API.g_exc_error;
8810: l_claim.pay_related_account_flag <> 'T') THEN
8811:
8812: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8813: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_PAY_REL_FLG_WRG');
8814: FND_MSG_PUB.add;
8815: END IF;
8816: RAISE FND_API.g_exc_error;
8817: END IF;
8818: END IF;
8824: OPEN order_type_count_csr(l_claim.order_type_id);
8825: FETCH order_type_count_csr into l_order_type_count;
8826: CLOSE order_type_count_csr;
8827: IF l_order_type_count = 0 then
8828: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8829: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_ODTYPE_WRG');
8830: FND_MSG_PUB.add;
8831: END IF;
8832: RAISE FND_API.g_exc_error;
8826: CLOSE order_type_count_csr;
8827: IF l_order_type_count = 0 then
8828: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8829: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_ODTYPE_WRG');
8830: FND_MSG_PUB.add;
8831: END IF;
8832: RAISE FND_API.g_exc_error;
8833: END IF;
8834: END IF;
8848: ozf_utility_PVT.debug_message('Claim Org: ' || l_claim.org_id);
8849: END IF;
8850:
8851: IF (l_claim_type_org_id <> l_claim.org_id) THEN
8852: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8853: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_TYPE_MISMATCH');
8854: FND_MSG_PUB.add;
8855: END IF;
8856: RAISE FND_API.g_exc_error;
8850:
8851: IF (l_claim_type_org_id <> l_claim.org_id) THEN
8852: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8853: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_TYPE_MISMATCH');
8854: FND_MSG_PUB.add;
8855: END IF;
8856: RAISE FND_API.g_exc_error;
8857: END IF;
8858:
8874: ozf_utility_PVT.debug_message('Claim Org: ' || l_claim.org_id);
8875: END IF;
8876:
8877: IF (l_claim_reason_org_id <> l_claim.org_id) THEN
8878: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8879: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_REASON_MISMATCH');
8880: FND_MSG_PUB.add;
8881: END IF;
8882: RAISE FND_API.g_exc_error;
8876:
8877: IF (l_claim_reason_org_id <> l_claim.org_id) THEN
8878: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8879: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_REASON_MISMATCH');
8880: FND_MSG_PUB.add;
8881: END IF;
8882: RAISE FND_API.g_exc_error;
8883: END IF;
8884:
8890: -- Debug Message
8891: IF OZF_DEBUG_LOW_ON THEN
8892: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
8893: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
8894: FND_MSG_PUB.Add;
8895: END IF;
8896: --Standard call to get message count and if count=1, get the message
8897: FND_MSG_PUB.Count_And_Get (
8898: p_encoded => FND_API.G_FALSE,
8893: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
8894: FND_MSG_PUB.Add;
8895: END IF;
8896: --Standard call to get message count and if count=1, get the message
8897: FND_MSG_PUB.Count_And_Get (
8898: p_encoded => FND_API.G_FALSE,
8899: p_count => x_msg_count,
8900: p_data => x_msg_data
8901: );
8903: WHEN FND_API.G_EXC_ERROR THEN
8904: ROLLBACK TO Validate_Claim_PVT;
8905: x_return_status := FND_API.G_RET_STS_ERROR;
8906: -- Standard call to get message count and if count=1, get the message
8907: FND_MSG_PUB.Count_And_Get (
8908: p_encoded => FND_API.G_FALSE,
8909: p_count => x_msg_count,
8910: p_data => x_msg_data
8911: );
8912: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8913: ROLLBACK TO Validate_Claim_PVT;
8914: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8915: -- Standard call to get message count and if count=1, get the message
8916: FND_MSG_PUB.Count_And_Get (
8917: p_encoded => FND_API.G_FALSE,
8918: p_count => x_msg_count,
8919: p_data => x_msg_data
8920: );
8920: );
8921: WHEN OTHERS THEN
8922: ROLLBACK TO Validate_Claim_PVT;
8923: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8924: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8925: THEN
8926: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
8927: END IF;
8928: -- Standard call to get message count and if count=1, get the message
8922: ROLLBACK TO Validate_Claim_PVT;
8923: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8924: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8925: THEN
8926: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
8927: END IF;
8928: -- Standard call to get message count and if count=1, get the message
8929: FND_MSG_PUB.Count_And_Get (
8930: p_encoded => FND_API.G_FALSE,
8925: THEN
8926: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
8927: END IF;
8928: -- Standard call to get message count and if count=1, get the message
8929: FND_MSG_PUB.Count_And_Get (
8930: p_encoded => FND_API.G_FALSE,
8931: p_count => x_msg_count,
8932: p_data => x_msg_data
8933: );
9022: -- Debug Message
9023: IF OZF_DEBUG_LOW_ON THEN
9024: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
9025: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
9026: FND_MSG_PUB.Add;
9027: END IF;
9028:
9029: --Initialize message list if p_init_msg_list is TRUE.
9030: IF FND_API.To_Boolean (p_init_msg_list) THEN
9027: END IF;
9028:
9029: --Initialize message list if p_init_msg_list is TRUE.
9030: IF FND_API.To_Boolean (p_init_msg_list) THEN
9031: FND_MSG_PUB.initialize;
9032: END IF;
9033:
9034: -- Initialize API return status to sucess
9035: x_return_status := FND_API.G_RET_STS_SUCCESS;
9047: -- OPEN claim_type_id_csr;
9048: -- FETCH claim_type_id_csr into l_claim.claim_type_id;
9049: -- CLOSE claim_type_id_csr;
9050: -- IF l_claim.claim_type_id is NULL THEN
9051: -- IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
9052: -- FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CLAIM_TYPE_MISSING');
9053: -- FND_MSG_PUB.Add;
9054: -- END IF;
9055: -- RAISE FND_API.G_EXC_ERROR;
9049: -- CLOSE claim_type_id_csr;
9050: -- IF l_claim.claim_type_id is NULL THEN
9051: -- IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
9052: -- FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CLAIM_TYPE_MISSING');
9053: -- FND_MSG_PUB.Add;
9054: -- END IF;
9055: -- RAISE FND_API.G_EXC_ERROR;
9056: -- END IF;
9057: -- ELSE
9060: -- FETCH number_of_claim_type_id_csr INTO l_number_of_claim_type_id;
9061: -- CLOSE number_of_claim_type_id_csr;
9062: --
9063: -- IF l_number_of_claim_type_id = 0 THEN
9064: -- IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
9065: -- FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CLAIM_TYPE_NOT_IN_DB');
9066: -- FND_MSG_PUB.add;
9067: -- END IF;
9068: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9062: --
9063: -- IF l_number_of_claim_type_id = 0 THEN
9064: -- IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
9065: -- FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CLAIM_TYPE_NOT_IN_DB');
9066: -- FND_MSG_PUB.add;
9067: -- END IF;
9068: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9069: -- END IF;
9070: -- END IF;
9079: -- FETCH number_of_reason_code_id_csr INTO l_number_of_reason_code_id;
9080: -- CLOSE number_of_reason_code_id_csr;
9081:
9082: -- IF l_number_of_reason_code_id = 0 THEN
9083: -- IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
9084: -- FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_REASON_CD_NOT_IN_DB');
9085: -- FND_MSG_PUB.add;
9086: -- END IF;
9087: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9081:
9082: -- IF l_number_of_reason_code_id = 0 THEN
9083: -- IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
9084: -- FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_REASON_CD_NOT_IN_DB');
9085: -- FND_MSG_PUB.add;
9086: -- END IF;
9087: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9088: -- END IF;
9089: -- END IF;
9091: -- Check cust_account_id
9092: IF l_claim.cust_account_id is NULL OR
9093: l_claim.cust_account_id = FND_API.G_MISS_NUM THEN
9094:
9095: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
9096: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CUST_ID_MISSING');
9097: FND_MSG_PUB.Add;
9098: END IF;
9099: RAISE FND_API.G_EXC_ERROR;
9093: l_claim.cust_account_id = FND_API.G_MISS_NUM THEN
9094:
9095: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
9096: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CUST_ID_MISSING');
9097: FND_MSG_PUB.Add;
9098: END IF;
9099: RAISE FND_API.G_EXC_ERROR;
9100: ELSE
9101: -- check whether the customer is in the database.
9103: FETCH num_of_cust_acctid_csr INTO l_number_of_cust;
9104: CLOSE num_of_cust_acctid_csr;
9105:
9106: IF l_number_of_cust = 0 THEN
9107: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
9108: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CUST_NOT_IN_DB');
9109: FND_MSG_PUB.add;
9110: END IF;
9111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9105:
9106: IF l_number_of_cust = 0 THEN
9107: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
9108: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CUST_NOT_IN_DB');
9109: FND_MSG_PUB.add;
9110: END IF;
9111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9112: END IF;
9113: END IF;
9148: -- Debug Message
9149: IF OZF_DEBUG_LOW_ON THEN
9150: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
9151: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
9152: FND_MSG_PUB.Add;
9153: END IF;
9154: --Standard call to get message count and if count=1, get the message
9155: FND_MSG_PUB.Count_And_Get (
9156: p_encoded => FND_API.G_FALSE,
9151: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
9152: FND_MSG_PUB.Add;
9153: END IF;
9154: --Standard call to get message count and if count=1, get the message
9155: FND_MSG_PUB.Count_And_Get (
9156: p_encoded => FND_API.G_FALSE,
9157: p_count => x_msg_count,
9158: p_data => x_msg_data
9159: );
9161: WHEN FND_API.G_EXC_ERROR THEN
9162: ROLLBACK TO Check_Clm_Cmn_Element_PVT;
9163: x_return_status := FND_API.G_RET_STS_ERROR;
9164: -- Standard call to get message count and if count=1, get the message
9165: FND_MSG_PUB.Count_And_Get (
9166: p_encoded => FND_API.G_FALSE,
9167: p_count => x_msg_count,
9168: p_data => x_msg_data
9169: );
9170: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9171: ROLLBACK TO Check_Clm_Cmn_Element_PVT;
9172: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9173: -- Standard call to get message count and if count=1, get the message
9174: FND_MSG_PUB.Count_And_Get (
9175: p_encoded => FND_API.G_FALSE,
9176: p_count => x_msg_count,
9177: p_data => x_msg_data
9178: );
9178: );
9179: WHEN OTHERS THEN
9180: ROLLBACK TO Check_Clm_Cmn_Element_PVT;
9181: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9182: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9183: THEN
9184: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
9185: END IF;
9186: -- Standard call to get message count and if count=1, get the message
9180: ROLLBACK TO Check_Clm_Cmn_Element_PVT;
9181: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9182: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9183: THEN
9184: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
9185: END IF;
9186: -- Standard call to get message count and if count=1, get the message
9187: FND_MSG_PUB.Count_And_Get (
9188: p_encoded => FND_API.G_FALSE,
9183: THEN
9184: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
9185: END IF;
9186: -- Standard call to get message count and if count=1, get the message
9187: FND_MSG_PUB.Count_And_Get (
9188: p_encoded => FND_API.G_FALSE,
9189: p_count => x_msg_count,
9190: p_data => x_msg_data
9191: );
9251: -- Debug Message
9252: IF OZF_DEBUG_LOW_ON THEN
9253: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
9254: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
9255: FND_MSG_PUB.Add;
9256: END IF;
9257:
9258: --Initialize message list if p_init_msg_list is TRUE.
9259: IF FND_API.To_Boolean (p_init_msg_list) THEN
9256: END IF;
9257:
9258: --Initialize message list if p_init_msg_list is TRUE.
9259: IF FND_API.To_Boolean (p_init_msg_list) THEN
9260: FND_MSG_PUB.initialize;
9261: END IF;
9262:
9263: -- Initialize API return status to sucess
9264: x_return_status := FND_API.G_RET_STS_SUCCESS;
9328: -- Debug Message
9329: IF OZF_DEBUG_LOW_ON THEN
9330: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
9331: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
9332: FND_MSG_PUB.Add;
9333: END IF;
9334: --Standard call to get message count and if count=1, get the message
9335: FND_MSG_PUB.Count_And_Get (
9336: p_encoded => FND_API.G_FALSE,
9331: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
9332: FND_MSG_PUB.Add;
9333: END IF;
9334: --Standard call to get message count and if count=1, get the message
9335: FND_MSG_PUB.Count_And_Get (
9336: p_encoded => FND_API.G_FALSE,
9337: p_count => x_msg_count,
9338: p_data => x_msg_data
9339: );
9340: EXCEPTION
9341: WHEN FND_API.G_EXC_ERROR THEN
9342: ROLLBACK TO Create_Claim_Tbl_PVT;
9343: x_return_status := FND_API.G_RET_STS_ERROR;
9344: /* IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9345: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
9346: FND_MESSAGE.Set_Token('ROW',l_err_row);
9347: FND_MSG_PUB.Add;
9348: END IF;
9343: x_return_status := FND_API.G_RET_STS_ERROR;
9344: /* IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9345: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
9346: FND_MESSAGE.Set_Token('ROW',l_err_row);
9347: FND_MSG_PUB.Add;
9348: END IF;
9349: */
9350: -- Standard call to get message count and if count=1, get the message
9351: FND_MSG_PUB.Count_And_Get (
9347: FND_MSG_PUB.Add;
9348: END IF;
9349: */
9350: -- Standard call to get message count and if count=1, get the message
9351: FND_MSG_PUB.Count_And_Get (
9352: p_encoded => FND_API.G_FALSE,
9353: p_count => x_msg_count,
9354: p_data => x_msg_data
9355: );
9355: );
9356: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9357: ROLLBACK TO Create_Claim_Tbl_PVT;
9358: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9359: /* IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9360: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
9361: FND_MESSAGE.Set_Token('ROW',l_err_row);
9362: FND_MSG_PUB.Add;
9363: END IF;
9358: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9359: /* IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9360: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
9361: FND_MESSAGE.Set_Token('ROW',l_err_row);
9362: FND_MSG_PUB.Add;
9363: END IF;
9364: */
9365: -- Standard call to get message count and if count=1, get the message
9366: FND_MSG_PUB.Count_And_Get (
9362: FND_MSG_PUB.Add;
9363: END IF;
9364: */
9365: -- Standard call to get message count and if count=1, get the message
9366: FND_MSG_PUB.Count_And_Get (
9367: p_encoded => FND_API.G_FALSE,
9368: p_count => x_msg_count,
9369: p_data => x_msg_data
9370: );
9370: );
9371: WHEN OTHERS THEN
9372: ROLLBACK TO Create_Claim_Tbl_PVT;
9373: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9374: /* IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9375: THEN
9376: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
9377: FND_MESSAGE.Set_Token('ROW',l_err_row);
9378: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
9374: /* IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9375: THEN
9376: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
9377: FND_MESSAGE.Set_Token('ROW',l_err_row);
9378: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
9379: END IF;
9380: */ -- Standard call to get message count and if count=1, get the message
9381: FND_MSG_PUB.Count_And_Get (
9382: p_encoded => FND_API.G_FALSE,
9377: FND_MESSAGE.Set_Token('ROW',l_err_row);
9378: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
9379: END IF;
9380: */ -- Standard call to get message count and if count=1, get the message
9381: FND_MSG_PUB.Count_And_Get (
9382: p_encoded => FND_API.G_FALSE,
9383: p_count => x_msg_count,
9384: p_data => x_msg_data
9385: );
9447: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9448: END IF;
9449:
9450: -- Debug Message
9451: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
9452: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
9453: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
9454: FND_MSG_PUB.Add;
9455: END IF;
9450: -- Debug Message
9451: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
9452: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
9453: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
9454: FND_MSG_PUB.Add;
9455: END IF;
9456:
9457: --Initialize message list if p_init_msg_list is TRUE.
9458: IF FND_API.To_Boolean (p_init_msg_list) THEN
9455: END IF;
9456:
9457: --Initialize message list if p_init_msg_list is TRUE.
9458: IF FND_API.To_Boolean (p_init_msg_list) THEN
9459: FND_MSG_PUB.initialize;
9460: END IF;
9461:
9462: -- Initialize API return status to sucess
9463: x_return_status := FND_API.G_RET_STS_SUCCESS;
9466: l_claim := p_claim_tbl(i);
9467:
9468: -- Varify status code if NOT OPEN then raise error.
9469: IF upper(l_claim.status_code) <> 'OPEN' then
9470: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
9471: l_err_row := i;
9472: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_API_NO_OPEN_STATUS');
9473: FND_MESSAGE.Set_Token('ROW',l_err_row);
9474: FND_MSG_PUB.ADD;
9470: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
9471: l_err_row := i;
9472: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_API_NO_OPEN_STATUS');
9473: FND_MESSAGE.Set_Token('ROW',l_err_row);
9474: FND_MSG_PUB.ADD;
9475: END IF;
9476: RAISE FND_API.G_EXC_ERROR;
9477: END IF;
9478:
9506: END IF;
9507: END LOOP;
9508:
9509: -- Debug Message
9510: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
9511: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
9512: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
9513: FND_MSG_PUB.Add;
9514: END IF;
9509: -- Debug Message
9510: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
9511: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
9512: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
9513: FND_MSG_PUB.Add;
9514: END IF;
9515: --Standard call to get message count and if count=1, get the message
9516: FND_MSG_PUB.Count_And_Get (
9517: p_encoded => FND_API.G_FALSE,
9512: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
9513: FND_MSG_PUB.Add;
9514: END IF;
9515: --Standard call to get message count and if count=1, get the message
9516: FND_MSG_PUB.Count_And_Get (
9517: p_encoded => FND_API.G_FALSE,
9518: p_count => x_msg_count,
9519: p_data => x_msg_data
9520: );
9521: EXCEPTION
9522: WHEN FND_API.G_EXC_ERROR THEN
9523: ROLLBACK TO Update_Claim_Tbl_PVT;
9524: x_return_status := FND_API.G_RET_STS_ERROR;
9525: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9526: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
9527: FND_MESSAGE.Set_Token('ROW',l_err_row);
9528: FND_MSG_PUB.Add;
9529: END IF;
9524: x_return_status := FND_API.G_RET_STS_ERROR;
9525: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9526: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
9527: FND_MESSAGE.Set_Token('ROW',l_err_row);
9528: FND_MSG_PUB.Add;
9529: END IF;
9530: -- Standard call to get message count and if count=1, get the message
9531: FND_MSG_PUB.Count_And_Get (
9532: p_encoded => FND_API.G_FALSE,
9527: FND_MESSAGE.Set_Token('ROW',l_err_row);
9528: FND_MSG_PUB.Add;
9529: END IF;
9530: -- Standard call to get message count and if count=1, get the message
9531: FND_MSG_PUB.Count_And_Get (
9532: p_encoded => FND_API.G_FALSE,
9533: p_count => x_msg_count,
9534: p_data => x_msg_data
9535: );
9535: );
9536: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9537: ROLLBACK TO Update_Claim_Tbl_PVT;
9538: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9539: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9540: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
9541: FND_MESSAGE.Set_Token('ROW',l_err_row);
9542: FND_MSG_PUB.Add;
9543: END IF;
9538: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9539: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9540: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
9541: FND_MESSAGE.Set_Token('ROW',l_err_row);
9542: FND_MSG_PUB.Add;
9543: END IF;
9544: -- Standard call to get message count and if count=1, get the message
9545: FND_MSG_PUB.Count_And_Get (
9546: p_encoded => FND_API.G_FALSE,
9541: FND_MESSAGE.Set_Token('ROW',l_err_row);
9542: FND_MSG_PUB.Add;
9543: END IF;
9544: -- Standard call to get message count and if count=1, get the message
9545: FND_MSG_PUB.Count_And_Get (
9546: p_encoded => FND_API.G_FALSE,
9547: p_count => x_msg_count,
9548: p_data => x_msg_data
9549: );
9549: );
9550: WHEN OTHERS THEN
9551: ROLLBACK TO Update_Claim_Tbl_PVT;
9552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9553: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9554: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
9555: FND_MESSAGE.Set_Token('ROW',l_err_row);
9556: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
9557: END IF;
9552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9553: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9554: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
9555: FND_MESSAGE.Set_Token('ROW',l_err_row);
9556: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
9557: END IF;
9558: -- Standard call to get message count and if count=1, get the message
9559: FND_MSG_PUB.Count_And_Get (
9560: p_encoded => FND_API.G_FALSE,
9555: FND_MESSAGE.Set_Token('ROW',l_err_row);
9556: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
9557: END IF;
9558: -- Standard call to get message count and if count=1, get the message
9559: FND_MSG_PUB.Count_And_Get (
9560: p_encoded => FND_API.G_FALSE,
9561: p_count => x_msg_count,
9562: p_data => x_msg_data
9563: );