[Home] [Help]
PACKAGE BODY: APPS.EAM_ESTABLISHMENT_UTILITY_PVT
Source
1 PACKAGE BODY EAM_ESTABLISHMENT_UTILITY_PVT AS
2 /* $Header: EAMVETUB.pls 120.0 2011/03/04 02:07:35 mashah noship $ */
3 /***************************************************************************
4 --
5 -- Copyright (c) 2011 Oracle Corporation, Redwood Shores, CA, USA
6 -- All rights reserved.
7 --
8 -- FILENAME: EAMVETUB.pls
9 --
10 -- DESCRIPTION: Body of package EAM_ESTABLISHMENT_UTILITY_PVT
11 --
12 -- NOTES
13 --
14 -- HISTORY
15 --
16 --
17 ***************************************************************************/
18 -- g_debug_flag VARCHAR2(1) := 'N';
19 G_PKG_NAME CONSTANT VARCHAR2(30) := 'EAM_ESTABLISHMENT_UTILITY_PVT';
20 G_FILE_NAME CONSTANT VARCHAR2(12) := 'EAMVETUB.pls';
21
22 /*********************************************************************
23 * Procedure : QUERY_ROW
24 * Purpose : Procedure will query the database record
25 and return with those records.
26 ***********************************************************************/
27 PROCEDURE QUERY_ROW
28 ( p_establishment_id IN NUMBER
29 , p_organization_id IN NUMBER
30 , x_safety_establishment_rec OUT NOCOPY EAM_PROCESS_SAFETY_PUB.eam_establishment_rec_type
31 , x_Return_status OUT NOCOPY VARCHAR2
32 )IS
33 l_safety_establishment_rec EAM_PROCESS_SAFETY_PUB.eam_establishment_rec_type;
34
35 BEGIN
36 IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Querying establishment details ' ); END IF;
37
38 SELECT
39 iso.establishment_id
40 ,iso.establishment_source
41 ,iso.establishment_source_id
42 ,iso.sequence_type
43 ,iso.sequence_number
44 ,iso.description
45 ,iso.organization_id
46 ,iso.maintenance_object_id
47 ,iso.resource_id
48 ,iso.dept_id
49 ,iso.res_instance_id
50 ,iso.completion_date
51 ,iso.safety_tag
52 ,iso.tag_position
53 ,iso.lockout_device
54 ,iso.lock_number
55 ,iso.ATTRIBUTE_CATEGORY
56 ,iso.ATTRIBUTE1
57 ,iso.ATTRIBUTE2
58 ,iso.ATTRIBUTE3
59 ,iso.ATTRIBUTE4
60 ,iso.ATTRIBUTE5
61 ,iso.ATTRIBUTE6
62 ,iso.ATTRIBUTE7
63 ,iso.ATTRIBUTE8
64 ,iso.ATTRIBUTE9
65 ,iso.ATTRIBUTE10
66 ,iso.ATTRIBUTE11
67 ,iso.ATTRIBUTE12
68 ,iso.ATTRIBUTE13
69 ,iso.ATTRIBUTE14
70 ,iso.ATTRIBUTE15
71 ,iso.ATTRIBUTE16
72 ,iso.ATTRIBUTE17
73 ,iso.ATTRIBUTE18
74 ,iso.ATTRIBUTE19
75 ,iso.ATTRIBUTE20
76 ,iso.ATTRIBUTE21
77 ,iso.ATTRIBUTE22
78 ,iso.ATTRIBUTE23
79 ,iso.ATTRIBUTE24
80 ,iso.ATTRIBUTE25
81 ,iso.ATTRIBUTE26
82 ,iso.ATTRIBUTE27
83 ,iso.ATTRIBUTE28
84 ,iso.ATTRIBUTE29
85 ,iso.ATTRIBUTE30
86 ,iso.CREATION_DATE
87 ,iso.CREATED_BY
88
89 INTO
90 l_safety_establishment_rec.establishment_id
91 ,l_safety_establishment_rec.establishment_source
92 ,l_safety_establishment_rec.establishment_source_id
93 ,l_safety_establishment_rec.sequence_type
94 ,l_safety_establishment_rec.sequence_number
95 ,l_safety_establishment_rec.description
96 ,l_safety_establishment_rec.organization_id
97 ,l_safety_establishment_rec.maintenance_object_id
98 ,l_safety_establishment_rec.resource_id
99 ,l_safety_establishment_rec.dept_id
100 ,l_safety_establishment_rec.res_instance_id
101 ,l_safety_establishment_rec.completion_date
102 ,l_safety_establishment_rec.safety_tag
103 ,l_safety_establishment_rec.tag_position
104 ,l_safety_establishment_rec.lockout_device
105 ,l_safety_establishment_rec.lock_number
106 ,l_safety_establishment_rec.ATTRIBUTE_CATEGORY
107 ,l_safety_establishment_rec.ATTRIBUTE1
108 ,l_safety_establishment_rec.ATTRIBUTE2
109 ,l_safety_establishment_rec.ATTRIBUTE3
110 ,l_safety_establishment_rec.ATTRIBUTE4
111 ,l_safety_establishment_rec.ATTRIBUTE5
112 ,l_safety_establishment_rec.ATTRIBUTE6
113 ,l_safety_establishment_rec.ATTRIBUTE7
114 ,l_safety_establishment_rec.ATTRIBUTE8
115 ,l_safety_establishment_rec.ATTRIBUTE9
116 ,l_safety_establishment_rec.ATTRIBUTE10
117 ,l_safety_establishment_rec.ATTRIBUTE11
118 ,l_safety_establishment_rec.ATTRIBUTE12
119 ,l_safety_establishment_rec.ATTRIBUTE13
120 ,l_safety_establishment_rec.ATTRIBUTE14
121 ,l_safety_establishment_rec.ATTRIBUTE15
122 ,l_safety_establishment_rec.ATTRIBUTE16
123 ,l_safety_establishment_rec.ATTRIBUTE17
124 ,l_safety_establishment_rec.ATTRIBUTE18
125 ,l_safety_establishment_rec.ATTRIBUTE19
126 ,l_safety_establishment_rec.ATTRIBUTE20
127 ,l_safety_establishment_rec.ATTRIBUTE21
128 ,l_safety_establishment_rec.ATTRIBUTE22
129 ,l_safety_establishment_rec.ATTRIBUTE23
130 ,l_safety_establishment_rec.ATTRIBUTE24
131 ,l_safety_establishment_rec.ATTRIBUTE25
132 ,l_safety_establishment_rec.ATTRIBUTE26
133 ,l_safety_establishment_rec.ATTRIBUTE27
134 ,l_safety_establishment_rec.ATTRIBUTE28
135 ,l_safety_establishment_rec.ATTRIBUTE29
136 ,l_safety_establishment_rec.ATTRIBUTE30
137 ,l_safety_establishment_rec.CREATION_DATE
138 ,l_safety_establishment_rec.CREATED_BY
139
140 FROM EAM_ESTABLISHMENT_DETAILS iso
141 WHERE iso.establishment_id = p_establishment_id
142 AND iso.organization_id = p_organization_id;
143
144 x_return_status := EAM_PROCESS_WO_PVT.G_RECORD_FOUND;
145 x_safety_establishment_rec := l_safety_establishment_rec;
146
147 EXCEPTION
148 WHEN NO_DATA_FOUND THEN
149 x_return_status := EAM_PROCESS_WO_PVT.G_RECORD_NOT_FOUND;
150 x_safety_establishment_rec := l_safety_establishment_rec;
151
152 WHEN OTHERS THEN
153 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
154 x_safety_establishment_rec := l_safety_establishment_rec;
155
156 END QUERY_ROW;
157
158
159 /********************************************************************
160 * Procedure : INSERT_ROW
161 * Purpose : Procedure will perfrom an insert into the table
162 *********************************************************************/
163
164 PROCEDURE INSERT_ROW
165 ( p_safety_establishment_rec IN EAM_PROCESS_SAFETY_PUB.eam_establishment_rec_type
166 , x_return_Status OUT NOCOPY VARCHAR2
167 ) IS
168
169 BEGIN
170
171 IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Writing Isolation Establishment record for ' || p_safety_establishment_rec.establishment_id); END IF;
172
173 INSERT INTO EAM_ESTABLISHMENT_DETAILS(
174 establishment_id
175 ,establishment_source
176 ,establishment_source_id
177 ,sequence_type
178 ,sequence_number
179 ,description
180 ,organization_id
181 ,maintenance_object_id
182 ,resource_id
183 ,dept_id
184 ,res_instance_id
185 ,completion_date
186 ,safety_tag
187 ,tag_position
188 ,lockout_device
189 ,lock_number
190 ,ATTRIBUTE_CATEGORY
191 ,ATTRIBUTE1
192 ,ATTRIBUTE2
193 ,ATTRIBUTE3
194 ,ATTRIBUTE4
195 ,ATTRIBUTE5
196 ,ATTRIBUTE6
197 ,ATTRIBUTE7
198 ,ATTRIBUTE8
199 ,ATTRIBUTE9
200 ,ATTRIBUTE10
201 ,ATTRIBUTE11
202 ,ATTRIBUTE12
203 ,ATTRIBUTE13
204 ,ATTRIBUTE14
205 ,ATTRIBUTE15
206 ,ATTRIBUTE16
207 ,ATTRIBUTE17
208 ,ATTRIBUTE18
209 ,ATTRIBUTE19
210 ,ATTRIBUTE20
211 ,ATTRIBUTE21
212 ,ATTRIBUTE22
213 ,ATTRIBUTE23
214 ,ATTRIBUTE24
215 ,ATTRIBUTE25
216 ,ATTRIBUTE26
217 ,ATTRIBUTE27
218 ,ATTRIBUTE28
219 ,ATTRIBUTE29
220 ,ATTRIBUTE30
221 ,LAST_UPDATE_DATE
222 ,LAST_UPDATED_BY
223 ,CREATION_DATE
224 ,CREATED_BY
225 ,LAST_UPDATE_LOGIN)
226 VALUES
227 (
228 p_safety_establishment_rec.establishment_id
229 ,p_safety_establishment_rec.establishment_source
230 ,p_safety_establishment_rec.establishment_source_id
231 ,p_safety_establishment_rec.sequence_type
232 ,p_safety_establishment_rec.sequence_number
233 ,p_safety_establishment_rec.description
234 ,p_safety_establishment_rec.organization_id
235 ,p_safety_establishment_rec.maintenance_object_id
236 ,p_safety_establishment_rec.resource_id
237 ,p_safety_establishment_rec.dept_id
238 ,p_safety_establishment_rec.res_instance_id
239 ,p_safety_establishment_rec.completion_date
240 ,p_safety_establishment_rec.safety_tag
241 ,p_safety_establishment_rec.tag_position
242 ,p_safety_establishment_rec.lockout_device
243 ,p_safety_establishment_rec.lock_number
244 ,p_safety_establishment_rec.ATTRIBUTE_CATEGORY
245 ,p_safety_establishment_rec.ATTRIBUTE1
246 ,p_safety_establishment_rec.ATTRIBUTE2
247 ,p_safety_establishment_rec.ATTRIBUTE3
248 ,p_safety_establishment_rec.ATTRIBUTE4
249 ,p_safety_establishment_rec.ATTRIBUTE5
250 ,p_safety_establishment_rec.ATTRIBUTE6
251 ,p_safety_establishment_rec.ATTRIBUTE7
252 ,p_safety_establishment_rec.ATTRIBUTE8
253 ,p_safety_establishment_rec.ATTRIBUTE9
254 ,p_safety_establishment_rec.ATTRIBUTE10
255 ,p_safety_establishment_rec.ATTRIBUTE11
256 ,p_safety_establishment_rec.ATTRIBUTE12
257 ,p_safety_establishment_rec.ATTRIBUTE13
258 ,p_safety_establishment_rec.ATTRIBUTE14
259 ,p_safety_establishment_rec.ATTRIBUTE15
260 ,p_safety_establishment_rec.ATTRIBUTE16
261 ,p_safety_establishment_rec.ATTRIBUTE17
262 ,p_safety_establishment_rec.ATTRIBUTE18
263 ,p_safety_establishment_rec.ATTRIBUTE19
264 ,p_safety_establishment_rec.ATTRIBUTE20
265 ,p_safety_establishment_rec.ATTRIBUTE21
266 ,p_safety_establishment_rec.ATTRIBUTE22
267 ,p_safety_establishment_rec.ATTRIBUTE23
268 ,p_safety_establishment_rec.ATTRIBUTE24
269 ,p_safety_establishment_rec.ATTRIBUTE25
270 ,p_safety_establishment_rec.ATTRIBUTE26
271 ,p_safety_establishment_rec.ATTRIBUTE27
272 ,p_safety_establishment_rec.ATTRIBUTE28
273 ,p_safety_establishment_rec.ATTRIBUTE29
274 ,p_safety_establishment_rec.ATTRIBUTE30
275 ,SYSDATE
276 ,FND_GLOBAL.user_id
277 ,SYSDATE
278 ,FND_GLOBAL.user_id
279 ,FND_GLOBAL.login_id);
280
281 x_return_status := FND_API.G_RET_STS_SUCCESS;
282
283
284 EXCEPTION
285 WHEN OTHERS THEN
286 x_return_status := fnd_api.g_ret_sts_error;
287
288 END INSERT_ROW;
289
290
291
292 /********************************************************************
293 * Procedure : UPDATE_ROW
294 * Purpose : Procedure will perform an update on the table
295 *********************************************************************/
296 PROCEDURE UPDATE_ROW
297 ( p_safety_establishment_rec IN EAM_PROCESS_SAFETY_PUB.eam_establishment_rec_type
298 , x_mesg_token_Tbl OUT NOCOPY EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type
299 , x_return_Status OUT NOCOPY VARCHAR2
300 ) IS
301
302 BEGIN
303
304 IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Updating Isolation establishment rec for ' || p_safety_establishment_rec.establishment_id); END IF;
305
306
307 UPDATE EAM_ESTABLISHMENT_DETAILS
308 SET
309 establishment_source =p_safety_establishment_rec.establishment_source
310 ,establishment_source_id =p_safety_establishment_rec.establishment_source_id
311 ,sequence_type =p_safety_establishment_rec.sequence_type
312 ,sequence_number =p_safety_establishment_rec.sequence_number
313 ,description =p_safety_establishment_rec.description
314 ,organization_id =p_safety_establishment_rec.organization_id
315 ,maintenance_object_id =p_safety_establishment_rec.maintenance_object_id
316 ,resource_id =p_safety_establishment_rec.resource_id
317 ,dept_id =p_safety_establishment_rec.dept_id
318 ,res_instance_id =p_safety_establishment_rec.res_instance_id
319 ,completion_date =p_safety_establishment_rec.completion_date
320 ,safety_tag =p_safety_establishment_rec.safety_tag
321 ,tag_position =p_safety_establishment_rec.tag_position
322 ,lockout_device =p_safety_establishment_rec.lockout_device
323 ,lock_number =p_safety_establishment_rec.lock_number
324 ,ATTRIBUTE_CATEGORY =p_safety_establishment_rec.ATTRIBUTE_CATEGORY
325 ,ATTRIBUTE1 =p_safety_establishment_rec.ATTRIBUTE1
326 ,ATTRIBUTE2 =p_safety_establishment_rec.ATTRIBUTE2
327 ,ATTRIBUTE3 =p_safety_establishment_rec.ATTRIBUTE3
328 ,ATTRIBUTE4 =p_safety_establishment_rec.ATTRIBUTE4
329 ,ATTRIBUTE5 =p_safety_establishment_rec.ATTRIBUTE5
330 ,ATTRIBUTE6 =p_safety_establishment_rec.ATTRIBUTE6
331 ,ATTRIBUTE7 =p_safety_establishment_rec.ATTRIBUTE7
332 ,ATTRIBUTE8 =p_safety_establishment_rec.ATTRIBUTE8
333 ,ATTRIBUTE9 =p_safety_establishment_rec.ATTRIBUTE9
334 ,ATTRIBUTE10 =p_safety_establishment_rec.ATTRIBUTE10
335 ,ATTRIBUTE11 =p_safety_establishment_rec.ATTRIBUTE11
336 ,ATTRIBUTE12 =p_safety_establishment_rec.ATTRIBUTE12
337 ,ATTRIBUTE13 =p_safety_establishment_rec.ATTRIBUTE13
338 ,ATTRIBUTE14 =p_safety_establishment_rec.ATTRIBUTE14
342 ,ATTRIBUTE18 =p_safety_establishment_rec.ATTRIBUTE18
339 ,ATTRIBUTE15 =p_safety_establishment_rec.ATTRIBUTE15
340 ,ATTRIBUTE16 =p_safety_establishment_rec.ATTRIBUTE16
341 ,ATTRIBUTE17 =p_safety_establishment_rec.ATTRIBUTE17
343 ,ATTRIBUTE19 =p_safety_establishment_rec.ATTRIBUTE19
344 ,ATTRIBUTE20 =p_safety_establishment_rec.ATTRIBUTE20
345 ,ATTRIBUTE21 =p_safety_establishment_rec.ATTRIBUTE21
346 ,ATTRIBUTE22 =p_safety_establishment_rec.ATTRIBUTE22
347 ,ATTRIBUTE23 =p_safety_establishment_rec.ATTRIBUTE23
348 ,ATTRIBUTE24 =p_safety_establishment_rec.ATTRIBUTE24
349 ,ATTRIBUTE25 =p_safety_establishment_rec.ATTRIBUTE25
350 ,ATTRIBUTE26 =p_safety_establishment_rec.ATTRIBUTE26
351 ,ATTRIBUTE27 =p_safety_establishment_rec.ATTRIBUTE27
352 ,ATTRIBUTE28 =p_safety_establishment_rec.ATTRIBUTE28
353 ,ATTRIBUTE29 =p_safety_establishment_rec.ATTRIBUTE29
354 ,ATTRIBUTE30 =p_safety_establishment_rec.ATTRIBUTE30
355 ,LAST_UPDATE_DATE =SYSDATE
356 ,LAST_UPDATED_BY =FND_GLOBAL.user_id
357 ,LAST_UPDATE_LOGIN =FND_GLOBAL.login_id
358 WHERE establishment_id = p_safety_establishment_rec.establishment_id
359 AND organization_id = p_safety_establishment_rec.organization_id;
360
361 x_return_status := FND_API.G_RET_STS_SUCCESS;
362 EXCEPTION
363 WHEN OTHERS THEN
364 x_return_status := fnd_api.g_ret_sts_error;
365
366 END UPDATE_ROW;
367
368 /********************************************************************
369 * Procedure : DELETE_ROW
370 * Purpose : Procedure will perform a delete on the table
371 *********************************************************************/
372 PROCEDURE DELETE_ROW
373 ( p_safety_establishment_rec IN EAM_PROCESS_SAFETY_PUB.eam_establishment_rec_type
374 , p_organization_id IN NUMBER
375 , x_return_Status OUT NOCOPY VARCHAR2
376 ) IS
377 BEGIN
378 IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Deletiing establishment details ' ); END IF;
379
380 DELETE FROM EAM_ESTABLISHMENT_DETAILS
381 WHERE establishment_id =p_safety_establishment_rec.establishment_id
382 AND organization_id = p_organization_id;
383
384 x_return_status := FND_API.G_RET_STS_SUCCESS;
385
386 EXCEPTION
387 WHEN OTHERS THEN
388 x_return_status := FND_API.G_RET_STS_ERROR;
389 END DELETE_ROW;
390
391
392 /********************************************************************
393 * Procedure : PERFORM_WRITES
394 * Purpose : This is the only procedure that the user will have
395 access to when he/she needs to perform any kind of writes to the table.
396 *********************************************************************/
397 PROCEDURE PERFORM_WRITES
398 ( p_safety_establishment_rec IN EAM_PROCESS_SAFETY_PUB.eam_establishment_rec_type
399 , x_mesg_token_Tbl OUT NOCOPY EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type
400 , x_return_Status OUT NOCOPY VARCHAR2
401 ) IS
402 l_msg_data VARCHAR2(240);
403 l_return_status VARCHAR2(1):= FND_API.G_RET_STS_SUCCESS;
404
405 BEGIN
406
407 IF p_safety_establishment_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
408 THEN
409 Insert_Row
410 ( p_safety_establishment_rec => p_safety_establishment_rec
411 , x_return_Status => l_return_status
412 );
413
414 ELSIF p_safety_establishment_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE
415 THEN
416 Update_Row
417 ( p_safety_establishment_rec => p_safety_establishment_rec
418 , x_mesg_token_Tbl => x_mesg_token_Tbl
419 , x_return_Status => l_return_status
420 );
421 ELSIF p_safety_establishment_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_DELETE
422 THEN
423 DELETE_ROW
424 ( p_safety_establishment_rec => p_safety_establishment_rec
425 , p_organization_id => p_safety_establishment_rec.ORGANIZATION_ID
426 , x_return_Status => l_return_status
427 );
428
429 END IF;
430
431 x_return_status := l_return_status;
432
433 EXCEPTION
434 WHEN OTHERS THEN
435 x_return_status := fnd_api.g_ret_sts_error;
436
437
438 END PERFORM_WRITES;
439
440 /********************************************************************
441 * Procedure : Check_Required
442 * Purpose : Check_Required procedure will check the existence of mandatory attributes.
443 *********************************************************************/
444 PROCEDURE CHECK_REQUIRED
445 ( p_safety_establishment_rec IN EAM_PROCESS_SAFETY_PUB.eam_establishment_rec_type
446 , x_mesg_token_Tbl OUT NOCOPY EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type
447 , x_return_Status OUT NOCOPY VARCHAR2
448 )IS
449 l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
450 l_out_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
454 x_return_status:= FND_API.G_RET_STS_SUCCESS;
451 l_Token_Tbl EAM_ERROR_MESSAGE_PVT.Token_Tbl_Type;
452 BEGIN
453 IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Checking required attributes for Isolation . . . '); END IF;
455 IF p_safety_establishment_rec.ESTABLISHMENT_ID IS NULL THEN
456 l_out_mesg_token_tbl := l_mesg_token_tbl;
457 EAM_ERROR_MESSAGE_PVT.Add_Error_Token (
458 p_message_name => 'EAM_ESTAB_ID_REQUIRED' ,
459 p_token_tbl => l_Token_tbl ,
460 p_Mesg_Token_Tbl => l_Mesg_Token_Tbl ,
461 x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl );
462 l_mesg_token_tbl := l_out_mesg_token_tbl;
463 x_return_status := FND_API.G_RET_STS_ERROR;
464 END IF;
465 IF p_safety_establishment_rec.ESTABLISHMENT_SOURCE IS NULL THEN
466 l_out_mesg_token_tbl := l_mesg_token_tbl;
467 EAM_ERROR_MESSAGE_PVT.Add_Error_Token (
468 p_message_name => 'EAM_ESTAB_SOURCE_REQUIRED' ,
469 p_token_tbl => l_Token_tbl ,
470 p_Mesg_Token_Tbl => l_Mesg_Token_Tbl ,
471 x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl );
472 l_mesg_token_tbl := l_out_mesg_token_tbl;
473 x_return_status := FND_API.G_RET_STS_ERROR;
474 END IF;
475 IF p_safety_establishment_rec.SEQUENCE_TYPE IS NULL THEN
476 l_out_mesg_token_tbl := l_mesg_token_tbl;
477 EAM_ERROR_MESSAGE_PVT.Add_Error_Token (
478 p_message_name => 'EAM_ESTAB_SEQ_TYPE_REQUIRED' ,
479 p_token_tbl => l_Token_tbl ,
480 p_Mesg_Token_Tbl => l_Mesg_Token_Tbl ,
481 x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl );
482 l_mesg_token_tbl := l_out_mesg_token_tbl;
483 x_return_status := FND_API.G_RET_STS_ERROR;
484 END IF;
485
486 IF p_safety_establishment_rec.SEQUENCE_NUMBER IS NULL THEN
487 l_out_mesg_token_tbl := l_mesg_token_tbl;
488 EAM_ERROR_MESSAGE_PVT.Add_Error_Token (
489 p_message_name => 'EAM_ESTAB_SEQ_NUM_REQUIRED' ,
490 p_token_tbl => l_Token_tbl ,
491 p_Mesg_Token_Tbl => l_Mesg_Token_Tbl ,
492 x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl );
493 l_mesg_token_tbl := l_out_mesg_token_tbl;
494 x_return_status := FND_API.G_RET_STS_ERROR;
495 END IF;
496
497 IF p_safety_establishment_rec.MAINTENANCE_OBJECT_ID IS NULL
498 THEN
499 l_out_mesg_token_tbl := l_mesg_token_tbl;
500 EAM_ERROR_MESSAGE_PVT.Add_Error_Token
501 ( p_message_name => 'EAM_ESTAB_MAINTID_REQUIRED'
502 , p_token_tbl => l_Token_tbl
503 , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
504 , x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl
505 );
506 l_mesg_token_tbl := l_out_mesg_token_tbl;
507 x_return_status := FND_API.G_RET_STS_ERROR;
508 END IF;
509
510 IF p_safety_establishment_rec.ORGANIZATION_ID IS NULL THEN
511 l_out_mesg_token_tbl := l_mesg_token_tbl;
512 EAM_ERROR_MESSAGE_PVT.Add_Error_Token (
513 p_message_name => 'EAM_ESTAB_ORG_REQUIRED' ,
514 p_token_tbl => l_Token_tbl ,
515 p_Mesg_Token_Tbl => l_Mesg_Token_Tbl ,
516 x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl );
517 l_mesg_token_tbl := l_out_mesg_token_tbl;
518 x_return_status := FND_API.G_RET_STS_ERROR;
519 END IF;
520
521 x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
522 x_return_status := FND_API.G_RET_STS_SUCCESS;
523 END CHECK_REQUIRED;
524
525 END EAM_ESTABLISHMENT_UTILITY_PVT ;
526