source: FOIAVistA/trunk/r/CLINICAL_PROCEDURES-MD/MDOUTOR.m@ 757

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

initial load of FOIAVistA 6/30/08 version

File size: 4.6 KB
Line 
1MDOUTOR ; HOIFO/NCA - Post Conversion Routine ; [04-14-2003 10:51]
2 ;;1.0;CLINICAL PROCEDURES;**5**;Apr 01, 2004;Build 1
3EN1 ; [Procedure]
4 ; This post conversion routine will place the Medicine Enter/Edit
5 ; options out of order
6 ; Reference IA # 1157 [Supported] Kernel XPDMENU calls.
7 ; IA # 2263 [Supported] XPAR parameter calls
8 ; IA #10075 [Supported] Option File Read.
9 ;
10 N LP,MDAR,MDFDA,MDLAB,MDPI,MDOPI,MDOPT,MDTXT,MDSEL,MDX
11 I $$GET^XPAR("SYS","MD MEDICINE CONVERTED",1) W !!,"Options Already Disabled.",! Q
12 K DIR S DIR(0)="YA",DIR("A")="Place the Medicine options OUT OF ORDER? ",DIR("B")="NO" D ^DIR K DIR Q:$D(DIRUT)!$D(DIROUT)!(Y<1)
13 K DIR S DIR(0)="SO^1:CATH;2:ECG;3:ECHO;4:EP;5:HOLTER;6:ETT;7:SURGICAL RISK;8:CONSULT;9:GI;10:PULMONARY-GI;11:PFT;12:HEMATOLOGY;13:PACEMAKER;14:RHEUMATOLOGY;15:ALL"
14 S DIR("?")="Enter a code from 1-15."
15 D ^DIR K DIR Q:$D(DIRUT)!$D(DIROUT)!(Y<1) S MDSEL=Y
16 S MDTXT="Medicine Reports Converted to Clinical Procedures - OPTION OUT OF SERVICE"
17 F MDX=1:1 S MDOPT=$P($T(LABEL+MDX),";;",2) Q:MDOPT="**END**" D
18 .Q:MDOPT=""
19 .S MDAR(MDX)=MDOPT
20 .Q
21 S MDLAB=$S(MDSEL'=15:$G(MDAR(MDSEL)),1:"")
22 W !!,"Placing the following Medicine options OUT OF ORDER:",!
23 I MDSEL=15 F LP=1:1:15 S MDLAB=$G(MDAR(LP)) Q:MDLAB="" D DISABLE
24 I MDSEL=15 D EN^XPAR("SYS","MD MEDICINE CONVERTED",1,1) Q
25 D:MDSEL'=15 DISABLE
26 W !! K DIR S DIR(0)="YA",DIR("A")="Are All Medicine Reports Converted? ",DIR("B")="NO" D ^DIR K DIR Q:$D(DIRUT)!$D(DIROUT)!(Y<1)
27 D EN^XPAR("SYS","MD MEDICINE CONVERTED",1,1)
28 Q
29DISABLE ; Disabling the options
30 F MDX=1:1 S MDOPT=$P($T(@MDLAB+MDX),";;",2) Q:MDOPT="**END**" D
31 .Q:MDOPT=""
32 .S MDPI=$$FIND1^DIC(19,"","MX",MDOPT) Q:'MDPI
33 .D OUT^XPDMENU(MDOPT,MDTXT)
34 .W !,$$GET1^DIQ(19,MDPI_",",1,"E")," [",MDOPT,"]"
35 Q
36 ;
37LABEL ; [Labels]
38 ;;CATH
39 ;;ECG
40 ;;ECHO
41 ;;EP
42 ;;HOLTER
43 ;;ETT
44 ;;SURG
45 ;;CONSULT
46 ;;GI
47 ;;PULM
48 ;;PFT
49 ;;HEM
50 ;;PACE
51 ;;RHEUM
52 ;;SUMM
53 ;;**END**
54OPTIONS ; [Data Module] Enter/Edit Medicine options
55CATH ;;[Cardiac Catheterization options]
56 ;;MCFSCATH
57 ;;MCFPCATH
58 ;;MCFLCATH
59 ;;MCBLCATH
60 ;;MCBSCATH
61 ;;MCBPCATH
62 ;;MCARCATHIMAGE
63 ;;**END**
64ECG ;;[Electrocardiogram options]
65 ;;MCFSECG
66 ;;MCFPECG
67 ;;MCFLECG
68 ;;MCARECGAUTOSUM
69 ;;MCBLECG
70 ;;MCBSECG
71 ;;MCBPECG
72 ;;**END**
73ECHO ;;[Echocardiogram options]
74 ;;MCFSECHO
75 ;;MCFPECHO
76 ;;MCFLECHO
77 ;;MCARECHOIMAGE
78 ;;MCBLECHO
79 ;;MCBSECHO
80 ;;MCBPECHO
81 ;;**END**
82EP ;;[Electrophysiology options]
83 ;;MCFSEP
84 ;;MCFPEP
85 ;;MCFLEP
86 ;;MCBLEP
87 ;;MCBSEP
88 ;;MCBPEP
89 ;;**END**
90HOLTER ;;[Holter options]
91 ;;MCFSHOLTER
92 ;;MCFPHOLTER
93 ;;MCFLHOLTER
94 ;;MCBLHOLTER
95 ;;MCBSHOLTER
96 ;;MCBPHOLTER
97 ;;**END**
98ETT ;;[Exercise Tolerance Test options]
99 ;;MCFSETT
100 ;;MCFPETT
101 ;;MCFLETT
102 ;;MCBLETT
103 ;;MCBSETT
104 ;;MCBPETT
105 ;;**END**
106SURG ;;[Surgical Risk Assessment options]
107 ;;MCARCATHSRAPRE
108 ;;MCARCATHSRAPOST
109 ;;MCARSRAPRE
110 ;;MCARSRAPOST
111 ;;MCARCATHSRAPRINT
112 ;;**END**
113CONSULT ;;[Consult options]
114 ;;MCARGICONSULTEDIT
115 ;;MCCONSULTSCREEN
116 ;;MCARGICONSULTPRINT
117 ;;MCARGICONSULTBRIEF
118 ;;MCCONSULTBRSCR
119 ;;MCCONSULTBRREPORT
120 ;;**END**
121GI ;;[GI options]
122 ;;MCFLGI
123 ;;MCFSGI
124 ;;MCFPGI
125 ;;MCARGIDIAG
126 ;;MCARGIRECALLIST
127 ;;MCARGIMAGE
128 ;;MCBLGI
129 ;;MCBSGI
130 ;;MCBPGI
131 ;;MCFLNONENDO
132 ;;MCFSNONENDO
133 ;;MCFPNONENDO
134 ;;MCBLNONENDO
135 ;;MCBSNONENDO
136 ;;MCBPNONENDO
137 ;;**END**
138PULM ;;[Pulmonary options]
139 ;;MCFLPULM
140 ;;MCFSPULM
141 ;;MCFPPULM
142 ;;MCARPULMDIAG
143 ;;MCARPULMRECALLIST
144 ;;MCARPULMIMAGE
145 ;;MCBLPULM
146 ;;MCBSPULM
147 ;;MCBPPULM
148 ;;**END**
149PFT ;;[Pulmonary Function Test Options]
150 ;;MCFLPFT
151 ;;MCFLPFTI
152 ;;MCFPPFT
153 ;;MCFSPFT
154 ;;MCBLPFT
155 ;;MCBSPFT
156 ;;MCBPPFT
157 ;;**END**
158HEM ;;[Hematology options]
159 ;;MCFLHEM
160 ;;MCFSHEM
161 ;;MCFPHEM
162 ;;MCARHEMIMAGE
163 ;;MCBLHEM
164 ;;MCBSHEM
165 ;;MCBPHEM
166 ;;**END**
167PACE ;;[Pacemaker options]
168 ;;MCARPACEMULTEDIT
169 ;;MCARPACEGENIMP
170 ;;MCFLALEAD
171 ;;MCFLVLEAD
172 ;;MCFLSURV
173 ;;MCARPACEDIT
174 ;;MCBLGENE
175 ;;MCBLALEAD
176 ;;MCBLVLEAD
177 ;;MCBLSURV
178 ;;MCFSMULTI
179 ;;MCFSGENIMPL.
180 ;;MCFSALEAD
181 ;;MCFSVLEAD
182 ;;MCARPACESCREENSURV
183 ;;MCARPACESCREENDEMO
184 ;;MCBSGENI
185 ;;MCBSALEAD
186 ;;MCBSVLEAD
187 ;;MCPACSURVBRSCR
188 ;;MCARPACEGENPRINT
189 ;;MCFPALEAD
190 ;;MCFPVLEAD
191 ;;MCARPACESURVPRINT
192 ;;MCARPACEPATIENT
193 ;;MCBPGEN.IMPLANT
194 ;;MCBPALEAD
195 ;;MCBPVLEAD
196 ;;MCPACSURVBRREPORT
197 ;;**END**
198RHEUM ;;[Rheumatology options]
199 ;;MCRHDIAGF
200 ;;MCRHBACKF
201 ;;MCRHNARRF
202 ;;MCRHLABF
203 ;;MCRHHAQF
204 ;;MCRHPATHISTF
205 ;;MCRHPHYSF
206 ;;MCRHDEATHF
207 ;;MCRHDIAGP
208 ;;MCRHBACKP
209 ;;MCRHNARRP
210 ;;MCRHLABP
211 ;;MCRHHAQP
212 ;;MCRHPATHISTP
213 ;;MCRHPHYSP
214 ;;MCRHDEATHP
215 ;;MCRHALLP
216 ;;MCBPRHEUM
217 ;;MCRHIMAGE
218 ;;MCRHDIAGL
219 ;;MCRHNARRL
220 ;;MCRHHAQL
221 ;;MCRHPATHISTL
222 ;;MCRHPHYSL
223 ;;MCRHDEATHL
224 ;;MCRHBRIEF
225 ;;MCFLGEN
226 ;;MCFSGEN
227 ;;MCGENERICIMAGE
228 ;;MCBLGEN
229 ;;MCBSGEN
230 ;;**END**
231SUMM ;;[Procedure Summary option]
232 ;;MCARSUMMARY
233 ;;**END**
Note: See TracBrowser for help on using the repository browser.