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 ---[H[J[2J[HEC2P86PT 6099 printed Sep 23, 2025@19:32:20 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
