[Home] [Help]
PACKAGE BODY: APPS.OKL_OPEN_INTERFACE_PUB
Source
1 PACKAGE BODY okl_open_interface_pub AS
2 /* $Header: OKLPOPIB.pls 115.10 2004/04/13 10:54:35 rnaik noship $ */
3
4 ---------------------------------------------------------------------------
5 -- PROCEDURE insert_pending_int
6 ---------------------------------------------------------------------------
7 PROCEDURE insert_pending_int(
8 p_api_version IN NUMBER,
9 p_init_msg_list IN VARCHAR2 DEFAULT okl_api.G_FALSE,
10 p_contract_id IN NUMBER,
11 x_oinv_rec OUT NOCOPY oinv_rec_type,
12 x_return_status OUT NOCOPY VARCHAR2,
13 x_msg_count OUT NOCOPY NUMBER,
14 x_msg_data OUT NOCOPY VARCHAR2) AS
15
16 l_api_version NUMBER ;
17 l_init_msg_list VARCHAR2(1) ;
18 l_return_status VARCHAR2(1);
19 l_msg_count NUMBER ;
20 l_msg_data VARCHAR2(2000);
21 l_contract_id NUMBER;
22 lp_oinv_rec oinv_rec_type;
23 lx_oinv_rec oinv_rec_type;
24
25 BEGIN
26
27 SAVEPOINT insert_pending_int;
28
29
30 l_api_version := p_api_version ;
31 l_init_msg_list := p_init_msg_list ;
32 l_return_status := x_return_status ;
33 l_msg_count := x_msg_count ;
34 l_msg_data := x_msg_data ;
35 l_contract_id := p_contract_id;
36
37
38
39 -- Private API Call start
40 okl_opi_pvt.insert_pending_int(
41 p_api_version => l_api_version,
42 p_init_msg_list => l_init_msg_list,
43 p_contract_id => l_contract_id,
44 x_oinv_rec => lx_oinv_rec,
45 x_return_status => l_return_status,
46 x_msg_count => l_msg_count,
47 x_msg_data => l_msg_data);
48 -- Private API Call end
49
50
51 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
52 RAISE FND_API.G_EXC_ERROR;
53 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
54 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
55 END IF;
56
57 --Copy value of OUT variable in the IN record type
58 lp_oinv_rec := lx_oinv_rec;
59
60
61
62 --Assign value to OUT variables
63 x_oinv_rec := lx_oinv_rec;
64 x_return_status := l_return_status ;
65 x_msg_count := l_msg_count ;
66 x_msg_data := l_msg_data ;
67
68 EXCEPTION
69
70 WHEN FND_API.G_EXC_ERROR THEN
71 ROLLBACK TO insert_pending_int;
72 x_return_status := FND_API.G_RET_STS_ERROR;
73 x_msg_count := l_msg_count ;
74 x_msg_data := l_msg_data ;
75 FND_MSG_PUB.count_and_get(
76 p_count => x_msg_count
77 ,p_data => x_msg_data);
78 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
79 ROLLBACK TO insert_pending_int;
80 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
81 x_msg_count := l_msg_count ;
82 x_msg_data := l_msg_data ;
83 FND_MSG_PUB.count_and_get(
84 p_count => x_msg_count
85 ,p_data => x_msg_data);
86 WHEN OTHERS THEN
87 ROLLBACK TO insert_pending_int;
88 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
89 x_msg_count := l_msg_count ;
90 x_msg_data := l_msg_data ;
91 FND_MSG_PUB.ADD_EXC_MSG('IEX_OPEN_INTERFACE_PUB','insert_pending_int');
92 FND_MSG_PUB.count_and_get(
93 p_count => x_msg_count
94 ,p_data => x_msg_data);
95 END insert_pending_int;
96
97 /*
98 ---------------------------------------------------------------------------
99 -- PROCEDURE report_all_credit_bureau
100 ---------------------------------------------------------------------------
101 PROCEDURE report_all_credit_bureau(
102 errbuf OUT NOCOPY VARCHAR2,
103 retcode OUT NOCOPY NUMBER) AS
104 lx_errbuf VARCHAR2(2000);
105 lx_retcode NUMBER;
106 BEGIN
107 okl_opi_pvt.report_all_credit_bureau(
108 errbuf => lx_errbuf,
109 retcode => lx_retcode);
110
111
112 errbuf := lx_errbuf;
113 retcode := lx_retcode;
114 END report_all_credit_bureau;
115 */
116 ---------------------------------------------------------------------------
117 -- PROCEDURE process_pending_int
118 ---------------------------------------------------------------------------
119 PROCEDURE process_pending_int(
120 p_api_version IN NUMBER,
121 p_init_msg_list IN VARCHAR2 DEFAULT okl_api.G_FALSE,
122 p_oinv_rec IN oinv_rec_type,
123 p_iohv_rec IN iohv_rec_type,
124 x_oinv_rec OUT NOCOPY oinv_rec_type,
125 x_return_status OUT NOCOPY VARCHAR2,
126 x_msg_count OUT NOCOPY NUMBER,
127 x_msg_data OUT NOCOPY VARCHAR2) AS
128
129 l_api_version NUMBER ;
130 l_init_msg_list VARCHAR2(1) ;
131 l_return_status VARCHAR2(1);
132 l_msg_count NUMBER ;
133 l_msg_data VARCHAR2(2000);
134
135 lp_oinv_rec oinv_rec_type;
136 lx_oinv_rec oinv_rec_type;
137 lp_iohv_rec iohv_rec_type;
138
139 BEGIN
140
141 SAVEPOINT process_pending_int;
142
143
144 l_api_version := p_api_version ;
145 l_init_msg_list := p_init_msg_list ;
146 l_return_status := x_return_status ;
147 l_msg_count := x_msg_count ;
148 l_msg_data := x_msg_data ;
149 lp_oinv_rec := p_oinv_rec;
150 lp_iohv_rec := p_iohv_rec;
151
152
153
154 -- Private API Call start
155 okl_opi_pvt.process_pending_int(
156 p_api_version => l_api_version,
157 p_init_msg_list => l_init_msg_list,
158 p_oinv_rec => lp_oinv_rec,
159 p_iohv_rec => lp_iohv_rec,
160 x_oinv_rec => lx_oinv_rec,
161 x_return_status => l_return_status,
162 x_msg_count => l_msg_count,
163 x_msg_data => l_msg_data);
164 -- Private API Call end
165
166
167 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
168 RAISE FND_API.G_EXC_ERROR;
169 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
170 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
171 END IF;
172
173 --Copy value of OUT variable in the IN record type
174 lp_oinv_rec := lx_oinv_rec;
175
176
177
178 --Assign value to OUT variables
179 x_oinv_rec := lx_oinv_rec;
180 x_return_status := l_return_status ;
181 x_msg_count := l_msg_count ;
182 x_msg_data := l_msg_data ;
183
184 EXCEPTION
185
186 WHEN FND_API.G_EXC_ERROR THEN
187 ROLLBACK TO process_pending_int;
188 x_return_status := FND_API.G_RET_STS_ERROR;
189 x_msg_count := l_msg_count ;
190 x_msg_data := l_msg_data ;
191 FND_MSG_PUB.count_and_get(
192 p_count => x_msg_count
193 ,p_data => x_msg_data);
194 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
195 ROLLBACK TO process_pending_int;
196 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
197 x_msg_count := l_msg_count ;
198 x_msg_data := l_msg_data ;
199 FND_MSG_PUB.count_and_get(
200 p_count => x_msg_count
201 ,p_data => x_msg_data);
202 WHEN OTHERS THEN
203 ROLLBACK TO process_pending_int;
204 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
205 x_msg_count := l_msg_count ;
206 x_msg_data := l_msg_data ;
207 FND_MSG_PUB.ADD_EXC_MSG('IEX_OPEN_INTERFACE_PUB','insert_pending_int');
208 FND_MSG_PUB.count_and_get(
209 p_count => x_msg_count
210 ,p_data => x_msg_data);
211 END process_pending_int;
212
213 END okl_open_interface_pub;