IBDEI3BB ; ; 04-FEB-2020
;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
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,1090,0)
;;=OTHER^5^98
;;^UTILITY(U,$J,358.4,1091,0)
;;=HT EDUCATION^4^98
;;^UTILITY(U,$J,358.4,1092,0)
;;=HT MONTHLY MONITOR^1^98
;;^UTILITY(U,$J,358.4,1093,0)
;;=HOME VISIT-EST PATIENT^2^98
;;^UTILITY(U,$J,358.4,1094,0)
;;=TELEPSYCH^6^98
;;^UTILITY(U,$J,358.4,1095,0)
;;=HOME VISIT-NEW PATIENT^3^98
;;^UTILITY(U,$J,358.4,1096,0)
;;="A" MISC DIAGNOSIS^1^99
;;^UTILITY(U,$J,358.4,1097,0)
;;=ADJUSTMENT REACTION^2^99
;;^UTILITY(U,$J,358.4,1098,0)
;;=ANXIETY DISORDER^3^99
;;^UTILITY(U,$J,358.4,1099,0)
;;="B" MISC DIAGNOSIS^4^99
;;^UTILITY(U,$J,358.4,1100,0)
;;=BIPOLAR DISORDERS^5^99
;;^UTILITY(U,$J,358.4,1101,0)
;;=CANCER (NOT MELANOMA)^6^99
;;^UTILITY(U,$J,358.4,1102,0)
;;="C" MISC DIAGNOSIS^7^99
;;^UTILITY(U,$J,358.4,1103,0)
;;="D" MISC DIAGNOSIS^8^99
;;^UTILITY(U,$J,358.4,1104,0)
;;=DEMENTIA^9^99
;;^UTILITY(U,$J,358.4,1105,0)
;;=DEPRESSION^10^99
;;^UTILITY(U,$J,358.4,1106,0)
;;="E/F" MISC DIAGNOSIS^11^99
;;^UTILITY(U,$J,358.4,1107,0)
;;="G" MISC DIAGNOSIS^12^99
;;^UTILITY(U,$J,358.4,1108,0)
;;="H" MISC DIAGNOSIS^13^99
;;^UTILITY(U,$J,358.4,1109,0)
;;="I" MISC DIAGNOSIS^14^99
;;^UTILITY(U,$J,358.4,1110,0)
;;="J/K/L" MISC DIAGNOSIS^15^99
;;^UTILITY(U,$J,358.4,1111,0)
;;="M" MISC DIAGNOSIS^16^99
;;^UTILITY(U,$J,358.4,1112,0)
;;="N/O" MISC DIAGNOSIS^17^99
;;^UTILITY(U,$J,358.4,1113,0)
;;="P" MISC DIAGNOSIS^18^99
;;^UTILITY(U,$J,358.4,1114,0)
;;=PAIN^19^99
;;^UTILITY(U,$J,358.4,1115,0)
;;=PERSONALITY DISORDERS^21^99
;;^UTILITY(U,$J,358.4,1116,0)
;;="R" DIAGNOSIS^22^99
;;^UTILITY(U,$J,358.4,1117,0)
;;="S" DIAGNOSIS^23^99
;;^UTILITY(U,$J,358.4,1118,0)
;;=SCHIZOPHRENIC DISORDERS^24^99
;;^UTILITY(U,$J,358.4,1119,0)
;;=SCREENING^25^99
;;^UTILITY(U,$J,358.4,1120,0)
;;=SUBSTANCE ABUSE^27^99
;;^UTILITY(U,$J,358.4,1121,0)
;;=SYMPTOMS^29^99
;;^UTILITY(U,$J,358.4,1122,0)
;;="T/U" MISC DIAGNOSIS^30^99
;;^UTILITY(U,$J,358.4,1123,0)
;;="V/W/X/Y/Z" MISC DIAGNOSIS^31^99
;;^UTILITY(U,$J,358.4,1124,0)
;;=OTHER^32^99
;;^UTILITY(U,$J,358.4,1125,0)
;;=Z-CODES^33^99
;;^UTILITY(U,$J,358.4,1126,0)
;;=TELEHEALTH-SECONDARY ONLY^34^99
;;^UTILITY(U,$J,358.4,1127,0)
;;=DIABETES^7.5^99
;;^UTILITY(U,$J,358.4,1128,0)
;;=PERSONAL HISTORY OF CANCER^20^99
;;^UTILITY(U,$J,358.4,1129,0)
;;=STATUS POST & HX OF^26^99
;;^UTILITY(U,$J,358.4,1130,0)
;;=SUICIDE IDEATIONS/ATTEMPTS^28^99
;;^UTILITY(U,$J,358.4,1131,0)
;;=NEW PATIENT^2^100
;;^UTILITY(U,$J,358.4,1132,0)
;;=ESTABLISHED PATIENT^1^100
;;^UTILITY(U,$J,358.4,1133,0)
;;=CONSULTATIONS^3^100
;;^UTILITY(U,$J,358.4,1134,0)
;;=IMMUNIZATIONS^3^101
;;^UTILITY(U,$J,358.4,1135,0)
;;=COUNSELING/EDUCATION^1^101
;;^UTILITY(U,$J,358.4,1136,0)
;;=PROLONGED SERVICES^5^101
;;^UTILITY(U,$J,358.4,1137,0)
;;=IMMUNIZATION ADMIN^2^101
;;^UTILITY(U,$J,358.4,1138,0)
;;=WOUND CARE^7^101
;;^UTILITY(U,$J,358.4,1139,0)
;;=SKIN TEST^6^101
;;^UTILITY(U,$J,358.4,1140,0)
;;=MEDICATION ADMIN^4^101
;;^UTILITY(U,$J,358.4,1141,0)
;;=ID-GENERAL^1^102
;;^UTILITY(U,$J,358.4,1142,0)
;;=ID-HIV^2^102
;;^UTILITY(U,$J,358.4,1143,0)
;;=POSTPROCEDURAL INFECTIONS^3^102
;;^UTILITY(U,$J,358.4,1144,0)
;;=SUICIDE IDEATIONS/ATTEMPTS^4^102
;;^UTILITY(U,$J,358.4,1145,0)
;;=INITIAL OBSERVATION^1^103
;;^UTILITY(U,$J,358.4,1146,0)
;;=INPT BEDSIDE VISIT-INITIAL CARE^4^103
;;^UTILITY(U,$J,358.4,1147,0)
;;=INPT-CONSULTATIONS^6^103
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI3BB 3747 printed Dec 13, 2024@02:45:26 Page 2
IBDEI3BB ; ; 04-FEB-2020
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
+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,1090,0)
+2 ;;=OTHER^5^98
+3 ;;^UTILITY(U,$J,358.4,1091,0)
+4 ;;=HT EDUCATION^4^98
+5 ;;^UTILITY(U,$J,358.4,1092,0)
+6 ;;=HT MONTHLY MONITOR^1^98
+7 ;;^UTILITY(U,$J,358.4,1093,0)
+8 ;;=HOME VISIT-EST PATIENT^2^98
+9 ;;^UTILITY(U,$J,358.4,1094,0)
+10 ;;=TELEPSYCH^6^98
+11 ;;^UTILITY(U,$J,358.4,1095,0)
+12 ;;=HOME VISIT-NEW PATIENT^3^98
+13 ;;^UTILITY(U,$J,358.4,1096,0)
+14 ;;="A" MISC DIAGNOSIS^1^99
+15 ;;^UTILITY(U,$J,358.4,1097,0)
+16 ;;=ADJUSTMENT REACTION^2^99
+17 ;;^UTILITY(U,$J,358.4,1098,0)
+18 ;;=ANXIETY DISORDER^3^99
+19 ;;^UTILITY(U,$J,358.4,1099,0)
+20 ;;="B" MISC DIAGNOSIS^4^99
+21 ;;^UTILITY(U,$J,358.4,1100,0)
+22 ;;=BIPOLAR DISORDERS^5^99
+23 ;;^UTILITY(U,$J,358.4,1101,0)
+24 ;;=CANCER (NOT MELANOMA)^6^99
+25 ;;^UTILITY(U,$J,358.4,1102,0)
+26 ;;="C" MISC DIAGNOSIS^7^99
+27 ;;^UTILITY(U,$J,358.4,1103,0)
+28 ;;="D" MISC DIAGNOSIS^8^99
+29 ;;^UTILITY(U,$J,358.4,1104,0)
+30 ;;=DEMENTIA^9^99
+31 ;;^UTILITY(U,$J,358.4,1105,0)
+32 ;;=DEPRESSION^10^99
+33 ;;^UTILITY(U,$J,358.4,1106,0)
+34 ;;="E/F" MISC DIAGNOSIS^11^99
+35 ;;^UTILITY(U,$J,358.4,1107,0)
+36 ;;="G" MISC DIAGNOSIS^12^99
+37 ;;^UTILITY(U,$J,358.4,1108,0)
+38 ;;="H" MISC DIAGNOSIS^13^99
+39 ;;^UTILITY(U,$J,358.4,1109,0)
+40 ;;="I" MISC DIAGNOSIS^14^99
+41 ;;^UTILITY(U,$J,358.4,1110,0)
+42 ;;="J/K/L" MISC DIAGNOSIS^15^99
+43 ;;^UTILITY(U,$J,358.4,1111,0)
+44 ;;="M" MISC DIAGNOSIS^16^99
+45 ;;^UTILITY(U,$J,358.4,1112,0)
+46 ;;="N/O" MISC DIAGNOSIS^17^99
+47 ;;^UTILITY(U,$J,358.4,1113,0)
+48 ;;="P" MISC DIAGNOSIS^18^99
+49 ;;^UTILITY(U,$J,358.4,1114,0)
+50 ;;=PAIN^19^99
+51 ;;^UTILITY(U,$J,358.4,1115,0)
+52 ;;=PERSONALITY DISORDERS^21^99
+53 ;;^UTILITY(U,$J,358.4,1116,0)
+54 ;;="R" DIAGNOSIS^22^99
+55 ;;^UTILITY(U,$J,358.4,1117,0)
+56 ;;="S" DIAGNOSIS^23^99
+57 ;;^UTILITY(U,$J,358.4,1118,0)
+58 ;;=SCHIZOPHRENIC DISORDERS^24^99
+59 ;;^UTILITY(U,$J,358.4,1119,0)
+60 ;;=SCREENING^25^99
+61 ;;^UTILITY(U,$J,358.4,1120,0)
+62 ;;=SUBSTANCE ABUSE^27^99
+63 ;;^UTILITY(U,$J,358.4,1121,0)
+64 ;;=SYMPTOMS^29^99
+65 ;;^UTILITY(U,$J,358.4,1122,0)
+66 ;;="T/U" MISC DIAGNOSIS^30^99
+67 ;;^UTILITY(U,$J,358.4,1123,0)
+68 ;;="V/W/X/Y/Z" MISC DIAGNOSIS^31^99
+69 ;;^UTILITY(U,$J,358.4,1124,0)
+70 ;;=OTHER^32^99
+71 ;;^UTILITY(U,$J,358.4,1125,0)
+72 ;;=Z-CODES^33^99
+73 ;;^UTILITY(U,$J,358.4,1126,0)
+74 ;;=TELEHEALTH-SECONDARY ONLY^34^99
+75 ;;^UTILITY(U,$J,358.4,1127,0)
+76 ;;=DIABETES^7.5^99
+77 ;;^UTILITY(U,$J,358.4,1128,0)
+78 ;;=PERSONAL HISTORY OF CANCER^20^99
+79 ;;^UTILITY(U,$J,358.4,1129,0)
+80 ;;=STATUS POST & HX OF^26^99
+81 ;;^UTILITY(U,$J,358.4,1130,0)
+82 ;;=SUICIDE IDEATIONS/ATTEMPTS^28^99
+83 ;;^UTILITY(U,$J,358.4,1131,0)
+84 ;;=NEW PATIENT^2^100
+85 ;;^UTILITY(U,$J,358.4,1132,0)
+86 ;;=ESTABLISHED PATIENT^1^100
+87 ;;^UTILITY(U,$J,358.4,1133,0)
+88 ;;=CONSULTATIONS^3^100
+89 ;;^UTILITY(U,$J,358.4,1134,0)
+90 ;;=IMMUNIZATIONS^3^101
+91 ;;^UTILITY(U,$J,358.4,1135,0)
+92 ;;=COUNSELING/EDUCATION^1^101
+93 ;;^UTILITY(U,$J,358.4,1136,0)
+94 ;;=PROLONGED SERVICES^5^101
+95 ;;^UTILITY(U,$J,358.4,1137,0)
+96 ;;=IMMUNIZATION ADMIN^2^101
+97 ;;^UTILITY(U,$J,358.4,1138,0)
+98 ;;=WOUND CARE^7^101
+99 ;;^UTILITY(U,$J,358.4,1139,0)
+100 ;;=SKIN TEST^6^101
+101 ;;^UTILITY(U,$J,358.4,1140,0)
+102 ;;=MEDICATION ADMIN^4^101
+103 ;;^UTILITY(U,$J,358.4,1141,0)
+104 ;;=ID-GENERAL^1^102
+105 ;;^UTILITY(U,$J,358.4,1142,0)
+106 ;;=ID-HIV^2^102
+107 ;;^UTILITY(U,$J,358.4,1143,0)
+108 ;;=POSTPROCEDURAL INFECTIONS^3^102
+109 ;;^UTILITY(U,$J,358.4,1144,0)
+110 ;;=SUICIDE IDEATIONS/ATTEMPTS^4^102
+111 ;;^UTILITY(U,$J,358.4,1145,0)
+112 ;;=INITIAL OBSERVATION^1^103
+113 ;;^UTILITY(U,$J,358.4,1146,0)
+114 ;;=INPT BEDSIDE VISIT-INITIAL CARE^4^103
+115 ;;^UTILITY(U,$J,358.4,1147,0)
+116 ;;=INPT-CONSULTATIONS^6^103
