DVBA181P ;ALB/RPM - PATCH DVBA*2.7*181 POST-INSTALL ;5/14/2012
;;2.7;AMIE;**181**;Apr 10, 1995;Build 38
;
Q ;NO DIRECT ENTRY
;
ENV ;Main entry point for Environment check point.
;
Q
;
;
PRE ;Main entry point for Pre-init items.
;
Q
;
;
POST ;Main entry point for Post-init items.
;
D POST1 ;Populate Virtual VA parameter definitions
D POST2 ;Edit AMIE EXAM file DBQ entries
Q
;
POST1 ;Populate new Virtual VA parameter definitions
;
N DVBERR
D BMES^XPDUTL("*************************")
D MES^XPDUTL("Start Parameter Updates")
D MES^XPDUTL("*************************")
;
S DVBERR=$$ENXPAR("PKG","DVBAB CAPRI VIRTUALVA PROD URL","https://vbaphi8popp.vba.domain.ext:7002/VABFI/services/vva")
D UPDMSG("DVBAB CAPRI VIRTUALVA PROD URL",DVBERR)
;
S DVBERR=$$ENXPAR("PKG","DVBAB CAPRI VIRTUALVA TEST URL","https://vbaphi5topp.vba.domain.ext:7002/VABFI/services/vva")
D UPDMSG("DVBAB CAPRI VIRTUALVA TEST URL",DVBERR)
;
S DVBERR=$$ENXPAR("PKG","DVBAB CAPRI VVA USER","CAPRI")
D UPDMSG("DVBAB CAPRI VVA USER",DVBERR)
;
S DVBERR=$$ENXPAR("PKG","DVBAB CAPRI VVA TEST PASSWD","XXXXX")
D UPDMSG("DVBAB CAPRI VVA TEST PASSWD",DVBERR)
;
S DVBERR=$$ENXPAR("PKG","DVBAB CAPRI VVA PROD PASSWD","Passw0rd1")
D UPDMSG("DVBAB CAPRI VVA PROD PASSWD",DVBERR)
;
S DVBERR=$$ENXPAR("PKG","DVBAB CAPRI VVA TEST TOKEN","Username-1")
D UPDMSG("DVBAB CAPRI VVA TEST TOKEN",DVBERR)
;
S DVBERR=$$ENXPAR("PKG","DVBAB CAPRI VVA PROD TOKEN","Username-1")
D UPDMSG("DVBAB CAPRI VVA PROD TOKEN",DVBERR)
;
D MES^XPDUTL("*************************")
D MES^XPDUTL("End Parameter Updates")
D MES^XPDUTL("*************************")
Q
;
ENXPAR(DVBENT,DVBPAR,DVBVAL) ;Update Parameter values
;
; Input:
; DVBENT - Parameter Entity
; DVBPAR - Parameter Name
; DVBVAL - Parameter Value
;
; Output:
; Function value - returns "0" on success;
; otherwise returns error#^errortext
;
N DVBERR
D EN^XPAR(DVBENT,DVBPAR,1,DVBVAL,.DVBERR)
Q DVBERR
;
UPDMSG(DVBPAR,DVBERR) ;display update message
;
; Input:
; DVBPAR - Parameter Name
; DVBERR - Parameter Update result
;
; Output: none
;
I DVBERR D
. D MES^XPDUTL(DVBPAR_" update FAILURE.")
. D MES^XPDUTL(" Failure reason: "_DVBERR)
E D
. D MES^XPDUTL(DVBPAR_" update SUCCESS.")
Q
;
POST2 ;Edit AMIE EXAM file DBQ entries
;
;Update active DBQ worksheet updates
;
;
D BMES^XPDUTL(" *** RENAMING ACTIVE DBQ AMIE EXAM FILE ENTRIES ***")
I '$D(^DVB(396.6)) D BMES^XPDUTL("Missing AMIE EXAM (#396.6) file") Q
I $D(^DVB(396.6)) D STARTRN
Q
;
;
STARTRN ;Rename existing DBQ exam file entries
;
N DVBAI,DVBLINE,DVBIEN,DVBEXMO,DVBEXMN
;
D BMES^XPDUTL("Renaming AMIE EXAM (#396.6) file entries...")
F DVBAI=1:1 S DVBLINE=$P($T(EXOLDNEW+DVBAI),";;",2) Q:DVBLINE="QUIT" D
. S DVBIEN=$P(DVBLINE,";",1) ;ien
. S DVBEXMO=$P(DVBLINE,";",2) ;old exam name
. S DVBEXMN=$P(DVBLINE,";",3) ;new exam name
. D RENEXAM
Q
;
RENEXAM ;
;Quit if critical variables missing
I $G(DVBIEN)'>0!($G(DVBEXMO)']"")!($G(DVBEXMN)']"") D Q
. D BMES^XPDUTL("Insufficient data to process change at #"_DVBIEN_")")
;
; Update existing entry
;
N DVBAERR,DVBAFDA
;
; Check for existing entry
I $G(^DVB(396.6,DVBIEN,0))']"" D Q
. D BMES^XPDUTL("No entry found at #"_DVBIEN)
;
; Check for previous update
I $P(^DVB(396.6,DVBIEN,0),"^",1)=DVBEXMN D Q
. D BMES^XPDUTL("Entry at ien #"_DVBIEN_" has previously been updated")
;
; Check for correct entry NAME to update
I $P(^DVB(396.6,DVBIEN,0),"^",1)'=DVBEXMO D Q
. D BMES^XPDUTL("Entry at ien #"_DVBIEN_" does not match expected name "_DVBEXMO_" No updating will take place")
;
; Update entry
S DVBAFDA(396.6,+DVBIEN_",",.01)=$G(DVBEXMN)
D FILE^DIE("","DVBAFDA","DVBAERR")
;
; Report sucessful update
;
I $D(DVBAERR("DIERR"))'>0 D Q
. D BMES^XPDUTL("Renamed entry #"_DVBIEN_" from "_DVBEXMO_" to "_DVBEXMN)
;
; Report update error
;
I $D(DVBAERR("DIERR"))>0 D
. D BMES^XPDUTL(" *** Warning - Unable to update entry #"_DVBIEN_" *** ")
. D MSG^DIALOG()
Q
;
; ****************************************************************************
; AMIE EXAM (#396.6) file exam(s) to rename. Data should be in internal format.
; Format: ;;ien;"old" exam name(up to 60 chars);"new" exam name(up to 60 chars)
;
; ****************************************************************************
EXOLDNEW ;
;;377;DBQ ENDOCRINE DISEASES OTHER THAN DIABETES;DBQ ENDO Endocrine miscellaneous
;;378;DBQ THYROID & PARATHYROID;DBQ ENDO Thyroid & parathyroid
;;379;DBQ CRANIAL NERVES;DBQ NEURO Cranial nerves
;;380;DBQ NARCOLEPSY;DBQ NEURO Narcolepsy
;;381;DBQ FIBROMYALGIA;DBQ NEURO Fibromyalgia
;;382;DBQ SEIZURE DISORDERS (EPILEPSY);DBQ NEURO Seizure disorders (Epilepsy)
;;383;DBQ URINARY TRACT AND BLADDER;DBQ GU Urinary tract (bladder and urethra)
;;384;DBQ ABDOMINAL, INGUINAL, AND FEMORAL HERNIAS;DBQ GEN SURG Hernia inguinal, femoral & abdom (not hiatal)
;;385;DBQ HIV-RELATED ILLNESS;DBQ INFECT HIV related illness
;;386;DBQ INFECTIOUS DISEASES;DBQ INFECT Infectious diseases
;;387;DBQ SYSTEMATIC LUPUS ERYTHEMATOUS (SLE) & OTHER IMMUNE DISOR;DBQ RHEUM Systemic lupus erythematosus
;;388;DBQ NUTRITIONAL DEFICIENCIES;DBQ NUTRI Nutritional deficiencies
;;389;DBQ ORAL AND DENTAL;DBQ DENTAL Dental & oral (other than TMJ)
;;390;DBQ LOSS OF SENSE OF SMELL AND TASTE;DBQ ENT Loss of sense of smell & taste
;;391;DBQ SINUSITIS/RHINITIS AND OTHER DISEASE OF THE NOSE, THROAT;DBQ ENT Sinusitis, rhinitis & other ENT conditions
;;392;DBQ RESPIRATORY CONDITIONS;DBQ RESP Respiratory conditions
;;393;DBQ CHRONIC FATIGUE SYNDROME;DBQ RHEUM Chronic fatigue syndrome
;;394;DBQ INITIAL EVALUATION OF RESIDUALS OF TBI (I-TBI);DBQ NEURO TBI Initial
;;395;DBQ REVIEW EVALUATION OF RESIDUALS OF TBI (R-TBI);DBQ NEURO TBI Review
;;396;DBQ GENERAL MEDICAL EXAM - COMPENSATION;DBQ General Medical Compensation
;;397;DBQ GENERAL PENSION EXAM;DBQ General Medical Pension
;;398;DBQ COLD INJURY RESIDUALS;DBQ Cold injury residuals
;;399;DBQ PRISONER OF WAR PROTOCOL;DBQ Prisoner of War (POW)
;;400;DBQ GULF WAR GENERAL MEDICAL EXAMINATION;DBQ General Medical Gulf War
;;401;DBQ AMPUTATIONS;DBQ MUSC Amputations
;;403;DBQ AMYOTROPHIC LATERAL SCLEROSIS (LOU GEHRIG'S DISEASE);DBQ NEURO Amyotrophic lateral sclerosis
;;404;DBQ ANKLE CONDITIONS;DBQ MUSC Ankle
;;405;DBQ ARTERY AND VEIN CONDITIONS;DBQ CARDIO Arteries & veins (vascular)
;;406;DBQ BACK (THORACOLUMBAR SPINE) CONDITIONS;DBQ MUSC Back (thoracolumbar spine)
;;407;DBQ BREAST CONDITIONS AND DISORDERS;DBQ GYN Breast conditions and disorders
;;408;DBQ CENTRAL NERVOUS SYSTEM DISEASES;DBQ NEURO Central nervous system
;;409;DBQ DIABETES MELLITUS;DBQ ENDO Diabetes mellitus
;;410;DBQ DIABETIC SENSORY-MOTOR PERIPHERAL NEUROPATHY;DBQ NEURO Diabetic sensory-motor peripheral neuropathy
;;411;DBQ EAR CONDITIONS;DBQ ENT Ear conditions
;;412;DBQ EATING DISORDERS;DBQ PSYCH Eating disorders
;;413;DBQ ELBOW AND FOREARM CONDITIONS;DBQ MUSC Elbow & forearm
;;414;DBQ ESOPHAGEAL CONDITIONS;DBQ GI Esophagus (including GERD & hiatal hernia)
;;415;DBQ EYE CONDITIONS;DBQ OPHTH Eye
;;416;DBQ FLATFOOT (PES PLANUS);DBQ MUSC Flatfoot (pes planus)
;;417;DBQ FOOT MISCELLANEOUS (OTHER THAN FLATFOOT PES PLANUS);DBQ MUSC Foot miscellaneous
;;418;DBQ GALLBLADDER AND PANCREAS CONDITIONS;DBQ GI Gallbladder & pancreas
;;419;DBQ GYNECOLOGICAL CONDITIONS;DBQ GYN Gynecological conditions
;;420;DBQ HAIRY CELL AND OTHER B CELL LEUKEMIAS;DBQ HEM Hairy Cell & other B-cell leukemias
;;421;DBQ HAND AND FINGER CONDITIONS;DBQ MUSC Hand & finger
;;422;DBQ HEADACHES (INCLUDING MIGRAINE HEADACHES);DBQ NEURO Headaches (including migraine headaches)
;;423;DBQ HEARING LOSS AND TINNITUS;DBQ AUDIO Hearing loss & tinnitus
;;424;DBQ HEART CONDITIONS;DBQ CARDIO Heart
;;425;DBQ HEMIC AND LYMPHATIC CONDITIONS INCLUDING LEUKEMIA;DBQ HEM Hemic & lymphatic, including leukemia
;;426;DBQ HEPATITIS, CIRRHOSIS AND OTHER LIVER CONDITIONS;DBQ GI Liver conditions Hepatitis, cirrhosis & other liver
;;427;DBQ HIP AND THIGH CONDITIONS;DBQ MUSC Hip & thigh
;;428;DBQ HYPERTENSION;DBQ CARDIO Hypertension
;;429;DBQ INFECTIOUS INTESTINAL DISORDERS;DBQ GI Intestines (infectious)
;;430;DBQ INITIAL PTSD;DBQ PSYCH PTSD Initial
;;431;DBQ INTESTINAL (OTHER THAN SURGICAL OR INFECTIOUS);DBQ GI Intestines (other than surgical or infectious)
;;432;DBQ INTESTINAL SURGERY (RESECTION, COLOSTOMY, ILEOSTOMY);DBQ GI Intestines (surgical)
;;433;DBQ ISCHEMIC HEART DISEASE;DBQ CARDIO Ischemic heart disease
;;434;DBQ KIDNEY CONDITIONS (NEPHROLOGY);DBQ GU Kidney (nephrology)
;;435;DBQ KNEE AND LOWER LEG CONDITIONS;DBQ MUSC Knee & lower leg
;;436;DBQ MALE REPRODUCTIVE SYSTEM CONDITIONS;DBQ GU Male reproductive system
;;437;DBQ MEDICAL OPINION 1;DBQ Medical Opinion 1
;;438;DBQ MEDICAL OPINION 2;DBQ Medical Opinion 2
;;439;DBQ MEDICAL OPINION 3;DBQ Medical Opinion 3
;;440;DBQ MEDICAL OPINION 4;DBQ Medical Opinion 4
;;441;DBQ MEDICAL OPINION 5;DBQ Medical Opinion 5
;;442;DBQ MENTAL DISORDERS (EXCEPT PTSD AND EATING DISORDERS);DBQ PSYCH Mental disorders
;;443;DBQ MULTIPLE SCLEROSIS (MS);DBQ NEURO Multiple sclerosis
;;444;DBQ MUSCLE INJURIES;DBQ MUSC Muscle injuries
;;445;DBQ NECK (CERVICAL SPINE) CONDITIONS;DBQ MUSC Neck (cervical spine)
;;446;DBQ NON-DEGENERATIVE ARTHRITIS;DBQ RHEUM Arthritis: non-degen (inflam, imm, cryst, infect)
;;447;DBQ OSTEOMYELITIS;DBQ MUSC Osteomyelitis
;;448;DBQ PARKINSONS;DBQ NEURO Parkinsons disease
;;449;DBQ PERIPHERAL NERVES (EXCLUDING DIABETIC NEUROPATHY);DBQ NEURO Peripheral nerves
;;450;DBQ PERITONEAL ADHESIONS;DBQ GI Peritoneal adhesion
;;451;DBQ PERSIAN GULF AND AFGHANISTAN INFECTIOUS DISEASES;DBQ INFECT South West Asia Infectious diseases
;;452;DBQ PROSTATE CANCER;DBQ GU Prostate cancer
;;453;DBQ RECTUM AND ANUS CONDITIONS;DBQ GEN SURG Rectum & anus (including hemorrhoids)
;;454;DBQ REVIEW PTSD;DBQ PSYCH PTSD Review
;;455;DBQ SCARS DISFIGUREMENT;DBQ DERM Scars
;;456;DBQ SHOULDER AND ARM CONDITIONS;DBQ MUSC Shoulder & arm
;;457;DBQ SKIN DISEASES;DBQ DERM Skin
;;458;DBQ SLEEP APNEA;DBQ RESP Sleep apnea
;;459;DBQ STOMACH AND DUODENAL CONDITIONS;DBQ GI Stomach & duodenum
;;460;DBQ TEMPOROMANDIBULAR JOINT (TMJ) CONDITIONS;DBQ MUSC Temporomandibular joint
;;461;DBQ TUBERCULOSIS;DBQ INFECT Tuberculosis
;;462;DBQ WRIST CONDITIONS;DBQ MUSC Wrist
;;QUIT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBA181P 10585 printed Apr 09, 2024@20:52:11 Page 2
DVBA181P ;ALB/RPM - PATCH DVBA*2.7*181 POST-INSTALL ;5/14/2012
+1 ;;2.7;AMIE;**181**;Apr 10, 1995;Build 38
+2 ;
+3 ;NO DIRECT ENTRY
QUIT
+4 ;
ENV ;Main entry point for Environment check point.
+1 ;
+2 QUIT
+3 ;
+4 ;
PRE ;Main entry point for Pre-init items.
+1 ;
+2 QUIT
+3 ;
+4 ;
POST ;Main entry point for Post-init items.
+1 ;
+2 ;Populate Virtual VA parameter definitions
DO POST1
+3 ;Edit AMIE EXAM file DBQ entries
DO POST2
+4 QUIT
+5 ;
POST1 ;Populate new Virtual VA parameter definitions
+1 ;
+2 NEW DVBERR
+3 DO BMES^XPDUTL("*************************")
+4 DO MES^XPDUTL("Start Parameter Updates")
+5 DO MES^XPDUTL("*************************")
+6 ;
+7 SET DVBERR=$$ENXPAR("PKG","DVBAB CAPRI VIRTUALVA PROD URL","https://vbaphi8popp.vba.domain.ext:7002/VABFI/services/vva")
+8 DO UPDMSG("DVBAB CAPRI VIRTUALVA PROD URL",DVBERR)
+9 ;
+10 SET DVBERR=$$ENXPAR("PKG","DVBAB CAPRI VIRTUALVA TEST URL","https://vbaphi5topp.vba.domain.ext:7002/VABFI/services/vva")
+11 DO UPDMSG("DVBAB CAPRI VIRTUALVA TEST URL",DVBERR)
+12 ;
+13 SET DVBERR=$$ENXPAR("PKG","DVBAB CAPRI VVA USER","CAPRI")
+14 DO UPDMSG("DVBAB CAPRI VVA USER",DVBERR)
+15 ;
+16 SET DVBERR=$$ENXPAR("PKG","DVBAB CAPRI VVA TEST PASSWD","XXXXX")
+17 DO UPDMSG("DVBAB CAPRI VVA TEST PASSWD",DVBERR)
+18 ;
+19 SET DVBERR=$$ENXPAR("PKG","DVBAB CAPRI VVA PROD PASSWD","Passw0rd1")
+20 DO UPDMSG("DVBAB CAPRI VVA PROD PASSWD",DVBERR)
+21 ;
+22 SET DVBERR=$$ENXPAR("PKG","DVBAB CAPRI VVA TEST TOKEN","Username-1")
+23 DO UPDMSG("DVBAB CAPRI VVA TEST TOKEN",DVBERR)
+24 ;
+25 SET DVBERR=$$ENXPAR("PKG","DVBAB CAPRI VVA PROD TOKEN","Username-1")
+26 DO UPDMSG("DVBAB CAPRI VVA PROD TOKEN",DVBERR)
+27 ;
+28 DO MES^XPDUTL("*************************")
+29 DO MES^XPDUTL("End Parameter Updates")
+30 DO MES^XPDUTL("*************************")
+31 QUIT
+32 ;
ENXPAR(DVBENT,DVBPAR,DVBVAL) ;Update Parameter values
+1 ;
+2 ; Input:
+3 ; DVBENT - Parameter Entity
+4 ; DVBPAR - Parameter Name
+5 ; DVBVAL - Parameter Value
+6 ;
+7 ; Output:
+8 ; Function value - returns "0" on success;
+9 ; otherwise returns error#^errortext
+10 ;
+11 NEW DVBERR
+12 DO EN^XPAR(DVBENT,DVBPAR,1,DVBVAL,.DVBERR)
+13 QUIT DVBERR
+14 ;
UPDMSG(DVBPAR,DVBERR) ;display update message
+1 ;
+2 ; Input:
+3 ; DVBPAR - Parameter Name
+4 ; DVBERR - Parameter Update result
+5 ;
+6 ; Output: none
+7 ;
+8 IF DVBERR
Begin DoDot:1
+9 DO MES^XPDUTL(DVBPAR_" update FAILURE.")
+10 DO MES^XPDUTL(" Failure reason: "_DVBERR)
End DoDot:1
+11 IF '$TEST
Begin DoDot:1
+12 DO MES^XPDUTL(DVBPAR_" update SUCCESS.")
End DoDot:1
+13 QUIT
+14 ;
POST2 ;Edit AMIE EXAM file DBQ entries
+1 ;
+2 ;Update active DBQ worksheet updates
+3 ;
+4 ;
+5 DO BMES^XPDUTL(" *** RENAMING ACTIVE DBQ AMIE EXAM FILE ENTRIES ***")
+6 IF '$DATA(^DVB(396.6))
DO BMES^XPDUTL("Missing AMIE EXAM (#396.6) file")
QUIT
+7 IF $DATA(^DVB(396.6))
DO STARTRN
+8 QUIT
+9 ;
+10 ;
STARTRN ;Rename existing DBQ exam file entries
+1 ;
+2 NEW DVBAI,DVBLINE,DVBIEN,DVBEXMO,DVBEXMN
+3 ;
+4 DO BMES^XPDUTL("Renaming AMIE EXAM (#396.6) file entries...")
+5 FOR DVBAI=1:1
SET DVBLINE=$PIECE($TEXT(EXOLDNEW+DVBAI),";;",2)
if DVBLINE="QUIT"
QUIT
Begin DoDot:1
+6 ;ien
SET DVBIEN=$PIECE(DVBLINE,";",1)
+7 ;old exam name
SET DVBEXMO=$PIECE(DVBLINE,";",2)
+8 ;new exam name
SET DVBEXMN=$PIECE(DVBLINE,";",3)
+9 DO RENEXAM
End DoDot:1
+10 QUIT
+11 ;
RENEXAM ;
+1 ;Quit if critical variables missing
+2 IF $GET(DVBIEN)'>0!($GET(DVBEXMO)']"")!($GET(DVBEXMN)']"")
Begin DoDot:1
+3 DO BMES^XPDUTL("Insufficient data to process change at #"_DVBIEN_")")
End DoDot:1
QUIT
+4 ;
+5 ; Update existing entry
+6 ;
+7 NEW DVBAERR,DVBAFDA
+8 ;
+9 ; Check for existing entry
+10 IF $GET(^DVB(396.6,DVBIEN,0))']""
Begin DoDot:1
+11 DO BMES^XPDUTL("No entry found at #"_DVBIEN)
End DoDot:1
QUIT
+12 ;
+13 ; Check for previous update
+14 IF $PIECE(^DVB(396.6,DVBIEN,0),"^",1)=DVBEXMN
Begin DoDot:1
+15 DO BMES^XPDUTL("Entry at ien #"_DVBIEN_" has previously been updated")
End DoDot:1
QUIT
+16 ;
+17 ; Check for correct entry NAME to update
+18 IF $PIECE(^DVB(396.6,DVBIEN,0),"^",1)'=DVBEXMO
Begin DoDot:1
+19 DO BMES^XPDUTL("Entry at ien #"_DVBIEN_" does not match expected name "_DVBEXMO_" No updating will take place")
End DoDot:1
QUIT
+20 ;
+21 ; Update entry
+22 SET DVBAFDA(396.6,+DVBIEN_",",.01)=$GET(DVBEXMN)
+23 DO FILE^DIE("","DVBAFDA","DVBAERR")
+24 ;
+25 ; Report sucessful update
+26 ;
+27 IF $DATA(DVBAERR("DIERR"))'>0
Begin DoDot:1
+28 DO BMES^XPDUTL("Renamed entry #"_DVBIEN_" from "_DVBEXMO_" to "_DVBEXMN)
End DoDot:1
QUIT
+29 ;
+30 ; Report update error
+31 ;
+32 IF $DATA(DVBAERR("DIERR"))>0
Begin DoDot:1
+33 DO BMES^XPDUTL(" *** Warning - Unable to update entry #"_DVBIEN_" *** ")
+34 DO MSG^DIALOG()
End DoDot:1
+35 QUIT
+36 ;
+37 ; ****************************************************************************
+38 ; AMIE EXAM (#396.6) file exam(s) to rename. Data should be in internal format.
+39 ; Format: ;;ien;"old" exam name(up to 60 chars);"new" exam name(up to 60 chars)
+40 ;
+41 ; ****************************************************************************
EXOLDNEW ;
+1 ;;377;DBQ ENDOCRINE DISEASES OTHER THAN DIABETES;DBQ ENDO Endocrine miscellaneous
+2 ;;378;DBQ THYROID & PARATHYROID;DBQ ENDO Thyroid & parathyroid
+3 ;;379;DBQ CRANIAL NERVES;DBQ NEURO Cranial nerves
+4 ;;380;DBQ NARCOLEPSY;DBQ NEURO Narcolepsy
+5 ;;381;DBQ FIBROMYALGIA;DBQ NEURO Fibromyalgia
+6 ;;382;DBQ SEIZURE DISORDERS (EPILEPSY);DBQ NEURO Seizure disorders (Epilepsy)
+7 ;;383;DBQ URINARY TRACT AND BLADDER;DBQ GU Urinary tract (bladder and urethra)
+8 ;;384;DBQ ABDOMINAL, INGUINAL, AND FEMORAL HERNIAS;DBQ GEN SURG Hernia inguinal, femoral & abdom (not hiatal)
+9 ;;385;DBQ HIV-RELATED ILLNESS;DBQ INFECT HIV related illness
+10 ;;386;DBQ INFECTIOUS DISEASES;DBQ INFECT Infectious diseases
+11 ;;387;DBQ SYSTEMATIC LUPUS ERYTHEMATOUS (SLE) & OTHER IMMUNE DISOR;DBQ RHEUM Systemic lupus erythematosus
+12 ;;388;DBQ NUTRITIONAL DEFICIENCIES;DBQ NUTRI Nutritional deficiencies
+13 ;;389;DBQ ORAL AND DENTAL;DBQ DENTAL Dental & oral (other than TMJ)
+14 ;;390;DBQ LOSS OF SENSE OF SMELL AND TASTE;DBQ ENT Loss of sense of smell & taste
+15 ;;391;DBQ SINUSITIS/RHINITIS AND OTHER DISEASE OF THE NOSE, THROAT;DBQ ENT Sinusitis, rhinitis & other ENT conditions
+16 ;;392;DBQ RESPIRATORY CONDITIONS;DBQ RESP Respiratory conditions
+17 ;;393;DBQ CHRONIC FATIGUE SYNDROME;DBQ RHEUM Chronic fatigue syndrome
+18 ;;394;DBQ INITIAL EVALUATION OF RESIDUALS OF TBI (I-TBI);DBQ NEURO TBI Initial
+19 ;;395;DBQ REVIEW EVALUATION OF RESIDUALS OF TBI (R-TBI);DBQ NEURO TBI Review
+20 ;;396;DBQ GENERAL MEDICAL EXAM - COMPENSATION;DBQ General Medical Compensation
+21 ;;397;DBQ GENERAL PENSION EXAM;DBQ General Medical Pension
+22 ;;398;DBQ COLD INJURY RESIDUALS;DBQ Cold injury residuals
+23 ;;399;DBQ PRISONER OF WAR PROTOCOL;DBQ Prisoner of War (POW)
+24 ;;400;DBQ GULF WAR GENERAL MEDICAL EXAMINATION;DBQ General Medical Gulf War
+25 ;;401;DBQ AMPUTATIONS;DBQ MUSC Amputations
+26 ;;403;DBQ AMYOTROPHIC LATERAL SCLEROSIS (LOU GEHRIG'S DISEASE);DBQ NEURO Amyotrophic lateral sclerosis
+27 ;;404;DBQ ANKLE CONDITIONS;DBQ MUSC Ankle
+28 ;;405;DBQ ARTERY AND VEIN CONDITIONS;DBQ CARDIO Arteries & veins (vascular)
+29 ;;406;DBQ BACK (THORACOLUMBAR SPINE) CONDITIONS;DBQ MUSC Back (thoracolumbar spine)
+30 ;;407;DBQ BREAST CONDITIONS AND DISORDERS;DBQ GYN Breast conditions and disorders
+31 ;;408;DBQ CENTRAL NERVOUS SYSTEM DISEASES;DBQ NEURO Central nervous system
+32 ;;409;DBQ DIABETES MELLITUS;DBQ ENDO Diabetes mellitus
+33 ;;410;DBQ DIABETIC SENSORY-MOTOR PERIPHERAL NEUROPATHY;DBQ NEURO Diabetic sensory-motor peripheral neuropathy
+34 ;;411;DBQ EAR CONDITIONS;DBQ ENT Ear conditions
+35 ;;412;DBQ EATING DISORDERS;DBQ PSYCH Eating disorders
+36 ;;413;DBQ ELBOW AND FOREARM CONDITIONS;DBQ MUSC Elbow & forearm
+37 ;;414;DBQ ESOPHAGEAL CONDITIONS;DBQ GI Esophagus (including GERD & hiatal hernia)
+38 ;;415;DBQ EYE CONDITIONS;DBQ OPHTH Eye
+39 ;;416;DBQ FLATFOOT (PES PLANUS);DBQ MUSC Flatfoot (pes planus)
+40 ;;417;DBQ FOOT MISCELLANEOUS (OTHER THAN FLATFOOT PES PLANUS);DBQ MUSC Foot miscellaneous
+41 ;;418;DBQ GALLBLADDER AND PANCREAS CONDITIONS;DBQ GI Gallbladder & pancreas
+42 ;;419;DBQ GYNECOLOGICAL CONDITIONS;DBQ GYN Gynecological conditions
+43 ;;420;DBQ HAIRY CELL AND OTHER B CELL LEUKEMIAS;DBQ HEM Hairy Cell & other B-cell leukemias
+44 ;;421;DBQ HAND AND FINGER CONDITIONS;DBQ MUSC Hand & finger
+45 ;;422;DBQ HEADACHES (INCLUDING MIGRAINE HEADACHES);DBQ NEURO Headaches (including migraine headaches)
+46 ;;423;DBQ HEARING LOSS AND TINNITUS;DBQ AUDIO Hearing loss & tinnitus
+47 ;;424;DBQ HEART CONDITIONS;DBQ CARDIO Heart
+48 ;;425;DBQ HEMIC AND LYMPHATIC CONDITIONS INCLUDING LEUKEMIA;DBQ HEM Hemic & lymphatic, including leukemia
+49 ;;426;DBQ HEPATITIS, CIRRHOSIS AND OTHER LIVER CONDITIONS;DBQ GI Liver conditions Hepatitis, cirrhosis & other liver
+50 ;;427;DBQ HIP AND THIGH CONDITIONS;DBQ MUSC Hip & thigh
+51 ;;428;DBQ HYPERTENSION;DBQ CARDIO Hypertension
+52 ;;429;DBQ INFECTIOUS INTESTINAL DISORDERS;DBQ GI Intestines (infectious)
+53 ;;430;DBQ INITIAL PTSD;DBQ PSYCH PTSD Initial
+54 ;;431;DBQ INTESTINAL (OTHER THAN SURGICAL OR INFECTIOUS);DBQ GI Intestines (other than surgical or infectious)
+55 ;;432;DBQ INTESTINAL SURGERY (RESECTION, COLOSTOMY, ILEOSTOMY);DBQ GI Intestines (surgical)
+56 ;;433;DBQ ISCHEMIC HEART DISEASE;DBQ CARDIO Ischemic heart disease
+57 ;;434;DBQ KIDNEY CONDITIONS (NEPHROLOGY);DBQ GU Kidney (nephrology)
+58 ;;435;DBQ KNEE AND LOWER LEG CONDITIONS;DBQ MUSC Knee & lower leg
+59 ;;436;DBQ MALE REPRODUCTIVE SYSTEM CONDITIONS;DBQ GU Male reproductive system
+60 ;;437;DBQ MEDICAL OPINION 1;DBQ Medical Opinion 1
+61 ;;438;DBQ MEDICAL OPINION 2;DBQ Medical Opinion 2
+62 ;;439;DBQ MEDICAL OPINION 3;DBQ Medical Opinion 3
+63 ;;440;DBQ MEDICAL OPINION 4;DBQ Medical Opinion 4
+64 ;;441;DBQ MEDICAL OPINION 5;DBQ Medical Opinion 5
+65 ;;442;DBQ MENTAL DISORDERS (EXCEPT PTSD AND EATING DISORDERS);DBQ PSYCH Mental disorders
+66 ;;443;DBQ MULTIPLE SCLEROSIS (MS);DBQ NEURO Multiple sclerosis
+67 ;;444;DBQ MUSCLE INJURIES;DBQ MUSC Muscle injuries
+68 ;;445;DBQ NECK (CERVICAL SPINE) CONDITIONS;DBQ MUSC Neck (cervical spine)
+69 ;;446;DBQ NON-DEGENERATIVE ARTHRITIS;DBQ RHEUM Arthritis: non-degen (inflam, imm, cryst, infect)
+70 ;;447;DBQ OSTEOMYELITIS;DBQ MUSC Osteomyelitis
+71 ;;448;DBQ PARKINSONS;DBQ NEURO Parkinsons disease
+72 ;;449;DBQ PERIPHERAL NERVES (EXCLUDING DIABETIC NEUROPATHY);DBQ NEURO Peripheral nerves
+73 ;;450;DBQ PERITONEAL ADHESIONS;DBQ GI Peritoneal adhesion
+74 ;;451;DBQ PERSIAN GULF AND AFGHANISTAN INFECTIOUS DISEASES;DBQ INFECT South West Asia Infectious diseases
+75 ;;452;DBQ PROSTATE CANCER;DBQ GU Prostate cancer
+76 ;;453;DBQ RECTUM AND ANUS CONDITIONS;DBQ GEN SURG Rectum & anus (including hemorrhoids)
+77 ;;454;DBQ REVIEW PTSD;DBQ PSYCH PTSD Review
+78 ;;455;DBQ SCARS DISFIGUREMENT;DBQ DERM Scars
+79 ;;456;DBQ SHOULDER AND ARM CONDITIONS;DBQ MUSC Shoulder & arm
+80 ;;457;DBQ SKIN DISEASES;DBQ DERM Skin
+81 ;;458;DBQ SLEEP APNEA;DBQ RESP Sleep apnea
+82 ;;459;DBQ STOMACH AND DUODENAL CONDITIONS;DBQ GI Stomach & duodenum
+83 ;;460;DBQ TEMPOROMANDIBULAR JOINT (TMJ) CONDITIONS;DBQ MUSC Temporomandibular joint
+84 ;;461;DBQ TUBERCULOSIS;DBQ INFECT Tuberculosis
+85 ;;462;DBQ WRIST CONDITIONS;DBQ MUSC Wrist
+86 ;;QUIT
