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

IBDEI0CL.m

Go to the documentation of this file. 
  1. IBDEI0CL ; ; 03-MAY-2022
  1.  ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 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,31585,1,3,0)
  1.  ;;=3^Dysphagia, unspecified
  1.  ;;^UTILITY(U,$J,358.3,31585,1,4,0)
  1.  ;;=4^R13.10
  1.  ;;^UTILITY(U,$J,358.3,31585,2)
  1.  ;;=^335307
  1.  ;;^UTILITY(U,$J,358.3,31586,0)
  1.  ;;=R13.19^^91^1282^1
  1.  ;;^UTILITY(U,$J,358.3,31586,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31586,1,3,0)
  1.  ;;=3^Dysphagia NEC
  1.  ;;^UTILITY(U,$J,358.3,31586,1,4,0)
  1.  ;;=4^R13.19
  1.  ;;^UTILITY(U,$J,358.3,31586,2)
  1.  ;;=^335280
  1.  ;;^UTILITY(U,$J,358.3,31587,0)
  1.  ;;=R48.1^^91^1283^1
  1.  ;;^UTILITY(U,$J,358.3,31587,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31587,1,3,0)
  1.  ;;=3^Agnosia
  1.  ;;^UTILITY(U,$J,358.3,31587,1,4,0)
  1.  ;;=4^R48.1
  1.  ;;^UTILITY(U,$J,358.3,31587,2)
  1.  ;;=^5019496
  1.  ;;^UTILITY(U,$J,358.3,31588,0)
  1.  ;;=R47.01^^91^1283^2
  1.  ;;^UTILITY(U,$J,358.3,31588,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31588,1,3,0)
  1.  ;;=3^Aphasia
  1.  ;;^UTILITY(U,$J,358.3,31588,1,4,0)
  1.  ;;=4^R47.01
  1.  ;;^UTILITY(U,$J,358.3,31588,2)
  1.  ;;=^5019488
  1.  ;;^UTILITY(U,$J,358.3,31589,0)
  1.  ;;=R49.1^^91^1283^3
  1.  ;;^UTILITY(U,$J,358.3,31589,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31589,1,3,0)
  1.  ;;=3^Aphonia
  1.  ;;^UTILITY(U,$J,358.3,31589,1,4,0)
  1.  ;;=4^R49.1
  1.  ;;^UTILITY(U,$J,358.3,31589,2)
  1.  ;;=^5019502
  1.  ;;^UTILITY(U,$J,358.3,31590,0)
  1.  ;;=R48.2^^91^1283^4
  1.  ;;^UTILITY(U,$J,358.3,31590,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31590,1,3,0)
  1.  ;;=3^Apraxia
  1.  ;;^UTILITY(U,$J,358.3,31590,1,4,0)
  1.  ;;=4^R48.2
  1.  ;;^UTILITY(U,$J,358.3,31590,2)
  1.  ;;=^5019497
  1.  ;;^UTILITY(U,$J,358.3,31591,0)
  1.  ;;=R47.1^^91^1283^6
  1.  ;;^UTILITY(U,$J,358.3,31591,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31591,1,3,0)
  1.  ;;=3^Dysarthria and anarthria
  1.  ;;^UTILITY(U,$J,358.3,31591,1,4,0)
  1.  ;;=4^R47.1
  1.  ;;^UTILITY(U,$J,358.3,31591,2)
  1.  ;;=^5019490
  1.  ;;^UTILITY(U,$J,358.3,31592,0)
  1.  ;;=R48.0^^91^1283^7
  1.  ;;^UTILITY(U,$J,358.3,31592,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31592,1,3,0)
  1.  ;;=3^Dyslexia and alexia
  1.  ;;^UTILITY(U,$J,358.3,31592,1,4,0)
  1.  ;;=4^R48.0
  1.  ;;^UTILITY(U,$J,358.3,31592,2)
  1.  ;;=^5019495
  1.  ;;^UTILITY(U,$J,358.3,31593,0)
  1.  ;;=R47.02^^91^1283^8
  1.  ;;^UTILITY(U,$J,358.3,31593,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31593,1,3,0)
  1.  ;;=3^Dysphasia
  1.  ;;^UTILITY(U,$J,358.3,31593,1,4,0)
  1.  ;;=4^R47.02
  1.  ;;^UTILITY(U,$J,358.3,31593,2)
  1.  ;;=^5019489
  1.  ;;^UTILITY(U,$J,358.3,31594,0)
  1.  ;;=R49.0^^91^1283^9
  1.  ;;^UTILITY(U,$J,358.3,31594,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31594,1,3,0)
  1.  ;;=3^Dysphonia
  1.  ;;^UTILITY(U,$J,358.3,31594,1,4,0)
  1.  ;;=4^R49.0
  1.  ;;^UTILITY(U,$J,358.3,31594,2)
  1.  ;;=^5019501
  1.  ;;^UTILITY(U,$J,358.3,31595,0)
  1.  ;;=R47.82^^91^1283^10
  1.  ;;^UTILITY(U,$J,358.3,31595,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31595,1,3,0)
  1.  ;;=3^Fluency d/o in conds classif elsewhere
  1.  ;;^UTILITY(U,$J,358.3,31595,1,4,0)
  1.  ;;=4^R47.82
  1.  ;;^UTILITY(U,$J,358.3,31595,2)
  1.  ;;=^5019492
  1.  ;;^UTILITY(U,$J,358.3,31596,0)
  1.  ;;=R47.89^^91^1283^13
  1.  ;;^UTILITY(U,$J,358.3,31596,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31596,1,3,0)
  1.  ;;=3^Speech Disturbances NEC
  1.  ;;^UTILITY(U,$J,358.3,31596,1,4,0)
  1.  ;;=4^R47.89
  1.  ;;^UTILITY(U,$J,358.3,31596,2)
  1.  ;;=^5019493
  1.  ;;^UTILITY(U,$J,358.3,31597,0)
  1.  ;;=R48.8^^91^1283^14
  1.  ;;^UTILITY(U,$J,358.3,31597,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31597,1,3,0)
  1.  ;;=3^Symbolic Dysfunctions NEC
  1.  ;;^UTILITY(U,$J,358.3,31597,1,4,0)
  1.  ;;=4^R48.8
  1.  ;;^UTILITY(U,$J,358.3,31597,2)
  1.  ;;=^5019499
  1.  ;;^UTILITY(U,$J,358.3,31598,0)
  1.  ;;=R47.81^^91^1283^12
  1.  ;;^UTILITY(U,$J,358.3,31598,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31598,1,3,0)
  1.  ;;=3^Slurred speech
  1.  ;;^UTILITY(U,$J,358.3,31598,1,4,0)
  1.  ;;=4^R47.81
  1.  ;;^UTILITY(U,$J,358.3,31598,2)
  1.  ;;=^5019491
  1.  ;;^UTILITY(U,$J,358.3,31599,0)
  1.  ;;=R48.9^^91^1283^15
  1.  ;;^UTILITY(U,$J,358.3,31599,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31599,1,3,0)
  1.  ;;=3^Symbolic Dysfunctions,Unspec
  1.  ;;^UTILITY(U,$J,358.3,31599,1,4,0)
  1.  ;;=4^R48.9
  1.  ;;^UTILITY(U,$J,358.3,31599,2)
  1.  ;;=^5019500
  1.  ;;^UTILITY(U,$J,358.3,31600,0)
  1.  ;;=G31.01^^91^1283^11
  1.  ;;^UTILITY(U,$J,358.3,31600,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31600,1,3,0)
  1.  ;;=3^Primary Progressive/Isolated Aphasia
  1.  ;;^UTILITY(U,$J,358.3,31600,1,4,0)
  1.  ;;=4^G31.01
  1.  ;;^UTILITY(U,$J,358.3,31600,2)
  1.  ;;=^329915
  1.  ;;^UTILITY(U,$J,358.3,31601,0)
  1.  ;;=R41.841^^91^1283^5
  1.  ;;^UTILITY(U,$J,358.3,31601,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31601,1,3,0)
  1.  ;;=3^Cognitive Communication Deficit
  1.  ;;^UTILITY(U,$J,358.3,31601,1,4,0)
  1.  ;;=4^R41.841
  1.  ;;^UTILITY(U,$J,358.3,31601,2)
  1.  ;;=^5019444
  1.  ;;^UTILITY(U,$J,358.3,31602,0)
  1.  ;;=Z90.02^^91^1284^1
  1.  ;;^UTILITY(U,$J,358.3,31602,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31602,1,3,0)
  1.  ;;=3^Acq absence of larynx
  1.  ;;^UTILITY(U,$J,358.3,31602,1,4,0)
  1.  ;;=4^Z90.02
  1.  ;;^UTILITY(U,$J,358.3,31602,2)
  1.  ;;=^5063579
  1.  ;;^UTILITY(U,$J,358.3,31603,0)
  1.  ;;=Z90.09^^91^1284^2
  1.  ;;^UTILITY(U,$J,358.3,31603,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31603,1,3,0)
  1.  ;;=3^Acq absence of oth part head & neck
  1.  ;;^UTILITY(U,$J,358.3,31603,1,4,0)
  1.  ;;=4^Z90.09
  1.  ;;^UTILITY(U,$J,358.3,31603,2)
  1.  ;;=^5063580
  1.  ;;^UTILITY(U,$J,358.3,31604,0)
  1.  ;;=Z45.328^^91^1284^3
  1.  ;;^UTILITY(U,$J,358.3,31604,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31604,1,3,0)
  1.  ;;=3^Adjust & mgmt,implanted hear dev
  1.  ;;^UTILITY(U,$J,358.3,31604,1,4,0)
  1.  ;;=4^Z45.328
  1.  ;;^UTILITY(U,$J,358.3,31604,2)
  1.  ;;=^5063003
  1.  ;;^UTILITY(U,$J,358.3,31605,0)
  1.  ;;=Z45.49^^91^1284^4
  1.  ;;^UTILITY(U,$J,358.3,31605,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31605,1,3,0)
  1.  ;;=3^Adjust & mgmt,implanted nerv sys dev
  1.  ;;^UTILITY(U,$J,358.3,31605,1,4,0)
  1.  ;;=4^Z45.49
  1.  ;;^UTILITY(U,$J,358.3,31605,2)
  1.  ;;=^5063006
  1.  ;;^UTILITY(U,$J,358.3,31606,0)
  1.  ;;=Z43.3^^91^1284^6
  1.  ;;^UTILITY(U,$J,358.3,31606,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31606,1,3,0)
  1.  ;;=3^Attention to colostomy
  1.  ;;^UTILITY(U,$J,358.3,31606,1,4,0)
  1.  ;;=4^Z43.3
  1.  ;;^UTILITY(U,$J,358.3,31606,2)
  1.  ;;=^5062961
  1.  ;;^UTILITY(U,$J,358.3,31607,0)
  1.  ;;=Z43.0^^91^1284^7
  1.  ;;^UTILITY(U,$J,358.3,31607,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31607,1,3,0)
  1.  ;;=3^Attention to tracheostomy
  1.  ;;^UTILITY(U,$J,358.3,31607,1,4,0)
  1.  ;;=4^Z43.0
  1.  ;;^UTILITY(U,$J,358.3,31607,2)
  1.  ;;=^5062958
  1.  ;;^UTILITY(U,$J,358.3,31608,0)
  1.  ;;=Z02.71^^91^1284^8
  1.  ;;^UTILITY(U,$J,358.3,31608,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31608,1,3,0)
  1.  ;;=3^Disability determination
  1.  ;;^UTILITY(U,$J,358.3,31608,1,4,0)
  1.  ;;=4^Z02.71
  1.  ;;^UTILITY(U,$J,358.3,31608,2)
  1.  ;;=^5062640
  1.  ;;^UTILITY(U,$J,358.3,31609,0)
  1.  ;;=Z02.0^^91^1284^9
  1.  ;;^UTILITY(U,$J,358.3,31609,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31609,1,3,0)
  1.  ;;=3^Exam,adm to educat instit
  1.  ;;^UTILITY(U,$J,358.3,31609,1,4,0)
  1.  ;;=4^Z02.0
  1.  ;;^UTILITY(U,$J,358.3,31609,2)
  1.  ;;=^5062633
  1.  ;;^UTILITY(U,$J,358.3,31610,0)
  1.  ;;=Z02.2^^91^1284^10
  1.  ;;^UTILITY(U,$J,358.3,31610,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31610,1,3,0)
  1.  ;;=3^Exam,adm to resident instit
  1.  ;;^UTILITY(U,$J,358.3,31610,1,4,0)
  1.  ;;=4^Z02.2
  1.  ;;^UTILITY(U,$J,358.3,31610,2)
  1.  ;;=^5062635
  1.  ;;^UTILITY(U,$J,358.3,31611,0)
  1.  ;;=Z02.4^^91^1284^11
  1.  ;;^UTILITY(U,$J,358.3,31611,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31611,1,3,0)
  1.  ;;=3^Exam,driving license
  1.  ;;^UTILITY(U,$J,358.3,31611,1,4,0)
  1.  ;;=4^Z02.4
  1.  ;;^UTILITY(U,$J,358.3,31611,2)
  1.  ;;=^5062637
  1.  ;;^UTILITY(U,$J,358.3,31612,0)
  1.  ;;=Z02.6^^91^1284^12
  1.  ;;^UTILITY(U,$J,358.3,31612,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31612,1,3,0)
  1.  ;;=3^Exam,insurance purposes
  1.  ;;^UTILITY(U,$J,358.3,31612,1,4,0)
  1.  ;;=4^Z02.6
  1.  ;;^UTILITY(U,$J,358.3,31612,2)
  1.  ;;=^5062639
  1.  ;;^UTILITY(U,$J,358.3,31613,0)
  1.  ;;=Z02.5^^91^1284^13
  1.  ;;^UTILITY(U,$J,358.3,31613,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31613,1,3,0)
  1.  ;;=3^Exam,participation in sport
  1.  ;;^UTILITY(U,$J,358.3,31613,1,4,0)
  1.  ;;=4^Z02.5
  1.  ;;^UTILITY(U,$J,358.3,31613,2)
  1.  ;;=^5062638
  1.  ;;^UTILITY(U,$J,358.3,31614,0)
  1.  ;;=Z02.3^^91^1284^14
  1.  ;;^UTILITY(U,$J,358.3,31614,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31614,1,3,0)
  1.  ;;=3^Exam,recruitment to armed forces
  1.  ;;^UTILITY(U,$J,358.3,31614,1,4,0)
  1.  ;;=4^Z02.3
  1.  ;;^UTILITY(U,$J,358.3,31614,2)
  1.  ;;=^5062636
  1.  ;;^UTILITY(U,$J,358.3,31615,0)
  1.  ;;=Z44.8^^91^1284^19
  1.  ;;^UTILITY(U,$J,358.3,31615,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31615,1,3,0)
  1.  ;;=3^Fit/adjst,external prosth dev
  1.  ;;^UTILITY(U,$J,358.3,31615,1,4,0)
  1.  ;;=4^Z44.8
  1.  ;;^UTILITY(U,$J,358.3,31615,2)
  1.  ;;=^5062992
  1.  ;;^UTILITY(U,$J,358.3,31616,0)
  1.  ;;=Z44.9^^91^1284^20
  1.  ;;^UTILITY(U,$J,358.3,31616,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31616,1,3,0)
  1.  ;;=3^Fit/adjst,external prosth device,unspec
  1.  ;;^UTILITY(U,$J,358.3,31616,1,4,0)
  1.  ;;=4^Z44.9
  1.  ;;^UTILITY(U,$J,358.3,31616,2)
  1.  ;;=^5062993
  1.  ;;^UTILITY(U,$J,358.3,31617,0)
  1.  ;;=Z09.^^91^1284^18
  1.  ;;^UTILITY(U,$J,358.3,31617,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31617,1,3,0)
  1.  ;;=3^F/U exam aft trtmt,cond oth than malig nplsm
  1.  ;;^UTILITY(U,$J,358.3,31617,1,4,0)
  1.  ;;=4^Z09.
  1.  ;;^UTILITY(U,$J,358.3,31617,2)
  1.  ;;=^5062668
  1.  ;;^UTILITY(U,$J,358.3,31618,0)
  1.  ;;=Z02.79^^91^1284^21
  1.  ;;^UTILITY(U,$J,358.3,31618,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31618,1,3,0)
  1.  ;;=3^Issue of other medical certificate
  1.  ;;^UTILITY(U,$J,358.3,31618,1,4,0)
  1.  ;;=4^Z02.79
  1.  ;;^UTILITY(U,$J,358.3,31618,2)
  1.  ;;=^5062641
  1.  ;;^UTILITY(U,$J,358.3,31619,0)
  1.  ;;=Z51.89^^91^1284^37
  1.  ;;^UTILITY(U,$J,358.3,31619,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31619,1,3,0)
  1.  ;;=3^Specfd Aftercare NEC
  1.  ;;^UTILITY(U,$J,358.3,31619,1,4,0)
  1.  ;;=4^Z51.89
  1.  ;;^UTILITY(U,$J,358.3,31619,2)
  1.  ;;=^5063065
  1.  ;;^UTILITY(U,$J,358.3,31620,0)
  1.  ;;=Z02.1^^91^1284^23
  1.  ;;^UTILITY(U,$J,358.3,31620,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31620,1,3,0)
  1.  ;;=3^Pre-employment examination
  1.  ;;^UTILITY(U,$J,358.3,31620,1,4,0)
  1.  ;;=4^Z02.1
  1.  ;;^UTILITY(U,$J,358.3,31620,2)
  1.  ;;=^5062634
  1.  ;;^UTILITY(U,$J,358.3,31621,0)
  1.  ;;=Z13.5^^91^1284^17
  1.  ;;^UTILITY(U,$J,358.3,31621,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31621,1,3,0)
  1.  ;;=3^Eye and Ear Disorder Screening
  1.  ;;^UTILITY(U,$J,358.3,31621,1,4,0)
  1.  ;;=4^Z13.5
  1.  ;;^UTILITY(U,$J,358.3,31621,2)
  1.  ;;=^5062706
  1.  ;;^UTILITY(U,$J,358.3,31622,0)
  1.  ;;=Z13.850^^91^1284^40
  1.  ;;^UTILITY(U,$J,358.3,31622,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31622,1,3,0)
  1.  ;;=3^Traumatic Brain Injury Screening
  1.  ;;^UTILITY(U,$J,358.3,31622,1,4,0)
  1.  ;;=4^Z13.850
  1.  ;;^UTILITY(U,$J,358.3,31622,2)
  1.  ;;=^5062717
  1.  ;;^UTILITY(U,$J,358.3,31623,0)
  1.  ;;=Z85.841^^91^1284^30
  1.  ;;^UTILITY(U,$J,358.3,31623,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31623,1,3,0)
  1.  ;;=3^Prsnl hx,malig neopl,brain
  1.  ;;^UTILITY(U,$J,358.3,31623,1,4,0)
  1.  ;;=4^Z85.841
  1.  ;;^UTILITY(U,$J,358.3,31623,2)
  1.  ;;=^5063447
  1.  ;;^UTILITY(U,$J,358.3,31624,0)
  1.  ;;=Z85.21^^91^1284^31
  1.  ;;^UTILITY(U,$J,358.3,31624,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31624,1,3,0)
  1.  ;;=3^Prsnl hx,malig neopl,larynx
  1.  ;;^UTILITY(U,$J,358.3,31624,1,4,0)
  1.  ;;=4^Z85.21
  1.  ;;^UTILITY(U,$J,358.3,31624,2)
  1.  ;;=^5063411
  1.  ;;^UTILITY(U,$J,358.3,31625,0)
  1.  ;;=Z85.22^^91^1284^32
  1.  ;;^UTILITY(U,$J,358.3,31625,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31625,1,3,0)
  1.  ;;=3^Prsnl hx,malig neopl,nasl cav/midear/access sinus
  1.  ;;^UTILITY(U,$J,358.3,31625,1,4,0)
  1.  ;;=4^Z85.22
  1.  ;;^UTILITY(U,$J,358.3,31625,2)
  1.  ;;=^5063412
  1.  ;;^UTILITY(U,$J,358.3,31626,0)
  1.  ;;=Z85.810^^91^1284^33
  1.  ;;^UTILITY(U,$J,358.3,31626,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31626,1,3,0)
  1.  ;;=3^Prsnl hx,malig neopl,tongue
  1.  ;;^UTILITY(U,$J,358.3,31626,1,4,0)
  1.  ;;=4^Z85.810
  1.  ;;^UTILITY(U,$J,358.3,31626,2)
  1.  ;;=^5063438
  1.  ;;^UTILITY(U,$J,358.3,31627,0)
  1.  ;;=Z85.12^^91^1284^34
  1.  ;;^UTILITY(U,$J,358.3,31627,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31627,1,3,0)
  1.  ;;=3^Prsnl hx,malig neopl,trachea
  1.  ;;^UTILITY(U,$J,358.3,31627,1,4,0)
  1.  ;;=4^Z85.12
  1.  ;;^UTILITY(U,$J,358.3,31627,2)
  1.  ;;=^5063409
  1.  ;;^UTILITY(U,$J,358.3,31628,0)
  1.  ;;=Z53.09^^91^1284^24
  1.  ;;^UTILITY(U,$J,358.3,31628,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31628,1,3,0)
  1.  ;;=3^Proc/trtmt not crd out,contraindication
  1.  ;;^UTILITY(U,$J,358.3,31628,1,4,0)
  1.  ;;=4^Z53.09
  1.  ;;^UTILITY(U,$J,358.3,31628,2)
  1.  ;;=^5063093
  1.  ;;^UTILITY(U,$J,358.3,31629,0)
  1.  ;;=Z53.29^^91^1284^27
  1.  ;;^UTILITY(U,$J,358.3,31629,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31629,1,3,0)
  1.  ;;=3^Proc/trtmt not crd out,pt decision,oth rsns
  1.  ;;^UTILITY(U,$J,358.3,31629,1,4,0)
  1.  ;;=4^Z53.29
  1.  ;;^UTILITY(U,$J,358.3,31629,2)
  1.  ;;=^5063097
  1.  ;;^UTILITY(U,$J,358.3,31630,0)
  1.  ;;=Z53.1^^91^1284^26
  1.  ;;^UTILITY(U,$J,358.3,31630,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31630,1,3,0)
  1.  ;;=3^Proc/trtmt not crd out,pt belief & grp prssr
  1.  ;;^UTILITY(U,$J,358.3,31630,1,4,0)
  1.  ;;=4^Z53.1
  1.  ;;^UTILITY(U,$J,358.3,31630,2)
  1.  ;;=^5063094
  1.  ;;^UTILITY(U,$J,358.3,31631,0)
  1.  ;;=Z53.21^^91^1284^28
  1.  ;;^UTILITY(U,$J,358.3,31631,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31631,1,3,0)
  1.  ;;=3^Proc/trtmt not crd out,pt lv bef seen by HC prov
  1.  ;;^UTILITY(U,$J,358.3,31631,1,4,0)
  1.  ;;=4^Z53.21
  1.  ;;^UTILITY(U,$J,358.3,31631,2)
  1.  ;;=^5063096
  1.  ;;^UTILITY(U,$J,358.3,31632,0)
  1.  ;;=Z53.8^^91^1284^25
  1.  ;;^UTILITY(U,$J,358.3,31632,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31632,1,3,0)
  1.  ;;=3^Proc/trtmt not crd out,oth reasons
  1.  ;;^UTILITY(U,$J,358.3,31632,1,4,0)
  1.  ;;=4^Z53.8
  1.  ;;^UTILITY(U,$J,358.3,31632,2)
  1.  ;;=^5063098
  1.  ;;^UTILITY(U,$J,358.3,31633,0)
  1.  ;;=Z53.31^^91^1284^22
  1.  ;;^UTILITY(U,$J,358.3,31633,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31633,1,3,0)
  1.  ;;=3^Lapscpc Proced Converted to Open
  1.  ;;^UTILITY(U,$J,358.3,31633,1,4,0)
  1.  ;;=4^Z53.31
  1.  ;;^UTILITY(U,$J,358.3,31633,2)
  1.  ;;=^5140428
  1.  ;;^UTILITY(U,$J,358.3,31634,0)
  1.  ;;=Z53.32^^91^1284^39
  1.  ;;^UTILITY(U,$J,358.3,31634,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31634,1,3,0)
  1.  ;;=3^Thrcscpc Proced Converted to Open
  1.  ;;^UTILITY(U,$J,358.3,31634,1,4,0)
  1.  ;;=4^Z53.32
  1.  ;;^UTILITY(U,$J,358.3,31634,2)
  1.  ;;=^5140429
  1.  ;;^UTILITY(U,$J,358.3,31635,0)
  1.  ;;=Z53.33^^91^1284^5
  1.  ;;^UTILITY(U,$J,358.3,31635,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31635,1,3,0)
  1.  ;;=3^Arthrscpc Proced Converted to Open
  1.  ;;^UTILITY(U,$J,358.3,31635,1,4,0)
  1.  ;;=4^Z53.33
  1.  ;;^UTILITY(U,$J,358.3,31635,2)
  1.  ;;=^5140430
  1.  ;;^UTILITY(U,$J,358.3,31636,0)
  1.  ;;=Z53.39^^91^1284^38
  1.  ;;^UTILITY(U,$J,358.3,31636,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31636,1,3,0)
  1.  ;;=3^Specfd Proced Converted to Open,Oth
  1.  ;;^UTILITY(U,$J,358.3,31636,1,4,0)
  1.  ;;=4^Z53.39
  1.  ;;^UTILITY(U,$J,358.3,31636,2)
  1.  ;;=^5140431
  1.  ;;^UTILITY(U,$J,358.3,31637,0)
  1.  ;;=Z04.81^^91^1284^16
  1.  ;;^UTILITY(U,$J,358.3,31637,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31637,1,3,0)
  1.  ;;=3^Exam/Obs,Victim,S/P Forced Sex Exploit
  1.  ;;^UTILITY(U,$J,358.3,31637,1,4,0)
  1.  ;;=4^Z04.81
  1.  ;;^UTILITY(U,$J,358.3,31637,2)
  1.  ;;=^5157613
  1.  ;;^UTILITY(U,$J,358.3,31638,0)
  1.  ;;=Z04.82^^91^1284^15
  1.  ;;^UTILITY(U,$J,358.3,31638,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31638,1,3,0)
  1.  ;;=3^Exam/Obs,Victim,S/P Forced Labor Exploit
  1.  ;;^UTILITY(U,$J,358.3,31638,1,4,0)
  1.  ;;=4^Z04.82
  1.  ;;^UTILITY(U,$J,358.3,31638,2)
  1.  ;;=^5157614
  1.  ;;^UTILITY(U,$J,358.3,31639,0)
  1.  ;;=Z13.828^^91^1284^35
  1.  ;;^UTILITY(U,$J,358.3,31639,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31639,1,3,0)
  1.  ;;=3^Screening for Oth Musculoskeletal Dx
  1.  ;;^UTILITY(U,$J,358.3,31639,1,4,0)
  1.  ;;=4^Z13.828
  1.  ;;^UTILITY(U,$J,358.3,31639,2)
  1.  ;;=^5062714
  1.  ;;^UTILITY(U,$J,358.3,31640,0)
  1.  ;;=Z13.858^^91^1284^36
  1.  ;;^UTILITY(U,$J,358.3,31640,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31640,1,3,0)
  1.  ;;=3^Screening for Oth Neurologic Dx
  1.  ;;^UTILITY(U,$J,358.3,31640,1,4,0)
  1.  ;;=4^Z13.858
  1.  ;;^UTILITY(U,$J,358.3,31640,2)
  1.  ;;=^5062718
  1.  ;;^UTILITY(U,$J,358.3,31641,0)
  1.  ;;=Z86.005^^91^1284^29
  1.  ;;^UTILITY(U,$J,358.3,31641,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,31641,1,3,0)
  1.  ;;=3^Prsnl hx,in-situ neopl,middle ear & resp system
  1.  ;;^UTILITY(U,$J,358.3,31641,1,4,0)
  1.  ;;=4^Z86.005
  1.  ;;^UTILITY(U,$J,358.3,31641,2)
  1.  ;;=^5158328
  1.  ;;^UTILITY(U,$J,358.3,31642,0)
  1.  ;;=99202^^92^1285^1
  1.  ;;^UTILITY(U,$J,358.3,31642,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,31642,1,1,0)
  1.  ;;=1^SF MDM or 15-29 mins
  1.  ;;^UTILITY(U,$J,358.3,31642,1,2,0)
  1.  ;;=2^99202
  1.  ;;^UTILITY(U,$J,358.3,31643,0)
  1.  ;;=99203^^92^1285^2
  1.  ;;^UTILITY(U,$J,358.3,31643,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,31643,1,1,0)
  1.  ;;=1^Low Complex MDM or 30-44 mins
  1.  ;;^UTILITY(U,$J,358.3,31643,1,2,0)
  1.  ;;=2^99203
  1.  ;;^UTILITY(U,$J,358.3,31644,0)
  1.  ;;=99204^^92^1285^3
  1.  ;;^UTILITY(U,$J,358.3,31644,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,31644,1,1,0)
  1.  ;;=1^Mod Complex MDM or 45-59 mins
  1.  ;;^UTILITY(U,$J,358.3,31644,1,2,0)
  1.  ;;=2^99204
  1.  ;;^UTILITY(U,$J,358.3,31645,0)
  1.  ;;=99205^^92^1285^4
  1.  ;;^UTILITY(U,$J,358.3,31645,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,31645,1,1,0)
  1.  ;;=1^High Complex MDM or 60-74 mins
  1.  ;;^UTILITY(U,$J,358.3,31645,1,2,0)
  1.  ;;=2^99205
  1.  ;;^UTILITY(U,$J,358.3,31646,0)
  1.  ;;=99211^^92^1286^1
  1.  ;;^UTILITY(U,$J,358.3,31646,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,31646,1,1,0)
  1.  ;;=1^Nurse Visit (no MD seen)
  1.  ;;^UTILITY(U,$J,358.3,31646,1,2,0)
  1.  ;;=2^99211
  1.  ;;^UTILITY(U,$J,358.3,31647,0)
  1.  ;;=99212^^92^1286^2
  1.  ;;^UTILITY(U,$J,358.3,31647,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,31647,1,1,0)
  1.  ;;=1^SF MDM or 10-19 mins
  1.  ;;^UTILITY(U,$J,358.3,31647,1,2,0)
  1.  ;;=2^99212
  1.  ;;^UTILITY(U,$J,358.3,31648,0)
  1.  ;;=99213^^92^1286^3
  1.  ;;^UTILITY(U,$J,358.3,31648,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,31648,1,1,0)
  1.  ;;=1^Low Complex MDM or 20-29 mins
  1.  ;;^UTILITY(U,$J,358.3,31648,1,2,0)
  1.  ;;=2^99213
  1.  ;;^UTILITY(U,$J,358.3,31649,0)
  1.  ;;=99214^^92^1286^4
  1.  ;;^UTILITY(U,$J,358.3,31649,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,31649,1,1,0)
  1.  ;;=1^Mod Complex MDM or 30-39 mins
  1.  ;;^UTILITY(U,$J,358.3,31649,1,2,0)
  1.  ;;=2^99214
  1.  ;;^UTILITY(U,$J,358.3,31650,0)
  1.  ;;=99215^^92^1286^5
  1.  ;;^UTILITY(U,$J,358.3,31650,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,31650,1,1,0)
  1.  ;;=1^High Complex MDM or 40-54 mins
  1.  ;;^UTILITY(U,$J,358.3,31650,1,2,0)
  1.  ;;=2^99215
  1.  ;;^UTILITY(U,$J,358.3,31651,0)
  1.  ;;=99241^^92^1287^1
  1.  ;;^UTILITY(U,$J,358.3,31651,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,31651,1,1,0)
  1.  ;;=1^Problem Focused,SF MDM
  1.  ;;^UTILITY(U,$J,358.3,31651,1,2,0)
  1.  ;;=2^99241
  1.  ;;^UTILITY(U,$J,358.3,31652,0)
  1.  ;;=99242^^92^1287^2
  1.  ;;^UTILITY(U,$J,358.3,31652,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,31652,1,1,0)
  1.  ;;=1^Expanded Problem Focused,SF MDM
  1.  ;;^UTILITY(U,$J,358.3,31652,1,2,0)
  1.  ;;=2^99242
  1.  ;;^UTILITY(U,$J,358.3,31653,0)
  1.  ;;=99243^^92^1287^3
  1.  ;;^UTILITY(U,$J,358.3,31653,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,31653,1,1,0)
  1.  ;;=1^Detailed,Low Complex MDM
  1.  ;;^UTILITY(U,$J,358.3,31653,1,2,0)
  1.  ;;=2^99243
  1.  ;;^UTILITY(U,$J,358.3,31654,0)
  1.  ;;=99244^^92^1287^4
  1.  ;;^UTILITY(U,$J,358.3,31654,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,31654,1,1,0)
  1.  ;;=1^Comprehensive,Mod Complex MDM
  1.  ;;^UTILITY(U,$J,358.3,31654,1,2,0)
  1.  ;;=2^99244
  1.  ;;^UTILITY(U,$J,358.3,31655,0)
  1.  ;;=99245^^92^1287^5
  1.  ;;^UTILITY(U,$J,358.3,31655,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,31655,1,1,0)
  1.  ;;=1^Comprehensive,High Complex MDM
  1.  ;;^UTILITY(U,$J,358.3,31655,1,2,0)
  1.  ;;=2^99245
  1.  ;;^UTILITY(U,$J,358.3,31656,0)
  1.  ;;=90632^^93^1288^4^^^^1
  1.  ;;^UTILITY(U,$J,358.3,31656,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,31656,1,2,0)
  1.  ;;=2^90632
  1.  ;;^UTILITY(U,$J,358.3,31656,1,3,0)
  1.  ;;=3^Hepatitis A Vaccine
  1.  ;;^UTILITY(U,$J,358.3,31657,0)
  1.  ;;=90746^^93^1288^6^^^^1
  1.  ;;^UTILITY(U,$J,358.3,31657,1,0)
  1.  ;;=^358.31IA^3^2