Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  new
Language: C/C++
Code:

     DECLARE @d1 DATE, @d2 DATE;
SET @d1='01-Febury-2020';
SET @d2='29-Febury-2020';

WITH tn AS (
SELECT Doctor, BillDate BDate, PatientID MRN,  '' AS AdmnID,  
'OPReg' Head, 'Regn/Cons' Service, NetValue Amt
FROM OPBill WHERE BillDate BETWEEN @d1 AND @d2 AND RStatus NOT IN ('CLD')

UNION ALL

SELECT OPCLTB.PC Doctor, OPCLTB.RDate BDate, OPCLTB.Patient_ID MRN, AdmissionNo AS AdmnID,  'OPD' Head, 
OPCLTBD.SName Service, OPCLTBD.Rate Amt
FROM OPCLTB, OPCLTBD 
WHERE OPCLTB.BillNo=OPCLTBD.BillNo AND OPCLTB.RDate BETWEEN @d1 AND @d2 AND OPCLTB.Status NOT IN ('CLD')

UNION ALL

SELECT ServiceBill.Doct Doctor, ServiceBill.RDate BDate, ServiceBill.Patient_ID MRN, AdmissionID AS AdmnID,  ServiceBill.InOut Head,
 ServiceBillDetails.Service Service, ServiceBillDetails.Amt
FROM ServiceBill, ServiceBillDetails
WHERE ServiceBill.BillID=ServiceBillDetails.BillID AND ServiceBill.RDate BETWEEN @d1 AND @d2 AND ServiceBill.Status NOT IN ('CLD')
AND NOT (IP=1 AND Status='CRD')

UNION ALL

SELECT CASE     WHEN COALESCE(IPBillDetails.BT,'')='' THEN IPBill.PC ELSE IPBillDetails.BT END Doctor, 
IPBill.RDate BDate, IPBill.Patient_ID MRN, Admission_ID AS AdmnID,'IPD' Head,
IPBillDetails.SName Service, IPBillDetails.Rate Amt 
FROM IPBill, IPBillDetails, Patient_Details
WHERE IPBill.BillNo=IPBillDetails.BillNo AND IPBill.Patient_ID=Patient_Details.Patient_ID AND IPBill.RDate BETWEEN @d1 AND @d2
AND IPBill.BillType NOT IN ('CB')

UNION ALL

SELECT Doct Doctor, OrderDate BDate, Patient_ID MRN, AdmissionID AS AdmnID, 'Pharmacy' Head,'Sales' Service, Amt
FROM Orders WHERE OrderDate BETWEEN @d1 AND @d2 AND Status NOT IN ('CLD') AND NOT (Head='IPPharmacy' AND Status='CRD')

) SELECT Doctor, BDate, MRN, AdmnID, (SELECT TOP 1 First_Name FROM Patient_Details WHERE Patient_ID=tn.MRN)Patient, Head, Service, SUM(Amt) Amt 
     FROM tn GROUP BY Doctor, BDate, MRN,AdmnID, Head, Service
     ORDER BY BDate, Doctor

     
Comments: