IBDEI1ME ; ; 01-FEB-2022
;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
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,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
Q Q
;;^UTILITY(U,$J,358.4,1061,0)
;;=INJECTION ADMINISTRATION^10^83
;;^UTILITY(U,$J,358.4,1062,0)
;;=EAR WAX REMOVAL^5^83
;;^UTILITY(U,$J,358.4,1063,0)
;;=CARDIAC^2^83
;;^UTILITY(U,$J,358.4,1064,0)
;;=FOREIGN BODY^8^83
;;^UTILITY(U,$J,358.4,1065,0)
;;=UA/FINGERSTICK^16^83
;;^UTILITY(U,$J,358.4,1066,0)
;;=FLUSHES^6^83
;;^UTILITY(U,$J,358.4,1067,0)
;;=TB TEST^15^83
;;^UTILITY(U,$J,358.4,1068,0)
;;=DRAIN/INJECT JOINT^4^83
;;^UTILITY(U,$J,358.4,1069,0)
;;=DESTRUCTION OF LESIONS^3^83
;;^UTILITY(U,$J,358.4,1070,0)
;;=IMMUNIZATIONS^9^83
;;^UTILITY(U,$J,358.4,1071,0)
;;=IMMUNIZATION ADMINISTRATION^8^83
;;^UTILITY(U,$J,358.4,1072,0)
;;=PREVENTIVE MED-EST PT^12^83
;;^UTILITY(U,$J,358.4,1073,0)
;;=PREVENTIVE MED-NEW PT^13^83
;;^UTILITY(U,$J,358.4,1074,0)
;;=PROLONGED SERVICES^14^83
;;^UTILITY(U,$J,358.4,1075,0)
;;=PRE-OP VISIT^1^84
;;^UTILITY(U,$J,358.4,1076,0)
;;=CONSULTATION-CLINICIAN^2^84
;;^UTILITY(U,$J,358.4,1077,0)
;;=POST-OP VISIT^4^84
;;^UTILITY(U,$J,358.4,1078,0)
;;=NEW PATIENT^3^84
;;^UTILITY(U,$J,358.4,1079,0)
;;=A DIAGNOSIS^1^85
;;^UTILITY(U,$J,358.4,1080,0)
;;=B DIAGNOSIS^2^85
;;^UTILITY(U,$J,358.4,1081,0)
;;=C DIAGNOSIS^3^85
;;^UTILITY(U,$J,358.4,1082,0)
;;=CANCER (NOT MELANOMA)^4^85
;;^UTILITY(U,$J,358.4,1083,0)
;;=D DIAGNOSIS^5^85
;;^UTILITY(U,$J,358.4,1084,0)
;;=E/F DIAGNOSIS^6^85
;;^UTILITY(U,$J,358.4,1085,0)
;;=G DIAGNOSIS^7^85
;;^UTILITY(U,$J,358.4,1086,0)
;;=H DIAGNOSIS^8^85
;;^UTILITY(U,$J,358.4,1087,0)
;;=I DIAGNOSIS^9^85
;;^UTILITY(U,$J,358.4,1088,0)
;;=J/K/L DIAGNOSIS^10^85
;;^UTILITY(U,$J,358.4,1089,0)
;;=M DIAGNOSIS^11^85
;;^UTILITY(U,$J,358.4,1090,0)
;;=N/O DIAGNOSIS^12^85
;;^UTILITY(U,$J,358.4,1091,0)
;;=P DIAGNOSIS^13^85
;;^UTILITY(U,$J,358.4,1092,0)
;;=R DIAGNOSIS^15^85
;;^UTILITY(U,$J,358.4,1093,0)
;;=S DIAGNOSIS^16^85
;;^UTILITY(U,$J,358.4,1094,0)
;;=T/U DIAGNOSIS^18^85
;;^UTILITY(U,$J,358.4,1095,0)
;;=V/W/X/Y/Z DIAGNOSIS^18^85
;;^UTILITY(U,$J,358.4,1096,0)
;;=PRE-OP,POST-OP,COUNSELING^14^85
;;^UTILITY(U,$J,358.4,1097,0)
;;=SUICIDE IDEATION/ATTEMPT^17^85
;;^UTILITY(U,$J,358.4,1098,0)
;;=NERVE BLOCK^13^86
;;^UTILITY(U,$J,358.4,1099,0)
;;=CATH^2^86
;;^UTILITY(U,$J,358.4,1100,0)
;;=CVA DEVICE^4^86
;;^UTILITY(U,$J,358.4,1101,0)
;;=EPIDURAL^5^86
;;^UTILITY(U,$J,358.4,1102,0)
;;=FOREARM/WRIST/HAND^6^86
;;^UTILITY(U,$J,358.4,1103,0)
;;=HEAD^6^86
;;^UTILITY(U,$J,358.4,1104,0)
;;=INTRATHORACIC^8^86
;;^UTILITY(U,$J,358.4,1105,0)
;;=IV^9^86
;;^UTILITY(U,$J,358.4,1106,0)
;;=LOWER ABDOMEN^10^86
;;^UTILITY(U,$J,358.4,1107,0)
;;=LOWER LEG^11^86
;;^UTILITY(U,$J,358.4,1108,0)
;;=NECK^12^86
;;^UTILITY(U,$J,358.4,1109,0)
;;=ARTERIAL^1^86
;;^UTILITY(U,$J,358.4,1110,0)
;;=OTHER^14^86
;;^UTILITY(U,$J,358.4,1111,0)
;;=PELVIS^15^86
;;^UTILITY(U,$J,358.4,1112,0)
;;=RADIOLOGICAL PROCEDURE^17^86
;;^UTILITY(U,$J,358.4,1113,0)
;;=SHOULDER/AXILLA^18^86
;;^UTILITY(U,$J,358.4,1114,0)
;;=SPINAL NERVES^19^86
;;^UTILITY(U,$J,358.4,1115,0)
;;=SPINE/SPINAL CORD^20^86
;;^UTILITY(U,$J,358.4,1116,0)
;;=TEE^22^86
;;^UTILITY(U,$J,358.4,1117,0)
;;=THORAX^23^86
;;^UTILITY(U,$J,358.4,1118,0)
;;=UPPER ABDOMEN^24^86
;;^UTILITY(U,$J,358.4,1119,0)
;;=UPPER ARM/ELBOW^25^86
;;^UTILITY(U,$J,358.4,1120,0)
;;=UPPER LEG^26^86
;;^UTILITY(U,$J,358.4,1121,0)
;;=CRITICAL CARE^3^86
;;^UTILITY(U,$J,358.4,1122,0)
;;=INJECT-SPINE^7^86
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI1ME 3754 printed Sep 23, 2025@19:47:33 Page 2
IBDEI1ME ; ; 01-FEB-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
+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,999)
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,1061,0)
+2 ;;=INJECTION ADMINISTRATION^10^83
+3 ;;^UTILITY(U,$J,358.4,1062,0)
+4 ;;=EAR WAX REMOVAL^5^83
+5 ;;^UTILITY(U,$J,358.4,1063,0)
+6 ;;=CARDIAC^2^83
+7 ;;^UTILITY(U,$J,358.4,1064,0)
+8 ;;=FOREIGN BODY^8^83
+9 ;;^UTILITY(U,$J,358.4,1065,0)
+10 ;;=UA/FINGERSTICK^16^83
+11 ;;^UTILITY(U,$J,358.4,1066,0)
+12 ;;=FLUSHES^6^83
+13 ;;^UTILITY(U,$J,358.4,1067,0)
+14 ;;=TB TEST^15^83
+15 ;;^UTILITY(U,$J,358.4,1068,0)
+16 ;;=DRAIN/INJECT JOINT^4^83
+17 ;;^UTILITY(U,$J,358.4,1069,0)
+18 ;;=DESTRUCTION OF LESIONS^3^83
+19 ;;^UTILITY(U,$J,358.4,1070,0)
+20 ;;=IMMUNIZATIONS^9^83
+21 ;;^UTILITY(U,$J,358.4,1071,0)
+22 ;;=IMMUNIZATION ADMINISTRATION^8^83
+23 ;;^UTILITY(U,$J,358.4,1072,0)
+24 ;;=PREVENTIVE MED-EST PT^12^83
+25 ;;^UTILITY(U,$J,358.4,1073,0)
+26 ;;=PREVENTIVE MED-NEW PT^13^83
+27 ;;^UTILITY(U,$J,358.4,1074,0)
+28 ;;=PROLONGED SERVICES^14^83
+29 ;;^UTILITY(U,$J,358.4,1075,0)
+30 ;;=PRE-OP VISIT^1^84
+31 ;;^UTILITY(U,$J,358.4,1076,0)
+32 ;;=CONSULTATION-CLINICIAN^2^84
+33 ;;^UTILITY(U,$J,358.4,1077,0)
+34 ;;=POST-OP VISIT^4^84
+35 ;;^UTILITY(U,$J,358.4,1078,0)
+36 ;;=NEW PATIENT^3^84
+37 ;;^UTILITY(U,$J,358.4,1079,0)
+38 ;;=A DIAGNOSIS^1^85
+39 ;;^UTILITY(U,$J,358.4,1080,0)
+40 ;;=B DIAGNOSIS^2^85
+41 ;;^UTILITY(U,$J,358.4,1081,0)
+42 ;;=C DIAGNOSIS^3^85
+43 ;;^UTILITY(U,$J,358.4,1082,0)
+44 ;;=CANCER (NOT MELANOMA)^4^85
+45 ;;^UTILITY(U,$J,358.4,1083,0)
+46 ;;=D DIAGNOSIS^5^85
+47 ;;^UTILITY(U,$J,358.4,1084,0)
+48 ;;=E/F DIAGNOSIS^6^85
+49 ;;^UTILITY(U,$J,358.4,1085,0)
+50 ;;=G DIAGNOSIS^7^85
+51 ;;^UTILITY(U,$J,358.4,1086,0)
+52 ;;=H DIAGNOSIS^8^85
+53 ;;^UTILITY(U,$J,358.4,1087,0)
+54 ;;=I DIAGNOSIS^9^85
+55 ;;^UTILITY(U,$J,358.4,1088,0)
+56 ;;=J/K/L DIAGNOSIS^10^85
+57 ;;^UTILITY(U,$J,358.4,1089,0)
+58 ;;=M DIAGNOSIS^11^85
+59 ;;^UTILITY(U,$J,358.4,1090,0)
+60 ;;=N/O DIAGNOSIS^12^85
+61 ;;^UTILITY(U,$J,358.4,1091,0)
+62 ;;=P DIAGNOSIS^13^85
+63 ;;^UTILITY(U,$J,358.4,1092,0)
+64 ;;=R DIAGNOSIS^15^85
+65 ;;^UTILITY(U,$J,358.4,1093,0)
+66 ;;=S DIAGNOSIS^16^85
+67 ;;^UTILITY(U,$J,358.4,1094,0)
+68 ;;=T/U DIAGNOSIS^18^85
+69 ;;^UTILITY(U,$J,358.4,1095,0)
+70 ;;=V/W/X/Y/Z DIAGNOSIS^18^85
+71 ;;^UTILITY(U,$J,358.4,1096,0)
+72 ;;=PRE-OP,POST-OP,COUNSELING^14^85
+73 ;;^UTILITY(U,$J,358.4,1097,0)
+74 ;;=SUICIDE IDEATION/ATTEMPT^17^85
+75 ;;^UTILITY(U,$J,358.4,1098,0)
+76 ;;=NERVE BLOCK^13^86
+77 ;;^UTILITY(U,$J,358.4,1099,0)
+78 ;;=CATH^2^86
+79 ;;^UTILITY(U,$J,358.4,1100,0)
+80 ;;=CVA DEVICE^4^86
+81 ;;^UTILITY(U,$J,358.4,1101,0)
+82 ;;=EPIDURAL^5^86
+83 ;;^UTILITY(U,$J,358.4,1102,0)
+84 ;;=FOREARM/WRIST/HAND^6^86
+85 ;;^UTILITY(U,$J,358.4,1103,0)
+86 ;;=HEAD^6^86
+87 ;;^UTILITY(U,$J,358.4,1104,0)
+88 ;;=INTRATHORACIC^8^86
+89 ;;^UTILITY(U,$J,358.4,1105,0)
+90 ;;=IV^9^86
+91 ;;^UTILITY(U,$J,358.4,1106,0)
+92 ;;=LOWER ABDOMEN^10^86
+93 ;;^UTILITY(U,$J,358.4,1107,0)
+94 ;;=LOWER LEG^11^86
+95 ;;^UTILITY(U,$J,358.4,1108,0)
+96 ;;=NECK^12^86
+97 ;;^UTILITY(U,$J,358.4,1109,0)
+98 ;;=ARTERIAL^1^86
+99 ;;^UTILITY(U,$J,358.4,1110,0)
+100 ;;=OTHER^14^86
+101 ;;^UTILITY(U,$J,358.4,1111,0)
+102 ;;=PELVIS^15^86
+103 ;;^UTILITY(U,$J,358.4,1112,0)
+104 ;;=RADIOLOGICAL PROCEDURE^17^86
+105 ;;^UTILITY(U,$J,358.4,1113,0)
+106 ;;=SHOULDER/AXILLA^18^86
+107 ;;^UTILITY(U,$J,358.4,1114,0)
+108 ;;=SPINAL NERVES^19^86
+109 ;;^UTILITY(U,$J,358.4,1115,0)
+110 ;;=SPINE/SPINAL CORD^20^86
+111 ;;^UTILITY(U,$J,358.4,1116,0)
+112 ;;=TEE^22^86
+113 ;;^UTILITY(U,$J,358.4,1117,0)
+114 ;;=THORAX^23^86
+115 ;;^UTILITY(U,$J,358.4,1118,0)
+116 ;;=UPPER ABDOMEN^24^86
+117 ;;^UTILITY(U,$J,358.4,1119,0)
+118 ;;=UPPER ARM/ELBOW^25^86
+119 ;;^UTILITY(U,$J,358.4,1120,0)
+120 ;;=UPPER LEG^26^86
+121 ;;^UTILITY(U,$J,358.4,1121,0)
+122 ;;=CRITICAL CARE^3^86
+123 ;;^UTILITY(U,$J,358.4,1122,0)
+124 ;;=INJECT-SPINE^7^86
