IBDEI3IQ ; ; 19-NOV-2015
;;3.0;IB ENCOUNTER FORM IMP/EXP;;JUN 29, 2015
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,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
Q Q
;;^UTILITY(U,$J,358.4,1875,0)
;;=CONSULTATIONS^3^171
;;^UTILITY(U,$J,358.4,1876,0)
;;=POST OP^4^171
;;^UTILITY(U,$J,358.4,1877,0)
;;=ANKLE^2^172
;;^UTILITY(U,$J,358.4,1878,0)
;;=ELBOW^3^172
;;^UTILITY(U,$J,358.4,1879,0)
;;=FEMUR/THIGH^5^172
;;^UTILITY(U,$J,358.4,1880,0)
;;=FOOT/TOE^7^172
;;^UTILITY(U,$J,358.4,1881,0)
;;=FOREARM^8^172
;;^UTILITY(U,$J,358.4,1882,0)
;;=HAND/FINGER^9^172
;;^UTILITY(U,$J,358.4,1883,0)
;;=HUMERUS^10^172
;;^UTILITY(U,$J,358.4,1884,0)
;;=KNEE^11^172
;;^UTILITY(U,$J,358.4,1885,0)
;;=OTHER ^12^172
;;^UTILITY(U,$J,358.4,1886,0)
;;=PAIN^13^172
;;^UTILITY(U,$J,358.4,1887,0)
;;=PELVIS/HIP^14^172
;;^UTILITY(U,$J,358.4,1888,0)
;;=SHOULDER^17^172
;;^UTILITY(U,$J,358.4,1889,0)
;;=TIBIA/FIBULA^18^172
;;^UTILITY(U,$J,358.4,1890,0)
;;=WRIST^19^172
;;^UTILITY(U,$J,358.4,1891,0)
;;=AMPUTATION STATUS^1^172
;;^UTILITY(U,$J,358.4,1892,0)
;;=POST-OP/FOLLOW-UP CARE SUTURES/DRESSINGS^15^172
;;^UTILITY(U,$J,358.4,1893,0)
;;=F/U FOR HEALED FX^4^172
;;^UTILITY(U,$J,358.4,1894,0)
;;=SECONDARY DX ONLY^16^172
;;^UTILITY(U,$J,358.4,1895,0)
;;=ESTABLISHED PATIENT^1^173
;;^UTILITY(U,$J,358.4,1896,0)
;;=CONSULTATION-CLINICIAN^2^173
;;^UTILITY(U,$J,358.4,1897,0)
;;=NEW PATIENT^3^173
;;^UTILITY(U,$J,358.4,1898,0)
;;=NEUROLYSIS^1^174
;;^UTILITY(U,$J,358.4,1899,0)
;;=NEUROSTIMULATORS^2^174
;;^UTILITY(U,$J,358.4,1900,0)
;;=OTHER PROCEDURES^3^174
;;^UTILITY(U,$J,358.4,1901,0)
;;=SPINAL PROCEDURES/NERVE BLOCKS^4^174
;;^UTILITY(U,$J,358.4,1902,0)
;;=TEAM CONFERENCE^5^174
;;^UTILITY(U,$J,358.4,1903,0)
;;=ABDOMINAL PAIN^1^175
;;^UTILITY(U,$J,358.4,1904,0)
;;=CARDIAC^2^175
;;^UTILITY(U,$J,358.4,1905,0)
;;=DIGESTIVE SYSTEM DISEASES^3^175
;;^UTILITY(U,$J,358.4,1906,0)
;;=NERVOUS SYSTEM DISEASES^7^175
;;^UTILITY(U,$J,358.4,1907,0)
;;=GENERAL SIGNS & SYMPTOMS^4^175
;;^UTILITY(U,$J,358.4,1908,0)
;;=INFECTIOUS DISEASES^5^175
;;^UTILITY(U,$J,358.4,1909,0)
;;=MALIGNANT NEOPLASMS^6^175
;;^UTILITY(U,$J,358.4,1910,0)
;;=OTHER^8^175
;;^UTILITY(U,$J,358.4,1911,0)
;;=PRE/POST SURGERY^9^175
;;^UTILITY(U,$J,358.4,1912,0)
;;=RESPIRATORY^10^175
;;^UTILITY(U,$J,358.4,1913,0)
;;=PEER SERVICES^1^176
;;^UTILITY(U,$J,358.4,1914,0)
;;=ABUSE AND NEGLECT^1^177
;;^UTILITY(U,$J,358.4,1915,0)
;;=ANXIETY DISORDERS^3^177
;;^UTILITY(U,$J,358.4,1916,0)
;;=BIPOLAR DISORDERS^4^177
;;^UTILITY(U,$J,358.4,1917,0)
;;=DELIRIUM^7^177
;;^UTILITY(U,$J,358.4,1918,0)
;;=DEMENTIA/NEUROCOGNITIVE DISORDERS^8^177
;;^UTILITY(U,$J,358.4,1919,0)
;;=DEPRESSIVE DISORDERS^9^177
;;^UTILITY(U,$J,358.4,1920,0)
;;=DISSOCIATIVE DISORDERS ^10^177
;;^UTILITY(U,$J,358.4,1921,0)
;;=EATING DISORDERS^11^177
;;^UTILITY(U,$J,358.4,1922,0)
;;=EDUCATIONAL/OCCUPATIONAL PROBLEMS^12^177
;;^UTILITY(U,$J,358.4,1923,0)
;;=GENDER DYSPHORIA^13^177
;;^UTILITY(U,$J,358.4,1924,0)
;;=HOUSING/ECONOMIC PROBLEMS^14^177
;;^UTILITY(U,$J,358.4,1925,0)
;;=MEDICATION-INDUCED MOVEMENT DISORDERS^16^177
;;^UTILITY(U,$J,358.4,1926,0)
;;=OBSESSIVE-COMPULSIVE & RELATED DISORDERS^17^177
;;^UTILITY(U,$J,358.4,1927,0)
;;=ORGANIC DISORDERS^18^177
;;^UTILITY(U,$J,358.4,1928,0)
;;=PERSONAL HX & CURRENT CIRCUMSTANCES^20^177
;;^UTILITY(U,$J,358.4,1929,0)
;;=ADHD^2^177
;;^UTILITY(U,$J,358.4,1930,0)
;;=COUNSELING/MED ADVICE^5^177
;;^UTILITY(U,$J,358.4,1931,0)
;;=SOCIAL ENVIRONMENT PROBLEMS^28^177
;;^UTILITY(U,$J,358.4,1932,0)
;;=PARAPHILIC DISORDERS^19^177
;;^UTILITY(U,$J,358.4,1933,0)
;;=PERSONALITY DISORDERS^21^177
;;^UTILITY(U,$J,358.4,1934,0)
;;=CRIME/LEGAL SYSTEM PROBLEMS^6^177
;;^UTILITY(U,$J,358.4,1935,0)
;;=PSYCHOSOCIAL/PERSONAL/ENVIRONMENTAL^22^177
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI3IQ 4001 printed Sep 23, 2025@20:25:36 Page 2
IBDEI3IQ ; ; 19-NOV-2015
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;JUN 29, 2015
+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,99)
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,1875,0)
+2 ;;=CONSULTATIONS^3^171
+3 ;;^UTILITY(U,$J,358.4,1876,0)
+4 ;;=POST OP^4^171
+5 ;;^UTILITY(U,$J,358.4,1877,0)
+6 ;;=ANKLE^2^172
+7 ;;^UTILITY(U,$J,358.4,1878,0)
+8 ;;=ELBOW^3^172
+9 ;;^UTILITY(U,$J,358.4,1879,0)
+10 ;;=FEMUR/THIGH^5^172
+11 ;;^UTILITY(U,$J,358.4,1880,0)
+12 ;;=FOOT/TOE^7^172
+13 ;;^UTILITY(U,$J,358.4,1881,0)
+14 ;;=FOREARM^8^172
+15 ;;^UTILITY(U,$J,358.4,1882,0)
+16 ;;=HAND/FINGER^9^172
+17 ;;^UTILITY(U,$J,358.4,1883,0)
+18 ;;=HUMERUS^10^172
+19 ;;^UTILITY(U,$J,358.4,1884,0)
+20 ;;=KNEE^11^172
+21 ;;^UTILITY(U,$J,358.4,1885,0)
+22 ;;=OTHER ^12^172
+23 ;;^UTILITY(U,$J,358.4,1886,0)
+24 ;;=PAIN^13^172
+25 ;;^UTILITY(U,$J,358.4,1887,0)
+26 ;;=PELVIS/HIP^14^172
+27 ;;^UTILITY(U,$J,358.4,1888,0)
+28 ;;=SHOULDER^17^172
+29 ;;^UTILITY(U,$J,358.4,1889,0)
+30 ;;=TIBIA/FIBULA^18^172
+31 ;;^UTILITY(U,$J,358.4,1890,0)
+32 ;;=WRIST^19^172
+33 ;;^UTILITY(U,$J,358.4,1891,0)
+34 ;;=AMPUTATION STATUS^1^172
+35 ;;^UTILITY(U,$J,358.4,1892,0)
+36 ;;=POST-OP/FOLLOW-UP CARE SUTURES/DRESSINGS^15^172
+37 ;;^UTILITY(U,$J,358.4,1893,0)
+38 ;;=F/U FOR HEALED FX^4^172
+39 ;;^UTILITY(U,$J,358.4,1894,0)
+40 ;;=SECONDARY DX ONLY^16^172
+41 ;;^UTILITY(U,$J,358.4,1895,0)
+42 ;;=ESTABLISHED PATIENT^1^173
+43 ;;^UTILITY(U,$J,358.4,1896,0)
+44 ;;=CONSULTATION-CLINICIAN^2^173
+45 ;;^UTILITY(U,$J,358.4,1897,0)
+46 ;;=NEW PATIENT^3^173
+47 ;;^UTILITY(U,$J,358.4,1898,0)
+48 ;;=NEUROLYSIS^1^174
+49 ;;^UTILITY(U,$J,358.4,1899,0)
+50 ;;=NEUROSTIMULATORS^2^174
+51 ;;^UTILITY(U,$J,358.4,1900,0)
+52 ;;=OTHER PROCEDURES^3^174
+53 ;;^UTILITY(U,$J,358.4,1901,0)
+54 ;;=SPINAL PROCEDURES/NERVE BLOCKS^4^174
+55 ;;^UTILITY(U,$J,358.4,1902,0)
+56 ;;=TEAM CONFERENCE^5^174
+57 ;;^UTILITY(U,$J,358.4,1903,0)
+58 ;;=ABDOMINAL PAIN^1^175
+59 ;;^UTILITY(U,$J,358.4,1904,0)
+60 ;;=CARDIAC^2^175
+61 ;;^UTILITY(U,$J,358.4,1905,0)
+62 ;;=DIGESTIVE SYSTEM DISEASES^3^175
+63 ;;^UTILITY(U,$J,358.4,1906,0)
+64 ;;=NERVOUS SYSTEM DISEASES^7^175
+65 ;;^UTILITY(U,$J,358.4,1907,0)
+66 ;;=GENERAL SIGNS & SYMPTOMS^4^175
+67 ;;^UTILITY(U,$J,358.4,1908,0)
+68 ;;=INFECTIOUS DISEASES^5^175
+69 ;;^UTILITY(U,$J,358.4,1909,0)
+70 ;;=MALIGNANT NEOPLASMS^6^175
+71 ;;^UTILITY(U,$J,358.4,1910,0)
+72 ;;=OTHER^8^175
+73 ;;^UTILITY(U,$J,358.4,1911,0)
+74 ;;=PRE/POST SURGERY^9^175
+75 ;;^UTILITY(U,$J,358.4,1912,0)
+76 ;;=RESPIRATORY^10^175
+77 ;;^UTILITY(U,$J,358.4,1913,0)
+78 ;;=PEER SERVICES^1^176
+79 ;;^UTILITY(U,$J,358.4,1914,0)
+80 ;;=ABUSE AND NEGLECT^1^177
+81 ;;^UTILITY(U,$J,358.4,1915,0)
+82 ;;=ANXIETY DISORDERS^3^177
+83 ;;^UTILITY(U,$J,358.4,1916,0)
+84 ;;=BIPOLAR DISORDERS^4^177
+85 ;;^UTILITY(U,$J,358.4,1917,0)
+86 ;;=DELIRIUM^7^177
+87 ;;^UTILITY(U,$J,358.4,1918,0)
+88 ;;=DEMENTIA/NEUROCOGNITIVE DISORDERS^8^177
+89 ;;^UTILITY(U,$J,358.4,1919,0)
+90 ;;=DEPRESSIVE DISORDERS^9^177
+91 ;;^UTILITY(U,$J,358.4,1920,0)
+92 ;;=DISSOCIATIVE DISORDERS ^10^177
+93 ;;^UTILITY(U,$J,358.4,1921,0)
+94 ;;=EATING DISORDERS^11^177
+95 ;;^UTILITY(U,$J,358.4,1922,0)
+96 ;;=EDUCATIONAL/OCCUPATIONAL PROBLEMS^12^177
+97 ;;^UTILITY(U,$J,358.4,1923,0)
+98 ;;=GENDER DYSPHORIA^13^177
+99 ;;^UTILITY(U,$J,358.4,1924,0)
+100 ;;=HOUSING/ECONOMIC PROBLEMS^14^177
+101 ;;^UTILITY(U,$J,358.4,1925,0)
+102 ;;=MEDICATION-INDUCED MOVEMENT DISORDERS^16^177
+103 ;;^UTILITY(U,$J,358.4,1926,0)
+104 ;;=OBSESSIVE-COMPULSIVE & RELATED DISORDERS^17^177
+105 ;;^UTILITY(U,$J,358.4,1927,0)
+106 ;;=ORGANIC DISORDERS^18^177
+107 ;;^UTILITY(U,$J,358.4,1928,0)
+108 ;;=PERSONAL HX & CURRENT CIRCUMSTANCES^20^177
+109 ;;^UTILITY(U,$J,358.4,1929,0)
+110 ;;=ADHD^2^177
+111 ;;^UTILITY(U,$J,358.4,1930,0)
+112 ;;=COUNSELING/MED ADVICE^5^177
+113 ;;^UTILITY(U,$J,358.4,1931,0)
+114 ;;=SOCIAL ENVIRONMENT PROBLEMS^28^177
+115 ;;^UTILITY(U,$J,358.4,1932,0)
+116 ;;=PARAPHILIC DISORDERS^19^177
+117 ;;^UTILITY(U,$J,358.4,1933,0)
+118 ;;=PERSONALITY DISORDERS^21^177
+119 ;;^UTILITY(U,$J,358.4,1934,0)
+120 ;;=CRIME/LEGAL SYSTEM PROBLEMS^6^177
+121 ;;^UTILITY(U,$J,358.4,1935,0)
+122 ;;=PSYCHOSOCIAL/PERSONAL/ENVIRONMENTAL^22^177
