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

IBDEI3GM.m

Go to the documentation of this file.
IBDEI3GM ; ; 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,58194,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,58194,1,3,0)
 ;;=3^Steroid Responder,Bilateral
 ;;^UTILITY(U,$J,358.3,58194,1,4,0)
 ;;=4^H40.043
 ;;^UTILITY(U,$J,358.3,58194,2)
 ;;=^5005738
 ;;^UTILITY(U,$J,358.3,58195,0)
 ;;=B02.39^^272^2902^10
 ;;^UTILITY(U,$J,358.3,58195,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,58195,1,3,0)
 ;;=3^Herpes Zoster Eye Disease NEC
 ;;^UTILITY(U,$J,358.3,58195,1,4,0)
 ;;=4^B02.39
 ;;^UTILITY(U,$J,358.3,58195,2)
 ;;=^5000498
 ;;^UTILITY(U,$J,358.3,58196,0)
 ;;=B00.59^^272^2902^9
 ;;^UTILITY(U,$J,358.3,58196,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,58196,1,3,0)
 ;;=3^Herpes Viral Eye Disease NEC
 ;;^UTILITY(U,$J,358.3,58196,1,4,0)
 ;;=4^B00.59
 ;;^UTILITY(U,$J,358.3,58196,2)
 ;;=^5000476
 ;;^UTILITY(U,$J,358.3,58197,0)
 ;;=B25.9^^272^2902^8
 ;;^UTILITY(U,$J,358.3,58197,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,58197,1,3,0)
 ;;=3^Cytomegaloviral Disease,Unspec
 ;;^UTILITY(U,$J,358.3,58197,1,4,0)
 ;;=4^B25.9
 ;;^UTILITY(U,$J,358.3,58197,2)
 ;;=^5000560
 ;;^UTILITY(U,$J,358.3,58198,0)
 ;;=H32.^^272^2902^6
 ;;^UTILITY(U,$J,358.3,58198,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,58198,1,3,0)
 ;;=3^Chorioretinal Disorders in Diseases Classified Elsewhere
 ;;^UTILITY(U,$J,358.3,58198,1,4,0)
 ;;=4^H32.
 ;;^UTILITY(U,$J,358.3,58198,2)
 ;;=^5005489
 ;;^UTILITY(U,$J,358.3,58199,0)
 ;;=B39.9^^272^2902^11
 ;;^UTILITY(U,$J,358.3,58199,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,58199,1,3,0)
 ;;=3^Histoplasmosis,Unspec
 ;;^UTILITY(U,$J,358.3,58199,1,4,0)
 ;;=4^B39.9
 ;;^UTILITY(U,$J,358.3,58199,2)
 ;;=^5000638
 ;;^UTILITY(U,$J,358.3,58200,0)
 ;;=B83.0^^272^2902^25
 ;;^UTILITY(U,$J,358.3,58200,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,58200,1,3,0)
 ;;=3^Visceral Larva Migrans
 ;;^UTILITY(U,$J,358.3,58200,1,4,0)
 ;;=4^B83.0
 ;;^UTILITY(U,$J,358.3,58200,2)
 ;;=^5000799
 ;;^UTILITY(U,$J,358.3,58201,0)
 ;;=B58.01^^272^2902^24
 ;;^UTILITY(U,$J,358.3,58201,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,58201,1,3,0)
 ;;=3^Toxoplasma Chorioretinitis
 ;;^UTILITY(U,$J,358.3,58201,1,4,0)
 ;;=4^B58.01
 ;;^UTILITY(U,$J,358.3,58201,2)
 ;;=^5000724
 ;;^UTILITY(U,$J,358.3,58202,0)
 ;;=H44.001^^272^2902^22
 ;;^UTILITY(U,$J,358.3,58202,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,58202,1,3,0)
 ;;=3^Purulent Endophthalmitis,Right Eye,Unspec
 ;;^UTILITY(U,$J,358.3,58202,1,4,0)
 ;;=4^H44.001
 ;;^UTILITY(U,$J,358.3,58202,2)
 ;;=^5005963
 ;;^UTILITY(U,$J,358.3,58203,0)
 ;;=H44.002^^272^2902^21
 ;;^UTILITY(U,$J,358.3,58203,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,58203,1,3,0)
 ;;=3^Purulent Endophthalmitis,Left Eye,Unspec
 ;;^UTILITY(U,$J,358.3,58203,1,4,0)
 ;;=4^H44.002
 ;;^UTILITY(U,$J,358.3,58203,2)
 ;;=^5005964
 ;;^UTILITY(U,$J,358.3,58204,0)
 ;;=H44.003^^272^2902^20
 ;;^UTILITY(U,$J,358.3,58204,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,58204,1,3,0)
 ;;=3^Purulent Endophthalmitis,Bilateral,Unspec
 ;;^UTILITY(U,$J,358.3,58204,1,4,0)
 ;;=4^H44.003
 ;;^UTILITY(U,$J,358.3,58204,2)
 ;;=^5005965
 ;;^UTILITY(U,$J,358.3,58205,0)
 ;;=H16.061^^272^2902^19
 ;;^UTILITY(U,$J,358.3,58205,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,58205,1,3,0)
 ;;=3^Mycotic Corneal Ulcer,Right Eye
 ;;^UTILITY(U,$J,358.3,58205,1,4,0)
 ;;=4^H16.061
 ;;^UTILITY(U,$J,358.3,58205,2)
 ;;=^5004890
 ;;^UTILITY(U,$J,358.3,58206,0)
 ;;=H16.062^^272^2902^18
 ;;^UTILITY(U,$J,358.3,58206,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,58206,1,3,0)
 ;;=3^Mycotic Corneal Ulcer,Left Eye
 ;;^UTILITY(U,$J,358.3,58206,1,4,0)
 ;;=4^H16.062
 ;;^UTILITY(U,$J,358.3,58206,2)
 ;;=^5004891
 ;;^UTILITY(U,$J,358.3,58207,0)
 ;;=H16.063^^272^2902^17