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

IBDEI0TN.m

Go to the documentation of this file.
  1. IBDEI0TN ; ; 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,13338,1,4,0)
  1. ;;=4^H33.8
  1. ;;^UTILITY(U,$J,358.3,13338,2)
  1. ;;=^5005551
  1. ;;^UTILITY(U,$J,358.3,13339,0)
  1. ;;=H33.193^^51^634^36
  1. ;;^UTILITY(U,$J,358.3,13339,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,13339,1,3,0)
  1. ;;=3^Retinoschisis & Retinal Cysts,Other,OU
  1. ;;^UTILITY(U,$J,358.3,13339,1,4,0)
  1. ;;=4^H33.193
  1. ;;^UTILITY(U,$J,358.3,13339,2)
  1. ;;=^5005526
  1. ;;^UTILITY(U,$J,358.3,13340,0)
  1. ;;=H33.191^^51^634^34
  1. ;;^UTILITY(U,$J,358.3,13340,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,13340,1,3,0)
  1. ;;=3^Retinoschisis & Retinal Cysts,Other,OD
  1. ;;^UTILITY(U,$J,358.3,13340,1,4,0)
  1. ;;=4^H33.191
  1. ;;^UTILITY(U,$J,358.3,13340,2)
  1. ;;=^5005524
  1. ;;^UTILITY(U,$J,358.3,13341,0)
  1. ;;=H33.192^^51^634^35
  1. ;;^UTILITY(U,$J,358.3,13341,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,13341,1,3,0)
  1. ;;=3^Retinoschisis & Retinal Cysts,Other,OS
  1. ;;^UTILITY(U,$J,358.3,13341,1,4,0)
  1. ;;=4^H33.192
  1. ;;^UTILITY(U,$J,358.3,13341,2)
  1. ;;=^5005525
  1. ;;^UTILITY(U,$J,358.3,13342,0)
  1. ;;=H35.89^^51^634^77
  1. ;;^UTILITY(U,$J,358.3,13342,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,13342,1,3,0)
  1. ;;=3^Retinal Disorders,Other Specified
  1. ;;^UTILITY(U,$J,358.3,13342,1,4,0)
  1. ;;=4^H35.89
  1. ;;^UTILITY(U,$J,358.3,13342,2)
  1. ;;=^5005717
  1. ;;^UTILITY(U,$J,358.3,13343,0)
  1. ;;=H35.433^^51^634^21
  1. ;;^UTILITY(U,$J,358.3,13343,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,13343,1,3,0)
  1. ;;=3^Paving Stone Degen of Retina,OU
  1. ;;^UTILITY(U,$J,358.3,13343,1,4,0)
  1. ;;=4^H35.433
  1. ;;^UTILITY(U,$J,358.3,13343,2)
  1. ;;=^5005681
  1. ;;^UTILITY(U,$J,358.3,13344,0)
  1. ;;=H35.431^^51^634^19
  1. ;;^UTILITY(U,$J,358.3,13344,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,13344,1,3,0)
  1. ;;=3^Paving Stone Degen of Retina,OD
  1. ;;^UTILITY(U,$J,358.3,13344,1,4,0)
  1. ;;=4^H35.431
  1. ;;^UTILITY(U,$J,358.3,13344,2)
  1. ;;=^5005679
  1. ;;^UTILITY(U,$J,358.3,13345,0)
  1. ;;=H35.432^^51^634^20
  1. ;;^UTILITY(U,$J,358.3,13345,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,13345,1,3,0)
  1. ;;=3^Paving Stone Degen of Retina,OS
  1. ;;^UTILITY(U,$J,358.3,13345,1,4,0)
  1. ;;=4^H35.432
  1. ;;^UTILITY(U,$J,358.3,13345,2)
  1. ;;=^5005680
  1. ;;^UTILITY(U,$J,358.3,13346,0)
  1. ;;=H35.52^^51^634^74
  1. ;;^UTILITY(U,$J,358.3,13346,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,13346,1,3,0)
  1. ;;=3^Pigmentary Retinal Dystrophy
  1. ;;^UTILITY(U,$J,358.3,13346,1,4,0)
  1. ;;=4^H35.52
  1. ;;^UTILITY(U,$J,358.3,13346,2)
  1. ;;=^5005697
  1. ;;^UTILITY(U,$J,358.3,13347,0)
  1. ;;=H33.033^^51^634^54
  1. ;;^UTILITY(U,$J,358.3,13347,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,13347,1,3,0)
  1. ;;=3^RD w/ Giant Retinal Tear,OU
  1. ;;^UTILITY(U,$J,358.3,13347,1,4,0)
  1. ;;=4^H33.033
  1. ;;^UTILITY(U,$J,358.3,13347,2)
  1. ;;=^5005503
  1. ;;^UTILITY(U,$J,358.3,13348,0)
  1. ;;=H33.031^^51^634^52
  1. ;;^UTILITY(U,$J,358.3,13348,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,13348,1,3,0)
  1. ;;=3^RD w/ Giant Retinal Tear,OD
  1. ;;^UTILITY(U,$J,358.3,13348,1,4,0)
  1. ;;=4^H33.031
  1. ;;^UTILITY(U,$J,358.3,13348,2)
  1. ;;=^5005501
  1. ;;^UTILITY(U,$J,358.3,13349,0)
  1. ;;=H33.032^^51^634^53
  1. ;;^UTILITY(U,$J,358.3,13349,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,13349,1,3,0)
  1. ;;=3^RD w/ Giant Retinal Tear,OS
  1. ;;^UTILITY(U,$J,358.3,13349,1,4,0)
  1. ;;=4^H33.032
  1. ;;^UTILITY(U,$J,358.3,13349,2)
  1. ;;=^5005502
  1. ;;^UTILITY(U,$J,358.3,13350,0)
  1. ;;=H33.023^^51^634^48
  1. ;;^UTILITY(U,$J,358.3,13350,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,13350,1,3,0)
  1. ;;=3^RD w/ Multiple Breaks,OU
  1. ;;^UTILITY(U,$J,358.3,13350,1,4,0)
  1. ;;=4^H33.023
  1. ;;^UTILITY(U,$J,358.3,13350,2)
  1. ;;=^5005499