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 ---[H[J[2J[HDG53858P 403 printed Oct 16, 2024@18:39:46 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 ;
