IBDEI1MA ; ; 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,816,0)
;;=RESPIRATORY THERAPY^10^62
;;^UTILITY(U,$J,358.4,817,0)
;;=BRONCHOSCOPY^2^62
;;^UTILITY(U,$J,358.4,818,0)
;;=EXERCISE TESTING^3^62
;;^UTILITY(U,$J,358.4,819,0)
;;=IMMUNIZATION ADMINISTRATION^4^62
;;^UTILITY(U,$J,358.4,820,0)
;;=IMMUNIZATIONS^5^62
;;^UTILITY(U,$J,358.4,821,0)
;;=TRACHEOSTOMY^12^62
;;^UTILITY(U,$J,358.4,822,0)
;;=PROLONGED SVC W/O PT^8^62
;;^UTILITY(U,$J,358.4,823,0)
;;=MISCELLANEOUS^6^62
;;^UTILITY(U,$J,358.4,824,0)
;;=NEW PATIENT^2^63
;;^UTILITY(U,$J,358.4,825,0)
;;=ESTABLISHED PATIENT^1^63
;;^UTILITY(U,$J,358.4,826,0)
;;=CONSULTATIONS^3^63
;;^UTILITY(U,$J,358.4,827,0)
;;=POST OP^4^63
;;^UTILITY(U,$J,358.4,828,0)
;;=COMMON PULMONARY DX^1^64
;;^UTILITY(U,$J,358.4,829,0)
;;=SLEEP DISORDERS^22^64
;;^UTILITY(U,$J,358.4,830,0)
;;=OBSTRUCTIVE SLEEP APNEA^15^64
;;^UTILITY(U,$J,358.4,831,0)
;;=OTHER^27^64
;;^UTILITY(U,$J,358.4,832,0)
;;=CANCER^2^64
;;^UTILITY(U,$J,358.4,833,0)
;;=CARDIAC^3^64
;;^UTILITY(U,$J,358.4,834,0)
;;=ENDOCRINE^4^64
;;^UTILITY(U,$J,358.4,835,0)
;;=ENT^5^64
;;^UTILITY(U,$J,358.4,836,0)
;;=GASTROINTESTINAL^6^64
;;^UTILITY(U,$J,358.4,837,0)
;;=GENITOURINARY/RENAL^7^64
;;^UTILITY(U,$J,358.4,838,0)
;;=HEMATOLOGIC/LYMPHATIC^8^64
;;^UTILITY(U,$J,358.4,839,0)
;;=HEPATIC/BILIARY^9^64
;;^UTILITY(U,$J,358.4,840,0)
;;=INFECTIOUS DISEASE^10^64
;;^UTILITY(U,$J,358.4,841,0)
;;=INTERSTITIAL LUNG DISEASE^11^64
;;^UTILITY(U,$J,358.4,842,0)
;;=MUSCULOSKELETAL^12^64
;;^UTILITY(U,$J,358.4,843,0)
;;=SUTURES^24^64
;;^UTILITY(U,$J,358.4,844,0)
;;=RADIATION^20^64
;;^UTILITY(U,$J,358.4,845,0)
;;=OCCUPATIONAL^16^64
;;^UTILITY(U,$J,358.4,846,0)
;;=PAIN^17^64
;;^UTILITY(U,$J,358.4,847,0)
;;=PLEURAL DISEASE^18^64
;;^UTILITY(U,$J,358.4,848,0)
;;=PSYCHIATRIC/BEHAVIORAL^19^64
;;^UTILITY(U,$J,358.4,849,0)
;;=SKIN^21^64
;;^UTILITY(U,$J,358.4,850,0)
;;=NEUROLOGIC^13^64
;;^UTILITY(U,$J,358.4,851,0)
;;=OBSTRUCTIVE DISEASE^14^64
;;^UTILITY(U,$J,358.4,852,0)
;;=VASCULAR^26^64
;;^UTILITY(U,$J,358.4,853,0)
;;=SYMPTOMS^25^64
;;^UTILITY(U,$J,358.4,854,0)
;;=SUICIDE IDEATIONS/ATTEMPTS^23^64
;;^UTILITY(U,$J,358.4,855,0)
;;=NEW PATIENT (MD ONLY)^2^65
;;^UTILITY(U,$J,358.4,856,0)
;;=ESTABLISHED PATIENT (MD ONLY)^1^65
;;^UTILITY(U,$J,358.4,857,0)
;;=CONSULTATIONS (MD ONLY)^3^65
;;^UTILITY(U,$J,358.4,858,0)
;;=THERAPY MODALITIES/PROCEDURES^17^66
;;^UTILITY(U,$J,358.4,859,0)
;;=DRUGS/MEDICATION^3^66
;;^UTILITY(U,$J,358.4,860,0)
;;=ORTHOTIC DEVICES^9^66
;;^UTILITY(U,$J,358.4,861,0)
;;=THERAPY INTERVENTIONS^16^66
;;^UTILITY(U,$J,358.4,862,0)
;;=THERAPY EVALUATIONS^15^66
;;^UTILITY(U,$J,358.4,863,0)
;;=WOUND CARE^18^66
;;^UTILITY(U,$J,358.4,864,0)
;;=CARDIAC REHAB^2^66
;;^UTILITY(U,$J,358.4,865,0)
;;=EDUCATION/TRAINING^5^66
;;^UTILITY(U,$J,358.4,866,0)
;;=NEUROMUSCULAR TESTING^8^66
;;^UTILITY(U,$J,358.4,867,0)
;;=TEAM CONFERENCE^13^66
;;^UTILITY(U,$J,358.4,868,0)
;;=HEALTH BEHAVIORS^6^66
;;^UTILITY(U,$J,358.4,869,0)
;;=RECREATION THERAPY^11^66
;;^UTILITY(U,$J,358.4,870,0)
;;=TENS^14^66
;;^UTILITY(U,$J,358.4,871,0)
;;=ACUPUNCTURE^1^66
;;^UTILITY(U,$J,358.4,872,0)
;;=INJECTIONS^7^66
;;^UTILITY(U,$J,358.4,873,0)
;;=SPINAL CORD STIMULATOR^12^66
;;^UTILITY(U,$J,358.4,874,0)
;;=DRY NEEDLING^4^66
;;^UTILITY(U,$J,358.4,875,0)
;;=PULMONARY REHAB^10^66
;;^UTILITY(U,$J,358.4,876,0)
;;=AMPUTATION STATUS^1^67
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI1MA 3765 printed Sep 23, 2025@19:47:30 Page 2
IBDEI1MA ; ; 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,816,0)
+2 ;;=RESPIRATORY THERAPY^10^62
+3 ;;^UTILITY(U,$J,358.4,817,0)
+4 ;;=BRONCHOSCOPY^2^62
+5 ;;^UTILITY(U,$J,358.4,818,0)
+6 ;;=EXERCISE TESTING^3^62
+7 ;;^UTILITY(U,$J,358.4,819,0)
+8 ;;=IMMUNIZATION ADMINISTRATION^4^62
+9 ;;^UTILITY(U,$J,358.4,820,0)
+10 ;;=IMMUNIZATIONS^5^62
+11 ;;^UTILITY(U,$J,358.4,821,0)
+12 ;;=TRACHEOSTOMY^12^62
+13 ;;^UTILITY(U,$J,358.4,822,0)
+14 ;;=PROLONGED SVC W/O PT^8^62
+15 ;;^UTILITY(U,$J,358.4,823,0)
+16 ;;=MISCELLANEOUS^6^62
+17 ;;^UTILITY(U,$J,358.4,824,0)
+18 ;;=NEW PATIENT^2^63
+19 ;;^UTILITY(U,$J,358.4,825,0)
+20 ;;=ESTABLISHED PATIENT^1^63
+21 ;;^UTILITY(U,$J,358.4,826,0)
+22 ;;=CONSULTATIONS^3^63
+23 ;;^UTILITY(U,$J,358.4,827,0)
+24 ;;=POST OP^4^63
+25 ;;^UTILITY(U,$J,358.4,828,0)
+26 ;;=COMMON PULMONARY DX^1^64
+27 ;;^UTILITY(U,$J,358.4,829,0)
+28 ;;=SLEEP DISORDERS^22^64
+29 ;;^UTILITY(U,$J,358.4,830,0)
+30 ;;=OBSTRUCTIVE SLEEP APNEA^15^64
+31 ;;^UTILITY(U,$J,358.4,831,0)
+32 ;;=OTHER^27^64
+33 ;;^UTILITY(U,$J,358.4,832,0)
+34 ;;=CANCER^2^64
+35 ;;^UTILITY(U,$J,358.4,833,0)
+36 ;;=CARDIAC^3^64
+37 ;;^UTILITY(U,$J,358.4,834,0)
+38 ;;=ENDOCRINE^4^64
+39 ;;^UTILITY(U,$J,358.4,835,0)
+40 ;;=ENT^5^64
+41 ;;^UTILITY(U,$J,358.4,836,0)
+42 ;;=GASTROINTESTINAL^6^64
+43 ;;^UTILITY(U,$J,358.4,837,0)
+44 ;;=GENITOURINARY/RENAL^7^64
+45 ;;^UTILITY(U,$J,358.4,838,0)
+46 ;;=HEMATOLOGIC/LYMPHATIC^8^64
+47 ;;^UTILITY(U,$J,358.4,839,0)
+48 ;;=HEPATIC/BILIARY^9^64
+49 ;;^UTILITY(U,$J,358.4,840,0)
+50 ;;=INFECTIOUS DISEASE^10^64
+51 ;;^UTILITY(U,$J,358.4,841,0)
+52 ;;=INTERSTITIAL LUNG DISEASE^11^64
+53 ;;^UTILITY(U,$J,358.4,842,0)
+54 ;;=MUSCULOSKELETAL^12^64
+55 ;;^UTILITY(U,$J,358.4,843,0)
+56 ;;=SUTURES^24^64
+57 ;;^UTILITY(U,$J,358.4,844,0)
+58 ;;=RADIATION^20^64
+59 ;;^UTILITY(U,$J,358.4,845,0)
+60 ;;=OCCUPATIONAL^16^64
+61 ;;^UTILITY(U,$J,358.4,846,0)
+62 ;;=PAIN^17^64
+63 ;;^UTILITY(U,$J,358.4,847,0)
+64 ;;=PLEURAL DISEASE^18^64
+65 ;;^UTILITY(U,$J,358.4,848,0)
+66 ;;=PSYCHIATRIC/BEHAVIORAL^19^64
+67 ;;^UTILITY(U,$J,358.4,849,0)
+68 ;;=SKIN^21^64
+69 ;;^UTILITY(U,$J,358.4,850,0)
+70 ;;=NEUROLOGIC^13^64
+71 ;;^UTILITY(U,$J,358.4,851,0)
+72 ;;=OBSTRUCTIVE DISEASE^14^64
+73 ;;^UTILITY(U,$J,358.4,852,0)
+74 ;;=VASCULAR^26^64
+75 ;;^UTILITY(U,$J,358.4,853,0)
+76 ;;=SYMPTOMS^25^64
+77 ;;^UTILITY(U,$J,358.4,854,0)
+78 ;;=SUICIDE IDEATIONS/ATTEMPTS^23^64
+79 ;;^UTILITY(U,$J,358.4,855,0)
+80 ;;=NEW PATIENT (MD ONLY)^2^65
+81 ;;^UTILITY(U,$J,358.4,856,0)
+82 ;;=ESTABLISHED PATIENT (MD ONLY)^1^65
+83 ;;^UTILITY(U,$J,358.4,857,0)
+84 ;;=CONSULTATIONS (MD ONLY)^3^65
+85 ;;^UTILITY(U,$J,358.4,858,0)
+86 ;;=THERAPY MODALITIES/PROCEDURES^17^66
+87 ;;^UTILITY(U,$J,358.4,859,0)
+88 ;;=DRUGS/MEDICATION^3^66
+89 ;;^UTILITY(U,$J,358.4,860,0)
+90 ;;=ORTHOTIC DEVICES^9^66
+91 ;;^UTILITY(U,$J,358.4,861,0)
+92 ;;=THERAPY INTERVENTIONS^16^66
+93 ;;^UTILITY(U,$J,358.4,862,0)
+94 ;;=THERAPY EVALUATIONS^15^66
+95 ;;^UTILITY(U,$J,358.4,863,0)
+96 ;;=WOUND CARE^18^66
+97 ;;^UTILITY(U,$J,358.4,864,0)
+98 ;;=CARDIAC REHAB^2^66
+99 ;;^UTILITY(U,$J,358.4,865,0)
+100 ;;=EDUCATION/TRAINING^5^66
+101 ;;^UTILITY(U,$J,358.4,866,0)
+102 ;;=NEUROMUSCULAR TESTING^8^66
+103 ;;^UTILITY(U,$J,358.4,867,0)
+104 ;;=TEAM CONFERENCE^13^66
+105 ;;^UTILITY(U,$J,358.4,868,0)
+106 ;;=HEALTH BEHAVIORS^6^66
+107 ;;^UTILITY(U,$J,358.4,869,0)
+108 ;;=RECREATION THERAPY^11^66
+109 ;;^UTILITY(U,$J,358.4,870,0)
+110 ;;=TENS^14^66
+111 ;;^UTILITY(U,$J,358.4,871,0)
+112 ;;=ACUPUNCTURE^1^66
+113 ;;^UTILITY(U,$J,358.4,872,0)
+114 ;;=INJECTIONS^7^66
+115 ;;^UTILITY(U,$J,358.4,873,0)
+116 ;;=SPINAL CORD STIMULATOR^12^66
+117 ;;^UTILITY(U,$J,358.4,874,0)
+118 ;;=DRY NEEDLING^4^66
+119 ;;^UTILITY(U,$J,358.4,875,0)
+120 ;;=PULMONARY REHAB^10^66
+121 ;;^UTILITY(U,$J,358.4,876,0)
+122 ;;=AMPUTATION STATUS^1^67
