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

IBDEI0W5.m

Go to the documentation of this file.
  1. IBDEI0W5 ; ; 01-FEB-2022
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 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,14482,1,1,0)
  1. ;;=1^High MDM or 60-74 mins
  1. ;;^UTILITY(U,$J,358.3,14482,1,2,0)
  1. ;;=2^99205
  1. ;;^UTILITY(U,$J,358.3,14483,0)
  1. ;;=99241^^56^684^1
  1. ;;^UTILITY(U,$J,358.3,14483,1,0)
  1. ;;=^358.31IA^2^2
  1. ;;^UTILITY(U,$J,358.3,14483,1,1,0)
  1. ;;=1^Problem Focused Hx/PE & SF MDM
  1. ;;^UTILITY(U,$J,358.3,14483,1,2,0)
  1. ;;=2^99241
  1. ;;^UTILITY(U,$J,358.3,14484,0)
  1. ;;=99242^^56^684^2
  1. ;;^UTILITY(U,$J,358.3,14484,1,0)
  1. ;;=^358.31IA^2^2
  1. ;;^UTILITY(U,$J,358.3,14484,1,1,0)
  1. ;;=1^Exp Problem Focused Hx/PE & SF MDM
  1. ;;^UTILITY(U,$J,358.3,14484,1,2,0)
  1. ;;=2^99242
  1. ;;^UTILITY(U,$J,358.3,14485,0)
  1. ;;=99243^^56^684^3
  1. ;;^UTILITY(U,$J,358.3,14485,1,0)
  1. ;;=^358.31IA^2^2
  1. ;;^UTILITY(U,$J,358.3,14485,1,1,0)
  1. ;;=1^Detailed Hx/PE & Low Complex MDM
  1. ;;^UTILITY(U,$J,358.3,14485,1,2,0)
  1. ;;=2^99243
  1. ;;^UTILITY(U,$J,358.3,14486,0)
  1. ;;=99244^^56^684^4
  1. ;;^UTILITY(U,$J,358.3,14486,1,0)
  1. ;;=^358.31IA^2^2
  1. ;;^UTILITY(U,$J,358.3,14486,1,1,0)
  1. ;;=1^Comprehensive Hx/PE & Moderate Complex MDM
  1. ;;^UTILITY(U,$J,358.3,14486,1,2,0)
  1. ;;=2^99244
  1. ;;^UTILITY(U,$J,358.3,14487,0)
  1. ;;=99245^^56^684^5
  1. ;;^UTILITY(U,$J,358.3,14487,1,0)
  1. ;;=^358.31IA^2^2
  1. ;;^UTILITY(U,$J,358.3,14487,1,1,0)
  1. ;;=1^Comprehensive Hx/PE & High Complex MDM
  1. ;;^UTILITY(U,$J,358.3,14487,1,2,0)
  1. ;;=2^99245
  1. ;;^UTILITY(U,$J,358.3,14488,0)
  1. ;;=20600^^57^685^3^^^^1
  1. ;;^UTILITY(U,$J,358.3,14488,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,14488,1,2,0)
  1. ;;=2^Asp/Inj Small Joint/Bursa
  1. ;;^UTILITY(U,$J,358.3,14488,1,3,0)
  1. ;;=3^20600
  1. ;;^UTILITY(U,$J,358.3,14489,0)
  1. ;;=20605^^57^685^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,14489,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,14489,1,2,0)
  1. ;;=2^Asp/Inj Interm Jt(Ac/Wrist/Ankle
  1. ;;^UTILITY(U,$J,358.3,14489,1,3,0)
  1. ;;=3^20605
  1. ;;^UTILITY(U,$J,358.3,14490,0)
  1. ;;=20610^^57^685^2^^^^1
  1. ;;^UTILITY(U,$J,358.3,14490,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,14490,1,2,0)
  1. ;;=2^Asp/Inj Maj Jt (Should/Hip/Knee
  1. ;;^UTILITY(U,$J,358.3,14490,1,3,0)
  1. ;;=3^20610
  1. ;;^UTILITY(U,$J,358.3,14491,0)
  1. ;;=20550^^57^685^6^^^^1
  1. ;;^UTILITY(U,$J,358.3,14491,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,14491,1,2,0)
  1. ;;=2^Inject Tendon/Ligament/Cyst
  1. ;;^UTILITY(U,$J,358.3,14491,1,3,0)
  1. ;;=3^20550
  1. ;;^UTILITY(U,$J,358.3,14492,0)
  1. ;;=J1100^^57^685^5^^^^1
  1. ;;^UTILITY(U,$J,358.3,14492,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,14492,1,2,0)
  1. ;;=2^Dexamethasone Sodium Phos 1 mg
  1. ;;^UTILITY(U,$J,358.3,14492,1,3,0)
  1. ;;=3^J1100
  1. ;;^UTILITY(U,$J,358.3,14493,0)
  1. ;;=J0800^^57^685^4^^^^1
  1. ;;^UTILITY(U,$J,358.3,14493,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,14493,1,2,0)
  1. ;;=2^Corticotropin Inj up to 40 units
  1. ;;^UTILITY(U,$J,358.3,14493,1,3,0)
  1. ;;=3^J0800
  1. ;;^UTILITY(U,$J,358.3,14494,0)
  1. ;;=J1040^^57^685^8^^^^1
  1. ;;^UTILITY(U,$J,358.3,14494,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,14494,1,2,0)
  1. ;;=2^Methylprednisolone 80 Mg Inj
  1. ;;^UTILITY(U,$J,358.3,14494,1,3,0)
  1. ;;=3^J1040
  1. ;;^UTILITY(U,$J,358.3,14495,0)
  1. ;;=20552^^57^685^9^^^^1
  1. ;;^UTILITY(U,$J,358.3,14495,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,14495,1,2,0)
  1. ;;=2^Trigger Point(s) Inj,1-2 Muscles
  1. ;;^UTILITY(U,$J,358.3,14495,1,3,0)
  1. ;;=3^20552
  1. ;;^UTILITY(U,$J,358.3,14496,0)
  1. ;;=20553^^57^685^10^^^^1
  1. ;;^UTILITY(U,$J,358.3,14496,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,14496,1,2,0)
  1. ;;=2^Trigger Point(s) Inj,=/> 3 Muscles
  1. ;;^UTILITY(U,$J,358.3,14496,1,3,0)
  1. ;;=3^20553
  1. ;;^UTILITY(U,$J,358.3,14497,0)
  1. ;;=J0588^^57^685^11^^^^1