[Home] [Help]
PACKAGE BODY: APPS.OKL_INVOKE_PRICING_ENGINE_PVT
Source
1 PACKAGE BODY OKL_INVOKE_PRICING_ENGINE_PVT AS
2 /* $Header: OKLRSSMB.pls 120.5 2006/03/24 01:12:05 cijang noship $ */
3
4 G_MODULE VARCHAR2(255) := 'okl.stream.esg.okl_invoke_pricing_engine_pvt.generate_streams_st';
5 G_DEBUG_ENABLED CONSTANT VARCHAR2(10) := OKL_DEBUG_PUB.CHECK_LOG_ENABLED;
6 G_IS_DEBUG_EXCEPTION_ON BOOLEAN;
7 G_IS_DEBUG_ERROR_ON BOOLEAN;
8 G_IS_DEBUG_PROCEDURE_ON BOOLEAN;
9
10 PROCEDURE generate_streams_st(
11 p_api_version IN NUMBER,
12 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
13 x_return_status OUT NOCOPY VARCHAR2,
14 x_msg_count OUT NOCOPY NUMBER,
15 x_msg_data OUT NOCOPY VARCHAR2,
16 p_xmlg_trx_type IN VARCHAR2,
17 p_xmlg_trx_sub_type IN VARCHAR2,
18 p_sifv_rec IN OKL_SIF_PVT.SIFV_REC_TYPE)
19
20 IS
21 l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
22
23 BEGIN
24
25 x_return_status := G_RET_STS_SUCCESS;
26
27 IF(G_DEBUG_ENABLED = 'Y') THEN
28 G_IS_DEBUG_EXCEPTION_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_EXCEPTION);
29 END IF;
30
31 IF(G_DEBUG_ENABLED = 'Y') THEN
32 G_IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_PROCEDURE);
33 END IF;
34
35 IF(G_DEBUG_ENABLED = 'Y') THEN
36 G_IS_DEBUG_ERROR_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_ERROR);
37 END IF;
38
39 IF(G_IS_DEBUG_PROCEDURE_ON) THEN
40 OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_PROCEDURE, G_MODULE, p_sifv_rec.transaction_number ||': Begin generate_streams_st');
41 END IF;
42
43 COMMIT;
44
45 IF(G_IS_DEBUG_PROCEDURE_ON) THEN
46 OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_PROCEDURE, G_MODULE, p_sifv_rec.transaction_number ||': Commited');
47 END IF;
48
49 IF(G_IS_DEBUG_PROCEDURE_ON) THEN
50 OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_PROCEDURE, G_MODULE, p_sifv_rec.transaction_number ||': Calling OKL_ESG_TRANSPORT_PVT.process_esg');
51 END IF;
52
53 OKL_ESG_TRANSPORT_PVT.process_esg(p_sifv_rec.transaction_number, l_return_status);
54
55 IF(G_IS_DEBUG_PROCEDURE_ON) THEN
56 OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_PROCEDURE, G_MODULE, p_sifv_rec.transaction_number ||': End OKL_ESG_TRANSPORT_PVT.process_esg: l_return_status = '||l_return_status);
57 END IF;
58
59 IF l_return_status <> G_RET_STS_SUCCESS THEN
60 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
61 END IF;
62
63 IF(G_IS_DEBUG_PROCEDURE_ON) THEN
64 OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_PROCEDURE, G_MODULE, p_sifv_rec.transaction_number ||': generate_streams_st');
65 END IF;
66
67 EXCEPTION
68 WHEN G_EXCEPTION_ERROR THEN
69 x_return_status := G_RET_STS_ERROR;
70
71 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
72 x_return_status := G_RET_STS_UNEXP_ERROR;
73
74 WHEN OTHERS THEN
75
76 IF(G_IS_DEBUG_EXCEPTION_ON) THEN
77 OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_EXCEPTION, G_MODULE , p_sifv_rec.transaction_number ||': '||SQLERRM(SQLCODE));
78 END IF;
79
80 -- store SQL error message on message stack
81 OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
82 p_msg_name => G_UNEXPECTED_ERROR,
83 p_token1 => G_SQLCODE_TOKEN,
84 p_token1_value => sqlcode,
85 p_token2 => G_SQLERRM_TOKEN,
86 p_token2_value => sqlerrm);
87 x_return_status := G_RET_STS_UNEXP_ERROR;
88
89 END GENERATE_STREAMS_ST;
90
91 END OKL_INVOKE_PRICING_ENGINE_PVT;