@@ -2499,108 +2499,6 @@ CREATE PROCEDURE [dbo].[uspSSRSGetMatchingFunds]
24992499 END
25002500Go
25012501
2502- IF OBJECT_ID (' uspSSRSGetClaimOverview' , ' P' ) IS NOT NULL
2503- DROP PROCEDURE uspSSRSGetClaimOverview
2504- GO
2505-
2506- CREATE PROCEDURE [dbo].[uspSSRSGetClaimOverview]
2507- (
2508- @HFID INT ,
2509- @LocationId INT ,
2510- @ProdId INT ,
2511- @StartDate DATE ,
2512- @EndDate DATE ,
2513- @ClaimStatus INT = NULL ,
2514- @ClaimRejReason xClaimRejReasons READONLY ,
2515- @Scope INT = NULL
2516- )
2517- AS
2518- BEGIN
2519- -- no scope -1
2520- -- claim only 0
2521- -- claimand rejection 1
2522- -- all 2
2523- ;WITH TotalForItems AS
2524- (
2525- SELECT C .ClaimId , SUM (CI .PriceAsked * CI .QtyProvided )Claimed,
2526- SUM (ISNULL (CI .PriceApproved , CI .PriceAsked ) * ISNULL (CI .QtyApproved , CI .QtyProvided )) Approved,
2527- SUM (CI .PriceValuated )Adjusted,
2528- SUM (CI .RemuneratedAmount )Remunerated
2529- FROM tblClaim C LEFT OUTER JOIN tblClaimItems CI ON C .ClaimId = CI .ClaimID
2530- WHERE C .ValidityTo IS NULL
2531- AND CI .ValidityTo IS NULL
2532- GROUP BY C .ClaimID
2533- ), TotalForServices AS
2534- (
2535- SELECT C .ClaimId , SUM (CS .PriceAsked * CS .QtyProvided )Claimed,
2536- SUM (ISNULL (CS .PriceApproved , CS .PriceAsked ) * ISNULL (CS .QtyApproved , CS .QtyProvided )) Approved,
2537- SUM (CS .PriceValuated )Adjusted,
2538- SUM (CS .RemuneratedAmount )Remunerated
2539- FROM tblClaim C
2540- LEFT OUTER JOIN tblClaimServices CS ON C .ClaimId = CS .ClaimID
2541- WHERE C .ValidityTo IS NULL
2542- AND CS .ValidityTo IS NULL
2543- GROUP BY C .ClaimID
2544- )
2545-
2546- SELECT C .DateClaimed , C .ClaimID , I .ItemId , S .ServiceID , HF .HFCode , HF .HFName , C .ClaimCode , C .DateClaimed , CA .LastName + ' ' + CA .OtherNames ClaimAdminName,
2547- C .DateFrom , C .DateTo , Ins .CHFID , Ins .LastName + ' ' + Ins .OtherNames InsureeName,
2548- CASE C .ClaimStatus WHEN 1 THEN N ' Rejected' WHEN 2 THEN N ' Entered' WHEN 4 THEN N ' Checked' WHEN 8 THEN N ' Processed' WHEN 16 THEN N ' Valuated' END ClaimStatus,
2549- C .RejectionReason , COALESCE (TFI .Claimed + TFS .Claimed , TFI .Claimed , TFS .Claimed ) Claimed,
2550- COALESCE (TFI .Approved + TFS .Approved , TFI .Approved , TFS .Approved ) Approved,
2551- COALESCE (TFI .Adjusted + TFS .Adjusted , TFI .Adjusted , TFS .Adjusted ) Adjusted,
2552- COALESCE (TFI .Remunerated + TFS .Remunerated , TFI .Remunerated , TFS .Remunerated )Paid,
2553- CASE WHEN @Scope = 2 OR CI .RejectionReason <> 0 THEN I .ItemCode ELSE NULL END RejectedItem, CI .RejectionReason ItemRejectionCode,
2554- CASE WHEN @Scope = 2 OR CS .RejectionReason <> 0 THEN S .ServCode ELSE NULL END RejectedService, CS .RejectionReason ServiceRejectionCode,
2555- CASE WHEN @Scope = 2 OR CI .QtyProvided <> COALESCE (CI .QtyApproved ,CI .QtyProvided ) THEN I .ItemCode ELSE NULL END AdjustedItem,
2556- CASE WHEN @Scope = 2 OR CI .QtyProvided <> COALESCE (CI .QtyApproved ,CI .QtyProvided ) THEN ISNULL (CI .QtyProvided ,0 ) ELSE NULL END OrgQtyItem,
2557- CASE WHEN @Scope = 2 OR CI .QtyProvided <> COALESCE (CI .QtyApproved ,CI .QtyProvided ) THEN ISNULL (CI .QtyApproved ,0 ) ELSE NULL END AdjQtyItem,
2558- CASE WHEN @Scope = 2 OR CS .QtyProvided <> COALESCE (CS .QtyApproved ,CS .QtyProvided ) THEN S .ServCode ELSE NULL END AdjustedService,
2559- CASE WHEN @Scope = 2 OR CS .QtyProvided <> COALESCE (CS .QtyApproved ,CS .QtyProvided ) THEN ISNULL (CS .QtyProvided ,0 ) ELSE NULL END OrgQtyService,
2560- CASE WHEN @Scope = 2 OR CS .QtyProvided <> COALESCE (CS .QtyApproved ,CS .QtyProvided ) THEN ISNULL (CS .QtyApproved ,0 ) ELSE NULL END AdjQtyService,
2561- C .Explanation ,
2562- -- ALL claims
2563- CASE WHEN @Scope = 2 THEN CS .QtyApproved ELSE NULL END ServiceQtyApproved,
2564- CASE WHEN @Scope = 2 THEN CI .QtyApproved ELSE NULL END ItemQtyApproved,
2565- CASE WHEN @Scope = 2 THEN cs .PriceAsked ELSE NULL END ServicePrice,
2566- CASE WHEN @Scope = 2 THEN CI .PriceAsked ELSE NULL END ItemPrice,
2567- CASE WHEN @Scope = 2 THEN ISNULL (cs .PriceApproved ,0 ) ELSE NULL END ServicePriceApproved,
2568- CASE WHEN @Scope = 2 THEN ISNULL (ci .PriceApproved ,0 ) ELSE NULL END ItemPriceApproved,
2569- CASE WHEN @Scope = 2 THEN ISNULL (cs .Justification ,NULL ) ELSE NULL END ServiceJustification,
2570- CASE WHEN @Scope = 2 THEN ISNULL (CI .Justification ,NULL ) ELSE NULL END ItemJustification,
2571- CASE WHEN @Scope = 2 THEN cs .ClaimServiceID ELSE NULL END ClaimServiceID,
2572- CASE WHEN @Scope = 2 THEN CI .ClaimItemID ELSE NULL END ClaimItemID,
2573- -- ,cs.PriceApproved ServicePriceApproved,ci.PriceApproved ItemPriceApproved--,
2574- CASE WHEN @Scope > 0 THEN CONCAT (CS .RejectionReason ,' - ' , XCS .Name ) ELSE NULL END ServiceRejectionReason,
2575- CASE WHEN @Scope > 0 THEN CONCAT (CI .RejectionReason , ' - ' , XCI .Name ) ELSE NULL END ItemRejectionReason
2576-
2577- -- end all claims
2578-
2579-
2580- FROM tblClaim C LEFT OUTER JOIN tblClaimItems CI ON C .ClaimId = CI .ClaimID
2581- LEFT OUTER JOIN tblClaimServices CS ON C .ClaimId = CS .ClaimID
2582- LEFT OUTER JOIN tblItems I ON CI .ItemId = I .ItemID
2583- LEFT OUTER JOIN tblServices S ON CS .ServiceID = S .ServiceID
2584- -- INNER JOIN tblProduct PROD ON PROD.ProdID = CS.ProdID AND PROD.ProdID = CI.ProdID
2585- INNER JOIN tblHF HF ON C .HFID = HF .HfID
2586- LEFT OUTER JOIN tblClaimAdmin CA ON C .ClaimAdminId = CA .ClaimAdminId
2587- INNER JOIN tblInsuree Ins ON C .InsureeId = Ins .InsureeId
2588- LEFT OUTER JOIN TotalForItems TFI ON C .ClaimId = TFI .ClaimID
2589- LEFT OUTER JOIN TotalForServices TFS ON C .ClaimId = TFS .ClaimId
2590- -- all claims
2591- LEFT JOIN @ClaimRejReason XCI ON XCI .ID = CI .RejectionReason
2592- LEFT JOIN @ClaimRejReason XCS ON XCS .ID = CS .RejectionReason
2593- -- and all claims
2594- WHERE C .ValidityTo IS NULL
2595- AND ISNULL (C .DateTo ,C .DateFrom ) BETWEEN @StartDate AND @EndDate
2596- AND (C .ClaimStatus = @ClaimStatus OR @ClaimStatus IS NULL )
2597- AND (HF .LocationId = @LocationId OR @LocationId = 0 )
2598- AND (HF .HFID = @HFID OR @HFID = 0 )
2599- AND (CI .ProdID = @ProdId OR CS .ProdID = @ProdId
2600- OR COALESCE (CS .ProdID , CI .ProdId ) IS NULL OR @ProdId = 0 )
2601- END
2602- Go
2603-
26042502
26052503IF OBJECT_ID (' uspSSRSEnroledFamilies' , ' P' ) IS NOT NULL
26062504 DROP PROCEDURE uspSSRSEnroledFamilies
0 commit comments