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

IBDEI089.m

Go to the documentation of this file.
IBDEI089 ; ; 01-AUG-2022
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 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,20116,2)
 ;;=^267790
 ;;^UTILITY(U,$J,358.3,20117,0)
 ;;=E04.9^^65^817^28
 ;;^UTILITY(U,$J,358.3,20117,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20117,1,3,0)
 ;;=3^Goiter,Nontoxic,Unspec
 ;;^UTILITY(U,$J,358.3,20117,1,4,0)
 ;;=4^E04.9
 ;;^UTILITY(U,$J,358.3,20117,2)
 ;;=^5002480
 ;;^UTILITY(U,$J,358.3,20118,0)
 ;;=E11.9^^65^817^23
 ;;^UTILITY(U,$J,358.3,20118,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20118,1,3,0)
 ;;=3^DM2 w/o Complications
 ;;^UTILITY(U,$J,358.3,20118,1,4,0)
 ;;=4^E11.9
 ;;^UTILITY(U,$J,358.3,20118,2)
 ;;=^5002666
 ;;^UTILITY(U,$J,358.3,20119,0)
 ;;=E11.42^^65^817^22
 ;;^UTILITY(U,$J,358.3,20119,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20119,1,3,0)
 ;;=3^DM2 w/ Peripheral Neuropathy
 ;;^UTILITY(U,$J,358.3,20119,1,4,0)
 ;;=4^E11.42
 ;;^UTILITY(U,$J,358.3,20119,2)
 ;;=^5002646
 ;;^UTILITY(U,$J,358.3,20120,0)
 ;;=E11.51^^65^817^21
 ;;^UTILITY(U,$J,358.3,20120,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20120,1,3,0)
 ;;=3^DM2 w/ PAD/PVDS w/o Gangrene
 ;;^UTILITY(U,$J,358.3,20120,1,4,0)
 ;;=4^E11.51
 ;;^UTILITY(U,$J,358.3,20120,2)
 ;;=^5002650
 ;;^UTILITY(U,$J,358.3,20121,0)
 ;;=E11.52^^65^817^20
 ;;^UTILITY(U,$J,358.3,20121,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20121,1,3,0)
 ;;=3^DM2 w/ PAD/PVDS w/ Gangrene
 ;;^UTILITY(U,$J,358.3,20121,1,4,0)
 ;;=4^E11.52
 ;;^UTILITY(U,$J,358.3,20121,2)
 ;;=^5002651
 ;;^UTILITY(U,$J,358.3,20122,0)
 ;;=E11.22^^65^817^13
 ;;^UTILITY(U,$J,358.3,20122,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20122,1,3,0)
 ;;=3^DM2 w/ CKD
 ;;^UTILITY(U,$J,358.3,20122,1,4,0)
 ;;=4^E11.22
 ;;^UTILITY(U,$J,358.3,20122,2)
 ;;=^5002630
 ;;^UTILITY(U,$J,358.3,20123,0)
 ;;=E11.69^^65^817^17
 ;;^UTILITY(U,$J,358.3,20123,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20123,1,3,0)
 ;;=3^DM2 w/ Osteomyelitis
 ;;^UTILITY(U,$J,358.3,20123,1,4,0)
 ;;=4^E11.69
 ;;^UTILITY(U,$J,358.3,20123,2)
 ;;=^5002664
 ;;^UTILITY(U,$J,358.3,20124,0)
 ;;=E11.610^^65^817^16
 ;;^UTILITY(U,$J,358.3,20124,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20124,1,3,0)
 ;;=3^DM2 w/ Neuropathic Arthropathy
 ;;^UTILITY(U,$J,358.3,20124,1,4,0)
 ;;=4^E11.610
 ;;^UTILITY(U,$J,358.3,20124,2)
 ;;=^5002653
 ;;^UTILITY(U,$J,358.3,20125,0)
 ;;=E11.618^^65^817^18
 ;;^UTILITY(U,$J,358.3,20125,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20125,1,3,0)
 ;;=3^DM2 w/ Oth Diabetic Arthropathy
 ;;^UTILITY(U,$J,358.3,20125,1,4,0)
 ;;=4^E11.618
 ;;^UTILITY(U,$J,358.3,20125,2)
 ;;=^5002654
 ;;^UTILITY(U,$J,358.3,20126,0)
 ;;=E11.621^^65^817^14
 ;;^UTILITY(U,$J,358.3,20126,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20126,1,3,0)
 ;;=3^DM2 w/ Foot Ulcer
 ;;^UTILITY(U,$J,358.3,20126,1,4,0)
 ;;=4^E11.621
 ;;^UTILITY(U,$J,358.3,20126,2)
 ;;=^5002656
 ;;^UTILITY(U,$J,358.3,20127,0)
 ;;=E11.620^^65^817^11
 ;;^UTILITY(U,$J,358.3,20127,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20127,1,3,0)
 ;;=3^DM2 Dermatitis
 ;;^UTILITY(U,$J,358.3,20127,1,4,0)
 ;;=4^E11.620
 ;;^UTILITY(U,$J,358.3,20127,2)
 ;;=^5002655
 ;;^UTILITY(U,$J,358.3,20128,0)
 ;;=E11.65^^65^817^15
 ;;^UTILITY(U,$J,358.3,20128,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20128,1,3,0)
 ;;=3^DM2 w/ Hyperglycemia
 ;;^UTILITY(U,$J,358.3,20128,1,4,0)
 ;;=4^E11.65
 ;;^UTILITY(U,$J,358.3,20128,2)
 ;;=^5002663
 ;;^UTILITY(U,$J,358.3,20129,0)
 ;;=E43.^^65^817^32
 ;;^UTILITY(U,$J,358.3,20129,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20129,1,3,0)
 ;;=3^Malnutrition,Severe Protein-Calorie
 ;;^UTILITY(U,$J,358.3,20129,1,4,0)
 ;;=4^E43.
 ;;^UTILITY(U,$J,358.3,20129,2)
 ;;=^5002786
 ;;^UTILITY(U,$J,358.3,20130,0)
 ;;=E44.0^^65^817^31
 ;;^UTILITY(U,$J,358.3,20130,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20130,1,3,0)
 ;;=3^Malnutrition,Moderate Protein-Calorie
 ;;^UTILITY(U,$J,358.3,20130,1,4,0)
 ;;=4^E44.0
 ;;^UTILITY(U,$J,358.3,20130,2)
 ;;=^5002787
 ;;^UTILITY(U,$J,358.3,20131,0)
 ;;=E44.1^^65^817^30
 ;;^UTILITY(U,$J,358.3,20131,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20131,1,3,0)
 ;;=3^Malnutrition,Mild Protein-Calorie
 ;;^UTILITY(U,$J,358.3,20131,1,4,0)
 ;;=4^E44.1
 ;;^UTILITY(U,$J,358.3,20131,2)
 ;;=^5002788
 ;;^UTILITY(U,$J,358.3,20132,0)
 ;;=E66.01^^65^817^34
 ;;^UTILITY(U,$J,358.3,20132,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20132,1,3,0)
 ;;=3^Obesity,Morbid
 ;;^UTILITY(U,$J,358.3,20132,1,4,0)
 ;;=4^E66.01
 ;;^UTILITY(U,$J,358.3,20132,2)
 ;;=^5002826
 ;;^UTILITY(U,$J,358.3,20133,0)
 ;;=E66.2^^65^817^35
 ;;^UTILITY(U,$J,358.3,20133,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20133,1,3,0)
 ;;=3^Obesity,Morbid w/ Alveolar Hypoventilation (OHS)
 ;;^UTILITY(U,$J,358.3,20133,1,4,0)
 ;;=4^E66.2
 ;;^UTILITY(U,$J,358.3,20133,2)
 ;;=^5002829
 ;;^UTILITY(U,$J,358.3,20134,0)
 ;;=E66.9^^65^817^36
 ;;^UTILITY(U,$J,358.3,20134,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20134,1,3,0)
 ;;=3^Obesity,Unspec
 ;;^UTILITY(U,$J,358.3,20134,1,4,0)
 ;;=4^E66.9
 ;;^UTILITY(U,$J,358.3,20134,2)
 ;;=^5002832
 ;;^UTILITY(U,$J,358.3,20135,0)
 ;;=Z68.1^^65^817^7
 ;;^UTILITY(U,$J,358.3,20135,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20135,1,3,0)
 ;;=3^BMI 19.9 or less
 ;;^UTILITY(U,$J,358.3,20135,1,4,0)
 ;;=4^Z68.1
 ;;^UTILITY(U,$J,358.3,20135,2)
 ;;=^5063198
 ;;^UTILITY(U,$J,358.3,20136,0)
 ;;=Z68.41^^65^817^8
 ;;^UTILITY(U,$J,358.3,20136,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20136,1,3,0)
 ;;=3^BMI 40.0-44.9
 ;;^UTILITY(U,$J,358.3,20136,1,4,0)
 ;;=4^Z68.41
 ;;^UTILITY(U,$J,358.3,20136,2)
 ;;=^5063219
 ;;^UTILITY(U,$J,358.3,20137,0)
 ;;=Z68.42^^65^817^9
 ;;^UTILITY(U,$J,358.3,20137,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20137,1,3,0)
 ;;=3^BMI 45.0-49.9
 ;;^UTILITY(U,$J,358.3,20137,1,4,0)
 ;;=4^Z68.42
 ;;^UTILITY(U,$J,358.3,20137,2)
 ;;=^5063220
 ;;^UTILITY(U,$J,358.3,20138,0)
 ;;=Z68.43^^65^817^10
 ;;^UTILITY(U,$J,358.3,20138,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20138,1,3,0)
 ;;=3^BMI 50.0-59.9
 ;;^UTILITY(U,$J,358.3,20138,1,4,0)
 ;;=4^Z68.43
 ;;^UTILITY(U,$J,358.3,20138,2)
 ;;=^5063221
 ;;^UTILITY(U,$J,358.3,20139,0)
 ;;=E11.622^^65^817^19
 ;;^UTILITY(U,$J,358.3,20139,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20139,1,3,0)
 ;;=3^DM2 w/ Other Skin Ulcer
 ;;^UTILITY(U,$J,358.3,20139,1,4,0)
 ;;=4^E11.622
 ;;^UTILITY(U,$J,358.3,20139,2)
 ;;=^5002657
 ;;^UTILITY(U,$J,358.3,20140,0)
 ;;=E11.43^^65^817^12
 ;;^UTILITY(U,$J,358.3,20140,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20140,1,3,0)
 ;;=3^DM2 w/ Autonomic Neuropathy
 ;;^UTILITY(U,$J,358.3,20140,1,4,0)
 ;;=4^E11.43
 ;;^UTILITY(U,$J,358.3,20140,2)
 ;;=^5002647
 ;;^UTILITY(U,$J,358.3,20141,0)
 ;;=E46.^^65^817^33
 ;;^UTILITY(U,$J,358.3,20141,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20141,1,3,0)
 ;;=3^Malnutrition,Unspec Severity
 ;;^UTILITY(U,$J,358.3,20141,1,4,0)
 ;;=4^E46.
 ;;^UTILITY(U,$J,358.3,20141,2)
 ;;=^5002790
 ;;^UTILITY(U,$J,358.3,20142,0)
 ;;=Z56.0^^65^818^24
 ;;^UTILITY(U,$J,358.3,20142,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20142,1,3,0)
 ;;=3^Unemployment,Unspec
 ;;^UTILITY(U,$J,358.3,20142,1,4,0)
 ;;=4^Z56.0
 ;;^UTILITY(U,$J,358.3,20142,2)
 ;;=^5063107
 ;;^UTILITY(U,$J,358.3,20143,0)
 ;;=Z56.3^^65^818^23
 ;;^UTILITY(U,$J,358.3,20143,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20143,1,3,0)
 ;;=3^Stressful Work Schedule
 ;;^UTILITY(U,$J,358.3,20143,1,4,0)
 ;;=4^Z56.3
 ;;^UTILITY(U,$J,358.3,20143,2)
 ;;=^5063110
 ;;^UTILITY(U,$J,358.3,20144,0)
 ;;=Z56.5^^65^818^3
 ;;^UTILITY(U,$J,358.3,20144,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20144,1,3,0)
 ;;=3^Difficult Work Conditions
 ;;^UTILITY(U,$J,358.3,20144,1,4,0)
 ;;=4^Z56.5
 ;;^UTILITY(U,$J,358.3,20144,2)
 ;;=^5063112
 ;;^UTILITY(U,$J,358.3,20145,0)
 ;;=Z56.89^^65^818^20
 ;;^UTILITY(U,$J,358.3,20145,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20145,1,3,0)
 ;;=3^Problems Related to Employment,Other
 ;;^UTILITY(U,$J,358.3,20145,1,4,0)
 ;;=4^Z56.89
 ;;^UTILITY(U,$J,358.3,20145,2)
 ;;=^5063116
 ;;^UTILITY(U,$J,358.3,20146,0)
 ;;=Z56.6^^65^818^19
 ;;^UTILITY(U,$J,358.3,20146,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20146,1,3,0)
 ;;=3^Physical & Mental Strain Related to Work,Other
 ;;^UTILITY(U,$J,358.3,20146,1,4,0)
 ;;=4^Z56.6
 ;;^UTILITY(U,$J,358.3,20146,2)
 ;;=^5063113
 ;;^UTILITY(U,$J,358.3,20147,0)
 ;;=Z57.0^^65^818^16
 ;;^UTILITY(U,$J,358.3,20147,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20147,1,3,0)
 ;;=3^Occupational Exposure to Noise
 ;;^UTILITY(U,$J,358.3,20147,1,4,0)
 ;;=4^Z57.0
 ;;^UTILITY(U,$J,358.3,20147,2)
 ;;=^5063118
 ;;^UTILITY(U,$J,358.3,20148,0)
 ;;=Z57.6^^65^818^15
 ;;^UTILITY(U,$J,358.3,20148,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20148,1,3,0)
 ;;=3^Occupational Exposure to Extreme Temperature
 ;;^UTILITY(U,$J,358.3,20148,1,4,0)
 ;;=4^Z57.6
 ;;^UTILITY(U,$J,358.3,20148,2)
 ;;=^5063125
 ;;^UTILITY(U,$J,358.3,20149,0)
 ;;=Z57.7^^65^818^18
 ;;^UTILITY(U,$J,358.3,20149,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20149,1,3,0)
 ;;=3^Occupational Exposure to Vibration
 ;;^UTILITY(U,$J,358.3,20149,1,4,0)
 ;;=4^Z57.7
 ;;^UTILITY(U,$J,358.3,20149,2)
 ;;=^5063126
 ;;^UTILITY(U,$J,358.3,20150,0)
 ;;=Z57.8^^65^818^17
 ;;^UTILITY(U,$J,358.3,20150,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20150,1,3,0)
 ;;=3^Occupational Exposure to Oth Risk Factors
 ;;^UTILITY(U,$J,358.3,20150,1,4,0)
 ;;=4^Z57.8
 ;;^UTILITY(U,$J,358.3,20150,2)
 ;;=^5063127
 ;;^UTILITY(U,$J,358.3,20151,0)
 ;;=Z59.01^^65^818^8
 ;;^UTILITY(U,$J,358.3,20151,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20151,1,3,0)
 ;;=3^Homelessness,Sheltered (Shelter/Motel/Transitional)
 ;;^UTILITY(U,$J,358.3,20151,1,4,0)
 ;;=4^Z59.01
 ;;^UTILITY(U,$J,358.3,20151,2)
 ;;=^5161305
 ;;^UTILITY(U,$J,358.3,20152,0)
 ;;=Z59.02^^65^818^9
 ;;^UTILITY(U,$J,358.3,20152,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20152,1,3,0)
 ;;=3^Homelessness,Unsheltered (Car/Park/Street)
 ;;^UTILITY(U,$J,358.3,20152,1,4,0)
 ;;=4^Z59.02
 ;;^UTILITY(U,$J,358.3,20152,2)
 ;;=^5161306
 ;;^UTILITY(U,$J,358.3,20153,0)
 ;;=Z59.00^^65^818^10
 ;;^UTILITY(U,$J,358.3,20153,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20153,1,3,0)
 ;;=3^Homelessness,Unspec
 ;;^UTILITY(U,$J,358.3,20153,1,4,0)
 ;;=4^Z59.00
 ;;^UTILITY(U,$J,358.3,20153,2)
 ;;=^5161304
 ;;^UTILITY(U,$J,358.3,20154,0)
 ;;=Z59.1^^65^818^13
 ;;^UTILITY(U,$J,358.3,20154,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20154,1,3,0)
 ;;=3^Inadequate Housing (Heating/Defects,etc.)
 ;;^UTILITY(U,$J,358.3,20154,1,4,0)
 ;;=4^Z59.1
 ;;^UTILITY(U,$J,358.3,20154,2)
 ;;=^5063130
 ;;^UTILITY(U,$J,358.3,20155,0)
 ;;=Z59.41^^65^818^7
 ;;^UTILITY(U,$J,358.3,20155,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20155,1,3,0)
 ;;=3^Food Insecurity
 ;;^UTILITY(U,$J,358.3,20155,1,4,0)
 ;;=4^Z59.41
 ;;^UTILITY(U,$J,358.3,20155,2)
 ;;=^5161307
 ;;^UTILITY(U,$J,358.3,20156,0)
 ;;=Z59.6^^65^818^14
 ;;^UTILITY(U,$J,358.3,20156,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20156,1,3,0)
 ;;=3^Low Income
 ;;^UTILITY(U,$J,358.3,20156,1,4,0)
 ;;=4^Z59.6
 ;;^UTILITY(U,$J,358.3,20156,2)
 ;;=^5063135
 ;;^UTILITY(U,$J,358.3,20157,0)
 ;;=Z59.811^^65^818^12
 ;;^UTILITY(U,$J,358.3,20157,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20157,1,3,0)
 ;;=3^Housing Instability,Imminent Risk of Homelessness
 ;;^UTILITY(U,$J,358.3,20157,1,4,0)
 ;;=4^Z59.811
 ;;^UTILITY(U,$J,358.3,20157,2)
 ;;=^5161309
 ;;^UTILITY(U,$J,358.3,20158,0)
 ;;=Z59.812^^65^818^11
 ;;^UTILITY(U,$J,358.3,20158,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20158,1,3,0)
 ;;=3^Housing Instability,Homelessness in Past 12 Months
 ;;^UTILITY(U,$J,358.3,20158,1,4,0)
 ;;=4^Z59.812
 ;;^UTILITY(U,$J,358.3,20158,2)
 ;;=^5161310
 ;;^UTILITY(U,$J,358.3,20159,0)
 ;;=Z63.0^^65^818^22
 ;;^UTILITY(U,$J,358.3,20159,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20159,1,3,0)
 ;;=3^Problems w/ Spouse or Partner
 ;;^UTILITY(U,$J,358.3,20159,1,4,0)
 ;;=4^Z63.0
 ;;^UTILITY(U,$J,358.3,20159,2)
 ;;=^5063164
 ;;^UTILITY(U,$J,358.3,20160,0)
 ;;=Z63.4^^65^818^2
 ;;^UTILITY(U,$J,358.3,20160,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20160,1,3,0)
 ;;=3^Bereavement
 ;;^UTILITY(U,$J,358.3,20160,1,4,0)
 ;;=4^Z63.4
 ;;^UTILITY(U,$J,358.3,20160,2)
 ;;=^5063168
 ;;^UTILITY(U,$J,358.3,20161,0)
 ;;=Z63.5^^65^818^4
 ;;^UTILITY(U,$J,358.3,20161,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20161,1,3,0)
 ;;=3^Disruption of Family by Separation/Divorce
 ;;^UTILITY(U,$J,358.3,20161,1,4,0)
 ;;=4^Z63.5
 ;;^UTILITY(U,$J,358.3,20161,2)
 ;;=^5063169
 ;;^UTILITY(U,$J,358.3,20162,0)
 ;;=Z63.72^^65^818^1
 ;;^UTILITY(U,$J,358.3,20162,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20162,1,3,0)
 ;;=3^Alcoholism/Drug Addiction in Family
 ;;^UTILITY(U,$J,358.3,20162,1,4,0)
 ;;=4^Z63.72
 ;;^UTILITY(U,$J,358.3,20162,2)
 ;;=^5063172
 ;;^UTILITY(U,$J,358.3,20163,0)
 ;;=Z63.8^^65^818^6
 ;;^UTILITY(U,$J,358.3,20163,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20163,1,3,0)
 ;;=3^Family Discord
 ;;^UTILITY(U,$J,358.3,20163,1,4,0)
 ;;=4^Z63.8
 ;;^UTILITY(U,$J,358.3,20163,2)
 ;;=^5063174
 ;;^UTILITY(U,$J,358.3,20164,0)
 ;;=Z65.3^^65^818^21
 ;;^UTILITY(U,$J,358.3,20164,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20164,1,3,0)
 ;;=3^Problems Related to Legal Circumstances
 ;;^UTILITY(U,$J,358.3,20164,1,4,0)
 ;;=4^Z65.3
 ;;^UTILITY(U,$J,358.3,20164,2)
 ;;=^5063182
 ;;^UTILITY(U,$J,358.3,20165,0)
 ;;=Z65.4^^65^818^25
 ;;^UTILITY(U,$J,358.3,20165,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20165,1,3,0)
 ;;=3^Victim of Crime/Terrorism
 ;;^UTILITY(U,$J,358.3,20165,1,4,0)
 ;;=4^Z65.4
 ;;^UTILITY(U,$J,358.3,20165,2)
 ;;=^5063183
 ;;^UTILITY(U,$J,358.3,20166,0)
 ;;=Z65.5^^65^818^5
 ;;^UTILITY(U,$J,358.3,20166,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20166,1,3,0)
 ;;=3^Exposure to Disaster/War/Oth Hostilities
 ;;^UTILITY(U,$J,358.3,20166,1,4,0)
 ;;=4^Z65.5
 ;;^UTILITY(U,$J,358.3,20166,2)
 ;;=^5063184
 ;;^UTILITY(U,$J,358.3,20167,0)
 ;;=99212^^66^819^2
 ;;^UTILITY(U,$J,358.3,20167,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20167,1,1,0)
 ;;=1^SF MDM or 10-19 mins
 ;;^UTILITY(U,$J,358.3,20167,1,2,0)
 ;;=2^99212
 ;;^UTILITY(U,$J,358.3,20168,0)
 ;;=99213^^66^819^3
 ;;^UTILITY(U,$J,358.3,20168,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20168,1,1,0)
 ;;=1^Low MDM or 20-29 mins
 ;;^UTILITY(U,$J,358.3,20168,1,2,0)
 ;;=2^99213
 ;;^UTILITY(U,$J,358.3,20169,0)
 ;;=99214^^66^819^4
 ;;^UTILITY(U,$J,358.3,20169,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20169,1,1,0)
 ;;=1^Moderate MDM or 30-39 mins
 ;;^UTILITY(U,$J,358.3,20169,1,2,0)
 ;;=2^99214
 ;;^UTILITY(U,$J,358.3,20170,0)
 ;;=99215^^66^819^5
 ;;^UTILITY(U,$J,358.3,20170,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20170,1,1,0)
 ;;=1^High MDM or 40-54 mins
 ;;^UTILITY(U,$J,358.3,20170,1,2,0)
 ;;=2^99215
 ;;^UTILITY(U,$J,358.3,20171,0)
 ;;=99211^^66^819^1
 ;;^UTILITY(U,$J,358.3,20171,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20171,1,1,0)
 ;;=1^Brief Visit-MDM None/Minimal
 ;;^UTILITY(U,$J,358.3,20171,1,2,0)
 ;;=2^99211
 ;;^UTILITY(U,$J,358.3,20172,0)
 ;;=99202^^66^820^1
 ;;^UTILITY(U,$J,358.3,20172,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20172,1,1,0)
 ;;=1^SF MDM or 15-29 mins
 ;;^UTILITY(U,$J,358.3,20172,1,2,0)
 ;;=2^99202
 ;;^UTILITY(U,$J,358.3,20173,0)
 ;;=99203^^66^820^2
 ;;^UTILITY(U,$J,358.3,20173,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20173,1,1,0)
 ;;=1^Low MDM or 30-44 mins
 ;;^UTILITY(U,$J,358.3,20173,1,2,0)
 ;;=2^99203
 ;;^UTILITY(U,$J,358.3,20174,0)
 ;;=99204^^66^820^3
 ;;^UTILITY(U,$J,358.3,20174,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20174,1,1,0)
 ;;=1^Moderate MDM or 45-59 mins
 ;;^UTILITY(U,$J,358.3,20174,1,2,0)
 ;;=2^99204
 ;;^UTILITY(U,$J,358.3,20175,0)
 ;;=99205^^66^820^4
 ;;^UTILITY(U,$J,358.3,20175,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20175,1,1,0)
 ;;=1^High MDM or 60-74 mins
 ;;^UTILITY(U,$J,358.3,20175,1,2,0)
 ;;=2^99205
 ;;^UTILITY(U,$J,358.3,20176,0)
 ;;=99241^^66^821^1
 ;;^UTILITY(U,$J,358.3,20176,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20176,1,1,0)
 ;;=1^Problem Focused Hx/PE & SF MDM
 ;;^UTILITY(U,$J,358.3,20176,1,2,0)
 ;;=2^99241
 ;;^UTILITY(U,$J,358.3,20177,0)
 ;;=99242^^66^821^2
 ;;^UTILITY(U,$J,358.3,20177,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20177,1,1,0)
 ;;=1^Exp Problem Focused Hx/PE & SF MDM
 ;;^UTILITY(U,$J,358.3,20177,1,2,0)
 ;;=2^99242
 ;;^UTILITY(U,$J,358.3,20178,0)
 ;;=99243^^66^821^3
 ;;^UTILITY(U,$J,358.3,20178,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20178,1,1,0)
 ;;=1^Detailed Hx/PE & Low Complex MDM
 ;;^UTILITY(U,$J,358.3,20178,1,2,0)
 ;;=2^99243
 ;;^UTILITY(U,$J,358.3,20179,0)
 ;;=99244^^66^821^4
 ;;^UTILITY(U,$J,358.3,20179,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20179,1,1,0)
 ;;=1^Comprehensive Hx/PE & Moderate Complex MDM
 ;;^UTILITY(U,$J,358.3,20179,1,2,0)
 ;;=2^99244
 ;;^UTILITY(U,$J,358.3,20180,0)
 ;;=99245^^66^821^5
 ;;^UTILITY(U,$J,358.3,20180,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20180,1,1,0)
 ;;=1^Comprehensive Hx/PE & High Complex MDM
 ;;^UTILITY(U,$J,358.3,20180,1,2,0)
 ;;=2^99245
 ;;^UTILITY(U,$J,358.3,20181,0)
 ;;=20600^^67^822^3^^^^1
 ;;^UTILITY(U,$J,358.3,20181,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20181,1,2,0)
 ;;=2^Asp/Inj Small Joint/Bursa
 ;;^UTILITY(U,$J,358.3,20181,1,3,0)
 ;;=3^20600
 ;;^UTILITY(U,$J,358.3,20182,0)
 ;;=20605^^67^822^1^^^^1
 ;;^UTILITY(U,$J,358.3,20182,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20182,1,2,0)
 ;;=2^Asp/Inj Interm Jt(Ac/Wrist/Ankle
 ;;^UTILITY(U,$J,358.3,20182,1,3,0)
 ;;=3^20605
 ;;^UTILITY(U,$J,358.3,20183,0)
 ;;=20610^^67^822^2^^^^1
 ;;^UTILITY(U,$J,358.3,20183,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20183,1,2,0)
 ;;=2^Asp/Inj Maj Jt (Should/Hip/Knee
 ;;^UTILITY(U,$J,358.3,20183,1,3,0)
 ;;=3^20610
 ;;^UTILITY(U,$J,358.3,20184,0)
 ;;=20550^^67^822^6^^^^1
 ;;^UTILITY(U,$J,358.3,20184,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20184,1,2,0)
 ;;=2^Inject Tendon/Ligament/Cyst 
 ;;^UTILITY(U,$J,358.3,20184,1,3,0)
 ;;=3^20550
 ;;^UTILITY(U,$J,358.3,20185,0)
 ;;=J1100^^67^822^5^^^^1
 ;;^UTILITY(U,$J,358.3,20185,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20185,1,2,0)
 ;;=2^Dexamethasone Sodium Phos 1 mg
 ;;^UTILITY(U,$J,358.3,20185,1,3,0)
 ;;=3^J1100
 ;;^UTILITY(U,$J,358.3,20186,0)
 ;;=J0800^^67^822^4^^^^1
 ;;^UTILITY(U,$J,358.3,20186,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20186,1,2,0)
 ;;=2^Corticotropin Inj up to 40 units
 ;;^UTILITY(U,$J,358.3,20186,1,3,0)
 ;;=3^J0800
 ;;^UTILITY(U,$J,358.3,20187,0)
 ;;=J1040^^67^822^8^^^^1
 ;;^UTILITY(U,$J,358.3,20187,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20187,1,2,0)
 ;;=2^Methylprednisolone 80 Mg Inj
 ;;^UTILITY(U,$J,358.3,20187,1,3,0)
 ;;=3^J1040
 ;;^UTILITY(U,$J,358.3,20188,0)
 ;;=20552^^67^822^9^^^^1
 ;;^UTILITY(U,$J,358.3,20188,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20188,1,2,0)
 ;;=2^Trigger Point(s) Inj,1-2 Muscles
 ;;^UTILITY(U,$J,358.3,20188,1,3,0)
 ;;=3^20552
 ;;^UTILITY(U,$J,358.3,20189,0)
 ;;=20553^^67^822^10^^^^1
 ;;^UTILITY(U,$J,358.3,20189,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20189,1,2,0)
 ;;=2^Trigger Point(s) Inj,=/> 3 Muscles
 ;;^UTILITY(U,$J,358.3,20189,1,3,0)
 ;;=3^20553
 ;;^UTILITY(U,$J,358.3,20190,0)
 ;;=J0588^^67^822^11^^^^1
 ;;^UTILITY(U,$J,358.3,20190,1,0)
 ;;=^358.31IA^3^2