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

DVBAPOP2.m

Go to the documentation of this file. 
  1. DVBAPOP2 ;ALB/JLU;another post init population routine
  1.  ;;2.7;AMIE;;Apr 10, 1995
  1.  ;
  1. SETPTR ;This entry point sets up the pointers from file 396.6 to 396.7
  1.  ;this data could not come in with difrom because difrom does not
  1.  ;evaluate pointers.
  1.  ;
  1.  N DVBX,DVBX1,DVBX2,DVBX3,DVBX4,VAR
  1.  S DVBX3=0
  1.  F DVBX=1:1 S DVBX1=$T(EXAM+DVBX) Q:DVBX1'[";;"  DO
  1.  .S DVBX1=$P(DVBX1,";;",2)
  1.  .S DVBX2=$P(DVBX1,U,2)
  1.  .S DVBX1=$P(DVBX1,U,1)
  1.  .S IEN3966=$$IEN6^DVBAPOPU(DVBX1)
  1.  .Q:'+IEN3966
  1.  .S IEN3967=$$IEN7^DVBAPOPU(DVBX2)
  1.  .Q:'+IEN3967
  1.  .I $P(^DVB(396.6,IEN3966,0),U,3)'=IEN3967 DO
  1.  ..S DVBX4=$P(^DVB(396.6,IEN3966,0),U,3)
  1.  ..S DIE="^DVB(396.6,",DA=IEN3966,DR="2////"_IEN3967
  1.  ..D ^DIE
  1.  ..S DVBX3=DVBX3+1
  1.  ..D BUMPBLK^DVBAPOST
  1.  ..S VAR="Changed record "_IEN3966_" of the AMIE Exam File from  "_DVBX4_" to "_IEN3967
  1.  ..W !,VAR D BUMP^DVBAPOST(VAR)
  1.  ..Q
  1.  .Q
  1.  S VAR=" - Updating AMIE Exam file pointers to the 2507 Body System file is complete"
  1.  D BUMPBLK^DVBAPOST
  1.  D BUMPBLK^DVBAPOST
  1.  W !!,VAR D BUMP^DVBAPOST(VAR)
  1.  S VAR=DVBX3_" records were updated."
  1.  W !,VAR D BUMP^DVBAPOST(VAR)
  1.  Q
  1.  ;
  1. EXAM ;
  1.  ;;AGENT ORANGE^SPECIAL
  1.  ;;AID AND ATTENDANCE/HOUSEBOUND^SPECIAL
  1.  ;;ALIMENTARY APPENDAGES^DIGESTIVE
  1.  ;;AMPUTATION STUMPS^ORTHOPEDIC
  1.  ;;AUDIO^ORGANS OF SENSE
  1.  ;;AUDIO-EAR DISEASE^ORGANS OF SENSE
  1.  ;;BONES^ORTHOPEDIC
  1.  ;;CARDIOVASCULAR (NEC)^CARDIOVASCULAR
  1.  ;;CRANIAL NERVES^NEUROLOGICAL
  1.  ;;CYSTITIS,BLADDER CALC.,BLADDER INJURY,PROSTATE,SURG. RESID.^GENITOURINARY
  1.  ;;DENTAL^DENTAL
  1.  ;;DIABETES INSIPIDUS^ENDOCRINE
  1.  ;;DIABETES MELLITUS^ENDOCRINE
  1.  ;;DIGESTIVE (NEC)^DIGESTIVE
  1.  ;;DISEASES OF ARTERIES/VEINS^CARDIOVASCULAR
  1.  ;;DISEASES OF THE HEART^CARDIOVASCULAR
  1.  ;;DISEASES/INJURIES OF THE BRAIN^NEUROLOGICAL
  1.  ;;DISEASES/INJURIES OF THE SPINAL CORD^NEUROLOGICAL
  1.  ;;ENDOCRINE DISORDERS (NEC)^ENDOCRINE
  1.  ;;EPILEPSY AND NARCOLEPSY^NEUROLOGICAL
  1.  ;;ESOPHAGUS^DIGESTIVE
  1.  ;;FEET^ORTHOPEDIC
  1.  ;;GENERAL MEDICAL^GENERAL MEDICAL
  1.  ;;GENITOURINARY (NEC)^GENITOURINARY
  1.  ;;GYNECOLOGICAL^GYNECOLOGICAL
  1.  ;;GYNECOLOGICAL (NEC)^GYNECOLOGICAL
  1.  ;;HAND, THUMB, FINGERS^ORTHOPEDIC
  1.  ;;HEMATOLOGIC DISORDERS^HEMATOLOGICAL
  1.  ;;HEMATOLOGIC DISORDERS-BLOOD^HEMATOLOGICAL
  1.  ;;HEMATOLOGIC DISORDERS-LYMPHATIC^HEMATOLOGICAL
  1.  ;;HEMATOLOGICAL (NEC)^HEMATOLOGICAL
  1.  ;;HIGHER LEVEL AID AND ATTENDANCE^SPECIAL
  1.  ;;HIP^ORTHOPEDIC
  1.  ;;HYPERPARATHYROIDISM^ENDOCRINE
  1.  ;;HYPERPITUITARISM (CUSHINGS SYNDROME)^ENDOCRINE
  1.  ;;HYPERTENSION^CARDIOVASCULAR
  1.  ;;HYPERTHYROIDISM, THYROID ADENOMA^ENDOCRINE
  1.  ;;HYPOTHYROIDISM^ENDOCRINE
  1.  ;;INTESTINE^DIGESTIVE
  1.  ;;JOINTS^ORTHOPEDIC
  1.  ;;LOSS OF PENIS, ALL OR PARTIAL^GENITOURINARY
  1.  ;;MALIGNANCIES OR TUBERCULOSIS^GENITOURINARY
  1.  ;;MAMMARY^GYNECOLOGICAL
  1.  ;;MENTAL (NEC)^MENTAL
  1.  ;;MENTAL DISORDERS^MENTAL
  1.  ;;MISCELLANEOUS NEUROLOGICAL DISORDERS^NEUROLOGICAL
  1.  ;;MOUTH AND THROAT^ORGANS OF SENSE
  1.  ;;MUSCLES^ORTHOPEDIC
  1.  ;;MUSCULOSKELETAL (NEC)^ORTHOPEDIC
  1.  ;;NECK - NOT SPINAL CONDITION^ORTHOPEDIC
  1.  ;;NEPHRITIS, ALL FORMS EXCEPT CHRONIC PYELONEPHRITIS^NEPHROLOGICAL
  1.  ;;NEPHROLOGICAL^NEPHROLOGICAL
  1.  ;;NEPHROLOGICAL (NEC)^NEPHROLOGICAL
  1.  ;;NEUROLOGICAL (NEC)^NEUROLOGICAL
  1.  ;;NON-TUBERCULOSIS DISEASES AND INJURIES^PULMONARY
  1.  ;;NOSE AND SINUSES^ORGANS OF SENSE
  1.  ;;NOSE AND THROAT (PULMONARY)^PULMONARY
  1.  ;;ORGANS OF SENSE (NEC)^ORGANS OF SENSE
  1.  ;;OTHER GENITOURINARY^GENITOURINARY
  1.  ;;PERIPHERAL NERVES^NEUROLOGICAL
  1.  ;;PITUITARY TUMORS^ENDOCRINE
  1.  ;;POST-TRAUMATIC STRESS DISORDER^MENTAL
  1.  ;;PRISONER OF WAR^SPECIAL
  1.  ;;PULMONARY (NEC)^PULMONARY
  1.  ;;PULMONARY TUBERCULOSIS AND TUBERCULOSIS DISEASES^PULMONARY
  1.  ;;PYELITIS, NEPHROLITHIAIS, ETC.^GENITOURINARY
  1.  ;;RECTUM AND ANUS^DIGESTIVE
  1.  ;;REGULAR AID AND ATTENDANCE/HOUSEBOUND^SPECIAL
  1.  ;;RESPIRATORY MANIF. OF DISEASES OF OTHER SYSTEMS^PULMONARY
  1.  ;;SCARS^ORTHOPEDIC
  1.  ;;SCARS (BURN)^SKIN
  1.  ;;SCARS (SKIN)^SKIN
  1.  ;;SENSE OF SMELL^ORGANS OF SENSE
  1.  ;;SENSE OF TASTE^ORGANS OF SENSE
  1.  ;;SKIN (NEC)^SKIN
  1.  ;;SKIN (OTHER THAN SCARS)^SKIN
  1.  ;;SPINE^ORTHOPEDIC
  1.  ;;STOMACH^DIGESTIVE
  1.  ;;SYSTEMIC CONDITIONS^SYSTEMIC
  1.  ;;TESTES, TRAUMA OR DISEASE^GENITOURINARY
  1.  ;;TRACHEA AND BRONCHI^PULMONARY
  1.  ;;URETHRAL FISTULA^GENITOURINARY
  1.  ;;VISUAL^ORGANS OF SENSE