[Home] [Help]
PACKAGE BODY: APPS.FV_IPAC_TRANSACTIONS_SUMM_PKG
Source
1 PACKAGE BODY FV_IPAC_TRANSACTIONS_SUMM_PKG as
2 /* $Header: FVIPATHB.pls 120.4 2003/12/17 21:21:01 ksriniva ship $ */
3 g_module_name VARCHAR2(100) := 'fv.plsql.FV_IPAC_TRANSACTIONS_SUMM_PKG.';
4
5 PROCEDURE Insert_Row(X_ROWID IN OUT NOCOPY VARCHAR2,
6 X_IPAC_BILLING_ID IN OUT NOCOPY NUMBER,
7 X_CUSTOMER_TRX_ID NUMBER ,
8 X_CUSTOMER_ID NUMBER ,
9 X_CUSTOMER_NAME VARCHAR2 ,
10 X_TAXPAYER_NUMBER VARCHAR2 ,
11 X_TRX_NUMBER VARCHAR2 ,
12 X_TRX_DATE DATE ,
13 X_PO_NUMBER VARCHAR2 ,
14 X_CONTRACT_NO VARCHAR2 ,
15 X_CLIN VARCHAR2 ,
16 X_SENDER_ALC VARCHAR2 ,
17 X_SENDER_DO_SYM VARCHAR2 ,
18 X_TRN_SET_ID NUMBER ,
19 X_ORG_DCM_RFR VARCHAR2 ,
20 X_ORG_ACC_DT DATE ,
21 X_DPR_CD VARCHAR2 ,
22 X_DSC VARCHAR2 ,
23 X_OBL_DCM_NR VARCHAR2 ,
24 X_PAY_FLG VARCHAR2 ,
25 X_QTY NUMBER ,
26 X_SND_APP_SYM VARCHAR2 ,
27 X_UNT_ISS VARCHAR2 ,
28 X_UNT_PRC NUMBER ,
29 X_ORG_LN_ITM NUMBER ,
30 X_EXCLUDE_FLAG VARCHAR2 ,
31 X_PROCESSED_FLAG VARCHAR2 ,
32 X_RUN_DATE DATE ,
33 X_SET_OF_BOOKS_ID NUMBER ,
34 X_EXCEPTION_CATEGORY VARCHAR2 ,
35 X_ORG_ID NUMBER ,
36 X_LAST_UPDATE_DATE DATE ,
37 X_LAST_UPDATED_BY NUMBER ,
38 X_LAST_UPDATE_LOGIN NUMBER ,
39 X_CREATION_DATE DATE ,
40 X_CREATED_BY NUMBER ,
41 X_ATTRIBUTE1 VARCHAR2 ,
42 X_ATTRIBUTE2 VARCHAR2 ,
43 X_ATTRIBUTE3 VARCHAR2 ,
44 X_ATTRIBUTE4 VARCHAR2 ,
45 X_ATTRIBUTE5 VARCHAR2 ,
46 X_ATTRIBUTE6 VARCHAR2 ,
47 X_ATTRIBUTE7 VARCHAR2 ,
48 X_ATTRIBUTE8 VARCHAR2 ,
49 X_ATTRIBUTE9 VARCHAR2 ,
50 X_ATTRIBUTE10 VARCHAR2 ,
51 X_ATTRIBUTE11 VARCHAR2 ,
52 X_ATTRIBUTE12 VARCHAR2 ,
53 X_ATTRIBUTE13 VARCHAR2 ,
54 X_ATTRIBUTE14 VARCHAR2 ,
55 X_ATTRIBUTE15 VARCHAR2 ,
56 -- Commented the below lines for the Bug # 2145501
57 /* X_ATTRIBUTE16 VARCHAR2 ,
58 X_ATTRIBUTE17 VARCHAR2 ,
59 X_ATTRIBUTE18 VARCHAR2 ,
60 X_ATTRIBUTE19 VARCHAR2 ,
61 X_ATTRIBUTE20 VARCHAR2 ,
62 X_ATTRIBUTE21 VARCHAR2 ,
63 X_ATTRIBUTE22 VARCHAR2 ,
64 X_ATTRIBUTE23 VARCHAR2 ,
65 X_ATTRIBUTE24 VARCHAR2 ,
66 X_ATTRIBUTE25 VARCHAR2 ,
67 X_ATTRIBUTE26 VARCHAR2 ,
68 X_ATTRIBUTE27 VARCHAR2 ,
69 X_ATTRIBUTE28 VARCHAR2 ,
70 X_ATTRIBUTE29 VARCHAR2 ,
71 X_ATTRIBUTE30 VARCHAR2 , */
72 X_ATTRIBUTE_CATEGORY VARCHAR2 ,
73 X_ADJUSTMENT_ID NUMBER ,
74 X_AMOUNT NUMBER ,
75 X_REPORT_FLAG VARCHAR2 ,
76 X_CNT_NM VARCHAR2 ,
77 X_CNT_PHN_NR VARCHAR2 ,
78 X_TRX_LINE_NO NUMBER ,
79 X_ORG_DO_SYM VARCHAR2
80 ) IS
81
82 l_module_name VARCHAR2(200) := g_module_name || 'Insert_Row';
83 l_errbuf VARCHAR2(1024);
84 x_ipac_billing_id_v NUMBER;
85
86 CURSOR C_ROW_ID IS SELECT ROWID FROM FV_IPAC_TRX
87 WHERE IPAC_BILLING_ID = x_ipac_billing_id_v;
88 BEGIN
89
90 SELECT FV_IPAC_BILLING_ID_S.NEXTVAL INTO x_ipac_billing_id
91 FROM DUAL;
92
93 INSERT INTO FV_IPAC_TRX(
94
95 CUSTOMER_TRX_ID,
96 CUSTOMER_ID ,
97 CUSTOMER_NAME ,
98 TAXPAYER_NUMBER ,
99 TRX_NUMBER ,
100 TRX_DATE ,
101 PO_NUMBER ,
102 CONTRACT_NO ,
103 CLIN ,
104 SENDER_ALC ,
105 SENDER_DO_SYM ,
106 TRN_SET_ID ,
107 ORG_DCM_RFR ,
108 ORG_ACC_DT ,
109 DPR_CD ,
110 DSC ,
111 OBL_DCM_NR ,
112 PAY_FLG ,
113 QTY ,
114 SND_APP_SYM ,
115 UNT_ISS ,
116 UNT_PRC ,
117 ORG_LN_ITM ,
118 EXCLUDE_FLAG ,
119 PROCESSED_FLAG ,
120 RUN_DATE ,
121 SET_OF_BOOKS_ID ,
122 EXCEPTION_CATEGORY ,
123 ORG_ID ,
124 LAST_UPDATE_DATE ,
125 LAST_UPDATED_BY ,
126 LAST_UPDATE_LOGIN ,
127 CREATION_DATE ,
128 CREATED_BY ,
129 ATTRIBUTE1 ,
130 ATTRIBUTE2 ,
131 ATTRIBUTE3 ,
132 ATTRIBUTE4 ,
133 ATTRIBUTE5 ,
134 ATTRIBUTE6 ,
135 ATTRIBUTE7 ,
136 ATTRIBUTE8 ,
137 ATTRIBUTE9 ,
138 ATTRIBUTE10 ,
139 ATTRIBUTE11 ,
140 ATTRIBUTE12 ,
141 ATTRIBUTE13 ,
142 ATTRIBUTE14 ,
143 ATTRIBUTE15 ,
144 -- Commented the below code for the Bug# 2145501
145 /* ATTRIBUTE16 ,
146 ATTRIBUTE17 ,
147 ATTRIBUTE18 ,
148 ATTRIBUTE19 ,
149 ATTRIBUTE20 ,
150 ATTRIBUTE21 ,
151 ATTRIBUTE22 ,
152 ATTRIBUTE23 ,
153 ATTRIBUTE24 ,
154 ATTRIBUTE25 ,
155 ATTRIBUTE26 ,
156 ATTRIBUTE27 ,
157 ATTRIBUTE28 ,
158 ATTRIBUTE29 ,
159 ATTRIBUTE30 , */
160 ATTRIBUTE_CATEGORY ,
161 ADJUSTMENT_ID ,
162 AMOUNT ,
163 REPORT_FLAG ,
164 CNT_NM ,
165 CNT_PHN_NR ,
166 TRX_LINE_NO ,
167 ORG_DO_SYM ,
168 IPAC_BILLING_ID
169 )
170 VALUES( X_CUSTOMER_TRX_ID,
171 X_CUSTOMER_ID ,
172 X_CUSTOMER_NAME ,
173 X_TAXPAYER_NUMBER ,
174 X_TRX_NUMBER ,
175 X_TRX_DATE ,
176 X_PO_NUMBER ,
177 X_CONTRACT_NO ,
178 X_CLIN ,
179 X_SENDER_ALC ,
180 X_SENDER_DO_SYM ,
181 X_TRN_SET_ID ,
182 X_ORG_DCM_RFR ,
183 X_ORG_ACC_DT ,
184 X_DPR_CD ,
185 X_DSC ,
186 X_OBL_DCM_NR ,
187 X_PAY_FLG ,
188 X_QTY ,
189 X_SND_APP_SYM ,
190 X_UNT_ISS ,
191 X_UNT_PRC ,
192 X_ORG_LN_ITM ,
193 X_EXCLUDE_FLAG ,
194 X_PROCESSED_FLAG ,
195 X_RUN_DATE ,
196 X_SET_OF_BOOKS_ID ,
197 X_EXCEPTION_CATEGORY ,
198 X_ORG_ID ,
199 X_LAST_UPDATE_DATE ,
200 X_LAST_UPDATED_BY ,
201 X_LAST_UPDATE_LOGIN ,
202 X_CREATION_DATE ,
203 X_CREATED_BY ,
204 X_ATTRIBUTE1 ,
205 X_ATTRIBUTE2 ,
206 X_ATTRIBUTE3 ,
207 X_ATTRIBUTE4 ,
208 X_ATTRIBUTE5 ,
209 X_ATTRIBUTE6 ,
210 X_ATTRIBUTE7 ,
211 X_ATTRIBUTE8 ,
212 X_ATTRIBUTE9 ,
213 X_ATTRIBUTE10 ,
214 X_ATTRIBUTE11 ,
215 X_ATTRIBUTE12 ,
216 X_ATTRIBUTE13 ,
217 X_ATTRIBUTE14 ,
218 X_ATTRIBUTE15 ,
219 -- Commented the below Code for Bug# 2145501
220 /* X_ATTRIBUTE16 ,
221 X_ATTRIBUTE17 ,
222 X_ATTRIBUTE18 ,
223 X_ATTRIBUTE19 ,
224 X_ATTRIBUTE20 ,
225 X_ATTRIBUTE21 ,
226 X_ATTRIBUTE22 ,
227 X_ATTRIBUTE23 ,
228 X_ATTRIBUTE24 ,
229 X_ATTRIBUTE25 ,
230 X_ATTRIBUTE26 ,
231 X_ATTRIBUTE27 ,
232 X_ATTRIBUTE28 ,
233 X_ATTRIBUTE29 ,
234 X_ATTRIBUTE30 , */
235 X_ATTRIBUTE_CATEGORY ,
236 X_ADJUSTMENT_ID ,
237 X_AMOUNT ,
238 X_REPORT_FLAG ,
239 X_CNT_NM ,
240 X_CNT_PHN_NR ,
241 X_TRX_LINE_NO ,
242 X_ORG_DO_SYM ,
243 x_ipac_billing_id_v
244 );
245 OPEN C_ROW_ID;
246 FETCH C_ROW_ID INTO X_ROWID;
247 IF (C_ROW_ID%NOTFOUND) THEN
248 CLOSE C_ROW_ID;
249 Raise NO_DATA_FOUND;
250 END IF;
251 CLOSE C_ROW_ID;
252 EXCEPTION
253 WHEN OTHERS THEN
254 l_errbuf := SQLERRM;
255 FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',l_errbuf) ;
256 RAISE;
257 END Insert_Row;
258
259 PROCEDURE Update_Row(X_ROWID IN OUT NOCOPY VARCHAR2,
260 X_CUSTOMER_TRX_ID NUMBER,
261 X_CUSTOMER_ID NUMBER ,
262 X_CUSTOMER_NAME VARCHAR2 ,
263 X_TAXPAYER_NUMBER VARCHAR2 ,
264 X_TRX_NUMBER VARCHAR2 ,
265 X_TRX_DATE DATE ,
266 X_PO_NUMBER VARCHAR2 ,
267 X_CONTRACT_NO VARCHAR2 ,
268 X_CLIN VARCHAR2 ,
269 X_SENDER_ALC VARCHAR2 ,
270 X_SENDER_DO_SYM VARCHAR2 ,
271 X_TRN_SET_ID NUMBER ,
272 X_ORG_DCM_RFR VARCHAR2 ,
273 X_ORG_ACC_DT DATE ,
274 X_DPR_CD VARCHAR2 ,
275 X_DSC VARCHAR2 ,
276 X_OBL_DCM_NR VARCHAR2 ,
277 X_PAY_FLG VARCHAR2 ,
278 X_QTY NUMBER ,
279 X_SND_APP_SYM VARCHAR2 ,
280 X_UNT_ISS VARCHAR2 ,
281 X_UNT_PRC NUMBER ,
282 X_ORG_LN_ITM NUMBER ,
283 X_EXCLUDE_FLAG VARCHAR2 ,
284 X_PROCESSED_FLAG VARCHAR2 ,
285 X_RUN_DATE DATE ,
286 X_SET_OF_BOOKS_ID NUMBER ,
287 X_EXCEPTION_CATEGORY VARCHAR2 ,
288 X_ORG_ID NUMBER ,
289 X_LAST_UPDATE_DATE DATE ,
290 X_LAST_UPDATED_BY NUMBER ,
291 X_LAST_UPDATE_LOGIN NUMBER ,
292 X_CREATION_DATE DATE ,
293 X_CREATED_BY NUMBER ,
294 X_ATTRIBUTE1 VARCHAR2 ,
295 X_ATTRIBUTE2 VARCHAR2 ,
296 X_ATTRIBUTE3 VARCHAR2 ,
297 X_ATTRIBUTE4 VARCHAR2 ,
298 X_ATTRIBUTE5 VARCHAR2 ,
299 X_ATTRIBUTE6 VARCHAR2 ,
300 X_ATTRIBUTE7 VARCHAR2 ,
301 X_ATTRIBUTE8 VARCHAR2 ,
302 X_ATTRIBUTE9 VARCHAR2 ,
303 X_ATTRIBUTE10 VARCHAR2 ,
304 X_ATTRIBUTE11 VARCHAR2 ,
305 X_ATTRIBUTE12 VARCHAR2 ,
306 X_ATTRIBUTE13 VARCHAR2 ,
307 X_ATTRIBUTE14 VARCHAR2 ,
308 X_ATTRIBUTE15 VARCHAR2 ,
309 /* X_ATTRIBUTE16 VARCHAR2 ,
310 X_ATTRIBUTE17 VARCHAR2 ,
311 X_ATTRIBUTE18 VARCHAR2 ,
312 X_ATTRIBUTE19 VARCHAR2 ,
313 X_ATTRIBUTE20 VARCHAR2 ,
314 X_ATTRIBUTE21 VARCHAR2 ,
315 X_ATTRIBUTE22 VARCHAR2 ,
316 X_ATTRIBUTE23 VARCHAR2 ,
317 X_ATTRIBUTE24 VARCHAR2 ,
318 X_ATTRIBUTE25 VARCHAR2 ,
319 X_ATTRIBUTE26 VARCHAR2 ,
320 X_ATTRIBUTE27 VARCHAR2 ,
321 X_ATTRIBUTE28 VARCHAR2 ,
322 X_ATTRIBUTE29 VARCHAR2 ,
323 X_ATTRIBUTE30 VARCHAR2 , */
324 X_ATTRIBUTE_CATEGORY VARCHAR2 ,
325 X_ADJUSTMENT_ID NUMBER ,
326 X_AMOUNT NUMBER ,
327 X_REPORT_FLAG VARCHAR2 ,
328 X_CNT_NM VARCHAR2 ,
329 X_CNT_PHN_NR VARCHAR2 ,
330 X_TRX_LINE_NO NUMBER ,
331 X_ORG_DO_SYM VARCHAR2 ,
332 X_IPAC_BILLING_ID NUMBER
333
334 ) IS
335 l_module_name VARCHAR2(200) := g_module_name || 'Update_Row';
336 l_errbuf VARCHAR2(1024);
337 BEGIN
338 UPDATE FV_IPAC_TRX
339 SET CUSTOMER_TRX_ID = X_CUSTOMER_TRX_ID,
340 CUSTOMER_ID = X_CUSTOMER_ID,
341 CUSTOMER_NAME = X_CUSTOMER_NAME ,
342 TAXPAYER_NUMBER = X_TAXPAYER_NUMBER,
343 TRX_NUMBER = X_TRX_NUMBER,
344 TRX_DATE = X_TRX_DATE,
345 PO_NUMBER = X_PO_NUMBER,
346 CONTRACT_NO = X_CONTRACT_NO,
347 CLIN = X_CLIN ,
348 SENDER_ALC = X_SENDER_ALC ,
349 SENDER_DO_SYM = X_SENDER_DO_SYM ,
350 TRN_SET_ID = X_TRN_SET_ID,
351 ORG_DCM_RFR = X_ORG_DCM_RFR,
352 ORG_ACC_DT = X_ORG_ACC_DT,
353 DPR_CD = X_DPR_CD ,
354 DSC = X_DSC ,
355 OBL_DCM_NR = X_OBL_DCM_NR,
356 PAY_FLG = X_PAY_FLG ,
357 QTY = X_QTY,
358 SND_APP_SYM = X_SND_APP_SYM,
359 UNT_ISS = X_UNT_ISS ,
360 UNT_PRC = X_UNT_PRC,
361 ORG_LN_ITM = X_ORG_LN_ITM,
362 EXCLUDE_FLAG = X_EXCLUDE_FLAG,
363 PROCESSED_FLAG = X_PROCESSED_FLAG,
364 RUN_DATE = X_RUN_DATE,
365 EXCEPTION_CATEGORY = X_EXCEPTION_CATEGORY ,
366 ORG_ID = X_ORG_ID ,
367 SET_OF_BOOKS_ID = X_SET_OF_BOOKS_ID,
368 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
369 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
370 CREATION_DATE = X_CREATION_DATE,
371 CREATED_BY = X_CREATED_BY ,
372 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN ,
373 ATTRIBUTE1 = X_ATTRIBUTE1 ,
374 ATTRIBUTE2 = X_ATTRIBUTE2,
375 ATTRIBUTE3 = X_ATTRIBUTE3,
376 ATTRIBUTE4 = X_ATTRIBUTE4 ,
377 ATTRIBUTE5 = X_ATTRIBUTE5 ,
378 ATTRIBUTE6 = X_ATTRIBUTE6 ,
379 ATTRIBUTE7 = X_ATTRIBUTE7 ,
380 ATTRIBUTE8 = X_ATTRIBUTE8 ,
381 ATTRIBUTE9 = X_ATTRIBUTE9 ,
382 ATTRIBUTE10 = X_ATTRIBUTE10 ,
383 ATTRIBUTE11 = X_ATTRIBUTE11 ,
384 ATTRIBUTE12 = X_ATTRIBUTE12 ,
385 ATTRIBUTE13 = X_ATTRIBUTE13 ,
386 ATTRIBUTE14 = X_ATTRIBUTE14 ,
387 ATTRIBUTE15 = X_ATTRIBUTE15,
388 /* ATTRIBUTE16 = X_ATTRIBUTE16 ,
389 ATTRIBUTE17 = X_ATTRIBUTE17,
390 ATTRIBUTE18 = X_ATTRIBUTE18 ,
391 ATTRIBUTE19 = X_ATTRIBUTE19,
392 ATTRIBUTE20 = X_ATTRIBUTE20,
393 ATTRIBUTE21 = X_ATTRIBUTE21 ,
394 ATTRIBUTE22 = X_ATTRIBUTE22 ,
395 ATTRIBUTE23 = X_ATTRIBUTE23 ,
396 ATTRIBUTE24 = X_ATTRIBUTE24 ,
397 ATTRIBUTE25 = X_ATTRIBUTE25 ,
398 ATTRIBUTE26 = X_ATTRIBUTE26 ,
399 ATTRIBUTE27 = X_ATTRIBUTE27,
400 ATTRIBUTE28 = X_ATTRIBUTE28 ,
401 ATTRIBUTE29 = X_ATTRIBUTE29 ,
402 ATTRIBUTE30 = X_ATTRIBUTE30, */
403 ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
404 ADJUSTMENT_ID = X_ADJUSTMENT_ID,
405 AMOUNT = X_AMOUNT,
406 REPORT_FLAG = X_REPORT_FLAG,
407 CNT_NM = X_CNT_NM,
408 CNT_PHN_NR = X_CNT_PHN_NR,
409 TRX_LINE_NO = X_TRX_LINE_NO,
410 ORG_DO_SYM = X_ORG_DO_SYM ,
411 IPAC_BILLING_ID = X_IPAC_BILLING_ID
412
413
414 WHERE ROWID = X_ROWID;
415
416 IF (SQL%NOTFOUND) THEN
417 RAISE NO_DATA_FOUND;
418 END IF;
419 EXCEPTION
420 WHEN OTHERS THEN
421 l_errbuf := SQLERRM;
422 FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',l_errbuf) ;
423 RAISE;
424 END Update_Row;
425
426
427 PROCEDURE Lock_Row( X_ROWID IN OUT NOCOPY VARCHAR2,
428 X_CUSTOMER_TRX_ID NUMBER,
429 X_CUSTOMER_ID NUMBER,
430 X_TRX_NUMBER VARCHAR2,
431 X_SET_OF_BOOKS_ID NUMBER,
432 X_IPAC_BILLING_ID NUMBER
433
434 ) IS
435 l_module_name VARCHAR2(200) := g_module_name || 'Lock_Row';
436 l_errbuf VARCHAR2(1024);
437 CURSOR c_lock_record IS
438 SELECT customer_trx_id,
439 customer_id,
440 trx_number,
441 set_of_books_id,
442 ipac_billing_id
443 FROM fv_ipac_trx
444 WHERE ROWID = X_ROWID
445 for UPDATE OF IPAC_BILLING_ID NOWAIT;
446 Recinfo c_lock_record%ROWTYPE;
447
448 BEGIN
449 OPEN c_lock_record;
450 FETCH c_lock_record INTO Recinfo;
451 IF (c_lock_record%NOTFOUND) THEN
452 CLOSE c_lock_record;
453 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
454 IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
455 FV_UTILITY.MESSAGE(FND_LOG.LEVEL_ERROR, l_module_name) ;
456 END IF;
457 APP_EXCEPTION.Raise_Exception;
458 END IF;
459 CLOSE c_lock_record;
460 IF ((recinfo.CUSTOMER_TRX_ID = X_CUSTOMER_TRX_ID)
461 OR ((recinfo.CUSTOMER_TRX_ID IS NULL)
462 AND (X_CUSTOMER_TRX_ID IS NULL)))
463 AND ((recinfo.CUSTOMER_ID = X_CUSTOMER_ID)
464 OR ((recinfo.CUSTOMER_ID IS NULL)
465 AND (X_CUSTOMER_ID IS NULL)))
466 AND ((recinfo.TRX_NUMBER = X_TRX_NUMBER)
467 OR ((recinfo.TRX_NUMBER IS NULL)
468 AND (X_TRX_NUMBER IS NULL)))
469 AND ((recinfo.SET_OF_BOOKS_ID = X_SET_OF_BOOKS_ID)
470 OR ((recinfo.SET_OF_BOOKS_ID IS NULL)
471 AND (X_SET_OF_BOOKS_ID IS NULL)))
472 AND ((recinfo.IPAC_BILLING_ID = X_IPAC_BILLING_ID)
473 OR ((recinfo.IPAC_BILLING_ID IS NULL)
474 AND (X_IPAC_BILLING_ID IS NULL)))
475
476 THEN
477 RETURN;
478 ELSE
479 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
480 IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
481 FV_UTILITY.MESSAGE(FND_LOG.LEVEL_ERROR, l_module_name) ;
482 END IF;
483 APP_EXCEPTION.RAISE_EXCEPTION;
484 END IF;
485 EXCEPTION
486 WHEN OTHERS THEN
487 l_errbuf := SQLERRM;
488 FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',l_errbuf) ;
489 RAISE;
490 END Lock_Row;
491
492
493
494 PROCEDURE Delete_Row(X_ROWID IN OUT NOCOPY VARCHAR2 ) IS
495 l_module_name VARCHAR2(200) := g_module_name || 'Delete_Row';
496 l_errbuf VARCHAR2(1024);
497 x_ipac_billing_id NUMBER;
498
499 BEGIN
500 BEGIN
501 SELECT ipac_billing_id
502 INTO x_ipac_billing_id
503 FROM FV_IPAC_TRX
504 WHERE rowid = x_rowid ;
505
506
507 EXCEPTION
508 WHEN NO_DATA_FOUND THEN
509 RAISE;
510 END;
511
512
513 /* Delete FV_IPAC_TRX - Record */
514 DELETE FROM FV_IPAC_TRX
515 WHERE ipac_billing_id = X_ipac_billing_id ;
516
517 IF (SQL%NOTFOUND) THEN
518 RAISE NO_DATA_FOUND;
519 END IF;
520 EXCEPTION
521 WHEN OTHERS THEN
522 l_errbuf := SQLERRM;
523 FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',l_errbuf) ;
524 RAISE;
525 END Delete_Row;
526
527 END FV_IPAC_TRANSACTIONS_SUMM_PKG;