(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:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
|
/* Fakturowanie Status Raport 11/22/03
Rewidować 5/6/06 *
SET NOCOUNT DALEJ
TWORZYĆ STOŁOWY #RECORDS
(
TicketNumber varchar (20),
Wizyta datetime,
LastDateFiled datetime,
FirstDateFiled datetime,
InsBalance pieniądze,
PatBalance pieniądze,
PrimaryInsuranceCarrier varchar (50),
CurrentInsuranceCarrier varchar (50),
CurrentCarrier numeryk ((1), (0)),
BillStatus varchar (50),
BillStatusID int,
Wchodzić Do datetime,
FilingType int,
DaysSinceFiled int,
PatientName varchar (50),
VisitOwner varchar (50),
Opis varchar (100),
Doktorski varchar (100),
Credentialed varchar (1)
)
-- Wkładać the Nowy Rejestr
JEŻELI "(1)" = "(1)"
LUB (1) W (NIEOBOWIĄZUJĄCY)
WSZYWKA W #RECORDS
WYBRANY ISNULL (a.TicketNumber, "Nikt "),
KONWERTYTA (varchar, a.ApptStart, 101),
'',
'',
(0),
(0),
ISNULL (ic.ListName, "Nikt "),
ISNULL (ic.ListName, "Nikt "),
(1),
"Nowy",
(1),
'',
(0),
(0),
pp. Kopyto Szewskie + "," + pp. Najpierw + "-" + pp.PatientID,
"Spotkanie",
'',
d.ListName,
SKRZYNKA GDY icd.InsuranceCarriersDoctorID BYĆ NIEOBOWIĄZUJĄCY
WTEDY "X"
INNY ''
KOŃCÓWKA
OD dbo.InsuranceCarriers ic
WEWNĘTRZNY ŁĄCZYĆ dbo.PatientInsurance pi NA ic.InsuranceCarriersId = pi.InsuranceCarriersId
PRAWY ZEWNĘTRZNY ŁĄCZYĆ dbo. Spotkanie a NA pi.PatientProfileId = a.OwnerId
WEWNĘTRZNY ŁĄCZYĆ dbo.PatientProfile pp NA a.OwnerID = pp.PatientProfileID
WEWNĘTRZNY ŁĄCZYĆ DoctorFacility D NA ISNULL (a.DoctorID,
a.ResourceID) = d.DoctorFacilityID
LEWICA ŁĄCZYĆ InsuranceCarriersDoctor icd NA pi.InsuranceCarriersID = icd.InsuranceCarriersID
I ISNULL (a.DoctorID, a.ResourceID) = icd.DoctorID
DOKĄD (pi.OrderForClaims = 1)
I (a.PatientVisitId BYĆ NIEOBOWIĄZUJĄCY)
I (a.ApptKind = 1)
I (a.HideNewVisit BYĆ NIEOBOWIĄZUJĄCY
LUB a.HideNewVisit = (0)
)
I (a.Canceled BYĆ NIEOBOWIĄZUJĄCY
LUB a.Canceled = (0)
)
I (a.ApptStart < GETDATE ())
I a.ApptStart >= ISNULL (NIEOBOWIĄZUJĄCY, "1/1/1900")
I a.ApptStart < dateadd (dzień, (1), ISNULL (NIEOBOWIĄZUJĄCY, "1/1/3000"))
I --Filtr na asekuracyjny przewoźnik
((NIEOBOWIĄZUJĄCY BYĆ NIEOBOWIĄZUJĄCY
I ic.InsuranceCarriersId W (NIEOBOWIĄZUJĄCY)
)
LUB (NIEOBOWIĄZUJĄCY BYĆ NIEOBOWIĄZUJĄCY)
)
I --Filtr na łatwość
((NIEOBOWIĄZUJĄCY BYĆ NIEOBOWIĄZUJĄCY
I a.FacilityID W (NIEOBOWIĄZUJĄCY)
)
LUB (NIEOBOWIĄZUJĄCY BYĆ NIEOBOWIĄZUJĄCY)
)
I --Filtr na ubezpieczenie grupa
((NIEOBOWIĄZUJĄCY BYĆ NIEOBOWIĄZUJĄCY
I ic.InsuranceGroupId W (NIEOBOWIĄZUJĄCY)
)
LUB (NIEOBOWIĄZUJĄCY BYĆ NIEOBOWIĄZUJĄCY)
)
I --Filtr na Lekarka
((NIEOBOWIĄZUJĄCY BYĆ NIEOBOWIĄZUJĄCY
I a.ResourceID W (NIEOBOWIĄZUJĄCY)
)
LUB (NIEOBOWIĄZUJĄCY BYĆ NIEOBOWIĄZUJĄCY)
)
-- Wchodzić Do the Wizyta Rejestr
WSZYWKA W #RECORDS
WYBRANY pv.TicketNumber,
pv. Wizyta,
pv.LastFiledDate,
pv.FirstFiledDate,
pva.InsBalance,
pva.PatBalance,
ISNULL (ic.ListName, "Nikt "),
ISNULL (ic.ListName, "Nikt "),
pv.CurrentCarrier,
bs. Opis,
pv.BillStatus,
pv. Wchodzić Do,
ISNULL (pv.FilingType, (0)),
SKRZYNKA GDY pv.LastFiledDate BYĆ NIEOBOWIĄZUJĄCY WTEDY (0)
INNY DATEDIFF (D, pv.LastFiledDate, getdate ())
KOŃCÓWKA,
pp. Kopyto Szewskie + "," + pp. Najpierw + "-" + pp.PatientID,
ISNULL (vo. Opis, "Żadny Właściciel "),
ISNULL (OPUSZCZAĆ (pv. Opis, 100), ''),
d.ListName,
SKRZYNKA GDY icd.InsuranceCarriersDoctorID BYĆ NIEOBOWIĄZUJĄCY WTEDY "X"
INNY ''
KOŃCÓWKA
OD dbo.PatientVisit pv
WEWNĘTRZNY ŁĄCZYĆ dbo.PatientProfile pp NA pv.PatientProfileId = pp.PatientProfileId
LEWY ZEWNĘTRZNY ŁĄCZYĆ dbo.InsuranceCarriers ic NA pv.PrimaryInsuranceCarriersId = ic.InsuranceCarriersId
LEWY ZEWNĘTRZNY ŁĄCZYĆ dbo.PatientVisitAgg pva NA pv.PatientVisitId = pva.PatientVisitId
LEWY ZEWNĘTRZNY ŁĄCZYĆ dbo.InsuranceCarriers cic NA pv.CurrentInsuranceCarriersId = cic.InsuranceCarriersId
LEWY ZEWNĘTRZNY ŁĄCZYĆ dbo.MedLists bs NA bs.JoinId = pv.BillStatus
I bs.TableName = "BillStatus"
WEWNĘTRZNY ŁĄCZYĆ DoctorFacility D NA pv.DoctorID = d.DoctorFacilityID
LEWY ZEWNĘTRZNY ŁĄCZYĆ MedLists vo NA pv.VisitOwnerMID = vo.MedListsID
LEWICA ŁĄCZYĆ InsuranceCarriersDoctor icd NA pv.CurrentInsuranceCarriersId = icd.InsuranceCarriersID
I pv.DoctorID = icd.DoctorID
DOKĄD pv. Wizyta >= ISNULL (NIEOBOWIĄZUJĄCY, "1/1/1900")
I pv. Wizyta < dateadd (dzień, (1), ISNULL (NIEOBOWIĄZUJĄCY, "1/1/3000"))
I pv.BillStatus WEWNĄTRZ (12, 10)
--Filtr na BillStatus
I ((NIEOBOWIĄZUJĄCY BYĆ NIEOBOWIĄZUJĄCY
I "(1)" = "(1)"
)
LUB ("(1)" = "2"
I NIEOBOWIĄZUJĄCY BYĆ NIEOBOWIĄZUJĄCY
)
LUB pv.BillStatus W (NIEOBOWIĄZUJĄCY)
)
I --Filtr na asekuracyjny przewoźnik
((NIEOBOWIĄZUJĄCY BYĆ NIEOBOWIĄZUJĄCY
I ic.InsuranceCarriersId W (NIEOBOWIĄZUJĄCY)
)
LUB (NIEOBOWIĄZUJĄCY BYĆ NIEOBOWIĄZUJĄCY)
)
I --Filtr na łatwość
((NIEOBOWIĄZUJĄCY BYĆ NIEOBOWIĄZUJĄCY
I pv.FacilityID W (NIEOBOWIĄZUJĄCY)
)
LUB (NIEOBOWIĄZUJĄCY BYĆ NIEOBOWIĄZUJĄCY)
)
I --Filtr na ubezpieczenie grupa
((NIEOBOWIĄZUJĄCY BYĆ NIEOBOWIĄZUJĄCY
I ic.InsuranceGroupId W (NIEOBOWIĄZUJĄCY)
)
LUB (NIEOBOWIĄZUJĄCY BYĆ NIEOBOWIĄZUJĄCY)
)
I -- Przewoźnik priorytet
(((1) = 1)
LUB ((1) = 2
I pv.CurrentCarrier = (1)
)
LUB ((1) = 3
I pv.CurrentCarrier > (1)
)
)
I --Filtr na visitowner
((NIEOBOWIĄZUJĄCY BYĆ NIEOBOWIĄZUJĄCY
I pv.VisitOwnerMID W (NIEOBOWIĄZUJĄCY)
)
LUB (NIEOBOWIĄZUJĄCY BYĆ NIEOBOWIĄZUJĄCY)
)
I --Filtr na Lekarka
((NIEOBOWIĄZUJĄCY BYĆ NIEOBOWIĄZUJĄCY
I pv.DoctorID W (NIEOBOWIĄZUJĄCY)
)
LUB (NIEOBOWIĄZUJĄCY BYĆ NIEOBOWIĄZUJĄCY)
)
JEŻELI (0) <> (1)
WYBIÓRKA *
OD #Records
INNY
WYBIÓRKA *
OD #Records
DOKĄD BillStatus <> "Nowy"
|
