30 lines
797 B
Mathematica
30 lines
797 B
Mathematica
DGBT1P14 ;RLS/RRA - BENE TRAVEL RATES UPDATE DGBT*1*14 PRE-INIT ; 01/15/08 14:30
|
|
;;1.0;Beneficiary Travel;**14**;September 25, 2001;Build 7
|
|
;
|
|
Q
|
|
EN ;
|
|
D START,UPDATE,FINISH
|
|
Q
|
|
;
|
|
START D BMES^XPDUTL("Insert Bene Travel 2008 rates, Post-Install Starting")
|
|
Q
|
|
;
|
|
FINISH D BMES^XPDUTL("Insert Bene Travel 2008 rates, Post-Install Complete")
|
|
Q
|
|
;
|
|
UPDATE ;Insert 02012008 record
|
|
;ESTABLISH THE RECORD
|
|
N DO,DIC,DIE,X,Y,DINUM,DR,DA
|
|
I $D(^DG(43.1,6919798.9999,0)) D Q
|
|
. D BMES^XPDUTL("Rate record already exists, exiting")
|
|
S DIC="^DG(43.1,",DIC(0)="E",X=3080201,DINUM=9999999.9999-X
|
|
D FILE^DICN
|
|
;
|
|
;NOW EDIT THE REST OF THE FIELDS
|
|
S DIE=DIC,DR="30.01///15.54;30.02///46.62;30.03///.285;30.05///.285"
|
|
S DA=+Y
|
|
D ^DIE
|
|
D BMES^XPDUTL("Added 02012008 RATES record to MAS EVENT RATES file")
|
|
Q
|
|
;
|