source: WorldVistAEHR/trunk/r/CLINICAL_PROCEDURES-MD/MDPOST1.m@ 1111

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**