ECX3P181 ;ALB/CMD - DSS FY2022 Conversion, Post-init ;Feb 05, 2021@13:40
;;3.0;DSS EXTRACTS;**181**;Dec 22, 1997;Build 71
;
;Reference to MES^XPDUTL supported by ICR #10141
;Reference to BMES^XPDUTL supported by ICR #10141
;Reference to $$DELETE^XPDMENU supported by ICR #1157
;
;****************************************
;Every year: Populate FY Year's version
; TESTON^ECXTREX(XPDNM,"FY2022")
;****************************************
;
POST ;Post-install items
D TEST ;Set testing site information
D MENU
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,"FY2022")
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
;
N DA,DIE,DR,MENU,OPTION,CHECK,CHOICE,TYPE,OFF,UPDATE
S TYPE="MENUDEL" F OFF=1:1 S CHOICE=$P($T(@TYPE+OFF),";;",2) Q:CHOICE="DONE" D
.S OPTION=$P(CHOICE,"^"),MENU=$P(CHOICE,"^",2)
.S CHECK=$$DELETE^XPDMENU(MENU,OPTION)
.D BMES^XPDUTL(">>> "_OPTION_" OPTION "_$S(CHECK:"REMOVED FROM ",1:"DOES NOT EXIST IN ")_MENU_" <<<")
Q
;
;;ECX PRO LAB REPORT^ECX PROSTHETICS MAINTENANCE
;;DONE
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HECX3P181 1524 printed Dec 13, 2024@01:50:35 Page 2
ECX3P181 ;ALB/CMD - DSS FY2022 Conversion, Post-init ;Feb 05, 2021@13:40
+1 ;;3.0;DSS EXTRACTS;**181**;Dec 22, 1997;Build 71
+2 ;
+3 ;Reference to MES^XPDUTL supported by ICR #10141
+4 ;Reference to BMES^XPDUTL supported by ICR #10141
+5 ;Reference to $$DELETE^XPDMENU supported by ICR #1157
+6 ;
+7 ;****************************************
+8 ;Every year: Populate FY Year's version
+9 ; TESTON^ECXTREX(XPDNM,"FY2022")
+10 ;****************************************
+11 ;
POST ;Post-install items
+1 ;Set testing site information
DO TEST
+2 DO MENU
+3 QUIT
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,"FY2022")
+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
+1 ;
+2 NEW DA,DIE,DR,MENU,OPTION,CHECK,CHOICE,TYPE,OFF,UPDATE
+3 SET TYPE="MENUDEL"
FOR OFF=1:1
SET CHOICE=$PIECE($TEXT(@TYPE+OFF),";;",2)
if CHOICE="DONE"
QUIT
Begin DoDot:1
+4 SET OPTION=$PIECE(CHOICE,"^")
SET MENU=$PIECE(CHOICE,"^",2)
+5 SET CHECK=$$DELETE^XPDMENU(MENU,OPTION)
+6 DO BMES^XPDUTL(">>> "_OPTION_" OPTION "_$SELECT(CHECK:"REMOVED FROM ",1:"DOES NOT EXIST IN ")_MENU_" <<<")
End DoDot:1
+7 QUIT
+8 ;
+1 ;;ECX PRO LAB REPORT^ECX PROSTHETICS MAINTENANCE
+2 ;;DONE
+3 ;
