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

IBDEI05W.m

Go to the documentation of this file. 
  1. IBDEI05W ; ; 01-AUG-2022
  1.  ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
  1.  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
  1. Q Q
  1.  ;;^UTILITY(U,$J,358.3,14264,0)
  1.  ;;=J3030^^55^614^14^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14264,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14264,1,2,0)
  1.  ;;=2^J3030
  1.  ;;^UTILITY(U,$J,358.3,14264,1,3,0)
  1.  ;;=3^Imitrex, 6mg
  1.  ;;^UTILITY(U,$J,358.3,14265,0)
  1.  ;;=J2550^^55^614^21^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14265,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14265,1,2,0)
  1.  ;;=2^J2550
  1.  ;;^UTILITY(U,$J,358.3,14265,1,3,0)
  1.  ;;=3^Phenergan,up to 50mg
  1.  ;;^UTILITY(U,$J,358.3,14266,0)
  1.  ;;=J0461^^55^614^7^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14266,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14266,1,2,0)
  1.  ;;=2^J0461
  1.  ;;^UTILITY(U,$J,358.3,14266,1,3,0)
  1.  ;;=3^Atropine Sulfate 0.01 mg
  1.  ;;^UTILITY(U,$J,358.3,14267,0)
  1.  ;;=J1050^^55^614^19^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14267,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14267,1,2,0)
  1.  ;;=2^J1050
  1.  ;;^UTILITY(U,$J,358.3,14267,1,3,0)
  1.  ;;=3^Medroxyprogesterone 1mg
  1.  ;;^UTILITY(U,$J,358.3,14268,0)
  1.  ;;=95115^^55^614^3^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14268,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14268,1,2,0)
  1.  ;;=2^95115
  1.  ;;^UTILITY(U,$J,358.3,14268,1,3,0)
  1.  ;;=3^Allergy Shot,Single
  1.  ;;^UTILITY(U,$J,358.3,14269,0)
  1.  ;;=95117^^55^614^2^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14269,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14269,1,2,0)
  1.  ;;=2^95117
  1.  ;;^UTILITY(U,$J,358.3,14269,1,3,0)
  1.  ;;=3^Allergy Shot,2 or more
  1.  ;;^UTILITY(U,$J,358.3,14270,0)
  1.  ;;=J0800^^55^614^10^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14270,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14270,1,2,0)
  1.  ;;=2^J0800
  1.  ;;^UTILITY(U,$J,358.3,14270,1,3,0)
  1.  ;;=3^Corticotropin up to 40 units
  1.  ;;^UTILITY(U,$J,358.3,14271,0)
  1.  ;;=J9202^^55^614^11^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14271,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14271,1,2,0)
  1.  ;;=2^J9202
  1.  ;;^UTILITY(U,$J,358.3,14271,1,3,0)
  1.  ;;=3^Goserelin Acetate Implant 3.6mg
  1.  ;;^UTILITY(U,$J,358.3,14272,0)
  1.  ;;=95125^^55^614^15^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14272,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14272,1,2,0)
  1.  ;;=2^95125
  1.  ;;^UTILITY(U,$J,358.3,14272,1,3,0)
  1.  ;;=3^Immunotherapy 2/> Injections
  1.  ;;^UTILITY(U,$J,358.3,14273,0)
  1.  ;;=J0153^^55^614^1^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14273,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14273,1,2,0)
  1.  ;;=2^J0153
  1.  ;;^UTILITY(U,$J,358.3,14273,1,3,0)
  1.  ;;=3^Adenosine 1 mg
  1.  ;;^UTILITY(U,$J,358.3,14274,0)
  1.  ;;=J1071^^55^614^23^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14274,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14274,1,2,0)
  1.  ;;=2^J1071
  1.  ;;^UTILITY(U,$J,358.3,14274,1,3,0)
  1.  ;;=3^Testosterone Cypionate up to 1mg
  1.  ;;^UTILITY(U,$J,358.3,14275,0)
  1.  ;;=J3121^^55^614^24^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14275,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14275,1,2,0)
  1.  ;;=2^J3121
  1.  ;;^UTILITY(U,$J,358.3,14275,1,3,0)
  1.  ;;=3^Testosterone Enanthate 1 mg
  1.  ;;^UTILITY(U,$J,358.3,14276,0)
  1.  ;;=J3490^^55^614^30^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14276,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14276,1,2,0)
  1.  ;;=2^J3490
  1.  ;;^UTILITY(U,$J,358.3,14276,1,3,0)
  1.  ;;=3^Unclassified Drug Injection
  1.  ;;^UTILITY(U,$J,358.3,14277,0)
  1.  ;;=86485^^55^615^1^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14277,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14277,1,2,0)
  1.  ;;=2^86485
  1.  ;;^UTILITY(U,$J,358.3,14277,1,3,0)
  1.  ;;=3^Candida
  1.  ;;^UTILITY(U,$J,358.3,14278,0)
  1.  ;;=86580^^55^615^5^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14278,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14278,1,2,0)
  1.  ;;=2^86580
  1.  ;;^UTILITY(U,$J,358.3,14278,1,3,0)
  1.  ;;=3^TB
  1.  ;;^UTILITY(U,$J,358.3,14279,0)
  1.  ;;=95024^^55^615^3^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14279,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14279,1,2,0)
  1.  ;;=2^95024
  1.  ;;^UTILITY(U,$J,358.3,14279,1,3,0)
  1.  ;;=3^Intradermals (each)
  1.  ;;^UTILITY(U,$J,358.3,14280,0)
  1.  ;;=86510^^55^615^2^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14280,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14280,1,2,0)
  1.  ;;=2^86510
  1.  ;;^UTILITY(U,$J,358.3,14280,1,3,0)
  1.  ;;=3^Histoplasmosis
  1.  ;;^UTILITY(U,$J,358.3,14281,0)
  1.  ;;=86486^^55^615^4^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14281,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14281,1,2,0)
  1.  ;;=2^86486
  1.  ;;^UTILITY(U,$J,358.3,14281,1,3,0)
  1.  ;;=3^Mumps
  1.  ;;^UTILITY(U,$J,358.3,14282,0)
  1.  ;;=94640^^55^616^12^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14282,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14282,1,2,0)
  1.  ;;=2^94640
  1.  ;;^UTILITY(U,$J,358.3,14282,1,3,0)
  1.  ;;=3^Nebulizer Treatment
  1.  ;;^UTILITY(U,$J,358.3,14283,0)
  1.  ;;=82948^^55^616^5^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14283,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14283,1,2,0)
  1.  ;;=2^82948
  1.  ;;^UTILITY(U,$J,358.3,14283,1,3,0)
  1.  ;;=3^Glucose finger stick
  1.  ;;^UTILITY(U,$J,358.3,14284,0)
  1.  ;;=11719^^55^616^14^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14284,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14284,1,2,0)
  1.  ;;=2^11719
  1.  ;;^UTILITY(U,$J,358.3,14284,1,3,0)
  1.  ;;=3^Trim Nails (nondystrophic)
  1.  ;;^UTILITY(U,$J,358.3,14285,0)
  1.  ;;=81002^^55^616^15^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14285,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14285,1,2,0)
  1.  ;;=2^81002
  1.  ;;^UTILITY(U,$J,358.3,14285,1,3,0)
  1.  ;;=3^UA Dipstick
  1.  ;;^UTILITY(U,$J,358.3,14286,0)
  1.  ;;=93005^^55^616^3^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14286,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14286,1,2,0)
  1.  ;;=2^93005
  1.  ;;^UTILITY(U,$J,358.3,14286,1,3,0)
  1.  ;;=3^EKG,Tracinig Only
  1.  ;;^UTILITY(U,$J,358.3,14287,0)
  1.  ;;=36600^^55^616^1^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14287,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14287,1,2,0)
  1.  ;;=2^36600
  1.  ;;^UTILITY(U,$J,358.3,14287,1,3,0)
  1.  ;;=3^ABG
  1.  ;;^UTILITY(U,$J,358.3,14288,0)
  1.  ;;=29580^^55^616^17^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14288,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14288,1,2,0)
  1.  ;;=2^29580
  1.  ;;^UTILITY(U,$J,358.3,14288,1,3,0)
  1.  ;;=3^Unna Boot
  1.  ;;^UTILITY(U,$J,358.3,14289,0)
  1.  ;;=97602^^55^616^18^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14289,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14289,1,2,0)
  1.  ;;=2^97602
  1.  ;;^UTILITY(U,$J,358.3,14289,1,3,0)
  1.  ;;=3^Wound Care, non-selective debridement
  1.  ;;^UTILITY(U,$J,358.3,14290,0)
  1.  ;;=51701^^55^616^10^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14290,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14290,1,2,0)
  1.  ;;=2^51701
  1.  ;;^UTILITY(U,$J,358.3,14290,1,3,0)
  1.  ;;=3^Insert Catheter for Residual Urine
  1.  ;;^UTILITY(U,$J,358.3,14291,0)
  1.  ;;=51702^^55^616^11^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14291,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14291,1,2,0)
  1.  ;;=2^51702
  1.  ;;^UTILITY(U,$J,358.3,14291,1,3,0)
  1.  ;;=3^Insert Foley Cath
  1.  ;;^UTILITY(U,$J,358.3,14292,0)
  1.  ;;=51798^^55^616^16^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14292,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14292,1,2,0)
  1.  ;;=2^51798
  1.  ;;^UTILITY(U,$J,358.3,14292,1,3,0)
  1.  ;;=3^Ultrasound for Resid Urine
  1.  ;;^UTILITY(U,$J,358.3,14293,0)
  1.  ;;=96360^^55^616^6^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14293,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14293,1,2,0)
  1.  ;;=2^96360
  1.  ;;^UTILITY(U,$J,358.3,14293,1,3,0)
  1.  ;;=3^Hydration,IV,1st hour
  1.  ;;^UTILITY(U,$J,358.3,14294,0)
  1.  ;;=96361^^55^616^7^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14294,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14294,1,2,0)
  1.  ;;=2^96361
  1.  ;;^UTILITY(U,$J,358.3,14294,1,3,0)
  1.  ;;=3^Hydration,IV,ea addl hour
  1.  ;;^UTILITY(U,$J,358.3,14295,0)
  1.  ;;=96365^^55^616^8^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14295,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14295,1,2,0)
  1.  ;;=2^96365
  1.  ;;^UTILITY(U,$J,358.3,14295,1,3,0)
  1.  ;;=3^Infusion,IV 1st hr
  1.  ;;^UTILITY(U,$J,358.3,14296,0)
  1.  ;;=96366^^55^616^9^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14296,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14296,1,2,0)
  1.  ;;=2^96366
  1.  ;;^UTILITY(U,$J,358.3,14296,1,3,0)
  1.  ;;=3^Infusion,IV ea addl hour
  1.  ;;^UTILITY(U,$J,358.3,14297,0)
  1.  ;;=94664^^55^616^4^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14297,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14297,1,2,0)
  1.  ;;=2^94664
  1.  ;;^UTILITY(U,$J,358.3,14297,1,3,0)
  1.  ;;=3^Evaluate Pt Use of Inhaler
  1.  ;;^UTILITY(U,$J,358.3,14298,0)
  1.  ;;=99195^^55^616^13^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14298,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14298,1,2,0)
  1.  ;;=2^99195
  1.  ;;^UTILITY(U,$J,358.3,14298,1,3,0)
  1.  ;;=3^Phlebotomy
  1.  ;;^UTILITY(U,$J,358.3,14299,0)
  1.  ;;=94760^^55^616^2^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14299,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14299,1,2,0)
  1.  ;;=2^94760
  1.  ;;^UTILITY(U,$J,358.3,14299,1,3,0)
  1.  ;;=3^Blood Oxygen Level
  1.  ;;^UTILITY(U,$J,358.3,14300,0)
  1.  ;;=17000^^55^617^12^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14300,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14300,1,2,0)
  1.  ;;=2^17000
  1.  ;;^UTILITY(U,$J,358.3,14300,1,3,0)
  1.  ;;=3^Destr Premalig Lesion,Any Method,1st Lesion
  1.  ;;^UTILITY(U,$J,358.3,14301,0)
  1.  ;;=17003^^55^617^13^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14301,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14301,1,2,0)
  1.  ;;=2^17003
  1.  ;;^UTILITY(U,$J,358.3,14301,1,3,0)
  1.  ;;=3^Destr Premalig Lesion,Any Method,Ea Addl Lesion
  1.  ;;^UTILITY(U,$J,358.3,14302,0)
  1.  ;;=17004^^55^617^14^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14302,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14302,1,2,0)
  1.  ;;=2^17004
  1.  ;;^UTILITY(U,$J,358.3,14302,1,3,0)
  1.  ;;=3^Destr Premalig Lesions > 14 Lesions
  1.  ;;^UTILITY(U,$J,358.3,14303,0)
  1.  ;;=10060^^55^617^24^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14303,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14303,1,2,0)
  1.  ;;=2^10060
  1.  ;;^UTILITY(U,$J,358.3,14303,1,3,0)
  1.  ;;=3^I&D abscess
  1.  ;;^UTILITY(U,$J,358.3,14304,0)
  1.  ;;=10061^^55^617^23^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14304,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14304,1,2,0)
  1.  ;;=2^10061
  1.  ;;^UTILITY(U,$J,358.3,14304,1,3,0)
  1.  ;;=3^I&D Complicated Abscess
  1.  ;;^UTILITY(U,$J,358.3,14305,0)
  1.  ;;=11042^^55^617^9^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14305,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14305,1,2,0)
  1.  ;;=2^11042
  1.  ;;^UTILITY(U,$J,358.3,14305,1,3,0)
  1.  ;;=3^Debridement, Skin & Subcu. Tissue
  1.  ;;^UTILITY(U,$J,358.3,14306,0)
  1.  ;;=20550^^55^617^26^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14306,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14306,1,2,0)
  1.  ;;=2^20550
  1.  ;;^UTILITY(U,$J,358.3,14306,1,3,0)
  1.  ;;=3^Injection, Tendon Sheath, Ligament, Ganglion Cyst
  1.  ;;^UTILITY(U,$J,358.3,14307,0)
  1.  ;;=20551^^55^617^25^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14307,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14307,1,2,0)
  1.  ;;=2^20551
  1.  ;;^UTILITY(U,$J,358.3,14307,1,3,0)
  1.  ;;=3^Injection, Tendon Origin/Insertion
  1.  ;;^UTILITY(U,$J,358.3,14308,0)
  1.  ;;=20552^^55^617^27^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14308,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14308,1,2,0)
  1.  ;;=2^20552
  1.  ;;^UTILITY(U,$J,358.3,14308,1,3,0)
  1.  ;;=3^Injection, Trigger Point, 1 or 2 Muscle groups
  1.  ;;^UTILITY(U,$J,358.3,14309,0)
  1.  ;;=20600^^55^617^6^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14309,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14309,1,2,0)
  1.  ;;=2^20600
  1.  ;;^UTILITY(U,$J,358.3,14309,1,3,0)
  1.  ;;=3^Arthrocentesis,Small Jt w/o US Guidance
  1.  ;;^UTILITY(U,$J,358.3,14310,0)
  1.  ;;=20605^^55^617^2^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14310,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14310,1,2,0)
  1.  ;;=2^20605
  1.  ;;^UTILITY(U,$J,358.3,14310,1,3,0)
  1.  ;;=3^Arthrocentesis,Intermediate Jt w/o US Guidance
  1.  ;;^UTILITY(U,$J,358.3,14311,0)
  1.  ;;=20610^^55^617^4^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14311,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14311,1,2,0)
  1.  ;;=2^20610
  1.  ;;^UTILITY(U,$J,358.3,14311,1,3,0)
  1.  ;;=3^Arthrocentesis,Major Jt w/o US Guidance
  1.  ;;^UTILITY(U,$J,358.3,14312,0)
  1.  ;;=30901^^55^617^28^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14312,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14312,1,2,0)
  1.  ;;=2^30901
  1.  ;;^UTILITY(U,$J,358.3,14312,1,3,0)
  1.  ;;=3^Nasal Packing
  1.  ;;^UTILITY(U,$J,358.3,14313,0)
  1.  ;;=31500^^55^617^20^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14313,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14313,1,2,0)
  1.  ;;=2^31500
  1.  ;;^UTILITY(U,$J,358.3,14313,1,3,0)
  1.  ;;=3^Endotrach Intubation
  1.  ;;^UTILITY(U,$J,358.3,14314,0)
  1.  ;;=92950^^55^617^8^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14314,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14314,1,2,0)
  1.  ;;=2^92950
  1.  ;;^UTILITY(U,$J,358.3,14314,1,3,0)
  1.  ;;=3^CPR
  1.  ;;^UTILITY(U,$J,358.3,14315,0)
  1.  ;;=11055^^55^617^34^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14315,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14315,1,2,0)
  1.  ;;=2^11055
  1.  ;;^UTILITY(U,$J,358.3,14315,1,3,0)
  1.  ;;=3^Trim Corn/Callous, 1
  1.  ;;^UTILITY(U,$J,358.3,14316,0)
  1.  ;;=11056^^55^617^35^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14316,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14316,1,2,0)
  1.  ;;=2^11056
  1.  ;;^UTILITY(U,$J,358.3,14316,1,3,0)
  1.  ;;=3^Trim Corn/Callous, 2 to 4
  1.  ;;^UTILITY(U,$J,358.3,14317,0)
  1.  ;;=11057^^55^617^36^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14317,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14317,1,2,0)
  1.  ;;=2^11057
  1.  ;;^UTILITY(U,$J,358.3,14317,1,3,0)
  1.  ;;=3^Trim Corn/Callous, 5 or more
  1.  ;;^UTILITY(U,$J,358.3,14318,0)
  1.  ;;=Q0091^^55^617^29^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14318,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14318,1,2,0)
  1.  ;;=2^Q0091
  1.  ;;^UTILITY(U,$J,358.3,14318,1,3,0)
  1.  ;;=3^Pap Smear
  1.  ;;^UTILITY(U,$J,358.3,14319,0)
  1.  ;;=G0101^^55^617^30^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14319,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14319,1,2,0)
  1.  ;;=2^G0101
  1.  ;;^UTILITY(U,$J,358.3,14319,1,3,0)
  1.  ;;=3^Pelvic/Breast Exam
  1.  ;;^UTILITY(U,$J,358.3,14320,0)
  1.  ;;=78730^^55^617^7^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14320,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14320,1,2,0)
  1.  ;;=2^78730
  1.  ;;^UTILITY(U,$J,358.3,14320,1,3,0)
  1.  ;;=3^Bladder Retention Study
  1.  ;;^UTILITY(U,$J,358.3,14321,0)
  1.  ;;=20604^^55^617^5^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14321,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14321,1,2,0)
  1.  ;;=2^20604
  1.  ;;^UTILITY(U,$J,358.3,14321,1,3,0)
  1.  ;;=3^Arthrocentesis,Small Jt w/ US Guidance
  1.  ;;^UTILITY(U,$J,358.3,14322,0)
  1.  ;;=20611^^55^617^3^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14322,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14322,1,2,0)
  1.  ;;=2^20611
  1.  ;;^UTILITY(U,$J,358.3,14322,1,3,0)
  1.  ;;=3^Arthrocentesis,Major Jt w/ US Guidance
  1.  ;;^UTILITY(U,$J,358.3,14323,0)
  1.  ;;=20606^^55^617^1^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14323,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14323,1,2,0)
  1.  ;;=2^20606
  1.  ;;^UTILITY(U,$J,358.3,14323,1,3,0)
  1.  ;;=3^Arthrocentesis,Intermediate Jt w/ US Guidance
  1.  ;;^UTILITY(U,$J,358.3,14324,0)
  1.  ;;=78740^^55^617^37^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14324,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14324,1,2,0)
  1.  ;;=2^78740
  1.  ;;^UTILITY(U,$J,358.3,14324,1,3,0)
  1.  ;;=3^Urethral Reflux Study
  1.  ;;^UTILITY(U,$J,358.3,14325,0)
  1.  ;;=69210^^55^617^19^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14325,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14325,1,2,0)
  1.  ;;=2^69210
  1.  ;;^UTILITY(U,$J,358.3,14325,1,3,0)
  1.  ;;=3^Ear Cleaning/Req Instrumentation (MD Only)
  1.  ;;^UTILITY(U,$J,358.3,14326,0)
  1.  ;;=93000^^55^617^17^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14326,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14326,1,2,0)
  1.  ;;=2^93000
  1.  ;;^UTILITY(U,$J,358.3,14326,1,3,0)
  1.  ;;=3^EKG w/ Interp & Rpt-MD
  1.  ;;^UTILITY(U,$J,358.3,14327,0)
  1.  ;;=69209^^55^617^18^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14327,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14327,1,2,0)
  1.  ;;=2^69209
  1.  ;;^UTILITY(U,$J,358.3,14327,1,3,0)
  1.  ;;=3^Ear Cleaning/Lavage/Irrigation (MD Only)
  1.  ;;^UTILITY(U,$J,358.3,14328,0)
  1.  ;;=17110^^55^617^10^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14328,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14328,1,2,0)
  1.  ;;=2^17110
  1.  ;;^UTILITY(U,$J,358.3,14328,1,3,0)
  1.  ;;=3^Destr Benign Lesion(s),1-14 Lesions
  1.  ;;^UTILITY(U,$J,358.3,14329,0)
  1.  ;;=17111^^55^617^11^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14329,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14329,1,2,0)
  1.  ;;=2^17111
  1.  ;;^UTILITY(U,$J,358.3,14329,1,3,0)
  1.  ;;=3^Destr Benign Lesions,15+ Lesions
  1.  ;;^UTILITY(U,$J,358.3,14330,0)
  1.  ;;=11200^^55^617^31^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14330,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14330,1,2,0)
  1.  ;;=2^11200
  1.  ;;^UTILITY(U,$J,358.3,14330,1,3,0)
  1.  ;;=3^Removal of Skin Tags,1-15
  1.  ;;^UTILITY(U,$J,358.3,14331,0)
  1.  ;;=11201^^55^617^32^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14331,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14331,1,2,0)
  1.  ;;=2^11201
  1.  ;;^UTILITY(U,$J,358.3,14331,1,3,0)
  1.  ;;=3^Removal of Skin Tags,Ea Addl 10
  1.  ;;^UTILITY(U,$J,358.3,14332,0)
  1.  ;;=10021^^55^617^21^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14332,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14332,1,2,0)
  1.  ;;=2^10021
  1.  ;;^UTILITY(U,$J,358.3,14332,1,3,0)
  1.  ;;=3^FNA w/o Imaging Guidance,1st Lesion
  1.  ;;^UTILITY(U,$J,358.3,14333,0)
  1.  ;;=11300^^55^617^33^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14333,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14333,1,2,0)
  1.  ;;=2^11300
  1.  ;;^UTILITY(U,$J,358.3,14333,1,3,0)
  1.  ;;=3^Shave Skin Lesion 0.5cm/<
  1.  ;;^UTILITY(U,$J,358.3,14334,0)
  1.  ;;=10004^^55^617^22^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14334,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14334,1,2,0)
  1.  ;;=2^10004
  1.  ;;^UTILITY(U,$J,358.3,14334,1,3,0)
  1.  ;;=3^FNA w/o Imaging Guidance,Ea Addl Lesion
  1.  ;;^UTILITY(U,$J,358.3,14335,0)
  1.  ;;=93010^^55^617^15^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14335,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14335,1,2,0)
  1.  ;;=2^93010
  1.  ;;^UTILITY(U,$J,358.3,14335,1,3,0)
  1.  ;;=3^EKG Interp & Rpt-MD
  1.  ;;^UTILITY(U,$J,358.3,14336,0)
  1.  ;;=93005^^55^617^16^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14336,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14336,1,2,0)
  1.  ;;=2^93005
  1.  ;;^UTILITY(U,$J,358.3,14336,1,3,0)
  1.  ;;=3^EKG Tracing Only
  1.  ;;^UTILITY(U,$J,358.3,14337,0)
  1.  ;;=29105^^55^618^2^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14337,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14337,1,2,0)
  1.  ;;=2^29105
  1.  ;;^UTILITY(U,$J,358.3,14337,1,3,0)
  1.  ;;=3^Long Arm Splint
  1.  ;;^UTILITY(U,$J,358.3,14338,0)
  1.  ;;=29125^^55^618^4^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14338,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14338,1,2,0)
  1.  ;;=2^29125
  1.  ;;^UTILITY(U,$J,358.3,14338,1,3,0)
  1.  ;;=3^Short Arm Splint; Static
  1.  ;;^UTILITY(U,$J,358.3,14339,0)
  1.  ;;=29126^^55^618^3^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14339,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14339,1,2,0)
  1.  ;;=2^29126
  1.  ;;^UTILITY(U,$J,358.3,14339,1,3,0)
  1.  ;;=3^Short Arm Splint; Dynamic
  1.  ;;^UTILITY(U,$J,358.3,14340,0)
  1.  ;;=29130^^55^618^1^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14340,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14340,1,2,0)
  1.  ;;=2^29130
  1.  ;;^UTILITY(U,$J,358.3,14340,1,3,0)
  1.  ;;=3^Finger Splint
  1.  ;;^UTILITY(U,$J,358.3,14341,0)
  1.  ;;=12001^^55^619^1^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14341,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14341,1,2,0)
  1.  ;;=2^12001
  1.  ;;^UTILITY(U,$J,358.3,14341,1,3,0)
  1.  ;;=3^Simple repair; 2.5 cm or less
  1.  ;;^UTILITY(U,$J,358.3,14342,0)
  1.  ;;=12002^^55^619^2^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14342,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14342,1,2,0)
  1.  ;;=2^12002
  1.  ;;^UTILITY(U,$J,358.3,14342,1,3,0)
  1.  ;;=3^Simple repair; 2.6 cm to 7.5 cm
  1.  ;;^UTILITY(U,$J,358.3,14343,0)
  1.  ;;=12004^^55^619^3^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14343,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14343,1,2,0)
  1.  ;;=2^12004
  1.  ;;^UTILITY(U,$J,358.3,14343,1,3,0)
  1.  ;;=3^Simple repair; 7.6 cm to 12.5 cm
  1.  ;;^UTILITY(U,$J,358.3,14344,0)
  1.  ;;=12005^^55^619^4^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14344,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14344,1,2,0)
  1.  ;;=2^12005
  1.  ;;^UTILITY(U,$J,358.3,14344,1,3,0)
  1.  ;;=3^Simple repair; 12.6 cm to 20 cm
  1.  ;;^UTILITY(U,$J,358.3,14345,0)
  1.  ;;=12006^^55^619^5^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14345,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14345,1,2,0)
  1.  ;;=2^12006
  1.  ;;^UTILITY(U,$J,358.3,14345,1,3,0)
  1.  ;;=3^Simple repair; 20.1 cm to 30 cm
  1.  ;;^UTILITY(U,$J,358.3,14346,0)
  1.  ;;=12007^^55^619^6^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14346,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,14346,1,2,0)
  1.  ;;=2^12007
  1.  ;;^UTILITY(U,$J,358.3,14346,1,3,0)
  1.  ;;=3^Simple repair; over 30 cm
  1.  ;;^UTILITY(U,$J,358.3,14347,0)
  1.  ;;=12011^^55^620^1^^^^1
  1.  ;;^UTILITY(U,$J,358.3,14347,1,0)
  1.  ;;=^358.31IA^3^2