[Home] [Help]
344:
345: --
346: BEGIN
347:
348: -- Standard begin of API savepoint
349: SAVEPOINT Create_ap_invoice_PVT;
350:
351:
352: -- Standard call to check for call compatibility.
348: -- Standard begin of API savepoint
349: SAVEPOINT Create_ap_invoice_PVT;
350:
351:
352: -- Standard call to check for call compatibility.
353: IF NOT FND_API.Compatible_API_Call (
354: l_api_version,
355: p_api_version,
356: l_api_name,
754: , payment_reference_id = l_invoice_id
755: WHERE claim_id = p_claim_id;
756: END IF; -- BUG 4754076 END.
757:
758: --Standard check of commit
759: IF FND_API.To_Boolean ( p_commit ) THEN
760: COMMIT WORK;
761: END IF;
762:
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 (
773: p_encoded => FND_API.G_FALSE,
774: p_count => x_msg_count,
775: p_data => x_msg_data
777: EXCEPTION
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
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,
806: p_count => x_msg_count,
807: p_data => x_msg_data