SET NOCOUNT DALEJ
/********* Ustalać the początek the rok fiskalny ***************************/
OZNAJMIAĆ @OTHERLONG INT
WYBIÓRKA
@otherlong = ISNULL (otherlong, 1)
OD
Medlists
DOKĄD
tablename = "fiscalyear"
/******************************************************************************/
WYBIÓRKA
"01" JAKO EntityCode,
PRAWICA (ROK (DATEADD (m, - (@otherlong - 1), Wizyta)) , 2) [rok fiskalny],
MIESIĄC (DATEADD (m, - (@otherlong - 1), Wizyta)) [Fiskalny Okres],
"GL" [Podsystem],
"JRNENT" [Źródło Kod],
LEWICA (ISNULL (doc. Księga główna, '') + INTERLINIOWAĆ (10), 10) [Zgłębiać Żadny],
LEWICA (OPUSZCZAĆ (ISNULL (fac. Księga główna, ''), 4) + OPUSZCZAĆ (ISNULL (żebro. Księga główna, ''), 4) + PRZESTRZEŃ (10), 10) [Subkonto Żadny],
SUMA (pvp.totalfee) [Kwota],
"C" [Debet/Kredyt],
"Centryczność Wejście" + PRZESTRZEŃ (34) [Opis],
PRZESTRZEŃ (6) [Proj Id],
PRZESTRZEŃ (16) [Napełniacz]
OD
PatientVisit pv
WEWNĘTRZNY ŁĄCZYĆ DoctorFacility comp NA pv.CompanyId = comp.DoctorFacilityId
WEWNĘTRZNY ŁĄCZYĆ DoctorFacility fac NA pv.FacilityId = fac.DoctorFacilityId
WEWNĘTRZNY ŁĄCZYĆ DoctorFacility doc NA pv.DoctorId = doc.DoctorFacilityId
LEWY ZEWNĘTRZNY ŁĄCZYĆ Medlists żebro NA pv.FinancialClassMId = fin.MedListsId
WEWNĘTRZNY ŁĄCZYĆ PatientProfile pp NA pv.PatientProfileId = pp.PatientProfileId
WEWNĘTRZNY ŁĄCZYĆ PatientVisitProcs pvp NA pv.PatientVisitId = pvp.PatientVisitId
WEWNĘTRZNY ŁĄCZYĆ Wsad B NA pvp.BatchID = b.BatchID
WEWNĘTRZNY ŁĄCZYĆ PatientVisitProcsAgg pvpa NA pvp.PatientVisitProcsID = pvpa.PatientVisitProcsID
LEWY ZEWNĘTRZNY ŁĄCZYĆ Procedura p NA pvp.ProceduresID = p.ProceduresID
LEWICA ŁĄCZYĆ MedLists Procs NA p.DepartmentMId = procs.MedListsId
DOKĄD
b.entry >= ISNULL (NIEOBOWIĄZUJĄCY, "1/1/1900") I
b.entry < DATEADD (DZIEŃ, (1), ISNULL (NIEOBOWIĄZUJĄCY, "1/1/3000")) 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 Firma
(
(
NIEOBOWIĄZUJĄCY BYĆ NIEOBOWIĄZUJĄCY I
pv.CompanyID W (NIEOBOWIĄZUJĄCY)
) LUB
(NIEOBOWIĄZUJĄCY BYĆ NIEOBOWIĄZUJĄCY)
) I
--Filtr na Pieniężny Klasa
(
(
NIEOBOWIĄZUJĄCY BYĆ NIEOBOWIĄZUJĄCY I
pv.FinancialClassMID W (NIEOBOWIĄZUJĄCY)
) LUB
(NIEOBOWIĄZUJĄCY BYĆ NIEOBOWIĄZUJĄCY)
)
GRUPA OBOK
pv.TicketNumber,
pv. Wizyta,
doc. Księga główna,
fac. Księga główna,
żebro. Księga główna
MIEĆ
SUMA (pvp.TotalFee) <> (0)
ROZKAZ OBOK
pv.TicketNumber
|