47 lines
952 B
Mathematica
47 lines
952 B
Mathematica
AFJXUPD ;CIOFO-SF/AAA ;UPDATED FILE #537015 ;081299
|
|
;;5.1;Network Health Exchange;**16**;Aug'99
|
|
N DIC,DD,D0
|
|
K ^AFJ(537015)
|
|
S ^AFJ(537015,0)="VAMC NETWORK HEALTH TYPES^537015^0^0"
|
|
S DIC="^AFJ(537015,",DIC(0)="L"
|
|
F I=1:1 S TEX=$T(LABEL22+I) Q:TEX="" D
|
|
.S X=$P(TEX,";;",2)
|
|
.Q:$D(^AFJ(537015,"B",X))
|
|
.D ADD
|
|
K DIC,D0,DD,X,I,TEX
|
|
Q
|
|
ADD K DD,D0
|
|
D FILE^DICN
|
|
Q
|
|
LABEL22 ;;
|
|
;;Demographics
|
|
;;Admission/Discharge
|
|
;;Discharges
|
|
;;Disabilities
|
|
;;ICD Procedures
|
|
;;ICD Surgeries
|
|
;;Fut Clinic Visits
|
|
;;Past Clinic Visits
|
|
;;Adv React/Allerg
|
|
;;Dietetics
|
|
;;Vital Signs
|
|
;;Progress Notes
|
|
;;Outpatient Pharmacy
|
|
;;IV Pharmacy
|
|
;;Unit Dose Pharmacy
|
|
;;Blood Transfusions
|
|
;;Chem & Hematology
|
|
;;Microbiology
|
|
;;Surgical Pathology
|
|
;;Cytopathology
|
|
;;Med (1 line) Summary
|
|
;;Imaging Profile
|
|
;;Imaging Status
|
|
;;Surgery Rpt (OR/NON)
|
|
;;Clinical Warnings
|
|
;;Crisis Notes
|
|
;;Discharge Summary
|
|
;;Current Orders
|
|
;;Comp. & Pen. Exams
|
|
;;NON OR Procedures
|