[Home] [Help]
Skip to content
PACKAGE BODY: APPS.OKL_INS_QUOTE_WRP_PVT
Source
1 PACKAGE BODY OKL_INS_QUOTE_WRP_PVT AS
2 /* $Header: OKLRQMNB.pls 115.4 2003/02/20 04:10:47 smoduga noship $ */
3 --------------------------------------------------------
4 --NOTE: This procedure is a wrapper over OKL_INS_QUOTE_PVT
5 --This procedure accepts the parameter as table type and in turn
6 --calls the procedure that accepts the record type API in loop.
7 --For all practical purposes, only one record will be passed in
8 -- the pl/sql table and so the record api is called only once.
9 --------------------------------------------------------
10 PROCEDURE calc_lease_premium(
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 px_ipyv_tbl IN OUT NOCOPY ipyv_tbl_type,
17 x_message OUT NOCOPY VARCHAR2,
18 x_iasset_tbl OUT NOCOPY iasset_tbl_type
19 ) AS
20 l_api_version NUMBER ;
21 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
22 i NUMBER := 0;
23 l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
24 BEGIN
25 l_api_version := p_api_version ;
26 OKC_API.init_msg_list(p_init_msg_list);
27 --IF (px_ipyv_tbl.COUNT > 0) THEN
28 i := px_ipyv_tbl.FIRST;
29 --LOOP
30 okl_ins_quote_pub.calc_lease_premium(
31 p_api_version => l_api_version,
32 p_init_msg_list => Okc_Api.G_FALSE,
33 x_return_status => l_return_status,
34 x_msg_count => x_msg_count,
35 x_msg_data => x_msg_data,
36 px_ipyv_rec => px_ipyv_tbl(i),
37 x_message => x_message,
38 x_iasset_tbl => x_iasset_tbl
39 );
40 IF l_return_status = Okc_Api.G_RET_STS_ERROR THEN
41 x_return_status := l_return_status;
42 END IF;
43 IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
44 x_return_status := l_return_status;
45 END IF;
46 --EXIT WHEN (i = px_ipyv_tbl.LAST);
47 --i := px_ipyv_tbl.NEXT(i);
48 --END LOOP;
49 --x_return_status := l_overall_status;
50 -- END IF;
51 END calc_lease_premium;
52 PROCEDURE calc_optional_premium(
53 p_api_version IN NUMBER,
54 p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
55 x_return_status OUT NOCOPY VARCHAR2,
56 x_msg_count OUT NOCOPY NUMBER,
57 x_msg_data OUT NOCOPY VARCHAR2,
58 p_ipyv_tbl IN ipyv_tbl_type,
59 x_message OUT NOCOPY VARCHAR2,
60 x_ipyv_tbl OUT NOCOPY ipyv_tbl_type
61 )AS
62 l_api_version NUMBER ;
63 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
64 i NUMBER := 0;
65 l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
66 BEGIN
67 l_api_version := p_api_version ;
68 OKC_API.init_msg_list(p_init_msg_list);
69 --IF (p_ipyv_tbl.COUNT > 0) THEN
70 i := p_ipyv_tbl.FIRST;
71 --LOOP
72 okl_ins_quote_pub.calc_optional_premium(
73 p_api_version => l_api_version,
74 p_init_msg_list => Okc_Api.G_FALSE,
75 x_return_status => l_return_status,
76 x_msg_count => x_msg_count,
77 x_msg_data => x_msg_data,
78 p_ipyv_rec => p_ipyv_tbl(i),
79 x_message => x_message,
80 x_ipyv_rec => x_ipyv_tbl(i)
81 );
82 IF l_return_status = Okc_Api.G_RET_STS_ERROR THEN
83 x_return_status := l_return_status;
84 END IF;
85 IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
86 x_return_status := l_return_status;
87 END IF;
88
89 --EXIT WHEN (i = p_ipyv_tbl.LAST);
90 --i := p_ipyv_tbl.NEXT(i);
91 --END LOOP;
92 --x_return_status := l_overall_status;
93 --END IF;
94 END calc_optional_premium;
95
96 PROCEDURE save_quote(
97 p_api_version IN NUMBER,
98 p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
99 x_return_status OUT NOCOPY VARCHAR2,
100 x_msg_count OUT NOCOPY NUMBER,
101 x_msg_data OUT NOCOPY VARCHAR2,
102 px_ipyv_tbl IN OUT NOCOPY ipyv_tbl_type,
103 x_message OUT NOCOPY VARCHAR2 )AS
104 l_api_version NUMBER ;
105 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
106 i NUMBER := 0;
107 l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
108 BEGIN
109 l_api_version := p_api_version ;
110 OKC_API.init_msg_list(p_init_msg_list);
111 --IF (px_ipyv_tbl.COUNT > 0) THEN
112 i := px_ipyv_tbl.FIRST;
113 --LOOP
114 okl_ins_quote_pub.save_quote(
115 p_api_version => l_api_version,
116 p_init_msg_list => Okc_Api.G_FALSE,
117 x_return_status => l_return_status,
118 x_msg_count => x_msg_count,
119 x_msg_data => x_msg_data,
120 px_ipyv_rec => px_ipyv_tbl(i),
121 x_message => x_message
122 );
123 IF l_return_status = Okc_Api.G_RET_STS_ERROR THEN
124 x_return_status := l_return_status;
125 END IF;
126 IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
127 x_return_status := l_return_status;
128 END IF;
129 --EXIT WHEN (i = px_ipyv_tbl.LAST);
130 -- i := px_ipyv_tbl.NEXT(i);
131 --END LOOP;
132 -- x_return_status := l_overall_status;
133 --END IF;
134 END save_quote;
135
136 PROCEDURE save_accept_quote(
137 p_api_version IN NUMBER,
138 p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
139 x_return_status OUT NOCOPY VARCHAR2,
140 x_msg_count OUT NOCOPY NUMBER,
141 x_msg_data OUT NOCOPY VARCHAR2,
142 p_ipyv_tbl IN ipyv_tbl_type,
143 x_message OUT NOCOPY VARCHAR2 )AS
144 l_api_version NUMBER ;
145 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
146 i NUMBER := 0;
147 l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
148 BEGIN
149 l_api_version := p_api_version ;
150 OKC_API.init_msg_list(p_init_msg_list);
151 --IF (px_ipyv_tbl.COUNT > 0) THEN
152 i := p_ipyv_tbl.FIRST;
153 --LOOP
154 okl_ins_quote_pub.save_accept_quote(
155 p_api_version => l_api_version,
156 p_init_msg_list => Okc_Api.G_FALSE,
157 x_return_status => l_return_status,
158 x_msg_count => x_msg_count,
159 x_msg_data => x_msg_data,
160 p_ipyv_rec => p_ipyv_tbl(i),
161 x_message => x_message
162 );
163 IF l_return_status = Okc_Api.G_RET_STS_ERROR THEN
164 x_return_status := l_return_status;
165 END IF;
166 IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
167 x_return_status := l_return_status;
168 END IF;
169 --EXIT WHEN (i = px_ipyv_tbl.LAST);
170 -- i := px_ipyv_tbl.NEXT(i);
171 --END LOOP;
172 -- x_return_status := l_overall_status;
173 --END IF;
174 END save_accept_quote;
175
176 PROCEDURE create_third_prt_ins(
177 p_api_version IN NUMBER,
178 p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
179 x_return_status OUT NOCOPY VARCHAR2,
180 x_msg_count OUT NOCOPY NUMBER,
181 x_msg_data OUT NOCOPY VARCHAR2,
182 p_ipyv_tbl IN ipyv_tbl_type,
183 x_ipyv_tbl OUT NOCOPY ipyv_tbl_type
184 )AS
185 l_api_version NUMBER ;
186 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
187 i NUMBER := 0;
188 l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
189 BEGIN
190 l_api_version := p_api_version ;
191 OKC_API.init_msg_list(p_init_msg_list);
192 --IF (p_ipyv_tbl.COUNT > 0) THEN
193 i := p_ipyv_tbl.FIRST;
194 --LOOP
195 okl_ins_quote_pub.create_third_prt_ins(
196 p_api_version => l_api_version,
197 p_init_msg_list => Okc_Api.G_FALSE,
198 x_return_status => l_return_status,
199 x_msg_count => x_msg_count,
200 x_msg_data => x_msg_data,
201 p_ipyv_rec => p_ipyv_tbl(i),
202 x_ipyv_rec => x_ipyv_tbl(i)
203 );
204 IF l_return_status = Okc_Api.G_RET_STS_ERROR THEN
205 x_return_status := l_return_status;
206 END IF;
207 IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
208 x_return_status := l_return_status;
209 END IF;
210
211 --EXIT WHEN (i = p_ipyv_tbl.LAST);
212 --i := p_ipyv_tbl.NEXT(i);
213 --END LOOP;
214 --x_return_status := l_overall_status;
215 --END IF;
216 END create_third_prt_ins;
217
218
219 END OKL_INS_QUOTE_WRP_PVT;