IBDEI1LX ; ; 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,62,0)
;;=BREASTS and GYN NEOPLASMS^3^9
;;^UTILITY(U,$J,358.4,63,0)
;;=COAGULATION DISORDERS^4^9
;;^UTILITY(U,$J,358.4,64,0)
;;=COUNSELING AND SCREENING^5^9
;;^UTILITY(U,$J,358.4,65,0)
;;=GENITOURINARY NEOPLASMS^6^9
;;^UTILITY(U,$J,358.4,66,0)
;;=GI CANCER^7^9
;;^UTILITY(U,$J,358.4,67,0)
;;=HEAD NECK AND LUNGS NEOPLASMS^8^9
;;^UTILITY(U,$J,358.4,68,0)
;;=HEMOGLOBINOPATHIES^9^9
;;^UTILITY(U,$J,358.4,69,0)
;;=LYMPHOID NEOPLASMS^10^9
;;^UTILITY(U,$J,358.4,70,0)
;;=METASTATIC SITES^13^9
;;^UTILITY(U,$J,358.4,71,0)
;;=MALIGNANT NEOPLASMS OF OTHER SITES^11^9
;;^UTILITY(U,$J,358.4,72,0)
;;=MYELOID NEOPLASMS AND DISORDERS^14^9
;;^UTILITY(U,$J,358.4,73,0)
;;=NEOPLASM OF UNCERTAIN BEHAVIOR^15^9
;;^UTILITY(U,$J,358.4,74,0)
;;=NEOPLASM OF UNSPECIFIED NATURE^16^9
;;^UTILITY(U,$J,358.4,75,0)
;;=PERSONAL HISTORY^19^9
;;^UTILITY(U,$J,358.4,76,0)
;;=MALNUTRITION^12^9
;;^UTILITY(U,$J,358.4,77,0)
;;=OTHER^18^9
;;^UTILITY(U,$J,358.4,78,0)
;;=SUICIDE IDEATIONS/ATTEMPTS^20^9
;;^UTILITY(U,$J,358.4,79,0)
;;=ACOUSTIC NERVE INJURIES^1^10
;;^UTILITY(U,$J,358.4,80,0)
;;=AUDITORY DISORDERS^2^10
;;^UTILITY(U,$J,358.4,81,0)
;;=BALANCE DISORDERS^3^10
;;^UTILITY(U,$J,358.4,82,0)
;;=BAROTRAUMA^4^10
;;^UTILITY(U,$J,358.4,83,0)
;;=EAR DISEASE^5^10
;;^UTILITY(U,$J,358.4,84,0)
;;=FOREIGN BODIES^7^10
;;^UTILITY(U,$J,358.4,85,0)
;;=HEARING LOSS^8^10
;;^UTILITY(U,$J,358.4,86,0)
;;=NOISE INJURIES^9^10
;;^UTILITY(U,$J,358.4,87,0)
;;=NYSTAGMUS^10^10
;;^UTILITY(U,$J,358.4,88,0)
;;=OTOTOXICITY^11^10
;;^UTILITY(U,$J,358.4,89,0)
;;=PURPOSE OF ENCOUNTER/HEALTH STATUS^12^10
;;^UTILITY(U,$J,358.4,90,0)
;;=EXTERNAL EAR DISEASES^6^10
;;^UTILITY(U,$J,358.4,91,0)
;;=NEW PATIENT^2^11
;;^UTILITY(U,$J,358.4,92,0)
;;=ESTABLISHED PATIENT^1^11
;;^UTILITY(U,$J,358.4,93,0)
;;=CONSULTATIONS^3^11
;;^UTILITY(U,$J,358.4,94,0)
;;=AUDIOLOGIC FUNCTION TESTS^1^12
;;^UTILITY(U,$J,358.4,95,0)
;;=SCREENING^12^12
;;^UTILITY(U,$J,358.4,96,0)
;;=COCHLEAR IMPLANT^2^12
;;^UTILITY(U,$J,358.4,97,0)
;;=OTHER TREATMENT^9^12
;;^UTILITY(U,$J,358.4,98,0)
;;=DISPENSING^4^12
;;^UTILITY(U,$J,358.4,99,0)
;;=REMOVAL FOREIGN BODY/CERUMEN^11^12
;;^UTILITY(U,$J,358.4,100,0)
;;=VESTIBULAR FUNCT W/ RECORDING^14^12
;;^UTILITY(U,$J,358.4,101,0)
;;=VESTIBULAR FUNCT W/O RECORDING^15^12
;;^UTILITY(U,$J,358.4,102,0)
;;=EVALUATIVE & THERAPEUTIC SVCS^5^12
;;^UTILITY(U,$J,358.4,103,0)
;;=TEAM CONFERENCE^13^12
;;^UTILITY(U,$J,358.4,104,0)
;;=PROLONGED CLINICAL STAFF SERVICES^10^12
;;^UTILITY(U,$J,358.4,105,0)
;;=OTHER SERVICES^8^12
;;^UTILITY(U,$J,358.4,106,0)
;;=DEVICES & EQUIPMENT^3^12
;;^UTILITY(U,$J,358.4,107,0)
;;=EXCISION^6^12
;;^UTILITY(U,$J,358.4,108,0)
;;=INCISION^7^12
;;^UTILITY(U,$J,358.4,109,0)
;;=NEW PATIENT^2^13
;;^UTILITY(U,$J,358.4,110,0)
;;=ESTABLISHED PATIENT^1^13
;;^UTILITY(U,$J,358.4,111,0)
;;=CONSULTATIONS^3^13
;;^UTILITY(U,$J,358.4,112,0)
;;=ARRHYTHMIA^3^14
;;^UTILITY(U,$J,358.4,113,0)
;;=CHEST PAIN^4^14
;;^UTILITY(U,$J,358.4,114,0)
;;=CHF/MYOPATHY/TRANSPLANT^5^14
;;^UTILITY(U,$J,358.4,115,0)
;;=CORONARY ATHEROSCLEROSIS^6^14
;;^UTILITY(U,$J,358.4,116,0)
;;=GENERAL SYMPTOMS^9^14
;;^UTILITY(U,$J,358.4,117,0)
;;=HISTORY^12^14
;;^UTILITY(U,$J,358.4,118,0)
;;=HYPERTENSION/HYPOTENSION^13^14
;;^UTILITY(U,$J,358.4,119,0)
;;=INFECTION/INFLM DISEASE^14^14
;;^UTILITY(U,$J,358.4,120,0)
;;=LIPID DISORDER^15^14
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI1LX 3788 printed Sep 23, 2025@19:47:17 Page 2
IBDEI1LX ; ; 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,62,0)
+2 ;;=BREASTS and GYN NEOPLASMS^3^9
+3 ;;^UTILITY(U,$J,358.4,63,0)
+4 ;;=COAGULATION DISORDERS^4^9
+5 ;;^UTILITY(U,$J,358.4,64,0)
+6 ;;=COUNSELING AND SCREENING^5^9
+7 ;;^UTILITY(U,$J,358.4,65,0)
+8 ;;=GENITOURINARY NEOPLASMS^6^9
+9 ;;^UTILITY(U,$J,358.4,66,0)
+10 ;;=GI CANCER^7^9
+11 ;;^UTILITY(U,$J,358.4,67,0)
+12 ;;=HEAD NECK AND LUNGS NEOPLASMS^8^9
+13 ;;^UTILITY(U,$J,358.4,68,0)
+14 ;;=HEMOGLOBINOPATHIES^9^9
+15 ;;^UTILITY(U,$J,358.4,69,0)
+16 ;;=LYMPHOID NEOPLASMS^10^9
+17 ;;^UTILITY(U,$J,358.4,70,0)
+18 ;;=METASTATIC SITES^13^9
+19 ;;^UTILITY(U,$J,358.4,71,0)
+20 ;;=MALIGNANT NEOPLASMS OF OTHER SITES^11^9
+21 ;;^UTILITY(U,$J,358.4,72,0)
+22 ;;=MYELOID NEOPLASMS AND DISORDERS^14^9
+23 ;;^UTILITY(U,$J,358.4,73,0)
+24 ;;=NEOPLASM OF UNCERTAIN BEHAVIOR^15^9
+25 ;;^UTILITY(U,$J,358.4,74,0)
+26 ;;=NEOPLASM OF UNSPECIFIED NATURE^16^9
+27 ;;^UTILITY(U,$J,358.4,75,0)
+28 ;;=PERSONAL HISTORY^19^9
+29 ;;^UTILITY(U,$J,358.4,76,0)
+30 ;;=MALNUTRITION^12^9
+31 ;;^UTILITY(U,$J,358.4,77,0)
+32 ;;=OTHER^18^9
+33 ;;^UTILITY(U,$J,358.4,78,0)
+34 ;;=SUICIDE IDEATIONS/ATTEMPTS^20^9
+35 ;;^UTILITY(U,$J,358.4,79,0)
+36 ;;=ACOUSTIC NERVE INJURIES^1^10
+37 ;;^UTILITY(U,$J,358.4,80,0)
+38 ;;=AUDITORY DISORDERS^2^10
+39 ;;^UTILITY(U,$J,358.4,81,0)
+40 ;;=BALANCE DISORDERS^3^10
+41 ;;^UTILITY(U,$J,358.4,82,0)
+42 ;;=BAROTRAUMA^4^10
+43 ;;^UTILITY(U,$J,358.4,83,0)
+44 ;;=EAR DISEASE^5^10
+45 ;;^UTILITY(U,$J,358.4,84,0)
+46 ;;=FOREIGN BODIES^7^10
+47 ;;^UTILITY(U,$J,358.4,85,0)
+48 ;;=HEARING LOSS^8^10
+49 ;;^UTILITY(U,$J,358.4,86,0)
+50 ;;=NOISE INJURIES^9^10
+51 ;;^UTILITY(U,$J,358.4,87,0)
+52 ;;=NYSTAGMUS^10^10
+53 ;;^UTILITY(U,$J,358.4,88,0)
+54 ;;=OTOTOXICITY^11^10
+55 ;;^UTILITY(U,$J,358.4,89,0)
+56 ;;=PURPOSE OF ENCOUNTER/HEALTH STATUS^12^10
+57 ;;^UTILITY(U,$J,358.4,90,0)
+58 ;;=EXTERNAL EAR DISEASES^6^10
+59 ;;^UTILITY(U,$J,358.4,91,0)
+60 ;;=NEW PATIENT^2^11
+61 ;;^UTILITY(U,$J,358.4,92,0)
+62 ;;=ESTABLISHED PATIENT^1^11
+63 ;;^UTILITY(U,$J,358.4,93,0)
+64 ;;=CONSULTATIONS^3^11
+65 ;;^UTILITY(U,$J,358.4,94,0)
+66 ;;=AUDIOLOGIC FUNCTION TESTS^1^12
+67 ;;^UTILITY(U,$J,358.4,95,0)
+68 ;;=SCREENING^12^12
+69 ;;^UTILITY(U,$J,358.4,96,0)
+70 ;;=COCHLEAR IMPLANT^2^12
+71 ;;^UTILITY(U,$J,358.4,97,0)
+72 ;;=OTHER TREATMENT^9^12
+73 ;;^UTILITY(U,$J,358.4,98,0)
+74 ;;=DISPENSING^4^12
+75 ;;^UTILITY(U,$J,358.4,99,0)
+76 ;;=REMOVAL FOREIGN BODY/CERUMEN^11^12
+77 ;;^UTILITY(U,$J,358.4,100,0)
+78 ;;=VESTIBULAR FUNCT W/ RECORDING^14^12
+79 ;;^UTILITY(U,$J,358.4,101,0)
+80 ;;=VESTIBULAR FUNCT W/O RECORDING^15^12
+81 ;;^UTILITY(U,$J,358.4,102,0)
+82 ;;=EVALUATIVE & THERAPEUTIC SVCS^5^12
+83 ;;^UTILITY(U,$J,358.4,103,0)
+84 ;;=TEAM CONFERENCE^13^12
+85 ;;^UTILITY(U,$J,358.4,104,0)
+86 ;;=PROLONGED CLINICAL STAFF SERVICES^10^12
+87 ;;^UTILITY(U,$J,358.4,105,0)
+88 ;;=OTHER SERVICES^8^12
+89 ;;^UTILITY(U,$J,358.4,106,0)
+90 ;;=DEVICES & EQUIPMENT^3^12
+91 ;;^UTILITY(U,$J,358.4,107,0)
+92 ;;=EXCISION^6^12
+93 ;;^UTILITY(U,$J,358.4,108,0)
+94 ;;=INCISION^7^12
+95 ;;^UTILITY(U,$J,358.4,109,0)
+96 ;;=NEW PATIENT^2^13
+97 ;;^UTILITY(U,$J,358.4,110,0)
+98 ;;=ESTABLISHED PATIENT^1^13
+99 ;;^UTILITY(U,$J,358.4,111,0)
+100 ;;=CONSULTATIONS^3^13
+101 ;;^UTILITY(U,$J,358.4,112,0)
+102 ;;=ARRHYTHMIA^3^14
+103 ;;^UTILITY(U,$J,358.4,113,0)
+104 ;;=CHEST PAIN^4^14
+105 ;;^UTILITY(U,$J,358.4,114,0)
+106 ;;=CHF/MYOPATHY/TRANSPLANT^5^14
+107 ;;^UTILITY(U,$J,358.4,115,0)
+108 ;;=CORONARY ATHEROSCLEROSIS^6^14
+109 ;;^UTILITY(U,$J,358.4,116,0)
+110 ;;=GENERAL SYMPTOMS^9^14
+111 ;;^UTILITY(U,$J,358.4,117,0)
+112 ;;=HISTORY^12^14
+113 ;;^UTILITY(U,$J,358.4,118,0)
+114 ;;=HYPERTENSION/HYPOTENSION^13^14
+115 ;;^UTILITY(U,$J,358.4,119,0)
+116 ;;=INFECTION/INFLM DISEASE^14^14
+117 ;;^UTILITY(U,$J,358.4,120,0)
+118 ;;=LIPID DISORDER^15^14
