[Home] [Help]
PACKAGE BODY: APPS.OKL_TRANS_ACCT_OPT_PVT
Source
1 PACKAGE BODY OKL_TRANS_ACCT_OPT_PVT AS
2 /* $Header: OKLRTACB.pls 120.2 2006/07/11 10:03:37 dkagrawa noship $ */
3
4
5
6 PROCEDURE GET_TRX_ACCT_OPT(p_api_version IN NUMBER,
7 p_init_msg_list IN VARCHAR2,
8 x_return_status OUT NOCOPY VARCHAR2,
9 x_msg_count OUT NOCOPY NUMBER,
10 x_msg_data OUT NOCOPY VARCHAR2,
11 p_taov_rec IN taov_rec_type,
12 x_taov_rec OUT NOCOPY taov_rec_type)
13 IS
14
15 l_api_name CONSTANT VARCHAR2(40) := 'GET_TRX_ACCT_OPT';
16 l_api_version CONSTANT NUMBER := 1.0;
17 l_row_count NUMBER;
18 l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
19 l_taov_rec taov_rec_type;
20 l_org_id NUMBER;
21 l_stmt VARCHAR2(3000);
22 TYPE ref_cursor IS REF CURSOR;
23 trx_acct_csr ref_cursor;
24
25
26 BEGIN
27
28 x_return_status := OKL_API.G_RET_STS_SUCCESS;
29
30
31 l_return_status := OKL_API.START_ACTIVITY( l_api_name
32 ,g_pkg_name
33 ,p_init_msg_list
34 ,l_api_version
35 ,p_api_version
36 ,'_PVT'
37 ,l_return_status);
38
39
40 IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
41 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
42 ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
43 RAISE OKL_API.G_EXCEPTION_ERROR;
44 END IF;
45
46
47 l_stmt := 'SELECT
48 ID
49 ,TRY_ID
50 ,REV_CCID
51 ,FREIGHT_CCID
52 ,REC_CCID
53 ,CLEARING_CCID
54 ,TAX_CCID
55 ,UNBILLED_CCID
56 ,UNEARNED_CCID
57 ,OBJECT_VERSION_NUMBER
58 ,ORG_ID
59 ,ATTRIBUTE_CATEGORY
60 ,ATTRIBUTE1
61 ,ATTRIBUTE2
62 ,ATTRIBUTE3
63 ,ATTRIBUTE4
64 ,ATTRIBUTE5
65 ,ATTRIBUTE6
66 ,ATTRIBUTE7
67 ,ATTRIBUTE8
68 ,ATTRIBUTE9
69 ,ATTRIBUTE10
70 ,ATTRIBUTE11
71 ,ATTRIBUTE12
72 ,ATTRIBUTE13
73 ,ATTRIBUTE14
74 ,ATTRIBUTE15
75 ,CREATED_BY
76 ,CREATION_DATE
77 ,LAST_UPDATED_BY
78 ,LAST_UPDATE_DATE
79 ,LAST_UPDATE_LOGIN
80 ,POST_TO_GL_YN
81 FROM OKL_TRX_ACCT_OPTS WHERE try_id = ' || p_taov_rec.try_id;
82
83 OPEN trx_acct_csr FOR l_stmt;
84
85 FETCH trx_acct_csr INTO
86 l_taov_rec.ID
87 ,l_taov_rec.TRY_ID
88 ,l_taov_rec.REV_CCID
89 ,l_taov_rec.FREIGHT_CCID
90 ,l_taov_rec.REC_CCID
91 ,l_taov_rec.CLEARING_CCID
92 ,l_taov_rec.TAX_CCID
93 ,l_taov_rec.UNBILLED_CCID
94 ,l_taov_rec.UNEARNED_CCID
95 ,l_taov_rec.OBJECT_VERSION_NUMBER
96 ,l_taov_rec.ORG_ID
97 ,l_taov_rec.ATTRIBUTE_CATEGORY
98 ,l_taov_rec.ATTRIBUTE1
99 ,l_taov_rec.ATTRIBUTE2
100 ,l_taov_rec.ATTRIBUTE3
101 ,l_taov_rec.ATTRIBUTE4
102 ,l_taov_rec.ATTRIBUTE5
103 ,l_taov_rec.ATTRIBUTE6
104 ,l_taov_rec.ATTRIBUTE7
105 ,l_taov_rec.ATTRIBUTE8
106 ,l_taov_rec.ATTRIBUTE9
107 ,l_taov_rec.ATTRIBUTE10
108 ,l_taov_rec.ATTRIBUTE11
109 ,l_taov_rec.ATTRIBUTE12
110 ,l_taov_rec.ATTRIBUTE13
111 ,l_taov_rec.ATTRIBUTE14
112 ,l_taov_rec.ATTRIBUTE15
113 ,l_taov_rec.CREATED_BY
114 ,l_taov_rec.CREATION_DATE
115 ,l_taov_rec.LAST_UPDATED_BY
116 ,l_taov_rec.LAST_UPDATE_DATE
117 ,l_taov_rec.LAST_UPDATE_LOGIN
118 ,l_taov_rec.POST_TO_GL_YN;
119
120
121 CLOSE trx_acct_csr;
122
123 x_taov_rec := l_taov_rec;
124
125 OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
126
127
128 EXCEPTION
129
130 WHEN OKL_API.G_EXCEPTION_ERROR THEN
131
132 x_return_status := OKL_API.HANDLE_EXCEPTIONS(l_api_name
133 ,g_pkg_name
134 ,'OKL_API.G_RET_STS_ERROR'
135 ,x_msg_count
136 ,x_msg_data
137 ,'_PVT'
138 );
139
140 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
141
142 x_return_status := OKL_API.HANDLE_EXCEPTIONS(l_api_name
143 ,g_pkg_name
144 ,'OKL_API.G_RET_STS_UNEXP_ERROR'
145 ,x_msg_count
146 ,x_msg_data
147 ,'_PVT'
148 );
149
150 WHEN OTHERS THEN
151
152 x_return_status := OKL_API.HANDLE_EXCEPTIONS(l_api_name
153 ,g_pkg_name
154 ,'OTHERS'
155 ,x_msg_count
156 ,x_msg_data
157 ,'_PVT'
158 );
159
160 END GET_TRX_ACCT_OPT;
161
162
163
164
165
166 PROCEDURE UPDT_TRX_ACCT_OPT(p_api_version IN NUMBER,
167 p_init_msg_list IN VARCHAR2,
168 x_return_status OUT NOCOPY VARCHAR2,
169 x_msg_count OUT NOCOPY NUMBER,
170 x_msg_data OUT NOCOPY VARCHAR2,
171 p_taov_rec IN taov_rec_type,
172 x_taov_rec OUT NOCOPY taov_rec_type)
173 IS
174
175 l_api_name CONSTANT VARCHAR2(40) := 'UPDT_TRX_ACCT_OPT';
176 l_api_version CONSTANT NUMBER := 1.0;
177 l_row_count NUMBER;
178 l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
179
180 l_init_msg_list VARCHAR2(1);
181 l_msg_count NUMBER;
182 l_msg_data VARCHAR2(2000);
183
184 l_taov_rec_in taov_rec_type;
185 l_taov_rec_out taov_rec_type;
186
187
188
189
190 BEGIN
191
192
193 x_return_status := OKL_API.G_RET_STS_SUCCESS;
194 l_taov_rec_in := p_taov_rec;
195
196
197 GET_TRX_ACCT_OPT(p_api_version => 1.0,
198 p_init_msg_list => l_init_msg_list,
199 x_return_status => l_return_status,
200 x_msg_count => l_msg_count,
201 x_msg_data => l_msg_data,
202 p_taov_rec => l_taov_rec_in,
203 x_taov_rec => l_taov_rec_out);
204
205
206 IF (l_taov_rec_out.ID = OKL_API.G_MISS_NUM) OR
207 (l_taov_rec_out.ID IS NULL) THEN
208
209
210 OKL_TRX_ACCT_OPTS_PUB.INSERT_TRX_ACCT_OPTS(p_api_version => 1.0,
211 p_init_msg_list => l_init_msg_list,
212 x_return_status => l_return_status,
213 x_msg_count => l_msg_count,
214 x_msg_data => l_msg_data,
215 p_taov_rec => l_taov_rec_in,
216 x_taov_rec => l_taov_rec_out);
217
218
219 ELSE
220
221 IF (p_taov_rec.id = OKL_API.G_MISS_NUM) OR
222 (p_taov_rec.id IS NULL) THEN
223 l_taov_rec_in.id := l_taov_rec_out.id;
224 END IF;
225
226 OKL_TRX_ACCT_OPTS_PUB.UPDATE_TRX_ACCT_OPTS(p_api_version => 1.0,
227 p_init_msg_list => l_init_msg_list,
228 x_return_status => l_return_status,
229 x_msg_count => l_msg_count,
230 x_msg_data => l_msg_data,
231 p_taov_rec => l_taov_rec_in,
232 x_taov_rec => l_taov_rec_out);
233
234
235
236 END IF;
237
238 x_msg_count := l_msg_count;
239 x_msg_data := l_msg_data;
240 x_return_status := l_return_status;
241 x_taov_rec := l_taov_rec_out;
242
243
244
245 END UPDT_TRX_ACCT_OPT;
246
247
248 END OKL_TRANS_ACCT_OPT_PVT;
249