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

IBDEI08W.m

Go to the documentation of this file.
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