source: WorldVistAEHR/trunk/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBYPGD.m@ 1000

Last change on this file since 1000 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.1 KB
Line 
1DVBYPGD ;ALB/ABR - UPDATE DISABILITY CONDITION FILE ; APR 4 1995
2 ;;V4.0;HINQ;**24**;03/25/92
3 ;
4EN ;
5 N DVBI,DVBJ,DVBREF,DD,DIC,DO,X
6 I '$D(DUZ)!'$D(U) W !!,"<<PROGRAMMER NOT DEFINED>>",! Q
7 ;
8DVBNEW ;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
20NEWCODE ; 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
Note: See TracBrowser for help on using the repository browser.