IF  EXISTS (SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N'[dbo].[AKTARIM_VWHESAPISL]') AND OBJECTPROPERTY(id,N'IsVIew') = 1)
BEGIN
    INSERT INTO SCRIPT_BACKUPS (SCRIPTNAME,SCRIPT,SCRIPTDATE) SELECT 'AKTARIM_VWHESAPISL' SCRIPTNAME,OBJECT_DEFINITION(OBJECT_ID('AKTARIM_VWHESAPISL')) AS SCRIPT,GETDATE() AS SCRIPTDATE
    DROP VIEW AKTARIM_VWHESAPISL
END
go


CREATE VIEW AKTARIM_VWHESAPISL
AS
SELECT hp2.ID AS Medisoft_DosyaNo,hp2.ID AS ProtokolId,hp2.HastaId as Medisoft_hkimlikId,hp2.HastaId as HastaNo, hp2.GelisTipiId,hp2.AcilisTarihi Medisoft_DosyaTarihi,hp2.KapanisTarihi Medisoft_DosyaKapanisTarihi,
       hp2.BolumId,DOSYA_BLM.Adi Medisoft_DosyaBolumu,DoktorId,isnull(IKP.Adi,'')+' ' +isnull(IKP.Soyadi,'') Medisoft_DosyaDr,
       hp2.CreatedByLoginId,hp2.CreatedDate, hp2.ModifiedByLoginId,hp2.ModifiedDate, 
	   hp2.state Medisoft_Dosya_State,case when hp2.state=0 then 1 else 0 end Medisoft_HDIPTAL,hp2.IptalAciklamaId Medisoft_Hdosya_IptalAciklamaId,hp2.IptalAciklamasi Medisoft_Hdosya_IptalAciklamasi,
	   /*hp2.YatisTipiId,*/hp2.ProtokolTipiId,HPT.Adi Medisoft_ProtokTipiAdi, hp2.IsKdvdenMuaf,

	   OH2.ID Medisoft_itemId,OH2.Kodu Medisoft_itemkodu,
	   CASE WHEN MalzemeId IS NULL THEN OH2.Adi ELSE (SELECT TOP 1 SM.Adi FROM MetCer.Stok.Malzeme SM WHERE SM.Id = HPI2.MalzemeId ) END Medisoft_Itemadi ,
	   CASE WHEN MalzemeId IS NULL THEN OH2.SUTKodu ELSE (SELECT TOP 1 SMBK.Barkod FROM MetCer.Stok.MalzemeBarkod SMBK WHERE SMBK.MalzemeId = HPI2.MalzemeId) END Medisoft_itemkodu2,
	   /*OH2.SUTKodu Medisoft_itemkodu2,*/
	   
	   OH2.SUTAdi Medisoft_ItemAdi2,OH2.TTBAdi,OH2.TTBBirimi, 
	   OH2.HizmetIslemTipiId,OH2.HizmetTipiId,ISLEMTIP.adi HizmetTipiAdi ,OH2.HizmetAltTipiId , ISLEMALTTIP.Adi HizmetAltTipiAdi  ,
	   OH2.CariFiyati Medisoft_TitemUcretliHastaFiyati,OH2.KDVOraniId,OH2.KDVOrani,OH2.MedulaHizmetTipiId , OH2.Maliyet Medisoft_TitemMaliyet,
	   HPI2.State Medisoft_hesapisl_state ,
	   HPI2.ID Medisoft_HesapislId,HPI2.IslemTarihi, HPI2.Miktar,(Select Tutar from 	MetCer.Hasta.ProtokolIslemTutar HPIT where HPIT.state>0 and HPIT.ProtokolIslemId=HPI2.ID)TUTAR,
	   HPI2.MedulaTipiId,
	   HPI2.IptalAciklamasi Medisoft_Hesapisl_IptalAciklamasi ,HPI2.IptalAciklamaId Medisoft_Hesapisl_IptalAciklamaId,
	   HPI2.OperationTypeId, 
	   HPI2.IsteyenPersonelId,isnull(IST_IKP.Adi,'')+' ' +isnull(IST_IKP.Soyadi,'') Medisoft_IstDrAdi, HPI2.IsteyenBolumId ,IST_BLM.Adi Medisoft_IstBolumAdi,
	   HPI2.UygulayanPersonelId,isnull(UYG_IKP.Adi,'')+' ' +isnull(UYG_IKP.Soyadi,'') Medisoft_UygDrAdi, HPI2.UygulayanBolumId,UYG_BLM.Adi Medisoft_UygBolumAdi,
	   HPI2.MalzemeId  ,
	   HPI2.CreatedByLoginId Medisoft_Hesapisl_kytUser,TT.KullaniciAdi KYTUSERADI ,HPI2.CreatedDate Medisoft_Hesapisl_KytTarihi,
	   HPI2.ModifiedByLoginId Medisoft_Hesapisl_SGKullanici,TT2.KullaniciAdi SGUSERADI ,HPI2.ModifiedDate Medisoft_Hesapisl_SGTarihi,
	   
	   
	   '********' SON
	   --,  *
FROM      MetCer.Hasta.Protokol HP2 (NOLOCK)
LEFT JOIN MetCer.Hasta.ProtokolIslem HPI2 (NOLOCK) ON HPI2.ProtokolId = HP2.Id
LEFT JOIN MetCer.Ortak.Hizmet OH2 (NOLOCK) ON OH2.Id = HPI2.HizmetId
LEFT JOIN MetCer.ORTAK.Bolum DOSYA_BLM(NOLOCK) ON DOSYA_BLM.Id=hp2.BolumId
LEFT JOIN MetCer.IK.Personel IKP (NOLOCK)on IKP.Id = hp2.DoktorId 
LEFT JOIN MetCer.ORTAK.Bolum IST_BLM(NOLOCK) ON IST_BLM.Id = HPI2.IsteyenBolumId
LEFT JOIN MetCer.IK.Personel IST_IKP(NOLOCK) on IST_IKP.Id = HPI2.IsteyenPersonelId 
LEFT JOIN MetCer.ORTAK.Bolum UYG_BLM(NOLOCK) ON UYG_BLM.Id = HPI2.UygulayanBolumId
LEFT JOIN MetCer.IK.Personel UYG_IKP(NOLOCK) on UYG_IKP.Id = HPI2.UygulayanPersonelId 
left JOIN MetCer.Hasta.ProtokolTipi HPT (NOLOCK) ON HPT.ProtokolTipiId=hp2.ProtokolTipiId
left join MetCer.Pusula.IslemTipi ISLEMTIP ON ISLEMTIP.ID =OH2.HizmetTipiId
left JOIN MetCer.Ortak.HizmetAltTipi ISLEMALTTIP ON ISLEMALTTIP.ID=OH2.HizmetAltTipiId 
left JOIN (SELECT SYSLOGIN.Id,SYSLOGIN.KullaniciId,SYSKUL.KullaniciAdi FROM MetCer.Sistem.Login SYSLOGIN INNER JOIN MetCer.Sistem.Kullanici SYSKUL ON SYSKUL.Id=SYSLOGIN.KullaniciId  WHERE KullaniciId>0 ) TT  ON TT.Id=HPI2.CreatedByLoginId
left JOIN (SELECT SYSLOGIN.Id,SYSLOGIN.KullaniciId,SYSKUL.KullaniciAdi FROM MetCer.Sistem.Login SYSLOGIN INNER JOIN MetCer.Sistem.Kullanici SYSKUL ON SYSKUL.Id=SYSLOGIN.KullaniciId  WHERE KullaniciId>0 ) TT2  ON TT2.Id=HPI2.ModifiedByLoginId

/* RAPORDA KULLANILACAK ÖRNEK SCRİPT BUNU EXE İÇİNDEN FR3 E KOYACACAĞIZ YADA EKRANA
select Medisoft_DosyaNo,Medisoft_itemkodu2  AS ResmiKodu,IslemTarihi,Medisoft_Itemadi,TUTAR,Miktar, 'Adet' Birim ,HizmetAltTipiAdi,  
      Medisoft_UygBolumAdi,Medisoft_UygDrAdi,Medisoft_IstBolumAdi,Medisoft_IstDrAdi, Medisoft_Hesapisl_KytTarihi, KYTUSERADI,Medisoft_itemId HizmetNo 
from AKTARIM_VWHESAPISL
WHERE Medisoft_HDIPTAL=0 and Medisoft_hesapisl_state>0
--Medisoft_HesapislId=251992
and Medisoft_DosyaNo=11330
ORDER BY Medisoft_itemkodu2
*/




