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_TRX_DIST_ALL_PKG

Source


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