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

IBDEI0D1.m

Go to the documentation of this file.
IBDEI0D1 ; ; 03-MAY-2022
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 2022
 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,32703,0)
 ;;=M54.50^^99^1348^10
 ;;^UTILITY(U,$J,358.3,32703,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32703,1,3,0)
 ;;=3^Low Back Pain,Unspec
 ;;^UTILITY(U,$J,358.3,32703,1,4,0)
 ;;=4^M54.50
 ;;^UTILITY(U,$J,358.3,32703,2)
 ;;=^5161215
 ;;^UTILITY(U,$J,358.3,32704,0)
 ;;=M54.59^^99^1348^9
 ;;^UTILITY(U,$J,358.3,32704,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32704,1,3,0)
 ;;=3^Low Back Pain,Other
 ;;^UTILITY(U,$J,358.3,32704,1,4,0)
 ;;=4^M54.59
 ;;^UTILITY(U,$J,358.3,32704,2)
 ;;=^5161217
 ;;^UTILITY(U,$J,358.3,32705,0)
 ;;=J06.9^^99^1349^18
 ;;^UTILITY(U,$J,358.3,32705,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32705,1,3,0)
 ;;=3^Upper respiratory infection, acute
 ;;^UTILITY(U,$J,358.3,32705,1,4,0)
 ;;=4^J06.9
 ;;^UTILITY(U,$J,358.3,32705,2)
 ;;=^5008143
 ;;^UTILITY(U,$J,358.3,32706,0)
 ;;=J10.1^^99^1349^8
 ;;^UTILITY(U,$J,358.3,32706,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32706,1,3,0)
 ;;=3^Flu d/t indent influ virus w/ oth resp manifest
 ;;^UTILITY(U,$J,358.3,32706,1,4,0)
 ;;=4^J10.1
 ;;^UTILITY(U,$J,358.3,32706,2)
 ;;=^5008151
 ;;^UTILITY(U,$J,358.3,32707,0)
 ;;=J11.1^^99^1349^9
 ;;^UTILITY(U,$J,358.3,32707,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32707,1,3,0)
 ;;=3^Flu d/t unident influ virus w/ oth resp manifest
 ;;^UTILITY(U,$J,358.3,32707,1,4,0)
 ;;=4^J11.1
 ;;^UTILITY(U,$J,358.3,32707,2)
 ;;=^5008158
 ;;^UTILITY(U,$J,358.3,32708,0)
 ;;=J43.9^^99^1349^7
 ;;^UTILITY(U,$J,358.3,32708,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32708,1,3,0)
 ;;=3^Emphysema, unspecified
 ;;^UTILITY(U,$J,358.3,32708,1,4,0)
 ;;=4^J43.9
 ;;^UTILITY(U,$J,358.3,32708,2)
 ;;=^5008238
 ;;^UTILITY(U,$J,358.3,32709,0)
 ;;=J44.9^^99^1349^4
 ;;^UTILITY(U,$J,358.3,32709,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32709,1,3,0)
 ;;=3^COPD, unspec
 ;;^UTILITY(U,$J,358.3,32709,1,4,0)
 ;;=4^J44.9
 ;;^UTILITY(U,$J,358.3,32709,2)
 ;;=^5008241
 ;;^UTILITY(U,$J,358.3,32710,0)
 ;;=J45.909^^99^1349^1
 ;;^UTILITY(U,$J,358.3,32710,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32710,1,3,0)
 ;;=3^Asthma, uncomplicated, unspec
 ;;^UTILITY(U,$J,358.3,32710,1,4,0)
 ;;=4^J45.909
 ;;^UTILITY(U,$J,358.3,32710,2)
 ;;=^5008256
 ;;^UTILITY(U,$J,358.3,32711,0)
 ;;=J91.8^^99^1349^10
 ;;^UTILITY(U,$J,358.3,32711,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32711,1,3,0)
 ;;=3^Pleural effusion in other conditions classified elsewhere
 ;;^UTILITY(U,$J,358.3,32711,1,4,0)
 ;;=4^J91.8
 ;;^UTILITY(U,$J,358.3,32711,2)
 ;;=^5008311
 ;;^UTILITY(U,$J,358.3,32712,0)
 ;;=J20.9^^99^1349^2
 ;;^UTILITY(U,$J,358.3,32712,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32712,1,3,0)
 ;;=3^Bronchitis,Acute,Unspec
 ;;^UTILITY(U,$J,358.3,32712,1,4,0)
 ;;=4^J20.9
 ;;^UTILITY(U,$J,358.3,32712,2)
 ;;=^5008195
 ;;^UTILITY(U,$J,358.3,32713,0)
 ;;=J98.01^^99^1349^3
 ;;^UTILITY(U,$J,358.3,32713,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32713,1,3,0)
 ;;=3^Bronchospasm,Acute
 ;;^UTILITY(U,$J,358.3,32713,1,4,0)
 ;;=4^J98.01
 ;;^UTILITY(U,$J,358.3,32713,2)
 ;;=^334092
 ;;^UTILITY(U,$J,358.3,32714,0)
 ;;=R06.00^^99^1349^6
 ;;^UTILITY(U,$J,358.3,32714,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32714,1,3,0)
 ;;=3^Dyspnea
 ;;^UTILITY(U,$J,358.3,32714,1,4,0)
 ;;=4^R06.00
 ;;^UTILITY(U,$J,358.3,32714,2)
 ;;=^5019180
 ;;^UTILITY(U,$J,358.3,32715,0)
 ;;=J18.9^^99^1349^11
 ;;^UTILITY(U,$J,358.3,32715,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32715,1,3,0)
 ;;=3^Pneumonia,Unspec
 ;;^UTILITY(U,$J,358.3,32715,1,4,0)
 ;;=4^J18.9
 ;;^UTILITY(U,$J,358.3,32715,2)
 ;;=^95632
 ;;^UTILITY(U,$J,358.3,32716,0)
 ;;=J12.9^^99^1349^12
 ;;^UTILITY(U,$J,358.3,32716,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32716,1,3,0)
 ;;=3^Pneumonia,Viral
 ;;^UTILITY(U,$J,358.3,32716,1,4,0)
 ;;=4^J12.9
 ;;^UTILITY(U,$J,358.3,32716,2)
 ;;=^5008169
 ;;^UTILITY(U,$J,358.3,32717,0)
 ;;=G47.33^^99^1349^14
 ;;^UTILITY(U,$J,358.3,32717,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32717,1,3,0)
 ;;=3^Sleep Apnea,Obstructive
 ;;^UTILITY(U,$J,358.3,32717,1,4,0)
 ;;=4^G47.33
 ;;^UTILITY(U,$J,358.3,32717,2)
 ;;=^332763
 ;;^UTILITY(U,$J,358.3,32718,0)
 ;;=R06.1^^99^1349^15
 ;;^UTILITY(U,$J,358.3,32718,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32718,1,3,0)
 ;;=3^Stridor
 ;;^UTILITY(U,$J,358.3,32718,1,4,0)
 ;;=4^R06.1
 ;;^UTILITY(U,$J,358.3,32718,2)
 ;;=^5019183
 ;;^UTILITY(U,$J,358.3,32719,0)
 ;;=R06.82^^99^1349^17
 ;;^UTILITY(U,$J,358.3,32719,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32719,1,3,0)
 ;;=3^Tachypnea
 ;;^UTILITY(U,$J,358.3,32719,1,4,0)
 ;;=4^R06.82
 ;;^UTILITY(U,$J,358.3,32719,2)
 ;;=^5019191
 ;;^UTILITY(U,$J,358.3,32720,0)
 ;;=R55.^^99^1349^16
 ;;^UTILITY(U,$J,358.3,32720,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32720,1,3,0)
 ;;=3^Syncope/Collapse
 ;;^UTILITY(U,$J,358.3,32720,1,4,0)
 ;;=4^R55.
 ;;^UTILITY(U,$J,358.3,32720,2)
 ;;=^116707
 ;;^UTILITY(U,$J,358.3,32721,0)
 ;;=R06.2^^99^1349^19
 ;;^UTILITY(U,$J,358.3,32721,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32721,1,3,0)
 ;;=3^Wheezing
 ;;^UTILITY(U,$J,358.3,32721,1,4,0)
 ;;=4^R06.2
 ;;^UTILITY(U,$J,358.3,32721,2)
 ;;=^5019184
 ;;^UTILITY(U,$J,358.3,32722,0)
 ;;=R05.9^^99^1349^5
 ;;^UTILITY(U,$J,358.3,32722,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32722,1,3,0)
 ;;=3^Cough,Unspec
 ;;^UTILITY(U,$J,358.3,32722,1,4,0)
 ;;=4^R05.9
 ;;^UTILITY(U,$J,358.3,32722,2)
 ;;=^5161232
 ;;^UTILITY(U,$J,358.3,32723,0)
 ;;=R06.02^^99^1349^13
 ;;^UTILITY(U,$J,358.3,32723,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32723,1,3,0)
 ;;=3^Shortness of Breath
 ;;^UTILITY(U,$J,358.3,32723,1,4,0)
 ;;=4^R06.02
 ;;^UTILITY(U,$J,358.3,32723,2)
 ;;=^5019181
 ;;^UTILITY(U,$J,358.3,32724,0)
 ;;=S23.9XXA^^99^1350^52
 ;;^UTILITY(U,$J,358.3,32724,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32724,1,3,0)
 ;;=3^Sprain Thorax,Unspec Part,Initial Encounter
 ;;^UTILITY(U,$J,358.3,32724,1,4,0)
 ;;=4^S23.9XXA
 ;;^UTILITY(U,$J,358.3,32724,2)
 ;;=^5023267
 ;;^UTILITY(U,$J,358.3,32725,0)
 ;;=S13.4XXA^^99^1350^51
 ;;^UTILITY(U,$J,358.3,32725,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32725,1,3,0)
 ;;=3^Sprain Ligaments Cervical Spine,Initial Encounter
 ;;^UTILITY(U,$J,358.3,32725,1,4,0)
 ;;=4^S13.4XXA
 ;;^UTILITY(U,$J,358.3,32725,2)
 ;;=^5022028
 ;;^UTILITY(U,$J,358.3,32726,0)
 ;;=R22.2^^99^1350^53
 ;;^UTILITY(U,$J,358.3,32726,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32726,1,3,0)
 ;;=3^Swelling,Mass & Lump,Trunk
 ;;^UTILITY(U,$J,358.3,32726,1,4,0)
 ;;=4^R22.2
 ;;^UTILITY(U,$J,358.3,32726,2)
 ;;=^5019286
 ;;^UTILITY(U,$J,358.3,32727,0)
 ;;=R55.^^99^1350^54
 ;;^UTILITY(U,$J,358.3,32727,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32727,1,3,0)
 ;;=3^Syncope and Collapse
 ;;^UTILITY(U,$J,358.3,32727,1,4,0)
 ;;=4^R55.
 ;;^UTILITY(U,$J,358.3,32727,2)
 ;;=^116707
 ;;^UTILITY(U,$J,358.3,32728,0)
 ;;=R10.9^^99^1350^2
 ;;^UTILITY(U,$J,358.3,32728,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32728,1,3,0)
 ;;=3^Abdominal pain, unspec
 ;;^UTILITY(U,$J,358.3,32728,1,4,0)
 ;;=4^R10.9
 ;;^UTILITY(U,$J,358.3,32728,2)
 ;;=^5019230
 ;;^UTILITY(U,$J,358.3,32729,0)
 ;;=Z89.512^^99^1350^4
 ;;^UTILITY(U,$J,358.3,32729,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32729,1,3,0)
 ;;=3^Acquired absence of left leg below knee
 ;;^UTILITY(U,$J,358.3,32729,1,4,0)
 ;;=4^Z89.512
 ;;^UTILITY(U,$J,358.3,32729,2)
 ;;=^5063567
 ;;^UTILITY(U,$J,358.3,32730,0)
 ;;=Z89.511^^99^1350^5
 ;;^UTILITY(U,$J,358.3,32730,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32730,1,3,0)
 ;;=3^Acquired absence of right leg below knee
 ;;^UTILITY(U,$J,358.3,32730,1,4,0)
 ;;=4^Z89.511
 ;;^UTILITY(U,$J,358.3,32730,2)
 ;;=^5063566
 ;;^UTILITY(U,$J,358.3,32731,0)
 ;;=T78.40XA^^99^1350^6
 ;;^UTILITY(U,$J,358.3,32731,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32731,1,3,0)
 ;;=3^Allergy, unspecified, initial encounter
 ;;^UTILITY(U,$J,358.3,32731,1,4,0)
 ;;=4^T78.40XA
 ;;^UTILITY(U,$J,358.3,32731,2)
 ;;=^5054284
 ;;^UTILITY(U,$J,358.3,32732,0)
 ;;=R00.1^^99^1350^10
 ;;^UTILITY(U,$J,358.3,32732,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32732,1,3,0)
 ;;=3^Bradycardia, unspecified
 ;;^UTILITY(U,$J,358.3,32732,1,4,0)
 ;;=4^R00.1
 ;;^UTILITY(U,$J,358.3,32732,2)
 ;;=^5019164
 ;;^UTILITY(U,$J,358.3,32733,0)
 ;;=R07.9^^99^1350^11
 ;;^UTILITY(U,$J,358.3,32733,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32733,1,3,0)
 ;;=3^Chest pain, unspecified
 ;;^UTILITY(U,$J,358.3,32733,1,4,0)
 ;;=4^R07.9
 ;;^UTILITY(U,$J,358.3,32733,2)
 ;;=^5019201
 ;;^UTILITY(U,$J,358.3,32734,0)
 ;;=R25.2^^99^1350^14
 ;;^UTILITY(U,$J,358.3,32734,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32734,1,3,0)
 ;;=3^Cramp and spasm
 ;;^UTILITY(U,$J,358.3,32734,1,4,0)
 ;;=4^R25.2
 ;;^UTILITY(U,$J,358.3,32734,2)
 ;;=^5019301
 ;;^UTILITY(U,$J,358.3,32735,0)
 ;;=R19.7^^99^1350^15
 ;;^UTILITY(U,$J,358.3,32735,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32735,1,3,0)
 ;;=3^Diarrhea, unspecified
 ;;^UTILITY(U,$J,358.3,32735,1,4,0)
 ;;=4^R19.7
 ;;^UTILITY(U,$J,358.3,32735,2)
 ;;=^5019276
 ;;^UTILITY(U,$J,358.3,32736,0)
 ;;=R42.^^99^1350^17
 ;;^UTILITY(U,$J,358.3,32736,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32736,1,3,0)
 ;;=3^Dizziness and giddiness
 ;;^UTILITY(U,$J,358.3,32736,1,4,0)
 ;;=4^R42.
 ;;^UTILITY(U,$J,358.3,32736,2)
 ;;=^5019450
 ;;^UTILITY(U,$J,358.3,32737,0)
 ;;=R13.10^^99^1350^18
 ;;^UTILITY(U,$J,358.3,32737,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32737,1,3,0)
 ;;=3^Dysphagia, unspecified
 ;;^UTILITY(U,$J,358.3,32737,1,4,0)
 ;;=4^R13.10
 ;;^UTILITY(U,$J,358.3,32737,2)
 ;;=^335307
 ;;^UTILITY(U,$J,358.3,32738,0)
 ;;=R06.00^^99^1350^19
 ;;^UTILITY(U,$J,358.3,32738,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32738,1,3,0)
 ;;=3^Dyspnea, unspecified
 ;;^UTILITY(U,$J,358.3,32738,1,4,0)
 ;;=4^R06.00
 ;;^UTILITY(U,$J,358.3,32738,2)
 ;;=^5019180
 ;;^UTILITY(U,$J,358.3,32739,0)
 ;;=R60.9^^99^1350^20
 ;;^UTILITY(U,$J,358.3,32739,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32739,1,3,0)
 ;;=3^Edema, unspecified
 ;;^UTILITY(U,$J,358.3,32739,1,4,0)
 ;;=4^R60.9
 ;;^UTILITY(U,$J,358.3,32739,2)
 ;;=^5019534
 ;;^UTILITY(U,$J,358.3,32740,0)
 ;;=R04.0^^99^1350^22
 ;;^UTILITY(U,$J,358.3,32740,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32740,1,3,0)
 ;;=3^Epistaxis
 ;;^UTILITY(U,$J,358.3,32740,1,4,0)
 ;;=4^R04.0
 ;;^UTILITY(U,$J,358.3,32740,2)
 ;;=^5019173
 ;;^UTILITY(U,$J,358.3,32741,0)
 ;;=R53.83^^99^1350^23
 ;;^UTILITY(U,$J,358.3,32741,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32741,1,3,0)
 ;;=3^Fatigue, other
 ;;^UTILITY(U,$J,358.3,32741,1,4,0)
 ;;=4^R53.83
 ;;^UTILITY(U,$J,358.3,32741,2)
 ;;=^5019520
 ;;^UTILITY(U,$J,358.3,32742,0)
 ;;=R50.9^^99^1350^24
 ;;^UTILITY(U,$J,358.3,32742,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32742,1,3,0)
 ;;=3^Fever, unspecified
 ;;^UTILITY(U,$J,358.3,32742,1,4,0)
 ;;=4^R50.9
 ;;^UTILITY(U,$J,358.3,32742,2)
 ;;=^5019512
 ;;^UTILITY(U,$J,358.3,32743,0)
 ;;=R31.9^^99^1350^28
 ;;^UTILITY(U,$J,358.3,32743,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32743,1,3,0)
 ;;=3^Hematuria, unspecified
 ;;^UTILITY(U,$J,358.3,32743,1,4,0)
 ;;=4^R31.9
 ;;^UTILITY(U,$J,358.3,32743,2)
 ;;=^5019328
 ;;^UTILITY(U,$J,358.3,32744,0)
 ;;=Z21.^^99^1350^25
 ;;^UTILITY(U,$J,358.3,32744,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32744,1,3,0)
 ;;=3^HIV status, asymptomatic
 ;;^UTILITY(U,$J,358.3,32744,1,4,0)
 ;;=4^Z21.
 ;;^UTILITY(U,$J,358.3,32744,2)
 ;;=^5062777
 ;;^UTILITY(U,$J,358.3,32745,0)
 ;;=R17.^^99^1350^33
 ;;^UTILITY(U,$J,358.3,32745,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32745,1,3,0)
 ;;=3^Jaundice, unspec
 ;;^UTILITY(U,$J,358.3,32745,1,4,0)
 ;;=4^R17.
 ;;^UTILITY(U,$J,358.3,32745,2)
 ;;=^5019251
 ;;^UTILITY(U,$J,358.3,32746,0)
 ;;=R53.81^^99^1350^34
 ;;^UTILITY(U,$J,358.3,32746,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32746,1,3,0)
 ;;=3^Malaise, other
 ;;^UTILITY(U,$J,358.3,32746,1,4,0)
 ;;=4^R53.81
 ;;^UTILITY(U,$J,358.3,32746,2)
 ;;=^5019518
 ;;^UTILITY(U,$J,358.3,32747,0)
 ;;=R35.0^^99^1350^35
 ;;^UTILITY(U,$J,358.3,32747,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32747,1,3,0)
 ;;=3^Micturition frequency
 ;;^UTILITY(U,$J,358.3,32747,1,4,0)
 ;;=4^R35.0
 ;;^UTILITY(U,$J,358.3,32747,2)
 ;;=^5019334
 ;;^UTILITY(U,$J,358.3,32748,0)
 ;;=R11.2^^99^1350^36
 ;;^UTILITY(U,$J,358.3,32748,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32748,1,3,0)
 ;;=3^Nausea w/ vomiting, unspecified
 ;;^UTILITY(U,$J,358.3,32748,1,4,0)
 ;;=4^R11.2
 ;;^UTILITY(U,$J,358.3,32748,2)
 ;;=^5019237
 ;;^UTILITY(U,$J,358.3,32749,0)
 ;;=Z51.5^^99^1350^37
 ;;^UTILITY(U,$J,358.3,32749,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32749,1,3,0)
 ;;=3^Palliative care encounter
 ;;^UTILITY(U,$J,358.3,32749,1,4,0)
 ;;=4^Z51.5
 ;;^UTILITY(U,$J,358.3,32749,2)
 ;;=^5063063
 ;;^UTILITY(U,$J,358.3,32750,0)
 ;;=R10.2^^99^1350^39
 ;;^UTILITY(U,$J,358.3,32750,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32750,1,3,0)
 ;;=3^Pelvic & perineal pain
 ;;^UTILITY(U,$J,358.3,32750,1,4,0)
 ;;=4^R10.2
 ;;^UTILITY(U,$J,358.3,32750,2)
 ;;=^5019209
 ;;^UTILITY(U,$J,358.3,32751,0)
 ;;=R09.1^^99^1350^40
 ;;^UTILITY(U,$J,358.3,32751,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32751,1,3,0)
 ;;=3^Pleurisy
 ;;^UTILITY(U,$J,358.3,32751,1,4,0)
 ;;=4^R09.1
 ;;^UTILITY(U,$J,358.3,32751,2)
 ;;=^95428
 ;;^UTILITY(U,$J,358.3,32752,0)
 ;;=Z95.1^^99^1350^44
 ;;^UTILITY(U,$J,358.3,32752,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32752,1,3,0)
 ;;=3^Presence of aortocoronary bypass graft
 ;;^UTILITY(U,$J,358.3,32752,1,4,0)
 ;;=4^Z95.1
 ;;^UTILITY(U,$J,358.3,32752,2)
 ;;=^5063669
 ;;^UTILITY(U,$J,358.3,32753,0)
 ;;=Z95.3^^99^1350^45
 ;;^UTILITY(U,$J,358.3,32753,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32753,1,3,0)
 ;;=3^Presence of xenogenic heart valve
 ;;^UTILITY(U,$J,358.3,32753,1,4,0)
 ;;=4^Z95.3
 ;;^UTILITY(U,$J,358.3,32753,2)
 ;;=^5063671
 ;;^UTILITY(U,$J,358.3,32754,0)
 ;;=R21.^^99^1350^47
 ;;^UTILITY(U,$J,358.3,32754,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32754,1,3,0)
 ;;=3^Rash & oth nonspecific skin eruption
 ;;^UTILITY(U,$J,358.3,32754,1,4,0)
 ;;=4^R21.
 ;;^UTILITY(U,$J,358.3,32754,2)
 ;;=^5019283
 ;;^UTILITY(U,$J,358.3,32755,0)
 ;;=Z12.9^^99^1350^48
 ;;^UTILITY(U,$J,358.3,32755,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32755,1,3,0)
 ;;=3^Screening malig neop site unspec
 ;;^UTILITY(U,$J,358.3,32755,1,4,0)
 ;;=4^Z12.9
 ;;^UTILITY(U,$J,358.3,32755,2)
 ;;=^5062698
 ;;^UTILITY(U,$J,358.3,32756,0)
 ;;=R06.02^^99^1350^49
 ;;^UTILITY(U,$J,358.3,32756,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32756,1,3,0)
 ;;=3^Shortness of breath
 ;;^UTILITY(U,$J,358.3,32756,1,4,0)
 ;;=4^R06.02
 ;;^UTILITY(U,$J,358.3,32756,2)
 ;;=^5019181
 ;;^UTILITY(U,$J,358.3,32757,0)
 ;;=R00.0^^99^1350^55
 ;;^UTILITY(U,$J,358.3,32757,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32757,1,3,0)
 ;;=3^Tachycardia, unspecified
 ;;^UTILITY(U,$J,358.3,32757,1,4,0)
 ;;=4^R00.0
 ;;^UTILITY(U,$J,358.3,32757,2)
 ;;=^5019163
 ;;^UTILITY(U,$J,358.3,32758,0)
 ;;=R32.^^99^1350^57
 ;;^UTILITY(U,$J,358.3,32758,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32758,1,3,0)
 ;;=3^Urinary incontinence, unspec
 ;;^UTILITY(U,$J,358.3,32758,1,4,0)
 ;;=4^R32.
 ;;^UTILITY(U,$J,358.3,32758,2)
 ;;=^5019329
 ;;^UTILITY(U,$J,358.3,32759,0)
 ;;=R33.9^^99^1350^58
 ;;^UTILITY(U,$J,358.3,32759,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32759,1,3,0)
 ;;=3^Urine retention, unspec
 ;;^UTILITY(U,$J,358.3,32759,1,4,0)
 ;;=4^R33.9
 ;;^UTILITY(U,$J,358.3,32759,2)
 ;;=^5019332
 ;;^UTILITY(U,$J,358.3,32760,0)
 ;;=R53.1^^99^1350^59
 ;;^UTILITY(U,$J,358.3,32760,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32760,1,3,0)
 ;;=3^Weakness
 ;;^UTILITY(U,$J,358.3,32760,1,4,0)
 ;;=4^R53.1
 ;;^UTILITY(U,$J,358.3,32760,2)
 ;;=^5019516
 ;;^UTILITY(U,$J,358.3,32761,0)
 ;;=R63.4^^99^1350^60
 ;;^UTILITY(U,$J,358.3,32761,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32761,1,3,0)
 ;;=3^Weight loss, abnormal
 ;;^UTILITY(U,$J,358.3,32761,1,4,0)
 ;;=4^R63.4
 ;;^UTILITY(U,$J,358.3,32761,2)
 ;;=^5019542
 ;;^UTILITY(U,$J,358.3,32762,0)
 ;;=B18.2^^99^1350^29
 ;;^UTILITY(U,$J,358.3,32762,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32762,1,3,0)
 ;;=3^Hepatitis C Carrier,Viral
 ;;^UTILITY(U,$J,358.3,32762,1,4,0)
 ;;=4^B18.2
 ;;^UTILITY(U,$J,358.3,32762,2)
 ;;=^5000548
 ;;^UTILITY(U,$J,358.3,32763,0)
 ;;=Z98.890^^99^1350^43
 ;;^UTILITY(U,$J,358.3,32763,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32763,1,3,0)
 ;;=3^Postprocedural States,Other Specified
 ;;^UTILITY(U,$J,358.3,32763,1,4,0)
 ;;=4^Z98.890
 ;;^UTILITY(U,$J,358.3,32763,2)
 ;;=^5063754
 ;;^UTILITY(U,$J,358.3,32764,0)
 ;;=T81.41XA^^99^1350^32
 ;;^UTILITY(U,$J,358.3,32764,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32764,1,3,0)
 ;;=3^Infection Following Proced,Superfic Incis Surg Site,Init
 ;;^UTILITY(U,$J,358.3,32764,1,4,0)
 ;;=4^T81.41XA
 ;;^UTILITY(U,$J,358.3,32764,2)
 ;;=^5157587
 ;;^UTILITY(U,$J,358.3,32765,0)
 ;;=T81.42XA^^99^1350^30
 ;;^UTILITY(U,$J,358.3,32765,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32765,1,3,0)
 ;;=3^Infection Following Proced,Deep Incis Surg Site,Init
 ;;^UTILITY(U,$J,358.3,32765,1,4,0)
 ;;=4^T81.42XA
 ;;^UTILITY(U,$J,358.3,32765,2)
 ;;=^5157590
 ;;^UTILITY(U,$J,358.3,32766,0)
 ;;=T81.43XA^^99^1350^31
 ;;^UTILITY(U,$J,358.3,32766,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32766,1,3,0)
 ;;=3^Infection Following Proced,Organ/Space Surg Site,Init
 ;;^UTILITY(U,$J,358.3,32766,1,4,0)
 ;;=4^T81.43XA
 ;;^UTILITY(U,$J,358.3,32766,2)
 ;;=^5157593
 ;;^UTILITY(U,$J,358.3,32767,0)
 ;;=R47.01^^99^1350^8
 ;;^UTILITY(U,$J,358.3,32767,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32767,1,3,0)
 ;;=3^Aphasia
 ;;^UTILITY(U,$J,358.3,32767,1,4,0)
 ;;=4^R47.01
 ;;^UTILITY(U,$J,358.3,32767,2)
 ;;=^5019488
 ;;^UTILITY(U,$J,358.3,32768,0)
 ;;=R27.0^^99^1350^9
 ;;^UTILITY(U,$J,358.3,32768,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32768,1,3,0)
 ;;=3^Ataxia,Unspec
 ;;^UTILITY(U,$J,358.3,32768,1,4,0)
 ;;=4^R27.0
 ;;^UTILITY(U,$J,358.3,32768,2)
 ;;=^5019310
 ;;^UTILITY(U,$J,358.3,32769,0)
 ;;=H53.2^^99^1350^16
 ;;^UTILITY(U,$J,358.3,32769,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32769,1,3,0)
 ;;=3^Diplopia
 ;;^UTILITY(U,$J,358.3,32769,1,4,0)
 ;;=4^H53.2
 ;;^UTILITY(U,$J,358.3,32769,2)
 ;;=^35208
 ;;^UTILITY(U,$J,358.3,32770,0)
 ;;=R10.84^^99^1350^1
 ;;^UTILITY(U,$J,358.3,32770,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32770,1,3,0)
 ;;=3^Abdominal Pain,Generalized
 ;;^UTILITY(U,$J,358.3,32770,1,4,0)
 ;;=4^R10.84
 ;;^UTILITY(U,$J,358.3,32770,2)
 ;;=^5019229
 ;;^UTILITY(U,$J,358.3,32771,0)
 ;;=R68.89^^99^1350^3
 ;;^UTILITY(U,$J,358.3,32771,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32771,1,3,0)
 ;;=3^Abnormal Clinical Findings
 ;;^UTILITY(U,$J,358.3,32771,1,4,0)
 ;;=4^R68.89
 ;;^UTILITY(U,$J,358.3,32771,2)
 ;;=^5019557
 ;;^UTILITY(U,$J,358.3,32772,0)
 ;;=D53.9^^99^1350^7
 ;;^UTILITY(U,$J,358.3,32772,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32772,1,3,0)
 ;;=3^Anemia
 ;;^UTILITY(U,$J,358.3,32772,1,4,0)
 ;;=4^D53.9
 ;;^UTILITY(U,$J,358.3,32772,2)
 ;;=^5002298
 ;;^UTILITY(U,$J,358.3,32773,0)
 ;;=R53.82^^99^1350^12
 ;;^UTILITY(U,$J,358.3,32773,1,0)
 ;;=^358.31IA^4^2