Summary Title: 20c-- (3M) CDIS Working CMI w Impact
In Library? : Yes
Owner RAD   : CDI System MS-DRG
Access Owner: All
Permissions
  Service       : V R C E D
  System Manager: V R C E D
  All           : V R C E D

________________________________________________________________

________________________________________________________________
Classification Key Information:_________________________________

----[ Classification Key Level 1 ]----
Field Name: System  RDL Field
  RDL Source:
    [RDL begin]
systemName 
    [RDL end]  Returns: Text
  Dependant      : <None> 
  Column visible : Yes

----[ Classification Key Level 2 ]----
Field Name: Year/Month  RDL Field
  RDL Source:
    [RDL begin]
if ADt is not empty then formatdate("%Y %B", ADt);
    [RDL end]  Returns: Text
  Dependant      : <None> 
  Column visible : Yes

----[ Classification Key Level 3 ]----
Field Name: FinCl
  Display Name   : Financial Class
  Column visible : Yes
  Code/Text      : Code/Text

________________________________________________________________
Categories:_____________________________________________________
| Title                                     | Flags | Precision 
|Month Sort                                 | IRMin | 0
|Total Pts Reviewed                         |  RSum | 0
|Total Pts w/ Working DRG                   |  RSum | 0
|# w Fin Impact                             |  RSum | 0
|Overall CMI                                |  RAvg | 4
|Total Initial Reimb                        |  RSum | 2
|Total Last Reimb                           |  RSum | 2
|Total Diff Est Reimb                       |  RSum | 2
|Year Sort                                  | IRMin | 0

  Category RDL Detail:

Month Sort
  RDL Source:
    [RDL begin]
month(ADt);
    [RDL end]  Returns: Number (whole)

Total Pts Reviewed
  RDL Source:
    [RDL begin]
true;
    [RDL end]  Returns: Boolean

Total Pts w/ Working DRG
  RDL Source:
    [RDL begin]
if VIEWPDRGINFO(1).PDRG is not empty then true;
    [RDL end]  Returns: Boolean

# w Fin Impact
  RDL Source:
    [RDL begin]
If VHMSPDRGINFO(1).PDRGReimb> 0.0 then
if RecFilter1 = "Y" then add 1;
    [RDL end]  Returns: Number (whole)

Overall CMI
  RDL Source:
    [RDL begin]
if trunctime(today) is between '100109' and '093010' then begin
 calc(lookup(2221, VIEWPDRGINFO(1).PDRG , drgwt));
end;
if trunctime(today) is between '100110' and '093011' then begin
 calc(lookup(2222, VIEWPDRGINFO(1).PDRG , drgwt));
end;
if trunctime(today) is between '100111' and '093012' then begin
 calc(lookup(2228, VIEWPDRGINFO(1).PDRG , drgwt));
end;
    [RDL end]  Returns: Number (real)

Total Initial Reimb
  RDL Source:
    [RDL begin]
For _x := 1 to countoccur(VHMSPDRGINFO) do
if RecFilter1 = "Y" then {qualifies for Fin Impact}
 if VHMSPDRGINFO(_x).ImpactBaselineDRG = 'Y' then begin
 calc VHMSPDRGINFO(_x).PDRGReimb; {use the reimb set as the baseline}
 end else begin
 if VHMSPDRGINFO(1).ImpactBaselineDRG is empty then calc VHMSPDRGINFO(1).PDRGReimb;
 end;
    [RDL end]  Returns: Number (real)

Total Last Reimb
  RDL Source:
    [RDL begin]
If VIEWPDRGINFO(1).PDRGReimb > 0.0 then
if RecFilter1 = "Y" then
VIEWPDRGINFO(1).PDRGReimb;
    [RDL end]  Returns: Number (real)

Total Diff Est Reimb
  RDL Source:
    [RDL begin]
Cat[6]{Total Last Reimb} - Cat[5]{Total Initial Reimb}
    [RDL end]  Returns: Number (real)
    <Cross-Category Calculation>

Year Sort
  RDL Source:
    [RDL begin]
Year(ADt);
    [RDL end]  Returns: Number (whole)

________________________________________________________________
Sorting Information:____________________________________________

----[ Level 1 ]----
  D | Year Sort
  D | Month Sort

----[ Level 2 ]----
  D | Year Sort
  D | Month Sort

----[ Level 3 ]----

________________________________________________________________
Routing Information:____________________________________________

Enable Routing  : No
Template File   : 

Output Destination(s): 

Macros
Pre-Load: 

Post-Load: 
________________________________________________________________

________________________________________________________________
Search Control:_________________________________________________

Key    : DDt
Include: Only non discharged records.
Range  : 
Systems: IP 
Maximum Records: 
Record Filter
  RDL Source:
    [RDL begin]
init begin
_payer:= prompt("Please enter Financial Class(es) or Press Enter to include all Financial Classes");
_revtyp:= prompt("Enter R for Retrospective, C for Concurrent \- or \- Press Enter to include ALL");
end;
if $FinImpact() = '1' then RecFilter1 := "Y"; {Assigning field based on sites definition of fin impact}
for _x:= 1 to countoccur(DOCREV) do
if ((FinCl is in _payer) or (_payer = '')) then begin
 if _revtyp = 'R' then
 if DOCREV(_x).RevTyp = '03' then true;

 if _revtyp = 'C' then
 if DOCREV(_x).RevTyp != '03' then true;

 if _revtyp = '' then
 if DOCREV(_x).RevTyp is not empty then true;
end;
    [RDL end]  Returns: Boolean

________________________________________________________________

________________________________________________________________
Modification Status:____________________________________________

Author: CODE3
  Date: Monday, June 21, 2010

Modifier: CODE3
    Date: Tuesday, September 27, 2011

Number of Records used: 1
________________________________________________________________
Comments: (Alert: No)  
This report will prompt for Financial Class and Type of Review (R - Retrospective, C - Concurrent (everything other than Retrospective) or Enter for All types. 

Searches for records that are:
Only Non Discharged, Reviewed records that have Financial Class and Review Type data that matches what the user entered in the prompt.

Display: 
Groups by the System, ADt year and month then Financial Class.

Contains # of Reviews that qualify for Financial Impact which uses the FinImpact stored function, can be site defined.
Financial Impact Calculation may now be based from manually selected baseline working DRG.
________________________________________________________________