Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DVBYPGD

DVBYPGD.m

Go to the documentation of this file.
  1. DVBYPGD ;ALB/ABR - UPDATE DISABILITY CONDITION FILE ; APR 4 1995
  1. ;;V4.0;HINQ;**24**;03/25/92
  1. ;
  1. EN ;
  1. N DVBI,DVBJ,DVBREF,DD,DIC,DO,X
  1. I '$D(DUZ)!'$D(U) W !!,"<<PROGRAMMER NOT DEFINED>>",! Q
  1. ;
  1. DVBNEW ;add new codes
  1. W !!,"*** Updating DISABILITY CONDITION file (#31)",!?4,"per VA circular 21-95-2, dated Feb. 1, 1995",!
  1. ;
  1. F DVBI=1:1 S DVBJ=$P($T(NEWCODE+DVBI),";;",2) Q:DVBJ["$EXIT" D
  1. .S DVBREF=+DVBJ
  1. .I '$D(^DIC(31,"C",DVBREF)) D
  1. ..K DD,DO
  1. ..S DIC="^DIC(31,",DIC(0)="L",DIC("DR")="2////"_DVBREF,X=$P(DVBJ,"^",2)
  1. ..D FILE^DICN
  1. ..W !,DVBREF,?10,X
  1. W !!," << DONE >>",!
  1. Q
  1. NEWCODE ; codes to be addded
  1. ;;8850^UNDIAG. COND. - MUSCULOSKELETAL DISEASES
  1. ;;8851^UNDIAG. COND. - AMPUTATIONS
  1. ;;8852^UNDIAG. COND. - JOINTS, SKULL, AND RIBS
  1. ;;8853^UNDIAG. COND. - MUSCLE INJURIES
  1. ;;8860^UNDIAG. COND. - DISEASES OF THE EYE
  1. ;;8861^UNDIAG. COND. - HEARING LOSS
  1. ;;8862^UNDIAG. COND. - EAR AND OTHER SENSE ORGANS
  1. ;;8863^UNDIAG. COND. - SYSTEMIC DISEASES
  1. ;;8865^UNDIAG. COND. - NOSE AND THROAT
  1. ;;8866^UNDIAG. COND. - TRACHEA AND BRONCHI
  1. ;;8867^UNDIAG. COND. - TUBERCULOSIS
  1. ;;8868^UNDIAG. COND. - LUNGS AND PLEURA
  1. ;;8870^UNDIAG. COND. - HEART DISEASES
  1. ;;8871^UNDIAG. COND. - ARTERIES AND VEINS
  1. ;;8872^UNDIAG. COND. - UPPER DIGESTIVE SYSTEM
  1. ;;8873^UNDIAG. COND. - LOWER DIGESTIVE SYSTEM
  1. ;;8875^UNDIAG. COND. - GENITOURINARY SYSTEM
  1. ;;8876^UNDIAG. COND. - GYNECOLOGICAL SYSTEM
  1. ;;8877^UNDIAG. COND. - HEMIC AND LYMPHATIC SYSTEM
  1. ;;8878^UNDIAG. COND. - SKIN
  1. ;;8879^UNDIAG. COND. - ENDOCRINE SYSTEM
  1. ;;8880^UNDIAG. COND. - CENTRAL NERVOUS SYSTEM
  1. ;;8881^UNDIAG. COND. - MISCELLANEOUS NEUROLOGICAL
  1. ;;8882^UNDIAG. COND. - CRANIAL NERVE PARALYSIS
  1. ;;8883^UNDIAG. COND. - CRANIAL NERVE NEURITIS
  1. ;;8884^UNDIAG. COND. - CRANIAL NERVE NEURALGIA
  1. ;;8885^UNDIAG. COND. - PERIPHERAL NERVE PARALYSIS
  1. ;;8886^UNDIAG. COND. - PERIPHERAL NERVE NEURITIS
  1. ;;8887^UNDIAG. COND. - PERIPHERAL NERVE NEURALGIA
  1. ;;8889^UNDIAG. COND. - EPILEPSIES
  1. ;;8892^UNDIAG. COND. - PSYCHOTIC DISORDERS
  1. ;;8893^UNDIAG. COND. - ORGANIC MENTAL
  1. ;;8894^UNDIAG. COND. - PSYCHONEUROTIC
  1. ;;8895^UNDIAG. COND. - PSYCHOPHYSIOLOGIC
  1. ;;8899^UNDIAG. COND. - DENTAL AND ORAL
  1. ;;$EXIT
  1. Q