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 ---[H[J[2J[HDGBT1P14 826 printed Nov 22, 2024@16:50:23 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 ;
