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 ---[H[J[2J[HECX3P187 648 printed Dec 13, 2024@01:50:40 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
