[Home] [Help]
PACKAGE BODY: APPS.ENG_CHANGE_TYPE_PROCESSES_PKG
Source
1 PACKAGE BODY ENG_CHANGE_TYPE_PROCESSES_PKG as
2 /* $Header: engpectb.pls 120.0 2005/05/26 18:40:44 appldev noship $ */
3
4 PROCEDURE Check_Unique(X_Rowid varchar2,
5 X_change_order_type_id number,
6 X_Eng_Change_Priority_Code varchar2,
7 X_Organization_Id number) IS
8 Dummy NUMBER;
9 BEGIN
10 select count(1)
11 into dummy
12 from eng_change_order_types ecot,
13 eng_change_type_processes ectp,
14 eng_change_priorities ecp
15 where ecot.change_order_type_id = X_change_order_type_id
16 and ecot.change_order_type_id = ectp.change_order_type_id
17 and ectp.organization_id = X_Organization_Id
18 and ecp.eng_change_priority_code = X_Eng_Change_Priority_Code
19 and ectp.eng_change_priority_code = ecp.eng_change_priority_code
20 and ectp.organization_id = ecp.organization_id
21 and ((X_rowid is null) or (ecp.rowid <> X_rowid));
22
23 if (dummy >=1) then
24 FND_MESSAGE.SET_NAME('INV', 'INV_ALREADY_EXISTS');
25 FND_MESSAGE.SET_TOKEN('ENTITY', X_Eng_Change_Priority_Code);
26 APP_EXCEPTION.RAISE_EXCEPTION;
27 end if;
28 END Check_Unique;
29
30 PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
31 X_Change_Order_Type_Id NUMBER,
32 X_Eng_Change_Priority_Code VARCHAR2,
33 X_Organization_Id NUMBER,
34 X_Process_Name VARCHAR2,
35 X_Last_Update_Date DATE,
36 X_Last_Updated_By NUMBER,
37 X_Creation_Date DATE,
38 X_Created_By NUMBER,
39 X_Last_Update_Login NUMBER,
40 X_Attribute_Category VARCHAR2,
41 X_Attribute1 VARCHAR2,
42 X_Attribute2 VARCHAR2,
43 X_Attribute3 VARCHAR2,
44 X_Attribute4 VARCHAR2,
45 X_Attribute5 VARCHAR2,
46 X_Attribute6 VARCHAR2,
47 X_Attribute7 VARCHAR2,
48 X_Attribute8 VARCHAR2,
49 X_Attribute9 VARCHAR2,
50 X_Attribute10 VARCHAR2,
51 X_Attribute11 VARCHAR2,
52 X_Attribute12 VARCHAR2,
53 X_Attribute13 VARCHAR2,
54 X_Attribute14 VARCHAR2,
55 X_Attribute15 VARCHAR2
56 ) IS
57 CURSOR C IS SELECT rowid FROM ENG_CHANGE_TYPE_PROCESSES
58 WHERE change_order_type_id = X_Change_Order_Type_Id
59 AND ( (eng_change_priority_code = X_Eng_Change_Priority_Code)
60 or (eng_change_priority_code is NULL and X_Eng_Change_Priority_Code is NULL))
61 AND ( (organization_id = X_Organization_Id)
62 or (organization_id is NULL and X_Organization_Id is NULL));
63
64 BEGIN
65
66
67 INSERT INTO ENG_CHANGE_TYPE_PROCESSES(
68 change_order_type_id,
69 eng_change_priority_code,
70 organization_id,
71 process_name,
72 last_update_date,
73 last_updated_by,
74 creation_date,
75 created_by,
76 last_update_login,
77 attribute_category,
78 attribute1,
79 attribute2,
80 attribute3,
81 attribute4,
82 attribute5,
83 attribute6,
84 attribute7,
85 attribute8,
86 attribute9,
87 attribute10,
88 attribute11,
89 attribute12,
90 attribute13,
91 attribute14,
92 attribute15
93 ) VALUES (
94 X_Change_Order_Type_Id,
95 X_Eng_Change_Priority_Code,
96 X_Organization_Id,
97 X_Process_Name,
98 X_Last_Update_Date,
99 X_Last_Updated_By,
100 X_Creation_Date,
101 X_Created_By,
102 X_Last_Update_Login,
103 X_Attribute_Category,
104 X_Attribute1,
105 X_Attribute2,
106 X_Attribute3,
107 X_Attribute4,
108 X_Attribute5,
109 X_Attribute6,
110 X_Attribute7,
111 X_Attribute8,
112 X_Attribute9,
113 X_Attribute10,
114 X_Attribute11,
115 X_Attribute12,
116 X_Attribute13,
117 X_Attribute14,
118 X_Attribute15
119 );
120
121 OPEN C;
122 FETCH C INTO X_Rowid;
123 if (C%NOTFOUND) then
124 CLOSE C;
125 Raise NO_DATA_FOUND;
126 end if;
127 CLOSE C;
128 END Insert_Row;
129
130
131 PROCEDURE Lock_Row(X_Rowid VARCHAR2,
132 X_Change_Order_Type_Id NUMBER,
133 X_Eng_Change_Priority_Code VARCHAR2,
134 X_Organization_Id NUMBER,
135 X_Process_Name VARCHAR2,
136 X_Attribute_Category VARCHAR2,
137 X_Attribute1 VARCHAR2,
138 X_Attribute2 VARCHAR2,
139 X_Attribute3 VARCHAR2,
140 X_Attribute4 VARCHAR2,
141 X_Attribute5 VARCHAR2,
142 X_Attribute6 VARCHAR2,
143 X_Attribute7 VARCHAR2,
144 X_Attribute8 VARCHAR2,
145 X_Attribute9 VARCHAR2,
146 X_Attribute10 VARCHAR2,
147 X_Attribute11 VARCHAR2,
148 X_Attribute12 VARCHAR2,
149 X_Attribute13 VARCHAR2,
150 X_Attribute14 VARCHAR2,
151 X_Attribute15 VARCHAR2
152 ) IS
153 CURSOR C IS
154 SELECT *
155 FROM ENG_CHANGE_TYPE_PROCESSES
156 WHERE rowid = X_Rowid
157 FOR UPDATE of Change_Order_Type_Id NOWAIT;
158 Recinfo C%ROWTYPE;
159
160
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
172 ( (Recinfo.change_order_type_id = X_Change_Order_Type_Id)
173 OR ( (Recinfo.change_order_type_id IS NULL)
174 AND (X_Change_Order_Type_Id IS NULL)))
175 AND ( (Recinfo.eng_change_priority_code = X_Eng_Change_Priority_Code)
176 OR ( (Recinfo.eng_change_priority_code IS NULL)
177 AND (X_Eng_Change_Priority_Code IS NULL)))
178 AND ( (Recinfo.organization_id = X_Organization_Id)
179 OR ( (Recinfo.organization_id IS NULL)
180 AND (X_Organization_Id IS NULL)))
181 AND ( (Recinfo.process_name = X_Process_Name)
182 OR ( (Recinfo.process_name IS NULL)
183 AND (X_Process_Name IS NULL)))
184 AND ( (Recinfo.attribute_category = X_Attribute_Category)
185 OR ( (Recinfo.attribute_category IS NULL)
186 AND (X_Attribute_Category IS NULL)))
187 AND ( (Recinfo.attribute1 = X_Attribute1)
188 OR ( (Recinfo.attribute1 IS NULL)
189 AND (X_Attribute1 IS NULL)))
190 AND ( (Recinfo.attribute2 = X_Attribute2)
191 OR ( (Recinfo.attribute2 IS NULL)
192 AND (X_Attribute2 IS NULL)))
193 AND ( (Recinfo.attribute3 = X_Attribute3)
194 OR ( (Recinfo.attribute3 IS NULL)
195 AND (X_Attribute3 IS NULL)))
196 AND ( (Recinfo.attribute4 = X_Attribute4)
197 OR ( (Recinfo.attribute4 IS NULL)
198 AND (X_Attribute4 IS NULL)))
199 AND ( (Recinfo.attribute5 = X_Attribute5)
200 OR ( (Recinfo.attribute5 IS NULL)
201 AND (X_Attribute5 IS NULL)))
202 AND ( (Recinfo.attribute6 = X_Attribute6)
203 OR ( (Recinfo.attribute6 IS NULL)
204 AND (X_Attribute6 IS NULL)))
205 AND ( (Recinfo.attribute7 = X_Attribute7)
206 OR ( (Recinfo.attribute7 IS NULL)
207 AND (X_Attribute7 IS NULL)))
208 AND ( (Recinfo.attribute8 = X_Attribute8)
209 OR ( (Recinfo.attribute8 IS NULL)
210 AND (X_Attribute8 IS NULL)))
211 AND ( (Recinfo.attribute9 = X_Attribute9)
212 OR ( (Recinfo.attribute9 IS NULL)
213 AND (X_Attribute9 IS NULL)))
214 AND ( (Recinfo.attribute10 = X_Attribute10)
215 OR ( (Recinfo.attribute10 IS NULL)
216 AND (X_Attribute10 IS NULL)))
217 AND ( (Recinfo.attribute11 = X_Attribute11)
218 OR ( (Recinfo.attribute11 IS NULL)
219 AND (X_Attribute11 IS NULL)))
220 AND ( (Recinfo.attribute12 = X_Attribute12)
221 OR ( (Recinfo.attribute12 IS NULL)
222 AND (X_Attribute12 IS NULL)))
223 AND ( (Recinfo.attribute13 = X_Attribute13)
224 OR ( (Recinfo.attribute13 IS NULL)
225 AND (X_Attribute13 IS NULL)))
226 AND ( (Recinfo.attribute14 = X_Attribute14)
227 OR ( (Recinfo.attribute14 IS NULL)
228 AND (X_Attribute14 IS NULL)))
229 AND ( (Recinfo.attribute15 = X_Attribute15)
230 OR ( (Recinfo.attribute15 IS NULL)
231 AND (X_Attribute15 IS NULL)))
232 ) then
233 return;
234 else
235 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
236 APP_EXCEPTION.Raise_Exception;
237 end if;
238 END Lock_Row;
239
240 PROCEDURE Update_Row(X_Rowid VARCHAR2,
241 X_Change_Order_Type_Id NUMBER,
242 X_Eng_Change_Priority_Code VARCHAR2,
243 X_Organization_Id NUMBER,
244 X_Process_Name VARCHAR2,
245 X_Last_Update_Date DATE,
246 X_Last_Updated_By NUMBER,
247 X_Last_Update_Login NUMBER,
248 X_Attribute_Category VARCHAR2,
249 X_Attribute1 VARCHAR2,
250 X_Attribute2 VARCHAR2,
251 X_Attribute3 VARCHAR2,
252 X_Attribute4 VARCHAR2,
253 X_Attribute5 VARCHAR2,
254 X_Attribute6 VARCHAR2,
255 X_Attribute7 VARCHAR2,
256 X_Attribute8 VARCHAR2,
257 X_Attribute9 VARCHAR2,
258 X_Attribute10 VARCHAR2,
259 X_Attribute11 VARCHAR2,
260 X_Attribute12 VARCHAR2,
261 X_Attribute13 VARCHAR2,
262 X_Attribute14 VARCHAR2,
263 X_Attribute15 VARCHAR2
264
265 ) IS
266 BEGIN
267 UPDATE ENG_CHANGE_TYPE_PROCESSES
268 SET
269 change_order_type_id = X_Change_Order_Type_Id,
270 eng_change_priority_code = X_Eng_Change_Priority_Code,
271 organization_id = X_Organization_Id,
272 process_name = X_Process_Name,
273 last_update_date = X_Last_Update_Date,
274 last_updated_by = X_Last_Updated_By,
275 last_update_login = X_Last_Update_Login,
276 attribute_category = X_Attribute_Category,
277 attribute1 = X_Attribute1,
278 attribute2 = X_Attribute2,
279 attribute3 = X_Attribute3,
280 attribute4 = X_Attribute4,
281 attribute5 = X_Attribute5,
282 attribute6 = X_Attribute6,
283 attribute7 = X_Attribute7,
284 attribute8 = X_Attribute8,
285 attribute9 = X_Attribute9,
286 attribute10 = X_Attribute10,
287 attribute11 = X_Attribute11,
288 attribute12 = X_Attribute12,
289 attribute13 = X_Attribute13,
290 attribute14 = X_Attribute14,
291 attribute15 = X_Attribute15
292 WHERE rowid = X_Rowid;
293
294 if (SQL%NOTFOUND) then
295 Raise NO_DATA_FOUND;
296 end if;
297 END Update_Row;
298
299 PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
300 BEGIN
301 DELETE FROM ENG_CHANGE_TYPE_PROCESSES
302 WHERE rowid = X_Rowid;
303
304 if (SQL%NOTFOUND) then
305 Raise NO_DATA_FOUND;
306 end if;
307 END Delete_Row;
308
309
310 END ENG_CHANGE_TYPE_PROCESSES_PKG;