IBDEI0D9 ; ; 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,33258,1,3,0)
;;=3^Liver transplant complications, other
;;^UTILITY(U,$J,358.3,33258,1,4,0)
;;=4^T86.49
;;^UTILITY(U,$J,358.3,33258,2)
;;=^5055728
;;^UTILITY(U,$J,358.3,33259,0)
;;=T86.5^^102^1384^16
;;^UTILITY(U,$J,358.3,33259,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33259,1,3,0)
;;=3^Complications of stem cell transplant
;;^UTILITY(U,$J,358.3,33259,1,4,0)
;;=4^T86.5
;;^UTILITY(U,$J,358.3,33259,2)
;;=^5055729
;;^UTILITY(U,$J,358.3,33260,0)
;;=T86.810^^102^1384^50
;;^UTILITY(U,$J,358.3,33260,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33260,1,3,0)
;;=3^Lung transplant rejection
;;^UTILITY(U,$J,358.3,33260,1,4,0)
;;=4^T86.810
;;^UTILITY(U,$J,358.3,33260,2)
;;=^5055730
;;^UTILITY(U,$J,358.3,33261,0)
;;=T86.811^^102^1384^48
;;^UTILITY(U,$J,358.3,33261,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33261,1,3,0)
;;=3^Lung transplant failure
;;^UTILITY(U,$J,358.3,33261,1,4,0)
;;=4^T86.811
;;^UTILITY(U,$J,358.3,33261,2)
;;=^5055731
;;^UTILITY(U,$J,358.3,33262,0)
;;=T86.812^^102^1384^49
;;^UTILITY(U,$J,358.3,33262,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33262,1,3,0)
;;=3^Lung transplant infection
;;^UTILITY(U,$J,358.3,33262,1,4,0)
;;=4^T86.812
;;^UTILITY(U,$J,358.3,33262,2)
;;=^5055732
;;^UTILITY(U,$J,358.3,33263,0)
;;=T86.818^^102^1384^47
;;^UTILITY(U,$J,358.3,33263,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33263,1,3,0)
;;=3^Lung transplant complications, other
;;^UTILITY(U,$J,358.3,33263,1,4,0)
;;=4^T86.818
;;^UTILITY(U,$J,358.3,33263,2)
;;=^5055733
;;^UTILITY(U,$J,358.3,33264,0)
;;=T86.890^^102^1384^60
;;^UTILITY(U,$J,358.3,33264,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33264,1,3,0)
;;=3^Tissue transplant rejection, other
;;^UTILITY(U,$J,358.3,33264,1,4,0)
;;=4^T86.890
;;^UTILITY(U,$J,358.3,33264,2)
;;=^5055754
;;^UTILITY(U,$J,358.3,33265,0)
;;=T86.891^^102^1384^58
;;^UTILITY(U,$J,358.3,33265,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33265,1,3,0)
;;=3^Tissue transplant failure, other
;;^UTILITY(U,$J,358.3,33265,1,4,0)
;;=4^T86.891
;;^UTILITY(U,$J,358.3,33265,2)
;;=^5055755
;;^UTILITY(U,$J,358.3,33266,0)
;;=T86.892^^102^1384^59
;;^UTILITY(U,$J,358.3,33266,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33266,1,3,0)
;;=3^Tissue transplant infection, other
;;^UTILITY(U,$J,358.3,33266,1,4,0)
;;=4^T86.892
;;^UTILITY(U,$J,358.3,33266,2)
;;=^5055756
;;^UTILITY(U,$J,358.3,33267,0)
;;=T86.898^^102^1384^57
;;^UTILITY(U,$J,358.3,33267,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33267,1,3,0)
;;=3^Tissue transplant complications, other
;;^UTILITY(U,$J,358.3,33267,1,4,0)
;;=4^T86.898
;;^UTILITY(U,$J,358.3,33267,2)
;;=^5055757
;;^UTILITY(U,$J,358.3,33268,0)
;;=D89.810^^102^1384^1
;;^UTILITY(U,$J,358.3,33268,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33268,1,3,0)
;;=3^Acute graft-versus-host disease
;;^UTILITY(U,$J,358.3,33268,1,4,0)
;;=4^D89.810
;;^UTILITY(U,$J,358.3,33268,2)
;;=^336539
;;^UTILITY(U,$J,358.3,33269,0)
;;=D89.811^^102^1384^13
;;^UTILITY(U,$J,358.3,33269,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33269,1,3,0)
;;=3^Chronic graft-versus-host disease
;;^UTILITY(U,$J,358.3,33269,1,4,0)
;;=4^D89.811
;;^UTILITY(U,$J,358.3,33269,2)
;;=^336540
;;^UTILITY(U,$J,358.3,33270,0)
;;=D89.812^^102^1384^2
;;^UTILITY(U,$J,358.3,33270,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33270,1,3,0)
;;=3^Acute on chronic graft-versus-host disease
;;^UTILITY(U,$J,358.3,33270,1,4,0)
;;=4^D89.812
;;^UTILITY(U,$J,358.3,33270,2)
;;=^336541
;;^UTILITY(U,$J,358.3,33271,0)
;;=C80.2^^102^1384^51
;;^UTILITY(U,$J,358.3,33271,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33271,1,3,0)
;;=3^Malignant neoplasm associated with transplanted organ
;;^UTILITY(U,$J,358.3,33271,1,4,0)
;;=4^C80.2
;;^UTILITY(U,$J,358.3,33271,2)
;;=^5001390
;;^UTILITY(U,$J,358.3,33272,0)
;;=Z91.11^^102^1384^53
;;^UTILITY(U,$J,358.3,33272,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33272,1,3,0)
;;=3^Patient's noncompliance with dietary regimen
;;^UTILITY(U,$J,358.3,33272,1,4,0)
;;=4^Z91.11
;;^UTILITY(U,$J,358.3,33272,2)
;;=^5063611
;;^UTILITY(U,$J,358.3,33273,0)
;;=Z91.15^^102^1384^54
;;^UTILITY(U,$J,358.3,33273,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33273,1,3,0)
;;=3^Patient's noncompliance with renal dialysis
;;^UTILITY(U,$J,358.3,33273,1,4,0)
;;=4^Z91.15
;;^UTILITY(U,$J,358.3,33273,2)
;;=^5063617
;;^UTILITY(U,$J,358.3,33274,0)
;;=Z91.14^^102^1384^55
;;^UTILITY(U,$J,358.3,33274,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33274,1,3,0)
;;=3^Patient's other noncompliance with medication regimen
;;^UTILITY(U,$J,358.3,33274,1,4,0)
;;=4^Z91.14
;;^UTILITY(U,$J,358.3,33274,2)
;;=^5063616
;;^UTILITY(U,$J,358.3,33275,0)
;;=T81.41XA^^102^1384^38
;;^UTILITY(U,$J,358.3,33275,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33275,1,3,0)
;;=3^Infection following proced,superfic incis surg site,init encntr
;;^UTILITY(U,$J,358.3,33275,1,4,0)
;;=4^T81.41XA
;;^UTILITY(U,$J,358.3,33275,2)
;;=^5157587
;;^UTILITY(U,$J,358.3,33276,0)
;;=T81.89XD^^102^1384^15
;;^UTILITY(U,$J,358.3,33276,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33276,1,3,0)
;;=3^Complications of Procedure,NEC,Subsq
;;^UTILITY(U,$J,358.3,33276,1,4,0)
;;=4^T81.89XD
;;^UTILITY(U,$J,358.3,33276,2)
;;=^5054663
;;^UTILITY(U,$J,358.3,33277,0)
;;=T81.41XD^^102^1384^37
;;^UTILITY(U,$J,358.3,33277,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33277,1,3,0)
;;=3^Infection following proced,Incis Surg Site,Subsq
;;^UTILITY(U,$J,358.3,33277,1,4,0)
;;=4^T81.41XD
;;^UTILITY(U,$J,358.3,33277,2)
;;=^5157588
;;^UTILITY(U,$J,358.3,33278,0)
;;=Z52.011^^102^1385^1
;;^UTILITY(U,$J,358.3,33278,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33278,1,3,0)
;;=3^Autologous donor, stem cells
;;^UTILITY(U,$J,358.3,33278,1,4,0)
;;=4^Z52.011
;;^UTILITY(U,$J,358.3,33278,2)
;;=^5063070
;;^UTILITY(U,$J,358.3,33279,0)
;;=Z52.091^^102^1385^2
;;^UTILITY(U,$J,358.3,33279,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33279,1,3,0)
;;=3^Blood donor, stem cells
;;^UTILITY(U,$J,358.3,33279,1,4,0)
;;=4^Z52.091
;;^UTILITY(U,$J,358.3,33279,2)
;;=^5063073
;;^UTILITY(U,$J,358.3,33280,0)
;;=Z52.3^^102^1385^3
;;^UTILITY(U,$J,358.3,33280,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33280,1,3,0)
;;=3^Bone marrow donor
;;^UTILITY(U,$J,358.3,33280,1,4,0)
;;=4^Z52.3
;;^UTILITY(U,$J,358.3,33280,2)
;;=^5063081
;;^UTILITY(U,$J,358.3,33281,0)
;;=Z94.81^^102^1385^4
;;^UTILITY(U,$J,358.3,33281,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33281,1,3,0)
;;=3^Bone marrow transplant status
;;^UTILITY(U,$J,358.3,33281,1,4,0)
;;=4^Z94.81
;;^UTILITY(U,$J,358.3,33281,2)
;;=^5063662
;;^UTILITY(U,$J,358.3,33282,0)
;;=Z94.84^^102^1385^6
;;^UTILITY(U,$J,358.3,33282,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33282,1,3,0)
;;=3^Stem cells transplant status
;;^UTILITY(U,$J,358.3,33282,1,4,0)
;;=4^Z94.84
;;^UTILITY(U,$J,358.3,33282,2)
;;=^5063665
;;^UTILITY(U,$J,358.3,33283,0)
;;=Z52.89^^102^1385^5
;;^UTILITY(U,$J,358.3,33283,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33283,1,3,0)
;;=3^Donor of other specified organs or tissues
;;^UTILITY(U,$J,358.3,33283,1,4,0)
;;=4^Z52.89
;;^UTILITY(U,$J,358.3,33283,2)
;;=^5063090
;;^UTILITY(U,$J,358.3,33284,0)
;;=Z94.1^^102^1386^4
;;^UTILITY(U,$J,358.3,33284,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33284,1,3,0)
;;=3^Heart Transplant Status
;;^UTILITY(U,$J,358.3,33284,1,4,0)
;;=4^Z94.1
;;^UTILITY(U,$J,358.3,33284,2)
;;=^5063655
;;^UTILITY(U,$J,358.3,33285,0)
;;=Z94.3^^102^1386^3
;;^UTILITY(U,$J,358.3,33285,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33285,1,3,0)
;;=3^Heart & Lungs Transplant Status
;;^UTILITY(U,$J,358.3,33285,1,4,0)
;;=4^Z94.3
;;^UTILITY(U,$J,358.3,33285,2)
;;=^5063657
;;^UTILITY(U,$J,358.3,33286,0)
;;=Z48.21^^102^1386^2
;;^UTILITY(U,$J,358.3,33286,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33286,1,3,0)
;;=3^Aftercare Following Heart Transplant
;;^UTILITY(U,$J,358.3,33286,1,4,0)
;;=4^Z48.21
;;^UTILITY(U,$J,358.3,33286,2)
;;=^5063038
;;^UTILITY(U,$J,358.3,33287,0)
;;=Z48.280^^102^1386^1
;;^UTILITY(U,$J,358.3,33287,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33287,1,3,0)
;;=3^Aftercare Following Heart & Lung Transplant
;;^UTILITY(U,$J,358.3,33287,1,4,0)
;;=4^Z48.280
;;^UTILITY(U,$J,358.3,33287,2)
;;=^5063042
;;^UTILITY(U,$J,358.3,33288,0)
;;=Z48.288^^102^1387^2
;;^UTILITY(U,$J,358.3,33288,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33288,1,3,0)
;;=3^Aftercare Following Multiple Organ Transplant
;;^UTILITY(U,$J,358.3,33288,1,4,0)
;;=4^Z48.288
;;^UTILITY(U,$J,358.3,33288,2)
;;=^5063043
;;^UTILITY(U,$J,358.3,33289,0)
;;=Z48.290^^102^1387^1
;;^UTILITY(U,$J,358.3,33289,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,33289,1,3,0)
;;=3^Aftercare Following Bone Marrow Transplant
;;^UTILITY(U,$J,358.3,33289,1,4,0)
;;=4^Z48.290
;;^UTILITY(U,$J,358.3,33289,2)
;;=^5063044
;;^UTILITY(U,$J,358.3,33290,0)
;;=99202^^103^1388^1
;;^UTILITY(U,$J,358.3,33290,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,33290,1,1,0)
;;=1^SF MDM or 15-29 mins
;;^UTILITY(U,$J,358.3,33290,1,2,0)
;;=2^99202
;;^UTILITY(U,$J,358.3,33291,0)
;;=99203^^103^1388^2
;;^UTILITY(U,$J,358.3,33291,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,33291,1,1,0)
;;=1^Low Complex MDM or 30-44 mins
;;^UTILITY(U,$J,358.3,33291,1,2,0)
;;=2^99203
;;^UTILITY(U,$J,358.3,33292,0)
;;=99204^^103^1388^3
;;^UTILITY(U,$J,358.3,33292,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,33292,1,1,0)
;;=1^Mod Complex MDM or 45-59 mins
;;^UTILITY(U,$J,358.3,33292,1,2,0)
;;=2^99204
;;^UTILITY(U,$J,358.3,33293,0)
;;=99205^^103^1388^4
;;^UTILITY(U,$J,358.3,33293,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,33293,1,1,0)
;;=1^High Complex MDM or 60-74 mins
;;^UTILITY(U,$J,358.3,33293,1,2,0)
;;=2^99205
;;^UTILITY(U,$J,358.3,33294,0)
;;=99212^^103^1389^2
;;^UTILITY(U,$J,358.3,33294,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,33294,1,1,0)
;;=1^SF MDM or 10-19 mins
;;^UTILITY(U,$J,358.3,33294,1,2,0)
;;=2^99212
;;^UTILITY(U,$J,358.3,33295,0)
;;=99213^^103^1389^3
;;^UTILITY(U,$J,358.3,33295,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,33295,1,1,0)
;;=1^Low Complex MDM or 20-29 mins
;;^UTILITY(U,$J,358.3,33295,1,2,0)
;;=2^99213
;;^UTILITY(U,$J,358.3,33296,0)
;;=99214^^103^1389^4
;;^UTILITY(U,$J,358.3,33296,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,33296,1,1,0)
;;=1^Mod Complex MDM or 30-39 mins
;;^UTILITY(U,$J,358.3,33296,1,2,0)
;;=2^99214
;;^UTILITY(U,$J,358.3,33297,0)
;;=99215^^103^1389^5
;;^UTILITY(U,$J,358.3,33297,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,33297,1,1,0)
;;=1^High Complex MDM or 40-54 mins
;;^UTILITY(U,$J,358.3,33297,1,2,0)
;;=2^99215
;;^UTILITY(U,$J,358.3,33298,0)
;;=99211^^103^1389^1
;;^UTILITY(U,$J,358.3,33298,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,33298,1,1,0)
;;=1^BRIEF VISIT/NURSE ONLY VISIT
;;^UTILITY(U,$J,358.3,33298,1,2,0)
;;=2^99211
;;^UTILITY(U,$J,358.3,33299,0)
;;=99024^^103^1390^1
;;^UTILITY(U,$J,358.3,33299,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,33299,1,1,0)
;;=1^Post-Op Follow-up Visit
;;^UTILITY(U,$J,358.3,33299,1,2,0)
;;=2^99024
;;^UTILITY(U,$J,358.3,33300,0)
;;=20600^^104^1391^1^^^^1
;;^UTILITY(U,$J,358.3,33300,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,33300,1,1,0)
;;=1^20600
;;^UTILITY(U,$J,358.3,33300,1,2,0)
;;=2^Small Joint Inj w/o US Guidance
;;^UTILITY(U,$J,358.3,33301,0)
;;=20605^^104^1391^2^^^^1
;;^UTILITY(U,$J,358.3,33301,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,33301,1,1,0)
;;=1^20605
;;^UTILITY(U,$J,358.3,33301,1,2,0)
;;=2^Intermediate Joint Inj w/o US Guidance
;;^UTILITY(U,$J,358.3,33302,0)
;;=20610^^104^1391^3^^^^1
;;^UTILITY(U,$J,358.3,33302,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,33302,1,1,0)
;;=1^20610
;;^UTILITY(U,$J,358.3,33302,1,2,0)
;;=2^Large Joint Inj w/o US Guidance
;;^UTILITY(U,$J,358.3,33303,0)
;;=20550^^104^1392^1^^^^1
;;^UTILITY(U,$J,358.3,33303,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,33303,1,1,0)
;;=1^20550
;;^UTILITY(U,$J,358.3,33303,1,2,0)
;;=2^INJ SINGLE TENDON
;;^UTILITY(U,$J,358.3,33304,0)
;;=20551^^104^1392^2^^^^1
;;^UTILITY(U,$J,358.3,33304,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,33304,1,1,0)
;;=1^20551
;;^UTILITY(U,$J,358.3,33304,1,2,0)
;;=2^INJ TENDON,SINGLE ORIGIN
;;^UTILITY(U,$J,358.3,33305,0)
;;=20552^^104^1392^3^^^^1
;;^UTILITY(U,$J,358.3,33305,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,33305,1,1,0)
;;=1^20552
;;^UTILITY(U,$J,358.3,33305,1,2,0)
;;=2^INJ TRIGGER POINT, 1-2 MUSCL
;;^UTILITY(U,$J,358.3,33306,0)
;;=20553^^104^1392^4^^^^1
;;^UTILITY(U,$J,358.3,33306,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,33306,1,1,0)
;;=1^20553
;;^UTILITY(U,$J,358.3,33306,1,2,0)
;;=2^INJ TRIGGER POINT, =/> 3 MUSCL
;;^UTILITY(U,$J,358.3,33307,0)
;;=11200^^104^1393^8^^^^1
;;^UTILITY(U,$J,358.3,33307,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,33307,1,1,0)
;;=1^11200
;;^UTILITY(U,$J,358.3,33307,1,2,0)
;;=2^Removal Of Skin Tags(Up To 15)
;;^UTILITY(U,$J,358.3,33308,0)
;;=11201^^104^1393^9^^^^1
;;^UTILITY(U,$J,358.3,33308,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,33308,1,1,0)
;;=1^11201
;;^UTILITY(U,$J,358.3,33308,1,2,0)
;;=2^Removal of Skin Tags,Ea Addl 10
;;^UTILITY(U,$J,358.3,33309,0)
;;=17000^^104^1393^4^^^^1
;;^UTILITY(U,$J,358.3,33309,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,33309,1,1,0)
;;=1^17000
;;^UTILITY(U,$J,358.3,33309,1,2,0)
;;=2^Liquid Nitro,1 Lesion
;;^UTILITY(U,$J,358.3,33310,0)
;;=17003^^104^1393^5^^^^1
;;^UTILITY(U,$J,358.3,33310,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,33310,1,1,0)
;;=1^17003
;;^UTILITY(U,$J,358.3,33310,1,2,0)
;;=2^Liquid Nitro,2-14 Lesions
;;^UTILITY(U,$J,358.3,33311,0)
;;=10060^^104^1393^1^^^^1
;;^UTILITY(U,$J,358.3,33311,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,33311,1,1,0)
;;=1^10060
;;^UTILITY(U,$J,358.3,33311,1,2,0)
;;=2^Drainage Of Skin Abscess
;;^UTILITY(U,$J,358.3,33312,0)
;;=11106^^104^1393^2^^^^1
;;^UTILITY(U,$J,358.3,33312,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,33312,1,1,0)
;;=1^11106
;;^UTILITY(U,$J,358.3,33312,1,2,0)
;;=2^Incisional Bx,Skin,1st Lesion
;;^UTILITY(U,$J,358.3,33313,0)
;;=11107^^104^1393^3^^^^1
;;^UTILITY(U,$J,358.3,33313,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,33313,1,1,0)
;;=1^11107
;;^UTILITY(U,$J,358.3,33313,1,2,0)
;;=2^Incisional Bx,Skin,Ea Addl Lesion
;;^UTILITY(U,$J,358.3,33314,0)
;;=11104^^104^1393^6^^^^1
;;^UTILITY(U,$J,358.3,33314,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,33314,1,1,0)
;;=1^11104
;;^UTILITY(U,$J,358.3,33314,1,2,0)
;;=2^Punch Bx,Skin,1st Lesion
;;^UTILITY(U,$J,358.3,33315,0)
;;=11105^^104^1393^7^^^^1
;;^UTILITY(U,$J,358.3,33315,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,33315,1,1,0)
;;=1^11105
;;^UTILITY(U,$J,358.3,33315,1,2,0)
;;=2^Punch Bx,Skin,Ea Addl Lesion
;;^UTILITY(U,$J,358.3,33316,0)
;;=11102^^104^1393^10^^^^1
;;^UTILITY(U,$J,358.3,33316,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,33316,1,1,0)
;;=1^11102
;;^UTILITY(U,$J,358.3,33316,1,2,0)
;;=2^Tangential Bx,Skin,1st Lesion
;;^UTILITY(U,$J,358.3,33317,0)
;;=11103^^104^1393^11^^^^1
;;^UTILITY(U,$J,358.3,33317,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,33317,1,1,0)
;;=1^11103
;;^UTILITY(U,$J,358.3,33317,1,2,0)
;;=2^Tangential Bx,Skin,Ea Addl Lesion
;;^UTILITY(U,$J,358.3,33318,0)
;;=96372^^104^1394^1^^^^1
;;^UTILITY(U,$J,358.3,33318,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,33318,1,1,0)
;;=1^96372
;;^UTILITY(U,$J,358.3,33318,1,2,0)
;;=2^THER/PROPH/DIAG INJ, SC/IM
;;^UTILITY(U,$J,358.3,33319,0)
;;=93005^^104^1395^1^^^^1
;;^UTILITY(U,$J,358.3,33319,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,33319,1,1,0)
;;=1^93005
;;^UTILITY(U,$J,358.3,33319,1,2,0)
;;=2^EKG,Tracing Only
;;^UTILITY(U,$J,358.3,33320,0)
;;=93000^^104^1395^2^^^^1
;;^UTILITY(U,$J,358.3,33320,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,33320,1,1,0)
;;=1^93000
;;^UTILITY(U,$J,358.3,33320,1,2,0)
;;=2^EKG,Complete
;;^UTILITY(U,$J,358.3,33321,0)
;;=30901^^104^1396^2^^^^1
;;^UTILITY(U,$J,358.3,33321,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,33321,1,1,0)
;;=1^30901
;;^UTILITY(U,$J,358.3,33321,1,2,0)
;;=2^Control Anterior Bleed, Simple
;;^UTILITY(U,$J,358.3,33322,0)
;;=30903^^104^1396^1^^^^1
;;^UTILITY(U,$J,358.3,33322,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,33322,1,1,0)
;;=1^30903
;;^UTILITY(U,$J,358.3,33322,1,2,0)
;;=2^Control Anterior Bleed, Complex
;;^UTILITY(U,$J,358.3,33323,0)
;;=30905^^104^1396^3^^^^1
;;^UTILITY(U,$J,358.3,33323,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,33323,1,1,0)
;;=1^30905
;;^UTILITY(U,$J,358.3,33323,1,2,0)
;;=2^Control Posterior Bleed, Initial
;;^UTILITY(U,$J,358.3,33324,0)
;;=30906^^104^1396^4^^^^1
;;^UTILITY(U,$J,358.3,33324,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,33324,1,1,0)
;;=1^30906
;;^UTILITY(U,$J,358.3,33324,1,2,0)
;;=2^Control Posterior Bleed, Subs
;;^UTILITY(U,$J,358.3,33325,0)
;;=69200^^104^1397^1^^^^1
;;^UTILITY(U,$J,358.3,33325,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,33325,1,1,0)
;;=1^69200
;;^UTILITY(U,$J,358.3,33325,1,2,0)
;;=2^Remove Fb From Outer Ear Canal
;;^UTILITY(U,$J,358.3,33326,0)
;;=69210^^104^1397^2^^^^1
;;^UTILITY(U,$J,358.3,33326,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,33326,1,1,0)
;;=1^69210
;;^UTILITY(U,$J,358.3,33326,1,2,0)
;;=2^Remove Impacted Ear Wax w/ Instrmt
;;^UTILITY(U,$J,358.3,33327,0)
;;=69209^^104^1397^3^^^^1
;;^UTILITY(U,$J,358.3,33327,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,33327,1,1,0)
;;=1^69209
;;^UTILITY(U,$J,358.3,33327,1,2,0)
;;=2^Remove Impacted Ear Wax w/ Irrigation
;;^UTILITY(U,$J,358.3,33328,0)
;;=J0282^^104^1398^6^^^^1
;;^UTILITY(U,$J,358.3,33328,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,33328,1,1,0)
;;=1^J0282
;;^UTILITY(U,$J,358.3,33328,1,2,0)
;;=2^Amiodarone HCL 30mg
;;^UTILITY(U,$J,358.3,33329,0)
;;=J0456^^104^1398^8^^^^1
;;^UTILITY(U,$J,358.3,33329,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,33329,1,1,0)
;;=1^J0456
;;^UTILITY(U,$J,358.3,33329,1,2,0)
;;=2^Azithromycin 500mg
;;^UTILITY(U,$J,358.3,33330,0)
;;=J1160^^104^1398^14^^^^1
;;^UTILITY(U,$J,358.3,33330,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,33330,1,1,0)
;;=1^J1160
;;^UTILITY(U,$J,358.3,33330,1,2,0)
;;=2^Digoxin up to 0.5mg
;;^UTILITY(U,$J,358.3,33331,0)
;;=J1165^^104^1398^15^^^^1
;;^UTILITY(U,$J,358.3,33331,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,33331,1,1,0)
;;=1^J1165
;;^UTILITY(U,$J,358.3,33331,1,2,0)
;;=2^Dilantin 50mg
;;^UTILITY(U,$J,358.3,33332,0)
;;=J1200^^104^1398^17^^^^1
;;^UTILITY(U,$J,358.3,33332,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,33332,1,1,0)
;;=1^J1200
;;^UTILITY(U,$J,358.3,33332,1,2,0)
;;=2^Diphenhydramine HCL up to 50mg
;;^UTILITY(U,$J,358.3,33333,0)
;;=J1327^^104^1398^19^^^^1
;;^UTILITY(U,$J,358.3,33333,1,0)
;;=^358.31IA^2^2
;;^UTILITY(U,$J,358.3,33333,1,1,0)
;;=1^J1327
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI0D9 19775 printed Sep 23, 2025@19:22:23 Page 2
IBDEI0D9 ; ; 03-MAY-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 2022
+2 if 'DIFQR(358.3)
QUIT
FOR I=1:2
SET X=$TEXT(Q+I)
if X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
if $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,999)
if $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,358.3,33258,1,3,0)
+2 ;;=3^Liver transplant complications, other
+3 ;;^UTILITY(U,$J,358.3,33258,1,4,0)
+4 ;;=4^T86.49
+5 ;;^UTILITY(U,$J,358.3,33258,2)
+6 ;;=^5055728
+7 ;;^UTILITY(U,$J,358.3,33259,0)
+8 ;;=T86.5^^102^1384^16
+9 ;;^UTILITY(U,$J,358.3,33259,1,0)
+10 ;;=^358.31IA^4^2
+11 ;;^UTILITY(U,$J,358.3,33259,1,3,0)
+12 ;;=3^Complications of stem cell transplant
+13 ;;^UTILITY(U,$J,358.3,33259,1,4,0)
+14 ;;=4^T86.5
+15 ;;^UTILITY(U,$J,358.3,33259,2)
+16 ;;=^5055729
+17 ;;^UTILITY(U,$J,358.3,33260,0)
+18 ;;=T86.810^^102^1384^50
+19 ;;^UTILITY(U,$J,358.3,33260,1,0)
+20 ;;=^358.31IA^4^2
+21 ;;^UTILITY(U,$J,358.3,33260,1,3,0)
+22 ;;=3^Lung transplant rejection
+23 ;;^UTILITY(U,$J,358.3,33260,1,4,0)
+24 ;;=4^T86.810
+25 ;;^UTILITY(U,$J,358.3,33260,2)
+26 ;;=^5055730
+27 ;;^UTILITY(U,$J,358.3,33261,0)
+28 ;;=T86.811^^102^1384^48
+29 ;;^UTILITY(U,$J,358.3,33261,1,0)
+30 ;;=^358.31IA^4^2
+31 ;;^UTILITY(U,$J,358.3,33261,1,3,0)
+32 ;;=3^Lung transplant failure
+33 ;;^UTILITY(U,$J,358.3,33261,1,4,0)
+34 ;;=4^T86.811
+35 ;;^UTILITY(U,$J,358.3,33261,2)
+36 ;;=^5055731
+37 ;;^UTILITY(U,$J,358.3,33262,0)
+38 ;;=T86.812^^102^1384^49
+39 ;;^UTILITY(U,$J,358.3,33262,1,0)
+40 ;;=^358.31IA^4^2
+41 ;;^UTILITY(U,$J,358.3,33262,1,3,0)
+42 ;;=3^Lung transplant infection
+43 ;;^UTILITY(U,$J,358.3,33262,1,4,0)
+44 ;;=4^T86.812
+45 ;;^UTILITY(U,$J,358.3,33262,2)
+46 ;;=^5055732
+47 ;;^UTILITY(U,$J,358.3,33263,0)
+48 ;;=T86.818^^102^1384^47
+49 ;;^UTILITY(U,$J,358.3,33263,1,0)
+50 ;;=^358.31IA^4^2
+51 ;;^UTILITY(U,$J,358.3,33263,1,3,0)
+52 ;;=3^Lung transplant complications, other
+53 ;;^UTILITY(U,$J,358.3,33263,1,4,0)
+54 ;;=4^T86.818
+55 ;;^UTILITY(U,$J,358.3,33263,2)
+56 ;;=^5055733
+57 ;;^UTILITY(U,$J,358.3,33264,0)
+58 ;;=T86.890^^102^1384^60
+59 ;;^UTILITY(U,$J,358.3,33264,1,0)
+60 ;;=^358.31IA^4^2
+61 ;;^UTILITY(U,$J,358.3,33264,1,3,0)
+62 ;;=3^Tissue transplant rejection, other
+63 ;;^UTILITY(U,$J,358.3,33264,1,4,0)
+64 ;;=4^T86.890
+65 ;;^UTILITY(U,$J,358.3,33264,2)
+66 ;;=^5055754
+67 ;;^UTILITY(U,$J,358.3,33265,0)
+68 ;;=T86.891^^102^1384^58
+69 ;;^UTILITY(U,$J,358.3,33265,1,0)
+70 ;;=^358.31IA^4^2
+71 ;;^UTILITY(U,$J,358.3,33265,1,3,0)
+72 ;;=3^Tissue transplant failure, other
+73 ;;^UTILITY(U,$J,358.3,33265,1,4,0)
+74 ;;=4^T86.891
+75 ;;^UTILITY(U,$J,358.3,33265,2)
+76 ;;=^5055755
+77 ;;^UTILITY(U,$J,358.3,33266,0)
+78 ;;=T86.892^^102^1384^59
+79 ;;^UTILITY(U,$J,358.3,33266,1,0)
+80 ;;=^358.31IA^4^2
+81 ;;^UTILITY(U,$J,358.3,33266,1,3,0)
+82 ;;=3^Tissue transplant infection, other
+83 ;;^UTILITY(U,$J,358.3,33266,1,4,0)
+84 ;;=4^T86.892
+85 ;;^UTILITY(U,$J,358.3,33266,2)
+86 ;;=^5055756
+87 ;;^UTILITY(U,$J,358.3,33267,0)
+88 ;;=T86.898^^102^1384^57
+89 ;;^UTILITY(U,$J,358.3,33267,1,0)
+90 ;;=^358.31IA^4^2
+91 ;;^UTILITY(U,$J,358.3,33267,1,3,0)
+92 ;;=3^Tissue transplant complications, other
+93 ;;^UTILITY(U,$J,358.3,33267,1,4,0)
+94 ;;=4^T86.898
+95 ;;^UTILITY(U,$J,358.3,33267,2)
+96 ;;=^5055757
+97 ;;^UTILITY(U,$J,358.3,33268,0)
+98 ;;=D89.810^^102^1384^1
+99 ;;^UTILITY(U,$J,358.3,33268,1,0)
+100 ;;=^358.31IA^4^2
+101 ;;^UTILITY(U,$J,358.3,33268,1,3,0)
+102 ;;=3^Acute graft-versus-host disease
+103 ;;^UTILITY(U,$J,358.3,33268,1,4,0)
+104 ;;=4^D89.810
+105 ;;^UTILITY(U,$J,358.3,33268,2)
+106 ;;=^336539
+107 ;;^UTILITY(U,$J,358.3,33269,0)
+108 ;;=D89.811^^102^1384^13
+109 ;;^UTILITY(U,$J,358.3,33269,1,0)
+110 ;;=^358.31IA^4^2
+111 ;;^UTILITY(U,$J,358.3,33269,1,3,0)
+112 ;;=3^Chronic graft-versus-host disease
+113 ;;^UTILITY(U,$J,358.3,33269,1,4,0)
+114 ;;=4^D89.811
+115 ;;^UTILITY(U,$J,358.3,33269,2)
+116 ;;=^336540
+117 ;;^UTILITY(U,$J,358.3,33270,0)
+118 ;;=D89.812^^102^1384^2
+119 ;;^UTILITY(U,$J,358.3,33270,1,0)
+120 ;;=^358.31IA^4^2
+121 ;;^UTILITY(U,$J,358.3,33270,1,3,0)
+122 ;;=3^Acute on chronic graft-versus-host disease
+123 ;;^UTILITY(U,$J,358.3,33270,1,4,0)
+124 ;;=4^D89.812
+125 ;;^UTILITY(U,$J,358.3,33270,2)
+126 ;;=^336541
+127 ;;^UTILITY(U,$J,358.3,33271,0)
+128 ;;=C80.2^^102^1384^51
+129 ;;^UTILITY(U,$J,358.3,33271,1,0)
+130 ;;=^358.31IA^4^2
+131 ;;^UTILITY(U,$J,358.3,33271,1,3,0)
+132 ;;=3^Malignant neoplasm associated with transplanted organ
+133 ;;^UTILITY(U,$J,358.3,33271,1,4,0)
+134 ;;=4^C80.2
+135 ;;^UTILITY(U,$J,358.3,33271,2)
+136 ;;=^5001390
+137 ;;^UTILITY(U,$J,358.3,33272,0)
+138 ;;=Z91.11^^102^1384^53
+139 ;;^UTILITY(U,$J,358.3,33272,1,0)
+140 ;;=^358.31IA^4^2
+141 ;;^UTILITY(U,$J,358.3,33272,1,3,0)
+142 ;;=3^Patient's noncompliance with dietary regimen
+143 ;;^UTILITY(U,$J,358.3,33272,1,4,0)
+144 ;;=4^Z91.11
+145 ;;^UTILITY(U,$J,358.3,33272,2)
+146 ;;=^5063611
+147 ;;^UTILITY(U,$J,358.3,33273,0)
+148 ;;=Z91.15^^102^1384^54
+149 ;;^UTILITY(U,$J,358.3,33273,1,0)
+150 ;;=^358.31IA^4^2
+151 ;;^UTILITY(U,$J,358.3,33273,1,3,0)
+152 ;;=3^Patient's noncompliance with renal dialysis
+153 ;;^UTILITY(U,$J,358.3,33273,1,4,0)
+154 ;;=4^Z91.15
+155 ;;^UTILITY(U,$J,358.3,33273,2)
+156 ;;=^5063617
+157 ;;^UTILITY(U,$J,358.3,33274,0)
+158 ;;=Z91.14^^102^1384^55
+159 ;;^UTILITY(U,$J,358.3,33274,1,0)
+160 ;;=^358.31IA^4^2
+161 ;;^UTILITY(U,$J,358.3,33274,1,3,0)
+162 ;;=3^Patient's other noncompliance with medication regimen
+163 ;;^UTILITY(U,$J,358.3,33274,1,4,0)
+164 ;;=4^Z91.14
+165 ;;^UTILITY(U,$J,358.3,33274,2)
+166 ;;=^5063616
+167 ;;^UTILITY(U,$J,358.3,33275,0)
+168 ;;=T81.41XA^^102^1384^38
+169 ;;^UTILITY(U,$J,358.3,33275,1,0)
+170 ;;=^358.31IA^4^2
+171 ;;^UTILITY(U,$J,358.3,33275,1,3,0)
+172 ;;=3^Infection following proced,superfic incis surg site,init encntr
+173 ;;^UTILITY(U,$J,358.3,33275,1,4,0)
+174 ;;=4^T81.41XA
+175 ;;^UTILITY(U,$J,358.3,33275,2)
+176 ;;=^5157587
+177 ;;^UTILITY(U,$J,358.3,33276,0)
+178 ;;=T81.89XD^^102^1384^15
+179 ;;^UTILITY(U,$J,358.3,33276,1,0)
+180 ;;=^358.31IA^4^2
+181 ;;^UTILITY(U,$J,358.3,33276,1,3,0)
+182 ;;=3^Complications of Procedure,NEC,Subsq
+183 ;;^UTILITY(U,$J,358.3,33276,1,4,0)
+184 ;;=4^T81.89XD
+185 ;;^UTILITY(U,$J,358.3,33276,2)
+186 ;;=^5054663
+187 ;;^UTILITY(U,$J,358.3,33277,0)
+188 ;;=T81.41XD^^102^1384^37
+189 ;;^UTILITY(U,$J,358.3,33277,1,0)
+190 ;;=^358.31IA^4^2
+191 ;;^UTILITY(U,$J,358.3,33277,1,3,0)
+192 ;;=3^Infection following proced,Incis Surg Site,Subsq
+193 ;;^UTILITY(U,$J,358.3,33277,1,4,0)
+194 ;;=4^T81.41XD
+195 ;;^UTILITY(U,$J,358.3,33277,2)
+196 ;;=^5157588
+197 ;;^UTILITY(U,$J,358.3,33278,0)
+198 ;;=Z52.011^^102^1385^1
+199 ;;^UTILITY(U,$J,358.3,33278,1,0)
+200 ;;=^358.31IA^4^2
+201 ;;^UTILITY(U,$J,358.3,33278,1,3,0)
+202 ;;=3^Autologous donor, stem cells
+203 ;;^UTILITY(U,$J,358.3,33278,1,4,0)
+204 ;;=4^Z52.011
+205 ;;^UTILITY(U,$J,358.3,33278,2)
+206 ;;=^5063070
+207 ;;^UTILITY(U,$J,358.3,33279,0)
+208 ;;=Z52.091^^102^1385^2
+209 ;;^UTILITY(U,$J,358.3,33279,1,0)
+210 ;;=^358.31IA^4^2
+211 ;;^UTILITY(U,$J,358.3,33279,1,3,0)
+212 ;;=3^Blood donor, stem cells
+213 ;;^UTILITY(U,$J,358.3,33279,1,4,0)
+214 ;;=4^Z52.091
+215 ;;^UTILITY(U,$J,358.3,33279,2)
+216 ;;=^5063073
+217 ;;^UTILITY(U,$J,358.3,33280,0)
+218 ;;=Z52.3^^102^1385^3
+219 ;;^UTILITY(U,$J,358.3,33280,1,0)
+220 ;;=^358.31IA^4^2
+221 ;;^UTILITY(U,$J,358.3,33280,1,3,0)
+222 ;;=3^Bone marrow donor
+223 ;;^UTILITY(U,$J,358.3,33280,1,4,0)
+224 ;;=4^Z52.3
+225 ;;^UTILITY(U,$J,358.3,33280,2)
+226 ;;=^5063081
+227 ;;^UTILITY(U,$J,358.3,33281,0)
+228 ;;=Z94.81^^102^1385^4
+229 ;;^UTILITY(U,$J,358.3,33281,1,0)
+230 ;;=^358.31IA^4^2
+231 ;;^UTILITY(U,$J,358.3,33281,1,3,0)
+232 ;;=3^Bone marrow transplant status
+233 ;;^UTILITY(U,$J,358.3,33281,1,4,0)
+234 ;;=4^Z94.81
+235 ;;^UTILITY(U,$J,358.3,33281,2)
+236 ;;=^5063662
+237 ;;^UTILITY(U,$J,358.3,33282,0)
+238 ;;=Z94.84^^102^1385^6
+239 ;;^UTILITY(U,$J,358.3,33282,1,0)
+240 ;;=^358.31IA^4^2
+241 ;;^UTILITY(U,$J,358.3,33282,1,3,0)
+242 ;;=3^Stem cells transplant status
+243 ;;^UTILITY(U,$J,358.3,33282,1,4,0)
+244 ;;=4^Z94.84
+245 ;;^UTILITY(U,$J,358.3,33282,2)
+246 ;;=^5063665
+247 ;;^UTILITY(U,$J,358.3,33283,0)
+248 ;;=Z52.89^^102^1385^5
+249 ;;^UTILITY(U,$J,358.3,33283,1,0)
+250 ;;=^358.31IA^4^2
+251 ;;^UTILITY(U,$J,358.3,33283,1,3,0)
+252 ;;=3^Donor of other specified organs or tissues
+253 ;;^UTILITY(U,$J,358.3,33283,1,4,0)
+254 ;;=4^Z52.89
+255 ;;^UTILITY(U,$J,358.3,33283,2)
+256 ;;=^5063090
+257 ;;^UTILITY(U,$J,358.3,33284,0)
+258 ;;=Z94.1^^102^1386^4
+259 ;;^UTILITY(U,$J,358.3,33284,1,0)
+260 ;;=^358.31IA^4^2
+261 ;;^UTILITY(U,$J,358.3,33284,1,3,0)
+262 ;;=3^Heart Transplant Status
+263 ;;^UTILITY(U,$J,358.3,33284,1,4,0)
+264 ;;=4^Z94.1
+265 ;;^UTILITY(U,$J,358.3,33284,2)
+266 ;;=^5063655
+267 ;;^UTILITY(U,$J,358.3,33285,0)
+268 ;;=Z94.3^^102^1386^3
+269 ;;^UTILITY(U,$J,358.3,33285,1,0)
+270 ;;=^358.31IA^4^2
+271 ;;^UTILITY(U,$J,358.3,33285,1,3,0)
+272 ;;=3^Heart & Lungs Transplant Status
+273 ;;^UTILITY(U,$J,358.3,33285,1,4,0)
+274 ;;=4^Z94.3
+275 ;;^UTILITY(U,$J,358.3,33285,2)
+276 ;;=^5063657
+277 ;;^UTILITY(U,$J,358.3,33286,0)
+278 ;;=Z48.21^^102^1386^2
+279 ;;^UTILITY(U,$J,358.3,33286,1,0)
+280 ;;=^358.31IA^4^2
+281 ;;^UTILITY(U,$J,358.3,33286,1,3,0)
+282 ;;=3^Aftercare Following Heart Transplant
+283 ;;^UTILITY(U,$J,358.3,33286,1,4,0)
+284 ;;=4^Z48.21
+285 ;;^UTILITY(U,$J,358.3,33286,2)
+286 ;;=^5063038
+287 ;;^UTILITY(U,$J,358.3,33287,0)
+288 ;;=Z48.280^^102^1386^1
+289 ;;^UTILITY(U,$J,358.3,33287,1,0)
+290 ;;=^358.31IA^4^2
+291 ;;^UTILITY(U,$J,358.3,33287,1,3,0)
+292 ;;=3^Aftercare Following Heart & Lung Transplant
+293 ;;^UTILITY(U,$J,358.3,33287,1,4,0)
+294 ;;=4^Z48.280
+295 ;;^UTILITY(U,$J,358.3,33287,2)
+296 ;;=^5063042
+297 ;;^UTILITY(U,$J,358.3,33288,0)
+298 ;;=Z48.288^^102^1387^2
+299 ;;^UTILITY(U,$J,358.3,33288,1,0)
+300 ;;=^358.31IA^4^2
+301 ;;^UTILITY(U,$J,358.3,33288,1,3,0)
+302 ;;=3^Aftercare Following Multiple Organ Transplant
+303 ;;^UTILITY(U,$J,358.3,33288,1,4,0)
+304 ;;=4^Z48.288
+305 ;;^UTILITY(U,$J,358.3,33288,2)
+306 ;;=^5063043
+307 ;;^UTILITY(U,$J,358.3,33289,0)
+308 ;;=Z48.290^^102^1387^1
+309 ;;^UTILITY(U,$J,358.3,33289,1,0)
+310 ;;=^358.31IA^4^2
+311 ;;^UTILITY(U,$J,358.3,33289,1,3,0)
+312 ;;=3^Aftercare Following Bone Marrow Transplant
+313 ;;^UTILITY(U,$J,358.3,33289,1,4,0)
+314 ;;=4^Z48.290
+315 ;;^UTILITY(U,$J,358.3,33289,2)
+316 ;;=^5063044
+317 ;;^UTILITY(U,$J,358.3,33290,0)
+318 ;;=99202^^103^1388^1
+319 ;;^UTILITY(U,$J,358.3,33290,1,0)
+320 ;;=^358.31IA^2^2
+321 ;;^UTILITY(U,$J,358.3,33290,1,1,0)
+322 ;;=1^SF MDM or 15-29 mins
+323 ;;^UTILITY(U,$J,358.3,33290,1,2,0)
+324 ;;=2^99202
+325 ;;^UTILITY(U,$J,358.3,33291,0)
+326 ;;=99203^^103^1388^2
+327 ;;^UTILITY(U,$J,358.3,33291,1,0)
+328 ;;=^358.31IA^2^2
+329 ;;^UTILITY(U,$J,358.3,33291,1,1,0)
+330 ;;=1^Low Complex MDM or 30-44 mins
+331 ;;^UTILITY(U,$J,358.3,33291,1,2,0)
+332 ;;=2^99203
+333 ;;^UTILITY(U,$J,358.3,33292,0)
+334 ;;=99204^^103^1388^3
+335 ;;^UTILITY(U,$J,358.3,33292,1,0)
+336 ;;=^358.31IA^2^2
+337 ;;^UTILITY(U,$J,358.3,33292,1,1,0)
+338 ;;=1^Mod Complex MDM or 45-59 mins
+339 ;;^UTILITY(U,$J,358.3,33292,1,2,0)
+340 ;;=2^99204
+341 ;;^UTILITY(U,$J,358.3,33293,0)
+342 ;;=99205^^103^1388^4
+343 ;;^UTILITY(U,$J,358.3,33293,1,0)
+344 ;;=^358.31IA^2^2
+345 ;;^UTILITY(U,$J,358.3,33293,1,1,0)
+346 ;;=1^High Complex MDM or 60-74 mins
+347 ;;^UTILITY(U,$J,358.3,33293,1,2,0)
+348 ;;=2^99205
+349 ;;^UTILITY(U,$J,358.3,33294,0)
+350 ;;=99212^^103^1389^2
+351 ;;^UTILITY(U,$J,358.3,33294,1,0)
+352 ;;=^358.31IA^2^2
+353 ;;^UTILITY(U,$J,358.3,33294,1,1,0)
+354 ;;=1^SF MDM or 10-19 mins
+355 ;;^UTILITY(U,$J,358.3,33294,1,2,0)
+356 ;;=2^99212
+357 ;;^UTILITY(U,$J,358.3,33295,0)
+358 ;;=99213^^103^1389^3
+359 ;;^UTILITY(U,$J,358.3,33295,1,0)
+360 ;;=^358.31IA^2^2
+361 ;;^UTILITY(U,$J,358.3,33295,1,1,0)
+362 ;;=1^Low Complex MDM or 20-29 mins
+363 ;;^UTILITY(U,$J,358.3,33295,1,2,0)
+364 ;;=2^99213
+365 ;;^UTILITY(U,$J,358.3,33296,0)
+366 ;;=99214^^103^1389^4
+367 ;;^UTILITY(U,$J,358.3,33296,1,0)
+368 ;;=^358.31IA^2^2
+369 ;;^UTILITY(U,$J,358.3,33296,1,1,0)
+370 ;;=1^Mod Complex MDM or 30-39 mins
+371 ;;^UTILITY(U,$J,358.3,33296,1,2,0)
+372 ;;=2^99214
+373 ;;^UTILITY(U,$J,358.3,33297,0)
+374 ;;=99215^^103^1389^5
+375 ;;^UTILITY(U,$J,358.3,33297,1,0)
+376 ;;=^358.31IA^2^2
+377 ;;^UTILITY(U,$J,358.3,33297,1,1,0)
+378 ;;=1^High Complex MDM or 40-54 mins
+379 ;;^UTILITY(U,$J,358.3,33297,1,2,0)
+380 ;;=2^99215
+381 ;;^UTILITY(U,$J,358.3,33298,0)
+382 ;;=99211^^103^1389^1
+383 ;;^UTILITY(U,$J,358.3,33298,1,0)
+384 ;;=^358.31IA^2^2
+385 ;;^UTILITY(U,$J,358.3,33298,1,1,0)
+386 ;;=1^BRIEF VISIT/NURSE ONLY VISIT
+387 ;;^UTILITY(U,$J,358.3,33298,1,2,0)
+388 ;;=2^99211
+389 ;;^UTILITY(U,$J,358.3,33299,0)
+390 ;;=99024^^103^1390^1
+391 ;;^UTILITY(U,$J,358.3,33299,1,0)
+392 ;;=^358.31IA^2^2
+393 ;;^UTILITY(U,$J,358.3,33299,1,1,0)
+394 ;;=1^Post-Op Follow-up Visit
+395 ;;^UTILITY(U,$J,358.3,33299,1,2,0)
+396 ;;=2^99024
+397 ;;^UTILITY(U,$J,358.3,33300,0)
+398 ;;=20600^^104^1391^1^^^^1
+399 ;;^UTILITY(U,$J,358.3,33300,1,0)
+400 ;;=^358.31IA^2^2
+401 ;;^UTILITY(U,$J,358.3,33300,1,1,0)
+402 ;;=1^20600
+403 ;;^UTILITY(U,$J,358.3,33300,1,2,0)
+404 ;;=2^Small Joint Inj w/o US Guidance
+405 ;;^UTILITY(U,$J,358.3,33301,0)
+406 ;;=20605^^104^1391^2^^^^1
+407 ;;^UTILITY(U,$J,358.3,33301,1,0)
+408 ;;=^358.31IA^2^2
+409 ;;^UTILITY(U,$J,358.3,33301,1,1,0)
+410 ;;=1^20605
+411 ;;^UTILITY(U,$J,358.3,33301,1,2,0)
+412 ;;=2^Intermediate Joint Inj w/o US Guidance
+413 ;;^UTILITY(U,$J,358.3,33302,0)
+414 ;;=20610^^104^1391^3^^^^1
+415 ;;^UTILITY(U,$J,358.3,33302,1,0)
+416 ;;=^358.31IA^2^2
+417 ;;^UTILITY(U,$J,358.3,33302,1,1,0)
+418 ;;=1^20610
+419 ;;^UTILITY(U,$J,358.3,33302,1,2,0)
+420 ;;=2^Large Joint Inj w/o US Guidance
+421 ;;^UTILITY(U,$J,358.3,33303,0)
+422 ;;=20550^^104^1392^1^^^^1
+423 ;;^UTILITY(U,$J,358.3,33303,1,0)
+424 ;;=^358.31IA^2^2
+425 ;;^UTILITY(U,$J,358.3,33303,1,1,0)
+426 ;;=1^20550
+427 ;;^UTILITY(U,$J,358.3,33303,1,2,0)
+428 ;;=2^INJ SINGLE TENDON
+429 ;;^UTILITY(U,$J,358.3,33304,0)
+430 ;;=20551^^104^1392^2^^^^1
+431 ;;^UTILITY(U,$J,358.3,33304,1,0)
+432 ;;=^358.31IA^2^2
+433 ;;^UTILITY(U,$J,358.3,33304,1,1,0)
+434 ;;=1^20551
+435 ;;^UTILITY(U,$J,358.3,33304,1,2,0)
+436 ;;=2^INJ TENDON,SINGLE ORIGIN
+437 ;;^UTILITY(U,$J,358.3,33305,0)
+438 ;;=20552^^104^1392^3^^^^1
+439 ;;^UTILITY(U,$J,358.3,33305,1,0)
+440 ;;=^358.31IA^2^2
+441 ;;^UTILITY(U,$J,358.3,33305,1,1,0)
+442 ;;=1^20552
+443 ;;^UTILITY(U,$J,358.3,33305,1,2,0)
+444 ;;=2^INJ TRIGGER POINT, 1-2 MUSCL
+445 ;;^UTILITY(U,$J,358.3,33306,0)
+446 ;;=20553^^104^1392^4^^^^1
+447 ;;^UTILITY(U,$J,358.3,33306,1,0)
+448 ;;=^358.31IA^2^2
+449 ;;^UTILITY(U,$J,358.3,33306,1,1,0)
+450 ;;=1^20553
+451 ;;^UTILITY(U,$J,358.3,33306,1,2,0)
+452 ;;=2^INJ TRIGGER POINT, =/> 3 MUSCL
+453 ;;^UTILITY(U,$J,358.3,33307,0)
+454 ;;=11200^^104^1393^8^^^^1
+455 ;;^UTILITY(U,$J,358.3,33307,1,0)
+456 ;;=^358.31IA^2^2
+457 ;;^UTILITY(U,$J,358.3,33307,1,1,0)
+458 ;;=1^11200
+459 ;;^UTILITY(U,$J,358.3,33307,1,2,0)
+460 ;;=2^Removal Of Skin Tags(Up To 15)
+461 ;;^UTILITY(U,$J,358.3,33308,0)
+462 ;;=11201^^104^1393^9^^^^1
+463 ;;^UTILITY(U,$J,358.3,33308,1,0)
+464 ;;=^358.31IA^2^2
+465 ;;^UTILITY(U,$J,358.3,33308,1,1,0)
+466 ;;=1^11201
+467 ;;^UTILITY(U,$J,358.3,33308,1,2,0)
+468 ;;=2^Removal of Skin Tags,Ea Addl 10
+469 ;;^UTILITY(U,$J,358.3,33309,0)
+470 ;;=17000^^104^1393^4^^^^1
+471 ;;^UTILITY(U,$J,358.3,33309,1,0)
+472 ;;=^358.31IA^2^2
+473 ;;^UTILITY(U,$J,358.3,33309,1,1,0)
+474 ;;=1^17000
+475 ;;^UTILITY(U,$J,358.3,33309,1,2,0)
+476 ;;=2^Liquid Nitro,1 Lesion
+477 ;;^UTILITY(U,$J,358.3,33310,0)
+478 ;;=17003^^104^1393^5^^^^1
+479 ;;^UTILITY(U,$J,358.3,33310,1,0)
+480 ;;=^358.31IA^2^2
+481 ;;^UTILITY(U,$J,358.3,33310,1,1,0)
+482 ;;=1^17003
+483 ;;^UTILITY(U,$J,358.3,33310,1,2,0)
+484 ;;=2^Liquid Nitro,2-14 Lesions
+485 ;;^UTILITY(U,$J,358.3,33311,0)
+486 ;;=10060^^104^1393^1^^^^1
+487 ;;^UTILITY(U,$J,358.3,33311,1,0)
+488 ;;=^358.31IA^2^2
+489 ;;^UTILITY(U,$J,358.3,33311,1,1,0)
+490 ;;=1^10060
+491 ;;^UTILITY(U,$J,358.3,33311,1,2,0)
+492 ;;=2^Drainage Of Skin Abscess
+493 ;;^UTILITY(U,$J,358.3,33312,0)
+494 ;;=11106^^104^1393^2^^^^1
+495 ;;^UTILITY(U,$J,358.3,33312,1,0)
+496 ;;=^358.31IA^2^2
+497 ;;^UTILITY(U,$J,358.3,33312,1,1,0)
+498 ;;=1^11106
+499 ;;^UTILITY(U,$J,358.3,33312,1,2,0)
+500 ;;=2^Incisional Bx,Skin,1st Lesion
+501 ;;^UTILITY(U,$J,358.3,33313,0)
+502 ;;=11107^^104^1393^3^^^^1
+503 ;;^UTILITY(U,$J,358.3,33313,1,0)
+504 ;;=^358.31IA^2^2
+505 ;;^UTILITY(U,$J,358.3,33313,1,1,0)
+506 ;;=1^11107
+507 ;;^UTILITY(U,$J,358.3,33313,1,2,0)
+508 ;;=2^Incisional Bx,Skin,Ea Addl Lesion
+509 ;;^UTILITY(U,$J,358.3,33314,0)
+510 ;;=11104^^104^1393^6^^^^1
+511 ;;^UTILITY(U,$J,358.3,33314,1,0)
+512 ;;=^358.31IA^2^2
+513 ;;^UTILITY(U,$J,358.3,33314,1,1,0)
+514 ;;=1^11104
+515 ;;^UTILITY(U,$J,358.3,33314,1,2,0)
+516 ;;=2^Punch Bx,Skin,1st Lesion
+517 ;;^UTILITY(U,$J,358.3,33315,0)
+518 ;;=11105^^104^1393^7^^^^1
+519 ;;^UTILITY(U,$J,358.3,33315,1,0)
+520 ;;=^358.31IA^2^2
+521 ;;^UTILITY(U,$J,358.3,33315,1,1,0)
+522 ;;=1^11105
+523 ;;^UTILITY(U,$J,358.3,33315,1,2,0)
+524 ;;=2^Punch Bx,Skin,Ea Addl Lesion
+525 ;;^UTILITY(U,$J,358.3,33316,0)
+526 ;;=11102^^104^1393^10^^^^1
+527 ;;^UTILITY(U,$J,358.3,33316,1,0)
+528 ;;=^358.31IA^2^2
+529 ;;^UTILITY(U,$J,358.3,33316,1,1,0)
+530 ;;=1^11102
+531 ;;^UTILITY(U,$J,358.3,33316,1,2,0)
+532 ;;=2^Tangential Bx,Skin,1st Lesion
+533 ;;^UTILITY(U,$J,358.3,33317,0)
+534 ;;=11103^^104^1393^11^^^^1
+535 ;;^UTILITY(U,$J,358.3,33317,1,0)
+536 ;;=^358.31IA^2^2
+537 ;;^UTILITY(U,$J,358.3,33317,1,1,0)
+538 ;;=1^11103
+539 ;;^UTILITY(U,$J,358.3,33317,1,2,0)
+540 ;;=2^Tangential Bx,Skin,Ea Addl Lesion
+541 ;;^UTILITY(U,$J,358.3,33318,0)
+542 ;;=96372^^104^1394^1^^^^1
+543 ;;^UTILITY(U,$J,358.3,33318,1,0)
+544 ;;=^358.31IA^2^2
+545 ;;^UTILITY(U,$J,358.3,33318,1,1,0)
+546 ;;=1^96372
+547 ;;^UTILITY(U,$J,358.3,33318,1,2,0)
+548 ;;=2^THER/PROPH/DIAG INJ, SC/IM
+549 ;;^UTILITY(U,$J,358.3,33319,0)
+550 ;;=93005^^104^1395^1^^^^1
+551 ;;^UTILITY(U,$J,358.3,33319,1,0)
+552 ;;=^358.31IA^2^2
+553 ;;^UTILITY(U,$J,358.3,33319,1,1,0)
+554 ;;=1^93005
+555 ;;^UTILITY(U,$J,358.3,33319,1,2,0)
+556 ;;=2^EKG,Tracing Only
+557 ;;^UTILITY(U,$J,358.3,33320,0)
+558 ;;=93000^^104^1395^2^^^^1
+559 ;;^UTILITY(U,$J,358.3,33320,1,0)
+560 ;;=^358.31IA^2^2
+561 ;;^UTILITY(U,$J,358.3,33320,1,1,0)
+562 ;;=1^93000
+563 ;;^UTILITY(U,$J,358.3,33320,1,2,0)
+564 ;;=2^EKG,Complete
+565 ;;^UTILITY(U,$J,358.3,33321,0)
+566 ;;=30901^^104^1396^2^^^^1
+567 ;;^UTILITY(U,$J,358.3,33321,1,0)
+568 ;;=^358.31IA^2^2
+569 ;;^UTILITY(U,$J,358.3,33321,1,1,0)
+570 ;;=1^30901
+571 ;;^UTILITY(U,$J,358.3,33321,1,2,0)
+572 ;;=2^Control Anterior Bleed, Simple
+573 ;;^UTILITY(U,$J,358.3,33322,0)
+574 ;;=30903^^104^1396^1^^^^1
+575 ;;^UTILITY(U,$J,358.3,33322,1,0)
+576 ;;=^358.31IA^2^2
+577 ;;^UTILITY(U,$J,358.3,33322,1,1,0)
+578 ;;=1^30903
+579 ;;^UTILITY(U,$J,358.3,33322,1,2,0)
+580 ;;=2^Control Anterior Bleed, Complex
+581 ;;^UTILITY(U,$J,358.3,33323,0)
+582 ;;=30905^^104^1396^3^^^^1
+583 ;;^UTILITY(U,$J,358.3,33323,1,0)
+584 ;;=^358.31IA^2^2
+585 ;;^UTILITY(U,$J,358.3,33323,1,1,0)
+586 ;;=1^30905
+587 ;;^UTILITY(U,$J,358.3,33323,1,2,0)
+588 ;;=2^Control Posterior Bleed, Initial
+589 ;;^UTILITY(U,$J,358.3,33324,0)
+590 ;;=30906^^104^1396^4^^^^1
+591 ;;^UTILITY(U,$J,358.3,33324,1,0)
+592 ;;=^358.31IA^2^2
+593 ;;^UTILITY(U,$J,358.3,33324,1,1,0)
+594 ;;=1^30906
+595 ;;^UTILITY(U,$J,358.3,33324,1,2,0)
+596 ;;=2^Control Posterior Bleed, Subs
+597 ;;^UTILITY(U,$J,358.3,33325,0)
+598 ;;=69200^^104^1397^1^^^^1
+599 ;;^UTILITY(U,$J,358.3,33325,1,0)
+600 ;;=^358.31IA^2^2
+601 ;;^UTILITY(U,$J,358.3,33325,1,1,0)
+602 ;;=1^69200
+603 ;;^UTILITY(U,$J,358.3,33325,1,2,0)
+604 ;;=2^Remove Fb From Outer Ear Canal
+605 ;;^UTILITY(U,$J,358.3,33326,0)
+606 ;;=69210^^104^1397^2^^^^1
+607 ;;^UTILITY(U,$J,358.3,33326,1,0)
+608 ;;=^358.31IA^2^2
+609 ;;^UTILITY(U,$J,358.3,33326,1,1,0)
+610 ;;=1^69210
+611 ;;^UTILITY(U,$J,358.3,33326,1,2,0)
+612 ;;=2^Remove Impacted Ear Wax w/ Instrmt
+613 ;;^UTILITY(U,$J,358.3,33327,0)
+614 ;;=69209^^104^1397^3^^^^1
+615 ;;^UTILITY(U,$J,358.3,33327,1,0)
+616 ;;=^358.31IA^2^2
+617 ;;^UTILITY(U,$J,358.3,33327,1,1,0)
+618 ;;=1^69209
+619 ;;^UTILITY(U,$J,358.3,33327,1,2,0)
+620 ;;=2^Remove Impacted Ear Wax w/ Irrigation
+621 ;;^UTILITY(U,$J,358.3,33328,0)
+622 ;;=J0282^^104^1398^6^^^^1
+623 ;;^UTILITY(U,$J,358.3,33328,1,0)
+624 ;;=^358.31IA^2^2
+625 ;;^UTILITY(U,$J,358.3,33328,1,1,0)
+626 ;;=1^J0282
+627 ;;^UTILITY(U,$J,358.3,33328,1,2,0)
+628 ;;=2^Amiodarone HCL 30mg
+629 ;;^UTILITY(U,$J,358.3,33329,0)
+630 ;;=J0456^^104^1398^8^^^^1
+631 ;;^UTILITY(U,$J,358.3,33329,1,0)
+632 ;;=^358.31IA^2^2
+633 ;;^UTILITY(U,$J,358.3,33329,1,1,0)
+634 ;;=1^J0456
+635 ;;^UTILITY(U,$J,358.3,33329,1,2,0)
+636 ;;=2^Azithromycin 500mg
+637 ;;^UTILITY(U,$J,358.3,33330,0)
+638 ;;=J1160^^104^1398^14^^^^1
+639 ;;^UTILITY(U,$J,358.3,33330,1,0)
+640 ;;=^358.31IA^2^2
+641 ;;^UTILITY(U,$J,358.3,33330,1,1,0)
+642 ;;=1^J1160
+643 ;;^UTILITY(U,$J,358.3,33330,1,2,0)
+644 ;;=2^Digoxin up to 0.5mg
+645 ;;^UTILITY(U,$J,358.3,33331,0)
+646 ;;=J1165^^104^1398^15^^^^1
+647 ;;^UTILITY(U,$J,358.3,33331,1,0)
+648 ;;=^358.31IA^2^2
+649 ;;^UTILITY(U,$J,358.3,33331,1,1,0)
+650 ;;=1^J1165
+651 ;;^UTILITY(U,$J,358.3,33331,1,2,0)
+652 ;;=2^Dilantin 50mg
+653 ;;^UTILITY(U,$J,358.3,33332,0)
+654 ;;=J1200^^104^1398^17^^^^1
+655 ;;^UTILITY(U,$J,358.3,33332,1,0)
+656 ;;=^358.31IA^2^2
+657 ;;^UTILITY(U,$J,358.3,33332,1,1,0)
+658 ;;=1^J1200
+659 ;;^UTILITY(U,$J,358.3,33332,1,2,0)
+660 ;;=2^Diphenhydramine HCL up to 50mg
+661 ;;^UTILITY(U,$J,358.3,33333,0)
+662 ;;=J1327^^104^1398^19^^^^1
+663 ;;^UTILITY(U,$J,358.3,33333,1,0)
+664 ;;=^358.31IA^2^2
+665 ;;^UTILITY(U,$J,358.3,33333,1,1,0)
+666 ;;=1^J1327
