|
Last change
on this file since 628 was 628, checked in by George Lilly, 14 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
952 bytes
|
| Line | |
|---|
| 1 | AFJXUPD ;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
|
|---|
| 13 | ADD K DD,D0
|
|---|
| 14 | D FILE^DICN
|
|---|
| 15 | Q
|
|---|
| 16 | LABEL22 ;;
|
|---|
| 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.
