IBDEI08W ; ; 28-OCT-2020
;;3.0;IB ENCOUNTER FORM IMP/EXP;;OCT 28, 2020
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
Q Q
;;^UTILITY(U,$J,358.3,21534,1,3,0)
;;=3^Mallet Finger,Left Finger(s)
;;^UTILITY(U,$J,358.3,21534,1,4,0)
;;=4^M20.012
;;^UTILITY(U,$J,358.3,21534,2)
;;=^5011031
;;^UTILITY(U,$J,358.3,21535,0)
;;=M20.021^^90^994^9
;;^UTILITY(U,$J,358.3,21535,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21535,1,3,0)
;;=3^Boutonniere Deformity,Right Finger(s)
;;^UTILITY(U,$J,358.3,21535,1,4,0)
;;=4^M20.021
;;^UTILITY(U,$J,358.3,21535,2)
;;=^5011033
;;^UTILITY(U,$J,358.3,21536,0)
;;=M20.022^^90^994^8
;;^UTILITY(U,$J,358.3,21536,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21536,1,3,0)
;;=3^Boutonniere Deformity,Left Finger(s)
;;^UTILITY(U,$J,358.3,21536,1,4,0)
;;=4^M20.022
;;^UTILITY(U,$J,358.3,21536,2)
;;=^5011034
;;^UTILITY(U,$J,358.3,21537,0)
;;=M20.031^^90^994^197
;;^UTILITY(U,$J,358.3,21537,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21537,1,3,0)
;;=3^Swan-Neck Deformity,Right Finger(s)
;;^UTILITY(U,$J,358.3,21537,1,4,0)
;;=4^M20.031
;;^UTILITY(U,$J,358.3,21537,2)
;;=^5011036
;;^UTILITY(U,$J,358.3,21538,0)
;;=M20.032^^90^994^196
;;^UTILITY(U,$J,358.3,21538,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21538,1,3,0)
;;=3^Swan-Neck Deformity,Left Finger(s)
;;^UTILITY(U,$J,358.3,21538,1,4,0)
;;=4^M20.032
;;^UTILITY(U,$J,358.3,21538,2)
;;=^5011037
;;^UTILITY(U,$J,358.3,21539,0)
;;=M21.331^^90^994^209
;;^UTILITY(U,$J,358.3,21539,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21539,1,3,0)
;;=3^Wrist Drop,Right Wrist
;;^UTILITY(U,$J,358.3,21539,1,4,0)
;;=4^M21.331
;;^UTILITY(U,$J,358.3,21539,2)
;;=^5011107
;;^UTILITY(U,$J,358.3,21540,0)
;;=M21.332^^90^994^208
;;^UTILITY(U,$J,358.3,21540,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21540,1,3,0)
;;=3^Wrist Drop,Left Wrist
;;^UTILITY(U,$J,358.3,21540,1,4,0)
;;=4^M21.332
;;^UTILITY(U,$J,358.3,21540,2)
;;=^5011108
;;^UTILITY(U,$J,358.3,21541,0)
;;=M18.0^^90^994^74
;;^UTILITY(U,$J,358.3,21541,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21541,1,3,0)
;;=3^Prim Osteoarth,1st Carpometacarpal Joint(s),Bilateral
;;^UTILITY(U,$J,358.3,21541,1,4,0)
;;=4^M18.0
;;^UTILITY(U,$J,358.3,21541,2)
;;=^5010795
;;^UTILITY(U,$J,358.3,21542,0)
;;=M18.11^^90^994^75
;;^UTILITY(U,$J,358.3,21542,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21542,1,3,0)
;;=3^Prim Osteoarth,1st Carpometacarpal Joint(s),Right Hand,Unilat
;;^UTILITY(U,$J,358.3,21542,1,4,0)
;;=4^M18.11
;;^UTILITY(U,$J,358.3,21542,2)
;;=^5010797
;;^UTILITY(U,$J,358.3,21543,0)
;;=M18.12^^90^994^76
;;^UTILITY(U,$J,358.3,21543,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21543,1,3,0)
;;=3^Prim Osteoarth,1st Carpometacarpal Joint(s),Left Hand,Unilat
;;^UTILITY(U,$J,358.3,21543,1,4,0)
;;=4^M18.12
;;^UTILITY(U,$J,358.3,21543,2)
;;=^5010798
;;^UTILITY(U,$J,358.3,21544,0)
;;=M19.031^^90^994^85
;;^UTILITY(U,$J,358.3,21544,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21544,1,3,0)
;;=3^Prim Osteoarth,Right Wrist
;;^UTILITY(U,$J,358.3,21544,1,4,0)
;;=4^M19.031
;;^UTILITY(U,$J,358.3,21544,2)
;;=^5010814
;;^UTILITY(U,$J,358.3,21545,0)
;;=M19.032^^90^994^81
;;^UTILITY(U,$J,358.3,21545,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21545,1,3,0)
;;=3^Prim Osteoarth,Left Wrist
;;^UTILITY(U,$J,358.3,21545,1,4,0)
;;=4^M19.032
;;^UTILITY(U,$J,358.3,21545,2)
;;=^5010815
;;^UTILITY(U,$J,358.3,21546,0)
;;=M19.041^^90^994^83
;;^UTILITY(U,$J,358.3,21546,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21546,1,3,0)
;;=3^Prim Osteoarth,Right Hand
;;^UTILITY(U,$J,358.3,21546,1,4,0)
;;=4^M19.041
;;^UTILITY(U,$J,358.3,21546,2)
;;=^5010817
;;^UTILITY(U,$J,358.3,21547,0)
;;=Z44.012^^90^995^4
;;^UTILITY(U,$J,358.3,21547,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21547,1,3,0)
;;=3^Fit/adjst of complete left artificial arm
;;^UTILITY(U,$J,358.3,21547,1,4,0)
;;=4^Z44.012
;;^UTILITY(U,$J,358.3,21547,2)
;;=^5062972
;;^UTILITY(U,$J,358.3,21548,0)
;;=Z44.011^^90^995^6
;;^UTILITY(U,$J,358.3,21548,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21548,1,3,0)
;;=3^Fit/adjst of complete right artificial arm
;;^UTILITY(U,$J,358.3,21548,1,4,0)
;;=4^Z44.011
;;^UTILITY(U,$J,358.3,21548,2)
;;=^5062971
;;^UTILITY(U,$J,358.3,21549,0)
;;=Z44.022^^90^995^10
;;^UTILITY(U,$J,358.3,21549,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21549,1,3,0)
;;=3^Fit/adjst of partial artificial left arm
;;^UTILITY(U,$J,358.3,21549,1,4,0)
;;=4^Z44.022
;;^UTILITY(U,$J,358.3,21549,2)
;;=^5062975
;;^UTILITY(U,$J,358.3,21550,0)
;;=Z44.021^^90^995^12
;;^UTILITY(U,$J,358.3,21550,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21550,1,3,0)
;;=3^Fit/adjst of partial artificial right arm
;;^UTILITY(U,$J,358.3,21550,1,4,0)
;;=4^Z44.021
;;^UTILITY(U,$J,358.3,21550,2)
;;=^5062974
;;^UTILITY(U,$J,358.3,21551,0)
;;=Z44.112^^90^995^5
;;^UTILITY(U,$J,358.3,21551,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21551,1,3,0)
;;=3^Fit/adjst of complete left artificial leg
;;^UTILITY(U,$J,358.3,21551,1,4,0)
;;=4^Z44.112
;;^UTILITY(U,$J,358.3,21551,2)
;;=^5062981
;;^UTILITY(U,$J,358.3,21552,0)
;;=Z44.111^^90^995^7
;;^UTILITY(U,$J,358.3,21552,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21552,1,3,0)
;;=3^Fit/adjst of complete right artificial leg
;;^UTILITY(U,$J,358.3,21552,1,4,0)
;;=4^Z44.111
;;^UTILITY(U,$J,358.3,21552,2)
;;=^5062980
;;^UTILITY(U,$J,358.3,21553,0)
;;=Z44.122^^90^995^11
;;^UTILITY(U,$J,358.3,21553,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21553,1,3,0)
;;=3^Fit/adjst of partial artificial left leg
;;^UTILITY(U,$J,358.3,21553,1,4,0)
;;=4^Z44.122
;;^UTILITY(U,$J,358.3,21553,2)
;;=^5062984
;;^UTILITY(U,$J,358.3,21554,0)
;;=Z44.121^^90^995^13
;;^UTILITY(U,$J,358.3,21554,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21554,1,3,0)
;;=3^Fit/adjst of partial artificial right leg
;;^UTILITY(U,$J,358.3,21554,1,4,0)
;;=4^Z44.121
;;^UTILITY(U,$J,358.3,21554,2)
;;=^5062983
;;^UTILITY(U,$J,358.3,21555,0)
;;=Z44.8^^90^995^8
;;^UTILITY(U,$J,358.3,21555,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21555,1,3,0)
;;=3^Fit/adjst of external prosthetic devices
;;^UTILITY(U,$J,358.3,21555,1,4,0)
;;=4^Z44.8
;;^UTILITY(U,$J,358.3,21555,2)
;;=^5062992
;;^UTILITY(U,$J,358.3,21556,0)
;;=Z46.89^^90^995^9
;;^UTILITY(U,$J,358.3,21556,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21556,1,3,0)
;;=3^Fit/adjst of oth devices
;;^UTILITY(U,$J,358.3,21556,1,4,0)
;;=4^Z46.89
;;^UTILITY(U,$J,358.3,21556,2)
;;=^5063023
;;^UTILITY(U,$J,358.3,21557,0)
;;=Z47.81^^90^995^16
;;^UTILITY(U,$J,358.3,21557,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21557,1,3,0)
;;=3^Ortho aftercare following surgical amp
;;^UTILITY(U,$J,358.3,21557,1,4,0)
;;=4^Z47.81
;;^UTILITY(U,$J,358.3,21557,2)
;;=^5063030
;;^UTILITY(U,$J,358.3,21558,0)
;;=Z47.82^^90^995^15
;;^UTILITY(U,$J,358.3,21558,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21558,1,3,0)
;;=3^Ortho aftercare following scoliosis surgery
;;^UTILITY(U,$J,358.3,21558,1,4,0)
;;=4^Z47.82
;;^UTILITY(U,$J,358.3,21558,2)
;;=^5063031
;;^UTILITY(U,$J,358.3,21559,0)
;;=Z47.89^^90^995^14
;;^UTILITY(U,$J,358.3,21559,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21559,1,3,0)
;;=3^Ortho Aftercare NEC
;;^UTILITY(U,$J,358.3,21559,1,4,0)
;;=4^Z47.89
;;^UTILITY(U,$J,358.3,21559,2)
;;=^5063032
;;^UTILITY(U,$J,358.3,21560,0)
;;=Z51.89^^90^995^2
;;^UTILITY(U,$J,358.3,21560,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21560,1,3,0)
;;=3^Encounter for Other Specified Aftercare
;;^UTILITY(U,$J,358.3,21560,1,4,0)
;;=4^Z51.89
;;^UTILITY(U,$J,358.3,21560,2)
;;=^5063065
;;^UTILITY(U,$J,358.3,21561,0)
;;=Z02.89^^90^995^1
;;^UTILITY(U,$J,358.3,21561,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21561,1,3,0)
;;=3^Administrative Exams
;;^UTILITY(U,$J,358.3,21561,1,4,0)
;;=4^Z02.89
;;^UTILITY(U,$J,358.3,21561,2)
;;=^5062645
;;^UTILITY(U,$J,358.3,21562,0)
;;=Z02.5^^90^995^3
;;^UTILITY(U,$J,358.3,21562,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21562,1,3,0)
;;=3^Exam for Sport Participation
;;^UTILITY(U,$J,358.3,21562,1,4,0)
;;=4^Z02.5
;;^UTILITY(U,$J,358.3,21562,2)
;;=^5062638
;;^UTILITY(U,$J,358.3,21563,0)
;;=S06.0X1S^^90^996^1
;;^UTILITY(U,$J,358.3,21563,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21563,1,3,0)
;;=3^Concussion w LOC of 30 minutes or less, sequela
;;^UTILITY(U,$J,358.3,21563,1,4,0)
;;=4^S06.0X1S
;;^UTILITY(U,$J,358.3,21563,2)
;;=^5020671
;;^UTILITY(U,$J,358.3,21564,0)
;;=S06.0X9S^^90^996^2
;;^UTILITY(U,$J,358.3,21564,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21564,1,3,0)
;;=3^Concussion w LOC of unsp duration, sequela
;;^UTILITY(U,$J,358.3,21564,1,4,0)
;;=4^S06.0X9S
;;^UTILITY(U,$J,358.3,21564,2)
;;=^5020695
;;^UTILITY(U,$J,358.3,21565,0)
;;=S06.0X0S^^90^996^3
;;^UTILITY(U,$J,358.3,21565,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21565,1,3,0)
;;=3^Concussion w/o LOC, sequela
;;^UTILITY(U,$J,358.3,21565,1,4,0)
;;=4^S06.0X0S
;;^UTILITY(U,$J,358.3,21565,2)
;;=^5020668
;;^UTILITY(U,$J,358.3,21566,0)
;;=S06.335S^^90^996^4
;;^UTILITY(U,$J,358.3,21566,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21566,1,3,0)
;;=3^Contus/lac cereb, w LOC >24 hr w ret consc lev, sequela
;;^UTILITY(U,$J,358.3,21566,1,4,0)
;;=4^S06.335S
;;^UTILITY(U,$J,358.3,21566,2)
;;=^5020863
;;^UTILITY(U,$J,358.3,21567,0)
;;=S06.336S^^90^996^5
;;^UTILITY(U,$J,358.3,21567,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21567,1,3,0)
;;=3^Contus/lac cereb, w LOC >24 hr w/o ret consc w surv, sequela
;;^UTILITY(U,$J,358.3,21567,1,4,0)
;;=4^S06.336S
;;^UTILITY(U,$J,358.3,21567,2)
;;=^5020866
;;^UTILITY(U,$J,358.3,21568,0)
;;=S06.333S^^90^996^6
;;^UTILITY(U,$J,358.3,21568,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21568,1,3,0)
;;=3^Contus/lac cereb, w LOC of 1-5 hrs 59 min, sequela
;;^UTILITY(U,$J,358.3,21568,1,4,0)
;;=4^S06.333S
;;^UTILITY(U,$J,358.3,21568,2)
;;=^5020857
;;^UTILITY(U,$J,358.3,21569,0)
;;=S06.331S^^90^996^7
;;^UTILITY(U,$J,358.3,21569,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21569,1,3,0)
;;=3^Contus/lac cereb, w LOC of 30 minutes or less, sequela
;;^UTILITY(U,$J,358.3,21569,1,4,0)
;;=4^S06.331S
;;^UTILITY(U,$J,358.3,21569,2)
;;=^5020851
;;^UTILITY(U,$J,358.3,21570,0)
;;=S06.325S^^90^996^8
;;^UTILITY(U,$J,358.3,21570,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21570,1,3,0)
;;=3^Contus/lac left cerebrum w LOC >24 hr w ret consc lev, sequela
;;^UTILITY(U,$J,358.3,21570,1,4,0)
;;=4^S06.325S
;;^UTILITY(U,$J,358.3,21570,2)
;;=^5020833
;;^UTILITY(U,$J,358.3,21571,0)
;;=S06.326S^^90^996^9
;;^UTILITY(U,$J,358.3,21571,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21571,1,3,0)
;;=3^Contus/lac left cerebrum w LOC >24 hr w/o ret consc w surv, sqla
;;^UTILITY(U,$J,358.3,21571,1,4,0)
;;=4^S06.326S
;;^UTILITY(U,$J,358.3,21571,2)
;;=^5020836
;;^UTILITY(U,$J,358.3,21572,0)
;;=S06.323S^^90^996^10
;;^UTILITY(U,$J,358.3,21572,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21572,1,3,0)
;;=3^Contus/lac left cerebrum w LOC of 1-5 hrs 59 min, sequela
;;^UTILITY(U,$J,358.3,21572,1,4,0)
;;=4^S06.323S
;;^UTILITY(U,$J,358.3,21572,2)
;;=^5020827
;;^UTILITY(U,$J,358.3,21573,0)
;;=S06.321S^^90^996^11
;;^UTILITY(U,$J,358.3,21573,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21573,1,3,0)
;;=3^Contus/lac left cerebrum w LOC of 30 minutes or less, sequela
;;^UTILITY(U,$J,358.3,21573,1,4,0)
;;=4^S06.321S
;;^UTILITY(U,$J,358.3,21573,2)
;;=^5020821
;;^UTILITY(U,$J,358.3,21574,0)
;;=S06.322S^^90^996^12
;;^UTILITY(U,$J,358.3,21574,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21574,1,3,0)
;;=3^Contus/lac left cerebrum w LOC of 31-59 min, sequela
;;^UTILITY(U,$J,358.3,21574,1,4,0)
;;=4^S06.322S
;;^UTILITY(U,$J,358.3,21574,2)
;;=^5020824
;;^UTILITY(U,$J,358.3,21575,0)
;;=S06.324S^^90^996^13
;;^UTILITY(U,$J,358.3,21575,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21575,1,3,0)
;;=3^Contus/lac left cerebrum w LOC of 6-24 hrs, sequela
;;^UTILITY(U,$J,358.3,21575,1,4,0)
;;=4^S06.324S
;;^UTILITY(U,$J,358.3,21575,2)
;;=^5020830
;;^UTILITY(U,$J,358.3,21576,0)
;;=S06.329S^^90^996^14
;;^UTILITY(U,$J,358.3,21576,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21576,1,3,0)
;;=3^Contus/lac left cerebrum w LOC of unsp duration, sequela
;;^UTILITY(U,$J,358.3,21576,1,4,0)
;;=4^S06.329S
;;^UTILITY(U,$J,358.3,21576,2)
;;=^5020845
;;^UTILITY(U,$J,358.3,21577,0)
;;=S06.320S^^90^996^15
;;^UTILITY(U,$J,358.3,21577,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21577,1,3,0)
;;=3^Contus/lac left cerebrum w/o LOC, sequela
;;^UTILITY(U,$J,358.3,21577,1,4,0)
;;=4^S06.320S
;;^UTILITY(U,$J,358.3,21577,2)
;;=^5020818
;;^UTILITY(U,$J,358.3,21578,0)
;;=S06.315S^^90^996^16
;;^UTILITY(U,$J,358.3,21578,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21578,1,3,0)
;;=3^Contus/lac right cerebrum w LOC >24 hr w ret consc lev, sequela
;;^UTILITY(U,$J,358.3,21578,1,4,0)
;;=4^S06.315S
;;^UTILITY(U,$J,358.3,21578,2)
;;=^5020803
;;^UTILITY(U,$J,358.3,21579,0)
;;=S06.316S^^90^996^17
;;^UTILITY(U,$J,358.3,21579,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21579,1,3,0)
;;=3^Contus/lac right cerebrum w LOC >24 hr w/o ret consc w surv, sqla
;;^UTILITY(U,$J,358.3,21579,1,4,0)
;;=4^S06.316S
;;^UTILITY(U,$J,358.3,21579,2)
;;=^5020806
;;^UTILITY(U,$J,358.3,21580,0)
;;=S06.313S^^90^996^18
;;^UTILITY(U,$J,358.3,21580,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21580,1,3,0)
;;=3^Contus/lac right cerebrum w LOC of 1-5 hrs 59 min, sequela
;;^UTILITY(U,$J,358.3,21580,1,4,0)
;;=4^S06.313S
;;^UTILITY(U,$J,358.3,21580,2)
;;=^5020797
;;^UTILITY(U,$J,358.3,21581,0)
;;=S06.311S^^90^996^19
;;^UTILITY(U,$J,358.3,21581,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21581,1,3,0)
;;=3^Contus/lac right cerebrum w LOC of 30 minutes or less, sequela
;;^UTILITY(U,$J,358.3,21581,1,4,0)
;;=4^S06.311S
;;^UTILITY(U,$J,358.3,21581,2)
;;=^5020791
;;^UTILITY(U,$J,358.3,21582,0)
;;=S06.312S^^90^996^20
;;^UTILITY(U,$J,358.3,21582,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21582,1,3,0)
;;=3^Contus/lac right cerebrum w LOC of 31-59 min, sequela
;;^UTILITY(U,$J,358.3,21582,1,4,0)
;;=4^S06.312S
;;^UTILITY(U,$J,358.3,21582,2)
;;=^5020794
;;^UTILITY(U,$J,358.3,21583,0)
;;=S06.314S^^90^996^21
;;^UTILITY(U,$J,358.3,21583,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21583,1,3,0)
;;=3^Contus/lac right cerebrum w LOC of 6-24 hrs, sequela
;;^UTILITY(U,$J,358.3,21583,1,4,0)
;;=4^S06.314S
;;^UTILITY(U,$J,358.3,21583,2)
;;=^5020800
;;^UTILITY(U,$J,358.3,21584,0)
;;=S06.319S^^90^996^22
;;^UTILITY(U,$J,358.3,21584,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21584,1,3,0)
;;=3^Contus/lac right cerebrum w LOC of unsp duration, sequela
;;^UTILITY(U,$J,358.3,21584,1,4,0)
;;=4^S06.319S
;;^UTILITY(U,$J,358.3,21584,2)
;;=^5020815
;;^UTILITY(U,$J,358.3,21585,0)
;;=S06.310S^^90^996^23
;;^UTILITY(U,$J,358.3,21585,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21585,1,3,0)
;;=3^Contus/lac right cerebrum w/o LOC, sequela
;;^UTILITY(U,$J,358.3,21585,1,4,0)
;;=4^S06.310S
;;^UTILITY(U,$J,358.3,21585,2)
;;=^5020788
;;^UTILITY(U,$J,358.3,21586,0)
;;=S06.385S^^90^996^24
;;^UTILITY(U,$J,358.3,21586,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21586,1,3,0)
;;=3^Contus/lac/hem brnst w LOC >24 hr w ret consc lev, sequela
;;^UTILITY(U,$J,358.3,21586,1,4,0)
;;=4^S06.385S
;;^UTILITY(U,$J,358.3,21586,2)
;;=^5021013
;;^UTILITY(U,$J,358.3,21587,0)
;;=S06.386S^^90^996^25
;;^UTILITY(U,$J,358.3,21587,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21587,1,3,0)
;;=3^Contus/lac/hem brnst w LOC >24 hr w/o ret consc w surv, sqla
;;^UTILITY(U,$J,358.3,21587,1,4,0)
;;=4^S06.386S
;;^UTILITY(U,$J,358.3,21587,2)
;;=^5021016
;;^UTILITY(U,$J,358.3,21588,0)
;;=S06.383S^^90^996^26
;;^UTILITY(U,$J,358.3,21588,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21588,1,3,0)
;;=3^Contus/lac/hem brnst w LOC of 1-5 hrs 59 min, sequela
;;^UTILITY(U,$J,358.3,21588,1,4,0)
;;=4^S06.383S
;;^UTILITY(U,$J,358.3,21588,2)
;;=^5021007
;;^UTILITY(U,$J,358.3,21589,0)
;;=S06.381S^^90^996^27
;;^UTILITY(U,$J,358.3,21589,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21589,1,3,0)
;;=3^Contus/lac/hem brnst w LOC of 30 minutes or less, sequela
;;^UTILITY(U,$J,358.3,21589,1,4,0)
;;=4^S06.381S
;;^UTILITY(U,$J,358.3,21589,2)
;;=^5021001
;;^UTILITY(U,$J,358.3,21590,0)
;;=S06.382S^^90^996^28
;;^UTILITY(U,$J,358.3,21590,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21590,1,3,0)
;;=3^Contus/lac/hem brnst w LOC of 31-59 min, sequela
;;^UTILITY(U,$J,358.3,21590,1,4,0)
;;=4^S06.382S
;;^UTILITY(U,$J,358.3,21590,2)
;;=^5021004
;;^UTILITY(U,$J,358.3,21591,0)
;;=S06.384S^^90^996^29
;;^UTILITY(U,$J,358.3,21591,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21591,1,3,0)
;;=3^Contus/lac/hem brnst w LOC of 6-24 hrs, sequela
;;^UTILITY(U,$J,358.3,21591,1,4,0)
;;=4^S06.384S
;;^UTILITY(U,$J,358.3,21591,2)
;;=^5021010
;;^UTILITY(U,$J,358.3,21592,0)
;;=S06.389S^^90^996^30
;;^UTILITY(U,$J,358.3,21592,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21592,1,3,0)
;;=3^Contus/lac/hem brnst w LOC of unsp duration, sequela
;;^UTILITY(U,$J,358.3,21592,1,4,0)
;;=4^S06.389S
;;^UTILITY(U,$J,358.3,21592,2)
;;=^5021025
;;^UTILITY(U,$J,358.3,21593,0)
;;=S06.380S^^90^996^31
;;^UTILITY(U,$J,358.3,21593,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21593,1,3,0)
;;=3^Contus/lac/hem brnst w/o LOC, sequela
;;^UTILITY(U,$J,358.3,21593,1,4,0)
;;=4^S06.380S
;;^UTILITY(U,$J,358.3,21593,2)
;;=^5020998
;;^UTILITY(U,$J,358.3,21594,0)
;;=S06.375S^^90^996^32
;;^UTILITY(U,$J,358.3,21594,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21594,1,3,0)
;;=3^Contus/lac/hem crblm w LOC >24 hr w ret consc lev, sequela
;;^UTILITY(U,$J,358.3,21594,1,4,0)
;;=4^S06.375S
;;^UTILITY(U,$J,358.3,21594,2)
;;=^5020983
;;^UTILITY(U,$J,358.3,21595,0)
;;=S06.376S^^90^996^33
;;^UTILITY(U,$J,358.3,21595,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21595,1,3,0)
;;=3^Contus/lac/hem crblm w LOC >24 hr w/o ret consc w surv, sqla
;;^UTILITY(U,$J,358.3,21595,1,4,0)
;;=4^S06.376S
;;^UTILITY(U,$J,358.3,21595,2)
;;=^5020986
;;^UTILITY(U,$J,358.3,21596,0)
;;=S06.373S^^90^996^34
;;^UTILITY(U,$J,358.3,21596,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21596,1,3,0)
;;=3^Contus/lac/hem crblm w LOC of 1-5 hrs 59 min, sequela
;;^UTILITY(U,$J,358.3,21596,1,4,0)
;;=4^S06.373S
;;^UTILITY(U,$J,358.3,21596,2)
;;=^5020977
;;^UTILITY(U,$J,358.3,21597,0)
;;=S06.371S^^90^996^35
;;^UTILITY(U,$J,358.3,21597,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21597,1,3,0)
;;=3^Contus/lac/hem crblm w LOC of 30 minutes or less, sequela
;;^UTILITY(U,$J,358.3,21597,1,4,0)
;;=4^S06.371S
;;^UTILITY(U,$J,358.3,21597,2)
;;=^5020971
;;^UTILITY(U,$J,358.3,21598,0)
;;=S06.372S^^90^996^36
;;^UTILITY(U,$J,358.3,21598,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21598,1,3,0)
;;=3^Contus/lac/hem crblm w LOC of 31-59 min, sequela
;;^UTILITY(U,$J,358.3,21598,1,4,0)
;;=4^S06.372S
;;^UTILITY(U,$J,358.3,21598,2)
;;=^5020974
;;^UTILITY(U,$J,358.3,21599,0)
;;=S06.374S^^90^996^37
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI08W 19767 printed Jan 14, 2021@17:04:31 Page 2
IBDEI08W ; ; 28-OCT-2020
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;OCT 28, 2020
+2 if 'DIFQR(358.3)
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.3,21534,1,3,0)
+2 ;;=3^Mallet Finger,Left Finger(s)
+3 ;;^UTILITY(U,$J,358.3,21534,1,4,0)
+4 ;;=4^M20.012
+5 ;;^UTILITY(U,$J,358.3,21534,2)
+6 ;;=^5011031
+7 ;;^UTILITY(U,$J,358.3,21535,0)
+8 ;;=M20.021^^90^994^9
+9 ;;^UTILITY(U,$J,358.3,21535,1,0)
+10 ;;=^358.31IA^4^2
+11 ;;^UTILITY(U,$J,358.3,21535,1,3,0)
+12 ;;=3^Boutonniere Deformity,Right Finger(s)
+13 ;;^UTILITY(U,$J,358.3,21535,1,4,0)
+14 ;;=4^M20.021
+15 ;;^UTILITY(U,$J,358.3,21535,2)
+16 ;;=^5011033
+17 ;;^UTILITY(U,$J,358.3,21536,0)
+18 ;;=M20.022^^90^994^8
+19 ;;^UTILITY(U,$J,358.3,21536,1,0)
+20 ;;=^358.31IA^4^2
+21 ;;^UTILITY(U,$J,358.3,21536,1,3,0)
+22 ;;=3^Boutonniere Deformity,Left Finger(s)
+23 ;;^UTILITY(U,$J,358.3,21536,1,4,0)
+24 ;;=4^M20.022
+25 ;;^UTILITY(U,$J,358.3,21536,2)
+26 ;;=^5011034
+27 ;;^UTILITY(U,$J,358.3,21537,0)
+28 ;;=M20.031^^90^994^197
+29 ;;^UTILITY(U,$J,358.3,21537,1,0)
+30 ;;=^358.31IA^4^2
+31 ;;^UTILITY(U,$J,358.3,21537,1,3,0)
+32 ;;=3^Swan-Neck Deformity,Right Finger(s)
+33 ;;^UTILITY(U,$J,358.3,21537,1,4,0)
+34 ;;=4^M20.031
+35 ;;^UTILITY(U,$J,358.3,21537,2)
+36 ;;=^5011036
+37 ;;^UTILITY(U,$J,358.3,21538,0)
+38 ;;=M20.032^^90^994^196
+39 ;;^UTILITY(U,$J,358.3,21538,1,0)
+40 ;;=^358.31IA^4^2
+41 ;;^UTILITY(U,$J,358.3,21538,1,3,0)
+42 ;;=3^Swan-Neck Deformity,Left Finger(s)
+43 ;;^UTILITY(U,$J,358.3,21538,1,4,0)
+44 ;;=4^M20.032
+45 ;;^UTILITY(U,$J,358.3,21538,2)
+46 ;;=^5011037
+47 ;;^UTILITY(U,$J,358.3,21539,0)
+48 ;;=M21.331^^90^994^209
+49 ;;^UTILITY(U,$J,358.3,21539,1,0)
+50 ;;=^358.31IA^4^2
+51 ;;^UTILITY(U,$J,358.3,21539,1,3,0)
+52 ;;=3^Wrist Drop,Right Wrist
+53 ;;^UTILITY(U,$J,358.3,21539,1,4,0)
+54 ;;=4^M21.331
+55 ;;^UTILITY(U,$J,358.3,21539,2)
+56 ;;=^5011107
+57 ;;^UTILITY(U,$J,358.3,21540,0)
+58 ;;=M21.332^^90^994^208
+59 ;;^UTILITY(U,$J,358.3,21540,1,0)
+60 ;;=^358.31IA^4^2
+61 ;;^UTILITY(U,$J,358.3,21540,1,3,0)
+62 ;;=3^Wrist Drop,Left Wrist
+63 ;;^UTILITY(U,$J,358.3,21540,1,4,0)
+64 ;;=4^M21.332
+65 ;;^UTILITY(U,$J,358.3,21540,2)
+66 ;;=^5011108
+67 ;;^UTILITY(U,$J,358.3,21541,0)
+68 ;;=M18.0^^90^994^74
+69 ;;^UTILITY(U,$J,358.3,21541,1,0)
+70 ;;=^358.31IA^4^2
+71 ;;^UTILITY(U,$J,358.3,21541,1,3,0)
+72 ;;=3^Prim Osteoarth,1st Carpometacarpal Joint(s),Bilateral
+73 ;;^UTILITY(U,$J,358.3,21541,1,4,0)
+74 ;;=4^M18.0
+75 ;;^UTILITY(U,$J,358.3,21541,2)
+76 ;;=^5010795
+77 ;;^UTILITY(U,$J,358.3,21542,0)
+78 ;;=M18.11^^90^994^75
+79 ;;^UTILITY(U,$J,358.3,21542,1,0)
+80 ;;=^358.31IA^4^2
+81 ;;^UTILITY(U,$J,358.3,21542,1,3,0)
+82 ;;=3^Prim Osteoarth,1st Carpometacarpal Joint(s),Right Hand,Unilat
+83 ;;^UTILITY(U,$J,358.3,21542,1,4,0)
+84 ;;=4^M18.11
+85 ;;^UTILITY(U,$J,358.3,21542,2)
+86 ;;=^5010797
+87 ;;^UTILITY(U,$J,358.3,21543,0)
+88 ;;=M18.12^^90^994^76
+89 ;;^UTILITY(U,$J,358.3,21543,1,0)
+90 ;;=^358.31IA^4^2
+91 ;;^UTILITY(U,$J,358.3,21543,1,3,0)
+92 ;;=3^Prim Osteoarth,1st Carpometacarpal Joint(s),Left Hand,Unilat
+93 ;;^UTILITY(U,$J,358.3,21543,1,4,0)
+94 ;;=4^M18.12
+95 ;;^UTILITY(U,$J,358.3,21543,2)
+96 ;;=^5010798
+97 ;;^UTILITY(U,$J,358.3,21544,0)
+98 ;;=M19.031^^90^994^85
+99 ;;^UTILITY(U,$J,358.3,21544,1,0)
+100 ;;=^358.31IA^4^2
+101 ;;^UTILITY(U,$J,358.3,21544,1,3,0)
+102 ;;=3^Prim Osteoarth,Right Wrist
+103 ;;^UTILITY(U,$J,358.3,21544,1,4,0)
+104 ;;=4^M19.031
+105 ;;^UTILITY(U,$J,358.3,21544,2)
+106 ;;=^5010814
+107 ;;^UTILITY(U,$J,358.3,21545,0)
+108 ;;=M19.032^^90^994^81
+109 ;;^UTILITY(U,$J,358.3,21545,1,0)
+110 ;;=^358.31IA^4^2
+111 ;;^UTILITY(U,$J,358.3,21545,1,3,0)
+112 ;;=3^Prim Osteoarth,Left Wrist
+113 ;;^UTILITY(U,$J,358.3,21545,1,4,0)
+114 ;;=4^M19.032
+115 ;;^UTILITY(U,$J,358.3,21545,2)
+116 ;;=^5010815
+117 ;;^UTILITY(U,$J,358.3,21546,0)
+118 ;;=M19.041^^90^994^83
+119 ;;^UTILITY(U,$J,358.3,21546,1,0)
+120 ;;=^358.31IA^4^2
+121 ;;^UTILITY(U,$J,358.3,21546,1,3,0)
+122 ;;=3^Prim Osteoarth,Right Hand
+123 ;;^UTILITY(U,$J,358.3,21546,1,4,0)
+124 ;;=4^M19.041
+125 ;;^UTILITY(U,$J,358.3,21546,2)
+126 ;;=^5010817
+127 ;;^UTILITY(U,$J,358.3,21547,0)
+128 ;;=Z44.012^^90^995^4
+129 ;;^UTILITY(U,$J,358.3,21547,1,0)
+130 ;;=^358.31IA^4^2
+131 ;;^UTILITY(U,$J,358.3,21547,1,3,0)
+132 ;;=3^Fit/adjst of complete left artificial arm
+133 ;;^UTILITY(U,$J,358.3,21547,1,4,0)
+134 ;;=4^Z44.012
+135 ;;^UTILITY(U,$J,358.3,21547,2)
+136 ;;=^5062972
+137 ;;^UTILITY(U,$J,358.3,21548,0)
+138 ;;=Z44.011^^90^995^6
+139 ;;^UTILITY(U,$J,358.3,21548,1,0)
+140 ;;=^358.31IA^4^2
+141 ;;^UTILITY(U,$J,358.3,21548,1,3,0)
+142 ;;=3^Fit/adjst of complete right artificial arm
+143 ;;^UTILITY(U,$J,358.3,21548,1,4,0)
+144 ;;=4^Z44.011
+145 ;;^UTILITY(U,$J,358.3,21548,2)
+146 ;;=^5062971
+147 ;;^UTILITY(U,$J,358.3,21549,0)
+148 ;;=Z44.022^^90^995^10
+149 ;;^UTILITY(U,$J,358.3,21549,1,0)
+150 ;;=^358.31IA^4^2
+151 ;;^UTILITY(U,$J,358.3,21549,1,3,0)
+152 ;;=3^Fit/adjst of partial artificial left arm
+153 ;;^UTILITY(U,$J,358.3,21549,1,4,0)
+154 ;;=4^Z44.022
+155 ;;^UTILITY(U,$J,358.3,21549,2)
+156 ;;=^5062975
+157 ;;^UTILITY(U,$J,358.3,21550,0)
+158 ;;=Z44.021^^90^995^12
+159 ;;^UTILITY(U,$J,358.3,21550,1,0)
+160 ;;=^358.31IA^4^2
+161 ;;^UTILITY(U,$J,358.3,21550,1,3,0)
+162 ;;=3^Fit/adjst of partial artificial right arm
+163 ;;^UTILITY(U,$J,358.3,21550,1,4,0)
+164 ;;=4^Z44.021
+165 ;;^UTILITY(U,$J,358.3,21550,2)
+166 ;;=^5062974
+167 ;;^UTILITY(U,$J,358.3,21551,0)
+168 ;;=Z44.112^^90^995^5
+169 ;;^UTILITY(U,$J,358.3,21551,1,0)
+170 ;;=^358.31IA^4^2
+171 ;;^UTILITY(U,$J,358.3,21551,1,3,0)
+172 ;;=3^Fit/adjst of complete left artificial leg
+173 ;;^UTILITY(U,$J,358.3,21551,1,4,0)
+174 ;;=4^Z44.112
+175 ;;^UTILITY(U,$J,358.3,21551,2)
+176 ;;=^5062981
+177 ;;^UTILITY(U,$J,358.3,21552,0)
+178 ;;=Z44.111^^90^995^7
+179 ;;^UTILITY(U,$J,358.3,21552,1,0)
+180 ;;=^358.31IA^4^2
+181 ;;^UTILITY(U,$J,358.3,21552,1,3,0)
+182 ;;=3^Fit/adjst of complete right artificial leg
+183 ;;^UTILITY(U,$J,358.3,21552,1,4,0)
+184 ;;=4^Z44.111
+185 ;;^UTILITY(U,$J,358.3,21552,2)
+186 ;;=^5062980
+187 ;;^UTILITY(U,$J,358.3,21553,0)
+188 ;;=Z44.122^^90^995^11
+189 ;;^UTILITY(U,$J,358.3,21553,1,0)
+190 ;;=^358.31IA^4^2
+191 ;;^UTILITY(U,$J,358.3,21553,1,3,0)
+192 ;;=3^Fit/adjst of partial artificial left leg
+193 ;;^UTILITY(U,$J,358.3,21553,1,4,0)
+194 ;;=4^Z44.122
+195 ;;^UTILITY(U,$J,358.3,21553,2)
+196 ;;=^5062984
+197 ;;^UTILITY(U,$J,358.3,21554,0)
+198 ;;=Z44.121^^90^995^13
+199 ;;^UTILITY(U,$J,358.3,21554,1,0)
+200 ;;=^358.31IA^4^2
+201 ;;^UTILITY(U,$J,358.3,21554,1,3,0)
+202 ;;=3^Fit/adjst of partial artificial right leg
+203 ;;^UTILITY(U,$J,358.3,21554,1,4,0)
+204 ;;=4^Z44.121
+205 ;;^UTILITY(U,$J,358.3,21554,2)
+206 ;;=^5062983
+207 ;;^UTILITY(U,$J,358.3,21555,0)
+208 ;;=Z44.8^^90^995^8
+209 ;;^UTILITY(U,$J,358.3,21555,1,0)
+210 ;;=^358.31IA^4^2
+211 ;;^UTILITY(U,$J,358.3,21555,1,3,0)
+212 ;;=3^Fit/adjst of external prosthetic devices
+213 ;;^UTILITY(U,$J,358.3,21555,1,4,0)
+214 ;;=4^Z44.8
+215 ;;^UTILITY(U,$J,358.3,21555,2)
+216 ;;=^5062992
+217 ;;^UTILITY(U,$J,358.3,21556,0)
+218 ;;=Z46.89^^90^995^9
+219 ;;^UTILITY(U,$J,358.3,21556,1,0)
+220 ;;=^358.31IA^4^2
+221 ;;^UTILITY(U,$J,358.3,21556,1,3,0)
+222 ;;=3^Fit/adjst of oth devices
+223 ;;^UTILITY(U,$J,358.3,21556,1,4,0)
+224 ;;=4^Z46.89
+225 ;;^UTILITY(U,$J,358.3,21556,2)
+226 ;;=^5063023
+227 ;;^UTILITY(U,$J,358.3,21557,0)
+228 ;;=Z47.81^^90^995^16
+229 ;;^UTILITY(U,$J,358.3,21557,1,0)
+230 ;;=^358.31IA^4^2
+231 ;;^UTILITY(U,$J,358.3,21557,1,3,0)
+232 ;;=3^Ortho aftercare following surgical amp
+233 ;;^UTILITY(U,$J,358.3,21557,1,4,0)
+234 ;;=4^Z47.81
+235 ;;^UTILITY(U,$J,358.3,21557,2)
+236 ;;=^5063030
+237 ;;^UTILITY(U,$J,358.3,21558,0)
+238 ;;=Z47.82^^90^995^15
+239 ;;^UTILITY(U,$J,358.3,21558,1,0)
+240 ;;=^358.31IA^4^2
+241 ;;^UTILITY(U,$J,358.3,21558,1,3,0)
+242 ;;=3^Ortho aftercare following scoliosis surgery
+243 ;;^UTILITY(U,$J,358.3,21558,1,4,0)
+244 ;;=4^Z47.82
+245 ;;^UTILITY(U,$J,358.3,21558,2)
+246 ;;=^5063031
+247 ;;^UTILITY(U,$J,358.3,21559,0)
+248 ;;=Z47.89^^90^995^14
+249 ;;^UTILITY(U,$J,358.3,21559,1,0)
+250 ;;=^358.31IA^4^2
+251 ;;^UTILITY(U,$J,358.3,21559,1,3,0)
+252 ;;=3^Ortho Aftercare NEC
+253 ;;^UTILITY(U,$J,358.3,21559,1,4,0)
+254 ;;=4^Z47.89
+255 ;;^UTILITY(U,$J,358.3,21559,2)
+256 ;;=^5063032
+257 ;;^UTILITY(U,$J,358.3,21560,0)
+258 ;;=Z51.89^^90^995^2
+259 ;;^UTILITY(U,$J,358.3,21560,1,0)
+260 ;;=^358.31IA^4^2
+261 ;;^UTILITY(U,$J,358.3,21560,1,3,0)
+262 ;;=3^Encounter for Other Specified Aftercare
+263 ;;^UTILITY(U,$J,358.3,21560,1,4,0)
+264 ;;=4^Z51.89
+265 ;;^UTILITY(U,$J,358.3,21560,2)
+266 ;;=^5063065
+267 ;;^UTILITY(U,$J,358.3,21561,0)
+268 ;;=Z02.89^^90^995^1
+269 ;;^UTILITY(U,$J,358.3,21561,1,0)
+270 ;;=^358.31IA^4^2
+271 ;;^UTILITY(U,$J,358.3,21561,1,3,0)
+272 ;;=3^Administrative Exams
+273 ;;^UTILITY(U,$J,358.3,21561,1,4,0)
+274 ;;=4^Z02.89
+275 ;;^UTILITY(U,$J,358.3,21561,2)
+276 ;;=^5062645
+277 ;;^UTILITY(U,$J,358.3,21562,0)
+278 ;;=Z02.5^^90^995^3
+279 ;;^UTILITY(U,$J,358.3,21562,1,0)
+280 ;;=^358.31IA^4^2
+281 ;;^UTILITY(U,$J,358.3,21562,1,3,0)
+282 ;;=3^Exam for Sport Participation
+283 ;;^UTILITY(U,$J,358.3,21562,1,4,0)
+284 ;;=4^Z02.5
+285 ;;^UTILITY(U,$J,358.3,21562,2)
+286 ;;=^5062638
+287 ;;^UTILITY(U,$J,358.3,21563,0)
+288 ;;=S06.0X1S^^90^996^1
+289 ;;^UTILITY(U,$J,358.3,21563,1,0)
+290 ;;=^358.31IA^4^2
+291 ;;^UTILITY(U,$J,358.3,21563,1,3,0)
+292 ;;=3^Concussion w LOC of 30 minutes or less, sequela
+293 ;;^UTILITY(U,$J,358.3,21563,1,4,0)
+294 ;;=4^S06.0X1S
+295 ;;^UTILITY(U,$J,358.3,21563,2)
+296 ;;=^5020671
+297 ;;^UTILITY(U,$J,358.3,21564,0)
+298 ;;=S06.0X9S^^90^996^2
+299 ;;^UTILITY(U,$J,358.3,21564,1,0)
+300 ;;=^358.31IA^4^2
+301 ;;^UTILITY(U,$J,358.3,21564,1,3,0)
+302 ;;=3^Concussion w LOC of unsp duration, sequela
+303 ;;^UTILITY(U,$J,358.3,21564,1,4,0)
+304 ;;=4^S06.0X9S
+305 ;;^UTILITY(U,$J,358.3,21564,2)
+306 ;;=^5020695
+307 ;;^UTILITY(U,$J,358.3,21565,0)
+308 ;;=S06.0X0S^^90^996^3
+309 ;;^UTILITY(U,$J,358.3,21565,1,0)
+310 ;;=^358.31IA^4^2
+311 ;;^UTILITY(U,$J,358.3,21565,1,3,0)
+312 ;;=3^Concussion w/o LOC, sequela
+313 ;;^UTILITY(U,$J,358.3,21565,1,4,0)
+314 ;;=4^S06.0X0S
+315 ;;^UTILITY(U,$J,358.3,21565,2)
+316 ;;=^5020668
+317 ;;^UTILITY(U,$J,358.3,21566,0)
+318 ;;=S06.335S^^90^996^4
+319 ;;^UTILITY(U,$J,358.3,21566,1,0)
+320 ;;=^358.31IA^4^2
+321 ;;^UTILITY(U,$J,358.3,21566,1,3,0)
+322 ;;=3^Contus/lac cereb, w LOC >24 hr w ret consc lev, sequela
+323 ;;^UTILITY(U,$J,358.3,21566,1,4,0)
+324 ;;=4^S06.335S
+325 ;;^UTILITY(U,$J,358.3,21566,2)
+326 ;;=^5020863
+327 ;;^UTILITY(U,$J,358.3,21567,0)
+328 ;;=S06.336S^^90^996^5
+329 ;;^UTILITY(U,$J,358.3,21567,1,0)
+330 ;;=^358.31IA^4^2
+331 ;;^UTILITY(U,$J,358.3,21567,1,3,0)
+332 ;;=3^Contus/lac cereb, w LOC >24 hr w/o ret consc w surv, sequela
+333 ;;^UTILITY(U,$J,358.3,21567,1,4,0)
+334 ;;=4^S06.336S
+335 ;;^UTILITY(U,$J,358.3,21567,2)
+336 ;;=^5020866
+337 ;;^UTILITY(U,$J,358.3,21568,0)
+338 ;;=S06.333S^^90^996^6
+339 ;;^UTILITY(U,$J,358.3,21568,1,0)
+340 ;;=^358.31IA^4^2
+341 ;;^UTILITY(U,$J,358.3,21568,1,3,0)
+342 ;;=3^Contus/lac cereb, w LOC of 1-5 hrs 59 min, sequela
+343 ;;^UTILITY(U,$J,358.3,21568,1,4,0)
+344 ;;=4^S06.333S
+345 ;;^UTILITY(U,$J,358.3,21568,2)
+346 ;;=^5020857
+347 ;;^UTILITY(U,$J,358.3,21569,0)
+348 ;;=S06.331S^^90^996^7
+349 ;;^UTILITY(U,$J,358.3,21569,1,0)
+350 ;;=^358.31IA^4^2
+351 ;;^UTILITY(U,$J,358.3,21569,1,3,0)
+352 ;;=3^Contus/lac cereb, w LOC of 30 minutes or less, sequela
+353 ;;^UTILITY(U,$J,358.3,21569,1,4,0)
+354 ;;=4^S06.331S
+355 ;;^UTILITY(U,$J,358.3,21569,2)
+356 ;;=^5020851
+357 ;;^UTILITY(U,$J,358.3,21570,0)
+358 ;;=S06.325S^^90^996^8
+359 ;;^UTILITY(U,$J,358.3,21570,1,0)
+360 ;;=^358.31IA^4^2
+361 ;;^UTILITY(U,$J,358.3,21570,1,3,0)
+362 ;;=3^Contus/lac left cerebrum w LOC >24 hr w ret consc lev, sequela
+363 ;;^UTILITY(U,$J,358.3,21570,1,4,0)
+364 ;;=4^S06.325S
+365 ;;^UTILITY(U,$J,358.3,21570,2)
+366 ;;=^5020833
+367 ;;^UTILITY(U,$J,358.3,21571,0)
+368 ;;=S06.326S^^90^996^9
+369 ;;^UTILITY(U,$J,358.3,21571,1,0)
+370 ;;=^358.31IA^4^2
+371 ;;^UTILITY(U,$J,358.3,21571,1,3,0)
+372 ;;=3^Contus/lac left cerebrum w LOC >24 hr w/o ret consc w surv, sqla
+373 ;;^UTILITY(U,$J,358.3,21571,1,4,0)
+374 ;;=4^S06.326S
+375 ;;^UTILITY(U,$J,358.3,21571,2)
+376 ;;=^5020836
+377 ;;^UTILITY(U,$J,358.3,21572,0)
+378 ;;=S06.323S^^90^996^10
+379 ;;^UTILITY(U,$J,358.3,21572,1,0)
+380 ;;=^358.31IA^4^2
+381 ;;^UTILITY(U,$J,358.3,21572,1,3,0)
+382 ;;=3^Contus/lac left cerebrum w LOC of 1-5 hrs 59 min, sequela
+383 ;;^UTILITY(U,$J,358.3,21572,1,4,0)
+384 ;;=4^S06.323S
+385 ;;^UTILITY(U,$J,358.3,21572,2)
+386 ;;=^5020827
+387 ;;^UTILITY(U,$J,358.3,21573,0)
+388 ;;=S06.321S^^90^996^11
+389 ;;^UTILITY(U,$J,358.3,21573,1,0)
+390 ;;=^358.31IA^4^2
+391 ;;^UTILITY(U,$J,358.3,21573,1,3,0)
+392 ;;=3^Contus/lac left cerebrum w LOC of 30 minutes or less, sequela
+393 ;;^UTILITY(U,$J,358.3,21573,1,4,0)
+394 ;;=4^S06.321S
+395 ;;^UTILITY(U,$J,358.3,21573,2)
+396 ;;=^5020821
+397 ;;^UTILITY(U,$J,358.3,21574,0)
+398 ;;=S06.322S^^90^996^12
+399 ;;^UTILITY(U,$J,358.3,21574,1,0)
+400 ;;=^358.31IA^4^2
+401 ;;^UTILITY(U,$J,358.3,21574,1,3,0)
+402 ;;=3^Contus/lac left cerebrum w LOC of 31-59 min, sequela
+403 ;;^UTILITY(U,$J,358.3,21574,1,4,0)
+404 ;;=4^S06.322S
+405 ;;^UTILITY(U,$J,358.3,21574,2)
+406 ;;=^5020824
+407 ;;^UTILITY(U,$J,358.3,21575,0)
+408 ;;=S06.324S^^90^996^13
+409 ;;^UTILITY(U,$J,358.3,21575,1,0)
+410 ;;=^358.31IA^4^2
+411 ;;^UTILITY(U,$J,358.3,21575,1,3,0)
+412 ;;=3^Contus/lac left cerebrum w LOC of 6-24 hrs, sequela
+413 ;;^UTILITY(U,$J,358.3,21575,1,4,0)
+414 ;;=4^S06.324S
+415 ;;^UTILITY(U,$J,358.3,21575,2)
+416 ;;=^5020830
+417 ;;^UTILITY(U,$J,358.3,21576,0)
+418 ;;=S06.329S^^90^996^14
+419 ;;^UTILITY(U,$J,358.3,21576,1,0)
+420 ;;=^358.31IA^4^2
+421 ;;^UTILITY(U,$J,358.3,21576,1,3,0)
+422 ;;=3^Contus/lac left cerebrum w LOC of unsp duration, sequela
+423 ;;^UTILITY(U,$J,358.3,21576,1,4,0)
+424 ;;=4^S06.329S
+425 ;;^UTILITY(U,$J,358.3,21576,2)
+426 ;;=^5020845
+427 ;;^UTILITY(U,$J,358.3,21577,0)
+428 ;;=S06.320S^^90^996^15
+429 ;;^UTILITY(U,$J,358.3,21577,1,0)
+430 ;;=^358.31IA^4^2
+431 ;;^UTILITY(U,$J,358.3,21577,1,3,0)
+432 ;;=3^Contus/lac left cerebrum w/o LOC, sequela
+433 ;;^UTILITY(U,$J,358.3,21577,1,4,0)
+434 ;;=4^S06.320S
+435 ;;^UTILITY(U,$J,358.3,21577,2)
+436 ;;=^5020818
+437 ;;^UTILITY(U,$J,358.3,21578,0)
+438 ;;=S06.315S^^90^996^16
+439 ;;^UTILITY(U,$J,358.3,21578,1,0)
+440 ;;=^358.31IA^4^2
+441 ;;^UTILITY(U,$J,358.3,21578,1,3,0)
+442 ;;=3^Contus/lac right cerebrum w LOC >24 hr w ret consc lev, sequela
+443 ;;^UTILITY(U,$J,358.3,21578,1,4,0)
+444 ;;=4^S06.315S
+445 ;;^UTILITY(U,$J,358.3,21578,2)
+446 ;;=^5020803
+447 ;;^UTILITY(U,$J,358.3,21579,0)
+448 ;;=S06.316S^^90^996^17
+449 ;;^UTILITY(U,$J,358.3,21579,1,0)
+450 ;;=^358.31IA^4^2
+451 ;;^UTILITY(U,$J,358.3,21579,1,3,0)
+452 ;;=3^Contus/lac right cerebrum w LOC >24 hr w/o ret consc w surv, sqla
+453 ;;^UTILITY(U,$J,358.3,21579,1,4,0)
+454 ;;=4^S06.316S
+455 ;;^UTILITY(U,$J,358.3,21579,2)
+456 ;;=^5020806
+457 ;;^UTILITY(U,$J,358.3,21580,0)
+458 ;;=S06.313S^^90^996^18
+459 ;;^UTILITY(U,$J,358.3,21580,1,0)
+460 ;;=^358.31IA^4^2
+461 ;;^UTILITY(U,$J,358.3,21580,1,3,0)
+462 ;;=3^Contus/lac right cerebrum w LOC of 1-5 hrs 59 min, sequela
+463 ;;^UTILITY(U,$J,358.3,21580,1,4,0)
+464 ;;=4^S06.313S
+465 ;;^UTILITY(U,$J,358.3,21580,2)
+466 ;;=^5020797
+467 ;;^UTILITY(U,$J,358.3,21581,0)
+468 ;;=S06.311S^^90^996^19
+469 ;;^UTILITY(U,$J,358.3,21581,1,0)
+470 ;;=^358.31IA^4^2
+471 ;;^UTILITY(U,$J,358.3,21581,1,3,0)
+472 ;;=3^Contus/lac right cerebrum w LOC of 30 minutes or less, sequela
+473 ;;^UTILITY(U,$J,358.3,21581,1,4,0)
+474 ;;=4^S06.311S
+475 ;;^UTILITY(U,$J,358.3,21581,2)
+476 ;;=^5020791
+477 ;;^UTILITY(U,$J,358.3,21582,0)
+478 ;;=S06.312S^^90^996^20
+479 ;;^UTILITY(U,$J,358.3,21582,1,0)
+480 ;;=^358.31IA^4^2
+481 ;;^UTILITY(U,$J,358.3,21582,1,3,0)
+482 ;;=3^Contus/lac right cerebrum w LOC of 31-59 min, sequela
+483 ;;^UTILITY(U,$J,358.3,21582,1,4,0)
+484 ;;=4^S06.312S
+485 ;;^UTILITY(U,$J,358.3,21582,2)
+486 ;;=^5020794
+487 ;;^UTILITY(U,$J,358.3,21583,0)
+488 ;;=S06.314S^^90^996^21
+489 ;;^UTILITY(U,$J,358.3,21583,1,0)
+490 ;;=^358.31IA^4^2
+491 ;;^UTILITY(U,$J,358.3,21583,1,3,0)
+492 ;;=3^Contus/lac right cerebrum w LOC of 6-24 hrs, sequela
+493 ;;^UTILITY(U,$J,358.3,21583,1,4,0)
+494 ;;=4^S06.314S
+495 ;;^UTILITY(U,$J,358.3,21583,2)
+496 ;;=^5020800
+497 ;;^UTILITY(U,$J,358.3,21584,0)
+498 ;;=S06.319S^^90^996^22
+499 ;;^UTILITY(U,$J,358.3,21584,1,0)
+500 ;;=^358.31IA^4^2
+501 ;;^UTILITY(U,$J,358.3,21584,1,3,0)
+502 ;;=3^Contus/lac right cerebrum w LOC of unsp duration, sequela
+503 ;;^UTILITY(U,$J,358.3,21584,1,4,0)
+504 ;;=4^S06.319S
+505 ;;^UTILITY(U,$J,358.3,21584,2)
+506 ;;=^5020815
+507 ;;^UTILITY(U,$J,358.3,21585,0)
+508 ;;=S06.310S^^90^996^23
+509 ;;^UTILITY(U,$J,358.3,21585,1,0)
+510 ;;=^358.31IA^4^2
+511 ;;^UTILITY(U,$J,358.3,21585,1,3,0)
+512 ;;=3^Contus/lac right cerebrum w/o LOC, sequela
+513 ;;^UTILITY(U,$J,358.3,21585,1,4,0)
+514 ;;=4^S06.310S
+515 ;;^UTILITY(U,$J,358.3,21585,2)
+516 ;;=^5020788
+517 ;;^UTILITY(U,$J,358.3,21586,0)
+518 ;;=S06.385S^^90^996^24
+519 ;;^UTILITY(U,$J,358.3,21586,1,0)
+520 ;;=^358.31IA^4^2
+521 ;;^UTILITY(U,$J,358.3,21586,1,3,0)
+522 ;;=3^Contus/lac/hem brnst w LOC >24 hr w ret consc lev, sequela
+523 ;;^UTILITY(U,$J,358.3,21586,1,4,0)
+524 ;;=4^S06.385S
+525 ;;^UTILITY(U,$J,358.3,21586,2)
+526 ;;=^5021013
+527 ;;^UTILITY(U,$J,358.3,21587,0)
+528 ;;=S06.386S^^90^996^25
+529 ;;^UTILITY(U,$J,358.3,21587,1,0)
+530 ;;=^358.31IA^4^2
+531 ;;^UTILITY(U,$J,358.3,21587,1,3,0)
+532 ;;=3^Contus/lac/hem brnst w LOC >24 hr w/o ret consc w surv, sqla
+533 ;;^UTILITY(U,$J,358.3,21587,1,4,0)
+534 ;;=4^S06.386S
+535 ;;^UTILITY(U,$J,358.3,21587,2)
+536 ;;=^5021016
+537 ;;^UTILITY(U,$J,358.3,21588,0)
+538 ;;=S06.383S^^90^996^26
+539 ;;^UTILITY(U,$J,358.3,21588,1,0)
+540 ;;=^358.31IA^4^2
+541 ;;^UTILITY(U,$J,358.3,21588,1,3,0)
+542 ;;=3^Contus/lac/hem brnst w LOC of 1-5 hrs 59 min, sequela
+543 ;;^UTILITY(U,$J,358.3,21588,1,4,0)
+544 ;;=4^S06.383S
+545 ;;^UTILITY(U,$J,358.3,21588,2)
+546 ;;=^5021007
+547 ;;^UTILITY(U,$J,358.3,21589,0)
+548 ;;=S06.381S^^90^996^27
+549 ;;^UTILITY(U,$J,358.3,21589,1,0)
+550 ;;=^358.31IA^4^2
+551 ;;^UTILITY(U,$J,358.3,21589,1,3,0)
+552 ;;=3^Contus/lac/hem brnst w LOC of 30 minutes or less, sequela
+553 ;;^UTILITY(U,$J,358.3,21589,1,4,0)
+554 ;;=4^S06.381S
+555 ;;^UTILITY(U,$J,358.3,21589,2)
+556 ;;=^5021001
+557 ;;^UTILITY(U,$J,358.3,21590,0)
+558 ;;=S06.382S^^90^996^28
+559 ;;^UTILITY(U,$J,358.3,21590,1,0)
+560 ;;=^358.31IA^4^2
+561 ;;^UTILITY(U,$J,358.3,21590,1,3,0)
+562 ;;=3^Contus/lac/hem brnst w LOC of 31-59 min, sequela
+563 ;;^UTILITY(U,$J,358.3,21590,1,4,0)
+564 ;;=4^S06.382S
+565 ;;^UTILITY(U,$J,358.3,21590,2)
+566 ;;=^5021004
+567 ;;^UTILITY(U,$J,358.3,21591,0)
+568 ;;=S06.384S^^90^996^29
+569 ;;^UTILITY(U,$J,358.3,21591,1,0)
+570 ;;=^358.31IA^4^2
+571 ;;^UTILITY(U,$J,358.3,21591,1,3,0)
+572 ;;=3^Contus/lac/hem brnst w LOC of 6-24 hrs, sequela
+573 ;;^UTILITY(U,$J,358.3,21591,1,4,0)
+574 ;;=4^S06.384S
+575 ;;^UTILITY(U,$J,358.3,21591,2)
+576 ;;=^5021010
+577 ;;^UTILITY(U,$J,358.3,21592,0)
+578 ;;=S06.389S^^90^996^30
+579 ;;^UTILITY(U,$J,358.3,21592,1,0)
+580 ;;=^358.31IA^4^2
+581 ;;^UTILITY(U,$J,358.3,21592,1,3,0)
+582 ;;=3^Contus/lac/hem brnst w LOC of unsp duration, sequela
+583 ;;^UTILITY(U,$J,358.3,21592,1,4,0)
+584 ;;=4^S06.389S
+585 ;;^UTILITY(U,$J,358.3,21592,2)
+586 ;;=^5021025
+587 ;;^UTILITY(U,$J,358.3,21593,0)
+588 ;;=S06.380S^^90^996^31
+589 ;;^UTILITY(U,$J,358.3,21593,1,0)
+590 ;;=^358.31IA^4^2
+591 ;;^UTILITY(U,$J,358.3,21593,1,3,0)
+592 ;;=3^Contus/lac/hem brnst w/o LOC, sequela
+593 ;;^UTILITY(U,$J,358.3,21593,1,4,0)
+594 ;;=4^S06.380S
+595 ;;^UTILITY(U,$J,358.3,21593,2)
+596 ;;=^5020998
+597 ;;^UTILITY(U,$J,358.3,21594,0)
+598 ;;=S06.375S^^90^996^32
+599 ;;^UTILITY(U,$J,358.3,21594,1,0)
+600 ;;=^358.31IA^4^2
+601 ;;^UTILITY(U,$J,358.3,21594,1,3,0)
+602 ;;=3^Contus/lac/hem crblm w LOC >24 hr w ret consc lev, sequela
+603 ;;^UTILITY(U,$J,358.3,21594,1,4,0)
+604 ;;=4^S06.375S
+605 ;;^UTILITY(U,$J,358.3,21594,2)
+606 ;;=^5020983
+607 ;;^UTILITY(U,$J,358.3,21595,0)
+608 ;;=S06.376S^^90^996^33
+609 ;;^UTILITY(U,$J,358.3,21595,1,0)
+610 ;;=^358.31IA^4^2
+611 ;;^UTILITY(U,$J,358.3,21595,1,3,0)
+612 ;;=3^Contus/lac/hem crblm w LOC >24 hr w/o ret consc w surv, sqla
+613 ;;^UTILITY(U,$J,358.3,21595,1,4,0)
+614 ;;=4^S06.376S
+615 ;;^UTILITY(U,$J,358.3,21595,2)
+616 ;;=^5020986
+617 ;;^UTILITY(U,$J,358.3,21596,0)
+618 ;;=S06.373S^^90^996^34
+619 ;;^UTILITY(U,$J,358.3,21596,1,0)
+620 ;;=^358.31IA^4^2
+621 ;;^UTILITY(U,$J,358.3,21596,1,3,0)
+622 ;;=3^Contus/lac/hem crblm w LOC of 1-5 hrs 59 min, sequela
+623 ;;^UTILITY(U,$J,358.3,21596,1,4,0)
+624 ;;=4^S06.373S
+625 ;;^UTILITY(U,$J,358.3,21596,2)
+626 ;;=^5020977
+627 ;;^UTILITY(U,$J,358.3,21597,0)
+628 ;;=S06.371S^^90^996^35
+629 ;;^UTILITY(U,$J,358.3,21597,1,0)
+630 ;;=^358.31IA^4^2
+631 ;;^UTILITY(U,$J,358.3,21597,1,3,0)
+632 ;;=3^Contus/lac/hem crblm w LOC of 30 minutes or less, sequela
+633 ;;^UTILITY(U,$J,358.3,21597,1,4,0)
+634 ;;=4^S06.371S
+635 ;;^UTILITY(U,$J,358.3,21597,2)
+636 ;;=^5020971
+637 ;;^UTILITY(U,$J,358.3,21598,0)
+638 ;;=S06.372S^^90^996^36
+639 ;;^UTILITY(U,$J,358.3,21598,1,0)
+640 ;;=^358.31IA^4^2
+641 ;;^UTILITY(U,$J,358.3,21598,1,3,0)
+642 ;;=3^Contus/lac/hem crblm w LOC of 31-59 min, sequela
+643 ;;^UTILITY(U,$J,358.3,21598,1,4,0)
+644 ;;=4^S06.372S
+645 ;;^UTILITY(U,$J,358.3,21598,2)
+646 ;;=^5020974
+647 ;;^UTILITY(U,$J,358.3,21599,0)
+648 ;;=S06.374S^^90^996^37
