IBDEI3HZ ; ; 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,250,0)
;;=EAR/HEARING^7^28
;;^UTILITY(U,$J,358.4,251,0)
;;=EAR/HEARING-VESTIBULAR FUNCTION^8^28
;;^UTILITY(U,$J,358.4,252,0)
;;=ENDOCRINE/METABOLIC/NUTRITIONAL^9^28
;;^UTILITY(U,$J,358.4,253,0)
;;=EYE/VISION DISORDERS^10^28
;;^UTILITY(U,$J,358.4,254,0)
;;=FALLS-INITIAL^11^28
;;^UTILITY(U,$J,358.4,255,0)
;;=GENITOURINARY^15^28
;;^UTILITY(U,$J,358.4,256,0)
;;=INFECTION^16^28
;;^UTILITY(U,$J,358.4,257,0)
;;=KIDNEY/RENAL^17^28
;;^UTILITY(U,$J,358.4,258,0)
;;=MUSCULOSKELETAL/CONNECTIVE TISSUE^19^28
;;^UTILITY(U,$J,358.4,259,0)
;;=NEUROLOGICAL/CEREBROVASCULAR^20^28
;;^UTILITY(U,$J,358.4,260,0)
;;=PAIN^21^28
;;^UTILITY(U,$J,358.4,261,0)
;;=PULMONARY/RESPIRATORY^22^28
;;^UTILITY(U,$J,358.4,262,0)
;;=SLEEP DISORDERS^23^28
;;^UTILITY(U,$J,358.4,263,0)
;;=SYMPTOMS/OTHER CONDITIONS^24^28
;;^UTILITY(U,$J,358.4,264,0)
;;=FALLS-SEQUELA^12^28
;;^UTILITY(U,$J,358.4,265,0)
;;=FALLS-SUBSEQUENT^13^28
;;^UTILITY(U,$J,358.4,266,0)
;;=FUNCTION/GAIT/MOBILITY^14^28
;;^UTILITY(U,$J,358.4,267,0)
;;=NEW PATIENT^1^29
;;^UTILITY(U,$J,358.4,268,0)
;;=ESTABLISHED PATIENT^2^29
;;^UTILITY(U,$J,358.4,269,0)
;;=EDUCATION & TRAINING FOR SELF MGMT^3^29
;;^UTILITY(U,$J,358.4,270,0)
;;=MEDICATION ADMIN^4^29
;;^UTILITY(U,$J,358.4,271,0)
;;=ANTICOAGULATION^1^30
;;^UTILITY(U,$J,358.4,272,0)
;;=PAIN^5^30
;;^UTILITY(U,$J,358.4,273,0)
;;=MENTAL HEALTH^4^30
;;^UTILITY(U,$J,358.4,274,0)
;;=ENDOCRINE^3^30
;;^UTILITY(U,$J,358.4,275,0)
;;=CARDIOVASCULAR^2^30
;;^UTILITY(U,$J,358.4,276,0)
;;=RESPIRATORY^6^30
;;^UTILITY(U,$J,358.4,277,0)
;;=OTHER^7^30
;;^UTILITY(U,$J,358.4,278,0)
;;=MENTAL HEALTH^6^31
;;^UTILITY(U,$J,358.4,279,0)
;;=MEDICAL^4^31
;;^UTILITY(U,$J,358.4,280,0)
;;=AUDIOLOGY^1^31
;;^UTILITY(U,$J,358.4,281,0)
;;=SEPARATION HEALTH ASSESSMENT (SHA)^8^31
;;^UTILITY(U,$J,358.4,282,0)
;;=DENTAL^3^31
;;^UTILITY(U,$J,358.4,283,0)
;;=DBQ REFERRAL w/o 21-2507^2^31
;;^UTILITY(U,$J,358.4,284,0)
;;=MEDICAL OFCR OF DAY (MOD)^5^31
;;^UTILITY(U,$J,358.4,285,0)
;;=OPTOMETRY/OPHTHALMOLOGY^7^31
;;^UTILITY(U,$J,358.4,286,0)
;;=LENGTHY/COMPLEX C-FILE REVIEW^3^32
;;^UTILITY(U,$J,358.4,287,0)
;;=EKG^2^32
;;^UTILITY(U,$J,358.4,288,0)
;;=RESPIRATORY/PFT^4^32
;;^UTILITY(U,$J,358.4,289,0)
;;=SHA/IDES EXAM^5^32
;;^UTILITY(U,$J,358.4,290,0)
;;=ACE EVAL C&P w/ TOV^1^32
;;^UTILITY(U,$J,358.4,291,0)
;;=PRIMARY DIAGNOSIS^1^33
;;^UTILITY(U,$J,358.4,292,0)
;;=AUDIOLOGY^2^33
;;^UTILITY(U,$J,358.4,293,0)
;;=DENTAL^3^33
;;^UTILITY(U,$J,358.4,294,0)
;;=MEDICAL^4^33
;;^UTILITY(U,$J,358.4,295,0)
;;=MENTAL HEALTH^5^33
;;^UTILITY(U,$J,358.4,296,0)
;;=OPTOMETRY/OPHTHALMOLOGY^6^33
;;^UTILITY(U,$J,358.4,297,0)
;;=SECONDARY Z CODES^1^34
;;^UTILITY(U,$J,358.4,298,0)
;;=INPATIENT ADMISSION VISIT^2^35
;;^UTILITY(U,$J,358.4,299,0)
;;=INPATIENT CONSULTS^1^35
;;^UTILITY(U,$J,358.4,300,0)
;;=INPATIENT SUBSEQUENT VISIT^3^35
;;^UTILITY(U,$J,358.4,301,0)
;;=DISCHARGE VISIT^4^35
;;^UTILITY(U,$J,358.4,302,0)
;;=OBSERVATION ADMISSION^5^35
;;^UTILITY(U,$J,358.4,303,0)
;;=OBSERVATION DISCHARGE^7^35
;;^UTILITY(U,$J,358.4,304,0)
;;=OBSERVATION SUBSEQUENT VISIT^6^35
;;^UTILITY(U,$J,358.4,305,0)
;;=BEDSIDE PROCEDURES^1^36
;;^UTILITY(U,$J,358.4,306,0)
;;=BLOODS,ARTERIAL & VENOUS^2^36
;;^UTILITY(U,$J,358.4,307,0)
;;=BRONCHOSCOPY^3^36
;;^UTILITY(U,$J,358.4,308,0)
;;=EXERCISE TESTING^4^36
;;^UTILITY(U,$J,358.4,309,0)
;;=OXIMETRY^6^36
;;^UTILITY(U,$J,358.4,310,0)
;;=PULMONARY FUCTION TESTING^7^36
;;^UTILITY(U,$J,358.4,311,0)
;;=RESPIRATORY THERAPY^8^36
;;^UTILITY(U,$J,358.4,312,0)
;;=THORACENTESIS^10^36
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI3HZ 3985 printed Sep 23, 2025@20:25:11 Page 2
IBDEI3HZ ; ; 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,250,0)
+2 ;;=EAR/HEARING^7^28
+3 ;;^UTILITY(U,$J,358.4,251,0)
+4 ;;=EAR/HEARING-VESTIBULAR FUNCTION^8^28
+5 ;;^UTILITY(U,$J,358.4,252,0)
+6 ;;=ENDOCRINE/METABOLIC/NUTRITIONAL^9^28
+7 ;;^UTILITY(U,$J,358.4,253,0)
+8 ;;=EYE/VISION DISORDERS^10^28
+9 ;;^UTILITY(U,$J,358.4,254,0)
+10 ;;=FALLS-INITIAL^11^28
+11 ;;^UTILITY(U,$J,358.4,255,0)
+12 ;;=GENITOURINARY^15^28
+13 ;;^UTILITY(U,$J,358.4,256,0)
+14 ;;=INFECTION^16^28
+15 ;;^UTILITY(U,$J,358.4,257,0)
+16 ;;=KIDNEY/RENAL^17^28
+17 ;;^UTILITY(U,$J,358.4,258,0)
+18 ;;=MUSCULOSKELETAL/CONNECTIVE TISSUE^19^28
+19 ;;^UTILITY(U,$J,358.4,259,0)
+20 ;;=NEUROLOGICAL/CEREBROVASCULAR^20^28
+21 ;;^UTILITY(U,$J,358.4,260,0)
+22 ;;=PAIN^21^28
+23 ;;^UTILITY(U,$J,358.4,261,0)
+24 ;;=PULMONARY/RESPIRATORY^22^28
+25 ;;^UTILITY(U,$J,358.4,262,0)
+26 ;;=SLEEP DISORDERS^23^28
+27 ;;^UTILITY(U,$J,358.4,263,0)
+28 ;;=SYMPTOMS/OTHER CONDITIONS^24^28
+29 ;;^UTILITY(U,$J,358.4,264,0)
+30 ;;=FALLS-SEQUELA^12^28
+31 ;;^UTILITY(U,$J,358.4,265,0)
+32 ;;=FALLS-SUBSEQUENT^13^28
+33 ;;^UTILITY(U,$J,358.4,266,0)
+34 ;;=FUNCTION/GAIT/MOBILITY^14^28
+35 ;;^UTILITY(U,$J,358.4,267,0)
+36 ;;=NEW PATIENT^1^29
+37 ;;^UTILITY(U,$J,358.4,268,0)
+38 ;;=ESTABLISHED PATIENT^2^29
+39 ;;^UTILITY(U,$J,358.4,269,0)
+40 ;;=EDUCATION & TRAINING FOR SELF MGMT^3^29
+41 ;;^UTILITY(U,$J,358.4,270,0)
+42 ;;=MEDICATION ADMIN^4^29
+43 ;;^UTILITY(U,$J,358.4,271,0)
+44 ;;=ANTICOAGULATION^1^30
+45 ;;^UTILITY(U,$J,358.4,272,0)
+46 ;;=PAIN^5^30
+47 ;;^UTILITY(U,$J,358.4,273,0)
+48 ;;=MENTAL HEALTH^4^30
+49 ;;^UTILITY(U,$J,358.4,274,0)
+50 ;;=ENDOCRINE^3^30
+51 ;;^UTILITY(U,$J,358.4,275,0)
+52 ;;=CARDIOVASCULAR^2^30
+53 ;;^UTILITY(U,$J,358.4,276,0)
+54 ;;=RESPIRATORY^6^30
+55 ;;^UTILITY(U,$J,358.4,277,0)
+56 ;;=OTHER^7^30
+57 ;;^UTILITY(U,$J,358.4,278,0)
+58 ;;=MENTAL HEALTH^6^31
+59 ;;^UTILITY(U,$J,358.4,279,0)
+60 ;;=MEDICAL^4^31
+61 ;;^UTILITY(U,$J,358.4,280,0)
+62 ;;=AUDIOLOGY^1^31
+63 ;;^UTILITY(U,$J,358.4,281,0)
+64 ;;=SEPARATION HEALTH ASSESSMENT (SHA)^8^31
+65 ;;^UTILITY(U,$J,358.4,282,0)
+66 ;;=DENTAL^3^31
+67 ;;^UTILITY(U,$J,358.4,283,0)
+68 ;;=DBQ REFERRAL w/o 21-2507^2^31
+69 ;;^UTILITY(U,$J,358.4,284,0)
+70 ;;=MEDICAL OFCR OF DAY (MOD)^5^31
+71 ;;^UTILITY(U,$J,358.4,285,0)
+72 ;;=OPTOMETRY/OPHTHALMOLOGY^7^31
+73 ;;^UTILITY(U,$J,358.4,286,0)
+74 ;;=LENGTHY/COMPLEX C-FILE REVIEW^3^32
+75 ;;^UTILITY(U,$J,358.4,287,0)
+76 ;;=EKG^2^32
+77 ;;^UTILITY(U,$J,358.4,288,0)
+78 ;;=RESPIRATORY/PFT^4^32
+79 ;;^UTILITY(U,$J,358.4,289,0)
+80 ;;=SHA/IDES EXAM^5^32
+81 ;;^UTILITY(U,$J,358.4,290,0)
+82 ;;=ACE EVAL C&P w/ TOV^1^32
+83 ;;^UTILITY(U,$J,358.4,291,0)
+84 ;;=PRIMARY DIAGNOSIS^1^33
+85 ;;^UTILITY(U,$J,358.4,292,0)
+86 ;;=AUDIOLOGY^2^33
+87 ;;^UTILITY(U,$J,358.4,293,0)
+88 ;;=DENTAL^3^33
+89 ;;^UTILITY(U,$J,358.4,294,0)
+90 ;;=MEDICAL^4^33
+91 ;;^UTILITY(U,$J,358.4,295,0)
+92 ;;=MENTAL HEALTH^5^33
+93 ;;^UTILITY(U,$J,358.4,296,0)
+94 ;;=OPTOMETRY/OPHTHALMOLOGY^6^33
+95 ;;^UTILITY(U,$J,358.4,297,0)
+96 ;;=SECONDARY Z CODES^1^34
+97 ;;^UTILITY(U,$J,358.4,298,0)
+98 ;;=INPATIENT ADMISSION VISIT^2^35
+99 ;;^UTILITY(U,$J,358.4,299,0)
+100 ;;=INPATIENT CONSULTS^1^35
+101 ;;^UTILITY(U,$J,358.4,300,0)
+102 ;;=INPATIENT SUBSEQUENT VISIT^3^35
+103 ;;^UTILITY(U,$J,358.4,301,0)
+104 ;;=DISCHARGE VISIT^4^35
+105 ;;^UTILITY(U,$J,358.4,302,0)
+106 ;;=OBSERVATION ADMISSION^5^35
+107 ;;^UTILITY(U,$J,358.4,303,0)
+108 ;;=OBSERVATION DISCHARGE^7^35
+109 ;;^UTILITY(U,$J,358.4,304,0)
+110 ;;=OBSERVATION SUBSEQUENT VISIT^6^35
+111 ;;^UTILITY(U,$J,358.4,305,0)
+112 ;;=BEDSIDE PROCEDURES^1^36
+113 ;;^UTILITY(U,$J,358.4,306,0)
+114 ;;=BLOODS,ARTERIAL & VENOUS^2^36
+115 ;;^UTILITY(U,$J,358.4,307,0)
+116 ;;=BRONCHOSCOPY^3^36
+117 ;;^UTILITY(U,$J,358.4,308,0)
+118 ;;=EXERCISE TESTING^4^36
+119 ;;^UTILITY(U,$J,358.4,309,0)
+120 ;;=OXIMETRY^6^36
+121 ;;^UTILITY(U,$J,358.4,310,0)
+122 ;;=PULMONARY FUCTION TESTING^7^36
+123 ;;^UTILITY(U,$J,358.4,311,0)
+124 ;;=RESPIRATORY THERAPY^8^36
+125 ;;^UTILITY(U,$J,358.4,312,0)
+126 ;;=THORACENTESIS^10^36
