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
	;