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

IBDEI2C0.m

Go to the documentation of this file.
IBDEI2C0 ; ; 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,37251,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37251,1,3,0)
 ;;=3^Contracture, left ankle
 ;;^UTILITY(U,$J,358.3,37251,1,4,0)
 ;;=4^M24.572
 ;;^UTILITY(U,$J,358.3,37251,2)
 ;;=^5011421
 ;;^UTILITY(U,$J,358.3,37252,0)
 ;;=M24.574^^146^1914^24
 ;;^UTILITY(U,$J,358.3,37252,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37252,1,3,0)
 ;;=3^Contracture, right foot
 ;;^UTILITY(U,$J,358.3,37252,1,4,0)
 ;;=4^M24.574
 ;;^UTILITY(U,$J,358.3,37252,2)
 ;;=^5011423
 ;;^UTILITY(U,$J,358.3,37253,0)
 ;;=M24.575^^146^1914^22
 ;;^UTILITY(U,$J,358.3,37253,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37253,1,3,0)
 ;;=3^Contracture, left foot
 ;;^UTILITY(U,$J,358.3,37253,1,4,0)
 ;;=4^M24.575
 ;;^UTILITY(U,$J,358.3,37253,2)
 ;;=^5011424
 ;;^UTILITY(U,$J,358.3,37254,0)
 ;;=L75.1^^146^1914^9
 ;;^UTILITY(U,$J,358.3,37254,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37254,1,3,0)
 ;;=3^Chromhidrosis
 ;;^UTILITY(U,$J,358.3,37254,1,4,0)
 ;;=4^L75.1
 ;;^UTILITY(U,$J,358.3,37254,2)
 ;;=^5009298
 ;;^UTILITY(U,$J,358.3,37255,0)
 ;;=T25.431A^^146^1914^70
 ;;^UTILITY(U,$J,358.3,37255,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37255,1,3,0)
 ;;=3^Corrosion of rt toe(s), unsp degree, init enc
 ;;^UTILITY(U,$J,358.3,37255,1,4,0)
 ;;=4^T25.431A
 ;;^UTILITY(U,$J,358.3,37255,2)
 ;;=^5048634
 ;;^UTILITY(U,$J,358.3,37256,0)
 ;;=T25.432A^^146^1914^55
 ;;^UTILITY(U,$J,358.3,37256,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37256,1,3,0)
 ;;=3^Corrosion of lft toe(s), unsp degree, init enc
 ;;^UTILITY(U,$J,358.3,37256,1,4,0)
 ;;=4^T25.432A
 ;;^UTILITY(U,$J,358.3,37256,2)
 ;;=^5048637
 ;;^UTILITY(U,$J,358.3,37257,0)
 ;;=T25.421A^^146^1914^62
 ;;^UTILITY(U,$J,358.3,37257,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37257,1,3,0)
 ;;=3^Corrosion of rt ft, unspec degree, init enc
 ;;^UTILITY(U,$J,358.3,37257,1,4,0)
 ;;=4^T25.421A
 ;;^UTILITY(U,$J,358.3,37257,2)
 ;;=^5048628
 ;;^UTILITY(U,$J,358.3,37258,0)
 ;;=T25.422A^^146^1914^47
 ;;^UTILITY(U,$J,358.3,37258,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37258,1,3,0)
 ;;=3^Corrosion of lft ft, unspec degree, init enc
 ;;^UTILITY(U,$J,358.3,37258,1,4,0)
 ;;=4^T25.422A
 ;;^UTILITY(U,$J,358.3,37258,2)
 ;;=^5048631
 ;;^UTILITY(U,$J,358.3,37259,0)
 ;;=T24.431A^^146^1914^66
 ;;^UTILITY(U,$J,358.3,37259,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37259,1,3,0)
 ;;=3^Corrosion of rt lwr leg, unsp degree, init enc
 ;;^UTILITY(U,$J,358.3,37259,1,4,0)
 ;;=4^T24.431A
 ;;^UTILITY(U,$J,358.3,37259,2)
 ;;=^5048352
 ;;^UTILITY(U,$J,358.3,37260,0)
 ;;=T24.432A^^146^1914^51
 ;;^UTILITY(U,$J,358.3,37260,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37260,1,3,0)
 ;;=3^Corrosion of lft lwr leg, unsp degree, init enc
 ;;^UTILITY(U,$J,358.3,37260,1,4,0)
 ;;=4^T24.432A
 ;;^UTILITY(U,$J,358.3,37260,2)
 ;;=^5048355
 ;;^UTILITY(U,$J,358.3,37261,0)
 ;;=T25.531A^^146^1914^67
 ;;^UTILITY(U,$J,358.3,37261,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37261,1,3,0)
 ;;=3^Corrosion of rt toe(s), first degree, init enc
 ;;^UTILITY(U,$J,358.3,37261,1,4,0)
 ;;=4^T25.531A
 ;;^UTILITY(U,$J,358.3,37261,2)
 ;;=^5048664
 ;;^UTILITY(U,$J,358.3,37262,0)
 ;;=T25.532A^^146^1914^52
 ;;^UTILITY(U,$J,358.3,37262,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37262,1,3,0)
 ;;=3^Corrosion of lft toe(s), first degree, init enc
 ;;^UTILITY(U,$J,358.3,37262,1,4,0)
 ;;=4^T25.532A
 ;;^UTILITY(U,$J,358.3,37262,2)
 ;;=^5048667
 ;;^UTILITY(U,$J,358.3,37263,0)
 ;;=T25.521A^^146^1914^59