DGBT1P17.m

DGBT1P17 ;RLS/MJB - BENE TRAVEL UPDATE POST-INIT ; 10/14/08 10:45

 ;;1.0;Beneficiary Travel;**17**;September 25, 2001;Build 6

 ;

 Q

EN ;

 D START,UPDATE,FINISH

 Q

 ;

START D BMES^XPDUTL(" Post-Install Starting")

 Q

 ;

FINISH D BMES^XPDUTL(" Post-Install Complete")

 Q

 ;

UPDATE ;Insert new rate/deductible record

 ;ESTABLISH THE RECORD

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

 S DIC="^DG(43.1,",DIC(0)="E",X=3090109,DINUM=9999999.9999-X

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

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

 D FILE^DICN

 ;

 ;NOW EDIT THE REST OF THE FIELDS

 S DIE=DIC,DR="30.01///6;30.02///18;30.03///.415;30.05///.415"

 S DA=+Y

 D ^DIE

 D BMES^XPDUTL("New record added to MAS EVENT RATES file")

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DGBT1P17   764     printed  Apr 09, 2024@20:45:30                                                                                                                                                                                                     Page 2

DGBT1P17  ;RLS/MJB - BENE TRAVEL UPDATE POST-INIT ; 10/14/08 10:45

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

 +2       ;

 +3        QUIT 

EN        ;

 +1        DO START

           DO UPDATE

           DO FINISH

 +2        QUIT 

 +3       ;

START      DO BMES^XPDUTL(" Post-Install Starting")

 +1        QUIT 

 +2       ;

FINISH     DO BMES^XPDUTL(" Post-Install Complete")

 +1        QUIT 

 +2       ;

UPDATE    ;Insert new rate/deductible record

 +1       ;ESTABLISH THE RECORD

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

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

           SET DIC(0)="E"

           SET X=3090109

           SET DINUM=9999999.9999-X

 +4       ;9'S INVERSE OF EFFECTIVE DATE

           IF $DATA(^DG(43.1,DINUM,0))

               Begin DoDot:1

 +5                DO BMES^XPDUTL("Record already exists, exiting")

               End DoDot:1

               QUIT 

 +6        DO FILE^DICN

 +7       ;

 +8       ;NOW EDIT THE REST OF THE FIELDS

 +9        SET DIE=DIC

           SET DR="30.01///6;30.02///18;30.03///.415;30.05///.415"

 +10       SET DA=+Y

 +11       DO ^DIE

 +12       DO BMES^XPDUTL("New record added to MAS EVENT RATES file")

 +13       QUIT 

 +14      ;