IF  EXISTS (SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N'[dbo].[NAHCIVAN_GELIR_DURUM_DIGER]') AND xtype in (N'FN', N'IF', N'TF'))
DROP FUNCTION [dbo].NAHCIVAN_GELIR_DURUM_DIGER
GO
CREATE FUNCTION [dbo].[NAHCIVAN_GELIR_DURUM_DIGER] (@BasTarih  datetime,@BitTarih datetime)  
RETURNS table AS  
return 


WITH NAHCIVAN_GELIR_RAPORU_CG
AS (
	SELECT HESAPISLID RecNo
		,*
	FROM (
		SELECT 'GENEL' TUR
			,VWHDOSYA.HDACIKLAMA AS HDGELISSEBEBI
			,SUM(VWYATIS.ADET) ADET
			,VWHESAPISL.HESAPISLID
			,VWHDOSYA.MDLTEDAVITURU
			,VWHDOSYA.HDTARIH
			,VWHDOSYA.GSSCIKISTARIHI
			,UNVANI
			,HTCKIMLIKNO
			,ADISOYADI + ' ' + HBABAADI AS ADISOYADI
			,HDTARIHI
			,HEVADRES
			,[dbo].[HDOSYA_ICD_LISTE](VWHDOSYA.HDOSYAID) AS TUMTANILAR
			,[dbo].[HDOSYA_ICD_LISTE_ONTANI](VWHDOSYA.HDOSYAID) AS ONTANILAR
			,[dbo].[HDOSYA_ICD_LISTE_KESINTANI](VWHDOSYA.HDOSYAID) AS KESINTANILAR
			,VWHESAPISL.ITEMADI
			,VWHESAPISL.ITEMFIYATI
			,VWHESAPISL.UYGDRADI
			,VWHESAPISL.ITEMKODU2
			,VWHESAPISL.UYGDRID
			,VWHESAPISL.FIYAT
			,DRYLISANS
			,VWHDOSYA.HKIMLIKID
			,VWHDOSYA.HDOSYAID
			,VWHDOSYA.PROVIZYONNO
			,VWHDOSYA.ANNEDOGUMDOSYANO,H.RAPORHK,0 HDOSYAID_GENEL
		FROM VWHDOSYA(NOLOCK)
		INNER JOIN HDOSYA(NOLOCK) H ON H.HDOSYAID=VWHDOSYA.HDOSYAID
		INNER JOIN VWHESAPISL(NOLOCK) ON VWHDOSYA.HDOSYAID = VWHESAPISL.HDOSYAID
		LEFT JOIN VWYATIS(NOLOCK) ON VWYATIS.HDOSYAID = VWHDOSYA.HDOSYAID
		INNER JOIN TDRKIMLIK(NOLOCK) ON VWHESAPISL.UYGDRID = TDRKIMLIK.DRID
		INNER JOIN VWHESAPISLDRM(NOLOCK) ON VWHESAPISLDRM.HESAPISLID = VWHESAPISL.HESAPISLID
		WHERE /*VWHDOSYA.MDLTEDAVITURU = 'A'
			AND*/ VWHESAPISL.IPTAL = 0
			AND VWHESAPISLDRM.DURUM = 2
			AND VWHDOSYA.ANNEDOGUMDOSYANO IS NULL
			AND DBO.TARIHAL(VWHDOSYA.HDTARIH) >= @BasTarih
			AND DBO.TARIHAL(VWHDOSYA.HDTARIH) <= @BitTarih
		GROUP BY H.RAPORHK,VWHDOSYA.HDOSYAID
			,VWHDOSYA.HDACIKLAMA
			,VWYATIS.ADET
			,VWHESAPISL.HESAPISLID
			,VWHDOSYA.MDLTEDAVITURU
			,VWHDOSYA.HDTARIH
			,VWHDOSYA.GSSCIKISTARIHI
			,UNVANI
			,HTCKIMLIKNO
			,ADISOYADI
			,HBABAADI
			,HDTARIHI
			,HEVADRES
			,VWHESAPISL.ITEMADI
			,VWHESAPISL.ITEMFIYATI
			,VWHESAPISL.UYGDRADI
			,VWHESAPISL.ITEMKODU2
			,VWHESAPISL.UYGDRID
			,VWHESAPISL.FIYAT
			,DRYLISANS
			,VWHDOSYA.HKIMLIKID
			,VWHDOSYA.PROVIZYONNO
			,VWHDOSYA.ANNEDOGUMDOSYANO		
		
		) AS T
	)


SELECT *
FROM NAHCIVAN_GELIR_RAPORU_CG
/*******/


UNION ALL

SELECT VWHESAPISL.HESAPISLID
	,'Bebek Dosyası(Anne Dosya No: ' + CAST(VWHDOSYA.ANNEDOGUMDOSYANO AS NVARCHAR) + ')'
	,VWHDOSYA.HDACIKLAMA AS HDGELISSEBEBI
	,SUM(VWYATIS.ADET) ADET
	,VWHESAPISL.HESAPISLID
	,VWHDOSYA.MDLTEDAVITURU
	,VWHDOSYA.HDTARIH
	,VWHDOSYA.GSSCIKISTARIHI
	,UNVANI
	,HTCKIMLIKNO
	,ADISOYADI + ' ' + HBABAADI AS ADISOYADI
	,HDTARIHI
	,HEVADRES
	,[dbo].[HDOSYA_ICD_LISTE](VWHDOSYA.HDOSYAID) AS TUMTANILAR
	,[dbo].[HDOSYA_ICD_LISTE_ONTANI](VWHDOSYA.HDOSYAID) AS ONTANILAR
	,[dbo].[HDOSYA_ICD_LISTE_KESINTANI](VWHDOSYA.HDOSYAID) AS KESINTANILAR
	,VWHESAPISL.ITEMADI
	,VWHESAPISL.ITEMFIYATI
	,VWHESAPISL.UYGDRADI
	,VWHESAPISL.ITEMKODU2
	,VWHESAPISL.UYGDRID
	,VWHESAPISL.FIYAT
	,DRYLISANS
	,VWHDOSYA.HKIMLIKID
	,VWHDOSYA.HDOSYAID
	,VWHDOSYA.PROVIZYONNO
	,VWHDOSYA.ANNEDOGUMDOSYANO
	,H.RAPORHK,0 HDOSYAID_GENEL
FROM VWHDOSYA(NOLOCK)
INNER JOIN HDOSYA(NOLOCK) H ON H.HDOSYAID=VWHDOSYA.HDOSYAID
INNER JOIN VWHESAPISL(NOLOCK) ON VWHDOSYA.HDOSYAID = VWHESAPISL.HDOSYAID
INNER JOIN TDRKIMLIK(NOLOCK) ON VWHESAPISL.UYGDRID = TDRKIMLIK.DRID
INNER JOIN VWYATIS(NOLOCK) ON VWYATIS.HDOSYAID = VWHDOSYA.HDOSYAID
INNER JOIN VWHESAPISLDRM(NOLOCK) ON VWHESAPISLDRM.HESAPISLID = VWHESAPISL.HESAPISLID
WHERE /*VWHDOSYA.MDLTEDAVITURU <> 'A'
	AND*/ VWHESAPISL.IPTAL = 0
	AND VWHESAPISLDRM.DURUM = 2
	AND VWHDOSYA.ANNEDOGUMDOSYANO IS NOT NULL
	AND EXISTS (
		SELECT *
		FROM NAHCIVAN_GELIR_RAPORU_CG
		WHERE NAHCIVAN_GELIR_RAPORU_CG.HDOSYAID = VWHDOSYA.ANNEDOGUMDOSYANO
		)
GROUP BY H.RAPORHK,VWHDOSYA.HDOSYAID
	,VWHDOSYA.HDACIKLAMA
	,VWYATIS.ADET
	,VWHESAPISL.HESAPISLID
	,VWHDOSYA.MDLTEDAVITURU
	,VWHDOSYA.HDTARIH
	,VWHDOSYA.GSSCIKISTARIHI
	,UNVANI
	,HTCKIMLIKNO
	,ADISOYADI
	,HBABAADI
	,HDTARIHI
	,HEVADRES
	,VWHESAPISL.ITEMADI
	,VWHESAPISL.ITEMFIYATI
	,VWHESAPISL.UYGDRADI
	,VWHESAPISL.ITEMKODU2
	,VWHESAPISL.UYGDRID
	,VWHESAPISL.FIYAT
	,DRYLISANS
	,VWHDOSYA.HKIMLIKID
	,VWHDOSYA.PROVIZYONNO
	,VWHDOSYA.ANNEDOGUMDOSYANO,RAPORHK
/*****/

--ORDER BY NAHCIVAN_GELIR_RAPORU_CG.HDOSYAID	,HDTARIH ASC
GO

