1 PACKAGE BODY Bom_Default_Bom_Revision AS
2 /* $Header: BOMDREVB.pls 120.0 2005/05/25 06:11:34 appldev noship $ */
3 /***************************************************************************
4 --
5 -- Copyright (c) 1996 Oracle Corporation, Redwood Shores, CA, USA
6 -- All rights reserved.
7 --
8 -- FILENAME
9 --
10 -- BOMDREVS.pls
11 --
12 -- DESCRIPTION
13 --
14 -- Spec of package Bom_Default_Bom_Revision
15 --
16 -- NOTES
17 --
18 -- HISTORY
19 --
20 -- 29-JUL-99 Rahul Chitko Initial Creation
21 --
22 ***************************************************************************/
23
24 /*******************************************************************
25 * Procedure : Populate_Null_Columns (earlier called Complete_Record)
26 * Parameters IN : Bom Revision exposed column record
27 * Bom Revision DB record of exposed columns
28 * Bom Revision unexposed column record
29 * Bom Revision DB record of unexposed columns
30 * Parameters OUT: Bom Revision exposed Record
31 * Bom Revision Unexposed Record
32 * Purpose : Complete record will compare the database record with
33 * the user given record and will complete the user
34 * record with values from the database record, for all
35 * columns that the user has left NULL.
36 ********************************************************************/
37 PROCEDURE Populate_Null_Columns
38 ( p_bom_revision_rec IN Bom_Bo_Pub.Bom_Revision_Rec_Type
39 , p_old_bom_revision_rec IN Bom_Bo_Pub.Bom_Revision_Rec_Type
40 , p_bom_rev_unexp_rec IN Bom_Bo_Pub.Bom_Rev_Unexposed_Rec_Type
41 , p_Old_bom_rev_unexp_rec IN Bom_Bo_Pub.Bom_Rev_Unexposed_Rec_Type
42 , x_bom_revision_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Revision_Rec_Type
43 , x_bom_rev_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Rev_Unexposed_Rec_Type
44 )
45 IS
46 l_bom_revision_rec Bom_Bo_Pub.Bom_Revision_Rec_Type:=
47 p_bom_revision_rec;
48 l_bom_rev_unexp_rec Bom_Bo_Pub.Bom_Rev_Unexposed_Rec_Type:=
49 p_bom_rev_unexp_rec;
50 BEGIN
51 IF l_bom_revision_rec.description IS NULL
52 THEN
53 l_bom_revision_rec.description :=
54 p_old_bom_revision_rec.description;
55 END IF;
56
57 IF l_bom_revision_rec.revision_label IS NULL
58 THEN
59 l_bom_revision_rec.revision_label:=
60 p_old_bom_revision_rec.revision_label;
61 END IF;
62
63 IF l_bom_revision_rec.revision_reason IS NULL
64 THEN
65 l_bom_revision_rec.revision_reason:=
66 p_old_bom_revision_rec.revision_reason;
67 END IF;
68
69 IF l_bom_revision_rec.attribute_category IS NULL THEN
70 l_bom_revision_rec.attribute_category :=
71 p_old_bom_revision_rec.attribute_category;
72 END IF;
73
74 IF l_bom_revision_rec.attribute1 IS NULL THEN
75 l_bom_revision_rec.attribute1 :=
76 p_old_bom_revision_rec.attribute1;
77 END IF;
78
79 IF l_bom_revision_rec.attribute2 IS NULL THEN
80 l_bom_revision_rec.attribute2 :=
81 p_old_bom_revision_rec.attribute2;
82 END IF;
83
84 IF l_bom_revision_rec.attribute3 IS NULL THEN
85 l_bom_revision_rec.attribute3 :=
86 p_old_bom_revision_rec.attribute3;
87 END IF;
88
89 IF l_bom_revision_rec.attribute4 IS NULL THEN
90 l_bom_revision_rec.attribute4 :=
91 p_old_bom_revision_rec.attribute4;
92 END IF;
93
94 IF l_bom_revision_rec.attribute5 IS NULL THEN
95 l_bom_revision_rec.attribute5 :=
96 p_old_bom_revision_rec.attribute5;
97 END IF;
98
99 IF l_bom_revision_rec.attribute6 IS NULL THEN
100 l_bom_revision_rec.attribute6 :=
101 p_old_bom_revision_rec.attribute6;
102 END IF;
103
104 IF l_bom_revision_rec.attribute7 IS NULL THEN
105 l_bom_revision_rec.attribute7 :=
106 p_old_bom_revision_rec.attribute7;
107 END IF;
108
109 IF l_bom_revision_rec.attribute8 IS NULL THEN
110 l_bom_revision_rec.attribute8 :=
111 p_old_bom_revision_rec.attribute8;
112 END IF;
113
114 IF l_bom_revision_rec.attribute9 IS NULL THEN
115 l_bom_revision_rec.attribute9 :=
116 p_old_bom_revision_rec.attribute9;
117 END IF;
118
119 IF l_bom_revision_rec.attribute10 IS NULL THEN
120 l_bom_revision_rec.attribute10 :=
121 p_old_bom_revision_rec.attribute10;
122 END IF;
123
124 IF l_bom_revision_rec.attribute11 IS NULL THEN
125 l_bom_revision_rec.attribute11 :=
126 p_old_bom_revision_rec.attribute11;
127 END IF;
128
129 IF l_bom_revision_rec.attribute12 IS NULL THEN
130 l_bom_revision_rec.attribute12 :=
131 p_old_bom_revision_rec.attribute12;
132 END IF;
133
134 IF l_bom_revision_rec.attribute13 IS NULL THEN
135 l_bom_revision_rec.attribute13 :=
136 p_old_bom_revision_rec.attribute13;
137 END IF;
138
139 IF l_bom_revision_rec.attribute14 IS NULL THEN
140 l_bom_revision_rec.attribute14 :=
141 p_old_bom_revision_rec.attribute14;
142 END IF;
143
144 IF l_bom_revision_rec.attribute15 IS NULL THEN
145 l_bom_revision_rec.attribute15 :=
146 p_old_bom_revision_rec.attribute15;
147 END IF;
148
149 IF l_bom_revision_rec.description = FND_API.G_MISS_CHAR
150 THEN
151 l_bom_revision_rec.description := NULL;
152 END IF;
153
154 IF l_bom_revision_rec.attribute_category = FND_API.G_MISS_CHAR THEN
155 l_bom_revision_rec.attribute_category := NULL;
156 END IF;
157
158 IF l_bom_revision_rec.attribute1 = FND_API.G_MISS_CHAR THEN
159 l_bom_revision_rec.attribute1 := NULL;
160 END IF;
161
162 IF l_bom_revision_rec.attribute2 = FND_API.G_MISS_CHAR THEN
163 l_bom_revision_rec.attribute2 := NULL;
164 END IF;
165
166 IF l_bom_revision_rec.attribute3 = FND_API.G_MISS_CHAR THEN
167 l_bom_revision_rec.attribute3 := NULL;
168 END IF;
169
170 IF l_bom_revision_rec.attribute4 = FND_API.G_MISS_CHAR THEN
171 l_bom_revision_rec.attribute4 := NULL;
172 END IF;
173
174 IF l_bom_revision_rec.attribute5 = FND_API.G_MISS_CHAR THEN
175 l_bom_revision_rec.attribute5 := NULL;
176 END IF;
177
178 IF l_bom_revision_rec.attribute6 = FND_API.G_MISS_CHAR THEN
179 l_bom_revision_rec.attribute6 := NULL;
180 END IF;
181
182 IF l_bom_revision_rec.attribute7 = FND_API.G_MISS_CHAR THEN
183 l_bom_revision_rec.attribute7 := NULL;
184 END IF;
185
186 IF l_bom_revision_rec.attribute8 = FND_API.G_MISS_CHAR THEN
187 l_bom_revision_rec.attribute8 := NULL;
188 END IF;
189
190 IF l_bom_revision_rec.attribute9 = FND_API.G_MISS_CHAR THEN
191 l_bom_revision_rec.attribute9 := NULL;
192 END IF;
193
194 IF l_bom_revision_rec.attribute10 = FND_API.G_MISS_CHAR THEN
195 l_bom_revision_rec.attribute10 := NULL;
196 END IF;
197
198 IF l_bom_revision_rec.attribute11 = FND_API.G_MISS_CHAR THEN
199 l_bom_revision_rec.attribute11 := NULL;
200 END IF;
201
202 IF l_bom_revision_rec.attribute12 = FND_API.G_MISS_CHAR THEN
203 l_bom_revision_rec.attribute12 := NULL;
204 END IF;
205
206 IF l_bom_revision_rec.attribute13 = FND_API.G_MISS_CHAR THEN
207 l_bom_revision_rec.attribute13 := NULL;
208 END IF;
209
210 IF l_bom_revision_rec.attribute14 = FND_API.G_MISS_CHAR THEN
211 l_bom_revision_rec.attribute14 := NULL;
212 END IF;
213
214 IF l_bom_revision_rec.attribute15 = FND_API.G_MISS_CHAR THEN
215 l_bom_revision_rec.attribute15 := NULL;
216 END IF;
217
218 x_bom_revision_rec := l_bom_revision_rec;
219 x_bom_rev_unexp_rec := l_bom_rev_unexp_rec;
220
221 END Populate_Null_Columns;
222
223 END Bom_Default_Bom_Revision;