APPS.OKL_TCL_PVT dependencies on OKL_API

Line 1264: l_dummy VARCHAR2(1) := OKL_API.G_FALSE;

1260: PROCEDURE Validate_GL_Reversal_YN(p_tclv_rec IN tclv_rec_type
1261: ,x_return_status OUT NOCOPY VARCHAR2)
1262: IS
1263:
1264: l_dummy VARCHAR2(1) := OKL_API.G_FALSE;
1265: l_app_id NUMBER := 0;
1266: l_view_app_id NUMBER := 0;
1267:
1268: BEGIN

Line 1283: IF (l_dummy = OKL_API.G_FALSE) THEN

1279: p_lookup_code => p_tclv_rec.gl_reversal_yn,
1280: p_app_id => l_app_id,
1281: p_view_app_id => l_view_app_id);
1282:
1283: IF (l_dummy = OKL_API.G_FALSE) THEN
1284: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1285: ,p_msg_name => g_invalid_value
1286: ,p_token1 => g_col_name_token
1287: ,p_token1_value => 'gl_reversal_yn');

Line 1331: l_return_status VARCHAR2(1) := OKL_API.G_TRUE;

1327: PROCEDURE Validate_currency_code(p_tclv_rec IN tclv_rec_type
1328: ,x_return_status OUT NOCOPY VARCHAR2)
1329: IS
1330:
1331: l_return_status VARCHAR2(1) := OKL_API.G_TRUE;
1332:
1333: BEGIN
1334: -- initialize return status
1335: x_return_status := OKC_API.G_RET_STS_SUCCESS;

Line 1350: IF l_return_status = okl_api.g_false THEN

1346: ELSE
1347: l_return_status := OKL_ACCOUNTING_UTIL.VALIDATE_CURRENCY_CODE (
1348: p_tclv_rec.currency_code);
1349:
1350: IF l_return_status = okl_api.g_false THEN
1351: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
1352: p_msg_name => g_invalid_value,
1353: p_token1 => g_col_name_token,
1354: p_token1_value => 'CURRENCY_CODE');

Line 1711: l_dummy VARCHAR2(1) := OKL_API.G_FALSE;

1707: PROCEDURE Validate_Accrual_Rule_YN(p_tclv_rec IN tclv_rec_type
1708: ,x_return_status OUT NOCOPY VARCHAR2)
1709: IS
1710:
1711: l_dummy VARCHAR2(1) := OKL_API.G_FALSE;
1712: l_app_id NUMBER := 0;
1713: l_view_app_id NUMBER := 0;
1714:
1715: BEGIN

Line 1730: IF (l_dummy = OKL_API.G_FALSE) THEN

1726: p_lookup_code => p_tclv_rec.accrual_rule_yn,
1727: p_app_id => l_app_id,
1728: p_view_app_id => l_view_app_id);
1729:
1730: IF (l_dummy = OKL_API.G_FALSE) THEN
1731: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1732: ,p_msg_name => g_invalid_value
1733: ,p_token1 => g_col_name_token
1734: ,p_token1_value => 'accrual_rule_yn');

Line 1932: IF (l_dummy = OKL_API.G_FALSE) THEN

1928: l_dummy := OKL_ACCOUNTING_UTIL.VALIDATE_LOOKUP_CODE
1929: (p_lookup_type => 'OKL_YES_NO',
1930: p_lookup_code => p_tclv_rec.UPGRADE_STATUS_FLAG);
1931:
1932: IF (l_dummy = OKL_API.G_FALSE) THEN
1933: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1934: ,p_msg_name => g_invalid_value
1935: ,p_token1 => g_col_name_token
1936: ,p_token1_value => 'UPGRADE_STATUS_FLAG');

Line 2916: (x_tclv_rec.currency_code = OKL_API.G_MISS_CHAR) THEN

2912: -- be the currency code of the transaction.
2913:
2914: /*
2915: IF (x_tclv_rec.currency_code IS NULL) OR
2916: (x_tclv_rec.currency_code = OKL_API.G_MISS_CHAR) THEN
2917: x_tclv_rec.currency_code := OKL_ACCOUNTING_UTIL.GET_FUNC_CURR_CODE;
2918: END IF;
2919: */
2920:

Line 2924: IF (x_tclv_rec.currency_code IS NULL) OR (x_tclv_rec.currency_code = OKL_API.G_MISS_CHAR) THEN

2920:
2921: -- Added by Santonyr on 25-Nov-2002
2922: -- If the passed currency code is null get the code from contract transactions
2923:
2924: IF (x_tclv_rec.currency_code IS NULL) OR (x_tclv_rec.currency_code = OKL_API.G_MISS_CHAR) THEN
2925: FOR trx_curr_rec IN trx_curr_csr (p_tclv_rec.tcn_id) LOOP
2926: x_tclv_rec.currency_code := trx_curr_rec.currency_code;
2927: END LOOP;
2928: END IF;