[Home] [Help]
PACKAGE BODY: APPS.FUN_NET_AP_INVS_PKG
Source
1 PACKAGE BODY FUN_NET_AP_INVS_PKG AS
2 /* $Header: funntapb.pls 120.0 2005/12/09 08:32:38 vgadde noship $ */
3
4 PROCEDURE Insert_Row (
5 x_rowid IN OUT NOCOPY VARCHAR2,
6 x_batch_id IN NUMBER,
7 x_invoice_id IN NUMBER,
8 x_object_version_number IN NUMBER,
9 x_ap_txn_rank IN NUMBER,
10 x_invoice_amt IN NUMBER,
11 x_netted_amt IN NUMBER,
12 x_open_amt IN NUMBER,
13 x_check_id IN NUMBER,
14 x_org_id IN NUMBER,
15 x_attribute_category IN VARCHAR2,
16 x_attribute1 IN VARCHAR2,
17 x_attribute2 IN VARCHAR2,
18 x_attribute3 IN VARCHAR2,
19 x_attribute4 IN VARCHAR2,
20 x_attribute5 IN VARCHAR2,
21 x_attribute6 IN VARCHAR2,
22 x_attribute7 IN VARCHAR2,
23 x_attribute8 IN VARCHAR2,
24 x_attribute9 IN VARCHAR2,
25 x_attribute10 IN VARCHAR2,
26 x_attribute11 IN VARCHAR2,
27 x_attribute12 IN VARCHAR2,
28 x_attribute13 IN VARCHAR2,
29 x_attribute14 IN VARCHAR2,
30 x_attribute15 IN VARCHAR2,
31 x_attribute16 IN VARCHAR2,
32 x_attribute17 IN VARCHAR2,
33 x_attribute18 IN VARCHAR2,
34 x_attribute19 IN VARCHAR2,
35 x_attribute20 IN VARCHAR2
36 ) IS
37
38 BEGIN
39
40 INSERT INTO fun_net_ap_invs_all (
41 batch_id,
42 invoice_id,
43 object_version_number,
44 ap_txn_rank,
45 invoice_amt,
46 netted_amt,
47 open_amt,
48 check_id,
49 org_id,
50 attribute_category,
51 attribute1,
52 attribute2,
53 attribute3,
54 attribute4,
55 attribute5,
56 attribute6,
57 attribute7,
58 attribute8,
59 attribute9,
60 attribute10,
61 attribute11,
62 attribute12,
63 attribute13,
64 attribute14,
65 attribute15,
66 attribute16,
67 attribute17,
68 attribute18,
69 attribute19,
70 attribute20,
71 created_by,
72 creation_date,
73 last_update_login,
74 last_update_date,
75 last_updated_by
76 )
77 VALUES (
78 x_batch_id,
79 x_invoice_id,
80 x_object_version_number,
81 x_ap_txn_rank,
82 x_invoice_amt,
83 x_netted_amt,
84 x_open_amt,
85 x_check_id,
86 x_org_id,
87 x_attribute_category,
88 x_attribute1,
89 x_attribute2,
90 x_attribute3,
91 x_attribute4,
92 x_attribute5,
93 x_attribute6,
94 x_attribute7,
95 x_attribute8,
96 x_attribute9,
97 x_attribute10,
98 x_attribute11,
99 x_attribute12,
100 x_attribute13,
101 x_attribute14,
102 x_attribute15,
103 x_attribute16,
104 x_attribute17,
105 x_attribute18,
106 x_attribute19,
107 x_attribute20,
108 NVL(FND_GLOBAL.user_id,-1),
109 SYSDATE,
110 DECODE(FND_GLOBAL.conc_login_id,null,FND_GLOBAL.login_id,-1,FND_GLOBAL.login_id,FND_GLOBAL.conc_login_id),
111 SYSDATE,
112 NVL(FND_GLOBAL.user_id,-1)
113 )RETURNING ROWID INTO x_rowid;
114
115 IF ( SQL%NOTFOUND ) THEN
116 RAISE NO_DATA_FOUND;
117 END IF;
118
119 END Insert_Row;
120
121
122 PROCEDURE Update_Row (
123 x_batch_id IN NUMBER,
124 x_invoice_id IN NUMBER,
125 x_object_version_number IN NUMBER,
126 x_ap_txn_rank IN NUMBER,
127 x_invoice_amt IN NUMBER,
128 x_netted_amt IN NUMBER,
129 x_open_amt IN NUMBER,
130 x_check_id IN NUMBER,
131 x_org_id IN NUMBER,
132 x_attribute_category IN VARCHAR2,
133 x_attribute1 IN VARCHAR2,
134 x_attribute2 IN VARCHAR2,
135 x_attribute3 IN VARCHAR2,
136 x_attribute4 IN VARCHAR2,
137 x_attribute5 IN VARCHAR2,
138 x_attribute6 IN VARCHAR2,
139 x_attribute7 IN VARCHAR2,
140 x_attribute8 IN VARCHAR2,
141 x_attribute9 IN VARCHAR2,
142 x_attribute10 IN VARCHAR2,
143 x_attribute11 IN VARCHAR2,
144 x_attribute12 IN VARCHAR2,
145 x_attribute13 IN VARCHAR2,
146 x_attribute14 IN VARCHAR2,
147 x_attribute15 IN VARCHAR2,
148 x_attribute16 IN VARCHAR2,
149 x_attribute17 IN VARCHAR2,
150 x_attribute18 IN VARCHAR2,
151 x_attribute19 IN VARCHAR2,
152 x_attribute20 IN VARCHAR2
153 ) IS
154
155 BEGIN
156
157 UPDATE fun_net_ap_invs_all SET
158 batch_id = x_batch_id,
159 invoice_id = x_invoice_id,
160 object_version_number = x_object_version_number,
161 ap_txn_rank = x_ap_txn_rank,
162 invoice_amt = x_invoice_amt,
163 netted_amt = x_netted_amt,
164 open_amt = x_open_amt,
165 check_id = x_check_id,
166 org_id = x_org_id,
167 attribute_category = x_attribute_category,
168 attribute1 = x_attribute1,
169 attribute2 = x_attribute2,
170 attribute3 = x_attribute3,
171 attribute4 = x_attribute4,
172 attribute5 = x_attribute5,
173 attribute6 = x_attribute6,
174 attribute7 = x_attribute7,
175 attribute8 = x_attribute8,
176 attribute9 = x_attribute9,
177 attribute10 = x_attribute10,
178 attribute11 = x_attribute11,
179 attribute12 = x_attribute12,
180 attribute13 = x_attribute13,
181 attribute14 = x_attribute14,
182 attribute15 = x_attribute15,
183 attribute16 = x_attribute16,
184 attribute17 = x_attribute17,
185 attribute18 = x_attribute18,
186 attribute19 = x_attribute19,
187 attribute20 = x_attribute20,
188 last_update_login = DECODE(FND_GLOBAL.conc_login_id,null,FND_GLOBAL.login_id,-1,FND_GLOBAL.login_id,FND_GLOBAL.conc_login_id),
189 last_update_date = SYSDATE,
190 last_updated_by = NVL(FND_GLOBAL.user_id,-1)
191 WHERE batch_id = x_batch_id
192 AND invoice_id = x_invoice_id;
193
194 IF ( SQL%NOTFOUND ) THEN
195 RAISE NO_DATA_FOUND;
196 END IF;
197
198 END Update_Row;
199
200
201 PROCEDURE Select_Row (
202 x_batch_id IN OUT NOCOPY NUMBER,
203 x_invoice_id IN OUT NOCOPY NUMBER,
204 x_object_version_number IN OUT NOCOPY NUMBER,
205 x_ap_txn_rank IN OUT NOCOPY NUMBER,
206 x_invoice_amt IN OUT NOCOPY NUMBER,
207 x_netted_amt IN OUT NOCOPY NUMBER,
208 x_open_amt IN OUT NOCOPY NUMBER,
209 x_check_id IN OUT NOCOPY NUMBER,
210 x_org_id IN OUT NOCOPY NUMBER,
211 x_attribute_category IN OUT NOCOPY VARCHAR2,
212 x_attribute1 IN OUT NOCOPY VARCHAR2,
213 x_attribute2 IN OUT NOCOPY VARCHAR2,
214 x_attribute3 IN OUT NOCOPY VARCHAR2,
215 x_attribute4 IN OUT NOCOPY VARCHAR2,
216 x_attribute5 IN OUT NOCOPY VARCHAR2,
217 x_attribute6 IN OUT NOCOPY VARCHAR2,
218 x_attribute7 IN OUT NOCOPY VARCHAR2,
219 x_attribute8 IN OUT NOCOPY VARCHAR2,
220 x_attribute9 IN OUT NOCOPY VARCHAR2,
221 x_attribute10 IN OUT NOCOPY VARCHAR2,
222 x_attribute11 IN OUT NOCOPY VARCHAR2,
223 x_attribute12 IN OUT NOCOPY VARCHAR2,
224 x_attribute13 IN OUT NOCOPY VARCHAR2,
225 x_attribute14 IN OUT NOCOPY VARCHAR2,
226 x_attribute15 IN OUT NOCOPY VARCHAR2,
227 x_attribute16 IN OUT NOCOPY VARCHAR2,
228 x_attribute17 IN OUT NOCOPY VARCHAR2,
229 x_attribute18 IN OUT NOCOPY VARCHAR2,
230 x_attribute19 IN OUT NOCOPY VARCHAR2,
231 x_attribute20 IN OUT NOCOPY VARCHAR2
232 ) IS
233
234 BEGIN
235
236 SELECT
237 batch_id,
238 invoice_id,
239 object_version_number,
240 ap_txn_rank,
241 invoice_amt,
242 netted_amt,
243 open_amt,
244 check_id,
245 org_id,
246 attribute_category,
247 attribute1,
248 attribute2,
249 attribute3,
250 attribute4,
251 attribute5,
252 attribute6,
253 attribute7,
254 attribute8,
255 attribute9,
256 attribute10,
257 attribute11,
258 attribute12,
259 attribute13,
260 attribute14,
261 attribute15,
262 attribute16,
263 attribute17,
264 attribute18,
265 attribute19,
266 attribute20
267 INTO
268 x_batch_id,
269 x_invoice_id,
270 x_object_version_number,
271 x_ap_txn_rank,
272 x_invoice_amt,
273 x_netted_amt,
274 x_open_amt,
275 x_check_id,
276 x_org_id,
277 x_attribute_category,
278 x_attribute1,
279 x_attribute2,
280 x_attribute3,
281 x_attribute4,
282 x_attribute5,
283 x_attribute6,
284 x_attribute7,
285 x_attribute8,
286 x_attribute9,
287 x_attribute10,
288 x_attribute11,
289 x_attribute12,
290 x_attribute13,
291 x_attribute14,
292 x_attribute15,
293 x_attribute16,
294 x_attribute17,
295 x_attribute18,
296 x_attribute19,
297 x_attribute20
298 FROM fun_net_ap_invs_all
299 WHERE batch_id = x_batch_id
300 AND invoice_id = x_invoice_id;
301
302 IF ( SQL%NOTFOUND ) THEN
303 RAISE NO_DATA_FOUND;
304 END IF;
305
306 END Select_Row;
307
308
309 PROCEDURE Delete_Row (
310 x_batch_id IN NUMBER,
311 x_invoice_id IN NUMBER
312 ) IS
313
314 BEGIN
315
316 DELETE fun_net_ap_invs_all
317 WHERE batch_id = x_batch_id
318 AND invoice_id = x_invoice_id;
319
320 IF ( SQL%NOTFOUND ) THEN
321 RAISE NO_DATA_FOUND;
322 END IF;
323
324 END Delete_Row;
325
326
327 END FUN_NET_AP_INVS_PKG;