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

IBDEI0W6.m

Go to the documentation of this file.
  1. IBDEI0W6 ; ; 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,14497,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,14497,1,2,0)
  1. ;;=2^Xeomin (Incobotulinumtoxin A) 1 Unit
  1. ;;^UTILITY(U,$J,358.3,14497,1,3,0)
  1. ;;=3^J0588
  1. ;;^UTILITY(U,$J,358.3,14498,0)
  1. ;;=J1030^^57^685^7^^^^1
  1. ;;^UTILITY(U,$J,358.3,14498,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,14498,1,2,0)
  1. ;;=2^Methylprednisolone 40mg
  1. ;;^UTILITY(U,$J,358.3,14498,1,3,0)
  1. ;;=3^J1030
  1. ;;^UTILITY(U,$J,358.3,14499,0)
  1. ;;=97597^^57^686^2^^^^1
  1. ;;^UTILITY(U,$J,358.3,14499,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,14499,1,2,0)
  1. ;;=2^Active Wound Care/20 Cm Or <
  1. ;;^UTILITY(U,$J,358.3,14499,1,3,0)
  1. ;;=3^97597
  1. ;;^UTILITY(U,$J,358.3,14500,0)
  1. ;;=97598^^57^686^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,14500,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,14500,1,2,0)
  1. ;;=2^Active Wound Care each adtl 20 Cm
  1. ;;^UTILITY(U,$J,358.3,14500,1,3,0)
  1. ;;=3^97598
  1. ;;^UTILITY(U,$J,358.3,14501,0)
  1. ;;=97605^^57^686^7^^^^1
  1. ;;^UTILITY(U,$J,358.3,14501,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,14501,1,2,0)
  1. ;;=2^Neg Press Wound Tx < 50 Cm
  1. ;;^UTILITY(U,$J,358.3,14501,1,3,0)
  1. ;;=3^97605
  1. ;;^UTILITY(U,$J,358.3,14502,0)
  1. ;;=97606^^57^686^8^^^^1
  1. ;;^UTILITY(U,$J,358.3,14502,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,14502,1,2,0)
  1. ;;=2^Neg Press Wound Tx, > 50 Cm
  1. ;;^UTILITY(U,$J,358.3,14502,1,3,0)
  1. ;;=3^97606
  1. ;;^UTILITY(U,$J,358.3,14503,0)
  1. ;;=97602^^57^686^9^^^^1
  1. ;;^UTILITY(U,$J,358.3,14503,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,14503,1,2,0)
  1. ;;=2^Remove Divit. Tissue w/o Anesth
  1. ;;^UTILITY(U,$J,358.3,14503,1,3,0)
  1. ;;=3^97602
  1. ;;^UTILITY(U,$J,358.3,14504,0)
  1. ;;=G0281^^57^686^5^^^^1
  1. ;;^UTILITY(U,$J,358.3,14504,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,14504,1,2,0)
  1. ;;=2^Electrical Stim,Stg 3/4 Wnd Care
  1. ;;^UTILITY(U,$J,358.3,14504,1,3,0)
  1. ;;=3^G0281
  1. ;;^UTILITY(U,$J,358.3,14505,0)
  1. ;;=G0283^^57^686^3^^^^1
  1. ;;^UTILITY(U,$J,358.3,14505,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,14505,1,2,0)
  1. ;;=2^Electrical Stim,Oth than Wnd Care
  1. ;;^UTILITY(U,$J,358.3,14505,1,3,0)
  1. ;;=3^G0283
  1. ;;^UTILITY(U,$J,358.3,14506,0)
  1. ;;=G0329^^57^686^6^^^^1
  1. ;;^UTILITY(U,$J,358.3,14506,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,14506,1,2,0)
  1. ;;=2^Electromagnetic Therapy,Wound Care
  1. ;;^UTILITY(U,$J,358.3,14506,1,3,0)
  1. ;;=3^G0329
  1. ;;^UTILITY(U,$J,358.3,14507,0)
  1. ;;=97610^^57^686^10^^^^1
  1. ;;^UTILITY(U,$J,358.3,14507,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,14507,1,2,0)
  1. ;;=2^US LF Non-Contact Non-Therm,Wnd Assess
  1. ;;^UTILITY(U,$J,358.3,14507,1,3,0)
  1. ;;=3^97610
  1. ;;^UTILITY(U,$J,358.3,14508,0)
  1. ;;=G0282^^57^686^4^^^^1
  1. ;;^UTILITY(U,$J,358.3,14508,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,14508,1,2,0)
  1. ;;=2^Electrical Stim,Stg 1/2 Wnd Care
  1. ;;^UTILITY(U,$J,358.3,14508,1,3,0)
  1. ;;=3^G0282
  1. ;;^UTILITY(U,$J,358.3,14509,0)
  1. ;;=99070^^57^687^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,14509,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,14509,1,2,0)
  1. ;;=2^SPECIAL SUPPLIES
  1. ;;^UTILITY(U,$J,358.3,14509,1,3,0)
  1. ;;=3^99070
  1. ;;^UTILITY(U,$J,358.3,14510,0)
  1. ;;=97039^^57^687^3^^^^1
  1. ;;^UTILITY(U,$J,358.3,14510,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,14510,1,2,0)
  1. ;;=2^UNLISTED PT MODALITY
  1. ;;^UTILITY(U,$J,358.3,14510,1,3,0)
  1. ;;=3^97039
  1. ;;^UTILITY(U,$J,358.3,14511,0)
  1. ;;=97799^^57^687^2^^^^1
  1. ;;^UTILITY(U,$J,358.3,14511,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,14511,1,2,0)
  1. ;;=2^UNLISTED PROCEDURE
  1. ;;^UTILITY(U,$J,358.3,14511,1,3,0)
  1. ;;=3^97799