[Home] [Help]
PACKAGE BODY: APPS.B_STD_OP_RES_PKG
Source
1 PACKAGE BODY B_STD_OP_RES_PKG as
2 /* $Header: BOMPISRB.pls 120.0.12020000.3 2012/09/04 11:35:22 rambkond ship $ */
3
4
5 PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
6 X_Standard_Operation_Id NUMBER,
7 X_Resource_Id NUMBER,
8 X_Activity_Id NUMBER DEFAULT NULL,
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_Resource_Seq_Num NUMBER,
15 X_Usage_Rate_Or_Amount NUMBER,
16 X_Usage_Rate_Or_Amount_Inverse NUMBER,
17 X_Basis_Type NUMBER,
18 X_Autocharge_Type NUMBER,
19 X_Standard_Rate_Flag NUMBER,
20 X_Assigned_Units NUMBER DEFAULT NULL,
21 X_Schedule_Flag NUMBER,
22 X_Attribute_Category VARCHAR2 DEFAULT NULL,
23 X_Attribute1 VARCHAR2 DEFAULT NULL,
24 X_Attribute2 VARCHAR2 DEFAULT NULL,
25 X_Attribute3 VARCHAR2 DEFAULT NULL,
26 X_Attribute4 VARCHAR2 DEFAULT NULL,
27 X_Attribute5 VARCHAR2 DEFAULT NULL,
28 X_Attribute6 VARCHAR2 DEFAULT NULL,
29 X_Attribute7 VARCHAR2 DEFAULT NULL,
30 X_Attribute8 VARCHAR2 DEFAULT NULL,
31 X_Attribute9 VARCHAR2 DEFAULT NULL,
32 X_Attribute10 VARCHAR2 DEFAULT NULL,
33 X_Attribute11 VARCHAR2 DEFAULT NULL,
34 X_Attribute12 VARCHAR2 DEFAULT NULL,
35 X_Attribute13 VARCHAR2 DEFAULT NULL,
36 X_Attribute14 VARCHAR2 DEFAULT NULL,
37 X_Attribute15 VARCHAR2 DEFAULT NULL
38 ) IS
39
40 BEGIN
41 Insert_Row(X_Rowid => X_Rowid,
42 X_Standard_Operation_Id => X_Standard_Operation_Id,
43 X_Resource_Id => X_Resource_Id,
44 X_Substitute_Group_Num => NULL,
45 X_Activity_Id => X_Activity_Id,
46 X_Last_Update_Date => X_Last_Update_Date,
47 X_Last_Updated_By => X_Last_Updated_By,
48 X_Creation_Date => X_Creation_Date,
49 X_Created_By => X_Created_By,
50 X_Last_Update_Login => X_Last_Update_Login,
51 X_Resource_Seq_Num => X_Resource_Seq_Num,
52 X_Usage_Rate_Or_Amount => X_Usage_Rate_Or_Amount,
53 X_Usage_Rate_Or_Amount_Inverse => X_Usage_Rate_Or_Amount_Inverse,
54 X_Basis_Type => X_Basis_Type,
55 X_Autocharge_Type => X_Autocharge_Type,
56 X_Standard_Rate_Flag => X_Standard_Rate_Flag,
57 X_Assigned_Units => X_Assigned_Units,
58 X_Schedule_Flag => X_Schedule_Flag,
59 X_Attribute_Category => X_Attribute_Category,
60 X_Attribute1 => X_Attribute1,
61 X_Attribute2 => X_Attribute2,
62 X_Attribute3 => X_Attribute3,
63 X_Attribute4 => X_Attribute4,
64 X_Attribute5 => X_Attribute5,
65 X_Attribute6 => X_Attribute6,
66 X_Attribute7 => X_Attribute7,
67 X_Attribute8 => X_Attribute8,
68 X_Attribute9 => X_Attribute9,
69 X_Attribute10 => X_Attribute10,
70 X_Attribute11 => X_Attribute11,
71 X_Attribute12 => X_Attribute12,
72 X_Attribute13 => X_Attribute13,
73 X_Attribute14 => X_Attribute14,
74 X_Attribute15 => X_Attribute15,
75 X_SCHEDULE_SEQ_NUM => NULL, -- Bug#14550670
76 X_PRINCIPLE_FLAG => NULL -- Bug#14550670
77 );
78
79 END Insert_Row;
80
81 PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
82 X_Standard_Operation_Id NUMBER,
83 X_Resource_Id NUMBER,
84 X_Substitute_Group_Num NUMBER,
85 X_Activity_Id NUMBER DEFAULT NULL,
86 X_Last_Update_Date DATE,
87 X_Last_Updated_By NUMBER,
88 X_Creation_Date DATE,
89 X_Created_By NUMBER,
90 X_Last_Update_Login NUMBER DEFAULT NULL,
91 X_Resource_Seq_Num NUMBER,
92 X_Usage_Rate_Or_Amount NUMBER,
93 X_Usage_Rate_Or_Amount_Inverse NUMBER,
94 X_Basis_Type NUMBER,
95 X_Autocharge_Type NUMBER,
96 X_Standard_Rate_Flag NUMBER,
97 X_Assigned_Units NUMBER DEFAULT NULL,
98 X_Schedule_Flag NUMBER,
99 X_Attribute_Category VARCHAR2 DEFAULT NULL,
100 X_Attribute1 VARCHAR2 DEFAULT NULL,
101 X_Attribute2 VARCHAR2 DEFAULT NULL,
102 X_Attribute3 VARCHAR2 DEFAULT NULL,
103 X_Attribute4 VARCHAR2 DEFAULT NULL,
104 X_Attribute5 VARCHAR2 DEFAULT NULL,
105 X_Attribute6 VARCHAR2 DEFAULT NULL,
106 X_Attribute7 VARCHAR2 DEFAULT NULL,
107 X_Attribute8 VARCHAR2 DEFAULT NULL,
108 X_Attribute9 VARCHAR2 DEFAULT NULL,
109 X_Attribute10 VARCHAR2 DEFAULT NULL,
110 X_Attribute11 VARCHAR2 DEFAULT NULL,
111 X_Attribute12 VARCHAR2 DEFAULT NULL,
112 X_Attribute13 VARCHAR2 DEFAULT NULL,
113 X_Attribute14 VARCHAR2 DEFAULT NULL,
114 X_Attribute15 VARCHAR2 DEFAULT NULL,
115 X_SCHEDULE_SEQ_NUM NUMBER DEFAULT NULL, -- Bug#14550670
116 X_PRINCIPLE_FLAG NUMBER DEFAULT NULL -- Bug#14550670
117 ) IS
118 CURSOR C IS SELECT rowid FROM BOM_STD_OP_RESOURCES
119 WHERE standard_operation_id = X_Standard_Operation_Id
120 AND resource_seq_num = X_Resource_Seq_Num;
121
122 BEGIN
123 INSERT INTO BOM_STD_OP_RESOURCES(
124 standard_operation_id,
125 resource_id,
126 substitute_group_num,
127 activity_id,
128 last_update_date,
129 last_updated_by,
130 creation_date,
131 created_by,
132 last_update_login,
133 resource_seq_num,
134 usage_rate_or_amount,
135 usage_rate_or_amount_inverse,
136 basis_type,
137 autocharge_type,
138 standard_rate_flag,
139 assigned_units,
140 schedule_flag,
141 attribute_category,
142 attribute1,
143 attribute2,
144 attribute3,
145 attribute4,
146 attribute5,
147 attribute6,
148 attribute7,
149 attribute8,
150 attribute9,
151 attribute10,
152 attribute11,
153 attribute12,
154 attribute13,
155 attribute14,
156 attribute15,
157 schedule_seq_num, -- Bug#14550670
158 principle_flag -- Bug#14550670
159 ) VALUES (
160 X_Standard_Operation_Id,
161 X_Resource_Id,
162 X_Substitute_Group_Num,
163 X_Activity_Id,
164 X_Last_Update_Date,
165 X_Last_Updated_By,
166 X_Creation_Date,
167 X_Created_By,
168 X_Last_Update_Login,
169 X_Resource_Seq_Num,
170 X_Usage_Rate_Or_Amount,
171 X_Usage_Rate_Or_Amount_Inverse,
172 X_Basis_Type,
173 X_Autocharge_Type,
174 X_Standard_Rate_Flag,
175 X_Assigned_Units,
176 X_Schedule_Flag,
177 X_Attribute_Category,
178 X_Attribute1,
179 X_Attribute2,
180 X_Attribute3,
181 X_Attribute4,
182 X_Attribute5,
183 X_Attribute6,
184 X_Attribute7,
185 X_Attribute8,
186 X_Attribute9,
187 X_Attribute10,
188 X_Attribute11,
189 X_Attribute12,
190 X_Attribute13,
191 X_Attribute14,
192 X_Attribute15,
193 X_Schedule_Seq_Num, -- Bug#14550670
194 X_Principle_Flag -- Bug#14550670
195
196 );
197
198 OPEN C;
199 FETCH C INTO X_Rowid;
200 if (C%NOTFOUND) then
201 CLOSE C;
202 RAISE NO_DATA_FOUND;
203 end if;
204 CLOSE C;
205 END Insert_Row;
206
207 PROCEDURE Lock_Row(X_Rowid VARCHAR2,
208 X_Standard_Operation_Id NUMBER,
209 X_Resource_Id NUMBER,
210 X_Activity_Id NUMBER DEFAULT NULL,
211 X_Resource_Seq_Num NUMBER,
212 X_Usage_Rate_Or_Amount NUMBER,
213 X_Usage_Rate_Or_Amount_Inverse NUMBER,
214 X_Basis_Type NUMBER,
215 X_Autocharge_Type NUMBER,
216 X_Standard_Rate_Flag NUMBER,
217 X_Assigned_Units NUMBER DEFAULT NULL,
218 X_Schedule_Flag NUMBER,
219 X_Attribute_Category VARCHAR2 DEFAULT NULL,
220 X_Attribute1 VARCHAR2 DEFAULT NULL,
221 X_Attribute2 VARCHAR2 DEFAULT NULL,
222 X_Attribute3 VARCHAR2 DEFAULT NULL,
223 X_Attribute4 VARCHAR2 DEFAULT NULL,
224 X_Attribute5 VARCHAR2 DEFAULT NULL,
225 X_Attribute6 VARCHAR2 DEFAULT NULL,
226 X_Attribute7 VARCHAR2 DEFAULT NULL,
227 X_Attribute8 VARCHAR2 DEFAULT NULL,
228 X_Attribute9 VARCHAR2 DEFAULT NULL,
229 X_Attribute10 VARCHAR2 DEFAULT NULL,
230 X_Attribute11 VARCHAR2 DEFAULT NULL,
231 X_Attribute12 VARCHAR2 DEFAULT NULL,
232 X_Attribute13 VARCHAR2 DEFAULT NULL,
233 X_Attribute14 VARCHAR2 DEFAULT NULL,
234 X_Attribute15 VARCHAR2 DEFAULT NULL
235 ) IS
236
237 BEGIN
238
239 Lock_Row(X_Rowid => X_Rowid,
240 X_Standard_Operation_Id => X_Standard_Operation_Id,
241 X_Resource_Id => X_Resource_Id,
242 X_Substitute_Group_Num => NULL,
243 X_Activity_Id => X_Activity_Id,
244 X_Resource_Seq_Num => X_Resource_Seq_Num,
245 X_Usage_Rate_Or_Amount => X_Usage_Rate_Or_Amount,
246 X_Usage_Rate_Or_Amount_Inverse => X_Usage_Rate_Or_Amount_Inverse,
247 X_Basis_Type => X_Basis_Type,
248 X_Autocharge_Type => X_Autocharge_Type,
249 X_Standard_Rate_Flag => X_Standard_Rate_Flag,
250 X_Assigned_Units => X_Assigned_Units,
251 X_Schedule_Flag => X_Schedule_Flag,
252 X_Attribute_Category => X_Attribute_Category,
253 X_Attribute1 => X_Attribute1,
254 X_Attribute2 => X_Attribute2,
255 X_Attribute3 => X_Attribute3,
256 X_Attribute4 => X_Attribute4,
257 X_Attribute5 => X_Attribute5,
258 X_Attribute6 => X_Attribute6,
259 X_Attribute7 => X_Attribute7,
260 X_Attribute8 => X_Attribute8,
261 X_Attribute9 => X_Attribute9,
262 X_Attribute10 => X_Attribute10,
263 X_Attribute11 => X_Attribute11,
264 X_Attribute12 => X_Attribute12,
265 X_Attribute13 => X_Attribute13,
266 X_Attribute14 => X_Attribute14,
267 X_Attribute15 => X_Attribute15,
268 X_SCHEDULE_SEQ_NUM => NULL, -- Bug#14550670
269 X_PRINCIPLE_FLAG => NULL -- Bug#14550670
270 );
271
272 END Lock_Row;
273
274 PROCEDURE Lock_Row(X_Rowid VARCHAR2,
275 X_Standard_Operation_Id NUMBER,
276 X_Resource_Id NUMBER,
277 X_Substitute_Group_Num NUMBER,
278 X_Activity_Id NUMBER DEFAULT NULL,
279 X_Resource_Seq_Num NUMBER,
280 X_Usage_Rate_Or_Amount NUMBER,
281 X_Usage_Rate_Or_Amount_Inverse NUMBER,
282 X_Basis_Type NUMBER,
283 X_Autocharge_Type NUMBER,
284 X_Standard_Rate_Flag NUMBER,
285 X_Assigned_Units NUMBER DEFAULT NULL,
286 X_Schedule_Flag NUMBER,
287 X_Attribute_Category VARCHAR2 DEFAULT NULL,
288 X_Attribute1 VARCHAR2 DEFAULT NULL,
289 X_Attribute2 VARCHAR2 DEFAULT NULL,
290 X_Attribute3 VARCHAR2 DEFAULT NULL,
291 X_Attribute4 VARCHAR2 DEFAULT NULL,
292 X_Attribute5 VARCHAR2 DEFAULT NULL,
293 X_Attribute6 VARCHAR2 DEFAULT NULL,
294 X_Attribute7 VARCHAR2 DEFAULT NULL,
295 X_Attribute8 VARCHAR2 DEFAULT NULL,
296 X_Attribute9 VARCHAR2 DEFAULT NULL,
297 X_Attribute10 VARCHAR2 DEFAULT NULL,
298 X_Attribute11 VARCHAR2 DEFAULT NULL,
299 X_Attribute12 VARCHAR2 DEFAULT NULL,
300 X_Attribute13 VARCHAR2 DEFAULT NULL,
301 X_Attribute14 VARCHAR2 DEFAULT NULL,
302 X_Attribute15 VARCHAR2 DEFAULT NULL,
303 X_SCHEDULE_SEQ_NUM NUMBER DEFAULT NULL, -- Bug#14550670
304 X_PRINCIPLE_FLAG NUMBER DEFAULT NULL -- Bug#14550670
305 ) IS
306 CURSOR C IS
307 SELECT *
308 FROM BOM_STD_OP_RESOURCES
309 WHERE rowid = X_Rowid
310 FOR UPDATE of Standard_Operation_Id, Substitute_Group_Num NOWAIT;
311 Recinfo C%ROWTYPE;
312 BEGIN
313 OPEN C;
314 FETCH C INTO Recinfo;
315 if (C%NOTFOUND) then
316 CLOSE C;
317 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
318 APP_EXCEPTION.RAISE_EXCEPTION;
319 end if;
320 CLOSE C;
321 if (
322 ( (Recinfo.standard_operation_id = X_Standard_Operation_Id)
323 OR ( (Recinfo.standard_operation_id IS NULL)
324 AND (X_Standard_Operation_Id IS NULL)))
325 AND ( (Recinfo.resource_id = X_Resource_Id)
326 OR ( (Recinfo.resource_id IS NULL)
327 AND (X_Resource_Id IS NULL)))
328 AND ( (Recinfo.substitute_group_num = X_Substitute_Group_Num)
329 OR ( (Recinfo.Substitute_Group_Num IS NULL)
330 AND (X_Substitute_Group_Num IS NULL)))
331 AND ( (Recinfo.activity_id = X_Activity_Id)
332 OR ( (Recinfo.activity_id IS NULL)
333 AND (X_Activity_Id IS NULL)))
334 AND ( (Recinfo.resource_seq_num = X_Resource_Seq_Num)
335 OR ( (Recinfo.resource_seq_num IS NULL)
336 AND (X_Resource_Seq_Num IS NULL)))
337 AND ( (Recinfo.usage_rate_or_amount = X_Usage_Rate_Or_Amount)
338 OR ( (Recinfo.usage_rate_or_amount IS NULL)
339 AND (X_Usage_Rate_Or_Amount IS NULL)))
340 AND ( (Recinfo.usage_rate_or_amount_inverse = X_Usage_Rate_Or_Amount_Inverse)
341 OR ( (Recinfo.usage_rate_or_amount_inverse IS NULL)
342 AND (X_Usage_Rate_Or_Amount_Inverse IS NULL)))
343 AND ( (Recinfo.basis_type = X_Basis_Type)
344 OR ( (Recinfo.basis_type IS NULL)
345 AND (X_Basis_Type IS NULL)))
346 AND ( (Recinfo.autocharge_type = X_Autocharge_Type)
347 OR ( (Recinfo.autocharge_type IS NULL)
348 AND (X_Autocharge_Type IS NULL)))
349 AND ( (Recinfo.standard_rate_flag = X_Standard_Rate_Flag)
350 OR ( (Recinfo.standard_rate_flag IS NULL)
351 AND (X_Standard_Rate_Flag IS NULL)))
352 AND ( (Recinfo.assigned_units = X_Assigned_Units)
353 OR ( (Recinfo.assigned_units IS NULL)
354 AND (X_Assigned_Units IS NULL)))
355 AND ( (Recinfo.schedule_flag = X_Schedule_Flag)
356 OR ( (Recinfo.schedule_flag IS NULL)
357 AND (X_Schedule_Flag IS NULL)))
358 -- Bug#14550670 changes (begin)
359 AND ( (Recinfo.schedule_seq_num = X_Schedule_Seq_Num)
360 OR ( (Recinfo.schedule_seq_num IS NULL)
361 AND (X_Schedule_Seq_Num IS NULL)))
362 AND ( (Recinfo.principle_flag = X_Principle_Flag)
363 OR ( (Recinfo.principle_flag IS NULL)
364 AND (X_Principle_Flag IS NULL)))
365 -- Bug#14550670 changes (end)
366 AND ( (Recinfo.attribute_category = X_Attribute_Category)
367 OR ( (Recinfo.attribute_category IS NULL)
368 AND (X_Attribute_Category IS NULL)))
369 AND ( (Recinfo.attribute1 = X_Attribute1)
370 OR ( (Recinfo.attribute1 IS NULL)
371 AND (X_Attribute1 IS NULL)))
372 AND ( (Recinfo.attribute2 = X_Attribute2)
373 OR ( (Recinfo.attribute2 IS NULL)
374 AND (X_Attribute2 IS NULL)))
375 AND ( (Recinfo.attribute3 = X_Attribute3)
376 OR ( (Recinfo.attribute3 IS NULL)
377 AND (X_Attribute3 IS NULL)))
378 AND ( (Recinfo.attribute4 = X_Attribute4)
379 OR ( (Recinfo.attribute4 IS NULL)
380 AND (X_Attribute4 IS NULL)))
381 AND ( (Recinfo.attribute5 = X_Attribute5)
382 OR ( (Recinfo.attribute5 IS NULL)
383 AND (X_Attribute5 IS NULL)))
384 AND ( (Recinfo.attribute6 = X_Attribute6)
385 OR ( (Recinfo.attribute6 IS NULL)
386 AND (X_Attribute6 IS NULL)))
387 AND ( (Recinfo.attribute7 = X_Attribute7)
388 OR ( (Recinfo.attribute7 IS NULL)
389 AND (X_Attribute7 IS NULL)))
390 AND ( (Recinfo.attribute8 = X_Attribute8)
391 OR ( (Recinfo.attribute8 IS NULL)
392 AND (X_Attribute8 IS NULL)))
393 AND ( (Recinfo.attribute9 = X_Attribute9)
394 OR ( (Recinfo.attribute9 IS NULL)
395 AND (X_Attribute9 IS NULL)))
396 AND ( (Recinfo.attribute10 = X_Attribute10)
397 OR ( (Recinfo.attribute10 IS NULL)
398 AND (X_Attribute10 IS NULL)))
399 AND ( (Recinfo.attribute11 = X_Attribute11)
400 OR ( (Recinfo.attribute11 IS NULL)
401 AND (X_Attribute11 IS NULL)))
402 AND ( (Recinfo.attribute12 = X_Attribute12)
403 OR ( (Recinfo.attribute12 IS NULL)
404 AND (X_Attribute12 IS NULL)))
405 AND ( (Recinfo.attribute13 = X_Attribute13)
406 OR ( (Recinfo.attribute13 IS NULL)
407 AND (X_Attribute13 IS NULL)))
408 AND ( (Recinfo.attribute14 = X_Attribute14)
409 OR ( (Recinfo.attribute14 IS NULL)
410 AND (X_Attribute14 IS NULL)))
411 AND ( (Recinfo.attribute15 = X_Attribute15)
412 OR ( (Recinfo.attribute15 IS NULL)
413 AND (X_Attribute15 IS NULL)))
414 ) then
415 return;
416 else
417 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
418 APP_EXCEPTION.RAISE_EXCEPTION;
419 end if;
420 END Lock_Row;
421
422 PROCEDURE Update_Row(X_Rowid VARCHAR2,
423 X_Standard_Operation_Id NUMBER,
424 X_Resource_Id NUMBER,
425 X_Activity_Id NUMBER DEFAULT NULL,
426 X_Last_Update_Date DATE,
427 X_Last_Updated_By NUMBER,
428 X_Last_Update_Login NUMBER DEFAULT NULL,
429 X_Resource_Seq_Num NUMBER,
430 X_Usage_Rate_Or_Amount NUMBER,
431 X_Usage_Rate_Or_Amount_Inverse NUMBER,
432 X_Basis_Type NUMBER,
433 X_Autocharge_Type NUMBER,
434 X_Standard_Rate_Flag NUMBER,
435 X_Assigned_Units NUMBER DEFAULT NULL,
436 X_Schedule_Flag NUMBER,
437 X_Attribute_Category VARCHAR2 DEFAULT NULL,
438 X_Attribute1 VARCHAR2 DEFAULT NULL,
439 X_Attribute2 VARCHAR2 DEFAULT NULL,
440 X_Attribute3 VARCHAR2 DEFAULT NULL,
441 X_Attribute4 VARCHAR2 DEFAULT NULL,
442 X_Attribute5 VARCHAR2 DEFAULT NULL,
443 X_Attribute6 VARCHAR2 DEFAULT NULL,
444 X_Attribute7 VARCHAR2 DEFAULT NULL,
445 X_Attribute8 VARCHAR2 DEFAULT NULL,
446 X_Attribute9 VARCHAR2 DEFAULT NULL,
447 X_Attribute10 VARCHAR2 DEFAULT NULL,
448 X_Attribute11 VARCHAR2 DEFAULT NULL,
449 X_Attribute12 VARCHAR2 DEFAULT NULL,
450 X_Attribute13 VARCHAR2 DEFAULT NULL,
451 X_Attribute14 VARCHAR2 DEFAULT NULL,
452 X_Attribute15 VARCHAR2 DEFAULT NULL
453 ) IS
454 BEGIN
455 Update_Row(X_Rowid => X_Rowid,
456 X_Standard_Operation_Id => X_Standard_Operation_Id,
457 X_Resource_Id => X_Resource_Id,
458 X_Substitute_Group_Num => NULL,
459 X_Activity_Id => X_Activity_Id,
460 X_Last_Update_Date => X_Last_Update_Date,
461 X_Last_Updated_By => X_Last_Updated_By,
462 X_Last_Update_Login => X_Last_Update_Login,
463 X_Resource_Seq_Num => X_Resource_Seq_Num,
464 X_Usage_Rate_Or_Amount => X_Usage_Rate_Or_Amount,
465 X_Usage_Rate_Or_Amount_Inverse => X_Usage_Rate_Or_Amount_Inverse,
466 X_Basis_Type => X_Basis_Type,
467 X_Autocharge_Type => X_Autocharge_Type,
468 X_Standard_Rate_Flag => X_Standard_Rate_Flag,
469 X_Assigned_Units => X_Assigned_Units,
470 X_Schedule_Flag => X_Schedule_Flag,
471 X_Attribute_Category => X_Attribute_Category,
472 X_Attribute1 => X_Attribute1,
473 X_Attribute2 => X_Attribute2,
474 X_Attribute3 => X_Attribute3,
475 X_Attribute4 => X_Attribute4,
476 X_Attribute5 => X_Attribute5,
477 X_Attribute6 => X_Attribute6,
478 X_Attribute7 => X_Attribute7,
479 X_Attribute8 => X_Attribute8,
480 X_Attribute9 => X_Attribute9,
481 X_Attribute10 => X_Attribute10,
482 X_Attribute11 => X_Attribute11,
483 X_Attribute12 => X_Attribute12,
484 X_Attribute13 => X_Attribute13,
485 X_Attribute14 => X_Attribute14,
486 X_Attribute15 => X_Attribute15,
487 X_SCHEDULE_SEQ_NUM => NULL, -- Bug#14550670
488 X_PRINCIPLE_FLAG => NULL -- Bug#14550670
489 );
490
491 END Update_Row;
492
493 PROCEDURE Update_Row(X_Rowid VARCHAR2,
494 X_Standard_Operation_Id NUMBER,
495 X_Resource_Id NUMBER,
496 X_Substitute_Group_Num NUMBER,
497 X_Activity_Id NUMBER DEFAULT NULL,
498 X_Last_Update_Date DATE,
499 X_Last_Updated_By NUMBER,
500 X_Last_Update_Login NUMBER DEFAULT NULL,
501 X_Resource_Seq_Num NUMBER,
502 X_Usage_Rate_Or_Amount NUMBER,
503 X_Usage_Rate_Or_Amount_Inverse NUMBER,
504 X_Basis_Type NUMBER,
505 X_Autocharge_Type NUMBER,
506 X_Standard_Rate_Flag NUMBER,
507 X_Assigned_Units NUMBER DEFAULT NULL,
508 X_Schedule_Flag NUMBER,
509 X_Attribute_Category VARCHAR2 DEFAULT NULL,
510 X_Attribute1 VARCHAR2 DEFAULT NULL,
511 X_Attribute2 VARCHAR2 DEFAULT NULL,
512 X_Attribute3 VARCHAR2 DEFAULT NULL,
513 X_Attribute4 VARCHAR2 DEFAULT NULL,
514 X_Attribute5 VARCHAR2 DEFAULT NULL,
515 X_Attribute6 VARCHAR2 DEFAULT NULL,
516 X_Attribute7 VARCHAR2 DEFAULT NULL,
517 X_Attribute8 VARCHAR2 DEFAULT NULL,
518 X_Attribute9 VARCHAR2 DEFAULT NULL,
519 X_Attribute10 VARCHAR2 DEFAULT NULL,
520 X_Attribute11 VARCHAR2 DEFAULT NULL,
521 X_Attribute12 VARCHAR2 DEFAULT NULL,
522 X_Attribute13 VARCHAR2 DEFAULT NULL,
523 X_Attribute14 VARCHAR2 DEFAULT NULL,
524 X_Attribute15 VARCHAR2 DEFAULT NULL,
525 X_SCHEDULE_SEQ_NUM NUMBER DEFAULT NULL, -- Bug#14550670
526 X_PRINCIPLE_FLAG NUMBER DEFAULT NULL -- Bug#14550670
527 ) IS
528 BEGIN
529 UPDATE BOM_STD_OP_RESOURCES
530 SET
531 standard_operation_id = X_Standard_Operation_Id,
532 resource_id = X_Resource_Id,
533 substitute_group_num = X_Substitute_Group_Num,
534 activity_id = X_Activity_Id,
535 last_update_date = X_Last_Update_Date,
536 last_updated_by = X_Last_Updated_By,
537 last_update_login = X_Last_Update_Login,
538 resource_seq_num = X_Resource_Seq_Num,
539 usage_rate_or_amount = X_Usage_Rate_Or_Amount,
540 usage_rate_or_amount_inverse = X_Usage_Rate_Or_Amount_Inverse,
541 basis_type = X_Basis_Type,
542 autocharge_type = X_Autocharge_Type,
543 standard_rate_flag = X_Standard_Rate_Flag,
544 assigned_units = X_Assigned_Units,
545 schedule_flag = X_Schedule_Flag,
546 attribute_category = X_Attribute_Category,
547 attribute1 = X_Attribute1,
548 attribute2 = X_Attribute2,
549 attribute3 = X_Attribute3,
550 attribute4 = X_Attribute4,
551 attribute5 = X_Attribute5,
552 attribute6 = X_Attribute6,
553 attribute7 = X_Attribute7,
554 attribute8 = X_Attribute8,
555 attribute9 = X_Attribute9,
556 attribute10 = X_Attribute10,
557 attribute11 = X_Attribute11,
558 attribute12 = X_Attribute12,
559 attribute13 = X_Attribute13,
560 attribute14 = X_Attribute14,
561 attribute15 = X_Attribute15,
562 schedule_seq_num = X_Schedule_Seq_Num, -- Bug#14550670
563 principle_flag = X_Principle_Flag -- Bug#14550670
564 WHERE rowid = X_rowid;
565
566 if (SQL%NOTFOUND) then
567 RAISE NO_DATA_FOUND;
568 end if;
569
570 END Update_Row;
571
572 PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
573 BEGIN
574 DELETE FROM BOM_STD_OP_RESOURCES
575 WHERE rowid = X_Rowid;
576
577 if (SQL%NOTFOUND) then
578 RAISE NO_DATA_FOUND;
579 end if;
580 END Delete_Row;
581
582 PROCEDURE Check_Unique(X_Rowid VARCHAR2,
583 X_Standard_Operation_Id NUMBER,
584 X_Resource_Seq_Num NUMBER) IS
585 dummy NUMBER;
586 BEGIN
587 SELECT 1 INTO dummy FROM DUAL WHERE NOT EXISTS
588 (SELECT 1 FROM BOM_STD_OP_RESOURCES
589 WHERE Standard_Operation_Id = X_Standard_Operation_Id
590 AND Resource_Seq_Num = X_Resource_Seq_Num
591 AND ((X_Rowid IS NULL) OR (ROWID <> X_Rowid))
592 );
593
594 EXCEPTION
595 WHEN NO_DATA_FOUND THEN
596 FND_MESSAGE.SET_NAME('BOM', 'BOM_ALREADY_EXISTS');
597 FND_MESSAGE.SET_TOKEN('ENTITY1', 'SEQUENCE NUMBER_CAP', TRUE);
598 FND_MESSAGE.SET_TOKEN('ENTITY2', X_Resource_Seq_Num);
599 APP_EXCEPTION.RAISE_EXCEPTION;
600 END Check_Unique;
601
602
603 END B_STD_OP_RES_PKG;