IBDEI1M1 ; ; 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,298,0)
;;=OTHER^4^31
;;^UTILITY(U,$J,358.4,299,0)
;;=PROLONGED CLINICAL STAFF SERVICES^5^31
;;^UTILITY(U,$J,358.4,300,0)
;;=LAB TESTS^3^31
;;^UTILITY(U,$J,358.4,301,0)
;;=NEW PATIENT^3^32
;;^UTILITY(U,$J,358.4,302,0)
;;=ESTABLISHED PATIENT^2^32
;;^UTILITY(U,$J,358.4,303,0)
;;=CONSULTS - OUTPT^4^32
;;^UTILITY(U,$J,358.4,304,0)
;;=EYE CODES^1^32
;;^UTILITY(U,$J,358.4,305,0)
;;=CONSULTS - INPT^5^32
;;^UTILITY(U,$J,358.4,306,0)
;;=HOSPITAL CARE - INITIAL^6^32
;;^UTILITY(U,$J,358.4,307,0)
;;=HOSPITAL CARE - SUBSEQUENT^7^32
;;^UTILITY(U,$J,358.4,308,0)
;;=HOSPITAL CARE - DISCHARGE^8^32
;;^UTILITY(U,$J,358.4,309,0)
;;=OBSERVATION CARE - INITIAL^9^32
;;^UTILITY(U,$J,358.4,310,0)
;;=OBSERVATION CARE - SUBSEQUENT^10^32
;;^UTILITY(U,$J,358.4,311,0)
;;=OBSERVATION CARE - DISCHARGE^11^32
;;^UTILITY(U,$J,358.4,312,0)
;;=INPT or OBS - ADMIT & DISCHARGE SAME DAY^12^32
;;^UTILITY(U,$J,358.4,313,0)
;;=EEF Version 2022 January^13^32
;;^UTILITY(U,$J,358.4,314,0)
;;=PROC - LID / LACRIMAL^8^33
;;^UTILITY(U,$J,358.4,315,0)
;;=PROC - LASER / CRYO^11^33
;;^UTILITY(U,$J,358.4,316,0)
;;=PROC - CORNEA / CONJ^7^33
;;^UTILITY(U,$J,358.4,317,0)
;;=MEDICATIONS^13^33
;;^UTILITY(U,$J,358.4,318,0)
;;=PROC - INJECTIONS / ALL^10^33
;;^UTILITY(U,$J,358.4,319,0)
;;=IMAGE / PHOTOS^3^33
;;^UTILITY(U,$J,358.4,320,0)
;;=REFRACT / GLASSES / CL^2^33
;;^UTILITY(U,$J,358.4,321,0)
;;=TEST - CATARACT / CORNEA^5^33
;;^UTILITY(U,$J,358.4,322,0)
;;=TEST - GLAUCOMA^4^33
;;^UTILITY(U,$J,358.4,323,0)
;;=TEST - OTHER^6^33
;;^UTILITY(U,$J,358.4,324,0)
;;=EDUCATION / COUNSELING^14^33
;;^UTILITY(U,$J,358.4,325,0)
;;=EYE SURGERY CODES^12^33
;;^UTILITY(U,$J,358.4,326,0)
;;=PROC - INJECTIONS / VEGF^9^33
;;^UTILITY(U,$J,358.4,327,0)
;;=TEST - ERG / VEP^15^33
;;^UTILITY(U,$J,358.4,328,0)
;;=DIABETIC EYE EXAM^1^33
;;^UTILITY(U,$J,358.4,329,0)
;;=LOW VISION / BLINDNESS^21^34
;;^UTILITY(U,$J,358.4,330,0)
;;=RETINA - VASCULAR^12^34
;;^UTILITY(U,$J,358.4,331,0)
;;=EYELIDS / LASHES^2^34
;;^UTILITY(U,$J,358.4,332,0)
;;=NEURO / STRABISMUS^18^34
;;^UTILITY(U,$J,358.4,333,0)
;;=ORBIT - PLASTICS^20^34
;;^UTILITY(U,$J,358.4,334,0)
;;=VITREOUS^17^34
;;^UTILITY(U,$J,358.4,335,0)
;;=ORBIT - TRAUMA^19^34
;;^UTILITY(U,$J,358.4,336,0)
;;=LACRIMAL / NLD / NEOPLASMS^3^34
;;^UTILITY(U,$J,358.4,337,0)
;;=MOST FREQUENT^1^34
;;^UTILITY(U,$J,358.4,338,0)
;;=CONJUNCTIVA / SCLERA^4^34
;;^UTILITY(U,$J,358.4,339,0)
;;=CORNEA / ULCER^5^34
;;^UTILITY(U,$J,358.4,340,0)
;;=LENS / CATARACT / POSTOP^6^34
;;^UTILITY(U,$J,358.4,341,0)
;;=IRIS / UVEITIS^7^34
;;^UTILITY(U,$J,358.4,342,0)
;;=GLAUCOMA - OPEN ANGLE^8^34
;;^UTILITY(U,$J,358.4,343,0)
;;=GLAUCOMA - CLOSED ANGLE^9^34
;;^UTILITY(U,$J,358.4,344,0)
;;=GLAUCOMA - SECONDARY^10^34
;;^UTILITY(U,$J,358.4,345,0)
;;=RETINA - CHOROID / TUMORS / INFLAM^14^34
;;^UTILITY(U,$J,358.4,346,0)
;;=RETINA - TEAR / PERIPH / DEGENERATION^15^34
;;^UTILITY(U,$J,358.4,347,0)
;;=RETINA - MACULA^11^34
;;^UTILITY(U,$J,358.4,348,0)
;;=SUICIDE IDEATIONS/ATTEMPTS^23^34
;;^UTILITY(U,$J,358.4,349,0)
;;=PMH / OTHER^22^34
;;^UTILITY(U,$J,358.4,350,0)
;;=RETINA - VEGF INJECT DX CODES^16^34
;;^UTILITY(U,$J,358.4,351,0)
;;=RETINA - DIABETIC RETINOPATHY^13^34
;;^UTILITY(U,$J,358.4,352,0)
;;=NEW PATIENT^2^35
;;^UTILITY(U,$J,358.4,353,0)
;;=ESTABLISHED PATIENT^1^35
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI1M1 3744 printed Sep 23, 2025@19:47:21 Page 2
IBDEI1M1 ; ; 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,298,0)
+2 ;;=OTHER^4^31
+3 ;;^UTILITY(U,$J,358.4,299,0)
+4 ;;=PROLONGED CLINICAL STAFF SERVICES^5^31
+5 ;;^UTILITY(U,$J,358.4,300,0)
+6 ;;=LAB TESTS^3^31
+7 ;;^UTILITY(U,$J,358.4,301,0)
+8 ;;=NEW PATIENT^3^32
+9 ;;^UTILITY(U,$J,358.4,302,0)
+10 ;;=ESTABLISHED PATIENT^2^32
+11 ;;^UTILITY(U,$J,358.4,303,0)
+12 ;;=CONSULTS - OUTPT^4^32
+13 ;;^UTILITY(U,$J,358.4,304,0)
+14 ;;=EYE CODES^1^32
+15 ;;^UTILITY(U,$J,358.4,305,0)
+16 ;;=CONSULTS - INPT^5^32
+17 ;;^UTILITY(U,$J,358.4,306,0)
+18 ;;=HOSPITAL CARE - INITIAL^6^32
+19 ;;^UTILITY(U,$J,358.4,307,0)
+20 ;;=HOSPITAL CARE - SUBSEQUENT^7^32
+21 ;;^UTILITY(U,$J,358.4,308,0)
+22 ;;=HOSPITAL CARE - DISCHARGE^8^32
+23 ;;^UTILITY(U,$J,358.4,309,0)
+24 ;;=OBSERVATION CARE - INITIAL^9^32
+25 ;;^UTILITY(U,$J,358.4,310,0)
+26 ;;=OBSERVATION CARE - SUBSEQUENT^10^32
+27 ;;^UTILITY(U,$J,358.4,311,0)
+28 ;;=OBSERVATION CARE - DISCHARGE^11^32
+29 ;;^UTILITY(U,$J,358.4,312,0)
+30 ;;=INPT or OBS - ADMIT & DISCHARGE SAME DAY^12^32
+31 ;;^UTILITY(U,$J,358.4,313,0)
+32 ;;=EEF Version 2022 January^13^32
+33 ;;^UTILITY(U,$J,358.4,314,0)
+34 ;;=PROC - LID / LACRIMAL^8^33
+35 ;;^UTILITY(U,$J,358.4,315,0)
+36 ;;=PROC - LASER / CRYO^11^33
+37 ;;^UTILITY(U,$J,358.4,316,0)
+38 ;;=PROC - CORNEA / CONJ^7^33
+39 ;;^UTILITY(U,$J,358.4,317,0)
+40 ;;=MEDICATIONS^13^33
+41 ;;^UTILITY(U,$J,358.4,318,0)
+42 ;;=PROC - INJECTIONS / ALL^10^33
+43 ;;^UTILITY(U,$J,358.4,319,0)
+44 ;;=IMAGE / PHOTOS^3^33
+45 ;;^UTILITY(U,$J,358.4,320,0)
+46 ;;=REFRACT / GLASSES / CL^2^33
+47 ;;^UTILITY(U,$J,358.4,321,0)
+48 ;;=TEST - CATARACT / CORNEA^5^33
+49 ;;^UTILITY(U,$J,358.4,322,0)
+50 ;;=TEST - GLAUCOMA^4^33
+51 ;;^UTILITY(U,$J,358.4,323,0)
+52 ;;=TEST - OTHER^6^33
+53 ;;^UTILITY(U,$J,358.4,324,0)
+54 ;;=EDUCATION / COUNSELING^14^33
+55 ;;^UTILITY(U,$J,358.4,325,0)
+56 ;;=EYE SURGERY CODES^12^33
+57 ;;^UTILITY(U,$J,358.4,326,0)
+58 ;;=PROC - INJECTIONS / VEGF^9^33
+59 ;;^UTILITY(U,$J,358.4,327,0)
+60 ;;=TEST - ERG / VEP^15^33
+61 ;;^UTILITY(U,$J,358.4,328,0)
+62 ;;=DIABETIC EYE EXAM^1^33
+63 ;;^UTILITY(U,$J,358.4,329,0)
+64 ;;=LOW VISION / BLINDNESS^21^34
+65 ;;^UTILITY(U,$J,358.4,330,0)
+66 ;;=RETINA - VASCULAR^12^34
+67 ;;^UTILITY(U,$J,358.4,331,0)
+68 ;;=EYELIDS / LASHES^2^34
+69 ;;^UTILITY(U,$J,358.4,332,0)
+70 ;;=NEURO / STRABISMUS^18^34
+71 ;;^UTILITY(U,$J,358.4,333,0)
+72 ;;=ORBIT - PLASTICS^20^34
+73 ;;^UTILITY(U,$J,358.4,334,0)
+74 ;;=VITREOUS^17^34
+75 ;;^UTILITY(U,$J,358.4,335,0)
+76 ;;=ORBIT - TRAUMA^19^34
+77 ;;^UTILITY(U,$J,358.4,336,0)
+78 ;;=LACRIMAL / NLD / NEOPLASMS^3^34
+79 ;;^UTILITY(U,$J,358.4,337,0)
+80 ;;=MOST FREQUENT^1^34
+81 ;;^UTILITY(U,$J,358.4,338,0)
+82 ;;=CONJUNCTIVA / SCLERA^4^34
+83 ;;^UTILITY(U,$J,358.4,339,0)
+84 ;;=CORNEA / ULCER^5^34
+85 ;;^UTILITY(U,$J,358.4,340,0)
+86 ;;=LENS / CATARACT / POSTOP^6^34
+87 ;;^UTILITY(U,$J,358.4,341,0)
+88 ;;=IRIS / UVEITIS^7^34
+89 ;;^UTILITY(U,$J,358.4,342,0)
+90 ;;=GLAUCOMA - OPEN ANGLE^8^34
+91 ;;^UTILITY(U,$J,358.4,343,0)
+92 ;;=GLAUCOMA - CLOSED ANGLE^9^34
+93 ;;^UTILITY(U,$J,358.4,344,0)
+94 ;;=GLAUCOMA - SECONDARY^10^34
+95 ;;^UTILITY(U,$J,358.4,345,0)
+96 ;;=RETINA - CHOROID / TUMORS / INFLAM^14^34
+97 ;;^UTILITY(U,$J,358.4,346,0)
+98 ;;=RETINA - TEAR / PERIPH / DEGENERATION^15^34
+99 ;;^UTILITY(U,$J,358.4,347,0)
+100 ;;=RETINA - MACULA^11^34
+101 ;;^UTILITY(U,$J,358.4,348,0)
+102 ;;=SUICIDE IDEATIONS/ATTEMPTS^23^34
+103 ;;^UTILITY(U,$J,358.4,349,0)
+104 ;;=PMH / OTHER^22^34
+105 ;;^UTILITY(U,$J,358.4,350,0)
+106 ;;=RETINA - VEGF INJECT DX CODES^16^34
+107 ;;^UTILITY(U,$J,358.4,351,0)
+108 ;;=RETINA - DIABETIC RETINOPATHY^13^34
+109 ;;^UTILITY(U,$J,358.4,352,0)
+110 ;;=NEW PATIENT^2^35
+111 ;;^UTILITY(U,$J,358.4,353,0)
+112 ;;=ESTABLISHED PATIENT^1^35
