IBDEI3BM ; ; 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,1676,0)
;;=SUICIDE IDEATIONS/ATTEMPTS^22^128
;;^UTILITY(U,$J,358.4,1677,0)
;;=FAMILY HX EYE DISORDERS^17^128
;;^UTILITY(U,$J,358.4,1678,0)
;;=BLIND REHAB SERVICE CODES^11^129
;;^UTILITY(U,$J,358.4,1679,0)
;;=REFRACT/GLASSES/CL^4^129
;;^UTILITY(U,$J,358.4,1680,0)
;;=VISUAL FIELDS^6^129
;;^UTILITY(U,$J,358.4,1681,0)
;;=PHOTOGRAPHY^5^129
;;^UTILITY(U,$J,358.4,1682,0)
;;=LOW VISION^10^129
;;^UTILITY(U,$J,358.4,1683,0)
;;=SPECIAL PROCEDURES^7^129
;;^UTILITY(U,$J,358.4,1684,0)
;;=TEAM MEETINGS/CASE MANAGEMENT^9^129
;;^UTILITY(U,$J,358.4,1685,0)
;;=DILATED EXAM DIABETIC^1^129
;;^UTILITY(U,$J,358.4,1686,0)
;;=PROLONGED SVCS (W/ 99201-99215)^2^129
;;^UTILITY(U,$J,358.4,1687,0)
;;=EDUCATION/COUNSELING^8^129
;;^UTILITY(U,$J,358.4,1688,0)
;;=PROLONGED SVCS (W/O DIRECT PT CONTACT)^3^129
;;^UTILITY(U,$J,358.4,1689,0)
;;=INJECTION/ASPIRATION^3^130
;;^UTILITY(U,$J,358.4,1690,0)
;;=FRACTURE DISLOCATION^2^130
;;^UTILITY(U,$J,358.4,1691,0)
;;=APPLICATION CASTS/STRAPPING^1^130
;;^UTILITY(U,$J,358.4,1692,0)
;;=OTHER/REMOVAL/REVISION^4^130
;;^UTILITY(U,$J,358.4,1693,0)
;;=SUPPLIES/SOFT GOODS^8^130
;;^UTILITY(U,$J,358.4,1694,0)
;;=SUPPLIES/DRUGS^7^130
;;^UTILITY(U,$J,358.4,1695,0)
;;=REPAIR/CLOSURE-SIMPLE^6^130
;;^UTILITY(U,$J,358.4,1696,0)
;;=PROLONGED SERVICE^5^130
;;^UTILITY(U,$J,358.4,1697,0)
;;=NEW PATIENT^2^131
;;^UTILITY(U,$J,358.4,1698,0)
;;=ESTABLISHED PATIENT^1^131
;;^UTILITY(U,$J,358.4,1699,0)
;;=CONSULTATIONS^3^131
;;^UTILITY(U,$J,358.4,1700,0)
;;=POST OP^4^131
;;^UTILITY(U,$J,358.4,1701,0)
;;=ANKLE^3^132
;;^UTILITY(U,$J,358.4,1702,0)
;;=ELBOW^4^132
;;^UTILITY(U,$J,358.4,1703,0)
;;=FEMUR/THIGH^5^132
;;^UTILITY(U,$J,358.4,1704,0)
;;=FOOT/TOE^6^132
;;^UTILITY(U,$J,358.4,1705,0)
;;=FOREARM^7^132
;;^UTILITY(U,$J,358.4,1706,0)
;;=HAND/FINGER^8^132
;;^UTILITY(U,$J,358.4,1707,0)
;;=HUMERUS^9^132
;;^UTILITY(U,$J,358.4,1708,0)
;;=KNEE^10^132
;;^UTILITY(U,$J,358.4,1709,0)
;;=OTHER ^12^132
;;^UTILITY(U,$J,358.4,1710,0)
;;=PAIN^13^132
;;^UTILITY(U,$J,358.4,1711,0)
;;=PELVIS/HIP^14^132
;;^UTILITY(U,$J,358.4,1712,0)
;;=SHOULDER^17^132
;;^UTILITY(U,$J,358.4,1713,0)
;;=TIBIA/FIBULA^20^132
;;^UTILITY(U,$J,358.4,1714,0)
;;=WRIST^21^132
;;^UTILITY(U,$J,358.4,1715,0)
;;=AMPUTATION STATUS^2^132
;;^UTILITY(U,$J,358.4,1716,0)
;;=SECONDARY DX ONLY^15^132
;;^UTILITY(U,$J,358.4,1717,0)
;;=AFTERCARE/POST-OP/JOINT/SUTURE/DRESSING^1^132
;;^UTILITY(U,$J,358.4,1718,0)
;;=SPINE^18^132
;;^UTILITY(U,$J,358.4,1719,0)
;;=SUICIDE IDEATIONS/ATTEMPTS^19^132
;;^UTILITY(U,$J,358.4,1720,0)
;;=PEER SERVICES^1^133
;;^UTILITY(U,$J,358.4,1721,0)
;;=ABUSE,NEGLECT, & VIOLENCE^1^134
;;^UTILITY(U,$J,358.4,1722,0)
;;=ANXIETY DISORDERS^2^134
;;^UTILITY(U,$J,358.4,1723,0)
;;=BIPOLAR & RELATED DISORDERS^3^134
;;^UTILITY(U,$J,358.4,1724,0)
;;=NEUROCOGNITIVE DISORDERS^17^134
;;^UTILITY(U,$J,358.4,1725,0)
;;=DEPRESSIVE DISORDERS^7^134
;;^UTILITY(U,$J,358.4,1726,0)
;;=DISSOCIATIVE DISORDERS ^9^134
;;^UTILITY(U,$J,358.4,1727,0)
;;=FEEDING & EATING DISORDERS^12^134
;;^UTILITY(U,$J,358.4,1728,0)
;;=EDUC/OCCUPATIONAL PROBLEMS^10^134
;;^UTILITY(U,$J,358.4,1729,0)
;;=GENDER DYSPHORIA^14^134
;;^UTILITY(U,$J,358.4,1730,0)
;;=HOUSING/ECONOMIC PROBLEMS^15^134
;;^UTILITY(U,$J,358.4,1731,0)
;;=MEDICATION ADVERSE EFFECTS^16^134
;;^UTILITY(U,$J,358.4,1732,0)
;;=OBSESSIVE-COMPULSIVE & RELATED DISORDERS^19^134
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI3BM 3793 printed Dec 13, 2024@02:45:36 Page 2
IBDEI3BM ; ; 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,1676,0)
+2 ;;=SUICIDE IDEATIONS/ATTEMPTS^22^128
+3 ;;^UTILITY(U,$J,358.4,1677,0)
+4 ;;=FAMILY HX EYE DISORDERS^17^128
+5 ;;^UTILITY(U,$J,358.4,1678,0)
+6 ;;=BLIND REHAB SERVICE CODES^11^129
+7 ;;^UTILITY(U,$J,358.4,1679,0)
+8 ;;=REFRACT/GLASSES/CL^4^129
+9 ;;^UTILITY(U,$J,358.4,1680,0)
+10 ;;=VISUAL FIELDS^6^129
+11 ;;^UTILITY(U,$J,358.4,1681,0)
+12 ;;=PHOTOGRAPHY^5^129
+13 ;;^UTILITY(U,$J,358.4,1682,0)
+14 ;;=LOW VISION^10^129
+15 ;;^UTILITY(U,$J,358.4,1683,0)
+16 ;;=SPECIAL PROCEDURES^7^129
+17 ;;^UTILITY(U,$J,358.4,1684,0)
+18 ;;=TEAM MEETINGS/CASE MANAGEMENT^9^129
+19 ;;^UTILITY(U,$J,358.4,1685,0)
+20 ;;=DILATED EXAM DIABETIC^1^129
+21 ;;^UTILITY(U,$J,358.4,1686,0)
+22 ;;=PROLONGED SVCS (W/ 99201-99215)^2^129
+23 ;;^UTILITY(U,$J,358.4,1687,0)
+24 ;;=EDUCATION/COUNSELING^8^129
+25 ;;^UTILITY(U,$J,358.4,1688,0)
+26 ;;=PROLONGED SVCS (W/O DIRECT PT CONTACT)^3^129
+27 ;;^UTILITY(U,$J,358.4,1689,0)
+28 ;;=INJECTION/ASPIRATION^3^130
+29 ;;^UTILITY(U,$J,358.4,1690,0)
+30 ;;=FRACTURE DISLOCATION^2^130
+31 ;;^UTILITY(U,$J,358.4,1691,0)
+32 ;;=APPLICATION CASTS/STRAPPING^1^130
+33 ;;^UTILITY(U,$J,358.4,1692,0)
+34 ;;=OTHER/REMOVAL/REVISION^4^130
+35 ;;^UTILITY(U,$J,358.4,1693,0)
+36 ;;=SUPPLIES/SOFT GOODS^8^130
+37 ;;^UTILITY(U,$J,358.4,1694,0)
+38 ;;=SUPPLIES/DRUGS^7^130
+39 ;;^UTILITY(U,$J,358.4,1695,0)
+40 ;;=REPAIR/CLOSURE-SIMPLE^6^130
+41 ;;^UTILITY(U,$J,358.4,1696,0)
+42 ;;=PROLONGED SERVICE^5^130
+43 ;;^UTILITY(U,$J,358.4,1697,0)
+44 ;;=NEW PATIENT^2^131
+45 ;;^UTILITY(U,$J,358.4,1698,0)
+46 ;;=ESTABLISHED PATIENT^1^131
+47 ;;^UTILITY(U,$J,358.4,1699,0)
+48 ;;=CONSULTATIONS^3^131
+49 ;;^UTILITY(U,$J,358.4,1700,0)
+50 ;;=POST OP^4^131
+51 ;;^UTILITY(U,$J,358.4,1701,0)
+52 ;;=ANKLE^3^132
+53 ;;^UTILITY(U,$J,358.4,1702,0)
+54 ;;=ELBOW^4^132
+55 ;;^UTILITY(U,$J,358.4,1703,0)
+56 ;;=FEMUR/THIGH^5^132
+57 ;;^UTILITY(U,$J,358.4,1704,0)
+58 ;;=FOOT/TOE^6^132
+59 ;;^UTILITY(U,$J,358.4,1705,0)
+60 ;;=FOREARM^7^132
+61 ;;^UTILITY(U,$J,358.4,1706,0)
+62 ;;=HAND/FINGER^8^132
+63 ;;^UTILITY(U,$J,358.4,1707,0)
+64 ;;=HUMERUS^9^132
+65 ;;^UTILITY(U,$J,358.4,1708,0)
+66 ;;=KNEE^10^132
+67 ;;^UTILITY(U,$J,358.4,1709,0)
+68 ;;=OTHER ^12^132
+69 ;;^UTILITY(U,$J,358.4,1710,0)
+70 ;;=PAIN^13^132
+71 ;;^UTILITY(U,$J,358.4,1711,0)
+72 ;;=PELVIS/HIP^14^132
+73 ;;^UTILITY(U,$J,358.4,1712,0)
+74 ;;=SHOULDER^17^132
+75 ;;^UTILITY(U,$J,358.4,1713,0)
+76 ;;=TIBIA/FIBULA^20^132
+77 ;;^UTILITY(U,$J,358.4,1714,0)
+78 ;;=WRIST^21^132
+79 ;;^UTILITY(U,$J,358.4,1715,0)
+80 ;;=AMPUTATION STATUS^2^132
+81 ;;^UTILITY(U,$J,358.4,1716,0)
+82 ;;=SECONDARY DX ONLY^15^132
+83 ;;^UTILITY(U,$J,358.4,1717,0)
+84 ;;=AFTERCARE/POST-OP/JOINT/SUTURE/DRESSING^1^132
+85 ;;^UTILITY(U,$J,358.4,1718,0)
+86 ;;=SPINE^18^132
+87 ;;^UTILITY(U,$J,358.4,1719,0)
+88 ;;=SUICIDE IDEATIONS/ATTEMPTS^19^132
+89 ;;^UTILITY(U,$J,358.4,1720,0)
+90 ;;=PEER SERVICES^1^133
+91 ;;^UTILITY(U,$J,358.4,1721,0)
+92 ;;=ABUSE,NEGLECT, & VIOLENCE^1^134
+93 ;;^UTILITY(U,$J,358.4,1722,0)
+94 ;;=ANXIETY DISORDERS^2^134
+95 ;;^UTILITY(U,$J,358.4,1723,0)
+96 ;;=BIPOLAR & RELATED DISORDERS^3^134
+97 ;;^UTILITY(U,$J,358.4,1724,0)
+98 ;;=NEUROCOGNITIVE DISORDERS^17^134
+99 ;;^UTILITY(U,$J,358.4,1725,0)
+100 ;;=DEPRESSIVE DISORDERS^7^134
+101 ;;^UTILITY(U,$J,358.4,1726,0)
+102 ;;=DISSOCIATIVE DISORDERS ^9^134
+103 ;;^UTILITY(U,$J,358.4,1727,0)
+104 ;;=FEEDING & EATING DISORDERS^12^134
+105 ;;^UTILITY(U,$J,358.4,1728,0)
+106 ;;=EDUC/OCCUPATIONAL PROBLEMS^10^134
+107 ;;^UTILITY(U,$J,358.4,1729,0)
+108 ;;=GENDER DYSPHORIA^14^134
+109 ;;^UTILITY(U,$J,358.4,1730,0)
+110 ;;=HOUSING/ECONOMIC PROBLEMS^15^134
+111 ;;^UTILITY(U,$J,358.4,1731,0)
+112 ;;=MEDICATION ADVERSE EFFECTS^16^134
+113 ;;^UTILITY(U,$J,358.4,1732,0)
+114 ;;=OBSESSIVE-COMPULSIVE & RELATED DISORDERS^19^134