[Home] [Help]
PACKAGE BODY: APPS.OKL_PROCESS_STREAMS_PUB
Source
1 PACKAGE BODY OKL_PROCESS_STREAMS_PUB AS
2 /* $Header: OKLPPSRB.pls 115.9 2004/04/14 13:06:54 rnaik noship $ */
3 -- Start of wraper code generated automatically by Debug code generator
4 L_MODULE VARCHAR2(40) := 'LEASE.STREAMS';
5 L_DEBUG_ENABLED CONSTANT VARCHAR2(10) := OKL_DEBUG_PUB.CHECK_LOG_ENABLED;
6 L_LEVEL_PROCEDURE NUMBER;
7 IS_DEBUG_PROCEDURE_ON BOOLEAN;
8 -- End of wraper code generated automatically by Debug code generator
9
10 PROCEDURE process_stream_results(p_api_version IN NUMBER
11 ,p_init_msg_list IN VARCHAR2
12 ,x_return_status OUT NOCOPY VARCHAR2
13 ,x_msg_count OUT NOCOPY NUMBER
14 ,x_msg_data OUT NOCOPY VARCHAR2
15 ,p_transaction_number IN NUMBER
16
17 ) IS
18
19 l_api_version NUMBER := 1;
20 l_api_name CONSTANT VARCHAR2(30) := 'PROCESS_STREAM_RESULTS';
21 l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
22 l_data VARCHAR2(100);
23 l_count NUMBER ;
24
25 BEGIN
26 l_return_status := OKL_API.START_ACTIVITY(p_api_name => l_api_name,
27 p_pkg_name => G_PKG_NAME,
28 p_init_msg_list => p_init_msg_list,
29 l_api_version => l_api_version,
30 p_api_version => p_api_version,
31 p_api_type => G_API_TYPE,
32 x_return_status => l_return_status);
33 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
34 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
35 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
36 RAISE G_EXCEPTION_ERROR;
37 END IF;
38
39
40
41 -- call process api to create_price_parm
42 -- Start of wraper code generated automatically by Debug code generator for okl_process_streams_pvt.process_stream_results
43 IF(L_DEBUG_ENABLED='Y') THEN
44 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
45 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
46 END IF;
47 IF(IS_DEBUG_PROCEDURE_ON) THEN
48 BEGIN
49 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPPSRB.pls call okl_process_streams_pvt.process_stream_results ');
50 END;
51 END IF;
52 okl_process_streams_pvt.process_stream_results(
53 p_api_version => p_api_version
54 ,p_init_msg_list => p_init_msg_list
55 ,x_return_status => l_return_status
56 ,x_msg_count => x_msg_count
57 ,x_msg_data => x_msg_data
58 ,p_transaction_number => p_transaction_number);
59 IF(IS_DEBUG_PROCEDURE_ON) THEN
60 BEGIN
61 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPPSRB.pls call okl_process_streams_pvt.process_stream_results ');
62 END;
63 END IF;
64 -- End of wraper code generated automatically by Debug code generator for okl_process_streams_pvt.process_stream_results
65
66 IF l_return_status = G_RET_STS_ERROR THEN
67 RAISE G_EXCEPTION_ERROR;
68 ELSIF l_return_status = G_RET_STS_UNEXP_ERROR THEN
69 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
70 END IF;
71
72 /* re-assign local record structure using output record from pvt api */
73
74
75
76 OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
77 x_msg_data => x_msg_data);
78 x_return_status := l_return_status;
79 EXCEPTION
80 WHEN G_EXCEPTION_ERROR THEN
81 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
82 p_pkg_name => G_PKG_NAME,
83 p_exc_name => G_EXC_NAME_ERROR,
84 x_msg_count => x_msg_count,
85 x_msg_data => x_msg_data,
86 p_api_type => G_API_TYPE);
87 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
88 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
89 p_pkg_name => G_PKG_NAME,
90 p_exc_name => G_EXC_NAME_UNEXP_ERROR,
91 x_msg_count => x_msg_count,
92 x_msg_data => x_msg_data,
93 p_api_type => G_API_TYPE);
94 WHEN OTHERS THEN
95 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
96 p_pkg_name => G_PKG_NAME,
97 p_exc_name => G_EXC_NAME_OTHERS,
98 x_msg_count => x_msg_count,
99 x_msg_data => x_msg_data,
100 p_api_type => G_API_TYPE);
101 END process_stream_results;
102
103
104
105
106 PROCEDURE PROCESS_REST_STRM_RESLTS(p_api_version IN NUMBER
107 ,p_init_msg_list IN VARCHAR2
108 ,p_transaction_number IN NUMBER
109 ,x_return_status OUT NOCOPY VARCHAR2
110 ,x_msg_count OUT NOCOPY NUMBER
111 ,x_msg_data OUT NOCOPY VARCHAR2
112 ) IS
113 l_api_version NUMBER := 1;
114 l_api_name CONSTANT VARCHAR2(30) := 'PROCESS_RESTRUCT_STRM_RESLTS';
115 l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
116 l_data VARCHAR2(100);
117 l_count NUMBER ;
118 BEGIN
119 l_return_status := OKL_API.START_ACTIVITY(p_api_name => l_api_name,
120 p_pkg_name => G_PKG_NAME,
121 p_init_msg_list => p_init_msg_list,
122 l_api_version => l_api_version,
123 p_api_version => p_api_version,
124 p_api_type => G_API_TYPE,
125 x_return_status => l_return_status);
126 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
127 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
128 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
129 RAISE G_EXCEPTION_ERROR;
130 END IF;
131
132
133
134 -- call process api to create_price_parm
135 -- Start of wraper code generated automatically by Debug code generator for Okl_Process_Streams_Pvt.PROCESS_REST_STRM_RESLTS
136 IF(L_DEBUG_ENABLED='Y') THEN
137 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
138 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
139 END IF;
140 IF(IS_DEBUG_PROCEDURE_ON) THEN
141 BEGIN
142 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPPSRB.pls call Okl_Process_Streams_Pvt.PROCESS_REST_STRM_RESLTS ');
143 END;
144 END IF;
145 Okl_Process_Streams_Pvt.PROCESS_REST_STRM_RESLTS(
146 p_api_version => p_api_version
147 ,p_init_msg_list => p_init_msg_list
148 ,x_return_status => l_return_status
149 ,x_msg_count => x_msg_count
150 ,x_msg_data => x_msg_data
151 ,p_transaction_number => p_transaction_number);
152 IF(IS_DEBUG_PROCEDURE_ON) THEN
153 BEGIN
154 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPPSRB.pls call Okl_Process_Streams_Pvt.PROCESS_REST_STRM_RESLTS ');
155 END;
156 END IF;
157 -- End of wraper code generated automatically by Debug code generator for Okl_Process_Streams_Pvt.PROCESS_REST_STRM_RESLTS
158
159 IF l_return_status = G_RET_STS_ERROR THEN
160 RAISE G_EXCEPTION_ERROR;
161 ELSIF l_return_status = G_RET_STS_UNEXP_ERROR THEN
162 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
163 END IF;
164
165 /* re-assign local record structure using output record from pvt api */
166
167
168
169 OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
170 x_msg_data => x_msg_data);
171 x_return_status := l_return_status;
172 EXCEPTION
173 WHEN G_EXCEPTION_ERROR THEN
174 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
175 p_pkg_name => G_PKG_NAME,
176 p_exc_name => G_EXC_NAME_ERROR,
177 x_msg_count => x_msg_count,
178 x_msg_data => x_msg_data,
179 p_api_type => G_API_TYPE);
180 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
181 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
182 p_pkg_name => G_PKG_NAME,
183 p_exc_name => G_EXC_NAME_UNEXP_ERROR,
184 x_msg_count => x_msg_count,
185 x_msg_data => x_msg_data,
186 p_api_type => G_API_TYPE);
187 WHEN OTHERS THEN
188 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
189 p_pkg_name => G_PKG_NAME,
190 p_exc_name => G_EXC_NAME_OTHERS,
191 x_msg_count => x_msg_count,
192 x_msg_data => x_msg_data,
193 p_api_type => G_API_TYPE);
194 END PROCESS_REST_STRM_RESLTS;
195
196 END OKL_PROCESS_STREAMS_PUB;