IBDEI3HW ; ; 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,58,0)
;;=TRAUMA/STRESSOR-RELATED DISORDERS^40^3
;;^UTILITY(U,$J,358.4,59,0)
;;=SUBSTANCE ABUSE-INHALANT^35^3
;;^UTILITY(U,$J,358.4,60,0)
;;=INTELLECTUAL DISABILITIES^15^3
;;^UTILITY(U,$J,358.4,61,0)
;;=RESEARCH^24^3
;;^UTILITY(U,$J,358.4,62,0)
;;=SOMATOFORM DISORDERS^29^3
;;^UTILITY(U,$J,358.4,63,0)
;;=ESTABLISHED PATIENT^1^4
;;^UTILITY(U,$J,358.4,64,0)
;;=CARE PLAN OVERSIGHT^1^5
;;^UTILITY(U,$J,358.4,65,0)
;;=OTHER SERVICES^2^5
;;^UTILITY(U,$J,358.4,66,0)
;;=CASE MANAGEMENT^3^5
;;^UTILITY(U,$J,358.4,67,0)
;;=CARDIOVASCULAR DISORDERS^1^6
;;^UTILITY(U,$J,358.4,68,0)
;;=CONDITIONS AFFECTING HEALTH CARE STATUS^2^6
;;^UTILITY(U,$J,358.4,69,0)
;;=DIABETES^4^6
;;^UTILITY(U,$J,358.4,70,0)
;;=EYE & EAR DISORDERS^4^6
;;^UTILITY(U,$J,358.4,71,0)
;;=MENTAL HEALTH^5^6
;;^UTILITY(U,$J,358.4,72,0)
;;=NEOPLASMS^6^6
;;^UTILITY(U,$J,358.4,73,0)
;;=NEUROLOGICAL CONDITIONS^7^6
;;^UTILITY(U,$J,358.4,74,0)
;;=OTHER CONDITIONS^8^6
;;^UTILITY(U,$J,358.4,75,0)
;;=RESPIRATORY DISORDERS^9^6
;;^UTILITY(U,$J,358.4,76,0)
;;=DEMENTIA^3^6
;;^UTILITY(U,$J,358.4,77,0)
;;=NEW PATIENT^2^7
;;^UTILITY(U,$J,358.4,78,0)
;;=ESTABLISHED PATIENT^1^7
;;^UTILITY(U,$J,358.4,79,0)
;;=CONSULTATIONS^3^7
;;^UTILITY(U,$J,358.4,80,0)
;;=IMMUNIZATION^4^8
;;^UTILITY(U,$J,358.4,81,0)
;;=SKIN TEST^9^8
;;^UTILITY(U,$J,358.4,82,0)
;;=ALLERGENIC EXTRACT^1^8
;;^UTILITY(U,$J,358.4,83,0)
;;=PATCH TESTS^8^8
;;^UTILITY(U,$J,358.4,84,0)
;;=ALLERGY INJECTION/EXTRACT^2^8
;;^UTILITY(U,$J,358.4,85,0)
;;=LABORATORY^6^8
;;^UTILITY(U,$J,358.4,86,0)
;;=INFUSIONS^5^8
;;^UTILITY(U,$J,358.4,87,0)
;;=OTHER^7^8
;;^UTILITY(U,$J,358.4,88,0)
;;=ALLERGY DIAGNOSES^1^9
;;^UTILITY(U,$J,358.4,89,0)
;;=IMMUNODEFICIENCY^2^9
;;^UTILITY(U,$J,358.4,90,0)
;;=OTHER^3^9
;;^UTILITY(U,$J,358.4,91,0)
;;=PRE-OP VISIT^1^10
;;^UTILITY(U,$J,358.4,92,0)
;;=CONSULTATION-CLINICIAN^2^10
;;^UTILITY(U,$J,358.4,93,0)
;;=POST-OP VISIT^3^10
;;^UTILITY(U,$J,358.4,94,0)
;;=NERVE BLOCK^13^11
;;^UTILITY(U,$J,358.4,95,0)
;;=CATH^2^11
;;^UTILITY(U,$J,358.4,96,0)
;;=CVA DEVICE^4^11
;;^UTILITY(U,$J,358.4,97,0)
;;=EPIDURAL^5^11
;;^UTILITY(U,$J,358.4,98,0)
;;=FOREARM/WRIST/HAND^6^11
;;^UTILITY(U,$J,358.4,99,0)
;;=HEAD^6^11
;;^UTILITY(U,$J,358.4,100,0)
;;=INTRATHORACIC^8^11
;;^UTILITY(U,$J,358.4,101,0)
;;=IV^9^11
;;^UTILITY(U,$J,358.4,102,0)
;;=LOWER ABDOMEN^10^11
;;^UTILITY(U,$J,358.4,103,0)
;;=LOWER LEG^11^11
;;^UTILITY(U,$J,358.4,104,0)
;;=NECK^12^11
;;^UTILITY(U,$J,358.4,105,0)
;;=ARTERIAL^1^11
;;^UTILITY(U,$J,358.4,106,0)
;;=OTHER^14^11
;;^UTILITY(U,$J,358.4,107,0)
;;=PELVIS^15^11
;;^UTILITY(U,$J,358.4,108,0)
;;=RADIOLOGICAL PROCEDURE^16^11
;;^UTILITY(U,$J,358.4,109,0)
;;=SHOULDER/AXILLA^17^11
;;^UTILITY(U,$J,358.4,110,0)
;;=SPINAL NERVES^18^11
;;^UTILITY(U,$J,358.4,111,0)
;;=SPINE/SPINAL CORD^19^11
;;^UTILITY(U,$J,358.4,112,0)
;;=TEE^20^11
;;^UTILITY(U,$J,358.4,113,0)
;;=THORAX^21^11
;;^UTILITY(U,$J,358.4,114,0)
;;=UPPER ABDOMEN^22^11
;;^UTILITY(U,$J,358.4,115,0)
;;=UPPER ARM/ELBOW^23^11
;;^UTILITY(U,$J,358.4,116,0)
;;=UPPER LEG^24^11
;;^UTILITY(U,$J,358.4,117,0)
;;=CRITICAL CARE^3^11
;;^UTILITY(U,$J,358.4,118,0)
;;=INJECT-SPINE^7^11
;;^UTILITY(U,$J,358.4,119,0)
;;=A DIAGNOSIS^1^12
;;^UTILITY(U,$J,358.4,120,0)
;;=B DIAGNOSIS^2^12
;;^UTILITY(U,$J,358.4,121,0)
;;=C DIAGNOSIS^3^12
;;^UTILITY(U,$J,358.4,122,0)
;;=CANCER (NOT MELANOMA)^4^12
;;^UTILITY(U,$J,358.4,123,0)
;;=D DIAGNOSIS^5^12
;;^UTILITY(U,$J,358.4,124,0)
;;=E/F DIAGNOSIS^6^12
;;^UTILITY(U,$J,358.4,125,0)
;;=G DIAGNOSIS^7^12
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI3HW 3982 printed Sep 23, 2025@20:25:09 Page 2
IBDEI3HW ; ; 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,58,0)
+2 ;;=TRAUMA/STRESSOR-RELATED DISORDERS^40^3
+3 ;;^UTILITY(U,$J,358.4,59,0)
+4 ;;=SUBSTANCE ABUSE-INHALANT^35^3
+5 ;;^UTILITY(U,$J,358.4,60,0)
+6 ;;=INTELLECTUAL DISABILITIES^15^3
+7 ;;^UTILITY(U,$J,358.4,61,0)
+8 ;;=RESEARCH^24^3
+9 ;;^UTILITY(U,$J,358.4,62,0)
+10 ;;=SOMATOFORM DISORDERS^29^3
+11 ;;^UTILITY(U,$J,358.4,63,0)
+12 ;;=ESTABLISHED PATIENT^1^4
+13 ;;^UTILITY(U,$J,358.4,64,0)
+14 ;;=CARE PLAN OVERSIGHT^1^5
+15 ;;^UTILITY(U,$J,358.4,65,0)
+16 ;;=OTHER SERVICES^2^5
+17 ;;^UTILITY(U,$J,358.4,66,0)
+18 ;;=CASE MANAGEMENT^3^5
+19 ;;^UTILITY(U,$J,358.4,67,0)
+20 ;;=CARDIOVASCULAR DISORDERS^1^6
+21 ;;^UTILITY(U,$J,358.4,68,0)
+22 ;;=CONDITIONS AFFECTING HEALTH CARE STATUS^2^6
+23 ;;^UTILITY(U,$J,358.4,69,0)
+24 ;;=DIABETES^4^6
+25 ;;^UTILITY(U,$J,358.4,70,0)
+26 ;;=EYE & EAR DISORDERS^4^6
+27 ;;^UTILITY(U,$J,358.4,71,0)
+28 ;;=MENTAL HEALTH^5^6
+29 ;;^UTILITY(U,$J,358.4,72,0)
+30 ;;=NEOPLASMS^6^6
+31 ;;^UTILITY(U,$J,358.4,73,0)
+32 ;;=NEUROLOGICAL CONDITIONS^7^6
+33 ;;^UTILITY(U,$J,358.4,74,0)
+34 ;;=OTHER CONDITIONS^8^6
+35 ;;^UTILITY(U,$J,358.4,75,0)
+36 ;;=RESPIRATORY DISORDERS^9^6
+37 ;;^UTILITY(U,$J,358.4,76,0)
+38 ;;=DEMENTIA^3^6
+39 ;;^UTILITY(U,$J,358.4,77,0)
+40 ;;=NEW PATIENT^2^7
+41 ;;^UTILITY(U,$J,358.4,78,0)
+42 ;;=ESTABLISHED PATIENT^1^7
+43 ;;^UTILITY(U,$J,358.4,79,0)
+44 ;;=CONSULTATIONS^3^7
+45 ;;^UTILITY(U,$J,358.4,80,0)
+46 ;;=IMMUNIZATION^4^8
+47 ;;^UTILITY(U,$J,358.4,81,0)
+48 ;;=SKIN TEST^9^8
+49 ;;^UTILITY(U,$J,358.4,82,0)
+50 ;;=ALLERGENIC EXTRACT^1^8
+51 ;;^UTILITY(U,$J,358.4,83,0)
+52 ;;=PATCH TESTS^8^8
+53 ;;^UTILITY(U,$J,358.4,84,0)
+54 ;;=ALLERGY INJECTION/EXTRACT^2^8
+55 ;;^UTILITY(U,$J,358.4,85,0)
+56 ;;=LABORATORY^6^8
+57 ;;^UTILITY(U,$J,358.4,86,0)
+58 ;;=INFUSIONS^5^8
+59 ;;^UTILITY(U,$J,358.4,87,0)
+60 ;;=OTHER^7^8
+61 ;;^UTILITY(U,$J,358.4,88,0)
+62 ;;=ALLERGY DIAGNOSES^1^9
+63 ;;^UTILITY(U,$J,358.4,89,0)
+64 ;;=IMMUNODEFICIENCY^2^9
+65 ;;^UTILITY(U,$J,358.4,90,0)
+66 ;;=OTHER^3^9
+67 ;;^UTILITY(U,$J,358.4,91,0)
+68 ;;=PRE-OP VISIT^1^10
+69 ;;^UTILITY(U,$J,358.4,92,0)
+70 ;;=CONSULTATION-CLINICIAN^2^10
+71 ;;^UTILITY(U,$J,358.4,93,0)
+72 ;;=POST-OP VISIT^3^10
+73 ;;^UTILITY(U,$J,358.4,94,0)
+74 ;;=NERVE BLOCK^13^11
+75 ;;^UTILITY(U,$J,358.4,95,0)
+76 ;;=CATH^2^11
+77 ;;^UTILITY(U,$J,358.4,96,0)
+78 ;;=CVA DEVICE^4^11
+79 ;;^UTILITY(U,$J,358.4,97,0)
+80 ;;=EPIDURAL^5^11
+81 ;;^UTILITY(U,$J,358.4,98,0)
+82 ;;=FOREARM/WRIST/HAND^6^11
+83 ;;^UTILITY(U,$J,358.4,99,0)
+84 ;;=HEAD^6^11
+85 ;;^UTILITY(U,$J,358.4,100,0)
+86 ;;=INTRATHORACIC^8^11
+87 ;;^UTILITY(U,$J,358.4,101,0)
+88 ;;=IV^9^11
+89 ;;^UTILITY(U,$J,358.4,102,0)
+90 ;;=LOWER ABDOMEN^10^11
+91 ;;^UTILITY(U,$J,358.4,103,0)
+92 ;;=LOWER LEG^11^11
+93 ;;^UTILITY(U,$J,358.4,104,0)
+94 ;;=NECK^12^11
+95 ;;^UTILITY(U,$J,358.4,105,0)
+96 ;;=ARTERIAL^1^11
+97 ;;^UTILITY(U,$J,358.4,106,0)
+98 ;;=OTHER^14^11
+99 ;;^UTILITY(U,$J,358.4,107,0)
+100 ;;=PELVIS^15^11
+101 ;;^UTILITY(U,$J,358.4,108,0)
+102 ;;=RADIOLOGICAL PROCEDURE^16^11
+103 ;;^UTILITY(U,$J,358.4,109,0)
+104 ;;=SHOULDER/AXILLA^17^11
+105 ;;^UTILITY(U,$J,358.4,110,0)
+106 ;;=SPINAL NERVES^18^11
+107 ;;^UTILITY(U,$J,358.4,111,0)
+108 ;;=SPINE/SPINAL CORD^19^11
+109 ;;^UTILITY(U,$J,358.4,112,0)
+110 ;;=TEE^20^11
+111 ;;^UTILITY(U,$J,358.4,113,0)
+112 ;;=THORAX^21^11
+113 ;;^UTILITY(U,$J,358.4,114,0)
+114 ;;=UPPER ABDOMEN^22^11
+115 ;;^UTILITY(U,$J,358.4,115,0)
+116 ;;=UPPER ARM/ELBOW^23^11
+117 ;;^UTILITY(U,$J,358.4,116,0)
+118 ;;=UPPER LEG^24^11
+119 ;;^UTILITY(U,$J,358.4,117,0)
+120 ;;=CRITICAL CARE^3^11
+121 ;;^UTILITY(U,$J,358.4,118,0)
+122 ;;=INJECT-SPINE^7^11
+123 ;;^UTILITY(U,$J,358.4,119,0)
+124 ;;=A DIAGNOSIS^1^12
+125 ;;^UTILITY(U,$J,358.4,120,0)
+126 ;;=B DIAGNOSIS^2^12
+127 ;;^UTILITY(U,$J,358.4,121,0)
+128 ;;=C DIAGNOSIS^3^12
+129 ;;^UTILITY(U,$J,358.4,122,0)
+130 ;;=CANCER (NOT MELANOMA)^4^12
+131 ;;^UTILITY(U,$J,358.4,123,0)
+132 ;;=D DIAGNOSIS^5^12
+133 ;;^UTILITY(U,$J,358.4,124,0)
+134 ;;=E/F DIAGNOSIS^6^12
+135 ;;^UTILITY(U,$J,358.4,125,0)
+136 ;;=G DIAGNOSIS^7^12
