[Home] [Help]
PACKAGE BODY: APPS.OKL_COPY_TEMPLATE_PVT
Source
1 PACKAGE BODY OKL_COPY_TEMPLATE_PVT AS
2 /* $Header: OKLRTLCB.pls 120.2 2006/07/11 10:05:16 dkagrawa noship $ */
3
4
5 PROCEDURE COPY_TEMPLATES(p_api_version IN NUMBER,
6 p_init_msg_list IN VARCHAR2,
7 x_return_status OUT NOCOPY VARCHAR2,
8 x_msg_count OUT NOCOPY NUMBER,
9 x_msg_data OUT NOCOPY VARCHAR2,
10 p_aes_id_from IN NUMBER,
11 p_aes_id_to IN NUMBER)
12
13 IS
14
15
16 l_return_status VARCHAR2(1);
17 l_api_name VARCHAR2(30) := 'COPY_TEMPLATES';
18 l_init_msg_list VARCHAR2(1);
19 l_msg_count NUMBER;
20 l_msg_data VARCHAR2(2000);
21 l_api_version NUMBER := 1.0;
22
23 i NUMBER := 0;
24
25 l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
26
27 l_avlv_rec_in AVLV_REC_TYPE;
28 l_avlv_rec_out AVLV_REC_TYPE;
29
30 l_atlv_tbl_in ATLV_TBL_TYPE;
31 l_atlv_tbl_out ATLV_TBL_TYPE;
32
33
34
35 CURSOR avl_csr(v_aes_id NUMBER) IS
36 SELECT ID
37 ,OBJECT_VERSION_NUMBER
38 ,TRY_ID
39 ,AES_ID
40 ,STY_ID
41 ,FMA_ID
42 ,SET_OF_BOOKS_ID
43 ,FAC_CODE
44 ,SYT_CODE
45 -- Added code by HKPATEL for Bug# 2943310
46 ,INV_CODE
47 -- Added code ends here
48 ,POST_TO_GL
49 ,ADVANCE_ARREARS
50 ,MEMO_YN
51 ,PRIOR_YEAR_YN
52 ,NAME
53 ,DESCRIPTION
54 ,VERSION
55 ,FACTORING_SYND_FLAG
56 ,START_DATE
57 ,END_DATE
58 ,ATTRIBUTE_CATEGORY
59 ,ATTRIBUTE1
60 ,ATTRIBUTE2
61 ,ATTRIBUTE3
62 ,ATTRIBUTE4
63 ,ATTRIBUTE5
64 ,ATTRIBUTE6
65 ,ATTRIBUTE7
66 ,ATTRIBUTE8
67 ,ATTRIBUTE9
68 ,ATTRIBUTE10
69 ,ATTRIBUTE11
70 ,ATTRIBUTE12
71 ,ATTRIBUTE13
72 ,ATTRIBUTE14
73 ,ATTRIBUTE15
74 ,ORG_ID
75 ,CREATED_BY
76 ,CREATION_DATE
77 ,LAST_UPDATED_BY
78 ,LAST_UPDATE_DATE
79 ,LAST_UPDATE_LOGIN
80 FROM OKL_AE_TEMPLATES
81 WHERE aes_id = v_aes_id;
82
83
84 CURSOR atl_csr(v_avl_id NUMBER) IS
85 SELECT ID
86 ,SEQUENCE_NUMBER
87 ,AVL_ID
88 ,CODE_COMBINATION_ID
89 ,AE_LINE_TYPE
90 ,CRD_CODE
91 ,OBJECT_VERSION_NUMBER
92 ,ACCOUNT_BUILDER_YN
93 ,DESCRIPTION
94 ,PERCENTAGE
95 ,ATTRIBUTE_CATEGORY
96 ,ATTRIBUTE1
97 ,ATTRIBUTE2
98 ,ATTRIBUTE3
99 ,ATTRIBUTE4
100 ,ATTRIBUTE5
101 ,ATTRIBUTE6
102 ,ATTRIBUTE7
103 ,ATTRIBUTE8
104 ,ATTRIBUTE9
105 ,ATTRIBUTE10
106 ,ATTRIBUTE11
107 ,ATTRIBUTE12
108 ,ATTRIBUTE13
109 ,ATTRIBUTE14
110 ,ATTRIBUTE15
111 ,ORG_ID
112 ,CREATED_BY
113 ,CREATION_DATE
114 ,LAST_UPDATED_BY
115 ,LAST_UPDATE_DATE
116 ,LAST_UPDATE_LOGIN
117 FROM OKL_AE_TMPT_LNES
118 WHERE avl_id = v_avl_id;
119
120
121
122 BEGIN
123
124 x_return_status := OKL_API.G_RET_STS_SUCCESS;
125
126 FOR avl_rec IN avl_csr(p_aes_id_from)
127
128 LOOP
129
130 l_avlv_rec_in.TRY_ID := avl_rec.TRY_ID;
131 l_avlv_rec_in.STY_ID := avl_rec.STY_ID;
132 l_avlv_rec_in.FMA_ID := avl_rec.FMA_ID;
133 l_avlv_rec_in.FAC_CODE := avl_rec.FAC_CODE;
134 l_avlv_rec_in.SYT_CODE := avl_rec.SYT_CODE;
135 -- Added code by HKPATEL for Bug# 2943310
136 l_avlv_rec_in.INV_CODE := avl_rec.INV_CODE;
137 -- Added code ends here
138 l_avlv_rec_in.POST_TO_GL := avl_rec.POST_TO_GL;
139 l_avlv_rec_in.ADVANCE_ARREARS := avl_rec.ADVANCE_ARREARS;
140 l_avlv_rec_in.MEMO_YN := avl_rec.MEMO_YN;
141 l_avlv_rec_in.PRIOR_YEAR_YN := avl_rec.PRIOR_YEAR_YN;
142 l_avlv_rec_in.DESCRIPTION := avl_rec.DESCRIPTION;
143 l_avlv_rec_in.VERSION := avl_rec.VERSION;
144 l_avlv_rec_in.FACTORING_SYND_FLAG := avl_rec.FACTORING_SYND_FLAG;
145 l_avlv_rec_in.START_DATE := avl_rec.START_DATE;
146 l_avlv_rec_in.END_DATE := avl_rec.END_DATE;
147 l_avlv_rec_in.ATTRIBUTE_CATEGORY := avl_rec.ATTRIBUTE_CATEGORY;
148 l_avlv_rec_in.ATTRIBUTE1 := avl_rec.ATTRIBUTE1;
149 l_avlv_rec_in.ATTRIBUTE2 := avl_rec.ATTRIBUTE2;
150 l_avlv_rec_in.ATTRIBUTE3 := avl_rec.ATTRIBUTE3;
151 l_avlv_rec_in.ATTRIBUTE4 := avl_rec.ATTRIBUTE4;
152 l_avlv_rec_in.ATTRIBUTE5 := avl_rec.ATTRIBUTE5;
153 l_avlv_rec_in.ATTRIBUTE6 := avl_rec.ATTRIBUTE6;
154 l_avlv_rec_in.ATTRIBUTE7 := avl_rec.ATTRIBUTE7;
155 l_avlv_rec_in.ATTRIBUTE8 := avl_rec.ATTRIBUTE8;
156 l_avlv_rec_in.ATTRIBUTE9 := avl_rec.ATTRIBUTE9;
157 l_avlv_rec_in.ATTRIBUTE10 := avl_rec.ATTRIBUTE10;
158 l_avlv_rec_in.ATTRIBUTE11 := avl_rec.ATTRIBUTE11;
159 l_avlv_rec_in.ATTRIBUTE12 := avl_rec.ATTRIBUTE12;
160 l_avlv_rec_in.ATTRIBUTE13 := avl_rec.ATTRIBUTE13;
161 l_avlv_rec_in.ATTRIBUTE14 := avl_rec.ATTRIBUTE14;
162 l_avlv_rec_in.ATTRIBUTE15 := avl_rec.ATTRIBUTE15;
163
164 l_avlv_rec_in.AES_ID := p_aes_id_to;
165 l_avlv_rec_in.NAME := avl_rec.NAME || ' - COPY';
166
167 OKL_TMPT_SET_PUB.create_template(p_api_version => l_api_version
168 ,p_init_msg_list => l_init_msg_list
169 ,x_return_status => l_return_status
170 ,x_msg_count => l_msg_count
171 ,x_msg_data => l_msg_data
172 ,p_avlv_rec => l_avlv_rec_in
173 ,x_avlv_rec => l_avlv_rec_out);
174
175 IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
176
177 -- Initialize the Variables
178
179 i := 0;
180 l_atlv_tbl_in.DELETE;
181
182 FOR atl_rec IN atl_csr(avl_rec.ID)
183
184 LOOP
185
186 i := i + 1;
187
188 l_atlv_tbl_in(i).SEQUENCE_NUMBER := atl_rec.sequence_number;
189 l_atlv_tbl_in(i).AVL_ID := l_avlv_rec_out.ID;
190 l_atlv_tbl_in(i).CODE_COMBINATION_ID := atl_rec.code_combination_id;
191 l_atlv_tbl_in(i).AE_LINE_TYPE := atl_rec.ae_line_type;
192 l_atlv_tbl_in(i).CRD_CODE := atl_rec.crd_code;
193 l_atlv_tbl_in(i).ACCOUNT_BUILDER_YN := atl_rec.account_builder_yn;
194 l_atlv_tbl_in(i).DESCRIPTION := atl_rec.description;
195 l_atlv_tbl_in(i).PERCENTAGE := atl_rec.percentage;
196 l_atlv_tbl_in(i).ATTRIBUTE_CATEGORY := atl_rec.attribute_category;
197 l_atlv_tbl_in(i).ATTRIBUTE1 := atl_rec.attribute1;
198 l_atlv_tbl_in(i).ATTRIBUTE2 := atl_rec.attribute2;
199 l_atlv_tbl_in(i).ATTRIBUTE3 := atl_rec.attribute3;
200 l_atlv_tbl_in(i).ATTRIBUTE4 := atl_rec.attribute4;
201 l_atlv_tbl_in(i).ATTRIBUTE5 := atl_rec.attribute5;
202 l_atlv_tbl_in(i).ATTRIBUTE6 := atl_rec.attribute6;
203 l_atlv_tbl_in(i).ATTRIBUTE7 := atl_rec.attribute7;
204 l_atlv_tbl_in(i).ATTRIBUTE8 := atl_rec.attribute8;
205 l_atlv_tbl_in(i).ATTRIBUTE9 := atl_rec.attribute9;
206 l_atlv_tbl_in(i).ATTRIBUTE10 := atl_rec.attribute10;
207 l_atlv_tbl_in(i).ATTRIBUTE11 := atl_rec.attribute11;
208 l_atlv_tbl_in(i).ATTRIBUTE12 := atl_rec.attribute12;
209 l_atlv_tbl_in(i).ATTRIBUTE13 := atl_rec.attribute13;
210 l_atlv_tbl_in(i).ATTRIBUTE14 := atl_rec.attribute14;
211 l_atlv_tbl_in(i).ATTRIBUTE15 := atl_rec.attribute15;
212
213
214 END LOOP;
215
216 OKL_TMPT_SET_PUB.create_tmpt_lines(p_api_version => l_api_version
217 ,p_init_msg_list => l_init_msg_list
218 ,x_return_status => l_return_status
219 ,x_msg_count => l_msg_count
220 ,x_msg_data => l_msg_data
221 ,p_atlv_tbl => l_atlv_tbl_in
222 ,x_atlv_tbl => l_atlv_tbl_out);
223
224
225 END IF;
226
227
228 IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
229
230 IF (l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
231
232 l_overall_status := l_return_status;
233
234 END IF;
235
236 END IF;
237
238
239 END LOOP;
240
241 x_return_status := l_overall_status;
242
243
244 EXCEPTION
245
246 WHEN OKL_API.G_EXCEPTION_ERROR THEN
247
248 x_return_status := OKL_API.HANDLE_EXCEPTIONS(l_api_name
249 ,g_pkg_name
250 ,'OKL_API.G_RET_STS_ERROR'
251 ,x_msg_count
252 ,x_msg_data
253 ,'_PVT');
254
255 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
256
257 x_return_status := OKL_API.HANDLE_EXCEPTIONS(l_api_name
258 ,g_pkg_name
259 ,'OKL_API.G_RET_STS_UNEXP_ERROR'
260 ,x_msg_count
261 ,x_msg_data
262 ,'_PVT');
263
264 WHEN OTHERS THEN
265
266 x_return_status := OKL_API.HANDLE_EXCEPTIONS(l_api_name
267 ,g_pkg_name
268 ,'OTHERS'
269 ,x_msg_count
270 ,x_msg_data
271 ,'_PVT');
272
273 END COPY_TEMPLATES;
274
275
276 END OKL_COPY_TEMPLATE_PVT;