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.PSP_PAYROLL_SOURCES_PKG

Source


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