source: FOIAVistA/trunk/r/NETWORK_HEALTH_EXCHANGE-AFJX/AFJXUPD.m@ 1166

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

initial load of FOIAVistA 6/30/08 version

File size: 952 bytes
Line 
1AFJXUPD ;CIOFO-SF/AAA ;UPDATED FILE #537015 ;081299
2 ;;5.1;Network Health Exchange;**16**;Aug'99
3 N DIC,DD,D0
4 K ^AFJ(537015)
5 S ^AFJ(537015,0)="VAMC NETWORK HEALTH TYPES^537015^0^0"
6 S DIC="^AFJ(537015,",DIC(0)="L"
7 F I=1:1 S TEX=$T(LABEL22+I) Q:TEX="" D
8 .S X=$P(TEX,";;",2)
9 .Q:$D(^AFJ(537015,"B",X))
10 .D ADD
11 K DIC,D0,DD,X,I,TEX
12 Q
13ADD K DD,D0
14 D FILE^DICN
15 Q
16LABEL22 ;;
17 ;;Demographics
18 ;;Admission/Discharge
19 ;;Discharges
20 ;;Disabilities
21 ;;ICD Procedures
22 ;;ICD Surgeries
23 ;;Fut Clinic Visits
24 ;;Past Clinic Visits
25 ;;Adv React/Allerg
26 ;;Dietetics
27 ;;Vital Signs
28 ;;Progress Notes
29 ;;Outpatient Pharmacy
30 ;;IV Pharmacy
31 ;;Unit Dose Pharmacy
32 ;;Blood Transfusions
33 ;;Chem & Hematology
34 ;;Microbiology
35 ;;Surgical Pathology
36 ;;Cytopathology
37 ;;Med (1 line) Summary
38 ;;Imaging Profile
39 ;;Imaging Status
40 ;;Surgery Rpt (OR/NON)
41 ;;Clinical Warnings
42 ;;Crisis Notes
43 ;;Discharge Summary
44 ;;Current Orders
45 ;;Comp. & Pen. Exams
46 ;;NON OR Procedures
Note: See TracBrowser for help on using the repository browser.