source: FOIAVistA/trunk/r/AUTOMATED_MED_INFO_EXCHANGE-DVBA-DVBC/DVBAPOP2.m

Last change on this file was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 3.9 KB
Line 
1DVBAPOP2 ;ALB/JLU;another post init population routine
2 ;;2.7;AMIE;;Apr 10, 1995
3 ;
4SETPTR ;This entry point sets up the pointers from file 396.6 to 396.7
5 ;this data could not come in with difrom because difrom does not
6 ;evaluate pointers.
7 ;
8 N DVBX,DVBX1,DVBX2,DVBX3,DVBX4,VAR
9 S DVBX3=0
10 F DVBX=1:1 S DVBX1=$T(EXAM+DVBX) Q:DVBX1'[";;" DO
11 .S DVBX1=$P(DVBX1,";;",2)
12 .S DVBX2=$P(DVBX1,U,2)
13 .S DVBX1=$P(DVBX1,U,1)
14 .S IEN3966=$$IEN6^DVBAPOPU(DVBX1)
15 .Q:'+IEN3966
16 .S IEN3967=$$IEN7^DVBAPOPU(DVBX2)
17 .Q:'+IEN3967
18 .I $P(^DVB(396.6,IEN3966,0),U,3)'=IEN3967 DO
19 ..S DVBX4=$P(^DVB(396.6,IEN3966,0),U,3)
20 ..S DIE="^DVB(396.6,",DA=IEN3966,DR="2////"_IEN3967
21 ..D ^DIE
22 ..S DVBX3=DVBX3+1
23 ..D BUMPBLK^DVBAPOST
24 ..S VAR="Changed record "_IEN3966_" of the AMIE Exam File from "_DVBX4_" to "_IEN3967
25 ..W !,VAR D BUMP^DVBAPOST(VAR)
26 ..Q
27 .Q
28 S VAR=" - Updating AMIE Exam file pointers to the 2507 Body System file is complete"
29 D BUMPBLK^DVBAPOST
30 D BUMPBLK^DVBAPOST
31 W !!,VAR D BUMP^DVBAPOST(VAR)
32 S VAR=DVBX3_" records were updated."
33 W !,VAR D BUMP^DVBAPOST(VAR)
34 Q
35 ;
36EXAM ;
37 ;;AGENT ORANGE^SPECIAL
38 ;;AID AND ATTENDANCE/HOUSEBOUND^SPECIAL
39 ;;ALIMENTARY APPENDAGES^DIGESTIVE
40 ;;AMPUTATION STUMPS^ORTHOPEDIC
41 ;;AUDIO^ORGANS OF SENSE
42 ;;AUDIO-EAR DISEASE^ORGANS OF SENSE
43 ;;BONES^ORTHOPEDIC
44 ;;CARDIOVASCULAR (NEC)^CARDIOVASCULAR
45 ;;CRANIAL NERVES^NEUROLOGICAL
46 ;;CYSTITIS,BLADDER CALC.,BLADDER INJURY,PROSTATE,SURG. RESID.^GENITOURINARY
47 ;;DENTAL^DENTAL
48 ;;DIABETES INSIPIDUS^ENDOCRINE
49 ;;DIABETES MELLITUS^ENDOCRINE
50 ;;DIGESTIVE (NEC)^DIGESTIVE
51 ;;DISEASES OF ARTERIES/VEINS^CARDIOVASCULAR
52 ;;DISEASES OF THE HEART^CARDIOVASCULAR
53 ;;DISEASES/INJURIES OF THE BRAIN^NEUROLOGICAL
54 ;;DISEASES/INJURIES OF THE SPINAL CORD^NEUROLOGICAL
55 ;;ENDOCRINE DISORDERS (NEC)^ENDOCRINE
56 ;;EPILEPSY AND NARCOLEPSY^NEUROLOGICAL
57 ;;ESOPHAGUS^DIGESTIVE
58 ;;FEET^ORTHOPEDIC
59 ;;GENERAL MEDICAL^GENERAL MEDICAL
60 ;;GENITOURINARY (NEC)^GENITOURINARY
61 ;;GYNECOLOGICAL^GYNECOLOGICAL
62 ;;GYNECOLOGICAL (NEC)^GYNECOLOGICAL
63 ;;HAND, THUMB, FINGERS^ORTHOPEDIC
64 ;;HEMATOLOGIC DISORDERS^HEMATOLOGICAL
65 ;;HEMATOLOGIC DISORDERS-BLOOD^HEMATOLOGICAL
66 ;;HEMATOLOGIC DISORDERS-LYMPHATIC^HEMATOLOGICAL
67 ;;HEMATOLOGICAL (NEC)^HEMATOLOGICAL
68 ;;HIGHER LEVEL AID AND ATTENDANCE^SPECIAL
69 ;;HIP^ORTHOPEDIC
70 ;;HYPERPARATHYROIDISM^ENDOCRINE
71 ;;HYPERPITUITARISM (CUSHINGS SYNDROME)^ENDOCRINE
72 ;;HYPERTENSION^CARDIOVASCULAR
73 ;;HYPERTHYROIDISM, THYROID ADENOMA^ENDOCRINE
74 ;;HYPOTHYROIDISM^ENDOCRINE
75 ;;INTESTINE^DIGESTIVE
76 ;;JOINTS^ORTHOPEDIC
77 ;;LOSS OF PENIS, ALL OR PARTIAL^GENITOURINARY
78 ;;MALIGNANCIES OR TUBERCULOSIS^GENITOURINARY
79 ;;MAMMARY^GYNECOLOGICAL
80 ;;MENTAL (NEC)^MENTAL
81 ;;MENTAL DISORDERS^MENTAL
82 ;;MISCELLANEOUS NEUROLOGICAL DISORDERS^NEUROLOGICAL
83 ;;MOUTH AND THROAT^ORGANS OF SENSE
84 ;;MUSCLES^ORTHOPEDIC
85 ;;MUSCULOSKELETAL (NEC)^ORTHOPEDIC
86 ;;NECK - NOT SPINAL CONDITION^ORTHOPEDIC
87 ;;NEPHRITIS, ALL FORMS EXCEPT CHRONIC PYELONEPHRITIS^NEPHROLOGICAL
88 ;;NEPHROLOGICAL^NEPHROLOGICAL
89 ;;NEPHROLOGICAL (NEC)^NEPHROLOGICAL
90 ;;NEUROLOGICAL (NEC)^NEUROLOGICAL
91 ;;NON-TUBERCULOSIS DISEASES AND INJURIES^PULMONARY
92 ;;NOSE AND SINUSES^ORGANS OF SENSE
93 ;;NOSE AND THROAT (PULMONARY)^PULMONARY
94 ;;ORGANS OF SENSE (NEC)^ORGANS OF SENSE
95 ;;OTHER GENITOURINARY^GENITOURINARY
96 ;;PERIPHERAL NERVES^NEUROLOGICAL
97 ;;PITUITARY TUMORS^ENDOCRINE
98 ;;POST-TRAUMATIC STRESS DISORDER^MENTAL
99 ;;PRISONER OF WAR^SPECIAL
100 ;;PULMONARY (NEC)^PULMONARY
101 ;;PULMONARY TUBERCULOSIS AND TUBERCULOSIS DISEASES^PULMONARY
102 ;;PYELITIS, NEPHROLITHIAIS, ETC.^GENITOURINARY
103 ;;RECTUM AND ANUS^DIGESTIVE
104 ;;REGULAR AID AND ATTENDANCE/HOUSEBOUND^SPECIAL
105 ;;RESPIRATORY MANIF. OF DISEASES OF OTHER SYSTEMS^PULMONARY
106 ;;SCARS^ORTHOPEDIC
107 ;;SCARS (BURN)^SKIN
108 ;;SCARS (SKIN)^SKIN
109 ;;SENSE OF SMELL^ORGANS OF SENSE
110 ;;SENSE OF TASTE^ORGANS OF SENSE
111 ;;SKIN (NEC)^SKIN
112 ;;SKIN (OTHER THAN SCARS)^SKIN
113 ;;SPINE^ORTHOPEDIC
114 ;;STOMACH^DIGESTIVE
115 ;;SYSTEMIC CONDITIONS^SYSTEMIC
116 ;;TESTES, TRAUMA OR DISEASE^GENITOURINARY
117 ;;TRACHEA AND BRONCHI^PULMONARY
118 ;;URETHRAL FISTULA^GENITOURINARY
119 ;;VISUAL^ORGANS OF SENSE
Note: See TracBrowser for help on using the repository browser.