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