62:
63:
64: BEGIN
65:
66: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version_number, G_PKG_NAME, G_FILE_NAME) THEN
67: RAISE FND_API.G_EXC_ERROR;
68: END IF;
69:
70: IF p_init_msg_list THEN
63:
64: BEGIN
65:
66: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version_number, G_PKG_NAME, G_FILE_NAME) THEN
67: RAISE FND_API.G_EXC_ERROR;
68: END IF;
69:
70: IF p_init_msg_list THEN
71: EAM_ERROR_MESSAGE_PVT.Initialize;
87: , x_mesg_token_tbl => l_out_mesg_token_tbl
88: );
89: l_mesg_token_tbl := l_out_mesg_token_tbl;
90:
91: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
92: THEN
93: EAM_PROCESS_WO_PVT.Set_Debug('N');
94: END IF;
95: END IF;
116:
117: x_isolation_id :=l_isolation_id;
118: x_return_status :=l_return_status;
119:
120: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
121: THEN
122: x_return_status := FND_API.G_RET_STS_ERROR;
123: x_msg_count :=l_msg_count;
124: END IF;
118: x_return_status :=l_return_status;
119:
120: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
121: THEN
122: x_return_status := FND_API.G_RET_STS_ERROR;
123: x_msg_count :=l_msg_count;
124: END IF;
125:
126: EXCEPTION
124: END IF;
125:
126: EXCEPTION
127: WHEN OTHERS THEN
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;
175: l_msg_data VARCHAR2(240);
176:
177: BEGIN
178:
179: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version_number, G_PKG_NAME, G_FILE_NAME) THEN
180: RAISE FND_API.G_EXC_ERROR;
181: END IF;
182:
183: IF p_init_msg_list
176:
177: BEGIN
178:
179: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version_number, G_PKG_NAME, G_FILE_NAME) THEN
180: RAISE FND_API.G_EXC_ERROR;
181: END IF;
182:
183: IF p_init_msg_list
184: THEN
201: , x_mesg_token_tbl => l_out_mesg_token_tbl
202: );
203: l_mesg_token_tbl := l_out_mesg_token_tbl;
204:
205: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
206: THEN
207: EAM_PROCESS_WO_PVT.Set_Debug('N');
208: END IF;
209: END IF;
231:
232: x_clearance_id :=l_work_clearance_header_rec.work_clearance_id;
233: x_return_status :=l_return_status;
234:
235: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
236: THEN
237: x_return_status := FND_API.G_RET_STS_ERROR;
238: x_msg_count :=l_msg_count;
239: END IF;
233: x_return_status :=l_return_status;
234:
235: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
236: THEN
237: x_return_status := FND_API.G_RET_STS_ERROR;
238: x_msg_count :=l_msg_count;
239: END IF;
240:
241: EXCEPTION
239: END IF;
240:
241: EXCEPTION
242: WHEN OTHERS THEN
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;
283: l_msg_count NUMBER;
284:
285: BEGIN
286:
287: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version_number, G_PKG_NAME, G_FILE_NAME) THEN
288: RAISE FND_API.G_EXC_ERROR;
289: END IF;
290:
291: IF p_init_msg_list
284:
285: BEGIN
286:
287: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version_number, G_PKG_NAME, G_FILE_NAME) THEN
288: RAISE FND_API.G_EXC_ERROR;
289: END IF;
290:
291: IF p_init_msg_list
292: THEN
309: , x_mesg_token_tbl => l_out_mesg_token_tbl
310: );
311: l_mesg_token_tbl := l_out_mesg_token_tbl;
312:
313: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
314: THEN
315: EAM_PROCESS_WO_PVT.Set_Debug('N');
316: END IF;
317: END IF;
336:
337:
338: x_return_status :=l_return_status;
339:
340: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
341: THEN
342: x_return_status := FND_API.G_RET_STS_ERROR;
343: x_msg_count :=l_msg_count;
344: END IF;
338: x_return_status :=l_return_status;
339:
340: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
341: THEN
342: x_return_status := FND_API.G_RET_STS_ERROR;
343: x_msg_count :=l_msg_count;
344: END IF;
345:
346: EXCEPTION
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
353: EAM_ERROR_MESSAGE_PVT.Dump_Message_List;
396: l_msg_data VARCHAR2(240);
397:
398: BEGIN
399:
400: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version_number, G_PKG_NAME, G_FILE_NAME) THEN
401: RAISE FND_API.G_EXC_ERROR;
402: END IF;
403:
404: IF p_init_msg_list
397:
398: BEGIN
399:
400: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version_number, G_PKG_NAME, G_FILE_NAME) THEN
401: RAISE FND_API.G_EXC_ERROR;
402: END IF;
403:
404: IF p_init_msg_list
405: THEN
422: , x_mesg_token_tbl => l_out_mesg_token_tbl
423: );
424: l_mesg_token_tbl := l_out_mesg_token_tbl;
425:
426: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
427: THEN
428: EAM_PROCESS_WO_PVT.Set_Debug('N');
429: END IF;
430: END IF;
450:
451: x_permit_id :=lx_work_permit_header_rec.permit_id;
452: x_return_status :=l_return_status;
453:
454: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
455: THEN
456: x_return_status := FND_API.G_RET_STS_ERROR;
457: x_msg_count :=l_msg_count;
458: END IF;
452: x_return_status :=l_return_status;
453:
454: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
455: THEN
456: x_return_status := FND_API.G_RET_STS_ERROR;
457: x_msg_count :=l_msg_count;
458: END IF;
459:
460: EXCEPTION
458: END IF;
459:
460: EXCEPTION
461: WHEN OTHERS THEN
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;
504: l_msg_count NUMBER;
505:
506: BEGIN
507:
508: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version_number, G_PKG_NAME, G_FILE_NAME) THEN
509: RAISE FND_API.G_EXC_ERROR;
510: END IF;
511:
512: IF p_init_msg_list
505:
506: BEGIN
507:
508: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version_number, G_PKG_NAME, G_FILE_NAME) THEN
509: RAISE FND_API.G_EXC_ERROR;
510: END IF;
511:
512: IF p_init_msg_list
513: THEN
530: , x_mesg_token_tbl => l_out_mesg_token_tbl
531: );
532: l_mesg_token_tbl := l_out_mesg_token_tbl;
533:
534: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
535: THEN
536: EAM_PROCESS_WO_PVT.Set_Debug('N');
537: END IF;
538: END IF;
557:
558:
559: x_return_status :=l_return_status;
560:
561: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
562: THEN
563: x_return_status := FND_API.G_RET_STS_ERROR;
564: x_msg_count :=l_msg_count;
565: END IF;
559: x_return_status :=l_return_status;
560:
561: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
562: THEN
563: x_return_status := FND_API.G_RET_STS_ERROR;
564: x_msg_count :=l_msg_count;
565: END IF;
566:
567: EXCEPTION
565: END IF;
566:
567: EXCEPTION
568: WHEN OTHERS THEN
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;
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
610: RAISE FND_API.G_EXC_ERROR;
611: END IF;
612:
613: IF p_init_msg_list
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
610: RAISE FND_API.G_EXC_ERROR;
611: END IF;
612:
613: IF p_init_msg_list
614: THEN
629: , x_mesg_token_tbl => l_out_mesg_token_tbl
630: );
631: l_mesg_token_tbl := l_out_mesg_token_tbl;
632:
633: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
634: THEN
635: EAM_PROCESS_WO_PVT.Set_Debug('N');
636: END IF;
637: END IF;
643: , x_return_status => l_return_status
644: );
645:
646:
647: IF (p_commit = FND_API.G_TRUE) THEN
648: COMMIT;
649: END IF;
650:
651: x_return_status := l_return_status;
649: END IF;
650:
651: 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:
651: 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
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;
706: l_msg_count NUMBER;
707:
708: BEGIN
709:
710: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version_number, G_PKG_NAME, G_FILE_NAME) THEN
711: RAISE FND_API.G_EXC_ERROR;
712: END IF;
713:
714: IF p_init_msg_list
707:
708: BEGIN
709:
710: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version_number, G_PKG_NAME, G_FILE_NAME) THEN
711: RAISE FND_API.G_EXC_ERROR;
712: END IF;
713:
714: IF p_init_msg_list
715: THEN
730: , x_mesg_token_tbl => l_out_mesg_token_tbl
731: );
732: l_mesg_token_tbl := l_out_mesg_token_tbl;
733:
734: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
735: THEN
736: EAM_PROCESS_WO_PVT.Set_Debug('N');
737: END IF;
738: END IF;
743: , x_mesg_token_tbl => l_out_Mesg_Token_Tbl
744: , x_return_status => l_return_status
745: );
746:
747: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
748: RAISE fnd_api.g_exc_unexpected_error;
749: END IF;
750:
751: IF (p_commit = FND_API.G_TRUE) THEN
744: , x_return_status => l_return_status
745: );
746:
747: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
748: RAISE fnd_api.g_exc_unexpected_error;
749: END IF;
750:
751: IF (p_commit = FND_API.G_TRUE) THEN
752: COMMIT;
747: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
748: RAISE fnd_api.g_exc_unexpected_error;
749: END IF;
750:
751: IF (p_commit = FND_API.G_TRUE) THEN
752: COMMIT;
753: END IF;
754:
755: x_return_status := l_return_status;
753: END IF;
754:
755: x_return_status := l_return_status;
756: EXCEPTION
757: WHEN fnd_api.g_exc_unexpected_error THEN
758: ROLLBACK TO CLEARANCE_WO_ASSOCIATION;
759: x_return_status := FND_API.G_RET_STS_ERROR;
760:
761: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y'
755: x_return_status := l_return_status;
756: EXCEPTION
757: WHEN fnd_api.g_exc_unexpected_error THEN
758: ROLLBACK TO CLEARANCE_WO_ASSOCIATION;
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;
766:
767: WHEN OTHERS THEN
768:
769: ROLLBACK TO CLEARANCE_WO_ASSOCIATION;
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;
809: l_msg_count NUMBER;
810:
811: BEGIN
812:
813: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version_number, G_PKG_NAME, G_FILE_NAME) THEN
814: RAISE FND_API.G_EXC_ERROR;
815: END IF;
816:
817: IF p_init_msg_list
810:
811: BEGIN
812:
813: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version_number, G_PKG_NAME, G_FILE_NAME) THEN
814: RAISE FND_API.G_EXC_ERROR;
815: END IF;
816:
817: IF p_init_msg_list
818: THEN
833: , x_mesg_token_tbl => l_out_mesg_token_tbl
834: );
835: l_mesg_token_tbl := l_out_mesg_token_tbl;
836:
837: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
838: THEN
839: EAM_PROCESS_WO_PVT.Set_Debug('N');
840: END IF;
841: END IF;
847: , x_mesg_token_tbl => l_out_Mesg_Token_Tbl
848: , x_return_status => l_return_status
849: );
850:
851: IF (p_commit = FND_API.G_TRUE) THEN
852: COMMIT;
853: END IF;
854:
855: x_return_status := l_return_status;
853: END IF;
854:
855: x_return_status := l_return_status;
856: EXCEPTION
857: WHEN fnd_api.g_exc_unexpected_error THEN
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
855: x_return_status := l_return_status;
856: EXCEPTION
857: WHEN fnd_api.g_exc_unexpected_error THEN
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
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;
907: l_msg_count NUMBER;
908:
909: BEGIN
910:
911: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version_number, G_PKG_NAME, G_FILE_NAME) THEN
912: RAISE FND_API.G_EXC_ERROR;
913: END IF;
914:
915: IF p_init_msg_list
908:
909: BEGIN
910:
911: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version_number, G_PKG_NAME, G_FILE_NAME) THEN
912: RAISE FND_API.G_EXC_ERROR;
913: END IF;
914:
915: IF p_init_msg_list
916: THEN
931: , x_mesg_token_tbl => l_out_mesg_token_tbl
932: );
933: l_mesg_token_tbl := l_out_mesg_token_tbl;
934:
935: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
936: THEN
937: EAM_PROCESS_WO_PVT.Set_Debug('N');
938: END IF;
939: END IF;
944: , x_mesg_token_tbl => l_out_Mesg_Token_Tbl
945: , x_return_status => l_return_status
946: );
947:
948: IF (p_commit = FND_API.G_TRUE) THEN
949: COMMIT;
950: END IF;
951:
952: x_return_status := l_return_status;
951:
952: x_return_status := l_return_status;
953:
954: EXCEPTION
955: WHEN fnd_api.g_exc_unexpected_error THEN
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
953:
954: EXCEPTION
955: WHEN fnd_api.g_exc_unexpected_error THEN
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
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;