source: FOIAVistA/trunk/r/EVENT_CAPTURE-EC--ECT--ECX/EC2P86PT.m@ 1607

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 5.8 KB
Line 
1EC2P86PT ;ALB/JAM - PATCH EC*2.0*86 Post-Init Rtn ; 04/22/07 5:04pm
2 ;;2.0; EVENT CAPTURE ;**86**;8 May 96;Build 8
3 ;
4 Q
5POST ; entry point
6 D MES^XPDUTL(" ")
7 D BMES^XPDUTL("This installation will disable all of Event Capture System (ECS) Roll-and-Scroll")
8 D MES^XPDUTL("options as part of the official shutdown of this interface.")
9 D MES^XPDUTL(" ")
10 D MES^XPDUTL("The Roll-and-Scroll interface will no longer be supported and as such users are")
11 D MES^XPDUTL("required to use the Graphical User Interface which provides the equivalent")
12 D MES^XPDUTL("functionality.")
13 D MES^XPDUTL(" ")
14 D EN
15 Q
16 ;
17EN ;* entry point
18 N LOOP,OPT,ECNT,SCNT,PCNT,COUNT,I,TXTVAR,DATA,DESC
19 K ^TMP($J,"EC2P86","NFND"),^TMP($J,"EC2P86","FND"),^TMP($J,"EC2P86MG")
20 K ^TMP($J,"EC2P86","PFND")
21 S (ECNT,SCNT,COUNT,PCNT)=0,$P(BLK," ",30)=""
22 D MES^XPDUTL("Disabling Event Capture Roll-and-Scroll Options...")
23 F I=1:1 S TXTVAR=$P($T(MSGTXT+I),";;",2) Q:TXTVAR="QUIT" D LINE(TXTVAR)
24 ;Disable options
25 F LOOP=1:1 S DATA=$P($T(OPTIONS+LOOP),";;",2) Q:DATA="QUIT" D
26 .S OPT=$P(DATA,";"),DESC=$P(DATA,";",2)
27 .I $$LKOPT^XPDMENU(OPT)'>0 Q:LOOP>36 D ELINE($E(OPT_BLK,1,19)_DESC) Q
28 .D OUT^XPDMENU(OPT,"OPTION NO LONGER SUPPORTED. USE THE ECS GUI INTERFACE.")
29 .D MES^XPDUTL($E(OPT_BLK,1,19)_" "_DESC_" Disabled...")
30 .I LOOP>36 D PLINE($E(OPT_BLK,1,19)_DESC) Q
31 .D SLINE($E(OPT_BLK,1,19)_DESC)
32 D BMES^XPDUTL("National Options Disabled Successfully: "_SCNT)
33 I PCNT>0 D MES^XPDUTL("Pre-Released Options Disabled Successfully: "_PCNT)
34 D MES^XPDUTL("National Options Disabled Unsuccessfully: "_ECNT)
35 D ADDMSG
36 D MAIL
37 K ^TMP($J,"EC2P86"),^TMP($J,"EC2P86MG")
38 Q
39 ;
40RESTORE ;Place options back in order
41 N LOOP,OPT,BLK
42 S $P(BLK," ",30)=""
43 D MES^XPDUTL("Placing Event Capture Roll-and-Scroll Options back in order.")
44 F LOOP=1:1 S DATA=$P($T(OPTIONS+LOOP),";;",2) Q:DATA="QUIT" D
45 .S OPT=$P(DATA,";")
46 .D OUT^XPDMENU(OPT,"")
47 .D MES^XPDUTL($E(OPT_BLK,1,19)_" "_$P(DATA,":",2)_" Enabled...")
48 Q
49 ;
50LINE(TEXT) ;Add line to message global
51 S COUNT=COUNT+1
52 S ^TMP($J,"EC2P86MG",COUNT)=TEXT
53 Q
54 ;
55SLINE(TEXT) ;Add line to global for option found
56 S SCNT=SCNT+1
57 S ^TMP($J,"EC2P86","FND",SCNT)=TEXT
58 Q
59 ;
60ELINE(TEXT) ;Add line to global for option not found
61 S ECNT=ECNT+1
62 S ^TMP($J,"EC2P86","NFND",ECNT)=TEXT
63 Q
64 ;
65PLINE(TEXT) ;Add line to global for pre-release option found
66 S PCNT=PCNT+1
67 S ^TMP($J,"EC2P86","PFND",PCNT)=TEXT
68 Q
69 ;
70ADDMSG ;Add lines to message global
71 N CNT
72 I $D(^TMP($J,"EC2P86","FND")) D
73 .D LINE("Event Capture roll-and-scroll options disabled:")
74 .S CNT=0 F S CNT=$O(^TMP($J,"EC2P86","FND",CNT)) Q:'CNT D LINE(^(CNT))
75 .D LINE(""),LINE("Options Disabled Successfully: "_SCNT)
76 I $D(^TMP($J,"EC2P86","PFND")) S CNT=0 D
77 .D LINE("")
78 .D LINE("Pre-Released Event Capture Options disabled:")
79 .F S CNT=$O(^TMP($J,"EC2P86","PFND",CNT)) Q:'CNT D LINE(^(CNT))
80 .D LINE(""),LINE("Pre-Released Options Disabled: "_PCNT)
81 I $D(^TMP($J,"EC2P86","NFND")) S CNT=0 D
82 .D LINE("")
83 .D LINE("National Event Capture Options Not Found:")
84 .F S CNT=$O(^TMP($J,"EC2P86","NFND",CNT)) Q:'CNT D LINE(^(CNT))
85 .D LINE(""),LINE("Options Disabled Unsuccessfully: "_ECNT)
86 Q
87 ;
88MSGTXT ; Message intro
89 ;;Please forward this message to your local DSS Site Manager or Event Capture
90 ;;ADPAC.
91 ;;
92 ;; This message details the national VistA options that were disabled under
93 ;; the Event Capture System (ECS) roll-and-scroll interface. If an option was
94 ;; not found, then it will be identified in a section of this email message.
95 ;; Additionally, any pre-released EC2P* options will be disabled and listed.
96 ;;
97 ;; If your site has edited the name of a national option, then your IRM will
98 ;; need to manually disable any such option.
99 ;;
100 ;; As of the release of this patch, ECS roll-and-scroll interface will no longer
101 ;; be supported. Sites should be using the graphical user interface (GUI) which
102 ;; has the equivalent functionality.
103 ;;
104 ;;QUIT
105 ;
106MAIL ; Send message
107 N DIFROM,XMDUZ,XMY,XMTEXT,XMSUB,XMDUN,XMZ
108 S XMY(DUZ)="",XMDUZ=.5,XMY(XMDUZ)=""
109 S XMSUB="Event Capture Roll-and-Scroll Shutdown"
110 S XMTEXT="^TMP($J,""EC2P86MG"","
111 D ^XMD
112 Q
113 ;
114OPTIONS ;Event Capture Options that will be set out of order.
115 ;;ECLOC;Current Locations (Create/Remove)
116 ;;ECSECT;DSS Units for Event Capture (Enter/Edit)
117 ;;ECDSUNIT;Assign User Access to DSS Units
118 ;;ECDEAL;Remove User Access to DSS Units
119 ;;ECDS CATEGORY;Local Category (Enter/Edit)
120 ;;ECDSS PROCEDURE;Local Procedure (Enter/Edit)
121 ;;ECSCREEN;Event Code Screens (Create)
122 ;;ECDSSYN;Procedure Synonym/Default Volume (Enter/Edit)
123 ;;ECNACT;Inactivate Event Code Screens
124 ;;ECDSDEAC;Activate/Inactivate Local Procedures
125 ;;ECDS CATEGORY DEAC;Activate/Inactivate Local Category
126 ;;ECDSS1;National/Local Procedure Reports
127 ;;ECDSS3;Category Reports
128 ;;ECCP;Print Category and Procedure Summary
129 ;;ECCP1;*Summary of Procedures and Categories (Old File)
130 ;;ECSCPT;Event Code Screens with CPT Codes
131 ;;ECINCPT;National/Local Procedure Codes with Inactive CPT
132 ;;ECDSRPT;Management Reports
133 ;;ECMGR;Event Capture Management Menu
134 ;;ECPAT;Enter/Edit Patient Procedures
135 ;;ECBATCH;Batch Enter Data by Patient
136 ;;ECBATCH PROC;Data Entry (Batch) by Procedure
137 ;;ECMULT PROC;Multiple Dates/Multiple Procedures Data Entry
138 ;;ECENTER;Event Capture Data Entry
139 ;;ECPAT SUM;Patient Summary - Event Capture
140 ;;ECRDSSU;DSS Unit Workload Summary
141 ;;ECPROV;Provider Summary Report
142 ;;EC OS SUM;Ordering Section Summary Report
143 ;;EC PRO SUM;Provider (1-7) Summary Report
144 ;;EC PCE REPORT;PCE Data Summary
145 ;;ECRPERS;Inactive Person Class Report
146 ;;ECRPRSN;Procedure Reason Report
147 ;;EC NTPCE REPORT;Records Failing Transmission to PCE Report
148 ;;ECREPS;Event Capture Reports
149 ;;ECDSONL;Event Capture Online Documentation
150 ;;ECMENU;Event Capture Menu
151 ;;EC2PEDIT;Map Event Capture Procedures to National Files
152 ;;EC2PLIST;List Mapped/Unmapped Event Capture Procedures
153 ;;EC2PMGR;Pre Release for Event Capture
154 ;;QUIT
Note: See TracBrowser for help on using the repository browser.