50: l_debug VARCHAR2(1) := p_debug;
51: l_output_dir VARCHAR2(512) := p_output_dir;
52: l_debug_filename VARCHAR2(512) := p_debug_filename;
53: l_debug_file_mode VARCHAR2(512) := p_debug_file_mode;
54: l_out_mesg_token_tbl EAM_ERROR_MESSAGE_PVT.mesg_token_tbl_type;
55: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
56:
57:
58: l_return_status VARCHAR2(1);
51: l_output_dir VARCHAR2(512) := p_output_dir;
52: l_debug_filename VARCHAR2(512) := p_debug_filename;
53: l_debug_file_mode VARCHAR2(512) := p_debug_file_mode;
54: l_out_mesg_token_tbl EAM_ERROR_MESSAGE_PVT.mesg_token_tbl_type;
55: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
56:
57:
58: l_return_status VARCHAR2(1);
59: l_msg_count NUMBER;
67: RAISE FND_API.G_EXC_ERROR;
68: END IF;
69:
70: IF p_init_msg_list THEN
71: EAM_ERROR_MESSAGE_PVT.Initialize;
72: END IF;
73:
74: SAVEPOINT EAM_PROCESS_ISOLATION;
75:
77:
78: IF l_debug = 'Y'
79: THEN
80: l_out_mesg_token_tbl := l_mesg_token_tbl;
81: EAM_ERROR_MESSAGE_PVT.Open_Debug_Session
82: ( p_debug_filename => p_debug_filename
83: , p_output_dir => p_output_dir
84: , p_debug_file_mode => l_debug_file_mode
85: , x_return_status => l_return_status
93: EAM_PROCESS_WO_PVT.Set_Debug('N');
94: END IF;
95: END IF;
96:
97: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Calling EAM_PROCESS_SAFETY_PUB.PROCESS_ISOLATION'); end if;
98:
99: EAM_PROCESS_ISOLATION_PVT.PROCESS_ISOLATION(
100: p_bo_identifier => p_bo_identifier
101: , p_api_version_number => l_api_version
128: x_return_status := FND_API.G_RET_STS_ERROR;
129: x_msg_count :=l_msg_count;
130: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y'
131: THEN
132: EAM_ERROR_MESSAGE_PVT.Dump_Message_List;
133: EAM_ERROR_MESSAGE_PVT.Close_Debug_Session;
134: END IF;
135:
136: END PROCESS_ISOLATION;
129: x_msg_count :=l_msg_count;
130: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y'
131: THEN
132: EAM_ERROR_MESSAGE_PVT.Dump_Message_List;
133: EAM_ERROR_MESSAGE_PVT.Close_Debug_Session;
134: END IF;
135:
136: END PROCESS_ISOLATION;
137:
165: l_debug VARCHAR2(1) := p_debug;
166: l_output_dir VARCHAR2(512) := p_output_dir;
167: l_debug_filename VARCHAR2(512) := p_debug_filename;
168: l_debug_file_mode VARCHAR2(512) := p_debug_file_mode;
169: l_out_mesg_token_tbl EAM_ERROR_MESSAGE_PVT.mesg_token_tbl_type;
170: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
171:
172:
173: l_return_status VARCHAR2(1);
166: l_output_dir VARCHAR2(512) := p_output_dir;
167: l_debug_filename VARCHAR2(512) := p_debug_filename;
168: l_debug_file_mode VARCHAR2(512) := p_debug_file_mode;
169: l_out_mesg_token_tbl EAM_ERROR_MESSAGE_PVT.mesg_token_tbl_type;
170: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
171:
172:
173: l_return_status VARCHAR2(1);
174: l_msg_count NUMBER;
181: END IF;
182:
183: IF p_init_msg_list
184: THEN
185: EAM_ERROR_MESSAGE_PVT.Initialize;
186: END IF;
187:
188: SAVEPOINT PROCESS_WORK_CLEARANCE;
189:
191:
192: IF l_debug = 'Y'
193: THEN
194: l_out_mesg_token_tbl := l_mesg_token_tbl;
195: EAM_ERROR_MESSAGE_PVT.Open_Debug_Session
196: ( p_debug_filename => p_debug_filename
197: , p_output_dir => p_output_dir
198: , p_debug_file_mode => l_debug_file_mode
199: , x_return_status => l_return_status
207: EAM_PROCESS_WO_PVT.Set_Debug('N');
208: END IF;
209: END IF;
210:
211: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Inside EAM_PROCESS_SAFETY_PUB.PROCESS_WORK_CLEARANCE'); end if;
212:
213: EAM_PROCESS_CLEARANCE_PVT.PROCESS_WORK_CLEARANCE(
214: p_bo_identifier => p_bo_identifier
215: , p_api_version_number => l_api_version
243: x_return_status := FND_API.G_RET_STS_ERROR;
244: x_msg_count :=l_msg_count;
245: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y'
246: THEN
247: EAM_ERROR_MESSAGE_PVT.Dump_Message_List;
248: EAM_ERROR_MESSAGE_PVT.Close_Debug_Session;
249: END IF;
250: END PROCESS_WORK_CLEARANCE;
251:
244: x_msg_count :=l_msg_count;
245: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y'
246: THEN
247: EAM_ERROR_MESSAGE_PVT.Dump_Message_List;
248: EAM_ERROR_MESSAGE_PVT.Close_Debug_Session;
249: END IF;
250: END PROCESS_WORK_CLEARANCE;
251:
252: /**************************************************************************
274: l_debug VARCHAR2(1) := p_debug;
275: l_output_dir VARCHAR2(512) := p_output_dir;
276: l_debug_filename VARCHAR2(512) := p_debug_filename;
277: l_debug_file_mode VARCHAR2(512) := p_debug_file_mode;
278: l_out_mesg_token_tbl EAM_ERROR_MESSAGE_PVT.mesg_token_tbl_type;
279: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
280:
281:
282: l_return_status VARCHAR2(1);
275: l_output_dir VARCHAR2(512) := p_output_dir;
276: l_debug_filename VARCHAR2(512) := p_debug_filename;
277: l_debug_file_mode VARCHAR2(512) := p_debug_file_mode;
278: l_out_mesg_token_tbl EAM_ERROR_MESSAGE_PVT.mesg_token_tbl_type;
279: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
280:
281:
282: l_return_status VARCHAR2(1);
283: l_msg_count NUMBER;
289: END IF;
290:
291: IF p_init_msg_list
292: THEN
293: EAM_ERROR_MESSAGE_PVT.Initialize;
294: END IF;
295:
296: SAVEPOINT COPY_WORK_CLEARANCE;
297:
299:
300: IF l_debug = 'Y'
301: THEN
302: l_out_mesg_token_tbl := l_mesg_token_tbl;
303: EAM_ERROR_MESSAGE_PVT.Open_Debug_Session
304: ( p_debug_filename => p_debug_filename
305: , p_output_dir => p_output_dir
306: , p_debug_file_mode => l_debug_file_mode
307: , x_return_status => l_return_status
315: EAM_PROCESS_WO_PVT.Set_Debug('N');
316: END IF;
317: END IF;
318:
319: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Calling EAM_PROCESS_PERMIT_PVT.COPY_WORK_PERMIT from EAM_PROCESS_SAFETY_PUB'); end if;
320:
321: EAM_PROCESS_CLEARANCE_PVT.COPY_WORK_CLEARANCE(
322: p_bo_identifier => p_bo_identifier
323: , p_api_version_number => l_api_version
344: END IF;
345:
346: EXCEPTION
347: WHEN OTHERS THEN
348: -- x_msg_count := EAM_ERROR_MESSAGE_PVT.Get_Message_Count;
349: x_return_status := FND_API.G_RET_STS_ERROR;
350: x_msg_count :=l_msg_count;
351: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y'
352: THEN
349: x_return_status := FND_API.G_RET_STS_ERROR;
350: x_msg_count :=l_msg_count;
351: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y'
352: THEN
353: EAM_ERROR_MESSAGE_PVT.Dump_Message_List;
354: EAM_ERROR_MESSAGE_PVT.Close_Debug_Session;
355: END IF;
356:
357: END COPY_WORK_CLEARANCE;
350: x_msg_count :=l_msg_count;
351: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y'
352: THEN
353: EAM_ERROR_MESSAGE_PVT.Dump_Message_List;
354: EAM_ERROR_MESSAGE_PVT.Close_Debug_Session;
355: END IF;
356:
357: END COPY_WORK_CLEARANCE;
358:
386: l_debug VARCHAR2(1) := p_debug;
387: l_output_dir VARCHAR2(512) := p_output_dir;
388: l_debug_filename VARCHAR2(512) := p_debug_filename;
389: l_debug_file_mode VARCHAR2(512) := p_debug_file_mode;
390: l_out_mesg_token_tbl EAM_ERROR_MESSAGE_PVT.mesg_token_tbl_type;
391: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
392:
393:
394: l_return_status VARCHAR2(1);
387: l_output_dir VARCHAR2(512) := p_output_dir;
388: l_debug_filename VARCHAR2(512) := p_debug_filename;
389: l_debug_file_mode VARCHAR2(512) := p_debug_file_mode;
390: l_out_mesg_token_tbl EAM_ERROR_MESSAGE_PVT.mesg_token_tbl_type;
391: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
392:
393:
394: l_return_status VARCHAR2(1);
395: l_msg_count NUMBER;
402: END IF;
403:
404: IF p_init_msg_list
405: THEN
406: EAM_ERROR_MESSAGE_PVT.Initialize;
407: END IF;
408:
409: SAVEPOINT EAM_PR_PROCESS_WORK_PERMIT;
410:
412:
413: IF l_debug = 'Y'
414: THEN
415: l_out_mesg_token_tbl := l_mesg_token_tbl;
416: EAM_ERROR_MESSAGE_PVT.Open_Debug_Session
417: ( p_debug_filename => p_debug_filename
418: , p_output_dir => p_output_dir
419: , p_debug_file_mode => l_debug_file_mode
420: , x_return_status => l_return_status
428: EAM_PROCESS_WO_PVT.Set_Debug('N');
429: END IF;
430: END IF;
431:
432: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Calling EAM_PROCESS_SAFETY_PUB.PROCESS_WORK_PERMIT from EAM_PROCESS_SAFETY_PUB'); end if;
433:
434: EAM_PROCESS_PERMIT_PVT.PROCESS_WORK_PERMIT(
435: p_bo_identifier => p_bo_identifier
436: , p_api_version_number => l_api_version
462: x_return_status := FND_API.G_RET_STS_ERROR;
463: x_msg_count :=l_msg_count;
464: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y'
465: THEN
466: EAM_ERROR_MESSAGE_PVT.Dump_Message_List;
467: EAM_ERROR_MESSAGE_PVT.Close_Debug_Session;
468: END IF;
469:
470: END PROCESS_WORK_PERMIT;
463: x_msg_count :=l_msg_count;
464: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y'
465: THEN
466: EAM_ERROR_MESSAGE_PVT.Dump_Message_List;
467: EAM_ERROR_MESSAGE_PVT.Close_Debug_Session;
468: END IF;
469:
470: END PROCESS_WORK_PERMIT;
471:
495: l_debug VARCHAR2(1) := p_debug;
496: l_output_dir VARCHAR2(512) := p_output_dir;
497: l_debug_filename VARCHAR2(512) := p_debug_filename;
498: l_debug_file_mode VARCHAR2(512) := p_debug_file_mode;
499: l_out_mesg_token_tbl EAM_ERROR_MESSAGE_PVT.mesg_token_tbl_type;
500: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
501:
502:
503: l_return_status VARCHAR2(1);
496: l_output_dir VARCHAR2(512) := p_output_dir;
497: l_debug_filename VARCHAR2(512) := p_debug_filename;
498: l_debug_file_mode VARCHAR2(512) := p_debug_file_mode;
499: l_out_mesg_token_tbl EAM_ERROR_MESSAGE_PVT.mesg_token_tbl_type;
500: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
501:
502:
503: l_return_status VARCHAR2(1);
504: l_msg_count NUMBER;
510: END IF;
511:
512: IF p_init_msg_list
513: THEN
514: EAM_ERROR_MESSAGE_PVT.Initialize;
515: END IF;
516:
517: SAVEPOINT EAM_COPY_WORK_PERMIT;
518:
520:
521: IF l_debug = 'Y'
522: THEN
523: l_out_mesg_token_tbl := l_mesg_token_tbl;
524: EAM_ERROR_MESSAGE_PVT.Open_Debug_Session
525: ( p_debug_filename => p_debug_filename
526: , p_output_dir => p_output_dir
527: , p_debug_file_mode => l_debug_file_mode
528: , x_return_status => l_return_status
536: EAM_PROCESS_WO_PVT.Set_Debug('N');
537: END IF;
538: END IF;
539:
540: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Calling EAM_PROCESS_SAFETY_PUB.COPY_WORK_PERMIT from EAM_PROCESS_SAFETY_PUB'); end if;
541:
542: EAM_PROCESS_PERMIT_PVT.COPY_WORK_PERMIT(
543: p_bo_identifier => p_bo_identifier
544: , p_api_version_number => l_api_version
569: x_return_status := FND_API.G_RET_STS_ERROR;
570: x_msg_count :=l_msg_count;
571: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y'
572: THEN
573: EAM_ERROR_MESSAGE_PVT.Dump_Message_List;
574: EAM_ERROR_MESSAGE_PVT.Close_Debug_Session;
575: END IF;
576:
577:
570: x_msg_count :=l_msg_count;
571: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y'
572: THEN
573: EAM_ERROR_MESSAGE_PVT.Dump_Message_List;
574: EAM_ERROR_MESSAGE_PVT.Close_Debug_Session;
575: END IF;
576:
577:
578: END COPY_WORK_PERMIT;
600: l_output_dir VARCHAR2(512) := p_output_dir;
601: l_debug_filename VARCHAR2(512) := p_debug_filename;
602: l_debug_file_mode VARCHAR2(512) := p_debug_file_mode;
603:
604: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
605: l_out_mesg_token_tbl EAM_ERROR_MESSAGE_PVT.mesg_token_tbl_type;
606: l_return_status VARCHAR2(1);
607: l_msg_count NUMBER;
608: BEGIN
601: l_debug_filename VARCHAR2(512) := p_debug_filename;
602: l_debug_file_mode VARCHAR2(512) := p_debug_file_mode;
603:
604: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
605: l_out_mesg_token_tbl EAM_ERROR_MESSAGE_PVT.mesg_token_tbl_type;
606: l_return_status VARCHAR2(1);
607: l_msg_count NUMBER;
608: BEGIN
609: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version_number, G_PKG_NAME, G_FILE_NAME) THEN
611: END IF;
612:
613: IF p_init_msg_list
614: THEN
615: EAM_ERROR_MESSAGE_PVT.Initialize;
616: END IF;
617:
618: SAVEPOINT PERMIT_CLEARANCE_ASSOCIATION;
619:
619:
620: IF l_debug = 'Y'
621: THEN
622: l_out_mesg_token_tbl := l_mesg_token_tbl;
623: EAM_ERROR_MESSAGE_PVT.Open_Debug_Session
624: ( p_debug_filename => p_debug_filename
625: , p_output_dir => p_output_dir
626: , p_debug_file_mode => l_debug_file_mode
627: , x_return_status => l_return_status
652: EXCEPTION
653: WHEN fnd_api.g_exc_unexpected_error THEN
654: ROLLBACK TO PERMIT_CLEARANCE_ASSOCIATION;
655: x_return_status := FND_API.G_RET_STS_ERROR;
656: x_msg_count := EAM_ERROR_MESSAGE_PVT.Get_Message_Count;
657:
658: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y'
659: THEN
660: EAM_ERROR_MESSAGE_PVT.Dump_Message_List;
656: x_msg_count := EAM_ERROR_MESSAGE_PVT.Get_Message_Count;
657:
658: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y'
659: THEN
660: EAM_ERROR_MESSAGE_PVT.Dump_Message_List;
661: EAM_ERROR_MESSAGE_PVT.Close_Debug_Session;
662: END IF;
663:
664: WHEN OTHERS THEN
657:
658: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y'
659: THEN
660: EAM_ERROR_MESSAGE_PVT.Dump_Message_List;
661: EAM_ERROR_MESSAGE_PVT.Close_Debug_Session;
662: END IF;
663:
664: WHEN OTHERS THEN
665:
666: ROLLBACK TO PERMIT_CLEARANCE_ASSOCIATION;
667: x_return_status := FND_API.G_RET_STS_ERROR;
668: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y'
669: THEN
670: EAM_ERROR_MESSAGE_PVT.Dump_Message_List;
671: EAM_ERROR_MESSAGE_PVT.Close_Debug_Session;
672: END IF;
673:
674: END PERMIT_CLEARANCE_ASSOCIATION;
667: x_return_status := FND_API.G_RET_STS_ERROR;
668: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y'
669: THEN
670: EAM_ERROR_MESSAGE_PVT.Dump_Message_List;
671: EAM_ERROR_MESSAGE_PVT.Close_Debug_Session;
672: END IF;
673:
674: END PERMIT_CLEARANCE_ASSOCIATION;
675:
690: , x_return_status OUT NOCOPY VARCHAR2
691: , x_msg_count OUT NOCOPY NUMBER
692: )IS
693: -- l_return_status VARCHAR2(1);
694: -- l_out_mesg_token_tbl EAM_ERROR_MESSAGE_PVT.mesg_token_tbl_type;
695:
696:
697: l_api_version CONSTANT NUMBER := 1.0;
698: l_debug VARCHAR2(1) := p_debug;
699: l_output_dir VARCHAR2(512) := p_output_dir;
700: l_debug_filename VARCHAR2(512) := p_debug_filename;
701: l_debug_file_mode VARCHAR2(512) := p_debug_file_mode;
702:
703: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
704: l_out_mesg_token_tbl EAM_ERROR_MESSAGE_PVT.mesg_token_tbl_type;
705: l_return_status VARCHAR2(1);
706: l_msg_count NUMBER;
707:
700: l_debug_filename VARCHAR2(512) := p_debug_filename;
701: l_debug_file_mode VARCHAR2(512) := p_debug_file_mode;
702:
703: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
704: l_out_mesg_token_tbl EAM_ERROR_MESSAGE_PVT.mesg_token_tbl_type;
705: l_return_status VARCHAR2(1);
706: l_msg_count NUMBER;
707:
708: BEGIN
712: END IF;
713:
714: IF p_init_msg_list
715: THEN
716: EAM_ERROR_MESSAGE_PVT.Initialize;
717: END IF;
718:
719: SAVEPOINT CLEARANCE_WO_ASSOCIATION;
720:
720:
721: IF l_debug = 'Y'
722: THEN
723: l_out_mesg_token_tbl := l_mesg_token_tbl;
724: EAM_ERROR_MESSAGE_PVT.Open_Debug_Session
725: ( p_debug_filename => p_debug_filename
726: , p_output_dir => p_output_dir
727: , p_debug_file_mode => l_debug_file_mode
728: , x_return_status => l_return_status
759: x_return_status := FND_API.G_RET_STS_ERROR;
760:
761: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y'
762: THEN
763: EAM_ERROR_MESSAGE_PVT.Dump_Message_List;
764: EAM_ERROR_MESSAGE_PVT.Close_Debug_Session;
765: END IF;
766:
767: WHEN OTHERS THEN
760:
761: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y'
762: THEN
763: EAM_ERROR_MESSAGE_PVT.Dump_Message_List;
764: EAM_ERROR_MESSAGE_PVT.Close_Debug_Session;
765: END IF;
766:
767: WHEN OTHERS THEN
768:
770: x_return_status := FND_API.G_RET_STS_ERROR;
771:
772: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y'
773: THEN
774: EAM_ERROR_MESSAGE_PVT.Dump_Message_List;
775: EAM_ERROR_MESSAGE_PVT.Close_Debug_Session;
776: END IF;
777:
778: END CLEARANCE_WO_ASSOCIATION;
771:
772: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y'
773: THEN
774: EAM_ERROR_MESSAGE_PVT.Dump_Message_List;
775: EAM_ERROR_MESSAGE_PVT.Close_Debug_Session;
776: END IF;
777:
778: END CLEARANCE_WO_ASSOCIATION;
779:
802: l_output_dir VARCHAR2(512) := p_output_dir;
803: l_debug_filename VARCHAR2(512) := p_debug_filename;
804: l_debug_file_mode VARCHAR2(512) := p_debug_file_mode;
805:
806: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
807: l_out_mesg_token_tbl EAM_ERROR_MESSAGE_PVT.mesg_token_tbl_type;
808: l_return_status VARCHAR2(1);
809: l_msg_count NUMBER;
810:
803: l_debug_filename VARCHAR2(512) := p_debug_filename;
804: l_debug_file_mode VARCHAR2(512) := p_debug_file_mode;
805:
806: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
807: l_out_mesg_token_tbl EAM_ERROR_MESSAGE_PVT.mesg_token_tbl_type;
808: l_return_status VARCHAR2(1);
809: l_msg_count NUMBER;
810:
811: BEGIN
815: END IF;
816:
817: IF p_init_msg_list
818: THEN
819: EAM_ERROR_MESSAGE_PVT.Initialize;
820: END IF;
821:
822: SAVEPOINT PERMIT_WORK_ORDER_ASSOCIATION;
823:
823:
824: IF l_debug = 'Y'
825: THEN
826: l_out_mesg_token_tbl := l_mesg_token_tbl;
827: EAM_ERROR_MESSAGE_PVT.Open_Debug_Session
828: ( p_debug_filename => p_debug_filename
829: , p_output_dir => p_output_dir
830: , p_debug_file_mode => l_debug_file_mode
831: , x_return_status => l_return_status
858: ROLLBACK TO PERMIT_WORK_ORDER_ASSOCIATION;
859: x_return_status := FND_API.G_RET_STS_ERROR;
860: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y'
861: THEN
862: EAM_ERROR_MESSAGE_PVT.Dump_Message_List;
863: EAM_ERROR_MESSAGE_PVT.Close_Debug_Session;
864: END IF;
865:
866: WHEN OTHERS THEN
859: x_return_status := FND_API.G_RET_STS_ERROR;
860: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y'
861: THEN
862: EAM_ERROR_MESSAGE_PVT.Dump_Message_List;
863: EAM_ERROR_MESSAGE_PVT.Close_Debug_Session;
864: END IF;
865:
866: WHEN OTHERS THEN
867: ROLLBACK TO PERMIT_WORK_ORDER_ASSOCIATION;
867: ROLLBACK TO PERMIT_WORK_ORDER_ASSOCIATION;
868: x_return_status := FND_API.G_RET_STS_ERROR;
869: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y'
870: THEN
871: EAM_ERROR_MESSAGE_PVT.Dump_Message_List;
872: EAM_ERROR_MESSAGE_PVT.Close_Debug_Session;
873: END IF;
874:
875:
868: x_return_status := FND_API.G_RET_STS_ERROR;
869: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y'
870: THEN
871: EAM_ERROR_MESSAGE_PVT.Dump_Message_List;
872: EAM_ERROR_MESSAGE_PVT.Close_Debug_Session;
873: END IF;
874:
875:
876: END PERMIT_WORK_ORDER_ASSOCIATION;
900: l_output_dir VARCHAR2(512) := p_output_dir;
901: l_debug_filename VARCHAR2(512) := p_debug_filename;
902: l_debug_file_mode VARCHAR2(512) := p_debug_file_mode;
903:
904: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
905: l_out_mesg_token_tbl EAM_ERROR_MESSAGE_PVT.mesg_token_tbl_type;
906: l_return_status VARCHAR2(1);
907: l_msg_count NUMBER;
908:
901: l_debug_filename VARCHAR2(512) := p_debug_filename;
902: l_debug_file_mode VARCHAR2(512) := p_debug_file_mode;
903:
904: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
905: l_out_mesg_token_tbl EAM_ERROR_MESSAGE_PVT.mesg_token_tbl_type;
906: l_return_status VARCHAR2(1);
907: l_msg_count NUMBER;
908:
909: BEGIN
913: END IF;
914:
915: IF p_init_msg_list
916: THEN
917: EAM_ERROR_MESSAGE_PVT.Initialize;
918: END IF;
919:
920: SAVEPOINT ASSET_ISOLATION_ASSOCIATION;
921:
921:
922: IF l_debug = 'Y'
923: THEN
924: l_out_mesg_token_tbl := l_mesg_token_tbl;
925: EAM_ERROR_MESSAGE_PVT.Open_Debug_Session
926: ( p_debug_filename => p_debug_filename
927: , p_output_dir => p_output_dir
928: , p_debug_file_mode => l_debug_file_mode
929: , x_return_status => l_return_status
956: ROLLBACK TO ASSET_ISOLATION_ASSOCIATION;
957: x_return_status := FND_API.G_RET_STS_ERROR;
958: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y'
959: THEN
960: EAM_ERROR_MESSAGE_PVT.Dump_Message_List;
961: EAM_ERROR_MESSAGE_PVT.Close_Debug_Session;
962: END IF;
963:
964: WHEN OTHERS THEN
957: x_return_status := FND_API.G_RET_STS_ERROR;
958: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y'
959: THEN
960: EAM_ERROR_MESSAGE_PVT.Dump_Message_List;
961: EAM_ERROR_MESSAGE_PVT.Close_Debug_Session;
962: END IF;
963:
964: WHEN OTHERS THEN
965: ROLLBACK TO ASSET_ISOLATION_ASSOCIATION;
965: ROLLBACK TO ASSET_ISOLATION_ASSOCIATION;
966: x_return_status := FND_API.G_RET_STS_ERROR;
967: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y'
968: THEN
969: EAM_ERROR_MESSAGE_PVT.Dump_Message_List;
970: EAM_ERROR_MESSAGE_PVT.Close_Debug_Session;
971: END IF;
972:
973: END ASSET_ISOLATION_ASSOCIATION;
966: x_return_status := FND_API.G_RET_STS_ERROR;
967: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y'
968: THEN
969: EAM_ERROR_MESSAGE_PVT.Dump_Message_List;
970: EAM_ERROR_MESSAGE_PVT.Close_Debug_Session;
971: END IF;
972:
973: END ASSET_ISOLATION_ASSOCIATION;
974: