|
Last change
on this file since 702 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.
