ECX3P187.m

ECX3P187 ;ALB/CMD - DSS FY2024 Post-init ;Feb 03, 2023@17:24:42

 ;;3.0;DSS EXTRACTS;**187**;Dec 22,1997;Build 163

 ;

 ; Reference to MES^XPDUTL in ICR #10141

 ;

POST ;Post-install items

 D TEST

 Q

 ;

TEST ;turn-on fld #73 in file #728 for Field Test Site;

 ;allows use of option ECX FISCAL YEAR EXTRACT by test sites;

 D MES^XPDUTL(" ")

 D MES^XPDUTL("Providing special menu option access for DSS FY Conversion test sites.")

 D TESTON^ECXTREX(XPDNM,"FY2024")

 D MES^XPDUTL(" ")

 ;if this is the national released version, then fld #73 will be turned-off

 ;the first time any user attempts to use ECX FISCAL YEAR EXTRACT option

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ECX3P187   648     printed  Apr 09, 2024@20:55:48                                                                                                                                                                                                     Page 2

ECX3P187  ;ALB/CMD - DSS FY2024 Post-init ;Feb 03, 2023@17:24:42

 +1       ;;3.0;DSS EXTRACTS;**187**;Dec 22,1997;Build 163

 +2       ;

 +3       ; Reference to MES^XPDUTL in ICR #10141

 +4       ;

POST      ;Post-install items

 +1        DO TEST

 +2        QUIT 

 +3       ;

TEST      ;turn-on fld #73 in file #728 for Field Test Site;

 +1       ;allows use of option ECX FISCAL YEAR EXTRACT by test sites;

 +2        DO MES^XPDUTL(" ")

 +3        DO MES^XPDUTL("Providing special menu option access for DSS FY Conversion test sites.")

 +4        DO TESTON^ECXTREX(XPDNM,"FY2024")

 +5        DO MES^XPDUTL(" ")

 +6       ;if this is the national released version, then fld #73 will be turned-off

 +7       ;the first time any user attempts to use ECX FISCAL YEAR EXTRACT option

 +8        QUIT