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