eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.PSA_MFAR_RECEIPTS_COVER_PKG

Source


1 package body psa_mfar_receipts_cover_pkg as
2 /* $Header: PSAMFRHB.pls 120.7 2006/09/13 13:42:25 agovil ship $ */
3 --===========================FND_LOG.START=====================================
4 g_state_level NUMBER	:=	FND_LOG.LEVEL_STATEMENT;
5 g_proc_level  NUMBER	:=	FND_LOG.LEVEL_PROCEDURE;
6 g_event_level NUMBER	:=	FND_LOG.LEVEL_EVENT;
7 g_excep_level NUMBER	:=	FND_LOG.LEVEL_EXCEPTION;
8 g_error_level NUMBER	:=	FND_LOG.LEVEL_ERROR;
9 g_unexp_level NUMBER	:=	FND_LOG.LEVEL_UNEXPECTED;
10 g_path        VARCHAR2(50)  := 'PSA.PLSQL.PSAMFRHB.psa_mfar_receipts_cover_pkg.';
11 --===========================FND_LOG.END=======================================
12 
13 procedure INSERT_ROW (
14   X_ROWID in out NOCOPY VARCHAR2,
15   X_RECEIVABLE_APPLICATION_ID in NUMBER,
16   X_CUST_TRX_LINE_GL_DIST_ID in NUMBER,
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_ATTRIBUTE_CATEGORY in VARCHAR2,
26   X_MF_CASH_CCID in NUMBER,
27   X_AMOUNT in NUMBER,
28   X_PERCENT in NUMBER,
29   X_DISCOUNT_CCID in NUMBER,
30   X_UE_DISCOUNT_CCID in NUMBER,
31   X_DISCOUNT_AMOUNT in NUMBER,
32   X_UE_DISCOUNT_AMOUNT in NUMBER,
33   X_COMMENTS in VARCHAR2,
34   X_POSTING_CONTROL_ID in NUMBER,
35   X_ATTRIBUTE1 in VARCHAR2,
36   X_ATTRIBUTE10 in VARCHAR2,
37   X_ATTRIBUTE11 in VARCHAR2,
38   X_ATTRIBUTE12 in VARCHAR2,
39   X_ATTRIBUTE13 in VARCHAR2,
40   X_ATTRIBUTE14 in VARCHAR2,
41   X_ATTRIBUTE15 in VARCHAR2,
42   X_REFERENCE4 IN VARCHAR2 DEFAULT NULL,
43   X_REFERENCE5 IN VARCHAR2 DEFAULT NULL,
44   X_REFERENCE2 IN VARCHAR2 DEFAULT NULL,
45   X_REFERENCE1 IN VARCHAR2 DEFAULT NULL,
46   X_REFERENCE3 IN VARCHAR2 DEFAULT NULL,
47   X_REVERSAL_CCID IN NUMBER DEFAULT NULL,
48   X_MODE in VARCHAR2
49   ) is
50     cursor C is select ROWID from PSA_MF_RCT_DIST_ALL
51       where RECEIVABLE_APPLICATION_ID = X_RECEIVABLE_APPLICATION_ID
52       and CUST_TRX_LINE_GL_DIST_ID = X_CUST_TRX_LINE_GL_DIST_ID;
53     X_LAST_UPDATE_DATE DATE;
54     X_LAST_UPDATED_BY NUMBER;
55     X_LAST_UPDATE_LOGIN NUMBER;
56     -- ========================= FND LOG ===========================
57     l_full_path VARCHAR2(100) := g_path || 'INSERT_ROW';
58     -- ========================= FND LOG ===========================
59 begin
60   X_LAST_UPDATE_DATE := SYSDATE;
61   if(X_MODE = 'I') then
62     X_LAST_UPDATED_BY := 1;
63     X_LAST_UPDATE_LOGIN := 0;
64   elsif (X_MODE = 'R') then
65     X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
66     if X_LAST_UPDATED_BY is NULL then
67       X_LAST_UPDATED_BY := -1;
68     end if;
69     X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
70     if X_LAST_UPDATE_LOGIN is NULL then
71       X_LAST_UPDATE_LOGIN := -1;
72     end if;
73   else
74     FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
75     -- ========================= FND LOG ===========================
76     psa_utils.debug_other_msg(g_error_level,l_full_path,FALSE);
77     -- ========================= FND LOG ===========================
78     app_exception.raise_exception;
79   end if;
80   insert into PSA_MF_RCT_DIST_ALL (
81     ATTRIBUTE2,
82     ATTRIBUTE3,
83     ATTRIBUTE4,
84     ATTRIBUTE5,
85     ATTRIBUTE6,
86     ATTRIBUTE7,
87     ATTRIBUTE8,
88     ATTRIBUTE9,
89     ATTRIBUTE_CATEGORY,
90     RECEIVABLE_APPLICATION_ID,
91     CUST_TRX_LINE_GL_DIST_ID,
92     MF_CASH_CCID,
93     AMOUNT,
94     PERCENT,
95     DISCOUNT_CCID,
96     UE_DISCOUNT_CCID,
97     DISCOUNT_AMOUNT,
98     UE_DISCOUNT_AMOUNT,
99     COMMENTS,
100     POSTING_CONTROL_ID,
101     ATTRIBUTE1,
102     ATTRIBUTE10,
103     ATTRIBUTE11,
104     ATTRIBUTE12,
105     ATTRIBUTE13,
106     ATTRIBUTE14,
107     ATTRIBUTE15,
108     REFERENCE4,
109     REFERENCE5,
110     REFERENCE2,
111     REFERENCE1,
112     REFERENCE3,
113     REVERSAL_CCID,
114     CREATION_DATE,
115     CREATED_BY,
116     LAST_UPDATE_DATE,
117     LAST_UPDATED_BY,
118     LAST_UPDATE_LOGIN
119   ) values (
120     X_ATTRIBUTE2,
121     X_ATTRIBUTE3,
122     X_ATTRIBUTE4,
123     X_ATTRIBUTE5,
124     X_ATTRIBUTE6,
125     X_ATTRIBUTE7,
126     X_ATTRIBUTE8,
127     X_ATTRIBUTE9,
128     X_ATTRIBUTE_CATEGORY,
129     X_RECEIVABLE_APPLICATION_ID,
130     X_CUST_TRX_LINE_GL_DIST_ID,
131     X_MF_CASH_CCID,
132     X_AMOUNT,
133     X_PERCENT,
134     X_DISCOUNT_CCID,
135     X_UE_DISCOUNT_CCID,
136     X_DISCOUNT_AMOUNT,
137     X_UE_DISCOUNT_AMOUNT,
138     X_COMMENTS,
139     X_POSTING_CONTROL_ID,
140     X_ATTRIBUTE1,
141     X_ATTRIBUTE10,
142     X_ATTRIBUTE11,
143     X_ATTRIBUTE12,
144     X_ATTRIBUTE13,
145     X_ATTRIBUTE14,
146     X_ATTRIBUTE15,
147     X_REFERENCE4,
148     X_REFERENCE5,
149     X_REFERENCE2,
150     X_REFERENCE1,
151     X_REFERENCE3,
152     X_REVERSAL_CCID,
153     X_LAST_UPDATE_DATE,
154     X_LAST_UPDATED_BY,
155     X_LAST_UPDATE_DATE,
156     X_LAST_UPDATED_BY,
157     X_LAST_UPDATE_LOGIN
158   );
159 
160   open c;
161   fetch c into X_ROWID;
162   if (c%notfound) then
163     close c;
164     raise no_data_found;
165   end if;
166   close c;
167 
168 end INSERT_ROW;
169 
170 procedure LOCK_ROW (
171   X_RECEIVABLE_APPLICATION_ID in NUMBER,
172   X_CUST_TRX_LINE_GL_DIST_ID in NUMBER,
173   X_ATTRIBUTE2 in VARCHAR2,
174   X_ATTRIBUTE3 in VARCHAR2,
175   X_ATTRIBUTE4 in VARCHAR2,
176   X_ATTRIBUTE5 in VARCHAR2,
177   X_ATTRIBUTE6 in VARCHAR2,
178   X_ATTRIBUTE7 in VARCHAR2,
179   X_ATTRIBUTE8 in VARCHAR2,
180   X_ATTRIBUTE9 in VARCHAR2,
181   X_ATTRIBUTE_CATEGORY in VARCHAR2,
182   X_MF_CASH_CCID in NUMBER,
183   X_AMOUNT in NUMBER,
184   X_PERCENT in NUMBER,
185   X_DISCOUNT_CCID in NUMBER,
186   X_UE_DISCOUNT_CCID in NUMBER,
187   X_DISCOUNT_AMOUNT in NUMBER,
188   X_UE_DISCOUNT_AMOUNT in NUMBER,
189   X_COMMENTS in VARCHAR2,
190   X_POSTING_CONTROL_ID in NUMBER,
191   X_ATTRIBUTE1 in VARCHAR2,
192   X_ATTRIBUTE10 in VARCHAR2,
193   X_ATTRIBUTE11 in VARCHAR2,
194   X_ATTRIBUTE12 in VARCHAR2,
195   X_ATTRIBUTE13 in VARCHAR2,
196   X_ATTRIBUTE14 in VARCHAR2,
197   X_ATTRIBUTE15 in VARCHAR2,
198   X_REFERENCE4 IN VARCHAR2 DEFAULT NULL,
199   X_REFERENCE5 IN VARCHAR2 DEFAULT NULL,
200   X_REFERENCE2 IN VARCHAR2 DEFAULT NULL,
201   X_REFERENCE1 IN VARCHAR2 DEFAULT NULL,
202   X_REFERENCE3 IN VARCHAR2 DEFAULT NULL,
203   X_REVERSAL_CCID IN NUMBER DEFAULT NULL
204 
205 ) is
206   cursor c1 is select
207       ATTRIBUTE2,
208       ATTRIBUTE3,
209       ATTRIBUTE4,
210       ATTRIBUTE5,
211       ATTRIBUTE6,
212       ATTRIBUTE7,
213       ATTRIBUTE8,
214       ATTRIBUTE9,
215       ATTRIBUTE_CATEGORY,
216       MF_CASH_CCID,
217       AMOUNT,
218       PERCENT,
219       DISCOUNT_CCID,
220       UE_DISCOUNT_CCID,
221       DISCOUNT_AMOUNT,
222       UE_DISCOUNT_AMOUNT,
223       COMMENTS,
224       POSTING_CONTROL_ID,
225       ATTRIBUTE1,
226       ATTRIBUTE10,
227       ATTRIBUTE11,
228       ATTRIBUTE12,
229       ATTRIBUTE13,
230       ATTRIBUTE14,
231       ATTRIBUTE15,
232     REFERENCE4,
233     REFERENCE5,
234     REFERENCE2,
235     REFERENCE1,
236     REFERENCE3,
237     REVERSAL_CCID
238     from PSA_MF_RCT_DIST_ALL
239     where RECEIVABLE_APPLICATION_ID = X_RECEIVABLE_APPLICATION_ID
240     and CUST_TRX_LINE_GL_DIST_ID = X_CUST_TRX_LINE_GL_DIST_ID
241     and reference1 = x_reference1
242     for update of RECEIVABLE_APPLICATION_ID nowait;
243   tlinfo c1%rowtype;
244   -- ========================= FND LOG ===========================
245   l_full_path VARCHAR2(100) := g_path || 'LOCK_ROW';
246   -- ========================= FND LOG ===========================
247 begin
248   open c1;
249   fetch c1 into tlinfo;
250   if (c1%notfound) then
251     fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
252     -- ========================= FND LOG ===========================
253     psa_utils.debug_other_msg(g_error_level,l_full_path,FALSE);
254     -- ========================= FND LOG ===========================
255     app_exception.raise_exception;
256     close c1;
257     return;
258   end if;
259   close c1;
260 
261       if ( ((tlinfo.ATTRIBUTE2 = X_ATTRIBUTE2)
262            OR ((tlinfo.ATTRIBUTE2 is null)
263                AND (X_ATTRIBUTE2 is null)))
264       AND ((tlinfo.ATTRIBUTE3 = X_ATTRIBUTE3)
265            OR ((tlinfo.ATTRIBUTE3 is null)
266                AND (X_ATTRIBUTE3 is null)))
267       AND ((tlinfo.ATTRIBUTE4 = X_ATTRIBUTE4)
268            OR ((tlinfo.ATTRIBUTE4 is null)
269                AND (X_ATTRIBUTE4 is null)))
270       AND ((tlinfo.ATTRIBUTE5 = X_ATTRIBUTE5)
271            OR ((tlinfo.ATTRIBUTE5 is null)
272                AND (X_ATTRIBUTE5 is null)))
273       AND ((tlinfo.ATTRIBUTE6 = X_ATTRIBUTE6)
274            OR ((tlinfo.ATTRIBUTE6 is null)
275                AND (X_ATTRIBUTE6 is null)))
276       AND ((tlinfo.ATTRIBUTE7 = X_ATTRIBUTE7)
277            OR ((tlinfo.ATTRIBUTE7 is null)
278                AND (X_ATTRIBUTE7 is null)))
279       AND ((tlinfo.ATTRIBUTE8 = X_ATTRIBUTE8)
280            OR ((tlinfo.ATTRIBUTE8 is null)
281                AND (X_ATTRIBUTE8 is null)))
282       AND ((tlinfo.ATTRIBUTE9 = X_ATTRIBUTE9)
283            OR ((tlinfo.ATTRIBUTE9 is null)
284                AND (X_ATTRIBUTE9 is null)))
285       AND ((tlinfo.ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY)
286            OR ((tlinfo.ATTRIBUTE_CATEGORY is null)
287                AND (X_ATTRIBUTE_CATEGORY is null)))
288       AND ((tlinfo.MF_CASH_CCID = X_MF_CASH_CCID)
289            OR ((tlinfo.MF_CASH_CCID is null)
290                AND (X_MF_CASH_CCID is null)))
291       AND ((tlinfo.AMOUNT = X_AMOUNT)
292            OR ((tlinfo.AMOUNT is null)
293                AND (X_AMOUNT is null)))
294       AND ((tlinfo.PERCENT = X_PERCENT)
295            OR ((tlinfo.PERCENT is null)
296                AND (X_PERCENT is null)))
297       AND ((tlinfo.DISCOUNT_CCID = X_DISCOUNT_CCID)
298            OR ((tlinfo.DISCOUNT_CCID is null)
299                AND (X_DISCOUNT_CCID is null)))
300       AND ((tlinfo.UE_DISCOUNT_CCID = X_UE_DISCOUNT_CCID)
301            OR ((tlinfo.UE_DISCOUNT_CCID is null)
302                AND (X_UE_DISCOUNT_CCID is null)))
303       AND ((tlinfo.DISCOUNT_AMOUNT = X_DISCOUNT_AMOUNT)
304            OR ((tlinfo.DISCOUNT_AMOUNT is null)
305                AND (X_DISCOUNT_AMOUNT is null)))
306       AND ((tlinfo.UE_DISCOUNT_AMOUNT = X_UE_DISCOUNT_AMOUNT)
307            OR ((tlinfo.UE_DISCOUNT_AMOUNT is null)
308                AND (X_UE_DISCOUNT_AMOUNT is null)))
309       AND ((tlinfo.COMMENTS = X_COMMENTS)
310            OR ((tlinfo.COMMENTS is null)
311                AND (X_COMMENTS is null)))
312       AND ((tlinfo.POSTING_CONTROL_ID = X_POSTING_CONTROL_ID)
313            OR ((tlinfo.POSTING_CONTROL_ID is null)
314                AND (X_POSTING_CONTROL_ID is null)))
315       AND ((tlinfo.ATTRIBUTE1 = X_ATTRIBUTE1)
316            OR ((tlinfo.ATTRIBUTE1 is null)
317                AND (X_ATTRIBUTE1 is null)))
318       AND ((tlinfo.ATTRIBUTE10 = X_ATTRIBUTE10)
319            OR ((tlinfo.ATTRIBUTE10 is null)
320                AND (X_ATTRIBUTE10 is null)))
321       AND ((tlinfo.ATTRIBUTE11 = X_ATTRIBUTE11)
322            OR ((tlinfo.ATTRIBUTE11 is null)
323                AND (X_ATTRIBUTE11 is null)))
324       AND ((tlinfo.ATTRIBUTE12 = X_ATTRIBUTE12)
325            OR ((tlinfo.ATTRIBUTE12 is null)
326                AND (X_ATTRIBUTE12 is null)))
327       AND ((tlinfo.ATTRIBUTE13 = X_ATTRIBUTE13)
328            OR ((tlinfo.ATTRIBUTE13 is null)
329                AND (X_ATTRIBUTE13 is null)))
330       AND ((tlinfo.ATTRIBUTE14 = X_ATTRIBUTE14)
331            OR ((tlinfo.ATTRIBUTE14 is null)
332                AND (X_ATTRIBUTE14 is null)))
333       AND ((tlinfo.ATTRIBUTE15 = X_ATTRIBUTE15)
334            OR ((tlinfo.ATTRIBUTE15 is null)
335                AND (X_ATTRIBUTE15 is null)))
336   ) then
337     null;
338   else
339     fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
340     -- ========================= FND LOG ===========================
341     psa_utils.debug_other_msg(g_error_level,l_full_path,FALSE);
342     -- ========================= FND LOG ===========================
343     app_exception.raise_exception;
344   end if;
345   return;
346 end LOCK_ROW;
347 
348 procedure UPDATE_ROW (
349   X_RECEIVABLE_APPLICATION_ID in NUMBER,
350   X_CUST_TRX_LINE_GL_DIST_ID in NUMBER,
351   X_ATTRIBUTE2 in VARCHAR2,
352   X_ATTRIBUTE3 in VARCHAR2,
353   X_ATTRIBUTE4 in VARCHAR2,
354   X_ATTRIBUTE5 in VARCHAR2,
355   X_ATTRIBUTE6 in VARCHAR2,
356   X_ATTRIBUTE7 in VARCHAR2,
357   X_ATTRIBUTE8 in VARCHAR2,
358   X_ATTRIBUTE9 in VARCHAR2,
359   X_ATTRIBUTE_CATEGORY in VARCHAR2,
360   X_MF_CASH_CCID in NUMBER,
361   X_AMOUNT in NUMBER,
362   X_PERCENT in NUMBER,
363   X_DISCOUNT_CCID in NUMBER,
364   X_UE_DISCOUNT_CCID in NUMBER,
365   X_DISCOUNT_AMOUNT in NUMBER,
366   X_UE_DISCOUNT_AMOUNT in NUMBER,
367   X_COMMENTS in VARCHAR2,
368   X_POSTING_CONTROL_ID in NUMBER,
369   X_ATTRIBUTE1 in VARCHAR2,
370   X_ATTRIBUTE10 in VARCHAR2,
371   X_ATTRIBUTE11 in VARCHAR2,
372   X_ATTRIBUTE12 in VARCHAR2,
373   X_ATTRIBUTE13 in VARCHAR2,
374   X_ATTRIBUTE14 in VARCHAR2,
375   X_ATTRIBUTE15 in VARCHAR2,
376   X_REFERENCE4 IN VARCHAR2 DEFAULT NULL,
377   X_REFERENCE5 IN VARCHAR2 DEFAULT NULL,
378   X_REFERENCE2 IN VARCHAR2 DEFAULT NULL,
379   X_REFERENCE1 IN VARCHAR2 DEFAULT NULL,
380   X_REFERENCE3 IN VARCHAR2 DEFAULT NULL,
381   X_REVERSAL_CCID IN NUMBER DEFAULT NULL,
382   X_MODE in VARCHAR2
383   ) is
384     X_LAST_UPDATE_DATE DATE;
385     X_LAST_UPDATED_BY NUMBER;
386     -- ========================= FND LOG ===========================
387     l_full_path VARCHAR2(100) := g_path || 'UPDATE_ROW';
388     -- ========================= FND LOG ===========================
389     X_LAST_UPDATE_LOGIN NUMBER;
390 begin
391   X_LAST_UPDATE_DATE := SYSDATE;
392   if(X_MODE = 'I') then
393     X_LAST_UPDATED_BY := 1;
394     X_LAST_UPDATE_LOGIN := 0;
395   elsif (X_MODE = 'R') then
396     X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
397     if X_LAST_UPDATED_BY is NULL then
398       X_LAST_UPDATED_BY := -1;
399     end if;
400     X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
401     if X_LAST_UPDATE_LOGIN is NULL then
402       X_LAST_UPDATE_LOGIN := -1;
403     end if;
404   else
405     FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
406     -- ========================= FND LOG ===========================
407     psa_utils.debug_other_msg(g_error_level,l_full_path,FALSE);
408     -- ========================= FND LOG ===========================
409     app_exception.raise_exception;
410   end if;
411   update PSA_MF_RCT_DIST_ALL set
412     ATTRIBUTE2 = X_ATTRIBUTE2,
413     ATTRIBUTE3 = X_ATTRIBUTE3,
414     ATTRIBUTE4 = X_ATTRIBUTE4,
415     ATTRIBUTE5 = X_ATTRIBUTE5,
416     ATTRIBUTE6 = X_ATTRIBUTE6,
417     ATTRIBUTE7 = X_ATTRIBUTE7,
418     ATTRIBUTE8 = X_ATTRIBUTE8,
419     ATTRIBUTE9 = X_ATTRIBUTE9,
420     ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
421     MF_CASH_CCID = X_MF_CASH_CCID,
422     AMOUNT = X_AMOUNT,
423     PERCENT = X_PERCENT,
424     DISCOUNT_CCID = X_DISCOUNT_CCID,
425     UE_DISCOUNT_CCID = X_UE_DISCOUNT_CCID,
426     DISCOUNT_AMOUNT = X_DISCOUNT_AMOUNT,
427     UE_DISCOUNT_AMOUNT = X_UE_DISCOUNT_AMOUNT,
428     COMMENTS = X_COMMENTS,
432     ATTRIBUTE11 = X_ATTRIBUTE11,
429     POSTING_CONTROL_ID = X_POSTING_CONTROL_ID,
430     ATTRIBUTE1 = X_ATTRIBUTE1,
431     ATTRIBUTE10 = X_ATTRIBUTE10,
433     ATTRIBUTE12 = X_ATTRIBUTE12,
434     ATTRIBUTE13 = X_ATTRIBUTE13,
435     ATTRIBUTE14 = X_ATTRIBUTE14,
436     ATTRIBUTE15 = X_ATTRIBUTE15,
437     REFERENCE4  = X_REFERENCE4,
438     REFERENCE5  = X_REFERENCE5,
439     REFERENCE2  = X_REFERENCE2,
440     REFERENCE1  = X_REFERENCE1,
441     REFERENCE3  = X_REFERENCE3,
442     REVERSAL_CCID = X_REVERSAL_CCID,
443     LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
444     LAST_UPDATED_BY = X_LAST_UPDATED_BY,
445     LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
446   where RECEIVABLE_APPLICATION_ID = X_RECEIVABLE_APPLICATION_ID
447   and CUST_TRX_LINE_GL_DIST_ID = X_CUST_TRX_LINE_GL_DIST_ID
448   and reference1 = x_reference1
449   ;
450   if (sql%notfound) then
451     raise no_data_found;
452   end if;
453 end UPDATE_ROW;
454 
455 procedure ADD_ROW (
456   X_ROWID in out NOCOPY VARCHAR2,
457   X_RECEIVABLE_APPLICATION_ID in NUMBER,
458   X_CUST_TRX_LINE_GL_DIST_ID in NUMBER,
459   X_ATTRIBUTE2 in VARCHAR2,
460   X_ATTRIBUTE3 in VARCHAR2,
461   X_ATTRIBUTE4 in VARCHAR2,
462   X_ATTRIBUTE5 in VARCHAR2,
463   X_ATTRIBUTE6 in VARCHAR2,
464   X_ATTRIBUTE7 in VARCHAR2,
465   X_ATTRIBUTE8 in VARCHAR2,
466   X_ATTRIBUTE9 in VARCHAR2,
467   X_ATTRIBUTE_CATEGORY in VARCHAR2,
468   X_MF_CASH_CCID in NUMBER,
469   X_AMOUNT in NUMBER,
470   X_PERCENT in NUMBER,
471   X_DISCOUNT_CCID in NUMBER,
472   X_UE_DISCOUNT_CCID in NUMBER,
473   X_DISCOUNT_AMOUNT in NUMBER,
474   X_UE_DISCOUNT_AMOUNT in NUMBER,
475   X_COMMENTS in VARCHAR2,
476   X_POSTING_CONTROL_ID in NUMBER,
477   X_ATTRIBUTE1 in VARCHAR2,
478   X_ATTRIBUTE10 in VARCHAR2,
479   X_ATTRIBUTE11 in VARCHAR2,
480   X_ATTRIBUTE12 in VARCHAR2,
481   X_ATTRIBUTE13 in VARCHAR2,
482   X_ATTRIBUTE14 in VARCHAR2,
483   X_ATTRIBUTE15 in VARCHAR2,
484   X_REFERENCE4 IN VARCHAR2 DEFAULT NULL,
485   X_REFERENCE5 IN VARCHAR2 DEFAULT NULL,
486   X_REFERENCE2 IN VARCHAR2 DEFAULT NULL,
487   X_REFERENCE1 IN VARCHAR2 DEFAULT NULL,
488   X_REFERENCE3 IN VARCHAR2 DEFAULT NULL,
489   X_REVERSAL_CCID IN NUMBER DEFAULT NULL,
490   X_MODE in VARCHAR2
491   ) is
492   cursor c1 is select rowid from PSA_MF_RCT_DIST_ALL
493      where RECEIVABLE_APPLICATION_ID = X_RECEIVABLE_APPLICATION_ID
494      and CUST_TRX_LINE_GL_DIST_ID = X_CUST_TRX_LINE_GL_DIST_ID
495   ;
496   dummy c1%rowtype;
497 begin
498   open c1;
499   fetch c1 into dummy;
500   if (c1%notfound) then
501     close c1;
502     INSERT_ROW (
503      X_ROWID,
504      X_RECEIVABLE_APPLICATION_ID,
505      X_CUST_TRX_LINE_GL_DIST_ID,
506      X_ATTRIBUTE2,
507      X_ATTRIBUTE3,
508      X_ATTRIBUTE4,
509      X_ATTRIBUTE5,
510      X_ATTRIBUTE6,
511      X_ATTRIBUTE7,
512      X_ATTRIBUTE8,
513      X_ATTRIBUTE9,
514      X_ATTRIBUTE_CATEGORY,
515      X_MF_CASH_CCID,
516      X_AMOUNT,
517      X_PERCENT,
518      X_DISCOUNT_CCID,
519      X_UE_DISCOUNT_CCID,
520      X_DISCOUNT_AMOUNT,
521      X_UE_DISCOUNT_AMOUNT,
522      X_COMMENTS,
523      X_POSTING_CONTROL_ID,
524      X_ATTRIBUTE1,
525      X_ATTRIBUTE10,
526      X_ATTRIBUTE11,
527      X_ATTRIBUTE12,
528      X_ATTRIBUTE13,
529      X_ATTRIBUTE14,
530      X_ATTRIBUTE15,
531      X_REFERENCE4,
532      X_REFERENCE5,
533      X_REFERENCE2,
534      X_REFERENCE1,
535      X_REFERENCE3,
536      X_REVERSAL_CCID,
537      X_MODE);
538     return;
539   end if;
540   close c1;
541   UPDATE_ROW (
542    X_RECEIVABLE_APPLICATION_ID,
543    X_CUST_TRX_LINE_GL_DIST_ID,
544    X_ATTRIBUTE2,
545    X_ATTRIBUTE3,
546    X_ATTRIBUTE4,
547    X_ATTRIBUTE5,
548    X_ATTRIBUTE6,
549    X_ATTRIBUTE7,
550    X_ATTRIBUTE8,
551    X_ATTRIBUTE9,
552    X_ATTRIBUTE_CATEGORY,
553    X_MF_CASH_CCID,
554    X_AMOUNT,
555    X_PERCENT,
556    X_DISCOUNT_CCID,
557    X_UE_DISCOUNT_CCID,
558    X_DISCOUNT_AMOUNT,
559    X_UE_DISCOUNT_AMOUNT,
560    X_COMMENTS,
561    X_POSTING_CONTROL_ID,
562    X_ATTRIBUTE1,
563    X_ATTRIBUTE10,
564    X_ATTRIBUTE11,
565    X_ATTRIBUTE12,
566    X_ATTRIBUTE13,
567    X_ATTRIBUTE14,
568    X_ATTRIBUTE15,
569    X_REFERENCE4,
570    X_REFERENCE5,
571    X_REFERENCE2,
572    X_REFERENCE1,
573    X_REFERENCE3,
574    X_REVERSAL_CCID,
575    X_MODE);
576 end ADD_ROW;
577 
578 procedure DELETE_ROW (
579   X_RECEIVABLE_APPLICATION_ID in NUMBER,
580   X_CUST_TRX_LINE_GL_DIST_ID in NUMBER
581 ) is
582 begin
583   delete from PSA_MF_RCT_DIST_ALL
584   where RECEIVABLE_APPLICATION_ID = X_RECEIVABLE_APPLICATION_ID
585   and CUST_TRX_LINE_GL_DIST_ID = X_CUST_TRX_LINE_GL_DIST_ID;
586   if (sql%notfound) then
587     raise no_data_found;
588   end if;
589 end DELETE_ROW;
590 
591 end PSA_MFAR_RECEIPTS_COVER_PKG;