[Home] [Help]
21: G_FUNC_CURRENCY_CODE_REP OKL_TRX_CONTRACTS.CURRENCY_CODE%TYPE;
22: G_ACCRUAL_DATE DATE;
23:
24: TYPE trx_rec_type IS RECORD (
25: old_trx_number okl_trx_contracts_all.trx_number%TYPE := OKL_API.G_MISS_CHAR,
26: new_trx_number okl_trx_contracts_all.trx_number%TYPE := OKL_API.G_MISS_CHAR,
27: ID okl_trx_contracts_all.ID%TYPE := OKL_API.G_MISS_NUM
28: );
29:
22: G_ACCRUAL_DATE DATE;
23:
24: TYPE trx_rec_type IS RECORD (
25: old_trx_number okl_trx_contracts_all.trx_number%TYPE := OKL_API.G_MISS_CHAR,
26: new_trx_number okl_trx_contracts_all.trx_number%TYPE := OKL_API.G_MISS_CHAR,
27: ID okl_trx_contracts_all.ID%TYPE := OKL_API.G_MISS_NUM
28: );
29:
30: TYPE trx_tbl_type IS TABLE OF trx_rec_type INDEX BY BINARY_INTEGER;
23:
24: TYPE trx_rec_type IS RECORD (
25: old_trx_number okl_trx_contracts_all.trx_number%TYPE := OKL_API.G_MISS_CHAR,
26: new_trx_number okl_trx_contracts_all.trx_number%TYPE := OKL_API.G_MISS_CHAR,
27: ID okl_trx_contracts_all.ID%TYPE := OKL_API.G_MISS_NUM
28: );
29:
30: TYPE trx_tbl_type IS TABLE OF trx_rec_type INDEX BY BINARY_INTEGER;
31: G_trx_number_tbl trx_tbl_type;
101: l_sysdate DATE := SYSDATE;
102: l_rent_sty_id NUMBER;
103: l_receivable_balance NUMBER := 0;
104: l_sty_name VARCHAR2(2000) := 'RENT';
105: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
106:
107: -- SGIYER
108: -- Commenting Cursor below as not needed. user Defined Streams Project.
109: --CURSOR get_sty_id_csr IS
136: p_primary_sty_purpose => 'RENT',
137: x_return_status => l_return_status,
138: x_primary_sty_id => l_rent_sty_id);
139:
140: IF l_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
141: RAISE NO_DATA_FOUND;
142: END IF;
143:
144: -- Open the cursor to get the receivable balance
244:
245: ELSIF p_operand_code = 'BUNP' THEN
246: l_return_value := NVL(l_outstanding_invoices,0);
247: ELSE
248: RAISE Okl_Api.G_EXCEPTION_ERROR;
249: END IF;
250:
251: RETURN l_return_value;
252: EXCEPTION
250:
251: RETURN l_return_value;
252: EXCEPTION
253:
254: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
255: -- store SQL error message on message stack for caller
256: Okl_Api.set_message(p_app_name => g_app_name,
257: p_msg_name => 'OKL_AGN_INVALID_OPERAND_CODE');
258:
252: EXCEPTION
253:
254: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
255: -- store SQL error message on message stack for caller
256: Okl_Api.set_message(p_app_name => g_app_name,
257: p_msg_name => 'OKL_AGN_INVALID_OPERAND_CODE');
258:
259: WHEN OTHERS THEN
260: -- store SQL error message on message stack for caller
257: p_msg_name => 'OKL_AGN_INVALID_OPERAND_CODE');
258:
259: WHEN OTHERS THEN
260: -- store SQL error message on message stack for caller
261: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
262: p_msg_name => g_unexpected_error,
263: p_token1 => g_sqlcode_token,
264: p_token1_value => SQLCODE,
265: p_token2 => g_sqlerrm_token,
300: AND chr.scs_code in ('LEASE','LOAN');
301:
302: l_syndicate_flag VARCHAR2(1) := 'N';
303: l_api_version NUMBER;
304: l_return_status VARCHAR2(1) := Okl_API.G_RET_STS_SUCCESS;
305: l_msg_count NUMBER;
306: l_msg_data VARCHAR2(2000);
307:
308: BEGIN
314: x_syndicate_flag := l_syndicate_flag;
315: RETURN l_return_status;
316: EXCEPTION
317: WHEN OTHERS THEN
318: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
319: ,p_msg_name => G_UNEXPECTED_ERROR
320: ,p_token1 => G_SQLCODE_TOKEN
321: ,p_token1_value => SQLCODE
322: ,p_token2 => G_SQLERRM_TOKEN
320: ,p_token1 => G_SQLCODE_TOKEN
321: ,p_token1_value => SQLCODE
322: ,p_token2 => G_SQLERRM_TOKEN
323: ,p_token2_value => SQLERRM);
324: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
325: RETURN(l_return_status);
326:
327: END GET_SYNDICATE_FLAG;
328:
341: WHERE r.dnz_chr_id = p_ctr_id
342: AND r.rule_information_category = 'LAFCTG';
343:
344: l_rule_information1 VARCHAR2(2000);
345: l_return_status VARCHAR2(1) := Okl_API.G_RET_STS_SUCCESS;
346: l_msg_count NUMBER;
347: l_msg_data VARCHAR2(2000);
348:
349: BEGIN
360:
361: RETURN l_return_status;
362: EXCEPTION
363: WHEN OTHERS THEN
364: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
365: ,p_msg_name => G_UNEXPECTED_ERROR
366: ,p_token1 => G_SQLCODE_TOKEN
367: ,p_token1_value => SQLCODE
368: ,p_token2 => G_SQLERRM_TOKEN
366: ,p_token1 => G_SQLCODE_TOKEN
367: ,p_token1_value => SQLCODE
368: ,p_token2 => G_SQLERRM_TOKEN
369: ,p_token2_value => SQLERRM);
370: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
371: RETURN(l_return_status);
372:
373: END GET_FACTORING_FLAG;
374:
476: x_result VARCHAR2(1);
477: -- Bug 5036337.Commenting below as no longer needed.
478: -- l_formula_name CONSTANT VARCHAR2(30) := 'CONTRACT_ACTUAL_INCOME_ACCRUAL';
479: l_api_version CONSTANT NUMBER := 1.0;
480: l_init_msg_list VARCHAR2(20) DEFAULT Okl_Api.G_FALSE;
481: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
482: l_msg_count NUMBER;
483: l_msg_data VARCHAR2(2000);
484: -- l_formula_amount NUMBER := 0;
477: -- Bug 5036337.Commenting below as no longer needed.
478: -- l_formula_name CONSTANT VARCHAR2(30) := 'CONTRACT_ACTUAL_INCOME_ACCRUAL';
479: l_api_version CONSTANT NUMBER := 1.0;
480: l_init_msg_list VARCHAR2(20) DEFAULT Okl_Api.G_FALSE;
481: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
482: l_msg_count NUMBER;
483: l_msg_data VARCHAR2(2000);
484: -- l_formula_amount NUMBER := 0;
485: -- l_ctxt_val_tbl Okl_Account_Dist_Pub.ctxt_val_tbl_type;
537: l_multi_gaap_yn := 'N';
538: end if;
539:
540: IF l_contract_number IS NULL THEN
541: Okl_Api.set_message(p_app_name => g_app_name,
542: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
543: RAISE OKL_API.G_EXCEPTION_ERROR;
544: END IF;
545:
539:
540: IF l_contract_number IS NULL THEN
541: Okl_Api.set_message(p_app_name => g_app_name,
542: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
543: RAISE OKL_API.G_EXCEPTION_ERROR;
544: END IF;
545:
546: FOR j IN get_rev_rec_method_csr(p_khr_id)
547: LOOP
548: l_rev_rec_method := j.revenue_recognition_method;
549: END LOOP;
550:
551: IF l_rev_rec_method IS NULL THEN
552: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'REVENUE_RECOGNITION_METHOD');
553: RAISE OKL_API.G_EXCEPTION_ERROR;
554: END IF;
555:
556: IF l_rev_rec_method = 'STREAMS' THEN
549: END LOOP;
550:
551: IF l_rev_rec_method IS NULL THEN
552: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'REVENUE_RECOGNITION_METHOD');
553: RAISE OKL_API.G_EXCEPTION_ERROR;
554: END IF;
555:
556: IF l_rev_rec_method = 'STREAMS' THEN
557:
593: CLOSE khr_start_date_csr;
594:
595:
596: IF l_khr_start_date IS NULL THEN
597: OKL_API.set_message
598: (G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'START_DATE');
599: END IF;
600:
601: --Bug# 14803503
609: p_khr_id => p_khr_id,
610: x_arrears_pay_dates_option => l_arrears_pay_dates_option,
611: x_return_status => l_return_status);
612:
613: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
614: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
615: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
616: RAISE OKL_API.G_EXCEPTION_ERROR;
617: END IF;
610: x_arrears_pay_dates_option => l_arrears_pay_dates_option,
611: x_return_status => l_return_status);
612:
613: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
614: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
615: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
616: RAISE OKL_API.G_EXCEPTION_ERROR;
617: END IF;
618:
611: x_return_status => l_return_status);
612:
613: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
614: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
615: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
616: RAISE OKL_API.G_EXCEPTION_ERROR;
617: END IF;
618:
619: END IF;
612:
613: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
614: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
615: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
616: RAISE OKL_API.G_EXCEPTION_ERROR;
617: END IF;
618:
619: END IF;
620:
647: x_msg_count => l_msg_count,
648: x_msg_data => l_msg_data);
649:
650: -- store the highest degree of error
651: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
652: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
653: -- need to leave
654: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
655: ELSE
648: x_msg_data => l_msg_data);
649:
650: -- store the highest degree of error
651: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
652: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
653: -- need to leave
654: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
655: ELSE
656: RAISE OKL_API.G_EXCEPTION_ERROR;
650: -- store the highest degree of error
651: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
652: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
653: -- need to leave
654: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
655: ELSE
656: RAISE OKL_API.G_EXCEPTION_ERROR;
657: END IF;
658: END IF;
652: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
653: -- need to leave
654: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
655: ELSE
656: RAISE OKL_API.G_EXCEPTION_ERROR;
657: END IF;
658: END IF;
659:
660: -- If the next due date returned by okl_stream_generator_pvt.get_next_billing_date is null,
772: -- ,p_additional_parameters => l_ctxt_val_tbl
773: -- ,x_value => l_formula_amount);
774: --
775: -- -- store the highest degree of error
776: -- IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
777: -- IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
778: -- -- need to leave
779: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
780: -- ELSE
773: -- ,x_value => l_formula_amount);
774: --
775: -- -- store the highest degree of error
776: -- IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
777: -- IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
778: -- -- need to leave
779: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
780: -- ELSE
781: -- RAISE OKL_API.G_EXCEPTION_ERROR;
775: -- -- store the highest degree of error
776: -- IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
777: -- IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
778: -- -- need to leave
779: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
780: -- ELSE
781: -- RAISE OKL_API.G_EXCEPTION_ERROR;
782: -- END IF;
783: -- END IF;
777: -- IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
778: -- -- need to leave
779: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
780: -- ELSE
781: -- RAISE OKL_API.G_EXCEPTION_ERROR;
782: -- END IF;
783: -- END IF;
784:
785: -- IF l_formula_amount = 0 THEN
789: -- END IF;
790: END IF;
791:
792: ELSE
793: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'REVENUE_RECOGNITION_METHOD');
794: RAISE OKL_API.G_EXCEPTION_ERROR;
795: END IF;
796:
797: RETURN x_result;
790: END IF;
791:
792: ELSE
793: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'REVENUE_RECOGNITION_METHOD');
794: RAISE OKL_API.G_EXCEPTION_ERROR;
795: END IF;
796:
797: RETURN x_result;
798:
796:
797: RETURN x_result;
798:
799: EXCEPTION
800: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
801: RETURN NULL;
802:
803: WHEN OKL_API.G_EXCEPTION_ERROR THEN
804: RETURN NULL;
799: EXCEPTION
800: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
801: RETURN NULL;
802:
803: WHEN OKL_API.G_EXCEPTION_ERROR THEN
804: RETURN NULL;
805:
806: WHEN OTHERS THEN
807: IF check_streams_accrual_csr%ISOPEN THEN
816: CLOSE khr_start_date_csr;
817: END IF;
818:
819: -- store SQL error message on message stack for caller
820: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
821: p_msg_name => g_unexpected_error,
822: p_token1 => g_sqlcode_token,
823: p_token1_value => SQLCODE,
824: p_token2 => g_sqlerrm_token,
885: ||RPAD(FND_MESSAGE.GET_STRING('OKL','OKL_AGN_RPT_CURR_UNDERLINE'),9)
886: ||LPAD(FND_MESSAGE.GET_STRING('OKL','OKL_GLP_RPT_AMT_LINE'),17) ||
887: LPAD('==============',15)); -- MGAAP 7263041
888:
889: x_return_status := OKL_API.G_RET_STS_SUCCESS;
890:
891: EXCEPTION
892: WHEN OTHERS THEN
893: -- store SQL error message on message stack for caller
890:
891: EXCEPTION
892: WHEN OTHERS THEN
893: -- store SQL error message on message stack for caller
894: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
895: p_msg_name => g_unexpected_error,
896: p_token1 => g_sqlcode_token,
897: p_token1_value => SQLCODE,
898: p_token2 => g_sqlerrm_token,
896: p_token1 => g_sqlcode_token,
897: p_token1_value => SQLCODE,
898: p_token2 => g_sqlerrm_token,
899: p_token2_value => SQLERRM);
900: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
901:
902: END REPORT_HEADER;
903:
904: -- Function to validate contract against accrual rule
942: l_rule accrual_rule_csr%ROWTYPE;
943:
944: BEGIN
945: -- initialize return status
946: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
947: -- open cursor for processing
948: OPEN accrual_rule_csr;
949: LOOP
950: FETCH accrual_rule_csr INTO l_rule;
949: LOOP
950: FETCH accrual_rule_csr INTO l_rule;
951: IF accrual_rule_csr%NOTFOUND THEN
952: IF accrual_rule_csr%ROWCOUNT = 0 THEN
953: Okl_Api.set_message(p_app_name => g_app_name,
954: p_msg_name => 'OKL_AGN_RULE_NOT_FOUND');
955: RAISE G_EXCEPTION_HALT_VALIDATION;
956: ELSE
957: EXIT;
975: -- close the cursor if it is open
976: IF accrual_rule_csr%ISOPEN THEN
977: CLOSE accrual_rule_csr;
978: END IF;
979: x_return_status := Okl_Api.G_RET_STS_ERROR;
980:
981: WHEN OTHERS THEN
982: -- store SQL error message on message stack for caller
983: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
979: x_return_status := Okl_Api.G_RET_STS_ERROR;
980:
981: WHEN OTHERS THEN
982: -- store SQL error message on message stack for caller
983: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
984: p_msg_name => g_unexpected_error,
985: p_token1 => g_sqlcode_token,
986: p_token1_value => SQLCODE,
987: p_token2 => g_sqlerrm_token,
986: p_token1_value => SQLCODE,
987: p_token2 => g_sqlerrm_token,
988: p_token2_value => SQLERRM);
989: -- notify caller of an UNEXPECTED error
990: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
991: END VALIDATE_ACCRUAL_RULE;
992:
993: -- Procedure to select streams that need to be accrued
994: PROCEDURE GET_ACCRUAL_STREAMS(x_return_status OUT NOCOPY VARCHAR2
1097: -- CLOSE select_streams_csr;
1098:
1099: -- Bug 4884618. Refering to new profile option.
1100: IF l_sty_select_basis IS NULL THEN
1101: Okl_Api.set_message(p_app_name => g_app_name,
1102: p_msg_name => 'OKL_AGN_KHR_VALD_ERROR');
1103: RAISE OKL_API.G_EXCEPTION_ERROR;
1104: END IF;
1105:
1099: -- Bug 4884618. Refering to new profile option.
1100: IF l_sty_select_basis IS NULL THEN
1101: Okl_Api.set_message(p_app_name => g_app_name,
1102: p_msg_name => 'OKL_AGN_KHR_VALD_ERROR');
1103: RAISE OKL_API.G_EXCEPTION_ERROR;
1104: END IF;
1105:
1106: -- Bug 4884618.
1107: IF l_sty_select_basis = 'KHR_START_DATE' THEN
1115: END IF;
1116:
1117: x_stream_tbl := l_stream_tbl;
1118:
1119: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1120:
1121: EXCEPTION
1122: WHEN OTHERS THEN
1123: -- store SQL error message on message stack for caller
1120:
1121: EXCEPTION
1122: WHEN OTHERS THEN
1123: -- store SQL error message on message stack for caller
1124: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1125: p_msg_name => g_unexpected_error,
1126: p_token1 => g_sqlcode_token,
1127: p_token1_value => SQLCODE,
1128: p_token2 => g_sqlerrm_token,
1128: p_token2 => g_sqlerrm_token,
1129: p_token2_value => SQLERRM);
1130:
1131: -- notify caller of an UNEXPECTED error
1132: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1133: END GET_ACCRUAL_STREAMS;
1134:
1135: PROCEDURE GET_ACCOUNT_GEN_DETAILS(
1136: p_contract_id IN NUMBER,
1180: l_bill_to_site VARCHAR2(2000);
1181:
1182: BEGIN
1183:
1184: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1185:
1186: -- Bug 3596651
1187: -- **************************************************
1188: -- Populate the account generator table with Contract Salesperson
1254: CLOSE chr_bill_to_site_csr;
1255: END IF;
1256:
1257:
1258: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1259: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1260: p_msg_name => g_unexpected_error,
1261: p_token1 => g_sqlcode_token,
1262: p_token1_value => SQLCODE,
1255: END IF;
1256:
1257:
1258: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1259: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1260: p_msg_name => g_unexpected_error,
1261: p_token1 => g_sqlcode_token,
1262: p_token1_value => SQLCODE,
1263: p_token2 => g_sqlerrm_token,
1311: WHERE organization_id = p_org_id;
1312:
1313: BEGIN
1314:
1315: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1316: -- Find set of books id
1317: IF (p_representation_type = 'PRIMARY') THEN -- MGAAP 7263041
1318: l_sob_id := Okl_Accounting_Util.GET_SET_OF_BOOKS_ID(
1319: p_representation_type => 'PRIMARY');
1322: p_representation_type => 'SECONDARY');
1323: END IF;
1324: IF (l_sob_id IS NULL) THEN
1325: -- store SQL error message on message stack for caller
1326: Okl_Api.set_message(p_app_name => g_app_name,
1327: p_msg_name => 'OKL_AGN_SOB_ID_ERROR');
1328: RAISE Okl_Api.G_EXCEPTION_ERROR;
1329: END IF;
1330: x_sob_id := l_sob_id;
1324: IF (l_sob_id IS NULL) THEN
1325: -- store SQL error message on message stack for caller
1326: Okl_Api.set_message(p_app_name => g_app_name,
1327: p_msg_name => 'OKL_AGN_SOB_ID_ERROR');
1328: RAISE Okl_Api.G_EXCEPTION_ERROR;
1329: END IF;
1330: x_sob_id := l_sob_id;
1331:
1332: -- Find set of books name
1340: p_start_date => l_period_start_date,
1341: p_end_date => l_period_end_date,
1342: p_ledger_id => l_sob_id); --MGAAP 7263041
1343: IF l_period_end_date IS NULL THEN
1344: Okl_Api.set_message(p_app_name => g_app_name,
1345: p_msg_name => 'OKL_AGN_PERIOD_END_DATE');
1346: RAISE Okl_Api.G_EXCEPTION_ERROR;
1347: END IF;
1348: x_period_end_date := l_period_end_date;
1342: p_ledger_id => l_sob_id); --MGAAP 7263041
1343: IF l_period_end_date IS NULL THEN
1344: Okl_Api.set_message(p_app_name => g_app_name,
1345: p_msg_name => 'OKL_AGN_PERIOD_END_DATE');
1346: RAISE Okl_Api.G_EXCEPTION_ERROR;
1347: END IF;
1348: x_period_end_date := l_period_end_date;
1349: x_period_name := l_period_name;
1350: x_period_start_date := l_period_start_date;
1354: l_period_status := Okl_Accounting_Util.GET_OKL_PERIOD_STATUS(
1355: p_period_name => l_period_name,
1356: p_ledger_id => l_sob_id); --MGAAP 7263041
1357: IF l_period_status IS NULL THEN
1358: Okl_Api.set_message(p_app_name => g_app_name,
1359: p_msg_name => 'OKL_AGN_PERIOD_STATUS_ERROR',
1360: p_token1 => 'PERIOD_NAME',
1361: p_token1_value => l_period_name);
1362: RAISE Okl_Api.G_EXCEPTION_ERROR;
1358: Okl_Api.set_message(p_app_name => g_app_name,
1359: p_msg_name => 'OKL_AGN_PERIOD_STATUS_ERROR',
1360: p_token1 => 'PERIOD_NAME',
1361: p_token1_value => l_period_name);
1362: RAISE Okl_Api.G_EXCEPTION_ERROR;
1363: END IF;
1364:
1365: IF l_period_status NOT IN ('O','F') THEN
1366: Okl_Api.set_message(p_app_name => g_app_name,
1362: RAISE Okl_Api.G_EXCEPTION_ERROR;
1363: END IF;
1364:
1365: IF l_period_status NOT IN ('O','F') THEN
1366: Okl_Api.set_message(p_app_name => g_app_name,
1367: p_msg_name => 'OKL_AGN_OPEN_PERIOD_ERROR');
1368: RAISE Okl_Api.G_EXCEPTION_ERROR;
1369: END IF;
1370:
1364:
1365: IF l_period_status NOT IN ('O','F') THEN
1366: Okl_Api.set_message(p_app_name => g_app_name,
1367: p_msg_name => 'OKL_AGN_OPEN_PERIOD_ERROR');
1368: RAISE Okl_Api.G_EXCEPTION_ERROR;
1369: END IF;
1370:
1371: -- Find set of books id
1372: /* Call moved at the top
1376: l_sob_id := Okl_Accounting_Util.GET_SET_OF_BOOKS_ID('SECONDARY');
1377: END IF;
1378: IF (l_sob_id IS NULL) THEN
1379: -- store SQL error message on message stack for caller
1380: Okl_Api.set_message(p_app_name => g_app_name,
1381: p_msg_name => 'OKL_AGN_SOB_ID_ERROR');
1382: RAISE Okl_Api.G_EXCEPTION_ERROR;
1383: END IF;
1384: x_sob_id := l_sob_id;
1378: IF (l_sob_id IS NULL) THEN
1379: -- store SQL error message on message stack for caller
1380: Okl_Api.set_message(p_app_name => g_app_name,
1381: p_msg_name => 'OKL_AGN_SOB_ID_ERROR');
1382: RAISE Okl_Api.G_EXCEPTION_ERROR;
1383: END IF;
1384: x_sob_id := l_sob_id;
1385:
1386: -- Find set of books name
1390: -- Find org name for report
1391: l_org_id := mo_global.get_current_org_id();
1392: IF l_org_id IS NULL THEN
1393: -- store SQL error message on message stack for caller
1394: Okl_Api.set_message(p_app_name => g_app_name,
1395: p_msg_name => 'OKL_AGN_ORG_ID_ERROR');
1396: RAISE OKL_API.G_EXCEPTION_ERROR;
1397: END IF;
1398: x_org_id := l_org_id;
1392: IF l_org_id IS NULL THEN
1393: -- store SQL error message on message stack for caller
1394: Okl_Api.set_message(p_app_name => g_app_name,
1395: p_msg_name => 'OKL_AGN_ORG_ID_ERROR');
1396: RAISE OKL_API.G_EXCEPTION_ERROR;
1397: END IF;
1398: x_org_id := l_org_id;
1399:
1400: OPEN org_name_csr(l_org_id);
1402: CLOSE org_name_csr;
1403:
1404: IF l_org_name IS NULL THEN
1405: -- store SQL error message on message stack for caller
1406: okl_api.set_message(p_app_name => G_APP_NAME,
1407: p_msg_name => G_NO_MATCHING_RECORD,
1408: p_token1 => G_COL_NAME_TOKEN,
1409: p_token1_value => 'ORG_NAME');
1410: RAISE OKL_API.G_EXCEPTION_ERROR;
1406: okl_api.set_message(p_app_name => G_APP_NAME,
1407: p_msg_name => G_NO_MATCHING_RECORD,
1408: p_token1 => G_COL_NAME_TOKEN,
1409: p_token1_value => 'ORG_NAME');
1410: RAISE OKL_API.G_EXCEPTION_ERROR;
1411: END IF;
1412: x_org_name := l_org_name;
1413:
1414: -- Open accrual reversal days cursor to find out number of days to reverse in case of non-accrual processing
1417: CLOSE accrual_reversal_days_csr;
1418:
1419: IF l_accrual_reversal_days IS NULL THEN
1420: -- store SQL error message on message stack for caller
1421: Okl_Api.set_message(p_app_name => g_app_name,
1422: p_msg_name => 'OKL_AGN_REVERSAL_DAYS');
1423: RAISE Okl_Api.G_EXCEPTION_ERROR;
1424: END IF;
1425: x_accrual_reversal_days := l_accrual_reversal_days;
1419: IF l_accrual_reversal_days IS NULL THEN
1420: -- store SQL error message on message stack for caller
1421: Okl_Api.set_message(p_app_name => g_app_name,
1422: p_msg_name => 'OKL_AGN_REVERSAL_DAYS');
1423: RAISE Okl_Api.G_EXCEPTION_ERROR;
1424: END IF;
1425: x_accrual_reversal_days := l_accrual_reversal_days;
1426:
1427: -- Find currency code for the set of books id
1428: l_func_currency_code := Okl_Accounting_Util.GET_FUNC_CURR_CODE(
1429: p_ledger_id => l_sob_id); --MGAAP 7263041
1430: IF (l_func_currency_code IS NULL) THEN
1431: -- store SQL error message on message stack for caller
1432: Okl_Api.set_message(p_app_name => g_app_name,
1433: p_msg_name => 'OKL_AGN_CURR_CODE_ERROR');
1434: RAISE Okl_Api.G_EXCEPTION_ERROR;
1435: END IF;
1436: x_func_currency_code := l_func_currency_code;
1430: IF (l_func_currency_code IS NULL) THEN
1431: -- store SQL error message on message stack for caller
1432: Okl_Api.set_message(p_app_name => g_app_name,
1433: p_msg_name => 'OKL_AGN_CURR_CODE_ERROR');
1434: RAISE Okl_Api.G_EXCEPTION_ERROR;
1435: END IF;
1436: x_func_currency_code := l_func_currency_code;
1437:
1438: -- Open cursor to find the transaction type id for accruals
1440: FETCH trx_type_id_csr INTO l_try_id;
1441: CLOSE trx_type_id_csr;
1442: IF l_try_id IS NULL THEN
1443: -- store SQL error message on message stack for caller
1444: Okl_Api.set_message(p_app_name => g_app_name,
1445: p_msg_name => 'OKL_AGN_TRX_TYPE_ERROR',
1446: p_token1 => 'TRANSACTION_TYPE',
1447: p_token1_value => 'Accrual');
1448: RAISE Okl_Api.G_EXCEPTION_ERROR;
1444: Okl_Api.set_message(p_app_name => g_app_name,
1445: p_msg_name => 'OKL_AGN_TRX_TYPE_ERROR',
1446: p_token1 => 'TRANSACTION_TYPE',
1447: p_token1_value => 'Accrual');
1448: RAISE Okl_Api.G_EXCEPTION_ERROR;
1449: END IF;
1450: x_try_id := l_try_id;
1451:
1452: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1448: RAISE Okl_Api.G_EXCEPTION_ERROR;
1449: END IF;
1450: x_try_id := l_try_id;
1451:
1452: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1453:
1454: EXCEPTION
1455: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1456: IF trx_type_id_csr%ISOPEN THEN
1451:
1452: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1453:
1454: EXCEPTION
1455: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1456: IF trx_type_id_csr%ISOPEN THEN
1457: CLOSE trx_type_id_csr;
1458: END IF;
1459: IF accrual_reversal_days_csr%ISOPEN THEN
1462:
1463: IF org_name_csr%ISOPEN THEN
1464: CLOSE org_name_csr;
1465: END IF;
1466: x_return_status := OKL_API.G_RET_STS_ERROR;
1467:
1468: WHEN OTHERS THEN
1469: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1470: IF trx_type_id_csr%ISOPEN THEN
1465: END IF;
1466: x_return_status := OKL_API.G_RET_STS_ERROR;
1467:
1468: WHEN OTHERS THEN
1469: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1470: IF trx_type_id_csr%ISOPEN THEN
1471: CLOSE trx_type_id_csr;
1472: END IF;
1473: IF accrual_reversal_days_csr%ISOPEN THEN
1477: IF org_name_csr%ISOPEN THEN
1478: CLOSE org_name_csr;
1479: END IF;
1480: -- store SQL error message on message stack for caller
1481: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1482: p_msg_name => g_unexpected_error,
1483: p_token1 => g_sqlcode_token,
1484: p_token1_value => SQLCODE,
1485: p_token2 => g_sqlerrm_token,
1658: FETCH primary_rep_trx_id_csr INTO l_primary_rep_trx_id;
1659: CLOSE primary_rep_trx_id_csr;
1660: /*IF l_primary_rep_trx_id IS NULL THEN
1661: -- store SQL error message on message stack for caller
1662: okl_api.set_message(p_app_name => G_APP_NAME,
1663: p_msg_name => G_NO_MATCHING_RECORD,
1664: p_token1 => G_COL_NAME_TOKEN,
1665: p_token1_value => 'PRIMARY_REP_TRX_ID');
1666: RAISE OKL_API.G_EXCEPTION_ERROR;
1662: okl_api.set_message(p_app_name => G_APP_NAME,
1663: p_msg_name => G_NO_MATCHING_RECORD,
1664: p_token1 => G_COL_NAME_TOKEN,
1665: p_token1_value => 'PRIMARY_REP_TRX_ID');
1666: RAISE OKL_API.G_EXCEPTION_ERROR;
1667: END IF;*/
1668: END IF;
1669:
1670: WRITE_TO_LOG('');
1668: END IF;
1669:
1670: WRITE_TO_LOG('');
1671: WRITE_TO_LOG('Inside the call to CREATE_ACCRUALS');
1672: x_return_status := Okl_Api.START_ACTIVITY(l_api_name
1673: ,G_PKG_NAME
1674: ,p_init_msg_list
1675: ,l_api_version
1676: ,p_api_version
1676: ,p_api_version
1677: ,'_PVT'
1678: ,x_return_status);
1679:
1680: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1681: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1682: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
1683: RAISE Okl_Api.G_EXCEPTION_ERROR;
1684: END IF;
1677: ,'_PVT'
1678: ,x_return_status);
1679:
1680: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1681: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1682: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
1683: RAISE Okl_Api.G_EXCEPTION_ERROR;
1684: END IF;
1685:
1678: ,x_return_status);
1679:
1680: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1681: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1682: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
1683: RAISE Okl_Api.G_EXCEPTION_ERROR;
1684: END IF;
1685:
1686: -- set tcn and tcl types.
1679:
1680: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1681: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1682: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
1683: RAISE Okl_Api.G_EXCEPTION_ERROR;
1684: END IF;
1685:
1686: -- set tcn and tcl types.
1687: IF p_accrual_rec.accrual_rule_yn = 'N' THEN
1695: l_legal_entity_id := OKL_LEGAL_ENTITY_UTIL.get_khr_le_id(p_accrual_rec.contract_id) ;
1696: IF l_legal_entity_id IS NOT NULL THEN
1697: l_tcnv_rec.legal_entity_id := l_legal_entity_id;
1698: ELSE
1699: Okl_Api.set_message(p_app_name => g_app_name,
1700: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
1701: p_token1 => 'CONTRACT_NUMBER',
1702: p_token1_value => p_accrual_rec.contract_number);
1703: RAISE OKL_API.G_EXCEPTION_ERROR;
1699: Okl_Api.set_message(p_app_name => g_app_name,
1700: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
1701: p_token1 => 'CONTRACT_NUMBER',
1702: p_token1_value => p_accrual_rec.contract_number);
1703: RAISE OKL_API.G_EXCEPTION_ERROR;
1704: END IF;
1705:
1706: -- Build the transaction record
1707: l_tcnv_rec.khr_id := p_accrual_rec.contract_id;
1847: ,x_tcnv_rec => x_tcnv_rec
1848: ,x_tclv_tbl => x_tclv_tbl );
1849: WRITE_TO_LOG('The status after creating Transaction Header and Transaction Lines is :'||x_return_status);
1850: -- store the highest degree of error
1851: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
1852: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1853: -- need to leave
1854: Okl_Api.set_message(p_app_name => g_app_name,
1855: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
1848: ,x_tclv_tbl => x_tclv_tbl );
1849: WRITE_TO_LOG('The status after creating Transaction Header and Transaction Lines is :'||x_return_status);
1850: -- store the highest degree of error
1851: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
1852: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1853: -- need to leave
1854: Okl_Api.set_message(p_app_name => g_app_name,
1855: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
1856: p_token1 => g_contract_number_token,
1850: -- store the highest degree of error
1851: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
1852: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1853: -- need to leave
1854: Okl_Api.set_message(p_app_name => g_app_name,
1855: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
1856: p_token1 => g_contract_number_token,
1857: p_token1_value => p_accrual_rec.contract_number);
1858: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1854: Okl_Api.set_message(p_app_name => g_app_name,
1855: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
1856: p_token1 => g_contract_number_token,
1857: p_token1_value => p_accrual_rec.contract_number);
1858: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1859: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
1860: Okl_Api.set_message(p_app_name => g_app_name,
1861: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
1862: p_token1 => g_contract_number_token,
1855: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
1856: p_token1 => g_contract_number_token,
1857: p_token1_value => p_accrual_rec.contract_number);
1858: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1859: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
1860: Okl_Api.set_message(p_app_name => g_app_name,
1861: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
1862: p_token1 => g_contract_number_token,
1863: p_token1_value => p_accrual_rec.contract_number);
1856: p_token1 => g_contract_number_token,
1857: p_token1_value => p_accrual_rec.contract_number);
1858: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1859: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
1860: Okl_Api.set_message(p_app_name => g_app_name,
1861: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
1862: p_token1 => g_contract_number_token,
1863: p_token1_value => p_accrual_rec.contract_number);
1864: RAISE OKL_API.G_EXCEPTION_ERROR;
1860: Okl_Api.set_message(p_app_name => g_app_name,
1861: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
1862: p_token1 => g_contract_number_token,
1863: p_token1_value => p_accrual_rec.contract_number);
1864: RAISE OKL_API.G_EXCEPTION_ERROR;
1865: END IF;
1866: END IF;
1867:
1868: --START: change by nikshah, for SLA Uptake Bug 5705866
1874: p_contract_id => p_accrual_rec.contract_id,
1875: x_return_status => x_return_status,
1876: x_acc_gen_primary_key_tbl => l_acc_gen_primary_key_tbl);
1877: --check for error
1878: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
1879: Okl_Api.set_message(p_app_name => g_app_name,
1880: p_msg_name => 'OKL_AGN_ACC_GEN_ERROR',
1881: p_token1 => g_contract_number_token,
1882: p_token1_value => p_accrual_rec.contract_number);
1875: x_return_status => x_return_status,
1876: x_acc_gen_primary_key_tbl => l_acc_gen_primary_key_tbl);
1877: --check for error
1878: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
1879: Okl_Api.set_message(p_app_name => g_app_name,
1880: p_msg_name => 'OKL_AGN_ACC_GEN_ERROR',
1881: p_token1 => g_contract_number_token,
1882: p_token1_value => p_accrual_rec.contract_number);
1883: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1879: Okl_Api.set_message(p_app_name => g_app_name,
1880: p_msg_name => 'OKL_AGN_ACC_GEN_ERROR',
1881: p_token1 => g_contract_number_token,
1882: p_token1_value => p_accrual_rec.contract_number);
1883: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1884: END IF;
1885:
1886: l_count := 1;
1887:
1949: l_count := l_acc_gen_tbl(x).acc_gen_key_tbl.LAST + 1;
1950: l_acc_gen_tbl(x).acc_gen_key_tbl(l_count).source_table:= 'MTL_SYSTEM_ITEMS_VL';
1951: l_acc_gen_tbl(x).acc_gen_key_tbl(l_count).primary_key_column := l_inv_item_id;
1952: ELSE
1953: Okl_Api.set_message(p_app_name => g_app_name,
1954: p_msg_name => 'OKL_AGN_INV_ITEM_ID_ERROR',
1955: p_token1 => g_contract_number_token,
1956: p_token1_value => p_accrual_rec.contract_number,
1957: p_token2 => 'LINE_ID',
1955: p_token1 => g_contract_number_token,
1956: p_token1_value => p_accrual_rec.contract_number,
1957: p_token2 => 'LINE_ID',
1958: p_token2_value => x_tclv_tbl(x).kle_id);
1959: RAISE OKL_API.G_EXCEPTION_ERROR;
1960: END IF;
1961: ELSIF l_lty_code = 'LINK_SERV_ASSET' THEN
1962: --get kle_id of parent line
1963: OPEN get_parent_kle_id_csr(x_tclv_tbl(x).kle_id);
1965: CLOSE get_parent_kle_id_csr;
1966:
1967: IF l_parent_kle_id IS NULL THEN
1968: --raise exception
1969: Okl_Api.set_message(p_app_name => g_app_name,
1970: p_msg_name => 'OKL_AGN_PARENT_KLE_ID_ERROR',
1971: p_token1 => g_contract_number_token,
1972: p_token1_value => p_accrual_rec.contract_number,
1973: p_token2 => 'LINE_ID',
1971: p_token1 => g_contract_number_token,
1972: p_token1_value => p_accrual_rec.contract_number,
1973: p_token2 => 'LINE_ID',
1974: p_token2_value => x_tclv_tbl(x).kle_id);
1975: RAISE OKL_API.G_EXCEPTION_ERROR;
1976: END IF;
1977:
1978: OPEN l_mtl_sys_item_csr(p_accrual_rec.contract_id, l_parent_kle_id);
1979: FETCH l_mtl_sys_item_csr INTO l_inv_item_id;
1986: l_acc_gen_tbl(x).acc_gen_key_tbl(l_count).primary_key_column := l_inv_item_id;
1987: ELSE
1988: -- if it is linked service asset, then corresponding inv item id
1989: -- of associated asset MUST be available. if not, raise exception.
1990: Okl_Api.set_message(p_app_name => g_app_name,
1991: p_msg_name => 'OKL_AGN_INV_ITEM_ID_ERROR',
1992: p_token1 => g_contract_number_token,
1993: p_token1_value => p_accrual_rec.contract_number,
1994: p_token2 => 'LINE_ID',
1992: p_token1 => g_contract_number_token,
1993: p_token1_value => p_accrual_rec.contract_number,
1994: p_token2 => 'LINE_ID',
1995: p_token2_value => l_parent_kle_id);
1996: RAISE OKL_API.G_EXCEPTION_ERROR;
1997:
1998: END IF;
1999: END IF; --IF l_lty_code = 'FREE_FORM1' THEN
2000: END IF; -- IF lty_code IS NOT NULL
2018: l_acc_gen_tbl(x).acc_gen_key_tbl(l_count).source_table:= 'MTL_SYSTEM_ITEMS_VL';
2019: l_acc_gen_tbl(x).acc_gen_key_tbl(l_count).primary_key_column := l_inv_item_id;
2020: ELSE
2021: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_kle_id_status is REPEAT but l_inv_item_id is NULL. So no value to assign.');
2022: RAISE OKL_API.G_EXCEPTION_ERROR;
2023: END IF;
2024: END IF; --IF l_lty_code IN ('FREE_FORM1','LINK_SERV_ASSET') THEN
2025: END IF; -- IF kle_id_status = 'NEW'
2026: END IF; --IF x_tclv_tbl(x).kle_id is NOT NULL THEN
2069: ,x_inv_acct_code => l_inv_acct_code
2070: );
2071:
2072: -- store the highest degree of error
2073: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2074: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2075: -- need to leave
2076: Okl_Api.set_message(p_app_name => g_app_name,
2077: p_msg_name => 'OKL_ACC_SEC_PVT_ERROR');
2070: );
2071:
2072: -- store the highest degree of error
2073: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2074: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2075: -- need to leave
2076: Okl_Api.set_message(p_app_name => g_app_name,
2077: p_msg_name => 'OKL_ACC_SEC_PVT_ERROR');
2078: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2072: -- store the highest degree of error
2073: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2074: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2075: -- need to leave
2076: Okl_Api.set_message(p_app_name => g_app_name,
2077: p_msg_name => 'OKL_ACC_SEC_PVT_ERROR');
2078: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2079: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
2080: Okl_Api.set_message(p_app_name => g_app_name,
2074: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2075: -- need to leave
2076: Okl_Api.set_message(p_app_name => g_app_name,
2077: p_msg_name => 'OKL_ACC_SEC_PVT_ERROR');
2078: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2079: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
2080: Okl_Api.set_message(p_app_name => g_app_name,
2081: p_msg_name => 'OKL_ACC_SEC_PVT_ERROR');
2082: RAISE OKL_API.G_EXCEPTION_ERROR;
2075: -- need to leave
2076: Okl_Api.set_message(p_app_name => g_app_name,
2077: p_msg_name => 'OKL_ACC_SEC_PVT_ERROR');
2078: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2079: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
2080: Okl_Api.set_message(p_app_name => g_app_name,
2081: p_msg_name => 'OKL_ACC_SEC_PVT_ERROR');
2082: RAISE OKL_API.G_EXCEPTION_ERROR;
2083: END IF;
2076: Okl_Api.set_message(p_app_name => g_app_name,
2077: p_msg_name => 'OKL_ACC_SEC_PVT_ERROR');
2078: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2079: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
2080: Okl_Api.set_message(p_app_name => g_app_name,
2081: p_msg_name => 'OKL_ACC_SEC_PVT_ERROR');
2082: RAISE OKL_API.G_EXCEPTION_ERROR;
2083: END IF;
2084: END IF;
2078: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2079: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
2080: Okl_Api.set_message(p_app_name => g_app_name,
2081: p_msg_name => 'OKL_ACC_SEC_PVT_ERROR');
2082: RAISE OKL_API.G_EXCEPTION_ERROR;
2083: END IF;
2084: END IF;
2085:
2086:
2134: x_amount_tbl => l_amount_out_tbl,
2135: p_trx_header_id => l_tcn_id);
2136:
2137: -- store the highest degree of error
2138: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2139: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2140: -- need to leave
2141: Okl_Api.set_message(p_app_name => g_app_name,
2142: p_msg_name => 'OKL_AGN_CRE_DIST_ERROR',
2135: p_trx_header_id => l_tcn_id);
2136:
2137: -- store the highest degree of error
2138: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2139: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2140: -- need to leave
2141: Okl_Api.set_message(p_app_name => g_app_name,
2142: p_msg_name => 'OKL_AGN_CRE_DIST_ERROR',
2143: p_token1 => g_contract_number_token,
2137: -- store the highest degree of error
2138: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2139: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2140: -- need to leave
2141: Okl_Api.set_message(p_app_name => g_app_name,
2142: p_msg_name => 'OKL_AGN_CRE_DIST_ERROR',
2143: p_token1 => g_contract_number_token,
2144: p_token1_value => p_accrual_rec.contract_number);
2145: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2141: Okl_Api.set_message(p_app_name => g_app_name,
2142: p_msg_name => 'OKL_AGN_CRE_DIST_ERROR',
2143: p_token1 => g_contract_number_token,
2144: p_token1_value => p_accrual_rec.contract_number);
2145: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2146: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2147: -- record that there was an error
2148: Okl_Api.set_message(p_app_name => g_app_name,
2149: p_msg_name => 'OKL_AGN_CRE_DIST_ERROR',
2142: p_msg_name => 'OKL_AGN_CRE_DIST_ERROR',
2143: p_token1 => g_contract_number_token,
2144: p_token1_value => p_accrual_rec.contract_number);
2145: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2146: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2147: -- record that there was an error
2148: Okl_Api.set_message(p_app_name => g_app_name,
2149: p_msg_name => 'OKL_AGN_CRE_DIST_ERROR',
2150: p_token1 => g_contract_number_token,
2144: p_token1_value => p_accrual_rec.contract_number);
2145: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2146: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2147: -- record that there was an error
2148: Okl_Api.set_message(p_app_name => g_app_name,
2149: p_msg_name => 'OKL_AGN_CRE_DIST_ERROR',
2150: p_token1 => g_contract_number_token,
2151: p_token1_value => p_accrual_rec.contract_number);
2152: RAISE OKL_API.G_EXCEPTION_ERROR;
2148: Okl_Api.set_message(p_app_name => g_app_name,
2149: p_msg_name => 'OKL_AGN_CRE_DIST_ERROR',
2150: p_token1 => g_contract_number_token,
2151: p_token1_value => p_accrual_rec.contract_number);
2152: RAISE OKL_API.G_EXCEPTION_ERROR;
2153: END IF;
2154: END IF;
2155:
2156: l_dist_info_tbl.DELETE;
2185: -- ,x_msg_data => x_msg_data
2186: -- ,p_selv_tbl => l_selv_tbl
2187: -- ,x_selv_tbl => x_selv_tbl );
2188: -- -- store the highest degree of error
2189: -- IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2190: -- IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2191: -- -- need to leave
2192: -- Okl_Api.set_message(p_app_name => g_app_name,
2193: -- p_msg_name => 'OKL_AGN_STE_UPD_ERROR',
2186: -- ,p_selv_tbl => l_selv_tbl
2187: -- ,x_selv_tbl => x_selv_tbl );
2188: -- -- store the highest degree of error
2189: -- IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2190: -- IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2191: -- -- need to leave
2192: -- Okl_Api.set_message(p_app_name => g_app_name,
2193: -- p_msg_name => 'OKL_AGN_STE_UPD_ERROR',
2194: -- p_token1 => g_contract_number_token,
2188: -- -- store the highest degree of error
2189: -- IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2190: -- IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2191: -- -- need to leave
2192: -- Okl_Api.set_message(p_app_name => g_app_name,
2193: -- p_msg_name => 'OKL_AGN_STE_UPD_ERROR',
2194: -- p_token1 => g_contract_number_token,
2195: -- p_token1_value => p_accrual_rec.contract_number);
2196: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2192: -- Okl_Api.set_message(p_app_name => g_app_name,
2193: -- p_msg_name => 'OKL_AGN_STE_UPD_ERROR',
2194: -- p_token1 => g_contract_number_token,
2195: -- p_token1_value => p_accrual_rec.contract_number);
2196: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2197: -- ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2198: -- Okl_Api.set_message(p_app_name => g_app_name,
2199: -- p_msg_name => 'OKL_AGN_STE_UPD_ERROR',
2200: -- p_token1 => g_contract_number_token,
2193: -- p_msg_name => 'OKL_AGN_STE_UPD_ERROR',
2194: -- p_token1 => g_contract_number_token,
2195: -- p_token1_value => p_accrual_rec.contract_number);
2196: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2197: -- ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2198: -- Okl_Api.set_message(p_app_name => g_app_name,
2199: -- p_msg_name => 'OKL_AGN_STE_UPD_ERROR',
2200: -- p_token1 => g_contract_number_token,
2201: -- p_token1_value => p_accrual_rec.contract_number);
2194: -- p_token1 => g_contract_number_token,
2195: -- p_token1_value => p_accrual_rec.contract_number);
2196: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2197: -- ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2198: -- Okl_Api.set_message(p_app_name => g_app_name,
2199: -- p_msg_name => 'OKL_AGN_STE_UPD_ERROR',
2200: -- p_token1 => g_contract_number_token,
2201: -- p_token1_value => p_accrual_rec.contract_number);
2202: -- RAISE OKL_API.G_EXCEPTION_ERROR;
2198: -- Okl_Api.set_message(p_app_name => g_app_name,
2199: -- p_msg_name => 'OKL_AGN_STE_UPD_ERROR',
2200: -- p_token1 => g_contract_number_token,
2201: -- p_token1_value => p_accrual_rec.contract_number);
2202: -- RAISE OKL_API.G_EXCEPTION_ERROR;
2203: -- END IF;
2204: -- END IF;
2205:
2206: --
2222: -- ,p_init_msg_list => p_init_msg_list
2223: -- ,x_return_status => x_return_status
2224: -- ,x_msg_count => x_msg_count
2225: -- ,x_msg_data => x_msg_data
2226: -- ,p_restricted_update => 'OKL_API.G_TRUE'
2227: -- ,p_chrv_rec => l_chrv_rec
2228: -- ,p_khrv_rec => l_khrv_rec
2229: -- ,x_chrv_rec => x_chrv_rec
2230: -- ,x_khrv_rec => x_khrv_rec );
2228: -- ,p_khrv_rec => l_khrv_rec
2229: -- ,x_chrv_rec => x_chrv_rec
2230: -- ,x_khrv_rec => x_khrv_rec );
2231: -- -- store the highest degree of error
2232: -- IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2233: -- IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2234: -- -- need to leave
2235: -- Okl_Api.set_message(p_app_name => g_app_name,
2236: -- p_msg_name => 'OKL_AGN_KHR_UPD_ERROR',
2229: -- ,x_chrv_rec => x_chrv_rec
2230: -- ,x_khrv_rec => x_khrv_rec );
2231: -- -- store the highest degree of error
2232: -- IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2233: -- IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2234: -- -- need to leave
2235: -- Okl_Api.set_message(p_app_name => g_app_name,
2236: -- p_msg_name => 'OKL_AGN_KHR_UPD_ERROR',
2237: -- p_token1 => g_contract_number_token,
2231: -- -- store the highest degree of error
2232: -- IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2233: -- IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2234: -- -- need to leave
2235: -- Okl_Api.set_message(p_app_name => g_app_name,
2236: -- p_msg_name => 'OKL_AGN_KHR_UPD_ERROR',
2237: -- p_token1 => g_contract_number_token,
2238: -- p_token1_value => p_accrual_rec.contract_number);
2239: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2235: -- Okl_Api.set_message(p_app_name => g_app_name,
2236: -- p_msg_name => 'OKL_AGN_KHR_UPD_ERROR',
2237: -- p_token1 => g_contract_number_token,
2238: -- p_token1_value => p_accrual_rec.contract_number);
2239: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2240: -- ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2241: -- -- record that there was an error
2242: -- Okl_Api.set_message(p_app_name => g_app_name,
2243: -- p_msg_name => 'OKL_AGN_KHR_UPD_ERROR',
2236: -- p_msg_name => 'OKL_AGN_KHR_UPD_ERROR',
2237: -- p_token1 => g_contract_number_token,
2238: -- p_token1_value => p_accrual_rec.contract_number);
2239: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2240: -- ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2241: -- -- record that there was an error
2242: -- Okl_Api.set_message(p_app_name => g_app_name,
2243: -- p_msg_name => 'OKL_AGN_KHR_UPD_ERROR',
2244: -- p_token1 => g_contract_number_token,
2238: -- p_token1_value => p_accrual_rec.contract_number);
2239: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2240: -- ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2241: -- -- record that there was an error
2242: -- Okl_Api.set_message(p_app_name => g_app_name,
2243: -- p_msg_name => 'OKL_AGN_KHR_UPD_ERROR',
2244: -- p_token1 => g_contract_number_token,
2245: -- p_token1_value => p_accrual_rec.contract_number);
2246: -- RAISE OKL_API.G_EXCEPTION_ERROR;
2242: -- Okl_Api.set_message(p_app_name => g_app_name,
2243: -- p_msg_name => 'OKL_AGN_KHR_UPD_ERROR',
2244: -- p_token1 => g_contract_number_token,
2245: -- p_token1_value => p_accrual_rec.contract_number);
2246: -- RAISE OKL_API.G_EXCEPTION_ERROR;
2247: -- END IF;
2248: -- END IF;
2249: -- END IF;
2250:
2247: -- END IF;
2248: -- END IF;
2249: -- END IF;
2250:
2251: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2252: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
2253:
2254: EXCEPTION
2255: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2248: -- END IF;
2249: -- END IF;
2250:
2251: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2252: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
2253:
2254: EXCEPTION
2255: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2256: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
2251: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2252: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
2253:
2254: EXCEPTION
2255: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2256: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
2257: ,g_pkg_name
2258: ,'OKL_API.G_RET_STS_ERROR'
2259: ,x_msg_count
2252: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
2253:
2254: EXCEPTION
2255: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2256: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
2257: ,g_pkg_name
2258: ,'OKL_API.G_RET_STS_ERROR'
2259: ,x_msg_count
2260: ,x_msg_data
2254: EXCEPTION
2255: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2256: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
2257: ,g_pkg_name
2258: ,'OKL_API.G_RET_STS_ERROR'
2259: ,x_msg_count
2260: ,x_msg_data
2261: ,'_PVT');
2262: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2258: ,'OKL_API.G_RET_STS_ERROR'
2259: ,x_msg_count
2260: ,x_msg_data
2261: ,'_PVT');
2262: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2263: -- store SQL error message on message stack for caller
2264: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
2265: p_msg_name => g_unexpected_error,
2266: p_token1 => g_sqlcode_token,
2260: ,x_msg_data
2261: ,'_PVT');
2262: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2263: -- store SQL error message on message stack for caller
2264: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
2265: p_msg_name => g_unexpected_error,
2266: p_token1 => g_sqlcode_token,
2267: p_token1_value => SQLCODE,
2268: p_token2 => g_sqlerrm_token,
2266: p_token1 => g_sqlcode_token,
2267: p_token1_value => SQLCODE,
2268: p_token2 => g_sqlerrm_token,
2269: p_token2_value => SQLERRM);
2270: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
2271: ,g_pkg_name
2272: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
2273: ,x_msg_count
2274: ,x_msg_data
2268: p_token2 => g_sqlerrm_token,
2269: p_token2_value => SQLERRM);
2270: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
2271: ,g_pkg_name
2272: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
2273: ,x_msg_count
2274: ,x_msg_data
2275: ,'_PVT');
2276: WHEN OTHERS THEN
2286: CLOSE get_parent_kle_id_csr;
2287: END IF;
2288:
2289: -- store SQL error message on message stack for caller
2290: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
2291: p_msg_name => g_unexpected_error,
2292: p_token1 => g_sqlcode_token,
2293: p_token1_value => SQLCODE,
2294: p_token2 => g_sqlerrm_token,
2293: p_token1_value => SQLCODE,
2294: p_token2 => g_sqlerrm_token,
2295: p_token2_value => SQLERRM);
2296:
2297: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2298: (l_api_name,
2299: G_PKG_NAME,
2300: 'OTHERS',
2301: x_msg_count,
2319:
2320: --local variables
2321: l_api_name VARCHAR2(20) := 'CREATE_ACCRUALS';
2322: l_api_version CONSTANT NUMBER := 1.0;
2323: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2324: l_period_name VARCHAR2(2000);
2325: l_period_start_date DATE;
2326: l_period_end_date DATE;
2327: l_period_status VARCHAR2(1);
2405:
2406: BEGIN
2407:
2408: -- Set save point
2409: l_return_status := Okl_Api.START_ACTIVITY(l_api_name
2410: ,G_PKG_NAME
2411: ,p_init_msg_list
2412: ,l_api_version
2413: ,p_api_version
2413: ,p_api_version
2414: ,'_PVT'
2415: ,x_return_status);
2416:
2417: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2418: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2419: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
2420: RAISE Okl_Api.G_EXCEPTION_ERROR;
2421: END IF;
2414: ,'_PVT'
2415: ,x_return_status);
2416:
2417: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2418: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2419: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
2420: RAISE Okl_Api.G_EXCEPTION_ERROR;
2421: END IF;
2422:
2415: ,x_return_status);
2416:
2417: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2418: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2419: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
2420: RAISE Okl_Api.G_EXCEPTION_ERROR;
2421: END IF;
2422:
2423: -- validate input parameters
2416:
2417: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2418: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2419: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
2420: RAISE Okl_Api.G_EXCEPTION_ERROR;
2421: END IF;
2422:
2423: -- validate input parameters
2424: IF (p_accrual_rec.contract_id IS NULL) OR (p_accrual_rec.contract_id = OKL_API.G_MISS_NUM) THEN
2420: RAISE Okl_Api.G_EXCEPTION_ERROR;
2421: END IF;
2422:
2423: -- validate input parameters
2424: IF (p_accrual_rec.contract_id IS NULL) OR (p_accrual_rec.contract_id = OKL_API.G_MISS_NUM) THEN
2425: Okl_Api.set_message(p_app_name => g_app_name,
2426: p_msg_name => 'OKL_AGN_ACN_KHR_ID_ERROR');
2427: RAISE Okl_Api.G_EXCEPTION_ERROR;
2428: END IF;
2421: END IF;
2422:
2423: -- validate input parameters
2424: IF (p_accrual_rec.contract_id IS NULL) OR (p_accrual_rec.contract_id = OKL_API.G_MISS_NUM) THEN
2425: Okl_Api.set_message(p_app_name => g_app_name,
2426: p_msg_name => 'OKL_AGN_ACN_KHR_ID_ERROR');
2427: RAISE Okl_Api.G_EXCEPTION_ERROR;
2428: END IF;
2429:
2423: -- validate input parameters
2424: IF (p_accrual_rec.contract_id IS NULL) OR (p_accrual_rec.contract_id = OKL_API.G_MISS_NUM) THEN
2425: Okl_Api.set_message(p_app_name => g_app_name,
2426: p_msg_name => 'OKL_AGN_ACN_KHR_ID_ERROR');
2427: RAISE Okl_Api.G_EXCEPTION_ERROR;
2428: END IF;
2429:
2430: IF (p_accrual_rec.accrual_date IS NULL) OR (p_accrual_rec.accrual_date = Okl_Api.G_MISS_DATE) THEN
2431: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
2426: p_msg_name => 'OKL_AGN_ACN_KHR_ID_ERROR');
2427: RAISE Okl_Api.G_EXCEPTION_ERROR;
2428: END IF;
2429:
2430: IF (p_accrual_rec.accrual_date IS NULL) OR (p_accrual_rec.accrual_date = Okl_Api.G_MISS_DATE) THEN
2431: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
2432: p_msg_name => 'OKL_AGN_DATE_ERROR');
2433: RAISE Okl_Api.G_EXCEPTION_ERROR;
2434: END IF;
2427: RAISE Okl_Api.G_EXCEPTION_ERROR;
2428: END IF;
2429:
2430: IF (p_accrual_rec.accrual_date IS NULL) OR (p_accrual_rec.accrual_date = Okl_Api.G_MISS_DATE) THEN
2431: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
2432: p_msg_name => 'OKL_AGN_DATE_ERROR');
2433: RAISE Okl_Api.G_EXCEPTION_ERROR;
2434: END IF;
2435:
2429:
2430: IF (p_accrual_rec.accrual_date IS NULL) OR (p_accrual_rec.accrual_date = Okl_Api.G_MISS_DATE) THEN
2431: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
2432: p_msg_name => 'OKL_AGN_DATE_ERROR');
2433: RAISE Okl_Api.G_EXCEPTION_ERROR;
2434: END IF;
2435:
2436: IF (p_accrual_rec.source_trx_id IS NULL) OR (p_accrual_rec.source_trx_id = Okl_Api.G_MISS_NUM) THEN
2437: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
2432: p_msg_name => 'OKL_AGN_DATE_ERROR');
2433: RAISE Okl_Api.G_EXCEPTION_ERROR;
2434: END IF;
2435:
2436: IF (p_accrual_rec.source_trx_id IS NULL) OR (p_accrual_rec.source_trx_id = Okl_Api.G_MISS_NUM) THEN
2437: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
2438: p_msg_name => 'OKL_AGN_SRC_TRX_ID_ERROR');
2439: RAISE Okl_Api.G_EXCEPTION_ERROR;
2440: END IF;
2433: RAISE Okl_Api.G_EXCEPTION_ERROR;
2434: END IF;
2435:
2436: IF (p_accrual_rec.source_trx_id IS NULL) OR (p_accrual_rec.source_trx_id = Okl_Api.G_MISS_NUM) THEN
2437: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
2438: p_msg_name => 'OKL_AGN_SRC_TRX_ID_ERROR');
2439: RAISE Okl_Api.G_EXCEPTION_ERROR;
2440: END IF;
2441:
2435:
2436: IF (p_accrual_rec.source_trx_id IS NULL) OR (p_accrual_rec.source_trx_id = Okl_Api.G_MISS_NUM) THEN
2437: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
2438: p_msg_name => 'OKL_AGN_SRC_TRX_ID_ERROR');
2439: RAISE Okl_Api.G_EXCEPTION_ERROR;
2440: END IF;
2441:
2442: IF (p_accrual_rec.source_trx_type IS NULL) OR (p_accrual_rec.source_trx_type = Okl_Api.G_MISS_CHAR) THEN
2443: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
2438: p_msg_name => 'OKL_AGN_SRC_TRX_ID_ERROR');
2439: RAISE Okl_Api.G_EXCEPTION_ERROR;
2440: END IF;
2441:
2442: IF (p_accrual_rec.source_trx_type IS NULL) OR (p_accrual_rec.source_trx_type = Okl_Api.G_MISS_CHAR) THEN
2443: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
2444: p_msg_name => 'OKL_AGN_SRC_TRX_TYPE_ERROR');
2445: RAISE Okl_Api.G_EXCEPTION_ERROR;
2446: END IF;
2439: RAISE Okl_Api.G_EXCEPTION_ERROR;
2440: END IF;
2441:
2442: IF (p_accrual_rec.source_trx_type IS NULL) OR (p_accrual_rec.source_trx_type = Okl_Api.G_MISS_CHAR) THEN
2443: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
2444: p_msg_name => 'OKL_AGN_SRC_TRX_TYPE_ERROR');
2445: RAISE Okl_Api.G_EXCEPTION_ERROR;
2446: END IF;
2447:
2441:
2442: IF (p_accrual_rec.source_trx_type IS NULL) OR (p_accrual_rec.source_trx_type = Okl_Api.G_MISS_CHAR) THEN
2443: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
2444: p_msg_name => 'OKL_AGN_SRC_TRX_TYPE_ERROR');
2445: RAISE Okl_Api.G_EXCEPTION_ERROR;
2446: END IF;
2447:
2448: -- get common info
2449: GET_COMMON_INFO (p_accrual_date => p_accrual_rec.accrual_date,
2459: x_accrual_reversal_days => l_accrual_reversal_days,
2460: x_func_currency_code => l_func_currency_code,
2461: x_return_status => l_return_status
2462: );
2463: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2464: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2465: -- need to leave
2466: Okl_Api.set_message(p_app_name => g_app_name,
2467: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
2460: x_func_currency_code => l_func_currency_code,
2461: x_return_status => l_return_status
2462: );
2463: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2464: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2465: -- need to leave
2466: Okl_Api.set_message(p_app_name => g_app_name,
2467: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
2468: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2462: );
2463: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2464: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2465: -- need to leave
2466: Okl_Api.set_message(p_app_name => g_app_name,
2467: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
2468: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2469: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
2470: Okl_Api.set_message(p_app_name => g_app_name,
2464: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2465: -- need to leave
2466: Okl_Api.set_message(p_app_name => g_app_name,
2467: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
2468: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2469: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
2470: Okl_Api.set_message(p_app_name => g_app_name,
2471: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
2472: RAISE OKL_API.G_EXCEPTION_ERROR;
2465: -- need to leave
2466: Okl_Api.set_message(p_app_name => g_app_name,
2467: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
2468: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2469: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
2470: Okl_Api.set_message(p_app_name => g_app_name,
2471: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
2472: RAISE OKL_API.G_EXCEPTION_ERROR;
2473: END IF;
2466: Okl_Api.set_message(p_app_name => g_app_name,
2467: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
2468: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2469: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
2470: Okl_Api.set_message(p_app_name => g_app_name,
2471: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
2472: RAISE OKL_API.G_EXCEPTION_ERROR;
2473: END IF;
2474: END IF;
2468: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2469: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
2470: Okl_Api.set_message(p_app_name => g_app_name,
2471: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
2472: RAISE OKL_API.G_EXCEPTION_ERROR;
2473: END IF;
2474: END IF;
2475:
2476: IF l_period_status NOT IN ('O','F') THEN
2473: END IF;
2474: END IF;
2475:
2476: IF l_period_status NOT IN ('O','F') THEN
2477: Okl_Api.set_message(p_app_name => g_app_name,
2478: p_msg_name => 'OKL_AGN_OPEN_PERIOD_ERROR');
2479: RAISE Okl_Api.G_EXCEPTION_ERROR;
2480: END IF;
2481:
2475:
2476: IF l_period_status NOT IN ('O','F') THEN
2477: Okl_Api.set_message(p_app_name => g_app_name,
2478: p_msg_name => 'OKL_AGN_OPEN_PERIOD_ERROR');
2479: RAISE Okl_Api.G_EXCEPTION_ERROR;
2480: END IF;
2481:
2482: -- get the contract number
2483: OPEN contract_details_csr(p_accrual_rec.contract_id);
2496: l_reporting_pdt_id; -- MGAAP 7263014
2497: CLOSE contract_details_csr;
2498:
2499: IF l_contract_number IS NULL THEN
2500: Okl_Api.set_message(p_app_name => g_app_name,
2501: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
2502: RAISE OKL_API.G_EXCEPTION_ERROR;
2503: END IF;
2504:
2498:
2499: IF l_contract_number IS NULL THEN
2500: Okl_Api.set_message(p_app_name => g_app_name,
2501: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
2502: RAISE OKL_API.G_EXCEPTION_ERROR;
2503: END IF;
2504:
2505: IF l_product_id IS NULL THEN
2506: -- store SQL error message on message stack for caller
2503: END IF;
2504:
2505: IF l_product_id IS NULL THEN
2506: -- store SQL error message on message stack for caller
2507: okl_api.set_message(p_app_name => G_APP_NAME,
2508: p_msg_name => G_NO_MATCHING_RECORD,
2509: p_token1 => G_COL_NAME_TOKEN,
2510: p_token1_value => 'PDT_ID');
2511: RAISE OKL_API.G_EXCEPTION_ERROR;
2507: okl_api.set_message(p_app_name => G_APP_NAME,
2508: p_msg_name => G_NO_MATCHING_RECORD,
2509: p_token1 => G_COL_NAME_TOKEN,
2510: p_token1_value => 'PDT_ID');
2511: RAISE OKL_API.G_EXCEPTION_ERROR;
2512: END IF;
2513:
2514: IF p_representation_type = 'SECONDARY' THEN -- MGAAP 7263041
2515: IF l_reporting_pdt_id IS NULL THEN
2513:
2514: IF p_representation_type = 'SECONDARY' THEN -- MGAAP 7263041
2515: IF l_reporting_pdt_id IS NULL THEN
2516: -- store SQL error message on message stack for caller
2517: okl_api.set_message(p_app_name => G_APP_NAME,
2518: p_msg_name => G_NO_MATCHING_RECORD,
2519: p_token1 => G_COL_NAME_TOKEN,
2520: p_token1_value => 'REPORTING_PDT_ID');
2521: RAISE OKL_API.G_EXCEPTION_ERROR;
2517: okl_api.set_message(p_app_name => G_APP_NAME,
2518: p_msg_name => G_NO_MATCHING_RECORD,
2519: p_token1 => G_COL_NAME_TOKEN,
2520: p_token1_value => 'REPORTING_PDT_ID');
2521: RAISE OKL_API.G_EXCEPTION_ERROR;
2522: END IF;
2523:
2524: END IF;
2525:
2524: END IF;
2525:
2526: IF l_khr_currency_code IS NULL THEN
2527: -- store SQL error message on message stack for caller
2528: okl_api.set_message(p_app_name => G_APP_NAME,
2529: p_msg_name => G_NO_MATCHING_RECORD,
2530: p_token1 => G_COL_NAME_TOKEN,
2531: p_token1_value => 'CURRENCY_CODE');
2532: RAISE OKL_API.G_EXCEPTION_ERROR;
2528: okl_api.set_message(p_app_name => G_APP_NAME,
2529: p_msg_name => G_NO_MATCHING_RECORD,
2530: p_token1 => G_COL_NAME_TOKEN,
2531: p_token1_value => 'CURRENCY_CODE');
2532: RAISE OKL_API.G_EXCEPTION_ERROR;
2533: END IF;
2534:
2535: IF l_start_date IS NULL THEN
2536: -- store SQL error message on message stack for caller
2533: END IF;
2534:
2535: IF l_start_date IS NULL THEN
2536: -- store SQL error message on message stack for caller
2537: okl_api.set_message(p_app_name => G_APP_NAME,
2538: p_msg_name => G_NO_MATCHING_RECORD,
2539: p_token1 => G_COL_NAME_TOKEN,
2540: p_token1_value => 'START_DATE');
2541: RAISE OKL_API.G_EXCEPTION_ERROR;
2537: okl_api.set_message(p_app_name => G_APP_NAME,
2538: p_msg_name => G_NO_MATCHING_RECORD,
2539: p_token1 => G_COL_NAME_TOKEN,
2540: p_token1_value => 'START_DATE');
2541: RAISE OKL_API.G_EXCEPTION_ERROR;
2542: END IF;
2543:
2544: IF l_sts_code IS NULL THEN
2545: -- store SQL error message on message stack for caller
2542: END IF;
2543:
2544: IF l_sts_code IS NULL THEN
2545: -- store SQL error message on message stack for caller
2546: okl_api.set_message(p_app_name => G_APP_NAME,
2547: p_msg_name => G_NO_MATCHING_RECORD,
2548: p_token1 => G_COL_NAME_TOKEN,
2549: p_token1_value => 'STS_CODE');
2550: RAISE OKL_API.G_EXCEPTION_ERROR;
2546: okl_api.set_message(p_app_name => G_APP_NAME,
2547: p_msg_name => G_NO_MATCHING_RECORD,
2548: p_token1 => G_COL_NAME_TOKEN,
2549: p_token1_value => 'STS_CODE');
2550: RAISE OKL_API.G_EXCEPTION_ERROR;
2551: END IF;
2552:
2553: IF l_sts_code NOT IN ('BOOKED', 'EVERGREEN', 'ACTIVE') THEN
2554: -- store SQL error message on message stack for caller
2551: END IF;
2552:
2553: IF l_sts_code NOT IN ('BOOKED', 'EVERGREEN', 'ACTIVE') THEN
2554: -- store SQL error message on message stack for caller
2555: okl_api.set_message(p_app_name => G_APP_NAME,
2556: p_msg_name => 'OKL_AGN_STS_CODE_ERROR',
2557: p_token1 => g_contract_number_token,
2558: p_token1_value => l_contract_number);
2559: RAISE OKL_API.G_EXCEPTION_ERROR;
2555: okl_api.set_message(p_app_name => G_APP_NAME,
2556: p_msg_name => 'OKL_AGN_STS_CODE_ERROR',
2557: p_token1 => g_contract_number_token,
2558: p_token1_value => l_contract_number);
2559: RAISE OKL_API.G_EXCEPTION_ERROR;
2560: END IF;
2561:
2562: IF l_generate_accrual_yn IS NULL THEN
2563: -- store SQL error message on message stack for caller
2560: END IF;
2561:
2562: IF l_generate_accrual_yn IS NULL THEN
2563: -- store SQL error message on message stack for caller
2564: okl_api.set_message(p_app_name => G_APP_NAME,
2565: p_msg_name => G_NO_MATCHING_RECORD,
2566: p_token1 => G_COL_NAME_TOKEN,
2567: p_token1_value => 'GENERATE_ACCRUAL_YN');
2568: RAISE OKL_API.G_EXCEPTION_ERROR;
2564: okl_api.set_message(p_app_name => G_APP_NAME,
2565: p_msg_name => G_NO_MATCHING_RECORD,
2566: p_token1 => G_COL_NAME_TOKEN,
2567: p_token1_value => 'GENERATE_ACCRUAL_YN');
2568: RAISE OKL_API.G_EXCEPTION_ERROR;
2569: END IF;
2570:
2571: IF l_generate_accrual_override_yn IS NULL THEN
2572: -- store SQL error message on message stack for caller
2569: END IF;
2570:
2571: IF l_generate_accrual_override_yn IS NULL THEN
2572: -- store SQL error message on message stack for caller
2573: okl_api.set_message(p_app_name => G_APP_NAME,
2574: p_msg_name => G_NO_MATCHING_RECORD,
2575: p_token1 => G_COL_NAME_TOKEN,
2576: p_token1_value => 'GENERATE_ACCRUAL_OVERRIDE_YN');
2577: RAISE OKL_API.G_EXCEPTION_ERROR;
2573: okl_api.set_message(p_app_name => G_APP_NAME,
2574: p_msg_name => G_NO_MATCHING_RECORD,
2575: p_token1 => G_COL_NAME_TOKEN,
2576: p_token1_value => 'GENERATE_ACCRUAL_OVERRIDE_YN');
2577: RAISE OKL_API.G_EXCEPTION_ERROR;
2578: END IF;
2579: -- modified by zrehman for Bug#6788005 on 11-Feb-2008 start
2580: IF l_deal_type IS NULL AND l_sts_code in ('BOOKED', 'EVERGREEN') THEN
2581: -- modified by zrehman for Bug#6788005 on 11-Feb-2008 end
2579: -- modified by zrehman for Bug#6788005 on 11-Feb-2008 start
2580: IF l_deal_type IS NULL AND l_sts_code in ('BOOKED', 'EVERGREEN') THEN
2581: -- modified by zrehman for Bug#6788005 on 11-Feb-2008 end
2582: -- store SQL error message on message stack for caller
2583: okl_api.set_message(p_app_name => G_APP_NAME,
2584: p_msg_name => G_NO_MATCHING_RECORD,
2585: p_token1 => G_COL_NAME_TOKEN,
2586: p_token1_value => 'DEAL_TYPE');
2587: RAISE OKL_API.G_EXCEPTION_ERROR;
2583: okl_api.set_message(p_app_name => G_APP_NAME,
2584: p_msg_name => G_NO_MATCHING_RECORD,
2585: p_token1 => G_COL_NAME_TOKEN,
2586: p_token1_value => 'DEAL_TYPE');
2587: RAISE OKL_API.G_EXCEPTION_ERROR;
2588: END IF;
2589:
2590: -- Check contract currency against functional currency
2591: IF l_func_currency_code <> l_khr_currency_code THEN
2590: -- Check contract currency against functional currency
2591: IF l_func_currency_code <> l_khr_currency_code THEN
2592: --validate data
2593: IF l_currency_conversion_type IS NULL THEN
2594: Okl_Api.set_message(p_app_name => g_app_name,
2595: p_msg_name => 'OKL_AGN_CURR_TYPE_ERROR',
2596: p_token1 => g_contract_number_token,
2597: p_token1_value => l_contract_number);
2598: RAISE Okl_Api.G_EXCEPTION_ERROR;
2594: Okl_Api.set_message(p_app_name => g_app_name,
2595: p_msg_name => 'OKL_AGN_CURR_TYPE_ERROR',
2596: p_token1 => g_contract_number_token,
2597: p_token1_value => l_contract_number);
2598: RAISE Okl_Api.G_EXCEPTION_ERROR;
2599: END IF;
2600: IF l_currency_conversion_date IS NULL THEN
2601: Okl_Api.set_message(p_app_name => g_app_name,
2602: p_msg_name => 'OKL_AGN_CURR_DATE_ERROR',
2597: p_token1_value => l_contract_number);
2598: RAISE Okl_Api.G_EXCEPTION_ERROR;
2599: END IF;
2600: IF l_currency_conversion_date IS NULL THEN
2601: Okl_Api.set_message(p_app_name => g_app_name,
2602: p_msg_name => 'OKL_AGN_CURR_DATE_ERROR',
2603: p_token1 => g_contract_number_token,
2604: p_token1_value => l_contract_number);
2605: RAISE Okl_Api.G_EXCEPTION_ERROR;
2601: Okl_Api.set_message(p_app_name => g_app_name,
2602: p_msg_name => 'OKL_AGN_CURR_DATE_ERROR',
2603: p_token1 => g_contract_number_token,
2604: p_token1_value => l_contract_number);
2605: RAISE Okl_Api.G_EXCEPTION_ERROR;
2606: END IF;
2607: IF l_currency_conversion_type = 'User' THEN
2608: IF l_currency_conversion_rate IS NULL THEN
2609: Okl_Api.set_message(p_app_name => g_app_name,
2605: RAISE Okl_Api.G_EXCEPTION_ERROR;
2606: END IF;
2607: IF l_currency_conversion_type = 'User' THEN
2608: IF l_currency_conversion_rate IS NULL THEN
2609: Okl_Api.set_message(p_app_name => g_app_name,
2610: p_msg_name => 'OKL_AGN_CURR_USER_RATE_ERROR',
2611: p_token1 => g_contract_number_token,
2612: p_token1_value => l_contract_number);
2613: RAISE Okl_Api.G_EXCEPTION_ERROR;
2609: Okl_Api.set_message(p_app_name => g_app_name,
2610: p_msg_name => 'OKL_AGN_CURR_USER_RATE_ERROR',
2611: p_token1 => g_contract_number_token,
2612: p_token1_value => l_contract_number);
2613: RAISE Okl_Api.G_EXCEPTION_ERROR;
2614: END IF;
2615: ELSE
2616: l_currency_conversion_rate := OKL_ACCOUNTING_UTIL.get_curr_con_rate
2617: (p_from_curr_code => l_khr_currency_code,
2620: p_con_type => l_currency_conversion_type);
2621:
2622:
2623: IF l_currency_conversion_rate IS NULL THEN
2624: Okl_Api.set_message(p_app_name => g_app_name,
2625: p_msg_name => 'OKL_AGN_CURR_RATE_ERROR',
2626: p_token1 => 'CONVERSION_TYPE',
2627: p_token1_value => l_currency_conversion_type,
2628: p_token2 => 'FROM_CURRENCY',
2629: p_token2_value => l_khr_currency_code,
2630: p_token3 => 'TO_CURRENCY',
2631: p_token3_value => l_func_currency_code
2632: );
2633: RAISE Okl_Api.G_EXCEPTION_ERROR;
2634: END IF;
2635: l_currency_conversion_date := p_accrual_rec.accrual_date; --Bug #5410825
2636: END IF;
2637: END IF;
2647: l_accrual_rule_value := x.accrual_yn;
2648: END LOOP;
2649:
2650: IF l_accrual_rule_value IS NULL THEN
2651: Okl_Api.set_message(p_app_name => g_app_name,
2652: p_msg_name => 'OKL_AGN_ACCRUAL_VAL_ERROR',
2653: p_token1 => 'STREAM_TYPE',
2654: p_token1_value => p_stream_tbl(i).stream_type_name);
2655: RAISE OKL_API.G_EXCEPTION_ERROR;
2651: Okl_Api.set_message(p_app_name => g_app_name,
2652: p_msg_name => 'OKL_AGN_ACCRUAL_VAL_ERROR',
2653: p_token1 => 'STREAM_TYPE',
2654: p_token1_value => p_stream_tbl(i).stream_type_name);
2655: RAISE OKL_API.G_EXCEPTION_ERROR;
2656: END IF;
2657:
2658: IF l_accrual_rule_value = 'ACRL_WITH_RULE' THEN
2659: l_accrual_strm_tbl(l_counter1).stream_type_id := p_stream_tbl(i).stream_type_id;
2667: l_non_accrual_strm_tbl(l_counter2).kle_id := p_stream_tbl(i).kle_id;
2668: l_total2 := l_total2 + p_stream_tbl(i).stream_amount;
2669: l_counter2 := l_counter2 + 1;
2670: ELSE
2671: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'ACCRUAL_YN');
2672: RAISE OKL_API.G_EXCEPTION_ERROR;
2673: END IF;
2674:
2675: END LOOP;
2668: l_total2 := l_total2 + p_stream_tbl(i).stream_amount;
2669: l_counter2 := l_counter2 + 1;
2670: ELSE
2671: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'ACCRUAL_YN');
2672: RAISE OKL_API.G_EXCEPTION_ERROR;
2673: END IF;
2674:
2675: END LOOP;
2676:
2680: VALIDATE_ACCRUAL_RULE(x_return_status => l_return_status
2681: ,x_result => l_rule_result
2682: ,p_ctr_id => p_accrual_rec.contract_id);
2683: -- store the highest degree of error
2684: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2685: Okl_Api.set_message(p_app_name => g_app_name,
2686: p_msg_name => 'OKL_AGN_RULE_VALD_ERROR',
2687: p_token1 => g_contract_number_token,
2688: p_token1_value => l_contract_number);
2681: ,x_result => l_rule_result
2682: ,p_ctr_id => p_accrual_rec.contract_id);
2683: -- store the highest degree of error
2684: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2685: Okl_Api.set_message(p_app_name => g_app_name,
2686: p_msg_name => 'OKL_AGN_RULE_VALD_ERROR',
2687: p_token1 => g_contract_number_token,
2688: p_token1_value => l_contract_number);
2689: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2685: Okl_Api.set_message(p_app_name => g_app_name,
2686: p_msg_name => 'OKL_AGN_RULE_VALD_ERROR',
2687: p_token1 => g_contract_number_token,
2688: p_token1_value => l_contract_number);
2689: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2690: END IF;
2691:
2692: -- Build the accrual record
2693: l_accrual_rec.contract_id := p_accrual_rec.contract_id;
2752: l_accrual_rec.memo_yn := 'Y';
2753: l_accrual_rec.accrual_activity := 'NON-ACCRUAL';
2754: ELSE
2755: -- invalid value
2756: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'l_rule_result');
2757: RAISE OKL_API.G_EXCEPTION_ERROR;
2758: END IF;
2759: ELSIF l_generate_accrual_override_yn = 'Y' THEN
2760: -- create memo entires
2753: l_accrual_rec.accrual_activity := 'NON-ACCRUAL';
2754: ELSE
2755: -- invalid value
2756: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'l_rule_result');
2757: RAISE OKL_API.G_EXCEPTION_ERROR;
2758: END IF;
2759: ELSIF l_generate_accrual_override_yn = 'Y' THEN
2760: -- create memo entires
2761: l_accrual_rec.rule_result := l_rule_result;
2763: l_accrual_rec.memo_yn := 'Y';
2764: l_accrual_rec.accrual_activity := 'NON-ACCRUAL';
2765: ELSE
2766: -- invalid value
2767: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'l_generate_accrual_override_yn');
2768: RAISE OKL_API.G_EXCEPTION_ERROR;
2769: END IF;
2770:
2771: -- Call CREATE_ACCRUAL procedure to create accrual transactions and entries
2764: l_accrual_rec.accrual_activity := 'NON-ACCRUAL';
2765: ELSE
2766: -- invalid value
2767: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'l_generate_accrual_override_yn');
2768: RAISE OKL_API.G_EXCEPTION_ERROR;
2769: END IF;
2770:
2771: -- Call CREATE_ACCRUAL procedure to create accrual transactions and entries
2772: CREATE_ACCRUALS (
2780: p_accrual_rec => l_accrual_rec,
2781: p_stream_tbl => l_accrual_strm_tbl,
2782: p_representation_type => p_representation_type);
2783:
2784: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2785: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2786: -- need to leave
2787: Okl_Api.set_message(p_app_name => g_app_name,
2788: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
2781: p_stream_tbl => l_accrual_strm_tbl,
2782: p_representation_type => p_representation_type);
2783:
2784: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2785: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2786: -- need to leave
2787: Okl_Api.set_message(p_app_name => g_app_name,
2788: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
2789: p_token1 => g_contract_number_token,
2783:
2784: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2785: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2786: -- need to leave
2787: Okl_Api.set_message(p_app_name => g_app_name,
2788: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
2789: p_token1 => g_contract_number_token,
2790: p_token1_value => l_contract_number);
2791: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2787: Okl_Api.set_message(p_app_name => g_app_name,
2788: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
2789: p_token1 => g_contract_number_token,
2790: p_token1_value => l_contract_number);
2791: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2792: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
2793: Okl_Api.set_message(p_app_name => g_app_name,
2794: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
2795: p_token1 => g_contract_number_token,
2788: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
2789: p_token1 => g_contract_number_token,
2790: p_token1_value => l_contract_number);
2791: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2792: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
2793: Okl_Api.set_message(p_app_name => g_app_name,
2794: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
2795: p_token1 => g_contract_number_token,
2796: p_token1_value => l_contract_number);
2789: p_token1 => g_contract_number_token,
2790: p_token1_value => l_contract_number);
2791: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2792: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
2793: Okl_Api.set_message(p_app_name => g_app_name,
2794: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
2795: p_token1 => g_contract_number_token,
2796: p_token1_value => l_contract_number);
2797: RAISE OKL_API.G_EXCEPTION_ERROR;
2793: Okl_Api.set_message(p_app_name => g_app_name,
2794: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
2795: p_token1 => g_contract_number_token,
2796: p_token1_value => l_contract_number);
2797: RAISE OKL_API.G_EXCEPTION_ERROR;
2798: END IF;
2799: END IF;
2800:
2801: x_trx_tbl('ACRL_WITH_RULE') := l_tcnv_rec.trx_number; -- bug 9191475
2858: p_accrual_rec => l_accrual_rec,
2859: p_stream_tbl => l_non_accrual_strm_tbl,
2860: p_representation_type => p_representation_type);
2861:
2862: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2863: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2864: -- need to leave
2865: Okl_Api.set_message(p_app_name => g_app_name,
2866: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
2859: p_stream_tbl => l_non_accrual_strm_tbl,
2860: p_representation_type => p_representation_type);
2861:
2862: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2863: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2864: -- need to leave
2865: Okl_Api.set_message(p_app_name => g_app_name,
2866: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
2867: p_token1 => g_contract_number_token,
2861:
2862: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2863: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2864: -- need to leave
2865: Okl_Api.set_message(p_app_name => g_app_name,
2866: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
2867: p_token1 => g_contract_number_token,
2868: p_token1_value => l_contract_number);
2869: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2865: Okl_Api.set_message(p_app_name => g_app_name,
2866: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
2867: p_token1 => g_contract_number_token,
2868: p_token1_value => l_contract_number);
2869: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2870: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
2871: Okl_Api.set_message(p_app_name => g_app_name,
2872: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
2873: p_token1 => g_contract_number_token,
2866: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
2867: p_token1 => g_contract_number_token,
2868: p_token1_value => l_contract_number);
2869: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2870: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
2871: Okl_Api.set_message(p_app_name => g_app_name,
2872: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
2873: p_token1 => g_contract_number_token,
2874: p_token1_value => l_contract_number);
2867: p_token1 => g_contract_number_token,
2868: p_token1_value => l_contract_number);
2869: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2870: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
2871: Okl_Api.set_message(p_app_name => g_app_name,
2872: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
2873: p_token1 => g_contract_number_token,
2874: p_token1_value => l_contract_number);
2875: RAISE OKL_API.G_EXCEPTION_ERROR;
2871: Okl_Api.set_message(p_app_name => g_app_name,
2872: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
2873: p_token1 => g_contract_number_token,
2874: p_token1_value => l_contract_number);
2875: RAISE OKL_API.G_EXCEPTION_ERROR;
2876: END IF;
2877: END IF;
2878:
2879: x_trx_tbl('ACRL_WITHOUT_RULE') := l_tcnv_rec.trx_number; -- bug 9191475
2879: x_trx_tbl('ACRL_WITHOUT_RULE') := l_tcnv_rec.trx_number; -- bug 9191475
2880:
2881: END IF;
2882: ELSE
2883: Okl_Api.set_message(p_app_name => g_app_name,
2884: p_msg_name => 'OKL_AGN_STRM_TBL_ERROR');
2885: RAISE OKL_API.G_EXCEPTION_ERROR;
2886: END IF; -- IF l_stream_tbl.COUNT >0
2887:
2881: END IF;
2882: ELSE
2883: Okl_Api.set_message(p_app_name => g_app_name,
2884: p_msg_name => 'OKL_AGN_STRM_TBL_ERROR');
2885: RAISE OKL_API.G_EXCEPTION_ERROR;
2886: END IF; -- IF l_stream_tbl.COUNT >0
2887:
2888: --x_trx_number := l_tcnv_rec.trx_number; -- bug 9191475
2889:
2886: END IF; -- IF l_stream_tbl.COUNT >0
2887:
2888: --x_trx_number := l_tcnv_rec.trx_number; -- bug 9191475
2889:
2890: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2891: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
2892:
2893: EXCEPTION
2894: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2887:
2888: --x_trx_number := l_tcnv_rec.trx_number; -- bug 9191475
2889:
2890: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2891: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
2892:
2893: EXCEPTION
2894: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2895: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
2890: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2891: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
2892:
2893: EXCEPTION
2894: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2895: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
2896: ,g_pkg_name
2897: ,'OKL_API.G_RET_STS_ERROR'
2898: ,x_msg_count
2891: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
2892:
2893: EXCEPTION
2894: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2895: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
2896: ,g_pkg_name
2897: ,'OKL_API.G_RET_STS_ERROR'
2898: ,x_msg_count
2899: ,x_msg_data
2893: EXCEPTION
2894: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2895: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
2896: ,g_pkg_name
2897: ,'OKL_API.G_RET_STS_ERROR'
2898: ,x_msg_count
2899: ,x_msg_data
2900: ,'_PVT');
2901:
2898: ,x_msg_count
2899: ,x_msg_data
2900: ,'_PVT');
2901:
2902: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2903: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
2904: ,g_pkg_name
2905: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
2906: ,x_msg_count
2899: ,x_msg_data
2900: ,'_PVT');
2901:
2902: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2903: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
2904: ,g_pkg_name
2905: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
2906: ,x_msg_count
2907: ,x_msg_data
2901:
2902: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2903: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
2904: ,g_pkg_name
2905: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
2906: ,x_msg_count
2907: ,x_msg_data
2908: ,'_PVT');
2909:
2912: IF contract_details_csr%ISOPEN THEN
2913: CLOSE contract_details_csr;
2914: END IF;
2915:
2916: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2917: (l_api_name,
2918: G_PKG_NAME,
2919: 'OTHERS',
2920: x_msg_count,
2943:
2944: --local variables
2945: l_api_name VARCHAR2(20) := 'ACCELERATE_ACCRUALS';
2946: l_api_version CONSTANT NUMBER := 1.0;
2947: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2948: l_try_name CONSTANT VARCHAR2(7) := 'Accrual';
2949: l_period_name VARCHAR2(2000);
2950: l_period_start_date DATE;
2951: l_period_end_date DATE;
3018: -- AND to_currency = p_to_currency
3019: -- AND status_code = 'C';
3020:
3021: BEGIN
3022: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3023:
3024: -- Set save point
3025: l_return_status := Okl_Api.START_ACTIVITY(l_api_name
3026: ,G_PKG_NAME
3021: BEGIN
3022: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3023:
3024: -- Set save point
3025: l_return_status := Okl_Api.START_ACTIVITY(l_api_name
3026: ,G_PKG_NAME
3027: ,p_init_msg_list
3028: ,l_api_version
3029: ,p_api_version
3029: ,p_api_version
3030: ,'_PVT'
3031: ,x_return_status);
3032:
3033: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3034: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3035: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
3036: RAISE Okl_Api.G_EXCEPTION_ERROR;
3037: END IF;
3030: ,'_PVT'
3031: ,x_return_status);
3032:
3033: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3034: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3035: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
3036: RAISE Okl_Api.G_EXCEPTION_ERROR;
3037: END IF;
3038:
3031: ,x_return_status);
3032:
3033: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3034: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3035: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
3036: RAISE Okl_Api.G_EXCEPTION_ERROR;
3037: END IF;
3038:
3039: -- validate input parameters
3032:
3033: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3034: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3035: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
3036: RAISE Okl_Api.G_EXCEPTION_ERROR;
3037: END IF;
3038:
3039: -- validate input parameters
3040: IF (p_acceleration_rec.khr_id IS NULL) OR (p_acceleration_rec.khr_id = OKL_API.G_MISS_NUM) THEN
3036: RAISE Okl_Api.G_EXCEPTION_ERROR;
3037: END IF;
3038:
3039: -- validate input parameters
3040: IF (p_acceleration_rec.khr_id IS NULL) OR (p_acceleration_rec.khr_id = OKL_API.G_MISS_NUM) THEN
3041: Okl_Api.set_message(p_app_name => g_app_name,
3042: p_msg_name => 'OKL_AGN_ACN_KHR_ID_ERROR');
3043: RAISE Okl_Api.G_EXCEPTION_ERROR;
3044: END IF;
3037: END IF;
3038:
3039: -- validate input parameters
3040: IF (p_acceleration_rec.khr_id IS NULL) OR (p_acceleration_rec.khr_id = OKL_API.G_MISS_NUM) THEN
3041: Okl_Api.set_message(p_app_name => g_app_name,
3042: p_msg_name => 'OKL_AGN_ACN_KHR_ID_ERROR');
3043: RAISE Okl_Api.G_EXCEPTION_ERROR;
3044: END IF;
3045:
3039: -- validate input parameters
3040: IF (p_acceleration_rec.khr_id IS NULL) OR (p_acceleration_rec.khr_id = OKL_API.G_MISS_NUM) THEN
3041: Okl_Api.set_message(p_app_name => g_app_name,
3042: p_msg_name => 'OKL_AGN_ACN_KHR_ID_ERROR');
3043: RAISE Okl_Api.G_EXCEPTION_ERROR;
3044: END IF;
3045:
3046: IF (p_acceleration_rec.acceleration_date IS NULL) OR (p_acceleration_rec.acceleration_date = OKL_API.G_MISS_DATE) THEN
3047: Okl_Api.set_message(p_app_name => g_app_name,
3042: p_msg_name => 'OKL_AGN_ACN_KHR_ID_ERROR');
3043: RAISE Okl_Api.G_EXCEPTION_ERROR;
3044: END IF;
3045:
3046: IF (p_acceleration_rec.acceleration_date IS NULL) OR (p_acceleration_rec.acceleration_date = OKL_API.G_MISS_DATE) THEN
3047: Okl_Api.set_message(p_app_name => g_app_name,
3048: p_msg_name => 'OKL_AGN_ACN_DATE_ERROR');
3049: RAISE Okl_Api.G_EXCEPTION_ERROR;
3050: END IF;
3043: RAISE Okl_Api.G_EXCEPTION_ERROR;
3044: END IF;
3045:
3046: IF (p_acceleration_rec.acceleration_date IS NULL) OR (p_acceleration_rec.acceleration_date = OKL_API.G_MISS_DATE) THEN
3047: Okl_Api.set_message(p_app_name => g_app_name,
3048: p_msg_name => 'OKL_AGN_ACN_DATE_ERROR');
3049: RAISE Okl_Api.G_EXCEPTION_ERROR;
3050: END IF;
3051:
3045:
3046: IF (p_acceleration_rec.acceleration_date IS NULL) OR (p_acceleration_rec.acceleration_date = OKL_API.G_MISS_DATE) THEN
3047: Okl_Api.set_message(p_app_name => g_app_name,
3048: p_msg_name => 'OKL_AGN_ACN_DATE_ERROR');
3049: RAISE Okl_Api.G_EXCEPTION_ERROR;
3050: END IF;
3051:
3052: -- Changes for Bug 4040248
3053: -- remove validation and run accruals for specified stream type if provided and
3051:
3052: -- Changes for Bug 4040248
3053: -- remove validation and run accruals for specified stream type if provided and
3054: -- for all stream types marked for accrual if not provided.
3055: -- IF (p_acceleration_rec.sty_id IS NULL) OR (p_acceleration_rec.sty_id = OKL_API.G_MISS_NUM) THEN
3056: -- Okl_Api.set_message(p_app_name => g_app_name,
3057: -- p_msg_name => 'OKL_AGN_ACN_STY_ERROR');
3058: -- RAISE Okl_Api.G_EXCEPTION_ERROR;
3059: -- END IF;
3052: -- Changes for Bug 4040248
3053: -- remove validation and run accruals for specified stream type if provided and
3054: -- for all stream types marked for accrual if not provided.
3055: -- IF (p_acceleration_rec.sty_id IS NULL) OR (p_acceleration_rec.sty_id = OKL_API.G_MISS_NUM) THEN
3056: -- Okl_Api.set_message(p_app_name => g_app_name,
3057: -- p_msg_name => 'OKL_AGN_ACN_STY_ERROR');
3058: -- RAISE Okl_Api.G_EXCEPTION_ERROR;
3059: -- END IF;
3060:
3054: -- for all stream types marked for accrual if not provided.
3055: -- IF (p_acceleration_rec.sty_id IS NULL) OR (p_acceleration_rec.sty_id = OKL_API.G_MISS_NUM) THEN
3056: -- Okl_Api.set_message(p_app_name => g_app_name,
3057: -- p_msg_name => 'OKL_AGN_ACN_STY_ERROR');
3058: -- RAISE Okl_Api.G_EXCEPTION_ERROR;
3059: -- END IF;
3060:
3061: IF (p_acceleration_rec.accrual_rule_yn IS NULL) OR (p_acceleration_rec.accrual_rule_yn = OKL_API.G_MISS_CHAR) THEN
3062: Okl_Api.set_message(p_app_name => g_app_name,
3057: -- p_msg_name => 'OKL_AGN_ACN_STY_ERROR');
3058: -- RAISE Okl_Api.G_EXCEPTION_ERROR;
3059: -- END IF;
3060:
3061: IF (p_acceleration_rec.accrual_rule_yn IS NULL) OR (p_acceleration_rec.accrual_rule_yn = OKL_API.G_MISS_CHAR) THEN
3062: Okl_Api.set_message(p_app_name => g_app_name,
3063: p_msg_name => 'OKL_AGN_ACN_RULE_ERROR');
3064: RAISE Okl_Api.G_EXCEPTION_ERROR;
3065: END IF;
3058: -- RAISE Okl_Api.G_EXCEPTION_ERROR;
3059: -- END IF;
3060:
3061: IF (p_acceleration_rec.accrual_rule_yn IS NULL) OR (p_acceleration_rec.accrual_rule_yn = OKL_API.G_MISS_CHAR) THEN
3062: Okl_Api.set_message(p_app_name => g_app_name,
3063: p_msg_name => 'OKL_AGN_ACN_RULE_ERROR');
3064: RAISE Okl_Api.G_EXCEPTION_ERROR;
3065: END IF;
3066:
3060:
3061: IF (p_acceleration_rec.accrual_rule_yn IS NULL) OR (p_acceleration_rec.accrual_rule_yn = OKL_API.G_MISS_CHAR) THEN
3062: Okl_Api.set_message(p_app_name => g_app_name,
3063: p_msg_name => 'OKL_AGN_ACN_RULE_ERROR');
3064: RAISE Okl_Api.G_EXCEPTION_ERROR;
3065: END IF;
3066:
3067: IF (p_acceleration_rec.accelerate_till_date IS NULL) OR (p_acceleration_rec.accelerate_till_date = OKL_API.G_MISS_DATE) THEN
3068: Okl_Api.set_message(p_app_name => g_app_name,
3063: p_msg_name => 'OKL_AGN_ACN_RULE_ERROR');
3064: RAISE Okl_Api.G_EXCEPTION_ERROR;
3065: END IF;
3066:
3067: IF (p_acceleration_rec.accelerate_till_date IS NULL) OR (p_acceleration_rec.accelerate_till_date = OKL_API.G_MISS_DATE) THEN
3068: Okl_Api.set_message(p_app_name => g_app_name,
3069: p_msg_name => 'OKL_AGN_ACN_TILL_DATE_ERROR');
3070: RAISE Okl_Api.G_EXCEPTION_ERROR;
3071: END IF;
3064: RAISE Okl_Api.G_EXCEPTION_ERROR;
3065: END IF;
3066:
3067: IF (p_acceleration_rec.accelerate_till_date IS NULL) OR (p_acceleration_rec.accelerate_till_date = OKL_API.G_MISS_DATE) THEN
3068: Okl_Api.set_message(p_app_name => g_app_name,
3069: p_msg_name => 'OKL_AGN_ACN_TILL_DATE_ERROR');
3070: RAISE Okl_Api.G_EXCEPTION_ERROR;
3071: END IF;
3072:
3066:
3067: IF (p_acceleration_rec.accelerate_till_date IS NULL) OR (p_acceleration_rec.accelerate_till_date = OKL_API.G_MISS_DATE) THEN
3068: Okl_Api.set_message(p_app_name => g_app_name,
3069: p_msg_name => 'OKL_AGN_ACN_TILL_DATE_ERROR');
3070: RAISE Okl_Api.G_EXCEPTION_ERROR;
3071: END IF;
3072:
3073: -- check for kle_id
3074: --akrangan cursor modified for bug 5526955 begin
3267: ,x_msg_count => x_msg_count
3268: ,x_msg_data => x_msg_data
3269: ,p_selv_rec => lp_selv_rec
3270: ,x_selv_rec => lx_selv_rec);
3271: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
3272: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3273: Okl_Api.set_message(p_app_name => g_app_name,
3274: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
3275: p_token1 => g_contract_number_token,
3268: ,x_msg_data => x_msg_data
3269: ,p_selv_rec => lp_selv_rec
3270: ,x_selv_rec => lx_selv_rec);
3271: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
3272: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3273: Okl_Api.set_message(p_app_name => g_app_name,
3274: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
3275: p_token1 => g_contract_number_token,
3276: p_token1_value => l_contract_number);
3269: ,p_selv_rec => lp_selv_rec
3270: ,x_selv_rec => lx_selv_rec);
3271: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
3272: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3273: Okl_Api.set_message(p_app_name => g_app_name,
3274: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
3275: p_token1 => g_contract_number_token,
3276: p_token1_value => l_contract_number);
3277: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3273: Okl_Api.set_message(p_app_name => g_app_name,
3274: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
3275: p_token1 => g_contract_number_token,
3276: p_token1_value => l_contract_number);
3277: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3278: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3279: Okl_Api.set_message(p_app_name => g_app_name,
3280: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
3281: p_token1 => g_contract_number_token,
3274: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
3275: p_token1 => g_contract_number_token,
3276: p_token1_value => l_contract_number);
3277: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3278: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3279: Okl_Api.set_message(p_app_name => g_app_name,
3280: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
3281: p_token1 => g_contract_number_token,
3282: p_token1_value => l_contract_number);
3275: p_token1 => g_contract_number_token,
3276: p_token1_value => l_contract_number);
3277: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3278: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3279: Okl_Api.set_message(p_app_name => g_app_name,
3280: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
3281: p_token1 => g_contract_number_token,
3282: p_token1_value => l_contract_number);
3283: RAISE OKL_API.G_EXCEPTION_ERROR;
3279: Okl_Api.set_message(p_app_name => g_app_name,
3280: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
3281: p_token1 => g_contract_number_token,
3282: p_token1_value => l_contract_number);
3283: RAISE OKL_API.G_EXCEPTION_ERROR;
3284: END IF;
3285: END IF;
3286: -- Ensure that only this new stream element is accelerated
3287: l_stream_tbl.delete;
3300: OPEN trx_type_id_csr;
3301: FETCH trx_type_id_csr INTO l_try_id;
3302: CLOSE trx_type_id_csr;
3303: IF l_try_id IS NULL THEN
3304: Okl_Api.set_message(p_app_name => g_app_name,
3305: p_msg_name => 'OKL_AGN_TRY_ID_ERROR');
3306: RAISE Okl_Api.G_EXCEPTION_ERROR;
3307: END IF;
3308:
3302: CLOSE trx_type_id_csr;
3303: IF l_try_id IS NULL THEN
3304: Okl_Api.set_message(p_app_name => g_app_name,
3305: p_msg_name => 'OKL_AGN_TRY_ID_ERROR');
3306: RAISE Okl_Api.G_EXCEPTION_ERROR;
3307: END IF;
3308:
3309: -- Find set of books id
3310: l_sob_id := Okl_Accounting_Util.GET_SET_OF_BOOKS_ID(
3310: l_sob_id := Okl_Accounting_Util.GET_SET_OF_BOOKS_ID(
3311: p_representation_type => p_representation_type);
3312: IF (l_sob_id IS NULL) THEN
3313: -- store SQL error message on message stack for caller
3314: Okl_Api.set_message(p_app_name => g_app_name,
3315: p_msg_name => 'OKL_AGN_SOB_ID_ERROR');
3316: RAISE Okl_Api.G_EXCEPTION_ERROR;
3317: END IF;
3318:
3312: IF (l_sob_id IS NULL) THEN
3313: -- store SQL error message on message stack for caller
3314: Okl_Api.set_message(p_app_name => g_app_name,
3315: p_msg_name => 'OKL_AGN_SOB_ID_ERROR');
3316: RAISE Okl_Api.G_EXCEPTION_ERROR;
3317: END IF;
3318:
3319: -- Get period end date
3320: --Okl_Accounting_Util.GET_PERIOD_INFO(p_acceleration_rec.acceleration_date,l_period_name,l_period_start_date,l_period_end_date);
3324: p_start_date => l_period_start_date,
3325: p_end_date => l_period_end_date,
3326: p_ledger_id => l_sob_id); --MGAAP 7263041
3327: IF l_period_name IS NULL THEN
3328: Okl_Api.set_message(p_app_name => g_app_name,
3329: p_msg_name => 'OKL_AGN_PERIOD_END_DATE');
3330: RAISE Okl_Api.G_EXCEPTION_ERROR;
3331: END IF;
3332:
3326: p_ledger_id => l_sob_id); --MGAAP 7263041
3327: IF l_period_name IS NULL THEN
3328: Okl_Api.set_message(p_app_name => g_app_name,
3329: p_msg_name => 'OKL_AGN_PERIOD_END_DATE');
3330: RAISE Okl_Api.G_EXCEPTION_ERROR;
3331: END IF;
3332:
3333: -- validate accrual date for open period check
3334: l_period_status := Okl_Accounting_Util.GET_OKL_PERIOD_STATUS(
3334: l_period_status := Okl_Accounting_Util.GET_OKL_PERIOD_STATUS(
3335: p_period_name => l_period_name,
3336: p_ledger_id => l_sob_id); --MGAAP 7263041
3337: IF l_period_status IS NULL THEN
3338: Okl_Api.set_message(p_app_name => g_app_name,
3339: p_msg_name => 'OKL_AGN_PERIOD_STATUS_ERROR',
3340: p_token1 => 'PERIOD_NAME',
3341: p_token1_value => l_period_name);
3342: RAISE Okl_Api.G_EXCEPTION_ERROR;
3338: Okl_Api.set_message(p_app_name => g_app_name,
3339: p_msg_name => 'OKL_AGN_PERIOD_STATUS_ERROR',
3340: p_token1 => 'PERIOD_NAME',
3341: p_token1_value => l_period_name);
3342: RAISE Okl_Api.G_EXCEPTION_ERROR;
3343: END IF;
3344:
3345: IF l_period_status NOT IN ('O','F') THEN
3346: Okl_Api.set_message(p_app_name => g_app_name,
3342: RAISE Okl_Api.G_EXCEPTION_ERROR;
3343: END IF;
3344:
3345: IF l_period_status NOT IN ('O','F') THEN
3346: Okl_Api.set_message(p_app_name => g_app_name,
3347: p_msg_name => 'OKL_AGN_OPEN_PERIOD_ERROR');
3348: RAISE Okl_Api.G_EXCEPTION_ERROR;
3349: END IF;
3350:
3344:
3345: IF l_period_status NOT IN ('O','F') THEN
3346: Okl_Api.set_message(p_app_name => g_app_name,
3347: p_msg_name => 'OKL_AGN_OPEN_PERIOD_ERROR');
3348: RAISE Okl_Api.G_EXCEPTION_ERROR;
3349: END IF;
3350:
3351: -- Find set of books id
3352: /* Moved before call to get period info
3353: l_sob_id := Okl_Accounting_Util.GET_SET_OF_BOOKS_ID(
3354: p_representation_type => p_representation_type);
3355: IF (l_sob_id IS NULL) THEN
3356: -- store SQL error message on message stack for caller
3357: Okl_Api.set_message(p_app_name => g_app_name,
3358: p_msg_name => 'OKL_AGN_SOB_ID_ERROR');
3359: RAISE Okl_Api.G_EXCEPTION_ERROR;
3360: END IF; */
3361:
3355: IF (l_sob_id IS NULL) THEN
3356: -- store SQL error message on message stack for caller
3357: Okl_Api.set_message(p_app_name => g_app_name,
3358: p_msg_name => 'OKL_AGN_SOB_ID_ERROR');
3359: RAISE Okl_Api.G_EXCEPTION_ERROR;
3360: END IF; */
3361:
3362: -- Find currency code for the set of books id
3363: l_func_currency_code := Okl_Accounting_Util.GET_FUNC_CURR_CODE(
3363: l_func_currency_code := Okl_Accounting_Util.GET_FUNC_CURR_CODE(
3364: p_ledger_id => l_sob_id); --MGAAP 7263041
3365: IF (l_func_currency_code IS NULL) THEN
3366: -- store SQL error message on message stack for caller
3367: Okl_Api.set_message(p_app_name => g_app_name,
3368: p_msg_name => 'OKL_AGN_CURR_CODE_ERROR');
3369: RAISE Okl_Api.G_EXCEPTION_ERROR;
3370: END IF;
3371:
3365: IF (l_func_currency_code IS NULL) THEN
3366: -- store SQL error message on message stack for caller
3367: Okl_Api.set_message(p_app_name => g_app_name,
3368: p_msg_name => 'OKL_AGN_CURR_CODE_ERROR');
3369: RAISE Okl_Api.G_EXCEPTION_ERROR;
3370: END IF;
3371:
3372: -- get contract details
3373: FOR x IN contract_details_csr(p_acceleration_rec.khr_id)
3385: -- Check contract currency against functional currency
3386: IF l_func_currency_code <> l_currency_code THEN
3387: --validate data
3388: IF l_currency_conversion_type IS NULL THEN
3389: Okl_Api.set_message(p_app_name => g_app_name,
3390: p_msg_name => 'OKL_AGN_CURR_TYPE_ERROR',
3391: p_token1 => g_contract_number_token,
3392: p_token1_value => l_contract_number);
3393: RAISE Okl_Api.G_EXCEPTION_ERROR;
3389: Okl_Api.set_message(p_app_name => g_app_name,
3390: p_msg_name => 'OKL_AGN_CURR_TYPE_ERROR',
3391: p_token1 => g_contract_number_token,
3392: p_token1_value => l_contract_number);
3393: RAISE Okl_Api.G_EXCEPTION_ERROR;
3394: END IF;
3395:
3396: IF l_currency_conversion_date IS NULL THEN
3397: Okl_Api.set_message(p_app_name => g_app_name,
3393: RAISE Okl_Api.G_EXCEPTION_ERROR;
3394: END IF;
3395:
3396: IF l_currency_conversion_date IS NULL THEN
3397: Okl_Api.set_message(p_app_name => g_app_name,
3398: p_msg_name => 'OKL_AGN_CURR_DATE_ERROR',
3399: p_token1 => g_contract_number_token,
3400: p_token1_value => l_contract_number);
3401: RAISE Okl_Api.G_EXCEPTION_ERROR;
3397: Okl_Api.set_message(p_app_name => g_app_name,
3398: p_msg_name => 'OKL_AGN_CURR_DATE_ERROR',
3399: p_token1 => g_contract_number_token,
3400: p_token1_value => l_contract_number);
3401: RAISE Okl_Api.G_EXCEPTION_ERROR;
3402: END IF;
3403:
3404: IF l_currency_conversion_type = 'User' THEN
3405: IF l_currency_conversion_rate IS NULL THEN
3402: END IF;
3403:
3404: IF l_currency_conversion_type = 'User' THEN
3405: IF l_currency_conversion_rate IS NULL THEN
3406: Okl_Api.set_message(p_app_name => g_app_name,
3407: p_msg_name => 'OKL_AGN_CURR_USER_RATE_ERROR',
3408: p_token1 => g_contract_number_token,
3409: p_token1_value => l_contract_number);
3410: RAISE Okl_Api.G_EXCEPTION_ERROR;
3406: Okl_Api.set_message(p_app_name => g_app_name,
3407: p_msg_name => 'OKL_AGN_CURR_USER_RATE_ERROR',
3408: p_token1 => g_contract_number_token,
3409: p_token1_value => l_contract_number);
3410: RAISE Okl_Api.G_EXCEPTION_ERROR;
3411: END IF;
3412: ELSE
3413: l_currency_conversion_rate := OKL_ACCOUNTING_UTIL.get_curr_con_rate
3414: (p_from_curr_code => l_currency_code,
3415: p_to_curr_code => l_func_currency_code,
3416: p_con_date => p_acceleration_rec.acceleration_date, --Bug #5410825
3417: p_con_type => l_currency_conversion_type);
3418: IF l_currency_conversion_rate IS NULL THEN
3419: Okl_Api.set_message(p_app_name => g_app_name,
3420: p_msg_name => 'OKL_AGN_CURR_RATE_ERROR',
3421: p_token1 => 'CONVERSION_TYPE',
3422: p_token1_value => l_currency_conversion_type,
3423: p_token2 => 'FROM_CURRENCY',
3424: p_token2_value => l_currency_code,
3425: p_token3 => 'TO_CURRENCY',
3426: p_token3_value => l_func_currency_code
3427: );
3428: RAISE Okl_Api.G_EXCEPTION_ERROR;
3429: END IF;
3430: l_currency_conversion_date := p_acceleration_rec.acceleration_date; --Bug #5410825
3431: END IF;
3432: END IF;
3460: VALIDATE_ACCRUAL_RULE(x_return_status => l_return_status
3461: ,x_result => l_rule_result
3462: ,p_ctr_id => p_acceleration_rec.khr_id);
3463: -- store the highest degree of error
3464: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
3465: Okl_Api.set_message(p_app_name => g_app_name,
3466: p_msg_name => 'OKL_AGN_RULE_VALD_ERROR',
3467: p_token1 => g_contract_number_token,
3468: p_token1_value => l_contract_number);
3461: ,x_result => l_rule_result
3462: ,p_ctr_id => p_acceleration_rec.khr_id);
3463: -- store the highest degree of error
3464: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
3465: Okl_Api.set_message(p_app_name => g_app_name,
3466: p_msg_name => 'OKL_AGN_RULE_VALD_ERROR',
3467: p_token1 => g_contract_number_token,
3468: p_token1_value => l_contract_number);
3469: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3465: Okl_Api.set_message(p_app_name => g_app_name,
3466: p_msg_name => 'OKL_AGN_RULE_VALD_ERROR',
3467: p_token1 => g_contract_number_token,
3468: p_token1_value => l_contract_number);
3469: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3470: END IF;
3471:
3472: l_accrual_rec.rule_result := l_rule_result;
3473: l_accrual_rec.override_status := l_override_status;
3506: p_stream_tbl => l_stream_tbl,
3507: p_representation_type => p_representation_type); --MGAAP 7263041
3508:
3509: x_trx_number := l_tcnv_rec.trx_number; --MGAAP 7263041
3510: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
3511: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3512: Okl_Api.set_message(p_app_name => g_app_name,
3513: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
3514: p_token1 => g_contract_number_token,
3507: p_representation_type => p_representation_type); --MGAAP 7263041
3508:
3509: x_trx_number := l_tcnv_rec.trx_number; --MGAAP 7263041
3510: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
3511: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3512: Okl_Api.set_message(p_app_name => g_app_name,
3513: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
3514: p_token1 => g_contract_number_token,
3515: p_token1_value => l_contract_number);
3508:
3509: x_trx_number := l_tcnv_rec.trx_number; --MGAAP 7263041
3510: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
3511: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3512: Okl_Api.set_message(p_app_name => g_app_name,
3513: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
3514: p_token1 => g_contract_number_token,
3515: p_token1_value => l_contract_number);
3516: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3512: Okl_Api.set_message(p_app_name => g_app_name,
3513: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
3514: p_token1 => g_contract_number_token,
3515: p_token1_value => l_contract_number);
3516: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3517: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3518: Okl_Api.set_message(p_app_name => g_app_name,
3519: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
3520: p_token1 => g_contract_number_token,
3513: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
3514: p_token1 => g_contract_number_token,
3515: p_token1_value => l_contract_number);
3516: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3517: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3518: Okl_Api.set_message(p_app_name => g_app_name,
3519: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
3520: p_token1 => g_contract_number_token,
3521: p_token1_value => l_contract_number);
3514: p_token1 => g_contract_number_token,
3515: p_token1_value => l_contract_number);
3516: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3517: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3518: Okl_Api.set_message(p_app_name => g_app_name,
3519: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
3520: p_token1 => g_contract_number_token,
3521: p_token1_value => l_contract_number);
3522: RAISE OKL_API.G_EXCEPTION_ERROR;
3518: Okl_Api.set_message(p_app_name => g_app_name,
3519: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
3520: p_token1 => g_contract_number_token,
3521: p_token1_value => l_contract_number);
3522: RAISE OKL_API.G_EXCEPTION_ERROR;
3523: END IF;
3524: END IF;
3525:
3526: END IF; -- IF l_stream_tbl.COUNT > 0
3524: END IF;
3525:
3526: END IF; -- IF l_stream_tbl.COUNT > 0
3527:
3528: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3529: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
3530:
3531: EXCEPTION
3532: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
3525:
3526: END IF; -- IF l_stream_tbl.COUNT > 0
3527:
3528: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3529: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
3530:
3531: EXCEPTION
3532: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
3533: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
3528: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3529: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
3530:
3531: EXCEPTION
3532: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
3533: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
3534: ,g_pkg_name
3535: ,'OKL_API.G_RET_STS_ERROR'
3536: ,x_msg_count
3529: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
3530:
3531: EXCEPTION
3532: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
3533: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
3534: ,g_pkg_name
3535: ,'OKL_API.G_RET_STS_ERROR'
3536: ,x_msg_count
3537: ,x_msg_data
3531: EXCEPTION
3532: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
3533: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
3534: ,g_pkg_name
3535: ,'OKL_API.G_RET_STS_ERROR'
3536: ,x_msg_count
3537: ,x_msg_data
3538: ,'_PVT');
3539:
3536: ,x_msg_count
3537: ,x_msg_data
3538: ,'_PVT');
3539:
3540: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3541: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
3542: ,g_pkg_name
3543: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
3544: ,x_msg_count
3537: ,x_msg_data
3538: ,'_PVT');
3539:
3540: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3541: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
3542: ,g_pkg_name
3543: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
3544: ,x_msg_count
3545: ,x_msg_data
3539:
3540: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3541: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
3542: ,g_pkg_name
3543: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
3544: ,x_msg_count
3545: ,x_msg_data
3546: ,'_PVT');
3547:
3545: ,x_msg_data
3546: ,'_PVT');
3547:
3548: WHEN OTHERS THEN
3549: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
3550: (l_api_name,
3551: G_PKG_NAME,
3552: 'OTHERS',
3553: x_msg_count,
3643: WRITE_TO_LOG('p_reverse_rec.memo_yn :'||p_reverse_rec.memo_yn);
3644: WRITE_TO_LOG('p_reverse_rec.description :'||p_reverse_rec.description);
3645: WRITE_TO_LOG('p_reverse_rec.accrual_activity :'||p_reverse_rec.accrual_activity);
3646:
3647: x_return_status := Okl_Api.START_ACTIVITY(l_api_name
3648: ,G_PKG_NAME
3649: ,p_init_msg_list
3650: ,l_api_version
3651: ,p_api_version
3651: ,p_api_version
3652: ,'_PVT'
3653: ,x_return_status);
3654:
3655: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3656: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3657: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
3658: RAISE Okl_Api.G_EXCEPTION_ERROR;
3659: END IF;
3652: ,'_PVT'
3653: ,x_return_status);
3654:
3655: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3656: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3657: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
3658: RAISE Okl_Api.G_EXCEPTION_ERROR;
3659: END IF;
3660:
3653: ,x_return_status);
3654:
3655: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3656: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3657: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
3658: RAISE Okl_Api.G_EXCEPTION_ERROR;
3659: END IF;
3660:
3661: -- Reverse transactions and accounting for number of days setup by the user
3654:
3655: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3656: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3657: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
3658: RAISE Okl_Api.G_EXCEPTION_ERROR;
3659: END IF;
3660:
3661: -- Reverse transactions and accounting for number of days setup by the user
3662: -- Open reverse trx cursor to find out transaction id's TO REVERSE IN CASE OF non-accrual
3697: p_acct_date => p_reverse_rec.accrual_date,
3698: p_source_id_tbl => l_source_id_tbl);
3699: WRITE_TO_LOG('Return status after the call to Okl_Reversal_Pub.REVERSE_ENTRIES :'||x_return_status);
3700: -- store the highest degree of error
3701: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
3702: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3703: -- need to leave
3704: Okl_Api.set_message(p_app_name => g_app_name,
3705: p_msg_name => 'OKL_AGN_REV_DIST_ERROR',
3698: p_source_id_tbl => l_source_id_tbl);
3699: WRITE_TO_LOG('Return status after the call to Okl_Reversal_Pub.REVERSE_ENTRIES :'||x_return_status);
3700: -- store the highest degree of error
3701: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
3702: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3703: -- need to leave
3704: Okl_Api.set_message(p_app_name => g_app_name,
3705: p_msg_name => 'OKL_AGN_REV_DIST_ERROR',
3706: p_token1 => g_contract_number_token,
3700: -- store the highest degree of error
3701: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
3702: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3703: -- need to leave
3704: Okl_Api.set_message(p_app_name => g_app_name,
3705: p_msg_name => 'OKL_AGN_REV_DIST_ERROR',
3706: p_token1 => g_contract_number_token,
3707: p_token1_value => p_reverse_rec.contract_number);
3708: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3704: Okl_Api.set_message(p_app_name => g_app_name,
3705: p_msg_name => 'OKL_AGN_REV_DIST_ERROR',
3706: p_token1 => g_contract_number_token,
3707: p_token1_value => p_reverse_rec.contract_number);
3708: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3709: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3710: -- record that there was an error
3711: Okl_Api.set_message(p_app_name => g_app_name,
3712: p_msg_name => 'OKL_AGN_REV_DIST_ERROR',
3705: p_msg_name => 'OKL_AGN_REV_DIST_ERROR',
3706: p_token1 => g_contract_number_token,
3707: p_token1_value => p_reverse_rec.contract_number);
3708: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3709: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3710: -- record that there was an error
3711: Okl_Api.set_message(p_app_name => g_app_name,
3712: p_msg_name => 'OKL_AGN_REV_DIST_ERROR',
3713: p_token1 => g_contract_number_token,
3707: p_token1_value => p_reverse_rec.contract_number);
3708: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3709: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3710: -- record that there was an error
3711: Okl_Api.set_message(p_app_name => g_app_name,
3712: p_msg_name => 'OKL_AGN_REV_DIST_ERROR',
3713: p_token1 => g_contract_number_token,
3714: p_token1_value => p_reverse_rec.contract_number);
3715: RAISE OKL_API.G_EXCEPTION_ERROR;
3711: Okl_Api.set_message(p_app_name => g_app_name,
3712: p_msg_name => 'OKL_AGN_REV_DIST_ERROR',
3713: p_token1 => g_contract_number_token,
3714: p_token1_value => p_reverse_rec.contract_number);
3715: RAISE OKL_API.G_EXCEPTION_ERROR;
3716: END IF;
3717: END IF;
3718:
3719: WRITE_TO_LOG('Prior to the call to Okl_Trx_Contracts_Pub.update_trx_contracts');
3728: x_tcnv_tbl => x_rev_tcnv_tbl);
3729: WRITE_TO_LOG('Return status after the call to Okl_Trx_Contracts_Pub.update_trx_contracts :'||x_return_status);
3730:
3731: -- store the highest degree of error
3732: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
3733: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3734: -- need to leave
3735: Okl_Api.set_message(p_app_name => g_app_name,
3736: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
3729: WRITE_TO_LOG('Return status after the call to Okl_Trx_Contracts_Pub.update_trx_contracts :'||x_return_status);
3730:
3731: -- store the highest degree of error
3732: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
3733: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3734: -- need to leave
3735: Okl_Api.set_message(p_app_name => g_app_name,
3736: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
3737: p_token1 => g_contract_number_token,
3731: -- store the highest degree of error
3732: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
3733: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3734: -- need to leave
3735: Okl_Api.set_message(p_app_name => g_app_name,
3736: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
3737: p_token1 => g_contract_number_token,
3738: p_token1_value => p_reverse_rec.contract_number);
3739: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3735: Okl_Api.set_message(p_app_name => g_app_name,
3736: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
3737: p_token1 => g_contract_number_token,
3738: p_token1_value => p_reverse_rec.contract_number);
3739: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3740: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3741: -- record that there was an error
3742: Okl_Api.set_message(p_app_name => g_app_name,
3743: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
3736: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
3737: p_token1 => g_contract_number_token,
3738: p_token1_value => p_reverse_rec.contract_number);
3739: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3740: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3741: -- record that there was an error
3742: Okl_Api.set_message(p_app_name => g_app_name,
3743: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
3744: p_token1 => g_contract_number_token,
3738: p_token1_value => p_reverse_rec.contract_number);
3739: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3740: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3741: -- record that there was an error
3742: Okl_Api.set_message(p_app_name => g_app_name,
3743: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
3744: p_token1 => g_contract_number_token,
3745: p_token1_value => p_reverse_rec.contract_number);
3746: RAISE OKL_API.G_EXCEPTION_ERROR;
3742: Okl_Api.set_message(p_app_name => g_app_name,
3743: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
3744: p_token1 => g_contract_number_token,
3745: p_token1_value => p_reverse_rec.contract_number);
3746: RAISE OKL_API.G_EXCEPTION_ERROR;
3747: END IF;
3748: END IF;
3749:
3750: -- Create a new trasaction for the reversed transaction to reflect memo entries
3818: p_accrual_rec => l_accrual_rec,
3819: p_stream_tbl => l_stream_tbl,
3820: p_representation_type => p_representation_type); -- MGAAP 7263041
3821: -- store the highest degree of error
3822: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
3823: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3824: -- need to leave
3825: Okl_Api.set_message(p_app_name => g_app_name,
3826: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
3819: p_stream_tbl => l_stream_tbl,
3820: p_representation_type => p_representation_type); -- MGAAP 7263041
3821: -- store the highest degree of error
3822: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
3823: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3824: -- need to leave
3825: Okl_Api.set_message(p_app_name => g_app_name,
3826: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
3827: p_token1 => g_contract_number_token,
3821: -- store the highest degree of error
3822: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
3823: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3824: -- need to leave
3825: Okl_Api.set_message(p_app_name => g_app_name,
3826: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
3827: p_token1 => g_contract_number_token,
3828: p_token1_value => p_reverse_rec.contract_number);
3829: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3825: Okl_Api.set_message(p_app_name => g_app_name,
3826: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
3827: p_token1 => g_contract_number_token,
3828: p_token1_value => p_reverse_rec.contract_number);
3829: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3830: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3831: Okl_Api.set_message(p_app_name => g_app_name,
3832: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
3833: p_token1 => g_contract_number_token,
3826: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
3827: p_token1 => g_contract_number_token,
3828: p_token1_value => p_reverse_rec.contract_number);
3829: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3830: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3831: Okl_Api.set_message(p_app_name => g_app_name,
3832: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
3833: p_token1 => g_contract_number_token,
3834: p_token1_value => p_reverse_rec.contract_number);
3827: p_token1 => g_contract_number_token,
3828: p_token1_value => p_reverse_rec.contract_number);
3829: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3830: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3831: Okl_Api.set_message(p_app_name => g_app_name,
3832: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
3833: p_token1 => g_contract_number_token,
3834: p_token1_value => p_reverse_rec.contract_number);
3835: RAISE OKL_API.G_EXCEPTION_ERROR;
3831: Okl_Api.set_message(p_app_name => g_app_name,
3832: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
3833: p_token1 => g_contract_number_token,
3834: p_token1_value => p_reverse_rec.contract_number);
3835: RAISE OKL_API.G_EXCEPTION_ERROR;
3836: END IF;
3837: END IF;
3838:
3839: -- MGAAP start 7263041
3851:
3852: END LOOP;
3853: END IF; -- for l_tcnv_tbl.count > 0;
3854:
3855: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3856: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
3857:
3858: EXCEPTION
3859:
3852: END LOOP;
3853: END IF; -- for l_tcnv_tbl.count > 0;
3854:
3855: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3856: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
3857:
3858: EXCEPTION
3859:
3860: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
3856: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
3857:
3858: EXCEPTION
3859:
3860: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
3861: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
3862: ,g_pkg_name
3863: ,'OKL_API.G_RET_STS_ERROR'
3864: ,x_msg_count
3857:
3858: EXCEPTION
3859:
3860: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
3861: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
3862: ,g_pkg_name
3863: ,'OKL_API.G_RET_STS_ERROR'
3864: ,x_msg_count
3865: ,x_msg_data
3859:
3860: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
3861: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
3862: ,g_pkg_name
3863: ,'OKL_API.G_RET_STS_ERROR'
3864: ,x_msg_count
3865: ,x_msg_data
3866: ,'_PVT');
3867: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3863: ,'OKL_API.G_RET_STS_ERROR'
3864: ,x_msg_count
3865: ,x_msg_data
3866: ,'_PVT');
3867: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3868: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
3869: ,g_pkg_name
3870: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
3871: ,x_msg_count
3864: ,x_msg_count
3865: ,x_msg_data
3866: ,'_PVT');
3867: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3868: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
3869: ,g_pkg_name
3870: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
3871: ,x_msg_count
3872: ,x_msg_data
3866: ,'_PVT');
3867: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3868: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
3869: ,g_pkg_name
3870: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
3871: ,x_msg_count
3872: ,x_msg_data
3873: ,'_PVT');
3874: WHEN OTHERS THEN
3871: ,x_msg_count
3872: ,x_msg_data
3873: ,'_PVT');
3874: WHEN OTHERS THEN
3875: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
3876: (l_api_name,
3877: G_PKG_NAME,
3878: 'OTHERS',
3879: x_msg_count,
3970: WHERE tcn_id = p_tcn_id;
3971:
3972: BEGIN
3973: -- Set save point
3974: x_return_status := Okl_Api.START_ACTIVITY(l_api_name
3975: ,G_PKG_NAME
3976: ,p_init_msg_list
3977: ,l_api_version
3978: ,p_api_version
3978: ,p_api_version
3979: ,'_PVT'
3980: ,x_return_status);
3981:
3982: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3983: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3984: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
3985: RAISE Okl_Api.G_EXCEPTION_ERROR;
3986: END IF;
3979: ,'_PVT'
3980: ,x_return_status);
3981:
3982: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3983: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3984: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
3985: RAISE Okl_Api.G_EXCEPTION_ERROR;
3986: END IF;
3987:
3980: ,x_return_status);
3981:
3982: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3983: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3984: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
3985: RAISE Okl_Api.G_EXCEPTION_ERROR;
3986: END IF;
3987:
3988: --Validate in parameters
3981:
3982: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3983: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3984: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
3985: RAISE Okl_Api.G_EXCEPTION_ERROR;
3986: END IF;
3987:
3988: --Validate in parameters
3989: IF p_khr_id IS NULL OR p_khr_id = OKL_API.G_MISS_NUM THEN
3985: RAISE Okl_Api.G_EXCEPTION_ERROR;
3986: END IF;
3987:
3988: --Validate in parameters
3989: IF p_khr_id IS NULL OR p_khr_id = OKL_API.G_MISS_NUM THEN
3990: Okl_Api.set_message(p_app_name => g_app_name,
3991: p_msg_name => 'OKL_AGN_KHR_ID_ERROR');
3992: RAISE OKL_API.G_EXCEPTION_ERROR;
3993: END IF;
3986: END IF;
3987:
3988: --Validate in parameters
3989: IF p_khr_id IS NULL OR p_khr_id = OKL_API.G_MISS_NUM THEN
3990: Okl_Api.set_message(p_app_name => g_app_name,
3991: p_msg_name => 'OKL_AGN_KHR_ID_ERROR');
3992: RAISE OKL_API.G_EXCEPTION_ERROR;
3993: END IF;
3994:
3988: --Validate in parameters
3989: IF p_khr_id IS NULL OR p_khr_id = OKL_API.G_MISS_NUM THEN
3990: Okl_Api.set_message(p_app_name => g_app_name,
3991: p_msg_name => 'OKL_AGN_KHR_ID_ERROR');
3992: RAISE OKL_API.G_EXCEPTION_ERROR;
3993: END IF;
3994:
3995: IF p_reversal_date IS NULL OR p_reversal_date = OKL_API.G_MISS_DATE THEN
3996: Okl_Api.set_message(p_app_name => g_app_name,
3991: p_msg_name => 'OKL_AGN_KHR_ID_ERROR');
3992: RAISE OKL_API.G_EXCEPTION_ERROR;
3993: END IF;
3994:
3995: IF p_reversal_date IS NULL OR p_reversal_date = OKL_API.G_MISS_DATE THEN
3996: Okl_Api.set_message(p_app_name => g_app_name,
3997: p_msg_name => 'OKL_AGN_REV_DATE_ERROR');
3998: RAISE OKL_API.G_EXCEPTION_ERROR;
3999: END IF;
3992: RAISE OKL_API.G_EXCEPTION_ERROR;
3993: END IF;
3994:
3995: IF p_reversal_date IS NULL OR p_reversal_date = OKL_API.G_MISS_DATE THEN
3996: Okl_Api.set_message(p_app_name => g_app_name,
3997: p_msg_name => 'OKL_AGN_REV_DATE_ERROR');
3998: RAISE OKL_API.G_EXCEPTION_ERROR;
3999: END IF;
4000:
3994:
3995: IF p_reversal_date IS NULL OR p_reversal_date = OKL_API.G_MISS_DATE THEN
3996: Okl_Api.set_message(p_app_name => g_app_name,
3997: p_msg_name => 'OKL_AGN_REV_DATE_ERROR');
3998: RAISE OKL_API.G_EXCEPTION_ERROR;
3999: END IF;
4000:
4001: IF p_accounting_date IS NULL OR p_accounting_date = OKL_API.G_MISS_DATE THEN
4002: Okl_Api.set_message(p_app_name => g_app_name,
3997: p_msg_name => 'OKL_AGN_REV_DATE_ERROR');
3998: RAISE OKL_API.G_EXCEPTION_ERROR;
3999: END IF;
4000:
4001: IF p_accounting_date IS NULL OR p_accounting_date = OKL_API.G_MISS_DATE THEN
4002: Okl_Api.set_message(p_app_name => g_app_name,
4003: p_msg_name => 'OKL_AGN_ACC_DATE_ERROR');
4004: RAISE OKL_API.G_EXCEPTION_ERROR;
4005: END IF;
3998: RAISE OKL_API.G_EXCEPTION_ERROR;
3999: END IF;
4000:
4001: IF p_accounting_date IS NULL OR p_accounting_date = OKL_API.G_MISS_DATE THEN
4002: Okl_Api.set_message(p_app_name => g_app_name,
4003: p_msg_name => 'OKL_AGN_ACC_DATE_ERROR');
4004: RAISE OKL_API.G_EXCEPTION_ERROR;
4005: END IF;
4006:
4000:
4001: IF p_accounting_date IS NULL OR p_accounting_date = OKL_API.G_MISS_DATE THEN
4002: Okl_Api.set_message(p_app_name => g_app_name,
4003: p_msg_name => 'OKL_AGN_ACC_DATE_ERROR');
4004: RAISE OKL_API.G_EXCEPTION_ERROR;
4005: END IF;
4006:
4007: IF p_reverse_from IS NULL OR p_reverse_from = OKL_API.G_MISS_DATE THEN
4008: Okl_Api.set_message(p_app_name => g_app_name,
4003: p_msg_name => 'OKL_AGN_ACC_DATE_ERROR');
4004: RAISE OKL_API.G_EXCEPTION_ERROR;
4005: END IF;
4006:
4007: IF p_reverse_from IS NULL OR p_reverse_from = OKL_API.G_MISS_DATE THEN
4008: Okl_Api.set_message(p_app_name => g_app_name,
4009: p_msg_name => 'OKL_AGN_FROM_DATE_ERROR');
4010: RAISE OKL_API.G_EXCEPTION_ERROR;
4011: END IF;
4004: RAISE OKL_API.G_EXCEPTION_ERROR;
4005: END IF;
4006:
4007: IF p_reverse_from IS NULL OR p_reverse_from = OKL_API.G_MISS_DATE THEN
4008: Okl_Api.set_message(p_app_name => g_app_name,
4009: p_msg_name => 'OKL_AGN_FROM_DATE_ERROR');
4010: RAISE OKL_API.G_EXCEPTION_ERROR;
4011: END IF;
4012:
4006:
4007: IF p_reverse_from IS NULL OR p_reverse_from = OKL_API.G_MISS_DATE THEN
4008: Okl_Api.set_message(p_app_name => g_app_name,
4009: p_msg_name => 'OKL_AGN_FROM_DATE_ERROR');
4010: RAISE OKL_API.G_EXCEPTION_ERROR;
4011: END IF;
4012:
4013: -- get contract_number
4014: OPEN get_contract_number_csr(p_khr_id);
4015: FETCH get_contract_number_csr INTO l_contract_number;
4016: CLOSE get_contract_number_csr;
4017:
4018: IF l_contract_number IS NULL THEN
4019: Okl_Api.set_message(p_app_name => g_app_name,
4020: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
4021: RAISE OKL_API.G_EXCEPTION_ERROR;
4022: END IF;
4023:
4017:
4018: IF l_contract_number IS NULL THEN
4019: Okl_Api.set_message(p_app_name => g_app_name,
4020: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
4021: RAISE OKL_API.G_EXCEPTION_ERROR;
4022: END IF;
4023:
4024: -- Open reverse trx cursor
4025: FOR l_reverse_trx_csr IN reverse_trx_csr
4053: p_source_table => l_source_table,
4054: p_acct_date => p_accounting_date,
4055: p_source_id_tbl => l_source_id_tbl);
4056: -- store the highest degree of error
4057: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4058: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4059: -- need to leave
4060: Okl_Api.set_message(p_app_name => g_app_name,
4061: p_msg_name => 'OKL_AGN_REV_DIST_ERROR',
4054: p_acct_date => p_accounting_date,
4055: p_source_id_tbl => l_source_id_tbl);
4056: -- store the highest degree of error
4057: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4058: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4059: -- need to leave
4060: Okl_Api.set_message(p_app_name => g_app_name,
4061: p_msg_name => 'OKL_AGN_REV_DIST_ERROR',
4062: p_token1 => g_contract_number_token,
4056: -- store the highest degree of error
4057: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4058: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4059: -- need to leave
4060: Okl_Api.set_message(p_app_name => g_app_name,
4061: p_msg_name => 'OKL_AGN_REV_DIST_ERROR',
4062: p_token1 => g_contract_number_token,
4063: p_token1_value => l_contract_number);
4064: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4060: Okl_Api.set_message(p_app_name => g_app_name,
4061: p_msg_name => 'OKL_AGN_REV_DIST_ERROR',
4062: p_token1 => g_contract_number_token,
4063: p_token1_value => l_contract_number);
4064: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4065: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4066: -- record that there was an error
4067: Okl_Api.set_message(p_app_name => g_app_name,
4068: p_msg_name => 'OKL_AGN_REV_DIST_ERROR',
4061: p_msg_name => 'OKL_AGN_REV_DIST_ERROR',
4062: p_token1 => g_contract_number_token,
4063: p_token1_value => l_contract_number);
4064: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4065: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4066: -- record that there was an error
4067: Okl_Api.set_message(p_app_name => g_app_name,
4068: p_msg_name => 'OKL_AGN_REV_DIST_ERROR',
4069: p_token1 => g_contract_number_token,
4063: p_token1_value => l_contract_number);
4064: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4065: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4066: -- record that there was an error
4067: Okl_Api.set_message(p_app_name => g_app_name,
4068: p_msg_name => 'OKL_AGN_REV_DIST_ERROR',
4069: p_token1 => g_contract_number_token,
4070: p_token1_value => l_contract_number);
4071: RAISE OKL_API.G_EXCEPTION_ERROR;
4067: Okl_Api.set_message(p_app_name => g_app_name,
4068: p_msg_name => 'OKL_AGN_REV_DIST_ERROR',
4069: p_token1 => g_contract_number_token,
4070: p_token1_value => l_contract_number);
4071: RAISE OKL_API.G_EXCEPTION_ERROR;
4072: END IF;
4073: END IF;
4074:
4075: --Call the transaction public api for update
4081: x_msg_data => x_msg_data,
4082: p_tcnv_tbl => l_tcnv_tbl,
4083: x_tcnv_tbl => x_tcnv_tbl);
4084: -- store the highest degree of error
4085: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4086: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4087: -- need to leave
4088: Okl_Api.set_message(p_app_name => g_app_name,
4089: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
4082: p_tcnv_tbl => l_tcnv_tbl,
4083: x_tcnv_tbl => x_tcnv_tbl);
4084: -- store the highest degree of error
4085: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4086: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4087: -- need to leave
4088: Okl_Api.set_message(p_app_name => g_app_name,
4089: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
4090: p_token1 => g_contract_number_token,
4084: -- store the highest degree of error
4085: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4086: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4087: -- need to leave
4088: Okl_Api.set_message(p_app_name => g_app_name,
4089: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
4090: p_token1 => g_contract_number_token,
4091: p_token1_value => l_contract_number);
4092: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4088: Okl_Api.set_message(p_app_name => g_app_name,
4089: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
4090: p_token1 => g_contract_number_token,
4091: p_token1_value => l_contract_number);
4092: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4093: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4094: -- record that there was an error
4095: Okl_Api.set_message(p_app_name => g_app_name,
4096: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
4089: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
4090: p_token1 => g_contract_number_token,
4091: p_token1_value => l_contract_number);
4092: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4093: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4094: -- record that there was an error
4095: Okl_Api.set_message(p_app_name => g_app_name,
4096: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
4097: p_token1 => g_contract_number_token,
4091: p_token1_value => l_contract_number);
4092: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4093: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4094: -- record that there was an error
4095: Okl_Api.set_message(p_app_name => g_app_name,
4096: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
4097: p_token1 => g_contract_number_token,
4098: p_token1_value => l_contract_number);
4099: RAISE OKL_API.G_EXCEPTION_ERROR;
4095: Okl_Api.set_message(p_app_name => g_app_name,
4096: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
4097: p_token1 => g_contract_number_token,
4098: p_token1_value => l_contract_number);
4099: RAISE OKL_API.G_EXCEPTION_ERROR;
4100: END IF;
4101: END IF;
4102:
4103: END IF; -- for l_tcnv_tbl.count > 0;
4113: x_msg_count => x_msg_count,
4114: x_msg_data => x_msg_data,
4115: p_tcnv_tbl => l_tcnv_tbl);
4116:
4117: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4118: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4119: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
4120: RAISE OKL_API.G_EXCEPTION_ERROR;
4121: END IF;
4114: x_msg_data => x_msg_data,
4115: p_tcnv_tbl => l_tcnv_tbl);
4116:
4117: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4118: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4119: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
4120: RAISE OKL_API.G_EXCEPTION_ERROR;
4121: END IF;
4122:
4115: p_tcnv_tbl => l_tcnv_tbl);
4116:
4117: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4118: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4119: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
4120: RAISE OKL_API.G_EXCEPTION_ERROR;
4121: END IF;
4122:
4123: END IF; */
4116:
4117: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4118: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4119: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
4120: RAISE OKL_API.G_EXCEPTION_ERROR;
4121: END IF;
4122:
4123: END IF; */
4124:
4121: END IF;
4122:
4123: END IF; */
4124:
4125: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
4126: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
4127:
4128: EXCEPTION
4129:
4122:
4123: END IF; */
4124:
4125: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
4126: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
4127:
4128: EXCEPTION
4129:
4130: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
4126: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
4127:
4128: EXCEPTION
4129:
4130: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
4131: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
4132: ,g_pkg_name
4133: ,'OKL_API.G_RET_STS_ERROR'
4134: ,x_msg_count
4127:
4128: EXCEPTION
4129:
4130: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
4131: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
4132: ,g_pkg_name
4133: ,'OKL_API.G_RET_STS_ERROR'
4134: ,x_msg_count
4135: ,x_msg_data
4129:
4130: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
4131: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
4132: ,g_pkg_name
4133: ,'OKL_API.G_RET_STS_ERROR'
4134: ,x_msg_count
4135: ,x_msg_data
4136: ,'_PVT');
4137: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
4133: ,'OKL_API.G_RET_STS_ERROR'
4134: ,x_msg_count
4135: ,x_msg_data
4136: ,'_PVT');
4137: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
4138: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
4139: ,g_pkg_name
4140: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
4141: ,x_msg_count
4134: ,x_msg_count
4135: ,x_msg_data
4136: ,'_PVT');
4137: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
4138: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
4139: ,g_pkg_name
4140: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
4141: ,x_msg_count
4142: ,x_msg_data
4136: ,'_PVT');
4137: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
4138: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
4139: ,g_pkg_name
4140: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
4141: ,x_msg_count
4142: ,x_msg_data
4143: ,'_PVT');
4144: WHEN OTHERS THEN
4141: ,x_msg_count
4142: ,x_msg_data
4143: ,'_PVT');
4144: WHEN OTHERS THEN
4145: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
4146: (l_api_name,
4147: G_PKG_NAME,
4148: 'OTHERS',
4149: x_msg_count,
4202: WHERE tcn_id = p_tcn_id;
4203:
4204: BEGIN
4205: -- Set save point
4206: x_return_status := Okl_Api.START_ACTIVITY(l_api_name
4207: ,G_PKG_NAME
4208: ,p_init_msg_list
4209: ,l_api_version
4210: ,p_api_version
4210: ,p_api_version
4211: ,'_PVT'
4212: ,x_return_status);
4213:
4214: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4215: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4216: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
4217: RAISE Okl_Api.G_EXCEPTION_ERROR;
4218: END IF;
4211: ,'_PVT'
4212: ,x_return_status);
4213:
4214: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4215: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4216: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
4217: RAISE Okl_Api.G_EXCEPTION_ERROR;
4218: END IF;
4219:
4212: ,x_return_status);
4213:
4214: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4215: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4216: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
4217: RAISE Okl_Api.G_EXCEPTION_ERROR;
4218: END IF;
4219:
4220: --Validate in parameters
4213:
4214: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4215: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4216: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
4217: RAISE Okl_Api.G_EXCEPTION_ERROR;
4218: END IF;
4219:
4220: --Validate in parameters
4221: IF p_khr_id IS NULL OR p_khr_id = OKL_API.G_MISS_NUM THEN
4217: RAISE Okl_Api.G_EXCEPTION_ERROR;
4218: END IF;
4219:
4220: --Validate in parameters
4221: IF p_khr_id IS NULL OR p_khr_id = OKL_API.G_MISS_NUM THEN
4222: Okl_Api.set_message(p_app_name => g_app_name,
4223: p_msg_name => 'OKL_AGN_KHR_ID_ERROR');
4224: RAISE OKL_API.G_EXCEPTION_ERROR;
4225: END IF;
4218: END IF;
4219:
4220: --Validate in parameters
4221: IF p_khr_id IS NULL OR p_khr_id = OKL_API.G_MISS_NUM THEN
4222: Okl_Api.set_message(p_app_name => g_app_name,
4223: p_msg_name => 'OKL_AGN_KHR_ID_ERROR');
4224: RAISE OKL_API.G_EXCEPTION_ERROR;
4225: END IF;
4226:
4220: --Validate in parameters
4221: IF p_khr_id IS NULL OR p_khr_id = OKL_API.G_MISS_NUM THEN
4222: Okl_Api.set_message(p_app_name => g_app_name,
4223: p_msg_name => 'OKL_AGN_KHR_ID_ERROR');
4224: RAISE OKL_API.G_EXCEPTION_ERROR;
4225: END IF;
4226:
4227: IF p_reverse_date IS NULL OR p_reverse_date = OKL_API.G_MISS_DATE THEN
4228: Okl_Api.set_message(p_app_name => g_app_name,
4223: p_msg_name => 'OKL_AGN_KHR_ID_ERROR');
4224: RAISE OKL_API.G_EXCEPTION_ERROR;
4225: END IF;
4226:
4227: IF p_reverse_date IS NULL OR p_reverse_date = OKL_API.G_MISS_DATE THEN
4228: Okl_Api.set_message(p_app_name => g_app_name,
4229: p_msg_name => 'OKL_AGN_ACC_DATE_ERROR');
4230: RAISE OKL_API.G_EXCEPTION_ERROR;
4231: END IF;
4224: RAISE OKL_API.G_EXCEPTION_ERROR;
4225: END IF;
4226:
4227: IF p_reverse_date IS NULL OR p_reverse_date = OKL_API.G_MISS_DATE THEN
4228: Okl_Api.set_message(p_app_name => g_app_name,
4229: p_msg_name => 'OKL_AGN_ACC_DATE_ERROR');
4230: RAISE OKL_API.G_EXCEPTION_ERROR;
4231: END IF;
4232:
4226:
4227: IF p_reverse_date IS NULL OR p_reverse_date = OKL_API.G_MISS_DATE THEN
4228: Okl_Api.set_message(p_app_name => g_app_name,
4229: p_msg_name => 'OKL_AGN_ACC_DATE_ERROR');
4230: RAISE OKL_API.G_EXCEPTION_ERROR;
4231: END IF;
4232:
4233: -- get contract_number
4234: OPEN get_contract_number_csr(p_khr_id);
4269: p_source_table => l_source_table,
4270: p_acct_date => p_reverse_date,
4271: p_source_id_tbl => l_source_id_tbl);
4272: -- store the highest degree of error
4273: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4274: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4275: -- need to leave
4276: Okl_Api.set_message(p_app_name => g_app_name,
4277: p_msg_name => 'OKL_AGN_REV_DIST_ERROR',
4270: p_acct_date => p_reverse_date,
4271: p_source_id_tbl => l_source_id_tbl);
4272: -- store the highest degree of error
4273: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4274: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4275: -- need to leave
4276: Okl_Api.set_message(p_app_name => g_app_name,
4277: p_msg_name => 'OKL_AGN_REV_DIST_ERROR',
4278: p_token1 => g_contract_number_token,
4272: -- store the highest degree of error
4273: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4274: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4275: -- need to leave
4276: Okl_Api.set_message(p_app_name => g_app_name,
4277: p_msg_name => 'OKL_AGN_REV_DIST_ERROR',
4278: p_token1 => g_contract_number_token,
4279: p_token1_value => l_contract_number);
4280: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4276: Okl_Api.set_message(p_app_name => g_app_name,
4277: p_msg_name => 'OKL_AGN_REV_DIST_ERROR',
4278: p_token1 => g_contract_number_token,
4279: p_token1_value => l_contract_number);
4280: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4281: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4282: -- record that there was an error
4283: Okl_Api.set_message(p_app_name => g_app_name,
4284: p_msg_name => 'OKL_AGN_REV_DIST_ERROR',
4277: p_msg_name => 'OKL_AGN_REV_DIST_ERROR',
4278: p_token1 => g_contract_number_token,
4279: p_token1_value => l_contract_number);
4280: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4281: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4282: -- record that there was an error
4283: Okl_Api.set_message(p_app_name => g_app_name,
4284: p_msg_name => 'OKL_AGN_REV_DIST_ERROR',
4285: p_token1 => g_contract_number_token,
4279: p_token1_value => l_contract_number);
4280: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4281: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4282: -- record that there was an error
4283: Okl_Api.set_message(p_app_name => g_app_name,
4284: p_msg_name => 'OKL_AGN_REV_DIST_ERROR',
4285: p_token1 => g_contract_number_token,
4286: p_token1_value => l_contract_number);
4287: RAISE OKL_API.G_EXCEPTION_ERROR;
4283: Okl_Api.set_message(p_app_name => g_app_name,
4284: p_msg_name => 'OKL_AGN_REV_DIST_ERROR',
4285: p_token1 => g_contract_number_token,
4286: p_token1_value => l_contract_number);
4287: RAISE OKL_API.G_EXCEPTION_ERROR;
4288: END IF;
4289: END IF;
4290:
4291: --Call the transaction public api for update
4297: x_msg_data => x_msg_data,
4298: p_tcnv_tbl => l_tcnv_tbl,
4299: x_tcnv_tbl => x_tcnv_tbl);
4300: -- store the highest degree of error
4301: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4302: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4303: -- need to leave
4304: Okl_Api.set_message(p_app_name => g_app_name,
4305: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
4298: p_tcnv_tbl => l_tcnv_tbl,
4299: x_tcnv_tbl => x_tcnv_tbl);
4300: -- store the highest degree of error
4301: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4302: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4303: -- need to leave
4304: Okl_Api.set_message(p_app_name => g_app_name,
4305: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
4306: p_token1 => g_contract_number_token,
4300: -- store the highest degree of error
4301: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4302: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4303: -- need to leave
4304: Okl_Api.set_message(p_app_name => g_app_name,
4305: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
4306: p_token1 => g_contract_number_token,
4307: p_token1_value => l_contract_number);
4308: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4304: Okl_Api.set_message(p_app_name => g_app_name,
4305: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
4306: p_token1 => g_contract_number_token,
4307: p_token1_value => l_contract_number);
4308: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4309: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4310: -- record that there was an error
4311: Okl_Api.set_message(p_app_name => g_app_name,
4312: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
4305: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
4306: p_token1 => g_contract_number_token,
4307: p_token1_value => l_contract_number);
4308: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4309: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4310: -- record that there was an error
4311: Okl_Api.set_message(p_app_name => g_app_name,
4312: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
4313: p_token1 => g_contract_number_token,
4307: p_token1_value => l_contract_number);
4308: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4309: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4310: -- record that there was an error
4311: Okl_Api.set_message(p_app_name => g_app_name,
4312: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
4313: p_token1 => g_contract_number_token,
4314: p_token1_value => l_contract_number);
4315: RAISE OKL_API.G_EXCEPTION_ERROR;
4311: Okl_Api.set_message(p_app_name => g_app_name,
4312: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
4313: p_token1 => g_contract_number_token,
4314: p_token1_value => l_contract_number);
4315: RAISE OKL_API.G_EXCEPTION_ERROR;
4316: END IF;
4317: END IF;
4318:
4319: END IF; -- for l_tcnv_tbl.count > 0;
4329: x_msg_count => x_msg_count,
4330: x_msg_data => x_msg_data,
4331: p_tcnv_tbl => l_tcnv_tbl);
4332:
4333: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4334: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4335: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
4336: RAISE OKL_API.G_EXCEPTION_ERROR;
4337: END IF;
4330: x_msg_data => x_msg_data,
4331: p_tcnv_tbl => l_tcnv_tbl);
4332:
4333: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4334: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4335: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
4336: RAISE OKL_API.G_EXCEPTION_ERROR;
4337: END IF;
4338:
4331: p_tcnv_tbl => l_tcnv_tbl);
4332:
4333: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4334: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4335: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
4336: RAISE OKL_API.G_EXCEPTION_ERROR;
4337: END IF;
4338:
4339: END IF; */
4332:
4333: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4334: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4335: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
4336: RAISE OKL_API.G_EXCEPTION_ERROR;
4337: END IF;
4338:
4339: END IF; */
4340:
4337: END IF;
4338:
4339: END IF; */
4340:
4341: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
4342: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
4343:
4344: EXCEPTION
4345:
4338:
4339: END IF; */
4340:
4341: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
4342: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
4343:
4344: EXCEPTION
4345:
4346: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
4342: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
4343:
4344: EXCEPTION
4345:
4346: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
4347: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
4348: ,g_pkg_name
4349: ,'OKL_API.G_RET_STS_ERROR'
4350: ,x_msg_count
4343:
4344: EXCEPTION
4345:
4346: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
4347: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
4348: ,g_pkg_name
4349: ,'OKL_API.G_RET_STS_ERROR'
4350: ,x_msg_count
4351: ,x_msg_data
4345:
4346: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
4347: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
4348: ,g_pkg_name
4349: ,'OKL_API.G_RET_STS_ERROR'
4350: ,x_msg_count
4351: ,x_msg_data
4352: ,'_PVT');
4353: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
4349: ,'OKL_API.G_RET_STS_ERROR'
4350: ,x_msg_count
4351: ,x_msg_data
4352: ,'_PVT');
4353: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
4354: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
4355: ,g_pkg_name
4356: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
4357: ,x_msg_count
4350: ,x_msg_count
4351: ,x_msg_data
4352: ,'_PVT');
4353: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
4354: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
4355: ,g_pkg_name
4356: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
4357: ,x_msg_count
4358: ,x_msg_data
4352: ,'_PVT');
4353: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
4354: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
4355: ,g_pkg_name
4356: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
4357: ,x_msg_count
4358: ,x_msg_data
4359: ,'_PVT');
4360: WHEN OTHERS THEN
4357: ,x_msg_count
4358: ,x_msg_data
4359: ,'_PVT');
4360: WHEN OTHERS THEN
4361: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
4362: (l_api_name,
4363: G_PKG_NAME,
4364: 'OTHERS',
4365: x_msg_count,
4451: WRITE_TO_LOG('p_catchup_rec.memo_yn :'||p_catchup_rec.memo_yn);
4452: WRITE_TO_LOG('p_catchup_rec.description :'||p_catchup_rec.description);
4453: WRITE_TO_LOG('p_catchup_rec.accrual_activity :'||p_catchup_rec.accrual_activity);
4454: -- Set save point
4455: x_return_status := Okl_Api.START_ACTIVITY(l_api_name
4456: ,G_PKG_NAME
4457: ,p_init_msg_list
4458: ,l_api_version
4459: ,p_api_version
4459: ,p_api_version
4460: ,'_PVT'
4461: ,x_return_status);
4462:
4463: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4464: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4465: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
4466: RAISE Okl_Api.G_EXCEPTION_ERROR;
4467: END IF;
4460: ,'_PVT'
4461: ,x_return_status);
4462:
4463: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4464: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4465: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
4466: RAISE Okl_Api.G_EXCEPTION_ERROR;
4467: END IF;
4468:
4461: ,x_return_status);
4462:
4463: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4464: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4465: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
4466: RAISE Okl_Api.G_EXCEPTION_ERROR;
4467: END IF;
4468:
4469: FOR l_catchup_trx_csr IN catchup_trx_csr(p_catchup_rec.contract_id)
4462:
4463: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4464: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4465: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
4466: RAISE Okl_Api.G_EXCEPTION_ERROR;
4467: END IF;
4468:
4469: FOR l_catchup_trx_csr IN catchup_trx_csr(p_catchup_rec.contract_id)
4470: LOOP
4504: p_source_id_tbl => l_source_id_tbl);
4505: WRITE_TO_LOG('Return status after the call to Okl_Reversal_Pub.REVERSE_ENTRIES :'||x_return_status);
4506:
4507: -- store the highest degree of error
4508: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4509: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4510: -- need to leave
4511: Okl_Api.set_message(p_app_name => g_app_name,
4512: p_msg_name => 'OKL_AGN_REV_DIST_ERROR',
4505: WRITE_TO_LOG('Return status after the call to Okl_Reversal_Pub.REVERSE_ENTRIES :'||x_return_status);
4506:
4507: -- store the highest degree of error
4508: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4509: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4510: -- need to leave
4511: Okl_Api.set_message(p_app_name => g_app_name,
4512: p_msg_name => 'OKL_AGN_REV_DIST_ERROR',
4513: p_token1 => g_contract_number_token,
4507: -- store the highest degree of error
4508: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4509: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4510: -- need to leave
4511: Okl_Api.set_message(p_app_name => g_app_name,
4512: p_msg_name => 'OKL_AGN_REV_DIST_ERROR',
4513: p_token1 => g_contract_number_token,
4514: p_token1_value => p_catchup_rec.contract_number);
4515: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4511: Okl_Api.set_message(p_app_name => g_app_name,
4512: p_msg_name => 'OKL_AGN_REV_DIST_ERROR',
4513: p_token1 => g_contract_number_token,
4514: p_token1_value => p_catchup_rec.contract_number);
4515: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4516: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4517: -- record that there was an error
4518: Okl_Api.set_message(p_app_name => g_app_name,
4519: p_msg_name => 'OKL_AGN_REV_DIST_ERROR',
4512: p_msg_name => 'OKL_AGN_REV_DIST_ERROR',
4513: p_token1 => g_contract_number_token,
4514: p_token1_value => p_catchup_rec.contract_number);
4515: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4516: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4517: -- record that there was an error
4518: Okl_Api.set_message(p_app_name => g_app_name,
4519: p_msg_name => 'OKL_AGN_REV_DIST_ERROR',
4520: p_token1 => g_contract_number_token,
4514: p_token1_value => p_catchup_rec.contract_number);
4515: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4516: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4517: -- record that there was an error
4518: Okl_Api.set_message(p_app_name => g_app_name,
4519: p_msg_name => 'OKL_AGN_REV_DIST_ERROR',
4520: p_token1 => g_contract_number_token,
4521: p_token1_value => p_catchup_rec.contract_number);
4522: RAISE OKL_API.G_EXCEPTION_ERROR;
4518: Okl_Api.set_message(p_app_name => g_app_name,
4519: p_msg_name => 'OKL_AGN_REV_DIST_ERROR',
4520: p_token1 => g_contract_number_token,
4521: p_token1_value => p_catchup_rec.contract_number);
4522: RAISE OKL_API.G_EXCEPTION_ERROR;
4523: END IF;
4524: END IF;
4525:
4526: WRITE_TO_LOG('Prior to the call to Okl_Trx_Contracts_Pub.update_trx_contracts');
4535: x_tcnv_tbl => x_rev_tcnv_tbl);
4536: WRITE_TO_LOG('Return status after the call to Okl_Trx_Contracts_Pub.update_trx_contracts :'||x_return_status);
4537:
4538: -- store the highest degree of error
4539: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4540: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4541: -- need to leave
4542: Okl_Api.set_message(p_app_name => g_app_name,
4543: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
4536: WRITE_TO_LOG('Return status after the call to Okl_Trx_Contracts_Pub.update_trx_contracts :'||x_return_status);
4537:
4538: -- store the highest degree of error
4539: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4540: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4541: -- need to leave
4542: Okl_Api.set_message(p_app_name => g_app_name,
4543: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
4544: p_token1 => g_contract_number_token,
4538: -- store the highest degree of error
4539: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4540: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4541: -- need to leave
4542: Okl_Api.set_message(p_app_name => g_app_name,
4543: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
4544: p_token1 => g_contract_number_token,
4545: p_token1_value => p_catchup_rec.contract_number);
4546: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4542: Okl_Api.set_message(p_app_name => g_app_name,
4543: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
4544: p_token1 => g_contract_number_token,
4545: p_token1_value => p_catchup_rec.contract_number);
4546: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4547: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4548: -- record that there was an error
4549: Okl_Api.set_message(p_app_name => g_app_name,
4550: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
4543: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
4544: p_token1 => g_contract_number_token,
4545: p_token1_value => p_catchup_rec.contract_number);
4546: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4547: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4548: -- record that there was an error
4549: Okl_Api.set_message(p_app_name => g_app_name,
4550: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
4551: p_token1 => g_contract_number_token,
4545: p_token1_value => p_catchup_rec.contract_number);
4546: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4547: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4548: -- record that there was an error
4549: Okl_Api.set_message(p_app_name => g_app_name,
4550: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
4551: p_token1 => g_contract_number_token,
4552: p_token1_value => p_catchup_rec.contract_number);
4553: RAISE OKL_API.G_EXCEPTION_ERROR;
4549: Okl_Api.set_message(p_app_name => g_app_name,
4550: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
4551: p_token1 => g_contract_number_token,
4552: p_token1_value => p_catchup_rec.contract_number);
4553: RAISE OKL_API.G_EXCEPTION_ERROR;
4554: END IF;
4555: END IF;
4556:
4557: -- Bug 4634293. Moving below initialization inside loop. Commenting below line.
4626: p_accrual_rec => l_accrual_rec,
4627: p_stream_tbl => l_stream_tbl,
4628: p_representation_type => p_representation_type); -- MGAAP 7263041
4629: -- store the highest degree of error
4630: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4631: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4632: -- need to leave
4633: Okl_Api.set_message(p_app_name => g_app_name,
4634: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
4627: p_stream_tbl => l_stream_tbl,
4628: p_representation_type => p_representation_type); -- MGAAP 7263041
4629: -- store the highest degree of error
4630: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4631: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4632: -- need to leave
4633: Okl_Api.set_message(p_app_name => g_app_name,
4634: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
4635: p_token1 => g_contract_number_token,
4629: -- store the highest degree of error
4630: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4631: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4632: -- need to leave
4633: Okl_Api.set_message(p_app_name => g_app_name,
4634: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
4635: p_token1 => g_contract_number_token,
4636: p_token1_value => p_catchup_rec.contract_number);
4637: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4633: Okl_Api.set_message(p_app_name => g_app_name,
4634: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
4635: p_token1 => g_contract_number_token,
4636: p_token1_value => p_catchup_rec.contract_number);
4637: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4638: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4639: Okl_Api.set_message(p_app_name => g_app_name,
4640: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
4641: p_token1 => g_contract_number_token,
4634: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
4635: p_token1 => g_contract_number_token,
4636: p_token1_value => p_catchup_rec.contract_number);
4637: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4638: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4639: Okl_Api.set_message(p_app_name => g_app_name,
4640: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
4641: p_token1 => g_contract_number_token,
4642: p_token1_value => p_catchup_rec.contract_number);
4635: p_token1 => g_contract_number_token,
4636: p_token1_value => p_catchup_rec.contract_number);
4637: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4638: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4639: Okl_Api.set_message(p_app_name => g_app_name,
4640: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
4641: p_token1 => g_contract_number_token,
4642: p_token1_value => p_catchup_rec.contract_number);
4643: RAISE OKL_API.G_EXCEPTION_ERROR;
4639: Okl_Api.set_message(p_app_name => g_app_name,
4640: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
4641: p_token1 => g_contract_number_token,
4642: p_token1_value => p_catchup_rec.contract_number);
4643: RAISE OKL_API.G_EXCEPTION_ERROR;
4644: END IF;
4645: END IF;
4646:
4647: -- MGAAP start 7263041
4659:
4660: END LOOP;
4661: END IF; -- for IF x_tclv_tbl.COUNT > 0
4662:
4663: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
4664: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
4665:
4666: EXCEPTION
4667:
4660: END LOOP;
4661: END IF; -- for IF x_tclv_tbl.COUNT > 0
4662:
4663: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
4664: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
4665:
4666: EXCEPTION
4667:
4668: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
4664: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
4665:
4666: EXCEPTION
4667:
4668: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
4669: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
4670: ,g_pkg_name
4671: ,'OKL_API.G_RET_STS_ERROR'
4672: ,x_msg_count
4665:
4666: EXCEPTION
4667:
4668: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
4669: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
4670: ,g_pkg_name
4671: ,'OKL_API.G_RET_STS_ERROR'
4672: ,x_msg_count
4673: ,x_msg_data
4667:
4668: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
4669: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
4670: ,g_pkg_name
4671: ,'OKL_API.G_RET_STS_ERROR'
4672: ,x_msg_count
4673: ,x_msg_data
4674: ,'_PVT');
4675: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
4671: ,'OKL_API.G_RET_STS_ERROR'
4672: ,x_msg_count
4673: ,x_msg_data
4674: ,'_PVT');
4675: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
4676: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
4677: ,g_pkg_name
4678: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
4679: ,x_msg_count
4672: ,x_msg_count
4673: ,x_msg_data
4674: ,'_PVT');
4675: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
4676: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
4677: ,g_pkg_name
4678: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
4679: ,x_msg_count
4680: ,x_msg_data
4674: ,'_PVT');
4675: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
4676: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
4677: ,g_pkg_name
4678: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
4679: ,x_msg_count
4680: ,x_msg_data
4681: ,'_PVT');
4682: WHEN OTHERS THEN
4679: ,x_msg_count
4680: ,x_msg_data
4681: ,'_PVT');
4682: WHEN OTHERS THEN
4683: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
4684: (l_api_name,
4685: G_PKG_NAME,
4686: 'OTHERS',
4687: x_msg_count,
4814:
4815: BEGIN
4816: -- Set save point
4817: WRITE_TO_LOG('Inside procedure CREATE_ACCRUALS_FORMULA');
4818: x_return_status := Okl_Api.START_ACTIVITY(l_api_name
4819: ,G_PKG_NAME
4820: ,p_init_msg_list
4821: ,l_api_version
4822: ,p_api_version
4822: ,p_api_version
4823: ,'_PVT'
4824: ,x_return_status);
4825:
4826: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4827: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4828: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
4829: RAISE Okl_Api.G_EXCEPTION_ERROR;
4830: END IF;
4823: ,'_PVT'
4824: ,x_return_status);
4825:
4826: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4827: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4828: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
4829: RAISE Okl_Api.G_EXCEPTION_ERROR;
4830: END IF;
4831:
4824: ,x_return_status);
4825:
4826: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4827: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4828: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
4829: RAISE Okl_Api.G_EXCEPTION_ERROR;
4830: END IF;
4831:
4832: -- set tcn and tcl types.
4825:
4826: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4827: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4828: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
4829: RAISE Okl_Api.G_EXCEPTION_ERROR;
4830: END IF;
4831:
4832: -- set tcn and tcl types.
4833: IF p_accrual_rec.accrual_rule_yn = 'N' THEN
4860: WRITE_TO_LOG('x_fact_synd_code :'||l_fact_sync_code);
4861: WRITE_TO_LOG('x_inv_acct_code :'||l_inv_acct_code);
4862:
4863: -- store the highest degree of error
4864: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4865: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4866: -- need to leave
4867: Okl_Api.set_message(p_app_name => g_app_name,
4868: p_msg_name => 'OKL_ACC_SEC_PVT_ERROR');
4861: WRITE_TO_LOG('x_inv_acct_code :'||l_inv_acct_code);
4862:
4863: -- store the highest degree of error
4864: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4865: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4866: -- need to leave
4867: Okl_Api.set_message(p_app_name => g_app_name,
4868: p_msg_name => 'OKL_ACC_SEC_PVT_ERROR');
4869: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4863: -- store the highest degree of error
4864: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4865: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4866: -- need to leave
4867: Okl_Api.set_message(p_app_name => g_app_name,
4868: p_msg_name => 'OKL_ACC_SEC_PVT_ERROR');
4869: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4870: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
4871: Okl_Api.set_message(p_app_name => g_app_name,
4865: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4866: -- need to leave
4867: Okl_Api.set_message(p_app_name => g_app_name,
4868: p_msg_name => 'OKL_ACC_SEC_PVT_ERROR');
4869: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4870: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
4871: Okl_Api.set_message(p_app_name => g_app_name,
4872: p_msg_name => 'OKL_ACC_SEC_PVT_ERROR');
4873: RAISE OKL_API.G_EXCEPTION_ERROR;
4866: -- need to leave
4867: Okl_Api.set_message(p_app_name => g_app_name,
4868: p_msg_name => 'OKL_ACC_SEC_PVT_ERROR');
4869: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4870: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
4871: Okl_Api.set_message(p_app_name => g_app_name,
4872: p_msg_name => 'OKL_ACC_SEC_PVT_ERROR');
4873: RAISE OKL_API.G_EXCEPTION_ERROR;
4874: END IF;
4867: Okl_Api.set_message(p_app_name => g_app_name,
4868: p_msg_name => 'OKL_ACC_SEC_PVT_ERROR');
4869: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4870: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
4871: Okl_Api.set_message(p_app_name => g_app_name,
4872: p_msg_name => 'OKL_ACC_SEC_PVT_ERROR');
4873: RAISE OKL_API.G_EXCEPTION_ERROR;
4874: END IF;
4875: END IF;
4869: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4870: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
4871: Okl_Api.set_message(p_app_name => g_app_name,
4872: p_msg_name => 'OKL_ACC_SEC_PVT_ERROR');
4873: RAISE OKL_API.G_EXCEPTION_ERROR;
4874: END IF;
4875: END IF;
4876:
4877: -- determine number of transaction lines to create
4894: p_tmpl_identify_rec => l_tmpl_identify_rec,
4895: x_template_tbl => l_template_tbl,
4896: p_validity_date => p_accrual_rec.accrual_date);
4897: -- store the highest degree of error
4898: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4899: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4900: -- need to leave
4901: Okl_Api.set_message(p_app_name => g_app_name,
4902: p_msg_name => 'OKL_AGN_GET_TMPL_ERROR',
4895: x_template_tbl => l_template_tbl,
4896: p_validity_date => p_accrual_rec.accrual_date);
4897: -- store the highest degree of error
4898: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4899: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4900: -- need to leave
4901: Okl_Api.set_message(p_app_name => g_app_name,
4902: p_msg_name => 'OKL_AGN_GET_TMPL_ERROR',
4903: p_token1 => g_contract_number_token,
4897: -- store the highest degree of error
4898: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4899: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4900: -- need to leave
4901: Okl_Api.set_message(p_app_name => g_app_name,
4902: p_msg_name => 'OKL_AGN_GET_TMPL_ERROR',
4903: p_token1 => g_contract_number_token,
4904: p_token1_value => p_accrual_rec.contract_number);
4905: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4901: Okl_Api.set_message(p_app_name => g_app_name,
4902: p_msg_name => 'OKL_AGN_GET_TMPL_ERROR',
4903: p_token1 => g_contract_number_token,
4904: p_token1_value => p_accrual_rec.contract_number);
4905: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4906: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4907: Okl_Api.set_message(p_app_name => g_app_name,
4908: p_msg_name => 'OKL_AGN_GET_TMPL_ERROR',
4909: p_token1 => g_contract_number_token,
4902: p_msg_name => 'OKL_AGN_GET_TMPL_ERROR',
4903: p_token1 => g_contract_number_token,
4904: p_token1_value => p_accrual_rec.contract_number);
4905: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4906: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4907: Okl_Api.set_message(p_app_name => g_app_name,
4908: p_msg_name => 'OKL_AGN_GET_TMPL_ERROR',
4909: p_token1 => g_contract_number_token,
4910: p_token1_value => p_accrual_rec.contract_number);
4903: p_token1 => g_contract_number_token,
4904: p_token1_value => p_accrual_rec.contract_number);
4905: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4906: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4907: Okl_Api.set_message(p_app_name => g_app_name,
4908: p_msg_name => 'OKL_AGN_GET_TMPL_ERROR',
4909: p_token1 => g_contract_number_token,
4910: p_token1_value => p_accrual_rec.contract_number);
4911: RAISE OKL_API.G_EXCEPTION_ERROR;
4907: Okl_Api.set_message(p_app_name => g_app_name,
4908: p_msg_name => 'OKL_AGN_GET_TMPL_ERROR',
4909: p_token1 => g_contract_number_token,
4910: p_token1_value => p_accrual_rec.contract_number);
4911: RAISE OKL_API.G_EXCEPTION_ERROR;
4912: END IF;
4913: END IF;
4914: -- If templates are not found, then raise an error. Get_template_info will not return error.
4915: IF l_template_tbl.COUNT = 0 THEN
4912: END IF;
4913: END IF;
4914: -- If templates are not found, then raise an error. Get_template_info will not return error.
4915: IF l_template_tbl.COUNT = 0 THEN
4916: Okl_Api.set_message(p_app_name => g_app_name,
4917: p_msg_name => 'OKL_TMPL_NOT_FOUND');
4918: RAISE OKL_API.G_EXCEPTION_ERROR;
4919: ELSE
4920: -- Build the transaction record
4914: -- If templates are not found, then raise an error. Get_template_info will not return error.
4915: IF l_template_tbl.COUNT = 0 THEN
4916: Okl_Api.set_message(p_app_name => g_app_name,
4917: p_msg_name => 'OKL_TMPL_NOT_FOUND');
4918: RAISE OKL_API.G_EXCEPTION_ERROR;
4919: ELSE
4920: -- Build the transaction record
4921: --Added by dpsingh for LE Uptake
4922: l_legal_entity_id := OKL_LEGAL_ENTITY_UTIL.get_khr_le_id(p_accrual_rec.contract_id) ;
4922: l_legal_entity_id := OKL_LEGAL_ENTITY_UTIL.get_khr_le_id(p_accrual_rec.contract_id) ;
4923: IF l_legal_entity_id IS NOT NULL THEN
4924: l_tcnv_rec.legal_entity_id := l_legal_entity_id;
4925: ELSE
4926: Okl_Api.set_message(p_app_name => g_app_name,
4927: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
4928: p_token1 => 'CONTRACT_NUMBER',
4929: p_token1_value => p_accrual_rec.contract_number);
4930: RAISE OKL_API.G_EXCEPTION_ERROR;
4926: Okl_Api.set_message(p_app_name => g_app_name,
4927: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
4928: p_token1 => 'CONTRACT_NUMBER',
4929: p_token1_value => p_accrual_rec.contract_number);
4930: RAISE OKL_API.G_EXCEPTION_ERROR;
4931: END IF;
4932:
4933: l_tcnv_rec.khr_id := p_accrual_rec.contract_id;
4934: l_tcnv_rec.pdt_id := p_accrual_rec.product_id;
5066: ,p_tclv_tbl => l_tclv_tbl
5067: ,x_tcnv_rec => x_tcnv_rec
5068: ,x_tclv_tbl => x_tclv_tbl );
5069: -- store the highest degree of error
5070: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5071: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5072: -- need to leave
5073: Okl_Api.set_message(p_app_name => g_app_name,
5074: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
5067: ,x_tcnv_rec => x_tcnv_rec
5068: ,x_tclv_tbl => x_tclv_tbl );
5069: -- store the highest degree of error
5070: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5071: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5072: -- need to leave
5073: Okl_Api.set_message(p_app_name => g_app_name,
5074: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
5075: p_token1 => g_contract_number_token,
5069: -- store the highest degree of error
5070: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5071: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5072: -- need to leave
5073: Okl_Api.set_message(p_app_name => g_app_name,
5074: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
5075: p_token1 => g_contract_number_token,
5076: p_token1_value => p_accrual_rec.contract_number);
5077: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5073: Okl_Api.set_message(p_app_name => g_app_name,
5074: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
5075: p_token1 => g_contract_number_token,
5076: p_token1_value => p_accrual_rec.contract_number);
5077: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5078: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5079: Okl_Api.set_message(p_app_name => g_app_name,
5080: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
5081: p_token1 => g_contract_number_token,
5074: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
5075: p_token1 => g_contract_number_token,
5076: p_token1_value => p_accrual_rec.contract_number);
5077: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5078: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5079: Okl_Api.set_message(p_app_name => g_app_name,
5080: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
5081: p_token1 => g_contract_number_token,
5082: p_token1_value => p_accrual_rec.contract_number);
5075: p_token1 => g_contract_number_token,
5076: p_token1_value => p_accrual_rec.contract_number);
5077: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5078: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5079: Okl_Api.set_message(p_app_name => g_app_name,
5080: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
5081: p_token1 => g_contract_number_token,
5082: p_token1_value => p_accrual_rec.contract_number);
5083: RAISE OKL_API.G_EXCEPTION_ERROR;
5079: Okl_Api.set_message(p_app_name => g_app_name,
5080: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
5081: p_token1 => g_contract_number_token,
5082: p_token1_value => p_accrual_rec.contract_number);
5083: RAISE OKL_API.G_EXCEPTION_ERROR;
5084: END IF;
5085: END IF;
5086: l_ctxt_val_tbl := p_ctxt_val_tbl;
5087:
5090: p_contract_id => p_accrual_rec.contract_id,
5091: x_return_status => x_return_status,
5092: x_acc_gen_primary_key_tbl => l_acc_gen_primary_key_tbl);
5093: --check for error
5094: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5095: Okl_Api.set_message(p_app_name => g_app_name,
5096: p_msg_name => 'OKL_AGN_ACC_GEN_ERROR',
5097: p_token1 => g_contract_number_token,
5098: p_token1_value => p_accrual_rec.contract_number);
5091: x_return_status => x_return_status,
5092: x_acc_gen_primary_key_tbl => l_acc_gen_primary_key_tbl);
5093: --check for error
5094: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5095: Okl_Api.set_message(p_app_name => g_app_name,
5096: p_msg_name => 'OKL_AGN_ACC_GEN_ERROR',
5097: p_token1 => g_contract_number_token,
5098: p_token1_value => p_accrual_rec.contract_number);
5099: RAISE OKL_API.G_EXCEPTION_ERROR;
5095: Okl_Api.set_message(p_app_name => g_app_name,
5096: p_msg_name => 'OKL_AGN_ACC_GEN_ERROR',
5097: p_token1 => g_contract_number_token,
5098: p_token1_value => p_accrual_rec.contract_number);
5099: RAISE OKL_API.G_EXCEPTION_ERROR;
5100: END IF;
5101:
5102: --START: Changes by nikshah 21-Feb-2007 for SLA Uptake, Bug #5707866
5103: l_tcn_id := x_tcnv_rec.id;
5181: x_amount_tbl => l_amount_out_tbl,
5182: p_trx_header_id => l_tcn_id);
5183:
5184: -- store the highest degree of error
5185: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5186: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5187: -- need to leave
5188: Okl_Api.set_message(p_app_name => g_app_name,
5189: p_msg_name => 'OKL_AGN_CRE_DIST_ERROR',
5182: p_trx_header_id => l_tcn_id);
5183:
5184: -- store the highest degree of error
5185: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5186: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5187: -- need to leave
5188: Okl_Api.set_message(p_app_name => g_app_name,
5189: p_msg_name => 'OKL_AGN_CRE_DIST_ERROR',
5190: p_token1 => g_contract_number_token,
5184: -- store the highest degree of error
5185: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5186: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5187: -- need to leave
5188: Okl_Api.set_message(p_app_name => g_app_name,
5189: p_msg_name => 'OKL_AGN_CRE_DIST_ERROR',
5190: p_token1 => g_contract_number_token,
5191: p_token1_value => p_accrual_rec.contract_number);
5192: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5188: Okl_Api.set_message(p_app_name => g_app_name,
5189: p_msg_name => 'OKL_AGN_CRE_DIST_ERROR',
5190: p_token1 => g_contract_number_token,
5191: p_token1_value => p_accrual_rec.contract_number);
5192: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5193: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5194: -- record that there was an error
5195: Okl_Api.set_message(p_app_name => g_app_name,
5196: p_msg_name => 'OKL_AGN_CRE_DIST_ERROR',
5189: p_msg_name => 'OKL_AGN_CRE_DIST_ERROR',
5190: p_token1 => g_contract_number_token,
5191: p_token1_value => p_accrual_rec.contract_number);
5192: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5193: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5194: -- record that there was an error
5195: Okl_Api.set_message(p_app_name => g_app_name,
5196: p_msg_name => 'OKL_AGN_CRE_DIST_ERROR',
5197: p_token1 => g_contract_number_token,
5191: p_token1_value => p_accrual_rec.contract_number);
5192: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5193: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5194: -- record that there was an error
5195: Okl_Api.set_message(p_app_name => g_app_name,
5196: p_msg_name => 'OKL_AGN_CRE_DIST_ERROR',
5197: p_token1 => g_contract_number_token,
5198: p_token1_value => p_accrual_rec.contract_number);
5199: RAISE OKL_API.G_EXCEPTION_ERROR;
5195: Okl_Api.set_message(p_app_name => g_app_name,
5196: p_msg_name => 'OKL_AGN_CRE_DIST_ERROR',
5197: p_token1 => g_contract_number_token,
5198: p_token1_value => p_accrual_rec.contract_number);
5199: RAISE OKL_API.G_EXCEPTION_ERROR;
5200: END IF;
5201: END IF;
5202:
5203: IF l_template_out_tbl.COUNT > 0 THEN
5204: FOR i IN l_template_out_tbl.FIRST..l_template_out_tbl.LAST
5205: LOOP
5206: -- verify template tbl count with amount tbl count
5207: IF l_template_out_tbl(i).template_tbl.COUNT <> l_amount_out_tbl(i).amount_tbl.COUNT THEN
5208: Okl_Api.set_message(p_app_name => g_app_name,
5209: p_msg_name => 'OKL_AGN_TMP_AMTCOUNT_MISMATCH');
5210: RAISE OKL_API.G_EXCEPTION_ERROR;
5211: END IF;
5212: END LOOP;
5206: -- verify template tbl count with amount tbl count
5207: IF l_template_out_tbl(i).template_tbl.COUNT <> l_amount_out_tbl(i).amount_tbl.COUNT THEN
5208: Okl_Api.set_message(p_app_name => g_app_name,
5209: p_msg_name => 'OKL_AGN_TMP_AMTCOUNT_MISMATCH');
5210: RAISE OKL_API.G_EXCEPTION_ERROR;
5211: END IF;
5212: END LOOP;
5213: END IF;
5214: --END: Changes by nikshah 21-Feb-2007 for SLA Uptake, Bug #5707866
5246: ,x_tcnv_rec => x_tcnv_rec
5247: ,x_tclv_tbl => x_tclv_tbl );
5248: WRITE_TO_LOG('Return Status after the call to Okl_Trx_Contracts_Pub.update_trx_contracts is '||x_return_status);
5249: -- store the highest degree of error
5250: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5251: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5252: -- need to leave
5253: Okl_Api.set_message(p_app_name => g_app_name,
5254: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
5247: ,x_tclv_tbl => x_tclv_tbl );
5248: WRITE_TO_LOG('Return Status after the call to Okl_Trx_Contracts_Pub.update_trx_contracts is '||x_return_status);
5249: -- store the highest degree of error
5250: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5251: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5252: -- need to leave
5253: Okl_Api.set_message(p_app_name => g_app_name,
5254: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
5255: p_token1 => g_contract_number_token,
5249: -- store the highest degree of error
5250: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5251: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5252: -- need to leave
5253: Okl_Api.set_message(p_app_name => g_app_name,
5254: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
5255: p_token1 => g_contract_number_token,
5256: p_token1_value => p_accrual_rec.contract_number);
5257: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5253: Okl_Api.set_message(p_app_name => g_app_name,
5254: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
5255: p_token1 => g_contract_number_token,
5256: p_token1_value => p_accrual_rec.contract_number);
5257: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5258: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5259: Okl_Api.set_message(p_app_name => g_app_name,
5260: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
5261: p_token1 => g_contract_number_token,
5254: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
5255: p_token1 => g_contract_number_token,
5256: p_token1_value => p_accrual_rec.contract_number);
5257: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5258: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5259: Okl_Api.set_message(p_app_name => g_app_name,
5260: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
5261: p_token1 => g_contract_number_token,
5262: p_token1_value => p_accrual_rec.contract_number);
5255: p_token1 => g_contract_number_token,
5256: p_token1_value => p_accrual_rec.contract_number);
5257: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5258: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5259: Okl_Api.set_message(p_app_name => g_app_name,
5260: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
5261: p_token1 => g_contract_number_token,
5262: p_token1_value => p_accrual_rec.contract_number);
5263: RAISE OKL_API.G_EXCEPTION_ERROR;
5259: Okl_Api.set_message(p_app_name => g_app_name,
5260: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
5261: p_token1 => g_contract_number_token,
5262: p_token1_value => p_accrual_rec.contract_number);
5263: RAISE OKL_API.G_EXCEPTION_ERROR;
5264: END IF;
5265: END IF;
5266: -- Modified by kthiruva on 16-Jul-2007 as part of SLA Uptake Impact.
5267: -- Else portion of the condition removed as part of Bug 6137099. When the amount returned by the accounting engine
5282: -- ,p_init_msg_list => p_init_msg_list
5283: -- ,x_return_status => x_return_status
5284: -- ,x_msg_count => x_msg_count
5285: -- ,x_msg_data => x_msg_data
5286: -- ,p_restricted_update => 'OKL_API.G_TRUE'
5287: -- ,p_chrv_rec => l_chrv_rec
5288: -- ,p_khrv_rec => l_khrv_rec
5289: -- ,x_chrv_rec => x_chrv_rec
5290: -- ,x_khrv_rec => x_khrv_rec );
5288: -- ,p_khrv_rec => l_khrv_rec
5289: -- ,x_chrv_rec => x_chrv_rec
5290: -- ,x_khrv_rec => x_khrv_rec );
5291: -- -- store the highest degree of error
5292: -- IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5293: -- IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5294: -- -- need to leave
5295: -- Okl_Api.set_message(p_app_name => g_app_name,
5296: -- p_msg_name => 'OKL_AGN_KHR_UPD_ERROR',
5289: -- ,x_chrv_rec => x_chrv_rec
5290: -- ,x_khrv_rec => x_khrv_rec );
5291: -- -- store the highest degree of error
5292: -- IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5293: -- IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5294: -- -- need to leave
5295: -- Okl_Api.set_message(p_app_name => g_app_name,
5296: -- p_msg_name => 'OKL_AGN_KHR_UPD_ERROR',
5297: -- p_token1 => g_contract_number_token,
5291: -- -- store the highest degree of error
5292: -- IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5293: -- IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5294: -- -- need to leave
5295: -- Okl_Api.set_message(p_app_name => g_app_name,
5296: -- p_msg_name => 'OKL_AGN_KHR_UPD_ERROR',
5297: -- p_token1 => g_contract_number_token,
5298: -- p_token1_value => p_accrual_rec.contract_number);
5299: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5295: -- Okl_Api.set_message(p_app_name => g_app_name,
5296: -- p_msg_name => 'OKL_AGN_KHR_UPD_ERROR',
5297: -- p_token1 => g_contract_number_token,
5298: -- p_token1_value => p_accrual_rec.contract_number);
5299: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5300: -- ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5301: -- -- record that there was an error
5302: -- Okl_Api.set_message(p_app_name => g_app_name,
5303: -- p_msg_name => 'OKL_AGN_KHR_UPD_ERROR',
5296: -- p_msg_name => 'OKL_AGN_KHR_UPD_ERROR',
5297: -- p_token1 => g_contract_number_token,
5298: -- p_token1_value => p_accrual_rec.contract_number);
5299: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5300: -- ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5301: -- -- record that there was an error
5302: -- Okl_Api.set_message(p_app_name => g_app_name,
5303: -- p_msg_name => 'OKL_AGN_KHR_UPD_ERROR',
5304: -- p_token1 => g_contract_number_token,
5298: -- p_token1_value => p_accrual_rec.contract_number);
5299: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5300: -- ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5301: -- -- record that there was an error
5302: -- Okl_Api.set_message(p_app_name => g_app_name,
5303: -- p_msg_name => 'OKL_AGN_KHR_UPD_ERROR',
5304: -- p_token1 => g_contract_number_token,
5305: -- p_token1_value => p_accrual_rec.contract_number);
5306: -- RAISE OKL_API.G_EXCEPTION_ERROR;
5302: -- Okl_Api.set_message(p_app_name => g_app_name,
5303: -- p_msg_name => 'OKL_AGN_KHR_UPD_ERROR',
5304: -- p_token1 => g_contract_number_token,
5305: -- p_token1_value => p_accrual_rec.contract_number);
5306: -- RAISE OKL_API.G_EXCEPTION_ERROR;
5307: -- END IF;
5308: -- END IF;
5309:
5310: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
5306: -- RAISE OKL_API.G_EXCEPTION_ERROR;
5307: -- END IF;
5308: -- END IF;
5309:
5310: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
5311: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
5312:
5313: END IF; -- For l_template_tbl.COUNT > 0
5314:
5307: -- END IF;
5308: -- END IF;
5309:
5310: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
5311: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
5312:
5313: END IF; -- For l_template_tbl.COUNT > 0
5314:
5315: EXCEPTION
5312:
5313: END IF; -- For l_template_tbl.COUNT > 0
5314:
5315: EXCEPTION
5316: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
5317: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
5318: ,g_pkg_name
5319: ,'OKL_API.G_RET_STS_ERROR'
5320: ,x_msg_count
5313: END IF; -- For l_template_tbl.COUNT > 0
5314:
5315: EXCEPTION
5316: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
5317: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
5318: ,g_pkg_name
5319: ,'OKL_API.G_RET_STS_ERROR'
5320: ,x_msg_count
5321: ,x_msg_data
5315: EXCEPTION
5316: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
5317: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
5318: ,g_pkg_name
5319: ,'OKL_API.G_RET_STS_ERROR'
5320: ,x_msg_count
5321: ,x_msg_data
5322: ,'_PVT');
5323: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
5319: ,'OKL_API.G_RET_STS_ERROR'
5320: ,x_msg_count
5321: ,x_msg_data
5322: ,'_PVT');
5323: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
5324: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
5325: ,g_pkg_name
5326: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
5327: ,x_msg_count
5320: ,x_msg_count
5321: ,x_msg_data
5322: ,'_PVT');
5323: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
5324: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
5325: ,g_pkg_name
5326: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
5327: ,x_msg_count
5328: ,x_msg_data
5322: ,'_PVT');
5323: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
5324: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
5325: ,g_pkg_name
5326: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
5327: ,x_msg_count
5328: ,x_msg_data
5329: ,'_PVT');
5330: WHEN OTHERS THEN
5327: ,x_msg_count
5328: ,x_msg_data
5329: ,'_PVT');
5330: WHEN OTHERS THEN
5331: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
5332: (l_api_name,
5333: G_PKG_NAME,
5334: 'OTHERS',
5335: x_msg_count,
5419:
5420: BEGIN
5421: -- Set save point
5422: WRITE_TO_LOG('Inside procedure CREATE_ACCRUALS_FORMULA');
5423: x_return_status := Okl_Api.START_ACTIVITY(l_api_name
5424: ,G_PKG_NAME
5425: ,p_init_msg_list
5426: ,l_api_version
5427: ,p_api_version
5427: ,p_api_version
5428: ,'_PVT'
5429: ,x_return_status);
5430:
5431: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5432: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5433: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
5434: RAISE Okl_Api.G_EXCEPTION_ERROR;
5435: END IF;
5428: ,'_PVT'
5429: ,x_return_status);
5430:
5431: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5432: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5433: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
5434: RAISE Okl_Api.G_EXCEPTION_ERROR;
5435: END IF;
5436:
5429: ,x_return_status);
5430:
5431: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5432: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5433: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
5434: RAISE Okl_Api.G_EXCEPTION_ERROR;
5435: END IF;
5436:
5437: -- set tcn and tcl types.
5430:
5431: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5432: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5433: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
5434: RAISE Okl_Api.G_EXCEPTION_ERROR;
5435: END IF;
5436:
5437: -- set tcn and tcl types.
5438: IF p_accrual_rec.accrual_rule_yn = 'N' THEN
5465: WRITE_TO_LOG('x_fact_synd_code :'||l_fact_sync_code);
5466: WRITE_TO_LOG('x_inv_acct_code :'||l_inv_acct_code);
5467:
5468: -- store the highest degree of error
5469: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5470: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5471: -- need to leave
5472: Okl_Api.set_message(p_app_name => g_app_name,
5473: p_msg_name => 'OKL_ACC_SEC_PVT_ERROR');
5466: WRITE_TO_LOG('x_inv_acct_code :'||l_inv_acct_code);
5467:
5468: -- store the highest degree of error
5469: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5470: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5471: -- need to leave
5472: Okl_Api.set_message(p_app_name => g_app_name,
5473: p_msg_name => 'OKL_ACC_SEC_PVT_ERROR');
5474: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5468: -- store the highest degree of error
5469: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5470: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5471: -- need to leave
5472: Okl_Api.set_message(p_app_name => g_app_name,
5473: p_msg_name => 'OKL_ACC_SEC_PVT_ERROR');
5474: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5475: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
5476: Okl_Api.set_message(p_app_name => g_app_name,
5470: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5471: -- need to leave
5472: Okl_Api.set_message(p_app_name => g_app_name,
5473: p_msg_name => 'OKL_ACC_SEC_PVT_ERROR');
5474: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5475: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
5476: Okl_Api.set_message(p_app_name => g_app_name,
5477: p_msg_name => 'OKL_ACC_SEC_PVT_ERROR');
5478: RAISE OKL_API.G_EXCEPTION_ERROR;
5471: -- need to leave
5472: Okl_Api.set_message(p_app_name => g_app_name,
5473: p_msg_name => 'OKL_ACC_SEC_PVT_ERROR');
5474: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5475: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
5476: Okl_Api.set_message(p_app_name => g_app_name,
5477: p_msg_name => 'OKL_ACC_SEC_PVT_ERROR');
5478: RAISE OKL_API.G_EXCEPTION_ERROR;
5479: END IF;
5472: Okl_Api.set_message(p_app_name => g_app_name,
5473: p_msg_name => 'OKL_ACC_SEC_PVT_ERROR');
5474: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5475: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
5476: Okl_Api.set_message(p_app_name => g_app_name,
5477: p_msg_name => 'OKL_ACC_SEC_PVT_ERROR');
5478: RAISE OKL_API.G_EXCEPTION_ERROR;
5479: END IF;
5480: END IF;
5474: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5475: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
5476: Okl_Api.set_message(p_app_name => g_app_name,
5477: p_msg_name => 'OKL_ACC_SEC_PVT_ERROR');
5478: RAISE OKL_API.G_EXCEPTION_ERROR;
5479: END IF;
5480: END IF;
5481:
5482: -- determine number of transaction lines to create
5499: p_tmpl_identify_rec => l_tmpl_identify_rec,
5500: x_template_tbl => l_template_tbl,
5501: p_validity_date => p_accrual_rec.accrual_date);
5502: -- store the highest degree of error
5503: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5504: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5505: -- need to leave
5506: Okl_Api.set_message(p_app_name => g_app_name,
5507: p_msg_name => 'OKL_AGN_GET_TMPL_ERROR',
5500: x_template_tbl => l_template_tbl,
5501: p_validity_date => p_accrual_rec.accrual_date);
5502: -- store the highest degree of error
5503: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5504: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5505: -- need to leave
5506: Okl_Api.set_message(p_app_name => g_app_name,
5507: p_msg_name => 'OKL_AGN_GET_TMPL_ERROR',
5508: p_token1 => g_contract_number_token,
5502: -- store the highest degree of error
5503: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5504: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5505: -- need to leave
5506: Okl_Api.set_message(p_app_name => g_app_name,
5507: p_msg_name => 'OKL_AGN_GET_TMPL_ERROR',
5508: p_token1 => g_contract_number_token,
5509: p_token1_value => p_accrual_rec.contract_number);
5510: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5506: Okl_Api.set_message(p_app_name => g_app_name,
5507: p_msg_name => 'OKL_AGN_GET_TMPL_ERROR',
5508: p_token1 => g_contract_number_token,
5509: p_token1_value => p_accrual_rec.contract_number);
5510: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5511: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5512: Okl_Api.set_message(p_app_name => g_app_name,
5513: p_msg_name => 'OKL_AGN_GET_TMPL_ERROR',
5514: p_token1 => g_contract_number_token,
5507: p_msg_name => 'OKL_AGN_GET_TMPL_ERROR',
5508: p_token1 => g_contract_number_token,
5509: p_token1_value => p_accrual_rec.contract_number);
5510: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5511: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5512: Okl_Api.set_message(p_app_name => g_app_name,
5513: p_msg_name => 'OKL_AGN_GET_TMPL_ERROR',
5514: p_token1 => g_contract_number_token,
5515: p_token1_value => p_accrual_rec.contract_number);
5508: p_token1 => g_contract_number_token,
5509: p_token1_value => p_accrual_rec.contract_number);
5510: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5511: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5512: Okl_Api.set_message(p_app_name => g_app_name,
5513: p_msg_name => 'OKL_AGN_GET_TMPL_ERROR',
5514: p_token1 => g_contract_number_token,
5515: p_token1_value => p_accrual_rec.contract_number);
5516: RAISE OKL_API.G_EXCEPTION_ERROR;
5512: Okl_Api.set_message(p_app_name => g_app_name,
5513: p_msg_name => 'OKL_AGN_GET_TMPL_ERROR',
5514: p_token1 => g_contract_number_token,
5515: p_token1_value => p_accrual_rec.contract_number);
5516: RAISE OKL_API.G_EXCEPTION_ERROR;
5517: END IF;
5518: END IF;
5519: -- If templates are not found, then raise an error. Get_template_info will not return error.
5520: IF l_template_tbl.COUNT = 0 THEN
5517: END IF;
5518: END IF;
5519: -- If templates are not found, then raise an error. Get_template_info will not return error.
5520: IF l_template_tbl.COUNT = 0 THEN
5521: Okl_Api.set_message(p_app_name => g_app_name,
5522: p_msg_name => 'OKL_TMPL_NOT_FOUND');
5523: RAISE OKL_API.G_EXCEPTION_ERROR;
5524: ELSE
5525: -- Build the transaction record
5519: -- If templates are not found, then raise an error. Get_template_info will not return error.
5520: IF l_template_tbl.COUNT = 0 THEN
5521: Okl_Api.set_message(p_app_name => g_app_name,
5522: p_msg_name => 'OKL_TMPL_NOT_FOUND');
5523: RAISE OKL_API.G_EXCEPTION_ERROR;
5524: ELSE
5525: -- Build the transaction record
5526: --Added by dpsingh for LE Uptake
5527: l_legal_entity_id := OKL_LEGAL_ENTITY_UTIL.get_khr_le_id(p_accrual_rec.contract_id) ;
5527: l_legal_entity_id := OKL_LEGAL_ENTITY_UTIL.get_khr_le_id(p_accrual_rec.contract_id) ;
5528: IF l_legal_entity_id IS NOT NULL THEN
5529: l_tcnv_rec.legal_entity_id := l_legal_entity_id;
5530: ELSE
5531: Okl_Api.set_message(p_app_name => g_app_name,
5532: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
5533: p_token1 => 'CONTRACT_NUMBER',
5534: p_token1_value => p_accrual_rec.contract_number);
5535: RAISE OKL_API.G_EXCEPTION_ERROR;
5531: Okl_Api.set_message(p_app_name => g_app_name,
5532: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
5533: p_token1 => 'CONTRACT_NUMBER',
5534: p_token1_value => p_accrual_rec.contract_number);
5535: RAISE OKL_API.G_EXCEPTION_ERROR;
5536: END IF;
5537:
5538: l_tcnv_rec.khr_id := p_accrual_rec.contract_id;
5539: l_tcnv_rec.pdt_id := p_accrual_rec.product_id;
5663: ,p_tclv_tbl => l_tclv_tbl
5664: ,x_tcnv_rec => x_tcnv_rec
5665: ,x_tclv_tbl => x_tclv_tbl );
5666: -- store the highest degree of error
5667: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5668: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5669: -- need to leave
5670: Okl_Api.set_message(p_app_name => g_app_name,
5671: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
5664: ,x_tcnv_rec => x_tcnv_rec
5665: ,x_tclv_tbl => x_tclv_tbl );
5666: -- store the highest degree of error
5667: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5668: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5669: -- need to leave
5670: Okl_Api.set_message(p_app_name => g_app_name,
5671: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
5672: p_token1 => g_contract_number_token,
5666: -- store the highest degree of error
5667: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5668: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5669: -- need to leave
5670: Okl_Api.set_message(p_app_name => g_app_name,
5671: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
5672: p_token1 => g_contract_number_token,
5673: p_token1_value => p_accrual_rec.contract_number);
5674: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5670: Okl_Api.set_message(p_app_name => g_app_name,
5671: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
5672: p_token1 => g_contract_number_token,
5673: p_token1_value => p_accrual_rec.contract_number);
5674: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5675: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5676: Okl_Api.set_message(p_app_name => g_app_name,
5677: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
5678: p_token1 => g_contract_number_token,
5671: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
5672: p_token1 => g_contract_number_token,
5673: p_token1_value => p_accrual_rec.contract_number);
5674: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5675: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5676: Okl_Api.set_message(p_app_name => g_app_name,
5677: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
5678: p_token1 => g_contract_number_token,
5679: p_token1_value => p_accrual_rec.contract_number);
5672: p_token1 => g_contract_number_token,
5673: p_token1_value => p_accrual_rec.contract_number);
5674: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5675: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5676: Okl_Api.set_message(p_app_name => g_app_name,
5677: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
5678: p_token1 => g_contract_number_token,
5679: p_token1_value => p_accrual_rec.contract_number);
5680: RAISE OKL_API.G_EXCEPTION_ERROR;
5676: Okl_Api.set_message(p_app_name => g_app_name,
5677: p_msg_name => 'OKL_AGN_TRX_CRE_ERROR',
5678: p_token1 => g_contract_number_token,
5679: p_token1_value => p_accrual_rec.contract_number);
5680: RAISE OKL_API.G_EXCEPTION_ERROR;
5681: END IF;
5682: END IF;
5683: l_ctxt_val_tbl := p_ctxt_val_tbl;
5684:
5687: p_contract_id => p_accrual_rec.contract_id,
5688: x_return_status => x_return_status,
5689: x_acc_gen_primary_key_tbl => l_acc_gen_primary_key_tbl);
5690: --check for error
5691: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5692: Okl_Api.set_message(p_app_name => g_app_name,
5693: p_msg_name => 'OKL_AGN_ACC_GEN_ERROR',
5694: p_token1 => g_contract_number_token,
5695: p_token1_value => p_accrual_rec.contract_number);
5688: x_return_status => x_return_status,
5689: x_acc_gen_primary_key_tbl => l_acc_gen_primary_key_tbl);
5690: --check for error
5691: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5692: Okl_Api.set_message(p_app_name => g_app_name,
5693: p_msg_name => 'OKL_AGN_ACC_GEN_ERROR',
5694: p_token1 => g_contract_number_token,
5695: p_token1_value => p_accrual_rec.contract_number);
5696: RAISE OKL_API.G_EXCEPTION_ERROR;
5692: Okl_Api.set_message(p_app_name => g_app_name,
5693: p_msg_name => 'OKL_AGN_ACC_GEN_ERROR',
5694: p_token1 => g_contract_number_token,
5695: p_token1_value => p_accrual_rec.contract_number);
5696: RAISE OKL_API.G_EXCEPTION_ERROR;
5697: END IF;
5698:
5699: --START: Changes by nikshah 21-Feb-2007 for SLA Uptake, Bug #5707866
5700: l_tcn_id := x_tcnv_rec.id;
5776: x_amount_tbl => l_amount_out_tbl,
5777: p_trx_header_id => l_tcn_id);
5778:
5779: -- store the highest degree of error
5780: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5781: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5782: -- need to leave
5783: Okl_Api.set_message(p_app_name => g_app_name,
5784: p_msg_name => 'OKL_AGN_CRE_DIST_ERROR',
5777: p_trx_header_id => l_tcn_id);
5778:
5779: -- store the highest degree of error
5780: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5781: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5782: -- need to leave
5783: Okl_Api.set_message(p_app_name => g_app_name,
5784: p_msg_name => 'OKL_AGN_CRE_DIST_ERROR',
5785: p_token1 => g_contract_number_token,
5779: -- store the highest degree of error
5780: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5781: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5782: -- need to leave
5783: Okl_Api.set_message(p_app_name => g_app_name,
5784: p_msg_name => 'OKL_AGN_CRE_DIST_ERROR',
5785: p_token1 => g_contract_number_token,
5786: p_token1_value => p_accrual_rec.contract_number);
5787: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5783: Okl_Api.set_message(p_app_name => g_app_name,
5784: p_msg_name => 'OKL_AGN_CRE_DIST_ERROR',
5785: p_token1 => g_contract_number_token,
5786: p_token1_value => p_accrual_rec.contract_number);
5787: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5788: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5789: -- record that there was an error
5790: Okl_Api.set_message(p_app_name => g_app_name,
5791: p_msg_name => 'OKL_AGN_CRE_DIST_ERROR',
5784: p_msg_name => 'OKL_AGN_CRE_DIST_ERROR',
5785: p_token1 => g_contract_number_token,
5786: p_token1_value => p_accrual_rec.contract_number);
5787: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5788: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5789: -- record that there was an error
5790: Okl_Api.set_message(p_app_name => g_app_name,
5791: p_msg_name => 'OKL_AGN_CRE_DIST_ERROR',
5792: p_token1 => g_contract_number_token,
5786: p_token1_value => p_accrual_rec.contract_number);
5787: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5788: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5789: -- record that there was an error
5790: Okl_Api.set_message(p_app_name => g_app_name,
5791: p_msg_name => 'OKL_AGN_CRE_DIST_ERROR',
5792: p_token1 => g_contract_number_token,
5793: p_token1_value => p_accrual_rec.contract_number);
5794: RAISE OKL_API.G_EXCEPTION_ERROR;
5790: Okl_Api.set_message(p_app_name => g_app_name,
5791: p_msg_name => 'OKL_AGN_CRE_DIST_ERROR',
5792: p_token1 => g_contract_number_token,
5793: p_token1_value => p_accrual_rec.contract_number);
5794: RAISE OKL_API.G_EXCEPTION_ERROR;
5795: END IF;
5796: END IF;
5797:
5798: IF l_template_out_tbl.COUNT > 0 THEN
5799: FOR i IN l_template_out_tbl.FIRST..l_template_out_tbl.LAST
5800: LOOP
5801: -- verify template tbl count with amount tbl count
5802: IF l_template_out_tbl(i).template_tbl.COUNT <> l_amount_out_tbl(i).amount_tbl.COUNT THEN
5803: Okl_Api.set_message(p_app_name => g_app_name,
5804: p_msg_name => 'OKL_AGN_TMP_AMTCOUNT_MISMATCH');
5805: RAISE OKL_API.G_EXCEPTION_ERROR;
5806: END IF;
5807: END LOOP;
5801: -- verify template tbl count with amount tbl count
5802: IF l_template_out_tbl(i).template_tbl.COUNT <> l_amount_out_tbl(i).amount_tbl.COUNT THEN
5803: Okl_Api.set_message(p_app_name => g_app_name,
5804: p_msg_name => 'OKL_AGN_TMP_AMTCOUNT_MISMATCH');
5805: RAISE OKL_API.G_EXCEPTION_ERROR;
5806: END IF;
5807: END LOOP;
5808: END IF;
5809: --END: Changes by nikshah 21-Feb-2007 for SLA Uptake, Bug #5707866
5841: ,x_tcnv_rec => x_tcnv_rec
5842: ,x_tclv_tbl => x_tclv_tbl );
5843: WRITE_TO_LOG('Return Status after the call to Okl_Trx_Contracts_Pub.update_trx_contracts is '||x_return_status);
5844: -- store the highest degree of error
5845: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5846: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5847: -- need to leave
5848: Okl_Api.set_message(p_app_name => g_app_name,
5849: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
5842: ,x_tclv_tbl => x_tclv_tbl );
5843: WRITE_TO_LOG('Return Status after the call to Okl_Trx_Contracts_Pub.update_trx_contracts is '||x_return_status);
5844: -- store the highest degree of error
5845: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5846: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5847: -- need to leave
5848: Okl_Api.set_message(p_app_name => g_app_name,
5849: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
5850: p_token1 => g_contract_number_token,
5844: -- store the highest degree of error
5845: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5846: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5847: -- need to leave
5848: Okl_Api.set_message(p_app_name => g_app_name,
5849: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
5850: p_token1 => g_contract_number_token,
5851: p_token1_value => p_accrual_rec.contract_number);
5852: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5848: Okl_Api.set_message(p_app_name => g_app_name,
5849: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
5850: p_token1 => g_contract_number_token,
5851: p_token1_value => p_accrual_rec.contract_number);
5852: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5853: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5854: Okl_Api.set_message(p_app_name => g_app_name,
5855: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
5856: p_token1 => g_contract_number_token,
5849: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
5850: p_token1 => g_contract_number_token,
5851: p_token1_value => p_accrual_rec.contract_number);
5852: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5853: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5854: Okl_Api.set_message(p_app_name => g_app_name,
5855: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
5856: p_token1 => g_contract_number_token,
5857: p_token1_value => p_accrual_rec.contract_number);
5850: p_token1 => g_contract_number_token,
5851: p_token1_value => p_accrual_rec.contract_number);
5852: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5853: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5854: Okl_Api.set_message(p_app_name => g_app_name,
5855: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
5856: p_token1 => g_contract_number_token,
5857: p_token1_value => p_accrual_rec.contract_number);
5858: RAISE OKL_API.G_EXCEPTION_ERROR;
5854: Okl_Api.set_message(p_app_name => g_app_name,
5855: p_msg_name => 'OKL_AGN_TRX_UPD_ERROR',
5856: p_token1 => g_contract_number_token,
5857: p_token1_value => p_accrual_rec.contract_number);
5858: RAISE OKL_API.G_EXCEPTION_ERROR;
5859: END IF;
5860: END IF;
5861: -- Modified by kthiruva on 16-Jul-2007 as part of SLA Uptake Impact.
5862: -- Else portion of the condition removed as part of Bug 6137099. When the amount returned by the accounting engine
5877: -- ,p_init_msg_list => p_init_msg_list
5878: -- ,x_return_status => x_return_status
5879: -- ,x_msg_count => x_msg_count
5880: -- ,x_msg_data => x_msg_data
5881: -- ,p_restricted_update => 'OKL_API.G_TRUE'
5882: -- ,p_chrv_rec => l_chrv_rec
5883: -- ,p_khrv_rec => l_khrv_rec
5884: -- ,x_chrv_rec => x_chrv_rec
5885: -- ,x_khrv_rec => x_khrv_rec );
5883: -- ,p_khrv_rec => l_khrv_rec
5884: -- ,x_chrv_rec => x_chrv_rec
5885: -- ,x_khrv_rec => x_khrv_rec );
5886: -- -- store the highest degree of error
5887: -- IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5888: -- IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5889: -- -- need to leave
5890: -- Okl_Api.set_message(p_app_name => g_app_name,
5891: -- p_msg_name => 'OKL_AGN_KHR_UPD_ERROR',
5884: -- ,x_chrv_rec => x_chrv_rec
5885: -- ,x_khrv_rec => x_khrv_rec );
5886: -- -- store the highest degree of error
5887: -- IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5888: -- IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5889: -- -- need to leave
5890: -- Okl_Api.set_message(p_app_name => g_app_name,
5891: -- p_msg_name => 'OKL_AGN_KHR_UPD_ERROR',
5892: -- p_token1 => g_contract_number_token,
5886: -- -- store the highest degree of error
5887: -- IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5888: -- IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5889: -- -- need to leave
5890: -- Okl_Api.set_message(p_app_name => g_app_name,
5891: -- p_msg_name => 'OKL_AGN_KHR_UPD_ERROR',
5892: -- p_token1 => g_contract_number_token,
5893: -- p_token1_value => p_accrual_rec.contract_number);
5894: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5890: -- Okl_Api.set_message(p_app_name => g_app_name,
5891: -- p_msg_name => 'OKL_AGN_KHR_UPD_ERROR',
5892: -- p_token1 => g_contract_number_token,
5893: -- p_token1_value => p_accrual_rec.contract_number);
5894: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5895: -- ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5896: -- -- record that there was an error
5897: -- Okl_Api.set_message(p_app_name => g_app_name,
5898: -- p_msg_name => 'OKL_AGN_KHR_UPD_ERROR',
5891: -- p_msg_name => 'OKL_AGN_KHR_UPD_ERROR',
5892: -- p_token1 => g_contract_number_token,
5893: -- p_token1_value => p_accrual_rec.contract_number);
5894: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5895: -- ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5896: -- -- record that there was an error
5897: -- Okl_Api.set_message(p_app_name => g_app_name,
5898: -- p_msg_name => 'OKL_AGN_KHR_UPD_ERROR',
5899: -- p_token1 => g_contract_number_token,
5893: -- p_token1_value => p_accrual_rec.contract_number);
5894: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5895: -- ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5896: -- -- record that there was an error
5897: -- Okl_Api.set_message(p_app_name => g_app_name,
5898: -- p_msg_name => 'OKL_AGN_KHR_UPD_ERROR',
5899: -- p_token1 => g_contract_number_token,
5900: -- p_token1_value => p_accrual_rec.contract_number);
5901: -- RAISE OKL_API.G_EXCEPTION_ERROR;
5897: -- Okl_Api.set_message(p_app_name => g_app_name,
5898: -- p_msg_name => 'OKL_AGN_KHR_UPD_ERROR',
5899: -- p_token1 => g_contract_number_token,
5900: -- p_token1_value => p_accrual_rec.contract_number);
5901: -- RAISE OKL_API.G_EXCEPTION_ERROR;
5902: -- END IF;
5903: -- END IF;
5904:
5905: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
5901: -- RAISE OKL_API.G_EXCEPTION_ERROR;
5902: -- END IF;
5903: -- END IF;
5904:
5905: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
5906: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
5907:
5908: END IF; -- For l_template_tbl.COUNT > 0
5909:
5902: -- END IF;
5903: -- END IF;
5904:
5905: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
5906: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
5907:
5908: END IF; -- For l_template_tbl.COUNT > 0
5909:
5910: EXCEPTION
5907:
5908: END IF; -- For l_template_tbl.COUNT > 0
5909:
5910: EXCEPTION
5911: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
5912: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
5913: ,g_pkg_name
5914: ,'OKL_API.G_RET_STS_ERROR'
5915: ,x_msg_count
5908: END IF; -- For l_template_tbl.COUNT > 0
5909:
5910: EXCEPTION
5911: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
5912: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
5913: ,g_pkg_name
5914: ,'OKL_API.G_RET_STS_ERROR'
5915: ,x_msg_count
5916: ,x_msg_data
5910: EXCEPTION
5911: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
5912: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
5913: ,g_pkg_name
5914: ,'OKL_API.G_RET_STS_ERROR'
5915: ,x_msg_count
5916: ,x_msg_data
5917: ,'_PVT');
5918: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
5914: ,'OKL_API.G_RET_STS_ERROR'
5915: ,x_msg_count
5916: ,x_msg_data
5917: ,'_PVT');
5918: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
5919: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
5920: ,g_pkg_name
5921: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
5922: ,x_msg_count
5915: ,x_msg_count
5916: ,x_msg_data
5917: ,'_PVT');
5918: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
5919: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
5920: ,g_pkg_name
5921: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
5922: ,x_msg_count
5923: ,x_msg_data
5917: ,'_PVT');
5918: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
5919: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
5920: ,g_pkg_name
5921: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
5922: ,x_msg_count
5923: ,x_msg_data
5924: ,'_PVT');
5925: WHEN OTHERS THEN
5922: ,x_msg_count
5923: ,x_msg_data
5924: ,'_PVT');
5925: WHEN OTHERS THEN
5926: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
5927: (l_api_name,
5928: G_PKG_NAME,
5929: 'OTHERS',
5930: x_msg_count,
5953: l_cblv_rec OKL_CONTRACT_BALANCES_PVT.okl_cblv_rec;
5954: x_cblv_rec OKL_CONTRACT_BALANCES_PVT.okl_cblv_rec;
5955: l_api_version CONSTANT NUMBER := 1.0;
5956: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_BALANCES';
5957: l_init_msg_list VARCHAR2(2000) := OKL_API.G_FALSE;
5958: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5959: l_msg_count NUMBER;
5960: l_msg_data VARCHAR2(2000);
5961:
5954: x_cblv_rec OKL_CONTRACT_BALANCES_PVT.okl_cblv_rec;
5955: l_api_version CONSTANT NUMBER := 1.0;
5956: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_BALANCES';
5957: l_init_msg_list VARCHAR2(2000) := OKL_API.G_FALSE;
5958: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5959: l_msg_count NUMBER;
5960: l_msg_data VARCHAR2(2000);
5961:
5962:
5961:
5962:
5963: BEGIN
5964: -- Set save point
5965: l_return_status := Okl_Api.START_ACTIVITY(l_api_name
5966: ,G_PKG_NAME
5967: ,l_init_msg_list
5968: ,l_api_version
5969: ,l_api_version
5969: ,l_api_version
5970: ,'_PVT'
5971: ,l_return_status);
5972:
5973: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5974: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5975: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
5976: RAISE Okl_Api.G_EXCEPTION_ERROR;
5977: END IF;
5970: ,'_PVT'
5971: ,l_return_status);
5972:
5973: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5974: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5975: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
5976: RAISE Okl_Api.G_EXCEPTION_ERROR;
5977: END IF;
5978:
5971: ,l_return_status);
5972:
5973: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5974: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5975: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
5976: RAISE Okl_Api.G_EXCEPTION_ERROR;
5977: END IF;
5978:
5979: OPEN get_balances_id_csr(p_khr_id);
5972:
5973: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5974: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5975: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
5976: RAISE Okl_Api.G_EXCEPTION_ERROR;
5977: END IF;
5978:
5979: OPEN get_balances_id_csr(p_khr_id);
5980: FETCH get_balances_id_csr INTO l_balances_id;
5995: , p_cblv_rec => l_cblv_rec
5996: , x_cblv_rec => x_cblv_rec);
5997:
5998: -- store the highest degree of error
5999: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6000: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6001: -- need to leave
6002: Okl_Api.set_message(p_app_name => g_app_name,
6003: p_msg_name => 'OKL_AGN_UPD_BAL_ERROR',
5996: , x_cblv_rec => x_cblv_rec);
5997:
5998: -- store the highest degree of error
5999: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6000: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6001: -- need to leave
6002: Okl_Api.set_message(p_app_name => g_app_name,
6003: p_msg_name => 'OKL_AGN_UPD_BAL_ERROR',
6004: p_token1 => g_contract_number_token,
5998: -- store the highest degree of error
5999: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6000: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6001: -- need to leave
6002: Okl_Api.set_message(p_app_name => g_app_name,
6003: p_msg_name => 'OKL_AGN_UPD_BAL_ERROR',
6004: p_token1 => g_contract_number_token,
6005: p_token1_value => p_khr_number);
6006: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6002: Okl_Api.set_message(p_app_name => g_app_name,
6003: p_msg_name => 'OKL_AGN_UPD_BAL_ERROR',
6004: p_token1 => g_contract_number_token,
6005: p_token1_value => p_khr_number);
6006: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6007: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6008: Okl_Api.set_message(p_app_name => g_app_name,
6009: p_msg_name => 'OKL_AGN_UPD_BAL_ERROR',
6010: p_token1 => g_contract_number_token,
6003: p_msg_name => 'OKL_AGN_UPD_BAL_ERROR',
6004: p_token1 => g_contract_number_token,
6005: p_token1_value => p_khr_number);
6006: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6007: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6008: Okl_Api.set_message(p_app_name => g_app_name,
6009: p_msg_name => 'OKL_AGN_UPD_BAL_ERROR',
6010: p_token1 => g_contract_number_token,
6011: p_token1_value => p_khr_number);
6004: p_token1 => g_contract_number_token,
6005: p_token1_value => p_khr_number);
6006: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6007: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6008: Okl_Api.set_message(p_app_name => g_app_name,
6009: p_msg_name => 'OKL_AGN_UPD_BAL_ERROR',
6010: p_token1 => g_contract_number_token,
6011: p_token1_value => p_khr_number);
6012: RAISE OKL_API.G_EXCEPTION_ERROR;
6008: Okl_Api.set_message(p_app_name => g_app_name,
6009: p_msg_name => 'OKL_AGN_UPD_BAL_ERROR',
6010: p_token1 => g_contract_number_token,
6011: p_token1_value => p_khr_number);
6012: RAISE OKL_API.G_EXCEPTION_ERROR;
6013: END IF;
6014: END IF;
6015: ELSE
6016: OKL_CONTRACT_BALANCES_PVT.create_contract_balance(
6021: , x_msg_data => l_msg_data
6022: , p_cblv_rec => l_cblv_rec
6023: , x_cblv_rec => x_cblv_rec);
6024: -- store the highest degree of error
6025: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6026: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6027: -- need to leave
6028: Okl_Api.set_message(p_app_name => g_app_name,
6029: p_msg_name => 'OKL_AGN_CRE_BAL_ERROR',
6022: , p_cblv_rec => l_cblv_rec
6023: , x_cblv_rec => x_cblv_rec);
6024: -- store the highest degree of error
6025: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6026: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6027: -- need to leave
6028: Okl_Api.set_message(p_app_name => g_app_name,
6029: p_msg_name => 'OKL_AGN_CRE_BAL_ERROR',
6030: p_token1 => g_contract_number_token,
6024: -- store the highest degree of error
6025: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6026: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6027: -- need to leave
6028: Okl_Api.set_message(p_app_name => g_app_name,
6029: p_msg_name => 'OKL_AGN_CRE_BAL_ERROR',
6030: p_token1 => g_contract_number_token,
6031: p_token1_value => p_khr_number);
6032: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6028: Okl_Api.set_message(p_app_name => g_app_name,
6029: p_msg_name => 'OKL_AGN_CRE_BAL_ERROR',
6030: p_token1 => g_contract_number_token,
6031: p_token1_value => p_khr_number);
6032: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6033: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6034: Okl_Api.set_message(p_app_name => g_app_name,
6035: p_msg_name => 'OKL_AGN_CRE_BAL_ERROR',
6036: p_token1 => g_contract_number_token,
6029: p_msg_name => 'OKL_AGN_CRE_BAL_ERROR',
6030: p_token1 => g_contract_number_token,
6031: p_token1_value => p_khr_number);
6032: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6033: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6034: Okl_Api.set_message(p_app_name => g_app_name,
6035: p_msg_name => 'OKL_AGN_CRE_BAL_ERROR',
6036: p_token1 => g_contract_number_token,
6037: p_token1_value => p_khr_number);
6030: p_token1 => g_contract_number_token,
6031: p_token1_value => p_khr_number);
6032: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6033: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6034: Okl_Api.set_message(p_app_name => g_app_name,
6035: p_msg_name => 'OKL_AGN_CRE_BAL_ERROR',
6036: p_token1 => g_contract_number_token,
6037: p_token1_value => p_khr_number);
6038: RAISE OKL_API.G_EXCEPTION_ERROR;
6034: Okl_Api.set_message(p_app_name => g_app_name,
6035: p_msg_name => 'OKL_AGN_CRE_BAL_ERROR',
6036: p_token1 => g_contract_number_token,
6037: p_token1_value => p_khr_number);
6038: RAISE OKL_API.G_EXCEPTION_ERROR;
6039: END IF;
6040: END IF;
6041: END IF;
6042: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6038: RAISE OKL_API.G_EXCEPTION_ERROR;
6039: END IF;
6040: END IF;
6041: END IF;
6042: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6043: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
6044:
6045: EXCEPTION
6046: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
6039: END IF;
6040: END IF;
6041: END IF;
6042: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6043: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
6044:
6045: EXCEPTION
6046: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
6047: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
6042: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6043: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
6044:
6045: EXCEPTION
6046: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
6047: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
6048: ,g_pkg_name
6049: ,'OKL_API.G_RET_STS_ERROR'
6050: ,x_msg_count
6043: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
6044:
6045: EXCEPTION
6046: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
6047: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
6048: ,g_pkg_name
6049: ,'OKL_API.G_RET_STS_ERROR'
6050: ,x_msg_count
6051: ,x_msg_data
6045: EXCEPTION
6046: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
6047: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
6048: ,g_pkg_name
6049: ,'OKL_API.G_RET_STS_ERROR'
6050: ,x_msg_count
6051: ,x_msg_data
6052: ,'_PVT');
6053:
6050: ,x_msg_count
6051: ,x_msg_data
6052: ,'_PVT');
6053:
6054: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6055: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
6056: ,g_pkg_name
6057: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
6058: ,x_msg_count
6051: ,x_msg_data
6052: ,'_PVT');
6053:
6054: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6055: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
6056: ,g_pkg_name
6057: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
6058: ,x_msg_count
6059: ,x_msg_data
6053:
6054: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6055: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
6056: ,g_pkg_name
6057: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
6058: ,x_msg_count
6059: ,x_msg_data
6060: ,'_PVT');
6061:
6064: IF get_balances_id_csr%ISOPEN THEN
6065: CLOSE get_balances_id_csr;
6066: END IF;
6067:
6068: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
6069: (l_api_name,
6070: G_PKG_NAME,
6071: 'OTHERS',
6072: x_msg_count,
6107: l_sob_name VARCHAR2(2000);
6108: l_sysdate DATE := SYSDATE;
6109: l_api_version CONSTANT NUMBER := 1.0;
6110: l_api_name CONSTANT VARCHAR2(30) := 'PROCESS_ACCRUALS';
6111: l_init_msg_list VARCHAR2(2000) := OKL_API.G_FALSE;
6112: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6113: l_msg_count NUMBER;
6114: l_msg_data VARCHAR2(2000);
6115: l_period_name VARCHAR2(2000);
6108: l_sysdate DATE := SYSDATE;
6109: l_api_version CONSTANT NUMBER := 1.0;
6110: l_api_name CONSTANT VARCHAR2(30) := 'PROCESS_ACCRUALS';
6111: l_init_msg_list VARCHAR2(2000) := OKL_API.G_FALSE;
6112: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6113: l_msg_count NUMBER;
6114: l_msg_data VARCHAR2(2000);
6115: l_period_name VARCHAR2(2000);
6116: l_period_start_date DATE;
6326: BEGIN
6327: WRITE_TO_LOG('');
6328: WRITE_TO_LOG('Inside procedure PROCESS_ACCRUALS');
6329: -- Set save point
6330: l_return_status := Okl_Api.START_ACTIVITY(l_api_name
6331: ,G_PKG_NAME
6332: ,l_init_msg_list
6333: ,l_api_version
6334: ,p_api_version
6334: ,p_api_version
6335: ,'_PVT'
6336: ,l_return_status);
6337:
6338: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6339: IF p_process_accrual_rec.submission_mode='BATCH' THEN
6340: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unexpected error in Start Activity');
6341: END IF;
6342: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6338: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6339: IF p_process_accrual_rec.submission_mode='BATCH' THEN
6340: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unexpected error in Start Activity');
6341: END IF;
6342: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6343: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
6344: IF p_process_accrual_rec.submission_mode='BATCH' THEN
6345: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in Start Activity');
6346: END IF;
6339: IF p_process_accrual_rec.submission_mode='BATCH' THEN
6340: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unexpected error in Start Activity');
6341: END IF;
6342: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6343: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
6344: IF p_process_accrual_rec.submission_mode='BATCH' THEN
6345: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in Start Activity');
6346: END IF;
6347: RAISE Okl_Api.G_EXCEPTION_ERROR;
6343: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
6344: IF p_process_accrual_rec.submission_mode='BATCH' THEN
6345: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in Start Activity');
6346: END IF;
6347: RAISE Okl_Api.G_EXCEPTION_ERROR;
6348: END IF;
6349:
6350: l_contract_id := p_process_accrual_rec.contract_id;
6351: l_contract_number := p_process_accrual_rec.contract_number;
6371: -- Check contract currency against functional currency
6372: IF l_func_currency_code <> l_khr_currency_code THEN
6373: --validate data
6374: IF l_currency_conv_type IS NULL THEN
6375: Okl_Api.set_message(p_app_name => g_app_name,
6376: p_msg_name => 'OKL_AGN_CURR_TYPE_ERROR',
6377: p_token1 => g_contract_number_token,
6378: p_token1_value => l_contract_number);
6379: RAISE Okl_Api.G_EXCEPTION_ERROR;
6375: Okl_Api.set_message(p_app_name => g_app_name,
6376: p_msg_name => 'OKL_AGN_CURR_TYPE_ERROR',
6377: p_token1 => g_contract_number_token,
6378: p_token1_value => l_contract_number);
6379: RAISE Okl_Api.G_EXCEPTION_ERROR;
6380: END IF;
6381: IF l_currency_conv_date IS NULL THEN
6382: Okl_Api.set_message(p_app_name => g_app_name,
6383: p_msg_name => 'OKL_AGN_CURR_DATE_ERROR',
6378: p_token1_value => l_contract_number);
6379: RAISE Okl_Api.G_EXCEPTION_ERROR;
6380: END IF;
6381: IF l_currency_conv_date IS NULL THEN
6382: Okl_Api.set_message(p_app_name => g_app_name,
6383: p_msg_name => 'OKL_AGN_CURR_DATE_ERROR',
6384: p_token1 => g_contract_number_token,
6385: p_token1_value => l_contract_number);
6386: RAISE Okl_Api.G_EXCEPTION_ERROR;
6382: Okl_Api.set_message(p_app_name => g_app_name,
6383: p_msg_name => 'OKL_AGN_CURR_DATE_ERROR',
6384: p_token1 => g_contract_number_token,
6385: p_token1_value => l_contract_number);
6386: RAISE Okl_Api.G_EXCEPTION_ERROR;
6387: END IF;
6388: IF l_currency_conv_type = 'User' THEN
6389: IF l_currency_conv_rate IS NULL THEN
6390: Okl_Api.set_message(p_app_name => g_app_name,
6386: RAISE Okl_Api.G_EXCEPTION_ERROR;
6387: END IF;
6388: IF l_currency_conv_type = 'User' THEN
6389: IF l_currency_conv_rate IS NULL THEN
6390: Okl_Api.set_message(p_app_name => g_app_name,
6391: p_msg_name => 'OKL_AGN_CURR_USER_RATE_ERROR',
6392: p_token1 => g_contract_number_token,
6393: p_token1_value => l_contract_number);
6394: RAISE Okl_Api.G_EXCEPTION_ERROR;
6390: Okl_Api.set_message(p_app_name => g_app_name,
6391: p_msg_name => 'OKL_AGN_CURR_USER_RATE_ERROR',
6392: p_token1 => g_contract_number_token,
6393: p_token1_value => l_contract_number);
6394: RAISE Okl_Api.G_EXCEPTION_ERROR;
6395: END IF;
6396: ELSE
6397: --Bug 3875747
6398: -- Use util to identify rate and not own query
6401: p_con_date => l_accrual_date, -- Bug#5410825
6402: p_con_type => l_currency_conv_type);
6403:
6404: IF l_currency_conv_rate IS NULL THEN
6405: Okl_Api.set_message(p_app_name => g_app_name,
6406: p_msg_name => 'OKL_AGN_CURR_RATE_ERROR',
6407: p_token1 => 'CONVERSION_TYPE',
6408: p_token1_value => l_currency_conv_type,
6409: p_token2 => 'FROM_CURRENCY',
6410: p_token2_value => l_khr_currency_code,
6411: p_token3 => 'TO_CURRENCY',
6412: p_token3_value => l_func_currency_code
6413: );
6414: RAISE Okl_Api.G_EXCEPTION_ERROR;
6415: END IF;
6416: l_currency_conv_date := l_accrual_date; --Bug 5410825
6417: END IF;
6418: END IF;
6422: -- OPEN billing_rule_csr(l_contract_id);
6423: -- FETCH billing_rule_csr INTO l_billing_rule_csr_v;
6424: -- IF billing_rule_csr%NOTFOUND THEN
6425: -- CLOSE billing_rule_csr;
6426: -- Okl_Api.set_message(p_app_name => g_app_name,
6427: -- p_msg_name => 'OKL_AGN_BILLING_RULE_ERROR',
6428: -- p_token1 => g_contract_number_token,
6429: -- p_token1_value => l_contract_number);
6430: -- RAISE G_EXCEPTION_HALT_VALIDATION;
6434: -- ELSIF l_billing_rule_csr_v.object1_id1 = '-2' THEN
6435: -- l_billing_type := 'ADVANCE';
6436: -- ELSE
6437: -- -- store SQL error message on message stack for caller
6438: -- Okl_Api.set_message(p_app_name => g_app_name,
6439: -- p_msg_name => 'OKL_AGN_INVALID_BILLING_RULE',
6440: -- p_token1 => g_contract_number_token,
6441: -- p_token1_value => l_contract_number);
6442: -- RAISE G_EXCEPTION_HALT_VALIDATION;
6456: -- --IF interest_rule_csr%NOTFOUND THEN
6457: -- -- commenting for bug# 2451627
6458: -- --CLOSE interest_rule_csr;
6459: -- ---- store SQL error message on message stack for caller
6460: -- --Okl_Api.set_message(p_app_name => g_app_name,
6461: -- -- p_msg_name => 'OKL_AGN_INT_RULE_ERROR',
6462: -- -- p_token1 => g_contract_number_token,
6463: -- -- p_token1_value => l_contract_number);
6464: -- --RAISE G_EXCEPTION_HALT_VALIDATION;
6522: WRITE_TO_LOG('Org Name :'||G_org_name);
6523: WRITE_TO_LOG('Accrual Rev Days :'||G_accrual_reversal_days);
6524: WRITE_TO_LOG('Func Currency Code:'||G_func_currency_code_rep);
6525:
6526: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6527: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6528: Okl_Api.set_message(p_app_name => g_app_name,
6529: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
6530: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6523: WRITE_TO_LOG('Accrual Rev Days :'||G_accrual_reversal_days);
6524: WRITE_TO_LOG('Func Currency Code:'||G_func_currency_code_rep);
6525:
6526: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6527: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6528: Okl_Api.set_message(p_app_name => g_app_name,
6529: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
6530: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6531: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
6524: WRITE_TO_LOG('Func Currency Code:'||G_func_currency_code_rep);
6525:
6526: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6527: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6528: Okl_Api.set_message(p_app_name => g_app_name,
6529: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
6530: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6531: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
6532: Okl_Api.set_message(p_app_name => g_app_name,
6526: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6527: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6528: Okl_Api.set_message(p_app_name => g_app_name,
6529: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
6530: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6531: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
6532: Okl_Api.set_message(p_app_name => g_app_name,
6533: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
6534: RAISE OKL_API.G_EXCEPTION_ERROR;
6527: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6528: Okl_Api.set_message(p_app_name => g_app_name,
6529: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
6530: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6531: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
6532: Okl_Api.set_message(p_app_name => g_app_name,
6533: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
6534: RAISE OKL_API.G_EXCEPTION_ERROR;
6535: END IF;
6528: Okl_Api.set_message(p_app_name => g_app_name,
6529: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
6530: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6531: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
6532: Okl_Api.set_message(p_app_name => g_app_name,
6533: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
6534: RAISE OKL_API.G_EXCEPTION_ERROR;
6535: END IF;
6536: END IF;
6530: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6531: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
6532: Okl_Api.set_message(p_app_name => g_app_name,
6533: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
6534: RAISE OKL_API.G_EXCEPTION_ERROR;
6535: END IF;
6536: END IF;
6537: END IF;
6538:
6546: CLOSE last_status_csr;
6547:
6548: IF l_previous_accrual_status IS NULL THEN
6549: -- Bug 2852781
6550: Okl_Api.set_message(p_app_name => g_app_name,
6551: p_msg_name => 'OKL_AGN_LAST_STATUS_ERROR',
6552: p_token1 => g_contract_number_token,
6553: p_token1_value => l_contract_number);
6554: RAISE Okl_Api.G_EXCEPTION_ERROR;
6550: Okl_Api.set_message(p_app_name => g_app_name,
6551: p_msg_name => 'OKL_AGN_LAST_STATUS_ERROR',
6552: p_token1 => g_contract_number_token,
6553: p_token1_value => l_contract_number);
6554: RAISE Okl_Api.G_EXCEPTION_ERROR;
6555: END IF;
6556: IF l_previous_override_status IS NULL THEN
6557: -- Bug 2852781
6558: Okl_Api.set_message(p_app_name => g_app_name,
6554: RAISE Okl_Api.G_EXCEPTION_ERROR;
6555: END IF;
6556: IF l_previous_override_status IS NULL THEN
6557: -- Bug 2852781
6558: Okl_Api.set_message(p_app_name => g_app_name,
6559: p_msg_name => 'OKL_AGN_LAST_STATUS_ERROR',
6560: p_token1 => g_contract_number_token,
6561: p_token1_value => l_contract_number);
6562: RAISE Okl_Api.G_EXCEPTION_ERROR;
6558: Okl_Api.set_message(p_app_name => g_app_name,
6559: p_msg_name => 'OKL_AGN_LAST_STATUS_ERROR',
6560: p_token1 => g_contract_number_token,
6561: p_token1_value => l_contract_number);
6562: RAISE Okl_Api.G_EXCEPTION_ERROR;
6563: END IF;
6564: ELSE
6565: -- No accrual activity. First run. So assign values from contract header.
6566: l_previous_accrual_status := l_accrual_status;
6569:
6570:
6571: -- -- Check if contract is syndicated
6572: -- l_return_status := GET_SYNDICATE_FLAG(l_contract_id,l_syndication_flag);
6573: -- IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6574: -- Okl_Api.set_message(p_app_name => g_app_name,
6575: -- p_msg_name => 'OKL_AGN_FAC_SYND_ERROR',
6576: -- p_token1 => g_contract_number_token,
6577: -- p_token1_value => l_contract_number);
6570:
6571: -- -- Check if contract is syndicated
6572: -- l_return_status := GET_SYNDICATE_FLAG(l_contract_id,l_syndication_flag);
6573: -- IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6574: -- Okl_Api.set_message(p_app_name => g_app_name,
6575: -- p_msg_name => 'OKL_AGN_FAC_SYND_ERROR',
6576: -- p_token1 => g_contract_number_token,
6577: -- p_token1_value => l_contract_number);
6578: -- RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6574: -- Okl_Api.set_message(p_app_name => g_app_name,
6575: -- p_msg_name => 'OKL_AGN_FAC_SYND_ERROR',
6576: -- p_token1 => g_contract_number_token,
6577: -- p_token1_value => l_contract_number);
6578: -- RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6579: -- END IF;
6580: --
6581: -- IF l_syndication_flag = 'Y' THEN
6582: -- l_factoring_synd_flag := 'SYNDICATION';
6582: -- l_factoring_synd_flag := 'SYNDICATION';
6583: -- ELSE
6584: -- -- check if contract is factored
6585: -- l_return_status := GET_FACTORING_FLAG(l_contract_id,l_factoring_flag);
6586: -- IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6587: -- Okl_Api.set_message(p_app_name => g_app_name,
6588: -- p_msg_name => 'OKL_AGN_FAC_SYND_ERROR',
6589: -- p_token1 => g_contract_number_token,
6590: -- p_token1_value => l_contract_number);
6583: -- ELSE
6584: -- -- check if contract is factored
6585: -- l_return_status := GET_FACTORING_FLAG(l_contract_id,l_factoring_flag);
6586: -- IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6587: -- Okl_Api.set_message(p_app_name => g_app_name,
6588: -- p_msg_name => 'OKL_AGN_FAC_SYND_ERROR',
6589: -- p_token1 => g_contract_number_token,
6590: -- p_token1_value => l_contract_number);
6591: -- RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6587: -- Okl_Api.set_message(p_app_name => g_app_name,
6588: -- p_msg_name => 'OKL_AGN_FAC_SYND_ERROR',
6589: -- p_token1 => g_contract_number_token,
6590: -- p_token1_value => l_contract_number);
6591: -- RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6592: -- END IF;
6593: -- IF l_factoring_flag = 'Y' THEN
6594: -- l_factoring_synd_flag := 'FACTORING';
6595: -- END IF;
6599: VALIDATE_ACCRUAL_RULE(x_return_status => l_return_status
6600: ,x_result => l_rule_result
6601: ,p_ctr_id => l_contract_id);
6602: -- store the highest degree of error
6603: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6604: Okl_Api.set_message(p_app_name => g_app_name,
6605: p_msg_name => 'OKL_AGN_RULE_VALD_ERROR',
6606: p_token1 => g_contract_number_token,
6607: p_token1_value => l_contract_number);
6600: ,x_result => l_rule_result
6601: ,p_ctr_id => l_contract_id);
6602: -- store the highest degree of error
6603: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6604: Okl_Api.set_message(p_app_name => g_app_name,
6605: p_msg_name => 'OKL_AGN_RULE_VALD_ERROR',
6606: p_token1 => g_contract_number_token,
6607: p_token1_value => l_contract_number);
6608: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6604: Okl_Api.set_message(p_app_name => g_app_name,
6605: p_msg_name => 'OKL_AGN_RULE_VALD_ERROR',
6606: p_token1 => g_contract_number_token,
6607: p_token1_value => l_contract_number);
6608: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6609: END IF;
6610:
6611: --
6612: -- Commenting for variable rate project. basis has changed.
6622: ,p_ctr_start_date => l_start_date
6623: ,p_period_end_date => l_period_end_date
6624: ,p_accrual_rule_yn => 'ACRL_WITH_RULE');
6625: -- store the highest degree of error
6626: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6627: Okl_Api.set_message(p_app_name => g_app_name,
6628: p_msg_name => 'OKL_AGN_STREAM_ERROR',
6629: p_token1 => g_contract_number_token,
6630: p_token1_value => l_contract_number);
6623: ,p_period_end_date => l_period_end_date
6624: ,p_accrual_rule_yn => 'ACRL_WITH_RULE');
6625: -- store the highest degree of error
6626: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6627: Okl_Api.set_message(p_app_name => g_app_name,
6628: p_msg_name => 'OKL_AGN_STREAM_ERROR',
6629: p_token1 => g_contract_number_token,
6630: p_token1_value => l_contract_number);
6631: RAISE OKL_API.G_EXCEPTION_ERROR;
6627: Okl_Api.set_message(p_app_name => g_app_name,
6628: p_msg_name => 'OKL_AGN_STREAM_ERROR',
6629: p_token1 => g_contract_number_token,
6630: p_token1_value => l_contract_number);
6631: RAISE OKL_API.G_EXCEPTION_ERROR;
6632: END IF;
6633:
6634: WRITE_TO_LOG('The count of stream elements that need to be accrued for PRIMARY is :'||l_stream_tbl.COUNT);
6635: IF (l_stream_tbl.COUNT = 0)
6648: ,p_period_end_date => G_PERIOD_END_DATE_REP
6649: ,p_accrual_rule_yn => 'ACRL_WITH_RULE');
6650: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
6651: -- store the highest degree of error
6652: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6653: Okl_Api.set_message(p_app_name => g_app_name,
6654: p_msg_name => 'OKL_AGN_STREAM_ERROR',
6655: p_token1 => g_contract_number_token,
6656: p_token1_value => l_contract_number);
6649: ,p_accrual_rule_yn => 'ACRL_WITH_RULE');
6650: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
6651: -- store the highest degree of error
6652: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6653: Okl_Api.set_message(p_app_name => g_app_name,
6654: p_msg_name => 'OKL_AGN_STREAM_ERROR',
6655: p_token1 => g_contract_number_token,
6656: p_token1_value => l_contract_number);
6657: RAISE OKL_API.G_EXCEPTION_ERROR;
6653: Okl_Api.set_message(p_app_name => g_app_name,
6654: p_msg_name => 'OKL_AGN_STREAM_ERROR',
6655: p_token1 => g_contract_number_token,
6656: p_token1_value => l_contract_number);
6657: RAISE OKL_API.G_EXCEPTION_ERROR;
6658: END IF;
6659:
6660: WRITE_TO_LOG('The count of stream elements that need to be accrued for SECONDARY is :'||l_stream_tbl_rep.COUNT);
6661: IF (l_stream_tbl_rep.COUNT = 0)
6708: x_catch_tcnv_tbl => l_tcnv_tbl,
6709: x_catch_tclv_tbl => l_tclv_tbl,
6710: p_catchup_rec => l_catchup_rec );
6711: -- store the highest degree of error
6712: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6713: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6714: -- need to leave
6715: Okl_Api.set_message(p_app_name => g_app_name,
6716: p_msg_name => 'OKL_AGN_CAT_ACR_ERROR',
6709: x_catch_tclv_tbl => l_tclv_tbl,
6710: p_catchup_rec => l_catchup_rec );
6711: -- store the highest degree of error
6712: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6713: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6714: -- need to leave
6715: Okl_Api.set_message(p_app_name => g_app_name,
6716: p_msg_name => 'OKL_AGN_CAT_ACR_ERROR',
6717: p_token1 => g_contract_number_token,
6711: -- store the highest degree of error
6712: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6713: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6714: -- need to leave
6715: Okl_Api.set_message(p_app_name => g_app_name,
6716: p_msg_name => 'OKL_AGN_CAT_ACR_ERROR',
6717: p_token1 => g_contract_number_token,
6718: p_token1_value => l_contract_number);
6719: -- Select the contract for error reporting
6716: p_msg_name => 'OKL_AGN_CAT_ACR_ERROR',
6717: p_token1 => g_contract_number_token,
6718: p_token1_value => l_contract_number);
6719: -- Select the contract for error reporting
6720: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6721: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
6722: Okl_Api.set_message(p_app_name => g_app_name,
6723: p_msg_name => 'OKL_AGN_CAT_ACR_ERROR',
6724: p_token1 => g_contract_number_token,
6717: p_token1 => g_contract_number_token,
6718: p_token1_value => l_contract_number);
6719: -- Select the contract for error reporting
6720: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6721: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
6722: Okl_Api.set_message(p_app_name => g_app_name,
6723: p_msg_name => 'OKL_AGN_CAT_ACR_ERROR',
6724: p_token1 => g_contract_number_token,
6725: p_token1_value => l_contract_number);
6718: p_token1_value => l_contract_number);
6719: -- Select the contract for error reporting
6720: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6721: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
6722: Okl_Api.set_message(p_app_name => g_app_name,
6723: p_msg_name => 'OKL_AGN_CAT_ACR_ERROR',
6724: p_token1 => g_contract_number_token,
6725: p_token1_value => l_contract_number);
6726: RAISE OKL_API.G_EXCEPTION_ERROR;
6722: Okl_Api.set_message(p_app_name => g_app_name,
6723: p_msg_name => 'OKL_AGN_CAT_ACR_ERROR',
6724: p_token1 => g_contract_number_token,
6725: p_token1_value => l_contract_number);
6726: RAISE OKL_API.G_EXCEPTION_ERROR;
6727: END IF;
6728: END IF;
6729:
6730: --Report content for reversal of non-accrual
6774: x_catch_tclv_tbl => l_tclv_tbl,
6775: p_catchup_rec => l_catchup_rec ,
6776: p_representation_type => 'SECONDARY' );
6777: -- store the highest degree of error
6778: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6779: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6780: -- need to leave
6781: Okl_Api.set_message(p_app_name => g_app_name,
6782: p_msg_name => 'OKL_AGN_CAT_ACR_ERROR',
6775: p_catchup_rec => l_catchup_rec ,
6776: p_representation_type => 'SECONDARY' );
6777: -- store the highest degree of error
6778: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6779: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6780: -- need to leave
6781: Okl_Api.set_message(p_app_name => g_app_name,
6782: p_msg_name => 'OKL_AGN_CAT_ACR_ERROR',
6783: p_token1 => g_contract_number_token,
6777: -- store the highest degree of error
6778: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6779: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6780: -- need to leave
6781: Okl_Api.set_message(p_app_name => g_app_name,
6782: p_msg_name => 'OKL_AGN_CAT_ACR_ERROR',
6783: p_token1 => g_contract_number_token,
6784: p_token1_value => l_contract_number);
6785: -- Select the contract for error reporting
6782: p_msg_name => 'OKL_AGN_CAT_ACR_ERROR',
6783: p_token1 => g_contract_number_token,
6784: p_token1_value => l_contract_number);
6785: -- Select the contract for error reporting
6786: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6787: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
6788: Okl_Api.set_message(p_app_name => g_app_name,
6789: p_msg_name => 'OKL_AGN_CAT_ACR_ERROR',
6790: p_token1 => g_contract_number_token,
6783: p_token1 => g_contract_number_token,
6784: p_token1_value => l_contract_number);
6785: -- Select the contract for error reporting
6786: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6787: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
6788: Okl_Api.set_message(p_app_name => g_app_name,
6789: p_msg_name => 'OKL_AGN_CAT_ACR_ERROR',
6790: p_token1 => g_contract_number_token,
6791: p_token1_value => l_contract_number);
6784: p_token1_value => l_contract_number);
6785: -- Select the contract for error reporting
6786: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6787: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
6788: Okl_Api.set_message(p_app_name => g_app_name,
6789: p_msg_name => 'OKL_AGN_CAT_ACR_ERROR',
6790: p_token1 => g_contract_number_token,
6791: p_token1_value => l_contract_number);
6792: RAISE OKL_API.G_EXCEPTION_ERROR;
6788: Okl_Api.set_message(p_app_name => g_app_name,
6789: p_msg_name => 'OKL_AGN_CAT_ACR_ERROR',
6790: p_token1 => g_contract_number_token,
6791: p_token1_value => l_contract_number);
6792: RAISE OKL_API.G_EXCEPTION_ERROR;
6793: END IF;
6794: END IF;
6795:
6796: --Report content for reversal of non-accrual
6879: p_accrual_rec => l_accrual_rec,
6880: p_stream_tbl => l_stream_tbl);
6881:
6882: -- store the highest degree of error
6883: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6884: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6885: -- need to leave
6886: Okl_Api.set_message(p_app_name => g_app_name,
6887: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
6880: p_stream_tbl => l_stream_tbl);
6881:
6882: -- store the highest degree of error
6883: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6884: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6885: -- need to leave
6886: Okl_Api.set_message(p_app_name => g_app_name,
6887: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
6888: p_token1 => g_contract_number_token,
6882: -- store the highest degree of error
6883: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6884: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6885: -- need to leave
6886: Okl_Api.set_message(p_app_name => g_app_name,
6887: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
6888: p_token1 => g_contract_number_token,
6889: p_token1_value => l_contract_number);
6890: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6886: Okl_Api.set_message(p_app_name => g_app_name,
6887: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
6888: p_token1 => g_contract_number_token,
6889: p_token1_value => l_contract_number);
6890: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6891: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
6892: Okl_Api.set_message(p_app_name => g_app_name,
6893: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
6894: p_token1 => g_contract_number_token,
6887: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
6888: p_token1 => g_contract_number_token,
6889: p_token1_value => l_contract_number);
6890: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6891: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
6892: Okl_Api.set_message(p_app_name => g_app_name,
6893: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
6894: p_token1 => g_contract_number_token,
6895: p_token1_value => l_contract_number);
6888: p_token1 => g_contract_number_token,
6889: p_token1_value => l_contract_number);
6890: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6891: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
6892: Okl_Api.set_message(p_app_name => g_app_name,
6893: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
6894: p_token1 => g_contract_number_token,
6895: p_token1_value => l_contract_number);
6896: RAISE OKL_API.G_EXCEPTION_ERROR;
6892: Okl_Api.set_message(p_app_name => g_app_name,
6893: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
6894: p_token1 => g_contract_number_token,
6895: p_token1_value => l_contract_number);
6896: RAISE OKL_API.G_EXCEPTION_ERROR;
6897: END IF;
6898: END IF;
6899: IF p_process_accrual_rec.submission_mode='BATCH' THEN
6900: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD(l_contract_number,28)||
6962: p_stream_tbl => l_stream_tbl_rep,
6963: p_representation_type => 'SECONDARY'); --MGAAP
6964:
6965: -- store the highest degree of error
6966: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6967: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6968: -- need to leave
6969: Okl_Api.set_message(p_app_name => g_app_name,
6970: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
6963: p_representation_type => 'SECONDARY'); --MGAAP
6964:
6965: -- store the highest degree of error
6966: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6967: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6968: -- need to leave
6969: Okl_Api.set_message(p_app_name => g_app_name,
6970: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
6971: p_token1 => g_contract_number_token,
6965: -- store the highest degree of error
6966: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6967: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6968: -- need to leave
6969: Okl_Api.set_message(p_app_name => g_app_name,
6970: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
6971: p_token1 => g_contract_number_token,
6972: p_token1_value => l_contract_number);
6973: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6969: Okl_Api.set_message(p_app_name => g_app_name,
6970: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
6971: p_token1 => g_contract_number_token,
6972: p_token1_value => l_contract_number);
6973: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6974: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
6975: Okl_Api.set_message(p_app_name => g_app_name,
6976: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
6977: p_token1 => g_contract_number_token,
6970: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
6971: p_token1 => g_contract_number_token,
6972: p_token1_value => l_contract_number);
6973: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6974: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
6975: Okl_Api.set_message(p_app_name => g_app_name,
6976: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
6977: p_token1 => g_contract_number_token,
6978: p_token1_value => l_contract_number);
6971: p_token1 => g_contract_number_token,
6972: p_token1_value => l_contract_number);
6973: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6974: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
6975: Okl_Api.set_message(p_app_name => g_app_name,
6976: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
6977: p_token1 => g_contract_number_token,
6978: p_token1_value => l_contract_number);
6979: RAISE OKL_API.G_EXCEPTION_ERROR;
6975: Okl_Api.set_message(p_app_name => g_app_name,
6976: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
6977: p_token1 => g_contract_number_token,
6978: p_token1_value => l_contract_number);
6979: RAISE OKL_API.G_EXCEPTION_ERROR;
6980: END IF;
6981: END IF;
6982: IF p_process_accrual_rec.submission_mode='BATCH' THEN
6983: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD(l_contract_number,28)||
7023: x_memo_tcnv_tbl => l_tcnv_tbl,
7024: x_memo_tclv_tbl => l_tclv_tbl,
7025: p_reverse_rec => l_reverse_rec );
7026: -- store the highest degree of error
7027: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7028: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7029: -- need to leave
7030: Okl_Api.set_message(p_app_name => g_app_name,
7031: p_msg_name => 'OKL_AGN_REV_ACR_ERROR',
7024: x_memo_tclv_tbl => l_tclv_tbl,
7025: p_reverse_rec => l_reverse_rec );
7026: -- store the highest degree of error
7027: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7028: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7029: -- need to leave
7030: Okl_Api.set_message(p_app_name => g_app_name,
7031: p_msg_name => 'OKL_AGN_REV_ACR_ERROR',
7032: p_token1 => g_contract_number_token,
7026: -- store the highest degree of error
7027: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7028: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7029: -- need to leave
7030: Okl_Api.set_message(p_app_name => g_app_name,
7031: p_msg_name => 'OKL_AGN_REV_ACR_ERROR',
7032: p_token1 => g_contract_number_token,
7033: p_token1_value => l_contract_number);
7034: -- Select the contract for error reporting
7031: p_msg_name => 'OKL_AGN_REV_ACR_ERROR',
7032: p_token1 => g_contract_number_token,
7033: p_token1_value => l_contract_number);
7034: -- Select the contract for error reporting
7035: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7036: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
7037: Okl_Api.set_message(p_app_name => g_app_name,
7038: p_msg_name => 'OKL_AGN_REV_ACR_ERROR',
7039: p_token1 => g_contract_number_token,
7032: p_token1 => g_contract_number_token,
7033: p_token1_value => l_contract_number);
7034: -- Select the contract for error reporting
7035: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7036: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
7037: Okl_Api.set_message(p_app_name => g_app_name,
7038: p_msg_name => 'OKL_AGN_REV_ACR_ERROR',
7039: p_token1 => g_contract_number_token,
7040: p_token1_value => l_contract_number);
7033: p_token1_value => l_contract_number);
7034: -- Select the contract for error reporting
7035: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7036: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
7037: Okl_Api.set_message(p_app_name => g_app_name,
7038: p_msg_name => 'OKL_AGN_REV_ACR_ERROR',
7039: p_token1 => g_contract_number_token,
7040: p_token1_value => l_contract_number);
7041: RAISE OKL_API.G_EXCEPTION_ERROR;
7037: Okl_Api.set_message(p_app_name => g_app_name,
7038: p_msg_name => 'OKL_AGN_REV_ACR_ERROR',
7039: p_token1 => g_contract_number_token,
7040: p_token1_value => l_contract_number);
7041: RAISE OKL_API.G_EXCEPTION_ERROR;
7042: END IF;
7043: END IF;
7044: -- Report Content for reverse accruals
7045: IF p_process_accrual_rec.submission_mode='BATCH' THEN
7091: x_memo_tclv_tbl => l_tclv_tbl,
7092: p_reverse_rec => l_reverse_rec,
7093: p_representation_type => 'SECONDARY' );
7094: -- store the highest degree of error
7095: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7096: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7097: -- need to leave
7098: Okl_Api.set_message(p_app_name => g_app_name,
7099: p_msg_name => 'OKL_AGN_REV_ACR_ERROR',
7092: p_reverse_rec => l_reverse_rec,
7093: p_representation_type => 'SECONDARY' );
7094: -- store the highest degree of error
7095: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7096: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7097: -- need to leave
7098: Okl_Api.set_message(p_app_name => g_app_name,
7099: p_msg_name => 'OKL_AGN_REV_ACR_ERROR',
7100: p_token1 => g_contract_number_token,
7094: -- store the highest degree of error
7095: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7096: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7097: -- need to leave
7098: Okl_Api.set_message(p_app_name => g_app_name,
7099: p_msg_name => 'OKL_AGN_REV_ACR_ERROR',
7100: p_token1 => g_contract_number_token,
7101: p_token1_value => l_contract_number);
7102: -- Select the contract for error reporting
7099: p_msg_name => 'OKL_AGN_REV_ACR_ERROR',
7100: p_token1 => g_contract_number_token,
7101: p_token1_value => l_contract_number);
7102: -- Select the contract for error reporting
7103: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7104: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
7105: Okl_Api.set_message(p_app_name => g_app_name,
7106: p_msg_name => 'OKL_AGN_REV_ACR_ERROR',
7107: p_token1 => g_contract_number_token,
7100: p_token1 => g_contract_number_token,
7101: p_token1_value => l_contract_number);
7102: -- Select the contract for error reporting
7103: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7104: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
7105: Okl_Api.set_message(p_app_name => g_app_name,
7106: p_msg_name => 'OKL_AGN_REV_ACR_ERROR',
7107: p_token1 => g_contract_number_token,
7108: p_token1_value => l_contract_number);
7101: p_token1_value => l_contract_number);
7102: -- Select the contract for error reporting
7103: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7104: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
7105: Okl_Api.set_message(p_app_name => g_app_name,
7106: p_msg_name => 'OKL_AGN_REV_ACR_ERROR',
7107: p_token1 => g_contract_number_token,
7108: p_token1_value => l_contract_number);
7109: RAISE OKL_API.G_EXCEPTION_ERROR;
7105: Okl_Api.set_message(p_app_name => g_app_name,
7106: p_msg_name => 'OKL_AGN_REV_ACR_ERROR',
7107: p_token1 => g_contract_number_token,
7108: p_token1_value => l_contract_number);
7109: RAISE OKL_API.G_EXCEPTION_ERROR;
7110: END IF;
7111: END IF;
7112: -- Report Content for reverse accruals
7113: IF p_process_accrual_rec.submission_mode='BATCH' THEN
7196: p_accrual_rec => l_accrual_rec,
7197: p_stream_tbl => l_stream_tbl);
7198:
7199: -- store the highest degree of error
7200: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7201: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7202: -- need to leave
7203: Okl_Api.set_message(p_app_name => g_app_name,
7204: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7197: p_stream_tbl => l_stream_tbl);
7198:
7199: -- store the highest degree of error
7200: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7201: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7202: -- need to leave
7203: Okl_Api.set_message(p_app_name => g_app_name,
7204: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7205: p_token1 => g_contract_number_token,
7199: -- store the highest degree of error
7200: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7201: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7202: -- need to leave
7203: Okl_Api.set_message(p_app_name => g_app_name,
7204: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7205: p_token1 => g_contract_number_token,
7206: p_token1_value => l_contract_number);
7207: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7203: Okl_Api.set_message(p_app_name => g_app_name,
7204: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7205: p_token1 => g_contract_number_token,
7206: p_token1_value => l_contract_number);
7207: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7208: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
7209: Okl_Api.set_message(p_app_name => g_app_name,
7210: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7211: p_token1 => g_contract_number_token,
7204: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7205: p_token1 => g_contract_number_token,
7206: p_token1_value => l_contract_number);
7207: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7208: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
7209: Okl_Api.set_message(p_app_name => g_app_name,
7210: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7211: p_token1 => g_contract_number_token,
7212: p_token1_value => l_contract_number);
7205: p_token1 => g_contract_number_token,
7206: p_token1_value => l_contract_number);
7207: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7208: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
7209: Okl_Api.set_message(p_app_name => g_app_name,
7210: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7211: p_token1 => g_contract_number_token,
7212: p_token1_value => l_contract_number);
7213: RAISE OKL_API.G_EXCEPTION_ERROR;
7209: Okl_Api.set_message(p_app_name => g_app_name,
7210: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7211: p_token1 => g_contract_number_token,
7212: p_token1_value => l_contract_number);
7213: RAISE OKL_API.G_EXCEPTION_ERROR;
7214: END IF;
7215: END IF;
7216:
7217: IF p_process_accrual_rec.submission_mode='BATCH' THEN
7278: p_stream_tbl => l_stream_tbl_rep,
7279: p_representation_type => 'SECONDARY'); --MGAAP
7280:
7281: -- store the highest degree of error
7282: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7283: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7284: -- need to leave
7285: Okl_Api.set_message(p_app_name => g_app_name,
7286: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7279: p_representation_type => 'SECONDARY'); --MGAAP
7280:
7281: -- store the highest degree of error
7282: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7283: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7284: -- need to leave
7285: Okl_Api.set_message(p_app_name => g_app_name,
7286: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7287: p_token1 => g_contract_number_token,
7281: -- store the highest degree of error
7282: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7283: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7284: -- need to leave
7285: Okl_Api.set_message(p_app_name => g_app_name,
7286: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7287: p_token1 => g_contract_number_token,
7288: p_token1_value => l_contract_number);
7289: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7285: Okl_Api.set_message(p_app_name => g_app_name,
7286: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7287: p_token1 => g_contract_number_token,
7288: p_token1_value => l_contract_number);
7289: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7290: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
7291: Okl_Api.set_message(p_app_name => g_app_name,
7292: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7293: p_token1 => g_contract_number_token,
7286: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7287: p_token1 => g_contract_number_token,
7288: p_token1_value => l_contract_number);
7289: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7290: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
7291: Okl_Api.set_message(p_app_name => g_app_name,
7292: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7293: p_token1 => g_contract_number_token,
7294: p_token1_value => l_contract_number);
7287: p_token1 => g_contract_number_token,
7288: p_token1_value => l_contract_number);
7289: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7290: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
7291: Okl_Api.set_message(p_app_name => g_app_name,
7292: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7293: p_token1 => g_contract_number_token,
7294: p_token1_value => l_contract_number);
7295: RAISE OKL_API.G_EXCEPTION_ERROR;
7291: Okl_Api.set_message(p_app_name => g_app_name,
7292: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7293: p_token1 => g_contract_number_token,
7294: p_token1_value => l_contract_number);
7295: RAISE OKL_API.G_EXCEPTION_ERROR;
7296: END IF;
7297: END IF;
7298:
7299: IF p_process_accrual_rec.submission_mode='BATCH' THEN
7339: x_catch_tcnv_tbl => l_tcnv_tbl,
7340: x_catch_tclv_tbl => l_tclv_tbl,
7341: p_catchup_rec => l_catchup_rec );
7342: -- store the highest degree of error
7343: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7344: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7345: -- need to leave
7346: Okl_Api.set_message(p_app_name => g_app_name,
7347: p_msg_name => 'OKL_AGN_CAT_ACR_ERROR',
7340: x_catch_tclv_tbl => l_tclv_tbl,
7341: p_catchup_rec => l_catchup_rec );
7342: -- store the highest degree of error
7343: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7344: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7345: -- need to leave
7346: Okl_Api.set_message(p_app_name => g_app_name,
7347: p_msg_name => 'OKL_AGN_CAT_ACR_ERROR',
7348: p_token1 => g_contract_number_token,
7342: -- store the highest degree of error
7343: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7344: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7345: -- need to leave
7346: Okl_Api.set_message(p_app_name => g_app_name,
7347: p_msg_name => 'OKL_AGN_CAT_ACR_ERROR',
7348: p_token1 => g_contract_number_token,
7349: p_token1_value => l_contract_number);
7350: -- Select the contract for error reporting
7347: p_msg_name => 'OKL_AGN_CAT_ACR_ERROR',
7348: p_token1 => g_contract_number_token,
7349: p_token1_value => l_contract_number);
7350: -- Select the contract for error reporting
7351: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7352: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
7353: Okl_Api.set_message(p_app_name => g_app_name,
7354: p_msg_name => 'OKL_AGN_CAT_ACR_ERROR',
7355: p_token1 => g_contract_number_token,
7348: p_token1 => g_contract_number_token,
7349: p_token1_value => l_contract_number);
7350: -- Select the contract for error reporting
7351: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7352: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
7353: Okl_Api.set_message(p_app_name => g_app_name,
7354: p_msg_name => 'OKL_AGN_CAT_ACR_ERROR',
7355: p_token1 => g_contract_number_token,
7356: p_token1_value => l_contract_number);
7349: p_token1_value => l_contract_number);
7350: -- Select the contract for error reporting
7351: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7352: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
7353: Okl_Api.set_message(p_app_name => g_app_name,
7354: p_msg_name => 'OKL_AGN_CAT_ACR_ERROR',
7355: p_token1 => g_contract_number_token,
7356: p_token1_value => l_contract_number);
7357: RAISE OKL_API.G_EXCEPTION_ERROR;
7353: Okl_Api.set_message(p_app_name => g_app_name,
7354: p_msg_name => 'OKL_AGN_CAT_ACR_ERROR',
7355: p_token1 => g_contract_number_token,
7356: p_token1_value => l_contract_number);
7357: RAISE OKL_API.G_EXCEPTION_ERROR;
7358: END IF;
7359: END IF; -- bug 2474969 moved end if which was after fnd_file
7360: -- as a result catchup entries were not printing.
7361:
7424: x_catch_tclv_tbl => l_tclv_tbl,
7425: p_catchup_rec => l_catchup_rec,
7426: p_representation_type => 'SECONDARY' );
7427: -- store the highest degree of error
7428: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7429: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7430: -- need to leave
7431: Okl_Api.set_message(p_app_name => g_app_name,
7432: p_msg_name => 'OKL_AGN_CAT_ACR_ERROR',
7425: p_catchup_rec => l_catchup_rec,
7426: p_representation_type => 'SECONDARY' );
7427: -- store the highest degree of error
7428: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7429: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7430: -- need to leave
7431: Okl_Api.set_message(p_app_name => g_app_name,
7432: p_msg_name => 'OKL_AGN_CAT_ACR_ERROR',
7433: p_token1 => g_contract_number_token,
7427: -- store the highest degree of error
7428: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7429: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7430: -- need to leave
7431: Okl_Api.set_message(p_app_name => g_app_name,
7432: p_msg_name => 'OKL_AGN_CAT_ACR_ERROR',
7433: p_token1 => g_contract_number_token,
7434: p_token1_value => l_contract_number);
7435: -- Select the contract for error reporting
7432: p_msg_name => 'OKL_AGN_CAT_ACR_ERROR',
7433: p_token1 => g_contract_number_token,
7434: p_token1_value => l_contract_number);
7435: -- Select the contract for error reporting
7436: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7437: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
7438: Okl_Api.set_message(p_app_name => g_app_name,
7439: p_msg_name => 'OKL_AGN_CAT_ACR_ERROR',
7440: p_token1 => g_contract_number_token,
7433: p_token1 => g_contract_number_token,
7434: p_token1_value => l_contract_number);
7435: -- Select the contract for error reporting
7436: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7437: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
7438: Okl_Api.set_message(p_app_name => g_app_name,
7439: p_msg_name => 'OKL_AGN_CAT_ACR_ERROR',
7440: p_token1 => g_contract_number_token,
7441: p_token1_value => l_contract_number);
7434: p_token1_value => l_contract_number);
7435: -- Select the contract for error reporting
7436: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7437: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
7438: Okl_Api.set_message(p_app_name => g_app_name,
7439: p_msg_name => 'OKL_AGN_CAT_ACR_ERROR',
7440: p_token1 => g_contract_number_token,
7441: p_token1_value => l_contract_number);
7442: RAISE OKL_API.G_EXCEPTION_ERROR;
7438: Okl_Api.set_message(p_app_name => g_app_name,
7439: p_msg_name => 'OKL_AGN_CAT_ACR_ERROR',
7440: p_token1 => g_contract_number_token,
7441: p_token1_value => l_contract_number);
7442: RAISE OKL_API.G_EXCEPTION_ERROR;
7443: END IF;
7444: END IF; -- bug 2474969 moved end if which was after fnd_file
7445: -- as a result catchup entries were not printing.
7446:
7528: x_tclv_tbl => l_tclv_tbl,
7529: p_accrual_rec => l_accrual_rec,
7530: p_stream_tbl => l_stream_tbl);
7531: -- store the highest degree of error
7532: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7533: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7534: -- need to leave
7535: Okl_Api.set_message(p_app_name => g_app_name,
7536: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7529: p_accrual_rec => l_accrual_rec,
7530: p_stream_tbl => l_stream_tbl);
7531: -- store the highest degree of error
7532: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7533: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7534: -- need to leave
7535: Okl_Api.set_message(p_app_name => g_app_name,
7536: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7537: p_token1 => g_contract_number_token,
7531: -- store the highest degree of error
7532: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7533: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7534: -- need to leave
7535: Okl_Api.set_message(p_app_name => g_app_name,
7536: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7537: p_token1 => g_contract_number_token,
7538: p_token1_value => l_contract_number);
7539: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7535: Okl_Api.set_message(p_app_name => g_app_name,
7536: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7537: p_token1 => g_contract_number_token,
7538: p_token1_value => l_contract_number);
7539: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7540: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
7541: Okl_Api.set_message(p_app_name => g_app_name,
7542: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7543: p_token1 => g_contract_number_token,
7536: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7537: p_token1 => g_contract_number_token,
7538: p_token1_value => l_contract_number);
7539: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7540: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
7541: Okl_Api.set_message(p_app_name => g_app_name,
7542: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7543: p_token1 => g_contract_number_token,
7544: p_token1_value => l_contract_number);
7537: p_token1 => g_contract_number_token,
7538: p_token1_value => l_contract_number);
7539: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7540: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
7541: Okl_Api.set_message(p_app_name => g_app_name,
7542: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7543: p_token1 => g_contract_number_token,
7544: p_token1_value => l_contract_number);
7545: RAISE OKL_API.G_EXCEPTION_ERROR;
7541: Okl_Api.set_message(p_app_name => g_app_name,
7542: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7543: p_token1 => g_contract_number_token,
7544: p_token1_value => l_contract_number);
7545: RAISE OKL_API.G_EXCEPTION_ERROR;
7546: END IF;
7547: END IF;
7548: IF p_process_accrual_rec.submission_mode='BATCH' THEN
7549: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD(l_contract_number,28)||
7609: p_accrual_rec => l_accrual_rec,
7610: p_stream_tbl => l_stream_tbl_rep,
7611: p_representation_type => 'SECONDARY');
7612: -- store the highest degree of error
7613: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7614: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7615: -- need to leave
7616: Okl_Api.set_message(p_app_name => g_app_name,
7617: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7610: p_stream_tbl => l_stream_tbl_rep,
7611: p_representation_type => 'SECONDARY');
7612: -- store the highest degree of error
7613: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7614: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7615: -- need to leave
7616: Okl_Api.set_message(p_app_name => g_app_name,
7617: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7618: p_token1 => g_contract_number_token,
7612: -- store the highest degree of error
7613: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7614: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7615: -- need to leave
7616: Okl_Api.set_message(p_app_name => g_app_name,
7617: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7618: p_token1 => g_contract_number_token,
7619: p_token1_value => l_contract_number);
7620: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7616: Okl_Api.set_message(p_app_name => g_app_name,
7617: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7618: p_token1 => g_contract_number_token,
7619: p_token1_value => l_contract_number);
7620: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7621: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
7622: Okl_Api.set_message(p_app_name => g_app_name,
7623: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7624: p_token1 => g_contract_number_token,
7617: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7618: p_token1 => g_contract_number_token,
7619: p_token1_value => l_contract_number);
7620: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7621: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
7622: Okl_Api.set_message(p_app_name => g_app_name,
7623: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7624: p_token1 => g_contract_number_token,
7625: p_token1_value => l_contract_number);
7618: p_token1 => g_contract_number_token,
7619: p_token1_value => l_contract_number);
7620: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7621: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
7622: Okl_Api.set_message(p_app_name => g_app_name,
7623: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7624: p_token1 => g_contract_number_token,
7625: p_token1_value => l_contract_number);
7626: RAISE OKL_API.G_EXCEPTION_ERROR;
7622: Okl_Api.set_message(p_app_name => g_app_name,
7623: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7624: p_token1 => g_contract_number_token,
7625: p_token1_value => l_contract_number);
7626: RAISE OKL_API.G_EXCEPTION_ERROR;
7627: END IF;
7628: END IF;
7629: IF p_process_accrual_rec.submission_mode='BATCH' THEN
7630: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD(l_contract_number,28)||
7689: p_accrual_rec => l_accrual_rec,
7690: p_stream_tbl => l_stream_tbl);
7691:
7692: -- store the highest degree of error
7693: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7694: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7695: -- need to leave
7696: Okl_Api.set_message(p_app_name => g_app_name,
7697: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7690: p_stream_tbl => l_stream_tbl);
7691:
7692: -- store the highest degree of error
7693: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7694: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7695: -- need to leave
7696: Okl_Api.set_message(p_app_name => g_app_name,
7697: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7698: p_token1 => g_contract_number_token,
7692: -- store the highest degree of error
7693: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7694: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7695: -- need to leave
7696: Okl_Api.set_message(p_app_name => g_app_name,
7697: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7698: p_token1 => g_contract_number_token,
7699: p_token1_value => l_contract_number);
7700: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7696: Okl_Api.set_message(p_app_name => g_app_name,
7697: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7698: p_token1 => g_contract_number_token,
7699: p_token1_value => l_contract_number);
7700: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7701: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
7702: Okl_Api.set_message(p_app_name => g_app_name,
7703: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7704: p_token1 => g_contract_number_token,
7697: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7698: p_token1 => g_contract_number_token,
7699: p_token1_value => l_contract_number);
7700: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7701: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
7702: Okl_Api.set_message(p_app_name => g_app_name,
7703: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7704: p_token1 => g_contract_number_token,
7705: p_token1_value => l_contract_number);
7698: p_token1 => g_contract_number_token,
7699: p_token1_value => l_contract_number);
7700: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7701: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
7702: Okl_Api.set_message(p_app_name => g_app_name,
7703: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7704: p_token1 => g_contract_number_token,
7705: p_token1_value => l_contract_number);
7706: RAISE OKL_API.G_EXCEPTION_ERROR;
7702: Okl_Api.set_message(p_app_name => g_app_name,
7703: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7704: p_token1 => g_contract_number_token,
7705: p_token1_value => l_contract_number);
7706: RAISE OKL_API.G_EXCEPTION_ERROR;
7707: END IF;
7708: END IF;
7709:
7710: IF p_process_accrual_rec.submission_mode='BATCH' THEN
7773: p_stream_tbl => l_stream_tbl_rep,
7774: p_representation_type => 'SECONDARY');
7775:
7776: -- store the highest degree of error
7777: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7778: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7779: -- need to leave
7780: Okl_Api.set_message(p_app_name => g_app_name,
7781: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7774: p_representation_type => 'SECONDARY');
7775:
7776: -- store the highest degree of error
7777: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7778: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7779: -- need to leave
7780: Okl_Api.set_message(p_app_name => g_app_name,
7781: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7782: p_token1 => g_contract_number_token,
7776: -- store the highest degree of error
7777: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7778: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7779: -- need to leave
7780: Okl_Api.set_message(p_app_name => g_app_name,
7781: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7782: p_token1 => g_contract_number_token,
7783: p_token1_value => l_contract_number);
7784: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7780: Okl_Api.set_message(p_app_name => g_app_name,
7781: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7782: p_token1 => g_contract_number_token,
7783: p_token1_value => l_contract_number);
7784: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7785: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
7786: Okl_Api.set_message(p_app_name => g_app_name,
7787: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7788: p_token1 => g_contract_number_token,
7781: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7782: p_token1 => g_contract_number_token,
7783: p_token1_value => l_contract_number);
7784: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7785: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
7786: Okl_Api.set_message(p_app_name => g_app_name,
7787: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7788: p_token1 => g_contract_number_token,
7789: p_token1_value => l_contract_number);
7782: p_token1 => g_contract_number_token,
7783: p_token1_value => l_contract_number);
7784: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7785: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
7786: Okl_Api.set_message(p_app_name => g_app_name,
7787: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7788: p_token1 => g_contract_number_token,
7789: p_token1_value => l_contract_number);
7790: RAISE OKL_API.G_EXCEPTION_ERROR;
7786: Okl_Api.set_message(p_app_name => g_app_name,
7787: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
7788: p_token1 => g_contract_number_token,
7789: p_token1_value => l_contract_number);
7790: RAISE OKL_API.G_EXCEPTION_ERROR;
7791: END IF;
7792: END IF;
7793:
7794: IF p_process_accrual_rec.submission_mode='BATCH' THEN
7836: x_memo_tcnv_tbl => l_tcnv_tbl,
7837: x_memo_tclv_tbl => l_tclv_tbl,
7838: p_reverse_rec => l_reverse_rec );
7839: -- store the highest degree of error
7840: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7841: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7842: -- need to leave
7843: Okl_Api.set_message(p_app_name => g_app_name,
7844: p_msg_name => 'OKL_AGN_REV_ACR_ERROR',
7837: x_memo_tclv_tbl => l_tclv_tbl,
7838: p_reverse_rec => l_reverse_rec );
7839: -- store the highest degree of error
7840: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7841: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7842: -- need to leave
7843: Okl_Api.set_message(p_app_name => g_app_name,
7844: p_msg_name => 'OKL_AGN_REV_ACR_ERROR',
7845: p_token1 => g_contract_number_token,
7839: -- store the highest degree of error
7840: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7841: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7842: -- need to leave
7843: Okl_Api.set_message(p_app_name => g_app_name,
7844: p_msg_name => 'OKL_AGN_REV_ACR_ERROR',
7845: p_token1 => g_contract_number_token,
7846: p_token1_value => l_contract_number);
7847: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7843: Okl_Api.set_message(p_app_name => g_app_name,
7844: p_msg_name => 'OKL_AGN_REV_ACR_ERROR',
7845: p_token1 => g_contract_number_token,
7846: p_token1_value => l_contract_number);
7847: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7848: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
7849: Okl_Api.set_message(p_app_name => g_app_name,
7850: p_msg_name => 'OKL_AGN_REV_ACR_ERROR',
7851: p_token1 => g_contract_number_token,
7844: p_msg_name => 'OKL_AGN_REV_ACR_ERROR',
7845: p_token1 => g_contract_number_token,
7846: p_token1_value => l_contract_number);
7847: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7848: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
7849: Okl_Api.set_message(p_app_name => g_app_name,
7850: p_msg_name => 'OKL_AGN_REV_ACR_ERROR',
7851: p_token1 => g_contract_number_token,
7852: p_token1_value => l_contract_number);
7845: p_token1 => g_contract_number_token,
7846: p_token1_value => l_contract_number);
7847: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7848: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
7849: Okl_Api.set_message(p_app_name => g_app_name,
7850: p_msg_name => 'OKL_AGN_REV_ACR_ERROR',
7851: p_token1 => g_contract_number_token,
7852: p_token1_value => l_contract_number);
7853: RAISE OKL_API.G_EXCEPTION_ERROR;
7849: Okl_Api.set_message(p_app_name => g_app_name,
7850: p_msg_name => 'OKL_AGN_REV_ACR_ERROR',
7851: p_token1 => g_contract_number_token,
7852: p_token1_value => l_contract_number);
7853: RAISE OKL_API.G_EXCEPTION_ERROR;
7854: END IF;
7855: END IF;
7856:
7857: IF p_process_accrual_rec.submission_mode='BATCH' THEN
7903: x_memo_tclv_tbl => l_tclv_tbl,
7904: p_reverse_rec => l_reverse_rec,
7905: p_representation_type => 'SECONDARY' );
7906: -- store the highest degree of error
7907: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7908: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7909: -- need to leave
7910: Okl_Api.set_message(p_app_name => g_app_name,
7911: p_msg_name => 'OKL_AGN_REV_ACR_ERROR',
7904: p_reverse_rec => l_reverse_rec,
7905: p_representation_type => 'SECONDARY' );
7906: -- store the highest degree of error
7907: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7908: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7909: -- need to leave
7910: Okl_Api.set_message(p_app_name => g_app_name,
7911: p_msg_name => 'OKL_AGN_REV_ACR_ERROR',
7912: p_token1 => g_contract_number_token,
7906: -- store the highest degree of error
7907: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7908: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7909: -- need to leave
7910: Okl_Api.set_message(p_app_name => g_app_name,
7911: p_msg_name => 'OKL_AGN_REV_ACR_ERROR',
7912: p_token1 => g_contract_number_token,
7913: p_token1_value => l_contract_number);
7914: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7910: Okl_Api.set_message(p_app_name => g_app_name,
7911: p_msg_name => 'OKL_AGN_REV_ACR_ERROR',
7912: p_token1 => g_contract_number_token,
7913: p_token1_value => l_contract_number);
7914: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7915: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
7916: Okl_Api.set_message(p_app_name => g_app_name,
7917: p_msg_name => 'OKL_AGN_REV_ACR_ERROR',
7918: p_token1 => g_contract_number_token,
7911: p_msg_name => 'OKL_AGN_REV_ACR_ERROR',
7912: p_token1 => g_contract_number_token,
7913: p_token1_value => l_contract_number);
7914: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7915: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
7916: Okl_Api.set_message(p_app_name => g_app_name,
7917: p_msg_name => 'OKL_AGN_REV_ACR_ERROR',
7918: p_token1 => g_contract_number_token,
7919: p_token1_value => l_contract_number);
7912: p_token1 => g_contract_number_token,
7913: p_token1_value => l_contract_number);
7914: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7915: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
7916: Okl_Api.set_message(p_app_name => g_app_name,
7917: p_msg_name => 'OKL_AGN_REV_ACR_ERROR',
7918: p_token1 => g_contract_number_token,
7919: p_token1_value => l_contract_number);
7920: RAISE OKL_API.G_EXCEPTION_ERROR;
7916: Okl_Api.set_message(p_app_name => g_app_name,
7917: p_msg_name => 'OKL_AGN_REV_ACR_ERROR',
7918: p_token1 => g_contract_number_token,
7919: p_token1_value => l_contract_number);
7920: RAISE OKL_API.G_EXCEPTION_ERROR;
7921: END IF;
7922: END IF;
7923:
7924: IF p_process_accrual_rec.submission_mode='BATCH' THEN
8008: p_accrual_rec => l_accrual_rec,
8009: p_stream_tbl => l_stream_tbl);
8010:
8011: -- store the highest degree of error
8012: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8013: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8014: -- need to leave
8015: Okl_Api.set_message(p_app_name => g_app_name,
8016: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8009: p_stream_tbl => l_stream_tbl);
8010:
8011: -- store the highest degree of error
8012: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8013: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8014: -- need to leave
8015: Okl_Api.set_message(p_app_name => g_app_name,
8016: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8017: p_token1 => g_contract_number_token,
8011: -- store the highest degree of error
8012: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8013: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8014: -- need to leave
8015: Okl_Api.set_message(p_app_name => g_app_name,
8016: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8017: p_token1 => g_contract_number_token,
8018: p_token1_value => l_contract_number);
8019: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8015: Okl_Api.set_message(p_app_name => g_app_name,
8016: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8017: p_token1 => g_contract_number_token,
8018: p_token1_value => l_contract_number);
8019: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8020: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
8021: Okl_Api.set_message(p_app_name => g_app_name,
8022: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8023: p_token1 => g_contract_number_token,
8016: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8017: p_token1 => g_contract_number_token,
8018: p_token1_value => l_contract_number);
8019: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8020: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
8021: Okl_Api.set_message(p_app_name => g_app_name,
8022: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8023: p_token1 => g_contract_number_token,
8024: p_token1_value => l_contract_number);
8017: p_token1 => g_contract_number_token,
8018: p_token1_value => l_contract_number);
8019: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8020: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
8021: Okl_Api.set_message(p_app_name => g_app_name,
8022: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8023: p_token1 => g_contract_number_token,
8024: p_token1_value => l_contract_number);
8025: RAISE OKL_API.G_EXCEPTION_ERROR;
8021: Okl_Api.set_message(p_app_name => g_app_name,
8022: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8023: p_token1 => g_contract_number_token,
8024: p_token1_value => l_contract_number);
8025: RAISE OKL_API.G_EXCEPTION_ERROR;
8026: END IF;
8027: END IF;
8028: IF p_process_accrual_rec.submission_mode='BATCH' THEN
8029: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD(l_contract_number,28)||
8091: p_stream_tbl => l_stream_tbl_rep,
8092: p_representation_type => 'SECONDARY');
8093:
8094: -- store the highest degree of error
8095: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8096: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8097: -- need to leave
8098: Okl_Api.set_message(p_app_name => g_app_name,
8099: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8092: p_representation_type => 'SECONDARY');
8093:
8094: -- store the highest degree of error
8095: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8096: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8097: -- need to leave
8098: Okl_Api.set_message(p_app_name => g_app_name,
8099: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8100: p_token1 => g_contract_number_token,
8094: -- store the highest degree of error
8095: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8096: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8097: -- need to leave
8098: Okl_Api.set_message(p_app_name => g_app_name,
8099: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8100: p_token1 => g_contract_number_token,
8101: p_token1_value => l_contract_number);
8102: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8098: Okl_Api.set_message(p_app_name => g_app_name,
8099: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8100: p_token1 => g_contract_number_token,
8101: p_token1_value => l_contract_number);
8102: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8103: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
8104: Okl_Api.set_message(p_app_name => g_app_name,
8105: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8106: p_token1 => g_contract_number_token,
8099: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8100: p_token1 => g_contract_number_token,
8101: p_token1_value => l_contract_number);
8102: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8103: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
8104: Okl_Api.set_message(p_app_name => g_app_name,
8105: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8106: p_token1 => g_contract_number_token,
8107: p_token1_value => l_contract_number);
8100: p_token1 => g_contract_number_token,
8101: p_token1_value => l_contract_number);
8102: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8103: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
8104: Okl_Api.set_message(p_app_name => g_app_name,
8105: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8106: p_token1 => g_contract_number_token,
8107: p_token1_value => l_contract_number);
8108: RAISE OKL_API.G_EXCEPTION_ERROR;
8104: Okl_Api.set_message(p_app_name => g_app_name,
8105: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8106: p_token1 => g_contract_number_token,
8107: p_token1_value => l_contract_number);
8108: RAISE OKL_API.G_EXCEPTION_ERROR;
8109: END IF;
8110: END IF;
8111: IF p_process_accrual_rec.submission_mode='BATCH' THEN
8112: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD(l_contract_number,28)||
8133: ,p_ctr_start_date => l_start_date
8134: ,p_period_end_date => l_period_end_date
8135: ,p_accrual_rule_yn => 'ACRL_WITHOUT_RULE');
8136: -- store the highest degree of error
8137: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8138: Okl_Api.set_message(p_app_name => g_app_name,
8139: p_msg_name => 'OKL_AGN_STREAM_ERROR',
8140: p_token1 => g_contract_number_token,
8141: p_token1_value => l_contract_number);
8134: ,p_period_end_date => l_period_end_date
8135: ,p_accrual_rule_yn => 'ACRL_WITHOUT_RULE');
8136: -- store the highest degree of error
8137: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8138: Okl_Api.set_message(p_app_name => g_app_name,
8139: p_msg_name => 'OKL_AGN_STREAM_ERROR',
8140: p_token1 => g_contract_number_token,
8141: p_token1_value => l_contract_number);
8142: RAISE OKL_API.G_EXCEPTION_ERROR;
8138: Okl_Api.set_message(p_app_name => g_app_name,
8139: p_msg_name => 'OKL_AGN_STREAM_ERROR',
8140: p_token1 => g_contract_number_token,
8141: p_token1_value => l_contract_number);
8142: RAISE OKL_API.G_EXCEPTION_ERROR;
8143: END IF;
8144: l_tcnv_rec.trx_number := null; -- Bug 7555143
8145: l_tcnv_rec.ID := null;
8146: IF l_stream_tbl.COUNT > 0 THEN
8195: x_tclv_tbl => l_tclv_tbl,
8196: p_accrual_rec => l_accrual_rec,
8197: p_stream_tbl => l_stream_tbl);
8198:
8199: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8200: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8201: -- need to leave
8202: Okl_Api.set_message(p_app_name => g_app_name,
8203: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8196: p_accrual_rec => l_accrual_rec,
8197: p_stream_tbl => l_stream_tbl);
8198:
8199: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8200: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8201: -- need to leave
8202: Okl_Api.set_message(p_app_name => g_app_name,
8203: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8204: p_token1 => g_contract_number_token,
8198:
8199: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8200: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8201: -- need to leave
8202: Okl_Api.set_message(p_app_name => g_app_name,
8203: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8204: p_token1 => g_contract_number_token,
8205: p_token1_value => l_contract_number);
8206: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8202: Okl_Api.set_message(p_app_name => g_app_name,
8203: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8204: p_token1 => g_contract_number_token,
8205: p_token1_value => l_contract_number);
8206: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8207: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
8208: Okl_Api.set_message(p_app_name => g_app_name,
8209: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8210: p_token1 => g_contract_number_token,
8203: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8204: p_token1 => g_contract_number_token,
8205: p_token1_value => l_contract_number);
8206: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8207: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
8208: Okl_Api.set_message(p_app_name => g_app_name,
8209: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8210: p_token1 => g_contract_number_token,
8211: p_token1_value => l_contract_number);
8204: p_token1 => g_contract_number_token,
8205: p_token1_value => l_contract_number);
8206: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8207: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
8208: Okl_Api.set_message(p_app_name => g_app_name,
8209: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8210: p_token1 => g_contract_number_token,
8211: p_token1_value => l_contract_number);
8212: RAISE OKL_API.G_EXCEPTION_ERROR;
8208: Okl_Api.set_message(p_app_name => g_app_name,
8209: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8210: p_token1 => g_contract_number_token,
8211: p_token1_value => l_contract_number);
8212: RAISE OKL_API.G_EXCEPTION_ERROR;
8213: END IF;
8214: END IF;
8215: IF p_process_accrual_rec.submission_mode='BATCH' THEN
8216: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD(l_contract_number,28)||
8240: -- store the highest degree of error
8241:
8242: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
8243:
8244: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8245: Okl_Api.set_message(p_app_name => g_app_name,
8246: p_msg_name => 'OKL_AGN_STREAM_ERROR',
8247: p_token1 => g_contract_number_token,
8248: p_token1_value => l_contract_number);
8241:
8242: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
8243:
8244: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8245: Okl_Api.set_message(p_app_name => g_app_name,
8246: p_msg_name => 'OKL_AGN_STREAM_ERROR',
8247: p_token1 => g_contract_number_token,
8248: p_token1_value => l_contract_number);
8249: RAISE OKL_API.G_EXCEPTION_ERROR;
8245: Okl_Api.set_message(p_app_name => g_app_name,
8246: p_msg_name => 'OKL_AGN_STREAM_ERROR',
8247: p_token1 => g_contract_number_token,
8248: p_token1_value => l_contract_number);
8249: RAISE OKL_API.G_EXCEPTION_ERROR;
8250: END IF;
8251: IF l_stream_tbl_rep.COUNT > 0 THEN
8252:
8253: -- re-initialize necessary variables
8307: p_accrual_rec => l_accrual_rec,
8308: p_stream_tbl => l_stream_tbl_rep,
8309: p_representation_type => 'SECONDARY');
8310:
8311: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8312: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8313: -- need to leave
8314: Okl_Api.set_message(p_app_name => g_app_name,
8315: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8308: p_stream_tbl => l_stream_tbl_rep,
8309: p_representation_type => 'SECONDARY');
8310:
8311: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8312: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8313: -- need to leave
8314: Okl_Api.set_message(p_app_name => g_app_name,
8315: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8316: p_token1 => g_contract_number_token,
8310:
8311: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8312: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8313: -- need to leave
8314: Okl_Api.set_message(p_app_name => g_app_name,
8315: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8316: p_token1 => g_contract_number_token,
8317: p_token1_value => l_contract_number);
8318: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8314: Okl_Api.set_message(p_app_name => g_app_name,
8315: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8316: p_token1 => g_contract_number_token,
8317: p_token1_value => l_contract_number);
8318: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8319: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
8320: Okl_Api.set_message(p_app_name => g_app_name,
8321: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8322: p_token1 => g_contract_number_token,
8315: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8316: p_token1 => g_contract_number_token,
8317: p_token1_value => l_contract_number);
8318: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8319: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
8320: Okl_Api.set_message(p_app_name => g_app_name,
8321: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8322: p_token1 => g_contract_number_token,
8323: p_token1_value => l_contract_number);
8316: p_token1 => g_contract_number_token,
8317: p_token1_value => l_contract_number);
8318: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8319: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
8320: Okl_Api.set_message(p_app_name => g_app_name,
8321: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8322: p_token1 => g_contract_number_token,
8323: p_token1_value => l_contract_number);
8324: RAISE OKL_API.G_EXCEPTION_ERROR;
8320: Okl_Api.set_message(p_app_name => g_app_name,
8321: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8322: p_token1 => g_contract_number_token,
8323: p_token1_value => l_contract_number);
8324: RAISE OKL_API.G_EXCEPTION_ERROR;
8325: END IF;
8326: END IF;
8327: IF p_process_accrual_rec.submission_mode='BATCH' THEN
8328: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD(l_contract_number,28)||
8355: -- FETCH sty_id_csr INTO l_sty_id;
8356: -- IF sty_id_csr%NOTFOUND THEN
8357: -- CLOSE sty_id_csr;
8358: -- -- store SQL error message on message stack for caller and entry in log file
8359: -- Okl_Api.set_message(p_app_name => g_app_name,
8360: -- p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
8361: -- p_token1 => g_stream_name_token,
8362: -- p_token1_value => 'VARIABLE INCOME ACCRUAL');
8363: -- RAISE Okl_Api.G_EXCEPTION_ERROR;
8359: -- Okl_Api.set_message(p_app_name => g_app_name,
8360: -- p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
8361: -- p_token1 => g_stream_name_token,
8362: -- p_token1_value => 'VARIABLE INCOME ACCRUAL');
8363: -- RAISE Okl_Api.G_EXCEPTION_ERROR;
8364: -- END IF;
8365: -- CLOSE sty_id_csr;
8366:
8367: -- Get the stream type id for variable interest rate product
8371: p_dependent_sty_purpose => 'VARIABLE_INTEREST_INCOME',
8372: x_return_status => l_return_status,
8373: x_dependent_sty_id => l_sty_id);
8374:
8375: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
8376: -- store SQL error message on message stack for caller and entry in log file
8377: Okl_Api.set_message(p_app_name => g_app_name,
8378: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
8379: p_token1 => g_stream_name_token,
8373: x_dependent_sty_id => l_sty_id);
8374:
8375: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
8376: -- store SQL error message on message stack for caller and entry in log file
8377: Okl_Api.set_message(p_app_name => g_app_name,
8378: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
8379: p_token1 => g_stream_name_token,
8380: p_token1_value => 'VARIABLE INTEREST INCOME');
8381: RAISE Okl_Api.G_EXCEPTION_ERROR;
8377: Okl_Api.set_message(p_app_name => g_app_name,
8378: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
8379: p_token1 => g_stream_name_token,
8380: p_token1_value => 'VARIABLE INTEREST INCOME');
8381: RAISE Okl_Api.G_EXCEPTION_ERROR;
8382: END IF;
8383:
8384: -- MGAAP 7263041 start
8385: IF (l_multi_gaap_yn = 'Y') THEN
8390: p_dependent_sty_purpose => 'VARIABLE_INTEREST_INCOME',
8391: x_return_status => l_return_status,
8392: x_dependent_sty_id => l_sty_id_rep);
8393:
8394: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
8395: -- store SQL error message on message stack for caller and entry in log file
8396: Okl_Api.set_message(p_app_name => g_app_name,
8397: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
8398: p_token1 => g_stream_name_token,
8392: x_dependent_sty_id => l_sty_id_rep);
8393:
8394: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
8395: -- store SQL error message on message stack for caller and entry in log file
8396: Okl_Api.set_message(p_app_name => g_app_name,
8397: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
8398: p_token1 => g_stream_name_token,
8399: p_token1_value => 'VARIABLE INTEREST INCOME');
8400: RAISE Okl_Api.G_EXCEPTION_ERROR;
8396: Okl_Api.set_message(p_app_name => g_app_name,
8397: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
8398: p_token1 => g_stream_name_token,
8399: p_token1_value => 'VARIABLE INTEREST INCOME');
8400: RAISE Okl_Api.G_EXCEPTION_ERROR;
8401: END IF;
8402: END IF;
8403: -- MGAAP 7263041 end
8404:
8534: p_accrual_rec => l_accrual_rec,
8535: p_ctxt_val_tbl => l_ctxt_val_tbl);
8536:
8537: -- store the highest degree of error
8538: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8539: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8540: -- need to leave
8541: Okl_Api.set_message(p_app_name => g_app_name,
8542: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8535: p_ctxt_val_tbl => l_ctxt_val_tbl);
8536:
8537: -- store the highest degree of error
8538: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8539: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8540: -- need to leave
8541: Okl_Api.set_message(p_app_name => g_app_name,
8542: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8543: p_token1 => g_contract_number_token,
8537: -- store the highest degree of error
8538: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8539: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8540: -- need to leave
8541: Okl_Api.set_message(p_app_name => g_app_name,
8542: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8543: p_token1 => g_contract_number_token,
8544: p_token1_value => l_contract_number);
8545: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8541: Okl_Api.set_message(p_app_name => g_app_name,
8542: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8543: p_token1 => g_contract_number_token,
8544: p_token1_value => l_contract_number);
8545: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8546: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
8547: Okl_Api.set_message(p_app_name => g_app_name,
8548: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8549: p_token1 => g_contract_number_token,
8542: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8543: p_token1 => g_contract_number_token,
8544: p_token1_value => l_contract_number);
8545: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8546: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
8547: Okl_Api.set_message(p_app_name => g_app_name,
8548: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8549: p_token1 => g_contract_number_token,
8550: p_token1_value => l_contract_number);
8543: p_token1 => g_contract_number_token,
8544: p_token1_value => l_contract_number);
8545: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8546: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
8547: Okl_Api.set_message(p_app_name => g_app_name,
8548: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8549: p_token1 => g_contract_number_token,
8550: p_token1_value => l_contract_number);
8551: RAISE OKL_API.G_EXCEPTION_ERROR;
8547: Okl_Api.set_message(p_app_name => g_app_name,
8548: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8549: p_token1 => g_contract_number_token,
8550: p_token1_value => l_contract_number);
8551: RAISE OKL_API.G_EXCEPTION_ERROR;
8552: END IF;
8553: END IF;
8554: IF p_process_accrual_rec.submission_mode='BATCH' THEN
8555: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD(l_contract_number,28)||
8586: p_ctxt_val_tbl => l_ctxt_val_tbl,
8587: p_representation_type => 'SECONDARY'); -- MGAAP
8588:
8589: -- store the highest degree of error
8590: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8591: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8592: -- need to leave
8593: Okl_Api.set_message(p_app_name => g_app_name,
8594: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8587: p_representation_type => 'SECONDARY'); -- MGAAP
8588:
8589: -- store the highest degree of error
8590: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8591: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8592: -- need to leave
8593: Okl_Api.set_message(p_app_name => g_app_name,
8594: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8595: p_token1 => g_contract_number_token,
8589: -- store the highest degree of error
8590: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8591: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8592: -- need to leave
8593: Okl_Api.set_message(p_app_name => g_app_name,
8594: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8595: p_token1 => g_contract_number_token,
8596: p_token1_value => l_contract_number);
8597: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8593: Okl_Api.set_message(p_app_name => g_app_name,
8594: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8595: p_token1 => g_contract_number_token,
8596: p_token1_value => l_contract_number);
8597: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8598: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
8599: Okl_Api.set_message(p_app_name => g_app_name,
8600: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8601: p_token1 => g_contract_number_token,
8594: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8595: p_token1 => g_contract_number_token,
8596: p_token1_value => l_contract_number);
8597: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8598: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
8599: Okl_Api.set_message(p_app_name => g_app_name,
8600: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8601: p_token1 => g_contract_number_token,
8602: p_token1_value => l_contract_number);
8595: p_token1 => g_contract_number_token,
8596: p_token1_value => l_contract_number);
8597: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8598: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
8599: Okl_Api.set_message(p_app_name => g_app_name,
8600: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8601: p_token1 => g_contract_number_token,
8602: p_token1_value => l_contract_number);
8603: RAISE OKL_API.G_EXCEPTION_ERROR;
8599: Okl_Api.set_message(p_app_name => g_app_name,
8600: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8601: p_token1 => g_contract_number_token,
8602: p_token1_value => l_contract_number);
8603: RAISE OKL_API.G_EXCEPTION_ERROR;
8604: END IF;
8605: END IF;
8606: IF p_process_accrual_rec.submission_mode='BATCH' THEN
8607: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD(l_contract_number,28)||
8675: p_accrual_rec => l_accrual_rec,
8676: p_ctxt_val_tbl => l_ctxt_val_tbl);
8677:
8678: -- store the highest degree of error
8679: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8680: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8681: -- need to leave
8682: Okl_Api.set_message(p_app_name => g_app_name,
8683: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8676: p_ctxt_val_tbl => l_ctxt_val_tbl);
8677:
8678: -- store the highest degree of error
8679: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8680: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8681: -- need to leave
8682: Okl_Api.set_message(p_app_name => g_app_name,
8683: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8684: p_token1 => g_contract_number_token,
8678: -- store the highest degree of error
8679: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8680: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8681: -- need to leave
8682: Okl_Api.set_message(p_app_name => g_app_name,
8683: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8684: p_token1 => g_contract_number_token,
8685: p_token1_value => l_contract_number);
8686: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8682: Okl_Api.set_message(p_app_name => g_app_name,
8683: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8684: p_token1 => g_contract_number_token,
8685: p_token1_value => l_contract_number);
8686: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8687: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
8688: Okl_Api.set_message(p_app_name => g_app_name,
8689: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8690: p_token1 => g_contract_number_token,
8683: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8684: p_token1 => g_contract_number_token,
8685: p_token1_value => l_contract_number);
8686: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8687: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
8688: Okl_Api.set_message(p_app_name => g_app_name,
8689: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8690: p_token1 => g_contract_number_token,
8691: p_token1_value => l_contract_number);
8684: p_token1 => g_contract_number_token,
8685: p_token1_value => l_contract_number);
8686: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8687: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
8688: Okl_Api.set_message(p_app_name => g_app_name,
8689: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8690: p_token1 => g_contract_number_token,
8691: p_token1_value => l_contract_number);
8692: RAISE OKL_API.G_EXCEPTION_ERROR;
8688: Okl_Api.set_message(p_app_name => g_app_name,
8689: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8690: p_token1 => g_contract_number_token,
8691: p_token1_value => l_contract_number);
8692: RAISE OKL_API.G_EXCEPTION_ERROR;
8693: END IF;
8694: END IF;
8695:
8696: IF p_process_accrual_rec.submission_mode='BATCH' THEN
8728: p_ctxt_val_tbl => l_ctxt_val_tbl,
8729: p_representation_type => 'SECONDARY'); -- MGAAP
8730:
8731: -- store the highest degree of error
8732: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8733: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8734: -- need to leave
8735: Okl_Api.set_message(p_app_name => g_app_name,
8736: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8729: p_representation_type => 'SECONDARY'); -- MGAAP
8730:
8731: -- store the highest degree of error
8732: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8733: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8734: -- need to leave
8735: Okl_Api.set_message(p_app_name => g_app_name,
8736: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8737: p_token1 => g_contract_number_token,
8731: -- store the highest degree of error
8732: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8733: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8734: -- need to leave
8735: Okl_Api.set_message(p_app_name => g_app_name,
8736: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8737: p_token1 => g_contract_number_token,
8738: p_token1_value => l_contract_number);
8739: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8735: Okl_Api.set_message(p_app_name => g_app_name,
8736: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8737: p_token1 => g_contract_number_token,
8738: p_token1_value => l_contract_number);
8739: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8740: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
8741: Okl_Api.set_message(p_app_name => g_app_name,
8742: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8743: p_token1 => g_contract_number_token,
8736: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8737: p_token1 => g_contract_number_token,
8738: p_token1_value => l_contract_number);
8739: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8740: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
8741: Okl_Api.set_message(p_app_name => g_app_name,
8742: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8743: p_token1 => g_contract_number_token,
8744: p_token1_value => l_contract_number);
8737: p_token1 => g_contract_number_token,
8738: p_token1_value => l_contract_number);
8739: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8740: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
8741: Okl_Api.set_message(p_app_name => g_app_name,
8742: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8743: p_token1 => g_contract_number_token,
8744: p_token1_value => l_contract_number);
8745: RAISE OKL_API.G_EXCEPTION_ERROR;
8741: Okl_Api.set_message(p_app_name => g_app_name,
8742: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8743: p_token1 => g_contract_number_token,
8744: p_token1_value => l_contract_number);
8745: RAISE OKL_API.G_EXCEPTION_ERROR;
8746: END IF;
8747: END IF;
8748:
8749: IF p_process_accrual_rec.submission_mode='BATCH' THEN
8819: p_accrual_rec => l_accrual_rec,
8820: p_ctxt_val_tbl => l_ctxt_val_tbl);
8821:
8822: -- store the highest degree of error
8823: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8824: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8825: -- need to leave
8826: Okl_Api.set_message(p_app_name => g_app_name,
8827: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8820: p_ctxt_val_tbl => l_ctxt_val_tbl);
8821:
8822: -- store the highest degree of error
8823: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8824: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8825: -- need to leave
8826: Okl_Api.set_message(p_app_name => g_app_name,
8827: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8828: p_token1 => g_contract_number_token,
8822: -- store the highest degree of error
8823: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8824: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8825: -- need to leave
8826: Okl_Api.set_message(p_app_name => g_app_name,
8827: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8828: p_token1 => g_contract_number_token,
8829: p_token1_value => l_contract_number);
8830: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8826: Okl_Api.set_message(p_app_name => g_app_name,
8827: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8828: p_token1 => g_contract_number_token,
8829: p_token1_value => l_contract_number);
8830: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8831: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
8832: Okl_Api.set_message(p_app_name => g_app_name,
8833: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8834: p_token1 => g_contract_number_token,
8827: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8828: p_token1 => g_contract_number_token,
8829: p_token1_value => l_contract_number);
8830: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8831: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
8832: Okl_Api.set_message(p_app_name => g_app_name,
8833: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8834: p_token1 => g_contract_number_token,
8835: p_token1_value => l_contract_number);
8828: p_token1 => g_contract_number_token,
8829: p_token1_value => l_contract_number);
8830: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8831: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
8832: Okl_Api.set_message(p_app_name => g_app_name,
8833: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8834: p_token1 => g_contract_number_token,
8835: p_token1_value => l_contract_number);
8836: RAISE OKL_API.G_EXCEPTION_ERROR;
8832: Okl_Api.set_message(p_app_name => g_app_name,
8833: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8834: p_token1 => g_contract_number_token,
8835: p_token1_value => l_contract_number);
8836: RAISE OKL_API.G_EXCEPTION_ERROR;
8837: END IF;
8838: END IF;
8839: IF p_process_accrual_rec.submission_mode='BATCH' THEN
8840: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD(l_contract_number,28)||
8870: p_ctxt_val_tbl => l_ctxt_val_tbl,
8871: p_representation_type => 'SECONDARY');
8872:
8873: -- store the highest degree of error
8874: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8875: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8876: -- need to leave
8877: Okl_Api.set_message(p_app_name => g_app_name,
8878: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8871: p_representation_type => 'SECONDARY');
8872:
8873: -- store the highest degree of error
8874: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8875: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8876: -- need to leave
8877: Okl_Api.set_message(p_app_name => g_app_name,
8878: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8879: p_token1 => g_contract_number_token,
8873: -- store the highest degree of error
8874: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8875: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8876: -- need to leave
8877: Okl_Api.set_message(p_app_name => g_app_name,
8878: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8879: p_token1 => g_contract_number_token,
8880: p_token1_value => l_contract_number);
8881: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8877: Okl_Api.set_message(p_app_name => g_app_name,
8878: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8879: p_token1 => g_contract_number_token,
8880: p_token1_value => l_contract_number);
8881: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8882: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
8883: Okl_Api.set_message(p_app_name => g_app_name,
8884: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8885: p_token1 => g_contract_number_token,
8878: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8879: p_token1 => g_contract_number_token,
8880: p_token1_value => l_contract_number);
8881: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8882: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
8883: Okl_Api.set_message(p_app_name => g_app_name,
8884: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8885: p_token1 => g_contract_number_token,
8886: p_token1_value => l_contract_number);
8879: p_token1 => g_contract_number_token,
8880: p_token1_value => l_contract_number);
8881: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8882: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
8883: Okl_Api.set_message(p_app_name => g_app_name,
8884: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8885: p_token1 => g_contract_number_token,
8886: p_token1_value => l_contract_number);
8887: RAISE OKL_API.G_EXCEPTION_ERROR;
8883: Okl_Api.set_message(p_app_name => g_app_name,
8884: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8885: p_token1 => g_contract_number_token,
8886: p_token1_value => l_contract_number);
8887: RAISE OKL_API.G_EXCEPTION_ERROR;
8888: END IF;
8889: END IF;
8890: IF p_process_accrual_rec.submission_mode='BATCH' THEN
8891: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD(l_contract_number,28)||
8960: p_accrual_rec => l_accrual_rec,
8961: p_ctxt_val_tbl => l_ctxt_val_tbl);
8962:
8963: -- store the highest degree of error
8964: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8965: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8966: -- need to leave
8967: Okl_Api.set_message(p_app_name => g_app_name,
8968: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8961: p_ctxt_val_tbl => l_ctxt_val_tbl);
8962:
8963: -- store the highest degree of error
8964: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8965: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8966: -- need to leave
8967: Okl_Api.set_message(p_app_name => g_app_name,
8968: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8969: p_token1 => g_contract_number_token,
8963: -- store the highest degree of error
8964: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8965: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8966: -- need to leave
8967: Okl_Api.set_message(p_app_name => g_app_name,
8968: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8969: p_token1 => g_contract_number_token,
8970: p_token1_value => l_contract_number);
8971: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8967: Okl_Api.set_message(p_app_name => g_app_name,
8968: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8969: p_token1 => g_contract_number_token,
8970: p_token1_value => l_contract_number);
8971: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8972: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
8973: Okl_Api.set_message(p_app_name => g_app_name,
8974: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8975: p_token1 => g_contract_number_token,
8968: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8969: p_token1 => g_contract_number_token,
8970: p_token1_value => l_contract_number);
8971: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8972: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
8973: Okl_Api.set_message(p_app_name => g_app_name,
8974: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8975: p_token1 => g_contract_number_token,
8976: p_token1_value => l_contract_number);
8969: p_token1 => g_contract_number_token,
8970: p_token1_value => l_contract_number);
8971: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8972: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
8973: Okl_Api.set_message(p_app_name => g_app_name,
8974: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8975: p_token1 => g_contract_number_token,
8976: p_token1_value => l_contract_number);
8977: RAISE OKL_API.G_EXCEPTION_ERROR;
8973: Okl_Api.set_message(p_app_name => g_app_name,
8974: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
8975: p_token1 => g_contract_number_token,
8976: p_token1_value => l_contract_number);
8977: RAISE OKL_API.G_EXCEPTION_ERROR;
8978: END IF;
8979: END IF;
8980: IF p_process_accrual_rec.submission_mode='BATCH' THEN
8981: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD(l_contract_number,28)||
9011: p_ctxt_val_tbl => l_ctxt_val_tbl,
9012: p_representation_type => 'SECONDARY'); -- MGAAP
9013:
9014: -- store the highest degree of error
9015: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9016: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9017: -- need to leave
9018: Okl_Api.set_message(p_app_name => g_app_name,
9019: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9012: p_representation_type => 'SECONDARY'); -- MGAAP
9013:
9014: -- store the highest degree of error
9015: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9016: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9017: -- need to leave
9018: Okl_Api.set_message(p_app_name => g_app_name,
9019: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9020: p_token1 => g_contract_number_token,
9014: -- store the highest degree of error
9015: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9016: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9017: -- need to leave
9018: Okl_Api.set_message(p_app_name => g_app_name,
9019: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9020: p_token1 => g_contract_number_token,
9021: p_token1_value => l_contract_number);
9022: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9018: Okl_Api.set_message(p_app_name => g_app_name,
9019: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9020: p_token1 => g_contract_number_token,
9021: p_token1_value => l_contract_number);
9022: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9023: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
9024: Okl_Api.set_message(p_app_name => g_app_name,
9025: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9026: p_token1 => g_contract_number_token,
9019: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9020: p_token1 => g_contract_number_token,
9021: p_token1_value => l_contract_number);
9022: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9023: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
9024: Okl_Api.set_message(p_app_name => g_app_name,
9025: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9026: p_token1 => g_contract_number_token,
9027: p_token1_value => l_contract_number);
9020: p_token1 => g_contract_number_token,
9021: p_token1_value => l_contract_number);
9022: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9023: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
9024: Okl_Api.set_message(p_app_name => g_app_name,
9025: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9026: p_token1 => g_contract_number_token,
9027: p_token1_value => l_contract_number);
9028: RAISE OKL_API.G_EXCEPTION_ERROR;
9024: Okl_Api.set_message(p_app_name => g_app_name,
9025: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9026: p_token1 => g_contract_number_token,
9027: p_token1_value => l_contract_number);
9028: RAISE OKL_API.G_EXCEPTION_ERROR;
9029: END IF;
9030: END IF;
9031: IF p_process_accrual_rec.submission_mode='BATCH' THEN
9032: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD(l_contract_number,28)||
9044: END IF; -- l_rev_rec_basis =
9045: END IF ; -- IF l_accrual_date - l_last_interest_calc_date > 0
9046:
9047: ELSE -- If l_trx_exists <> 'Y'
9048: Okl_Api.set_message(p_app_name => g_app_name,
9049: p_msg_name => 'OKL_AGN_EST_BILL_DATE_ERROR',
9050: p_token1 => g_contract_number_token,
9051: p_token1_value => l_contract_number,
9052: p_token2 => 'PERIOD',
9052: p_token2 => 'PERIOD',
9053: p_token2_value => to_char(l_accrual_date,'Mon-YY')
9054: );
9055: /* commented this as this is not an error condition. racheruv bug 15881611
9056: RAISE Okl_Api.G_EXCEPTION_ERROR; */
9057: return;
9058: END IF; -- If l_trx_exists <> 'Y'
9059: ELSIF l_rev_rec_method = 'ACTUAL' THEN
9060:
9082: p_dependent_sty_purpose => 'ACTUAL_INCOME_ACCRUAL',
9083: x_return_status => l_return_status,
9084: x_dependent_sty_id => l_sty_id);
9085:
9086: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
9087: -- store SQL error message on message stack for caller and entry in log file
9088: Okl_Api.set_message(p_app_name => g_app_name,
9089: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
9090: p_token1 => g_stream_name_token,
9084: x_dependent_sty_id => l_sty_id);
9085:
9086: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
9087: -- store SQL error message on message stack for caller and entry in log file
9088: Okl_Api.set_message(p_app_name => g_app_name,
9089: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
9090: p_token1 => g_stream_name_token,
9091: p_token1_value => 'ACTUAL INCOME ACCRUAL');
9092: RAISE Okl_Api.G_EXCEPTION_ERROR;
9088: Okl_Api.set_message(p_app_name => g_app_name,
9089: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
9090: p_token1 => g_stream_name_token,
9091: p_token1_value => 'ACTUAL INCOME ACCRUAL');
9092: RAISE Okl_Api.G_EXCEPTION_ERROR;
9093: END IF;
9094:
9095: IF (l_multi_gaap_yn = 'Y') THEN
9096: OKL_STREAMS_UTIL.get_dependent_stream_type_rep(
9099: p_dependent_sty_purpose => 'ACTUAL_INCOME_ACCRUAL',
9100: x_return_status => l_return_status,
9101: x_dependent_sty_id => l_sty_id_rep);
9102:
9103: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
9104: -- store SQL error message on message stack for caller and entry in log file
9105: Okl_Api.set_message(p_app_name => g_app_name,
9106: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
9107: p_token1 => g_stream_name_token,
9101: x_dependent_sty_id => l_sty_id_rep);
9102:
9103: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
9104: -- store SQL error message on message stack for caller and entry in log file
9105: Okl_Api.set_message(p_app_name => g_app_name,
9106: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
9107: p_token1 => g_stream_name_token,
9108: p_token1_value => 'ACTUAL INCOME ACCRUAL');
9109: RAISE Okl_Api.G_EXCEPTION_ERROR;
9105: Okl_Api.set_message(p_app_name => g_app_name,
9106: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
9107: p_token1 => g_stream_name_token,
9108: p_token1_value => 'ACTUAL INCOME ACCRUAL');
9109: RAISE Okl_Api.G_EXCEPTION_ERROR;
9110: END IF;
9111: END IF;
9112:
9113: -- Get revenue recognition basis from stream type
9165: p_accrual_rec => l_accrual_rec,
9166: p_ctxt_val_tbl => l_ctxt_val_tbl);
9167:
9168: -- store the highest degree of error
9169: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9170: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9171: -- need to leave
9172: Okl_Api.set_message(p_app_name => g_app_name,
9173: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9166: p_ctxt_val_tbl => l_ctxt_val_tbl);
9167:
9168: -- store the highest degree of error
9169: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9170: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9171: -- need to leave
9172: Okl_Api.set_message(p_app_name => g_app_name,
9173: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9174: p_token1 => g_contract_number_token,
9168: -- store the highest degree of error
9169: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9170: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9171: -- need to leave
9172: Okl_Api.set_message(p_app_name => g_app_name,
9173: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9174: p_token1 => g_contract_number_token,
9175: p_token1_value => l_contract_number);
9176: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9172: Okl_Api.set_message(p_app_name => g_app_name,
9173: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9174: p_token1 => g_contract_number_token,
9175: p_token1_value => l_contract_number);
9176: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9177: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
9178: Okl_Api.set_message(p_app_name => g_app_name,
9179: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9180: p_token1 => g_contract_number_token,
9173: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9174: p_token1 => g_contract_number_token,
9175: p_token1_value => l_contract_number);
9176: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9177: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
9178: Okl_Api.set_message(p_app_name => g_app_name,
9179: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9180: p_token1 => g_contract_number_token,
9181: p_token1_value => l_contract_number);
9174: p_token1 => g_contract_number_token,
9175: p_token1_value => l_contract_number);
9176: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9177: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
9178: Okl_Api.set_message(p_app_name => g_app_name,
9179: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9180: p_token1 => g_contract_number_token,
9181: p_token1_value => l_contract_number);
9182: RAISE OKL_API.G_EXCEPTION_ERROR;
9178: Okl_Api.set_message(p_app_name => g_app_name,
9179: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9180: p_token1 => g_contract_number_token,
9181: p_token1_value => l_contract_number);
9182: RAISE OKL_API.G_EXCEPTION_ERROR;
9183: END IF;
9184: END IF;
9185: -- Update balances table
9186: IF l_tcnv_rec.amount IS NOT NULL THEN
9191: ,l_return_status
9192: ,l_msg_count
9193: ,l_msg_data);
9194: -- store the highest degree of error
9195: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9196: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9197: -- need to leave
9198: Okl_Api.set_message(p_app_name => g_app_name,
9199: p_msg_name => 'OKL_AGN_BAL_UPD_ERROR',
9192: ,l_msg_count
9193: ,l_msg_data);
9194: -- store the highest degree of error
9195: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9196: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9197: -- need to leave
9198: Okl_Api.set_message(p_app_name => g_app_name,
9199: p_msg_name => 'OKL_AGN_BAL_UPD_ERROR',
9200: p_token1 => g_contract_number_token,
9194: -- store the highest degree of error
9195: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9196: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9197: -- need to leave
9198: Okl_Api.set_message(p_app_name => g_app_name,
9199: p_msg_name => 'OKL_AGN_BAL_UPD_ERROR',
9200: p_token1 => g_contract_number_token,
9201: p_token1_value => l_contract_number);
9202: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9198: Okl_Api.set_message(p_app_name => g_app_name,
9199: p_msg_name => 'OKL_AGN_BAL_UPD_ERROR',
9200: p_token1 => g_contract_number_token,
9201: p_token1_value => l_contract_number);
9202: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9203: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
9204: Okl_Api.set_message(p_app_name => g_app_name,
9205: p_msg_name => 'OKL_AGN_BAL_UPD_ERROR',
9206: p_token1 => g_contract_number_token,
9199: p_msg_name => 'OKL_AGN_BAL_UPD_ERROR',
9200: p_token1 => g_contract_number_token,
9201: p_token1_value => l_contract_number);
9202: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9203: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
9204: Okl_Api.set_message(p_app_name => g_app_name,
9205: p_msg_name => 'OKL_AGN_BAL_UPD_ERROR',
9206: p_token1 => g_contract_number_token,
9207: p_token1_value => l_contract_number);
9200: p_token1 => g_contract_number_token,
9201: p_token1_value => l_contract_number);
9202: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9203: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
9204: Okl_Api.set_message(p_app_name => g_app_name,
9205: p_msg_name => 'OKL_AGN_BAL_UPD_ERROR',
9206: p_token1 => g_contract_number_token,
9207: p_token1_value => l_contract_number);
9208: RAISE OKL_API.G_EXCEPTION_ERROR;
9204: Okl_Api.set_message(p_app_name => g_app_name,
9205: p_msg_name => 'OKL_AGN_BAL_UPD_ERROR',
9206: p_token1 => g_contract_number_token,
9207: p_token1_value => l_contract_number);
9208: RAISE OKL_API.G_EXCEPTION_ERROR;
9209: END IF;
9210: END IF;
9211: END IF;
9212:
9241: p_ctxt_val_tbl => l_ctxt_val_tbl,
9242: p_representation_type => 'SECONDARY');
9243:
9244: -- store the highest degree of error
9245: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9246: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9247: -- need to leave
9248: Okl_Api.set_message(p_app_name => g_app_name,
9249: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9242: p_representation_type => 'SECONDARY');
9243:
9244: -- store the highest degree of error
9245: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9246: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9247: -- need to leave
9248: Okl_Api.set_message(p_app_name => g_app_name,
9249: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9250: p_token1 => g_contract_number_token,
9244: -- store the highest degree of error
9245: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9246: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9247: -- need to leave
9248: Okl_Api.set_message(p_app_name => g_app_name,
9249: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9250: p_token1 => g_contract_number_token,
9251: p_token1_value => l_contract_number);
9252: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9248: Okl_Api.set_message(p_app_name => g_app_name,
9249: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9250: p_token1 => g_contract_number_token,
9251: p_token1_value => l_contract_number);
9252: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9253: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
9254: Okl_Api.set_message(p_app_name => g_app_name,
9255: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9256: p_token1 => g_contract_number_token,
9249: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9250: p_token1 => g_contract_number_token,
9251: p_token1_value => l_contract_number);
9252: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9253: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
9254: Okl_Api.set_message(p_app_name => g_app_name,
9255: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9256: p_token1 => g_contract_number_token,
9257: p_token1_value => l_contract_number);
9250: p_token1 => g_contract_number_token,
9251: p_token1_value => l_contract_number);
9252: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9253: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
9254: Okl_Api.set_message(p_app_name => g_app_name,
9255: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9256: p_token1 => g_contract_number_token,
9257: p_token1_value => l_contract_number);
9258: RAISE OKL_API.G_EXCEPTION_ERROR;
9254: Okl_Api.set_message(p_app_name => g_app_name,
9255: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9256: p_token1 => g_contract_number_token,
9257: p_token1_value => l_contract_number);
9258: RAISE OKL_API.G_EXCEPTION_ERROR;
9259: END IF;
9260: END IF;
9261:
9262: IF p_process_accrual_rec.submission_mode='BATCH' THEN
9317: p_accrual_rec => l_accrual_rec,
9318: p_ctxt_val_tbl => l_ctxt_val_tbl);
9319:
9320: -- store the highest degree of error
9321: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9322: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9323: -- need to leave
9324: Okl_Api.set_message(p_app_name => g_app_name,
9325: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9318: p_ctxt_val_tbl => l_ctxt_val_tbl);
9319:
9320: -- store the highest degree of error
9321: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9322: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9323: -- need to leave
9324: Okl_Api.set_message(p_app_name => g_app_name,
9325: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9326: p_token1 => g_contract_number_token,
9320: -- store the highest degree of error
9321: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9322: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9323: -- need to leave
9324: Okl_Api.set_message(p_app_name => g_app_name,
9325: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9326: p_token1 => g_contract_number_token,
9327: p_token1_value => l_contract_number);
9328: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9324: Okl_Api.set_message(p_app_name => g_app_name,
9325: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9326: p_token1 => g_contract_number_token,
9327: p_token1_value => l_contract_number);
9328: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9329: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
9330: Okl_Api.set_message(p_app_name => g_app_name,
9331: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9332: p_token1 => g_contract_number_token,
9325: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9326: p_token1 => g_contract_number_token,
9327: p_token1_value => l_contract_number);
9328: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9329: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
9330: Okl_Api.set_message(p_app_name => g_app_name,
9331: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9332: p_token1 => g_contract_number_token,
9333: p_token1_value => l_contract_number);
9326: p_token1 => g_contract_number_token,
9327: p_token1_value => l_contract_number);
9328: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9329: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
9330: Okl_Api.set_message(p_app_name => g_app_name,
9331: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9332: p_token1 => g_contract_number_token,
9333: p_token1_value => l_contract_number);
9334: RAISE OKL_API.G_EXCEPTION_ERROR;
9330: Okl_Api.set_message(p_app_name => g_app_name,
9331: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9332: p_token1 => g_contract_number_token,
9333: p_token1_value => l_contract_number);
9334: RAISE OKL_API.G_EXCEPTION_ERROR;
9335: END IF;
9336: END IF;
9337:
9338: -- Update balances table
9344: ,l_return_status
9345: ,l_msg_count
9346: ,l_msg_data);
9347: -- store the highest degree of error
9348: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9349: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9350: -- need to leave
9351: Okl_Api.set_message(p_app_name => g_app_name,
9352: p_msg_name => 'OKL_AGN_BAL_UPD_ERROR',
9345: ,l_msg_count
9346: ,l_msg_data);
9347: -- store the highest degree of error
9348: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9349: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9350: -- need to leave
9351: Okl_Api.set_message(p_app_name => g_app_name,
9352: p_msg_name => 'OKL_AGN_BAL_UPD_ERROR',
9353: p_token1 => g_contract_number_token,
9347: -- store the highest degree of error
9348: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9349: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9350: -- need to leave
9351: Okl_Api.set_message(p_app_name => g_app_name,
9352: p_msg_name => 'OKL_AGN_BAL_UPD_ERROR',
9353: p_token1 => g_contract_number_token,
9354: p_token1_value => l_contract_number);
9355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9351: Okl_Api.set_message(p_app_name => g_app_name,
9352: p_msg_name => 'OKL_AGN_BAL_UPD_ERROR',
9353: p_token1 => g_contract_number_token,
9354: p_token1_value => l_contract_number);
9355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9356: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
9357: Okl_Api.set_message(p_app_name => g_app_name,
9358: p_msg_name => 'OKL_AGN_BAL_UPD_ERROR',
9359: p_token1 => g_contract_number_token,
9352: p_msg_name => 'OKL_AGN_BAL_UPD_ERROR',
9353: p_token1 => g_contract_number_token,
9354: p_token1_value => l_contract_number);
9355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9356: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
9357: Okl_Api.set_message(p_app_name => g_app_name,
9358: p_msg_name => 'OKL_AGN_BAL_UPD_ERROR',
9359: p_token1 => g_contract_number_token,
9360: p_token1_value => l_contract_number);
9353: p_token1 => g_contract_number_token,
9354: p_token1_value => l_contract_number);
9355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9356: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
9357: Okl_Api.set_message(p_app_name => g_app_name,
9358: p_msg_name => 'OKL_AGN_BAL_UPD_ERROR',
9359: p_token1 => g_contract_number_token,
9360: p_token1_value => l_contract_number);
9361: RAISE OKL_API.G_EXCEPTION_ERROR;
9357: Okl_Api.set_message(p_app_name => g_app_name,
9358: p_msg_name => 'OKL_AGN_BAL_UPD_ERROR',
9359: p_token1 => g_contract_number_token,
9360: p_token1_value => l_contract_number);
9361: RAISE OKL_API.G_EXCEPTION_ERROR;
9362: END IF;
9363: END IF;
9364: END IF;
9365:
9394: p_ctxt_val_tbl => l_ctxt_val_tbl,
9395: p_representation_type => 'SECONDARY'); -- MGAAP
9396:
9397: -- store the highest degree of error
9398: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9399: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9400: -- need to leave
9401: Okl_Api.set_message(p_app_name => g_app_name,
9402: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9395: p_representation_type => 'SECONDARY'); -- MGAAP
9396:
9397: -- store the highest degree of error
9398: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9399: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9400: -- need to leave
9401: Okl_Api.set_message(p_app_name => g_app_name,
9402: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9403: p_token1 => g_contract_number_token,
9397: -- store the highest degree of error
9398: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9399: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9400: -- need to leave
9401: Okl_Api.set_message(p_app_name => g_app_name,
9402: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9403: p_token1 => g_contract_number_token,
9404: p_token1_value => l_contract_number);
9405: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9401: Okl_Api.set_message(p_app_name => g_app_name,
9402: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9403: p_token1 => g_contract_number_token,
9404: p_token1_value => l_contract_number);
9405: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9406: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
9407: Okl_Api.set_message(p_app_name => g_app_name,
9408: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9409: p_token1 => g_contract_number_token,
9402: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9403: p_token1 => g_contract_number_token,
9404: p_token1_value => l_contract_number);
9405: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9406: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
9407: Okl_Api.set_message(p_app_name => g_app_name,
9408: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9409: p_token1 => g_contract_number_token,
9410: p_token1_value => l_contract_number);
9403: p_token1 => g_contract_number_token,
9404: p_token1_value => l_contract_number);
9405: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9406: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
9407: Okl_Api.set_message(p_app_name => g_app_name,
9408: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9409: p_token1 => g_contract_number_token,
9410: p_token1_value => l_contract_number);
9411: RAISE OKL_API.G_EXCEPTION_ERROR;
9407: Okl_Api.set_message(p_app_name => g_app_name,
9408: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9409: p_token1 => g_contract_number_token,
9410: p_token1_value => l_contract_number);
9411: RAISE OKL_API.G_EXCEPTION_ERROR;
9412: END IF;
9413: END IF;
9414:
9415: IF p_process_accrual_rec.submission_mode='BATCH' THEN
9472: p_accrual_rec => l_accrual_rec,
9473: p_ctxt_val_tbl => l_ctxt_val_tbl);
9474:
9475: -- store the highest degree of error
9476: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9477: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9478: -- need to leave
9479: Okl_Api.set_message(p_app_name => g_app_name,
9480: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9473: p_ctxt_val_tbl => l_ctxt_val_tbl);
9474:
9475: -- store the highest degree of error
9476: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9477: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9478: -- need to leave
9479: Okl_Api.set_message(p_app_name => g_app_name,
9480: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9481: p_token1 => g_contract_number_token,
9475: -- store the highest degree of error
9476: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9477: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9478: -- need to leave
9479: Okl_Api.set_message(p_app_name => g_app_name,
9480: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9481: p_token1 => g_contract_number_token,
9482: p_token1_value => l_contract_number);
9483: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9479: Okl_Api.set_message(p_app_name => g_app_name,
9480: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9481: p_token1 => g_contract_number_token,
9482: p_token1_value => l_contract_number);
9483: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9484: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
9485: Okl_Api.set_message(p_app_name => g_app_name,
9486: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9487: p_token1 => g_contract_number_token,
9480: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9481: p_token1 => g_contract_number_token,
9482: p_token1_value => l_contract_number);
9483: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9484: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
9485: Okl_Api.set_message(p_app_name => g_app_name,
9486: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9487: p_token1 => g_contract_number_token,
9488: p_token1_value => l_contract_number);
9481: p_token1 => g_contract_number_token,
9482: p_token1_value => l_contract_number);
9483: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9484: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
9485: Okl_Api.set_message(p_app_name => g_app_name,
9486: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9487: p_token1 => g_contract_number_token,
9488: p_token1_value => l_contract_number);
9489: RAISE OKL_API.G_EXCEPTION_ERROR;
9485: Okl_Api.set_message(p_app_name => g_app_name,
9486: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9487: p_token1 => g_contract_number_token,
9488: p_token1_value => l_contract_number);
9489: RAISE OKL_API.G_EXCEPTION_ERROR;
9490: END IF;
9491: END IF;
9492: -- Update balances table
9493: IF l_tcnv_rec.amount IS NOT NULL THEN
9498: ,l_return_status
9499: ,l_msg_count
9500: ,l_msg_data);
9501: -- store the highest degree of error
9502: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9503: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9504: -- need to leave
9505: Okl_Api.set_message(p_app_name => g_app_name,
9506: p_msg_name => 'OKL_AGN_BAL_UPD_ERROR',
9499: ,l_msg_count
9500: ,l_msg_data);
9501: -- store the highest degree of error
9502: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9503: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9504: -- need to leave
9505: Okl_Api.set_message(p_app_name => g_app_name,
9506: p_msg_name => 'OKL_AGN_BAL_UPD_ERROR',
9507: p_token1 => g_contract_number_token,
9501: -- store the highest degree of error
9502: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9503: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9504: -- need to leave
9505: Okl_Api.set_message(p_app_name => g_app_name,
9506: p_msg_name => 'OKL_AGN_BAL_UPD_ERROR',
9507: p_token1 => g_contract_number_token,
9508: p_token1_value => l_contract_number);
9509: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9505: Okl_Api.set_message(p_app_name => g_app_name,
9506: p_msg_name => 'OKL_AGN_BAL_UPD_ERROR',
9507: p_token1 => g_contract_number_token,
9508: p_token1_value => l_contract_number);
9509: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9510: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
9511: Okl_Api.set_message(p_app_name => g_app_name,
9512: p_msg_name => 'OKL_AGN_BAL_UPD_ERROR',
9513: p_token1 => g_contract_number_token,
9506: p_msg_name => 'OKL_AGN_BAL_UPD_ERROR',
9507: p_token1 => g_contract_number_token,
9508: p_token1_value => l_contract_number);
9509: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9510: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
9511: Okl_Api.set_message(p_app_name => g_app_name,
9512: p_msg_name => 'OKL_AGN_BAL_UPD_ERROR',
9513: p_token1 => g_contract_number_token,
9514: p_token1_value => l_contract_number);
9507: p_token1 => g_contract_number_token,
9508: p_token1_value => l_contract_number);
9509: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9510: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
9511: Okl_Api.set_message(p_app_name => g_app_name,
9512: p_msg_name => 'OKL_AGN_BAL_UPD_ERROR',
9513: p_token1 => g_contract_number_token,
9514: p_token1_value => l_contract_number);
9515: RAISE OKL_API.G_EXCEPTION_ERROR;
9511: Okl_Api.set_message(p_app_name => g_app_name,
9512: p_msg_name => 'OKL_AGN_BAL_UPD_ERROR',
9513: p_token1 => g_contract_number_token,
9514: p_token1_value => l_contract_number);
9515: RAISE OKL_API.G_EXCEPTION_ERROR;
9516: END IF;
9517: END IF;
9518: END IF;
9519:
9548: p_ctxt_val_tbl => l_ctxt_val_tbl,
9549: p_representation_type => 'SECONDARY');
9550:
9551: -- store the highest degree of error
9552: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9553: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9554: -- need to leave
9555: Okl_Api.set_message(p_app_name => g_app_name,
9556: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9549: p_representation_type => 'SECONDARY');
9550:
9551: -- store the highest degree of error
9552: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9553: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9554: -- need to leave
9555: Okl_Api.set_message(p_app_name => g_app_name,
9556: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9557: p_token1 => g_contract_number_token,
9551: -- store the highest degree of error
9552: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9553: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9554: -- need to leave
9555: Okl_Api.set_message(p_app_name => g_app_name,
9556: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9557: p_token1 => g_contract_number_token,
9558: p_token1_value => l_contract_number);
9559: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9555: Okl_Api.set_message(p_app_name => g_app_name,
9556: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9557: p_token1 => g_contract_number_token,
9558: p_token1_value => l_contract_number);
9559: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9560: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
9561: Okl_Api.set_message(p_app_name => g_app_name,
9562: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9563: p_token1 => g_contract_number_token,
9556: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9557: p_token1 => g_contract_number_token,
9558: p_token1_value => l_contract_number);
9559: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9560: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
9561: Okl_Api.set_message(p_app_name => g_app_name,
9562: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9563: p_token1 => g_contract_number_token,
9564: p_token1_value => l_contract_number);
9557: p_token1 => g_contract_number_token,
9558: p_token1_value => l_contract_number);
9559: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9560: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
9561: Okl_Api.set_message(p_app_name => g_app_name,
9562: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9563: p_token1 => g_contract_number_token,
9564: p_token1_value => l_contract_number);
9565: RAISE OKL_API.G_EXCEPTION_ERROR;
9561: Okl_Api.set_message(p_app_name => g_app_name,
9562: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9563: p_token1 => g_contract_number_token,
9564: p_token1_value => l_contract_number);
9565: RAISE OKL_API.G_EXCEPTION_ERROR;
9566: END IF;
9567: END IF;
9568:
9569: IF p_process_accrual_rec.submission_mode='BATCH' THEN
9626: p_accrual_rec => l_accrual_rec,
9627: p_ctxt_val_tbl => l_ctxt_val_tbl);
9628:
9629: -- store the highest degree of error
9630: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9631: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9632: -- need to leave
9633: Okl_Api.set_message(p_app_name => g_app_name,
9634: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9627: p_ctxt_val_tbl => l_ctxt_val_tbl);
9628:
9629: -- store the highest degree of error
9630: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9631: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9632: -- need to leave
9633: Okl_Api.set_message(p_app_name => g_app_name,
9634: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9635: p_token1 => g_contract_number_token,
9629: -- store the highest degree of error
9630: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9631: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9632: -- need to leave
9633: Okl_Api.set_message(p_app_name => g_app_name,
9634: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9635: p_token1 => g_contract_number_token,
9636: p_token1_value => l_contract_number);
9637: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9633: Okl_Api.set_message(p_app_name => g_app_name,
9634: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9635: p_token1 => g_contract_number_token,
9636: p_token1_value => l_contract_number);
9637: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9638: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
9639: Okl_Api.set_message(p_app_name => g_app_name,
9640: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9641: p_token1 => g_contract_number_token,
9634: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9635: p_token1 => g_contract_number_token,
9636: p_token1_value => l_contract_number);
9637: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9638: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
9639: Okl_Api.set_message(p_app_name => g_app_name,
9640: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9641: p_token1 => g_contract_number_token,
9642: p_token1_value => l_contract_number);
9635: p_token1 => g_contract_number_token,
9636: p_token1_value => l_contract_number);
9637: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9638: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
9639: Okl_Api.set_message(p_app_name => g_app_name,
9640: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9641: p_token1 => g_contract_number_token,
9642: p_token1_value => l_contract_number);
9643: RAISE OKL_API.G_EXCEPTION_ERROR;
9639: Okl_Api.set_message(p_app_name => g_app_name,
9640: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9641: p_token1 => g_contract_number_token,
9642: p_token1_value => l_contract_number);
9643: RAISE OKL_API.G_EXCEPTION_ERROR;
9644: END IF;
9645: END IF;
9646: -- Update balances table
9647: IF l_tcnv_rec.amount IS NOT NULL THEN
9652: ,l_return_status
9653: ,l_msg_count
9654: ,l_msg_data);
9655: -- store the highest degree of error
9656: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9657: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9658: -- need to leave
9659: Okl_Api.set_message(p_app_name => g_app_name,
9660: p_msg_name => 'OKL_AGN_BAL_UPD_ERROR',
9653: ,l_msg_count
9654: ,l_msg_data);
9655: -- store the highest degree of error
9656: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9657: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9658: -- need to leave
9659: Okl_Api.set_message(p_app_name => g_app_name,
9660: p_msg_name => 'OKL_AGN_BAL_UPD_ERROR',
9661: p_token1 => g_contract_number_token,
9655: -- store the highest degree of error
9656: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9657: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9658: -- need to leave
9659: Okl_Api.set_message(p_app_name => g_app_name,
9660: p_msg_name => 'OKL_AGN_BAL_UPD_ERROR',
9661: p_token1 => g_contract_number_token,
9662: p_token1_value => l_contract_number);
9663: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9659: Okl_Api.set_message(p_app_name => g_app_name,
9660: p_msg_name => 'OKL_AGN_BAL_UPD_ERROR',
9661: p_token1 => g_contract_number_token,
9662: p_token1_value => l_contract_number);
9663: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9664: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
9665: Okl_Api.set_message(p_app_name => g_app_name,
9666: p_msg_name => 'OKL_AGN_BAL_UPD_ERROR',
9667: p_token1 => g_contract_number_token,
9660: p_msg_name => 'OKL_AGN_BAL_UPD_ERROR',
9661: p_token1 => g_contract_number_token,
9662: p_token1_value => l_contract_number);
9663: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9664: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
9665: Okl_Api.set_message(p_app_name => g_app_name,
9666: p_msg_name => 'OKL_AGN_BAL_UPD_ERROR',
9667: p_token1 => g_contract_number_token,
9668: p_token1_value => l_contract_number);
9661: p_token1 => g_contract_number_token,
9662: p_token1_value => l_contract_number);
9663: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9664: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
9665: Okl_Api.set_message(p_app_name => g_app_name,
9666: p_msg_name => 'OKL_AGN_BAL_UPD_ERROR',
9667: p_token1 => g_contract_number_token,
9668: p_token1_value => l_contract_number);
9669: RAISE OKL_API.G_EXCEPTION_ERROR;
9665: Okl_Api.set_message(p_app_name => g_app_name,
9666: p_msg_name => 'OKL_AGN_BAL_UPD_ERROR',
9667: p_token1 => g_contract_number_token,
9668: p_token1_value => l_contract_number);
9669: RAISE OKL_API.G_EXCEPTION_ERROR;
9670: END IF;
9671: END IF;
9672: END IF;
9673:
9703: p_ctxt_val_tbl => l_ctxt_val_tbl,
9704: p_representation_type => 'SECONDARY');
9705:
9706: -- store the highest degree of error
9707: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9708: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9709: -- need to leave
9710: Okl_Api.set_message(p_app_name => g_app_name,
9711: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9704: p_representation_type => 'SECONDARY');
9705:
9706: -- store the highest degree of error
9707: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9708: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9709: -- need to leave
9710: Okl_Api.set_message(p_app_name => g_app_name,
9711: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9712: p_token1 => g_contract_number_token,
9706: -- store the highest degree of error
9707: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9708: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9709: -- need to leave
9710: Okl_Api.set_message(p_app_name => g_app_name,
9711: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9712: p_token1 => g_contract_number_token,
9713: p_token1_value => l_contract_number);
9714: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9710: Okl_Api.set_message(p_app_name => g_app_name,
9711: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9712: p_token1 => g_contract_number_token,
9713: p_token1_value => l_contract_number);
9714: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9715: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
9716: Okl_Api.set_message(p_app_name => g_app_name,
9717: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9718: p_token1 => g_contract_number_token,
9711: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9712: p_token1 => g_contract_number_token,
9713: p_token1_value => l_contract_number);
9714: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9715: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
9716: Okl_Api.set_message(p_app_name => g_app_name,
9717: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9718: p_token1 => g_contract_number_token,
9719: p_token1_value => l_contract_number);
9712: p_token1 => g_contract_number_token,
9713: p_token1_value => l_contract_number);
9714: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9715: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
9716: Okl_Api.set_message(p_app_name => g_app_name,
9717: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9718: p_token1 => g_contract_number_token,
9719: p_token1_value => l_contract_number);
9720: RAISE OKL_API.G_EXCEPTION_ERROR;
9716: Okl_Api.set_message(p_app_name => g_app_name,
9717: p_msg_name => 'OKL_AGN_CRE_ACR_ERROR',
9718: p_token1 => g_contract_number_token,
9719: p_token1_value => l_contract_number);
9720: RAISE OKL_API.G_EXCEPTION_ERROR;
9721: END IF;
9722: END IF;
9723:
9724: IF p_process_accrual_rec.submission_mode='BATCH' THEN
9736: -- MGAAP 7263041 end
9737: END IF; -- l_rev_rec_basis =
9738:
9739: ELSE
9740: Okl_Api.set_message(p_app_name => g_app_name,
9741: p_msg_name => 'OKL_AGN_ACTUAL_DATE_ERROR',
9742: p_token1 => g_contract_number_token,
9743: p_token1_value => l_contract_number,
9744: p_token2 => 'ACCRUAL_DATE',
9743: p_token1_value => l_contract_number,
9744: p_token2 => 'ACCRUAL_DATE',
9745: p_token2_value => to_char(l_last_accrual_date,'DD-Mon-YYYY')
9746: );
9747: RAISE Okl_Api.G_EXCEPTION_ERROR;
9748:
9749: END IF; --IF TRUNC(l_accrual_date) >= TRUNC(l_last_accrual_date) THEN
9750:
9751: END IF; -- IF l_rev_rec_method = 'ACTUAL' THEN'
9750:
9751: END IF; -- IF l_rev_rec_method = 'ACTUAL' THEN'
9752:
9753: x_return_status := l_return_status;
9754: Okl_Api.END_ACTIVITY(l_msg_count, l_msg_data);
9755:
9756: EXCEPTION
9757:
9758: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
9754: Okl_Api.END_ACTIVITY(l_msg_count, l_msg_data);
9755:
9756: EXCEPTION
9757:
9758: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
9759: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
9760: ,g_pkg_name
9761: ,'OKL_API.G_RET_STS_ERROR'
9762: ,l_msg_count
9755:
9756: EXCEPTION
9757:
9758: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
9759: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
9760: ,g_pkg_name
9761: ,'OKL_API.G_RET_STS_ERROR'
9762: ,l_msg_count
9763: ,l_msg_data
9757:
9758: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
9759: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
9760: ,g_pkg_name
9761: ,'OKL_API.G_RET_STS_ERROR'
9762: ,l_msg_count
9763: ,l_msg_data
9764: ,'_PVT');
9765:
9782: END IF;
9783: -- Bug 4700105.
9784: FND_MSG_PUB.Delete_Msg;
9785:
9786: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
9787: -- Select the contract for error reporting
9788: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
9789: ,g_pkg_name
9790: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
9784: FND_MSG_PUB.Delete_Msg;
9785:
9786: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
9787: -- Select the contract for error reporting
9788: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
9789: ,g_pkg_name
9790: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
9791: ,l_msg_count
9792: ,l_msg_data
9786: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
9787: -- Select the contract for error reporting
9788: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
9789: ,g_pkg_name
9790: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
9791: ,l_msg_count
9792: ,l_msg_data
9793: ,'_PVT');
9794: IF p_process_accrual_rec.submission_mode='BATCH' THEN
9826: CLOSE last_int_date_csr;
9827: END IF;
9828:
9829: -- Select the contract for error reporting
9830: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
9831: ,g_pkg_name
9832: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
9833: ,l_msg_count
9834: ,l_msg_data
9828:
9829: -- Select the contract for error reporting
9830: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
9831: ,g_pkg_name
9832: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
9833: ,l_msg_count
9834: ,l_msg_data
9835: ,'_PVT');
9836:
9865: p_accrual_date IN DATE,
9866: p_batch_name IN VARCHAR2 ) RETURN NUMBER IS
9867:
9868: x_request_id NUMBER;
9869: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
9870: l_msg_count NUMBER;
9871: l_msg_data VARCHAR2(2000);
9872: l_api_name VARCHAR2(2000) := 'SUBMIT_ACCRUALS';
9873: l_api_version CONSTANT NUMBER := 1.0;
9870: l_msg_count NUMBER;
9871: l_msg_data VARCHAR2(2000);
9872: l_api_name VARCHAR2(2000) := 'SUBMIT_ACCRUALS';
9873: l_api_version CONSTANT NUMBER := 1.0;
9874: l_init_msg_list VARCHAR2(20) DEFAULT Okl_Api.G_FALSE;
9875: l_accrual_date VARCHAR2(2000);
9876: BEGIN
9877: -- Set save point
9878: l_return_status := Okl_Api.START_ACTIVITY(l_api_name
9874: l_init_msg_list VARCHAR2(20) DEFAULT Okl_Api.G_FALSE;
9875: l_accrual_date VARCHAR2(2000);
9876: BEGIN
9877: -- Set save point
9878: l_return_status := Okl_Api.START_ACTIVITY(l_api_name
9879: ,G_PKG_NAME
9880: ,l_init_msg_list
9881: ,l_api_version
9882: ,p_api_version
9881: ,l_api_version
9882: ,p_api_version
9883: ,'_PVT'
9884: ,l_return_status);
9885: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9886: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
9887: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
9888: RAISE Okl_Api.G_EXCEPTION_ERROR;
9889: END IF;
9882: ,p_api_version
9883: ,'_PVT'
9884: ,l_return_status);
9885: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9886: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
9887: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
9888: RAISE Okl_Api.G_EXCEPTION_ERROR;
9889: END IF;
9890:
9883: ,'_PVT'
9884: ,l_return_status);
9885: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9886: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
9887: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
9888: RAISE Okl_Api.G_EXCEPTION_ERROR;
9889: END IF;
9890:
9891: -- check for data before processing
9884: ,l_return_status);
9885: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9886: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
9887: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
9888: RAISE Okl_Api.G_EXCEPTION_ERROR;
9889: END IF;
9890:
9891: -- check for data before processing
9892: IF (p_accrual_date IS NULL OR p_accrual_date = Okl_Api.G_MISS_DATE) THEN
9888: RAISE Okl_Api.G_EXCEPTION_ERROR;
9889: END IF;
9890:
9891: -- check for data before processing
9892: IF (p_accrual_date IS NULL OR p_accrual_date = Okl_Api.G_MISS_DATE) THEN
9893: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
9894: p_msg_name => 'OKL_AGN_DATE_ERROR');
9895: RAISE Okl_Api.G_EXCEPTION_ERROR;
9896: ELSE
9889: END IF;
9890:
9891: -- check for data before processing
9892: IF (p_accrual_date IS NULL OR p_accrual_date = Okl_Api.G_MISS_DATE) THEN
9893: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
9894: p_msg_name => 'OKL_AGN_DATE_ERROR');
9895: RAISE Okl_Api.G_EXCEPTION_ERROR;
9896: ELSE
9897: l_accrual_date := FND_DATE.DATE_TO_CANONICAL(p_accrual_date);
9891: -- check for data before processing
9892: IF (p_accrual_date IS NULL OR p_accrual_date = Okl_Api.G_MISS_DATE) THEN
9893: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
9894: p_msg_name => 'OKL_AGN_DATE_ERROR');
9895: RAISE Okl_Api.G_EXCEPTION_ERROR;
9896: ELSE
9897: l_accrual_date := FND_DATE.DATE_TO_CANONICAL(p_accrual_date);
9898: END IF;
9899:
9907:
9908: IF x_request_id = 0 THEN
9909: -- Handle submission error
9910: -- Raise Error if the request has not been submitted successfully.
9911: Okl_Api.SET_MESSAGE(G_APP_NAME, 'OKL_ERROR_SUB_CONC_PROG', 'CONC_PROG', 'Generate Accrual');
9912: RAISE Okl_Api.G_EXCEPTION_ERROR;
9913: ELSE
9914: --set return status
9915: x_return_status := l_return_status;
9908: IF x_request_id = 0 THEN
9909: -- Handle submission error
9910: -- Raise Error if the request has not been submitted successfully.
9911: Okl_Api.SET_MESSAGE(G_APP_NAME, 'OKL_ERROR_SUB_CONC_PROG', 'CONC_PROG', 'Generate Accrual');
9912: RAISE Okl_Api.G_EXCEPTION_ERROR;
9913: ELSE
9914: --set return status
9915: x_return_status := l_return_status;
9916: RETURN x_request_id;
9916: RETURN x_request_id;
9917: END IF;
9918:
9919: EXCEPTION
9920: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
9921: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
9922: ,g_pkg_name
9923: ,'OKL_API.G_RET_STS_ERROR'
9924: ,x_msg_count
9917: END IF;
9918:
9919: EXCEPTION
9920: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
9921: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
9922: ,g_pkg_name
9923: ,'OKL_API.G_RET_STS_ERROR'
9924: ,x_msg_count
9925: ,x_msg_data
9919: EXCEPTION
9920: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
9921: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
9922: ,g_pkg_name
9923: ,'OKL_API.G_RET_STS_ERROR'
9924: ,x_msg_count
9925: ,x_msg_data
9926: ,'_PVT');
9927: RETURN x_request_id;
9924: ,x_msg_count
9925: ,x_msg_data
9926: ,'_PVT');
9927: RETURN x_request_id;
9928: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
9929: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
9930: ,g_pkg_name
9931: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
9932: ,x_msg_count
9925: ,x_msg_data
9926: ,'_PVT');
9927: RETURN x_request_id;
9928: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
9929: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
9930: ,g_pkg_name
9931: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
9932: ,x_msg_count
9933: ,x_msg_data
9927: RETURN x_request_id;
9928: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
9929: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
9930: ,g_pkg_name
9931: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
9932: ,x_msg_count
9933: ,x_msg_data
9934: ,'_PVT');
9935: RETURN x_request_id;
9933: ,x_msg_data
9934: ,'_PVT');
9935: RETURN x_request_id;
9936: WHEN OTHERS THEN
9937: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
9938: (l_api_name,
9939: G_PKG_NAME,
9940: 'OTHERS',
9941: x_msg_count,
9972: l_sob_name VARCHAR2(2000);
9973: l_api_version CONSTANT NUMBER := 1.0;
9974: p_api_version CONSTANT NUMBER := 1.0;
9975: l_api_name CONSTANT VARCHAR2(30) := 'GENERATE_ACCRUALS';
9976: l_init_msg_list VARCHAR2(2000) := OKL_API.G_FALSE;
9977: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9978: l_msg_count NUMBER;
9979: l_msg_data VARCHAR2(2000);
9980: l_period_name VARCHAR2(2000);
9973: l_api_version CONSTANT NUMBER := 1.0;
9974: p_api_version CONSTANT NUMBER := 1.0;
9975: l_api_name CONSTANT VARCHAR2(30) := 'GENERATE_ACCRUALS';
9976: l_init_msg_list VARCHAR2(2000) := OKL_API.G_FALSE;
9977: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9978: l_msg_count NUMBER;
9979: l_msg_data VARCHAR2(2000);
9980: l_period_name VARCHAR2(2000);
9981: l_period_start_date DATE;
10190: --START SGIYER
10191: l_num_workers := FND_PROFILE.VALUE('OKL_AGN_WORKERS');
10192:
10193: IF l_num_workers IS NULL THEN
10194: Okl_Api.set_message(p_app_name => g_app_name,
10195: p_msg_name => 'OKL_AGN_WORKER_ERROR');
10196: fnd_file.put_line(fnd_file.log, 'Please specify a value for the profile option OKL: Generate Accrual Concurrent Workers');
10197: RAISE OKL_API.G_EXCEPTION_ERROR;
10198: END IF;
10193: IF l_num_workers IS NULL THEN
10194: Okl_Api.set_message(p_app_name => g_app_name,
10195: p_msg_name => 'OKL_AGN_WORKER_ERROR');
10196: fnd_file.put_line(fnd_file.log, 'Please specify a value for the profile option OKL: Generate Accrual Concurrent Workers');
10197: RAISE OKL_API.G_EXCEPTION_ERROR;
10198: END IF;
10199: -- END SGIYER
10200:
10201: -- Select sequence for marking processes
10408: WRITE_TO_LOG('Accrual Rev Days :'||l_accrual_reversal_days);
10409: WRITE_TO_LOG('Func Currency Code:'||l_func_currency_code);
10410: --kthiruva - End of Changes
10411:
10412: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
10413: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
10414: -- need to leave
10415: Okl_Api.set_message(p_app_name => g_app_name,
10416: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
10409: WRITE_TO_LOG('Func Currency Code:'||l_func_currency_code);
10410: --kthiruva - End of Changes
10411:
10412: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
10413: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
10414: -- need to leave
10415: Okl_Api.set_message(p_app_name => g_app_name,
10416: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
10417: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10411:
10412: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
10413: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
10414: -- need to leave
10415: Okl_Api.set_message(p_app_name => g_app_name,
10416: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
10417: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10418: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
10419: Okl_Api.set_message(p_app_name => g_app_name,
10413: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
10414: -- need to leave
10415: Okl_Api.set_message(p_app_name => g_app_name,
10416: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
10417: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10418: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
10419: Okl_Api.set_message(p_app_name => g_app_name,
10420: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
10421: RAISE OKL_API.G_EXCEPTION_ERROR;
10414: -- need to leave
10415: Okl_Api.set_message(p_app_name => g_app_name,
10416: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
10417: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10418: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
10419: Okl_Api.set_message(p_app_name => g_app_name,
10420: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
10421: RAISE OKL_API.G_EXCEPTION_ERROR;
10422: END IF;
10415: Okl_Api.set_message(p_app_name => g_app_name,
10416: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
10417: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10418: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
10419: Okl_Api.set_message(p_app_name => g_app_name,
10420: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
10421: RAISE OKL_API.G_EXCEPTION_ERROR;
10422: END IF;
10423: END IF;
10417: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10418: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
10419: Okl_Api.set_message(p_app_name => g_app_name,
10420: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
10421: RAISE OKL_API.G_EXCEPTION_ERROR;
10422: END IF;
10423: END IF;
10424:
10425: -- Calculate the number of days (to_date) to reverse in case of non-accrual
10432: ,p_batch_name
10433: ,l_func_currency_code
10434: ,l_return_status);
10435:
10436: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
10437: Okl_Api.set_message(p_app_name => g_app_name,
10438: p_msg_name => 'OKL_AGN_REPORT_ERROR');
10439: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10440: END IF;
10433: ,l_func_currency_code
10434: ,l_return_status);
10435:
10436: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
10437: Okl_Api.set_message(p_app_name => g_app_name,
10438: p_msg_name => 'OKL_AGN_REPORT_ERROR');
10439: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10440: END IF;
10441:
10435:
10436: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
10437: Okl_Api.set_message(p_app_name => g_app_name,
10438: p_msg_name => 'OKL_AGN_REPORT_ERROR');
10439: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10440: END IF;
10441:
10442:
10443: l_counter := 1;
10520: x_msg_data => l_msg_data,
10521: p_process_accrual_rec => l_process_accrual_rec
10522: );
10523:
10524: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
10525: l_contract_error_tbl(l_contract_error_count) := l_process_accrual_rec.contract_number;
10526: l_contract_error_count := l_contract_error_count + 1;
10527: END IF;
10528:
10547: END IF; -- IF p_contract_number IS NULL THEN
10548:
10549:
10550: retcode := 0;
10551: l_return_status := OKL_API.G_RET_STS_SUCCESS;
10552:
10553: EXCEPTION
10554: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
10555: l_return_status := Okl_Api.G_RET_STS_ERROR;
10550: retcode := 0;
10551: l_return_status := OKL_API.G_RET_STS_SUCCESS;
10552:
10553: EXCEPTION
10554: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
10555: l_return_status := Okl_Api.G_RET_STS_ERROR;
10556:
10557: -- print the error message in the log file and output files
10558: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'');
10551: l_return_status := OKL_API.G_RET_STS_SUCCESS;
10552:
10553: EXCEPTION
10554: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
10555: l_return_status := Okl_Api.G_RET_STS_ERROR;
10556:
10557: -- print the error message in the log file and output files
10558: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'');
10559: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET_STRING('OKL','OKL_AGN_RPT_PROGRAM_ERROR'));
10568: END IF;
10569:
10570: retcode := 2;
10571:
10572: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
10573: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
10574:
10575: -- print the error message in the log file
10576: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'');
10569:
10570: retcode := 2;
10571:
10572: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
10573: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
10574:
10575: -- print the error message in the log file
10576: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'');
10577: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET_STRING('OKL','OKL_AGN_RPT_PROGRAM_ERROR'));
10588: retcode := 2;
10589:
10590: WHEN OTHERS THEN
10591:
10592: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
10593:
10594: -- print the error message in the log file
10595: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'');
10596: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET_STRING('OKL','OKL_AGN_RPT_PROGRAM_ERROR'));
10644: l_sysdate DATE := SYSDATE;
10645: l_api_version CONSTANT NUMBER := 1.0;
10646: p_api_version CONSTANT NUMBER := 1.0;
10647: l_api_name CONSTANT VARCHAR2(30) := 'GENERATE_ACCRUALS_PARALLEL';
10648: l_init_msg_list VARCHAR2(2000) := OKL_API.G_FALSE;
10649: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10650: l_msg_count NUMBER;
10651: l_msg_data VARCHAR2(2000);
10652: l_period_name VARCHAR2(2000);
10645: l_api_version CONSTANT NUMBER := 1.0;
10646: p_api_version CONSTANT NUMBER := 1.0;
10647: l_api_name CONSTANT VARCHAR2(30) := 'GENERATE_ACCRUALS_PARALLEL';
10648: l_init_msg_list VARCHAR2(2000) := OKL_API.G_FALSE;
10649: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10650: l_msg_count NUMBER;
10651: l_msg_data VARCHAR2(2000);
10652: l_period_name VARCHAR2(2000);
10653: l_period_start_date DATE;
10750:
10751: -- request is a child request
10752: IF p_accrual_date IS NULL THEN
10753: --set message
10754: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
10755: p_msg_name => 'OKL_AGN_DATE_ERROR');
10756: RAISE Okl_Api.G_EXCEPTION_ERROR;
10757: END IF;
10758: l_accrual_date := FND_DATE.CANONICAL_TO_DATE(p_accrual_date);
10752: IF p_accrual_date IS NULL THEN
10753: --set message
10754: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
10755: p_msg_name => 'OKL_AGN_DATE_ERROR');
10756: RAISE Okl_Api.G_EXCEPTION_ERROR;
10757: END IF;
10758: l_accrual_date := FND_DATE.CANONICAL_TO_DATE(p_accrual_date);
10759:
10760: IF p_worker_id IS NULL THEN
10758: l_accrual_date := FND_DATE.CANONICAL_TO_DATE(p_accrual_date);
10759:
10760: IF p_worker_id IS NULL THEN
10761: --set message
10762: Okl_Api.set_message(p_app_name => g_app_name,
10763: p_msg_name => 'OKL_AGN_WORKER_ID_ERROR');
10764: RAISE Okl_Api.G_EXCEPTION_ERROR;
10765: END IF;
10766:
10760: IF p_worker_id IS NULL THEN
10761: --set message
10762: Okl_Api.set_message(p_app_name => g_app_name,
10763: p_msg_name => 'OKL_AGN_WORKER_ID_ERROR');
10764: RAISE Okl_Api.G_EXCEPTION_ERROR;
10765: END IF;
10766:
10767: IF p_rev_rec_method IS NULL THEN
10768: --set message
10765: END IF;
10766:
10767: IF p_rev_rec_method IS NULL THEN
10768: --set message
10769: Okl_Api.set_message(p_app_name => g_app_name,
10770: p_msg_name => 'OKL_AGN_REV_REC_ERROR');
10771: RAISE Okl_Api.G_EXCEPTION_ERROR;
10772: END IF;
10773:
10767: IF p_rev_rec_method IS NULL THEN
10768: --set message
10769: Okl_Api.set_message(p_app_name => g_app_name,
10770: p_msg_name => 'OKL_AGN_REV_REC_ERROR');
10771: RAISE Okl_Api.G_EXCEPTION_ERROR;
10772: END IF;
10773:
10774: -- get common info
10775: GET_COMMON_INFO (p_accrual_date => l_accrual_date,
10785: x_func_currency_code => l_func_currency_code,
10786: x_return_status => l_return_status
10787: );
10788:
10789: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
10790: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
10791: -- need to leave
10792: Okl_Api.set_message(p_app_name => g_app_name,
10793: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
10786: x_return_status => l_return_status
10787: );
10788:
10789: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
10790: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
10791: -- need to leave
10792: Okl_Api.set_message(p_app_name => g_app_name,
10793: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
10794: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10788:
10789: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
10790: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
10791: -- need to leave
10792: Okl_Api.set_message(p_app_name => g_app_name,
10793: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
10794: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10795: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
10796: Okl_Api.set_message(p_app_name => g_app_name,
10790: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
10791: -- need to leave
10792: Okl_Api.set_message(p_app_name => g_app_name,
10793: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
10794: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10795: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
10796: Okl_Api.set_message(p_app_name => g_app_name,
10797: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
10798: RAISE OKL_API.G_EXCEPTION_ERROR;
10791: -- need to leave
10792: Okl_Api.set_message(p_app_name => g_app_name,
10793: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
10794: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10795: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
10796: Okl_Api.set_message(p_app_name => g_app_name,
10797: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
10798: RAISE OKL_API.G_EXCEPTION_ERROR;
10799: END IF;
10792: Okl_Api.set_message(p_app_name => g_app_name,
10793: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
10794: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10795: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
10796: Okl_Api.set_message(p_app_name => g_app_name,
10797: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
10798: RAISE OKL_API.G_EXCEPTION_ERROR;
10799: END IF;
10800: END IF;
10794: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10795: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
10796: Okl_Api.set_message(p_app_name => g_app_name,
10797: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
10798: RAISE OKL_API.G_EXCEPTION_ERROR;
10799: END IF;
10800: END IF;
10801:
10802: -- Calculate the number of days (to_date) to reverse in case of non-accrual
10808: ,l_accrual_date
10809: ,p_batch_name
10810: ,l_func_currency_code
10811: ,l_return_status);
10812: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
10813: Okl_Api.set_message(p_app_name => g_app_name,
10814: p_msg_name => 'OKL_AGN_REPORT_ERROR');
10815: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10816: END IF;
10809: ,p_batch_name
10810: ,l_func_currency_code
10811: ,l_return_status);
10812: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
10813: Okl_Api.set_message(p_app_name => g_app_name,
10814: p_msg_name => 'OKL_AGN_REPORT_ERROR');
10815: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10816: END IF;
10817:
10811: ,l_return_status);
10812: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
10813: Okl_Api.set_message(p_app_name => g_app_name,
10814: p_msg_name => 'OKL_AGN_REPORT_ERROR');
10815: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10816: END IF;
10817:
10818: -- Open cursor to select contracts for accrual processing
10819: -- Bug 4602404.
10902: x_msg_count => l_msg_count,
10903: x_msg_data => l_msg_data,
10904: p_process_accrual_rec => l_process_accrual_rec);
10905:
10906: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
10907: l_contract_error_tbl(l_contract_error_count) := l_process_accrual_rec.contract_number;
10908: l_contract_error_count := l_contract_error_count + 1;
10909: END IF;
10910:
10939: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET_STRING('OKL','OKL_AGN_RPT_ADD_INFO'));
10940: END IF;
10941:
10942: retcode := 0;
10943: l_return_status := OKL_API.G_RET_STS_SUCCESS;
10944:
10945: EXCEPTION
10946: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
10947: l_return_status := Okl_Api.G_RET_STS_ERROR;
10942: retcode := 0;
10943: l_return_status := OKL_API.G_RET_STS_SUCCESS;
10944:
10945: EXCEPTION
10946: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
10947: l_return_status := Okl_Api.G_RET_STS_ERROR;
10948:
10949: -- print the error message in the log file and output files
10950: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'');
10943: l_return_status := OKL_API.G_RET_STS_SUCCESS;
10944:
10945: EXCEPTION
10946: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
10947: l_return_status := Okl_Api.G_RET_STS_ERROR;
10948:
10949: -- print the error message in the log file and output files
10950: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'');
10951: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET_STRING('OKL','OKL_AGN_RPT_PROGRAM_ERROR'));
10960: END IF;
10961:
10962: retcode := 2;
10963:
10964: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
10965: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
10966:
10967: -- print the error message in the log file
10968: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'');
10961:
10962: retcode := 2;
10963:
10964: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
10965: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
10966:
10967: -- print the error message in the log file
10968: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'');
10969: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET_STRING('OKL','OKL_AGN_RPT_PROGRAM_ERROR'));
10980: retcode := 2;
10981:
10982: WHEN OTHERS THEN
10983:
10984: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
10985:
10986: -- print the error message in the log file
10987: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'');
10988: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET_STRING('OKL','OKL_AGN_RPT_PROGRAM_ERROR'));
11033: l_reverse_date_to DATE;
11034: l_sob_name VARCHAR2(2000);
11035: l_api_version CONSTANT NUMBER := 1.0;
11036: l_api_name CONSTANT VARCHAR2(30) := 'GENERATE_ACCRUALS';
11037: l_init_msg_list VARCHAR2(2000) := OKL_API.G_FALSE;
11038: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
11039: l_msg_count NUMBER;
11040: l_msg_data VARCHAR2(2000);
11041: l_period_name VARCHAR2(2000);
11034: l_sob_name VARCHAR2(2000);
11035: l_api_version CONSTANT NUMBER := 1.0;
11036: l_api_name CONSTANT VARCHAR2(30) := 'GENERATE_ACCRUALS';
11037: l_init_msg_list VARCHAR2(2000) := OKL_API.G_FALSE;
11038: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
11039: l_msg_count NUMBER;
11040: l_msg_data VARCHAR2(2000);
11041: l_period_name VARCHAR2(2000);
11042: l_period_start_date DATE;
11099:
11100: BEGIN
11101:
11102: -- Set save point
11103: l_return_status := Okl_Api.START_ACTIVITY(l_api_name
11104: ,G_PKG_NAME
11105: ,p_init_msg_list
11106: ,l_api_version
11107: ,p_api_version
11107: ,p_api_version
11108: ,'_PVT'
11109: ,x_return_status);
11110:
11111: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
11112: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11113: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
11114: RAISE Okl_Api.G_EXCEPTION_ERROR;
11115: END IF;
11108: ,'_PVT'
11109: ,x_return_status);
11110:
11111: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
11112: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11113: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
11114: RAISE Okl_Api.G_EXCEPTION_ERROR;
11115: END IF;
11116:
11109: ,x_return_status);
11110:
11111: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
11112: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11113: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
11114: RAISE Okl_Api.G_EXCEPTION_ERROR;
11115: END IF;
11116:
11117: -- validate input parameters
11110:
11111: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
11112: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11113: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
11114: RAISE Okl_Api.G_EXCEPTION_ERROR;
11115: END IF;
11116:
11117: -- validate input parameters
11118: IF (p_accrual_rec.contract_id IS NULL) OR (p_accrual_rec.contract_id = OKL_API.G_MISS_NUM) THEN
11114: RAISE Okl_Api.G_EXCEPTION_ERROR;
11115: END IF;
11116:
11117: -- validate input parameters
11118: IF (p_accrual_rec.contract_id IS NULL) OR (p_accrual_rec.contract_id = OKL_API.G_MISS_NUM) THEN
11119: Okl_Api.set_message(p_app_name => g_app_name,
11120: p_msg_name => 'OKL_AGN_ACN_KHR_ID_ERROR');
11121: RAISE Okl_Api.G_EXCEPTION_ERROR;
11122: END IF;
11115: END IF;
11116:
11117: -- validate input parameters
11118: IF (p_accrual_rec.contract_id IS NULL) OR (p_accrual_rec.contract_id = OKL_API.G_MISS_NUM) THEN
11119: Okl_Api.set_message(p_app_name => g_app_name,
11120: p_msg_name => 'OKL_AGN_ACN_KHR_ID_ERROR');
11121: RAISE Okl_Api.G_EXCEPTION_ERROR;
11122: END IF;
11123: l_contract_id := p_accrual_rec.contract_id;
11117: -- validate input parameters
11118: IF (p_accrual_rec.contract_id IS NULL) OR (p_accrual_rec.contract_id = OKL_API.G_MISS_NUM) THEN
11119: Okl_Api.set_message(p_app_name => g_app_name,
11120: p_msg_name => 'OKL_AGN_ACN_KHR_ID_ERROR');
11121: RAISE Okl_Api.G_EXCEPTION_ERROR;
11122: END IF;
11123: l_contract_id := p_accrual_rec.contract_id;
11124:
11125: IF (p_accrual_rec.accrual_date IS NULL) OR (p_accrual_rec.accrual_date = Okl_Api.G_MISS_DATE) THEN
11121: RAISE Okl_Api.G_EXCEPTION_ERROR;
11122: END IF;
11123: l_contract_id := p_accrual_rec.contract_id;
11124:
11125: IF (p_accrual_rec.accrual_date IS NULL) OR (p_accrual_rec.accrual_date = Okl_Api.G_MISS_DATE) THEN
11126: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
11127: p_msg_name => 'OKL_AGN_DATE_ERROR');
11128: RAISE Okl_Api.G_EXCEPTION_ERROR;
11129: END IF;
11122: END IF;
11123: l_contract_id := p_accrual_rec.contract_id;
11124:
11125: IF (p_accrual_rec.accrual_date IS NULL) OR (p_accrual_rec.accrual_date = Okl_Api.G_MISS_DATE) THEN
11126: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
11127: p_msg_name => 'OKL_AGN_DATE_ERROR');
11128: RAISE Okl_Api.G_EXCEPTION_ERROR;
11129: END IF;
11130: l_accrual_date := p_accrual_rec.accrual_date;
11124:
11125: IF (p_accrual_rec.accrual_date IS NULL) OR (p_accrual_rec.accrual_date = Okl_Api.G_MISS_DATE) THEN
11126: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
11127: p_msg_name => 'OKL_AGN_DATE_ERROR');
11128: RAISE Okl_Api.G_EXCEPTION_ERROR;
11129: END IF;
11130: l_accrual_date := p_accrual_rec.accrual_date;
11131:
11132: IF (p_accrual_rec.source_trx_id IS NULL) OR (p_accrual_rec.source_trx_id = Okl_Api.G_MISS_NUM) THEN
11128: RAISE Okl_Api.G_EXCEPTION_ERROR;
11129: END IF;
11130: l_accrual_date := p_accrual_rec.accrual_date;
11131:
11132: IF (p_accrual_rec.source_trx_id IS NULL) OR (p_accrual_rec.source_trx_id = Okl_Api.G_MISS_NUM) THEN
11133: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
11134: p_msg_name => 'OKL_AGN_SRC_TRX_ID_ERROR');
11135: RAISE Okl_Api.G_EXCEPTION_ERROR;
11136: END IF;
11129: END IF;
11130: l_accrual_date := p_accrual_rec.accrual_date;
11131:
11132: IF (p_accrual_rec.source_trx_id IS NULL) OR (p_accrual_rec.source_trx_id = Okl_Api.G_MISS_NUM) THEN
11133: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
11134: p_msg_name => 'OKL_AGN_SRC_TRX_ID_ERROR');
11135: RAISE Okl_Api.G_EXCEPTION_ERROR;
11136: END IF;
11137: l_source_trx_id := p_accrual_rec.source_trx_id;
11131:
11132: IF (p_accrual_rec.source_trx_id IS NULL) OR (p_accrual_rec.source_trx_id = Okl_Api.G_MISS_NUM) THEN
11133: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
11134: p_msg_name => 'OKL_AGN_SRC_TRX_ID_ERROR');
11135: RAISE Okl_Api.G_EXCEPTION_ERROR;
11136: END IF;
11137: l_source_trx_id := p_accrual_rec.source_trx_id;
11138:
11139: IF (p_accrual_rec.source_trx_type IS NULL) OR (p_accrual_rec.source_trx_type = Okl_Api.G_MISS_CHAR) THEN
11135: RAISE Okl_Api.G_EXCEPTION_ERROR;
11136: END IF;
11137: l_source_trx_id := p_accrual_rec.source_trx_id;
11138:
11139: IF (p_accrual_rec.source_trx_type IS NULL) OR (p_accrual_rec.source_trx_type = Okl_Api.G_MISS_CHAR) THEN
11140: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
11141: p_msg_name => 'OKL_AGN_SRC_TRX_TYPE_ERROR');
11142: RAISE Okl_Api.G_EXCEPTION_ERROR;
11143: END IF;
11136: END IF;
11137: l_source_trx_id := p_accrual_rec.source_trx_id;
11138:
11139: IF (p_accrual_rec.source_trx_type IS NULL) OR (p_accrual_rec.source_trx_type = Okl_Api.G_MISS_CHAR) THEN
11140: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
11141: p_msg_name => 'OKL_AGN_SRC_TRX_TYPE_ERROR');
11142: RAISE Okl_Api.G_EXCEPTION_ERROR;
11143: END IF;
11144: l_source_trx_type := p_accrual_rec.source_trx_type;
11138:
11139: IF (p_accrual_rec.source_trx_type IS NULL) OR (p_accrual_rec.source_trx_type = Okl_Api.G_MISS_CHAR) THEN
11140: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
11141: p_msg_name => 'OKL_AGN_SRC_TRX_TYPE_ERROR');
11142: RAISE Okl_Api.G_EXCEPTION_ERROR;
11143: END IF;
11144: l_source_trx_type := p_accrual_rec.source_trx_type;
11145:
11146: -- get common info
11169: WRITE_TO_LOG('Org Id :'||l_org_id);
11170: WRITE_TO_LOG('Org Name :'||l_org_name);
11171: WRITE_TO_LOG('Accrual Rev Days :'||l_accrual_reversal_days);
11172: WRITE_TO_LOG('Func Currency Code:'||l_func_currency_code);
11173: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
11174: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
11175: -- need to leave
11176: Okl_Api.set_message(p_app_name => g_app_name,
11177: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
11170: WRITE_TO_LOG('Org Name :'||l_org_name);
11171: WRITE_TO_LOG('Accrual Rev Days :'||l_accrual_reversal_days);
11172: WRITE_TO_LOG('Func Currency Code:'||l_func_currency_code);
11173: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
11174: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
11175: -- need to leave
11176: Okl_Api.set_message(p_app_name => g_app_name,
11177: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
11178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11172: WRITE_TO_LOG('Func Currency Code:'||l_func_currency_code);
11173: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
11174: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
11175: -- need to leave
11176: Okl_Api.set_message(p_app_name => g_app_name,
11177: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
11178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11179: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
11180: Okl_Api.set_message(p_app_name => g_app_name,
11174: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
11175: -- need to leave
11176: Okl_Api.set_message(p_app_name => g_app_name,
11177: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
11178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11179: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
11180: Okl_Api.set_message(p_app_name => g_app_name,
11181: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
11182: RAISE OKL_API.G_EXCEPTION_ERROR;
11175: -- need to leave
11176: Okl_Api.set_message(p_app_name => g_app_name,
11177: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
11178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11179: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
11180: Okl_Api.set_message(p_app_name => g_app_name,
11181: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
11182: RAISE OKL_API.G_EXCEPTION_ERROR;
11183: END IF;
11176: Okl_Api.set_message(p_app_name => g_app_name,
11177: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
11178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11179: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
11180: Okl_Api.set_message(p_app_name => g_app_name,
11181: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
11182: RAISE OKL_API.G_EXCEPTION_ERROR;
11183: END IF;
11184: END IF;
11178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11179: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
11180: Okl_Api.set_message(p_app_name => g_app_name,
11181: p_msg_name => 'OKL_AGN_COM_INFO_ERROR');
11182: RAISE OKL_API.G_EXCEPTION_ERROR;
11183: END IF;
11184: END IF;
11185:
11186: -- Calculate the number of days (to_date) to reverse in case of non-accrual
11185:
11186: -- Calculate the number of days (to_date) to reverse in case of non-accrual
11187: l_reverse_date_to := l_accrual_date - l_accrual_reversal_days;
11188: IF l_reverse_date_to IS NULL THEN
11189: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'REVERSE_DATE_TO');
11190: RAISE OKL_API.G_EXCEPTION_ERROR;
11191: END IF;
11192:
11193: FOR l_accrual_contracts IN accrual_contract_csr (l_contract_id)
11186: -- Calculate the number of days (to_date) to reverse in case of non-accrual
11187: l_reverse_date_to := l_accrual_date - l_accrual_reversal_days;
11188: IF l_reverse_date_to IS NULL THEN
11189: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'REVERSE_DATE_TO');
11190: RAISE OKL_API.G_EXCEPTION_ERROR;
11191: END IF;
11192:
11193: FOR l_accrual_contracts IN accrual_contract_csr (l_contract_id)
11194: LOOP
11206: l_rev_rec_method := l_accrual_contracts.revenue_recognition_method;
11207: END LOOP;
11208:
11209: IF l_contract_number IS NULL THEN
11210: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CONTRACT_NUMBER');
11211: RAISE OKL_API.G_EXCEPTION_ERROR;
11212: END IF;
11213:
11214: IF l_sts_code IS NULL THEN
11207: END LOOP;
11208:
11209: IF l_contract_number IS NULL THEN
11210: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CONTRACT_NUMBER');
11211: RAISE OKL_API.G_EXCEPTION_ERROR;
11212: END IF;
11213:
11214: IF l_sts_code IS NULL THEN
11215: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'STS_CODE');
11211: RAISE OKL_API.G_EXCEPTION_ERROR;
11212: END IF;
11213:
11214: IF l_sts_code IS NULL THEN
11215: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'STS_CODE');
11216: RAISE OKL_API.G_EXCEPTION_ERROR;
11217: END IF;
11218:
11219: IF l_sts_code NOT IN ('BOOKED', 'EVERGREEN', 'ACTIVE') THEN
11212: END IF;
11213:
11214: IF l_sts_code IS NULL THEN
11215: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'STS_CODE');
11216: RAISE OKL_API.G_EXCEPTION_ERROR;
11217: END IF;
11218:
11219: IF l_sts_code NOT IN ('BOOKED', 'EVERGREEN', 'ACTIVE') THEN
11220: -- store SQL error message on message stack for caller
11217: END IF;
11218:
11219: IF l_sts_code NOT IN ('BOOKED', 'EVERGREEN', 'ACTIVE') THEN
11220: -- store SQL error message on message stack for caller
11221: okl_api.set_message(p_app_name => G_APP_NAME,
11222: p_msg_name => 'OKL_AGN_STS_CODE_ERROR',
11223: p_token1 => g_contract_number_token,
11224: p_token1_value => l_contract_number);
11225: RAISE OKL_API.G_EXCEPTION_ERROR;
11221: okl_api.set_message(p_app_name => G_APP_NAME,
11222: p_msg_name => 'OKL_AGN_STS_CODE_ERROR',
11223: p_token1 => g_contract_number_token,
11224: p_token1_value => l_contract_number);
11225: RAISE OKL_API.G_EXCEPTION_ERROR;
11226: END IF;
11227:
11228: IF l_product_id IS NULL THEN
11229: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'PRODUCT_ID');
11225: RAISE OKL_API.G_EXCEPTION_ERROR;
11226: END IF;
11227:
11228: IF l_product_id IS NULL THEN
11229: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'PRODUCT_ID');
11230: RAISE OKL_API.G_EXCEPTION_ERROR;
11231: END IF;
11232:
11233: IF l_accrual_status IS NULL THEN
11226: END IF;
11227:
11228: IF l_product_id IS NULL THEN
11229: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'PRODUCT_ID');
11230: RAISE OKL_API.G_EXCEPTION_ERROR;
11231: END IF;
11232:
11233: IF l_accrual_status IS NULL THEN
11234: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'GENERATE_ACCRUAL_YN');
11230: RAISE OKL_API.G_EXCEPTION_ERROR;
11231: END IF;
11232:
11233: IF l_accrual_status IS NULL THEN
11234: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'GENERATE_ACCRUAL_YN');
11235: RAISE OKL_API.G_EXCEPTION_ERROR;
11236: END IF;
11237:
11238: IF l_override_status IS NULL THEN
11231: END IF;
11232:
11233: IF l_accrual_status IS NULL THEN
11234: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'GENERATE_ACCRUAL_YN');
11235: RAISE OKL_API.G_EXCEPTION_ERROR;
11236: END IF;
11237:
11238: IF l_override_status IS NULL THEN
11239: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'GENERATE_ACCRUAL_OVERRIDE_YN');
11235: RAISE OKL_API.G_EXCEPTION_ERROR;
11236: END IF;
11237:
11238: IF l_override_status IS NULL THEN
11239: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'GENERATE_ACCRUAL_OVERRIDE_YN');
11240: RAISE OKL_API.G_EXCEPTION_ERROR;
11241: END IF;
11242:
11243: IF l_start_date IS NULL THEN
11236: END IF;
11237:
11238: IF l_override_status IS NULL THEN
11239: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'GENERATE_ACCRUAL_OVERRIDE_YN');
11240: RAISE OKL_API.G_EXCEPTION_ERROR;
11241: END IF;
11242:
11243: IF l_start_date IS NULL THEN
11244: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'START_DATE');
11240: RAISE OKL_API.G_EXCEPTION_ERROR;
11241: END IF;
11242:
11243: IF l_start_date IS NULL THEN
11244: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'START_DATE');
11245: RAISE OKL_API.G_EXCEPTION_ERROR;
11246: END IF;
11247: -- modified by zrehman for Bug#6788005 on 11-Feb-2008 start
11248: IF l_deal_type IS NULL AND l_sts_code NOT IN ('ACTIVE') THEN
11241: END IF;
11242:
11243: IF l_start_date IS NULL THEN
11244: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'START_DATE');
11245: RAISE OKL_API.G_EXCEPTION_ERROR;
11246: END IF;
11247: -- modified by zrehman for Bug#6788005 on 11-Feb-2008 start
11248: IF l_deal_type IS NULL AND l_sts_code NOT IN ('ACTIVE') THEN
11249: -- modified by zrehman for Bug#6788005 on 11-Feb-2008 end
11246: END IF;
11247: -- modified by zrehman for Bug#6788005 on 11-Feb-2008 start
11248: IF l_deal_type IS NULL AND l_sts_code NOT IN ('ACTIVE') THEN
11249: -- modified by zrehman for Bug#6788005 on 11-Feb-2008 end
11250: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'DEAL_TYPE');
11251: RAISE OKL_API.G_EXCEPTION_ERROR;
11252: END IF;
11253:
11254: IF l_khr_currency_code IS NULL THEN
11247: -- modified by zrehman for Bug#6788005 on 11-Feb-2008 start
11248: IF l_deal_type IS NULL AND l_sts_code NOT IN ('ACTIVE') THEN
11249: -- modified by zrehman for Bug#6788005 on 11-Feb-2008 end
11250: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'DEAL_TYPE');
11251: RAISE OKL_API.G_EXCEPTION_ERROR;
11252: END IF;
11253:
11254: IF l_khr_currency_code IS NULL THEN
11255: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CURRENCY_CODE');
11251: RAISE OKL_API.G_EXCEPTION_ERROR;
11252: END IF;
11253:
11254: IF l_khr_currency_code IS NULL THEN
11255: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CURRENCY_CODE');
11256: RAISE OKL_API.G_EXCEPTION_ERROR;
11257: END IF;
11258:
11259: IF l_rev_rec_method IS NULL THEN
11252: END IF;
11253:
11254: IF l_khr_currency_code IS NULL THEN
11255: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CURRENCY_CODE');
11256: RAISE OKL_API.G_EXCEPTION_ERROR;
11257: END IF;
11258:
11259: IF l_rev_rec_method IS NULL THEN
11260: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'REVENUE_RECOGNITION_METHOD');
11256: RAISE OKL_API.G_EXCEPTION_ERROR;
11257: END IF;
11258:
11259: IF l_rev_rec_method IS NULL THEN
11260: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'REVENUE_RECOGNITION_METHOD');
11261: RAISE OKL_API.G_EXCEPTION_ERROR;
11262: END IF;
11263:
11264:
11257: END IF;
11258:
11259: IF l_rev_rec_method IS NULL THEN
11260: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'REVENUE_RECOGNITION_METHOD');
11261: RAISE OKL_API.G_EXCEPTION_ERROR;
11262: END IF;
11263:
11264:
11265: l_process_accrual_rec := NULL;
11299: x_msg_data => l_msg_data,
11300: p_process_accrual_rec => l_process_accrual_rec
11301: );
11302:
11303: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
11304: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
11305: -- need to leave
11306: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11307: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
11300: p_process_accrual_rec => l_process_accrual_rec
11301: );
11302:
11303: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
11304: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
11305: -- need to leave
11306: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11307: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
11308: RAISE OKL_API.G_EXCEPTION_ERROR;
11302:
11303: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
11304: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
11305: -- need to leave
11306: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11307: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
11308: RAISE OKL_API.G_EXCEPTION_ERROR;
11309: END IF;
11310: END IF;
11303: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
11304: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
11305: -- need to leave
11306: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11307: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
11308: RAISE OKL_API.G_EXCEPTION_ERROR;
11309: END IF;
11310: END IF;
11311:
11304: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
11305: -- need to leave
11306: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11307: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
11308: RAISE OKL_API.G_EXCEPTION_ERROR;
11309: END IF;
11310: END IF;
11311:
11312: x_return_status := l_return_status;
11311:
11312: x_return_status := l_return_status;
11313:
11314: EXCEPTION
11315: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
11316: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
11317: ,g_pkg_name
11318: ,'OKL_API.G_RET_STS_ERROR'
11319: ,x_msg_count
11312: x_return_status := l_return_status;
11313:
11314: EXCEPTION
11315: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
11316: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
11317: ,g_pkg_name
11318: ,'OKL_API.G_RET_STS_ERROR'
11319: ,x_msg_count
11320: ,x_msg_data
11314: EXCEPTION
11315: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
11316: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
11317: ,g_pkg_name
11318: ,'OKL_API.G_RET_STS_ERROR'
11319: ,x_msg_count
11320: ,x_msg_data
11321: ,'_PVT');
11322:
11319: ,x_msg_count
11320: ,x_msg_data
11321: ,'_PVT');
11322:
11323: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
11324: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
11325: ,g_pkg_name
11326: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
11327: ,x_msg_count
11320: ,x_msg_data
11321: ,'_PVT');
11322:
11323: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
11324: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
11325: ,g_pkg_name
11326: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
11327: ,x_msg_count
11328: ,x_msg_data
11322:
11323: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
11324: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(l_api_name
11325: ,g_pkg_name
11326: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
11327: ,x_msg_count
11328: ,x_msg_data
11329: ,'_PVT');
11330:
11329: ,'_PVT');
11330:
11331: WHEN OTHERS THEN
11332:
11333: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
11334: (l_api_name,
11335: G_PKG_NAME,
11336: 'OTHERS',
11337: x_msg_count,
11350:
11351: EXCEPTION
11352: WHEN OTHERS THEN
11353: -- store SQL error message on message stack for caller
11354: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
11355: p_msg_name => g_unexpected_error,
11356: p_token1 => g_sqlcode_token,
11357: p_token1_value => SQLCODE,
11358: p_token2 => g_sqlerrm_token,