source: FOIAVistA/trunk/r/CLINICAL_PROCEDURES-MD/MDPOST1.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 7.1 KB
Line 
1MDPOST1 ; HOIFO/NCA/DP - Build CP DEFINITION file (#702.01) - Optional Post Init ; [12-04-2002 13:06]
2 ;;1.0;CLINICAL PROCEDURES;;Apr 01, 2004
3INITPF ; [Procedure] Build Procedure File
4 NEW MD,MDADD,MDFDA,MDPROC,MDSKIP
5 W !,"This option will populate your CP PROCEDURE DEFINITION file"
6 W !,"with data."
7 D:$O(^MDS(702.01,0))
8 .W !!,$C(7),"NOTICE: You already have a procedure file with data."
9 .W !,"This option will not over-write existing data, it"
10 .W !,"will only add procedures not in your current file."
11 W !!,"Continue with loading" S %=2 D YN^DICN Q:%'=1
12 W !!,"Loading..."
13 S (MDADD,MDSKIP)=0
14 F MD=1:1 S MDPROC=$P($T(PROCDAT+MD),";;",2) Q:MDPROC="**END**" D
15 .W !,MDPROC,"..."
16 .I $D(^MDS(702.01,"B",MDPROC)) D Q
17 ..W "Already in file, skipped." S MDSKIP=MDSKIP+1
18 .Q:$D(^MDS(702.01,"B",MDPROC))
19 .S MDFDA(702.01,"+1,",.01)=MDPROC
20 .S MDFDA(702.01,"+1,",.09)=0
21 .D UPDATE^DIE("","MDFDA","")
22 .S MDADD=MDADD+1
23 .W "Added."
24 W !!,"Finished."
25 W !,"Procedures Added: ",MDADD
26 W !,"Procedures Skipped: ",MDSKIP
27 Q
28 ;
29PROCDAT ; [Data Module] Procedure names as released with Version 1.0
30 ;;ABD PARACENTESIS: FOLLOWUP
31 ;;ABD PARACENTESIS: INITIAL
32 ;;ABLATION OF AV NODE FUNCTION
33 ;;AICD INTER/CONDITION
34 ;;AIRWAY RESISTANCE
35 ;;ANO BIOPSY
36 ;;ANO CONTROL BLEEDING
37 ;;ANO DIAGNOSTIC (BRUSHINGS)
38 ;;ANO HOT BIOPSY(IES)
39 ;;ANO SINGLE TUMOR (HOT/BICAP)
40 ;;ANOSCOPY
41 ;;ARRHYTHMIA INDUCTION BY PACING
42 ;;ARTERIAL BLOOD GASES
43 ;;ARTERIAL CANNULATION
44 ;;ARTERIAL PUNCTURE
45 ;;ARTHROC.ASPIR.INJ.INT.JT.BUR
46 ;;ARTHROC.ASPIR.INJ.MAJ.JT.BUR
47 ;;ARTHROCENT.ASPIR.INJ.SM.JT.BUR
48 ;;ASPIRATION
49 ;;BIOPSY
50 ;;BIOPSY LUNG, PERCUTANEOUS NDL
51 ;;BIOPSY, PLEURA
52 ;;BONE MARROW
53 ;;BONE MARROW INTERPRETATION
54 ;;BRONC DIAGNOSTIC W/BAL
55 ;;BRONC W/BRONC WASHING
56 ;;BRONC W/TRANSBRONC LUNG BX
57 ;;BRONCHIAL BRUSH
58 ;;BRONCHOSCOPY W/BRONCH BIOPSY
59 ;;BRONCHOSCOPY W/WANG NEEDLE
60 ;;BRONCHOSCOPY, LASER
61 ;;BRONCHOSCOPY, STENT PLACEMENT
62 ;;BRONCHOSCOPY, THERAPEUTIC
63 ;;BRONCOSCOPY/FB REMOVAL
64 ;;C&P EXAM
65 ;;CARDIAC CATHETERIZATION
66 ;;CARDIAC REHAB W/O ECG MON
67 ;;CARDIAC REHAB/W ECG MON
68 ;;CARDIOPULMONARY REHABILITATION
69 ;;CARDIOVERSION, ELECTIVE
70 ;;CENTRAL VENOUS CANNULATION
71 ;;CHEMOTHERAPY
72 ;;COL ABL (OTHR THAN SNARE/BI)
73 ;;COL BIOPSY
74 ;;COL CONTROL HEM.
75 ;;COL DIAGNOSTIC (BRUSHINGS)
76 ;;COL HOT BIOPSY(IES)
77 ;;COL REMOVAL FB
78 ;;COL SNARE
79 ;;COLONOSCOPY
80 ;;COMPREHENSIVE EP EVALUATION
81 ;;CPAP/BIPAP VENTILATION
82 ;;DIALYSIS PROCEDURES, HEMO
83 ;;DIALYSIS TRAINING/COMPLETE
84 ;;DIFFUSION
85 ;;DILUTION STUDIES FOR CO MEAS
86 ;;ECG
87 ;;ECG (EKG), RHYTHM STRIP
88 ;;ECG 12 LEAD
89 ;;ECG 24 HOUR HOLTER MONITOR
90 ;;ECG MONITORING
91 ;;ECG WITH INTERPRETATION
92 ;;ECG, EVENT RECORDER
93 ;;ECG, RHYTHM TRACING
94 ;;ECG, SIGNAL AVERAGE
95 ;;ECHO
96 ;;ECHO TRANSESOPHOGEAL SINGLE PL
97 ;;ECHO, 2D M-MODE
98 ;;ECHO, DOPPLER COLOR FLOW
99 ;;ECHO, DOPPLER, COMPLETE
100 ;;ECHO, TRANSESOPHOGEAL
101 ;;ECHO, TRANSESOPHOGEAL BIPLANE
102 ;;ECHO, TRANSTHORACIC
103 ;;EGD
104 ;;EGD ABL (OTH THAN SNARE/BI)
105 ;;EGD BAND LIGATION
106 ;;EGD BIOPSY
107 ;;EGD DIAGNOSTIC (BRUSHINGS)
108 ;;EGD DILATION BALLOON
109 ;;EGD DILATION WIRE
110 ;;EGD FOREIGN BODY
111 ;;EGD HOT BIOPSY(IES) / BICAP
112 ;;EGD INJECTION / SCLEROSIS
113 ;;EGD SNARE/SINGLE
114 ;;EGD TUBE/STENT
115 ;;EKG, ROUTINE (12 LEADS)
116 ;;ENDO OF BOWEL POUCH W/ BIOPSY
117 ;;ENDOMYOCARDIAL BIOPSY
118 ;;ENDOSCOPIC ULTRASOUND
119 ;;ENDOSCOPIC ULTRASOUND, BIOPSY
120 ;;ENDOSCOPY OF BOWEL POUCH
121 ;;ENDOTRACHEAL INTUBATION
122 ;;ENTEROSCOPY
123 ;;EP EVAL OF CARDIO/DEFIB LEADS
124 ;;EP EVAL OF CARDIOVERTER/DEFIB
125 ;;EP EVAL W/ ARRHYTHMIA INDUCT
126 ;;EP EVAL W/ L ATRIAL RECORD
127 ;;EP EVAL W/ L VENTRIC RECORD
128 ;;EP FOLLOWUP STUDY W/PACING
129 ;;EP STUDY
130 ;;EPICARDIAL/ENDOCARDIAL MAPPING
131 ;;ERCP
132 ;;ERCP ABL (OTHR THAN SN/BI)
133 ;;ERCP BALLOON DILATION
134 ;;ERCP BIOPSY
135 ;;ERCP DEST STONES
136 ;;ERCP DIAGNOSTIC (BRUSHINGS)
137 ;;ERCP DRAIN, TUBE
138 ;;ERCP INSERTION OF TUBE/STENT
139 ;;ERCP PRESSURE OF ODDI
140 ;;ERCP REM STONES
141 ;;ERCP RMV FB OR CHG OF TUBE
142 ;;ERCP SPHINCTEROTOMY
143 ;;ES ABLATION (OTHER)
144 ;;ES BAND LIGATION
145 ;;ES BIOPSY
146 ;;ES CONTROL BLEEDING
147 ;;ES DIAGNOSTIC ENDO (BRUSHINGS)
148 ;;ES DILATION (BALLOON)
149 ;;ES DILATION (WIRE)
150 ;;ES HOT BIOPSY(IES)
151 ;;ES INJECTION / SCLEROSIS
152 ;;ES INSERTION TUBE/STENT
153 ;;ES REMOVAL FB
154 ;;ES SNARE
155 ;;ESOPHAGEAL DILATION
156 ;;ESOPHAGEAL MOTILITY STUDY
157 ;;ESOPHAGEAL RECORDING
158 ;;ESOPHAGUS
159 ;;ETT
160 ;;ETT W/ O2 CONSUMPTION
161 ;;ETT W/ THALLIUM SCAN
162 ;;EXAM,SYNOVIAL FLUID CRYSTALS
163 ;;EXCERCISE CHALLENGE
164 ;;FINE NEEDLE ASPIRATION
165 ;;FLEX SIG
166 ;;FLOW VOLUME LOOP
167 ;;FLX ABLATION (OTHER)
168 ;;FLX BIOPSY
169 ;;FLX CONTROL HEM.
170 ;;FLX DECOMPRESS VOLVULUS
171 ;;FLX DIAGNOSTIC (BRUSHINGS)
172 ;;FLX HOT BIOPSY(IES)
173 ;;FLX REMOVAL FB
174 ;;FLX SNARE
175 ;;FRC
176 ;;FT CHANGE OF G TUBE
177 ;;FT EGD FOR PEG PLACEMENT
178 ;;FT PERC PLACEMENT OF G TUBE
179 ;;FT REPOS TUBE THRU DUODENUM
180 ;;FT SM INT ENDO CONV G-J TUBE
181 ;;FT SM INT ENDO J TUBE PLACE
182 ;;HEART RATE VAR. ANALYSIS
183 ;;HEMODIALYSIS, ONE EVAL
184 ;;HEMODIALYSIS, REPEATED EVAL.
185 ;;HOLTER
186 ;;I & D /DEBRIDEMENT
187 ;;ICD IMPLANTATION
188 ;;ICD INTERROGATION
189 ;;ILEOSCOPY THROUGH STOMA
190 ;;ILEOSCOPY W/ BIOPSY
191 ;;INFUSION 1-8 HRS.
192 ;;INFUSION TO 1 HR.
193 ;;INJ FOR ANGIOGRAPHY
194 ;;INJ FOR AV BYPASS GRAFTS
195 ;;INJ TENDON/LIGAMENT/CYST
196 ;;INJECTION, CARDIAC CATH
197 ;;INTRA-ATRIAL PACING
198 ;;INTRA-ATRIAL RECORDING
199 ;;INTRAVENTRICULAR PACING
200 ;;INTRODUCTION OF NEEDLE/CATH
201 ;;IV FLUID THERAPY
202 ;;IV INFUSION
203 ;;IV PUSH
204 ;;IV THER. 1-8 HRS.
205 ;;IV THER. UP TO 1 HR.
206 ;;LASER SURGERY (NOT YAG)
207 ;;LEFT HEART CATHETERIZATIION
208 ;;LEFT VENTRICULAR RECORDING
209 ;;LIVER BIOPSY
210 ;;LUNG COMPLIANCE
211 ;;MECHANICAL VENTILATION
212 ;;METHACHOLINE CHALLENGE
213 ;;MONITOR W/ REVIEW & REPORT
214 ;;OVER GUIDE WIRE
215 ;;PACEMAKE IMPLANTATION
216 ;;PACEMAKER
217 ;;PACEMAKER FOLLOW UP
218 ;;PACEMAKER, RHYTHM STRIP
219 ;;PARACENTESIS
220 ;;PERIPH BLOOD SMEAR INTERPRET
221 ;;PHLEBOTOMY
222 ;;PLACE CATHETER IN VEIN, HEMO
223 ;;PLEURODESIS
224 ;;PNEU BALLOON (30MM+) ACHALASIA
225 ;;PROC ABLATION (OTHER)
226 ;;PROC BIOPSY
227 ;;PROC CONTROL BLEEDING
228 ;;PROC DIAGNOSTIC (BRUSHINGS)
229 ;;PROC DILATION
230 ;;PROC HOT BIOPSY(IES)
231 ;;PROC REMOVAL FB
232 ;;PROC SNARE
233 ;;PROC TUMORS, MULT (HOT/SN/BI)
234 ;;PROCTOSCOPY
235 ;;PROGRAMMED STIMULATION/PACING
236 ;;PSEUDOFOLLICULAR SCAN
237 ;;PULMONARY ARTERY CATHETER
238 ;;PULMONARY FUNCTION INTERPRET
239 ;;PULMONARY PROCEDURES
240 ;;PULSE OXIMETRY MULTIPLE REHAB
241 ;;PULSE OXIMETRY SINGLE REHAB
242 ;;PULSE OXIMETRY, MULTIPLE
243 ;;RHEUMATOLOGY PROCEDURES
244 ;;RIGHT HEART CATHETERIZATION
245 ;;RIGHT VENTRICULAR RECORDING
246 ;;RT & LT HEART CATHETERS
247 ;;SB ENDO W/ABLATION
248 ;;SB ENDO W/BLEEDING CONTROL
249 ;;SB ENDO W/FB REMOVAL
250 ;;SB ENDO W/HOT BIOPSIES
251 ;;SB ENDO W/INCL ILEUM
252 ;;SB ENDO W/INCL ILEUM,BIOPSY
253 ;;SB ENDO W/INCL ILEUM,BLD CONT
254 ;;SB ENDO W/TUMORS (SNARE)
255 ;;SCREENING, MAMMOGRAM
256 ;;SCREENS AND INJ, ANTI-COAG
257 ;;SLOW VITAL CAPACITY
258 ;;SMALL BOWEL ENDOSCOPY
259 ;;SMALL BOWEL ENDOSCOPY,BIOPSY
260 ;;SOUND/BOUGIE;SINGLE/MULT
261 ;;SPIROMETRY
262 ;;SPIROMETRY, PRE & POST
263 ;;STO ABLATION
264 ;;STO BIOPSY
265 ;;STO CONTROL HEM.
266 ;;STO DIAG/BRUSHING
267 ;;STO FOREIGN BODY
268 ;;STO HOT BIOPSY(IES)
269 ;;STO SNARE
270 ;;STOMA
271 ;;STRESS TEST, ECHO IMAGING
272 ;;STRESS TEST, EXER (NON-IMAGE)
273 ;;STRESS TEST, NUCLEAR IMAGING
274 ;;SUBCUT./IM
275 ;;SYMPTOM LIMITED EXERCISE TEST
276 ;;THORACENTESIS
277 ;;THORACIC GAS VOLUME
278 ;;THORACOSTOMY
279 ;;THRESHOLD TEST (DUAL)
280 ;;THRESHOLD TEST (SGL)
281 ;;TILT TABLE TEST FOR SYNCOPE
282 ;;TRANS. BLOOD
283 ;;TRANS. INDWELL. VEN. ACC. CARE
284 ;;TRANS. THERAPEUTIC APHERESIS
285 ;;TRANSFUSION
286 ;;VENIPUNCTURE (ROUTINE), HEMO
287 ;;**END**
Note: See TracBrowser for help on using the repository browser.