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