3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OZF_AP_INTERFACE_PVT';
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'ozfvapib.pls';
6:
7: OZF_DEBUG_HIGH_ON CONSTANT BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
8: OZF_DEBUG_LOW_ON CONSTANT BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low);
9:
10: ---------------------------------------------------------------------
11: -- PROCEDURE
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OZF_AP_INTERFACE_PVT';
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'ozfvapib.pls';
6:
7: OZF_DEBUG_HIGH_ON CONSTANT BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
8: OZF_DEBUG_LOW_ON CONSTANT BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low);
9:
10: ---------------------------------------------------------------------
11: -- PROCEDURE
12: -- Create_ap_invoice
146:
147: x_return_status := FND_API.g_ret_sts_success;
148: EXCEPTION
149: WHEN OTHERS THEN
150: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
151: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_QUERY_ERROR');
152: FND_MSG_PUB.add;
153: END IF;
154: x_return_status := FND_API.g_ret_sts_unexp_error;
148: EXCEPTION
149: WHEN OTHERS THEN
150: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
151: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_QUERY_ERROR');
152: FND_MSG_PUB.add;
153: END IF;
154: x_return_status := FND_API.g_ret_sts_unexp_error;
155: END Query_Claim;
156:
363: -- Debug Message
364: IF OZF_DEBUG_LOW_ON THEN
365: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
366: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
367: FND_MSG_PUB.Add;
368: END IF;
369:
370:
371: --Initialize message list if p_init_msg_list is TRUE.
369:
370:
371: --Initialize message list if p_init_msg_list is TRUE.
372: IF FND_API.To_Boolean (p_init_msg_list) THEN
373: FND_MSG_PUB.initialize;
374: END IF;
375:
376:
377: -- Initialize API return status to sucess
764: -- Debug Message
765: IF OZF_DEBUG_LOW_ON THEN
766: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
767: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
768: FND_MSG_PUB.Add;
769: END IF;
770:
771: --Standard call to get message count and if count=1, get the message
772: FND_MSG_PUB.Count_And_Get (
768: FND_MSG_PUB.Add;
769: END IF;
770:
771: --Standard call to get message count and if count=1, get the message
772: FND_MSG_PUB.Count_And_Get (
773: p_encoded => FND_API.G_FALSE,
774: p_count => x_msg_count,
775: p_data => x_msg_data
776: );
778: WHEN FND_API.G_EXC_ERROR THEN
779: ROLLBACK TO Create_ap_invoice_PVT;
780: x_return_status := FND_API.G_RET_STS_ERROR;
781: -- Standard call to get message count and if count=1, get the message
782: FND_MSG_PUB.Count_And_Get (
783: p_encoded => FND_API.G_FALSE,
784: p_count => x_msg_count,
785: p_data => x_msg_data
786: );
787: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
788: ROLLBACK TO Create_ap_invoice_PVT;
789: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
790: -- Standard call to get message count and if count=1, get the message
791: FND_MSG_PUB.Count_And_Get (
792: p_encoded => FND_API.G_FALSE,
793: p_count => x_msg_count,
794: p_data => x_msg_data
795: );
795: );
796: WHEN OTHERS THEN
797: ROLLBACK TO Create_ap_invoice_PVT;
798: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
799: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
800: THEN
801: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
802: END IF;
803: -- Standard call to get message count and if count=1, get the message
797: ROLLBACK TO Create_ap_invoice_PVT;
798: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
799: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
800: THEN
801: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
802: END IF;
803: -- Standard call to get message count and if count=1, get the message
804: FND_MSG_PUB.Count_And_Get (
805: p_encoded => FND_API.G_FALSE,
800: THEN
801: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
802: END IF;
803: -- Standard call to get message count and if count=1, get the message
804: FND_MSG_PUB.Count_And_Get (
805: p_encoded => FND_API.G_FALSE,
806: p_count => x_msg_count,
807: p_data => x_msg_data
808: );