Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBDEI01I

IBDEI01I.m

Go to the documentation of this file. 
  1. IBDEI01I ; ; 01-AUG-2022
  1.  ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
  1.  Q:'DIFQR(358.3)  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
  1. Q Q
  1.  ;;^UTILITY(U,$J,358.3,3232,1,3,0)
  1.  ;;=3^29540
  1.  ;;^UTILITY(U,$J,358.3,3233,0)
  1.  ;;=29260^^23^200^15^^^^1
  1.  ;;^UTILITY(U,$J,358.3,3233,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,3233,1,2,0)
  1.  ;;=2^Strapping/Taping,Elbow/Wrist
  1.  ;;^UTILITY(U,$J,358.3,3233,1,3,0)
  1.  ;;=3^29260
  1.  ;;^UTILITY(U,$J,358.3,3234,0)
  1.  ;;=29520^^23^200^17^^^^1
  1.  ;;^UTILITY(U,$J,358.3,3234,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,3234,1,2,0)
  1.  ;;=2^Strapping/Taping,Hip
  1.  ;;^UTILITY(U,$J,358.3,3234,1,3,0)
  1.  ;;=3^29520
  1.  ;;^UTILITY(U,$J,358.3,3235,0)
  1.  ;;=29530^^23^200^18^^^^1
  1.  ;;^UTILITY(U,$J,358.3,3235,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,3235,1,2,0)
  1.  ;;=2^Strapping/Taping,Knee
  1.  ;;^UTILITY(U,$J,358.3,3235,1,3,0)
  1.  ;;=3^29530
  1.  ;;^UTILITY(U,$J,358.3,3236,0)
  1.  ;;=29240^^23^200^19^^^^1
  1.  ;;^UTILITY(U,$J,358.3,3236,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,3236,1,2,0)
  1.  ;;=2^Strapping/Taping,Shoulder
  1.  ;;^UTILITY(U,$J,358.3,3236,1,3,0)
  1.  ;;=3^29240
  1.  ;;^UTILITY(U,$J,358.3,3237,0)
  1.  ;;=29550^^23^200^20^^^^1
  1.  ;;^UTILITY(U,$J,358.3,3237,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,3237,1,2,0)
  1.  ;;=2^Strapping/Taping,Toes
  1.  ;;^UTILITY(U,$J,358.3,3237,1,3,0)
  1.  ;;=3^29550
  1.  ;;^UTILITY(U,$J,358.3,3238,0)
  1.  ;;=29280^^23^200^16^^^^1
  1.  ;;^UTILITY(U,$J,358.3,3238,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,3238,1,2,0)
  1.  ;;=2^Strapping/Taping,Hand or Finger
  1.  ;;^UTILITY(U,$J,358.3,3238,1,3,0)
  1.  ;;=3^29280
  1.  ;;^UTILITY(U,$J,358.3,3239,0)
  1.  ;;=20560^^23^200^2^^^^1
  1.  ;;^UTILITY(U,$J,358.3,3239,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,3239,1,2,0)
  1.  ;;=2^Dry Needling 1-2 Muscles
  1.  ;;^UTILITY(U,$J,358.3,3239,1,3,0)
  1.  ;;=3^20560
  1.  ;;^UTILITY(U,$J,358.3,3240,0)
  1.  ;;=20561^^23^200^3^^^^1
  1.  ;;^UTILITY(U,$J,358.3,3240,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,3240,1,2,0)
  1.  ;;=2^Dry Needling 3+ Muscles
  1.  ;;^UTILITY(U,$J,358.3,3240,1,3,0)
  1.  ;;=3^20561
  1.  ;;^UTILITY(U,$J,358.3,3241,0)
  1.  ;;=97150^^23^200^6^^^^1
  1.  ;;^UTILITY(U,$J,358.3,3241,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,3241,1,2,0)
  1.  ;;=2^Group Therapeutic Procedures
  1.  ;;^UTILITY(U,$J,358.3,3241,1,3,0)
  1.  ;;=3^97150
  1.  ;;^UTILITY(U,$J,358.3,3242,0)
  1.  ;;=97799^^23^200^24^^^^1
  1.  ;;^UTILITY(U,$J,358.3,3242,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,3242,1,2,0)
  1.  ;;=2^Unlisted Physical Med/Rehab Svc/Proc
  1.  ;;^UTILITY(U,$J,358.3,3242,1,3,0)
  1.  ;;=3^97799
  1.  ;;^UTILITY(U,$J,358.3,3243,0)
  1.  ;;=98940^^23^201^1^^^^1
  1.  ;;^UTILITY(U,$J,358.3,3243,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,3243,1,2,0)
  1.  ;;=2^CMT; Spinal, one to two regions
  1.  ;;^UTILITY(U,$J,358.3,3243,1,3,0)
  1.  ;;=3^98940
  1.  ;;^UTILITY(U,$J,358.3,3244,0)
  1.  ;;=98941^^23^201^2^^^^1
  1.  ;;^UTILITY(U,$J,358.3,3244,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,3244,1,2,0)
  1.  ;;=2^CMT; Spinal, three to four regions
  1.  ;;^UTILITY(U,$J,358.3,3244,1,3,0)
  1.  ;;=3^98941
  1.  ;;^UTILITY(U,$J,358.3,3245,0)
  1.  ;;=98942^^23^201^3^^^^1
  1.  ;;^UTILITY(U,$J,358.3,3245,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,3245,1,2,0)
  1.  ;;=2^CMT; Spinal, five regions
  1.  ;;^UTILITY(U,$J,358.3,3245,1,3,0)
  1.  ;;=3^98942
  1.  ;;^UTILITY(U,$J,358.3,3246,0)
  1.  ;;=98943^^23^201^4^^^^1
  1.  ;;^UTILITY(U,$J,358.3,3246,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,3246,1,2,0)
  1.  ;;=2^CMT; Extraspinal, one or more regions
  1.  ;;^UTILITY(U,$J,358.3,3246,1,3,0)
  1.  ;;=3^98943
  1.  ;;^UTILITY(U,$J,358.3,3247,0)
  1.  ;;=98925^^23^202^1^^^^1
  1.  ;;^UTILITY(U,$J,358.3,3247,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,3247,1,2,0)
  1.  ;;=2^OMT, 1-2 body regions involved
  1.  ;;^UTILITY(U,$J,358.3,3247,1,3,0)
  1.  ;;=3^98925
  1.  ;;^UTILITY(U,$J,358.3,3248,0)
  1.  ;;=98926^^23^202^2^^^^1
  1.  ;;^UTILITY(U,$J,358.3,3248,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,3248,1,2,0)
  1.  ;;=2^OMT, 3-4 body regions involved
  1.  ;;^UTILITY(U,$J,358.3,3248,1,3,0)
  1.  ;;=3^98926
  1.  ;;^UTILITY(U,$J,358.3,3249,0)
  1.  ;;=98927^^23^202^3^^^^1
  1.  ;;^UTILITY(U,$J,358.3,3249,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,3249,1,2,0)
  1.  ;;=2^OMT, 5-6 body regions involved
  1.  ;;^UTILITY(U,$J,358.3,3249,1,3,0)
  1.  ;;=3^98927
  1.  ;;^UTILITY(U,$J,358.3,3250,0)
  1.  ;;=98928^^23^202^4^^^^1
  1.  ;;^UTILITY(U,$J,358.3,3250,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,3250,1,2,0)
  1.  ;;=2^OMT, 7-8 body regions involved
  1.  ;;^UTILITY(U,$J,358.3,3250,1,3,0)
  1.  ;;=3^98928
  1.  ;;^UTILITY(U,$J,358.3,3251,0)
  1.  ;;=98929^^23^202^5^^^^1
  1.  ;;^UTILITY(U,$J,358.3,3251,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,3251,1,2,0)
  1.  ;;=2^OMT, 9-10 body regions involved
  1.  ;;^UTILITY(U,$J,358.3,3251,1,3,0)
  1.  ;;=3^98929
  1.  ;;^UTILITY(U,$J,358.3,3252,0)
  1.  ;;=97810^^23^203^3^^^^1
  1.  ;;^UTILITY(U,$J,358.3,3252,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,3252,1,2,0)
  1.  ;;=2^Acupunct w/o Stimul,15min
  1.  ;;^UTILITY(U,$J,358.3,3252,1,3,0)
  1.  ;;=3^97810
  1.  ;;^UTILITY(U,$J,358.3,3253,0)
  1.  ;;=97811^^23^203^4^^^^1
  1.  ;;^UTILITY(U,$J,358.3,3253,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,3253,1,2,0)
  1.  ;;=2^Acupunct w/o Stimul,Ea Addl 15min
  1.  ;;^UTILITY(U,$J,358.3,3253,1,3,0)
  1.  ;;=3^97811
  1.  ;;^UTILITY(U,$J,358.3,3254,0)
  1.  ;;=97813^^23^203^1^^^^1
  1.  ;;^UTILITY(U,$J,358.3,3254,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,3254,1,2,0)
  1.  ;;=2^Acupunct w/ Stimul,15min
  1.  ;;^UTILITY(U,$J,358.3,3254,1,3,0)
  1.  ;;=3^97813
  1.  ;;^UTILITY(U,$J,358.3,3255,0)
  1.  ;;=97814^^23^203^2^^^^1
  1.  ;;^UTILITY(U,$J,358.3,3255,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,3255,1,2,0)
  1.  ;;=2^Acupunct w/ Stimul,Ea Addl 15min
  1.  ;;^UTILITY(U,$J,358.3,3255,1,3,0)
  1.  ;;=3^97814
  1.  ;;^UTILITY(U,$J,358.3,3256,0)
  1.  ;;=S8930^^23^203^5^^^^1
  1.  ;;^UTILITY(U,$J,358.3,3256,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,3256,1,2,0)
  1.  ;;=2^Acupuncture Electostim,Auricular,Ea 15min
  1.  ;;^UTILITY(U,$J,358.3,3256,1,3,0)
  1.  ;;=3^S8930
  1.  ;;^UTILITY(U,$J,358.3,3257,0)
  1.  ;;=98960^^23^204^1^^^^1
  1.  ;;^UTILITY(U,$J,358.3,3257,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,3257,1,2,0)
  1.  ;;=2^Education for Self Mgt,Ind,Ea 30min
  1.  ;;^UTILITY(U,$J,358.3,3257,1,3,0)
  1.  ;;=3^98960
  1.  ;;^UTILITY(U,$J,358.3,3258,0)
  1.  ;;=G43.C0^^24^205^83
  1.  ;;^UTILITY(U,$J,358.3,3258,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3258,1,3,0)
  1.  ;;=3^Periodic headache syndr in chld/adlt, not intrctbl
  1.  ;;^UTILITY(U,$J,358.3,3258,1,4,0)
  1.  ;;=4^G43.C0
  1.  ;;^UTILITY(U,$J,358.3,3258,2)
  1.  ;;=^5003916
  1.  ;;^UTILITY(U,$J,358.3,3259,0)
  1.  ;;=M19.011^^24^205^91
  1.  ;;^UTILITY(U,$J,358.3,3259,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3259,1,3,0)
  1.  ;;=3^Primary osteoarthritis, rt shldr
  1.  ;;^UTILITY(U,$J,358.3,3259,1,4,0)
  1.  ;;=4^M19.011
  1.  ;;^UTILITY(U,$J,358.3,3259,2)
  1.  ;;=^5010808
  1.  ;;^UTILITY(U,$J,358.3,3260,0)
  1.  ;;=M19.012^^24^205^88
  1.  ;;^UTILITY(U,$J,358.3,3260,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3260,1,3,0)
  1.  ;;=3^Primary osteoarthritis, lft shldr
  1.  ;;^UTILITY(U,$J,358.3,3260,1,4,0)
  1.  ;;=4^M19.012
  1.  ;;^UTILITY(U,$J,358.3,3260,2)
  1.  ;;=^5010809
  1.  ;;^UTILITY(U,$J,358.3,3261,0)
  1.  ;;=M19.041^^24^205^90
  1.  ;;^UTILITY(U,$J,358.3,3261,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3261,1,3,0)
  1.  ;;=3^Primary osteoarthritis, rt hand
  1.  ;;^UTILITY(U,$J,358.3,3261,1,4,0)
  1.  ;;=4^M19.041
  1.  ;;^UTILITY(U,$J,358.3,3261,2)
  1.  ;;=^5010817
  1.  ;;^UTILITY(U,$J,358.3,3262,0)
  1.  ;;=M19.042^^24^205^87
  1.  ;;^UTILITY(U,$J,358.3,3262,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3262,1,3,0)
  1.  ;;=3^Primary osteoarthritis, lft hand
  1.  ;;^UTILITY(U,$J,358.3,3262,1,4,0)
  1.  ;;=4^M19.042
  1.  ;;^UTILITY(U,$J,358.3,3262,2)
  1.  ;;=^5010818
  1.  ;;^UTILITY(U,$J,358.3,3263,0)
  1.  ;;=M19.071^^24^205^89
  1.  ;;^UTILITY(U,$J,358.3,3263,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3263,1,3,0)
  1.  ;;=3^Primary osteoarthritis, rt ankle & foot
  1.  ;;^UTILITY(U,$J,358.3,3263,1,4,0)
  1.  ;;=4^M19.071
  1.  ;;^UTILITY(U,$J,358.3,3263,2)
  1.  ;;=^5010820
  1.  ;;^UTILITY(U,$J,358.3,3264,0)
  1.  ;;=M19.072^^24^205^86
  1.  ;;^UTILITY(U,$J,358.3,3264,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3264,1,3,0)
  1.  ;;=3^Primary osteoarthritis, lft ankle & foot
  1.  ;;^UTILITY(U,$J,358.3,3264,1,4,0)
  1.  ;;=4^M19.072
  1.  ;;^UTILITY(U,$J,358.3,3264,2)
  1.  ;;=^5010821
  1.  ;;^UTILITY(U,$J,358.3,3265,0)
  1.  ;;=M17.9^^24^205^75
  1.  ;;^UTILITY(U,$J,358.3,3265,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3265,1,3,0)
  1.  ;;=3^Osteoarthritis of knee, unspec
  1.  ;;^UTILITY(U,$J,358.3,3265,1,4,0)
  1.  ;;=4^M17.9
  1.  ;;^UTILITY(U,$J,358.3,3265,2)
  1.  ;;=^5010794
  1.  ;;^UTILITY(U,$J,358.3,3266,0)
  1.  ;;=M12.9^^24^205^4
  1.  ;;^UTILITY(U,$J,358.3,3266,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3266,1,3,0)
  1.  ;;=3^Arthropathy, unspec
  1.  ;;^UTILITY(U,$J,358.3,3266,1,4,0)
  1.  ;;=4^M12.9
  1.  ;;^UTILITY(U,$J,358.3,3266,2)
  1.  ;;=^5010666
  1.  ;;^UTILITY(U,$J,358.3,3267,0)
  1.  ;;=M22.41^^24^205^25
  1.  ;;^UTILITY(U,$J,358.3,3267,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3267,1,3,0)
  1.  ;;=3^Chondromalacia patellae, rt knee
  1.  ;;^UTILITY(U,$J,358.3,3267,1,4,0)
  1.  ;;=4^M22.41
  1.  ;;^UTILITY(U,$J,358.3,3267,2)
  1.  ;;=^5011186
  1.  ;;^UTILITY(U,$J,358.3,3268,0)
  1.  ;;=M22.42^^24^205^24
  1.  ;;^UTILITY(U,$J,358.3,3268,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3268,1,3,0)
  1.  ;;=3^Chondromalacia patellae, lft knee
  1.  ;;^UTILITY(U,$J,358.3,3268,1,4,0)
  1.  ;;=4^M22.42
  1.  ;;^UTILITY(U,$J,358.3,3268,2)
  1.  ;;=^5011187
  1.  ;;^UTILITY(U,$J,358.3,3269,0)
  1.  ;;=M22.91^^24^205^29
  1.  ;;^UTILITY(U,$J,358.3,3269,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3269,1,3,0)
  1.  ;;=3^Disorder of patella, rt knee, unspec
  1.  ;;^UTILITY(U,$J,358.3,3269,1,4,0)
  1.  ;;=4^M22.91
  1.  ;;^UTILITY(U,$J,358.3,3269,2)
  1.  ;;=^5133780
  1.  ;;^UTILITY(U,$J,358.3,3270,0)
  1.  ;;=M22.92^^24^205^28
  1.  ;;^UTILITY(U,$J,358.3,3270,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3270,1,3,0)
  1.  ;;=3^Disorder of patella, lft knee, unspec
  1.  ;;^UTILITY(U,$J,358.3,3270,1,4,0)
  1.  ;;=4^M22.92
  1.  ;;^UTILITY(U,$J,358.3,3270,2)
  1.  ;;=^5133781
  1.  ;;^UTILITY(U,$J,358.3,3271,0)
  1.  ;;=M23.91^^24^205^59
  1.  ;;^UTILITY(U,$J,358.3,3271,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3271,1,3,0)
  1.  ;;=3^Internal derangement of rt knee, unspec
  1.  ;;^UTILITY(U,$J,358.3,3271,1,4,0)
  1.  ;;=4^M23.91
  1.  ;;^UTILITY(U,$J,358.3,3271,2)
  1.  ;;=^5133806
  1.  ;;^UTILITY(U,$J,358.3,3272,0)
  1.  ;;=M23.92^^24^205^58
  1.  ;;^UTILITY(U,$J,358.3,3272,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3272,1,3,0)
  1.  ;;=3^Internal derangement of lft knee, unspec
  1.  ;;^UTILITY(U,$J,358.3,3272,1,4,0)
  1.  ;;=4^M23.92
  1.  ;;^UTILITY(U,$J,358.3,3272,2)
  1.  ;;=^5133807
  1.  ;;^UTILITY(U,$J,358.3,3273,0)
  1.  ;;=M24.811^^24^205^63
  1.  ;;^UTILITY(U,$J,358.3,3273,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3273,1,3,0)
  1.  ;;=3^Joint derangements of rt shldr, oth, spec, NEC
  1.  ;;^UTILITY(U,$J,358.3,3273,1,4,0)
  1.  ;;=4^M24.811
  1.  ;;^UTILITY(U,$J,358.3,3273,2)
  1.  ;;=^5011453
  1.  ;;^UTILITY(U,$J,358.3,3274,0)
  1.  ;;=M24.812^^24^205^62
  1.  ;;^UTILITY(U,$J,358.3,3274,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3274,1,3,0)
  1.  ;;=3^Joint derangements of lft shldr, oth, spec, NEC
  1.  ;;^UTILITY(U,$J,358.3,3274,1,4,0)
  1.  ;;=4^M24.812
  1.  ;;^UTILITY(U,$J,358.3,3274,2)
  1.  ;;=^5011454
  1.  ;;^UTILITY(U,$J,358.3,3275,0)
  1.  ;;=M25.311^^24^205^57
  1.  ;;^UTILITY(U,$J,358.3,3275,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3275,1,3,0)
  1.  ;;=3^Instability, rt shldr
  1.  ;;^UTILITY(U,$J,358.3,3275,1,4,0)
  1.  ;;=4^M25.311
  1.  ;;^UTILITY(U,$J,358.3,3275,2)
  1.  ;;=^5011551
  1.  ;;^UTILITY(U,$J,358.3,3276,0)
  1.  ;;=M25.312^^24^205^54
  1.  ;;^UTILITY(U,$J,358.3,3276,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3276,1,3,0)
  1.  ;;=3^Instability, lft shldr
  1.  ;;^UTILITY(U,$J,358.3,3276,1,4,0)
  1.  ;;=4^M25.312
  1.  ;;^UTILITY(U,$J,358.3,3276,2)
  1.  ;;=^5011552
  1.  ;;^UTILITY(U,$J,358.3,3277,0)
  1.  ;;=M25.211^^24^205^33
  1.  ;;^UTILITY(U,$J,358.3,3277,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3277,1,3,0)
  1.  ;;=3^Flail joint, rt shldr
  1.  ;;^UTILITY(U,$J,358.3,3277,1,4,0)
  1.  ;;=4^M25.211
  1.  ;;^UTILITY(U,$J,358.3,3277,2)
  1.  ;;=^5011528
  1.  ;;^UTILITY(U,$J,358.3,3278,0)
  1.  ;;=M25.212^^24^205^31
  1.  ;;^UTILITY(U,$J,358.3,3278,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3278,1,3,0)
  1.  ;;=3^Flail joint, lft shldr
  1.  ;;^UTILITY(U,$J,358.3,3278,1,4,0)
  1.  ;;=4^M25.212
  1.  ;;^UTILITY(U,$J,358.3,3278,2)
  1.  ;;=^5011529
  1.  ;;^UTILITY(U,$J,358.3,3279,0)
  1.  ;;=M25.261^^24^205^32
  1.  ;;^UTILITY(U,$J,358.3,3279,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3279,1,3,0)
  1.  ;;=3^Flail joint, rt knee
  1.  ;;^UTILITY(U,$J,358.3,3279,1,4,0)
  1.  ;;=4^M25.261
  1.  ;;^UTILITY(U,$J,358.3,3279,2)
  1.  ;;=^5011543
  1.  ;;^UTILITY(U,$J,358.3,3280,0)
  1.  ;;=M25.262^^24^205^30
  1.  ;;^UTILITY(U,$J,358.3,3280,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3280,1,3,0)
  1.  ;;=3^Flail joint, lft knee
  1.  ;;^UTILITY(U,$J,358.3,3280,1,4,0)
  1.  ;;=4^M25.262
  1.  ;;^UTILITY(U,$J,358.3,3280,2)
  1.  ;;=^5011544
  1.  ;;^UTILITY(U,$J,358.3,3281,0)
  1.  ;;=M25.361^^24^205^55
  1.  ;;^UTILITY(U,$J,358.3,3281,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3281,1,3,0)
  1.  ;;=3^Instability, rt knee
  1.  ;;^UTILITY(U,$J,358.3,3281,1,4,0)
  1.  ;;=4^M25.361
  1.  ;;^UTILITY(U,$J,358.3,3281,2)
  1.  ;;=^5011566
  1.  ;;^UTILITY(U,$J,358.3,3282,0)
  1.  ;;=M25.362^^24^205^52
  1.  ;;^UTILITY(U,$J,358.3,3282,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3282,1,3,0)
  1.  ;;=3^Instability, lft knee
  1.  ;;^UTILITY(U,$J,358.3,3282,1,4,0)
  1.  ;;=4^M25.362
  1.  ;;^UTILITY(U,$J,358.3,3282,2)
  1.  ;;=^5011567
  1.  ;;^UTILITY(U,$J,358.3,3283,0)
  1.  ;;=M23.51^^24^205^56
  1.  ;;^UTILITY(U,$J,358.3,3283,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3283,1,3,0)
  1.  ;;=3^Instability, rt knee, chronic
  1.  ;;^UTILITY(U,$J,358.3,3283,1,4,0)
  1.  ;;=4^M23.51
  1.  ;;^UTILITY(U,$J,358.3,3283,2)
  1.  ;;=^5011254
  1.  ;;^UTILITY(U,$J,358.3,3284,0)
  1.  ;;=M23.52^^24^205^53
  1.  ;;^UTILITY(U,$J,358.3,3284,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3284,1,3,0)
  1.  ;;=3^Instability, lft knee, chronic
  1.  ;;^UTILITY(U,$J,358.3,3284,1,4,0)
  1.  ;;=4^M23.52
  1.  ;;^UTILITY(U,$J,358.3,3284,2)
  1.  ;;=^5011255
  1.  ;;^UTILITY(U,$J,358.3,3285,0)
  1.  ;;=M23.8X1^^24^205^61
  1.  ;;^UTILITY(U,$J,358.3,3285,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3285,1,3,0)
  1.  ;;=3^Internal derangements of rt knee, oth
  1.  ;;^UTILITY(U,$J,358.3,3285,1,4,0)
  1.  ;;=4^M23.8X1
  1.  ;;^UTILITY(U,$J,358.3,3285,2)
  1.  ;;=^5011273
  1.  ;;^UTILITY(U,$J,358.3,3286,0)
  1.  ;;=M23.8X2^^24^205^60
  1.  ;;^UTILITY(U,$J,358.3,3286,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3286,1,3,0)
  1.  ;;=3^Internal derangements of lft knee, oth
  1.  ;;^UTILITY(U,$J,358.3,3286,1,4,0)
  1.  ;;=4^M23.8X2
  1.  ;;^UTILITY(U,$J,358.3,3286,2)
  1.  ;;=^5011274
  1.  ;;^UTILITY(U,$J,358.3,3287,0)
  1.  ;;=M25.50^^24^205^79
  1.  ;;^UTILITY(U,$J,358.3,3287,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3287,1,3,0)
  1.  ;;=3^Pain in unspec joint
  1.  ;;^UTILITY(U,$J,358.3,3287,1,4,0)
  1.  ;;=4^M25.50
  1.  ;;^UTILITY(U,$J,358.3,3287,2)
  1.  ;;=^5011601
  1.  ;;^UTILITY(U,$J,358.3,3288,0)
  1.  ;;=M54.6^^24^205^78
  1.  ;;^UTILITY(U,$J,358.3,3288,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3288,1,3,0)
  1.  ;;=3^Pain in thoracic spine
  1.  ;;^UTILITY(U,$J,358.3,3288,1,4,0)
  1.  ;;=4^M54.6
  1.  ;;^UTILITY(U,$J,358.3,3288,2)
  1.  ;;=^272507
  1.  ;;^UTILITY(U,$J,358.3,3289,0)
  1.  ;;=M96.1^^24^205^85
  1.  ;;^UTILITY(U,$J,358.3,3289,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3289,1,3,0)
  1.  ;;=3^Postlaminectomy syndrome, NEC
  1.  ;;^UTILITY(U,$J,358.3,3289,1,4,0)
  1.  ;;=4^M96.1
  1.  ;;^UTILITY(U,$J,358.3,3289,2)
  1.  ;;=^5015374
  1.  ;;^UTILITY(U,$J,358.3,3290,0)
  1.  ;;=M54.31^^24^205^94
  1.  ;;^UTILITY(U,$J,358.3,3290,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3290,1,3,0)
  1.  ;;=3^Sciatica, right side
  1.  ;;^UTILITY(U,$J,358.3,3290,1,4,0)
  1.  ;;=4^M54.31
  1.  ;;^UTILITY(U,$J,358.3,3290,2)
  1.  ;;=^5012306
  1.  ;;^UTILITY(U,$J,358.3,3291,0)
  1.  ;;=M54.32^^24^205^93
  1.  ;;^UTILITY(U,$J,358.3,3291,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3291,1,3,0)
  1.  ;;=3^Sciatica, left side
  1.  ;;^UTILITY(U,$J,358.3,3291,1,4,0)
  1.  ;;=4^M54.32
  1.  ;;^UTILITY(U,$J,358.3,3291,2)
  1.  ;;=^5012307
  1.  ;;^UTILITY(U,$J,358.3,3292,0)
  1.  ;;=M75.21^^24^205^6
  1.  ;;^UTILITY(U,$J,358.3,3292,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3292,1,3,0)
  1.  ;;=3^Bicipital tendinitis, rt shldr
  1.  ;;^UTILITY(U,$J,358.3,3292,1,4,0)
  1.  ;;=4^M75.21
  1.  ;;^UTILITY(U,$J,358.3,3292,2)
  1.  ;;=^5013251
  1.  ;;^UTILITY(U,$J,358.3,3293,0)
  1.  ;;=M75.22^^24^205^5
  1.  ;;^UTILITY(U,$J,358.3,3293,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3293,1,3,0)
  1.  ;;=3^Bicipital tendinitis, lft shldr
  1.  ;;^UTILITY(U,$J,358.3,3293,1,4,0)
  1.  ;;=4^M75.22
  1.  ;;^UTILITY(U,$J,358.3,3293,2)
  1.  ;;=^5013252
  1.  ;;^UTILITY(U,$J,358.3,3294,0)
  1.  ;;=M77.01^^24^205^67
  1.  ;;^UTILITY(U,$J,358.3,3294,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3294,1,3,0)
  1.  ;;=3^Medial epicondylitis, rt elbow
  1.  ;;^UTILITY(U,$J,358.3,3294,1,4,0)
  1.  ;;=4^M77.01
  1.  ;;^UTILITY(U,$J,358.3,3294,2)
  1.  ;;=^5013301
  1.  ;;^UTILITY(U,$J,358.3,3295,0)
  1.  ;;=M77.02^^24^205^66
  1.  ;;^UTILITY(U,$J,358.3,3295,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3295,1,3,0)
  1.  ;;=3^Medial epicondylitis, lft elbow
  1.  ;;^UTILITY(U,$J,358.3,3295,1,4,0)
  1.  ;;=4^M77.02
  1.  ;;^UTILITY(U,$J,358.3,3295,2)
  1.  ;;=^5013302
  1.  ;;^UTILITY(U,$J,358.3,3296,0)
  1.  ;;=M77.11^^24^205^65
  1.  ;;^UTILITY(U,$J,358.3,3296,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3296,1,3,0)
  1.  ;;=3^Lateral epicondylitis, rt elbow
  1.  ;;^UTILITY(U,$J,358.3,3296,1,4,0)
  1.  ;;=4^M77.11
  1.  ;;^UTILITY(U,$J,358.3,3296,2)
  1.  ;;=^5013304
  1.  ;;^UTILITY(U,$J,358.3,3297,0)
  1.  ;;=M77.12^^24^205^64
  1.  ;;^UTILITY(U,$J,358.3,3297,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3297,1,3,0)
  1.  ;;=3^Lateral epicondylitis, lft elbow
  1.  ;;^UTILITY(U,$J,358.3,3297,1,4,0)
  1.  ;;=4^M77.12
  1.  ;;^UTILITY(U,$J,358.3,3297,2)
  1.  ;;=^5013305
  1.  ;;^UTILITY(U,$J,358.3,3298,0)
  1.  ;;=M70.61^^24^205^112
  1.  ;;^UTILITY(U,$J,358.3,3298,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3298,1,3,0)
  1.  ;;=3^Trochanteric bursitis, rt hip
  1.  ;;^UTILITY(U,$J,358.3,3298,1,4,0)
  1.  ;;=4^M70.61
  1.  ;;^UTILITY(U,$J,358.3,3298,2)
  1.  ;;=^5013059
  1.  ;;^UTILITY(U,$J,358.3,3299,0)
  1.  ;;=M70.62^^24^205^111
  1.  ;;^UTILITY(U,$J,358.3,3299,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3299,1,3,0)
  1.  ;;=3^Trochanteric bursitis, lft hip
  1.  ;;^UTILITY(U,$J,358.3,3299,1,4,0)
  1.  ;;=4^M70.62
  1.  ;;^UTILITY(U,$J,358.3,3299,2)
  1.  ;;=^5013060
  1.  ;;^UTILITY(U,$J,358.3,3300,0)
  1.  ;;=M25.751^^24^205^77
  1.  ;;^UTILITY(U,$J,358.3,3300,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3300,1,3,0)
  1.  ;;=3^Osteophyte, right hip
  1.  ;;^UTILITY(U,$J,358.3,3300,1,4,0)
  1.  ;;=4^M25.751
  1.  ;;^UTILITY(U,$J,358.3,3300,2)
  1.  ;;=^5011658
  1.  ;;^UTILITY(U,$J,358.3,3301,0)
  1.  ;;=M25.752^^24^205^76
  1.  ;;^UTILITY(U,$J,358.3,3301,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3301,1,3,0)
  1.  ;;=3^Osteophyte, left hip
  1.  ;;^UTILITY(U,$J,358.3,3301,1,4,0)
  1.  ;;=4^M25.752
  1.  ;;^UTILITY(U,$J,358.3,3301,2)
  1.  ;;=^5011659
  1.  ;;^UTILITY(U,$J,358.3,3302,0)
  1.  ;;=M76.31^^24^205^35
  1.  ;;^UTILITY(U,$J,358.3,3302,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3302,1,3,0)
  1.  ;;=3^Iliotibial band syndrome, rt leg
  1.  ;;^UTILITY(U,$J,358.3,3302,1,4,0)
  1.  ;;=4^M76.31
  1.  ;;^UTILITY(U,$J,358.3,3302,2)
  1.  ;;=^5013276
  1.  ;;^UTILITY(U,$J,358.3,3303,0)
  1.  ;;=M76.32^^24^205^34
  1.  ;;^UTILITY(U,$J,358.3,3303,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3303,1,3,0)
  1.  ;;=3^Iliotibial band syndrome, lft leg
  1.  ;;^UTILITY(U,$J,358.3,3303,1,4,0)
  1.  ;;=4^M76.32
  1.  ;;^UTILITY(U,$J,358.3,3303,2)
  1.  ;;=^5013277
  1.  ;;^UTILITY(U,$J,358.3,3304,0)
  1.  ;;=M76.51^^24^205^82
  1.  ;;^UTILITY(U,$J,358.3,3304,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3304,1,3,0)
  1.  ;;=3^Patellar tendinitis, right knee
  1.  ;;^UTILITY(U,$J,358.3,3304,1,4,0)
  1.  ;;=4^M76.51
  1.  ;;^UTILITY(U,$J,358.3,3304,2)
  1.  ;;=^5013282
  1.  ;;^UTILITY(U,$J,358.3,3305,0)
  1.  ;;=M76.52^^24^205^81
  1.  ;;^UTILITY(U,$J,358.3,3305,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3305,1,3,0)
  1.  ;;=3^Patellar tendinitis, left knee
  1.  ;;^UTILITY(U,$J,358.3,3305,1,4,0)
  1.  ;;=4^M76.52
  1.  ;;^UTILITY(U,$J,358.3,3305,2)
  1.  ;;=^5013283
  1.  ;;^UTILITY(U,$J,358.3,3306,0)
  1.  ;;=M76.61^^24^205^3
  1.  ;;^UTILITY(U,$J,358.3,3306,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,3306,1,3,0)
  1.  ;;=3^Achilles tendinitis, right leg
  1.  ;;^UTILITY(U,$J,358.3,3306,1,4,0)
  1.  ;;=4^M76.61
  1.  ;;^UTILITY(U,$J,358.3,3306,2)
  1.  ;;=^5013285