ECX3P174.m

ECX3P174 ;ALB/DAN - DSS FY2020 Conversion, Post-init ;6/17/19  11:28

 ;;3.0;DSS EXTRACTS;**174**;Dec 22, 1997;Build 33

 ;

POST ;Post-install items

 D TEST ;Set testing site information

 D MENU ;update menus

 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,"FY2020")

 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 ;update menus

 N DA,DIE,DR,MENU,OPTION,CHECK,CHOICE,SYN,ORD,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_" <<<")

 S TYPE="MENUADD" F OFF=1:1 S CHOICE=$P($T(@TYPE+OFF),";;",2) Q:CHOICE="DONE"  D

 .S OPTION=$P(CHOICE,"^"),MENU=$P(CHOICE,"^",2),SYN=$P(CHOICE,"^",3),ORD=$P(CHOICE,"^",4)

 .S CHECK=$$ADD^XPDMENU(MENU,OPTION,SYN,ORD)

 .D BMES^XPDUTL(">>> "_OPTION_" OPTION"_$S('CHECK:" NOT",1:"")_" ADDED TO "_MENU_" <<<")

 Q

 ;

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

 ;;ECX LAB RESULTS TRANS EDIT^ECXLAB MAINTENACE

 ;;ECX UNTRANS LAR REPORT^ECXLAB MAINTENACE

 ;;ECX LAR LOINC RPT^ECXLAB MAINTENACE

 ;;ECXLAB MAINTENACE^ECX MAINTENANCE

 ;;DONE

MENUADD ;Menu items to be added. Format is OPTION NAME^MENU TO BE ADDED TO^SYNONYM^DISPLAY ORDER

 ;;ECX LAR LOINC RPT^ECX MAINTENANCE^LAB^4

 ;;ECXINDIV^ECX MAINTENANCE^DIV^7.5

 ;;ECX PHA COST AUDIT^ECX SOURCE AUDITS^PHA^8

 ;;DONE

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ECX3P174   1838     printed  Apr 09, 2024@20:54:52                                                                                                                                                                                                    Page 2

ECX3P174  ;ALB/DAN - DSS FY2020 Conversion, Post-init ;6/17/19  11:28

 +1       ;;3.0;DSS EXTRACTS;**174**;Dec 22, 1997;Build 33

 +2       ;

POST      ;Post-install items

 +1       ;Set testing site information

           DO TEST

 +2       ;update menus

           DO MENU

 +3        QUIT 

 +4       ;

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,"FY2020")

 +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 

 +9       ;

MENU      ;update menus

 +1        NEW DA,DIE,DR,MENU,OPTION,CHECK,CHOICE,SYN,ORD,TYPE,OFF,UPDATE

 +2        SET TYPE="MENUDEL"

           FOR OFF=1:1

               SET CHOICE=$PIECE($TEXT(@TYPE+OFF),";;",2)

               if CHOICE="DONE"

                   QUIT 

               Begin DoDot:1

 +3                SET OPTION=$PIECE(CHOICE,"^")

                   SET MENU=$PIECE(CHOICE,"^",2)

 +4                SET CHECK=$$DELETE^XPDMENU(MENU,OPTION)

 +5                DO BMES^XPDUTL(">>> "_OPTION_" OPTION "_$SELECT(CHECK:"REMOVED FROM ",1:"DOES NOT EXIST IN ")_MENU_" <<<")

               End DoDot:1

 +6        SET TYPE="MENUADD"

           FOR OFF=1:1

               SET CHOICE=$PIECE($TEXT(@TYPE+OFF),";;",2)

               if CHOICE="DONE"

                   QUIT 

               Begin DoDot:1

 +7                SET OPTION=$PIECE(CHOICE,"^")

                   SET MENU=$PIECE(CHOICE,"^",2)

                   SET SYN=$PIECE(CHOICE,"^",3)

                   SET ORD=$PIECE(CHOICE,"^",4)

 +8                SET CHECK=$$ADD^XPDMENU(MENU,OPTION,SYN,ORD)

 +9                DO BMES^XPDUTL(">>> "_OPTION_" OPTION"_$SELECT('CHECK:" NOT",1:"")_" ADDED TO "_MENU_" <<<")

               End DoDot:1

 +10       QUIT 

 +11      ;

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

 +1       ;;ECX LAB RESULTS TRANS EDIT^ECXLAB MAINTENACE

 +2       ;;ECX UNTRANS LAR REPORT^ECXLAB MAINTENACE

 +3       ;;ECX LAR LOINC RPT^ECXLAB MAINTENACE

 +4       ;;ECXLAB MAINTENACE^ECX MAINTENANCE

 +5       ;;DONE

MENUADD   ;Menu items to be added. Format is OPTION NAME^MENU TO BE ADDED TO^SYNONYM^DISPLAY ORDER

 +1       ;;ECX LAR LOINC RPT^ECX MAINTENANCE^LAB^4

 +2       ;;ECXINDIV^ECX MAINTENANCE^DIV^7.5

 +3       ;;ECX PHA COST AUDIT^ECX SOURCE AUDITS^PHA^8

 +4       ;;DONE