34:
35: ----------- Define session related variables --------------------
36: g_history_created boolean := false;
37:
38: OZF_DEBUG_HIGH_ON BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
39: OZF_DEBUG_LOW_ON BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low);
40:
41: ---------------------------------------------------------------------
42: -- PROCEDURE
35: ----------- Define session related variables --------------------
36: g_history_created boolean := false;
37:
38: OZF_DEBUG_HIGH_ON BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
39: OZF_DEBUG_LOW_ON BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low);
40:
41: ---------------------------------------------------------------------
42: -- PROCEDURE
43: -- create_child_claim
108: -- Debug Message
109: IF OZF_DEBUG_LOW_ON THEN
110: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
111: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
112: FND_MSG_PUB.Add;
113: END IF;
114:
115: -- Initialize API return status to sucess
116: x_return_status := FND_API.G_RET_STS_SUCCESS;
341: -- Debug Message
342: IF OZF_DEBUG_LOW_ON THEN
343: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
344: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
345: FND_MSG_PUB.Add;
346: END IF;
347: EXCEPTION
348: WHEN FND_API.G_EXC_ERROR THEN
349: x_return_status := FND_API.G_RET_STS_ERROR;
352: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
353:
354: WHEN OTHERS THEN
355: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
356: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
357: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
358: END IF;
359: END create_child_claim;
360:
353:
354: WHEN OTHERS THEN
355: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
356: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
357: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
358: END IF;
359: END create_child_claim;
360:
361: ---------------------------------------------------------------------
416: -- Debug Message
417: IF OZF_DEBUG_LOW_ON THEN
418: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
419: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
420: FND_MSG_PUB.Add;
421: END IF;
422: -- Initialize API return status to sucess
423: x_return_status := FND_API.G_RET_STS_SUCCESS;
424:
499: RAISE FND_API.g_exc_unexpected_error;
500: END IF;
501: END LOOP;
502: ELSE
503: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
504: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_WRONG_SPLIT_STATUS');
505: FND_MSG_PUB.ADD;
506: END IF;
507: RAISE FND_API.g_exc_unexpected_error;
501: END LOOP;
502: ELSE
503: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
504: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_WRONG_SPLIT_STATUS');
505: FND_MSG_PUB.ADD;
506: END IF;
507: RAISE FND_API.g_exc_unexpected_error;
508: END IF;
509:
508: END IF;
509:
510: EXCEPTION
511: WHEN OTHERS THEN
512: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
513: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
514: FND_MSG_PUB.add;
515: END IF;
516: RAISE FND_API.g_exc_error;
510: EXCEPTION
511: WHEN OTHERS THEN
512: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
513: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
514: FND_MSG_PUB.add;
515: END IF;
516: RAISE FND_API.g_exc_error;
517: END;
518: ELSE
515: END IF;
516: RAISE FND_API.g_exc_error;
517: END;
518: ELSE
519: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
520: FND_MESSAGE.set_name('OZF', 'OZF_REC_VERSION_CHANGED');
521: FND_MSG_PUB.add;
522: END IF;
523: RAISE FND_API.g_exc_error;
517: END;
518: ELSE
519: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
520: FND_MESSAGE.set_name('OZF', 'OZF_REC_VERSION_CHANGED');
521: FND_MSG_PUB.add;
522: END IF;
523: RAISE FND_API.g_exc_error;
524: END IF;
525: -- Debug Message
525: -- Debug Message
526: IF OZF_DEBUG_LOW_ON THEN
527: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
528: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
529: FND_MSG_PUB.Add;
530: END IF;
531: EXCEPTION
532: WHEN FND_API.G_EXC_ERROR THEN
533: x_return_status := FND_API.G_RET_STS_ERROR;
534: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
535: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
536: WHEN OTHERS THEN
537: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
538: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
539: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
540: END IF;
541: END update_child_claim;
542:
535: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
536: WHEN OTHERS THEN
537: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
538: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
539: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
540: END IF;
541: END update_child_claim;
542:
543: ---------------------------------------------------------------------
588: -- Debug Message
589: IF OZF_DEBUG_LOW_ON THEN
590: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
591: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
592: FND_MSG_PUB.Add;
593: END IF;
594: IF OZF_DEBUG_HIGH_ON THEN
595: ozf_utility_pvt.debug_message('start update parent');
596: END IF;
627: END IF;
628:
629: IF ((l_amount_remaining > 0) and
630: (l_amount_remaining -OZF_UTILITY_PVT.CurrRound(p_claim.amount_adjusted, l_currency_code)< 0)) THEN
631: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
632: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_SPLT_NG_NOPM');
633: FND_MSG_PUB.Add;
634: END IF;
635: RAISE FND_API.G_EXC_ERROR;
629: IF ((l_amount_remaining > 0) and
630: (l_amount_remaining -OZF_UTILITY_PVT.CurrRound(p_claim.amount_adjusted, l_currency_code)< 0)) THEN
631: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
632: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_SPLT_NG_NOPM');
633: FND_MSG_PUB.Add;
634: END IF;
635: RAISE FND_API.G_EXC_ERROR;
636: END IF;
637:
636: END IF;
637:
638: IF ((l_amount_remaining < 0) and
639: (l_amount_remaining - OZF_UTILITY_PVT.CurrRound(p_claim.amount_adjusted, l_currency_code) > 0)) THEN
640: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
641: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_SPLIT_PO_OPM');
642: FND_MSG_PUB.Add;
643: END IF;
644: RAISE FND_API.G_EXC_ERROR;
638: IF ((l_amount_remaining < 0) and
639: (l_amount_remaining - OZF_UTILITY_PVT.CurrRound(p_claim.amount_adjusted, l_currency_code) > 0)) THEN
640: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
641: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_SPLIT_PO_OPM');
642: FND_MSG_PUB.Add;
643: END IF;
644: RAISE FND_API.G_EXC_ERROR;
645: END IF;
646:
663: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
664: RAISE FND_API.g_exc_unexpected_error;
665: END IF;
666: ELSE
667: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
668: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_WRONG_SPLIT_STATUS');
669: FND_MSG_PUB.ADD;
670: END IF;
671: RAISE FND_API.g_exc_unexpected_error;
665: END IF;
666: ELSE
667: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
668: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_WRONG_SPLIT_STATUS');
669: FND_MSG_PUB.ADD;
670: END IF;
671: RAISE FND_API.g_exc_unexpected_error;
672: END IF;
673: ELSE
670: END IF;
671: RAISE FND_API.g_exc_unexpected_error;
672: END IF;
673: ELSE
674: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
675: FND_MESSAGE.set_name('OZF', 'OZF_REC_VERSION_CHANGED');
676: FND_MSG_PUB.add;
677: END IF;
678: RAISE FND_API.g_exc_error;
672: END IF;
673: ELSE
674: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
675: FND_MESSAGE.set_name('OZF', 'OZF_REC_VERSION_CHANGED');
676: FND_MSG_PUB.add;
677: END IF;
678: RAISE FND_API.g_exc_error;
679: END IF;
680:
681: -- Debug Message
682: IF OZF_DEBUG_LOW_ON THEN
683: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
684: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
685: FND_MSG_PUB.Add;
686: END IF;
687: EXCEPTION
688: WHEN FND_API.G_EXC_ERROR THEN
689: x_return_status := FND_API.G_RET_STS_ERROR;
690: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
691: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
692: WHEN OTHERS THEN
693: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
694: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
695: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
696: END IF;
697: END update_parent_claim;
698:
691: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
692: WHEN OTHERS THEN
693: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
694: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
695: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
696: END IF;
697: END update_parent_claim;
698:
699: ---------------------------------------------------------------------
759: -- Debug Message
760: IF OZF_DEBUG_LOW_ON THEN
761: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
762: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
763: FND_MSG_PUB.Add;
764: END IF;
765:
766:
767: OPEN amount_csr (p_claim_id);
795: /* BEGIN FIX BUG -- by mchang 07/13/2001 */
796: --IF (l_child_amount_sum - l_child_line_total) >= (l_parent_amount_remaining - l_parent_line_sum) THEN
797: IF (l_child_amount_sum - l_child_line_total) > (l_parent_amount_remaining - l_parent_line_sum) THEN
798: /* END FIG BUG */
799: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
800: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_SPLIT_TOO_BIG');
801: FND_MSG_PUB.ADD;
802: END IF;
803: RAISE FND_API.g_exc_error;
797: IF (l_child_amount_sum - l_child_line_total) > (l_parent_amount_remaining - l_parent_line_sum) THEN
798: /* END FIG BUG */
799: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
800: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_SPLIT_TOO_BIG');
801: FND_MSG_PUB.ADD;
802: END IF;
803: RAISE FND_API.g_exc_error;
804: END IF;
805:
806: -- Debug Message
807: IF OZF_DEBUG_LOW_ON THEN
808: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
809: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
810: FND_MSG_PUB.Add;
811: END IF;
812:
813: EXCEPTION
814: WHEN FND_API.G_EXC_ERROR THEN
816: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
818: WHEN OTHERS THEN
819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
820: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
821: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
822: END IF;
823: END Check_Split_Condition;
824:
817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
818: WHEN OTHERS THEN
819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
820: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
821: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
822: END IF;
823: END Check_Split_Condition;
824:
825: ---------------------------------------------------------------------
869:
870: -- Get the last pair
871: l_temp_index := INSTR(l_line_string, ',',1,1);
872: IF l_temp_index = 0 THEN
873: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
874: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_SPLT_LINE_STR_WRG');
875: FND_MSG_PUB.add;
876: END IF;
877: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
871: l_temp_index := INSTR(l_line_string, ',',1,1);
872: IF l_temp_index = 0 THEN
873: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
874: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_SPLT_LINE_STR_WRG');
875: FND_MSG_PUB.add;
876: END IF;
877: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
878: ELSE
879: x_line_table(i).claim_line_id := TO_NUMBER(SUBSTR(l_line_string,1, l_temp_index -1));
884: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
885: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
886: WHEN OTHERS THEN
887: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
888: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
889: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_SPLT_LINE_TBL_ERR');
890: FND_MSG_PUB.add;
891: END IF;
892: END get_line_table;
886: WHEN OTHERS THEN
887: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
888: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
889: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_SPLT_LINE_TBL_ERR');
890: FND_MSG_PUB.add;
891: END IF;
892: END get_line_table;
893:
894: ---------------------------------------------------------------------
1172: x_child_claim_tbl := l_child_claim_tbl;
1173: EXCEPTION
1174: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1175: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1176: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1177: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_AUTSPLT_LINE_ERR');
1178: FND_MSG_PUB.add;
1179: END IF;
1180: WHEN OTHERS THEN
1174: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1175: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1176: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1177: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_AUTSPLT_LINE_ERR');
1178: FND_MSG_PUB.add;
1179: END IF;
1180: WHEN OTHERS THEN
1181: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1182: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1178: FND_MSG_PUB.add;
1179: END IF;
1180: WHEN OTHERS THEN
1181: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1182: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1183: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_AUTSPLT_LINE_ERR');
1184: FND_MSG_PUB.add;
1185: END IF;
1186: END autosplit_line;
1180: WHEN OTHERS THEN
1181: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1182: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1183: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_AUTSPLT_LINE_ERR');
1184: FND_MSG_PUB.add;
1185: END IF;
1186: END autosplit_line;
1187:
1188: ---------------------------------------------------------------------
1253: -- Debug Message
1254: IF OZF_DEBUG_LOW_ON THEN
1255: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1256: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
1257: FND_MSG_PUB.Add;
1258: END IF;
1259: --Initialize message list if p_init_msg_list is TRUE.
1260: IF FND_API.To_Boolean (p_init_msg_list) THEN
1261: FND_MSG_PUB.initialize;
1257: FND_MSG_PUB.Add;
1258: END IF;
1259: --Initialize message list if p_init_msg_list is TRUE.
1260: IF FND_API.To_Boolean (p_init_msg_list) THEN
1261: FND_MSG_PUB.initialize;
1262: END IF;
1263:
1264:
1265: -- Initialize API return status to sucess
1278: X_Msg_Data => l_msg_data,
1279: X_access => l_access);
1280:
1281: IF l_access = 'N' THEN
1282: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1283: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_NO_ACCESS');
1284: FND_MSG_PUB.Add;
1285: END IF;
1286: RAISE FND_API.G_EXC_ERROR;
1280:
1281: IF l_access = 'N' THEN
1282: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1283: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_NO_ACCESS');
1284: FND_MSG_PUB.Add;
1285: END IF;
1286: RAISE FND_API.G_EXC_ERROR;
1287: END IF;
1288: END IF;
1300: OR l_claim_class = 'DEDUCTION'
1301: THEN
1302: IF l_child_claim_tbl(i).amount <= 0
1303: THEN
1304: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1305: THEN
1306: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_SPLIT_POS_AMT_ERR');
1307: FND_MSG_PUB.add;
1308: END IF;
1303: THEN
1304: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1305: THEN
1306: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_SPLIT_POS_AMT_ERR');
1307: FND_MSG_PUB.add;
1308: END IF;
1309: RAISE FND_API.g_exc_error;
1310: END IF;
1311: ELSIF l_claim_class = 'CHARGE'
1312: OR l_claim_class = 'OVERPAYMENT'
1313: THEN
1314: IF l_child_claim_tbl(i).amount >= 0
1315: THEN
1316: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1317: THEN
1318: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_SPLIT_NEG_AMT_ERR');
1319: FND_MSG_PUB.add;
1320: END IF;
1315: THEN
1316: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1317: THEN
1318: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_SPLIT_NEG_AMT_ERR');
1319: FND_MSG_PUB.add;
1320: END IF;
1321: RAISE FND_API.g_exc_error;
1322: END IF;
1323: END IF;
1431: -- Debug Message
1432: IF OZF_DEBUG_LOW_ON THEN
1433: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1434: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
1435: FND_MSG_PUB.Add;
1436: END IF;
1437:
1438: --Standard call to get message count and if count=1, get the message
1439: FND_MSG_PUB.Count_And_Get (
1435: FND_MSG_PUB.Add;
1436: END IF;
1437:
1438: --Standard call to get message count and if count=1, get the message
1439: FND_MSG_PUB.Count_And_Get (
1440: p_encoded => FND_API.G_FALSE,
1441: p_count => x_msg_count,
1442: p_data => x_msg_data
1443: );
1445: WHEN FND_API.G_EXC_ERROR THEN
1446: ROLLBACK TO Create_Child_Tbl_PVT;
1447: x_return_status := FND_API.G_RET_STS_ERROR;
1448: -- Standard call to get message count and if count=1, get the message
1449: FND_MSG_PUB.Count_And_Get (
1450: p_encoded => FND_API.G_FALSE,
1451: p_count => x_msg_count,
1452: p_data => x_msg_data
1453: );
1454: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1455: ROLLBACK TO Create_Child_Tbl_PVT;
1456: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1457: -- Standard call to get message count and if count=1, get the message
1458: FND_MSG_PUB.Count_And_Get (
1459: p_encoded => FND_API.G_FALSE,
1460: p_count => x_msg_count,
1461: p_data => x_msg_data
1462: );
1462: );
1463: WHEN OTHERS THEN
1464: ROLLBACK TO Create_Child_Tbl_PVT;
1465: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1466: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1467: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1468: END IF;
1469: -- Standard call to get message count and if count=1, get the message
1470: FND_MSG_PUB.Count_And_Get (
1463: WHEN OTHERS THEN
1464: ROLLBACK TO Create_Child_Tbl_PVT;
1465: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1466: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1467: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1468: END IF;
1469: -- Standard call to get message count and if count=1, get the message
1470: FND_MSG_PUB.Count_And_Get (
1471: p_encoded => FND_API.G_FALSE,
1466: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1467: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1468: END IF;
1469: -- Standard call to get message count and if count=1, get the message
1470: FND_MSG_PUB.Count_And_Get (
1471: p_encoded => FND_API.G_FALSE,
1472: p_count => x_msg_count,
1473: p_data => x_msg_data
1474: );
1534: -- Debug Message
1535: IF OZF_DEBUG_LOW_ON THEN
1536: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1537: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
1538: FND_MSG_PUB.Add;
1539: END IF;
1540: --Initialize message list if p_init_msg_list is TRUE.
1541: IF FND_API.To_Boolean (p_init_msg_list) THEN
1542: FND_MSG_PUB.initialize;
1538: FND_MSG_PUB.Add;
1539: END IF;
1540: --Initialize message list if p_init_msg_list is TRUE.
1541: IF FND_API.To_Boolean (p_init_msg_list) THEN
1542: FND_MSG_PUB.initialize;
1543: END IF;
1544:
1545: -- Initialize API return status to sucess
1546: x_return_status := FND_API.G_RET_STS_SUCCESS;
1559: X_Msg_Data => l_msg_data,
1560: X_access => l_access);
1561:
1562: IF l_access = 'N' THEN
1563: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1564: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_NO_ACCESS');
1565: FND_MSG_PUB.Add;
1566: END IF;
1567: RAISE FND_API.G_EXC_ERROR;
1561:
1562: IF l_access = 'N' THEN
1563: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1564: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_NO_ACCESS');
1565: FND_MSG_PUB.Add;
1566: END IF;
1567: RAISE FND_API.G_EXC_ERROR;
1568: END IF;
1569: END IF;
1657: -- Debug Message
1658: IF OZF_DEBUG_LOW_ON THEN
1659: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1660: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
1661: FND_MSG_PUB.Add;
1662: END IF;
1663:
1664: --Standard call to get message count and if count=1, get the message
1665: FND_MSG_PUB.Count_And_Get (
1661: FND_MSG_PUB.Add;
1662: END IF;
1663:
1664: --Standard call to get message count and if count=1, get the message
1665: FND_MSG_PUB.Count_And_Get (
1666: p_encoded => FND_API.G_FALSE,
1667: p_count => x_msg_count,
1668: p_data => x_msg_data
1669: );
1671: WHEN FND_API.G_EXC_ERROR THEN
1672: ROLLBACK TO Update_Child_Tbl_PVT;
1673: x_return_status := FND_API.G_RET_STS_ERROR;
1674: -- Standard call to get message count and if count=1, get the message
1675: FND_MSG_PUB.Count_And_Get (
1676: p_encoded => FND_API.G_FALSE,
1677: p_count => x_msg_count,
1678: p_data => x_msg_data
1679: );
1680: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1681: ROLLBACK TO Update_Child_Tbl_PVT;
1682: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1683: -- Standard call to get message count and if count=1, get the message
1684: FND_MSG_PUB.Count_And_Get (
1685: p_encoded => FND_API.G_FALSE,
1686: p_count => x_msg_count,
1687: p_data => x_msg_data
1688: );
1688: );
1689: WHEN OTHERS THEN
1690: ROLLBACK TO Update_Child_Tbl_PVT;
1691: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1692: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1693: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1694: END IF;
1695: -- Standard call to get message count and if count=1, get the message
1696: FND_MSG_PUB.Count_And_Get (
1689: WHEN OTHERS THEN
1690: ROLLBACK TO Update_Child_Tbl_PVT;
1691: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1692: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1693: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1694: END IF;
1695: -- Standard call to get message count and if count=1, get the message
1696: FND_MSG_PUB.Count_And_Get (
1697: p_encoded => FND_API.G_FALSE,
1692: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1693: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1694: END IF;
1695: -- Standard call to get message count and if count=1, get the message
1696: FND_MSG_PUB.Count_And_Get (
1697: p_encoded => FND_API.G_FALSE,
1698: p_count => x_msg_count,
1699: p_data => x_msg_data
1700: );