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

IBDEI22J.m

Go to the documentation of this file.
  1. IBDEI22J ; ; 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,33016,1,3,0)
  1. ;;=3^Abnormal Head Movements
  1. ;;^UTILITY(U,$J,358.3,33016,1,4,0)
  1. ;;=4^R25.0
  1. ;;^UTILITY(U,$J,358.3,33016,2)
  1. ;;=^5019299
  1. ;;^UTILITY(U,$J,358.3,33017,0)
  1. ;;=G45.3^^128^1675^2
  1. ;;^UTILITY(U,$J,358.3,33017,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33017,1,3,0)
  1. ;;=3^Amaurosis Fugax
  1. ;;^UTILITY(U,$J,358.3,33017,1,4,0)
  1. ;;=4^G45.3
  1. ;;^UTILITY(U,$J,358.3,33017,2)
  1. ;;=^304129
  1. ;;^UTILITY(U,$J,358.3,33018,0)
  1. ;;=H53.002^^128^1675^3
  1. ;;^UTILITY(U,$J,358.3,33018,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33018,1,3,0)
  1. ;;=3^Amblyopia,Left Eye
  1. ;;^UTILITY(U,$J,358.3,33018,1,4,0)
  1. ;;=4^H53.002
  1. ;;^UTILITY(U,$J,358.3,33018,2)
  1. ;;=^5006293
  1. ;;^UTILITY(U,$J,358.3,33019,0)
  1. ;;=H53.001^^128^1675^4
  1. ;;^UTILITY(U,$J,358.3,33019,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33019,1,3,0)
  1. ;;=3^Amblyopia,Right Eye
  1. ;;^UTILITY(U,$J,358.3,33019,1,4,0)
  1. ;;=4^H53.001
  1. ;;^UTILITY(U,$J,358.3,33019,2)
  1. ;;=^5006292
  1. ;;^UTILITY(U,$J,358.3,33020,0)
  1. ;;=H51.9^^128^1675^5
  1. ;;^UTILITY(U,$J,358.3,33020,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33020,1,3,0)
  1. ;;=3^Binocular Movement Disorder,Unspec
  1. ;;^UTILITY(U,$J,358.3,33020,1,4,0)
  1. ;;=4^H51.9
  1. ;;^UTILITY(U,$J,358.3,33020,2)
  1. ;;=^5006258
  1. ;;^UTILITY(U,$J,358.3,33021,0)
  1. ;;=G24.5^^128^1675^7
  1. ;;^UTILITY(U,$J,358.3,33021,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33021,1,3,0)
  1. ;;=3^Blepharospasm
  1. ;;^UTILITY(U,$J,358.3,33021,1,4,0)
  1. ;;=4^G24.5
  1. ;;^UTILITY(U,$J,358.3,33021,2)
  1. ;;=^15293
  1. ;;^UTILITY(U,$J,358.3,33022,0)
  1. ;;=H53.30^^128^1675^6
  1. ;;^UTILITY(U,$J,358.3,33022,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33022,1,3,0)
  1. ;;=3^Binocular Vision Disorder,Unspec
  1. ;;^UTILITY(U,$J,358.3,33022,1,4,0)
  1. ;;=4^H53.30
  1. ;;^UTILITY(U,$J,358.3,33022,2)
  1. ;;=^5006322
  1. ;;^UTILITY(U,$J,358.3,33023,0)
  1. ;;=I67.9^^128^1675^15
  1. ;;^UTILITY(U,$J,358.3,33023,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33023,1,3,0)
  1. ;;=3^Cerebrovascular Disease,Unspec
  1. ;;^UTILITY(U,$J,358.3,33023,1,4,0)
  1. ;;=4^I67.9
  1. ;;^UTILITY(U,$J,358.3,33023,2)
  1. ;;=^5007389
  1. ;;^UTILITY(U,$J,358.3,33024,0)
  1. ;;=H49.02^^128^1675^8
  1. ;;^UTILITY(U,$J,358.3,33024,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33024,1,3,0)
  1. ;;=3^CN3-Oculomotor Nerve Palsy,Left Eye
  1. ;;^UTILITY(U,$J,358.3,33024,1,4,0)
  1. ;;=4^H49.02
  1. ;;^UTILITY(U,$J,358.3,33024,2)
  1. ;;=^5006181
  1. ;;^UTILITY(U,$J,358.3,33025,0)
  1. ;;=H49.01^^128^1675^9
  1. ;;^UTILITY(U,$J,358.3,33025,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33025,1,3,0)
  1. ;;=3^CN3-Oculomotor Nerve Palsy,Right Eye
  1. ;;^UTILITY(U,$J,358.3,33025,1,4,0)
  1. ;;=4^H49.01
  1. ;;^UTILITY(U,$J,358.3,33025,2)
  1. ;;=^5006180
  1. ;;^UTILITY(U,$J,358.3,33026,0)
  1. ;;=H49.12^^128^1675^10
  1. ;;^UTILITY(U,$J,358.3,33026,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33026,1,3,0)
  1. ;;=3^CN4-Trochlear Nerve Palsy,Left Eye
  1. ;;^UTILITY(U,$J,358.3,33026,1,4,0)
  1. ;;=4^H49.12
  1. ;;^UTILITY(U,$J,358.3,33026,2)
  1. ;;=^5006185
  1. ;;^UTILITY(U,$J,358.3,33027,0)
  1. ;;=H49.11^^128^1675^11
  1. ;;^UTILITY(U,$J,358.3,33027,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33027,1,3,0)
  1. ;;=3^CN4-Trochlear Nerve Palsy,Right Eye
  1. ;;^UTILITY(U,$J,358.3,33027,1,4,0)
  1. ;;=4^H49.11
  1. ;;^UTILITY(U,$J,358.3,33027,2)
  1. ;;=^5006184
  1. ;;^UTILITY(U,$J,358.3,33028,0)
  1. ;;=H49.22^^128^1675^12
  1. ;;^UTILITY(U,$J,358.3,33028,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33028,1,3,0)
  1. ;;=3^CN6-Abducent Nerve Palsy,Left Eye
  1. ;;^UTILITY(U,$J,358.3,33028,1,4,0)
  1. ;;=4^H49.22