IBDEI3J6 ; ; 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,2849,0)
;;=COMMON VASCULAR DX^1^264
;;^UTILITY(U,$J,358.4,2850,0)
;;=ABDOMINAL PAIN^2^264
;;^UTILITY(U,$J,358.4,2851,0)
;;=AFTERCARE POST SURGERY^3^264
;;^UTILITY(U,$J,358.4,2852,0)
;;=CARDIOVASCULAR^4^264
;;^UTILITY(U,$J,358.4,2853,0)
;;=METASTATIC CANCER SITES^5^264
;;^UTILITY(U,$J,358.4,2854,0)
;;=POST-OP COMPLICATIONS^6^264
;;^UTILITY(U,$J,358.4,2855,0)
;;=RESPIRATORY^8^264
;;^UTILITY(U,$J,358.4,2856,0)
;;=SIGNS & SYMPTOMS^9^264
;;^UTILITY(U,$J,358.4,2857,0)
;;=PRE-OP^7^264
;;^UTILITY(U,$J,358.4,2858,0)
;;=NEW PATIENT^2^265
;;^UTILITY(U,$J,358.4,2859,0)
;;=ESTABLISHED PATIENT^1^265
;;^UTILITY(U,$J,358.4,2860,0)
;;=CONSULTATIONS^3^265
;;^UTILITY(U,$J,358.4,2861,0)
;;=POST-OP F/U VISIT^5^265
;;^UTILITY(U,$J,358.4,2862,0)
;;=GYN PROCEDURES^1^266
;;^UTILITY(U,$J,358.4,2863,0)
;;=INJECTIONS^11^266
;;^UTILITY(U,$J,358.4,2864,0)
;;=INJECTION ADMINISTRATION^10^266
;;^UTILITY(U,$J,358.4,2865,0)
;;=EAR WAX REMOVAL^5^266
;;^UTILITY(U,$J,358.4,2866,0)
;;=CARDIAC^2^266
;;^UTILITY(U,$J,358.4,2867,0)
;;=FOREIGN BODY^8^266
;;^UTILITY(U,$J,358.4,2868,0)
;;=UA/FINGERSTICK^15^266
;;^UTILITY(U,$J,358.4,2869,0)
;;=FLUSHES^6^266
;;^UTILITY(U,$J,358.4,2870,0)
;;=TB TEST^14^266
;;^UTILITY(U,$J,358.4,2871,0)
;;=DRAIN/INJECT JOINT^4^266
;;^UTILITY(U,$J,358.4,2872,0)
;;=DESTRUCTION OF LESIONS^3^266
;;^UTILITY(U,$J,358.4,2873,0)
;;=IMMUNIZATIONS^9^266
;;^UTILITY(U,$J,358.4,2874,0)
;;=IMMUNIZATION ADMINISTRATION^8^266
;;^UTILITY(U,$J,358.4,2875,0)
;;=PREVENTIVE MED-EST PT^12^266
;;^UTILITY(U,$J,358.4,2876,0)
;;=PREVENTIVE MED-NEW PT^13^266
;;^UTILITY(U,$J,358.4,2877,0)
;;=GENITOURINARY & RENAL^5^267
;;^UTILITY(U,$J,358.4,2878,0)
;;=GYNECOLOGICAL/BREAST^6^267
;;^UTILITY(U,$J,358.4,2879,0)
;;=CARDIO/VASCULAR^1^267
;;^UTILITY(U,$J,358.4,2880,0)
;;=ENDOCRINE/METABOLIC/NUTRITION^2^267
;;^UTILITY(U,$J,358.4,2881,0)
;;=EYES/EARS/NOSE^3^267
;;^UTILITY(U,$J,358.4,2882,0)
;;=GASTROINTESTINAL^4^267
;;^UTILITY(U,$J,358.4,2883,0)
;;=MUSCULOSKELETAL^9^267
;;^UTILITY(U,$J,358.4,2884,0)
;;=NEUROLOGY^10^267
;;^UTILITY(U,$J,358.4,2885,0)
;;=PULMONARY^11^267
;;^UTILITY(U,$J,358.4,2886,0)
;;=PSYCHIATRIC^12^267
;;^UTILITY(U,$J,358.4,2887,0)
;;=SKIN^13^267
;;^UTILITY(U,$J,358.4,2888,0)
;;=IMMUNIZATIONS^7^267
;;^UTILITY(U,$J,358.4,2889,0)
;;=MISCELLANEOUS^8^267
;;^UTILITY(U,$J,358.4,2890,0)
;;=WOUND OSTOMY CARE^1^268
;;^UTILITY(U,$J,358.4,2891,0)
;;=NEW PATIENT^2^269
;;^UTILITY(U,$J,358.4,2892,0)
;;=ESTABLISHED PATIENT^1^269
;;^UTILITY(U,$J,358.4,2893,0)
;;=CONSULTATIONS^3^269
;;^UTILITY(U,$J,358.4,2894,0)
;;=WOUNDS^1^270
;;^UTILITY(U,$J,358.4,2895,0)
;;=ARTIFICIAL OPENING^2^270
;;^UTILITY(U,$J,358.4,2896,0)
;;=DIABETES^3^270
;;^UTILITY(U,$J,358.4,2897,0)
;;=PRESSURE ULCER^4^270
;;^UTILITY(U,$J,358.4,2898,0)
;;=SUTURE/DRESSING^5^270
;;^UTILITY(U,$J,358.4,2899,0)
;;=TELERETINAL PROCEDURES^1^271
;;^UTILITY(U,$J,358.4,2900,0)
;;=ANTERIOR SEGMENT^2^272
;;^UTILITY(U,$J,358.4,2901,0)
;;=GLAUCOMA^4^272
;;^UTILITY(U,$J,358.4,2902,0)
;;=INFECTIONS^5^272
;;^UTILITY(U,$J,358.4,2903,0)
;;=LENS/CATARACT^6^272
;;^UTILITY(U,$J,358.4,2904,0)
;;=LOW VISION/BLINDNESS^7^272
;;^UTILITY(U,$J,358.4,2905,0)
;;=DIABETES^3^272
;;^UTILITY(U,$J,358.4,2906,0)
;;=MOST COMMON & POST OP^1^272
;;^UTILITY(U,$J,358.4,2907,0)
;;=NEUROLOGIC EYE DISEASE^8^272
;;^UTILITY(U,$J,358.4,2908,0)
;;=ORBIT/EYELID/LACRIMAL^9^272
;;^UTILITY(U,$J,358.4,2909,0)
;;=REFRACTION^10^272
;;^UTILITY(U,$J,358.4,2910,0)
;;=RETINA/VITREOUS^11^272
;;^UTILITY(U,$J,358.4,2911,0)
;;=STRABISMUS^12^272
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI3J6 3983 printed Sep 23, 2025@20:25:51 Page 2
IBDEI3J6 ; ; 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,2849,0)
+2 ;;=COMMON VASCULAR DX^1^264
+3 ;;^UTILITY(U,$J,358.4,2850,0)
+4 ;;=ABDOMINAL PAIN^2^264
+5 ;;^UTILITY(U,$J,358.4,2851,0)
+6 ;;=AFTERCARE POST SURGERY^3^264
+7 ;;^UTILITY(U,$J,358.4,2852,0)
+8 ;;=CARDIOVASCULAR^4^264
+9 ;;^UTILITY(U,$J,358.4,2853,0)
+10 ;;=METASTATIC CANCER SITES^5^264
+11 ;;^UTILITY(U,$J,358.4,2854,0)
+12 ;;=POST-OP COMPLICATIONS^6^264
+13 ;;^UTILITY(U,$J,358.4,2855,0)
+14 ;;=RESPIRATORY^8^264
+15 ;;^UTILITY(U,$J,358.4,2856,0)
+16 ;;=SIGNS & SYMPTOMS^9^264
+17 ;;^UTILITY(U,$J,358.4,2857,0)
+18 ;;=PRE-OP^7^264
+19 ;;^UTILITY(U,$J,358.4,2858,0)
+20 ;;=NEW PATIENT^2^265
+21 ;;^UTILITY(U,$J,358.4,2859,0)
+22 ;;=ESTABLISHED PATIENT^1^265
+23 ;;^UTILITY(U,$J,358.4,2860,0)
+24 ;;=CONSULTATIONS^3^265
+25 ;;^UTILITY(U,$J,358.4,2861,0)
+26 ;;=POST-OP F/U VISIT^5^265
+27 ;;^UTILITY(U,$J,358.4,2862,0)
+28 ;;=GYN PROCEDURES^1^266
+29 ;;^UTILITY(U,$J,358.4,2863,0)
+30 ;;=INJECTIONS^11^266
+31 ;;^UTILITY(U,$J,358.4,2864,0)
+32 ;;=INJECTION ADMINISTRATION^10^266
+33 ;;^UTILITY(U,$J,358.4,2865,0)
+34 ;;=EAR WAX REMOVAL^5^266
+35 ;;^UTILITY(U,$J,358.4,2866,0)
+36 ;;=CARDIAC^2^266
+37 ;;^UTILITY(U,$J,358.4,2867,0)
+38 ;;=FOREIGN BODY^8^266
+39 ;;^UTILITY(U,$J,358.4,2868,0)
+40 ;;=UA/FINGERSTICK^15^266
+41 ;;^UTILITY(U,$J,358.4,2869,0)
+42 ;;=FLUSHES^6^266
+43 ;;^UTILITY(U,$J,358.4,2870,0)
+44 ;;=TB TEST^14^266
+45 ;;^UTILITY(U,$J,358.4,2871,0)
+46 ;;=DRAIN/INJECT JOINT^4^266
+47 ;;^UTILITY(U,$J,358.4,2872,0)
+48 ;;=DESTRUCTION OF LESIONS^3^266
+49 ;;^UTILITY(U,$J,358.4,2873,0)
+50 ;;=IMMUNIZATIONS^9^266
+51 ;;^UTILITY(U,$J,358.4,2874,0)
+52 ;;=IMMUNIZATION ADMINISTRATION^8^266
+53 ;;^UTILITY(U,$J,358.4,2875,0)
+54 ;;=PREVENTIVE MED-EST PT^12^266
+55 ;;^UTILITY(U,$J,358.4,2876,0)
+56 ;;=PREVENTIVE MED-NEW PT^13^266
+57 ;;^UTILITY(U,$J,358.4,2877,0)
+58 ;;=GENITOURINARY & RENAL^5^267
+59 ;;^UTILITY(U,$J,358.4,2878,0)
+60 ;;=GYNECOLOGICAL/BREAST^6^267
+61 ;;^UTILITY(U,$J,358.4,2879,0)
+62 ;;=CARDIO/VASCULAR^1^267
+63 ;;^UTILITY(U,$J,358.4,2880,0)
+64 ;;=ENDOCRINE/METABOLIC/NUTRITION^2^267
+65 ;;^UTILITY(U,$J,358.4,2881,0)
+66 ;;=EYES/EARS/NOSE^3^267
+67 ;;^UTILITY(U,$J,358.4,2882,0)
+68 ;;=GASTROINTESTINAL^4^267
+69 ;;^UTILITY(U,$J,358.4,2883,0)
+70 ;;=MUSCULOSKELETAL^9^267
+71 ;;^UTILITY(U,$J,358.4,2884,0)
+72 ;;=NEUROLOGY^10^267
+73 ;;^UTILITY(U,$J,358.4,2885,0)
+74 ;;=PULMONARY^11^267
+75 ;;^UTILITY(U,$J,358.4,2886,0)
+76 ;;=PSYCHIATRIC^12^267
+77 ;;^UTILITY(U,$J,358.4,2887,0)
+78 ;;=SKIN^13^267
+79 ;;^UTILITY(U,$J,358.4,2888,0)
+80 ;;=IMMUNIZATIONS^7^267
+81 ;;^UTILITY(U,$J,358.4,2889,0)
+82 ;;=MISCELLANEOUS^8^267
+83 ;;^UTILITY(U,$J,358.4,2890,0)
+84 ;;=WOUND OSTOMY CARE^1^268
+85 ;;^UTILITY(U,$J,358.4,2891,0)
+86 ;;=NEW PATIENT^2^269
+87 ;;^UTILITY(U,$J,358.4,2892,0)
+88 ;;=ESTABLISHED PATIENT^1^269
+89 ;;^UTILITY(U,$J,358.4,2893,0)
+90 ;;=CONSULTATIONS^3^269
+91 ;;^UTILITY(U,$J,358.4,2894,0)
+92 ;;=WOUNDS^1^270
+93 ;;^UTILITY(U,$J,358.4,2895,0)
+94 ;;=ARTIFICIAL OPENING^2^270
+95 ;;^UTILITY(U,$J,358.4,2896,0)
+96 ;;=DIABETES^3^270
+97 ;;^UTILITY(U,$J,358.4,2897,0)
+98 ;;=PRESSURE ULCER^4^270
+99 ;;^UTILITY(U,$J,358.4,2898,0)
+100 ;;=SUTURE/DRESSING^5^270
+101 ;;^UTILITY(U,$J,358.4,2899,0)
+102 ;;=TELERETINAL PROCEDURES^1^271
+103 ;;^UTILITY(U,$J,358.4,2900,0)
+104 ;;=ANTERIOR SEGMENT^2^272
+105 ;;^UTILITY(U,$J,358.4,2901,0)
+106 ;;=GLAUCOMA^4^272
+107 ;;^UTILITY(U,$J,358.4,2902,0)
+108 ;;=INFECTIONS^5^272
+109 ;;^UTILITY(U,$J,358.4,2903,0)
+110 ;;=LENS/CATARACT^6^272
+111 ;;^UTILITY(U,$J,358.4,2904,0)
+112 ;;=LOW VISION/BLINDNESS^7^272
+113 ;;^UTILITY(U,$J,358.4,2905,0)
+114 ;;=DIABETES^3^272
+115 ;;^UTILITY(U,$J,358.4,2906,0)
+116 ;;=MOST COMMON & POST OP^1^272
+117 ;;^UTILITY(U,$J,358.4,2907,0)
+118 ;;=NEUROLOGIC EYE DISEASE^8^272
+119 ;;^UTILITY(U,$J,358.4,2908,0)
+120 ;;=ORBIT/EYELID/LACRIMAL^9^272
+121 ;;^UTILITY(U,$J,358.4,2909,0)
+122 ;;=REFRACTION^10^272
+123 ;;^UTILITY(U,$J,358.4,2910,0)
+124 ;;=RETINA/VITREOUS^11^272
+125 ;;^UTILITY(U,$J,358.4,2911,0)
+126 ;;=STRABISMUS^12^272
