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_MF_MISC_DIST_ALL_PKG

Source


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