380: ,x_return_status => l_return_status
381: ,x_primary_sty_id => l_sty_id);
382:
383: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
384: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- ERROR: Obtaining sty id for: INVESTOR_RECEIVABLE.');
385: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
386: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
387: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- ERROR: Obtaining sty id for: INVESTOR_RECEIVABLE.');
388: RAISE Okl_Api.G_EXCEPTION_ERROR;
383: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
384: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- ERROR: Obtaining sty id for: INVESTOR_RECEIVABLE.');
385: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
386: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
387: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- ERROR: Obtaining sty id for: INVESTOR_RECEIVABLE.');
388: RAISE Okl_Api.G_EXCEPTION_ERROR;
389: END IF;
390:
391: OPEN c_sty_id(cp_sty_id=>l_sty_id);
967: l_acc_gen_primary_key_tbl,
968: l_return_status);
969:
970: IF (l_return_status = 'S' ) THEN
971: --FND_FILE.PUT_LINE (FND_FILE.LOG, ' -- Acc Gen Key Tbl populated.');
972: null;
973: ELSE
974: l_distr_err := TRUE;
975: --FND_FILE.PUT_LINE (FND_FILE.LOG, ' -- Error populating Acc Gen Key Tbl.');
971: --FND_FILE.PUT_LINE (FND_FILE.LOG, ' -- Acc Gen Key Tbl populated.');
972: null;
973: ELSE
974: l_distr_err := TRUE;
975: --FND_FILE.PUT_LINE (FND_FILE.LOG, ' -- Error populating Acc Gen Key Tbl.');
976: END IF;
977:
978: l_cc_id := OKL_ACCOUNT_GENERATOR_PUB.GET_CCID
979: (p_api_version => p_api_version,
984: p_acc_gen_wf_sources_rec => l_acc_gen_wf_sources_rec,
985: p_ae_line_type => dstrs_rec.AE_LINE_TYPE,
986: p_primary_key_tbl => l_acc_gen_primary_key_tbl);
987: IF (l_return_status = 'S' ) THEN
988: --FND_FILE.PUT_LINE (FND_FILE.LOG, ' -- Acc Gen Fetched CCID');
989: null;
990: ELSE
991: l_distr_err := TRUE;
992: --FND_FILE.PUT_LINE (FND_FILE.LOG, ' -- Error Acc Gen Fetching CCID.');
988: --FND_FILE.PUT_LINE (FND_FILE.LOG, ' -- Acc Gen Fetched CCID');
989: null;
990: ELSE
991: l_distr_err := TRUE;
992: --FND_FILE.PUT_LINE (FND_FILE.LOG, ' -- Error Acc Gen Fetching CCID.');
993: END IF;
994: END IF;
995:
996: l_amount := okl_accounting_util.cross_currency_round_amount
1146: p_encoded => 'F',
1147: p_data => lx_msg_data,
1148: p_msg_index_out => l_msg_index_out);
1149:
1150: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,to_char(i) || ': ' || lx_msg_data);
1151: END LOOP;
1152: END IF;
1153:
1154: EXCEPTION
1152: END IF;
1153:
1154: EXCEPTION
1155: WHEN OTHERS THEN
1156: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '*=>Exception Calling API..'||SQLERRM);
1157: END create_bill_txn_conc;
1158:
1159:
1160: ------------------------------------------------------------------
1346: -- Exception handling
1347: ------------------------------------------------------------
1348: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1349:
1350: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '*=>ERROR: '||SQLERRM);
1351: x_return_status := Okl_Api.HANDLE_EXCEPTIONS (
1352: p_api_name => l_api_name,
1353: p_pkg_name => G_PKG_NAME,
1354: p_exc_name => 'Okl_Api.G_RET_STS_ERROR',
1356: x_msg_data => x_msg_data,
1357: p_api_type => '_PVT');
1358:
1359: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1360: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '*=>ERROR: '||SQLERRM);
1361: x_return_status := Okl_Api.HANDLE_EXCEPTIONS (
1362: p_api_name => l_api_name,
1363: p_pkg_name => G_PKG_NAME,
1364: p_exc_name => 'Okl_Api.G_RET_STS_UNEXP_ERROR',
1366: x_msg_data => x_msg_data,
1367: p_api_type => '_PVT');
1368:
1369: WHEN OTHERS THEN
1370: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '*=>ERROR: '||SQLERRM);
1371: x_return_status := Okl_Api.HANDLE_EXCEPTIONS (
1372: p_api_name => l_api_name,
1373: p_pkg_name => G_PKG_NAME,
1374: p_exc_name => 'OTHERS',