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

IBDEI2VT.m

Go to the documentation of this file.
  1. IBDEI2VT ; ; 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,45969,1,4,0)
  1. ;;=4^G93.2
  1. ;;^UTILITY(U,$J,358.3,45969,2)
  1. ;;=^5004180
  1. ;;^UTILITY(U,$J,358.3,45970,0)
  1. ;;=G51.0^^176^2295^20
  1. ;;^UTILITY(U,$J,358.3,45970,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45970,1,3,0)
  1. ;;=3^CN7-Bell's Palsy
  1. ;;^UTILITY(U,$J,358.3,45970,1,4,0)
  1. ;;=4^G51.0
  1. ;;^UTILITY(U,$J,358.3,45970,2)
  1. ;;=^13238
  1. ;;^UTILITY(U,$J,358.3,45971,0)
  1. ;;=G51.4^^176^2295^36
  1. ;;^UTILITY(U,$J,358.3,45971,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45971,1,3,0)
  1. ;;=3^Facial Myokymia
  1. ;;^UTILITY(U,$J,358.3,45971,1,4,0)
  1. ;;=4^G51.4
  1. ;;^UTILITY(U,$J,358.3,45971,2)
  1. ;;=^5003996
  1. ;;^UTILITY(U,$J,358.3,45972,0)
  1. ;;=H34.01^^176^2295^11
  1. ;;^UTILITY(U,$J,358.3,45972,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45972,1,3,0)
  1. ;;=3^Retinal Artery Occlusion,Transient,Right Eye
  1. ;;^UTILITY(U,$J,358.3,45972,1,4,0)
  1. ;;=4^H34.01
  1. ;;^UTILITY(U,$J,358.3,45972,2)
  1. ;;=^5005553
  1. ;;^UTILITY(U,$J,358.3,45973,0)
  1. ;;=H34.02^^176^2295^12
  1. ;;^UTILITY(U,$J,358.3,45973,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45973,1,3,0)
  1. ;;=3^Retinal Artery Occlusion,Transient,Left Eye
  1. ;;^UTILITY(U,$J,358.3,45973,1,4,0)
  1. ;;=4^H34.02
  1. ;;^UTILITY(U,$J,358.3,45973,2)
  1. ;;=^5005554
  1. ;;^UTILITY(U,$J,358.3,45974,0)
  1. ;;=G45.3^^176^2295^10
  1. ;;^UTILITY(U,$J,358.3,45974,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45974,1,3,0)
  1. ;;=3^Amaurosis Fugax
  1. ;;^UTILITY(U,$J,358.3,45974,1,4,0)
  1. ;;=4^G45.3
  1. ;;^UTILITY(U,$J,358.3,45974,2)
  1. ;;=^304129
  1. ;;^UTILITY(U,$J,358.3,45975,0)
  1. ;;=H53.2^^176^2295^13
  1. ;;^UTILITY(U,$J,358.3,45975,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45975,1,3,0)
  1. ;;=3^Diplopia
  1. ;;^UTILITY(U,$J,358.3,45975,1,4,0)
  1. ;;=4^H53.2
  1. ;;^UTILITY(U,$J,358.3,45975,2)
  1. ;;=^35208
  1. ;;^UTILITY(U,$J,358.3,45976,0)
  1. ;;=H47.11^^176^2295^6
  1. ;;^UTILITY(U,$J,358.3,45976,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45976,1,3,0)
  1. ;;=3^Papilledema w/ High Intracranial Pressure
  1. ;;^UTILITY(U,$J,358.3,45976,1,4,0)
  1. ;;=4^H47.11
  1. ;;^UTILITY(U,$J,358.3,45976,2)
  1. ;;=^269212
  1. ;;^UTILITY(U,$J,358.3,45977,0)
  1. ;;=H47.20^^176^2295^4
  1. ;;^UTILITY(U,$J,358.3,45977,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45977,1,3,0)
  1. ;;=3^Optic Atrophy,Unspec
  1. ;;^UTILITY(U,$J,358.3,45977,1,4,0)
  1. ;;=4^H47.20
  1. ;;^UTILITY(U,$J,358.3,45977,2)
  1. ;;=^5006126
  1. ;;^UTILITY(U,$J,358.3,45978,0)
  1. ;;=H47.323^^176^2295^8
  1. ;;^UTILITY(U,$J,358.3,45978,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45978,1,3,0)
  1. ;;=3^Optic Nerve Drusen,Bilateral
  1. ;;^UTILITY(U,$J,358.3,45978,1,4,0)
  1. ;;=4^H47.323
  1. ;;^UTILITY(U,$J,358.3,45978,2)
  1. ;;=^5006143
  1. ;;^UTILITY(U,$J,358.3,45979,0)
  1. ;;=H47.333^^176^2295^7
  1. ;;^UTILITY(U,$J,358.3,45979,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45979,1,3,0)
  1. ;;=3^Pseudopapilledema of Optic Disc,Bilateral
  1. ;;^UTILITY(U,$J,358.3,45979,1,4,0)
  1. ;;=4^H47.333
  1. ;;^UTILITY(U,$J,358.3,45979,2)
  1. ;;=^5006147
  1. ;;^UTILITY(U,$J,358.3,45980,0)
  1. ;;=H46.9^^176^2295^5
  1. ;;^UTILITY(U,$J,358.3,45980,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45980,1,3,0)
  1. ;;=3^Optic Neuritis,Unspec
  1. ;;^UTILITY(U,$J,358.3,45980,1,4,0)
  1. ;;=4^H46.9
  1. ;;^UTILITY(U,$J,358.3,45980,2)
  1. ;;=^5006104
  1. ;;^UTILITY(U,$J,358.3,45981,0)
  1. ;;=H47.011^^176^2295^2
  1. ;;^UTILITY(U,$J,358.3,45981,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45981,1,3,0)
  1. ;;=3^Ischemic Optic Neuropathy,Right Eye
  1. ;;^UTILITY(U,$J,358.3,45981,1,4,0)
  1. ;;=4^H47.011
  1. ;;^UTILITY(U,$J,358.3,45981,2)
  1. ;;=^5006105
  1. ;;^UTILITY(U,$J,358.3,45982,0)
  1. ;;=H47.012^^176^2295^3