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

Source


1 PACKAGE BODY CST_RESOURCE_OVERHEADS_PKG as
2 /* $Header: cstrovhb.pls 115.3 2002/11/11 23:21:14 awwang ship $ */
3 
4 
5 PROCEDURE Insert_Row(X_Rowid                        IN OUT NOCOPY VARCHAR2,
6                      X_Cost_Type_Id                        NUMBER,
7                      X_Resource_Id                         NUMBER,
8                      X_Overhead_Id                         NUMBER,
9                      X_Last_Update_Date                    DATE,
10                      X_Last_Updated_By                     NUMBER,
11                      X_Creation_Date                       DATE,
12                      X_Created_By                          NUMBER,
13                      X_Last_Update_Login                   NUMBER DEFAULT NULL,
14                      X_Organization_Id                     NUMBER,
15                      X_Attribute_Category                  VARCHAR2 DEFAULT NULL,
16                      X_Attribute1                          VARCHAR2 DEFAULT NULL,
17                      X_Attribute2                          VARCHAR2 DEFAULT NULL,
18                      X_Attribute3                          VARCHAR2 DEFAULT NULL,
19                      X_Attribute4                          VARCHAR2 DEFAULT NULL,
20                      X_Attribute5                          VARCHAR2 DEFAULT NULL,
21                      X_Attribute6                          VARCHAR2 DEFAULT NULL,
22                      X_Attribute7                          VARCHAR2 DEFAULT NULL,
23                      X_Attribute8                          VARCHAR2 DEFAULT NULL,
24                      X_Attribute9                          VARCHAR2 DEFAULT NULL,
25                      X_Attribute10                         VARCHAR2 DEFAULT NULL,
26                      X_Attribute11                         VARCHAR2 DEFAULT NULL,
27                      X_Attribute12                         VARCHAR2 DEFAULT NULL,
28                      X_Attribute13                         VARCHAR2 DEFAULT NULL,
29                      X_Attribute14                         VARCHAR2 DEFAULT NULL,
30                      X_Attribute15                         VARCHAR2 DEFAULT NULL
31  ) IS
32    CURSOR C IS SELECT rowid FROM cst_resource_overheads
33              WHERE cost_type_id = X_Cost_Type_Id
34              AND   resource_id  = X_Resource_Id
35              AND   overhead_id  = X_Overhead_Id;
36 
37 BEGIN
38 
39   INSERT INTO cst_resource_overheads(
40           cost_type_id,
41           resource_id,
42           overhead_id,
43           last_update_date,
44           last_updated_by,
45           creation_date,
46           created_by,
47           last_update_login,
48           organization_id,
49           attribute_category,
50           attribute1,
51           attribute2,
52           attribute3,
53           attribute4,
54           attribute5,
55           attribute6,
56           attribute7,
57           attribute8,
58           attribute9,
59           attribute10,
60           attribute11,
61           attribute12,
62           attribute13,
63           attribute14,
64           attribute15
65          ) VALUES (
66           X_Cost_Type_Id,
67           X_Resource_Id,
68           X_Overhead_Id,
69           X_Last_Update_Date,
70           X_Last_Updated_By,
71           X_Creation_Date,
72           X_Created_By,
73           X_Last_Update_Login,
74           X_Organization_Id,
75           X_Attribute_Category,
76           X_Attribute1,
77           X_Attribute2,
78           X_Attribute3,
79           X_Attribute4,
80           X_Attribute5,
81           X_Attribute6,
82           X_Attribute7,
83           X_Attribute8,
84           X_Attribute9,
85           X_Attribute10,
86           X_Attribute11,
87           X_Attribute12,
88           X_Attribute13,
89           X_Attribute14,
90           X_Attribute15
91 
92   );
93 
94   OPEN C;
95   FETCH C INTO X_Rowid;
96   if (C%NOTFOUND) then
97     CLOSE C;
98     RAISE NO_DATA_FOUND;
99   end if;
100   CLOSE C;
101 END Insert_Row;
102 
103 PROCEDURE Lock_Row(X_Rowid                                 VARCHAR2,
104                    X_Cost_Type_Id                          NUMBER,
105                    X_Resource_Id                           NUMBER,
106                    X_Overhead_Id                           NUMBER,
107                    X_Organization_Id                       NUMBER,
108                    X_Attribute_Category                    VARCHAR2 DEFAULT NULL,
109                    X_Attribute1                            VARCHAR2 DEFAULT NULL,
110                    X_Attribute2                            VARCHAR2 DEFAULT NULL,
111                    X_Attribute3                            VARCHAR2 DEFAULT NULL,
112                    X_Attribute4                            VARCHAR2 DEFAULT NULL,
113                    X_Attribute5                            VARCHAR2 DEFAULT NULL,
114                    X_Attribute6                            VARCHAR2 DEFAULT NULL,
115                    X_Attribute7                            VARCHAR2 DEFAULT NULL,
116                    X_Attribute8                            VARCHAR2 DEFAULT NULL,
117                    X_Attribute9                            VARCHAR2 DEFAULT NULL,
118                    X_Attribute10                           VARCHAR2 DEFAULT NULL,
119                    X_Attribute11                           VARCHAR2 DEFAULT NULL,
120                    X_Attribute12                           VARCHAR2 DEFAULT NULL,
121                    X_Attribute13                           VARCHAR2 DEFAULT NULL,
122                    X_Attribute14                           VARCHAR2 DEFAULT NULL,
123                    X_Attribute15                           VARCHAR2 DEFAULT NULL
124 ) IS
125   CURSOR C IS
126       SELECT *
127       FROM   cst_resource_overheads
128       WHERE  rowid = X_Rowid
129       FOR UPDATE of Cost_Type_Id NOWAIT;
130   Recinfo C%ROWTYPE;
131 BEGIN
132   OPEN C;
133   FETCH C INTO Recinfo;
134   if (C%NOTFOUND) then
135     CLOSE C;
136     RAISE NO_DATA_FOUND;
137   end if;
138   CLOSE C;
139   if (
140           (   (Recinfo.cost_type_id = X_Cost_Type_Id)
141            OR (    (Recinfo.cost_type_id IS NULL)
142                AND (X_Cost_Type_Id IS NULL)))
143       AND (   (Recinfo.resource_id = X_Resource_Id)
144            OR (    (Recinfo.resource_id IS NULL)
145                AND (X_Resource_Id IS NULL)))
146       AND (   (Recinfo.overhead_id = X_Overhead_Id)
147            OR (    (Recinfo.overhead_id IS NULL)
148                AND (X_Overhead_Id IS NULL)))
149       AND (   (Recinfo.organization_id = X_Organization_Id)
150            OR (    (Recinfo.organization_id IS NULL)
151                AND (X_Organization_Id IS NULL)))
152       AND (   (Recinfo.attribute_category = X_Attribute_Category)
153            OR (    (Recinfo.attribute_category IS NULL)
154                AND (X_Attribute_Category IS NULL)))
155       AND (   (Recinfo.attribute1 = X_Attribute1)
156            OR (    (Recinfo.attribute1 IS NULL)
157                AND (X_Attribute1 IS NULL)))
158       AND (   (Recinfo.attribute2 = X_Attribute2)
159            OR (    (Recinfo.attribute2 IS NULL)
160                AND (X_Attribute2 IS NULL)))
161       AND (   (Recinfo.attribute3 = X_Attribute3)
162            OR (    (Recinfo.attribute3 IS NULL)
163                AND (X_Attribute3 IS NULL)))
164       AND (   (Recinfo.attribute4 = X_Attribute4)
165            OR (    (Recinfo.attribute4 IS NULL)
166                AND (X_Attribute4 IS NULL)))
167       AND (   (Recinfo.attribute5 = X_Attribute5)
168            OR (    (Recinfo.attribute5 IS NULL)
169                AND (X_Attribute5 IS NULL)))
170       AND (   (Recinfo.attribute6 = X_Attribute6)
171            OR (    (Recinfo.attribute6 IS NULL)
172                AND (X_Attribute6 IS NULL)))
173       AND (   (Recinfo.attribute7 = X_Attribute7)
174            OR (    (Recinfo.attribute7 IS NULL)
175                AND (X_Attribute7 IS NULL)))
176       AND (   (Recinfo.attribute8 = X_Attribute8)
177            OR (    (Recinfo.attribute8 IS NULL)
178                AND (X_Attribute8 IS NULL)))
179       AND (   (Recinfo.attribute9 = X_Attribute9)
180            OR (    (Recinfo.attribute9 IS NULL)
181                AND (X_Attribute9 IS NULL)))
182       AND (   (Recinfo.attribute10 = X_Attribute10)
183            OR (    (Recinfo.attribute10 IS NULL)
184                AND (X_Attribute10 IS NULL)))
185       AND (   (Recinfo.attribute11 = X_Attribute11)
186            OR (    (Recinfo.attribute11 IS NULL)
187                AND (X_Attribute11 IS NULL)))
188       AND (   (Recinfo.attribute12 = X_Attribute12)
189            OR (    (Recinfo.attribute12 IS NULL)
190                AND (X_Attribute12 IS NULL)))
191       AND (   (Recinfo.attribute13 = X_Attribute13)
192            OR (    (Recinfo.attribute13 IS NULL)
193                AND (X_Attribute13 IS NULL)))
194       AND (   (Recinfo.attribute14 = X_Attribute14)
195            OR (    (Recinfo.attribute14 IS NULL)
196                AND (X_Attribute14 IS NULL)))
197       AND (   (Recinfo.attribute15 = X_Attribute15)
198            OR (    (Recinfo.attribute15 IS NULL)
199                AND (X_Attribute15 IS NULL)))
200           ) then
201     return;
202   else
203     FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
204     APP_EXCEPTION.RAISE_EXCEPTION;
205   end if;
206 END Lock_Row;
207 
208 PROCEDURE Update_Row(X_Rowid                               VARCHAR2,
209                      X_Cost_Type_Id                        NUMBER,
210                      X_Resource_Id                         NUMBER,
211                      X_Overhead_Id                         NUMBER,
212                      X_Last_Update_Date                    DATE,
213                      X_Last_Updated_By                     NUMBER,
214                      X_Last_Update_Login                   NUMBER DEFAULT NULL,
215                      X_Organization_Id                     NUMBER,
216                      X_Attribute_Category                  VARCHAR2 DEFAULT NULL,
217                      X_Attribute1                          VARCHAR2 DEFAULT NULL,
218                      X_Attribute2                          VARCHAR2 DEFAULT NULL,
219                      X_Attribute3                          VARCHAR2 DEFAULT NULL,
220                      X_Attribute4                          VARCHAR2 DEFAULT NULL,
221                      X_Attribute5                          VARCHAR2 DEFAULT NULL,
222                      X_Attribute6                          VARCHAR2 DEFAULT NULL,
223                      X_Attribute7                          VARCHAR2 DEFAULT NULL,
224                      X_Attribute8                          VARCHAR2 DEFAULT NULL,
225                      X_Attribute9                          VARCHAR2 DEFAULT NULL,
226                      X_Attribute10                         VARCHAR2 DEFAULT NULL,
227                      X_Attribute11                         VARCHAR2 DEFAULT NULL,
228                      X_Attribute12                         VARCHAR2 DEFAULT NULL,
229                      X_Attribute13                         VARCHAR2 DEFAULT NULL,
230                      X_Attribute14                         VARCHAR2 DEFAULT NULL,
231                      X_Attribute15                         VARCHAR2 DEFAULT NULL
232 ) IS
233 BEGIN
234 
235   UPDATE cst_resource_overheads
236   SET
237     cost_type_id                              =    X_Cost_Type_Id,
238     resource_id                               =    X_Resource_Id,
239     overhead_id                               =    X_Overhead_Id,
240     last_update_date                          =    X_Last_Update_Date,
241     last_updated_by                           =    X_Last_Updated_By,
242     last_update_login                         =    X_Last_Update_Login,
243     organization_id                           =    X_Organization_Id,
244     attribute_category                        =    X_Attribute_Category,
245     attribute1                                =    X_Attribute1,
246     attribute2                                =    X_Attribute2,
247     attribute3                                =    X_Attribute3,
248     attribute4                                =    X_Attribute4,
249     attribute5                                =    X_Attribute5,
250     attribute6                                =    X_Attribute6,
251     attribute7                                =    X_Attribute7,
252     attribute8                                =    X_Attribute8,
253     attribute9                                =    X_Attribute9,
254     attribute10                               =    X_Attribute10,
255     attribute11                               =    X_Attribute11,
256     attribute12                               =    X_Attribute12,
257     attribute13                               =    X_Attribute13,
258     attribute14                               =    X_Attribute14,
259     attribute15                               =    X_Attribute15
260   WHERE rowid = X_rowid;
261 
262   if (SQL%NOTFOUND) then
263     RAISE NO_DATA_FOUND;
264   end if;
265 
266 END Update_Row;
267 
268 PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
269 BEGIN
270   DELETE FROM cst_resource_overheads
271   WHERE  rowid = X_Rowid;
272 
273   if (SQL%NOTFOUND) then
274     RAISE NO_DATA_FOUND;
275   end if;
276 END Delete_Row;
277 
278 END CST_RESOURCE_OVERHEADS_PKG;