48: END;
49: ---------------------------------------------------------------------
50: PROCEDURE Get_GL_Account(
51: p_api_version IN NUMBER
52: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
53: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
54: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
55:
56: ,x_return_status OUT NOCOPY VARCHAR2
49: ---------------------------------------------------------------------
50: PROCEDURE Get_GL_Account(
51: p_api_version IN NUMBER
52: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
53: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
54: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
55:
56: ,x_return_status OUT NOCOPY VARCHAR2
57: ,x_msg_data OUT NOCOPY VARCHAR2
50: PROCEDURE Get_GL_Account(
51: p_api_version IN NUMBER
52: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
53: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
54: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
55:
56: ,x_return_status OUT NOCOPY VARCHAR2
57: ,x_msg_data OUT NOCOPY VARCHAR2
58: ,x_msg_count OUT NOCOPY NUMBER
376: BEGIN
377: -- Standard begin of API savepoint
378: SAVEPOINT Get_GL_Account_PVT;
379: -- Standard call to check for call compatibility.
380: IF NOT FND_API.Compatible_API_Call (
381: l_api_version,
382: p_api_version,
383: l_api_name,
384: G_PKG_NAME)
382: p_api_version,
383: l_api_name,
384: G_PKG_NAME)
385: THEN
386: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
387: END IF;
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;
397: END IF;
398: -- Initialize API return status to sucess
399: x_return_status := FND_API.G_RET_STS_SUCCESS;
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:
401: IF OZF_DEBUG_LOW_ON THEN
402: OZF_Utility_PVT.debug_message('p_account_type : '||p_account_type);
403: END IF;
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:
675: x_cc_id_tbl.extend();
676: x_cc_id_tbl(i).amount := l_acct_gen_tbl(i).amount;
727: IF l_bg_process_mode = 'Y' THEN
728: IF l_use_acct_gen = 'Y' THEN
729: Ozf_Acct_Generator.Start_Process (
730: p_api_version_number => 1.0,
731: p_init_msg_list => FND_API.G_FALSE,
732: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
733: x_return_status => x_return_status,
734: x_msg_count => x_msg_count,
735: x_msg_data => x_msg_data,
728: IF l_use_acct_gen = 'Y' THEN
729: Ozf_Acct_Generator.Start_Process (
730: p_api_version_number => 1.0,
731: p_init_msg_list => FND_API.G_FALSE,
732: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
733: x_return_status => x_return_status,
734: x_msg_count => x_msg_count,
735: x_msg_data => x_msg_data,
736: p_account_type => p_account_type,
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
788: OZF_UTILITY_PVT.debug_message('St and Id '||x_return_status||'-'||l_ccid);
789: END IF;
786: END;
787: IF OZF_DEBUG_HIGH_ON THEN
788: OZF_UTILITY_PVT.debug_message('St and Id '||x_return_status||'-'||l_ccid);
789: END IF;
790: IF x_return_status = FND_API.g_ret_sts_error OR
791: x_return_status = FND_API.g_ret_sts_unexp_error
792: THEN
793: EXIT;
794: END IF;
787: IF OZF_DEBUG_HIGH_ON THEN
788: OZF_UTILITY_PVT.debug_message('St and Id '||x_return_status||'-'||l_ccid);
789: END IF;
790: IF x_return_status = FND_API.g_ret_sts_error OR
791: x_return_status = FND_API.g_ret_sts_unexp_error
792: THEN
793: EXIT;
794: END IF;
795: END IF;
796:
797: END LOOP;
798:
799: --Standard check of commit
800: IF FND_API.To_Boolean ( p_commit ) THEN
801: COMMIT WORK;
802: END IF;
803: -- Debug Message
804: IF OZF_DEBUG_LOW_ON THEN
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: );
815: EXCEPTION
812: p_count => x_msg_count,
813: p_data => x_msg_data
814: );
815: EXCEPTION
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 (
814: );
815: EXCEPTION
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,
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
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 (
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,
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: );
834: WHEN OTHERS THEN
832: p_data => x_msg_data
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;
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: );
847: --
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
896: OPEN get_claim_class_csr(p_source_id);
897: FETCH get_claim_class_csr into l_type, x_sob_id, x_period_name;
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
918: WHEN OTHERS THEN
919: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) 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: ---------------------------------------------------------------------
926: FUNCTION get_event_number(
927: p_event_type_code IN VARCHAR2,
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;
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: ---------------------------------------------------------------------
998: FUNCTION get_account_type_code(p_event_type_code IN VARCHAR2,
999: p_event_type IN VARCHAR2,
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;
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: ---------------------------------------------------------------------
1158: FUNCTION get_account_description(
1159: p_gl_rec IN gl_interface_rec_type,
1198: x_sob_id => l_sob,
1199: x_period_name => l_period_name,
1200: x_return_status => x_return_status);
1201:
1202: IF x_return_status = FND_API.g_ret_sts_error THEN
1203: RAISE FND_API.G_EXC_ERROR;
1204: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1205: RAISE FND_API.g_exc_unexpected_error;
1206: END IF;
1199: x_period_name => l_period_name,
1200: x_return_status => x_return_status);
1201:
1202: IF x_return_status = FND_API.g_ret_sts_error THEN
1203: RAISE FND_API.G_EXC_ERROR;
1204: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1205: RAISE FND_API.g_exc_unexpected_error;
1206: END IF;
1207:
1200: x_return_status => x_return_status);
1201:
1202: IF x_return_status = FND_API.g_ret_sts_error THEN
1203: RAISE FND_API.G_EXC_ERROR;
1204: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1205: RAISE FND_API.g_exc_unexpected_error;
1206: END IF;
1207:
1208: IF l_ae_category = 'Fixed Budgets' THEN
1201:
1202: IF x_return_status = FND_API.g_ret_sts_error THEN
1203: RAISE FND_API.G_EXC_ERROR;
1204: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1205: RAISE FND_API.g_exc_unexpected_error;
1206: END IF;
1207:
1208: IF l_ae_category = 'Fixed Budgets' THEN
1209: OPEN offer_code_csr(p_gl_rec.source_id);
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: ---------------------------------------------------------------------
1272: PROCEDURE get_line_amount(
1273: p_gl_rec IN gl_interface_rec_type,
1336: p_event_type => l_debit_event,
1337: p_adjustment_type => p_gl_rec.adjustment_type,
1338: x_return_status => x_return_status);
1339:
1340: IF x_return_status = FND_API.g_ret_sts_error THEN
1341: RAISE FND_API.G_EXC_ERROR;
1342: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1344: END IF;
1337: p_adjustment_type => p_gl_rec.adjustment_type,
1338: x_return_status => x_return_status);
1339:
1340: IF x_return_status = FND_API.g_ret_sts_error THEN
1341: RAISE FND_API.G_EXC_ERROR;
1342: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1344: END IF;
1345:
1338: x_return_status => x_return_status);
1339:
1340: IF x_return_status = FND_API.g_ret_sts_error THEN
1341: RAISE FND_API.G_EXC_ERROR;
1342: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1344: END IF;
1345:
1346: l_cr_account_type_code := get_account_type_code(
1339:
1340: IF x_return_status = FND_API.g_ret_sts_error THEN
1341: RAISE FND_API.G_EXC_ERROR;
1342: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1344: END IF;
1345:
1346: l_cr_account_type_code := get_account_type_code(
1347: p_event_type_code => p_gl_rec.event_type_code,
1348: p_event_type => l_credit_event,
1349: p_adjustment_type => p_gl_rec.adjustment_type,
1350: x_return_status => x_return_status);
1351:
1352: IF x_return_status = FND_API.g_ret_sts_error THEN
1353: RAISE FND_API.G_EXC_ERROR;
1354: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1356: END IF;
1349: p_adjustment_type => p_gl_rec.adjustment_type,
1350: x_return_status => x_return_status);
1351:
1352: IF x_return_status = FND_API.g_ret_sts_error THEN
1353: RAISE FND_API.G_EXC_ERROR;
1354: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1356: END IF;
1357:
1350: x_return_status => x_return_status);
1351:
1352: IF x_return_status = FND_API.g_ret_sts_error THEN
1353: RAISE FND_API.G_EXC_ERROR;
1354: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1356: END IF;
1357:
1358: IF OZF_DEBUG_HIGH_ON THEN
1351:
1352: IF x_return_status = FND_API.g_ret_sts_error THEN
1353: RAISE FND_API.G_EXC_ERROR;
1354: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1356: END IF;
1357:
1358: IF OZF_DEBUG_HIGH_ON THEN
1359: OZF_UTILITY_PVT.debug_message('Getting GL Account for debiting');
1360: END IF;
1361: -- get accounts from account generator for debiting
1362: Get_GL_Account(
1363: p_api_version => 1.0,
1364: p_init_msg_list => FND_API.G_FALSE,
1365: p_validation_level=> FND_API.G_VALID_LEVEL_FULL,
1366: x_msg_data => l_msg_data,
1367: x_msg_count => l_msg_count,
1368: x_return_status => x_return_status,
1361: -- get accounts from account generator for debiting
1362: Get_GL_Account(
1363: p_api_version => 1.0,
1364: p_init_msg_list => FND_API.G_FALSE,
1365: p_validation_level=> FND_API.G_VALID_LEVEL_FULL,
1366: x_msg_data => l_msg_data,
1367: x_msg_count => l_msg_count,
1368: x_return_status => x_return_status,
1369: p_source_id => p_gl_rec.source_id,
1369: p_source_id => p_gl_rec.source_id,
1370: p_source_table => p_gl_rec.source_table,
1371: p_account_type => l_dr_account_type_code,
1372: x_cc_id_tbl => l_dr_cc_id_tbl);
1373: IF x_return_status = FND_API.g_ret_sts_error THEN
1374: RAISE FND_API.G_EXC_ERROR;
1375: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1376: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1377: END IF;
1370: p_source_table => p_gl_rec.source_table,
1371: p_account_type => l_dr_account_type_code,
1372: x_cc_id_tbl => l_dr_cc_id_tbl);
1373: IF x_return_status = FND_API.g_ret_sts_error THEN
1374: RAISE FND_API.G_EXC_ERROR;
1375: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1376: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1377: END IF;
1378:
1371: p_account_type => l_dr_account_type_code,
1372: x_cc_id_tbl => l_dr_cc_id_tbl);
1373: IF x_return_status = FND_API.g_ret_sts_error THEN
1374: RAISE FND_API.G_EXC_ERROR;
1375: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1376: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1377: END IF;
1378:
1379: IF OZF_DEBUG_HIGH_ON THEN
1372: x_cc_id_tbl => l_dr_cc_id_tbl);
1373: IF x_return_status = FND_API.g_ret_sts_error THEN
1374: RAISE FND_API.G_EXC_ERROR;
1375: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1376: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1377: END IF;
1378:
1379: IF OZF_DEBUG_HIGH_ON THEN
1380: OZF_UTILITY_PVT.debug_message('Getting GL Account for crediting');
1381: END IF;
1382: -- get accounts from account generator for crediting
1383: Get_GL_Account(
1384: p_api_version => 1.0,
1385: p_init_msg_list => FND_API.G_FALSE,
1386: p_validation_level=> FND_API.G_VALID_LEVEL_FULL,
1387: x_msg_data => l_msg_data,
1388: x_msg_count => l_msg_count,
1389: x_return_status => x_return_status,
1382: -- get accounts from account generator for crediting
1383: Get_GL_Account(
1384: p_api_version => 1.0,
1385: p_init_msg_list => FND_API.G_FALSE,
1386: p_validation_level=> FND_API.G_VALID_LEVEL_FULL,
1387: x_msg_data => l_msg_data,
1388: x_msg_count => l_msg_count,
1389: x_return_status => x_return_status,
1390: p_source_id => p_gl_rec.source_id,
1391: p_source_table => p_gl_rec.source_table,
1392: p_account_type => l_cr_account_type_code,
1393: x_cc_id_tbl => l_cr_cc_id_tbl);
1394:
1395: IF x_return_status = FND_API.g_ret_sts_error THEN
1396: RAISE FND_API.G_EXC_ERROR;
1397: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1398: IF OZF_DEBUG_HIGH_ON THEN
1399: OZF_UTILITY_PVT.debug_message('Unexp Error in getting CR account');
1392: p_account_type => l_cr_account_type_code,
1393: x_cc_id_tbl => l_cr_cc_id_tbl);
1394:
1395: IF x_return_status = FND_API.g_ret_sts_error THEN
1396: RAISE FND_API.G_EXC_ERROR;
1397: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1398: IF OZF_DEBUG_HIGH_ON THEN
1399: OZF_UTILITY_PVT.debug_message('Unexp Error in getting CR account');
1400: END IF;
1393: x_cc_id_tbl => l_cr_cc_id_tbl);
1394:
1395: IF x_return_status = FND_API.g_ret_sts_error THEN
1396: RAISE FND_API.G_EXC_ERROR;
1397: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1398: IF OZF_DEBUG_HIGH_ON THEN
1399: OZF_UTILITY_PVT.debug_message('Unexp Error in getting CR account');
1400: END IF;
1401: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1397: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1398: IF OZF_DEBUG_HIGH_ON THEN
1399: OZF_UTILITY_PVT.debug_message('Unexp Error in getting CR account');
1400: END IF;
1401: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1402: END IF;
1403:
1404: -- R12 changes start
1405: -- If skip_acc_gen flag is true and debit and credit cc_ids are passed,
1436: END IF;
1437: -- get accounts from account generator for debiting
1438: Get_GL_Account(
1439: p_api_version => 1.0,
1440: p_init_msg_list => FND_API.G_FALSE,
1441: p_validation_level=> FND_API.G_VALID_LEVEL_FULL,
1442: x_msg_data => l_msg_data,
1443: x_msg_count => l_msg_count,
1444: x_return_status => x_return_status,
1437: -- get accounts from account generator for debiting
1438: Get_GL_Account(
1439: p_api_version => 1.0,
1440: p_init_msg_list => FND_API.G_FALSE,
1441: p_validation_level=> FND_API.G_VALID_LEVEL_FULL,
1442: x_msg_data => l_msg_data,
1443: x_msg_count => l_msg_count,
1444: x_return_status => x_return_status,
1445: p_source_id => l_claim_line_util_id,
1446: p_source_table => 'OZF_CLAIM_LINES_UTIL_ALL',
1447: p_account_type => 'ACCRUAL_LIABILITY',
1448: p_event_type => l_debit_event,
1449: x_cc_id_tbl => l_prod_dr_cc_id_tbl_1);
1450: IF x_return_status = FND_API.g_ret_sts_error THEN
1451: RAISE FND_API.G_EXC_ERROR;
1452: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1454: END IF;
1447: p_account_type => 'ACCRUAL_LIABILITY',
1448: p_event_type => l_debit_event,
1449: x_cc_id_tbl => l_prod_dr_cc_id_tbl_1);
1450: IF x_return_status = FND_API.g_ret_sts_error THEN
1451: RAISE FND_API.G_EXC_ERROR;
1452: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1454: END IF;
1455:
1448: p_event_type => l_debit_event,
1449: x_cc_id_tbl => l_prod_dr_cc_id_tbl_1);
1450: IF x_return_status = FND_API.g_ret_sts_error THEN
1451: RAISE FND_API.G_EXC_ERROR;
1452: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1454: END IF;
1455:
1456: IF OZF_DEBUG_HIGH_ON THEN
1449: x_cc_id_tbl => l_prod_dr_cc_id_tbl_1);
1450: IF x_return_status = FND_API.g_ret_sts_error THEN
1451: RAISE FND_API.G_EXC_ERROR;
1452: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1454: END IF;
1455:
1456: IF OZF_DEBUG_HIGH_ON THEN
1457: OZF_UTILITY_PVT.debug_message('Getting GL Account for reverse crediting');
1458: END IF;
1459: -- get accounts from account generator for crediting
1460: Get_GL_Account(
1461: p_api_version => 1.0,
1462: p_init_msg_list => FND_API.G_FALSE,
1463: p_validation_level=> FND_API.G_VALID_LEVEL_FULL,
1464: x_msg_data => l_msg_data,
1465: x_msg_count => l_msg_count,
1466: x_return_status => x_return_status,
1459: -- get accounts from account generator for crediting
1460: Get_GL_Account(
1461: p_api_version => 1.0,
1462: p_init_msg_list => FND_API.G_FALSE,
1463: p_validation_level=> FND_API.G_VALID_LEVEL_FULL,
1464: x_msg_data => l_msg_data,
1465: x_msg_count => l_msg_count,
1466: x_return_status => x_return_status,
1467: p_source_id => l_claim_line_util_id,
1468: p_source_table => 'OZF_CLAIM_LINES_UTIL_ALL',
1469: p_account_type => 'EXPENSE ACCOUNT',
1470: p_event_type => l_credit_event,
1471: x_cc_id_tbl => l_prod_cr_cc_id_tbl_1);
1472: IF x_return_status = FND_API.g_ret_sts_error THEN
1473: RAISE FND_API.G_EXC_ERROR;
1474: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1475: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1476: END IF;
1469: p_account_type => 'EXPENSE ACCOUNT',
1470: p_event_type => l_credit_event,
1471: x_cc_id_tbl => l_prod_cr_cc_id_tbl_1);
1472: IF x_return_status = FND_API.g_ret_sts_error THEN
1473: RAISE FND_API.G_EXC_ERROR;
1474: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1475: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1476: END IF;
1477:
1470: p_event_type => l_credit_event,
1471: x_cc_id_tbl => l_prod_cr_cc_id_tbl_1);
1472: IF x_return_status = FND_API.g_ret_sts_error THEN
1473: RAISE FND_API.G_EXC_ERROR;
1474: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1475: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1476: END IF;
1477:
1478: IF OZF_DEBUG_HIGH_ON THEN
1471: x_cc_id_tbl => l_prod_cr_cc_id_tbl_1);
1472: IF x_return_status = FND_API.g_ret_sts_error THEN
1473: RAISE FND_API.G_EXC_ERROR;
1474: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1475: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1476: END IF;
1477:
1478: IF OZF_DEBUG_HIGH_ON THEN
1479: OZF_UTILITY_PVT.debug_message('Getting GL Account for product debiting');
1480: END IF;
1481: -- get accounts from account generator for debiting
1482: Get_GL_Account(
1483: p_api_version => 1.0,
1484: p_init_msg_list => FND_API.G_FALSE,
1485: p_validation_level=> FND_API.G_VALID_LEVEL_FULL,
1486: x_msg_data => l_msg_data,
1487: x_msg_count => l_msg_count,
1488: x_return_status => x_return_status,
1481: -- get accounts from account generator for debiting
1482: Get_GL_Account(
1483: p_api_version => 1.0,
1484: p_init_msg_list => FND_API.G_FALSE,
1485: p_validation_level=> FND_API.G_VALID_LEVEL_FULL,
1486: x_msg_data => l_msg_data,
1487: x_msg_count => l_msg_count,
1488: x_return_status => x_return_status,
1489: p_source_id => l_claim_line_util_id,
1490: p_source_table => 'OZF_CLAIM_LINES_UTIL_ALL',
1491: p_account_type => 'EXPENSE ACCOUNT',
1492: p_event_type => l_debit_event,
1493: x_cc_id_tbl => l_prod_dr_cc_id_tbl_2);
1494: IF x_return_status = FND_API.g_ret_sts_error THEN
1495: RAISE FND_API.G_EXC_ERROR;
1496: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1497: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1498: END IF;
1491: p_account_type => 'EXPENSE ACCOUNT',
1492: p_event_type => l_debit_event,
1493: x_cc_id_tbl => l_prod_dr_cc_id_tbl_2);
1494: IF x_return_status = FND_API.g_ret_sts_error THEN
1495: RAISE FND_API.G_EXC_ERROR;
1496: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1497: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1498: END IF;
1499:
1492: p_event_type => l_debit_event,
1493: x_cc_id_tbl => l_prod_dr_cc_id_tbl_2);
1494: IF x_return_status = FND_API.g_ret_sts_error THEN
1495: RAISE FND_API.G_EXC_ERROR;
1496: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1497: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1498: END IF;
1499:
1500: IF OZF_DEBUG_HIGH_ON THEN
1493: x_cc_id_tbl => l_prod_dr_cc_id_tbl_2);
1494: IF x_return_status = FND_API.g_ret_sts_error THEN
1495: RAISE FND_API.G_EXC_ERROR;
1496: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1497: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1498: END IF;
1499:
1500: IF OZF_DEBUG_HIGH_ON THEN
1501: OZF_UTILITY_PVT.debug_message('Getting GL Account for product crediting');
1502: END IF;
1503: -- get accounts from account generator for crediting
1504: Get_GL_Account(
1505: p_api_version => 1.0,
1506: p_init_msg_list => FND_API.G_FALSE,
1507: p_validation_level=> FND_API.G_VALID_LEVEL_FULL,
1508: x_msg_data => l_msg_data,
1509: x_msg_count => l_msg_count,
1510: x_return_status => x_return_status,
1503: -- get accounts from account generator for crediting
1504: Get_GL_Account(
1505: p_api_version => 1.0,
1506: p_init_msg_list => FND_API.G_FALSE,
1507: p_validation_level=> FND_API.G_VALID_LEVEL_FULL,
1508: x_msg_data => l_msg_data,
1509: x_msg_count => l_msg_count,
1510: x_return_status => x_return_status,
1511: p_source_id => l_claim_line_util_id,
1512: p_source_table => 'OZF_CLAIM_LINES_UTIL_ALL',
1513: p_account_type => 'ACCRUAL_LIABILITY',
1514: p_event_type => l_credit_event,
1515: x_cc_id_tbl => l_prod_cr_cc_id_tbl_2);
1516: IF x_return_status = FND_API.g_ret_sts_error THEN
1517: RAISE FND_API.G_EXC_ERROR;
1518: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1519: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1520: END IF;
1513: p_account_type => 'ACCRUAL_LIABILITY',
1514: p_event_type => l_credit_event,
1515: x_cc_id_tbl => l_prod_cr_cc_id_tbl_2);
1516: IF x_return_status = FND_API.g_ret_sts_error THEN
1517: RAISE FND_API.G_EXC_ERROR;
1518: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1519: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1520: END IF;
1521: END LOOP;
1514: p_event_type => l_credit_event,
1515: x_cc_id_tbl => l_prod_cr_cc_id_tbl_2);
1516: IF x_return_status = FND_API.g_ret_sts_error THEN
1517: RAISE FND_API.G_EXC_ERROR;
1518: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1519: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1520: END IF;
1521: END LOOP;
1522: CLOSE get_product_line_csr;
1515: x_cc_id_tbl => l_prod_cr_cc_id_tbl_2);
1516: IF x_return_status = FND_API.g_ret_sts_error THEN
1517: RAISE FND_API.G_EXC_ERROR;
1518: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1519: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1520: END IF;
1521: END LOOP;
1522: CLOSE get_product_line_csr;
1523: END IF;
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
1581: ELSIF upper(p_gl_rec.source_table) = 'OZF_CLAIMS_ALL' THEN
1582: --R12.1 Enhancement : checking for Accounting only
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
1758: ELSE
1759: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
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:
1766: EXCEPTION
1767: WHEN FND_API.G_EXC_ERROR THEN
1763: x_return_status := FND_API.g_ret_sts_error;
1764: END IF;
1765:
1766: EXCEPTION
1767: WHEN FND_API.G_EXC_ERROR THEN
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
1764: END IF;
1765:
1766: EXCEPTION
1767: WHEN FND_API.G_EXC_ERROR THEN
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
1765:
1766: EXCEPTION
1767: WHEN FND_API.G_EXC_ERROR THEN
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');
1766: EXCEPTION
1767: WHEN FND_API.G_EXC_ERROR THEN
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;
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: ---------------------------------------------------------------------
1779:
1780: -- Start of fix for bug 4582919
1945: p_event_type_code => p_gl_rec.event_type_code,
1946: p_adjustment_type => p_gl_rec.adjustment_type,
1947: x_return_status => x_return_status);
1948:
1949: IF x_return_status = FND_API.g_ret_sts_error THEN
1950: RAISE FND_API.G_EXC_ERROR;
1951: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1952: RAISE FND_API.g_exc_unexpected_error;
1953: END IF;
1946: p_adjustment_type => p_gl_rec.adjustment_type,
1947: x_return_status => x_return_status);
1948:
1949: IF x_return_status = FND_API.g_ret_sts_error THEN
1950: RAISE FND_API.G_EXC_ERROR;
1951: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1952: RAISE FND_API.g_exc_unexpected_error;
1953: END IF;
1954:
1947: x_return_status => x_return_status);
1948:
1949: IF x_return_status = FND_API.g_ret_sts_error THEN
1950: RAISE FND_API.G_EXC_ERROR;
1951: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1952: RAISE FND_API.g_exc_unexpected_error;
1953: END IF;
1954:
1955: l_gl_date := get_gl_date(p_source_id => p_gl_rec.source_id,
1948:
1949: IF x_return_status = FND_API.g_ret_sts_error THEN
1950: RAISE FND_API.G_EXC_ERROR;
1951: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1952: RAISE FND_API.g_exc_unexpected_error;
1953: END IF;
1954:
1955: l_gl_date := get_gl_date(p_source_id => p_gl_rec.source_id,
1956: p_source_table => upper(p_gl_rec.source_table));
1965: x_accounting_event_rec.source_table := upper(p_gl_rec.source_table);
1966: x_accounting_event_rec.org_id := l_org_id;
1967:
1968: EXCEPTION
1969: WHEN FND_API.G_EXC_ERROR THEN
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
1966: x_accounting_event_rec.org_id := l_org_id;
1967:
1968: EXCEPTION
1969: WHEN FND_API.G_EXC_ERROR THEN
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
1967:
1968: EXCEPTION
1969: WHEN FND_API.G_EXC_ERROR THEN
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');
1968: EXCEPTION
1969: WHEN FND_API.G_EXC_ERROR THEN
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;
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: ---------------------------------------------------------------------
1981: PROCEDURE Construct_Header_Rec(
1982: p_gl_rec IN gl_interface_rec_type
2009:
2010: IF OZF_DEBUG_HIGH_ON THEN
2011: OZF_UTILITY_PVT.debug_message('AE Category'||l_ae_category);
2012: END IF;
2013: IF x_return_status = FND_API.g_ret_sts_error THEN
2014: RAISE FND_API.G_EXC_ERROR;
2015: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2016: RAISE FND_API.g_exc_unexpected_error;
2017: END IF;
2010: IF OZF_DEBUG_HIGH_ON THEN
2011: OZF_UTILITY_PVT.debug_message('AE Category'||l_ae_category);
2012: END IF;
2013: IF x_return_status = FND_API.g_ret_sts_error THEN
2014: RAISE FND_API.G_EXC_ERROR;
2015: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2016: RAISE FND_API.g_exc_unexpected_error;
2017: END IF;
2018:
2011: OZF_UTILITY_PVT.debug_message('AE Category'||l_ae_category);
2012: END IF;
2013: IF x_return_status = FND_API.g_ret_sts_error THEN
2014: RAISE FND_API.G_EXC_ERROR;
2015: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2016: RAISE FND_API.g_exc_unexpected_error;
2017: END IF;
2018:
2019: --- get event status meaning
2012: END IF;
2013: IF x_return_status = FND_API.g_ret_sts_error THEN
2014: RAISE FND_API.G_EXC_ERROR;
2015: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2016: RAISE FND_API.g_exc_unexpected_error;
2017: END IF;
2018:
2019: --- get event status meaning
2020: open meaning_csr(p_gl_rec.event_status_code);
2053: x_ae_header_rec.gl_transfer_run_id := -1;
2054: x_ae_header_rec.org_id := l_org_id;
2055:
2056: EXCEPTION
2057: WHEN FND_API.G_EXC_ERROR THEN
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
2054: x_ae_header_rec.org_id := l_org_id;
2055:
2056: EXCEPTION
2057: WHEN FND_API.G_EXC_ERROR THEN
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
2055:
2056: EXCEPTION
2057: WHEN FND_API.G_EXC_ERROR THEN
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');
2056: EXCEPTION
2057: WHEN FND_API.G_EXC_ERROR THEN
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;
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: ---------------------------------------------------------------------
2069: PROCEDURE Construct_Line_Rec(
2070: p_gl_rec IN gl_interface_rec_type
2117: p_gl_rec => p_gl_rec,
2118: x_amount_tbl => l_amount_tbl,
2119: x_return_status => x_return_status );
2120:
2121: IF x_return_status = FND_API.g_ret_sts_error THEN
2122: RAISE FND_API.G_EXC_ERROR;
2123: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2124: RAISE FND_API.g_exc_unexpected_error;
2125: END IF;
2118: x_amount_tbl => l_amount_tbl,
2119: x_return_status => x_return_status );
2120:
2121: IF x_return_status = FND_API.g_ret_sts_error THEN
2122: RAISE FND_API.G_EXC_ERROR;
2123: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2124: RAISE FND_API.g_exc_unexpected_error;
2125: END IF;
2126:
2119: x_return_status => x_return_status );
2120:
2121: IF x_return_status = FND_API.g_ret_sts_error THEN
2122: RAISE FND_API.G_EXC_ERROR;
2123: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2124: RAISE FND_API.g_exc_unexpected_error;
2125: END IF;
2126:
2127: -- org id
2120:
2121: IF x_return_status = FND_API.g_ret_sts_error THEN
2122: RAISE FND_API.G_EXC_ERROR;
2123: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2124: RAISE FND_API.g_exc_unexpected_error;
2125: END IF;
2126:
2127: -- org id
2128: l_org_id := get_org_id(p_source_id => p_gl_rec.source_id,
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;
2147:
2148: IF l_fxgl_loss_ccid is null THEN
2158: FOR i in 1..l_num_lines LOOP
2159: x_ae_line_tbl.extend;
2160: x_ae_line_tbl(i) := null;
2161: --OZF_UTILITY_PVT.debug_message('Line Number before entering: ' || x_ae_line_tbl(i).ae_line_number);
2162: --if x_ae_line_tbl(i).ae_line_type_code = FND_API.G_MISS_CHAR then
2163: --OZF_UTILITY_PVT.debug_message('Line Type Code before entering - miss char: ' || x_ae_line_tbl(i).ae_line_type_code);
2164: --else
2165: --OZF_UTILITY_PVT.debug_message('Line Type Code before entering: ' || x_ae_line_tbl(i).ae_line_type_code);
2166: --end if;
2200: p_gl_rec => p_gl_rec,
2201: p_account_type_code => l_amount_tbl(i).line_type_code,
2202: x_return_status => x_return_status );
2203:
2204: IF x_return_status = FND_API.g_ret_sts_error THEN
2205: RAISE FND_API.G_EXC_ERROR;
2206: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2207: RAISE FND_API.g_exc_unexpected_error;
2208: END IF;
2201: p_account_type_code => l_amount_tbl(i).line_type_code,
2202: x_return_status => x_return_status );
2203:
2204: IF x_return_status = FND_API.g_ret_sts_error THEN
2205: RAISE FND_API.G_EXC_ERROR;
2206: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2207: RAISE FND_API.g_exc_unexpected_error;
2208: END IF;
2209:
2202: x_return_status => x_return_status );
2203:
2204: IF x_return_status = FND_API.g_ret_sts_error THEN
2205: RAISE FND_API.G_EXC_ERROR;
2206: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2207: RAISE FND_API.g_exc_unexpected_error;
2208: END IF;
2209:
2210: --OZF_UTILITY_PVT.debug_message('Line Number after entering: ' || x_ae_line_tbl(i).ae_line_number);
2203:
2204: IF x_return_status = FND_API.g_ret_sts_error THEN
2205: RAISE FND_API.G_EXC_ERROR;
2206: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2207: RAISE FND_API.g_exc_unexpected_error;
2208: END IF;
2209:
2210: --OZF_UTILITY_PVT.debug_message('Line Number after entering: ' || x_ae_line_tbl(i).ae_line_number);
2211: --if x_ae_line_tbl(i).ae_line_type_code = FND_API.G_MISS_CHAR then
2207: RAISE FND_API.g_exc_unexpected_error;
2208: END IF;
2209:
2210: --OZF_UTILITY_PVT.debug_message('Line Number after entering: ' || x_ae_line_tbl(i).ae_line_number);
2211: --if x_ae_line_tbl(i).ae_line_type_code = FND_API.G_MISS_CHAR then
2212: --OZF_UTILITY_PVT.debug_message('Line Type Code after entering - miss char: ' || x_ae_line_tbl(i).ae_line_type_code);
2213: --else
2214: --OZF_UTILITY_PVT.debug_message('Line Type Code after entering: ' || x_ae_line_tbl(i).ae_line_type_code);
2215: --end if;
2226: p_event_type => 'CR',
2227: p_adjustment_type => p_gl_rec.adjustment_type,
2228: x_return_status => x_return_status);
2229:
2230: IF x_return_status = FND_API.g_ret_sts_error THEN
2231: RAISE FND_API.G_EXC_ERROR;
2232: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2233: RAISE FND_API.g_exc_unexpected_error;
2234: END IF;
2227: p_adjustment_type => p_gl_rec.adjustment_type,
2228: x_return_status => x_return_status);
2229:
2230: IF x_return_status = FND_API.g_ret_sts_error THEN
2231: RAISE FND_API.G_EXC_ERROR;
2232: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2233: RAISE FND_API.g_exc_unexpected_error;
2234: END IF;
2235:
2228: x_return_status => x_return_status);
2229:
2230: IF x_return_status = FND_API.g_ret_sts_error THEN
2231: RAISE FND_API.G_EXC_ERROR;
2232: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2233: RAISE FND_API.g_exc_unexpected_error;
2234: END IF;
2235:
2236: OPEN get_fxgl_amt_csr(p_gl_rec.source_id);
2229:
2230: IF x_return_status = FND_API.g_ret_sts_error THEN
2231: RAISE FND_API.G_EXC_ERROR;
2232: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2233: RAISE FND_API.g_exc_unexpected_error;
2234: END IF;
2235:
2236: OPEN get_fxgl_amt_csr(p_gl_rec.source_id);
2237: LOOP
2258: p_gl_rec => p_gl_rec,
2259: p_account_type_code => l_line_type_code,
2260: x_return_status => x_return_status );
2261:
2262: IF x_return_status = FND_API.g_ret_sts_error THEN
2263: RAISE FND_API.G_EXC_ERROR;
2264: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2265: RAISE FND_API.g_exc_unexpected_error;
2266: END IF;
2259: p_account_type_code => l_line_type_code,
2260: x_return_status => x_return_status );
2261:
2262: IF x_return_status = FND_API.g_ret_sts_error THEN
2263: RAISE FND_API.G_EXC_ERROR;
2264: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2265: RAISE FND_API.g_exc_unexpected_error;
2266: END IF;
2267: ELSIF l_acctd_amount > 0 THEN
2260: x_return_status => x_return_status );
2261:
2262: IF x_return_status = FND_API.g_ret_sts_error THEN
2263: RAISE FND_API.G_EXC_ERROR;
2264: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2265: RAISE FND_API.g_exc_unexpected_error;
2266: END IF;
2267: ELSIF l_acctd_amount > 0 THEN
2268: x_ae_line_tbl.extend;
2261:
2262: IF x_return_status = FND_API.g_ret_sts_error THEN
2263: RAISE FND_API.G_EXC_ERROR;
2264: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2265: RAISE FND_API.g_exc_unexpected_error;
2266: END IF;
2267: ELSIF l_acctd_amount > 0 THEN
2268: x_ae_line_tbl.extend;
2269: x_ae_line_tbl( l_rec_num ) := null;
2282: p_gl_rec => p_gl_rec,
2283: p_account_type_code => l_line_type_code,
2284: x_return_status => x_return_status );
2285:
2286: IF x_return_status = FND_API.g_ret_sts_error THEN
2287: RAISE FND_API.G_EXC_ERROR;
2288: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2289: RAISE FND_API.g_exc_unexpected_error;
2290: END IF;
2283: p_account_type_code => l_line_type_code,
2284: x_return_status => x_return_status );
2285:
2286: IF x_return_status = FND_API.g_ret_sts_error THEN
2287: RAISE FND_API.G_EXC_ERROR;
2288: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2289: RAISE FND_API.g_exc_unexpected_error;
2290: END IF;
2291: END IF;
2284: x_return_status => x_return_status );
2285:
2286: IF x_return_status = FND_API.g_ret_sts_error THEN
2287: RAISE FND_API.G_EXC_ERROR;
2288: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2289: RAISE FND_API.g_exc_unexpected_error;
2290: END IF;
2291: END IF;
2292: END LOOP;
2285:
2286: IF x_return_status = FND_API.g_ret_sts_error THEN
2287: RAISE FND_API.G_EXC_ERROR;
2288: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2289: RAISE FND_API.g_exc_unexpected_error;
2290: END IF;
2291: END IF;
2292: END LOOP;
2293: CLOSE get_fxgl_amt_csr;
2294: END IF;
2295:
2296:
2297: EXCEPTION
2298: WHEN FND_API.G_EXC_ERROR THEN
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
2295:
2296:
2297: EXCEPTION
2298: WHEN FND_API.G_EXC_ERROR THEN
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
2296:
2297: EXCEPTION
2298: WHEN FND_API.G_EXC_ERROR THEN
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');
2297: EXCEPTION
2298: WHEN FND_API.G_EXC_ERROR THEN
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;
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: ---------------------------------------------------------------------
2310: PROCEDURE Set_Accounting_Rules(
2311: p_api_version IN NUMBER
2308: END Construct_Line_Rec;
2309: ---------------------------------------------------------------------
2310: PROCEDURE Set_Accounting_Rules(
2311: p_api_version IN NUMBER
2312: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2313: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2314:
2315: ,x_msg_data OUT NOCOPY VARCHAR2
2316: ,x_msg_count OUT NOCOPY NUMBER
2309: ---------------------------------------------------------------------
2310: PROCEDURE Set_Accounting_Rules(
2311: p_api_version IN NUMBER
2312: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2313: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2314:
2315: ,x_msg_data OUT NOCOPY VARCHAR2
2316: ,x_msg_count OUT NOCOPY NUMBER
2317: ,x_return_status OUT NOCOPY VARCHAR2
2327: l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME ||'.'|| l_api_name;
2328: --
2329: BEGIN
2330: -- Standard call to check for call compatibility.
2331: IF NOT FND_API.Compatible_API_Call (
2332: l_api_version,
2333: p_api_version,
2334: l_api_name,
2335: G_PKG_NAME)
2333: p_api_version,
2334: l_api_name,
2335: G_PKG_NAME)
2336: THEN
2337: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2338: END IF;
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;
2348: END IF;
2349: -- Initialize API return status to sucess
2350: x_return_status := FND_API.G_RET_STS_SUCCESS;
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:
2352: -- construct accounting event
2353: Construct_Acctng_Event_Rec(
2354: p_gl_rec => p_gl_rec
2354: p_gl_rec => p_gl_rec
2355: ,x_return_status => x_return_status
2356: ,x_accounting_event_rec => x_accounting_event_rec);
2357:
2358: IF x_return_status = FND_API.g_ret_sts_error THEN
2359: RAISE FND_API.G_EXC_ERROR;
2360: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2361: RAISE FND_API.g_exc_unexpected_error;
2362: END IF;
2355: ,x_return_status => x_return_status
2356: ,x_accounting_event_rec => x_accounting_event_rec);
2357:
2358: IF x_return_status = FND_API.g_ret_sts_error THEN
2359: RAISE FND_API.G_EXC_ERROR;
2360: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2361: RAISE FND_API.g_exc_unexpected_error;
2362: END IF;
2363:
2356: ,x_accounting_event_rec => x_accounting_event_rec);
2357:
2358: IF x_return_status = FND_API.g_ret_sts_error THEN
2359: RAISE FND_API.G_EXC_ERROR;
2360: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2361: RAISE FND_API.g_exc_unexpected_error;
2362: END IF;
2363:
2364: IF p_acctng_entries = 'T' THEN
2357:
2358: IF x_return_status = FND_API.g_ret_sts_error THEN
2359: RAISE FND_API.G_EXC_ERROR;
2360: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2361: RAISE FND_API.g_exc_unexpected_error;
2362: END IF;
2363:
2364: IF p_acctng_entries = 'T' THEN
2365: -- ae header rec
2367: p_gl_rec => p_gl_rec
2368: ,x_return_status => x_return_status
2369: ,x_ae_header_rec => x_ae_header_rec);
2370:
2371: IF x_return_status = FND_API.g_ret_sts_error THEN
2372: RAISE FND_API.G_EXC_ERROR;
2373: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2374: RAISE FND_API.g_exc_unexpected_error;
2375: END IF;
2368: ,x_return_status => x_return_status
2369: ,x_ae_header_rec => x_ae_header_rec);
2370:
2371: IF x_return_status = FND_API.g_ret_sts_error THEN
2372: RAISE FND_API.G_EXC_ERROR;
2373: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2374: RAISE FND_API.g_exc_unexpected_error;
2375: END IF;
2376:
2369: ,x_ae_header_rec => x_ae_header_rec);
2370:
2371: IF x_return_status = FND_API.g_ret_sts_error THEN
2372: RAISE FND_API.G_EXC_ERROR;
2373: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2374: RAISE FND_API.g_exc_unexpected_error;
2375: END IF;
2376:
2377: -- ae lines
2370:
2371: IF x_return_status = FND_API.g_ret_sts_error THEN
2372: RAISE FND_API.G_EXC_ERROR;
2373: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2374: RAISE FND_API.g_exc_unexpected_error;
2375: END IF;
2376:
2377: -- ae lines
2378: Construct_Line_Rec(
2379: p_gl_rec => p_gl_rec
2380: ,x_return_status => x_return_status
2381: ,x_ae_line_tbl => x_ae_line_tbl);
2382:
2383: IF x_return_status = FND_API.g_ret_sts_error THEN
2384: RAISE FND_API.G_EXC_ERROR;
2385: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2386: RAISE FND_API.g_exc_unexpected_error;
2387: END IF;
2380: ,x_return_status => x_return_status
2381: ,x_ae_line_tbl => x_ae_line_tbl);
2382:
2383: IF x_return_status = FND_API.g_ret_sts_error THEN
2384: RAISE FND_API.G_EXC_ERROR;
2385: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2386: RAISE FND_API.g_exc_unexpected_error;
2387: END IF;
2388: END IF;
2381: ,x_ae_line_tbl => x_ae_line_tbl);
2382:
2383: IF x_return_status = FND_API.g_ret_sts_error THEN
2384: RAISE FND_API.G_EXC_ERROR;
2385: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2386: RAISE FND_API.g_exc_unexpected_error;
2387: END IF;
2388: END IF;
2389:
2382:
2383: IF x_return_status = FND_API.g_ret_sts_error THEN
2384: RAISE FND_API.G_EXC_ERROR;
2385: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2386: RAISE FND_API.g_exc_unexpected_error;
2387: END IF;
2388: END IF;
2389:
2390: -- Debug Message
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
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,
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,
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: );
2411: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2407: p_encoded => FND_API.G_FALSE,
2408: p_count => x_msg_count,
2409: p_data => x_msg_data
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,
2408: p_count => x_msg_count,
2409: p_data => x_msg_data
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,
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: );
2419: WHEN OTHERS THEN
2416: p_count => x_msg_count,
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;
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: );
2431: END set_accounting_rules;
2444: -- 1. object_version_number will be set to 1.
2445: ---------------------------------------------------------------------
2446: PROCEDURE Create_Gl_Entry (
2447: p_api_version IN NUMBER
2448: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2449: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2450: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2451:
2452: ,x_return_status OUT NOCOPY VARCHAR2
2445: ---------------------------------------------------------------------
2446: PROCEDURE Create_Gl_Entry (
2447: p_api_version IN NUMBER
2448: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2449: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2450: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2451:
2452: ,x_return_status OUT NOCOPY VARCHAR2
2453: ,x_msg_data OUT NOCOPY VARCHAR2
2446: PROCEDURE Create_Gl_Entry (
2447: p_api_version IN NUMBER
2448: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2449: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2450: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2451:
2452: ,x_return_status OUT NOCOPY VARCHAR2
2453: ,x_msg_data OUT NOCOPY VARCHAR2
2454: ,x_msg_count OUT NOCOPY NUMBER
2523: BEGIN
2524: -- Standard begin of API savepoint
2525: SAVEPOINT Create_Gl_Entry_PVT;
2526: -- Standard call to check for call compatibility.
2527: IF NOT FND_API.Compatible_API_Call (
2528: l_api_version,
2529: p_api_version,
2530: l_api_name,
2531: G_PKG_NAME)
2529: p_api_version,
2530: l_api_name,
2531: G_PKG_NAME)
2532: THEN
2533: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2534: END IF;
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;
2544: END IF;
2545: -- Initialize API return status to sucess
2546: x_return_status := FND_API.G_RET_STS_SUCCESS;
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:
2548: IF OZF_DEBUG_LOW_ON THEN
2549: OZF_Utility_PVT.debug_message('--------- create_gl_entry ----------');
2550: OZF_Utility_PVT.debug_message('event_type_code : '||p_gl_rec.event_type_code);
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;
2574: -- [END OF BUG 4039894 FIXING]
2575:
2622:
2623: -- get the SLA table values populated
2624: Set_Accounting_Rules(
2625: P_Api_Version => 1.0,
2626: P_Init_Msg_List => FND_API.G_FALSE,
2627: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
2628: X_Msg_Data => x_msg_data,
2629: X_Msg_Count => x_msg_count,
2630: X_Return_Status => x_return_status,
2623: -- get the SLA table values populated
2624: Set_Accounting_Rules(
2625: P_Api_Version => 1.0,
2626: P_Init_Msg_List => FND_API.G_FALSE,
2627: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
2628: X_Msg_Data => x_msg_data,
2629: X_Msg_Count => x_msg_count,
2630: X_Return_Status => x_return_status,
2631: p_gl_rec => p_gl_rec,
2633: x_accounting_event_rec => l_acctng_event_rec,
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;
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;
2645: END IF;
2646:
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;
2645: END IF;
2646:
2647: -- populate interface tables for GL enter creation
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;
2645: END IF;
2646:
2647: -- populate interface tables for GL enter creation
2648: -- Create accounting event
2647: -- populate interface tables for GL enter creation
2648: -- Create accounting event
2649: OZF_acctng_events_PVT.Create_acctng_events(
2650: P_Api_Version_Number => 1.0,
2651: P_Init_Msg_List => FND_API.G_FALSE,
2652: P_Commit => FND_API.G_FALSE,
2653: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
2654: X_Return_Status => x_return_status,
2655: X_Msg_Count => x_msg_count,
2648: -- Create accounting event
2649: OZF_acctng_events_PVT.Create_acctng_events(
2650: P_Api_Version_Number => 1.0,
2651: P_Init_Msg_List => FND_API.G_FALSE,
2652: P_Commit => FND_API.G_FALSE,
2653: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
2654: X_Return_Status => x_return_status,
2655: X_Msg_Count => x_msg_count,
2656: X_Msg_Data => x_msg_data,
2649: OZF_acctng_events_PVT.Create_acctng_events(
2650: P_Api_Version_Number => 1.0,
2651: P_Init_Msg_List => FND_API.G_FALSE,
2652: P_Commit => FND_API.G_FALSE,
2653: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
2654: X_Return_Status => x_return_status,
2655: X_Msg_Count => x_msg_count,
2656: X_Msg_Data => x_msg_data,
2657: P_ACCTNG_EVENT_Rec => l_ACCTNG_EVENT_Rec,
2656: X_Msg_Data => x_msg_data,
2657: P_ACCTNG_EVENT_Rec => l_ACCTNG_EVENT_Rec,
2658: X_ACCOUNTING_EVENT_ID => l_ACCOUNTING_EVENT_ID);
2659:
2660: IF x_return_status = FND_API.g_ret_sts_error THEN
2661: RAISE FND_API.G_EXC_ERROR;
2662: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2663: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2664: END IF;
2657: P_ACCTNG_EVENT_Rec => l_ACCTNG_EVENT_Rec,
2658: X_ACCOUNTING_EVENT_ID => l_ACCOUNTING_EVENT_ID);
2659:
2660: IF x_return_status = FND_API.g_ret_sts_error THEN
2661: RAISE FND_API.G_EXC_ERROR;
2662: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2663: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2664: END IF;
2665:
2658: X_ACCOUNTING_EVENT_ID => l_ACCOUNTING_EVENT_ID);
2659:
2660: IF x_return_status = FND_API.g_ret_sts_error THEN
2661: RAISE FND_API.G_EXC_ERROR;
2662: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2663: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2664: END IF;
2665:
2666: IF l_acctng_entries = 'T' THEN
2659:
2660: IF x_return_status = FND_API.g_ret_sts_error THEN
2661: RAISE FND_API.G_EXC_ERROR;
2662: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2663: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2664: END IF;
2665:
2666: IF l_acctng_entries = 'T' THEN
2667:
2668: -- Create account event header
2669: l_ae_header_rec.accounting_event_id := l_accounting_event_id;
2670: OZF_ae_header_PVT.Create_ae_header(
2671: P_Api_Version_Number => 1.0,
2672: P_Init_Msg_List => FND_API.G_FALSE,
2673: P_Commit => FND_API.G_FALSE,
2674: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
2675: X_Return_Status => x_return_status,
2676: X_Msg_Count => x_msg_count,
2669: l_ae_header_rec.accounting_event_id := l_accounting_event_id;
2670: OZF_ae_header_PVT.Create_ae_header(
2671: P_Api_Version_Number => 1.0,
2672: P_Init_Msg_List => FND_API.G_FALSE,
2673: P_Commit => FND_API.G_FALSE,
2674: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
2675: X_Return_Status => x_return_status,
2676: X_Msg_Count => x_msg_count,
2677: X_Msg_Data => x_msg_data,
2670: OZF_ae_header_PVT.Create_ae_header(
2671: P_Api_Version_Number => 1.0,
2672: P_Init_Msg_List => FND_API.G_FALSE,
2673: P_Commit => FND_API.G_FALSE,
2674: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
2675: X_Return_Status => x_return_status,
2676: X_Msg_Count => x_msg_count,
2677: X_Msg_Data => x_msg_data,
2678: P_AE_HEADER_Rec => l_AE_HEADER_Rec,
2677: X_Msg_Data => x_msg_data,
2678: P_AE_HEADER_Rec => l_AE_HEADER_Rec,
2679: X_AE_HEADER_ID => l_AE_HEADER_ID);
2680:
2681: IF x_return_status = FND_API.g_ret_sts_error THEN
2682: RAISE FND_API.G_EXC_ERROR;
2683: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2684: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2685: END IF;
2678: P_AE_HEADER_Rec => l_AE_HEADER_Rec,
2679: X_AE_HEADER_ID => l_AE_HEADER_ID);
2680:
2681: IF x_return_status = FND_API.g_ret_sts_error THEN
2682: RAISE FND_API.G_EXC_ERROR;
2683: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2684: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2685: END IF;
2686:
2679: X_AE_HEADER_ID => l_AE_HEADER_ID);
2680:
2681: IF x_return_status = FND_API.g_ret_sts_error THEN
2682: RAISE FND_API.G_EXC_ERROR;
2683: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2684: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2685: END IF;
2686:
2687: -- Create account event lines
2680:
2681: IF x_return_status = FND_API.g_ret_sts_error THEN
2682: RAISE FND_API.G_EXC_ERROR;
2683: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2684: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2685: END IF;
2686:
2687: -- Create account event lines
2688: FOR i in 1..l_AE_LINE_Tbl.count LOOP
2694: END LOOP;
2695:
2696: OZF_ae_line_PVT.Create_ae_line(
2697: P_Api_Version_Number => 1.0,
2698: P_Init_Msg_List => FND_API.G_FALSE,
2699: P_Commit => FND_API.G_FALSE,
2700: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
2701: X_Return_Status => x_return_status,
2702: X_Msg_Count => x_msg_count,
2695:
2696: OZF_ae_line_PVT.Create_ae_line(
2697: P_Api_Version_Number => 1.0,
2698: P_Init_Msg_List => FND_API.G_FALSE,
2699: P_Commit => FND_API.G_FALSE,
2700: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
2701: X_Return_Status => x_return_status,
2702: X_Msg_Count => x_msg_count,
2703: X_Msg_Data => x_msg_data,
2696: OZF_ae_line_PVT.Create_ae_line(
2697: P_Api_Version_Number => 1.0,
2698: P_Init_Msg_List => FND_API.G_FALSE,
2699: P_Commit => FND_API.G_FALSE,
2700: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
2701: X_Return_Status => x_return_status,
2702: X_Msg_Count => x_msg_count,
2703: X_Msg_Data => x_msg_data,
2704: P_AE_LINE_Tbl => l_AE_LINE_Tbl,
2703: X_Msg_Data => x_msg_data,
2704: P_AE_LINE_Tbl => l_AE_LINE_Tbl,
2705: X_AE_LINE_ID => l_AE_LINE_ID_Tbl);
2706:
2707: IF x_return_status = FND_API.g_ret_sts_error THEN
2708: RAISE FND_API.G_EXC_ERROR;
2709: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2711: END IF;
2704: P_AE_LINE_Tbl => l_AE_LINE_Tbl,
2705: X_AE_LINE_ID => l_AE_LINE_ID_Tbl);
2706:
2707: IF x_return_status = FND_API.g_ret_sts_error THEN
2708: RAISE FND_API.G_EXC_ERROR;
2709: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2711: END IF;
2712:
2705: X_AE_LINE_ID => l_AE_LINE_ID_Tbl);
2706:
2707: IF x_return_status = FND_API.g_ret_sts_error THEN
2708: RAISE FND_API.G_EXC_ERROR;
2709: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2711: END IF;
2712:
2713: END IF; -- if l_acctng_entries = 'T'
2706:
2707: IF x_return_status = FND_API.g_ret_sts_error THEN
2708: RAISE FND_API.G_EXC_ERROR;
2709: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2711: END IF;
2712:
2713: END IF; -- if l_acctng_entries = 'T'
2714:
2720: x_event_id := l_accounting_event_id;
2721: END IF; -- post to GL checking
2722:
2723: --Standard check of commit
2724: IF FND_API.To_Boolean ( p_commit ) THEN
2725: COMMIT WORK;
2726: END IF;
2727: -- Debug Message
2728: IF OZF_DEBUG_LOW_ON THEN
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: );
2739: EXCEPTION
2736: p_count => x_msg_count,
2737: p_data => x_msg_data
2738: );
2739: EXCEPTION
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 (
2738: );
2739: EXCEPTION
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,
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
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 (
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,
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: );
2758: WHEN OTHERS THEN
2756: p_data => x_msg_data
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;
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: );
2771: --
2785: -- 1. object_version_number will be set to 1.
2786: ---------------------------------------------------------------------
2787: PROCEDURE Create_Acctng_Entries (
2788: p_api_version IN NUMBER
2789: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2790: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2791: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2792:
2793: ,x_return_status OUT NOCOPY VARCHAR2
2786: ---------------------------------------------------------------------
2787: PROCEDURE Create_Acctng_Entries (
2788: p_api_version IN NUMBER
2789: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2790: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2791: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2792:
2793: ,x_return_status OUT NOCOPY VARCHAR2
2794: ,x_msg_data OUT NOCOPY VARCHAR2
2787: PROCEDURE Create_Acctng_Entries (
2788: p_api_version IN NUMBER
2789: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2790: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2791: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2792:
2793: ,x_return_status OUT NOCOPY VARCHAR2
2794: ,x_msg_data OUT NOCOPY VARCHAR2
2795: ,x_msg_count OUT NOCOPY NUMBER
2821: BEGIN
2822: -- Standard begin of API savepoint
2823: SAVEPOINT Create_Acctng_Entries;
2824: -- Standard call to check for call compatibility.
2825: IF NOT FND_API.Compatible_API_Call (
2826: l_api_version,
2827: p_api_version,
2828: l_api_name,
2829: G_PKG_NAME)
2827: p_api_version,
2828: l_api_name,
2829: G_PKG_NAME)
2830: THEN
2831: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2832: END IF;
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;
2842: END IF;
2843: -- Initialize API return status to sucess
2844: x_return_status := FND_API.G_RET_STS_SUCCESS;
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:
2846: OPEN check_acct_status_csr(l_accounting_event_id);
2847: FETCH check_acct_status_csr INTO l_event_status_code;
2848: CLOSE check_acct_status_csr;
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:
2859: -- Construct Header Rec
2860: -- ae header rec
2862: p_gl_rec => p_gl_rec
2863: ,x_return_status => x_return_status
2864: ,x_ae_header_rec => l_ae_header_rec);
2865:
2866: IF x_return_status = FND_API.g_ret_sts_error THEN
2867: RAISE FND_API.G_EXC_ERROR;
2868: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2869: RAISE FND_API.g_exc_unexpected_error;
2870: END IF;
2863: ,x_return_status => x_return_status
2864: ,x_ae_header_rec => l_ae_header_rec);
2865:
2866: IF x_return_status = FND_API.g_ret_sts_error THEN
2867: RAISE FND_API.G_EXC_ERROR;
2868: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2869: RAISE FND_API.g_exc_unexpected_error;
2870: END IF;
2871:
2864: ,x_ae_header_rec => l_ae_header_rec);
2865:
2866: IF x_return_status = FND_API.g_ret_sts_error THEN
2867: RAISE FND_API.G_EXC_ERROR;
2868: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2869: RAISE FND_API.g_exc_unexpected_error;
2870: END IF;
2871:
2872: -- ae lines
2865:
2866: IF x_return_status = FND_API.g_ret_sts_error THEN
2867: RAISE FND_API.G_EXC_ERROR;
2868: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2869: RAISE FND_API.g_exc_unexpected_error;
2870: END IF;
2871:
2872: -- ae lines
2873: Construct_Line_Rec(
2874: p_gl_rec => p_gl_rec
2875: ,x_return_status => x_return_status
2876: ,x_ae_line_tbl => l_ae_line_tbl);
2877:
2878: IF x_return_status = FND_API.g_ret_sts_error THEN
2879: RAISE FND_API.G_EXC_ERROR;
2880: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2881: RAISE FND_API.g_exc_unexpected_error;
2882: END IF;
2875: ,x_return_status => x_return_status
2876: ,x_ae_line_tbl => l_ae_line_tbl);
2877:
2878: IF x_return_status = FND_API.g_ret_sts_error THEN
2879: RAISE FND_API.G_EXC_ERROR;
2880: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2881: RAISE FND_API.g_exc_unexpected_error;
2882: END IF;
2883:
2876: ,x_ae_line_tbl => l_ae_line_tbl);
2877:
2878: IF x_return_status = FND_API.g_ret_sts_error THEN
2879: RAISE FND_API.G_EXC_ERROR;
2880: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2881: RAISE FND_API.g_exc_unexpected_error;
2882: END IF;
2883:
2884: -- Create account event header
2877:
2878: IF x_return_status = FND_API.g_ret_sts_error THEN
2879: RAISE FND_API.G_EXC_ERROR;
2880: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2881: RAISE FND_API.g_exc_unexpected_error;
2882: END IF;
2883:
2884: -- Create account event header
2885: l_ae_header_rec.accounting_event_id := l_accounting_event_id;
2884: -- Create account event header
2885: l_ae_header_rec.accounting_event_id := l_accounting_event_id;
2886: OZF_ae_header_PVT.Create_ae_header(
2887: P_Api_Version_Number => 1.0,
2888: P_Init_Msg_List => FND_API.G_FALSE,
2889: P_Commit => FND_API.G_FALSE,
2890: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
2891: X_Return_Status => x_return_status,
2892: X_Msg_Count => x_msg_count,
2885: l_ae_header_rec.accounting_event_id := l_accounting_event_id;
2886: OZF_ae_header_PVT.Create_ae_header(
2887: P_Api_Version_Number => 1.0,
2888: P_Init_Msg_List => FND_API.G_FALSE,
2889: P_Commit => FND_API.G_FALSE,
2890: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
2891: X_Return_Status => x_return_status,
2892: X_Msg_Count => x_msg_count,
2893: X_Msg_Data => x_msg_data,
2886: OZF_ae_header_PVT.Create_ae_header(
2887: P_Api_Version_Number => 1.0,
2888: P_Init_Msg_List => FND_API.G_FALSE,
2889: P_Commit => FND_API.G_FALSE,
2890: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
2891: X_Return_Status => x_return_status,
2892: X_Msg_Count => x_msg_count,
2893: X_Msg_Data => x_msg_data,
2894: P_AE_HEADER_Rec => l_AE_HEADER_Rec,
2893: X_Msg_Data => x_msg_data,
2894: P_AE_HEADER_Rec => l_AE_HEADER_Rec,
2895: X_AE_HEADER_ID => l_AE_HEADER_ID);
2896:
2897: IF x_return_status = FND_API.g_ret_sts_error THEN
2898: RAISE FND_API.G_EXC_ERROR;
2899: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2900: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2901: END IF;
2894: P_AE_HEADER_Rec => l_AE_HEADER_Rec,
2895: X_AE_HEADER_ID => l_AE_HEADER_ID);
2896:
2897: IF x_return_status = FND_API.g_ret_sts_error THEN
2898: RAISE FND_API.G_EXC_ERROR;
2899: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2900: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2901: END IF;
2902:
2895: X_AE_HEADER_ID => l_AE_HEADER_ID);
2896:
2897: IF x_return_status = FND_API.g_ret_sts_error THEN
2898: RAISE FND_API.G_EXC_ERROR;
2899: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2900: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2901: END IF;
2902:
2903: -- Create account event lines
2896:
2897: IF x_return_status = FND_API.g_ret_sts_error THEN
2898: RAISE FND_API.G_EXC_ERROR;
2899: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2900: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2901: END IF;
2902:
2903: -- Create account event lines
2904: FOR i in 1..l_AE_LINE_Tbl.count LOOP
2910: END LOOP;
2911:
2912: OZF_ae_line_PVT.Create_ae_line(
2913: P_Api_Version_Number => 1.0,
2914: P_Init_Msg_List => FND_API.G_FALSE,
2915: P_Commit => FND_API.G_FALSE,
2916: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
2917: X_Return_Status => x_return_status,
2918: X_Msg_Count => x_msg_count,
2911:
2912: OZF_ae_line_PVT.Create_ae_line(
2913: P_Api_Version_Number => 1.0,
2914: P_Init_Msg_List => FND_API.G_FALSE,
2915: P_Commit => FND_API.G_FALSE,
2916: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
2917: X_Return_Status => x_return_status,
2918: X_Msg_Count => x_msg_count,
2919: X_Msg_Data => x_msg_data,
2912: OZF_ae_line_PVT.Create_ae_line(
2913: P_Api_Version_Number => 1.0,
2914: P_Init_Msg_List => FND_API.G_FALSE,
2915: P_Commit => FND_API.G_FALSE,
2916: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
2917: X_Return_Status => x_return_status,
2918: X_Msg_Count => x_msg_count,
2919: X_Msg_Data => x_msg_data,
2920: P_AE_LINE_Tbl => l_AE_LINE_Tbl,
2919: X_Msg_Data => x_msg_data,
2920: P_AE_LINE_Tbl => l_AE_LINE_Tbl,
2921: X_AE_LINE_ID => l_AE_LINE_ID_Tbl);
2922:
2923: IF x_return_status = FND_API.g_ret_sts_error THEN
2924: RAISE FND_API.G_EXC_ERROR;
2925: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2926: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2927: END IF;
2920: P_AE_LINE_Tbl => l_AE_LINE_Tbl,
2921: X_AE_LINE_ID => l_AE_LINE_ID_Tbl);
2922:
2923: IF x_return_status = FND_API.g_ret_sts_error THEN
2924: RAISE FND_API.G_EXC_ERROR;
2925: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2926: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2927: END IF;
2928:
2921: X_AE_LINE_ID => l_AE_LINE_ID_Tbl);
2922:
2923: IF x_return_status = FND_API.g_ret_sts_error THEN
2924: RAISE FND_API.G_EXC_ERROR;
2925: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2926: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2927: END IF;
2928:
2929: -- Update accounting events table
2922:
2923: IF x_return_status = FND_API.g_ret_sts_error THEN
2924: RAISE FND_API.G_EXC_ERROR;
2925: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2926: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2927: END IF;
2928:
2929: -- Update accounting events table
2930: UPDATE ozf_acctng_events_all
2931: SET event_status_code = 'ACCOUNTED'
2932: where accounting_event_id = l_accounting_event_id;
2933:
2934: --Standard check of commit
2935: IF FND_API.To_Boolean ( p_commit ) THEN
2936: COMMIT WORK;
2937: END IF;
2938: -- Debug Message
2939: IF OZF_DEBUG_LOW_ON THEN
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: );
2950: EXCEPTION
2947: p_count => x_msg_count,
2948: p_data => x_msg_data
2949: );
2950: EXCEPTION
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 (
2949: );
2950: EXCEPTION
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,
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
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 (
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,
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: );
2969: WHEN OTHERS THEN
2967: p_data => x_msg_data
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;
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: );
2982: --
3001: -- NOTES
3002: ---------------------------------------------------------------------
3003: PROCEDURE Revert_GL_Entry (
3004: p_api_version IN NUMBER
3005: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3006: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3007: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3008:
3009: ,x_return_status OUT NOCOPY VARCHAR2
3002: ---------------------------------------------------------------------
3003: PROCEDURE Revert_GL_Entry (
3004: p_api_version IN NUMBER
3005: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3006: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3007: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3008:
3009: ,x_return_status OUT NOCOPY VARCHAR2
3010: ,x_msg_data OUT NOCOPY VARCHAR2
3003: PROCEDURE Revert_GL_Entry (
3004: p_api_version IN NUMBER
3005: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3006: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3007: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3008:
3009: ,x_return_status OUT NOCOPY VARCHAR2
3010: ,x_msg_data OUT NOCOPY VARCHAR2
3011: ,x_msg_count OUT NOCOPY NUMBER
3131: -- Standard begin of API savepoint
3132: SAVEPOINT Revert_GL_Entry;
3133:
3134: -- Standard call to check for call compatibility.
3135: IF NOT FND_API.Compatible_API_Call (
3136: l_api_version,
3137: p_api_version,
3138: l_api_name,
3139: G_PKG_NAME)
3137: p_api_version,
3138: l_api_name,
3139: G_PKG_NAME)
3140: THEN
3141: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3142: END IF;
3143:
3144: IF OZF_DEBUG_LOW_ON THEN
3145: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
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
3152: FND_MSG_PUB.initialize;
3153: END IF;
3154:
3155: -- Initialize API return status to sucess
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;
3157:
3158: IF OZF_DEBUG_LOW_ON THEN
3159: OZF_Utility_PVT.debug_message('--------- Revert_GL_Entry ----------');
3160: OZF_Utility_PVT.debug_message('claim_id : '||p_claim_id);
3171: , l_acctng_event_rec.accounting_date
3172: , l_ae_object_version_num;
3173: CLOSE get_accounting_event_csr;
3174:
3175: IF l_accounting_event_id IS NULL OR l_accounting_event_id = FND_API.G_MISS_NUM THEN
3176: IF OZF_DEBUG_LOW_ON THEN
3177: OZF_Utility_PVT.debug_message('There is no accounting event for the source. Return to the caller.');
3178: END IF;
3179:
3209:
3210: -- First create accounting event for the reversal event
3211: OZF_ACCTNG_EVENTS_PVT.Create_Acctng_Events(
3212: P_Api_Version_Number => 1.0,
3213: P_Init_Msg_List => FND_API.G_FALSE,
3214: P_Commit => FND_API.G_FALSE,
3215: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
3216: x_return_status => x_return_status,
3217: x_msg_count => x_msg_count,
3210: -- First create accounting event for the reversal event
3211: OZF_ACCTNG_EVENTS_PVT.Create_Acctng_Events(
3212: P_Api_Version_Number => 1.0,
3213: P_Init_Msg_List => FND_API.G_FALSE,
3214: P_Commit => FND_API.G_FALSE,
3215: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
3216: x_return_status => x_return_status,
3217: x_msg_count => x_msg_count,
3218: x_msg_data => x_msg_data,
3211: OZF_ACCTNG_EVENTS_PVT.Create_Acctng_Events(
3212: P_Api_Version_Number => 1.0,
3213: P_Init_Msg_List => FND_API.G_FALSE,
3214: P_Commit => FND_API.G_FALSE,
3215: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
3216: x_return_status => x_return_status,
3217: x_msg_count => x_msg_count,
3218: x_msg_data => x_msg_data,
3219: P_Acctng_Event_Rec => l_acctng_event_rec,
3218: x_msg_data => x_msg_data,
3219: P_Acctng_Event_Rec => l_acctng_event_rec,
3220: X_Accounting_Event_Id => l_new_event_id);
3221:
3222: IF x_return_status = FND_API.g_ret_sts_error THEN
3223: RAISE FND_API.G_EXC_ERROR;
3224: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3225: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3226: END IF;
3219: P_Acctng_Event_Rec => l_acctng_event_rec,
3220: X_Accounting_Event_Id => l_new_event_id);
3221:
3222: IF x_return_status = FND_API.g_ret_sts_error THEN
3223: RAISE FND_API.G_EXC_ERROR;
3224: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3225: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3226: END IF;
3227:
3220: X_Accounting_Event_Id => l_new_event_id);
3221:
3222: IF x_return_status = FND_API.g_ret_sts_error THEN
3223: RAISE FND_API.G_EXC_ERROR;
3224: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3225: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3226: END IF;
3227:
3228: IF OZF_DEBUG_LOW_ON THEN
3221:
3222: IF x_return_status = FND_API.g_ret_sts_error THEN
3223: RAISE FND_API.G_EXC_ERROR;
3224: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3225: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3226: END IF;
3227:
3228: IF OZF_DEBUG_LOW_ON THEN
3229: OZF_Utility_PVT.debug_message('Created new accounting event');
3248: END IF;
3249:
3250: OZF_ae_header_PVT.Create_ae_header(
3251: P_Api_Version_Number => 1.0,
3252: P_Init_Msg_List => FND_API.G_FALSE,
3253: P_Commit => FND_API.G_FALSE,
3254: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
3255: x_return_status => x_return_status,
3256: x_msg_count => x_msg_count,
3249:
3250: OZF_ae_header_PVT.Create_ae_header(
3251: P_Api_Version_Number => 1.0,
3252: P_Init_Msg_List => FND_API.G_FALSE,
3253: P_Commit => FND_API.G_FALSE,
3254: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
3255: x_return_status => x_return_status,
3256: x_msg_count => x_msg_count,
3257: x_msg_data => x_msg_data,
3250: OZF_ae_header_PVT.Create_ae_header(
3251: P_Api_Version_Number => 1.0,
3252: P_Init_Msg_List => FND_API.G_FALSE,
3253: P_Commit => FND_API.G_FALSE,
3254: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
3255: x_return_status => x_return_status,
3256: x_msg_count => x_msg_count,
3257: x_msg_data => x_msg_data,
3258: P_AE_HEADER_Rec => l_ae_header_rec,
3257: x_msg_data => x_msg_data,
3258: P_AE_HEADER_Rec => l_ae_header_rec,
3259: X_AE_HEADER_ID => l_new_header_id);
3260:
3261: IF x_return_status = FND_API.g_ret_sts_error THEN
3262: RAISE FND_API.G_EXC_ERROR;
3263: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3264: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3265: END IF;
3258: P_AE_HEADER_Rec => l_ae_header_rec,
3259: X_AE_HEADER_ID => l_new_header_id);
3260:
3261: IF x_return_status = FND_API.g_ret_sts_error THEN
3262: RAISE FND_API.G_EXC_ERROR;
3263: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3264: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3265: END IF;
3266:
3259: X_AE_HEADER_ID => l_new_header_id);
3260:
3261: IF x_return_status = FND_API.g_ret_sts_error THEN
3262: RAISE FND_API.G_EXC_ERROR;
3263: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3264: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3265: END IF;
3266:
3267: IF OZF_DEBUG_LOW_ON THEN
3260:
3261: IF x_return_status = FND_API.g_ret_sts_error THEN
3262: RAISE FND_API.G_EXC_ERROR;
3263: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3264: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3265: END IF;
3266:
3267: IF OZF_DEBUG_LOW_ON THEN
3268: OZF_Utility_PVT.debug_message('Created new accounting header');
3317: CLOSE get_ae_lines_dtl_csr;
3318:
3319: OZF_ae_line_PVT.Create_ae_line(
3320: P_Api_Version_Number => 1.0,
3321: P_Init_Msg_List => FND_API.G_FALSE,
3322: P_Commit => FND_API.G_FALSE,
3323: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
3324: x_return_status => x_return_status,
3325: x_msg_count => x_msg_count,
3318:
3319: OZF_ae_line_PVT.Create_ae_line(
3320: P_Api_Version_Number => 1.0,
3321: P_Init_Msg_List => FND_API.G_FALSE,
3322: P_Commit => FND_API.G_FALSE,
3323: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
3324: x_return_status => x_return_status,
3325: x_msg_count => x_msg_count,
3326: x_msg_data => x_msg_data,
3319: OZF_ae_line_PVT.Create_ae_line(
3320: P_Api_Version_Number => 1.0,
3321: P_Init_Msg_List => FND_API.G_FALSE,
3322: P_Commit => FND_API.G_FALSE,
3323: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
3324: x_return_status => x_return_status,
3325: x_msg_count => x_msg_count,
3326: x_msg_data => x_msg_data,
3327: P_AE_LINE_Tbl => l_ae_line_tbl,
3326: x_msg_data => x_msg_data,
3327: P_AE_LINE_Tbl => l_ae_line_tbl,
3328: X_AE_LINE_ID => l_new_line_id_tbl);
3329:
3330: IF x_return_status = FND_API.g_ret_sts_error THEN
3331: RAISE FND_API.G_EXC_ERROR;
3332: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3333: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3334: END IF;
3327: P_AE_LINE_Tbl => l_ae_line_tbl,
3328: X_AE_LINE_ID => l_new_line_id_tbl);
3329:
3330: IF x_return_status = FND_API.g_ret_sts_error THEN
3331: RAISE FND_API.G_EXC_ERROR;
3332: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3333: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3334: END IF;
3335:
3328: X_AE_LINE_ID => l_new_line_id_tbl);
3329:
3330: IF x_return_status = FND_API.g_ret_sts_error THEN
3331: RAISE FND_API.G_EXC_ERROR;
3332: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3333: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3334: END IF;
3335:
3336: IF OZF_DEBUG_LOW_ON THEN
3329:
3330: IF x_return_status = FND_API.g_ret_sts_error THEN
3331: RAISE FND_API.G_EXC_ERROR;
3332: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3333: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3334: END IF;
3335:
3336: IF OZF_DEBUG_LOW_ON THEN
3337: OZF_Utility_PVT.debug_message('Created new accounting lines with reversed amounts');
3358:
3359: -- Delete SLA lines not transferred
3360: OZF_AE_LINE_PVT.Delete_Ae_Line(
3361: p_api_version_number => 1.0,
3362: p_init_msg_list => FND_API.G_FALSE,
3363: p_commit => FND_API.G_FALSE,
3364: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3365: x_return_status => x_return_status,
3366: x_msg_count => x_msg_count,
3359: -- Delete SLA lines not transferred
3360: OZF_AE_LINE_PVT.Delete_Ae_Line(
3361: p_api_version_number => 1.0,
3362: p_init_msg_list => FND_API.G_FALSE,
3363: p_commit => FND_API.G_FALSE,
3364: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3365: x_return_status => x_return_status,
3366: x_msg_count => x_msg_count,
3367: x_msg_data => x_msg_data,
3360: OZF_AE_LINE_PVT.Delete_Ae_Line(
3361: p_api_version_number => 1.0,
3362: p_init_msg_list => FND_API.G_FALSE,
3363: p_commit => FND_API.G_FALSE,
3364: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3365: x_return_status => x_return_status,
3366: x_msg_count => x_msg_count,
3367: x_msg_data => x_msg_data,
3368: p_ae_line_id => l_ae_line_id,
3367: x_msg_data => x_msg_data,
3368: p_ae_line_id => l_ae_line_id,
3369: p_object_version_number => l_ael_object_version_num);
3370:
3371: IF x_return_status = FND_API.g_ret_sts_error THEN
3372: RAISE FND_API.G_EXC_ERROR;
3373: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3374: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3375: END IF;
3368: p_ae_line_id => l_ae_line_id,
3369: p_object_version_number => l_ael_object_version_num);
3370:
3371: IF x_return_status = FND_API.g_ret_sts_error THEN
3372: RAISE FND_API.G_EXC_ERROR;
3373: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3374: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3375: END IF;
3376: END LOOP;
3369: p_object_version_number => l_ael_object_version_num);
3370:
3371: IF x_return_status = FND_API.g_ret_sts_error THEN
3372: RAISE FND_API.G_EXC_ERROR;
3373: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3374: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3375: END IF;
3376: END LOOP;
3377: CLOSE get_ae_lines_csr;
3370:
3371: IF x_return_status = FND_API.g_ret_sts_error THEN
3372: RAISE FND_API.G_EXC_ERROR;
3373: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3374: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3375: END IF;
3376: END LOOP;
3377: CLOSE get_ae_lines_csr;
3378:
3382:
3383: -- Delete SLA header not transferred
3384: OZF_AE_HEADER_PVT.Delete_Ae_Header(
3385: p_api_version_number => 1.0,
3386: p_init_msg_list => FND_API.G_FALSE,
3387: p_commit => FND_API.G_FALSE,
3388: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3389: x_return_status => x_return_status,
3390: x_msg_count => x_msg_count,
3383: -- Delete SLA header not transferred
3384: OZF_AE_HEADER_PVT.Delete_Ae_Header(
3385: p_api_version_number => 1.0,
3386: p_init_msg_list => FND_API.G_FALSE,
3387: p_commit => FND_API.G_FALSE,
3388: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3389: x_return_status => x_return_status,
3390: x_msg_count => x_msg_count,
3391: x_msg_data => x_msg_data,
3384: OZF_AE_HEADER_PVT.Delete_Ae_Header(
3385: p_api_version_number => 1.0,
3386: p_init_msg_list => FND_API.G_FALSE,
3387: p_commit => FND_API.G_FALSE,
3388: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3389: x_return_status => x_return_status,
3390: x_msg_count => x_msg_count,
3391: x_msg_data => x_msg_data,
3392: p_ae_header_id => l_ae_header_id,
3391: x_msg_data => x_msg_data,
3392: p_ae_header_id => l_ae_header_id,
3393: p_object_version_number => l_aeh_object_version_num);
3394:
3395: IF x_return_status = FND_API.g_ret_sts_error THEN
3396: RAISE FND_API.G_EXC_ERROR;
3397: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3399: END IF;
3392: p_ae_header_id => l_ae_header_id,
3393: p_object_version_number => l_aeh_object_version_num);
3394:
3395: IF x_return_status = FND_API.g_ret_sts_error THEN
3396: RAISE FND_API.G_EXC_ERROR;
3397: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3399: END IF;
3400:
3393: p_object_version_number => l_aeh_object_version_num);
3394:
3395: IF x_return_status = FND_API.g_ret_sts_error THEN
3396: RAISE FND_API.G_EXC_ERROR;
3397: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3399: END IF;
3400:
3401: IF OZF_DEBUG_LOW_ON THEN
3394:
3395: IF x_return_status = FND_API.g_ret_sts_error THEN
3396: RAISE FND_API.G_EXC_ERROR;
3397: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3399: END IF;
3400:
3401: IF OZF_DEBUG_LOW_ON THEN
3402: OZF_Utility_PVT.debug_message('Deleted header');
3404:
3405: -- Delete SLA accounting event not transferred
3406: OZF_ACCTNG_EVENTS_PVT.Delete_Acctng_Events(
3407: p_api_version_number => 1.0,
3408: p_init_msg_list => FND_API.G_FALSE,
3409: p_commit => FND_API.G_FALSE,
3410: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3411: x_return_status => x_return_status,
3412: x_msg_count => x_msg_count,
3405: -- Delete SLA accounting event not transferred
3406: OZF_ACCTNG_EVENTS_PVT.Delete_Acctng_Events(
3407: p_api_version_number => 1.0,
3408: p_init_msg_list => FND_API.G_FALSE,
3409: p_commit => FND_API.G_FALSE,
3410: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3411: x_return_status => x_return_status,
3412: x_msg_count => x_msg_count,
3413: x_msg_data => x_msg_data,
3406: OZF_ACCTNG_EVENTS_PVT.Delete_Acctng_Events(
3407: p_api_version_number => 1.0,
3408: p_init_msg_list => FND_API.G_FALSE,
3409: p_commit => FND_API.G_FALSE,
3410: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3411: x_return_status => x_return_status,
3412: x_msg_count => x_msg_count,
3413: x_msg_data => x_msg_data,
3414: p_accounting_event_id => l_accounting_event_id,
3413: x_msg_data => x_msg_data,
3414: p_accounting_event_id => l_accounting_event_id,
3415: p_object_version_number => l_ae_object_version_num);
3416:
3417: IF x_return_status = FND_API.g_ret_sts_error THEN
3418: RAISE FND_API.G_EXC_ERROR;
3419: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3421: END IF;
3414: p_accounting_event_id => l_accounting_event_id,
3415: p_object_version_number => l_ae_object_version_num);
3416:
3417: IF x_return_status = FND_API.g_ret_sts_error THEN
3418: RAISE FND_API.G_EXC_ERROR;
3419: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3421: END IF;
3422:
3415: p_object_version_number => l_ae_object_version_num);
3416:
3417: IF x_return_status = FND_API.g_ret_sts_error THEN
3418: RAISE FND_API.G_EXC_ERROR;
3419: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3421: END IF;
3422:
3423: IF OZF_DEBUG_LOW_ON THEN
3416:
3417: IF x_return_status = FND_API.g_ret_sts_error THEN
3418: RAISE FND_API.G_EXC_ERROR;
3419: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3421: END IF;
3422:
3423: IF OZF_DEBUG_LOW_ON THEN
3424: OZF_Utility_PVT.debug_message('Deleted header');
3427:
3428: END IF;
3429:
3430: --Standard check of commit
3431: IF FND_API.To_Boolean ( p_commit ) THEN
3432: COMMIT WORK;
3433: END IF;
3434: -- Debug Message
3435: IF OZF_DEBUG_LOW_ON THEN
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: );
3447: EXCEPTION
3444: p_count => x_msg_count,
3445: p_data => x_msg_data
3446: );
3447: EXCEPTION
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 (
3446: );
3447: EXCEPTION
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,
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
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 (
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,
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: );
3466: WHEN OTHERS THEN
3464: p_data => x_msg_data
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;
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: );
3479:
3500: -- NOTES
3501: ---------------------------------------------------------------------
3502: PROCEDURE Post_Accrual_To_GL (
3503: p_api_version IN NUMBER
3504: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3505: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3506: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3507:
3508: ,x_return_status OUT NOCOPY VARCHAR2
3501: ---------------------------------------------------------------------
3502: PROCEDURE Post_Accrual_To_GL (
3503: p_api_version IN NUMBER
3504: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3505: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3506: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3507:
3508: ,x_return_status OUT NOCOPY VARCHAR2
3509: ,x_msg_data OUT NOCOPY VARCHAR2
3502: PROCEDURE Post_Accrual_To_GL (
3503: p_api_version IN NUMBER
3504: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3505: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3506: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3507:
3508: ,x_return_status OUT NOCOPY VARCHAR2
3509: ,x_msg_data OUT NOCOPY VARCHAR2
3510: ,x_msg_count OUT NOCOPY NUMBER
3528: BEGIN
3529: -- Standard begin of API savepoint
3530: SAVEPOINT Post_Accrual_To_GL;
3531: -- Standard call to check for call compatibility.
3532: IF NOT FND_API.Compatible_API_Call (
3533: l_api_version,
3534: p_api_version,
3535: l_api_name,
3536: G_PKG_NAME)
3534: p_api_version,
3535: l_api_name,
3536: G_PKG_NAME)
3537: THEN
3538: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3539: END IF;
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;
3549: END IF;
3550: -- Initialize API return status to sucess
3551: x_return_status := FND_API.G_RET_STS_SUCCESS;
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:
3553: IF OZF_DEBUG_LOW_ON THEN
3554: OZF_Utility_PVT.debug_message('--------- Post_Accrual_To_GL ----------');
3555: OZF_Utility_PVT.debug_message('utilization_id : '||p_utilization_id);
3571: l_gl_rec.skip_account_gen_flag := p_skip_acct_gen_flag;
3572:
3573: OZF_GL_INTERFACE_PVT.Create_Gl_Entry (
3574: p_api_version => l_api_version
3575: ,p_init_msg_list => FND_API.g_false
3576: ,p_commit => FND_API.g_false
3577: ,p_validation_level => FND_API.g_valid_level_full
3578: ,x_return_status => x_return_status
3579: ,x_msg_data => x_msg_data
3572:
3573: OZF_GL_INTERFACE_PVT.Create_Gl_Entry (
3574: p_api_version => l_api_version
3575: ,p_init_msg_list => FND_API.g_false
3576: ,p_commit => FND_API.g_false
3577: ,p_validation_level => FND_API.g_valid_level_full
3578: ,x_return_status => x_return_status
3579: ,x_msg_data => x_msg_data
3580: ,x_msg_count => x_msg_count
3573: OZF_GL_INTERFACE_PVT.Create_Gl_Entry (
3574: p_api_version => l_api_version
3575: ,p_init_msg_list => FND_API.g_false
3576: ,p_commit => FND_API.g_false
3577: ,p_validation_level => FND_API.g_valid_level_full
3578: ,x_return_status => x_return_status
3579: ,x_msg_data => x_msg_data
3580: ,x_msg_count => x_msg_count
3581: ,p_gl_rec => l_gl_rec
3581: ,p_gl_rec => l_gl_rec
3582: ,x_event_id => x_event_id
3583: );
3584:
3585: IF x_return_status = FND_API.g_ret_sts_error THEN
3586: RAISE FND_API.G_EXC_ERROR;
3587: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3589: END IF;
3582: ,x_event_id => x_event_id
3583: );
3584:
3585: IF x_return_status = FND_API.g_ret_sts_error THEN
3586: RAISE FND_API.G_EXC_ERROR;
3587: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3589: END IF;
3590:
3583: );
3584:
3585: IF x_return_status = FND_API.g_ret_sts_error THEN
3586: RAISE FND_API.G_EXC_ERROR;
3587: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3589: END IF;
3590:
3591: --Standard check of commit
3584:
3585: IF x_return_status = FND_API.g_ret_sts_error THEN
3586: RAISE FND_API.G_EXC_ERROR;
3587: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3589: END IF;
3590:
3591: --Standard check of commit
3592: IF FND_API.To_Boolean ( p_commit ) THEN
3588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3589: END IF;
3590:
3591: --Standard check of commit
3592: IF FND_API.To_Boolean ( p_commit ) THEN
3593: COMMIT WORK;
3594: END IF;
3595: -- Debug Message
3596: IF OZF_DEBUG_LOW_ON THEN
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: );
3607: EXCEPTION
3604: p_count => x_msg_count,
3605: p_data => x_msg_data
3606: );
3607: EXCEPTION
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 (
3606: );
3607: EXCEPTION
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,
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
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 (
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,
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: );
3626: WHEN OTHERS THEN
3624: p_data => x_msg_data
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;
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: );
3639:
3656: -- NOTES
3657: ---------------------------------------------------------------------
3658: PROCEDURE Post_Claim_To_GL (
3659: p_api_version IN NUMBER
3660: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3661: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3662: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3663:
3664: ,x_return_status OUT NOCOPY VARCHAR2
3657: ---------------------------------------------------------------------
3658: PROCEDURE Post_Claim_To_GL (
3659: p_api_version IN NUMBER
3660: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3661: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3662: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3663:
3664: ,x_return_status OUT NOCOPY VARCHAR2
3665: ,x_msg_data OUT NOCOPY VARCHAR2
3658: PROCEDURE Post_Claim_To_GL (
3659: p_api_version IN NUMBER
3660: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3661: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3662: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3663:
3664: ,x_return_status OUT NOCOPY VARCHAR2
3665: ,x_msg_data OUT NOCOPY VARCHAR2
3666: ,x_msg_count OUT NOCOPY NUMBER
3682: BEGIN
3683: -- Standard begin of API savepoint
3684: SAVEPOINT Post_Claim_To_GL;
3685: -- Standard call to check for call compatibility.
3686: IF NOT FND_API.Compatible_API_Call (
3687: l_api_version,
3688: p_api_version,
3689: l_api_name,
3690: G_PKG_NAME)
3688: p_api_version,
3689: l_api_name,
3690: G_PKG_NAME)
3691: THEN
3692: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3693: END IF;
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;
3703: END IF;
3704: -- Initialize API return status to sucess
3705: x_return_status := FND_API.G_RET_STS_SUCCESS;
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:
3707: IF OZF_DEBUG_LOW_ON THEN
3708: OZF_Utility_PVT.debug_message('--------- Post_Claim_To_GL ----------');
3709: OZF_Utility_PVT.debug_message('claim_id : '||p_claim_id);
3737: END IF;
3738:
3739: OZF_GL_INTERFACE_PVT.Create_Gl_Entry (
3740: p_api_version => l_api_version
3741: ,p_init_msg_list => FND_API.g_false
3742: ,p_commit => FND_API.g_false
3743: ,p_validation_level => FND_API.g_valid_level_full
3744: ,x_return_status => x_return_status
3745: ,x_msg_data => x_msg_data
3738:
3739: OZF_GL_INTERFACE_PVT.Create_Gl_Entry (
3740: p_api_version => l_api_version
3741: ,p_init_msg_list => FND_API.g_false
3742: ,p_commit => FND_API.g_false
3743: ,p_validation_level => FND_API.g_valid_level_full
3744: ,x_return_status => x_return_status
3745: ,x_msg_data => x_msg_data
3746: ,x_msg_count => x_msg_count
3739: OZF_GL_INTERFACE_PVT.Create_Gl_Entry (
3740: p_api_version => l_api_version
3741: ,p_init_msg_list => FND_API.g_false
3742: ,p_commit => FND_API.g_false
3743: ,p_validation_level => FND_API.g_valid_level_full
3744: ,x_return_status => x_return_status
3745: ,x_msg_data => x_msg_data
3746: ,x_msg_count => x_msg_count
3747: ,p_gl_rec => l_gl_rec
3747: ,p_gl_rec => l_gl_rec
3748: ,x_event_id => x_event_id
3749: );
3750:
3751: IF x_return_status = FND_API.g_ret_sts_error THEN
3752: RAISE FND_API.G_EXC_ERROR;
3753: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3754: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3755: END IF;
3748: ,x_event_id => x_event_id
3749: );
3750:
3751: IF x_return_status = FND_API.g_ret_sts_error THEN
3752: RAISE FND_API.G_EXC_ERROR;
3753: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3754: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3755: END IF;
3756:
3749: );
3750:
3751: IF x_return_status = FND_API.g_ret_sts_error THEN
3752: RAISE FND_API.G_EXC_ERROR;
3753: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3754: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3755: END IF;
3756:
3757: --Standard check of commit
3750:
3751: IF x_return_status = FND_API.g_ret_sts_error THEN
3752: RAISE FND_API.G_EXC_ERROR;
3753: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3754: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3755: END IF;
3756:
3757: --Standard check of commit
3758: IF FND_API.To_Boolean ( p_commit ) THEN
3754: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3755: END IF;
3756:
3757: --Standard check of commit
3758: IF FND_API.To_Boolean ( p_commit ) THEN
3759: COMMIT WORK;
3760: END IF;
3761: -- Debug Message
3762: IF OZF_DEBUG_LOW_ON THEN
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: );
3773: EXCEPTION
3770: p_count => x_msg_count,
3771: p_data => x_msg_data
3772: );
3773: EXCEPTION
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 (
3772: );
3773: EXCEPTION
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,
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
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 (
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,
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: );
3792: WHEN OTHERS THEN
3790: p_data => x_msg_data
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;
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: );
3805: