IBDEI1M8 ; ; 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,699,0)
;;=ULTRASOUND^15^57
;;^UTILITY(U,$J,358.4,700,0)
;;=NEUROMUSCULAR RE-EDUCATION^10^57
;;^UTILITY(U,$J,358.4,701,0)
;;=INITIAL EVAL FOR TBI^13^58
;;^UTILITY(U,$J,358.4,702,0)
;;=INJURY/TRAUMA (SEQUELA)^14^58
;;^UTILITY(U,$J,358.4,703,0)
;;=LATE EFFECTS OF CVA^15^58
;;^UTILITY(U,$J,358.4,704,0)
;;=AMPUTATION STATUS^1^58
;;^UTILITY(U,$J,358.4,705,0)
;;=AUDITORY^3^58
;;^UTILITY(U,$J,358.4,706,0)
;;=BACK DIAGNOSIS^4^58
;;^UTILITY(U,$J,358.4,707,0)
;;=BRAIN DISORDERS^5^58
;;^UTILITY(U,$J,358.4,708,0)
;;=CARDIOPULMONARY^6^58
;;^UTILITY(U,$J,358.4,709,0)
;;=COGNITION^8^58
;;^UTILITY(U,$J,358.4,710,0)
;;=COMPLICATION DUE TO^9^58
;;^UTILITY(U,$J,358.4,711,0)
;;=ARTHRITIS^2^58
;;^UTILITY(U,$J,358.4,712,0)
;;=FRACTURES^11^58
;;^UTILITY(U,$J,358.4,713,0)
;;=MENTAL DISORDERS^17^58
;;^UTILITY(U,$J,358.4,714,0)
;;=MUSCULOSKELETAL/CONNECTIV^18^58
;;^UTILITY(U,$J,358.4,715,0)
;;=GENERAL SIGNS/SYMPTOMS^12^58
;;^UTILITY(U,$J,358.4,716,0)
;;=POST JOINT REPLACEMENT^20^58
;;^UTILITY(U,$J,358.4,717,0)
;;=RHEUMATOID^22^58
;;^UTILITY(U,$J,358.4,718,0)
;;=PSYCHIATRIC-PSYCHOSOC-EMO^21^58
;;^UTILITY(U,$J,358.4,719,0)
;;=SPEECH AND LANGUAGE^24^58
;;^UTILITY(U,$J,358.4,720,0)
;;=FITTING/ADJUSTMENT/AFTERCARE^10^58
;;^UTILITY(U,$J,358.4,721,0)
;;=SUICIDE IDEATIONS/ATTEMPTS^26^58
;;^UTILITY(U,$J,358.4,722,0)
;;=CERVICAL DDD^7^58
;;^UTILITY(U,$J,358.4,723,0)
;;=LUMBAR DDD^16^58
;;^UTILITY(U,$J,358.4,724,0)
;;=OSTEOARTHRITIS^19^58
;;^UTILITY(U,$J,358.4,725,0)
;;=SOMATIC DYSFUNCTION^23^58
;;^UTILITY(U,$J,358.4,726,0)
;;=THORACIC DDD^27^58
;;^UTILITY(U,$J,358.4,727,0)
;;=SPORTS PARTICIPATION^25^58
;;^UTILITY(U,$J,358.4,728,0)
;;=INJECTION^12^59
;;^UTILITY(U,$J,358.4,729,0)
;;=SKIN TEST^25^59
;;^UTILITY(U,$J,358.4,730,0)
;;=NURSING PROCEDURES^14^59
;;^UTILITY(U,$J,358.4,731,0)
;;=MINOR PROCEDURES^13^59
;;^UTILITY(U,$J,358.4,732,0)
;;=SPLINTS^26^59
;;^UTILITY(U,$J,358.4,733,0)
;;=EDUCATION/TRAINING^6^59
;;^UTILITY(U,$J,358.4,734,0)
;;=ALLERGY SHOTS^2^59
;;^UTILITY(U,$J,358.4,735,0)
;;=EKG^7^59
;;^UTILITY(U,$J,358.4,736,0)
;;=BEHAVIORAL CHANGE INTERVENTION^3^59
;;^UTILITY(U,$J,358.4,737,0)
;;=OTH PREVENTIVE MEDICINE SVCS^15^59
;;^UTILITY(U,$J,358.4,738,0)
;;=GYN PROCEDURES^8^59
;;^UTILITY(U,$J,358.4,739,0)
;;=RISK FACTOR REDUCTION^24^59
;;^UTILITY(U,$J,358.4,740,0)
;;=PREVENTIVE GROUP COUNSELING^17^59
;;^UTILITY(U,$J,358.4,741,0)
;;=PROLONGED SERVICE^21^59
;;^UTILITY(U,$J,358.4,742,0)
;;=IMMUNIZATION ADMINISTRATION^10^59
;;^UTILITY(U,$J,358.4,743,0)
;;=REPAIR-SIMPLE FACE/MUCOUS^22^59
;;^UTILITY(U,$J,358.4,744,0)
;;=REPAIR-SIMPLE SCALP/NK/TRUNK^23^59
;;^UTILITY(U,$J,358.4,745,0)
;;=PREVENTIVE MED-EST PT^18^59
;;^UTILITY(U,$J,358.4,746,0)
;;=PREVENTIVE MED-NEW PT^19^59
;;^UTILITY(U,$J,358.4,747,0)
;;=ADVANCE CARE PLANNING^1^59
;;^UTILITY(U,$J,358.4,748,0)
;;=HEALTH BEHAVIORAL ASSESSMENT^9^59
;;^UTILITY(U,$J,358.4,749,0)
;;=PHARMACY SERVICES^16^59
;;^UTILITY(U,$J,358.4,750,0)
;;=IMMUNIZATIONS^11^59
;;^UTILITY(U,$J,358.4,751,0)
;;=E-CONSULT REFERRAL^5^59
;;^UTILITY(U,$J,358.4,752,0)
;;=COVID-19 RELATED^4^59
;;^UTILITY(U,$J,358.4,753,0)
;;=PRINCIPLE CARE MANAGEMENT^20^59
;;^UTILITY(U,$J,358.4,754,0)
;;=NEW PATIENT^2^60
;;^UTILITY(U,$J,358.4,755,0)
;;=ESTABLISHED PATIENT^1^60
;;^UTILITY(U,$J,358.4,756,0)
;;=CONSULTATIONS^3^60
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI1M8 3755 printed Dec 13, 2024@02:11:27 Page 2
IBDEI1M8 ; ; 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,699,0)
+2 ;;=ULTRASOUND^15^57
+3 ;;^UTILITY(U,$J,358.4,700,0)
+4 ;;=NEUROMUSCULAR RE-EDUCATION^10^57
+5 ;;^UTILITY(U,$J,358.4,701,0)
+6 ;;=INITIAL EVAL FOR TBI^13^58
+7 ;;^UTILITY(U,$J,358.4,702,0)
+8 ;;=INJURY/TRAUMA (SEQUELA)^14^58
+9 ;;^UTILITY(U,$J,358.4,703,0)
+10 ;;=LATE EFFECTS OF CVA^15^58
+11 ;;^UTILITY(U,$J,358.4,704,0)
+12 ;;=AMPUTATION STATUS^1^58
+13 ;;^UTILITY(U,$J,358.4,705,0)
+14 ;;=AUDITORY^3^58
+15 ;;^UTILITY(U,$J,358.4,706,0)
+16 ;;=BACK DIAGNOSIS^4^58
+17 ;;^UTILITY(U,$J,358.4,707,0)
+18 ;;=BRAIN DISORDERS^5^58
+19 ;;^UTILITY(U,$J,358.4,708,0)
+20 ;;=CARDIOPULMONARY^6^58
+21 ;;^UTILITY(U,$J,358.4,709,0)
+22 ;;=COGNITION^8^58
+23 ;;^UTILITY(U,$J,358.4,710,0)
+24 ;;=COMPLICATION DUE TO^9^58
+25 ;;^UTILITY(U,$J,358.4,711,0)
+26 ;;=ARTHRITIS^2^58
+27 ;;^UTILITY(U,$J,358.4,712,0)
+28 ;;=FRACTURES^11^58
+29 ;;^UTILITY(U,$J,358.4,713,0)
+30 ;;=MENTAL DISORDERS^17^58
+31 ;;^UTILITY(U,$J,358.4,714,0)
+32 ;;=MUSCULOSKELETAL/CONNECTIV^18^58
+33 ;;^UTILITY(U,$J,358.4,715,0)
+34 ;;=GENERAL SIGNS/SYMPTOMS^12^58
+35 ;;^UTILITY(U,$J,358.4,716,0)
+36 ;;=POST JOINT REPLACEMENT^20^58
+37 ;;^UTILITY(U,$J,358.4,717,0)
+38 ;;=RHEUMATOID^22^58
+39 ;;^UTILITY(U,$J,358.4,718,0)
+40 ;;=PSYCHIATRIC-PSYCHOSOC-EMO^21^58
+41 ;;^UTILITY(U,$J,358.4,719,0)
+42 ;;=SPEECH AND LANGUAGE^24^58
+43 ;;^UTILITY(U,$J,358.4,720,0)
+44 ;;=FITTING/ADJUSTMENT/AFTERCARE^10^58
+45 ;;^UTILITY(U,$J,358.4,721,0)
+46 ;;=SUICIDE IDEATIONS/ATTEMPTS^26^58
+47 ;;^UTILITY(U,$J,358.4,722,0)
+48 ;;=CERVICAL DDD^7^58
+49 ;;^UTILITY(U,$J,358.4,723,0)
+50 ;;=LUMBAR DDD^16^58
+51 ;;^UTILITY(U,$J,358.4,724,0)
+52 ;;=OSTEOARTHRITIS^19^58
+53 ;;^UTILITY(U,$J,358.4,725,0)
+54 ;;=SOMATIC DYSFUNCTION^23^58
+55 ;;^UTILITY(U,$J,358.4,726,0)
+56 ;;=THORACIC DDD^27^58
+57 ;;^UTILITY(U,$J,358.4,727,0)
+58 ;;=SPORTS PARTICIPATION^25^58
+59 ;;^UTILITY(U,$J,358.4,728,0)
+60 ;;=INJECTION^12^59
+61 ;;^UTILITY(U,$J,358.4,729,0)
+62 ;;=SKIN TEST^25^59
+63 ;;^UTILITY(U,$J,358.4,730,0)
+64 ;;=NURSING PROCEDURES^14^59
+65 ;;^UTILITY(U,$J,358.4,731,0)
+66 ;;=MINOR PROCEDURES^13^59
+67 ;;^UTILITY(U,$J,358.4,732,0)
+68 ;;=SPLINTS^26^59
+69 ;;^UTILITY(U,$J,358.4,733,0)
+70 ;;=EDUCATION/TRAINING^6^59
+71 ;;^UTILITY(U,$J,358.4,734,0)
+72 ;;=ALLERGY SHOTS^2^59
+73 ;;^UTILITY(U,$J,358.4,735,0)
+74 ;;=EKG^7^59
+75 ;;^UTILITY(U,$J,358.4,736,0)
+76 ;;=BEHAVIORAL CHANGE INTERVENTION^3^59
+77 ;;^UTILITY(U,$J,358.4,737,0)
+78 ;;=OTH PREVENTIVE MEDICINE SVCS^15^59
+79 ;;^UTILITY(U,$J,358.4,738,0)
+80 ;;=GYN PROCEDURES^8^59
+81 ;;^UTILITY(U,$J,358.4,739,0)
+82 ;;=RISK FACTOR REDUCTION^24^59
+83 ;;^UTILITY(U,$J,358.4,740,0)
+84 ;;=PREVENTIVE GROUP COUNSELING^17^59
+85 ;;^UTILITY(U,$J,358.4,741,0)
+86 ;;=PROLONGED SERVICE^21^59
+87 ;;^UTILITY(U,$J,358.4,742,0)
+88 ;;=IMMUNIZATION ADMINISTRATION^10^59
+89 ;;^UTILITY(U,$J,358.4,743,0)
+90 ;;=REPAIR-SIMPLE FACE/MUCOUS^22^59
+91 ;;^UTILITY(U,$J,358.4,744,0)
+92 ;;=REPAIR-SIMPLE SCALP/NK/TRUNK^23^59
+93 ;;^UTILITY(U,$J,358.4,745,0)
+94 ;;=PREVENTIVE MED-EST PT^18^59
+95 ;;^UTILITY(U,$J,358.4,746,0)
+96 ;;=PREVENTIVE MED-NEW PT^19^59
+97 ;;^UTILITY(U,$J,358.4,747,0)
+98 ;;=ADVANCE CARE PLANNING^1^59
+99 ;;^UTILITY(U,$J,358.4,748,0)
+100 ;;=HEALTH BEHAVIORAL ASSESSMENT^9^59
+101 ;;^UTILITY(U,$J,358.4,749,0)
+102 ;;=PHARMACY SERVICES^16^59
+103 ;;^UTILITY(U,$J,358.4,750,0)
+104 ;;=IMMUNIZATIONS^11^59
+105 ;;^UTILITY(U,$J,358.4,751,0)
+106 ;;=E-CONSULT REFERRAL^5^59
+107 ;;^UTILITY(U,$J,358.4,752,0)
+108 ;;=COVID-19 RELATED^4^59
+109 ;;^UTILITY(U,$J,358.4,753,0)
+110 ;;=PRINCIPLE CARE MANAGEMENT^20^59
+111 ;;^UTILITY(U,$J,358.4,754,0)
+112 ;;=NEW PATIENT^2^60
+113 ;;^UTILITY(U,$J,358.4,755,0)
+114 ;;=ESTABLISHED PATIENT^1^60
+115 ;;^UTILITY(U,$J,358.4,756,0)
+116 ;;=CONSULTATIONS^3^60
