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

IBDEI2ST.m

Go to the documentation of this file.
  1. IBDEI2ST ; ; 04-FEB-2020
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
  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,44631,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,44631,1,2,0)
  1. ;;=2^97171
  1. ;;^UTILITY(U,$J,358.3,44631,1,3,0)
  1. ;;=3^Athletic Trn Eval,High Cmplx,45 min
  1. ;;^UTILITY(U,$J,358.3,44632,0)
  1. ;;=97170^^166^2215^5^^^^1
  1. ;;^UTILITY(U,$J,358.3,44632,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,44632,1,2,0)
  1. ;;=2^97170
  1. ;;^UTILITY(U,$J,358.3,44632,1,3,0)
  1. ;;=3^Athletic Trn Eval,Mod Cmplx,30 min
  1. ;;^UTILITY(U,$J,358.3,44633,0)
  1. ;;=97169^^166^2215^4^^^^1
  1. ;;^UTILITY(U,$J,358.3,44633,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,44633,1,2,0)
  1. ;;=2^97169
  1. ;;^UTILITY(U,$J,358.3,44633,1,3,0)
  1. ;;=3^Athletic Trn Eval,Low Cmplx,15 min
  1. ;;^UTILITY(U,$J,358.3,44634,0)
  1. ;;=90471^^166^2216^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,44634,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,44634,1,2,0)
  1. ;;=2^90471
  1. ;;^UTILITY(U,$J,358.3,44634,1,3,0)
  1. ;;=3^Immunization Admin,Single
  1. ;;^UTILITY(U,$J,358.3,44635,0)
  1. ;;=90472^^166^2216^2^^^^1
  1. ;;^UTILITY(U,$J,358.3,44635,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,44635,1,2,0)
  1. ;;=2^90472
  1. ;;^UTILITY(U,$J,358.3,44635,1,3,0)
  1. ;;=3^Immunization Admin,Ea Addl
  1. ;;^UTILITY(U,$J,358.3,44636,0)
  1. ;;=97034^^166^2217^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,44636,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,44636,1,2,0)
  1. ;;=2^97034
  1. ;;^UTILITY(U,$J,358.3,44636,1,3,0)
  1. ;;=3^Contrast Baths Ea 15Min
  1. ;;^UTILITY(U,$J,358.3,44637,0)
  1. ;;=97014^^166^2217^2^^^^1
  1. ;;^UTILITY(U,$J,358.3,44637,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,44637,1,2,0)
  1. ;;=2^97014
  1. ;;^UTILITY(U,$J,358.3,44637,1,3,0)
  1. ;;=3^Electrical Stimulation
  1. ;;^UTILITY(U,$J,358.3,44638,0)
  1. ;;=97116^^166^2217^3^^^^1
  1. ;;^UTILITY(U,$J,358.3,44638,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,44638,1,2,0)
  1. ;;=2^97116
  1. ;;^UTILITY(U,$J,358.3,44638,1,3,0)
  1. ;;=3^Gait Training
  1. ;;^UTILITY(U,$J,358.3,44639,0)
  1. ;;=97010^^166^2217^4^^^^1
  1. ;;^UTILITY(U,$J,358.3,44639,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,44639,1,2,0)
  1. ;;=2^97010
  1. ;;^UTILITY(U,$J,358.3,44639,1,3,0)
  1. ;;=3^Hot/Cold Therapies
  1. ;;^UTILITY(U,$J,358.3,44640,0)
  1. ;;=97033^^166^2217^5^^^^1
  1. ;;^UTILITY(U,$J,358.3,44640,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,44640,1,2,0)
  1. ;;=2^97033
  1. ;;^UTILITY(U,$J,358.3,44640,1,3,0)
  1. ;;=3^Iontophoresis Ea 15Min
  1. ;;^UTILITY(U,$J,358.3,44641,0)
  1. ;;=97530^^166^2217^6^^^^1
  1. ;;^UTILITY(U,$J,358.3,44641,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,44641,1,2,0)
  1. ;;=2^97530
  1. ;;^UTILITY(U,$J,358.3,44641,1,3,0)
  1. ;;=3^Kinetic Therapy Ea 15Min
  1. ;;^UTILITY(U,$J,358.3,44642,0)
  1. ;;=97140^^166^2217^7^^^^1
  1. ;;^UTILITY(U,$J,358.3,44642,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,44642,1,2,0)
  1. ;;=2^97140
  1. ;;^UTILITY(U,$J,358.3,44642,1,3,0)
  1. ;;=3^Manipulation/Mobilization Ea 15Min
  1. ;;^UTILITY(U,$J,358.3,44643,0)
  1. ;;=97112^^166^2217^8^^^^1
  1. ;;^UTILITY(U,$J,358.3,44643,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,44643,1,2,0)
  1. ;;=2^97112
  1. ;;^UTILITY(U,$J,358.3,44643,1,3,0)
  1. ;;=3^Neuromuscular Re-Ed
  1. ;;^UTILITY(U,$J,358.3,44644,0)
  1. ;;=97039^^166^2217^12^^^^1
  1. ;;^UTILITY(U,$J,358.3,44644,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,44644,1,2,0)
  1. ;;=2^97039
  1. ;;^UTILITY(U,$J,358.3,44644,1,3,0)
  1. ;;=3^Unlisted PT Modality
  1. ;;^UTILITY(U,$J,358.3,44645,0)
  1. ;;=97124^^166^2217^10^^^^1
  1. ;;^UTILITY(U,$J,358.3,44645,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,44645,1,2,0)
  1. ;;=2^97124
  1. ;;^UTILITY(U,$J,358.3,44645,1,3,0)
  1. ;;=3^Therapeutic Massage
  1. ;;^UTILITY(U,$J,358.3,44646,0)
  1. ;;=97110^^166^2217^9^^^^1