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

IBDEI0SX.m

Go to the documentation of this file.
  1. IBDEI0SX ; ; 01-FEB-2022
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
  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,13015,0)
  1. ;;=H01.119^^51^627^4
  1. ;;^UTILITY(U,$J,358.3,13015,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,13015,1,3,0)
  1. ;;=3^Allergic Dermatitis,Unspec Eyelid
  1. ;;^UTILITY(U,$J,358.3,13015,1,4,0)
  1. ;;=4^H01.119
  1. ;;^UTILITY(U,$J,358.3,13015,2)
  1. ;;=^5133387
  1. ;;^UTILITY(U,$J,358.3,13016,0)
  1. ;;=H35.3120^^51^627^2
  1. ;;^UTILITY(U,$J,358.3,13016,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,13016,1,3,0)
  1. ;;=3^AMD Nonexudative,Lt Eye
  1. ;;^UTILITY(U,$J,358.3,13016,1,4,0)
  1. ;;=4^H35.3120
  1. ;;^UTILITY(U,$J,358.3,13016,2)
  1. ;;=^5138505
  1. ;;^UTILITY(U,$J,358.3,13017,0)
  1. ;;=H35.3110^^51^627^3
  1. ;;^UTILITY(U,$J,358.3,13017,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,13017,1,3,0)
  1. ;;=3^AMD Nonexudative,Rt Eye
  1. ;;^UTILITY(U,$J,358.3,13017,1,4,0)
  1. ;;=4^H35.3110
  1. ;;^UTILITY(U,$J,358.3,13017,2)
  1. ;;=^5138500
  1. ;;^UTILITY(U,$J,358.3,13018,0)
  1. ;;=H35.3130^^51^627^1
  1. ;;^UTILITY(U,$J,358.3,13018,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,13018,1,3,0)
  1. ;;=3^AMD Nonexudative,Bilateral
  1. ;;^UTILITY(U,$J,358.3,13018,1,4,0)
  1. ;;=4^H35.3130
  1. ;;^UTILITY(U,$J,358.3,13018,2)
  1. ;;=^5138510
  1. ;;^UTILITY(U,$J,358.3,13019,0)
  1. ;;=H01.009^^51^627^5
  1. ;;^UTILITY(U,$J,358.3,13019,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,13019,1,3,0)
  1. ;;=3^Blepharitis,Unspec
  1. ;;^UTILITY(U,$J,358.3,13019,1,4,0)
  1. ;;=4^H01.009
  1. ;;^UTILITY(U,$J,358.3,13019,2)
  1. ;;=^5133381
  1. ;;^UTILITY(U,$J,358.3,13020,0)
  1. ;;=H25.019^^51^627^7
  1. ;;^UTILITY(U,$J,358.3,13020,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,13020,1,3,0)
  1. ;;=3^Cataract,Cortical,Unspec Eye
  1. ;;^UTILITY(U,$J,358.3,13020,1,4,0)
  1. ;;=4^H25.019
  1. ;;^UTILITY(U,$J,358.3,13020,2)
  1. ;;=^5005270
  1. ;;^UTILITY(U,$J,358.3,13021,0)
  1. ;;=H25.12^^51^627^8
  1. ;;^UTILITY(U,$J,358.3,13021,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,13021,1,3,0)
  1. ;;=3^Cataract,Nuclear,Lt Eye
  1. ;;^UTILITY(U,$J,358.3,13021,1,4,0)
  1. ;;=4^H25.12
  1. ;;^UTILITY(U,$J,358.3,13021,2)
  1. ;;=^5005285
  1. ;;^UTILITY(U,$J,358.3,13022,0)
  1. ;;=H25.11^^51^627^9
  1. ;;^UTILITY(U,$J,358.3,13022,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,13022,1,3,0)
  1. ;;=3^Cataract,Nuclear,Rt Eye
  1. ;;^UTILITY(U,$J,358.3,13022,1,4,0)
  1. ;;=4^H25.11
  1. ;;^UTILITY(U,$J,358.3,13022,2)
  1. ;;=^5005284
  1. ;;^UTILITY(U,$J,358.3,13023,0)
  1. ;;=H25.049^^51^627^10
  1. ;;^UTILITY(U,$J,358.3,13023,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,13023,1,3,0)
  1. ;;=3^Cataract,PSC,Unspec Eye
  1. ;;^UTILITY(U,$J,358.3,13023,1,4,0)
  1. ;;=4^H25.049
  1. ;;^UTILITY(U,$J,358.3,13023,2)
  1. ;;=^5005278
  1. ;;^UTILITY(U,$J,358.3,13024,0)
  1. ;;=H00.14^^51^627^11
  1. ;;^UTILITY(U,$J,358.3,13024,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,13024,1,3,0)
  1. ;;=3^Chalazion,Lt Upper Eyelid
  1. ;;^UTILITY(U,$J,358.3,13024,1,4,0)
  1. ;;=4^H00.14
  1. ;;^UTILITY(U,$J,358.3,13024,2)
  1. ;;=^5004236
  1. ;;^UTILITY(U,$J,358.3,13025,0)
  1. ;;=H00.11^^51^627^12
  1. ;;^UTILITY(U,$J,358.3,13025,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,13025,1,3,0)
  1. ;;=3^Chalazion,Rt Upper Eyelid
  1. ;;^UTILITY(U,$J,358.3,13025,1,4,0)
  1. ;;=4^H00.11
  1. ;;^UTILITY(U,$J,358.3,13025,2)
  1. ;;=^5004233
  1. ;;^UTILITY(U,$J,358.3,13026,0)
  1. ;;=H59.039^^51^627^6
  1. ;;^UTILITY(U,$J,358.3,13026,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,13026,1,3,0)
  1. ;;=3^CME Mac Edema,Unspec Eye
  1. ;;^UTILITY(U,$J,358.3,13026,1,4,0)
  1. ;;=4^H59.039
  1. ;;^UTILITY(U,$J,358.3,13026,2)
  1. ;;=^5006396
  1. ;;^UTILITY(U,$J,358.3,13027,0)
  1. ;;=H10.32^^51^627^13
  1. ;;^UTILITY(U,$J,358.3,13027,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,13027,1,3,0)
  1. ;;=3^Conjunctivitis,Acute,Lt Eye