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:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
|
" codeBody "
SET NOCOUNT
/********* Bepaal het begin van fiscaal jaar ***************************/
VERKLAAR
@otherlong int.
SELECTEER
@otherlong = ISNULL (otherlong, 1)
VAN
Medlists
WAAR
tablename = „fiscalyear“
/***********************************************************************************/
; MET CTE ZOALS (
--- Breng in de Lasten
SELECTEER
pv.TicketNumber,
pv. Bezoek,
„01“ ALS EntityCode,
RECHT (JAAR (DATEADD (m, - (@otherlong - 1), Bezoek)) , 2) ZOALS [Fiscaal Jaar],
LINKERZIJDE (BEKEERLING (VARCHAR, DATEADD (m, - (@otherlong - 1), Bezoek), 101), 2) ZOALS [Fiscale Periode],
„GL“ ZOALS [Subsysteem],
„JRNENT“ ZOALS [BronCode],
LINKERZIJDE (ISNULL (doc. Het grootboek, '') + RUIMTE (10), 10) + GING weg (LINKS (ISNULL (fac. Het grootboek, ''), 2) + GING weg (ISNULL (vin. Grootboek, ''), 2) + RUIMTE (10), 10) ZOALS [DeptSubAccount],
LINKERZIJDE (varchar BEKEERLING (, SOM (pvp.totalfee)) + RUIMTE (22), 22) 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 („07/01/2010“, „1/1/1900“) EN b.Status <> 0
EN B.ENTRY < DATEADD (DAG, 1, ISNULL („07/31/2010“, „1/1/3000“)
)
EN --Filter op Faciliteit
(
(ONGELDIG NIET IS ONGELDIG EN (ONGELDIGE) pv.FacilityID BINNEN) OF
(ONGELDIG IS ONGELDIG)
)
EN --Filter op Bedrijf
(
(ONGELDIG NIET IS ONGELDIG EN (ONGELDIGE) pv.CompanyID BINNEN) OF
(ONGELDIG IS ONGELDIG)
)
EN --Filter op Financiële Klasse
(
(ONGELDIG NIET IS ONGELDIG EN (ONGELDIGE) pv.FinancialClassMID BINNEN) OF
(ONGELDIG IS ONGELDIG)
)
GROEP LANGS
pv.TicketNumber,
pv. Bezoek,
doc. Grootboek,
fac. Grootboek,
vin. Grootboek
HEBBEND
SOM (pvp.TotalFee) <> 0
)
SELECTEER * UIT CTE
UNIE ALLEN
SELECTEER
[TicketNumber],
[Bezoek],
„01“ ALS EntityCode,
RECHT (JAAR (DATEADD (m, - (@otherlong - 1), Bezoek)) , 2) ZOALS [Fiscaal Jaar],
LINKERZIJDE (BEKEERLING (VARCHAR, DATEADD (m, - (@otherlong - 1), Bezoek), 101), 2) ZOALS [Fiscale Periode],
„GL“ ZOALS [Subsysteem],
„JRNENT“ ZOALS [BronCode],
„11504075“ + RUIMTE (12) ZOALS [DeptSubAccount],
LINKERZIJDE (ISNULL ([Bedrag], 22) + RUIMTE (22), 22) ZOALS [Bedrag],
„D“ ZOALS [Debet/Krediet],
„Ingang Centricity“ + RUIMTE (34) ZOALS [Beschrijving],
RUIMTE (6) ZOALS [Identiteitskaart Proj],
RUIMTE (16) ZOALS [Vuller]
VAN
CTE
UNIE ALLEN
; MET CTF ZOALS (
SELECTEER
pv.TicketNumber,
pv. Bezoek,
„01“ ALS EntityCode,
RECHT (JAAR (DATEADD (m, - (@otherlong - 1), b.Entry)) , 2) ZOALS [Fiscaal Jaar],
LINKERZIJDE (BEKEERLING (VARCHAR, DATEADD (m, - (@otherlong - 1), b.Entry), 101), 2) ZOALS [Fiscale Periode],
„GL“ ZOALS [Subsysteem],
„JRNENT“ ZOALS [BronCode],
LINKERZIJDE (ISNULL (pymt. Grootboek, '') + RUIMTE (20), 20) ZOALS [DeptSubAccount],
LINKERZIJDE (varchar BEKEERLING (, t.amount) + RUIMTE (22), 22) ZOALS [Bedrag],
„D“ 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 vt VisitTransactions OP pv.PatientVisitId = vt.PatientVisitid
BINNEN SLUIT me aan bij PaymentMethod p.m. OP vt.PaymentMethodId = pm.PaymentMethodId
BINNEN SLUIT me aan bij Partij B OP pm.BatchID = b.BatchID
BINNEN SLUIT me aan bij Transacties t OP vt.VisitTransactionsId = t.VisitTransactionsId
LINKER BUITEN SLUIT aan bij MedLists zich bij OP t.ActionTypeMId = at.MedListsId
LINKER BUITEN TREEDT (selecteer * uit medlists waar tablename = „PaymentTypes“) pymt toe OP t.ActionTypeMId = pymt.MedlistsId
WAAR
t.Action = „P“ EN b.Status <> 0
EN NIET BESTAAT (SELECTEER 1 VAN PaymentMethod pm1 WAAR vt.PaymentMethodId = pm1.PaymentMethodId EN pm1.InsuranceTransfer = 1)
EN b.entry >= ISNULL („07/01/2010“, „1/1/1900“)
EN B.ENTRY < DATEADD (DAG, 1, ISNULL („07/31/2010“, „1/1/3000“)
)
EN --Filter op Faciliteit
(
(ONGELDIG NIET IS ONGELDIG EN (ONGELDIGE) pv.FacilityID BINNEN) OF
(ONGELDIG IS ONGELDIG)
)
EN --Filter op Bedrijf
(
(ONGELDIG NIET IS ONGELDIG EN (ONGELDIGE) pv.CompanyID BINNEN) OF
(ONGELDIG IS ONGELDIG)
)
EN --Filter op Financiële Klasse
(
(ONGELDIG NIET IS ONGELDIG EN (ONGELDIGE) pv.FinancialClassMID BINNEN) OF
(ONGELDIG IS ONGELDIG)
)
GROEP LANGS
pv.TicketNumber,
b.Entry,
t.Amount,
pv. Bezoek,
doc. Grootboek,
fac. Grootboek,
vin. Grootboek,
pymt. Grootboek
HEBBEND
t.amount <> 0
)
SELECTEER * UIT CTF
|