- 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
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HAFJXUPD 998 printed Dec 13, 2024@02:17:55 Page 2
- AFJXUPD ;CIOFO-SF/AAA ;UPDATED FILE #537015 ;081299
- +1 ;;5.1;Network Health Exchange;**16**;Aug'99
- +2 NEW DIC,DD,D0
- +3 KILL ^AFJ(537015)
- +4 SET ^AFJ(537015,0)="VAMC NETWORK HEALTH TYPES^537015^0^0"
- +5 SET DIC="^AFJ(537015,"
- SET DIC(0)="L"
- +6 FOR I=1:1
- SET TEX=$TEXT(LABEL22+I)
- if TEX=""
- QUIT
- Begin DoDot:1
- +7 SET X=$PIECE(TEX,";;",2)
- +8 if $DATA(^AFJ(537015,"B",X))
- QUIT
- +9 DO ADD
- End DoDot:1
- +10 KILL DIC,D0,DD,X,I,TEX
- +11 QUIT
- ADD KILL DD,D0
- +1 DO FILE^DICN
- +2 QUIT
- LABEL22 ;;
- +1 ;;Demographics
- +2 ;;Admission/Discharge
- +3 ;;Discharges
- +4 ;;Disabilities
- +5 ;;ICD Procedures
- +6 ;;ICD Surgeries
- +7 ;;Fut Clinic Visits
- +8 ;;Past Clinic Visits
- +9 ;;Adv React/Allerg
- +10 ;;Dietetics
- +11 ;;Vital Signs
- +12 ;;Progress Notes
- +13 ;;Outpatient Pharmacy
- +14 ;;IV Pharmacy
- +15 ;;Unit Dose Pharmacy
- +16 ;;Blood Transfusions
- +17 ;;Chem & Hematology
- +18 ;;Microbiology
- +19 ;;Surgical Pathology
- +20 ;;Cytopathology
- +21 ;;Med (1 line) Summary
- +22 ;;Imaging Profile
- +23 ;;Imaging Status
- +24 ;;Surgery Rpt (OR/NON)
- +25 ;;Clinical Warnings
- +26 ;;Crisis Notes
- +27 ;;Discharge Summary
- +28 ;;Current Orders
- +29 ;;Comp. & Pen. Exams
- +30 ;;NON OR Procedures