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