Changeset 636 for FOIAVistA/tag/r/FEE_BASIS-FB

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)
• FEE_BASIS-FB/FBCTV.m (modified) (1 diff)
• FEE_BASIS-FB/FBCTV1.m (modified) (1 diff)
• FEE_BASIS-FB/FBCTV2.m (modified) (1 diff)
• FEE_BASIS-FB/FBCTV3.m (modified) (1 diff)

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)

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

@@ -1 @@
-FBCTV ; GENERATED FROM 'FB VENDOR UPDATE' INPUT TEMPLATE(#1055), FILE 161.2;06/29/07
+FBCTV ; GENERATED FROM 'FB VENDOR UPDATE' INPUT TEMPLATE(#1055), FILE 161.2;12/27/07
  D DE G BEGIN
 DE S DIE="^FBAAV(",DIC=DIE,DP=161.2,DL=1,DIEL=0,DU="" K DG,DE,DB Q:$O(^FBAAV(DA,""))=""

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

@@ -1 @@
-FBCTV1 ; ;06/29/07
+FBCTV1 ; ;12/27/07
  S X=DE(15),DIC=DIE
  K ^FBAAV("NPI",$E(X,1,30),DA)

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

@@ -1 @@
-FBCTV2 ; ;06/29/07
+FBCTV2 ; ;12/27/07
  S X=DG(DQ),DIC=DIE
  S ^FBAAV("NPI",$E(X,1,30),DA)=""

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

@@ -1 @@
-FBCTV3 ; ;06/29/07
+FBCTV3 ; ;12/27/07
  D DE G BEGIN
 DE S DIE="^FBAAV(",DIC=DIE,DP=161.2,DL=1,DIEL=0,DU="" K DG,DE,DB Q:$O(^FBAAV(DA,""))=""