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

IBDEI2LN.m

Go to the documentation of this file.
IBDEI2LN ; ; 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,41513,1,2,0)
 ;;=2^Protector Heel or Elbow
 ;;^UTILITY(U,$J,358.3,41513,1,3,0)
 ;;=3^E0191
 ;;^UTILITY(U,$J,358.3,41514,0)
 ;;=99002^^154^2053^1^^^^1
 ;;^UTILITY(U,$J,358.3,41514,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,41514,1,2,0)
 ;;=2^Device Handling Phys/QHP
 ;;^UTILITY(U,$J,358.3,41514,1,3,0)
 ;;=3^99002
 ;;^UTILITY(U,$J,358.3,41515,0)
 ;;=E0720^^154^2054^1^^^^1
 ;;^UTILITY(U,$J,358.3,41515,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,41515,1,2,0)
 ;;=2^TENS 2 Lead
 ;;^UTILITY(U,$J,358.3,41515,1,3,0)
 ;;=3^E0720
 ;;^UTILITY(U,$J,358.3,41516,0)
 ;;=E0730^^154^2054^2^^^^1
 ;;^UTILITY(U,$J,358.3,41516,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,41516,1,2,0)
 ;;=2^TENS 4 Lead
 ;;^UTILITY(U,$J,358.3,41516,1,3,0)
 ;;=3^E0730
 ;;^UTILITY(U,$J,358.3,41517,0)
 ;;=97014^^154^2054^4^^^^1
 ;;^UTILITY(U,$J,358.3,41517,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,41517,1,2,0)
 ;;=2^TENS,Unattended
 ;;^UTILITY(U,$J,358.3,41517,1,3,0)
 ;;=3^97014
 ;;^UTILITY(U,$J,358.3,41518,0)
 ;;=97032^^154^2054^3^^^^1
 ;;^UTILITY(U,$J,358.3,41518,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,41518,1,2,0)
 ;;=2^TENS,1+ Areas,Ea 15 min
 ;;^UTILITY(U,$J,358.3,41518,1,3,0)
 ;;=3^97032
 ;;^UTILITY(U,$J,358.3,41519,0)
 ;;=97810^^154^2055^1^^^^1
 ;;^UTILITY(U,$J,358.3,41519,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,41519,1,2,0)
 ;;=2^Acupuncture w/o Stimul,1st 15 min
 ;;^UTILITY(U,$J,358.3,41519,1,3,0)
 ;;=3^97810
 ;;^UTILITY(U,$J,358.3,41520,0)
 ;;=97811^^154^2055^2^^^^1
 ;;^UTILITY(U,$J,358.3,41520,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,41520,1,2,0)
 ;;=2^Acupuncture w/o Stimul,Ea Addl 15 min
 ;;^UTILITY(U,$J,358.3,41520,1,3,0)
 ;;=3^97811
 ;;^UTILITY(U,$J,358.3,41521,0)
 ;;=97813^^154^2055^3^^^^1
 ;;^UTILITY(U,$J,358.3,41521,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,41521,1,2,0)
 ;;=2^Acupuncture w/ Stimul,1st 15 min
 ;;^UTILITY(U,$J,358.3,41521,1,3,0)
 ;;=3^97813
 ;;^UTILITY(U,$J,358.3,41522,0)
 ;;=97814^^154^2055^4^^^^1
 ;;^UTILITY(U,$J,358.3,41522,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,41522,1,2,0)
 ;;=2^Acupuncture w/ Stimul,Ea Addl 15 min
 ;;^UTILITY(U,$J,358.3,41522,1,3,0)
 ;;=3^97814
 ;;^UTILITY(U,$J,358.3,41523,0)
 ;;=20606^^154^2056^1^^^^1
 ;;^UTILITY(U,$J,358.3,41523,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,41523,1,2,0)
 ;;=2^Asp/Inj Intermediate Jt w/ US
 ;;^UTILITY(U,$J,358.3,41523,1,3,0)
 ;;=3^20606
 ;;^UTILITY(U,$J,358.3,41524,0)
 ;;=20605^^154^2056^2^^^^1
 ;;^UTILITY(U,$J,358.3,41524,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,41524,1,2,0)
 ;;=2^Asp/Inj Intermediate Jt w/o US
 ;;^UTILITY(U,$J,358.3,41524,1,3,0)
 ;;=3^20605
 ;;^UTILITY(U,$J,358.3,41525,0)
 ;;=20611^^154^2056^4^^^^1
 ;;^UTILITY(U,$J,358.3,41525,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,41525,1,2,0)
 ;;=2^Asp/Inj Major Jt w/ US (Viscosupplementation)
 ;;^UTILITY(U,$J,358.3,41525,1,3,0)
 ;;=3^20611
 ;;^UTILITY(U,$J,358.3,41526,0)
 ;;=20610^^154^2056^3^^^^1
 ;;^UTILITY(U,$J,358.3,41526,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,41526,1,2,0)
 ;;=2^Asp/Inj Maj Jt w/o US (Viscosupplementation)
 ;;^UTILITY(U,$J,358.3,41526,1,3,0)
 ;;=3^20610
 ;;^UTILITY(U,$J,358.3,41527,0)
 ;;=20604^^154^2056^5^^^^1
 ;;^UTILITY(U,$J,358.3,41527,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,41527,1,2,0)
 ;;=2^Asp/Inj Small Jt w/ US
 ;;^UTILITY(U,$J,358.3,41527,1,3,0)
 ;;=3^20604
 ;;^UTILITY(U,$J,358.3,41528,0)
 ;;=20600^^154^2056^6^^^^1