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_EST_TXNS_PKG

Source


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