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_RECEIVABLES_TRX_ALL_PKG

Source


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