18:
19:
20: G_PKG_NAME CONSTANT VARCHAR2(30):= 'OZF_Na_Ddn_Rule_PVT';
21: G_FILE_NAME CONSTANT VARCHAR2(12) := 'amsvam.b.pls';
22: OZF_DEBUG_HIGH_ON CONSTANT BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
23: OZF_DEBUG_LOW_ON CONSTANT BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low);
24:
25: -- G_USER_ID NUMBER := FND_GLOBAL.USER_ID;
26: -- G_LOGIN_ID NUMBER := FND_GLOBAL.CONC_LOGIN_ID;
19:
20: G_PKG_NAME CONSTANT VARCHAR2(30):= 'OZF_Na_Ddn_Rule_PVT';
21: G_FILE_NAME CONSTANT VARCHAR2(12) := 'amsvam.b.pls';
22: OZF_DEBUG_HIGH_ON CONSTANT BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
23: OZF_DEBUG_LOW_ON CONSTANT BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low);
24:
25: -- G_USER_ID NUMBER := FND_GLOBAL.USER_ID;
26: -- G_LOGIN_ID NUMBER := FND_GLOBAL.CONC_LOGIN_ID;
27: --
126:
127: -- Initialize message list if p_init_msg_list is set to TRUE.
128: IF FND_API.to_Boolean( p_init_msg_list )
129: THEN
130: FND_MSG_PUB.initialize;
131: END IF;
132:
133:
134:
232: debug_message('Private API: ' || l_api_name || 'end');
233:
234:
235: -- Standard call to get message count and if count is 1, get message info.
236: FND_MSG_PUB.Count_And_Get
237: (p_count => x_msg_count,
238: p_data => x_msg_data
239: );
240: EXCEPTION
246: WHEN FND_API.G_EXC_ERROR THEN
247: ROLLBACK TO CREATE_Na_Ddn_Rule_PVT;
248: x_return_status := FND_API.G_RET_STS_ERROR;
249: -- Standard call to get message count and if count=1, get the message
250: FND_MSG_PUB.Count_And_Get (
251: p_encoded => FND_API.G_FALSE,
252: p_count => x_msg_count,
253: p_data => x_msg_data
254: );
256: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
257: ROLLBACK TO CREATE_Na_Ddn_Rule_PVT;
258: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
259: -- Standard call to get message count and if count=1, get the message
260: FND_MSG_PUB.Count_And_Get (
261: p_encoded => FND_API.G_FALSE,
262: p_count => x_msg_count,
263: p_data => x_msg_data
264: );
265:
266: WHEN OTHERS THEN
267: ROLLBACK TO CREATE_Na_Ddn_Rule_PVT;
268: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
269: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
270: THEN
271: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
272: END IF;
273: -- Standard call to get message count and if count=1, get the message
267: ROLLBACK TO CREATE_Na_Ddn_Rule_PVT;
268: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
269: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
270: THEN
271: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
272: END IF;
273: -- Standard call to get message count and if count=1, get the message
274: FND_MSG_PUB.Count_And_Get (
275: p_encoded => FND_API.G_FALSE,
270: THEN
271: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
272: END IF;
273: -- Standard call to get message count and if count=1, get the message
274: FND_MSG_PUB.Count_And_Get (
275: p_encoded => FND_API.G_FALSE,
276: p_count => x_msg_count,
277: p_data => x_msg_data
278: );
360:
361: -- Initialize message list if p_init_msg_list is set to TRUE.
362: IF FND_API.to_Boolean( p_init_msg_list )
363: THEN
364: FND_MSG_PUB.initialize;
365: END IF;
366:
367:
368:
430: END IF;
431:
432:
433: -- Debug Message
434: -- debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: Calling update table handler');
435:
436: -- Invoke table handler(Ozf_Na_Ddn_Rule_Pkg.Update_Row)
437: Ozf_Na_Ddn_Rule_Pkg.Update_Row(
438: p_na_deduction_rule_id => p_na_ddn_rule_rec.na_deduction_rule_id,
462: debug_message('Private API: ' || l_api_name || 'end');
463:
464:
465: -- Standard call to get message count and if count is 1, get message info.
466: FND_MSG_PUB.Count_And_Get
467: (p_count => x_msg_count,
468: p_data => x_msg_data
469: );
470: EXCEPTION
476: WHEN FND_API.G_EXC_ERROR THEN
477: ROLLBACK TO UPDATE_Na_Ddn_Rule_PVT;
478: x_return_status := FND_API.G_RET_STS_ERROR;
479: -- Standard call to get message count and if count=1, get the message
480: FND_MSG_PUB.Count_And_Get (
481: p_encoded => FND_API.G_FALSE,
482: p_count => x_msg_count,
483: p_data => x_msg_data
484: );
486: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
487: ROLLBACK TO UPDATE_Na_Ddn_Rule_PVT;
488: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
489: -- Standard call to get message count and if count=1, get the message
490: FND_MSG_PUB.Count_And_Get (
491: p_encoded => FND_API.G_FALSE,
492: p_count => x_msg_count,
493: p_data => x_msg_data
494: );
495:
496: WHEN OTHERS THEN
497: ROLLBACK TO UPDATE_Na_Ddn_Rule_PVT;
498: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
499: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
500: THEN
501: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
502: END IF;
503: -- Standard call to get message count and if count=1, get the message
497: ROLLBACK TO UPDATE_Na_Ddn_Rule_PVT;
498: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
499: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
500: THEN
501: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
502: END IF;
503: -- Standard call to get message count and if count=1, get the message
504: FND_MSG_PUB.Count_And_Get (
505: p_encoded => FND_API.G_FALSE,
500: THEN
501: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
502: END IF;
503: -- Standard call to get message count and if count=1, get the message
504: FND_MSG_PUB.Count_And_Get (
505: p_encoded => FND_API.G_FALSE,
506: p_count => x_msg_count,
507: p_data => x_msg_data
508: );
576:
577: -- Initialize message list if p_init_msg_list is set to TRUE.
578: IF FND_API.to_Boolean( p_init_msg_list )
579: THEN
580: FND_MSG_PUB.initialize;
581: END IF;
582:
583:
584:
615: debug_message('Private API: ' || l_api_name || 'end');
616:
617:
618: -- Standard call to get message count and if count is 1, get message info.
619: FND_MSG_PUB.Count_And_Get
620: (p_count => x_msg_count,
621: p_data => x_msg_data
622: );
623: EXCEPTION
629: WHEN FND_API.G_EXC_ERROR THEN
630: ROLLBACK TO DELETE_Na_Ddn_Rule_PVT;
631: x_return_status := FND_API.G_RET_STS_ERROR;
632: -- Standard call to get message count and if count=1, get the message
633: FND_MSG_PUB.Count_And_Get (
634: p_encoded => FND_API.G_FALSE,
635: p_count => x_msg_count,
636: p_data => x_msg_data
637: );
639: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
640: ROLLBACK TO DELETE_Na_Ddn_Rule_PVT;
641: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
642: -- Standard call to get message count and if count=1, get the message
643: FND_MSG_PUB.Count_And_Get (
644: p_encoded => FND_API.G_FALSE,
645: p_count => x_msg_count,
646: p_data => x_msg_data
647: );
648:
649: WHEN OTHERS THEN
650: ROLLBACK TO DELETE_Na_Ddn_Rule_PVT;
651: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
652: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
653: THEN
654: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
655: END IF;
656: -- Standard call to get message count and if count=1, get the message
650: ROLLBACK TO DELETE_Na_Ddn_Rule_PVT;
651: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
652: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
653: THEN
654: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
655: END IF;
656: -- Standard call to get message count and if count=1, get the message
657: FND_MSG_PUB.Count_And_Get (
658: p_encoded => FND_API.G_FALSE,
653: THEN
654: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
655: END IF;
656: -- Standard call to get message count and if count=1, get the message
657: FND_MSG_PUB.Count_And_Get (
658: p_encoded => FND_API.G_FALSE,
659: p_count => x_msg_count,
660: p_data => x_msg_data
661: );
723:
724: -- Initialize message list if p_init_msg_list is set to TRUE.
725: IF FND_API.to_Boolean( p_init_msg_list )
726: THEN
727: FND_MSG_PUB.initialize;
728: END IF;
729:
730:
731:
748: Ozf_Na_Ddn_Rule_Pkg.Lock_Row(l_na_deduction_rule_id,p_object_version);
749:
750:
751: -------------------- finish --------------------------
752: FND_MSG_PUB.count_and_get(
753: p_encoded => FND_API.g_false,
754: p_count => x_msg_count,
755: p_data => x_msg_data);
756: debug_message(l_full_name ||': end');
763: WHEN FND_API.G_EXC_ERROR THEN
764: ROLLBACK TO LOCK_Na_Ddn_Rule_PVT;
765: x_return_status := FND_API.G_RET_STS_ERROR;
766: -- Standard call to get message count and if count=1, get the message
767: FND_MSG_PUB.Count_And_Get (
768: p_encoded => FND_API.G_FALSE,
769: p_count => x_msg_count,
770: p_data => x_msg_data
771: );
773: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
774: ROLLBACK TO LOCK_Na_Ddn_Rule_PVT;
775: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
776: -- Standard call to get message count and if count=1, get the message
777: FND_MSG_PUB.Count_And_Get (
778: p_encoded => FND_API.G_FALSE,
779: p_count => x_msg_count,
780: p_data => x_msg_data
781: );
782:
783: WHEN OTHERS THEN
784: ROLLBACK TO LOCK_Na_Ddn_Rule_PVT;
785: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
786: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
787: THEN
788: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
789: END IF;
790: -- Standard call to get message count and if count=1, get the message
784: ROLLBACK TO LOCK_Na_Ddn_Rule_PVT;
785: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
786: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
787: THEN
788: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
789: END IF;
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,
787: THEN
788: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
789: END IF;
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: );
1134:
1135: -- Initialize message list if p_init_msg_list is set to TRUE.
1136: IF FND_API.to_Boolean( p_init_msg_list )
1137: THEN
1138: FND_MSG_PUB.initialize;
1139: END IF;
1140:
1141:
1142: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1196: debug_message('Private API: ' || l_api_name || 'end');
1197:
1198:
1199: -- Standard call to get message count and if count is 1, get message info.
1200: FND_MSG_PUB.Count_And_Get
1201: (p_count => x_msg_count,
1202: p_data => x_msg_data
1203: );
1204: EXCEPTION
1210: WHEN FND_API.G_EXC_ERROR THEN
1211: ROLLBACK TO VALIDATE_Na_Ddn_Rule_;
1212: x_return_status := FND_API.G_RET_STS_ERROR;
1213: -- Standard call to get message count and if count=1, get the message
1214: FND_MSG_PUB.Count_And_Get (
1215: p_encoded => FND_API.G_FALSE,
1216: p_count => x_msg_count,
1217: p_data => x_msg_data
1218: );
1220: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1221: ROLLBACK TO VALIDATE_Na_Ddn_Rule_;
1222: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1223: -- Standard call to get message count and if count=1, get the message
1224: FND_MSG_PUB.Count_And_Get (
1225: p_encoded => FND_API.G_FALSE,
1226: p_count => x_msg_count,
1227: p_data => x_msg_data
1228: );
1229:
1230: WHEN OTHERS THEN
1231: ROLLBACK TO VALIDATE_Na_Ddn_Rule_;
1232: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1233: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1234: THEN
1235: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1236: END IF;
1237: -- Standard call to get message count and if count=1, get the message
1231: ROLLBACK TO VALIDATE_Na_Ddn_Rule_;
1232: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1233: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1234: THEN
1235: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1236: END IF;
1237: -- Standard call to get message count and if count=1, get the message
1238: FND_MSG_PUB.Count_And_Get (
1239: p_encoded => FND_API.G_FALSE,
1234: THEN
1235: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1236: END IF;
1237: -- Standard call to get message count and if count=1, get the message
1238: FND_MSG_PUB.Count_And_Get (
1239: p_encoded => FND_API.G_FALSE,
1240: p_count => x_msg_count,
1241: p_data => x_msg_data
1242: );
1255: BEGIN
1256: -- Initialize message list if p_init_msg_list is set to TRUE.
1257: IF FND_API.to_Boolean( p_init_msg_list )
1258: THEN
1259: FND_MSG_PUB.initialize;
1260: END IF;
1261:
1262:
1263:
1271:
1272: -- Debug Message
1273: debug_message('Private API: Validate_dm_model_rec');
1274: -- Standard call to get message count and if count is 1, get message info.
1275: FND_MSG_PUB.Count_And_Get
1276: (p_count => x_msg_count,
1277: p_data => x_msg_data
1278: );
1279: END Validate_na_ddn_rule_Rec;