source: WorldVistAEHR/trunk/r/BENEFICIARY_TRAVEL-DGBT/DGBT1P14.m@ 767

Last change on this file since 767 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 797 bytes
Line 
1DGBT1P14 ;RLS/RRA - BENE TRAVEL RATES UPDATE DGBT*1*14 PRE-INIT ; 01/15/08 14:30
2 ;;1.0;Beneficiary Travel;**14**;September 25, 2001;Build 7
3 ;
4 Q
5EN ;
6 D START,UPDATE,FINISH
7 Q
8 ;
9START D BMES^XPDUTL("Insert Bene Travel 2008 rates, Post-Install Starting")
10 Q
11 ;
12FINISH D BMES^XPDUTL("Insert Bene Travel 2008 rates, Post-Install Complete")
13 Q
14 ;
15UPDATE ;Insert 02012008 record
16 ;ESTABLISH THE RECORD
17 N DO,DIC,DIE,X,Y,DINUM,DR,DA
18 I $D(^DG(43.1,6919798.9999,0)) D Q
19 . D BMES^XPDUTL("Rate record already exists, exiting")
20 S DIC="^DG(43.1,",DIC(0)="E",X=3080201,DINUM=9999999.9999-X
21 D FILE^DICN
22 ;
23 ;NOW EDIT THE REST OF THE FIELDS
24 S DIE=DIC,DR="30.01///15.54;30.02///46.62;30.03///.285;30.05///.285"
25 S DA=+Y
26 D ^DIE
27 D BMES^XPDUTL("Added 02012008 RATES record to MAS EVENT RATES file")
28 Q
29 ;
Note: See TracBrowser for help on using the repository browser.