IBDEI3AW ; ; 04-FEB-2020
;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
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,238,0)
;;=INJECTION MEDICATIONS^2^37
;;^UTILITY(U,$J,358.4,239,0)
;;=ULTRASOUND^3^37
;;^UTILITY(U,$J,358.4,240,0)
;;=NEW PATIENT^2^38
;;^UTILITY(U,$J,358.4,241,0)
;;=ESTABLISHED PATIENT^1^38
;;^UTILITY(U,$J,358.4,242,0)
;;=CONSULTATIONS^3^38
;;^UTILITY(U,$J,358.4,243,0)
;;=COMMON DIAGNOSES^1^39
;;^UTILITY(U,$J,358.4,244,0)
;;=CRYSTAL ARTHROPATHIES^2^39
;;^UTILITY(U,$J,358.4,245,0)
;;=JOINT DISORDERS^6^39
;;^UTILITY(U,$J,358.4,246,0)
;;=MISCELLANEOUS^7^39
;;^UTILITY(U,$J,358.4,247,0)
;;=NERVOUS SYSTEM^8^39
;;^UTILITY(U,$J,358.4,248,0)
;;=OSTEOARTHRITIS^9^39
;;^UTILITY(U,$J,358.4,249,0)
;;=OSTEOMYELITIS^10^39
;;^UTILITY(U,$J,358.4,250,0)
;;=OSTEOPOROSIS^11^39
;;^UTILITY(U,$J,358.4,251,0)
;;=PYOGENIC ARTHRITIS^13^39
;;^UTILITY(U,$J,358.4,252,0)
;;=SPINE DISORDERS^14^39
;;^UTILITY(U,$J,358.4,253,0)
;;=TENDINITIS & BURSITIS^16^39
;;^UTILITY(U,$J,358.4,254,0)
;;=VASCULAR DISORDERS^17^39
;;^UTILITY(U,$J,358.4,255,0)
;;=VASCULITIS CONDITIONS^18^39
;;^UTILITY(U,$J,358.4,256,0)
;;=INFECTIONS^3^39
;;^UTILITY(U,$J,358.4,257,0)
;;=INT DERANGEMENT OF KNEE^4^39
;;^UTILITY(U,$J,358.4,258,0)
;;=OTHER INFLAMMATORY^12^39
;;^UTILITY(U,$J,358.4,259,0)
;;=HISTORY OF^5^39
;;^UTILITY(U,$J,358.4,260,0)
;;=SUICIDE IDEATIONS/ATTEMPTS^15^39
;;^UTILITY(U,$J,358.4,261,0)
;;=SUBSTANCE USE & MISC SERVICES^6^40
;;^UTILITY(U,$J,358.4,262,0)
;;=DIAGNOSTIC EVALUATION^1^40
;;^UTILITY(U,$J,358.4,263,0)
;;=PSYCHOTHERAPY ^4^40
;;^UTILITY(U,$J,358.4,264,0)
;;=OTHER CODES^3^40
;;^UTILITY(U,$J,358.4,265,0)
;;=TOBACCO USE CESSATION^7^40
;;^UTILITY(U,$J,358.4,266,0)
;;=MEDICATIONS^2^40
;;^UTILITY(U,$J,358.4,267,0)
;;=SELF-MANAGEMENT^5^40
;;^UTILITY(U,$J,358.4,268,0)
;;=ESTABLISHED PATIENT^1^41
;;^UTILITY(U,$J,358.4,269,0)
;;=OUTPATIENT CONSULTATIONS^3^41
;;^UTILITY(U,$J,358.4,270,0)
;;=NEW PATIENT^2^41
;;^UTILITY(U,$J,358.4,271,0)
;;=INPATIENT CONSULTATIONS^4^41
;;^UTILITY(U,$J,358.4,272,0)
;;=INITIAL HOSPITAL CARE^5^41
;;^UTILITY(U,$J,358.4,273,0)
;;=HOSPITAL CARE DISCHARGE ^7^41
;;^UTILITY(U,$J,358.4,274,0)
;;=INITIAL OBSERVATION CARE^8^41
;;^UTILITY(U,$J,358.4,275,0)
;;=OBSERVATION CARE DISCHARGE SERVICES^10^41
;;^UTILITY(U,$J,358.4,276,0)
;;=INPT or OBS ADMIT & D/C SAME DAY^11^41
;;^UTILITY(U,$J,358.4,277,0)
;;=SUBSEQUENT HOSPITAL CARE^6^41
;;^UTILITY(U,$J,358.4,278,0)
;;=OBSERVATION SUBSEQUENT CARE^9^41
;;^UTILITY(U,$J,358.4,279,0)
;;=DOMICILLIARY EST PATIENT^12^41
;;^UTILITY(U,$J,358.4,280,0)
;;=DOMICILLIARY NEW PATIENT^13^41
;;^UTILITY(U,$J,358.4,281,0)
;;=HOME VISITS EST PATIENT^14^41
;;^UTILITY(U,$J,358.4,282,0)
;;=HOME VISITS NEW PATIENT^15^41
;;^UTILITY(U,$J,358.4,283,0)
;;=TEAM CONFERENCE^16^41
;;^UTILITY(U,$J,358.4,284,0)
;;=ABUSE,NEGLECT, & VIOLENCE^1^42
;;^UTILITY(U,$J,358.4,285,0)
;;=ANXIETY DISORDERS^2^42
;;^UTILITY(U,$J,358.4,286,0)
;;=BIPOLAR & RELATED DISORDERS^3^42
;;^UTILITY(U,$J,358.4,287,0)
;;=NEUROCOGNITIVE DISORDERS^17^42
;;^UTILITY(U,$J,358.4,288,0)
;;=DEPRESSIVE DISORDERS^7^42
;;^UTILITY(U,$J,358.4,289,0)
;;=DISSOCIATIVE DISORDERS ^9^42
;;^UTILITY(U,$J,358.4,290,0)
;;=FEEDING & EATING DISORDERS^12^42
;;^UTILITY(U,$J,358.4,291,0)
;;=EDUC/OCCUPATIONAL PROBLEMS^10^42
;;^UTILITY(U,$J,358.4,292,0)
;;=GENDER DYSPHORIA^14^42
;;^UTILITY(U,$J,358.4,293,0)
;;=HOUSING/ECONOMIC PROBLEMS^15^42
;;^UTILITY(U,$J,358.4,294,0)
;;=MEDICATION ADVERSE EFFECTS^16^42
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI3AW 3794 printed Sep 23, 2025@20:21:15 Page 2
IBDEI3AW ; ; 04-FEB-2020
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
+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,238,0)
+2 ;;=INJECTION MEDICATIONS^2^37
+3 ;;^UTILITY(U,$J,358.4,239,0)
+4 ;;=ULTRASOUND^3^37
+5 ;;^UTILITY(U,$J,358.4,240,0)
+6 ;;=NEW PATIENT^2^38
+7 ;;^UTILITY(U,$J,358.4,241,0)
+8 ;;=ESTABLISHED PATIENT^1^38
+9 ;;^UTILITY(U,$J,358.4,242,0)
+10 ;;=CONSULTATIONS^3^38
+11 ;;^UTILITY(U,$J,358.4,243,0)
+12 ;;=COMMON DIAGNOSES^1^39
+13 ;;^UTILITY(U,$J,358.4,244,0)
+14 ;;=CRYSTAL ARTHROPATHIES^2^39
+15 ;;^UTILITY(U,$J,358.4,245,0)
+16 ;;=JOINT DISORDERS^6^39
+17 ;;^UTILITY(U,$J,358.4,246,0)
+18 ;;=MISCELLANEOUS^7^39
+19 ;;^UTILITY(U,$J,358.4,247,0)
+20 ;;=NERVOUS SYSTEM^8^39
+21 ;;^UTILITY(U,$J,358.4,248,0)
+22 ;;=OSTEOARTHRITIS^9^39
+23 ;;^UTILITY(U,$J,358.4,249,0)
+24 ;;=OSTEOMYELITIS^10^39
+25 ;;^UTILITY(U,$J,358.4,250,0)
+26 ;;=OSTEOPOROSIS^11^39
+27 ;;^UTILITY(U,$J,358.4,251,0)
+28 ;;=PYOGENIC ARTHRITIS^13^39
+29 ;;^UTILITY(U,$J,358.4,252,0)
+30 ;;=SPINE DISORDERS^14^39
+31 ;;^UTILITY(U,$J,358.4,253,0)
+32 ;;=TENDINITIS & BURSITIS^16^39
+33 ;;^UTILITY(U,$J,358.4,254,0)
+34 ;;=VASCULAR DISORDERS^17^39
+35 ;;^UTILITY(U,$J,358.4,255,0)
+36 ;;=VASCULITIS CONDITIONS^18^39
+37 ;;^UTILITY(U,$J,358.4,256,0)
+38 ;;=INFECTIONS^3^39
+39 ;;^UTILITY(U,$J,358.4,257,0)
+40 ;;=INT DERANGEMENT OF KNEE^4^39
+41 ;;^UTILITY(U,$J,358.4,258,0)
+42 ;;=OTHER INFLAMMATORY^12^39
+43 ;;^UTILITY(U,$J,358.4,259,0)
+44 ;;=HISTORY OF^5^39
+45 ;;^UTILITY(U,$J,358.4,260,0)
+46 ;;=SUICIDE IDEATIONS/ATTEMPTS^15^39
+47 ;;^UTILITY(U,$J,358.4,261,0)
+48 ;;=SUBSTANCE USE & MISC SERVICES^6^40
+49 ;;^UTILITY(U,$J,358.4,262,0)
+50 ;;=DIAGNOSTIC EVALUATION^1^40
+51 ;;^UTILITY(U,$J,358.4,263,0)
+52 ;;=PSYCHOTHERAPY ^4^40
+53 ;;^UTILITY(U,$J,358.4,264,0)
+54 ;;=OTHER CODES^3^40
+55 ;;^UTILITY(U,$J,358.4,265,0)
+56 ;;=TOBACCO USE CESSATION^7^40
+57 ;;^UTILITY(U,$J,358.4,266,0)
+58 ;;=MEDICATIONS^2^40
+59 ;;^UTILITY(U,$J,358.4,267,0)
+60 ;;=SELF-MANAGEMENT^5^40
+61 ;;^UTILITY(U,$J,358.4,268,0)
+62 ;;=ESTABLISHED PATIENT^1^41
+63 ;;^UTILITY(U,$J,358.4,269,0)
+64 ;;=OUTPATIENT CONSULTATIONS^3^41
+65 ;;^UTILITY(U,$J,358.4,270,0)
+66 ;;=NEW PATIENT^2^41
+67 ;;^UTILITY(U,$J,358.4,271,0)
+68 ;;=INPATIENT CONSULTATIONS^4^41
+69 ;;^UTILITY(U,$J,358.4,272,0)
+70 ;;=INITIAL HOSPITAL CARE^5^41
+71 ;;^UTILITY(U,$J,358.4,273,0)
+72 ;;=HOSPITAL CARE DISCHARGE ^7^41
+73 ;;^UTILITY(U,$J,358.4,274,0)
+74 ;;=INITIAL OBSERVATION CARE^8^41
+75 ;;^UTILITY(U,$J,358.4,275,0)
+76 ;;=OBSERVATION CARE DISCHARGE SERVICES^10^41
+77 ;;^UTILITY(U,$J,358.4,276,0)
+78 ;;=INPT or OBS ADMIT & D/C SAME DAY^11^41
+79 ;;^UTILITY(U,$J,358.4,277,0)
+80 ;;=SUBSEQUENT HOSPITAL CARE^6^41
+81 ;;^UTILITY(U,$J,358.4,278,0)
+82 ;;=OBSERVATION SUBSEQUENT CARE^9^41
+83 ;;^UTILITY(U,$J,358.4,279,0)
+84 ;;=DOMICILLIARY EST PATIENT^12^41
+85 ;;^UTILITY(U,$J,358.4,280,0)
+86 ;;=DOMICILLIARY NEW PATIENT^13^41
+87 ;;^UTILITY(U,$J,358.4,281,0)
+88 ;;=HOME VISITS EST PATIENT^14^41
+89 ;;^UTILITY(U,$J,358.4,282,0)
+90 ;;=HOME VISITS NEW PATIENT^15^41
+91 ;;^UTILITY(U,$J,358.4,283,0)
+92 ;;=TEAM CONFERENCE^16^41
+93 ;;^UTILITY(U,$J,358.4,284,0)
+94 ;;=ABUSE,NEGLECT, & VIOLENCE^1^42
+95 ;;^UTILITY(U,$J,358.4,285,0)
+96 ;;=ANXIETY DISORDERS^2^42
+97 ;;^UTILITY(U,$J,358.4,286,0)
+98 ;;=BIPOLAR & RELATED DISORDERS^3^42
+99 ;;^UTILITY(U,$J,358.4,287,0)
+100 ;;=NEUROCOGNITIVE DISORDERS^17^42
+101 ;;^UTILITY(U,$J,358.4,288,0)
+102 ;;=DEPRESSIVE DISORDERS^7^42
+103 ;;^UTILITY(U,$J,358.4,289,0)
+104 ;;=DISSOCIATIVE DISORDERS ^9^42
+105 ;;^UTILITY(U,$J,358.4,290,0)
+106 ;;=FEEDING & EATING DISORDERS^12^42
+107 ;;^UTILITY(U,$J,358.4,291,0)
+108 ;;=EDUC/OCCUPATIONAL PROBLEMS^10^42
+109 ;;^UTILITY(U,$J,358.4,292,0)
+110 ;;=GENDER DYSPHORIA^14^42
+111 ;;^UTILITY(U,$J,358.4,293,0)
+112 ;;=HOUSING/ECONOMIC PROBLEMS^15^42
+113 ;;^UTILITY(U,$J,358.4,294,0)
+114 ;;=MEDICATION ADVERSE EFFECTS^16^42
