IBDEI3BC ; ; 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,1148,0)
;;=OBSERVATION DISCHARGE^3^103
;;^UTILITY(U,$J,358.4,1149,0)
;;=INPT BEDSIDE VISITS-DAILY VISITS^5^103
;;^UTILITY(U,$J,358.4,1150,0)
;;=ADMIT & DISCHARGE SAME DAY^8^103
;;^UTILITY(U,$J,358.4,1151,0)
;;=DISCHARGE DAY CODES^9^103
;;^UTILITY(U,$J,358.4,1152,0)
;;=OBSERVATION SUBSEQUENT VISIT^2^103
;;^UTILITY(U,$J,358.4,1153,0)
;;=POST-OP VISIT^10^103
;;^UTILITY(U,$J,358.4,1154,0)
;;=CRITICAL CARE^7^103
;;^UTILITY(U,$J,358.4,1155,0)
;;=INPT VENT MGMT^4^104
;;^UTILITY(U,$J,358.4,1156,0)
;;=CRITICAL CARE^2^104
;;^UTILITY(U,$J,358.4,1157,0)
;;=TEAM CONFERENCE^8^104
;;^UTILITY(U,$J,358.4,1158,0)
;;=PROLONGED SERVICES^7^104
;;^UTILITY(U,$J,358.4,1159,0)
;;=BEDSIDE PROCEDURES^1^104
;;^UTILITY(U,$J,358.4,1160,0)
;;=MODERATE SEDATION^6^104
;;^UTILITY(U,$J,358.4,1161,0)
;;=MED MANAGEMENT^5^104
;;^UTILITY(U,$J,358.4,1162,0)
;;=IMMUNIZATIONS^3^104
;;^UTILITY(U,$J,358.4,1163,0)
;;=SIGNS/SYMPTOMS^16^105
;;^UTILITY(U,$J,358.4,1164,0)
;;=PAIN^14^105
;;^UTILITY(U,$J,358.4,1165,0)
;;=MASS^10^105
;;^UTILITY(U,$J,358.4,1166,0)
;;=COMPLICATIONS^3^105
;;^UTILITY(U,$J,358.4,1167,0)
;;=CARDIOVASCULAR^2^105
;;^UTILITY(U,$J,358.4,1168,0)
;;=RESPIRATORY^15^105
;;^UTILITY(U,$J,358.4,1169,0)
;;=GASTROENTEROLOGY^5^105
;;^UTILITY(U,$J,358.4,1170,0)
;;=GENITORURINARY^6^105
;;^UTILITY(U,$J,358.4,1171,0)
;;=MUSCULOSKELETAL^12^105
;;^UTILITY(U,$J,358.4,1172,0)
;;=NEUROLOGY^13^105
;;^UTILITY(U,$J,358.4,1173,0)
;;=HEMATOLOGY/ONCOLOGY^7^105
;;^UTILITY(U,$J,358.4,1174,0)
;;=INFECTIOUS DISEASE^9^105
;;^UTILITY(U,$J,358.4,1175,0)
;;=SUBSTANCE ABUSE-ALCOHOL^17^105
;;^UTILITY(U,$J,358.4,1176,0)
;;=SUBSTANCE ABUSE-AMPHETAMINE^18^105
;;^UTILITY(U,$J,358.4,1177,0)
;;=SUBSTANCE ABUSE-CANNABIS^19^105
;;^UTILITY(U,$J,358.4,1178,0)
;;=SUBSTANCE ABUSE-COCAINE^20^105
;;^UTILITY(U,$J,358.4,1179,0)
;;=SUBSTANCE ABUSE-HALLUCINOGEN^21^105
;;^UTILITY(U,$J,358.4,1180,0)
;;=SUBSTANCE ABUSE-INHALANT^22^105
;;^UTILITY(U,$J,358.4,1181,0)
;;=SUBSTANCE ABUSE-OPIOID^23^105
;;^UTILITY(U,$J,358.4,1182,0)
;;=SUBSTANCE ABUSE-PSYCHOACTIVE DRUGS^24^105
;;^UTILITY(U,$J,358.4,1183,0)
;;=SUBSTANCE ABUSE-SEDATIVE/HYPNOTIC^25^105
;;^UTILITY(U,$J,358.4,1184,0)
;;=SUBSTANCE ABUSE-TOBACCO^26^105
;;^UTILITY(U,$J,358.4,1185,0)
;;=ENDOCRINE^4^105
;;^UTILITY(U,$J,358.4,1186,0)
;;=ICU^8^105
;;^UTILITY(U,$J,358.4,1187,0)
;;=SUICIDAL IDEATIONS/ATTEMPTS^27^105
;;^UTILITY(U,$J,358.4,1188,0)
;;=MISCELLANEOUS^11^105
;;^UTILITY(U,$J,358.4,1189,0)
;;=GENERAL IM^1^105
;;^UTILITY(U,$J,358.4,1190,0)
;;=MFH-NON CLINICIAN VISIT ^2^106
;;^UTILITY(U,$J,358.4,1191,0)
;;=NURSING PROCEDURES^3^106
;;^UTILITY(U,$J,358.4,1192,0)
;;=SPLINTS^4^106
;;^UTILITY(U,$J,358.4,1193,0)
;;=MFH-CLINICIAN VISIT ^1^106
;;^UTILITY(U,$J,358.4,1194,0)
;;=VACCINE ADMINISTRATION^5^106
;;^UTILITY(U,$J,358.4,1195,0)
;;=VACCINES^6^106
;;^UTILITY(U,$J,358.4,1196,0)
;;=PC COMMON DIAGNOSES^1^107
;;^UTILITY(U,$J,358.4,1197,0)
;;=ADMINISTRATIVE TOPICS^15^107
;;^UTILITY(U,$J,358.4,1198,0)
;;=ANGINA^16^107
;;^UTILITY(U,$J,358.4,1199,0)
;;=ATHEROSCLEROSIS^17^107
;;^UTILITY(U,$J,358.4,1200,0)
;;=CARDIOVASCULAR^18^107
;;^UTILITY(U,$J,358.4,1201,0)
;;=DERMATOLOGY^22^107
;;^UTILITY(U,$J,358.4,1202,0)
;;=EAR DISORDERS^24^107
;;^UTILITY(U,$J,358.4,1203,0)
;;=EENT^25^107
;;^UTILITY(U,$J,358.4,1204,0)
;;=ENDOCRINE/METABOLIC^26^107
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI3BC 3760 printed Sep 23, 2025@20:21:30 Page 2
IBDEI3BC ; ; 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,1148,0)
+2 ;;=OBSERVATION DISCHARGE^3^103
+3 ;;^UTILITY(U,$J,358.4,1149,0)
+4 ;;=INPT BEDSIDE VISITS-DAILY VISITS^5^103
+5 ;;^UTILITY(U,$J,358.4,1150,0)
+6 ;;=ADMIT & DISCHARGE SAME DAY^8^103
+7 ;;^UTILITY(U,$J,358.4,1151,0)
+8 ;;=DISCHARGE DAY CODES^9^103
+9 ;;^UTILITY(U,$J,358.4,1152,0)
+10 ;;=OBSERVATION SUBSEQUENT VISIT^2^103
+11 ;;^UTILITY(U,$J,358.4,1153,0)
+12 ;;=POST-OP VISIT^10^103
+13 ;;^UTILITY(U,$J,358.4,1154,0)
+14 ;;=CRITICAL CARE^7^103
+15 ;;^UTILITY(U,$J,358.4,1155,0)
+16 ;;=INPT VENT MGMT^4^104
+17 ;;^UTILITY(U,$J,358.4,1156,0)
+18 ;;=CRITICAL CARE^2^104
+19 ;;^UTILITY(U,$J,358.4,1157,0)
+20 ;;=TEAM CONFERENCE^8^104
+21 ;;^UTILITY(U,$J,358.4,1158,0)
+22 ;;=PROLONGED SERVICES^7^104
+23 ;;^UTILITY(U,$J,358.4,1159,0)
+24 ;;=BEDSIDE PROCEDURES^1^104
+25 ;;^UTILITY(U,$J,358.4,1160,0)
+26 ;;=MODERATE SEDATION^6^104
+27 ;;^UTILITY(U,$J,358.4,1161,0)
+28 ;;=MED MANAGEMENT^5^104
+29 ;;^UTILITY(U,$J,358.4,1162,0)
+30 ;;=IMMUNIZATIONS^3^104
+31 ;;^UTILITY(U,$J,358.4,1163,0)
+32 ;;=SIGNS/SYMPTOMS^16^105
+33 ;;^UTILITY(U,$J,358.4,1164,0)
+34 ;;=PAIN^14^105
+35 ;;^UTILITY(U,$J,358.4,1165,0)
+36 ;;=MASS^10^105
+37 ;;^UTILITY(U,$J,358.4,1166,0)
+38 ;;=COMPLICATIONS^3^105
+39 ;;^UTILITY(U,$J,358.4,1167,0)
+40 ;;=CARDIOVASCULAR^2^105
+41 ;;^UTILITY(U,$J,358.4,1168,0)
+42 ;;=RESPIRATORY^15^105
+43 ;;^UTILITY(U,$J,358.4,1169,0)
+44 ;;=GASTROENTEROLOGY^5^105
+45 ;;^UTILITY(U,$J,358.4,1170,0)
+46 ;;=GENITORURINARY^6^105
+47 ;;^UTILITY(U,$J,358.4,1171,0)
+48 ;;=MUSCULOSKELETAL^12^105
+49 ;;^UTILITY(U,$J,358.4,1172,0)
+50 ;;=NEUROLOGY^13^105
+51 ;;^UTILITY(U,$J,358.4,1173,0)
+52 ;;=HEMATOLOGY/ONCOLOGY^7^105
+53 ;;^UTILITY(U,$J,358.4,1174,0)
+54 ;;=INFECTIOUS DISEASE^9^105
+55 ;;^UTILITY(U,$J,358.4,1175,0)
+56 ;;=SUBSTANCE ABUSE-ALCOHOL^17^105
+57 ;;^UTILITY(U,$J,358.4,1176,0)
+58 ;;=SUBSTANCE ABUSE-AMPHETAMINE^18^105
+59 ;;^UTILITY(U,$J,358.4,1177,0)
+60 ;;=SUBSTANCE ABUSE-CANNABIS^19^105
+61 ;;^UTILITY(U,$J,358.4,1178,0)
+62 ;;=SUBSTANCE ABUSE-COCAINE^20^105
+63 ;;^UTILITY(U,$J,358.4,1179,0)
+64 ;;=SUBSTANCE ABUSE-HALLUCINOGEN^21^105
+65 ;;^UTILITY(U,$J,358.4,1180,0)
+66 ;;=SUBSTANCE ABUSE-INHALANT^22^105
+67 ;;^UTILITY(U,$J,358.4,1181,0)
+68 ;;=SUBSTANCE ABUSE-OPIOID^23^105
+69 ;;^UTILITY(U,$J,358.4,1182,0)
+70 ;;=SUBSTANCE ABUSE-PSYCHOACTIVE DRUGS^24^105
+71 ;;^UTILITY(U,$J,358.4,1183,0)
+72 ;;=SUBSTANCE ABUSE-SEDATIVE/HYPNOTIC^25^105
+73 ;;^UTILITY(U,$J,358.4,1184,0)
+74 ;;=SUBSTANCE ABUSE-TOBACCO^26^105
+75 ;;^UTILITY(U,$J,358.4,1185,0)
+76 ;;=ENDOCRINE^4^105
+77 ;;^UTILITY(U,$J,358.4,1186,0)
+78 ;;=ICU^8^105
+79 ;;^UTILITY(U,$J,358.4,1187,0)
+80 ;;=SUICIDAL IDEATIONS/ATTEMPTS^27^105
+81 ;;^UTILITY(U,$J,358.4,1188,0)
+82 ;;=MISCELLANEOUS^11^105
+83 ;;^UTILITY(U,$J,358.4,1189,0)
+84 ;;=GENERAL IM^1^105
+85 ;;^UTILITY(U,$J,358.4,1190,0)
+86 ;;=MFH-NON CLINICIAN VISIT ^2^106
+87 ;;^UTILITY(U,$J,358.4,1191,0)
+88 ;;=NURSING PROCEDURES^3^106
+89 ;;^UTILITY(U,$J,358.4,1192,0)
+90 ;;=SPLINTS^4^106
+91 ;;^UTILITY(U,$J,358.4,1193,0)
+92 ;;=MFH-CLINICIAN VISIT ^1^106
+93 ;;^UTILITY(U,$J,358.4,1194,0)
+94 ;;=VACCINE ADMINISTRATION^5^106
+95 ;;^UTILITY(U,$J,358.4,1195,0)
+96 ;;=VACCINES^6^106
+97 ;;^UTILITY(U,$J,358.4,1196,0)
+98 ;;=PC COMMON DIAGNOSES^1^107
+99 ;;^UTILITY(U,$J,358.4,1197,0)
+100 ;;=ADMINISTRATIVE TOPICS^15^107
+101 ;;^UTILITY(U,$J,358.4,1198,0)
+102 ;;=ANGINA^16^107
+103 ;;^UTILITY(U,$J,358.4,1199,0)
+104 ;;=ATHEROSCLEROSIS^17^107
+105 ;;^UTILITY(U,$J,358.4,1200,0)
+106 ;;=CARDIOVASCULAR^18^107
+107 ;;^UTILITY(U,$J,358.4,1201,0)
+108 ;;=DERMATOLOGY^22^107
+109 ;;^UTILITY(U,$J,358.4,1202,0)
+110 ;;=EAR DISORDERS^24^107
+111 ;;^UTILITY(U,$J,358.4,1203,0)
+112 ;;=EENT^25^107
+113 ;;^UTILITY(U,$J,358.4,1204,0)
+114 ;;=ENDOCRINE/METABOLIC^26^107
