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

IBDEI35K.m

Go to the documentation of this file.
  1. IBDEI35K ; ; 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,50342,0)
  1. ;;=E89.6^^193^2490^29
  1. ;;^UTILITY(U,$J,358.3,50342,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,50342,1,3,0)
  1. ;;=3^PostProcedural Adrenocortical Hypofunction
  1. ;;^UTILITY(U,$J,358.3,50342,1,4,0)
  1. ;;=4^E89.6
  1. ;;^UTILITY(U,$J,358.3,50342,2)
  1. ;;=^5003042
  1. ;;^UTILITY(U,$J,358.3,50343,0)
  1. ;;=L68.0^^193^2490^6
  1. ;;^UTILITY(U,$J,358.3,50343,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,50343,1,3,0)
  1. ;;=3^Hirsutism
  1. ;;^UTILITY(U,$J,358.3,50343,1,4,0)
  1. ;;=4^L68.0
  1. ;;^UTILITY(U,$J,358.3,50343,2)
  1. ;;=^5009262
  1. ;;^UTILITY(U,$J,358.3,50344,0)
  1. ;;=M80.00XA^^193^2490^2
  1. ;;^UTILITY(U,$J,358.3,50344,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,50344,1,3,0)
  1. ;;=3^Age-Related Osteoporosis w/ Fx,Unspec Site,Init Encntr
  1. ;;^UTILITY(U,$J,358.3,50344,1,4,0)
  1. ;;=4^M80.00XA
  1. ;;^UTILITY(U,$J,358.3,50344,2)
  1. ;;=^5013363
  1. ;;^UTILITY(U,$J,358.3,50345,0)
  1. ;;=M81.0^^193^2490^3
  1. ;;^UTILITY(U,$J,358.3,50345,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,50345,1,3,0)
  1. ;;=3^Age-Related Osteoporosis w/o Fx
  1. ;;^UTILITY(U,$J,358.3,50345,1,4,0)
  1. ;;=4^M81.0
  1. ;;^UTILITY(U,$J,358.3,50345,2)
  1. ;;=^5013555
  1. ;;^UTILITY(U,$J,358.3,50346,0)
  1. ;;=M85.80^^193^2490^26
  1. ;;^UTILITY(U,$J,358.3,50346,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,50346,1,3,0)
  1. ;;=3^Osteopenia,Unspec Site
  1. ;;^UTILITY(U,$J,358.3,50346,1,4,0)
  1. ;;=4^M85.80
  1. ;;^UTILITY(U,$J,358.3,50346,2)
  1. ;;=^5014473
  1. ;;^UTILITY(U,$J,358.3,50347,0)
  1. ;;=N62.^^193^2490^5
  1. ;;^UTILITY(U,$J,358.3,50347,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,50347,1,3,0)
  1. ;;=3^Gynecomastia
  1. ;;^UTILITY(U,$J,358.3,50347,1,4,0)
  1. ;;=4^N62.
  1. ;;^UTILITY(U,$J,358.3,50347,2)
  1. ;;=^5015790
  1. ;;^UTILITY(U,$J,358.3,50348,0)
  1. ;;=E66.3^^193^2490^27
  1. ;;^UTILITY(U,$J,358.3,50348,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,50348,1,3,0)
  1. ;;=3^Overweight
  1. ;;^UTILITY(U,$J,358.3,50348,1,4,0)
  1. ;;=4^E66.3
  1. ;;^UTILITY(U,$J,358.3,50348,2)
  1. ;;=^5002830
  1. ;;^UTILITY(U,$J,358.3,50349,0)
  1. ;;=E89.1^^193^2490^31
  1. ;;^UTILITY(U,$J,358.3,50349,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,50349,1,3,0)
  1. ;;=3^Postprocedural Hypoinsulinemia
  1. ;;^UTILITY(U,$J,358.3,50349,1,4,0)
  1. ;;=4^E89.1
  1. ;;^UTILITY(U,$J,358.3,50349,2)
  1. ;;=^5003036
  1. ;;^UTILITY(U,$J,358.3,50350,0)
  1. ;;=R73.03^^193^2490^33
  1. ;;^UTILITY(U,$J,358.3,50350,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,50350,1,3,0)
  1. ;;=3^Pre-Diabetes
  1. ;;^UTILITY(U,$J,358.3,50350,1,4,0)
  1. ;;=4^R73.03
  1. ;;^UTILITY(U,$J,358.3,50350,2)
  1. ;;=^8295662
  1. ;;^UTILITY(U,$J,358.3,50351,0)
  1. ;;=E73.9^^193^2490^18
  1. ;;^UTILITY(U,$J,358.3,50351,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,50351,1,3,0)
  1. ;;=3^Lactose Intolerance,Unspec
  1. ;;^UTILITY(U,$J,358.3,50351,1,4,0)
  1. ;;=4^E73.9
  1. ;;^UTILITY(U,$J,358.3,50351,2)
  1. ;;=^5002914
  1. ;;^UTILITY(U,$J,358.3,50352,0)
  1. ;;=H40.9^^193^2491^11
  1. ;;^UTILITY(U,$J,358.3,50352,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,50352,1,3,0)
  1. ;;=3^Glaucoma,Unspec
  1. ;;^UTILITY(U,$J,358.3,50352,1,4,0)
  1. ;;=4^H40.9
  1. ;;^UTILITY(U,$J,358.3,50352,2)
  1. ;;=^5005931
  1. ;;^UTILITY(U,$J,358.3,50353,0)
  1. ;;=H26.9^^193^2491^7
  1. ;;^UTILITY(U,$J,358.3,50353,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,50353,1,3,0)
  1. ;;=3^Cataract,Unspec
  1. ;;^UTILITY(U,$J,358.3,50353,1,4,0)
  1. ;;=4^H26.9
  1. ;;^UTILITY(U,$J,358.3,50353,2)
  1. ;;=^5005363
  1. ;;^UTILITY(U,$J,358.3,50354,0)
  1. ;;=H10.9^^193^2491^10
  1. ;;^UTILITY(U,$J,358.3,50354,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,50354,1,3,0)
  1. ;;=3^Conjunctivitis,Unspec