IBDEI3BD ; ; 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,1205,0)
;;=EYE DISORDERS^27^107
;;^UTILITY(U,$J,358.4,1206,0)
;;=EYE INJURY^28^107
;;^UTILITY(U,$J,358.4,1207,0)
;;=GASTROENTEROLOGY^29^107
;;^UTILITY(U,$J,358.4,1208,0)
;;=GU/RENAL^30^107
;;^UTILITY(U,$J,358.4,1209,0)
;;=HEADACHE^31^107
;;^UTILITY(U,$J,358.4,1210,0)
;;=HEART VALVE DISEASE^32^107
;;^UTILITY(U,$J,358.4,1211,0)
;;=HEMATOLOGY/ONCOLOGY^33^107
;;^UTILITY(U,$J,358.4,1212,0)
;;=HISTORY OF ILLNESS^34^107
;;^UTILITY(U,$J,358.4,1213,0)
;;=INFECTIOUS DISEASE^35^107
;;^UTILITY(U,$J,358.4,1214,0)
;;=LIVER DISEASE^36^107
;;^UTILITY(U,$J,358.4,1215,0)
;;=MENTAL HEALTH^38^107
;;^UTILITY(U,$J,358.4,1216,0)
;;=MOVEMENT DISORDERS^39^107
;;^UTILITY(U,$J,358.4,1217,0)
;;=MUSCULOSKELETAL^40^107
;;^UTILITY(U,$J,358.4,1218,0)
;;=NEUROLOGY^41^107
;;^UTILITY(U,$J,358.4,1219,0)
;;=PAIN^42^107
;;^UTILITY(U,$J,358.4,1220,0)
;;=PREVENTIVE HEALTH^43^107
;;^UTILITY(U,$J,358.4,1221,0)
;;=PULMONARY^44^107
;;^UTILITY(U,$J,358.4,1222,0)
;;=SEXUAL TRAUMA^45^107
;;^UTILITY(U,$J,358.4,1223,0)
;;=SIGNS,SYMPTOMS,CONDITIONS^46^107
;;^UTILITY(U,$J,358.4,1224,0)
;;=SPRAIN/STRAIN-INITIAL ENCOUNTER^47^107
;;^UTILITY(U,$J,358.4,1225,0)
;;=SUBSTANCE DISORDERS^48^107
;;^UTILITY(U,$J,358.4,1226,0)
;;=VARICOSE VEINS^50^107
;;^UTILITY(U,$J,358.4,1227,0)
;;=WOMEN'S HEALTH^51^107
;;^UTILITY(U,$J,358.4,1228,0)
;;=WOUNDS-INITIAL ENCOUNTER^52^107
;;^UTILITY(U,$J,358.4,1229,0)
;;=COMA^20^107
;;^UTILITY(U,$J,358.4,1230,0)
;;=CAUSES OF INJURY^19^107
;;^UTILITY(U,$J,358.4,1231,0)
;;=DEMENTIA^21^107
;;^UTILITY(U,$J,358.4,1232,0)
;;=LONG TERM CURRENT DRUG THERAPY^37^107
;;^UTILITY(U,$J,358.4,1233,0)
;;=ACQUIRED ABSENCE OF BODY PART(S)^2^107
;;^UTILITY(U,$J,358.4,1234,0)
;;=SUICIDE IDEATIONS/ATTEMPTS^49^107
;;^UTILITY(U,$J,358.4,1235,0)
;;=ACSC ACUTE KIDNEY FAILURE^3^107
;;^UTILITY(U,$J,358.4,1236,0)
;;=ACSC ANGINA^4^107
;;^UTILITY(U,$J,358.4,1237,0)
;;=ACSC ASTHMA/BRONCHITIS/COPD^5^107
;;^UTILITY(U,$J,358.4,1238,0)
;;=ACSC CHF^6^107
;;^UTILITY(U,$J,358.4,1239,0)
;;=ACSC DEHYDRATION^7^107
;;^UTILITY(U,$J,358.4,1240,0)
;;=ACSC DIABETES TYPE 1^8^107
;;^UTILITY(U,$J,358.4,1241,0)
;;=ACSC DIABETES TYPE 2^9^107
;;^UTILITY(U,$J,358.4,1242,0)
;;=ACSC HYPERTENSION^10^107
;;^UTILITY(U,$J,358.4,1243,0)
;;=ACSC INFECTIOUS GASTROENTERITIS^11^107
;;^UTILITY(U,$J,358.4,1244,0)
;;=ACSC PNEUMONIA^12^107
;;^UTILITY(U,$J,358.4,1245,0)
;;=ACSC UTI^13^107
;;^UTILITY(U,$J,358.4,1246,0)
;;=ACSC VIRAL ENTERITIS^14^107
;;^UTILITY(U,$J,358.4,1247,0)
;;=E-CIG/VAPE LUNG INJURY^23^107
;;^UTILITY(U,$J,358.4,1248,0)
;;=OTHER CODES^12^108
;;^UTILITY(U,$J,358.4,1249,0)
;;=MENTAL HEALTH INTAKE CODES^11^108
;;^UTILITY(U,$J,358.4,1250,0)
;;=OTHER PSYCHOTHERAPY^13^108
;;^UTILITY(U,$J,358.4,1251,0)
;;=BIOFEEDBACK^3^108
;;^UTILITY(U,$J,358.4,1252,0)
;;=CASE MANAGEMENT^4^108
;;^UTILITY(U,$J,358.4,1253,0)
;;=INPT OR OTPT PSYTX W/O E&M^9^108
;;^UTILITY(U,$J,358.4,1254,0)
;;=INTERACTIVE COMPLEXITY ADD-ON^10^108
;;^UTILITY(U,$J,358.4,1255,0)
;;=OTPT PSYTX W E&M ADD-ON^14^108
;;^UTILITY(U,$J,358.4,1256,0)
;;=PSYCHOTHERAPY FOR CRISIS^19^108
;;^UTILITY(U,$J,358.4,1257,0)
;;=PROLONGED SERVICES ADD-ON^18^108
;;^UTILITY(U,$J,358.4,1258,0)
;;=INJECTIONS^8^108
;;^UTILITY(U,$J,358.4,1259,0)
;;=PREVENTIVE MEDICINE COUNSELING^15^108
;;^UTILITY(U,$J,358.4,1260,0)
;;=PREVENTIVE MEDICINE-EST PT^16^108
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI3BD 3761 printed Apr 09, 2024@21:56:54 Page 2
IBDEI3BD ; ; 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,1205,0)
+2 ;;=EYE DISORDERS^27^107
+3 ;;^UTILITY(U,$J,358.4,1206,0)
+4 ;;=EYE INJURY^28^107
+5 ;;^UTILITY(U,$J,358.4,1207,0)
+6 ;;=GASTROENTEROLOGY^29^107
+7 ;;^UTILITY(U,$J,358.4,1208,0)
+8 ;;=GU/RENAL^30^107
+9 ;;^UTILITY(U,$J,358.4,1209,0)
+10 ;;=HEADACHE^31^107
+11 ;;^UTILITY(U,$J,358.4,1210,0)
+12 ;;=HEART VALVE DISEASE^32^107
+13 ;;^UTILITY(U,$J,358.4,1211,0)
+14 ;;=HEMATOLOGY/ONCOLOGY^33^107
+15 ;;^UTILITY(U,$J,358.4,1212,0)
+16 ;;=HISTORY OF ILLNESS^34^107
+17 ;;^UTILITY(U,$J,358.4,1213,0)
+18 ;;=INFECTIOUS DISEASE^35^107
+19 ;;^UTILITY(U,$J,358.4,1214,0)
+20 ;;=LIVER DISEASE^36^107
+21 ;;^UTILITY(U,$J,358.4,1215,0)
+22 ;;=MENTAL HEALTH^38^107
+23 ;;^UTILITY(U,$J,358.4,1216,0)
+24 ;;=MOVEMENT DISORDERS^39^107
+25 ;;^UTILITY(U,$J,358.4,1217,0)
+26 ;;=MUSCULOSKELETAL^40^107
+27 ;;^UTILITY(U,$J,358.4,1218,0)
+28 ;;=NEUROLOGY^41^107
+29 ;;^UTILITY(U,$J,358.4,1219,0)
+30 ;;=PAIN^42^107
+31 ;;^UTILITY(U,$J,358.4,1220,0)
+32 ;;=PREVENTIVE HEALTH^43^107
+33 ;;^UTILITY(U,$J,358.4,1221,0)
+34 ;;=PULMONARY^44^107
+35 ;;^UTILITY(U,$J,358.4,1222,0)
+36 ;;=SEXUAL TRAUMA^45^107
+37 ;;^UTILITY(U,$J,358.4,1223,0)
+38 ;;=SIGNS,SYMPTOMS,CONDITIONS^46^107
+39 ;;^UTILITY(U,$J,358.4,1224,0)
+40 ;;=SPRAIN/STRAIN-INITIAL ENCOUNTER^47^107
+41 ;;^UTILITY(U,$J,358.4,1225,0)
+42 ;;=SUBSTANCE DISORDERS^48^107
+43 ;;^UTILITY(U,$J,358.4,1226,0)
+44 ;;=VARICOSE VEINS^50^107
+45 ;;^UTILITY(U,$J,358.4,1227,0)
+46 ;;=WOMEN'S HEALTH^51^107
+47 ;;^UTILITY(U,$J,358.4,1228,0)
+48 ;;=WOUNDS-INITIAL ENCOUNTER^52^107
+49 ;;^UTILITY(U,$J,358.4,1229,0)
+50 ;;=COMA^20^107
+51 ;;^UTILITY(U,$J,358.4,1230,0)
+52 ;;=CAUSES OF INJURY^19^107
+53 ;;^UTILITY(U,$J,358.4,1231,0)
+54 ;;=DEMENTIA^21^107
+55 ;;^UTILITY(U,$J,358.4,1232,0)
+56 ;;=LONG TERM CURRENT DRUG THERAPY^37^107
+57 ;;^UTILITY(U,$J,358.4,1233,0)
+58 ;;=ACQUIRED ABSENCE OF BODY PART(S)^2^107
+59 ;;^UTILITY(U,$J,358.4,1234,0)
+60 ;;=SUICIDE IDEATIONS/ATTEMPTS^49^107
+61 ;;^UTILITY(U,$J,358.4,1235,0)
+62 ;;=ACSC ACUTE KIDNEY FAILURE^3^107
+63 ;;^UTILITY(U,$J,358.4,1236,0)
+64 ;;=ACSC ANGINA^4^107
+65 ;;^UTILITY(U,$J,358.4,1237,0)
+66 ;;=ACSC ASTHMA/BRONCHITIS/COPD^5^107
+67 ;;^UTILITY(U,$J,358.4,1238,0)
+68 ;;=ACSC CHF^6^107
+69 ;;^UTILITY(U,$J,358.4,1239,0)
+70 ;;=ACSC DEHYDRATION^7^107
+71 ;;^UTILITY(U,$J,358.4,1240,0)
+72 ;;=ACSC DIABETES TYPE 1^8^107
+73 ;;^UTILITY(U,$J,358.4,1241,0)
+74 ;;=ACSC DIABETES TYPE 2^9^107
+75 ;;^UTILITY(U,$J,358.4,1242,0)
+76 ;;=ACSC HYPERTENSION^10^107
+77 ;;^UTILITY(U,$J,358.4,1243,0)
+78 ;;=ACSC INFECTIOUS GASTROENTERITIS^11^107
+79 ;;^UTILITY(U,$J,358.4,1244,0)
+80 ;;=ACSC PNEUMONIA^12^107
+81 ;;^UTILITY(U,$J,358.4,1245,0)
+82 ;;=ACSC UTI^13^107
+83 ;;^UTILITY(U,$J,358.4,1246,0)
+84 ;;=ACSC VIRAL ENTERITIS^14^107
+85 ;;^UTILITY(U,$J,358.4,1247,0)
+86 ;;=E-CIG/VAPE LUNG INJURY^23^107
+87 ;;^UTILITY(U,$J,358.4,1248,0)
+88 ;;=OTHER CODES^12^108
+89 ;;^UTILITY(U,$J,358.4,1249,0)
+90 ;;=MENTAL HEALTH INTAKE CODES^11^108
+91 ;;^UTILITY(U,$J,358.4,1250,0)
+92 ;;=OTHER PSYCHOTHERAPY^13^108
+93 ;;^UTILITY(U,$J,358.4,1251,0)
+94 ;;=BIOFEEDBACK^3^108
+95 ;;^UTILITY(U,$J,358.4,1252,0)
+96 ;;=CASE MANAGEMENT^4^108
+97 ;;^UTILITY(U,$J,358.4,1253,0)
+98 ;;=INPT OR OTPT PSYTX W/O E&M^9^108
+99 ;;^UTILITY(U,$J,358.4,1254,0)
+100 ;;=INTERACTIVE COMPLEXITY ADD-ON^10^108
+101 ;;^UTILITY(U,$J,358.4,1255,0)
+102 ;;=OTPT PSYTX W E&M ADD-ON^14^108
+103 ;;^UTILITY(U,$J,358.4,1256,0)
+104 ;;=PSYCHOTHERAPY FOR CRISIS^19^108
+105 ;;^UTILITY(U,$J,358.4,1257,0)
+106 ;;=PROLONGED SERVICES ADD-ON^18^108
+107 ;;^UTILITY(U,$J,358.4,1258,0)
+108 ;;=INJECTIONS^8^108
+109 ;;^UTILITY(U,$J,358.4,1259,0)
+110 ;;=PREVENTIVE MEDICINE COUNSELING^15^108
+111 ;;^UTILITY(U,$J,358.4,1260,0)
+112 ;;=PREVENTIVE MEDICINE-EST PT^16^108
