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

IBDEI28E.m

Go to the documentation of this file.
  1. IBDEI28E ; ; 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,35630,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,35630,1,3,0)
  1. ;;=3^Paralytic Syndrome,Left Non-Dominant Side
  1. ;;^UTILITY(U,$J,358.3,35630,1,4,0)
  1. ;;=4^I69.964
  1. ;;^UTILITY(U,$J,358.3,35630,2)
  1. ;;=^5133589
  1. ;;^UTILITY(U,$J,358.3,35631,0)
  1. ;;=I69.965^^139^1818^22
  1. ;;^UTILITY(U,$J,358.3,35631,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,35631,1,3,0)
  1. ;;=3^Paralytic Syndrome,Bilateral
  1. ;;^UTILITY(U,$J,358.3,35631,1,4,0)
  1. ;;=4^I69.965
  1. ;;^UTILITY(U,$J,358.3,35631,2)
  1. ;;=^5007566
  1. ;;^UTILITY(U,$J,358.3,35632,0)
  1. ;;=I69.990^^139^1818^2
  1. ;;^UTILITY(U,$J,358.3,35632,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,35632,1,3,0)
  1. ;;=3^Apraxia
  1. ;;^UTILITY(U,$J,358.3,35632,1,4,0)
  1. ;;=4^I69.990
  1. ;;^UTILITY(U,$J,358.3,35632,2)
  1. ;;=^5007568
  1. ;;^UTILITY(U,$J,358.3,35633,0)
  1. ;;=I69.991^^139^1818^7
  1. ;;^UTILITY(U,$J,358.3,35633,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,35633,1,3,0)
  1. ;;=3^Dysphagia
  1. ;;^UTILITY(U,$J,358.3,35633,1,4,0)
  1. ;;=4^I69.991
  1. ;;^UTILITY(U,$J,358.3,35633,2)
  1. ;;=^5007569
  1. ;;^UTILITY(U,$J,358.3,35634,0)
  1. ;;=I69.992^^139^1818^9
  1. ;;^UTILITY(U,$J,358.3,35634,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,35634,1,3,0)
  1. ;;=3^Facial Weakness
  1. ;;^UTILITY(U,$J,358.3,35634,1,4,0)
  1. ;;=4^I69.992
  1. ;;^UTILITY(U,$J,358.3,35634,2)
  1. ;;=^5007570
  1. ;;^UTILITY(U,$J,358.3,35635,0)
  1. ;;=I69.993^^139^1818^3
  1. ;;^UTILITY(U,$J,358.3,35635,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,35635,1,3,0)
  1. ;;=3^Ataxia
  1. ;;^UTILITY(U,$J,358.3,35635,1,4,0)
  1. ;;=4^I69.993
  1. ;;^UTILITY(U,$J,358.3,35635,2)
  1. ;;=^5007571
  1. ;;^UTILITY(U,$J,358.3,35636,0)
  1. ;;=I69.998^^139^1818^21
  1. ;;^UTILITY(U,$J,358.3,35636,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,35636,1,3,0)
  1. ;;=3^Other Sequelae Following Unspec CVA
  1. ;;^UTILITY(U,$J,358.3,35636,1,4,0)
  1. ;;=4^I69.998
  1. ;;^UTILITY(U,$J,358.3,35636,2)
  1. ;;=^5007572
  1. ;;^UTILITY(U,$J,358.3,35637,0)
  1. ;;=Z89.442^^139^1819^1
  1. ;;^UTILITY(U,$J,358.3,35637,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,35637,1,3,0)
  1. ;;=3^Acquired Absence,Lt Ankle
  1. ;;^UTILITY(U,$J,358.3,35637,1,4,0)
  1. ;;=4^Z89.442
  1. ;;^UTILITY(U,$J,358.3,35637,2)
  1. ;;=^5063564
  1. ;;^UTILITY(U,$J,358.3,35638,0)
  1. ;;=Z89.022^^139^1819^4
  1. ;;^UTILITY(U,$J,358.3,35638,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,35638,1,3,0)
  1. ;;=3^Acquired Absence,Lt Finger(s)
  1. ;;^UTILITY(U,$J,358.3,35638,1,4,0)
  1. ;;=4^Z89.022
  1. ;;^UTILITY(U,$J,358.3,35638,2)
  1. ;;=^5063535
  1. ;;^UTILITY(U,$J,358.3,35639,0)
  1. ;;=Z89.432^^139^1819^5
  1. ;;^UTILITY(U,$J,358.3,35639,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,35639,1,3,0)
  1. ;;=3^Acquired Absence,Lt Foot
  1. ;;^UTILITY(U,$J,358.3,35639,1,4,0)
  1. ;;=4^Z89.432
  1. ;;^UTILITY(U,$J,358.3,35639,2)
  1. ;;=^5063561
  1. ;;^UTILITY(U,$J,358.3,35640,0)
  1. ;;=Z89.412^^139^1819^6
  1. ;;^UTILITY(U,$J,358.3,35640,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,35640,1,3,0)
  1. ;;=3^Acquired Absence,Lt Great Toe
  1. ;;^UTILITY(U,$J,358.3,35640,1,4,0)
  1. ;;=4^Z89.412
  1. ;;^UTILITY(U,$J,358.3,35640,2)
  1. ;;=^5063555
  1. ;;^UTILITY(U,$J,358.3,35641,0)
  1. ;;=Z89.112^^139^1819^7
  1. ;;^UTILITY(U,$J,358.3,35641,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,35641,1,3,0)
  1. ;;=3^Acquired Absence,Lt Hand
  1. ;;^UTILITY(U,$J,358.3,35641,1,4,0)
  1. ;;=4^Z89.112
  1. ;;^UTILITY(U,$J,358.3,35641,2)
  1. ;;=^5063538
  1. ;;^UTILITY(U,$J,358.3,35642,0)
  1. ;;=Z89.622^^139^1819^8
  1. ;;^UTILITY(U,$J,358.3,35642,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,35642,1,3,0)
  1. ;;=3^Acquired Absence,Lt Hip Joint
  1. ;;^UTILITY(U,$J,358.3,35642,1,4,0)
  1. ;;=4^Z89.622