DGBT1P14.m

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

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DGBT1P14   826     printed  Apr 09, 2024@20:45:42                                                                                                                                                                                                     Page 2

DGBT1P14  ;RLS/RRA - BENE TRAVEL RATES UPDATE DGBT*1*14 PRE-INIT ; 01/15/08 14:30

 +1       ;;1.0;Beneficiary Travel;**14**;September 25, 2001;Build 7

 +2       ;

 +3        QUIT 

EN        ;

 +1        DO START

           DO UPDATE

           DO FINISH

 +2        QUIT 

 +3       ;

START      DO BMES^XPDUTL("Insert Bene Travel 2008 rates, Post-Install Starting")

 +1        QUIT 

 +2       ;

FINISH     DO BMES^XPDUTL("Insert Bene Travel 2008 rates, Post-Install Complete")

 +1        QUIT 

 +2       ;

UPDATE    ;Insert 02012008 record

 +1       ;ESTABLISH THE RECORD

 +2        NEW DO,DIC,DIE,X,Y,DINUM,DR,DA

 +3        IF $DATA(^DG(43.1,6919798.9999,0))

               Begin DoDot:1

 +4                DO BMES^XPDUTL("Rate record already exists, exiting")

               End DoDot:1

               QUIT 

 +5        SET DIC="^DG(43.1,"

           SET DIC(0)="E"

           SET X=3080201

           SET DINUM=9999999.9999-X

 +6        DO FILE^DICN

 +7       ;

 +8       ;NOW EDIT THE REST OF THE FIELDS

 +9        SET DIE=DIC

           SET DR="30.01///15.54;30.02///46.62;30.03///.285;30.05///.285"

 +10       SET DA=+Y

 +11       DO ^DIE

 +12       DO BMES^XPDUTL("Added 02012008 RATES record to MAS EVENT RATES file")

 +13       QUIT 

 +14      ;