IF  EXISTS (SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N'[dbo].[SPUSS_000_XML_CEVAP_ISLE]') AND OBJECTPROPERTY(id,N'IsProcedure') = 1)
DROP PROCEDURE SPUSS_000_XML_CEVAP_ISLE
GO
CREATE PROCEDURE [dbo].[SPUSS_000_XML_CEVAP_ISLE] 
	@XMLCEVAP NVARCHAR(MAX),
	@ISLEMKODU NVARCHAR(50),
	@HDOSYAID INT,
	@TABLOID INT,
	@MINID INT,
	@MAXID INT
AS
BEGIN	
	
	DECLARE @HATA NVARCHAR(2000) = ''
	DECLARE @MESAJ NVARCHAR(2000) = ''
	
	DECLARE @XML1 XML = ''
	DECLARE @XML2 VARCHAR(MAX) = ''
	DECLARE @XML3 XML = ''
	DECLARE @SNOTAKIPNO VARCHAR(80) = ''
	DECLARE @SONUCKODU VARCHAR(20) = ''
	DECLARE @SONUCMESAJI VARCHAR(500) = ''
	DECLARE @SONUCMESAJI2 VARCHAR(100) = ''

	SET @XMLCEVAP = REPLACE(@XMLCEVAP,'<?xml version="1.0" encoding="utf-8" ?>','')
	SET @XMLCEVAP = RTRIM(LTRIM(@XMLCEVAP))


	begin try
		SET @XML1 = Cast(@XMLCEVAP as xml)
	end try
	begin catch
		begin try
			SET @XML1 =cast(replace(@XMLCEVAP, '&', '&amp;') as xml)
		end try
		begin catch
			SET @HATA = @HATA + 'Cevap XML Bozuk '+ISNULL(Error_message(),'')
		end catch		
	end catch

	IF CHARINDEX('schemas.xmlsoap.org/soap/envelope',@XMLCEVAP)>0
	BEGIN
		SET @XML2 = (SELECT @XML1.value ('declare namespace s =  "http://schemas.xmlsoap.org/soap/envelope/"; (/s:Envelope/s:Body/*)[1]','varchar(4000)') AS id)
		SET @XML2 = REPLACE(@XML2,'<?xml version="1.0" encoding="utf-8" ?>','')
		SET @XML2 = RTRIM(LTRIM(@XML2))

		begin try
			SET @XML1 = Cast(@XML2 as xml)
		end try
		begin catch
			begin try
				SET @XML1 =cast(replace(@XML2, '&', '&amp;') as xml)
			end try
			begin catch
				SET @HATA = @HATA + 'Cevap XML Bozuk '+ISNULL(Error_message(),'')
			end catch		
		end catch
	END

	SET @XML3 =  (SELECT CAST(REPLACE(CAST(@XML1 AS NVARCHAR(MAX)), 'encoding="utf-8"', '') AS XML) AS DataXml)	
	
	SET @SONUCKODU = ISNULL((	SELECT	T.C.value('@value', 'varchar(100)') AS SONUCKODU
						FROM	@XML3.nodes('(/SYSMessage/recordData/KayitCevabi/sonucKodu)') AS T(C)),'')

	SET @SONUCMESAJI = ISNULL((	SELECT T.C.value('@value', 'varchar(1000)') AS SONUCMESAJI
							FROM @XML3.nodes('(/SYSMessage/recordData/KayitCevabi/sonucMesaji)') AS T(C)),'')

							
	IF @ISLEMKODU = '101'--HASTA KAYIT
	BEGIN
		SET @SNOTAKIPNO = (	SELECT T.C.value('@value', 'varchar(100)') as SNOTAKIPNO
							FROM @XML3.nodes('(/SYSMessage/recordData/KayitCevabi/SYSTakipNo)') as T(C))	
		IF @SONUCKODU = 'E2033' 
		BEGIN
			SET @MESAJ = @MESAJ + '101 - Hastanın USS hasta kaydı daha önce yapıldığı için önceki takip numarası sisteme kaydedildi'
			IF @SNOTAKIPNO<>''
				UPDATE HDOSYA SET HDOSYA.SNOTAKIPNO = @SNOTAKIPNO WHERE HDOSYA.HDOSYAID = @HDOSYAID AND HDOSYA.SNOTAKIPNO<>@SNOTAKIPNO				
		END
		ELSE IF @SONUCKODU = 'S0000'
		BEGIN
			IF @SNOTAKIPNO=''
				SET @HATA = @HATA + '101 - Takip numarası alınamadı'
			ELSE
			BEGIN
				UPDATE HDOSYA SET HDOSYA.SNOTAKIPNO = RTRIM(@SNOTAKIPNO) WHERE HDOSYA.HDOSYAID = @HDOSYAID
				UPDATE HESAPISL SET SNKAYDET=1 FROM HESAPISL H
                INNER JOIN TITEM T ON H.ITEMID=T.ITEMID
                WHERE ITEMKODU2='510090' AND ITEMTURUID='6' AND IIPTAL=0 AND IPTAL=0 AND H.MDLKAYDET=0 AND H.SNKAYDET=0	AND	H.HDOSYAID=@HDOSYAID
				SET @MESAJ = @MESAJ + '101 - USS sistemine hasta kaydı başarıyla yapıldı'
			END			
		END	
		ELSE 
		BEGIN
			SET @HATA = @HATA + '101 - USS sisteminden alınan hata :'+@SONUCKODU+' '+@SONUCMESAJI
			
		END
	END

	IF @ISLEMKODU = '102' --HIZMET KAYIT
	BEGIN
		IF @SONUCKODU = 'S0000'
		BEGIN		
				UPDATE TBL SET TBL.SNOgoNDERILDI = 1 
				FROM VWSNOMUAYENEISLEMLERI TBL
				WHERE TBL.HDOSYAID = @HDOSYAID
				AND (@TABLOID=0 OR TBL.HESAPISLID = @TABLOID)
				AND (@MINID=0 OR TBL.HESAPISLID>=@MINID)
				AND (@MAXID=0 OR TBL.HESAPISLID<=@MAXID)			
				
				SET @MESAJ = @MESAJ + '102 - USS sistemine hizmet kaydı başarıyla yapıldı'			
		END	
		ELSE 
		BEGIN
			SET @HATA = @HATA + '102 - Hizmet kaydında USS sisteminden alınan hata :'+@SONUCKODU+' '+@SONUCMESAJI
			
		END
	END

	
	IF @ISLEMKODU = '402' --SYS TAKIP NO SORGULAMA
	BEGIN
		IF (( @SONUCKODU = 'S0000' ) OR  (@SONUCKODU = ''))
		BEGIN		
						
				
				SET @MESAJ = @MESAJ + '402 - USS sisteminde takip no sorgulama başarıyla yapıldı'			
		END	
		ELSE 
		BEGIN
			SET @HATA = @HATA + '402 - Hasta takip no sorgulamasında USS sisteminden alınan hata :'+@SONUCKODU+' '+@SONUCMESAJI
			
		END
	END

	IF @ISLEMKODU = '302' --HIZMET SILME
	BEGIN
		IF @SONUCKODU = 'S0000'
		BEGIN		
				UPDATE TBL SET TBL.SNOgoNDERILDI = 0 
				FROM VWSNOMUAYENEISLEMLERI TBL
				WHERE TBL.HDOSYAID = @HDOSYAID
				AND (@TABLOID=0 OR TBL.HESAPISLID = @TABLOID)
				AND (@MINID=0 OR TBL.HESAPISLID>=@MINID)
				AND (@MAXID=0 OR TBL.HESAPISLID<=@MAXID)			
				
				SET @MESAJ = @MESAJ + '302 - USS sistemine hizmet kaydı başarıyla yapıldı'			
		END	
		ELSE 
		BEGIN
			SET @HATA = @HATA + '302 - Hizmet kaydında USS sisteminden alınan hata :'+@SONUCKODU+' '+@SONUCMESAJI
			
		END
	END

	IF @ISLEMKODU = '304' --NAKIL IPTAL 
	BEGIN
		IF @SONUCKODU = 'S0000'
		BEGIN		
				UPDATE HDOSYA SET HASTANAKILBILGILERIGONDERILDI = 0 
				FROM HDOSYA 
				WHERE HDOSYAID = @HDOSYAID			
				
				SET @MESAJ = @MESAJ + '304- USS sistemine Nakil İptali başarıyla yapıldı'			
		END	
		ELSE 
		BEGIN
			SET @HATA = @HATA + '304 - Nakil İptali USS sisteminden alınan hata :'+@SONUCKODU+' '+@SONUCMESAJI
			
		END
	END

	IF @ISLEMKODU = '262' --HASTA NAKIL BILGILERI
	BEGIN
		IF @SONUCKODU = 'S0000'
		BEGIN		
				UPDATE HDOSYA SET HASTANAKILBILGILERIGONDERILDI = 1 
				FROM HDOSYA 
				WHERE HDOSYAID = @HDOSYAID			
				
				SET @MESAJ = @MESAJ + '262 - USS sistemine Hasta nakil bilgileri kaydı başarıyla yapıldı'			
		END	
		ELSE 
		BEGIN
			SET @HATA = @HATA + '262 - Hasta nakil bilgileri kaydında USS sisteminden alınan hata :'+@SONUCKODU+' '+@SONUCMESAJI
			
		END
	END

	IF @ISLEMKODU = '272' --HASTA KAN TRANSFUZYON BILGILERI
	BEGIN
		IF @SONUCKODU = 'S0000'
		BEGIN		
				UPDATE HYATISKANTRANSFUZYONU SET USSKANTRANSFUZYONGONDERILDI = 1 
				FROM HYATISKANTRANSFUZYONU 
				WHERE HDOSYAID = @HDOSYAID AND TRANSFUZYONID=@TABLOID		
				
				SET @MESAJ = @MESAJ + '272 - USS sistemine Hasta kan transfüzyon bilgileri kaydı başarıyla yapıldı'			
		END	
		ELSE 
		BEGIN
			SET @HATA = @HATA + '272 - Hasta kan transfüzyon bilgileri kaydında USS sisteminden alınan hata :'+@SONUCKODU+' '+@SONUCMESAJI
			
		END
	END


	IF @ISLEMKODU = '267' -- YENIDOGAN_KAYIT
	BEGIN
		IF @SONUCKODU = 'S0000'
		BEGIN		
			--	UPDATE HYATISKANTRANSFUZYONU SET USSKANTRANSFUZYONGONDERILDI = 1 
				--FROM HYATISKANTRANSFUZYONU 
			--	WHERE HDOSYAID = @HDOSYAID AND TRANSFUZYONID=@TABLOID		
				
				SET @MESAJ = @MESAJ + '267 - USS sistemine Yenidoğan kaydı başarıyla yapıldı'			
		END	
		ELSE 
		BEGIN
			SET @HATA = @HATA + '267 - Yenidoğan kaydında USS sisteminden alınan hata :'+@SONUCKODU+' '+@SONUCMESAJI
			
		END
	END



	IF @ISLEMKODU = '500' --YOGUN BAKIM DEGERLENDIRME KAYIT 
	BEGIN
		IF @SONUCKODU = 'S0000'
		BEGIN		
				UPDATE HYBBYS SET GONDERILDI = 1 
				FROM HYBBYS 
				WHERE HDOSYAID = @HDOSYAID	
				AND (@TABLOID=0 OR HYBBYS.HYATISID = @TABLOID)
				AND (@MINID=0 OR HYBBYSID=@MINID)
		
				SET @MESAJ = @MESAJ + '500 - USS sistemine Hasta Yoğun Bakım değerlendirme bilgileri kaydı başarıyla yapıldı'			
		END	
		ELSE 
		BEGIN
			SET @HATA = @HATA + '500 -  Hasta Yoğun Bakım değerlendirme bilgileri kaydında USS sisteminden alınan hata :'+@SONUCKODU+' '+@SONUCMESAJI
			
		END
	END

	IF @ISLEMKODU = '303' --IZLEM SILME
	BEGIN
		IF @SONUCKODU = 'S0000'
		BEGIN		
				UPDATE TBL SET TBL.OZELLIKLIIZLEMGONDERILDI = 0 
				FROM HYIZLEM TBL
				INNER JOIN HYOZELLIKLIIZLEM HYO ON HYO.HYIZLEMID = TBL.HYIZLEMID
				WHERE HYO.HDOSYAID = @HDOSYAID
				AND (@TABLOID=0 OR TBL.HYIZLEMID = @TABLOID)
				AND (@MINID=0 OR TBL.HYIZLEMID>=@MINID) 
				AND (@MAXID=0 OR TBL.HYIZLEMID<=@MAXID)			
				
				SET @MESAJ = @MESAJ + '303 - USS sistemine izlem silme başarıyla yapıldı'			
		END	
		ELSE 
		BEGIN
			SET @HATA = @HATA + '303 - İzlem silmede USS sisteminden alınan hata :'+@SONUCKODU+' '+@SONUCMESAJI
			
		END
	END


	IF @ISLEMKODU = '103' --MUAYENE KAYIT
	BEGIN
		IF @SONUCKODU = 'S0000'
		BEGIN	
		
				UPDATE  HMUAYENEISL SET HMUAYENEISL.SNOMUAYENEgoNDERILDI=1
				FROM HMUAYENE WITH(NOLOCK)
				 LEFT JOIN HMUAYENEISL WITH(NOLOCK) ON HMUAYENEISL.HMUAYENEID = HMUAYENE.HMUAYENEID 
				 LEFT JOIN HESAPISL WITH(NOLOCK) ON HESAPISL.HESAPISLID = HMUAYENEISL.HESAPISLID				 
				WHERE HESAPISL.IPTAL = 0 AND HESAPISL.ONAYLI=1 AND HESAPISL.TEKLIF=0
				 AND	HMUAYENE.HDOSYAID =  @HDOSYAID
				-- AND	(@TABLOID=0 OR HMUAYENE.HMUAYENEID =@TABLOID)	CURSOR YANLIŞ ÇALIŞTIĞI İÇİN KAPATTIK AYCA20200827

				UPDATE  HYATIS SET HYATIS.SNOMUAYENEgoNDERILDI=1
				FROM HMUAYENE WITH(NOLOCK)
				 LEFT JOIN HYATIS WITH(NOLOCK) ON HYATIS.HMUAYENEID = HMUAYENE.HMUAYENEID
				 LEFT JOIN HESAPISL WITH(NOLOCK) ON HESAPISL.HESAPISLID = HYATIS.HESAPISLID				 
				WHERE HESAPISL.IPTAL = 0 AND HESAPISL.ONAYLI=1 AND HESAPISL.TEKLIF=0
				 AND	HMUAYENE.HDOSYAID =  @HDOSYAID
				 AND	(@TABLOID=0 OR HMUAYENE.HMUAYENEID =@TABLOID)		
				
				SET @MESAJ = @MESAJ + '103 - USS sistemine muayene kaydı başarıyla yapıldı'			
		END	
		ELSE 
		BEGIN
			SET @HATA = @HATA + '103 - Muayene Kaydında USS sisteminden alınan hata :'+@SONUCKODU+' '+@SONUCMESAJI
		
		END
	END


	IF @ISLEMKODU IN ('105', '201', '409') --LAP, PATALOJI, RADYOLOJI KAYIT
	BEGIN
		IF @SONUCKODU = 'S0000'
		BEGIN	
		
			UPDATE VT SET VT.USSTETKIKgoNDERILDI = 1 
			FROM VWTETKIK VT
			LEFT JOIN TBOLUM AS UYGBOLUM WITH(NOLOCK) ON UYGBOLUM.BOLUMID = VT.UYGBOLUMID
			LEFT JOIN TBOLUM AS ISTBOLUM WITH(NOLOCK) ON ISTBOLUM.BOLUMID = VT.ISTBOLUMID			
			WHERE		VT.HDOSYAID = @HDOSYAID
					AND (@TABLOID = 0 OR VT.HTETKIKKARTID = @TABLOID)
					AND VT.DURUM = 2
					AND VT.SNOgoNDERILDI = 1 --HİZMET KAYDI YAPILMIŞ
					AND ISNULL(ISTBOLUM.SNgoNDERILMESIN,0)=0	
					AND				
						(
							(	
								@ISLEMKODU = '105'
								AND UYGBOLUM.KLINIKKODU NOT IN('104', '130', '178', '182', '194', '155')								
							)
							OR
							(	
								@ISLEMKODU = '201'						
								AND UYGBOLUM.KLINIKKODU IN('182', '194', '155')
							)
							OR
							(	
								@ISLEMKODU = '409'
								AND UYGBOLUM.KLINIKKODU IN('104', '130', '178')
							)				
						)
			SET @MESAJ = @MESAJ + @ISLEMKODU +'- USS sistemine tetkik kaydı başarıyla yapıldı'							
		END	
		ELSE 
		BEGIN
			SET @HATA = @HATA + @ISLEMKODU+'- USS sisteminden alınan hata :'+@SONUCKODU+' '+@SONUCMESAJI
	
		END
	END

	IF @ISLEMKODU = '106' --Çıkış bildirimi
	BEGIN
		IF @SONUCKODU = 'S0000'
		BEGIN	
		
				UPDATE HY SET HY.SNOYATISCIKISgoNDERILDI= 1
			FROM HYATIS HY			 			
			WHERE HY.HDOSYAID = @HDOSYAID --AND (@TABLOID=0 OR @TABLOID=HY.HYATISID)				
			SET @MESAJ = @MESAJ + '106- USS sistemine yatış çıkış bildirimi başarıyla yapıldı'			
		END	
		ELSE 
		BEGIN
			SET @HATA = @HATA + '106- Çıkış bildiriminde USS sisteminden alınan hata :'+@SONUCKODU+' '+@SONUCMESAJI
		
		END
	END

	IF @ISLEMKODU = '251' --Pandemi Asi Sonrasi Istenmeyen Etki
	BEGIN
		IF @SONUCKODU = 'S0000'
		BEGIN		
				UPDATE HUSS251VERISETI SET GONDERILDI = 1 
				FROM HUSS251VERISETI 
				WHERE HDOSYAID = @HDOSYAID	AND HUSS251VERISETIID = @TABLOID	
				
				SET @MESAJ = @MESAJ + '251 - USS sistemine Pandemi aşı sonrası istenmeyen etki bilgileri kaydı başarıyla yapıldı'			
		END	
		ELSE 
		BEGIN
			SET @HATA = @HATA + '251 - Pandemi aşı sonrası istenmeyen etki bilgileri kaydında USS sisteminden alınan hata :'+@SONUCKODU+' '+@SONUCMESAJI
			
		END
	END

	IF @ISLEMKODU = '244' --Özellikli izlem kayıt
	BEGIN
		IF @SONUCKODU = 'S0000'
		BEGIN	
		
				UPDATE HYI SET HYI.OZELLIKLIIZLEMGONDERILDI = 1 
				FROM HYIZLEM HYI
				INNER JOIN HYOZELLIKLIIZLEM HYOI ON HYOI.HYIZLEMID=HYI.HYIZLEMID				
				WHERE HYOI.HDOSYAID = @HDOSYAID AND (@TABLOID=0 OR @TABLOID=HYI.HYIZLEMID)				
				
				
				SET @MESAJ = @MESAJ + '244- USS sistemine özellikli izlem kaydı başarıyla yapıldı'			
		END	
		ELSE 
		BEGIN
			SET @HATA = @HATA + '244- Özellikli izlem kaydında USS sisteminden alınan hata :'+@SONUCKODU+' '+@SONUCMESAJI	
				
		END
	END	

	IF @ISLEMKODU = '502' --Yoğun bakım kayıt
	BEGIN
		IF @SONUCKODU = 'S0000'
		BEGIN	
		
				UPDATE HY SET HY.YOGUNBAKIMgoNDERILDI = 1 
				FROM HYATIS HY				
				WHERE HY.HDOSYAID = @HDOSYAID --AND (@TABLOID=0 OR @TABLOID=HY.HYATISID)				
				
				UPDATE HESAPISL SET SNKAYDET=0 FROM HESAPISL H
                INNER JOIN TITEM T ON H.ITEMID=T.ITEMID
                WHERE ITEMKODU2='510090' AND ITEMTURUID='6' AND IIPTAL=0 AND IPTAL=0 AND H.MDLKAYDET=0 AND H.SNKAYDET=1	AND	H.HDOSYAID=@HDOSYAID
				
				SET @MESAJ = @MESAJ + '502- USS sistemine yoğun bakım kaydı başarıyla yapıldı'			
		END	
		ELSE 
		BEGIN
			SET @HATA = @HATA + '502- Yoğun bakım kaydında USS sisteminden alınan hata :'+@SONUCKODU+' '+@SONUCMESAJI	
				
		END
	END	

	IF @ISLEMKODU = '236' --Kuduz İzlem 
	BEGIN
		IF @SONUCKODU = 'S0000'
		BEGIN	
		
				UPDATE HKUDUZPROFILAKSIIZLEM SET SNOGONDERILDI = 1 
				FROM HKUDUZPROFILAKSIIZLEM 				
				WHERE HDOSYAID= @HDOSYAID --AND (@TABLOID=0 OR @TABLOID=HY.HYATISID)				
				
				
				SET @MESAJ = @MESAJ + '236- USS sistemine kuduz izlem kaydı başarıyla yapıldı'			
		END	
		ELSE 
		BEGIN
			SET @HATA = @HATA + '236- Kuduz izlem kaydında USS sisteminden alınan hata :'+@SONUCKODU+' '+@SONUCMESAJI	
				
		END
	END	

	IF @ISLEMKODU = '237' --Kuduz İzlem 
	BEGIN
		IF @SONUCKODU = 'S0000'
		BEGIN	
		
				UPDATE HKUDUZRISKLITEMAS SET SNOGONDERILDI = 1 
				FROM HKUDUZRISKLITEMAS 				
				WHERE HDOSYAID= @HDOSYAID --AND (@TABLOID=0 OR @TABLOID=HY.HYATISID)				
				
				
				SET @MESAJ = @MESAJ + '237- USS sistemine Kuduz riskli temas kaydı başarıyla yapıldı'			
		END	
		ELSE 
		BEGIN
			SET @HATA = @HATA + '237- Kuduz riskli temas kaydında USS sisteminden alınan hata :'+@SONUCKODU+' '+@SONUCMESAJI	
				
		END
	END	
	
	IF @ISLEMKODU = '242' -- 242 Enfeksiyon Etkeni Bildirim Veri Seti
	BEGIN
		IF @SONUCKODU = 'S0000'
		BEGIN	
		
				UPDATE ENFEKSIYONETKENBILDIRIM SET SNOGONDERILDI = 1 
				FROM ENFEKSIYONETKENBILDIRIM 				
				WHERE HDOSYAID= @HDOSYAID --AND (@TABLOID=0 OR @TABLOID=HY.HYATISID)				
				
				
				SET @MESAJ = @MESAJ + '242 - Enfeksiyon Etkeni Bildirim başarıyla yapıldı'			
		END	
		ELSE 
		BEGIN
			SET @HATA = @HATA + '242 - Enfeksiyon Etkeni Bildirim kaydında USS sisteminden alınan hata :'+@SONUCKODU+' '+@SONUCMESAJI	
				
		END
	END	
				



	IF @ISLEMKODU = '700' --HIZMET KAYIT
	BEGIN
		IF @SONUCKODU = 'E8000' 
		BEGIN
			SET @SONUCMESAJI= (	SELECT T.C.value('SonucMesaji[1]', 'varchar(100)') as SONUCMESAJI1
				FROM @XML3.nodes('(/SYSMessage/recordData/KayitCevabi/SGKBildirimKontrol/DokumanKontrol/SGKBildirimKontrolSonuc[1])') as T(C))

			SET @SONUCMESAJI2= (	SELECT T.C.value('SonucMesaji[1]', 'varchar(100)') as SONUCMESAJI2
				FROM @XML3.nodes('(/SYSMessage/recordData/KayitCevabi/SGKBildirimKontrol/DokumanKontrol/SGKBildirimKontrolSonuc[2])') as T(C))
			
			IF @SONUCMESAJI IS NULL
				SET @SONUCMESAJI= ''
			
			IF @SONUCMESAJI2 IS NULL
				SET @SONUCMESAJI2= ''								
	
			SET @HATA = @HATA + '700- Hizmet kaydında USS sisteminden alınan hata :'+@SONUCKODU+' '+@SONUCMESAJI+ ' '+@SONUCMESAJI2	
						
		END
		ELSE IF @SONUCKODU = 'S0000'
		BEGIN		
				UPDATE TBL SET TBL.ENABIZISLEMBILDIRIM = 1 
				FROM VWSNOMUAYENEISLEMLERI TBL
				WHERE TBL.HDOSYAID = @HDOSYAID
				AND (@TABLOID=0 OR TBL.HESAPISLID = @TABLOID)
				AND (@MINID=0 OR TBL.HESAPISLID>=@MINID)
				AND (@MAXID=0 OR TBL.HESAPISLID<=@MAXID)			
				
				SET @MESAJ = @MESAJ + '700- USS sistemine işlem bildirim kaydı başarıyla yapıldı'			
		END	
		ELSE 
		BEGIN
			SET @HATA = @HATA + '700- Hizmet kaydında USS sisteminden alınan hata :'+@SONUCKODU+' '+@SONUCMESAJI				
								
		END
	END

	IF @ISLEMKODU = '252' --
	BEGIN
		IF @SONUCKODU = 'S0000'
		BEGIN	
		
			UPDATE HMISL SET HMISL.SNKONgoNDERILDI = 1 
			FROM HMUAYENEISL HMISL 
			JOIN HMUAYENE HM ON HM.HMUAYENEID = HMISL.HMUAYENEID
			JOIN HESAPISL ON HESAPISL.HESAPISLID =HMISL.HESAPISLID 
			WHERE HM.HDOSYAID = @HDOSYAID AND (@TABLOID=0 OR @TABLOID=HMISL.HMUAYENEISLID)	
			AND HESAPISL.IPTAL = 0 AND HESAPISL.ONAYLI = 1 AND HESAPISL.TEKLIF = 0 							
				
				
				SET @MESAJ = @MESAJ + '252- USS sistemine Konsültasyon kaydı başarıyla yapıldı'			
		END	
		ELSE 
		BEGIN
			SET @HATA = @HATA + '252- Konsültasyon kaydında USS sisteminden alınan hata :'+@SONUCKODU+' '+@SONUCMESAJI	
				
		END
	END		


		IF @ISLEMKODU = '101262'--HASTA KAYIT NAKIL
	BEGIN
		SET @SNOTAKIPNO = (	SELECT T.C.value('@value', 'varchar(100)') as SNOTAKIPNO
							FROM @XML3.nodes('(/SYSMessage/recordData/KayitCevabi/SYSTakipNo)') as T(C))	
		IF @SONUCKODU = 'E2033' 
		BEGIN
			SET @HATA = @HATA + '101 - Hastanın USS hasta kaydı daha önce yapıldığı için önceki takip numarası sisteme kaydedildi'
			
		END
		IF @SONUCKODU = 'S0000'
		BEGIN
			IF @SNOTAKIPNO=''
				SET @HATA = @HATA + '101 - Hasta Nakil işlemi için takip numarası alınamadı'
			ELSE
			BEGIN
				UPDATE HNAKILBILGILERI SET HNAKILSNOTAKIPNO = RTRIM(@SNOTAKIPNO) WHERE HDOSYAID = @HDOSYAID
				AND HNAKILBILGILERIID = @TABLOID	
				

				SET @MESAJ = @MESAJ + '101 - Hasta Nakil işlemi için USS sistemine hasta kaydı başarıyla yapıldı'
			END			
		END	
		ELSE 
		BEGIN
			SET @HATA = @HATA + '101262 -Hasta Nakil işlemi USS sisteminden alınan hata :'+@SONUCKODU+' '+@SONUCMESAJI
			
		END
	END


	IF @HATA<>''
	BEGIN
		SET @HATA = CONVERT(VARCHAR, @HDOSYAID) + ' numaralı dosya için ' + @HATA;
	END
	IF @MESAJ<>'' 
		SET @MESAJ = CONVERT(VARCHAR, @HDOSYAID) + ' numaralı dosya için ' + @MESAJ;
	

	SELECT	@HATA AS HATA, 
			@MESAJ AS MESAJ
END
