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

IBDEI23L.m

Go to the documentation of this file.
  1. IBDEI23L ; ; 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,33531,1,3,0)
  1. ;;=3^Enthesopathy of left foot NEC
  1. ;;^UTILITY(U,$J,358.3,33531,1,4,0)
  1. ;;=4^M77.52
  1. ;;^UTILITY(U,$J,358.3,33531,2)
  1. ;;=^5013317
  1. ;;^UTILITY(U,$J,358.3,33532,0)
  1. ;;=M77.51^^132^1704^6
  1. ;;^UTILITY(U,$J,358.3,33532,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33532,1,3,0)
  1. ;;=3^Enthesopathy of right foot NEC
  1. ;;^UTILITY(U,$J,358.3,33532,1,4,0)
  1. ;;=4^M77.51
  1. ;;^UTILITY(U,$J,358.3,33532,2)
  1. ;;=^5013316
  1. ;;^UTILITY(U,$J,358.3,33533,0)
  1. ;;=M65.872^^132^1704^26
  1. ;;^UTILITY(U,$J,358.3,33533,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33533,1,3,0)
  1. ;;=3^Synovitis and tenosynovitis, left ankle and foot NEC
  1. ;;^UTILITY(U,$J,358.3,33533,1,4,0)
  1. ;;=4^M65.872
  1. ;;^UTILITY(U,$J,358.3,33533,2)
  1. ;;=^5012813
  1. ;;^UTILITY(U,$J,358.3,33534,0)
  1. ;;=M65.871^^132^1704^27
  1. ;;^UTILITY(U,$J,358.3,33534,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33534,1,3,0)
  1. ;;=3^Synovitis and tenosynovitis, right ankle and foot NEC
  1. ;;^UTILITY(U,$J,358.3,33534,1,4,0)
  1. ;;=4^M65.871
  1. ;;^UTILITY(U,$J,358.3,33534,2)
  1. ;;=^5012812
  1. ;;^UTILITY(U,$J,358.3,33535,0)
  1. ;;=M79.672^^132^1704^15
  1. ;;^UTILITY(U,$J,358.3,33535,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33535,1,3,0)
  1. ;;=3^Pain in left foot
  1. ;;^UTILITY(U,$J,358.3,33535,1,4,0)
  1. ;;=4^M79.672
  1. ;;^UTILITY(U,$J,358.3,33535,2)
  1. ;;=^5013351
  1. ;;^UTILITY(U,$J,358.3,33536,0)
  1. ;;=M79.671^^132^1704^16
  1. ;;^UTILITY(U,$J,358.3,33536,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33536,1,3,0)
  1. ;;=3^Pain in right foot
  1. ;;^UTILITY(U,$J,358.3,33536,1,4,0)
  1. ;;=4^M79.671
  1. ;;^UTILITY(U,$J,358.3,33536,2)
  1. ;;=^5013350
  1. ;;^UTILITY(U,$J,358.3,33537,0)
  1. ;;=M76.72^^132^1704^17
  1. ;;^UTILITY(U,$J,358.3,33537,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33537,1,3,0)
  1. ;;=3^Peroneal tendinitis, left leg
  1. ;;^UTILITY(U,$J,358.3,33537,1,4,0)
  1. ;;=4^M76.72
  1. ;;^UTILITY(U,$J,358.3,33537,2)
  1. ;;=^5013289
  1. ;;^UTILITY(U,$J,358.3,33538,0)
  1. ;;=M76.71^^132^1704^18
  1. ;;^UTILITY(U,$J,358.3,33538,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33538,1,3,0)
  1. ;;=3^Peroneal tendinitis, right leg
  1. ;;^UTILITY(U,$J,358.3,33538,1,4,0)
  1. ;;=4^M76.71
  1. ;;^UTILITY(U,$J,358.3,33538,2)
  1. ;;=^5013288
  1. ;;^UTILITY(U,$J,358.3,33539,0)
  1. ;;=M72.2^^132^1704^19
  1. ;;^UTILITY(U,$J,358.3,33539,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33539,1,3,0)
  1. ;;=3^Plantar fascial fibromatosis
  1. ;;^UTILITY(U,$J,358.3,33539,1,4,0)
  1. ;;=4^M72.2
  1. ;;^UTILITY(U,$J,358.3,33539,2)
  1. ;;=^272598
  1. ;;^UTILITY(U,$J,358.3,33540,0)
  1. ;;=M19.072^^132^1704^22
  1. ;;^UTILITY(U,$J,358.3,33540,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33540,1,3,0)
  1. ;;=3^Primary osteoarthritis, left ankle and foot
  1. ;;^UTILITY(U,$J,358.3,33540,1,4,0)
  1. ;;=4^M19.072
  1. ;;^UTILITY(U,$J,358.3,33540,2)
  1. ;;=^5010821
  1. ;;^UTILITY(U,$J,358.3,33541,0)
  1. ;;=M19.071^^132^1704^23
  1. ;;^UTILITY(U,$J,358.3,33541,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33541,1,3,0)
  1. ;;=3^Primary osteoarthritis, right ankle and foot
  1. ;;^UTILITY(U,$J,358.3,33541,1,4,0)
  1. ;;=4^M19.071
  1. ;;^UTILITY(U,$J,358.3,33541,2)
  1. ;;=^5010820
  1. ;;^UTILITY(U,$J,358.3,33542,0)
  1. ;;=G57.52^^132^1704^28
  1. ;;^UTILITY(U,$J,358.3,33542,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33542,1,3,0)
  1. ;;=3^Tarsal tunnel syndrome, left lower limb
  1. ;;^UTILITY(U,$J,358.3,33542,1,4,0)
  1. ;;=4^G57.52
  1. ;;^UTILITY(U,$J,358.3,33542,2)
  1. ;;=^5004055
  1. ;;^UTILITY(U,$J,358.3,33543,0)
  1. ;;=G57.51^^132^1704^29
  1. ;;^UTILITY(U,$J,358.3,33543,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33543,1,3,0)
  1. ;;=3^Tarsal tunnel syndrome, right lower limb