Last change
on this file since 1154 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
797 bytes
|
Line | |
---|
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.