[613] | 1 | DVBYPGD ;ALB/ABR - UPDATE DISABILITY CONDITION FILE ; APR 4 1995
|
---|
| 2 | ;;V4.0;HINQ;**24**;03/25/92
|
---|
| 3 | ;
|
---|
| 4 | EN ;
|
---|
| 5 | N DVBI,DVBJ,DVBREF,DD,DIC,DO,X
|
---|
| 6 | I '$D(DUZ)!'$D(U) W !!,"<<PROGRAMMER NOT DEFINED>>",! Q
|
---|
| 7 | ;
|
---|
| 8 | DVBNEW ;add new codes
|
---|
| 9 | W !!,"*** Updating DISABILITY CONDITION file (#31)",!?4,"per VA circular 21-95-2, dated Feb. 1, 1995",!
|
---|
| 10 | ;
|
---|
| 11 | F DVBI=1:1 S DVBJ=$P($T(NEWCODE+DVBI),";;",2) Q:DVBJ["$EXIT" D
|
---|
| 12 | .S DVBREF=+DVBJ
|
---|
| 13 | .I '$D(^DIC(31,"C",DVBREF)) D
|
---|
| 14 | ..K DD,DO
|
---|
| 15 | ..S DIC="^DIC(31,",DIC(0)="L",DIC("DR")="2////"_DVBREF,X=$P(DVBJ,"^",2)
|
---|
| 16 | ..D FILE^DICN
|
---|
| 17 | ..W !,DVBREF,?10,X
|
---|
| 18 | W !!," << DONE >>",!
|
---|
| 19 | Q
|
---|
| 20 | NEWCODE ; codes to be addded
|
---|
| 21 | ;;8850^UNDIAG. COND. - MUSCULOSKELETAL DISEASES
|
---|
| 22 | ;;8851^UNDIAG. COND. - AMPUTATIONS
|
---|
| 23 | ;;8852^UNDIAG. COND. - JOINTS, SKULL, AND RIBS
|
---|
| 24 | ;;8853^UNDIAG. COND. - MUSCLE INJURIES
|
---|
| 25 | ;;8860^UNDIAG. COND. - DISEASES OF THE EYE
|
---|
| 26 | ;;8861^UNDIAG. COND. - HEARING LOSS
|
---|
| 27 | ;;8862^UNDIAG. COND. - EAR AND OTHER SENSE ORGANS
|
---|
| 28 | ;;8863^UNDIAG. COND. - SYSTEMIC DISEASES
|
---|
| 29 | ;;8865^UNDIAG. COND. - NOSE AND THROAT
|
---|
| 30 | ;;8866^UNDIAG. COND. - TRACHEA AND BRONCHI
|
---|
| 31 | ;;8867^UNDIAG. COND. - TUBERCULOSIS
|
---|
| 32 | ;;8868^UNDIAG. COND. - LUNGS AND PLEURA
|
---|
| 33 | ;;8870^UNDIAG. COND. - HEART DISEASES
|
---|
| 34 | ;;8871^UNDIAG. COND. - ARTERIES AND VEINS
|
---|
| 35 | ;;8872^UNDIAG. COND. - UPPER DIGESTIVE SYSTEM
|
---|
| 36 | ;;8873^UNDIAG. COND. - LOWER DIGESTIVE SYSTEM
|
---|
| 37 | ;;8875^UNDIAG. COND. - GENITOURINARY SYSTEM
|
---|
| 38 | ;;8876^UNDIAG. COND. - GYNECOLOGICAL SYSTEM
|
---|
| 39 | ;;8877^UNDIAG. COND. - HEMIC AND LYMPHATIC SYSTEM
|
---|
| 40 | ;;8878^UNDIAG. COND. - SKIN
|
---|
| 41 | ;;8879^UNDIAG. COND. - ENDOCRINE SYSTEM
|
---|
| 42 | ;;8880^UNDIAG. COND. - CENTRAL NERVOUS SYSTEM
|
---|
| 43 | ;;8881^UNDIAG. COND. - MISCELLANEOUS NEUROLOGICAL
|
---|
| 44 | ;;8882^UNDIAG. COND. - CRANIAL NERVE PARALYSIS
|
---|
| 45 | ;;8883^UNDIAG. COND. - CRANIAL NERVE NEURITIS
|
---|
| 46 | ;;8884^UNDIAG. COND. - CRANIAL NERVE NEURALGIA
|
---|
| 47 | ;;8885^UNDIAG. COND. - PERIPHERAL NERVE PARALYSIS
|
---|
| 48 | ;;8886^UNDIAG. COND. - PERIPHERAL NERVE NEURITIS
|
---|
| 49 | ;;8887^UNDIAG. COND. - PERIPHERAL NERVE NEURALGIA
|
---|
| 50 | ;;8889^UNDIAG. COND. - EPILEPSIES
|
---|
| 51 | ;;8892^UNDIAG. COND. - PSYCHOTIC DISORDERS
|
---|
| 52 | ;;8893^UNDIAG. COND. - ORGANIC MENTAL
|
---|
| 53 | ;;8894^UNDIAG. COND. - PSYCHONEUROTIC
|
---|
| 54 | ;;8895^UNDIAG. COND. - PSYCHOPHYSIOLOGIC
|
---|
| 55 | ;;8899^UNDIAG. COND. - DENTAL AND ORAL
|
---|
| 56 | ;;$EXIT
|
---|
| 57 | Q
|
---|