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