You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
795 lines
35 KiB
795 lines
35 KiB
alter table behandlu alter column bemerkung varchar(2048)
|
|
go
|
|
DROP TABLE dbo.Gesetz
|
|
GO
|
|
|
|
/****** Object: Table [dbo].[Behandlungsart] Script Date: 27.05.2018 08:38:07 ******/
|
|
SET ANSI_NULLS ON
|
|
GO
|
|
SET QUOTED_IDENTIFIER ON
|
|
GO
|
|
SET ANSI_PADDING ON
|
|
GO
|
|
CREATE TABLE [dbo].[Behandlungsart](
|
|
[nrbehandlungsart] [int] IDENTITY(1,1) NOT NULL,
|
|
[Behandlungsart] [varchar](255) NULL,
|
|
[erstellt_am] [datetime] NULL,
|
|
[mutiert_am] [datetime] NULL,
|
|
[mutierer] [int] NULL,
|
|
[aktiv] [bit] NULL,
|
|
CONSTRAINT [PK_Behandlungsart] PRIMARY KEY CLUSTERED
|
|
(
|
|
[nrbehandlungsart] ASC
|
|
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
|
|
) ON [PRIMARY]
|
|
|
|
GO
|
|
SET ANSI_PADDING OFF
|
|
GO
|
|
/****** Object: Table [dbo].[Gesetz] Script Date: 27.05.2018 08:38:07 ******/
|
|
SET ANSI_NULLS ON
|
|
GO
|
|
SET QUOTED_IDENTIFIER ON
|
|
GO
|
|
SET ANSI_PADDING ON
|
|
GO
|
|
CREATE TABLE [dbo].[Gesetz](
|
|
[NrGesetz] [int] IDENTITY(1,1) NOT NULL,
|
|
[Gesetz] [varchar](255) NULL,
|
|
[erstellt_am] [datetime] NULL,
|
|
[mutiert_am] [datetime] NULL,
|
|
[mutierer] [int] NULL,
|
|
[aktiv] [bit] NULL,
|
|
CONSTRAINT [PK_Gesetz] PRIMARY KEY CLUSTERED
|
|
(
|
|
[NrGesetz] ASC
|
|
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
|
|
) ON [PRIMARY]
|
|
|
|
GO
|
|
SET ANSI_PADDING OFF
|
|
GO
|
|
SET IDENTITY_INSERT [dbo].[Behandlungsart] ON
|
|
|
|
GO
|
|
INSERT [dbo].[Behandlungsart] ([nrbehandlungsart], [Behandlungsart], [erstellt_am], [mutiert_am], [mutierer], [aktiv]) VALUES (1, N'', CAST(N'2018-05-27 00:00:00.000' AS DateTime), CAST(N'2018-05-27 00:00:00.000' AS DateTime), 1, 1)
|
|
GO
|
|
INSERT [dbo].[Behandlungsart] ([nrbehandlungsart], [Behandlungsart], [erstellt_am], [mutiert_am], [mutierer], [aktiv]) VALUES (2, N'ambulant', CAST(N'2018-05-27 00:00:00.000' AS DateTime), CAST(N'2018-05-27 00:00:00.000' AS DateTime), 1, 1)
|
|
GO
|
|
INSERT [dbo].[Behandlungsart] ([nrbehandlungsart], [Behandlungsart], [erstellt_am], [mutiert_am], [mutierer], [aktiv]) VALUES (3, N'stationär', CAST(N'2018-05-27 00:00:00.000' AS DateTime), CAST(N'2018-05-27 00:00:00.000' AS DateTime), 1, 1)
|
|
GO
|
|
SET IDENTITY_INSERT [dbo].[Behandlungsart] OFF
|
|
GO
|
|
SET IDENTITY_INSERT [dbo].[Gesetz] ON
|
|
|
|
GO
|
|
INSERT [dbo].[Gesetz] ([NrGesetz], [Gesetz], [erstellt_am], [mutiert_am], [mutierer], [aktiv]) VALUES (1, N'', CAST(N'2018-05-27 00:00:00.000' AS DateTime), CAST(N'2018-05-27 00:00:00.000' AS DateTime), 1, 1)
|
|
GO
|
|
INSERT [dbo].[Gesetz] ([NrGesetz], [Gesetz], [erstellt_am], [mutiert_am], [mutierer], [aktiv]) VALUES (2, N'UVG', CAST(N'2018-05-27 00:00:00.000' AS DateTime), CAST(N'2018-05-27 00:00:00.000' AS DateTime), 1, 1)
|
|
GO
|
|
SET IDENTITY_INSERT [dbo].[Gesetz] OFF
|
|
GO
|
|
ALTER TABLE dbo.Behandlu ADD NrBehandlungsart INT
|
|
GO
|
|
UPDATE dbo.Behandlu SET NrBehandlungsart=0
|
|
GO
|
|
/****** Object: UserDefinedFunction [dbo].[get_Behandlungsart] Script Date: 27.05.2018 08:50:05 ******/
|
|
DROP FUNCTION [dbo].[get_Behandlungsart]
|
|
GO
|
|
|
|
/****** Object: UserDefinedFunction [dbo].[get_Behandlungsart] Script Date: 27.05.2018 08:50:05 ******/
|
|
SET ANSI_NULLS ON
|
|
GO
|
|
|
|
SET QUOTED_IDENTIFIER ON
|
|
GO
|
|
|
|
-- =============================================
|
|
-- Author: <Author,,Name>
|
|
-- Create date: <Create Date, ,>
|
|
-- Description: <Description, ,>
|
|
-- =============================================
|
|
CREATE FUNCTION [dbo].[get_Behandlungsart]
|
|
(
|
|
|
|
@behandlungsnr INT
|
|
)
|
|
RETURNS VARCHAR(255)
|
|
AS
|
|
BEGIN
|
|
|
|
DECLARE @behandlungsart VARCHAR(255)
|
|
DECLARE @nr INT
|
|
SELECT @nr=ISNULL(NrBehandlungsart,0) FROM behandlu WHERE Nrbehandlung=@behandlungsnr
|
|
IF @nr=0 BEGIN
|
|
SET @behandlungsart=''
|
|
END ELSE BEGIN
|
|
SELECT @behandlungsart=behandlungsart FROM behandlungsart WHERE nrbehandlungsart=@nr
|
|
END
|
|
RETURN @behandlungsart
|
|
|
|
|
|
END
|
|
|
|
GO
|
|
|
|
|
|
/****** Object: StoredProcedure [dbo].[sp_get_fakturadata] Script Date: 27.05.2018 09:48:21 ******/
|
|
DROP PROCEDURE [dbo].[sp_get_fakturadata]
|
|
GO
|
|
|
|
/****** Object: StoredProcedure [dbo].[sp_get_fakturadata] Script Date: 27.05.2018 09:48:21 ******/
|
|
SET ANSI_NULLS ON
|
|
GO
|
|
|
|
SET QUOTED_IDENTIFIER ON
|
|
GO
|
|
|
|
-- =============================================
|
|
-- Author: <Author,,Name>
|
|
-- Create date: <Create Date,,>
|
|
-- Description: <Description,,>
|
|
-- =============================================
|
|
CREATE PROCEDURE [dbo].[sp_get_fakturadata]
|
|
@behandlungsnr INT ,
|
|
@typ INT ,
|
|
@betrag FLOAT = 0 ,
|
|
@rate INT = 0,
|
|
@verbuchen INT = 0,
|
|
@kopie INT = 0,
|
|
@ifakturanr INT = 0
|
|
AS
|
|
BEGIN
|
|
--INSERT __log (logeintrag) VALUES(@kopie)
|
|
DECLARE @rgdatum DATETIME
|
|
SET @rgdatum=GETDATE()
|
|
IF @kopie = 1 BEGIN
|
|
SELECT @rgdatum=datum FROM faktura WHERE Nrfaktura=@ifakturanr
|
|
end
|
|
DECLARE @type INT;
|
|
DECLARE @Tabelle_ohne_datum TABLE
|
|
(
|
|
[Typ] [INT] NULL ,
|
|
[SSO_Nummer] [VARCHAR](255) NULL ,
|
|
[Bezd] [VARCHAR](255) NULL ,
|
|
[Taxpunkte] [FLOAT] NULL ,
|
|
[Menge] [FLOAT] NULL ,
|
|
[Frankenprotaxpunkt] [FLOAT] NULL ,
|
|
[Absolut] [INT] NULL ,
|
|
[Leistungstotal] [FLOAT] NULL ,
|
|
[NrBehandlung] INT
|
|
);
|
|
DECLARE @Tabelle_mit_datum TABLE
|
|
(
|
|
[Typ] [INT] NULL ,
|
|
[Datum] [DATE] NULL ,
|
|
[SSO_Nummer] [VARCHAR](255) NULL ,
|
|
[Bezd] [VARCHAR](255) NULL ,
|
|
[Taxpunkte] [FLOAT] NULL ,
|
|
[Menge] [FLOAT] NULL ,
|
|
[Frankenprotaxpunkt] [FLOAT] NULL ,
|
|
[Absolut] [BIT] NULL ,
|
|
[Leistungstotal] [FLOAT] NULL ,
|
|
[nrbehandlu] INT
|
|
);
|
|
DECLARE @lr_tabelle_mit_Datum TABLE
|
|
(
|
|
pk INT NOT NULL
|
|
IDENTITY(1, 1) ,
|
|
[L_Datum] [DATE] NULL ,
|
|
[L_SSO_Nummer] [VARCHAR](255) NULL ,
|
|
[L_Bezd] [VARCHAR](255) NULL ,
|
|
[L_Taxpunkte] [FLOAT] NULL ,
|
|
[L_Menge] [FLOAT] NULL ,
|
|
[L_Frankenprotaxpunkt] [FLOAT] NULL ,
|
|
[L_Absolut] [BIT] NULL ,
|
|
[L_Leistungstotal] [FLOAT] NULL ,
|
|
[R_Datum] [DATE] NULL ,
|
|
[R_SSO_Nummer] [VARCHAR](255) NULL ,
|
|
[R_Bezd] [VARCHAR](255) NULL ,
|
|
[R_Taxpunkte] [FLOAT] NULL ,
|
|
[R_Menge] [FLOAT] NULL ,
|
|
[R_Frankenprotaxpunkt] [FLOAT] NULL ,
|
|
[R_Absolut] [BIT] NULL ,
|
|
[R_Leistungstotal] [FLOAT] NULL ,
|
|
PRIMARY KEY ( pk )
|
|
);
|
|
|
|
DECLARE @lr_tabelle_dentotar TABLE
|
|
(
|
|
pk INT NOT NULL
|
|
IDENTITY(1, 1) ,
|
|
datum DATE NULL ,
|
|
tarif VARCHAR(255) ,
|
|
tarifziffer VARCHAR(255) NULL ,
|
|
tariftext VARCHAR(255) NULL ,
|
|
bezugsziffer VARCHAR(255) NULL ,
|
|
si VARCHAR(255) NULL ,
|
|
st VARCHAR(255) NULL ,
|
|
anzahl INT NULL ,
|
|
tpal_preis DECIMAL(10, 2) NULL ,
|
|
f_al DECIMAL(10, 2) NULL ,
|
|
tpw_al DECIMAL(10, 2) NULL ,
|
|
f_tl DECIMAL(10, 2) NULL ,
|
|
tpw_tl DECIMAL(10, 2) NULL ,
|
|
a INT NULL ,
|
|
v INT NULL ,
|
|
p INT NULL ,
|
|
m INT NULL ,
|
|
betrag DECIMAL(10, 2) NULL PRIMARY KEY ( pk )
|
|
);
|
|
|
|
|
|
DECLARE @lr_tabelle_ohne_Datum TABLE
|
|
(
|
|
pk INT NOT NULL
|
|
IDENTITY(1, 1) ,
|
|
[L_SSO_Nummer] [VARCHAR](255) NULL ,
|
|
[L_Bezd] [VARCHAR](255) NULL ,
|
|
[L_Taxpunkte] [FLOAT] NULL ,
|
|
[L_Menge] [FLOAT] NULL ,
|
|
[L_Frankenprotaxpunkt] [FLOAT] NULL ,
|
|
[L_Absolut] [BIT] NULL ,
|
|
[L_Leistungstotal] [FLOAT] NULL ,
|
|
[R_SSO_Nummer] [VARCHAR](255) NULL ,
|
|
[R_Bezd] [VARCHAR](255) NULL ,
|
|
[R_Taxpunkte] [FLOAT] NULL ,
|
|
[R_Menge] [FLOAT] NULL ,
|
|
[R_Frankenprotaxpunkt] [FLOAT] NULL ,
|
|
[R_Absolut] [BIT] NULL ,
|
|
[R_Leistungstotal] [FLOAT] NULL ,
|
|
PRIMARY KEY ( pk )
|
|
);
|
|
|
|
DECLARE @Nrbehandlung AS INT ,
|
|
@Behandlungsbeginn AS DATE ,
|
|
@Behandlungsende AS DATE ,
|
|
@Patient AS VARCHAR(51) ,
|
|
@Behandler AS VARCHAR(51) ,
|
|
@Taxpunktwert AS FLOAT ,
|
|
@Rabatt AS FLOAT ,
|
|
@Total AS FLOAT ,
|
|
@Rechnungsbemerkung AS VARCHAR(255) ,
|
|
@Ratenzuschlag AS FLOAT ,
|
|
@Andrucken_Taxpunkte AS BIT ,
|
|
@Anzahlung AS FLOAT ,
|
|
@ESTyp INT ,
|
|
@Nrleistung AS INT ,
|
|
@Datum AS DATE ,
|
|
@SSO_Nummer AS VARCHAR(255) ,
|
|
@Taxpunkte AS FLOAT ,
|
|
@Menge AS FLOAT ,
|
|
@Frankenprotaxpunkt AS FLOAT ,
|
|
@Absolut AS BIT ,
|
|
@Leistungstotal AS FLOAT ,
|
|
@Bezd AS VARCHAR(255) ,
|
|
@@AdressZeile1 AS VARCHAR(255) ,
|
|
@AdressZeile2 AS VARCHAR(255) ,
|
|
@AdressZeile3 AS VARCHAR(255) ,
|
|
@AdressZeile4 AS VARCHAR(255) ,
|
|
@AdressZeile5 AS VARCHAR(255) ,
|
|
@Total_SSO AS FLOAT ,
|
|
@Total_Medikamente AS FLOAT ,
|
|
@Total_Labor AS FLOAT ,
|
|
@RabattTotal AS FLOAT ,
|
|
@Vorauszahlung AS FLOAT ,
|
|
@TotalTextblock AS VARCHAR(1024) ,
|
|
@TotalNumBlock AS VARCHAR(1024) ,
|
|
@Anzahlraten INT ,
|
|
@Ungeraterateamstart INT ,
|
|
@i INT ,
|
|
@franken VARCHAR(255) ,
|
|
@rappen VARCHAR(255) ,
|
|
@totalstring VARCHAR(255) ,
|
|
@faelligkeit DATETIME ,
|
|
@hauptfaktura VARCHAR(255);
|
|
|
|
|
|
DECLARE @esdaten TABLE
|
|
(
|
|
[Vs_konto] [VARCHAR](20) NULL ,
|
|
[Vs_belegart] [VARCHAR](2) NULL ,
|
|
[Vs_teilnehmernummer] [VARCHAR](20) NULL ,
|
|
[Vs_besrid] [VARCHAR](20) NULL ,
|
|
[Bankzeile1] [VARCHAR](50) NULL ,
|
|
[Bankzeile2] [VARCHAR](50) NULL ,
|
|
[Bankzeile3] [VARCHAR](50) NULL ,
|
|
[ZuGunstenVon1] [VARCHAR](50) NULL ,
|
|
[ZuGunstenVon2] [VARCHAR](50) NULL ,
|
|
[ZuGunstenVon3] [VARCHAR](50) NULL ,
|
|
[ZuGunstenVon4] [VARCHAR](50) NULL ,
|
|
[Total_Franken] FLOAT ,
|
|
[Nur_Franken] INT ,
|
|
[Nur_Rappen] VARCHAR(2) ,
|
|
Referenzzeile1 VARCHAR(255) ,
|
|
referenzzeile2 VARCHAR(255) ,
|
|
fakturanr VARCHAR(255) ,
|
|
rate INT ,
|
|
zahlungsfrist INT ,
|
|
faelligkeit DATETIME ,
|
|
hauptfaktura VARCHAR(255)
|
|
);
|
|
|
|
IF @typ = 1
|
|
BEGIN-- Kontoinformationen / ES_Daten
|
|
DECLARE @manr INT;
|
|
DECLARE @totalbetrag FLOAT;
|
|
DECLARE @rc INT;
|
|
DECLARE @FAKTURANR INT;
|
|
DECLARE @vz FLOAT;
|
|
SELECT @vz = dbo.Get_Totale(5, @behandlungsnr);
|
|
SET @vz = 0;
|
|
SET @rc = 0;
|
|
IF @kopie=1 Or @ifakturanr<>0 BEGIN
|
|
SET @fakturanr=@ifakturanr
|
|
END ELSE BEGIN
|
|
SET @FAKTURANR = dbo.get_FakturaNr();
|
|
END
|
|
IF @betrag <> 0
|
|
SET @totalbetrag = @betrag;
|
|
SELECT @manr = Nrbehandler ,
|
|
@totalbetrag = Total ,
|
|
@Anzahlraten = Anzahlraten ,
|
|
@Ungeraterateamstart = Ungeraterateamstart
|
|
FROM Behandlu
|
|
WHERE Nrbehandlung = @behandlungsnr;
|
|
SET @totalbetrag = dbo.GetRoundedValue(@totalbetrag - @vz);
|
|
SELECT @rc = COUNT(*)
|
|
FROM dbo.VDKonti
|
|
WHERE NrPrivat = @manr;
|
|
PRINT @totalbetrag;
|
|
IF @rc = 0
|
|
SET @manr = 1;
|
|
PRINT FLOOR(@totalbetrag);
|
|
PRINT ( @totalbetrag - FLOOR(@totalbetrag) ) * 100;
|
|
|
|
|
|
DECLARE @temp FLOAT;
|
|
DECLARE @temp1 FLOAT;
|
|
DECLARE @temp2 FLOAT;
|
|
DECLARE @temp3 VARCHAR(255);
|
|
DECLARE @tage_zahlungsfrist INT;
|
|
SELECT @tage_zahlungsfrist = INHALT
|
|
FROM dbo.OPTIONS
|
|
WHERE NROPTION = 2000;
|
|
|
|
IF @Anzahlraten > 1
|
|
BEGIN
|
|
SET @temp = FLOOR(FLOOR(@totalbetrag) / @Anzahlraten); -- Rate ohne Nachkommastellen
|
|
SET @temp1 = @temp * @Anzahlraten;
|
|
SET @temp2 = @temp + ( @totalbetrag - @temp1 ); -- ungerate rate
|
|
IF @rate <= 1
|
|
BEGIN
|
|
IF @Ungeraterateamstart = 1
|
|
BEGIN
|
|
SET @totalbetrag = @temp2;
|
|
END;
|
|
ELSE
|
|
BEGIN
|
|
SET @totalbetrag = @temp;
|
|
END;
|
|
SET @hauptfaktura = @FAKTURANR;
|
|
SET @faelligkeit = DATEADD(dd,
|
|
@tage_zahlungsfrist,
|
|
GETDATE());
|
|
SET @faelligkeit = DATEADD(dd,
|
|
@tage_zahlungsfrist,
|
|
@rgdatum);
|
|
|
|
END;
|
|
ELSE
|
|
BEGIN
|
|
IF @Ungeraterateamstart = 1
|
|
AND @rate = @Anzahlraten
|
|
BEGIN
|
|
SET @totalbetrag = @temp2;
|
|
END;
|
|
ELSE
|
|
BEGIN
|
|
SET @totalbetrag = @temp;
|
|
END;
|
|
SELECT TOP 1
|
|
@hauptfaktura = Nrhauptfaktura
|
|
FROM Faktura
|
|
ORDER BY Nrfaktura DESC;
|
|
SET @faelligkeit = DATEADD(dd,
|
|
@tage_zahlungsfrist
|
|
* @rate, GETDATE());
|
|
SET @faelligkeit = DATEADD(dd,
|
|
@tage_zahlungsfrist
|
|
* @rate, @rgdatum);
|
|
|
|
END;
|
|
|
|
END;
|
|
ELSE
|
|
BEGIN
|
|
SET @hauptfaktura = @FAKTURANR;
|
|
SET @faelligkeit = DATEADD(dd, @tage_zahlungsfrist,
|
|
GETDATE());
|
|
SET @faelligkeit = DATEADD(dd, @tage_zahlungsfrist,
|
|
@rgdatum);
|
|
|
|
END;
|
|
SET @totalstring = CONVERT(NUMERIC(10, 2), @totalbetrag);
|
|
SET @franken = SUBSTRING(@totalstring, 1,
|
|
CHARINDEX('.', @totalstring) - 1);
|
|
SET @rappen = SUBSTRING(@totalstring,
|
|
CHARINDEX('.', @totalstring) + 1, 2);
|
|
WHILE LEN(@rappen)<2 BEGIN
|
|
SET @rappen='0'+LTRIM(RTRIM(STR(@rappen)))
|
|
end
|
|
|
|
|
|
|
|
PRINT @franken;
|
|
PRINT @rappen;
|
|
PRINT @totalstring;
|
|
INSERT @esdaten
|
|
SELECT Vs_konto ,
|
|
Vs_belegart ,
|
|
Vs_teilnehmernummer ,
|
|
Vs_besrid ,
|
|
Bankzeile1 ,
|
|
Bankzeile2 ,
|
|
Bankzeile3 ,
|
|
ZuGunstenVon1 ,
|
|
ZuGunstenVon2 ,
|
|
ZuGunstenVon3 ,
|
|
ZuGunstenVon4 ,
|
|
@totalbetrag ,
|
|
@franken ,--FLOOR(@totalbetrag) ,
|
|
@rappen ,--( @totalbetrag - FLOOR(@totalbetrag) ) * 100 ,
|
|
' ' ,
|
|
' ' ,
|
|
@FAKTURANR ,
|
|
@rate ,
|
|
@tage_zahlungsfrist ,
|
|
@faelligkeit ,
|
|
@hauptfaktura
|
|
FROM dbo.VDKonti
|
|
WHERE NrPrivat = @manr;
|
|
|
|
|
|
|
|
|
|
SELECT *
|
|
FROM @esdaten;
|
|
|
|
|
|
END;
|
|
|
|
DECLARE @mitdatum INT;
|
|
SELECT @mitdatum = MitDatum
|
|
FROM Behandlu
|
|
WHERE Nrbehandlung = @behandlungsnr;
|
|
|
|
|
|
IF @typ = 2
|
|
BEGIN -- Empfängerdaten / Allg Behandlung / Totale
|
|
DECLARE @absenderort AS VARCHAR(255)
|
|
SELECT TOP 1 @absenderort = absenderort FROM absender
|
|
SET @absenderort=@absenderort + ', '+CONVERT(VARCHAR(10),@rgdatum,104)
|
|
SELECT 1 AS Typ ,
|
|
@rgdatum AS Rechnungsdatum,
|
|
@mitdatum AS MitDatum ,
|
|
dbo.Behandlu.Nrbehandlung ,
|
|
dbo.Behandlu.Behandlungsbeginn ,
|
|
dbo.Behandlu.Behandlungsende ,
|
|
dbo.PRIVAT.NAME + ' ' + dbo.PRIVAT.VORNAME AS Patient ,
|
|
dbo.PRIVAT.NAME AS Patient_Name ,
|
|
dbo.PRIVAT.VORNAME AS Patient_Vorname ,
|
|
dbo.PRIVAT.STRASSE AS Patient_Strasse ,
|
|
dbo.PRIVAT.PLZ AS Patient_PLZ ,
|
|
dbo.PRIVAT.ORT AS Patient_Ort ,
|
|
dbo.PRIVAT.Kanton AS Patient_Kanton ,
|
|
dbo.PRIVAT.AHVNR AS Patient_AHVNr ,
|
|
CASE WHEN dbo.PRIVAT.GESCHLECHT = 0 THEN 'M'
|
|
ELSE 'W'
|
|
END AS Patient_Geschlecht ,
|
|
CONVERT(VARCHAR(10),dbo.PRIVAT.GEBDAT,104) AS Patient_Geburtsdatum ,
|
|
dbo.PRIVAT.GLN AS Patient_GLNr ,
|
|
privat_1.NAME + ' ' + privat_1.VORNAME AS Behandler ,
|
|
dbo.Behandlu.Taxpunktwert ,
|
|
dbo.Behandlu.Rabatt ,
|
|
dbo.Behandlu.Total ,
|
|
dbo.Behandlu.Rechnungsbemerkung ,
|
|
dbo.Behandlu.Ratenzuschlag ,
|
|
dbo.Behandlu.Andrucken_Taxpunkte ,
|
|
dbo.Behandlu.Anzahlung ,
|
|
dbo.Behandlu.Nrestyp ,
|
|
dbo.Behandlu.Fallnummer ,
|
|
dbo.Behandlu.Anzahlraten ,
|
|
dbo.Behandlu.Unfalldatum,
|
|
dbo.behandlu.Datum_Kostengutsprache,
|
|
dbo.behandlu.Kostengutsprache_Nummer,
|
|
dbo.behandlu.Behandlungsgrund,
|
|
dbo.behandlu.Diagnose,
|
|
dbo.behandlu.GLN_Liste,
|
|
dbo.get_adresszeile(1, dbo.Behandlu.Nrbehandlung) AS AdressZeile1 ,
|
|
dbo.get_adresszeile(2, dbo.Behandlu.Nrbehandlung) AS AdressZeile2 ,
|
|
dbo.get_adresszeile(3, dbo.Behandlu.Nrbehandlung) AS AdressZeile3 ,
|
|
dbo.get_adresszeile(4, dbo.Behandlu.Nrbehandlung) AS AdressZeile4 ,
|
|
dbo.get_adresszeile(5, dbo.Behandlu.Nrbehandlung) AS AdressZeile5 ,
|
|
dbo.Get_Dentotar_Parameter(11,
|
|
dbo.Behandlu.Nrbehandlung) AS GLN_Empfaenger ,
|
|
dbo.get_adresse(dbo.Behandlu.Nrbehandlung, 0) AS Empfaenger ,
|
|
dbo.Get_Totale(1, dbo.Behandlu.Nrbehandlung) AS Total_SSO ,
|
|
dbo.Get_Totale(2, dbo.Behandlu.Nrbehandlung) AS Total_Medikamente ,
|
|
dbo.Get_Totale(3, dbo.Behandlu.Nrbehandlung) AS Total_Labor ,
|
|
dbo.Get_Totale(4, dbo.Behandlu.Nrbehandlung) AS RabattTotal ,
|
|
dbo.Get_Totale(5, dbo.Behandlu.Nrbehandlung) AS Vorauszahlung ,
|
|
dbo.get_totalblock(1, dbo.Behandlu.Nrbehandlung) AS TotalTextblock ,
|
|
dbo.get_totalblock(2, dbo.Behandlu.Nrbehandlung) AS TotalNumBlock ,
|
|
dbo.Get_Dentotar_Parameter(1,
|
|
dbo.Behandlu.Nrbehandlung) AS Rechnungstitel ,
|
|
dbo.Get_Dentotar_Parameter(2,
|
|
dbo.Behandlu.Nrbehandlung) AS Dokument_Identifikation ,
|
|
dbo.Get_Dentotar_Parameter(3,
|
|
dbo.Behandlu.Nrbehandlung) AS RG_Steller_GLN ,
|
|
dbo.Get_Dentotar_Parameter(4,
|
|
dbo.Behandlu.Nrbehandlung) AS RG_Steller_ZSR ,
|
|
dbo.Get_Dentotar_Parameter(5,
|
|
dbo.Behandlu.Nrbehandlung) AS RG_Steller_Name ,
|
|
dbo.Get_Dentotar_Parameter(6,
|
|
dbo.Behandlu.Nrbehandlung) AS RG_Steller_Adresse ,
|
|
dbo.Get_Dentotar_Parameter(15,
|
|
dbo.Behandlu.Nrbehandlung) AS RG_Steller_Tel ,
|
|
dbo.Get_Dentotar_Parameter(16,
|
|
dbo.Behandlu.Nrbehandlung) AS RG_Steller_Fax ,
|
|
(SELECT ISNULL(GLN,'') FROM privat WHERE nrprivat=behandlu.Nrbehandler) AS Leistungserbringer_GSN,
|
|
(SELECT ISNULL(ZSR,'') FROM privat WHERE nrprivat=behandlu.Nrbehandler) AS Leistungserbringer_ZSR,
|
|
(SELECT name+' '+vorname FROM privat WHERE nrprivat=behandlu.Nrbehandler) AS Leistungserbringer_Name,
|
|
--dbo.Get_Dentotar_Parameter(7,
|
|
-- dbo.Behandlu.Nrbehandlung) AS Leistungserbringer_GSN ,
|
|
--dbo.Get_Dentotar_Parameter(8,
|
|
-- dbo.Behandlu.Nrbehandlung) AS Leistungserbringer_ZSR ,
|
|
--dbo.Get_Dentotar_Parameter(9,
|
|
-- dbo.Behandlu.Nrbehandlung) AS Leistungserbringer_Name ,
|
|
dbo.Get_Dentotar_Parameter(10,
|
|
dbo.Behandlu.Nrbehandlung) AS Leistungserbringer_Adresse ,
|
|
dbo.Get_Dentotar_Parameter(12,
|
|
dbo.Behandlu.Nrbehandlung) AS Verguetungsart ,
|
|
--dbo.Get_Dentotar_Parameter(13,
|
|
-- dbo.Behandlu.Nrbehandlung) AS Gesetz ,
|
|
dbo.get_gesetz(dbo.Behandlu.Nrbehandlung) AS Gesetz,
|
|
dbo.Get_Dentotar_Parameter(14,
|
|
dbo.Behandlu.Nrbehandlung) AS Rolle_Ort ,
|
|
dbo.Get_Dentotar_Parameter(17,
|
|
dbo.Behandlu.Nrbehandlung) AS Leistungserbringer_Tel ,
|
|
dbo.Get_Dentotar_Parameter(18,
|
|
dbo.Behandlu.Nrbehandlung) AS Leistungserbringer_Fax,
|
|
CASE WHEN @kopie=0 THEN 'nein' ELSE 'nein' END AS Kopie,
|
|
@absenderort AS Absenderort_Datum,
|
|
dbo.get_behandlungsart(dbo.behandlu.nrbehandlung) AS Behandlungsart
|
|
INTO #tmp1
|
|
FROM dbo.Behandlu
|
|
INNER JOIN dbo.PRIVAT ON dbo.Behandlu.Nrpatient = dbo.PRIVAT.NRPRIVAT
|
|
INNER JOIN dbo.PRIVAT AS privat_1 ON dbo.Behandlu.Nrbehandler = privat_1.NRPRIVAT
|
|
|
|
WHERE Behandlu.Nrbehandlung = @behandlungsnr;
|
|
|
|
SELECT *
|
|
FROM #tmp1;
|
|
END;
|
|
|
|
|
|
IF @typ = 3
|
|
OR @typ = 4
|
|
BEGIN -- Leistungen
|
|
|
|
DECLARE @pk INT;
|
|
IF @mitdatum = 1
|
|
BEGIN -- Nach Datum
|
|
|
|
INSERT @Tabelle_mit_datum
|
|
SELECT *
|
|
FROM View_Leistungen_mit_Datum
|
|
WHERE Nrbehandlung = @behandlungsnr
|
|
ORDER BY Datum ,
|
|
SSO_Nummer;
|
|
SET @i = 1;
|
|
DECLARE xc CURSOR
|
|
FOR
|
|
SELECT *
|
|
FROM @Tabelle_mit_datum
|
|
ORDER BY Datum ,
|
|
[SSO_Nummer];
|
|
OPEN xc;
|
|
FETCH NEXT FROM xc INTO @type, @Datum, @SSO_Nummer,
|
|
@Bezd, @Taxpunkte, @Menge, @Frankenprotaxpunkt,
|
|
@Absolut, @Leistungstotal, @Nrbehandlung;
|
|
WHILE @@FETCH_STATUS = 0
|
|
BEGIN
|
|
IF @i = 1
|
|
BEGIN
|
|
INSERT @lr_tabelle_mit_Datum
|
|
( L_Datum ,
|
|
L_SSO_Nummer ,
|
|
L_Bezd ,
|
|
L_Taxpunkte ,
|
|
L_Menge ,
|
|
L_Frankenprotaxpunkt ,
|
|
L_Absolut ,
|
|
L_Leistungstotal ,
|
|
R_Datum ,
|
|
R_SSO_Nummer ,
|
|
R_Bezd ,
|
|
R_Taxpunkte ,
|
|
R_Menge ,
|
|
R_Frankenprotaxpunkt ,
|
|
R_Absolut ,
|
|
R_Leistungstotal
|
|
)
|
|
VALUES ( @Datum , -- L_Datum - date
|
|
@SSO_Nummer , -- L_SSO_Nummer - int
|
|
@Bezd , -- L_Bezd - varchar(255)
|
|
@Taxpunkte , -- L_Taxpunkte - float
|
|
@Menge , -- L_Menge - float
|
|
@Frankenprotaxpunkt , -- L_Frankenprotaxpunkt - float
|
|
@Absolut , -- L_Absolut - bit
|
|
@Leistungstotal , -- L_Leistungstotal - float
|
|
NULL , -- R_Datum - date
|
|
NULL , -- R_SSO_Nummer - int
|
|
CONVERT(VARCHAR(255), '') , -- R_Bezd - varchar(255)
|
|
NULL , -- R_Taxpunkte - float
|
|
NULL , -- R_Menge - float
|
|
NULL , -- R_Frankenprotaxpunkt - float
|
|
NULL , -- R_Absolut - bit
|
|
NULL -- R_Leistungstotal - float
|
|
);
|
|
|
|
SET @i = @i + 1;
|
|
END;
|
|
ELSE
|
|
BEGIN
|
|
SELECT TOP 1
|
|
@pk = pk
|
|
FROM @lr_tabelle_mit_Datum
|
|
ORDER BY pk DESC;
|
|
UPDATE @lr_tabelle_mit_Datum
|
|
SET R_Datum = @Datum ,
|
|
R_SSO_Nummer = @SSO_Nummer ,
|
|
R_Bezd = @Bezd ,
|
|
R_Taxpunkte = @Taxpunkte ,
|
|
R_Menge = @Menge ,
|
|
R_Frankenprotaxpunkt = @Frankenprotaxpunkt ,
|
|
R_Absolut = @Absolut ,
|
|
R_Leistungstotal = @Leistungstotal
|
|
WHERE pk = @pk;
|
|
SET @i = 1;
|
|
END;
|
|
FETCH NEXT FROM xc INTO @type, @Datum,
|
|
@SSO_Nummer, @Bezd, @Taxpunkte, @Menge,
|
|
@Frankenprotaxpunkt, @Absolut,
|
|
@Leistungstotal, @Nrbehandlung;
|
|
END;
|
|
CLOSE xc;
|
|
DEALLOCATE xc;
|
|
IF @typ = 4
|
|
BEGIN
|
|
PRINT 'a0';
|
|
SELECT *
|
|
FROM @lr_tabelle_mit_Datum;
|
|
END;
|
|
ELSE
|
|
BEGIN
|
|
SELECT *
|
|
FROM @Tabelle_mit_datum;
|
|
END;
|
|
|
|
END;
|
|
ELSE
|
|
BEGIN -- ohne Datum
|
|
|
|
INSERT @Tabelle_ohne_datum
|
|
SELECT *
|
|
FROM View_Leistungen_ohne_Datum
|
|
WHERE Nrbehandlung = @behandlungsnr
|
|
ORDER BY SSO_Nummer;
|
|
SET @i = 1;
|
|
|
|
DECLARE xc CURSOR
|
|
FOR
|
|
SELECT *
|
|
FROM @Tabelle_ohne_datum
|
|
ORDER BY [SSO_Nummer];
|
|
OPEN xc;
|
|
FETCH NEXT FROM xc INTO @type, @SSO_Nummer, @Bezd,
|
|
@Taxpunkte, @Menge, @Frankenprotaxpunkt, @Absolut,
|
|
@Leistungstotal, @Nrbehandlung;
|
|
WHILE @@FETCH_STATUS = 0
|
|
BEGIN
|
|
IF @i = 1
|
|
BEGIN
|
|
INSERT @lr_tabelle_ohne_Datum
|
|
( L_SSO_Nummer ,
|
|
L_Bezd ,
|
|
L_Taxpunkte ,
|
|
L_Menge ,
|
|
L_Frankenprotaxpunkt ,
|
|
L_Absolut ,
|
|
L_Leistungstotal ,
|
|
R_SSO_Nummer ,
|
|
R_Bezd ,
|
|
R_Taxpunkte ,
|
|
R_Menge ,
|
|
R_Frankenprotaxpunkt ,
|
|
R_Absolut ,
|
|
R_Leistungstotal
|
|
)
|
|
VALUES ( @SSO_Nummer , -- L_SSO_Nummer - int
|
|
@Bezd , -- L_Bezd - varchar(255)
|
|
@Taxpunkte , -- L_Taxpunkte - float
|
|
@Menge , -- L_Menge - float
|
|
@Frankenprotaxpunkt , -- L_Frankenprotaxpunkt - float
|
|
@Absolut , -- L_Absolut - bit
|
|
@Leistungstotal , -- L_Leistungstotal - float
|
|
NULL , -- R_SSO_Nummer - int
|
|
CONVERT(VARCHAR(255), '') , -- R_Bezd - varchar(255)
|
|
NULL , -- R_Taxpunkte - float
|
|
NULL , -- R_Menge - float
|
|
NULL , -- R_Frankenprotaxpunkt - float
|
|
NULL , -- R_Absolut - bit
|
|
NULL -- R_Leistungstotal - float
|
|
);
|
|
SET @i = @i + 1;
|
|
|
|
END;
|
|
ELSE
|
|
BEGIN
|
|
|
|
SELECT TOP 1
|
|
@pk = pk
|
|
FROM @lr_tabelle_ohne_Datum
|
|
ORDER BY pk DESC;
|
|
PRINT @pk;
|
|
UPDATE @lr_tabelle_ohne_Datum
|
|
SET R_SSO_Nummer = @SSO_Nummer ,
|
|
R_Bezd = @Bezd ,
|
|
R_Taxpunkte = @Taxpunkte ,
|
|
R_Menge = @Menge ,
|
|
R_Frankenprotaxpunkt = @Frankenprotaxpunkt ,
|
|
R_Absolut = @Absolut ,
|
|
R_Leistungstotal = @Leistungstotal
|
|
WHERE pk = @pk;
|
|
SET @i = 1;
|
|
END;
|
|
FETCH NEXT FROM xc INTO @type, @SSO_Nummer,
|
|
@Bezd, @Taxpunkte, @Menge,
|
|
@Frankenprotaxpunkt, @Absolut,
|
|
@Leistungstotal, @Nrbehandlung;
|
|
END;
|
|
CLOSE xc;
|
|
DEALLOCATE xc;
|
|
IF @typ = 4
|
|
BEGIN
|
|
SELECT '' AS Datum ,
|
|
*
|
|
FROM @lr_tabelle_ohne_Datum;
|
|
END;
|
|
ELSE
|
|
BEGIN
|
|
SELECT '' AS Datum ,
|
|
*
|
|
FROM @Tabelle_ohne_datum;
|
|
END;
|
|
|
|
END;
|
|
END;
|
|
|
|
IF @typ = 5
|
|
BEGIN
|
|
SELECT *
|
|
FROM View_Leistungen_Dentotar
|
|
WHERE Nrbehandlung = @behandlungsnr;
|
|
END;
|
|
|
|
|
|
|
|
END;
|
|
|
|
GO
|
|
|
|
|