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