| 1 | FBXIP44 ;WCIOFO/MJE-PATCH INSTALL ROUTINE ;3/7/2002
|
|---|
| 2 | ;;3.5;FEE BASIS;**44**;JAN 30, 1995
|
|---|
| 3 | Q
|
|---|
| 4 | ;
|
|---|
| 5 | PS ; post-install entry point
|
|---|
| 6 | ; create KIDS checkpoints with call backs
|
|---|
| 7 | N FBX
|
|---|
| 8 | F FBX="CF" D
|
|---|
| 9 | . S Y=$$NEWCP^XPDUTL(FBX,FBX_"^FBXIP44")
|
|---|
| 10 | . I 'Y D BMES^XPDUTL("ERROR Creating "_FBX_" Checkpoint.")
|
|---|
| 11 | Q
|
|---|
| 12 | ;
|
|---|
| 13 | CF ; add conversion factors for calendar year 2002 RBRVS fee schedule
|
|---|
| 14 | ; File 162.99 is being updated in the post install because the Fee
|
|---|
| 15 | ; Basis software examines this file to determine the latest available
|
|---|
| 16 | ; fee schedule. By doing this at the end of the patch installation,
|
|---|
| 17 | ; users can continue to use the payment options during the install.
|
|---|
| 18 | D BMES^XPDUTL(" Filing conversion factor for RBRVS 2002 fee schedule.")
|
|---|
| 19 | N DD,DO,DA,DIE,DR,X,Y
|
|---|
| 20 | S DA(1)=0 F S DA(1)=$O(^FB(162.99,DA(1))) Q:'DA(1) D
|
|---|
| 21 | . S DA=$O(^FB(162.99,DA(1),"CY","B",2002,0))
|
|---|
| 22 | . I DA'>0 D Q:DA'>0
|
|---|
| 23 | . . S DIC="^FB(162.99,"_DA(1)_",""CY"",",DIC(0)="L",DIC("P")="162.991A",DLAYGO=162.991
|
|---|
| 24 | . . S X=2002
|
|---|
| 25 | . . K DD,DO D FILE^DICN
|
|---|
| 26 | . . K DIC,DLAYGO
|
|---|
| 27 | . . S DA=+Y
|
|---|
| 28 | . ;
|
|---|
| 29 | . S DIE="^FB(162.99,"_DA(1)_",""CY"","
|
|---|
| 30 | . S DR=".02///"_$S(DA(1)=1:16.6,1:36.1992)
|
|---|
| 31 | . D ^DIE
|
|---|
| 32 | Q
|
|---|
| 33 | ;
|
|---|
| 34 | ;FBXIP44
|
|---|
