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

IBDEI22A.m

Go to the documentation of this file.
  1. IBDEI22A ; ; 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,32904,1,4,0)
  1. ;;=4^D31.32
  1. ;;^UTILITY(U,$J,358.3,32904,2)
  1. ;;=^5002122
  1. ;;^UTILITY(U,$J,358.3,32905,0)
  1. ;;=H35.53^^128^1672^83
  1. ;;^UTILITY(U,$J,358.3,32905,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32905,1,3,0)
  1. ;;=3^Dystrophies Primarily Involving Sensory Retina,Other
  1. ;;^UTILITY(U,$J,358.3,32905,1,4,0)
  1. ;;=4^H35.53
  1. ;;^UTILITY(U,$J,358.3,32905,2)
  1. ;;=^268656
  1. ;;^UTILITY(U,$J,358.3,32906,0)
  1. ;;=H33.8^^128^1672^61
  1. ;;^UTILITY(U,$J,358.3,32906,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32906,1,3,0)
  1. ;;=3^Retinal Detachments,Other
  1. ;;^UTILITY(U,$J,358.3,32906,1,4,0)
  1. ;;=4^H33.8
  1. ;;^UTILITY(U,$J,358.3,32906,2)
  1. ;;=^5005551
  1. ;;^UTILITY(U,$J,358.3,32907,0)
  1. ;;=H33.193^^128^1672^36
  1. ;;^UTILITY(U,$J,358.3,32907,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32907,1,3,0)
  1. ;;=3^Retinoschisis & Retinal Cysts,Other,OU
  1. ;;^UTILITY(U,$J,358.3,32907,1,4,0)
  1. ;;=4^H33.193
  1. ;;^UTILITY(U,$J,358.3,32907,2)
  1. ;;=^5005526
  1. ;;^UTILITY(U,$J,358.3,32908,0)
  1. ;;=H33.191^^128^1672^34
  1. ;;^UTILITY(U,$J,358.3,32908,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32908,1,3,0)
  1. ;;=3^Retinoschisis & Retinal Cysts,Other,OD
  1. ;;^UTILITY(U,$J,358.3,32908,1,4,0)
  1. ;;=4^H33.191
  1. ;;^UTILITY(U,$J,358.3,32908,2)
  1. ;;=^5005524
  1. ;;^UTILITY(U,$J,358.3,32909,0)
  1. ;;=H33.192^^128^1672^35
  1. ;;^UTILITY(U,$J,358.3,32909,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32909,1,3,0)
  1. ;;=3^Retinoschisis & Retinal Cysts,Other,OS
  1. ;;^UTILITY(U,$J,358.3,32909,1,4,0)
  1. ;;=4^H33.192
  1. ;;^UTILITY(U,$J,358.3,32909,2)
  1. ;;=^5005525
  1. ;;^UTILITY(U,$J,358.3,32910,0)
  1. ;;=H35.89^^128^1672^77
  1. ;;^UTILITY(U,$J,358.3,32910,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32910,1,3,0)
  1. ;;=3^Retinal Disorders,Other Specified
  1. ;;^UTILITY(U,$J,358.3,32910,1,4,0)
  1. ;;=4^H35.89
  1. ;;^UTILITY(U,$J,358.3,32910,2)
  1. ;;=^5005717
  1. ;;^UTILITY(U,$J,358.3,32911,0)
  1. ;;=H35.433^^128^1672^21
  1. ;;^UTILITY(U,$J,358.3,32911,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32911,1,3,0)
  1. ;;=3^Paving Stone Degen of Retina,OU
  1. ;;^UTILITY(U,$J,358.3,32911,1,4,0)
  1. ;;=4^H35.433
  1. ;;^UTILITY(U,$J,358.3,32911,2)
  1. ;;=^5005681
  1. ;;^UTILITY(U,$J,358.3,32912,0)
  1. ;;=H35.431^^128^1672^19
  1. ;;^UTILITY(U,$J,358.3,32912,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32912,1,3,0)
  1. ;;=3^Paving Stone Degen of Retina,OD
  1. ;;^UTILITY(U,$J,358.3,32912,1,4,0)
  1. ;;=4^H35.431
  1. ;;^UTILITY(U,$J,358.3,32912,2)
  1. ;;=^5005679
  1. ;;^UTILITY(U,$J,358.3,32913,0)
  1. ;;=H35.432^^128^1672^20
  1. ;;^UTILITY(U,$J,358.3,32913,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32913,1,3,0)
  1. ;;=3^Paving Stone Degen of Retina,OS
  1. ;;^UTILITY(U,$J,358.3,32913,1,4,0)
  1. ;;=4^H35.432
  1. ;;^UTILITY(U,$J,358.3,32913,2)
  1. ;;=^5005680
  1. ;;^UTILITY(U,$J,358.3,32914,0)
  1. ;;=H35.52^^128^1672^74
  1. ;;^UTILITY(U,$J,358.3,32914,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32914,1,3,0)
  1. ;;=3^Pigmentary Retinal Dystrophy
  1. ;;^UTILITY(U,$J,358.3,32914,1,4,0)
  1. ;;=4^H35.52
  1. ;;^UTILITY(U,$J,358.3,32914,2)
  1. ;;=^5005697
  1. ;;^UTILITY(U,$J,358.3,32915,0)
  1. ;;=H33.033^^128^1672^54
  1. ;;^UTILITY(U,$J,358.3,32915,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32915,1,3,0)
  1. ;;=3^RD w/ Giant Retinal Tear,OU
  1. ;;^UTILITY(U,$J,358.3,32915,1,4,0)
  1. ;;=4^H33.033
  1. ;;^UTILITY(U,$J,358.3,32915,2)
  1. ;;=^5005503
  1. ;;^UTILITY(U,$J,358.3,32916,0)
  1. ;;=H33.031^^128^1672^52
  1. ;;^UTILITY(U,$J,358.3,32916,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32916,1,3,0)
  1. ;;=3^RD w/ Giant Retinal Tear,OD
  1. ;;^UTILITY(U,$J,358.3,32916,1,4,0)
  1. ;;=4^H33.031