[Home] [Help]
320:
321: --
322: BEGIN
323:
324: -- Standard begin of API savepoint
325: SAVEPOINT Create_ap_invoice_PVT;
326:
327:
328: -- Standard call to check for call compatibility.
324: -- Standard begin of API savepoint
325: SAVEPOINT Create_ap_invoice_PVT;
326:
327:
328: -- Standard call to check for call compatibility.
329: IF NOT FND_API.Compatible_API_Call (
330: l_api_version,
331: p_api_version,
332: l_api_name,
671: , payment_reference_id = l_invoice_id
672: WHERE claim_id = p_claim_id;
673: END IF; -- BUG 4754076 END.
674:
675: --Standard check of commit
676: IF FND_API.To_Boolean ( p_commit ) THEN
677: COMMIT WORK;
678: END IF;
679:
684: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
685: FND_MSG_PUB.Add;
686: END IF;
687:
688: --Standard call to get message count and if count=1, get the message
689: FND_MSG_PUB.Count_And_Get (
690: p_encoded => FND_API.G_FALSE,
691: p_count => x_msg_count,
692: p_data => x_msg_data
694: EXCEPTION
695: WHEN FND_API.G_EXC_ERROR THEN
696: ROLLBACK TO Create_ap_invoice_PVT;
697: x_return_status := FND_API.G_RET_STS_ERROR;
698: -- Standard call to get message count and if count=1, get the message
699: FND_MSG_PUB.Count_And_Get (
700: p_encoded => FND_API.G_FALSE,
701: p_count => x_msg_count,
702: p_data => x_msg_data
703: );
704: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
705: ROLLBACK TO Create_ap_invoice_PVT;
706: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
707: -- Standard call to get message count and if count=1, get the message
708: FND_MSG_PUB.Count_And_Get (
709: p_encoded => FND_API.G_FALSE,
710: p_count => x_msg_count,
711: p_data => x_msg_data
716: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
717: THEN
718: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
719: END IF;
720: -- Standard call to get message count and if count=1, get the message
721: FND_MSG_PUB.Count_And_Get (
722: p_encoded => FND_API.G_FALSE,
723: p_count => x_msg_count,
724: p_data => x_msg_data