IBDEI007 ; ; 01-AUG-2022
;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
Q:'DIFQR(358.2) 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.2,46,2,3,0)
;;=1^ ^^2^^1^^1^^0
;;^UTILITY(U,$J,358.2,47,0)
;;=CPT CODES^82^^^^^3^0^CU^^4^1^^0^^0^3^2
;;^UTILITY(U,$J,358.2,47,2,0)
;;=^358.22I^3^3
;;^UTILITY(U,$J,358.2,47,2,1,0)
;;=1^CODE^5^1^1^^0
;;^UTILITY(U,$J,358.2,47,2,2,0)
;;=2^PROCEDURE^40^1^2^^1
;;^UTILITY(U,$J,358.2,47,2,3,0)
;;=3^x^^2^^2
;;^UTILITY(U,$J,358.2,48,0)
;;=ICD-10 DIAGNOSES^84^^^^^4^0^SC^^6^0^1^0^^0^3^2
;;^UTILITY(U,$J,358.2,48,1,0)
;;=^358.21I^1^1
;;^UTILITY(U,$J,358.2,48,1,1,0)
;;=1^2^1
;;^UTILITY(U,$J,358.2,48,2,0)
;;=^358.22I^5^5
;;^UTILITY(U,$J,358.2,48,2,1,0)
;;=4^CODE^8^1^1^^0
;;^UTILITY(U,$J,358.2,48,2,2,0)
;;=3^DIAGNOSIS^95^1^2^^1
;;^UTILITY(U,$J,358.2,48,2,3,0)
;;=5^ADD^^2^^1^^1^7^0
;;^UTILITY(U,$J,358.2,48,2,4,0)
;;=1^P^^2^^1^^1^1^1
;;^UTILITY(U,$J,358.2,48,2,5,0)
;;=2^S^^2^^1^^1^2^0
;;^UTILITY(U,$J,358.2,49,0)
;;=CPT CODES^85^^^^^1^0^SC^^4^0^^0^^0^3^2
;;^UTILITY(U,$J,358.2,49,1,0)
;;=^358.21I^1^1
;;^UTILITY(U,$J,358.2,49,1,1,0)
;;=1^2^2
;;^UTILITY(U,$J,358.2,49,2,0)
;;=^358.22I^3^3
;;^UTILITY(U,$J,358.2,49,2,1,0)
;;=3^ ^5^1^1^^0
;;^UTILITY(U,$J,358.2,49,2,2,0)
;;=2^ ^50^1^2^^1
;;^UTILITY(U,$J,358.2,49,2,3,0)
;;=1^ ^^2^^1^^1^^0
;;^UTILITY(U,$J,358.2,50,0)
;;=ICD-10 DIAGNOSES^88^^^^^4^0^SC^^6^0^^0^^0^3^2
;;^UTILITY(U,$J,358.2,50,2,0)
;;=^358.22I^5^5
;;^UTILITY(U,$J,358.2,50,2,1,0)
;;=4^CODE^8^1^1^^0
;;^UTILITY(U,$J,358.2,50,2,2,0)
;;=3^DIAGNOSIS^64^1^2^^1
;;^UTILITY(U,$J,358.2,50,2,3,0)
;;=5^ADD^^2^^1^^1^7^0
;;^UTILITY(U,$J,358.2,50,2,4,0)
;;=1^P^^2^^1^^1^1^1
;;^UTILITY(U,$J,358.2,50,2,5,0)
;;=2^S^^2^^1^^1^2^0
;;^UTILITY(U,$J,358.2,51,0)
;;=VISIT TYPE^89^^^^^2^0^C^^8^0^2^0^^0^3^2
;;^UTILITY(U,$J,358.2,51,1,0)
;;=^358.21I^2^2
;;^UTILITY(U,$J,358.2,51,1,1,0)
;;=1^2^1
;;^UTILITY(U,$J,358.2,51,1,2,0)
;;=2^2^64
;;^UTILITY(U,$J,358.2,51,2,0)
;;=^358.22I^4^3
;;^UTILITY(U,$J,358.2,51,2,1,0)
;;=1^ ^45^1^2^^1
;;^UTILITY(U,$J,358.2,51,2,3,0)
;;=3^^^2^^1^^1^^1
;;^UTILITY(U,$J,358.2,51,2,4,0)
;;=2^ ^5^1^1
;;^UTILITY(U,$J,358.2,52,0)
;;=CPT CODES^92^^^^^1^0^SC^^4^0^2^0^^0^3^2
;;^UTILITY(U,$J,358.2,52,1,0)
;;=^358.21I^2^2
;;^UTILITY(U,$J,358.2,52,1,1,0)
;;=1^2^2
;;^UTILITY(U,$J,358.2,52,1,2,0)
;;=2^2^69
;;^UTILITY(U,$J,358.2,52,2,0)
;;=^358.22I^3^3
;;^UTILITY(U,$J,358.2,52,2,1,0)
;;=3^ ^5^1^1^^0
;;^UTILITY(U,$J,358.2,52,2,2,0)
;;=2^ ^50^1^2^^1
;;^UTILITY(U,$J,358.2,52,2,3,0)
;;=1^ ^^2^^1^^1^^0
;;^UTILITY(U,$J,358.2,53,0)
;;=ICD-10 DIAGNOSES^93^^^^^4^0^SC^^6^0^1^0^^0^3^2
;;^UTILITY(U,$J,358.2,53,1,0)
;;=^358.21I^1^1
;;^UTILITY(U,$J,358.2,53,1,1,0)
;;=1^2^1
;;^UTILITY(U,$J,358.2,53,2,0)
;;=^358.22I^5^5
;;^UTILITY(U,$J,358.2,53,2,1,0)
;;=4^CODE^8^1^1^^0
;;^UTILITY(U,$J,358.2,53,2,2,0)
;;=3^DIAGNOSIS^95^1^2^^1
;;^UTILITY(U,$J,358.2,53,2,3,0)
;;=5^ADD^^2^^1^^1^7^0
;;^UTILITY(U,$J,358.2,53,2,4,0)
;;=1^P^^2^^1^^1^1^1
;;^UTILITY(U,$J,358.2,53,2,5,0)
;;=2^S^^2^^1^^1^2^0
;;^UTILITY(U,$J,358.2,54,0)
;;=VISIT TYPE^94^^^^^2^0^C^^8^0^^0^^0^3^2
;;^UTILITY(U,$J,358.2,54,1,0)
;;=^358.21I^1^1
;;^UTILITY(U,$J,358.2,54,1,1,0)
;;=1^2
;;^UTILITY(U,$J,358.2,54,2,0)
;;=^358.22I^4^3
;;^UTILITY(U,$J,358.2,54,2,1,0)
;;=1^ ^40^1^2^^1
;;^UTILITY(U,$J,358.2,54,2,3,0)
;;=3^^^2^^1^^1^^1
;;^UTILITY(U,$J,358.2,54,2,4,0)
;;=2^ ^5^1^1
;;^UTILITY(U,$J,358.2,55,0)
;;=CPT CODES^97^^^^^1^0^CSU^^4^0^2^0^^0^2^2
;;^UTILITY(U,$J,358.2,55,1,0)
;;=^358.21I^3^3
;;^UTILITY(U,$J,358.2,55,1,1,0)
;;=1^2^2
;;^UTILITY(U,$J,358.2,55,1,2,0)
;;=3^^91
;;^UTILITY(U,$J,358.2,55,1,3,0)
;;=2^3^64
;;^UTILITY(U,$J,358.2,55,2,0)
;;=^358.22I^3^3
;;^UTILITY(U,$J,358.2,55,2,1,0)
;;=2^ ^5^1^1^^0
;;^UTILITY(U,$J,358.2,55,2,2,0)
;;=3^ ^50^1^2^^1
;;^UTILITY(U,$J,358.2,55,2,3,0)
;;=1^ ^^2^^1^^1^^0
;;^UTILITY(U,$J,358.2,56,0)
;;=ICD-10 DIAGNOSES^98^^^^^4^0^SC^^6^0^1^0^^0^3^2
;;^UTILITY(U,$J,358.2,56,1,0)
;;=^358.21I^1^1
;;^UTILITY(U,$J,358.2,56,1,1,0)
;;=1^2^1
;;^UTILITY(U,$J,358.2,56,2,0)
;;=^358.22I^5^5
;;^UTILITY(U,$J,358.2,56,2,1,0)
;;=4^CODE^8^1^1^^0
;;^UTILITY(U,$J,358.2,56,2,2,0)
;;=3^DIAGNOSIS^95^1^2^^1
;;^UTILITY(U,$J,358.2,56,2,3,0)
;;=5^ADD^^2^^1^^1^7^0
;;^UTILITY(U,$J,358.2,56,2,4,0)
;;=1^P^^2^^1^^1^1^1
;;^UTILITY(U,$J,358.2,56,2,5,0)
;;=2^S^^2^^1^^1^2^0
;;^UTILITY(U,$J,358.2,57,0)
;;=VISIT TYPE^101^^^^^2^0^C^^8^0^^0^^0^3^2
;;^UTILITY(U,$J,358.2,57,1,0)
;;=^358.21I^1^1
;;^UTILITY(U,$J,358.2,57,1,1,0)
;;=1^2
;;^UTILITY(U,$J,358.2,57,2,0)
;;=^358.22I^4^3
;;^UTILITY(U,$J,358.2,57,2,1,0)
;;=1^ ^28^1^2^^1
;;^UTILITY(U,$J,358.2,57,2,3,0)
;;=3^^^2^^1^^1^^1
;;^UTILITY(U,$J,358.2,57,2,4,0)
;;=2^ ^5^1^1
;;^UTILITY(U,$J,358.2,58,0)
;;=CPT CODES^102^^^^^1^0^SC^^4^0^^0^^0^3^2
;;^UTILITY(U,$J,358.2,58,1,0)
;;=^358.21I^2^2
;;^UTILITY(U,$J,358.2,58,1,1,0)
;;=1^2^2
;;^UTILITY(U,$J,358.2,58,1,2,0)
;;=2^2^54
;;^UTILITY(U,$J,358.2,58,2,0)
;;=^358.22I^3^3
;;^UTILITY(U,$J,358.2,58,2,1,0)
;;=2^ ^5^1^1^^0
;;^UTILITY(U,$J,358.2,58,2,2,0)
;;=3^ ^50^1^2^^1
;;^UTILITY(U,$J,358.2,58,2,3,0)
;;=1^ ^^2^^1^^1^^0
;;^UTILITY(U,$J,358.2,59,0)
;;=ICD-10 DIAGNOSES^103^^^^^4^0^SC^^6^0^1^0^^0^3^2
;;^UTILITY(U,$J,358.2,59,1,0)
;;=^358.21I^1^1
;;^UTILITY(U,$J,358.2,59,1,1,0)
;;=1^2^1
;;^UTILITY(U,$J,358.2,59,2,0)
;;=^358.22I^5^5
;;^UTILITY(U,$J,358.2,59,2,1,0)
;;=4^CODE^8^1^1^^0
;;^UTILITY(U,$J,358.2,59,2,2,0)
;;=3^DIAGNOSIS^95^1^2^^1
;;^UTILITY(U,$J,358.2,59,2,3,0)
;;=5^ADD^^2^^1^^1^7^0
;;^UTILITY(U,$J,358.2,59,2,4,0)
;;=1^P^^2^^1^^1^1^1
;;^UTILITY(U,$J,358.2,59,2,5,0)
;;=2^S^^2^^1^^1^2^0
;;^UTILITY(U,$J,358.2,60,0)
;;=CPT CODES^104^^R^^^1^0^BSC^^4^0^^0^^0^^2
;;^UTILITY(U,$J,358.2,60,1,0)
;;=^358.21I^1^1
;;^UTILITY(U,$J,358.2,60,1,1,0)
;;=1^3
;;^UTILITY(U,$J,358.2,60,2,0)
;;=^358.22I^3^3
;;^UTILITY(U,$J,358.2,60,2,1,0)
;;=1^x^5^2^1^1^0
;;^UTILITY(U,$J,358.2,60,2,2,0)
;;=2^CODE^5^1^1^^0
;;^UTILITY(U,$J,358.2,60,2,3,0)
;;=3^DESCRIPTION^50^1^2^2^1
;;^UTILITY(U,$J,358.2,61,0)
;;=VISIT TYPE^107^^^^^2^0^C^^8^0^^0^^0^3^2
;;^UTILITY(U,$J,358.2,61,1,0)
;;=^358.21I^1^1
;;^UTILITY(U,$J,358.2,61,1,1,0)
;;=1^2
;;^UTILITY(U,$J,358.2,61,2,0)
;;=^358.22I^4^3
;;^UTILITY(U,$J,358.2,61,2,1,0)
;;=1^ ^28^1^2^^1
;;^UTILITY(U,$J,358.2,61,2,3,0)
;;=3^^^2^^1^^1^^1
;;^UTILITY(U,$J,358.2,61,2,4,0)
;;=2^ ^5^1^1
;;^UTILITY(U,$J,358.2,62,0)
;;=ICD-10 DIAGNOSES^108^^^^^4^0^SC^^6^0^^0^^0^3^2
;;^UTILITY(U,$J,358.2,62,2,0)
;;=^358.22I^5^5
;;^UTILITY(U,$J,358.2,62,2,1,0)
;;=4^CODE^8^1^1^^0
;;^UTILITY(U,$J,358.2,62,2,2,0)
;;=3^DIAGNOSIS^64^1^2^^1
;;^UTILITY(U,$J,358.2,62,2,3,0)
;;=5^ADD^^2^^1^^1^7^0
;;^UTILITY(U,$J,358.2,62,2,4,0)
;;=1^P^^2^^1^^1^1^1
;;^UTILITY(U,$J,358.2,62,2,5,0)
;;=2^S^^2^^1^^1^2^0
;;^UTILITY(U,$J,358.2,63,0)
;;=VISIT TYPE^109^^^^^2^0^C^^8^0^^0^^0^3^2
;;^UTILITY(U,$J,358.2,63,1,0)
;;=^358.21I^1^1
;;^UTILITY(U,$J,358.2,63,1,1,0)
;;=1^2
;;^UTILITY(U,$J,358.2,63,2,0)
;;=^358.22I^4^3
;;^UTILITY(U,$J,358.2,63,2,1,0)
;;=1^ ^28^1^2^^1
;;^UTILITY(U,$J,358.2,63,2,3,0)
;;=3^^^2^^1^^1^^1
;;^UTILITY(U,$J,358.2,63,2,4,0)
;;=2^ ^5^1^1
;;^UTILITY(U,$J,358.2,64,0)
;;=CPT CODES^110^^^^^1^0^SC^^4^0^^0^^0^3^2
;;^UTILITY(U,$J,358.2,64,1,0)
;;=^358.21I^1^1
;;^UTILITY(U,$J,358.2,64,1,1,0)
;;=1^2^2
;;^UTILITY(U,$J,358.2,64,2,0)
;;=^358.22I^3^3
;;^UTILITY(U,$J,358.2,64,2,1,0)
;;=3^ ^5^1^1^^0
;;^UTILITY(U,$J,358.2,64,2,2,0)
;;=2^ ^40^1^2^^1
;;^UTILITY(U,$J,358.2,64,2,3,0)
;;=1^ ^^2^^1^^1^^0
;;^UTILITY(U,$J,358.2,65,0)
;;=ICD-10 DIAGNOSES^113^^^^^4^0^SC^^6^0^^0^^0^3^2
;;^UTILITY(U,$J,358.2,65,2,0)
;;=^358.22I^5^5
;;^UTILITY(U,$J,358.2,65,2,1,0)
;;=4^CODE^8^1^1^^0
;;^UTILITY(U,$J,358.2,65,2,2,0)
;;=3^DIAGNOSIS^64^1^2^^1
;;^UTILITY(U,$J,358.2,65,2,3,0)
;;=5^ADD^^2^^1^^1^7^0
;;^UTILITY(U,$J,358.2,65,2,4,0)
;;=1^P^^2^^1^^1^1^1
;;^UTILITY(U,$J,358.2,65,2,5,0)
;;=2^S^^2^^1^^1^2^0
;;^UTILITY(U,$J,358.2,66,0)
;;=VISIT TYPE^114^^^^^2^0^C^^8^0^^0^^0^3^2
;;^UTILITY(U,$J,358.2,66,1,0)
;;=^358.21I^1^1
;;^UTILITY(U,$J,358.2,66,1,1,0)
;;=1^2
;;^UTILITY(U,$J,358.2,66,2,0)
;;=^358.22I^4^3
;;^UTILITY(U,$J,358.2,66,2,1,0)
;;=1^ ^28^1^2^^1
;;^UTILITY(U,$J,358.2,66,2,3,0)
;;=3^^^2^^1^^1^^1
;;^UTILITY(U,$J,358.2,66,2,4,0)
;;=2^ ^5^1^1
;;^UTILITY(U,$J,358.2,67,0)
;;=CPT CODES^117^^^^^1^0^SC^^4^0^^0^^0^3^2
;;^UTILITY(U,$J,358.2,67,1,0)
;;=^358.21I^1^1
;;^UTILITY(U,$J,358.2,67,1,1,0)
;;=1^2^2
;;^UTILITY(U,$J,358.2,67,2,0)
;;=^358.22I^3^3
;;^UTILITY(U,$J,358.2,67,2,1,0)
;;=3^ ^5^1^1^^0
;;^UTILITY(U,$J,358.2,67,2,2,0)
;;=2^ ^40^1^2^^1
;;^UTILITY(U,$J,358.2,67,2,3,0)
;;=1^ ^^2^^1^^1^^0
;;^UTILITY(U,$J,358.2,68,0)
;;=ICD-10 DIAGNOSES^118^^^^^4^0^SC^^6^0^^0^^0^3^2
;;^UTILITY(U,$J,358.2,68,2,0)
;;=^358.22I^5^5
;;^UTILITY(U,$J,358.2,68,2,1,0)
;;=4^CODE^8^1^1^^0
;;^UTILITY(U,$J,358.2,68,2,2,0)
;;=3^DIAGNOSIS^64^1^2^^1
;;^UTILITY(U,$J,358.2,68,2,3,0)
;;=5^ADD^^2^^1^^1^7^0
;;^UTILITY(U,$J,358.2,68,2,4,0)
;;=1^P^^2^^1^^1^1^1
;;^UTILITY(U,$J,358.2,68,2,5,0)
;;=2^S^^2^^1^^1^2^0
;;^UTILITY(U,$J,358.2,69,0)
;;=CPT CODES^121^^^^^1^0^CSU^^4^0^2^0^^0^2^2
;;^UTILITY(U,$J,358.2,69,1,0)
;;=^358.21I^3^3
;;^UTILITY(U,$J,358.2,69,1,1,0)
;;=1^3^2
;;^UTILITY(U,$J,358.2,69,1,2,0)
;;=3^^91
;;^UTILITY(U,$J,358.2,69,1,3,0)
;;=2^3^54
;;^UTILITY(U,$J,358.2,69,2,0)
;;=^358.22I^3^3
;;^UTILITY(U,$J,358.2,69,2,1,0)
;;=2^ ^5^1^1^^0
;;^UTILITY(U,$J,358.2,69,2,2,0)
;;=3^ ^50^1^2^^1
;;^UTILITY(U,$J,358.2,69,2,3,0)
;;=1^ ^^2^^1^^1^^0
;;^UTILITY(U,$J,358.2,70,0)
;;=VISIT TYPE^122^^^^^2^0^C^^8^0^^0^^0^3^2
;;^UTILITY(U,$J,358.2,70,1,0)
;;=^358.21I^1^1
;;^UTILITY(U,$J,358.2,70,1,1,0)
;;=1^2
;;^UTILITY(U,$J,358.2,70,2,0)
;;=^358.22I^4^3
;;^UTILITY(U,$J,358.2,70,2,1,0)
;;=1^ ^40^1^2^^1
;;^UTILITY(U,$J,358.2,70,2,3,0)
;;=3^^^2^^1^^1^^1
;;^UTILITY(U,$J,358.2,70,2,4,0)
;;=2^ ^5^1^1
;;^UTILITY(U,$J,358.2,71,0)
;;=ICD-10 DIAGNOSES^123^^^^^4^0^SC^^6^0^1^0^^0^3^2
;;^UTILITY(U,$J,358.2,71,1,0)
;;=^358.21I^1^1
;;^UTILITY(U,$J,358.2,71,1,1,0)
;;=1^2^1
;;^UTILITY(U,$J,358.2,71,2,0)
;;=^358.22I^5^5
;;^UTILITY(U,$J,358.2,71,2,1,0)
;;=4^CODE^8^1^1^^0
;;^UTILITY(U,$J,358.2,71,2,2,0)
;;=3^DIAGNOSIS^95^1^2^^1
;;^UTILITY(U,$J,358.2,71,2,3,0)
;;=5^ADD^^2^^1^^1^7^0
;;^UTILITY(U,$J,358.2,71,2,4,0)
;;=1^P^^2^^1^^1^1^1
;;^UTILITY(U,$J,358.2,71,2,5,0)
;;=2^S^^2^^1^^1^2^0
;;^UTILITY(U,$J,358.2,72,0)
;;=CPT CODES^124^^^^^1^0^UC^^4^0^3^0^^0^3^2
;;^UTILITY(U,$J,358.2,72,1,0)
;;=^358.21I^3^3
;;^UTILITY(U,$J,358.2,72,1,1,0)
;;=1^3^0
;;^UTILITY(U,$J,358.2,72,1,2,0)
;;=2^3
;;^UTILITY(U,$J,358.2,72,1,3,0)
;;=3^3
;;^UTILITY(U,$J,358.2,72,2,0)
;;=^358.22I^3^3
;;^UTILITY(U,$J,358.2,72,2,1,0)
;;=1^ ^^2^^1^^1
;;^UTILITY(U,$J,358.2,72,2,2,0)
;;=2^ ^5^1^1^^1
;;^UTILITY(U,$J,358.2,72,2,3,0)
;;=3^ ^50^1^2^^1
;;^UTILITY(U,$J,358.2,73,0)
;;=VISIT TYPE^125^^^^^2^0^C^^8^0^^0^^0^3^2
;;^UTILITY(U,$J,358.2,73,1,0)
;;=^358.21I^1^1
;;^UTILITY(U,$J,358.2,73,1,1,0)
;;=1^2
;;^UTILITY(U,$J,358.2,73,2,0)
;;=^358.22I^4^3
;;^UTILITY(U,$J,358.2,73,2,1,0)
;;=1^ ^28^1^2^^1
;;^UTILITY(U,$J,358.2,73,2,3,0)
;;=3^^^2^^1^^1^^1
;;^UTILITY(U,$J,358.2,73,2,4,0)
;;=2^ ^5^1^1
;;^UTILITY(U,$J,358.2,74,0)
;;=ICD-10 DIAGNOSES^128^^^^^4^0^SC^^6^0^1^0^^0^3^2
;;^UTILITY(U,$J,358.2,74,1,0)
;;=^358.21I^1^1
;;^UTILITY(U,$J,358.2,74,1,1,0)
;;=1^2^1
;;^UTILITY(U,$J,358.2,74,2,0)
;;=^358.22I^5^5
;;^UTILITY(U,$J,358.2,74,2,1,0)
;;=4^CODE^8^1^1^^0
;;^UTILITY(U,$J,358.2,74,2,2,0)
;;=3^DIAGNOSIS^95^1^2^^1
;;^UTILITY(U,$J,358.2,74,2,3,0)
;;=5^ADD^^2^^1^^1^7^0
;;^UTILITY(U,$J,358.2,74,2,4,0)
;;=1^P^^2^^1^^1^1^1
;;^UTILITY(U,$J,358.2,74,2,5,0)
;;=2^S^^2^^1^^1^2^0
;;^UTILITY(U,$J,358.2,75,0)
;;=CPT CODES^131^^^^^1^0^CSU^^4^0^2^0^^0^2^2
;;^UTILITY(U,$J,358.2,75,1,0)
;;=^358.21I^3^3
;;^UTILITY(U,$J,358.2,75,1,1,0)
;;=1^3^2
;;^UTILITY(U,$J,358.2,75,1,2,0)
;;=3^^91
;;^UTILITY(U,$J,358.2,75,1,3,0)
;;=2^3^54
;;^UTILITY(U,$J,358.2,75,2,0)
;;=^358.22I^3^3
;;^UTILITY(U,$J,358.2,75,2,1,0)
;;=2^ ^5^1^1^^0
;;^UTILITY(U,$J,358.2,75,2,2,0)
;;=3^ ^50^1^2^^1
;;^UTILITY(U,$J,358.2,75,2,3,0)
;;=1^ ^^2^^1^^1^^0
;;^UTILITY(U,$J,358.2,76,0)
;;=VISIT TYPE^132^^^^^2^0^C^^8^0^^0^^0^3^2
;;^UTILITY(U,$J,358.2,76,1,0)
;;=^358.21I^1^1
;;^UTILITY(U,$J,358.2,76,1,1,0)
;;=1^2
;;^UTILITY(U,$J,358.2,76,2,0)
;;=^358.22I^4^3
;;^UTILITY(U,$J,358.2,76,2,1,0)
;;=1^ ^45^1^2^^1
;;^UTILITY(U,$J,358.2,76,2,3,0)
;;=3^^^2^^1^^1^^1
;;^UTILITY(U,$J,358.2,76,2,4,0)
;;=2^ ^5^1^1
;;^UTILITY(U,$J,358.2,77,0)
;;=ICD-10 DIAGNOSES^133^^^^^4^0^SC^^6^0^1^0^^0^3^2
;;^UTILITY(U,$J,358.2,77,1,0)
;;=^358.21I^1^1
;;^UTILITY(U,$J,358.2,77,1,1,0)
;;=1^2^1
;;^UTILITY(U,$J,358.2,77,2,0)
;;=^358.22I^5^5
;;^UTILITY(U,$J,358.2,77,2,1,0)
;;=4^CODE^8^1^1^^0
;;^UTILITY(U,$J,358.2,77,2,2,0)
;;=3^DIAGNOSIS^95^1^2^^1
;;^UTILITY(U,$J,358.2,77,2,3,0)
;;=5^ADD^^2^^1^^1^7^0
;;^UTILITY(U,$J,358.2,77,2,4,0)
;;=1^P^^2^^1^^1^1^1
;;^UTILITY(U,$J,358.2,77,2,5,0)
;;=2^S^^2^^1^^1^2^0
;;^UTILITY(U,$J,358.2,78,0)
;;=CPT CODES^136^^^^^3^0^CU^^4^1^^0^^0
;;^UTILITY(U,$J,358.2,78,2,0)
;;=^358.22I^3^3
;;^UTILITY(U,$J,358.2,78,2,1,0)
;;=1^CODE^5^1^1^^0
;;^UTILITY(U,$J,358.2,78,2,2,0)
;;=2^PROCEDURE^45^1^2^^1
;;^UTILITY(U,$J,358.2,78,2,3,0)
;;=3^x^^2^^1
;;^UTILITY(U,$J,358.2,79,0)
;;=ICD-10 DIAGNOSES^137^^^^^4^0^SC^^6^0^1^0^^0^3^2
;;^UTILITY(U,$J,358.2,79,1,0)
;;=^358.21I^1^1
;;^UTILITY(U,$J,358.2,79,1,1,0)
;;=1^2^1
;;^UTILITY(U,$J,358.2,79,2,0)
;;=^358.22I^5^5
;;^UTILITY(U,$J,358.2,79,2,1,0)
;;=4^CODE^8^1^1^^0
;;^UTILITY(U,$J,358.2,79,2,2,0)
;;=3^DIAGNOSIS^95^1^2^^1
;;^UTILITY(U,$J,358.2,79,2,3,0)
;;=5^ADD^^2^^1^^1^7^0
;;^UTILITY(U,$J,358.2,79,2,4,0)
;;=1^P^^2^^1^^1^1^1
;;^UTILITY(U,$J,358.2,79,2,5,0)
;;=2^S^^2^^1^^1^2^0
;;^UTILITY(U,$J,358.2,80,0)
;;=CPT CODES^140^^^^^1^0^UBC^^4^0^2^0^^0^3^2
;;^UTILITY(U,$J,358.2,80,1,0)
;;=^358.21I^2^2
;;^UTILITY(U,$J,358.2,80,1,1,0)
;;=1^1^4
;;^UTILITY(U,$J,358.2,80,1,2,0)
;;=2^2^59
;;^UTILITY(U,$J,358.2,80,2,0)
;;=^358.22I^3^3
;;^UTILITY(U,$J,358.2,80,2,1,0)
;;=1^ ^^2^^1^^1
;;^UTILITY(U,$J,358.2,80,2,2,0)
;;=2^ ^5^1^1^^1
;;^UTILITY(U,$J,358.2,80,2,3,0)
;;=3^ ^40^1^2^^1
;;^UTILITY(U,$J,358.2,81,0)
;;=ICD-10 DIAGNOSES^141^^^^^4^0^SC^^6^0^1^0^^0^3^2
;;^UTILITY(U,$J,358.2,81,1,0)
;;=^358.21I^1^1
;;^UTILITY(U,$J,358.2,81,1,1,0)
;;=1^2^1
;;^UTILITY(U,$J,358.2,81,2,0)
;;=^358.22I^5^5
;;^UTILITY(U,$J,358.2,81,2,1,0)
;;=4^CODE^8^1^1^^0
;;^UTILITY(U,$J,358.2,81,2,2,0)
;;=3^DIAGNOSIS^95^1^2^^1
;;^UTILITY(U,$J,358.2,81,2,3,0)
;;=5^ADD^^2^^1^^1^7^0
;;^UTILITY(U,$J,358.2,81,2,4,0)
;;=1^P^^2^^1^^1^1^1
;;^UTILITY(U,$J,358.2,81,2,5,0)
;;=2^S^^2^^1^^1^2^0
;;^UTILITY(U,$J,358.2,82,0)
;;=VISIT TYPE^142^^^^^1^0^C^^8^0^^0^^0^3^2
;;^UTILITY(U,$J,358.2,82,1,0)
;;=^358.21I^2^2
;;^UTILITY(U,$J,358.2,82,1,1,0)
;;=1
;;^UTILITY(U,$J,358.2,82,1,2,0)
;;=2
;;^UTILITY(U,$J,358.2,82,2,0)
;;=^358.22I^4^3
;;^UTILITY(U,$J,358.2,82,2,1,0)
;;=1^ ^35^1^2^^1
;;^UTILITY(U,$J,358.2,82,2,3,0)
;;=3^^^2^^1^^1^^1
;;^UTILITY(U,$J,358.2,82,2,4,0)
;;=2^ ^5^1^1
;;^UTILITY(U,$J,358.2,83,0)
;;=ICD-10 DIAGNOSES^145^^^^^4^0^SC^^6^0^1^0^^0^3^2
;;^UTILITY(U,$J,358.2,83,1,0)
;;=^358.21I^1^1
;;^UTILITY(U,$J,358.2,83,1,1,0)
;;=1^2^1
;;^UTILITY(U,$J,358.2,83,2,0)
;;=^358.22I^5^5
;;^UTILITY(U,$J,358.2,83,2,1,0)
;;=4^CODE^8^1^1^^0
;;^UTILITY(U,$J,358.2,83,2,2,0)
;;=3^DIAGNOSIS^95^1^2^^1
;;^UTILITY(U,$J,358.2,83,2,3,0)
;;=5^ADD^^2^^1^^1^7^0
;;^UTILITY(U,$J,358.2,83,2,4,0)
;;=1^P^^2^^1^^1^1^1
;;^UTILITY(U,$J,358.2,83,2,5,0)
;;=2^S^^2^^1^^1^2^0
;;^UTILITY(U,$J,358.2,84,0)
;;=CPT CODES^146^^^^^1^0^BSC^^4^0^^0^^0^3^2
;;^UTILITY(U,$J,358.2,84,2,0)
;;=^358.22I^3^3
;;^UTILITY(U,$J,358.2,84,2,1,0)
;;=4^ ^5^1^1^^0
;;^UTILITY(U,$J,358.2,84,2,2,0)
;;=2^ ^65^1^2^^1
;;^UTILITY(U,$J,358.2,84,2,3,0)
;;=1^ ^^2^^1^^1^^0
;;^UTILITY(U,$J,358.2,85,0)
;;=CPT CODES^147^^^^^3^0^CU^^4^1^^0^^0
;;^UTILITY(U,$J,358.2,85,2,0)
;;=^358.22I^3^3
;;^UTILITY(U,$J,358.2,85,2,1,0)
;;=1^CODE^5^1^1^^0
;;^UTILITY(U,$J,358.2,85,2,2,0)
;;=2^PROCEDURE^40^1^2^^1
;;^UTILITY(U,$J,358.2,85,2,3,0)
;;=3^x^^2^^2
;;^UTILITY(U,$J,358.2,86,0)
;;=ICD-10 DIAGNOSES^150^^^^^4^0^SC^^6^0^1^0^^0^3^2
;;^UTILITY(U,$J,358.2,86,1,0)
;;=^358.21I^1^1
;;^UTILITY(U,$J,358.2,86,1,1,0)
;;=1^2^1
;;^UTILITY(U,$J,358.2,86,2,0)
;;=^358.22I^5^5
;;^UTILITY(U,$J,358.2,86,2,1,0)
;;=4^CODE^8^1^1^^0
;;^UTILITY(U,$J,358.2,86,2,2,0)
;;=3^DIAGNOSIS^95^1^2^^1
;;^UTILITY(U,$J,358.2,86,2,3,0)
;;=5^ADD^^2^^1^^1^7^0
;;^UTILITY(U,$J,358.2,86,2,4,0)
;;=1^P^^2^^1^^1^1^1
;;^UTILITY(U,$J,358.2,86,2,5,0)
;;=2^S^^2^^1^^1^2^0
;;^UTILITY(U,$J,358.2,87,0)
;;=VISIT TYPE^151^^^^^2^0^C^^8^0^^0^^0^3^2
;;^UTILITY(U,$J,358.2,87,1,0)
;;=^358.21I^1^1
;;^UTILITY(U,$J,358.2,87,1,1,0)
;;=1^2
;;^UTILITY(U,$J,358.2,87,2,0)
;;=^358.22I^4^3
;;^UTILITY(U,$J,358.2,87,2,1,0)
;;=1^ ^45^1^2^^1
;;^UTILITY(U,$J,358.2,87,2,3,0)
;;=3^^^2^^1^^1^^1
;;^UTILITY(U,$J,358.2,87,2,4,0)
;;=2^ ^5^1^1
;;^UTILITY(U,$J,358.2,88,0)
;;=CPT CODES^152^^^^^3^0^CU^^4^1^^0^^0^3^2
;;^UTILITY(U,$J,358.2,88,2,0)
;;=^358.22I^3^3
;;^UTILITY(U,$J,358.2,88,2,1,0)
;;=1^CODE^5^1^1^^0
;;^UTILITY(U,$J,358.2,88,2,2,0)
;;=2^PROCEDURE^45^1^2^^1
;;^UTILITY(U,$J,358.2,88,2,3,0)
;;=3^x^^2^^2
;;^UTILITY(U,$J,358.2,89,0)
;;=VISIT TYPE^154^^^^^2^0^C^^8^0^^0^^0^3^2
;;^UTILITY(U,$J,358.2,89,1,0)
;;=^358.21I^1^1
;;^UTILITY(U,$J,358.2,89,1,1,0)
;;=1^2
;;^UTILITY(U,$J,358.2,89,2,0)
;;=^358.22I^4^3
;;^UTILITY(U,$J,358.2,89,2,1,0)
;;=1^ ^28^1^2^^1
;;^UTILITY(U,$J,358.2,89,2,3,0)
;;=3^^^2^^1^^1^^1
;;^UTILITY(U,$J,358.2,89,2,4,0)
;;=2^ ^5^1^1
;;^UTILITY(U,$J,358.2,90,0)
;;=ICD-10 DIAGNOSES^156^^^^^4^0^SC^^6^0^1^0^^0^3^2
;;^UTILITY(U,$J,358.2,90,1,0)
;;=^358.21I^1^1
;;^UTILITY(U,$J,358.2,90,1,1,0)
;;=1^2^1
;;^UTILITY(U,$J,358.2,90,2,0)
;;=^358.22I^5^5
;;^UTILITY(U,$J,358.2,90,2,1,0)
;;=4^CODE^8^1^1^^0
;;^UTILITY(U,$J,358.2,90,2,2,0)
;;=3^DIAGNOSIS^95^1^2^^1
;;^UTILITY(U,$J,358.2,90,2,3,0)
;;=5^ADD^^2^^1^^1^7^0
;;^UTILITY(U,$J,358.2,90,2,4,0)
;;=1^P^^2^^1^^1^1^1
;;^UTILITY(U,$J,358.2,90,2,5,0)
;;=2^S^^2^^1^^1^2^0
;;^UTILITY(U,$J,358.2,91,0)
;;=ICD-10 DIAGNOSES^159^^^^^4^0^SC^^6^0^1^0^^0^3^2
;;^UTILITY(U,$J,358.2,91,1,0)
;;=^358.21I^1^1
;;^UTILITY(U,$J,358.2,91,1,1,0)
;;=1^2^1
;;^UTILITY(U,$J,358.2,91,2,0)
;;=^358.22I^5^5
;;^UTILITY(U,$J,358.2,91,2,1,0)
;;=4^CODE^8^1^1^^0
;;^UTILITY(U,$J,358.2,91,2,2,0)
;;=3^DIAGNOSIS^95^1^2^^1
;;^UTILITY(U,$J,358.2,91,2,3,0)
;;=5^ADD^^2^^1^^1^7^0
;;^UTILITY(U,$J,358.2,91,2,4,0)
;;=1^P^^2^^1^^1^1^1
;;^UTILITY(U,$J,358.2,91,2,5,0)
;;=2^S^^2^^1^^1^2^0
;;^UTILITY(U,$J,358.2,92,0)
;;=CPT CODES^162^^^^^1^0^BSC^^4^0^^0^^0^3^2
;;^UTILITY(U,$J,358.2,92,2,0)
;;=^358.22I^3^3
;;^UTILITY(U,$J,358.2,92,2,1,0)
;;=4^ ^5^1^1^^0
;;^UTILITY(U,$J,358.2,92,2,2,0)
;;=2^ ^50^1^2^^1
;;^UTILITY(U,$J,358.2,92,2,3,0)
;;=1^ ^^2^^1^^1^^0
;;^UTILITY(U,$J,358.2,93,0)
;;=ICD-10 DIAGNOSES^163^^^^^4^0^SC^^6^0^1^0^^0^3^2
;;^UTILITY(U,$J,358.2,93,1,0)
;;=^358.21I^1^1
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI007 19780 printed Sep 23, 2025@19:15:01 Page 2
IBDEI007 ; ; 01-AUG-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
+2 if 'DIFQR(358.2)
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.2,46,2,3,0)
+2 ;;=1^ ^^2^^1^^1^^0
+3 ;;^UTILITY(U,$J,358.2,47,0)
+4 ;;=CPT CODES^82^^^^^3^0^CU^^4^1^^0^^0^3^2
+5 ;;^UTILITY(U,$J,358.2,47,2,0)
+6 ;;=^358.22I^3^3
+7 ;;^UTILITY(U,$J,358.2,47,2,1,0)
+8 ;;=1^CODE^5^1^1^^0
+9 ;;^UTILITY(U,$J,358.2,47,2,2,0)
+10 ;;=2^PROCEDURE^40^1^2^^1
+11 ;;^UTILITY(U,$J,358.2,47,2,3,0)
+12 ;;=3^x^^2^^2
+13 ;;^UTILITY(U,$J,358.2,48,0)
+14 ;;=ICD-10 DIAGNOSES^84^^^^^4^0^SC^^6^0^1^0^^0^3^2
+15 ;;^UTILITY(U,$J,358.2,48,1,0)
+16 ;;=^358.21I^1^1
+17 ;;^UTILITY(U,$J,358.2,48,1,1,0)
+18 ;;=1^2^1
+19 ;;^UTILITY(U,$J,358.2,48,2,0)
+20 ;;=^358.22I^5^5
+21 ;;^UTILITY(U,$J,358.2,48,2,1,0)
+22 ;;=4^CODE^8^1^1^^0
+23 ;;^UTILITY(U,$J,358.2,48,2,2,0)
+24 ;;=3^DIAGNOSIS^95^1^2^^1
+25 ;;^UTILITY(U,$J,358.2,48,2,3,0)
+26 ;;=5^ADD^^2^^1^^1^7^0
+27 ;;^UTILITY(U,$J,358.2,48,2,4,0)
+28 ;;=1^P^^2^^1^^1^1^1
+29 ;;^UTILITY(U,$J,358.2,48,2,5,0)
+30 ;;=2^S^^2^^1^^1^2^0
+31 ;;^UTILITY(U,$J,358.2,49,0)
+32 ;;=CPT CODES^85^^^^^1^0^SC^^4^0^^0^^0^3^2
+33 ;;^UTILITY(U,$J,358.2,49,1,0)
+34 ;;=^358.21I^1^1
+35 ;;^UTILITY(U,$J,358.2,49,1,1,0)
+36 ;;=1^2^2
+37 ;;^UTILITY(U,$J,358.2,49,2,0)
+38 ;;=^358.22I^3^3
+39 ;;^UTILITY(U,$J,358.2,49,2,1,0)
+40 ;;=3^ ^5^1^1^^0
+41 ;;^UTILITY(U,$J,358.2,49,2,2,0)
+42 ;;=2^ ^50^1^2^^1
+43 ;;^UTILITY(U,$J,358.2,49,2,3,0)
+44 ;;=1^ ^^2^^1^^1^^0
+45 ;;^UTILITY(U,$J,358.2,50,0)
+46 ;;=ICD-10 DIAGNOSES^88^^^^^4^0^SC^^6^0^^0^^0^3^2
+47 ;;^UTILITY(U,$J,358.2,50,2,0)
+48 ;;=^358.22I^5^5
+49 ;;^UTILITY(U,$J,358.2,50,2,1,0)
+50 ;;=4^CODE^8^1^1^^0
+51 ;;^UTILITY(U,$J,358.2,50,2,2,0)
+52 ;;=3^DIAGNOSIS^64^1^2^^1
+53 ;;^UTILITY(U,$J,358.2,50,2,3,0)
+54 ;;=5^ADD^^2^^1^^1^7^0
+55 ;;^UTILITY(U,$J,358.2,50,2,4,0)
+56 ;;=1^P^^2^^1^^1^1^1
+57 ;;^UTILITY(U,$J,358.2,50,2,5,0)
+58 ;;=2^S^^2^^1^^1^2^0
+59 ;;^UTILITY(U,$J,358.2,51,0)
+60 ;;=VISIT TYPE^89^^^^^2^0^C^^8^0^2^0^^0^3^2
+61 ;;^UTILITY(U,$J,358.2,51,1,0)
+62 ;;=^358.21I^2^2
+63 ;;^UTILITY(U,$J,358.2,51,1,1,0)
+64 ;;=1^2^1
+65 ;;^UTILITY(U,$J,358.2,51,1,2,0)
+66 ;;=2^2^64
+67 ;;^UTILITY(U,$J,358.2,51,2,0)
+68 ;;=^358.22I^4^3
+69 ;;^UTILITY(U,$J,358.2,51,2,1,0)
+70 ;;=1^ ^45^1^2^^1
+71 ;;^UTILITY(U,$J,358.2,51,2,3,0)
+72 ;;=3^^^2^^1^^1^^1
+73 ;;^UTILITY(U,$J,358.2,51,2,4,0)
+74 ;;=2^ ^5^1^1
+75 ;;^UTILITY(U,$J,358.2,52,0)
+76 ;;=CPT CODES^92^^^^^1^0^SC^^4^0^2^0^^0^3^2
+77 ;;^UTILITY(U,$J,358.2,52,1,0)
+78 ;;=^358.21I^2^2
+79 ;;^UTILITY(U,$J,358.2,52,1,1,0)
+80 ;;=1^2^2
+81 ;;^UTILITY(U,$J,358.2,52,1,2,0)
+82 ;;=2^2^69
+83 ;;^UTILITY(U,$J,358.2,52,2,0)
+84 ;;=^358.22I^3^3
+85 ;;^UTILITY(U,$J,358.2,52,2,1,0)
+86 ;;=3^ ^5^1^1^^0
+87 ;;^UTILITY(U,$J,358.2,52,2,2,0)
+88 ;;=2^ ^50^1^2^^1
+89 ;;^UTILITY(U,$J,358.2,52,2,3,0)
+90 ;;=1^ ^^2^^1^^1^^0
+91 ;;^UTILITY(U,$J,358.2,53,0)
+92 ;;=ICD-10 DIAGNOSES^93^^^^^4^0^SC^^6^0^1^0^^0^3^2
+93 ;;^UTILITY(U,$J,358.2,53,1,0)
+94 ;;=^358.21I^1^1
+95 ;;^UTILITY(U,$J,358.2,53,1,1,0)
+96 ;;=1^2^1
+97 ;;^UTILITY(U,$J,358.2,53,2,0)
+98 ;;=^358.22I^5^5
+99 ;;^UTILITY(U,$J,358.2,53,2,1,0)
+100 ;;=4^CODE^8^1^1^^0
+101 ;;^UTILITY(U,$J,358.2,53,2,2,0)
+102 ;;=3^DIAGNOSIS^95^1^2^^1
+103 ;;^UTILITY(U,$J,358.2,53,2,3,0)
+104 ;;=5^ADD^^2^^1^^1^7^0
+105 ;;^UTILITY(U,$J,358.2,53,2,4,0)
+106 ;;=1^P^^2^^1^^1^1^1
+107 ;;^UTILITY(U,$J,358.2,53,2,5,0)
+108 ;;=2^S^^2^^1^^1^2^0
+109 ;;^UTILITY(U,$J,358.2,54,0)
+110 ;;=VISIT TYPE^94^^^^^2^0^C^^8^0^^0^^0^3^2
+111 ;;^UTILITY(U,$J,358.2,54,1,0)
+112 ;;=^358.21I^1^1
+113 ;;^UTILITY(U,$J,358.2,54,1,1,0)
+114 ;;=1^2
+115 ;;^UTILITY(U,$J,358.2,54,2,0)
+116 ;;=^358.22I^4^3
+117 ;;^UTILITY(U,$J,358.2,54,2,1,0)
+118 ;;=1^ ^40^1^2^^1
+119 ;;^UTILITY(U,$J,358.2,54,2,3,0)
+120 ;;=3^^^2^^1^^1^^1
+121 ;;^UTILITY(U,$J,358.2,54,2,4,0)
+122 ;;=2^ ^5^1^1
+123 ;;^UTILITY(U,$J,358.2,55,0)
+124 ;;=CPT CODES^97^^^^^1^0^CSU^^4^0^2^0^^0^2^2
+125 ;;^UTILITY(U,$J,358.2,55,1,0)
+126 ;;=^358.21I^3^3
+127 ;;^UTILITY(U,$J,358.2,55,1,1,0)
+128 ;;=1^2^2
+129 ;;^UTILITY(U,$J,358.2,55,1,2,0)
+130 ;;=3^^91
+131 ;;^UTILITY(U,$J,358.2,55,1,3,0)
+132 ;;=2^3^64
+133 ;;^UTILITY(U,$J,358.2,55,2,0)
+134 ;;=^358.22I^3^3
+135 ;;^UTILITY(U,$J,358.2,55,2,1,0)
+136 ;;=2^ ^5^1^1^^0
+137 ;;^UTILITY(U,$J,358.2,55,2,2,0)
+138 ;;=3^ ^50^1^2^^1
+139 ;;^UTILITY(U,$J,358.2,55,2,3,0)
+140 ;;=1^ ^^2^^1^^1^^0
+141 ;;^UTILITY(U,$J,358.2,56,0)
+142 ;;=ICD-10 DIAGNOSES^98^^^^^4^0^SC^^6^0^1^0^^0^3^2
+143 ;;^UTILITY(U,$J,358.2,56,1,0)
+144 ;;=^358.21I^1^1
+145 ;;^UTILITY(U,$J,358.2,56,1,1,0)
+146 ;;=1^2^1
+147 ;;^UTILITY(U,$J,358.2,56,2,0)
+148 ;;=^358.22I^5^5
+149 ;;^UTILITY(U,$J,358.2,56,2,1,0)
+150 ;;=4^CODE^8^1^1^^0
+151 ;;^UTILITY(U,$J,358.2,56,2,2,0)
+152 ;;=3^DIAGNOSIS^95^1^2^^1
+153 ;;^UTILITY(U,$J,358.2,56,2,3,0)
+154 ;;=5^ADD^^2^^1^^1^7^0
+155 ;;^UTILITY(U,$J,358.2,56,2,4,0)
+156 ;;=1^P^^2^^1^^1^1^1
+157 ;;^UTILITY(U,$J,358.2,56,2,5,0)
+158 ;;=2^S^^2^^1^^1^2^0
+159 ;;^UTILITY(U,$J,358.2,57,0)
+160 ;;=VISIT TYPE^101^^^^^2^0^C^^8^0^^0^^0^3^2
+161 ;;^UTILITY(U,$J,358.2,57,1,0)
+162 ;;=^358.21I^1^1
+163 ;;^UTILITY(U,$J,358.2,57,1,1,0)
+164 ;;=1^2
+165 ;;^UTILITY(U,$J,358.2,57,2,0)
+166 ;;=^358.22I^4^3
+167 ;;^UTILITY(U,$J,358.2,57,2,1,0)
+168 ;;=1^ ^28^1^2^^1
+169 ;;^UTILITY(U,$J,358.2,57,2,3,0)
+170 ;;=3^^^2^^1^^1^^1
+171 ;;^UTILITY(U,$J,358.2,57,2,4,0)
+172 ;;=2^ ^5^1^1
+173 ;;^UTILITY(U,$J,358.2,58,0)
+174 ;;=CPT CODES^102^^^^^1^0^SC^^4^0^^0^^0^3^2
+175 ;;^UTILITY(U,$J,358.2,58,1,0)
+176 ;;=^358.21I^2^2
+177 ;;^UTILITY(U,$J,358.2,58,1,1,0)
+178 ;;=1^2^2
+179 ;;^UTILITY(U,$J,358.2,58,1,2,0)
+180 ;;=2^2^54
+181 ;;^UTILITY(U,$J,358.2,58,2,0)
+182 ;;=^358.22I^3^3
+183 ;;^UTILITY(U,$J,358.2,58,2,1,0)
+184 ;;=2^ ^5^1^1^^0
+185 ;;^UTILITY(U,$J,358.2,58,2,2,0)
+186 ;;=3^ ^50^1^2^^1
+187 ;;^UTILITY(U,$J,358.2,58,2,3,0)
+188 ;;=1^ ^^2^^1^^1^^0
+189 ;;^UTILITY(U,$J,358.2,59,0)
+190 ;;=ICD-10 DIAGNOSES^103^^^^^4^0^SC^^6^0^1^0^^0^3^2
+191 ;;^UTILITY(U,$J,358.2,59,1,0)
+192 ;;=^358.21I^1^1
+193 ;;^UTILITY(U,$J,358.2,59,1,1,0)
+194 ;;=1^2^1
+195 ;;^UTILITY(U,$J,358.2,59,2,0)
+196 ;;=^358.22I^5^5
+197 ;;^UTILITY(U,$J,358.2,59,2,1,0)
+198 ;;=4^CODE^8^1^1^^0
+199 ;;^UTILITY(U,$J,358.2,59,2,2,0)
+200 ;;=3^DIAGNOSIS^95^1^2^^1
+201 ;;^UTILITY(U,$J,358.2,59,2,3,0)
+202 ;;=5^ADD^^2^^1^^1^7^0
+203 ;;^UTILITY(U,$J,358.2,59,2,4,0)
+204 ;;=1^P^^2^^1^^1^1^1
+205 ;;^UTILITY(U,$J,358.2,59,2,5,0)
+206 ;;=2^S^^2^^1^^1^2^0
+207 ;;^UTILITY(U,$J,358.2,60,0)
+208 ;;=CPT CODES^104^^R^^^1^0^BSC^^4^0^^0^^0^^2
+209 ;;^UTILITY(U,$J,358.2,60,1,0)
+210 ;;=^358.21I^1^1
+211 ;;^UTILITY(U,$J,358.2,60,1,1,0)
+212 ;;=1^3
+213 ;;^UTILITY(U,$J,358.2,60,2,0)
+214 ;;=^358.22I^3^3
+215 ;;^UTILITY(U,$J,358.2,60,2,1,0)
+216 ;;=1^x^5^2^1^1^0
+217 ;;^UTILITY(U,$J,358.2,60,2,2,0)
+218 ;;=2^CODE^5^1^1^^0
+219 ;;^UTILITY(U,$J,358.2,60,2,3,0)
+220 ;;=3^DESCRIPTION^50^1^2^2^1
+221 ;;^UTILITY(U,$J,358.2,61,0)
+222 ;;=VISIT TYPE^107^^^^^2^0^C^^8^0^^0^^0^3^2
+223 ;;^UTILITY(U,$J,358.2,61,1,0)
+224 ;;=^358.21I^1^1
+225 ;;^UTILITY(U,$J,358.2,61,1,1,0)
+226 ;;=1^2
+227 ;;^UTILITY(U,$J,358.2,61,2,0)
+228 ;;=^358.22I^4^3
+229 ;;^UTILITY(U,$J,358.2,61,2,1,0)
+230 ;;=1^ ^28^1^2^^1
+231 ;;^UTILITY(U,$J,358.2,61,2,3,0)
+232 ;;=3^^^2^^1^^1^^1
+233 ;;^UTILITY(U,$J,358.2,61,2,4,0)
+234 ;;=2^ ^5^1^1
+235 ;;^UTILITY(U,$J,358.2,62,0)
+236 ;;=ICD-10 DIAGNOSES^108^^^^^4^0^SC^^6^0^^0^^0^3^2
+237 ;;^UTILITY(U,$J,358.2,62,2,0)
+238 ;;=^358.22I^5^5
+239 ;;^UTILITY(U,$J,358.2,62,2,1,0)
+240 ;;=4^CODE^8^1^1^^0
+241 ;;^UTILITY(U,$J,358.2,62,2,2,0)
+242 ;;=3^DIAGNOSIS^64^1^2^^1
+243 ;;^UTILITY(U,$J,358.2,62,2,3,0)
+244 ;;=5^ADD^^2^^1^^1^7^0
+245 ;;^UTILITY(U,$J,358.2,62,2,4,0)
+246 ;;=1^P^^2^^1^^1^1^1
+247 ;;^UTILITY(U,$J,358.2,62,2,5,0)
+248 ;;=2^S^^2^^1^^1^2^0
+249 ;;^UTILITY(U,$J,358.2,63,0)
+250 ;;=VISIT TYPE^109^^^^^2^0^C^^8^0^^0^^0^3^2
+251 ;;^UTILITY(U,$J,358.2,63,1,0)
+252 ;;=^358.21I^1^1
+253 ;;^UTILITY(U,$J,358.2,63,1,1,0)
+254 ;;=1^2
+255 ;;^UTILITY(U,$J,358.2,63,2,0)
+256 ;;=^358.22I^4^3
+257 ;;^UTILITY(U,$J,358.2,63,2,1,0)
+258 ;;=1^ ^28^1^2^^1
+259 ;;^UTILITY(U,$J,358.2,63,2,3,0)
+260 ;;=3^^^2^^1^^1^^1
+261 ;;^UTILITY(U,$J,358.2,63,2,4,0)
+262 ;;=2^ ^5^1^1
+263 ;;^UTILITY(U,$J,358.2,64,0)
+264 ;;=CPT CODES^110^^^^^1^0^SC^^4^0^^0^^0^3^2
+265 ;;^UTILITY(U,$J,358.2,64,1,0)
+266 ;;=^358.21I^1^1
+267 ;;^UTILITY(U,$J,358.2,64,1,1,0)
+268 ;;=1^2^2
+269 ;;^UTILITY(U,$J,358.2,64,2,0)
+270 ;;=^358.22I^3^3
+271 ;;^UTILITY(U,$J,358.2,64,2,1,0)
+272 ;;=3^ ^5^1^1^^0
+273 ;;^UTILITY(U,$J,358.2,64,2,2,0)
+274 ;;=2^ ^40^1^2^^1
+275 ;;^UTILITY(U,$J,358.2,64,2,3,0)
+276 ;;=1^ ^^2^^1^^1^^0
+277 ;;^UTILITY(U,$J,358.2,65,0)
+278 ;;=ICD-10 DIAGNOSES^113^^^^^4^0^SC^^6^0^^0^^0^3^2
+279 ;;^UTILITY(U,$J,358.2,65,2,0)
+280 ;;=^358.22I^5^5
+281 ;;^UTILITY(U,$J,358.2,65,2,1,0)
+282 ;;=4^CODE^8^1^1^^0
+283 ;;^UTILITY(U,$J,358.2,65,2,2,0)
+284 ;;=3^DIAGNOSIS^64^1^2^^1
+285 ;;^UTILITY(U,$J,358.2,65,2,3,0)
+286 ;;=5^ADD^^2^^1^^1^7^0
+287 ;;^UTILITY(U,$J,358.2,65,2,4,0)
+288 ;;=1^P^^2^^1^^1^1^1
+289 ;;^UTILITY(U,$J,358.2,65,2,5,0)
+290 ;;=2^S^^2^^1^^1^2^0
+291 ;;^UTILITY(U,$J,358.2,66,0)
+292 ;;=VISIT TYPE^114^^^^^2^0^C^^8^0^^0^^0^3^2
+293 ;;^UTILITY(U,$J,358.2,66,1,0)
+294 ;;=^358.21I^1^1
+295 ;;^UTILITY(U,$J,358.2,66,1,1,0)
+296 ;;=1^2
+297 ;;^UTILITY(U,$J,358.2,66,2,0)
+298 ;;=^358.22I^4^3
+299 ;;^UTILITY(U,$J,358.2,66,2,1,0)
+300 ;;=1^ ^28^1^2^^1
+301 ;;^UTILITY(U,$J,358.2,66,2,3,0)
+302 ;;=3^^^2^^1^^1^^1
+303 ;;^UTILITY(U,$J,358.2,66,2,4,0)
+304 ;;=2^ ^5^1^1
+305 ;;^UTILITY(U,$J,358.2,67,0)
+306 ;;=CPT CODES^117^^^^^1^0^SC^^4^0^^0^^0^3^2
+307 ;;^UTILITY(U,$J,358.2,67,1,0)
+308 ;;=^358.21I^1^1
+309 ;;^UTILITY(U,$J,358.2,67,1,1,0)
+310 ;;=1^2^2
+311 ;;^UTILITY(U,$J,358.2,67,2,0)
+312 ;;=^358.22I^3^3
+313 ;;^UTILITY(U,$J,358.2,67,2,1,0)
+314 ;;=3^ ^5^1^1^^0
+315 ;;^UTILITY(U,$J,358.2,67,2,2,0)
+316 ;;=2^ ^40^1^2^^1
+317 ;;^UTILITY(U,$J,358.2,67,2,3,0)
+318 ;;=1^ ^^2^^1^^1^^0
+319 ;;^UTILITY(U,$J,358.2,68,0)
+320 ;;=ICD-10 DIAGNOSES^118^^^^^4^0^SC^^6^0^^0^^0^3^2
+321 ;;^UTILITY(U,$J,358.2,68,2,0)
+322 ;;=^358.22I^5^5
+323 ;;^UTILITY(U,$J,358.2,68,2,1,0)
+324 ;;=4^CODE^8^1^1^^0
+325 ;;^UTILITY(U,$J,358.2,68,2,2,0)
+326 ;;=3^DIAGNOSIS^64^1^2^^1
+327 ;;^UTILITY(U,$J,358.2,68,2,3,0)
+328 ;;=5^ADD^^2^^1^^1^7^0
+329 ;;^UTILITY(U,$J,358.2,68,2,4,0)
+330 ;;=1^P^^2^^1^^1^1^1
+331 ;;^UTILITY(U,$J,358.2,68,2,5,0)
+332 ;;=2^S^^2^^1^^1^2^0
+333 ;;^UTILITY(U,$J,358.2,69,0)
+334 ;;=CPT CODES^121^^^^^1^0^CSU^^4^0^2^0^^0^2^2
+335 ;;^UTILITY(U,$J,358.2,69,1,0)
+336 ;;=^358.21I^3^3
+337 ;;^UTILITY(U,$J,358.2,69,1,1,0)
+338 ;;=1^3^2
+339 ;;^UTILITY(U,$J,358.2,69,1,2,0)
+340 ;;=3^^91
+341 ;;^UTILITY(U,$J,358.2,69,1,3,0)
+342 ;;=2^3^54
+343 ;;^UTILITY(U,$J,358.2,69,2,0)
+344 ;;=^358.22I^3^3
+345 ;;^UTILITY(U,$J,358.2,69,2,1,0)
+346 ;;=2^ ^5^1^1^^0
+347 ;;^UTILITY(U,$J,358.2,69,2,2,0)
+348 ;;=3^ ^50^1^2^^1
+349 ;;^UTILITY(U,$J,358.2,69,2,3,0)
+350 ;;=1^ ^^2^^1^^1^^0
+351 ;;^UTILITY(U,$J,358.2,70,0)
+352 ;;=VISIT TYPE^122^^^^^2^0^C^^8^0^^0^^0^3^2
+353 ;;^UTILITY(U,$J,358.2,70,1,0)
+354 ;;=^358.21I^1^1
+355 ;;^UTILITY(U,$J,358.2,70,1,1,0)
+356 ;;=1^2
+357 ;;^UTILITY(U,$J,358.2,70,2,0)
+358 ;;=^358.22I^4^3
+359 ;;^UTILITY(U,$J,358.2,70,2,1,0)
+360 ;;=1^ ^40^1^2^^1
+361 ;;^UTILITY(U,$J,358.2,70,2,3,0)
+362 ;;=3^^^2^^1^^1^^1
+363 ;;^UTILITY(U,$J,358.2,70,2,4,0)
+364 ;;=2^ ^5^1^1
+365 ;;^UTILITY(U,$J,358.2,71,0)
+366 ;;=ICD-10 DIAGNOSES^123^^^^^4^0^SC^^6^0^1^0^^0^3^2
+367 ;;^UTILITY(U,$J,358.2,71,1,0)
+368 ;;=^358.21I^1^1
+369 ;;^UTILITY(U,$J,358.2,71,1,1,0)
+370 ;;=1^2^1
+371 ;;^UTILITY(U,$J,358.2,71,2,0)
+372 ;;=^358.22I^5^5
+373 ;;^UTILITY(U,$J,358.2,71,2,1,0)
+374 ;;=4^CODE^8^1^1^^0
+375 ;;^UTILITY(U,$J,358.2,71,2,2,0)
+376 ;;=3^DIAGNOSIS^95^1^2^^1
+377 ;;^UTILITY(U,$J,358.2,71,2,3,0)
+378 ;;=5^ADD^^2^^1^^1^7^0
+379 ;;^UTILITY(U,$J,358.2,71,2,4,0)
+380 ;;=1^P^^2^^1^^1^1^1
+381 ;;^UTILITY(U,$J,358.2,71,2,5,0)
+382 ;;=2^S^^2^^1^^1^2^0
+383 ;;^UTILITY(U,$J,358.2,72,0)
+384 ;;=CPT CODES^124^^^^^1^0^UC^^4^0^3^0^^0^3^2
+385 ;;^UTILITY(U,$J,358.2,72,1,0)
+386 ;;=^358.21I^3^3
+387 ;;^UTILITY(U,$J,358.2,72,1,1,0)
+388 ;;=1^3^0
+389 ;;^UTILITY(U,$J,358.2,72,1,2,0)
+390 ;;=2^3
+391 ;;^UTILITY(U,$J,358.2,72,1,3,0)
+392 ;;=3^3
+393 ;;^UTILITY(U,$J,358.2,72,2,0)
+394 ;;=^358.22I^3^3
+395 ;;^UTILITY(U,$J,358.2,72,2,1,0)
+396 ;;=1^ ^^2^^1^^1
+397 ;;^UTILITY(U,$J,358.2,72,2,2,0)
+398 ;;=2^ ^5^1^1^^1
+399 ;;^UTILITY(U,$J,358.2,72,2,3,0)
+400 ;;=3^ ^50^1^2^^1
+401 ;;^UTILITY(U,$J,358.2,73,0)
+402 ;;=VISIT TYPE^125^^^^^2^0^C^^8^0^^0^^0^3^2
+403 ;;^UTILITY(U,$J,358.2,73,1,0)
+404 ;;=^358.21I^1^1
+405 ;;^UTILITY(U,$J,358.2,73,1,1,0)
+406 ;;=1^2
+407 ;;^UTILITY(U,$J,358.2,73,2,0)
+408 ;;=^358.22I^4^3
+409 ;;^UTILITY(U,$J,358.2,73,2,1,0)
+410 ;;=1^ ^28^1^2^^1
+411 ;;^UTILITY(U,$J,358.2,73,2,3,0)
+412 ;;=3^^^2^^1^^1^^1
+413 ;;^UTILITY(U,$J,358.2,73,2,4,0)
+414 ;;=2^ ^5^1^1
+415 ;;^UTILITY(U,$J,358.2,74,0)
+416 ;;=ICD-10 DIAGNOSES^128^^^^^4^0^SC^^6^0^1^0^^0^3^2
+417 ;;^UTILITY(U,$J,358.2,74,1,0)
+418 ;;=^358.21I^1^1
+419 ;;^UTILITY(U,$J,358.2,74,1,1,0)
+420 ;;=1^2^1
+421 ;;^UTILITY(U,$J,358.2,74,2,0)
+422 ;;=^358.22I^5^5
+423 ;;^UTILITY(U,$J,358.2,74,2,1,0)
+424 ;;=4^CODE^8^1^1^^0
+425 ;;^UTILITY(U,$J,358.2,74,2,2,0)
+426 ;;=3^DIAGNOSIS^95^1^2^^1
+427 ;;^UTILITY(U,$J,358.2,74,2,3,0)
+428 ;;=5^ADD^^2^^1^^1^7^0
+429 ;;^UTILITY(U,$J,358.2,74,2,4,0)
+430 ;;=1^P^^2^^1^^1^1^1
+431 ;;^UTILITY(U,$J,358.2,74,2,5,0)
+432 ;;=2^S^^2^^1^^1^2^0
+433 ;;^UTILITY(U,$J,358.2,75,0)
+434 ;;=CPT CODES^131^^^^^1^0^CSU^^4^0^2^0^^0^2^2
+435 ;;^UTILITY(U,$J,358.2,75,1,0)
+436 ;;=^358.21I^3^3
+437 ;;^UTILITY(U,$J,358.2,75,1,1,0)
+438 ;;=1^3^2
+439 ;;^UTILITY(U,$J,358.2,75,1,2,0)
+440 ;;=3^^91
+441 ;;^UTILITY(U,$J,358.2,75,1,3,0)
+442 ;;=2^3^54
+443 ;;^UTILITY(U,$J,358.2,75,2,0)
+444 ;;=^358.22I^3^3
+445 ;;^UTILITY(U,$J,358.2,75,2,1,0)
+446 ;;=2^ ^5^1^1^^0
+447 ;;^UTILITY(U,$J,358.2,75,2,2,0)
+448 ;;=3^ ^50^1^2^^1
+449 ;;^UTILITY(U,$J,358.2,75,2,3,0)
+450 ;;=1^ ^^2^^1^^1^^0
+451 ;;^UTILITY(U,$J,358.2,76,0)
+452 ;;=VISIT TYPE^132^^^^^2^0^C^^8^0^^0^^0^3^2
+453 ;;^UTILITY(U,$J,358.2,76,1,0)
+454 ;;=^358.21I^1^1
+455 ;;^UTILITY(U,$J,358.2,76,1,1,0)
+456 ;;=1^2
+457 ;;^UTILITY(U,$J,358.2,76,2,0)
+458 ;;=^358.22I^4^3
+459 ;;^UTILITY(U,$J,358.2,76,2,1,0)
+460 ;;=1^ ^45^1^2^^1
+461 ;;^UTILITY(U,$J,358.2,76,2,3,0)
+462 ;;=3^^^2^^1^^1^^1
+463 ;;^UTILITY(U,$J,358.2,76,2,4,0)
+464 ;;=2^ ^5^1^1
+465 ;;^UTILITY(U,$J,358.2,77,0)
+466 ;;=ICD-10 DIAGNOSES^133^^^^^4^0^SC^^6^0^1^0^^0^3^2
+467 ;;^UTILITY(U,$J,358.2,77,1,0)
+468 ;;=^358.21I^1^1
+469 ;;^UTILITY(U,$J,358.2,77,1,1,0)
+470 ;;=1^2^1
+471 ;;^UTILITY(U,$J,358.2,77,2,0)
+472 ;;=^358.22I^5^5
+473 ;;^UTILITY(U,$J,358.2,77,2,1,0)
+474 ;;=4^CODE^8^1^1^^0
+475 ;;^UTILITY(U,$J,358.2,77,2,2,0)
+476 ;;=3^DIAGNOSIS^95^1^2^^1
+477 ;;^UTILITY(U,$J,358.2,77,2,3,0)
+478 ;;=5^ADD^^2^^1^^1^7^0
+479 ;;^UTILITY(U,$J,358.2,77,2,4,0)
+480 ;;=1^P^^2^^1^^1^1^1
+481 ;;^UTILITY(U,$J,358.2,77,2,5,0)
+482 ;;=2^S^^2^^1^^1^2^0
+483 ;;^UTILITY(U,$J,358.2,78,0)
+484 ;;=CPT CODES^136^^^^^3^0^CU^^4^1^^0^^0
+485 ;;^UTILITY(U,$J,358.2,78,2,0)
+486 ;;=^358.22I^3^3
+487 ;;^UTILITY(U,$J,358.2,78,2,1,0)
+488 ;;=1^CODE^5^1^1^^0
+489 ;;^UTILITY(U,$J,358.2,78,2,2,0)
+490 ;;=2^PROCEDURE^45^1^2^^1
+491 ;;^UTILITY(U,$J,358.2,78,2,3,0)
+492 ;;=3^x^^2^^1
+493 ;;^UTILITY(U,$J,358.2,79,0)
+494 ;;=ICD-10 DIAGNOSES^137^^^^^4^0^SC^^6^0^1^0^^0^3^2
+495 ;;^UTILITY(U,$J,358.2,79,1,0)
+496 ;;=^358.21I^1^1
+497 ;;^UTILITY(U,$J,358.2,79,1,1,0)
+498 ;;=1^2^1
+499 ;;^UTILITY(U,$J,358.2,79,2,0)
+500 ;;=^358.22I^5^5
+501 ;;^UTILITY(U,$J,358.2,79,2,1,0)
+502 ;;=4^CODE^8^1^1^^0
+503 ;;^UTILITY(U,$J,358.2,79,2,2,0)
+504 ;;=3^DIAGNOSIS^95^1^2^^1
+505 ;;^UTILITY(U,$J,358.2,79,2,3,0)
+506 ;;=5^ADD^^2^^1^^1^7^0
+507 ;;^UTILITY(U,$J,358.2,79,2,4,0)
+508 ;;=1^P^^2^^1^^1^1^1
+509 ;;^UTILITY(U,$J,358.2,79,2,5,0)
+510 ;;=2^S^^2^^1^^1^2^0
+511 ;;^UTILITY(U,$J,358.2,80,0)
+512 ;;=CPT CODES^140^^^^^1^0^UBC^^4^0^2^0^^0^3^2
+513 ;;^UTILITY(U,$J,358.2,80,1,0)
+514 ;;=^358.21I^2^2
+515 ;;^UTILITY(U,$J,358.2,80,1,1,0)
+516 ;;=1^1^4
+517 ;;^UTILITY(U,$J,358.2,80,1,2,0)
+518 ;;=2^2^59
+519 ;;^UTILITY(U,$J,358.2,80,2,0)
+520 ;;=^358.22I^3^3
+521 ;;^UTILITY(U,$J,358.2,80,2,1,0)
+522 ;;=1^ ^^2^^1^^1
+523 ;;^UTILITY(U,$J,358.2,80,2,2,0)
+524 ;;=2^ ^5^1^1^^1
+525 ;;^UTILITY(U,$J,358.2,80,2,3,0)
+526 ;;=3^ ^40^1^2^^1
+527 ;;^UTILITY(U,$J,358.2,81,0)
+528 ;;=ICD-10 DIAGNOSES^141^^^^^4^0^SC^^6^0^1^0^^0^3^2
+529 ;;^UTILITY(U,$J,358.2,81,1,0)
+530 ;;=^358.21I^1^1
+531 ;;^UTILITY(U,$J,358.2,81,1,1,0)
+532 ;;=1^2^1
+533 ;;^UTILITY(U,$J,358.2,81,2,0)
+534 ;;=^358.22I^5^5
+535 ;;^UTILITY(U,$J,358.2,81,2,1,0)
+536 ;;=4^CODE^8^1^1^^0
+537 ;;^UTILITY(U,$J,358.2,81,2,2,0)
+538 ;;=3^DIAGNOSIS^95^1^2^^1
+539 ;;^UTILITY(U,$J,358.2,81,2,3,0)
+540 ;;=5^ADD^^2^^1^^1^7^0
+541 ;;^UTILITY(U,$J,358.2,81,2,4,0)
+542 ;;=1^P^^2^^1^^1^1^1
+543 ;;^UTILITY(U,$J,358.2,81,2,5,0)
+544 ;;=2^S^^2^^1^^1^2^0
+545 ;;^UTILITY(U,$J,358.2,82,0)
+546 ;;=VISIT TYPE^142^^^^^1^0^C^^8^0^^0^^0^3^2
+547 ;;^UTILITY(U,$J,358.2,82,1,0)
+548 ;;=^358.21I^2^2
+549 ;;^UTILITY(U,$J,358.2,82,1,1,0)
+550 ;;=1
+551 ;;^UTILITY(U,$J,358.2,82,1,2,0)
+552 ;;=2
+553 ;;^UTILITY(U,$J,358.2,82,2,0)
+554 ;;=^358.22I^4^3
+555 ;;^UTILITY(U,$J,358.2,82,2,1,0)
+556 ;;=1^ ^35^1^2^^1
+557 ;;^UTILITY(U,$J,358.2,82,2,3,0)
+558 ;;=3^^^2^^1^^1^^1
+559 ;;^UTILITY(U,$J,358.2,82,2,4,0)
+560 ;;=2^ ^5^1^1
+561 ;;^UTILITY(U,$J,358.2,83,0)
+562 ;;=ICD-10 DIAGNOSES^145^^^^^4^0^SC^^6^0^1^0^^0^3^2
+563 ;;^UTILITY(U,$J,358.2,83,1,0)
+564 ;;=^358.21I^1^1
+565 ;;^UTILITY(U,$J,358.2,83,1,1,0)
+566 ;;=1^2^1
+567 ;;^UTILITY(U,$J,358.2,83,2,0)
+568 ;;=^358.22I^5^5
+569 ;;^UTILITY(U,$J,358.2,83,2,1,0)
+570 ;;=4^CODE^8^1^1^^0
+571 ;;^UTILITY(U,$J,358.2,83,2,2,0)
+572 ;;=3^DIAGNOSIS^95^1^2^^1
+573 ;;^UTILITY(U,$J,358.2,83,2,3,0)
+574 ;;=5^ADD^^2^^1^^1^7^0
+575 ;;^UTILITY(U,$J,358.2,83,2,4,0)
+576 ;;=1^P^^2^^1^^1^1^1
+577 ;;^UTILITY(U,$J,358.2,83,2,5,0)
+578 ;;=2^S^^2^^1^^1^2^0
+579 ;;^UTILITY(U,$J,358.2,84,0)
+580 ;;=CPT CODES^146^^^^^1^0^BSC^^4^0^^0^^0^3^2
+581 ;;^UTILITY(U,$J,358.2,84,2,0)
+582 ;;=^358.22I^3^3
+583 ;;^UTILITY(U,$J,358.2,84,2,1,0)
+584 ;;=4^ ^5^1^1^^0
+585 ;;^UTILITY(U,$J,358.2,84,2,2,0)
+586 ;;=2^ ^65^1^2^^1
+587 ;;^UTILITY(U,$J,358.2,84,2,3,0)
+588 ;;=1^ ^^2^^1^^1^^0
+589 ;;^UTILITY(U,$J,358.2,85,0)
+590 ;;=CPT CODES^147^^^^^3^0^CU^^4^1^^0^^0
+591 ;;^UTILITY(U,$J,358.2,85,2,0)
+592 ;;=^358.22I^3^3
+593 ;;^UTILITY(U,$J,358.2,85,2,1,0)
+594 ;;=1^CODE^5^1^1^^0
+595 ;;^UTILITY(U,$J,358.2,85,2,2,0)
+596 ;;=2^PROCEDURE^40^1^2^^1
+597 ;;^UTILITY(U,$J,358.2,85,2,3,0)
+598 ;;=3^x^^2^^2
+599 ;;^UTILITY(U,$J,358.2,86,0)
+600 ;;=ICD-10 DIAGNOSES^150^^^^^4^0^SC^^6^0^1^0^^0^3^2
+601 ;;^UTILITY(U,$J,358.2,86,1,0)
+602 ;;=^358.21I^1^1
+603 ;;^UTILITY(U,$J,358.2,86,1,1,0)
+604 ;;=1^2^1
+605 ;;^UTILITY(U,$J,358.2,86,2,0)
+606 ;;=^358.22I^5^5
+607 ;;^UTILITY(U,$J,358.2,86,2,1,0)
+608 ;;=4^CODE^8^1^1^^0
+609 ;;^UTILITY(U,$J,358.2,86,2,2,0)
+610 ;;=3^DIAGNOSIS^95^1^2^^1
+611 ;;^UTILITY(U,$J,358.2,86,2,3,0)
+612 ;;=5^ADD^^2^^1^^1^7^0
+613 ;;^UTILITY(U,$J,358.2,86,2,4,0)
+614 ;;=1^P^^2^^1^^1^1^1
+615 ;;^UTILITY(U,$J,358.2,86,2,5,0)
+616 ;;=2^S^^2^^1^^1^2^0
+617 ;;^UTILITY(U,$J,358.2,87,0)
+618 ;;=VISIT TYPE^151^^^^^2^0^C^^8^0^^0^^0^3^2
+619 ;;^UTILITY(U,$J,358.2,87,1,0)
+620 ;;=^358.21I^1^1
+621 ;;^UTILITY(U,$J,358.2,87,1,1,0)
+622 ;;=1^2
+623 ;;^UTILITY(U,$J,358.2,87,2,0)
+624 ;;=^358.22I^4^3
+625 ;;^UTILITY(U,$J,358.2,87,2,1,0)
+626 ;;=1^ ^45^1^2^^1
+627 ;;^UTILITY(U,$J,358.2,87,2,3,0)
+628 ;;=3^^^2^^1^^1^^1
+629 ;;^UTILITY(U,$J,358.2,87,2,4,0)
+630 ;;=2^ ^5^1^1
+631 ;;^UTILITY(U,$J,358.2,88,0)
+632 ;;=CPT CODES^152^^^^^3^0^CU^^4^1^^0^^0^3^2
+633 ;;^UTILITY(U,$J,358.2,88,2,0)
+634 ;;=^358.22I^3^3
+635 ;;^UTILITY(U,$J,358.2,88,2,1,0)
+636 ;;=1^CODE^5^1^1^^0
+637 ;;^UTILITY(U,$J,358.2,88,2,2,0)
+638 ;;=2^PROCEDURE^45^1^2^^1
+639 ;;^UTILITY(U,$J,358.2,88,2,3,0)
+640 ;;=3^x^^2^^2
+641 ;;^UTILITY(U,$J,358.2,89,0)
+642 ;;=VISIT TYPE^154^^^^^2^0^C^^8^0^^0^^0^3^2
+643 ;;^UTILITY(U,$J,358.2,89,1,0)
+644 ;;=^358.21I^1^1
+645 ;;^UTILITY(U,$J,358.2,89,1,1,0)
+646 ;;=1^2
+647 ;;^UTILITY(U,$J,358.2,89,2,0)
+648 ;;=^358.22I^4^3
+649 ;;^UTILITY(U,$J,358.2,89,2,1,0)
+650 ;;=1^ ^28^1^2^^1
+651 ;;^UTILITY(U,$J,358.2,89,2,3,0)
+652 ;;=3^^^2^^1^^1^^1
+653 ;;^UTILITY(U,$J,358.2,89,2,4,0)
+654 ;;=2^ ^5^1^1
+655 ;;^UTILITY(U,$J,358.2,90,0)
+656 ;;=ICD-10 DIAGNOSES^156^^^^^4^0^SC^^6^0^1^0^^0^3^2
+657 ;;^UTILITY(U,$J,358.2,90,1,0)
+658 ;;=^358.21I^1^1
+659 ;;^UTILITY(U,$J,358.2,90,1,1,0)
+660 ;;=1^2^1
+661 ;;^UTILITY(U,$J,358.2,90,2,0)
+662 ;;=^358.22I^5^5
+663 ;;^UTILITY(U,$J,358.2,90,2,1,0)
+664 ;;=4^CODE^8^1^1^^0
+665 ;;^UTILITY(U,$J,358.2,90,2,2,0)
+666 ;;=3^DIAGNOSIS^95^1^2^^1
+667 ;;^UTILITY(U,$J,358.2,90,2,3,0)
+668 ;;=5^ADD^^2^^1^^1^7^0
+669 ;;^UTILITY(U,$J,358.2,90,2,4,0)
+670 ;;=1^P^^2^^1^^1^1^1
+671 ;;^UTILITY(U,$J,358.2,90,2,5,0)
+672 ;;=2^S^^2^^1^^1^2^0
+673 ;;^UTILITY(U,$J,358.2,91,0)
+674 ;;=ICD-10 DIAGNOSES^159^^^^^4^0^SC^^6^0^1^0^^0^3^2
+675 ;;^UTILITY(U,$J,358.2,91,1,0)
+676 ;;=^358.21I^1^1
+677 ;;^UTILITY(U,$J,358.2,91,1,1,0)
+678 ;;=1^2^1
+679 ;;^UTILITY(U,$J,358.2,91,2,0)
+680 ;;=^358.22I^5^5
+681 ;;^UTILITY(U,$J,358.2,91,2,1,0)
+682 ;;=4^CODE^8^1^1^^0
+683 ;;^UTILITY(U,$J,358.2,91,2,2,0)
+684 ;;=3^DIAGNOSIS^95^1^2^^1
+685 ;;^UTILITY(U,$J,358.2,91,2,3,0)
+686 ;;=5^ADD^^2^^1^^1^7^0
+687 ;;^UTILITY(U,$J,358.2,91,2,4,0)
+688 ;;=1^P^^2^^1^^1^1^1
+689 ;;^UTILITY(U,$J,358.2,91,2,5,0)
+690 ;;=2^S^^2^^1^^1^2^0
+691 ;;^UTILITY(U,$J,358.2,92,0)
+692 ;;=CPT CODES^162^^^^^1^0^BSC^^4^0^^0^^0^3^2
+693 ;;^UTILITY(U,$J,358.2,92,2,0)
+694 ;;=^358.22I^3^3
+695 ;;^UTILITY(U,$J,358.2,92,2,1,0)
+696 ;;=4^ ^5^1^1^^0
+697 ;;^UTILITY(U,$J,358.2,92,2,2,0)
+698 ;;=2^ ^50^1^2^^1
+699 ;;^UTILITY(U,$J,358.2,92,2,3,0)
+700 ;;=1^ ^^2^^1^^1^^0
+701 ;;^UTILITY(U,$J,358.2,93,0)
+702 ;;=ICD-10 DIAGNOSES^163^^^^^4^0^SC^^6^0^1^0^^0^3^2
+703 ;;^UTILITY(U,$J,358.2,93,1,0)
+704 ;;=^358.21I^1^1
