ECX3P178.m

ECX3P178 ;ALB/CMD - DSS Patch 178 Post-init routine; Feb 07, 2020@16:50:34

 ;;3.0;DSS EXTRACTS;**178**;Dec 22, 1997;Build 67

POST ;Post-install items

 D TEST ;Set testing site information

 D MENU ;update menus

 D INACT ;Inactivate Quasar and Lab Results in extract file definitions 727.1

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

 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: Quasar Extract and Lab Result Extract from Package Extract options, Quasar and Lab Results Audit Extract and Lab Results LOINC Code Report.

 ;Add new option: ECX SUR Observation for Surgery Pre-Extract Audit 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_" <<<")

 D BMES^XPDUTL("Updating Surgery Pre-Extract Audit Report Menu")

 S CHECK=$$ADD^XPDMENU("ECX SURGERY PRE-EXTRACT","ECX SUR OBS",3,3)

 D BMES^XPDUTL("ECX SUR OBSERVATION Option "_$S('+$G(CHECK):"NOT ",1:"")_"added to menu ECX SURGERY PRE-EXTRACT")

 Q

 ;

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

 ;;ECXQSR^ECXMENU

 ;;ECXLABR^ECXMENU

 ;;ECX LAR SOURCE AUDIT^ECX SOURCE AUDITS

 ;;ECX QSR SOURCE AUDIT^ECX SOURCE AUDITS

 ;;ECX LAR LOINC RPT^ECX MAINTENANCE

 ;;DONE

 ;

INACT ; Inactivate ECQ (Quasar)and LAR (Lab Results) in EXTRACT DEFINITION file (#727.1)

 N I,ECXFDA,ECXERR,ECXMSG,ECXDA,ECXOFF

 F I="ECQ","LAR" D

 .D MES^XPDUTL("  Inactivating "_I_" entry ...")

 .S ECXDA=+$O(^ECX(727.1,"C",I,0))

 .I 'ECXDA D  Q

 ..K ECXMSG

 ..S ECXMSG(1)=" "

 ..S ECXMSG(2)="   ** ERROR INACTIVATING "_I_" **"

 ..S ECXMSG(3)="      Entry not found in file"

 ..D MES^XPDUTL(.ECXMSG)

 .K ECXFDA,ECXERR

 .S ECXFDA(727.1,ECXDA_",",13)=1

 .D FILE^DIE("","ECXFDA","ECXERR")

 .Q:'$D(ECXERR)

 .D BMES^XPDUTL("   ** ERROR INACTIVING  **")

 .K ECXMSG D MSG^DIALOG("AE",.ECXMSG,65,6,"ECXERR")

 .D MES^XPDUTL(.ECXERR)

 D BMES^XPDUTL("- Done -")

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ECX3P178   2504     printed  Apr 09, 2024@20:59:03                                                                                                                                                                                                    Page 2

ECX3P178  ;ALB/CMD - DSS Patch 178 Post-init routine; Feb 07, 2020@16:50:34

 +1       ;;3.0;DSS EXTRACTS;**178**;Dec 22, 1997;Build 67

POST      ;Post-install items

 +1       ;Set testing site information

           DO TEST

 +2       ;update menus

           DO MENU

 +3       ;Inactivate Quasar and Lab Results in extract file definitions 727.1

           DO INACT

 +4        QUIT 

 +5       ;

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

 +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      ;Remove: Quasar Extract and Lab Result Extract from Package Extract options, Quasar and Lab Results Audit Extract and Lab Results LOINC Code Report.

 +1       ;Add new option: ECX SUR Observation for Surgery Pre-Extract Audit Report.

 +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        DO BMES^XPDUTL("Updating Surgery Pre-Extract Audit Report Menu")

 +8        SET CHECK=$$ADD^XPDMENU("ECX SURGERY PRE-EXTRACT","ECX SUR OBS",3,3)

 +9        DO BMES^XPDUTL("ECX SUR OBSERVATION Option "_$SELECT('+$GET(CHECK):"NOT ",1:"")_"added to menu ECX SURGERY PRE-EXTRACT")

 +10       QUIT 

 +11      ;

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

 +1       ;;ECXQSR^ECXMENU

 +2       ;;ECXLABR^ECXMENU

 +3       ;;ECX LAR SOURCE AUDIT^ECX SOURCE AUDITS

 +4       ;;ECX QSR SOURCE AUDIT^ECX SOURCE AUDITS

 +5       ;;ECX LAR LOINC RPT^ECX MAINTENANCE

 +6       ;;DONE

 +7       ;

INACT     ; Inactivate ECQ (Quasar)and LAR (Lab Results) in EXTRACT DEFINITION file (#727.1)

 +1        NEW I,ECXFDA,ECXERR,ECXMSG,ECXDA,ECXOFF

 +2        FOR I="ECQ","LAR"

               Begin DoDot:1

 +3                DO MES^XPDUTL("  Inactivating "_I_" entry ...")

 +4                SET ECXDA=+$ORDER(^ECX(727.1,"C",I,0))

 +5                IF 'ECXDA

                       Begin DoDot:2

 +6                        KILL ECXMSG

 +7                        SET ECXMSG(1)=" "

 +8                        SET ECXMSG(2)="   ** ERROR INACTIVATING "_I_" **"

 +9                        SET ECXMSG(3)="      Entry not found in file"

 +10                       DO MES^XPDUTL(.ECXMSG)

                       End DoDot:2

                       QUIT 

 +11               KILL ECXFDA,ECXERR

 +12               SET ECXFDA(727.1,ECXDA_",",13)=1

 +13               DO FILE^DIE("","ECXFDA","ECXERR")

 +14               if '$DATA(ECXERR)

                       QUIT 

 +15               DO BMES^XPDUTL("   ** ERROR INACTIVING  **")

 +16               KILL ECXMSG

                   DO MSG^DIALOG("AE",.ECXMSG,65,6,"ECXERR")

 +17               DO MES^XPDUTL(.ECXERR)

               End DoDot:1

 +18       DO BMES^XPDUTL("- Done -")

 +19       QUIT 

 +20      ;