AFJXUPD.m

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 ---AFJXUPD   998     printed  Apr 09, 2024@21:20:54                                                                                                                                                                                                      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