37: p_Mesg_Token_Tbl => l_Mesg_Token_Tbl ,
38: p_message_name => 'EAM_PERMIT_ALREADY_EXISTS' ,
39: p_token_tbl => l_token_tbl );
40: l_mesg_token_tbl := l_out_mesg_token_tbl;
41: l_return_status := FND_API.G_RET_STS_ERROR;
42:
43: ELSIF l_return_status = EAM_PROCESS_WO_PVT.G_RECORD_NOT_FOUND AND p_work_permit_header_rec.transaction_type IN (EAM_PROCESS_WO_PVT.G_OPR_UPDATE, EAM_PROCESS_WO_PVT.G_OPR_DELETE) THEN
44: l_token_tbl(1).token_name := 'PERMIT_NAME';
45: l_token_tbl(1).token_value := p_work_permit_header_rec.PERMIT_NAME;
50: p_Mesg_Token_Tbl => l_Mesg_Token_Tbl ,
51: p_message_name => 'EAM_PERMIT_DOESNOT_EXISTS' ,
52: p_token_tbl => l_token_tbl );
53: l_mesg_token_tbl := l_out_mesg_token_tbl;
54: l_return_status := FND_API.G_RET_STS_ERROR;
55:
56: ELSIF l_Return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
57: l_out_mesg_token_tbl := l_mesg_token_tbl;
58: EAM_ERROR_MESSAGE_PVT.Add_Error_Token (
52: p_token_tbl => l_token_tbl );
53: l_mesg_token_tbl := l_out_mesg_token_tbl;
54: l_return_status := FND_API.G_RET_STS_ERROR;
55:
56: ELSIF l_Return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
57: l_out_mesg_token_tbl := l_mesg_token_tbl;
58: EAM_ERROR_MESSAGE_PVT.Add_Error_Token (
59: x_Mesg_token_tbl => l_out_Mesg_Token_Tbl ,
60: p_Mesg_Token_Tbl => l_Mesg_Token_Tbl ,
60: p_Mesg_Token_Tbl => l_Mesg_Token_Tbl ,
61: p_message_name => NULL ,
62: p_message_text => 'Unexpected error' );
63: l_mesg_token_tbl := l_out_mesg_token_tbl;
64: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
65: ELSE
66: l_return_status := FND_API.G_RET_STS_SUCCESS;
67: x_work_permit_header_rec :=l_work_permit_header_rec;
68: END IF;
62: p_message_text => 'Unexpected error' );
63: l_mesg_token_tbl := l_out_mesg_token_tbl;
64: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
65: ELSE
66: l_return_status := FND_API.G_RET_STS_SUCCESS;
67: x_work_permit_header_rec :=l_work_permit_header_rec;
68: END IF;
69: x_return_status := l_return_status;
70: x_mesg_token_tbl := l_mesg_token_tbl;
104: INTO l_disable_date
105: FROM hr_organization_units hou
106: WHERE organization_id = p_work_permit_header_rec.organization_id;
107: IF(l_disable_date < sysdate) THEN
108: raise fnd_api.g_exc_unexpected_error;
109: END IF;
110: x_return_status := FND_API.G_RET_STS_SUCCESS;
111: EXCEPTION
112: WHEN fnd_api.g_exc_unexpected_error THEN
106: WHERE organization_id = p_work_permit_header_rec.organization_id;
107: IF(l_disable_date < sysdate) THEN
108: raise fnd_api.g_exc_unexpected_error;
109: END IF;
110: x_return_status := FND_API.G_RET_STS_SUCCESS;
111: EXCEPTION
112: WHEN fnd_api.g_exc_unexpected_error THEN
113: -- l_token_tbl(1).token_name := 'Organization Id';
114: -- l_token_tbl(1).token_value := p_eam_wo_rec.organization_id;
108: raise fnd_api.g_exc_unexpected_error;
109: END IF;
110: x_return_status := FND_API.G_RET_STS_SUCCESS;
111: EXCEPTION
112: WHEN fnd_api.g_exc_unexpected_error THEN
113: -- l_token_tbl(1).token_name := 'Organization Id';
114: -- l_token_tbl(1).token_value := p_eam_wo_rec.organization_id;
115: l_out_mesg_token_tbl := l_mesg_token_tbl;
116: EAM_ERROR_MESSAGE_PVT.Add_Error_Token (
118: p_token_tbl => l_token_tbl ,
119: p_mesg_token_tbl => l_mesg_token_tbl ,
120: x_mesg_token_tbl => l_out_mesg_token_tbl );
121: l_mesg_token_tbl := l_out_mesg_token_tbl;
122: x_return_status := FND_API.G_RET_STS_ERROR;
123: x_mesg_token_tbl := l_mesg_token_tbl ;
124: RETURN;
125: WHEN no_data_found THEN
126: -- l_token_tbl(1).token_name := 'Organization Id';
131: p_token_tbl => l_token_tbl ,
132: p_mesg_token_tbl => l_mesg_token_tbl ,
133: x_mesg_token_tbl => l_out_mesg_token_tbl );
134: l_mesg_token_tbl := l_out_mesg_token_tbl;
135: x_return_status := FND_API.G_RET_STS_ERROR;
136: x_mesg_token_tbl := l_mesg_token_tbl ;
137: RETURN;
138: END;
139:
147: mtl_parameters mp
148: WHERE wep.organization_id = mp.organization_id
149: AND mp.eam_enabled_flag = 'Y'
150: AND wep.organization_id = p_work_permit_header_rec.organization_id;
151: x_return_status := FND_API.G_RET_STS_SUCCESS;
152: EXCEPTION
153: WHEN no_data_found THEN
154: -- l_token_tbl(1).token_name := 'Organization Id';
155: -- l_token_tbl(1).token_value := p_work_permit_header_rec.organization_id;
159: p_token_tbl => l_token_tbl ,
160: p_mesg_token_tbl => l_mesg_token_tbl ,
161: x_mesg_token_tbl => l_out_mesg_token_tbl );
162: l_mesg_token_tbl := l_out_mesg_token_tbl;
163: x_return_status := FND_API.G_RET_STS_ERROR;
164: x_mesg_token_tbl := l_mesg_token_tbl ;
165: RETURN;
166: END;
167:
176: FROM EAM_WORK_PERMITS
177: WHERE PERMIT_ID = p_work_permit_header_rec.PERMIT_ID
178: AND organization_id = p_work_permit_header_rec.organization_id;
179: IF(l_count > 0) THEN
180: raise fnd_api.g_exc_unexpected_error;
181: END IF;
182: END IF;
183: x_return_status := FND_API.G_RET_STS_SUCCESS;
184: EXCEPTION
179: IF(l_count > 0) THEN
180: raise fnd_api.g_exc_unexpected_error;
181: END IF;
182: END IF;
183: x_return_status := FND_API.G_RET_STS_SUCCESS;
184: EXCEPTION
185: WHEN fnd_api.g_exc_unexpected_error THEN
186: -- l_token_tbl(1).token_name := 'Wip Entity Name';
187: -- l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
181: END IF;
182: END IF;
183: x_return_status := FND_API.G_RET_STS_SUCCESS;
184: EXCEPTION
185: WHEN fnd_api.g_exc_unexpected_error THEN
186: -- l_token_tbl(1).token_name := 'Wip Entity Name';
187: -- l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
188: l_out_mesg_token_tbl := l_mesg_token_tbl;
189: EAM_ERROR_MESSAGE_PVT.Add_Error_Token (
191: p_token_tbl => l_token_tbl ,
192: p_mesg_token_tbl => l_mesg_token_tbl ,
193: x_mesg_token_tbl => l_out_mesg_token_tbl );
194: l_mesg_token_tbl := l_out_mesg_token_tbl;
195: x_return_status := FND_API.G_RET_STS_ERROR;
196: x_mesg_token_tbl := l_mesg_token_tbl ;
197: RETURN;
198: END; */
199:
208: WHERE PERMIT_ID = p_work_permit_header_rec.PERMIT_ID
209: AND organization_id = p_work_permit_header_rec.organization_id;
210:
211: IF(l_count <> 1) THEN
212: raise fnd_api.g_exc_unexpected_error;
213: END IF;
214: END IF;
215: x_return_status := FND_API.G_RET_STS_SUCCESS;
216: EXCEPTION
211: IF(l_count <> 1) THEN
212: raise fnd_api.g_exc_unexpected_error;
213: END IF;
214: END IF;
215: x_return_status := FND_API.G_RET_STS_SUCCESS;
216: EXCEPTION
217: WHEN fnd_api.g_exc_unexpected_error THEN
218: -- l_token_tbl(1).token_name := 'Wip Entity Name';
219: -- l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
213: END IF;
214: END IF;
215: x_return_status := FND_API.G_RET_STS_SUCCESS;
216: EXCEPTION
217: WHEN fnd_api.g_exc_unexpected_error THEN
218: -- l_token_tbl(1).token_name := 'Wip Entity Name';
219: -- l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
220: l_out_mesg_token_tbl := l_mesg_token_tbl;
221: EAM_ERROR_MESSAGE_PVT.Add_Error_Token (
223: p_token_tbl => l_token_tbl ,
224: p_mesg_token_tbl => l_mesg_token_tbl ,
225: x_mesg_token_tbl => l_out_mesg_token_tbl );
226: l_mesg_token_tbl := l_out_mesg_token_tbl;
227: x_return_status := FND_API.G_RET_STS_ERROR;
228: x_mesg_token_tbl := l_mesg_token_tbl ;
229: RETURN;
230: END;
231:
239: FROM EAM_WORK_PERMITS
240: WHERE PERMIT_NAME = p_work_permit_header_rec.PERMIT_NAME
241: AND organization_id = p_work_permit_header_rec.organization_id;
242: IF(l_count > 0) THEN
243: raise fnd_api.g_exc_unexpected_error;
244: END IF;
245: END IF;
246:
247: -- Permit name should be validated incase of copy permit,where transaction type is update.
259: END;
260: END IF;
261:
262: IF(l_permit_id <> p_work_permit_header_rec.permit_id) THEN
263: raise fnd_api.g_exc_unexpected_error;
264: END IF;
265:
266: x_return_status := FND_API.G_RET_STS_SUCCESS;
267: EXCEPTION
262: IF(l_permit_id <> p_work_permit_header_rec.permit_id) THEN
263: raise fnd_api.g_exc_unexpected_error;
264: END IF;
265:
266: x_return_status := FND_API.G_RET_STS_SUCCESS;
267: EXCEPTION
268: WHEN fnd_api.g_exc_unexpected_error THEN
269: l_token_tbl(1).token_name := 'PERMIT_NAME';
270: l_token_tbl(1).token_value := p_work_permit_header_rec.PERMIT_NAME;
264: END IF;
265:
266: x_return_status := FND_API.G_RET_STS_SUCCESS;
267: EXCEPTION
268: WHEN fnd_api.g_exc_unexpected_error THEN
269: l_token_tbl(1).token_name := 'PERMIT_NAME';
270: l_token_tbl(1).token_value := p_work_permit_header_rec.PERMIT_NAME;
271: l_out_mesg_token_tbl := l_mesg_token_tbl;
272: EAM_ERROR_MESSAGE_PVT.Add_Error_Token (
274: p_token_tbl => l_token_tbl ,
275: p_mesg_token_tbl => l_mesg_token_tbl ,
276: x_mesg_token_tbl => l_out_mesg_token_tbl );
277: l_mesg_token_tbl := l_out_mesg_token_tbl;
278: x_return_status := FND_API.G_RET_STS_ERROR;
279: x_mesg_token_tbl := l_mesg_token_tbl ;
280: RETURN;
281: END;
282:
283: -- status_type
284: /* IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating status_type. . . '); END IF;
285: BEGIN
286: IF (p_work_permit_header_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE AND p_work_permit_header_rec.status_type NOT IN (wip_constants.released, wip_constants.draft)) THEN
287: raise fnd_api.g_exc_unexpected_error;
288: elsif (p_work_permit_header_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE AND p_work_permit_header_rec.status_type NOT IN (wip_constants.released, wip_constants.cancelled,wip_constants.comp_chrg,wip_constants.comp_nochrg )) THEN
289: raise fnd_api.g_exc_unexpected_error;
290: END IF;
291: x_return_status := FND_API.G_RET_STS_SUCCESS;
285: BEGIN
286: IF (p_work_permit_header_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE AND p_work_permit_header_rec.status_type NOT IN (wip_constants.released, wip_constants.draft)) THEN
287: raise fnd_api.g_exc_unexpected_error;
288: elsif (p_work_permit_header_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE AND p_work_permit_header_rec.status_type NOT IN (wip_constants.released, wip_constants.cancelled,wip_constants.comp_chrg,wip_constants.comp_nochrg )) THEN
289: raise fnd_api.g_exc_unexpected_error;
290: END IF;
291: x_return_status := FND_API.G_RET_STS_SUCCESS;
292: EXCEPTION
293: WHEN fnd_api.g_exc_unexpected_error THEN
287: raise fnd_api.g_exc_unexpected_error;
288: elsif (p_work_permit_header_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE AND p_work_permit_header_rec.status_type NOT IN (wip_constants.released, wip_constants.cancelled,wip_constants.comp_chrg,wip_constants.comp_nochrg )) THEN
289: raise fnd_api.g_exc_unexpected_error;
290: END IF;
291: x_return_status := FND_API.G_RET_STS_SUCCESS;
292: EXCEPTION
293: WHEN fnd_api.g_exc_unexpected_error THEN
294: -- l_token_tbl(1).token_name := 'Status type';
295: -- l_token_tbl(1).token_value := p_eam_wo_rec.status_type;
289: raise fnd_api.g_exc_unexpected_error;
290: END IF;
291: x_return_status := FND_API.G_RET_STS_SUCCESS;
292: EXCEPTION
293: WHEN fnd_api.g_exc_unexpected_error THEN
294: -- l_token_tbl(1).token_name := 'Status type';
295: -- l_token_tbl(1).token_value := p_eam_wo_rec.status_type;
296: l_out_mesg_token_tbl := l_mesg_token_tbl;
297: EAM_ERROR_MESSAGE_PVT.Add_Error_Token (
299: p_token_tbl => l_token_tbl ,
300: p_mesg_token_tbl => l_mesg_token_tbl ,
301: x_mesg_token_tbl => l_out_mesg_token_tbl );
302: l_mesg_token_tbl := l_out_mesg_token_tbl;
303: x_return_status := FND_API.G_RET_STS_ERROR;
304: x_mesg_token_tbl := l_mesg_token_tbl ;
305: RETURN;
306: END;
307:
334: p_work_permit_header_rec.ATTRIBUTE13 <> p_old_work_permit_header_rec.ATTRIBUTE13 OR
335: p_work_permit_header_rec.ATTRIBUTE14 <> p_old_work_permit_header_rec.ATTRIBUTE14 OR
336: p_work_permit_header_rec.ATTRIBUTE15 <> p_old_work_permit_header_rec.ATTRIBUTE15 OR
337: p_work_permit_header_rec.APPROVED_BY <> p_old_work_permit_header_rec.APPROVED_BY ) THEN
338: raise fnd_api.g_exc_unexpected_error;
339: END IF;
340: x_return_status := FND_API.G_RET_STS_SUCCESS;
341: EXCEPTION
342: WHEN fnd_api.g_exc_unexpected_error THEN
336: p_work_permit_header_rec.ATTRIBUTE15 <> p_old_work_permit_header_rec.ATTRIBUTE15 OR
337: p_work_permit_header_rec.APPROVED_BY <> p_old_work_permit_header_rec.APPROVED_BY ) THEN
338: raise fnd_api.g_exc_unexpected_error;
339: END IF;
340: x_return_status := FND_API.G_RET_STS_SUCCESS;
341: EXCEPTION
342: WHEN fnd_api.g_exc_unexpected_error THEN
343: -- l_token_tbl(1).token_name := 'Status type';
344: -- l_token_tbl(1).token_value := p_eam_wo_rec.status_type;
338: raise fnd_api.g_exc_unexpected_error;
339: END IF;
340: x_return_status := FND_API.G_RET_STS_SUCCESS;
341: EXCEPTION
342: WHEN fnd_api.g_exc_unexpected_error THEN
343: -- l_token_tbl(1).token_name := 'Status type';
344: -- l_token_tbl(1).token_value := p_eam_wo_rec.status_type;
345: l_out_mesg_token_tbl := l_mesg_token_tbl;
346: EAM_ERROR_MESSAGE_PVT.Add_Error_Token (
348: p_token_tbl => l_token_tbl ,
349: p_mesg_token_tbl => l_mesg_token_tbl ,
350: x_mesg_token_tbl => l_out_mesg_token_tbl );
351: l_mesg_token_tbl := l_out_mesg_token_tbl;
352: x_return_status := FND_API.G_RET_STS_ERROR;
353: x_mesg_token_tbl := l_mesg_token_tbl ;
354: RETURN;
355: END;*/
356:
361: SELECT 1
362: INTO g_dummy
363: FROM fnd_user
364: WHERE user_id = p_work_permit_header_rec.user_id;
365: x_return_status := FND_API.G_RET_STS_SUCCESS;
366: END IF;
367: EXCEPTION
368: WHEN no_data_found THEN
369: --l_token_tbl(1).token_name := 'USER_ID';
374: p_token_tbl => l_token_tbl ,
375: p_mesg_token_tbl => l_mesg_token_tbl ,
376: x_mesg_token_tbl => l_out_mesg_token_tbl );
377: l_mesg_token_tbl := l_out_mesg_token_tbl;
378: x_return_status := FND_API.G_RET_STS_ERROR;
379: x_mesg_token_tbl := l_mesg_token_tbl ;
380: RETURN;
381: END;
382:
387: SELECT 1
388: INTO g_dummy
389: FROM fnd_responsibility
390: WHERE responsibility_id = p_work_permit_header_rec.responsibility_id;
391: x_return_status := FND_API.G_RET_STS_SUCCESS;
392: END IF;
393: EXCEPTION
394: WHEN no_data_found THEN
395: -- l_token_tbl(1).token_name := 'RESPONSIBILITY_ID';
400: p_token_tbl => l_token_tbl ,
401: p_mesg_token_tbl => l_mesg_token_tbl ,
402: x_mesg_token_tbl => l_out_mesg_token_tbl );
403: l_mesg_token_tbl := l_out_mesg_token_tbl;
404: x_return_status := FND_API.G_RET_STS_ERROR;
405: x_mesg_token_tbl := l_mesg_token_tbl ;
406: RETURN;
407: END;
408:
423: l_Token_Tbl EAM_ERROR_MESSAGE_PVT.Token_Tbl_Type;
424:
425: BEGIN
426: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Checking required attributes for Permit . . . '); END IF;
427: x_return_status := FND_API.G_RET_STS_SUCCESS;
428: IF p_work_permit_header_rec.PERMIT_ID IS NULL THEN
429: -- l_token_tbl(1).token_name := 'OPERATION_SEQ_NUM';
430: -- l_token_tbl(1).token_value := p_eam_op_rec.operation_seq_num;
431: l_out_mesg_token_tbl := l_mesg_token_tbl;
434: p_token_tbl => l_Token_tbl ,
435: p_Mesg_Token_Tbl => l_Mesg_Token_Tbl ,
436: x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl );
437: l_mesg_token_tbl := l_out_mesg_token_tbl;
438: x_return_status := FND_API.G_RET_STS_ERROR;
439: END IF;
440: IF p_work_permit_header_rec.PERMIT_NAME IS NULL THEN
441: -- l_token_tbl(1).token_name := 'OPERATION_SEQ_NUM';
442: -- l_token_tbl(1).token_value := p_eam_op_rec.operation_seq_num;
446: p_token_tbl => l_Token_tbl ,
447: p_Mesg_Token_Tbl => l_Mesg_Token_Tbl ,
448: x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl );
449: l_mesg_token_tbl := l_out_mesg_token_tbl;
450: x_return_status := FND_API.G_RET_STS_ERROR;
451: END IF;
452: IF p_work_permit_header_rec.ORGANIZATION_ID IS NULL THEN
453: -- l_token_tbl(1).token_name := 'OPERATION_SEQ_NUM';
454: -- l_token_tbl(1).token_value := p_eam_op_rec.operation_seq_num;
458: p_token_tbl => l_Token_tbl ,
459: p_Mesg_Token_Tbl => l_Mesg_Token_Tbl ,
460: x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl );
461: l_mesg_token_tbl := l_out_mesg_token_tbl;
462: x_return_status := FND_API.G_RET_STS_ERROR;
463: END IF;
464: IF p_work_permit_header_rec.STATUS_TYPE IS NULL THEN
465: -- l_token_tbl(1).token_name := 'OPERATION_SEQ_NUM';
466: -- l_token_tbl(1).token_value := p_eam_op_rec.operation_seq_num;
470: p_token_tbl => l_Token_tbl ,
471: p_Mesg_Token_Tbl => l_Mesg_Token_Tbl ,
472: x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl );
473: l_mesg_token_tbl := l_out_mesg_token_tbl;
474: x_return_status := FND_API.G_RET_STS_ERROR;
475: END IF;
476:
477: IF p_work_permit_header_rec.USER_ID IS NULL
478: THEN
485: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
486: , x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl
487: );
488: l_mesg_token_tbl := l_out_mesg_token_tbl;
489: x_return_status := FND_API.G_RET_STS_ERROR;
490: END IF;
491: IF p_work_permit_header_rec.RESPONSIBILITY_ID IS NULL
492: THEN
493: -- l_token_tbl(1).token_name := 'OPERATION_SEQ_NUM';
499: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
500: , x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl
501: );
502: l_mesg_token_tbl := l_out_mesg_token_tbl;
503: x_return_status := FND_API.G_RET_STS_ERROR;
504: END IF;
505: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
506: x_return_status := FND_API.G_RET_STS_SUCCESS;
507: END CHECK_REQUIRED;
502: l_mesg_token_tbl := l_out_mesg_token_tbl;
503: x_return_status := FND_API.G_RET_STS_ERROR;
504: END IF;
505: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
506: x_return_status := FND_API.G_RET_STS_SUCCESS;
507: END CHECK_REQUIRED;
508: END EAM_PERMIT_VALIDATE_PVT;