IF  EXISTS (SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N'[dbo].[FN_Muayene_Gozluk_Recete_Bilgileri]') AND xtype in (N'FN', N'IF', N'TF'))
DROP FUNCTION [dbo].[FN_Muayene_Gozluk_Recete_Bilgileri]
go

CREATE FUNCTION FN_Muayene_Gozluk_Recete_Bilgileri(@HMUAYENEID INT)
RETURNS TABLE
AS
RETURN
(
    WITH GozlukReceteleri AS (
        SELECT TOP 1 
            MdlEreceteNo,
			UZAK, UzakAKSSag, UzakCYLSag, UzakSPHSag, UzakSPHSol, UzakCYLSol, UzakAKSSol,
            YAKIN, YakinAKSSag, YakinCYLSag, YakinSPHSag, YakinSPHSol, YakinCYLSol, YakinAKSSol,
            MESLEKI, MeslekiAKSSag, MeslekiCYLSag, MeslekiSPHSag, MeslekiSPHSol, MeslekiCYLSol, MeslekiAKSSol,
            DAIMI, DaimiAKSSag, DaimiCYLSag, DaimiSPHSag, DaimiSPHSol, DaimiCYLSol, DaimiAKSSol
        FROM [GOZLUKRECETE] WITH (NOLOCK)
        WHERE HMUAYENEID = @HMUAYENEID AND ISNULL(MdlEreceteNo,'')<>''
        ORDER BY GOZLUKRECETEID DESC
    )
    SELECT STUFF((
        SELECT ', ' + Alanadi + ': ' + CAST(GozlukDeger AS VARCHAR(MAX))
        FROM GozlukReceteleri
        CROSS APPLY (
            VALUES
			    ('MedulaReceteNo', MdlEreceteNo),
                ('UzakAKSSag', UzakAKSSag),
                ('UzakCYLSag', UzakCYLSag),
                ('UzakSPHSag', UzakSPHSag),
                ('UzakSPHSol', UzakSPHSol),
                ('UzakCYLSol', UzakCYLSol),
                ('UzakAKSSol', UzakAKSSol),
                ('YakinAKSSag', YakinAKSSag),
                ('YakinCYLSag', YakinCYLSag),
                ('YakinSPHSag', YakinSPHSag),
                ('YakinSPHSol', YakinSPHSol),
                ('YakinCYLSol', YakinCYLSol),
                ('YakinAKSSol', YakinAKSSol),
                ('MeslekiAKSSag', MeslekiAKSSag),
                ('MeslekiCYLSag', MeslekiCYLSag),
                ('MeslekiSPHSag', MeslekiSPHSag),
                ('MeslekiSPHSol', MeslekiSPHSol),
                ('MeslekiCYLSol', MeslekiCYLSol),
                ('MeslekiAKSSol', MeslekiAKSSol),
                ('DaimiAKSSag', DaimiAKSSag),
                ('DaimiCYLSag', DaimiCYLSag),
                ('DaimiSPHSag', DaimiSPHSag),
                ('DaimiSPHSol', DaimiSPHSol),
                ('DaimiCYLSol', DaimiCYLSol),
                ('DaimiAKSSol', DaimiAKSSol)
        ) AS Detaylar(Alanadi, GozlukDeger)
        WHERE GozlukDeger IS NOT NULL
        FOR XML PATH(''), TYPE).value('.', 'NVARCHAR(MAX)'), 1, 2, '') AS GozlukReceteDetaylari
);

