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 ---[H[J[2J[HDGBT1P16 859 printed Dec 13, 2024@01:40:12 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 ;
