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

FBXIP20.m

Go to the documentation of this file.
  1. FBXIP20 ;WCIOFO/SAB-PATCH INSTALL ROUTINE ;4/5/2000
  1. ;;3.5;FEE BASIS;**20**;JAN 30, 1995
  1. Q
  1. ;
  1. PS ; post-install entry point
  1. ; create KIDS checkpoints with call backs
  1. N FBX
  1. F FBX="CF" D
  1. . S Y=$$NEWCP^XPDUTL(FBX,FBX_"^FBXIP20")
  1. . I 'Y D BMES^XPDUTL("ERROR Creating "_FBX_" Checkpoint.")
  1. Q
  1. ;
  1. CF ; add conversion factors for calendar year 2000 RBRVS fee schedule
  1. ; File 163.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 2000 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",2000,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"
  1. . . S X=2000
  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:17.77,1:36.6137)
  1. . D ^DIE
  1. Q
  1. ;
  1. ;FBXIP20