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_ADJ_DIST_ALL_PKG

Source


1 package body PSA_MF_ADJ_DIST_ALL_PKG AS
2 /* $Header: PSAMFAHB.pls 120.5 2006/09/13 12:20:08 agovil ship $ */
3 
4 --===========================FND_LOG.START=====================================
5 g_state_level NUMBER	:=	FND_LOG.LEVEL_STATEMENT;
6 g_proc_level  NUMBER	:=	FND_LOG.LEVEL_PROCEDURE;
7 g_event_level NUMBER	:=	FND_LOG.LEVEL_EVENT;
8 g_excep_level NUMBER	:=	FND_LOG.LEVEL_EXCEPTION;
9 g_error_level NUMBER	:=	FND_LOG.LEVEL_ERROR;
10 g_unexp_level NUMBER	:=	FND_LOG.LEVEL_UNEXPECTED;
11 g_path        VARCHAR2(50)  :=  'PSA.PLSQL.PSAMFAHB.PSA_MF_ADJ_DIST_ALL_PKG.';
12 --===========================FND_LOG.END=======================================
13 
14 procedure INSERT_ROW (
15   X_ROWID in out NOCOPY VARCHAR2,
16   X_ADJUSTMENT_ID in NUMBER,
17   X_CUST_TRX_LINE_GL_DIST_ID in NUMBER,
18   X_MF_ADJUSTMENT_CCID in NUMBER,
19   X_AMOUNT in NUMBER,
20   X_PERCENT in NUMBER,
21   X_PREV_CUST_TRX_LINE_ID in NUMBER,
22   X_PREV_MF_ADJUSTMENT_CCID in NUMBER,
23   X_COMMENTS in VARCHAR2,
24   X_POSTING_CONTROL_ID in NUMBER,
25   X_ATTRIBUTE_CATEGORY in VARCHAR2,
26   X_ATTRIBUTE1 in VARCHAR2,
27   X_ATTRIBUTE2 in VARCHAR2,
28   X_ATTRIBUTE3 in VARCHAR2,
29   X_ATTRIBUTE4 in VARCHAR2,
30   X_ATTRIBUTE5 in VARCHAR2,
31   X_ATTRIBUTE6 in VARCHAR2,
32   X_ATTRIBUTE7 in VARCHAR2,
33   X_ATTRIBUTE8 in VARCHAR2,
34   X_ATTRIBUTE9 in VARCHAR2,
35   X_ATTRIBUTE10 in VARCHAR2,
36   X_ATTRIBUTE11 in VARCHAR2,
37   X_ATTRIBUTE12 in VARCHAR2,
38   X_ATTRIBUTE13 in VARCHAR2,
39   X_ATTRIBUTE14 in VARCHAR2,
40   X_ATTRIBUTE15 in VARCHAR2,
41   X_MODE in VARCHAR2
42   ) is
43     cursor C is select ROWID from PSA_MF_ADJ_DIST_ALL
44       where ADJUSTMENT_ID = X_ADJUSTMENT_ID
45       and CUST_TRX_LINE_GL_DIST_ID = X_CUST_TRX_LINE_GL_DIST_ID;
46     X_LAST_UPDATE_DATE DATE;
47     X_LAST_UPDATED_BY NUMBER;
48     X_LAST_UPDATE_LOGIN NUMBER;
49     -- ========================= FND LOG ===========================
50     l_full_path VARCHAR2(100) := g_path || 'INSERT_ROW';
51     -- ========================= FND LOG ===========================
52 begin
53   X_LAST_UPDATE_DATE := SYSDATE;
54   if(X_MODE = 'I') then
55     X_LAST_UPDATED_BY := 1;
56     X_LAST_UPDATE_LOGIN := 0;
57   elsif (X_MODE = 'R') then
58     X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
59     if X_LAST_UPDATED_BY is NULL then
60       X_LAST_UPDATED_BY := -1;
61     end if;
62     X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
63     if X_LAST_UPDATE_LOGIN is NULL then
64       X_LAST_UPDATE_LOGIN := -1;
65     end if;
66   else
67     FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
68     -- ========================= FND LOG ===========================
69     psa_utils.debug_other_msg(g_error_level,l_full_path,FALSE);
70     -- ========================= FND LOG ===========================
71     app_exception.raise_exception;
72   end if;
73   insert into PSA_MF_ADJ_DIST_ALL (
74     ADJUSTMENT_ID,
75     CUST_TRX_LINE_GL_DIST_ID,
76     MF_ADJUSTMENT_CCID,
77     AMOUNT,
78     PERCENT,
79     PREV_CUST_TRX_LINE_ID,
80     PREV_MF_ADJUSTMENT_CCID,
81     COMMENTS,
82     POSTING_CONTROL_ID,
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     CREATION_DATE,
100     CREATED_BY,
101     LAST_UPDATE_DATE,
102     LAST_UPDATED_BY,
103     LAST_UPDATE_LOGIN
104   ) values (
105     X_ADJUSTMENT_ID,
106     X_CUST_TRX_LINE_GL_DIST_ID,
107     X_MF_ADJUSTMENT_CCID,
108     X_AMOUNT,
109     X_PERCENT,
110     X_PREV_CUST_TRX_LINE_ID,
111     X_PREV_MF_ADJUSTMENT_CCID,
112     X_COMMENTS,
113     X_POSTING_CONTROL_ID,
114     X_ATTRIBUTE_CATEGORY,
115     X_ATTRIBUTE1,
116     X_ATTRIBUTE2,
117     X_ATTRIBUTE3,
118     X_ATTRIBUTE4,
119     X_ATTRIBUTE5,
120     X_ATTRIBUTE6,
121     X_ATTRIBUTE7,
122     X_ATTRIBUTE8,
123     X_ATTRIBUTE9,
124     X_ATTRIBUTE10,
125     X_ATTRIBUTE11,
126     X_ATTRIBUTE12,
127     X_ATTRIBUTE13,
128     X_ATTRIBUTE14,
129     X_ATTRIBUTE15,
130     X_LAST_UPDATE_DATE,
131     X_LAST_UPDATED_BY,
132     X_LAST_UPDATE_DATE,
133     X_LAST_UPDATED_BY,
134     X_LAST_UPDATE_LOGIN
135   );
136 
137   open c;
138   fetch c into X_ROWID;
139   if (c%notfound) then
140     close c;
141     raise no_data_found;
142   end if;
143   close c;
144 
145 end INSERT_ROW;
146 
147 procedure LOCK_ROW (
148   X_ADJUSTMENT_ID in NUMBER,
149   X_CUST_TRX_LINE_GL_DIST_ID in NUMBER,
150   X_MF_ADJUSTMENT_CCID in NUMBER,
151   X_AMOUNT in NUMBER,
152   X_PERCENT in NUMBER,
153   X_PREV_CUST_TRX_LINE_ID in NUMBER,
154   X_PREV_MF_ADJUSTMENT_CCID in NUMBER,
155   X_COMMENTS in VARCHAR2,
156   X_POSTING_CONTROL_ID in NUMBER,
157   X_ATTRIBUTE_CATEGORY in VARCHAR2,
158   X_ATTRIBUTE1 in VARCHAR2,
159   X_ATTRIBUTE2 in VARCHAR2,
160   X_ATTRIBUTE3 in VARCHAR2,
161   X_ATTRIBUTE4 in VARCHAR2,
162   X_ATTRIBUTE5 in VARCHAR2,
163   X_ATTRIBUTE6 in VARCHAR2,
164   X_ATTRIBUTE7 in VARCHAR2,
165   X_ATTRIBUTE8 in VARCHAR2,
166   X_ATTRIBUTE9 in VARCHAR2,
167   X_ATTRIBUTE10 in VARCHAR2,
168   X_ATTRIBUTE11 in VARCHAR2,
169   X_ATTRIBUTE12 in VARCHAR2,
170   X_ATTRIBUTE13 in VARCHAR2,
171   X_ATTRIBUTE14 in VARCHAR2,
172   X_ATTRIBUTE15 in VARCHAR2
173 ) is
174   cursor c1 is select
175       MF_ADJUSTMENT_CCID,
176       AMOUNT,
177       PERCENT,
178       PREV_CUST_TRX_LINE_ID,
179       PREV_MF_ADJUSTMENT_CCID,
180       COMMENTS,
181       POSTING_CONTROL_ID,
182       ATTRIBUTE_CATEGORY,
183       ATTRIBUTE1,
184       ATTRIBUTE2,
185       ATTRIBUTE3,
186       ATTRIBUTE4,
187       ATTRIBUTE5,
188       ATTRIBUTE6,
189       ATTRIBUTE7,
190       ATTRIBUTE8,
191       ATTRIBUTE9,
192       ATTRIBUTE10,
193       ATTRIBUTE11,
194       ATTRIBUTE12,
195       ATTRIBUTE13,
196       ATTRIBUTE14,
197       ATTRIBUTE15
198     from PSA_MF_ADJ_DIST_ALL
199     where ADJUSTMENT_ID = X_ADJUSTMENT_ID
200     and CUST_TRX_LINE_GL_DIST_ID = X_CUST_TRX_LINE_GL_DIST_ID
201     for update of ADJUSTMENT_ID nowait;
202   tlinfo c1%rowtype;
203   -- ========================= FND LOG ===========================
204   l_full_path VARCHAR2(100) := g_path || 'LOCK_ROW';
205   -- ========================= FND LOG ===========================
206 
207 begin
208   open c1;
209   fetch c1 into tlinfo;
210   if (c1%notfound) then
211     fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
212     -- ========================= FND LOG ===========================
213     psa_utils.debug_other_msg(g_error_level,l_full_path,FALSE);
214     -- ========================= FND LOG ===========================
215     app_exception.raise_exception;
216     close c1;
217     return;
218   end if;
219   close c1;
220 
221   if ( (tlinfo.MF_ADJUSTMENT_CCID = X_MF_ADJUSTMENT_CCID)
222       AND (tlinfo.AMOUNT = X_AMOUNT)
223       AND (tlinfo.PERCENT = X_PERCENT)
224       AND ((tlinfo.PREV_CUST_TRX_LINE_ID = X_PREV_CUST_TRX_LINE_ID)
225            OR ((tlinfo.PREV_CUST_TRX_LINE_ID is null)
226                AND (X_PREV_CUST_TRX_LINE_ID is null)))
227       AND ((tlinfo.PREV_MF_ADJUSTMENT_CCID = X_PREV_MF_ADJUSTMENT_CCID)
228            OR ((tlinfo.PREV_MF_ADJUSTMENT_CCID is null)
229                AND (X_PREV_MF_ADJUSTMENT_CCID is null)))
230       AND ((tlinfo.COMMENTS = X_COMMENTS)
231            OR ((tlinfo.COMMENTS is null)
232                AND (X_COMMENTS is null)))
233       AND ((tlinfo.POSTING_CONTROL_ID = X_POSTING_CONTROL_ID)
234            OR ((tlinfo.POSTING_CONTROL_ID is null)
235                AND (X_POSTING_CONTROL_ID is null)))
236       AND ((tlinfo.ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY)
237            OR ((tlinfo.ATTRIBUTE_CATEGORY is null)
238                AND (X_ATTRIBUTE_CATEGORY is null)))
239       AND ((tlinfo.ATTRIBUTE1 = X_ATTRIBUTE1)
240            OR ((tlinfo.ATTRIBUTE1 is null)
241                AND (X_ATTRIBUTE1 is null)))
242       AND ((tlinfo.ATTRIBUTE2 = X_ATTRIBUTE2)
243            OR ((tlinfo.ATTRIBUTE2 is null)
244                AND (X_ATTRIBUTE2 is null)))
245       AND ((tlinfo.ATTRIBUTE3 = X_ATTRIBUTE3)
246            OR ((tlinfo.ATTRIBUTE3 is null)
247                AND (X_ATTRIBUTE3 is null)))
248       AND ((tlinfo.ATTRIBUTE4 = X_ATTRIBUTE4)
249            OR ((tlinfo.ATTRIBUTE4 is null)
250                AND (X_ATTRIBUTE4 is null)))
251       AND ((tlinfo.ATTRIBUTE5 = X_ATTRIBUTE5)
252            OR ((tlinfo.ATTRIBUTE5 is null)
253                AND (X_ATTRIBUTE5 is null)))
254       AND ((tlinfo.ATTRIBUTE6 = X_ATTRIBUTE6)
255            OR ((tlinfo.ATTRIBUTE6 is null)
256                AND (X_ATTRIBUTE6 is null)))
257       AND ((tlinfo.ATTRIBUTE7 = X_ATTRIBUTE7)
258            OR ((tlinfo.ATTRIBUTE7 is null)
259                AND (X_ATTRIBUTE7 is null)))
260       AND ((tlinfo.ATTRIBUTE8 = X_ATTRIBUTE8)
261            OR ((tlinfo.ATTRIBUTE8 is null)
262                AND (X_ATTRIBUTE8 is null)))
263       AND ((tlinfo.ATTRIBUTE9 = X_ATTRIBUTE9)
264            OR ((tlinfo.ATTRIBUTE9 is null)
265                AND (X_ATTRIBUTE9 is null)))
266       AND ((tlinfo.ATTRIBUTE10 = X_ATTRIBUTE10)
267            OR ((tlinfo.ATTRIBUTE10 is null)
268                AND (X_ATTRIBUTE10 is null)))
269       AND ((tlinfo.ATTRIBUTE11 = X_ATTRIBUTE11)
270            OR ((tlinfo.ATTRIBUTE11 is null)
271                AND (X_ATTRIBUTE11 is null)))
272       AND ((tlinfo.ATTRIBUTE12 = X_ATTRIBUTE12)
273            OR ((tlinfo.ATTRIBUTE12 is null)
274                AND (X_ATTRIBUTE12 is null)))
275       AND ((tlinfo.ATTRIBUTE13 = X_ATTRIBUTE13)
276            OR ((tlinfo.ATTRIBUTE13 is null)
277                AND (X_ATTRIBUTE13 is null)))
278       AND ((tlinfo.ATTRIBUTE14 = X_ATTRIBUTE14)
279            OR ((tlinfo.ATTRIBUTE14 is null)
280                AND (X_ATTRIBUTE14 is null)))
281       AND ((tlinfo.ATTRIBUTE15 = X_ATTRIBUTE15)
282            OR ((tlinfo.ATTRIBUTE15 is null)
283                AND (X_ATTRIBUTE15 is null)))
284   ) then
285     null;
286   else
287     fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
288     -- ========================= FND LOG ===========================
289     psa_utils.debug_other_msg(g_error_level,l_full_path,FALSE);
290     -- ========================= FND LOG ===========================
291     app_exception.raise_exception;
292   end if;
293   return;
294 end LOCK_ROW;
295 
296 procedure UPDATE_ROW (
297   X_ADJUSTMENT_ID in NUMBER,
298   X_CUST_TRX_LINE_GL_DIST_ID in NUMBER,
299   X_MF_ADJUSTMENT_CCID in NUMBER,
300   X_AMOUNT in NUMBER,
301   X_PERCENT in NUMBER,
302   X_PREV_CUST_TRX_LINE_ID in NUMBER,
303   X_PREV_MF_ADJUSTMENT_CCID in NUMBER,
304   X_COMMENTS in VARCHAR2,
305   X_POSTING_CONTROL_ID in NUMBER,
306   X_ATTRIBUTE_CATEGORY in VARCHAR2,
307   X_ATTRIBUTE1 in VARCHAR2,
308   X_ATTRIBUTE2 in VARCHAR2,
309   X_ATTRIBUTE3 in VARCHAR2,
310   X_ATTRIBUTE4 in VARCHAR2,
311   X_ATTRIBUTE5 in VARCHAR2,
312   X_ATTRIBUTE6 in VARCHAR2,
313   X_ATTRIBUTE7 in VARCHAR2,
314   X_ATTRIBUTE8 in VARCHAR2,
315   X_ATTRIBUTE9 in VARCHAR2,
316   X_ATTRIBUTE10 in VARCHAR2,
317   X_ATTRIBUTE11 in VARCHAR2,
318   X_ATTRIBUTE12 in VARCHAR2,
319   X_ATTRIBUTE13 in VARCHAR2,
320   X_ATTRIBUTE14 in VARCHAR2,
321   X_ATTRIBUTE15 in VARCHAR2,
322   X_MODE in VARCHAR2
323   ) is
324     X_LAST_UPDATE_DATE DATE;
325     X_LAST_UPDATED_BY NUMBER;
326     X_LAST_UPDATE_LOGIN NUMBER;
327     -- ========================= FND LOG ===========================
328     l_full_path VARCHAR2(100) := g_path || 'UPDATE_ROW';
329     -- ========================= FND LOG ===========================
330 begin
331   X_LAST_UPDATE_DATE := SYSDATE;
332   if(X_MODE = 'I') then
333     X_LAST_UPDATED_BY := 1;
334     X_LAST_UPDATE_LOGIN := 0;
335   elsif (X_MODE = 'R') then
336     X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
337     if X_LAST_UPDATED_BY is NULL then
338       X_LAST_UPDATED_BY := -1;
339     end if;
340     X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
341     if X_LAST_UPDATE_LOGIN is NULL then
342       X_LAST_UPDATE_LOGIN := -1;
343     end if;
344   else
345     FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
346     -- ========================= FND LOG ===========================
347     psa_utils.debug_other_msg(g_error_level,l_full_path,FALSE);
348     -- ========================= FND LOG ===========================
349     app_exception.raise_exception;
350   end if;
351   update PSA_MF_ADJ_DIST_ALL set
352     MF_ADJUSTMENT_CCID = X_MF_ADJUSTMENT_CCID,
353     AMOUNT = X_AMOUNT,
354     PERCENT = X_PERCENT,
355     PREV_CUST_TRX_LINE_ID = X_PREV_CUST_TRX_LINE_ID,
356     PREV_MF_ADJUSTMENT_CCID = X_PREV_MF_ADJUSTMENT_CCID,
357     COMMENTS = X_COMMENTS,
358     POSTING_CONTROL_ID = X_POSTING_CONTROL_ID,
359     ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
360     ATTRIBUTE1 = X_ATTRIBUTE1,
361     ATTRIBUTE2 = X_ATTRIBUTE2,
362     ATTRIBUTE3 = X_ATTRIBUTE3,
363     ATTRIBUTE4 = X_ATTRIBUTE4,
364     ATTRIBUTE5 = X_ATTRIBUTE5,
365     ATTRIBUTE6 = X_ATTRIBUTE6,
366     ATTRIBUTE7 = X_ATTRIBUTE7,
367     ATTRIBUTE8 = X_ATTRIBUTE8,
368     ATTRIBUTE9 = X_ATTRIBUTE9,
369     ATTRIBUTE10 = X_ATTRIBUTE10,
370     ATTRIBUTE11 = X_ATTRIBUTE11,
371     ATTRIBUTE12 = X_ATTRIBUTE12,
372     ATTRIBUTE13 = X_ATTRIBUTE13,
373     ATTRIBUTE14 = X_ATTRIBUTE14,
374     ATTRIBUTE15 = X_ATTRIBUTE15,
375     LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
376     LAST_UPDATED_BY = X_LAST_UPDATED_BY,
377     LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
378   where ADJUSTMENT_ID = X_ADJUSTMENT_ID
379   and CUST_TRX_LINE_GL_DIST_ID = X_CUST_TRX_LINE_GL_DIST_ID
380   ;
381   if (sql%notfound) then
382     raise no_data_found;
383   end if;
384 end UPDATE_ROW;
385 
386 procedure ADD_ROW (
387   X_ROWID in out NOCOPY VARCHAR2,
388   X_ADJUSTMENT_ID in NUMBER,
389   X_CUST_TRX_LINE_GL_DIST_ID in NUMBER,
390   X_MF_ADJUSTMENT_CCID in NUMBER,
391   X_AMOUNT in NUMBER,
392   X_PERCENT in NUMBER,
393   X_PREV_CUST_TRX_LINE_ID in NUMBER,
394   X_PREV_MF_ADJUSTMENT_CCID in NUMBER,
395   X_COMMENTS in VARCHAR2,
396   X_POSTING_CONTROL_ID in NUMBER,
397   X_ATTRIBUTE_CATEGORY in VARCHAR2,
398   X_ATTRIBUTE1 in VARCHAR2,
399   X_ATTRIBUTE2 in VARCHAR2,
400   X_ATTRIBUTE3 in VARCHAR2,
401   X_ATTRIBUTE4 in VARCHAR2,
402   X_ATTRIBUTE5 in VARCHAR2,
403   X_ATTRIBUTE6 in VARCHAR2,
404   X_ATTRIBUTE7 in VARCHAR2,
405   X_ATTRIBUTE8 in VARCHAR2,
406   X_ATTRIBUTE9 in VARCHAR2,
407   X_ATTRIBUTE10 in VARCHAR2,
408   X_ATTRIBUTE11 in VARCHAR2,
409   X_ATTRIBUTE12 in VARCHAR2,
410   X_ATTRIBUTE13 in VARCHAR2,
411   X_ATTRIBUTE14 in VARCHAR2,
412   X_ATTRIBUTE15 in VARCHAR2,
413   X_MODE in VARCHAR2
414   ) is
415   cursor c1 is select rowid from PSA_MF_ADJ_DIST_ALL
416      where ADJUSTMENT_ID = X_ADJUSTMENT_ID
417      and CUST_TRX_LINE_GL_DIST_ID = X_CUST_TRX_LINE_GL_DIST_ID
418   ;
419   dummy c1%rowtype;
420 begin
421   open c1;
422   fetch c1 into dummy;
423   if (c1%notfound) then
424     close c1;
425     INSERT_ROW (
426      X_ROWID,
427      X_ADJUSTMENT_ID,
428      X_CUST_TRX_LINE_GL_DIST_ID,
429      X_MF_ADJUSTMENT_CCID,
430      X_AMOUNT,
431      X_PERCENT,
432      X_PREV_CUST_TRX_LINE_ID,
433      X_PREV_MF_ADJUSTMENT_CCID,
434      X_COMMENTS,
435      X_POSTING_CONTROL_ID,
436      X_ATTRIBUTE_CATEGORY,
437      X_ATTRIBUTE1,
438      X_ATTRIBUTE2,
439      X_ATTRIBUTE3,
440      X_ATTRIBUTE4,
441      X_ATTRIBUTE5,
442      X_ATTRIBUTE6,
443      X_ATTRIBUTE7,
444      X_ATTRIBUTE8,
445      X_ATTRIBUTE9,
446      X_ATTRIBUTE10,
447      X_ATTRIBUTE11,
448      X_ATTRIBUTE12,
449      X_ATTRIBUTE13,
450      X_ATTRIBUTE14,
451      X_ATTRIBUTE15,
452      X_MODE);
453     return;
454   end if;
455   close c1;
456   UPDATE_ROW (
457    X_ADJUSTMENT_ID,
458    X_CUST_TRX_LINE_GL_DIST_ID,
459    X_MF_ADJUSTMENT_CCID,
460    X_AMOUNT,
461    X_PERCENT,
462    X_PREV_CUST_TRX_LINE_ID,
463    X_PREV_MF_ADJUSTMENT_CCID,
464    X_COMMENTS,
465    X_POSTING_CONTROL_ID,
466    X_ATTRIBUTE_CATEGORY,
467    X_ATTRIBUTE1,
468    X_ATTRIBUTE2,
469    X_ATTRIBUTE3,
470    X_ATTRIBUTE4,
471    X_ATTRIBUTE5,
472    X_ATTRIBUTE6,
473    X_ATTRIBUTE7,
474    X_ATTRIBUTE8,
475    X_ATTRIBUTE9,
476    X_ATTRIBUTE10,
477    X_ATTRIBUTE11,
478    X_ATTRIBUTE12,
479    X_ATTRIBUTE13,
480    X_ATTRIBUTE14,
481    X_ATTRIBUTE15,
482    X_MODE);
483 end ADD_ROW;
484 
485 procedure DELETE_ROW (
486   X_ADJUSTMENT_ID in NUMBER,
487   X_CUST_TRX_LINE_GL_DIST_ID in NUMBER
488 ) is
489 begin
490   delete from PSA_MF_ADJ_DIST_ALL
491   where ADJUSTMENT_ID = X_ADJUSTMENT_ID
492   and CUST_TRX_LINE_GL_DIST_ID = X_CUST_TRX_LINE_GL_DIST_ID;
493   if (sql%notfound) then
494     raise no_data_found;
495   end if;
496 end DELETE_ROW;
497 
498 end PSA_MF_ADJ_DIST_ALL_PKG;