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

Source


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