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

IBDEI226.m

Go to the documentation of this file.
  1. IBDEI226 ; ; 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,32855,2)
  1. ;;=^5138526
  1. ;;^UTILITY(U,$J,358.3,32856,0)
  1. ;;=H35.3223^^128^1671^24
  1. ;;^UTILITY(U,$J,358.3,32856,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32856,1,3,0)
  1. ;;=3^Exud AMD,OS w/ Inactive Scar
  1. ;;^UTILITY(U,$J,358.3,32856,1,4,0)
  1. ;;=4^H35.3223
  1. ;;^UTILITY(U,$J,358.3,32856,2)
  1. ;;=^5138527
  1. ;;^UTILITY(U,$J,358.3,32857,0)
  1. ;;=H35.3210^^128^1671^17
  1. ;;^UTILITY(U,$J,358.3,32857,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32857,1,3,0)
  1. ;;=3^Exud AMD,OD,Stage Unspec
  1. ;;^UTILITY(U,$J,358.3,32857,1,4,0)
  1. ;;=4^H35.3210
  1. ;;^UTILITY(U,$J,358.3,32857,2)
  1. ;;=^5138520
  1. ;;^UTILITY(U,$J,358.3,32858,0)
  1. ;;=H35.3211^^128^1671^18
  1. ;;^UTILITY(U,$J,358.3,32858,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32858,1,3,0)
  1. ;;=3^Exud AMD,OD w/ Actv Chrdl Neovas
  1. ;;^UTILITY(U,$J,358.3,32858,1,4,0)
  1. ;;=4^H35.3211
  1. ;;^UTILITY(U,$J,358.3,32858,2)
  1. ;;=^5138521
  1. ;;^UTILITY(U,$J,358.3,32859,0)
  1. ;;=H35.3212^^128^1671^19
  1. ;;^UTILITY(U,$J,358.3,32859,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32859,1,3,0)
  1. ;;=3^Exud AMD,OD w/ Inact Chrdl Neovas
  1. ;;^UTILITY(U,$J,358.3,32859,1,4,0)
  1. ;;=4^H35.3212
  1. ;;^UTILITY(U,$J,358.3,32859,2)
  1. ;;=^5138522
  1. ;;^UTILITY(U,$J,358.3,32860,0)
  1. ;;=H35.3213^^128^1671^20
  1. ;;^UTILITY(U,$J,358.3,32860,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32860,1,3,0)
  1. ;;=3^Exud AMD,OD w/ Inactive Scar
  1. ;;^UTILITY(U,$J,358.3,32860,1,4,0)
  1. ;;=4^H35.3213
  1. ;;^UTILITY(U,$J,358.3,32860,2)
  1. ;;=^5138523
  1. ;;^UTILITY(U,$J,358.3,32861,0)
  1. ;;=H35.30^^128^1671^1
  1. ;;^UTILITY(U,$J,358.3,32861,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32861,1,3,0)
  1. ;;=3^Macular Degeneration,Unspec
  1. ;;^UTILITY(U,$J,358.3,32861,1,4,0)
  1. ;;=4^H35.30
  1. ;;^UTILITY(U,$J,358.3,32861,2)
  1. ;;=^5005646
  1. ;;^UTILITY(U,$J,358.3,32862,0)
  1. ;;=H35.3133^^128^1671^15
  1. ;;^UTILITY(U,$J,358.3,32862,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32862,1,3,0)
  1. ;;=3^NonEx AMD,OU,Adv Atrpc w/o Sbfvl Invlv
  1. ;;^UTILITY(U,$J,358.3,32862,1,4,0)
  1. ;;=4^H35.3133
  1. ;;^UTILITY(U,$J,358.3,32862,2)
  1. ;;=^5138513
  1. ;;^UTILITY(U,$J,358.3,32863,0)
  1. ;;=H35.3134^^128^1671^16
  1. ;;^UTILITY(U,$J,358.3,32863,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32863,1,3,0)
  1. ;;=3^NonEx AMD,OU,Adv Atrpc w/ Subfvl Invlv
  1. ;;^UTILITY(U,$J,358.3,32863,1,4,0)
  1. ;;=4^H35.3134
  1. ;;^UTILITY(U,$J,358.3,32863,2)
  1. ;;=^5138514
  1. ;;^UTILITY(U,$J,358.3,32864,0)
  1. ;;=H35.3131^^128^1671^13
  1. ;;^UTILITY(U,$J,358.3,32864,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32864,1,3,0)
  1. ;;=3^NonEx AMD,OU,Early Dry Stage
  1. ;;^UTILITY(U,$J,358.3,32864,1,4,0)
  1. ;;=4^H35.3131
  1. ;;^UTILITY(U,$J,358.3,32864,2)
  1. ;;=^5138511
  1. ;;^UTILITY(U,$J,358.3,32865,0)
  1. ;;=H35.3132^^128^1671^14
  1. ;;^UTILITY(U,$J,358.3,32865,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32865,1,3,0)
  1. ;;=3^NonEx AMD,OU,Intermed Dry Stage
  1. ;;^UTILITY(U,$J,358.3,32865,1,4,0)
  1. ;;=4^H35.3132
  1. ;;^UTILITY(U,$J,358.3,32865,2)
  1. ;;=^5138512
  1. ;;^UTILITY(U,$J,358.3,32866,0)
  1. ;;=H35.3130^^128^1671^12
  1. ;;^UTILITY(U,$J,358.3,32866,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32866,1,3,0)
  1. ;;=3^NonEx AMD,OU,Stage Unspec
  1. ;;^UTILITY(U,$J,358.3,32866,1,4,0)
  1. ;;=4^H35.3130
  1. ;;^UTILITY(U,$J,358.3,32866,2)
  1. ;;=^5138510
  1. ;;^UTILITY(U,$J,358.3,32867,0)
  1. ;;=H35.3120^^128^1671^7
  1. ;;^UTILITY(U,$J,358.3,32867,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32867,1,3,0)
  1. ;;=3^NonEx AMD,OS,Stage Unspec
  1. ;;^UTILITY(U,$J,358.3,32867,1,4,0)
  1. ;;=4^H35.3120
  1. ;;^UTILITY(U,$J,358.3,32867,2)
  1. ;;=^5138505