EC2P86PT.m

EC2P86PT ;ALB/JAM - PATCH EC*2.0*86 Post-Init Rtn ; 04/22/07 5:04pm

 ;;2.0; EVENT CAPTURE ;**86**;8 May 96;Build 8

 ;

 Q

POST ; entry point

 D MES^XPDUTL(" ")

 D BMES^XPDUTL("This installation will disable all of Event Capture System (ECS) Roll-and-Scroll")

 D MES^XPDUTL("options as part of the official shutdown of this interface.")

 D MES^XPDUTL(" ")

 D MES^XPDUTL("The Roll-and-Scroll interface will no longer be supported and as such users are")

 D MES^XPDUTL("required to use the Graphical User Interface which provides the equivalent")

 D MES^XPDUTL("functionality.")

 D MES^XPDUTL(" ")

 D EN

 Q

 ;

EN ;* entry point

 N LOOP,OPT,ECNT,SCNT,PCNT,COUNT,I,TXTVAR,DATA,DESC

 K ^TMP($J,"EC2P86","NFND"),^TMP($J,"EC2P86","FND"),^TMP($J,"EC2P86MG")

 K ^TMP($J,"EC2P86","PFND")

 S (ECNT,SCNT,COUNT,PCNT)=0,$P(BLK," ",30)=""

 D MES^XPDUTL("Disabling Event Capture Roll-and-Scroll Options...")

 F I=1:1 S TXTVAR=$P($T(MSGTXT+I),";;",2) Q:TXTVAR="QUIT"  D LINE(TXTVAR)

 ;Disable options

 F LOOP=1:1 S DATA=$P($T(OPTIONS+LOOP),";;",2) Q:DATA="QUIT"  D

 .S OPT=$P(DATA,";"),DESC=$P(DATA,";",2)

 .I $$LKOPT^XPDMENU(OPT)'>0 Q:LOOP>36  D ELINE($E(OPT_BLK,1,19)_DESC) Q

 .D OUT^XPDMENU(OPT,"OPTION NO LONGER SUPPORTED. USE THE ECS GUI INTERFACE.")

 .D MES^XPDUTL($E(OPT_BLK,1,19)_" "_DESC_" Disabled...")

 .I LOOP>36 D PLINE($E(OPT_BLK,1,19)_DESC) Q

 .D SLINE($E(OPT_BLK,1,19)_DESC)

 D BMES^XPDUTL("National Options Disabled Successfully:     "_SCNT)

 I PCNT>0 D MES^XPDUTL("Pre-Released Options Disabled Successfully:  "_PCNT)

 D MES^XPDUTL("National Options Disabled Unsuccessfully:    "_ECNT)

 D ADDMSG

 D MAIL

 K ^TMP($J,"EC2P86"),^TMP($J,"EC2P86MG")

 Q

 ;

RESTORE ;Place options back in order

 N LOOP,OPT,BLK

 S $P(BLK," ",30)=""

 D MES^XPDUTL("Placing Event Capture Roll-and-Scroll Options back in order.")

 F LOOP=1:1 S DATA=$P($T(OPTIONS+LOOP),";;",2) Q:DATA="QUIT"  D

 .S OPT=$P(DATA,";")

 .D OUT^XPDMENU(OPT,"")

 .D MES^XPDUTL($E(OPT_BLK,1,19)_"  "_$P(DATA,":",2)_" Enabled...")

 Q

 ;

LINE(TEXT) ;Add line to message global

 S COUNT=COUNT+1

 S ^TMP($J,"EC2P86MG",COUNT)=TEXT

 Q

 ;

SLINE(TEXT) ;Add line to global for option found

 S SCNT=SCNT+1

 S ^TMP($J,"EC2P86","FND",SCNT)=TEXT

 Q

 ;

ELINE(TEXT) ;Add line to global for option not found

 S ECNT=ECNT+1

 S ^TMP($J,"EC2P86","NFND",ECNT)=TEXT

 Q

 ;

PLINE(TEXT) ;Add line to global for pre-release option found

 S PCNT=PCNT+1

 S ^TMP($J,"EC2P86","PFND",PCNT)=TEXT

 Q

 ;

ADDMSG ;Add lines to message global

 N CNT

 I $D(^TMP($J,"EC2P86","FND")) D

 .D LINE("Event Capture roll-and-scroll options disabled:")

 .S CNT=0 F  S CNT=$O(^TMP($J,"EC2P86","FND",CNT)) Q:'CNT  D LINE(^(CNT))

 .D LINE(""),LINE("Options Disabled Successfully:   "_SCNT)

 I $D(^TMP($J,"EC2P86","PFND")) S CNT=0 D

 .D LINE("")

 .D LINE("Pre-Released Event Capture Options disabled:")

 .F  S CNT=$O(^TMP($J,"EC2P86","PFND",CNT)) Q:'CNT  D LINE(^(CNT))

 .D LINE(""),LINE("Pre-Released Options Disabled:   "_PCNT)

 I $D(^TMP($J,"EC2P86","NFND")) S CNT=0 D

 .D LINE("")

 .D LINE("National Event Capture Options Not Found:")

 .F  S CNT=$O(^TMP($J,"EC2P86","NFND",CNT)) Q:'CNT  D LINE(^(CNT))

 .D LINE(""),LINE("Options Disabled Unsuccessfully:   "_ECNT)

 Q

 ;

MSGTXT ; Message intro

 ;;Please forward this message to your local DSS Site Manager or Event Capture

 ;;ADPAC.

 ;;

 ;; This message details the national VistA options that were disabled under

 ;; the Event Capture System (ECS) roll-and-scroll interface. If an option was

 ;; not found, then it will be identified in a section of this email message.

 ;; Additionally, any pre-released EC2P* options will be disabled and listed.

 ;; 

 ;; If your site has edited the name of a national option, then your IRM will

 ;; need to manually disable any such option.

 ;; 

 ;; As of the release of this patch, ECS roll-and-scroll interface will no longer

 ;; be supported. Sites should be using the graphical user interface (GUI) which

 ;; has the equivalent functionality.

 ;;

 ;;QUIT

 ;

MAIL ; Send message

 N DIFROM,XMDUZ,XMY,XMTEXT,XMSUB,XMDUN,XMZ

 S XMY(DUZ)="",XMDUZ=.5,XMY(XMDUZ)=""

 S XMSUB="Event Capture Roll-and-Scroll Shutdown"

 S XMTEXT="^TMP($J,""EC2P86MG"","

 D ^XMD

 Q

 ;

OPTIONS ;Event Capture Options that will be set out of order.

 ;;ECLOC;Current Locations (Create/Remove)

 ;;ECSECT;DSS Units for Event Capture (Enter/Edit)

 ;;ECDSUNIT;Assign User Access to DSS Units

 ;;ECDEAL;Remove User Access to DSS Units

 ;;ECDS CATEGORY;Local Category (Enter/Edit)

 ;;ECDSS PROCEDURE;Local Procedure (Enter/Edit)

 ;;ECSCREEN;Event Code Screens (Create)

 ;;ECDSSYN;Procedure Synonym/Default Volume (Enter/Edit)

 ;;ECNACT;Inactivate Event Code Screens

 ;;ECDSDEAC;Activate/Inactivate Local Procedures

 ;;ECDS CATEGORY DEAC;Activate/Inactivate Local Category

 ;;ECDSS1;National/Local Procedure Reports

 ;;ECDSS3;Category Reports

 ;;ECCP;Print Category and Procedure Summary

 ;;ECCP1;*Summary of Procedures and Categories (Old File)

 ;;ECSCPT;Event Code Screens with CPT Codes

 ;;ECINCPT;National/Local Procedure Codes with Inactive CPT

 ;;ECDSRPT;Management Reports

 ;;ECMGR;Event Capture Management Menu

 ;;ECPAT;Enter/Edit Patient Procedures

 ;;ECBATCH;Batch Enter Data by Patient

 ;;ECBATCH PROC;Data Entry (Batch) by Procedure

 ;;ECMULT PROC;Multiple Dates/Multiple Procedures Data Entry

 ;;ECENTER;Event Capture Data Entry

 ;;ECPAT SUM;Patient Summary - Event Capture

 ;;ECRDSSU;DSS Unit Workload Summary

 ;;ECPROV;Provider Summary Report

 ;;EC OS SUM;Ordering Section Summary Report

 ;;EC PRO SUM;Provider (1-7) Summary Report

 ;;EC PCE REPORT;PCE Data Summary

 ;;ECRPERS;Inactive Person Class Report

 ;;ECRPRSN;Procedure Reason Report

 ;;EC NTPCE REPORT;Records Failing Transmission to PCE Report

 ;;ECREPS;Event Capture Reports

 ;;ECDSONL;Event Capture Online Documentation

 ;;ECMENU;Event Capture Menu

 ;;EC2PEDIT;Map Event Capture Procedures to National Files

 ;;EC2PLIST;List Mapped/Unmapped Event Capture Procedures

 ;;EC2PMGR;Pre Release for Event Capture

 ;;QUIT

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---EC2P86PT   6099     printed  Mar 13, 2025@21:00:55                                                                                                                                                                                                    Page 2

EC2P86PT  ;ALB/JAM - PATCH EC*2.0*86 Post-Init Rtn ; 04/22/07 5:04pm

 +1       ;;2.0; EVENT CAPTURE ;**86**;8 May 96;Build 8

 +2       ;

 +3        QUIT 

POST      ; entry point

 +1        DO MES^XPDUTL(" ")

 +2        DO BMES^XPDUTL("This installation will disable all of Event Capture System (ECS) Roll-and-Scroll")

 +3        DO MES^XPDUTL("options as part of the official shutdown of this interface.")

 +4        DO MES^XPDUTL(" ")

 +5        DO MES^XPDUTL("The Roll-and-Scroll interface will no longer be supported and as such users are")

 +6        DO MES^XPDUTL("required to use the Graphical User Interface which provides the equivalent")

 +7        DO MES^XPDUTL("functionality.")

 +8        DO MES^XPDUTL(" ")

 +9        DO EN

 +10       QUIT 

 +11      ;

EN        ;* entry point

 +1        NEW LOOP,OPT,ECNT,SCNT,PCNT,COUNT,I,TXTVAR,DATA,DESC

 +2        KILL ^TMP($JOB,"EC2P86","NFND"),^TMP($JOB,"EC2P86","FND"),^TMP($JOB,"EC2P86MG")

 +3        KILL ^TMP($JOB,"EC2P86","PFND")

 +4        SET (ECNT,SCNT,COUNT,PCNT)=0

           SET $PIECE(BLK," ",30)=""

 +5        DO MES^XPDUTL("Disabling Event Capture Roll-and-Scroll Options...")

 +6        FOR I=1:1

               SET TXTVAR=$PIECE($TEXT(MSGTXT+I),";;",2)

               if TXTVAR="QUIT"

                   QUIT 

               DO LINE(TXTVAR)

 +7       ;Disable options

 +8        FOR LOOP=1:1

               SET DATA=$PIECE($TEXT(OPTIONS+LOOP),";;",2)

               if DATA="QUIT"

                   QUIT 

               Begin DoDot:1

 +9                SET OPT=$PIECE(DATA,";")

                   SET DESC=$PIECE(DATA,";",2)

 +10               IF $$LKOPT^XPDMENU(OPT)'>0

                       if LOOP>36

                           QUIT 

                       DO ELINE($EXTRACT(OPT_BLK,1,19)_DESC)

                       QUIT 

 +11               DO OUT^XPDMENU(OPT,"OPTION NO LONGER SUPPORTED. USE THE ECS GUI INTERFACE.")

 +12               DO MES^XPDUTL($EXTRACT(OPT_BLK,1,19)_" "_DESC_" Disabled...")

 +13               IF LOOP>36

                       DO PLINE($EXTRACT(OPT_BLK,1,19)_DESC)

                       QUIT 

 +14               DO SLINE($EXTRACT(OPT_BLK,1,19)_DESC)

               End DoDot:1

 +15       DO BMES^XPDUTL("National Options Disabled Successfully:     "_SCNT)

 +16       IF PCNT>0

               DO MES^XPDUTL("Pre-Released Options Disabled Successfully:  "_PCNT)

 +17       DO MES^XPDUTL("National Options Disabled Unsuccessfully:    "_ECNT)

 +18       DO ADDMSG

 +19       DO MAIL

 +20       KILL ^TMP($JOB,"EC2P86"),^TMP($JOB,"EC2P86MG")

 +21       QUIT 

 +22      ;

RESTORE   ;Place options back in order

 +1        NEW LOOP,OPT,BLK

 +2        SET $PIECE(BLK," ",30)=""

 +3        DO MES^XPDUTL("Placing Event Capture Roll-and-Scroll Options back in order.")

 +4        FOR LOOP=1:1

               SET DATA=$PIECE($TEXT(OPTIONS+LOOP),";;",2)

               if DATA="QUIT"

                   QUIT 

               Begin DoDot:1

 +5                SET OPT=$PIECE(DATA,";")

 +6                DO OUT^XPDMENU(OPT,"")

 +7                DO MES^XPDUTL($EXTRACT(OPT_BLK,1,19)_"  "_$PIECE(DATA,":",2)_" Enabled...")

               End DoDot:1

 +8        QUIT 

 +9       ;

LINE(TEXT) ;Add line to message global

 +1        SET COUNT=COUNT+1

 +2        SET ^TMP($JOB,"EC2P86MG",COUNT)=TEXT

 +3        QUIT 

 +4       ;

SLINE(TEXT) ;Add line to global for option found

 +1        SET SCNT=SCNT+1

 +2        SET ^TMP($JOB,"EC2P86","FND",SCNT)=TEXT

 +3        QUIT 

 +4       ;

ELINE(TEXT) ;Add line to global for option not found

 +1        SET ECNT=ECNT+1

 +2        SET ^TMP($JOB,"EC2P86","NFND",ECNT)=TEXT

 +3        QUIT 

 +4       ;

PLINE(TEXT) ;Add line to global for pre-release option found

 +1        SET PCNT=PCNT+1

 +2        SET ^TMP($JOB,"EC2P86","PFND",PCNT)=TEXT

 +3        QUIT 

 +4       ;

ADDMSG    ;Add lines to message global

 +1        NEW CNT

 +2        IF $DATA(^TMP($JOB,"EC2P86","FND"))

               Begin DoDot:1

 +3                DO LINE("Event Capture roll-and-scroll options disabled:")

 +4                SET CNT=0

                   FOR 

                       SET CNT=$ORDER(^TMP($JOB,"EC2P86","FND",CNT))

                       if 'CNT

                           QUIT 

                       DO LINE(^(CNT))

 +5                DO LINE("")

                   DO LINE("Options Disabled Successfully:   "_SCNT)

               End DoDot:1

 +6        IF $DATA(^TMP($JOB,"EC2P86","PFND"))

               SET CNT=0

               Begin DoDot:1

 +7                DO LINE("")

 +8                DO LINE("Pre-Released Event Capture Options disabled:")

 +9                FOR 

                       SET CNT=$ORDER(^TMP($JOB,"EC2P86","PFND",CNT))

                       if 'CNT

                           QUIT 

                       DO LINE(^(CNT))

 +10               DO LINE("")

                   DO LINE("Pre-Released Options Disabled:   "_PCNT)

               End DoDot:1

 +11       IF $DATA(^TMP($JOB,"EC2P86","NFND"))

               SET CNT=0

               Begin DoDot:1

 +12               DO LINE("")

 +13               DO LINE("National Event Capture Options Not Found:")

 +14               FOR 

                       SET CNT=$ORDER(^TMP($JOB,"EC2P86","NFND",CNT))

                       if 'CNT

                           QUIT 

                       DO LINE(^(CNT))

 +15               DO LINE("")

                   DO LINE("Options Disabled Unsuccessfully:   "_ECNT)

               End DoDot:1

 +16       QUIT 

 +17      ;

MSGTXT    ; Message intro

 +1       ;;Please forward this message to your local DSS Site Manager or Event Capture

 +2       ;;ADPAC.

 +3       ;;

 +4       ;; This message details the national VistA options that were disabled under

 +5       ;; the Event Capture System (ECS) roll-and-scroll interface. If an option was

 +6       ;; not found, then it will be identified in a section of this email message.

 +7       ;; Additionally, any pre-released EC2P* options will be disabled and listed.

 +8       ;; 

 +9       ;; If your site has edited the name of a national option, then your IRM will

 +10      ;; need to manually disable any such option.

 +11      ;; 

 +12      ;; As of the release of this patch, ECS roll-and-scroll interface will no longer

 +13      ;; be supported. Sites should be using the graphical user interface (GUI) which

 +14      ;; has the equivalent functionality.

 +15      ;;

 +16      ;;QUIT

 +17      ;

MAIL      ; Send message

 +1        NEW DIFROM,XMDUZ,XMY,XMTEXT,XMSUB,XMDUN,XMZ

 +2        SET XMY(DUZ)=""

           SET XMDUZ=.5

           SET XMY(XMDUZ)=""

 +3        SET XMSUB="Event Capture Roll-and-Scroll Shutdown"

 +4        SET XMTEXT="^TMP($J,""EC2P86MG"","

 +5        DO ^XMD

 +6        QUIT 

 +7       ;

OPTIONS   ;Event Capture Options that will be set out of order.

 +1       ;;ECLOC;Current Locations (Create/Remove)

 +2       ;;ECSECT;DSS Units for Event Capture (Enter/Edit)

 +3       ;;ECDSUNIT;Assign User Access to DSS Units

 +4       ;;ECDEAL;Remove User Access to DSS Units

 +5       ;;ECDS CATEGORY;Local Category (Enter/Edit)

 +6       ;;ECDSS PROCEDURE;Local Procedure (Enter/Edit)

 +7       ;;ECSCREEN;Event Code Screens (Create)

 +8       ;;ECDSSYN;Procedure Synonym/Default Volume (Enter/Edit)

 +9       ;;ECNACT;Inactivate Event Code Screens

 +10      ;;ECDSDEAC;Activate/Inactivate Local Procedures

 +11      ;;ECDS CATEGORY DEAC;Activate/Inactivate Local Category

 +12      ;;ECDSS1;National/Local Procedure Reports

 +13      ;;ECDSS3;Category Reports

 +14      ;;ECCP;Print Category and Procedure Summary

 +15      ;;ECCP1;*Summary of Procedures and Categories (Old File)

 +16      ;;ECSCPT;Event Code Screens with CPT Codes

 +17      ;;ECINCPT;National/Local Procedure Codes with Inactive CPT

 +18      ;;ECDSRPT;Management Reports

 +19      ;;ECMGR;Event Capture Management Menu

 +20      ;;ECPAT;Enter/Edit Patient Procedures

 +21      ;;ECBATCH;Batch Enter Data by Patient

 +22      ;;ECBATCH PROC;Data Entry (Batch) by Procedure

 +23      ;;ECMULT PROC;Multiple Dates/Multiple Procedures Data Entry

 +24      ;;ECENTER;Event Capture Data Entry

 +25      ;;ECPAT SUM;Patient Summary - Event Capture

 +26      ;;ECRDSSU;DSS Unit Workload Summary

 +27      ;;ECPROV;Provider Summary Report

 +28      ;;EC OS SUM;Ordering Section Summary Report

 +29      ;;EC PRO SUM;Provider (1-7) Summary Report

 +30      ;;EC PCE REPORT;PCE Data Summary

 +31      ;;ECRPERS;Inactive Person Class Report

 +32      ;;ECRPRSN;Procedure Reason Report

 +33      ;;EC NTPCE REPORT;Records Failing Transmission to PCE Report

 +34      ;;ECREPS;Event Capture Reports

 +35      ;;ECDSONL;Event Capture Online Documentation

 +36      ;;ECMENU;Event Capture Menu

 +37      ;;EC2PEDIT;Map Event Capture Procedures to National Files

 +38      ;;EC2PLIST;List Mapped/Unmapped Event Capture Procedures

 +39      ;;EC2PMGR;Pre Release for Event Capture

 +40      ;;QUIT