2: /* $Header: ozfvglib.pls 120.17.12010000.6 2008/11/11 06:22:07 psomyaju ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OZF_GL_INTERFACE_PVT';
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'ozfvglib.pls';
6: OZF_DEBUG_HIGH_ON BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
7: OZF_DEBUG_LOW_ON BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low);
8: G_CLAIM_ID NUMBER;
9:
10: ---------------------------------------------------------------------
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OZF_GL_INTERFACE_PVT';
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'ozfvglib.pls';
6: OZF_DEBUG_HIGH_ON BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
7: OZF_DEBUG_LOW_ON BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low);
8: G_CLAIM_ID NUMBER;
9:
10: ---------------------------------------------------------------------
11: --Bugfix 7431334 - Pushed get_org_id function at top for forward declaration as
388: -- Debug Message
389: IF OZF_DEBUG_LOW_ON THEN
390: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
391: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
392: FND_MSG_PUB.Add;
393: END IF;
394: --Initialize message list if p_init_msg_list is TRUE.
395: IF FND_API.To_Boolean (p_init_msg_list) THEN
396: FND_MSG_PUB.initialize;
392: FND_MSG_PUB.Add;
393: END IF;
394: --Initialize message list if p_init_msg_list is TRUE.
395: IF FND_API.To_Boolean (p_init_msg_list) THEN
396: FND_MSG_PUB.initialize;
397: END IF;
398: -- Initialize API return status to sucess
399: x_return_status := FND_API.G_RET_STS_SUCCESS;
400:
662: OPEN get_order_line_csr(p_source_id);
663: FETCH get_order_line_csr INTO l_order_number, l_line_number;
664: CLOSE get_order_line_csr;
665:
666: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
667: FND_MESSAGE.set_name('OZF', 'OZF_GL_REVENUE_ACCT_NOT_FOUND');
668: FND_MESSAGE.set_token('ORDER_NUM', l_order_number);
669: FND_MESSAGE.set_token('LINE_NUM', l_line_number);
670: FND_MSG_PUB.add;
666: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
667: FND_MESSAGE.set_name('OZF', 'OZF_GL_REVENUE_ACCT_NOT_FOUND');
668: FND_MESSAGE.set_token('ORDER_NUM', l_order_number);
669: FND_MESSAGE.set_token('LINE_NUM', l_line_number);
670: FND_MSG_PUB.add;
671: END IF;
672: x_return_status := FND_API.g_ret_sts_error;
673: END IF;
674:
777: end if; -- end amount is not null
778:
779: EXCEPTION
780: WHEN OTHERS THEN
781: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
782: FND_MESSAGE.set_name('OZF', 'OZF_GL_ACCT_GEN_ERROR');
783: FND_MSG_PUB.add;
784: END IF;
785: x_return_status := FND_API.g_ret_sts_unexp_error;
779: EXCEPTION
780: WHEN OTHERS THEN
781: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
782: FND_MESSAGE.set_name('OZF', 'OZF_GL_ACCT_GEN_ERROR');
783: FND_MSG_PUB.add;
784: END IF;
785: x_return_status := FND_API.g_ret_sts_unexp_error;
786: END;
787: IF OZF_DEBUG_HIGH_ON THEN
803: -- Debug Message
804: IF OZF_DEBUG_LOW_ON THEN
805: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
806: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
807: FND_MSG_PUB.Add;
808: END IF;
809: --Standard call to get message count and if count=1, get the message
810: FND_MSG_PUB.Count_And_Get (
811: p_encoded => FND_API.G_FALSE,
806: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
807: FND_MSG_PUB.Add;
808: END IF;
809: --Standard call to get message count and if count=1, get the message
810: FND_MSG_PUB.Count_And_Get (
811: p_encoded => FND_API.G_FALSE,
812: p_count => x_msg_count,
813: p_data => x_msg_data
814: );
816: WHEN FND_API.G_EXC_ERROR THEN
817: ROLLBACK TO Get_GL_Account_PVT;
818: x_return_status := FND_API.G_RET_STS_ERROR;
819: -- Standard call to get message count and if count=1, get the message
820: FND_MSG_PUB.Count_And_Get (
821: p_encoded => FND_API.G_FALSE,
822: p_count => x_msg_count,
823: p_data => x_msg_data
824: );
825: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
826: ROLLBACK TO Get_GL_Account_PVT;
827: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
828: -- Standard call to get message count and if count=1, get the message
829: FND_MSG_PUB.Count_And_Get (
830: p_encoded => FND_API.G_FALSE,
831: p_count => x_msg_count,
832: p_data => x_msg_data
833: );
833: );
834: WHEN OTHERS THEN
835: ROLLBACK TO Get_GL_Account_PVT;
836: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
837: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
838: THEN
839: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
840: END IF;
841: -- Standard call to get message count and if count=1, get the message
835: ROLLBACK TO Get_GL_Account_PVT;
836: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
837: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
838: THEN
839: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
840: END IF;
841: -- Standard call to get message count and if count=1, get the message
842: FND_MSG_PUB.Count_And_Get (
843: p_encoded => FND_API.G_FALSE,
838: THEN
839: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
840: END IF;
841: -- Standard call to get message count and if count=1, get the message
842: FND_MSG_PUB.Count_And_Get (
843: p_encoded => FND_API.G_FALSE,
844: p_count => x_msg_count,
845: p_data => x_msg_data
846: );
885: x_ae_category := 'Fixed Budgets';
886: ELSIF l_type = 'FULLY_ACCRUED' THEN
887: x_ae_category := 'Accrual Budgets';
888: ELSE
889: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
890: FND_MESSAGE.set_name('OZF', 'OZF_GL_FUND_TYPE_ERROR');
891: FND_MSG_PUB.add;
892: END IF;
893: x_return_status := FND_API.g_ret_sts_error;
887: x_ae_category := 'Accrual Budgets';
888: ELSE
889: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
890: FND_MESSAGE.set_name('OZF', 'OZF_GL_FUND_TYPE_ERROR');
891: FND_MSG_PUB.add;
892: END IF;
893: x_return_status := FND_API.g_ret_sts_error;
894: END IF;
895: ELSIF upper(p_source_table) = 'OZF_CLAIMS_ALL' THEN
907: x_ae_category := 'Deductions';
908: END IF;
909: */
910: ELSE
911: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
912: FND_MESSAGE.set_name('OZF', 'OZF_GL_INVALID_SOURCE_TABLE');
913: FND_MSG_PUB.add;
914: END IF;
915: x_return_status := FND_API.g_ret_sts_error;
909: */
910: ELSE
911: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
912: FND_MESSAGE.set_name('OZF', 'OZF_GL_INVALID_SOURCE_TABLE');
913: FND_MSG_PUB.add;
914: END IF;
915: x_return_status := FND_API.g_ret_sts_error;
916: END IF;
917: EXCEPTION
915: x_return_status := FND_API.g_ret_sts_error;
916: END IF;
917: EXCEPTION
918: WHEN OTHERS THEN
919: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
920: FND_MESSAGE.set_name('OZF', 'OZF_GL_AE_CATG_ERROR');
921: FND_MSG_PUB.add;
922: END IF;
923: x_return_status := FND_API.g_ret_sts_unexp_error;
917: EXCEPTION
918: WHEN OTHERS THEN
919: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
920: FND_MESSAGE.set_name('OZF', 'OZF_GL_AE_CATG_ERROR');
921: FND_MSG_PUB.add;
922: END IF;
923: x_return_status := FND_API.g_ret_sts_unexp_error;
924: END get_ae_category;
925: ---------------------------------------------------------------------
978: ELSIF p_event_type_code = 'SETTLE_BY_ACCOUNTING_ONLY' THEN
979: return 17;
980: -- R12.1 Changes End
981: ELSE
982: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
983: FND_MESSAGE.set_name('OZF', 'OZF_GL_INVALID_ACCT_EVENT');
984: FND_MSG_PUB.add;
985: END IF;
986: x_return_status := FND_API.g_ret_sts_error;
980: -- R12.1 Changes End
981: ELSE
982: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
983: FND_MESSAGE.set_name('OZF', 'OZF_GL_INVALID_ACCT_EVENT');
984: FND_MSG_PUB.add;
985: END IF;
986: x_return_status := FND_API.g_ret_sts_error;
987: return null;
988: END IF;
987: return null;
988: END IF;
989: EXCEPTION
990: WHEN OTHERS THEN
991: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
992: FND_MESSAGE.set_name('OZF', 'OZF_GL_EVE_NUM_ERROR');
993: FND_MSG_PUB.add;
994: END IF;
995: x_return_status := FND_API.g_ret_sts_unexp_error;
989: EXCEPTION
990: WHEN OTHERS THEN
991: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
992: FND_MESSAGE.set_name('OZF', 'OZF_GL_EVE_NUM_ERROR');
993: FND_MSG_PUB.add;
994: END IF;
995: x_return_status := FND_API.g_ret_sts_unexp_error;
996: END get_event_number;
997: ---------------------------------------------------------------------
1138: END IF;
1139: -- R12 changes end
1140:
1141: ELSE
1142: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1143: FND_MESSAGE.set_name('OZF', 'OZF_GL_INVALID_ACCT_EVENT');
1144: FND_MSG_PUB.add;
1145: END IF;
1146: x_return_status := FND_API.g_ret_sts_error;
1140:
1141: ELSE
1142: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1143: FND_MESSAGE.set_name('OZF', 'OZF_GL_INVALID_ACCT_EVENT');
1144: FND_MSG_PUB.add;
1145: END IF;
1146: x_return_status := FND_API.g_ret_sts_error;
1147: return null;
1148: END IF;
1147: return null;
1148: END IF;
1149: EXCEPTION
1150: WHEN OTHERS THEN
1151: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1152: FND_MESSAGE.set_name('OZF', 'OZF_GL_ACC_TYPE_ERROR');
1153: FND_MSG_PUB.add;
1154: END IF;
1155: x_return_status := FND_API.g_ret_sts_unexp_error;
1149: EXCEPTION
1150: WHEN OTHERS THEN
1151: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1152: FND_MESSAGE.set_name('OZF', 'OZF_GL_ACC_TYPE_ERROR');
1153: FND_MSG_PUB.add;
1154: END IF;
1155: x_return_status := FND_API.g_ret_sts_unexp_error;
1156: END get_account_type_code;
1157: ---------------------------------------------------------------------
1261: RETURN null;
1262:
1263: EXCEPTION
1264: WHEN OTHERS THEN
1265: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1266: FND_MESSAGE.set_name('OZF', 'OZF_GL_ACC_DESC_ERROR');
1267: FND_MSG_PUB.add;
1268: END IF;
1269: x_return_status := FND_API.g_ret_sts_unexp_error;
1263: EXCEPTION
1264: WHEN OTHERS THEN
1265: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1266: FND_MESSAGE.set_name('OZF', 'OZF_GL_ACC_DESC_ERROR');
1267: FND_MSG_PUB.add;
1268: END IF;
1269: x_return_status := FND_API.g_ret_sts_unexp_error;
1270: END get_account_description;
1271: ---------------------------------------------------------------------
1570: x_amount_tbl(l_cl_tot + i).line_type_code := l_cr_account_type_code;
1571: END LOOP;
1572: END IF;
1573: ELSE
1574: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1575: FND_MESSAGE.set_name('OZF', 'OZF_GL_INVALID_SOURCE_EVENT');
1576: FND_MSG_PUB.add;
1577: END IF;
1578: x_return_status := FND_API.g_ret_sts_error;
1572: END IF;
1573: ELSE
1574: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1575: FND_MESSAGE.set_name('OZF', 'OZF_GL_INVALID_SOURCE_EVENT');
1576: FND_MSG_PUB.add;
1577: END IF;
1578: x_return_status := FND_API.g_ret_sts_error;
1579: END IF;
1580: -- for settlement by check and credit memos
1747: x_amount_tbl(l_cl_tot+i).line_type_code := 'ACCRUAL_LIABILITY';
1748: x_amount_tbl(l_cl_tot+i).utilization_id := l_prod_cr_cc_id_tbl_2(1).utilization_id;
1749: END LOOP;
1750: ELSE
1751: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1752: FND_MESSAGE.set_name('OZF', 'OZF_GL_INVALID_SOURCE_EVENT');
1753: FND_MSG_PUB.add;
1754: END IF;
1755: x_return_status := FND_API.g_ret_sts_error;
1749: END LOOP;
1750: ELSE
1751: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1752: FND_MESSAGE.set_name('OZF', 'OZF_GL_INVALID_SOURCE_EVENT');
1753: FND_MSG_PUB.add;
1754: END IF;
1755: x_return_status := FND_API.g_ret_sts_error;
1756: END IF;
1757: -- if source table is different
1755: x_return_status := FND_API.g_ret_sts_error;
1756: END IF;
1757: -- if source table is different
1758: ELSE
1759: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1760: FND_MESSAGE.set_name('OZF', 'OZF_GL_INVALID_SOURCE_TABLE');
1761: FND_MSG_PUB.add;
1762: END IF;
1763: x_return_status := FND_API.g_ret_sts_error;
1757: -- if source table is different
1758: ELSE
1759: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1760: FND_MESSAGE.set_name('OZF', 'OZF_GL_INVALID_SOURCE_TABLE');
1761: FND_MSG_PUB.add;
1762: END IF;
1763: x_return_status := FND_API.g_ret_sts_error;
1764: END IF;
1765:
1768: x_return_status := FND_API.G_RET_STS_ERROR;
1769: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1770: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1771: WHEN OTHERS THEN
1772: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1773: FND_MESSAGE.set_name('OZF', 'OZF_GL_LINE_AMOUNT_CALC_ERROR');
1774: FND_MSG_PUB.add;
1775: END IF;
1776: x_return_status := FND_API.g_ret_sts_unexp_error;
1770: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1771: WHEN OTHERS THEN
1772: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1773: FND_MESSAGE.set_name('OZF', 'OZF_GL_LINE_AMOUNT_CALC_ERROR');
1774: FND_MSG_PUB.add;
1775: END IF;
1776: x_return_status := FND_API.g_ret_sts_unexp_error;
1777: END;
1778: ---------------------------------------------------------------------
1970: x_return_status := FND_API.G_RET_STS_ERROR;
1971: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1972: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1973: WHEN OTHERS THEN
1974: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1975: FND_MESSAGE.set_name('OZF', 'OZF_GL_ACCTNG_EVENT_ERROR');
1976: FND_MSG_PUB.add;
1977: END IF;
1978: x_return_status := FND_API.g_ret_sts_unexp_error;
1972: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1973: WHEN OTHERS THEN
1974: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1975: FND_MESSAGE.set_name('OZF', 'OZF_GL_ACCTNG_EVENT_ERROR');
1976: FND_MSG_PUB.add;
1977: END IF;
1978: x_return_status := FND_API.g_ret_sts_unexp_error;
1979: END Construct_Acctng_Event_Rec;
1980: ---------------------------------------------------------------------
2058: x_return_status := FND_API.G_RET_STS_ERROR;
2059: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2060: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2061: WHEN OTHERS THEN
2062: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2063: FND_MESSAGE.set_name('OZF', 'OZF_GL_AE_HEADER_ERROR');
2064: FND_MSG_PUB.add;
2065: END IF;
2066: x_return_status := FND_API.g_ret_sts_unexp_error;
2060: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2061: WHEN OTHERS THEN
2062: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2063: FND_MESSAGE.set_name('OZF', 'OZF_GL_AE_HEADER_ERROR');
2064: FND_MSG_PUB.add;
2065: END IF;
2066: x_return_status := FND_API.g_ret_sts_unexp_error;
2067: END Construct_Header_Rec;
2068: ---------------------------------------------------------------------
2136: FETCH get_fxgl_loss_ccid_csr INTO l_fxgl_loss_ccid;
2137: CLOSE get_fxgl_loss_ccid_csr;
2138:
2139: IF l_fxgl_gain_ccid is null THEN
2140: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2141: FND_MESSAGE.set_name('OZF', 'OZF_GL_NO_FXGL_ACCOUNT_SETUP');
2142: FND_MSG_PUB.add;
2143: END IF;
2144: x_return_status := FND_API.g_ret_sts_error;
2138:
2139: IF l_fxgl_gain_ccid is null THEN
2140: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2141: FND_MESSAGE.set_name('OZF', 'OZF_GL_NO_FXGL_ACCOUNT_SETUP');
2142: FND_MSG_PUB.add;
2143: END IF;
2144: x_return_status := FND_API.g_ret_sts_error;
2145: return;
2146: END IF;
2299: x_return_status := FND_API.G_RET_STS_ERROR;
2300: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2301: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2302: WHEN OTHERS THEN
2303: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2304: FND_MESSAGE.set_name('OZF', 'OZF_GL_AE_LINE_ERROR');
2305: FND_MSG_PUB.add;
2306: END IF;
2307: x_return_status := FND_API.g_ret_sts_unexp_error;
2301: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2302: WHEN OTHERS THEN
2303: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2304: FND_MESSAGE.set_name('OZF', 'OZF_GL_AE_LINE_ERROR');
2305: FND_MSG_PUB.add;
2306: END IF;
2307: x_return_status := FND_API.g_ret_sts_unexp_error;
2308: END Construct_Line_Rec;
2309: ---------------------------------------------------------------------
2339: -- Debug Message
2340: IF OZF_DEBUG_LOW_ON THEN
2341: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2342: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
2343: FND_MSG_PUB.Add;
2344: END IF;
2345: --Initialize message list if p_init_msg_list is TRUE.
2346: IF FND_API.To_Boolean (p_init_msg_list) THEN
2347: FND_MSG_PUB.initialize;
2343: FND_MSG_PUB.Add;
2344: END IF;
2345: --Initialize message list if p_init_msg_list is TRUE.
2346: IF FND_API.To_Boolean (p_init_msg_list) THEN
2347: FND_MSG_PUB.initialize;
2348: END IF;
2349: -- Initialize API return status to sucess
2350: x_return_status := FND_API.G_RET_STS_SUCCESS;
2351:
2390: -- Debug Message
2391: IF OZF_DEBUG_LOW_ON THEN
2392: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2393: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
2394: FND_MSG_PUB.Add;
2395: END IF;
2396: --Standard call to get message count and if count=1, get the message
2397: FND_MSG_PUB.Count_And_Get (
2398: p_encoded => FND_API.G_FALSE,
2393: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
2394: FND_MSG_PUB.Add;
2395: END IF;
2396: --Standard call to get message count and if count=1, get the message
2397: FND_MSG_PUB.Count_And_Get (
2398: p_encoded => FND_API.G_FALSE,
2399: p_count => x_msg_count,
2400: p_data => x_msg_data
2401: );
2402: EXCEPTION
2403: WHEN FND_API.G_EXC_ERROR THEN
2404: x_return_status := FND_API.G_RET_STS_ERROR;
2405: -- Standard call to get message count and if count=1, get the message
2406: FND_MSG_PUB.Count_And_Get (
2407: p_encoded => FND_API.G_FALSE,
2408: p_count => x_msg_count,
2409: p_data => x_msg_data
2410: );
2410: );
2411: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2412: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2413: -- Standard call to get message count and if count=1, get the message
2414: FND_MSG_PUB.Count_And_Get (
2415: p_encoded => FND_API.G_FALSE,
2416: p_count => x_msg_count,
2417: p_data => x_msg_data
2418: );
2417: p_data => x_msg_data
2418: );
2419: WHEN OTHERS THEN
2420: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2421: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2422: THEN
2423: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2424: END IF;
2425: -- Standard call to get message count and if count=1, get the message
2419: WHEN OTHERS THEN
2420: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2421: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2422: THEN
2423: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2424: END IF;
2425: -- Standard call to get message count and if count=1, get the message
2426: FND_MSG_PUB.Count_And_Get (
2427: p_encoded => FND_API.G_FALSE,
2422: THEN
2423: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2424: END IF;
2425: -- Standard call to get message count and if count=1, get the message
2426: FND_MSG_PUB.Count_And_Get (
2427: p_encoded => FND_API.G_FALSE,
2428: p_count => x_msg_count,
2429: p_data => x_msg_data
2430: );
2535: -- Debug Message
2536: IF OZF_DEBUG_LOW_ON THEN
2537: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2538: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
2539: FND_MSG_PUB.Add;
2540: END IF;
2541: --Initialize message list if p_init_msg_list is TRUE.
2542: IF FND_API.To_Boolean (p_init_msg_list) THEN
2543: FND_MSG_PUB.initialize;
2539: FND_MSG_PUB.Add;
2540: END IF;
2541: --Initialize message list if p_init_msg_list is TRUE.
2542: IF FND_API.To_Boolean (p_init_msg_list) THEN
2543: FND_MSG_PUB.initialize;
2544: END IF;
2545: -- Initialize API return status to sucess
2546: x_return_status := FND_API.G_RET_STS_SUCCESS;
2547:
2565: IF OZF_DEBUG_HIGH_ON THEN
2566: FND_MESSAGE.set_name('OZF', 'OZF_ACCT_GL_ENTRY_EXIST');
2567: FND_MESSAGE.set_token('SOURCE_ID', p_gl_rec.source_id);
2568: FND_MESSAGE.set_token('SOURCE_TABLE', p_gl_rec.source_table);
2569: FND_MSG_PUB.add;
2570: END IF;
2571: RAISE FND_API.G_EXC_ERROR;
2572: END IF;
2573: END IF;
2634: x_ae_header_rec => l_ae_header_rec,
2635: x_ae_line_tbl => l_ae_line_tbl );
2636:
2637: IF x_return_status = FND_API.g_ret_sts_error THEN
2638: --IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2639: -- FND_MESSAGE.set_name('OZF', 'OZF_GL_ACCT_RULE_ERROR');
2640: -- FND_MSG_PUB.add;
2641: --END IF;
2642: RAISE FND_API.G_EXC_ERROR;
2636:
2637: IF x_return_status = FND_API.g_ret_sts_error THEN
2638: --IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2639: -- FND_MESSAGE.set_name('OZF', 'OZF_GL_ACCT_RULE_ERROR');
2640: -- FND_MSG_PUB.add;
2641: --END IF;
2642: RAISE FND_API.G_EXC_ERROR;
2643: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2644: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2727: -- Debug Message
2728: IF OZF_DEBUG_LOW_ON THEN
2729: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2730: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
2731: FND_MSG_PUB.Add;
2732: END IF;
2733: --Standard call to get message count and if count=1, get the message
2734: FND_MSG_PUB.Count_And_Get (
2735: p_encoded => FND_API.G_FALSE,
2730: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
2731: FND_MSG_PUB.Add;
2732: END IF;
2733: --Standard call to get message count and if count=1, get the message
2734: FND_MSG_PUB.Count_And_Get (
2735: p_encoded => FND_API.G_FALSE,
2736: p_count => x_msg_count,
2737: p_data => x_msg_data
2738: );
2740: WHEN FND_API.G_EXC_ERROR THEN
2741: ROLLBACK TO Create_Gl_Entry_PVT;
2742: x_return_status := FND_API.G_RET_STS_ERROR;
2743: -- Standard call to get message count and if count=1, get the message
2744: FND_MSG_PUB.Count_And_Get (
2745: p_encoded => FND_API.G_FALSE,
2746: p_count => x_msg_count,
2747: p_data => x_msg_data
2748: );
2749: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2750: ROLLBACK TO Create_Gl_Entry_PVT;
2751: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2752: -- Standard call to get message count and if count=1, get the message
2753: FND_MSG_PUB.Count_And_Get (
2754: p_encoded => FND_API.G_FALSE,
2755: p_count => x_msg_count,
2756: p_data => x_msg_data
2757: );
2757: );
2758: WHEN OTHERS THEN
2759: ROLLBACK TO Create_Gl_Entry_PVT;
2760: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2761: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2762: THEN
2763: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2764: END IF;
2765: -- Standard call to get message count and if count=1, get the message
2759: ROLLBACK TO Create_Gl_Entry_PVT;
2760: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2761: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2762: THEN
2763: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2764: END IF;
2765: -- Standard call to get message count and if count=1, get the message
2766: FND_MSG_PUB.Count_And_Get (
2767: p_encoded => FND_API.G_FALSE,
2762: THEN
2763: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2764: END IF;
2765: -- Standard call to get message count and if count=1, get the message
2766: FND_MSG_PUB.Count_And_Get (
2767: p_encoded => FND_API.G_FALSE,
2768: p_count => x_msg_count,
2769: p_data => x_msg_data
2770: );
2833: -- Debug Message
2834: IF OZF_DEBUG_LOW_ON THEN
2835: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2836: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
2837: FND_MSG_PUB.Add;
2838: END IF;
2839: --Initialize message list if p_init_msg_list is TRUE.
2840: IF FND_API.To_Boolean (p_init_msg_list) THEN
2841: FND_MSG_PUB.initialize;
2837: FND_MSG_PUB.Add;
2838: END IF;
2839: --Initialize message list if p_init_msg_list is TRUE.
2840: IF FND_API.To_Boolean (p_init_msg_list) THEN
2841: FND_MSG_PUB.initialize;
2842: END IF;
2843: -- Initialize API return status to sucess
2844: x_return_status := FND_API.G_RET_STS_SUCCESS;
2845:
2848: CLOSE check_acct_status_csr;
2849:
2850: -- raise error if the event status code is already accounted
2851: IF l_event_status_code = 'ACCOUNTED' THEN
2852: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2853: FND_MESSAGE.set_name('OZF', 'OZF_GL_INCORR_EVENT_STATUS');
2854: FND_MSG_PUB.add;
2855: END IF;
2856: RAISE FND_API.G_EXC_ERROR;
2850: -- raise error if the event status code is already accounted
2851: IF l_event_status_code = 'ACCOUNTED' THEN
2852: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2853: FND_MESSAGE.set_name('OZF', 'OZF_GL_INCORR_EVENT_STATUS');
2854: FND_MSG_PUB.add;
2855: END IF;
2856: RAISE FND_API.G_EXC_ERROR;
2857: END IF;
2858:
2938: -- Debug Message
2939: IF OZF_DEBUG_LOW_ON THEN
2940: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2941: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
2942: FND_MSG_PUB.Add;
2943: END IF;
2944: --Standard call to get message count and if count=1, get the message
2945: FND_MSG_PUB.Count_And_Get (
2946: p_encoded => FND_API.G_FALSE,
2941: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
2942: FND_MSG_PUB.Add;
2943: END IF;
2944: --Standard call to get message count and if count=1, get the message
2945: FND_MSG_PUB.Count_And_Get (
2946: p_encoded => FND_API.G_FALSE,
2947: p_count => x_msg_count,
2948: p_data => x_msg_data
2949: );
2951: WHEN FND_API.G_EXC_ERROR THEN
2952: ROLLBACK TO Create_Acctng_Entries;
2953: x_return_status := FND_API.G_RET_STS_ERROR;
2954: -- Standard call to get message count and if count=1, get the message
2955: FND_MSG_PUB.Count_And_Get (
2956: p_encoded => FND_API.G_FALSE,
2957: p_count => x_msg_count,
2958: p_data => x_msg_data
2959: );
2960: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2961: ROLLBACK TO Create_Acctng_Entries;
2962: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2963: -- Standard call to get message count and if count=1, get the message
2964: FND_MSG_PUB.Count_And_Get (
2965: p_encoded => FND_API.G_FALSE,
2966: p_count => x_msg_count,
2967: p_data => x_msg_data
2968: );
2968: );
2969: WHEN OTHERS THEN
2970: ROLLBACK TO Create_Acctng_Entries;
2971: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2972: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2973: THEN
2974: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2975: END IF;
2976: -- Standard call to get message count and if count=1, get the message
2970: ROLLBACK TO Create_Acctng_Entries;
2971: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2972: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2973: THEN
2974: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2975: END IF;
2976: -- Standard call to get message count and if count=1, get the message
2977: FND_MSG_PUB.Count_And_Get (
2978: p_encoded => FND_API.G_FALSE,
2973: THEN
2974: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2975: END IF;
2976: -- Standard call to get message count and if count=1, get the message
2977: FND_MSG_PUB.Count_And_Get (
2978: p_encoded => FND_API.G_FALSE,
2979: p_count => x_msg_count,
2980: p_data => x_msg_data
2981: );
3143:
3144: IF OZF_DEBUG_LOW_ON THEN
3145: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
3146: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
3147: FND_MSG_PUB.Add;
3148: END IF;
3149:
3150: --Initialize message list if p_init_msg_list is TRUE.
3151: IF FND_API.To_Boolean (p_init_msg_list) THEN
3148: END IF;
3149:
3150: --Initialize message list if p_init_msg_list is TRUE.
3151: IF FND_API.To_Boolean (p_init_msg_list) THEN
3152: FND_MSG_PUB.initialize;
3153: END IF;
3154:
3155: -- Initialize API return status to sucess
3156: x_return_status := FND_API.G_RET_STS_SUCCESS;
3434: -- Debug Message
3435: IF OZF_DEBUG_LOW_ON THEN
3436: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
3437: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
3438: FND_MSG_PUB.Add;
3439: FND_MSG_PUB.Add;
3440: END IF;
3441: --Standard call to get message count and if count=1, get the message
3442: FND_MSG_PUB.Count_And_Get (
3435: IF OZF_DEBUG_LOW_ON THEN
3436: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
3437: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
3438: FND_MSG_PUB.Add;
3439: FND_MSG_PUB.Add;
3440: END IF;
3441: --Standard call to get message count and if count=1, get the message
3442: FND_MSG_PUB.Count_And_Get (
3443: p_encoded => FND_API.G_FALSE,
3438: FND_MSG_PUB.Add;
3439: FND_MSG_PUB.Add;
3440: END IF;
3441: --Standard call to get message count and if count=1, get the message
3442: FND_MSG_PUB.Count_And_Get (
3443: p_encoded => FND_API.G_FALSE,
3444: p_count => x_msg_count,
3445: p_data => x_msg_data
3446: );
3448: WHEN FND_API.G_EXC_ERROR THEN
3449: ROLLBACK TO Revert_GL_Entry;
3450: x_return_status := FND_API.G_RET_STS_ERROR;
3451: -- Standard call to get message count and if count=1, get the message
3452: FND_MSG_PUB.Count_And_Get (
3453: p_encoded => FND_API.G_FALSE,
3454: p_count => x_msg_count,
3455: p_data => x_msg_data
3456: );
3457: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3458: ROLLBACK TO Revert_GL_Entry;
3459: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3460: -- Standard call to get message count and if count=1, get the message
3461: FND_MSG_PUB.Count_And_Get (
3462: p_encoded => FND_API.G_FALSE,
3463: p_count => x_msg_count,
3464: p_data => x_msg_data
3465: );
3465: );
3466: WHEN OTHERS THEN
3467: ROLLBACK TO Revert_GL_Entry;
3468: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3469: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3470: THEN
3471: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3472: END IF;
3473: -- Standard call to get message count and if count=1, get the message
3467: ROLLBACK TO Revert_GL_Entry;
3468: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3469: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3470: THEN
3471: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3472: END IF;
3473: -- Standard call to get message count and if count=1, get the message
3474: FND_MSG_PUB.Count_And_Get (
3475: p_encoded => FND_API.G_FALSE,
3470: THEN
3471: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3472: END IF;
3473: -- Standard call to get message count and if count=1, get the message
3474: FND_MSG_PUB.Count_And_Get (
3475: p_encoded => FND_API.G_FALSE,
3476: p_count => x_msg_count,
3477: p_data => x_msg_data
3478: );
3540: -- Debug Message
3541: IF OZF_DEBUG_LOW_ON THEN
3542: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
3543: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
3544: FND_MSG_PUB.Add;
3545: END IF;
3546: --Initialize message list if p_init_msg_list is TRUE.
3547: IF FND_API.To_Boolean (p_init_msg_list) THEN
3548: FND_MSG_PUB.initialize;
3544: FND_MSG_PUB.Add;
3545: END IF;
3546: --Initialize message list if p_init_msg_list is TRUE.
3547: IF FND_API.To_Boolean (p_init_msg_list) THEN
3548: FND_MSG_PUB.initialize;
3549: END IF;
3550: -- Initialize API return status to sucess
3551: x_return_status := FND_API.G_RET_STS_SUCCESS;
3552:
3595: -- Debug Message
3596: IF OZF_DEBUG_LOW_ON THEN
3597: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
3598: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
3599: FND_MSG_PUB.Add;
3600: END IF;
3601: --Standard call to get message count and if count=1, get the message
3602: FND_MSG_PUB.Count_And_Get (
3603: p_encoded => FND_API.G_FALSE,
3598: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
3599: FND_MSG_PUB.Add;
3600: END IF;
3601: --Standard call to get message count and if count=1, get the message
3602: FND_MSG_PUB.Count_And_Get (
3603: p_encoded => FND_API.G_FALSE,
3604: p_count => x_msg_count,
3605: p_data => x_msg_data
3606: );
3608: WHEN FND_API.G_EXC_ERROR THEN
3609: ROLLBACK TO Post_Accrual_To_GL;
3610: x_return_status := FND_API.G_RET_STS_ERROR;
3611: -- Standard call to get message count and if count=1, get the message
3612: FND_MSG_PUB.Count_And_Get (
3613: p_encoded => FND_API.G_FALSE,
3614: p_count => x_msg_count,
3615: p_data => x_msg_data
3616: );
3617: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3618: ROLLBACK TO Post_Accrual_To_GL;
3619: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3620: -- Standard call to get message count and if count=1, get the message
3621: FND_MSG_PUB.Count_And_Get (
3622: p_encoded => FND_API.G_FALSE,
3623: p_count => x_msg_count,
3624: p_data => x_msg_data
3625: );
3625: );
3626: WHEN OTHERS THEN
3627: ROLLBACK TO Post_Accrual_To_GL;
3628: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3629: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3630: THEN
3631: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3632: END IF;
3633: -- Standard call to get message count and if count=1, get the message
3627: ROLLBACK TO Post_Accrual_To_GL;
3628: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3629: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3630: THEN
3631: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3632: END IF;
3633: -- Standard call to get message count and if count=1, get the message
3634: FND_MSG_PUB.Count_And_Get (
3635: p_encoded => FND_API.G_FALSE,
3630: THEN
3631: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3632: END IF;
3633: -- Standard call to get message count and if count=1, get the message
3634: FND_MSG_PUB.Count_And_Get (
3635: p_encoded => FND_API.G_FALSE,
3636: p_count => x_msg_count,
3637: p_data => x_msg_data
3638: );
3694: -- Debug Message
3695: IF OZF_DEBUG_LOW_ON THEN
3696: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
3697: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
3698: FND_MSG_PUB.Add;
3699: END IF;
3700: --Initialize message list if p_init_msg_list is TRUE.
3701: IF FND_API.To_Boolean (p_init_msg_list) THEN
3702: FND_MSG_PUB.initialize;
3698: FND_MSG_PUB.Add;
3699: END IF;
3700: --Initialize message list if p_init_msg_list is TRUE.
3701: IF FND_API.To_Boolean (p_init_msg_list) THEN
3702: FND_MSG_PUB.initialize;
3703: END IF;
3704: -- Initialize API return status to sucess
3705: x_return_status := FND_API.G_RET_STS_SUCCESS;
3706:
3761: -- Debug Message
3762: IF OZF_DEBUG_LOW_ON THEN
3763: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
3764: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
3765: FND_MSG_PUB.Add;
3766: END IF;
3767: --Standard call to get message count and if count=1, get the message
3768: FND_MSG_PUB.Count_And_Get (
3769: p_encoded => FND_API.G_FALSE,
3764: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
3765: FND_MSG_PUB.Add;
3766: END IF;
3767: --Standard call to get message count and if count=1, get the message
3768: FND_MSG_PUB.Count_And_Get (
3769: p_encoded => FND_API.G_FALSE,
3770: p_count => x_msg_count,
3771: p_data => x_msg_data
3772: );
3774: WHEN FND_API.G_EXC_ERROR THEN
3775: ROLLBACK TO Post_Claim_To_GL;
3776: x_return_status := FND_API.G_RET_STS_ERROR;
3777: -- Standard call to get message count and if count=1, get the message
3778: FND_MSG_PUB.Count_And_Get (
3779: p_encoded => FND_API.G_FALSE,
3780: p_count => x_msg_count,
3781: p_data => x_msg_data
3782: );
3783: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3784: ROLLBACK TO Post_Claim_To_GL;
3785: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3786: -- Standard call to get message count and if count=1, get the message
3787: FND_MSG_PUB.Count_And_Get (
3788: p_encoded => FND_API.G_FALSE,
3789: p_count => x_msg_count,
3790: p_data => x_msg_data
3791: );
3791: );
3792: WHEN OTHERS THEN
3793: ROLLBACK TO Post_Claim_To_GL;
3794: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3795: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3796: THEN
3797: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3798: END IF;
3799: -- Standard call to get message count and if count=1, get the message
3793: ROLLBACK TO Post_Claim_To_GL;
3794: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3795: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3796: THEN
3797: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3798: END IF;
3799: -- Standard call to get message count and if count=1, get the message
3800: FND_MSG_PUB.Count_And_Get (
3801: p_encoded => FND_API.G_FALSE,
3796: THEN
3797: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3798: END IF;
3799: -- Standard call to get message count and if count=1, get the message
3800: FND_MSG_PUB.Count_And_Get (
3801: p_encoded => FND_API.G_FALSE,
3802: p_count => x_msg_count,
3803: p_data => x_msg_data
3804: );