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

Source


1 PACKAGE BODY CSI_I_ASSETS_PKG as
2 /* $Header: csitinab.pls 120.2 2005/06/08 13:52:25 appldev  $ */
3 
4 G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSI_I_ASSETS_PKG';
5 G_FILE_NAME CONSTANT VARCHAR2(12) := 'csitinab.pls';
6 
7 PROCEDURE Insert_Row(
8           px_INSTANCE_ASSET_ID   IN OUT NOCOPY NUMBER,
9           p_INSTANCE_ID    NUMBER,
10           p_FA_ASSET_ID    NUMBER,
11           p_FA_BOOK_TYPE_CODE    VARCHAR2,
12           p_FA_LOCATION_ID    NUMBER,
13           p_ASSET_QUANTITY    NUMBER,
14           p_UPDATE_STATUS    VARCHAR2,
15           P_FA_SYNC_FLAG   VARCHAR2,
16           P_FA_MASS_ADDITION_ID    NUMBER,
17           P_CREATION_COMPLETE_FLAG    VARCHAR2,
18           p_CREATED_BY    NUMBER,
19           p_CREATION_DATE    DATE,
20           p_LAST_UPDATED_BY    NUMBER,
21           p_LAST_UPDATE_DATE    DATE,
22           p_LAST_UPDATE_LOGIN    NUMBER,
23           p_OBJECT_VERSION_NUMBER    NUMBER,
24           p_ACTIVE_START_DATE    DATE,
25           p_ACTIVE_END_DATE    DATE)
26 
27  IS
28    CURSOR C2 IS SELECT CSI_I_ASSETS_S.nextval FROM sys.dual;
29 BEGIN
30    If (px_INSTANCE_ASSET_ID IS NULL) OR (px_INSTANCE_ASSET_ID = FND_API.G_MISS_NUM) then
31        OPEN C2;
32        FETCH C2 INTO px_INSTANCE_ASSET_ID;
33        CLOSE C2;
34    End If;
35    INSERT INTO CSI_I_ASSETS(
36            INSTANCE_ASSET_ID,
37            INSTANCE_ID,
38            FA_ASSET_ID,
39            FA_BOOK_TYPE_CODE,
40            FA_LOCATION_ID,
41            ASSET_QUANTITY,
42            UPDATE_STATUS,
43            FA_SYNC_FLAG,
44            FA_MASS_ADDITION_ID,
45            CREATION_COMPLETE_FLAG,
46            CREATED_BY,
47            CREATION_DATE,
48            LAST_UPDATED_BY,
49            LAST_UPDATE_DATE,
50            LAST_UPDATE_LOGIN,
51            OBJECT_VERSION_NUMBER,
52            ACTIVE_START_DATE,
53            ACTIVE_END_DATE
54           ) VALUES (
55            px_INSTANCE_ASSET_ID,
56            decode( p_INSTANCE_ID, FND_API.G_MISS_NUM, NULL, p_INSTANCE_ID),
57            decode( p_FA_ASSET_ID, FND_API.G_MISS_NUM, NULL, p_FA_ASSET_ID),
58            decode( p_FA_BOOK_TYPE_CODE, FND_API.G_MISS_CHAR, NULL, p_FA_BOOK_TYPE_CODE),
59            decode( p_FA_LOCATION_ID, FND_API.G_MISS_NUM, NULL, p_FA_LOCATION_ID),
60            decode( p_ASSET_QUANTITY, FND_API.G_MISS_NUM, NULL, p_ASSET_QUANTITY),
61            decode( p_UPDATE_STATUS, FND_API.G_MISS_CHAR, NULL, p_UPDATE_STATUS),
62            decode( p_fa_sync_flag, FND_API.G_MISS_CHAR, NULL, p_fa_sync_flag),
63            decode( p_fa_mass_addition_id, FND_API.G_MISS_NUM, NULL, p_fa_mass_addition_id),
64            decode( p_creation_complete_flag, FND_API.G_MISS_CHAR, NULL, p_creation_complete_flag),
65            decode( p_CREATED_BY, FND_API.G_MISS_NUM, NULL, p_CREATED_BY),
66            decode( p_CREATION_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_CREATION_DATE),
67            decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, NULL, p_LAST_UPDATED_BY),
68            decode( p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_LAST_UPDATE_DATE),
69            decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, NULL, p_LAST_UPDATE_LOGIN),
70            decode( p_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM, NULL, p_OBJECT_VERSION_NUMBER),
71            decode( p_ACTIVE_START_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_ACTIVE_START_DATE),
72            decode( p_ACTIVE_END_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_ACTIVE_END_DATE));
73 End Insert_Row;
74 
75 PROCEDURE Update_Row(
76           p_INSTANCE_ASSET_ID    NUMBER,
77           p_INSTANCE_ID    NUMBER,
78           p_FA_ASSET_ID    NUMBER,
79           p_FA_BOOK_TYPE_CODE    VARCHAR2,
80           p_FA_LOCATION_ID    NUMBER,
81           p_ASSET_QUANTITY    NUMBER,
82           p_UPDATE_STATUS    VARCHAR2,
83           P_FA_SYNC_FLAG   VARCHAR2,
84           P_FA_MASS_ADDITION_ID    NUMBER,
85           P_CREATION_COMPLETE_FLAG    VARCHAR2,
86           p_CREATED_BY    NUMBER,
87           p_CREATION_DATE    DATE,
88           p_LAST_UPDATED_BY    NUMBER,
89           p_LAST_UPDATE_DATE    DATE,
90           p_LAST_UPDATE_LOGIN    NUMBER,
91           p_OBJECT_VERSION_NUMBER    NUMBER,
92           p_ACTIVE_START_DATE    DATE,
93           p_ACTIVE_END_DATE    DATE)
94 
95  IS
96  BEGIN
97     Update CSI_I_ASSETS
98     SET
99               INSTANCE_ID = decode( p_INSTANCE_ID, FND_API.G_MISS_NUM, INSTANCE_ID, p_INSTANCE_ID),
100               FA_ASSET_ID = decode( p_FA_ASSET_ID, FND_API.G_MISS_NUM, FA_ASSET_ID, p_FA_ASSET_ID),
101               FA_BOOK_TYPE_CODE = decode( p_FA_BOOK_TYPE_CODE, FND_API.G_MISS_CHAR, FA_BOOK_TYPE_CODE, p_FA_BOOK_TYPE_CODE),
102               FA_LOCATION_ID = decode( p_FA_LOCATION_ID, FND_API.G_MISS_NUM, FA_LOCATION_ID, p_FA_LOCATION_ID),
103               ASSET_QUANTITY = decode( p_ASSET_QUANTITY, FND_API.G_MISS_NUM, ASSET_QUANTITY, p_ASSET_QUANTITY),
104               UPDATE_STATUS = decode( p_UPDATE_STATUS, FND_API.G_MISS_CHAR, UPDATE_STATUS, p_UPDATE_STATUS),
105               fa_sync_flag = decode( p_fa_sync_flag, FND_API.G_MISS_CHAR, fa_sync_flag, p_fa_sync_flag),
106               fa_mass_addition_id = decode( p_fa_mass_addition_id, FND_API.G_MISS_NUM, fa_mass_addition_id, p_fa_mass_addition_id),
107               creation_complete_flag = decode( p_creation_complete_flag, FND_API.G_MISS_CHAR, creation_complete_flag, p_creation_complete_flag),
108               CREATED_BY = decode( p_CREATED_BY, FND_API.G_MISS_NUM, CREATED_BY, p_CREATED_BY),
109               CREATION_DATE = decode( p_CREATION_DATE, FND_API.G_MISS_DATE, CREATION_DATE, p_CREATION_DATE),
110               LAST_UPDATED_BY = decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, LAST_UPDATED_BY, p_LAST_UPDATED_BY),
111               LAST_UPDATE_DATE = decode( p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, LAST_UPDATE_DATE, p_LAST_UPDATE_DATE),
112               LAST_UPDATE_LOGIN = decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, LAST_UPDATE_LOGIN, p_LAST_UPDATE_LOGIN),
113               OBJECT_VERSION_NUMBER = decode( p_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM, OBJECT_VERSION_NUMBER, p_OBJECT_VERSION_NUMBER),
114               ACTIVE_START_DATE = decode( p_ACTIVE_START_DATE, FND_API.G_MISS_DATE, ACTIVE_START_DATE, p_ACTIVE_START_DATE),
115               ACTIVE_END_DATE = decode( p_ACTIVE_END_DATE, FND_API.G_MISS_DATE, ACTIVE_END_DATE, p_ACTIVE_END_DATE)
116     where INSTANCE_ASSET_ID = p_INSTANCE_ASSET_ID;
117 
118     If (SQL%NOTFOUND) then
119         RAISE NO_DATA_FOUND;
120     End If;
121 END Update_Row;
122 
123 PROCEDURE Delete_Row(
124     p_INSTANCE_ASSET_ID  NUMBER)
125  IS
126  BEGIN
127    DELETE FROM CSI_I_ASSETS
128     WHERE INSTANCE_ASSET_ID = p_INSTANCE_ASSET_ID;
129    If (SQL%NOTFOUND) then
130        RAISE NO_DATA_FOUND;
131    End If;
132  END Delete_Row;
133 
134 PROCEDURE Lock_Row(
135           p_INSTANCE_ASSET_ID    NUMBER,
136           p_INSTANCE_ID    NUMBER,
137           p_FA_ASSET_ID    NUMBER,
138           p_FA_BOOK_TYPE_CODE    VARCHAR2,
139           p_FA_LOCATION_ID    NUMBER,
140           p_ASSET_QUANTITY    NUMBER,
141           p_UPDATE_STATUS    VARCHAR2,
142           P_FA_SYNC_FLAG   VARCHAR2,
143           P_FA_MASS_ADDITION_ID    NUMBER,
144           P_CREATION_COMPLETE_FLAG    VARCHAR2,
145           p_CREATED_BY    NUMBER,
146           p_CREATION_DATE    DATE,
147           p_LAST_UPDATED_BY    NUMBER,
148           p_LAST_UPDATE_DATE    DATE,
149           p_LAST_UPDATE_LOGIN    NUMBER,
150           p_OBJECT_VERSION_NUMBER    NUMBER,
151           p_ACTIVE_START_DATE    DATE,
152           p_ACTIVE_END_DATE    DATE)
153 
154  IS
155    CURSOR C IS
156         SELECT *
157          FROM CSI_I_ASSETS
158         WHERE INSTANCE_ASSET_ID =  p_INSTANCE_ASSET_ID
159         FOR UPDATE of INSTANCE_ASSET_ID NOWAIT;
160    Recinfo C%ROWTYPE;
161  BEGIN
162     OPEN C;
163     FETCH C INTO Recinfo;
164     If (C%NOTFOUND) then
165         CLOSE C;
166         FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
167         APP_EXCEPTION.RAISE_EXCEPTION;
168     End If;
169     CLOSE C;
170     if (
171            (      Recinfo.INSTANCE_ASSET_ID = p_INSTANCE_ASSET_ID)
172        AND (    ( Recinfo.INSTANCE_ID = p_INSTANCE_ID)
173             OR (    ( Recinfo.INSTANCE_ID IS NULL )
174                 AND (  p_INSTANCE_ID IS NULL )))
175        AND (    ( Recinfo.FA_ASSET_ID = p_FA_ASSET_ID)
176             OR (    ( Recinfo.FA_ASSET_ID IS NULL )
177                 AND (  p_FA_ASSET_ID IS NULL )))
178        AND (    ( Recinfo.FA_BOOK_TYPE_CODE = p_FA_BOOK_TYPE_CODE)
179             OR (    ( Recinfo.FA_BOOK_TYPE_CODE IS NULL )
180                 AND (  p_FA_BOOK_TYPE_CODE IS NULL )))
181        AND (    ( Recinfo.FA_LOCATION_ID = p_FA_LOCATION_ID)
182             OR (    ( Recinfo.FA_LOCATION_ID IS NULL )
183                 AND (  p_FA_LOCATION_ID IS NULL )))
184        AND (    ( Recinfo.ASSET_QUANTITY = p_ASSET_QUANTITY)
185             OR (    ( Recinfo.ASSET_QUANTITY IS NULL )
186                 AND (  p_ASSET_QUANTITY IS NULL )))
187        AND (    ( Recinfo.UPDATE_STATUS = p_UPDATE_STATUS)
188             OR (    ( Recinfo.UPDATE_STATUS IS NULL )
189                 AND (  p_UPDATE_STATUS IS NULL )))
190        AND (    ( Recinfo.CREATED_BY = p_CREATED_BY)
191             OR (    ( Recinfo.CREATED_BY IS NULL )
192                 AND (  p_CREATED_BY IS NULL )))
193        AND (    ( Recinfo.CREATION_DATE = p_CREATION_DATE)
194             OR (    ( Recinfo.CREATION_DATE IS NULL )
195                 AND (  p_CREATION_DATE IS NULL )))
196        AND (    ( Recinfo.LAST_UPDATED_BY = p_LAST_UPDATED_BY)
197             OR (    ( Recinfo.LAST_UPDATED_BY IS NULL )
198                 AND (  p_LAST_UPDATED_BY IS NULL )))
199        AND (    ( Recinfo.LAST_UPDATE_DATE = p_LAST_UPDATE_DATE)
200             OR (    ( Recinfo.LAST_UPDATE_DATE IS NULL )
201                 AND (  p_LAST_UPDATE_DATE IS NULL )))
202        AND (    ( Recinfo.LAST_UPDATE_LOGIN = p_LAST_UPDATE_LOGIN)
203             OR (    ( Recinfo.LAST_UPDATE_LOGIN IS NULL )
204                 AND (  p_LAST_UPDATE_LOGIN IS NULL )))
205        AND (    ( Recinfo.OBJECT_VERSION_NUMBER = p_OBJECT_VERSION_NUMBER)
206             OR (    ( Recinfo.OBJECT_VERSION_NUMBER IS NULL )
207                 AND (  p_OBJECT_VERSION_NUMBER IS NULL )))
208        AND (    ( Recinfo.ACTIVE_START_DATE = p_ACTIVE_START_DATE)
209             OR (    ( Recinfo.ACTIVE_START_DATE IS NULL )
210                 AND (  p_ACTIVE_START_DATE IS NULL )))
211        AND (    ( Recinfo.ACTIVE_END_DATE = p_ACTIVE_END_DATE)
212             OR (    ( Recinfo.ACTIVE_END_DATE IS NULL )
213                 AND (  p_ACTIVE_END_DATE IS NULL )))
214        ) then
215        return;
216    else
217        FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
218        APP_EXCEPTION.RAISE_EXCEPTION;
219    End If;
220 END Lock_Row;
221 
222 End CSI_I_ASSETS_PKG;
223