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

IBDEI0E0.m

Go to the documentation of this file.
IBDEI0E0 ; ; 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,35111,1,3,0)
 ;;=3^Sequela of Unspec Injury to Lumbar Spinal Cord
 ;;^UTILITY(U,$J,358.3,35111,1,4,0)
 ;;=4^S34.109S
 ;;^UTILITY(U,$J,358.3,35111,2)
 ;;=^5134570
 ;;^UTILITY(U,$J,358.3,35112,0)
 ;;=S24.109S^^105^1440^42
 ;;^UTILITY(U,$J,358.3,35112,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35112,1,3,0)
 ;;=3^Sequela of Unspec Injury to Thoracic Spinal Cord
 ;;^UTILITY(U,$J,358.3,35112,1,4,0)
 ;;=4^S24.109S
 ;;^UTILITY(U,$J,358.3,35112,2)
 ;;=^5134384
 ;;^UTILITY(U,$J,358.3,35113,0)
 ;;=I69.393^^105^1440^5
 ;;^UTILITY(U,$J,358.3,35113,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35113,1,3,0)
 ;;=3^Ataxia following Cerebral Infarction
 ;;^UTILITY(U,$J,358.3,35113,1,4,0)
 ;;=4^I69.393
 ;;^UTILITY(U,$J,358.3,35113,2)
 ;;=^5007518
 ;;^UTILITY(U,$J,358.3,35114,0)
 ;;=G89.0^^105^1441^1
 ;;^UTILITY(U,$J,358.3,35114,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35114,1,3,0)
 ;;=3^Central Pain Syndrome
 ;;^UTILITY(U,$J,358.3,35114,1,4,0)
 ;;=4^G89.0
 ;;^UTILITY(U,$J,358.3,35114,2)
 ;;=^334189
 ;;^UTILITY(U,$J,358.3,35115,0)
 ;;=G89.11^^105^1441^11
 ;;^UTILITY(U,$J,358.3,35115,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35115,1,3,0)
 ;;=3^Pain d/t Trauma,Acute
 ;;^UTILITY(U,$J,358.3,35115,1,4,0)
 ;;=4^G89.11
 ;;^UTILITY(U,$J,358.3,35115,2)
 ;;=^5004152
 ;;^UTILITY(U,$J,358.3,35116,0)
 ;;=G89.12^^105^1441^15
 ;;^UTILITY(U,$J,358.3,35116,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35116,1,3,0)
 ;;=3^Post-Thoracotomy Pain,Acute
 ;;^UTILITY(U,$J,358.3,35116,1,4,0)
 ;;=4^G89.12
 ;;^UTILITY(U,$J,358.3,35116,2)
 ;;=^5004153
 ;;^UTILITY(U,$J,358.3,35117,0)
 ;;=G89.18^^105^1441^17
 ;;^UTILITY(U,$J,358.3,35117,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35117,1,3,0)
 ;;=3^Postprocedural Pain,Oth Acute
 ;;^UTILITY(U,$J,358.3,35117,1,4,0)
 ;;=4^G89.18
 ;;^UTILITY(U,$J,358.3,35117,2)
 ;;=^5004154
 ;;^UTILITY(U,$J,358.3,35118,0)
 ;;=R52.^^105^1441^13
 ;;^UTILITY(U,$J,358.3,35118,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35118,1,3,0)
 ;;=3^Pain,Unspec
 ;;^UTILITY(U,$J,358.3,35118,1,4,0)
 ;;=4^R52.
 ;;^UTILITY(U,$J,358.3,35118,2)
 ;;=^5019514
 ;;^UTILITY(U,$J,358.3,35119,0)
 ;;=G89.21^^105^1441^12
 ;;^UTILITY(U,$J,358.3,35119,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35119,1,3,0)
 ;;=3^Pain d/t Trauma,Chronic
 ;;^UTILITY(U,$J,358.3,35119,1,4,0)
 ;;=4^G89.21
 ;;^UTILITY(U,$J,358.3,35119,2)
 ;;=^5004155
 ;;^UTILITY(U,$J,358.3,35120,0)
 ;;=G89.22^^105^1441^16
 ;;^UTILITY(U,$J,358.3,35120,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35120,1,3,0)
 ;;=3^Post-Thoracotomy Pain,Chronic
 ;;^UTILITY(U,$J,358.3,35120,1,4,0)
 ;;=4^G89.22
 ;;^UTILITY(U,$J,358.3,35120,2)
 ;;=^5004156
 ;;^UTILITY(U,$J,358.3,35121,0)
 ;;=G89.28^^105^1441^18
 ;;^UTILITY(U,$J,358.3,35121,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35121,1,3,0)
 ;;=3^Postprocedural Pain,Oth Chronic
 ;;^UTILITY(U,$J,358.3,35121,1,4,0)
 ;;=4^G89.28
 ;;^UTILITY(U,$J,358.3,35121,2)
 ;;=^5004157
 ;;^UTILITY(U,$J,358.3,35122,0)
 ;;=G89.3^^105^1441^10
 ;;^UTILITY(U,$J,358.3,35122,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35122,1,3,0)
 ;;=3^Neoplasm Related Pain,Acute/Chronic
 ;;^UTILITY(U,$J,358.3,35122,1,4,0)
 ;;=4^G89.3
 ;;^UTILITY(U,$J,358.3,35122,2)
 ;;=^5004159
 ;;^UTILITY(U,$J,358.3,35123,0)
 ;;=G89.4^^105^1441^2
 ;;^UTILITY(U,$J,358.3,35123,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35123,1,3,0)
 ;;=3^Chronic Pain Syndrome
 ;;^UTILITY(U,$J,358.3,35123,1,4,0)
 ;;=4^G89.4
 ;;^UTILITY(U,$J,358.3,35123,2)
 ;;=^334079
 ;;^UTILITY(U,$J,358.3,35124,0)
 ;;=M27.0^^105^1441^3
 ;;^UTILITY(U,$J,358.3,35124,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35124,1,3,0)
 ;;=3^Developmental Disorder of Jaws
 ;;^UTILITY(U,$J,358.3,35124,1,4,0)
 ;;=4^M27.0
 ;;^UTILITY(U,$J,358.3,35124,2)
 ;;=^5011722
 ;;^UTILITY(U,$J,358.3,35125,0)
 ;;=M27.9^^105^1441^4
 ;;^UTILITY(U,$J,358.3,35125,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35125,1,3,0)
 ;;=3^Disease of Jaws,Unspec
 ;;^UTILITY(U,$J,358.3,35125,1,4,0)
 ;;=4^M27.9
 ;;^UTILITY(U,$J,358.3,35125,2)
 ;;=^5011737
 ;;^UTILITY(U,$J,358.3,35126,0)
 ;;=R68.84^^105^1441^8
 ;;^UTILITY(U,$J,358.3,35126,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35126,1,3,0)
 ;;=3^Jaw Pain
 ;;^UTILITY(U,$J,358.3,35126,1,4,0)
 ;;=4^R68.84
 ;;^UTILITY(U,$J,358.3,35126,2)
 ;;=^5019556
 ;;^UTILITY(U,$J,358.3,35127,0)
 ;;=N48.9^^105^1441^6
 ;;^UTILITY(U,$J,358.3,35127,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35127,1,3,0)
 ;;=3^Disorder of Penis,Unspec
 ;;^UTILITY(U,$J,358.3,35127,1,4,0)
 ;;=4^N48.9
 ;;^UTILITY(U,$J,358.3,35127,2)
 ;;=^5015743
 ;;^UTILITY(U,$J,358.3,35128,0)
 ;;=N50.9^^105^1441^5
 ;;^UTILITY(U,$J,358.3,35128,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35128,1,3,0)
 ;;=3^Disorder of Male Genital Organs,Unspec
 ;;^UTILITY(U,$J,358.3,35128,1,4,0)
 ;;=4^N50.9
 ;;^UTILITY(U,$J,358.3,35128,2)
 ;;=^5015751
 ;;^UTILITY(U,$J,358.3,35129,0)
 ;;=R10.2^^105^1441^14
 ;;^UTILITY(U,$J,358.3,35129,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35129,1,3,0)
 ;;=3^Pelvic/Perineal Pain
 ;;^UTILITY(U,$J,358.3,35129,1,4,0)
 ;;=4^R10.2
 ;;^UTILITY(U,$J,358.3,35129,2)
 ;;=^5019209
 ;;^UTILITY(U,$J,358.3,35130,0)
 ;;=N94.89^^105^1441^7
 ;;^UTILITY(U,$J,358.3,35130,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35130,1,3,0)
 ;;=3^Female Genital Organs/Menstrual Cycle,Oth Cond
 ;;^UTILITY(U,$J,358.3,35130,1,4,0)
 ;;=4^N94.89
 ;;^UTILITY(U,$J,358.3,35130,2)
 ;;=^5015925
 ;;^UTILITY(U,$J,358.3,35131,0)
 ;;=N23.^^105^1441^19
 ;;^UTILITY(U,$J,358.3,35131,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35131,1,3,0)
 ;;=3^Renal Colic,Unspec
 ;;^UTILITY(U,$J,358.3,35131,1,4,0)
 ;;=4^N23.
 ;;^UTILITY(U,$J,358.3,35131,2)
 ;;=^5015615
 ;;^UTILITY(U,$J,358.3,35132,0)
 ;;=Z79.891^^105^1441^9
 ;;^UTILITY(U,$J,358.3,35132,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35132,1,3,0)
 ;;=3^Long Term Opiate/Opioid Analgesic Use
 ;;^UTILITY(U,$J,358.3,35132,1,4,0)
 ;;=4^Z79.891
 ;;^UTILITY(U,$J,358.3,35132,2)
 ;;=^5063342
 ;;^UTILITY(U,$J,358.3,35133,0)
 ;;=Z71.89^^105^1442^1
 ;;^UTILITY(U,$J,358.3,35133,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35133,1,3,0)
 ;;=3^Activity/Exercise Counseling
 ;;^UTILITY(U,$J,358.3,35133,1,4,0)
 ;;=4^Z71.89
 ;;^UTILITY(U,$J,358.3,35133,2)
 ;;=^5063253
 ;;^UTILITY(U,$J,358.3,35134,0)
 ;;=Z13.89^^105^1442^2
 ;;^UTILITY(U,$J,358.3,35134,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35134,1,3,0)
 ;;=3^Alcohol Use Screen
 ;;^UTILITY(U,$J,358.3,35134,1,4,0)
 ;;=4^Z13.89
 ;;^UTILITY(U,$J,358.3,35134,2)
 ;;=^5062720
 ;;^UTILITY(U,$J,358.3,35135,0)
 ;;=Z12.39^^105^1442^3
 ;;^UTILITY(U,$J,358.3,35135,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35135,1,3,0)
 ;;=3^Breast Malignant Neoplasm Screen
 ;;^UTILITY(U,$J,358.3,35135,1,4,0)
 ;;=4^Z12.39
 ;;^UTILITY(U,$J,358.3,35135,2)
 ;;=^5062686
 ;;^UTILITY(U,$J,358.3,35136,0)
 ;;=Z12.4^^105^1442^5
 ;;^UTILITY(U,$J,358.3,35136,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35136,1,3,0)
 ;;=3^Cervix Malignant Neoplasm Screen
 ;;^UTILITY(U,$J,358.3,35136,1,4,0)
 ;;=4^Z12.4
 ;;^UTILITY(U,$J,358.3,35136,2)
 ;;=^5062687
 ;;^UTILITY(U,$J,358.3,35137,0)
 ;;=Z13.5^^105^1442^8
 ;;^UTILITY(U,$J,358.3,35137,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35137,1,3,0)
 ;;=3^Eye and Ear Disorder Screen
 ;;^UTILITY(U,$J,358.3,35137,1,4,0)
 ;;=4^Z13.5
 ;;^UTILITY(U,$J,358.3,35137,2)
 ;;=^5062706
 ;;^UTILITY(U,$J,358.3,35138,0)
 ;;=Z01.89^^105^1442^6
 ;;^UTILITY(U,$J,358.3,35138,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35138,1,3,0)
 ;;=3^Diabetic Foot Exam
 ;;^UTILITY(U,$J,358.3,35138,1,4,0)
 ;;=4^Z01.89
 ;;^UTILITY(U,$J,358.3,35138,2)
 ;;=^5062632
 ;;^UTILITY(U,$J,358.3,35139,0)
 ;;=Z11.59^^105^1442^17
 ;;^UTILITY(U,$J,358.3,35139,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35139,1,3,0)
 ;;=3^Viral Diseases Screen
 ;;^UTILITY(U,$J,358.3,35139,1,4,0)
 ;;=4^Z11.59
 ;;^UTILITY(U,$J,358.3,35139,2)
 ;;=^5062675
 ;;^UTILITY(U,$J,358.3,35140,0)
 ;;=Z13.6^^105^1442^4
 ;;^UTILITY(U,$J,358.3,35140,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35140,1,3,0)
 ;;=3^Cardiovascular Disorder Screen
 ;;^UTILITY(U,$J,358.3,35140,1,4,0)
 ;;=4^Z13.6
 ;;^UTILITY(U,$J,358.3,35140,2)
 ;;=^5062707
 ;;^UTILITY(U,$J,358.3,35141,0)
 ;;=Z12.12^^105^1442^15
 ;;^UTILITY(U,$J,358.3,35141,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35141,1,3,0)
 ;;=3^Rectum Malignant Neoplasm Screen
 ;;^UTILITY(U,$J,358.3,35141,1,4,0)
 ;;=4^Z12.12
 ;;^UTILITY(U,$J,358.3,35141,2)
 ;;=^5062682
 ;;^UTILITY(U,$J,358.3,35142,0)
 ;;=Z71.89^^105^1442^13
 ;;^UTILITY(U,$J,358.3,35142,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35142,1,3,0)
 ;;=3^Other Specified Counseling
 ;;^UTILITY(U,$J,358.3,35142,1,4,0)
 ;;=4^Z71.89
 ;;^UTILITY(U,$J,358.3,35142,2)
 ;;=^5063253
 ;;^UTILITY(U,$J,358.3,35143,0)
 ;;=Z12.5^^105^1442^14
 ;;^UTILITY(U,$J,358.3,35143,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35143,1,3,0)
 ;;=3^Prostate Malignant Neoplasm Screen
 ;;^UTILITY(U,$J,358.3,35143,1,4,0)
 ;;=4^Z12.5
 ;;^UTILITY(U,$J,358.3,35143,2)
 ;;=^5062688
 ;;^UTILITY(U,$J,358.3,35144,0)
 ;;=Z00.00^^105^1442^10
 ;;^UTILITY(U,$J,358.3,35144,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35144,1,3,0)
 ;;=3^General Adult Medical Exam w/o Abnormal Findings
 ;;^UTILITY(U,$J,358.3,35144,1,4,0)
 ;;=4^Z00.00
 ;;^UTILITY(U,$J,358.3,35144,2)
 ;;=^5062599
 ;;^UTILITY(U,$J,358.3,35145,0)
 ;;=Z02.79^^105^1442^12
 ;;^UTILITY(U,$J,358.3,35145,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35145,1,3,0)
 ;;=3^Medical Certificate Encounter
 ;;^UTILITY(U,$J,358.3,35145,1,4,0)
 ;;=4^Z02.79
 ;;^UTILITY(U,$J,358.3,35145,2)
 ;;=^5062641
 ;;^UTILITY(U,$J,358.3,35146,0)
 ;;=Z71.3^^105^1442^7
 ;;^UTILITY(U,$J,358.3,35146,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35146,1,3,0)
 ;;=3^Dietary Counseling
 ;;^UTILITY(U,$J,358.3,35146,1,4,0)
 ;;=4^Z71.3
 ;;^UTILITY(U,$J,358.3,35146,2)
 ;;=^5063245
 ;;^UTILITY(U,$J,358.3,35147,0)
 ;;=Z71.7^^105^1442^11
 ;;^UTILITY(U,$J,358.3,35147,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35147,1,3,0)
 ;;=3^HIV Counseling
 ;;^UTILITY(U,$J,358.3,35147,1,4,0)
 ;;=4^Z71.7
 ;;^UTILITY(U,$J,358.3,35147,2)
 ;;=^5063251
 ;;^UTILITY(U,$J,358.3,35148,0)
 ;;=Z71.6^^105^1442^16
 ;;^UTILITY(U,$J,358.3,35148,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35148,1,3,0)
 ;;=3^Tobacco Abuse Counseling
 ;;^UTILITY(U,$J,358.3,35148,1,4,0)
 ;;=4^Z71.6
 ;;^UTILITY(U,$J,358.3,35148,2)
 ;;=^5063250
 ;;^UTILITY(U,$J,358.3,35149,0)
 ;;=Z00.01^^105^1442^9
 ;;^UTILITY(U,$J,358.3,35149,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35149,1,3,0)
 ;;=3^General Adult Medical Exam w/ Abnormal Findings
 ;;^UTILITY(U,$J,358.3,35149,1,4,0)
 ;;=4^Z00.01
 ;;^UTILITY(U,$J,358.3,35149,2)
 ;;=^5062600
 ;;^UTILITY(U,$J,358.3,35150,0)
 ;;=D86.0^^105^1443^45
 ;;^UTILITY(U,$J,358.3,35150,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35150,1,3,0)
 ;;=3^Sarcoidosis of Lung
 ;;^UTILITY(U,$J,358.3,35150,1,4,0)
 ;;=4^D86.0
 ;;^UTILITY(U,$J,358.3,35150,2)
 ;;=^5002442
 ;;^UTILITY(U,$J,358.3,35151,0)
 ;;=D86.1^^105^1443^47
 ;;^UTILITY(U,$J,358.3,35151,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35151,1,3,0)
 ;;=3^Sarcoidosis of Lymph nodes
 ;;^UTILITY(U,$J,358.3,35151,1,4,0)
 ;;=4^D86.1
 ;;^UTILITY(U,$J,358.3,35151,2)
 ;;=^5002443
 ;;^UTILITY(U,$J,358.3,35152,0)
 ;;=D86.2^^105^1443^46
 ;;^UTILITY(U,$J,358.3,35152,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35152,1,3,0)
 ;;=3^Sarcoidosis of Lung w/ Sarcoidosis of Lymph Nodes
 ;;^UTILITY(U,$J,358.3,35152,1,4,0)
 ;;=4^D86.2
 ;;^UTILITY(U,$J,358.3,35152,2)
 ;;=^5002444
 ;;^UTILITY(U,$J,358.3,35153,0)
 ;;=D86.89^^105^1443^48
 ;;^UTILITY(U,$J,358.3,35153,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35153,1,3,0)
 ;;=3^Sarcoidosis of Other Sites
 ;;^UTILITY(U,$J,358.3,35153,1,4,0)
 ;;=4^D86.89
 ;;^UTILITY(U,$J,358.3,35153,2)
 ;;=^5002453
 ;;^UTILITY(U,$J,358.3,35154,0)
 ;;=D86.9^^105^1443^51
 ;;^UTILITY(U,$J,358.3,35154,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35154,1,3,0)
 ;;=3^Sarcoidosis,Unspec
 ;;^UTILITY(U,$J,358.3,35154,1,4,0)
 ;;=4^D86.9
 ;;^UTILITY(U,$J,358.3,35154,2)
 ;;=^5002454
 ;;^UTILITY(U,$J,358.3,35155,0)
 ;;=D86.86^^105^1443^39
 ;;^UTILITY(U,$J,358.3,35155,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35155,1,3,0)
 ;;=3^Sarcoid Arthropathy
 ;;^UTILITY(U,$J,358.3,35155,1,4,0)
 ;;=4^D86.86
 ;;^UTILITY(U,$J,358.3,35155,2)
 ;;=^5002451
 ;;^UTILITY(U,$J,358.3,35156,0)
 ;;=D86.87^^105^1443^43
 ;;^UTILITY(U,$J,358.3,35156,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35156,1,3,0)
 ;;=3^Sarcoid Myositis
 ;;^UTILITY(U,$J,358.3,35156,1,4,0)
 ;;=4^D86.87
 ;;^UTILITY(U,$J,358.3,35156,2)
 ;;=^5002452
 ;;^UTILITY(U,$J,358.3,35157,0)
 ;;=D86.3^^105^1443^49
 ;;^UTILITY(U,$J,358.3,35157,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35157,1,3,0)
 ;;=3^Sarcoidosis of Skin
 ;;^UTILITY(U,$J,358.3,35157,1,4,0)
 ;;=4^D86.3
 ;;^UTILITY(U,$J,358.3,35157,2)
 ;;=^5002445
 ;;^UTILITY(U,$J,358.3,35158,0)
 ;;=D86.81^^105^1443^41
 ;;^UTILITY(U,$J,358.3,35158,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35158,1,3,0)
 ;;=3^Sarcoid Meningitis
 ;;^UTILITY(U,$J,358.3,35158,1,4,0)
 ;;=4^D86.81
 ;;^UTILITY(U,$J,358.3,35158,2)
 ;;=^5002446
 ;;^UTILITY(U,$J,358.3,35159,0)
 ;;=D86.82^^105^1443^50
 ;;^UTILITY(U,$J,358.3,35159,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35159,1,3,0)
 ;;=3^Sarcoidosis,Multiple Cranial Nerve Palsies
 ;;^UTILITY(U,$J,358.3,35159,1,4,0)
 ;;=4^D86.82
 ;;^UTILITY(U,$J,358.3,35159,2)
 ;;=^5002447
 ;;^UTILITY(U,$J,358.3,35160,0)
 ;;=D86.84^^105^1443^44
 ;;^UTILITY(U,$J,358.3,35160,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35160,1,3,0)
 ;;=3^Sarcoid Pyelonephritis
 ;;^UTILITY(U,$J,358.3,35160,1,4,0)
 ;;=4^D86.84
 ;;^UTILITY(U,$J,358.3,35160,2)
 ;;=^5002449
 ;;^UTILITY(U,$J,358.3,35161,0)
 ;;=D86.85^^105^1443^42
 ;;^UTILITY(U,$J,358.3,35161,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35161,1,3,0)
 ;;=3^Sarcoid Myocarditis
 ;;^UTILITY(U,$J,358.3,35161,1,4,0)
 ;;=4^D86.85
 ;;^UTILITY(U,$J,358.3,35161,2)
 ;;=^5002450
 ;;^UTILITY(U,$J,358.3,35162,0)
 ;;=D86.83^^105^1443^40
 ;;^UTILITY(U,$J,358.3,35162,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35162,1,3,0)
 ;;=3^Sarcoid Iridocyclitis
 ;;^UTILITY(U,$J,358.3,35162,1,4,0)
 ;;=4^D86.83
 ;;^UTILITY(U,$J,358.3,35162,2)
 ;;=^5002448
 ;;^UTILITY(U,$J,358.3,35163,0)
 ;;=D84.1^^105^1443^16
 ;;^UTILITY(U,$J,358.3,35163,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35163,1,3,0)
 ;;=3^Defects in Complement System
 ;;^UTILITY(U,$J,358.3,35163,1,4,0)
 ;;=4^D84.1
 ;;^UTILITY(U,$J,358.3,35163,2)
 ;;=^5002439
 ;;^UTILITY(U,$J,358.3,35164,0)
 ;;=D81.810^^105^1443^5
 ;;^UTILITY(U,$J,358.3,35164,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35164,1,3,0)
 ;;=3^Biotinidase Deficiency
 ;;^UTILITY(U,$J,358.3,35164,1,4,0)
 ;;=4^D81.810
 ;;^UTILITY(U,$J,358.3,35164,2)
 ;;=^5002422
 ;;^UTILITY(U,$J,358.3,35165,0)
 ;;=E88.01^^105^1443^2
 ;;^UTILITY(U,$J,358.3,35165,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35165,1,3,0)
 ;;=3^Apha-1 Antitrypsin Deficiency
 ;;^UTILITY(U,$J,358.3,35165,1,4,0)
 ;;=4^E88.01
 ;;^UTILITY(U,$J,358.3,35165,2)
 ;;=^331442
 ;;^UTILITY(U,$J,358.3,35166,0)
 ;;=J09.X1^^105^1443^25
 ;;^UTILITY(U,$J,358.3,35166,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35166,1,3,0)
 ;;=3^Influenza d/t Indent Novel Influenza A Virus w/ Pneumonia
 ;;^UTILITY(U,$J,358.3,35166,1,4,0)
 ;;=4^J09.X1
 ;;^UTILITY(U,$J,358.3,35166,2)
 ;;=^5008144
 ;;^UTILITY(U,$J,358.3,35167,0)
 ;;=J09.X2^^105^1443^26
 ;;^UTILITY(U,$J,358.3,35167,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35167,1,3,0)
 ;;=3^Influenza d/t Indent Novel Influenza A Virus w/ Resp Manifest
 ;;^UTILITY(U,$J,358.3,35167,1,4,0)
 ;;=4^J09.X2
 ;;^UTILITY(U,$J,358.3,35167,2)
 ;;=^5008145
 ;;^UTILITY(U,$J,358.3,35168,0)
 ;;=J09.X3^^105^1443^27
 ;;^UTILITY(U,$J,358.3,35168,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35168,1,3,0)
 ;;=3^Influenza d/t Indent Novel Influenza A Virus w/ GI Manifest
 ;;^UTILITY(U,$J,358.3,35168,1,4,0)
 ;;=4^J09.X3
 ;;^UTILITY(U,$J,358.3,35168,2)
 ;;=^5008146
 ;;^UTILITY(U,$J,358.3,35169,0)
 ;;=J09.X9^^105^1443^28
 ;;^UTILITY(U,$J,358.3,35169,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35169,1,3,0)
 ;;=3^Influenza d/t Indent Novel Influenza A Virus w/ Oth Manifest
 ;;^UTILITY(U,$J,358.3,35169,1,4,0)
 ;;=4^J09.X9
 ;;^UTILITY(U,$J,358.3,35169,2)
 ;;=^5008147
 ;;^UTILITY(U,$J,358.3,35170,0)
 ;;=J44.9^^105^1443^14
 ;;^UTILITY(U,$J,358.3,35170,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35170,1,3,0)
 ;;=3^COPD,Unspec
 ;;^UTILITY(U,$J,358.3,35170,1,4,0)
 ;;=4^J44.9
 ;;^UTILITY(U,$J,358.3,35170,2)
 ;;=^5008241
 ;;^UTILITY(U,$J,358.3,35171,0)
 ;;=J44.1^^105^1443^13
 ;;^UTILITY(U,$J,358.3,35171,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35171,1,3,0)
 ;;=3^COPD w/ Acute Exacerbation
 ;;^UTILITY(U,$J,358.3,35171,1,4,0)
 ;;=4^J44.1
 ;;^UTILITY(U,$J,358.3,35171,2)
 ;;=^5008240
 ;;^UTILITY(U,$J,358.3,35172,0)
 ;;=J42.^^105^1443^10
 ;;^UTILITY(U,$J,358.3,35172,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35172,1,3,0)
 ;;=3^Bronchitis,Unspec Chronic
 ;;^UTILITY(U,$J,358.3,35172,1,4,0)
 ;;=4^J42.
 ;;^UTILITY(U,$J,358.3,35172,2)
 ;;=^5008234
 ;;^UTILITY(U,$J,358.3,35173,0)
 ;;=J43.9^^105^1443^22
 ;;^UTILITY(U,$J,358.3,35173,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35173,1,3,0)
 ;;=3^Emphysema,Unspec
 ;;^UTILITY(U,$J,358.3,35173,1,4,0)
 ;;=4^J43.9
 ;;^UTILITY(U,$J,358.3,35173,2)
 ;;=^5008238
 ;;^UTILITY(U,$J,358.3,35174,0)
 ;;=J43.0^^105^1443^30
 ;;^UTILITY(U,$J,358.3,35174,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35174,1,3,0)
 ;;=3^MacLeod's Syndrome
 ;;^UTILITY(U,$J,358.3,35174,1,4,0)
 ;;=4^J43.0
 ;;^UTILITY(U,$J,358.3,35174,2)
 ;;=^5008235
 ;;^UTILITY(U,$J,358.3,35175,0)
 ;;=J43.1^^105^1443^21
 ;;^UTILITY(U,$J,358.3,35175,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35175,1,3,0)
 ;;=3^Emphysema,Panlobular
 ;;^UTILITY(U,$J,358.3,35175,1,4,0)
 ;;=4^J43.1
 ;;^UTILITY(U,$J,358.3,35175,2)
 ;;=^5008236
 ;;^UTILITY(U,$J,358.3,35176,0)
 ;;=J43.2^^105^1443^19
 ;;^UTILITY(U,$J,358.3,35176,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35176,1,3,0)
 ;;=3^Emphysema,Centrilobular
 ;;^UTILITY(U,$J,358.3,35176,1,4,0)
 ;;=4^J43.2
 ;;^UTILITY(U,$J,358.3,35176,2)
 ;;=^5008237
 ;;^UTILITY(U,$J,358.3,35177,0)
 ;;=J43.8^^105^1443^20
 ;;^UTILITY(U,$J,358.3,35177,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35177,1,3,0)
 ;;=3^Emphysema,Other
 ;;^UTILITY(U,$J,358.3,35177,1,4,0)
 ;;=4^J43.8
 ;;^UTILITY(U,$J,358.3,35177,2)
 ;;=^87569
 ;;^UTILITY(U,$J,358.3,35178,0)
 ;;=J45.902^^105^1443^4
 ;;^UTILITY(U,$J,358.3,35178,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35178,1,3,0)
 ;;=3^Asthma w/ Status Asthmaticus,Unspec
 ;;^UTILITY(U,$J,358.3,35178,1,4,0)
 ;;=4^J45.902
 ;;^UTILITY(U,$J,358.3,35178,2)
 ;;=^5008255
 ;;^UTILITY(U,$J,358.3,35179,0)
 ;;=J45.901^^105^1443^3
 ;;^UTILITY(U,$J,358.3,35179,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35179,1,3,0)
 ;;=3^Asthma w/ Acute Exacerbation,Unspec
 ;;^UTILITY(U,$J,358.3,35179,1,4,0)
 ;;=4^J45.901
 ;;^UTILITY(U,$J,358.3,35179,2)
 ;;=^5008254
 ;;^UTILITY(U,$J,358.3,35180,0)
 ;;=J47.9^^105^1443^9
 ;;^UTILITY(U,$J,358.3,35180,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35180,1,3,0)
 ;;=3^Bronchiectasis,Uncomplicated