DVBA175P ;ALB/SBW - PATCH DVBA*2.7*175 PRE/POST INSTALL UTILITIES ; 17/AUG/2011
;;2.7;AMIE;**175**;Apr 10, 1995;Build 6
;
;No direct entry allowed
Q
;
PRE ;Main entry point for Pre-install items
;
N DVBVERSS,DVBVERSN
D BMES^XPDUTL("***** PRE-INSTALL PROCESSING *****")
; Get Template Patch Version Suffix
D GETPATV(.DVBVERSS,.DVBVERSN)
; Deactivate older versions of CAPRI templates
D DEACT(DVBVERSN)
;
Q
;
POST ;Main entry point for Post-install items
;
N DVBVERSS,DVBVERSN
D BMES^XPDUTL("***** POST-INSTALL PROCESSING *****")
; Get Template Patch Version Suffixes
D GETPATV(.DVBVERSS,.DVBVERSN)
; Rename/Activate CAPRI templates that were loaded by the patch
D ACTIVATE(DVBVERSS,DVBVERSN)
; updates for the AMIE EXAM (#396.6) file
D AMIE
Q
;
GETPATV(DVBVERSS,DVBVERSN) ;Get Patch Version Suffix to be used
;
;OUTPUT:
; DVBVERSS - Incoming Patch Version Suffix (e.g. 999F)
; DVBVERSN - Rename Patch Version Suffix (e.g. 999 or 999T1)
; Version Suffix will be as follows:
; New entry to be renamed is Patch Number with a "F" (e.g 999F)
; Released patch will be just Patch Number (e.g 999)
; Test Patch will be Patch Number with a "T" and Test Patch
; Version Number (e.g. 999T1)
; Note that the Patch Version is appended to the Template Name with
; a "~" delimeter between name and version (e.g. DBQ Template
; Example~999T1).
N DVBPAT,DVBATVER
;
; Update the following variable to be the patch number
; ****** Change to the appropriate patch number *****
S DVBPAT="175"
; ****** End user modification ******
;
; The Patch Version Suffix for new incoming CAPRI Template entries
; should be patch number followed by "F"
S DVBVERSS=DVBPAT_"F"
;
; The Patch Version Suffix which will be appended for the Name
; (#.01) Field in the CAPRI Template Definition (#396.18) file
; entry to allow for template versioning.
S:$D(^XTMP("XPDI",$G(XPDA),"BLD",$G(XPDBLD),6))>0 DVBATVER=$P($G(^XTMP("XPDI",$G(XPDA),"BLD",$G(XPDBLD),6)),U,1)
S DVBVERSN=DVBPAT_$S($G(DVBATVER)>0:"T"_DVBATVER,1:"")
;
Q
;
DEACT(DVBVERSN) ;De-activate older versions of CAPRI templates
;
;Used to disable older versions of a template for those templates
;being exported with the patch based on the data in CAPRITXT
;subroutine.
; - Make sure to that all entries in the CAPRITXT subroutine are
; accurate.
; - This must be called as a pre-init or else it will disable the
; templates that are being loaded by the patch.
;INPUT
; DVBVERSN - Rename Patch Version Suffix (e.g. 999 or ~999)
; See GETPATV Subroutine comments for Version Suffix descriptions
;
N DVBACTR,DVBAI,DVBLINE
S DVBACTR=0
;
D BMES^XPDUTL(" Disabling CAPRI templates...")
D MES^XPDUTL("")
;
F DVBAI=1:1 S DVBLINE=$P($T(CAPRITXT+DVBAI),";;",2) Q:DVBLINE="QUIT" D
. N DVBAMSG
. D DISABLE^DVBAUTLP($P(DVBLINE,";",1),DVBVERSN,.DVBACTR,.DVBAMSG)
. ; Display status message returned if any
. D:$D(DVBAMSG)>0 MES^XPDUTL(.DVBAMSG)
;
D BMES^XPDUTL(" Number of CAPRI templates disabled: "_DVBACTR)
Q
;
;
ACTIVATE(DVBVERSS,DVBVERSN) ;Activate CAPRI templates that were loaded
;by the patch and updates Patch Version Suffix for versioning control.
;
;Used to activate/rename templates that were loaded by the patch.
; - Make sure to that all entries in the CAPRITXT subroutine are
; accurate.
; - Must be called as a post-init in order to rename those
; templates being loaded by the patch.
;
;INPUT
; DVBVERSS - Incoming Patch Version Suffix (e.g. 999F)
; DVBVERSN - Rename Patch Version Suffix (e.g. 999 or 999T1)
; Version Suffix will be as follows:
; See GETPATV Subroutine comments for Version Suffix descriptions
;
N DVBACTR,DVBAI,DVBLINE
;
S DVBACTR=0
;
D BMES^XPDUTL(" Activating CAPRI templates...")
D MES^XPDUTL("")
;
F DVBAI=1:1 S DVBLINE=$P($T(CAPRITXT+DVBAI),";;",2) Q:DVBLINE="QUIT" D
. N DVBAMSG
. D RENAME^DVBAUTLP($P(DVBLINE,";",1),DVBVERSS,DVBVERSN,.DVBACTR,.DVBAMSG)
. ; Display status message returned if any
. D:$D(DVBAMSG)>0 MES^XPDUTL(.DVBAMSG)
;
D BMES^XPDUTL(" Number of CAPRI templates activated: "_DVBACTR)
Q
;
;
AMIE ;Updates for the AMIE EXAM (#396.6) file
;
;Used to inactivate old entries and create new entries for
;designated worksheet updates
;
D BMES^XPDUTL(" Update to AMIE EXAM (#396.6) file...")
I '$D(^DVB(396.6)) D BMES^XPDUTL("Missing AMIE EXAM (#396.6) file") Q
I $D(^DVB(396.6)) D
. D INACT
. D NEW
Q
;
;
INACT ;Inactivate old (current) exams
;
N DVBAI,DVBLINE,DVBIEN,DVBEXM
;
D BMES^XPDUTL(" Inactivating AMIE EXAM (#396.6) file entries...")
D MES^XPDUTL("")
F DVBAI=1:1 S DVBLINE=$P($T(AMIEOLD+DVBAI),";;",2) Q:DVBLINE="QUIT" D
. N DVBAMSG
. S DVBIEN=$P(DVBLINE,";",1)
. S DVBEXM=$P(DVBLINE,";",2)
. D INACTEXM^DVBAUTLP(DVBIEN,DVBEXM,.DVBAMSG)
. ; Display status message returned if any
. D:$D(DVBAMSG)>0 MES^XPDUTL(.DVBAMSG)
. D MES^XPDUTL("")
Q
;
;
NEW ;Add new exam entries
;
N DVBAI,DVBLINE,DVBIEN,DVBEXM,DVBPNM,DVBBDY,DVBROU,DVBSTAT,DVBWKS
;
D BMES^XPDUTL(" Adding new AMIE EXAM (#396.6) file entries...")
F DVBAI=1:1 S DVBLINE=$P($T(AMIENEW+DVBAI),";;",2) Q:DVBLINE="QUIT" D
. N DVBAMSG
. S DVBIEN=$P(DVBLINE,";",1) ;ien
. S DVBEXM=$P(DVBLINE,";",2) ;exam name
. S DVBPNM=$P(DVBLINE,";",3) ;print name
. S DVBBDY=$P(DVBLINE,";",4) ;body system
. S DVBROU=$P(DVBLINE,";",5) ;routine name
. S DVBSTAT=$P(DVBLINE,";",6) ;status
. S DVBWKS=$P(DVBLINE,";",8) ;worksheet number
. D BMES^XPDUTL(" Attempting to add Entry #"_DVBIEN_"...")
. D NEWEXAM^DVBAUTLP(DVBIEN,DVBEXM,DVBPNM,DVBBDY,DVBROU,DVBSTAT,DVBWKS,.DVBAMSG)
. ; Display status message returned if any
. D:$D(DVBAMSG)>0 MES^XPDUTL(.DVBAMSG)
Q
;
;
; CAPRI TEMPLATE DEFINITIONS (#396.18) file entries to Dectivate
; and/or Rename. If old versions of the Templates exist they will
; be De-Activated. No harm is done if Template doesn't currently
; exist but it should still be included here in case multiple test
; versions are done which would required previous test patch
; version to be De-Activated.
; Only entries that are Versioned as ~###F (# = Patch Version
; Number) will be Renamed
;
; Data should be in internal format.
; Format: Template Name (250 chars)
; Note - Do not include Version Portion of name (i.e ~999T or ~999)
CAPRITXT ;
;;DBQ ABDOMINAL, INGUINAL, AND FEMORAL HERNIAS
;;DBQ CHRONIC FATIGUE SYNDROME
;;DBQ COLD INJURY RESIDUALS
;;DBQ CRANIAL NERVES DISEASES
;;DBQ ENDOCRINE DISEASES (OTHER THAN THYROID, PARATHYROID OR DIABETES MELLITUS)
;;DBQ FIBROMYALGIA
;;DBQ FORMER PRISONER OF WAR (POW) PROTOCOL
;;DBQ GENERAL MEDICAL - COMPENSATION
;;DBQ GENERAL MEDICAL - PENSION
;;DBQ GULF WAR GENERAL MEDICAL EXAMINATION
;;DBQ GYNECOLOGICAL CONDITIONS
;;DBQ HIV-RELATED ILLNESSES
;;DBQ INFECTIOUS DISEASES (OTHER THAN HIV-RELATED ILLNESS, CHRONIC FATIGUE SYNDROME, AND TUBERCULOSIS
;;DBQ INITIAL EVALUATION OF RESIDUALS OF TRAUMATIC BRAIN INJURY (I-TBI) DISABILITY
;;DBQ INITIAL PTSD
;;DBQ LOSS OF SENSE OF SMELL AND OR TASTE
;;DBQ LOSS OF SENSE OR SMELL AND OR TASTE
;;DBQ MALE REPRODUCTIVE SYSTEM CONDITIONS
;;DBQ NARCOLEPSY
;;DBQ NUTRITIONAL DEFICIENCES
;;DBQ ORAL AND DENTAL CONDITIONS INCLUDING MOUTH, LIPS AND TONGUE (OTHER THAN TEMPOROMANDIBULAR JOINT CONDITIONS)
;;DBQ PERIPHERAL NERVES CONDITIONS (NOT INCLUDING DIABETIC SENSORY-MOTOR PERIPHERAL NEUROPATHY)
;;DBQ RESPIRATORY CONDITIONS (OTHER THAN TUBERCULOSIS AND SLEEP ANPEA)
;;DBQ REVIEW EVALUATION OF RESIDUALS OF TRAUMATIC BRAIN INJURY (R-TBI)
;;DBQ SEIZURE DISORDERS (EPILEPSY)
;;DBQ SINUSITIS, RHINITIS AND OTHER CONDITIONS OF THE NOSE, THROAT, LARYNX AND PHARYNX
;;DBQ SYSTEMIC LUPUS ERYTHEMATOSUS (SLE) AND OTHER AUTOIMMUNE DISEASES (OTHER THAN HIV AND DIABETES MELLITUS TYPE I)
;;DBQ THYROID AND PARATHYROID CONDITIONS
;;DBQ URINARY TRACT (INCLUDING BLADDER AND URETHRA) CONDITIONS (EXCLUDING MALE REPRODUCTIVE ORGANS)
;;DBQ WRIST CONDITIONS
;;QUIT
;
;
; AMIE EXAM (#396.6) file exam(s) to deactivate. Data should be in
; internal format.
; Format: ien;exam name (60 chars);
AMIEOLD ;
;;300;DBQ PARKINSONS
;;311;DBQ AMYOTROPHIC LATERAL SCLEROSIS (LOU GEHRIG'S DISEASE)
;;312;DBQ BACK (THORACOLUMBAR SPINE) CONDITIONS
;;313;DBQ DIABETES MELLITUS
;;314;DBQ DIABETIC SENSORY-MOTOR PERIPHERAL NEUROPATHY
;;318;DBQ NECK (CERVICAL SPINE) CONDITIONS
;;319;DBQ PERIPHERAL NERVES (EXCLUDING DIABETIC NEUROPATHY)
;;320;DBQ PERSIAN GULF AND AFGHANISTAN INFECTIOUS DISEASES
;;321;DBQ TUBERCULOSIS
;;322;DBQ ISCHEMIC HEART DISEASE
;;326;DBQ EATING DISORDERS
;;327;DBQ INITIAL PTSD
;;328;DBQ MENTAL DISORDERS (EXCEPT PTSD AND EATING DISORDERS)
;;329;DBQ REVIEW PTSD
;;330;DBQ MALE REPRODUCTIVE SYSTEM CONDITIONS
;;331;DBQ KIDNEY CONDITIONS (NEPHROLOGY)
;;332;DBQ SCARS DISFIGUREMENT
;;333;DBQ HEART CONDITIONS
;;334;DBQ HYPERTENSION
;;335;DBQ EYE CONDITIONS
;;337;DBQ KNEE AND LOWER LEG CONDITIONS
;;338;DBQ SHOULDER AND ARM CONDITIONS
;;339;DBQ ANKLE CONDITIONS
;;340;DBQ HIP AND THIGH CONDITIONS
;;341;DBQ ELBOW AND FOREARM CONDITIONS
;;342;DBQ FLATFOOT (PES PLANUS)
;;343;DBQ WRIST CONDITIONS
;;344;DBQ HAND AND FINGER CONDITIONS
;;345;DBQ TEMPOROMANDIBULAR JOINT (TMJ) CONDITIONS
;;346;DBQ ARTERY AND VEIN CONDITIONS
;;347;DBQ FOOT MISCELLANEOUS (OTHER THAN FLATFOOT PES PLANUS)
;;348;DBQ MUSCLE INJURIES
;;349;DBQ AMPUTATIONS
;;350;DBQ PROSTATE CANCER
;;351;DBQ HAIRY CELL AND OTHER B CELL LEUKEMIAS
;;352;DBQ HEARING LOSS AND TINNITUS
;;353;DBQ HEMIC AND LYMPHATIC CONDITIONS INCLUDING LEUKEMIA
;;354;DBQ MEDICAL OPINION 1
;;355;DBQ EAR CONDITIONS
;;356;DBQ MULTIPLE SCLEROSIS (MS)
;;357;DBQ NON-DEGENERATIVE ARTHRITIS
;;358;DBQ OSTEOMYELITIS
;;359;DBQ HEADACHES (INCLUDING MIGRAINE HEADACHES)
;;360;DBQ ESOPHAGEAL CONDITIONS
;;361;DBQ GALLBLADDER AND PANCREAS CONDITIONS
;;362;DBQ INTESTINAL (OTHER THAN SURGICAL OR INFECTIOUS)
;;363;DBQ INFECTIOUS INTESTINAL DISORDERS
;;364;DBQ INTESTINAL SURGERY (RESECTION, COLOSTOMY, ILEOSTOMY)
;;365;DBQ HEPATITIS, CIRRHOSIS AND OTHER LIVER CONDITIONS
;;366;DBQ PERITONEAL ADHESIONS
;;367;DBQ STOMACH AND DUODENAL CONDITIONS
;;368;DBQ RECTUM AND ANUS CONDITIONS
;;369;DBQ BREAST CONDITIONS AND DISORDERS
;;370;DBQ GYNECOLOGICAL CONDITIONS
;;371;DBQ MEDICAL OPINION 2
;;372;DBQ MEDICAL OPINION 3
;;373;DBQ MEDICAL OPINION 4
;;374;DBQ MEDICAL OPINION 5
;;375;DBQ CENTRAL NERVOUS SYSTEM DISEASES
;;376;DBQ SLEEP APNEA
;;402;DBQ SKIN DISEASES
;;QUIT
;
; AMIE EXAM (#396.6) file exam(s) to activate (create or update).
; Data should be in internal format.
; format: ien;exam name (60 chars);print name (25 Chars);body system;routine;status;;wks#
AMIENEW ;
;;377;DBQ ENDOCRINE DISEASES OTHER THAN DIABETES;DBQ ENDOCRINE DISEASES;12;DVBCQDRV;A; ; ;
;;378;DBQ THYROID & PARATHYROID;DBQ THYROID & PARATHYROID;12;DVBCQDRV;A; ; ;
;;379;DBQ CRANIAL NERVES;DBQ CRANIAL NERVES;23;DVBCQDRV;A; ; ;
;;380;DBQ NARCOLEPSY;DBQ NARCOLEPSY;13;DVBCQDRV;A; ; ;
;;381;DBQ FIBROMYALGIA;DBQ FIBROMYALGIA;2;DVBCQDRV;A; ; ;
;;382;DBQ SEIZURE DISORDERS (EPILEPSY);DBQ SEIZURE DISORDERS;13;DVBCQDRV;A; ; ;
;;383;DBQ URINARY TRACT AND BLADDER;DBQ URINARY TRACT-BLADDER;8;DVBCQDRV;A; ; ;
;;384;DBQ ABDOMINAL, INGUINAL, AND FEMORAL HERNIAS;DBQ ABDOMINAL HERNIAS;7;DVBCQDRV;A; ; ;
;;385;DBQ HIV-RELATED ILLNESS;DBQ HIV-RELATED ILLNESS;20;DVBCQDRV;A; ; ;
;;386;DBQ INFECTIOUS DISEASES;DBQ INFECTIOUS DISEASES;20;DVBCQDRV;A; ; ;
;;387;DBQ SYSTEMATIC LUPUS ERYTHEMATOUS (SLE) & OTHER IMMUNE DISOR;DBQ SYSTEMATIC LUPUS ERYT;20;DVBCQDRV;A; ; ;
;;388;DBQ NUTRITIONAL DEFICIENCIES;DBQ NUTRITIONAL DEFICIENC;20;DVBCQDRV;A; ; ;
;;389;DBQ ORAL AND DENTAL;DBQ ORAL AND DENTAL;21;DVBCQDRV;A; ; ;
;;390;DBQ LOSS OF SENSE OF SMELL AND TASTE;DBQ LOSS SMELL AND TASTE;3;DVBCQDRV;A; ; ;
;;391;DBQ SINUSITIS/RHINITIS AND OTHER DISEASE OF THE NOSE, THROAT;DBQ SINUSITIS/RHINITIS;19;DVBCQDRV;A; ; ;
;;392;DBQ RESPIRATORY CONDITIONS;DBQ RESPIRATORY CONDITION;19;DVBCQDRV;A; ; ;
;;393;DBQ CHRONIC FATIGUE SYNDROME;DBQ CHRONIC FATIGUE SYNDR;17;DVBCQDRV;A; ; ;
;;394;DBQ INITIAL EVALUATION OF RESIDUALS OF TBI (I-TBI);DBQ INITIAL RESIDUALS TBI;13;DVBCQDRV;A; ; ;
;;395;DBQ REVIEW EVALUATION OF RESIDUALS OF TBI (R-TBI);DBQ REVIEW RESIDUALS TBI;13;DVBCQDRV;A; ; ;
;;396;DBQ GENERAL MEDICAL EXAM - COMPENSATION;DBQ GEN MED EXAM - COMP;1;DVBCQDRV;A; ; ;
;;397;DBQ GENERAL PENSION EXAM;DBQ GENERAL PENSION EXAM;1;DVBCQDRV;A; ; ;
;;398;DBQ COLD INJURY RESIDUALS;DBQ COLD INJURY RESIDUALS;17;DVBCQDRV;A; ; ;
;;399;DBQ PRISONER OF WAR PROTOCOL;DBQ POW PROTOCOL;17;DVBCQDRV;A; ; ;
;;400;DBQ GULF WAR GENERAL MEDICAL EXAMINATION;DBQ GULF WAR GEN MED EXAM;1;DVBCQDRV;A; ; ;
;;401;DBQ AMPUTATIONS;DBQ AMPUTATIONS;16;DVBCQDRV;A; ; ;
;;403;DBQ AMYOTROPHIC LATERAL SCLEROSIS (LOU GEHRIG'S DISEASE);DBQ ALS;13;DVBCQDRV;A; ; ;
;;404;DBQ ANKLE CONDITIONS;DBQ ANKLE CONDITIONS;2;DVBCQDRV;A; ; ;
;;405;DBQ ARTERY AND VEIN CONDITIONS;DBQ ARTERY AND VEIN;6;DVBCQDRV;A; ; ;
;;406;DBQ BACK (THORACOLUMBAR SPINE) CONDITIONS;DBQ BACK CONDITIONS;2;DVBCQDRV;A; ; ;
;;407;DBQ BREAST CONDITIONS AND DISORDERS;DBQ BREAST CONDITIONS;9;DVBCQDRV;A; ; ;
;;408;DBQ CENTRAL NERVOUS SYSTEM DISEASES;DBQ CENTRAL NERVOUS SYST;13;DVBCQDRV;A; ; ;
;;409;DBQ DIABETES MELLITUS;DBQ DIABETES MELLITUS;12;DVBCQDRV;A; ; ;
;;410;DBQ DIABETIC SENSORY-MOTOR PERIPHERAL NEUROPATHY;DBQ DIABETIC PERIPH NEURO;13;DVBCQDRV;A; ; ;
;;411;DBQ EAR CONDITIONS;DBQ EAR CONDITIONS;3;DVBCQDRV;A; ; ;
;;412;DBQ EATING DISORDERS;DBQ EATING DISORDERS;14;DVBCQDRV;A; ; ;
;;413;DBQ ELBOW AND FOREARM CONDITIONS;DBQ ELBOW AND FOREARM;16;DVBCQDRV;A; ; ;
;;414;DBQ ESOPHAGEAL CONDITIONS;DBQ ESOPHAGEAL CONDITIONS;7;DVBCQDRV;A; ; ;
;;415;DBQ EYE CONDITIONS;DBQ EYE CONDITIONS;3;DVBCQDRV;A; ; ;
;;416;DBQ FLATFOOT (PES PLANUS);DBQ FLATFOOT;16;DVBCQDRV;A; ; ;
;;417;DBQ FOOT MISCELLANEOUS (OTHER THAN FLATFOOT PES PLANUS);DBQ FOOT MISC;16;DVBCQDRV;A; ; ;
;;418;DBQ GALLBLADDER AND PANCREAS CONDITIONS;DBQ GALLBLADDER PANCREAS;7;DVBCQDRV;A; ; ;
;;419;DBQ GYNECOLOGICAL CONDITIONS;DBQ GYNECOLOGICAL;9;DVBCQDRV;A; ; ;
;;420;DBQ HAIRY CELL AND OTHER B CELL LEUKEMIAS;DBQ HAIRY&OTHR BCELL LEUK;22;DVBCQDRV;A; ; ;
;;421;DBQ HAND AND FINGER CONDITIONS;DBQ HAND AND FINGER;16;DVBCQDRV;A; ; ;
;;422;DBQ HEADACHES (INCLUDING MIGRAINE HEADACHES);DBQ HEADACHES;13;DVBCQDRV;A; ; ;
;;423;DBQ HEARING LOSS AND TINNITUS;DBQ HEARING LOSS AND TINN;3;DVBCQDRV;A; ; ;
;;424;DBQ HEART CONDITIONS;DBQ HEART CONDITIONS;6;DVBCQDRV;A; ; ;
;;425;DBQ HEMIC AND LYMPHATIC CONDITIONS INCLUDING LEUKEMIA;DBQ HEMIC AND LYMPHATIC;22;DVBCQDRV;A; ; ;
;;426;DBQ HEPATITIS, CIRRHOSIS AND OTHER LIVER CONDITIONS;DBQ LIVER CONDITIONS;7;DVBCQDRV;A; ; ;
;;427;DBQ HIP AND THIGH CONDITIONS;DBQ HIP AND THIGH;16;DVBCQDRV;A; ; ;
;;428;DBQ HYPERTENSION;DBQ HYPERTENSION;6;DVBCQDRV;A; ; ;
;;429;DBQ INFECTIOUS INTESTINAL DISORDERS;DBQ INFECTIOUS INTESTINAL;7;DVBCQDRV;A; ; ;
;;430;DBQ INITIAL PTSD;DBQ INITIAL PTSD;14;DVBCQDRV;A; ; ;
;;431;DBQ INTESTINAL (OTHER THAN SURGICAL OR INFECTIOUS);DBQ INTESTINAL NON-SURG;7;DVBCQDRV;A; ; ;
;;432;DBQ INTESTINAL SURGERY (RESECTION, COLOSTOMY, ILEOSTOMY);DBQ INTESTINAL SURGERY;7;DVBCQDRV;A; ; ;
;;433;DBQ ISCHEMIC HEART DISEASE;DBQ ISCHEMIC HEART DIS;6;DVBCQDRV;A; ; ;
;;434;DBQ KIDNEY CONDITIONS (NEPHROLOGY);DBQ KIDNEY CONDITIONS;8;DVBCQDRV;A; ; ;
;;435;DBQ KNEE AND LOWER LEG CONDITIONS;DBQ KNEE AND LOWER LEG;2;DVBCQDRV;A; ; ;
;;436;DBQ MALE REPRODUCTIVE SYSTEM CONDITIONS;DBQ MALE REPRO SYSTEM;8;DVBCQDRV;A; ; ;
;;437;DBQ MEDICAL OPINION 1;DBQ MEDICAL OPINION 1;17;DVBCQDRV;A; ; ;
;;438;DBQ MEDICAL OPINION 2;DBQ MEDICAL OPINION 2;17;DVBCQDRV;A; ; ;
;;439;DBQ MEDICAL OPINION 3;DBQ MEDICAL OPINION 3;17;DVBCQDRV;A; ; ;
;;440;DBQ MEDICAL OPINION 4;DBQ MEDICAL OPINION 4;17;DVBCQDRV;A; ; ;
;;441;DBQ MEDICAL OPINION 5;DBQ MEDICAL OPINION 5;17;DVBCQDRV;A; ; ;
;;442;DBQ MENTAL DISORDERS (EXCEPT PTSD AND EATING DISORDERS);DBQ MENTAL DISORDER;14;DVBCQDRV;A; ; ;
;;443;DBQ MULTIPLE SCLEROSIS (MS);DBQ MULTIPLE SCLEROSIS;13;DVBCQDRV;A; ; ;
;;444;DBQ MUSCLE INJURIES;DBQ MUSCLE INJURIES;16;DVBCQDRV;A; ; ;
;;445;DBQ NECK (CERVICAL SPINE) CONDITIONS;DBQ NECK CONDITIONS;2;DVBCQDRV;A; ; ;
;;446;DBQ NON-DEGENERATIVE ARTHRITIS;DBQ NON-DEGEN ARTHRITIS;2;DVBCQDRV;A; ; ;
;;447;DBQ OSTEOMYELITIS;DBQ OSTEOMYELITIS;2;DVBCQDRV;A; ; ;
;;448;DBQ PARKINSONS;DBQ PARKINSONS DISEASE;13;DVBCQDRV;A; ; ;
;;449;DBQ PERIPHERAL NERVES (EXCLUDING DIABETIC NEUROPATHY);DBQ PERIPHERAL NERVES;13;DVBCQDRV;A; ; ;
;;450;DBQ PERITONEAL ADHESIONS;DBQ PERITONEAL ADHESIONS;7;DVBCQDRV;A; ; ;
;;451;DBQ PERSIAN GULF AND AFGHANISTAN INFECTIOUS DISEASES;DBQ PRSN GLF, AFGN INFECT;20;DVBCQDRV;A; ; ;
;;452;DBQ PROSTATE CANCER;DBQ PROSTATE CANCER;8;DVBCQDRV;A; ; ;
;;453;DBQ RECTUM AND ANUS CONDITIONS;DBQ RECTUM AND ANUS;7;DVBCQDRV;A; ; ;
;;454;DBQ REVIEW PTSD;DBQ REVIEW PTSD;14;DVBCQDRV;A; ; ;
;;455;DBQ SCARS DISFIGUREMENT;DBQ SCARS DISFIGUREMENT;11;DVBCQDRV;A; ; ;
;;456;DBQ SHOULDER AND ARM CONDITIONS;DBQ SHOULDER AND ARM;2;DVBCQDRV;A; ; ;
;;457;DBQ SKIN DISEASES;DBQ SKIN DISEASES;11;DVBCQDRV;A; ; ;
;;458;DBQ SLEEP APNEA;DBQ SLEEP APNEA;5;DVBCQDRV;A; ; ;
;;459;DBQ STOMACH AND DUODENAL CONDITIONS;DBQ STOMACH AND DUODENAL;7;DVBCQDRV;A; ; ;
;;460;DBQ TEMPOROMANDIBULAR JOINT (TMJ) CONDITIONS;DBQ TEMPOROMANDIBULA(TMJ);16;DVBCQDRV;A; ; ;
;;461;DBQ TUBERCULOSIS;DBQ TUBERCULOSIS;20;DVBCQDRV;A; ; ;
;;462;DBQ WRIST CONDITIONS;DBQ WRIST CONDITIONS;16;DVBCQDRV;A; ; ;
;;QUIT
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBA175P 17777 printed Dec 13, 2024@01:39:20 Page 2
DVBA175P ;ALB/SBW - PATCH DVBA*2.7*175 PRE/POST INSTALL UTILITIES ; 17/AUG/2011
+1 ;;2.7;AMIE;**175**;Apr 10, 1995;Build 6
+2 ;
+3 ;No direct entry allowed
+4 QUIT
+5 ;
PRE ;Main entry point for Pre-install items
+1 ;
+2 NEW DVBVERSS,DVBVERSN
+3 DO BMES^XPDUTL("***** PRE-INSTALL PROCESSING *****")
+4 ; Get Template Patch Version Suffix
+5 DO GETPATV(.DVBVERSS,.DVBVERSN)
+6 ; Deactivate older versions of CAPRI templates
+7 DO DEACT(DVBVERSN)
+8 ;
+9 QUIT
+10 ;
POST ;Main entry point for Post-install items
+1 ;
+2 NEW DVBVERSS,DVBVERSN
+3 DO BMES^XPDUTL("***** POST-INSTALL PROCESSING *****")
+4 ; Get Template Patch Version Suffixes
+5 DO GETPATV(.DVBVERSS,.DVBVERSN)
+6 ; Rename/Activate CAPRI templates that were loaded by the patch
+7 DO ACTIVATE(DVBVERSS,DVBVERSN)
+8 ; updates for the AMIE EXAM (#396.6) file
+9 DO AMIE
+10 QUIT
+11 ;
GETPATV(DVBVERSS,DVBVERSN) ;Get Patch Version Suffix to be used
+1 ;
+2 ;OUTPUT:
+3 ; DVBVERSS - Incoming Patch Version Suffix (e.g. 999F)
+4 ; DVBVERSN - Rename Patch Version Suffix (e.g. 999 or 999T1)
+5 ; Version Suffix will be as follows:
+6 ; New entry to be renamed is Patch Number with a "F" (e.g 999F)
+7 ; Released patch will be just Patch Number (e.g 999)
+8 ; Test Patch will be Patch Number with a "T" and Test Patch
+9 ; Version Number (e.g. 999T1)
+10 ; Note that the Patch Version is appended to the Template Name with
+11 ; a "~" delimeter between name and version (e.g. DBQ Template
+12 ; Example~999T1).
+13 NEW DVBPAT,DVBATVER
+14 ;
+15 ; Update the following variable to be the patch number
+16 ; ****** Change to the appropriate patch number *****
+17 SET DVBPAT="175"
+18 ; ****** End user modification ******
+19 ;
+20 ; The Patch Version Suffix for new incoming CAPRI Template entries
+21 ; should be patch number followed by "F"
+22 SET DVBVERSS=DVBPAT_"F"
+23 ;
+24 ; The Patch Version Suffix which will be appended for the Name
+25 ; (#.01) Field in the CAPRI Template Definition (#396.18) file
+26 ; entry to allow for template versioning.
+27 if $DATA(^XTMP("XPDI",$GET(XPDA),"BLD",$GET(XPDBLD),6))>0
SET DVBATVER=$PIECE($GET(^XTMP("XPDI",$GET(XPDA),"BLD",$GET(XPDBLD),6)),U,1)
+28 SET DVBVERSN=DVBPAT_$SELECT($GET(DVBATVER)>0:"T"_DVBATVER,1:"")
+29 ;
+30 QUIT
+31 ;
DEACT(DVBVERSN) ;De-activate older versions of CAPRI templates
+1 ;
+2 ;Used to disable older versions of a template for those templates
+3 ;being exported with the patch based on the data in CAPRITXT
+4 ;subroutine.
+5 ; - Make sure to that all entries in the CAPRITXT subroutine are
+6 ; accurate.
+7 ; - This must be called as a pre-init or else it will disable the
+8 ; templates that are being loaded by the patch.
+9 ;INPUT
+10 ; DVBVERSN - Rename Patch Version Suffix (e.g. 999 or ~999)
+11 ; See GETPATV Subroutine comments for Version Suffix descriptions
+12 ;
+13 NEW DVBACTR,DVBAI,DVBLINE
+14 SET DVBACTR=0
+15 ;
+16 DO BMES^XPDUTL(" Disabling CAPRI templates...")
+17 DO MES^XPDUTL("")
+18 ;
+19 FOR DVBAI=1:1
SET DVBLINE=$PIECE($TEXT(CAPRITXT+DVBAI),";;",2)
if DVBLINE="QUIT"
QUIT
Begin DoDot:1
+20 NEW DVBAMSG
+21 DO DISABLE^DVBAUTLP($PIECE(DVBLINE,";",1),DVBVERSN,.DVBACTR,.DVBAMSG)
+22 ; Display status message returned if any
+23 if $DATA(DVBAMSG)>0
DO MES^XPDUTL(.DVBAMSG)
End DoDot:1
+24 ;
+25 DO BMES^XPDUTL(" Number of CAPRI templates disabled: "_DVBACTR)
+26 QUIT
+27 ;
+28 ;
ACTIVATE(DVBVERSS,DVBVERSN) ;Activate CAPRI templates that were loaded
+1 ;by the patch and updates Patch Version Suffix for versioning control.
+2 ;
+3 ;Used to activate/rename templates that were loaded by the patch.
+4 ; - Make sure to that all entries in the CAPRITXT subroutine are
+5 ; accurate.
+6 ; - Must be called as a post-init in order to rename those
+7 ; templates being loaded by the patch.
+8 ;
+9 ;INPUT
+10 ; DVBVERSS - Incoming Patch Version Suffix (e.g. 999F)
+11 ; DVBVERSN - Rename Patch Version Suffix (e.g. 999 or 999T1)
+12 ; Version Suffix will be as follows:
+13 ; See GETPATV Subroutine comments for Version Suffix descriptions
+14 ;
+15 NEW DVBACTR,DVBAI,DVBLINE
+16 ;
+17 SET DVBACTR=0
+18 ;
+19 DO BMES^XPDUTL(" Activating CAPRI templates...")
+20 DO MES^XPDUTL("")
+21 ;
+22 FOR DVBAI=1:1
SET DVBLINE=$PIECE($TEXT(CAPRITXT+DVBAI),";;",2)
if DVBLINE="QUIT"
QUIT
Begin DoDot:1
+23 NEW DVBAMSG
+24 DO RENAME^DVBAUTLP($PIECE(DVBLINE,";",1),DVBVERSS,DVBVERSN,.DVBACTR,.DVBAMSG)
+25 ; Display status message returned if any
+26 if $DATA(DVBAMSG)>0
DO MES^XPDUTL(.DVBAMSG)
End DoDot:1
+27 ;
+28 DO BMES^XPDUTL(" Number of CAPRI templates activated: "_DVBACTR)
+29 QUIT
+30 ;
+31 ;
AMIE ;Updates for the AMIE EXAM (#396.6) file
+1 ;
+2 ;Used to inactivate old entries and create new entries for
+3 ;designated worksheet updates
+4 ;
+5 DO BMES^XPDUTL(" Update to AMIE EXAM (#396.6) file...")
+6 IF '$DATA(^DVB(396.6))
DO BMES^XPDUTL("Missing AMIE EXAM (#396.6) file")
QUIT
+7 IF $DATA(^DVB(396.6))
Begin DoDot:1
+8 DO INACT
+9 DO NEW
End DoDot:1
+10 QUIT
+11 ;
+12 ;
INACT ;Inactivate old (current) exams
+1 ;
+2 NEW DVBAI,DVBLINE,DVBIEN,DVBEXM
+3 ;
+4 DO BMES^XPDUTL(" Inactivating AMIE EXAM (#396.6) file entries...")
+5 DO MES^XPDUTL("")
+6 FOR DVBAI=1:1
SET DVBLINE=$PIECE($TEXT(AMIEOLD+DVBAI),";;",2)
if DVBLINE="QUIT"
QUIT
Begin DoDot:1
+7 NEW DVBAMSG
+8 SET DVBIEN=$PIECE(DVBLINE,";",1)
+9 SET DVBEXM=$PIECE(DVBLINE,";",2)
+10 DO INACTEXM^DVBAUTLP(DVBIEN,DVBEXM,.DVBAMSG)
+11 ; Display status message returned if any
+12 if $DATA(DVBAMSG)>0
DO MES^XPDUTL(.DVBAMSG)
+13 DO MES^XPDUTL("")
End DoDot:1
+14 QUIT
+15 ;
+16 ;
NEW ;Add new exam entries
+1 ;
+2 NEW DVBAI,DVBLINE,DVBIEN,DVBEXM,DVBPNM,DVBBDY,DVBROU,DVBSTAT,DVBWKS
+3 ;
+4 DO BMES^XPDUTL(" Adding new AMIE EXAM (#396.6) file entries...")
+5 FOR DVBAI=1:1
SET DVBLINE=$PIECE($TEXT(AMIENEW+DVBAI),";;",2)
if DVBLINE="QUIT"
QUIT
Begin DoDot:1
+6 NEW DVBAMSG
+7 ;ien
SET DVBIEN=$PIECE(DVBLINE,";",1)
+8 ;exam name
SET DVBEXM=$PIECE(DVBLINE,";",2)
+9 ;print name
SET DVBPNM=$PIECE(DVBLINE,";",3)
+10 ;body system
SET DVBBDY=$PIECE(DVBLINE,";",4)
+11 ;routine name
SET DVBROU=$PIECE(DVBLINE,";",5)
+12 ;status
SET DVBSTAT=$PIECE(DVBLINE,";",6)
+13 ;worksheet number
SET DVBWKS=$PIECE(DVBLINE,";",8)
+14 DO BMES^XPDUTL(" Attempting to add Entry #"_DVBIEN_"...")
+15 DO NEWEXAM^DVBAUTLP(DVBIEN,DVBEXM,DVBPNM,DVBBDY,DVBROU,DVBSTAT,DVBWKS,.DVBAMSG)
+16 ; Display status message returned if any
+17 if $DATA(DVBAMSG)>0
DO MES^XPDUTL(.DVBAMSG)
End DoDot:1
+18 QUIT
+19 ;
+20 ;
+21 ; CAPRI TEMPLATE DEFINITIONS (#396.18) file entries to Dectivate
+22 ; and/or Rename. If old versions of the Templates exist they will
+23 ; be De-Activated. No harm is done if Template doesn't currently
+24 ; exist but it should still be included here in case multiple test
+25 ; versions are done which would required previous test patch
+26 ; version to be De-Activated.
+27 ; Only entries that are Versioned as ~###F (# = Patch Version
+28 ; Number) will be Renamed
+29 ;
+30 ; Data should be in internal format.
+31 ; Format: Template Name (250 chars)
+32 ; Note - Do not include Version Portion of name (i.e ~999T or ~999)
CAPRITXT ;
+1 ;;DBQ ABDOMINAL, INGUINAL, AND FEMORAL HERNIAS
+2 ;;DBQ CHRONIC FATIGUE SYNDROME
+3 ;;DBQ COLD INJURY RESIDUALS
+4 ;;DBQ CRANIAL NERVES DISEASES
+5 ;;DBQ ENDOCRINE DISEASES (OTHER THAN THYROID, PARATHYROID OR DIABETES MELLITUS)
+6 ;;DBQ FIBROMYALGIA
+7 ;;DBQ FORMER PRISONER OF WAR (POW) PROTOCOL
+8 ;;DBQ GENERAL MEDICAL - COMPENSATION
+9 ;;DBQ GENERAL MEDICAL - PENSION
+10 ;;DBQ GULF WAR GENERAL MEDICAL EXAMINATION
+11 ;;DBQ GYNECOLOGICAL CONDITIONS
+12 ;;DBQ HIV-RELATED ILLNESSES
+13 ;;DBQ INFECTIOUS DISEASES (OTHER THAN HIV-RELATED ILLNESS, CHRONIC FATIGUE SYNDROME, AND TUBERCULOSIS
+14 ;;DBQ INITIAL EVALUATION OF RESIDUALS OF TRAUMATIC BRAIN INJURY (I-TBI) DISABILITY
+15 ;;DBQ INITIAL PTSD
+16 ;;DBQ LOSS OF SENSE OF SMELL AND OR TASTE
+17 ;;DBQ LOSS OF SENSE OR SMELL AND OR TASTE
+18 ;;DBQ MALE REPRODUCTIVE SYSTEM CONDITIONS
+19 ;;DBQ NARCOLEPSY
+20 ;;DBQ NUTRITIONAL DEFICIENCES
+21 ;;DBQ ORAL AND DENTAL CONDITIONS INCLUDING MOUTH, LIPS AND TONGUE (OTHER THAN TEMPOROMANDIBULAR JOINT CONDITIONS)
+22 ;;DBQ PERIPHERAL NERVES CONDITIONS (NOT INCLUDING DIABETIC SENSORY-MOTOR PERIPHERAL NEUROPATHY)
+23 ;;DBQ RESPIRATORY CONDITIONS (OTHER THAN TUBERCULOSIS AND SLEEP ANPEA)
+24 ;;DBQ REVIEW EVALUATION OF RESIDUALS OF TRAUMATIC BRAIN INJURY (R-TBI)
+25 ;;DBQ SEIZURE DISORDERS (EPILEPSY)
+26 ;;DBQ SINUSITIS, RHINITIS AND OTHER CONDITIONS OF THE NOSE, THROAT, LARYNX AND PHARYNX
+27 ;;DBQ SYSTEMIC LUPUS ERYTHEMATOSUS (SLE) AND OTHER AUTOIMMUNE DISEASES (OTHER THAN HIV AND DIABETES MELLITUS TYPE I)
+28 ;;DBQ THYROID AND PARATHYROID CONDITIONS
+29 ;;DBQ URINARY TRACT (INCLUDING BLADDER AND URETHRA) CONDITIONS (EXCLUDING MALE REPRODUCTIVE ORGANS)
+30 ;;DBQ WRIST CONDITIONS
+31 ;;QUIT
+32 ;
+33 ;
+34 ; AMIE EXAM (#396.6) file exam(s) to deactivate. Data should be in
+35 ; internal format.
+36 ; Format: ien;exam name (60 chars);
AMIEOLD ;
+1 ;;300;DBQ PARKINSONS
+2 ;;311;DBQ AMYOTROPHIC LATERAL SCLEROSIS (LOU GEHRIG'S DISEASE)
+3 ;;312;DBQ BACK (THORACOLUMBAR SPINE) CONDITIONS
+4 ;;313;DBQ DIABETES MELLITUS
+5 ;;314;DBQ DIABETIC SENSORY-MOTOR PERIPHERAL NEUROPATHY
+6 ;;318;DBQ NECK (CERVICAL SPINE) CONDITIONS
+7 ;;319;DBQ PERIPHERAL NERVES (EXCLUDING DIABETIC NEUROPATHY)
+8 ;;320;DBQ PERSIAN GULF AND AFGHANISTAN INFECTIOUS DISEASES
+9 ;;321;DBQ TUBERCULOSIS
+10 ;;322;DBQ ISCHEMIC HEART DISEASE
+11 ;;326;DBQ EATING DISORDERS
+12 ;;327;DBQ INITIAL PTSD
+13 ;;328;DBQ MENTAL DISORDERS (EXCEPT PTSD AND EATING DISORDERS)
+14 ;;329;DBQ REVIEW PTSD
+15 ;;330;DBQ MALE REPRODUCTIVE SYSTEM CONDITIONS
+16 ;;331;DBQ KIDNEY CONDITIONS (NEPHROLOGY)
+17 ;;332;DBQ SCARS DISFIGUREMENT
+18 ;;333;DBQ HEART CONDITIONS
+19 ;;334;DBQ HYPERTENSION
+20 ;;335;DBQ EYE CONDITIONS
+21 ;;337;DBQ KNEE AND LOWER LEG CONDITIONS
+22 ;;338;DBQ SHOULDER AND ARM CONDITIONS
+23 ;;339;DBQ ANKLE CONDITIONS
+24 ;;340;DBQ HIP AND THIGH CONDITIONS
+25 ;;341;DBQ ELBOW AND FOREARM CONDITIONS
+26 ;;342;DBQ FLATFOOT (PES PLANUS)
+27 ;;343;DBQ WRIST CONDITIONS
+28 ;;344;DBQ HAND AND FINGER CONDITIONS
+29 ;;345;DBQ TEMPOROMANDIBULAR JOINT (TMJ) CONDITIONS
+30 ;;346;DBQ ARTERY AND VEIN CONDITIONS
+31 ;;347;DBQ FOOT MISCELLANEOUS (OTHER THAN FLATFOOT PES PLANUS)
+32 ;;348;DBQ MUSCLE INJURIES
+33 ;;349;DBQ AMPUTATIONS
+34 ;;350;DBQ PROSTATE CANCER
+35 ;;351;DBQ HAIRY CELL AND OTHER B CELL LEUKEMIAS
+36 ;;352;DBQ HEARING LOSS AND TINNITUS
+37 ;;353;DBQ HEMIC AND LYMPHATIC CONDITIONS INCLUDING LEUKEMIA
+38 ;;354;DBQ MEDICAL OPINION 1
+39 ;;355;DBQ EAR CONDITIONS
+40 ;;356;DBQ MULTIPLE SCLEROSIS (MS)
+41 ;;357;DBQ NON-DEGENERATIVE ARTHRITIS
+42 ;;358;DBQ OSTEOMYELITIS
+43 ;;359;DBQ HEADACHES (INCLUDING MIGRAINE HEADACHES)
+44 ;;360;DBQ ESOPHAGEAL CONDITIONS
+45 ;;361;DBQ GALLBLADDER AND PANCREAS CONDITIONS
+46 ;;362;DBQ INTESTINAL (OTHER THAN SURGICAL OR INFECTIOUS)
+47 ;;363;DBQ INFECTIOUS INTESTINAL DISORDERS
+48 ;;364;DBQ INTESTINAL SURGERY (RESECTION, COLOSTOMY, ILEOSTOMY)
+49 ;;365;DBQ HEPATITIS, CIRRHOSIS AND OTHER LIVER CONDITIONS
+50 ;;366;DBQ PERITONEAL ADHESIONS
+51 ;;367;DBQ STOMACH AND DUODENAL CONDITIONS
+52 ;;368;DBQ RECTUM AND ANUS CONDITIONS
+53 ;;369;DBQ BREAST CONDITIONS AND DISORDERS
+54 ;;370;DBQ GYNECOLOGICAL CONDITIONS
+55 ;;371;DBQ MEDICAL OPINION 2
+56 ;;372;DBQ MEDICAL OPINION 3
+57 ;;373;DBQ MEDICAL OPINION 4
+58 ;;374;DBQ MEDICAL OPINION 5
+59 ;;375;DBQ CENTRAL NERVOUS SYSTEM DISEASES
+60 ;;376;DBQ SLEEP APNEA
+61 ;;402;DBQ SKIN DISEASES
+62 ;;QUIT
+63 ;
+64 ; AMIE EXAM (#396.6) file exam(s) to activate (create or update).
+65 ; Data should be in internal format.
+66 ; format: ien;exam name (60 chars);print name (25 Chars);body system;routine;status;;wks#
AMIENEW ;
+1 ;;377;DBQ ENDOCRINE DISEASES OTHER THAN DIABETES;DBQ ENDOCRINE DISEASES;12;DVBCQDRV;A; ; ;
+2 ;;378;DBQ THYROID & PARATHYROID;DBQ THYROID & PARATHYROID;12;DVBCQDRV;A; ; ;
+3 ;;379;DBQ CRANIAL NERVES;DBQ CRANIAL NERVES;23;DVBCQDRV;A; ; ;
+4 ;;380;DBQ NARCOLEPSY;DBQ NARCOLEPSY;13;DVBCQDRV;A; ; ;
+5 ;;381;DBQ FIBROMYALGIA;DBQ FIBROMYALGIA;2;DVBCQDRV;A; ; ;
+6 ;;382;DBQ SEIZURE DISORDERS (EPILEPSY);DBQ SEIZURE DISORDERS;13;DVBCQDRV;A; ; ;
+7 ;;383;DBQ URINARY TRACT AND BLADDER;DBQ URINARY TRACT-BLADDER;8;DVBCQDRV;A; ; ;
+8 ;;384;DBQ ABDOMINAL, INGUINAL, AND FEMORAL HERNIAS;DBQ ABDOMINAL HERNIAS;7;DVBCQDRV;A; ; ;
+9 ;;385;DBQ HIV-RELATED ILLNESS;DBQ HIV-RELATED ILLNESS;20;DVBCQDRV;A; ; ;
+10 ;;386;DBQ INFECTIOUS DISEASES;DBQ INFECTIOUS DISEASES;20;DVBCQDRV;A; ; ;
+11 ;;387;DBQ SYSTEMATIC LUPUS ERYTHEMATOUS (SLE) & OTHER IMMUNE DISOR;DBQ SYSTEMATIC LUPUS ERYT;20;DVBCQDRV;A; ; ;
+12 ;;388;DBQ NUTRITIONAL DEFICIENCIES;DBQ NUTRITIONAL DEFICIENC;20;DVBCQDRV;A; ; ;
+13 ;;389;DBQ ORAL AND DENTAL;DBQ ORAL AND DENTAL;21;DVBCQDRV;A; ; ;
+14 ;;390;DBQ LOSS OF SENSE OF SMELL AND TASTE;DBQ LOSS SMELL AND TASTE;3;DVBCQDRV;A; ; ;
+15 ;;391;DBQ SINUSITIS/RHINITIS AND OTHER DISEASE OF THE NOSE, THROAT;DBQ SINUSITIS/RHINITIS;19;DVBCQDRV;A; ; ;
+16 ;;392;DBQ RESPIRATORY CONDITIONS;DBQ RESPIRATORY CONDITION;19;DVBCQDRV;A; ; ;
+17 ;;393;DBQ CHRONIC FATIGUE SYNDROME;DBQ CHRONIC FATIGUE SYNDR;17;DVBCQDRV;A; ; ;
+18 ;;394;DBQ INITIAL EVALUATION OF RESIDUALS OF TBI (I-TBI);DBQ INITIAL RESIDUALS TBI;13;DVBCQDRV;A; ; ;
+19 ;;395;DBQ REVIEW EVALUATION OF RESIDUALS OF TBI (R-TBI);DBQ REVIEW RESIDUALS TBI;13;DVBCQDRV;A; ; ;
+20 ;;396;DBQ GENERAL MEDICAL EXAM - COMPENSATION;DBQ GEN MED EXAM - COMP;1;DVBCQDRV;A; ; ;
+21 ;;397;DBQ GENERAL PENSION EXAM;DBQ GENERAL PENSION EXAM;1;DVBCQDRV;A; ; ;
+22 ;;398;DBQ COLD INJURY RESIDUALS;DBQ COLD INJURY RESIDUALS;17;DVBCQDRV;A; ; ;
+23 ;;399;DBQ PRISONER OF WAR PROTOCOL;DBQ POW PROTOCOL;17;DVBCQDRV;A; ; ;
+24 ;;400;DBQ GULF WAR GENERAL MEDICAL EXAMINATION;DBQ GULF WAR GEN MED EXAM;1;DVBCQDRV;A; ; ;
+25 ;;401;DBQ AMPUTATIONS;DBQ AMPUTATIONS;16;DVBCQDRV;A; ; ;
+26 ;;403;DBQ AMYOTROPHIC LATERAL SCLEROSIS (LOU GEHRIG'S DISEASE);DBQ ALS;13;DVBCQDRV;A; ; ;
+27 ;;404;DBQ ANKLE CONDITIONS;DBQ ANKLE CONDITIONS;2;DVBCQDRV;A; ; ;
+28 ;;405;DBQ ARTERY AND VEIN CONDITIONS;DBQ ARTERY AND VEIN;6;DVBCQDRV;A; ; ;
+29 ;;406;DBQ BACK (THORACOLUMBAR SPINE) CONDITIONS;DBQ BACK CONDITIONS;2;DVBCQDRV;A; ; ;
+30 ;;407;DBQ BREAST CONDITIONS AND DISORDERS;DBQ BREAST CONDITIONS;9;DVBCQDRV;A; ; ;
+31 ;;408;DBQ CENTRAL NERVOUS SYSTEM DISEASES;DBQ CENTRAL NERVOUS SYST;13;DVBCQDRV;A; ; ;
+32 ;;409;DBQ DIABETES MELLITUS;DBQ DIABETES MELLITUS;12;DVBCQDRV;A; ; ;
+33 ;;410;DBQ DIABETIC SENSORY-MOTOR PERIPHERAL NEUROPATHY;DBQ DIABETIC PERIPH NEURO;13;DVBCQDRV;A; ; ;
+34 ;;411;DBQ EAR CONDITIONS;DBQ EAR CONDITIONS;3;DVBCQDRV;A; ; ;
+35 ;;412;DBQ EATING DISORDERS;DBQ EATING DISORDERS;14;DVBCQDRV;A; ; ;
+36 ;;413;DBQ ELBOW AND FOREARM CONDITIONS;DBQ ELBOW AND FOREARM;16;DVBCQDRV;A; ; ;
+37 ;;414;DBQ ESOPHAGEAL CONDITIONS;DBQ ESOPHAGEAL CONDITIONS;7;DVBCQDRV;A; ; ;
+38 ;;415;DBQ EYE CONDITIONS;DBQ EYE CONDITIONS;3;DVBCQDRV;A; ; ;
+39 ;;416;DBQ FLATFOOT (PES PLANUS);DBQ FLATFOOT;16;DVBCQDRV;A; ; ;
+40 ;;417;DBQ FOOT MISCELLANEOUS (OTHER THAN FLATFOOT PES PLANUS);DBQ FOOT MISC;16;DVBCQDRV;A; ; ;
+41 ;;418;DBQ GALLBLADDER AND PANCREAS CONDITIONS;DBQ GALLBLADDER PANCREAS;7;DVBCQDRV;A; ; ;
+42 ;;419;DBQ GYNECOLOGICAL CONDITIONS;DBQ GYNECOLOGICAL;9;DVBCQDRV;A; ; ;
+43 ;;420;DBQ HAIRY CELL AND OTHER B CELL LEUKEMIAS;DBQ HAIRY&OTHR BCELL LEUK;22;DVBCQDRV;A; ; ;
+44 ;;421;DBQ HAND AND FINGER CONDITIONS;DBQ HAND AND FINGER;16;DVBCQDRV;A; ; ;
+45 ;;422;DBQ HEADACHES (INCLUDING MIGRAINE HEADACHES);DBQ HEADACHES;13;DVBCQDRV;A; ; ;
+46 ;;423;DBQ HEARING LOSS AND TINNITUS;DBQ HEARING LOSS AND TINN;3;DVBCQDRV;A; ; ;
+47 ;;424;DBQ HEART CONDITIONS;DBQ HEART CONDITIONS;6;DVBCQDRV;A; ; ;
+48 ;;425;DBQ HEMIC AND LYMPHATIC CONDITIONS INCLUDING LEUKEMIA;DBQ HEMIC AND LYMPHATIC;22;DVBCQDRV;A; ; ;
+49 ;;426;DBQ HEPATITIS, CIRRHOSIS AND OTHER LIVER CONDITIONS;DBQ LIVER CONDITIONS;7;DVBCQDRV;A; ; ;
+50 ;;427;DBQ HIP AND THIGH CONDITIONS;DBQ HIP AND THIGH;16;DVBCQDRV;A; ; ;
+51 ;;428;DBQ HYPERTENSION;DBQ HYPERTENSION;6;DVBCQDRV;A; ; ;
+52 ;;429;DBQ INFECTIOUS INTESTINAL DISORDERS;DBQ INFECTIOUS INTESTINAL;7;DVBCQDRV;A; ; ;
+53 ;;430;DBQ INITIAL PTSD;DBQ INITIAL PTSD;14;DVBCQDRV;A; ; ;
+54 ;;431;DBQ INTESTINAL (OTHER THAN SURGICAL OR INFECTIOUS);DBQ INTESTINAL NON-SURG;7;DVBCQDRV;A; ; ;
+55 ;;432;DBQ INTESTINAL SURGERY (RESECTION, COLOSTOMY, ILEOSTOMY);DBQ INTESTINAL SURGERY;7;DVBCQDRV;A; ; ;
+56 ;;433;DBQ ISCHEMIC HEART DISEASE;DBQ ISCHEMIC HEART DIS;6;DVBCQDRV;A; ; ;
+57 ;;434;DBQ KIDNEY CONDITIONS (NEPHROLOGY);DBQ KIDNEY CONDITIONS;8;DVBCQDRV;A; ; ;
+58 ;;435;DBQ KNEE AND LOWER LEG CONDITIONS;DBQ KNEE AND LOWER LEG;2;DVBCQDRV;A; ; ;
+59 ;;436;DBQ MALE REPRODUCTIVE SYSTEM CONDITIONS;DBQ MALE REPRO SYSTEM;8;DVBCQDRV;A; ; ;
+60 ;;437;DBQ MEDICAL OPINION 1;DBQ MEDICAL OPINION 1;17;DVBCQDRV;A; ; ;
+61 ;;438;DBQ MEDICAL OPINION 2;DBQ MEDICAL OPINION 2;17;DVBCQDRV;A; ; ;
+62 ;;439;DBQ MEDICAL OPINION 3;DBQ MEDICAL OPINION 3;17;DVBCQDRV;A; ; ;
+63 ;;440;DBQ MEDICAL OPINION 4;DBQ MEDICAL OPINION 4;17;DVBCQDRV;A; ; ;
+64 ;;441;DBQ MEDICAL OPINION 5;DBQ MEDICAL OPINION 5;17;DVBCQDRV;A; ; ;
+65 ;;442;DBQ MENTAL DISORDERS (EXCEPT PTSD AND EATING DISORDERS);DBQ MENTAL DISORDER;14;DVBCQDRV;A; ; ;
+66 ;;443;DBQ MULTIPLE SCLEROSIS (MS);DBQ MULTIPLE SCLEROSIS;13;DVBCQDRV;A; ; ;
+67 ;;444;DBQ MUSCLE INJURIES;DBQ MUSCLE INJURIES;16;DVBCQDRV;A; ; ;
+68 ;;445;DBQ NECK (CERVICAL SPINE) CONDITIONS;DBQ NECK CONDITIONS;2;DVBCQDRV;A; ; ;
+69 ;;446;DBQ NON-DEGENERATIVE ARTHRITIS;DBQ NON-DEGEN ARTHRITIS;2;DVBCQDRV;A; ; ;
+70 ;;447;DBQ OSTEOMYELITIS;DBQ OSTEOMYELITIS;2;DVBCQDRV;A; ; ;
+71 ;;448;DBQ PARKINSONS;DBQ PARKINSONS DISEASE;13;DVBCQDRV;A; ; ;
+72 ;;449;DBQ PERIPHERAL NERVES (EXCLUDING DIABETIC NEUROPATHY);DBQ PERIPHERAL NERVES;13;DVBCQDRV;A; ; ;
+73 ;;450;DBQ PERITONEAL ADHESIONS;DBQ PERITONEAL ADHESIONS;7;DVBCQDRV;A; ; ;
+74 ;;451;DBQ PERSIAN GULF AND AFGHANISTAN INFECTIOUS DISEASES;DBQ PRSN GLF, AFGN INFECT;20;DVBCQDRV;A; ; ;
+75 ;;452;DBQ PROSTATE CANCER;DBQ PROSTATE CANCER;8;DVBCQDRV;A; ; ;
+76 ;;453;DBQ RECTUM AND ANUS CONDITIONS;DBQ RECTUM AND ANUS;7;DVBCQDRV;A; ; ;
+77 ;;454;DBQ REVIEW PTSD;DBQ REVIEW PTSD;14;DVBCQDRV;A; ; ;
+78 ;;455;DBQ SCARS DISFIGUREMENT;DBQ SCARS DISFIGUREMENT;11;DVBCQDRV;A; ; ;
+79 ;;456;DBQ SHOULDER AND ARM CONDITIONS;DBQ SHOULDER AND ARM;2;DVBCQDRV;A; ; ;
+80 ;;457;DBQ SKIN DISEASES;DBQ SKIN DISEASES;11;DVBCQDRV;A; ; ;
+81 ;;458;DBQ SLEEP APNEA;DBQ SLEEP APNEA;5;DVBCQDRV;A; ; ;
+82 ;;459;DBQ STOMACH AND DUODENAL CONDITIONS;DBQ STOMACH AND DUODENAL;7;DVBCQDRV;A; ; ;
+83 ;;460;DBQ TEMPOROMANDIBULAR JOINT (TMJ) CONDITIONS;DBQ TEMPOROMANDIBULA(TMJ);16;DVBCQDRV;A; ; ;
+84 ;;461;DBQ TUBERCULOSIS;DBQ TUBERCULOSIS;20;DVBCQDRV;A; ; ;
+85 ;;462;DBQ WRIST CONDITIONS;DBQ WRIST CONDITIONS;16;DVBCQDRV;A; ; ;
+86 ;;QUIT
+87 QUIT
