1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
|
" codeBody "
SET NOCOUNT
/********* Bepaal het begin van fiscaal jaar ***************************/
VERKLAAR @OTHERLONG INT.
SELECTEER
@otherlong = ISNULL (otherlong, 1)
VAN
Medlists
WAAR
tablename = „fiscalyear“
/******************************************************************************/
SELECTEER
„01“ ALS EntityCode,
RECHT (JAAR (DATEADD (m, - (@otherlong - 1), Bezoek)) , 2) ZOALS [Fiscaal Jaar],
MAAND (DATEADD (m, - (@otherlong - 1), Bezoek)) ZOALS [Fiscale Periode],
„GL“ ZOALS [Subsysteem],
„JRNENT“ ZOALS [BronCode],
LINKERZIJDE (ISNULL (doc. Grootboek, '') + RUIMTE (10), 10) ZOALS [Geen Afd.],
VERLATEN LINKERZIJDE ((ISNULL (FAC. Grootboek, ''), 4) + WEGGEGAAN (ISNULL (vin. Grootboek, ''), 4) + RUIMTE (10), 10) ZOALS [Geen SubAccount],
SOM (pvp.totalfee) ZOALS [Bedrag],
„C“ ZOALS [Debet/Krediet],
„Ingang Centricity“ + RUIMTE (34) ZOALS [Beschrijving],
RUIMTE (6) ZOALS [Identiteitskaart Proj],
RUIMTE (16) ZOALS [Vuller]
VAN
PatientVisit pv
BINNEN SLUIT me aan bij DoctorFacility comp OP pv.CompanyId = comp.DoctorFacilityId
BINNEN SLUIT me aan bij DoctorFacility fac OP pv.FacilityId = fac.DoctorFacilityId
BINNEN SLUIT me aan bij doc. DoctorFacility OP pv.DoctorId = doc.DoctorFacilityId
LINKER BUITEN SLUIT zich aan bij vin Medlists OP pv.FinancialClassMId = fin.MedListsId
BINNEN SLUIT me aan bij PatientProfile pp OP pv.PatientProfileId = pp.PatientProfileId
BINNEN SLUIT me aan bij PatientVisitProcs pvp OP pv.PatientVisitId = pvp.PatientVisitId
BINNEN SLUIT me aan bij Partij B OP pvp.BatchID = b.BatchID
BINNEN SLUIT me aan bij pvpa PatientVisitProcsAgg OP pvp.PatientVisitProcsID = pvpa.PatientVisitProcsID
LINKER BUITEN SLUIT zich aan bij Procedures p OP pvp.ProceduresID = p.ProceduresID
De LINKERZIJDE SLUIT zich aan bij MedLists Procs OP p.DepartmentMId = procs.MedListsId
WAAR
B.ENTRY >= ISNULL (VERKLAAR, „1/1/1900“) NIETIG EN
B.ENTRY < DATEADD (DAG, 1, ISNULL (VERKLAAR, „1/1/3000“) NIETIG) EN
--Filter op Faciliteit
(
(
ONGELDIG NIET IS ONGELDIG EN
pv.FacilityID BINNEN (ONGELDIG)
) OF
(ONGELDIG IS ONGELDIG)
) EN
--Filter op Bedrijf
(
(
ONGELDIG NIET IS ONGELDIG EN
pv.CompanyID BINNEN (ONGELDIG)
) OF
(ONGELDIG IS ONGELDIG)
) EN
--Filter op Financiële Klasse
(
(
ONGELDIG NIET IS ONGELDIG EN
pv.FinancialClassMID BINNEN (ONGELDIG)
) OF
(ONGELDIG IS ONGELDIG)
)
GROEP LANGS
pv.TicketNumber,
pv. Bezoek,
doc. Grootboek,
fac. Grootboek,
vin. Grootboek
HEBBEND
SOM (pvp.TotalFee) <> 0
ORDE LANGS
pv.TicketNumber
|