Changeset 636 for FOIAVistA/tag/r/FEE_BASIS-FB/FBAAFSR.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• FEE_BASIS-FB/FBAAFSR.m (modified) (2 diffs)

FOIAVistA/tag/r/FEE_BASIS-FB/FBAAFSR.m

@@ -1 +1 @@
 FBAAFSR ;WCIOFO/TCK,SS,DMK,SAB-RBRVS FEE SCHEDULE ; 8/26/1999
- ;;3.5;FEE BASIS;**4,53,71,84,92,93,99,102,105**;JAN 30, 1995;Build 1
+ ;;3.5;FEE BASIS;**4,53,71,84,92,93,99,102**;JAN 30, 1995;Build 24
  ;
  Q
@@ -172 +172 @@
  N GPCI,RVU,FBI,TMP,TMPRVU
  S FBAMT=0
- ;Old formula for RBRVS pre-2007 payment amounts
+ ;Multiply Work RVU by the Budget Neutrality Adjustor (0.8994)
  I DOS<3070101 D
+ .;Old formula for RBRVS pre-2007 payment amounts
  .S RVU(1)=$P(FBCPTY0,U,3)
- I (DOS=3070101!(DOS>3070101)&(DOS<3080101)) D
+ I DOS>3061231 D
  .;New formula for RBRVS 2007 payment amounts
  .;Multiply Work RVU by the Budget Neutrality Adjustor (0.8994)
  .S TMP=$P(FBCPTY0,U,3),TMPRVU=$J((TMP*(.8994)),".",2)
- .S RVU(1)=TMPRVU
- I DOS=3080101!(DOS>3080101) D
- .;New formula for the RBRVS 2008 payment amounts
- .;Multiply Work RVU by the Budget Neutrality Adjustor (0.8994)
- .S TMP=$P(FBCPTY0,U,3),TMPRVU=$J((TMP*(.8806)),".",2)
  .S RVU(1)=TMPRVU
  S RVU(2)=$P(FBCPTY0,U,4+FAC)