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

IBDEI007.m

Go to the documentation of this file.
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