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

IBDEI3HK.m

Go to the documentation of this file.
IBDEI3HK ; ; 19-NOV-2015
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;JUN 29, 2015
 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,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y
Q Q
 ;;^UTILITY(U,$J,358.3,58627,0)
 ;;=H35.062^^272^2910^91
 ;;^UTILITY(U,$J,358.3,58627,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,58627,1,3,0)
 ;;=3^Retinal Vasculitis,Left Eye
 ;;^UTILITY(U,$J,358.3,58627,1,4,0)
 ;;=4^H35.062
 ;;^UTILITY(U,$J,358.3,58627,2)
 ;;=^5005603
 ;;^UTILITY(U,$J,358.3,58628,0)
 ;;=H34.13^^272^2910^6
 ;;^UTILITY(U,$J,358.3,58628,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,58628,1,3,0)
 ;;=3^Central Retinal Artery Occlusion,Bilateral
 ;;^UTILITY(U,$J,358.3,58628,1,4,0)
 ;;=4^H34.13
 ;;^UTILITY(U,$J,358.3,58628,2)
 ;;=^5005559
 ;;^UTILITY(U,$J,358.3,58629,0)
 ;;=H34.11^^272^2910^8
 ;;^UTILITY(U,$J,358.3,58629,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,58629,1,3,0)
 ;;=3^Central Retinal Artery Occlusion,Right Eye
 ;;^UTILITY(U,$J,358.3,58629,1,4,0)
 ;;=4^H34.11
 ;;^UTILITY(U,$J,358.3,58629,2)
 ;;=^5005557
 ;;^UTILITY(U,$J,358.3,58630,0)
 ;;=H34.12^^272^2910^7
 ;;^UTILITY(U,$J,358.3,58630,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,58630,1,3,0)
 ;;=3^Central Retinal Artery Occlusion,Left Eye
 ;;^UTILITY(U,$J,358.3,58630,1,4,0)
 ;;=4^H34.12
 ;;^UTILITY(U,$J,358.3,58630,2)
 ;;=^5005558
 ;;^UTILITY(U,$J,358.3,58631,0)
 ;;=H34.231^^272^2910^76
 ;;^UTILITY(U,$J,358.3,58631,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,58631,1,3,0)
 ;;=3^Retinal Artery Branch Occlusion,Right Eye
 ;;^UTILITY(U,$J,358.3,58631,1,4,0)
 ;;=4^H34.231
 ;;^UTILITY(U,$J,358.3,58631,2)
 ;;=^5005564
 ;;^UTILITY(U,$J,358.3,58632,0)
 ;;=H34.232^^272^2910^75
 ;;^UTILITY(U,$J,358.3,58632,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,58632,1,3,0)
 ;;=3^Retinal Artery Branch Occlusion,Left Eye
 ;;^UTILITY(U,$J,358.3,58632,1,4,0)
 ;;=4^H34.232
 ;;^UTILITY(U,$J,358.3,58632,2)
 ;;=^5005565
 ;;^UTILITY(U,$J,358.3,58633,0)
 ;;=H34.233^^272^2910^74
 ;;^UTILITY(U,$J,358.3,58633,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,58633,1,3,0)
 ;;=3^Retinal Artery Branch Occlusion,Bilateral
 ;;^UTILITY(U,$J,358.3,58633,1,4,0)
 ;;=4^H34.233
 ;;^UTILITY(U,$J,358.3,58633,2)
 ;;=^5005566
 ;;^UTILITY(U,$J,358.3,58634,0)
 ;;=H34.211^^272^2910^67
 ;;^UTILITY(U,$J,358.3,58634,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,58634,1,3,0)
 ;;=3^Partial Retinal Artery Occlusion,Right Eye
 ;;^UTILITY(U,$J,358.3,58634,1,4,0)
 ;;=4^H34.211
 ;;^UTILITY(U,$J,358.3,58634,2)
 ;;=^5005560
 ;;^UTILITY(U,$J,358.3,58635,0)
 ;;=H34.212^^272^2910^66
 ;;^UTILITY(U,$J,358.3,58635,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,58635,1,3,0)
 ;;=3^Partial Retinal Artery Occlusion,Left Eye
 ;;^UTILITY(U,$J,358.3,58635,1,4,0)
 ;;=4^H34.212
 ;;^UTILITY(U,$J,358.3,58635,2)
 ;;=^5005561
 ;;^UTILITY(U,$J,358.3,58636,0)
 ;;=H34.213^^272^2910^65
 ;;^UTILITY(U,$J,358.3,58636,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,58636,1,3,0)
 ;;=3^Partial Retinal Artery Occlusion,Bilateral
 ;;^UTILITY(U,$J,358.3,58636,1,4,0)
 ;;=4^H34.213
 ;;^UTILITY(U,$J,358.3,58636,2)
 ;;=^5005562
 ;;^UTILITY(U,$J,358.3,58637,0)
 ;;=H34.811^^272^2910^11
 ;;^UTILITY(U,$J,358.3,58637,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,58637,1,3,0)
 ;;=3^Central Retinal Vein Occlusion,Right Eye
 ;;^UTILITY(U,$J,358.3,58637,1,4,0)
 ;;=4^H34.811
 ;;^UTILITY(U,$J,358.3,58637,2)
 ;;=^5005568
 ;;^UTILITY(U,$J,358.3,58638,0)
 ;;=H34.812^^272^2910^10
 ;;^UTILITY(U,$J,358.3,58638,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,58638,1,3,0)
 ;;=3^Central Retinal Vein Occlusion,Left Eye
 ;;^UTILITY(U,$J,358.3,58638,1,4,0)
 ;;=4^H34.812
 ;;^UTILITY(U,$J,358.3,58638,2)
 ;;=^5005569
 ;;^UTILITY(U,$J,358.3,58639,0)
 ;;=H34.813^^272^2910^9
 ;;^UTILITY(U,$J,358.3,58639,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,58639,1,3,0)
 ;;=3^Central Retinal Vein Occlusion,Bilateral