Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: AFJXUPD

AFJXUPD.m

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