58 lines
2.1 KiB
Mathematica
58 lines
2.1 KiB
Mathematica
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
|