DBA Data[Home] [Help]

APPS.OZF_CLAIMS_INT_PVT dependencies on FND_MSG_PUB

Line 33: OZF_DEBUG_HIGH_ON BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);

29:
30: G_PKG_NAME CONSTANT VARCHAR2(30):= 'OZF_Claims_Int_PVT';
31: G_FILE_NAME CONSTANT VARCHAR2(12) := 'ozfvcinb.pls';
32:
33: OZF_DEBUG_HIGH_ON BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
34: OZF_DEBUG_LOW_ON BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low);
35:
36: PROCEDURE Create_Claims_Int(
37: p_api_version_number IN NUMBER,

Line 34: OZF_DEBUG_LOW_ON BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low);

30: G_PKG_NAME CONSTANT VARCHAR2(30):= 'OZF_Claims_Int_PVT';
31: G_FILE_NAME CONSTANT VARCHAR2(12) := 'ozfvcinb.pls';
32:
33: OZF_DEBUG_HIGH_ON BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
34: OZF_DEBUG_LOW_ON BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low);
35:
36: PROCEDURE Create_Claims_Int(
37: p_api_version_number IN NUMBER,
38: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,

Line 87: FND_MSG_PUB.initialize;

83:
84: -- Initialize message list if p_init_msg_list is set to TRUE.
85: IF FND_API.to_Boolean( p_init_msg_list )
86: THEN
87: FND_MSG_PUB.initialize;
88: END IF;
89:
90: -- Debug Message
91: IF OZF_DEBUG_HIGH_ON THEN

Line 308: FND_MSG_PUB.Count_And_Get

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: );
312: EXCEPTION

Line 320: FND_MSG_PUB.Count_And_Get (

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: );

Line 329: FND_MSG_PUB.Count_And_Get (

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
333: );

Line 337: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

333: );
334: WHEN OTHERS THEN
335: ROLLBACK TO CREATE_Claims_Int_PVT;
336: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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

Line 339: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);

335: ROLLBACK TO CREATE_Claims_Int_PVT;
336: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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,

Line 342: FND_MSG_PUB.Count_And_Get (

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
346: );

Line 394: FND_MSG_PUB.initialize;

390:
391: -- Initialize message list if p_init_msg_list is set to TRUE.
392: IF FND_API.to_Boolean( p_init_msg_list )
393: THEN
394: FND_MSG_PUB.initialize;
395: END IF;
396:
397: -- Debug Message
398: IF OZF_DEBUG_HIGH_ON THEN

Line 463: OZF_UTILITY_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,

459: END IF;
460:
461: -- Debug Message
462: IF OZF_DEBUG_HIGH_ON THEN
463: OZF_UTILITY_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
464: 'Private API: Calling update table handler');
465: END IF;
466:
467: -- Invoke table handler(OZF_CLAIMS_INT_PKG.Update_Row)

Line 611: FND_MSG_PUB.Count_And_Get

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: );
615: EXCEPTION

Line 623: FND_MSG_PUB.Count_And_Get (

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: );

Line 632: FND_MSG_PUB.Count_And_Get (

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
636: );

Line 640: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

636: );
637: WHEN OTHERS THEN
638: ROLLBACK TO UPDATE_Claims_Int_PVT;
639: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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

Line 642: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);

638: ROLLBACK TO UPDATE_Claims_Int_PVT;
639: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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,

Line 645: FND_MSG_PUB.Count_And_Get (

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
649: );

Line 683: FND_MSG_PUB.initialize;

679:
680: -- Initialize message list if p_init_msg_list is set to TRUE.
681: IF FND_API.to_Boolean( p_init_msg_list )
682: THEN
683: FND_MSG_PUB.initialize;
684: END IF;
685:
686: -- Debug Message
687: IF OZF_DEBUG_HIGH_ON THEN

Line 721: FND_MSG_PUB.Count_And_Get

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: );
725: EXCEPTION

Line 733: FND_MSG_PUB.Count_And_Get (

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: );

Line 742: FND_MSG_PUB.Count_And_Get (

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
746: );

Line 750: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

746: );
747: WHEN OTHERS THEN
748: ROLLBACK TO DELETE_Claims_Int_PVT;
749: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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

Line 752: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);

748: ROLLBACK TO DELETE_Claims_Int_PVT;
749: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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,

Line 755: FND_MSG_PUB.Count_And_Get (

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
759: );

Line 794: FND_MSG_PUB.initialize;

790:
791: -- Initialize message list if p_init_msg_list is set to TRUE.
792: IF FND_API.to_Boolean( p_init_msg_list )
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,

Line 818: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN

814: FETCH c_Claims_Int INTO l_INTERFACE_CLAIM_ID;
815: IF (c_Claims_Int%NOTFOUND) THEN
816: CLOSE c_Claims_Int;
817:
818: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
819: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
820: FND_MSG_PUB.add;
821: END IF;
822: RAISE FND_API.g_exc_error;

Line 820: FND_MSG_PUB.add;

816: CLOSE c_Claims_Int;
817:
818: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
819: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
820: FND_MSG_PUB.add;
821: END IF;
822: RAISE FND_API.g_exc_error;
823: END IF;
824: CLOSE c_Claims_Int;

Line 827: FND_MSG_PUB.count_and_get(

823: END IF;
824: CLOSE c_Claims_Int;
825: -------------------- finish --------------------------
826:
827: FND_MSG_PUB.count_and_get(
828: p_encoded => FND_API.g_false,
829: p_count => x_msg_count,
830: p_data => x_msg_data);
831: IF OZF_DEBUG_HIGH_ON THEN

Line 843: FND_MSG_PUB.Count_And_Get (

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: );

Line 852: FND_MSG_PUB.Count_And_Get (

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
856: );

Line 860: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

856: );
857: WHEN OTHERS THEN
858: ROLLBACK TO LOCK_Claims_Int_PVT;
859: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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

Line 862: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);

858: ROLLBACK TO LOCK_Claims_Int_PVT;
859: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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,

Line 865: FND_MSG_PUB.Count_And_Get (

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
869: );

Line 2170: FND_MSG_PUB.initialize;

2166:
2167: -- Initialize message list if p_init_msg_list is set to TRUE.
2168: IF FND_API.to_Boolean( p_init_msg_list )
2169: THEN
2170: FND_MSG_PUB.initialize;
2171: END IF;
2172: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
2173: Check_claims_int_Items(
2174: p_claims_int_rec => p_claims_int_rec,

Line 2221: FND_MSG_PUB.Count_And_Get

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: );
2225: EXCEPTION

Line 2233: FND_MSG_PUB.Count_And_Get (

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: );

Line 2242: FND_MSG_PUB.Count_And_Get (

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
2246: );

Line 2250: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

2246: );
2247: WHEN OTHERS THEN
2248: ROLLBACK TO VALIDATE_Claims_Int_;
2249: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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

Line 2252: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);

2248: ROLLBACK TO VALIDATE_Claims_Int_;
2249: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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,

Line 2255: FND_MSG_PUB.Count_And_Get (

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
2259: );

Line 2275: FND_MSG_PUB.initialize;

2271: BEGIN
2272: -- Initialize message list if p_init_msg_list is set to TRUE.
2273: IF FND_API.to_Boolean( p_init_msg_list )
2274: THEN
2275: FND_MSG_PUB.initialize;
2276: END IF;
2277:
2278: -- Initialize API return status to SUCCESS
2279: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 2291: FND_MSG_PUB.Count_And_Get

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: );
2295: END Validate_claims_int_Rec;

Line 2331: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN

2327:
2328: EXCEPTION
2329: WHEN OTHERS THEN
2330: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2331: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2332: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DELETE_ERR');
2333: FND_MSG_PUB.add;
2334: END IF;
2335: END cleanup_claims;

Line 2333: FND_MSG_PUB.add;

2329: WHEN OTHERS THEN
2330: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2331: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2332: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DELETE_ERR');
2333: FND_MSG_PUB.add;
2334: END IF;
2335: END cleanup_claims;
2336:
2337: ---------------------------------------------------------------------

Line 2407: FND_MSG_PUB.Add;

2403: -- Debug Message
2404: IF OZF_DEBUG_LOW_ON THEN
2405: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2406: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
2407: FND_MSG_PUB.Add;
2408: END IF;
2409: SAVEPOINT Start_Replicate_IMP;
2410:
2411: ERRBUF := null;

Line 2463: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN

2459: l_claim_int_rec.claim_class <> G_CHARGE_CLASS AND
2460: l_claim_int_rec.claim_class <> G_DEDUCTION_CLASS AND
2461: l_claim_int_rec.claim_class <> G_OVERPAYMENT_CLASS THEN
2462: -- write a message 'Wrong claim class'
2463: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
2464: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CLAIM_CLASS_WRG');
2465: FND_MSG_PUB.Add;
2466: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_IMPORT_ERR');
2467: FND_MESSAGE.Set_Token('ID', l_claim_int_rec.interface_claim_id);

Line 2465: FND_MSG_PUB.Add;

2461: l_claim_int_rec.claim_class <> G_OVERPAYMENT_CLASS THEN
2462: -- write a message 'Wrong claim class'
2463: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
2464: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CLAIM_CLASS_WRG');
2465: FND_MSG_PUB.Add;
2466: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_IMPORT_ERR');
2467: FND_MESSAGE.Set_Token('ID', l_claim_int_rec.interface_claim_id);
2468: FND_MSG_PUB.Add;
2469: END IF;

Line 2468: FND_MSG_PUB.Add;

2464: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CLAIM_CLASS_WRG');
2465: FND_MSG_PUB.Add;
2466: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_IMPORT_ERR');
2467: FND_MESSAGE.Set_Token('ID', l_claim_int_rec.interface_claim_id);
2468: FND_MSG_PUB.Add;
2469: END IF;
2470: GOTO next_claim;
2471: END IF;
2472: END IF; --end if for line 2402

Line 2487: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN

2483: l_claim_int_rec.currency_code = FND_API.G_MISS_CHAR) OR
2484: (l_claim_int_rec.amount is NULL OR
2485: l_claim_int_rec.amount = FND_API.G_MISS_NUM))) THEN
2486:
2487: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2488: FND_MESSAGE.Set_Name('OZF','OZF_REQUIRED_FIELDS_MISSING');
2489: FND_MSG_PUB.Add;
2490: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_IMPORT_ERR');
2491: FND_MESSAGE.Set_Token('ID', l_claim_int_rec.interface_claim_id);

Line 2489: FND_MSG_PUB.Add;

2485: l_claim_int_rec.amount = FND_API.G_MISS_NUM))) THEN
2486:
2487: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2488: FND_MESSAGE.Set_Name('OZF','OZF_REQUIRED_FIELDS_MISSING');
2489: FND_MSG_PUB.Add;
2490: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_IMPORT_ERR');
2491: FND_MESSAGE.Set_Token('ID', l_claim_int_rec.interface_claim_id);
2492: FND_MSG_PUB.Add;
2493: END IF;

Line 2492: FND_MSG_PUB.Add;

2488: FND_MESSAGE.Set_Name('OZF','OZF_REQUIRED_FIELDS_MISSING');
2489: FND_MSG_PUB.Add;
2490: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_IMPORT_ERR');
2491: FND_MESSAGE.Set_Token('ID', l_claim_int_rec.interface_claim_id);
2492: FND_MSG_PUB.Add;
2493: END IF;
2494: GOTO next_claim;
2495: END IF; --end if for line 2427
2496:

Line 2505: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN

2501: IF (l_claim_int_rec.SOURCE_OBJECT_ID <> FND_API.G_MISS_NUM OR
2502: l_claim_int_rec.SOURCE_OBJECT_ID is not NULL ) THEN
2503:
2504: IF (l_claim_int_rec.source_object_type_id is null) THEN
2505: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2506: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_SRC_INFO_MISSING');
2507: FND_MSG_PUB.add;
2508: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_IMPORT_ERR');
2509: FND_MESSAGE.Set_Token('ID', l_claim_int_rec.interface_claim_id);

Line 2507: FND_MSG_PUB.add;

2503:
2504: IF (l_claim_int_rec.source_object_type_id is null) THEN
2505: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2506: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_SRC_INFO_MISSING');
2507: FND_MSG_PUB.add;
2508: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_IMPORT_ERR');
2509: FND_MESSAGE.Set_Token('ID', l_claim_int_rec.interface_claim_id);
2510: FND_MSG_PUB.Add;
2511: END IF;

Line 2510: FND_MSG_PUB.Add;

2506: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_SRC_INFO_MISSING');
2507: FND_MSG_PUB.add;
2508: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_IMPORT_ERR');
2509: FND_MESSAGE.Set_Token('ID', l_claim_int_rec.interface_claim_id);
2510: FND_MSG_PUB.Add;
2511: END IF;
2512: GOTO next_claim;
2513: ELSE
2514: IF (l_claim_int_rec.amount < 0) THEN

Line 2516: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN

2512: GOTO next_claim;
2513: ELSE
2514: IF (l_claim_int_rec.amount < 0) THEN
2515: IF l_claim_int_rec.claim_class <> G_OVERPAYMENT_CLASS THEN
2516: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2517: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_AMT_NEG');
2518: FND_MSG_PUB.add;
2519: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_IMPORT_ERR');
2520: FND_MESSAGE.Set_Token('ID', l_claim_int_rec.interface_claim_id);

Line 2518: FND_MSG_PUB.add;

2514: IF (l_claim_int_rec.amount < 0) THEN
2515: IF l_claim_int_rec.claim_class <> G_OVERPAYMENT_CLASS THEN
2516: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2517: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_AMT_NEG');
2518: FND_MSG_PUB.add;
2519: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_IMPORT_ERR');
2520: FND_MESSAGE.Set_Token('ID', l_claim_int_rec.interface_claim_id);
2521: FND_MSG_PUB.Add;
2522: END IF;

Line 2521: FND_MSG_PUB.Add;

2517: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_AMT_NEG');
2518: FND_MSG_PUB.add;
2519: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_IMPORT_ERR');
2520: FND_MESSAGE.Set_Token('ID', l_claim_int_rec.interface_claim_id);
2521: FND_MSG_PUB.Add;
2522: END IF;
2523: GOTO next_claim;
2524: END IF;
2525: ELSE

Line 2527: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN

2523: GOTO next_claim;
2524: END IF;
2525: ELSE
2526: IF l_claim_int_rec.claim_class <> G_DEDUCTION_CLASS THEN
2527: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2528: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_AMT_POS_OPM');
2529: FND_MSG_PUB.add;
2530: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_IMPORT_ERR');
2531: FND_MESSAGE.Set_Token('ID', l_claim_int_rec.interface_claim_id);

Line 2529: FND_MSG_PUB.add;

2525: ELSE
2526: IF l_claim_int_rec.claim_class <> G_DEDUCTION_CLASS THEN
2527: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2528: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_AMT_POS_OPM');
2529: FND_MSG_PUB.add;
2530: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_IMPORT_ERR');
2531: FND_MESSAGE.Set_Token('ID', l_claim_int_rec.interface_claim_id);
2532: FND_MSG_PUB.Add;
2533: END IF;

Line 2532: FND_MSG_PUB.Add;

2528: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_AMT_POS_OPM');
2529: FND_MSG_PUB.add;
2530: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_IMPORT_ERR');
2531: FND_MESSAGE.Set_Token('ID', l_claim_int_rec.interface_claim_id);
2532: FND_MSG_PUB.Add;
2533: END IF;
2534: GOTO next_claim;
2535: END IF;
2536: END IF; --end if for line 2466

Line 2550: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN

2546: ELSE --else for if in line 2453
2547: IF (l_claim_int_rec.amount < 0) THEN
2548: l_claim_int_rec.amount := l_claim_int_rec.amount * -1;
2549: IF l_claim_int_rec.claim_class <> G_DEDUCTION_CLASS THEN
2550: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2551: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_NEG_AMT_WOR_DEDU');
2552: FND_MSG_PUB.add;
2553: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_IMPORT_ERR');
2554: FND_MESSAGE.Set_Token('ID', l_claim_int_rec.interface_claim_id);

Line 2552: FND_MSG_PUB.add;

2548: l_claim_int_rec.amount := l_claim_int_rec.amount * -1;
2549: IF l_claim_int_rec.claim_class <> G_DEDUCTION_CLASS THEN
2550: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2551: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_NEG_AMT_WOR_DEDU');
2552: FND_MSG_PUB.add;
2553: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_IMPORT_ERR');
2554: FND_MESSAGE.Set_Token('ID', l_claim_int_rec.interface_claim_id);
2555: FND_MSG_PUB.Add;
2556: END IF;

Line 2555: FND_MSG_PUB.Add;

2551: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_NEG_AMT_WOR_DEDU');
2552: FND_MSG_PUB.add;
2553: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_IMPORT_ERR');
2554: FND_MESSAGE.Set_Token('ID', l_claim_int_rec.interface_claim_id);
2555: FND_MSG_PUB.Add;
2556: END IF;
2557: GOTO next_claim;
2558: END IF;
2559: ELSE

Line 2562: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN

2558: END IF;
2559: ELSE
2560: l_claim_int_rec.amount := l_claim_int_rec.amount * -1;
2561: IF l_claim_int_rec.claim_class <> G_OVERPAYMENT_CLASS THEN
2562: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2563: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_POS_AMT_WOR_OPM');
2564: FND_MSG_PUB.add;
2565: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_IMPORT_ERR');
2566: FND_MESSAGE.Set_Token('ID', l_claim_int_rec.interface_claim_id);

Line 2564: FND_MSG_PUB.add;

2560: l_claim_int_rec.amount := l_claim_int_rec.amount * -1;
2561: IF l_claim_int_rec.claim_class <> G_OVERPAYMENT_CLASS THEN
2562: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2563: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_POS_AMT_WOR_OPM');
2564: FND_MSG_PUB.add;
2565: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_IMPORT_ERR');
2566: FND_MESSAGE.Set_Token('ID', l_claim_int_rec.interface_claim_id);
2567: FND_MSG_PUB.Add;
2568: END IF;

Line 2567: FND_MSG_PUB.Add;

2563: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_POS_AMT_WOR_OPM');
2564: FND_MSG_PUB.add;
2565: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_IMPORT_ERR');
2566: FND_MESSAGE.Set_Token('ID', l_claim_int_rec.interface_claim_id);
2567: FND_MSG_PUB.Add;
2568: END IF;
2569: GOTO next_claim;
2570: END IF;
2571: END IF; --end if for line 2499

Line 2686: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN

2682: );
2683: -- Check return status from the above procedure call
2684: IF l_return_status = FND_API.G_RET_STS_ERROR OR
2685: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2686: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2687: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_IMPORT_ERR');
2688: FND_MESSAGE.Set_Token('ID', l_claim_int_rec.interface_claim_id);
2689: FND_MSG_PUB.Add;
2690: END IF;

Line 2689: FND_MSG_PUB.Add;

2685: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2686: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2687: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_IMPORT_ERR');
2688: FND_MESSAGE.Set_Token('ID', l_claim_int_rec.interface_claim_id);
2689: FND_MSG_PUB.Add;
2690: END IF;
2691: GOTO next_claim;
2692: END IF;
2693: l_claim_rec := l_x_claim_rec;

Line 2718: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN

2714: IF OZF_DEBUG_HIGH_ON THEN
2715: OZF_UTILITY_PVT.debug_message('Create Claims for '|| l_claim_int_rec.interface_claim_id ||' failed');
2716: END IF;
2717:
2718: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2719: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_IMPORT_ERR');
2720: FND_MESSAGE.Set_Token('ID', l_claim_int_rec.interface_claim_id);
2721: FND_MSG_PUB.Add;
2722: END IF;

Line 2721: FND_MSG_PUB.Add;

2717:
2718: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2719: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_IMPORT_ERR');
2720: FND_MESSAGE.Set_Token('ID', l_claim_int_rec.interface_claim_id);
2721: FND_MSG_PUB.Add;
2722: END IF;
2723: GOTO next_claim;
2724: END IF;
2725:

Line 2740: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN

2736: -- check line amount
2737: IF (l_line_int_rec.claim_currency_amount is null OR
2738: l_line_int_rec.claim_currency_amount = 0) THEN
2739:
2740: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2741: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_LINE_AMT_ERR');
2742: FND_MSG_PUB.Add;
2743: END IF;
2744: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN

Line 2742: FND_MSG_PUB.Add;

2738: l_line_int_rec.claim_currency_amount = 0) THEN
2739:
2740: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2741: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_LINE_AMT_ERR');
2742: FND_MSG_PUB.Add;
2743: END IF;
2744: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2745: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_LINE_IMPORT_ERR');
2746: FND_MESSAGE.Set_Token('ID', l_line_int_rec.interface_claim_id);

Line 2744: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN

2740: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2741: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_LINE_AMT_ERR');
2742: FND_MSG_PUB.Add;
2743: END IF;
2744: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2745: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_LINE_IMPORT_ERR');
2746: FND_MESSAGE.Set_Token('ID', l_line_int_rec.interface_claim_id);
2747: FND_MESSAGE.Set_Token('LINEID', l_line_int_rec.interface_claim_line_id);
2748: FND_MSG_PUB.Add;

Line 2748: FND_MSG_PUB.Add;

2744: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2745: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_LINE_IMPORT_ERR');
2746: FND_MESSAGE.Set_Token('ID', l_line_int_rec.interface_claim_id);
2747: FND_MESSAGE.Set_Token('LINEID', l_line_int_rec.interface_claim_line_id);
2748: FND_MSG_PUB.Add;
2749: END IF;
2750: cleanup_claims (p_claim_id => l_claim_id,
2751: x_return_status => l_return_status);
2752: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

Line 2847: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN

2843: IF OZF_DEBUG_HIGH_ON THEN
2844: OZF_UTILITY_PVT.debug_message('Claim line creation failed. ');
2845: END IF;
2846:
2847: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2848: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_LINE_IMPORT_ERR');
2849: FND_MESSAGE.Set_Token('ID', l_line_int_rec.interface_claim_id);
2850: FND_MESSAGE.Set_Token('LINEID', l_line_int_rec.interface_claim_line_id);
2851: FND_MSG_PUB.Add;

Line 2851: FND_MSG_PUB.Add;

2847: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2848: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_LINE_IMPORT_ERR');
2849: FND_MESSAGE.Set_Token('ID', l_line_int_rec.interface_claim_id);
2850: FND_MESSAGE.Set_Token('LINEID', l_line_int_rec.interface_claim_line_id);
2851: FND_MSG_PUB.Add;
2852: END IF;
2853: cleanup_claims (p_claim_id => l_claim_id,
2854: x_return_status => l_return_status);
2855: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

Line 2891: FND_MSG_PUB.Add;

2887: -- Debug Message
2888: IF OZF_DEBUG_LOW_ON THEN
2889: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2890: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
2891: FND_MSG_PUB.Add;
2892: END IF;
2893:
2894: -- Write all messages to a log
2895: OZF_UTILITY_PVT.Write_Conc_Log;

Line 2903: FND_MSG_PUB.count_and_get (

2899:
2900: EXCEPTION
2901: WHEN FND_API.g_exc_error THEN
2902: ROLLBACK TO Start_Replicate_IMP;
2903: FND_MSG_PUB.count_and_get (
2904: p_encoded => FND_API.g_false
2905: ,p_count => l_msg_count
2906: ,p_data => l_msg_data
2907: );

Line 2908: ERRBUF := fnd_msg_pub.get(p_msg_index => 1, p_encoded => 'F');

2904: p_encoded => FND_API.g_false
2905: ,p_count => l_msg_count
2906: ,p_data => l_msg_data
2907: );
2908: ERRBUF := fnd_msg_pub.get(p_msg_index => 1, p_encoded => 'F');
2909: RETCODE := 2;
2910: -- Write all errors messages to a log
2911: OZF_UTILITY_PVT.Write_Conc_Log;
2912:

Line 2915: FND_MSG_PUB.count_and_get (

2911: OZF_UTILITY_PVT.Write_Conc_Log;
2912:
2913: WHEN FND_API.g_exc_unexpected_error THEN
2914: ROLLBACK TO Start_Replicate_IMP;
2915: FND_MSG_PUB.count_and_get (
2916: p_encoded => FND_API.g_false
2917: ,p_count => l_msg_count
2918: ,p_data => l_msg_data
2919: );

Line 2920: ERRBUF := fnd_msg_pub.get(p_msg_index => 1, p_encoded => 'F');

2916: p_encoded => FND_API.g_false
2917: ,p_count => l_msg_count
2918: ,p_data => l_msg_data
2919: );
2920: ERRBUF := fnd_msg_pub.get(p_msg_index => 1, p_encoded => 'F');
2921: RETCODE := 2;
2922: -- Write all errors messages to a log
2923: OZF_UTILITY_PVT.Write_Conc_Log;
2924: WHEN OTHERS THEN

Line 2926: FND_MSG_PUB.count_and_get (

2922: -- Write all errors messages to a log
2923: OZF_UTILITY_PVT.Write_Conc_Log;
2924: WHEN OTHERS THEN
2925: ROLLBACK TO Start_Replicate_IMP;
2926: FND_MSG_PUB.count_and_get (
2927: p_encoded => FND_API.g_false
2928: ,p_count => l_msg_count
2929: ,p_data => l_msg_data
2930: );

Line 2931: ERRBUF := fnd_msg_pub.get(p_msg_index => 1, p_encoded => 'F');

2927: p_encoded => FND_API.g_false
2928: ,p_count => l_msg_count
2929: ,p_data => l_msg_data
2930: );
2931: ERRBUF := fnd_msg_pub.get(p_msg_index => 1, p_encoded => 'F');
2932: RETCODE := 2;
2933: -- Write all errors messages to a log
2934: OZF_UTILITY_PVT.Write_Conc_Log;
2935:

Line 2972: FND_MSG_PUB.Add;

2968: END IF;
2969: IF OZF_DEBUG_LOW_ON THEN
2970: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2971: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
2972: FND_MSG_PUB.Add;
2973: END IF;
2974: SAVEPOINT PURGE_CLAIM_IMP;
2975: ERRBUF := null;
2976: RETCODE := 0;

Line 3000: FND_MSG_PUB.Add;

2996: -- Debug Message
2997: IF OZF_DEBUG_LOW_ON THEN
2998: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2999: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
3000: FND_MSG_PUB.Add;
3001: END IF;
3002:
3003: -- Write all messages to a log
3004: OZF_UTILITY_PVT.Write_Conc_Log;

Line 3008: FND_MSG_PUB.count_and_get (

3004: OZF_UTILITY_PVT.Write_Conc_Log;
3005: EXCEPTION
3006: WHEN FND_API.g_exc_error THEN
3007: ROLLBACK TO PURGE_CLAIM_IMP;
3008: FND_MSG_PUB.count_and_get (
3009: p_encoded => FND_API.g_false
3010: ,p_count => l_msg_count
3011: ,p_data => l_msg_data
3012: );

Line 3013: ERRBUF := fnd_msg_pub.get(p_msg_index => 1, p_encoded => 'F');

3009: p_encoded => FND_API.g_false
3010: ,p_count => l_msg_count
3011: ,p_data => l_msg_data
3012: );
3013: ERRBUF := fnd_msg_pub.get(p_msg_index => 1, p_encoded => 'F');
3014: RETCODE := 2;
3015: -- Write all errors messages to a log
3016: OZF_UTILITY_PVT.Write_Conc_Log;
3017:

Line 3020: FND_MSG_PUB.count_and_get (

3016: OZF_UTILITY_PVT.Write_Conc_Log;
3017:
3018: WHEN FND_API.g_exc_unexpected_error THEN
3019: ROLLBACK TO PURGE_CLAIM_IMP;
3020: FND_MSG_PUB.count_and_get (
3021: p_encoded => FND_API.g_false
3022: ,p_count => l_msg_count
3023: ,p_data => l_msg_data
3024: );

Line 3025: ERRBUF := fnd_msg_pub.get(p_msg_index => 1, p_encoded => 'F');

3021: p_encoded => FND_API.g_false
3022: ,p_count => l_msg_count
3023: ,p_data => l_msg_data
3024: );
3025: ERRBUF := fnd_msg_pub.get(p_msg_index => 1, p_encoded => 'F');
3026: RETCODE := 2;
3027: -- Write all errors messages to a log
3028: OZF_UTILITY_PVT.Write_Conc_Log;
3029: WHEN OTHERS THEN

Line 3031: FND_MSG_PUB.count_and_get (

3027: -- Write all errors messages to a log
3028: OZF_UTILITY_PVT.Write_Conc_Log;
3029: WHEN OTHERS THEN
3030: ROLLBACK TO PURGE_CLAIM_IMP;
3031: FND_MSG_PUB.count_and_get (
3032: p_encoded => FND_API.g_false
3033: ,p_count => l_msg_count
3034: ,p_data => l_msg_data
3035: );

Line 3036: ERRBUF := fnd_msg_pub.get(p_msg_index => 1, p_encoded => 'F');

3032: p_encoded => FND_API.g_false
3033: ,p_count => l_msg_count
3034: ,p_data => l_msg_data
3035: );
3036: ERRBUF := fnd_msg_pub.get(p_msg_index => 1, p_encoded => 'F');
3037: RETCODE := 2;
3038: -- Write all errors messages to a log
3039: OZF_UTILITY_PVT.Write_Conc_Log;
3040: END Purge_Claims;