Ignore:
Timestamp:
Dec 4, 2009, 8:26:01 PM (15 years ago)
Author:
George Lilly
Message:

WorldVistAEHR overlayed on FOIAVistA

Location:
FOIAVistA/tag/r
Files:
5 edited
1 copied

Legend:

Unmodified
Added
Removed
  • FOIAVistA/tag/r/FEE_BASIS-FB/FBAAFSR.m

    r628 r636  
    11FBAAFSR ;WCIOFO/TCK,SS,DMK,SAB-RBRVS FEE SCHEDULE ; 8/26/1999
    2  ;;3.5;FEE BASIS;**4,53,71,84,92,93,99,102,105**;JAN 30, 1995;Build 1
     2 ;;3.5;FEE BASIS;**4,53,71,84,92,93,99,102**;JAN 30, 1995;Build 24
    33 ;
    44 Q
     
    172172 N GPCI,RVU,FBI,TMP,TMPRVU
    173173 S FBAMT=0
    174  ;Old formula for RBRVS pre-2007 payment amounts
     174 ;Multiply Work RVU by the Budget Neutrality Adjustor (0.8994)
    175175 I DOS<3070101 D
     176 .;Old formula for RBRVS pre-2007 payment amounts
    176177 .S RVU(1)=$P(FBCPTY0,U,3)
    177  I (DOS=3070101!(DOS>3070101)&(DOS<3080101)) D
     178 I DOS>3061231 D
    178179 .;New formula for RBRVS 2007 payment amounts
    179180 .;Multiply Work RVU by the Budget Neutrality Adjustor (0.8994)
    180181 .S TMP=$P(FBCPTY0,U,3),TMPRVU=$J((TMP*(.8994)),".",2)
    181  .S RVU(1)=TMPRVU
    182  I DOS=3080101!(DOS>3080101) D
    183  .;New formula for the RBRVS 2008 payment amounts
    184  .;Multiply Work RVU by the Budget Neutrality Adjustor (0.8994)
    185  .S TMP=$P(FBCPTY0,U,3),TMPRVU=$J((TMP*(.8806)),".",2)
    186182 .S RVU(1)=TMPRVU
    187183 S RVU(2)=$P(FBCPTY0,U,4+FAC)
  • FOIAVistA/tag/r/FEE_BASIS-FB/FBCTV.m

    r628 r636  
    1 FBCTV ; GENERATED FROM 'FB VENDOR UPDATE' INPUT TEMPLATE(#1055), FILE 161.2;06/29/07
     1FBCTV ; GENERATED FROM 'FB VENDOR UPDATE' INPUT TEMPLATE(#1055), FILE 161.2;12/27/07
    22 D DE G BEGIN
    33DE 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

    r628 r636  
    1 FBCTV1 ; ;06/29/07
     1FBCTV1 ; ;12/27/07
    22 S X=DE(15),DIC=DIE
    33 K ^FBAAV("NPI",$E(X,1,30),DA)
  • FOIAVistA/tag/r/FEE_BASIS-FB/FBCTV2.m

    r628 r636  
    1 FBCTV2 ; ;06/29/07
     1FBCTV2 ; ;12/27/07
    22 S X=DG(DQ),DIC=DIE
    33 S ^FBAAV("NPI",$E(X,1,30),DA)=""
  • FOIAVistA/tag/r/FEE_BASIS-FB/FBCTV3.m

    r628 r636  
    1 FBCTV3 ; ;06/29/07
     1FBCTV3 ; ;12/27/07
    22 D DE G BEGIN
    33DE S DIE="^FBAAV(",DIC=DIE,DP=161.2,DL=1,DIEL=0,DU="" K DG,DE,DB Q:$O(^FBAAV(DA,""))=""
Note: See TracChangeset for help on using the changeset viewer.