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_ACCOUNT_MAPPING_ALL_PKG

Source


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