IBDEI3I8 ; ; 19-NOV-2015
;;3.0;IB ENCOUNTER FORM IMP/EXP;;JUN 29, 2015
Q:'DIFQR(358.4) F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
Q Q
;;^UTILITY(U,$J,358.4,817,0)
;;=OPEN WOUND^26^85
;;^UTILITY(U,$J,358.4,818,0)
;;=ORTHO^27^85
;;^UTILITY(U,$J,358.4,819,0)
;;=OTHER INJURY^28^85
;;^UTILITY(U,$J,358.4,820,0)
;;=PAIN IN EXTREMITIES^29^85
;;^UTILITY(U,$J,358.4,821,0)
;;=PLASTIC SURGERY^30^85
;;^UTILITY(U,$J,358.4,822,0)
;;=POSTPROCEDURAL COMPLICATION^31^85
;;^UTILITY(U,$J,358.4,823,0)
;;=RESPIRATORY^34^85
;;^UTILITY(U,$J,358.4,824,0)
;;=TRIGGER FINGER^35^85
;;^UTILITY(U,$J,358.4,825,0)
;;=ULCER^36^85
;;^UTILITY(U,$J,358.4,826,0)
;;=UROLOGY^37^85
;;^UTILITY(U,$J,358.4,827,0)
;;=VARICOSE VEINS^38^85
;;^UTILITY(U,$J,358.4,828,0)
;;=INTRAOPERATIVE COMPLICATIONS^21^85
;;^UTILITY(U,$J,358.4,829,0)
;;=BITE^4^85
;;^UTILITY(U,$J,358.4,830,0)
;;=PUNCTURE WOUND^33^85
;;^UTILITY(U,$J,358.4,831,0)
;;=PREOPERATIVE EXAMS^32^85
;;^UTILITY(U,$J,358.4,832,0)
;;=NEW PATIENT^2^86
;;^UTILITY(U,$J,358.4,833,0)
;;=ESTABLISHED PATIENT^1^86
;;^UTILITY(U,$J,358.4,834,0)
;;=CONSULTATIONS^3^86
;;^UTILITY(U,$J,358.4,835,0)
;;=COMPREHENSIVE ASSESSMENT/TREATMENT^2^87
;;^UTILITY(U,$J,358.4,836,0)
;;=VACCINE ADMINISTRATION^5^87
;;^UTILITY(U,$J,358.4,837,0)
;;=INJECTION ADMINISTRATION^3^87
;;^UTILITY(U,$J,358.4,838,0)
;;=INJECTIONS-DRUGS/MEDICATIONS^4^87
;;^UTILITY(U,$J,358.4,839,0)
;;=VACCINES^6^87
;;^UTILITY(U,$J,358.4,840,0)
;;=ADVANCED CARE PLANNING^1^87
;;^UTILITY(U,$J,358.4,841,0)
;;=DEMENTIA/COGNITIVE^6^88
;;^UTILITY(U,$J,358.4,842,0)
;;=MENTAL HEALTH^18^88
;;^UTILITY(U,$J,358.4,843,0)
;;=ABDOMINAL/GASTRO/DIGESTIVE^1^88
;;^UTILITY(U,$J,358.4,844,0)
;;=ANEMIA/BLOOD^2^88
;;^UTILITY(U,$J,358.4,845,0)
;;=BREAST/SKIN/HAIR/NAIL/SOFT TISSUE^3^88
;;^UTILITY(U,$J,358.4,846,0)
;;=CANCER^4^88
;;^UTILITY(U,$J,358.4,847,0)
;;=CARDIO/VASCULAR^5^88
;;^UTILITY(U,$J,358.4,848,0)
;;=EAR/HEARING^7^88
;;^UTILITY(U,$J,358.4,849,0)
;;=EAR/HEARING-VESTIBULAR FUNCTION^8^88
;;^UTILITY(U,$J,358.4,850,0)
;;=ENDOCRINE/METABOLIC/NUTRITIONAL^9^88
;;^UTILITY(U,$J,358.4,851,0)
;;=EYE/VISION DISORDERS^10^88
;;^UTILITY(U,$J,358.4,852,0)
;;=FALLS-INITIAL^11^88
;;^UTILITY(U,$J,358.4,853,0)
;;=GENITOURINARY^15^88
;;^UTILITY(U,$J,358.4,854,0)
;;=INFECTION^16^88
;;^UTILITY(U,$J,358.4,855,0)
;;=KIDNEY/RENAL^17^88
;;^UTILITY(U,$J,358.4,856,0)
;;=MUSCULOSKELETAL/CONNECTIVE TISSUE^19^88
;;^UTILITY(U,$J,358.4,857,0)
;;=NEUROLOGICAL/CEREBROVASCULAR^20^88
;;^UTILITY(U,$J,358.4,858,0)
;;=PAIN^21^88
;;^UTILITY(U,$J,358.4,859,0)
;;=PULMONARY/RESPIRATORY^22^88
;;^UTILITY(U,$J,358.4,860,0)
;;=SLEEP DISORDERS^23^88
;;^UTILITY(U,$J,358.4,861,0)
;;=SYMPTOMS/OTHER CONDITIONS^24^88
;;^UTILITY(U,$J,358.4,862,0)
;;=FALLS-SEQUELA^12^88
;;^UTILITY(U,$J,358.4,863,0)
;;=FALLS-SUBSEQUENT^13^88
;;^UTILITY(U,$J,358.4,864,0)
;;=FUNCTION/GAIT/MOBILITY^14^88
;;^UTILITY(U,$J,358.4,865,0)
;;=NEW PATIENT^2^89
;;^UTILITY(U,$J,358.4,866,0)
;;=ESTABLISHED PATIENT^1^89
;;^UTILITY(U,$J,358.4,867,0)
;;=CONSULTATIONS^3^89
;;^UTILITY(U,$J,358.4,868,0)
;;=POST-OP FOLLOW-UP^4^89
;;^UTILITY(U,$J,358.4,869,0)
;;=ESOPHAGUS^4^90
;;^UTILITY(U,$J,358.4,870,0)
;;=SMALL INTESTINE ENDOSCOPY^11^90
;;^UTILITY(U,$J,358.4,871,0)
;;=SIGMOIDOSCOPY/PROCTOSIGMOIDOSCOPY^10^90
;;^UTILITY(U,$J,358.4,872,0)
;;=COLONOSCOPY^1^90
;;^UTILITY(U,$J,358.4,873,0)
;;=ERCP^2^90
;;^UTILITY(U,$J,358.4,874,0)
;;=G-TUBE^6^90
;;^UTILITY(U,$J,358.4,875,0)
;;=MISCELLANEOUS-PROCEDURES^9^90
;;^UTILITY(U,$J,358.4,876,0)
;;=IMMUNIZATIONS/INJECTIONS^7^90
;;^UTILITY(U,$J,358.4,877,0)
;;=ESOPHAGEAL MANOMETRY^3^90
;;^UTILITY(U,$J,358.4,878,0)
;;=FECAL PREP^5^90
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI3I8 3940 printed Dec 13, 2024@02:49:17 Page 2
IBDEI3I8 ; ; 19-NOV-2015
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;JUN 29, 2015
+2 if 'DIFQR(358.4)
QUIT
FOR I=1:2
SET X=$TEXT(Q+I)
if X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
if $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)
if $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,358.4,817,0)
+2 ;;=OPEN WOUND^26^85
+3 ;;^UTILITY(U,$J,358.4,818,0)
+4 ;;=ORTHO^27^85
+5 ;;^UTILITY(U,$J,358.4,819,0)
+6 ;;=OTHER INJURY^28^85
+7 ;;^UTILITY(U,$J,358.4,820,0)
+8 ;;=PAIN IN EXTREMITIES^29^85
+9 ;;^UTILITY(U,$J,358.4,821,0)
+10 ;;=PLASTIC SURGERY^30^85
+11 ;;^UTILITY(U,$J,358.4,822,0)
+12 ;;=POSTPROCEDURAL COMPLICATION^31^85
+13 ;;^UTILITY(U,$J,358.4,823,0)
+14 ;;=RESPIRATORY^34^85
+15 ;;^UTILITY(U,$J,358.4,824,0)
+16 ;;=TRIGGER FINGER^35^85
+17 ;;^UTILITY(U,$J,358.4,825,0)
+18 ;;=ULCER^36^85
+19 ;;^UTILITY(U,$J,358.4,826,0)
+20 ;;=UROLOGY^37^85
+21 ;;^UTILITY(U,$J,358.4,827,0)
+22 ;;=VARICOSE VEINS^38^85
+23 ;;^UTILITY(U,$J,358.4,828,0)
+24 ;;=INTRAOPERATIVE COMPLICATIONS^21^85
+25 ;;^UTILITY(U,$J,358.4,829,0)
+26 ;;=BITE^4^85
+27 ;;^UTILITY(U,$J,358.4,830,0)
+28 ;;=PUNCTURE WOUND^33^85
+29 ;;^UTILITY(U,$J,358.4,831,0)
+30 ;;=PREOPERATIVE EXAMS^32^85
+31 ;;^UTILITY(U,$J,358.4,832,0)
+32 ;;=NEW PATIENT^2^86
+33 ;;^UTILITY(U,$J,358.4,833,0)
+34 ;;=ESTABLISHED PATIENT^1^86
+35 ;;^UTILITY(U,$J,358.4,834,0)
+36 ;;=CONSULTATIONS^3^86
+37 ;;^UTILITY(U,$J,358.4,835,0)
+38 ;;=COMPREHENSIVE ASSESSMENT/TREATMENT^2^87
+39 ;;^UTILITY(U,$J,358.4,836,0)
+40 ;;=VACCINE ADMINISTRATION^5^87
+41 ;;^UTILITY(U,$J,358.4,837,0)
+42 ;;=INJECTION ADMINISTRATION^3^87
+43 ;;^UTILITY(U,$J,358.4,838,0)
+44 ;;=INJECTIONS-DRUGS/MEDICATIONS^4^87
+45 ;;^UTILITY(U,$J,358.4,839,0)
+46 ;;=VACCINES^6^87
+47 ;;^UTILITY(U,$J,358.4,840,0)
+48 ;;=ADVANCED CARE PLANNING^1^87
+49 ;;^UTILITY(U,$J,358.4,841,0)
+50 ;;=DEMENTIA/COGNITIVE^6^88
+51 ;;^UTILITY(U,$J,358.4,842,0)
+52 ;;=MENTAL HEALTH^18^88
+53 ;;^UTILITY(U,$J,358.4,843,0)
+54 ;;=ABDOMINAL/GASTRO/DIGESTIVE^1^88
+55 ;;^UTILITY(U,$J,358.4,844,0)
+56 ;;=ANEMIA/BLOOD^2^88
+57 ;;^UTILITY(U,$J,358.4,845,0)
+58 ;;=BREAST/SKIN/HAIR/NAIL/SOFT TISSUE^3^88
+59 ;;^UTILITY(U,$J,358.4,846,0)
+60 ;;=CANCER^4^88
+61 ;;^UTILITY(U,$J,358.4,847,0)
+62 ;;=CARDIO/VASCULAR^5^88
+63 ;;^UTILITY(U,$J,358.4,848,0)
+64 ;;=EAR/HEARING^7^88
+65 ;;^UTILITY(U,$J,358.4,849,0)
+66 ;;=EAR/HEARING-VESTIBULAR FUNCTION^8^88
+67 ;;^UTILITY(U,$J,358.4,850,0)
+68 ;;=ENDOCRINE/METABOLIC/NUTRITIONAL^9^88
+69 ;;^UTILITY(U,$J,358.4,851,0)
+70 ;;=EYE/VISION DISORDERS^10^88
+71 ;;^UTILITY(U,$J,358.4,852,0)
+72 ;;=FALLS-INITIAL^11^88
+73 ;;^UTILITY(U,$J,358.4,853,0)
+74 ;;=GENITOURINARY^15^88
+75 ;;^UTILITY(U,$J,358.4,854,0)
+76 ;;=INFECTION^16^88
+77 ;;^UTILITY(U,$J,358.4,855,0)
+78 ;;=KIDNEY/RENAL^17^88
+79 ;;^UTILITY(U,$J,358.4,856,0)
+80 ;;=MUSCULOSKELETAL/CONNECTIVE TISSUE^19^88
+81 ;;^UTILITY(U,$J,358.4,857,0)
+82 ;;=NEUROLOGICAL/CEREBROVASCULAR^20^88
+83 ;;^UTILITY(U,$J,358.4,858,0)
+84 ;;=PAIN^21^88
+85 ;;^UTILITY(U,$J,358.4,859,0)
+86 ;;=PULMONARY/RESPIRATORY^22^88
+87 ;;^UTILITY(U,$J,358.4,860,0)
+88 ;;=SLEEP DISORDERS^23^88
+89 ;;^UTILITY(U,$J,358.4,861,0)
+90 ;;=SYMPTOMS/OTHER CONDITIONS^24^88
+91 ;;^UTILITY(U,$J,358.4,862,0)
+92 ;;=FALLS-SEQUELA^12^88
+93 ;;^UTILITY(U,$J,358.4,863,0)
+94 ;;=FALLS-SUBSEQUENT^13^88
+95 ;;^UTILITY(U,$J,358.4,864,0)
+96 ;;=FUNCTION/GAIT/MOBILITY^14^88
+97 ;;^UTILITY(U,$J,358.4,865,0)
+98 ;;=NEW PATIENT^2^89
+99 ;;^UTILITY(U,$J,358.4,866,0)
+100 ;;=ESTABLISHED PATIENT^1^89
+101 ;;^UTILITY(U,$J,358.4,867,0)
+102 ;;=CONSULTATIONS^3^89
+103 ;;^UTILITY(U,$J,358.4,868,0)
+104 ;;=POST-OP FOLLOW-UP^4^89
+105 ;;^UTILITY(U,$J,358.4,869,0)
+106 ;;=ESOPHAGUS^4^90
+107 ;;^UTILITY(U,$J,358.4,870,0)
+108 ;;=SMALL INTESTINE ENDOSCOPY^11^90
+109 ;;^UTILITY(U,$J,358.4,871,0)
+110 ;;=SIGMOIDOSCOPY/PROCTOSIGMOIDOSCOPY^10^90
+111 ;;^UTILITY(U,$J,358.4,872,0)
+112 ;;=COLONOSCOPY^1^90
+113 ;;^UTILITY(U,$J,358.4,873,0)
+114 ;;=ERCP^2^90
+115 ;;^UTILITY(U,$J,358.4,874,0)
+116 ;;=G-TUBE^6^90
+117 ;;^UTILITY(U,$J,358.4,875,0)
+118 ;;=MISCELLANEOUS-PROCEDURES^9^90
+119 ;;^UTILITY(U,$J,358.4,876,0)
+120 ;;=IMMUNIZATIONS/INJECTIONS^7^90
+121 ;;^UTILITY(U,$J,358.4,877,0)
+122 ;;=ESOPHAGEAL MANOMETRY^3^90
+123 ;;^UTILITY(U,$J,358.4,878,0)
+124 ;;=FECAL PREP^5^90
