Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FBXIP150

FBXIP150.m

Go to the documentation of this file.
  1. FBXIP150 ;ALB/BJR-PATCH INSTALL ROUTINE ; 11/21/12 12:59pm
  1. ;;3.5;FEE BASIS;**150**;JAN 30, 1995;Build 5
  1. ;;Per VHA Directive 2004-038, this routine should not be modified.
  1. Q
  1. ;
  1. POST ; post-install entry point
  1. ; create KIDS checkpoints with call backs
  1. N FBX
  1. F FBX="EN" D
  1. . S Y=$$NEWCP^XPDUTL(FBX,FBX_"^FBXIP150")
  1. . I 'Y D BMES^XPDUTL("ERROR Creating "_FBX_" Checkpoint.")
  1. Q
  1. ;
  1. EN ; Begin Post-Install
  1. D CF ;Add Conv factors
  1. Q
  1. CF ; add conversion factors for calendar year 2014 RBRVS fee schedule
  1. ; File 162.99 is being updated in the post install because the Fee
  1. ; Basis software examines this file to determine the latest available
  1. ; fee schedule. By doing this at the end of the patch installation,
  1. ; users can continue to use the payment options during the install.
  1. D BMES^XPDUTL(" Filing conversion factor for RBRVS 2014 fee schedule.")
  1. N DD,DO,DA,DIE,DR,X,Y
  1. S DA(1)=0 F S DA(1)=$O(^FB(162.99,DA(1))) Q:'DA(1) D
  1. . S DA=$O(^FB(162.99,DA(1),"CY","B",2014,0))
  1. . I DA'>0 D Q:DA'>0
  1. . . S DIC="^FB(162.99,"_DA(1)_",""CY"",",DIC(0)="L",DIC("P")="162.991A",DLAYGO=162.991
  1. . . S X=2014
  1. . . K DD,DO D FILE^DICN
  1. . . K DIC,DLAYGO
  1. . . S DA=+Y
  1. . ;
  1. . S DIE="^FB(162.99,"_DA(1)_",""CY"","
  1. . S DR=".02///"_$S(DA(1)=1:22.6765,1:35.8228)
  1. . D ^DIE
  1. Q
  1. ;FBXIP150