ALTER VIEW [dbo].[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],
	   HYODANO [ReferansOdaNo] ,
	   HYYATAKNO [ReferansYatakNo],
	    
	   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=1 THEN 'Erişkin'
		     WHEN HASTATIPI=2 THEN 'Çocuk'
		     WHEN HASTATIPI=3 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,
dbo.HDOSYA_ICDKOD_LISTE(HDOSYAID) DosyadakiIcdKodListesiHepsi,
dbo.HDOSYA_ICD_LISTE_ONTANI_ICDKOD(HDOSYAID) DosyadakiIcdKodListesi_OnTani,
dbo.HDOSYA_ICD_LISTE_KESINTANI_ICDKOD(HDOSYAID) DosyadakiIcdKodListesi_KesinTani,
LBOLUM GonderenBolumadi,
HDBOLUMID Gonderenbolumid,
HDDRID [Hekimid],
LDOKTOR [HekimAdi],
UYGKLINIKKODU SKRSUygulayanBolumKodu,  
UYGKLINIKADI SKRSUygulayanBolumAdi  ,
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],SNOTAKIPNO,
BASAMAK, 
(select TOP 1 MDLYATAKKODU  from TYATAK WHERE ODANO=VWYATIS.HYODANO AND YATAKNO=VWYATIS.HYYATAKNO)  [MedulaYatakKodu]


  FROM VWYATIS WHERE DURUM IN (1,2)  --AND HYYATISTIPI=2  

	    

GO


