DVBYPGD.m

DVBYPGD ;ALB/ABR - UPDATE DISABILITY CONDITION FILE ; APR 4 1995

 ;;V4.0;HINQ;**24**;03/25/92

 ;

EN ;

 N DVBI,DVBJ,DVBREF,DD,DIC,DO,X

 I '$D(DUZ)!'$D(U) W !!,"<<PROGRAMMER NOT DEFINED>>",! Q

 ;

DVBNEW ;add new codes

 W !!,"*** Updating DISABILITY CONDITION file (#31)",!?4,"per VA circular 21-95-2, dated Feb. 1, 1995",!

 ;

 F DVBI=1:1 S DVBJ=$P($T(NEWCODE+DVBI),";;",2) Q:DVBJ["$EXIT"  D

 .S DVBREF=+DVBJ

 .I '$D(^DIC(31,"C",DVBREF)) D

 ..K DD,DO

 ..S DIC="^DIC(31,",DIC(0)="L",DIC("DR")="2////"_DVBREF,X=$P(DVBJ,"^",2)

 ..D FILE^DICN

 ..W !,DVBREF,?10,X

 W !!,"  << DONE >>",!

 Q

NEWCODE ; codes to be addded

 ;;8850^UNDIAG. COND. - MUSCULOSKELETAL DISEASES

 ;;8851^UNDIAG. COND. - AMPUTATIONS

 ;;8852^UNDIAG. COND. - JOINTS, SKULL, AND RIBS

 ;;8853^UNDIAG. COND. - MUSCLE INJURIES

 ;;8860^UNDIAG. COND. - DISEASES OF THE EYE

 ;;8861^UNDIAG. COND. - HEARING LOSS

 ;;8862^UNDIAG. COND. - EAR AND OTHER SENSE ORGANS

 ;;8863^UNDIAG. COND. - SYSTEMIC DISEASES

 ;;8865^UNDIAG. COND. - NOSE AND THROAT

 ;;8866^UNDIAG. COND. - TRACHEA AND BRONCHI

 ;;8867^UNDIAG. COND. - TUBERCULOSIS

 ;;8868^UNDIAG. COND. - LUNGS AND PLEURA

 ;;8870^UNDIAG. COND. - HEART DISEASES

 ;;8871^UNDIAG. COND. - ARTERIES AND VEINS

 ;;8872^UNDIAG. COND. - UPPER DIGESTIVE SYSTEM

 ;;8873^UNDIAG. COND. - LOWER DIGESTIVE SYSTEM

 ;;8875^UNDIAG. COND. - GENITOURINARY SYSTEM

 ;;8876^UNDIAG. COND. - GYNECOLOGICAL SYSTEM

 ;;8877^UNDIAG. COND. - HEMIC AND LYMPHATIC SYSTEM

 ;;8878^UNDIAG. COND. - SKIN

 ;;8879^UNDIAG. COND. - ENDOCRINE SYSTEM

 ;;8880^UNDIAG. COND. - CENTRAL NERVOUS SYSTEM

 ;;8881^UNDIAG. COND. - MISCELLANEOUS NEUROLOGICAL

 ;;8882^UNDIAG. COND. - CRANIAL NERVE PARALYSIS

 ;;8883^UNDIAG. COND. - CRANIAL NERVE NEURITIS

 ;;8884^UNDIAG. COND. - CRANIAL NERVE NEURALGIA

 ;;8885^UNDIAG. COND. - PERIPHERAL NERVE PARALYSIS

 ;;8886^UNDIAG. COND. - PERIPHERAL NERVE NEURITIS

 ;;8887^UNDIAG. COND. - PERIPHERAL NERVE NEURALGIA

 ;;8889^UNDIAG. COND. - EPILEPSIES

 ;;8892^UNDIAG. COND. - PSYCHOTIC DISORDERS

 ;;8893^UNDIAG. COND. - ORGANIC MENTAL

 ;;8894^UNDIAG. COND. - PSYCHONEUROTIC

 ;;8895^UNDIAG. COND. - PSYCHOPHYSIOLOGIC

 ;;8899^UNDIAG. COND. - DENTAL AND ORAL

 ;;$EXIT

 Q