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

IBDEI2LD.m

Go to the documentation of this file.
  1. IBDEI2LD ; ; 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,41367,1,3,0)
  1. ;;=3^97012
  1. ;;^UTILITY(U,$J,358.3,41368,0)
  1. ;;=97035^^154^2040^50^^^^1
  1. ;;^UTILITY(U,$J,358.3,41368,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,41368,1,2,0)
  1. ;;=2^Ultrasound Therapy,ea 15min
  1. ;;^UTILITY(U,$J,358.3,41368,1,3,0)
  1. ;;=3^97035
  1. ;;^UTILITY(U,$J,358.3,41369,0)
  1. ;;=97028^^154^2040^51^^^^1
  1. ;;^UTILITY(U,$J,358.3,41369,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,41369,1,2,0)
  1. ;;=2^Ultraviolet Therapy
  1. ;;^UTILITY(U,$J,358.3,41369,1,3,0)
  1. ;;=3^97028
  1. ;;^UTILITY(U,$J,358.3,41370,0)
  1. ;;=97016^^154^2040^54^^^^1
  1. ;;^UTILITY(U,$J,358.3,41370,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,41370,1,2,0)
  1. ;;=2^Vasopneumatic Device Therapy
  1. ;;^UTILITY(U,$J,358.3,41370,1,3,0)
  1. ;;=3^97016
  1. ;;^UTILITY(U,$J,358.3,41371,0)
  1. ;;=97022^^154^2040^56^^^^1
  1. ;;^UTILITY(U,$J,358.3,41371,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,41371,1,2,0)
  1. ;;=2^Whirlpool Therapy
  1. ;;^UTILITY(U,$J,358.3,41371,1,3,0)
  1. ;;=3^97022
  1. ;;^UTILITY(U,$J,358.3,41372,0)
  1. ;;=97542^^154^2040^55^^^^1
  1. ;;^UTILITY(U,$J,358.3,41372,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,41372,1,2,0)
  1. ;;=2^Wheelchair Training,ea 15min
  1. ;;^UTILITY(U,$J,358.3,41372,1,3,0)
  1. ;;=3^97542
  1. ;;^UTILITY(U,$J,358.3,41373,0)
  1. ;;=97545^^154^2040^57^^^^1
  1. ;;^UTILITY(U,$J,358.3,41373,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,41373,1,2,0)
  1. ;;=2^Work Hardening,1st 2 hrs
  1. ;;^UTILITY(U,$J,358.3,41373,1,3,0)
  1. ;;=3^97545
  1. ;;^UTILITY(U,$J,358.3,41374,0)
  1. ;;=97546^^154^2040^58^^^^1
  1. ;;^UTILITY(U,$J,358.3,41374,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,41374,1,2,0)
  1. ;;=2^Work Hardening,ea addl hr
  1. ;;^UTILITY(U,$J,358.3,41374,1,3,0)
  1. ;;=3^97546
  1. ;;^UTILITY(U,$J,358.3,41375,0)
  1. ;;=95851^^154^2040^37^^^^1
  1. ;;^UTILITY(U,$J,358.3,41375,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,41375,1,2,0)
  1. ;;=2^Range Of Motion Measurements,ea extrem
  1. ;;^UTILITY(U,$J,358.3,41375,1,3,0)
  1. ;;=3^95851
  1. ;;^UTILITY(U,$J,358.3,41376,0)
  1. ;;=95852^^154^2040^36^^^^1
  1. ;;^UTILITY(U,$J,358.3,41376,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,41376,1,2,0)
  1. ;;=2^Range Of Motion Measurements,Hand
  1. ;;^UTILITY(U,$J,358.3,41376,1,3,0)
  1. ;;=3^95852
  1. ;;^UTILITY(U,$J,358.3,41377,0)
  1. ;;=97026^^154^2040^26^^^^1
  1. ;;^UTILITY(U,$J,358.3,41377,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,41377,1,2,0)
  1. ;;=2^Infrared Therapy
  1. ;;^UTILITY(U,$J,358.3,41377,1,3,0)
  1. ;;=3^97026
  1. ;;^UTILITY(U,$J,358.3,41378,0)
  1. ;;=97113^^154^2040^7^^^^1
  1. ;;^UTILITY(U,$J,358.3,41378,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,41378,1,2,0)
  1. ;;=2^Aquatic Therapy/Exercises,ea 15min
  1. ;;^UTILITY(U,$J,358.3,41378,1,3,0)
  1. ;;=3^97113
  1. ;;^UTILITY(U,$J,358.3,41379,0)
  1. ;;=90901^^154^2040^11^^^^1
  1. ;;^UTILITY(U,$J,358.3,41379,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,41379,1,2,0)
  1. ;;=2^Biofeedback Train, Any Meth
  1. ;;^UTILITY(U,$J,358.3,41379,1,3,0)
  1. ;;=3^90901
  1. ;;^UTILITY(U,$J,358.3,41380,0)
  1. ;;=97034^^154^2040^15^^^^1
  1. ;;^UTILITY(U,$J,358.3,41380,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,41380,1,2,0)
  1. ;;=2^Contrast Bath Therapy,ea 15min
  1. ;;^UTILITY(U,$J,358.3,41380,1,3,0)
  1. ;;=3^97034
  1. ;;^UTILITY(U,$J,358.3,41381,0)
  1. ;;=29540^^154^2040^44^^^^1
  1. ;;^UTILITY(U,$J,358.3,41381,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,41381,1,2,0)
  1. ;;=2^Strapping;Ankle and/or Foot
  1. ;;^UTILITY(U,$J,358.3,41381,1,3,0)
  1. ;;=3^29540
  1. ;;^UTILITY(U,$J,358.3,41382,0)
  1. ;;=29580^^154^2040^45^^^^1
  1. ;;^UTILITY(U,$J,358.3,41382,1,0)
  1. ;;=^358.31IA^3^2