1 PACKAGE BODY BOM_Default_Op_Network AS
2 /* $Header: BOMDONWB.pls 115.8 2002/11/21 04:37:47 djebar ship $*/
3 /****************************************************************************
4 --
5 -- Copyright (c) 1996 Oracle Corporation, Redwood Shores, CA, USA
6 -- All rights reserved.
7 --
8 -- FILENAME
9 --
10 -- BOMDONWB.pls
11 --
12 -- DESCRIPTION
13 --
14 -- Body of package BOM_Default_Op_Network
15 --
16 -- NOTES
17 --
18 -- HISTORY
19 --
20 -- 07-AUG-00 Biao Zhang Initial Creation
21 --
22 ****************************************************************************/
23 G_Pkg_Name VARCHAR2(30) := 'BOM_Default_Op_Network';
24 g_token_tbl Error_Handler.Token_Tbl_Type;
25
26
27
28 FUNCTION Get_X_Coordinate( p_op_seq_id IN NUMBER)
29 RETURN NUMBER
30 IS
31
32 CURSOR l_x_cur( p_op_seq_id NUMBER)
33 IS
34 SELECT NVL(x_coordinate,0) x_coordinate
35 FROM BOM_OPERATION_SEQUENCES
36 WHERE operation_sequence_id = p_op_seq_id ;
37
38 l_x_coordinate NUMBER ;
39
40 BEGIN
41
42 FOR l_x_rec IN l_x_cur (p_op_seq_id )
43 LOOP
44 l_x_coordinate := l_x_rec.x_coordinate ;
45
46 END LOOP ;
47
48
49 RETURN l_x_coordinate ;
50
51 END Get_X_Coordinate ;
52
53
54 FUNCTION Get_Y_Coordinate( p_op_seq_id IN NUMBER)
55 RETURN NUMBER
56 IS
57
58 CURSOR l_y_cur( p_op_seq_id NUMBER)
59 IS
60 SELECT NVL(y_coordinate,0) y_coordinate
61 FROM BOM_OPERATION_SEQUENCES
62 WHERE operation_sequence_id = p_op_seq_id ;
63
64 l_y_coordinate NUMBER ;
65
66 BEGIN
67
68 FOR l_y_rec IN l_y_cur (p_op_seq_id )
69 LOOP
70 l_y_coordinate := l_y_rec.y_coordinate ;
71
72 END LOOP ;
73
74
75 RETURN l_y_coordinate ;
76
77 END Get_Y_Coordinate ;
78
79
80 PROCEDURE Get_Flex_Op_Network
81 ( p_op_network_rec IN Bom_Rtg_Pub.Op_Network_Rec_Type
82 , x_op_network_rec IN OUT NOCOPY Bom_Rtg_Pub.Op_Network_Rec_Type
83 )
84 IS
85 BEGIN
86
87 -- In the future call Flex APIs for defaults
88 x_op_network_rec := p_op_network_rec;
89
90 IF p_op_network_rec.attribute_category =FND_API.G_MISS_CHAR THEN
91 x_op_network_rec.attribute_category := NULL;
92 END IF;
93
94 IF p_op_network_rec.attribute2 = FND_API.G_MISS_CHAR THEN
95 x_op_network_rec.attribute2 := NULL;
96 END IF;
97
98 IF p_op_network_rec.attribute3 = FND_API.G_MISS_CHAR THEN
99 x_op_network_rec.attribute3 := NULL;
100 END IF;
101
102 IF p_op_network_rec.attribute4 = FND_API.G_MISS_CHAR THEN
103 x_op_network_rec.attribute4 := NULL;
104 END IF;
105
106 IF p_op_network_rec.attribute5 = FND_API.G_MISS_CHAR THEN
107 x_op_network_rec.attribute5 := NULL;
108 END IF;
109
110 IF p_op_network_rec.attribute7 = FND_API.G_MISS_CHAR THEN
111 x_op_network_rec.attribute7 := NULL;
112 END IF;
113
114 IF p_op_network_rec.attribute8 = FND_API.G_MISS_CHAR THEN
115 x_op_network_rec.attribute8 := NULL;
116 END IF;
117
118 IF p_op_network_rec.attribute9 = FND_API.G_MISS_CHAR THEN
119 x_op_network_rec.attribute9 := NULL;
120 END IF;
121
122 IF p_op_network_rec.attribute11 = FND_API.G_MISS_CHAR THEN
123 x_op_network_rec.attribute11 := NULL;
124 END IF;
125
126 IF p_op_network_rec.attribute12 = FND_API.G_MISS_CHAR THEN
127 x_op_network_rec.attribute12 := NULL;
128 END IF;
129
130 IF p_op_network_rec.attribute13 = FND_API.G_MISS_CHAR THEN
131 x_op_network_rec.attribute13 := NULL;
132 END IF;
133
134 IF p_op_network_rec.attribute14 = FND_API.G_MISS_CHAR THEN
135 x_op_network_rec.attribute14 := NULL;
136 END IF;
137
138 IF p_op_network_rec.attribute15 = FND_API.G_MISS_CHAR THEN
139 x_op_network_rec.attribute15 := NULL;
140 END IF;
141
142 IF p_op_network_rec.attribute1 = FND_API.G_MISS_CHAR THEN
143 x_op_network_rec.attribute1 := NULL;
144 END IF;
145
146 IF p_op_network_rec.attribute6 = FND_API.G_MISS_CHAR THEN
147 x_op_network_rec.attribute6 := NULL;
148 END IF;
149
150 IF p_op_network_rec.attribute10 = FND_API.G_MISS_CHAR THEN
151 x_op_network_rec.attribute10 := NULL;
152 END IF;
153
154 END Get_Flex_Op_Network;
155
156
157
158 /*********************************************************************
159 * Procedure : Attribute_Defaulting
160 * Parameters IN : Operation Network exposed record
161 * Operation Network unexposed record
162 * Parameters OUT: Operation Network exposed record after defaulting
163 * Operation Network unexposed record after defaulting
164 * Mesg_Token_Table
165 * Return_Status
166 * Purpose : Attribute Defaulting will default the necessary null
167 * attribute with appropriate values.
168 **********************************************************************/
169 PROCEDURE Attribute_Defaulting
170 ( p_op_network_rec IN Bom_Rtg_Pub.Op_Network_Rec_Type
171 , p_op_network_unexp_rec IN Bom_Rtg_Pub.Op_Network_Unexposed_Rec_Type
172 , x_op_network_rec IN OUT NOCOPY Bom_Rtg_Pub.Op_Network_Rec_Type
173 , x_op_network_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Op_Network_Unexposed_Rec_Type
174 , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
175 , x_return_status IN OUT NOCOPY VARCHAR2
176 )
177 IS
178 l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
179 l_err_text VARCHAR2(2000) ;
180 BEGIN
181
182 x_op_network_rec := p_op_network_rec;
183 x_op_network_unexp_rec := p_op_network_unexp_rec;
184 x_return_status := FND_API.G_RET_STS_SUCCESS;
185
186 IF x_op_network_rec.connection_type= FND_API.G_MISS_NUM
187 OR x_op_network_rec.connection_type IS NULL
188 THEN
189 x_op_network_rec.connection_type := 1;
190 END IF;
191
192 IF x_op_network_rec.connection_type= 1 AND
193 ( x_op_network_rec.planning_percent IS NULL OR
194 x_op_network_rec.planning_percent = FND_API.G_MISS_NUM)
195 THEN
196 x_op_network_rec.planning_percent := 100;
197 END IF;
198
199
200 IF x_op_network_rec.From_X_Coordinate = FND_API.G_MISS_NUM
201 OR x_op_network_rec.From_X_Coordinate IS NULL
202 THEN
203
204 -- Modified for Eam
205 -- x_op_network_rec.From_X_Coordinate := 0;
206 x_op_network_rec.From_X_Coordinate :=
207 Get_X_Coordinate(p_op_seq_id =>
208 x_op_network_unexp_rec.from_op_seq_id) ;
209
210 END IF;
211
212 IF x_op_network_rec.To_X_Coordinate = FND_API.G_MISS_NUM
213 OR x_op_network_rec.To_X_Coordinate IS NULL
214 THEN
215 -- Modified for Eam
216 -- x_op_network_rec.To_X_Coordinate := 0;
217 x_op_network_rec.To_X_Coordinate :=
218 Get_X_Coordinate(p_op_seq_id =>
219 x_op_network_unexp_rec.to_op_seq_id) ;
220
221 END IF;
222
223 IF x_op_network_rec.From_Y_Coordinate = FND_API.G_MISS_NUM
224 OR x_op_network_rec.From_Y_Coordinate IS NULL
225 THEN
226 -- Modified for Eam
227 -- x_op_network_rec.From_Y_Coordinate := 0;
228 x_op_network_rec.From_Y_Coordinate :=
229 Get_Y_Coordinate(p_op_seq_id =>
230 x_op_network_unexp_rec.from_op_seq_id) ;
231
232 END IF;
233
234 IF x_op_network_rec.To_Y_Coordinate = FND_API.G_MISS_NUM
235 OR x_op_network_rec.To_Y_Coordinate IS NULL
236 THEN
237 -- Modified for Eam
238 -- x_op_network_rec.To_Y_Coordinate := 0;
239 x_op_network_rec.To_Y_Coordinate :=
240 Get_Y_Coordinate(p_op_seq_id =>
241 x_op_network_unexp_rec.to_op_seq_id) ;
242
243 END IF;
244
245 Get_Flex_Op_Network( p_op_network_rec => x_op_network_rec
246 , x_op_network_rec => x_op_network_rec
247 );
248
249
250 EXCEPTION
251 WHEN OTHERS THEN
252 IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
253 ('Some unknown error in Attribute Defaulting . . .' || SQLERRM );
254 END IF ;
255
256
257 l_err_text := G_PKG_NAME || ' Default (Attr. Defaulting) '
258 || substrb(SQLERRM,1,200);
259
260 Error_Handler.Add_Error_Token
261 ( p_message_name => NULL
262 , p_message_text => l_err_text
263 , p_mesg_token_tbl => l_mesg_token_tbl
264 , x_mesg_token_tbl => l_mesg_token_tbl
265 ) ;
266
267 -- Return the status and message table.
268 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
269 x_mesg_token_tbl := l_mesg_token_tbl ;
270
271
272 END Attribute_Defaulting;
273
274 /*********************************************************************
275 * Procedure : Entity_Attribute_Defaulting
276 * Parameters IN : Operation Network exposed record
277 * Operation Network unexposed record
278 * Parameters OUT: Operation Network exposed record after defaulting
279 * Operation Network unexposed record after defaulting
280 * Mesg_Token_Table
281 * Return_Status
282 * Purpose : Entity Attribute Defaulting will default the necessary
283 * entity level attribute with appropriate values.
284 **********************************************************************/
285 PROCEDURE Entity_Attribute_Defaulting
286 ( p_op_network_rec IN Bom_Rtg_Pub.Op_Network_Rec_Type
287 , p_op_network_unexp_rec IN Bom_Rtg_Pub.Op_Network_Unexposed_Rec_Type
288 , x_op_network_rec IN OUT NOCOPY Bom_Rtg_Pub.Op_Network_Rec_Type
289 , x_op_network_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Op_Network_Unexposed_Rec_Type
290 , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
291 , x_return_status IN OUT NOCOPY VARCHAR2
292 )
293 IS
294
295 l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
296 l_err_text VARCHAR2(2000) ;
297 l_token_tbl Error_Handler.Token_Tbl_Type;
298
299
300 BEGIN
301
302
303 x_op_network_rec := p_op_network_rec;
304 x_op_network_unexp_rec := p_op_network_unexp_rec;
305 x_return_status := FND_API.G_RET_STS_SUCCESS;
306
307 -- operation type will be defaulted for validations
308 -- this value indicate whether Lot, Process or Line Op
309 IF x_op_network_rec.operation_type IS NULL OR
310 x_op_network_rec.operation_type = FND_API.G_MISS_NUM
311 THEN
312 x_op_network_rec.operation_type := 1 ;
313 END IF ;
314
315
316
317 -- For eAM enhancement
318 -- Maintenance Routing Network Defaulting
322 -- planning percent to 100%. If the user set other values
319 -- Connection Type and Planning Type will not be used in
320 -- Maintenace Routings.
321 -- This defaulting logic set connection type to 1 and
323 -- then generate warning message.
324 IF x_op_network_rec.operation_type = 1
325 AND BOM_Rtg_Globals.Get_Eam_Item_Type = BOM_Rtg_Globals.G_ASSET_ACTIVITY
326 THEN
327
328 IF x_op_network_rec.connection_type <> 1
329 OR x_op_network_rec.planning_percent <> 100
330 THEN
331
332 x_op_network_rec.connection_type := 1;
333 x_op_network_rec.planning_percent := 100;
334
335
336 l_token_tbl(1).token_name := 'FROM_OP_SEQ_NUMBER';
337 l_token_tbl(1).token_value :=
338 x_op_network_rec.from_op_seq_number;
339 l_token_tbl(2).token_name := 'TO_OP_SEQ_NUMBER';
340 l_token_tbl(2).token_value :=
341 x_op_network_rec.to_op_seq_number;
342
343 Error_Handler.Add_Error_Token
344 ( p_message_name => 'BOM_EAM_NWK_ATTR_IGNORED'
345 , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
346 , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
347 , p_Token_Tbl => l_Token_Tbl
348 , p_message_type => 'W'
349 ) ;
350
351 IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
352 Error_Handler.Write_Debug
353 ('Setting default values in connection type and trnasition type for eAM Op Network');
354 END IF;
355
356
357 END IF;
358
359 END IF ; -- eAM Operation Network Defaulting
360
361
362 -- Followings are added to populate null to columns by MK 05/01.
363 IF x_op_network_rec.original_system_reference = FND_API.G_MISS_CHAR
364 THEN
365 x_op_network_rec.original_system_reference := NULL ;
366 END IF;
367
368
369 IF x_op_network_unexp_rec.new_from_op_seq_id = FND_API.G_MISS_NUM
370 THEN
371 x_op_network_unexp_rec.new_from_op_seq_id := NULL ;
372 END IF ;
373
374 IF x_op_network_rec.new_from_op_seq_number = FND_API.G_MISS_NUM
375 THEN
376 x_op_network_rec.new_from_op_seq_number := NULL ;
377 END IF ;
378
379 IF x_op_network_rec.new_from_start_effective_date = FND_API.G_MISS_DATE
380 THEN
381 x_op_network_rec.new_from_start_effective_date := NULL ;
382 END IF ;
383
384
385 IF x_op_network_unexp_rec.new_to_op_seq_id = FND_API.G_MISS_NUM
386 THEN
387 x_op_network_unexp_rec.new_to_op_seq_id := NULL ;
388
389 END IF ;
390
391 IF x_op_network_rec.new_to_op_seq_number = FND_API.G_MISS_NUM
392 THEN
393 x_op_network_rec.new_to_op_seq_number := NULL ;
394 END IF ;
395
396 IF x_op_network_rec.new_to_start_effective_date = FND_API.G_MISS_DATE
397 THEN
398 x_op_network_rec.new_to_start_effective_date := NULL ;
399 END IF ;
400
401
402 -- FlexFields
403 IF x_op_network_rec.attribute_category = FND_API.G_MISS_CHAR THEN
404 x_op_network_rec.attribute_category := NULL ;
405 END IF;
406
407 IF x_op_network_rec.attribute1 = FND_API.G_MISS_CHAR THEN
408 x_op_network_rec.attribute1 := NULL ;
409 END IF;
410
411 IF x_op_network_rec.attribute2 = FND_API.G_MISS_CHAR THEN
412 x_op_network_rec.attribute2 := NULL ;
413 END IF;
414
415 IF x_op_network_rec.attribute3 = FND_API.G_MISS_CHAR THEN
416 x_op_network_rec.attribute3 := NULL ;
417 END IF;
418
419 IF x_op_network_rec.attribute4 = FND_API.G_MISS_CHAR THEN
420 x_op_network_rec.attribute4 := NULL ;
421 END IF;
422
423 IF x_op_network_rec.attribute5 = FND_API.G_MISS_CHAR THEN
424 x_op_network_rec.attribute5 := NULL ;
425 END IF;
426
427 IF x_op_network_rec.attribute6 = FND_API.G_MISS_CHAR THEN
428 x_op_network_rec.attribute6 := NULL ;
429 END IF;
430
431 IF x_op_network_rec.attribute7 = FND_API.G_MISS_CHAR THEN
432 x_op_network_rec.attribute7 := NULL ;
433 END IF;
434
435 IF x_op_network_rec.attribute8 = FND_API.G_MISS_CHAR THEN
436 x_op_network_rec.attribute8 := NULL ;
437 END IF;
438
439 IF x_op_network_rec.attribute9 = FND_API.G_MISS_CHAR THEN
440 x_op_network_rec.attribute9 := NULL ;
441 END IF;
442
443 IF x_op_network_rec.attribute10 = FND_API.G_MISS_CHAR THEN
444 x_op_network_rec.attribute10 := NULL ;
445 END IF;
446
447 IF x_op_network_rec.attribute11 = FND_API.G_MISS_CHAR THEN
448 x_op_network_rec.attribute11 := NULL ;
449 END IF;
453 END IF;
450
451 IF x_op_network_rec.attribute12 = FND_API.G_MISS_CHAR THEN
452 x_op_network_rec.attribute12 := NULL ;
454
455 IF x_op_network_rec.attribute13 = FND_API.G_MISS_CHAR THEN
456 x_op_network_rec.attribute13 := NULL ;
457 END IF;
458
459 IF x_op_network_rec.attribute14 = FND_API.G_MISS_CHAR THEN
460 x_op_network_rec.attribute14 := NULL ;
461 END IF;
462
463 IF x_op_network_rec.attribute15 = FND_API.G_MISS_CHAR THEN
464 x_op_network_rec.attribute15 := NULL ;
465 END IF;
466
467 -- Return the status and message table.
468 x_mesg_token_tbl := l_mesg_token_tbl ;
469
470
471 EXCEPTION
472 WHEN OTHERS THEN
473 IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
474 ('Some unknown error in Entity Defaulting . . .' || SQLERRM );
475 END IF ;
476
477
478 l_err_text := G_PKG_NAME || ' Default (Entity Defaulting) '
479 || substrb(SQLERRM,1,200);
480
481 Error_Handler.Add_Error_Token
482 ( p_message_name => NULL
483 , p_message_text => l_err_text
484 , p_mesg_token_tbl => l_mesg_token_tbl
485 , x_mesg_token_tbl => l_mesg_token_tbl
486 ) ;
487
488 -- Return the status and message table.
489 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
490 x_mesg_token_tbl := l_mesg_token_tbl ;
491
492
493
494
495 END Entity_Attribute_Defaulting;
496
497 /******************************************************************
498 * Procedure : Populate_Null_Columns
499 * Parameters IN : Operation Network Exposed column record
500 * Operation Network Unexposed column record
501 * Old Operation Network Exposed Column Record
502 * Old Operation Network Unexposed Column Record
503 * Parameters OUT: Operation Network Exposed column record after populating
504 * Operation Network Unexposed Column record after populating
505 * Purpose : This procedure will look at the columns that the user
506 * has not filled in and will assign those columns a
507 * value from the old record.
508 * This procedure is not called CREATE
509 ********************************************************************/
510 PROCEDURE Populate_Null_Columns
511 ( p_op_network_rec IN Bom_Rtg_Pub.Op_Network_Rec_Type
512 , p_op_network_unexp_rec IN Bom_Rtg_Pub.Op_Network_Unexposed_Rec_Type
513 , p_old_op_network_rec IN Bom_Rtg_Pub.Op_Network_Rec_Type
514 , p_old_op_network_unexp_rec IN Bom_Rtg_Pub.Op_Network_Unexposed_Rec_Type
515 , x_op_network_rec IN OUT NOCOPY Bom_Rtg_Pub.Op_Network_Rec_Type
516 , x_op_network_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Op_Network_Unexposed_Rec_Type
517 )
518 IS
519 BEGIN
520
521
522 x_op_network_rec := p_op_network_rec;
523 x_op_network_unexp_rec := p_op_network_unexp_rec;
524
525 IF p_op_network_rec.Connection_Type IS NULL OR
526 p_op_network_rec.Connection_Type = FND_API.G_MISS_NUM
527 THEN
528
529 x_op_network_rec.Connection_Type:=
530 p_old_op_network_rec.Connection_Type ;
531
532 END IF;
533
534 IF p_op_network_rec.Planning_Percent IS NULL OR
535 p_op_network_rec.Planning_Percent = FND_API.G_MISS_NUM
536 THEN
537
538 x_op_network_rec.Planning_Percent :=
539 p_old_op_network_rec.Planning_Percent ;
540
541 END IF;
542
543 IF p_op_network_rec.From_X_Coordinate IS NULL OR
544 p_op_network_rec.From_X_Coordinate = FND_API.G_MISS_NUM
545 THEN
546
547 x_op_network_rec.From_X_Coordinate :=
548 p_old_op_network_rec.From_X_Coordinate ;
549
550 END IF;
551
552 IF p_op_network_rec.From_Y_Coordinate IS NULL OR
553 p_op_network_rec.From_Y_Coordinate = FND_API.G_MISS_NUM
554 THEN
555
556 x_op_network_rec.From_Y_Coordinate :=
557 p_old_op_network_rec.From_Y_Coordinate ;
558
559 END IF;
560
561 IF p_op_network_rec.To_X_Coordinate IS NULL OR
562 p_op_network_rec.To_X_Coordinate = FND_API.G_MISS_NUM
563 THEN
564
565 x_op_network_rec.To_X_Coordinate :=
566 p_old_op_network_rec.To_X_Coordinate ;
567
568 END IF;
569
570 IF p_op_network_rec.To_Y_Coordinate IS NULL OR
571 p_op_network_rec.To_Y_Coordinate = FND_API.G_MISS_NUM
572 THEN
573
574 x_op_network_rec.To_Y_Coordinate :=
575 p_old_op_network_rec.To_Y_Coordinate ;
576
577 END IF;
578
579
580 IF p_op_network_rec.attribute_category IS NULL OR
581 p_op_network_rec.attribute_category = FND_API.G_MISS_CHAR
585
582 THEN
583 x_op_network_rec.attribute_category :=
584 p_old_op_network_rec.attribute_category;
586 END IF;
587
588 IF p_op_network_rec.attribute1 = FND_API.G_MISS_CHAR OR
589 p_op_network_rec.attribute1 IS NULL
590 THEN
591 x_op_network_rec.attribute1 :=
592 p_old_op_network_rec.attribute1;
593 END IF;
594
595 IF p_op_network_rec.attribute2 = FND_API.G_MISS_CHAR OR
596 p_op_network_rec.attribute2 IS NULL
597 THEN
598 x_op_network_rec.attribute2 :=
599 p_old_op_network_rec.attribute2;
600 END IF;
601
602 IF p_op_network_rec.attribute3 = FND_API.G_MISS_CHAR OR
603 p_op_network_rec.attribute3 IS NULL
604 THEN
605 x_op_network_rec.attribute3 :=
606 p_old_op_network_rec.attribute3;
607 END IF;
608
609 IF p_op_network_rec.attribute4 = FND_API.G_MISS_CHAR OR
610 p_op_network_rec.attribute4 IS NULL
611 THEN
612 x_op_network_rec.attribute4 :=
613 p_old_op_network_rec.attribute4;
614 END IF;
615
616 IF p_op_network_rec.attribute5 = FND_API.G_MISS_CHAR OR
617 p_op_network_rec.attribute5 IS NULL
618 THEN
619 x_op_network_rec.attribute5 :=
620 p_old_op_network_rec.attribute5;
621 END IF;
622
623 IF p_op_network_rec.attribute6 = FND_API.G_MISS_CHAR OR
624 p_op_network_rec.attribute6 IS NULL
625 THEN
626 x_op_network_rec.attribute6 :=
627 p_old_op_network_rec.attribute6;
628 END IF;
629
630 IF p_op_network_rec.attribute7 = FND_API.G_MISS_CHAR OR
631 p_op_network_rec.attribute7 IS NULL
632 THEN
633 x_op_network_rec.attribute7 :=
634 p_old_op_network_rec.attribute7;
635 END IF;
636
637 IF p_op_network_rec.attribute8 = FND_API.G_MISS_CHAR OR
638 p_op_network_rec.attribute8 IS NULL
639 THEN
640 x_op_network_rec.attribute8 :=
641 p_old_op_network_rec.attribute8;
642 END IF;
643
644 IF p_op_network_rec.attribute9 = FND_API.G_MISS_CHAR OR
645 p_op_network_rec.attribute9 IS NULL
646 THEN
647 x_op_network_rec.attribute9 :=
648 p_old_op_network_rec.attribute9;
649 END IF;
650
651 IF p_op_network_rec.attribute10 = FND_API.G_MISS_CHAR OR
652 p_op_network_rec.attribute10 IS NULL
653 THEN
654 x_op_network_rec.attribute10 :=
655 p_old_op_network_rec.attribute10;
656 END IF;
657
658 IF p_op_network_rec.attribute11 = FND_API.G_MISS_CHAR OR
659 p_op_network_rec.attribute11 IS NULL
660 THEN
661 x_op_network_rec.attribute11 :=
662 p_old_op_network_rec.attribute11;
663 END IF;
664
665 IF p_op_network_rec.attribute12 = FND_API.G_MISS_CHAR OR
666 p_op_network_rec.attribute12 IS NULL
667 THEN
668 x_op_network_rec.attribute12 :=
669 p_old_op_network_rec.attribute12;
670 END IF;
671
672 IF p_op_network_rec.attribute13 = FND_API.G_MISS_CHAR OR
673 p_op_network_rec.attribute13 IS NULL
674 THEN
675 x_op_network_rec.attribute13 :=
676 p_old_op_network_rec.attribute13;
677 END IF;
678
679 IF p_op_network_rec.attribute14 = FND_API.G_MISS_CHAR OR
680 p_op_network_rec.attribute14 IS NULL
681 THEN
682 x_op_network_rec.attribute14 :=
683 p_old_op_network_rec.attribute14;
684 END IF;
685
686 IF p_op_network_rec.attribute15 = FND_API.G_MISS_CHAR OR
687 p_op_network_rec.attribute15 IS NULL
688 THEN
689 x_op_network_rec.attribute15 :=
690 p_old_op_network_rec.attribute15;
691 END IF;
692
693 --
694 -- Get the unexposed columns from the database and return
695 -- them as the unexposed columns for the current record.
696 --
697 -- x_op_network_unexp_rec.routing_sequence_id :=
698 -- p_old_op_network_unexp_rec.routing_sequence_id;
699
700
701 END Populate_Null_Columns;
702
703
704
705 END BOM_Default_Op_Network;