Last change
on this file since 1766 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
797 bytes
|
Rev | Line | |
---|
[613] | 1 | DGBT1P14 ;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
|
---|
| 5 | EN ;
|
---|
| 6 | D START,UPDATE,FINISH
|
---|
| 7 | Q
|
---|
| 8 | ;
|
---|
| 9 | START D BMES^XPDUTL("Insert Bene Travel 2008 rates, Post-Install Starting")
|
---|
| 10 | Q
|
---|
| 11 | ;
|
---|
| 12 | FINISH D BMES^XPDUTL("Insert Bene Travel 2008 rates, Post-Install Complete")
|
---|
| 13 | Q
|
---|
| 14 | ;
|
---|
| 15 | UPDATE ;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.