ECX3P181.m

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

MENU ;Remove: Prosthetics YTD HCPCS Laboratory Report.

 ;

 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

 ;

MENUDEL ;Menu items to be removed.  Format is OPTION NAME^MENU TO BE REMOVED FROM

 ;;ECX PRO LAB REPORT^ECX PROSTHETICS MAINTENANCE

 ;;DONE

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ECX3P181   1524     printed  Apr 09, 2024@20:55:12                                                                                                                                                                                                    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 

MENU      ;Remove: Prosthetics YTD HCPCS Laboratory Report.

 +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       ;

MENUDEL   ;Menu items to be removed.  Format is OPTION NAME^MENU TO BE REMOVED FROM

 +1       ;;ECX PRO LAB REPORT^ECX PROSTHETICS MAINTENANCE

 +2       ;;DONE

 +3       ;