DGBT1P16.m

DGBT1P16 ;RLS/RLS - BENE TRAVEL RATES UPDATE DGBT*1*16 POST-INIT ; 10/14/08 10:45

 ;;1.0;Beneficiary Travel;**16**;September 25, 2001;Build 1

 ;

 Q

EN ;

 D START,UPDATE,FINISH

 Q

 ;

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

 Q

 ;

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

 Q

 ;

UPDATE ;Insert 11172008 record

 ;ESTABLISH THE RECORD

 N DO,DIC,DIE,X,Y,DINUM,DR,DA

 I $D(^DG(43.1,6918882.9999,0)) D  Q  ;9'S INVERSE OF EFFECTIVE DATE

 . D BMES^XPDUTL("Rate record already exists, exiting")

 S DIC="^DG(43.1,",DIC(0)="E",X=3081117,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///.415;30.05///.415"

 S DA=+Y

 D ^DIE

 D BMES^XPDUTL("Added 11172008 RATES record to MAS EVENT RATES file")

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DGBT1P16   859     printed  Apr 09, 2024@20:45:32                                                                                                                                                                                                     Page 2

DGBT1P16  ;RLS/RLS - BENE TRAVEL RATES UPDATE DGBT*1*16 POST-INIT ; 10/14/08 10:45

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

 +2       ;

 +3        QUIT 

EN        ;

 +1        DO START

           DO UPDATE

           DO FINISH

 +2        QUIT 

 +3       ;

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

 +1        QUIT 

 +2       ;

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

 +1        QUIT 

 +2       ;

UPDATE    ;Insert 11172008 record

 +1       ;ESTABLISH THE RECORD

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

 +3       ;9'S INVERSE OF EFFECTIVE DATE

           IF $DATA(^DG(43.1,6918882.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=3081117

           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///.415;30.05///.415"

 +10       SET DA=+Y

 +11       DO ^DIE

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

 +13       QUIT 

 +14      ;