IBDEI3ID ; ; 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,1121,0)
;;="B" MISC DIAGNOSIS^4^113
;;^UTILITY(U,$J,358.4,1122,0)
;;=BIPOLAR DISORDERS^5^113
;;^UTILITY(U,$J,358.4,1123,0)
;;=CANCER (NOT MELANOMA)^6^113
;;^UTILITY(U,$J,358.4,1124,0)
;;="C" MISC DIAGNOSIS^7^113
;;^UTILITY(U,$J,358.4,1125,0)
;;="D" MISC DIAGNOSIS^8^113
;;^UTILITY(U,$J,358.4,1126,0)
;;=DEMENTIA^9^113
;;^UTILITY(U,$J,358.4,1127,0)
;;=DEPRESSION^10^113
;;^UTILITY(U,$J,358.4,1128,0)
;;="E/F" MISC DIAGNOSIS^11^113
;;^UTILITY(U,$J,358.4,1129,0)
;;="G" MISC DIAGNOSIS^12^113
;;^UTILITY(U,$J,358.4,1130,0)
;;="H" MISC DIAGNOSIS^13^113
;;^UTILITY(U,$J,358.4,1131,0)
;;="I" MISC DIAGNOSIS^14^113
;;^UTILITY(U,$J,358.4,1132,0)
;;="J/K/L" MISC DIAGNOSIS^15^113
;;^UTILITY(U,$J,358.4,1133,0)
;;="M" MISC DIAGNOSIS^16^113
;;^UTILITY(U,$J,358.4,1134,0)
;;="N/O" MISC DIAGNOSIS^17^113
;;^UTILITY(U,$J,358.4,1135,0)
;;="P" MISC DIAGNOSIS^18^113
;;^UTILITY(U,$J,358.4,1136,0)
;;=PAIN^19^113
;;^UTILITY(U,$J,358.4,1137,0)
;;=PERSONALITY DISORDERS^20^113
;;^UTILITY(U,$J,358.4,1138,0)
;;="R" DIAGNOSIS^21^113
;;^UTILITY(U,$J,358.4,1139,0)
;;="S" DIAGNOSIS^22^113
;;^UTILITY(U,$J,358.4,1140,0)
;;=SCHIZOPHRENIC DISORDERS^23^113
;;^UTILITY(U,$J,358.4,1141,0)
;;=SCREENING^24^113
;;^UTILITY(U,$J,358.4,1142,0)
;;=SUBSTANCE ABUSE^25^113
;;^UTILITY(U,$J,358.4,1143,0)
;;=SYMPTOMS^26^113
;;^UTILITY(U,$J,358.4,1144,0)
;;="T/U" MISC DIAGNOSIS^27^113
;;^UTILITY(U,$J,358.4,1145,0)
;;="V/W/X/Y/Z" MISC DIAGNOSIS^28^113
;;^UTILITY(U,$J,358.4,1146,0)
;;=OTHER^29^113
;;^UTILITY(U,$J,358.4,1147,0)
;;=Z-CODES^30^113
;;^UTILITY(U,$J,358.4,1148,0)
;;=TELEHEALTH-SECONDARY ONLY^31^113
;;^UTILITY(U,$J,358.4,1149,0)
;;=DIABETES^7.5^113
;;^UTILITY(U,$J,358.4,1150,0)
;;=FACE-TO-FACE^1^114
;;^UTILITY(U,$J,358.4,1151,0)
;;=INTERVENTION^2^114
;;^UTILITY(U,$J,358.4,1152,0)
;;=CCHT VIDEO^4^114
;;^UTILITY(U,$J,358.4,1153,0)
;;=OTHER^5^115
;;^UTILITY(U,$J,358.4,1154,0)
;;=CARDIOLOGY/EKG^1^115
;;^UTILITY(U,$J,358.4,1155,0)
;;=HT EDUCATION^4^115
;;^UTILITY(U,$J,358.4,1156,0)
;;=HT MONTHLY MONITOR^3^115
;;^UTILITY(U,$J,358.4,1157,0)
;;=HT HOME VISIT^2^115
;;^UTILITY(U,$J,358.4,1158,0)
;;="A" MISC DIAGNOSIS^1^116
;;^UTILITY(U,$J,358.4,1159,0)
;;=ADJUSTMENT REACTION^2^116
;;^UTILITY(U,$J,358.4,1160,0)
;;=ANXIETY DISORDER^3^116
;;^UTILITY(U,$J,358.4,1161,0)
;;="B" MISC DIAGNOSIS^4^116
;;^UTILITY(U,$J,358.4,1162,0)
;;=BIPOLAR DISORDERS^5^116
;;^UTILITY(U,$J,358.4,1163,0)
;;=CANCER (NOT MELANOMA)^6^116
;;^UTILITY(U,$J,358.4,1164,0)
;;="C" MISC DIAGNOSIS^7^116
;;^UTILITY(U,$J,358.4,1165,0)
;;="D" MISC DIAGNOSIS^8^116
;;^UTILITY(U,$J,358.4,1166,0)
;;=DEMENTIA^9^116
;;^UTILITY(U,$J,358.4,1167,0)
;;=DEPRESSION^10^116
;;^UTILITY(U,$J,358.4,1168,0)
;;="E/F" MISC DIAGNOSIS^11^116
;;^UTILITY(U,$J,358.4,1169,0)
;;="G" MISC DIAGNOSIS^12^116
;;^UTILITY(U,$J,358.4,1170,0)
;;="H" MISC DIAGNOSIS^13^116
;;^UTILITY(U,$J,358.4,1171,0)
;;="I" MISC DIAGNOSIS^14^116
;;^UTILITY(U,$J,358.4,1172,0)
;;="J/K/L" MISC DIAGNOSIS^15^116
;;^UTILITY(U,$J,358.4,1173,0)
;;="M" MISC DIAGNOSIS^16^116
;;^UTILITY(U,$J,358.4,1174,0)
;;="N/O" MISC DIAGNOSIS^17^116
;;^UTILITY(U,$J,358.4,1175,0)
;;="P" MISC DIAGNOSIS^18^116
;;^UTILITY(U,$J,358.4,1176,0)
;;=PAIN^19^116
;;^UTILITY(U,$J,358.4,1177,0)
;;=PERSONALITY DISORDERS^20^116
;;^UTILITY(U,$J,358.4,1178,0)
;;="R" DIAGNOSIS^21^116
;;^UTILITY(U,$J,358.4,1179,0)
;;="S" DIAGNOSIS^22^116
;;^UTILITY(U,$J,358.4,1180,0)
;;=SCHIZOPHRENIC DISORDERS^23^116
;;^UTILITY(U,$J,358.4,1181,0)
;;=SCREENING^24^116
;;^UTILITY(U,$J,358.4,1182,0)
;;=SUBSTANCE ABUSE^25^116
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI3ID 3991 printed Sep 23, 2025@20:25:24 Page 2
IBDEI3ID ; ; 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,1121,0)
+2 ;;="B" MISC DIAGNOSIS^4^113
+3 ;;^UTILITY(U,$J,358.4,1122,0)
+4 ;;=BIPOLAR DISORDERS^5^113
+5 ;;^UTILITY(U,$J,358.4,1123,0)
+6 ;;=CANCER (NOT MELANOMA)^6^113
+7 ;;^UTILITY(U,$J,358.4,1124,0)
+8 ;;="C" MISC DIAGNOSIS^7^113
+9 ;;^UTILITY(U,$J,358.4,1125,0)
+10 ;;="D" MISC DIAGNOSIS^8^113
+11 ;;^UTILITY(U,$J,358.4,1126,0)
+12 ;;=DEMENTIA^9^113
+13 ;;^UTILITY(U,$J,358.4,1127,0)
+14 ;;=DEPRESSION^10^113
+15 ;;^UTILITY(U,$J,358.4,1128,0)
+16 ;;="E/F" MISC DIAGNOSIS^11^113
+17 ;;^UTILITY(U,$J,358.4,1129,0)
+18 ;;="G" MISC DIAGNOSIS^12^113
+19 ;;^UTILITY(U,$J,358.4,1130,0)
+20 ;;="H" MISC DIAGNOSIS^13^113
+21 ;;^UTILITY(U,$J,358.4,1131,0)
+22 ;;="I" MISC DIAGNOSIS^14^113
+23 ;;^UTILITY(U,$J,358.4,1132,0)
+24 ;;="J/K/L" MISC DIAGNOSIS^15^113
+25 ;;^UTILITY(U,$J,358.4,1133,0)
+26 ;;="M" MISC DIAGNOSIS^16^113
+27 ;;^UTILITY(U,$J,358.4,1134,0)
+28 ;;="N/O" MISC DIAGNOSIS^17^113
+29 ;;^UTILITY(U,$J,358.4,1135,0)
+30 ;;="P" MISC DIAGNOSIS^18^113
+31 ;;^UTILITY(U,$J,358.4,1136,0)
+32 ;;=PAIN^19^113
+33 ;;^UTILITY(U,$J,358.4,1137,0)
+34 ;;=PERSONALITY DISORDERS^20^113
+35 ;;^UTILITY(U,$J,358.4,1138,0)
+36 ;;="R" DIAGNOSIS^21^113
+37 ;;^UTILITY(U,$J,358.4,1139,0)
+38 ;;="S" DIAGNOSIS^22^113
+39 ;;^UTILITY(U,$J,358.4,1140,0)
+40 ;;=SCHIZOPHRENIC DISORDERS^23^113
+41 ;;^UTILITY(U,$J,358.4,1141,0)
+42 ;;=SCREENING^24^113
+43 ;;^UTILITY(U,$J,358.4,1142,0)
+44 ;;=SUBSTANCE ABUSE^25^113
+45 ;;^UTILITY(U,$J,358.4,1143,0)
+46 ;;=SYMPTOMS^26^113
+47 ;;^UTILITY(U,$J,358.4,1144,0)
+48 ;;="T/U" MISC DIAGNOSIS^27^113
+49 ;;^UTILITY(U,$J,358.4,1145,0)
+50 ;;="V/W/X/Y/Z" MISC DIAGNOSIS^28^113
+51 ;;^UTILITY(U,$J,358.4,1146,0)
+52 ;;=OTHER^29^113
+53 ;;^UTILITY(U,$J,358.4,1147,0)
+54 ;;=Z-CODES^30^113
+55 ;;^UTILITY(U,$J,358.4,1148,0)
+56 ;;=TELEHEALTH-SECONDARY ONLY^31^113
+57 ;;^UTILITY(U,$J,358.4,1149,0)
+58 ;;=DIABETES^7.5^113
+59 ;;^UTILITY(U,$J,358.4,1150,0)
+60 ;;=FACE-TO-FACE^1^114
+61 ;;^UTILITY(U,$J,358.4,1151,0)
+62 ;;=INTERVENTION^2^114
+63 ;;^UTILITY(U,$J,358.4,1152,0)
+64 ;;=CCHT VIDEO^4^114
+65 ;;^UTILITY(U,$J,358.4,1153,0)
+66 ;;=OTHER^5^115
+67 ;;^UTILITY(U,$J,358.4,1154,0)
+68 ;;=CARDIOLOGY/EKG^1^115
+69 ;;^UTILITY(U,$J,358.4,1155,0)
+70 ;;=HT EDUCATION^4^115
+71 ;;^UTILITY(U,$J,358.4,1156,0)
+72 ;;=HT MONTHLY MONITOR^3^115
+73 ;;^UTILITY(U,$J,358.4,1157,0)
+74 ;;=HT HOME VISIT^2^115
+75 ;;^UTILITY(U,$J,358.4,1158,0)
+76 ;;="A" MISC DIAGNOSIS^1^116
+77 ;;^UTILITY(U,$J,358.4,1159,0)
+78 ;;=ADJUSTMENT REACTION^2^116
+79 ;;^UTILITY(U,$J,358.4,1160,0)
+80 ;;=ANXIETY DISORDER^3^116
+81 ;;^UTILITY(U,$J,358.4,1161,0)
+82 ;;="B" MISC DIAGNOSIS^4^116
+83 ;;^UTILITY(U,$J,358.4,1162,0)
+84 ;;=BIPOLAR DISORDERS^5^116
+85 ;;^UTILITY(U,$J,358.4,1163,0)
+86 ;;=CANCER (NOT MELANOMA)^6^116
+87 ;;^UTILITY(U,$J,358.4,1164,0)
+88 ;;="C" MISC DIAGNOSIS^7^116
+89 ;;^UTILITY(U,$J,358.4,1165,0)
+90 ;;="D" MISC DIAGNOSIS^8^116
+91 ;;^UTILITY(U,$J,358.4,1166,0)
+92 ;;=DEMENTIA^9^116
+93 ;;^UTILITY(U,$J,358.4,1167,0)
+94 ;;=DEPRESSION^10^116
+95 ;;^UTILITY(U,$J,358.4,1168,0)
+96 ;;="E/F" MISC DIAGNOSIS^11^116
+97 ;;^UTILITY(U,$J,358.4,1169,0)
+98 ;;="G" MISC DIAGNOSIS^12^116
+99 ;;^UTILITY(U,$J,358.4,1170,0)
+100 ;;="H" MISC DIAGNOSIS^13^116
+101 ;;^UTILITY(U,$J,358.4,1171,0)
+102 ;;="I" MISC DIAGNOSIS^14^116
+103 ;;^UTILITY(U,$J,358.4,1172,0)
+104 ;;="J/K/L" MISC DIAGNOSIS^15^116
+105 ;;^UTILITY(U,$J,358.4,1173,0)
+106 ;;="M" MISC DIAGNOSIS^16^116
+107 ;;^UTILITY(U,$J,358.4,1174,0)
+108 ;;="N/O" MISC DIAGNOSIS^17^116
+109 ;;^UTILITY(U,$J,358.4,1175,0)
+110 ;;="P" MISC DIAGNOSIS^18^116
+111 ;;^UTILITY(U,$J,358.4,1176,0)
+112 ;;=PAIN^19^116
+113 ;;^UTILITY(U,$J,358.4,1177,0)
+114 ;;=PERSONALITY DISORDERS^20^116
+115 ;;^UTILITY(U,$J,358.4,1178,0)
+116 ;;="R" DIAGNOSIS^21^116
+117 ;;^UTILITY(U,$J,358.4,1179,0)
+118 ;;="S" DIAGNOSIS^22^116
+119 ;;^UTILITY(U,$J,358.4,1180,0)
+120 ;;=SCHIZOPHRENIC DISORDERS^23^116
+121 ;;^UTILITY(U,$J,358.4,1181,0)
+122 ;;=SCREENING^24^116
+123 ;;^UTILITY(U,$J,358.4,1182,0)
+124 ;;=SUBSTANCE ABUSE^25^116
