DG53858P.m

DG53858P ;ALB/BDB - VFA PROJECT POST-INSTALL;8/30/12

 ;;5.3;Registration;**858**;Aug 13, 1993;Build 30

 ;

 ; This routine will set the VFA Start Date into the

 ;  MAS PARAMETERS file (#43)

 ;

EN ; Entry point for post-install

 D VFA

 Q

 ;

VFA ; Set the VFA Start Date equal to January 1, 2013

 D BMES^XPDUTL(">>>VFA Start Date set to January 1, 2013.")

 S ^DG(43,1,"VFA")="3130101"

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DG53858P   403     printed  Sep 23, 2025@20:14:57                                                                                                                                                                                                     Page 2

DG53858P  ;ALB/BDB - VFA PROJECT POST-INSTALL;8/30/12

 +1       ;;5.3;Registration;**858**;Aug 13, 1993;Build 30

 +2       ;

 +3       ; This routine will set the VFA Start Date into the

 +4       ;  MAS PARAMETERS file (#43)

 +5       ;

EN        ; Entry point for post-install

 +1        DO VFA

 +2        QUIT 

 +3       ;

VFA       ; Set the VFA Start Date equal to January 1, 2013

 +1        DO BMES^XPDUTL(">>>VFA Start Date set to January 1, 2013.")

 +2        SET ^DG(43,1,"VFA")="3130101"

 +3        QUIT 

 +4       ;