1 PACKAGE BODY EAM_ISOLATION_DEFAULT_PVT AS
2 /* $Header: EAMVISDB.pls 120.1 2011/04/10 12:26:48 vchidura noship $ */
3
4 /******************************************************************
5 * Procedure : Populate_Null_Columns
6 * Purpose : This procedure will look at the columns that the user
7 has not filled in and will assign those columns a
8 value from the old record.This procedure is not called for CREATE
9 ********************************************************************/
10
11
12 PROCEDURE Populate_Null_Columns
13 ( p_eam_iso_header_rec IN EAM_PROCESS_SAFETY_PUB.eam_iso_header_rec_type
14 , p_old_eam_iso_header_rec IN EAM_PROCESS_SAFETY_PUB.eam_iso_header_rec_type
15 , x_eam_isolation_rec OUT NOCOPY EAM_PROCESS_SAFETY_PUB.eam_iso_header_rec_type
16 ) IS
17
18 BEGIN
19 x_eam_isolation_rec :=p_eam_iso_header_rec;
20 IF p_eam_iso_header_rec.TRANSACTION_TYPE =EAM_PROCESS_WO_PVT.G_OPR_UPDATE
21 THEN
22 IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Processing null columns for isolation prior to update'); END IF;
23
24 /* IF p_eam_iso_header_rec.ISOLATION_ID IS NULL OR
25 p_eam_iso_header_rec.ISOLATION_ID = FND_API.G_MISS_NUM
26 THEN
27 x_eam_isolation_rec.ISOLATION_ID := p_old_eam_iso_header_rec.ISOLATION_ID;
28 END IF;*/
29
30 IF p_eam_iso_header_rec.ISOLATION_NAME IS NULL OR
31 p_eam_iso_header_rec.ISOLATION_NAME = FND_API.G_MISS_CHAR
32 THEN
33 x_eam_isolation_rec.ISOLATION_NAME := p_old_eam_iso_header_rec.ISOLATION_NAME;
34 END IF;
35 IF p_eam_iso_header_rec.DESCRIPTION IS NULL OR
36 p_eam_iso_header_rec.DESCRIPTION = FND_API.G_MISS_CHAR
37 THEN
38 x_eam_isolation_rec.DESCRIPTION := p_old_eam_iso_header_rec.DESCRIPTION;
39 END IF;
40 IF p_eam_iso_header_rec.ORGANIZATION_ID IS NULL OR
41 p_eam_iso_header_rec.ORGANIZATION_ID = FND_API.G_MISS_NUM
42 THEN
43 x_eam_isolation_rec.ORGANIZATION_ID := p_old_eam_iso_header_rec.ORGANIZATION_ID;
44 END IF;
45 IF p_eam_iso_header_rec.ISOLATION_TYPE IS NULL OR
46 p_eam_iso_header_rec.ISOLATION_TYPE = FND_API.G_MISS_NUM
47 THEN
48 x_eam_isolation_rec.ISOLATION_TYPE := p_old_eam_iso_header_rec.ISOLATION_TYPE;
49 END IF;
50
51 IF p_eam_iso_header_rec.SYSTEM_STATUS IS NULL OR
52 p_eam_iso_header_rec.SYSTEM_STATUS = FND_API.G_MISS_NUM
53 THEN
54 x_eam_isolation_rec.SYSTEM_STATUS := p_old_eam_iso_header_rec.SYSTEM_STATUS;
55 END IF;
56
57 IF p_eam_iso_header_rec.USER_DEFINED_STATUS IS NULL OR
58 p_eam_iso_header_rec.USER_DEFINED_STATUS = FND_API.G_MISS_NUM
59 THEN
60 x_eam_isolation_rec.USER_DEFINED_STATUS := p_old_eam_iso_header_rec.USER_DEFINED_STATUS;
61 END IF;
62
63 IF p_eam_iso_header_rec.EFFECTIVE_START_DATE IS NULL OR
64 p_eam_iso_header_rec.EFFECTIVE_START_DATE = FND_API.G_MISS_DATE
65 THEN
66 x_eam_isolation_rec.EFFECTIVE_START_DATE := p_old_eam_iso_header_rec.EFFECTIVE_START_DATE;
67 END IF;
68
69 IF p_eam_iso_header_rec.EFFECTIVE_END_DATE IS NULL OR
70 p_eam_iso_header_rec.EFFECTIVE_END_DATE = FND_API.G_MISS_DATE
71 THEN
72 x_eam_isolation_rec.EFFECTIVE_END_DATE := p_old_eam_iso_header_rec.EFFECTIVE_END_DATE;
73 END IF;
74
75 /* IF p_eam_iso_header_rec.COMPLETION_DATE IS NULL OR
76 p_eam_iso_header_rec.COMPLETION_DATE = FND_API.G_MISS_DATE
77 THEN
78 x_eam_isolation_rec.COMPLETION_DATE := p_old_eam_iso_header_rec.COMPLETION_DATE;
79 END IF;*/
80
81 IF p_eam_iso_header_rec.ATTRIBUTE_CATEGORY IS NULL OR
82 p_eam_iso_header_rec.ATTRIBUTE_CATEGORY = FND_API.G_MISS_CHAR
83 THEN
84 x_eam_isolation_rec.ATTRIBUTE_CATEGORY := p_old_eam_iso_header_rec.ATTRIBUTE_CATEGORY;
85 END IF;
86
87 IF p_eam_iso_header_rec.ATTRIBUTE1 IS NULL OR
88 p_eam_iso_header_rec.ATTRIBUTE1 = FND_API.G_MISS_CHAR
89 THEN
90 x_eam_isolation_rec.ATTRIBUTE1 := p_old_eam_iso_header_rec.ATTRIBUTE1;
91 END IF;
92 IF p_eam_iso_header_rec.ATTRIBUTE2 IS NULL OR
93 p_eam_iso_header_rec.ATTRIBUTE2 = FND_API.G_MISS_CHAR
94 THEN
95 x_eam_isolation_rec.ATTRIBUTE2 := p_old_eam_iso_header_rec.ATTRIBUTE2;
96 END IF;
97
98 IF p_eam_iso_header_rec.ATTRIBUTE3 IS NULL OR
99 p_eam_iso_header_rec.ATTRIBUTE3 = FND_API.G_MISS_CHAR
100 THEN
101 x_eam_isolation_rec.ATTRIBUTE3 := p_old_eam_iso_header_rec.ATTRIBUTE3;
102 END IF;
103
104 IF p_eam_iso_header_rec.ATTRIBUTE4 IS NULL OR
105 p_eam_iso_header_rec.ATTRIBUTE4 = FND_API.G_MISS_CHAR
106 THEN
107 x_eam_isolation_rec.ATTRIBUTE4 := p_old_eam_iso_header_rec.ATTRIBUTE4;
108 END IF;
109
110 IF p_eam_iso_header_rec.ATTRIBUTE5 IS NULL OR
111 p_eam_iso_header_rec.ATTRIBUTE5 = FND_API.G_MISS_CHAR
112 THEN
113 x_eam_isolation_rec.ATTRIBUTE5 := p_old_eam_iso_header_rec.ATTRIBUTE5;
114 END IF;
115
116 IF p_eam_iso_header_rec.ATTRIBUTE6 IS NULL OR
117 p_eam_iso_header_rec.ATTRIBUTE6 = FND_API.G_MISS_CHAR
118 THEN
119 x_eam_isolation_rec.ATTRIBUTE6 := p_old_eam_iso_header_rec.ATTRIBUTE6;
120 END IF;
121
122 IF p_eam_iso_header_rec.ATTRIBUTE7 IS NULL OR
123 p_eam_iso_header_rec.ATTRIBUTE7 = FND_API.G_MISS_CHAR
124 THEN
125 x_eam_isolation_rec.ATTRIBUTE7 := p_old_eam_iso_header_rec.ATTRIBUTE7;
126 END IF;
127
128 IF p_eam_iso_header_rec.ATTRIBUTE8 IS NULL OR
129 p_eam_iso_header_rec.ATTRIBUTE8 = FND_API.G_MISS_CHAR
130 THEN
131 x_eam_isolation_rec.ATTRIBUTE8 := p_old_eam_iso_header_rec.ATTRIBUTE8;
132 END IF;
133
134 IF p_eam_iso_header_rec.ATTRIBUTE9 IS NULL OR
135 p_eam_iso_header_rec.ATTRIBUTE9 = FND_API.G_MISS_CHAR
136 THEN
137 x_eam_isolation_rec.ATTRIBUTE9 := p_old_eam_iso_header_rec.ATTRIBUTE9;
138 END IF;
139
140 IF p_eam_iso_header_rec.ATTRIBUTE10 IS NULL OR
141 p_eam_iso_header_rec.ATTRIBUTE10 = FND_API.G_MISS_CHAR
142 THEN
143 x_eam_isolation_rec.ATTRIBUTE10 := p_old_eam_iso_header_rec.ATTRIBUTE10;
144 END IF;
145
146 IF p_eam_iso_header_rec.ATTRIBUTE11 IS NULL OR
147 p_eam_iso_header_rec.ATTRIBUTE11 = FND_API.G_MISS_CHAR
148 THEN
149 x_eam_isolation_rec.ATTRIBUTE11 := p_old_eam_iso_header_rec.ATTRIBUTE11;
150 END IF;
151
152 IF p_eam_iso_header_rec.ATTRIBUTE12 IS NULL OR
153 p_eam_iso_header_rec.ATTRIBUTE12 = FND_API.G_MISS_CHAR
154 THEN
155 x_eam_isolation_rec.ATTRIBUTE12 := p_old_eam_iso_header_rec.ATTRIBUTE12;
156 END IF;
157
158 IF p_eam_iso_header_rec.ATTRIBUTE13 IS NULL OR
159 p_eam_iso_header_rec.ATTRIBUTE13 = FND_API.G_MISS_CHAR
160 THEN
161 x_eam_isolation_rec.ATTRIBUTE13 := p_old_eam_iso_header_rec.ATTRIBUTE13;
162 END IF;
163
164 IF p_eam_iso_header_rec.ATTRIBUTE14 IS NULL OR
165 p_eam_iso_header_rec.ATTRIBUTE14 = FND_API.G_MISS_CHAR
166 THEN
167 x_eam_isolation_rec.ATTRIBUTE14 := p_old_eam_iso_header_rec.ATTRIBUTE14;
168 END IF;
169
170 IF p_eam_iso_header_rec.ATTRIBUTE15 IS NULL OR
171 p_eam_iso_header_rec.ATTRIBUTE15 = FND_API.G_MISS_CHAR
172 THEN
173 x_eam_isolation_rec.ATTRIBUTE15 := p_old_eam_iso_header_rec.ATTRIBUTE15;
174 END IF;
175 IF p_eam_iso_header_rec.ATTRIBUTE16 IS NULL OR
176 p_eam_iso_header_rec.ATTRIBUTE16 = FND_API.G_MISS_CHAR
177 THEN
178 x_eam_isolation_rec.ATTRIBUTE16 := p_old_eam_iso_header_rec.ATTRIBUTE16;
179 END IF;
180
181 IF p_eam_iso_header_rec.ATTRIBUTE17 IS NULL OR
182 p_eam_iso_header_rec.ATTRIBUTE17 = FND_API.G_MISS_CHAR
183 THEN
184 x_eam_isolation_rec.ATTRIBUTE17 := p_old_eam_iso_header_rec.ATTRIBUTE17;
185 END IF;
186
187 IF p_eam_iso_header_rec.ATTRIBUTE18 IS NULL OR
188 p_eam_iso_header_rec.ATTRIBUTE18 = FND_API.G_MISS_CHAR
189 THEN
190 x_eam_isolation_rec.ATTRIBUTE18 := p_old_eam_iso_header_rec.ATTRIBUTE18;
191 END IF;
192
193 IF p_eam_iso_header_rec.ATTRIBUTE19 IS NULL OR
194 p_eam_iso_header_rec.ATTRIBUTE19 = FND_API.G_MISS_CHAR
195 THEN
196 x_eam_isolation_rec.ATTRIBUTE19 := p_old_eam_iso_header_rec.ATTRIBUTE19;
197 END IF;
198
199 IF p_eam_iso_header_rec.ATTRIBUTE20 IS NULL OR
200 p_eam_iso_header_rec.ATTRIBUTE20 = FND_API.G_MISS_CHAR
201 THEN
202 x_eam_isolation_rec.ATTRIBUTE20 := p_old_eam_iso_header_rec.ATTRIBUTE20;
203 END IF;
204
205 IF p_eam_iso_header_rec.ATTRIBUTE21 IS NULL OR
206 p_eam_iso_header_rec.ATTRIBUTE21 = FND_API.G_MISS_CHAR
207 THEN
208 x_eam_isolation_rec.ATTRIBUTE21 := p_old_eam_iso_header_rec.ATTRIBUTE21;
209 END IF;
210
211 IF p_eam_iso_header_rec.ATTRIBUTE22 IS NULL OR
212 p_eam_iso_header_rec.ATTRIBUTE22 = FND_API.G_MISS_CHAR
213 THEN
214 x_eam_isolation_rec.ATTRIBUTE22 := p_old_eam_iso_header_rec.ATTRIBUTE22;
215 END IF;
216
217 IF p_eam_iso_header_rec.ATTRIBUTE23 IS NULL OR
218 p_eam_iso_header_rec.ATTRIBUTE23 = FND_API.G_MISS_CHAR
219 THEN
220 x_eam_isolation_rec.ATTRIBUTE23 := p_old_eam_iso_header_rec.ATTRIBUTE23;
221 END IF;
222
223 IF p_eam_iso_header_rec.ATTRIBUTE24 IS NULL OR
224 p_eam_iso_header_rec.ATTRIBUTE24 = FND_API.G_MISS_CHAR
225 THEN
226 x_eam_isolation_rec.ATTRIBUTE24 := p_old_eam_iso_header_rec.ATTRIBUTE24;
227 END IF;
228
229 IF p_eam_iso_header_rec.ATTRIBUTE25 IS NULL OR
230 p_eam_iso_header_rec.ATTRIBUTE25 = FND_API.G_MISS_CHAR
231 THEN
232 x_eam_isolation_rec.ATTRIBUTE25 := p_old_eam_iso_header_rec.ATTRIBUTE25;
233 END IF;
234
235 IF p_eam_iso_header_rec.ATTRIBUTE26 IS NULL OR
236 p_eam_iso_header_rec.ATTRIBUTE26 = FND_API.G_MISS_CHAR
237 THEN
238 x_eam_isolation_rec.ATTRIBUTE26 := p_old_eam_iso_header_rec.ATTRIBUTE26;
239 END IF;
240
241 IF p_eam_iso_header_rec.ATTRIBUTE27 IS NULL OR
242 p_eam_iso_header_rec.ATTRIBUTE27 = FND_API.G_MISS_CHAR
243 THEN
244 x_eam_isolation_rec.ATTRIBUTE27 := p_old_eam_iso_header_rec.ATTRIBUTE27;
245 END IF;
246
247 IF p_eam_iso_header_rec.ATTRIBUTE28 IS NULL OR
248 p_eam_iso_header_rec.ATTRIBUTE28 = FND_API.G_MISS_CHAR
249 THEN
250 x_eam_isolation_rec.ATTRIBUTE28 := p_old_eam_iso_header_rec.ATTRIBUTE28;
251 END IF;
252
253 IF p_eam_iso_header_rec.ATTRIBUTE29 IS NULL OR
254 p_eam_iso_header_rec.ATTRIBUTE29 = FND_API.G_MISS_CHAR
255 THEN
256 x_eam_isolation_rec.ATTRIBUTE29 := p_old_eam_iso_header_rec.ATTRIBUTE29;
257 END IF;
258
259 IF p_eam_iso_header_rec.ATTRIBUTE30 IS NULL OR
260 p_eam_iso_header_rec.ATTRIBUTE30 = FND_API.G_MISS_CHAR
261 THEN
262 x_eam_isolation_rec.ATTRIBUTE30 := p_old_eam_iso_header_rec.ATTRIBUTE30;
263 END IF;
264
265 IF p_eam_iso_header_rec.APPROVED_BY IS NULL OR
266 p_eam_iso_header_rec.APPROVED_BY = FND_API.G_MISS_NUM
267 THEN
268 x_eam_isolation_rec.APPROVED_BY := p_old_eam_iso_header_rec.APPROVED_BY;
269 END IF;
270
271 IF p_eam_iso_header_rec.PERMIT_REQUIRED IS NULL OR
272 p_eam_iso_header_rec.PERMIT_REQUIRED = FND_API.G_MISS_CHAR
273 THEN
274 x_eam_isolation_rec.PERMIT_REQUIRED := p_old_eam_iso_header_rec.PERMIT_REQUIRED;
275 END IF;
276
277 IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Done processing null columns prior update'); END IF;
278 END IF;
279
280 END Populate_Null_Columns;
281
282
283 END EAM_ISOLATION_DEFAULT_PVT ;