Summary Title: 2c-- (3M) MS Working CMI
In Library? : Yes
Owner RAD   : DocMS 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: Year/Month  RDL Field
  RDL Source:
    [RDL begin]
if ADt is not empty then formatdate("%Y %B", ADt);
    [RDL end]  Returns: Text
  Dependant      : ??
  Column visible : Yes

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

________________________________________________________________
Categories:_____________________________________________________
| Title                                     | Flags | Precision 
|Month Sort                                 | IOMin | 0
|Total Pts Reviewed                         |  RSum | 0
|Total Pts w/ Working DRG                   |  RSum | 0
|Overall CMI                                |  RAvg | 4
|Medical CMI                                |  RSum | 4
|Medical CMI Total                          |  RSum | 4
|Surgical CMI                               |  RSum | 4
|Surgical CMI Total                         |  RSum | 4
|Month Sort                                 | IRMin | 0
|Year Sort                                  | IRMin | 0
|Surgical pts                               |  RSum | 0
|Medical pts                                |  RSum | 0

  Category RDL Detail:

Month Sort
  RDL Source:
    [RDL begin]
formatdate("%Y %B", aDt);
    [RDL end]  Returns: Text

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

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

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

Medical CMI
  RDL Source:
    [RDL begin]
Cat[52]{Medical CMI} / Cat[64]{Medical pts}
    [RDL end]  Returns: Number (real)
    <Cross-Category Calculation>

Medical CMI Total
  RDL Source:
    [RDL begin]
if trunctime(today) is between '100108'  and '093009' then begin
if lookup(2219, msPDRGINFO(1).PDRG , Ty) = 'M' then
calc(lookup(2219, msPDRGINFO(1).PDRG , drgwt));
end;
if trunctime(today) is between '100109'  and '093010' then begin
if lookup(2221, msPDRGINFO(1).PDRG , Ty) = 'M' then
calc(lookup(2221, msPDRGINFO(1).PDRG , drgwt));
end;
if trunctime(today) is between '100110'  and '093011' then begin
if lookup(2222, msPDRGINFO(1).PDRG , Ty) = 'M' then
calc(lookup(2222, msPDRGINFO(1).PDRG , drgwt));
end;
if trunctime(today) is between '100111'  and '093012' then begin
if lookup(2228, msPDRGINFO(1).PDRG , Ty) = 'M' then
calc(lookup(2228, msPDRGINFO(1).PDRG , drgwt));
end;
    [RDL end]  Returns: Number (real)

Surgical CMI
  RDL Source:
    [RDL begin]
Cat[53]{Surgical CMI} / Cat[63]{Surgical pts}
    [RDL end]  Returns: Number (real)
    <Cross-Category Calculation>

Surgical CMI Total
  RDL Source:
    [RDL begin]
if trunctime(today) is between '100108'  and '093009' then begin
if lookup(2219, msPDRGINFO(1).PDRG , Ty) = 'S' then
calc(lookup(2219, msPDRGINFO(1).PDRG , drgwt));
end;
if trunctime(today) is between '100109'  and '093010' then begin
if lookup(2221, msPDRGINFO(1).PDRG , Ty) = 'S' then
calc(lookup(2221, msPDRGINFO(1).PDRG , drgwt));
end;
if trunctime(today) is between '100110'  and '093011' then begin
if lookup(2222, msPDRGINFO(1).PDRG , Ty) = 'S' then
calc(lookup(2222, msPDRGINFO(1).PDRG , drgwt));
end;
if trunctime(today) is between '100111'  and '093012' then begin
if lookup(2228, msPDRGINFO(1).PDRG , Ty) = 'S' then
calc(lookup(2228, msPDRGINFO(1).PDRG , drgwt));
end;
    [RDL end]  Returns: Number (real)

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

Year Sort
  RDL Source:
    [RDL begin]
year (adt)
    [RDL end]  Returns: Number (whole)

Surgical pts
  RDL Source:
    [RDL begin]
if trunctime(today) is between '100108'  and '093009' then begin
if lookup(2219, msPDRGINFO(1).PDRG , Ty) = 'S' then true;
end;
if trunctime(today) is between '100109'  and '093010' then begin
if lookup(2221, msPDRGINFO(1).PDRG , Ty) = 'S' then true;
end;
if trunctime(today) is between '100110'  and '093011' then begin
if lookup(2222, msPDRGINFO(1).PDRG , Ty) = 'S' then true;
end;
if trunctime(today) is between '100111'  and '093012' then begin
if lookup(2228, msPDRGINFO(1).PDRG , Ty) = 'S' then true;
end;
    [RDL end]  Returns: Boolean

Medical pts
  RDL Source:
    [RDL begin]
if trunctime (today) is between '100108'  and '093009' then
if lookup(2219, msPDRGINFO(1).PDRG , Ty) = 'M' then true;

if trunctime (today) is between '100109'  and '093010' then
if lookup(2221, msPDRGINFO(1).PDRG , Ty) = 'M' then true;

if trunctime (today) is between '100110'  and '093011' then
if lookup(2222, msPDRGINFO(1).PDRG , Ty) = 'M' then true;

if trunctime (today) is between '100111'  and '093012' then
if lookup(2228, msPDRGINFO(1).PDRG , Ty) = 'M' then true;
    [RDL end]  Returns: Boolean

________________________________________________________________
Sorting Information:____________________________________________

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

----[ Level 2 ]----
  A | *Class Key*

________________________________________________________________
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");
end;
if DOCREV is not empty then begin
    if  FinCl is in _payer then true
       else if _payer = '' then true;
end;
    [RDL end]  Returns: Boolean

________________________________________________________________

________________________________________________________________
Modification Status:____________________________________________

Author: CODE3
  Date: Wednesday, August 01, 2001

Modifier: CODE3
    Date: Friday, September 02, 2011

Number of Records used: 23
________________________________________________________________
Comments: (Alert: No)  
The category of "# of patients reviewed" counts by month. So if the same patient was reviewed multiple times in one month, it is counted once.  If the same patient is reviewed across 2 or more months, the patient is counted once for each month.  3m

________________________________________________________________