source: FOIAVistA/tag/r/CLINICAL_PROCEDURES-MD/MDPOST1.m@ 628

MDPOST1 ; HOIFO/NCA/DP - Build CP DEFINITION file (#702.01) - Optional Post Init ; [12-04-2002 13:06]
 ;;1.0;CLINICAL PROCEDURES;;Apr 01, 2004
INITPF ; [Procedure] Build Procedure File
 NEW MD,MDADD,MDFDA,MDPROC,MDSKIP
 W !,"This option will populate your CP PROCEDURE DEFINITION file"
 W !,"with data."
 D:$O(^MDS(702.01,0))
 .W !!,$C(7),"NOTICE: You already have a procedure file with data."
 .W !,"This option will not over-write existing data, it"
 .W !,"will only add procedures not in your current file."
 W !!,"Continue with loading" S %=2 D YN^DICN Q:%'=1
 W !!,"Loading..."
 S (MDADD,MDSKIP)=0
 F MD=1:1 S MDPROC=$P($T(PROCDAT+MD),";;",2) Q:MDPROC="**END**"  D
 .W !,MDPROC,"..."
 .I $D(^MDS(702.01,"B",MDPROC)) D  Q
 ..W "Already in file, skipped." S MDSKIP=MDSKIP+1
 .Q:$D(^MDS(702.01,"B",MDPROC))
 .S MDFDA(702.01,"+1,",.01)=MDPROC
 .S MDFDA(702.01,"+1,",.09)=0
 .D UPDATE^DIE("","MDFDA","")
 .S MDADD=MDADD+1
 .W "Added."
 W !!,"Finished."
 W !,"Procedures Added:   ",MDADD
 W !,"Procedures Skipped: ",MDSKIP
 Q
 ;
PROCDAT ; [Data Module] Procedure names as released with Version 1.0
 ;;ABD PARACENTESIS: FOLLOWUP
 ;;ABD PARACENTESIS: INITIAL
 ;;ABLATION OF AV NODE FUNCTION
 ;;AICD INTER/CONDITION
 ;;AIRWAY RESISTANCE
 ;;ANO BIOPSY
 ;;ANO CONTROL BLEEDING
 ;;ANO DIAGNOSTIC (BRUSHINGS)
 ;;ANO HOT BIOPSY(IES)
 ;;ANO SINGLE TUMOR (HOT/BICAP)
 ;;ANOSCOPY
 ;;ARRHYTHMIA INDUCTION BY PACING
 ;;ARTERIAL BLOOD GASES
 ;;ARTERIAL CANNULATION
 ;;ARTERIAL PUNCTURE
 ;;ARTHROC.ASPIR.INJ.INT.JT.BUR
 ;;ARTHROC.ASPIR.INJ.MAJ.JT.BUR
 ;;ARTHROCENT.ASPIR.INJ.SM.JT.BUR
 ;;ASPIRATION
 ;;BIOPSY
 ;;BIOPSY LUNG, PERCUTANEOUS NDL
 ;;BIOPSY, PLEURA
 ;;BONE MARROW
 ;;BONE MARROW INTERPRETATION
 ;;BRONC DIAGNOSTIC W/BAL
 ;;BRONC W/BRONC WASHING
 ;;BRONC W/TRANSBRONC LUNG BX
 ;;BRONCHIAL BRUSH
 ;;BRONCHOSCOPY W/BRONCH BIOPSY
 ;;BRONCHOSCOPY W/WANG NEEDLE
 ;;BRONCHOSCOPY, LASER
 ;;BRONCHOSCOPY, STENT PLACEMENT
 ;;BRONCHOSCOPY, THERAPEUTIC
 ;;BRONCOSCOPY/FB REMOVAL
 ;;C&P EXAM
 ;;CARDIAC CATHETERIZATION
 ;;CARDIAC REHAB W/O ECG MON
 ;;CARDIAC REHAB/W ECG MON
 ;;CARDIOPULMONARY REHABILITATION
 ;;CARDIOVERSION, ELECTIVE
 ;;CENTRAL VENOUS CANNULATION
 ;;CHEMOTHERAPY
 ;;COL ABL (OTHR THAN SNARE/BI)
 ;;COL BIOPSY
 ;;COL CONTROL HEM.
 ;;COL DIAGNOSTIC (BRUSHINGS)
 ;;COL HOT BIOPSY(IES)
 ;;COL REMOVAL FB
 ;;COL SNARE
 ;;COLONOSCOPY
 ;;COMPREHENSIVE EP EVALUATION
 ;;CPAP/BIPAP VENTILATION
 ;;DIALYSIS PROCEDURES, HEMO
 ;;DIALYSIS TRAINING/COMPLETE
 ;;DIFFUSION
 ;;DILUTION STUDIES FOR CO MEAS
 ;;ECG
 ;;ECG (EKG), RHYTHM STRIP
 ;;ECG 12 LEAD
 ;;ECG 24 HOUR HOLTER MONITOR
 ;;ECG MONITORING
 ;;ECG WITH INTERPRETATION
 ;;ECG, EVENT RECORDER
 ;;ECG, RHYTHM TRACING
 ;;ECG, SIGNAL AVERAGE
 ;;ECHO
 ;;ECHO TRANSESOPHOGEAL SINGLE PL
 ;;ECHO, 2D M-MODE
 ;;ECHO, DOPPLER COLOR FLOW
 ;;ECHO, DOPPLER, COMPLETE
 ;;ECHO, TRANSESOPHOGEAL
 ;;ECHO, TRANSESOPHOGEAL BIPLANE
 ;;ECHO, TRANSTHORACIC
 ;;EGD
 ;;EGD ABL (OTH THAN SNARE/BI)
 ;;EGD BAND LIGATION
 ;;EGD BIOPSY
 ;;EGD DIAGNOSTIC (BRUSHINGS)
 ;;EGD DILATION BALLOON
 ;;EGD DILATION WIRE
 ;;EGD FOREIGN BODY
 ;;EGD HOT BIOPSY(IES) / BICAP
 ;;EGD INJECTION / SCLEROSIS
 ;;EGD SNARE/SINGLE
 ;;EGD TUBE/STENT
 ;;EKG, ROUTINE (12 LEADS)
 ;;ENDO OF BOWEL POUCH W/ BIOPSY
 ;;ENDOMYOCARDIAL BIOPSY
 ;;ENDOSCOPIC ULTRASOUND
 ;;ENDOSCOPIC ULTRASOUND, BIOPSY
 ;;ENDOSCOPY OF BOWEL POUCH
 ;;ENDOTRACHEAL INTUBATION
 ;;ENTEROSCOPY
 ;;EP EVAL OF CARDIO/DEFIB LEADS
 ;;EP EVAL OF CARDIOVERTER/DEFIB
 ;;EP EVAL W/ ARRHYTHMIA INDUCT
 ;;EP EVAL W/ L ATRIAL RECORD
 ;;EP EVAL W/ L VENTRIC RECORD
 ;;EP FOLLOWUP STUDY W/PACING
 ;;EP STUDY
 ;;EPICARDIAL/ENDOCARDIAL MAPPING
 ;;ERCP
 ;;ERCP ABL (OTHR THAN SN/BI)
 ;;ERCP BALLOON DILATION
 ;;ERCP BIOPSY
 ;;ERCP DEST STONES
 ;;ERCP DIAGNOSTIC (BRUSHINGS)
 ;;ERCP DRAIN, TUBE
 ;;ERCP INSERTION OF TUBE/STENT
 ;;ERCP PRESSURE OF ODDI
 ;;ERCP REM STONES
 ;;ERCP RMV FB OR CHG OF TUBE
 ;;ERCP SPHINCTEROTOMY
 ;;ES ABLATION (OTHER)
 ;;ES BAND LIGATION
 ;;ES BIOPSY
 ;;ES CONTROL BLEEDING
 ;;ES DIAGNOSTIC ENDO (BRUSHINGS)
 ;;ES DILATION (BALLOON)
 ;;ES DILATION (WIRE)
 ;;ES HOT BIOPSY(IES)
 ;;ES INJECTION / SCLEROSIS
 ;;ES INSERTION TUBE/STENT
 ;;ES REMOVAL FB
 ;;ES SNARE
 ;;ESOPHAGEAL DILATION
 ;;ESOPHAGEAL MOTILITY STUDY
 ;;ESOPHAGEAL RECORDING
 ;;ESOPHAGUS
 ;;ETT
 ;;ETT W/ O2 CONSUMPTION
 ;;ETT W/ THALLIUM SCAN
 ;;EXAM,SYNOVIAL FLUID CRYSTALS
 ;;EXCERCISE CHALLENGE
 ;;FINE NEEDLE ASPIRATION
 ;;FLEX SIG
 ;;FLOW VOLUME LOOP
 ;;FLX ABLATION (OTHER)
 ;;FLX BIOPSY
 ;;FLX CONTROL HEM.
 ;;FLX DECOMPRESS VOLVULUS
 ;;FLX DIAGNOSTIC (BRUSHINGS)
 ;;FLX HOT BIOPSY(IES)
 ;;FLX REMOVAL FB
 ;;FLX SNARE
 ;;FRC
 ;;FT CHANGE OF G TUBE
 ;;FT EGD FOR PEG PLACEMENT
 ;;FT PERC PLACEMENT OF G TUBE
 ;;FT REPOS TUBE THRU DUODENUM
 ;;FT SM INT ENDO CONV G-J TUBE
 ;;FT SM INT ENDO J TUBE PLACE
 ;;HEART RATE VAR. ANALYSIS
 ;;HEMODIALYSIS, ONE EVAL
 ;;HEMODIALYSIS, REPEATED EVAL.
 ;;HOLTER
 ;;I & D /DEBRIDEMENT
 ;;ICD IMPLANTATION
 ;;ICD INTERROGATION
 ;;ILEOSCOPY THROUGH STOMA
 ;;ILEOSCOPY W/ BIOPSY
 ;;INFUSION 1-8 HRS.
 ;;INFUSION TO 1 HR.
 ;;INJ FOR ANGIOGRAPHY
 ;;INJ FOR AV BYPASS GRAFTS
 ;;INJ TENDON/LIGAMENT/CYST
 ;;INJECTION, CARDIAC CATH
 ;;INTRA-ATRIAL PACING
 ;;INTRA-ATRIAL RECORDING
 ;;INTRAVENTRICULAR PACING
 ;;INTRODUCTION OF NEEDLE/CATH
 ;;IV FLUID THERAPY
 ;;IV INFUSION
 ;;IV PUSH
 ;;IV THER. 1-8 HRS.
 ;;IV THER. UP TO 1 HR.
 ;;LASER SURGERY (NOT YAG)
 ;;LEFT HEART CATHETERIZATIION
 ;;LEFT VENTRICULAR RECORDING
 ;;LIVER BIOPSY
 ;;LUNG COMPLIANCE
 ;;MECHANICAL VENTILATION
 ;;METHACHOLINE CHALLENGE
 ;;MONITOR W/ REVIEW & REPORT
 ;;OVER GUIDE WIRE
 ;;PACEMAKE IMPLANTATION
 ;;PACEMAKER
 ;;PACEMAKER FOLLOW UP
 ;;PACEMAKER, RHYTHM STRIP
 ;;PARACENTESIS
 ;;PERIPH BLOOD SMEAR INTERPRET
 ;;PHLEBOTOMY
 ;;PLACE CATHETER IN VEIN, HEMO
 ;;PLEURODESIS
 ;;PNEU BALLOON (30MM+) ACHALASIA
 ;;PROC ABLATION (OTHER)
 ;;PROC BIOPSY
 ;;PROC CONTROL BLEEDING
 ;;PROC DIAGNOSTIC (BRUSHINGS)
 ;;PROC DILATION
 ;;PROC HOT BIOPSY(IES)
 ;;PROC REMOVAL FB
 ;;PROC SNARE
 ;;PROC TUMORS, MULT (HOT/SN/BI)
 ;;PROCTOSCOPY
 ;;PROGRAMMED STIMULATION/PACING
 ;;PSEUDOFOLLICULAR SCAN
 ;;PULMONARY ARTERY CATHETER
 ;;PULMONARY FUNCTION INTERPRET
 ;;PULMONARY PROCEDURES
 ;;PULSE OXIMETRY MULTIPLE REHAB
 ;;PULSE OXIMETRY SINGLE REHAB
 ;;PULSE OXIMETRY, MULTIPLE
 ;;RHEUMATOLOGY PROCEDURES
 ;;RIGHT HEART CATHETERIZATION
 ;;RIGHT VENTRICULAR RECORDING
 ;;RT & LT HEART CATHETERS
 ;;SB ENDO W/ABLATION
 ;;SB ENDO W/BLEEDING CONTROL
 ;;SB ENDO W/FB REMOVAL
 ;;SB ENDO W/HOT BIOPSIES
 ;;SB ENDO W/INCL ILEUM
 ;;SB ENDO W/INCL ILEUM,BIOPSY
 ;;SB ENDO W/INCL ILEUM,BLD CONT
 ;;SB ENDO W/TUMORS (SNARE)
 ;;SCREENING, MAMMOGRAM
 ;;SCREENS AND INJ, ANTI-COAG
 ;;SLOW VITAL CAPACITY
 ;;SMALL BOWEL ENDOSCOPY
 ;;SMALL BOWEL ENDOSCOPY,BIOPSY
 ;;SOUND/BOUGIE;SINGLE/MULT
 ;;SPIROMETRY
 ;;SPIROMETRY, PRE & POST
 ;;STO ABLATION
 ;;STO BIOPSY
 ;;STO CONTROL HEM.
 ;;STO DIAG/BRUSHING
 ;;STO FOREIGN BODY
 ;;STO HOT BIOPSY(IES)
 ;;STO SNARE
 ;;STOMA
 ;;STRESS TEST, ECHO IMAGING
 ;;STRESS TEST, EXER (NON-IMAGE)
 ;;STRESS TEST, NUCLEAR IMAGING
 ;;SUBCUT./IM
 ;;SYMPTOM LIMITED EXERCISE TEST
 ;;THORACENTESIS
 ;;THORACIC GAS VOLUME
 ;;THORACOSTOMY
 ;;THRESHOLD TEST (DUAL)
 ;;THRESHOLD TEST (SGL)
 ;;TILT TABLE TEST FOR SYNCOPE
 ;;TRANS. BLOOD
 ;;TRANS. INDWELL. VEN. ACC. CARE
 ;;TRANS. THERAPEUTIC APHERESIS
 ;;TRANSFUSION
 ;;VENIPUNCTURE (ROUTINE), HEMO
 ;;**END**