[Home] [Help]
68: WHERE EXISTS (SELECT 1 FROM OZF_CLAIMS_INT_ALL
69: WHERE INTERFACE_CLAIM_ID = l_id);
70:
71: BEGIN
72: -- Standard Start of API savepoint
73: SAVEPOINT CREATE_Claims_Int_PVT;
74:
75: -- Standard call to check for call compatibility.
76: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
71: BEGIN
72: -- Standard Start of API savepoint
73: SAVEPOINT CREATE_Claims_Int_PVT;
74:
75: -- Standard call to check for call compatibility.
76: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
77: p_api_version_number,
78: l_api_name,
79: G_PKG_NAME)
292: --
293: -- End of API body
294: --
295:
296: -- Standard check for p_commit
297: IF FND_API.to_Boolean( p_commit )
298: THEN
299: COMMIT WORK;
300: END IF;
303: IF OZF_DEBUG_HIGH_ON THEN
304: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
305: END IF;
306:
307: -- Standard call to get message count and if count is 1, get message info.
308: FND_MSG_PUB.Count_And_Get
309: (p_count => x_msg_count,
310: p_data => x_msg_data
311: );
315: OZF_Utility_PVT.Error_Message(p_message_name =>'OZF_API_RESOURCE_LOCKED');
316: WHEN FND_API.G_EXC_ERROR THEN
317: ROLLBACK TO CREATE_Claims_Int_PVT;
318: x_return_status := FND_API.G_RET_STS_ERROR;
319: -- Standard call to get message count and if count=1, get the message
320: FND_MSG_PUB.Count_And_Get (
321: p_encoded => FND_API.G_FALSE,
322: p_count => x_msg_count,
323: p_data => x_msg_data
324: );
325: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
326: ROLLBACK TO CREATE_Claims_Int_PVT;
327: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
328: -- Standard call to get message count and if count=1, get the message
329: FND_MSG_PUB.Count_And_Get (
330: p_encoded => FND_API.G_FALSE,
331: p_count => x_msg_count,
332: p_data => x_msg_data
337: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
338: THEN
339: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
340: END IF;
341: -- Standard call to get message count and if count=1, get the message
342: FND_MSG_PUB.Count_And_Get (
343: p_encoded => FND_API.G_FALSE,
344: p_count => x_msg_count,
345: p_data => x_msg_data
375: l_ref_claims_int_rec c_get_Claims_Int%ROWTYPE ;
376: l_tar_claims_int_rec OZF_Claims_Int_PVT.claims_int_rec_type := P_claims_int_rec;
377: l_rowid ROWID;
378: BEGIN
379: -- Standard Start of API savepoint
380: SAVEPOINT UPDATE_Claims_Int_PVT;
381:
382: -- Standard call to check for call compatibility.
383: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
378: BEGIN
379: -- Standard Start of API savepoint
380: SAVEPOINT UPDATE_Claims_Int_PVT;
381:
382: -- Standard call to check for call compatibility.
383: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
384: p_api_version_number,
385: l_api_name,
386: G_PKG_NAME)
595: --
596: -- End of API body.
597: --
598:
599: -- Standard check for p_commit
600: IF FND_API.to_Boolean( p_commit )
601: THEN
602: COMMIT WORK;
603: END IF;
606: IF OZF_DEBUG_HIGH_ON THEN
607: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
608: END IF;
609:
610: -- Standard call to get message count and if count is 1, get message info.
611: FND_MSG_PUB.Count_And_Get
612: (p_count => x_msg_count,
613: p_data => x_msg_data
614: );
618: OZF_Utility_PVT.Error_Message(p_message_name =>'OZF_API_RESOURCE_LOCKED');
619: WHEN FND_API.G_EXC_ERROR THEN
620: ROLLBACK TO UPDATE_Claims_Int_PVT;
621: x_return_status := FND_API.G_RET_STS_ERROR;
622: -- Standard call to get message count and if count=1, get the message
623: FND_MSG_PUB.Count_And_Get (
624: p_encoded => FND_API.G_FALSE,
625: p_count => x_msg_count,
626: p_data => x_msg_data
627: );
628: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
629: ROLLBACK TO UPDATE_Claims_Int_PVT;
630: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
631: -- Standard call to get message count and if count=1, get the message
632: FND_MSG_PUB.Count_And_Get (
633: p_encoded => FND_API.G_FALSE,
634: p_count => x_msg_count,
635: p_data => x_msg_data
640: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
641: THEN
642: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
643: END IF;
644: -- Standard call to get message count and if count=1, get the message
645: FND_MSG_PUB.Count_And_Get (
646: p_encoded => FND_API.G_FALSE,
647: p_count => x_msg_count,
648: p_data => x_msg_data
664: L_API_NAME CONSTANT VARCHAR2(30) := 'Delete_Claims_Int';
665: L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
666: l_object_version_number NUMBER;
667: BEGIN
668: -- Standard Start of API savepoint
669: SAVEPOINT DELETE_Claims_Int_PVT;
670:
671: -- Standard call to check for call compatibility.
672: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
667: BEGIN
668: -- Standard Start of API savepoint
669: SAVEPOINT DELETE_Claims_Int_PVT;
670:
671: -- Standard call to check for call compatibility.
672: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
673: p_api_version_number,
674: l_api_name,
675: G_PKG_NAME)
705: --
706: -- End of API body
707: --
708:
709: -- Standard check for p_commit
710: IF FND_API.to_Boolean( p_commit )
711: THEN
712: COMMIT WORK;
713: END IF;
716: IF OZF_DEBUG_HIGH_ON THEN
717: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
718: END IF;
719:
720: -- Standard call to get message count and if count is 1, get message info.
721: FND_MSG_PUB.Count_And_Get
722: (p_count => x_msg_count,
723: p_data => x_msg_data
724: );
728: OZF_Utility_PVT.Error_Message(p_message_name =>'OZF_API_RESOURCE_LOCKED');
729: WHEN FND_API.G_EXC_ERROR THEN
730: ROLLBACK TO DELETE_Claims_Int_PVT;
731: x_return_status := FND_API.G_RET_STS_ERROR;
732: -- Standard call to get message count and if count=1, get the message
733: FND_MSG_PUB.Count_And_Get (
734: p_encoded => FND_API.G_FALSE,
735: p_count => x_msg_count,
736: p_data => x_msg_data
737: );
738: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
739: ROLLBACK TO DELETE_Claims_Int_PVT;
740: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
741: -- Standard call to get message count and if count=1, get the message
742: FND_MSG_PUB.Count_And_Get (
743: p_encoded => FND_API.G_FALSE,
744: p_count => x_msg_count,
745: p_data => x_msg_data
750: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
751: THEN
752: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
753: END IF;
754: -- Standard call to get message count and if count=1, get the message
755: FND_MSG_PUB.Count_And_Get (
756: p_encoded => FND_API.G_FALSE,
757: p_count => x_msg_count,
758: p_data => x_msg_data
793: THEN
794: FND_MSG_PUB.initialize;
795: END IF;
796:
797: -- Standard call to check for call compatibility.
798: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
799: p_api_version_number,
800: l_api_name,
801: G_PKG_NAME)
838: OZF_Utility_PVT.Error_Message(p_message_name =>'OZF_API_RESOURCE_LOCKED');
839: WHEN FND_API.G_EXC_ERROR THEN
840: ROLLBACK TO LOCK_Claims_Int_PVT;
841: x_return_status := FND_API.G_RET_STS_ERROR;
842: -- Standard call to get message count and if count=1, get the message
843: FND_MSG_PUB.Count_And_Get (
844: p_encoded => FND_API.G_FALSE,
845: p_count => x_msg_count,
846: p_data => x_msg_data
847: );
848: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
849: ROLLBACK TO LOCK_Claims_Int_PVT;
850: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
851: -- Standard call to get message count and if count=1, get the message
852: FND_MSG_PUB.Count_And_Get (
853: p_encoded => FND_API.G_FALSE,
854: p_count => x_msg_count,
855: p_data => x_msg_data
860: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
861: THEN
862: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
863: END IF;
864: -- Standard call to get message count and if count=1, get the message
865: FND_MSG_PUB.Count_And_Get (
866: p_encoded => FND_API.G_FALSE,
867: p_count => x_msg_count,
868: p_data => x_msg_data
2151: l_object_version_number NUMBER;
2152: l_claims_int_rec OZF_Claims_Int_PVT.claims_int_rec_type;
2153:
2154: BEGIN
2155: -- Standard Start of API savepoint
2156: SAVEPOINT VALIDATE_Claims_Int_;
2157:
2158: -- Standard call to check for call compatibility.
2159: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2154: BEGIN
2155: -- Standard Start of API savepoint
2156: SAVEPOINT VALIDATE_Claims_Int_;
2157:
2158: -- Standard call to check for call compatibility.
2159: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2160: p_api_version_number,
2161: l_api_name,
2162: G_PKG_NAME)
2216: IF OZF_DEBUG_HIGH_ON THEN
2217: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
2218: END IF;
2219:
2220: -- Standard call to get message count and if count is 1, get message info.
2221: FND_MSG_PUB.Count_And_Get
2222: (p_count => x_msg_count,
2223: p_data => x_msg_data
2224: );
2228: OZF_Utility_PVT.Error_Message(p_message_name =>'OZF_API_RESOURCE_LOCKED');
2229: WHEN FND_API.G_EXC_ERROR THEN
2230: ROLLBACK TO VALIDATE_Claims_Int_;
2231: x_return_status := FND_API.G_RET_STS_ERROR;
2232: -- Standard call to get message count and if count=1, get the message
2233: FND_MSG_PUB.Count_And_Get (
2234: p_encoded => FND_API.G_FALSE,
2235: p_count => x_msg_count,
2236: p_data => x_msg_data
2237: );
2238: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2239: ROLLBACK TO VALIDATE_Claims_Int_;
2240: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2241: -- Standard call to get message count and if count=1, get the message
2242: FND_MSG_PUB.Count_And_Get (
2243: p_encoded => FND_API.G_FALSE,
2244: p_count => x_msg_count,
2245: p_data => x_msg_data
2250: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2251: THEN
2252: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2253: END IF;
2254: -- Standard call to get message count and if count=1, get the message
2255: FND_MSG_PUB.Count_And_Get (
2256: p_encoded => FND_API.G_FALSE,
2257: p_count => x_msg_count,
2258: p_data => x_msg_data
2286: -- Debug Message
2287: IF OZF_DEBUG_HIGH_ON THEN
2288: OZF_UTILITY_PVT.debug_message('Private API: Validate_claims_int_rec');
2289: END IF;
2290: -- Standard call to get message count and if count is 1, get message info.
2291: FND_MSG_PUB.Count_And_Get
2292: (p_count => x_msg_count,
2293: p_data => x_msg_data
2294: );