IF  EXISTS (SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N'[dbo].[ENT_YBBYS_YATAN_HASTA_LISTESI]') AND OBJECTPROPERTY(id,N'IsVIew') = 1)
BEGIN
    INSERT INTO SCRIPT_BACKUPS (SCRIPTNAME,SCRIPT,SCRIPTDATE) SELECT 'ENT_YBBYS_YATAN_HASTA_LISTESI' SCRIPTNAME,OBJECT_DEFINITION(OBJECT_ID('ENT_YBBYS_YATAN_HASTA_LISTESI')) AS SCRIPT,GETDATE() AS SCRIPTDATE
    DROP VIEW ENT_YBBYS_YATAN_HASTA_LISTESI
END
GO 
CREATE VIEW ENT_YBBYS_YATAN_HASTA_LISTESI
AS
SELECT SUBEID,HKIMLIKID [KimlikEntegreReferansKodu],
       HDOSYAID [HbysDosyaId],
	   HYATISID [HbysYatisId],
	   HADI [Adi],HSOYADI [Soyadi],
	   (SELECT YUPASNO FROM HKIMLIK WHERE HKIMLIKID=VWYATIS.HKIMLIKID) [YupassNo],
	   LDTARIHI [DogumTarihi],
	   LTCKIMLIKNO [TCNO],
	   HCINSIYETI,
	   CASE WHEN HCINSIYETI='E' THEN 0 WHEN HCINSIYETI='K' THEN 1 END [Cinsiyet],
	   HPASAPORT [PasaportNo]  ,
	   'Yatak '+HYODANO +' '+HYYATAKNO [Yatak Adı],
	   HYODANO +' '+HYYATAKNO  [ReferansKod],
	   UYGBIRIMADI [OdaAdi], UYGBIRIMID [HBYSOdaId],
	   3 [OdaBolumId],
	   1 [HastaneId],   
	
	   (SELECT SKRSKANGRUBUID FROM TKANGRUBU WHERE VWYATIS.HKANGRUBUID=KANGRUBUID) KanGrubuId,
	   (SELECT SKRSKANGRUBUID FROM TKANGRUBU WHERE VWYATIS.HKANGRUBUID=KANGRUBUID) KanGrubuAdi,
	   CASE WHEN HYYATISTIPI=0 THEN'Yatış'
		WHEN HYYATISTIPI=1 THEN 'Müşahade'
		WHEN HYYATISTIPI=2 THEN 'Yoğun Bakım'
		WHEN HYYATISTIPI=3 THEN 'Günübirlik Yatış' END HYYATISTIPIADI,
		HYYATISTIPI,
		
CASE WHEN HASTATIPI=0 THEN 'Erişkin'
WHEN HASTATIPI=1 THEN 'Çocuk'
WHEN HASTATIPI=2 THEN 'Yenidoğan' END HASTATIPIADI,

		
		HASTATIPI,
		(select TOP 1 ICDKOD  from hdosyaICD WHERE HDOSYAID=VWYATIS.HDOSYAID AND ICDTURUID=1 ORDER BY HDOSYAICDID)  [OnTani],
		(select TOP 1 ICDKOD  from hdosyaICD WHERE HDOSYAID=VWYATIS.HDOSYAID AND ICDTURUID=2 ORDER BY HDOSYAICDID)  [KesinTani],
dbo.HDOSYA_ICD_ICDTURLU_LISTE(HDOSYAID) DosyadakiIcdKodListesi,
 LBOLUM GonderenBolumadi,
HDBOLUMID Gonderenbolumid,
HDDRID [Hekimid],
LDOKTOR [HekimAdi],
NULL HemşireId,
NULL HemşireAdı,
 ANESTDRID takipedenHekimId,
(SELECT DRADI FROM TDRKIMLIK WHERE DRID=ANESTDRID) takipedenHekimAdi,
REFADISOYADI [HYAdiSoyadi],
(SELECT ISNULL(HCEP,HTEL) FROM HKIMLIK WHERE HKIMLIKID=REFID) [HastaYakınıTelefonu],	
(SELECT HEVADRES FROM HKIMLIK WHERE HKIMLIKID=REFID) [HYAdres],   
(SELECT TOP 1 BOY FROM HSAGBILGI WHERE HKIMLIKID=VWYATIS.HKIMLIKID) [Boy],
(SELECT TOP 1 KILO FROM HSAGBILGI WHERE HKIMLIKID=VWYATIS.HKIMLIKID) [Kilo],
(SELECT TOP 1 ILACALERJI FROM HSAGBILGI WHERE HKIMLIKID=VWYATIS.HKIMLIKID) [Alerjileri],
(SELECT TOP 1 ACIKLAMA FROM HSAGBILGI WHERE HKIMLIKID=VWYATIS.HKIMLIKID) [Alışkanlıkları],
(SELECT TOP 1 DUZKULILAC FROM HSAGBILGI WHERE HKIMLIKID=VWYATIS.HKIMLIKID) [Kullandığıİlaçlar],
(SELECT TOP 1 KRONIKHASTALIK FROM HSAGBILGI WHERE HKIMLIKID=VWYATIS.HKIMLIKID) [KronikRahatsızlıkarı],
HYYATISTARIH,CAST(HYYATISTARIH AS DATE) [YatisTarihi],CAST(HYYATISTARIH AS TIME) [YatisSaati],
HYCIKISTARIH,CAST(HYCIKISTARIH AS DATE) [CikisTarihi],CAST(HYCIKISTARIH AS TIME) [CikisSaati],
CASE WHEN DURUM=0 THEN 'Beklemede' when DURUM=1 then 'Yatıyor' when DURUM=2 then 'Taburcu' else 'İptal' end TaburcuDurumu,
DURUM TaburcuDurumuId,dbo.[HDOSYA_ANTIBIYOTIK_LISTE] (HDOSYAID)  [AntibiyotikAdi-Doz]
  FROM VWYATIS WHERE DURUM IN (1,2)  AND HYYATISTIPI=2  --and HDOSYAID=3479647

	    


	   